diff --git a/compiler/globaldb.lisp b/compiler/globaldb.lisp index 5e776b09ed9336526ffb54e192de3d376b79380a..eb004c94302c5c8e978587d1bc629050737d1806 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)