From b09e8d51a7dafc0b81e95f729acd802f8de67d32 Mon Sep 17 00:00:00 2001 From: Francois-Rene Rideau <tunes@google.com> Date: Sat, 25 Apr 2015 23:17:59 -0400 Subject: [PATCH] uiop/utility: use find-symbol* for find-standard-case-symbol --- uiop/utility.lisp | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/uiop/utility.lisp b/uiop/utility.lisp index adc217cd..bb326dad 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) -- GitLab