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

defstruct: fix print-object and print-function options for lambdas

Browse source 
Bug introduced in commit ba573abf9e.
This commit is contained in:
Marius Gerbershagen 2019-03-23 17:34:47 +01:00
parent 8bc2f8a983
commit 0407b9697c
1 changed files with 7 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

10
src/lsp/defstruct.lsp
View file

@ -450,8 +450,12 @@ as a STRUCTURE doc and can be retrieved by (documentation 'NAME 'structure)."
(setq include (cdar os))
(unless (get-sysprop v 'IS-A-STRUCTURE)
(error "~S is an illegal included structure." v)))
(:PRINT-FUNCTION (setq print-function v))
(:PRINT-OBJECT (setq print-object v))
(:PRINT-FUNCTION (setq print-function (if (symbolp v)
`(quote ,v)
`(function ,v))))
(:PRINT-OBJECT (setq print-object (if (symbolp v)
`(quote ,v)
`(function ,v))))
(:TYPE (setq type v))
(:INITIAL-OFFSET (setq initial-offset v))
(t (error "~S is an illegal defstruct option." o))))
@ -562,7 +566,7 @@ as a STRUCTURE doc and can be retrieved by (documentation 'NAME 'structure)."
;;
(let ((core `(define-structure ',name ',conc-name ',type ',named ',slots
',slot-descriptions ',copier ',include
',print-function ',print-object ',constructors
,print-function ,print-object ',constructors
',offset ',name-offset
',documentation ',predicate))
(constructors (mapcar #'(lambda (constructor)