[cells-cvs] CVS update: cell-cultures/cells/defpackage.lisp

[Thomas F. Burdick]

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)
   )
-