Is it known when the WITH-STANDARD-IO-SYNTAX.23 regression started? (LET ((*PRINT-PPRINT-DISPATCH* (COPY-PPRINT-DISPATCH NIL))) (SET-PPRINT-DISPATCH (QUOTE SYMBOL) (FUNCTION (LAMBDA (STREAM OBJ) (DECLARE (IGNORE OBJ)) (WRITE-STRING "FOO" STREAM)))) (LIST (LET ((*PRINT-PRETTY* T)) (PRINC-TO-STRING (QUOTE BAR))) (WITH-STANDARD-IO-SYNTAX (LET ((*PRINT-PRETTY* T)) (PRINC-TO-STRING (QUOTE BAR)))))) ("FOO" "FOO") It should say ("FOO" "BAR") It might be when the Stream code was being done? On Thu, Feb 25, 2010 at 10:36 AM, Ville Voutilainen <ville.voutilainen@gmail.com> wrote:
On 25 February 2010 19:35, Mark Evenson <evenson@panix.com> wrote:
I wrote the attached utility based on SET-DIFFENCE to parse and report on a simple s-expr based database of test results, and I have also attached the tests results I have collected over the last day. These results now contradict my earlier email, showing: CL-USER> (difference 'compileit 'r12506 '0.18.0) R12506: 34 failures NIL 0.18.0: 35 failures (MAKE-BROADCAST-STREAM.8) NIL CL-USER> (difference 'doit 'r12506 '0.18.0) R12506: 33 failures NIL 0.18.0: 34 failures (MAKE-BROADCAST-STREAM.8)
Looks good. Store this utility somewhere in our source tree, please?
_______________________________________________ armedbear-devel mailing list armedbear-devel@common-lisp.net http://common-lisp.net/cgi-bin/mailman/listinfo/armedbear-devel