X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fprint.lisp;h=a54035747bd3ea73404f9ec0820caa81fdada386;hb=a4ea8cefca32d80fb894106bb1f43677f587cdc4;hp=3cc382940e99d598de008ec71879791f8c5b486a;hpb=3ba5724f097d8d62cbe8cb8001f1db8ac35bf62a;p=jscl.git

diff --git a/src/print.lisp b/src/print.lisp
index 3cc3829..a540357 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-string *newline*)
+  (terpri)
   x)
 
 (defun warn (string)
@@ -283,7 +287,7 @@
                ((char= next #\~)
                 (concatf res "~"))
                ((char= next #\%)
-                (concatf res *newline*))
+                (concatf res (string #\newline)))
                ((char= next #\*)
                 (pop arguments))
                (t
@@ -300,4 +304,5 @@
 (defun format-special (chr arg)
   (case (char-upcase chr)
     (#\S (prin1-to-string arg))
-    (#\A (princ-to-string arg))))
+    (#\A (princ-to-string arg))
+    (#\D (princ-to-string arg))))