X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fprint.lisp;h=66d8b0a515367abf531590bba4c36f0ef97af990;hb=4c09bf8ec189997e7409e692c05dd8d516cf9b1a;hp=8cb36bd2db7092f5aff371de226b9ac95355571c;hpb=dea14bb78b0fc90032373212912a16ed1f6a4a29;p=jscl.git

diff --git a/src/print.lisp b/src/print.lisp
index 8cb36bd..66d8b0a 100644
--- a/src/print.lisp
+++ b/src/print.lisp
@@ -257,9 +257,13 @@
   (let ((*print-escape* nil))
     (write-to-string form)))
 
+(defun terpri ()
+  (write-char #\newline)
+  (values))
+
 (defun write-line (x)
   (write-string x)
-  (write-char #\newline)
+  (terpri)
   x)
 
 (defun warn (string)