X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Funix.lisp;h=9199ccb9daa06cf83d7e2eeafa22f64d749e3b47;hb=1b650be8b800cf96e2c268ae317fb26d0bf36827;hp=adc5efc38fbd54ae6aa01e2599a9f9ae6292c307;hpb=506253505641855dc8bb87033f7af894904f848b;p=sbcl.git

diff --git a/src/code/unix.lisp b/src/code/unix.lisp
index adc5efc..9199ccb 100644
--- a/src/code/unix.lisp
+++ b/src/code/unix.lisp
@@ -759,7 +759,7 @@
 			(slot (slot itvo 'it-value) 'tv-usec))
 		which (alien-sap (addr itvn))(alien-sap (addr itvo))))))
 
-(defmacro sb!ext::with-timeout (expires &body body)
+(defmacro sb!ext:with-timeout (expires &body body)
   "Execute the body, interrupting it with a SIGALRM after at least
 EXPIRES seconds have passed.  Uses Unix setitimer(), restoring any
 previous timer after the body has finished executing"
@@ -779,8 +779,8 @@ previous timer after the body has finished executing"
 		   (unix-setitimer :real 0 0 ,s ,u)
 		   ,@body)
 	      (unix-setitimer :real 0 0 ,saved-seconds ,saved-useconds))
-	    ,@body)))))
-
+	    (progn
+	      ,@body))))))
 
 
 (defconstant ENOENT 2) ; Unix error code, "No such file or directory"