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)")))))
|
||||
|
||||
#+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)
|
||||
|
|
Loading…
Reference in New Issue