Commit c866a4fe authored by Francois-Rene Rideau's avatar Francois-Rene Rideau
Browse files

Make test more usable 

Use $0 in the shell part so the file can be renamed.

Print errors with format! so no need for finish-output.
parent dd371258

test.lisp

+6 −7
Original line number Diff line number Diff line 
":" ; : "-*- Lisp -*-" \

; case "${1:-sbcl}" in (sbcl) sbcl --load test.lisp \

;; (allegro) alisp -L test.lisp \

;; (ccl) ../single-threaded-ccl/stccl --load test.lisp \

;; (clisp) clisp -i test.lisp \

; case "${1:-sbcl}" in (sbcl) sbcl --load "$0" \

;; (allegro) alisp -L "$0" \

;; (ccl) ../single-threaded-ccl/stccl --load "$0" \

;; (clisp) clisp -i "$0" \

;; (*) echo "Unrecognized/unsupported Lisp: $1" ; exit 42

;; esac 2>&1 | tee foo ; exit
@@ -77,10 +77,9 @@ 
;;; Fifth, run the actual test

(block nil

  (handler-bind ((error #'(lambda (condition)

                            (format t "~&ERROR:~%~A~%" condition)

                            (format! t "~&ERROR:~%~A~%" condition)

                            (print-backtrace :stream *standard-output*)

                            (format t "~&ERROR:~%~A~%" condition)

                            (finish-output)

                            (format! t "~&ERROR:~%~A~%" condition)

                            (return))))

    (load-system

     :exscribe ;; :verbose t