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

[Vladimir Sedach]

Just pushed this patch. Thanks!

Vladimir

On Wed, Aug 31, 2011 at 11:48 AM,  <sblist at 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 at common-lisp.net
> http://lists.common-lisp.net/cgi-bin/mailman/listinfo/parenscript-devel
>