From 6231de024f4b242d51dc8b606d2dbf09b2fbdb1e Mon Sep 17 00:00:00 2001 From: jjgarcia Date: Wed, 12 May 2004 07:47:43 +0000 Subject: [PATCH] Simplified the forms produced by DEFSTRUCT leaving most of the job for DEFINE-STRUCTURE. --- src/lsp/defstruct.lsp | 6 ------ 1 file changed, 6 deletions(-) diff --git a/src/lsp/defstruct.lsp b/src/lsp/defstruct.lsp index 9a0c07c64..dc93ee944 100644 --- a/src/lsp/defstruct.lsp +++ b/src/lsp/defstruct.lsp @@ -312,7 +312,6 @@ Defines a structure named by NAME. The doc-string DOC, if supplied, is saved as a STRUCTURE doc and can be retrieved by (documentation 'NAME 'structure)." (let*((slot-descriptions slots) - ;;#+clos (name (if (consp name&opts) (first name&opts) name&opts)) (options (when (consp name&opts) (rest name&opts))) (conc-name (string-concatenate name "-")) @@ -326,11 +325,6 @@ as a STRUCTURE doc and can be retrieved by (documentation 'NAME 'structure)." offset name-offset documentation) - (when (consp name) - ;; The defstruct options are supplied. - (setq options (cdr name)) - (setq name (car name))) - ;; Parse the defstruct options. (do ((os options (cdr os)) (o) (v)) ((endp os))