- (setf (sys:gsgc-switch :print) state))
- #-allegro
- (progn
- (format t "~&**********************************~%")
- (format t "End ~a test~%" ,g-name)
- (format t "Errors detected in this test: ~D " *test-errors*)
- (unless (zerop *test-unexpected-failures*)
- (format t "UNEXPECTED: ~D" *test-unexpected-failures*))
- (format t "~%Successes this test:~D~%" *test-successes*))))))
+ (setf (gc-print-state) state))))))
+
+(defun gc-print-state ()
+ #+cmu ext:*gc-verbose*
+ #+allegro (sys:gsgc-switch :print)
+ )
+
+(defun (setf gc-print-state) (state)
+ #+cmu (setf ext:*gc-verbose* state)
+ #+allegro (setf (sys:gsgc-switch :print) state)
+ )