projects
/
uffi.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r9776: fix for openmcl
[uffi.git]
/
src
/
objects.lisp
diff --git
a/src/objects.lisp
b/src/objects.lisp
index 57611321ff93a71458ce00d1db6a5ed621063a45..358763e41fc829c815845886a3e898dcf31bd733 100644
(file)
--- a/
src/objects.lisp
+++ b/
src/objects.lisp
@@
-121,11
+121,11
@@
an array of TYPE with size SIZE. The TYPE parameter is evaluated."
#+mcl `(ccl:pref ,ptr ,(convert-from-uffi-type type :deref))
)
#+mcl `(ccl:pref ,ptr ,(convert-from-uffi-type type :deref))
)
-#+
mcl
+#+
(and mcl (not openmcl))
(defmacro deref-pointer-set (ptr type value)
`(setf (ccl:pref ,ptr ,(convert-from-uffi-type type :deref)) ,value))
(defmacro deref-pointer-set (ptr type value)
`(setf (ccl:pref ,ptr ,(convert-from-uffi-type type :deref)) ,value))
-#+
mcl
+#+
(and mcl (not openmcl))
(defsetf deref-pointer deref-pointer-set)
(defmacro ensure-char-character (obj)
(defsetf deref-pointer deref-pointer-set)
(defmacro ensure-char-character (obj)