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

Simplified the forms produced by DEFSTRUCT leaving most of the job for DEFINE-STRUCTURE.

Browse source
This commit is contained in:
jjgarcia 2004-05-12 07:47:43 +00:00
parent 31ee0d5d58
commit 6231de024f
1 changed files with 0 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/lsp/defstruct.lsp
View file

@ -312,7 +312,6 @@
Defines a structure named by NAME. The doc-string DOC, if supplied, is saved
as a STRUCTURE doc and can be retrieved by (documentation 'NAME 'structure)."
(let*((slot-descriptions slots)
;;#+clos
(name (if (consp name&opts) (first name&opts) name&opts))
(options (when (consp name&opts) (rest name&opts)))
(conc-name (string-concatenate name "-"))
@ -326,11 +325,6 @@ as a STRUCTURE doc and can be retrieved by (documentation 'NAME 'structure)."
offset name-offset
documentation)
(when (consp name)
;; The defstruct options are supplied.
(setq options (cdr name))
(setq name (car name)))
;; Parse the defstruct options.
(do ((os options (cdr os)) (o) (v))
((endp os))