Commit 5641d53a authored by pfdietz's avatar pfdietz

More tweaks to symbols tests

parent 0a9e58bd
......@@ -1206,6 +1206,7 @@
(let ((sym (gensym)))
(declare (optimize safety))
(handler-case (progn (symbol-value sym) :bad)
(unbound-variable () :good)))
(unbound-variable (c)
(assert (eq (cell-error-name c) sym))
:good)))
:good)
......@@ -17,4 +17,3 @@
(load "remprop.lsp")
(load "get.lsp")
......@@ -38,9 +38,14 @@
collect x)
nil)
(deftest symbol-function.error.5
(let ((sym (gensym)))
(eval `(signals-error (symbol-function ',sym) undefined-function)))
t)
(handler-case (progn (symbol-function sym) nil)
(undefined-function
(c)
(assert (eq (cell-error-name c) sym))
:good)))
: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