t/render.lisp: use pstream-p

defaultxr · Nov 22, 2024 · 22ac619 · 22ac619
1 parent d8ba9b5
commit 22ac619
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/t/render.lisp b/t/render.lisp
@@ -8,7 +8,7 @@
   "Test the `render' function"
   (is (typep (render (pbind :dur 1) :eseq) 'eseq)
       "render :eseq does not coerce to an eseq")
-  (is (typep (render (pseq (list 1 2 3)) :pstream) 'pstream)
+  (is (pstream-p (render (pseq (list 1 2 3)) :pstream))
       "render :pstream does not coerce to a pstream")
   (is (listp (render (pseq (list 1 2 3)) :list))
       "render :list does not coerce to a list")