-;;; Message logging
-
-;; TODO: define and signal conditions based on log-level
-
-;; (defcallback log-handler (nil (domain (copy-of string))
-;; (log-level int)
-;; (message (copy-of string)))
-;; (error "~A: ~A" domain message))
-
-;; (setf (extern-alien "log_handler" system-area-pointer) (callback log-handler))
-
-