(FILECREATED "20-Sep-85 09:23:53" {DANTE}<SVERNON>TESTUTILS.;2
 1077   

      changes to:  (FNS PRINT-TEST-ARS)
		   (VARS TESTUTILSCOMS)

      previous date: "19-Sep-85 17:02:23" {DANTE}<SVERNON>TESTUTILS.;1)


(* Copyright (c) 1985 by XEROX Corporation. All rights reserved.)

(PRETTYCOMPRINT TESTUTILSCOMS)

(RPAQQ TESTUTILSCOMS
 ((FNS PRINT-TEST-ARS)))
(DEFINEQ

(PRINT-TEST-ARS

  [LAMBDA (WINDOW FILE)                                      (* edited: "20-Sep-85 09:23")

    (
PROG
 (STATUS)
          (
SETQ
 STATUS NIL)
          (for
 I in
 (
WINDOWPROP
 WINDOW (
QUOTE
 AR.ENTRY.ALIST))
	     do
 (if
 (
NEQ
 (
LISTGET
 (
CDR
 I)
				  (
QUOTE
 Status:))
			 STATUS)
		    then
 (
SETQ
 STATUS (
LISTGET
 (
CDR
 I)
					       (
QUOTE
 Status:)))
			 (PRINTOUT FILE STATUS ":" T))
		(PRINTOUT FILE .I6 (
LISTGET
 (
CDR
 I)
					    (
QUOTE
 Number:))
			  ,
			  (
LISTGET
 (
CDR
 I)
				   (
QUOTE
 Subject:))
			  T])
)
(PUTPROPS TESTUTILS COPYRIGHT ("XEROX Corporation" 1985))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (367 997 (PRINT-TEST-ARS 377 . 995)))))
STOP