;; TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
;; SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
-;; $Id: ffi.lisp,v 1.20 2005-04-23 16:48:50 espen Exp $
+;; $Id: ffi.lisp,v 1.22 2006-02-06 11:49:50 espen Exp $
(in-package "GLIB")
(%heap-alien
(make-heap-alien-info
:type (parse-alien-type ftype #+sbcl nil)
- :sap-form (foreign-symbol-address name))))
+ :sap-form (let ((address (foreign-symbol-address name)))
+ (etypecase address
+ (integer (int-sap address))
+ (system-area-pointer address))))))
(translate-arguments (mapcar #'to-alien-function arg-types))
(translate-return-value (from-alien-function return-type))
(cleanup-arguments (mapcar #'cleanup-function arg-types)))
(def-type-method writer-function ())
(def-type-method reader-function ())
+(def-type-method weak-reader-function ())
(def-type-method destroy-function ())
(def-type-method unbound-value ()
(defmethod copy-from-alien-function ((type t) &rest args)
(apply #'from-alien-function type args))
+(defmethod weak-reader-function ((type symbol) &rest args)
+ (apply #'reader-function type args))
+
(defmethod alien-type ((type (eql 'signed-byte)) &rest args)
(declare (ignore type))