Permalink
Browse files

PROG1 makes no sense otherwhise, and this makes defmodel conform to d…

…efclass return value.
  • Loading branch information...
1 parent 69fb8ce commit 78f9d20e9428b5005c91c1b1de7cc2314d5c6e76 @Ramarren committed Dec 30, 2008
Showing with 8 additions and 8 deletions.
  1. +8 −8 defmodel.lisp
View
@@ -119,14 +119,14 @@ the defmodel form for ~a" ',class ',class))))
(md-slot-value self ',slotname)))
,(when unchanged-if
`(def-c-unchanged-test (,class ,slotname) ,unchanged-if)))))))
- slotspecs))
- (loop for slotspec in ',slotspecs
- do (destructuring-bind
- (slotname &rest slotargs &key (cell t) owning &allow-other-keys)
- slotspec
- (declare (ignorable slotargs))
- (when (and cell owning)
- (setf (md-slot-owning-direct? ',class slotname) owning))))))
+ slotspecs)
+ (loop for slotspec in ',slotspecs
+ do (destructuring-bind
+ (slotname &rest slotargs &key (cell t) owning &allow-other-keys)
+ slotspec
+ (declare (ignorable slotargs))
+ (when (and cell owning)
+ (setf (md-slot-owning-direct? ',class slotname) owning)))))))
(defun defmd-canonicalize-slot (slotname
&key

0 comments on commit 78f9d20

Please sign in to comment.