Permalink
Browse files

Made sure Lisps without Closer-MOP will load Modf.

  • Loading branch information...
1 parent 576260e commit 2a4ca677e19f542b92a40468ad7e9ff911e73d95 @smithzvk committed Jul 6, 2011
Showing with 2 additions and 0 deletions.
  1. +2 −0 modf.lisp
View
@@ -213,6 +213,7 @@ functions ahead of time."
new-val obj args ))
;; Check to see if this is a generic function and there are no extra
;; arguments (which means it might be a class slot accessor)
+ #+closer-mop
((and (not args)
(typep (symbol-function func) 'generic-function) )
(late-class-reader-inverter func new-val obj) )
@@ -228,6 +229,7 @@ functions ahead of time."
(eval `(setf (,func ,new-struct) ',new-val))
new-struct ))))
+#+closer-mop
(defun late-class-reader-inverter (func new-val obj)
#+ecl
;; ECL seems to work a bit more intuitively. Effective slots know their

0 comments on commit 2a4ca67

Please sign in to comment.