Timeouts #N

telegram.lisp

@@ -35,7 +35,8 @@
 				     :use-connection-pool t
 				     :force-binary t))
 		       (bordeaux-threads:timeout (e)
-			 (error e)))
+			 (declare (ignore e))
+			 (error "Timeout")))
 		       :external-format :utf8)
                     :object-as :alist)))
     (unless (aget "ok" response)

vk.lisp

@@ -22,7 +22,8 @@
 	    (error (aget "error_msg" (aget "error" response))))
 	  (aget "response" response)))
     (bordeaux-threads:timeout (e)
-      (error e))))
+      (declare (ignore e))
+      (error "Timeout"))))
 
 (defun vk-wall-get (&key owner-id domain offset count filter extended)
   (%vk-api-call "wall.get"