Less verbose

Author: ajberkley

test/cl-binary-store-tests.lisp

@@ -660,7 +660,6 @@
 
 (define-test fuzzing
     (labels ((try (input)
-               (format t "Writing input~%")
                (with-open-file
                    (str "fuzzing-input"
                         :element-type '(unsigned-byte 8)
@@ -671,7 +670,6 @@
                     (restore input :max-to-read #+sbcl (floor (sb-ext:dynamic-space-size) 3)
                                                 #-sbcl 100000000)
                   (invalid-input-data ())))
-               (format t "Deleting fuzzing-input~%")
                (delete-file "fuzzing-input")))
       (when (probe-file "fuzzing-input")
         (format t "Trying pre-existing fuzzing-input~%")