diff --git a/uiop/utility.lisp b/uiop/utility.lisp index adc217cd1aacddadea77179349c7586144223cce..bb326dadb33dba1f72c211179ca44e2b593f3089 100644 --- a/uiop/utility.lisp +++ b/uiop/utility.lisp @@ -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)