(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP") (FILECREATED "13-Jun-2021 21:09:55" ("compiled on " {DSK}kaplan>Local>medley3.5>git-medley>lispusers>DEFINERPRINT.;1) "13-Jun-2021 14:44:27" "COMPILE-FILEd" in "FULL 13-Jun-2021 ..." dated "13-Jun-2021 14:44:40") (FILECREATED "13-Apr-88 15:12:02" {ERIS}LISP>DEFINERPRINT.;20 29234 changes to%: (FNS PRINDOTP SUPERPRINT/COMMENT PRINTDEF1) (VARS DEFINERPRINTCOMS) (PROPS (DEFINE-SPECIAL-FORM :DEFINITION-PRINT-TEMPLATE)) (FUNCTIONS XCL::PPRINT-DEFINER) previous date%: "13-Apr-88 13:04:04" {ERIS}LISP>DEFINERPRINT.;19) (RPAQQ DEFINERPRINTCOMS ((FUNCTIONS XCL::PPRINT-DEFINER XCL::PPRINT-DEFINER-FITP XCL::PPRINT-DEFINER-RECURSE) (PROP :DEFINITION-PRINT-TEMPLATE DEFCOMMAND CL:DEFCONSTANT DEFDEFINER DEFGLOBALPARAMETER DEFGLOBALVAR DEFINE-CONDITION CL:DEFINE-MODIFY-MACRO CL:DEFINE-SETF-METHOD DEFINE-SPECIAL-FORM DEFINLINE DEFMACRO CL:DEFPARAMETER CL:DEFSETF CL:DEFSTRUCT CL:DEFTYPE CL:DEFUN CL:DEFVAR) (COMS (* ; "Macros for some things pp handles stupidly") (FNS CODEWRAPPER.PRETTYPRINT PROG1.PRETTYPRINT CASE.PRETTYPRINT PROGV.PRETTYPRINT INDENTATION.FROM.HERE SEQUENTIAL.PRETTYPRINT) ( ALISTS (PRETTYPRINTMACROS UNINTERRUPTABLY CL:UNWIND-PROTECT RESETLST CL:BLOCK CL:IF PROG1 CL:WHEN CL:UNLESS WITH-READER-ENVIRONMENT CL:CATCH CASE CL:ECASE CL:ETYPECASE CL:TYPECASE CL:PROGV WITH.MONITOR) (PRETTYEQUIVLST PROG* CL:COMPILER-LET))) (COMS (* ; "Repairs to other prettyprinting functions") (FNS SUPERPRINT/COMMENT PRIN2-LONG-STRING SUPERPRINT/WRAPPER SUPERPRINT/SPACE PRINENDLINE PRINDOTP PRINTDEF1) (ADVISE MAKEFILE) (DECLARE%: EVAL@COMPILE DOCOPY (* ; "Doing this at compile suppresses dwim junk") (P (MOVD? (QUOTE \DSPRETTY/ENDLINE) (QUOTE SUBPRINT/ENDLINE) NIL T))) (DECLARE%: EVAL@COMPILE DONTCOPY (P (CL:PROCLAIM (QUOTE (CL:SPECIAL **COMMENT**FLG *PRINT-SEMICOLON-COMMENTS* COMMENTFONT FNSLST RMARGIN SPACEWIDTH)))) (FILES (LOADCOMP) DSPRINTDEF)) (DECLARE%: DONTEVAL@LOAD DOCOPY (* ; "Backward compatibility, needed in Lyric especially") (P (MOVD (QUOTE XCL::PPRINT-DEFINER) (QUOTE PPRINT-DEFINER) NIL T)))) (PROP (FILETYPE MAKEFILE-ENVIRONMENT) DEFINERPRINT))) XCL::PPRINT-DEFINER :D8 (L (0 XCL::DEFINE-EXPRESSION) P 1 LEFT P 0 TAIL F 8 *STANDARD-OUTPUT* F 9 FNSLST F 10 LAMBDAFONT F 11 DEFAULTFONT F 12 FORMFLG F 13 SPACEWIDTH) W@d@bI[IlWYo H HHg'oZHd\d?J_hA _ JD_"BFA (i_&W@AO: JO:K ZAl" Jl"K ԺGO$A JOԺGlh_$j_@Ok_ _OOJ_O_Odl h@Ok dl dl dOk_JNEO&ǰON_j_EOiOjOl @Ok_ _l q@Ok_ _l DA @Ok_ _l O&AH j_@Ok_ _l Odl 𑿍DOOErO_BOl"OHAH JMԺAO JOK ԺOl"OHOM_OOK _DA DOLO&1OlIɀOIɀ jIOl`vO$bO$A JOԺQBAl" W>dCW>ihW>OO hA hA A O<kO"O<khA DEO<k O(dA h(1146 PRIN1 1117 DSPRIGHTMARGIN 1079 MAKEMAPENTRY 1073 \DEDITFONT# 1067 DSPYPOSITION 1060 DSPXPOSITION 1033 \OUTCHAR 1014 PRIN1 985 GETHASH 942 PRINENDLINE 934 SHOULDNT 922 CHARWIDTH 889 CHARWIDTH 879 \OUTCHAR 866 \OUTCHAR 810 NTHCHARCODE 791 \OUTCHAR 773 NTHCHARCODE 760 PRINENDLINE 746 NTHCHARCODE 724 NTHCHARCODE 638 NTHCHARCODE 595 NTHCHARCODE 563 PRIN1 547 CHARWIDTH 537 \OUTCHAR 526 CHARWIDTH 516 \OUTCHAR 489 IMAGESTREAMP 471 DSPYPOSITION 451 PRINENDLINE 430 PRIN1 423 PRIN1 413 PRIN1S 400 PRIN2S 357 CHARWIDTH 275 %%ARRAY-TYPE-NUMBER 257 \GETBASEFIXP 240 %%ARRAY-BASE 218 %%ARRAY-OFFSET 176 CHARWIDTH 152 STRINGWIDTH 134 CONCAT 124 ALLOCSTRING 110 CHARWIDTH 83 STRINGWIDTH 69 CHARWIDTH 60 CHARWIDTH 38 IMAGESTREAMP 32 DSPFONT 25 DSPXPOSITION) (1129 DEDITMAP 1105 DEDITMAP 1089 DEDITMAP 978 CHARTABLE 966 CHARTABLE 502 READTABLEP 50 FONTDESCRIPTOR 16 READTABLEP 6 READTABLEP) ( 160 "|#" 144 "#|" 129 " " 77 "%")") SUPERPRINT/WRAPPER :D8 (P 1 Y P 0 X I 4 FILE I 3 BRFLG I 2 TAIL I 1 E I 0 MACRO F 2 MAKEMAP) XB@D RAACD BhD @ hD hD ARihRHIHID (83 MAKEMAPENTRY 77 \DEDITFONT# 55 DSPYPOSITION 48 DSPXPOSITION 30 PRINSHUT 22 SUPERPRINT 7 PRINOPEN) (37 DEDITMAP) () SUPERPRINT/SPACE :D8 (I 0 FILE F 0 RMARGIN F 1 SPACEWIDTH F 2 LEFT) %Ph@ lQR@ o@ (34 PRIN3 22 PRINENDLINE 7 DSPXPOSITION) NIL ( 28 " ") PRINENDLINE :D8 (P 0 NS I 1 FILE I 0 NEWXPOSITION F 3 *STANDARD-OUTPUT* F 4 MAKEMAP F 5 SPACEWIDTH F 6 \TERM.OFD F 7 DEFAULTFONT) ASbT@hA hA A A A ddgihAV_XWA @hA U!HlYjoA IkٰHl ZjoA JkٰA @A (164 DSPXPOSITION 156 SETFONT 143 PRIN3 127 REMAINDER 113 PRIN3 87 DSPXPOSITION 79 SETFONT 69 DRIBBLEFILE 43 IMAGESTREAMTYPE 37 TERPRI 30 MOVETO 23 DSPLINEFEED 16 DSPYPOSITION) (51 TEXT) ( 137 " " 107 " ") PRINDOTP :D8 (P 1 MAXPOS P 0 DOT I 1 FILE I 0 E F 2 *STANDARD-OUTPUT* F 3 MAKEMAP F 4 RMARGIN F 5 FIRSTPOS) goT@ARi HARh oARh hA IUIIA HA @SdS @dA (100 PRIN2S 90 MAKEDOTPTAIL 80 PRIN3 72 PRINENDLINE 58 DSPXPOSITION 47 STRINGWIDTH 31 STRINGWIDTH 19 STRINGWIDTH) NIL ( 37 ")" 4 " . ") PRINTDEF1 :D8 (I 0 EXPR F 0 FNSLST) @h@ghhP (29 TERPRI 24 PRINTDEF 4 TERPRI) (13 BLOCK%:) () (XCL:REINSTALL-ADVICE (QUOTE MAKEFILE) :AROUND (QUOTE ((:LAST (LET ((PRETTYFLG (AND (NOT (MEMB (QUOTE FAST) OPTIONS)) PRETTYFLG))) (DECLARE (CL:SPECIAL PRETTYFLG)) *))))) (READVISE MAKEFILE) (MOVD? (QUOTE \DSPRETTY/ENDLINE) (QUOTE SUBPRINT/ENDLINE) NIL T) (MOVD (QUOTE XCL::PPRINT-DEFINER) (QUOTE PPRINT-DEFINER) NIL T) (PUTPROPS DEFINERPRINT FILETYPE :COMPILE-FILE) (PUTPROPS DEFINERPRINT MAKEFILE-ENVIRONMENT (:PACKAGE "INTERLISP" :READTABLE "INTERLISP")) (PUTPROPS DEFINERPRINT COPYRIGHT ("Xerox Corporation" 1988)) NIL