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