From 95c2f0f8e933abce84e3643f30c705cffbfed392 Mon Sep 17 00:00:00 2001 From: Daniel Kochmanski Date: Fri, 29 Sep 2017 16:25:26 +0200 Subject: [PATCH] typep: add regression test for fundamental-streams and typep --- src/tests/normal-tests/compiler.lsp | 10 ++++++++++ 1 file changed, 10 insertions(+) diff --git a/src/tests/normal-tests/compiler.lsp b/src/tests/normal-tests/compiler.lsp index 2114ec4e6..21afd59f8 100644 --- a/src/tests/normal-tests/compiler.lsp +++ b/src/tests/normal-tests/compiler.lsp @@ -1269,3 +1269,13 @@ '(defun flesh-failures () (load-time-value (coerce #(0) '(simple-array (unsigned-byte 8) (1))))))))) + +;;; Date 2017-09-29 +;;; +;;; Description +;;; +;;; `typep' compiler macroexpansion did treat +;;; `gray:fundamental-stream' as subtype of `ext:ansi-stream'. +(test cmp.0059.gray-is-not-ansi + (let ((stream (make-instance 'gray:fundamental-stream))) + (is-false (typep stream 'ext:ansi-stream))))