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