(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (FILECREATED " 7-Oct-2021 14:29:56" ("compiled on " {DSK}kaplan>Local>medley3.5>git-medley>sources>DEXEC.;4) " 7-Oct-2021 12:42:07" "COMPILE-FILEd" in "FULL 7-Oct-2021 ..." dated " 7-Oct-2021 12:42:12") (FILECREATED " 7-Oct-2021 14:29:56" {DSK}kaplan>Local>medley3.5>git-medley>sources>DEXEC.;4 5554 changes to%: (FNS SEE* COPYALLBYTES) previous date%: "13-Aug-2020 12:36:18" {DSK}kaplan>Local>medley3.5>git-medley>sources>DEXEC.;1) (RPAQQ DEXECCOMS ((* ;;; "Has to come after ADISPLAY and CMLEXEC.") (COMMANDS "see" "see*" "ty" "type" ) (INITVARS (/LAST.CONNECTED.DIRECTORY LOGINHOST/DIR)) (LISPXMACROS CONN DA) (FNS /CNDIR COPYALLBYTES SEE SEE*) (COMS (CURSORS SAVINGCURSOR SYSOUTCURSOR \PROMPTFORWORD.CURSOR)) (PROP FILETYPE DEXEC) ( DECLARE%: DONTEVAL@LOAD DOCOPY (P (MOVD (QUOTE SEE) (QUOTE TY)))) (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA SEE* SEE) (NLAML) (LAMA))))) exec-see :D8 (L (1 $$MACRO-ENV 0 $$MACRO-FORM)) @gH (15 APPLY) (9 SEE) () (SET-DOCUMENTATION "see" (QUOTE COMMANDS) "Print the contents of a file on the screen, hiding comments") (PUTHASH "see" (QUOTE ((&REST ARGS) exec-see :EVAL)) *EXEC-COMMAND-TABLE*) exec-see* :D8 (L (1 $$MACRO-ENV 0 $$MACRO-FORM)) @gH (15 APPLY) (9 SEE*) () (SET-DOCUMENTATION "see*" (QUOTE COMMANDS) "Print the contents of a file on the screen") (PUTHASH "see*" (QUOTE ((&REST ARGS) exec-see* :EVAL)) *EXEC-COMMAND-TABLE*) exec-ty :D8 (L (1 $$MACRO-ENV 0 $$MACRO-FORM)) @gH (15 APPLY) (9 SEE) () (SET-DOCUMENTATION "ty" (QUOTE COMMANDS) "Print the contents of a file on the screen, hiding comments" ) (PUTHASH "ty" (QUOTE ((&REST ARGS) exec-ty :EVAL)) *EXEC-COMMAND-TABLE*) exec-type :D8 (L (1 $$MACRO-ENV 0 $$MACRO-FORM)) @gH (15 APPLY) (9 SEE) () (SET-DOCUMENTATION "type" (QUOTE COMMANDS) "Print the contents of a file on the screen, hiding comments") (PUTHASH "type" (QUOTE ((&REST ARGS) exec-type :EVAL)) *EXEC-COMMAND-TABLE*) (RPAQ? /LAST.CONNECTED.DIRECTORY LOGINHOST/DIR) (ADDTOVAR LISPXHISTORYMACROS (DA (PROGN (LISPXPRIN1 (DATE) T) (TERPRI T)))) (ADDTOVAR LISPXMACROS (CONN (/CNDIR (CAR (NLAMBDA.ARGS LISPXLINE))))) (ADDTOVAR LISPXCOMS CONN DA) /CNDIR :D8 (I 0 HOST/DIR F 0 LISPXHIST F 1 /LAST.CONNECTED.DIRECTORY) >P²gid hP ¿@gð“Qb¿gid @ (59 CNDIR 53 /SET 48 DIRECTORYNAME 23 UNDOSAVE 14 DIRECTORYNAME) (41 /LAST.CONNECTED.DIRECTORY 30 - 7 /CNDIR) () COPYALLBYTESA0001 :D8 (NAME SI::*UNWIND-PROTECT* P 2 PTR P 1 OUTF P 0 INF I 0 SI::*CLEANUP-FORMS* F 3 SI::*RESETFORMS* F 4 BYTESIZE F 5 FROMFILE F 6 TOFILE F 7 FORMAT) œ0U²?gUghgWhhT XhhdSc¿H jð®Hj …X¿Vµ ¹°.g Y³!gVghT YhhdSc¿T®I —HI †HI h(152 COPYBYTES 144 PFCOPYBYTES 136 DISPLAYP 115 OPENSTREAM 94 OPENP 81 OUTPUT 71 INPUT 65 SETFILEPTR 55 GETFILEPTR 36 OPENSTREAM) (108 OUTPUT 102 CLOSEF 89 OUTPUT 22 EXTERNALFORMAT 16 INPUT 10 CLOSEF) () COPYALLBYTES :D8 (P 2 RESETSTATE P 1 SI::*RESETFORMS* P 0 LISPXHIST I 3 FORMAT I 2 BYTESIZE I 1 TOFILE I 0 FROMFILE F 3 LISPXHIST) S!g ¿$(23 SI::RESETUNWIND 18 \MVLIST 13 COPYALLBYTESA0001) (8 SI::RESETUNWIND) () SEE :D8 (I 0 LINE) @ bd@µi@ (24 COPYALLBYTES 5 NLAMBDA.ARGS) NIL () SEE*A0001 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 LINE) hgP h(16 APPLY) (10 SEE 5 **COMMENT**FLG) () SEE* :D8 (P 0 SI::*RESETFORMS* I 0 LINE) 2@ bg`hg ¿$(43 SI::RESETUNWIND 38 \MVLIST 33 SEE*A0001 5 NLAMBDA.ARGS) (28 SI::RESETUNWIND 17 **COMMENT**FLG 12 **COMMENT**FLG) () (RPAQ SAVINGCURSOR (CURSORCREATE (QUOTE #*(16 16)@@@@FDJ@HJJ@LJJ@BNJLJJD@LJD@@@@@@JDN@KEB@KE@@JMF@JMB@JEL@@@@@@@@ ) (QUOTE NIL) 0 15)) (RPAQ SYSOUTCURSOR (CURSORCREATE (QUOTE #*(16 16)@@@@CJDNDAE@C@HL@HHBDIABCA@L@@@@@@@@AIBNBEBDBEBDBEBDBEBDAHLD@@@@ ) (QUOTE NIL) 0 15)) (RPAQ \PROMPTFORWORD.CURSOR (CURSORCREATE (QUOTE #*(16 16)H@@@L@@@N@CLO@FFOHFFOL@FON@LO@AHMHAHIH@@@LAH@LAH@F@@@F@@@C@@@C@@ ) (QUOTE NIL) 0 15)) (PUTPROPS DEXEC FILETYPE CL:COMPILE-FILE) (MOVD (QUOTE SEE) (QUOTE TY)) (PUTPROPS DEXEC COPYRIGHT ("Venue & Xerox Corporation" T 1982 1983 1984 1985 1986 1990 2018 2020 2021) ) NIL