Execute tests asynchronously to let the browser to render

[jscl.git] / src / print.lisp

diff --git a/src/print.lisp b/src/print.lisp
index 146c173..0f61573 100644 (file)
--- a/src/print.lisp
+++ b/src/print.lisp
@@ -211,7 +211,7 @@
            ;; the symbol with the optional package or uninterned mark.
            (progn
              (cond
-               ((null package) (write-char #\#))
+               ((null package) (write-char #\# stream))
                ((eq package (find-package "KEYWORD")))
                (t (write-char (escape-token (package-name package)) stream)))
              (write-char #\: stream)