;;;; *************************************************************************
(in-package #:uffi-tests)
;;;; *************************************************************************
(in-package #:uffi-tests)
(deftest :fvarst.1 *fvar-addend* 3)
(deftest :fvarst.2 (uffi:get-slot-value *fvar-struct* 'fvar-struct 'i) 42)
(deftest :fvarst.3 (= (+ *fvar-addend*
(deftest :fvarst.1 *fvar-addend* 3)
(deftest :fvarst.2 (uffi:get-slot-value *fvar-struct* 'fvar-struct 'i) 42)
(deftest :fvarst.3 (= (+ *fvar-addend*
t)
(deftest :fvarst.4 (uffi:get-slot-value *fvar-struct* 'fvar-struct 'd) 3.2d0)
(deftest :fvarst.5 (= (uffi:get-slot-value *fvar-struct* 'fvar-struct 'd)
t)
(deftest :fvarst.4 (uffi:get-slot-value *fvar-struct* 'fvar-struct 'd) 3.2d0)
(deftest :fvarst.5 (= (uffi:get-slot-value *fvar-struct* 'fvar-struct 'd)
(let ((orig (uffi:get-slot-value *fvar-struct* 'fvar-struct 'i)))
(decf (uffi:get-slot-value *fvar-struct* 'fvar-struct 'i) 10)
(prog1
(let ((orig (uffi:get-slot-value *fvar-struct* 'fvar-struct 'i)))
(decf (uffi:get-slot-value *fvar-struct* 'fvar-struct 'i) 10)
(prog1