From b6a4d4a85148dfc0561981e7e65fcf2224ddb2a2 Mon Sep 17 00:00:00 2001 From: Daniel Kochmanski Date: Tue, 30 May 2017 19:31:55 +0200 Subject: [PATCH] defstruct: be more ansi conformant with :predicate Closes #385. --- src/lsp/defstruct.lsp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/lsp/defstruct.lsp b/src/lsp/defstruct.lsp index a1c79b8be..498108511 100644 --- a/src/lsp/defstruct.lsp +++ b/src/lsp/defstruct.lsp @@ -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))