Mercurial > hg > audiodb

changeset 633:1b3b303957bd

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Improve error reporting in sb-alien bindings
author mas01cr
date Tue, 29 Sep 2009 16:23:37 +0000
parents 41ef9e165c38
children 37fc7411e1ef
files bindings/sb-alien/library.lisp
diffstat 1 files changed, 2 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/bindings/sb-alien/library.lisp	Wed Sep 23 17:54:37 2009 +0000
+++ b/bindings/sb-alien/library.lisp	Tue Sep 29 16:23:37 2009 +0000
@@ -4,13 +4,13 @@
   `(defun ,name ,arglist
      (let ((result (,llname ,@arglist)))
        (unless (eql 0 result)
-         (error "~S on ~{~S ~}failed." ',name (list ,@arglist))))))
+         (error "~@<~S on ~{~S ~}failed.~@:>" ',name (list ,@arglist))))))
 
 (defmacro define-pointer-checking-function (name arglist llname)
   `(defun ,name ,arglist
      (let ((result (,llname ,@arglist)))
        (when (null-alien result)
-         (error "~S on ~{~S ~}failed." ',name (list ,@arglist)))
+         (error "~@<~S on ~{~S ~}failed.~@:>" ',name (list ,@arglist)))
        result)))
 
 (define-alien-type adb-t