Re: Some comments on the ansi test suite

>>>>> "Sam" == Sam Steingold <[email protected]> writes:

    >> Perhaps something like
    >> 
    >> (check-for-bug :iofkts-legacy-881
    >> (let ((a (make-array 10
    >> :element-type 'character
    >> :fill-pointer 0)))
    >> (with-output-to-string (s a) (princ 123 s))
    >> (with-output-to-string (s a) (princ 4567 s))
    >> (with-output-to-string (s a)
    >> (princ 890 s))
    >> (with-output-to-string (s a)
    >> (princ (quote a) s))
    >> (if (adjustable-array-p a)
    >> (equalp a "0123456789A")
    >> (equalp a "0123456789")))
    >> T)

    Sam> this is incorrect: when A is not adjustable, an error is signaled.

I was being stupid.  Of course, you are right.

Can check-for-bug take Lisp code to compute the desired value?  That
would be good so we can say error if arrays with fill-pointer aren't
adjustable and T or the correct string if they are.

It would be nicer if the tests didn't have these compile-time
conditionals....

Ray



-------------------------------------------------------
This sf.net email is sponsored by:ThinkGeek
Welcome to geek heaven.
http://thinkgeek.com/sf