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