From 79d6eb5873734bda4f650de05a5eee72ca28b181 Mon Sep 17 00:00:00 2001
From: Juan Jose Garcia Ripoll <jjgarcia@jjgr-2.local>
Date: Wed, 1 Jul 2009 13:57:02 +0200
Subject: [PATCH] Fix typo in previous patch

---
 src/cmp/cmpwt.lsp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/cmp/cmpwt.lsp b/src/cmp/cmpwt.lsp
index 709d1391b..809f50c3a 100644
--- a/src/cmp/cmpwt.lsp
+++ b/src/cmp/cmpwt.lsp
@@ -111,7 +111,7 @@
 	  ((char= x #\")
 	   (princ "\\\"" stream))
 	  (t (princ x stream)))))
-    (princ (if one-liner " \"" #\" stream))
+    (princ (if one-liner #\"  " \"" stream))
     string))
 
 ;;; ======================================================================