mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-06 01:10:53 -08:00
Code Issues Projects Releases Packages Wiki Activity

Fix bug that prevented (SETF DOCUMENTATION) from working with classes

Browse source
This commit is contained in:
jjgarcia 2003-07-15 13:51:41 +00:00
parent 529b760061
commit 264836b63f
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/clos/inspect.lsp
View file

@ -463,7 +463,7 @@ q (or Q): quits the inspection.~%~
(when (member doc-type '(t type))
(si::get-documentation (class-name object) 'structure)))
(defmethod (setf documentation) (new-value (object class) doc-type)
(defmethod (setf documentation) (new-value (object structure-class) doc-type)
(when (member doc-type '(t type))
(setf (documentation (class-name object) 'structure) new-value)))