mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-23 13:01:42 -08:00
Code Issues Projects Releases Packages Wiki Activity

typep: add regression test for fundamental-streams and typep

Browse source
This commit is contained in:
Daniel Kochmanski 2017-09-29 16:25:26 +02:00
parent c41407fbea
commit 95c2f0f8e9
1 changed files with 10 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

10
src/tests/normal-tests/compiler.lsp
View file

@ -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))))