Use ~S instead of ~A in :DEBUG output.

vy · Jul 15, 2007 · ef160e9 · ef160e9
1 parent 96fc541
commit ef160e9
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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))))))))