Just pushed this patch. Thanks! Vladimir
On Wed, Aug 31, 2011 at 11:48 AM, <[email protected]> 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 > [email protected] > http://lists.common-lisp.net/cgi-bin/mailman/listinfo/parenscript-devel > _______________________________________________ parenscript-devel mailing list [email protected] http://lists.common-lisp.net/cgi-bin/mailman/listinfo/parenscript-devel
