minor fix in the READ-DEADLINE test for CCL: added UNWRAP-STREAM-P = :CALLER case

master
avodonosov 2010-05-25 21:15:42 +00:00
parent 82aec1cf32
commit 92911d1e1c
1 changed files with 1 additions and 1 deletions

View File

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