2005-09-17 Kevin Rosenberg (kevin@rosenberg.net)
- * Version 1.5.2
+ * Version 1.5.4
* src/objects.lisp: prepend _ character for entry
- point on macosx as noted by Luis Oliveira
+ point on Allegro macosx, patch by Luis Oliveira
2005-07-05 Kevin Rosenberg (kevin@rosenberg.net)
* Version 1.5.0
'(error "WITH-CAST-POINTER not (yet) implemented for ~A"
(lisp-implementation-type)))
- (defun convert-external-name (name)
- "Add an underscore to NAME if necessary for the ABI."
- #+macosx (concatenate 'string "_" name)
- #-macosx name)
+#+(or allegro openmcl)
+(defun convert-external-name (name)
+ "Add an underscore to NAME if necessary for the ABI."
+ #+(or macosx darwinppc-target) (concatenate 'string "_" name)
+ #-(or macosx darwinppc-target) name)
(defmacro def-foreign-var (names type module)
#-lispworks (declare (ignore module))
:module ,module)
(define-symbol-macro ,lisp-name (fli:dereference (,lisp-name)
:copy-foreign-object nil)))
- #+(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))
+ (deref-pointer (ccl:foreign-symbol-address
+ ,(convert-external-name 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"