Commit 79b12f5c authored by Kenny Tilton's avatar Kenny Tilton
Browse files

*** empty log message ***

parent cff15c11
......@@ -54,7 +54,7 @@ See the Lisp Lesser GNU Public License for more details.
; ------- 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 @@ the defmodel form for ~a" ',class ',class))))
)
))
))
slotspecs)
(find-class ',class))))
slotspecs))))
(defun defmd-canonicalize-slot (slotname
&key
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment