/[cells]/triple-cells/namespace.lisp
ViewVC logotype

Contents of /triple-cells/namespace.lisp

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.1 - (hide annotations)
Fri Dec 21 19:02:10 2007 UTC (6 years, 4 months ago) by ktilton
Branch: MAIN
*** empty log message ***
1 ktilton 1.1 ;; -*- mode: Lisp; Syntax: Common-Lisp; Package: triple-cells; -*-
2     ;;;
3     ;;;
4     ;;; Copyright (c) 1995,2003 by Kenneth William Tilton.
5     ;;;
6     ;;; Permission is hereby granted, free of charge, to any person obtaining a copy
7     ;;; of this software and associated documentation files (the "Software"), to deal
8     ;;; in the Software without restriction, including without limitation the rights
9     ;;; to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
10     ;;; copies of the Software, and to permit persons to whom the Software is furnished
11     ;;; to do so, subject to the following conditions:
12     ;;;
13     ;;; The above copyright notice and this permission notice shall be included in
14     ;;; all copies or substantial portions of the Software.
15     ;;;
16     ;;; THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
17     ;;; IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
18     ;;; FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
19     ;;; AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
20     ;;; LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
21     ;;; FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS
22     ;;; IN THE SOFTWARE.
23    
24    
25     (in-package :3c)
26    
27     (defun 3c-register (node name)
28     (add-triple node !ccc:id (mk-upi name)))
29    
30     (defun 3c-find-id (name)
31     (car (get-triples-list :p !ccc:id :o (mk-upi name))))
32    
33     #+test
34     (progn
35     (make-tutorial-store)
36     (let ((x (3c-make !<plane> :id "x-plane")))
37     (3c-find-id "x-plane")))
38    
39    

  ViewVC Help
Powered by ViewVC 1.1.5