- (eql (lvar-value offset) 0))
- 'sap)
- (t
- (extract-fun-args sap 'sap+ 2)
- '(lambda (sap offset1 offset2)
- (sap+ sap (+ offset1 offset2))))))
-
-(macrolet ((def (fun)
- `(deftransform ,fun ((sap offset) * *)
+ (eql (lvar-value offset) 0))
+ 'sap)
+ (t
+ (extract-fun-args sap 'sap+ 2)
+ '(lambda (sap offset1 offset2)
+ (sap+ sap (+ offset1 offset2))))))
+
+(macrolet ((def (fun &optional setp)
+ `(deftransform ,fun ((sap offset ,@(when setp `(new-value))) * *)