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. ~ ...@@ -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) (defun record-additional-system-input-file (pathname component parent)
(let* ((record-on (if parent (let* ((record-on (if parent
(loop :for par = parent :then (component-parent par) (loop :with retval
:with retval :for par = parent :then (component-parent par)
:while par :while par
:do (setf retval par) :do (setf retval par)
:finally (return retval)) :finally (return retval))
component)) component))
(op (make-operation 'define-op)) (op (make-operation 'define-op))
(cell (or (assoc op (%additional-input-files record-on)) (cell (or (assoc op (%additional-input-files record-on))
(let ((new-cell (list op))) (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