X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fcompiler.impure.lisp;h=6b01a474db4c1e3425f6beb6e8c16c8cad50fda8;hb=cececc9ace31c1f0c624af1d3a8bafae9beb5348;hp=a3d6f330f8cbc3168a59f9e55fa7d4eeeee9f098;hpb=eb459ec23eda2040d01a4200e0e7d4edb7e872a1;p=sbcl.git diff --git a/tests/compiler.impure.lisp b/tests/compiler.impure.lisp index a3d6f33..6b01a47 100644 --- a/tests/compiler.impure.lisp +++ b/tests/compiler.impure.lisp @@ -1403,7 +1403,7 @@ ;;; program-error from bad lambda-list keyword (assert (eq :ok - (handler-case + (handler-case (funcall (lambda (&whole x) (list &whole x))) (program-error ()