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)