From 8265f4439638e93fd8fe4006ea2a867e24952d55 Mon Sep 17 00:00:00 2001
From: Juan Jose Garcia Ripoll <jjgarcia@jjgr-2.local>
Date: Sat, 14 Nov 2009 17:36:55 +0100
Subject: [PATCH] src/clos/method.lsp: use the (APPEND ... NIL) idiom to ensure
 that a fresh list is produced.

---
 src/clos/method.lsp | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/clos/method.lsp b/src/clos/method.lsp
index 57d73ad5b..984516131 100644
--- a/src/clos/method.lsp
+++ b/src/clos/method.lsp
@@ -68,7 +68,8 @@
 	(setf lambda-list
 		(append (subseq lambda-list 0 x)
 			'(&allow-other-keys)
-			(and x (subseq lambda-list x))))))
+			(and x (subseq lambda-list x))
+                        nil))))
     (let* ((class-declarations
 	    (nconc (loop for name in required-parameters
 		      for type in specializers