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

src/lsp/defstruct.lsp: APPEND -> NCONC when using freshly created lists.

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2009-11-14 17:36:28 +01:00
parent b4b2d12f7e
commit b69d02dac6
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/lsp/defstruct.lsp
View file

@ -110,7 +110,7 @@
(when other-slots
(unless aux
(push '&aux other-slots))
(setf boa-list (append boa-list other-slots)))
(setf boa-list (nconc boa-list other-slots)))
(values boa-list assertions))))
(defun make-constructor (name constructor type named slot-descriptions)