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 ...@@ -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 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. 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." 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 (etypecase package-designator
((or package null) package-designator) ((or package null) package-designator)
((or string symbol))) ((or string symbol)))
error))) error)))
;;; stamps: a REAL or a boolean where NIL=-infinity, T=+infinity ;;; stamps: a REAL or a boolean where NIL=-infinity, T=+infinity
(eval-when (#-lispworks :compile-toplevel :load-toplevel :execute) (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