Skip to content
Snippets Groups Projects
Commit b09e8d51 authored by Francois-Rene Rideau's avatar Francois-Rene Rideau
Browse files

uiop/utility: use find-symbol* for find-standard-case-symbol

parent 3022a31f
No related branches found
No related tags found
No related merge requests found
......@@ -344,11 +344,11 @@ platform, or STRING on a so-called \"modern\" platform such as Allegro with mode
NAME-DESIGNATOR and PACKAGE-DESIGNATOR will be converted to a string using STRING-DESIGNATOR on an
ANSI CL platform, or STRING on a so-called \"modern\" platform such as Allegro with modern syntax.
If optional ERROR argument is NIL, return NIL instead of an error when the symbol is not found."
(find-symbol (standard-case-symbol-name name-designator)
(etypecase package-designator
((or package null) package-designator)
((or string symbol)))
error)))
(find-symbol* (standard-case-symbol-name name-designator)
(etypecase package-designator
((or package null) package-designator)
((or string symbol)))
error)))
;;; stamps: a REAL or a boolean where NIL=-infinity, T=+infinity
(eval-when (#-lispworks :compile-toplevel :load-toplevel :execute)
......
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