(FILECREATED "11-OCT-83 12:45:11" {PHYLUM}<LISPCORE>SOURCES>HITATOMS.;2)


(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 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)
STOP