- (* (max (arg-state-stack-frame-size arg-state) 4) word-bytes)
- (arg-tns)
- (invoke-alien-type-method :result-tn
- (alien-function-type-result-type type)
- nil)))))
-
-(define-vop (foreign-symbol-address)
- (:translate foreign-symbol-address)
+ (* (max (arg-state-stack-frame-size arg-state) 4) n-word-bytes)
+ (arg-tns)
+ (invoke-alien-type-method :result-tn
+ (alien-fun-type-result-type type)
+ nil)))))
+
+(define-vop (foreign-symbol-sap)
+ (:translate foreign-symbol-sap)