-UFFI now passes all tests with OpenMCL in Debian.
+UFFI now passes all tests with SBCL & OpenMCL in Debian.
UFFI now uses ASDF system definition files.
-
-UFFI now supports OpenMCL along with MCL.
;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Feb 2002
;;;;
-;;;; $Id: objects.lisp,v 1.2 2002/10/14 01:51:15 kevin Exp $
+;;;; $Id: objects.lisp,v 1.3 2002/10/14 07:08:49 kevin Exp $
;;;;
;;;; This file, part of UFFI, is Copyright (c) 2002 by Kevin M. Rosenberg
;;;;
)
(defmacro make-null-pointer (type)
- #+(or allegro cmu sbcl mcl) (declare (ignore type))
- #+cmu `(system:int-sap 0)
- #+sbcl `(sb-sys:int-sap 0)
+ #+(or allegro mcl) (declare (ignore type))
+ #+cmu `(alien:sap-alien (system:int-sap 0) (* ,(convert-from-uffi-type (eval type) :type)))
+ #+sbcl `(sb-alien:sap-alien (sb-sys:int-sap 0) (* ,(convert-from-uffi-type (eval type) :type)))
+ #+lispworks `(fli:make-pointer :address 0 :type (quote ,(convert-from-uffi-type (eval type) :type)))
#+allegro 0
- #+lispworks `(fli:make-pointer :address 0 :type ,type)
#+mcl `(ccl:%null-ptr)
)