hg.stevelosh.com > temperance

test/run.lisp @ 9995687a24c8 default tip 

Merge pull request #17 from bd339/master

Make push-logic-frame-with work with nonlocal exits and multiple values
author Steve Losh <steve@stevelosh.com>
date Mon, 21 Dec 2020 20:51:12 -0500
parents 221dc09d73f9
children (none) 
#+ecl (setf compiler:*user-cc-flags* "-Wno-shift-negative-value")

(declaim (optimize (debug 3) (safety 3) (speed 0)))

(let ((*standard-output* (make-broadcast-stream))
      ; (*error-output* (make-broadcast-stream))
      )
  (ql:quickload 'temperance)
  ;; Recompile to ensure we get the right optimize declarations...
  (asdf:load-system 'temperance :force t)
  (ql:quickload 'temperance.test))

(time (prog1
          (asdf:test-system 'temperance)
        (terpri)))
(terpri)
(quit)