/[cells]/cells/defpackage.lisp
ViewVC logotype

Contents of /cells/defpackage.lisp

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.12 - (show annotations)
Sun Oct 12 01:21:07 2008 UTC (5 years, 6 months ago) by ktilton
Branch: MAIN
CVS Tags: HEAD
Changes since 1.11: +22 -21 lines
Just trying to get a patch in for record-caller
1 ;; -*- mode: Lisp; Syntax: Common-Lisp; Package: cells; -*-
2 ;;;
3 ;;; Copyright (c) 2008 by Kenneth William Tilton.
4 ;;;
5 ;;; Permission is hereby granted, free of charge, to any person obtaining a copy
6 ;;; of this software and associated documentation files (the "Software"), to deal
7 ;;; in the Software without restriction, including without limitation the rights
8 ;;; to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
9 ;;; copies of the Software, and to permit persons to whom the Software is furnished
10 ;;; to do so, subject to the following conditions:
11 ;;;
12 ;;; The above copyright notice and this permission notice shall be included in
13 ;;; all copies or substantial portions of the Software.
14 ;;;
15 ;;; THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
16 ;;; IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
17 ;;; FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
18 ;;; AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
19 ;;; LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
20 ;;; FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS
21 ;;; IN THE SOFTWARE.
22
23 (in-package :common-lisp-user)
24
25 (defpackage :cells
26 (:use #:common-lisp #:excl #:utils-kt)
27 (:import-from
28 ;; MOP
29 #+allegro #:excl
30 #+clisp #:clos
31 #+cmu #:mop
32 #+cormanlisp #:common-lisp
33 #+lispworks #:clos
34 #+sbcl #:sb-mop
35 #+openmcl-partial-mop #:openmcl-mop
36 #+(and mcl (not openmcl-partial-mop)) #:ccl
37
38 #-(or allegro clisp cmu cormanlisp lispworks mcl sbcl)
39 #.(cerror "Provide a package name."
40 "Don't know how to find the MOP package for this Lisp.")
41
42 #:class-precedence-list
43 #-(and mcl (not openmcl-partial-mop)) #:class-slots
44 #:slot-definition-name
45 #:class-direct-subclasses
46 )
47 (:export #:cell #:.md-name
48 #:c-input #:c-in #:c-in8
49 #:c-formula #:c? #:c_? #:c?8 #:c?_ #:c??
50 #:with-integrity #:without-c-dependency #:self #:*parent*
51 #:.cache #:.with-c-cache #:c-lambda
52 #:defmodel #:defmd #:defobserver #:slot-value-observe #:def-c-unchanged-test
53 #:new-value #:old-value #:old-value-boundp #:c...
54 #:md-awaken
55 #:mkpart #:make-kid #:the-kids #:nsib #:value #:^value #:.value #:kids #:^kids #:.kids
56 #:cells-reset #:upper #:fm-max #:nearest #:fm-min-kid #:fm-max-kid #:mk-kid-slot
57 #:def-kid-slots #:find-prior #:fm-pos #:kid-no #:fm-includes #:fm-ascendant-common
58 #:fm-kid-containing #:fm-find-if #:fm-ascendant-if #:c-abs #:fm-collect-if #:psib
59 #:not-to-be #:ssibno
60 #:c-debug #:c-break #:c-assert #:c-stop #:c-stopped #:c-assert #:.stop #:delta-diff
61 #:wtrc #:wnotrc #:eko-if #:trc #:wtrc #:eko #:ekx #:trcp #:trcx)
62 #+allegro (:shadowing-import-from #:excl #:fasl-write #:fasl-read #:gc)
63 )
64

  ViewVC Help
Powered by ViewVC 1.1.5