Commit 07a72a28 authored by Peter Hildebrandt's avatar Peter Hildebrandt
Browse files

ken's defmodel fix

parent 74a3060a
......@@ -100,7 +100,7 @@ the defmodel form for ~a" ',class ',class))))
(let* ((reader-fn (or reader accessor))
(writer-fn (or writer accessor))
)
`(progn ;; eval-when (#+sbcl :load-toplevel :execute) ; ph -- prevent sbcl warning
`(eval-when (#-sbcl :compile-toplevel :load-toplevel :execute) ; ph -- prevent sbcl warning
(setf (md-slot-cell-type ',class ',slotname) ,cell)
,(when owning
`(setf (md-slot-owning ',class ',slotname) ,owning))
......
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