Skip to content
Snippets Groups Projects
Commit 003f904a authored by wlott's avatar wlott
Browse files

When searching for a key, compare against successive elements in the key

list instead of the first key several times.
parent f3611b6e
No related branches found
No related tags found
No related merge requests found
......@@ -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))))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment