X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ffull-eval.lisp;h=718f5f13c33981a3abdc64ffbfcfc1f179410a6f;hb=0395c15ff8394bfaaed03050c1a7a131f197a732;hp=5079abca017ea5c598f54c554f0f3250d56b7f55;hpb=5d4cadcc92642f2a23743a5458a23aa9dc544db2;p=sbcl.git

diff --git a/src/code/full-eval.lisp b/src/code/full-eval.lisp
index 5079abc..718f5f1 100644
--- a/src/code/full-eval.lisp
+++ b/src/code/full-eval.lisp
@@ -544,10 +544,8 @@
 
 ;;; Return true if EXP is a lambda form.
 (defun lambdap (exp)
-  (case (car exp) ((lambda
-                    sb!int:named-lambda
-                    sb!kernel:instance-lambda)
-                   t)))
+  (case (car exp)
+    ((lambda sb!int:named-lambda) t)))
 
 ;;; Split off the declarations (and the docstring, if
 ;;; DOC-STRING-ALLOWED is true) from the actual forms of BODY.
@@ -577,7 +575,7 @@
 ;;; in the environment ENV.
 (defun eval-lambda (exp env)
   (case (car exp)
-    ((lambda sb!kernel:instance-lambda)
+    ((lambda)
      (multiple-value-bind (body documentation declarations)
          (parse-lambda-headers (cddr exp) :doc-string-allowed t)
        (make-interpreted-function :lambda-list (second exp)