From: Olof-Joachim Frahm <olof@macrolet.net>
Date: Wed, 21 Aug 2013 18:04:06 +0000 (+0200)
Subject: Handle unknown FORMAT specifiers for now.
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=2d702ed4cf4809996de0196f28ab7a904f80bd9b;p=jscl.git

Handle unknown FORMAT specifiers for now.
---

diff --git a/src/print.lisp b/src/print.lisp
index 004b540..02f3919 100644
--- a/src/print.lisp
+++ b/src/print.lisp
@@ -306,4 +306,7 @@
   (case (char-upcase chr)
     (#\S (prin1-to-string arg))
     (#\A (princ-to-string arg))
-    (#\D (princ-to-string arg))))
+    (#\D (princ-to-string arg))
+    (t
+     (warn "~S is not implemented yet, using ~~S instead" chr)
+     (prin1-to-string arg))))