Fix typo in previous patch

This commit is contained in:
Juan Jose Garcia Ripoll 2009-07-01 13:57:02 +02:00
parent 1f0289c5c6
commit 79d6eb5873

View file

@ -111,7 +111,7 @@
((char= x #\")
(princ "\\\"" stream))
(t (princ x stream)))))
(princ (if one-liner " \"" #\" stream))
(princ (if one-liner #\" " \"" stream))
string))
;;; ======================================================================