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

Fixed loops to actually iterate over the elements of the keyword list

instead of repetativly over the first element.
parent 7bd9e0e8
No related branches found
No related tags found
No related merge requests found
......@@ -309,7 +309,7 @@
(defun verify-keywords (key-list valid-keys allow-other-keys)
(do ((already-processed nil)
(unknown-keyword nil)
(remaining key-list (cddr key-list)))
(remaining key-list (cddr remaining)))
((null remaining)
(if (and unknown-keyword
(not allow-other-keys)
......@@ -329,13 +329,13 @@
(setf unknown-keyword (car remaining))))))
(defun lookup-keyword (keyword key-list)
(do ((remaining key-list (cddr key-list)))
(do ((remaining key-list (cddr remaining)))
((endp remaining))
(when (eq keyword (car key-list))
(return (cadr key-list)))))
(defun keyword-supplied-p (keyword key-list)
(do ((remaining key-list (cddr key-list)))
(do ((remaining key-list (cddr remaining)))
((endp remaining))
(when (eq keyword (car key-list))
(return (cadr key-list)))))
......
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