gistfile1.txt

Unhandled serious condition!
  #<error 0x1ad0a80 :object (dfsch%implementation:name . #<environment 0x1ac4000 >) :message "Unbound variable">

  EVAL (test-toplevel) ()
     @ main.scm:23
  EVAL (when-toplevel (let ((one-fail? ()) (trap-errors? ())) (let ((parser (cmdopts:make-parser))) (cmdopts:add-option parser (lambda (p v) (set! one-fail? true)) :long-option "one-test-fail") (cmdopts:add-option parser (lambda (p v) (set! trap-errors? true)) :long-option "trap-errors") (cmdopts:parse-list parser (cdr *posix-argv*))) (case (run-all-tests :one-fail? one-fail? :trap-errors? trap-errors?) ((:fail) (os:exit 1)) ((:pass) (os:exit 0))))) ()
     @ ../lib-scm/dfsch-unit.scm:267
  EVAL (let ((one-fail? ()) (trap-errors? ())) (let ((parser (cmdopts:make-parser))) (cmdopts:add-option parser (lambda (p v) (set! one-fail? true)) :long-option "one-test-fail") (cmdopts:add-option parser (lambda (p v) (set! trap-errors? true)) :long-option "trap-errors") (cmdopts:parse-list parser (cdr *posix-argv*))) (case (run-all-tests :one-fail? one-fail? :trap-errors? trap-errors?) ((:fail) (os:exit 1)) ((:pass) (os:exit 0)))) ()
     @ ../lib-scm/dfsch-unit.scm:267
  EVAL (#<form 0x2b7a86c63d80 internal_let> ((one-fail? ()) (trap-errors? ())) (let ((parser (cmdopts:make-parser))) (cmdopts:add-option parser (lambda (p v) (set! one-fail? true)) :long-option "one-test-fail") (cmdopts:add-option parser (lambda (p v) (set! trap-errors? true)) :long-option "trap-errors") (cmdopts:parse-list parser (cdr *posix-argv*))) (case (run-all-tests :one-fail? one-fail? :trap-errors? trap-errors?) ((:fail) (os:exit 1)) ((:pass) (os:exit 0)))) ()
    <- (let ((one-fail? ()) (trap-errors? ())) (let ((parser (cmdopts:make-parser))) (cmdopts:add-option parser (lambda (p v) (set! one-fail? true)) :long-option "one-test-fail") (cmdopts:add-option parser (lambda (p v) (set! trap-errors? true)) :long-option "trap-errors") (cmdopts:parse-list parser (cdr *posix-argv*))) (case (run-all-tests :one-fail? one-fail? :trap-errors? trap-errors?) ((:fail) (os:exit 1)) ((:pass) (os:exit 0))))
     @ ../lib-scm/dfsch-unit.scm:267
  EVAL (case (run-all-tests :one-fail? one-fail? :trap-errors? trap-errors?) ((:fail) (os:exit 1)) ((:pass) (os:exit 0))) ()
     @ ../lib-scm/dfsch-unit.scm:267
  EVAL (run-all-tests :one-fail? one-fail? :trap-errors? trap-errors?) ()
     @ ../lib-scm/dfsch-unit.scm:265
  APPLY #<standard-function 0x1a490f0 run-tests(test-list &key one-fail? trap-errors?)> (:tail)
  APPLY #<standard-function 0x19e5a00 ignore-errors(&rest forms)> ()
  EVAL (#<form 0x2b7a86c63d80 internal_let> ((dfsch%implementation:tag (#<primitive 0x2b7a86c63340 make_symbol> (#<primitive 0x2b7a86c63200 symbol_name> dfsch%implementation:name)))) (#<primitive 0x2b7a86c61ec0 append_immutable> (#<primitive 0x2b7a86c61dc0 cons> (#<form 0x2b7a86c63cc0 quote> catch) ()) (#<primitive 0x2b7a86c61dc0 cons> (#<primitive 0x2b7a86c61ec0 append_immutable> (#<primitive 0x2b7a86c61dc0 cons> (#<form 0x2b7a86c63cc0 quote> quote) ()) (#<primitive 0x2b7a86c61dc0 cons> dfsch%implementation:tag ())) ()) (#<primitive 0x2b7a86c61dc0 cons> (#<primitive 0x2b7a86c61ec0 append_immutable> (#<primitive 0x2b7a86c61dc0 cons> (#<form 0x2b7a86c63cc0 quote> handler-bind) ()) (#<primitive 0x2b7a86c61dc0 cons> (#<primitive 0x2b7a86c61ec0 append_immutable> (#<primitive 0x2b7a86c61dc0 cons> (#<primitive 0x2b7a86c61ec0 append_immutable> (#<primitive 0x2b7a86c61dc0 cons> (... ...) ()) (#<primitive 0x2b7a86c61dc0 cons> (... ... ... ...) ())) ())) ()) dfsch%implementation:forms) ()))) ()
    <= (#<form 0x2b7a86c63d80 internal_let> ((dfsch%implementation:tag (make-symbol (symbol-name dfsch%implementation:name)))) (immutable-quasiquote (catch (quote (unquote dfsch%implementation:tag)) (handler-bind ((<serious-condition> (lambda (dfsch%implementation:err) (throw (quote (... ...)) (values () dfsch%implementation:err))))) (unquote-splicing dfsch%implementation:forms)))))
    <- (let ((dfsch%implementation:tag (make-symbol (symbol-name dfsch%implementation:name)))) (immutable-quasiquote (catch (quote (unquote dfsch%implementation:tag)) (handler-bind ((<serious-condition> (lambda (dfsch%implementation:err) (throw (quote (... ...)) (values () dfsch%implementation:err))))) (unquote-splicing dfsch%implementation:forms)))))
    <- (with-gensyms (dfsch%implementation:tag) (immutable-quasiquote (catch (quote (unquote dfsch%implementation:tag)) (handler-bind ((<serious-condition> (lambda (dfsch%implementation:err) (throw (quote (... ...)) (values () dfsch%implementation:err))))) (unquote-splicing dfsch%implementation:forms)))))
     @ *linked-standard-library*:1
  EVAL (#<primitive 0x2b7a86c63340 make_symbol> (#<primitive 0x2b7a86c63200 symbol_name> dfsch%implementation:name)) ()
    <= (make-symbol (symbol-name dfsch%implementation:name))
  EVAL (#<primitive 0x2b7a86c63200 symbol_name> dfsch%implementation:name) ()
    <= (symbol-name dfsch%implementation:name)

Aborted
FAIL: tests/scm-test.sh
Unhandled serious condition!
  #<error 0x180c2e0 :object (dfsch%implementation:name . #<environment 0x180ee60 >) :message "Unbound variable">

  EVAL (test-toplevel) ()
     @ main.scm:23
  EVAL (when-toplevel (let ((one-fail? ()) (trap-errors? ())) (let ((parser (cmdopts:make-parser))) (cmdopts:add-option parser (lambda (p v) (set! one-fail? true)) :long-option "one-test-fail") (cmdopts:add-option parser (lambda (p v) (set! trap-errors? true)) :long-option "trap-errors") (cmdopts:parse-list parser (cdr *posix-argv*))) (case (run-all-tests :one-fail? one-fail? :trap-errors? trap-errors?) ((:fail) (os:exit 1)) ((:pass) (os:exit 0))))) ()
     @ ../lib-scm/dfsch-unit.scm:267
  EVAL (let ((one-fail? ()) (trap-errors? ())) (let ((parser (cmdopts:make-parser))) (cmdopts:add-option parser (lambda (p v) (set! one-fail? true)) :long-option "one-test-fail") (cmdopts:add-option parser (lambda (p v) (set! trap-errors? true)) :long-option "trap-errors") (cmdopts:parse-list parser (cdr *posix-argv*))) (case (run-all-tests :one-fail? one-fail? :trap-errors? trap-errors?) ((:fail) (os:exit 1)) ((:pass) (os:exit 0)))) ()
     @ ../lib-scm/dfsch-unit.scm:267
  EVAL (#<form 0x2ad4c4193d80 internal_let> ((one-fail? ()) (trap-errors? ())) (let ((parser (cmdopts:make-parser))) (cmdopts:add-option parser (lambda (p v) (set! one-fail? true)) :long-option "one-test-fail") (cmdopts:add-option parser (lambda (p v) (set! trap-errors? true)) :long-option "trap-errors") (cmdopts:parse-list parser (cdr *posix-argv*))) (case (run-all-tests :one-fail? one-fail? :trap-errors? trap-errors?) ((:fail) (os:exit 1)) ((:pass) (os:exit 0)))) ()
    <- (let ((one-fail? ()) (trap-errors? ())) (let ((parser (cmdopts:make-parser))) (cmdopts:add-option parser (lambda (p v) (set! one-fail? true)) :long-option "one-test-fail") (cmdopts:add-option parser (lambda (p v) (set! trap-errors? true)) :long-option "trap-errors") (cmdopts:parse-list parser (cdr *posix-argv*))) (case (run-all-tests :one-fail? one-fail? :trap-errors? trap-errors?) ((:fail) (os:exit 1)) ((:pass) (os:exit 0))))
     @ ../lib-scm/dfsch-unit.scm:267
  EVAL (case (run-all-tests :one-fail? one-fail? :trap-errors? trap-errors?) ((:fail) (os:exit 1)) ((:pass) (os:exit 0))) ()
     @ ../lib-scm/dfsch-unit.scm:267
  EVAL (run-all-tests :one-fail? one-fail? :trap-errors? trap-errors?) ()
     @ ../lib-scm/dfsch-unit.scm:265
  APPLY #<standard-function 0x177a0f0 run-tests(test-list &key one-fail? trap-errors?)> (:tail)
  EVAL (let ((passed 0) (failed 0) (mayfail 0) (errors 0)) (measure (catch (quote fail) (for-each (lambda (test) (multiple-value-bind (result err) (if trap-errors? (run-test test) (ignore-errors (run-test test))) (case result ((:fail) (incr failed) (when one-fail? (... ... ()))) ((()) (print (... ...) ": \x1b[0;31mERROR\x1b[0;39m: " err) (incr failed) (incr errors) (when one-fail? (... ... ()))) ((:mayfail) (incr mayfail)) ((:pass) (incr passed))))) test-list))) (print) (print "  ***** Test suite run complete *****") (print "Tests passed:            " passed) (when (> mayfail 0) (print "\x1b[0;33mTests failed (expected): " mayfail "\x1b[0;39m")) (if (> failed 0) (print "\x1b[0;31mTests failed:            " failed "\x1b[0;39m") (print "Tests failed:            " failed)) (if (> failed 0) :fail :pass)) ()
     @ ../lib-scm/dfsch-unit.scm:237
  EVAL (#<form 0x2ad4c4193d80 internal_let> ((passed 0) (failed 0) (mayfail 0) (errors 0)) (measure (catch (quote fail) (for-each (lambda (test) (multiple-value-bind (result err) (if trap-errors? (run-test test) (ignore-errors (run-test test))) (case result ((:fail) (incr failed) (when one-fail? (... ... ()))) ((()) (print (... ...) ": \x1b[0;31mERROR\x1b[0;39m: " err) (incr failed) (incr errors) (when one-fail? (... ... ()))) ((:mayfail) (incr mayfail)) ((:pass) (incr passed))))) test-list))) (print) (print "  ***** Test suite run complete *****") (print "Tests passed:            " passed) (when (> mayfail 0) (print "\x1b[0;33mTests failed (expected): " mayfail "\x1b[0;39m")) (if (> failed 0) (print "\x1b[0;31mTests failed:            " failed "\x1b[0;39m") (print "Tests failed:            " failed)) (if (> failed 0) :fail :pass)) ()
    <- (let ((passed 0) (failed 0) (mayfail 0) (errors 0)) (measure (catch (quote fail) (for-each (lambda (test) (multiple-value-bind (result err) (if trap-errors? (run-test test) (ignore-errors (run-test test))) (case result ((:fail) (incr failed) (when one-fail? (... ... ()))) ((()) (print (... ...) ": \x1b[0;31mERROR\x1b[0;39m: " err) (incr failed) (incr errors) (when one-fail? (... ... ()))) ((:mayfail) (incr mayfail)) ((:pass) (incr passed))))) test-list))) (print) (print "  ***** Test suite run complete *****") (print "Tests passed:            " passed) (when (> mayfail 0) (print "\x1b[0;33mTests failed (expected): " mayfail "\x1b[0;39m")) (if (> failed 0) (print "\x1b[0;31mTests failed:            " failed "\x1b[0;39m") (print "Tests failed:            " failed)) (if (> failed 0) :fail :pass))
     @ ../lib-scm/dfsch-unit.scm:237
  EVAL (measure (catch (quote fail) (for-each (lambda (test) (multiple-value-bind (result err) (if trap-errors? (run-test test) (ignore-errors (run-test test))) (case result ((:fail) (incr failed) (when one-fail? (throw (... ...) ()))) ((()) (print (test-name test) ": \x1b[0;31mERROR\x1b[0;39m: " err) (incr failed) (incr errors) (when one-fail? (throw (... ...) ()))) ((:mayfail) (incr mayfail)) ((:pass) (incr passed))))) test-list))) ()
     @ ../lib-scm/dfsch-unit.scm:226
  EVAL (let ((#:g-180cf04 (get-internal-real-time)) (#:g-180cf24 (get-internal-run-time)) (#:g-180cee4 (gc-total-bytes))) (catch (quote fail) (for-each (lambda (test) (multiple-value-bind (result err) (if trap-errors? (run-test test) (ignore-errors (run-test test))) (case result ((:fail) (incr failed) (when one-fail? (throw (... ...) ()))) ((()) (print (test-name test) ": \x1b[0;31mERROR\x1b[0;39m: " err) (incr failed) (incr errors) (when one-fail? (throw (... ...) ()))) ((:mayfail) (incr mayfail)) ((:pass) (incr passed))))) test-list)) (print (format "real time ~2,3fs, run time ~2,3fs, ~d bytes allocated" (* 1. (/ (- (get-internal-real-time) #:g-180cf04) internal-time-units-per-second)) (* 1. (/ (- (get-internal-run-time) #:g-180cf24) internal-time-units-per-second)) (- (gc-total-bytes) #:g-180cee4)))) ()
  EVAL (#<form 0x2ad4c4193d80 internal_let> ((#:g-180cf04 (get-internal-real-time)) (#:g-180cf24 (get-internal-run-time)) (#:g-180cee4 (gc-total-bytes))) (catch (quote fail) (for-each (lambda (test) (multiple-value-bind (result err) (if trap-errors? (run-test test) (ignore-errors (run-test test))) (case result ((:fail) (incr failed) (when one-fail? (throw (... ...) ()))) ((()) (print (test-name test) ": \x1b[0;31mERROR\x1b[0;39m: " err) (incr failed) (incr errors) (when one-fail? (throw (... ...) ()))) ((:mayfail) (incr mayfail)) ((:pass) (incr passed))))) test-list)) (print (format "real time ~2,3fs, run time ~2,3fs, ~d bytes allocated" (* 1. (/ (- (get-internal-real-time) #:g-180cf04) internal-time-units-per-second)) (* 1. (/ (- (get-internal-run-time) #:g-180cf24) internal-time-units-per-second)) (- (gc-total-bytes) #:g-180cee4)))) ()
    <- (let ((#:g-180cf04 (get-internal-real-time)) (#:g-180cf24 (get-internal-run-time)) (#:g-180cee4 (gc-total-bytes))) (catch (quote fail) (for-each (lambda (test) (multiple-value-bind (result err) (if trap-errors? (run-test test) (ignore-errors (run-test test))) (case result ((:fail) (incr failed) (when one-fail? (throw (... ...) ()))) ((()) (print (test-name test) ": \x1b[0;31mERROR\x1b[0;39m: " err) (incr failed) (incr errors) (when one-fail? (throw (... ...) ()))) ((:mayfail) (incr mayfail)) ((:pass) (incr passed))))) test-list)) (print (format "real time ~2,3fs, run time ~2,3fs, ~d bytes allocated" (* 1. (/ (- (get-internal-real-time) #:g-180cf04) internal-time-units-per-second)) (* 1. (/ (- (get-internal-run-time) #:g-180cf24) internal-time-units-per-second)) (- (gc-total-bytes) #:g-180cee4))))
  EVAL (catch (quote fail) (for-each (lambda (test) (multiple-value-bind (result err) (if trap-errors? (run-test test) (ignore-errors (run-test test))) (case result ((:fail) (incr failed) (when one-fail? (throw (quote fail) ()))) ((()) (print (test-name test) ": \x1b[0;31mERROR\x1b[0;39m: " err) (incr failed) (incr errors) (when one-fail? (throw (quote fail) ()))) ((:mayfail) (incr mayfail)) ((:pass) (incr passed))))) test-list)) ()
     @ ../lib-scm/dfsch-unit.scm:226
  EVAL (for-each (lambda (test) (multiple-value-bind (result err) (if trap-errors? (run-test test) (ignore-errors (run-test test))) (case result ((:fail) (incr failed) (when one-fail? (throw (quote fail) ()))) ((()) (print (test-name test) ": \x1b[0;31mERROR\x1b[0;39m: " err) (incr failed) (incr errors) (when one-fail? (throw (quote fail) ()))) ((:mayfail) (incr mayfail)) ((:pass) (incr passed))))) test-list) ()
     @ ../lib-scm/dfsch-unit.scm:226
  APPLY #<primitive 0x2ad4c4192500 for_each> ()
  APPLY #<standard-function 0x17ed000 (test)> ()
  EVAL (multiple-value-bind (result err) (if trap-errors? (run-test test) (ignore-errors (run-test test))) (case result ((:fail) (incr failed) (when one-fail? (throw (quote fail) ()))) ((()) (print (test-name test) ": \x1b[0;31mERROR\x1b[0;39m: " err) (incr failed) (incr errors) (when one-fail? (throw (quote fail) ()))) ((:mayfail) (incr mayfail)) ((:pass) (incr passed)))) ()
     @ ../lib-scm/dfsch-unit.scm:225
  EVAL (destructuring-bind (&optional result err &rest #:g-180c7c4) (dfsch%internal:%get-values (if trap-errors? (run-test test) (ignore-errors (run-test test)))) (case result ((:fail) (incr failed) (when one-fail? (throw (quote fail) ()))) ((()) (print (test-name test) ": \x1b[0;31mERROR\x1b[0;39m: " err) (incr failed) (incr errors) (when one-fail? (throw (quote fail) ()))) ((:mayfail) (incr mayfail)) ((:pass) (incr passed)))) ()
  EVAL (dfsch%internal:%get-values (if trap-errors? (run-test test) (ignore-errors (run-test test)))) ()
  EVAL (if trap-errors? (run-test test) (ignore-errors (run-test test))) ()
     @ ../lib-scm/dfsch-unit.scm:212
  EVAL (ignore-errors (run-test test)) ()
     @ ../lib-scm/dfsch-unit.scm:212
  APPLY #<standard-function 0x1713a00 ignore-errors(&rest forms)> ()
  EVAL (with-gensyms (dfsch%implementation:tag) (immutable-quasiquote (catch (quote (unquote dfsch%implementation:tag)) (handler-bind ((<serious-condition> (lambda (dfsch%implementation:err) (throw (quote (... ...)) (values () dfsch%implementation:err))))) (unquote-splicing dfsch%implementation:forms))))) ()
     @ *linked-standard-library*:1
  EVAL (let ((dfsch%implementation:tag (make-symbol (symbol-name dfsch%implementation:name)))) (immutable-quasiquote (catch (quote (unquote dfsch%implementation:tag)) (handler-bind ((<serious-condition> (lambda (dfsch%implementation:err) (throw (quote (... ...)) (values () dfsch%implementation:err))))) (unquote-splicing dfsch%implementation:forms))))) ()
    <- (with-gensyms (dfsch%implementation:tag) (immutable-quasiquote (catch (quote (unquote dfsch%implementation:tag)) (handler-bind ((<serious-condition> (lambda (dfsch%implementation:err) (throw (quote (... ...)) (values () dfsch%implementation:err))))) (unquote-splicing dfsch%implementation:forms)))))
     @ *linked-standard-library*:1
  EVAL (#<form 0x2ad4c4193d80 internal_let> ((dfsch%implementation:tag (make-symbol (symbol-name dfsch%implementation:name)))) (immutable-quasiquote (catch (quote (unquote dfsch%implementation:tag)) (handler-bind ((<serious-condition> (lambda (dfsch%implementation:err) (throw (quote (... ...)) (values () dfsch%implementation:err))))) (unquote-splicing dfsch%implementation:forms))))) ()
    <- (let ((dfsch%implementation:tag (make-symbol (symbol-name dfsch%implementation:name)))) (immutable-quasiquote (catch (quote (unquote dfsch%implementation:tag)) (handler-bind ((<serious-condition> (lambda (dfsch%implementation:err) (throw (quote (... ...)) (values () dfsch%implementation:err))))) (unquote-splicing dfsch%implementation:forms)))))
    <- (with-gensyms (dfsch%implementation:tag) (immutable-quasiquote (catch (quote (unquote dfsch%implementation:tag)) (handler-bind ((<serious-condition> (lambda (dfsch%implementation:err) (throw (quote (... ...)) (values () dfsch%implementation:err))))) (unquote-splicing dfsch%implementation:forms)))))
     @ *linked-standard-library*:1
  EVAL (make-symbol (symbol-name dfsch%implementation:name)) ()
  EVAL (symbol-name dfsch%implementation:name) ()

Aborted