Produce less noise from canonicalize-whitespace

gsorbier · Jul 7, 2017 · 9eb07a2 · 9eb07a2
1 parent 77f1c7b
commit 9eb07a2
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/tools-for-build/canonicalize-whitespace.lisp b/tools-for-build/canonicalize-whitespace.lisp
@@ -14,6 +14,7 @@
 
 ;;; Stream and single-file functions
 
+(progn
 (defun whitespace-p (character)
  (member character '(#\Space #\Tab) :test #'char=))
 
@@ -82,7 +83,8 @@
  (with-open-file (stream *stamp-file*
  :direction :output
  :if-exists :supersede)
- (declare (ignorable stream))))
+ (declare (ignorable stream))
+ (values)))
 
 ;;; Repository-level functions
 
@@ -109,6 +111,7 @@
  (files (remove-if #'skip-p (directory pattern))))
  (mapc #'canonicalize-whitespace/file files))))
  (write-stamp-file)))
+) ; end PROGN
 
 ;;; Entry point