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

Contents of /triple-cells/namespace.lisp

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.2 - (show annotations)
Sun Dec 23 10:04:56 2007 UTC (6 years, 3 months ago) by ktilton
Branch: MAIN
CVS Tags: HEAD
Changes since 1.1: +2 -2 lines
*** empty log message ***
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 (mk-upi name) !ccc:id node))
29
30 (defun 3c-find-id (name)
31 (object (get-sp (mk-upi name) !ccc:id)))
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