655
656
657
658
659
660
661
662
663
664
665
666
667
668
669
670
671
672
|
(exit 1))))
homehost-required))))
;;======================================================================
;; Misc setup stuff
;;======================================================================
(debug:setup (cond
((args:get-arg "-debug-noprop") 'noprop)
((args:get-arg "-debug") #t)
(else #f)))
;; (if (args:get-arg "-logging")(set! *logging* #t))
;;(if (debug:debug-mode 3) ;; we are obviously debugging
;; (set! open-run-close open-run-close-no-exception-handling))
(if (args:get-arg "-itempatt")
|
|
<
<
<
|
655
656
657
658
659
660
661
662
663
664
665
666
667
668
669
|
(exit 1))))
homehost-required))))
;;======================================================================
;; Misc setup stuff
;;======================================================================
(common:debug-setup)
;; (if (args:get-arg "-logging")(set! *logging* #t))
;;(if (debug:debug-mode 3) ;; we are obviously debugging
;; (set! open-run-close open-run-close-no-exception-handling))
(if (args:get-arg "-itempatt")
|