+ #+(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)