diff --git a/alexandria-1/tests.lisp b/alexandria-1/tests.lisp index 3c85d44c2da70b1e7542d305cec84145794d2641..112df9b1e37114813de54f9a23f398ca2d49c577 100644 --- a/alexandria-1/tests.lisp +++ b/alexandria-1/tests.lisp @@ -283,7 +283,7 @@ (eql-copy (copy-hash-table orig :test 'eql)) (equal-copy (copy-hash-table orig :test 'equal)) (equalp-copy (copy-hash-table orig :test 'equalp))) - (list (eql (hash-table-size eq-copy) (hash-table-size orig)) + (list #-allegro (eql (hash-table-size eq-copy) (hash-table-size orig)) (eql (hash-table-rehash-size eq-copy) (hash-table-rehash-size orig)) (hash-table-count eql-copy) @@ -293,7 +293,7 @@ (gethash (copy-seq foo) equal-copy) (gethash "FOO" equal-copy) (gethash "FOO" equalp-copy)))) - (t t 2 t nil t t nil t)) + (#-allegro t t 2 t nil t t nil t)) (deftest copy-hash-table.2 (let ((ht (make-hash-table)) @@ -1605,8 +1605,13 @@ (let ((stream (make-broadcast-stream))) (read-stream-content-into-byte-vector stream :initial-size 0)) (type-error () - :type-error)) - :type-error) + :type-error) + (program-error () + :program-error)) + #-allegro + :type-error + #+allegro + :program-error) ;;;; Macros @@ -1789,8 +1794,7 @@ t) (deftest type=.4 - (type= 'string '(satisfies emptyp)) - nil + (nth-value 0 (type= 'string '(satisfies emptyp))) nil) (deftest type=.5