- (setf (uffi:get-slot-value u 'tunion1 'uint)
- (+ (char-code #\A)
- (* 256 (char-code #\B))
- (* 65536 (char-code #\C))
- (* 16777216 255)))
+ (setf (uffi:get-slot-value u 'tunion1 'uint)
+ #-sparc
+ (+ (* 1 (char-code #\A))
+ (* 256 (char-code #\B))
+ (* 65536 (char-code #\C))
+ (* 16777216 128))
+ #+(or sparc sparc-v9)
+ (+ (* 16777216 (char-code #\A))
+ (* 65536 (char-code #\B))
+ (* 256 (char-code #\C))
+ (* 1 128))) ;set signed bit