[Bese-devel] parenscript bug

[Ties Stuij]

it seems i have a bug in my parenscript on cmucl on freebsd. i guess
it might have to do with the recent changes from henrik hjelte, since
my compilation stops at the macro css-inline and he added it two weeks
ago. parenscript works fine under my sbcl under linux.

here the top part of the debugger message:

Error in function C::DUMP-STRUCTURE:  Attempt to dump invalid
structure:
  #<KERNEL::STANDARD-CLASS JS::EXPRESSION {488EE195}>
How did this happen?
   [Condition of type SIMPLE-ERROR]

Restarts:
  0: [RETRY] Retry performing #<ASDF:COMPILE-OP NIL {4851F665}> on
#<ASDF:CL-SOURCE-FILE "js-html" {488FC93D}>.
  1: [ACCEPT] Continue, treating #<ASDF:COMPILE-OP NIL {4851F665}> on
#<ASDF:CL-SOURCE-FILE "js-html" {488FC93D}> as having been successful.
  2: [ABORT-REQUEST] Abort handling SLIME request.
  3: [ABORT] Return to Top-Level.

Backtrace:
  0: (C::DUMP-STRUCTURE #<KERNEL::STANDARD-CLASS JS::EXPRESSION
{488EE195}> #<Fasl-File
"/usr/home/zeno/lisp/lib/parenscript/js-html.x86f">)
  1: (C::DUMP-NON-IMMEDIATE-OBJECT #<KERNEL::STANDARD-CLASS
JS::EXPRESSION {488EE195}> #<Fasl-File
"/usr/home/zeno/lisp/lib/parenscript/js-html.x86f">)
  2: (C::DUMP-LIST (FUNCTION (&REST T) #<KERNEL::STANDARD-CLASS
JS::EXPRESSION {488EE195}>) #<Fasl-File
"/usr/home/zeno/lisp/lib/parenscript/js-html.x86f">)
  3: (C::DUMP-NON-IMMEDIATE-OBJECT (FUNCTION (&REST T)
#<KERNEL::STANDARD-CLASS JS::EXPRESSION {488EE195}>) #<Fasl-File
"/usr/home/zeno/lisp/lib/parenscript/js-h$
  4: (C::DUMP-OBJECT (FUNCTION (&REST T) #<KERNEL::STANDARD-CLASS
JS::EXPRESSION {488EE195}>) #<Fasl-File
"/usr/home/zeno/lisp/lib/parenscript/js-html.x86f">)
  5: (C::DUMP-ONE-ENTRY #S(C::ENTRY-INFO :CLOSURE-P NIL :OFFSET
#<NEW-ASSEM:LABEL 1> :NAME JS::JS-CSS-INLINE :ARGUMENTS "(&rest
forms)" :TYPE (FUNCTION # #)) 236$
  6: (C::FASL-DUMP-COMPONENT #<C:COMPONENT 482BDAAD  NAME=
"DEFINE-JS-COMPILER-MACRO CSS-INLINE"> #<NEW-ASSEM:SEGMENT 482C32A5 
NAME= "Regular"> 320 ((# . 2) (# $
  7: (C::NATIVE-COMPILE-COMPONENT #<C:COMPONENT 482BDAAD  NAME=
"DEFINE-JS-COMPILER-MACRO CSS-INLINE">)
  8: (C::COMPILE-COMPONENT #<C:COMPONENT 482BDAAD  NAME=
"DEFINE-JS-COMPILER-MACRO CSS-INLINE">)
  9: (C::COMPILE-TOP-LEVEL (#<LAMBDA 482B741D  NAME= "Top-Level Form" 
TYPE= #  WHERE-FROM= :DEFINED  VARS= NIL>) NIL)




and here the last cmucl messages:

; Byte Compiling Top-Level Form:

; /usr/home/zeno/lisp/lib/parenscript/js.x86f written.
; Compilation finished in 0:00:57.
; Loading #P"/usr/home/zeno/lisp/lib/parenscript/js.x86f".

; Python version 1.1, VM version Intel x86 on 06 JAN 06 03:45:06 pm.
; Compiling: /usr/home/zeno/lisp/lib/parenscript/js-html.lisp 01 JAN
06 12:32:00 pm

; Converted OPTIMIZE-STRING-LIST.
; Compiling DEFUN OPTIMIZE-STRING-LIST:
; Converted PROCESS-HTML-FORMS.
; Compiling DEFUN PROCESS-HTML-FORMS:
; Converted JS-HTML.
; Compiling DEFINE-JS-COMPILER-MACRO HTML:
; Converted PROCESS-CSS-FORMS.
; Compiling DEFUN PROCESS-CSS-FORMS:
; Converted JS-CSS-INLINE.
; Compiling DEFINE-JS-COMPILER-MACRO CSS-INLINE: