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