Commit 019b5b29 authored by pfdietz's avatar pfdietz

Fixed potential safety declaration problem in eval-ed form.

parent 719ba344
......@@ -486,7 +486,9 @@
;;; Tests of error situations
(deftest merge.error.1
(handler-case (eval '(merge 'symbol (list 1 2 3) (list 4 5 6) #'<))
(handler-case (eval
'(locally (declare (optimize (safety 3)))
(merge 'symbol (list 1 2 3) (list 4 5 6) #'<)))
(error () :caught))
:caught)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment