Permalink
Browse files

Tests for cffi-libffi working

Fix an error in the recursive call in libffi-type-pointer for
foreign-struct-type, now parse the slot-type, which is unparsed.  This
makes FSBV.3 and FSBV.4 succeed.  Removed quote from test FSBV.2; this
makes FSBV.2 succeed.
  • Loading branch information...
1 parent 3141cc0 commit 03297bd68848a0c302cca80162442bf1826b4788 @liamh liamh committed May 5, 2012
Showing with 2 additions and 2 deletions.
  1. +1 −1 libffi/cstruct.lisp
  2. +1 −1 tests/fsbv.lisp
View
@@ -46,7 +46,7 @@
(type-pointer-array
(cffi:foreign-alloc :pointer :count (1+ nitems))))
(loop for slot in (slots-in-order type)
- for ltp = (libffi-type-pointer (cffi::slot-type slot))
+ for ltp = (libffi-type-pointer (parse-type (slot-type slot)))
with slot-counter = 0
do (if ltp
(loop
View
@@ -49,7 +49,7 @@
;;; Call and return struct by value
(deftest fsbv.2
(doublepair '(1 . 2))
- '(2 . 4))
+ (2 . 4))
;;; Call recursive structure by value
(deftest fsbv.3

0 comments on commit 03297bd

Please sign in to comment.