Skip to content
Snippets Groups Projects
Commit bcb7c647 authored by ram's avatar ram
Browse files

Fixed FIND-SYMBOL-OR-LOSE to work on NIL, and also to intern the

symbol if the error is continued, rather than randomly returning the
result of CERROR.
parent 7a760664
No related branches found
No related tags found
No related merge requests found
......@@ -712,9 +712,14 @@
(defun find-symbol-or-lose (symbol package)
"Tries to find SYMBOL in PACKAGE, but signals a continuable error if
it's not there."
(or (find-symbol symbol package)
(cerror "Ignore this symbol." "Can't find the symbol named ~S in ~S."
symbol package)))
(multiple-value-bind (sym how)
(find-symbol symbol package)
(cond ((not how)
(cerror "INTERN this symbol."
"Can't find the symbol named ~S in ~S."
symbol package)
(values (intern symbol package)))
(t sym))))
(defun stringify-symbols (symbols)
"Takes a list of symbols and/or strings and returns a list of
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment