#85: CL-JSON throws an error under ABCL where SBCL doesn't. -------------------------+-------------------------------------------------- Reporter: ehuelsmann | Owner: mevenson Type: defect | Status: assigned Priority: major | Milestone: Component: compiler | Version: Resolution: | Keywords: -------------------------+-------------------------------------------------- Changes (by mevenson):
* owner: ehuelsmann => mevenson * status: new => assigned
Comment:
Reproduction of the bug away from CL-JSON:
{{{ (defvar *a* "initial")
(defun foo () (progv '(*a*) '((symbol-value '*a*)) (setf *a* "foo") (return-from foo)))
(defun bar () (format t "before: ~A~%" *a*) (foo) (format t "after: ~A~%" *a*))
}}}
Compiling and executing BAR shows {{{
CL-USER> (bar) before: initial after: foo NIL }}}
Which shows that the special binding hasn't been reset.