Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

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

…efclass return value.
  • Loading branch information...
commit 78f9d20e9428b5005c91c1b1de7cc2314d5c6e76 1 parent 69fb8ce
@Ramarren authored
Showing with 8 additions and 8 deletions.
  1. +8 −8 defmodel.lisp
View
16 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
Please sign in to comment.
Something went wrong with that request. Please try again.