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