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

diff --git a/src/print.lisp b/src/print.lisp
index 66d8b0a..a540357 100644
--- a/src/print.lisp
+++ b/src/print.lisp
@@ -304,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))))