Commit 81a4b338 authored by pfdietz's avatar pfdietz

Added case for symbol-value on an unbound variable

parent d1b3cf56
...@@ -1168,7 +1168,7 @@ ...@@ -1168,7 +1168,7 @@
collect x) collect x)
nil) nil)
(deftest symbol-plist.error,4 (deftest symbol-plist.error.4
(loop for x in *mini-universe* (loop for x in *mini-universe*
for form = `(signals-error (setf (symbol-plist ',x) for form = `(signals-error (setf (symbol-plist ',x)
(find-package "CL-USER")) (find-package "CL-USER"))
...@@ -1202,4 +1202,10 @@ ...@@ -1202,4 +1202,10 @@
collect x) collect x)
nil) nil)
(deftest symbol-value.error.5
(let ((sym (gensym)))
(declare (optimize safety))
(handler-case (progn (symbol-value sym) :bad)
(unbound-variable () :good)))
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