Permalink
Browse files

fixes for acl60

  • Loading branch information...
1 parent d0a41b7 commit 3cdf1253c0a185b8ffc3afa78f262b9676c510dd jkf committed Oct 16, 2001
Showing with 6 additions and 4 deletions.
  1. +2 −2 macs.cl
  2. +4 −2 test/t-aserve.cl
View
@@ -24,7 +24,7 @@
;;
;;
-;; $Id: macs.cl,v 1.14 2001/10/12 21:51:29 jkf Exp $
+;; $Id: macs.cl,v 1.15 2001/10/16 17:55:41 jkf Exp $
;; Description:
;; useful internal macros
@@ -203,7 +203,7 @@
#-(version>= 6 1)
(defmacro with-timeout-local ((time &rest actions) &rest body)
;; same as with-timeout
- `(with-timeout (,time ,@actions) ,@body)) ; ok w-t
+ `(mp:with-timeout (,time ,@actions) ,@body)) ; ok w-t
#+(version>= 6 1)
View
@@ -22,7 +22,7 @@
;; Suite 330, Boston, MA 02111-1307 USA
;;
;;
-;; $Id: t-aserve.cl,v 1.32 2001/10/16 16:58:20 jkf Exp $
+;; $Id: t-aserve.cl,v 1.33 2001/10/16 17:55:41 jkf Exp $
;; Description:
;; test iserve
@@ -1270,7 +1270,9 @@
(force-output sock)
; try sending data periodically but in enough time to
- ; bypass the timeout
+ ; bypass the timeout. This only works in the io-timeout
+ ; situation.
+ #+io-timeout
(dotimes (i 3)
(sleep (max 1 (- net.aserve:*http-io-timeout* 10)))
(format t "send packet~%")(force-output)

0 comments on commit 3cdf125

Please sign in to comment.