Don't show 100 invocations of (ROOM)

This commit is contained in:
Douglas Katzman 2017-06-19 19:23:28 -04:00
parent bb1e50f538
commit d4afc5f43a

View file

@ -18,7 +18,7 @@
run_sbcl <<EOF
(dotimes (i 10)
(dotimes (j 10)
(room))
(let ((*standard-output* (make-string-output-stream))) (room)))
#+nil (gc))
(sb-ext:quit :unix-status $EXIT_LISP_WIN)
EOF