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