From b69d02dac678a3624cb28ff4b16b02c7fb357278 Mon Sep 17 00:00:00 2001
From: Juan Jose Garcia Ripoll <jjgarcia@jjgr-2.local>
Date: Sat, 14 Nov 2009 17:36:28 +0100
Subject: [PATCH] src/lsp/defstruct.lsp: APPEND -> NCONC when using freshly
 created lists.

---
 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 de019542f..52f6d9f70 100644
--- a/src/lsp/defstruct.lsp
+++ b/src/lsp/defstruct.lsp
@@ -110,7 +110,7 @@
       (when other-slots
 	(unless aux
 	  (push '&aux other-slots))
-	(setf boa-list (append boa-list other-slots)))
+	(setf boa-list (nconc boa-list other-slots)))
       (values boa-list assertions))))
 
 (defun make-constructor (name constructor type named slot-descriptions)