From 003f904a3b6b78eeedb9c7d223dffc49152f46ce Mon Sep 17 00:00:00 2001
From: wlott <wlott>
Date: Tue, 11 Dec 1990 22:06:00 +0000
Subject: [PATCH] When searching for a key, compare against successive elements
 in the key list instead of the first key several times.

---
 code/defmacro.lisp | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/code/defmacro.lisp b/code/defmacro.lisp
index 2536722f0..618f55a8a 100644
--- a/code/defmacro.lisp
+++ b/code/defmacro.lisp
@@ -325,13 +325,13 @@
 (defun lookup-keyword (keyword key-list)
   (do ((remaining key-list (cddr remaining)))
       ((endp remaining))
-    (when (eq keyword (car key-list))
-      (return (cadr key-list)))))
+    (when (eq keyword (car remaining))
+      (return (cadr remaining)))))
 
 (defun keyword-supplied-p (keyword key-list)
   (do ((remaining key-list (cddr remaining)))
       ((endp remaining))
-    (when (eq keyword (car key-list))
+    (when (eq keyword (car remaining))
       (return t))))
 
 
-- 
GitLab