diff options
| author | Matthias Benkard <code@mail.matthias.benkard.de> | 2008-03-23 13:40:32 +0100 |
|---|---|---|
| committer | Matthias Benkard <code@mail.matthias.benkard.de> | 2008-03-23 13:40:32 +0100 |
| commit | e5d1dbd39bd0c4eb5fdc9d6936b0cd983ad9482b (patch) | |
| tree | a311127306e4d5ea6ad735bcb4bc207d91bd2053 | |
| parent | 3da7aba40dc9144e17479200207c2ad6bcb76f5b (diff) | |
Fix SELECTOR-FUNCTION for CMUCL again.
darcs-hash:9083e5d1cf58bf2da535b58acd80ea9eec267def
| -rw-r--r-- | Lisp/data-types.lisp | 2 |
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) |