X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=tests%2Fpointers.lisp;h=716844893801679bbd6b03d59db6dda65209b99e;hb=069f5e289f67cbe0507724db002497d4472f926f;hp=886ea517816b30f03046b659940143b1d48f2b10;hpb=b9b9c09eb1776edc5e1e35b533df94f50e67b770;p=uffi.git

diff --git a/tests/pointers.lisp b/tests/pointers.lisp
index 886ea51..7168448 100644
--- a/tests/pointers.lisp
+++ b/tests/pointers.lisp
@@ -52,6 +52,10 @@
       (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)