From e5d1dbd39bd0c4eb5fdc9d6936b0cd983ad9482b Mon Sep 17 00:00:00 2001
From: Matthias Benkard <code@mail.matthias.benkard.de>
Date: Sun, 23 Mar 2008 13:40:32 +0100
Subject: Fix SELECTOR-FUNCTION for CMUCL again.

darcs-hash:9083e5d1cf58bf2da535b58acd80ea9eec267def
---
 Lisp/data-types.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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)
-- 
cgit v1.2.3