Commit 081c8dcb authored by Robert P. Goldman's avatar Robert P. Goldman

Quiet a style warning.

In ENOUGH-NAMESTRINGS, the variable B was bound to a value computed only
for side-effect.  Removed B, lifting the call to ENSURE-PATHNAME out of
the LOOP form.
parent 0a8069f1
......@@ -50,8 +50,8 @@
e))
(defun enough-namestrings (base pathnames)
(loop :with b = (ensure-pathname base :want-absolute t :want-directory t)
:for p :in pathnames
(ensure-pathname base :want-absolute t :want-directory t)
(loop :for p :in pathnames
:collect (enough-namestring! p base)))
(defun system-source-files (system)
......
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