X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/sod/blobdiff_plain/00d59354c311fb28730b7c9b117b0d91aac092cc..refs/heads/mdw/progfmt:/src/module-output.lisp

diff --git a/src/module-output.lisp b/src/module-output.lisp
index d09dfd8..21fcadd 100644
--- 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.
 
-	  (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