From 92911d1e1cddeb1e8ef1c481d082b3419f5967c3 Mon Sep 17 00:00:00 2001
From: avodonosov <avodonosov>
Date: Tue, 25 May 2010 21:15:42 +0000
Subject: [PATCH] minor fix in the READ-DEADLINE test for CCL: added
 UNWRAP-STREAM-P = :CALLER case

---
 test.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/test.lisp b/test.lisp
index 24332a0..3e3ffbc 100644
--- a/test.lisp
+++ b/test.lisp
@@ -283,7 +283,7 @@
 	(assert (equal (read-line socket) "(echo test)")))))
 
   #+clozure-common-lisp
-  (deftests read-deadline (usp nil t)
+  (deftests read-deadline (usp nil t :caller)
     (with-thread ("echo server for deadline test"
 		  (lambda () (init-server :unwrap-stream-p usp))
 		  #'test-server)