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

Missing bits from the previous fix for DEFSTRUCT

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2009-02-17 21:21:15 +01:00
parent 1dd8f4247e
commit a2d2add97f
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/lsp/defstruct.lsp
View file

@ -254,8 +254,8 @@
(new-slot (first (member slot-name new-slots :key #'car))))
(if (null new-slot)
(setf new-slot old-slot)
(let* ((old-read-only (fifth old-slot))
(new-read-only (fifth new-slot)))
(let* ((old-read-only (fourth old-slot))
(new-read-only (fourth new-slot)))
(cond ((and (null new-read-only)
old-read-only)
(error "Tried to turn a read only slot ~A into writtable."
@ -457,7 +457,7 @@ as a STRUCTURE doc and can be retrieved by (documentation 'NAME 'structure)."
(setq slot-descriptions
(append (overwrite-slot-descriptions
(mapcar #'(lambda (sd)
(parse-slot-description sd 0))
(parse-slot-description sd 0 :unknown))
(cdr include))
(get-sysprop (car include) 'STRUCTURE-SLOT-DESCRIPTIONS))
slot-descriptions))))