-(if (not (fboundp 'CP::internal-prin1))
- (mapcar 'CP::set-function-cell
- '((CP::internal-prin1 prin1)
- (CP::internal-princ princ)
- (CP::internal-print print)
- (CP::internal-prin1-to-string prin1-to-string)
- (CP::internal-format format)
- (CP::internal-message message)
- (CP::internal-error error))))
+(if (not (fboundp 'cust-print-internal-prin1))
+ (mapcar 'cust-print-set-function-cell
+ '((cust-print-internal-prin1 prin1)
+ (cust-print-internal-princ princ)
+ (cust-print-internal-print print)
+ (cust-print-internal-prin1-to-string prin1-to-string)
+ (cust-print-internal-format format)
+ (cust-print-internal-message message)
+ (cust-print-internal-error error))))