fix return values

README.md

@@ -7,6 +7,7 @@
 This is heavily WIP.
 
 ## TODO
+  * Implement :DEPENDENCIES in DEFINE-PROTOCOL.
   * Take care of STYLE-WARNINGs when defining :FUNCTIONs.
   * Ordinary functions are no longer creatable here - :GENERIC is removed and
   instead, :FUNCTION creates a generic function.

test/readtable.lisp

@@ -10,9 +10,9 @@
                "The #? macro must be used inside DEFINE-TEST.")
        (assert (find ,arg *current-step-data* :key #'car) ()
                "Step ~D is not defined in the step data." ,arg)
-       (setf *current-step* ,arg)
-       ,form
-       (setf *current-step* ,(+ arg 1/2)))))
+       (prog2 (setf *current-step* ,arg)
+           ,form
+         (setf *current-step* ,(+ arg 1/2))))))
 
 (defreadtable protest
   (:merge :standard)

test/vars.lisp

@@ -22,10 +22,10 @@ Use DEFINE-TEST-PACKAGE first.")
   "Test failure in test ~A, before step 1:~%~A")
 
 (defparameter *failure-after*
-  "Test failure in test ~A, phase ~A, after step ~D: ~S~%~A")
+  "Test failure in test ~A, phase ~A, after step ~D:~%~A~%~A")
 
 (defparameter *failure-during*
-  "Test failure in test ~A, phase ~A, step ~D: ~S~%~A")
+  "Test failure in test ~A, phase ~A, step ~D:~%~A~%~A")
 
 (defparameter *failure-internal*
   "*CURRENT-TEST-STEP* has an illegal value: ~S

util/package.lisp

@@ -14,6 +14,7 @@
            #:define-test-case
            #:define-test-package
            #:define-test
+           #:protest
            #:*protocols*
            #:*test-cases*))