[cells-cvs] CVS cells

[phildebrandt]

Update of /project/cells/cvsroot/cells
In directory clnet:/tmp/cvs-serv713

Modified Files:
	defmodel.lisp 
Log Message:
ken's defmodel fix


--- /project/cells/cvsroot/cells/defmodel.lisp	2008/02/16 05:04:56	1.16
+++ /project/cells/cvsroot/cells/defmodel.lisp	2008/02/16 09:40:51	1.17
@@ -100,7 +100,7 @@
                        (let* ((reader-fn (or reader accessor))
                               (writer-fn (or writer accessor))
                               )
-                         `(progn ;; eval-when (#+sbcl :load-toplevel :execute) ; ph -- prevent sbcl warning
+                         `(eval-when (#-sbcl :compile-toplevel :load-toplevel :execute) ; ph -- prevent sbcl warning
                             (setf (md-slot-cell-type ',class ',slotname) ,cell)
                             ,(when owning
                                `(setf (md-slot-owning ',class ',slotname) ,owning))