From 66f5a25945b334732c2420fbe73b389e89de1669 Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Sun, 3 Apr 2005 23:58:11 +0000 Subject: [PATCH] r10373: 2005-04-03 Kevin Rosenberg (kevin@rosenberg.net) * src/objects.lisp: Commit patch from James Bielman to add def-foreign-var support for OpenMCL --- ChangeLog | 4 ++++ debian/changelog | 6 ++++++ src/objects.lisp | 11 ++++++++--- 3 files changed, 18 insertions(+), 3 deletions(-) diff --git a/ChangeLog b/ChangeLog index 0755118..4ca19bb 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,7 @@ +2005-04-03 Kevin Rosenberg (kevin@rosenberg.net) + * src/objects.lisp: Commit patch from James Bielman to add + def-foreign-var support for OpenMCL + 2005-03-03 Kevin Rosenberg (kevin@rosenberg.net) * src/primitives.lisp: Add support for :union types [patch from Cyrus Harmon] diff --git a/debian/changelog b/debian/changelog index d20f5b0..9098372 100644 --- a/debian/changelog +++ b/debian/changelog @@ -1,3 +1,9 @@ +cl-uffi (1.4.34-1) unstable; urgency=low + + * New upstream + + -- Kevin M. Rosenberg Sun, 3 Apr 2005 17:55:49 -0600 + cl-uffi (1.4.33-1) unstable; urgency=low * New upstream diff --git a/src/objects.lisp b/src/objects.lisp index 358763e..1510d24 100644 --- a/src/objects.lisp +++ b/src/objects.lisp @@ -238,9 +238,9 @@ an array of TYPE with size SIZE. The TYPE parameter is evaluated." `(let ((,binding-name ,pointer)) ,@body)) -#-(or lispworks cmu scl sbcl allegro) +#-(or lispworks cmu scl sbcl allegro openmcl) (defmacro with-cast-pointer ((binding-name pointer type) &body body) - (declare (ignore binding-name pointer type)) + (declare (ignore binding-name pointer type body)) '(error "WITH-CAST-POINTER not (yet) implemented for ~A" (lisp-implementation-type))) @@ -266,7 +266,12 @@ an array of TYPE with size SIZE. The TYPE parameter is evaluated." :module ,module) (define-symbol-macro ,lisp-name (fli:dereference (,lisp-name) :copy-foreign-object nil))) - #-(or allegro cmu scl sbcl lispworks) + #+(and openmcl darwinppc-target) + (setf foreign-name (concatenate 'string "_" foreign-name)) + #+openmcl + `(define-symbol-macro ,lisp-name + (deref-pointer (ccl:foreign-symbol-address ,foreign-name) ,var-type)) + #-(or allegro cmu scl sbcl lispworks openmcl) `(define-symbol-macro ,lisp-name '(error "DEF-FOREIGN-VAR not (yet) defined for ~A" (lisp-implementation-type))))) -- 2.34.1