Browse files

Changed the conditional compilation so that the straight forward meth…

…od is only

used by ECL.  Every other Lisp I test with behaves like SBCL (i.e. only
direct-slot-descriptors know their readers, not effective-slot-descriptors)
  • Loading branch information...
1 parent e8ca42f commit e327387a8ef4f8a7882c2862ece4467c8ed5e48d @smithzvk committed Jul 6, 2011
Showing with 4 additions and 2 deletions.
  1. +4 −2 modf.lisp
@@ -229,7 +229,9 @@ functions ahead of time."
new-struct ))))
(defun late-class-reader-inverter (func new-val obj)
- #-(or sbcl cmucl)
+ #+ecl
+ ;; ECL seems to work a bit more intuitively. Effective slots know their
+ ;; readers.
(let* ((class (class-of obj))
(slots (closer-mop:class-slots class))
(new-instance (make-instance class)))
@@ -245,7 +247,7 @@ functions ahead of time."
(t (slot-makunbound new-instance
(closer-mop:slot-definition-name slot) ))))
new-instance )
- #+(or sbcl cmucl)
+ #-ecl
(let* ((class (class-of obj))
(slot-groups (mapcar #'closer-mop:class-direct-slots
(closer-mop:class-precedence-list class) ))

0 comments on commit e327387

Please sign in to comment.