Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
Karsten Poeck
ansi-test
Commits
81a4b338
Commit
81a4b338
authored
Jul 13, 2004
by
pfdietz
Browse files
Added case for symbol-value on an unbound variable
parent
d1b3cf56
Changes
1
Hide whitespace changes
Inline
Side-by-side
ansi-tests/cl-symbols.lsp
View file @
81a4b338
...
...
@@ -1168,7 +1168,7 @@
collect x)
nil)
(deftest symbol-plist.error
,
4
(deftest symbol-plist.error
.
4
(loop for x in *mini-universe*
for form = `(signals-error (setf (symbol-plist ',x)
(find-package "CL-USER"))
...
...
@@ -1202,4 +1202,10 @@
collect x)
nil)
(deftest symbol-value.error.5
(let ((sym (gensym)))
(declare (optimize safety))
(handler-case (progn (symbol-value sym) :bad)
(unbound-variable () :good)))
:good)
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment