Better error reporting. Audio source handle

borodust · Dec 9, 2016 · f2929e2 · f2929e2
1 parent dd44cdc
commit f2929e2
Show file tree

Hide file tree

Showing 3 changed files with 12 additions and 4 deletions.
diff --git a/audio/source.lisp b/audio/source.lisp
@@ -1,8 +1,13 @@
 (in-package :cl-bodge.audio)
 
 
+(defhandle audio-source-handle
+    :initform (al:gen-source)
+    :closeform (al:delete-source *handle-value*))
+
+
 (defclass audio-source (al-object) ()
-  (:default-initargs :id (al:gen-source)))
+  (:default-initargs :handle (make-audio-source-handle)))
 
 
 (define-system-function make-audio-source audio-system (&key (system *system*))

diff --git a/cl-bodge.asd b/cl-bodge.asd
@@ -11,7 +11,7 @@
   :author "Pavel Korolev"
   :mailto "dev@borodust.org"
   :license "MIT"
-  :depends-on (alexandria log4cl local-time)
+  :depends-on (alexandria log4cl local-time dissect)
   :pathname "utils"
   :serial t
   :components ((:file "packages")

diff --git a/utils/utils.lisp b/utils/utils.lisp
@@ -16,8 +16,11 @@
   (with-gensyms (name)
     `(block ,name
        (handler-bind ((t (lambda (e)
-                           (log:error "Unhandled error: ~a" e)
-                           (return-from ,name))))
+                           (let ((error-text (with-output-to-string (stream)
+                                               (format stream "Unhandled error:~%")
+                                               (dissect:present e stream))))
+                             (log:error "~a" error-text)
+                             (return-from ,name)))))
          (progn ,@body)))))