Skip to content
Snippets Groups Projects
Commit 3d1bd31d authored by ram's avatar ram
Browse files

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.
parent f29f31d5
No related branches found
No related tags found
No related merge requests found
......@@ -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)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment