Commit ca48309a authored by Robert Goldman's avatar Robert Goldman

Fix LOOP macro for Lispworks.

parent 92063050
......@@ -109,8 +109,8 @@ Please only define ~S and secondary systems with a name starting with ~S (e.g. ~
(defun record-additional-system-input-file (pathname component parent)
(let* ((record-on (if parent
(loop :for par = parent :then (component-parent par)
:with retval
(loop :with retval
:for par = parent :then (component-parent par)
:while par
:do (setf retval par)
:finally (return retval))
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment