Commit 2b20da29 authored by Robert Goldman's avatar Robert Goldman
Browse files

Two further test fixes.

1. Accept any error from `read-stream-content-into-byte-vector.2`

2. Temporarily disable `test=.3` on Allegro because of a bug in
Allegro's `subtypep` (RT has no XFAIL).
parent 800faabc
Loading
Loading
Loading
Loading
+4 −8
Original line number Diff line number Diff line
@@ -1604,14 +1604,9 @@
    (handler-case
        (let ((stream (make-broadcast-stream)))
          (read-stream-content-into-byte-vector stream :initial-size 0))
      (type-error ()
        :type-error)
      (program-error ()
        :program-error))
  #-allegro
  :type-error
  #+allegro
  :program-error)
      (error ()
        :error))
  :error)

;;;; Macros

@@ -1788,6 +1783,7 @@
  t
  t)

#-allegro
(deftest type=.3
    (type= 'null '(and symbol list))
  t