From: Kevin M. Rosenberg <kevin@rosenberg.net>
Date: Tue, 3 Aug 2004 14:45:58 +0000 (+0000)
Subject: r9839: disable test on lispworks, add note
X-Git-Tag: v1.6.1~92
X-Git-Url: http://git.kpe.io/?a=commitdiff_plain;h=069f5e289f67cbe0507724db002497d4472f926f;p=uffi.git

r9839: disable test on lispworks, add note
---

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)