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

…efclass return value.
Ramarren · Dec 30, 2008 · 78f9d20 · 78f9d20
1 parent 69fb8ce
commit 78f9d20
Showing 1 changed file with 8 additions and 8 deletions.
diff --git a/defmodel.lisp b/defmodel.lisp
@@ -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