From 3d1bd31d3ff3e8f6a3fe9c8c24bc65767cf17932 Mon Sep 17 00:00:00 2001
From: ram <ram>
Date: Mon, 12 Feb 1990 08:34:47 +0000
Subject: [PATCH] Fixed bug in the access form for INFO's DEFINE-SETF-METHOD
 where it was passing the strings for the name and type to INFO instead of the
 symbols.

---
 compiler/globaldb.lisp | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/compiler/globaldb.lisp b/compiler/globaldb.lisp
index 5e776b09e..eb004c943 100644
--- a/compiler/globaldb.lisp
+++ b/compiler/globaldb.lisp
@@ -343,9 +343,9 @@
   "Set the global information for Name."
   (let* ((n-name (gensym))
 	 (n-value (gensym))
-	 (class (symbol-name class))
-	 (type (symbol-name type))
-	 (info (type-info-or-lose class type)))
+	 (class-str (symbol-name class))
+	 (type-str (symbol-name type))
+	 (info (type-info-or-lose class-str type-str)))
     (values
      `(,n-name)
      `(,name)
-- 
GitLab