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

defstruct: be more ansi conformant with :predicate

Browse source 
Closes #385.
This commit is contained in:
Daniel Kochmanski 2017-05-30 19:31:55 +02:00
parent cf416f6fd4
commit b6a4d4a851
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

@ -490,7 +490,7 @@ as a STRUCTURE doc and can be retrieved by (documentation 'NAME 'structure)."
;; Check the named option and set the predicate.
(when (and type (not named))
(when predicate-specified
(when (and predicate-specified predicate)
(error "~S is an illegal structure predicate."
predicate))
(setq predicate nil))