From 8d06d5b7fa9ae08141870e7fb47ec29e5c2f20be Mon Sep 17 00:00:00 2001
From: Juan Jose Garcia Ripoll <jjgarcia@jjgr-2.local>
Date: Wed, 1 Jul 2009 14:02:32 +0200
Subject: [PATCH] Fix yet another typo in cmpwt.lsp.

---
 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 809f50c3a..ec893a6a5 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))
 
 ;;; ======================================================================