[parenscript-devel] NESTING-DEPTH crashes on improper lists

[Vladimir Sedach]

Just pushed a fix. Thanks for the bug report.

Vladimir

2010/11/8  <sblist at me.com>:
> This causes compilations of forms like the following to fail:
>
> (ps (defun foo (a)
>          (when a
>            (destructuring-bind (b . c)
>                bar
>              (list b c)))))
>
> => TYPE-ERROR
>
> Backtrace:
>  0: (NESTING-DEPTH (B . C))
>  1: (NESTING-DEPTH (DESTRUCTURING-BIND (B . C) BAR (LIST B C)))
>  2: (NESTING-DEPTH (PROGN (DESTRUCTURING-BIND (B . C) BAR (LIST B C))))
>  3: (NESTING-DEPTH (IF A (PROGN (DESTRUCTURING-BIND (B . C) BAR (LIST B C)))))
>
>
> _______________________________________________
> parenscript-devel mailing list
> parenscript-devel at common-lisp.net
> http://common-lisp.net/cgi-bin/mailman/listinfo/parenscript-devel
>