lib/keyword.c (kw_parseempty): Use correct variable scanning `kwval' list.

[sod] / src / module-output.lisp

diff --git a/src/module-output.lisp b/src/module-output.lisp
index d09dfd8b7f238b17ea88c53acbc69250bce5b608..21fcaddbd46d257cc04e2027fd5e803604388bf7 100644 (file)
--- a/src/module-output.lisp
+++ b/src/module-output.lisp
@@ -270,13 +270,12 @@ (defmethod write-dependency-file ((module module) reason output-dir)
          ;; filetype case to do that.  Make a pathname and inspect it to
          ;; find out how to do this.
 
          ;; filetype case to do that.  Make a pathname and inspect it to
          ;; find out how to do this.
 

-         (if (upper-case-p
-                          (char (pathname-type (make-pathname
-                                                :type "TEST"
-                                                :case :common))
-                                0))
-                         #'string-upcase
-                         #'string-downcase))
+         (if (upper-case-p (char (pathname-type (make-pathname
+                                                 :type "TEST"
+                                                 :case :common))
+                                 0))
+             #'string-upcase
+             #'string-downcase))

 
         (outpath (output-type-pathname reason))
         (deppath (make-pathname :type (concatenate 'string
 
         (outpath (output-type-pathname reason))
         (deppath (make-pathname :type (concatenate 'string