[Openmcl-devel] more ansi-test bugs

[Eric Marsden]

Hi,

Some more bugs revealed by the ansi-test suite, still on Linux/AMD64.
Congratulations for all the quick fixes !


? (LET ((OS (MAKE-STRING-OUTPUT-STREAM)))
     (LET ((*TERMINAL-IO* (MAKE-TWO-WAY-STREAM (MAKE-STRING-INPUT-STREAM "") OS)))
        (CLEAR-OUTPUT T)))
  ==> segfault

? (let ((s (make-concatenated-stream))) (close s) (open-stream-p s))
T

? (LET ((*STANDARD-OUTPUT* (MAKE-STRING-OUTPUT-STREAM))) (CLEAR-OUTPUT NIL))
> Error: value NIL is not of the expected type STRUCTURE.
> While executing: CCL::%IOBLOCK-CLEAR-OUTPUT, in process listener(1).


? (LET* ((IS (MAKE-STRING-INPUT-STREAM "foo")) (OS (MAKE-STRING-OUTPUT-STREAM)) (S (MAKE-ECHO-STREAM IS OS))) (VALUES (WRITE-CHAR #\0 S) (CLEAR-OUTPUT S)))
> Error: value NIL is not of the expected type STRUCTURE.
> While executing: CCL::%IOBLOCK-CLEAR-OUTPUT, in process listener(1).


? (map '(or (vector t 3) (vector t 5)) #'identity (list 1 2 3))
> Error: value (#<ARRAY-CTYPE (VECTOR T 5)>) is not of the expected type (SATISFIES CCL::CTYPE-P).
> While executing: CCL::TYPE-SPECIFIER, in process listener(1).


? (defvar *c* (class-of (make-array 1 :element-type 'fixnum :initial-element 1)))
*C*
? (subtypep *c* *c*)
T
T
? (subtypep (class-name *c*) *c*)
NIL     ;; <-- expecting T here
T

-- 
Eric Marsden