X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=tests%2Fpointers.lisp;h=716844893801679bbd6b03d59db6dda65209b99e;hb=5d4295830e68c889ba2df9d9f88e896a70f20d7a;hp=886ea517816b30f03046b659940143b1d48f2b10;hpb=868ae7fad94b80592524dea37eae1000075605c6;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)