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
......@@ -344,7 +344,7 @@ 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)
(find-symbol* (standard-case-symbol-name name-designator)
(etypecase package-designator
((or package null) package-designator)
((or string symbol)))
......
Supports Markdown
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