Permalink
Browse files

Forgot quote.

  • Loading branch information...
1 parent ea3503f commit 69fb8ce0098fdb01e7ddb815c52bff1604e7dec9 @Ramarren committed Dec 30, 2008
Showing with 1 addition and 1 deletion.
  1. +1 −1 defmodel.lisp
View
@@ -83,7 +83,7 @@ See the Lisp Lesser GNU Public License for more details.
(:metaclass ,(or (cadr (find :metaclass options :key #'car))
'standard-class)))
(prog1
- (find-class ,class)
+ (find-class ',class)
(defmethod shared-initialize :after ((self ,class) slot-names &rest iargs &key)
(declare (ignore slot-names iargs))
,(when (and directsupers (not (member 'model-object directsupers)))

0 comments on commit 69fb8ce

Please sign in to comment.