[cells-cvs] CVS cells

[phildebrandt]

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

Modified Files:
	defmodel.lisp 
Log Message:
sbcl fixes (forward declaration of reader methods, eval-when)


--- /project/cells/cvsroot/cells/defmodel.lisp	2008/02/01 15:52:49	1.14
+++ /project/cells/cvsroot/cells/defmodel.lisp	2008/02/11 14:47:30	1.15
@@ -46,7 +46,9 @@
 				  `(eval-when (:compile-toplevel :execute :load-toplevel)
 				     (unless (macro-function ',deriver-fn)
 				       (defmacro ,deriver-fn ()
-					 `(,',reader-fn self))))))))))
+					 `(,',reader-fn self)))
+				     #+sbcl (unless (fboundp ',reader-fn)
+					      (defgeneric ,reader-fn (slot))))))))))
      
 					;
 					; -------  defclass ---------------  (^slot-value ,model ',',slotname)
@@ -98,9 +100,8 @@
                        (let* ((reader-fn (or reader accessor))
                               (writer-fn (or writer accessor))
                               )
-                         `(progn
+                         `(eval-when (#+sbcl :load-toplevel :execute) ; ph -- prevent sbcl warning
                             (setf (md-slot-cell-type ',class ',slotname) ,cell)
-                         
                             ,(when owning
 				   `(setf (md-slot-owning ',class ',slotname) ,owning))
                             ,(when reader-fn