projects
/
uffi.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
b9b9c09
)
r9839: disable test on lispworks, add note
author
Kevin M. Rosenberg
<kevin@rosenberg.net>
Tue, 3 Aug 2004 14:45:58 +0000
(14:45 +0000)
committer
Kevin M. Rosenberg
<kevin@rosenberg.net>
Tue, 3 Aug 2004 14:45:58 +0000
(14:45 +0000)
tests/pointers.lisp
patch
|
blob
|
history
diff --git
a/tests/pointers.lisp
b/tests/pointers.lisp
index 886ea517816b30f03046b659940143b1d48f2b10..716844893801679bbd6b03d59db6dda65209b99e 100644
(file)
--- a/
tests/pointers.lisp
+++ b/
tests/pointers.lisp
@@
-52,6
+52,10
@@
(uffi:convert-from-foreign-string fs))
"a")
(uffi:convert-from-foreign-string fs))
"a")
+;; This produces an array which needs fli:foreign-aref to access
+;; rather than fli:dereference
+
+#-lispworks
(deftest chptr.6
(uffi:with-foreign-object (fs '(:array :unsigned-char 128))
(setf (uffi:deref-array fs '(:array :unsigned-char) 0)
(deftest chptr.6
(uffi:with-foreign-object (fs '(:array :unsigned-char 128))
(setf (uffi:deref-array fs '(:array :unsigned-char) 0)