94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
|
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
|
-
-
-
-
-
-
+
+
+
+
+
+
|
(apply print params)
)))))
(define (debug:print-info n . params)
(if (debug:debug-mode n)
(with-output-to-port (current-error-port)
(lambda ()
(let ((res (format#format #f "INFO: (~a) ~a" n (apply conc params))))
(if *logging*
(db:log-event res)
;; (apply print "pid:" (current-process-id) " " "INFO: (" n ") " params) ;; res)
(apply print "INFO: (" n ") " params) ;; res)
))))))
|