(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (FILECREATED "25-Oct-2022 11:44:17" ("compiled on " {DSK}larry>ilisp>medley>sources>APUTDQ.;3) "25-Oct-2022 10:48:03" brecompiled changes%: ENDLOADUP in "FULL 25-Oct-2022 ..." dated "25-Oct-2022 10:48:06") (FILECREATED "25-Oct-2022 11:44:17" {DSK}larry>ilisp>medley>sources>APUTDQ.;3 14079 :CHANGES-TO (FNS ENDLOADUP) :PREVIOUS-DATE "25-Oct-2022 11:07:06" {DSK}larry>ilisp>medley>sources>APUTDQ.;2) GREETFILENAME :D8 (L (0 USER) F 4 *COMPILED-EXTENSIONS* F 5 DEFAULTREGISTRY) @@dic`l*o XH o ohTo no d XHV`NUg@ b Y&@Ikm U @kIk b`dhZhgK 4ghgo@ohK hT @gK J(279 INFILEP 274 CONCATLIST 269 SUBST 255 FINDFILE-WITH-EXTENSIONS 248 PACKFILENAME.STRING 243 CONCATLIST 238 SUBPAIR 205 MEMB 172 SUBSTRING 161 STREQUAL 156 MKSTRING 150 SUBSTRING 136 STRPOS 129 U-CASE 100 INFILEP 93 PROMPTFORWORD 81 FINDFILE-WITH-EXTENSIONS 76 \APPEND2 53 INFILEP 37 INFILEP 29 UNIX-GETENV) (263 USER 218 BODY 212 EXTENSION 199 COM 180 USERGREETFILES 123 %. 112 USERGREETFILES 14 \MACHINETYPE) ( 229 "" 223 (USER COM) 88 "Please enter name of system init file (e.g. {server}INIT.extension): " 71 ("LISP") 64 "{DSK}INIT" 48 "{DSK}/usr/local/lde/site-init.lisp" 24 "LDEINIT") FAULTEVAL :D8 (L (0 FAULTX)) @ (5 RAID) NIL () FAULTAPPLY :D8 (L (1 FAULTARGS 0 FAULTFN)) @ (5 RAID) NIL () ERRORX :D8 (L (0 ERXM)) @ (5 RAID) NIL () SET-DOCUMENTATION :D8 (L (2 NEW-STRING 1 DOC-TYPE 0 NAME)) hNIL NIL () SMASHFILECOMS :D8 (L (0 FILE)) 3@gh H H Hg h(47 SET 35 SMASHFILECOMSLST 30 GETTOPVAL 22 BOUNDP 13 PACK) (42 NOBIND 5 COMS) () SMASHFILECOMSLST :D8 (L (0 COMS)) @OdHdgdd3@HHdg1I&H IId3@Ig h dgHdgI Ydgdg𲬿HgHd3@HY(119 GETTOPVAL 89 GETTOPVAL 76 SET 55 SMASHFILECOMSLST) (151 * 138 IFPROP 130 PROP 110 * 97 FILEVARS 71 NOBIND 41 COMS 16 *) () LOADUP :D8 (L (0 FILES)) K@Ddoi Hi i Hd`oHh H h(66 SMASHFILECOMS 59 DOFILESLOAD 33 TERPRI 26 PRIN1 18 PRIN1) (41 SYSFILES) ( 50 (SYSLOAD) 12 "loading ") ENDLOADUP :D8 (F 2 FILEPKGTYPES) `dg `H BYd`I HXd i oi i `` hRdh (155 CLRPROMPT 145 FILEPKGCHANGES 129 \NCONC2 124 REVERSE 104 TERPRI 97 PRIN1 85 PRIN1 79 CLOSEF 66 SETTOPVAL 61 COPY 40 OPENP 17 RECORDPRIORITY) (135 FILELST 119 FILELST 114 SYSFILES 51 MEDLEY-INIT-VARS 27 SYSTEMINITVARS 12 SYSTEM 4 USERRECLST) ( 91 " closed") (PRETTYCOMPRINT APUTDQCOMS) (RPAQQ APUTDQCOMS ((* ;; " this file contains some dummy definitions of functions whose real implementation is on other files") (DECLARE%: EVAL@LOAD DONTCOPY (P (PRIN1 "Warning: APUTDQ contains dummy definitions of " T) (PRIN1 "FAULTEVAL FAULTAPPLY ERRORX SET-DOCUMENTATION SMASHFILECOMS" T) (PRIN1 "Be careful not to confuse with the real definitions" T) (TERPRI T))) (FNS GREETFILENAME FAULTEVAL FAULTAPPLY ERRORX SET-DOCUMENTATION) (FNS SMASHFILECOMS SMASHFILECOMSLST) (INITVARS (DEFAULTREGISTRY) (USERGREETFILES) (LOGINHOST/DIR (QUOTE {DSK}))) (FNS LOADUP ENDLOADUP) (ALISTS (SYSTEMINITVARS \CONNECTED.DIRECTORY DWIMFLG ADDSPELLFLG FILEPKGFLG BUILDMAPFLG UPDATEMAPFLG DEFAULTREGISTRY DEFAULTPRINTINGHOST DIRECTORIES USERGREETFILES NETWORKOSTYPES CH.NET.HINT CH.DEFAULT.DOMAIN CH.DEFAULT.ORGANIZATION ADVISEDFNS LISPUSERSDIRECTORIES DISPLAYFONTDIRECTORIES DISPLAYFONTEXTENSIONS INTERPRESSFONTDIRECTORIES)) (DECLARE%: DONTEVAL@LOAD DOCOPY (* ;; "many of these are obsolete and can be removed, but it is unclear which ones") (P (DUMMYDEF (ADDSTATS *) (LISPXWATCH NILL) (CLBUFS NILL) (FINDFILE INFILEP) (FILEMAP *) (VIRGINFN GETD)) (DUMMYDEF (* QUOTE) (GETP GETPROP) (DECLARE QUOTE) (FRPLNODE2 RPLNODE2) (DISPLAYTERMP TRUE) (FRPLACA RPLACA) (FRPLACD RPLACD) (MISSPELLED? NILL) (UNDOSAVE NILL) (SETLINELENGTH ZERO) (DOBE NILL) (RELINK NILL) (PUT PUTPROP ) (/PUT PUTPROP))) (ADDVARS (SYSFILES) (LISPXHISTORY) (LINKEDFNS)) (VARS (CLEARSTKLST T) (SYSHASHARRAY (HASHARRAY 50)) (DISPLAYTERMFLG T) (%#UNDOSAVES) (NLAMA) (NLAML) (LAMS) (TTYLINELENGTH 82) ( COMPILE.EXT (QUOTE LCOM)) (FASL.EXT (QUOTE DFASL)) (*COMPILED-EXTENSIONS* (QUOTE (DFASL LCOM))) ( SYSOUT.EXT (QUOTE SYSOUT)))) (LOCALVARS . T) (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA FAULTEVAL) (NLAML) (LAMA))))) (RPAQ? DEFAULTREGISTRY) (RPAQ? USERGREETFILES) (RPAQ? LOGINHOST/DIR (QUOTE {DSK})) (ADDTOVAR SYSTEMINITVARS (\CONNECTED.DIRECTORY . {DSK}) (DWIMFLG . T) (ADDSPELLFLG . T) (FILEPKGFLG . T) (BUILDMAPFLG . T) (UPDATEMAPFLG . T) (DEFAULTREGISTRY) (DEFAULTPRINTINGHOST) (DIRECTORIES) ( USERGREETFILES) (NETWORKOSTYPES) (CH.NET.HINT) (CH.DEFAULT.DOMAIN) (CH.DEFAULT.ORGANIZATION) ( ADVISEDFNS) (LISPUSERSDIRECTORIES {DSK}) (DISPLAYFONTDIRECTORIES {DSK}) (DISPLAYFONTEXTENSIONS DISPLAYFONT) (INTERPRESSFONTDIRECTORIES {DSK})) (DUMMYDEF (ADDSTATS *) (LISPXWATCH NILL) (CLBUFS NILL) (FINDFILE INFILEP) (FILEMAP *) (VIRGINFN GETD)) (DUMMYDEF (* QUOTE) (GETP GETPROP) (DECLARE QUOTE) (FRPLNODE2 RPLNODE2) (DISPLAYTERMP TRUE) (FRPLACA RPLACA) (FRPLACD RPLACD) (MISSPELLED? NILL) (UNDOSAVE NILL) (SETLINELENGTH ZERO) (DOBE NILL) (RELINK NILL) (PUT PUTPROP) (/PUT PUTPROP)) (ADDTOVAR SYSFILES) (ADDTOVAR LISPXHISTORY) (ADDTOVAR LINKEDFNS) (RPAQQ CLEARSTKLST T) (RPAQ SYSHASHARRAY (HASHARRAY 50)) (RPAQQ DISPLAYTERMFLG T) (RPAQQ %#UNDOSAVES NIL) (RPAQQ NLAMA NIL) (RPAQQ NLAML NIL) (RPAQQ LAMS NIL) (RPAQQ TTYLINELENGTH 82) (RPAQQ COMPILE.EXT LCOM) (RPAQQ FASL.EXT DFASL) (RPAQQ *COMPILED-EXTENSIONS* (DFASL LCOM)) (RPAQQ SYSOUT.EXT SYSOUT) (PRETTYCOMPRINT APUTDQCOMS) (RPAQQ APUTDQCOMS ((* ;; " this file contains some dummy definitions of functions whose real implementation is on other files") (DECLARE%: EVAL@LOAD DONTCOPY (P (PRIN1 "Warning: APUTDQ contains dummy definitions of " T) (PRIN1 "FAULTEVAL FAULTAPPLY ERRORX SET-DOCUMENTATION SMASHFILECOMS" T) (PRIN1 "Be careful not to confuse with the real definitions" T) (TERPRI T))) (FNS GREETFILENAME FAULTEVAL FAULTAPPLY ERRORX SET-DOCUMENTATION) (FNS SMASHFILECOMS SMASHFILECOMSLST) (INITVARS (DEFAULTREGISTRY) (USERGREETFILES) (LOGINHOST/DIR (QUOTE {DSK}))) (FNS LOADUP ENDLOADUP) (ALISTS (SYSTEMINITVARS \CONNECTED.DIRECTORY DWIMFLG ADDSPELLFLG FILEPKGFLG BUILDMAPFLG UPDATEMAPFLG DEFAULTREGISTRY DEFAULTPRINTINGHOST DIRECTORIES USERGREETFILES NETWORKOSTYPES CH.NET.HINT CH.DEFAULT.DOMAIN CH.DEFAULT.ORGANIZATION ADVISEDFNS LISPUSERSDIRECTORIES DISPLAYFONTDIRECTORIES DISPLAYFONTEXTENSIONS INTERPRESSFONTDIRECTORIES)) (DECLARE%: DONTEVAL@LOAD DOCOPY (* ;; "many of these are obsolete and can be removed, but it is unclear which ones") (P (DUMMYDEF (ADDSTATS *) (LISPXWATCH NILL) (CLBUFS NILL) (FINDFILE INFILEP) (FILEMAP *) (VIRGINFN GETD)) (DUMMYDEF (* QUOTE) (GETP GETPROP) (DECLARE QUOTE) (FRPLNODE2 RPLNODE2) (DISPLAYTERMP TRUE) (FRPLACA RPLACA) (FRPLACD RPLACD) (MISSPELLED? NILL) (UNDOSAVE NILL) (SETLINELENGTH ZERO) (DOBE NILL) (RELINK NILL) (PUT PUTPROP ) (/PUT PUTPROP))) (ADDVARS (SYSFILES) (LISPXHISTORY) (LINKEDFNS)) (VARS (CLEARSTKLST T) (SYSHASHARRAY (HASHARRAY 50)) (DISPLAYTERMFLG T) (%#UNDOSAVES) (NLAMA) (NLAML) (LAMS) (TTYLINELENGTH 82) ( COMPILE.EXT (QUOTE LCOM)) (FASL.EXT (QUOTE DFASL)) (*COMPILED-EXTENSIONS* (QUOTE (DFASL LCOM))) ( SYSOUT.EXT (QUOTE SYSOUT)))) (LOCALVARS . T) (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA) (NLAML) (LAMA))))) (PUTPROPS APUTDQ COPYRIGHT ("Venue & Xerox Corporation" 1981 1982 1983 1984 1985 1986 1987 1988 1990 2021 2022)) NIL