X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fcoerce.lisp;h=f23440b298ab6c8e514ce8cede6b565c29f473e9;hb=b0a7abdf2bd6f2d66fcce97196024cdb0e1a1886;hp=37721fff4b890f8228945181103d61c803e685e5;hpb=4898ef32c639b1c7f4ee13a5ba566ce6debd03e6;p=sbcl.git

diff --git a/src/code/coerce.lisp b/src/code/coerce.lisp
index 37721ff..f23440b 100644
--- a/src/code/coerce.lisp
+++ b/src/code/coerce.lisp
@@ -69,10 +69,13 @@
      (case (first object)
        ((setf)
         (fdefinition object))
-       ((lambda instance-lambda)
+       ((lambda)
         ;; FIXME: If we go to a compiler-only implementation, this can
         ;; become COMPILE instead of EVAL, which seems nicer to me.
         (eval `(function ,object)))
+       ((instance-lambda)
+        (deprecation-warning 'instance-lambda 'lambda)
+        (eval `(function ,object)))
        (t
         (error 'simple-type-error
                :datum object