279
280
281
282
283
284
285
286
287
288
289
290
291
292
|
(case res
((server-started)
(if (> num-tries 0)
(begin
(thread-sleep! 2)
(rmt:general-open-connection remote apath dbname num-tries: (- num-tries 1)))
'failed))
(else
res))))))
;;======================================================================
;; Defaults to current area
;;
|
>
|
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
|
(case res
((server-started)
(if (> num-tries 0)
(begin
(thread-sleep! 2)
(rmt:general-open-connection remote apath dbname num-tries: (- num-tries 1)))
'failed))
(else
res))))))
;;======================================================================
;; Defaults to current area
;;
|