-(defun make-interpreted-function
- (&key name lambda-list env declarations documentation body source-location)
- (let ((function (%make-interpreted-function
- name lambda-list env declarations documentation body
- source-location)))
- (setf (sb!kernel:funcallable-instance-fun function)
- #'(lambda (&rest args)
- (interpreted-apply function args)))
- function))
-
-(defun interpreted-function-p (function)
- (typep function 'interpreted-function))
-
-(sb!int:def!method print-object ((obj interpreted-function) stream)
- (print-unreadable-object (obj stream
- :identity (not (interpreted-function-name obj)))
- (format stream "~A ~A" '#:interpreted-function
- (interpreted-function-name obj))))
+#-sb-xc-host
+(progn
+ (defun make-interpreted-function
+ (&key name lambda-list env declarations documentation body source-location)
+ (let ((function (%make-interpreted-function
+ name lambda-list env declarations documentation body
+ source-location)))
+ (setf (sb!kernel:funcallable-instance-fun function)
+ #'(lambda (&rest args)
+ (interpreted-apply function args)))
+ function))
+
+ (defun interpreted-function-p (function)
+ (typep function 'interpreted-function))
+
+ (sb!int:def!method print-object ((obj interpreted-function) stream)
+ (print-unreadable-object (obj stream
+ :identity (not (interpreted-function-name obj)))
+ (format stream "~A ~A" '#:interpreted-function
+ (interpreted-function-name obj)))))