From ef160e98927463c8544f26f822a3d4a32e0831a6 Mon Sep 17 00:00:00 2001
From: Volkan YAZICI <yazicivo@ttnet.net.tr>
Date: Sun, 15 Jul 2007 22:01:38 +0300
Subject: [PATCH] Use ~S instead of ~A in :DEBUG output.

---
 meta-sexp.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/meta-sexp.lisp b/meta-sexp.lisp
index 2d6d731..a0a3c6d 100644
--- a/meta-sexp.lisp
+++ b/meta-sexp.lisp
@@ -210,7 +210,7 @@
 		       `(prog1 t
 			  ,(if (cadr form)
 			       `(format t "DEBUG: ~a: ~a~%" ',(cadr form) ,(cadr form))
-			       `(format t "DEBUG: cursor: [~a] `~a'~%"
+			       `(format t "DEBUG: cursor: [~s] `~s'~%"
 					(parser-context-cursor ,ctx)
 					(elt (parser-context-data ,ctx)
 					     (parser-context-cursor ,ctx))))))))