parenscript-devel

Download

parenscript-devel@common-lisp.net

May 2013

1 participants
2 discussions

FIX for: CCL isn't happy with ps::warn-deprecated
by Ben Hyde 23 May '13

23 May '13

This code[1] doesn't work well in CCL. Calls upon warn-deprecated play out as so: ps> (warn-deprecated 'forth 'lisp) 0> Calling (warn-deprecated forth lisp) ; Compiler warning: In a toplevel form: Nonspecific warning ; While executing: warn-deprecated, in process repl-thread(12). <0 warn-deprecated returned nil nil ps> This can be resolved by adjusting the condition being defined: ps> (define-condition simple-style-warning (simple-warning style-warning) ()) simple-style-warning ps> (warn-deprecated 'forth 'lisp) 0> Calling (warn-deprecated forth lisp) ; Compiler warning: FORTH is deprecated, use LISP instead ; While executing: warn-deprecated, in process repl-thread(12). <0 warn-deprecated returned nil nil ps> WDYT?

1 0

double floats
by Ben Hyde 06 May '13

06 May '13

Double floats cause issues with the compiler md> (setf *read-default-float-format* 'double-float) double-float md> (ps '(1.0 2.0 3.0)) "[1.0D0, 2.0D0, 3.0D0];" since 1.0D0 isn't javascript This is a simpler example: md> (ps 1.0D0) "1.0D0;" Adding... (defmethod ps-print ((x double-float)) (format *psw-stream* "~F" (coerce x 'single-float))) to printer.lisp resolves the problem. At which point it's tempting to rework the ps-print method on number with: (defmethod ps-print ((x double-float)) (format *psw-stream* "~F" (coerce x 'single-float))) (defmethod ps-print ((x integer)) (format *psw-stream* "~D" x)) (defmethod ps-print ((x number)) (format *psw-stream* "~F" x)) Thanks for this awesome tool! - ben

1 0