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

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 @@
(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)
Supports Markdown
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