From 80f93fe82a6b66f9c0e922726f940890b38a9ff9 Mon Sep 17 00:00:00 2001
From: ram <ram>
Date: Tue, 13 Aug 1991 14:11:16 +0000
Subject: [PATCH] Merged Simon Leinen's fix to
 generic-function-type-from-lambda-list which makes it work for
 &allow-other-keys.

---
 pcl/cmu-low.lisp | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/pcl/cmu-low.lisp b/pcl/cmu-low.lisp
index a8f3c9163..833a53eda 100644
--- a/pcl/cmu-low.lisp
+++ b/pcl/cmu-low.lisp
@@ -124,11 +124,11 @@
 		  ,@(when (or (and old-ftype (function-type-keyp old-ftype))
 			      keyp)
 		      '(&key))
-		  ,@(when (or (and old-ftype (function-type-allowp old-ftype))
-			      allowp)
-		      '(&allow-other-keys))
 		  ,@(mapcar #'(lambda (name)
 				`(,name t))
 			    (union old-keys
-				   (mapcar #'keyword-spec-name keys))))
+				   (mapcar #'keyword-spec-name keys)))
+		  ,@(when (or (and old-ftype (function-type-allowp old-ftype))
+			      allowp)
+		      '(&allow-other-keys)))
 		 *))))
-- 
GitLab