Commit ca48309a authored by Robert Goldman's avatar Robert Goldman

Fix LOOP macro for Lispworks.

parent 92063050
......@@ -109,12 +109,12 @@ 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
:while par
:do (setf retval par)
:finally (return retval))
component))
(loop :with retval
:for par = parent :then (component-parent par)
:while par
:do (setf retval par)
:finally (return retval))
component))
(op (make-operation 'define-op))
(cell (or (assoc op (%additional-input-files record-on))
(let ((new-cell (list op)))
......
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