(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