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

Save the full information on the structure :type option

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2009-01-27 23:02:46 +01:00
parent 40e37e8ccc
commit 72a0809f6a
1 changed files with 0 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/lsp/defstruct.lsp
View file

@ -312,8 +312,6 @@
#+clos
(when *keep-documentation*
(set-documentation name 'STRUCTURE documentation))
(and (consp type) (eq (car type) 'VECTOR)
(setq type 'VECTOR))
(dolist (x slot-descriptions)
(and x
(not (eql (car x) 'TYPED-STRUCTURE-NAME))