Hi,
Two suggestions:
1. Could we have a plural form of WITH-FOREIGN-POINTER (similarly to WITH-FOREIGN-OBJECTS, WITH-FOREIGN-STRINGS).
2. In my own code, I usually use something like this:
(defmacro with-multiple-bindings (macro) "Define a version of `macro' with multiple arguments, given as a list. Application of `macro' will be nested. The new name is the plural of the old one (generated using format)." (let ((plural (intern (format nil "~aS" macro)))) `(defmacro ,plural (bindings &body body) ,(format nil "Multiple binding version of ~(~a~)." macro) (if bindings `(,',macro ,(car bindings) (,',plural ,(cdr bindings) ,@body)) `(progn ,@body)))))
(with-multiple-bindings with-foreign-pointer)
Incorporating something similar would replace the repetitions in the CFFI code, and make it easier to define plural forms.
Cheers,
Tamas
I like the idea of 2; it seems general enough that it belongs in alexandria.
Liam
On Wed, Dec 9, 2009 at 9:10 AM, Tamas K Papp tkpapp@gmail.com wrote:
Hi,
Two suggestions:
- Could we have a plural form of WITH-FOREIGN-POINTER (similarly to
WITH-FOREIGN-OBJECTS, WITH-FOREIGN-STRINGS).
- In my own code, I usually use something like this:
(defmacro with-multiple-bindings (macro) "Define a version of `macro' with multiple arguments, given as a list. Application of `macro' will be nested. The new name is the plural of the old one (generated using format)." (let ((plural (intern (format nil "~aS" macro)))) `(defmacro ,plural (bindings &body body) ,(format nil "Multiple binding version of ~(~a~)." macro) (if bindings `(,',macro ,(car bindings) (,',plural ,(cdr bindings) ,@body)) `(progn ,@body)))))
(with-multiple-bindings with-foreign-pointer)
Incorporating something similar would replace the repetitions in the CFFI code, and make it easier to define plural forms.
Cheers,
Tamas
cffi-devel mailing list cffi-devel@common-lisp.net http://common-lisp.net/cgi-bin/mailman/listinfo/cffi-devel
OK, consider the code to be in the public domain.
define-with-multiple-bindings or something similar would probably be a better name.
Tamas
On Wed, 09 Dec 2009 19:16:50 -0500, Liam Healy wrote:
I like the idea of 2; it seems general enough that it belongs in alexandria.
Liam
On Wed, Dec 9, 2009 at 9:10 AM, Tamas K Papp tkpapp@gmail.com wrote:
Hi,
Two suggestions:
- Could we have a plural form of WITH-FOREIGN-POINTER (similarly to
WITH-FOREIGN-OBJECTS, WITH-FOREIGN-STRINGS).
- In my own code, I usually use something like this:
(defmacro with-multiple-bindings (macro) "Define a version of `macro' with multiple arguments, given as a list. Application of `macro' will be nested. The new name is the plural of the old one (generated using format)." (let ((plural (intern (format nil "~aS" macro)))) `(defmacro ,plural (bindings &body body) ,(format nil "Multiple binding version of ~(~a~)." macro) (if bindings `(,',macro ,(car bindings) (,',plural ,(cdr bindings) ,@body)) `(progn ,@body)))))
(with-multiple-bindings with-foreign-pointer)
Incorporating something similar would replace the repetitions in the CFFI code, and make it easier to define plural forms.
Cheers,
Tamas
_______________________________________________ cffi-devel mailing list cffi-devel@common-lisp.net http://common-lisp.net/cgi-bin/mailman/listinfo/cffi-devel
-
Liam Healy -
Tamas K Papp