projects
/
uffi.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r1536: *** empty log message ***
[uffi.git]
/
src
/
objects.cl
diff --git
a/src/objects.cl
b/src/objects.cl
index 6167636a7fb1c57a36f9893215788d0ddb73bdf4..a4b4a6ec2ba5a82641f25b5c0e57819a1ccb663e 100644
(file)
--- a/
src/objects.cl
+++ b/
src/objects.cl
@@
-9,7
+9,7
@@
;;;;
;;;; Copyright (c) 2002 Kevin M. Rosenberg
;;;;
;;;;
;;;; Copyright (c) 2002 Kevin M. Rosenberg
;;;;
-;;;; $Id: objects.cl,v 1.
2 2002/03/10 00:11:4
7 kevin Exp $
+;;;; $Id: objects.cl,v 1.
3 2002/03/10 11:13:0
7 kevin Exp $
;;;;
;;;; This file is part of the UFFI.
;;;;
;;;;
;;;; This file is part of the UFFI.
;;;;
@@
-54,10
+54,6
@@
#+cmu `(alien:null-alien ,obj)
)
#+cmu `(alien:null-alien ,obj)
)
-(def-constant +null-c-string-pointer+
- #+cmu nil
- #+allegro 0
- #+lispworks (fli:make-pointer :address 0 :type '(:unsigned :char)))
(defmacro make-null-pointer (type)
#+(or allegro cmu) (declare (ignore type))
(defmacro make-null-pointer (type)
#+(or allegro cmu) (declare (ignore type))