[cells-cvs] CVS cells

[ktilton]

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

Modified Files:
	defmodel.lisp 
Log Message:


--- /project/cells/cvsroot/cells/defmodel.lisp	2008/02/16 09:40:51	1.17
+++ /project/cells/cvsroot/cells/defmodel.lisp	2008/03/17 20:34:45	1.18
@@ -54,7 +54,7 @@
      ; -------  defclass ---------------  (^slot-value ,model ',',slotname)
      ;
      
-     (progn
+     (prog1
        (defclass ,class ,(or directsupers '(model-object)) ;; now we can def the class
          ,(mapcar (lambda (s)
                     (list* (car s)
@@ -120,8 +120,7 @@
                             )
                          ))
                      ))
-           slotspecs)
-       (find-class ',class))))
+           slotspecs))))
 
 (defun defmd-canonicalize-slot (slotname
                                 &key