Re: Showing two test failures...

On Sun, Aug 24 2014, Paul Bowyer wrote:

> 2 unexpected results:
> FAILED compile-defun-4
> FAILED find-definition\.2-1
[...]
> Is there now some reason why my simple script should cause the
> problem, or are these errors valid?

The source of the errors seem to be the recent changes to SBCL's reader;
not your script.

compile-defun-4 fails due to the "improved" backquote stuff.  I haven't
followed the discussion.  Why is it neccesary to that ,X returns
a struct instead of somehing more traditionanal like (unquote X)?

find-definition\.2-1 fails because a change to set-macro-character.
This code used to work:

(let* ((rt (copy-readtable nil)))
  (flet ((wrap (fun) (lambda (&rest args) (apply args fun))))
    (list
     (assert (get-dispatch-macro-character #\# #\. rt))
     (multiple-value-bind (fun nt) (get-macro-character #\# rt)
       (set-macro-character #\# (wrap fun) nt rt))
     (assert (get-dispatch-macro-character #\# #\. rt)))))

but no longer does.  Does somebody know if this code is actually
non-portable?

Helmut