Commit d76f240c authored by camm's avatar camm

allow universe file to be loaded by 2.6.1

parent 3318fdd9
......@@ -440,7 +440,8 @@
(list (+ x 1) (+ y 2) (+ z 3)))
(defgeneric meaningless-user-generic-function-for-universe (x y z)
(:method ((x integer) (y integer) (z integer)) (+ x y z)))
#+(or (not :gcl) :setf) (:method ((x integer) (y integer) (z integer)) (+ x y z))
)
(eval-when (:load-toplevel)
(compile 'meaningless-user-function-for-universe)
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment