summaryrefslogtreecommitdiff
path: root/Lisp
diff options
context:
space:
mode:
authorMatthias Benkard <code@mail.matthias.benkard.de>2008-03-23 13:40:32 +0100
committerMatthias Benkard <code@mail.matthias.benkard.de>2008-03-23 13:40:32 +0100
commite5d1dbd39bd0c4eb5fdc9d6936b0cd983ad9482b (patch)
treea311127306e4d5ea6ad735bcb4bc207d91bd2053 /Lisp
parent3da7aba40dc9144e17479200207c2ad6bcb76f5b (diff)
Fix SELECTOR-FUNCTION for CMUCL again.
darcs-hash:9083e5d1cf58bf2da535b58acd80ea9eec267def
Diffstat (limited to 'Lisp')
-rw-r--r--Lisp/data-types.lisp2
1 files changed, 1 insertions, 1 deletions
diff --git a/Lisp/data-types.lisp b/Lisp/data-types.lisp
index e2a5358..d4e169e 100644
--- a/Lisp/data-types.lisp
+++ b/Lisp/data-types.lisp
@@ -203,7 +203,7 @@ The following calls are all equivalent:
(let ((*compile-verbose* nil))
(let ((lambda-form `(lambda (receiver &rest args)
(apply #'invoke-by-name receiver ,selector args))))
- (compile lambda-form nil))))
+ (compile nil lambda-form))))
(defmethod initialize-instance :after ((selector selector)