(FILECREATED " 9-Apr-84 13:35:49" {PHYLUM}<LISPCORE>SOURCES>HITATOMS.;1 3309   

      changes to:  (VARS LITATOM.HIT.LIST)

      previous date: "11-OCT-83 12:45:11" {PHYLUM}<LISP>SOURCES>HITATOMS.;1)


(* Copyright (c) 1984 by Xerox Corporation)

(PRETTYCOMPRINT HITATOMSCOMS)

(RPAQQ HITATOMSCOMS ((FNS LITATOM.HIT.LIST)
		     (VARS LITATOM.HIT.LIST)
		     (FILES READSYS RDSYS VMEM)))
(DEFINEQ

(LITATOM.HIT.LIST
  [LAMBDA (SYSOUT)  (CLOSEF (PROG1 (READSYS SYSOUT T)
    (for AT in LITATOM.HIT.LIST do (PRIN1 (if (ERSETQ(V\SMASHATOM (PRIN2 AT T))) then ", " else "?, ") T])
)

(RPAQQ LITATOM.HIT.LIST (CHANGE.ITEM CREATE.ALIAS CREATE.OBJECT CREDENTIALS.TYPE DELETE.ALIAS 
				     DELETE.MEMBER DELETE.OBJECT DELETE.PROPERTY DELETE.SELF 
				     DOMAIN.NAME.PATTERN CH.LOOKUP.USER GET.PRINT.REQUEST.STATUS 
				     GET.PRINTER.PROPERTIES GET.PRINTER.STATUS HASHED.PASSWORD 
				     LIST.DOMAINS.SERVED LIST.OBJECTS LIST.ORGANIZATIONS 
				     LIST.PROPERTIES LOOKUP.OBJECT OBJECT.NAME.PATTERN 
				     ORGANIZATION.NAME BULK.DATA.SOURCE PRINT.ATTRIBUTES 
				     PRINT.OPTIONS PRINTER.PROPERTIES REQUEST.ID REQUEST.STATUS 
				     RETRIEVE.ADDRESSES RETRIEVE.MEMBERS SIMPLE.CREDENTIALS 
				     \CH.BROADCAST.FOR.SERVERS.ON.NET \CH.CHECK.WILDCARD 
				     \CH.READ.BROADCAST.RESPONSE \CH.UPDATE.CACHE 
				     \NSPRINT.WATCHDOG.INTERNAL ATTRIBUTE.SEQUENCE ATTRIBUTE.TYPE 
				     ATTRIBUTE.TYPE.SEQUENCE CHANGE.ATTRIBUTES CONTROL.SEQUENCE 
				     CONTROL.TYPE CONTROL.TYPE.SEQUENCE FILE.ID 
				     FILING.SUBSET.FOR.PRINTING GET.ATTRIBUTES SCOPE.SEQUENCE 
				     SCOPE.TYPE SIMPLE.VERIFIER \DIRECTORY.LIST.TO.PATHNAME 
				     \FILING.ATTRIBUTE.TYPE.SEQUENCE \GETFILINGCONNECTION 
				     \NSFILING.CLOSEFILE \NSFILING.CONNECT \NSFILING.CREATE.DIRECTORY 
				     \NSFILING.DELETEFILE \NSFILING.DIRECTORYNAMEP \NSFILING.EVENTFN 
				     \NSFILING.FULLNAME \NSFILING.GENERATEFILES \NSFILING.GETEOFPTR 
				     \NSFILING.GETFILE \NSFILING.GETFILEINFO \NSFILING.GETFILENAME 
				     \NSFILING.HOSTNAMEP \NSFILING.INIT \NSFILING.INTERNAL.CLOSE 
				     \NSFILING.LIST \NSFILING.LOGIN \NSFILING.LOGOUT 
				     \NSFILING.LOGOUT.INTERNAL \NSFILING.NEXTFILE \NSFILING.OPENFILE 
				     \NSFILING.SETFILEINFO \PATHNAME.TO.DIRECTORY.LIST 
				     \READ.FILING.ATTRIBUTE.SEQUENCE \VALID.FILING.CONNECTIONP 
				     \WRITE.FILING.ATTRIBUTE.SEQUENCE \COURIER.PROGRAM 
				     \GET.COURIER.PROG#VERS#.PAIR \GET.COURIER.DEFINITION 
				     \GET.COURIER.TYPE \GET.COURIER.PROCEDURE.ARGS 
				     \GET.COURIER.PROCEDURE.RESULTS \GET.COURIER.PROCEDURE.ERRORS 
				     \GET.COURIER.PROCEDURE.NUMBER \GET.COURIER.ERROR.ARGS 
				     \GET.COURIER.ERROR.NUMBER APPENDBYTE.IP APPENDIDENTIFIER.IP 
				     APPENDINT.IP APPENDINTEGER.IP APPENDLARGEVECTOR.IP 
				     APPENDLISPSTRING.IP APPENDNUMBER.IP APPENDOP.IP 
				     APPENDRATIONAL.IP APPENDSEQUENCEDESCRIPTOR.IP BYTESININT.IP 
				     EXTRACTBYTE.IP BEGINMASTER.IP BEGINPAGE.IP BEGINPREAMBLE.IP 
				     CONCATT.IP CONCAT.IP ENDMASTER.IP ENDPAGE.IP ENDPREAMBLE.IP 
				     FGET.IP FSET.IP GETFRAMEVAR.IP INITIALIZEMASTER.IP SHOWSTRING.IP 
				     LITATOM.HIT.LIST \COURIER.READ.REP.INTERNAL))
(FILESLOAD READSYS RDSYS VMEM)
(PUTPROPS HITATOMS COPYRIGHT ("Xerox Corporation" 1984))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (401 605 (LITATOM.HIT.LIST 411 . 603)))))
STOP