X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fcoerce.lisp;h=928f24ba7c0f1e60fb41e74bcc341886ffb91c50;hb=4fa1c71c7dfa5c6d361304321cc67069a6410694;hp=a4a93f0c41c78477982247775110fb0683860923;hpb=ea6c9e2eb0f0a270d83e8c94c0daa934d1058f0f;p=sbcl.git

diff --git a/src/code/coerce.lisp b/src/code/coerce.lisp
index a4a93f0..928f24b 100644
--- a/src/code/coerce.lisp
+++ b/src/code/coerce.lisp
@@ -81,8 +81,7 @@
         ;; become COMPILE instead of EVAL, which seems nicer to me.
         (eval `(function ,object)))
        ((instance-lambda)
-        (deprecation-warning 'instance-lambda 'lambda)
-        (eval `(function ,object)))
+        (deprecation-error "0.9.3.32" 'instance-lambda 'lambda))
        (t
         (error 'simple-type-error
                :datum object