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