- ((:int :long :double :longlong t)
- (nth i types))
+ (:int
+ (case (nth i auto-list)
+ (:int32
+ :int32)
+ (:int64
+ :int64)
+ (t
+ t)))
+ (:double
+ (case (nth i auto-list)
+ (:double
+ :double)
+ (t
+ t)))
+ (:int32
+ (if (eq :int32 (nth i auto-list))
+ :int32
+ t))
+ (:int64
+ (if (eq :int64 (nth i auto-list))
+ :int64
+ t))
(uffi:with-foreign-object (high32-ptr :int)
(let ((low32 (atol64 char-ptr high32-ptr))
(high32 (uffi:deref-pointer high32-ptr :int)))
(if (zerop high32)
low32
(make-64-bit-integer high32 low32)))))
(uffi:with-foreign-object (high32-ptr :int)
(let ((low32 (atol64 char-ptr high32-ptr))
(high32 (uffi:deref-pointer high32-ptr :int)))
(if (zerop high32)
low32
(make-64-bit-integer high32 low32)))))