X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fpp-backq.lisp;h=7905ce77ef6066eaecd745500ffb6def13c8936f;hb=69d60b456b07a0256f08df0d02484f361ce5737c;hp=dc5d6ae62be6334329fbdfc206f4295338e034c3;hpb=7abb9e44907ef12b52ac26d6482fbe21c036ee9b;p=sbcl.git

diff --git a/src/code/pp-backq.lisp b/src/code/pp-backq.lisp
index dc5d6ae..7905ce7 100644
--- a/src/code/pp-backq.lisp
+++ b/src/code/pp-backq.lisp
@@ -83,9 +83,9 @@
     (backq-comma
      (write-char #\, stream))
     (backq-comma-at
-     (princ ",@" stream))
+     (write-string ",@" stream))
     (backq-comma-dot
-     (princ ",." stream)))
+     (write-string ",." stream)))
   ;; Ha!  an example of where the per-process specials for stream
   ;; attributes rather than per-stream actually makes life easier.
   ;; Since all of the attributes are shared in the dynamic state, we