[parenscript-devel] [PATCH] Eliminate STYLE-WARNINGs during compilation

[sblist at me.com]

The following patch should eliminate these two compilation STYLE-WARNINGs:

STYLE-WARNING: Overwriting already existing readtable #<NAMED-READTABLE :PARENSCRIPT {10030FA571}>.
style-warning: Implicitly creating new generic function ps-print.

	Scott

---
 src/package.lisp |    7 ++++---
 src/printer.lisp |    1 +
 2 files changed, 5 insertions(+), 3 deletions(-)

diff --git a/src/package.lisp b/src/package.lisp
index c2c6eb2..be504da 100644
--- a/src/package.lisp
+++ b/src/package.lisp
@@ -3,9 +3,10 @@
 (pushnew :parenscript *features*)
 
 (eval-when (:compile-toplevel :load-toplevel :execute)
-  (named-readtables:defreadtable :parenscript
-    (:merge :standard)
-    (:case :invert)))
+  (unless (named-readtables:find-readtable :parenscript)
+    (named-readtables:defreadtable :parenscript
+      (:merge :standard)
+      (:case :invert))))
 
 (named-readtables:in-readtable :parenscript)
 
diff --git a/src/printer.lisp b/src/printer.lisp
index 43d6f57..da6bae5 100644
--- a/src/printer.lisp
+++ b/src/printer.lisp
@@ -44,6 +44,7 @@ vice-versa.")
                        (cons (get-output-stream-string *psw-stream*)
                              %psw-accumulator))))))))
 
+(defgeneric ps-print (form))
 (defgeneric ps-print% (js-primitive args))
 
 (defmacro defprinter (js-primitive args &body body)
-- 
1.7.6