ABCL: nicer DEFCALLBACK expansion
authorStelian Ionescu <sionescu@cddr.org>
Tue, 19 Mar 2013 16:06:30 +0000 (17:06 +0100)
committerStelian Ionescu <sionescu@cddr.org>
Tue, 19 Mar 2013 16:06:30 +0000 (17:06 +0100)
src/cffi-abcl.lisp

index 72ac6f3..1b98ce1 100644 (file)
@@ -485,7 +485,8 @@ WITH-POINTER-TO-VECTOR-DATA."
 (defvar *callbacks* (make-hash-table))
 
 (defmacro convert-args-to-lisp-values (arg-names &rest body)
-  (let ((gensym-args (loop :for name :in arg-names :collecting (gensym))))
+  (let ((gensym-args (loop :for name :in arg-names
+                           :collecting (gensym (format nil "~A-~A-" '#:callback-arg name)))))
     `(lambda (,@gensym-args)
        (let ,(loop 
                 :for arg :in arg-names