modify to use IS-PRINT function to test PRINT-OBJECT functions