minor fix in the READ-DEADLINE test for CCL: added UNWRAP-STREAM-P = :CALLER case
parent
82aec1cf32
commit
92911d1e1c
|
@ -283,7 +283,7 @@
|
||||||
(assert (equal (read-line socket) "(echo test)")))))
|
(assert (equal (read-line socket) "(echo test)")))))
|
||||||
|
|
||||||
#+clozure-common-lisp
|
#+clozure-common-lisp
|
||||||
(deftests read-deadline (usp nil t)
|
(deftests read-deadline (usp nil t :caller)
|
||||||
(with-thread ("echo server for deadline test"
|
(with-thread ("echo server for deadline test"
|
||||||
(lambda () (init-server :unwrap-stream-p usp))
|
(lambda () (init-server :unwrap-stream-p usp))
|
||||||
#'test-server)
|
#'test-server)
|
||||||
|
|
Loading…
Reference in New Issue