- (cons cross-byte vals)
- (list store)
- `(let ((,(car stores) (cl:deposit-field ,store (uncross-byte ,btemp) ,access-form)))
- ,store-form
- ,store)
- `(cl:mask-field (uncross-byte ,btemp) ,access-form)))))
+ (cons cross-byte vals)
+ (list store)
+ `(let ((,(car stores) (cl:deposit-field ,store (uncross-byte ,btemp) ,access-form)))
+ ,store-form
+ ,store)
+ `(cl:mask-field (uncross-byte ,btemp) ,access-form)))))