Update of /project/cells/cvsroot/cell-cultures/cells In directory common-lisp.net:/tmp/cvs-serv10030/cells

Modified Files: defpackage.lisp Log Message:

Date: Wed Jun 30 14:02:47 2004 Author: tburdick

Index: cell-cultures/cells/defpackage.lisp diff -u cell-cultures/cells/defpackage.lisp:1.2 cell-cultures/cells/defpackage.lisp:1.3 --- cell-cultures/cells/defpackage.lisp:1.2 Tue Jun 29 01:58:49 2004 +++ cell-cultures/cells/defpackage.lisp Wed Jun 30 14:02:47 2004 @@ -23,17 +23,22 @@ (in-package :common-lisp-user)

(defpackage :cells - (:use #:common-lisp - #:utils-kt - #+allegro #:excl - #-(or cormanlisp cmu sbcl) #:clos - #+sbcl #:sb-mop + (:use #:common-lisp #:utils-kt) + (:import-from + ;; MOP + #+allegro #:excl + #+clisp #:clos + #+cmu #:mop + #+lispworks #:clos #+mcl #:ccl + #+sbcl #:sb-mop + #-(or allegro clisp cmu lispworks mcl sbcl) + (cerror "Provide a package name." + "Don't know how to find the MOP package for this Lisp.") + + #:class-precedence-list #:class-slots #:slot-definition-name ) - #+clisp (:import-from #:clos #:class-slots #:class-precedence-list) - #+cmu (:import-from #:pcl #:class-precedence-list #:class-slots - #:slot-definition-name #:true) - #+lispworks (:import-from #:lw #:true) + (:export #:cell #:c-input #:c-in #:c-in8 #:c? #:c?8 #:c?_ #:c?? #:with-integrity #:with-deference #:without-c-dependency #:self #:.cache #:c-lambda #:.cause @@ -49,4 +54,3 @@ ) #+allegro (:shadowing-import-from #:excl #:fasl-write #:fasl-read #:gc) ) -