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

bin/asdf-builder

+2 −2
Original line number Diff line number Diff line
@@ -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)