(FILECREATED " 6-Apr-84 14:04:18" ("compiled on " {PHYLUM}EXECFNS.;2) "29-Mar-84 16:27:11" recompiled exprs: DEFINE.LOGICAL.DEVICE LOGICAL.OUTPUT.NAME SHOW.LOGICAL.DEFINITIONS FILE.NAME.COMPAREFN in WORK dated "29-Mar-84 17:34:40") (FILECREATED " 6-Apr-84 14:04:06" {PHYLUM}EXECFNS.;2 4644 changes to: (VARS EXECFNSCOMS) ( LISPXMACROS DEF) (FNS DEFINE.LOGICAL.DEVICE LOGICAL.OUTPUT.NAME SHOW.LOGICAL.DEFINITIONS) previous date: "14-APR-83 11:02:23" {PHYLUM}EXECFNS.;1) DEFINE.LOGICAL.DEVICE D1 (P 0 ENTRY I 1 DIRECTORIES I 0 LOGICAL.NAME F 1 LOGICAL.FILE.NAME.TRANSLATIONS F 2 FILES) ~@mÿ)gðª@o b¿@Q X²4R²Q–@RQ §@Rhc¿@i ¿o°/HQ ¿@i ¿o°#Q–@RQ §@Rhc¿@i ¿oi ¿Ri ¿i i(172Q TERPRI 165Q PRIN1 157Q PRIN1 146Q PRIN1 130Q /PUTASSOC 111Q PRIN1 103Q /DREMOVE 67Q PRIN1 51Q /PUTASSOC 33Q FASSOC 23Q PACK*) (11Q :) ( 153Q " defined to be " 116Q " removed." 74Q " redefined to be " 20Q ":") LOGICAL.OUTPUT.NAME D1 (P 2 TEMP P 1 DEVICEFILE P 0 DEVICE I 0 FILENAME F 3 LOGICAL.FILE.NAME.TRANSLATIONS) 20@g Xµ@S Y²÷ghhI @ (57Q PACKFILENAME 54Q \APPEND2 51Q \APPEND2 46Q UNPACKFILENAME 42Q UNPACKFILENAME 22Q FASSOC 11Q FILENAMEFIELD) (32Q DEVICE 6 DEVICE) () SHOW.LOGICAL.DEFINITIONSA0001 D1 (I 1 B I 0 A) @A (6 ALPHORDER) NIL () SHOW.LOGICAL.DEFINITIONS D1 (P 1 PAIR P 0 DEFLIST I 0 DEVICE F 2 LOGICAL.FILE.NAME.TRANSLATIONS) m@—@dgð’¿R…R hXd³¿@•@gð™oi hHd«¿o@i hg °$dIi ¿oi ¿Ii ¿i µÝh(144Q TERPRI 137Q PRIN1 130Q PRIN1 117Q PRIN1 102Q SORT 72Q MSG 52Q MSG 22Q FASSOC) (77Q SHOW.LOGICAL.DEFINITIONSA0001 40Q * 11Q *) ( 124Q " defined as " 65Q "No logical definition found for " 46Q "No logical definitions stored.") FILE.NAME.COMPAREFN D1 (I 1 FILE2 I 0 FILE1) 8@g Ag ðŸ@g Ag ð¥@A @g Ag ýñ(63Q FILENAMEFIELD 54Q FILENAMEFIELD 44Q ALPHORDER 35Q FILENAMEFIELD 26Q FILENAMEFIELD 15Q FILENAMEFIELD 6 FILENAMEFIELD) (60Q VERSION 51Q VERSION 32Q EXTENSION 23Q EXTENSION 12Q NAME 3 NAME) () (PRETTYCOMPRINT EXECFNSCOMS) (RPAQQ EXECFNSCOMS ((INITVARS (LOGICAL.FILE.NAME.TRANSLATIONS NIL)) (LISPXMACROS DEF DEF?) (FNS DEFINE.LOGICAL.DEVICE LOGICAL.OUTPUT.NAME SHOW.LOGICAL.DEFINITIONS FILE.NAME.COMPAREFN) (P (ADVISE ( QUOTE \OPENFILE) NIL)))) (RPAQ? LOGICAL.FILE.NAME.TRANSLATIONS NIL) (ADDTOVAR LISPXMACROS (DEF (DEFINE.LOGICAL.DEVICE (CAR LISPXLINE) (CDR LISPXLINE))) (DEF? ( SHOW.LOGICAL.DEFINITIONS (CAR LISPXLINE)))) (ADVISE (QUOTE \OPENFILE) NIL) (PUTPROPS EXECFNS COPYRIGHT ("Jeffrey S. Shulman" 1983 1984)) NIL