Just pushed this patch. Thanks! Vladimir On Wed, Aug 31, 2011 at 11:48 AM, <sblist@me.com> wrote:

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

_______________________________________________ parenscript-devel mailing list parenscript-devel@common-lisp.net http://lists.common-lisp.net/cgi-bin/mailman/listinfo/parenscript-devel