# HG changeset patch
# User mas01cr
# Date 1254241417 0
# Node ID 1b3b303957bd3b53f7ed8530dc49009002456020
# Parent  41ef9e165c38a213e91c60b99983fb45c727011f
Improve error reporting in sb-alien bindings

diff -r 41ef9e165c38 -r 1b3b303957bd bindings/sb-alien/library.lisp
--- 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