diff --git a/.gitignore b/.gitignore index f0b27cf7a..7b55af800 100644 --- a/.gitignore +++ b/.gitignore @@ -27,3 +27,4 @@ core # set up by install-diff-filter.sh script .gitattributes +sources/LLREAD.LCOM.~1~ diff --git a/library/BIGBITMAPS b/library/BIGBITMAPS index b2d1ec8cb..a0da1ffcc 100644 --- a/library/BIGBITMAPS +++ b/library/BIGBITMAPS @@ -1,26 +1,30 @@ (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "XCL" BASE 10) -(FILECREATED "13-Jul-94 15:32:54" |{DSK}export>lispcore>library>BIGBITMAPS.;2| 105325 +(FILECREATED "13-Jun-2021 14:02:38"  +|{DSK}kaplan>Local>medley3.5>git-medley>library>BIGBITMAPS.;5| 113115 - |changes| |to:| (VARS BIGBITMAPSCOMS) + |changes| |to:| (FNS \\DRAWLINE.BIGBM.DASH \\DRAWLINE.BIGBM.NODASH BIGBITMAPP) + (VARS BIGBITMAPSCOMS) - |previous| |date:| "20-Jan-93 13:40:44" |{PELE:MV:ENVOS}LIBRARY>BIGBITMAPS.;10|) + |previous| |date:| "10-May-2021 15:37:51" +|{DSK}kaplan>Local>medley3.5>git-medley>library>BIGBITMAPS.;1|) -; Copyright (c) 1991, 1993, 1994 by Venue. All rights reserved. +; Copyright (c) 1991, 1993-1994, 2021 by Venue. (PRETTYCOMPRINT BIGBITMAPSCOMS) (RPAQQ BIGBITMAPSCOMS - ((DECLARE\: DONTEVAL@LOAD EVAL@COMPILE DONTCOPY (RECORDS BIGBM) + ((DECLARE\: EVAL@COMPILE DONTCOPY (RECORDS BIGBM) (CONSTANTS (|\\MaxBitMapHeight| 65535) (|\\MaxBitMapWidth| 65535) (|\\MaxBitMapWords| 131066)) (MACROS |GetNewFragment|) (MACROS |\\SFInvert|)) (INITRECORDS BIGBM) - (FNS BITBLT.BIGBM BITMAPCREATE.BIGBM BITMAPCREATE BITMAPCOPY BLTSHADE.BIGBM BITBLT + (FNS BIGBITMAPP BITBLT.BIGBM BITMAPCREATE.BIGBM BITMAPCREATE BITMAPCOPY BLTSHADE.BIGBM BITBLT \\ORG.BITBLT \\BLTSHADE.DISPLAY \\RESHOWBORDER1) - (FNS \\DRAWCIRCLE.BIGBM \\FILLCIRCLE.BIGBM \\DRAWELLIPSE.BIGBM \\DRAWCURVE.BIGBM) + (FNS \\DRAWCIRCLE.BIGBM \\FILLCIRCLE.BIGBM \\DRAWELLIPSE.BIGBM \\DRAWCURVE.BIGBM + \\DRAWLINE.BIGBM.DASH \\DRAWLINE.BIGBM.NODASH) (FNS DSPCREATE DSPDESTINATION |\\SFFixY| |\\SFFixDestination| |\\SFFixClippingRegion|) (FNS \\SW2BM BITMAPHEIGHT BITMAPWIDTH |\\SFFixFont| BITSPERPIXEL) (FNS COLORIZEBITMAP \\BWTOCOLORBLT UNCOLORIZEBITMAP) @@ -28,7 +32,7 @@ (MOVD? 'BLTSHADE 'ORG.BLTSHADE) (MOVD 'BLTSHADE.BIGBM 'BLTSHADE) (MOVD 'BITBLT 'BKBITBLT))))) -(DECLARE\: DONTEVAL@LOAD EVAL@COMPILE DONTCOPY +(DECLARE\: EVAL@COMPILE DONTCOPY (DECLARE\: EVAL@COMPILE (DATATYPE BIGBM (BIGBMWIDTH BIGBMHEIGHT BIGBMLIST)) @@ -65,11 +69,11 @@ (PUTPROPS |\\SFInvert| MACRO ((|BitMap| \y) - (* |corrects| |for| |the| |fact| |that| |alto| |bitmaps| |are| |stored| |with| - 0\,0 |as| |upper| |left| |while| |lisp| |bitmaps| |have| 0\,0 |as| |lower| - |left.| |The| |correction| |is| |actually| |off| |by| |one| - (|greater|) |because| \a |majority| |of| |the| |places| |that| |it| |is| - |called| |actually| |need| |one| |more| |than| |corrected| Y |value.|) + (* |corrects| |for| |the| |fact| |that| |alto| |bitmaps| |are| |stored| |with| + 0\,0 |as| |upper| |left| |while| |lisp| |bitmaps| |have| 0\,0 |as| |lower| + |left.| |The| |correction| |is| |actually| |off| |by| |one| + (|greater|) |because| \a |majority| |of| |the| |places| |that| |it| |is| + |called| |actually| |need| |one| |more| |than| |corrected| Y |value.|) (IDIFFERENCE (|fetch| (BITMAP BITMAPHEIGHT) |of| |BitMap|) @@ -84,6 +88,10 @@ '6) (DEFINEQ +(BIGBITMAPP + (LAMBDA (X) (* \; "Edited 13-Jun-2021 13:27 by rmk:") + (TYPE? BIGBM X))) + (BITBLT.BIGBM (LAMBDA (SRCE SRCELEFT SRCEBOTTOM DEST DESTLEFT DESTBOTTOM WIDTH HEIGHT SRCETYPE OPERATION TEXTURE CLIPPINGREGION) (* \; "Edited 24-Jan-91 11:19 by matsuda") @@ -989,6 +997,114 @@ ) (RETURN DISPLAYSTREAM))) (T (\\DRAWCURVE.DISPLAY DISPLAYSTREAM KNOTS CLOSED BRUSH DASHING)))))) + +(\\DRAWLINE.BIGBM.DASH + (LAMBDA (DISPLAYSTREAM X1 Y1 X2 Y2 BRUSH DASHING OPERATION) + (* \; "Edited 13-Jun-2021 14:02 by rmk:") + (GLOBALRESOURCES \\BRUSHBBT (LET ((DD (|fetch| IMAGEDATA |of| DISPLAYSTREAM)) + BITMAP BIGBMLIST HEIGHT BOTTOM BM YY1 YY2 |ClippingTop| + |ClippingBottom| |CTop| |CBottom|) + (SETQ BITMAP (|ffetch| |DDDestination| |of| DD)) + (SETQ BIGBMLIST (|fetch| (BIGBM BIGBMLIST) |of| BITMAP)) + (SETQ HEIGHT (BITMAPHEIGHT BITMAP)) + (SETQ |ClippingTop| (|ffetch| |DDClippingTop| |of| + DD)) + (SETQ |ClippingBottom| (|ffetch| |DDClippingBottom| + |of| DD)) + (SETQ BM (|GetNewFragment| BIGBMLIST)) + (|while| (AND BM (IGREATERP HEIGHT |ClippingBottom|)) + |do| (SETQ BOTTOM (IDIFFERENCE HEIGHT (BITMAPHEIGHT + BM))) + (SETQ |CTop| (COND + ((IGREATERP |ClippingTop| HEIGHT) + (IDIFFERENCE HEIGHT BOTTOM)) + (T (IDIFFERENCE |ClippingTop| BOTTOM))) + ) + (|if| (IGEQ |CTop| 0) + |then| (SETQ |CBottom| + (COND + ((ILESSP |ClippingBottom| BOTTOM) + 0) + (T (IDIFFERENCE |ClippingBottom| + BOTTOM)))) + (|replace| |DDDestination| |of| + DD + |with| BM) + (|replace| |DDClippingTop| |of| + DD + |with| |CTop|) + (|replace| |DDClippingBottom| + |of| DD |with| |CBottom|) + (\\LINEWITHBRUSH X1 (IDIFFERENCE Y1 BOTTOM) + X2 + (IDIFFERENCE Y2 BOTTOM) + BRUSH + (\\GOOD.DASHLST DASHING BRUSH) + DISPLAYSTREAM \\BRUSHBBT OPERATION) + (SETQ BM (|GetNewFragment| BIGBMLIST)) + (SETQ HEIGHT BOTTOM))) + (|freplace| |DDDestination| |of| DD |with| BITMAP) + (|freplace| |DDClippingTop| |of| DD |with| + |ClippingTop|) + (|freplace| |DDClippingBottom| |of| DD |with| + |ClippingBottom| + ))))) + +(\\DRAWLINE.BIGBM.NODASH + (LAMBDA (DISPLAYSTREAM X1 Y1 X2 Y2 WIDTH OPERATION COLOR) + (* \; "Edited 13-Jun-2021 13:59 by rmk:") + (LET ((DD (|fetch| IMAGEDATA |of| DISPLAYSTREAM)) + BITMAP BIGBMLIST HEIGHT BOTTOM BM |CTop| |CBottom| |ClippingTop| |ClippingBottom| YY1 YY2) + (SETQ BITMAP (|ffetch| |DDDestination| |of| DD)) + (SETQ BIGBMLIST (|fetch| (BIGBM BIGBMLIST) |of| BITMAP)) + (SETQ HEIGHT (BITMAPHEIGHT BITMAP)) + (SETQ BM (|GetNewFragment| BIGBMLIST)) + (SETQ |ClippingTop| (|ffetch| |DDClippingTop| |of| DD)) + (SETQ |ClippingBottom| (|ffetch| |DDClippingBottom| |of| DD)) + (SETQ YY1 (\\DSPTRANSFORMY (OR (FIXP Y1) + (FIXR Y1)) + DD)) + (SETQ YY2 (\\DSPTRANSFORMY (OR (FIXP Y2) + (FIXR Y2)) + DD)) + (|while| (AND BM (IGREATERP HEIGHT |ClippingBottom|)) + |do| (SETQ BOTTOM (IDIFFERENCE HEIGHT (BITMAPHEIGHT BM))) + (SETQ |CTop| (COND + ((IGREATERP |ClippingTop| HEIGHT) + (IDIFFERENCE HEIGHT BOTTOM)) + (T (IDIFFERENCE |ClippingTop| BOTTOM)))) + (COND + ((IGEQ |CTop| 0) + (SETQ |CBottom| (COND + ((ILESSP |ClippingBottom| BOTTOM) + 0) + (T (IDIFFERENCE |ClippingBottom| BOTTOM)))) + (\\CLIPANDDRAWLINE (\\DSPTRANSFORMX (OR (FIXP X1) + (FIXR X1)) + DD) + (IDIFFERENCE YY1 BOTTOM) + (\\DSPTRANSFORMX (OR (FIXP X2) + (FIXR X2)) + DD) + (IDIFFERENCE YY2 BOTTOM) + (COND + ((NULL WIDTH) + 1) + ((OR (FIXP WIDTH) + (FIXR WIDTH)))) + (SELECTQ OPERATION + (NIL (|ffetch| DDOPERATION |of| DD)) + ((REPLACE PAINT INVERT ERASE) + OPERATION) + (\\ILLEGAL.ARG OPERATION)) + BM + (|ffetch| |DDClippingLeft| |of| DD) + (SUB1 (|ffetch| |DDClippingRight| |of| DD)) + |CBottom| + (SUB1 |CTop|) + DISPLAYSTREAM COLOR))) + (SETQ BM (|GetNewFragment| BIGBMLIST)) + (SETQ HEIGHT BOTTOM))))) ) (DEFINEQ @@ -1400,14 +1516,14 @@ (RETURN COLORBITMAP)))) (\\BWTOCOLORBLT - (LAMBDA (SOURCEBWBM SLEFT SBOTTOM DESTCOLORBM DLEFT DBOTTOM WIDTH HEIGHT 0COLOR 1COLOR DESTNBITS) - (* \; "Edited 13-Jul-90 14:11 by matsuda") - - (* |blits| |from| \a |black| |and| |white| |bitmap| |into| \a |color| |bitmap| - |which| |has| DESTNBITS |bits| |per| |pixel.| - DESTCOLORBM |is| \a |pointer| |to| |the| |color| |bitmap.|) - (* |assumes| |all| |datatypes| |and| - |bounds| |have| |been| |checked|) + (LAMBDA (SOURCEBWBM SLEFT SBOTTOM DESTCOLORBM DLEFT DBOTTOM WIDTH HEIGHT 0COLOR 1COLOR DESTNBITS) + (* \; "Edited 8-May-2021 22:31 by rmk:") + + (* |blits| |from| \a |black| |and| |white| |bitmap| |into| \a |color| |bitmap| + |which| |has| DESTNBITS |bits| |per| |pixel.| + DESTCOLORBM |is| \a |pointer| |to| |the| |color| |bitmap.|) + (* |assumes| |all| |datatypes| |and| + |bounds| |have| |been| |checked|) (SELECTQ DESTNBITS (4 (PROG (MAP SRCBASE SRCHEIGHT SRCRW SRCWRD SRCOFFSET DESBASE DESHEIGHT DESRW DESWRD DESOFF NBITS DESALIGNLEFT SCR) @@ -1422,24 +1538,24 @@ (SETQ DESRW (|fetch| (BITMAP BITMAPRASTERWIDTH) |of| DESTCOLORBM)) (SETQ DESWRD (FOLDLO DLEFT 4)) (SETQ DESOFF (MOD DLEFT 4)) - (SETQ NBITS 4) (* DESTCOLORBM |is| |used| |to| - |allow| |one| |bit| |per| |pixel| - |bitblt| |operations| |on| |the| - |bitmap.|) + (SETQ NBITS 4) (* DESTCOLORBM |is| |used| |to| + |allow| |one| |bit| |per| |pixel| + |bitblt| |operations| |on| |the| + |bitmap.|) (COND - ((NOT (EQ 0 DESOFF)) (* |save| |the| |left| |bits| |of| - |the| |destination| |bitmap| |so| - |it| |can| |be| |word| |aligned.|) + ((NOT (EQ 0 DESOFF)) (* |save| |the| |left| |bits| |of| + |the| |destination| |bitmap| |so| + |it| |can| |be| |word| |aligned.|) (SETQ SCR (BITMAPCREATE 4 HEIGHT 4)) (BITBLT DESTCOLORBM (SETQ DESALIGNLEFT (LLSH DESWRD 2)) DBOTTOM SCR 0 0 DESOFF HEIGHT 'INPUT 'REPLACE))) (|for| LINECOUNTER |from| 1 |to| HEIGHT |do| - (* |linecounter| |goes| |from| 1 |to| |height| |because| |bitmaps| |are| - |stored| |internally| |with| |top| |first| |so| |subtracting| |height| |is| - |necessary| |to| |get| |offset| |of| |line| |and| |the| 1 |corrects| |for| - |height| |difference.|) + (* |linecounter| |goes| |from| 1 |to| |height| |because| |bitmaps| |are| + |stored| |internally| |with| |top| |first| |so| |subtracting| |height| |is| + |necessary| |to| |get| |offset| |of| |line| |and| |the| 1 |corrects| |for| + |height| |difference.|) (\\4BITLINEBLT (\\ADDBASE SRCBASE (IPLUS (ITIMES (IDIFFERENCE SRCHEIGHT (IPLUS LINECOUNTER @@ -1454,9 +1570,9 @@ DESWRD)) WIDTH MAP 0COLOR 1COLOR)) (COND - (DESALIGNLEFT (* |move| |the| |color| |bits| |to| - |the| |right| |and| |restore| |the| - |saved| |color| |bits.|) + (DESALIGNLEFT (* |move| |the| |color| |bits| |to| + |the| |right| |and| |restore| |the| + |saved| |color| |bits.|) (BITBLT DESTCOLORBM DESALIGNLEFT DBOTTOM DESTCOLORBM (IPLUS DESALIGNLEFT DESOFF) @@ -1464,32 +1580,32 @@ (BITBLT SCR 0 0 DESTCOLORBM DESALIGNLEFT DBOTTOM DESOFF HEIGHT 'INPUT 'REPLACE))))) - (8 ((OPCODES SUBRCALL 142 11) - SOURCEBWBM SLEFT SBOTTOM DESTCOLORBM DLEFT DBOTTOM WIDTH HEIGHT 0COLOR 1COLOR DESTNBITS) - - (* PROG (MAP SRCBASE SRCHEIGHT SRCRW SRCWRD SRCOFFSET DESBASE DESHEIGHT DESRW - DESWRD DESOFF) (SETQ MAP (|fetch| (ARRAYP BASE) |of| - (\\MAP8 0COLOR 1COLOR))) (SETQ SRCBASE (|fetch| - (BITMAP BITMAPBASE) |of| SOURCEBWBM)) (SETQ SRCHEIGHT - (|fetch| (BITMAP BITMAPHEIGHT) |of| SOURCEBWBM)) - (SETQ SRCRW (|fetch| (BITMAP BITMAPRASTERWIDTH) |of| SOURCEBWBM)) - (SETQ SRCWRD (FOLDLO SLEFT BITSPERWORD)) - (SETQ SRCOFFSET (MOD SLEFT BITSPERWORD)) - (SETQ DESBASE (|fetch| (BITMAP BITMAPBASE) |of| DESTCOLORBM)) - (SETQ DESHEIGHT (|fetch| (BITMAP BITMAPHEIGHT) |of| DESTCOLORBM)) - (SETQ DESRW (|fetch| (BITMAP BITMAPRASTERWIDTH) |of| DESTCOLORBM)) - (SETQ DESWRD (FOLDLO DLEFT 2)) (SETQ DESOFF - (MOD DLEFT 2)) (|for| LINECOUNTER |from| 1 |to| HEIGHT |do| - (* |linecounter| |goes| |from| 1 |to| |height| |because| |bitmaps| |are| - |stored| |internally| |with| |top| |first| |so| |subtracting| |height| |is| - |necessary| |to| |get| |offset| |of| |line| |and| |the| 1 |corrects| |for| - |height| |difference.|) (\\8BITLINEBLT (\\ADDBASE SRCBASE - (IPLUS (ITIMES (IDIFFERENCE SRCHEIGHT (IPLUS LINECOUNTER SBOTTOM)) SRCRW) - SRCWRD)) SRCOFFSET (\\ADDBASE DESBASE (IPLUS - (ITIMES (IDIFFERENCE DESHEIGHT (IPLUS LINECOUNTER DBOTTOM)) DESRW) DESWRD)) - DESOFF WIDTH MAP 0COLOR 1COLOR)) *) - - ) + (8 + + (* PROG (MAP SRCBASE SRCHEIGHT SRCRW SRCWRD SRCOFFSET DESBASE DESHEIGHT DESRW + DESWRD DESOFF) (SETQ MAP (|fetch| (ARRAYP BASE) |of| + (\\MAP8 0COLOR 1COLOR))) (SETQ SRCBASE (|fetch| + (BITMAP BITMAPBASE) |of| SOURCEBWBM)) (SETQ SRCHEIGHT + (|fetch| (BITMAP BITMAPHEIGHT) |of| SOURCEBWBM)) + (SETQ SRCRW (|fetch| (BITMAP BITMAPRASTERWIDTH) |of| SOURCEBWBM)) + (SETQ SRCWRD (FOLDLO SLEFT BITSPERWORD)) + (SETQ SRCOFFSET (MOD SLEFT BITSPERWORD)) + (SETQ DESBASE (|fetch| (BITMAP BITMAPBASE) |of| DESTCOLORBM)) + (SETQ DESHEIGHT (|fetch| (BITMAP BITMAPHEIGHT) |of| DESTCOLORBM)) + (SETQ DESRW (|fetch| (BITMAP BITMAPRASTERWIDTH) |of| DESTCOLORBM)) + (SETQ DESWRD (FOLDLO DLEFT 2)) (SETQ DESOFF + (MOD DLEFT 2)) (|for| LINECOUNTER |from| 1 |to| HEIGHT |do| + (* |linecounter| |goes| |from| 1 |to| |height| |because| |bitmaps| |are| + |stored| |internally| |with| |top| |first| |so| |subtracting| |height| |is| + |necessary| |to| |get| |offset| |of| |line| |and| |the| 1 |corrects| |for| + |height| |difference.|) (\\8BITLINEBLT (\\ADDBASE SRCBASE + (IPLUS (ITIMES (IDIFFERENCE SRCHEIGHT (IPLUS LINECOUNTER SBOTTOM)) SRCRW) + SRCWRD)) SRCOFFSET (\\ADDBASE DESBASE (IPLUS + (ITIMES (IDIFFERENCE DESHEIGHT (IPLUS LINECOUNTER DBOTTOM)) DESRW) DESWRD)) + DESOFF WIDTH MAP 0COLOR 1COLOR)) *) + + ((OPCODES SUBRCALL 142 11) + SOURCEBWBM SLEFT SBOTTOM DESTCOLORBM DLEFT DBOTTOM WIDTH HEIGHT 0COLOR 1COLOR DESTNBITS)) (24 (PROG (SRCBASE SRCHEIGHT SRCRW DESBASE DESHEIGHT DESRW) (SETQ SRCBASE (|fetch| (BITMAP BITMAPBASE) |of| SOURCEBWBM)) (SETQ SRCHEIGHT (|fetch| (BITMAP BITMAPHEIGHT) |of| SOURCEBWBM)) @@ -1500,10 +1616,10 @@ (|for| LINECOUNTER |from| 1 |to| HEIGHT |do| - (* |linecounter| |goes| |from| 1 |to| |height| |because| |bitmaps| |are| - |stored| |internally| |with| |top| |first| |so| |subtracting| |height| |is| - |necessary| |to| |get| |offset| |of| |line| |and| |the| 1 |corrects| |for| - |height| |difference.|) + (* |linecounter| |goes| |from| 1 |to| |height| |because| |bitmaps| |are| + |stored| |internally| |with| |top| |first| |so| |subtracting| |height| |is| + |necessary| |to| |get| |offset| |of| |line| |and| |the| 1 |corrects| |for| + |height| |difference.|) (\\24BITLINEBLT (\\ADDBASE SRCBASE (ITIMES (IDIFFERENCE SRCHEIGHT (IPLUS LINECOUNTER @@ -1630,16 +1746,17 @@ (MOVD 'BITBLT 'BKBITBLT) ) -(PUTPROPS BIGBITMAPS COPYRIGHT ("Venue" 1991 1993 1994)) +(PUTPROPS BIGBITMAPS COPYRIGHT ("Venue" 1991 1993 1994 2021)) (DECLARE\: DONTCOPY - (FILEMAP (NIL (3181 47731 (BITBLT.BIGBM 3191 . 14014) (BITMAPCREATE.BIGBM 14016 . 15358) (BITMAPCREATE - 15360 . 16962) (BITMAPCOPY 16964 . 17499) (BLTSHADE.BIGBM 17501 . 20637) (BITBLT 20639 . 22287) ( -\\ORG.BITBLT 22289 . 33858) (\\BLTSHADE.DISPLAY 33860 . 43098) (\\RESHOWBORDER1 43100 . 47729)) (47732 - 63529 (\\DRAWCIRCLE.BIGBM 47742 . 51105) (\\FILLCIRCLE.BIGBM 51107 . 55153) (\\DRAWELLIPSE.BIGBM -55155 . 59675) (\\DRAWCURVE.BIGBM 59677 . 63527)) (63530 79105 (DSPCREATE 63540 . 65970) ( -DSPDESTINATION 65972 . 69870) (|\\SFFixY| 69872 . 75594) (|\\SFFixDestination| 75596 . 76779) ( -|\\SFFixClippingRegion| 76781 . 79103)) (79106 87192 (\\SW2BM 79116 . 84140) (BITMAPHEIGHT 84142 . -84640) (BITMAPWIDTH 84642 . 85134) (|\\SFFixFont| 85136 . 86108) (BITSPERPIXEL 86110 . 87190)) (87193 -105083 (COLORIZEBITMAP 87203 . 89840) (\\BWTOCOLORBLT 89842 . 98124) (UNCOLORIZEBITMAP 98126 . 105081) -)))) + (FILEMAP (NIL (3337 48035 (BIGBITMAPP 3347 . 3493) (BITBLT.BIGBM 3495 . 14318) (BITMAPCREATE.BIGBM +14320 . 15662) (BITMAPCREATE 15664 . 17266) (BITMAPCOPY 17268 . 17803) (BLTSHADE.BIGBM 17805 . 20941) +(BITBLT 20943 . 22591) (\\ORG.BITBLT 22593 . 34162) (\\BLTSHADE.DISPLAY 34164 . 43402) ( +\\RESHOWBORDER1 43404 . 48033)) (48036 71314 (\\DRAWCIRCLE.BIGBM 48046 . 51409) (\\FILLCIRCLE.BIGBM +51411 . 55457) (\\DRAWELLIPSE.BIGBM 55459 . 59979) (\\DRAWCURVE.BIGBM 59981 . 63831) ( +\\DRAWLINE.BIGBM.DASH 63833 . 68192) (\\DRAWLINE.BIGBM.NODASH 68194 . 71312)) (71315 86890 (DSPCREATE +71325 . 73755) (DSPDESTINATION 73757 . 77655) (|\\SFFixY| 77657 . 83379) (|\\SFFixDestination| 83381 + . 84564) (|\\SFFixClippingRegion| 84566 . 86888)) (86891 94977 (\\SW2BM 86901 . 91925) (BITMAPHEIGHT +91927 . 92425) (BITMAPWIDTH 92427 . 92919) (|\\SFFixFont| 92921 . 93893) (BITSPERPIXEL 93895 . 94975)) + (94978 112868 (COLORIZEBITMAP 94988 . 97625) (\\BWTOCOLORBLT 97627 . 105909) (UNCOLORIZEBITMAP 105911 + . 112866))))) STOP diff --git a/library/BIGBITMAPS.LCOM b/library/BIGBITMAPS.LCOM index 7dcf77641..0e338ef46 100644 Binary files a/library/BIGBITMAPS.LCOM and b/library/BIGBITMAPS.LCOM differ diff --git a/library/CHAT.LCOM b/library/CHAT.LCOM index 8afdbd261..3c443781b 100644 Binary files a/library/CHAT.LCOM and b/library/CHAT.LCOM differ diff --git a/library/CLIPBOARD b/library/CLIPBOARD index ecc0e6547..ebbfaafac 100644 --- a/library/CLIPBOARD +++ b/library/CLIPBOARD @@ -1,11 +1,11 @@ -(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP") -(FILECREATED "23-Feb-2021 22:13:09"  -{DSK}kaplan>Local>medley3.5>git-medley>library>CLIPBOARD.;52 9082 +(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10 FORMAT XCCS) +(FILECREATED " 3-Jul-2021 13:16:26"  +{DSK}kaplan>Local>medley3.5>git-medley>library>CLIPBOARD.;6 9185 - changes to%: (FNS CLIPBOARD-COPY-STREAM CLIPBOARD-PASTE-STREAM) + changes to%: (VARS CLIPBOARDCOMS) - previous date%: "23-Feb-2021 11:34:57" -{DSK}kaplan>Local>medley3.5>git-medley>library>CLIPBOARD.;50) + previous date%: "24-Jun-2021 21:14:38" +{DSK}kaplan>Local>medley3.5>git-medley>library>CLIPBOARD.;5) (PRETTYCOMPRINT CLIPBOARDCOMS) @@ -16,7 +16,7 @@ CLIPBOARD-COPY-STREAM CLIPBOARD-PASTE-STREAM) (FNS TEDIT.COPYTOCLIPBOARD TEDIT.EXTRACTTOCLIPBOARD) (FNS SEDIT.COPYTOCLIPBOARD) - (INITVARS (CLIPBOARD-FORMAT :UTF8)) + (INITVARS (CLIPBOARD-FORMAT :UTF-8)) (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DOCOPY (FILES (SYSLOAD) UNIXCOMM UNICODE) (P (INSTALL-CLIPBOARD))) @@ -30,49 +30,49 @@ (DEFINEQ -(INSTALL-CLIPBOARD - [LAMBDA NIL (* ; "Edited 8-Aug-2020 07:59 by rmk:") - (* ; "Edited 19-Apr-2020 12:15 by rmk:") - (* ; "Edited 18-Apr-2018 23:00 by rmk:") +(INSTALL-CLIPBOARD + [LAMBDA NIL (* ; "Edited 24-Jun-2021 21:14 by rmk:") + (* ; "Edited 19-Apr-2020 12:15 by rmk:") + (* ; "Edited 18-Apr-2018 23:00 by rmk:") (CL:WHEN (GETD 'LISPINTERRUPTS.PASTE) (MOVD? 'LISPINTERRUPTS 'LISPINTERRUPTS.ORIG) (MOVD 'LISPINTERRUPTS.PASTE 'LISPINTERRUPTS)) - (INTERRUPTCHAR (CHARCODE "1,v") - '(PASTEFROMCLIPBOARD)) - (INTERRUPTCHAR (CHARCODE "1,V") - '(PASTEFROMCLIPBOARD)) - (CL:WHEN (BOUNDP 'TEDIT.READTABLE) (* ; "TEDIT") + (INTERRUPTCHAR (CHARCODE "Meta,v") + '(PASTEFROMCLIPBOARD)) + (INTERRUPTCHAR (CHARCODE "Meta,V") + '(PASTEFROMCLIPBOARD)) + (CL:WHEN (BOUNDP 'TEDIT.READTABLE) (* ; "TEDIT") - (* ;; "Paste") + (* ;; "Paste") - (TEDIT.SETFUNCTION (CHARCODE "1,v") + (TEDIT.SETFUNCTION (CHARCODE "Meta,v") (FUNCTION PASTEFROMCLIPBOARD) TEDIT.READTABLE) - (TEDIT.SETFUNCTION (CHARCODE "1,V") + (TEDIT.SETFUNCTION (CHARCODE "Meta,V") (FUNCTION PASTEFROMCLIPBOARD) TEDIT.READTABLE) - (* ;; "Copy") + (* ;; "Copy") - (TEDIT.SETFUNCTION (CHARCODE "1,c") + (TEDIT.SETFUNCTION (CHARCODE "Meta,c") (FUNCTION TEDIT.COPYTOCLIPBOARD) TEDIT.READTABLE) - (TEDIT.SETFUNCTION (CHARCODE "1,C") + (TEDIT.SETFUNCTION (CHARCODE "Meta,C") (FUNCTION TEDIT.COPYTOCLIPBOARD) TEDIT.READTABLE) - (* ;; "Extract") + (* ;; "Extract") - (TEDIT.SETFUNCTION (CHARCODE "1,X") + (TEDIT.SETFUNCTION (CHARCODE "Meta,X") (FUNCTION TEDIT.EXTRACTTOCLIPBOARD) TEDIT.READTABLE) - (TEDIT.SETFUNCTION (CHARCODE "1,x") + (TEDIT.SETFUNCTION (CHARCODE "Meta,x") (FUNCTION TEDIT.EXTRACTTOCLIPBOARD) TEDIT.READTABLE)) - (CL:WHEN (GETP 'SEDIT 'FILEDATES) (* ; - "SEDIT copy: INTERRUPTCHAR does paste") - (SEDIT:ADD-COMMAND "1,c" 'SEDIT.COPYTOCLIPBOARD) - (SEDIT:ADD-COMMAND "1,C" 'SEDIT.COPYTOCLIPBOARD) + (CL:WHEN (GETP 'SEDIT 'FILEDATES) (* ; + "SEDIT copy: INTERRUPTCHAR does paste") + (SEDIT:ADD-COMMAND "Meta,c" 'SEDIT.COPYTOCLIPBOARD "M-c" "Copy to clipboard") + (SEDIT:ADD-COMMAND "Meta,C" 'SEDIT.COPYTOCLIPBOARD) (SEDIT:RESET-COMMANDS))]) (GETCLIPBOARD @@ -184,7 +184,7 @@ T]) ) -(RPAQ? CLIPBOARD-FORMAT :UTF8) +(RPAQ? CLIPBOARD-FORMAT :UTF-8) (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DOCOPY (FILESLOAD (SYSLOAD) @@ -203,8 +203,8 @@ ) (PUTPROPS CLIPBOARD COPYRIGHT (NONE)) (DECLARE%: DONTCOPY - (FILEMAP (NIL (1309 6429 (INSTALL-CLIPBOARD 1319 . 3141) (GETCLIPBOARD 3143 . 3517) (PUTCLIPBOARD 3519 - . 3924) (PASTEFROMCLIPBOARD 3926 . 4844) (LISPINTERRUPTS.PASTE 4846 . 5267) (CLIPBOARD-COPY-STREAM -5269 . 5769) (CLIPBOARD-PASTE-STREAM 5771 . 6427)) (6430 7189 (TEDIT.COPYTOCLIPBOARD 6440 . 6721) ( -TEDIT.EXTRACTTOCLIPBOARD 6723 . 7187)) (7190 8729 (SEDIT.COPYTOCLIPBOARD 7200 . 8727))))) + (FILEMAP (NIL (1301 6531 (INSTALL-CLIPBOARD 1311 . 3243) (GETCLIPBOARD 3245 . 3619) (PUTCLIPBOARD 3621 + . 4026) (PASTEFROMCLIPBOARD 4028 . 4946) (LISPINTERRUPTS.PASTE 4948 . 5369) (CLIPBOARD-COPY-STREAM +5371 . 5871) (CLIPBOARD-PASTE-STREAM 5873 . 6529)) (6532 7291 (TEDIT.COPYTOCLIPBOARD 6542 . 6823) ( +TEDIT.EXTRACTTOCLIPBOARD 6825 . 7289)) (7292 8831 (SEDIT.COPYTOCLIPBOARD 7302 . 8829))))) STOP diff --git a/library/CLIPBOARD.LCOM b/library/CLIPBOARD.LCOM index c77009e57..5ed5a0e87 100644 Binary files a/library/CLIPBOARD.LCOM and b/library/CLIPBOARD.LCOM differ diff --git a/library/FILEBROWSER b/library/FILEBROWSER index c658179df..d1e3c02b9 100644 --- a/library/FILEBROWSER +++ b/library/FILEBROWSER @@ -1,12 +1,11 @@ -(DEFINE-FILE-INFO READTABLE "XCL" PACKAGE "INTERLISP") -(FILECREATED "27-Feb-2021 20:08:26"  -|{DSK}kaplan>Local>medley3.5>git-medley>library>FILEBROWSER.;33| 261320 +(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "XCL" BASE 10 FORMAT XCCS) +(FILECREATED " 9-Jul-2021 23:09:57"  +|{DSK}kaplan>Local>medley3.5>git-medley>library>FILEBROWSER.;4| 262331 - |changes| |to:| (FNS FB.EDITCOMMAND.ONEFILE FB.FINISH.COMMAND FB.MAKE.BROWSER.BUSY - FB.EDITCOMMAND) + |changes| |to:| (FNS FB.EDITCOMMAND.ONEFILE) - |previous| |date:| "25-Feb-2021 13:24:50" -|{DSK}kaplan>Local>medley3.5>git-medley>library>FILEBROWSER.;27|) + |previous| |date:| "27-Feb-2021 20:08:26" +|{DSK}kaplan>Local>medley3.5>git-medley>library>FILEBROWSER.;2|) ; Copyright (c) 1983-1991, 1993-1994, 1999-2001, 2021 by Venue & Xerox Corporation. @@ -1679,7 +1678,8 @@ Your deletions are thus ignored."))) ELSE (FB.FASTSEECOMMAND BROWSER KEY ITEM MENU))))) (FB.EDITCOMMAND.ONEFILE - (LAMBDA (BROWSER FILE OPTION ITEM MENU) (* \; "Edited 27-Feb-2021 20:07 by rmk:") + (LAMBDA (BROWSER FILE OPTION ITEM MENU) (* \; "Edited 9-Jul-2021 23:08 by rmk:") + (* \; "Edited 27-Feb-2021 20:07 by rmk:") (* \; "Edited 1-Feb-88 19:00 by bvm:") (* |;;| "Called when we know that FILE is a file, not a directory, and that TEDIT exists. If OPTION is READONLY, we don't want to edit, just view. If FILE is a lisp sourcefile, we execute the font changes by COPY.TEXT.TO.IMAGE.") @@ -1690,60 +1690,72 @@ Your deletions are thus ignored."))) (CL:MULTIPLE-VALUE-BIND (IGNORE CONDITION) (IGNORE-ERRORS - (IF (LISPSOURCEFILEP FILE) - THEN (SELECTQ OPTION - ((LISP NIL TEDIT) - (* |;;| + (LET ((ENV (LISPSOURCEFILEP FILE))) + (IF ENV + THEN (SELECTQ OPTION + ((LISP NIL TEDIT) + (* |;;| "Asks to load prop and edits the coms. We really don't want to use a text editor on a source file.") - - (* |;;| "The FUNCALL at the bottom is concerning.") - - (SHADEITEM ITEM MENU FB.ITEMUNSELECTEDSHADE) - (PUTMENUPROP MENU 'ITEMSHADE (CONS ITEM FB.ITEMUNSELECTEDSHADE)) - (FB.EDITLISPFILE FILE BROWSER)) - (READONLY (* \; "READONLY on call from SEE") - (CL:WITH-OPEN-FILE - (STREAM FILE :DIRECTION :INPUT) - (LET ((NSTR (OPENTEXTSTREAM))) - (COPY.TEXT.TO.IMAGE STREAM NSTR) + + (* |;;| "The FUNCALL at the bottom is concerning.") + + (SHADEITEM ITEM MENU FB.ITEMUNSELECTEDSHADE) + (PUTMENUPROP MENU 'ITEMSHADE (CONS ITEM FB.ITEMUNSELECTEDSHADE)) + (FB.EDITLISPFILE FILE BROWSER)) + (READONLY (* \; "READONLY on call from SEE") + (CL:WITH-OPEN-FILE + (STREAM FILE :DIRECTION :INPUT) + (LET ((NSTR (OPENTEXTSTREAM))) + (\\EXTERNALFORMAT STREAM (FETCH (READER-ENVIRONMENT + REFORMAT) + OF ENV)) + (COPY.TEXT.TO.IMAGE STREAM NSTR) (* |;;| "Unshade the item before we create the TEDIT window, and tell FB.FINISH.COMMAND that we did that. That way, the FB window won't pop up on top.") - (SHADEITEM ITEM MENU FB.ITEMUNSELECTEDSHADE) - (PUTMENUPROP MENU 'ITEMSHADE (CONS ITEM FB.ITEMUNSELECTEDSHADE - )) - (WINDOWPROP (WFROMDS (TEXTSTREAM (TEDIT NSTR NIL NIL - '(READONLY T)))) - 'TITLE - (CONCAT "SEE window for " (FULLNAME STREAM)))))) - (CL:FUNCALL OPTION (MKATOM FILE))) - ELSE (SELECTQ OPTION - (READONLY - (* |;;| "From SEE command. We want to be able to scroll around in the content, can't do that if it isn't random access. So in that case we do a secret NODIRCORE copy and look at that.") - - (CL:WITH-OPEN-FILE - (STREAM FILE :DIRECTION :INPUT) - (LET ((NSTR)) - (CL:UNLESS (RANDACCESSP STREAM) - (SETQ NSTR (OPENSTREAM '{NODIRCORE} 'BOTH 'NEW NIL - (LIST (LIST 'TYPE (GETFILEINFO - STREAM - 'TYPE))))) - (COPYBYTES STREAM NSTR)) - (SHADEITEM ITEM MENU FB.ITEMUNSELECTEDSHADE) - (PUTMENUPROP MENU 'ITEMSHADE (CONS ITEM FB.ITEMUNSELECTEDSHADE)) - (WINDOWPROP (WFROMDS (TEXTSTREAM (TEDIT (OR NSTR STREAM) - NIL NIL - '(READONLY T)))) - 'TITLE - (CONCAT "SEE window for " (FULLNAME STREAM)))))) - ((TEDIT NIL) - (SHADEITEM ITEM MENU FB.ITEMUNSELECTEDSHADE) - (PUTMENUPROP MENU 'ITEMSHADE (CONS ITEM FB.ITEMUNSELECTEDSHADE)) - (TEDIT (MKATOM FILE))) - (LISP (FB.PROMPTW.FORMAT BROWSER "Failed because not a Lisp source file")) - (CL:FUNCALL OPTION (MKATOM FILE))))) + (SHADEITEM ITEM MENU FB.ITEMUNSELECTEDSHADE) + (PUTMENUPROP MENU 'ITEMSHADE (CONS ITEM + FB.ITEMUNSELECTEDSHADE + )) + (WINDOWPROP (WFROMDS (TEXTSTREAM + (TEDIT NSTR NIL NIL + '(READONLY T)))) + 'TITLE + (CONCAT "SEE window for " (FULLNAME STREAM)))))) + (CL:FUNCALL OPTION (MKATOM FILE))) + ELSE (SELECTQ OPTION + (READONLY + + (* |;;| "From SEE command. We want to be able to scroll around in the content, can't do that if it isn't random access. So in that case we do a secret NODIRCORE copy and look at that.") + + (CL:WITH-OPEN-FILE + (STREAM FILE :DIRECTION :INPUT) + (LET ((NSTR)) + (CL:UNLESS (RANDACCESSP STREAM) + (SETQ NSTR (OPENSTREAM + '{NODIRCORE} + 'BOTH + 'NEW NIL (LIST (LIST 'TYPE + (GETFILEINFO + STREAM + 'TYPE))))) + (COPYBYTES STREAM NSTR)) + (SHADEITEM ITEM MENU FB.ITEMUNSELECTEDSHADE) + (PUTMENUPROP MENU 'ITEMSHADE (CONS ITEM + FB.ITEMUNSELECTEDSHADE)) + (WINDOWPROP (WFROMDS (TEXTSTREAM (TEDIT (OR NSTR STREAM) + NIL NIL + '(READONLY T)))) + 'TITLE + (CONCAT "SEE window for " (FULLNAME STREAM)))))) + ((TEDIT NIL) + (SHADEITEM ITEM MENU FB.ITEMUNSELECTEDSHADE) + (PUTMENUPROP MENU 'ITEMSHADE (CONS ITEM FB.ITEMUNSELECTEDSHADE)) + (TEDIT (MKATOM FILE))) + (LISP (FB.PROMPTW.FORMAT BROWSER + "Failed because not a Lisp source file")) + (CL:FUNCALL OPTION (MKATOM FILE)))))) (|if| CONDITION |then| (FB.PROMPTW.FORMAT BROWSER "Failed because ~A" CONDITION))))) @@ -4212,50 +4224,50 @@ then click Recompute")))) (PUTPROPS FILEBROWSER COPYRIGHT ("Venue & Xerox Corporation" 1983 1984 1985 1986 1987 1988 1989 1990 1991 1993 1994 1999 2000 2001 2021)) (DECLARE\: DONTCOPY - (FILEMAP (NIL (28186 50822 (FB 28196 . 29152) (FB.COPYBINARYCOMMAND 29154 . 29500) (FB.COPYTEXTCOMMAND - 29502 . 29844) (FILEBROWSER 29846 . 42952) (FB.TABLEBROWSER 42954 . 43171) (FB.SELECTEDFILES 43173 . -43810) (FB.FETCHFILENAME 43812 . 44204) (FB.DIRECTORYP 44206 . 44534) (FB.PROMPTWPRINT 44536 . 45582) -(FB.PROMPTW.FORMAT 45584 . 46321) (FB.PROMPTFORINPUT 46323 . 48575) (FB.YES-OR-NO-P 48577 . 49611) ( -FB.ALLOW.ABORT 49613 . 50467) (\\FB.HARDCOPY.TOFILE.EXTENSION 50469 . 50820)) (50846 51799 (FB.STARTUP - 50856 . 51371) (FB.MAKERIGIDWINDOW 51373 . 51797)) (51800 57172 (FB.PRINTFN 51810 . 56963) (FB.COPYFN - 56965 . 57170)) (57222 63264 (FB.MENU.WHENSELECTEDFN 57232 . 57590) (FB.COMMANDSELECTEDFN 57592 . -59131) (FB.SUBITEMP 59133 . 59568) (FB.MAKE.BROWSER.BUSY 59570 . 60308) (FB.FINISH.COMMAND 60310 . -62275) (FB.HANDLE.ABORT.BUTTON 62277 . 63262)) (63265 68781 (FB.DELETECOMMAND 63275 . 63556) ( -FB.DELVERCOMMAND 63558 . 66751) (FB.IS.NOT.SUBDIRECTORY.ITEM 66753 . 66934) (FB.DELVER.FILES 66936 . -68025) (FB.DELETE.FILE 68027 . 68779)) (68782 70107 (FB.UNDELETECOMMAND 68792 . 69077) ( -FB.UNDELETEALLCOMMAND 69079 . 69358) (FB.UNDELETE.FILE 69360 . 70105)) (70108 94289 (FB.COPYCOMMAND -70118 . 70387) (FB.RENAMECOMMAND 70389 . 70664) (FB.COPY/RENAME.COMMAND 70666 . 71589) ( -FB.COPY/RENAME.ONE 71591 . 73913) (FB.COPY/RENAME.MANY 73915 . 80135) (FB.MERGE.DIRECTORIES 80137 . -80555) (FB.GREATEST.PREFIX 80557 . 81913) (FB.MAYBE.INSERT.FILE 81915 . 89355) (FB.GET.NEW.FILE.SPEC -89357 . 93188) (FB.CANONICAL.DIRECTORY 93190 . 94287)) (94290 102074 (FB.HARDCOPYCOMMAND 94300 . 95430 -) (FB.HARDCOPY.TOFILE 95432 . 102072)) (102075 113638 (FB.EDITCOMMAND 102085 . 102886) ( -FB.EDITCOMMAND.ONEFILE 102888 . 107854) (FB.EDITLISPFILE 107856 . 108895) (FB.BROWSECOMMAND 108897 . -113636)) (113639 125432 (FB.FASTSEECOMMAND 113649 . 117099) (FB.FASTSEE.ONEFILE 117101 . 120130) ( -FB.SEEFULLFN 120132 . 124263) (FB.SEEBUTTONFN 124265 . 125430)) (125433 127179 (FB.LOADCOMMAND 125443 - . 125950) (FB.COMPILECOMMAND 125952 . 126490) (FB.OPERATE.ON.FILES 126492 . 127177)) (127180 174229 ( -FB.UPDATECOMMAND 127190 . 127415) (FB.MAYBE.EXPUNGE 127417 . 128412) (FB.UPDATEBROWSERITEMS 128414 . -141629) (FB.DATE 141631 . 142372) (FB.ADJUST.DATE.WIDTH 142374 . 145342) (FB.SET.BROWSER.TITLE 145344 - . 146201) (FB.MAYBE.WIDEN.NAMES 146203 . 148322) (FB.SET.DEFAULT.NAME.WIDTH 148324 . 149688) ( -FB.CREATE.FILEBUCKET 149690 . 156910) (FB.CHECK.NAME.LENGTH 156912 . 159333) (FB.ADD.FILEGROUP 159335 - . 160862) (FB.INSERT.DIRECTORY 160864 . 161102) (FB.MAKE.SUBDIRECTORY.ITEM 161104 . 162513) ( -FB.ADD.FILE 162515 . 163128) (FB.INSERT.FILE 163130 . 166542) (FB.ANALYZE.PATTERN 166544 . 171808) ( -FB.CANONICALIZE.PATTERN 171810 . 173122) (FB.GETALLFILEINFO 173124 . 174227)) (174230 182389 ( -FB.SORT.VERSIONS 174240 . 177011) (FB.DECREASING.VERSION 177013 . 177682) (FB.INCREASING.VERSION -177684 . 178305) (FB.NAMES.DECREASING.VERSION 178307 . 179342) (FB.NAMES.INCREASING.VERSION 179344 . -180341) (FB.DECREASING.NUMERIC.ATTR 180343 . 181023) (FB.INCREASING.NUMERIC.ATTR 181025 . 181699) ( -FB.ALPHABETIC.ATTR 181701 . 182387)) (182390 192232 (FB.SORTCOMMAND 182400 . 189230) ( -FB.INSERT.SUBDIRECTORIES 189232 . 190029) (FB.GET.SORT.MENU 190031 . 192230)) (192233 208322 ( -FB.EXPUNGECOMMAND 192243 . 194762) (FB.NEWPATTERNCOMMAND 194764 . 195162) (FB.NEWINFOCOMMAND 195164 . -197930) (FB.DEPTHCOMMAND 197932 . 199707) (FB.SHAPECOMMAND 199709 . 203051) (FB.REMOVE.FILE 203053 . -204874) (FB.COUNT.FILE.CHANGE 204876 . 206321) (FB.SETNEWPATTERN 206323 . 207493) (FB.GET.NEWPATTERN -207495 . 208079) (FB.OPTIONSCOMMAND 208081 . 208320)) (208357 209369 ( -FB.INFOMENU.SHADEINITIALSELECTIONS 208367 . 209014) (FB.INFO.ITEM.NAMED 209016 . 209367)) (209370 -218836 (FB.MAKECOUNTERWINDOW 209380 . 210842) (FB.COUNTERW.REDISPLAYFN 210844 . 211431) ( -FB.UPDATE.COUNTERS 211433 . 213505) (FB.DISPLAY.COUNTERS 213507 . 218567) (FB.COUNTER.STRING 218569 . -218834)) (218837 223480 (FB.MAKEHEADINGWINDOW 218847 . 220395) (FB.HEADINGW.REDISPLAYFN 220397 . -220663) (FB.HEADINGW.RESHAPEFN 220665 . 221041) (FB.HEADINGW.DISPLAY 221043 . 223478)) (223481 227664 -(FB.ICONFN 223491 . 223838) (FB.INFOMENU.WHENSELECTEDFN 223840 . 224570) (FB.CLOSEFN 224572 . 225775) -(FB.EXPUNGE?.MENU 225777 . 226189) (FB.AFTERCLOSEFN 226191 . 226552) (FB.CLOSE&EXPUNGE 226554 . 227662 -)) (227665 239723 (FB.HARDCOPY.DIRECTORY 227675 . 238032) (FB.HARDCOPY.PRINT.TITLE 238034 . 238360) ( -FB.HARDCOPY.MAXWIDTH 238362 . 239721))))) + (FILEMAP (NIL (28124 50760 (FB 28134 . 29090) (FB.COPYBINARYCOMMAND 29092 . 29438) (FB.COPYTEXTCOMMAND + 29440 . 29782) (FILEBROWSER 29784 . 42890) (FB.TABLEBROWSER 42892 . 43109) (FB.SELECTEDFILES 43111 . +43748) (FB.FETCHFILENAME 43750 . 44142) (FB.DIRECTORYP 44144 . 44472) (FB.PROMPTWPRINT 44474 . 45520) +(FB.PROMPTW.FORMAT 45522 . 46259) (FB.PROMPTFORINPUT 46261 . 48513) (FB.YES-OR-NO-P 48515 . 49549) ( +FB.ALLOW.ABORT 49551 . 50405) (\\FB.HARDCOPY.TOFILE.EXTENSION 50407 . 50758)) (50784 51737 (FB.STARTUP + 50794 . 51309) (FB.MAKERIGIDWINDOW 51311 . 51735)) (51738 57110 (FB.PRINTFN 51748 . 56901) (FB.COPYFN + 56903 . 57108)) (57160 63202 (FB.MENU.WHENSELECTEDFN 57170 . 57528) (FB.COMMANDSELECTEDFN 57530 . +59069) (FB.SUBITEMP 59071 . 59506) (FB.MAKE.BROWSER.BUSY 59508 . 60246) (FB.FINISH.COMMAND 60248 . +62213) (FB.HANDLE.ABORT.BUTTON 62215 . 63200)) (63203 68719 (FB.DELETECOMMAND 63213 . 63494) ( +FB.DELVERCOMMAND 63496 . 66689) (FB.IS.NOT.SUBDIRECTORY.ITEM 66691 . 66872) (FB.DELVER.FILES 66874 . +67963) (FB.DELETE.FILE 67965 . 68717)) (68720 70045 (FB.UNDELETECOMMAND 68730 . 69015) ( +FB.UNDELETEALLCOMMAND 69017 . 69296) (FB.UNDELETE.FILE 69298 . 70043)) (70046 94227 (FB.COPYCOMMAND +70056 . 70325) (FB.RENAMECOMMAND 70327 . 70602) (FB.COPY/RENAME.COMMAND 70604 . 71527) ( +FB.COPY/RENAME.ONE 71529 . 73851) (FB.COPY/RENAME.MANY 73853 . 80073) (FB.MERGE.DIRECTORIES 80075 . +80493) (FB.GREATEST.PREFIX 80495 . 81851) (FB.MAYBE.INSERT.FILE 81853 . 89293) (FB.GET.NEW.FILE.SPEC +89295 . 93126) (FB.CANONICAL.DIRECTORY 93128 . 94225)) (94228 102012 (FB.HARDCOPYCOMMAND 94238 . 95368 +) (FB.HARDCOPY.TOFILE 95370 . 102010)) (102013 114649 (FB.EDITCOMMAND 102023 . 102824) ( +FB.EDITCOMMAND.ONEFILE 102826 . 108865) (FB.EDITLISPFILE 108867 . 109906) (FB.BROWSECOMMAND 109908 . +114647)) (114650 126443 (FB.FASTSEECOMMAND 114660 . 118110) (FB.FASTSEE.ONEFILE 118112 . 121141) ( +FB.SEEFULLFN 121143 . 125274) (FB.SEEBUTTONFN 125276 . 126441)) (126444 128190 (FB.LOADCOMMAND 126454 + . 126961) (FB.COMPILECOMMAND 126963 . 127501) (FB.OPERATE.ON.FILES 127503 . 128188)) (128191 175240 ( +FB.UPDATECOMMAND 128201 . 128426) (FB.MAYBE.EXPUNGE 128428 . 129423) (FB.UPDATEBROWSERITEMS 129425 . +142640) (FB.DATE 142642 . 143383) (FB.ADJUST.DATE.WIDTH 143385 . 146353) (FB.SET.BROWSER.TITLE 146355 + . 147212) (FB.MAYBE.WIDEN.NAMES 147214 . 149333) (FB.SET.DEFAULT.NAME.WIDTH 149335 . 150699) ( +FB.CREATE.FILEBUCKET 150701 . 157921) (FB.CHECK.NAME.LENGTH 157923 . 160344) (FB.ADD.FILEGROUP 160346 + . 161873) (FB.INSERT.DIRECTORY 161875 . 162113) (FB.MAKE.SUBDIRECTORY.ITEM 162115 . 163524) ( +FB.ADD.FILE 163526 . 164139) (FB.INSERT.FILE 164141 . 167553) (FB.ANALYZE.PATTERN 167555 . 172819) ( +FB.CANONICALIZE.PATTERN 172821 . 174133) (FB.GETALLFILEINFO 174135 . 175238)) (175241 183400 ( +FB.SORT.VERSIONS 175251 . 178022) (FB.DECREASING.VERSION 178024 . 178693) (FB.INCREASING.VERSION +178695 . 179316) (FB.NAMES.DECREASING.VERSION 179318 . 180353) (FB.NAMES.INCREASING.VERSION 180355 . +181352) (FB.DECREASING.NUMERIC.ATTR 181354 . 182034) (FB.INCREASING.NUMERIC.ATTR 182036 . 182710) ( +FB.ALPHABETIC.ATTR 182712 . 183398)) (183401 193243 (FB.SORTCOMMAND 183411 . 190241) ( +FB.INSERT.SUBDIRECTORIES 190243 . 191040) (FB.GET.SORT.MENU 191042 . 193241)) (193244 209333 ( +FB.EXPUNGECOMMAND 193254 . 195773) (FB.NEWPATTERNCOMMAND 195775 . 196173) (FB.NEWINFOCOMMAND 196175 . +198941) (FB.DEPTHCOMMAND 198943 . 200718) (FB.SHAPECOMMAND 200720 . 204062) (FB.REMOVE.FILE 204064 . +205885) (FB.COUNT.FILE.CHANGE 205887 . 207332) (FB.SETNEWPATTERN 207334 . 208504) (FB.GET.NEWPATTERN +208506 . 209090) (FB.OPTIONSCOMMAND 209092 . 209331)) (209368 210380 ( +FB.INFOMENU.SHADEINITIALSELECTIONS 209378 . 210025) (FB.INFO.ITEM.NAMED 210027 . 210378)) (210381 +219847 (FB.MAKECOUNTERWINDOW 210391 . 211853) (FB.COUNTERW.REDISPLAYFN 211855 . 212442) ( +FB.UPDATE.COUNTERS 212444 . 214516) (FB.DISPLAY.COUNTERS 214518 . 219578) (FB.COUNTER.STRING 219580 . +219845)) (219848 224491 (FB.MAKEHEADINGWINDOW 219858 . 221406) (FB.HEADINGW.REDISPLAYFN 221408 . +221674) (FB.HEADINGW.RESHAPEFN 221676 . 222052) (FB.HEADINGW.DISPLAY 222054 . 224489)) (224492 228675 +(FB.ICONFN 224502 . 224849) (FB.INFOMENU.WHENSELECTEDFN 224851 . 225581) (FB.CLOSEFN 225583 . 226786) +(FB.EXPUNGE?.MENU 226788 . 227200) (FB.AFTERCLOSEFN 227202 . 227563) (FB.CLOSE&EXPUNGE 227565 . 228673 +)) (228676 240734 (FB.HARDCOPY.DIRECTORY 228686 . 239043) (FB.HARDCOPY.PRINT.TITLE 239045 . 239371) ( +FB.HARDCOPY.MAXWIDTH 239373 . 240732))))) STOP diff --git a/library/FILEBROWSER.LCOM b/library/FILEBROWSER.LCOM index 444d474dd..3589a1433 100644 Binary files a/library/FILEBROWSER.LCOM and b/library/FILEBROWSER.LCOM differ diff --git a/library/MASTERSCOPE b/library/MASTERSCOPE index 24d410140..654e187b7 100644 --- a/library/MASTERSCOPE +++ b/library/MASTERSCOPE @@ -1,9 +1,11 @@ (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) -(FILECREATED " 7-Mar-2021 19:39:11" {DSK}larry>ilisp>medley>library>MASTERSCOPE.;6 193444 +(FILECREATED "13-Jun-2021 09:05:17"  +{DSK}kaplan>Local>medley3.5>git-medley>library>MASTERSCOPE.;6 196680 - changes to%: (VARS MASTERSCOPECOMS MSDATABASECOMS) + changes to%: (FNS MSINTERPRETSET) - previous date%: " 3-Mar-2021 09:08:58" {DSK}larry>ilisp>medley>library>MASTERSCOPE.;5) + previous date%: " 9-Jun-2021 23:55:26" +{DSK}kaplan>Local>medley3.5>git-medley>library>MASTERSCOPE.;5) (* ; " @@ -1328,36 +1330,53 @@ Copyright (c) 1983-1988, 1990, 1993-1994, 2018, 2020-2021 by Venue & Xerox Corpo (DEFINEQ (DUMPDATABASE - [LAMBDA (FNLST) (* lmm "12-APR-81 15:57") - (PROG (DUMPEDFLG) - (DECLARE (SPECVARS DUMPEDFLG DUMPTABLE)) - (COND - (FNLST (MAPC FNLST (FUNCTION UPDATEFN))) - (T (UPDATECHANGED))) - (PRINT '(READATABASE)) - (PRIN1 '%() - (TERPRI) - [for DUMPTABLE in MSDATABASELST when (NOT (MEMB (CAR DUMPTABLE) - NODUMPRELATIONS)) - do (SETQ DUMPEDFLG NIL) - [COND - ((OR (NOT FNLST) - (EQ (CDDR DUMPTABLE) - T)) - - (* either dumping everything, or this is a permanent table which should be - dumped in entirity (e.g. templates)) - - (MAPTABLE (CADR DUMPTABLE) - (FUNCTION DUMPDATABASE1))) - (T (MAPC FNLST (FUNCTION (LAMBDA (FN) - (DUMPDATABASE1 (GETTABLE FN (CADR DUMPTABLE)) - FN] - (COND - (DUMPEDFLG (PRINT] - (TERPRI) - (PRIN1 '%)) - (TERPRI]) + [LAMBDA (FNLST FILE) (* ; "Edited 22-May-2021 00:01 by rmk:") + + (* ;; "RMK: Added FILE argument to provide an interface to a standard PRETTYDEF file (MAKEFILE but without all of the coms and fileproperty stuff.") + + (IF FILE + THEN + + (* ;; "If FILE is provided, then we construct a command for that file so that the database will be dumped by a call to PRETTYDEF that includes whatever contextual information (e.g. package, readtable) that makes the database LOAD(able).") + + (RESETLST + [PRETTYDEF NIL FILE `((E (DUMPDATABASE ,(CL:WHEN FNLST + (KWOTE (MKLIST FNLST)))]) + ELSE + + (* ;; "FILE is NIL, then we presume that it is already open and that whatever header information is needed to ensure LOADability has already been written.") + + (PROG (DUMPEDFLG) + (DECLARE (SPECVARS DUMPEDFLG DUMPTABLE)) + (COND + (FNLST (MAPC FNLST (FUNCTION UPDATEFN))) + (T (UPDATECHANGED))) + (PRINT '(READATABASE)) + (PRIN1 '%() + (TERPRI) + [for DUMPTABLE in MSDATABASELST when (NOT (MEMB (CAR DUMPTABLE) + NODUMPRELATIONS)) + do (SETQ DUMPEDFLG NIL) + [COND + ((OR (NOT FNLST) + (EQ (CDDR DUMPTABLE) + T)) + + (* either dumping everything, or this is a permanent table which should be + dumped in entirity (e.g. templates)) + + (MAPTABLE (CADR DUMPTABLE) + (FUNCTION DUMPDATABASE1))) + (T (MAPC FNLST (FUNCTION (LAMBDA (FN) + (DUMPDATABASE1 (GETTABLE FN (CADR + DUMPTABLE + )) + FN] + (COND + (DUMPEDFLG (PRINT] + (TERPRI) + (PRIN1 '%)) + (TERPRI]) (DUMPDATABASE1 [LAMBDA (VALUE FN) (* rmk%: "24-OCT-79 10:02") @@ -2559,7 +2578,7 @@ Copyright (c) 1983-1988, 1990, 1993-1994, 2018, 2020-2021 by Venue & Xerox Corpo (* ; "interactive routines") -(RPAQ MASTERSCOPEDATE " 7-Mar-2021") +(RPAQ MASTERSCOPEDATE "13-Jun-2021") (ADDTOVAR HISTORYCOMS %.) (DEFINEQ @@ -2649,10 +2668,10 @@ Copyright (c) 1983-1988, 1990, 1993-1994, 2018, 2020-2021 by Venue & Xerox Corpo (DEFINEQ (MSINTERPRETSET - [LAMBDA (SET OP ARG) (* ; "Edited 15-Aug-90 11:50 by jds") + [LAMBDA (SET OP ARG) (* ; "Edited 13-Jun-2021 09:04 by rmk:") - (* ;; "DECLARATIONS%%: (RECORDS SENTENCE MSSETPHRASE)") - (* ; "Edited 3-Jun-88 12:42 by jrb:") + (* ;; "DECLARATIONS%%: (RECORDS SENTENCE MSSETPHRASE)") + (* ; "Edited 3-Jun-88 12:42 by jrb:") (PROG (TEM TYPE (REP (fetch (MSSETPHRASE REP) of SET))) START [COND @@ -2698,7 +2717,7 @@ Copyright (c) 1983-1988, 1990, 1993-1994, 2018, 2020-2021 by Venue & Xerox Corpo (CHECK ARG) ((LIST HARD) - (* ;; "got a list of dotted pairs of hash tables and another set; want to know the set of all things which have the given relation to any in the other set") + (* ;; "got a list of dotted pairs of hash tables and another set; want to know the set of all things which have the given relation to any in the other set") (PROG ((HTABS (fetch (INRELATION HTABLES) of REP)) (INVERTED (fetch (INRELATION INVERTED) @@ -2759,8 +2778,9 @@ Copyright (c) 1983-1988, 1990, 1993-1994, 2018, 2020-2021 by Venue & Xerox Corpo (SHOULDNT 12))) (QUOTE (SELECTQ OP (CHECK (COND - (ARG (SETQ NEEDUPDATE (UNION NEEDUPDATE (fetch QUOTED - of REP))) + (ARG (SETQ NEEDUPDATE (UNION NEEDUPDATE (fetch + 'QUOTED of + REP))) NIL))) ((HARD LIST) (SETQ TYPE (OR (fetch (MSSETPHRASE TYPE) of SET) @@ -2768,7 +2788,7 @@ Copyright (c) 1983-1988, 1990, 1993-1994, 2018, 2020-2021 by Venue & Xerox Corpo (COND ([AND ARG (NEQ ARG 'FILES) (NEQ TYPE 'FILES) - (FMEMB (SETQ TEM (fetch QUOTED of REP)) + (FMEMB (SETQ TEM (fetch 'QUOTED of REP)) FILELST) (COND ((EQ ARG 'KNOWN) @@ -2779,28 +2799,29 @@ Copyright (c) 1983-1988, 1990, 1993-1994, 2018, 2020-2021 by Venue & Xerox Corpo ((EQ ARG 'KNOWN) 'FNS) (T ARG))) - (SETQ TEM (for FILE in (fetch QUOTED of REP) + (SETQ TEM (for FILE in (fetch 'QUOTED of + REP) join (ONFILE FILE ARG))) - (printout T (fetch QUOTED of REP) + (printout T (fetch 'QUOTED of REP) " => ON " - (fetch QUOTED of REP) + (fetch 'QUOTED of REP) T) - (replace QUOTED of (fetch (MSSETPHRASE REP) - of SET) with TEM)) + (replace 'QUOTED of (fetch (MSSETPHRASE REP) + of SET) with TEM)) (T (COND ([AND (EQ TYPE 'FNS) - (GETP (fetch QUOTED of REP) + (GETP (fetch 'QUOTED of REP) 'CLISPWORD) - (NOT (GETD (fetch QUOTED of REP] - (printout T "Warning: " (fetch QUOTED of REP) + (NOT (GETD (fetch 'QUOTED of REP] + (printout T "Warning: " (fetch 'QUOTED of REP) "is a CLISP word and is not treated like a function!" T))) - (fetch QUOTED of REP)))) - (MEMB (FMEMB ARG (fetch QUOTED of REP))) + (fetch 'QUOTED of REP)))) + (MEMB (FMEMB ARG (fetch 'QUOTED of REP))) (SHOULDNT 13))) (OR - (* ;; "I.e. WHO ON MYFILE OR @ EXPRP CALL X --- if either of the sets need to be KNOWN and are 'vague' then the entire world needs to be updated") + (* ;; "I.e. WHO ON MYFILE OR @ EXPRP CALL X --- if either of the sets need to be KNOWN and are 'vague' then the entire world needs to be updated") (SELECTQ OP (CHECK ([LAMBDA (X) @@ -2838,8 +2859,8 @@ Copyright (c) 1983-1988, 1990, 1993-1994, 2018, 2020-2021 by Venue & Xerox Corpo (MSINTERPRETSET (fetch (CSET SET2) of REP) 'MEMB ARG))) (SHOULDNT 14))) - (AND (* ; -"I.e. WHO ON MYFILE AND @ EXPRP CALL Z -- only if both sets are vague does the world need updating") + (AND (* ; +"I.e. WHO ON MYFILE AND @ EXPRP CALL Z -- only if both sets are vague does the world need updating") (SELECTQ OP (CHECK ([LAMBDA (X) (OR (MSINTERPRETSET (fetch (CSET SET2) of REP) @@ -2877,55 +2898,58 @@ Copyright (c) 1983-1988, 1990, 1993-1994, 2018, 2020-2021 by Venue & Xerox Corpo 'MEMB ARG))) (SHOULDNT 15))) (ANDNOT (replace (SENTENCE ID) of REP with 'AND) - [replace (MSSETPHRASE REP) of (fetch SET2 of REP) + [replace (MSSETPHRASE REP) of (fetch (CSET SET2) of REP) with (create NOT NEGATED _ (create MSSETPHRASE - using (fetch SET2 of REP) + using (fetch (CSET SET2) + of REP) REP _ (fetch (MSSETPHRASE REP) - of (fetch SET2 + of (fetch + (CSET SET2) of REP] (GO RETRY)) (IN [SETQ REP (create QUOTE QUOTED _ (MKLIST (CL:EVAL (fetch (IN EXPRESSION) of REP] (GO RETRY)) - (BLOCKS (* ; "Block set") + (BLOCKS (* ; "Block set") (SELECTQ OP (CHECK [[LAMBDA (X Y) (OR X Y] - (AND (fetch FNS of REP) - (MSINTERPRETSET (fetch FNS of REP) + (AND (fetch (BLOCKS FNS) of REP) + (MSINTERPRETSET (fetch (BLOCKS FNS) of REP) 'CHECK)) - (AND (fetch FILES of REP) - (MSINTERPRETSET (fetch FILES of REP) + (AND (fetch (BLOCKS FILES) of REP) + (MSINTERPRETSET (fetch (BLOCKS FILES) + of REP) 'CHECK]) (PROGN [SETQ REP (create QUOTE QUOTED _ - (MSGETBLOCKDEC (fetch TYPES - of REP) - (fetch FNS of REP) - (AND (fetch FILES of REP) - (MSINTERPRETSET (fetch - FILES - of - REP) - 'HARD] + (MSGETBLOCKDEC + (fetch (BLOCKS TYPES) of REP) + (fetch (BLOCKS FNS) of REP) + (AND (fetch (BLOCKS FILES) of REP) + (MSINTERPRETSET (fetch + (BLOCKS FILES) + of REP) + 'HARD] (GO RETRY)))) (FIELDS (SELECTQ OP - (CHECK (MSINTERPRETSET (fetch RECS of REP) + (CHECK (MSINTERPRETSET (fetch (FIELDS RECS) of REP) OP)) - (PROGN [SETQ REP - (create QUOTE - QUOTED _ - (PROG (VAL) - (for X - in (MSLISTSET (fetch RECS - of REP) - T) - do (SETQ VAL (UNION (RECORDFIELDNAMES - X) - VAL))) - (RETURN VAL] + (PROGN [SETQ REP (create + QUOTE + QUOTED _ + (PROG (VAL) + (for X + in (MSLISTSET (fetch + (FIELDS RECS) + of REP) + T) + do (SETQ VAL (UNION (RECORDFIELDNAMES + X) + VAL))) + (RETURN VAL] (GO RETRY)))) (THAT (PROG (TABLES (MSVERB (fetch (THAT MSVERB) of REP)) VALUE @@ -2934,34 +2958,39 @@ Copyright (c) 1983-1988, 1990, 1993-1994, 2018, 2020-2021 by Venue & Xerox Corpo ((AND OR ANDNOT) [SETQ REP (create CSET - ID _ (fetch (CVERB C) - of (fetch VPART of MSVERB)) + ID _ (fetch (CVERB C) of (fetch + (MSVERB VPART) + of MSVERB)) SET1 _ (create MSSETPHRASE using SET REP _ - (create THAT - MSVERB _ - (create MSVERB - TENSE _ (fetch TENSE - of MSVERB) - VPART _ - (fetch (CVERB VB1) - of (fetch VPART - of MSVERB))) - OTHERSET _ OS)) + (create + THAT + MSVERB _ (create + MSVERB + TENSE _ (fetch (MSVERB TENSE) + of MSVERB) + VPART _ + (fetch (CVERB VB1) + of (fetch (MSVERB + VPART) + of MSVERB))) + OTHERSET _ OS)) SET2 _ (create MSSETPHRASE using SET REP _ - (create THAT - MSVERB _ - (create MSVERB - TENSE _ (fetch TENSE - of MSVERB) - VPART _ - (fetch (CVERB VB2) - of (fetch VPART - of MSVERB))) - OTHERSET _ OS] + (create + THAT + MSVERB _ (create + MSVERB + TENSE _ (fetch (MSVERB TENSE) + of MSVERB) + VPART _ + (fetch (CVERB VB2) + of (fetch (MSVERB + VPART) + of MSVERB))) + OTHERSET _ OS] (GO RETRY)) (CALL (COND ((EQ (fetch (MSVERB MODIFIER) of MSVERB) @@ -2981,17 +3010,17 @@ Copyright (c) 1983-1988, 1990, 1993-1994, 2018, 2020-2021 by Venue & Xerox Corpo TOPFLG _ T] (GO RETRY)))) (CONTAIN (COND - ((EQ (fetch DET of OS) + ((EQ (fetch (MSSETPHRASE DET) of OS) 'WHICH) (SHOULDNT 16))) - (* ;; "JRB - Default types on files are now ignored - removed (|fetch| (MSSETPHRASE DEFAULTTYPE) |of| SET) from ORs below.") + (* ;; "JRB - Default types on files are now ignored - removed (|fetch| (MSSETPHRASE DEFAULTTYPE) |of| SET) from ORs below.") [SETQ REP (create QUOTE QUOTED _ - (SELECTQ (fetch TENSE of MSVERB) + (SELECTQ (fetch (MSVERB TENSE) of MSVERB) (ED (ONFILE (MSINTERPRETSET OS 'HARD) (OR (fetch (MSVERB MODIFIER) of MSVERB) @@ -3009,14 +3038,15 @@ Copyright (c) 1983-1988, 1990, 1993-1994, 2018, 2020-2021 by Venue & Xerox Corpo NIL) (SELECTQ OP (CHECK (SETQ VALUE (MSINTERPRETSET OS 'CHECK - (fetch KNOWN of OS)))) + (fetch (MSSETPHRASE KNOWN) + of OS)))) NIL) (SETQ TABLES (GETVERBTABLES (fetch (MSVERB ROOT) of MSVERB ) (fetch (MSVERB MODIFIER) of MSVERB))) - (replace REP of SET + (replace (MSSETPHRASE REP) of SET with (SETQ REP (create INRELATION - INVERTED _ (EQ (fetch TENSE + INVERTED _ (EQ (fetch (MSVERB TENSE) of MSVERB) 'ED) HTABLES _ TABLES @@ -3025,14 +3055,14 @@ Copyright (c) 1983-1988, 1990, 1993-1994, 2018, 2020-2021 by Venue & Xerox Corpo VALUE)))) (PATHS (COND ((EQ OP 'CHECK) - (CHECKPATHS (fetch MSPATHOPTIONS of REP))) + (CHECKPATHS (fetch (PATHS MSPATHOPTIONS) of REP))) (T (SETQ REP (create GETHASH HTABLE _ (LIST (MSONPATH REP)) BADMARKS _ T)) (GO RETRY)))) (SHOULDNT 17] RETRY - (replace REP of SET with REP) + (replace (MSSETPHRASE REP) of SET with REP) (GO START]) (MSINTERPA @@ -3148,12 +3178,12 @@ Copyright (c) 1983-1988, 1990, 1993-1994, 2018, 2020-2021 by Venue & Xerox Corpo (RETURN (OR VAL (NULL (FASSOC 'FROM OPTIONS]) (ONFILE - [LAMBDA (FILES TYPES FINDITEMS) (* ; "Edited 2-Jun-88 11:19 by jrb:") - (* ; - "MSHASHFILE uses cause GETRELATION barfs if CONTAINS table doesn't exist.") + [LAMBDA (FILES TYPES FINDITEMS) (* ; "Edited 9-Jun-2021 23:53 by rmk:") + (* ; + "MSHASHFILE uses cause GETRELATION barfs if CONTAINS table doesn't exist.") (PROG (VAL) - (* ;; "JRB - TYPES of 'ALL means gather all types Masterscope knows about") + (* ;; "JRB - TYPES of 'ALL means gather all types Masterscope knows about") [AND (EQ TYPES 'ALL) (SETQ TYPES (for FT in MSFNTYPES collect (fetch (MSANALYZABLE @@ -3167,8 +3197,8 @@ Copyright (c) 1983-1988, 1990, 1993-1994, 2018, 2020-2021 by Venue & Xerox Corpo ((FNS KNOWN NIL) T) NIL))) inside (OR FILES FILELST) - do (* ; - "Don't notice the file if we only care about FNS and the file is known to the database.") + do (* ; + "Don't notice the file if we only care about FNS and the file is known to the database.") (COND [(AND FNSONLY (NOT (MEMB FILE FILELST)) (GETRELATION FILE 'CONTAINS] @@ -3187,29 +3217,43 @@ Copyright (c) 1983-1988, 1990, 1993-1994, 2018, 2020-2021 by Venue & Xerox Corpo (T (SETQ VAL (UNION (FILECOMSLST FILE TYPE) VAL] [COND - ((AND MSHASHFILE (NULL VAL) + [(AND MSHASHFILE (NULL VAL) (find TYPE inside TYPES suchthat (SELECTQ TYPE ((FNS KNOWN NIL) T) NIL))) - (* ; - "Didn't find it in core; perhaps the CONTAINS table knows") + (* ; + "Didn't find it in core; perhaps the CONTAINS table knows") + (* ; "RMK: or the WHEREIS hashfile") (COND [FILES (for FILE inside FILES do (COND - (FINDITEMS (for X inside FINDITEMS - when (TESTRELATION X 'CONTAINS FILE T) - do (pushnew VAL FILE))) + [FINDITEMS (for X inside FINDITEMS + do (IF (OR (TESTRELATION X + 'CONTAINS FILE T) + (MEMB FILE + (WHEREIS X TYPES T))) + THEN (pushnew VAL FILE] (T (SETQ VAL (UNION (GETRELATION FILE 'CONTAINS) VAL] (FINDITEMS - (* ;; "No files: should use all known files, but that information isn't explicitly kept by MSHASH. Soooo, we'll only do the case where FINDITEMS is given") + (* ;; "No files: should use all known files, but that information isn't explicitly kept by MSHASH. Soooo, we'll only do the case where FINDITEMS is given") - (for X inside FINDITEMS do (SETQ VAL (UNION (GETRELATION - X - 'CONTAINS T) - VAL] + (for X inside FINDITEMS + do (SETQ VAL (UNION (OR (GETRELATION X 'CONTAINS T) + (WHEREIS X TYPES T)) + VAL] + (T + (* ;; "RMK: If we really have no information, maybe the WHEREIS hashfile knows.") + + (for X inside FINDITEMS + do (IF (FOR F IN (OR (GETRELATION X 'CONTAINS T) + (RETURN NIL)) DO (PUSHNEW VAL F) + FINALLY (RETURN T)) + ELSE (FOR TYPE INSIDE (OR TYPES 'FNS) + DO (FOR F IN (WHEREIS X TYPE T) + DO (PUSHNEW VAL F] (RETURN VAL]) ) (DEFINEQ @@ -3685,36 +3729,36 @@ Copyright (c) 1983-1988, 1990, 1993-1994, 2018, 2020-2021 by Venue & Xerox Corpo (PUTPROPS MASTERSCOPE COPYRIGHT ("Venue & Xerox Corporation" 1983 1984 1985 1986 1987 1988 1990 1993 1994 2018 2020 2021)) (DECLARE%: DONTCOPY - (FILEMAP (NIL (3402 19171 (UPDATEFN 3412 . 5029) (MSGETDEF 5031 . 6437) (MSNOTICEFILE 6439 . 8832) ( -MSSHOWUSE 8834 . 14337) (MSUPDATEFN1 14339 . 15027) (MSUPDATE 15029 . 17455) (MSNLAMBDACHECK 17457 . -18339) (MSCOLLECTDATA 18341 . 19169)) (19172 20071 (UPDATECHANGED 19182 . 19545) (UPDATECHANGED1 19547 - . 20069)) (20645 21068 (MSCLOSEFILES 20655 . 21066)) (21749 26181 (MSDESCRIBE 21759 . 24547) ( -MSDESCRIBE1 24549 . 25612) (FMAPRINT 25614 . 26179)) (26274 26714 (MSPRINTHELPFILE 26284 . 26712)) ( -26764 29902 (TEMPLATE 26774 . 28195) (GETTEMPLATE 28197 . 28332) (SETTEMPLATE 28334 . 29900)) (30772 -35696 (ADDTEMPLATEWORD 30782 . 31454) (MSADDANALYZE 31456 . 32954) (MSADDMODIFIER 32956 . 34037) ( -MSADDRELATION 34039 . 34786) (MSADDTYPE 34788 . 35694)) (37197 42418 (MSMARKCHANGE1 37207 . 38001) ( -MSINIT 38003 . 39184) (GETVERBTABLES 39186 . 39739) (MSSTOREDATA 39741 . 41420) (STORETABLE 41422 . -42416)) (43819 48889 (PARSERELATION 43829 . 44429) (PARSERELATION1 44431 . 45886) (GETRELATION 45888 - . 46917) (MAPRELATION 46919 . 48053) (TESTRELATION 48055 . 48887)) (48890 50530 (ADDHASH 48900 . -49378) (SUBHASH 49380 . 49608) (MAKEHASH 49610 . 49754) (MSREHASH 49756 . 50209) (EQMEMBHASH 50211 . -50528)) (50869 57084 (MSVBTABLES 50879 . 56658) (MSUSERVBTABLES 56660 . 57082)) (57167 59378 ( -BUILDGETRELQ 57177 . 58283) (BUILDTESTRELQ 58285 . 59376)) (59549 59937 (MSERASE 59559 . 59935)) ( -59938 63170 (DUMPDATABASE 59948 . 61285) (DUMPDATABASE1 61287 . 61632) (READATABASE 61634 . 63168)) ( -64252 93311 (MSCHECKBLOCKS 64262 . 68082) (MSCHECKBLOCK 68084 . 76704) (MSCHECKFNINBLOCK 76706 . 79706 -) (MSCHECKBLOCKBASIC 79708 . 82128) (MSCHECKBOUNDFREE 82130 . 84029) (GLOBALVARP 84031 . 84198) ( -PRINTERROR 84200 . 87416) (MSCHECKVARS1 87418 . 90371) (UNECCSPEC 90373 . 90651) (NECCSPEC 90653 . -91000) (SPECVARP 91002 . 91529) (SHORTLST 91531 . 91987) (DOERROR 91989 . 92699) (MSMSGPRINT 92701 . -93309)) (94455 109283 (MSPATHS 94465 . 97867) (MSPATHS1 97869 . 102104) (MSPATHS2 102106 . 105516) ( -MSONPATH 105518 . 106746) (MSPATHS4 106748 . 107830) (DASHES 107832 . 108358) (DOTABS 108360 . 108601) - (BELOWMARKER 108603 . 109066) (MSPATHSPRINTFN 109068 . 109281)) (109669 113093 (MSFIND 109679 . -109954) (MSEDITF 109956 . 110956) (MSEDITE 110958 . 111995) (EDITGETDEF 111997 . 113091)) (114099 -122700 (MSMARKCHANGED 114109 . 115833) (CHANGEMACRO 115835 . 116540) (CHANGEVAR 116542 . 116858) ( -CHANGEI.S. 116860 . 118193) (CHANGERECORD 118195 . 119066) (MSNEEDUNSAVE 119068 . 120060) (UNSAVEFNS -120062 . 122698)) (123141 126631 (%. 123151 . 123291) (MASTERSCOPE 123293 . 123819) (MASTERSCOPE1 -123821 . 124689) (MASTERSCOPEXEC 124691 . 126629)) (126670 164329 (MSINTERPRETSET 126680 . 154173) ( -MSINTERPA 154175 . 154709) (MSGETBLOCKDEC 154711 . 157224) (LISTHARD 157226 . 158444) (MSMEMBSET -158446 . 158591) (MSLISTSET 158593 . 158958) (MSHASHLIST 158960 . 159127) (MSHASHLIST1 159129 . 159455 -) (CHECKPATHS 159457 . 160097) (ONFILE 160099 . 164327)) (164330 187496 (MSINTERPRET 164340 . 181193) -(VERBNOTICELIST 181195 . 182305) (MSOUTPUT 182307 . 182624) (MSCHECKEMPTY 182626 . 183830) ( -CHECKFORCHANGED 183832 . 184352) (MSSOLVE 184354 . 187494))))) + (FILEMAP (NIL (3419 19188 (UPDATEFN 3429 . 5046) (MSGETDEF 5048 . 6454) (MSNOTICEFILE 6456 . 8849) ( +MSSHOWUSE 8851 . 14354) (MSUPDATEFN1 14356 . 15044) (MSUPDATE 15046 . 17472) (MSNLAMBDACHECK 17474 . +18356) (MSCOLLECTDATA 18358 . 19186)) (19189 20088 (UPDATECHANGED 19199 . 19562) (UPDATECHANGED1 19564 + . 20086)) (20662 21085 (MSCLOSEFILES 20672 . 21083)) (21766 26198 (MSDESCRIBE 21776 . 24564) ( +MSDESCRIBE1 24566 . 25629) (FMAPRINT 25631 . 26196)) (26291 26731 (MSPRINTHELPFILE 26301 . 26729)) ( +26781 29919 (TEMPLATE 26791 . 28212) (GETTEMPLATE 28214 . 28349) (SETTEMPLATE 28351 . 29917)) (30789 +35713 (ADDTEMPLATEWORD 30799 . 31471) (MSADDANALYZE 31473 . 32971) (MSADDMODIFIER 32973 . 34054) ( +MSADDRELATION 34056 . 34803) (MSADDTYPE 34805 . 35711)) (37214 42435 (MSMARKCHANGE1 37224 . 38018) ( +MSINIT 38020 . 39201) (GETVERBTABLES 39203 . 39756) (MSSTOREDATA 39758 . 41437) (STORETABLE 41439 . +42433)) (43836 48906 (PARSERELATION 43846 . 44446) (PARSERELATION1 44448 . 45903) (GETRELATION 45905 + . 46934) (MAPRELATION 46936 . 48070) (TESTRELATION 48072 . 48904)) (48907 50547 (ADDHASH 48917 . +49395) (SUBHASH 49397 . 49625) (MAKEHASH 49627 . 49771) (MSREHASH 49773 . 50226) (EQMEMBHASH 50228 . +50545)) (50886 57101 (MSVBTABLES 50896 . 56675) (MSUSERVBTABLES 56677 . 57099)) (57184 59395 ( +BUILDGETRELQ 57194 . 58300) (BUILDTESTRELQ 58302 . 59393)) (59566 59954 (MSERASE 59576 . 59952)) ( +59955 64415 (DUMPDATABASE 59965 . 62530) (DUMPDATABASE1 62532 . 62877) (READATABASE 62879 . 64413)) ( +65497 94556 (MSCHECKBLOCKS 65507 . 69327) (MSCHECKBLOCK 69329 . 77949) (MSCHECKFNINBLOCK 77951 . 80951 +) (MSCHECKBLOCKBASIC 80953 . 83373) (MSCHECKBOUNDFREE 83375 . 85274) (GLOBALVARP 85276 . 85443) ( +PRINTERROR 85445 . 88661) (MSCHECKVARS1 88663 . 91616) (UNECCSPEC 91618 . 91896) (NECCSPEC 91898 . +92245) (SPECVARP 92247 . 92774) (SHORTLST 92776 . 93232) (DOERROR 93234 . 93944) (MSMSGPRINT 93946 . +94554)) (95700 110528 (MSPATHS 95710 . 99112) (MSPATHS1 99114 . 103349) (MSPATHS2 103351 . 106761) ( +MSONPATH 106763 . 107991) (MSPATHS4 107993 . 109075) (DASHES 109077 . 109603) (DOTABS 109605 . 109846) + (BELOWMARKER 109848 . 110311) (MSPATHSPRINTFN 110313 . 110526)) (110914 114338 (MSFIND 110924 . +111199) (MSEDITF 111201 . 112201) (MSEDITE 112203 . 113240) (EDITGETDEF 113242 . 114336)) (115344 +123945 (MSMARKCHANGED 115354 . 117078) (CHANGEMACRO 117080 . 117785) (CHANGEVAR 117787 . 118103) ( +CHANGEI.S. 118105 . 119438) (CHANGERECORD 119440 . 120311) (MSNEEDUNSAVE 120313 . 121305) (UNSAVEFNS +121307 . 123943)) (124386 127876 (%. 124396 . 124536) (MASTERSCOPE 124538 . 125064) (MASTERSCOPE1 +125066 . 125934) (MASTERSCOPEXEC 125936 . 127874)) (127915 167565 (MSINTERPRETSET 127925 . 156459) ( +MSINTERPA 156461 . 156995) (MSGETBLOCKDEC 156997 . 159510) (LISTHARD 159512 . 160730) (MSMEMBSET +160732 . 160877) (MSLISTSET 160879 . 161244) (MSHASHLIST 161246 . 161413) (MSHASHLIST1 161415 . 161741 +) (CHECKPATHS 161743 . 162383) (ONFILE 162385 . 167563)) (167566 190732 (MSINTERPRET 167576 . 184429) +(VERBNOTICELIST 184431 . 185541) (MSOUTPUT 185543 . 185860) (MSCHECKEMPTY 185862 . 187066) ( +CHECKFORCHANGED 187068 . 187588) (MSSOLVE 187590 . 190730))))) STOP diff --git a/library/MASTERSCOPE.DFASL b/library/MASTERSCOPE.DFASL index cec7308b8..74bbde0d5 100644 Binary files a/library/MASTERSCOPE.DFASL and b/library/MASTERSCOPE.DFASL differ diff --git a/library/POSTSCRIPTSTREAM b/library/POSTSCRIPTSTREAM index a70c42bc2..6d5a17293 100644 --- a/library/POSTSCRIPTSTREAM +++ b/library/POSTSCRIPTSTREAM @@ -1,22 +1,20 @@ (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP") -(FILECREATED "14-May-2018 10:52:48"  -{DSK}Kaplan>Local>medley3.5>lispcore>library>POSTSCRIPTSTREAM.;7 267706 +(FILECREATED "21-Jun-2021 20:29:32"  +{DSK}kaplan>Local>medley3.5>git-medley>library>POSTSCRIPTSTREAM.;11 259283 - changes to%: (FNS POSTSCRIPT.INIT) - - previous date%: " 8-May-2018 19:34:01" -{DSK}Kaplan>Local>medley3.5>lispcore>library>POSTSCRIPTSTREAM.;5) + previous date%: "12-Jun-2021 19:14:50" +{DSK}kaplan>Local>medley3.5>git-medley>library>POSTSCRIPTSTREAM.;10) (* ; " -Copyright (c) 1989, 1990, 1991, 1992, 1993, 1994, 1995, 1997, 1998, 2018 by Venue This program or documentation contains confidential information and trade secrets of Venue. Reverse engineering, reverse compiling and disassembling of object code are prohibited. Use of this program or documentation is governed by written agreement with Venue. Use of copyright notice is precautionary and does not imply publication or disclosure of trade secrets. All rights reserved. +Copyright (c) 1989-1995, 1997-1998, 2018, 2021 by Venue This program or documentation contains confidential information and trade secrets of Venue. Reverse engineering, reverse compiling and disassembling of object code are prohibited. Use of this program or documentation is governed by written agreement with Venue. Use of copyright notice is precautionary and does not imply publication or disclosure of trade secrets. ") (PRETTYCOMPRINT POSTSCRIPTSTREAMCOMS) -(RPAQQ POSTSCRIPTSTREAMCOMS +(RPAQQ POSTSCRIPTSTREAMCOMS [ - (* ;; "PostScript printer support for Medley") + (* ;; "PostScript printer support for Medley") (DECLARE%: EVAL@COMPILE DONTCOPY (RECORDS FONTID PSCFONT \POSTSCRIPTDATA POSTSCRIPTXFORM)) (INITRECORDS \POSTSCRIPTDATA) @@ -40,14 +38,14 @@ Copyright (c) 1989, 1990, 1991, 1992, 1993, 1994, 1995, 1997, 1998, 2018 by Venu (ZAPFCHANCERY . ZC) (ZAPFDINGBATS . ZD))) - (* ;; "Font-reading code") + (* ;; "Font-reading code") (FNS PSCFONT.READFONT PSCFONT.SPELLFILE PSCFONT.COERCEFILE PSCFONTFROMCACHE.SPELLFILE PSCFONTFROMCACHE.COERCEFILE PSCFONT.WRITEFONT READ-AFM-FILE CONVERT-AFM-FILES POSTSCRIPT.GETFONTID POSTSCRIPT.FONTCREATE \POSTSCRIPT.SPECIALFONT.SCALEDWIDTHS POSTSCRIPT.FONTSAVAILABLE) (COMS - (* ;; "Until macro in FONT is exported") + (* ;; "Until macro in FONT is exported") (MACROS \FSETCHARWIDTH)) (FNS OPENPOSTSCRIPTSTREAM CLOSEPOSTSCRIPTSTREAM) @@ -59,7 +57,7 @@ Copyright (c) 1989, 1990, 1991, 1992, 1993, 1994, 1995, 1997, 1998, 2018 by Venu \PS.SCALEREGION \SCALEDBITBLT.PSC \SETPOS.PSC \SETXFORM.PSC \STRINGWIDTH.PSC \SWITCHFONTS.PSC \TERPRI.PSC) - (* ;; "DIG operations: ") + (* ;; "DIG operations: ") (FNS \BITBLT.PSC \BLTSHADE.PSC \CHARWIDTH.PSC \CREATECHARSET.PSC \DRAWARC.PSC \DRAWCIRCLE.PSC \DRAWCURVE.PSC \DRAWELLIPSE.PSC \DRAWLINE.PSC \DRAWPOINT.PSC \DRAWPOLYGON.PSC @@ -69,19 +67,19 @@ Copyright (c) 1989, 1990, 1991, 1992, 1993, 1994, 1995, 1997, 1998, 2018 by Venu \DSPTOPMARGIN.PSC \DSPTRANSLATE.PSC \DSPXPOSITION.PSC \DSPYPOSITION.PSC \FILLCIRCLE.PSC \FILLPOLYGON.PSC \FIXLINELENGTH.PSC \MOVETO.PSC \NEWPAGE.PSC) (COMS - (* ;; "Character-output, plus special-cases:") + (* ;; "Character-output, plus special-cases:") (FNS \POSTSCRIPT.CHANGECHARSET \POSTSCRIPT.OUTCHARFN \POSTSCRIPT.PRINTSLUG \POSTSCRIPT.SPECIALOUTCHARFN \UPDATE.PSC \POSTSCRIPT.ACCENTFN \POSTSCRIPT.ACCENTPAIR) - (* ;; - "Spacing-character (M-quad, etc.) and ballot-box-check &c special-case functions") + (* ;; + "Spacing-character (M-quad, etc.) and ballot-box-check &c special-case functions") (FNS \PSC.SPACEDISP \PSC.SPACEWID \PSC.SYMBOLS) - (* ;; - "The mapping of NS characters to Postscript renderings, both as an AList and as a hashtable") + (* ;; + "The mapping of NS characters to Postscript renderings, both as an AList and as a hashtable") (FNS \POSTSCRIPT.NSHASH) (VARS (*POSTSCRIPT-UNACCENTED-FONTS* '(Dancer ZapfDingbats "Dancer" "ZapfDingbats")) @@ -178,7 +176,7 @@ Copyright (c) 1989, 1990, 1991, 1992, 1993, 1994, 1995, 1997, 1998, 2018 by Venu (CREATECHARSET \CREATECHARSET.PSC] (INITVARS (POSTSCRIPT.PAGETYPE 'LETTER)) - (* ;; "NIL means initial clipping is same as paper size. Don't know why the other regions were specified--rmk") + (* ;; "NIL means initial clipping is same as paper size. Don't know why the other regions were specified--rmk") [APPENDVARS (POSTSCRIPT.PAGEREGIONS (LETTER (0 0 8.5 11) NIL @@ -215,57 +213,57 @@ Copyright (c) 1989, 1990, 1991, 1992, 1993, 1994, 1995, 1997, 1998, 2018 by Venu (RECORD PSCFONT (FID IL-FONTID FIRSTCHAR LASTCHAR ASCENT DESCENT WIDTHS)) (DATATYPE \POSTSCRIPTDATA - ((POSTSCRIPTACCENTED FLAG) (* ; - "T if we're to do NS-to-PS translations on characters in the current font.") - POSTSCRIPTFONT (* ; - "The fontdescriptor of the current font") - POSTSCRIPTX (* ; "The current X") - POSTSCRIPTY (* ; "... and Y") - POSTSCRIPTLEFTMARGIN (* ; "The margins") + ((POSTSCRIPTACCENTED FLAG) (* ; + "T if we're to do NS-to-PS translations on characters in the current font.") + POSTSCRIPTFONT (* ; + "The fontdescriptor of the current font") + POSTSCRIPTX (* ; "The current X") + POSTSCRIPTY (* ; "... and Y") + POSTSCRIPTLEFTMARGIN (* ; "The margins") POSTSCRIPTRIGHTMARGIN POSTSCRIPTBOTTOMMARGIN POSTSCRIPTTOPMARGIN POSTSCRIPTLINESPACING - (* ; "Line to line spacing") - POSTSCRIPTCOLOR (* ; - "Color (or grey shade) in effect; 0.0=black, 1.0=white.") - POSTSCRIPTSCALE (* ; "Scale of the stream") - POSTSCRIPTOPERATION (* ; - "Default operation (PAINT, REPLACE, ...)") - POSTSCRIPTCLIPPINGREGION (* ; - "The current region available to be written into") - POSTSCRIPTPAGENUM (* ; "Current page number") - POSTSCRIPTHEADING (* ; "The heading") - POSTSCRIPTHEADINGFONT (* ; "Font for the heading") - POSTSCRIPTSPACEFACTOR (* ; - "Expansion factor for spaces (see DSPSPACEFACTOR)") - POSTSCRIPTSPACEWIDTH (* ; - "The width of a space in the current font") - POSTSCRIPTLANDSCAPE (* ; - "non-NIL for paper in 'landscape' mode") - POSTSCRIPTCHARSTOSHOW (* ; - "non-NIL if the string (PostScript-type string) of chars has already been started") - POSTSCRIPTFONTCHANGEDFLG (* ; "Font has changed") - POSTSCRIPTMOVEFLG (* ; "Need to move") - POSTSCRIPTWIDTHS (* ; - "The widths vector of the current font") - POSTSCRIPTTRANSX (* ; "Translation in X") - POSTSCRIPTTRANSY (* ; "... and Y") - POSTSCRIPTPENDINGXFORM (* ; - "A userspace to devicespace transform is pending") - POSTSCRIPTPAGEREGION (* ; "The whole page") - POSTSCRIPTPAGEBLANK (* ; "This page is blank flag") - POSTSCRIPTSCALEHACK (* ; - "For \PS.SCALEHACK since DSPSCALE doesn't change the scale of the stream") - POSTSCRIPTTEMPARRAY (* ; - "For converting FIXP to string of digit chars") - POSTSCRIPTXFORMSTACK (* ; "The stack of transformations. DSPPUSHSTATE pushes one onto this, DSPPOPSTATE uses it to reset values.") - POSTSCRIPTROTATION (* ; - "Rotation value currently in effect.") - POSTSCRIPTPENDINGROTATION (* ; - "Rotation to take effect at next SETXFORM.") - POSTSCRIPTFONTSUSED (* ; "List of FONTIDs of the fonts that've been used before. This is used to control the re-encoding of fonts for accented-character rendering.") - (POSTSCRIPTNSCHARSET BYTE) (* ; - "Current NSCHARSET--widths are in POSTSCRIPTWIDTHS") - (POSTSCRIPTNATURALSPACEWIDTH WORD) (* ; - "Width of the space in the current font, used to compute the scaled space width.") + (* ; "Line to line spacing") + POSTSCRIPTCOLOR (* ; + "Color (or grey shade) in effect; 0.0=black, 1.0=white.") + POSTSCRIPTSCALE (* ; "Scale of the stream") + POSTSCRIPTOPERATION (* ; + "Default operation (PAINT, REPLACE, ...)") + POSTSCRIPTCLIPPINGREGION (* ; + "The current region available to be written into") + POSTSCRIPTPAGENUM (* ; "Current page number") + POSTSCRIPTHEADING (* ; "The heading") + POSTSCRIPTHEADINGFONT (* ; "Font for the heading") + POSTSCRIPTSPACEFACTOR (* ; + "Expansion factor for spaces (see DSPSPACEFACTOR)") + POSTSCRIPTSPACEWIDTH (* ; + "The width of a space in the current font") + POSTSCRIPTLANDSCAPE (* ; + "non-NIL for paper in 'landscape' mode") + POSTSCRIPTCHARSTOSHOW (* ; + "non-NIL if the string (PostScript-type string) of chars has already been started") + POSTSCRIPTFONTCHANGEDFLG (* ; "Font has changed") + POSTSCRIPTMOVEFLG (* ; "Need to move") + POSTSCRIPTWIDTHS (* ; + "The widths vector of the current font") + POSTSCRIPTTRANSX (* ; "Translation in X") + POSTSCRIPTTRANSY (* ; "... and Y") + POSTSCRIPTPENDINGXFORM (* ; + "A userspace to devicespace transform is pending") + POSTSCRIPTPAGEREGION (* ; "The whole page") + POSTSCRIPTPAGEBLANK (* ; "This page is blank flag") + POSTSCRIPTSCALEHACK (* ; + "For \PS.SCALEHACK since DSPSCALE doesn't change the scale of the stream") + POSTSCRIPTTEMPARRAY (* ; + "For converting FIXP to string of digit chars") + POSTSCRIPTXFORMSTACK (* ; "The stack of transformations. DSPPUSHSTATE pushes one onto this, DSPPOPSTATE uses it to reset values.") + POSTSCRIPTROTATION (* ; + "Rotation value currently in effect.") + POSTSCRIPTPENDINGROTATION (* ; + "Rotation to take effect at next SETXFORM.") + POSTSCRIPTFONTSUSED (* ; "List of FONTIDs of the fonts that've been used before. This is used to control the re-encoding of fonts for accented-character rendering.") + (POSTSCRIPTNSCHARSET BYTE) (* ; + "Current NSCHARSET--widths are in POSTSCRIPTWIDTHS") + (POSTSCRIPTNATURALSPACEWIDTH WORD) (* ; + "Width of the space in the current font, used to compute the scaled space width.") ) POSTSCRIPTX _ 0 POSTSCRIPTY _ 0 POSTSCRIPTTRANSX _ 0 POSTSCRIPTTRANSY _ 0 POSTSCRIPTSPACEFACTOR _ 1 POSTSCRIPTPAGENUM _ 0 POSTSCRIPTSCALEHACK _ 1 POSTSCRIPTTEMPARRAY @@ -273,20 +271,20 @@ Copyright (c) 1989, 1990, 1991, 1992, 1993, 1994, 1995, 1997, 1998, 2018 by Venu POSTSCRIPTROTATION _ 0 POSTSCRIPTCOLOR _ 0.0) (RECORD POSTSCRIPTXFORM ( - (* ;; "Holds the transformation state as saved by DSPPUSHSTATE. Used by DSPPOPSTATE to restore the tranformation state.") - - PSXCLIP (* ; "Clipping region") - PSXPAGE (* ; "Page region") - PSXX (* ; "X position?") - PSXY (* ; "Y position?") - PSXLEFT (* ; "Left margin") - PSXRIGHT (* ; "Right margin") - PSXTOP (* ; "Top margin") - PSXBOTTOM (* ; "Bottom Margin") - PSXTRANX (* ; "X-translation in effect") - PSXTRANY (* ; "Y-translation in effect") - PSXLAND (* ; "Landscape?") - PSXXFORMPEND (* ; "Are there transforms pending? ") + (* ;; "Holds the transformation state as saved by DSPPUSHSTATE. Used by DSPPOPSTATE to restore the tranformation state.") + + PSXCLIP (* ; "Clipping region") + PSXPAGE (* ; "Page region") + PSXX (* ; "X position?") + PSXY (* ; "Y position?") + PSXLEFT (* ; "Left margin") + PSXRIGHT (* ; "Right margin") + PSXTOP (* ; "Top margin") + PSXBOTTOM (* ; "Bottom Margin") + PSXTRANX (* ; "X-translation in effect") + PSXTRANY (* ; "Y-translation in effect") + PSXLAND (* ; "Landscape?") + PSXXFORMPEND (* ; "Are there transforms pending? ") )) ) @@ -1113,59 +1111,63 @@ Copyright (c) 1989, 1990, 1991, 1992, 1993, 1994, 1995, 1997, 1998, 2018 by Venu (DECLARE%: EVAL@COMPILE -(PUTPROPS \FSETCHARWIDTH MACRO (OPENLAMBDA (FONTDESC CHARCODE WIDTH) - (\FSETWIDTH (ffetch (CHARSETINFO WIDTHS) - of (\GETCHARSETINFO (\CHARSET CHARCODE) - FONTDESC)) - (\CHAR8CODE CHARCODE) - WIDTH))) +(PUTPROPS \FSETCHARWIDTH MACRO (OPENLAMBDA (FONTDESC CHARCODE WIDTH) + (\FSETWIDTH (ffetch (CHARSETINFO WIDTHS) + of (\GETCHARSETINFO (\CHARSET CHARCODE) + FONTDESC)) + (\CHAR8CODE CHARCODE) + WIDTH))) ) (DEFINEQ (OPENPOSTSCRIPTSTREAM - [LAMBDA (FILE OPTIONS) (* ; "Edited 17-Jun-97 21:15 by rmk:") - (* ; - "Edited 31-May-93 12:42 by sybalsky:mv:envos") + [LAMBDA (FILE OPTIONS) (* ; "Edited 12-Jun-2021 19:14 by rmk:") + (* ; + "Edited 31-May-93 12:42 by sybalsky:mv:envos") (* ; "Edited 23-Dec-92 01:17 by jds") - (LET [[FP (OPENSTREAM FILE 'OUTPUT NIL `((TYPE ,*POSTSCRIPT-FILE-TYPE*) - (SEQUENTIAL T] + + (* ;; "RMK: Note: At open, this does a lot of printing using generic functions which invoke the generic \OUTCHARFN of the stream. We set that up as BOUT. But after the stream is open, we install the \POSTSCRIPT.OUTCHARFN, below. We also have to make sure that other internal printing that may want to use generic functions (PRIN1, PRIN3...) for convenience, doesn't cycle through the postscript outcharfn.") + + (LET [[STREAM (OPENSTREAM (PACKFILENAME 'BODY FILE 'EXTENSION 'PS) + 'OUTPUT NIL `((TYPE ,*POSTSCRIPT-FILE-TYPE*) + (SEQUENTIAL T] (IMAGEDATA (create \POSTSCRIPTDATA)) PAPER IMAGESIZEFACTOR CLIP REG (BBOX (LISTGET OPTIONS 'BOUNDINGBOX] - (replace (STREAM OUTCHARFN) of FP with '\FILEOUTCHARFN) - (replace (STREAM IMAGEDATA) of FP with IMAGEDATA) - (replace (STREAM IMAGEOPS) of FP with \POSTSCRIPTIMAGEOPS) + (replace (STREAM IMAGEDATA) of STREAM with IMAGEDATA) + (replace (STREAM IMAGEOPS) of STREAM with \POSTSCRIPTIMAGEOPS) + (replace (STREAM OUTCHARFN) OF STREAM WITH (FUNCTION BOUT)) (* ;; "Bounding box is for encapsulated postscript. The bounding box is in Medley's postscript-coordinate system, so we have to scale it back to default postscript since it will be interpreted outside of the operators specified below. CEIL and FLOOR to make sure that we don't leave anything out. We may also want to change the header to have the EPSF qualifier") - (printout FP "%%!PS-Adobe-2.0" T %# (CL:WHEN BBOX - (PRINTOUT FP "%%%%BoundingBox: " (CL:FLOOR - (CAR BBOX) - \PS.SCALE0) - " " - (CL:FLOOR (CADR BBOX) - \PS.SCALE0) - " " - (CL:CEILING (CADDR BBOX) - \PS.SCALE0) - " " - (CL:CEILING (CADDDR BBOX) - \PS.SCALE0) - T)) + (printout STREAM "%%!PS-Adobe-2.0" T %# (CL:WHEN BBOX + (PRINTOUT STREAM "%%%%BoundingBox: " + (CL:FLOOR (CAR BBOX) + \PS.SCALE0) + " " + (CL:FLOOR (CADR BBOX) + \PS.SCALE0) + " " + (CL:CEILING (CADDR BBOX) + \PS.SCALE0) + " " + (CL:CEILING (CADDDR BBOX) + \PS.SCALE0) + T)) "%%%%Title: " (MKSTRING (OR (LISTGET OPTIONS 'DOCUMENT.NAME) FILE)) T "%%%%Creator: PostScript Driver Copyright (C) 1988-1992 Venue and others" T "%%%%CreationDate: " (DATE) T %# (COND - ((EQ 'LPT (FILENAMEFIELD FP 'HOST)) + ((EQ 'LPT (FILENAMEFIELD STREAM 'HOST)) (* ;; "Put current user's name on break page only if going to LPT for immediate printing. Presumably the print-spooler itself should know what the user's system login-name is, but that may not be the case for all printers in all environments.") (PRINTOUT NIL "%%%%For: " (MKSTRING USERNAME) T))) "%%%%EndComments" T) - (for X in \POSTSCRIPT.JOB.SETUP do (POSTSCRIPT.OUTSTR FP X) - (\FILEOUTCHARFN FP (CHARCODE EOL))) + (for X in \POSTSCRIPT.JOB.SETUP do (POSTSCRIPT.OUTSTR STREAM X) + (\BOUTEOL STREAM)) (SETQ PAPER (OR (CDR (CL:ASSOC (SETQ PAPER (OR (LISTGET OPTIONS 'PAGETYPE) (LISTGET OPTIONS 'PAPERTYPE) POSTSCRIPT.PAGETYPE)) @@ -1174,9 +1176,9 @@ Copyright (c) 1989, 1990, 1991, 1992, 1993, 1994, 1995, 1997, 1998, 2018 by Venu (* ;; "Set the paper size:") - (PRINTOUT FP (L-CASE (OR (LISTGET OPTIONS 'PAGETYPE) - (LISTGET OPTIONS 'PAPERTYPE) - POSTSCRIPT.PAGETYPE)) + (PRINTOUT STREAM (L-CASE (OR (LISTGET OPTIONS 'PAGETYPE) + (LISTGET OPTIONS 'PAPERTYPE) + POSTSCRIPT.PAGETYPE)) T) (COND ((NOT (AND [SETQ IMAGESIZEFACTOR (NUMBERP (LISTGET OPTIONS 'IMAGESIZEFACTOR] @@ -1186,10 +1188,9 @@ Copyright (c) 1989, 1990, 1991, 1992, 1993, 1994, 1995, 1997, 1998, 2018 by Venu ((AND (NUMBERP POSTSCRIPT.IMAGESIZEFACTOR) (CL:PLUSP POSTSCRIPT.IMAGESIZEFACTOR)) (SETQ IMAGESIZEFACTOR (TIMES IMAGESIZEFACTOR POSTSCRIPT.IMAGESIZEFACTOR] - (printout FP "/imagesizefactor " IMAGESIZEFACTOR " def" T) - (printout FP "%%%%EndSetup" T) + (printout STREAM "/imagesizefactor " IMAGESIZEFACTOR " def" T) + (printout STREAM "%%%%EndSetup" T) (replace (\POSTSCRIPTDATA POSTSCRIPTSCALE) of IMAGEDATA with \PS.SCALE0) - (replace (STREAM OUTCHARFN) of FP with '\POSTSCRIPT.OUTCHARFN) (replace (\POSTSCRIPTDATA POSTSCRIPTPAGEREGION) of IMAGEDATA with (\PS.SCALEREGION (/ (TIMES 72 \PS.SCALE0) IMAGESIZEFACTOR) @@ -1221,10 +1222,10 @@ Copyright (c) 1989, 1990, 1991, 1992, 1993, 1994, 1995, 1997, 1998, 2018 by Venu with (PLUS (fetch (REGION LEFT) of REG) (fetch (REGION WIDTH) of REG) -1)) - (\DSPFONT.PSC FP (FONTCREATE (OR [CAR (MKLIST (LISTGET OPTIONS 'FONTS] - DEFAULTFONT) - NIL NIL NIL FP)) - (\SWITCHFONTS.PSC FP IMAGEDATA) + (\DSPFONT.PSC STREAM (FONTCREATE (OR [CAR (MKLIST (LISTGET OPTIONS 'FONTS] + DEFAULTFONT) + NIL NIL NIL STREAM)) + (\SWITCHFONTS.PSC STREAM IMAGEDATA) [COND ((replace (\POSTSCRIPTDATA POSTSCRIPTHEADING) of IMAGEDATA with (LISTGET OPTIONS 'HEADING)) @@ -1232,7 +1233,7 @@ Copyright (c) 1989, 1990, 1991, 1992, 1993, 1994, 1995, 1997, 1998, 2018 by Venu with (COND ((LISTGET OPTIONS 'HEADINGFONT) (FONTCREATE (LISTGET OPTIONS 'HEADINGFONT) - NIL NIL NIL FP)) + NIL NIL NIL STREAM)) (T (fetch (\POSTSCRIPTDATA POSTSCRIPTFONT) of IMAGEDATA] (* ;; "Decide if it's landscape: if (LANDSCAPE T) appears in OPTIONS, it is. IF ROTATION isn't DEFAULT, it is.") @@ -1247,9 +1248,16 @@ Copyright (c) 1989, 1990, 1991, 1992, 1993, 1994, 1995, 1997, 1998, 2018 by Venu (MENU \POSTSCRIPT.ORIENTATION.MENU)) (T POSTSCRIPT.PREFER.LANDSCAPE))) (T (CL:GETF OPTIONS 'ROTATION] - (POSTSCRIPT.SET-FAKE-LANDSCAPE FP 90))) - (POSTSCRIPT.STARTPAGE FP) - FP]) + (POSTSCRIPT.SET-FAKE-LANDSCAPE STREAM 90))) + + (* ;; "Now we are ready for callers to use generic functions--see note above. The special external format ensures that e.g. COPYCHARS won't do COPYBYTES when copying from a text file to a PS stream.") + + (\EXTERNALFORMAT STREAM (CREATE EXTERNALFORMAT + NAME _ 'POSTSCRIPT + OUTCHARFN _ (FUNCTION \POSTSCRIPT.OUTCHARFN) + EOL _ (FETCH (STREAM EOLCONVENTION) OF STREAM))) + (POSTSCRIPT.STARTPAGE STREAM) + STREAM]) (CLOSEPOSTSCRIPTSTREAM [LAMBDA (STREAM) (* ; "Edited 8-Mar-93 10:31 by jds") @@ -1467,7 +1475,7 @@ Copyright (c) 1989, 1990, 1991, 1992, 1993, 1994, 1995, 1997, 1998, 2018 by Venu (POSTSCRIPT.PUTBITMAPBYTES [LAMBDA (STREAM BITMAP DELIMFLG) (DECLARE (GLOBALVARS PS.BITMAPARRAY) - (LOCALVARS . T)) (* ; "Edited 30-Mar-90 20:15 by Matt Heffron") + (LOCALVARS . T)) (* ; "Edited 12-Jun-2021 15:17 by rmk:") (LET* ((WIDTH (fetch BITMAPWIDTH of BITMAP)) (HEIGHT (fetch BITMAPHEIGHT of BITMAP)) @@ -1478,11 +1486,11 @@ Copyright (c) 1989, 1990, 1991, 1992, 1993, 1994, 1995, 1997, 1998, 2018 by Venu 1)) (PS.BITMAPARRAYBASE (fetch (ARRAYP BASE) of PS.BITMAPARRAY))) (COND - [DELIMFLG (LET ((POS 0) + (DELIMFLG (LET ((POS 0) BYTE) - (\FILEOUTCHARFN STREAM (CHARCODE SPACE)) - (\FILEOUTCHARFN STREAM (CHARCODE <)) - (\FILEOUTCHARFN STREAM (CHARCODE EOL)) + (BOUT STREAM (CHARCODE SPACE)) + (BOUT STREAM (CHARCODE <)) + (\BOUTEOL STREAM) (for R from (SUB1 HEIGHT) to 0 by -1 as ROWOFFSET from (ITIMES (SUB1 HEIGHT) BYTEOFFSETPERROW) by (IMINUS BYTEOFFSETPERROW) @@ -1490,7 +1498,7 @@ Copyright (c) 1989, 1990, 1991, 1992, 1993, 1994, 1995, 1997, 1998, 2018 by Venu from ROWOFFSET by 1 do (COND ((IGEQ POS 254) - (\FILEOUTCHARFN STREAM (CHARCODE EOL)) + (\BOUTEOL STREAM) (SETQ POS 0))) (SETQ BYTE (\GETBASEBYTE BMBASE BYTEOFFSET)) [BOUT STREAM (\GETBASEBYTE PS.BITMAPARRAYBASE @@ -1498,11 +1506,11 @@ Copyright (c) 1989, 1990, 1991, 1992, 1993, 1994, 1995, 1997, 1998, 2018 by Venu (BOUT STREAM (\GETBASEBYTE PS.BITMAPARRAYBASE (LOGAND 15 BYTE))) (SETQ POS (IPLUS POS 2))) - (\FILEOUTCHARFN STREAM (CHARCODE EOL)) + (\BOUTEOL STREAM) (SETQ POS 0)) - (\FILEOUTCHARFN STREAM (CHARCODE SPACE)) - (\FILEOUTCHARFN STREAM (CHARCODE >)) - (\FILEOUTCHARFN STREAM (CHARCODE EOL] + (BOUT STREAM (CHARCODE SPACE)) + (BOUT STREAM (CHARCODE >)) + (\BOUTEOL STREAM))) (T (LET* ((PRVBM (BITMAPCREATE WIDTH 1)) @@ -1530,7 +1538,7 @@ Copyright (c) 1989, 1990, 1991, 1992, 1993, 1994, 1995, 1997, 1998, 2018 by Venu (while (CL:PLUSP (SETQ REPC (IDIFFERENCE REPC 1))) do (COND ((IGEQ POS 251) - (\FILEOUTCHARFN STREAM (CHARCODE EOL)) + (\BOUTEOL STREAM) (SETQ POS 0))) (BOUT STREAM (CHARCODE B)) (BOUT STREAM (CHARCODE 3)) @@ -1558,7 +1566,7 @@ Copyright (c) 1989, 1990, 1991, 1992, 1993, 1994, 1995, 1997, 1998, 2018 by Venu (while (CL:PLUSP (SETQ REPC (IDIFFERENCE REPC 1))) do (COND ((IGEQ POS 249) - (\FILEOUTCHARFN STREAM (CHARCODE EOL)) + (\BOUTEOL STREAM) (SETQ POS 0))) (BOUT STREAM (CHARCODE B)) (BOUT STREAM (CHARCODE 2)) @@ -1579,12 +1587,12 @@ Copyright (c) 1989, 1990, 1991, 1992, 1993, 1994, 1995, 1997, 1998, 2018 by Venu (T (SETQ BYTE (\GETBASEBYTE BMBASE BYTEOFFSET)) (COND ((IGEQ POS 251) - (\FILEOUTCHARFN STREAM (CHARCODE EOL)) + (\BOUTEOL STREAM) (SETQ POS 0))) [COND ((FMEMB BYTE '(178 179 180)) - (* ;; "BYTE is B2, B3, or B4; quote it") + (* ;; "BYTE is B2, B3, or B4; quote it") (BOUT STREAM (CHARCODE B)) (BOUT STREAM (CHARCODE 4)) @@ -1597,12 +1605,11 @@ Copyright (c) 1989, 1990, 1991, 1992, 1993, 1994, 1995, 1997, 1998, 2018 by Venu (SETQ BYTEOFFSET (IPLUS BYTEOFFSET 1)) (SETQ PRVO (IPLUS PRVO 1)) (SETQ POS (IPLUS POS 2] - (\FILEOUTCHARFN STREAM (CHARCODE EOL))) + (\BOUTEOL STREAM)) (\MOVEBYTES BMBASE ROWOFFSET PRVBASE 0 BYTESPERROW]) (POSTSCRIPT.PUTCOMMAND - [LAMBDA S.STRS (* ; - "Edited 20-Nov-92 15:11 by sybalsky:mv:envos") + [LAMBDA S.STRS (* ; "Edited 12-Jun-2021 15:14 by rmk:") (LET* ((STREAM (ARG S.STRS 1)) (IMAGEDATA (fetch (STREAM IMAGEDATA) of STREAM)) S#S) @@ -1616,7 +1623,7 @@ Copyright (c) 1989, 1990, 1991, 1992, 1993, 1994, 1995, 1997, 1998, 2018 by Venu (for STR# from 2 to S.STRS do (COND ((EQ (SETQ S#S (ARG S.STRS STR#)) :EOL) - (\FILEOUTCHARFN STREAM (CHARCODE EOL))) + (\BOUTEOL STREAM)) (T (POSTSCRIPT.OUTSTR STREAM S#S]) (POSTSCRIPT.SET-FAKE-LANDSCAPE @@ -1700,7 +1707,7 @@ Copyright (c) 1989, 1990, 1991, 1992, 1993, 1994, 1995, 1997, 1998, 2018 by Venu OLAND]) (POSTSCRIPT.SHOWACCUM - [LAMBDA (STREAM) (* ; "Edited 23-May-93 11:52 by rmk:") + [LAMBDA (STREAM) (* ; "Edited 12-Jun-2021 15:16 by rmk:") (* ;;  "Send commands to SHOW the accumulated characters. Uses S (= SHOW) for regular characters.") @@ -1735,12 +1742,51 @@ Copyright (c) 1989, 1990, 1991, 1992, 1993, 1994, 1995, 1997, 1998, 2018 by Venu " 6 -1 roll awidthshow"))) (T (POSTSCRIPT.OUTSTR STREAM (CONSTANT (CONCAT " 0 " (CHARCODE SPACE) " 4 -1 roll widthshow"] - (\FILEOUTCHARFN STREAM (CHARCODE EOL)) + (\BOUTEOL STREAM) (freplace (\POSTSCRIPTDATA POSTSCRIPTCHARSTOSHOW) of IMAGEDATA with NIL]) (POSTSCRIPT.STARTPAGE -(LAMBDA (STREAM) (* ; "Edited 28-Dec-94 17:41 by jds") (* ;; "Start up a new page in a Postscript document.") (LET ((IMAGEDATA (fetch (STREAM IMAGEDATA) of STREAM)) NEW-PAGE) (replace (\POSTSCRIPTDATA POSTSCRIPTPENDINGXFORM) of IMAGEDATA with NIL) (* ; "shouldnt need this") (SETQ NEW-PAGE (CL:INCF (fetch (\POSTSCRIPTDATA POSTSCRIPTPAGENUM) of IMAGEDATA))) (* ; "Page number goes up by 1") (* ;; "Print the %"Document structuring%" info for the page, then the initial page setup") (POSTSCRIPT.PUTCOMMAND STREAM :EOL "%%%%Page: " NEW-PAGE " " NEW-PAGE :EOL "%%%%BeginPageSetup" :EOL "/savepage save def" :EOL (FQUOTIENT 1 \PS.SCALE0) " imagesizefactor mul dup scale" :EOL "%%%%EndPageSetup" :EOL) (\SETXFORM.PSC STREAM IMAGEDATA T) (* ;; "Lisp depends on the current font being carried over from page to page, but in postscript there is no current font at the beginning of a page, so force a setfont.") (replace (\POSTSCRIPTDATA POSTSCRIPTFONTCHANGEDFLG) of IMAGEDATA with T) (replace (\POSTSCRIPTDATA POSTSCRIPTPAGEBLANK) of IMAGEDATA with T) (* ; "nothing printed yet...") (COND ((fetch (\POSTSCRIPTDATA POSTSCRIPTHEADING) of IMAGEDATA) (* ;; "Here we handle headings.") (LET ((FONT (\DSPFONT.PSC STREAM (fetch (\POSTSCRIPTDATA POSTSCRIPTHEADINGFONT) of IMAGEDATA)))) (\DSPRESET.PSC STREAM) (PRIN3 (fetch (\POSTSCRIPTDATA POSTSCRIPTHEADING) of IMAGEDATA) STREAM) (RELMOVETO (CONSTANT (TIMES 72 \PS.SCALE0)) 0 STREAM) (* ; "Skip an inch before page number") (PRIN3 "Page " STREAM) (PRIN3 NEW-PAGE STREAM) (\TERPRI.PSC STREAM) (* ; "Skip 2 lines") (\TERPRI.PSC STREAM) (\DSPFONT.PSC STREAM FONT))) (T (\DSPRESET.PSC STREAM))))) -) + [LAMBDA (STREAM) (* ; "Edited 12-Jun-2021 14:52 by rmk:") + + (* ;; "Start up a new page in a Postscript document.") + + (LET ((IMAGEDATA (fetch (STREAM IMAGEDATA) of STREAM)) + NEW-PAGE) + (replace (\POSTSCRIPTDATA POSTSCRIPTPENDINGXFORM) of IMAGEDATA with NIL) + (* ; "shouldnt need this") + (SETQ NEW-PAGE (CL:INCF (fetch (\POSTSCRIPTDATA POSTSCRIPTPAGENUM) of IMAGEDATA))) + (* ; "Page number goes up by 1") + + (* ;; "Print the %"Document structuring%" info for the page, then the initial page setup") + + (POSTSCRIPT.PUTCOMMAND STREAM :EOL "%%%%Page: " NEW-PAGE " " NEW-PAGE :EOL + "%%%%BeginPageSetup" :EOL "/savepage save def" :EOL (FQUOTIENT 1 \PS.SCALE0) + " imagesizefactor mul dup scale" :EOL "%%%%EndPageSetup" :EOL) + (\SETXFORM.PSC STREAM IMAGEDATA T) + + (* ;; "Lisp depends on the current font being carried over from page to page, but in postscript there is no current font at the beginning of a page, so force a setfont.") + + (replace (\POSTSCRIPTDATA POSTSCRIPTFONTCHANGEDFLG) of IMAGEDATA with T) + (replace (\POSTSCRIPTDATA POSTSCRIPTPAGEBLANK) of IMAGEDATA with T) + (* ; "nothing printed yet...") + (COND + ((fetch (\POSTSCRIPTDATA POSTSCRIPTHEADING) of IMAGEDATA) + + (* ;; "Here we handle headings.") + + (LET [(FONT (\DSPFONT.PSC STREAM (fetch (\POSTSCRIPTDATA POSTSCRIPTHEADINGFONT) + of IMAGEDATA] + (\DSPRESET.PSC STREAM) + (POSTSCRIPT.OUTSTR STREAM (fetch (\POSTSCRIPTDATA POSTSCRIPTHEADING) + of IMAGEDATA)) + (RELMOVETO (CONSTANT (TIMES 72 \PS.SCALE0)) + 0 STREAM) (* ; "Skip an inch before page number") + (POSTSCRIPT.OUTSTR STREAM "Page ") + (POSTSCRIPT.OUTSTR STREAM NEW-PAGE) + (\TERPRI.PSC STREAM) (* ; "Skip 2 lines") + (\TERPRI.PSC STREAM) + (\DSPFONT.PSC STREAM FONT))) + (T (\DSPRESET.PSC STREAM]) (\POSTSCRIPTTAB [LAMBDA (POSTSCRIPTDATA) (* ; @@ -3489,526 +3535,525 @@ Copyright (c) 1989, 1990, 1991, 1992, 1993, 1994, 1995, 1997, 1998, 2018 by Venu (RPAQQ *POSTSCRIPT-UNACCENTED-FONTS* (Dancer ZapfDingbats "Dancer" "ZapfDingbats")) -(RPAQQ *POSTSCRIPT-NS-TRANSLATIONS* ( - (* ;; "Mapping of NS characters to Postscript renderings.") - - - - (* ;; "First few are for control-codes in old Press fonts (Timesroman, etc.); not strictly NS, but undefined therein so should be OK.") - - ("^S" NIL "2,320") - (* ; "pressfont em dash") - ("^V" NIL "2,261") - (* ; "pressfont en dash") - ("^G" NIL "0,140") - ("0,244" NIL "2,250") - (* ; "generic currency symbol") - ("0,251" NIL "2,140") - (* ; "left single quote") - ("0,254" SYMBOL "2,254") - (* ; "left arrow") - ("0,255" SYMBOL "2,255") - (* ; "uparrow") - ("0,256" SYMBOL "2,256") - (* ; "right arrow") - ("0,257" SYMBOL "2,257") - (* ; "down arrow") - ("0,260" SYMBOL "2,260") - (* ; "degree") - ("0,261" SYMBOL "2,261") - (* ; "+/-") - ("0,264" SYMBOL "2,264") - (* ; "times") - ("0,267" NIL "2,264") - (* ; "Center-dot") - ("0,270" SYMBOL "2,270") - (* ; "divide") - ("0,271" NIL "2,047") - (* ; "right single quote") - ("0,274" FUNCTION " f14 ") - (* ; "1/4") - ("0,275" FUNCTION " f12 ") - (* ; "1/2") - ("0,276" FUNCTION " f34 ") - (* ; "3/4") - ("0,322" SYMBOL "2,342") - (* ; "registered") - ("0,323" SYMBOL "2,343") - (* ; "copyright") - ("0,324" SYMBOL "2,344") - (* ; "tm") - ("0,334" FUNCTION " f18 ") - (* ; "1/8") - ("0,335" FUNCTION " f38 ") - (* ; "3/8") - ("0,336" FUNCTION " f58 ") - (* ; "5/8") - ("0,337" FUNCTION " f78 ") - (* ; "7/8") - ("0,342" NIL "2,235") - (* ; "Eth (slashed D?)") - ("0,354" NIL "2,237") - (* ; "Thorn") - ("0,363" NIL "2,236") - (* ; "eth") - ("0,374" NIL "2,240") - (* ; "thorn") - ("41,172" DINGBAT "0,110") - (* ; "filled star") - ("42,42" DINGBAT "0,161") - (* ; "ballot-box") - ("42,61" APPLY* "0,161" \PSC.SYMBOLS \PSC.SPACEWID NIL) - (* ; "Checked ballot-box") - ("357,44" NIL "2,261") - (* ; "n dash") - ("357,45" NIL "2,320") - (* ; "m dash") - ("357,55" APPLY* "M" \PSC.SPACEDISP \PSC.SPACEWID NIL) - (* ; "M quad") - ("357,54" APPLY* "N" \PSC.SPACEDISP \PSC.SPACEWID NIL) - (* ; "N quad") - ("357,56" APPLY* "1" \PSC.SPACEDISP \PSC.SPACEWID NIL) - (* ; "FIGURE quad") - ("357,57" APPLY* ("M" 0.2) - \PSC.SPACEDISP \PSC.SPACEWID NIL) - (* ; "This space (1/5M)") - ("357,60" NIL "2,262") - (* ; "dagger") - ("357,61" NIL "2,263") - (* ; "double dagger") - ("357,062" SYMBOL "2,361") - (* ; "angleright") - ("357,063" SYMBOL "2,341") - (* ; "angleleft") - ("357,70" SYMBOL "2,315") - (* ; "perpendicular") - ("357,101" NIL "2,275") - (* ; "per mil o/oo") - ("357,104" ACCENTPAIR "<" NIL "/") - (* ; "not less than") - ("357,105" ACCENTPAIR ">" "/") - (* ; "not greater than") - ("357,110" SYMBOL "2,312") - (* ; "parallel") - ("357,111" SYMBOL "2,315") - (* ; "not parallel") - ("357,112" SYMBOL "2,316") - (* ; "element") - ("357,113" SYMBOL "2,317") - (* ; "notelement") - ("357,114" SYMBOL "2,047") - (* ; "suchthat") - ("357,115" SYMBOL "2,334") - (* ; "implied by, double arrow left") - ("357,116" SYMBOL "2,333") - (* ; "iff, double arrow") - ("357,117" SYMBOL "2,336") - (* ; "implies, double arrow right") - ("357,120" SYMBOL "2,253") - (* ; "double arrow") - ("357,121" SYMBOL "2,333") - (* ; "double arrow") - ("357,122" SYMBOL "2,333") - (* ; "l/r arrow") - ("357,126" SYMBOL "2,307") - (* ; "intersection") - ("357,127" SYMBOL "2,310") - (* ; "union") - ("357,130" SYMBOL "2,312") - (* ; "reflexsuperset") - ("357,131" SYMBOL "2,315") - (* ; "reflexsubset") - ("357,132" SYMBOL "2,311") - (* ; "propersuperset") - ("357,133" SYMBOL "2,314") - (* ; "propersubset") - ("357,137" SYMBOL "2,313") - (* ; "notsubset") - ("357,141" SYMBOL "2,306") - (* ; "emptyset") - ("357,142" SYMBOL "2,305") - (* ; "circleplus") - ("357,144" SYMBOL "2,304") - (* ; "circlemultiply") - ("357,146" NIL "2,267") - (* ; "bullet") - ("357,147" SYMBOL "2,260") - (* ; - "center circle (composition), lowered degree") - ("357,152" SYMBOL "2,330") - (* ; "logicalnot") - ("357,154" SYMBOL "2,320") - (* ; "angle") - ("357,160" SYMBOL "2,136") - (* ; "perpendicular") - ("357,161" SYMBOL "2,265") - (* ; "proportional") - ("357,162" SYMBOL "2,272") - (* ; "equivalence") - ("357,165" SYMBOL "2,362") - (* ; "integral") - ("357,167" SYMBOL "2,273") - (* ; "approxequal") - ("357,170" SYMBOL "2,100") - (* ; "congruent") - ("357,172" SYMBOL "2,345") - (* ; "summation") - ("357,173" SYMBOL "2,325") - (* ; "product") - ("357,174" SYMBOL "2,326") - (* ; "radical") - ("357,242" SYMBOL "2,246") - (* ; "florin") - ("357,260" SYMBOL "2,351") - (* ; "Ceiling, left ") - ("357,261" SYMBOL "2,371") - (* ; "Ceiling, right") - ("357,262" SYMBOL "2,353") - (* ; "Floor, left ") - ("357,263" SYMBOL "2,373") - (* ; "Floor, right") - ("357,264" SYMBOL "2,44") - (* ; "exists") - ("357,265" SYMBOL "2,42") - (* ; "forall") - ("357,266" SYMBOL "2,331") - (* ; "logicaland") - ("357,267" SYMBOL "2,332") - (* ; "logicalor") - ("357,271" SYMBOL "2,321") - (* ; "gradient") - ("357,272" SYMBOL "2,266") - (* ; "partialdiff") - ("357,313" SYMBOL "2,252") - (* ; "spade") - ("357,317" DINGBAT "0,63") - (* ; "check") - ("357,375" FUNCTION " f13 ") - (* ; "1/3") - ("357,376" FUNCTION " f23 ") - (* ; "2/3") - ("361,041" ACCENT "0,4" A) - ("361,042" ACCENT "0,1" A) - ("361,043" ACCENT "0,2" A) - ("361,044" ACCENT "0,6" A) - ("361,045" ACCENTPAIR A "0,305") - (* ; "A-macron") - ("361,046" ACCENTPAIR A "0,306") - (* ; "A-breve") - ("361,047" ACCENT "0,3" A) - ("361,050" ACCENT "0,5" A) - ("361,055" ACCENT "0,7" C) - ("361,060" ACCENT "0,13" E) - ("361,061" ACCENT "0,10" E) - ("361,062" ACCENT "0,11" E) - ("361,063" ACCENTPAIR E "0,305") - (* ; "E-macron") - ("361,065" ACCENT "0,12" E) - ("361,066" ACCENTPAIR E NIL "0,316") - (* ; "E-ogonek") - ("361,076" ACCENT "0,17" I) - ("361,077" ACCENT "0,14" I) - ("361,100" ACCENT "0,15" I) - ("361,102" ACCENTPAIR I "0,305") - (* ; "I-macron") - ("361,104" ACCENT "0,16" I) - ("361,114" ACCENT "0,20" N) - ("361,117" ACCENT "0,24" O) - ("361,120" ACCENT "0,21" O) - ("361,121" ACCENT "0,22" O) - ("361,122" ACCENT "0,25" O) - ("361,123" ACCENTPAIR O "0,305") - (* ; "O-macron") - ("361,124" ACCENT "0,23" O) - ("361,134" ACCENT "0,26" S) - ("361,137" ACCENT "0,32" U) - ("361,140" ACCENT "0,27" U) - ("361,141" ACCENT "0,30" U) - ("361,143" ACCENTPAIR U "0,305") - (* ; "U-macron") - ("361,145" ACCENT "0,31" U) - ("361,155" ACCENT "0,33" Y) - ("361,160" ACCENT "0,34" Z) - ("361,165" ACCENTPAIR Y "0,305") - (* ; "Y-macron") - ("361,166" ACCENTPAIR "0,341" "0,305") - (* ; "AE-macron") - ("361,167" ACCENTPAIR "0,352" "0,305") - (* ; "OE-macron") - ("361,241" ACCENT "0,204" a) - ("361,242" ACCENT "0,201" a) - ("361,243" ACCENT "0,202" a) - ("361,244" ACCENT "0,206" a) - ("361,245" ACCENTPAIR a "0,305") - (* ; "a-macron") - ("361,246" ACCENTPAIR a "0,306") - (* ; "a-breve") - ("361,247" ACCENT "0,203" a) - ("361,250" ACCENT "0,205" a) - ("361,255" ACCENT "0,207" c) - ("361,260" ACCENT "0,213" e) - ("361,261" ACCENT "0,210" e) - ("361,262" ACCENT "0,211" e) - ("361,263" ACCENTPAIR e "0,305") - (* ; "e-macron") - ("361,265" ACCENT "0,212" e) - ("361,266" ACCENTPAIR e NIL "0,316") - (* ; "e-ogonek") - ("361,267" ACCENTPAIR e "0,317") - (* ; "e-caron") - ("361,276" ACCENT "0,217" i) - ("361,277" ACCENT "0,214" i) - ("361,300" ACCENT "0,215" i) - ("361,302" ACCENTPAIR "0,365" "0,305") - (* ; "i-macron") - ("361,304" ACCENT "0,216" i) - ("361,314" ACCENT "0,220" n) - ("361,317" ACCENT "0,224" o) - ("361,320" ACCENT "0,221" o) - ("361,321" ACCENT "0,222" o) - ("361,322" ACCENT "0,225" o) - ("361,323" ACCENTPAIR o "0,305") - (* ; "o-macron") - ("361,324" ACCENT "0,223" o) - ("361,334" ACCENT "0,226" s) - ("361,337" ACCENT "0,232" u) - ("361,340" ACCENT "0,227" u) - ("361,341" ACCENT "0,230" u) - ("361,343" ACCENTPAIR u "0,305") - (* ; "u-macron") - ("361,344" ACCENTPAIR u "0,306") - (* ; "u-breve") - ("361,345" ACCENT "0,231" u) - ("361,355" ACCENT "0,233" y) - ("361,360" ACCENT "0,234" z) - ("361,365" ACCENTPAIR y "0,305") - (* ; "y-macron") - ("361,366" ACCENTPAIR "0,361" "0,305") - (* ; "ae-macron") - ("361,367" ACCENTPAIR "0,372" "0,305") - (* ; "oe-macron") - ("361,371" ACCENTPAIR a "0,317") - (* ; "a-caron") - ("361,375" ACCENTPAIR g "0,317") - (* ; "g-caron") - - (* ;; - "Special code assignments for Dictionary of Old English, UToronto:") - - ("361,370" ACCENTPAIR a ("0,305" "0,306")) - (* ; "a - breve-macron") - ("361,372" ACCENTPAIR e "0,306") - (* ; "e-breve") - ("361,373" ACCENTPAIR e "0,305" "0,56") - (* ; "e macron underdot") - ("361,374" ACCENTPAIR e ("0,305" "0,306")) - (* ; "e - breve-macron") - ("361,376" ACCENTPAIR "0,365" "0,306") - (* ; "i-breve") - ("362,242" ACCENTPAIR "0,365" "0,317") - (* ; "i-caron") - ("362,241" ACCENTPAIR "0,365" ("0,305" "0,306")) - (* ; " i - breve-macron") - ("362,243" ACCENTPAIR n "0,305") - (* ; "n-macron") - ("362,244" ACCENTPAIR m "0,305") - (* ; "m-macron") - ("362,245" ACCENTPAIR o "0,317") - (* ; "o-caron") - ("362,246" ACCENTPAIR o "0,306") - (* ; "o-breve") - ("362,247" ACCENTPAIR o ("0,305" "0,306")) - (* ; "o - breve-macron") - ("362,250" ACCENTPAIR o "0,305" "0,56") - (* ; "o-macron underdot") - ("362,251" ACCENTPAIR o "0,316") - (* ; "o-ogonek") - ("362,252" ACCENTPAIR u "0,317") - (* ; "u-caron") - ("362,253" ACCENTPAIR u ("0,305" "0,306")) - (* ; "u - breve-macron") - ("362,254" ACCENTPAIR y "0,306") - (* ; "y-breve") - ("362,256" ACCENTPAIR y "0,317") - (* ; "y-caron") - ("362,255" ACCENTPAIR y ("0,305" "0,306")) - (* ; "y - breve-macron") - (* ; "235 = Eth") - (* ; "236 = eth") - (* ; "237 = Thorn") - (* ; "240 = thorn") - - (* ;; "NS Greek characters") - - ("46,101" SYMBOL "2,101") - (* ; "Alpha") - ("46,102" SYMBOL "2,102") - (* ; "Beta") - ("46,103" SYMBOL 0) - (* ; "--empty--") - ("46,104" SYMBOL "2,107") - (* ; "Gamma") - ("46,105" SYMBOL "2,104") - (* ; "Delta") - ("46,106" SYMBOL "2,105") - (* ; "Epsilon") - ("46,107" SYMBOL 0) - (* ; "Stigma") - ("46,110" SYMBOL 0) - (* ; "Digamma") - ("46,111" SYMBOL "2,132") - (* ; "Zeta") - ("46,112" SYMBOL "2,110") - (* ; "Eta") - ("46,113" SYMBOL "2,121") - (* ; "Theta") - ("46,114" SYMBOL "2,111") - (* ; "Iota") - ("46,115" SYMBOL "2,113") - (* ; "Kappa") - ("46,116" SYMBOL "2,114") - (* ; "Lambda") - ("46,117" SYMBOL "2,115") - (* ; "Mu") - ("46,120" SYMBOL "2,116") - (* ; "Nu") - ("46,121" SYMBOL "2,130") - (* ; "Xi") - ("46,122" SYMBOL "2,117") - (* ; "Omicron") - ("46,123" SYMBOL "2,120") - (* ; "Pi") - ("46,124" SYMBOL 0) - (* ; "Koppa") - ("46,125" SYMBOL "2,122") - (* ; "Rho") - ("46,126" SYMBOL "2,123") - (* ; "Sigma") - ("46,127" SYMBOL 0) - (* ; "--empty--") - ("46,130" SYMBOL "2,124") - (* ; "Tau") - ("46,131" SYMBOL "2,125") - (* ; "Upsilon") - ("46,132" SYMBOL "2,106") - (* ; "Phi") - ("46,133" SYMBOL "2,103") - (* ; "Chi") - ("46,134" SYMBOL "2,131") - (* ; "Psi") - ("46,135" SYMBOL "2,132") - (* ; "Omega") - ("46,141" SYMBOL "2,141") - (* ; "alpha") - ("46,142" SYMBOL "2,142") - (* ; "beta") - ("46,143" SYMBOL 0) - (* ; "(md beta)") - ("46,144" SYMBOL "2,147") - (* ; "gamma") - ("46,145" SYMBOL "2,144") - (* ; "delta") - ("46,146" SYMBOL "2,145") - (* ; "epsilon") - ("46,147" SYMBOL "2,126") - (* ; "stigma") - ("46,150" SYMBOL 0) - (* ; "digamma") - ("46,151" SYMBOL "2,172") - (* ; "zeta") - ("46,152" SYMBOL "2,150") - (* ; "eta") - ("46,153" SYMBOL "2,161") - (* ; "theta") - ("46,154" SYMBOL "2,151") - (* ; "iota") - ("46,155" SYMBOL "2,153") - (* ; "kappa") - ("46,156" SYMBOL "2,154") - (* ; "lambda") - ("46,157" SYMBOL "2,155") - (* ; "mu") - ("46,160" SYMBOL "2,156") - (* ; "nu") - ("46,161" SYMBOL "2,170") - (* ; "xi") - ("46,162" SYMBOL "2,157") - (* ; "omicron") - ("46,163" SYMBOL "2,160") - (* ; "pi") - ("46,164" SYMBOL 0) - (* ; "(koppa)") - ("46,165" SYMBOL "2,162") - (* ; "rho") - ("46,166" SYMBOL "2,163") - (* ; "sigma") - ("46,167" SYMBOL "2,126") - (* ; "(fl sigma)") - ("46,170" SYMBOL "2,164") - (* ; "tau") - ("46,171" SYMBOL "2.165") - (* ; "upsilon") - ("46,172" SYMBOL "2,146") - (* ; "phi") - ("46,173" SYMBOL "2,143") - (* ; "chi") - ("46,174" SYMBOL "2,171") - (* ; "psi") - ("46,175" SYMBOL "2,167") - (* ; "omega") - - (* ;; "NS Miscellaneous symbols") - - ("041,142" SYMBOL "2,271") - (* ; "notequal") - ("041,145" SYMBOL "2,243") - (* ; "lessequal") - ("041,146" SYMBOL "2,263") - (* ; "greaterequal") - ("041,147" SYMBOL "2,245") - (* ; "infinity") - ("041,150" SYMBOL "2,134") - (* ; "therefore") - ("041,155" SYMBOL "2,262") - (* ; "second") - ("356,055" SYMBOL "2,055") - (* ; "minus") - ("356,106" SYMBOL "2,340") - (* ; "lozenge") - ("356,163" SYMBOL "2,351") - (* ; "topleftbracket") - ("356,164" SYMBOL "2,353") - (* ; "bottomleftbracket") - ("356,165" SYMBOL "2,352") - (* ; "centerbracket") - ("356,166" SYMBOL "2,371") - (* ; "toprightbracket") - ("356,167" SYMBOL "2,373") - (* ; "bottomrightbracket") - ("356,176" SYMBOL "2,176") - (* ; "similar") - ("356,314" SYMBOL "2,251") - (* ; "heart") - ("356,340" SYMBOL "2,374") - (* ; "toprightbracce") - ("356,341" SYMBOL "2,357") - (* ; "braceextend") - ("356,342" SYMBOL "2,375") - (* ; "centerrightbracce") - ("356,343" SYMBOL "2,376") - (* ; "bottomrightbracce") - ("356,344" SYMBOL "2,354") - (* ; "topleftbracce") - ("356,345" SYMBOL "2,356") - (* ; "bottomleftbracce") - ("356,346" SYMBOL "2,355") - (* ; "centerleftbracce") - ("356,355" SYMBOL "2,363") - (* ; "integraltop") - ("356,356" SYMBOL "2,365") - (* ; "integralbottom") - ("356,357" SYMBOL "2,364") - (* ; "integralcenter"))) +(RPAQQ *POSTSCRIPT-NS-TRANSLATIONS* + ( + (* ;; "Mapping of NS characters to Postscript renderings.") + + + (* ;; "First few are for control-codes in old Press fonts (Timesroman, etc.); not strictly NS, but undefined therein so should be OK.") + + ("^S" NIL "2,320") + (* ; "pressfont em dash") + ("^V" NIL "2,261") + (* ; "pressfont en dash") + ("^G" NIL "0,140") + ("0,244" NIL "2,250") + (* ; "generic currency symbol") + ("0,251" NIL "2,140") + (* ; "left single quote") + ("0,254" SYMBOL "2,254") + (* ; "left arrow") + ("0,255" SYMBOL "2,255") + (* ; "uparrow") + ("0,256" SYMBOL "2,256") + (* ; "right arrow") + ("0,257" SYMBOL "2,257") + (* ; "down arrow") + ("0,260" SYMBOL "2,260") + (* ; "degree") + ("0,261" SYMBOL "2,261") + (* ; "+/-") + ("0,264" SYMBOL "2,264") + (* ; "times") + ("0,267" NIL "2,264") + (* ; "Center-dot") + ("0,270" SYMBOL "2,270") + (* ; "divide") + ("0,271" NIL "2,047") + (* ; "right single quote") + ("0,274" FUNCTION " f14 ") + (* ; "1/4") + ("0,275" FUNCTION " f12 ") + (* ; "1/2") + ("0,276" FUNCTION " f34 ") + (* ; "3/4") + ("0,322" SYMBOL "2,342") + (* ; "registered") + ("0,323" SYMBOL "2,343") + (* ; "copyright") + ("0,324" SYMBOL "2,344") + (* ; "tm") + ("0,334" FUNCTION " f18 ") + (* ; "1/8") + ("0,335" FUNCTION " f38 ") + (* ; "3/8") + ("0,336" FUNCTION " f58 ") + (* ; "5/8") + ("0,337" FUNCTION " f78 ") + (* ; "7/8") + ("0,342" NIL "2,235") + (* ; "Eth (slashed D?)") + ("0,354" NIL "2,237") + (* ; "Thorn") + ("0,363" NIL "2,236") + (* ; "eth") + ("0,374" NIL "2,240") + (* ; "thorn") + ("41,172" DINGBAT "0,110") + (* ; "filled star") + ("42,42" DINGBAT "0,161") + (* ; "ballot-box") + ("42,61" APPLY* "0,161" \PSC.SYMBOLS \PSC.SPACEWID NIL) + (* ; "Checked ballot-box") + ("357,44" NIL "2,261") + (* ; "n dash") + ("357,45" NIL "2,320") + (* ; "m dash") + ("357,55" APPLY* "M" \PSC.SPACEDISP \PSC.SPACEWID NIL) + (* ; "M quad") + ("357,54" APPLY* "N" \PSC.SPACEDISP \PSC.SPACEWID NIL) + (* ; "N quad") + ("357,56" APPLY* "1" \PSC.SPACEDISP \PSC.SPACEWID NIL) + (* ; "FIGURE quad") + ("357,57" APPLY* ("M" 0.2) + \PSC.SPACEDISP \PSC.SPACEWID NIL) + (* ; "This space (1/5M)") + ("357,60" NIL "2,262") + (* ; "dagger") + ("357,61" NIL "2,263") + (* ; "double dagger") + ("357,062" SYMBOL "2,361") + (* ; "angleright") + ("357,063" SYMBOL "2,341") + (* ; "angleleft") + ("357,70" SYMBOL "2,315") + (* ; "perpendicular") + ("357,101" NIL "2,275") + (* ; "per mil o/oo") + ("357,104" ACCENTPAIR "<" NIL "/") + (* ; "not less than") + ("357,105" ACCENTPAIR ">" "/") + (* ; "not greater than") + ("357,110" SYMBOL "2,312") + (* ; "parallel") + ("357,111" SYMBOL "2,315") + (* ; "not parallel") + ("357,112" SYMBOL "2,316") + (* ; "element") + ("357,113" SYMBOL "2,317") + (* ; "notelement") + ("357,114" SYMBOL "2,047") + (* ; "suchthat") + ("357,115" SYMBOL "2,334") + (* ; "implied by, double arrow left") + ("357,116" SYMBOL "2,333") + (* ; "iff, double arrow") + ("357,117" SYMBOL "2,336") + (* ; "implies, double arrow right") + ("357,120" SYMBOL "2,253") + (* ; "double arrow") + ("357,121" SYMBOL "2,333") + (* ; "double arrow") + ("357,122" SYMBOL "2,333") + (* ; "l/r arrow") + ("357,126" SYMBOL "2,307") + (* ; "intersection") + ("357,127" SYMBOL "2,310") + (* ; "union") + ("357,130" SYMBOL "2,312") + (* ; "reflexsuperset") + ("357,131" SYMBOL "2,315") + (* ; "reflexsubset") + ("357,132" SYMBOL "2,311") + (* ; "propersuperset") + ("357,133" SYMBOL "2,314") + (* ; "propersubset") + ("357,137" SYMBOL "2,313") + (* ; "notsubset") + ("357,141" SYMBOL "2,306") + (* ; "emptyset") + ("357,142" SYMBOL "2,305") + (* ; "circleplus") + ("357,144" SYMBOL "2,304") + (* ; "circlemultiply") + ("357,146" NIL "2,267") + (* ; "bullet") + ("357,147" SYMBOL "2,260") + (* ; + "center circle (composition), lowered degree") + ("357,152" SYMBOL "2,330") + (* ; "logicalnot") + ("357,154" SYMBOL "2,320") + (* ; "angle") + ("357,160" SYMBOL "2,136") + (* ; "perpendicular") + ("357,161" SYMBOL "2,265") + (* ; "proportional") + ("357,162" SYMBOL "2,272") + (* ; "equivalence") + ("357,165" SYMBOL "2,362") + (* ; "integral") + ("357,167" SYMBOL "2,273") + (* ; "approxequal") + ("357,170" SYMBOL "2,100") + (* ; "congruent") + ("357,172" SYMBOL "2,345") + (* ; "summation") + ("357,173" SYMBOL "2,325") + (* ; "product") + ("357,174" SYMBOL "2,326") + (* ; "radical") + ("357,242" SYMBOL "2,246") + (* ; "florin") + ("357,260" SYMBOL "2,351") + (* ; "Ceiling, left ") + ("357,261" SYMBOL "2,371") + (* ; "Ceiling, right") + ("357,262" SYMBOL "2,353") + (* ; "Floor, left ") + ("357,263" SYMBOL "2,373") + (* ; "Floor, right") + ("357,264" SYMBOL "2,44") + (* ; "exists") + ("357,265" SYMBOL "2,42") + (* ; "forall") + ("357,266" SYMBOL "2,331") + (* ; "logicaland") + ("357,267" SYMBOL "2,332") + (* ; "logicalor") + ("357,271" SYMBOL "2,321") + (* ; "gradient") + ("357,272" SYMBOL "2,266") + (* ; "partialdiff") + ("357,313" SYMBOL "2,252") + (* ; "spade") + ("357,317" DINGBAT "0,63") + (* ; "check") + ("357,375" FUNCTION " f13 ") + (* ; "1/3") + ("357,376" FUNCTION " f23 ") + (* ; "2/3") + ("361,041" ACCENT "0,4" A) + ("361,042" ACCENT "0,1" A) + ("361,043" ACCENT "0,2" A) + ("361,044" ACCENT "0,6" A) + ("361,045" ACCENTPAIR A "0,305") + (* ; "A-macron") + ("361,046" ACCENTPAIR A "0,306") + (* ; "A-breve") + ("361,047" ACCENT "0,3" A) + ("361,050" ACCENT "0,5" A) + ("361,055" ACCENT "0,7" C) + ("361,060" ACCENT "0,13" E) + ("361,061" ACCENT "0,10" E) + ("361,062" ACCENT "0,11" E) + ("361,063" ACCENTPAIR E "0,305") + (* ; "E-macron") + ("361,065" ACCENT "0,12" E) + ("361,066" ACCENTPAIR E NIL "0,316") + (* ; "E-ogonek") + ("361,076" ACCENT "0,17" I) + ("361,077" ACCENT "0,14" I) + ("361,100" ACCENT "0,15" I) + ("361,102" ACCENTPAIR I "0,305") + (* ; "I-macron") + ("361,104" ACCENT "0,16" I) + ("361,114" ACCENT "0,20" N) + ("361,117" ACCENT "0,24" O) + ("361,120" ACCENT "0,21" O) + ("361,121" ACCENT "0,22" O) + ("361,122" ACCENT "0,25" O) + ("361,123" ACCENTPAIR O "0,305") + (* ; "O-macron") + ("361,124" ACCENT "0,23" O) + ("361,134" ACCENT "0,26" S) + ("361,137" ACCENT "0,32" U) + ("361,140" ACCENT "0,27" U) + ("361,141" ACCENT "0,30" U) + ("361,143" ACCENTPAIR U "0,305") + (* ; "U-macron") + ("361,145" ACCENT "0,31" U) + ("361,155" ACCENT "0,33" Y) + ("361,160" ACCENT "0,34" Z) + ("361,165" ACCENTPAIR Y "0,305") + (* ; "Y-macron") + ("361,166" ACCENTPAIR "0,341" "0,305") + (* ; "AE-macron") + ("361,167" ACCENTPAIR "0,352" "0,305") + (* ; "OE-macron") + ("361,241" ACCENT "0,204" a) + ("361,242" ACCENT "0,201" a) + ("361,243" ACCENT "0,202" a) + ("361,244" ACCENT "0,206" a) + ("361,245" ACCENTPAIR a "0,305") + (* ; "a-macron") + ("361,246" ACCENTPAIR a "0,306") + (* ; "a-breve") + ("361,247" ACCENT "0,203" a) + ("361,250" ACCENT "0,205" a) + ("361,255" ACCENT "0,207" c) + ("361,260" ACCENT "0,213" e) + ("361,261" ACCENT "0,210" e) + ("361,262" ACCENT "0,211" e) + ("361,263" ACCENTPAIR e "0,305") + (* ; "e-macron") + ("361,265" ACCENT "0,212" e) + ("361,266" ACCENTPAIR e NIL "0,316") + (* ; "e-ogonek") + ("361,267" ACCENTPAIR e "0,317") + (* ; "e-caron") + ("361,276" ACCENT "0,217" i) + ("361,277" ACCENT "0,214" i) + ("361,300" ACCENT "0,215" i) + ("361,302" ACCENTPAIR "0,365" "0,305") + (* ; "i-macron") + ("361,304" ACCENT "0,216" i) + ("361,314" ACCENT "0,220" n) + ("361,317" ACCENT "0,224" o) + ("361,320" ACCENT "0,221" o) + ("361,321" ACCENT "0,222" o) + ("361,322" ACCENT "0,225" o) + ("361,323" ACCENTPAIR o "0,305") + (* ; "o-macron") + ("361,324" ACCENT "0,223" o) + ("361,334" ACCENT "0,226" s) + ("361,337" ACCENT "0,232" u) + ("361,340" ACCENT "0,227" u) + ("361,341" ACCENT "0,230" u) + ("361,343" ACCENTPAIR u "0,305") + (* ; "u-macron") + ("361,344" ACCENTPAIR u "0,306") + (* ; "u-breve") + ("361,345" ACCENT "0,231" u) + ("361,355" ACCENT "0,233" y) + ("361,360" ACCENT "0,234" z) + ("361,365" ACCENTPAIR y "0,305") + (* ; "y-macron") + ("361,366" ACCENTPAIR "0,361" "0,305") + (* ; "ae-macron") + ("361,367" ACCENTPAIR "0,372" "0,305") + (* ; "oe-macron") + ("361,371" ACCENTPAIR a "0,317") + (* ; "a-caron") + ("361,375" ACCENTPAIR g "0,317") + (* ; "g-caron") + + (* ;; "Special code assignments for Dictionary of Old English, UToronto:") + + ("361,370" ACCENTPAIR a ("0,305" "0,306")) + (* ; "a - breve-macron") + ("361,372" ACCENTPAIR e "0,306") + (* ; "e-breve") + ("361,373" ACCENTPAIR e "0,305" "0,56") + (* ; "e macron underdot") + ("361,374" ACCENTPAIR e ("0,305" "0,306")) + (* ; "e - breve-macron") + ("361,376" ACCENTPAIR "0,365" "0,306") + (* ; "i-breve") + ("362,242" ACCENTPAIR "0,365" "0,317") + (* ; "i-caron") + ("362,241" ACCENTPAIR "0,365" ("0,305" "0,306")) + (* ; " i - breve-macron") + ("362,243" ACCENTPAIR n "0,305") + (* ; "n-macron") + ("362,244" ACCENTPAIR m "0,305") + (* ; "m-macron") + ("362,245" ACCENTPAIR o "0,317") + (* ; "o-caron") + ("362,246" ACCENTPAIR o "0,306") + (* ; "o-breve") + ("362,247" ACCENTPAIR o ("0,305" "0,306")) + (* ; "o - breve-macron") + ("362,250" ACCENTPAIR o "0,305" "0,56") + (* ; "o-macron underdot") + ("362,251" ACCENTPAIR o "0,316") + (* ; "o-ogonek") + ("362,252" ACCENTPAIR u "0,317") + (* ; "u-caron") + ("362,253" ACCENTPAIR u ("0,305" "0,306")) + (* ; "u - breve-macron") + ("362,254" ACCENTPAIR y "0,306") + (* ; "y-breve") + ("362,256" ACCENTPAIR y "0,317") + (* ; "y-caron") + ("362,255" ACCENTPAIR y ("0,305" "0,306")) + (* ; "y - breve-macron") + (* ; "235 = Eth") + (* ; "236 = eth") + (* ; "237 = Thorn") + (* ; "240 = thorn") + + (* ;; "NS Greek characters") + + ("46,101" SYMBOL "2,101") + (* ; "Alpha") + ("46,102" SYMBOL "2,102") + (* ; "Beta") + ("46,103" SYMBOL 0) + (* ; "--empty--") + ("46,104" SYMBOL "2,107") + (* ; "Gamma") + ("46,105" SYMBOL "2,104") + (* ; "Delta") + ("46,106" SYMBOL "2,105") + (* ; "Epsilon") + ("46,107" SYMBOL 0) + (* ; "Stigma") + ("46,110" SYMBOL 0) + (* ; "Digamma") + ("46,111" SYMBOL "2,132") + (* ; "Zeta") + ("46,112" SYMBOL "2,110") + (* ; "Eta") + ("46,113" SYMBOL "2,121") + (* ; "Theta") + ("46,114" SYMBOL "2,111") + (* ; "Iota") + ("46,115" SYMBOL "2,113") + (* ; "Kappa") + ("46,116" SYMBOL "2,114") + (* ; "Lambda") + ("46,117" SYMBOL "2,115") + (* ; "Mu") + ("46,120" SYMBOL "2,116") + (* ; "Nu") + ("46,121" SYMBOL "2,130") + (* ; "Xi") + ("46,122" SYMBOL "2,117") + (* ; "Omicron") + ("46,123" SYMBOL "2,120") + (* ; "Pi") + ("46,124" SYMBOL 0) + (* ; "Koppa") + ("46,125" SYMBOL "2,122") + (* ; "Rho") + ("46,126" SYMBOL "2,123") + (* ; "Sigma") + ("46,127" SYMBOL 0) + (* ; "--empty--") + ("46,130" SYMBOL "2,124") + (* ; "Tau") + ("46,131" SYMBOL "2,125") + (* ; "Upsilon") + ("46,132" SYMBOL "2,106") + (* ; "Phi") + ("46,133" SYMBOL "2,103") + (* ; "Chi") + ("46,134" SYMBOL "2,131") + (* ; "Psi") + ("46,135" SYMBOL "2,132") + (* ; "Omega") + ("46,141" SYMBOL "2,141") + (* ; "alpha") + ("46,142" SYMBOL "2,142") + (* ; "beta") + ("46,143" SYMBOL 0) + (* ; "(md beta)") + ("46,144" SYMBOL "2,147") + (* ; "gamma") + ("46,145" SYMBOL "2,144") + (* ; "delta") + ("46,146" SYMBOL "2,145") + (* ; "epsilon") + ("46,147" SYMBOL "2,126") + (* ; "stigma") + ("46,150" SYMBOL 0) + (* ; "digamma") + ("46,151" SYMBOL "2,172") + (* ; "zeta") + ("46,152" SYMBOL "2,150") + (* ; "eta") + ("46,153" SYMBOL "2,161") + (* ; "theta") + ("46,154" SYMBOL "2,151") + (* ; "iota") + ("46,155" SYMBOL "2,153") + (* ; "kappa") + ("46,156" SYMBOL "2,154") + (* ; "lambda") + ("46,157" SYMBOL "2,155") + (* ; "mu") + ("46,160" SYMBOL "2,156") + (* ; "nu") + ("46,161" SYMBOL "2,170") + (* ; "xi") + ("46,162" SYMBOL "2,157") + (* ; "omicron") + ("46,163" SYMBOL "2,160") + (* ; "pi") + ("46,164" SYMBOL 0) + (* ; "(koppa)") + ("46,165" SYMBOL "2,162") + (* ; "rho") + ("46,166" SYMBOL "2,163") + (* ; "sigma") + ("46,167" SYMBOL "2,126") + (* ; "(fl sigma)") + ("46,170" SYMBOL "2,164") + (* ; "tau") + ("46,171" SYMBOL "2.165") + (* ; "upsilon") + ("46,172" SYMBOL "2,146") + (* ; "phi") + ("46,173" SYMBOL "2,143") + (* ; "chi") + ("46,174" SYMBOL "2,171") + (* ; "psi") + ("46,175" SYMBOL "2,167") + (* ; "omega") + + (* ;; "NS Miscellaneous symbols") + + ("041,142" SYMBOL "2,271") + (* ; "notequal") + ("041,145" SYMBOL "2,243") + (* ; "lessequal") + ("041,146" SYMBOL "2,263") + (* ; "greaterequal") + ("041,147" SYMBOL "2,245") + (* ; "infinity") + ("041,150" SYMBOL "2,134") + (* ; "therefore") + ("041,155" SYMBOL "2,262") + (* ; "second") + ("356,055" SYMBOL "2,055") + (* ; "minus") + ("356,106" SYMBOL "2,340") + (* ; "lozenge") + ("356,163" SYMBOL "2,351") + (* ; "topleftbracket") + ("356,164" SYMBOL "2,353") + (* ; "bottomleftbracket") + ("356,165" SYMBOL "2,352") + (* ; "centerbracket") + ("356,166" SYMBOL "2,371") + (* ; "toprightbracket") + ("356,167" SYMBOL "2,373") + (* ; "bottomrightbracket") + ("356,176" SYMBOL "2,176") + (* ; "similar") + ("356,314" SYMBOL "2,251") + (* ; "heart") + ("356,340" SYMBOL "2,374") + (* ; "toprightbracce") + ("356,341" SYMBOL "2,357") + (* ; "braceextend") + ("356,342" SYMBOL "2,375") + (* ; "centerrightbracce") + ("356,343" SYMBOL "2,376") + (* ; "bottomrightbracce") + ("356,344" SYMBOL "2,354") + (* ; "topleftbracce") + ("356,345" SYMBOL "2,356") + (* ; "bottomleftbracce") + ("356,346" SYMBOL "2,355") + (* ; "centerleftbracce") + ("356,355" SYMBOL "2,363") + (* ; "integraltop") + ("356,356" SYMBOL "2,365") + (* ; "integralbottom") + ("356,357" SYMBOL "2,364") + (* ; "integralcenter"))) (DECLARE%: DOEVAL@COMPILE DONTCOPY (GLOBALVARS *POSTSCRIPT-NS-HASH*) @@ -4016,46 +4061,48 @@ Copyright (c) 1989, 1990, 1991, 1992, 1993, 1994, 1995, 1997, 1998, 2018 by Venu (DECLARE%: EVAL@COMPILE DONTCOPY (DECLARE%: EVAL@COMPILE -(PUTPROPS \POSTSCRIPT.FRACTION MACRO ((STREAM STRING) +(PUTPROPS \POSTSCRIPT.FRACTION MACRO ((STREAM STRING) - (* ;; "Handle printing of a fraction, given a string that's the name of the PS function (defined in \POSTSCRIPT.JOB.SETUP) that prints it. You must put spaces around the name.") + (* ;; "Handle printing of a fraction, given a string that's the name of the PS function (defined in \POSTSCRIPT.JOB.SETUP) that prints it. You must put spaces around the name.") - (POSTSCRIPT.SHOWACCUM STREAM) - [COND - ((IGREATERP (SETQ NEWXPOS (IPLUS XPOS CHARWID)) - (ffetch POSTSCRIPTRIGHTMARGIN of IMAGEDATA)) - (\TERPRI.PSC STREAM) - (SETQ NEWXPOS (IPLUS (ffetch POSTSCRIPTX of - IMAGEDATA - ) - CHARWID] - [COND - ((NOT (ffetch POSTSCRIPTCHARSTOSHOW of IMAGEDATA)) - (COND - ((ffetch POSTSCRIPTPENDINGXFORM of IMAGEDATA) - (\SETXFORM.PSC STREAM IMAGEDATA))) - (COND - ((ffetch POSTSCRIPTFONTCHANGEDFLG of IMAGEDATA) - (* ; - "If font was changed then switch before printing") - (\SWITCHFONTS.PSC STREAM IMAGEDATA))) - (COND - ((ffetch POSTSCRIPTMOVEFLG of IMAGEDATA) - (* ; "likewise for position") - (\SETPOS.PSC STREAM IMAGEDATA] - (POSTSCRIPT.OUTSTR STREAM STRING))) + (POSTSCRIPT.SHOWACCUM STREAM) + [COND + ((IGREATERP (SETQ NEWXPOS (IPLUS XPOS CHARWID)) + (ffetch POSTSCRIPTRIGHTMARGIN + of IMAGEDATA)) + (\TERPRI.PSC STREAM) + (SETQ NEWXPOS (IPLUS (ffetch POSTSCRIPTX + of IMAGEDATA) + CHARWID] + [COND + ((NOT (ffetch POSTSCRIPTCHARSTOSHOW of + IMAGEDATA)) + (COND + ((ffetch POSTSCRIPTPENDINGXFORM of + IMAGEDATA) + (\SETXFORM.PSC STREAM IMAGEDATA))) + (COND + ((ffetch POSTSCRIPTFONTCHANGEDFLG + of IMAGEDATA) + (* ; + "If font was changed then switch before printing") + (\SWITCHFONTS.PSC STREAM IMAGEDATA))) + (COND + ((ffetch POSTSCRIPTMOVEFLG of IMAGEDATA) + (* ; "likewise for position") + (\SETPOS.PSC STREAM IMAGEDATA] + (POSTSCRIPT.OUTSTR STREAM STRING))) ) ) -(RPAQ \POSTSCRIPT.ORIENTATION.MENU (create MENU ITEMS _ '(("Landscape" T - "Print this file/document/image in Landscape Orientation" - ) - ("Portrait" 'NIL - "Print this file/document/image in Portrait Orientation" - )) - TITLE _ "Orientation" CENTERFLG _ T MENUOFFSET _ - (create POSITION XCOORD _ -1 YCOORD _ 0) - CHANGEOFFSETFLG _ 'Y)) +(RPAQ \POSTSCRIPT.ORIENTATION.MENU + (create MENU ITEMS _ '(("Landscape" T "Print this file/document/image in Landscape Orientation" + ) + ("Portrait" 'NIL + "Print this file/document/image in Portrait Orientation")) + TITLE _ "Orientation" CENTERFLG _ T MENUOFFSET _ + (create POSITION XCOORD _ -1 YCOORD _ 0) + CHANGEOFFSETFLG _ 'Y)) (RPAQ \POSTSCRIPT.ORIENTATION.OPTIONS.MENU (create MENU ITEMS _ '(("Ask" 'ASK "Always ask whether to print in Landscape or Portrait Orientation" @@ -4072,7 +4119,7 @@ Copyright (c) 1989, 1990, 1991, 1992, 1993, 1994, 1995, 1997, 1998, 2018 by Venu 66 67 68 69 70 NIL)))) -(RPAQQ \POSTSCRIPT.JOB.SETUP +(RPAQQ \POSTSCRIPT.JOB.SETUP ("/bdef {bind def} bind def" "/ldef {load def} bdef" "/S /show ldef" "/M /moveto ldef" "/DR {transform round exch round exch itransform} bdef" "/L {gsave newpath setlinewidth 0 setlinecap" @@ -4194,23 +4241,17 @@ Copyright (c) 1989, 1990, 1991, 1992, 1993, 1994, 1995, 1997, 1998, 2018 by Venu (Medium 'MEDIUM "This is a Medium Weight font") (Light 'LIGHT "This is a Light Weight font"))) -(ADDTOVAR BackgroundMenuCommands ("PS Orientation" '(SETQ POSTSCRIPT.PREFER.LANDSCAPE - (MENU +(ADDTOVAR BackgroundMenuCommands + ("PS Orientation" '(SETQ POSTSCRIPT.PREFER.LANDSCAPE (MENU \POSTSCRIPT.ORIENTATION.OPTIONS.MENU - )) - "Select the default Orientation for PostScript output" - (SUBITEMS ("Ask" '(SETQ POSTSCRIPT.PREFER.LANDSCAPE - 'ASK) - - "Always ask whether to print in Landscape or Portrait Orientation" - ) - ("Landscape" '(SETQ POSTSCRIPT.PREFER.LANDSCAPE T) - "Default printing to Landscape Orientation" - ) - ("Portrait" '(SETQ POSTSCRIPT.PREFER.LANDSCAPE NIL - ) - "Default printing to Portrait Orientation") - ))) + )) + "Select the default Orientation for PostScript output" + (SUBITEMS ("Ask" '(SETQ POSTSCRIPT.PREFER.LANDSCAPE 'ASK) + "Always ask whether to print in Landscape or Portrait Orientation") + ("Landscape" '(SETQ POSTSCRIPT.PREFER.LANDSCAPE T) + "Default printing to Landscape Orientation") + ("Portrait" '(SETQ POSTSCRIPT.PREFER.LANDSCAPE NIL) + "Default printing to Portrait Orientation")))) (RPAQQ BackgroundMenu NIL) (DECLARE%: EVAL@COMPILE @@ -4330,9 +4371,9 @@ Copyright (c) 1989, 1990, 1991, 1992, 1993, 1994, 1995, 1997, 1998, 2018 by Venu (POSTSCRIPT.INIT) ) -(PUTPROPS POSTSCRIPTSTREAM FILETYPE :TCOMPL) +(PUTPROPS POSTSCRIPTSTREAM FILETYPE :TCOMPL) -(PUTPROPS POSTSCRIPTSTREAM MAKEFILE-ENVIRONMENT (:PACKAGE "INTERLISP" :READTABLE "INTERLISP")) +(PUTPROPS POSTSCRIPTSTREAM MAKEFILE-ENVIRONMENT (:PACKAGE "INTERLISP" :READTABLE "INTERLISP")) (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDTOVAR NLAMA ) @@ -4343,40 +4384,40 @@ Copyright (c) 1989, 1990, 1991, 1992, 1993, 1994, 1995, 1997, 1998, 2018 by Venu ) (PUTPROPS POSTSCRIPTSTREAM COPYRIGHT ( "Venue This program or documentation contains confidential information and trade secrets of Venue. Reverse engineering, reverse compiling and disassembling of object code are prohibited. Use of this program or documentation is governed by written agreement with Venue. Use of copyright notice is precautionary and does not imply publication or disclosure of trade secrets" - 1989 1990 1991 1992 1993 1994 1995 1997 1998 2018)) + 1989 1990 1991 1992 1993 1994 1995 1997 1998 2018 2021)) (DECLARE%: DONTCOPY - (FILEMAP (NIL (22715 29819 (POSTSCRIPT.INIT 22725 . 29817)) (30863 65647 (PSCFONT.READFONT 30873 . -32781) (PSCFONT.SPELLFILE 32783 . 33361) (PSCFONT.COERCEFILE 33363 . 34935) ( -PSCFONTFROMCACHE.SPELLFILE 34937 . 35922) (PSCFONTFROMCACHE.COERCEFILE 35924 . 37576) ( -PSCFONT.WRITEFONT 37578 . 38593) (READ-AFM-FILE 38595 . 44466) (CONVERT-AFM-FILES 44468 . 45680) ( -POSTSCRIPT.GETFONTID 45682 . 47077) (POSTSCRIPT.FONTCREATE 47079 . 59478) ( -\POSTSCRIPT.SPECIALFONT.SCALEDWIDTHS 59480 . 61877) (POSTSCRIPT.FONTSAVAILABLE 61879 . 65645)) (66148 -74313 (OPENPOSTSCRIPTSTREAM 66158 . 73979) (CLOSEPOSTSCRIPTSTREAM 73981 . 74311)) (74358 80179 ( -POSTSCRIPT.HARDCOPYW 74368 . 77717) (POSTSCRIPT.TEDIT 77719 . 78199) (POSTSCRIPT.TEXT 78201 . 78492) ( -POSTSCRIPTFILEP 78494 . 79130) (MAKEEPSFILE 79132 . 80177)) (80180 124442 (POSTSCRIPT.BITMAPSCALE -80190 . 82646) (POSTSCRIPT.CLOSESTRING 82648 . 83182) (POSTSCRIPT.ENDPAGE 83184 . 84055) ( -POSTSCRIPT.OUTSTR 84057 . 85078) (POSTSCRIPT.PUTBITMAPBYTES 85080 . 93756) (POSTSCRIPT.PUTCOMMAND -93758 . 94882) (POSTSCRIPT.SET-FAKE-LANDSCAPE 94884 . 100332) (POSTSCRIPT.SHOWACCUM 100334 . 102592) ( -POSTSCRIPT.STARTPAGE 102594 . 104249) (\POSTSCRIPTTAB 104251 . 105122) (\PS.BOUTFIXP 105124 . 106474) -(\PS.SCALEHACK 106476 . 109305) (\PS.SCALEREGION 109307 . 109867) (\SCALEDBITBLT.PSC 109869 . 114169) -(\SETPOS.PSC 114171 . 114633) (\SETXFORM.PSC 114635 . 116454) (\STRINGWIDTH.PSC 116456 . 116910) ( -\SWITCHFONTS.PSC 116912 . 123069) (\TERPRI.PSC 123071 . 124440)) (124477 180197 (\BITBLT.PSC 124487 . -125040) (\BLTSHADE.PSC 125042 . 129324) (\CHARWIDTH.PSC 129326 . 130093) (\CREATECHARSET.PSC 130095 . -131793) (\DRAWARC.PSC 131795 . 134275) (\DRAWCIRCLE.PSC 134277 . 136686) (\DRAWCURVE.PSC 136688 . -140709) (\DRAWELLIPSE.PSC 140711 . 143188) (\DRAWLINE.PSC 143190 . 145540) (\DRAWPOINT.PSC 145542 . -146130) (\DRAWPOLYGON.PSC 146132 . 149246) (\DSPBOTTOMMARGIN.PSC 149248 . 149813) ( -\DSPCLIPPINGREGION.PSC 149815 . 151258) (\DSPCOLOR.PSC 151260 . 152101) (\DSPFONT.PSC 152103 . 156313) - (\DSPLEFTMARGIN.PSC 156315 . 156884) (\DSPLINEFEED.PSC 156886 . 157462) (\DSPPUSHSTATE.PSC 157464 . -159227) (\DSPPOPSTATE.PSC 159229 . 161738) (\DSPRESET.PSC 161740 . 162386) (\DSPRIGHTMARGIN.PSC 162388 - . 162960) (\DSPROTATE.PSC 162962 . 163985) (\DSPSCALE.PSC 163987 . 164918) (\DSPSCALE2.PSC 164920 . -165739) (\DSPSPACEFACTOR.PSC 165741 . 166713) (\DSPTOPMARGIN.PSC 166715 . 167432) (\DSPTRANSLATE.PSC -167434 . 170008) (\DSPXPOSITION.PSC 170010 . 170609) (\DSPYPOSITION.PSC 170611 . 171183) ( -\FILLCIRCLE.PSC 171185 . 173831) (\FILLPOLYGON.PSC 173833 . 177749) (\FIXLINELENGTH.PSC 177751 . -179245) (\MOVETO.PSC 179247 . 179998) (\NEWPAGE.PSC 180000 . 180195)) (180253 203405 ( -\POSTSCRIPT.CHANGECHARSET 180263 . 181067) (\POSTSCRIPT.OUTCHARFN 181069 . 193926) ( -\POSTSCRIPT.PRINTSLUG 193928 . 195895) (\POSTSCRIPT.SPECIALOUTCHARFN 195897 . 198329) (\UPDATE.PSC -198331 . 199554) (\POSTSCRIPT.ACCENTFN 199556 . 200498) (\POSTSCRIPT.ACCENTPAIR 200500 . 203403)) ( -203503 205148 (\PSC.SPACEDISP 203513 . 203792) (\PSC.SPACEWID 203794 . 204413) (\PSC.SYMBOLS 204415 . -205146)) (205257 208248 (\POSTSCRIPT.NSHASH 205267 . 208246)) (263291 264005 (POSTSCRIPTSEND 263301 . -264003))))) + (FILEMAP (NIL (22629 29733 (POSTSCRIPT.INIT 22639 . 29731)) (30777 65561 (PSCFONT.READFONT 30787 . +32695) (PSCFONT.SPELLFILE 32697 . 33275) (PSCFONT.COERCEFILE 33277 . 34849) ( +PSCFONTFROMCACHE.SPELLFILE 34851 . 35836) (PSCFONTFROMCACHE.COERCEFILE 35838 . 37490) ( +PSCFONT.WRITEFONT 37492 . 38507) (READ-AFM-FILE 38509 . 44380) (CONVERT-AFM-FILES 44382 . 45594) ( +POSTSCRIPT.GETFONTID 45596 . 46991) (POSTSCRIPT.FONTCREATE 46993 . 59392) ( +\POSTSCRIPT.SPECIALFONT.SCALEDWIDTHS 59394 . 61791) (POSTSCRIPT.FONTSAVAILABLE 61793 . 65559)) (66110 +75256 (OPENPOSTSCRIPTSTREAM 66120 . 74922) (CLOSEPOSTSCRIPTSTREAM 74924 . 75254)) (75301 81122 ( +POSTSCRIPT.HARDCOPYW 75311 . 78660) (POSTSCRIPT.TEDIT 78662 . 79142) (POSTSCRIPT.TEXT 79144 . 79435) ( +POSTSCRIPTFILEP 79437 . 80073) (MAKEEPSFILE 80075 . 81120)) (81123 126009 (POSTSCRIPT.BITMAPSCALE +81133 . 83589) (POSTSCRIPT.CLOSESTRING 83591 . 84125) (POSTSCRIPT.ENDPAGE 84127 . 84998) ( +POSTSCRIPT.OUTSTR 85000 . 86021) (POSTSCRIPT.PUTBITMAPBYTES 86023 . 94494) (POSTSCRIPT.PUTCOMMAND +94496 . 95545) (POSTSCRIPT.SET-FAKE-LANDSCAPE 95547 . 100995) (POSTSCRIPT.SHOWACCUM 100997 . 103235) ( +POSTSCRIPT.STARTPAGE 103237 . 105816) (\POSTSCRIPTTAB 105818 . 106689) (\PS.BOUTFIXP 106691 . 108041) +(\PS.SCALEHACK 108043 . 110872) (\PS.SCALEREGION 110874 . 111434) (\SCALEDBITBLT.PSC 111436 . 115736) +(\SETPOS.PSC 115738 . 116200) (\SETXFORM.PSC 116202 . 118021) (\STRINGWIDTH.PSC 118023 . 118477) ( +\SWITCHFONTS.PSC 118479 . 124636) (\TERPRI.PSC 124638 . 126007)) (126044 181764 (\BITBLT.PSC 126054 . +126607) (\BLTSHADE.PSC 126609 . 130891) (\CHARWIDTH.PSC 130893 . 131660) (\CREATECHARSET.PSC 131662 . +133360) (\DRAWARC.PSC 133362 . 135842) (\DRAWCIRCLE.PSC 135844 . 138253) (\DRAWCURVE.PSC 138255 . +142276) (\DRAWELLIPSE.PSC 142278 . 144755) (\DRAWLINE.PSC 144757 . 147107) (\DRAWPOINT.PSC 147109 . +147697) (\DRAWPOLYGON.PSC 147699 . 150813) (\DSPBOTTOMMARGIN.PSC 150815 . 151380) ( +\DSPCLIPPINGREGION.PSC 151382 . 152825) (\DSPCOLOR.PSC 152827 . 153668) (\DSPFONT.PSC 153670 . 157880) + (\DSPLEFTMARGIN.PSC 157882 . 158451) (\DSPLINEFEED.PSC 158453 . 159029) (\DSPPUSHSTATE.PSC 159031 . +160794) (\DSPPOPSTATE.PSC 160796 . 163305) (\DSPRESET.PSC 163307 . 163953) (\DSPRIGHTMARGIN.PSC 163955 + . 164527) (\DSPROTATE.PSC 164529 . 165552) (\DSPSCALE.PSC 165554 . 166485) (\DSPSCALE2.PSC 166487 . +167306) (\DSPSPACEFACTOR.PSC 167308 . 168280) (\DSPTOPMARGIN.PSC 168282 . 168999) (\DSPTRANSLATE.PSC +169001 . 171575) (\DSPXPOSITION.PSC 171577 . 172176) (\DSPYPOSITION.PSC 172178 . 172750) ( +\FILLCIRCLE.PSC 172752 . 175398) (\FILLPOLYGON.PSC 175400 . 179316) (\FIXLINELENGTH.PSC 179318 . +180812) (\MOVETO.PSC 180814 . 181565) (\NEWPAGE.PSC 181567 . 181762)) (181820 204972 ( +\POSTSCRIPT.CHANGECHARSET 181830 . 182634) (\POSTSCRIPT.OUTCHARFN 182636 . 195493) ( +\POSTSCRIPT.PRINTSLUG 195495 . 197462) (\POSTSCRIPT.SPECIALOUTCHARFN 197464 . 199896) (\UPDATE.PSC +199898 . 201121) (\POSTSCRIPT.ACCENTFN 201123 . 202065) (\POSTSCRIPT.ACCENTPAIR 202067 . 204970)) ( +205070 206715 (\PSC.SPACEDISP 205080 . 205359) (\PSC.SPACEWID 205361 . 205980) (\PSC.SYMBOLS 205982 . +206713)) (206824 209815 (\POSTSCRIPT.NSHASH 206834 . 209813)) (254855 255569 (POSTSCRIPTSEND 254865 . +255567))))) STOP diff --git a/library/POSTSCRIPTSTREAM.LCOM b/library/POSTSCRIPTSTREAM.LCOM index 572cfba1b..f41c947a4 100644 Binary files a/library/POSTSCRIPTSTREAM.LCOM and b/library/POSTSCRIPTSTREAM.LCOM differ diff --git a/library/RDSYS b/library/RDSYS index 1bdd51f32..2f3e6762d 100644 --- a/library/RDSYS +++ b/library/RDSYS @@ -1,15 +1,15 @@ -(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP") -(FILECREATED "29-Apr-2021 09:48:22" {DSK}kaplan>Local>medley3.5>git-medley>tmp>RDSYS.;19 +(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "XCL" BASE 10 FORMAT XCCS) +(FILECREATED " 9-Jul-2021 22:28:20" |{DSK}kaplan>Local>medley3.5>git-medley>tmp>RDSYS.;6| ) (PRETTYCOMPRINT RDSYSCOMS) -(RPAQQ RDSYSCOMS ((FNS VREADPAGEMAP VREADPAGEMAPBLOCK VCHECKIFPAGE V\LOCKEDPAGEP V\LOOKUPPAGEMAP VCHECKPAGEMAP VCHECKFPTOVP VCHECKFPTOVP1 V\SHOWPAGETABLE V\PRINTFPTOVP) (FNS VRAIDCOMMAND VRAIDSHOWFRAME VRAIDSTACKCMD VRAIDROOTFRAME VPRINTADDRS VPRINTVA VREADVA VREADOCT VREADATOM VSHOWSTACKBLOCKS VSHOWSTACKBLOCK1 VPRINCOPY VNOSUCHATOM) (FNS V\BACKTRACE V\STKNAME V\PRINTBF V\PRINTFRAME V\SCANFORNTENTRY V\PRINTSTK) (FNS V\CHECKARRAYBLOCK V\PARSEARRAYSPACE V\PARSEARRAYSPACE1) (FNS VPRINTCODE VPRINTCODENT VBROKENDEF) (FNS V\CAR.UFN V\CDR.UFN) (FNS V\COPY V\UNCOPY) (FNS V\GETBASEBYTE V\PUTBASEBYTE) (FNS VNTYPX VTYPENAME V\TYPENAMEFROMNUMBER) (FNS VUNCOPYATOM VMAKE.LOCAL.ATOM VSYMBOL.VALUE VSYMBOL.PNAME VSYMBOL.PACKAGE VOLD.FIND.SYMBOL VLOOKUP-SYMBOL VFIND.PACKAGE VFIND.SYMBOL VPACKAGE.NAME V\MKATOM VGETTOPVAL VGETPROPLIST VSETTOPVAL VGETDEFN V\ATOMCELL) (FNS VLISTP) (VARS (COPYATOMSTR)) (FNS V\GET-COMPILED-CODE-BASE) (* ;; "YOU MUST REMAKE THIS FILE using (DORENAME 'R) (after CONNing to library) whenever the SYSOUT layout changes in LLPARAMS (e.g., if MDSTypeTable moves)") (FILES VMEM) (VARS RDVALS RDPTRS) (DECLARE%: EVAL@COMPILE DONTCOPY (FILES (LOADCOMP) VMEM)))) +(RPAQQ RDSYSCOMS ((FNS VREADPAGEMAP VREADPAGEMAPBLOCK VCHECKIFPAGE V\\LOCKEDPAGEP V\\LOOKUPPAGEMAP VCHECKPAGEMAP VCHECKFPTOVP VCHECKFPTOVP1 V\\SHOWPAGETABLE V\\PRINTFPTOVP) (FNS VRAIDCOMMAND VRAIDSHOWFRAME VRAIDSTACKCMD VRAIDROOTFRAME VPRINTADDRS VPRINTVA VREADVA VREADOCT VREADATOM VSHOWSTACKBLOCKS VSHOWSTACKBLOCK1 VPRINCOPY VNOSUCHATOM) (FNS V\\BACKTRACE V\\STKNAME V\\PRINTBF V\\PRINTFRAME V\\SCANFORNTENTRY V\\PRINTSTK) (FNS V\\CHECKARRAYBLOCK V\\PARSEARRAYSPACE V\\PARSEARRAYSPACE1) (FNS VPRINTCODE VPRINTCODENT VBROKENDEF) (FNS V\\CAR.UFN V\\CDR.UFN) (FNS V\\COPY V\\UNCOPY) (FNS V\\GETBASEBYTE V\\PUTBASEBYTE) (FNS VNTYPX VTYPENAME V\\TYPENAMEFROMNUMBER) (FNS VUNCOPYATOM VMAKE.LOCAL.ATOM VSYMBOL.VALUE VSYMBOL.PNAME VSYMBOL.PACKAGE VOLD.FIND.SYMBOL VLOOKUP-SYMBOL VFIND.PACKAGE VFIND.SYMBOL VPACKAGE.NAME V\\MKATOM VGETTOPVAL VGETPROPLIST VSETTOPVAL VGETDEFN V\\ATOMCELL) (FNS VLISTP) (VARS (COPYATOMSTR)) (FNS V\\GET-COMPILED-CODE-BASE) (* |;;| "YOU MUST REMAKE THIS FILE using (DORENAME 'R) (after CONNing to library) whenever the SYSOUT layout changes in LLPARAMS (e.g., if MDSTypeTable moves)") (FILES VMEM) (VARS RDVALS RDPTRS) (DECLARE\: EVAL@COMPILE DONTCOPY (FILES (LOADCOMP) VMEM)))) (DEFINEQ (VREADPAGEMAP -(LAMBDA NIL (*) (*) (PROG (D) (MAPVMPAGE (IPLUS (LLSH (VHILOC (VVAG2 20 0)) 8) (LRSH (VLOLOC (VVAG2 20 0)) 8)) 1) (*) (*) (MAPVMPAGE (IPLUS (LLSH (VHILOC (VVAG2 5 0)) 8) (LRSH (VLOLOC (VVAG2 5 0)) 8)) (SUB1 (VGETBASE (VVAG2 20 0) 22))) (*) (SETVMPTR (VVAG2 5 0)) (for I from 0 to (SUB1 (LRSH (IPLUS 256 31) 5)) as VP from (IPLUS (LLSH (VHILOC (VVAG2 5 0)) 8) (LRSH (VLOLOC (VVAG2 5 0)) 8)) by 32 do (*) (VREADPAGEMAPBLOCK VP)) (for J from 0 to (SUB1 8) as FP from (SUB1 (VGETBASE (VVAG2 20 0) 23)) do (*) (MAPVMPAGE (IPLUS (IPLUS (LLSH (VHILOC (VVAG2 20 512)) 8) (LRSH (VLOLOC (VVAG2 20 512)) 8)) J) FP)) (for I from 0 to (SUB1 (LLSH 8 8)) do (COND ((IEQ (SETQ D (VGETBASE (VVAG2 20 512) I)) 65535)) (T (SETVMPTR (VADDBASE (VVAG2 5 0) D)) (VREADPAGEMAPBLOCK (LLSH I 5))))))) +(LAMBDA NIL (*) (*) (PROG (D) (MAPVMPAGE (IPLUS (LLSH (VHILOC (VVAG2 20 0)) 8) (LRSH (VLOLOC (VVAG2 20 0)) 8)) 1) (*) (*) (MAPVMPAGE (IPLUS (LLSH (VHILOC (VVAG2 5 0)) 8) (LRSH (VLOLOC (VVAG2 5 0)) 8)) (SUB1 (VGETBASE (VVAG2 20 0) 22))) (*) (SETVMPTR (VVAG2 5 0)) (|for| I |from| 0 |to| (SUB1 (LRSH (IPLUS 256 31) 5)) |as| VP |from| (IPLUS (LLSH (VHILOC (VVAG2 5 0)) 8) (LRSH (VLOLOC (VVAG2 5 0)) 8)) |by| 32 |do| (*) (VREADPAGEMAPBLOCK VP)) (|for| J |from| 0 |to| (SUB1 8) |as| FP |from| (SUB1 (VGETBASE (VVAG2 20 0) 23)) |do| (*) (MAPVMPAGE (IPLUS (IPLUS (LLSH (VHILOC (VVAG2 20 512)) 8) (LRSH (VLOLOC (VVAG2 20 512)) 8)) J) FP)) (|for| I |from| 0 |to| (SUB1 (LLSH 8 8)) |do| (COND ((IEQ (SETQ D (VGETBASE (VVAG2 20 512) I)) 65535)) (T (SETVMPTR (VADDBASE (VVAG2 5 0) D)) (VREADPAGEMAPBLOCK (LLSH I 5))))))) ) (VREADPAGEMAPBLOCK @@ -17,54 +17,54 @@ ) (VCHECKIFPAGE -(LAMBDA NIL (*) (COND ((NOT (EQUAL 5603 (VGETBASE (VVAG2 20 0) 15))) (printout T "Warning: " "Interface page key" "= " (PROGN 5603) ", but \InterfacePage says " (VGETBASE (VVAG2 20 0) 15) T)))) +(LAMBDA NIL (*) (COND ((NOT (EQUAL 5603 (VGETBASE (VVAG2 20 0) 15))) (|printout| T "Warning: " "Interface page key" "= " (PROGN 5603) ", but \\InterfacePage says " (VGETBASE (VVAG2 20 0) 15) T)))) ) -(V\LOCKEDPAGEP +(V\\LOCKEDPAGEP (LAMBDA (VP TEMP) (*) (*) (OR (NEQ 0 (LOGAND (LLSH 1 (IMOD VP 16)) (VGETBASE (VADDBASE (VVAG2 20 28672) (LRSH VP 4)) 0))) NIL)) ) -(V\LOOKUPPAGEMAP +(V\\LOOKUPPAGEMAP (LAMBDA (VP) (*) (*) (LET ((PRIMENTRY (VGETBASE (VVAG2 20 512) (LRSH VP 5)))) (COND ((EQ PRIMENTRY 65535) 0) (T (VGETBASE (VVAG2 5 0) (IPLUS PRIMENTRY (LOGAND VP 31))))))) ) (VCHECKPAGEMAP -(LAMBDA NIL (*) (LET ((*PRINT-BASE* 8) (NUMOCCUPIED 0) (NUMLOCKED 0) (CHAINOCCUPIED 0) (CHAINLOCKED 0) RPTR FPBASE FP VP RP) (VCHECKFPTOVP) (for RPTINDEX from 1 to (SUB1 VRPTSIZE) when (ILESSP (VGETBASE (PROGN (SETQ RPTR (VADDBASE (VADDBASE VREALPAGETABLE (LLSH RPTINDEX 1)) RPTINDEX))) 1) 65534) do (SETQ NUMOCCUPIED (PLUS NUMOCCUPIED 1)) (SETQ VP (VGETBASE RPTR 1)) (SETQ FP (VGETBASE RPTR 2)) (COND ((VCHECKFPTOVP1 FP VP RPTINDEX)) ((NEQ VP (\GETBASEFIXP (SETQ FPBASE (VADDBASE (VVAG2 2 0) FP)) 0)) (printout T "RPT for RP " (RPFROMRPT RPTINDEX) " says VP ") (\PRINTVP VP T) (printout T " lives in FP " FP "; but FP Map says that FP contains ") (\PRINTVP (\GETBASEFIXP FPBASE 0) T) (printout T T)) ((V\LOCKEDPAGEP VP) (SETQ NUMLOCKED (PLUS NUMLOCKED 1)) (COND ((NOT (NEQ 0 (LRSH (VGETBASE RPTR 0) 15))) (printout T "VP " VP ", living in RP " (RPFROMRPT RPTINDEX) " should be locked but isn't." T)) ((IGREATERP FP (DLRPFROMFP (VGETBASE (VVAG2 20 0) 57))) (printout T "VP " VP " is locked, but living in FP " FP ", which is not in the locked page area" T)))))) (PROGN (SETQ RPTR VREALPAGETABLE) (*) (while (NEQ (SETQ RP (LOGAND (VGETBASE RPTR 0) 32767)) 0) when (ILESSP (VGETBASE (PROGN (SETQ RPTR (VADDBASE (VADDBASE VREALPAGETABLE (LLSH RP 1)) RP))) 1) 65534) do (SETQ CHAINOCCUPIED (PLUS CHAINOCCUPIED 1)) (COND ((NEQ 0 (LRSH (VGETBASE RPTR 0) 15)) (SETQ CHAINLOCKED (PLUS CHAINLOCKED 1))))) (COND ((ILESSP CHAINOCCUPIED NUMOCCUPIED) (printout T NUMOCCUPIED " occupied pages, but only " CHAINOCCUPIED " are on page chain. " NUMLOCKED " pages are permanently locked; " CHAINLOCKED " pages on chain are locked somehow." T)))))) +(LAMBDA NIL (*) (LET ((*PRINT-BASE* 8) (NUMOCCUPIED 0) (NUMLOCKED 0) (CHAINOCCUPIED 0) (CHAINLOCKED 0) RPTR FPBASE FP VP RP) (VCHECKFPTOVP) (|for| RPTINDEX |from| 1 |to| (SUB1 VRPTSIZE) |when| (ILESSP (VGETBASE (PROGN (SETQ RPTR (VADDBASE (VADDBASE VREALPAGETABLE (LLSH RPTINDEX 1)) RPTINDEX))) 1) 65534) |do| (SETQ NUMOCCUPIED (PLUS NUMOCCUPIED 1)) (SETQ VP (VGETBASE RPTR 1)) (SETQ FP (VGETBASE RPTR 2)) (COND ((VCHECKFPTOVP1 FP VP RPTINDEX)) ((NEQ VP (\\GETBASEFIXP (SETQ FPBASE (VADDBASE (VVAG2 2 0) FP)) 0)) (|printout| T "RPT for RP " (RPFROMRPT RPTINDEX) " says VP ") (\\PRINTVP VP T) (|printout| T " lives in FP " FP "; but FP Map says that FP contains ") (\\PRINTVP (\\GETBASEFIXP FPBASE 0) T) (|printout| T T)) ((V\\LOCKEDPAGEP VP) (SETQ NUMLOCKED (PLUS NUMLOCKED 1)) (COND ((NOT (NEQ 0 (LRSH (VGETBASE RPTR 0) 15))) (|printout| T "VP " VP ", living in RP " (RPFROMRPT RPTINDEX) " should be locked but isn't." T)) ((IGREATERP FP (DLRPFROMFP (VGETBASE (VVAG2 20 0) 57))) (|printout| T "VP " VP " is locked, but living in FP " FP ", which is not in the locked page area" T)))))) (PROGN (SETQ RPTR VREALPAGETABLE) (*) (|while| (NEQ (SETQ RP (LOGAND (VGETBASE RPTR 0) 32767)) 0) |when| (ILESSP (VGETBASE (PROGN (SETQ RPTR (VADDBASE (VADDBASE VREALPAGETABLE (LLSH RP 1)) RP))) 1) 65534) |do| (SETQ CHAINOCCUPIED (PLUS CHAINOCCUPIED 1)) (COND ((NEQ 0 (LRSH (VGETBASE RPTR 0) 15)) (SETQ CHAINLOCKED (PLUS CHAINLOCKED 1))))) (COND ((ILESSP CHAINOCCUPIED NUMOCCUPIED) (|printout| T NUMOCCUPIED " occupied pages, but only " CHAINOCCUPIED " are on page chain. " NUMLOCKED " pages are permanently locked; " CHAINLOCKED " pages on chain are locked somehow." T)))))) ) (VCHECKFPTOVP -(LAMBDA NIL (*) (for FP from 1 to (\GETBASEFIXP (VVAG2 20 0) 82) as (FPBASE _ (VADDBASE (VVAG2 2 0) 1)) by (VADDBASE FPBASE 1) when (NEQ (VGETBASE FPBASE 0) 65535) do (VCHECKFPTOVP1 FP (\GETBASEFIXP FPBASE 0)))) +(LAMBDA NIL (*) (|for| FP |from| 1 |to| (\\GETBASEFIXP (VVAG2 20 0) 82) |as| (FPBASE _ (VADDBASE (VVAG2 2 0) 1)) |by| (VADDBASE FPBASE 1) |when| (NEQ (VGETBASE FPBASE 0) 65535) |do| (VCHECKFPTOVP1 FP (\\GETBASEFIXP FPBASE 0)))) ) (VCHECKFPTOVP1 -(LAMBDA (FP VP RPTINDEX) (*) (PROG ((FP2 (V\LOOKUPPAGEMAP VP))) (RETURN (COND ((NEQ FP2 FP) (COND (NIL (printout T "RPT for RP " (RPFROMRPT RPTINDEX))) (T (printout T "FP map"))) (printout T " says FP " FP " contains VP ") (\PRINTVP VP T) (printout T "; but PageMap says that page is in FP " FP2 T) T))))) +(LAMBDA (FP VP RPTINDEX) (*) (PROG ((FP2 (V\\LOOKUPPAGEMAP VP))) (RETURN (COND ((NEQ FP2 FP) (COND (NIL (|printout| T "RPT for RP " (RPFROMRPT RPTINDEX))) (T (|printout| T "FP map"))) (|printout| T " says FP " FP " contains VP ") (\\PRINTVP VP T) (|printout| T "; but PageMap says that page is in FP " FP2 T) T))))) ) -(V\SHOWPAGETABLE -(LAMBDA (MODE FILE) (*) (PROG ((*PRINT-BASE* 8) (OUTSTREAM (GETSTREAM FILE (QUOTE OUTPUT))) (RPTR VREALPAGETABLE) (RP 0) FLAGS VP STATE FIRSTONE LASTONE) (printout OUTSTREAM " RP VP FilePage Status" T) (until (SELECTQ MODE (CHAIN (EQ (SETQ RP (LOGAND (VGETBASE RPTR 0) 32767)) 0)) (NIL (SETQ RP (PLUS RP 1)) (IGEQ RP VRPTSIZE)) (\ILLEGAL.ARG MODE)) do (SETQ RPTR (VADDBASE (VADDBASE VREALPAGETABLE (LLSH RP 1)) RP)) (SETQ VP (VGETBASE RPTR 1)) (COND ((AND (NULL MODE) (EQ VP STATE)) (SETQ LASTONE RP)) (T (COND (LASTONE (printout OUTSTREAM "ditto thru " LASTONE T) (SETQ LASTONE NIL))) (SETQ FIRSTONE RP) (SETQ STATE VP) (printout OUTSTREAM .I7.8 (RPFROMRPT RP)) (COND ((EQ (VGETBASE RPTR 1) 65534) (PRIN1 " Empty" OUTSTREAM)) ((NOT (ILESSP (VGETBASE RPTR 1) 65534)) (PRIN1 " Unavailable" OUTSTREAM)) (T (printout OUTSTREAM .I8.8 VP %,) (\PRINTVP VP OUTSTREAM) (printout OUTSTREAM 28 .I6.8 (VGETBASE RPTR 2) %,,) (COND ((NEQ 0 (LRSH (VGETBASE RPTR 0) 15)) (COND ((NOT (V\LOCKEDPAGEP VP)) (*) (PRIN1 "Temp" OUTSTREAM))) (PRIN1 "Locked " OUTSTREAM))) NIL)) (TERPRI OUTSTREAM)))))) +(V\\SHOWPAGETABLE +(LAMBDA (MODE FILE) (*) (PROG ((*PRINT-BASE* 8) (OUTSTREAM (GETSTREAM FILE (QUOTE OUTPUT))) (RPTR VREALPAGETABLE) (RP 0) FLAGS VP STATE FIRSTONE LASTONE) (|printout| OUTSTREAM " RP VP FilePage Status" T) (|until| (SELECTQ MODE (CHAIN (EQ (SETQ RP (LOGAND (VGETBASE RPTR 0) 32767)) 0)) (NIL (SETQ RP (PLUS RP 1)) (IGEQ RP VRPTSIZE)) (\\ILLEGAL.ARG MODE)) |do| (SETQ RPTR (VADDBASE (VADDBASE VREALPAGETABLE (LLSH RP 1)) RP)) (SETQ VP (VGETBASE RPTR 1)) (COND ((AND (NULL MODE) (EQ VP STATE)) (SETQ LASTONE RP)) (T (COND (LASTONE (|printout| OUTSTREAM "ditto thru " LASTONE T) (SETQ LASTONE NIL))) (SETQ FIRSTONE RP) (SETQ STATE VP) (|printout| OUTSTREAM .I7.8 (RPFROMRPT RP)) (COND ((EQ (VGETBASE RPTR 1) 65534) (PRIN1 " Empty" OUTSTREAM)) ((NOT (ILESSP (VGETBASE RPTR 1) 65534)) (PRIN1 " Unavailable" OUTSTREAM)) (T (|printout| OUTSTREAM .I8.8 VP \,) (\\PRINTVP VP OUTSTREAM) (|printout| OUTSTREAM 28 .I6.8 (VGETBASE RPTR 2) |,,|) (COND ((NEQ 0 (LRSH (VGETBASE RPTR 0) 15)) (COND ((NOT (V\\LOCKEDPAGEP VP)) (*) (PRIN1 "Temp" OUTSTREAM))) (PRIN1 "Locked " OUTSTREAM))) NIL)) (TERPRI OUTSTREAM)))))) ) -(V\PRINTFPTOVP -(LAMBDA (FIRSTPAGE NWORDS TYPEFLG STREAM VPRAWFLG) (*) (SETQ STREAM (GETSTREAM STREAM (QUOTE OUTPUT))) (OR FIRSTPAGE (SETQ FIRSTPAGE 1)) (OR NWORDS (SETQ NWORDS (\GETBASEFIXP (VVAG2 20 0) 82))) (LET ((BASE (VADDBASE (VVAG2 2 0) (SUB1 FIRSTPAGE))) (*PRINT-BASE* 8) (LASTVP -2) (NEXTFP (SUB1 FIRSTPAGE)) FIRSTFP FIRSTVP NEXTVP LOCKEDP TYPE NEXTLOCKED NEXTTYPE) (while (IGEQ NWORDS 0) do (SETQ NEXTFP (PLUS NEXTFP 1)) (COND ((EQ NWORDS 0) (SETQ NEXTVP -1)) ((NEQ (SETQ NEXTVP (VGETBASE (SETQ BASE (VADDBASE BASE 1)) 0)) 65535) (SETQ NEXTLOCKED (V\LOCKEDPAGEP NEXTVP)) (if TYPEFLG then (SETQ NEXTTYPE (VTYPENAME ((LAMBDA ($$1) (VVAG2 (LRSH (SETQ $$1 NEXTVP) 8) (LLSH (LOGAND $$1 255) 8))) NIL))) (if (NULL NEXTTYPE) then (SETQ NEXTTYPE (SELECTC (LRSH NEXTVP 8) ((LIST 8 (CL:1+ 8)) "Pnames") ((LIST 10 (CL:1+ 10)) "Definitions") ((LIST 12 (CL:1+ 12)) "Value cells") ((LIST 2 (CL:1+ 2)) "Property lists") ((VHILOC (VVAG2 2 0)) "\FPTOVP") (1 "Stack") ((VHILOC (VVAG2 22 0)) "GC Main table") ((VHILOC (VVAG2 23 0)) "GC Overflow table") NIL)))))) (COND ((COND ((EQ NEXTVP 65535) (NEQ LASTVP 65535)) (T (OR (NEQ NEXTVP (ADD1 LASTVP)) (NEQ NEXTLOCKED LOCKEDP) (NEQ TYPE NEXTTYPE)))) (COND ((IGEQ LASTVP 0) (COND (FIRSTFP (printout STREAM FIRSTFP "-"))) (printout STREAM (SUB1 NEXTFP) 12) (COND ((EQ LASTVP 65535) (printout STREAM "empty")) (T (COND (FIRSTFP (if VPRAWFLG then (PRIN1 FIRSTVP STREAM) else (\PRINTVP FIRSTVP STREAM)) (PRIN1 "-" STREAM))) (if VPRAWFLG then (PRIN1 LASTVP STREAM) else (\PRINTVP LASTVP STREAM)) (COND (LOCKEDP (PRIN1 (QUOTE *) STREAM))) (if TYPE then (printout STREAM 32 TYPE)))))) (SETQ FIRSTFP) (TERPRI STREAM) (SETQ FIRSTVP NEXTVP)) (T (*) (OR FIRSTFP (SETQ FIRSTFP (SUB1 NEXTFP))))) (SETQ LASTVP NEXTVP) (SETQ LOCKEDP NEXTLOCKED) (SETQ TYPE NEXTTYPE) (SETQ NWORDS (PLUS NWORDS -1))))) +(V\\PRINTFPTOVP +(LAMBDA (FIRSTPAGE NWORDS TYPEFLG STREAM VPRAWFLG) (*) (SETQ STREAM (GETSTREAM STREAM (QUOTE OUTPUT))) (OR FIRSTPAGE (SETQ FIRSTPAGE 1)) (OR NWORDS (SETQ NWORDS (\\GETBASEFIXP (VVAG2 20 0) 82))) (LET ((BASE (VADDBASE (VVAG2 2 0) (SUB1 FIRSTPAGE))) (*PRINT-BASE* 8) (LASTVP -2) (NEXTFP (SUB1 FIRSTPAGE)) FIRSTFP FIRSTVP NEXTVP LOCKEDP TYPE NEXTLOCKED NEXTTYPE) (|while| (IGEQ NWORDS 0) |do| (SETQ NEXTFP (PLUS NEXTFP 1)) (COND ((EQ NWORDS 0) (SETQ NEXTVP -1)) ((NEQ (SETQ NEXTVP (VGETBASE (SETQ BASE (VADDBASE BASE 1)) 0)) 65535) (SETQ NEXTLOCKED (V\\LOCKEDPAGEP NEXTVP)) (|if| TYPEFLG |then| (SETQ NEXTTYPE (VTYPENAME ((LAMBDA ($$1) (VVAG2 (LRSH (SETQ $$1 NEXTVP) 8) (LLSH (LOGAND $$1 255) 8))) NIL))) (|if| (NULL NEXTTYPE) |then| (SETQ NEXTTYPE (SELECTC (LRSH NEXTVP 8) ((LIST 8 (CL:1+ 8)) "Pnames") ((LIST 10 (CL:1+ 10)) "Definitions") ((LIST 12 (CL:1+ 12)) "Value cells") ((LIST 2 (CL:1+ 2)) "Property lists") ((VHILOC (VVAG2 2 0)) "\\FPTOVP") (1 "Stack") ((VHILOC (VVAG2 22 0)) "GC Main table") ((VHILOC (VVAG2 23 0)) "GC Overflow table") NIL)))))) (COND ((COND ((EQ NEXTVP 65535) (NEQ LASTVP 65535)) (T (OR (NEQ NEXTVP (ADD1 LASTVP)) (NEQ NEXTLOCKED LOCKEDP) (NEQ TYPE NEXTTYPE)))) (COND ((IGEQ LASTVP 0) (COND (FIRSTFP (|printout| STREAM FIRSTFP "-"))) (|printout| STREAM (SUB1 NEXTFP) 12) (COND ((EQ LASTVP 65535) (|printout| STREAM "empty")) (T (COND (FIRSTFP (|if| VPRAWFLG |then| (PRIN1 FIRSTVP STREAM) |else| (\\PRINTVP FIRSTVP STREAM)) (PRIN1 "-" STREAM))) (|if| VPRAWFLG |then| (PRIN1 LASTVP STREAM) |else| (\\PRINTVP LASTVP STREAM)) (COND (LOCKEDP (PRIN1 (QUOTE *) STREAM))) (|if| TYPE |then| (|printout| STREAM 32 TYPE)))))) (SETQ FIRSTFP) (TERPRI STREAM) (SETQ FIRSTVP NEXTVP)) (T (*) (OR FIRSTFP (SETQ FIRSTFP (SUB1 NEXTFP))))) (SETQ LASTVP NEXTVP) (SETQ LOCKEDP NEXTLOCKED) (SETQ TYPE NEXTTYPE) (SETQ NWORDS (PLUS NWORDS -1))))) ) ) (DEFINEQ (VRAIDCOMMAND -(LAMBDA NIL (*) (DECLARE (USEDFREE ROOTFRAME ALINKS? RAIDIX FRAME# VPRINTLEVEL)) (FRESHLINE T) (PROG (CMD) (SELECTQ (SETQ CMD (ASKUSER NIL NIL "@" (QUOTE ((Q "uit [confirm]" CONFIRMFLG T) (% "^N - remote return [confirm]" NOECHOFLG T CONFIRMFLG T RETURN (QUOTE ^N)) (L "isp stack ") (% "Lisp stack " NOECHOFLG T EXPLAINSTRING "^L -- Lisp stack from arbitrary frame or context" RETURN (QUOTE ^L)) (F "rame ") (% - "Next frame " EXPLAINSTRING "LF - next frame" RETURN (QUOTE LF)) (^ " Previous frame ") (A "tom top-level value of atom: ") (D "efinition for atom: ") (P "roperty list for atom: ") (V " -- show object at Virtual address: ") (B "lock of storage starting at address: ") (S "how raw stack from address: ") (C "ode for function:") (% "Basic frame at: " EXPLAINSTRING "^F - print basic frame at octal address" RETURN (QUOTE ^F)) (% "frame extension at: " EXPLAINSTRING "^X - print frame extension at octal address" RETURN (QUOTE ^X)) (W "alk stack blocks starting at: ") (K "" EXPLAINSTRING "K -- Set linKtype for stack ops") (_ " Set word at address: ") (% " Set value of atom " EXPLAINSTRING "^V -- Set value of atom" RETURN (QUOTE ^V)) (% "atom number for atom: " EXPLAINSTRING "^O - look up atom" RETURN (QUOTE ^O)) (Z "Zap Print level to: ") (I "nspect InterfacePage [confirm]" CONFIRMFLG T) (U " -- Show remote screen [confirm]" CONFIRMFLG T) (" -" "" RETURN NIL) (% " Enter Lisp " EXPLAINSTRING "^Y -- Enter Lisp" RETURN (QUOTE ^Y)))) T)) (^N (RETURN (QUOTE RETURN))) (Q (TERPRI T) (RETURN (QUOTE QUIT))) (NIL) (A (VPRINCOPY (VGETTOPVAL (VREADATOM)))) (P (VPRINCOPY (VGETPROPLIST (VREADATOM)))) (C (VPRINTCODE (VREADATOM) T RAIDIX)) (V (VPRINCOPY (VREADVA))) (B (VPRINTADDRS (VREADVA) (VREADOCT " for (number of words): "))) (S (VPRINTADDRS (VVAG2 1 (VREADOCT)) (VREADOCT " for (number of words): "))) (D (VPRINTADDRS (V\ATOMCELL (PROGN (VREADATOM)) 10) 2)) (^O (PRINTNUM .I2 (VATOMNUMBER (VREADATOM)) T)) (^V (PROG ((ATM (VREADATOM))) (printout T " to be ") (VSETTOPVAL ATM (READ T T)))) ((L ^L) (VRAIDSTACKCMD CMD)) (F (VRAIDSHOWFRAME (SETQ FRAME# (PROG1 (READ T T) (READC T))))) (LF (OR FRAME# (SETQ FRAME# 0)) (printout T "(" .I1 (SETQ FRAME# (PLUS FRAME# 1)) ")" T) (VRAIDSHOWFRAME FRAME#)) (^ (COND ((OR (NULL FRAME#) (ILEQ FRAME# 1)) (printout T "No previous frame" T)) (T (printout T "(" .I1 (SETQ FRAME# (PLUS FRAME# -1)) ")" T) (VRAIDSHOWFRAME FRAME#)))) (^F (V\PRINTBF (VREADOCT) NIL (FUNCTION VPRINCOPY))) (Z (LET ((A (PROG1 (READ T T) (READC T))) (D (PROG1 (READ T T) (READC T)))) (COND ((AND (FIXP A) (FIXP D)) (SETQ VPRINTLEVEL (CONS A D))) (T (PRINTOUT T "Must be two integers, car level then cdr level" T) (ERROR!))))) (W (VSHOWSTACKBLOCKS (COND ((EQ (PEEKC T) (QUOTE % -)) (READC T) (VGETBASE (VVAG2 20 0) 30)) (T (VREADOCT))))) (^X (V\PRINTFRAME (VREADOCT) (QUOTE PRINCOPY))) (^Y (TERPRI T) (USEREXEC (QUOTE :%:))) (K (SETQ ALINKS? (EQ (ASKUSER NIL NIL " Set link type for stack operations to " (QUOTE ((A "links +(LAMBDA NIL (*) (DECLARE (USEDFREE ROOTFRAME ALINKS? RAIDIX FRAME# VPRINTLEVEL)) (FRESHLINE T) (PROG (CMD) (SELECTQ (SETQ CMD (ASKUSER NIL NIL "@" (QUOTE ((Q "uit [confirm]" CONFIRMFLG T) (\ "^N - remote return [confirm]" NOECHOFLG T CONFIRMFLG T RETURN (QUOTE ^N)) (L "isp stack ") (\ "Lisp stack " NOECHOFLG T EXPLAINSTRING "^L -- Lisp stack from arbitrary frame or context" RETURN (QUOTE ^L)) (F "rame ") (\ + "Next frame " EXPLAINSTRING "LF - next frame" RETURN (QUOTE LF)) (^ " Previous frame ") (A "tom top-level value of atom: ") (D "efinition for atom: ") (P "roperty list for atom: ") (V " -- show object at Virtual address: ") (B "lock of storage starting at address: ") (S "how raw stack from address: ") (C "ode for function:") (\ "Basic frame at: " EXPLAINSTRING "^F - print basic frame at octal address" RETURN (QUOTE ^F)) (\ "frame extension at: " EXPLAINSTRING "^X - print frame extension at octal address" RETURN (QUOTE ^X)) (W "alk stack blocks starting at: ") (K "" EXPLAINSTRING "K -- Set linKtype for stack ops") (_ " Set word at address: ") (\ " Set value of atom " EXPLAINSTRING "^V -- Set value of atom" RETURN (QUOTE ^V)) (\ "atom number for atom: " EXPLAINSTRING "^O - look up atom" RETURN (QUOTE ^O)) (Z "Zap Print level to: ") (I "nspect InterfacePage [confirm]" CONFIRMFLG T) (U " -- Show remote screen [confirm]" CONFIRMFLG T) (" +" "" RETURN NIL) (\ " Enter Lisp " EXPLAINSTRING "^Y -- Enter Lisp" RETURN (QUOTE ^Y)))) T)) (^N (RETURN (QUOTE RETURN))) (Q (TERPRI T) (RETURN (QUOTE QUIT))) (NIL) (A (VPRINCOPY (VGETTOPVAL (VREADATOM)))) (P (VPRINCOPY (VGETPROPLIST (VREADATOM)))) (C (VPRINTCODE (VREADATOM) T RAIDIX)) (V (VPRINCOPY (VREADVA))) (B (VPRINTADDRS (VREADVA) (VREADOCT " for (number of words): "))) (S (VPRINTADDRS (VVAG2 1 (VREADOCT)) (VREADOCT " for (number of words): "))) (D (VPRINTADDRS (V\\ATOMCELL (PROGN (VREADATOM)) 10) 2)) (^O (PRINTNUM .I2 (VATOMNUMBER (VREADATOM)) T)) (^V (PROG ((ATM (VREADATOM))) (|printout| T " to be ") (VSETTOPVAL ATM (READ T T)))) ((L ^L) (VRAIDSTACKCMD CMD)) (F (VRAIDSHOWFRAME (SETQ FRAME# (PROG1 (READ T T) (READC T))))) (LF (OR FRAME# (SETQ FRAME# 0)) (|printout| T "(" .I1 (SETQ FRAME# (PLUS FRAME# 1)) ")" T) (VRAIDSHOWFRAME FRAME#)) (^ (COND ((OR (NULL FRAME#) (ILEQ FRAME# 1)) (|printout| T "No previous frame" T)) (T (|printout| T "(" .I1 (SETQ FRAME# (PLUS FRAME# -1)) ")" T) (VRAIDSHOWFRAME FRAME#)))) (^F (V\\PRINTBF (VREADOCT) NIL (FUNCTION VPRINCOPY))) (Z (LET ((A (PROG1 (READ T T) (READC T))) (D (PROG1 (READ T T) (READC T)))) (COND ((AND (FIXP A) (FIXP D)) (SETQ VPRINTLEVEL (CONS A D))) (T (PRINTOUT T "Must be two integers, car level then cdr level" T) (ERROR!))))) (W (VSHOWSTACKBLOCKS (COND ((EQ (PEEKC T) (QUOTE \ +)) (READC T) (VGETBASE (VVAG2 20 0) 30)) (T (VREADOCT))))) (^X (V\\PRINTFRAME (VREADOCT) (QUOTE PRINCOPY))) (^Y (TERPRI T) (USEREXEC (QUOTE :\:))) (K (SETQ ALINKS? (EQ (ASKUSER NIL NIL " Set link type for stack operations to " (QUOTE ((A "links ") (C "links -"))) T) (QUOTE A)))) (_ (PROG ((VA (VREADVA))) (printout T " Currently ") (PRINTNUM .I7 (VGETBASE VA 0) T) (printout T " to be ") (VPUTBASE VA 0 (VREADOCT)))) (I (COND ((NULL (GETD (QUOTE INSPECT)))) ((RECLOOK (QUOTE IFPAGE)) (INSPECT (COND ((LISTP VMEMFILE) (VMAPPAGE (fetch (POINTER PAGE#) of \InterfacePage))) (T (PROG ((PAGE (NCREATE (QUOTE VMEMPAGEP)))) (SETVMPTR (VGETTOPVAL (QUOTE \InterfacePage))) (\BINS (GETSTREAM VMEMFILE) PAGE 0 BYTESPERPAGE) (RETURN PAGE)))) (QUOTE IFPAGE))) (T (PRIN1 " Can't -- no record for IFPAGE"))) (TERPRI T)) (U (SHOWREMOTESCREEN)) (HELP)) (RETURN NIL))) +"))) T) (QUOTE A)))) (_ (PROG ((VA (VREADVA))) (|printout| T " Currently ") (PRINTNUM .I7 (VGETBASE VA 0) T) (|printout| T " to be ") (VPUTBASE VA 0 (VREADOCT)))) (I (COND ((NULL (GETD (QUOTE INSPECT)))) ((RECLOOK (QUOTE IFPAGE)) (INSPECT (COND ((LISTP VMEMFILE) (VMAPPAGE (|fetch| (POINTER PAGE#) |of| |\\InterfacePage|))) (T (PROG ((PAGE (NCREATE (QUOTE VMEMPAGEP)))) (SETVMPTR (VGETTOPVAL (QUOTE |\\InterfacePage|))) (\\BINS (GETSTREAM VMEMFILE) PAGE 0 BYTESPERPAGE) (RETURN PAGE)))) (QUOTE IFPAGE))) (T (PRIN1 " Can't -- no record for IFPAGE"))) (TERPRI T)) (U (SHOWREMOTESCREEN)) (HELP)) (RETURN NIL))) ) (VRAIDSHOWFRAME -(LAMBDA (N) (*) (PROG ((FRAME (OR ROOTFRAME (VRAIDROOTFRAME)))) (FRPTQ (SUB1 N) (COND ((EQ (PROGN (SETQ FRAME (COND (ALINKS? (IDIFFERENCE (LOGAND (VGETBASE (VVAG2 1 FRAME) 1) (CONSTANT (LOGXOR (SUB1 2) -1))) 10)) (T (IDIFFERENCE (COND ((NOT (NEQ 0 (LOGAND (VGETBASE (VVAG2 1 FRAME) 1) 1))) (VGETBASE (VVAG2 1 FRAME) 1)) (T (VGETBASE (VVAG2 1 FRAME) 9))) 10))))) 0) (RETURN (printout T N " is beyond the bottom of the stack" T))))) (V\BACKTRACE FRAME FRAME T NIL T T NIL (FUNCTION VPRINCOPY) NIL RAIDIX))) +(LAMBDA (N) (*) (PROG ((FRAME (OR ROOTFRAME (VRAIDROOTFRAME)))) (FRPTQ (SUB1 N) (COND ((EQ (PROGN (SETQ FRAME (COND (ALINKS? (IDIFFERENCE (LOGAND (VGETBASE (VVAG2 1 FRAME) 1) (CONSTANT (LOGXOR (SUB1 2) -1))) 10)) (T (IDIFFERENCE (COND ((NOT (NEQ 0 (LOGAND (VGETBASE (VVAG2 1 FRAME) 1) 1))) (VGETBASE (VVAG2 1 FRAME) 1)) (T (VGETBASE (VVAG2 1 FRAME) 9))) 10))))) 0) (RETURN (|printout| T N " is beyond the bottom of the stack" T))))) (V\\BACKTRACE FRAME FRAME T NIL T T NIL (FUNCTION VPRINCOPY) NIL RAIDIX))) ) (VRAIDSTACKCMD -(LAMBDA (CMD) (*) (DECLARE (USEDFREE FRAME# ROOTFRAME)) (PROG (FRAME) (SETQ FRAME# 0) (COND ((EQ CMD (QUOTE L)) (VRAIDROOTFRAME)) (T (SETQ ROOTFRAME (SELECTQ (SETQ FRAME (ASKUSER NIL NIL "in context (? for help): " (QUOTE ((P "age fault") (G "arbage collection") (K "eyboard handler") (H "ard Return") (S "tack manipulator") (R "eset") (M "iscellaneous") (F "rame at location: "))) T)) (P (VGETBASE (VVAG2 20 0) 6)) (G (VGETBASE (VVAG2 20 0) 5)) (K (VGETBASE (VVAG2 20 0) 3)) (H (VGETBASE (VVAG2 20 0) 4)) (S (VGETBASE (VVAG2 20 0) 2)) (R (VGETBASE (VVAG2 20 0) 1)) (M (VGETBASE (VVAG2 20 0) 14)) (COND ((AND (ILESSP (SETQ FRAME (VREADOCT)) 256) (ILESSP (VGETBASE (VVAG2 20 0) FRAME) (VGETBASE (VVAG2 20 0) 7)) (IEQ (LRSH (VGETBASE (VVAG2 1 (PROGN (PROGN (VGETBASE (VVAG2 20 0) FRAME)))) 0) 13) 6)) (VGETBASE (VVAG2 20 0) FRAME)) ((IEQ (LRSH (VGETBASE (VVAG2 1 FRAME) 0) 13) 6) FRAME) (T (PRINTNUM .I7 FRAME) (printout T " not a valid frame." T) (RETURN))))))) (FRESHLINE T) (V\BACKTRACE ROOTFRAME NIL T NIL NIL NIL ALINKS? (FUNCTION VPRINCOPY) 1 RAIDIX))) +(LAMBDA (CMD) (*) (DECLARE (USEDFREE FRAME# ROOTFRAME)) (PROG (FRAME) (SETQ FRAME# 0) (COND ((EQ CMD (QUOTE L)) (VRAIDROOTFRAME)) (T (SETQ ROOTFRAME (SELECTQ (SETQ FRAME (ASKUSER NIL NIL "in context (? for help): " (QUOTE ((P "age fault") (G "arbage collection") (K "eyboard handler") (H "ard Return") (S "tack manipulator") (R "eset") (M "iscellaneous") (F "rame at location: "))) T)) (P (VGETBASE (VVAG2 20 0) 6)) (G (VGETBASE (VVAG2 20 0) 5)) (K (VGETBASE (VVAG2 20 0) 3)) (H (VGETBASE (VVAG2 20 0) 4)) (S (VGETBASE (VVAG2 20 0) 2)) (R (VGETBASE (VVAG2 20 0) 1)) (M (VGETBASE (VVAG2 20 0) 14)) (COND ((AND (ILESSP (SETQ FRAME (VREADOCT)) 256) (ILESSP (VGETBASE (VVAG2 20 0) FRAME) (VGETBASE (VVAG2 20 0) 7)) (IEQ (LRSH (VGETBASE (VVAG2 1 (PROGN (PROGN (VGETBASE (VVAG2 20 0) FRAME)))) 0) 13) 6)) (VGETBASE (VVAG2 20 0) FRAME)) ((IEQ (LRSH (VGETBASE (VVAG2 1 FRAME) 0) 13) 6) FRAME) (T (PRINTNUM .I7 FRAME) (|printout| T " not a valid frame." T) (RETURN))))))) (FRESHLINE T) (V\\BACKTRACE ROOTFRAME NIL T NIL NIL NIL ALINKS? (FUNCTION VPRINCOPY) 1 RAIDIX))) ) (VRAIDROOTFRAME @@ -72,7 +72,7 @@ ) (VPRINTADDRS -(LAMBDA (BASE CNT) (*) (PRIN1 "words from ") (VPRINTVA BASE) (PRIN1 " to ") (VPRINTVA (VADDBASE BASE (SUB1 CNT))) (TERPRI) (SPACES 7) (for I from 0 to 7 do (PRINTNUM .I7 I)) (PROG ((NB (VVAG2 (VHILOC BASE) (LOGAND (VLOLOC BASE) (CONSTANT (LOGXOR (SUB1 8) -1))))) (LB (VADDBASE BASE CNT))) (do (COND ((EVENP (VLOLOC NB) 8) (TAB 0 0) (PRINTNUM .I5 (VLOLOC NB)) (PRIN1 ": "))) (COND ((IGREATERP BASE NB) (SPACES 7)) (T (PRINTNUM .I7 (VGETBASE NB 0)))) (SETQ NB (VADDBASE NB 1)) repeatwhile (IGREATERP LB NB)) (TAB 0 0))) +(LAMBDA (BASE CNT) (*) (PRIN1 "words from ") (VPRINTVA BASE) (PRIN1 " to ") (VPRINTVA (VADDBASE BASE (SUB1 CNT))) (TERPRI) (SPACES 7) (|for| I |from| 0 |to| 7 |do| (PRINTNUM .I7 I)) (PROG ((NB (VVAG2 (VHILOC BASE) (LOGAND (VLOLOC BASE) (CONSTANT (LOGXOR (SUB1 8) -1))))) (LB (VADDBASE BASE CNT))) (|do| (COND ((EVENP (VLOLOC NB) 8) (TAB 0 0) (PRINTNUM .I5 (VLOLOC NB)) (PRIN1 ": "))) (COND ((IGREATERP BASE NB) (SPACES 7)) (T (PRINTNUM .I7 (VGETBASE NB 0)))) (SETQ NB (VADDBASE NB 1)) |repeatwhile| (IGREATERP LB NB)) (TAB 0 0))) ) (VPRINTVA @@ -83,15 +83,15 @@ (LAMBDA NIL (*) (VVAG2 (VREADOCT) (VREADOCT)))) (VREADOCT -(LAMBDA (PROMPT) (*) (DECLARE (USEDFREE RAIDIX)) (COND ((AND PROMPT (NOT (READP T))) (printout T PROMPT))) (bind STR while (EQUAL (SETQ STR (RSTRING T T)) "") do (READC T) finally (RETURN (PROG1 (OR (FIXP (SELECTQ RAIDIX (8 (MKATOM (CONCAT STR "Q"))) (16 (bind (N _ 0) CHAR while (SETQ CHAR (GNC STR)) do (SETQ N (IPLUS (ITIMES N 16) (COND ((FIXP CHAR) CHAR) ((AND (IGEQ (SETQ CHAR (CHCON1 CHAR)) (CHARCODE A)) (ILEQ CHAR (CHARCODE F))) (IPLUS (IDIFFERENCE CHAR (CHARCODE A)) 10)) (T (ERROR CHAR (QUOTE ?) T))))) finally (RETURN N))) (SHOULDNT))) (PROGN (PRIN1 "?" T) (ERROR!))) (READC T))))) +(LAMBDA (PROMPT) (*) (DECLARE (USEDFREE RAIDIX)) (COND ((AND PROMPT (NOT (READP T))) (|printout| T PROMPT))) (|bind| STR |while| (EQUAL (SETQ STR (RSTRING T T)) "") |do| (READC T) |finally| (RETURN (PROG1 (OR (FIXP (SELECTQ RAIDIX (8 (MKATOM (CONCAT STR "Q"))) (16 (|bind| (N _ 0) CHAR |while| (SETQ CHAR (GNC STR)) |do| (SETQ N (IPLUS (ITIMES N 16) (COND ((FIXP CHAR) CHAR) ((AND (IGEQ (SETQ CHAR (CHCON1 CHAR)) (CHARCODE A)) (ILEQ CHAR (CHARCODE F))) (IPLUS (IDIFFERENCE CHAR (CHARCODE A)) 10)) (T (ERROR CHAR (QUOTE ?) T))))) |finally| (RETURN N))) (SHOULDNT))) (PROGN (PRIN1 "?" T) (ERROR!))) (READC T))))) ) (VREADATOM -(LAMBDA NIL (*) (PROG1 (HANDLER-BIND ((XCL:MISSING-EXTERNAL-SYMBOL (CL:FUNCTION (LAMBDA (CONDITION) (* ;; "MAKE AN INTERNAL SYMBOL INSTEAD") (CL:INTERN (XCL:MISSING-EXTERNAL-SYMBOL-NAME CONDITION) (XCL:MISSING-EXTERNAL-SYMBOL-PACKAGE CONDITION))))) (XCL:MISSING-PACKAGE (CL:FUNCTION (LAMBDA (CONDITION) (* ;; "FAKE A PACKAGE BY THIS NAME AND MAKE THE SYMBOL IN IT") (CL:INTERN (XCL:MISSING-PACKAGE-SYMBOL-NAME CONDITION) (CL:MAKE-PACKAGE (XCL:MISSING-PACKAGE-PACKAGE-NAME CONDITION) :USE NIL)))))) (CL:READ T)) (READC T))) +(LAMBDA NIL (*) (PROG1 (HANDLER-BIND ((XCL:MISSING-EXTERNAL-SYMBOL (CL:FUNCTION (LAMBDA (CONDITION) (* |;;| "MAKE AN INTERNAL SYMBOL INSTEAD") (CL:INTERN (XCL:MISSING-EXTERNAL-SYMBOL-NAME CONDITION) (XCL:MISSING-EXTERNAL-SYMBOL-PACKAGE CONDITION))))) (XCL:MISSING-PACKAGE (CL:FUNCTION (LAMBDA (CONDITION) (* |;;| "FAKE A PACKAGE BY THIS NAME AND MAKE THE SYMBOL IN IT") (CL:INTERN (XCL:MISSING-PACKAGE-SYMBOL-NAME CONDITION) (CL:MAKE-PACKAGE (XCL:MISSING-PACKAGE-PACKAGE-NAME CONDITION) :USE NIL)))))) (CL:READ T)) (READC T))) ) (VSHOWSTACKBLOCKS -(LAMBDA (SCANPTR WAITFLG) (*) (*) (PROG ((EASP (VGETBASE (VVAG2 20 0) 7))) SCAN (SELECTC (LRSH (VGETBASE (VVAG2 1 SCANPTR) 0) 13) (5 (VSHOWSTACKBLOCK1 SCANPTR "free block" (IEQ (VGETBASE (VVAG2 1 SCANPTR) 0) 40960)) (SETQ SCANPTR (PLUS SCANPTR (VGETBASE (VVAG2 1 SCANPTR) 1)))) (7 (VSHOWSTACKBLOCK1 SCANPTR "guard block" T) (SETQ SCANPTR (PLUS SCANPTR (VGETBASE (VVAG2 1 SCANPTR) 1)))) (6 (*) (VSHOWSTACKBLOCK1 SCANPTR "Frame extn = " (AND (IEQ (LRSH (VGETBASE (VVAG2 1 SCANPTR) 0) 13) 6) (OR (IEQ (IDIFFERENCE SCANPTR 2) (COND ((NOT (NEQ 0 (LOGAND (VGETBASE (VVAG2 1 SCANPTR) 1) 1))) (IDIFFERENCE SCANPTR 2)) (T (VGETBASE (VVAG2 1 SCANPTR) 8)))) (AND (NEQ 0 (LOGAND (LRSH (VGETBASE (VVAG2 1 (PROGN (IDIFFERENCE SCANPTR 2))) 0) 9) 1)) (IEQ (VGETBASE (VVAG2 1 (PROGN (IDIFFERENCE SCANPTR 2))) 1) (VGETBASE (VVAG2 1 (PROGN (COND ((NOT (NEQ 0 (LOGAND (VGETBASE (VVAG2 1 SCANPTR) 1) 1))) (IDIFFERENCE SCANPTR 2)) (T (VGETBASE (VVAG2 1 SCANPTR) 8))))) 1)))))) (PRIN2 (V\UNCOPY (VGETBASEPTR (PROGN (COND ((NEQ 0 (LOGAND (LRSH (VGETBASE (VVAG2 1 SCANPTR) 0) 9) 1)) (VGETBASEPTR (VVAG2 1 SCANPTR) 6)) (T (VGETBASEPTR (VVAG2 1 SCANPTR) 2)))) 4))) (SETQ SCANPTR (VGETBASE (VVAG2 1 SCANPTR) 4))) (PROG ((ORIG SCANPTR) IVAR) (*) (while (EQ (LRSH (VGETBASE (VVAG2 1 SCANPTR) 0) 13) 0) do (SETQ SCANPTR (PLUS SCANPTR 2))) (COND ((NOT (IEQ (LRSH (VGETBASE (VVAG2 1 SCANPTR) 0) 13) 4)) (VSHOWSTACKBLOCK1 ORIG "Garbage" T)) (T (SETQ IVAR (VGETBASE (VVAG2 1 SCANPTR) 1)) (COND ((NEQ 0 (LOGAND (LRSH (VGETBASE (VVAG2 1 SCANPTR) 0) 9) 1)) (VSHOWSTACKBLOCK1 SCANPTR "Residual BF" (EQ SCANPTR ORIG)) (PRIN1 " with IVar = ") (PRINTNUM .I7 IVAR)) (T (VSHOWSTACKBLOCK1 SCANPTR "Basic frame" (AND (EQ ORIG IVAR) (AND (IEQ (LRSH (VGETBASE (VVAG2 1 SCANPTR) 0) 13) 4) (for I from (VGETBASE (VVAG2 1 SCANPTR) 1) to (IDIFFERENCE SCANPTR 2) by 2 always (IEQ 0 (LRSH (VGETBASE (VVAG2 1 I) 0) 13)))))))) (SETQ SCANPTR (PLUS SCANPTR 2)))))) (TERPRI) (COND ((IGREATERP SCANPTR EASP) (RETURN))) (AND WAITFLG (READC T)) (GO SCAN))) +(LAMBDA (SCANPTR WAITFLG) (*) (*) (PROG ((EASP (VGETBASE (VVAG2 20 0) 7))) SCAN (SELECTC (LRSH (VGETBASE (VVAG2 1 SCANPTR) 0) 13) (5 (VSHOWSTACKBLOCK1 SCANPTR "free block" (IEQ (VGETBASE (VVAG2 1 SCANPTR) 0) 40960)) (SETQ SCANPTR (PLUS SCANPTR (VGETBASE (VVAG2 1 SCANPTR) 1)))) (7 (VSHOWSTACKBLOCK1 SCANPTR "guard block" T) (SETQ SCANPTR (PLUS SCANPTR (VGETBASE (VVAG2 1 SCANPTR) 1)))) (6 (*) (VSHOWSTACKBLOCK1 SCANPTR "Frame extn = " (AND (IEQ (LRSH (VGETBASE (VVAG2 1 SCANPTR) 0) 13) 6) (OR (IEQ (IDIFFERENCE SCANPTR 2) (COND ((NOT (NEQ 0 (LOGAND (VGETBASE (VVAG2 1 SCANPTR) 1) 1))) (IDIFFERENCE SCANPTR 2)) (T (VGETBASE (VVAG2 1 SCANPTR) 8)))) (AND (NEQ 0 (LOGAND (LRSH (VGETBASE (VVAG2 1 (PROGN (IDIFFERENCE SCANPTR 2))) 0) 9) 1)) (IEQ (VGETBASE (VVAG2 1 (PROGN (IDIFFERENCE SCANPTR 2))) 1) (VGETBASE (VVAG2 1 (PROGN (COND ((NOT (NEQ 0 (LOGAND (VGETBASE (VVAG2 1 SCANPTR) 1) 1))) (IDIFFERENCE SCANPTR 2)) (T (VGETBASE (VVAG2 1 SCANPTR) 8))))) 1)))))) (PRIN2 (V\\UNCOPY (VGETBASEPTR (PROGN (COND ((NEQ 0 (LOGAND (LRSH (VGETBASE (VVAG2 1 SCANPTR) 0) 9) 1)) (VGETBASEPTR (VVAG2 1 SCANPTR) 6)) (T (VGETBASEPTR (VVAG2 1 SCANPTR) 2)))) 4))) (SETQ SCANPTR (VGETBASE (VVAG2 1 SCANPTR) 4))) (PROG ((ORIG SCANPTR) IVAR) (*) (|while| (EQ (LRSH (VGETBASE (VVAG2 1 SCANPTR) 0) 13) 0) |do| (SETQ SCANPTR (PLUS SCANPTR 2))) (COND ((NOT (IEQ (LRSH (VGETBASE (VVAG2 1 SCANPTR) 0) 13) 4)) (VSHOWSTACKBLOCK1 ORIG "Garbage" T)) (T (SETQ IVAR (VGETBASE (VVAG2 1 SCANPTR) 1)) (COND ((NEQ 0 (LOGAND (LRSH (VGETBASE (VVAG2 1 SCANPTR) 0) 9) 1)) (VSHOWSTACKBLOCK1 SCANPTR "Residual BF" (EQ SCANPTR ORIG)) (PRIN1 " with IVar = ") (PRINTNUM .I7 IVAR)) (T (VSHOWSTACKBLOCK1 SCANPTR "Basic frame" (AND (EQ ORIG IVAR) (AND (IEQ (LRSH (VGETBASE (VVAG2 1 SCANPTR) 0) 13) 4) (|for| I |from| (VGETBASE (VVAG2 1 SCANPTR) 1) |to| (IDIFFERENCE SCANPTR 2) |by| 2 |always| (IEQ 0 (LRSH (VGETBASE (VVAG2 1 I) 0) 13)))))))) (SETQ SCANPTR (PLUS SCANPTR 2)))))) (TERPRI) (COND ((IGREATERP SCANPTR EASP) (RETURN))) (AND WAITFLG (READC T)) (GO SCAN))) ) (VSHOWSTACKBLOCK1 @@ -99,93 +99,93 @@ ) (VPRINCOPY -(LAMBDA (X) (*) (PRINT (V\UNCOPY X (CAR VPRINTLEVEL) (CDR VPRINTLEVEL)) T T))) +(LAMBDA (X) (*) (PRINT (V\\UNCOPY X (CAR VPRINTLEVEL) (CDR VPRINTLEVEL)) T T))) (VNOSUCHATOM -(LAMBDA (ATM) (*) (*) (printout T "No such atom: " ATM T) (ERROR "No such atom: "))) +(LAMBDA (ATM) (*) (*) (|printout| T "No such atom: " ATM T) (ERROR "No such atom: "))) ) (DEFINEQ -(V\BACKTRACE -(LAMBDA (IPOS EPOS NAMES VARS LOCALS JUNK ALINKS PRINTFN CNT RADIX) (*) (OR RADIX (SETQ RADIX 8)) (PROG (NARGS NPVARS NAME ARGNAME BLINK (.I7 (NUMFORMATCODE (LIST (QUOTE FIX) 7 RADIX)))) (DECLARE (SPECVARS .I7)) POSLP (COND (CNT (printout NIL .I3 CNT ": ") (SETQ CNT (PLUS CNT 1)))) (SETQ NAME (V\STKNAME IPOS)) (COND (JUNK (TERPRI) (TERPRI) (PRIN1 "Basic frame at ") (PRINTNUM .I7 (SETQ BLINK (COND ((NOT (NEQ 0 (LOGAND (VGETBASE (VVAG2 1 IPOS) 1) 1))) (IDIFFERENCE IPOS 2)) (T (VGETBASE (VVAG2 1 IPOS) 8))))) (TERPRI) (V\PRINTBF BLINK (COND ((NEQ 0 (LOGAND (LRSH (VGETBASE (VVAG2 1 IPOS) 0) 9) 1)) (VGETBASEPTR (VVAG2 1 IPOS) 6)) (T (VGETBASEPTR (VVAG2 1 IPOS) 2))) PRINTFN) (PROGN (TERPRI) (PRIN1 "Frame xtn at ") (PRINTNUM .I7 IPOS) (PRIN1 ", frame name= ")) (APPLY* PRINTFN NAME) (V\PRINTFRAME IPOS PRINTFN)) ((OR VARS LOCALS) (V\PRINTBF (COND ((NOT (NEQ 0 (LOGAND (VGETBASE (VVAG2 1 IPOS) 1) 1))) (IDIFFERENCE IPOS 2)) (T (VGETBASE (VVAG2 1 IPOS) 8))) (COND ((NEQ 0 (LOGAND (LRSH (VGETBASE (VVAG2 1 IPOS) 0) 9) 1)) (VGETBASEPTR (VVAG2 1 IPOS) 6)) (T (VGETBASEPTR (VVAG2 1 IPOS) 2))) PRINTFN (COND (LOCALS (QUOTE LOCALS)) (T T))) (COND (NAMES (APPLY* PRINTFN NAME) (TERPRI))) (V\PRINTFRAME IPOS PRINTFN (COND (LOCALS (QUOTE LOCALS)) (T T)))) (NAMES (APPLY* PRINTFN NAME))) (COND ((AND (NEQ EPOS IPOS) (NOT (EQ (PROGN (SETQ IPOS (COND (ALINKS (IDIFFERENCE (LOGAND (VGETBASE (VVAG2 1 IPOS) 1) (CONSTANT (LOGXOR (SUB1 2) -1))) 10)) (T (IDIFFERENCE (COND ((NOT (NEQ 0 (LOGAND (VGETBASE (VVAG2 1 IPOS) 1) 1))) (VGETBASE (VVAG2 1 IPOS) 1)) (T (VGETBASE (VVAG2 1 IPOS) 9))) 10))))) 0))) (GO POSLP))) (RETURN T))) +(V\\BACKTRACE +(LAMBDA (IPOS EPOS NAMES VARS LOCALS JUNK ALINKS PRINTFN CNT RADIX) (*) (OR RADIX (SETQ RADIX 8)) (PROG (NARGS NPVARS NAME ARGNAME BLINK (.I7 (NUMFORMATCODE (LIST (QUOTE FIX) 7 RADIX)))) (DECLARE (SPECVARS .I7)) POSLP (COND (CNT (|printout| NIL .I3 CNT ": ") (SETQ CNT (PLUS CNT 1)))) (SETQ NAME (V\\STKNAME IPOS)) (COND (JUNK (TERPRI) (TERPRI) (PRIN1 "Basic frame at ") (PRINTNUM .I7 (SETQ BLINK (COND ((NOT (NEQ 0 (LOGAND (VGETBASE (VVAG2 1 IPOS) 1) 1))) (IDIFFERENCE IPOS 2)) (T (VGETBASE (VVAG2 1 IPOS) 8))))) (TERPRI) (V\\PRINTBF BLINK (COND ((NEQ 0 (LOGAND (LRSH (VGETBASE (VVAG2 1 IPOS) 0) 9) 1)) (VGETBASEPTR (VVAG2 1 IPOS) 6)) (T (VGETBASEPTR (VVAG2 1 IPOS) 2))) PRINTFN) (PROGN (TERPRI) (PRIN1 "Frame xtn at ") (PRINTNUM .I7 IPOS) (PRIN1 ", frame name= ")) (APPLY* PRINTFN NAME) (V\\PRINTFRAME IPOS PRINTFN)) ((OR VARS LOCALS) (V\\PRINTBF (COND ((NOT (NEQ 0 (LOGAND (VGETBASE (VVAG2 1 IPOS) 1) 1))) (IDIFFERENCE IPOS 2)) (T (VGETBASE (VVAG2 1 IPOS) 8))) (COND ((NEQ 0 (LOGAND (LRSH (VGETBASE (VVAG2 1 IPOS) 0) 9) 1)) (VGETBASEPTR (VVAG2 1 IPOS) 6)) (T (VGETBASEPTR (VVAG2 1 IPOS) 2))) PRINTFN (COND (LOCALS (QUOTE LOCALS)) (T T))) (COND (NAMES (APPLY* PRINTFN NAME) (TERPRI))) (V\\PRINTFRAME IPOS PRINTFN (COND (LOCALS (QUOTE LOCALS)) (T T)))) (NAMES (APPLY* PRINTFN NAME))) (COND ((AND (NEQ EPOS IPOS) (NOT (EQ (PROGN (SETQ IPOS (COND (ALINKS (IDIFFERENCE (LOGAND (VGETBASE (VVAG2 1 IPOS) 1) (CONSTANT (LOGXOR (SUB1 2) -1))) 10)) (T (IDIFFERENCE (COND ((NOT (NEQ 0 (LOGAND (VGETBASE (VVAG2 1 IPOS) 1) 1))) (VGETBASE (VVAG2 1 IPOS) 1)) (T (VGETBASE (VVAG2 1 IPOS) 9))) 10))))) 0))) (GO POSLP))) (RETURN T))) ) -(V\STKNAME -(LAMBDA (POS) (*) (*) (LET ((NAME (VGETBASEPTR (PROGN (COND ((NEQ 0 (LOGAND (LRSH (VGETBASE (VVAG2 1 POS) 0) 9) 1)) (VGETBASEPTR (VVAG2 1 POS) 6)) (T (VGETBASEPTR (VVAG2 1 POS) 2)))) 4))) (if (EQ NAME (QUOTE \INTERPRETER)) then (VGETBASEPTR (VVAG2 1 0) (LET ((BFLINK (COND ((NOT (NEQ 0 (LOGAND (VGETBASE (VVAG2 1 POS) 1) 1))) (IDIFFERENCE POS 2)) (T (VGETBASE (VVAG2 1 POS) 8))))) (+ (VGETBASE (VVAG2 1 BFLINK) 1) (TIMES (CL:1- (IDIFFERENCE (LRSH (IDIFFERENCE BFLINK (VGETBASE (VVAG2 1 BFLINK) 1)) 1) (LOGAND (LRSH (VGETBASE (VVAG2 1 BFLINK) 0) 8) 1))) 2)))) else NAME))) +(V\\STKNAME +(LAMBDA (POS) (*) (*) (LET ((NAME (VGETBASEPTR (PROGN (COND ((NEQ 0 (LOGAND (LRSH (VGETBASE (VVAG2 1 POS) 0) 9) 1)) (VGETBASEPTR (VVAG2 1 POS) 6)) (T (VGETBASEPTR (VVAG2 1 POS) 2)))) 4))) (|if| (EQ NAME (QUOTE \\INTERPRETER)) |then| (VGETBASEPTR (VVAG2 1 0) (LET ((BFLINK (COND ((NOT (NEQ 0 (LOGAND (VGETBASE (VVAG2 1 POS) 1) 1))) (IDIFFERENCE POS 2)) (T (VGETBASE (VVAG2 1 POS) 8))))) (+ (VGETBASE (VVAG2 1 BFLINK) 1) (TIMES (CL:1- (IDIFFERENCE (LRSH (IDIFFERENCE BFLINK (VGETBASE (VVAG2 1 BFLINK) 1)) 1) (LOGAND (LRSH (VGETBASE (VVAG2 1 BFLINK) 0) 8) 1))) 2)))) |else| NAME))) ) -(V\PRINTBF -(LAMBDA (BL NMT PRINTFN VARSONLY) (*) (bind NM for I from (VGETBASE (VVAG2 1 BL) 1) by 2 as J from 0 to (SUB1 (IDIFFERENCE (LRSH (IDIFFERENCE BL (VGETBASE (VVAG2 1 BL) 1)) 1) (LOGAND (LRSH (VGETBASE (VVAG2 1 BL) 0) 8) 1))) do (OR VARSONLY (V\PRINTSTK I)) (COND ((OR (SETQ NM (V\SCANFORNTENTRY (OR NMT (RETURN (OR VARSONLY (TERPRI)))) (MAKE-NTENTRY 0 J))) (AND (NEQ VARSONLY T) (SETQ NM (QUOTE *local*)))) (AND VARSONLY (SPACES 3)) (PRIN2 NM) (SPACES 1) (APPLY* PRINTFN (VGETBASEPTR (VVAG2 1 0) I)))) finally (OR VARSONLY (while (ILESSP I BL) do (V\PRINTSTK I) (printout NIL "[padding]" T) (SETQ I (PLUS I 2))))) (COND ((NOT VARSONLY) (V\PRINTSTK BL) (COND ((NEQ 0 (LOGAND (LRSH (VGETBASE (VVAG2 1 BL) 0) 9) 1)) (PRIN1 "residual "))) (COND ((NEQ (LOGAND (VGETBASE (VVAG2 1 BL) 0) 255) 0) (printout NIL "usecnt= " (LOGAND (VGETBASE (VVAG2 1 BL) 0) 255) %,))) (TERPRI)))) +(V\\PRINTBF +(LAMBDA (BL NMT PRINTFN VARSONLY) (*) (|bind| NM |for| I |from| (VGETBASE (VVAG2 1 BL) 1) |by| 2 |as| J |from| 0 |to| (SUB1 (IDIFFERENCE (LRSH (IDIFFERENCE BL (VGETBASE (VVAG2 1 BL) 1)) 1) (LOGAND (LRSH (VGETBASE (VVAG2 1 BL) 0) 8) 1))) |do| (OR VARSONLY (V\\PRINTSTK I)) (COND ((OR (SETQ NM (V\\SCANFORNTENTRY (OR NMT (RETURN (OR VARSONLY (TERPRI)))) (MAKE-NTENTRY 0 J))) (AND (NEQ VARSONLY T) (SETQ NM (QUOTE |*local*|)))) (AND VARSONLY (SPACES 3)) (PRIN2 NM) (SPACES 1) (APPLY* PRINTFN (VGETBASEPTR (VVAG2 1 0) I)))) |finally| (OR VARSONLY (|while| (ILESSP I BL) |do| (V\\PRINTSTK I) (|printout| NIL "[padding]" T) (SETQ I (PLUS I 2))))) (COND ((NOT VARSONLY) (V\\PRINTSTK BL) (COND ((NEQ 0 (LOGAND (LRSH (VGETBASE (VVAG2 1 BL) 0) 9) 1)) (PRIN1 "residual "))) (COND ((NEQ (LOGAND (VGETBASE (VVAG2 1 BL) 0) 255) 0) (|printout| NIL "usecnt= " (LOGAND (VGETBASE (VVAG2 1 BL) 0) 255) \,))) (TERPRI)))) ) -(V\PRINTFRAME -(LAMBDA (FRAME PRINTFN VARSONLY) (*) (PROG ((NMT (COND ((NEQ 0 (LOGAND (LRSH (VGETBASE (VVAG2 1 FRAME) 0) 9) 1)) (VGETBASEPTR (VVAG2 1 FRAME) 6)) (T (VGETBASEPTR (VVAG2 1 FRAME) 2)))) (I 0) (FT (IPLUS (IPLUS FRAME (PROGN 10)) (LLSH (ADD1 (SIGNED (VGETBASE (PROGN (VGETBASEPTR (VVAG2 1 FRAME) 2)) 2) 16)) 2) (PROGN 4))) TMP NLOCALS) (COND ((NOT VARSONLY) (V\PRINTSTK FRAME) (PRIN1 "[") (PROGN (PROG ((FAST (NEQ 0 (LOGAND (LRSH (VGETBASE (VVAG2 1 FRAME) 0) 12) 1)))) (DECLARE (LOCALVARS FAST)) (COND (FAST (PRIN1 (QUOTE "F, ")) (SELECTQ (CONSTANT (NTHCHAR (QUOTE "F, ") -1)) (= (printout NIL %, FAST NIL)) NIL) T))) (PROG ((INCALL (NEQ 0 (LOGAND (LRSH (VGETBASE (VVAG2 1 FRAME) 0) 10) 1)))) (DECLARE (LOCALVARS INCALL)) (COND (INCALL (PRIN1 (QUOTE "C, ")) (SELECTQ (CONSTANT (NTHCHAR (QUOTE "C, ") -1)) (= (printout NIL %, INCALL NIL)) NIL) T))) (PROG ((VALIDNAMETABLE (NEQ 0 (LOGAND (LRSH (VGETBASE (VVAG2 1 FRAME) 0) 9) 1)))) (DECLARE (LOCALVARS VALIDNAMETABLE)) (COND (VALIDNAMETABLE (PRIN1 (QUOTE "V, ")) (SELECTQ (CONSTANT (NTHCHAR (QUOTE "V, ") -1)) (= (printout NIL %, VALIDNAMETABLE NIL)) NIL) T))) (PROG ((NOPUSH (NEQ 0 (LOGAND (LRSH (VGETBASE (VVAG2 1 FRAME) 0) 8) 1)))) (DECLARE (LOCALVARS NOPUSH)) (COND (NOPUSH (PRIN1 (QUOTE "N, ")) (SELECTQ (CONSTANT (NTHCHAR (QUOTE "N, ") -1)) (= (printout NIL %, NOPUSH NIL)) NIL) T))) (PROG ((USECNT (LOGAND (VGETBASE (VVAG2 1 FRAME) 0) 255))) (DECLARE (LOCALVARS USECNT)) (COND ((NEQ USECNT 0) (PRIN1 (QUOTE "USE=")) (SELECTQ (CONSTANT (NTHCHAR (QUOTE "USE=") -1)) (= (printout NIL %, USECNT ", ")) NIL) T))) (PROG ((SLOWP (NEQ 0 (LOGAND (VGETBASE (VVAG2 1 FRAME) 1) 1)))) (DECLARE (LOCALVARS SLOWP)) (COND (SLOWP (PRIN1 (QUOTE "X, ")) (SELECTQ (CONSTANT (NTHCHAR (QUOTE "X, ") -1)) (= (printout NIL %, SLOWP NIL)) NIL) T))) (PROG ((ALINK (IDIFFERENCE (LOGAND (VGETBASE (VVAG2 1 FRAME) 1) (CONSTANT (LOGXOR (SUB1 2) -1))) 10))) (DECLARE (LOCALVARS ALINK)) (COND (T (PRIN1 (QUOTE " alink]")) (SELECTQ (CONSTANT (NTHCHAR (QUOTE " alink]") -1)) (= (printout NIL %, ALINK NIL)) NIL) T)))) (TERPRI) (PROGN (V\PRINTSTK (IPLUS FRAME 2)) (PROGN (PROG ((FNHEADER (VGETBASEPTR (VVAG2 1 FRAME) 2))) (DECLARE (LOCALVARS FNHEADER)) (COND (T (PRIN1 (QUOTE "[fn header]")) (SELECTQ (CONSTANT (NTHCHAR (QUOTE "[fn header]") -1)) (= (printout NIL %, FNHEADER NIL)) NIL) T)))) (TERPRI)) (PROGN (V\PRINTSTK (IPLUS FRAME 4)) (PROGN (PROG ((NEXTBLOCK (VGETBASE (VVAG2 1 FRAME) 4))) (DECLARE (LOCALVARS NEXTBLOCK)) (COND (T (PRIN1 (QUOTE "[next, pc]")) (SELECTQ (CONSTANT (NTHCHAR (QUOTE "[next, pc]") -1)) (= (printout NIL %, NEXTBLOCK NIL)) NIL) T)))) (TERPRI)) (PROGN (V\PRINTSTK (IPLUS FRAME 6)) (PROGN (PROG ((NAMETABLE (COND ((NEQ 0 (LOGAND (LRSH (VGETBASE (VVAG2 1 FRAME) 0) 9) 1)) (VGETBASEPTR (VVAG2 1 FRAME) 6)) (T (VGETBASEPTR (VVAG2 1 FRAME) 2))))) (DECLARE (LOCALVARS NAMETABLE)) (COND (T (PRIN1 (QUOTE "[nametable]")) (SELECTQ (CONSTANT (NTHCHAR (QUOTE "[nametable]") -1)) (= (printout NIL %, NAMETABLE NIL)) NIL) T)))) (TERPRI)) (PROGN (V\PRINTSTK (IPLUS FRAME 8)) (PROGN (PROG ((BLINK (COND ((NOT (NEQ 0 (LOGAND (VGETBASE (VVAG2 1 FRAME) 1) 1))) (IDIFFERENCE FRAME 2)) (T (VGETBASE (VVAG2 1 FRAME) 8))))) (DECLARE (LOCALVARS BLINK)) (COND (T (PRIN1 (QUOTE "[blink, clink]")) (SELECTQ (CONSTANT (NTHCHAR (QUOTE "[blink, clink]") -1)) (= (printout NIL %, BLINK NIL)) NIL) T)))) (TERPRI)))) (SETQ NLOCALS (LRSH (VGETBASE NMT 7) 8)) (for old I from (IPLUS FRAME (PROGN 10)) by 2 while (ILESSP I FT) as J from 0 do (OR VARSONLY (V\PRINTSTK I)) (COND ((ILESSP J NLOCALS) (COND ((OR (SETQ TMP (V\SCANFORNTENTRY NMT (MAKE-NTENTRY 32768 J))) (AND (NEQ VARSONLY T) (SETQ TMP "local"))) (COND ((EQ (LRSH (VGETBASE (PROGN (VVAG2 1 I)) 0) 12) 0) (AND VARSONLY (SPACES 3)) (PRIN2 TMP) (SPACES 1) (APPLY* PRINTFN (VGETBASEPTR (VVAG2 1 I) 0))) ((NOT VARSONLY) (printout NIL TMP " [unbound]" T)))))) ((NOT VARSONLY) (COND ((SETQ TMP (V\SCANFORNTENTRY NMT (MAKE-NTENTRY 49152 J))) (printout NIL "[fvar " .P2 TMP " " (COND ((EVENP (VGETBASE (PROGN (VVAG2 1 I)) 0)) (COND ((EQ (SETQ TMP (VHILOC ((LAMBDA ($$1) (VVAG2 (VGETBASE (PROGN $$1) 1) (VGETBASE $$1 0))) (VVAG2 1 I)))) 1) " on stack]") ((NEQ (LOGAND TMP (CONSTANT (LOGXOR (SUB1 2) -1))) (VHILOC (VVAG2 12 0))) (*) " non-stack binding]") (T " top value]"))) (T " not looked up]")) T)) (T (printout NIL "[padding]" T)))))) (COND ((NOT VARSONLY) (SETQ FT (VGETBASE (VVAG2 1 FRAME) 4)) (for old I by 2 while (ILESSP I FT) do (*) (V\PRINTSTK I) (COND ((EQ (LRSH (VGETBASE (PROGN (VVAG2 1 I)) 0) 12) 0) (APPLY* PRINTFN (VGETBASEPTR (VVAG2 1 I) 0))) (T (TERPRI)))))))) +(V\\PRINTFRAME +(LAMBDA (FRAME PRINTFN VARSONLY) (*) (PROG ((NMT (COND ((NEQ 0 (LOGAND (LRSH (VGETBASE (VVAG2 1 FRAME) 0) 9) 1)) (VGETBASEPTR (VVAG2 1 FRAME) 6)) (T (VGETBASEPTR (VVAG2 1 FRAME) 2)))) (I 0) (FT (IPLUS (IPLUS FRAME (PROGN 10)) (LLSH (ADD1 (SIGNED (VGETBASE (PROGN (VGETBASEPTR (VVAG2 1 FRAME) 2)) 2) 16)) 2) (PROGN 4))) TMP NLOCALS) (COND ((NOT VARSONLY) (V\\PRINTSTK FRAME) (PRIN1 "[") (PROGN (PROG ((FAST (NEQ 0 (LOGAND (LRSH (VGETBASE (VVAG2 1 FRAME) 0) 12) 1)))) (DECLARE (LOCALVARS FAST)) (COND (FAST (PRIN1 (QUOTE "F, ")) (SELECTQ (CONSTANT (NTHCHAR (QUOTE "F, ") -1)) (= (|printout| NIL \, FAST NIL)) NIL) T))) (PROG ((INCALL (NEQ 0 (LOGAND (LRSH (VGETBASE (VVAG2 1 FRAME) 0) 10) 1)))) (DECLARE (LOCALVARS INCALL)) (COND (INCALL (PRIN1 (QUOTE "C, ")) (SELECTQ (CONSTANT (NTHCHAR (QUOTE "C, ") -1)) (= (|printout| NIL \, INCALL NIL)) NIL) T))) (PROG ((VALIDNAMETABLE (NEQ 0 (LOGAND (LRSH (VGETBASE (VVAG2 1 FRAME) 0) 9) 1)))) (DECLARE (LOCALVARS VALIDNAMETABLE)) (COND (VALIDNAMETABLE (PRIN1 (QUOTE "V, ")) (SELECTQ (CONSTANT (NTHCHAR (QUOTE "V, ") -1)) (= (|printout| NIL \, VALIDNAMETABLE NIL)) NIL) T))) (PROG ((NOPUSH (NEQ 0 (LOGAND (LRSH (VGETBASE (VVAG2 1 FRAME) 0) 8) 1)))) (DECLARE (LOCALVARS NOPUSH)) (COND (NOPUSH (PRIN1 (QUOTE "N, ")) (SELECTQ (CONSTANT (NTHCHAR (QUOTE "N, ") -1)) (= (|printout| NIL \, NOPUSH NIL)) NIL) T))) (PROG ((USECNT (LOGAND (VGETBASE (VVAG2 1 FRAME) 0) 255))) (DECLARE (LOCALVARS USECNT)) (COND ((NEQ USECNT 0) (PRIN1 (QUOTE "USE=")) (SELECTQ (CONSTANT (NTHCHAR (QUOTE "USE=") -1)) (= (|printout| NIL \, USECNT ", ")) NIL) T))) (PROG ((SLOWP (NEQ 0 (LOGAND (VGETBASE (VVAG2 1 FRAME) 1) 1)))) (DECLARE (LOCALVARS SLOWP)) (COND (SLOWP (PRIN1 (QUOTE "X, ")) (SELECTQ (CONSTANT (NTHCHAR (QUOTE "X, ") -1)) (= (|printout| NIL \, SLOWP NIL)) NIL) T))) (PROG ((ALINK (IDIFFERENCE (LOGAND (VGETBASE (VVAG2 1 FRAME) 1) (CONSTANT (LOGXOR (SUB1 2) -1))) 10))) (DECLARE (LOCALVARS ALINK)) (COND (T (PRIN1 (QUOTE " alink]")) (SELECTQ (CONSTANT (NTHCHAR (QUOTE " alink]") -1)) (= (|printout| NIL \, ALINK NIL)) NIL) T)))) (TERPRI) (PROGN (V\\PRINTSTK (IPLUS FRAME 2)) (PROGN (PROG ((FNHEADER (VGETBASEPTR (VVAG2 1 FRAME) 2))) (DECLARE (LOCALVARS FNHEADER)) (COND (T (PRIN1 (QUOTE "[fn header]")) (SELECTQ (CONSTANT (NTHCHAR (QUOTE "[fn header]") -1)) (= (|printout| NIL \, FNHEADER NIL)) NIL) T)))) (TERPRI)) (PROGN (V\\PRINTSTK (IPLUS FRAME 4)) (PROGN (PROG ((NEXTBLOCK (VGETBASE (VVAG2 1 FRAME) 4))) (DECLARE (LOCALVARS NEXTBLOCK)) (COND (T (PRIN1 (QUOTE "[next, pc]")) (SELECTQ (CONSTANT (NTHCHAR (QUOTE "[next, pc]") -1)) (= (|printout| NIL \, NEXTBLOCK NIL)) NIL) T)))) (TERPRI)) (PROGN (V\\PRINTSTK (IPLUS FRAME 6)) (PROGN (PROG ((NAMETABLE (COND ((NEQ 0 (LOGAND (LRSH (VGETBASE (VVAG2 1 FRAME) 0) 9) 1)) (VGETBASEPTR (VVAG2 1 FRAME) 6)) (T (VGETBASEPTR (VVAG2 1 FRAME) 2))))) (DECLARE (LOCALVARS NAMETABLE)) (COND (T (PRIN1 (QUOTE "[nametable]")) (SELECTQ (CONSTANT (NTHCHAR (QUOTE "[nametable]") -1)) (= (|printout| NIL \, NAMETABLE NIL)) NIL) T)))) (TERPRI)) (PROGN (V\\PRINTSTK (IPLUS FRAME 8)) (PROGN (PROG ((BLINK (COND ((NOT (NEQ 0 (LOGAND (VGETBASE (VVAG2 1 FRAME) 1) 1))) (IDIFFERENCE FRAME 2)) (T (VGETBASE (VVAG2 1 FRAME) 8))))) (DECLARE (LOCALVARS BLINK)) (COND (T (PRIN1 (QUOTE "[blink, clink]")) (SELECTQ (CONSTANT (NTHCHAR (QUOTE "[blink, clink]") -1)) (= (|printout| NIL \, BLINK NIL)) NIL) T)))) (TERPRI)))) (SETQ NLOCALS (LRSH (VGETBASE NMT 7) 8)) (|for| |old| I |from| (IPLUS FRAME (PROGN 10)) |by| 2 |while| (ILESSP I FT) |as| J |from| 0 |do| (OR VARSONLY (V\\PRINTSTK I)) (COND ((ILESSP J NLOCALS) (COND ((OR (SETQ TMP (V\\SCANFORNTENTRY NMT (MAKE-NTENTRY 32768 J))) (AND (NEQ VARSONLY T) (SETQ TMP "local"))) (COND ((EQ (LRSH (VGETBASE (PROGN (VVAG2 1 I)) 0) 12) 0) (AND VARSONLY (SPACES 3)) (PRIN2 TMP) (SPACES 1) (APPLY* PRINTFN (VGETBASEPTR (VVAG2 1 I) 0))) ((NOT VARSONLY) (|printout| NIL TMP " [unbound]" T)))))) ((NOT VARSONLY) (COND ((SETQ TMP (V\\SCANFORNTENTRY NMT (MAKE-NTENTRY 49152 J))) (|printout| NIL "[fvar " .P2 TMP " " (COND ((EVENP (VGETBASE (PROGN (VVAG2 1 I)) 0)) (COND ((EQ (SETQ TMP (VHILOC ((LAMBDA ($$1) (VVAG2 (VGETBASE (PROGN $$1) 1) (VGETBASE $$1 0))) (VVAG2 1 I)))) 1) " on stack]") ((NEQ (LOGAND TMP (CONSTANT (LOGXOR (SUB1 2) -1))) (VHILOC (VVAG2 12 0))) (*) " non-stack binding]") (T " top value]"))) (T " not looked up]")) T)) (T (|printout| NIL "[padding]" T)))))) (COND ((NOT VARSONLY) (SETQ FT (VGETBASE (VVAG2 1 FRAME) 4)) (|for| |old| I |by| 2 |while| (ILESSP I FT) |do| (*) (V\\PRINTSTK I) (COND ((EQ (LRSH (VGETBASE (PROGN (VVAG2 1 I)) 0) 12) 0) (APPLY* PRINTFN (VGETBASEPTR (VVAG2 1 I) 0))) (T (TERPRI)))))))) ) -(V\SCANFORNTENTRY -(LAMBDA (NMT NTENTRY) (*) (*) (bind NM for NT1 from (PROGN 8) by (CONSTANT (PROGN 2)) as NT2 from (IPLUS (PROGN 8) (VGETBASE NMT 6)) by (CONSTANT (WORDSPERNTOFFSETENTRY)) do (COND ((NULL-NTENTRY (SETQ NM (GETSTKNAMEENTRY NMT NT1))) (RETURN))) (COND ((IEQP NTENTRY (GETSTKNTOFFSETENTRY NMT NT2)) (RETURN (VATOM NM)))))) +(V\\SCANFORNTENTRY +(LAMBDA (NMT NTENTRY) (*) (*) (|bind| NM |for| NT1 |from| (PROGN 8) |by| (CONSTANT (PROGN 2)) |as| NT2 |from| (IPLUS (PROGN 8) (VGETBASE NMT 6)) |by| (CONSTANT (WORDSPERNTOFFSETENTRY)) |do| (COND ((NULL-NTENTRY (SETQ NM (GETSTKNAMEENTRY NMT NT1))) (RETURN))) (COND ((IEQP NTENTRY (GETSTKNTOFFSETENTRY NMT NT2)) (RETURN (VATOM NM)))))) ) -(V\PRINTSTK +(V\\PRINTSTK (LAMBDA (I) (*) (PRINTNUM .I7 I) (PRIN1 ": ") (PRINTNUM .I7 (VGETBASE (VVAG2 1 0) I)) (PRINTNUM .I7 (VGETBASE (VVAG2 1 0) (ADD1 I))) (SPACES 1)) ) ) (DEFINEQ -(V\CHECKARRAYBLOCK -(LAMBDA (BASE FREE ONFREELIST) (*) (COND (T (PROG (ERROR TRAILER) (COND ((NEQ (LRSH (VGETBASE BASE 0) 3) 5461) (SETQ ERROR "ARRAYBLOCK Password wrong")) ((NEQ (NEQ 0 (LOGAND (VGETBASE BASE 0) 1)) (NOT FREE)) (SETQ ERROR "ARRAYBLOCK INUSE bit set wrong")) (NIL (SETQ ERROR "Free ARRAYBLOCK with RefCnt not 1")) ((NEQ (LRSH (VGETBASE (SETQ TRAILER ((LAMBDA (BASE N) (DECLARE (LOCALVARS BASE N)) (VADDBASE (VADDBASE BASE N) N)) BASE (IDIFFERENCE (VGETBASE BASE 1) 1))) 0) 3) 5461) (SETQ ERROR "ARRAYBLOCK Trailer password wrong")) ((NEQ (VGETBASE BASE 1) (VGETBASE TRAILER 1)) (SETQ ERROR "ARRAYBLOCK Header and Trailer length don't match")) ((NEQ (NEQ 0 (LOGAND (VGETBASE BASE 0) 1)) (NOT FREE)) (SETQ ERROR "ARRAYBLOCK Trailer INUSE bit set wrong")) ((OR (NOT ONFREELIST) (ILESSP (VGETBASE BASE 1) 4)) (*) (RETURN)) ((OR (NOT (EQUAL (VGETBASEPTR (VGETBASEPTR BASE 4) 2) BASE)) (NOT (EQUAL (VGETBASEPTR (VGETBASEPTR BASE 2) 4) BASE))) (SETQ ERROR "ARRAYBLOCK links fouled")) ((bind (FBL _ ((LAMBDA (BASE N) (DECLARE (LOCALVARS BASE N)) (VADDBASE (VADDBASE BASE N) N)) VFREEBLOCKBUCKETS (IMIN (INTEGERLENGTH (VGETBASE BASE 1)) 30))) ROVER first (OR (SETQ ROVER (VGETBASEPTR FBL 0)) (RETURN (SETQ ERROR "Free block's bucket empty"))) do (AND (EQUAL ROVER BASE) (RETURN)) (V\CHECKARRAYBLOCK ROVER T) repeatuntil (EQ (SETQ ROVER (VGETBASEPTR ROVER 2)) (VGETBASEPTR FBL 0)))) (T (*) (RETURN))) (ERROR BASE ERROR) (RETURN ERROR))))) +(V\\CHECKARRAYBLOCK +(LAMBDA (BASE FREE ONFREELIST) (*) (COND (T (PROG (ERROR TRAILER) (COND ((NEQ (LRSH (VGETBASE BASE 0) 3) 5461) (SETQ ERROR "ARRAYBLOCK Password wrong")) ((NEQ (NEQ 0 (LOGAND (VGETBASE BASE 0) 1)) (NOT FREE)) (SETQ ERROR "ARRAYBLOCK INUSE bit set wrong")) (NIL (SETQ ERROR "Free ARRAYBLOCK with RefCnt not 1")) ((NEQ (LRSH (VGETBASE (SETQ TRAILER ((LAMBDA (BASE N) (DECLARE (LOCALVARS BASE N)) (VADDBASE (VADDBASE BASE N) N)) BASE (IDIFFERENCE (VGETBASE BASE 1) 1))) 0) 3) 5461) (SETQ ERROR "ARRAYBLOCK Trailer password wrong")) ((NEQ (VGETBASE BASE 1) (VGETBASE TRAILER 1)) (SETQ ERROR "ARRAYBLOCK Header and Trailer length don't match")) ((NEQ (NEQ 0 (LOGAND (VGETBASE BASE 0) 1)) (NOT FREE)) (SETQ ERROR "ARRAYBLOCK Trailer INUSE bit set wrong")) ((OR (NOT ONFREELIST) (ILESSP (VGETBASE BASE 1) 4)) (*) (RETURN)) ((OR (NOT (EQUAL (VGETBASEPTR (VGETBASEPTR BASE 4) 2) BASE)) (NOT (EQUAL (VGETBASEPTR (VGETBASEPTR BASE 2) 4) BASE))) (SETQ ERROR "ARRAYBLOCK links fouled")) ((|bind| (FBL _ ((LAMBDA (BASE N) (DECLARE (LOCALVARS BASE N)) (VADDBASE (VADDBASE BASE N) N)) VFREEBLOCKBUCKETS (IMIN (INTEGERLENGTH (VGETBASE BASE 1)) 30))) ROVER |first| (OR (SETQ ROVER (VGETBASEPTR FBL 0)) (RETURN (SETQ ERROR "Free block's bucket empty"))) |do| (AND (EQUAL ROVER BASE) (RETURN)) (V\\CHECKARRAYBLOCK ROVER T) |repeatuntil| (EQ (SETQ ROVER (VGETBASEPTR ROVER 2)) (VGETBASEPTR FBL 0)))) (T (*) (RETURN))) (ERROR BASE ERROR) (RETURN ERROR))))) ) -(V\PARSEARRAYSPACE -(LAMBDA (FN) (*) (COND ((NEQ VArrayFrLst2 (VVAG2 64 0)) (*) (V\PARSEARRAYSPACE1 FN (VVAG2 46 0) VArrayFrLst2) (V\PARSEARRAYSPACE1 FN (VVAG2 64 0) VArrayFrLst)) (T (V\PARSEARRAYSPACE1 FN (VVAG2 46 0) VArrayFrLst)))) +(V\\PARSEARRAYSPACE +(LAMBDA (FN) (*) (COND ((NEQ |VArrayFrLst2| (VVAG2 64 0)) (*) (V\\PARSEARRAYSPACE1 FN (VVAG2 46 0) |VArrayFrLst2|) (V\\PARSEARRAYSPACE1 FN (VVAG2 64 0) |VArrayFrLst|)) (T (V\\PARSEARRAYSPACE1 FN (VVAG2 46 0) |VArrayFrLst|)))) ) -(V\PARSEARRAYSPACE1 -(LAMBDA (FN START END) (*) (for (ROVER _ START) repeatuntil (EQUAL END (SETQ ROVER ((LAMBDA (BASE N) (DECLARE (LOCALVARS BASE N)) (VADDBASE (VADDBASE BASE N) N)) ROVER (VGETBASE ROVER 1)))) do (V\CHECKARRAYBLOCK ROVER (NOT (NEQ 0 (LOGAND (VGETBASE ROVER 0) 1))) (AND (NOT (NEQ 0 (LOGAND (VGETBASE ROVER 0) 1))) (VGETBASEPTR ROVER 2))) (AND FN (APPLY* FN ROVER (VGETBASE ROVER 1) (NEQ 0 (LOGAND (VGETBASE ROVER 0) 1)) (LOGAND (LRSH (VGETBASE ROVER 0) 1) 3))))) +(V\\PARSEARRAYSPACE1 +(LAMBDA (FN START END) (*) (|for| (ROVER _ START) |repeatuntil| (EQUAL END (SETQ ROVER ((LAMBDA (BASE N) (DECLARE (LOCALVARS BASE N)) (VADDBASE (VADDBASE BASE N) N)) ROVER (VGETBASE ROVER 1)))) |do| (V\\CHECKARRAYBLOCK ROVER (NOT (NEQ 0 (LOGAND (VGETBASE ROVER 0) 1))) (AND (NOT (NEQ 0 (LOGAND (VGETBASE ROVER 0) 1))) (VGETBASEPTR ROVER 2))) (AND FN (APPLY* FN ROVER (VGETBASE ROVER 1) (NEQ 0 (LOGAND (VGETBASE ROVER 0) 1)) (LOGAND (LRSH (VGETBASE ROVER 0) 1) 3))))) ) ) (DEFINEQ (VPRINTCODE -(LAMBDA (FN LVFLG RADIX OUTF FIRSTBYTE PC FN.IS.CODEBASE) (*) (*) (*) (*) (*) (*) (DECLARE (SPECVARS OUTF)) (OR RADIX (SETQ RADIX 16)) (LET ((CODEBASE (COND (FN.IS.CODEBASE FN) (T (OR (V\GET-COMPILED-CODE-BASE FN) (AND (LITATOM FN) (V\GET-COMPILED-CODE-BASE (GET FN (QUOTE CODE)))) (ERROR FN "not compiled code"))))) (I4 (NUMFORMATCODE (LIST (QUOTE FIX) (if (IGREATERP RADIX 15) then 3 else 4) RADIX))) (I6 (NUMFORMATCODE (LIST (QUOTE FIX) (if (IGREATERP RADIX 15) then 5 else 6) RADIX))) NTSIZE STARTPC TAG TEMP OP# PVARS FVARS IVARS) (DECLARE (SPECVARS CODEBASE IVARS PVARS FVARS I4 I6)) (*) (LET ((*PRINT-BASE* RADIX)) (for I from 0 by 2 while (ILESSP I (LLSH (PROGN 8) 1)) do (PRINTNUM I4 I OUTF) (PRIN1 ": " OUTF) (PRINTNUM I6 (LOGOR (LLSH (COND ((NEQ 0 (LOGAND (LRSH (VGETBASE CODEBASE 4) 14) 1)) (V\GETBASEBYTE CODEBASE (LOGXOR I 3))) (T (V\GETBASEBYTE CODEBASE I))) 8) ((LAMBDA (CODEBASE OFFSET) (DECLARE (LOCALVARS CODEBASE OFFSET)) (COND ((NEQ 0 (LOGAND (LRSH (VGETBASE CODEBASE 4) 14) 1)) (V\GETBASEBYTE CODEBASE (LOGXOR OFFSET 3))) (T (V\GETBASEBYTE CODEBASE OFFSET)))) CODEBASE (ADD1 I))) OUTF) (SELECTQ I (0 (PRIN1 " stkmin" OUTF)) (2 (PRIN1 " na" OUTF)) (4 (PRIN1 " pv" OUTF)) (6 (PRIN1 " startpc" OUTF)) (8 (AND (NEQ 0 (LRSH (VGETBASE CODEBASE 4) 15)) (PRIN1 "[CLOSUREP]" OUTF)) (printout OUTF " byteswapped: " (NEQ 0 (LOGAND (LRSH (VGETBASE CODEBASE 4) 14) 1))) (printout OUTF " argtype: " (LOGAND (LRSH (VGETBASE CODEBASE 4) 12) 3))) (10 (printout OUTF " frame name: " .P2 (V\UNCOPY (VGETBASEPTR CODEBASE 4)))) (12 (PRIN1 " ntsize" OUTF)) (14 (printout OUTF " nlocals: " (LRSH (VGETBASE CODEBASE 7) 8)) (printout OUTF " fvaroffset: " (LOGAND (VGETBASE CODEBASE 7) 255))) NIL) (*) (TERPRI OUTF))) (SETQ NTSIZE (VGETBASE CODEBASE 6)) (VPRINTCODENT "name table: " (LLSH (PROGN 8) 1) (LLSH NTSIZE 1)) (SETQ STARTPC (VGETBASE CODEBASE 3)) (COND ((GREATERP (SETQ NTSIZE (IDIFFERENCE (COND ((PROGN NIL) (*) (- STARTPC 4)) (T STARTPC)) (SETQ TEMP (IPLUS (LLSH (PROGN 8) 1) (COND ((EQ NTSIZE 0) (*) 8) (T (LLSH NTSIZE 2))))))) 4) (VPRINTCODENT "Local args: " TEMP (LRSH NTSIZE 1))) ((EQ NTSIZE 4) (*) (printout OUTF T "Info: " .P2 (VGETBASEPTR CODEBASE (LRSH TEMP 1)) T))) (printout OUTF T "----" T) (PROG ((CODELOC STARTPC) (LEVEL (AND LVFLG 0)) B B1 B2 B3 B4 B5 FN LEN LEVADJ STK) (COND (LEVEL (SETUPHASHARRAY (QUOTE \PRINTCODE.LEVEL)) (SETUPHASHARRAY (QUOTE \PRINTCODE.STKSTATE)) (CLRHASH \PRINTCODE.LEVEL) (CLRHASH \PRINTCODE.STKSTATE))) LP (COND ((AND PC (IGEQ CODELOC PC)) (*) (COND ((NOT (IEQP CODELOC PC)) (PRINTOUT OUTF "(PC ") (PRINTNUM I4 PC OUTF) (PRINTOUT OUTF " not found)"))) (printout OUTF "------------------------------" T) (SETQ PC))) (COND ((OR (NULL FIRSTBYTE) (IGEQ CODELOC FIRSTBYTE)) (PRINTNUM I4 CODELOC OUTF) (PRIN1 ": " OUTF) (COND (LVFLG (SETQ TEMP (GETHASH CODELOC \PRINTCODE.LEVEL)) (COND (LEVEL (COND ((AND TEMP (OR (NEQ LEVEL TEMP) (NOT (EQUAL STK (GETHASH CODELOC \PRINTCODE.STKSTATE))))) (PRIN1 "*" OUTF)))) (T (SETQ LEVEL TEMP) (SETQ STK (GETHASH CODELOC \PRINTCODE.STKSTATE)))) (COND (LEVEL (TAB 7 NIL OUTF) (PRINTNUM I4 LEVEL OUTF))))) (TAB 12 NIL OUTF)) (T (*) (SETQ TAG (\FINDOP ((LAMBDA (CODEBASE OFFSET) (DECLARE (LOCALVARS CODEBASE OFFSET)) (COND ((NEQ 0 (LOGAND (LRSH (VGETBASE CODEBASE 4) 14) 1)) (V\GETBASEBYTE CODEBASE (LOGXOR OFFSET 3))) (T (V\GETBASEBYTE CODEBASE OFFSET)))) CODEBASE (PROG1 CODELOC (SETQ CODELOC (PLUS CODELOC 1)))))) (SELECTQ (OR (fetch OPPRINT of TAG) (fetch OPCODENAME of TAG)) (-X- (TERPRI OUTF) (RETURN)) (BIND (COND (LEVEL (push STK (SETQ LEVEL (ADD1 (IDIFFERENCE LEVEL (LOGAND (CODEBASELT CODEBASE CODELOC) 15)))))))) (UNBIND (AND LEVEL (SETQ LEVEL (pop STK)))) (DUNBIND (AND LEVEL (SETQ LEVEL (SUB1 (pop STK))))) (RETURN (SETQ LEVEL)) (SUBRCALL (AND LEVEL (SETQ LEVEL (ADD1 (IDIFFERENCE LEVEL ((LAMBDA (CODEBASE OFFSET) (DECLARE (LOCALVARS CODEBASE OFFSET)) (COND ((NEQ 0 (LOGAND (LRSH (VGETBASE CODEBASE 4) 14) 1)) (V\GETBASEBYTE CODEBASE (LOGXOR OFFSET 3))) (T (V\GETBASEBYTE CODEBASE OFFSET)))) CODEBASE (ADD1 CODELOC))))))) (MISCN (AND LEVEL (SETQ LEVEL (ADD1 (IDIFFERENCE LEVEL ((LAMBDA (CODEBASE OFFSET) (DECLARE (LOCALVARS CODEBASE OFFSET)) (COND ((NEQ 0 (LOGAND (LRSH (VGETBASE CODEBASE 4) 14) 1)) (V\GETBASEBYTE CODEBASE (LOGXOR OFFSET 3))) (T (V\GETBASEBYTE CODEBASE OFFSET)))) CODEBASE (IPLUS 2 CODELOC))))))) NIL) (COND ((AND LEVEL (SETQ LEVADJ (fetch LEVADJ of TAG))) (COND ((LISTP LEVADJ) (SETQ LEVADJ (CAR LEVADJ)))) (SELECTQ LEVADJ (FNX (SETQ LEVEL (PLUS LEVEL (IDIFFERENCE 1 (COND ((NEQ 0 (LOGAND (LRSH (VGETBASE CODEBASE 4) 14) 1)) (V\GETBASEBYTE CODEBASE (LOGXOR CODELOC 3))) (T (V\GETBASEBYTE CODEBASE CODELOC))))))) (POP.N (SETQ LEVEL (IDIFFERENCE LEVEL (COND ((NEQ 0 (LOGAND (LRSH (VGETBASE CODEBASE 4) 14) 1)) (V\GETBASEBYTE CODEBASE (LOGXOR CODELOC 3))) (T (V\GETBASEBYTE CODEBASE CODELOC)))))) ((JUMP UNWIND) (SETQ LEVEL)) ((CJUMP NCJUMP) (SETQ LEVEL (PLUS LEVEL -1))) (COND ((NUMBERP LEVADJ) (SETQ LEVEL (PLUS LEVEL LEVADJ))))))) (add CODELOC (fetch OPNARGS of TAG)) (GO LP))) (SETQ LEN (fetch OPNARGS of (SETQ TAG (\FINDOP (SETQ B ((LAMBDA (CODEBASE OFFSET) (DECLARE (LOCALVARS CODEBASE OFFSET)) (COND ((NEQ 0 (LOGAND (LRSH (VGETBASE CODEBASE 4) 14) 1)) (V\GETBASEBYTE CODEBASE (LOGXOR OFFSET 3))) (T (V\GETBASEBYTE CODEBASE OFFSET)))) CODEBASE (PROG1 CODELOC (SETQ CODELOC (PLUS CODELOC 1))))))))) (PRINTNUM I4 B OUTF) (COND ((IGREATERP LEN 0) (PRINTNUM I4 (SETQ B1 ((LAMBDA (CODEBASE OFFSET) (DECLARE (LOCALVARS CODEBASE OFFSET)) (COND ((NEQ 0 (LOGAND (LRSH (VGETBASE CODEBASE 4) 14) 1)) (V\GETBASEBYTE CODEBASE (LOGXOR OFFSET 3))) (T (V\GETBASEBYTE CODEBASE OFFSET)))) CODEBASE (PROG1 CODELOC (SETQ CODELOC (PLUS CODELOC 1))))) OUTF))) (COND ((IGREATERP LEN 1) (PRINTNUM I4 (SETQ B2 ((LAMBDA (CODEBASE OFFSET) (DECLARE (LOCALVARS CODEBASE OFFSET)) (COND ((NEQ 0 (LOGAND (LRSH (VGETBASE CODEBASE 4) 14) 1)) (V\GETBASEBYTE CODEBASE (LOGXOR OFFSET 3))) (T (V\GETBASEBYTE CODEBASE OFFSET)))) CODEBASE (PROG1 CODELOC (SETQ CODELOC (PLUS CODELOC 1))))) OUTF))) (COND ((IGREATERP LEN 2) (PRINTNUM I4 (SETQ B3 ((LAMBDA (CODEBASE OFFSET) (DECLARE (LOCALVARS CODEBASE OFFSET)) (COND ((NEQ 0 (LOGAND (LRSH (VGETBASE CODEBASE 4) 14) 1)) (V\GETBASEBYTE CODEBASE (LOGXOR OFFSET 3))) (T (V\GETBASEBYTE CODEBASE OFFSET)))) CODEBASE (PROG1 CODELOC (SETQ CODELOC (PLUS CODELOC 1))))) OUTF))) (COND ((IGREATERP LEN 3) (PRINTNUM I4 (SETQ B4 ((LAMBDA (CODEBASE OFFSET) (DECLARE (LOCALVARS CODEBASE OFFSET)) (COND ((NEQ 0 (LOGAND (LRSH (VGETBASE CODEBASE 4) 14) 1)) (V\GETBASEBYTE CODEBASE (LOGXOR OFFSET 3))) (T (V\GETBASEBYTE CODEBASE OFFSET)))) CODEBASE (PROG1 CODELOC (SETQ CODELOC (PLUS CODELOC 1))))) OUTF))) (COND ((IGREATERP LEN 4) (PRINTNUM I4 (SETQ B5 ((LAMBDA (CODEBASE OFFSET) (DECLARE (LOCALVARS CODEBASE OFFSET)) (COND ((NEQ 0 (LOGAND (LRSH (VGETBASE CODEBASE 4) 14) 1)) (V\GETBASEBYTE CODEBASE (LOGXOR OFFSET 3))) (T (V\GETBASEBYTE CODEBASE OFFSET)))) CODEBASE (PROG1 CODELOC (SETQ CODELOC (PLUS CODELOC 1))))) OUTF))) (PROGN (printout OUTF 30 (fetch OPCODENAME of TAG)) (SETQ OP# (fetch OP# of TAG)) (SETQ LEVADJ (fetch LEVADJ of TAG))) (COND ((LISTP OP#) (SETQ OP# (CAR OP#)))) (SELECTQ (SETQ TAG (OR (fetch OPPRINT of TAG) (fetch OPCODENAME of TAG))) (-X- (TERPRI OUTF) (RETURN)) (IVAR (TAB 40 NIL OUTF) (PROGN (*) (PROG NIL (PRIN2 (CADR (OR (ASSOC (SELECTQ LEN (0 (IDIFFERENCE B OP#)) (LRSH B1 1)) IVARS) (RETURN (printout OUTF "[" (QUOTE ivar) (SELECTQ LEN (0 (IDIFFERENCE B OP#)) (LRSH B1 1)) "]")))) OUTF)))) (PVAR (TAB 40 NIL OUTF) (PROGN (*) (PROG NIL (PRIN2 (CADR (OR (ASSOC (SELECTQ LEN (0 (IDIFFERENCE B OP#)) (LRSH B1 1)) PVARS) (RETURN (printout OUTF "[" (QUOTE pvar) (SELECTQ LEN (0 (IDIFFERENCE B OP#)) (LRSH B1 1)) "]")))) OUTF)))) (FVAR (TAB 40 NIL OUTF) (PROGN (*) (PROG NIL (PRIN2 (CADR (OR (ASSOC (SELECTQ LEN (0 (IDIFFERENCE B OP#)) (LRSH B1 1)) FVARS) (RETURN (printout OUTF "[" (QUOTE fvar) (SELECTQ LEN (0 (IDIFFERENCE B OP#)) (LRSH B1 1)) "]")))) OUTF)))) (JUMP ((LAMBDA (N) (PRIN1 "->" OUTF) (PRINTNUM I4 (SETQ N (IPLUS N (IDIFFERENCE CODELOC (ADD1 LEN)))) OUTF) (COND (LEVEL (PUTHASH N (SELECTQ LEVADJ ((NCJUMP JUMP) LEVEL) (SUB1 LEVEL)) \PRINTCODE.LEVEL) (PUTHASH N STK \PRINTCODE.STKSTATE)))) (IPLUS (IDIFFERENCE B OP#) 2))) (SIC (printout OUTF 40 .P2 B1)) (SNIC (printout OUTF 40 .P2 (IDIFFERENCE B1 256))) (SICX (printout OUTF 40 .P2 (IPLUS (LLSH B1 8) B2))) (JUMPX ((LAMBDA (N) (PRIN1 "->" OUTF) (PRINTNUM I4 (SETQ N (IPLUS N (IDIFFERENCE CODELOC (ADD1 LEN)))) OUTF) (COND (LEVEL (PUTHASH N (SELECTQ LEVADJ ((NCJUMP JUMP) LEVEL) (SUB1 LEVEL)) \PRINTCODE.LEVEL) (PUTHASH N STK \PRINTCODE.STKSTATE)))) (COND ((IGEQ B1 128) (IDIFFERENCE B1 256)) (T B1)))) (FN (*) (NEW-SYMBOL-CODE (SETQ B (IPLUS (LLSH (IPLUS (LLSH (IPLUS (LLSH B1 8) B2) 8) B3) 8) B4)) (SETQ B (IPLUS (LLSH B1 8) B2))) (printout OUTF 40 .P2 (VATOM B))) (BIND (TAB 40 NIL OUTF) (PROG ((NNILS (LRSH B1 4)) (NVALS (LOGAND B1 15))) (for I from (ADD1 (IDIFFERENCE B2 (IPLUS NNILS NVALS))) to (IDIFFERENCE B2 NNILS) do (SPACES 1 OUTF) (PCVAR I PVARS (QUOTE pvar))) (PRIN1 (QUOTE ;) OUTF) (for I from (ADD1 (IDIFFERENCE B2 NNILS)) to B2 do (SPACES 1 OUTF) (PCVAR I PVARS (QUOTE pvar))) (COND (LEVEL (push STK (SETQ LEVEL (ADD1 (IDIFFERENCE LEVEL NVALS)))))))) (JUMPXX ((LAMBDA (N) (PRIN1 "->" OUTF) (PRINTNUM I4 (SETQ N (IPLUS N (IDIFFERENCE CODELOC (ADD1 LEN)))) OUTF) (COND (LEVEL (PUTHASH N (SELECTQ LEVADJ ((NCJUMP JUMP) LEVEL) (SUB1 LEVEL)) \PRINTCODE.LEVEL) (PUTHASH N STK \PRINTCODE.STKSTATE)))) (IPLUS (LLSH B1 8) B2 (COND ((IGREATERP B1 127) -65536) (T 0))))) (ATOM (printout OUTF 40 .P2 (VATOM (NEW-SYMBOL-CODE (IPLUS (LLSH (IPLUS (LLSH (IPLUS (LLSH B1 8) B2) 8) B3) 8) B4) (IPLUS (LLSH B1 8) B2))))) (GCONST (printout OUTF 40 .P2 (V\UNCOPY (VVAG2 (IPLUS (LLSH B1 8) B2) (IPLUS (LLSH B3 8) B4))))) (FNX (printout OUTF "(" B1 ")" 40 .P2 (VATOM (NEW-SYMBOL-CODE (IPLUS (LLSH (IPLUS (LLSH (IPLUS (LLSH B2 8) B3) 8) B4) 8) B5) (IPLUS (LLSH B2 8) B3))))) (TYPEP (printout OUTF "(" .P2 (OR (V\TYPENAMEFROMNUMBER B1) (QUOTE ?)) ")")) (UNBIND (AND LEVEL (SETQ LEVEL (pop STK)))) (DUNBIND (AND LEVEL (SETQ LEVEL (SUB1 (pop STK))))) (RETURN (SETQ LEVEL)) (SUBRCALL (printout OUTF 40 (for X in \INITSUBRS when (EQ B1 (CADR X)) do (RETURN (CAR X)) finally (RETURN "?"))) (AND LEVEL (SETQ LEVEL (ADD1 (IDIFFERENCE LEVEL B2))))) (MISCN (printout OUTF 40 (for X in \USER-SUBR-LIST when (EQ B1 (CADR X)) do (RETURN (CAR X)) finally (RETURN "?"))) (AND LEVEL (SETQ LEVEL (ADD1 (IDIFFERENCE LEVEL B2))))) (COND ((LISTP TAG) (printout OUTF 40 (CAR (NTH TAG (ADD1 B1))))))) (TERPRI OUTF) (COND ((AND LEVEL LEVADJ) (SELECTQ LEVADJ (FNX (SETQ LEVEL (PLUS LEVEL (IDIFFERENCE 1 B1)))) (POP.N (SETQ LEVEL (IDIFFERENCE LEVEL B1))) ((JUMP UNWIND) (SETQ LEVEL)) ((CJUMP NCJUMP) (SETQ LEVEL (PLUS LEVEL -1))) (COND ((NUMBERP LEVADJ) (SETQ LEVEL (PLUS LEVEL LEVADJ))))))) (GO LP)))) +(LAMBDA (FN LVFLG RADIX OUTF FIRSTBYTE PC FN.IS.CODEBASE) (*) (*) (*) (*) (*) (*) (DECLARE (SPECVARS OUTF)) (OR RADIX (SETQ RADIX 16)) (LET ((CODEBASE (COND (FN.IS.CODEBASE FN) (T (OR (V\\GET-COMPILED-CODE-BASE FN) (AND (LITATOM FN) (V\\GET-COMPILED-CODE-BASE (GET FN (QUOTE CODE)))) (ERROR FN "not compiled code"))))) (I4 (NUMFORMATCODE (LIST (QUOTE FIX) (|if| (IGREATERP RADIX 15) |then| 3 |else| 4) RADIX))) (I6 (NUMFORMATCODE (LIST (QUOTE FIX) (|if| (IGREATERP RADIX 15) |then| 5 |else| 6) RADIX))) NTSIZE STARTPC TAG TEMP OP# PVARS FVARS IVARS) (DECLARE (SPECVARS CODEBASE IVARS PVARS FVARS I4 I6)) (*) (LET ((*PRINT-BASE* RADIX)) (|for| I |from| 0 |by| 2 |while| (ILESSP I (LLSH (PROGN 8) 1)) |do| (PRINTNUM I4 I OUTF) (PRIN1 ": " OUTF) (PRINTNUM I6 (LOGOR (LLSH (COND ((NEQ 0 (LOGAND (LRSH (VGETBASE CODEBASE 4) 14) 1)) (V\\GETBASEBYTE CODEBASE (LOGXOR I 3))) (T (V\\GETBASEBYTE CODEBASE I))) 8) ((LAMBDA (CODEBASE OFFSET) (DECLARE (LOCALVARS CODEBASE OFFSET)) (COND ((NEQ 0 (LOGAND (LRSH (VGETBASE CODEBASE 4) 14) 1)) (V\\GETBASEBYTE CODEBASE (LOGXOR OFFSET 3))) (T (V\\GETBASEBYTE CODEBASE OFFSET)))) CODEBASE (ADD1 I))) OUTF) (SELECTQ I (0 (PRIN1 " stkmin" OUTF)) (2 (PRIN1 " na" OUTF)) (4 (PRIN1 " pv" OUTF)) (6 (PRIN1 " startpc" OUTF)) (8 (AND (NEQ 0 (LRSH (VGETBASE CODEBASE 4) 15)) (PRIN1 "[CLOSUREP]" OUTF)) (|printout| OUTF " byteswapped: " (NEQ 0 (LOGAND (LRSH (VGETBASE CODEBASE 4) 14) 1))) (|printout| OUTF " argtype: " (LOGAND (LRSH (VGETBASE CODEBASE 4) 12) 3))) (10 (|printout| OUTF " frame name: " .P2 (V\\UNCOPY (VGETBASEPTR CODEBASE 4)))) (12 (PRIN1 " ntsize" OUTF)) (14 (|printout| OUTF " nlocals: " (LRSH (VGETBASE CODEBASE 7) 8)) (|printout| OUTF " fvaroffset: " (LOGAND (VGETBASE CODEBASE 7) 255))) NIL) (*) (TERPRI OUTF))) (SETQ NTSIZE (VGETBASE CODEBASE 6)) (VPRINTCODENT "name table: " (LLSH (PROGN 8) 1) (LLSH NTSIZE 1)) (SETQ STARTPC (VGETBASE CODEBASE 3)) (COND ((GREATERP (SETQ NTSIZE (IDIFFERENCE (COND ((PROGN NIL) (*) (- STARTPC 4)) (T STARTPC)) (SETQ TEMP (IPLUS (LLSH (PROGN 8) 1) (COND ((EQ NTSIZE 0) (*) 8) (T (LLSH NTSIZE 2))))))) 4) (VPRINTCODENT "Local args: " TEMP (LRSH NTSIZE 1))) ((EQ NTSIZE 4) (*) (|printout| OUTF T "Info: " .P2 (VGETBASEPTR CODEBASE (LRSH TEMP 1)) T))) (|printout| OUTF T "----" T) (PROG ((CODELOC STARTPC) (LEVEL (AND LVFLG 0)) B B1 B2 B3 B4 B5 FN LEN LEVADJ STK) (COND (LEVEL (SETUPHASHARRAY (QUOTE \\PRINTCODE.LEVEL)) (SETUPHASHARRAY (QUOTE \\PRINTCODE.STKSTATE)) (CLRHASH \\PRINTCODE.LEVEL) (CLRHASH \\PRINTCODE.STKSTATE))) LP (COND ((AND PC (IGEQ CODELOC PC)) (*) (COND ((NOT (IEQP CODELOC PC)) (PRINTOUT OUTF "(PC ") (PRINTNUM I4 PC OUTF) (PRINTOUT OUTF " not found)"))) (|printout| OUTF "------------------------------" T) (SETQ PC))) (COND ((OR (NULL FIRSTBYTE) (IGEQ CODELOC FIRSTBYTE)) (PRINTNUM I4 CODELOC OUTF) (PRIN1 ": " OUTF) (COND (LVFLG (SETQ TEMP (GETHASH CODELOC \\PRINTCODE.LEVEL)) (COND (LEVEL (COND ((AND TEMP (OR (NEQ LEVEL TEMP) (NOT (EQUAL STK (GETHASH CODELOC \\PRINTCODE.STKSTATE))))) (PRIN1 "*" OUTF)))) (T (SETQ LEVEL TEMP) (SETQ STK (GETHASH CODELOC \\PRINTCODE.STKSTATE)))) (COND (LEVEL (TAB 7 NIL OUTF) (PRINTNUM I4 LEVEL OUTF))))) (TAB 12 NIL OUTF)) (T (*) (SETQ TAG (\\FINDOP ((LAMBDA (CODEBASE OFFSET) (DECLARE (LOCALVARS CODEBASE OFFSET)) (COND ((NEQ 0 (LOGAND (LRSH (VGETBASE CODEBASE 4) 14) 1)) (V\\GETBASEBYTE CODEBASE (LOGXOR OFFSET 3))) (T (V\\GETBASEBYTE CODEBASE OFFSET)))) CODEBASE (PROG1 CODELOC (SETQ CODELOC (PLUS CODELOC 1)))))) (SELECTQ (OR (|fetch| OPPRINT |of| TAG) (|fetch| OPCODENAME |of| TAG)) (-X- (TERPRI OUTF) (RETURN)) (BIND (COND (LEVEL (|push| STK (SETQ LEVEL (ADD1 (IDIFFERENCE LEVEL (LOGAND (CODEBASELT CODEBASE CODELOC) 15)))))))) (UNBIND (AND LEVEL (SETQ LEVEL (|pop| STK)))) (DUNBIND (AND LEVEL (SETQ LEVEL (SUB1 (|pop| STK))))) (RETURN (SETQ LEVEL)) (SUBRCALL (AND LEVEL (SETQ LEVEL (ADD1 (IDIFFERENCE LEVEL ((LAMBDA (CODEBASE OFFSET) (DECLARE (LOCALVARS CODEBASE OFFSET)) (COND ((NEQ 0 (LOGAND (LRSH (VGETBASE CODEBASE 4) 14) 1)) (V\\GETBASEBYTE CODEBASE (LOGXOR OFFSET 3))) (T (V\\GETBASEBYTE CODEBASE OFFSET)))) CODEBASE (ADD1 CODELOC))))))) (MISCN (AND LEVEL (SETQ LEVEL (ADD1 (IDIFFERENCE LEVEL ((LAMBDA (CODEBASE OFFSET) (DECLARE (LOCALVARS CODEBASE OFFSET)) (COND ((NEQ 0 (LOGAND (LRSH (VGETBASE CODEBASE 4) 14) 1)) (V\\GETBASEBYTE CODEBASE (LOGXOR OFFSET 3))) (T (V\\GETBASEBYTE CODEBASE OFFSET)))) CODEBASE (IPLUS 2 CODELOC))))))) NIL) (COND ((AND LEVEL (SETQ LEVADJ (|fetch| LEVADJ |of| TAG))) (COND ((LISTP LEVADJ) (SETQ LEVADJ (CAR LEVADJ)))) (SELECTQ LEVADJ (FNX (SETQ LEVEL (PLUS LEVEL (IDIFFERENCE 1 (COND ((NEQ 0 (LOGAND (LRSH (VGETBASE CODEBASE 4) 14) 1)) (V\\GETBASEBYTE CODEBASE (LOGXOR CODELOC 3))) (T (V\\GETBASEBYTE CODEBASE CODELOC))))))) (POP.N (SETQ LEVEL (IDIFFERENCE LEVEL (COND ((NEQ 0 (LOGAND (LRSH (VGETBASE CODEBASE 4) 14) 1)) (V\\GETBASEBYTE CODEBASE (LOGXOR CODELOC 3))) (T (V\\GETBASEBYTE CODEBASE CODELOC)))))) ((JUMP UNWIND) (SETQ LEVEL)) ((CJUMP NCJUMP) (SETQ LEVEL (PLUS LEVEL -1))) (COND ((NUMBERP LEVADJ) (SETQ LEVEL (PLUS LEVEL LEVADJ))))))) (|add| CODELOC (|fetch| OPNARGS |of| TAG)) (GO LP))) (SETQ LEN (|fetch| OPNARGS |of| (SETQ TAG (\\FINDOP (SETQ B ((LAMBDA (CODEBASE OFFSET) (DECLARE (LOCALVARS CODEBASE OFFSET)) (COND ((NEQ 0 (LOGAND (LRSH (VGETBASE CODEBASE 4) 14) 1)) (V\\GETBASEBYTE CODEBASE (LOGXOR OFFSET 3))) (T (V\\GETBASEBYTE CODEBASE OFFSET)))) CODEBASE (PROG1 CODELOC (SETQ CODELOC (PLUS CODELOC 1))))))))) (PRINTNUM I4 B OUTF) (COND ((IGREATERP LEN 0) (PRINTNUM I4 (SETQ B1 ((LAMBDA (CODEBASE OFFSET) (DECLARE (LOCALVARS CODEBASE OFFSET)) (COND ((NEQ 0 (LOGAND (LRSH (VGETBASE CODEBASE 4) 14) 1)) (V\\GETBASEBYTE CODEBASE (LOGXOR OFFSET 3))) (T (V\\GETBASEBYTE CODEBASE OFFSET)))) CODEBASE (PROG1 CODELOC (SETQ CODELOC (PLUS CODELOC 1))))) OUTF))) (COND ((IGREATERP LEN 1) (PRINTNUM I4 (SETQ B2 ((LAMBDA (CODEBASE OFFSET) (DECLARE (LOCALVARS CODEBASE OFFSET)) (COND ((NEQ 0 (LOGAND (LRSH (VGETBASE CODEBASE 4) 14) 1)) (V\\GETBASEBYTE CODEBASE (LOGXOR OFFSET 3))) (T (V\\GETBASEBYTE CODEBASE OFFSET)))) CODEBASE (PROG1 CODELOC (SETQ CODELOC (PLUS CODELOC 1))))) OUTF))) (COND ((IGREATERP LEN 2) (PRINTNUM I4 (SETQ B3 ((LAMBDA (CODEBASE OFFSET) (DECLARE (LOCALVARS CODEBASE OFFSET)) (COND ((NEQ 0 (LOGAND (LRSH (VGETBASE CODEBASE 4) 14) 1)) (V\\GETBASEBYTE CODEBASE (LOGXOR OFFSET 3))) (T (V\\GETBASEBYTE CODEBASE OFFSET)))) CODEBASE (PROG1 CODELOC (SETQ CODELOC (PLUS CODELOC 1))))) OUTF))) (COND ((IGREATERP LEN 3) (PRINTNUM I4 (SETQ B4 ((LAMBDA (CODEBASE OFFSET) (DECLARE (LOCALVARS CODEBASE OFFSET)) (COND ((NEQ 0 (LOGAND (LRSH (VGETBASE CODEBASE 4) 14) 1)) (V\\GETBASEBYTE CODEBASE (LOGXOR OFFSET 3))) (T (V\\GETBASEBYTE CODEBASE OFFSET)))) CODEBASE (PROG1 CODELOC (SETQ CODELOC (PLUS CODELOC 1))))) OUTF))) (COND ((IGREATERP LEN 4) (PRINTNUM I4 (SETQ B5 ((LAMBDA (CODEBASE OFFSET) (DECLARE (LOCALVARS CODEBASE OFFSET)) (COND ((NEQ 0 (LOGAND (LRSH (VGETBASE CODEBASE 4) 14) 1)) (V\\GETBASEBYTE CODEBASE (LOGXOR OFFSET 3))) (T (V\\GETBASEBYTE CODEBASE OFFSET)))) CODEBASE (PROG1 CODELOC (SETQ CODELOC (PLUS CODELOC 1))))) OUTF))) (PROGN (|printout| OUTF 30 (|fetch| OPCODENAME |of| TAG)) (SETQ OP# (|fetch| OP# |of| TAG)) (SETQ LEVADJ (|fetch| LEVADJ |of| TAG))) (COND ((LISTP OP#) (SETQ OP# (CAR OP#)))) (SELECTQ (SETQ TAG (OR (|fetch| OPPRINT |of| TAG) (|fetch| OPCODENAME |of| TAG))) (-X- (TERPRI OUTF) (RETURN)) (IVAR (TAB 40 NIL OUTF) (PROGN (*) (PROG NIL (PRIN2 (CADR (OR (ASSOC (SELECTQ LEN (0 (IDIFFERENCE B OP#)) (LRSH B1 1)) IVARS) (RETURN (|printout| OUTF "[" (QUOTE |ivar|) (SELECTQ LEN (0 (IDIFFERENCE B OP#)) (LRSH B1 1)) "]")))) OUTF)))) (PVAR (TAB 40 NIL OUTF) (PROGN (*) (PROG NIL (PRIN2 (CADR (OR (ASSOC (SELECTQ LEN (0 (IDIFFERENCE B OP#)) (LRSH B1 1)) PVARS) (RETURN (|printout| OUTF "[" (QUOTE |pvar|) (SELECTQ LEN (0 (IDIFFERENCE B OP#)) (LRSH B1 1)) "]")))) OUTF)))) (FVAR (TAB 40 NIL OUTF) (PROGN (*) (PROG NIL (PRIN2 (CADR (OR (ASSOC (SELECTQ LEN (0 (IDIFFERENCE B OP#)) (LRSH B1 1)) FVARS) (RETURN (|printout| OUTF "[" (QUOTE |fvar|) (SELECTQ LEN (0 (IDIFFERENCE B OP#)) (LRSH B1 1)) "]")))) OUTF)))) (JUMP ((LAMBDA (N) (PRIN1 "->" OUTF) (PRINTNUM I4 (SETQ N (IPLUS N (IDIFFERENCE CODELOC (ADD1 LEN)))) OUTF) (COND (LEVEL (PUTHASH N (SELECTQ LEVADJ ((NCJUMP JUMP) LEVEL) (SUB1 LEVEL)) \\PRINTCODE.LEVEL) (PUTHASH N STK \\PRINTCODE.STKSTATE)))) (IPLUS (IDIFFERENCE B OP#) 2))) (SIC (|printout| OUTF 40 .P2 B1)) (SNIC (|printout| OUTF 40 .P2 (IDIFFERENCE B1 256))) (SICX (|printout| OUTF 40 .P2 (IPLUS (LLSH B1 8) B2))) (JUMPX ((LAMBDA (N) (PRIN1 "->" OUTF) (PRINTNUM I4 (SETQ N (IPLUS N (IDIFFERENCE CODELOC (ADD1 LEN)))) OUTF) (COND (LEVEL (PUTHASH N (SELECTQ LEVADJ ((NCJUMP JUMP) LEVEL) (SUB1 LEVEL)) \\PRINTCODE.LEVEL) (PUTHASH N STK \\PRINTCODE.STKSTATE)))) (COND ((IGEQ B1 128) (IDIFFERENCE B1 256)) (T B1)))) (FN (*) (NEW-SYMBOL-CODE (SETQ B (IPLUS (LLSH (IPLUS (LLSH (IPLUS (LLSH B1 8) B2) 8) B3) 8) B4)) (SETQ B (IPLUS (LLSH B1 8) B2))) (|printout| OUTF 40 .P2 (VATOM B))) (BIND (TAB 40 NIL OUTF) (PROG ((NNILS (LRSH B1 4)) (NVALS (LOGAND B1 15))) (|for| I |from| (ADD1 (IDIFFERENCE B2 (IPLUS NNILS NVALS))) |to| (IDIFFERENCE B2 NNILS) |do| (SPACES 1 OUTF) (PCVAR I PVARS (QUOTE |pvar|))) (PRIN1 (QUOTE \;) OUTF) (|for| I |from| (ADD1 (IDIFFERENCE B2 NNILS)) |to| B2 |do| (SPACES 1 OUTF) (PCVAR I PVARS (QUOTE |pvar|))) (COND (LEVEL (|push| STK (SETQ LEVEL (ADD1 (IDIFFERENCE LEVEL NVALS)))))))) (JUMPXX ((LAMBDA (N) (PRIN1 "->" OUTF) (PRINTNUM I4 (SETQ N (IPLUS N (IDIFFERENCE CODELOC (ADD1 LEN)))) OUTF) (COND (LEVEL (PUTHASH N (SELECTQ LEVADJ ((NCJUMP JUMP) LEVEL) (SUB1 LEVEL)) \\PRINTCODE.LEVEL) (PUTHASH N STK \\PRINTCODE.STKSTATE)))) (IPLUS (LLSH B1 8) B2 (COND ((IGREATERP B1 127) -65536) (T 0))))) (ATOM (|printout| OUTF 40 .P2 (VATOM (NEW-SYMBOL-CODE (IPLUS (LLSH (IPLUS (LLSH (IPLUS (LLSH B1 8) B2) 8) B3) 8) B4) (IPLUS (LLSH B1 8) B2))))) (GCONST (|printout| OUTF 40 .P2 (V\\UNCOPY (VVAG2 (IPLUS (LLSH B1 8) B2) (IPLUS (LLSH B3 8) B4))))) (FNX (|printout| OUTF "(" B1 ")" 40 .P2 (VATOM (NEW-SYMBOL-CODE (IPLUS (LLSH (IPLUS (LLSH (IPLUS (LLSH B2 8) B3) 8) B4) 8) B5) (IPLUS (LLSH B2 8) B3))))) (TYPEP (|printout| OUTF "(" .P2 (OR (V\\TYPENAMEFROMNUMBER B1) (QUOTE ?)) ")")) (UNBIND (AND LEVEL (SETQ LEVEL (|pop| STK)))) (DUNBIND (AND LEVEL (SETQ LEVEL (SUB1 (|pop| STK))))) (RETURN (SETQ LEVEL)) (SUBRCALL (|printout| OUTF 40 (|for| X |in| \\INITSUBRS |when| (EQ B1 (CADR X)) |do| (RETURN (CAR X)) |finally| (RETURN "?"))) (AND LEVEL (SETQ LEVEL (ADD1 (IDIFFERENCE LEVEL B2))))) (MISCN (|printout| OUTF 40 (|for| X |in| \\USER-SUBR-LIST |when| (EQ B1 (CADR X)) |do| (RETURN (CAR X)) |finally| (RETURN "?"))) (AND LEVEL (SETQ LEVEL (ADD1 (IDIFFERENCE LEVEL B2))))) (COND ((LISTP TAG) (|printout| OUTF 40 (CAR (NTH TAG (ADD1 B1))))))) (TERPRI OUTF) (COND ((AND LEVEL LEVADJ) (SELECTQ LEVADJ (FNX (SETQ LEVEL (PLUS LEVEL (IDIFFERENCE 1 B1)))) (POP.N (SETQ LEVEL (IDIFFERENCE LEVEL B1))) ((JUMP UNWIND) (SETQ LEVEL)) ((CJUMP NCJUMP) (SETQ LEVEL (PLUS LEVEL -1))) (COND ((NUMBERP LEVADJ) (SETQ LEVEL (PLUS LEVEL LEVADJ))))))) (GO LP)))) ) (VPRINTCODENT -(LAMBDA (STR START1 START2) (DECLARE (USEDFREE CODEBASE IVARS PVARS FVARS I4 I6 OUTF)) (*) (*) (LET (NAME TAG) (COND ((ILESSP START1 (SETQ START2 (IPLUS START2 START1))) (printout OUTF STR T) (for NT1 from START1 by (LLSH (CONSTANT (PROGN 2)) 1) while (ILESSP NT1 START2) as NT2 from START2 by (LLSH (PROGN 2) 1) do (PRINTNUM I4 NT1 OUTF) (PRIN1 ": " OUTF) (for I from 0 to (CONSTANT (SUB1 (LLSH (CONSTANT (PROGN 2)) 1))) do (PRINTNUM I4 ((LAMBDA (CODEBASE OFFSET) (DECLARE (LOCALVARS CODEBASE OFFSET)) (COND ((NEQ 0 (LOGAND (LRSH (VGETBASE CODEBASE 4) 14) 1)) (V\GETBASEBYTE CODEBASE (LOGXOR OFFSET 3))) (T (V\GETBASEBYTE CODEBASE OFFSET)))) CODEBASE (IPLUS NT1 I)) OUTF)) (SPACES 2 OUTF) (PRINTNUM I4 NT2 OUTF) (PRIN1 ": " OUTF) (COND ((SETQ NAME (VATOM (CODEBASEGETNAME CODEBASE NT1))) (SETQ TAG (GETNTOFFSET CODEBASE NT2)) (printout OUTF .SP 1 (SELECTC (NTSLOT-VARTYPE (GETNTOFFSETENTRY CODEBASE NT2)) (0 (push IVARS (LIST TAG NAME)) (QUOTE IVAR)) (32768 (push PVARS (LIST TAG NAME)) (QUOTE PVAR)) (PROGN (push FVARS (LIST TAG NAME)) (QUOTE FVAR))) " " TAG ": " .P2 NAME))) (TERPRI OUTF)))))) +(LAMBDA (STR START1 START2) (DECLARE (USEDFREE CODEBASE IVARS PVARS FVARS I4 I6 OUTF)) (*) (*) (LET (NAME TAG) (COND ((ILESSP START1 (SETQ START2 (IPLUS START2 START1))) (|printout| OUTF STR T) (|for| NT1 |from| START1 |by| (LLSH (CONSTANT (PROGN 2)) 1) |while| (ILESSP NT1 START2) |as| NT2 |from| START2 |by| (LLSH (PROGN 2) 1) |do| (PRINTNUM I4 NT1 OUTF) (PRIN1 ": " OUTF) (|for| I |from| 0 |to| (CONSTANT (SUB1 (LLSH (CONSTANT (PROGN 2)) 1))) |do| (PRINTNUM I4 ((LAMBDA (CODEBASE OFFSET) (DECLARE (LOCALVARS CODEBASE OFFSET)) (COND ((NEQ 0 (LOGAND (LRSH (VGETBASE CODEBASE 4) 14) 1)) (V\\GETBASEBYTE CODEBASE (LOGXOR OFFSET 3))) (T (V\\GETBASEBYTE CODEBASE OFFSET)))) CODEBASE (IPLUS NT1 I)) OUTF)) (SPACES 2 OUTF) (PRINTNUM I4 NT2 OUTF) (PRIN1 ": " OUTF) (COND ((SETQ NAME (VATOM (CODEBASEGETNAME CODEBASE NT1))) (SETQ TAG (GETNTOFFSET CODEBASE NT2)) (|printout| OUTF .SP 1 (SELECTC (NTSLOT-VARTYPE (GETNTOFFSETENTRY CODEBASE NT2)) (0 (|push| IVARS (LIST TAG NAME)) (QUOTE IVAR)) (32768 (|push| PVARS (LIST TAG NAME)) (QUOTE PVAR)) (PROGN (|push| FVARS (LIST TAG NAME)) (QUOTE FVAR))) " " TAG ": " .P2 NAME))) (TERPRI OUTF)))))) ) (VBROKENDEF -(LAMBDA (DEF WHEN) (*) (PROG ((CA (V\GET-COMPILED-CODE-BASE DEF)) BEFORE AFTER SIZE FIRSTBYTE NEWCA) (SETQ FIRSTBYTE (VGETBASE CA 3)) NIL (*) (PROGN (*) (PROGN (*) (SETQ NEWCA CA) (SETQ AFTER T)) (*) (COND (AFTER (*) (bind OP do (SELECTQ (CADR (SETQ OP (\FINDOP (COND ((NEQ 0 (LOGAND (LRSH (VGETBASE NEWCA 4) 14) 1)) (V\GETBASEBYTE NEWCA (LOGXOR FIRSTBYTE 3))) (T (V\GETBASEBYTE NEWCA FIRSTBYTE)))))) (-X- (RETURN)) (GCONST NIL) (RETURN ((LAMBDA (CODEBASE OFFSET NEWVALUE) (DECLARE (LOCALVARS CODEBASE OFFSET NEWVALUE)) (COND ((NEQ 0 (LOGAND (LRSH (VGETBASE CODEBASE 4) 14) 1)) (V\PUTBASEBYTE CODEBASE (LOGXOR OFFSET 3) NEWVALUE)) (T (V\PUTBASEBYTE CODEBASE OFFSET NEWVALUE)))) NEWCA FIRSTBYTE (V\CAR.UFN (\FINDOP (QUOTE \RETURN))))) NIL) (SETQ FIRSTBYTE (PLUS FIRSTBYTE 1 (CADDR OP))))))) (RETURN NEWCA))) +(LAMBDA (DEF WHEN) (*) (PROG ((CA (V\\GET-COMPILED-CODE-BASE DEF)) BEFORE AFTER SIZE FIRSTBYTE NEWCA) (SETQ FIRSTBYTE (VGETBASE CA 3)) NIL (*) (PROGN (*) (PROGN (*) (SETQ NEWCA CA) (SETQ AFTER T)) (*) (COND (AFTER (*) (|bind| OP |do| (SELECTQ (CADR (SETQ OP (\\FINDOP (COND ((NEQ 0 (LOGAND (LRSH (VGETBASE NEWCA 4) 14) 1)) (V\\GETBASEBYTE NEWCA (LOGXOR FIRSTBYTE 3))) (T (V\\GETBASEBYTE NEWCA FIRSTBYTE)))))) (-X- (RETURN)) (GCONST NIL) (RETURN ((LAMBDA (CODEBASE OFFSET NEWVALUE) (DECLARE (LOCALVARS CODEBASE OFFSET NEWVALUE)) (COND ((NEQ 0 (LOGAND (LRSH (VGETBASE CODEBASE 4) 14) 1)) (V\\PUTBASEBYTE CODEBASE (LOGXOR OFFSET 3) NEWVALUE)) (T (V\\PUTBASEBYTE CODEBASE OFFSET NEWVALUE)))) NEWCA FIRSTBYTE (V\\CAR.UFN (\\FINDOP (QUOTE \\RETURN))))) NIL) (SETQ FIRSTBYTE (PLUS FIRSTBYTE 1 (CADDR OP))))))) (RETURN NEWCA))) ) ) (DEFINEQ -(V\CAR.UFN -(LAMBDA (X) (*) (*) (*) (COND ((VLISTP X) (COND ((ZEROP 1) (VGETBASEPTR X 0)) (T (COND ((EQ (LRSH (VGETBASE X 0) 12) 0) (VGETBASEPTR (VGETBASEPTR X 0) 0)) (T (VGETBASEPTR X 0)))))) ((NULL X) NIL) (T (SELECTQ T (T (LISPERROR "ARG NOT LIST" X)) ((NIL V\CDR.UFN) (COND ((EQ X T) T) ((LITATOM X) NIL) (T (QUOTE "{car of non-list}")))) (COND ((EQ X T) T) ((STRINGP X) (LISPERROR "ARG NOT LIST" X)) (T (QUOTE "{car of non-list}"))))))) +(V\\CAR.UFN +(LAMBDA (X) (*) (*) (*) (COND ((VLISTP X) (COND ((ZEROP 1) (VGETBASEPTR X 0)) (T (COND ((EQ (LRSH (VGETBASE X 0) 12) 0) (VGETBASEPTR (VGETBASEPTR X 0) 0)) (T (VGETBASEPTR X 0)))))) ((NULL X) NIL) (T (SELECTQ T (T (LISPERROR "ARG NOT LIST" X)) ((NIL V\\CDR.UFN) (COND ((EQ X T) T) ((LITATOM X) NIL) (T (QUOTE "{car of non-list}")))) (COND ((EQ X T) T) ((STRINGP X) (LISPERROR "ARG NOT LIST" X)) (T (QUOTE "{car of non-list}"))))))) ) -(V\CDR.UFN -(LAMBDA (X) (*) (*) (*) (COND ((VLISTP X) (COND ((ZEROP 1) (VGETBASEPTR X 2)) (T (PROG ((Q (LRSH (VGETBASE X 0) 12))) (RETURN (COND ((EQ Q 8) NIL) ((IGREATERP Q 8) (VADDBASE (VVAG2 (VHILOC X) (LOGAND (VLOLOC X) 65280)) (LLSH (IDIFFERENCE Q 8) 1))) ((EQ Q 0) (V\CDR.UFN (VGETBASEPTR X 0))) (T (VGETBASEPTR (VADDBASE (VVAG2 (VHILOC X) (LOGAND (VLOLOC X) 65280)) (LLSH Q 1)) 0)))))))) ((NULL X) NIL) (T (SELECTQ T ((T V\CDR.UFN) (LISPERROR "ARG NOT LIST" X)) (NIL (COND ((LITATOM X) (VGETPROPLIST X)) (T "{cdr of non-list}"))) (COND ((STRINGP X) (LISPERROR "ARG NOT LIST" X)) (T "{cdr of non-list}")))))) +(V\\CDR.UFN +(LAMBDA (X) (*) (*) (*) (COND ((VLISTP X) (COND ((ZEROP 1) (VGETBASEPTR X 2)) (T (PROG ((Q (LRSH (VGETBASE X 0) 12))) (RETURN (COND ((EQ Q 8) NIL) ((IGREATERP Q 8) (VADDBASE (VVAG2 (VHILOC X) (LOGAND (VLOLOC X) 65280)) (LLSH (IDIFFERENCE Q 8) 1))) ((EQ Q 0) (V\\CDR.UFN (VGETBASEPTR X 0))) (T (VGETBASEPTR (VADDBASE (VVAG2 (VHILOC X) (LOGAND (VLOLOC X) 65280)) (LLSH Q 1)) 0)))))))) ((NULL X) NIL) (T (SELECTQ T ((T V\\CDR.UFN) (LISPERROR "ARG NOT LIST" X)) (NIL (COND ((LITATOM X) (VGETPROPLIST X)) (T "{cdr of non-list}"))) (COND ((STRINGP X) (LISPERROR "ARG NOT LIST" X)) (T "{cdr of non-list}")))))) ) ) (DEFINEQ -(V\COPY -(LAMBDA (X) (*) (*) (SELECTQ (TYPENAME X) ((LITATOM NEW-ATOM) (VATOMNUMBER X T)) (VLISTP (PROG ((R (REVERSE X)) (V (V\COPY (CDR (LAST X))))) LP (COND ((LISTP R) (SETQ V (CONS (V\COPY (CAR R)) V)) (SETQ R (CDR R)) (GO LP))) (RETURN V))) ((FIXP SMALLP) (PROG (V) (COND ((IGREATERP 0 X) (*) (COND ((IGREATERP X -65537) (*) (RETURN (VADDBASE (VVAG2 15 0) (LOGAND X 65535)))))) ((ILESSP X 65536) (*) (RETURN (VADDBASE (VVAG2 14 0) X)))) (*) (SETQ V (CREATECELL 2)) (VPUTBASE V 0 (LOGOR (COND ((IGREATERP 0 X) 32768) (T 0)) (LOGAND (LRSH X 16) 32767))) (VPUTBASE V 1 (LOGAND X 65535)) (RETURN V))) (ONED-ARRAY (%%COPY-ONED-ARRAY X)) (STRINGP (*) (%%COPY-STRING-TO-ARRAY X)) (FLOATP (PROG ((VAL (CREATECELL 3))) (SELECTQ (SYSTEMTYPE) ((ALTO D) (VPUTBASE VAL 0 (\GETBASE X 0)) (VPUTBASE VAL 1 (\GETBASE X 1))) (MKI.IEEE X VAL)) (RETURN VAL))) (CHARACTER (VVAG2 7 (CL:CHAR-CODE X))) (ERROR X "can't be copied to remote file"))) +(V\\COPY +(LAMBDA (X) (*) (*) (SELECTQ (TYPENAME X) ((LITATOM NEW-ATOM) (VATOMNUMBER X T)) (VLISTP (PROG ((R (REVERSE X)) (V (V\\COPY (CDR (LAST X))))) LP (COND ((LISTP R) (SETQ V (CONS (V\\COPY (CAR R)) V)) (SETQ R (CDR R)) (GO LP))) (RETURN V))) ((FIXP SMALLP) (PROG (V) (COND ((IGREATERP 0 X) (*) (COND ((IGREATERP X -65537) (*) (RETURN (VADDBASE (VVAG2 15 0) (LOGAND X 65535)))))) ((ILESSP X 65536) (*) (RETURN (VADDBASE (VVAG2 14 0) X)))) (*) (SETQ V (CREATECELL 2)) (VPUTBASE V 0 (LOGOR (COND ((IGREATERP 0 X) 32768) (T 0)) (LOGAND (LRSH X 16) 32767))) (VPUTBASE V 1 (LOGAND X 65535)) (RETURN V))) (ONED-ARRAY (%COPY-ONED-ARRAY X)) (STRINGP (*) (%COPY-STRING-TO-ARRAY X)) (FLOATP (PROG ((VAL (CREATECELL 3))) (SELECTQ (SYSTEMTYPE) ((ALTO D) (VPUTBASE VAL 0 (\\GETBASE X 0)) (VPUTBASE VAL 1 (\\GETBASE X 1))) (MKI.IEEE X VAL)) (RETURN VAL))) (CHARACTER (VVAG2 7 (CL:CHAR-CODE X))) (ERROR X "can't be copied to remote file"))) ) -(V\UNCOPY -(LAMBDA (X CARLVL CDRLVL) (*) (SELECTC (VNTYPX X) (1 (COND ((EQ (VHILOC X) 14) (*) (VLOLOC X)) (T (IPLUS (VLOLOC X) -65536)))) (2 (*) (create FIXP HINUM _ (VGETBASE X 0) LONUM _ (VGETBASE X 1))) (3 (create FLOATP HIWORD _ (VGETBASE X 0) LOWORD _ (VGETBASE X 1))) (4 (VATOM (VLOLOC X))) (7 (PROG ((PTR (COND ((NEQ 0 (LOGAND (LRSH (VGETBASE X 2) 14) 1)) (%%ARRAY-BASE X)) (T (VGETBASEPTR X 0)))) (OFFST (COND ((NEQ 0 (LOGAND (LRSH (VGETBASE X 2) 14) 1)) (%%ARRAY-OFFSET X)) (T (VGETBASE X 3)))) (LENGTH (\GETBASEFIXP X 4)) (I 1) STR) (*) (SETQ STR (ALLOCSTRING LENGTH)) (FRPTQ LENGTH (RPLSTRING STR I (FCHARACTER (V\GETBASEBYTE PTR OFFST))) (SETQ I (PLUS I 1)) (SETQ OFFST (PLUS OFFST 1))) (RETURN STR))) (9 (\VAG2 7 (VLOLOC X))) (%%ONED-ARRAY (LET ((SIZE (\GETBASEFIXP X 6)) (BASE (VGETBASEPTR X 0)) (OFFSET (VGETBASE X 3)) (TYPENUMBER (LOGAND (VGETBASE X 2) 255)) NCELLS LOCAL-ARRAY LOCAL-BASE) (if (EQ (%%TYPENUMBER-TO-GC-TYPE TYPENUMBER) 1) then (VTYPEDPOINTER (VTYPENAME X) X) else (SETQ NCELLS (LRSH (IPLUS (ITIMES (IPLUS SIZE OFFSET) (%%TYPENUMBER-TO-BITS-PER-ELEMENT TYPENUMBER)) 31) 5)) (SETQ LOCAL-ARRAY (create ONED-ARRAY)) (SETQ LOCAL-BASE (\ALLOCBLOCK NCELLS)) (freplace (ONED-ARRAY BASE) of LOCAL-ARRAY with LOCAL-BASE) (freplace (ONED-ARRAY STRING-P) of LOCAL-ARRAY with (%%CHAR-TYPE-P TYPENUMBER)) (freplace (ONED-ARRAY FILL-POINTER-P) of LOCAL-ARRAY with (NEQ 0 (LOGAND (LRSH (VGETBASE X 2) 9) 1))) (freplace (ONED-ARRAY TYPE-NUMBER) of LOCAL-ARRAY with TYPENUMBER) (freplace (ONED-ARRAY FILL-POINTER) of LOCAL-ARRAY with (\GETBASEFIXP X 4)) (if (NEQ OFFSET 0) then (freplace (ONED-ARRAY OFFSET) of LOCAL-ARRAY with OFFSET) (freplace (ONED-ARRAY DISPLACED-P) of LOCAL-ARRAY with T)) (freplace (ONED-ARRAY TOTAL-SIZE) of LOCAL-ARRAY with SIZE) (for I from 0 to (SUB1 (LLSH NCELLS 1)) do (\PUTBASE LOCAL-BASE I (VGETBASE BASE I))) LOCAL-ARRAY))) (5 (COND ((VLISTP X) (COND ((EQ CDRLVL 0) (*) (QUOTE (--))) (T (CONS (COND ((OR (EQ CARLVL 0) (AND (OR (EQ CARLVL 1) (EQ CDRLVL 1)) (VLISTP (V\CAR.UFN X)))) (QUOTE &)) (T (V\UNCOPY (V\CAR.UFN X) (AND CARLVL (SUB1 CARLVL)) (AND CDRLVL (SUB1 CDRLVL))))) (V\UNCOPY (V\CDR.UFN X) CARLVL (AND CDRLVL (SUB1 CDRLVL))))))) (T (*) (VTYPEDPOINTER (QUOTE LISTP) X)))) (0 (VTYPEDPOINTER NIL X)) (VTYPEDPOINTER (VTYPENAME X) X))) +(V\\UNCOPY +(LAMBDA (X CARLVL CDRLVL) (*) (SELECTC (VNTYPX X) (1 (COND ((EQ (VHILOC X) 14) (*) (VLOLOC X)) (T (IPLUS (VLOLOC X) -65536)))) (2 (*) (|create| FIXP HINUM _ (VGETBASE X 0) LONUM _ (VGETBASE X 1))) (3 (|create| FLOATP HIWORD _ (VGETBASE X 0) LOWORD _ (VGETBASE X 1))) (4 (VATOM (VLOLOC X))) (7 (PROG ((PTR (COND ((NEQ 0 (LOGAND (LRSH (VGETBASE X 2) 14) 1)) (%ARRAY-BASE X)) (T (VGETBASEPTR X 0)))) (OFFST (COND ((NEQ 0 (LOGAND (LRSH (VGETBASE X 2) 14) 1)) (%ARRAY-OFFSET X)) (T (VGETBASE X 3)))) (LENGTH (\\GETBASEFIXP X 4)) (I 1) STR) (*) (SETQ STR (ALLOCSTRING LENGTH)) (FRPTQ LENGTH (RPLSTRING STR I (FCHARACTER (V\\GETBASEBYTE PTR OFFST))) (SETQ I (PLUS I 1)) (SETQ OFFST (PLUS OFFST 1))) (RETURN STR))) (9 (\\VAG2 7 (VLOLOC X))) (%ONED-ARRAY (LET ((SIZE (\\GETBASEFIXP X 6)) (BASE (VGETBASEPTR X 0)) (OFFSET (VGETBASE X 3)) (TYPENUMBER (LOGAND (VGETBASE X 2) 255)) NCELLS LOCAL-ARRAY LOCAL-BASE) (|if| (EQ (%TYPENUMBER-TO-GC-TYPE TYPENUMBER) 1) |then| (VTYPEDPOINTER (VTYPENAME X) X) |else| (SETQ NCELLS (LRSH (IPLUS (ITIMES (IPLUS SIZE OFFSET) (%TYPENUMBER-TO-BITS-PER-ELEMENT TYPENUMBER)) 31) 5)) (SETQ LOCAL-ARRAY (|create| ONED-ARRAY)) (SETQ LOCAL-BASE (\\ALLOCBLOCK NCELLS)) (|freplace| (ONED-ARRAY BASE) |of| LOCAL-ARRAY |with| LOCAL-BASE) (|freplace| (ONED-ARRAY STRING-P) |of| LOCAL-ARRAY |with| (%CHAR-TYPE-P TYPENUMBER)) (|freplace| (ONED-ARRAY FILL-POINTER-P) |of| LOCAL-ARRAY |with| (NEQ 0 (LOGAND (LRSH (VGETBASE X 2) 9) 1))) (|freplace| (ONED-ARRAY TYPE-NUMBER) |of| LOCAL-ARRAY |with| TYPENUMBER) (|freplace| (ONED-ARRAY FILL-POINTER) |of| LOCAL-ARRAY |with| (\\GETBASEFIXP X 4)) (|if| (NEQ OFFSET 0) |then| (|freplace| (ONED-ARRAY OFFSET) |of| LOCAL-ARRAY |with| OFFSET) (|freplace| (ONED-ARRAY DISPLACED-P) |of| LOCAL-ARRAY |with| T)) (|freplace| (ONED-ARRAY TOTAL-SIZE) |of| LOCAL-ARRAY |with| SIZE) (|for| I |from| 0 |to| (SUB1 (LLSH NCELLS 1)) |do| (\\PUTBASE LOCAL-BASE I (VGETBASE BASE I))) LOCAL-ARRAY))) (5 (COND ((VLISTP X) (COND ((EQ CDRLVL 0) (*) (QUOTE (--))) (T (CONS (COND ((OR (EQ CARLVL 0) (AND (OR (EQ CARLVL 1) (EQ CDRLVL 1)) (VLISTP (V\\CAR.UFN X)))) (QUOTE &)) (T (V\\UNCOPY (V\\CAR.UFN X) (AND CARLVL (SUB1 CARLVL)) (AND CDRLVL (SUB1 CDRLVL))))) (V\\UNCOPY (V\\CDR.UFN X) CARLVL (AND CDRLVL (SUB1 CDRLVL))))))) (T (*) (VTYPEDPOINTER (QUOTE LISTP) X)))) (0 (VTYPEDPOINTER NIL X)) (VTYPEDPOINTER (VTYPENAME X) X))) ) ) (DEFINEQ -(V\GETBASEBYTE +(V\\GETBASEBYTE (LAMBDA (PTR N) (*) (*) (COND ((EVENP N) (LRSH (PROGN (VGETBASE PTR (LRSH N 1))) 8)) (T (LOGAND (PROGN (VGETBASE PTR (LRSH N 1))) 255)))) ) -(V\PUTBASEBYTE -(LAMBDA (PTR DISP BYTE) (*) (*) (SETQ BYTE (PROG1 BYTE)) (VPUTBASE PTR (LRSH (SETQ DISP (\DTEST DISP (QUOTE SMALLP))) 1) (COND ((EVENP DISP 2) ((LAMBDA ($$1) (IPLUS (LLSH BYTE 8) (LOGAND $$1 255))) (VGETBASE PTR (LRSH DISP 1)))) (T ((LAMBDA ($$1) (IPLUS (LLSH (LRSH $$1 8) 8) BYTE)) (VGETBASE PTR (LRSH DISP 1)))))) BYTE) +(V\\PUTBASEBYTE +(LAMBDA (PTR DISP BYTE) (*) (*) (SETQ BYTE (PROG1 BYTE)) (VPUTBASE PTR (LRSH (SETQ DISP (\\DTEST DISP (QUOTE SMALLP))) 1) (COND ((EVENP DISP 2) ((LAMBDA ($$1) (IPLUS (LLSH BYTE 8) (LOGAND $$1 255))) (VGETBASE PTR (LRSH DISP 1)))) (T ((LAMBDA ($$1) (IPLUS (LLSH (LRSH $$1 8) 8) BYTE)) (VGETBASE PTR (LRSH DISP 1)))))) BYTE) ) ) (DEFINEQ @@ -195,11 +195,11 @@ ) (VTYPENAME -(LAMBDA (X) (*) (*) (*) (LET ((N (VNTYPX X))) (COND ((EQ N 6) ((LAMBDA (X) (QUOTE ARRAYP)) X)) ((%%STRINGP X) (*) (QUOTE STRINGP)) ((EQ (QUOTE NEW-ATOM) (SETQ N (VATOM (VGETBASEPTR (VADDBASE (VVAG2 20 4096) (ITIMES N 18)) 0)))) (*) (QUOTE LITATOM)) (T N)))) +(LAMBDA (X) (*) (*) (*) (LET ((N (VNTYPX X))) (COND ((EQ N 6) ((LAMBDA (X) (QUOTE ARRAYP)) X)) ((%STRINGP X) (*) (QUOTE STRINGP)) ((EQ (QUOTE NEW-ATOM) (SETQ N (VATOM (VGETBASEPTR (VADDBASE (VVAG2 20 4096) (ITIMES N 18)) 0)))) (*) (QUOTE LITATOM)) (T N)))) ) -(V\TYPENAMEFROMNUMBER -(LAMBDA (N) (*) (COND ((ILESSP N (ADD1 VMaxTypeNumber)) (VATOM (VGETBASEPTR (VADDBASE (VVAG2 20 4096) (ITIMES N 18)) 0))))) +(V\\TYPENAMEFROMNUMBER +(LAMBDA (N) (*) (COND ((ILESSP N (ADD1 |VMaxTypeNumber|)) (VATOM (VGETBASEPTR (VADDBASE (VVAG2 20 4096) (ITIMES N 18)) 0))))) ) ) (DEFINEQ @@ -217,51 +217,51 @@ ) (VSYMBOL.PNAME -(LAMBDA (N BUFFER) (*) (*) (SETQ BUFFER (OR BUFFER (ALLOCSTRING \PNAMELIMIT))) (PROG (ADDR LEN) (*) (COND (NIL (SETQ ADDR (VGETBASEPTR (VADDBASE (VADDBASE (VVAG2 8 0) N) N) 0))) (T (SETQ ADDR (VGETBASEPTR (VADDBASE (VVAG2 44 0) (IPLUS (ITIMES (LOGAND N 65535) 10) 0)) 0)))) (SETQ LEN (V\GETBASEBYTE ADDR 0)) (for I from 1 to LEN do (RPLSTRING BUFFER I (FCHARACTER (V\GETBASEBYTE ADDR I)))) (RETURN (SUBSTRING BUFFER 1 LEN)))) +(LAMBDA (N BUFFER) (*) (*) (SETQ BUFFER (OR BUFFER (ALLOCSTRING \\PNAMELIMIT))) (PROG (ADDR LEN) (*) (COND (NIL (SETQ ADDR (VGETBASEPTR (VADDBASE (VADDBASE (VVAG2 8 0) N) N) 0))) (T (SETQ ADDR (VGETBASEPTR (VADDBASE (VVAG2 44 0) (IPLUS (ITIMES (LOGAND N 65535) 10) 0)) 0)))) (SETQ LEN (V\\GETBASEBYTE ADDR 0)) (|for| I |from| 1 |to| LEN |do| (RPLSTRING BUFFER I (FCHARACTER (V\\GETBASEBYTE ADDR I)))) (RETURN (SUBSTRING BUFFER 1 LEN)))) ) (VSYMBOL.PACKAGE -(LAMBDA (N) (*) (*) (PROG ((INDEX (COND (NIL (*) (LRSH (VGETBASE (VADDBASE (VADDBASE (VVAG2 8 0) N) N) 0) 8)) (NIL (T (LRSH (VGETBASE (VADDBASE (VVAG2 44 0) (IPLUS (ITIMES 10 N) 0 8)) 0) 8))) (T (LRSH (VGETBASE (V\ATOMCELL N 8) 8) 8))))) (RETURN (COND ((EQ INDEX *UNINTERNED-PACKAGE-INDEX*) NIL) (T (VGETBASEPTR (VGETBASEPTR READSYS.PACKAGE.FROM.INDEX 0) (LLSH INDEX 1))))))) +(LAMBDA (N) (*) (*) (PROG ((INDEX (COND (NIL (*) (LRSH (VGETBASE (VADDBASE (VADDBASE (VVAG2 8 0) N) N) 0) 8)) (NIL (T (LRSH (VGETBASE (VADDBASE (VVAG2 44 0) (IPLUS (ITIMES 10 N) 0 8)) 0) 8))) (T (LRSH (VGETBASE (V\\ATOMCELL N 8) 8) 8))))) (RETURN (COND ((EQ INDEX *UNINTERNED-PACKAGE-INDEX*) NIL) (T (VGETBASEPTR (VGETBASEPTR READSYS.PACKAGE.FROM.INDEX 0) (LLSH INDEX 1))))))) ) (VOLD.FIND.SYMBOL -(LAMBDA (BASE OFFST LEN FATP NONNUMERICP) (*) (PROG ((FATCHARSEENP (AND FATP (NOT (NULL (for I from OFFST to (SUB1 (IPLUS OFFST LEN)) suchthat (IGREATERP (VGETBASE BASE I) 255)))))) HASH HASHENT ATM# PNBASE FIRSTCHAR FIRSTBYTE REPROBE) (*) (COND ((EQ LEN 0) (*) (SETQ HASH 0) (SETQ FIRSTBYTE 255) (GO LP))) (SETQ FIRSTCHAR (NTHCHARCODE BASE OFFST)) (*) NIL (*) (SETQ FIRSTBYTE (LOGAND FIRSTCHAR 255)) (*) (PROGN (*) (SETQ HASH (LLSH FIRSTBYTE 8)) (for CHAR# from (ADD1 OFFST) to (SUB1 (IPLUS OFFST LEN)) do (SETQ HASH (IPLUS16 (IPLUS16 (SETQ HASH (IPLUS16 HASH (LLSH (LOGAND HASH 4095) 2))) (LLSH (LOGAND HASH 255) 8)) (NTHCHARCODE BASE CHAR#))))) (*) LP (*) (COND ((NEQ 0 (SETQ HASHENT (VGETBASE (VVAG2 21 0) HASH))) (*) (COND ((STREQUAL (CL:SYMBOL-NAME BASE) (VSYMBOL.PNAME (SETQ ATM# (SUB1 HASHENT)))) (RETURN ATM#)) (T (*) (SETQ HASH (IPLUS16 HASH (OR REPROBE (SETQ REPROBE (LOGAND 63 (LOGOR 1 (LOGXOR FIRSTBYTE HASH))))))) (GO LP))))) (*) (RETURN (PROGN (LET ((NEWATOM (VNOSUCHATOM BASE OFFST LEN FATP FATCHARSEENP))) NIL NEWATOM))))) +(LAMBDA (BASE OFFST LEN FATP NONNUMERICP) (*) (PROG ((FATCHARSEENP (AND FATP (NOT (NULL (|for| I |from| OFFST |to| (SUB1 (IPLUS OFFST LEN)) |suchthat| (IGREATERP (VGETBASE BASE I) 255)))))) HASH HASHENT ATM# PNBASE FIRSTCHAR FIRSTBYTE REPROBE) (*) (COND ((EQ LEN 0) (*) (SETQ HASH 0) (SETQ FIRSTBYTE 255) (GO LP))) (SETQ FIRSTCHAR (NTHCHARCODE BASE OFFST)) (*) NIL (*) (SETQ FIRSTBYTE (LOGAND FIRSTCHAR 255)) (*) (PROGN (*) (SETQ HASH (LLSH FIRSTBYTE 8)) (|for| CHAR# |from| (ADD1 OFFST) |to| (SUB1 (IPLUS OFFST LEN)) |do| (SETQ HASH (IPLUS16 (IPLUS16 (SETQ HASH (IPLUS16 HASH (LLSH (LOGAND HASH 4095) 2))) (LLSH (LOGAND HASH 255) 8)) (NTHCHARCODE BASE CHAR#))))) (*) LP (*) (COND ((NEQ 0 (SETQ HASHENT (VGETBASE (VVAG2 21 0) HASH))) (*) (COND ((STREQUAL (CL:SYMBOL-NAME BASE) (VSYMBOL.PNAME (SETQ ATM# (SUB1 HASHENT)))) (RETURN ATM#)) (T (*) (SETQ HASH (IPLUS16 HASH (OR REPROBE (SETQ REPROBE (LOGAND 63 (LOGOR 1 (LOGXOR FIRSTBYTE HASH))))))) (GO LP))))) (*) (RETURN (PROGN (LET ((NEWATOM (VNOSUCHATOM BASE OFFST LEN FATP FATCHARSEENP))) NIL NEWATOM))))) ) (VLOOKUP-SYMBOL -(LAMBDA (TABLE STRING SXHASH ENTRY-HASH) (*) (*) (LET* ((VEC (VGETBASEPTR TABLE 0)) (*) (HASH (VGETBASEPTR TABLE 2)) (*) (LEN (\GETBASEFIXP VEC 6)) (*) (H2 (ADD1 (IREMAINDER SXHASH (IDIFFERENCE LEN 2)))) (*)) (DECLARE (TYPE (CL:SIMPLE-ARRAY (CL:UNSIGNED-BYTE 8)) HASH) (TYPE (CL:SIMPLE-ARRAY (CL:UNSIGNED-BYTE 16)) VEC)) (PROG ((INDEX-VAR (IREMAINDER SXHASH LEN)) SYMBOL-NUMBER EHASH) (IF NIL THEN (CL:FORMAT T "Probe @ ~s~%%" INDEX-VAR)) LOOP (SETQ EHASH (V\GETBASEBYTE (VGETBASEPTR HASH 0) INDEX-VAR)) (*) (COND ((EQL EHASH ENTRY-HASH) (IF NIL THEN (CL:FORMAT T "Entry hash MATCHES~%%")) (LET ((SYMBOL-NAME (VSYMBOL.PNAME (SETQ SYMBOL-NUMBER (VGETBASE (VGETBASEPTR VEC 0) INDEX-VAR))))) (*) (IF NIL THEN (CL:FORMAT T "Got symbol index~%%")) (*) (COND ((STREQUAL SYMBOL-NAME STRING) (IF NIL THEN (CL:FORMAT T " found~%%")) (GO DOIT)) (T (IF NIL THEN (CL:FORMAT T "Didn't match~%%")))))) ((EQL 0 EHASH) (IF NIL THEN (CL:FORMAT T "Hit deleted entry (no match)~%%")) (SETQ INDEX-VAR NIL) (GO DOIT)) (T (IF NIL THEN (CL:FORMAT T "Entry hash does not match~%%")))) (SETQ INDEX-VAR (IREMAINDER (IPLUS INDEX-VAR H2) LEN)) (*) (IF NIL THEN (CL:FORMAT T "Reprobe @ ~s~%%" INDEX-VAR)) (GO LOOP) DOIT (RETURN SYMBOL-NUMBER)))) +(LAMBDA (TABLE STRING SXHASH ENTRY-HASH) (*) (*) (LET* ((VEC (VGETBASEPTR TABLE 0)) (*) (HASH (VGETBASEPTR TABLE 2)) (*) (LEN (\\GETBASEFIXP VEC 6)) (*) (H2 (ADD1 (IREMAINDER SXHASH (IDIFFERENCE LEN 2)))) (*)) (DECLARE (TYPE (CL:SIMPLE-ARRAY (CL:UNSIGNED-BYTE 8)) HASH) (TYPE (CL:SIMPLE-ARRAY (CL:UNSIGNED-BYTE 16)) VEC)) (PROG ((INDEX-VAR (IREMAINDER SXHASH LEN)) SYMBOL-NUMBER EHASH) (IF NIL THEN (CL:FORMAT T "Probe @ ~s~%" INDEX-VAR)) LOOP (SETQ EHASH (V\\GETBASEBYTE (VGETBASEPTR HASH 0) INDEX-VAR)) (*) (COND ((EQL EHASH ENTRY-HASH) (IF NIL THEN (CL:FORMAT T "Entry hash MATCHES~%")) (LET ((SYMBOL-NAME (VSYMBOL.PNAME (SETQ SYMBOL-NUMBER (VGETBASE (VGETBASEPTR VEC 0) INDEX-VAR))))) (*) (IF NIL THEN (CL:FORMAT T "Got symbol index~%")) (*) (COND ((STREQUAL SYMBOL-NAME STRING) (IF NIL THEN (CL:FORMAT T " found~%")) (GO DOIT)) (T (IF NIL THEN (CL:FORMAT T "Didn't match~%")))))) ((EQL 0 EHASH) (IF NIL THEN (CL:FORMAT T "Hit deleted entry (no match)~%")) (SETQ INDEX-VAR NIL) (GO DOIT)) (T (IF NIL THEN (CL:FORMAT T "Entry hash does not match~%")))) (SETQ INDEX-VAR (IREMAINDER (IPLUS INDEX-VAR H2) LEN)) (*) (IF NIL THEN (CL:FORMAT T "Reprobe @ ~s~%" INDEX-VAR)) (GO LOOP) DOIT (RETURN SYMBOL-NUMBER)))) ) (VFIND.PACKAGE -(LAMBDA (NAME) (*) (*) (PROG ((ITEM (MKSTRING NAME)) (HA READSYS.PACKAGE.FROM.NAME) BITS INDEX SLOT SKEY FIRSTINDEX REPROBE LIMIT ABASE VALUE) (SETQ BITS (STRINGHASHBITS ITEM)) (SETQ INDEX (LOGAND BITS (VGETBASE HA 1))) (*) (SETQ ABASE (VGETBASEPTR HA 2)) (SETQ FIRSTINDEX INDEX) (SETQ REPROBE (LOGOR (LOGAND (LOGXOR BITS (LRSH BITS 8)) (IMIN 63 (VGETBASE HA 1))) 1)) (*) (SETQ LIMIT (VGETBASE HA 1)) LP (SETQ SLOT ((LAMBDA (BASEA0200) (DECLARE (LOCALVARS BASEA0200)) (VADDBASE (VADDBASE BASEA0200 INDEX) INDEX)) (VADDBASE (VADDBASE ABASE INDEX) INDEX))) (*) (COND ((SETQ VALUE (VGETBASEPTR SLOT 2)) (*) (SETQ SKEY (V\UNCOPY (VGETBASEPTR SLOT 0))) (COND ((STREQUAL ITEM SKEY) (*) (GO FOUND)))) ((NULL (VGETBASEPTR SLOT 0)) (*) (RETURN NIL))) (SETQ INDEX (LOGAND (IPLUS16 INDEX REPROBE) LIMIT)) (*) (COND ((EQ INDEX FIRSTINDEX) (*) (SHOULDNT "Hashing in full hash table"))) (GO LP) FOUND (RETURN (AND (NEQ VALUE \HASH.NULL.VALUE) VALUE)))) +(LAMBDA (NAME) (*) (*) (PROG ((ITEM (MKSTRING NAME)) (HA READSYS.PACKAGE.FROM.NAME) BITS INDEX SLOT SKEY FIRSTINDEX REPROBE LIMIT ABASE VALUE) (SETQ BITS (STRINGHASHBITS ITEM)) (SETQ INDEX (LOGAND BITS (VGETBASE HA 1))) (*) (SETQ ABASE (VGETBASEPTR HA 2)) (SETQ FIRSTINDEX INDEX) (SETQ REPROBE (LOGOR (LOGAND (LOGXOR BITS (LRSH BITS 8)) (IMIN 63 (VGETBASE HA 1))) 1)) (*) (SETQ LIMIT (VGETBASE HA 1)) LP (SETQ SLOT ((LAMBDA (BASEA0195) (DECLARE (LOCALVARS BASEA0195)) (VADDBASE (VADDBASE BASEA0195 INDEX) INDEX)) (VADDBASE (VADDBASE ABASE INDEX) INDEX))) (*) (COND ((SETQ VALUE (VGETBASEPTR SLOT 2)) (*) (SETQ SKEY (V\\UNCOPY (VGETBASEPTR SLOT 0))) (COND ((STREQUAL ITEM SKEY) (*) (GO FOUND)))) ((NULL (VGETBASEPTR SLOT 0)) (*) (RETURN NIL))) (SETQ INDEX (LOGAND (IPLUS16 INDEX REPROBE) LIMIT)) (*) (COND ((EQ INDEX FIRSTINDEX) (*) (SHOULDNT "Hashing in full hash table"))) (GO LP) FOUND (RETURN (AND (NEQ VALUE \\HASH.NULL.VALUE) VALUE)))) ) (VFIND.SYMBOL -(LAMBDA (STRING PACKAGE) (*) (*) (LET* ((LENGTH (FFETCH (STRINGP LENGTH) OF STRING)) (HASH (COND ((EQL 0 LENGTH) 0) (T (PROG* ((TERMINUS LENGTH) (HASH (LLSH (NTHCHARCODE STRING 1) 8)) (CHAR# 2)) A0355 (COND ((IGREATERP CHAR# TERMINUS) (RETURN (PROGN HASH)))) (PROGN) (SETQ HASH (IPLUS16 (IPLUS16 (SETQ HASH (IPLUS16 HASH (LLSH (LOGAND HASH 4095) 2))) (LLSH (LOGAND HASH 255) 8)) (NTHCHARCODE STRING CHAR#))) (SETQ CHAR# (ADD1 CHAR#)) (GO A0355))))) (*) (EHASH (IPLUS (IREMAINDER (LOGXOR LENGTH HASH (RSH HASH 8) (RSH HASH 16) (RSH HASH 19)) 254) 2)) (*) (SYM) (WHERE) (DONE)) (COND ((NOT (VGETBASEPTR PACKAGE 14)) (*) (IF NIL THEN (PRINT "Checking INTERNAL symbols")) (LET ((INDEX (VLOOKUP-SYMBOL (VGETBASEPTR PACKAGE 16) STRING HASH EHASH))) (*) (COND (INDEX (SETQ SYM INDEX) (SETQ WHERE :INTERNAL) (SETQ DONE T)))))) (COND ((NOT DONE) (IF NIL THEN (PRINT "Checking EXTERNAL symbols")) (LET ((INDEX (VLOOKUP-SYMBOL (VGETBASEPTR PACKAGE 18) STRING HASH EHASH))) (*) (COND (INDEX (SETQ SYM INDEX) (SETQ WHERE :EXTERNAL) (SETQ DONE T)))))) (COND ((NOT DONE) (IF NIL THEN (CL:FORMAT T "Checking USE'd packages~%%")) (LET ((HEAD (VGETBASEPTR PACKAGE 2)) (*)) (PROG ((PREV HEAD) (TABLE (V\CDR.UFN HEAD))) USED-PACKAGE-LOOP (COND ((OR DONE (NULL TABLE)) (RETURN (PROGN (CL:VALUES NIL NIL))))) (PROGN (LET ((INDEX (VLOOKUP-SYMBOL (V\CAR.UFN TABLE) STRING HASH EHASH))) (*) (COND (INDEX (COND ((NEQ PREV HEAD) (LET* ((A0347 PREV) (A0346 (V\CDR.UFN A0347)) (A0349 TABLE) (A0348 (V\CDR.UFN A0349)) (A0351 HEAD) (A0350 (V\CDR.UFN A0351))) (V\CDR.UFN (RPLACD A0347 A0348)) (V\CDR.UFN (RPLACD A0349 A0350)) (V\CDR.UFN (RPLACD A0351 TABLE)) A0346))) (SETQ SYM INDEX) (SETQ WHERE :INHERITED) (SETQ DONE T)) (T)))) (PROGN (SETQ PREV (PROG1 TABLE (PROGN (SETQ TABLE (V\CDR.UFN TABLE)) NIL))) NIL) (GO USED-PACKAGE-LOOP))))) (CL:VALUES SYM WHERE))) +(LAMBDA (STRING PACKAGE) (*) (*) (LET* ((LENGTH (FFETCH (STRINGP LENGTH) OF STRING)) (HASH (COND ((EQL 0 LENGTH) 0) (T (PROG* ((TERMINUS LENGTH) (HASH (LLSH (NTHCHARCODE STRING 1) 8)) (CHAR# 2)) A0355 (COND ((IGREATERP CHAR# TERMINUS) (RETURN (PROGN HASH)))) (PROGN) (SETQ HASH (IPLUS16 (IPLUS16 (SETQ HASH (IPLUS16 HASH (LLSH (LOGAND HASH 4095) 2))) (LLSH (LOGAND HASH 255) 8)) (NTHCHARCODE STRING CHAR#))) (SETQ CHAR# (ADD1 CHAR#)) (GO A0355))))) (*) (EHASH (IPLUS (IREMAINDER (LOGXOR LENGTH HASH (RSH HASH 8) (RSH HASH 16) (RSH HASH 19)) 254) 2)) (*) (SYM) (WHERE) (DONE)) (COND ((NOT (VGETBASEPTR PACKAGE 14)) (*) (IF NIL THEN (PRINT "Checking INTERNAL symbols")) (LET ((INDEX (VLOOKUP-SYMBOL (VGETBASEPTR PACKAGE 16) STRING HASH EHASH))) (*) (COND (INDEX (SETQ SYM INDEX) (SETQ WHERE :INTERNAL) (SETQ DONE T)))))) (COND ((NOT DONE) (IF NIL THEN (PRINT "Checking EXTERNAL symbols")) (LET ((INDEX (VLOOKUP-SYMBOL (VGETBASEPTR PACKAGE 18) STRING HASH EHASH))) (*) (COND (INDEX (SETQ SYM INDEX) (SETQ WHERE :EXTERNAL) (SETQ DONE T)))))) (COND ((NOT DONE) (IF NIL THEN (CL:FORMAT T "Checking USE'd packages~%")) (LET ((HEAD (VGETBASEPTR PACKAGE 2)) (*)) (PROG ((PREV HEAD) (TABLE (V\\CDR.UFN HEAD))) USED-PACKAGE-LOOP (COND ((OR DONE (NULL TABLE)) (RETURN (PROGN (CL:VALUES NIL NIL))))) (PROGN (LET ((INDEX (VLOOKUP-SYMBOL (V\\CAR.UFN TABLE) STRING HASH EHASH))) (*) (COND (INDEX (COND ((NEQ PREV HEAD) (LET* ((A0347 PREV) (A0346 (V\\CDR.UFN A0347)) (A0349 TABLE) (A0348 (V\\CDR.UFN A0349)) (A0351 HEAD) (A0350 (V\\CDR.UFN A0351))) (V\\CDR.UFN (RPLACD A0347 A0348)) (V\\CDR.UFN (RPLACD A0349 A0350)) (V\\CDR.UFN (RPLACD A0351 TABLE)) A0346))) (SETQ SYM INDEX) (SETQ WHERE :INHERITED) (SETQ DONE T)) (T)))) (PROGN (SETQ PREV (PROG1 TABLE (PROGN (SETQ TABLE (V\\CDR.UFN TABLE)) NIL))) NIL) (GO USED-PACKAGE-LOOP))))) (CL:VALUES SYM WHERE))) ) (VPACKAGE.NAME -(LAMBDA (RMPKG) (*) (AND RMPKG (V\UNCOPY (VGETBASEPTR RMPKG 4))))) +(LAMBDA (RMPKG) (*) (AND RMPKG (V\\UNCOPY (VGETBASEPTR RMPKG 4))))) -(V\MKATOM -(LAMBDA (BASE OFFST LEN FATP NONNUMERICP) (*) (PROG ((FATCHARSEENP (AND FATP (NOT (NULL (for I from OFFST to (SUB1 (IPLUS OFFST LEN)) suchthat (IGREATERP (VGETBASE BASE I) 255)))))) HASH HASHENT ATM# PNBASE FIRSTCHAR FIRSTBYTE REPROBE) (*) (COND ((EQ LEN 0) (*) (SETQ HASH 0) (SETQ FIRSTBYTE 255) (GO LP))) (SETQ FIRSTCHAR (NTHCHARCODE BASE OFFST)) (*) NIL (*) (SETQ FIRSTBYTE (LOGAND FIRSTCHAR 255)) (*) (PROGN (*) (SETQ HASH (LLSH FIRSTBYTE 8)) (for CHAR# from (ADD1 OFFST) to (SUB1 (IPLUS OFFST LEN)) do (SETQ HASH (IPLUS16 (IPLUS16 (SETQ HASH (IPLUS16 HASH (LLSH (LOGAND HASH 4095) 2))) (LLSH (LOGAND HASH 255) 8)) (NTHCHARCODE BASE CHAR#))))) (*) LP (*) (COND ((NEQ 0 (SETQ HASHENT (VGETBASE (VVAG2 21 0) HASH))) (*) (COND ((EQ (VATOM (SETQ ATM# (SUB1 HASHENT))) BASE) (RETURN (VADDBASE (VVAG2 0 0) ATM#))) (T (*) (SETQ HASH (IPLUS16 HASH (OR REPROBE (SETQ REPROBE (LOGAND 63 (LOGOR 1 (LOGXOR FIRSTBYTE HASH))))))) (GO LP))))) (*) (RETURN (PROGN (LET ((NEWATOM (VNOSUCHATOM BASE OFFST LEN FATP FATCHARSEENP))) NIL NEWATOM))))) +(V\\MKATOM +(LAMBDA (BASE OFFST LEN FATP NONNUMERICP) (*) (PROG ((FATCHARSEENP (AND FATP (NOT (NULL (|for| I |from| OFFST |to| (SUB1 (IPLUS OFFST LEN)) |suchthat| (IGREATERP (VGETBASE BASE I) 255)))))) HASH HASHENT ATM# PNBASE FIRSTCHAR FIRSTBYTE REPROBE) (*) (COND ((EQ LEN 0) (*) (SETQ HASH 0) (SETQ FIRSTBYTE 255) (GO LP))) (SETQ FIRSTCHAR (NTHCHARCODE BASE OFFST)) (*) NIL (*) (SETQ FIRSTBYTE (LOGAND FIRSTCHAR 255)) (*) (PROGN (*) (SETQ HASH (LLSH FIRSTBYTE 8)) (|for| CHAR# |from| (ADD1 OFFST) |to| (SUB1 (IPLUS OFFST LEN)) |do| (SETQ HASH (IPLUS16 (IPLUS16 (SETQ HASH (IPLUS16 HASH (LLSH (LOGAND HASH 4095) 2))) (LLSH (LOGAND HASH 255) 8)) (NTHCHARCODE BASE CHAR#))))) (*) LP (*) (COND ((NEQ 0 (SETQ HASHENT (VGETBASE (VVAG2 21 0) HASH))) (*) (COND ((EQ (VATOM (SETQ ATM# (SUB1 HASHENT))) BASE) (RETURN (VADDBASE (VVAG2 0 0) ATM#))) (T (*) (SETQ HASH (IPLUS16 HASH (OR REPROBE (SETQ REPROBE (LOGAND 63 (LOGOR 1 (LOGXOR FIRSTBYTE HASH))))))) (GO LP))))) (*) (RETURN (PROGN (LET ((NEWATOM (VNOSUCHATOM BASE OFFST LEN FATP FATCHARSEENP))) NIL NEWATOM))))) ) (VGETTOPVAL -(LAMBDA (X) (*) (VGETBASEPTR (V\ATOMCELL X 12) 0))) +(LAMBDA (X) (*) (VGETBASEPTR (V\\ATOMCELL X 12) 0))) (VGETPROPLIST -(LAMBDA (ATM) (*) (VGETBASEPTR (V\ATOMCELL ATM (CONSTANT 2)) 0))) +(LAMBDA (ATM) (*) (VGETBASEPTR (V\\ATOMCELL ATM (CONSTANT 2)) 0))) (VSETTOPVAL -(LAMBDA (ATM VAL) (*) (SELECTQ ATM (NIL (AND VAL (LISPERROR "ATTEMPT TO SET NIL OR T" VAL))) (T (OR (EQ VAL T) (LISPERROR "ATTEMPT TO SET NIL OR T" VAL))) (VPUTBASEPTR (V\ATOMCELL ATM 12) 0 (V\COPY VAL)))) +(LAMBDA (ATM VAL) (*) (SELECTQ ATM (NIL (AND VAL (LISPERROR "ATTEMPT TO SET NIL OR T" VAL))) (T (OR (EQ VAL T) (LISPERROR "ATTEMPT TO SET NIL OR T" VAL))) (VPUTBASEPTR (V\\ATOMCELL ATM 12) 0 (V\\COPY VAL)))) ) (VGETDEFN -(LAMBDA (A) (*) (VGETBASEPTR (V\ATOMCELL A 10) 0))) +(LAMBDA (A) (*) (VGETBASEPTR (V\\ATOMCELL A 10) 0))) -(V\ATOMCELL -(LAMBDA (X N) (*) (LET ((ATOMNO (VATOMNUMBER X))) (COND (NIL (*) (EQ (VHILOC ATOMNO) 0) (*) (LET ((LOC (SELECTC N (10 (VATOMNUMBER ATOMNO)) (12 (VATOMNUMBER ATOMNO)) (2 (VATOMNUMBER ATOMNO)) (8 (\ATOMPNAMEINDEX ATOMNO)) (SHOULDNT)))) (VADDBASE (VVAG2 N LOC) LOC))) ((FIXP ATOMNO) (*) (LET ((LOC (SELECTC N (10 4) (12 2) (2 6) (8 0) (SHOULDNT)))) (VADDBASE (VVAG2 44 0) (IPLUS LOC (ITIMES 10 ATOMNO))))) (T (*) (LET ((OFFSET (SELECTC N (10 4) (12 2) (2 6) (8 0) (SHOULDNT)))) (VADDBASE ATOMNO OFFSET)))))) +(V\\ATOMCELL +(LAMBDA (X N) (*) (LET ((ATOMNO (VATOMNUMBER X))) (COND (NIL (*) (EQ (VHILOC ATOMNO) 0) (*) (LET ((LOC (SELECTC N (10 (VATOMNUMBER ATOMNO)) (12 (VATOMNUMBER ATOMNO)) (2 (VATOMNUMBER ATOMNO)) (8 (\\ATOMPNAMEINDEX ATOMNO)) (SHOULDNT)))) (VADDBASE (VVAG2 N LOC) LOC))) ((FIXP ATOMNO) (*) (LET ((LOC (SELECTC N (10 4) (12 2) (2 6) (8 0) (SHOULDNT)))) (VADDBASE (VVAG2 44 0) (IPLUS LOC (ITIMES 10 ATOMNO))))) (T (*) (LET ((OFFSET (SELECTC N (10 4) (12 2) (2 6) (8 0) (SHOULDNT)))) (VADDBASE ATOMNO OFFSET)))))) ) ) (DEFINEQ @@ -274,24 +274,24 @@ (RPAQQ COPYATOMSTR NIL) (DEFINEQ -(V\GET-COMPILED-CODE-BASE -(LAMBDA (X) (*) (*) (PROG NIL (COND ((LITATOM X) (COND ((PROG1 (NEQ 0 (LRSH (VGETBASE (V\ATOMCELL X 10) 0) 15)) (SETQ X (VGETBASEPTR (V\ATOMCELL X 10) 0))) (RETURN X))))) (RETURN (AND (EQ (VNTYPX X) 13) (VGETBASEPTR (\DTEST X (QUOTE COMPILED-CLOSURE)) 0))))) +(V\\GET-COMPILED-CODE-BASE +(LAMBDA (X) (*) (*) (PROG NIL (COND ((LITATOM X) (COND ((PROG1 (NEQ 0 (LRSH (VGETBASE (V\\ATOMCELL X 10) 0) 15)) (SETQ X (VGETBASEPTR (V\\ATOMCELL X 10) 0))) (RETURN X))))) (RETURN (AND (EQ (VNTYPX X) 13) (VGETBASEPTR (\\DTEST X (QUOTE COMPILED-CLOSURE)) 0))))) ) ) -(* ;; +(* |;;| "YOU MUST REMAKE THIS FILE using (DORENAME 'R) (after CONNing to library) whenever the SYSOUT layout changes in LLPARAMS (e.g., if MDSTypeTable moves)" ) (FILESLOAD VMEM) -(RPAQQ RDVALS ((\RPTSIZE) (\MaxTypeNumber) (\AtomFrLst) (\ArrayFrLst) (\ArrayFrLst2))) +(RPAQQ RDVALS ((\\RPTSIZE) (|\\MaxTypeNumber|) (|\\AtomFrLst|) (|\\ArrayFrLst|) (|\\ArrayFrLst2|))) -(RPAQQ RDPTRS ((\REALPAGETABLE) (\FREEBLOCKBUCKETS))) -(DECLARE%: EVAL@COMPILE DONTCOPY +(RPAQQ RDPTRS ((\\REALPAGETABLE) (\\FREEBLOCKBUCKETS))) +(DECLARE\: EVAL@COMPILE DONTCOPY (FILESLOAD (LOADCOMP) VMEM) ) diff --git a/library/RDSYS.LCOM b/library/RDSYS.LCOM index ae5e540d3..c0317c2da 100644 Binary files a/library/RDSYS.LCOM and b/library/RDSYS.LCOM differ diff --git a/library/SEDIT-COMMONLISP.DFASL b/library/SEDIT-COMMONLISP.DFASL index 356f57004..c2f4f12cc 100644 Binary files a/library/SEDIT-COMMONLISP.DFASL and b/library/SEDIT-COMMONLISP.DFASL differ diff --git a/library/TEDITFILE.LCOM b/library/TEDITFILE.LCOM index 5c6e88cef..3d3b21b6f 100644 Binary files a/library/TEDITFILE.LCOM and b/library/TEDITFILE.LCOM differ diff --git a/library/TEDITHCPY b/library/TEDITHCPY index ad78e7505..75206ae5f 100644 --- a/library/TEDITHCPY +++ b/library/TEDITHCPY @@ -1,19 +1,64 @@ (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) -(FILECREATED "25-Aug-94 10:54:07" {DSK}export>lispcore>library>TEDITHCPY.;4 104820 +(FILECREATED "28-Jun-2021 12:35:45"  +{DSK}kaplan>Local>medley3.5>git-medley>library>TEDITHCPY.;2 105754 - changes to%: (VARS TEDITHCPYCOMS) (FILES TEDITDCL) + changes to%: (FNS \TEDIT.HARDCOPY.FORMATLINE) - previous date%: "29-Mar-94 17:25:49" {DSK}export>lispcore>library>TEDITHCPY.;3) + previous date%: "25-Aug-94 10:54:07" +{DSK}kaplan>Local>medley3.5>git-medley>library>TEDITHCPY.;1) (* ; " -Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994 by Venue & Xerox Corporation. All rights reserved. +Copyright (c) 1983-1994, 2021 by Venue & Xerox Corporation. ") (PRETTYCOMPRINT TEDITHCPYCOMS) -(RPAQQ TEDITHCPYCOMS ((FILES TEDITDCL) (DECLARE%: EVAL@COMPILE DONTCOPY (CONSTANTS (\SCRATCHLEN 64)) (FILES (LOADCOMP) TEDITDCL)) (COMS (* ;; "Generic interface functions and common code") (FNS TEDIT.HARDCOPY TEDIT.HCPYFILE \TEDIT.HARDCOPY.DISPLAYLINE \TEDIT.HARDCOPY.FORMATLINE \DOFORMATTING.HARDCOPY \TEDIT.HARDCOPY.MODIFYLOOKS \TEDIT.HCPYLOOKS.UPDATE \TEDIT.HCPYFMTSPEC \TEDIT.INTEGER.IMAGEBOX)) (COMS (* ;; "Functions for scaling distances and regions as needed during hardcopy.") (FNS \TEDIT.SCALE \TEDIT.SCALEREGION)) (COMS (* ;; "PRESS-specific code") (VARS (TEDIT.DEFAULTPAGEREGION (CREATEREGION 2794 1905 16256 23495))) (* ; "0.75 inches from bottom, 1 from top")) (COMS (* ;; "Support for the window-menu's HARDCOPY button, LISTFILES, etc.") (FNS TEDIT.HARDCOPYFN \TEDIT.HARDCOPY \TEDIT.PRESS.HARDCOPY) (P (LISTPUT (ASSOC (QUOTE CONVERSION) (ASSOC (QUOTE INTERPRESS) PRINTFILETYPES)) (QUOTE TEDIT) (FUNCTION \TEDIT.HARDCOPY))) (P (LET ((PRESSVALUES (ASSOC (QUOTE CONVERSION) (ASSOC (QUOTE PRESS) PRINTFILETYPES)))) (COND (PRESSVALUES (* ; "Only install PRESS printing if PRESS is loaded.") (LISTPUT PRESSVALUES (QUOTE TEDIT) (FUNCTION \TEDIT.PRESS.HARDCOPY))))))) (COMS (* ;; "vars for Japanese Line Break") (VARS (TEDIT.DONT.BREAK.CHARS (QUOTE (8482 8483 8491 8492 8508 8525 8539 8537 8535 9249 9251 9253 9255 9257 9283 9315 9317 9319 9326 9505 9507 9509 9511 9513 9539 9571 9573 9575 9582))) (TEDIT.DONT.LAST.CHARS (QUOTE (8524 8538 8536 8534)))) (GLOBALVARS TEDIT.DONT.BREAK.CHARS TEDIT.DONT.LAST.CHARS)) (COMS (* ;; "Support for hardcopying several files as one document") (FNS TEDIT-BOOK))) -) +(RPAQQ TEDITHCPYCOMS + ((FILES TEDITDCL) + (DECLARE%: EVAL@COMPILE DONTCOPY (CONSTANTS (\SCRATCHLEN 64)) + (FILES (LOADCOMP) + TEDITDCL)) + (COMS + (* ;; "Generic interface functions and common code") + + (FNS TEDIT.HARDCOPY TEDIT.HCPYFILE \TEDIT.HARDCOPY.DISPLAYLINE + \TEDIT.HARDCOPY.FORMATLINE \DOFORMATTING.HARDCOPY \TEDIT.HARDCOPY.MODIFYLOOKS + \TEDIT.HCPYLOOKS.UPDATE \TEDIT.HCPYFMTSPEC \TEDIT.INTEGER.IMAGEBOX)) + (COMS + (* ;; "Functions for scaling distances and regions as needed during hardcopy.") + + (FNS \TEDIT.SCALE \TEDIT.SCALEREGION)) + (COMS + (* ;; "PRESS-specific code") + + (VARS (TEDIT.DEFAULTPAGEREGION (CREATEREGION 2794 1905 16256 23495))) + (* ; + "0.75 inches from bottom, 1 from top") + ) + [COMS + (* ;; "Support for the window-menu's HARDCOPY button, LISTFILES, etc.") + + (FNS TEDIT.HARDCOPYFN \TEDIT.HARDCOPY \TEDIT.PRESS.HARDCOPY) + (P (LISTPUT (ASSOC 'CONVERSION (ASSOC 'INTERPRESS PRINTFILETYPES)) + 'TEDIT + (FUNCTION \TEDIT.HARDCOPY))) + (P (LET [(PRESSVALUES (ASSOC 'CONVERSION (ASSOC 'PRESS PRINTFILETYPES] + (COND (PRESSVALUES (* ; + "Only install PRESS printing if PRESS is loaded.") + (LISTPUT PRESSVALUES 'TEDIT (FUNCTION \TEDIT.PRESS.HARDCOPY] + (COMS + (* ;; "vars for Japanese Line Break") + + [VARS (TEDIT.DONT.BREAK.CHARS '(8482 8483 8491 8492 8508 8525 8539 8537 8535 9249 9251 + 9253 9255 9257 9283 9315 9317 9319 9326 9505 9507 + 9509 9511 9513 9539 9571 9573 9575 9582)) + (TEDIT.DONT.LAST.CHARS '(8524 8538 8536 8534] + (GLOBALVARS TEDIT.DONT.BREAK.CHARS TEDIT.DONT.LAST.CHARS)) + (COMS + (* ;; "Support for hardcopying several files as one document") + + (FNS TEDIT-BOOK)))) (FILESLOAD TEDITDCL) (DECLARE%: EVAL@COMPILE DONTCOPY @@ -26,7 +71,8 @@ Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, ) -(FILESLOAD (LOADCOMP) TEDITDCL) +(FILESLOAD (LOADCOMP) + TEDITDCL) ) @@ -298,10 +344,10 @@ Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, PRSTREAM LINE]) (\TEDIT.HARDCOPY.FORMATLINE - [LAMBDA (TEXTOBJ WIDTH CH#1 THISLINE LINE IMAGESTREAM DOINGHEADING? PAGEINFO) - (* ; "Edited 29-Mar-94 17:15 by jds") + [LAMBDA (TEXTOBJ WIDTH CH#1 THISLINE LINE IMAGESTREAM DOINGHEADING? PAGEINFO) + (* ; "Edited 28-Jun-2021 12:34 by rmk:") -(* ;;; "Given a starting place, format the next line of text. Return T if a control-L was seen on the line.") +(* ;;; "Given a starting place, format the next line of text. Return T if a control-L was seen on the line.") (DECLARE (SPECVARS LOOKS ASCENT DESCENT FONTWIDTHS FONT INVISIBLERUNS CHNO TLEN LOOKNO CHLIST WLIST DEVICE NEWASCENT NEWDESCENT IMAGESTREAM)) @@ -322,77 +368,77 @@ Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, CHLIST WLIST LOOKS ASCENTB DESCENTB INVISIBLERUNSB TABPENDING BOX PC PCNO CTRL\L\SEEN 1STLN FMTSPEC NEWASCENT NEWDESCENT PREVHYPH PREVDHYPH ORIGCHLIST ORIGWLIST) - (* ;; "Variables:") + (* ;; "Variables:") - (* ;; "(TLEN = Current character count on the line)") + (* ;; "(TLEN = Current character count on the line)") - (* ;; "(CHNO = Current character # in the Text)") + (* ;; "(CHNO = Current character # in the Text)") - (* ;; "(DX = width of current char/object)") + (* ;; "(DX = width of current char/object)") - (* ;; "(TX = current right margin) ") + (* ;; "(TX = current right margin) ") - (* ;; "(TXB1 = right margin of the first space/tab/CR in a row of space/tab/CR) ") + (* ;; "(TXB1 = right margin of the first space/tab/CR in a row of space/tab/CR) ") - (* ;; "(CH#B = The CHNO of most recent space/tab)") + (* ;; "(CH#B = The CHNO of most recent space/tab)") - (* ;; "(TXB = right margin of most recent space/tab)") + (* ;; "(TXB = right margin of most recent space/tab)") - (* ;; "(DXB = width of most recent space/tab)") + (* ;; "(DXB = width of most recent space/tab)") - (* ;; "(PREVSP = location on the line of the previous space/tab to this space/tab + 1)") + (* ;; "(PREVSP = location on the line of the previous space/tab to this space/tab + 1)") - (* ;; "(T1SPACE = a space/CR/TAB has been seen)") + (* ;; "(T1SPACE = a space/CR/TAB has been seen)") - (* ;; "(#BLANKS = # of spaces/tabs seen) ") + (* ;; "(#BLANKS = # of spaces/tabs seen) ") - (* ;; "(LOOKNO = Current index into the LOOKS array. Updated by \TEDIT.LOOKS.UPDATE as characters are read in)") + (* ;; "(LOOKNO = Current index into the LOOKS array. Updated by \TEDIT.LOOKS.UPDATE as characters are read in)") - (* ;; "(LOOK#B = The LOOKNO of the most recent space/tab)") + (* ;; "(LOOK#B = The LOOKNO of the most recent space/tab)") - (* ;; "(ASCENTB = Ascent at most recent potential line break point) (DESCENTB = Descent at most recent potential line break point)") + (* ;; "(ASCENTB = Ascent at most recent potential line break point) (DESCENTB = Descent at most recent potential line break point)") [SETQ ORIGCHLIST (SETQ CHLIST (fetch (ARRAYP BASE) of (fetch CHARS of THISLINE] - (* ; - "Place to put character codes/objects") + (* ; + "Place to put character codes/objects") [SETQ ORIGWLIST (SETQ WLIST (fetch (ARRAYP BASE) of (fetch (THISLINE WIDTHS) of THISLINE] - (* ; "Place to put width of each item") + (* ; "Place to put width of each item") (SETQ LOOKS (fetch LOOKS of THISLINE)) (SETQ TEXTSTREAM (fetch (TEXTOBJ STREAMHINT) of TEXTOBJ)) (SETQ TERMSA (fetch (TEXTOBJ TXTTERMSA) of TEXTOBJ)) (replace LOOKSUPDATEFN of TEXTSTREAM with (FUNCTION \TEDIT.HCPYLOOKS.UPDATE)) - (* ; - "This gets called every time we cross a piece boundary, to check for changes in looks.") + (* ; + "This gets called every time we cross a piece boundary, to check for changes in looks.") (freplace (LINEDESCRIPTOR CHARLIM) of LINE with TEXTLEN) - (* ; - "Force each new line to find its true CHARLIM.") + (* ; + "Force each new line to find its true CHARLIM.") (freplace (LINEDESCRIPTOR CHAR1) of LINE with CH#1) (freplace (LINEDESCRIPTOR CR\END) of LINE with NIL) - (* ; "Assume we won't see a CR.") + (* ; "Assume we won't see a CR.") (replace (LINEDESCRIPTOR LHASTABS) of LINE with NIL) - (* ; "And has no TABs.") + (* ; "And has no TABs.") (replace (LINEDESCRIPTOR LSTLN) of LINE with NIL) - (* ; - "And assume it isn't the last line in a paragraph until we find otherwise.") + (* ; + "And assume it isn't the last line in a paragraph until we find otherwise.") (replace (THISLINE TLFIRSTSPACE) of THISLINE with 0) - (* ; - "Start out assuming that all spaces on the line will be scaled.") + (* ; + "Start out assuming that all spaces on the line will be scaled.") (COND [(COND ((AND (ILEQ CH#1 TEXTLEN) - (NOT (ZEROP TEXTLEN))) (* ; - "Only continue if there's really text we can format.") - (\SETUPGETCH CH#1 TEXTOBJ) (* ; "Starting place") - (* ; "And starting character looks") + (NOT (ZEROP TEXTLEN))) (* ; + "Only continue if there's really text we can format.") + (\SETUPGETCH CH#1 TEXTOBJ) (* ; "Starting place") + (* ; "And starting character looks") (SETQ CLOOKS (fetch (TEXTSTREAM CURRENTLOOKS) of TEXTSTREAM)) [COND ((fetch (CHARLOOKS CLINVISIBLE) of CLOOKS) - (* ; - "We've hit a run of invisible characters. Skip them, and insert a marker in the line cache") - (add LOOKNO 1) (* ; - "Fix the counter of charlooks changes") + (* ; + "We've hit a run of invisible characters. Skip them, and insert a marker in the line cache") + (add LOOKNO 1) (* ; + "Fix the counter of charlooks changes") (SETQ PC (fetch (TEXTSTREAM PIECE) of TEXTSTREAM)) (\EDITSETA LOOKS LOOKNO (SETQ INVISIBLERUNS (fetch (PIECE PLEN) of PC))) @@ -415,15 +461,15 @@ Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, PC TEXTOBJ] (add CHNO (\EDITELT LOOKS LOOKNO)) (COND - (PC (* ; - "Move us to the right place in the stream") + (PC (* ; + "Move us to the right place in the stream") (\SETUPGETCH (create EDITMARK PC _ PC PCOFF _ 0 PCNO _ NIL) TEXTOBJ)) - (T (* ; - "We've walked off the end of the document. Just note that we're not at any piece now.") + (T (* ; + "We've walked off the end of the document. Just note that we're not at any piece now.") (replace (TEXTSTREAM PIECE) of TEXTSTREAM with NIL] (ILEQ CHNO TEXTLEN))) (\TEDIT.HCPYLOOKS.UPDATE TEXTSTREAM (fetch (TEXTSTREAM PIECE) of TEXTSTREAM @@ -431,25 +477,25 @@ Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, CLOOKS) (SETQ ASCENTB ASCENT) (SETQ DESCENTB DESCENT) - (\EDITSETA LOOKS 0 CLOOKS) (* ; "Save looks in the line cache") + (\EDITSETA LOOKS 0 CLOOKS) (* ; "Save looks in the line cache") (SETQ FONT (fetch (CHARLOOKS CLFONT) of CLOOKS)) [SETQ FONT (COND ((AND (type? FONTCLASS FONT) (FONTCLASSCOMPONENT FONT DEVICE))) - (T (FONTCOPY FONT 'DEVICE DEVICE](* ; - "Keep the font around for char widths.") + (T (FONTCOPY FONT 'DEVICE DEVICE](* ; + "Keep the font around for char widths.") (SETQ FMTSPEC (\TEDIT.HCPYFMTSPEC (\TEDIT.APPLY.PARASTYLES (OR (fetch (TEXTSTREAM CURRENTPARALOOKS) of TEXTSTREAM) (fetch (TEXTOBJ FMTSPEC) of TEXTOBJ) ) PC TEXTOBJ) - IMAGESTREAM)) (* ; "Paragraph formatting info") + IMAGESTREAM)) (* ; "Paragraph formatting info") (COND ((AND (NEQ FMTSPEC *TEDIT-CACHED-FMTSPEC*) (fetch (FMTSPEC FMTCHARSTYLES) of FMTSPEC)) - (* ;; "The cache of character styles for the current paragrpah is invalid; flush it, and note the new paragraph to cache for.") + (* ;; "The cache of character styles for the current paragrpah is invalid; flush it, and note the new paragraph to cache for.") (SETQ *TEDIT-CURRENTPARA-CACHE* NIL) (SETQ *TEDIT-CACHED-FMTSPEC* FMTSPEC))) @@ -466,27 +512,27 @@ Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, (fetch (STREAM COFFSET) of TEXTSTREAM)) (IEQP (fetch (TEXTSTREAM PCSTARTPG) of TEXTSTREAM) (fetch (STREAM CPAGE) of TEXTSTREAM] - (* ; - "Are we on the first line of a paragraph?") + (* ; + "Are we on the first line of a paragraph?") (replace (LINEDESCRIPTOR 1STLN) of LINE with 1STLN) (COND - ((AND 1STLN (NOT DOINGHEADING?)) (* ; - "This is a new paragraph. Check for special paragraph types, and handle them accordingly.") + ((AND 1STLN (NOT DOINGHEADING?)) (* ; + "This is a new paragraph. Check for special paragraph types, and handle them accordingly.") (SELECTQ (fetch (FMTSPEC FMTPARATYPE) of FMTSPEC) - (PAGEHEADING (* ; "This paragraph is the content for a page heading. Handle it, then don't bother formatting further.") + (PAGEHEADING (* ; "This paragraph is the content for a page heading. Handle it, then don't bother formatting further.") (TEDIT.HARDCOPY.PAGEHEADING TEXTOBJ TEXTSTREAM LINE FMTSPEC CHNO IMAGESTREAM) - (* ;; "This will capture the text, and set LINE:CHARLIM to the LAST char# in the page heading. That lets formatting continue apace.") + (* ;; "This will capture the text, and set LINE:CHARLIM to the LAST char# in the page heading. That lets formatting continue apace.") (RETURN NIL)) - (EVEN (* ; "This paragraph may or may not belong here. If this is an odd page, we don't want to format this paragraph.") + (EVEN (* ; "This paragraph may or may not belong here. If this is an odd page, we don't want to format this paragraph.") (COND ((ODDP (fetch (PAGEFORMATTINGSTATE PAGE#) of FORMATTINGSTATE)) (TEDIT.SKIP.SPECIALCOND TEXTOBJ TEXTSTREAM LINE FMTSPEC CHNO IMAGESTREAM) (RETURN NIL)))) - (ODD (* ; "This paragraph may or may not belong here. If this is an even page, we don't want to format this paragraph.") + (ODD (* ; "This paragraph may or may not belong here. If this is an even page, we don't want to format this paragraph.") (COND ((EVENP (fetch (PAGEFORMATTINGSTATE PAGE#) of FORMATTINGSTATE)) (TEDIT.SKIP.SPECIALCOND TEXTOBJ TEXTSTREAM LINE FMTSPEC CHNO @@ -497,50 +543,50 @@ Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, with (COND (1STLN (fetch (FMTSPEC 1STLEFTMAR) of FMTSPEC)) (T (fetch (FMTSPEC LEFTMAR) of FMTSPEC] - (* ; "Set the left margin accordingly") + (* ; "Set the left margin accordingly") [replace (LINEDESCRIPTOR RIGHTMARGIN) of LINE with (SETQ WIDTH (COND ((NOT (ZEROP (fetch (FMTSPEC RIGHTMAR) of FMTSPEC))) (fetch (FMTSPEC RIGHTMAR) of FMTSPEC)) - (T WIDTH] (* ; - "RIGHTMAR = 0 => follow the window's width.") + (T WIDTH] (* ; + "RIGHTMAR = 0 => follow the window's width.") (SETQ TXB1 WIDTH) (for old TLEN from TLEN to 511 as old CHNO from CHNO while (ILEQ CHNO TEXTLEN) when (SETQ CH (\BIN TEXTSTREAM)) - do (* ; "(The WHILE is there because we may reset TEXTLEN within the loop, and TO TEXTLEN only evaluates it once.)") + do (* ; "(The WHILE is there because we may reset TEXTLEN within the loop, and TO TEXTLEN only evaluates it once.)") - (* ;; "The character loop") + (* ;; "The character loop") - (* ;; "Get the next character for the line.") + (* ;; "Get the next character for the line.") [SETQ DX (COND - ((SMALLP CH) (* ; "CH is really a character") + ((SMALLP CH) (* ; "CH is really a character") (\FGETCHARWIDTH FONT CH)) - (T (* ; "CH is an object") + (T (* ; "CH is an object") (SETQ BOX (\TEDIT.INTEGER.IMAGEBOX (APPLY* (IMAGEOBJPROP CH 'IMAGEBOXFN) CH IMAGESTREAM TX WIDTH ))) - (* ; "Get its size") + (* ; "Get its size") [SETQ ASCENT (IMAX ASCENT (IDIFFERENCE (fetch YSIZE of BOX) (fetch YDESC of BOX] (SETQ DESCENT (IMAX DESCENT (fetch YDESC of BOX))) (IMAGEOBJPROP CH 'BOUNDBOX BOX) (fetch XSIZE of BOX] - (AND KERN (SETQ DX (IPLUS DX KERN))) (* ; "Get CH's X width.") + (AND KERN (SETQ DX (IPLUS DX KERN))) (* ; "Get CH's X width.") [SELCHARQ CH - (SPACE (* ; - "CH is a . Remember it, in case we need to break the line.") + (SPACE (* ; + "CH is a . Remember it, in case we need to break the line.") (COND (GATHERBLANK (SETQ TXB1 TX) (SETQ GATHERBLANK NIL))) - (SETQ CH#B CHNO) (* ; - "put the location # of the previous space/tab in the character array instead of the space itself") + (SETQ CH#B CHNO) (* ; + "put the location # of the previous space/tab in the character array instead of the space itself") (COND (NEWASCENT - (* ;; "The ascent/descent changed. Update the real values, now that we have a character to actually take effect on it") + (* ;; "The ascent/descent changed. Update the real values, now that we have a character to actually take effect on it") (SETQ ASCENT (IMAX ASCENT NEWASCENT)) (SETQ DESCENT (IMAX DESCENT NEWDESCENT)) @@ -549,8 +595,8 @@ Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, (\RPLPTR WLIST 0 DX) (SETQ PREVSP (ADD1 TLEN)) (SETQ PREVHYPH NIL) - (SETQ PREVDHYPH NIL) (* ; - "We're now past needing any hyphens for line breaking, so forget the last hyphen spot.") + (SETQ PREVDHYPH NIL) (* ; + "We're now past needing any hyphens for line breaking, so forget the last hyphen spot.") (SETQ T1SPACE T) (add TX DX) (SETQ TXB TX) @@ -560,33 +606,33 @@ Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, (SETQ DESCENTB DESCENT) (SETQ INVISIBLERUNSB INVISIBLERUNS) (add %#BLANKS 1)) - (CR (* ; - "Ch is a . Force an end to the line.") - (freplace (LINEDESCRIPTOR CHARLIM) of LINE with CHNO) - (COND - ((AND NEWASCENT (ZEROP ASCENT) - (ZEROP DESCENT)) (* ; - "The ascent has changed; catch it") - (SETQ ASCENT NEWASCENT) - (SETQ DESCENT NEWDESCENT))) - (SETQ FORCEEND T) - (\RPLPTR CHLIST 0 (CHARCODE CR)) - (\RPLPTR WLIST 0 (SETQ DX 0)) - (COND - (GATHERBLANK (SETQ TXB1 TX) - (SETQ GATHERBLANK NIL))) - (SETQ T1SPACE T) - (freplace (LINEDESCRIPTOR CR\END) of LINE with T) - (SETQ TX (IPLUS TX DX)) - (replace (LINEDESCRIPTOR LSTLN) of LINE - with (fetch (PIECE PPARALAST) of (fetch PIECE - of TEXTSTREAM))) - (SETQ PREVDHYPH NIL) - (SETQ PREVHYPH NIL) (* ; - "We're now past needing any hyphens for line breaking, so forget the last hyphen spot.") - (RETURN)) - (^L (* ; - "Ch is a
Force an end to the line. Immediately--just like a CR.") + ((CR LF) (* ; + "Ch is a . Force an end to the line.") + (freplace (LINEDESCRIPTOR CHARLIM) of LINE with CHNO) + (COND + ((AND NEWASCENT (ZEROP ASCENT) + (ZEROP DESCENT)) (* ; + "The ascent has changed; catch it") + (SETQ ASCENT NEWASCENT) + (SETQ DESCENT NEWDESCENT))) + (SETQ FORCEEND T) + (\RPLPTR CHLIST 0 (CHARCODE CR)) + (\RPLPTR WLIST 0 (SETQ DX 0)) + (COND + (GATHERBLANK (SETQ TXB1 TX) + (SETQ GATHERBLANK NIL))) + (SETQ T1SPACE T) + (freplace (LINEDESCRIPTOR CR\END) of LINE with T) + (SETQ TX (IPLUS TX DX)) + (replace (LINEDESCRIPTOR LSTLN) of LINE + with (fetch (PIECE PPARALAST) of (fetch PIECE + of TEXTSTREAM))) + (SETQ PREVDHYPH NIL) + (SETQ PREVHYPH NIL) (* ; + "We're now past needing any hyphens for line breaking, so forget the last hyphen spot.") + (RETURN)) + (^L (* ; + "Ch is a Force an end to the line. Immediately--just like a CR.") (SETQ CTRL\L\SEEN T) (freplace (LINEDESCRIPTOR CHARLIM) of LINE with CHNO) (SETQ FORCEEND T) @@ -600,18 +646,18 @@ Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, (SETQ TX (IPLUS TX DX)) (replace (LINEDESCRIPTOR LSTLN) of LINE with T) (SETQ PREVDHYPH NIL) - (SETQ PREVHYPH NIL) (* ; - "We're now past needing any hyphens for line breaking, so forget the last hyphen spot.") + (SETQ PREVHYPH NIL) (* ; + "We're now past needing any hyphens for line breaking, so forget the last hyphen spot.") (RETURN)) (TAB - (* ;; "Try to be reasonable with tabs. This will create trouble when doing fast-case insert/delete, but Pah! for now.") + (* ;; "Try to be reasonable with tabs. This will create trouble when doing fast-case insert/delete, but Pah! for now.") - (\RPLPTR CHLIST 0 CH) (* ; "TABs are 0 wide to start with.") + (\RPLPTR CHLIST 0 CH) (* ; "TABs are 0 wide to start with.") (replace (THISLINE TLFIRSTSPACE) of THISLINE with TLEN) (COND (NEWASCENT - (* ;; "The ascent/descent changed. Update the real values, now that we have a character to actually take effect on it") + (* ;; "The ascent/descent changed. Update the real values, now that we have a character to actually take effect on it") (SETQ ASCENT (IMAX ASCENT NEWASCENT)) (SETQ DESCENT (IMAX DESCENT NEWDESCENT)) @@ -623,15 +669,15 @@ Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 0 TABPENDING (LRSH (FIXR (DSPSCALE NIL IMAGESTREAM )) 1) - NIL)) (* ; - "Figure out which tab stop to use, and what we need to do to get there.") + NIL)) (* ; + "Figure out which tab stop to use, and what we need to do to get there.") [COND - ((FIXP TABPENDING) (* ; - "If it returns a number, that is the new TX, adjusted for any prior tabs") + ((FIXP TABPENDING) (* ; + "If it returns a number, that is the new TX, adjusted for any prior tabs") (SETQ TX TABPENDING) (SETQ TABPENDING NIL)) - (TABPENDING (* ; - "Otherwise, look in the PENDINGTAB for the new TX") + (TABPENDING (* ; + "Otherwise, look in the PENDINGTAB for the new TX") (SETQ TX (fetch PTNEWTX of TABPENDING] (COND (GATHERBLANK (SETQ TXB1 TX) @@ -639,18 +685,18 @@ Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, (SETQ CH#B CHNO) (SETQ DX (\GETBASEPTR WLIST 0)) (\TEDIT.PURGE.SPACES (fetch CHARS of THISLINE) - PREVSP) (* ; - "All the spaces before a tab don't take part in justification from here on.") - (SETQ %#BLANKS 0) (* ; - "So we can allocate extra space among the right number of blanks to justify things after the tab.") + PREVSP) (* ; + "All the spaces before a tab don't take part in justification from here on.") + (SETQ %#BLANKS 0) (* ; + "So we can allocate extra space among the right number of blanks to justify things after the tab.") (SETQ PREVSP 0) (SETQ PREVDHYPH NIL) - (SETQ PREVHYPH NIL) (* ; - "We're now past needing any hyphens for line breaking, so forget the last hyphen spot.") + (SETQ PREVHYPH NIL) (* ; + "We're now past needing any hyphens for line breaking, so forget the last hyphen spot.") (SETQ T1SPACE T) (SETQ TX (IPLUS TX DX)) - (SETQ TXB TX) (* ; - "Remember the world in case this is the 'space' before the line breaks") + (SETQ TXB TX) (* ; + "Remember the world in case this is the 'space' before the line breaks") (SETQ DXB DX) (SETQ LOOK#B LOOKNO) (SETQ ASCENTB ASCENT) @@ -660,35 +706,35 @@ Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, ((AND (EQ CH (CHARCODE "0,377")) (NOT (ffetch (TEXTOBJ TXTNONSCHARS) of TEXTOBJ))) - (* ;; - "Character-set change character. This suggests undetected NS characters.") + (* ;; + "Character-set change character. This suggests undetected NS characters.") (\TEDIT.NSCHAR.RUN CHNO TEXTOBJ TEXTSTREAM) - (* ; - "Leaves us ready to BIN again at the same place.") + (* ; + "Leaves us ready to BIN again at the same place.") - (* ;; "Back up the cache pointers and counters so that when we go to the top of the loop we're where we are now.") + (* ;; "Back up the cache pointers and counters so that when we go to the top of the loop we're where we are now.") (SETQ CHLIST (\ADDBASE CHLIST -2)) (SETQ WLIST (\ADDBASE WLIST -2)) (add CHNO -1) (add TLEN -1) (SETQ TEXTLEN (fetch (TEXTOBJ TEXTLEN) of TEXTOBJ)) - (* ; - "Because moving to NS characters changes the TEXTLEN for the shorter.") + (* ; + "Because moving to NS characters changes the TEXTLEN for the shorter.") ) (T - (* ;; "This character isn't special. Just space over for it.") + (* ;; "This character isn't special. Just space over for it.") (SETQ GATHERBLANK T) (COND ((IGREATERP (SETQ TX (IPLUS TX DX)) - WIDTH) (* ; - "We're past the right margin; stop formatting at the last blank.") + WIDTH) (* ; + "We're past the right margin; stop formatting at the last blank.") (SETQ FORCEEND T) (COND - (PREVDHYPH (* ; - "There's a hyphen we can break at. Go back there and break the line.") + (PREVDHYPH (* ; + "There's a hyphen we can break at. Go back there and break the line.") (freplace (LINEDESCRIPTOR CHARLIM) of LINE with CH#B) (\RPLPTR ORIGCHLIST (LLSH (SUB1 PREVDHYPH) @@ -703,8 +749,8 @@ Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, (SETQ DESCENT DESCENTB) (SETQ LOOKNO LOOK#B) (SETQ INVISIBLERUNS INVISIBLERUNSB)) - (PREVHYPH (* ; - "There's a hyphen we can break at. Go back there and break the line.") + (PREVHYPH (* ; + "There's a hyphen we can break at. Go back there and break the line.") (freplace (LINEDESCRIPTOR CHARLIM) of LINE with CH#B) (SETQ TX TXB) @@ -713,8 +759,8 @@ Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, (SETQ DESCENT DESCENTB) (SETQ LOOKNO LOOK#B) (SETQ INVISIBLERUNS INVISIBLERUNSB)) - (T1SPACE (* ; - "There's a breaking point on this line. Go back there and break the line.") + (T1SPACE (* ; + "There's a breaking point on this line. Go back there and break the line.") (freplace (LINEDESCRIPTOR CHARLIM) of LINE with CH#B) (SETQ TX TXB) @@ -727,24 +773,24 @@ Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, (freplace (LINEDESCRIPTOR CHARLIM) of LINE with (IMAX CH#1 (SUB1 CHNO))) (SETQ TX (IDIFFERENCE TX DX)) - (* ; - "No spaces on this line; break it before this character.") + (* ; + "No spaces on this line; break it before this character.") - (* ;; "Check line break character.") + (* ;; "Check line break character.") (while (OR (MEMBER (\GETBASEPTR CHLIST -2) TEDIT.DONT.LAST.CHARS) (MEMBER CH TEDIT.DONT.BREAK.CHARS)) do - (* ;; - "This character ch doesn't appear at first of lines. or") + (* ;; + "This character ch doesn't appear at first of lines. or") - (* ;; - "Previous character doesn't appear at the end of lines.") + (* ;; + "Previous character doesn't appear at the end of lines.") - (* ;; - "So,move previous character to next line.") + (* ;; + "So,move previous character to next line.") (SETQ CHLIST (\ADDBASE CHLIST -2)) (SETQ WLIST (\ADDBASE WLIST -2)) @@ -754,24 +800,24 @@ Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, (freplace (LINEDESCRIPTOR CHARLIM) of LINE with (IMAX (SUB1 CHNO) CH#1))) - (T (* ; - "Can't split BEFORE the first thing on the line!") + (T (* ; + "Can't split BEFORE the first thing on the line!") (freplace (LINEDESCRIPTOR CHARLIM) of LINE with CHNO) (\RPLPTR CHLIST 0 CH) (\RPLPTR WLIST 0 DX))) (RETURN)) - (T (* ; "Not past the rightmargin yet...") + (T (* ; "Not past the rightmargin yet...") (COND ((AND NEWASCENT (SMALLP CH)) - (* ;; "The ascent/descent changed. Update the real values, now that we have a character to actually take effect on it") + (* ;; "The ascent/descent changed. Update the real values, now that we have a character to actually take effect on it") (SETQ ASCENT (IMAX ASCENT NEWASCENT)) (SETQ DESCENT (IMAX DESCENT NEWDESCENT)) (SETQ NEWASCENT NIL))) (\RPLPTR CHLIST 0 CH) - (\RPLPTR WLIST 0 DX)(* ; "Check for decimal tabs") + (\RPLPTR WLIST 0 DX)(* ; "Check for decimal tabs") (SELCHARQ CH (%. (COND ((AND TABPENDING (NOT (FIXP TABPENDING)) @@ -780,8 +826,8 @@ Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, (add (fetch (PENDINGTAB PTTABX) of TABPENDING) DX) - (* ; - "Adjust the pending tab so that the LEFT side of the decimal point goes at the tab stop.") + (* ; + "Adjust the pending tab so that the LEFT side of the decimal point goes at the tab stop.") (SETQ TABPENDING (\TEDIT.FORMATTABS TEXTOBJ (fetch (FMTSPEC TABSPEC) @@ -794,43 +840,43 @@ Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, (LRSH (FIXR (DSPSCALE NIL IMAGESTREAM)) 1) T)) - (* ; - "Figure out which tab stop to use, and what we need to do to get there.") + (* ; + "Figure out which tab stop to use, and what we need to do to get there.") [COND ((FIXP TABPENDING) - (* ; - "If it returns a number, that is the new TX, adjusted for any prior tabs") + (* ; + "If it returns a number, that is the new TX, adjusted for any prior tabs") (SETQ TX TABPENDING) (SETQ TABPENDING NIL)) (TABPENDING - (* ; - "Otherwise, look in the PENDINGTAB for the new TX") + (* ; + "Otherwise, look in the PENDINGTAB for the new TX") (SETQ TX (fetch PTNEWTX of TABPENDING] (COND (GATHERBLANK (SETQ TXB1 TX) (SETQ GATHERBLANK NIL))) (SETQ CH#B CHNO) - (* ; "SETQ DX (\GETBASE WLIST 0)") + (* ; "SETQ DX (\GETBASE WLIST 0)") (\TEDIT.PURGE.SPACES (fetch CHARS of THISLINE) PREVSP) - (* ; - "All the spaces before a tab don't take part in justification from here on.") + (* ; + "All the spaces before a tab don't take part in justification from here on.") (SETQ %#BLANKS 0) - (* ; - "So we can allocate extra space among the right number of blanks to justify things after the tab.") + (* ; + "So we can allocate extra space among the right number of blanks to justify things after the tab.") (SETQ PREVSP 0) (SETQ T1SPACE T) (SETQ TXB TX) - (* ; - "Remember the world in case this is the 'space' before the line breaks") + (* ; + "Remember the world in case this is the 'space' before the line breaks") (SETQ DXB DX) (SETQ LOOK#B LOOKNO) (SETQ ASCENTB ASCENT) (SETQ DESCENTB DESCENT) (SETQ INVISIBLERUNSB INVISIBLERUNS)))) - ((- "357,045") (* ; "Hyphen, M-dash") + ((- "357,045") (* ; "Hyphen, M-dash") (SETQ PREVHYPH (ADD1 TLEN)) (SETQ PREVDHYPH NIL) (SETQ TXB1 (SETQ TXB TX)) @@ -840,10 +886,10 @@ Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, (SETQ ASCENTB ASCENT) (SETQ DESCENTB DESCENT) (SETQ INVISIBLERUNSB INVISIBLERUNS)) - ("357,042" (* ; "non-breaking hyphen") + ("357,042" (* ; "non-breaking hyphen") (\RPLPTR CHLIST 0 (CHARCODE "-"))) - ("357,043" (* ; "Discretionary hyphen") - (* ; "And isn't actually displayed.") + ("357,043" (* ; "Discretionary hyphen") + (* ; "And isn't actually displayed.") (SETQ PREVDHYPH (ADD1 TLEN)) (SETQ PREVHYPH NIL) (SETQ LOOK#B LOOKNO) @@ -851,8 +897,8 @@ Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, (SETQ ASCENTB ASCENT) (SETQ DESCENTB DESCENT) (\RPLPTR WLIST 0 0) - (* ; - "Unless we use it, the prevhyph is 0 wide.") + (* ; + "Unless we use it, the prevhyph is 0 wide.") (\RPLPTR CHLIST 0 NIL) (SETQ TX (IDIFFERENCE TX DX)) (SETQ DX (\FGETCHARWIDTH FONT (CHARCODE @@ -860,31 +906,31 @@ Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, (SETQ TXB1 (SETQ TXB (IPLUS TX DX))) (SETQ DXB DX) (SETQ INVISIBLERUNSB INVISIBLERUNS)) - ("357,041" (* ; "non-breaking space.") + ("357,041" (* ; "non-breaking space.") (\RPLPTR CHLIST 0 (CHARCODE SPACE))) (COND ((AND (SMALLP CH) (IGEQ CH 192) (ILEQ CH 207)) - (* ; "This is an NS accent character. Space it 0.0 -- SO back TX down by the width of the accent, so it doesn't add to the line width.") + (* ; "This is an NS accent character. Space it 0.0 -- SO back TX down by the width of the accent, so it doesn't add to the line width.") (SETQ TX (- TX DX] - (SETQ CHLIST (\ADDBASE CHLIST 2)) (* ; - "Move the pointers forward for the next character.") + (SETQ CHLIST (\ADDBASE CHLIST 2)) (* ; + "Move the pointers forward for the next character.") (SETQ WLIST (\ADDBASE WLIST 2))) -(* ;;; "Done processing characters; the line is now filled.") +(* ;;; "Done processing characters; the line is now filled.") (COND ((AND (IEQP TLEN 255) - (ILESSP CHNO TEXTLEN)) (* ; - "This line is too long for us to format??") + (ILESSP CHNO TEXTLEN)) (* ; + "This line is too long for us to format??") (TEDIT.PROMPTPRINT TEXTOBJ "Line too long to format." T))) (COND - (TABPENDING (* ; - "There is a TAB outstanding. Go handle it.") + (TABPENDING (* ; + "There is a TAB outstanding. Go handle it.") (add (fetch (PENDINGTAB PTTABX) of TABPENDING) - DX) (* ; - "Modify the pending tab so that the LEFT side of the CR is at the tab stop.") + DX) (* ; + "Modify the pending tab so that the LEFT side of the CR is at the tab stop.") (SETQ TABPENDING (\TEDIT.FORMATTABS TEXTOBJ (fetch (FMTSPEC TABSPEC) of FMTSPEC) THISLINE CHLIST WLIST TX @@ -897,8 +943,8 @@ Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, (\TEDIT.PURGE.SPACES (fetch CHARS of THISLINE) PREVSP) (SETQ PREVSP 0] - (T (* ; - "No text to go in this line; set Ascent/Descent to the default font from the window.") + (T (* ; + "No text to go in this line; set Ascent/Descent to the default font from the window.") (SETQ FMTSPEC (\TEDIT.HCPYFMTSPEC (fetch (TEXTOBJ FMTSPEC) of TEXTOBJ))) (\EDITSETA LOOKS 0 CLOOKS) [SETQ 1STLN (AND (fetch (STREAM F5) of TEXTSTREAM) @@ -938,8 +984,8 @@ Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, of TEXTOBJ)) ) DEFAULTFONT) - 'HEIGHT] (* ; - "Line's height (or 12 for an empty line)") + 'HEIGHT] (* ; + "Line's height (or 12 for an empty line)") (replace (LINEDESCRIPTOR ASCENT) of LINE with ASCENT) (replace (LINEDESCRIPTOR DESCENT) of LINE with DESCENT) (freplace (LINEDESCRIPTOR CHARTOP) of LINE with CHNO) @@ -947,8 +993,8 @@ Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, (FORCEEND NIL) (T (SETQ CHNO (SUB1 CHNO)) (SETQ TLEN (SUB1 TLEN)) - (SETQ TXB1 TX))) (* ; - "If we ran off the end of the text, then keep true space left on the line.") + (SETQ TXB1 TX))) (* ; + "If we ran off the end of the text, then keep true space left on the line.") (freplace (LINEDESCRIPTOR LXLIM) of LINE with TX) (freplace DESC of THISLINE with LINE) [freplace (THISLINE LEN) of THISLINE @@ -1516,17 +1562,24 @@ Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, PFILE)]) ) -(LISTPUT (ASSOC (QUOTE CONVERSION) (ASSOC (QUOTE INTERPRESS) PRINTFILETYPES)) (QUOTE TEDIT) (FUNCTION \TEDIT.HARDCOPY)) +(LISTPUT (ASSOC 'CONVERSION (ASSOC 'INTERPRESS PRINTFILETYPES)) + 'TEDIT + (FUNCTION \TEDIT.HARDCOPY)) -(LET ((PRESSVALUES (ASSOC (QUOTE CONVERSION) (ASSOC (QUOTE PRESS) PRINTFILETYPES)))) (COND (PRESSVALUES (* ; "Only install PRESS printing if PRESS is loaded.") (LISTPUT PRESSVALUES (QUOTE TEDIT) (FUNCTION \TEDIT.PRESS.HARDCOPY))))) +[LET [(PRESSVALUES (ASSOC 'CONVERSION (ASSOC 'PRESS PRINTFILETYPES] + (COND + (PRESSVALUES (* ; + "Only install PRESS printing if PRESS is loaded.") + (LISTPUT PRESSVALUES 'TEDIT (FUNCTION \TEDIT.PRESS.HARDCOPY] (* ;; "vars for Japanese Line Break") -(RPAQQ TEDIT.DONT.BREAK.CHARS (8482 8483 8491 8492 8508 8525 8539 8537 8535 9249 9251 9253 9255 9257 9283 9315 9317 9319 9326 9505 9507 9509 9511 9513 9539 9571 9573 9575 9582) -) +(RPAQQ TEDIT.DONT.BREAK.CHARS (8482 8483 8491 8492 8508 8525 8539 8537 8535 9249 9251 9253 9255 + 9257 9283 9315 9317 9319 9326 9505 9507 9509 9511 9513 9539 + 9571 9573 9575 9582)) (RPAQQ TEDIT.DONT.LAST.CHARS (8524 8538 8536 8534)) (DECLARE%: DOEVAL@COMPILE DONTCOPY @@ -1557,13 +1610,13 @@ Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, (CLOSEF DOC]) ) (PUTPROPS TEDITHCPY COPYRIGHT ("Venue & Xerox Corporation" 1983 1984 1985 1986 1987 1988 1989 1990 -1991 1992 1993 1994)) +1991 1992 1993 1994 2021)) (DECLARE%: DONTCOPY - (FILEMAP (NIL (2353 99050 (TEDIT.HARDCOPY 2363 . 3614) (TEDIT.HCPYFILE 3616 . 5690) ( -\TEDIT.HARDCOPY.DISPLAYLINE 5692 . 19837) (\TEDIT.HARDCOPY.FORMATLINE 19839 . 67140) ( -\DOFORMATTING.HARDCOPY 67142 . 80435) (\TEDIT.HARDCOPY.MODIFYLOOKS 80437 . 82844) ( -\TEDIT.HCPYLOOKS.UPDATE 82846 . 93454) (\TEDIT.HCPYFMTSPEC 93456 . 98476) (\TEDIT.INTEGER.IMAGEBOX -98478 . 99048)) (99139 100223 (\TEDIT.SCALE 99149 . 99443) (\TEDIT.SCALEREGION 99445 . 100221)) ( -100466 102963 (TEDIT.HARDCOPYFN 100476 . 101327) (\TEDIT.HARDCOPY 101329 . 102238) ( -\TEDIT.PRESS.HARDCOPY 102240 . 102961)) (103772 104675 (TEDIT-BOOK 103782 . 104673))))) + (FILEMAP (NIL (3088 99806 (TEDIT.HARDCOPY 3098 . 4349) (TEDIT.HCPYFILE 4351 . 6425) ( +\TEDIT.HARDCOPY.DISPLAYLINE 6427 . 20572) (\TEDIT.HARDCOPY.FORMATLINE 20574 . 67896) ( +\DOFORMATTING.HARDCOPY 67898 . 81191) (\TEDIT.HARDCOPY.MODIFYLOOKS 81193 . 83600) ( +\TEDIT.HCPYLOOKS.UPDATE 83602 . 94210) (\TEDIT.HCPYFMTSPEC 94212 . 99232) (\TEDIT.INTEGER.IMAGEBOX +99234 . 99804)) (99895 100979 (\TEDIT.SCALE 99905 . 100199) (\TEDIT.SCALEREGION 100201 . 100977)) ( +101222 103719 (TEDIT.HARDCOPYFN 101232 . 102083) (\TEDIT.HARDCOPY 102085 . 102994) ( +\TEDIT.PRESS.HARDCOPY 102996 . 103717)) (104701 105604 (TEDIT-BOOK 104711 . 105602))))) STOP diff --git a/library/TEDITHCPY.LCOM b/library/TEDITHCPY.LCOM index c4501f954..e19a42698 100644 Binary files a/library/TEDITHCPY.LCOM and b/library/TEDITHCPY.LCOM differ diff --git a/library/TEXTOFD b/library/TEXTOFD index 4dfde1aab..525f9d076 100644 --- a/library/TEXTOFD +++ b/library/TEXTOFD @@ -1,13 +1,15 @@ (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) -(FILECREATED "11-Feb-2001 12:06:42" {DSK}medley3.5>library>TEXTOFD.;8 176221 +(FILECREATED " 6-May-2021 10:18:06"  +{DSK}kaplan>Local>medley3.5>git-medley2>library>TEXTOFD.;4 176139 - changes to%: (FNS \TEXTRIGHTMARGIN) + changes to%: (FNS \TEXTINIT) - previous date%: " 4-Jan-2001 18:14:27" {DSK}medley3.5>library>TEXTOFD.;7) + previous date%: "11-Feb-2001 12:06:42" +{DSK}kaplan>Local>medley3.5>git-medley2>library>TEXTOFD.;2) (* ; " -Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1993, 1994, 1995, 1999, 2000, 2001 by John Sybalsky & Xerox Corporation. All rights reserved. +Copyright (c) 1983-1991, 1993-1995, 1999-2001, 2021 by John Sybalsky & Xerox Corporation. ") (PRETTYCOMPRINT TEXTOFDCOMS) @@ -674,29 +676,29 @@ Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1993, 1994, (RETURN PC]) (\TEXTINIT - [LAMBDA NIL (* ; "Edited 31-May-91 14:18 by jds") - (* ; - "Create the FDEV and STREAM prototypes for TEXT streams.") + [LAMBDA NIL (* ; "Edited 6-May-2021 10:17 by rmk:") + (* ; + "Create the FDEV and STREAM prototypes for TEXT streams.") - (* ;; "TEXT streams make use of the following STREAM fields:") + (* ;; "TEXT streams make use of the following STREAM fields:") - (* ;; "(DEVICE (* FDEV of this guy -- The TEXT device)") + (* ;; "(DEVICE (* FDEV of this guy -- The TEXT device)") - (* ;; "F1 (* The STREAM for the PFILE of the current piece (or NIL))") + (* ;; "F1 (* The STREAM for the PFILE of the current piece (or NIL))") - (* ;; "F2 (* # chars left in piece at end of underlying file's page)") + (* ;; "F2 (* # chars left in piece at end of underlying file's page)") - (* ;; "F3 (* The TEXTOBJ for this stream)") + (* ;; "F3 (* The TEXTOBJ for this stream)") - (* ;; "F4") + (* ;; "F4") - (* ;; "F5 (* The PIECE we're currently inside)") + (* ;; "F5 (* The PIECE we're currently inside)") - (* ;; "(FW6 WORD) (* CPAGE for the start of the piece, for BACKFILEPTR)") + (* ;; "(FW6 WORD) (* CPAGE for the start of the piece, for BACKFILEPTR)") - (* ;; "(FW7 WORD) (* COFFSET for the start of the piece, for BACKFILEPTR)") + (* ;; "(FW7 WORD) (* COFFSET for the start of the piece, for BACKFILEPTR)") - (* ;; "(FW8 WORD)") + (* ;; "(FW8 WORD)") (SETQ \TEXTIMAGEOPS (create IMAGEOPS IMAGETYPE _ 'TEXT @@ -742,8 +744,7 @@ Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1993, 1994, FDBOUTABLE _ NIL FDEXTENDABLE _ NIL TRUNCATEFILE _ (FUNCTION NILL) - WRITEPAGES _ (FUNCTION NILL) - READCHARCODE _ (FUNCTION BIN))) + WRITEPAGES _ (FUNCTION NILL))) (SETQ \TEXTOFD (create STREAM BINABLE _ T @@ -761,9 +762,9 @@ Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1993, 1994, MAXBUFFERS _ 10 IMAGEOPS _ \TEXTIMAGEOPS IMAGEDATA _ (create TEXTIMAGEDATA) - OUTCHARFN _ (FUNCTION \TEDITOUTCHARFN))) (* ; "The prototypical Text stream") + OUTCHARFN _ (FUNCTION \TEDITOUTCHARFN))) (* ; "The prototypical Text stream") - (* ;; "Set up so that FILE NOT OPENs on TEdit streams are caught and fixed.") + (* ;; "Set up so that FILE NOT OPENs on TEdit streams are caught and fixed.") (CL:SETF (CONDITION-HANDLER 'XCL:STREAM-NOT-OPEN) (FUNCTION (LAMBDA (CONDITION) @@ -771,8 +772,8 @@ Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1993, 1994, (COND [(AND (BOUNDP 'ERRORPOS) (TEXTSTREAMP STREAM)) - (* ; - "This happened in the error handler, and it happened to a TEdit stream, so try the fix:") + (* ; + "This happened in the error handler, and it happened to a TEdit stream, so try the fix:") (LET ((XCL::RESULT (REOPENTEXTSTREAM STREAM))) (CL:WHEN XCL::RESULT (ENVAPPLY (STKNAME ERRORPOS) @@ -780,8 +781,8 @@ Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1993, 1994, (STKNTH -1 ERRORPOS ERRORPOS) ERRORPOS T T))] (*TEDIT-OLD-STREAM-ERROR-HANDLER* - (* ; - "Some other kind of stream, so punt to the old handler (if there is one):") + (* ; + "Some other kind of stream, so punt to the old handler (if there is one):") (APPLY* *TEDIT-OLD-STREAM-ERROR-HANDLER* CONDITION]) (\TEXTMARK @@ -2654,27 +2655,27 @@ Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1993, 1994, (ADDTOVAR LAMA TEXTPROP) ) (PUTPROPS TEXTOFD COPYRIGHT ("John Sybalsky & Xerox Corporation" 1983 1984 1985 1986 1987 1988 1989 -1990 1991 1993 1994 1995 1999 2000 2001)) +1990 1991 1993 1994 1995 1999 2000 2001 2021)) (DECLARE%: DONTCOPY - (FILEMAP (NIL (3014 53058 (COPYTEXTSTREAM 3024 . 6146) (OPENTEXTSTREAM 6148 . 21025) (REOPENTEXTSTREAM - 21027 . 21449) (TEDIT.STREAMCHANGEDP 21451 . 21749) (TEXTSTREAMP 21751 . 22065) (TXTFILE 22067 . -22512) (\DELETECH 22514 . 33770) (\SETUPGETCH 33772 . 41051) (\TEDIT.REOPEN.STREAM 41053 . 42903) ( -\TEDIT.COPYTEXTSTREAM.PIECEMAPFN 42905 . 45343) (\TEXTINIT 45345 . 50951) (\TEXTMARK 50953 . 51701) ( -\TEXTTTYBOUT 51703 . 53056)) (53059 78491 (\INSERTCH 53069 . 76795) (\INSERTCR 76797 . 78489)) (78557 -98873 (\CHTOPC 78567 . 79756) (\CHTOPCNO 79758 . 81020) (\CLEARPCTB 81022 . 81818) ( -\CREATEPIECEORSTREAM 81820 . 84794) (\DELETEPIECE 84796 . 85709) (\FINDPIECE 85711 . 86077) ( -\INSERTPIECE 86079 . 89089) (\MAKEPCTB 89091 . 91006) (\SPLITPIECE 91008 . 97967) (\INSERT.FIRST.PIECE - 97969 . 98871)) (98925 123143 (\TEXTCLOSEF 98935 . 100162) (\TEXTCLOSEF-SUBTREE 100164 . 100870) ( -\TEXTDSPFONT 100872 . 101864) (\TEXTEOFP 101866 . 103225) (\TEXTGETEOFPTR 103227 . 103437) ( -\TEXTGETFILEPTR 103439 . 105502) (\TEXTOPENF 105504 . 106334) (\TEXTOPENF-SUBTREE 106336 . 107137) ( -\TEXTOUTCHARFN 107139 . 107487) (\TEXTBACKFILEPTR 107489 . 113390) (\TEXTBOUT 113392 . 116740) ( -\TEDITOUTCHARFN 116742 . 117988) (\TEXTSETEOF 117990 . 118499) (\TEXTSETFILEPTR 118501 . 119726) ( -\TEXTDSPXPOSITION 119728 . 120585) (\TEXTDSPYPOSITION 120587 . 121132) (\TEXTLEFTMARGIN 121134 . -121617) (\TEXTRIGHTMARGIN 121619 . 122555) (\TEXTDSPCHARWIDTH 122557 . 122795) (\TEXTDSPSTRINGWIDTH -122797 . 123037) (\TEXTDSPLINEFEED 123039 . 123141)) (123144 156888 (\TEXTBIN 123154 . 139940) ( -\TEDIT.TEXTBIN.STRINGSETUP 139942 . 145655) (\TEDIT.TEXTBIN.FILESETUP 145657 . 152043) ( -\TEDIT.TEXTBIN.NEW.PAGE 152045 . 156886)) (156889 170297 (\TEXTPEEKBIN 156899 . 166038) ( -\TEDIT.PEEKBIN.NEW.PAGE 166040 . 170295)) (170335 175553 (CGETTEXTPROP 170345 . 170821) (CTEXTPROP -170823 . 173167) (GETTEXTPROP 173169 . 173764) (PUTTEXTPROP 173766 . 175091) (TEXTPROP 175093 . 175551 + (FILEMAP (NIL (2982 52971 (COPYTEXTSTREAM 2992 . 6114) (OPENTEXTSTREAM 6116 . 20993) (REOPENTEXTSTREAM + 20995 . 21417) (TEDIT.STREAMCHANGEDP 21419 . 21717) (TEXTSTREAMP 21719 . 22033) (TXTFILE 22035 . +22480) (\DELETECH 22482 . 33738) (\SETUPGETCH 33740 . 41019) (\TEDIT.REOPEN.STREAM 41021 . 42871) ( +\TEDIT.COPYTEXTSTREAM.PIECEMAPFN 42873 . 45311) (\TEXTINIT 45313 . 50864) (\TEXTMARK 50866 . 51614) ( +\TEXTTTYBOUT 51616 . 52969)) (52972 78404 (\INSERTCH 52982 . 76708) (\INSERTCR 76710 . 78402)) (78470 +98786 (\CHTOPC 78480 . 79669) (\CHTOPCNO 79671 . 80933) (\CLEARPCTB 80935 . 81731) ( +\CREATEPIECEORSTREAM 81733 . 84707) (\DELETEPIECE 84709 . 85622) (\FINDPIECE 85624 . 85990) ( +\INSERTPIECE 85992 . 89002) (\MAKEPCTB 89004 . 90919) (\SPLITPIECE 90921 . 97880) (\INSERT.FIRST.PIECE + 97882 . 98784)) (98838 123056 (\TEXTCLOSEF 98848 . 100075) (\TEXTCLOSEF-SUBTREE 100077 . 100783) ( +\TEXTDSPFONT 100785 . 101777) (\TEXTEOFP 101779 . 103138) (\TEXTGETEOFPTR 103140 . 103350) ( +\TEXTGETFILEPTR 103352 . 105415) (\TEXTOPENF 105417 . 106247) (\TEXTOPENF-SUBTREE 106249 . 107050) ( +\TEXTOUTCHARFN 107052 . 107400) (\TEXTBACKFILEPTR 107402 . 113303) (\TEXTBOUT 113305 . 116653) ( +\TEDITOUTCHARFN 116655 . 117901) (\TEXTSETEOF 117903 . 118412) (\TEXTSETFILEPTR 118414 . 119639) ( +\TEXTDSPXPOSITION 119641 . 120498) (\TEXTDSPYPOSITION 120500 . 121045) (\TEXTLEFTMARGIN 121047 . +121530) (\TEXTRIGHTMARGIN 121532 . 122468) (\TEXTDSPCHARWIDTH 122470 . 122708) (\TEXTDSPSTRINGWIDTH +122710 . 122950) (\TEXTDSPLINEFEED 122952 . 123054)) (123057 156801 (\TEXTBIN 123067 . 139853) ( +\TEDIT.TEXTBIN.STRINGSETUP 139855 . 145568) (\TEDIT.TEXTBIN.FILESETUP 145570 . 151956) ( +\TEDIT.TEXTBIN.NEW.PAGE 151958 . 156799)) (156802 170210 (\TEXTPEEKBIN 156812 . 165951) ( +\TEDIT.PEEKBIN.NEW.PAGE 165953 . 170208)) (170248 175466 (CGETTEXTPROP 170258 . 170734) (CTEXTPROP +170736 . 173080) (GETTEXTPROP 173082 . 173677) (PUTTEXTPROP 173679 . 175004) (TEXTPROP 175006 . 175464 ))))) STOP diff --git a/library/TEXTOFD.LCOM b/library/TEXTOFD.LCOM index 9a502f7c5..a59793f0c 100644 Binary files a/library/TEXTOFD.LCOM and b/library/TEXTOFD.LCOM differ diff --git a/library/TFBRAVO b/library/TFBRAVO index 3996df5bf..4e3abb8f4 100644 --- a/library/TFBRAVO +++ b/library/TFBRAVO @@ -1,14 +1,15 @@ (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) -(FILECREATED "19-Apr-2018 12:19:55" {DSK}kaplan>Local>medley3.5>lispcore>library>TFBRAVO.;2 74262 +(FILECREATED "13-Jun-2021 09:46:34"  +{DSK}kaplan>Local>medley3.5>git-medley>library>TFBRAVO.;3 74596 - changes to%: (VARS TFBRAVOCOMS) + changes to%: (FNS \TFBRAVO.WRITE.RUN \TFBRAVO.WRITE.RUNS \TFBRAVO.PARSE.PARA) - previous date%: "31-May-91 15:27:45" -{DSK}kaplan>Local>medley3.5>lispcore>library>TFBRAVO.;1) + previous date%: "19-Apr-2018 12:19:55" +{DSK}kaplan>Local>medley3.5>git-medley>library>TFBRAVO.;2) (* ; " -Copyright (c) 1984, 1985, 1986, 1987, 1990, 1991, 2018 by Venue & Xerox Corporation. All rights reserved. +Copyright (c) 1984-1987, 1990-1991, 2018, 2021 by Venue & Xerox Corporation. ") (PRETTYCOMPRINT TFBRAVOCOMS) @@ -427,24 +428,24 @@ Copyright (c) 1984, 1985, 1986, 1987, 1990, 1991, 2018 by Venue & Xerox Corporat (CADR (FASSOC FONT (FASSOC 'Font USER.CM.ALIST))))) (\TFBRAVO.WRITE.RUN - [LAMBDA (RUN IN PARALOOKS TEXTOBJ) (* ; "Edited 31-May-91 15:25 by jds") - (PROG (START END NAMEDTABNUMBER (LOOKS (fetch RUNLOOKS of RUN))) - (SETQ NAMEDTABNUMBER (fetch (CHARLOOKS CLUSERINFO) of (fetch RUNLOOKS + [LAMBDA (RUN IN PARALOOKS TEXTOBJ) (* ; "Edited 13-Jun-2021 09:44 by rmk:") + (PROG (START END NAMEDTABNUMBER (LOOKS (fetch (RUN RUNLOOKS) of RUN))) + (SETQ NAMEDTABNUMBER (fetch (CHARLOOKS CLUSERINFO) of (fetch (RUN RUNLOOKS) of RUN))) (COND - ((ILEQ (fetch RUNLENGTH of RUN) + ((ILEQ (fetch (RUN RUNLENGTH) of RUN) 0) (RETURN)) ([AND NAMEDTABNUMBER (EQUAL (PEEKC) (CHARACTER (CHARCODE ^I] - (* only treat the run like a tab if it has charcode 9, even if it has a tab - number. Color is overloaded onto tab numbers in BRAVO. - Jerks! Jerks!) + (* only treat the run like a tab if it has charcode 9, even if it has a tab + number. Color is overloaded onto tab numbers in BRAVO. + Jerks! Jerks!) (\TFBRAVO.ADD.NAMEDTAB TEXTOBJ NAMEDTABNUMBER PARALOOKS)) (T (SETQ END (IPLUS (SETQ START (GETFILEPTR IN)) - (fetch RUNLENGTH of RUN))) + (fetch (RUN RUNLENGTH) of RUN))) (TEDIT.RAW.INCLUDE TEXTOBJ IN START END) (TEDIT.LOOKS TEXTOBJ LOOKS]) @@ -792,15 +793,17 @@ Copyright (c) 1984, 1985, 1986, 1987, 1990, 1991, 2018 by Venue & Xerox Corporat LENGTH TEXTOBJ MARGIN.CANDIDATE]) (\TFBRAVO.WRITE.RUNS - (LAMBDA (PARA INFILE TEXTOBJ) (* gbn "18-Sep-84 16:29") + [LAMBDA (PARA INFILE TEXTOBJ) (* ; "Edited 13-Jun-2021 09:45 by rmk:") (DECLARE (USEDFREE UNDERLINE SUPERSCRIPT)) - (PROG ((RUNS (fetch RUNS of PARA)) - (PARALOOKS (fetch PARALOOKS of PARA)) + (PROG ((RUNS (fetch (PARA RUNS) of PARA)) + (PARALOOKS (fetch (PARA PARALOOKS) of PARA)) (LENGTH 0)) - (for RUN in old RUNS do (\TFBRAVO.WRITE.RUN RUN INFILE PARALOOKS TEXTOBJ) - (SETQ LENGTH (IPLUS (fetch RUNLENGTH of RUN) - LENGTH))) - (RETURN LENGTH)))) + (for RUN in old RUNS do (\TFBRAVO.WRITE.RUN RUN INFILE PARALOOKS + TEXTOBJ) + (SETQ LENGTH (IPLUS (fetch (RUN RUNLENGTH) + of RUN) + LENGTH))) + (RETURN LENGTH]) (\TFBRAVO.SPREAD.LOOKS (LAMBDA (RUN LOOKS) (* jds "22-Aug-84 14:53") @@ -841,40 +844,42 @@ Copyright (c) 1984, 1985, 1986, 1987, 1990, 1991, 2018 by Venue & Xerox Corporat LOOKS)) (\TFBRAVO.PARSE.PARA - (LAMBDA (OLDPLOOKS FILE) (* gbn "31-May-85 22:08") - - (* PLOOKS are the paragraph looks, and RUNi are the character runs in the form - returned by READCHARACTERLOOKS, except that the character count for the last - run has been filled in correctly. Leaves the input file pointer at the end of - the trailer, after the EOL.) + [LAMBDA (OLDPLOOKS FILE) (* ; "Edited 13-Jun-2021 09:46 by rmk:") + + (* PLOOKS are the paragraph looks, and RUNi are the character runs in the form + returned by READCHARACTERLOOKS, except that the character count for the last + run has been filled in correctly. Leaves the input file pointer at the end of + the trailer, after the EOL.) (PROG (LEN PLOOKS RUNS ORIGPTR) (SETQ ORIGPTR (GETFILEPTR FILE)) (SETQ LEN (FILEPOS (CHARACTER (CHARCODE ^Z)) FILE)) - (COND + [COND ((NOT LEN) (RETURN (create PARA PARALOOKS _ DefaultParagraphLooks - RUNS _ NIL)))) + RUNS _ NIL] (SETQ LEN (IDIFFERENCE LEN ORIGPTR)) - (BIN FILE) (* BIN past the ^z) + (BIN FILE) (* BIN past the ^z) (SETQ PLOOKS (\TFBRAVO.READ.PARALOOKS OLDPLOOKS FILE)) - (COND - ((NEQ (CAR (PROG1 PLOOKS (SETQ PLOOKS (CDR PLOOKS)))) + [COND + ((NEQ [CAR (PROG1 PLOOKS + (SETQ PLOOKS (CDR PLOOKS)))] '\) (RETURN (create PARA PARALOOKS _ PLOOKS RUNS _ (LIST (create RUN RUNLENGTH _ LEN RUNLOOKS _ (\TFBRAVO.FONT.FROM.CHARLOOKS - USER.CM.CHARLOOKS))))))) - CLP (while (fetch RUNLENGTH of (CAR (push RUNS (\TFBRAVO.READ.CHARLOOKS FILE)))) - do (SETQ LEN (IDIFFERENCE LEN (fetch RUNLENGTH of (CAR RUNS))))) - (replace RUNLENGTH of (CAR RUNS) with LEN) + USER.CM.CHARLOOKS] + CLP [while [fetch (RUN RUNLENGTH) of (CAR (push RUNS (\TFBRAVO.READ.CHARLOOKS + FILE] + do (SETQ LEN (IDIFFERENCE LEN (fetch (RUN RUNLENGTH) of (CAR RUNS] + (replace (RUN RUNLENGTH) of (CAR RUNS) with LEN) (RETURN (create PARA PARALOOKS _ PLOOKS - RUNS _ (DREVERSE RUNS)))))) + RUNS _ (DREVERSE RUNS]) (\TFBRAVO.INIT.PARALOOKS [LAMBDA (USER.CM.LOOKS) (* ; "Edited 31-May-91 15:26 by jds") @@ -1320,21 +1325,21 @@ Copyright (c) 1984, 1985, 1986, 1987, 1990, 1991, 2018 by Venue & Xerox Corporat (\NAMEDTAB.INIT) ) -(PUTPROPS TFBRAVO COPYRIGHT ("Venue & Xerox Corporation" 1984 1985 1986 1987 1990 1991 2018)) +(PUTPROPS TFBRAVO COPYRIGHT ("Venue & Xerox Corporation" 1984 1985 1986 1987 1990 1991 2018 2021)) (DECLARE%: DONTCOPY - (FILEMAP (NIL (4236 34112 (\TFBRAVO.FIND.LAST.TRAILER 4246 . 5739) (\TFBRAVO.HANDLE.HEADING 5741 . -7619) (\TFBRAVO.INIT.CHARLOOKS 7621 . 8437) (\TFBRAVO.INIT.PAGEFORMAT 8439 . 8917) ( -\TFBRAVO.INSTALL.PAGEFORMAT 8919 . 13556) (\TFBRAVO.PARSE.PROFILE.PARA 13558 . 22071) ( -\TFBRAVO.PARSE.PROFILE.VALUE 22073 . 22840) (\TFBRAVO.GET.FONTSIZE 22842 . 23158) ( -\TFBRAVO.GET.FONTSTYLE 23160 . 23488) (\TFBRAVO.WRITE.RUN 23490 . 24597) (\TFBRAVO.ASSERT 24599 . -24911) (\SHIFT.DOCUMENT 24913 . 28789) (\TEDIT.BRAVOFILE? 28791 . 30838) (\TEST.CHARACTER.LOOKS 30840 - . 32480) (\TEST.PARAGRAPH.LOOKS 32482 . 34110)) (34113 37660 (\TFBRAVO.COPY.NAMEDTAB 34123 . 34482) ( -\TFBRAVO.PUT.NAMEDTAB 34484 . 34780) (\TFBRAVO.GET.NAMEDTAB 34782 . 35059) (\TFBRAVO.ADD.NAMEDTAB -35061 . 36038) (\NAMEDTABNYET 36040 . 36205) (\NAMEDTABSIZE 36207 . 37092) (\NAMEDTAB.INIT 37094 . -37658)) (37661 73665 (\TFBRAVO.APPLY.PARALOOKS 37671 . 38702) (TEDITFROMBRAVO 38704 . 41106) ( -\TFBRAVO.WRITE.PARAGRAPH 41108 . 42130) (\TFBRAVO.WRITE.RUNS 42132 . 42713) (\TFBRAVO.SPREAD.LOOKS -42715 . 45687) (\TFBRAVO.PARSE.PARA 45689 . 47594) (\TFBRAVO.INIT.PARALOOKS 47596 . 50920) ( -\TFBRAVO.READ.PARALOOKS 50922 . 58098) (\TFBRAVO.READ.CHARLOOKS 58100 . 66233) (\TFBRAVO.READ.USER.CM -66235 . 69565) (\TFBRAVO.GETPARAMS 69567 . 70396) (\TFBRAVO.PARAMNAMEP 70398 . 70846) (\TFBRAVO.EOLS -70848 . 71261) (\TFBRAVO.LCASER 71263 . 71815) (\TFBRAVO.FONT.FROM.CHARLOOKS 71817 . 73663))))) + (FILEMAP (NIL (4259 34161 (\TFBRAVO.FIND.LAST.TRAILER 4269 . 5762) (\TFBRAVO.HANDLE.HEADING 5764 . +7642) (\TFBRAVO.INIT.CHARLOOKS 7644 . 8460) (\TFBRAVO.INIT.PAGEFORMAT 8462 . 8940) ( +\TFBRAVO.INSTALL.PAGEFORMAT 8942 . 13579) (\TFBRAVO.PARSE.PROFILE.PARA 13581 . 22094) ( +\TFBRAVO.PARSE.PROFILE.VALUE 22096 . 22863) (\TFBRAVO.GET.FONTSIZE 22865 . 23181) ( +\TFBRAVO.GET.FONTSTYLE 23183 . 23511) (\TFBRAVO.WRITE.RUN 23513 . 24646) (\TFBRAVO.ASSERT 24648 . +24960) (\SHIFT.DOCUMENT 24962 . 28838) (\TEDIT.BRAVOFILE? 28840 . 30887) (\TEST.CHARACTER.LOOKS 30889 + . 32529) (\TEST.PARAGRAPH.LOOKS 32531 . 34159)) (34162 37709 (\TFBRAVO.COPY.NAMEDTAB 34172 . 34531) ( +\TFBRAVO.PUT.NAMEDTAB 34533 . 34829) (\TFBRAVO.GET.NAMEDTAB 34831 . 35108) (\TFBRAVO.ADD.NAMEDTAB +35110 . 36087) (\NAMEDTABNYET 36089 . 36254) (\NAMEDTABSIZE 36256 . 37141) (\NAMEDTAB.INIT 37143 . +37707)) (37710 73994 (\TFBRAVO.APPLY.PARALOOKS 37720 . 38751) (TEDITFROMBRAVO 38753 . 41155) ( +\TFBRAVO.WRITE.PARAGRAPH 41157 . 42179) (\TFBRAVO.WRITE.RUNS 42181 . 42950) (\TFBRAVO.SPREAD.LOOKS +42952 . 45924) (\TFBRAVO.PARSE.PARA 45926 . 47923) (\TFBRAVO.INIT.PARALOOKS 47925 . 51249) ( +\TFBRAVO.READ.PARALOOKS 51251 . 58427) (\TFBRAVO.READ.CHARLOOKS 58429 . 66562) (\TFBRAVO.READ.USER.CM +66564 . 69894) (\TFBRAVO.GETPARAMS 69896 . 70725) (\TFBRAVO.PARAMNAMEP 70727 . 71175) (\TFBRAVO.EOLS +71177 . 71590) (\TFBRAVO.LCASER 71592 . 72144) (\TFBRAVO.FONT.FROM.CHARLOOKS 72146 . 73992))))) STOP diff --git a/library/TFBRAVO.LCOM b/library/TFBRAVO.LCOM index 37d1a6efb..1bea3747c 100644 Binary files a/library/TFBRAVO.LCOM and b/library/TFBRAVO.LCOM differ diff --git a/library/UNICODE b/library/UNICODE index 90e288b09..d29c052e2 100644 --- a/library/UNICODE +++ b/library/UNICODE @@ -1,11 +1,11 @@ -(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP") -(FILECREATED " 1-Feb-2021 18:00:30"  -{DSK}kaplan>Local>medley3.5>git-medley>library>UNICODE.;169 68022 +(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10 FORMAT XCCS) +(FILECREATED " 3-Jul-2021 13:37:33"  +{DSK}kaplan>Local>medley3.5>git-medley>library>UNICODE.;175 66483 - changes to%: (FNS UTF8.INCCODEFN UTF8.OUTCHARFN) + changes to%: (FNS READ-UNICODE-MAPPING MAKE-UNICODE-FORMATS) - previous date%: "29-Nov-2020 10:50:18" -{DSK}kaplan>Local>medley3.5>git-medley>library>UNICODE.;167) + previous date%: " 3-Jul-2021 11:41:05" +{DSK}kaplan>Local>medley3.5>git-medley>library>UNICODE.;173) (PRETTYCOMPRINT UNICODECOMS) @@ -19,7 +19,7 @@ (INITVARS (EXTERNALEOL 'LF)) (FNS MAKE-UNICODE-FORMATS) (P (MAKE-UNICODE-FORMATS EXTERNALEOL)) - (ADDVARS (*DEFAULT-EXTERNAL-FORMATS* (UNIX :UTF8))) + (ADDVARS (*DEFAULT-EXTERNALFORMATS* (UNIX :UTF8))) (FNS UNICODE.UNMAPPED) (FNS XCCS-UTF8-AFTER-OPEN) (DECLARE%: EVAL@COMPILE DONTCOPY (MACROS UNICODE.TRANSLATE)) @@ -47,7 +47,7 @@ (FNS MAKE-UNICODE-TRANSLATION-TABLES) [INITVARS (DEFAULT-XCCS-CHARSETS '(LATIN SYMBOLS1 SYMBOLS2 EXTENDED-LATIN FORMS - SYMBOLS3 SYMBOLS4 ACCENTED-LATIN] + SYMBOLS3 SYMBOLS4 ACCENTED-LATIN GREEK] [DECLARE%: DONTEVAL@LOAD DOCOPY (P (MAKE-UNICODE-TRANSLATION-TABLES ( READ-UNICODE-MAPPING @@ -58,13 +58,10 @@ (GLOBALVARS *XCCSTOUNICODE* *UNICODETOXCCS*)) (FNS HEXSTRING UTF8HEXSTRING NUTF8CODEBYTES NUTF8STRINGBYTES XTOUSTRING XCCSSTRING) (FNS SHOWCHARS) - (DECLARE%: EVAL@COMPILE DONTCOPY - - (* ;; "This is taken from FILEIO") - - (CONSTANTS (LF.EOLC 1) - (CR.EOLC 0) - (CRLF.EOLC 2)) + (DECLARE%: EVAL@COMPILE DONTCOPY (P (OR (GETP 'EXPORTS.ALL 'FILE) + (PRINT + "NOTE: UNICODE requires EXPORTS.ALL for compilation" + T))) (* ;; "These control the layout of the translation tables. Since many of the upper panels are sparse, doing it per-panel (128) seems more space-efficient, and residual alists can be shorter") @@ -72,9 +69,7 @@ (MAX-ALIST-LENGTH 10) (N-TRANSLATION-SEGMENTS (IQUOTIENT 65536 TRANSLATION-SEGMENT-SIZE)) (TRANSLATION-SHIFT (INTEGERLENGTH (SUB1 TRANSLATION-SEGMENT-SIZE))) - (TRANSLATION-MASK (SUB1 TRANSLATION-SEGMENT-SIZE))) - (P (EVAL (SYSRECLOOK1 'EXTERNALFORMAT)) - (EVAL (SYSRECLOOK1 'STREAM]) + (TRANSLATION-MASK (SUB1 TRANSLATION-SEGMENT-SIZE]) @@ -132,201 +127,11 @@ (LOADBYTE C 0 6))) ELSE (ERROR "CHARCODE too big for UTF8" C]) -(UTF8.INCCODEFN - [LAMBDA (STREAM COUNTP RAW) (* ; "Edited 1-Feb-2021 17:59 by rmk:") - (* ; "Edited 6-Aug-2020 17:13 by rmk:") - - (* ;; "Do not do UNICODE to XCSS translation if RAW.") - - (* ;; "Test for smallp because the stream's End-of-file operation may suppress the error") - - (LET (BYTE1 BYTE2 BYTE3 BYTE4 CODE (COUNT 1)) - (SETQ BYTE1 (\BIN STREAM)) - - (* ;; "Distinguish on header bytes (modulo peculiar EOF behavior--the caller will get whatever ended up in BYTE1") - - (CL:WHEN (SMALLP BYTE1) - [SETQ CODE (IF (ILESSP BYTE1 128) - THEN - - (* ;; - "Test first: Ascii is the common case. EOL requires its own translation") - - (SELCHARQ BYTE1 - (CR (SELECTC (FETCH (STREAM EOLCONVENTION) OF STREAM) - (CR.EOLC (* ; "Also eq BYTE1") - (CHARCODE EOL)) - (CRLF.EOLC (IF (EQ (CHARCODE LF) - (\PEEKBIN STREAM T)) - THEN (\BIN STREAM) - (CL:WHEN COUNTP (SETQ COUNT 2)) - (CHARCODE EOL) - ELSE BYTE1)) - BYTE1)) - (LF (CL:IF (EQ LF.EOLC (FETCH (STREAM EOLCONVENTION) - OF STREAM)) - (CHARCODE EOL) - BYTE1)) - BYTE1) - ELSEIF (IGEQ BYTE1 (LLSH 15 4)) - THEN (* ; "4 bytes") - (SETQ BYTE2 (\BIN STREAM)) - (CL:WHEN (OR (NOT (SMALLP BYTE2)) - (ILESSP BYTE2 128)) - (ERROR "INVALID UTF8 SEQUENCE" (LIST BYTE1 BYTE2))) - (SETQ BYTE3 (\BIN STREAM)) - (CL:WHEN (OR (NOT (SMALLP BYTE3)) - (ILESSP BYTE3 128)) - (ERROR "INVALID UTF8 SEQUENCE" (LIST BYTE1 BYTE2 BYTE3))) - (SETQ BYTE4 (\BIN STREAM)) - (CL:WHEN (OR (NOT (SMALLP BYTE4)) - (ILESSP BYTE4 128)) - (ERROR "INVALID UTF8 SEQUENCE" (LIST BYTE1 BYTE2 BYTE3 BYTE4))) - (SETQ COUNT 4) - (LOGOR (LLSH (LOADBYTE BYTE1 0 3) - 18) - (LLSH (LOADBYTE BYTE2 0 6) - 12) - (LLSH (LOADBYTE BYTE3 0 6) - 6) - (LOADBYTE BYTE4 0 6)) - ELSEIF (IGEQ BYTE1 (LLSH 7 5)) - THEN (* ; "3 bytes") - (SETQ BYTE2 (\BIN STREAM)) - (CL:WHEN (OR (NOT (SMALLP BYTE2)) - (ILESSP BYTE2 128)) - (ERROR "INVALID UTF8 SEQUENCE" (LIST BYTE1 BYTE2))) - (SETQ BYTE3 (\BIN STREAM)) - (CL:WHEN (OR (NOT (SMALLP BYTE3)) - (ILESSP BYTE3 128)) - (ERROR "INVALID UTF8 SEQUENCE" (LIST BYTE1 BYTE2 BYTE3))) - (SETQ COUNT 3) - (LOGOR (LLSH (LOADBYTE BYTE1 0 4) - 12) - (LLSH (LOADBYTE BYTE2 0 6) - 6) - (LOADBYTE BYTE3 0 6)) - ELSE (* ; "Must be 2 bytes") - (SETQ COUNT 2) - (SETQ BYTE2 (\BIN STREAM)) - (CL:WHEN (OR (NOT (SMALLP BYTE2)) - (ILESSP BYTE2 128)) - (ERROR "INVALID UTF8 SEQUENCE" (LIST BYTE1 BYTE2))) - (LOGOR (LLSH (LOADBYTE BYTE1 0 5) - 6) - (LOADBYTE BYTE2 0 6]) - (CL:UNLESS (OR RAW (NOT (SMALLP CODE))) - (SETQ CODE (UNICODE.TRANSLATE CODE *UNICODETOXCCS*))) - (CL:IF COUNTP - (CL:VALUES CODE COUNT) - CODE)]) - -(UTF8.PEEKCCODEFN - [LAMBDA (STREAM NOERROR COUNTP RAW) (* ; "Edited 6-Aug-2020 17:12 by rmk:") - - (* ;; "Modeled this after \EUCPEEK on LLREAD. In the multi-byte (non-ASCII) case, backs the file pointer to the beginning by the proper number of \BACKFILEPTRs, and returns a count of 0. Returns NIL if NOERROR and either invalid UTF8 or end of file.") - - (* ;; "Could be that the caller takes care of backing up the file position if the number of binned-bytes is returned.") - - (* ;; "Do not do UNICODE to XCCS translation if RAW") - - (PROG (BYTE1 BYTE2 BYTE3 BYTE4 CODE) - (SETQ BYTE1 (\PEEKBIN STREAM NOERROR)) - - (* ;; "Distinguish on header bytex") - - (CL:UNLESS BYTE1 - (RETURN (AND COUNTP (CL:VALUES NIL 0)))) - [IF (ILESSP BYTE1 128) - THEN - - (* ;; - "Test first: Ascii is the common case. No need to back up, since we peeked.") - - (SETQ CODE BYTE1) - ELSEIF (IGEQ BYTE1 (LLSH 15 4)) - THEN (* ; "4 bytes") - (\BIN STREAM) - (CL:UNLESS (AND (SETQ BYTE2 (\PEEKBIN STREAM NOERROR)) - (IGEQ BYTE2 128)) - (\BACKFILEPTR STREAM) - (OR NOERROR (ERROR "INVALID UTF8 SEQUENCE" (LIST BYTE1 BYTE2))) - (RETURN (IF COUNTP - THEN (CL:VALUES CODE 0) - ELSE CODE))) - (\BIN STREAM) - (CL:UNLESS (AND (SETQ BYTE3 (\PEEKBIN STREAM NOERROR)) - (IGEQ BYTE3 128)) - (\BACKFILEPTR STREAM) - (\BACKFILEPTR STREAM) - (OR NOERROR (ERROR "INVALID UTF8 SEQUENCE" (LIST BYTE1 BYTE2 BYTE3))) - (RETURN (IF COUNTP - THEN (CL:VALUES CODE 0) - ELSE CODE))) - (\BIN STREAM) - (SETQ BYTE4 (\PEEKBIN STREAM NOERROR)) (* ; - "PEEK the last, no need to back it up") - (\BACKFILEPTR STREAM) - (\BACKFILEPTR STREAM) - (\BACKFILEPTR STREAM) - (IF (AND BYTE4 (IGEQ BYTE4 128)) - THEN (SETQ CODE (LOGOR (LLSH (LOADBYTE BYTE1 0 3) - 18) - (LLSH (LOADBYTE BYTE2 0 6) - 12) - (LLSH (LOADBYTE BYTE3 0 6) - 6) - (LOADBYTE BYTE4 0 6))) - ELSEIF NOERROR - ELSE (ERROR "INVALID UTF8 SEQUENCE" (LIST BYTE1 BYTE2 BYTE3 BYTE4))) - ELSEIF (IGEQ BYTE1 (LLSH 7 5)) - THEN (* ; "3 bytes") - (\BIN STREAM) - (CL:UNLESS (AND (SETQ BYTE2 (\PEEKBIN STREAM NOERROR)) - (IGEQ BYTE2 128)) - (\BACKFILEPTR STREAM) - (OR NOERROR (ERROR "INVALID UTF8 SEQUENCE" (LIST BYTE1 BYTE2))) - (RETURN (IF COUNTP - THEN (CL:VALUES CODE 0) - ELSE CODE))) - (\BIN STREAM) - (SETQ BYTE3 (\PEEKBIN STREAM NOERROR)) - (\BACKFILEPTR STREAM) - (\BACKFILEPTR STREAM) - (IF (AND BYTE3 (IGEQ BYTE3 128)) - THEN (SETQ CODE (LOGOR (LLSH (LOADBYTE BYTE1 0 4) - 12) - (LLSH (LOADBYTE BYTE2 0 6) - 6) - (LOADBYTE BYTE3 0 6))) - ELSEIF NOERROR - ELSE (ERROR "INVALID UTF8 SEQUENCE" (LIST BYTE1 BYTE2 BYTE3))) - ELSE (* ; "Must be 2 bytes") - (\BIN STREAM) - (SETQ BYTE2 (\PEEKBIN STREAM NOERROR)) - (\BACKFILEPTR STREAM) - (IF (AND BYTE2 (IGEQ BYTE2 128)) - THEN (SETQ CODE (LOGOR (LLSH (LOADBYTE BYTE1 0 5) - 6) - (LOADBYTE BYTE2 0 6))) - ELSEIF NOERROR - ELSE (ERROR "INVALID UTF8 SEQUENCE" (LIST BYTE1 BYTE2] - (CL:WHEN (AND CODE (NOT RAW)) - (SETQ CODE (UNICODE.TRANSLATE CODE *UNICODETOXCCS*))) - (RETURN (IF COUNTP - THEN (CL:VALUES CODE 0) - ELSE CODE]) - -(\UTF8.BACKCHARFN - [LAMBDA (STREAM COUNTP) (* ; "Edited 26-Jul-2020 10:41 by rmk:") - - (* ;; "\BACKFILEPTR is NIL at beginning of FILE, just return COUNT") - - (BIND (C _ 0) WHILE (CL:WHEN (\BACKFILEPTR STREAM) - (ADD C 1) - (EQ 2 (LRSH (\PEEKBIN STREAM) - 6))) REPEATUNTIL (EQ C 4) - FINALLY (RETURN (AND COUNTP C]) +(UTF8.INCCODEFN [LAMBDA (STREAM BYTECOUNTVAR BYTECOUNTVAL RAW) (* ; "Edited 15-Jun-2021 13:35 by rmk:") (* ; "Edited 6-Aug-2020 17:13 by rmk:") (* ;; "Do not do UNICODE to XCSS translation if RAW.") (* ;; "Test for smallp because the stream's End-of-file operation may suppress the error") (LET (BYTE1 BYTE2 BYTE3 BYTE4 CODE (COUNT 1)) (SETQ BYTE1 (\BIN STREAM)) (* ;; "Distinguish on header bytes (modulo peculiar EOF behavior--the caller will get whatever ended up in BYTE1") (CL:WHEN (SMALLP BYTE1) [SETQ CODE (IF (ILESSP BYTE1 128) THEN (* ;;  "Test first: Ascii is the common case. EOL requires its own translation") (SELCHARQ BYTE1 (CR (SELECTC (FETCH (STREAM EOLCONVENTION) OF STREAM) (CR.EOLC (* ; "Also eq BYTE1") (CHARCODE EOL)) (CRLF.EOLC (IF (EQ (CHARCODE LF) (\PEEKBIN STREAM T)) THEN (\BIN STREAM) (CL:WHEN BYTECOUNTVAR (SETQ BYTECOUNTVAR (IDIFFERENCE BYTECOUNTVAL 2))) (CHARCODE EOL) ELSE BYTE1)) BYTE1)) (LF (CL:IF (EQ LF.EOLC (FETCH (STREAM EOLCONVENTION) OF STREAM)) (CHARCODE EOL) BYTE1)) BYTE1) ELSEIF (IGEQ BYTE1 (LLSH 15 4)) THEN (* ; "4 bytes") (SETQ BYTE2 (\BIN STREAM)) (CL:WHEN (OR (NOT (SMALLP BYTE2)) (ILESSP BYTE2 128)) (ERROR "INVALID UTF8 SEQUENCE" (LIST BYTE1 BYTE2))) (SETQ BYTE3 (\BIN STREAM)) (CL:WHEN (OR (NOT (SMALLP BYTE3)) (ILESSP BYTE3 128)) (ERROR "INVALID UTF8 SEQUENCE" (LIST BYTE1 BYTE2 BYTE3))) (SETQ BYTE4 (\BIN STREAM)) (CL:WHEN (OR (NOT (SMALLP BYTE4)) (ILESSP BYTE4 128)) (ERROR "INVALID UTF8 SEQUENCE" (LIST BYTE1 BYTE2 BYTE3 BYTE4))) (SETQ COUNT 4) (LOGOR (LLSH (LOADBYTE BYTE1 0 3) 18) (LLSH (LOADBYTE BYTE2 0 6) 12) (LLSH (LOADBYTE BYTE3 0 6) 6) (LOADBYTE BYTE4 0 6)) ELSEIF (IGEQ BYTE1 (LLSH 7 5)) THEN (* ; "3 bytes") (SETQ BYTE2 (\BIN STREAM)) (CL:WHEN (OR (NOT (SMALLP BYTE2)) (ILESSP BYTE2 128)) (ERROR "INVALID UTF8 SEQUENCE" (LIST BYTE1 BYTE2))) (SETQ BYTE3 (\BIN STREAM)) (CL:WHEN (OR (NOT (SMALLP BYTE3)) (ILESSP BYTE3 128)) (ERROR "INVALID UTF8 SEQUENCE" (LIST BYTE1 BYTE2 BYTE3))) (SETQ COUNT 3) (LOGOR (LLSH (LOADBYTE BYTE1 0 4) 12) (LLSH (LOADBYTE BYTE2 0 6) 6) (LOADBYTE BYTE3 0 6)) ELSE (* ; "Must be 2 bytes") (SETQ COUNT 2) (SETQ BYTE2 (\BIN STREAM)) (CL:WHEN (OR (NOT (SMALLP BYTE2)) (ILESSP BYTE2 128)) (ERROR "INVALID UTF8 SEQUENCE" (LIST BYTE1 BYTE2))) (LOGOR (LLSH (LOADBYTE BYTE1 0 5) 6) (LOADBYTE BYTE2 0 6]) (CL:UNLESS (OR RAW (NOT (SMALLP CODE))) (SETQ CODE (UNICODE.TRANSLATE CODE *UNICODETOXCCS*))) (CL:WHEN BYTECOUNTVAR (SET BYTECOUNTVAR (IDIFFERENCE BYTECOUNTVAL COUNT))) CODE]) + +(UTF8.PEEKCCODEFN [LAMBDA (STREAM NOERROR RAW) (* ; "Edited 14-Jun-2021 22:53 by rmk:") (* ;; "Modeled this after \EUCPEEK on LLREAD. In the multi-byte (non-ASCII) case, backs the file pointer to the beginning by the proper number of \BACKFILEPTRs, and returns a count of 0. Returns NIL if NOERROR and either invalid UTF8 or end of file.") (* ;; "Could be that the caller takes care of backing up the file position if the number of binned-bytes is returned.") (* ;; "Do not do UNICODE to XCCS translation if RAW") (PROG (BYTE1 BYTE2 BYTE3 BYTE4 CODE) (SETQ BYTE1 (\PEEKBIN STREAM NOERROR)) (* ;; "Distinguish on header bytex") (CL:UNLESS BYTE1 (RETURN NIL)) [IF (ILESSP BYTE1 128) THEN (* ;;  "Test first: Ascii is the common case. No need to back up, since we peeked.") (SETQ CODE BYTE1) ELSEIF (IGEQ BYTE1 (LLSH 15 4)) THEN (* ; "4 bytes") (\BIN STREAM) (CL:UNLESS (AND (SETQ BYTE2 (\PEEKBIN STREAM NOERROR)) (IGEQ BYTE2 128)) (\BACKFILEPTR STREAM) (OR NOERROR (ERROR "INVALID UTF8 SEQUENCE" (LIST BYTE1 BYTE2))) (RETURN CODE)) (\BIN STREAM) (CL:UNLESS (AND (SETQ BYTE3 (\PEEKBIN STREAM NOERROR)) (IGEQ BYTE3 128)) (\BACKFILEPTR STREAM) (\BACKFILEPTR STREAM) (OR NOERROR (ERROR "INVALID UTF8 SEQUENCE" (LIST BYTE1 BYTE2 BYTE3))) (RETURN CODE)) (\BIN STREAM) (SETQ BYTE4 (\PEEKBIN STREAM NOERROR)) (* ;  "PEEK the last, no need to back it up") (\BACKFILEPTR STREAM) (\BACKFILEPTR STREAM) (\BACKFILEPTR STREAM) (IF (AND BYTE4 (IGEQ BYTE4 128)) THEN (SETQ CODE (LOGOR (LLSH (LOADBYTE BYTE1 0 3) 18) (LLSH (LOADBYTE BYTE2 0 6) 12) (LLSH (LOADBYTE BYTE3 0 6) 6) (LOADBYTE BYTE4 0 6))) ELSEIF NOERROR ELSE (ERROR "INVALID UTF8 SEQUENCE" (LIST BYTE1 BYTE2 BYTE3 BYTE4))) ELSEIF (IGEQ BYTE1 (LLSH 7 5)) THEN (* ; "3 bytes") (\BIN STREAM) (CL:UNLESS (AND (SETQ BYTE2 (\PEEKBIN STREAM NOERROR)) (IGEQ BYTE2 128)) (\BACKFILEPTR STREAM) (OR NOERROR (ERROR "INVALID UTF8 SEQUENCE" (LIST BYTE1 BYTE2))) (RETURN CODE)) (\BIN STREAM) (SETQ BYTE3 (\PEEKBIN STREAM NOERROR)) (\BACKFILEPTR STREAM) (\BACKFILEPTR STREAM) (IF (AND BYTE3 (IGEQ BYTE3 128)) THEN (SETQ CODE (LOGOR (LLSH (LOADBYTE BYTE1 0 4) 12) (LLSH (LOADBYTE BYTE2 0 6) 6) (LOADBYTE BYTE3 0 6))) ELSEIF NOERROR ELSE (ERROR "INVALID UTF8 SEQUENCE" (LIST BYTE1 BYTE2 BYTE3))) ELSE (* ; "Must be 2 bytes") (\BIN STREAM) (SETQ BYTE2 (\PEEKBIN STREAM NOERROR)) (\BACKFILEPTR STREAM) (IF (AND BYTE2 (IGEQ BYTE2 128)) THEN (SETQ CODE (LOGOR (LLSH (LOADBYTE BYTE1 0 5) 6) (LOADBYTE BYTE2 0 6))) ELSEIF NOERROR ELSE (ERROR "INVALID UTF8 SEQUENCE" (LIST BYTE1 BYTE2] (CL:WHEN (AND CODE (NOT RAW)) (SETQ CODE (UNICODE.TRANSLATE CODE *UNICODETOXCCS*))) (RETURN CODE]) + +(\UTF8.BACKCHARFN [LAMBDA (STREAM BYTECOUNTVAR BYTECOUNTVAL) (* ; "Edited 15-Jun-2021 13:38 by rmk:") (* ;; "\BACKFILEPTR is NIL at beginning of FILE, just return COUNT") (BIND (C _ 0) WHILE (CL:WHEN (\BACKFILEPTR STREAM) (ADD C 1) (EQ 2 (LRSH (\PEEKBIN STREAM) 6))) REPEATUNTIL (EQ C 4) FINALLY (CL:WHEN BYTECOUNTVAR (SET BYTECOUNTVAR (IPLUS BYTECOUNTVAL C)))]) ) (DEFINEQ @@ -346,72 +151,18 @@ DO (\BOUT STREAM (LRSH C 8)) (\BOUT STREAM (LOGAND C 255]) -(UTF16BE.INCCODEFN - [LAMBDA (STREAM COUNTP RAW) (* ; "Edited 6-Aug-2020 17:48 by rmk:") +(UTF16BE.INCCODEFN [LAMBDA (STREAM BYTECOUNTVAR BYTECOUNTVAL RAW) (* ; "Edited 15-Jun-2021 13:36 by rmk:") (* ;;  "Do not do UNICODE to XCCS translation if RAW. Test for SMALLPin case of funky EOF behavior") (LET (CODE BYTE1 BYTE2 COUNT) (IF [AND (SMALLP (SETQ BYTE1 (\BIN STREAM))) (SMALLP (SETQ BYTE2 (\BIN STREAM] THEN (SETQ COUNT 2) (SETQ CODE (LOGOR (LLSH (\BIN STREAM) 8) (\BIN STREAM))) (CL:UNLESS RAW (SETQ CODE (UNICODE.TRANSLATE CODE *UNICODETOXCCS*))) (AND BYTECOUNTVAR (SET BYTECOUNTVAR (IDIFFERENCE BYTECOUNTVAL COUNT))) CODE ELSE (ERROR "ODD NUMBER OF BYTES IN UTF16 FILE" STREAM]) - (* ;; - "Do not do UNICODE to XCCS translation if RAW. Test for SMALLPin case of funky EOF behavior") - - (LET (CODE BYTE1 BYTE2 COUNT) - (IF [AND (SMALLP (SETQ BYTE1 (\BIN STREAM))) - (SMALLP (SETQ BYTE2 (\BIN STREAM] - THEN (SETQ COUNT 2) - (SETQ CODE (LOGOR (LLSH (\BIN STREAM) - 8) - (\BIN STREAM))) - (CL:UNLESS RAW - (SETQ CODE (UNICODE.TRANSLATE CODE *UNICODETOXCCS*))) - (CL:IF COUNTP - (CL:VALUES CODE COUNT) - CODE) - ELSE (ERROR "ODD NUMBER OF BYTES IN UTF16 FILE" STREAM]) - -(UTF16BE.PEEKCCODEFN - [LAMBDA (STREAM NOERROR COUNTP RAW) (* ; "Edited 30-Jul-2020 14:06 by rmk:") - - (* ;; "Could be that the caller takes care of backing up the file position if the number of binned-bytes is returned.") - - (* ;; "Do not do UNICODE to XCCS translation if RAW") - - (LET (BYTE1 BYTE2 CODE) - (SETQ BYTE1 (\PEEKBIN STREAM NOERROR)) - (IF BYTE1 - THEN (\BIN STREAM) - (SETQ BYTE2 (\PEEKBIN STREAM NOERROR)) - (\BACKFILEPTR STREAM) - (IF BYTE2 - THEN (SETQ CODE (LOGOR (LLSH BYTE1 8) - BYTE2)) - (CL:IF COUNTP - (CL:VALUES (CL:IF RAW - CODE - (UNICODE.TRANSLATE CODE *UNICODETOXCCS*)) - 0)) - ELSEIF NOERROR - ELSE (AND COUNTP (CL:VALUES NIL 0))) - ELSEIF NOERROR - THEN (AND COUNTP (CL:VALUES NIL 0)) - ELSE (ERROR "INVALID UTF16 CHARACTER" (LIST BYTE1 BYTE2]) - -(\UTF16.BACKCHARFN - [LAMBDA (STREAM COUNTP) (* ; "Edited 26-Jul-2020 13:05 by rmk:") - - (* ;; "\BACKFILEPTR is NIL at beginning of FILE, just return COUNT.") - - (* ;; "Common for big-ending and little-ending") - - (IF (NOT (\BACKFILEPTR STREAM)) - THEN (AND COUNTP 0) - ELSEIF (\BACKFILEPTR STREAM) - THEN (AND COUNTP 2) - ELSE (AND COUNTP 1]) +(UTF16BE.PEEKCCODEFN [LAMBDA (STREAM NOERROR RAW) (* ; "Edited 14-Jun-2021 22:58 by rmk:") (* ;; "Could be that the caller takes care of backing up the file position if the number of binned-bytes is returned.") (* ;; "Do not do UNICODE to XCCS translation if RAW") (LET (BYTE1 BYTE2 CODE) (SETQ BYTE1 (\PEEKBIN STREAM NOERROR)) (IF BYTE1 THEN (\BIN STREAM) (SETQ BYTE2 (\PEEKBIN STREAM NOERROR)) (\BACKFILEPTR STREAM) (IF BYTE2 THEN (SETQ CODE (LOGOR (LLSH BYTE1 8) BYTE2)) (CL:IF RAW CODE (UNICODE.TRANSLATE CODE *UNICODETOXCCS*)) ELSEIF NOERROR THEN NIL) ELSEIF NOERROR THEN NIL ELSE (ERROR "INVALID UTF16 CHARACTER" (LIST BYTE1 BYTE2]) + +(\UTF16.BACKCHARFN [LAMBDA (STREAM BYTECOUNTVAR BYTECOUNTVAL) (* ; "Edited 15-Jun-2021 13:35 by rmk:") (* ;; "\BACKFILEPTR is NIL at beginning of FILE, do nothing.") (* ;; "Common for big-ending and little-ending") (IF (NOT (\BACKFILEPTR STREAM)) ELSEIF (\BACKFILEPTR STREAM) THEN (AND BYTECOUNTVAR (SET BYTECOUNTVAR (IPLUS BYTECOUNTVAL 2))) ELSE (AND BYTECOUNTVAR (SET BYTECOUNTVAR (ADD1 BYTECOUNTVAL]) ) (RPAQ? EXTERNALEOL 'LF) (DEFINEQ (MAKE-UNICODE-FORMATS - [LAMBDA (EXTERNALEOL) (* ; "Edited 9-Aug-2020 08:40 by rmk:") + [LAMBDA (EXTERNALEOL) (* ; "Edited 3-Jul-2021 13:17 by rmk:") (* ;; "RAW formats do not do XCCS/Unicode translation, just deal with the byte encoding.") @@ -422,52 +173,48 @@ (CR CR.EOLC) (CRLF CRLF.EOLC) (SHOULDNT))) - (\INSTALL.EXTERNALFORMAT :UTF16BE (CREATE EXTERNALFORMAT - EOLVALID _ T - EOL _ EXTERNALEOL - INCCODEFN _ (FUNCTION UTF16BE.INCCODEFN) - PEEKCCODEFN _ (FUNCTION UTF16BE.PEEKCCODEFN) - BACKCHARFN _ (FUNCTION \UTF16.BACKCHARFN) - FILEOUTCHARFN _ (FUNCTION UTF16BE.OUTCHARFN))) - [\INSTALL.EXTERNALFORMAT :UTF16BE-RAW (CREATE EXTERNALFORMAT - EOLVALID _ T - EOL _ EXTERNALEOL - INCCODEFN _ [FUNCTION (LAMBDA (STREAM) - (UTF16BE.INCCODEFN - STREAM T] - PEEKCCODEFN _ [FUNCTION (LAMBDA (STREAM NOERROR - COUNTP) - (UTF16BE.PEEKCCODEFN - STREAM NOERROR COUNTP T] - BACKCHARFN _ (FUNCTION \UTF16.BACKCHARFN) - FILEOUTCHARFN _ (FUNCTION (LAMBDA (STREAM CHARCODE) - (UTF16BE.OUTCHARFN - STREAM CHARCODE T] - [\INSTALL.EXTERNALFORMAT :UTF8-RAW (CREATE EXTERNALFORMAT - EOLVALID _ T - EOL _ EXTERNALEOL - INCCODEFN _ [FUNCTION (LAMBDA (STREAM COUNTP) - (UTF8.INCCODEFN STREAM - COUNTP T] - PEEKCCODEFN _ [FUNCTION (LAMBDA (STREAM NOERROR COUNTP) - (UTF8.PEEKCCODEFN STREAM - NOERROR COUNTP T] - BACKCHARFN _ (FUNCTION \UTF8.BACKCHARFN) - FILEOUTCHARFN _ (FUNCTION (LAMBDA (STREAM CHARCODE) - (UTF8.OUTCHARFN STREAM - CHARCODE T] - (\INSTALL.EXTERNALFORMAT :UTF8 (CREATE EXTERNALFORMAT - EOLVALID _ T - EOL _ EXTERNALEOL - INCCODEFN _ (FUNCTION UTF8.INCCODEFN) - PEEKCCODEFN _ (FUNCTION UTF8.PEEKCCODEFN) - BACKCHARFN _ (FUNCTION \UTF8.BACKCHARFN) - FILEOUTCHARFN _ (FUNCTION UTF8.OUTCHARFN]) + (\INSTALL.EXTERNALFORMAT (CREATE EXTERNALFORMAT + NAME _ :UTF16BE + EOL _ EXTERNALEOL + INCCODEFN _ (FUNCTION UTF16BE.INCCODEFN) + PEEKCCODEFN _ (FUNCTION UTF16BE.PEEKCCODEFN) + BACKCCODEFN _ (FUNCTION \UTF16.BACKCHARFN) + OUTCHARFN _ (FUNCTION UTF16BE.OUTCHARFN))) + [\INSTALL.EXTERNALFORMAT (CREATE EXTERNALFORMAT + NAME _ :UTF16BE-RAW + EOL _ EXTERNALEOL + INCCODEFN _ [FUNCTION (LAMBDA (STREAM BYTECOUNTVAR BYTECOUNTVAL) + (UTF16BE.INCCODEFN STREAM + BYTECOUNTVAR BYTECOUNTVAL T] + PEEKCCODEFN _ [FUNCTION (LAMBDA (STREAM NOERROR) + (UTF16BE.PEEKCCODEFN STREAM NOERROR + T] + BACKCCODEFN _ (FUNCTION \UTF16.BACKCHARFN) + OUTCHARFN _ (FUNCTION (LAMBDA (STREAM CHARCODE) + (UTF16BE.OUTCHARFN STREAM CHARCODE T] + [\INSTALL.EXTERNALFORMAT (CREATE EXTERNALFORMAT + NAME _ :UTF-8-RAW + EOL _ EXTERNALEOL + INCCODEFN _ [FUNCTION (LAMBDA (STREAM BYTECOUNTVAR BYTECOUNTVAL) + (UTF8.INCCODEFN STREAM BYTECOUNTVAR + BYTECOUNTVAL T] + PEEKCCODEFN _ [FUNCTION (LAMBDA (STREAM NOERROR) + (UTF8.PEEKCCODEFN STREAM NOERROR T] + BACKCCODEFN _ (FUNCTION \UTF8.BACKCHARFN) + OUTCHARFN _ (FUNCTION (LAMBDA (STREAM CHARCODE) + (UTF8.OUTCHARFN STREAM CHARCODE T] + (\INSTALL.EXTERNALFORMAT (CREATE EXTERNALFORMAT + NAME _ :UTF-8 + EOL _ EXTERNALEOL + INCCODEFN _ (FUNCTION UTF8.INCCODEFN) + PEEKCCODEFN _ (FUNCTION UTF8.PEEKCCODEFN) + BACKCCODEFN _ (FUNCTION \UTF8.BACKCHARFN) + OUTCHARFN _ (FUNCTION UTF8.OUTCHARFN]) ) (MAKE-UNICODE-FORMATS EXTERNALEOL) -(ADDTOVAR *DEFAULT-EXTERNAL-FORMATS* (UNIX :UTF8)) +(ADDTOVAR *DEFAULT-EXTERNALFORMATS* (UNIX :UTF8)) (DEFINEQ (UNICODE.UNMAPPED @@ -558,7 +305,7 @@ ELSE F]) (READ-UNICODE-MAPPING - [LAMBDA (FILESPEC NOPRINT NOERROR) (* ; "Edited 16-Aug-2020 16:46 by rmk:") + [LAMBDA (FILESPEC NOPRINT NOERROR) (* ; "Edited 3-Jul-2021 13:37 by rmk:") (* ;; "Combines the char-mapping tables from FILES coded in the Uncode-CDROM format. Comments prefixed by # and") @@ -580,7 +327,7 @@ (FOR FILE [SEPBITTABLE _ (MAKEBITTABLE (CHARCODE (TAB SPACE] IN (  READ-UNICODE-MAPPING-FILENAMES FILESPEC) - JOIN (CL:WITH-OPEN-FILE (STREAM FILE :DIRECTION :INPUT :EXTERNAL-FORMAT :UTF8-RAW) + JOIN (CL:WITH-OPEN-FILE (STREAM FILE :DIRECTION :INPUT :EXTERNAL-FORMAT :UTF-8-RAW) (BIND LINE START FIRST (CL:UNLESS (FILEPOS "Name:" STREAM NIL NIL NIL T) (ERROR "NOT A UNICODE MAPPING FILE" @@ -882,7 +629,8 @@ (DEFINEQ (MAKE-UNICODE-TRANSLATION-TABLES - [LAMBDA (MAPPING LTORVAR RTOLVAR) (* ; "Edited 17-Aug-2020 08:46 by rmk:") + [LAMBDA (MAPPING LTORVAR RTOLVAR) (* ; "Edited 17-May-2021 22:24 by rmk:") + (* ; "Edited 17-Aug-2020 08:46 by rmk:") (* ;; "MAPPING is the list of numeric code correspondence pairs constructed by applying READ-UNICODE-MAPPING to a Unicode mapping file.") @@ -1019,11 +767,11 @@ (CL:WHEN LTORVAR (SETATOMVAL LTORVAR LTORARRAY)) (CL:WHEN RTOLVAR (SETATOMVAL RTOLVAR RTOLARRAY)) - (CL:VALUES LTORARRAY RTOLARRAY]) + (LIST LTORARRAY RTOLARRAY]) ) (RPAQ? DEFAULT-XCCS-CHARSETS '(LATIN SYMBOLS1 SYMBOLS2 EXTENDED-LATIN FORMS SYMBOLS3 SYMBOLS4 - ACCENTED-LATIN)) + ACCENTED-LATIN GREEK)) (DECLARE%: DONTEVAL@LOAD DOCOPY (MAKE-UNICODE-TRANSLATION-TABLES (READ-UNICODE-MAPPING DEFAULT-XCCS-CHARSETS T) @@ -1220,19 +968,9 @@ T]) ) (DECLARE%: EVAL@COMPILE DONTCOPY -(DECLARE%: EVAL@COMPILE - -(RPAQQ LF.EOLC 1) -(RPAQQ CR.EOLC 0) - -(RPAQQ CRLF.EOLC 2) - - -(CONSTANTS (LF.EOLC 1) - (CR.EOLC 0) - (CRLF.EOLC 2)) -) +(OR (GETP 'EXPORTS.ALL 'FILE) + (PRINT "NOTE: UNICODE requires EXPORTS.ALL for compilation" T)) (DECLARE%: EVAL@COMPILE @@ -1253,22 +991,17 @@ (TRANSLATION-SHIFT (INTEGERLENGTH (SUB1 TRANSLATION-SEGMENT-SIZE))) (TRANSLATION-MASK (SUB1 TRANSLATION-SEGMENT-SIZE))) ) - - -(EVAL (SYSRECLOOK1 'EXTERNALFORMAT)) - -(EVAL (SYSRECLOOK1 'STREAM)) ) (DECLARE%: DONTCOPY - (FILEMAP (NIL (4104 18559 (UTF8.OUTCHARFN 4114 . 7310) (UTF8.INCCODEFN 7312 . 12770) (UTF8.PEEKCCODEFN - 12772 . 18050) (\UTF8.BACKCHARFN 18052 . 18557)) (18560 21882 (UTF16BE.OUTCHARFN 18570 . 19303) ( -UTF16BE.INCCODEFN 19305 . 20182) (UTF16BE.PEEKCCODEFN 20184 . 21439) (\UTF16.BACKCHARFN 21441 . 21880) -) (21912 26052 (MAKE-UNICODE-FORMATS 21922 . 26050)) (26149 27455 (UNICODE.UNMAPPED 26159 . 27453)) ( -27456 27992 (XCCS-UTF8-AFTER-OPEN 27466 . 27990)) (29062 29411 (XTOUCODE 29072 . 29240) (UTOXCODE -29242 . 29409)) (29451 45633 (READ-UNICODE-MAPPING-FILENAMES 29461 . 30623) (READ-UNICODE-MAPPING -30625 . 33922) (WRITE-UNICODE-MAPPING 33924 . 38141) (WRITE-UNICODE-INCLUDED 38143 . 42865) ( -WRITE-UNICODE-MAPPING-HEADER 42867 . 44099) (WRITE-UNICODE-MAPPING-FILENAME 44101 . 45631)) (48970 -57339 (MAKE-UNICODE-TRANSLATION-TABLES 48980 . 57337)) (57754 65658 (HEXSTRING 57764 . 58925) ( -UTF8HEXSTRING 58927 . 61132) (NUTF8CODEBYTES 61134 . 61797) (NUTF8STRINGBYTES 61799 . 62280) ( -XTOUSTRING 62282 . 65293) (XCCSSTRING 65295 . 65656)) (65659 67128 (SHOWCHARS 65669 . 67126))))) + (FILEMAP (NIL (4126 17801 (UTF8.OUTCHARFN 4136 . 7332) (UTF8.INCCODEFN 7334 . 12450) (UTF8.PEEKCCODEFN + 12452 . 17226) (\UTF8.BACKCHARFN 17228 . 17799)) (17802 20994 (UTF16BE.OUTCHARFN 17812 . 18545) ( +UTF16BE.INCCODEFN 18547 . 19430) (UTF16BE.PEEKCCODEFN 19432 . 20503) (\UTF16.BACKCHARFN 20505 . 20992) +) (21024 24537 (MAKE-UNICODE-FORMATS 21034 . 24535)) (24633 25939 (UNICODE.UNMAPPED 24643 . 25937)) ( +25940 26476 (XCCS-UTF8-AFTER-OPEN 25950 . 26474)) (27546 27895 (XTOUCODE 27556 . 27724) (UTOXCODE +27726 . 27893)) (27935 44118 (READ-UNICODE-MAPPING-FILENAMES 27945 . 29107) (READ-UNICODE-MAPPING +29109 . 32407) (WRITE-UNICODE-MAPPING 32409 . 36626) (WRITE-UNICODE-INCLUDED 36628 . 41350) ( +WRITE-UNICODE-MAPPING-HEADER 41352 . 42584) (WRITE-UNICODE-MAPPING-FILENAME 42586 . 44116)) (47455 +55928 (MAKE-UNICODE-TRANSLATION-TABLES 47465 . 55926)) (56349 64253 (HEXSTRING 56359 . 57520) ( +UTF8HEXSTRING 57522 . 59727) (NUTF8CODEBYTES 59729 . 60392) (NUTF8STRINGBYTES 60394 . 60875) ( +XTOUSTRING 60877 . 63888) (XCCSSTRING 63890 . 64251)) (64254 65723 (SHOWCHARS 64264 . 65721))))) STOP diff --git a/library/UNICODE.LCOM b/library/UNICODE.LCOM index 64517217d..8ea52dc93 100644 Binary files a/library/UNICODE.LCOM and b/library/UNICODE.LCOM differ diff --git a/library/UNICODE.TXT b/library/UNICODE.TXT index 5d0495ea7..666872ad9 100644 --- a/library/UNICODE.TXT +++ b/library/UNICODE.TXT @@ -36,9 +36,9 @@ The function STREAMPROP obtains or changes the external format of an open stream In the latter case, the stream's format is changed to :UTF8 and the previous value is returned, in this example it is Medley's historical default format :XCCS. -Entries can be placed on the variable *DEFAULT-EXTERNAL-FORMATS* to change the external format that is set by default when a file is opened on a particular device. Loading UNICODE executes +Entries can be placed on the variable *DEFAULT-EXTERNALFORMATS* to change the external format that is set by default when a file is opened on a particular device. Loading UNICODE executes - (PUSH *DEFAULT-EXTERNAL-FORMATS* '(UNIX :UTF8)) + (PUSH *DEFAULT-EXTERNALFORMATS* '(UNIX :UTF8)) so that all files opened (by OPENSTREAM, CL:OPEN, etc.) on the UNIX file device will be initialized with :UTF8. Note that the UNIX and DSK file devices reference the same files (although some caution is needed because {UNIX} does not simulate Medley versioning), but the device name in a file name ({UNIX}/Users/... vs. {DSK}/Users/...) selects one or the other. The default setting above applies only to files specified with {UNIX}; a separate default entry for DSK must be established to change its default from :XCCS. @@ -58,7 +58,7 @@ where FILESPEC can be a list of files, charset octal strings ("0" "357"), or XCC When UNICODE is loaded the mappings for the character sets specified in the variable DEFAULT-XCCS-CHARSETS are installed. This is initialized to - (LATIN SYMBOLS1 SYMBOLS2 EXTENDED-LATIN FORMS SYMBOLS3 SYMBOLS4 ACCENTED-LATIN) + (LATIN SYMBOLS1 SYMBOLS2 EXTENDED-LATIN FORMS SYMBOLS3 SYMBOLS4 ACCENTED-LATIN GREEK) but DEFAULT-XCCS-CHARSETS can be set to a different collection before UNICODE is loaded. @@ -66,7 +66,7 @@ The internal translation tables used by the external formats are constructed fro (MAKE-UNICODE-TRANSLATION-TABLES MAPPING [FROM-XCCS-VAR][TO-XCCS-VAR]) -This returns a two-array multiple-value containing the relevant translation information organized for rapid access. If the optional from/to-variables arguments are provide, they are the names of variables whose top-level values will be set to these arrays, for convenience. For the external formats defined above, these variables are *XCCSTOUNICODE* and *UNICODETOXCCS*. +This returns a list of two arrays (XCCS-to-Unicode Unicode-to-XCCS)containing the relevant translation information organized for rapid access. If the optional from/to-variables arguments are provide, they are the names of variables whose top-level values will be set to these arrays, for convenience. For the external formats defined above, these variables are *XCCSTOUNICODE* and *UNICODETOXCCS*. The macro diff --git a/library/XCCS b/library/XCCS deleted file mode 100644 index 2c3e24fcc..000000000 --- a/library/XCCS +++ /dev/null @@ -1,412 +0,0 @@ -(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP") -(FILECREATED " 4-Aug-2020 22:36:36" {DSK}kaplan>Local>medley3.5>lispcore>library>XCCS.;4 23636 - - changes to%: (VARS XCCSCOMS) - (FNS HEXCODE BINTOUMAPPING HEXSTRING X2U.BIN) - - previous date%: "30-Jul-2020 13:55:47" -{DSK}kaplan>Local>medley3.5>lispcore>library>XCCS.;1) - - -(PRETTYCOMPRINT XCCSCOMS) - -(RPAQQ XCCSCOMS - ((COMS (FNS X2U.WIKI XCCS2UNICODE.PARSECELL)) - (COMS (FNS X2U.BIN XCCORD GETUCODE WIN FINDUCODE)) - (FNS SHOWMAPPINGS SHOWMAPPING) - (FNS COMPAREMAPPINGS COMPARECHARSETS) - (FNS MERGEMAPPINGS PRINTMERGED READMERGED) - (FNS TRANSLATECHARSET) - (FNS CONVERTU2X) - (FNS UTF8TOHEXSTRING HEXSTRING HEXCODE BINTOUMAPPING))) -(DEFINEQ - -(X2U.WIKI - [LAMBDA (WIKIFILE) (* ; "Edited 24-Jul-2020 11:11 by rmk:") - - (* ;; "This scrapes the XCCS to Unicode mappings from the XCCS Wikipedia page.") - - (* ;; "However, that page does not seem to correspond to the version of XCCS that Interlisp has internalized.") - - (CL:WITH-OPEN-FILE (STREAM (OR WIKIFILE - "/Users/kaplan/Desktop/Editing Xerox Character Code Standard - Wikipedia.html" - ) - :DIRECTION :INPUT) - (BIND CSET CSSTRING WHILE (FILEPOS "{{chset-table-header|XCCS (prefixed with " - STREAM NIL NIL NIL T) - COLLECT (CL:UNLESS (AND (EQ 0 (READC STREAM)) - (EQ 'x (READC STREAM))) - (HELP "no 0x")) - [SETQ CSSTRING (OCTALSTRING (HEXCODE (CONCAT (READC STREAM) - (READC STREAM] - (CONS CSSTRING (FOR I UC FROM 0 TO 255 - WHEN (AND (FILEPOS "{{chset-color-" STREAM NIL NIL NIL T) - (SETQ UC (XCCS2UNICODE.PARSECELL STREAM))) - COLLECT (LIST (CONCAT CSSTRING "," (OCTALSTRING I)) - UC]) - -(XCCS2UNICODE.PARSECELL - [LAMBDA (STREAM) (* ; "Edited 21-Jul-2020 14:13 by rmk:") - (CL:UNLESS (STREQUAL "undef" (CONCATLIST (BIND C UNTIL (EQ '} (SETQ C (READC STREAM))) - COLLECT C))) - (FILEPOS "chset-" STREAM NIL NIL NIL T) - (FILEPOS "|" STREAM NIL NIL NIL T) - (CONCATLIST (BIND C UNTIL (EQ '%| (SETQ C (READC STREAM))) COLLECT C)))]) -) -(DEFINEQ - -(X2U.BIN - [LAMBDA (BINFILE) (* ; "Edited 4-Aug-2020 21:13 by rmk:") - (* ; "Edited 21-Jul-2020 13:49 by rmk:") - - (* ;; "This reads the binary file that maps from XCCS character-code ordinal positions to the corresponding Unicode code. Result is a list of (octal-xccs-codes hex-unicodes) pairs.") - - (* ;; "The file is a sequence of 2-byte UC hex codes. Each UC code corresponds to the XC code that you would get if you took out all the undefined code-spaces in all of the preceding character sets. The first 128-code panel of a code chart hasa 33 unused control slots at the beginning (although for charset 0 the last %"unused%" control slot is the ascii space, which is not represented in the file). The last cell of each 128-code panel is also not used.") - - (* ;; "So, the UC code at the first ordinal position in the file corresponds to XC code 33 (octal 41), then we run up to 126, skip 127, then skip another 33 to start the second 128-code panel. And we skip the last cell of that before we move on to the next character set.") - - (* ;; "But also, the next character set after charset 0 is charset 41 octal (33). So we have to skip 256*32 positions.") - - (* ;; "Finally, there are unused cells in the middle of some panels. Those are represented in the file by the sequence %"FFFD%", which maps to the unicode black-box with a ?. There is no need to include those.") - - (CL:WITH-OPEN-FILE - (STREAM (OR BINFILE (PACK* (CAR UNICODEDIRECTORIES) - '/XCCStoUni)) - :DIRECTION :INPUT) - - (* ;; "XC is the XC code corresponding to the current UC hex string. I keeps track of the number of hex strings we have read within this panel, before we have to increment by 34") - - (BIND UC CSSTRING [CHARSETFIX _ '(("57" "341" Hebrew) - ("56" "340" Arabic] - (CHARSET _ 0) - (LASTFP _ 0) UNTIL (EOFP STREAM) - COLLECT (SETQ CSSTRING (OCTALSTRING CHARSET)) - (CL:WHEN (SASSOC CSSTRING CHARSETFIX) - (SETQ CSSTRING (CADR (SASSOC CSSTRING CHARSETFIX)))) - (CONS CSSTRING (PROG1 [NCONC [FOR XC UC FROM 33 TO 126 - UNTIL (EOFP STREAM) - UNLESS (MEMBER (SETQ UC (HEXSTRING (WIN STREAM) - 4)) - '("FFFD" "FFFF")) - COLLECT (PROG1 (LIST (CONCAT CSSTRING "," - (OCTALSTRING XC)) - UC LASTFP) - (SETQ LASTFP (GETFILEPTR STREAM)))] - (FOR XC UC FROM (PLUS 128 33) - TO (PLUS 128 126) UNTIL (EOFP STREAM) - UNLESS (MEMBER (SETQ UC (HEXSTRING (WIN STREAM) - 4)) - '("FFFD" "FFFF")) - COLLECT (PROG1 (LIST (CONCAT CSSTRING "," - (OCTALSTRING XC)) - UC LASTFP) - (SETQ LASTFP (GETFILEPTR STREAM)))] - (ADD CHARSET (CL:IF (EQ CHARSET 0) - 33 - 1)))]) - -(XCCORD - [LAMBDA (XCODE) (* ; "Edited 17-Jul-2020 08:11 by rmk:") - - (* ;; "Returns the ordinal position of XCODE in the Xerox Character Code standard, removing all not-used slots.") - - (* ;; "The first 32 of every 256 block is unused, and 34 are unused int he middle of the block (127 to 160)") - - (* ;; "Also, character sets 1-32 do not exist") - - (CL:UNLESS (AND (SMALLP XCODE) - (ILESSP XCODE (CHARCODE 0)) - (IGREATERP XCODE (CHARCODE 9))) - (SETQ XCODE (CHARCODE.DECODE XCODE))) - (LET ((CHARSET (IQUOTIENT XCODE 256)) - (PERCHARSET (- 256 (+ 32 34))) - (CHARSETORD 0) - (CHARINSET (IREMAINDER XCODE 256))) - (CL:UNLESS (EQ CHARSET 0) (* ; "33 (41Q) -> 1") - (SETQ CHARSETORD (- CHARSET 32))) - (CL:WHEN (ILESSP CHARSETORD 0) - (ERROR "UNUSED CHARACTER SET" CHARSET)) - (CL:WHEN [OR (ILESSP CHARINSET 32) - (AND (IGEQ CHARINSET 127) - (ILEQ CHARINSET (PLUS 128 33] - (ERROR "UNUSED CHARACTER" XCODE)) - (SETQ PRECHARSET (TIMES PERCHARSET CHARSETORD)) - (IPLUS PRECHARSET (- CHARINSET (IF (ILEQ CHARINSET 127) - THEN 32 - ELSE (PLUS 32 34]) - -(GETUCODE - [LAMBDA (XCODE STREAM) (* ; "Edited 22-Jul-2020 12:07 by rmk:") - (* ; "Edited 16-Jul-2020 23:37 by rmk:") - (LET ((XCODE (OR (SMALLP XCODE) - (CHARCODE.DECODE XCODE))) - SKIP UCODE) - [SETQ SKIP (TIMES 33 (ADD1 (IQUOTIENT XCODE 128] - (SETFILEPTR STREAM (TIMES 2 (IDIFFERENCE XCODE SKIP))) - (SETQ UCODE (LOGOR (LLSH (BIN STREAM) - 8) - (BIN STREAM))) - (HEXSTRING UCODE]) - -(WIN - [LAMBDA (STREAM) (* ; "Edited 16-Jul-2020 23:22 by rmk:") - (LOGOR (LLSH (BIN STREAM) - 8) - (BIN STREAM]) - -(FINDUCODE - [LAMBDA (UC BINFILE) (* ; "Edited 22-Jul-2020 17:13 by rmk:") - (CL:WITH-OPEN-FILE (STREAM (OR BINFILE "{DSK}kaplan>Local>dict>unicode>xerox>XCCStoUni") - :DIRECTION :INPUT) - (FILEPOS (CONCAT (CHARACTER (LRSH (HEXCODE UC) - 8)) - (CHARACTER (LOGAND (HEXCODE UC) - 255))) - STREAM]) -) -(DEFINEQ - -(SHOWMAPPINGS - [LAMBDA (MAPPINGS) (* ; "Edited 24-Jul-2020 11:06 by rmk:") - (FOR M IN MAPPINGS DO (SHOWMAPPING MAPPINGS (CAR M)) - (TERPRI T]) - -(SHOWMAPPING - [LAMBDA (MAPPINGS CHARSET) (* ; "Edited 24-Jul-2020 11:08 by rmk:") - (CL:WHEN (STRPOS "," CHARSET) - (SETQ CHARSET (SUBSTRING CHARSET 1 (STRPOS "," CHARSET)))) - (PRINTOUT T "Character set " (CAR M) - T) - (FOR Y IN (CDR (SASSOC CHARSET MAPPINGS)) DO (PRINTOUT T (CAR Y) - 8 - (CHARACTER (CHARCODE.DECODE - (CAR Y))) - " " - (CADR Y)) - (CL:WHEN (CDDR Y) - (PRINTOUT T " " (CADDR Y))) - (TERPRI T]) -) -(DEFINEQ - -(COMPAREMAPPINGS - [LAMBDA (MAP1 MAP2) (* ; "Edited 24-Jul-2020 13:39 by rmk:") - (LET [(CHARSETS1 (FOR M1 IN MAP1 COLLECT (CAR M1))) - (CHARSETS2 (FOR M2 IN MAP2 COLLECT (CAR M2] - (LIST [FOR COMMON IN (INTERSECTION CHARSETS1 CHARSETS2) - COLLECT (CONS COMMON (COMPARECHARSETS (SASSOC COMMON MAP1) - (SASSOC COMMON MAP2] - (LDIFFERENCE CHARSETS1 CHARSETS2) - (LDIFFERENCE CHARSETS2 CHARSETS1]) - -(COMPARECHARSETS - [LAMBDA (CS1 CS2) (* ; "Edited 24-Jul-2020 20:21 by rmk:") - (CL:UNLESS (STREQUAL (CAR CS1) - (CAR CS2)) - (ERROR "CHARSETS DON'T CORRESPONG")) - (FOR XC U1 U2 IN [SORT (UNION (FOR M1 IN (CDR CS1) COLLECT (CAR M1)) - (FOR M2 IN (CDR CS2) COLLECT (CAR M2))) - (FUNCTION (LAMBDA (X1 X2) - (ILEQ (CHARCODE.DECODE X1) - (CHARCODE.DECODE X2] - EACHTIME [SETQ U1 (CADR (SASSOC XC (CDR CS1] - [SETQ U2 (CADR (SASSOC XC (CDR CS2] WHEN (IF (AND U1 U2) - THEN (NOT (IEQP (CHARCODE.DECODE - U1) - (CHARCODE.DECODE - U2))) - ELSE (OR U1 U2)) - COLLECT (LIST XC U1 U2 (CHARACTER (CHARCODE.DECODE XC]) -) -(DEFINEQ - -(MERGEMAPPINGS - [LAMBDA (MAP1 MAP2) (* ; "Edited 25-Jul-2020 15:36 by rmk:") - (FOR CSET CS1 CS2 IN [SORT (UNION (FOR M1 IN MAP1 COLLECT (CAR M1)) - (FOR M2 IN MAP2 COLLECT (CAR M2))) - (FUNCTION (LAMBDA (CS1 CS2) - (ILEQ (CL:PARSE-INTEGER CS1 :RADIX 8) - (CL:PARSE-INTEGER CS2 :RADIX 8] - COLLECT (SETQ CS1 (SASSOC CSET MAP1)) - (SETQ CS2 (SASSOC CSET MAP2)) - (CONS CSET (FOR XC UCODE1 UCODE2 UCHAR1 UCHAR2 - IN [SORT (UNION (FOR M1 IN (CDR CS1) COLLECT (CAR M1)) - (FOR M2 IN (CDR CS2) COLLECT (CAR M2))) - (FUNCTION (LAMBDA (XC1 XC2) - (ILEQ (CHARCODE.DECODE XC1) - (CHARCODE.DECODE XC2] - COLLECT [SETQ UCODE1 (CADR (SASSOC XC (CDR CS1] - [SETQ UCHAR1 (CL:WHEN UCODE1 - (CHARACTER (CHARCODE.DECODE UCODE1)))] - [SETQ UCODE2 (CADR (SASSOC XC (CDR CS2] - [SETQ UCHAR2 (CL:WHEN UCODE2 - (CHARACTER (CHARCODE.DECODE UCODE2)))] - (CONS XC (IF UCHAR1 - THEN (IF (AND UCODE2 (NEQ UCHAR1 UCHAR2)) - THEN (LIST UCHAR1 UCHAR2 UCODE1 UCODE2 - ) - ELSE (LIST UCHAR1 UCODE1)) - ELSEIF UCHAR2 - THEN (LIST UCHAR2 UCODE2) - ELSE (HELP "XC WITHOUT UC'S" XC]) - -(PRINTMERGED - [LAMBDA (MERGED CHARSETS FILE) (* ; "Edited 25-Jul-2020 16:08 by rmk:") - [SELECTQ CHARSETS - (NOJIS (SETQ MERGED (FOR M IN MERGED UNLESS (AND (IGEQ (CL:PARSE-INTEGER - (CAR M) - :RADIX 8) - (CL:PARSE-INTEGER "60" - :RADIX 8)) - (ILESSP (CL:PARSE-INTEGER - (CAR M) - :RADIX 8) - (CL:PARSE-INTEGER "340" - :RADIX 8))) - COLLECT M)) - (CL:UNLESS FILE - (SETQ FILE 'MERGED-NOJIS))) - ((ALL NIL) - (CL:UNLESS FILE - (SETQ FILE 'MERGED-ALL))) - (PROGN (SETQ CHARSETS (MKLIST CHARSETS)) - [SETQ MERGED (FOR CS IN CHARSETS COLLECT (OR (SASSOC CS MERGED) - (ERROR CS "does not exist"] - (CL:UNLESS FILE - (SETQ FILE (PACK* FILE "-" (CAR CHARSETS))))] - (SETQ FILE (PACKFILENAME 'BODY FILE 'EXTENSION 'TXT)) - (CL:WITH-OPEN-FILE (STREAM FILE :DIRECTION :OUTPUT :EXTERNAL-FORMAT :UTF8 :IF-EXISTS :NEW-VERSION - ) - (PRINTOUT STREAM "(") - (FOR CSET IN MERGED DO (PRINTOUT STREAM "(" .P2 (CAR CSET) - T) - (FOR MAP IN (CDR CSET) - DO (PRINTOUT STREAM 3 .P2 MAP T)) - (PRINTOUT STREAM ")" T)) - (PRINTOUT STREAM ")") - (CLOSEF STREAM]) - -(READMERGED - [LAMBDA (FILE) (* ; "Edited 30-Jul-2020 13:40 by rmk:") - - (* ;; "Reads UTF8 without translation to XCCS") - - (CL:WITH-OPEN-FILE (STREAM FILE :DIRECTION :INPUT :EXTERNAL-FORMAT :UTF8-RAW) - (* (READC STREAM) (BIND SET UNTIL - (EOFP STREAM) COLLECT - (SETQ SET (READ STREAM)) - (PRINTOUT T (CAR) " "))) - (READ STREAM]) -) -(DEFINEQ - -(TRANSLATECHARSET - [LAMBDA (MAPPINGS FROMCS TOCS) (* ; "Edited 26-Jul-2020 19:35 by rmk:") - (CL:WHEN (SMALLP FROMCS) - (SETQ FROMCS (CONCAT FROMCS))) - (CL:WHEN (SMALLP TOCS) - (SETQ TOCS (CONCAT TOCS))) - (LET ((CSETMAP (SASSOC FROMCS MAPPINGS)) - (NEWCSETMAP)) - (CL:UNLESS CSETMAP (ERROR "FROM CHARACTER SET NOT FOUND" FROMCS)) - (SETQ NEWCSMAP (CONS TOCS (FOR CM IN (CDR CSETMAP) - COLLECT (CONS [CONCAT TOCS - (OR (SUBSTRING (CAR CM) - (STRPOS "," (CAR CM))) - (HELP "INVALID CHARCODE" - (CAR CM] - (CDR CM]) -) -(DEFINEQ - -(CONVERTU2X - [LAMBDA NIL (* ; "Edited 27-Jul-2020 14:40 by rmk:") - (FOR X IN CBUNICODETOXEROXRENDERING COLLECT (LIST [CHARCODESTRING - (OR (FIXP (CADR X)) - (CHARCODE.DECODE (CADR X] - [CHARACTER - (OR (FIXP (CADR X)) - (CHARCODE.DECODE (CADR X] - (HEXSTRING (CAR X) - 4]) -) -(DEFINEQ - -(UTF8TOHEXSTRING - [LAMBDA (UTF8STRING) (* ; "Edited 28-Jul-2020 17:32 by rmk:") - - (* ;; "Converts from a UTF8 encoding of a number to the hex string that represents that number") - - (LET (BYTE1 BYTE1 BYTE2 BYTE3 BYTE4) - (SETQ BYTE1 (HEXCODE (SUBSTRING UTF8STRING 1 2))) - - (* ;; "Distinguish on header byte, extract number of bytes so we don't read too far") - - (HEXSTRING (IF (ILESSP BYTE1 128) - THEN - - (* ;; "Test first: Ascii is the common case") - - BYTE1 - ELSEIF (IGEQ BYTE1 (LLSH 15 4)) - THEN (* ; "4 bytes") - (SETQ BYTE2 (HEXCODE (SUBSTRING UTF8STRING 3 4))) - (CL:WHEN (ILESSP BYTE2 128) - (ERROR "INVALID UTF8 SEQUENCE" (LIST BYTE1 BYTE2))) - (SETQ BYTE3 (HEXCODE (SUBSTRING UTF8STRING 5 6))) - (CL:WHEN (ILESSP BYTE3 128) - (ERROR "INVALID UTF8 SEQUENCE" (LIST BYTE1 BYTE2 BYTE3))) - (SETQ BYTE4 (HEXCODE (SUBSTRING UTF8STRING 7 8))) - (CL:WHEN (ILESSP BYTE4 128) - (ERROR "INVALID UTF8 SEQUENCE" (LIST BYTE1 BYTE2 BYTE3 BYTE4))) - (LOGOR (LLSH (LOADBYTE BYTE1 0 3) - 18) - (LLSH (LOADBYTE BYTE2 0 6) - 12) - (LLSH (LOADBYTE BYTE3 0 6) - 6) - (LOADBYTE BYTE4 0 6)) - ELSEIF (IGEQ BYTE1 (LLSH 7 5)) - THEN (* ; "3 bytes") - (SETQ BYTE2 (HEXCODE (SUBSTRING UTF8STRING 3 4))) - (CL:WHEN (ILESSP BYTE2 128) - (ERROR "INVALID UTF8 SEQUENCE" (LIST BYTE1 BYTE2))) - (SETQ BYTE3 (HEXCODE (SUBSTRING UTF8STRING 5 6))) - (CL:WHEN (ILESSP BYTE3 128) - (ERROR "INVALID UTF8 SEQUENCE" (LIST BYTE1 BYTE2 BYTE3))) - (LOGOR (LLSH (LOADBYTE BYTE1 0 4) - 12) - (LLSH (LOADBYTE BYTE2 0 6) - 6) - (LOADBYTE BYTE3 0 6)) - ELSE (* ; "Must be 2 bytes") - (SETQ BYTE2 (HEXCODE (SUBSTRING UTF8STRING 3 4))) - (CL:WHEN (ILESSP BYTE2 128) - (ERROR "INVALID UTF8 SEQUENCE" (LIST BYTE1 BYTE2))) - (LOGOR (LLSH (LOADBYTE BYTE1 0 5) - 6) - (LOADBYTE BYTE2 0 6]) - -(HEXSTRING - [LAMBDA (N) (* ; "Edited 4-Aug-2020 21:19 by rmk:") - (CL:FORMAT NIL "~4,'0X" N]) - -(HEXCODE - [LAMBDA (HEXSTRING) (* ; "Edited 4-Aug-2020 21:28 by rmk:") - (CL:PARSE-INTEGER HEXSTRING :RADIX 16]) - -(BINTOUMAPPING - [LAMBDA (BINLIST) (* ; "Edited 4-Aug-2020 21:28 by rmk:") - (FOR CS IN BINLIST JOIN (FOR CM IN (CDR CS) - COLLECT (LIST (CHARCODE.DECODE (CAR CM)) - (HEXCODE (CADR CM]) -) -(DECLARE%: DONTCOPY - (FILEMAP (NIL (801 2795 (X2U.WIKI 811 . 2310) (XCCS2UNICODE.PARSECELL 2312 . 2793)) (2796 9601 ( -X2U.BIN 2806 . 6854) (XCCORD 6856 . 8283) (GETUCODE 8285 . 8894) (WIN 8896 . 9084) (FINDUCODE 9086 . -9599)) (9602 10870 (SHOWMAPPINGS 9612 . 9856) (SHOWMAPPING 9858 . 10868)) (10871 12765 ( -COMPAREMAPPINGS 10881 . 11468) (COMPARECHARSETS 11470 . 12763)) (12766 17927 (MERGEMAPPINGS 12776 . -15003) (PRINTMERGED 15005 . 17277) (READMERGED 17279 . 17925)) (17928 18901 (TRANSLATECHARSET 17938 . -18899)) (18902 19723 (CONVERTU2X 18912 . 19721)) (19724 23613 (UTF8TOHEXSTRING 19734 . 22929) ( -HEXSTRING 22931 . 23082) (HEXCODE 23084 . 23245) (BINTOUMAPPING 23247 . 23611))))) -STOP diff --git a/library/XCCS.LCOM b/library/XCCS.LCOM deleted file mode 100644 index c2e8b8a15..000000000 Binary files a/library/XCCS.LCOM and /dev/null differ diff --git a/library/XCCS.~1~ b/library/XCCS.~1~ deleted file mode 100644 index d50f0a354..000000000 --- a/library/XCCS.~1~ +++ /dev/null @@ -1 +0,0 @@ -(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP") (FILECREATED "30-Jul-2020 13:55:47" {DSK}kaplan>Local>medley3.5>lispcore>library>XCCS.;1 23040 changes to%: (FNS READMERGED UTF8TOHEXSTRING CONVERTU2X X2U.BIN TRANSLATECHARSET PRINTMERGED MERGEMAPPINGS COMPARECHARSETS COMPAREMAPPINGS X2U.WIKI SHOWMAPPINGS SHOWMAPPING) (VARS XCCSCOMS) previous date%: "23-Jul-2020 08:30:22" {DSK}kaplan>lisp>XCCS.;12) (PRETTYCOMPRINT XCCSCOMS) (RPAQQ XCCSCOMS ((COMS (FNS X2U.WIKI XCCS2UNICODE.PARSECELL)) (COMS (FNS X2U.BIN XCCORD GETUCODE WIN FINDUCODE)) (FNS SHOWMAPPINGS SHOWMAPPING) (FNS COMPAREMAPPINGS COMPARECHARSETS) (FNS MERGEMAPPINGS PRINTMERGED READMERGED) (FNS TRANSLATECHARSET) (FNS CONVERTU2X) (FNS UTF8TOHEXSTRING))) (DEFINEQ (X2U.WIKI [LAMBDA (WIKIFILE) (* ; "Edited 24-Jul-2020 11:11 by rmk:") (* ;; "This scrapes the XCCS to Unicode mappings from the XCCS Wikipedia page.") (* ;; "However, that page does not seem to correspond to the version of XCCS that Interlisp has internalized.") (CL:WITH-OPEN-FILE (STREAM (OR WIKIFILE "/Users/kaplan/Desktop/Editing Xerox Character Code Standard - Wikipedia.html" ) :DIRECTION :INPUT) (BIND CSET CSSTRING WHILE (FILEPOS "{{chset-table-header|XCCS (prefixed with " STREAM NIL NIL NIL T) COLLECT (CL:UNLESS (AND (EQ 0 (READC STREAM)) (EQ 'x (READC STREAM))) (HELP "no 0x")) [SETQ CSSTRING (OCTALSTRING (HEXCODE (CONCAT (READC STREAM) (READC STREAM] (CONS CSSTRING (FOR I UC FROM 0 TO 255 WHEN (AND (FILEPOS "{{chset-color-" STREAM NIL NIL NIL T) (SETQ UC (XCCS2UNICODE.PARSECELL STREAM))) COLLECT (LIST (CONCAT CSSTRING "," (OCTALSTRING I)) UC]) (XCCS2UNICODE.PARSECELL [LAMBDA (STREAM) (* ; "Edited 21-Jul-2020 14:13 by rmk:") (CL:UNLESS (STREQUAL "undef" (CONCATLIST (BIND C UNTIL (EQ '} (SETQ C (READC STREAM))) COLLECT C))) (FILEPOS "chset-" STREAM NIL NIL NIL T) (FILEPOS "|" STREAM NIL NIL NIL T) (CONCATLIST (BIND C UNTIL (EQ '%| (SETQ C (READC STREAM))) COLLECT C)))]) ) (DEFINEQ (X2U.BIN [LAMBDA (BINFILE) (* ; "Edited 26-Jul-2020 20:09 by rmk:") (* ; "Edited 21-Jul-2020 13:49 by rmk:") (* ;; "This reads the binary file that maps from XCCS character-code ordinal positions to the corresponding Unicode code. Result is a list of (octal-xccs-codes hex-unicodes) pairs.") (* ;; "The file is a sequence of 2-byte UC hex codes. Each UC code corresponds to the XC code that you would get if you took out all the undefined code-spaces in all of the preceding character sets. The first 128-code panel of a code chart hasa 33 unused control slots at the beginning (although for charset 0 the last %"unused%" control slot is the ascii space, which is not represented in the file). The last cell of each 128-code panel is also not used.") (* ;; "So, the UC code at the first ordinal position in the file corresponds to XC code 33 (octal 41), then we run up to 126, skip 127, then skip another 33 to start the second 128-code panel. And we skip the last cell of that before we move on to the next character set.") (* ;; "But also, the next character set after charset 0 is charset 41 octal (33). So we have to skip 256*32 positions.") (* ;; "Finally, there are unused cells in the middle of some panels. Those are represented in the file by the sequence %"FFFD%", which maps to the unicode black-box with a ?. There is no need to include those.") (CL:WITH-OPEN-FILE (STREAM (OR BINFILE "{DSK}kaplan>Local>dict>unicode>xerox>XCCStoUni") :DIRECTION :INPUT) (* ;; "XC is the XC code corresponding to the current UC hex string. I keeps track of the number of hex strings we have read within this panel, before we have to increment by 34") (BIND UC CSSTRING [CHARSETFIX _ '(("57" "341" Hebrew) ("56" "340" Arabic] (CHARSET _ 0) (LASTFP _ 0) UNTIL (EOFP STREAM) COLLECT (SETQ CSSTRING (OCTALSTRING CHARSET)) (CL:WHEN (SASSOC CSSTRING CHARSETFIX) (SETQ CSSTRING (CADR (SASSOC CSSTRING CHARSETFIX)))) (CONS CSSTRING (PROG1 [NCONC [FOR XC UC FROM 33 TO 126 UNTIL (EOFP STREAM) UNLESS (MEMBER (SETQ UC (HEXSTRING (WIN STREAM) 4)) '("FFFD" "FFFF")) COLLECT (PROG1 (LIST (CONCAT CSSTRING "," (OCTALSTRING XC)) UC LASTFP) (SETQ LASTFP (GETFILEPTR STREAM)))] (FOR XC UC FROM (PLUS 128 33) TO (PLUS 128 126) UNTIL (EOFP STREAM) UNLESS (MEMBER (SETQ UC (HEXSTRING (WIN STREAM) 4)) '("FFFD" "FFFF")) COLLECT (PROG1 (LIST (CONCAT CSSTRING "," (OCTALSTRING XC)) UC LASTFP) (SETQ LASTFP (GETFILEPTR STREAM)))] (ADD CHARSET (CL:IF (EQ CHARSET 0) 33 1)))]) (XCCORD [LAMBDA (XCODE) (* ; "Edited 17-Jul-2020 08:11 by rmk:") (* ;; "Returns the ordinal position of XCODE in the Xerox Character Code standard, removing all not-used slots.") (* ;; "The first 32 of every 256 block is unused, and 34 are unused int he middle of the block (127 to 160)") (* ;; "Also, character sets 1-32 do not exist") (CL:UNLESS (AND (SMALLP XCODE) (ILESSP XCODE (CHARCODE 0)) (IGREATERP XCODE (CHARCODE 9))) (SETQ XCODE (CHARCODE.DECODE XCODE))) (LET ((CHARSET (IQUOTIENT XCODE 256)) (PERCHARSET (- 256 (+ 32 34))) (CHARSETORD 0) (CHARINSET (IREMAINDER XCODE 256))) (CL:UNLESS (EQ CHARSET 0) (* ; "33 (41Q) -> 1") (SETQ CHARSETORD (- CHARSET 32))) (CL:WHEN (ILESSP CHARSETORD 0) (ERROR "UNUSED CHARACTER SET" CHARSET)) (CL:WHEN [OR (ILESSP CHARINSET 32) (AND (IGEQ CHARINSET 127) (ILEQ CHARINSET (PLUS 128 33] (ERROR "UNUSED CHARACTER" XCODE)) (SETQ PRECHARSET (TIMES PERCHARSET CHARSETORD)) (IPLUS PRECHARSET (- CHARINSET (IF (ILEQ CHARINSET 127) THEN 32 ELSE (PLUS 32 34]) (GETUCODE [LAMBDA (XCODE STREAM) (* ; "Edited 22-Jul-2020 12:07 by rmk:") (* ; "Edited 16-Jul-2020 23:37 by rmk:") (LET ((XCODE (OR (SMALLP XCODE) (CHARCODE.DECODE XCODE))) SKIP UCODE) [SETQ SKIP (TIMES 33 (ADD1 (IQUOTIENT XCODE 128] (SETFILEPTR STREAM (TIMES 2 (IDIFFERENCE XCODE SKIP))) (SETQ UCODE (LOGOR (LLSH (BIN STREAM) 8) (BIN STREAM))) (HEXSTRING UCODE]) (WIN [LAMBDA (STREAM) (* ; "Edited 16-Jul-2020 23:22 by rmk:") (LOGOR (LLSH (BIN STREAM) 8) (BIN STREAM]) (FINDUCODE [LAMBDA (UC BINFILE) (* ; "Edited 22-Jul-2020 17:13 by rmk:") (CL:WITH-OPEN-FILE (STREAM (OR BINFILE "{DSK}kaplan>Local>dict>unicode>xerox>XCCStoUni") :DIRECTION :INPUT) (FILEPOS (CONCAT (CHARACTER (LRSH (HEXCODE UC) 8)) (CHARACTER (LOGAND (HEXCODE UC) 255))) STREAM]) ) (DEFINEQ (SHOWMAPPINGS [LAMBDA (MAPPINGS) (* ; "Edited 24-Jul-2020 11:06 by rmk:") (FOR M IN MAPPINGS DO (SHOWMAPPING MAPPINGS (CAR M)) (TERPRI T]) (SHOWMAPPING [LAMBDA (MAPPINGS CHARSET) (* ; "Edited 24-Jul-2020 11:08 by rmk:") (CL:WHEN (STRPOS "," CHARSET) (SETQ CHARSET (SUBSTRING CHARSET 1 (STRPOS "," CHARSET)))) (PRINTOUT T "Character set " (CAR M) T) (FOR Y IN (CDR (SASSOC CHARSET MAPPINGS)) DO (PRINTOUT T (CAR Y) 8 (CHARACTER (CHARCODE.DECODE (CAR Y))) " " (CADR Y)) (CL:WHEN (CDDR Y) (PRINTOUT T " " (CADDR Y))) (TERPRI T]) ) (DEFINEQ (COMPAREMAPPINGS [LAMBDA (MAP1 MAP2) (* ; "Edited 24-Jul-2020 13:39 by rmk:") (LET [(CHARSETS1 (FOR M1 IN MAP1 COLLECT (CAR M1))) (CHARSETS2 (FOR M2 IN MAP2 COLLECT (CAR M2] (LIST [FOR COMMON IN (INTERSECTION CHARSETS1 CHARSETS2) COLLECT (CONS COMMON (COMPARECHARSETS (SASSOC COMMON MAP1) (SASSOC COMMON MAP2] (LDIFFERENCE CHARSETS1 CHARSETS2) (LDIFFERENCE CHARSETS2 CHARSETS1]) (COMPARECHARSETS [LAMBDA (CS1 CS2) (* ; "Edited 24-Jul-2020 20:21 by rmk:") (CL:UNLESS (STREQUAL (CAR CS1) (CAR CS2)) (ERROR "CHARSETS DON'T CORRESPONG")) (FOR XC U1 U2 IN [SORT (UNION (FOR M1 IN (CDR CS1) COLLECT (CAR M1)) (FOR M2 IN (CDR CS2) COLLECT (CAR M2))) (FUNCTION (LAMBDA (X1 X2) (ILEQ (CHARCODE.DECODE X1) (CHARCODE.DECODE X2] EACHTIME [SETQ U1 (CADR (SASSOC XC (CDR CS1] [SETQ U2 (CADR (SASSOC XC (CDR CS2] WHEN (IF (AND U1 U2) THEN (NOT (IEQP (CHARCODE.DECODE U1) (CHARCODE.DECODE U2))) ELSE (OR U1 U2)) COLLECT (LIST XC U1 U2 (CHARACTER (CHARCODE.DECODE XC]) ) (DEFINEQ (MERGEMAPPINGS [LAMBDA (MAP1 MAP2) (* ; "Edited 25-Jul-2020 15:36 by rmk:") (FOR CSET CS1 CS2 IN [SORT (UNION (FOR M1 IN MAP1 COLLECT (CAR M1)) (FOR M2 IN MAP2 COLLECT (CAR M2))) (FUNCTION (LAMBDA (CS1 CS2) (ILEQ (CL:PARSE-INTEGER CS1 :RADIX 8) (CL:PARSE-INTEGER CS2 :RADIX 8] COLLECT (SETQ CS1 (SASSOC CSET MAP1)) (SETQ CS2 (SASSOC CSET MAP2)) (CONS CSET (FOR XC UCODE1 UCODE2 UCHAR1 UCHAR2 IN [SORT (UNION (FOR M1 IN (CDR CS1) COLLECT (CAR M1)) (FOR M2 IN (CDR CS2) COLLECT (CAR M2))) (FUNCTION (LAMBDA (XC1 XC2) (ILEQ (CHARCODE.DECODE XC1) (CHARCODE.DECODE XC2] COLLECT [SETQ UCODE1 (CADR (SASSOC XC (CDR CS1] [SETQ UCHAR1 (CL:WHEN UCODE1 (CHARACTER (CHARCODE.DECODE UCODE1)))] [SETQ UCODE2 (CADR (SASSOC XC (CDR CS2] [SETQ UCHAR2 (CL:WHEN UCODE2 (CHARACTER (CHARCODE.DECODE UCODE2)))] (CONS XC (IF UCHAR1 THEN (IF (AND UCODE2 (NEQ UCHAR1 UCHAR2)) THEN (LIST UCHAR1 UCHAR2 UCODE1 UCODE2 ) ELSE (LIST UCHAR1 UCODE1)) ELSEIF UCHAR2 THEN (LIST UCHAR2 UCODE2) ELSE (HELP "XC WITHOUT UC'S" XC]) (PRINTMERGED [LAMBDA (MERGED CHARSETS FILE) (* ; "Edited 25-Jul-2020 16:08 by rmk:") [SELECTQ CHARSETS (NOJIS (SETQ MERGED (FOR M IN MERGED UNLESS (AND (IGEQ (CL:PARSE-INTEGER (CAR M) :RADIX 8) (CL:PARSE-INTEGER "60" :RADIX 8)) (ILESSP (CL:PARSE-INTEGER (CAR M) :RADIX 8) (CL:PARSE-INTEGER "340" :RADIX 8))) COLLECT M)) (CL:UNLESS FILE (SETQ FILE 'MERGED-NOJIS))) ((ALL NIL) (CL:UNLESS FILE (SETQ FILE 'MERGED-ALL))) (PROGN (SETQ CHARSETS (MKLIST CHARSETS)) [SETQ MERGED (FOR CS IN CHARSETS COLLECT (OR (SASSOC CS MERGED) (ERROR CS "does not exist"] (CL:UNLESS FILE (SETQ FILE (PACK* FILE "-" (CAR CHARSETS))))] (SETQ FILE (PACKFILENAME 'BODY FILE 'EXTENSION 'TXT)) (CL:WITH-OPEN-FILE (STREAM FILE :DIRECTION :OUTPUT :EXTERNAL-FORMAT :UTF8 :IF-EXISTS :NEW-VERSION ) (PRINTOUT STREAM "(") (FOR CSET IN MERGED DO (PRINTOUT STREAM "(" .P2 (CAR CSET) T) (FOR MAP IN (CDR CSET) DO (PRINTOUT STREAM 3 .P2 MAP T)) (PRINTOUT STREAM ")" T)) (PRINTOUT STREAM ")") (CLOSEF STREAM]) (READMERGED [LAMBDA (FILE) (* ; "Edited 30-Jul-2020 13:40 by rmk:") (* ;; "Reads UTF8 without translation to XCCS") (CL:WITH-OPEN-FILE (STREAM FILE :DIRECTION :INPUT :EXTERNAL-FORMAT :UTF8-RAW) (* (READC STREAM) (BIND SET UNTIL  (EOFP STREAM) COLLECT  (SETQ SET (READ STREAM))  (PRINTOUT T (CAR) " "))) (READ STREAM]) ) (DEFINEQ (TRANSLATECHARSET [LAMBDA (MAPPINGS FROMCS TOCS) (* ; "Edited 26-Jul-2020 19:35 by rmk:") (CL:WHEN (SMALLP FROMCS) (SETQ FROMCS (CONCAT FROMCS))) (CL:WHEN (SMALLP TOCS) (SETQ TOCS (CONCAT TOCS))) (LET ((CSETMAP (SASSOC FROMCS MAPPINGS)) (NEWCSETMAP)) (CL:UNLESS CSETMAP (ERROR "FROM CHARACTER SET NOT FOUND" FROMCS)) (SETQ NEWCSMAP (CONS TOCS (FOR CM IN (CDR CSETMAP) COLLECT (CONS [CONCAT TOCS (OR (SUBSTRING (CAR CM) (STRPOS "," (CAR CM))) (HELP "INVALID CHARCODE" (CAR CM] (CDR CM]) ) (DEFINEQ (CONVERTU2X [LAMBDA NIL (* ; "Edited 27-Jul-2020 14:40 by rmk:") (FOR X IN CBUNICODETOXEROXRENDERING COLLECT (LIST [CHARCODESTRING (OR (FIXP (CADR X)) (CHARCODE.DECODE (CADR X] [CHARACTER (OR (FIXP (CADR X)) (CHARCODE.DECODE (CADR X] (HEXSTRING (CAR X) 4]) ) (DEFINEQ (UTF8TOHEXSTRING [LAMBDA (UTF8STRING) (* ; "Edited 28-Jul-2020 17:32 by rmk:") (* ;; "Converts from a UTF8 encoding of a number to the hex string that represents that number") (LET (BYTE1 BYTE1 BYTE2 BYTE3 BYTE4) (SETQ BYTE1 (HEXCODE (SUBSTRING UTF8STRING 1 2))) (* ;; "Distinguish on header byte, extract number of bytes so we don't read too far") (HEXSTRING (IF (ILESSP BYTE1 128) THEN (* ;; "Test first: Ascii is the common case") BYTE1 ELSEIF (IGEQ BYTE1 (LLSH 15 4)) THEN (* ; "4 bytes") (SETQ BYTE2 (HEXCODE (SUBSTRING UTF8STRING 3 4))) (CL:WHEN (ILESSP BYTE2 128) (ERROR "INVALID UTF8 SEQUENCE" (LIST BYTE1 BYTE2))) (SETQ BYTE3 (HEXCODE (SUBSTRING UTF8STRING 5 6))) (CL:WHEN (ILESSP BYTE3 128) (ERROR "INVALID UTF8 SEQUENCE" (LIST BYTE1 BYTE2 BYTE3))) (SETQ BYTE4 (HEXCODE (SUBSTRING UTF8STRING 7 8))) (CL:WHEN (ILESSP BYTE4 128) (ERROR "INVALID UTF8 SEQUENCE" (LIST BYTE1 BYTE2 BYTE3 BYTE4))) (LOGOR (LLSH (LOADBYTE BYTE1 0 3) 18) (LLSH (LOADBYTE BYTE2 0 6) 12) (LLSH (LOADBYTE BYTE3 0 6) 6) (LOADBYTE BYTE4 0 6)) ELSEIF (IGEQ BYTE1 (LLSH 7 5)) THEN (* ; "3 bytes") (SETQ BYTE2 (HEXCODE (SUBSTRING UTF8STRING 3 4))) (CL:WHEN (ILESSP BYTE2 128) (ERROR "INVALID UTF8 SEQUENCE" (LIST BYTE1 BYTE2))) (SETQ BYTE3 (HEXCODE (SUBSTRING UTF8STRING 5 6))) (CL:WHEN (ILESSP BYTE3 128) (ERROR "INVALID UTF8 SEQUENCE" (LIST BYTE1 BYTE2 BYTE3))) (LOGOR (LLSH (LOADBYTE BYTE1 0 4) 12) (LLSH (LOADBYTE BYTE2 0 6) 6) (LOADBYTE BYTE3 0 6)) ELSE (* ; "Must be 2 bytes") (SETQ BYTE2 (HEXCODE (SUBSTRING UTF8STRING 3 4))) (CL:WHEN (ILESSP BYTE2 128) (ERROR "INVALID UTF8 SEQUENCE" (LIST BYTE1 BYTE2))) (LOGOR (LLSH (LOADBYTE BYTE1 0 5) 6) (LOADBYTE BYTE2 0 6]) ) (DECLARE%: DONTCOPY (FILEMAP (NIL (908 2902 (X2U.WIKI 918 . 2417) (XCCS2UNICODE.PARSECELL 2419 . 2900)) (2903 9687 ( X2U.BIN 2913 . 6940) (XCCORD 6942 . 8369) (GETUCODE 8371 . 8980) (WIN 8982 . 9170) (FINDUCODE 9172 . 9685)) (9688 10956 (SHOWMAPPINGS 9698 . 9942) (SHOWMAPPING 9944 . 10954)) (10957 12851 ( COMPAREMAPPINGS 10967 . 11554) (COMPARECHARSETS 11556 . 12849)) (12852 18013 (MERGEMAPPINGS 12862 . 15089) (PRINTMERGED 15091 . 17363) (READMERGED 17365 . 18011)) (18014 18987 (TRANSLATECHARSET 18024 . 18985)) (18988 19809 (CONVERTU2X 18998 . 19807)) (19810 23017 (UTF8TOHEXSTRING 19820 . 23015))))) STOP \ No newline at end of file diff --git a/library/exports.all b/library/exports.all index 653f1ce98..8e2da28d1 100644 --- a/library/exports.all +++ b/library/exports.all @@ -1,19 +1,19 @@ -(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP") +(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "XCL" BASE 10 FORMAT XCCS) (LISPXPRIN1 "EXPORTS GATHERED FROM {DSK}kaplan>Local>medley3.5>git-medley>sources> ON -29-Apr-2021 09:49:02" T) + 9-Jul-2021 22:29:02" T) (LISPXTERPRI T) (RPAQQ MODARITHMACROS (CEIL FLOOR FOLDHI FOLDLO MODUP UNFOLD MOD)) (PUTPROPS CEIL MACRO ((X N) (FLOOR (IPLUS X (CONSTANT (SUB1 N))) N))) (PUTPROPS FLOOR MACRO ((X N) (LOGAND X (CONSTANT (LOGXOR (SUB1 N) -1))))) (PUTPROPS FOLDHI MACRO (X (PROG ((FORM (CAR X)) (DIVISOR (CAR (CONSTANTEXPRESSIONP (CADR X))))) (OR ( -AND DIVISOR (POWEROFTWOP DIVISOR)) (\ILLEGAL.ARG (CADR X))) (RETURN (LIST (QUOTE LRSH) (LIST (QUOTE +AND DIVISOR (POWEROFTWOP DIVISOR)) (\\ILLEGAL.ARG (CADR X))) (RETURN (LIST (QUOTE LRSH) (LIST (QUOTE IPLUS) FORM (SUB1 DIVISOR)) (SUB1 (INTEGERLENGTH DIVISOR))))))) (PUTPROPS FOLDLO MACRO (X (PROG ((FORM (CAR X)) (DIVISOR (CAR (CONSTANTEXPRESSIONP (CADR X))))) (OR ( -AND DIVISOR (POWEROFTWOP DIVISOR)) (\ILLEGAL.ARG (CADR X))) (RETURN (LIST (QUOTE LRSH) FORM (SUB1 ( +AND DIVISOR (POWEROFTWOP DIVISOR)) (\\ILLEGAL.ARG (CADR X))) (RETURN (LIST (QUOTE LRSH) FORM (SUB1 ( INTEGERLENGTH DIVISOR))))))) (PUTPROPS MODUP MACRO (OPENLAMBDA (X N) (IDIFFERENCE (SUB1 N) (IMOD (SUB1 X) N)))) (PUTPROPS UNFOLD MACRO (X (PROG ((FORM (CAR X)) (DIVISOR (CAR (CONSTANTEXPRESSIONP (CADR X))))) (OR ( -AND DIVISOR (POWEROFTWOP DIVISOR)) (\ILLEGAL.ARG (CADR X))) (RETURN (LIST (QUOTE LLSH) FORM (SUB1 ( +AND DIVISOR (POWEROFTWOP DIVISOR)) (\\ILLEGAL.ARG (CADR X))) (RETURN (LIST (QUOTE LLSH) FORM (SUB1 ( INTEGERLENGTH DIVISOR))))))) (PUTPROPS MOD MACRO (= . IMOD)) (RPAQQ BITSPERNIBBLE 4) @@ -53,185 +53,194 @@ MAX.FIXP)))) LOGOR (LSH 1 (SUB1 SMALLP.LENGTH)) (SUB1 (LSH 1 (SUB1 SMALLP.LENGTH))))) (MIN.SMALLP (IDIFFERENCE -1 MAX.SMALLP)) (BITS.PER.FIXP BITSPERCELL) (FIXP.LENGTH (SUB1 BITS.PER.FIXP)) (MAX.FIXP (LOGOR (LSH 1 ( SUB1 FIXP.LENGTH)) (SUB1 (LSH 1 (SUB1 FIXP.LENGTH))))) (MIN.FIXP (IDIFFERENCE -1 MAX.FIXP))) -(PUTPROP (QUOTE MODARITH) (QUOTE IMPORTDATE) (IDATE "27-Apr-2021 20:06:09")) +(PUTPROP (QUOTE MODARITH) (QUOTE IMPORTDATE) (IDATE "16-May-1990 20:46:21")) (RPAQQ WINDFLG T) (CONSTANTS (WINDFLG T)) -(RPAQQ INITCONSTANTS ((* ;;; "(LISPNAME VALUE BCPLNAME UCODENAME)") (CDRCODING 1 T T) (* ; -"IF CDRCODING=0, CDR CODING IS OFF, OTHERWISE ON") (* ;; "type numbers -- repeated on LLBASIC too") ( -\SMALLP 1 SMALLTYPE SmallType) (\FIXP 2 INTEGERTYPE FixpType) (\FLOATP 3 FLTPTTYPE FloatpType) ( -\LITATOM 4 ATOMTYPE AtomType) (\LISTP 5 LISTTYPE ListType) (\ARRAYP 6 ARRAYPTRTYPE ArrayType) ( -\STRINGP 7 STRINGPTRTYPE) (\STACKP 8) (\CHARACTERP 9) (\VMEMPAGEP 10 NIL VMemPagePType) (\STREAM 11 -NIL STREAMTYPE) (* ;; "TYPE TABLE CONSTANTS - - - - - - - - - - - - - - - - - - - - - -") ( -\TT.TYPEMASK 2047 TTTypeMask T) (\TT.NOREF 32768 NIL T) (\TT.SYMBOLP 16384 NIL T) (\TT.FIXP 8192) ( -\TT.NUMBERP 4096) (\TT.ATOM 2048) (* ;; -"page map - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -") (\PMblockSize -32 PMBLOCKSIZE) (\STATSsize 8 T) (\NumPMTpages 8) (\EmptyPMTEntry 65535 T) (\FirstVmemBlock 2 T) ( -\MAXVMPAGE 131069) (\MAXVMSEGMENT 255) (* ;; "interface page") (\IFPValidKey 5603 T) (* ;; "MDS") ( -\FirstMDSPage 32766) (* ; "Was 37776Q pre 16-meg intiial") (\MaxMDSPage 524285) (\DefaultSecondMDSPage - 65532) (\MDSIncrement 512) (\PagesPerMDSUnit 2) (* ; "(FOLDLO \MDSIncrement WORDSPERPAGE)") (* ;; -"arrays") (\ARRAYSPACE (46 0)) (\FirstArraySegment 46) (\FirstArrayPage 11776) (\ARRAYSPACE2 (64 0)) ( -\DefaultSecondArrayPage 32768) (* ; "Was 40000Q before 16meg initial") (* ;; "stack block constants") -(\StackMask 57344 T T) (\FxtnBlock 49152 T T) (\GuardBlock 57344 T T) (\BFBlock 32768 T T) ( -\FreeStackBlock 40960 T T) (\NotStackBlock 0) (* ; "none of the above") (\MinExtraStackWords 32 T T) ( -* ;; "backspace kludge") (ERASECHARCODE 0 T) (* ;; "GC constants") (\HT1CNT 1024 NIL T) (\HTSTKBIT 512 - NIL T) (\HTCNTMASK 64512 NIL T) (\HTMAINSIZE 65536 NIL T) (\HTCOLLSIZE 1048576 NIL T) (* ; -"HTCOLL size in words") (\HTENDFREE 1 NIL T) (\HTFREEPTR 0 NIL T) (* ;; -"pointers and lengths of various data spaces") (\ATOMSPACE (0 0) (ATOMspace NIL) (atomHiVal NIL)) ( -\AtomHI 0) (\CHARHI 7) (* ; "overlap character space and the atom hash table space") (\AtomHashTable ( -21 0) (AHTspace AHTbase)) (\AtomHTpages 256 AHTSIZE) (\LastAtomPage 255) (\MaxAtomFrLst 65535) ( -\SMALLPOSPSPACE (14 0)) (\SmallPosHi 14 SMALLPOSspace smallpl) (\SMALLNEGSPACE (15 0)) (\SmallNegHi 15 - SMALLNEGspace smallneg) (\NumSmallPages 512) (* ;; -"PNAME SPACEin the old world; used for initial atoms now.") (\PNPSPACE (8 0) (PNPspace PNPbase)) ( -\PNAME.HI 8) (\OLDATOMSPACE (44 0)) (* ; "NEW ATOM SPACE") (\ATOM.HI 44) (* ; -"HI PART OF NEW ATOM SPACE") (* ;; "Definitions in old atom world") (\DEFSPACE (10 0) (DEFspace -DEFbase) (DEFspace DEFbase)) (\DEF.HI 10) (\VALSPACE (12 0) (TOPVALspace TOPVALbase) (VALspace VALbase -)) (\VAL.HI 12) (\PLISTSPACE (2 0) (PLISTspace PLISTbase)) (\PLIST.HI 2) (\PAGEMAP (5 0) (PAGEMAPspace - PAGEMAPbase)) (\NumPageMapPages 256) (\PageMapTBL (20 512) (PMTspace PMTbase)) (\InterfacePage (20 0) - (INTERFACEspace INTERFACEbase) (INTERFACEspace INTERFACEbase)) (\IOPAGE (0 65280)) (\DoveIORegion (0 -16384)) (\IOCBPAGE (0 256)) (\FPTOVP (2 0)) (\MDSTypeTable (24 0) (MDSTYPEspace MDSTYPEbase) ( -MDSTYPEspace MDSTYPEbase)) (\MDSTTsize 1024 T) (* ; "in Pages") (\MISCSTATS (20 2560) (STATSspace -MISCSTATSbase)) (\UFNTable (20 3072) NIL (STATSspace UFNTablebase)) (\UFNTableSize 2) (\DTDSpaceBase ( -20 4096) (DTDspace DTDbase) (DTDspace DTDbase)) (\DTDSize 18 T) (\LISTPDTD (20 4186)) (\EndTypeNumber -2047) (\LOCKEDPAGETABLE (20 28672)) (\NumLPTPages 16) (\STACKSPACE (1 0) (STACKspace NIL) (STACKspace -NIL)) (\GuardStackAddr 61440) (\LastStackAddr 65534) (\STACKHI 1 T T) (\HTMAIN (22 0) (HTMAINspace -HTMAINbase) (HTMAINspace HTMAINbase)) (\HTMAINnpages 256 T) (\HTOVERFLOW (23 0) NIL (NIL -HTOVERFLOWbase)) (\HTBIGCOUNT (23 32768)) (\HTCOLL (28 0) NIL (HTCOLLspace HTCOLLbase)) ( -\DISPLAYREGION (18 0)) (\D1BCPLspace 0 T LEmubrHiVal) (\D0BCPLspace 0 T) (* ;; -"Interface Page locations") (\CurrentFXP 0 T T) (\ResetFXP 1 T T) (\SubovFXP 2 T T) (\KbdFXP 3 T T) ( -\HardReturnFXP 4 T T) (\GCFXP 5) (\FAULTFXP 6 T T) (\MiscFXP 14 T T) (\TeleRaidFXP 24 T T) (* ;; -"emulator segment locations") (DCB.EM 272) (DISPINTERRUPT.EM 273) (CURSORBITMAP.EM 281) (KBDAD0.EM -65052) (KBDAD1.EM 65053) (KBDAD2.EM 65054) (KBDAD3.EM 65055) (UTILIN.EM 65048) (CURSORX.EM 278) ( -CURSORY.EM 279) (MOUSEX.EM 276) (MOUSEY.EM 277) (\LispKeyMask 8192 T T) (\BcplKeyMask 4352 T T) (* ; -"Machine types") (\MAIKO 3) (\DOLPHIN 4) (\DORADO 5) (\DANDELION 6) (\DAYBREAK 8) (* ;; -"FOR DLION (AND DAYBREAK)") (\VP.DISPLAY 4608) (\NP.DISPLAY 202) (* ; -"for Dorado display 1024x808 pixels / (16 pixels/word x 256 words/page)") (\NP.WIDEDOVEDISPLAY 243) (* - ; "Wide Dove display 1152x864 pixels") (\WIDEDOVEDISPLAYWIDTH 1152) (\RP.AFTERDISPLAY 206) (* ; -"Includes 4 pages for cursor") (\RP.AFTERDOVEDISPLAY 243) (* ; "if big screen") (\RP.DISPLAY 0) ( -\RP.TEMPDISPLAY 2561) (\RP.MISCLOCKED 2804) (* ; "(+ \RP.TEMPDISPLAY \NP.WIDEDOVEDISPLAY)") (\RP.STACK - 768) (\VP.STACK 256) (\RP.MAP 256) (\NP.MAP 256) (\RP.IOPAGE 512) (* ; -"The DOVE IOCBPAGE can go anywhere, but should be under the 1mbyte range") (\RP.DOVEIOCBPAGE 543) ( -\RP.DOVEIORGN 544) (\VP.DOVEIORGN 64) (\DOVEIORGNSIZE 64) (\VP.IOPAGE 255) (\VP.IFPAGE 5120) ( -\VP.FPTOVP 512) (\NP.FPTOVP 4096) (\RP.FPTOVP 1024) (\RP.STARTBUFFERS 640) (\VP.TYPETABLE 6144) ( -\NP.TYPETABLE 1024) (\RP.TYPETABLE 5120) (\VP.GCTABLE 5632) (\NP.GCTABLE 256) (\RP.GCTABLE 6144) ( -\VP.GCOVERFLOW 5888) (\NP.GCOVERFLOW 1) (\RP.GCOVERFLOW 6400) (\FP.IFPAGE 2) (\VP.IOCBS 1) ( -\VP.PRIMARYMAP 5122) (\VP.SECONDARYMAP 1280) (\VP.LPT 5232) (\VP.INITSCRATCH 8) (\VP.RPT 128) ( -\VP.BUFFERS 218) (* ; "DLion processor commands") (\DL.PROCESSORBUSY 32768) (\DL.SETTOD 32769) ( -\DL.READTOD 32770) (\DL.READPID 32771) (\DL.BOOTBUTTON 32772))) -(RPAQQ MISCSTATSLAYOUT ((STARTTIME FIXP MSstrtTime) (TOTALTIME FIXP) (SWAPWAITTIME FIXP T) (PAGEFAULTS - FIXP T) (SWAPWRITES FIXP T) (DISKIOTIME FIXP T) (DISKOPS FIXP T) (KEYBOARDWAITTIME FIXP T) (GCTIME -FIXP T) (NETIOTIME FIXP T) (NETIOOPS FIXP T) (SWAPTEMP0 FIXP) (SWAPTEMP1 FIXP) (RCLKSECOND FIXP) ( -SECONDSCLOCK FIXP) (MILLISECONDSCLOCK FIXP) (BASECLOCK FIXP) (RCLKTEMP0 FIXP) (SECONDSTMP FIXP) ( -MILLISECONDSTMP FIXP) (BASETMP FIXP) (EXCESSTIMETMP FIXP) (CLOCKTEMP0 FIXP) (DISKTEMP0 FIXP) ( +(RPAQQ INITCONSTANTS ((* |;;;| "(LISPNAME VALUE BCPLNAME UCODENAME)") (CDRCODING 1 T T) (* \; +"IF CDRCODING=0, CDR CODING IS OFF, OTHERWISE ON") (* |;;| "type numbers -- repeated on LLBASIC too") +(\\SMALLP 1 SMALLTYPE |SmallType|) (\\FIXP 2 INTEGERTYPE |FixpType|) (\\FLOATP 3 FLTPTTYPE +|FloatpType|) (\\LITATOM 4 ATOMTYPE |AtomType|) (\\LISTP 5 LISTTYPE |ListType|) (\\ARRAYP 6 +ARRAYPTRTYPE |ArrayType|) (\\STRINGP 7 STRINGPTRTYPE) (\\STACKP 8) (\\CHARACTERP 9) (\\VMEMPAGEP 10 +NIL |VMemPagePType|) (\\STREAM 11 NIL STREAMTYPE) (* |;;| +"TYPE TABLE CONSTANTS - - - - - - - - - - - - - - - - - - - - - -") (\\TT.TYPEMASK 2047 |TTTypeMask| T +) (\\TT.NOREF 32768 NIL T) (\\TT.SYMBOLP 16384 NIL T) (\\TT.FIXP 8192) (\\TT.NUMBERP 4096) (\\TT.ATOM +2048) (* |;;| "page map - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -") +(|\\PMblockSize| 32 PMBLOCKSIZE) (|\\STATSsize| 8 T) (|\\NumPMTpages| 8) (|\\EmptyPMTEntry| 65535 T) ( +|\\FirstVmemBlock| 2 T) (\\MAXVMPAGE 131069) (\\MAXVMSEGMENT 255) (* |;;| "interface page") ( +|\\IFPValidKey| 5603 T) (* |;;| "MDS") (|\\FirstMDSPage| 32766) (* \; "Was 37776Q pre 16-meg intiial") + (|\\MaxMDSPage| 524285) (|\\DefaultSecondMDSPage| 65532) (|\\MDSIncrement| 512) (|\\PagesPerMDSUnit| +2) (* \; "(FOLDLO \\MDSIncrement WORDSPERPAGE)") (* |;;| "arrays") (\\ARRAYSPACE (46 0)) ( +|\\FirstArraySegment| 46) (|\\FirstArrayPage| 11776) (\\ARRAYSPACE2 (64 0)) ( +|\\DefaultSecondArrayPage| 32768) (* \; "Was 40000Q before 16meg initial") (* |;;| +"stack block constants") (|\\StackMask| 57344 T T) (|\\FxtnBlock| 49152 T T) (|\\GuardBlock| 57344 T T +) (|\\BFBlock| 32768 T T) (|\\FreeStackBlock| 40960 T T) (|\\NotStackBlock| 0) (* \; +"none of the above") (|\\MinExtraStackWords| 32 T T) (* |;;| "backspace kludge") (ERASECHARCODE 0 T) ( +* |;;| "GC constants") (\\HT1CNT 1024 NIL T) (\\HTSTKBIT 512 NIL T) (\\HTCNTMASK 64512 NIL T) ( +\\HTMAINSIZE 65536 NIL T) (\\HTCOLLSIZE 1048576 NIL T) (* \; "HTCOLL size in words") (\\HTENDFREE 1 +NIL T) (\\HTFREEPTR 0 NIL T) (* |;;| "pointers and lengths of various data spaces") (\\ATOMSPACE (0 0) + (|ATOMspace| NIL) (|atomHiVal| NIL)) (|\\AtomHI| 0) (\\CHARHI 7) (* \; +"overlap character space and the atom hash table space") (|\\AtomHashTable| (21 0) (|AHTspace| +|AHTbase|)) (|\\AtomHTpages| 256 AHTSIZE) (|\\LastAtomPage| 255) (|\\MaxAtomFrLst| 65535) ( +\\SMALLPOSPSPACE (14 0)) (|\\SmallPosHi| 14 |SMALLPOSspace| |smallpl|) (\\SMALLNEGSPACE (15 0)) ( +|\\SmallNegHi| 15 |SMALLNEGspace| |smallneg|) (|\\NumSmallPages| 512) (* |;;| +"PNAME SPACEin the old world; used for initial atoms now.") (\\PNPSPACE (8 0) (|PNPspace| |PNPbase|)) +(\\PNAME.HI 8) (\\OLDATOMSPACE (44 0)) (* \; "NEW ATOM SPACE") (\\ATOM.HI 44) (* \; +"HI PART OF NEW ATOM SPACE") (* |;;| "Definitions in old atom world") (\\DEFSPACE (10 0) (|DEFspace| +|DEFbase|) (|DEFspace| |DEFbase|)) (\\DEF.HI 10) (\\VALSPACE (12 0) (|TOPVALspace| |TOPVALbase|) ( +|VALspace| |VALbase|)) (\\VAL.HI 12) (\\PLISTSPACE (2 0) (|PLISTspace| |PLISTbase|)) (\\PLIST.HI 2) ( +\\PAGEMAP (5 0) (|PAGEMAPspace| |PAGEMAPbase|)) (|\\NumPageMapPages| 256) (|\\PageMapTBL| (20 512) ( +|PMTspace| |PMTbase|)) (|\\InterfacePage| (20 0) (|INTERFACEspace| |INTERFACEbase|) (|INTERFACEspace| +|INTERFACEbase|)) (\\IOPAGE (0 65280)) (|\\DoveIORegion| (0 16384)) (\\IOCBPAGE (0 256)) (\\FPTOVP (2 +0)) (|\\MDSTypeTable| (24 0) (|MDSTYPEspace| |MDSTYPEbase|) (|MDSTYPEspace| |MDSTYPEbase|)) ( +|\\MDSTTsize| 1024 T) (* \; "in Pages") (\\MISCSTATS (20 2560) (|STATSspace| |MISCSTATSbase|)) ( +|\\UFNTable| (20 3072) NIL (|STATSspace| |UFNTablebase|)) (|\\UFNTableSize| 2) (|\\DTDSpaceBase| (20 +4096) (|DTDspace| |DTDbase|) (|DTDspace| |DTDbase|)) (|\\DTDSize| 18 T) (\\LISTPDTD (20 4186)) ( +|\\EndTypeNumber| 2047) (\\LOCKEDPAGETABLE (20 28672)) (|\\NumLPTPages| 16) (\\STACKSPACE (1 0) ( +|STACKspace| NIL) (|STACKspace| NIL)) (|\\GuardStackAddr| 61440) (|\\LastStackAddr| 65534) (\\STACKHI +1 T T) (\\HTMAIN (22 0) (|HTMAINspace| |HTMAINbase|) (|HTMAINspace| |HTMAINbase|)) (|\\HTMAINnpages| +256 T) (\\HTOVERFLOW (23 0) NIL (NIL |HTOVERFLOWbase|)) (\\HTBIGCOUNT (23 32768)) (\\HTCOLL (28 0) NIL + (|HTCOLLspace| |HTCOLLbase|)) (\\DISPLAYREGION (18 0)) (|\\D1BCPLspace| 0 T |LEmubrHiVal|) ( +|\\D0BCPLspace| 0 T) (* |;;| "Interface Page locations") (|\\CurrentFXP| 0 T T) (|\\ResetFXP| 1 T T) ( +|\\SubovFXP| 2 T T) (|\\KbdFXP| 3 T T) (|\\HardReturnFXP| 4 T T) (\\GCFXP 5) (\\FAULTFXP 6 T T) ( +|\\MiscFXP| 14 T T) (|\\TeleRaidFXP| 24 T T) (* |;;| "emulator segment locations") (DCB.EM 272) ( +DISPINTERRUPT.EM 273) (CURSORBITMAP.EM 281) (KBDAD0.EM 65052) (KBDAD1.EM 65053) (KBDAD2.EM 65054) ( +KBDAD3.EM 65055) (UTILIN.EM 65048) (CURSORX.EM 278) (CURSORY.EM 279) (MOUSEX.EM 276) (MOUSEY.EM 277) ( +|\\LispKeyMask| 8192 T T) (|\\BcplKeyMask| 4352 T T) (* \; "Machine types") (\\MAIKO 3) (\\DOLPHIN 4) +(\\DORADO 5) (\\DANDELION 6) (\\DAYBREAK 8) (* |;;| "FOR DLION (AND DAYBREAK)") (\\VP.DISPLAY 4608) ( +\\NP.DISPLAY 202) (* \; "for Dorado display 1024x808 pixels / (16 pixels/word x 256 words/page)") ( +\\NP.WIDEDOVEDISPLAY 243) (* \; "Wide Dove display 1152x864 pixels") (\\WIDEDOVEDISPLAYWIDTH 1152) ( +\\RP.AFTERDISPLAY 206) (* \; "Includes 4 pages for cursor") (\\RP.AFTERDOVEDISPLAY 243) (* \; +"if big screen") (\\RP.DISPLAY 0) (\\RP.TEMPDISPLAY 2561) (\\RP.MISCLOCKED 2804) (* \; +"(+ \\RP.TEMPDISPLAY \\NP.WIDEDOVEDISPLAY)") (\\RP.STACK 768) (\\VP.STACK 256) (\\RP.MAP 256) ( +\\NP.MAP 256) (\\RP.IOPAGE 512) (* \; +"The DOVE IOCBPAGE can go anywhere, but should be under the 1mbyte range") (\\RP.DOVEIOCBPAGE 543) ( +\\RP.DOVEIORGN 544) (\\VP.DOVEIORGN 64) (\\DOVEIORGNSIZE 64) (\\VP.IOPAGE 255) (\\VP.IFPAGE 5120) ( +\\VP.FPTOVP 512) (\\NP.FPTOVP 4096) (\\RP.FPTOVP 1024) (\\RP.STARTBUFFERS 640) (\\VP.TYPETABLE 6144) ( +\\NP.TYPETABLE 1024) (\\RP.TYPETABLE 5120) (\\VP.GCTABLE 5632) (\\NP.GCTABLE 256) (\\RP.GCTABLE 6144) +(\\VP.GCOVERFLOW 5888) (\\NP.GCOVERFLOW 1) (\\RP.GCOVERFLOW 6400) (\\FP.IFPAGE 2) (\\VP.IOCBS 1) ( +\\VP.PRIMARYMAP 5122) (\\VP.SECONDARYMAP 1280) (\\VP.LPT 5232) (\\VP.INITSCRATCH 8) (\\VP.RPT 128) ( +\\VP.BUFFERS 218) (* \; "DLion processor commands") (\\DL.PROCESSORBUSY 32768) (\\DL.SETTOD 32769) ( +\\DL.READTOD 32770) (\\DL.READPID 32771) (\\DL.BOOTBUTTON 32772))) +(RPAQQ MISCSTATSLAYOUT ((STARTTIME FIXP |MSstrtTime|) (TOTALTIME FIXP) (SWAPWAITTIME FIXP T) ( +PAGEFAULTS FIXP T) (SWAPWRITES FIXP T) (DISKIOTIME FIXP T) (DISKOPS FIXP T) (KEYBOARDWAITTIME FIXP T) +(GCTIME FIXP T) (NETIOTIME FIXP T) (NETIOOPS FIXP T) (SWAPTEMP0 FIXP) (SWAPTEMP1 FIXP) (RCLKSECOND +FIXP) (SECONDSCLOCK FIXP) (MILLISECONDSCLOCK FIXP) (BASECLOCK FIXP) (RCLKTEMP0 FIXP) (SECONDSTMP FIXP) + (MILLISECONDSTMP FIXP) (BASETMP FIXP) (EXCESSTIMETMP FIXP) (CLOCKTEMP0 FIXP) (DISKTEMP0 FIXP) ( DISKTEMP1 FIXP) (TELERAIDTEMP1 FIXP) (TELERAIDTEMP2 FIXP) (TELERAIDTEMP3 FIXP) (LASTUSERACTION FIXP) ( DLMOUSETIMER FIXP) (DLMOUSETEMP FIXP))) -(RPAQQ IFPAGELAYOUT ((CurrentFXP WORD) (* ; -"First 7 items are FX values for user and 6 system contexts.") (ResetFXP WORD) (SubovFXP WORD) (KbdFXP - WORD) (HardReturnFXP WORD) (GCFXP WORD) (FAULTFXP WORD) (EndOfStack WORD) (* ; -"Stack high-water mark: address of guard block at current end of stack") (LVersion WORD) (* ; -"Lisp version, followed by min versions of microcode and Bcpl compatible with this Lisp") (MinRVersion - WORD) (MinBVersion WORD) (RVersion WORD) (* ; "Bcpl fills in the actual microcode, Bcpl versions.") ( -BVersion WORD) (MachineType WORD) (MiscFXP WORD) (* ; "FX for MISC context") (Key WORD) (* ; -"= IFPValidKey if vmem consistent.") (SerialNumber WORD) (* ; "Pup host number (Dorado/Dolphin)") ( -EmulatorSpace WORD) (* ; "Hiloc of bcpl space (always zero now)") (ScreenWidth WORD) (NxtPMAddr WORD) -(* ; "Next page to be allocated in secondary page map table") (NActivePages WORD) (* ; -"Length of vmem in use") (NDirtyPages WORD) (* ; "not used, but maintained as = NActivePages") ( -filePnPMP0 WORD) (* ; -"Sysout page number of first page of secondary page map table (\PAGEMAP), which is where the secondary map pages themselves live" -) (filePnPMT0 WORD) (* ; "Sysout page number of first page of primary page map table") (TELERAIDFXP -WORD) (* ; "FX for TeleRaid server context") (NATIVE-START-MEM-PAGE WORD) (* ; -"Unix page where native code starts") (NATIVE-LENGTH-PAGE WORD) (* ; "Unix page length of native code" -) (NATIVE-PAGE-OFFSET WORD) (* ; "Lisp Disk Page offset of native code") (UserNameAddr WORD) (* ; -"Addresses in bcpl space (seg 0) of global user name and password") (UserPswdAddr WORD) (StackBase -WORD) (* ; "Stack address where user stack starts") (FAULTHI WORD) (* ; +(RPAQQ IFPAGELAYOUT ((|CurrentFXP| WORD) (* \; +"First 7 items are FX values for user and 6 system contexts.") (|ResetFXP| WORD) (|SubovFXP| WORD) ( +|KbdFXP| WORD) (|HardReturnFXP| WORD) (GCFXP WORD) (FAULTFXP WORD) (|EndOfStack| WORD) (* \; +"Stack high-water mark: address of guard block at current end of stack") (|LVersion| WORD) (* \; +"Lisp version, followed by min versions of microcode and Bcpl compatible with this Lisp") ( +|MinRVersion| WORD) (|MinBVersion| WORD) (|RVersion| WORD) (* \; +"Bcpl fills in the actual microcode, Bcpl versions.") (|BVersion| WORD) (|MachineType| WORD) ( +|MiscFXP| WORD) (* \; "FX for MISC context") (|Key| WORD) (* \; "= IFPValidKey if vmem consistent.") ( +|SerialNumber| WORD) (* \; "Pup host number (Dorado/Dolphin)") (|EmulatorSpace| WORD) (* \; +"Hiloc of bcpl space (always zero now)") (|ScreenWidth| WORD) (|NxtPMAddr| WORD) (* \; +"Next page to be allocated in secondary page map table") (|NActivePages| WORD) (* \; +"Length of vmem in use") (|NDirtyPages| WORD) (* \; "not used, but maintained as = NActivePages") ( +|filePnPMP0| WORD) (* \; +"Sysout page number of first page of secondary page map table (\\PAGEMAP), which is where the secondary map pages themselves live" +) (|filePnPMT0| WORD) (* \; "Sysout page number of first page of primary page map table") (TELERAIDFXP + WORD) (* \; "FX for TeleRaid server context") (NATIVE-START-MEM-PAGE WORD) (* \; +"Unix page where native code starts") (NATIVE-LENGTH-PAGE WORD) (* \; +"Unix page length of native code") (NATIVE-PAGE-OFFSET WORD) (* \; +"Lisp Disk Page offset of native code") (|UserNameAddr| WORD) (* \; +"Addresses in bcpl space (seg 0) of global user name and password") (|UserPswdAddr| WORD) (|StackBase| + WORD) (* \; "Stack address where user stack starts") (FAULTHI WORD) (* \; "Microcode for page fault stores fault address here, then does context switch to FAULTFXP") (FAULTLO -WORD) (DEVCONFIG WORD) (* ; "IT'S FOR KB,DISP TYPE") (* ; -"Formerly REALPAGETABLE, back when it was always in Bcpl space.") (RPTSIZE WORD) (* ; -"Number of entries in Real Page Table") (RPOFFSET WORD) (* ; "RP-RPOFFSET => index in table") ( -MAXETHERBYTES WORD) (* ; "Number of bytes available in a pbi, not counting encapsulation (Dorado)") ( -EMBUFVP WORD) (* ; "VP of a one-page emulator buffer") (NSHost0 WORD) (* ; +WORD) (DEVCONFIG WORD) (* \; "IT'S FOR KB,DISP TYPE") (* \; +"Formerly REALPAGETABLE, back when it was always in Bcpl space.") (RPTSIZE WORD) (* \; +"Number of entries in Real Page Table") (RPOFFSET WORD) (* \; "RP-RPOFFSET => index in table") ( +MAXETHERBYTES WORD) (* \; "Number of bytes available in a pbi, not counting encapsulation (Dorado)") ( +EMBUFVP WORD) (* \; "VP of a one-page emulator buffer") (|NSHost0| WORD) (* \; "Machine's 48-bit NS host number. Lisp manages to compute this on all machines except Dolphin, where Bcpl fills it in." -) (NSHost1 WORD) (NSHost2 WORD) (MDSZone WORD) (* ; -"Obsolete -- was used by Dolphin 10MB network code.") (MDSZoneLength WORD) (EMUBUFFERS WORD) (* ; -"Buffer space in segment 0 for swapping/disk activity") (EMUBUFLENGTH WORD) (* ; -"Number of words of said space") (LASTNUMCHARS WORD) (* ; "No longer used?") (SYSDISK WORD) (* ; -"Address of sysDisk in Bcpl space -- disk obj for boot partition.") (ISFMAP WORD) (* ;; -"The following 4 are for \MISCAPPLY* -- note that they are not ref counted, so don't pass the only pointer to something this way!" +) (|NSHost1| WORD) (|NSHost2| WORD) (|MDSZone| WORD) (* \; +"Obsolete -- was used by Dolphin 10MB network code.") (|MDSZoneLength| WORD) (EMUBUFFERS WORD) (* \; +"Buffer space in segment 0 for swapping/disk activity") (EMUBUFLENGTH WORD) (* \; +"Number of words of said space") (LASTNUMCHARS WORD) (* \; "No longer used?") (SYSDISK WORD) (* \; +"Address of sysDisk in Bcpl space -- disk obj for boot partition.") (ISFMAP WORD) (* |;;| +"The following 4 are for \\MISCAPPLY* -- note that they are not ref counted, so don't pass the only pointer to something this way!" ) (MISCSTACKFN FULLXPOINTER) (MISCSTACKARG1 FULLXPOINTER) (MISCSTACKARG2 FULLXPOINTER) ( -MISCSTACKRESULT FULLXPOINTER) (NRealPages WORD) (* ; "Number pages of real memory") ( -LastLockedFilePage WORD) (* ; -"Last page of vmem that is locked--booting has to load at least that far.") (LastDominoFilePage WORD) -(* ; "Last sysout page reserved for Dandelion microcode") (FPTOVPStart WORD) (* ; -"Sysout page where FPTOVP starts") (FAKEMOUSEBITS WORD) (* ; -"Used to implement fake middle button on 2-button Dandelion.") (DL24BitAddressable WORD) (* ; -"non-zero if DLion capable of addressing 32MB virtual memory") (REALPAGETABLEPTR FULLXPOINTER) (* ; -"Address of real page table, set up by Bcpl (but not chained together)") (DLLastVmemPage WORD) (* ; -"DLion booting microcode puts length of vmem file here.") (FullSpaceUsed WORD) (* ; -"Non-zero if vmem beyond initial 8MB has been allocated.") (FAKEKBDAD4 WORD) (FAKEKBDAD5 WORD) (* ;; +MISCSTACKRESULT FULLXPOINTER) (|NRealPages| WORD) (* \; "Number pages of real memory") ( +|LastLockedFilePage| WORD) (* \; +"Last page of vmem that is locked--booting has to load at least that far.") (|LastDominoFilePage| WORD +) (* \; "Last sysout page reserved for Dandelion microcode") (|FPTOVPStart| WORD) (* \; +"Sysout page where FPTOVP starts") (FAKEMOUSEBITS WORD) (* \; +"Used to implement fake middle button on 2-button Dandelion.") (|DL24BitAddressable| WORD) (* \; +"non-zero if DLion capable of addressing 32MB virtual memory") (REALPAGETABLEPTR FULLXPOINTER) (* \; +"Address of real page table, set up by Bcpl (but not chained together)") (|DLLastVmemPage| WORD) (* \; + "DLion booting microcode puts length of vmem file here.") (|FullSpaceUsed| WORD) (* \; +"Non-zero if vmem beyond initial 8MB has been allocated.") (FAKEKBDAD4 WORD) (FAKEKBDAD5 WORD) (* |;;| + "The following 9 items (6 words and 3 pointers) are 3 3-element vectors for the Dorado extended virtual memory code--indexed by 0,1,2 according to which of up to 3 virtual memory backing files you're working with." -) (XVmemFmapBase WORD) (* ; +) (|XVmemFmapBase| WORD) (* \; "Bcpl stores isf map pointer to each partition here. First is redundant with ISFMAP field above.") ( -NIL WORD) (NIL WORD) (XVmemFmapHighBase WORD) (* ; +NIL WORD) (NIL WORD) (|XVmemFmapHighBase| WORD) (* \; "Bcpl stores the highest vm page contained in this or earlier partition.") (NIL WORD) (NIL WORD) ( -XVmemDiskBase FULLXPOINTER) (* ; +|XVmemDiskBase| FULLXPOINTER) (* \; "Lisp stores disk objects here (just a convenient non-faulting contiguous block of storage).") (NIL FULLXPOINTER) (NIL FULLXPOINTER))) -(RPAQQ MAIKO.IFPAGELAYOUT ((CurrentFXP WORD) (* ; -"First 7 items are FX values for user and 6 system contexts.") (ResetFXP WORD) (SubovFXP WORD) (KbdFXP - WORD) (HardReturnFXP WORD) (GCFXP WORD) (FAULTFXP WORD) (EndOfStack WORD) (* ; -"Stack high-water mark: address of guard block at current end of stack") (LVersion WORD) (* ; -"Lisp version, followed by min versions of microcode and Bcpl compatible with this Lisp") (MinRVersion - WORD) (MinBVersion WORD) (RVersion WORD) (* ; "Bcpl fills in the actual microcode, Bcpl versions.") ( -BVersion WORD) (MachineType WORD) (MiscFXP WORD) (* ; "FX for MISC context") (Key WORD) (* ; -"= IFPValidKey if vmem consistent.") (SerialNumber WORD) (* ; "Pup host number (Dorado/Dolphin)") ( -EmulatorSpace WORD) (* ; "Hiloc of bcpl space (always zero now)") (ScreenWidth WORD) (NxtPMAddr WORD) -(* ; "Next page to be allocated in secondary page map table") (NIL WORD) (* ; -"WAS NActivePages, Length of vmem in use") (NIL WORD) (* ; -"WAS NDirtyPages, not used, but maintained as = NActivePages") (filePnPMP0 WORD) (* ; -"Sysout page number of first page of secondary page map table (\PAGEMAP), which is where the secondary map pages themselves live" -) (filePnPMT0 WORD) (* ; "Sysout page number of first page of primary page map table") (TELERAIDFXP -WORD) (* ; "FX for TeleRaid server context") (NATIVE-START-MEM-PAGE WORD) (* ; -"Unix page where native code starts") (NATIVE-LENGTH-PAGE WORD) (* ; "Unix page length of native code" -) (NATIVE-PAGE-OFFSET WORD) (* ; "Lisp Disk Page offset of native code") (UserNameAddr WORD) (* ; -"Addresses in bcpl space (seg 0) of global user name and password") (UserPswdAddr WORD) (StackBase -WORD) (* ; "Stack address where user stack starts") (FAULTHI WORD) (* ; +(RPAQQ MAIKO.IFPAGELAYOUT ((|CurrentFXP| WORD) (* \; +"First 7 items are FX values for user and 6 system contexts.") (|ResetFXP| WORD) (|SubovFXP| WORD) ( +|KbdFXP| WORD) (|HardReturnFXP| WORD) (GCFXP WORD) (FAULTFXP WORD) (|EndOfStack| WORD) (* \; +"Stack high-water mark: address of guard block at current end of stack") (|LVersion| WORD) (* \; +"Lisp version, followed by min versions of microcode and Bcpl compatible with this Lisp") ( +|MinRVersion| WORD) (|MinBVersion| WORD) (|RVersion| WORD) (* \; +"Bcpl fills in the actual microcode, Bcpl versions.") (|BVersion| WORD) (|MachineType| WORD) ( +|MiscFXP| WORD) (* \; "FX for MISC context") (|Key| WORD) (* \; "= IFPValidKey if vmem consistent.") ( +|SerialNumber| WORD) (* \; "Pup host number (Dorado/Dolphin)") (|EmulatorSpace| WORD) (* \; +"Hiloc of bcpl space (always zero now)") (|ScreenWidth| WORD) (|NxtPMAddr| WORD) (* \; +"Next page to be allocated in secondary page map table") (NIL WORD) (* \; +"WAS NActivePages, Length of vmem in use") (NIL WORD) (* \; +"WAS NDirtyPages, not used, but maintained as = NActivePages") (|filePnPMP0| WORD) (* \; +"Sysout page number of first page of secondary page map table (\\PAGEMAP), which is where the secondary map pages themselves live" +) (|filePnPMT0| WORD) (* \; "Sysout page number of first page of primary page map table") (TELERAIDFXP + WORD) (* \; "FX for TeleRaid server context") (NATIVE-START-MEM-PAGE WORD) (* \; +"Unix page where native code starts") (NATIVE-LENGTH-PAGE WORD) (* \; +"Unix page length of native code") (NATIVE-PAGE-OFFSET WORD) (* \; +"Lisp Disk Page offset of native code") (|UserNameAddr| WORD) (* \; +"Addresses in bcpl space (seg 0) of global user name and password") (|UserPswdAddr| WORD) (|StackBase| + WORD) (* \; "Stack address where user stack starts") (FAULTHI WORD) (* \; "Microcode for page fault stores fault address here, then does context switch to FAULTFXP") (FAULTLO -WORD) (DEVCONFIG WORD) (* ; "IT'S FOR KB,DISP TYPE") (* ; -"Formerly REALPAGETABLE, back when it was always in Bcpl space.") (RPTSIZE WORD) (* ; -"Number of entries in Real Page Table") (RPOFFSET WORD) (* ; "RP-RPOFFSET => index in table") ( -MAXETHERBYTES WORD) (* ; "Number of bytes available in a pbi, not counting encapsulation (Dorado)") ( -EMBUFVP WORD) (* ; "VP of a one-page emulator buffer") (NSHost0 WORD) (* ; +WORD) (DEVCONFIG WORD) (* \; "IT'S FOR KB,DISP TYPE") (* \; +"Formerly REALPAGETABLE, back when it was always in Bcpl space.") (RPTSIZE WORD) (* \; +"Number of entries in Real Page Table") (RPOFFSET WORD) (* \; "RP-RPOFFSET => index in table") ( +MAXETHERBYTES WORD) (* \; "Number of bytes available in a pbi, not counting encapsulation (Dorado)") ( +EMBUFVP WORD) (* \; "VP of a one-page emulator buffer") (|NSHost0| WORD) (* \; "Machine's 48-bit NS host number. Lisp manages to compute this on all machines except Dolphin, where Bcpl fills it in." -) (NSHost1 WORD) (NSHost2 WORD) (MDSZone WORD) (* ; -"Obsolete -- was used by Dolphin 10MB network code.") (MDSZoneLength WORD) (EMUBUFFERS WORD) (* ; -"Buffer space in segment 0 for swapping/disk activity") (EMUBUFLENGTH WORD) (* ; -"Number of words of said space") (* ;; -"The following 2 are available if NEW_STOARGE is specified in C") (ProcessSize WORD) (* ; -"Process size for which can be use as LISP space") (StorageFullState WORD) (* ; -"Save last storage state") (ISFMAP WORD) (* ;; -"The following 4 are for \MISCAPPLY* -- note that they are not ref counted, so don't pass the only pointer to something this way!" +) (|NSHost1| WORD) (|NSHost2| WORD) (|MDSZone| WORD) (* \; +"Obsolete -- was used by Dolphin 10MB network code.") (|MDSZoneLength| WORD) (EMUBUFFERS WORD) (* \; +"Buffer space in segment 0 for swapping/disk activity") (EMUBUFLENGTH WORD) (* \; +"Number of words of said space") (* |;;| +"The following 2 are available if NEW_STOARGE is specified in C") (|ProcessSize| WORD) (* \; +"Process size for which can be use as LISP space") (|StorageFullState| WORD) (* \; +"Save last storage state") (ISFMAP WORD) (* |;;| +"The following 4 are for \\MISCAPPLY* -- note that they are not ref counted, so don't pass the only pointer to something this way!" ) (MISCSTACKFN FULLXPOINTER) (MISCSTACKARG1 FULLXPOINTER) (MISCSTACKARG2 FULLXPOINTER) ( -MISCSTACKRESULT FULLXPOINTER) (NRealPages WORD) (* ; "Number pages of real memory") ( -LastLockedFilePage WORD) (* ; -"Last page of vmem that is locked--booting has to load at least that far.") (LastDominoFilePage WORD) -(* ; "Last sysout page reserved for Dandelion microcode") (FPTOVPStart WORD) (* ; -"Sysout page where FPTOVP starts") (FAKEMOUSEBITS WORD) (* ; -"Used to implement fake middle button on 2-button Dandelion.") (DL24BitAddressable WORD) (* ; -"non-zero if DLion capable of addressing 32MB virtual memory") (REALPAGETABLEPTR FULLXPOINTER) (* ; -"Address of real page table, set up by Bcpl (but not chained together)") (SYSDISK WORD) (* ; -"WAS DLLastVmemPage, DLion booting microcode puts length of vmem file here.") (FullSpaceUsed WORD) (* -; "Non-zero if vmem beyond initial 8MB has been allocated.") (FAKEKBDAD4 WORD) (FAKEKBDAD5 WORD) (* ;; - +MISCSTACKRESULT FULLXPOINTER) (|NRealPages| WORD) (* \; "Number pages of real memory") ( +|LastLockedFilePage| WORD) (* \; +"Last page of vmem that is locked--booting has to load at least that far.") (|LastDominoFilePage| WORD +) (* \; "Last sysout page reserved for Dandelion microcode") (|FPTOVPStart| WORD) (* \; +"Sysout page where FPTOVP starts") (FAKEMOUSEBITS WORD) (* \; +"Used to implement fake middle button on 2-button Dandelion.") (|DL24BitAddressable| WORD) (* \; +"non-zero if DLion capable of addressing 32MB virtual memory") (REALPAGETABLEPTR FULLXPOINTER) (* \; +"Address of real page table, set up by Bcpl (but not chained together)") (SYSDISK WORD) (* \; +"WAS DLLastVmemPage, DLion booting microcode puts length of vmem file here.") (|FullSpaceUsed| WORD) ( +* \; "Non-zero if vmem beyond initial 8MB has been allocated.") (FAKEKBDAD4 WORD) (FAKEKBDAD5 WORD) (* + |;;| "The following 9 items (6 words and 3 pointers) are 3 3-element vectors for the Dorado extended virtual memory code--indexed by 0,1,2 according to which of up to 3 virtual memory backing files you're working with." -) (XVmemFmapBase WORD) (* ; +) (|XVmemFmapBase| WORD) (* \; "Bcpl stores isf map pointer to each partition here. First is redundant with ISFMAP field above.") ( -NIL WORD) (NIL WORD) (XVmemFmapHighBase WORD) (* ; +NIL WORD) (NIL WORD) (|XVmemFmapHighBase| WORD) (* \; "Bcpl stores the highest vm page contained in this or earlier partition.") (NIL WORD) (NIL WORD) ( -XVmemDiskBase FULLXPOINTER) (* ; +|XVmemDiskBase| FULLXPOINTER) (* \; "Lisp stores disk objects here (just a convenient non-faulting contiguous block of storage).") (NIL -FULLXPOINTER) (NIL FULLXPOINTER) (DLLastVmemPage FIXP) (* ; -"DLion booting microcode puts length of vmem file here.") (NActivePages FIXP) (* ; -"Length of vmem in use") (NDirtyPages FIXP) (* ; "not used, but maintained as = NActivePages"))) +FULLXPOINTER) (NIL FULLXPOINTER) (|DLLastVmemPage| FIXP) (* \; +"DLion booting microcode puts length of vmem file here.") (|NActivePages| FIXP) (* \; +"Length of vmem in use") (|NDirtyPages| FIXP) (* \; "not used, but maintained as = NActivePages"))) (RPAQQ IOPAGELAYOUT ((NIL 18 WORD) (DLMAINTPANEL WORD NIL T) (DLFLOPPYCMD WORD) (DLTTYPORTCMD WORD) ( DLPROCESSORCMD WORD) (NEWMOUSESTATE WORD) (DLBEEPCMD WORD) (DLRS232CMISCCOMMAND WORD) (DLRS232CPUTFLAG WORD) (DLRS232CGETFLAG WORD) (NIL 6 WORD) (DLFLOPPY WORD) (DLTTYOUT WORD) (NIL 1 WORD) (DLTTYIN WORD) @@ -247,88 +256,88 @@ DLRS232CSETRS366STATUS.11 14 WORD) (NIL 60 WORD) (DLMAGTAPE 4 WORD) (DLETHERNET WORD) (DLDISPINTERRUPT WORD NIL T) (DLDISPCONTROL WORD) (DLDISPBORDER WORD) (DLCURSORX WORD NIL T) ( DLCURSORY WORD NIL T) (DLCURSORBITMAP 16 WORD NIL T))) (RPAQQ CDRCODING 1) -(RPAQQ \SMALLP 1) -(RPAQQ \FIXP 2) -(RPAQQ \FLOATP 3) -(RPAQQ \LITATOM 4) -(RPAQQ \LISTP 5) -(RPAQQ \ARRAYP 6) -(RPAQQ \STRINGP 7) -(RPAQQ \STACKP 8) -(RPAQQ \CHARACTERP 9) -(RPAQQ \VMEMPAGEP 10) -(RPAQQ \STREAM 11) -(RPAQQ \TT.TYPEMASK 2047) -(RPAQQ \TT.NOREF 32768) -(RPAQQ \TT.SYMBOLP 16384) -(RPAQQ \TT.FIXP 8192) -(RPAQQ \TT.NUMBERP 4096) -(RPAQQ \TT.ATOM 2048) -(RPAQQ \PMblockSize 32) -(RPAQQ \STATSsize 8) -(RPAQQ \NumPMTpages 8) -(RPAQQ \EmptyPMTEntry 65535) -(RPAQQ \FirstVmemBlock 2) -(RPAQQ \MAXVMPAGE 131069) -(RPAQQ \MAXVMSEGMENT 255) -(RPAQQ \IFPValidKey 5603) -(RPAQQ \FirstMDSPage 32766) -(RPAQQ \MaxMDSPage 524285) -(RPAQQ \DefaultSecondMDSPage 65532) -(RPAQQ \MDSIncrement 512) -(RPAQQ \PagesPerMDSUnit 2) -(RPAQQ \FirstArraySegment 46) -(RPAQQ \FirstArrayPage 11776) -(RPAQQ \DefaultSecondArrayPage 32768) -(RPAQQ \StackMask 57344) -(RPAQQ \FxtnBlock 49152) -(RPAQQ \GuardBlock 57344) -(RPAQQ \BFBlock 32768) -(RPAQQ \FreeStackBlock 40960) -(RPAQQ \NotStackBlock 0) -(RPAQQ \MinExtraStackWords 32) +(RPAQQ \\SMALLP 1) +(RPAQQ \\FIXP 2) +(RPAQQ \\FLOATP 3) +(RPAQQ \\LITATOM 4) +(RPAQQ \\LISTP 5) +(RPAQQ \\ARRAYP 6) +(RPAQQ \\STRINGP 7) +(RPAQQ \\STACKP 8) +(RPAQQ \\CHARACTERP 9) +(RPAQQ \\VMEMPAGEP 10) +(RPAQQ \\STREAM 11) +(RPAQQ \\TT.TYPEMASK 2047) +(RPAQQ \\TT.NOREF 32768) +(RPAQQ \\TT.SYMBOLP 16384) +(RPAQQ \\TT.FIXP 8192) +(RPAQQ \\TT.NUMBERP 4096) +(RPAQQ \\TT.ATOM 2048) +(RPAQQ |\\PMblockSize| 32) +(RPAQQ |\\STATSsize| 8) +(RPAQQ |\\NumPMTpages| 8) +(RPAQQ |\\EmptyPMTEntry| 65535) +(RPAQQ |\\FirstVmemBlock| 2) +(RPAQQ \\MAXVMPAGE 131069) +(RPAQQ \\MAXVMSEGMENT 255) +(RPAQQ |\\IFPValidKey| 5603) +(RPAQQ |\\FirstMDSPage| 32766) +(RPAQQ |\\MaxMDSPage| 524285) +(RPAQQ |\\DefaultSecondMDSPage| 65532) +(RPAQQ |\\MDSIncrement| 512) +(RPAQQ |\\PagesPerMDSUnit| 2) +(RPAQQ |\\FirstArraySegment| 46) +(RPAQQ |\\FirstArrayPage| 11776) +(RPAQQ |\\DefaultSecondArrayPage| 32768) +(RPAQQ |\\StackMask| 57344) +(RPAQQ |\\FxtnBlock| 49152) +(RPAQQ |\\GuardBlock| 57344) +(RPAQQ |\\BFBlock| 32768) +(RPAQQ |\\FreeStackBlock| 40960) +(RPAQQ |\\NotStackBlock| 0) +(RPAQQ |\\MinExtraStackWords| 32) (RPAQQ ERASECHARCODE 0) -(RPAQQ \HT1CNT 1024) -(RPAQQ \HTSTKBIT 512) -(RPAQQ \HTCNTMASK 64512) -(RPAQQ \HTMAINSIZE 65536) -(RPAQQ \HTCOLLSIZE 1048576) -(RPAQQ \HTENDFREE 1) -(RPAQQ \HTFREEPTR 0) -(RPAQQ \AtomHI 0) -(RPAQQ \CHARHI 7) -(RPAQQ \AtomHTpages 256) -(RPAQQ \LastAtomPage 255) -(RPAQQ \MaxAtomFrLst 65535) -(RPAQQ \SmallPosHi 14) -(RPAQQ \SmallNegHi 15) -(RPAQQ \NumSmallPages 512) -(RPAQQ \PNAME.HI 8) -(RPAQQ \ATOM.HI 44) -(RPAQQ \DEF.HI 10) -(RPAQQ \VAL.HI 12) -(RPAQQ \PLIST.HI 2) -(RPAQQ \NumPageMapPages 256) -(RPAQQ \MDSTTsize 1024) -(RPAQQ \UFNTableSize 2) -(RPAQQ \DTDSize 18) -(RPAQQ \EndTypeNumber 2047) -(RPAQQ \NumLPTPages 16) -(RPAQQ \GuardStackAddr 61440) -(RPAQQ \LastStackAddr 65534) -(RPAQQ \STACKHI 1) -(RPAQQ \HTMAINnpages 256) -(RPAQQ \D1BCPLspace 0) -(RPAQQ \D0BCPLspace 0) -(RPAQQ \CurrentFXP 0) -(RPAQQ \ResetFXP 1) -(RPAQQ \SubovFXP 2) -(RPAQQ \KbdFXP 3) -(RPAQQ \HardReturnFXP 4) -(RPAQQ \GCFXP 5) -(RPAQQ \FAULTFXP 6) -(RPAQQ \MiscFXP 14) -(RPAQQ \TeleRaidFXP 24) +(RPAQQ \\HT1CNT 1024) +(RPAQQ \\HTSTKBIT 512) +(RPAQQ \\HTCNTMASK 64512) +(RPAQQ \\HTMAINSIZE 65536) +(RPAQQ \\HTCOLLSIZE 1048576) +(RPAQQ \\HTENDFREE 1) +(RPAQQ \\HTFREEPTR 0) +(RPAQQ |\\AtomHI| 0) +(RPAQQ \\CHARHI 7) +(RPAQQ |\\AtomHTpages| 256) +(RPAQQ |\\LastAtomPage| 255) +(RPAQQ |\\MaxAtomFrLst| 65535) +(RPAQQ |\\SmallPosHi| 14) +(RPAQQ |\\SmallNegHi| 15) +(RPAQQ |\\NumSmallPages| 512) +(RPAQQ \\PNAME.HI 8) +(RPAQQ \\ATOM.HI 44) +(RPAQQ \\DEF.HI 10) +(RPAQQ \\VAL.HI 12) +(RPAQQ \\PLIST.HI 2) +(RPAQQ |\\NumPageMapPages| 256) +(RPAQQ |\\MDSTTsize| 1024) +(RPAQQ |\\UFNTableSize| 2) +(RPAQQ |\\DTDSize| 18) +(RPAQQ |\\EndTypeNumber| 2047) +(RPAQQ |\\NumLPTPages| 16) +(RPAQQ |\\GuardStackAddr| 61440) +(RPAQQ |\\LastStackAddr| 65534) +(RPAQQ \\STACKHI 1) +(RPAQQ |\\HTMAINnpages| 256) +(RPAQQ |\\D1BCPLspace| 0) +(RPAQQ |\\D0BCPLspace| 0) +(RPAQQ |\\CurrentFXP| 0) +(RPAQQ |\\ResetFXP| 1) +(RPAQQ |\\SubovFXP| 2) +(RPAQQ |\\KbdFXP| 3) +(RPAQQ |\\HardReturnFXP| 4) +(RPAQQ \\GCFXP 5) +(RPAQQ \\FAULTFXP 6) +(RPAQQ |\\MiscFXP| 14) +(RPAQQ |\\TeleRaidFXP| 24) (RPAQQ DCB.EM 272) (RPAQQ DISPINTERRUPT.EM 273) (RPAQQ CURSORBITMAP.EM 281) @@ -341,232 +350,239 @@ DLCURSORY WORD NIL T) (DLCURSORBITMAP 16 WORD NIL T))) (RPAQQ CURSORY.EM 279) (RPAQQ MOUSEX.EM 276) (RPAQQ MOUSEY.EM 277) -(RPAQQ \LispKeyMask 8192) -(RPAQQ \BcplKeyMask 4352) -(RPAQQ \MAIKO 3) -(RPAQQ \DOLPHIN 4) -(RPAQQ \DORADO 5) -(RPAQQ \DANDELION 6) -(RPAQQ \DAYBREAK 8) -(RPAQQ \VP.DISPLAY 4608) -(RPAQQ \NP.DISPLAY 202) -(RPAQQ \NP.WIDEDOVEDISPLAY 243) -(RPAQQ \WIDEDOVEDISPLAYWIDTH 1152) -(RPAQQ \RP.AFTERDISPLAY 206) -(RPAQQ \RP.AFTERDOVEDISPLAY 243) -(RPAQQ \RP.DISPLAY 0) -(RPAQQ \RP.TEMPDISPLAY 2561) -(RPAQQ \RP.MISCLOCKED 2804) -(RPAQQ \RP.STACK 768) -(RPAQQ \VP.STACK 256) -(RPAQQ \RP.MAP 256) -(RPAQQ \NP.MAP 256) -(RPAQQ \RP.IOPAGE 512) -(RPAQQ \RP.DOVEIOCBPAGE 543) -(RPAQQ \RP.DOVEIORGN 544) -(RPAQQ \VP.DOVEIORGN 64) -(RPAQQ \DOVEIORGNSIZE 64) -(RPAQQ \VP.IOPAGE 255) -(RPAQQ \VP.IFPAGE 5120) -(RPAQQ \VP.FPTOVP 512) -(RPAQQ \NP.FPTOVP 4096) -(RPAQQ \RP.FPTOVP 1024) -(RPAQQ \RP.STARTBUFFERS 640) -(RPAQQ \VP.TYPETABLE 6144) -(RPAQQ \NP.TYPETABLE 1024) -(RPAQQ \RP.TYPETABLE 5120) -(RPAQQ \VP.GCTABLE 5632) -(RPAQQ \NP.GCTABLE 256) -(RPAQQ \RP.GCTABLE 6144) -(RPAQQ \VP.GCOVERFLOW 5888) -(RPAQQ \NP.GCOVERFLOW 1) -(RPAQQ \RP.GCOVERFLOW 6400) -(RPAQQ \FP.IFPAGE 2) -(RPAQQ \VP.IOCBS 1) -(RPAQQ \VP.PRIMARYMAP 5122) -(RPAQQ \VP.SECONDARYMAP 1280) -(RPAQQ \VP.LPT 5232) -(RPAQQ \VP.INITSCRATCH 8) -(RPAQQ \VP.RPT 128) -(RPAQQ \VP.BUFFERS 218) -(RPAQQ \DL.PROCESSORBUSY 32768) -(RPAQQ \DL.SETTOD 32769) -(RPAQQ \DL.READTOD 32770) -(RPAQQ \DL.READPID 32771) -(RPAQQ \DL.BOOTBUTTON 32772) -(CONSTANTS (CDRCODING 1) (\SMALLP 1) (\FIXP 2) (\FLOATP 3) (\LITATOM 4) (\LISTP 5) (\ARRAYP 6) ( -\STRINGP 7) (\STACKP 8) (\CHARACTERP 9) (\VMEMPAGEP 10) (\STREAM 11) (\TT.TYPEMASK 2047) (\TT.NOREF -32768) (\TT.SYMBOLP 16384) (\TT.FIXP 8192) (\TT.NUMBERP 4096) (\TT.ATOM 2048) (\PMblockSize 32) ( -\STATSsize 8) (\NumPMTpages 8) (\EmptyPMTEntry 65535) (\FirstVmemBlock 2) (\MAXVMPAGE 131069) ( -\MAXVMSEGMENT 255) (\IFPValidKey 5603) (\FirstMDSPage 32766) (\MaxMDSPage 524285) ( -\DefaultSecondMDSPage 65532) (\MDSIncrement 512) (\PagesPerMDSUnit 2) (\FirstArraySegment 46) ( -\FirstArrayPage 11776) (\DefaultSecondArrayPage 32768) (\StackMask 57344) (\FxtnBlock 49152) ( -\GuardBlock 57344) (\BFBlock 32768) (\FreeStackBlock 40960) (\NotStackBlock 0) (\MinExtraStackWords 32 -) (ERASECHARCODE 0) (\HT1CNT 1024) (\HTSTKBIT 512) (\HTCNTMASK 64512) (\HTMAINSIZE 65536) (\HTCOLLSIZE - 1048576) (\HTENDFREE 1) (\HTFREEPTR 0) (\AtomHI 0) (\CHARHI 7) (\AtomHTpages 256) (\LastAtomPage 255) - (\MaxAtomFrLst 65535) (\SmallPosHi 14) (\SmallNegHi 15) (\NumSmallPages 512) (\PNAME.HI 8) (\ATOM.HI -44) (\DEF.HI 10) (\VAL.HI 12) (\PLIST.HI 2) (\NumPageMapPages 256) (\MDSTTsize 1024) (\UFNTableSize 2) - (\DTDSize 18) (\EndTypeNumber 2047) (\NumLPTPages 16) (\GuardStackAddr 61440) (\LastStackAddr 65534) -(\STACKHI 1) (\HTMAINnpages 256) (\D1BCPLspace 0) (\D0BCPLspace 0) (\CurrentFXP 0) (\ResetFXP 1) ( -\SubovFXP 2) (\KbdFXP 3) (\HardReturnFXP 4) (\GCFXP 5) (\FAULTFXP 6) (\MiscFXP 14) (\TeleRaidFXP 24) ( -DCB.EM 272) (DISPINTERRUPT.EM 273) (CURSORBITMAP.EM 281) (KBDAD0.EM 65052) (KBDAD1.EM 65053) ( -KBDAD2.EM 65054) (KBDAD3.EM 65055) (UTILIN.EM 65048) (CURSORX.EM 278) (CURSORY.EM 279) (MOUSEX.EM 276) - (MOUSEY.EM 277) (\LispKeyMask 8192) (\BcplKeyMask 4352) (\MAIKO 3) (\DOLPHIN 4) (\DORADO 5) ( -\DANDELION 6) (\DAYBREAK 8) (\VP.DISPLAY 4608) (\NP.DISPLAY 202) (\NP.WIDEDOVEDISPLAY 243) ( -\WIDEDOVEDISPLAYWIDTH 1152) (\RP.AFTERDISPLAY 206) (\RP.AFTERDOVEDISPLAY 243) (\RP.DISPLAY 0) ( -\RP.TEMPDISPLAY 2561) (\RP.MISCLOCKED 2804) (\RP.STACK 768) (\VP.STACK 256) (\RP.MAP 256) (\NP.MAP 256 -) (\RP.IOPAGE 512) (\RP.DOVEIOCBPAGE 543) (\RP.DOVEIORGN 544) (\VP.DOVEIORGN 64) (\DOVEIORGNSIZE 64) ( -\VP.IOPAGE 255) (\VP.IFPAGE 5120) (\VP.FPTOVP 512) (\NP.FPTOVP 4096) (\RP.FPTOVP 1024) ( -\RP.STARTBUFFERS 640) (\VP.TYPETABLE 6144) (\NP.TYPETABLE 1024) (\RP.TYPETABLE 5120) (\VP.GCTABLE 5632 -) (\NP.GCTABLE 256) (\RP.GCTABLE 6144) (\VP.GCOVERFLOW 5888) (\NP.GCOVERFLOW 1) (\RP.GCOVERFLOW 6400) -(\FP.IFPAGE 2) (\VP.IOCBS 1) (\VP.PRIMARYMAP 5122) (\VP.SECONDARYMAP 1280) (\VP.LPT 5232) ( -\VP.INITSCRATCH 8) (\VP.RPT 128) (\VP.BUFFERS 218) (\DL.PROCESSORBUSY 32768) (\DL.SETTOD 32769) ( -\DL.READTOD 32770) (\DL.READPID 32771) (\DL.BOOTBUTTON 32772)) -(RPAQQ \MPERRORS ((\MP.OBSOLETEVMEM 1) (\MP.INVALIDVMEM 2 "Vmem inconsistent at startup") ( -\MP.IOCBPAGE 3 "No place for IOCB page at startup") (\MP.MOB 4 "Map out of bounds") (\MP.INVALIDADDR 5 -) (\MP.INVALIDVP 6) (\MP.CHAIN.UNAVAIL 7 "Unavailable page on real page table chain") (\MP.SELECTLOOP -8 "Loop in \SELECTREALPAGE") (\MP.NEWPAGE 9 "Attempt to allocate already existing page") ( -\MP.NEWMAPPAGE 10 "\DONEWPAGE failed to allocate new map page") (\MP.BADLOCKED 11 -"Locked page occupies a file page needed to lock another") (\MP.CLOCK0 12 -"Arg to CLOCK0 not an integer box") (\MP.RESIDENT 13 "Fault on resident page") (\MP.STACKFAULT 14 -"Fault on stack") (\MP.VMEMTOOLONG 16 "Attempt to extend Vmem File beyond fixed limit (8mb)") ( -\MP.WRITING.LOCKED.PAGE 17 "Writing a locked page with UPDATEKEY = T") (\MP.UNINTERRUPTABLE 18 -"Error in uninterruptable system code") (\MP.STACKFULL 19) (\MP.MDSFULL 20) (\MP.UNKNOWN.UFN 21) ( -\MP.ATOMSFULL 22) (\MP.PNAMESFULL 23) (\MP.USECOUNTOVERFLOW 24) (\MP.MDSFULLWARNING 25) ( -\MP.BADMDSFREELIST 26) (\MP.BADARRAYBLOCK 27) (\MP.BADDELETEBLOCK 28) (\MP.BADARRAYRECLAIM 29) ( -\MP.BIGREFCNTMISSING 30 "PTR refcnt previously overflowed, but not found in table.") ( -\MP.BIGREFCNTALREADYPRESENT 31 "PTR already in overflow table") (\MP.DELREF0 32) (\MP.PROCERROR 33) ( -\MP.PROCNOFRAME 34 "Failed to build frame for PROCESS use") (\MP.32MBINUSE 35) (\MP.TOPUNWOUND 36 -"Unexpected (RETTO T)") (\MP.STACKRELEASED 37) (\MP.FLUSHLOCKED 38) (\MP.MAPNOTLOCKED 39) ( -\MP.UNLOCKINGMAP 40) (\MP.SWAPDISKERROR 41 "Hard Disk Error in swapper") (\MP.BADRUNTABLE 42 +(RPAQQ |\\LispKeyMask| 8192) +(RPAQQ |\\BcplKeyMask| 4352) +(RPAQQ \\MAIKO 3) +(RPAQQ \\DOLPHIN 4) +(RPAQQ \\DORADO 5) +(RPAQQ \\DANDELION 6) +(RPAQQ \\DAYBREAK 8) +(RPAQQ \\VP.DISPLAY 4608) +(RPAQQ \\NP.DISPLAY 202) +(RPAQQ \\NP.WIDEDOVEDISPLAY 243) +(RPAQQ \\WIDEDOVEDISPLAYWIDTH 1152) +(RPAQQ \\RP.AFTERDISPLAY 206) +(RPAQQ \\RP.AFTERDOVEDISPLAY 243) +(RPAQQ \\RP.DISPLAY 0) +(RPAQQ \\RP.TEMPDISPLAY 2561) +(RPAQQ \\RP.MISCLOCKED 2804) +(RPAQQ \\RP.STACK 768) +(RPAQQ \\VP.STACK 256) +(RPAQQ \\RP.MAP 256) +(RPAQQ \\NP.MAP 256) +(RPAQQ \\RP.IOPAGE 512) +(RPAQQ \\RP.DOVEIOCBPAGE 543) +(RPAQQ \\RP.DOVEIORGN 544) +(RPAQQ \\VP.DOVEIORGN 64) +(RPAQQ \\DOVEIORGNSIZE 64) +(RPAQQ \\VP.IOPAGE 255) +(RPAQQ \\VP.IFPAGE 5120) +(RPAQQ \\VP.FPTOVP 512) +(RPAQQ \\NP.FPTOVP 4096) +(RPAQQ \\RP.FPTOVP 1024) +(RPAQQ \\RP.STARTBUFFERS 640) +(RPAQQ \\VP.TYPETABLE 6144) +(RPAQQ \\NP.TYPETABLE 1024) +(RPAQQ \\RP.TYPETABLE 5120) +(RPAQQ \\VP.GCTABLE 5632) +(RPAQQ \\NP.GCTABLE 256) +(RPAQQ \\RP.GCTABLE 6144) +(RPAQQ \\VP.GCOVERFLOW 5888) +(RPAQQ \\NP.GCOVERFLOW 1) +(RPAQQ \\RP.GCOVERFLOW 6400) +(RPAQQ \\FP.IFPAGE 2) +(RPAQQ \\VP.IOCBS 1) +(RPAQQ \\VP.PRIMARYMAP 5122) +(RPAQQ \\VP.SECONDARYMAP 1280) +(RPAQQ \\VP.LPT 5232) +(RPAQQ \\VP.INITSCRATCH 8) +(RPAQQ \\VP.RPT 128) +(RPAQQ \\VP.BUFFERS 218) +(RPAQQ \\DL.PROCESSORBUSY 32768) +(RPAQQ \\DL.SETTOD 32769) +(RPAQQ \\DL.READTOD 32770) +(RPAQQ \\DL.READPID 32771) +(RPAQQ \\DL.BOOTBUTTON 32772) +(CONSTANTS (CDRCODING 1) (\\SMALLP 1) (\\FIXP 2) (\\FLOATP 3) (\\LITATOM 4) (\\LISTP 5) (\\ARRAYP 6) ( +\\STRINGP 7) (\\STACKP 8) (\\CHARACTERP 9) (\\VMEMPAGEP 10) (\\STREAM 11) (\\TT.TYPEMASK 2047) ( +\\TT.NOREF 32768) (\\TT.SYMBOLP 16384) (\\TT.FIXP 8192) (\\TT.NUMBERP 4096) (\\TT.ATOM 2048) ( +|\\PMblockSize| 32) (|\\STATSsize| 8) (|\\NumPMTpages| 8) (|\\EmptyPMTEntry| 65535) ( +|\\FirstVmemBlock| 2) (\\MAXVMPAGE 131069) (\\MAXVMSEGMENT 255) (|\\IFPValidKey| 5603) ( +|\\FirstMDSPage| 32766) (|\\MaxMDSPage| 524285) (|\\DefaultSecondMDSPage| 65532) (|\\MDSIncrement| 512 +) (|\\PagesPerMDSUnit| 2) (|\\FirstArraySegment| 46) (|\\FirstArrayPage| 11776) ( +|\\DefaultSecondArrayPage| 32768) (|\\StackMask| 57344) (|\\FxtnBlock| 49152) (|\\GuardBlock| 57344) ( +|\\BFBlock| 32768) (|\\FreeStackBlock| 40960) (|\\NotStackBlock| 0) (|\\MinExtraStackWords| 32) ( +ERASECHARCODE 0) (\\HT1CNT 1024) (\\HTSTKBIT 512) (\\HTCNTMASK 64512) (\\HTMAINSIZE 65536) ( +\\HTCOLLSIZE 1048576) (\\HTENDFREE 1) (\\HTFREEPTR 0) (|\\AtomHI| 0) (\\CHARHI 7) (|\\AtomHTpages| 256 +) (|\\LastAtomPage| 255) (|\\MaxAtomFrLst| 65535) (|\\SmallPosHi| 14) (|\\SmallNegHi| 15) ( +|\\NumSmallPages| 512) (\\PNAME.HI 8) (\\ATOM.HI 44) (\\DEF.HI 10) (\\VAL.HI 12) (\\PLIST.HI 2) ( +|\\NumPageMapPages| 256) (|\\MDSTTsize| 1024) (|\\UFNTableSize| 2) (|\\DTDSize| 18) (|\\EndTypeNumber| + 2047) (|\\NumLPTPages| 16) (|\\GuardStackAddr| 61440) (|\\LastStackAddr| 65534) (\\STACKHI 1) ( +|\\HTMAINnpages| 256) (|\\D1BCPLspace| 0) (|\\D0BCPLspace| 0) (|\\CurrentFXP| 0) (|\\ResetFXP| 1) ( +|\\SubovFXP| 2) (|\\KbdFXP| 3) (|\\HardReturnFXP| 4) (\\GCFXP 5) (\\FAULTFXP 6) (|\\MiscFXP| 14) ( +|\\TeleRaidFXP| 24) (DCB.EM 272) (DISPINTERRUPT.EM 273) (CURSORBITMAP.EM 281) (KBDAD0.EM 65052) ( +KBDAD1.EM 65053) (KBDAD2.EM 65054) (KBDAD3.EM 65055) (UTILIN.EM 65048) (CURSORX.EM 278) (CURSORY.EM +279) (MOUSEX.EM 276) (MOUSEY.EM 277) (|\\LispKeyMask| 8192) (|\\BcplKeyMask| 4352) (\\MAIKO 3) ( +\\DOLPHIN 4) (\\DORADO 5) (\\DANDELION 6) (\\DAYBREAK 8) (\\VP.DISPLAY 4608) (\\NP.DISPLAY 202) ( +\\NP.WIDEDOVEDISPLAY 243) (\\WIDEDOVEDISPLAYWIDTH 1152) (\\RP.AFTERDISPLAY 206) (\\RP.AFTERDOVEDISPLAY + 243) (\\RP.DISPLAY 0) (\\RP.TEMPDISPLAY 2561) (\\RP.MISCLOCKED 2804) (\\RP.STACK 768) (\\VP.STACK 256 +) (\\RP.MAP 256) (\\NP.MAP 256) (\\RP.IOPAGE 512) (\\RP.DOVEIOCBPAGE 543) (\\RP.DOVEIORGN 544) ( +\\VP.DOVEIORGN 64) (\\DOVEIORGNSIZE 64) (\\VP.IOPAGE 255) (\\VP.IFPAGE 5120) (\\VP.FPTOVP 512) ( +\\NP.FPTOVP 4096) (\\RP.FPTOVP 1024) (\\RP.STARTBUFFERS 640) (\\VP.TYPETABLE 6144) (\\NP.TYPETABLE +1024) (\\RP.TYPETABLE 5120) (\\VP.GCTABLE 5632) (\\NP.GCTABLE 256) (\\RP.GCTABLE 6144) ( +\\VP.GCOVERFLOW 5888) (\\NP.GCOVERFLOW 1) (\\RP.GCOVERFLOW 6400) (\\FP.IFPAGE 2) (\\VP.IOCBS 1) ( +\\VP.PRIMARYMAP 5122) (\\VP.SECONDARYMAP 1280) (\\VP.LPT 5232) (\\VP.INITSCRATCH 8) (\\VP.RPT 128) ( +\\VP.BUFFERS 218) (\\DL.PROCESSORBUSY 32768) (\\DL.SETTOD 32769) (\\DL.READTOD 32770) (\\DL.READPID +32771) (\\DL.BOOTBUTTON 32772)) +(RPAQQ \\MPERRORS ((\\MP.OBSOLETEVMEM 1) (\\MP.INVALIDVMEM 2 "Vmem inconsistent at startup") ( +\\MP.IOCBPAGE 3 "No place for IOCB page at startup") (\\MP.MOB 4 "Map out of bounds") ( +\\MP.INVALIDADDR 5) (\\MP.INVALIDVP 6) (\\MP.CHAIN.UNAVAIL 7 +"Unavailable page on real page table chain") (\\MP.SELECTLOOP 8 "Loop in \\SELECTREALPAGE") ( +\\MP.NEWPAGE 9 "Attempt to allocate already existing page") (\\MP.NEWMAPPAGE 10 +"\\DONEWPAGE failed to allocate new map page") (\\MP.BADLOCKED 11 +"Locked page occupies a file page needed to lock another") (\\MP.CLOCK0 12 +"Arg to CLOCK0 not an integer box") (\\MP.RESIDENT 13 "Fault on resident page") (\\MP.STACKFAULT 14 +"Fault on stack") (\\MP.VMEMTOOLONG 16 "Attempt to extend Vmem File beyond fixed limit (8mb)") ( +\\MP.WRITING.LOCKED.PAGE 17 "Writing a locked page with UPDATEKEY = T") (\\MP.UNINTERRUPTABLE 18 +"Error in uninterruptable system code") (\\MP.STACKFULL 19) (\\MP.MDSFULL 20) (\\MP.UNKNOWN.UFN 21) ( +\\MP.ATOMSFULL 22) (\\MP.PNAMESFULL 23) (\\MP.USECOUNTOVERFLOW 24) (\\MP.MDSFULLWARNING 25) ( +\\MP.BADMDSFREELIST 26) (\\MP.BADARRAYBLOCK 27) (\\MP.BADDELETEBLOCK 28) (\\MP.BADARRAYRECLAIM 29) ( +\\MP.BIGREFCNTMISSING 30 "PTR refcnt previously overflowed, but not found in table.") ( +\\MP.BIGREFCNTALREADYPRESENT 31 "PTR already in overflow table") (\\MP.DELREF0 32) (\\MP.PROCERROR 33) + (\\MP.PROCNOFRAME 34 "Failed to build frame for PROCESS use") (\\MP.32MBINUSE 35) (\\MP.TOPUNWOUND 36 + "Unexpected (RETTO T)") (\\MP.STACKRELEASED 37) (\\MP.FLUSHLOCKED 38) (\\MP.MAPNOTLOCKED 39) ( +\\MP.UNLOCKINGMAP 40) (\\MP.SWAPDISKERROR 41 "Hard Disk Error in swapper") (\\MP.BADRUNTABLE 42 "Malformed run table for vmem file"))) -(RPAQQ \MP.OBSOLETEVMEM 1) -(RPAQ \MP.INVALIDVMEM 2 "Vmem inconsistent at startup") -(RPAQ \MP.IOCBPAGE 3 "No place for IOCB page at startup") -(RPAQ \MP.MOB 4 "Map out of bounds") -(RPAQQ \MP.INVALIDADDR 5) -(RPAQQ \MP.INVALIDVP 6) -(RPAQ \MP.CHAIN.UNAVAIL 7 "Unavailable page on real page table chain") -(RPAQ \MP.SELECTLOOP 8 "Loop in \SELECTREALPAGE") -(RPAQ \MP.NEWPAGE 9 "Attempt to allocate already existing page") -(RPAQ \MP.NEWMAPPAGE 10 "\DONEWPAGE failed to allocate new map page") -(RPAQ \MP.BADLOCKED 11 "Locked page occupies a file page needed to lock another") -(RPAQ \MP.CLOCK0 12 "Arg to CLOCK0 not an integer box") -(RPAQ \MP.RESIDENT 13 "Fault on resident page") -(RPAQ \MP.STACKFAULT 14 "Fault on stack") -(RPAQ \MP.VMEMTOOLONG 16 "Attempt to extend Vmem File beyond fixed limit (8mb)") -(RPAQ \MP.WRITING.LOCKED.PAGE 17 "Writing a locked page with UPDATEKEY = T") -(RPAQ \MP.UNINTERRUPTABLE 18 "Error in uninterruptable system code") -(RPAQQ \MP.STACKFULL 19) -(RPAQQ \MP.MDSFULL 20) -(RPAQQ \MP.UNKNOWN.UFN 21) -(RPAQQ \MP.ATOMSFULL 22) -(RPAQQ \MP.PNAMESFULL 23) -(RPAQQ \MP.USECOUNTOVERFLOW 24) -(RPAQQ \MP.MDSFULLWARNING 25) -(RPAQQ \MP.BADMDSFREELIST 26) -(RPAQQ \MP.BADARRAYBLOCK 27) -(RPAQQ \MP.BADDELETEBLOCK 28) -(RPAQQ \MP.BADARRAYRECLAIM 29) -(RPAQ \MP.BIGREFCNTMISSING 30 "PTR refcnt previously overflowed, but not found in table.") -(RPAQ \MP.BIGREFCNTALREADYPRESENT 31 "PTR already in overflow table") -(RPAQQ \MP.DELREF0 32) -(RPAQQ \MP.PROCERROR 33) -(RPAQ \MP.PROCNOFRAME 34 "Failed to build frame for PROCESS use") -(RPAQQ \MP.32MBINUSE 35) -(RPAQ \MP.TOPUNWOUND 36 "Unexpected (RETTO T)") -(RPAQQ \MP.STACKRELEASED 37) -(RPAQQ \MP.FLUSHLOCKED 38) -(RPAQQ \MP.MAPNOTLOCKED 39) -(RPAQQ \MP.UNLOCKINGMAP 40) -(RPAQ \MP.SWAPDISKERROR 41 "Hard Disk Error in swapper") -(RPAQ \MP.BADRUNTABLE 42 "Malformed run table for vmem file") -(CONSTANTS (\MP.OBSOLETEVMEM 1) (\MP.INVALIDVMEM 2 "Vmem inconsistent at startup") (\MP.IOCBPAGE 3 -"No place for IOCB page at startup") (\MP.MOB 4 "Map out of bounds") (\MP.INVALIDADDR 5) ( -\MP.INVALIDVP 6) (\MP.CHAIN.UNAVAIL 7 "Unavailable page on real page table chain") (\MP.SELECTLOOP 8 -"Loop in \SELECTREALPAGE") (\MP.NEWPAGE 9 "Attempt to allocate already existing page") (\MP.NEWMAPPAGE - 10 "\DONEWPAGE failed to allocate new map page") (\MP.BADLOCKED 11 -"Locked page occupies a file page needed to lock another") (\MP.CLOCK0 12 -"Arg to CLOCK0 not an integer box") (\MP.RESIDENT 13 "Fault on resident page") (\MP.STACKFAULT 14 -"Fault on stack") (\MP.VMEMTOOLONG 16 "Attempt to extend Vmem File beyond fixed limit (8mb)") ( -\MP.WRITING.LOCKED.PAGE 17 "Writing a locked page with UPDATEKEY = T") (\MP.UNINTERRUPTABLE 18 -"Error in uninterruptable system code") (\MP.STACKFULL 19) (\MP.MDSFULL 20) (\MP.UNKNOWN.UFN 21) ( -\MP.ATOMSFULL 22) (\MP.PNAMESFULL 23) (\MP.USECOUNTOVERFLOW 24) (\MP.MDSFULLWARNING 25) ( -\MP.BADMDSFREELIST 26) (\MP.BADARRAYBLOCK 27) (\MP.BADDELETEBLOCK 28) (\MP.BADARRAYRECLAIM 29) ( -\MP.BIGREFCNTMISSING 30 "PTR refcnt previously overflowed, but not found in table.") ( -\MP.BIGREFCNTALREADYPRESENT 31 "PTR already in overflow table") (\MP.DELREF0 32) (\MP.PROCERROR 33) ( -\MP.PROCNOFRAME 34 "Failed to build frame for PROCESS use") (\MP.32MBINUSE 35) (\MP.TOPUNWOUND 36 -"Unexpected (RETTO T)") (\MP.STACKRELEASED 37) (\MP.FLUSHLOCKED 38) (\MP.MAPNOTLOCKED 39) ( -\MP.UNLOCKINGMAP 40) (\MP.SWAPDISKERROR 41 "Hard Disk Error in swapper") (\MP.BADRUNTABLE 42 +(RPAQQ \\MP.OBSOLETEVMEM 1) +(RPAQ \\MP.INVALIDVMEM 2 "Vmem inconsistent at startup") +(RPAQ \\MP.IOCBPAGE 3 "No place for IOCB page at startup") +(RPAQ \\MP.MOB 4 "Map out of bounds") +(RPAQQ \\MP.INVALIDADDR 5) +(RPAQQ \\MP.INVALIDVP 6) +(RPAQ \\MP.CHAIN.UNAVAIL 7 "Unavailable page on real page table chain") +(RPAQ \\MP.SELECTLOOP 8 "Loop in \\SELECTREALPAGE") +(RPAQ \\MP.NEWPAGE 9 "Attempt to allocate already existing page") +(RPAQ \\MP.NEWMAPPAGE 10 "\\DONEWPAGE failed to allocate new map page") +(RPAQ \\MP.BADLOCKED 11 "Locked page occupies a file page needed to lock another") +(RPAQ \\MP.CLOCK0 12 "Arg to CLOCK0 not an integer box") +(RPAQ \\MP.RESIDENT 13 "Fault on resident page") +(RPAQ \\MP.STACKFAULT 14 "Fault on stack") +(RPAQ \\MP.VMEMTOOLONG 16 "Attempt to extend Vmem File beyond fixed limit (8mb)") +(RPAQ \\MP.WRITING.LOCKED.PAGE 17 "Writing a locked page with UPDATEKEY = T") +(RPAQ \\MP.UNINTERRUPTABLE 18 "Error in uninterruptable system code") +(RPAQQ \\MP.STACKFULL 19) +(RPAQQ \\MP.MDSFULL 20) +(RPAQQ \\MP.UNKNOWN.UFN 21) +(RPAQQ \\MP.ATOMSFULL 22) +(RPAQQ \\MP.PNAMESFULL 23) +(RPAQQ \\MP.USECOUNTOVERFLOW 24) +(RPAQQ \\MP.MDSFULLWARNING 25) +(RPAQQ \\MP.BADMDSFREELIST 26) +(RPAQQ \\MP.BADARRAYBLOCK 27) +(RPAQQ \\MP.BADDELETEBLOCK 28) +(RPAQQ \\MP.BADARRAYRECLAIM 29) +(RPAQ \\MP.BIGREFCNTMISSING 30 "PTR refcnt previously overflowed, but not found in table.") +(RPAQ \\MP.BIGREFCNTALREADYPRESENT 31 "PTR already in overflow table") +(RPAQQ \\MP.DELREF0 32) +(RPAQQ \\MP.PROCERROR 33) +(RPAQ \\MP.PROCNOFRAME 34 "Failed to build frame for PROCESS use") +(RPAQQ \\MP.32MBINUSE 35) +(RPAQ \\MP.TOPUNWOUND 36 "Unexpected (RETTO T)") +(RPAQQ \\MP.STACKRELEASED 37) +(RPAQQ \\MP.FLUSHLOCKED 38) +(RPAQQ \\MP.MAPNOTLOCKED 39) +(RPAQQ \\MP.UNLOCKINGMAP 40) +(RPAQ \\MP.SWAPDISKERROR 41 "Hard Disk Error in swapper") +(RPAQ \\MP.BADRUNTABLE 42 "Malformed run table for vmem file") +(CONSTANTS (\\MP.OBSOLETEVMEM 1) (\\MP.INVALIDVMEM 2 "Vmem inconsistent at startup") (\\MP.IOCBPAGE 3 +"No place for IOCB page at startup") (\\MP.MOB 4 "Map out of bounds") (\\MP.INVALIDADDR 5) ( +\\MP.INVALIDVP 6) (\\MP.CHAIN.UNAVAIL 7 "Unavailable page on real page table chain") (\\MP.SELECTLOOP +8 "Loop in \\SELECTREALPAGE") (\\MP.NEWPAGE 9 "Attempt to allocate already existing page") ( +\\MP.NEWMAPPAGE 10 "\\DONEWPAGE failed to allocate new map page") (\\MP.BADLOCKED 11 +"Locked page occupies a file page needed to lock another") (\\MP.CLOCK0 12 +"Arg to CLOCK0 not an integer box") (\\MP.RESIDENT 13 "Fault on resident page") (\\MP.STACKFAULT 14 +"Fault on stack") (\\MP.VMEMTOOLONG 16 "Attempt to extend Vmem File beyond fixed limit (8mb)") ( +\\MP.WRITING.LOCKED.PAGE 17 "Writing a locked page with UPDATEKEY = T") (\\MP.UNINTERRUPTABLE 18 +"Error in uninterruptable system code") (\\MP.STACKFULL 19) (\\MP.MDSFULL 20) (\\MP.UNKNOWN.UFN 21) ( +\\MP.ATOMSFULL 22) (\\MP.PNAMESFULL 23) (\\MP.USECOUNTOVERFLOW 24) (\\MP.MDSFULLWARNING 25) ( +\\MP.BADMDSFREELIST 26) (\\MP.BADARRAYBLOCK 27) (\\MP.BADDELETEBLOCK 28) (\\MP.BADARRAYRECLAIM 29) ( +\\MP.BIGREFCNTMISSING 30 "PTR refcnt previously overflowed, but not found in table.") ( +\\MP.BIGREFCNTALREADYPRESENT 31 "PTR already in overflow table") (\\MP.DELREF0 32) (\\MP.PROCERROR 33) + (\\MP.PROCNOFRAME 34 "Failed to build frame for PROCESS use") (\\MP.32MBINUSE 35) (\\MP.TOPUNWOUND 36 + "Unexpected (RETTO T)") (\\MP.STACKRELEASED 37) (\\MP.FLUSHLOCKED 38) (\\MP.MAPNOTLOCKED 39) ( +\\MP.UNLOCKINGMAP 40) (\\MP.SWAPDISKERROR 41 "Hard Disk Error in swapper") (\\MP.BADRUNTABLE 42 "Malformed run table for vmem file")) -(GLOBALVARS \ARRAYSPACE \ARRAYSPACE2 \ATOMSPACE \AtomHashTable \SMALLPOSPSPACE \SMALLNEGSPACE -\PNPSPACE \OLDATOMSPACE \DEFSPACE \VALSPACE \PLISTSPACE \PAGEMAP \PageMapTBL \InterfacePage \IOPAGE -\DoveIORegion \IOCBPAGE \FPTOVP \MDSTypeTable \MISCSTATS \UFNTable \DTDSpaceBase \LISTPDTD -\LOCKEDPAGETABLE \STACKSPACE \HTMAIN \HTOVERFLOW \HTBIGCOUNT \HTCOLL \DISPLAYREGION) +(GLOBALVARS \\ARRAYSPACE \\ARRAYSPACE2 \\ATOMSPACE |\\AtomHashTable| \\SMALLPOSPSPACE \\SMALLNEGSPACE +\\PNPSPACE \\OLDATOMSPACE \\DEFSPACE \\VALSPACE \\PLISTSPACE \\PAGEMAP |\\PageMapTBL| +|\\InterfacePage| \\IOPAGE |\\DoveIORegion| \\IOCBPAGE \\FPTOVP |\\MDSTypeTable| \\MISCSTATS +|\\UFNTable| |\\DTDSpaceBase| \\LISTPDTD \\LOCKEDPAGETABLE \\STACKSPACE \\HTMAIN \\HTOVERFLOW +\\HTBIGCOUNT \\HTCOLL \\DISPLAYREGION) (BLOCKRECORD MISCSTATS ((STARTTIME FIXP) (TOTALTIME FIXP) (SWAPWAITTIME FIXP) (PAGEFAULTS FIXP) ( SWAPWRITES FIXP) (DISKIOTIME FIXP) (DISKOPS FIXP) (KEYBOARDWAITTIME FIXP) (GCTIME FIXP) (NETIOTIME FIXP) (NETIOOPS FIXP) (SWAPTEMP0 FIXP) (SWAPTEMP1 FIXP) (RCLKSECOND FIXP) (SECONDSCLOCK FIXP) ( MILLISECONDSCLOCK FIXP) (BASECLOCK FIXP) (RCLKTEMP0 FIXP) (SECONDSTMP FIXP) (MILLISECONDSTMP FIXP) ( BASETMP FIXP) (EXCESSTIMETMP FIXP) (CLOCKTEMP0 FIXP) (DISKTEMP0 FIXP) (DISKTEMP1 FIXP) (TELERAIDTEMP1 FIXP) (TELERAIDTEMP2 FIXP) (TELERAIDTEMP3 FIXP) (LASTUSERACTION FIXP) (DLMOUSETIMER FIXP) (DLMOUSETEMP - FIXP)) (CREATE (\ALLOCBLOCK 31))) -(BLOCKRECORD IFPAGE ((CurrentFXP WORD) (* ; -"First 7 items are FX values for user and 6 system contexts.") (ResetFXP WORD) (SubovFXP WORD) (KbdFXP - WORD) (HardReturnFXP WORD) (GCFXP WORD) (FAULTFXP WORD) (EndOfStack WORD) (* ; -"Stack high-water mark: address of guard block at current end of stack") (LVersion WORD) (* ; -"Lisp version, followed by min versions of microcode and Bcpl compatible with this Lisp") (MinRVersion - WORD) (MinBVersion WORD) (RVersion WORD) (* ; "Bcpl fills in the actual microcode, Bcpl versions.") ( -BVersion WORD) (MachineType WORD) (MiscFXP WORD) (* ; "FX for MISC context") (Key WORD) (* ; -"= IFPValidKey if vmem consistent.") (SerialNumber WORD) (* ; "Pup host number (Dorado/Dolphin)") ( -EmulatorSpace WORD) (* ; "Hiloc of bcpl space (always zero now)") (ScreenWidth WORD) (NxtPMAddr WORD) -(* ; "Next page to be allocated in secondary page map table") (NIL WORD) (* ; -"WAS NActivePages, Length of vmem in use") (NIL WORD) (* ; -"WAS NDirtyPages, not used, but maintained as = NActivePages") (filePnPMP0 WORD) (* ; -"Sysout page number of first page of secondary page map table (\PAGEMAP), which is where the secondary map pages themselves live" -) (filePnPMT0 WORD) (* ; "Sysout page number of first page of primary page map table") (TELERAIDFXP -WORD) (* ; "FX for TeleRaid server context") (NATIVE-START-MEM-PAGE WORD) (* ; -"Unix page where native code starts") (NATIVE-LENGTH-PAGE WORD) (* ; "Unix page length of native code" -) (NATIVE-PAGE-OFFSET WORD) (* ; "Lisp Disk Page offset of native code") (UserNameAddr WORD) (* ; -"Addresses in bcpl space (seg 0) of global user name and password") (UserPswdAddr WORD) (StackBase -WORD) (* ; "Stack address where user stack starts") (FAULTHI WORD) (* ; + FIXP)) (CREATE (\\ALLOCBLOCK 31))) +(BLOCKRECORD IFPAGE ((|CurrentFXP| WORD) (* \; +"First 7 items are FX values for user and 6 system contexts.") (|ResetFXP| WORD) (|SubovFXP| WORD) ( +|KbdFXP| WORD) (|HardReturnFXP| WORD) (GCFXP WORD) (FAULTFXP WORD) (|EndOfStack| WORD) (* \; +"Stack high-water mark: address of guard block at current end of stack") (|LVersion| WORD) (* \; +"Lisp version, followed by min versions of microcode and Bcpl compatible with this Lisp") ( +|MinRVersion| WORD) (|MinBVersion| WORD) (|RVersion| WORD) (* \; +"Bcpl fills in the actual microcode, Bcpl versions.") (|BVersion| WORD) (|MachineType| WORD) ( +|MiscFXP| WORD) (* \; "FX for MISC context") (|Key| WORD) (* \; "= IFPValidKey if vmem consistent.") ( +|SerialNumber| WORD) (* \; "Pup host number (Dorado/Dolphin)") (|EmulatorSpace| WORD) (* \; +"Hiloc of bcpl space (always zero now)") (|ScreenWidth| WORD) (|NxtPMAddr| WORD) (* \; +"Next page to be allocated in secondary page map table") (NIL WORD) (* \; +"WAS NActivePages, Length of vmem in use") (NIL WORD) (* \; +"WAS NDirtyPages, not used, but maintained as = NActivePages") (|filePnPMP0| WORD) (* \; +"Sysout page number of first page of secondary page map table (\\PAGEMAP), which is where the secondary map pages themselves live" +) (|filePnPMT0| WORD) (* \; "Sysout page number of first page of primary page map table") (TELERAIDFXP + WORD) (* \; "FX for TeleRaid server context") (NATIVE-START-MEM-PAGE WORD) (* \; +"Unix page where native code starts") (NATIVE-LENGTH-PAGE WORD) (* \; +"Unix page length of native code") (NATIVE-PAGE-OFFSET WORD) (* \; +"Lisp Disk Page offset of native code") (|UserNameAddr| WORD) (* \; +"Addresses in bcpl space (seg 0) of global user name and password") (|UserPswdAddr| WORD) (|StackBase| + WORD) (* \; "Stack address where user stack starts") (FAULTHI WORD) (* \; "Microcode for page fault stores fault address here, then does context switch to FAULTFXP") (FAULTLO -WORD) (DEVCONFIG WORD) (* ; "IT'S FOR KB,DISP TYPE") (* ; -"Formerly REALPAGETABLE, back when it was always in Bcpl space.") (RPTSIZE WORD) (* ; -"Number of entries in Real Page Table") (RPOFFSET WORD) (* ; "RP-RPOFFSET => index in table") ( -MAXETHERBYTES WORD) (* ; "Number of bytes available in a pbi, not counting encapsulation (Dorado)") ( -EMBUFVP WORD) (* ; "VP of a one-page emulator buffer") (NSHost0 WORD) (* ; +WORD) (DEVCONFIG WORD) (* \; "IT'S FOR KB,DISP TYPE") (* \; +"Formerly REALPAGETABLE, back when it was always in Bcpl space.") (RPTSIZE WORD) (* \; +"Number of entries in Real Page Table") (RPOFFSET WORD) (* \; "RP-RPOFFSET => index in table") ( +MAXETHERBYTES WORD) (* \; "Number of bytes available in a pbi, not counting encapsulation (Dorado)") ( +EMBUFVP WORD) (* \; "VP of a one-page emulator buffer") (|NSHost0| WORD) (* \; "Machine's 48-bit NS host number. Lisp manages to compute this on all machines except Dolphin, where Bcpl fills it in." -) (NSHost1 WORD) (NSHost2 WORD) (MDSZone WORD) (* ; -"Obsolete -- was used by Dolphin 10MB network code.") (MDSZoneLength WORD) (EMUBUFFERS WORD) (* ; -"Buffer space in segment 0 for swapping/disk activity") (EMUBUFLENGTH WORD) (* ; -"Number of words of said space") (* ;; -"The following 2 are available if NEW_STOARGE is specified in C") (ProcessSize WORD) (* ; -"Process size for which can be use as LISP space") (StorageFullState WORD) (* ; -"Save last storage state") (ISFMAP WORD) (* ;; -"The following 4 are for \MISCAPPLY* -- note that they are not ref counted, so don't pass the only pointer to something this way!" +) (|NSHost1| WORD) (|NSHost2| WORD) (|MDSZone| WORD) (* \; +"Obsolete -- was used by Dolphin 10MB network code.") (|MDSZoneLength| WORD) (EMUBUFFERS WORD) (* \; +"Buffer space in segment 0 for swapping/disk activity") (EMUBUFLENGTH WORD) (* \; +"Number of words of said space") (* |;;| +"The following 2 are available if NEW_STOARGE is specified in C") (|ProcessSize| WORD) (* \; +"Process size for which can be use as LISP space") (|StorageFullState| WORD) (* \; +"Save last storage state") (ISFMAP WORD) (* |;;| +"The following 4 are for \\MISCAPPLY* -- note that they are not ref counted, so don't pass the only pointer to something this way!" ) (MISCSTACKFN FULLXPOINTER) (MISCSTACKARG1 FULLXPOINTER) (MISCSTACKARG2 FULLXPOINTER) ( -MISCSTACKRESULT FULLXPOINTER) (NRealPages WORD) (* ; "Number pages of real memory") ( -LastLockedFilePage WORD) (* ; -"Last page of vmem that is locked--booting has to load at least that far.") (LastDominoFilePage WORD) -(* ; "Last sysout page reserved for Dandelion microcode") (FPTOVPStart WORD) (* ; -"Sysout page where FPTOVP starts") (FAKEMOUSEBITS WORD) (* ; -"Used to implement fake middle button on 2-button Dandelion.") (DL24BitAddressable WORD) (* ; -"non-zero if DLion capable of addressing 32MB virtual memory") (REALPAGETABLEPTR FULLXPOINTER) (* ; -"Address of real page table, set up by Bcpl (but not chained together)") (SYSDISK WORD) (* ; -"WAS DLLastVmemPage, DLion booting microcode puts length of vmem file here.") (FullSpaceUsed WORD) (* -; "Non-zero if vmem beyond initial 8MB has been allocated.") (FAKEKBDAD4 WORD) (FAKEKBDAD5 WORD) (* ;; - +MISCSTACKRESULT FULLXPOINTER) (|NRealPages| WORD) (* \; "Number pages of real memory") ( +|LastLockedFilePage| WORD) (* \; +"Last page of vmem that is locked--booting has to load at least that far.") (|LastDominoFilePage| WORD +) (* \; "Last sysout page reserved for Dandelion microcode") (|FPTOVPStart| WORD) (* \; +"Sysout page where FPTOVP starts") (FAKEMOUSEBITS WORD) (* \; +"Used to implement fake middle button on 2-button Dandelion.") (|DL24BitAddressable| WORD) (* \; +"non-zero if DLion capable of addressing 32MB virtual memory") (REALPAGETABLEPTR FULLXPOINTER) (* \; +"Address of real page table, set up by Bcpl (but not chained together)") (SYSDISK WORD) (* \; +"WAS DLLastVmemPage, DLion booting microcode puts length of vmem file here.") (|FullSpaceUsed| WORD) ( +* \; "Non-zero if vmem beyond initial 8MB has been allocated.") (FAKEKBDAD4 WORD) (FAKEKBDAD5 WORD) (* + |;;| "The following 9 items (6 words and 3 pointers) are 3 3-element vectors for the Dorado extended virtual memory code--indexed by 0,1,2 according to which of up to 3 virtual memory backing files you're working with." -) (XVmemFmapBase WORD) (* ; +) (|XVmemFmapBase| WORD) (* \; "Bcpl stores isf map pointer to each partition here. First is redundant with ISFMAP field above.") ( -NIL WORD) (NIL WORD) (XVmemFmapHighBase WORD) (* ; +NIL WORD) (NIL WORD) (|XVmemFmapHighBase| WORD) (* \; "Bcpl stores the highest vm page contained in this or earlier partition.") (NIL WORD) (NIL WORD) ( -XVmemDiskBase FULLXPOINTER) (* ; +|XVmemDiskBase| FULLXPOINTER) (* \; "Lisp stores disk objects here (just a convenient non-faulting contiguous block of storage).") (NIL -FULLXPOINTER) (NIL FULLXPOINTER) (DLLastVmemPage FIXP) (* ; -"DLion booting microcode puts length of vmem file here.") (NActivePages FIXP) (* ; -"Length of vmem in use") (NDirtyPages FIXP) (* ; "not used, but maintained as = NActivePages")) ( -CREATE (\ALLOCBLOCK 43))) +FULLXPOINTER) (NIL FULLXPOINTER) (|DLLastVmemPage| FIXP) (* \; +"DLion booting microcode puts length of vmem file here.") (|NActivePages| FIXP) (* \; +"Length of vmem in use") (|NDirtyPages| FIXP) (* \; "not used, but maintained as = NActivePages")) ( +CREATE (\\ALLOCBLOCK 43))) (BLOCKRECORD IOPAGE ((NIL 18 WORD) (DLMAINTPANEL WORD) (DLFLOPPYCMD WORD) (DLTTYPORTCMD WORD) ( DLPROCESSORCMD WORD) (NEWMOUSESTATE WORD) (DLBEEPCMD WORD) (DLRS232CMISCCOMMAND WORD) (DLRS232CPUTFLAG WORD) (DLRS232CGETFLAG WORD) (NIL 6 WORD) (DLFLOPPY WORD) (DLTTYOUT WORD) (NIL 1 WORD) (DLTTYIN WORD) @@ -580,145 +596,148 @@ DLLSEPIMAGECSB 32 WORD) (DLIOPHARDWARECONFIG WORD) (NIL 11 WORD) (DLRS232CPARAME DLRS232CPARAMETERCSBHI.11 WORD) (DLRS232CSETRS366STATUS.11 14 WORD) (NIL 60 WORD) (DLMAGTAPE 4 WORD) ( DLETHERNET 12 WORD) (NIL 31 WORD) (DLDISPINTERRUPT WORD) (DLDISPCONTROL WORD) (DLDISPBORDER WORD) ( DLCURSORX WORD) (DLCURSORY WORD) (DLCURSORBITMAP 16 WORD)) (ACCESSFNS IOPAGE ((DLCURSORBITMAPPTR ( -\ADDBASE DATUM 240)) (DLCURSORYPTR (\ADDBASE DATUM 239)) (DLCURSORXPTR (\ADDBASE DATUM 238)) ( -DLDISPINTERRUPTPTR (\ADDBASE DATUM 235)) (DLETHERNETPTR (\ADDBASE DATUM 192)) (DLKBDAD5PTR (\ADDBASE -DATUM 67)) (DLKBDAD4PTR (\ADDBASE DATUM 66)) (DLKBDAD3PTR (\ADDBASE DATUM 65)) (DLKBDAD2PTR (\ADDBASE -DATUM 64)) (DLKBDAD1PTR (\ADDBASE DATUM 63)) (DLKBDAD0PTR (\ADDBASE DATUM 62)) (DLUTILINPTR (\ADDBASE -DATUM 61)) (DLMOUSEYPTR (\ADDBASE DATUM 60)) (DLMOUSEXPTR (\ADDBASE DATUM 59)) (DLTODLOPTR (\ADDBASE -DATUM 56)) (DLMAINTPANELPTR (\ADDBASE DATUM 18)))) (CREATE (\ALLOCBLOCK 128))) -(PUTPROPS EMADDRESS MACRO (ARGS ((LAMBDA (ADDR) (COND ((EQ \D1BCPLspace \D0BCPLspace) (LIST (LIST ( -QUOTE OPCODES) (QUOTE GCONST) 0 0 (LRSH ADDR 8) (LOGAND ADDR 255)))) (T (BQUOTE (\VAG2 (fetch -EmulatorSpace of \InterfacePage) %, ADDR))))) (EVAL (CAR ARGS))))) -(PUTPROPS EMGETBASE MACRO ((OFFSET) (\GETBASE (EMADDRESS OFFSET) 0))) -(PUTPROPS EMPUTBASE MACRO ((OFFSET VAL) (\PUTBASE (EMADDRESS OFFSET) 0 VAL))) -(PUTPROPS EMULATORSEGMENT MACRO (NIL (fetch EmulatorSpace of \InterfacePage))) -(PUTPROPS EMPOINTER MACRO (X (COND ((NEQ \D1BCPLspace \D0BCPLspace) (LIST (QUOTE \VAG2) (QUOTE (fetch -(IFPAGE EmulatorSpace) of \InterfacePage)) (CAR X))) ((ZEROP (CAR X)) NIL) (T (LIST (QUOTE \VAG2) -\D0BCPLspace (CAR X)))))) -(PUTPROPS EMADDRESSP MACRO (X (LIST (QUOTE EQ) (LIST (QUOTE \HILOC) (CAR X)) (COND ((EQ \D1BCPLspace -\D0BCPLspace) \D0BCPLspace) (T (QUOTE (fetch (IFPAGE EmulatorSpace) of \InterfacePage))))))) -(PUTPROP (QUOTE LLPARAMS) (QUOTE IMPORTDATE) (IDATE "27-Apr-2021 20:06:09")) +\\ADDBASE DATUM 240)) (DLCURSORYPTR (\\ADDBASE DATUM 239)) (DLCURSORXPTR (\\ADDBASE DATUM 238)) ( +DLDISPINTERRUPTPTR (\\ADDBASE DATUM 235)) (DLETHERNETPTR (\\ADDBASE DATUM 192)) (DLKBDAD5PTR ( +\\ADDBASE DATUM 67)) (DLKBDAD4PTR (\\ADDBASE DATUM 66)) (DLKBDAD3PTR (\\ADDBASE DATUM 65)) ( +DLKBDAD2PTR (\\ADDBASE DATUM 64)) (DLKBDAD1PTR (\\ADDBASE DATUM 63)) (DLKBDAD0PTR (\\ADDBASE DATUM 62) +) (DLUTILINPTR (\\ADDBASE DATUM 61)) (DLMOUSEYPTR (\\ADDBASE DATUM 60)) (DLMOUSEXPTR (\\ADDBASE DATUM +59)) (DLTODLOPTR (\\ADDBASE DATUM 56)) (DLMAINTPANELPTR (\\ADDBASE DATUM 18)))) (CREATE (\\ALLOCBLOCK +128))) +(PUTPROPS EMADDRESS MACRO (ARGS ((LAMBDA (ADDR) (COND ((EQ |\\D1BCPLspace| |\\D0BCPLspace|) (LIST ( +LIST (QUOTE OPCODES) (QUOTE GCONST) 0 0 (LRSH ADDR 8) (LOGAND ADDR 255)))) (T (BQUOTE (\\VAG2 (|fetch| + |EmulatorSpace| |of| |\\InterfacePage|) \, ADDR))))) (EVAL (CAR ARGS))))) +(PUTPROPS EMGETBASE MACRO ((OFFSET) (\\GETBASE (EMADDRESS OFFSET) 0))) +(PUTPROPS EMPUTBASE MACRO ((OFFSET VAL) (\\PUTBASE (EMADDRESS OFFSET) 0 VAL))) +(PUTPROPS EMULATORSEGMENT MACRO (NIL (|fetch| |EmulatorSpace| |of| |\\InterfacePage|))) +(PUTPROPS EMPOINTER MACRO (X (COND ((NEQ |\\D1BCPLspace| |\\D0BCPLspace|) (LIST (QUOTE \\VAG2) (QUOTE +(|fetch| (IFPAGE |EmulatorSpace|) |of| |\\InterfacePage|)) (CAR X))) ((ZEROP (CAR X)) NIL) (T (LIST ( +QUOTE \\VAG2) |\\D0BCPLspace| (CAR X)))))) +(PUTPROPS EMADDRESSP MACRO (X (LIST (QUOTE EQ) (LIST (QUOTE \\HILOC) (CAR X)) (COND ((EQ +|\\D1BCPLspace| |\\D0BCPLspace|) |\\D0BCPLspace|) (T (QUOTE (|fetch| (IFPAGE |EmulatorSpace|) |of| +|\\InterfacePage|))))))) +(PUTPROP (QUOTE LLPARAMS) (QUOTE IMPORTDATE) (IDATE " 7-Feb-2021 11:52:02")) (DATATYPE COMPILED-CLOSURE (FNHEADER ENVIRONMENT)) -(RPAQQ \COMPILED-CLOSURE 13) -(CONSTANTS \COMPILED-CLOSURE) -(PUTPROPS \EXTENDED.EQP MACRO (OPENLAMBDA (X Y) (COND ((EQ (NTYPX X) (NTYPX Y)) (SELECTC (NTYPX X) ( -\STACKP (EQ (fetch (STACKP EDFXP) of X) (fetch (STACKP EDFXP) of Y))) (\COMPILED-CLOSURE (EQDEFP X Y)) - NIL))))) +(RPAQQ \\COMPILED-CLOSURE 13) +(CONSTANTS \\COMPILED-CLOSURE) +(PUTPROPS \\EXTENDED.EQP MACRO (OPENLAMBDA (X Y) (COND ((EQ (NTYPX X) (NTYPX Y)) (SELECTC (NTYPX X) ( +\\STACKP (EQ (|fetch| (STACKP EDFXP) |of| X) (|fetch| (STACKP EDFXP) |of| Y))) (\\COMPILED-CLOSURE ( +EQDEFP X Y)) NIL))))) (PUTPROPS DPUTCODE MACRO ((FN CA SIZE) (SELECTQ (SYSTEMTYPE) (D (DEFC FN CA)) (/PUTPROP FN (QUOTE DCODE) CA)))) (PUTPROPS MCODEP MACRO ((X) (OR (ARRAYP X) (AND (LITATOM X) (ARRAYP (SELECTQ (SYSTEMTYPE) (D (GETD X)) (GETPROP X (QUOTE DCODE)))))))) -(PUTPROPS CODELT MACRO ((CA N) (\BYTELT CA N))) +(PUTPROPS CODELT MACRO ((CA N) (\\BYTELT CA N))) (PUTPROPS CODELT2 MACRO (OPENLAMBDA (DEF LC) (LOGOR (LLSH (CODELT DEF LC) BITSPERBYTE) (CODELT DEF ( ADD1 LC))))) (PUTPROPS CODESETA2 MACRO (OPENLAMBDA (DEF LC VALUE) (CODESETA DEF LC (LRSH VALUE BITSPERBYTE)) ( CODESETA DEF (ADD1 LC) (IMOD VALUE (CONSTANT (LLSH 1 BITSPERBYTE)))))) -(PUTPROPS CODESETA MACRO ((CA N NV) (\BYTESETA CA N NV))) +(PUTPROPS CODESETA MACRO ((CA N NV) (\\BYTESETA CA N NV))) (PUTPROPS BYTESPERNAMEENTRY MACRO (NIL (UNFOLD (CONSTANT (WORDSPERNAMEENTRY)) BYTESPERWORD))) (PUTPROPS BYTESPERNTOFFSETENTRY MACRO (NIL (UNFOLD (WORDSPERNAMEENTRY) BYTESPERWORD))) -(PUTPROPS GETNAMEENTRY MACRO (OPENLAMBDA (DEF LC) (LET ((NUMBER 0)) (* ;; +(PUTPROPS GETNAMEENTRY MACRO (OPENLAMBDA (DEF LC) (LET ((NUMBER 0)) (* |;;| "Must ALWAYS be called with DEF really being either a FNHEADER or a nametable pseudo-fnheader. Never use addbase to offset from it. This is because CODEBASEELT checks the BYTESWAPPED flag in the fnheader...." ) (FOR I FROM 0 TO (CONSTANT (SUB1 (BYTESPERNAMEENTRY))) DO (SETQ NUMBER (LOGOR (LLSH NUMBER BITSPERBYTE) (CODEBASELT DEF (IPLUS LC I))))) NUMBER))) (PUTPROPS GETNTFLAGS MACRO (OPENLAMBDA (DEF LC) (CODEBASELT DEF LC))) (PUTPROPS GETNTOFFSET MACRO (OPENLAMBDA (DEF LC) (NTSLOT-OFFSET (GETNTOFFSETENTRY DEF LC)))) -(PUTPROPS GETNTOFFSETENTRY MACRO (OPENLAMBDA (DEF LC) (LET ((NUMBER 0)) (for I from 0 to (CONSTANT ( -SUB1 (BYTESPERNTOFFSETENTRY))) do (SETQ NUMBER (LOGOR (LLSH NUMBER BITSPERBYTE) (CODEBASELT DEF (IPLUS - LC I))))) NUMBER))) +(PUTPROPS GETNTOFFSETENTRY MACRO (OPENLAMBDA (DEF LC) (LET ((NUMBER 0)) (|for| I |from| 0 |to| ( +CONSTANT (SUB1 (BYTESPERNTOFFSETENTRY))) |do| (SETQ NUMBER (LOGOR (LLSH NUMBER BITSPERBYTE) ( +CODEBASELT DEF (IPLUS LC I))))) NUMBER))) (PUTPROPS GETNTTAG MACRO (OPENLAMBDA (DEF LC) (CODEBASELT DEF (ADD1 LC)))) (PUTPROPS SETNAMEENTRY MACRO (OPENLAMBDA (DEF LC VALUE) (FOR I FROM (CONSTANT (SUB1 (BYTESPERNAMEENTRY ))) TO 0 BY -1 DO (CODEBASESETA DEF (IPLUS LC I) (LOGAND VALUE (CONSTANT (SUB1 (LLSH 1 BITSPERBYTE)))) ) (SETQ VALUE (LRSH VALUE BITSPERBYTE))))) (PUTPROPS WORDSPERNTOFFSETENTRY MACRO (NIL (WORDSPERNAMEENTRY))) (PUTPROPS NTSLOT-OFFSET MACRO ((X) (LOGAND 255 X))) -(DEFMACRO NEW-SYMBOL-CODE (NEW-SYMBOL-FORM OLD-SYMBOL-FORM) (* ;; +(DEFMACRO NEW-SYMBOL-CODE (NEW-SYMBOL-FORM OLD-SYMBOL-FORM) (* |;;| "Use one form or another, depending on whether we're compiling for new 3-byte atoms or old 2-byte atom numbers." -) (COND ((FMEMB :3-BYTE COMPILER::*TARGET-ARCHITECTURE*) (* ; "NEW ATOMS") (BQUOTE (\, NEW-SYMBOL-FORM -))) (T (BQUOTE (\, OLD-SYMBOL-FORM))))) -(DEFOPTIMIZER BIG-VMEM-CODE (NEW-SYMBOL-FORM OLD-SYMBOL-FORM &ENVIRONMENT ENV) (* ;; +) (COND ((FMEMB :3-BYTE COMPILER::*TARGET-ARCHITECTURE*) (* \; "NEW ATOMS") (BQUOTE (\\\, +NEW-SYMBOL-FORM))) (T (BQUOTE (\\\, OLD-SYMBOL-FORM))))) +(DEFOPTIMIZER BIG-VMEM-CODE (NEW-SYMBOL-FORM OLD-SYMBOL-FORM &ENVIRONMENT ENV) (* |;;| "Allow for differences between 4-byte pointers and 3-byte pointers..") (COND ((FMEMB :4-BYTE ( -COMPILER::ENV-TARGET-ARCHITECTURE ENV)) (BQUOTE (\, NEW-SYMBOL-FORM))) (T (BQUOTE (\, OLD-SYMBOL-FORM) -)))) -(DEFOPTIMIZER SETSTKNAMEENTRY (CODEARRAY OFFSET VAL &ENVIRONMENT ENV) (* ;; +COMPILER::ENV-TARGET-ARCHITECTURE ENV)) (BQUOTE (\\\, NEW-SYMBOL-FORM))) (T (BQUOTE (\\\, +OLD-SYMBOL-FORM))))) +(DEFOPTIMIZER SETSTKNAMEENTRY (CODEARRAY OFFSET VAL &ENVIRONMENT ENV) (* |;;| "Set the name entry for a name-table entry.") (COND ((FMEMB :3-BYTE (COMPILER::ENV-TARGET-ARCHITECTURE - ENV)) (BQUOTE (LET ((BASE (fetch (ARRAYP BASE) of (\, CODEARRAY))) (VALUE (\, VAL))) (COND ((FIXP -VALUE) (* ; "A 20-byte atom #. Make it an atom.") (\PUTBASEPTR BASE (\, OFFSET) (\VAG2 \AtomHI VALUE) -)) (T (* ; "A 3-byte atom. Just use it.") (\PUTBASEPTR BASE (\, OFFSET) VALUE)))))) (T (BQUOTE (LET ( -(BASE (fetch (ARRAYP BASE) of (\, CODEARRAY)))) (\PUTBASE BASE (\, OFFSET) (\, VAL))))))) -(DEFOPTIMIZER SETSTKNTOFFSETENTRY (BASE OFFSET VAL &ENVIRONMENT ENV) (* ;; + ENV)) (BQUOTE (LET ((BASE (|fetch| (ARRAYP BASE) |of| (\\\, CODEARRAY))) (VALUE (\\\, VAL))) (COND (( +FIXP VALUE) (* \; "A 20-byte atom #. Make it an atom.") (\\PUTBASEPTR BASE (\\\, OFFSET) (\\VAG2 +|\\AtomHI| VALUE))) (T (* \; "A 3-byte atom. Just use it.") (\\PUTBASEPTR BASE (\\\, OFFSET) VALUE))) +))) (T (BQUOTE (LET ((BASE (|fetch| (ARRAYP BASE) |of| (\\\, CODEARRAY)))) (\\PUTBASE BASE (\\\, +OFFSET) (\\\, VAL))))))) +(DEFOPTIMIZER SETSTKNTOFFSETENTRY (BASE OFFSET VAL &ENVIRONMENT ENV) (* |;;| "Set the offset entry for a name-table entry.") (COND ((FMEMB :3-BYTE (COMPILER::ENV-TARGET-ARCHITECTURE - ENV)) (BQUOTE (\PUTBASEFIXP (\, BASE) (\, OFFSET) (\, VAL)))) (T (BQUOTE (\PUTBASE (\, BASE) (\, -OFFSET) (\, VAL)))))) -(DEFOPTIMIZER GETSTKNAMEENTRY (BASE OFFSET &ENVIRONMENT ENV) (* ;; + ENV)) (BQUOTE (\\PUTBASEFIXP (\\\, BASE) (\\\, OFFSET) (\\\, VAL)))) (T (BQUOTE (\\PUTBASE (\\\, BASE +) (\\\, OFFSET) (\\\, VAL)))))) +(DEFOPTIMIZER GETSTKNAMEENTRY (BASE OFFSET &ENVIRONMENT ENV) (* |;;| "Get a name entry out of a name table. BASE is the start of the name table; OFFSET is in words, not bytes or name entries." -) (COND ((FMEMB :3-BYTE (COMPILER::ENV-TARGET-ARCHITECTURE ENV)) (BQUOTE (\GETBASEPTR (\, BASE) (\, -OFFSET)))) (T (BQUOTE (\GETBASE (\, BASE) (\, OFFSET)))))) +) (COND ((FMEMB :3-BYTE (COMPILER::ENV-TARGET-ARCHITECTURE ENV)) (BQUOTE (\\GETBASEPTR (\\\, BASE) ( +\\\, OFFSET)))) (T (BQUOTE (\\GETBASE (\\\, BASE) (\\\, OFFSET)))))) (DEFOPTIMIZER GETSTKNTOFFSETENTRY (BASE OFFSET &ENVIRONMENT ENV) (COND ((FMEMB :3-BYTE ( -COMPILER::ENV-TARGET-ARCHITECTURE ENV)) (BQUOTE (\GETBASEFIXP (\, BASE) (\, OFFSET)))) (T (BQUOTE ( -\GETBASE (\, BASE) (\, OFFSET)))))) -(DEFOPTIMIZER WORDSPERNAMEENTRY (&ENVIRONMENT ENV) (* ;; -"Number of words in a name-table %"Name%" entry--the space for the symbol. 1 for old symbol systems, 2 for 3-byte-atom systesm." +COMPILER::ENV-TARGET-ARCHITECTURE ENV)) (BQUOTE (\\GETBASEFIXP (\\\, BASE) (\\\, OFFSET)))) (T (BQUOTE + (\\GETBASE (\\\, BASE) (\\\, OFFSET)))))) +(DEFOPTIMIZER WORDSPERNAMEENTRY (&ENVIRONMENT ENV) (* |;;| +"Number of words in a name-table \"Name\" entry--the space for the symbol. 1 for old symbol systems, 2 for 3-byte-atom systesm." ) (COND ((FMEMB :3-BYTE (COMPILER::ENV-TARGET-ARCHITECTURE ENV)) (BQUOTE (PROGN 2))) ((AND CROSSCOMPILING (FMEMB :3-BYTE-INIT (COMPILER::ENV-TARGET-ARCHITECTURE ENV))) (BQUOTE (PROGN 2))) (T ( BQUOTE (PROGN 1))))) -(DEFOPTIMIZER SETSTKNTOFFSET (BASE OFFSET TYPE VAL &ENVIRONMENT ENV) (* ;; +(DEFOPTIMIZER SETSTKNTOFFSET (BASE OFFSET TYPE VAL &ENVIRONMENT ENV) (* |;;| "Set the offset entry for a name-table entry, from the symbol to fill in plus the variable-type marker value SHIFTED LEFT 14 BITS ALREADY." -) (COND ((FMEMB :3-BYTE (COMPILER::ENV-TARGET-ARCHITECTURE ENV)) (BQUOTE (PROGN (\FIXCODENUM (\, BASE) - (IDIFFERENCE (\, OFFSET) BYTESPERWORD) (\, TYPE)) (\FIXCODENUM (\, BASE) (\, OFFSET) (\, VAL))))) (T -(BQUOTE (\FIXCODENUM (\, BASE) (\, OFFSET) (IPLUS (\, TYPE) (\, VAL))))))) -(DEFOPTIMIZER SETSTKNAME-RAW (BASE OFFSET VAL &ENVIRONMENT ENV) (* ;; +) (COND ((FMEMB :3-BYTE (COMPILER::ENV-TARGET-ARCHITECTURE ENV)) (BQUOTE (PROGN (\\FIXCODENUM (\\\, +BASE) (IDIFFERENCE (\\\, OFFSET) BYTESPERWORD) (\\\, TYPE)) (\\FIXCODENUM (\\\, BASE) (\\\, OFFSET) ( +\\\, VAL))))) (T (BQUOTE (\\FIXCODENUM (\\\, BASE) (\\\, OFFSET) (IPLUS (\\\, TYPE) (\\\, VAL))))))) +(DEFOPTIMIZER SETSTKNAME-RAW (BASE OFFSET VAL &ENVIRONMENT ENV) (* |;;| "Set the name entry for a name-table entry. This version works with raw storage, as opposed to SETSTKNAMEENTRY, which works on an ARRAYP." -) (* ;; "If this optimizer changes, change SETSTKNAMEENTRY as well.") (COND ((FMEMB :3-BYTE ( -COMPILER::ENV-TARGET-ARCHITECTURE ENV)) (BQUOTE (LET ((VALUE (\, VAL))) (COND ((FIXP VALUE) (* ; -"A 20-byte atom #. Make it an atom.") (\PUTBASEPTR (\, BASE) (\, OFFSET) (\VAG2 \AtomHI VALUE))) (T ( -* ; "A 3-byte atom. Just use it.") (\PUTBASEPTR (\, BASE) (\, OFFSET) VALUE)))))) (T (BQUOTE ( -\PUTBASE (\, BASE) (\, OFFSET) (\, VAL)))))) -(DEFOPTIMIZER SETSTKNTOFFSET-RAW (BASE OFFSET TYPE VAL &ENVIRONMENT ENV) (* ;; +) (* |;;| "If this optimizer changes, change SETSTKNAMEENTRY as well.") (COND ((FMEMB :3-BYTE ( +COMPILER::ENV-TARGET-ARCHITECTURE ENV)) (BQUOTE (LET ((VALUE (\\\, VAL))) (COND ((FIXP VALUE) (* \; +"A 20-byte atom #. Make it an atom.") (\\PUTBASEPTR (\\\, BASE) (\\\, OFFSET) (\\VAG2 |\\AtomHI| +VALUE))) (T (* \; "A 3-byte atom. Just use it.") (\\PUTBASEPTR (\\\, BASE) (\\\, OFFSET) VALUE)))))) +(T (BQUOTE (\\PUTBASE (\\\, BASE) (\\\, OFFSET) (\\\, VAL)))))) +(DEFOPTIMIZER SETSTKNTOFFSET-RAW (BASE OFFSET TYPE VAL &ENVIRONMENT ENV) (* |;;| "Set the offset entry for a name-table entry. This version works on raw storage, vs SETSTKNAMEOFFSETENTRY, which is supposed to work on codearrays. Any changes here should be made there, as well. TYPE must already be shifted left by 14 bits." -) (COND ((FMEMB :3-BYTE (COMPILER::ENV-TARGET-ARCHITECTURE ENV)) (BQUOTE (PROGN (\PUTBASE (\, BASE) ( -\, OFFSET) (\, TYPE)) (\PUTBASE (\, BASE) (IPLUS (\, OFFSET) 1) (\, VAL))))) (T (BQUOTE (\PUTBASE (\, -BASE) (\, OFFSET) (IPLUS (\, TYPE) (\, VAL))))))) -(DEFOPTIMIZER NEW-SYMBOL-CODE (NEW-SYMBOL-FORM OLD-SYMBOL-FORM &ENVIRONMENT ENV) (* ;; +) (COND ((FMEMB :3-BYTE (COMPILER::ENV-TARGET-ARCHITECTURE ENV)) (BQUOTE (PROGN (\\PUTBASE (\\\, BASE) + (\\\, OFFSET) (\\\, TYPE)) (\\PUTBASE (\\\, BASE) (IPLUS (\\\, OFFSET) 1) (\\\, VAL))))) (T (BQUOTE ( +\\PUTBASE (\\\, BASE) (\\\, OFFSET) (IPLUS (\\\, TYPE) (\\\, VAL))))))) +(DEFOPTIMIZER NEW-SYMBOL-CODE (NEW-SYMBOL-FORM OLD-SYMBOL-FORM &ENVIRONMENT ENV) (* |;;| "Allow for differences between 3-byte atoms and 2-byte atoms.") (COND ((FMEMB :3-BYTE ( -COMPILER::ENV-TARGET-ARCHITECTURE ENV)) (BQUOTE (\, NEW-SYMBOL-FORM))) (T (BQUOTE (\, OLD-SYMBOL-FORM) -)))) +COMPILER::ENV-TARGET-ARCHITECTURE ENV)) (BQUOTE (\\\, NEW-SYMBOL-FORM))) (T (BQUOTE (\\\, +OLD-SYMBOL-FORM))))) (DEFOPTIMIZER MAKE-NTENTRY (TYPE OFFSET &ENVIRONMENT ENV) (COND ((FMEMB :3-BYTE ( -COMPILER::ENV-TARGET-ARCHITECTURE ENV)) (BQUOTE (IPLUS (CONSTANT (LLSH (\, TYPE) 16)) (\, OFFSET)))) ( -T (BQUOTE (IPLUS (CONSTANT (\, TYPE)) (\, OFFSET)))))) -(DEFOPTIMIZER NULL-NTENTRY (VALUE &ENVIRONMENT ENV) (* ;; +COMPILER::ENV-TARGET-ARCHITECTURE ENV)) (BQUOTE (IPLUS (CONSTANT (LLSH (\\\, TYPE) 16)) (\\\, OFFSET)) +)) (T (BQUOTE (IPLUS (CONSTANT (\\\, TYPE)) (\\\, OFFSET)))))) +(DEFOPTIMIZER NULL-NTENTRY (VALUE &ENVIRONMENT ENV) (* |;;| "Predicate: Is VALUE a null entry in a name table? I.e., does it result from fetching the entry at the end that`s all zeros? For 2-byte atoms, that's the same as being zero. For 3-byte atoms, it's the same as being NIL." -) (COND ((FMEMB :3-BYTE (COMPILER::ENV-TARGET-ARCHITECTURE ENV)) (BQUOTE (NULL (\, VALUE)))) (T ( -BQUOTE (EQ (\, VALUE) 0))))) -(DEFOPTIMIZER NTSLOT-VARTYPE (X &ENVIRONMENT ENV) (* ;; +) (COND ((FMEMB :3-BYTE (COMPILER::ENV-TARGET-ARCHITECTURE ENV)) (BQUOTE (NULL (\\\, VALUE)))) (T ( +BQUOTE (EQ (\\\, VALUE) 0))))) +(DEFOPTIMIZER NTSLOT-VARTYPE (X &ENVIRONMENT ENV) (* |;;| "Given the contents of a name-table Offset entry, return the variable-type bits at the top of the entry. THE RESULT IS RETURNED SHEFTED LEFT 14 BITS, THE USUAL REPRESENTATION." -) (COND ((FMEMB :3-BYTE (COMPILER::ENV-TARGET-ARCHITECTURE ENV)) (BQUOTE (LOGAND 49153 (LRSH (\, X) 16 -)))) (T (BQUOTE (LOGAND (\, X) 49152))))) +) (COND ((FMEMB :3-BYTE (COMPILER::ENV-TARGET-ARCHITECTURE ENV)) (BQUOTE (LOGAND 49153 (LRSH (\\\, X) +16)))) (T (BQUOTE (LOGAND (\\\, X) 49152))))) (ACCESSFNS CODEARRAY ((STKMIN (CODELT2 DATUM 0) (CODESETA2 DATUM 0 NEWVALUE)) (NA (SIGNED (CODELT2 DATUM 2) BITSPERWORD) (CODESETA2 DATUM 2 (UNSIGNED NEWVALUE BITSPERWORD))) (PV (SIGNED (CODELT2 DATUM 4) BITSPERWORD) (CODESETA2 DATUM 4 (UNSIGNED NEWVALUE BITSPERWORD))) (STARTPC (CODELT2 DATUM 6) ( CODESETA2 DATUM 6 NEWVALUE)) (ARGTYPE (LOGAND (LRSH (CODELT DATUM 8) 4) 3) (CODESETA DATUM 8 (LOGOR ( -LOGAND (CODELT DATUM 8) 207) (LLSH (LOGAND NEWVALUE 3) 4)))) (FRAMENAME (\VAG2 (LOGAND (CODELT2 DATUM -8) 4095) (CODELT2 DATUM 10)) (\FIXCODEPTR DATUM 11 (EVQ NEWVALUE))) (NTSIZE (CODELT2 DATUM 12) ( +LOGAND (CODELT DATUM 8) 207) (LLSH (LOGAND NEWVALUE 3) 4)))) (FRAMENAME (\\VAG2 (LOGAND (CODELT2 DATUM + 8) 4095) (CODELT2 DATUM 10)) (\\FIXCODEPTR DATUM 11 (EVQ NEWVALUE))) (NTSIZE (CODELT2 DATUM 12) ( CODESETA2 DATUM 12 NEWVALUE)) (NLOCALS (CODELT DATUM 14) (CODESETA DATUM 14 NEWVALUE)) (FVAROFFSET ( -CODELT DATUM 15) (CODESETA DATUM 15 NEWVALUE))) (ACCESSFNS CODEARRAY ((LSTARP (ILESSP (fetch ( -CODEARRAY NA) of DATUM) 0)) (OVERHEADWORDS (PROGN 8)) (ALIGNED (IPLUS (fetch (CODEARRAY NTSIZE) of -DATUM) (fetch (CODEARRAY OVERHEADWORDS) of T))) (FIXED NIL (replace (CODEARRAY STKMIN) of DATUM with ( -\STKMIN DATUM))) (FRAMENAME# (PROGN 8))))) +CODELT DATUM 15) (CODESETA DATUM 15 NEWVALUE))) (ACCESSFNS CODEARRAY ((LSTARP (ILESSP (|fetch| ( +CODEARRAY NA) |of| DATUM) 0)) (OVERHEADWORDS (PROGN 8)) (ALIGNED (IPLUS (|fetch| (CODEARRAY NTSIZE) +|of| DATUM) (|fetch| (CODEARRAY OVERHEADWORDS) |of| T))) (FIXED NIL (|replace| (CODEARRAY STKMIN) |of| + DATUM |with| (\\STKMIN DATUM))) (FRAMENAME# (PROGN 8))))) (RECORD OPCODE (OP# OPCODENAME OPNARGS OPPRINT LEVADJ UFNFN UNIMPL)) -(GLOBALVARS \OPCODES) +(GLOBALVARS \\OPCODES) (RPAQQ PVARCODE 32768) (RPAQQ FVARCODE 49152) (RPAQQ IVARCODE 0) (RPAQQ VARCODEMASK 49152) (CONSTANTS PVARCODE FVARCODE IVARCODE VARCODEMASK) -(RPAQQ \NT.IVARCODE 0) -(RPAQQ \NT.PVARCODE 2) -(RPAQQ \NT.FVARCODE 3) -(CONSTANTS \NT.IVARCODE \NT.PVARCODE \NT.FVARCODE) -(PUTPROP (QUOTE LLCODE) (QUOTE IMPORTDATE) (IDATE "27-Apr-2021 20:06:09")) +(RPAQQ \\NT.IVARCODE 0) +(RPAQQ \\NT.PVARCODE 2) +(RPAQQ \\NT.FVARCODE 3) +(CONSTANTS \\NT.IVARCODE \\NT.PVARCODE \\NT.FVARCODE) +(PUTPROP (QUOTE LLCODE) (QUOTE IMPORTDATE) (IDATE "19-Jan-1993 10:45:33")) -(RPAQQ \ERRORMESSAGELIST ("SYSTEM ERROR" " " "STACK OVERFLOW" "ILLEGAL RETURN" "ARG NOT LIST" +(RPAQQ \\ERRORMESSAGELIST ("SYSTEM ERROR" " " "STACK OVERFLOW" "ILLEGAL RETURN" "ARG NOT LIST" "HARD DISK ERROR" "ATTEMPT TO SET NIL OR T" "ATTEMPT TO RPLAC NIL" "UNDEFINED OR ILLEGAL GO" "FILE WON'T OPEN" "NON-NUMERIC ARG" "ATOM TOO LONG" "ATOM HASH TABLE FULL" "FILE NOT OPEN" "ARG NOT LITATOM" "! too many files open" "END OF FILE" "ERROR" "BREAK" "ILLEGAL STACK ARG" @@ -730,632 +749,640 @@ DATUM) (fetch (CODEARRAY OVERHEADWORDS) of T))) (FIXED NIL (replace (CODEARRAY S "ILLEGAL TERMINAL TABLE" "! swapblock too big for buffer" "PROTECTION VIOLATION" "BAD FILE NAME" "USER BREAK" "UNBOUND ATOM" "UNDEFINED CAR OF FORM" "UNDEFINED FUNCTION" "CONTROL-E" "FLOATING UNDERFLOW" "FLOATING OVERFLOW" "OVERFLOW" "ARG NOT HARRAY" "TOO MANY ARGUMENTS")) -(DEFOPTIMIZER LISPERROR (MESSAGE ARG) (BQUOTE (\LISPERROR (\, ARG) (\, (CL:IF (CL:STRINGP MESSAGE) ( -FOR X IN \ERRORMESSAGELIST AS I FROM 0 WHEN (CL:EQUAL X MESSAGE) DO (RETURN I) FINALLY (RETURN (HELP -"Unknown error message" (LIST MESSAGE ARG)))) MESSAGE))))) -(PUTPROP (QUOTE AERROR) (QUOTE IMPORTDATE) (IDATE "27-Apr-2021 20:06:09")) +(DEFOPTIMIZER LISPERROR (MESSAGE ARG) (BQUOTE (\\LISPERROR (\\\, ARG) (\\\, (CL:IF (CL:STRINGP MESSAGE +) (FOR X IN \\ERRORMESSAGELIST AS I FROM 0 WHEN (CL:EQUAL X MESSAGE) DO (RETURN I) FINALLY (RETURN ( +HELP "Unknown error message" (LIST MESSAGE ARG)))) MESSAGE))))) +(PUTPROP (QUOTE AERROR) (QUOTE IMPORTDATE) (IDATE "16-May-1990 11:58:35")) -(RECORD BASEBYTESTREAM STREAM (SUBRECORD STREAM) (ACCESSFNS ((BIASOFFST (fetch (STREAM FW6) of DATUM) -(replace (STREAM FW6) of DATUM with NEWVALUE)) (BBSNCHARS (fetch (STREAM FW7) of DATUM) (replace ( -STREAM FW7) of DATUM with NEWVALUE)) (WRITEXTENSIONFN (fetch (STREAM F1) of DATUM) (replace (STREAM F1 -) of DATUM with NEWVALUE))))) -(PUTPROPS \INSTREAMARG MACRO ((STRM NOERRORFLG) (\GETSTREAM STRM (QUOTE INPUT) NOERRORFLG))) -(PUTPROPS \OUTSTREAMARG MACRO ((STRM NOERRORFLG) (\GETSTREAM STRM (QUOTE OUTPUT) NOERRORFLG))) -(PUTPROPS \STREAMARG MACRO (OPENLAMBDA (STRM NOERRORFLG) (COND (NOERRORFLG (\GETSTREAM STRM NIL T)) (T - (\DTEST STRM (QUOTE STREAM)))))) -(PUTPROP (QUOTE AOFD) (QUOTE IMPORTDATE) (IDATE "27-Apr-2021 20:06:09")) +(RECORD BASEBYTESTREAM STREAM (SUBRECORD STREAM) (ACCESSFNS ((BIASOFFST (|fetch| (STREAM FW6) |of| +DATUM) (|replace| (STREAM FW6) |of| DATUM |with| NEWVALUE)) (BBSNCHARS (|fetch| (STREAM FW7) |of| +DATUM) (|replace| (STREAM FW7) |of| DATUM |with| NEWVALUE)) (WRITEXTENSIONFN (|fetch| (STREAM F1) |of| + DATUM) (|replace| (STREAM F1) |of| DATUM |with| NEWVALUE))))) +(PUTPROPS \\INSTREAMARG MACRO ((STRM NOERRORFLG) (\\GETSTREAM STRM (QUOTE INPUT) NOERRORFLG))) +(PUTPROPS \\OUTSTREAMARG MACRO ((STRM NOERRORFLG) (\\GETSTREAM STRM (QUOTE OUTPUT) NOERRORFLG))) +(PUTPROPS \\STREAMARG MACRO (OPENLAMBDA (STRM NOERRORFLG) (COND (NOERRORFLG (\\GETSTREAM STRM NIL T)) +(T (\\DTEST STRM (QUOTE STREAM)))))) +(PUTPROP (QUOTE AOFD) (QUOTE IMPORTDATE) (IDATE "13-Jun-2021 11:35:32")) -(PUTPROPS .SPACECHECK. MACRO ((STRM N) (AND \THISFILELINELENGTH (IGREATERP (IPLUS N (fetch -CHARPOSITION of STRM)) \THISFILELINELENGTH) (FRESHLINE STRM)))) -(PUTPROPS \CHECKRADIX MACRO (LAMBDA (R) (COND ((OR (NOT (SMALLP R)) (ILESSP R 1) (IGREATERP R 36)) ( -\INVALID.RADIX R)) (T R)))) -(PUTPROPS \XCCSFILEOUTCHARFN MACRO ((OUTSTREAM CHARCODE) (* ;;; -"Encoder for XCCS format. Default decoder.") (COND ((EQ CHARCODE (CHARCODE EOL)) (COND ((NOT ( -\RUNCODED OUTSTREAM)) (* ; "Charset is a constant 0") (\BOUT OUTSTREAM (\CHARSET (CHARCODE EOL)))) (( -EQ (\CHARSET (CHARCODE EOL)) (ffetch (STREAM CHARSET) of OUTSTREAM))) (T (\BOUT OUTSTREAM -NSCHARSETSHIFT) (\BOUT OUTSTREAM (freplace (STREAM CHARSET) of OUTSTREAM with (\CHARSET (CHARCODE EOL) -))))) (\BOUT OUTSTREAM (SELECTC (ffetch EOLCONVENTION of OUTSTREAM) (CR.EOLC (CHARCODE CR)) (LF.EOLC ( -CHARCODE LF)) (CRLF.EOLC (\BOUT OUTSTREAM (CHARCODE CR)) (* ;; -"Don't put out high-order byte preceding LF. The CRLF is EOL only if the bytes are immediately adjacent in the stream, with no additional encoding bytes" -) (CHARCODE LF)) (SHOULDNT))) (freplace CHARPOSITION of OUTSTREAM with 0)) (T (COND ((NOT (\RUNCODED -OUTSTREAM)) (\BOUT OUTSTREAM (\CHARSET CHARCODE)) (\BOUT OUTSTREAM (\CHAR8CODE CHARCODE))) ((EQ ( -\CHARSET CHARCODE) (ffetch (STREAM CHARSET) of OUTSTREAM)) (\BOUT OUTSTREAM (\CHAR8CODE CHARCODE))) (T - (\BOUT OUTSTREAM NSCHARSETSHIFT) (\BOUT OUTSTREAM (freplace (STREAM CHARSET) of OUTSTREAM with ( -\CHARSET CHARCODE))) (\BOUT OUTSTREAM (\CHAR8CODE CHARCODE)))) (freplace CHARPOSITION of OUTSTREAM -with (PROGN (* ; "Ugh. Don't overflow") (IPLUS16 (ffetch CHARPOSITION of OUTSTREAM) 1))))))) -(PUTPROP (QUOTE APRINT) (QUOTE IMPORTDATE) (IDATE "27-Apr-2021 20:06:09")) +(PUTPROPS .SPACECHECK. MACRO ((STRM N) (AND \\THISFILELINELENGTH (IGREATERP (IPLUS N (|fetch| +CHARPOSITION |of| STRM)) \\THISFILELINELENGTH) (FRESHLINE STRM)))) +(PUTPROPS \\CHECKRADIX MACRO (LAMBDA (R) (COND ((OR (NOT (SMALLP R)) (ILESSP R 1) (IGREATERP R 36)) ( +\\INVALID.RADIX R)) (T R)))) +(PUTPROP (QUOTE APRINT) (QUOTE IMPORTDATE) (IDATE " 9-Jun-2021 22:50:15")) -(GLOBALVARS \BCPLDISPLAY) -(ACCESSFNS LINEBUFFER ((LPARCOUNT (fetch FW6 of DATUM) (replace FW6 of DATUM with NEWVALUE)) ( -LBRKCOUNT (fetch FW7 of DATUM) (replace FW7 of DATUM with NEWVALUE)) (LINEBUFSTATE (fetch F5 of DATUM) - (replace F5 of DATUM with NEWVALUE)) (* ; "F4 is free. EJS, 7/8/85") (KEYBOARDSTREAM (fetch F2 of -DATUM) (replace F2 of DATUM with NEWVALUE)) (PEEKEDCHAR (fetch F3 of DATUM) (replace F3 of DATUM with -NEWVALUE)) (* ; "Character read by PEEKC") (LBFLAGS (fetch FW9 of DATUM) (replace FW9 of DATUM with -NEWVALUE)) (* ;; +(GLOBALVARS \\BCPLDISPLAY) +(ACCESSFNS LINEBUFFER ((LPARCOUNT (|fetch| FW6 |of| DATUM) (|replace| FW6 |of| DATUM |with| NEWVALUE)) + (LBRKCOUNT (|fetch| FW7 |of| DATUM) (|replace| FW7 |of| DATUM |with| NEWVALUE)) (LINEBUFSTATE ( +|fetch| F5 |of| DATUM) (|replace| F5 |of| DATUM |with| NEWVALUE)) (* \; "F4 is free. EJS, 7/8/85") ( +KEYBOARDSTREAM (|fetch| F2 |of| DATUM) (|replace| F2 |of| DATUM |with| NEWVALUE)) (PEEKEDCHAR (|fetch| + F3 |of| DATUM) (|replace| F3 |of| DATUM |with| NEWVALUE)) (* \; "Character read by PEEKC") (LBFLAGS ( +|fetch| FW9 |of| DATUM) (|replace| FW9 |of| DATUM |with| NEWVALUE)) (* |;;| "True if peeked char was echoed when peeked. Could use this to determine whether to echo later or not, but that would be incompatible with Interlisp-10, so this field not used" -)) (ACCESSFNS LINEBUFFER ((LBFLAGBASE (LOCF (fetch LBFLAGS of DATUM)))) (BLOCKRECORD LBFLAGBASE (( +)) (ACCESSFNS LINEBUFFER ((LBFLAGBASE (LOCF (|fetch| LBFLAGS |of| DATUM)))) (BLOCKRECORD LBFLAGBASE (( PEEKEDECHOFLG FLAG) (INSTRINGP FLAG))))) (RPAQQ LINEBUFFERSTATES (FILLING.LBS READING.LBS RETYPING.LBS)) (RPAQQ FILLING.LBS 0) (RPAQQ READING.LBS 1) (RPAQQ RETYPING.LBS 2) (CONSTANTS FILLING.LBS READING.LBS RETYPING.LBS) -(PUTPROPS \INTERMP MACRO ((OFD) (EQ OFD \LINEBUF.OFD))) -(PUTPROPS \OUTTERMP MACRO ((OFD) (EQ OFD \TERM.OFD))) -(GLOBALVARS \DEFAULTLINEBUF) -(PUTPROP (QUOTE ATERM) (QUOTE IMPORTDATE) (IDATE "29-Apr-2021 09:38:58")) +(PUTPROPS \\INTERMP MACRO ((OFD) (EQ OFD \\LINEBUF.OFD))) +(PUTPROPS \\OUTTERMP MACRO ((OFD) (EQ OFD \\TERM.OFD))) +(GLOBALVARS \\DEFAULTLINEBUF) +(PUTPROP (QUOTE ATERM) (QUOTE IMPORTDATE) (IDATE "23-Jun-2021 12:31:16")) -(DATATYPE HARRAYP ((NULLSLOTS WORD) (* ; "Number of NIL-NIL slots, which break chains") (LASTINDEX -WORD) (* ; -"Slot offset of last slot. Used in probe computations computations. Microcode support for \ADDBASE4 would help" -) (HARRAYPBASE POINTER) (RECLAIMABLE FLAG) (* ; "True if keys can go away when no other refs") ( -OVERFLOWACTION POINTER) (NUMSLOTS WORD) (* ; -"The maximum number of logical slots--returned by HARRAYSIZE") (NUMKEYS WORD) (* ; +(DATATYPE HARRAYP ((NULLSLOTS WORD) (* \; "Number of NIL-NIL slots, which break chains") (LASTINDEX +WORD) (* \; +"Slot offset of last slot. Used in probe computations computations. Microcode support for \\ADDBASE4 would help" +) (HARRAYPBASE POINTER) (RECLAIMABLE FLAG) (* \; "True if keys can go away when no other refs") ( +OVERFLOWACTION POINTER) (NUMSLOTS WORD) (* \; +"The maximum number of logical slots--returned by HARRAYSIZE") (NUMKEYS WORD) (* \; "The number of distinct keys in the array") (HASHBITSFN POINTER) (EQUIVFN POINTER) (HASHUSERDATA POINTER))) -(PUTPROPS \EQHASHINGBITS MACRO (OPENLAMBDA (X) (* ; -"Spread out objects whose low bits are in small arithmetic progression, esp atoms") (LOGXOR (\HILOC X) - (LOGXOR (LLSH (LOGAND (\LOLOC X) 8191) 3) (LRSH (\LOLOC X) 9))))) -(PUTPROPS \ADDBASE2 MACRO (OPENLAMBDA (BASE N) (\ADDBASE (\ADDBASE BASE N) N))) -(PUTPROPS \ADDBASE4 MACRO (OPENLAMBDA (BASE N) (\ADDBASE2 (\ADDBASE2 BASE N) N))) -(PUTPROPS HUNKSIZEFROMNUMBER MACRO ((NTYPX) (FOLDLO (fetch DTDSIZE of (\GETDTD NTYPX)) WORDSPERCELL))) -(PUTPROPS \BYTELT DMACRO (OPENLAMBDA (A J) (\GETBASEBYTE (fetch (ARRAYP BASE) of A) (IPLUS (fetch ( -ARRAYP OFFST) of A) J)))) -(PUTPROPS \BYTESETA DMACRO (OPENLAMBDA (A J V) (\PUTBASEBYTE (fetch (ARRAYP BASE) of A) (IPLUS (fetch -(ARRAYP OFFST) of A) J) V))) -(PUTPROPS \WORDELT DMACRO (OPENLAMBDA (A J) (CHECK (AND (ARRAYP A) (EQ 0 (fetch (ARRAYP ORIG) of A)) ( -EQ \ST.POS16 (fetch (ARRAYP TYP) of A)))) (CHECK (IGREATERP (fetch (ARRAYP LENGTH) of A) J)) (\GETBASE - (fetch (ARRAYP BASE) of A) (IPLUS (fetch (ARRAYP OFFST) of A) J)))) +(PUTPROPS \\EQHASHINGBITS MACRO (OPENLAMBDA (X) (* \; +"Spread out objects whose low bits are in small arithmetic progression, esp atoms") (LOGXOR (\\HILOC X +) (LOGXOR (LLSH (LOGAND (\\LOLOC X) 8191) 3) (LRSH (\\LOLOC X) 9))))) +(PUTPROPS \\ADDBASE2 MACRO (OPENLAMBDA (BASE N) (\\ADDBASE (\\ADDBASE BASE N) N))) +(PUTPROPS \\ADDBASE4 MACRO (OPENLAMBDA (BASE N) (\\ADDBASE2 (\\ADDBASE2 BASE N) N))) +(PUTPROPS HUNKSIZEFROMNUMBER MACRO ((NTYPX) (FOLDLO (|fetch| DTDSIZE |of| (\\GETDTD NTYPX)) +WORDSPERCELL))) +(PUTPROPS \\BYTELT DMACRO (OPENLAMBDA (A J) (\\GETBASEBYTE (|fetch| (ARRAYP BASE) |of| A) (IPLUS ( +|fetch| (ARRAYP OFFST) |of| A) J)))) +(PUTPROPS \\BYTESETA DMACRO (OPENLAMBDA (A J V) (\\PUTBASEBYTE (|fetch| (ARRAYP BASE) |of| A) (IPLUS ( +|fetch| (ARRAYP OFFST) |of| A) J) V))) +(PUTPROPS \\WORDELT DMACRO (OPENLAMBDA (A J) (CHECK (AND (ARRAYP A) (EQ 0 (|fetch| (ARRAYP ORIG) |of| +A)) (EQ \\ST.POS16 (|fetch| (ARRAYP TYP) |of| A)))) (CHECK (IGREATERP (|fetch| (ARRAYP LENGTH) |of| A) + J)) (\\GETBASE (|fetch| (ARRAYP BASE) |of| A) (IPLUS (|fetch| (ARRAYP OFFST) |of| A) J)))) (RPAQQ BLOCKGCTYPECONSTANTS ((CODEBLOCK.GCT 2) (PTRBLOCK.GCT 1) (UNBOXEDBLOCK.GCT 0))) (RPAQQ CODEBLOCK.GCT 2) (RPAQQ PTRBLOCK.GCT 1) (RPAQQ UNBOXEDBLOCK.GCT 0) (CONSTANTS (CODEBLOCK.GCT 2) (PTRBLOCK.GCT 1) (UNBOXEDBLOCK.GCT 0)) -(RPAQQ ARRAYCONSTANTS (\ArrayBlockHeaderCells \ArrayBlockHeaderWords \ArrayBlockTrailerCells -\ArrayBlockTrailerWords (\ArrayBlockOverheadCells (IPLUS \ArrayBlockHeaderCells -\ArrayBlockTrailerCells)) (\ArrayBlockOverheadWords (IPLUS \ArrayBlockHeaderWords -\ArrayBlockTrailerWords)) \ArrayBlockLinkingCells (\MinArrayBlockSize (IPLUS \ArrayBlockOverheadCells -\ArrayBlockLinkingCells)) (\MaxArrayBlockSize 65535) (\MaxArrayNCells (IDIFFERENCE \MaxArrayBlockSize -\ArrayBlockOverheadCells)) \MaxArrayLen (\ABPASSWORDSHIFT 3) (\ArrayBlockPassword (LRSH 43690 -\ABPASSWORDSHIFT)) (\FreeArrayFlagWord (LOGOR (LLSH \ArrayBlockPassword \ABPASSWORDSHIFT) (LLSH -UNBOXEDBLOCK.GCT 1))) (\UsedArrayFlagWord (LOGOR (LLSH \ArrayBlockPassword \ABPASSWORDSHIFT) 1)) ( -\CodeArrayFlagWord (LOGOR (LLSH \ArrayBlockPassword \ABPASSWORDSHIFT) (LLSH CODEBLOCK.GCT 1) 1)))) -(RPAQQ \ArrayBlockHeaderCells 1) -(RPAQQ \ArrayBlockHeaderWords 2) -(RPAQQ \ArrayBlockTrailerCells 1) -(RPAQQ \ArrayBlockTrailerWords 2) -(RPAQ \ArrayBlockOverheadCells (IPLUS \ArrayBlockHeaderCells \ArrayBlockTrailerCells)) -(RPAQ \ArrayBlockOverheadWords (IPLUS \ArrayBlockHeaderWords \ArrayBlockTrailerWords)) -(RPAQQ \ArrayBlockLinkingCells 2) -(RPAQ \MinArrayBlockSize (IPLUS \ArrayBlockOverheadCells \ArrayBlockLinkingCells)) -(RPAQQ \MaxArrayBlockSize 65535) -(RPAQ \MaxArrayNCells (IDIFFERENCE \MaxArrayBlockSize \ArrayBlockOverheadCells)) -(RPAQQ \MaxArrayLen 65535) -(RPAQQ \ABPASSWORDSHIFT 3) -(RPAQ \ArrayBlockPassword (LRSH 43690 \ABPASSWORDSHIFT)) -(RPAQ \FreeArrayFlagWord (LOGOR (LLSH \ArrayBlockPassword \ABPASSWORDSHIFT) (LLSH UNBOXEDBLOCK.GCT 1)) -) -(RPAQ \UsedArrayFlagWord (LOGOR (LLSH \ArrayBlockPassword \ABPASSWORDSHIFT) 1)) -(RPAQ \CodeArrayFlagWord (LOGOR (LLSH \ArrayBlockPassword \ABPASSWORDSHIFT) (LLSH CODEBLOCK.GCT 1) 1)) -(CONSTANTS \ArrayBlockHeaderCells \ArrayBlockHeaderWords \ArrayBlockTrailerCells -\ArrayBlockTrailerWords (\ArrayBlockOverheadCells (IPLUS \ArrayBlockHeaderCells -\ArrayBlockTrailerCells)) (\ArrayBlockOverheadWords (IPLUS \ArrayBlockHeaderWords -\ArrayBlockTrailerWords)) \ArrayBlockLinkingCells (\MinArrayBlockSize (IPLUS \ArrayBlockOverheadCells -\ArrayBlockLinkingCells)) (\MaxArrayBlockSize 65535) (\MaxArrayNCells (IDIFFERENCE \MaxArrayBlockSize -\ArrayBlockOverheadCells)) \MaxArrayLen (\ABPASSWORDSHIFT 3) (\ArrayBlockPassword (LRSH 43690 -\ABPASSWORDSHIFT)) (\FreeArrayFlagWord (LOGOR (LLSH \ArrayBlockPassword \ABPASSWORDSHIFT) (LLSH -UNBOXEDBLOCK.GCT 1))) (\UsedArrayFlagWord (LOGOR (LLSH \ArrayBlockPassword \ABPASSWORDSHIFT) 1)) ( -\CodeArrayFlagWord (LOGOR (LLSH \ArrayBlockPassword \ABPASSWORDSHIFT) (LLSH CODEBLOCK.GCT 1) 1))) -(RPAQQ ARRAYTYPES ((\ST.BYTE 0) (\ST.POS16 1) (\ST.INT32 2) (\ST.CODE 4) (\ST.PTR 6) (\ST.FLOAT 7) ( -\ST.BIT 8) (\ST.PTR2 11))) -(RPAQQ \ST.BYTE 0) -(RPAQQ \ST.POS16 1) -(RPAQQ \ST.INT32 2) -(RPAQQ \ST.CODE 4) -(RPAQQ \ST.PTR 6) -(RPAQQ \ST.FLOAT 7) -(RPAQQ \ST.BIT 8) -(RPAQQ \ST.PTR2 11) -(CONSTANTS (\ST.BYTE 0) (\ST.POS16 1) (\ST.INT32 2) (\ST.CODE 4) (\ST.PTR 6) (\ST.FLOAT 7) (\ST.BIT 8) - (\ST.PTR2 11)) -(RPAQQ \MAX.CELLSPERHUNK 64) -(CONSTANTS \MAX.CELLSPERHUNK) -(RPAQQ \IN.MAKEINIT NIL) -(CONSTANTS (\IN.MAKEINIT)) +(RPAQQ ARRAYCONSTANTS (|\\ArrayBlockHeaderCells| |\\ArrayBlockHeaderWords| |\\ArrayBlockTrailerCells| +|\\ArrayBlockTrailerWords| (|\\ArrayBlockOverheadCells| (IPLUS |\\ArrayBlockHeaderCells| +|\\ArrayBlockTrailerCells|)) (|\\ArrayBlockOverheadWords| (IPLUS |\\ArrayBlockHeaderWords| +|\\ArrayBlockTrailerWords|)) |\\ArrayBlockLinkingCells| (|\\MinArrayBlockSize| (IPLUS +|\\ArrayBlockOverheadCells| |\\ArrayBlockLinkingCells|)) (|\\MaxArrayBlockSize| 65535) ( +|\\MaxArrayNCells| (IDIFFERENCE |\\MaxArrayBlockSize| |\\ArrayBlockOverheadCells|)) |\\MaxArrayLen| ( +\\ABPASSWORDSHIFT 3) (|\\ArrayBlockPassword| (LRSH 43690 \\ABPASSWORDSHIFT)) (|\\FreeArrayFlagWord| ( +LOGOR (LLSH |\\ArrayBlockPassword| \\ABPASSWORDSHIFT) (LLSH UNBOXEDBLOCK.GCT 1))) ( +|\\UsedArrayFlagWord| (LOGOR (LLSH |\\ArrayBlockPassword| \\ABPASSWORDSHIFT) 1)) ( +|\\CodeArrayFlagWord| (LOGOR (LLSH |\\ArrayBlockPassword| \\ABPASSWORDSHIFT) (LLSH CODEBLOCK.GCT 1) 1) +))) +(RPAQQ |\\ArrayBlockHeaderCells| 1) +(RPAQQ |\\ArrayBlockHeaderWords| 2) +(RPAQQ |\\ArrayBlockTrailerCells| 1) +(RPAQQ |\\ArrayBlockTrailerWords| 2) +(RPAQ |\\ArrayBlockOverheadCells| (IPLUS |\\ArrayBlockHeaderCells| |\\ArrayBlockTrailerCells|)) +(RPAQ |\\ArrayBlockOverheadWords| (IPLUS |\\ArrayBlockHeaderWords| |\\ArrayBlockTrailerWords|)) +(RPAQQ |\\ArrayBlockLinkingCells| 2) +(RPAQ |\\MinArrayBlockSize| (IPLUS |\\ArrayBlockOverheadCells| |\\ArrayBlockLinkingCells|)) +(RPAQQ |\\MaxArrayBlockSize| 65535) +(RPAQ |\\MaxArrayNCells| (IDIFFERENCE |\\MaxArrayBlockSize| |\\ArrayBlockOverheadCells|)) +(RPAQQ |\\MaxArrayLen| 65535) +(RPAQQ \\ABPASSWORDSHIFT 3) +(RPAQ |\\ArrayBlockPassword| (LRSH 43690 \\ABPASSWORDSHIFT)) +(RPAQ |\\FreeArrayFlagWord| (LOGOR (LLSH |\\ArrayBlockPassword| \\ABPASSWORDSHIFT) (LLSH +UNBOXEDBLOCK.GCT 1))) +(RPAQ |\\UsedArrayFlagWord| (LOGOR (LLSH |\\ArrayBlockPassword| \\ABPASSWORDSHIFT) 1)) +(RPAQ |\\CodeArrayFlagWord| (LOGOR (LLSH |\\ArrayBlockPassword| \\ABPASSWORDSHIFT) (LLSH CODEBLOCK.GCT + 1) 1)) +(CONSTANTS |\\ArrayBlockHeaderCells| |\\ArrayBlockHeaderWords| |\\ArrayBlockTrailerCells| +|\\ArrayBlockTrailerWords| (|\\ArrayBlockOverheadCells| (IPLUS |\\ArrayBlockHeaderCells| +|\\ArrayBlockTrailerCells|)) (|\\ArrayBlockOverheadWords| (IPLUS |\\ArrayBlockHeaderWords| +|\\ArrayBlockTrailerWords|)) |\\ArrayBlockLinkingCells| (|\\MinArrayBlockSize| (IPLUS +|\\ArrayBlockOverheadCells| |\\ArrayBlockLinkingCells|)) (|\\MaxArrayBlockSize| 65535) ( +|\\MaxArrayNCells| (IDIFFERENCE |\\MaxArrayBlockSize| |\\ArrayBlockOverheadCells|)) |\\MaxArrayLen| ( +\\ABPASSWORDSHIFT 3) (|\\ArrayBlockPassword| (LRSH 43690 \\ABPASSWORDSHIFT)) (|\\FreeArrayFlagWord| ( +LOGOR (LLSH |\\ArrayBlockPassword| \\ABPASSWORDSHIFT) (LLSH UNBOXEDBLOCK.GCT 1))) ( +|\\UsedArrayFlagWord| (LOGOR (LLSH |\\ArrayBlockPassword| \\ABPASSWORDSHIFT) 1)) ( +|\\CodeArrayFlagWord| (LOGOR (LLSH |\\ArrayBlockPassword| \\ABPASSWORDSHIFT) (LLSH CODEBLOCK.GCT 1) 1) +)) +(RPAQQ ARRAYTYPES ((\\ST.BYTE 0) (\\ST.POS16 1) (\\ST.INT32 2) (\\ST.CODE 4) (\\ST.PTR 6) (\\ST.FLOAT +7) (\\ST.BIT 8) (\\ST.PTR2 11))) +(RPAQQ \\ST.BYTE 0) +(RPAQQ \\ST.POS16 1) +(RPAQQ \\ST.INT32 2) +(RPAQQ \\ST.CODE 4) +(RPAQQ \\ST.PTR 6) +(RPAQQ \\ST.FLOAT 7) +(RPAQQ \\ST.BIT 8) +(RPAQQ \\ST.PTR2 11) +(CONSTANTS (\\ST.BYTE 0) (\\ST.POS16 1) (\\ST.INT32 2) (\\ST.CODE 4) (\\ST.PTR 6) (\\ST.FLOAT 7) ( +\\ST.BIT 8) (\\ST.PTR2 11)) +(RPAQQ \\MAX.CELLSPERHUNK 64) +(CONSTANTS \\MAX.CELLSPERHUNK) +(RPAQQ \\IN.MAKEINIT NIL) +(CONSTANTS (\\IN.MAKEINIT)) (BLOCKRECORD SEQUENCEDESCRIPTOR ((ORIG BITS 1) (NIL BITS 1) (READONLY FLAG) (NIL BITS 1) (BASE POINTER ) (TYP BITS 4) (NIL BITS 4) (LENGTH BITS 24) (OFFST FIXP))) -(DATATYPE ARRAYP ((* ;; "Describes an INTERLISP ARRAYP, as opposed to a CL array.") (ORIG BITS 1) (* ; - "Origin, 0 or 1") (NIL BITS 1) (READONLY FLAG) (* ; "probably no READONLY arrays now") (NIL BITS 1) ( -BASE POINTER) (TYP BITS 4) (* ; "Type of the contents") (NIL BITS 4) (LENGTH BITS 24) (* ; -"Array's length") (OFFST FIXP) (* ; "Offset from BASE where the data really starts.")) (* ;; +(DATATYPE ARRAYP ((* |;;| "Describes an INTERLISP ARRAYP, as opposed to a CL array.") (ORIG BITS 1) (* + \; "Origin, 0 or 1") (NIL BITS 1) (READONLY FLAG) (* \; "probably no READONLY arrays now") (NIL BITS +1) (BASE POINTER) (TYP BITS 4) (* \; "Type of the contents") (NIL BITS 4) (LENGTH BITS 24) (* \; +"Array's length") (OFFST FIXP) (* \; "Offset from BASE where the data really starts.")) (* |;;| "note that while ARRAYP is a DATATYPE, the allocation of it actually happens at MAKEINIT time under INITDATATYPE{NAMES}" )) -(BLOCKRECORD ARRAYBLOCK ((PASSWORD BITS 13) (GCTYPE BITS 2) (* ; "Unboxed, Pointers, or Code") (INUSE -FLAG) (ARLEN WORD) (FWD FULLXPOINTER) (* ; "Only when on free list") (BKWD FULLXPOINTER)) (BLOCKRECORD - ARRAYBLOCK ((ABFLAGS WORD) (* ; "Used for header and trailer"))) (ACCESSFNS ARRAYBLOCK ((DAT ( -\ADDBASE DATUM \ArrayBlockHeaderWords)) (TRAILER (\ADDBASE2 DATUM (IDIFFERENCE (fetch (ARRAYBLOCK -ARLEN) of DATUM) \ArrayBlockTrailerCells))))) (TYPE? (AND (EQ 0 (NTYPX DATUM)) (IGEQ (\HILOC DATUM) -\FirstArraySegment)))) -(GLOBALVARS \NxtArrayPage \FREEBLOCKBUCKETS \HUNKING?) -(PUTPROPS HUNKSIZEFROMNUMBER MACRO ((NTYPX) (FOLDLO (fetch DTDSIZE of (\GETDTD NTYPX)) WORDSPERCELL))) +(BLOCKRECORD ARRAYBLOCK ((PASSWORD BITS 13) (GCTYPE BITS 2) (* \; "Unboxed, Pointers, or Code") (INUSE + FLAG) (ARLEN WORD) (FWD FULLXPOINTER) (* \; "Only when on free list") (BKWD FULLXPOINTER)) ( +BLOCKRECORD ARRAYBLOCK ((ABFLAGS WORD) (* \; "Used for header and trailer"))) (ACCESSFNS ARRAYBLOCK (( +DAT (\\ADDBASE DATUM |\\ArrayBlockHeaderWords|)) (TRAILER (\\ADDBASE2 DATUM (IDIFFERENCE (|fetch| ( +ARRAYBLOCK ARLEN) |of| DATUM) |\\ArrayBlockTrailerCells|))))) (TYPE? (AND (EQ 0 (NTYPX DATUM)) (IGEQ ( +\\HILOC DATUM) |\\FirstArraySegment|)))) +(GLOBALVARS |\\NxtArrayPage| \\FREEBLOCKBUCKETS \\HUNKING?) +(PUTPROPS HUNKSIZEFROMNUMBER MACRO ((NTYPX) (FOLDLO (|fetch| DTDSIZE |of| (\\GETDTD NTYPX)) +WORDSPERCELL))) (PUTPROP (QUOTE LLARRAYELT) (QUOTE IMPORTDATE) (IDATE "15-Sep-1994 11:08:59")) (DEFOPTIMIZER PUTBASEPTRX (&REST ARGS) (CONS (QUOTE (OPENLAMBDA (DATUM OFFSET NEWVALUE) ( -UNINTERRUPTABLY (\PUTBASE DATUM OFFSET (LOGOR (LOGAND 61440 (\GETBASE DATUM OFFSET)) (LOGAND (\HILOC -NEWVALUE) 4095))) (\PUTBASE DATUM (ADD1 OFFSET) (\LOLOC NEWVALUE)) NEWVALUE))) ARGS)) -(RPAQQ \SMALLP 1) -(RPAQQ \FIXP 2) -(RPAQQ \FLOATP 3) -(RPAQQ \LITATOM 4) -(RPAQQ \LISTP 5) -(RPAQQ \ARRAYP 6) -(RPAQQ \STACKP 8) -(RPAQQ \VMEMPAGEP 10) -(RPAQQ \STREAM 11) -(RPAQQ \NEW-ATOM 21) -(CONSTANTS \SMALLP \FIXP \FLOATP \LITATOM \LISTP \ARRAYP \STACKP \VMEMPAGEP \STREAM \NEW-ATOM) -(RPAQQ \BUILT-IN-SYSTEM-TYPES ((SMALLP) (FIXP 2) (FLOATP 2) (LITATOM) (LISTP 4 (0 2)) (ARRAYP 6 (0)) ( -STRINGP 6 (0)) (STACKP 2 NIL \RECLAIMSTACKP) (CHARACTER) (VMEMPAGEP 256 NIL RELEASINGVMEMPAGE) (STREAM -) (BITMAP) (COMPILED-CLOSURE 4 (0 2)) (ONED-ARRAY 8 (0)) (TWOD-ARRAY 10 (0)) (GENERAL-ARRAY 10 (0 8)) -(BIGNUM) (RATIO) (COMPLEX) (PATHNAME) (NEW-ATOM 10 (2 4 6)) (FILLER22) (FILLER23) (FILLER24) (FILLER25 -) (FILLER26) (FILLER27) (FILLER28) (FILLER29) (FILLER30))) -(BLOCKRECORD DTD ((NIL BITS 2) (DTDOBSOLETE FLAG) (* ; +UNINTERRUPTABLY (\\PUTBASE DATUM OFFSET (LOGOR (LOGAND 61440 (\\GETBASE DATUM OFFSET)) (LOGAND ( +\\HILOC NEWVALUE) 4095))) (\\PUTBASE DATUM (ADD1 OFFSET) (\\LOLOC NEWVALUE)) NEWVALUE))) ARGS)) +(RPAQQ \\SMALLP 1) +(RPAQQ \\FIXP 2) +(RPAQQ \\FLOATP 3) +(RPAQQ \\LITATOM 4) +(RPAQQ \\LISTP 5) +(RPAQQ \\ARRAYP 6) +(RPAQQ \\STACKP 8) +(RPAQQ \\VMEMPAGEP 10) +(RPAQQ \\STREAM 11) +(RPAQQ \\NEW-ATOM 21) +(CONSTANTS \\SMALLP \\FIXP \\FLOATP \\LITATOM \\LISTP \\ARRAYP \\STACKP \\VMEMPAGEP \\STREAM +\\NEW-ATOM) +(RPAQQ \\BUILT-IN-SYSTEM-TYPES ((SMALLP) (FIXP 2) (FLOATP 2) (LITATOM) (LISTP 4 (0 2)) (ARRAYP 6 (0)) +(STRINGP 6 (0)) (STACKP 2 NIL \\RECLAIMSTACKP) (CHARACTER) (VMEMPAGEP 256 NIL RELEASINGVMEMPAGE) ( +STREAM) (BITMAP) (COMPILED-CLOSURE 4 (0 2)) (ONED-ARRAY 8 (0)) (TWOD-ARRAY 10 (0)) (GENERAL-ARRAY 10 ( +0 8)) (BIGNUM) (RATIO) (COMPLEX) (PATHNAME) (NEW-ATOM 10 (2 4 6)) (FILLER22) (FILLER23) (FILLER24) ( +FILLER25) (FILLER26) (FILLER27) (FILLER28) (FILLER29) (FILLER30))) +(BLOCKRECORD DTD ((NIL BITS 2) (DTDOBSOLETE FLAG) (* \; "True for type of a redeclared datatype--not allowed to allocate more of these") (DTDFINALIZABLE FLAG) - (* ; "True if finalization exists for this type") (DTDNAME POINTER) (* ; "Type name -- a symbol ") ( -DTDCNT0 WORD) (* ; "Incremental box count -- this plus DTDOLDCNT is the true box count") (DTDSIZE WORD -) (* ; "Length of datum in words") (DTDFREE FULLXPOINTER) (* ; -"Pointer to first object on free chain, or NIL. Not used for LISTP") (DTDLOCKEDP FLAG) (* ; -"True if objects of this type must be locked down (not pagefault)") (DTDHUNKP FLAG) (* ; -"True if this type is used as an array hunk type") (DTDGCTYPE BITS 2) (* ; + (* \; "True if finalization exists for this type") (DTDNAME POINTER) (* \; "Type name -- a symbol ") +(DTDCNT0 WORD) (* \; "Incremental box count -- this plus DTDOLDCNT is the true box count") (DTDSIZE +WORD) (* \; "Length of datum in words") (DTDFREE FULLXPOINTER) (* \; +"Pointer to first object on free chain, or NIL. Not used for LISTP") (DTDLOCKEDP FLAG) (* \; +"True if objects of this type must be locked down (not pagefault)") (DTDHUNKP FLAG) (* \; +"True if this type is used as an array hunk type") (DTDGCTYPE BITS 2) (* \; "For hunk datatypes, is analogous to arrayblock's GCTYPE") (DTDDESCRS POINTER) (DTDTYPESPECS POINTER) -(DTDPTRS POINTER) (* ; +(DTDPTRS POINTER) (* \; "List of word offsets inside datum where reference-counted pointers are stored -- used by GC") ( -DTDOLDCNT FIXP) (* ; "'Box count' -- number of objects of this type ever allocated") (DTDNEXTPAGE FIXP -) (* ; "Currently only for LISTP pages -- page number of next page on chain of non-full cons pages") ( -DTDTYPEENTRY WORD) (* ;; +DTDOLDCNT FIXP) (* \; "'Box count' -- number of objects of this type ever allocated") (DTDNEXTPAGE +FIXP) (* \; +"Currently only for LISTP pages -- page number of next page on chain of non-full cons pages") ( +DTDTYPEENTRY WORD) (* |;;| "The word stored in the type table for objects of this type. Hi bits have numberp tags, ref countable, etc." -) (DTDSUPERTYPE WORD) (* ; "Type number of immediate supertype, or zero if none")) (ACCESSFNS DTD (( -DTDCNTLOC (\ADDBASE DATUM 4)) (DTDCNT (IPLUS (fetch DTDOLDCNT DATUM) (fetch DTDCNT0 DATUM)) ( -UNINTERRUPTABLY (replace DTDOLDCNT of DATUM with NEWVALUE) (replace DTDCNT0 of DATUM with 0)))))) -(PUTPROPS \GETDTD MACRO ((typeNum) (ADDBASE \DTDSpaceBase (ITIMES typeNum 18)))) -(DEFOPTIMIZER \TYPEMASK.UFN (&REST X) (LET ((CE (CONSTANTEXPRESSIONP (CADR X)))) (if CE then (BQUOTE ( -(OPCODES TYPEMASK.N (\, (CAR CE))) (\, (CAR X)))) else (QUOTE IGNOREMACRO)))) -(RPAQQ \GUARDSTORAGEFULL 128) -(RPAQQ \GUARD1STORAGEFULL 64) -(CONSTANTS \GUARDSTORAGEFULL \GUARD1STORAGEFULL) -(GLOBALVARS \NxtMDSPage \LeastMDSPage \SecondArrayPage \SecondMDSPage \MDSFREELISTPAGE \MaxSysTypeNum -\MaxTypeNumber \STORAGEFULL \INTERRUPTSTATE \PENDINGINTERRUPT) -(PUTPROP (QUOTE LLDATATYPE) (QUOTE IMPORTDATE) (IDATE "27-Apr-2021 20:06:09")) +) (DTDSUPERTYPE WORD) (* \; "Type number of immediate supertype, or zero if none")) (ACCESSFNS DTD (( +DTDCNTLOC (\\ADDBASE DATUM 4)) (DTDCNT (IPLUS (|fetch| DTDOLDCNT DATUM) (|fetch| DTDCNT0 DATUM)) ( +UNINTERRUPTABLY (|replace| DTDOLDCNT |of| DATUM |with| NEWVALUE) (|replace| DTDCNT0 |of| DATUM |with| +0)))))) +(PUTPROPS \\GETDTD MACRO ((|typeNum|) (ADDBASE |\\DTDSpaceBase| (ITIMES |typeNum| 18)))) +(DEFOPTIMIZER \\TYPEMASK.UFN (&REST X) (LET ((CE (CONSTANTEXPRESSIONP (CADR X)))) (|if| CE |then| ( +BQUOTE ((OPCODES TYPEMASK.N (\\\, (CAR CE))) (\\\, (CAR X)))) |else| (QUOTE IGNOREMACRO)))) +(RPAQQ \\GUARDSTORAGEFULL 128) +(RPAQQ \\GUARD1STORAGEFULL 64) +(CONSTANTS \\GUARDSTORAGEFULL \\GUARD1STORAGEFULL) +(GLOBALVARS |\\NxtMDSPage| |\\LeastMDSPage| |\\SecondArrayPage| |\\SecondMDSPage| \\MDSFREELISTPAGE +|\\MaxSysTypeNum| |\\MaxTypeNumber| \\STORAGEFULL \\INTERRUPTSTATE \\PENDINGINTERRUPT) +(PUTPROP (QUOTE LLDATATYPE) (QUOTE IMPORTDATE) (IDATE "28-Jun-1999 16:57:50")) -(ACCESSFNS POINTER ((PAGE# (IPLUS (LLSH (\HILOC DATUM) 8) (LRSH (\LOLOC DATUM) 8))) (WORDINPAGE ( -LOGAND (\LOLOC DATUM) 255)) (CELLINPAGE (LRSH (fetch WORDINPAGE of DATUM) 1)) (BYTEINPAGE (LLSH (fetch - WORDINPAGE of DATUM) 1)) (SEGMENT# (\HILOC DATUM)) (WORDINSEGMENT (\LOLOC DATUM)) (CELLINSEGMENT ( -LRSH (fetch WORDINSEGMENT of DATUM) 1)) (WORD# (fetch WORDINPAGE of DATUM)) (DBLWORD# (fetch -CELLINPAGE of DATUM)) (PAGEBASE (\VAG2 (\HILOC DATUM) (LOGAND (\LOLOC DATUM) 65280)))) (CREATE (\VAG2 -(LRSH PAGE# 8) (LLSH (LOGAND PAGE# 255) 8)))) +(ACCESSFNS POINTER ((PAGE# (IPLUS (LLSH (\\HILOC DATUM) 8) (LRSH (\\LOLOC DATUM) 8))) (WORDINPAGE ( +LOGAND (\\LOLOC DATUM) 255)) (CELLINPAGE (LRSH (|fetch| WORDINPAGE |of| DATUM) 1)) (BYTEINPAGE (LLSH ( +|fetch| WORDINPAGE |of| DATUM) 1)) (SEGMENT# (\\HILOC DATUM)) (WORDINSEGMENT (\\LOLOC DATUM)) ( +CELLINSEGMENT (LRSH (|fetch| WORDINSEGMENT |of| DATUM) 1)) (WORD# (|fetch| WORDINPAGE |of| DATUM)) ( +DBLWORD# (|fetch| CELLINPAGE |of| DATUM)) (PAGEBASE (\\VAG2 (\\HILOC DATUM) (LOGAND (\\LOLOC DATUM) +65280)))) (CREATE (\\VAG2 (LRSH PAGE# 8) (LLSH (LOGAND PAGE# 255) 8)))) (ACCESSFNS WORD ((HIBYTE (LRSH DATUM 8)) (LOBYTE (LOGAND DATUM 255))) (CREATE (IPLUS (LLSH HIBYTE 8) LOBYTE))) -(PUTPROPS PTRGTP MACRO (OPENLAMBDA (X Y) (OR (IGREATERP (\HILOC X) (\HILOC Y)) (AND (EQ (\HILOC X) ( -\HILOC Y)) (IGREATERP (\LOLOC X) (\LOLOC Y)))))) -(PUTPROPS .COERCE.TO.SMALLPOSP. DMACRO (OPENLAMBDA (X) (COND ((SMALLPOSP X) X) (T (\ILLEGAL.ARG X))))) +(PUTPROPS PTRGTP MACRO (OPENLAMBDA (X Y) (OR (IGREATERP (\\HILOC X) (\\HILOC Y)) (AND (EQ (\\HILOC X) +(\\HILOC Y)) (IGREATERP (\\LOLOC X) (\\LOLOC Y)))))) +(PUTPROPS .COERCE.TO.SMALLPOSP. DMACRO (OPENLAMBDA (X) (COND ((SMALLPOSP X) X) (T (\\ILLEGAL.ARG X)))) +) (PUTPROPS .COERCE.TO.BYTE. DMACRO (OPENLAMBDA (X) (COND ((AND (SMALLPOSP X) (ILESSP X (CONSTANT (LLSH -1 BITSPERBYTE)))) X) (T (\ILLEGAL.ARG X))))) -(BLOCKRECORD LISTP ((* ;; "Describes a CONS cell.") (CAR POINTER) (CDR POINTER)) (CREATE (CREATECELL -\LISTP)) (* ;; "FOLLOWING ARE CDR-CODE FIELDS") (BLOCKRECORD LISTP ((CDRCODE BITS 4) (CARFIELD -XPOINTER))) (* ;; "For chaining together free cells on a page:") (BLOCKRECORD LISTP ((NEXTFREE BYTE) ( -NIL BITS 24))) (ACCESSFNS LISTP ((FULLCARFIELD NIL (\PUTBASEPTR DATUM 0 NEWVALUE)))) (* ;; +1 BITSPERBYTE)))) X) (T (\\ILLEGAL.ARG X))))) +(BLOCKRECORD LISTP ((* |;;| "Describes a CONS cell.") (CAR POINTER) (CDR POINTER)) (CREATE (CREATECELL + \\LISTP)) (* |;;| "FOLLOWING ARE CDR-CODE FIELDS") (BLOCKRECORD LISTP ((CDRCODE BITS 4) (CARFIELD +XPOINTER))) (* |;;| "For chaining together free cells on a page:") (BLOCKRECORD LISTP ((NEXTFREE BYTE) + (NIL BITS 24))) (ACCESSFNS LISTP ((FULLCARFIELD NIL (\\PUTBASEPTR DATUM 0 NEWVALUE)))) (* |;;| "because replace of XPOINTER is slow, the CAR field is stored with PUTBASEPTR, even though that smashes the hi byte" )) -(BLOCKRECORD CONSPAGE ((* ;; +(BLOCKRECORD CONSPAGE ((* |;;| "Describes a page of CONS cells, which (when free) are chained together thru the top byte.") (NIL 2 -FIXP) (* ; "Empty cells, space for another 2 CONS cells if we can figure out how.") (CNT BYTE) (* ; -"# of cells free on this page") (NEXTCELL BYTE) (* ; -"WORD offset of next free cell (not guaranteed to be 0 if no free cells)") (NIL WORD) (* ; "Padding") -(NEXTPAGE FIXP) (* ; "Next CONS page on the DTD's free list, for searching for cells."))) -(RPAQQ CONSCONSTANTS (\CDR.ONPAGE \CDR.NIL \CDR.INDIRECT \CDR.MAXINDIRECT \CONSPAGE.LAST)) -(RPAQQ \CDR.ONPAGE 8) -(RPAQQ \CDR.NIL 8) -(RPAQQ \CDR.INDIRECT 0) -(RPAQQ \CDR.MAXINDIRECT 7) -(RPAQQ \CONSPAGE.LAST 65535) -(CONSTANTS \CDR.ONPAGE \CDR.NIL \CDR.INDIRECT \CDR.MAXINDIRECT \CONSPAGE.LAST) +FIXP) (* \; "Empty cells, space for another 2 CONS cells if we can figure out how.") (CNT BYTE) (* \; +"# of cells free on this page") (NEXTCELL BYTE) (* \; +"WORD offset of next free cell (not guaranteed to be 0 if no free cells)") (NIL WORD) (* \; "Padding") + (NEXTPAGE FIXP) (* \; "Next CONS page on the DTD's free list, for searching for cells."))) +(RPAQQ CONSCONSTANTS (\\CDR.ONPAGE \\CDR.NIL \\CDR.INDIRECT \\CDR.MAXINDIRECT \\CONSPAGE.LAST)) +(RPAQQ \\CDR.ONPAGE 8) +(RPAQQ \\CDR.NIL 8) +(RPAQQ \\CDR.INDIRECT 0) +(RPAQQ \\CDR.MAXINDIRECT 7) +(RPAQQ \\CONSPAGE.LAST 65535) +(CONSTANTS \\CDR.ONPAGE \\CDR.NIL \\CDR.INDIRECT \\CDR.MAXINDIRECT \\CONSPAGE.LAST) (PUTPROPS LOCAL MACRO ((X) X)) (PUTPROPS ALLOCAL MACRO ((X) X)) -(PUTPROP (QUOTE LLNEW) (QUOTE IMPORTDATE) (IDATE "27-Apr-2021 20:06:09")) +(PUTPROP (QUOTE LLNEW) (QUOTE IMPORTDATE) (IDATE " 2-Feb-1995 16:21:44")) -(PUTPROPS CHECK MACRO (ARGS (COND ((AND (BOUNDP (QUOTE CHECK)) CHECK) (CONS (QUOTE PROGN) (for I in -ARGS collect (LIST (QUOTE OR) I (LIST (QUOTE RAID) (KWOTE (LIST (QUOTE Check-failure%:) I))))))) (T ( -CONS COMMENTFLG ARGS))))) -(PUTPROPS \StatsZero BYTEMACRO (OPENLAMBDA (N) (\PUTBASE N 0 0) (\PUTBASE N 1 0))) -(PUTPROPS \StatsAdd1 DMACRO (OPENLAMBDA (A) (PROG ((LO (IPLUS16 (\GETBASE A 1) 1))) (DECLARE ( -LOCALVARS LO)) (* ; "Increment double word at A by 1") (\PUTBASE A 1 LO) (COND ((EQ LO 0) (\PUTBASE A -0 (ADD1 (\GETBASE A 0)))))))) -(PUTPROPS IPLUS16 MACRO ((X Y) (* ; "Kludge to do 16-bit plus") (\LOLOC (\ADDBASE X Y)))) +(PUTPROPS CHECK MACRO (ARGS (COND ((AND (BOUNDP (QUOTE CHECK)) CHECK) (CONS (QUOTE PROGN) (|for| I +|in| ARGS |collect| (LIST (QUOTE OR) I (LIST (QUOTE RAID) (KWOTE (LIST (QUOTE |Check-failure:|) I))))) +)) (T (CONS COMMENTFLG ARGS))))) +(PUTPROPS |\\StatsZero| BYTEMACRO (OPENLAMBDA (N) (\\PUTBASE N 0 0) (\\PUTBASE N 1 0))) +(PUTPROPS |\\StatsAdd1| DMACRO (OPENLAMBDA (A) (PROG ((LO (IPLUS16 (\\GETBASE A 1) 1))) (DECLARE ( +LOCALVARS LO)) (* \; "Increment double word at A by 1") (\\PUTBASE A 1 LO) (COND ((EQ LO 0) (\\PUTBASE + A 0 (ADD1 (\\GETBASE A 0)))))))) +(PUTPROPS IPLUS16 MACRO ((X Y) (* \; "Kludge to do 16-bit plus") (\\LOLOC (\\ADDBASE X Y)))) (PUTPROPS SMALLPOSP MACRO (OPENLAMBDA (X) (AND (SMALLP X) (IGEQ X 0)))) -(PROGN (PUTPROPS SETXVAR MACRO (X (BQUOTE (SETQ.NOREF %, (CADAR X) %, (CADR X))))) (PUTPROPS SETXVAR -DMACRO (X (OR (AND (EQ (CAAR X) (QUOTE QUOTE)) (LITATOM (CADAR X))) (SHOULDNT)) (GLOBALVARS \VALSPACE) - (LIST (QUOTE SETQ.NOREF) (CADAR X) (CADR X))))) -(PUTPROPS SETQ.NOREF DMACRO ((VAR VAL) (\PUTBASEPTR (LOCF (fetch (LITATOM VALUE) of (QUOTE VAR))) 0 -VAL))) +(PROGN (PUTPROPS SETXVAR MACRO (X (BQUOTE (SETQ.NOREF \, (CADAR X) \, (CADR X))))) (PUTPROPS SETXVAR +DMACRO (X (OR (AND (EQ (CAAR X) (QUOTE QUOTE)) (LITATOM (CADAR X))) (SHOULDNT)) (GLOBALVARS \\VALSPACE +) (LIST (QUOTE SETQ.NOREF) (CADAR X) (CADR X))))) +(PUTPROPS SETQ.NOREF DMACRO ((VAR VAL) (\\PUTBASEPTR (LOCF (|fetch| (LITATOM VALUE) |of| (QUOTE VAR))) + 0 VAL))) (PROGN (PUTPROPS IEQ MACRO ((X Y) (IEQP X Y))) (PUTPROPS IEQ DMACRO (= . EQ))) -(RPAQQ WordsPerPage 256) -(CONSTANTS WordsPerPage) -(ACCESSFNS LITATOM ((DEFINITIONCELL (\DEFCELL DATUM)) (PROPCELL (\PROPCELL DATUM)) (VCELL (\VALCELL -DATUM)) (PNAMECELL (\PNAMECELL DATUM))) (* ;; -"VCELL can also be accessed directly from a value index via the record VALINDEX (as in \SETGLOBALVAL.UFN) --- Similarly, PNAMEINDEX accesses PNAMECELL for use by \MKATOM and UNCOPYATOM" -) (TYPE? (LITATOM DATUM)) (BLOCKRECORD PROPCELL ((NIL BITS 4) (* ; "former flags locations") (PROPLIST - POINTER) (NIL BITS 8) (* ; "Package byte") (NIL BITS 8) (* ; "Flags from defcell") (* ;; -"PROPCell flags:") (NIL BITS 1) (GENSYMP FLAG) (FATPNAMEP FLAG) (NIL BITS 5) (* ;; +(RPAQQ |WordsPerPage| 256) +(CONSTANTS |WordsPerPage|) +(ACCESSFNS LITATOM ((DEFINITIONCELL (\\DEFCELL DATUM)) (PROPCELL (\\PROPCELL DATUM)) (VCELL (\\VALCELL + DATUM)) (PNAMECELL (\\PNAMECELL DATUM))) (* |;;| +"VCELL can also be accessed directly from a value index via the record VALINDEX (as in \\SETGLOBALVAL.UFN) --- Similarly, PNAMEINDEX accesses PNAMECELL for use by \\MKATOM and UNCOPYATOM" +) (TYPE? (LITATOM DATUM)) (BLOCKRECORD PROPCELL ((NIL BITS 4) (* \; "former flags locations") ( +PROPLIST POINTER) (NIL BITS 8) (* \; "Package byte") (NIL BITS 8) (* \; "Flags from defcell") (* |;;| +"PROPCell flags:") (NIL BITS 1) (GENSYMP FLAG) (FATPNAMEP FLAG) (NIL BITS 5) (* |;;| "Filler for final cell:") (NIL BITS 8)))) (SYNONYM CL:SYMBOL (LITATOM)) -(ACCESSFNS VALINDEX ((VCELL (COND ((AND (FIXP DATUM) (ILESSP DATUM 65535)) (* ; -"Xerox Lisp traditional symbol") (\ADDBASE2 \PNPSPACE (IPLUS \NEWATOM-VALOFFSET (ITIMES 10 DATUM)))) ( -T (* ; "New symbol") (* ; "'90/07/19 ON") (\ADDBASE DATUM \NEWATOM-VALOFFSET)))))) +(ACCESSFNS VALINDEX ((VCELL (COND ((AND (FIXP DATUM) (ILESSP DATUM 65535)) (* \; +"Xerox Lisp traditional symbol") (\\ADDBASE2 \\PNPSPACE (IPLUS \\NEWATOM-VALOFFSET (ITIMES 10 DATUM))) +) (T (* \; "New symbol") (* \; "'90/07/19 ON") (\\ADDBASE DATUM \\NEWATOM-VALOFFSET)))))) (BLOCKRECORD VCELL ((VALUE FULLPOINTER))) -(BLOCKRECORD DEFINITIONCELL ((CCODEP FLAG) (FASTP FLAG) (ARGTYPE BITS 2) (* ; "Former flag location") -(DEFPOINTER POINTER) (NIL POINTER) (* ; "Proplist cell") (NIL BITS 8) (* ; "package") (* ;; +(BLOCKRECORD DEFINITIONCELL ((CCODEP FLAG) (FASTP FLAG) (ARGTYPE BITS 2) (* \; "Former flag location") + (DEFPOINTER POINTER) (NIL POINTER) (* \; "Proplist cell") (NIL BITS 8) (* \; "package") (* |;;| "DEFCELL flags overflow from top 4 bits of the real cell:") (NIL BITS 4) (PSEUDOCODEP FLAG) (NIL BITS -3) (* ;; "proplist falgs and filler:") (NIL BITS 16)) (BLOCKRECORD DEFINITIONCELL ((DEFCELLFLAGS BITS -4) (NIL POINTER) (* ; "defn ptr") (NIL BITS 4) (NIL POINTER) (* ; "filler for proplist ptr") (NIL BITS - 8) (AUXDEFCELLFLAGS BYTE) (NIL BITS 16)))) +3) (* |;;| "proplist falgs and filler:") (NIL BITS 16)) (BLOCKRECORD DEFINITIONCELL ((DEFCELLFLAGS +BITS 4) (NIL POINTER) (* \; "defn ptr") (NIL BITS 4) (NIL POINTER) (* \; "filler for proplist ptr") ( +NIL BITS 8) (AUXDEFCELLFLAGS BYTE) (NIL BITS 16)))) (BLOCKRECORD FNHEADER ((STKMIN WORD) (NA SIGNEDWORD) (PV SIGNEDWORD) (STARTPC WORD) (CLOSUREP FLAG) (* - ; "T if this is a %"compiled closure%"") (BYTESWAPPED FLAG) (* ; + \; "T if this is a \"compiled closure\"") (BYTESWAPPED FLAG) (* \; "T if, on 386, we reswapped the code section of this function for faster access.") (ARGTYPE BITS 2) (* - ; "0 = LAMBDA") (* ; "2 = LAMBDA nospread") (* ; "1 = NLAMBDA") (* ; "3 = NLAMBDA nospread") (* ;; -"4 NIL BITS USED TO BE HERE.") (%#FRAMENAME XPOINTER) (NTSIZE WORD) (* ; + \; "0 = LAMBDA") (* \; "2 = LAMBDA nospread") (* \; "1 = NLAMBDA") (* \; "3 = NLAMBDA nospread") (* +|;;| "4 NIL BITS USED TO BE HERE.") (\#FRAMENAME XPOINTER) (NTSIZE WORD) (* \; "Size of the Name Table, IN WORDS. This value is always rounded up to the next Quad-word in size, and there' guaranteed to be one entry of zeros in the length." -) (NLOCALS BYTE) (FVAROFFSET BYTE)) (ACCESSFNS FNHEADER ((LSTARP (ILESSP (fetch (FNHEADER NA) of DATUM -) 0)) (OVERHEADWORDS (PROGN 8)) (NATIVE (PROGN NIL)) (* ; -"T if this is a NATIVE-code function (never true!)") (ALIGNED (IPLUS (fetch (FNHEADER NTSIZE) of DATUM -) (fetch (FNHEADER OVERHEADWORDS) of T))) (FIXED NIL (replace (FNHEADER STKMIN) of DATUM with (\STKMIN - DATUM T))) (NPVARWORDS (UNFOLD (ADD1 (fetch (FNHEADER PV) of DATUM)) WORDSPERQUAD)) (FRAMENAME (fetch - (FNHEADER %#FRAMENAME) of DATUM) (UNINTERRUPTABLY (CHECK (NEQ (\HILOC DATUM) \STACKHI)) (\DELREF ( -fetch (FNHEADER %#FRAMENAME) of DATUM)) (\ADDREF NEWVALUE) (replace (FNHEADER %#FRAMENAME) of DATUM -with NEWVALUE)))))) -(BLOCKRECORD PNAMECELL ((NIL BITS 4) (PNAMEBASE XPOINTER) (NIL POINTER) (* ; "val, def, prop cells") ( -NIL POINTER) (NIL POINTER) (PACKAGEINDEX BYTE) (NIL BITS 24) (* ; "filler for other flags")) ( -BLOCKRECORD PNAMECELL ((FULLPNAMEBASE FULLXPOINTER) (* ; "Replacing this smashes PACKAGEINDEX to 0"))) - (ACCESSFNS PNAMECELL ((PACKAGE (LET ((I (FETCH (PNAMECELL PACKAGEINDEX) OF DATUM))) (* ; +) (NLOCALS BYTE) (FVAROFFSET BYTE)) (ACCESSFNS FNHEADER ((LSTARP (ILESSP (|fetch| (FNHEADER NA) |of| +DATUM) 0)) (OVERHEADWORDS (PROGN 8)) (NATIVE (PROGN NIL)) (* \; +"T if this is a NATIVE-code function (never true!)") (ALIGNED (IPLUS (|fetch| (FNHEADER NTSIZE) |of| +DATUM) (|fetch| (FNHEADER OVERHEADWORDS) |of| T))) (FIXED NIL (|replace| (FNHEADER STKMIN) |of| DATUM +|with| (\\STKMIN DATUM T))) (NPVARWORDS (UNFOLD (ADD1 (|fetch| (FNHEADER PV) |of| DATUM)) WORDSPERQUAD +)) (FRAMENAME (|fetch| (FNHEADER \#FRAMENAME) |of| DATUM) (UNINTERRUPTABLY (CHECK (NEQ (\\HILOC DATUM) + \\STACKHI)) (\\DELREF (|fetch| (FNHEADER \#FRAMENAME) |of| DATUM)) (\\ADDREF NEWVALUE) (|replace| ( +FNHEADER \#FRAMENAME) |of| DATUM |with| NEWVALUE)))))) +(BLOCKRECORD PNAMECELL ((NIL BITS 4) (PNAMEBASE XPOINTER) (NIL POINTER) (* \; "val, def, prop cells") +(NIL POINTER) (NIL POINTER) (PACKAGEINDEX BYTE) (NIL BITS 24) (* \; "filler for other flags")) ( +BLOCKRECORD PNAMECELL ((FULLPNAMEBASE FULLXPOINTER) (* \; "Replacing this smashes PACKAGEINDEX to 0")) +) (ACCESSFNS PNAMECELL ((PACKAGE (LET ((I (FETCH (PNAMECELL PACKAGEINDEX) OF DATUM))) (* \; "This ugly construct allows cl:symbol-package to run in the init, where *PACKAGE-FROM-INDEX* is not yet bound." ) (COND ((EQ 0 I) NIL) (T (CL:AREF *PACKAGE-FROM-INDEX* I)))) (REPLACE (PNAMECELL PACKAGEINDEX) OF -DATUM WITH (IF (NULL NEWVALUE) THEN *UNINTERNED-PACKAGE-INDEX* ELSE (CL::%%PACKAGE-INDEX NEWVALUE))))) -)) -(ACCESSFNS PACKAGEINDEX ((PACKAGE (IF (EQ 0 DATUM) (* ; +DATUM WITH (IF (NULL NEWVALUE) THEN *UNINTERNED-PACKAGE-INDEX* ELSE (CL::%PACKAGE-INDEX NEWVALUE)))))) +) +(ACCESSFNS PACKAGEINDEX ((PACKAGE (IF (EQ 0 DATUM) (* \; "This ugly construct allows cl:symbol-package to run in the init, where *PACKAGE-FROM-INDEX* is not yet bound." ) THEN NIL ELSE (CL:AREF *PACKAGE-FROM-INDEX* DATUM))))) -(BLOCKRECORD PNAMEBASE ((PNAMELENGTH BYTE) (* ; "Length is always here, be the pname thin or fat") ( -PNAMEFATPADDINGBYTE BYTE) (* ; +(BLOCKRECORD PNAMEBASE ((PNAMELENGTH BYTE) (* \; "Length is always here, be the pname thin or fat") ( +PNAMEFATPADDINGBYTE BYTE) (* \; "This byte is zero for fat pnames so that the pname chars are word-aligned"))) -(ACCESSFNS PNAMEINDEX ((PNAMECELL (COND ((AND (FIXP DATUM) (ILESSP DATUM 65535)) (* ; -"Xerox Lisp traditional symbol") (\ADDBASE \OLDATOMSPACE (IPLUS \NEWATOM-PNAMEOFFSET (ITIMES 10 DATUM) -))) (T (* ; "New symbol") (* ; "'90/07/19 ON") (\ADDBASE DATUM \NEWATOM-PNAMEOFFSET)))))) -(BLOCKRECORD NEW-ATOM ((* ;; -"An extended symbol, for expanding atom space. Kept in its own datatype.") (PNAME XPOINTER) (* ; -"PNAME, same as litatom.") (VALUE POINTER) (DEF POINTER) (PROPLIST POINTER) (* ;; +(ACCESSFNS PNAMEINDEX ((PNAMECELL (COND ((AND (FIXP DATUM) (ILESSP DATUM 65535)) (* \; +"Xerox Lisp traditional symbol") (\\ADDBASE \\OLDATOMSPACE (IPLUS \\NEWATOM-PNAMEOFFSET (ITIMES 10 +DATUM)))) (T (* \; "New symbol") (* \; "'90/07/19 ON") (\\ADDBASE DATUM \\NEWATOM-PNAMEOFFSET)))))) +(BLOCKRECORD NEW-ATOM ((* |;;| +"An extended symbol, for expanding atom space. Kept in its own datatype.") (PNAME XPOINTER) (* \; +"PNAME, same as litatom.") (VALUE POINTER) (DEF POINTER) (PROPLIST POINTER) (* |;;| "Flags that used to be above the pointers, e.g. package, ccodep, gensymp:") (NIL BITS 32))) -(PUTPROPS \DEFCELL MACRO ((ATOM) (\ATOMCELL ATOM \DEF.HI))) -(PUTPROPS \VALCELL MACRO ((ATOM) (\ATOMCELL ATOM \VAL.HI))) -(PUTPROPS \PNAMECELL MACRO ((ATOM) (\ATOMCELL ATOM \PNAME.HI))) -(PUTPROPS \ATOMVALINDEX DMACRO (OPENLAMBDA (X) (COND ((EQ (NTYPX X) \LITATOM) (* ; "Original litatoms" -) (\LOLOC X)) ((EQ (NTYPX X) \NEW-ATOM) (* ; "new 3-byte symbols") X) (T (SHOULDNT))))) -(PUTPROPS \ATOMDEFINDEX DMACRO (OPENLAMBDA (X) (COND ((EQ (NTYPX X) \LITATOM) (* ; "Original litatoms" -) (\LOLOC X)) ((EQ (NTYPX X) \NEW-ATOM) (* ; "new 3-byte symbols") X) (T (SHOULDNT))))) -(PUTPROPS \ATOMPNAMEINDEX DMACRO (OPENLAMBDA (X) (COND ((EQ (NTYPX X) \LITATOM) (* ; -"Original litatoms") (\LOLOC X)) ((EQ (NTYPX X) \NEW-ATOM) (* ; "new 3-byte symbols") X) (T (SHOULDNT) -)))) -(PUTPROPS \ATOMPROPINDEX DMACRO ((X) (COND ((EQ (NTYPX X) \LITATOM) (* ; "Original litatoms") (\LOLOC -X)) ((EQ (NTYPX X) \NEW-ATOM) (* ; "new 3-byte symbols") X) (T (SHOULDNT))))) -(PUTPROPS \INDEXATOMPNAME DMACRO (OPENLAMBDA (X) (COND ((FIXP X) (* ; "Xerox Lisp traditional symbol") - (COND ((SMALLP X) (\VAG2 \AtomHI X)) (T (\VAG2 (LRSH X 16) (LOGAND X 65535))))) (T (* ; "New symbol") - X)))) -(PUTPROPS \INDEXATOMVAL DMACRO (OPENLAMBDA (X) (COND ((FIXP X) (* ; "Xerox Lisp traditional symbol") ( -COND ((SMALLP X) (\VAG2 \AtomHI X)) (T (\VAG2 (LRSH X 16) (LOGAND X 65535))))) (T (* ; "New symbol") X -)))) -(PUTPROPS \INDEXATOMDEF DMACRO (OPENLAMBDA (X) (COND ((FIXP X) (* ; "Xerox Lisp traditional symbol") ( -COND ((SMALLP X) (\VAG2 \AtomHI X)) (T (\VAG2 (LRSH X 16) (LOGAND X 65535))))) (T (* ; "New symbol") X -)))) -(PUTPROPS \ATOMNUMBER DMACRO (= . \LOLOC)) -(GLOBALVARS \NxtPnByte \CurPnPage \NxtAtomPage \AtomFrLst \OneCharAtomBase \PNAMES.IN.BLOCKS? -\SCRATCHSTRING COMPILEATPUTDFLG) -(RPAQQ \PNAMELIMIT 255) -(RPAQQ \CharsPerPnPage 512) -(CONSTANTS (\PNAMELIMIT 255) (\CharsPerPnPage 512)) -(RPAQQ \NEWATOM-PNAMEOFFSET 0) -(RPAQQ \NEWATOM-VALOFFSET 2) -(RPAQQ \NEWATOM-DEFOFFSET 4) -(RPAQQ \NEWATOM-PLISTOFFSET 6) -(RPAQQ \NEWATOM-TYPE# 21) -(CONSTANTS (\NEWATOM-PNAMEOFFSET 0) (\NEWATOM-VALOFFSET 2) (\NEWATOM-DEFOFFSET 4) ( -\NEWATOM-PLISTOFFSET 6) (\NEWATOM-TYPE# 21)) -(PUTPROPS \MOVEWORDS MACRO (OPENLAMBDA (SBASE SOFFSET DBASE DOFFSET NWORDS) (\BLT (\ADDBASE DBASE -DOFFSET) (\ADDBASE SBASE SOFFSET) NWORDS))) +(PUTPROPS \\DEFCELL MACRO ((ATOM) (\\ATOMCELL ATOM \\DEF.HI))) +(PUTPROPS \\VALCELL MACRO ((ATOM) (\\ATOMCELL ATOM \\VAL.HI))) +(PUTPROPS \\PNAMECELL MACRO ((ATOM) (\\ATOMCELL ATOM \\PNAME.HI))) +(PUTPROPS \\ATOMVALINDEX DMACRO (OPENLAMBDA (X) (COND ((EQ (NTYPX X) \\LITATOM) (* \; +"Original litatoms") (\\LOLOC X)) ((EQ (NTYPX X) \\NEW-ATOM) (* \; "new 3-byte symbols") X) (T ( +SHOULDNT))))) +(PUTPROPS \\ATOMDEFINDEX DMACRO (OPENLAMBDA (X) (COND ((EQ (NTYPX X) \\LITATOM) (* \; +"Original litatoms") (\\LOLOC X)) ((EQ (NTYPX X) \\NEW-ATOM) (* \; "new 3-byte symbols") X) (T ( +SHOULDNT))))) +(PUTPROPS \\ATOMPNAMEINDEX DMACRO (OPENLAMBDA (X) (COND ((EQ (NTYPX X) \\LITATOM) (* \; +"Original litatoms") (\\LOLOC X)) ((EQ (NTYPX X) \\NEW-ATOM) (* \; "new 3-byte symbols") X) (T ( +SHOULDNT))))) +(PUTPROPS \\ATOMPROPINDEX DMACRO ((X) (COND ((EQ (NTYPX X) \\LITATOM) (* \; "Original litatoms") ( +\\LOLOC X)) ((EQ (NTYPX X) \\NEW-ATOM) (* \; "new 3-byte symbols") X) (T (SHOULDNT))))) +(PUTPROPS \\INDEXATOMPNAME DMACRO (OPENLAMBDA (X) (COND ((FIXP X) (* \; +"Xerox Lisp traditional symbol") (COND ((SMALLP X) (\\VAG2 |\\AtomHI| X)) (T (\\VAG2 (LRSH X 16) ( +LOGAND X 65535))))) (T (* \; "New symbol") X)))) +(PUTPROPS \\INDEXATOMVAL DMACRO (OPENLAMBDA (X) (COND ((FIXP X) (* \; "Xerox Lisp traditional symbol") + (COND ((SMALLP X) (\\VAG2 |\\AtomHI| X)) (T (\\VAG2 (LRSH X 16) (LOGAND X 65535))))) (T (* \; +"New symbol") X)))) +(PUTPROPS \\INDEXATOMDEF DMACRO (OPENLAMBDA (X) (COND ((FIXP X) (* \; "Xerox Lisp traditional symbol") + (COND ((SMALLP X) (\\VAG2 |\\AtomHI| X)) (T (\\VAG2 (LRSH X 16) (LOGAND X 65535))))) (T (* \; +"New symbol") X)))) +(PUTPROPS \\ATOMNUMBER DMACRO (= . \\LOLOC)) +(GLOBALVARS |\\NxtPnByte| |\\CurPnPage| |\\NxtAtomPage| |\\AtomFrLst| |\\OneCharAtomBase| +\\PNAMES.IN.BLOCKS? \\SCRATCHSTRING COMPILEATPUTDFLG) +(RPAQQ \\PNAMELIMIT 255) +(RPAQQ |\\CharsPerPnPage| 512) +(CONSTANTS (\\PNAMELIMIT 255) (|\\CharsPerPnPage| 512)) +(RPAQQ \\NEWATOM-PNAMEOFFSET 0) +(RPAQQ \\NEWATOM-VALOFFSET 2) +(RPAQQ \\NEWATOM-DEFOFFSET 4) +(RPAQQ \\NEWATOM-PLISTOFFSET 6) +(RPAQQ \\NEWATOM-TYPE# 21) +(CONSTANTS (\\NEWATOM-PNAMEOFFSET 0) (\\NEWATOM-VALOFFSET 2) (\\NEWATOM-DEFOFFSET 4) ( +\\NEWATOM-PLISTOFFSET 6) (\\NEWATOM-TYPE# 21)) +(PUTPROPS \\MOVEWORDS MACRO (OPENLAMBDA (SBASE SOFFSET DBASE DOFFSET NWORDS) (\\BLT (\\ADDBASE DBASE +DOFFSET) (\\ADDBASE SBASE SOFFSET) NWORDS))) (PUTPROP (QUOTE LLBASIC) (QUOTE IMPORTDATE) (IDATE "31-Jan-1998 09:55:50")) -(ACCESSFNS STRINGP ((XREADONLY (fetch (ARRAY-HEADER READ-ONLY-P) of DATUM) (replace (ARRAY-HEADER -READ-ONLY-P) of DATUM with NEWVALUE)) (XBASE ((OPENLAMBDA (STRING) (COND ((fetch (ARRAY-HEADER -INDIRECT-P) of STRING) (%%ARRAY-BASE STRING)) (T (fetch (ARRAY-HEADER BASE) of STRING)))) DATUM) (( -OPENLAMBDA (STRING NV) (replace (ARRAY-HEADER INDIRECT-P) of STRING with NIL) (replace (ARRAY-HEADER -BASE) of STRING with NV) NV) DATUM NEWVALUE)) (TYP ((OPENLAMBDA (STRING) (SELECTC (COND ((fetch ( -ARRAY-HEADER INDIRECT-P) of STRING) (%%ARRAY-TYPE-NUMBER STRING)) (T (fetch (ARRAY-HEADER TYPE-NUMBER) - of STRING))) (%%THIN-CHAR-TYPENUMBER \ST.BYTE) (%%FAT-CHAR-TYPENUMBER \ST.POS16) (SHOULDNT -"Unknown type-number"))) DATUM) ((OPENLAMBDA (STRING NV) (LET ((%%NEW-TYPE-NUMBER (SELECTC NV ( -\ST.BYTE %%THIN-CHAR-TYPENUMBER) (\ST.POS16 %%FAT-CHAR-TYPENUMBER) (SHOULDNT "Unknown typ value")))) ( -COND ((fetch (ARRAY-HEADER INDIRECT-P) of STRING) (%%SET-ARRAY-TYPE-NUMBER STRING %%NEW-TYPE-NUMBER)) -(T (replace (ARRAY-HEADER TYPE-NUMBER) of STRING with %%NEW-TYPE-NUMBER))))) DATUM NEWVALUE)) (LENGTH -(fetch (ARRAY-HEADER FILL-POINTER) of DATUM) ((OPENLAMBDA (STRING NV) (replace (ARRAY-HEADER -FILL-POINTER) of STRING with NV) (replace (ARRAY-HEADER TOTAL-SIZE) of STRING with NV) (COND (( -%%GENERAL-ARRAY-P STRING) (freplace (GENERAL-ARRAY DIMS) of STRING with (LIST NV)))) NV) DATUM -NEWVALUE)) (OFFST ((OPENLAMBDA (STRING) (COND ((fetch (ARRAY-HEADER INDIRECT-P) of STRING) ( -%%ARRAY-OFFSET STRING)) (T (fetch (ARRAY-HEADER OFFSET) of STRING)))) DATUM) ((OPENLAMBDA (STRING NV) -(COND ((NOT (EQ 0 NV)) (replace (ARRAY-HEADER DISPLACED-P) of STRING with T))) (COND ((fetch ( -ARRAY-HEADER INDIRECT-P) of STRING) (%%SET-ARRAY-OFFSET STRING NV)) (T (replace (ARRAY-HEADER OFFSET) -of STRING with NV)))) DATUM NEWVALUE)) (* ;; "The rest of these fields only appear when smashing") ( -XFLAGS (LOGAND (fetch (ARRAY-HEADER FLAGS) of DATUM) 15) ((OPENLAMBDA (STRING) (replace (ARRAY-HEADER -ADJUSTABLE-P) of STRING with NIL) (replace (ARRAY-HEADER DISPLACED-P) of STRING with NIL) (replace ( -ARRAY-HEADER FILL-POINTER-P) of STRING with NIL) (replace (ARRAY-HEADER EXTENDABLE-P) of STRING with -NIL)) DATUM))) (ACCESSFNS STRINGP ((ORIG ((OPENLAMBDA (STRING) 1) DATUM) ((OPENLAMBDA (STRING NV) ( -COND ((NOT (EQ NV 1)) (ERROR "Il:stringp's are always origin 1"))) NV) DATUM NEWVALUE)) (* ; -"An inoperative field") (SUBSTRINGED ((OPENLAMBDA (STRING) NIL) DATUM) ((OPENLAMBDA (STRING NV) (OR ( -NULL NV) (ERROR "Substringed field not supported"))) DATUM NEWVALUE)) (READONLY (ffetch (STRINGP -XREADONLY) of DATUM) (freplace (STRINGP XREADONLY) of DATUM with NEWVALUE)) (FATSTRINGP ((OPENLAMBDA ( -STRING) (EQ (COND ((fetch (ARRAY-HEADER INDIRECT-P) of STRING) (%%ARRAY-TYPE-NUMBER STRING)) (T (fetch - (ARRAY-HEADER TYPE-NUMBER) of STRING))) %%FAT-CHAR-TYPENUMBER)) DATUM) ((OPENLAMBDA (STRING NV) (LET -((%%NEW-TYPE-NUMBER (COND (NV %%FAT-CHAR-TYPENUMBER) (T %%THIN-CHAR-TYPENUMBER)))) (COND ((fetch ( -ARRAY-HEADER INDIRECT-P) of STRING) (%%SET-ARRAY-TYPE-NUMBER STRING %%NEW-TYPE-NUMBER)) (T (replace ( -ARRAY-HEADER TYPE-NUMBER) of STRING with %%NEW-TYPE-NUMBER))))) DATUM NEWVALUE)) (BASE (ffetch ( -STRINGP XBASE) of DATUM) (freplace (STRINGP XBASE) of DATUM with NEWVALUE)))) (CREATE (create -ONED-ARRAY BASE _ XBASE READ-ONLY-P _ XREADONLY STRING-P _ T DISPLACED-P _ (NOT (EQ OFFST 0)) -TYPE-NUMBER _ (COND ((EQ TYP \ST.POS16) %%FAT-CHAR-TYPENUMBER) (T %%THIN-CHAR-TYPENUMBER)) OFFSET _ -OFFST FILL-POINTER _ LENGTH TOTAL-SIZE _ LENGTH)) (TYPE? (CL:STRINGP DATUM)) OFFST _ 0 TYP _ \ST.BYTE -LENGTH _ 0) -(GLOBALVARS \OneCharAtomBase) -(PUTDEF (QUOTE \NUMSTR) (QUOTE RESOURCES) (QUOTE (NEW (ALLOCSTRING 128)))) -(PUTDEF (QUOTE \NUMSTR1) (QUOTE RESOURCES) (QUOTE (NEW (CONCAT)))) -(PUTDEF (QUOTE \PNAMESTRING) (QUOTE RESOURCES) (QUOTE (NEW (ALLOCSTRING \PNAMELIMIT NIL NIL -\FATPNAMESTRINGP)))) -(RPAQQ \FATPNAMESTRINGP T) -(CONSTANTS (\FATPNAMESTRINGP T)) -(PUTPROPS \PNAMESTRINGPUTCHAR MACRO ((BASE OFFSET CODE) (* ; -"For stuffing chars into resource \PNAMESTRING") (\PUTBASECHAR \FATPNAMESTRINGP BASE OFFSET CODE))) -(DEFOPTIMIZER FCHARACTER (NUM) (BQUOTE ((OPENLAMBDA (N) (COND ((IGREATERP N \MAXTHINCHAR) (* ; +(ACCESSFNS STRINGP ((XREADONLY (|fetch| (ARRAY-HEADER READ-ONLY-P) |of| DATUM) (|replace| ( +ARRAY-HEADER READ-ONLY-P) |of| DATUM |with| NEWVALUE)) (XBASE ((OPENLAMBDA (STRING) (COND ((|fetch| ( +ARRAY-HEADER INDIRECT-P) |of| STRING) (%ARRAY-BASE STRING)) (T (|fetch| (ARRAY-HEADER BASE) |of| +STRING)))) DATUM) ((OPENLAMBDA (STRING NV) (|replace| (ARRAY-HEADER INDIRECT-P) |of| STRING |with| NIL +) (|replace| (ARRAY-HEADER BASE) |of| STRING |with| NV) NV) DATUM NEWVALUE)) (TYP ((OPENLAMBDA (STRING +) (SELECTC (COND ((|fetch| (ARRAY-HEADER INDIRECT-P) |of| STRING) (%ARRAY-TYPE-NUMBER STRING)) (T ( +|fetch| (ARRAY-HEADER TYPE-NUMBER) |of| STRING))) (%THIN-CHAR-TYPENUMBER \\ST.BYTE) ( +%FAT-CHAR-TYPENUMBER \\ST.POS16) (SHOULDNT "Unknown type-number"))) DATUM) ((OPENLAMBDA (STRING NV) ( +LET ((%NEW-TYPE-NUMBER (SELECTC NV (\\ST.BYTE %THIN-CHAR-TYPENUMBER) (\\ST.POS16 %FAT-CHAR-TYPENUMBER) + (SHOULDNT "Unknown typ value")))) (COND ((|fetch| (ARRAY-HEADER INDIRECT-P) |of| STRING) ( +%SET-ARRAY-TYPE-NUMBER STRING %NEW-TYPE-NUMBER)) (T (|replace| (ARRAY-HEADER TYPE-NUMBER) |of| STRING +|with| %NEW-TYPE-NUMBER))))) DATUM NEWVALUE)) (LENGTH (|fetch| (ARRAY-HEADER FILL-POINTER) |of| DATUM) + ((OPENLAMBDA (STRING NV) (|replace| (ARRAY-HEADER FILL-POINTER) |of| STRING |with| NV) (|replace| ( +ARRAY-HEADER TOTAL-SIZE) |of| STRING |with| NV) (COND ((%GENERAL-ARRAY-P STRING) (|freplace| ( +GENERAL-ARRAY DIMS) |of| STRING |with| (LIST NV)))) NV) DATUM NEWVALUE)) (OFFST ((OPENLAMBDA (STRING) +(COND ((|fetch| (ARRAY-HEADER INDIRECT-P) |of| STRING) (%ARRAY-OFFSET STRING)) (T (|fetch| ( +ARRAY-HEADER OFFSET) |of| STRING)))) DATUM) ((OPENLAMBDA (STRING NV) (COND ((NOT (EQ 0 NV)) (|replace| + (ARRAY-HEADER DISPLACED-P) |of| STRING |with| T))) (COND ((|fetch| (ARRAY-HEADER INDIRECT-P) |of| +STRING) (%SET-ARRAY-OFFSET STRING NV)) (T (|replace| (ARRAY-HEADER OFFSET) |of| STRING |with| NV)))) +DATUM NEWVALUE)) (* |;;| "The rest of these fields only appear when smashing") (XFLAGS (LOGAND ( +|fetch| (ARRAY-HEADER FLAGS) |of| DATUM) 15) ((OPENLAMBDA (STRING) (|replace| (ARRAY-HEADER +ADJUSTABLE-P) |of| STRING |with| NIL) (|replace| (ARRAY-HEADER DISPLACED-P) |of| STRING |with| NIL) ( +|replace| (ARRAY-HEADER FILL-POINTER-P) |of| STRING |with| NIL) (|replace| (ARRAY-HEADER EXTENDABLE-P) + |of| STRING |with| NIL)) DATUM))) (ACCESSFNS STRINGP ((ORIG ((OPENLAMBDA (STRING) 1) DATUM) (( +OPENLAMBDA (STRING NV) (COND ((NOT (EQ NV 1)) (ERROR "Il:stringp's are always origin 1"))) NV) DATUM +NEWVALUE)) (* \; "An inoperative field") (SUBSTRINGED ((OPENLAMBDA (STRING) NIL) DATUM) ((OPENLAMBDA ( +STRING NV) (OR (NULL NV) (ERROR "Substringed field not supported"))) DATUM NEWVALUE)) (READONLY ( +|ffetch| (STRINGP XREADONLY) |of| DATUM) (|freplace| (STRINGP XREADONLY) |of| DATUM |with| NEWVALUE)) +(FATSTRINGP ((OPENLAMBDA (STRING) (EQ (COND ((|fetch| (ARRAY-HEADER INDIRECT-P) |of| STRING) ( +%ARRAY-TYPE-NUMBER STRING)) (T (|fetch| (ARRAY-HEADER TYPE-NUMBER) |of| STRING))) %FAT-CHAR-TYPENUMBER +)) DATUM) ((OPENLAMBDA (STRING NV) (LET ((%NEW-TYPE-NUMBER (COND (NV %FAT-CHAR-TYPENUMBER) (T +%THIN-CHAR-TYPENUMBER)))) (COND ((|fetch| (ARRAY-HEADER INDIRECT-P) |of| STRING) ( +%SET-ARRAY-TYPE-NUMBER STRING %NEW-TYPE-NUMBER)) (T (|replace| (ARRAY-HEADER TYPE-NUMBER) |of| STRING +|with| %NEW-TYPE-NUMBER))))) DATUM NEWVALUE)) (BASE (|ffetch| (STRINGP XBASE) |of| DATUM) (|freplace| +(STRINGP XBASE) |of| DATUM |with| NEWVALUE)))) (CREATE (|create| ONED-ARRAY BASE _ XBASE READ-ONLY-P _ + XREADONLY STRING-P _ T DISPLACED-P _ (NOT (EQ OFFST 0)) TYPE-NUMBER _ (COND ((EQ TYP \\ST.POS16) +%FAT-CHAR-TYPENUMBER) (T %THIN-CHAR-TYPENUMBER)) OFFSET _ OFFST FILL-POINTER _ LENGTH TOTAL-SIZE _ +LENGTH)) (TYPE? (CL:STRINGP DATUM)) OFFST _ 0 TYP _ \\ST.BYTE LENGTH _ 0) +(GLOBALVARS |\\OneCharAtomBase|) +(PUTDEF (QUOTE \\NUMSTR) (QUOTE RESOURCES) (QUOTE (NEW (ALLOCSTRING 128)))) +(PUTDEF (QUOTE \\NUMSTR1) (QUOTE RESOURCES) (QUOTE (NEW (CONCAT)))) +(PUTDEF (QUOTE \\PNAMESTRING) (QUOTE RESOURCES) (QUOTE (NEW (ALLOCSTRING \\PNAMELIMIT NIL NIL +\\FATPNAMESTRINGP)))) +(RPAQQ \\FATPNAMESTRINGP T) +(CONSTANTS (\\FATPNAMESTRINGP T)) +(PUTPROPS \\PNAMESTRINGPUTCHAR MACRO ((BASE OFFSET CODE) (* \; +"For stuffing chars into resource \\PNAMESTRING") (\\PUTBASECHAR \\FATPNAMESTRINGP BASE OFFSET CODE))) +(DEFOPTIMIZER FCHARACTER (NUM) (BQUOTE ((OPENLAMBDA (N) (COND ((IGREATERP N \\MAXTHINCHAR) (* \; "The character we're getting is NOT a thin character -- do it the hard way") (CHARACTER N)) (( -IGREATERP N (CHARCODE 9)) (\ADDBASE \OneCharAtomBase (IDIFFERENCE N 10))) ((IGEQ N (CHARCODE 0)) ( -IDIFFERENCE N (CHARCODE 0))) (T (* ; "The common case -- just add on the one-atom base.") (\ADDBASE -\OneCharAtomBase N)))) (\, NUM)))) -(I.S.OPR (QUOTE inpname) NIL (QUOTE (SUBPAIR (QUOTE ($$END $$BODY $$FATP $$BASE $$OFFSET)) (LIST ( -GETDUMMYVAR) (GETDUMMYVAR) (GETDUMMYVAR) (GETDUMMYVAR) (GETDUMMYVAR)) (BQUOTE (bind $$OFFSET _ 0 -$$BODY _ BODY $$BASE $$END $$FATP declare (LOCALVARS $$END $$BODY $$FATP $$BASE $$OFFSET) first (PROG -NIL $$RETRY (COND ((STRINGP $$BODY) (SETQ $$BASE (ffetch (STRINGP BASE) of $$BODY)) (SETQ $$OFFSET ( -SUB1 (ffetch (STRINGP OFFST) of $$BODY))) (SETQ $$END (IPLUS $$OFFSET (ffetch (STRINGP LENGTH) of -$$BODY))) (SETQ $$FATP (ffetch (STRINGP FATSTRINGP) of $$BODY))) ((LITATOM $$BODY) (SETQ $$BASE ( -ffetch (LITATOM PNAMEBASE) of $$BODY)) (SETQ $$END (ffetch (PNAMEBASE PNAMELENGTH) of $$BASE)) (SETQ -$$FATP (ffetch (LITATOM FATPNAMEP) of $$BODY))) (T (SETQ $$BODY (MKSTRING $$BODY)) (GO $$RETRY)))) -eachtime (SETQ $$OFFSET (ADD1 $$OFFSET)) (AND (IGREATERP $$OFFSET $$END) (GO $$OUT)) (SETQ I.V. (COND -($$FATP (\GETBASEFAT $$BASE $$OFFSET)) (T (\GETBASETHIN $$BASE $$OFFSET)))))))) T) -(I.S.OPR (QUOTE inatom) NIL (QUOTE (SUBPAIR (QUOTE ($$OFFSET $$BODY $$BASE $$END $$FATP)) (LIST ( -GETDUMMYVAR) (GETDUMMYVAR) (GETDUMMYVAR) (GETDUMMYVAR) (GETDUMMYVAR)) (QUOTE (bind $$OFFSET _ 0 $$BODY - _ BODY $$BASE $$END $$FATP declare (LOCALVARS $$OFFSET $$BODY $$BASE $$END $$FATP) first (SETQ $$BASE - (ffetch (LITATOM PNAMEBASE) of $$BODY)) (SETQ $$END (ffetch (PNAMEBASE PNAMELENGTH) of $$BASE)) (SETQ - $$FATP (ffetch (LITATOM FATPNAMEP) of $$BODY)) eachtime (SETQ $$OFFSET (ADD1 $$OFFSET)) (AND ( -IGREATERP $$OFFSET $$END) (GO $$OUT)) (SETQ I.V. (COND ($$FATP (\GETBASEFAT $$BASE $$OFFSET)) (T ( -\GETBASETHIN $$BASE $$OFFSET)))))))) T) -(I.S.OPR (QUOTE instring) NIL (QUOTE (SUBPAIR (QUOTE ($$BODY $$END $$OFFSET $$BASE $$FATP)) (LIST ( -GETDUMMYVAR) (GETDUMMYVAR) (GETDUMMYVAR) (GETDUMMYVAR) (GETDUMMYVAR)) (QUOTE (bind $$BODY _ BODY $$END - $$OFFSET $$BASE $$FATP declare (LOCALVARS $$BODY $$END $$OFFSET $$BASE $$FATP) first (SETQ $$OFFSET ( -SUB1 (ffetch (STRINGP OFFST) of $$BODY))) (SETQ $$BASE (ffetch (STRINGP BASE) of $$BODY)) (SETQ $$END -(IPLUS $$OFFSET (ffetch (STRINGP LENGTH) of $$BODY))) (SETQ $$FATP (ffetch (STRINGP FATSTRINGP) of -$$BODY)) eachtime (SETQ $$OFFSET (ADD1 $$OFFSET)) (AND (IGREATERP $$OFFSET $$END) (GO $$OUT)) (SETQ -I.V. (COND ($$FATP (\GETBASEFAT $$BASE $$OFFSET)) (T (\GETBASETHIN $$BASE $$OFFSET)))))))) T) -(I.S.OPR (QUOTE infatatom) NIL (QUOTE (SUBPAIR (QUOTE ($$OFFSET $$BODY $$BASE $$END)) (LIST ( -GETDUMMYVAR) (GETDUMMYVAR) (GETDUMMYVAR) (GETDUMMYVAR)) (QUOTE (bind $$OFFSET _ 0 $$BODY _ BODY $$BASE - $$END declare (LOCALVARS $$OFFSET $$BODY $$BASE $$END) first (SETQ $$BASE (ffetch (LITATOM PNAMEBASE) - of $$BODY)) (SETQ $$END (ffetch (PNAMEBASE PNAMELENGTH) of $$BASE)) eachtime (SETQ $$OFFSET (ADD1 -$$OFFSET)) (AND (IGREATERP $$OFFSET $$END) (GO $$OUT)) (SETQ I.V. (\GETBASEFAT $$BASE $$OFFSET)))))) T -) -(I.S.OPR (QUOTE inthinatom) NIL (QUOTE (SUBPAIR (QUOTE ($$OFFSET $$BODY $$BASE $$END)) (LIST ( -GETDUMMYVAR) (GETDUMMYVAR) (GETDUMMYVAR) (GETDUMMYVAR)) (QUOTE (bind $$OFFSET _ 0 $$BODY _ BODY $$BASE - $$END declare (LOCALVARS $$OFFSET $$BODY $$BASE $$END) first (SETQ $$BASE (ffetch (LITATOM PNAMEBASE) - of $$BODY)) (SETQ $$END (ffetch (PNAMEBASE PNAMELENGTH) of $$BASE)) eachtime (SETQ $$OFFSET (ADD1 -$$OFFSET)) (AND (IGREATERP $$OFFSET $$END) (GO $$OUT)) (SETQ I.V. (\GETBASETHIN $$BASE $$OFFSET)))))) -T) -(I.S.OPR (QUOTE infatstring) NIL (QUOTE (SUBPAIR (QUOTE ($$BODY $$END $$OFFSET $$BASE)) (LIST ( -GETDUMMYVAR) (GETDUMMYVAR) (GETDUMMYVAR) (GETDUMMYVAR)) (QUOTE (bind $$BODY _ BODY $$END $$OFFSET -$$BASE declare (LOCALVARS $$BODY $$END $$OFFSET $$BASE) first (SETQ $$OFFSET (SUB1 (ffetch (STRINGP -OFFST) of $$BODY))) (SETQ $$BASE (ffetch (STRINGP BASE) of $$BODY)) (SETQ $$END (IPLUS $$OFFSET ( -ffetch (STRINGP LENGTH) of $$BODY))) eachtime (SETQ $$OFFSET (ADD1 $$OFFSET)) (AND (IGREATERP $$OFFSET - $$END) (GO $$OUT)) (SETQ I.V. (\GETBASEFAT $$BASE $$OFFSET)))))) T) -(I.S.OPR (QUOTE inthinstring) NIL (QUOTE (SUBPAIR (QUOTE ($$BODY $$END $$OFFSET $$BASE)) (LIST ( -GETDUMMYVAR) (GETDUMMYVAR) (GETDUMMYVAR) (GETDUMMYVAR)) (QUOTE (bind $$BODY _ BODY $$END $$OFFSET -$$BASE declare (LOCALVARS $$BODY $$END $$OFFSET $$BASE) first (SETQ $$OFFSET (SUB1 (ffetch (STRINGP -OFFST) of $$BODY))) (SETQ $$BASE (ffetch (STRINGP BASE) of $$BODY)) (SETQ $$END (IPLUS $$OFFSET ( -ffetch (STRINGP LENGTH) of $$BODY))) eachtime (SETQ $$OFFSET (ADD1 $$OFFSET)) (AND (IGREATERP $$OFFSET - $$END) (GO $$OUT)) (SETQ I.V. (\GETBASETHIN $$BASE $$OFFSET)))))) T) -(PUTPROPS \CHARCODEP DMACRO (OPENLAMBDA (X) (* ; -"used to also say (ILEQ X \MAXFATCHAR), but that's implied by the first two clauses") (AND (SMALLP X) -(IGEQ X 0)))) -(PUTPROPS \FATCHARCODEP DMACRO (OPENLAMBDA (X) (* ; -"Used to also say (ILEQ X \MAXFATCHAR), but that's implied by the first two clauses") (AND (SMALLP X) -(IGREATERP X \MAXTHINCHAR)))) -(PUTPROPS \THINCHARCODEP DMACRO (OPENLAMBDA (X) (AND (SMALLP X) (IGEQ X 0) (ILEQ X \MAXTHINCHAR)))) -(PUTPROPS \GETBASEFAT MACRO (= . \GETBASE)) -(PUTPROPS \GETBASETHIN MACRO (= . \GETBASEBYTE)) -(PUTPROPS \PUTBASEFAT MACRO (= . \PUTBASE)) -(PUTPROPS \PUTBASETHIN MACRO (= . \PUTBASEBYTE)) -(PUTPROPS \PUTBASECHAR MACRO (OPENLAMBDA (FATP BASE OFFSET CODE) (COND (FATP (\PUTBASEFAT BASE OFFSET -CODE)) (T (\PUTBASETHIN BASE OFFSET CODE))))) -(PUTPROPS \GETBASECHAR MACRO ((FATP BASE N) (COND (FATP (\GETBASEFAT BASE N)) (T (\GETBASETHIN BASE N) -)))) -(PUTPROPS \CHARSET MACRO ((CHARCODE) (LRSH CHARCODE 8))) -(PUTPROPS \CHAR8CODE MACRO ((CHARCODE) (LOGAND CHARCODE 255))) -(RPAQQ \CHARMASK 255) -(RPAQQ \MAXCHAR 255) -(RPAQQ \MAXTHINCHAR 255) -(RPAQQ \MAXFATCHAR 65535) -(RPAQQ \MAXCHARSET 255) -(RPAQQ NSCHARSETSHIFT 255) -(RPAQQ %#STRINGPWORDS 4) -(CONSTANTS (\CHARMASK 255) (\MAXCHAR 255) (\MAXTHINCHAR 255) (\MAXFATCHAR 65535) (\MAXCHARSET 255) ( -NSCHARSETSHIFT 255) (%#STRINGPWORDS 4)) -(PUTPROPS \NATOMCHARS DMACRO ((AT) (fetch (LITATOM PNAMELENGTH) of AT))) -(PUTPROPS \NSTRINGCHARS DMACRO ((S) (fetch (STRINGP LENGTH) of S))) -(PUTPROP (QUOTE LLCHAR) (QUOTE IMPORTDATE) (IDATE "27-Apr-2021 20:06:09")) +IGREATERP N (CHARCODE 9)) (\\ADDBASE |\\OneCharAtomBase| (IDIFFERENCE N 10))) ((IGEQ N (CHARCODE 0)) ( +IDIFFERENCE N (CHARCODE 0))) (T (* \; "The common case -- just add on the one-atom base.") (\\ADDBASE +|\\OneCharAtomBase| N)))) (\\\, NUM)))) +(I.S.OPR (QUOTE |inpname|) NIL (QUOTE (SUBPAIR (QUOTE ($$END $$BODY $$FATP $$BASE $$OFFSET)) (LIST ( +GETDUMMYVAR) (GETDUMMYVAR) (GETDUMMYVAR) (GETDUMMYVAR) (GETDUMMYVAR)) (BQUOTE (|bind| $$OFFSET _ 0 +$$BODY _ BODY $$BASE $$END $$FATP |declare| (LOCALVARS $$END $$BODY $$FATP $$BASE $$OFFSET) |first| ( +PROG NIL $$RETRY (COND ((STRINGP $$BODY) (SETQ $$BASE (|ffetch| (STRINGP BASE) |of| $$BODY)) (SETQ +$$OFFSET (SUB1 (|ffetch| (STRINGP OFFST) |of| $$BODY))) (SETQ $$END (IPLUS $$OFFSET (|ffetch| (STRINGP + LENGTH) |of| $$BODY))) (SETQ $$FATP (|ffetch| (STRINGP FATSTRINGP) |of| $$BODY))) ((LITATOM $$BODY) ( +SETQ $$BASE (|ffetch| (LITATOM PNAMEBASE) |of| $$BODY)) (SETQ $$END (|ffetch| (PNAMEBASE PNAMELENGTH) +|of| $$BASE)) (SETQ $$FATP (|ffetch| (LITATOM FATPNAMEP) |of| $$BODY))) (T (SETQ $$BODY (MKSTRING +$$BODY)) (GO $$RETRY)))) |eachtime| (SETQ $$OFFSET (ADD1 $$OFFSET)) (AND (IGREATERP $$OFFSET $$END) ( +GO $$OUT)) (SETQ I.V. (COND ($$FATP (\\GETBASEFAT $$BASE $$OFFSET)) (T (\\GETBASETHIN $$BASE $$OFFSET) +))))))) T) +(I.S.OPR (QUOTE |inatom|) NIL (QUOTE (SUBPAIR (QUOTE ($$OFFSET $$BODY $$BASE $$END $$FATP)) (LIST ( +GETDUMMYVAR) (GETDUMMYVAR) (GETDUMMYVAR) (GETDUMMYVAR) (GETDUMMYVAR)) (QUOTE (|bind| $$OFFSET _ 0 +$$BODY _ BODY $$BASE $$END $$FATP |declare| (LOCALVARS $$OFFSET $$BODY $$BASE $$END $$FATP) |first| ( +SETQ $$BASE (|ffetch| (LITATOM PNAMEBASE) |of| $$BODY)) (SETQ $$END (|ffetch| (PNAMEBASE PNAMELENGTH) +|of| $$BASE)) (SETQ $$FATP (|ffetch| (LITATOM FATPNAMEP) |of| $$BODY)) |eachtime| (SETQ $$OFFSET (ADD1 + $$OFFSET)) (AND (IGREATERP $$OFFSET $$END) (GO $$OUT)) (SETQ I.V. (COND ($$FATP (\\GETBASEFAT $$BASE +$$OFFSET)) (T (\\GETBASETHIN $$BASE $$OFFSET)))))))) T) +(I.S.OPR (QUOTE |instring|) NIL (QUOTE (SUBPAIR (QUOTE ($$BODY $$END $$OFFSET $$BASE $$FATP)) (LIST ( +GETDUMMYVAR) (GETDUMMYVAR) (GETDUMMYVAR) (GETDUMMYVAR) (GETDUMMYVAR)) (QUOTE (|bind| $$BODY _ BODY +$$END $$OFFSET $$BASE $$FATP |declare| (LOCALVARS $$BODY $$END $$OFFSET $$BASE $$FATP) |first| (SETQ +$$OFFSET (SUB1 (|ffetch| (STRINGP OFFST) |of| $$BODY))) (SETQ $$BASE (|ffetch| (STRINGP BASE) |of| +$$BODY)) (SETQ $$END (IPLUS $$OFFSET (|ffetch| (STRINGP LENGTH) |of| $$BODY))) (SETQ $$FATP (|ffetch| +(STRINGP FATSTRINGP) |of| $$BODY)) |eachtime| (SETQ $$OFFSET (ADD1 $$OFFSET)) (AND (IGREATERP $$OFFSET + $$END) (GO $$OUT)) (SETQ I.V. (COND ($$FATP (\\GETBASEFAT $$BASE $$OFFSET)) (T (\\GETBASETHIN $$BASE +$$OFFSET)))))))) T) +(I.S.OPR (QUOTE |infatatom|) NIL (QUOTE (SUBPAIR (QUOTE ($$OFFSET $$BODY $$BASE $$END)) (LIST ( +GETDUMMYVAR) (GETDUMMYVAR) (GETDUMMYVAR) (GETDUMMYVAR)) (QUOTE (|bind| $$OFFSET _ 0 $$BODY _ BODY +$$BASE $$END |declare| (LOCALVARS $$OFFSET $$BODY $$BASE $$END) |first| (SETQ $$BASE (|ffetch| ( +LITATOM PNAMEBASE) |of| $$BODY)) (SETQ $$END (|ffetch| (PNAMEBASE PNAMELENGTH) |of| $$BASE)) +|eachtime| (SETQ $$OFFSET (ADD1 $$OFFSET)) (AND (IGREATERP $$OFFSET $$END) (GO $$OUT)) (SETQ I.V. ( +\\GETBASEFAT $$BASE $$OFFSET)))))) T) +(I.S.OPR (QUOTE |inthinatom|) NIL (QUOTE (SUBPAIR (QUOTE ($$OFFSET $$BODY $$BASE $$END)) (LIST ( +GETDUMMYVAR) (GETDUMMYVAR) (GETDUMMYVAR) (GETDUMMYVAR)) (QUOTE (|bind| $$OFFSET _ 0 $$BODY _ BODY +$$BASE $$END |declare| (LOCALVARS $$OFFSET $$BODY $$BASE $$END) |first| (SETQ $$BASE (|ffetch| ( +LITATOM PNAMEBASE) |of| $$BODY)) (SETQ $$END (|ffetch| (PNAMEBASE PNAMELENGTH) |of| $$BASE)) +|eachtime| (SETQ $$OFFSET (ADD1 $$OFFSET)) (AND (IGREATERP $$OFFSET $$END) (GO $$OUT)) (SETQ I.V. ( +\\GETBASETHIN $$BASE $$OFFSET)))))) T) +(I.S.OPR (QUOTE |infatstring|) NIL (QUOTE (SUBPAIR (QUOTE ($$BODY $$END $$OFFSET $$BASE)) (LIST ( +GETDUMMYVAR) (GETDUMMYVAR) (GETDUMMYVAR) (GETDUMMYVAR)) (QUOTE (|bind| $$BODY _ BODY $$END $$OFFSET +$$BASE |declare| (LOCALVARS $$BODY $$END $$OFFSET $$BASE) |first| (SETQ $$OFFSET (SUB1 (|ffetch| ( +STRINGP OFFST) |of| $$BODY))) (SETQ $$BASE (|ffetch| (STRINGP BASE) |of| $$BODY)) (SETQ $$END (IPLUS +$$OFFSET (|ffetch| (STRINGP LENGTH) |of| $$BODY))) |eachtime| (SETQ $$OFFSET (ADD1 $$OFFSET)) (AND ( +IGREATERP $$OFFSET $$END) (GO $$OUT)) (SETQ I.V. (\\GETBASEFAT $$BASE $$OFFSET)))))) T) +(I.S.OPR (QUOTE |inthinstring|) NIL (QUOTE (SUBPAIR (QUOTE ($$BODY $$END $$OFFSET $$BASE)) (LIST ( +GETDUMMYVAR) (GETDUMMYVAR) (GETDUMMYVAR) (GETDUMMYVAR)) (QUOTE (|bind| $$BODY _ BODY $$END $$OFFSET +$$BASE |declare| (LOCALVARS $$BODY $$END $$OFFSET $$BASE) |first| (SETQ $$OFFSET (SUB1 (|ffetch| ( +STRINGP OFFST) |of| $$BODY))) (SETQ $$BASE (|ffetch| (STRINGP BASE) |of| $$BODY)) (SETQ $$END (IPLUS +$$OFFSET (|ffetch| (STRINGP LENGTH) |of| $$BODY))) |eachtime| (SETQ $$OFFSET (ADD1 $$OFFSET)) (AND ( +IGREATERP $$OFFSET $$END) (GO $$OUT)) (SETQ I.V. (\\GETBASETHIN $$BASE $$OFFSET)))))) T) +(PUTPROPS \\CHARCODEP DMACRO (OPENLAMBDA (X) (* \; +"used to also say (ILEQ X \\MAXFATCHAR), but that's implied by the first two clauses") (AND (SMALLP X) + (IGEQ X 0)))) +(PUTPROPS \\FATCHARCODEP DMACRO (OPENLAMBDA (X) (* \; +"Used to also say (ILEQ X \\MAXFATCHAR), but that's implied by the first two clauses") (AND (SMALLP X) + (IGREATERP X \\MAXTHINCHAR)))) +(PUTPROPS \\THINCHARCODEP DMACRO (OPENLAMBDA (X) (AND (SMALLP X) (IGEQ X 0) (ILEQ X \\MAXTHINCHAR)))) +(PUTPROPS \\GETBASEFAT MACRO (= . \\GETBASE)) +(PUTPROPS \\GETBASETHIN MACRO (= . \\GETBASEBYTE)) +(PUTPROPS \\PUTBASEFAT MACRO (= . \\PUTBASE)) +(PUTPROPS \\PUTBASETHIN MACRO (= . \\PUTBASEBYTE)) +(PUTPROPS \\PUTBASECHAR MACRO (OPENLAMBDA (FATP BASE OFFSET CODE) (COND (FATP (\\PUTBASEFAT BASE +OFFSET CODE)) (T (\\PUTBASETHIN BASE OFFSET CODE))))) +(PUTPROPS \\GETBASECHAR MACRO ((FATP BASE N) (COND (FATP (\\GETBASEFAT BASE N)) (T (\\GETBASETHIN BASE + N))))) +(PUTPROPS \\CHARSET MACRO ((CHARCODE) (LRSH CHARCODE 8))) +(PUTPROPS \\CHAR8CODE MACRO ((CHARCODE) (LOGAND CHARCODE 255))) +(RPAQQ \\CHARMASK 255) +(RPAQQ \\MAXCHAR 255) +(RPAQQ \\MAXTHINCHAR 255) +(RPAQQ \\MAXFATCHAR 65535) +(RPAQQ \\MAXCHARSET 255) +(RPAQQ \#STRINGPWORDS 4) +(CONSTANTS (\\CHARMASK 255) (\\MAXCHAR 255) (\\MAXTHINCHAR 255) (\\MAXFATCHAR 65535) (\\MAXCHARSET 255 +) (\#STRINGPWORDS 4)) +(PUTPROPS \\NATOMCHARS DMACRO ((AT) (|fetch| (LITATOM PNAMELENGTH) |of| AT))) +(PUTPROPS \\NSTRINGCHARS DMACRO ((S) (|fetch| (STRINGP LENGTH) |of| S))) +(PUTPROP (QUOTE LLCHAR) (QUOTE IMPORTDATE) (IDATE "21-Jun-2021 18:08:19")) -(ACCESSFNS BF ((BFBLOCK (ADDSTACKBASE DATUM))) (* ; "basic frame pointer") (BLOCKRECORD BFBLOCK (( -FLAGS BITS 3) (NIL BITS 3) (RESIDUAL FLAG) (* ; "true if this is not a full BF") (PADDING BITS 1) ( -USECNT BITS 8) (IVAR WORD))) (TYPE? (IEQ (fetch (BF FLAGS) of DATUM) \STK.BF)) (ACCESSFNS BF ((NARGS ( -IDIFFERENCE (FOLDLO (IDIFFERENCE DATUM (fetch (BF IVAR) of DATUM)) WORDSPERCELL) (fetch (BF PADDING) -of DATUM))) (SIZE (IPLUS 2 (IDIFFERENCE DATUM (fetch (BF IVAR) of DATUM)))) (CHECKED (AND (type? BF -DATUM) (for I from (fetch (BF IVAR) of DATUM) to (IDIFFERENCE DATUM 2) by 2 always (IEQ \STK.NOTFLAG ( -fetch (BF FLAGS) of I)))))))) -(ACCESSFNS FX ((FXBLOCK (ADDSTACKBASE DATUM))) (* ; "frame extension index") (BLOCKRECORD FXBLOCK (( -FLAGS BITS 3) (* ; "= \STK.FX") (FAST FLAG) (NIL FLAG) (INCALL FLAG) (* ; -"set when fncall microcode has to punt") (VALIDNAMETABLE FLAG) (* ; -"if on, NAMETABLE field is filled in. If off, is same as FNHEADER") (NOPUSH FLAG) (* ; -"when returning to this frame, don't push a value. Set by interrupt code") (USECNT BITS 8) (%#ALINK -WORD) (* ; "low bit is SLOWP") (FNHEADER FULLXPOINTER) (NEXTBLOCK WORD) (PC WORD) (NAMETABLE# -FULLXPOINTER) (%#BLINK WORD) (%#CLINK WORD))) (BLOCKRECORD FXBLOCK ((FLAGBYTE BYTE) (NIL BYTE) (NIL -BITS 15) (* ; "most of the bits of #ALINK") (SLOWP FLAG) (* ; +(ACCESSFNS BF ((BFBLOCK (ADDSTACKBASE DATUM))) (* \; "basic frame pointer") (BLOCKRECORD BFBLOCK (( +FLAGS BITS 3) (NIL BITS 3) (RESIDUAL FLAG) (* \; "true if this is not a full BF") (PADDING BITS 1) ( +USECNT BITS 8) (IVAR WORD))) (TYPE? (IEQ (|fetch| (BF FLAGS) |of| DATUM) \\STK.BF)) (ACCESSFNS BF (( +NARGS (IDIFFERENCE (FOLDLO (IDIFFERENCE DATUM (|fetch| (BF IVAR) |of| DATUM)) WORDSPERCELL) (|fetch| ( +BF PADDING) |of| DATUM))) (SIZE (IPLUS 2 (IDIFFERENCE DATUM (|fetch| (BF IVAR) |of| DATUM)))) (CHECKED + (AND (|type?| BF DATUM) (|for| I |from| (|fetch| (BF IVAR) |of| DATUM) |to| (IDIFFERENCE DATUM 2) +|by| 2 |always| (IEQ \\STK.NOTFLAG (|fetch| (BF FLAGS) |of| I)))))))) +(ACCESSFNS FX ((FXBLOCK (ADDSTACKBASE DATUM))) (* \; "frame extension index") (BLOCKRECORD FXBLOCK (( +FLAGS BITS 3) (* \; "= \\STK.FX") (FAST FLAG) (NIL FLAG) (INCALL FLAG) (* \; +"set when fncall microcode has to punt") (VALIDNAMETABLE FLAG) (* \; +"if on, NAMETABLE field is filled in. If off, is same as FNHEADER") (NOPUSH FLAG) (* \; +"when returning to this frame, don't push a value. Set by interrupt code") (USECNT BITS 8) (\#ALINK +WORD) (* \; "low bit is SLOWP") (FNHEADER FULLXPOINTER) (NEXTBLOCK WORD) (PC WORD) (NAMETABLE# +FULLXPOINTER) (\#BLINK WORD) (\#CLINK WORD))) (BLOCKRECORD FXBLOCK ((FLAGBYTE BYTE) (NIL BYTE) (NIL +BITS 15) (* \; "most of the bits of #ALINK") (SLOWP FLAG) (* \; "if on, then BLINK and CLINK fields are valid. If off, they are implicit") (NIL FULLXPOINTER 2) ( -NAMETABHI WORD) (NAMETABLO WORD))) (TYPE? (IEQ (fetch (FX FLAGS) of DATUM) \STK.FX)) (ACCESSFNS FX (( -NAMETABLE (COND ((fetch (FX VALIDNAMETABLE) of DATUM) (fetch (FX NAMETABLE#) of DATUM)) (T (fetch (FX -FNHEADER) of DATUM))) (PROGN (replace (FX FAST) of DATUM with NIL) (replace (FX NAMETABLE#) of DATUM -with NEWVALUE) (replace (FX VALIDNAMETABLE) of DATUM with T))) (FRAMENAME (fetch (FNHEADER FRAMENAME) -of (fetch (FX NAMETABLE) of DATUM))) (INVALIDP (EQ DATUM 0)) (* ; -"true when A/CLink points at nobody, i.e. FX is bottom of stack") (FASTP (NOT (fetch (FX SLOWP) of -DATUM)) (PROGN (CHECK (NULL NEWVALUE)) (COND ((fetch (FX FASTP) of DATUM) (replace (FX %#BLINK) of -DATUM with (fetch (FX DUMMYBF) of DATUM)) (replace (FX %#CLINK) of DATUM with (fetch (FX %#ALINK) of -DATUM)) (replace (FX SLOWP) of DATUM with T))))) (BLINK (COND ((fetch (FX FASTP) of DATUM) (fetch (FX -DUMMYBF) of DATUM)) (T (fetch (FX %#BLINK) of DATUM))) (PROGN (replace (FX %#BLINK) of DATUM with -NEWVALUE) (COND ((fetch (FX FASTP) of DATUM) (replace (FX %#CLINK) of DATUM with (fetch (FX %#ALINK) -of DATUM)) (replace (FX SLOWP) of DATUM with T))))) (CLINK (IDIFFERENCE (COND ((fetch (FX FASTP) of -DATUM) (fetch (FX %#ALINK) of DATUM)) (T (fetch (FX %#CLINK) of DATUM))) \#ALINK.OFFSET) (PROGN ( -replace (FX %#CLINK) of DATUM with (IPLUS NEWVALUE \#ALINK.OFFSET)) (COND ((fetch (FX FASTP) of DATUM) - (replace (FX %#BLINK) of DATUM with (fetch (FX DUMMYBF) of DATUM)) (replace (FX SLOWP) of DATUM with -T))))) (ALINK (IDIFFERENCE (FLOOR (fetch (FX %#ALINK) of DATUM) WORDSPERCELL) \#ALINK.OFFSET) (PROGN ( -COND ((fetch (FX FASTP) of DATUM) (replace (FX %#BLINK) of DATUM with (fetch (FX DUMMYBF) of DATUM)) ( -replace (FX %#CLINK) of DATUM with (fetch (FX %#ALINK) of DATUM)))) (replace (FX %#ALINK) of DATUM -with (IPLUS NEWVALUE \#ALINK.OFFSET (SUB1 WORDSPERCELL))))) (ACLINK (SHOULDNT) (PROGN (COND ((fetch ( -FX FASTP) of DATUM) (replace (FX %#BLINK) of DATUM with (fetch (FX DUMMYBF) of DATUM)))) (replace (FX -%#CLINK) of DATUM with (IPLUS NEWVALUE \#ALINK.OFFSET)) (replace (FX %#ALINK) of DATUM with (IPLUS -NEWVALUE \#ALINK.OFFSET (SUB1 WORDSPERCELL))))) (* ; +NAMETABHI WORD) (NAMETABLO WORD))) (TYPE? (IEQ (|fetch| (FX FLAGS) |of| DATUM) \\STK.FX)) (ACCESSFNS +FX ((NAMETABLE (COND ((|fetch| (FX VALIDNAMETABLE) |of| DATUM) (|fetch| (FX NAMETABLE#) |of| DATUM)) ( +T (|fetch| (FX FNHEADER) |of| DATUM))) (PROGN (|replace| (FX FAST) |of| DATUM |with| NIL) (|replace| ( +FX NAMETABLE#) |of| DATUM |with| NEWVALUE) (|replace| (FX VALIDNAMETABLE) |of| DATUM |with| T))) ( +FRAMENAME (|fetch| (FNHEADER FRAMENAME) |of| (|fetch| (FX NAMETABLE) |of| DATUM))) (INVALIDP (EQ DATUM + 0)) (* \; "true when A/CLink points at nobody, i.e. FX is bottom of stack") (FASTP (NOT (|fetch| (FX +SLOWP) |of| DATUM)) (PROGN (CHECK (NULL NEWVALUE)) (COND ((|fetch| (FX FASTP) |of| DATUM) (|replace| ( +FX \#BLINK) |of| DATUM |with| (|fetch| (FX DUMMYBF) |of| DATUM)) (|replace| (FX \#CLINK) |of| DATUM +|with| (|fetch| (FX \#ALINK) |of| DATUM)) (|replace| (FX SLOWP) |of| DATUM |with| T))))) (BLINK (COND +((|fetch| (FX FASTP) |of| DATUM) (|fetch| (FX DUMMYBF) |of| DATUM)) (T (|fetch| (FX \#BLINK) |of| +DATUM))) (PROGN (|replace| (FX \#BLINK) |of| DATUM |with| NEWVALUE) (COND ((|fetch| (FX FASTP) |of| +DATUM) (|replace| (FX \#CLINK) |of| DATUM |with| (|fetch| (FX \#ALINK) |of| DATUM)) (|replace| (FX +SLOWP) |of| DATUM |with| T))))) (CLINK (IDIFFERENCE (COND ((|fetch| (FX FASTP) |of| DATUM) (|fetch| ( +FX \#ALINK) |of| DATUM)) (T (|fetch| (FX \#CLINK) |of| DATUM))) \\#ALINK.OFFSET) (PROGN (|replace| (FX + \#CLINK) |of| DATUM |with| (IPLUS NEWVALUE \\#ALINK.OFFSET)) (COND ((|fetch| (FX FASTP) |of| DATUM) ( +|replace| (FX \#BLINK) |of| DATUM |with| (|fetch| (FX DUMMYBF) |of| DATUM)) (|replace| (FX SLOWP) |of| + DATUM |with| T))))) (ALINK (IDIFFERENCE (FLOOR (|fetch| (FX \#ALINK) |of| DATUM) WORDSPERCELL) +\\#ALINK.OFFSET) (PROGN (COND ((|fetch| (FX FASTP) |of| DATUM) (|replace| (FX \#BLINK) |of| DATUM +|with| (|fetch| (FX DUMMYBF) |of| DATUM)) (|replace| (FX \#CLINK) |of| DATUM |with| (|fetch| (FX +\#ALINK) |of| DATUM)))) (|replace| (FX \#ALINK) |of| DATUM |with| (IPLUS NEWVALUE \\#ALINK.OFFSET ( +SUB1 WORDSPERCELL))))) (ACLINK (SHOULDNT) (PROGN (COND ((|fetch| (FX FASTP) |of| DATUM) (|replace| (FX + \#BLINK) |of| DATUM |with| (|fetch| (FX DUMMYBF) |of| DATUM)))) (|replace| (FX \#CLINK) |of| DATUM +|with| (IPLUS NEWVALUE \\#ALINK.OFFSET)) (|replace| (FX \#ALINK) |of| DATUM |with| (IPLUS NEWVALUE +\\#ALINK.OFFSET (SUB1 WORDSPERCELL))))) (* \; "replaces A & C Links at once more efficiently than separately") (DUMMYBF (IDIFFERENCE DATUM -WORDSPERCELL)) (* ;; -"This is either an actual BF or %"residual%" BF that provides enough BF to find its IVAR slot. This means that when a FX is copied, the cell preceding the FX is copied too." -) (IVAR (fetch (BF IVAR) of (fetch (FX DUMMYBF) of DATUM))) (CHECKED (AND (type? FX DATUM) (OR (IEQ ( -fetch (FX DUMMYBF) of DATUM) (fetch (FX BLINK) of DATUM)) (AND (fetch (BF RESIDUAL) of (fetch (FX -DUMMYBF) of DATUM)) (IEQ (fetch (BF IVAR) of (fetch (FX DUMMYBF) of DATUM)) (fetch (BF IVAR) of (fetch - (FX BLINK) of DATUM))))))) (FIRSTPVAR (IPLUS DATUM (fetch (FX FXSIZE) of T))) (* ; -"stack offset of PVAR0") (FXSIZE (PROGN 10)) (* ; "fixed overhead from flags thru clink") (PADDING ( -PROGN 4)) (* ; "doublecell of garbage for microcode use") (FIRSTTEMP (IPLUS (fetch (FX FIRSTPVAR) of -DATUM) (fetch (FX NPVARWORDS) of DATUM) (fetch (FX PADDING) of DATUM))) (* ; -"note that NPVARWORDS is obtained from the FNHEADER") (SIZE (IDIFFERENCE (fetch (FX NEXTBLOCK) of +WORDSPERCELL)) (* |;;| +"This is either an actual BF or \"residual\" BF that provides enough BF to find its IVAR slot. This means that when a FX is copied, the cell preceding the FX is copied too." +) (IVAR (|fetch| (BF IVAR) |of| (|fetch| (FX DUMMYBF) |of| DATUM))) (CHECKED (AND (|type?| FX DATUM) ( +OR (IEQ (|fetch| (FX DUMMYBF) |of| DATUM) (|fetch| (FX BLINK) |of| DATUM)) (AND (|fetch| (BF RESIDUAL) + |of| (|fetch| (FX DUMMYBF) |of| DATUM)) (IEQ (|fetch| (BF IVAR) |of| (|fetch| (FX DUMMYBF) |of| DATUM +)) (|fetch| (BF IVAR) |of| (|fetch| (FX BLINK) |of| DATUM))))))) (FIRSTPVAR (IPLUS DATUM (|fetch| (FX +FXSIZE) |of| T))) (* \; "stack offset of PVAR0") (FXSIZE (PROGN 10)) (* \; +"fixed overhead from flags thru clink") (PADDING (PROGN 4)) (* \; +"doublecell of garbage for microcode use") (FIRSTTEMP (IPLUS (|fetch| (FX FIRSTPVAR) |of| DATUM) ( +|fetch| (FX NPVARWORDS) |of| DATUM) (|fetch| (FX PADDING) |of| DATUM))) (* \; +"note that NPVARWORDS is obtained from the FNHEADER") (SIZE (IDIFFERENCE (|fetch| (FX NEXTBLOCK) |of| DATUM) DATUM))))) -(ACCESSFNS FSB (* ;; "FREE STACK BLOCK -- ") (* ;; " A piece of stack space that's free.") (* ;; -"The first word contains 120000Q") (* ;; "The 2nd word is the size of the block, in words.") (( -FSBBLOCK (ADDSTACKBASE DATUM)) (CHECKED (IEQ (fetch (FSB FLAGWORD) of DATUM) \STK.FSB.WORD))) ( +(ACCESSFNS FSB (* |;;| "FREE STACK BLOCK -- ") (* |;;| " A piece of stack space that's free.") (* |;;| + "The first word contains 120000Q") (* |;;| "The 2nd word is the size of the block, in words.") (( +FSBBLOCK (ADDSTACKBASE DATUM)) (CHECKED (IEQ (|fetch| (FSB FLAGWORD) |of| DATUM) \\STK.FSB.WORD))) ( BLOCKRECORD FSBBLOCK ((FLAGS BITS 3) (DUMMY BITS 13) (SIZE WORD))) (BLOCKRECORD FSBBLOCK ((FLAGWORD -WORD) (SIZE WORD))) (* ; "free stack block") (TYPE? (IEQ (fetch (FSB FLAGS) of DATUM) \STK.FSB))) -(ACCESSFNS STK ((STKBLOCK (ADDSTACKBASE DATUM))) (* ; "unspecified stack block") (BLOCKRECORD STKBLOCK - ((FLAGS BITS 3))) (BLOCKRECORD STKBLOCK ((FLAGWORD WORD)))) -(RPAQQ \#ALINK.OFFSET 10) -(CONSTANTS \#ALINK.OFFSET) -(GLOBALVARS \PENDINGINTERRUPT \KBDSTACKBASE \MISCSTACKBASE \STACKOVERFLOW) -(PUTPROPS \MYALINK DMACRO (NIL ((OPCODES MYALINK)))) +WORD) (SIZE WORD))) (* \; "free stack block") (TYPE? (IEQ (|fetch| (FSB FLAGS) |of| DATUM) \\STK.FSB)) +) +(ACCESSFNS STK ((STKBLOCK (ADDSTACKBASE DATUM))) (* \; "unspecified stack block") (BLOCKRECORD +STKBLOCK ((FLAGS BITS 3))) (BLOCKRECORD STKBLOCK ((FLAGWORD WORD)))) +(RPAQQ \\#ALINK.OFFSET 10) +(CONSTANTS \\#ALINK.OFFSET) +(GLOBALVARS \\PENDINGINTERRUPT \\KBDSTACKBASE \\MISCSTACKBASE \\STACKOVERFLOW) +(PUTPROPS \\MYALINK DMACRO (NIL ((OPCODES MYALINK)))) (PUTPROPS ADDSTACKBASE DMACRO (= . STACKADDBASE)) -(PUTPROPS STACKADDBASE DMACRO ((N) (VAG2 \STACKHI N))) -(PUTPROPS STACKGETBASE DMACRO ((N) (\GETBASE (STACKADDBASE N) 0))) -(PUTPROPS STACKGETBASEPTR DMACRO ((N) (\GETBASEPTR (STACKADDBASE N) 0))) -(PUTPROPS STACKPUTBASE DMACRO ((N V) (\PUTBASE (STACKADDBASE N) 0 V))) -(PUTPROPS STACKPUTBASEPTR DMACRO ((N V) (\PUTBASEPTR (STACKADDBASE N) 0 V))) -(PUTPROPS \MISCAPPLY* MACRO ((FN ARG1 ARG2) (UNINTERRUPTABLY (replace (IFPAGE MISCSTACKFN) of -\InterfacePage with FN) (replace (IFPAGE MISCSTACKARG1) of \InterfacePage with ARG1) (replace (IFPAGE -MISCSTACKARG2) of \InterfacePage with ARG2) (\CONTEXTSWITCH \MiscFXP) (fetch (IFPAGE MISCSTACKRESULT) -of \InterfacePage)))) +(PUTPROPS STACKADDBASE DMACRO ((N) (VAG2 \\STACKHI N))) +(PUTPROPS STACKGETBASE DMACRO ((N) (\\GETBASE (STACKADDBASE N) 0))) +(PUTPROPS STACKGETBASEPTR DMACRO ((N) (\\GETBASEPTR (STACKADDBASE N) 0))) +(PUTPROPS STACKPUTBASE DMACRO ((N V) (\\PUTBASE (STACKADDBASE N) 0 V))) +(PUTPROPS STACKPUTBASEPTR DMACRO ((N V) (\\PUTBASEPTR (STACKADDBASE N) 0 V))) +(PUTPROPS \\MISCAPPLY* MACRO ((FN ARG1 ARG2) (UNINTERRUPTABLY (|replace| (IFPAGE MISCSTACKFN) |of| +|\\InterfacePage| |with| FN) (|replace| (IFPAGE MISCSTACKARG1) |of| |\\InterfacePage| |with| ARG1) ( +|replace| (IFPAGE MISCSTACKARG2) |of| |\\InterfacePage| |with| ARG2) (\\CONTEXTSWITCH |\\MiscFXP|) ( +|fetch| (IFPAGE MISCSTACKRESULT) |of| |\\InterfacePage|)))) (BLOCKRECORD STACKP ((STACKP0 WORD) (EDFXP WORD)) (BLOCKRECORD STACKP ((STACKPOINTER FULLXPOINTER))) ( TYPE? (STACKP DATUM))) -(RPAQQ STACKTYPES (\STK.GUARD \STK.FX \STK.BF \STK.NOTFLAG \STK.FSB \STK.FLAGS.SHIFT (\STK.FSB.WORD ( -LLSH \STK.FSB \STK.FLAGS.SHIFT)) (\STK.GUARD.WORD (LLSH \STK.GUARD \STK.FLAGS.SHIFT)) (\STK.BF.WORD ( -LLSH \STK.BF \STK.FLAGS.SHIFT)))) -(RPAQQ \STK.GUARD 7) -(RPAQQ \STK.FX 6) -(RPAQQ \STK.BF 4) -(RPAQQ \STK.NOTFLAG 0) -(RPAQQ \STK.FSB 5) -(RPAQQ \STK.FLAGS.SHIFT 13) -(RPAQ \STK.FSB.WORD (LLSH \STK.FSB \STK.FLAGS.SHIFT)) -(RPAQ \STK.GUARD.WORD (LLSH \STK.GUARD \STK.FLAGS.SHIFT)) -(RPAQ \STK.BF.WORD (LLSH \STK.BF \STK.FLAGS.SHIFT)) -(CONSTANTS \STK.GUARD \STK.FX \STK.BF \STK.NOTFLAG \STK.FSB \STK.FLAGS.SHIFT (\STK.FSB.WORD (LLSH -\STK.FSB \STK.FLAGS.SHIFT)) (\STK.GUARD.WORD (LLSH \STK.GUARD \STK.FLAGS.SHIFT)) (\STK.BF.WORD (LLSH -\STK.BF \STK.FLAGS.SHIFT))) -(RPAQQ \StackAreaSize 768) -(RPAQ \InitStackSize (ITIMES \StackAreaSize 12)) -(CONSTANTS \StackAreaSize (\InitStackSize (ITIMES \StackAreaSize 12))) -(RPAQQ \MAXSAFEUSECOUNT 200) -(CONSTANTS \MAXSAFEUSECOUNT) +(RPAQQ STACKTYPES (\\STK.GUARD \\STK.FX \\STK.BF \\STK.NOTFLAG \\STK.FSB \\STK.FLAGS.SHIFT ( +\\STK.FSB.WORD (LLSH \\STK.FSB \\STK.FLAGS.SHIFT)) (\\STK.GUARD.WORD (LLSH \\STK.GUARD +\\STK.FLAGS.SHIFT)) (\\STK.BF.WORD (LLSH \\STK.BF \\STK.FLAGS.SHIFT)))) +(RPAQQ \\STK.GUARD 7) +(RPAQQ \\STK.FX 6) +(RPAQQ \\STK.BF 4) +(RPAQQ \\STK.NOTFLAG 0) +(RPAQQ \\STK.FSB 5) +(RPAQQ \\STK.FLAGS.SHIFT 13) +(RPAQ \\STK.FSB.WORD (LLSH \\STK.FSB \\STK.FLAGS.SHIFT)) +(RPAQ \\STK.GUARD.WORD (LLSH \\STK.GUARD \\STK.FLAGS.SHIFT)) +(RPAQ \\STK.BF.WORD (LLSH \\STK.BF \\STK.FLAGS.SHIFT)) +(CONSTANTS \\STK.GUARD \\STK.FX \\STK.BF \\STK.NOTFLAG \\STK.FSB \\STK.FLAGS.SHIFT (\\STK.FSB.WORD ( +LLSH \\STK.FSB \\STK.FLAGS.SHIFT)) (\\STK.GUARD.WORD (LLSH \\STK.GUARD \\STK.FLAGS.SHIFT)) ( +\\STK.BF.WORD (LLSH \\STK.BF \\STK.FLAGS.SHIFT))) +(RPAQQ |\\StackAreaSize| 768) +(RPAQ |\\InitStackSize| (ITIMES |\\StackAreaSize| 12)) +(CONSTANTS |\\StackAreaSize| (|\\InitStackSize| (ITIMES |\\StackAreaSize| 12))) +(RPAQQ \\MAXSAFEUSECOUNT 200) +(CONSTANTS \\MAXSAFEUSECOUNT) (BLOCKRECORD NAMETABLESLOT ((VARTYPE BYTE) (VAROFFSET BYTE))) -(BLOCKRECORD FVARSLOT ((BINDLO WORD) (BINDHI WORD)) (ACCESSFNS FVARSLOT ((LOOKEDUP (EVENP (fetch -BINDLO of DATUM))) (BINDINGPTR (\VAG2 (fetch BINDHI of DATUM) (fetch BINDLO of DATUM)) (PROGN (replace - BINDLO of DATUM with (\LOLOC NEWVALUE)) (replace BINDHI of DATUM with (\HILOC NEWVALUE))))))) -(BLOCKRECORD PVARSLOT ((PVHI BITS 4) (PVVALUE XPOINTER)) (ACCESSFNS PVARSLOT ((BOUND (EQ (fetch ( -PVARSLOT PVHI) of DATUM) 0) (if (NULL NEWVALUE) then (replace (PVARSLOT PVHI) of DATUM with 255) else -(ERROR "Illegal replace" NEWVALUE)))))) +(BLOCKRECORD FVARSLOT ((BINDLO WORD) (BINDHI WORD)) (ACCESSFNS FVARSLOT ((LOOKEDUP (EVENP (|fetch| +BINDLO |of| DATUM))) (BINDINGPTR (\\VAG2 (|fetch| BINDHI |of| DATUM) (|fetch| BINDLO |of| DATUM)) ( +PROGN (|replace| BINDLO |of| DATUM |with| (\\LOLOC NEWVALUE)) (|replace| BINDHI |of| DATUM |with| ( +\\HILOC NEWVALUE))))))) +(BLOCKRECORD PVARSLOT ((PVHI BITS 4) (PVVALUE XPOINTER)) (ACCESSFNS PVARSLOT ((BOUND (EQ (|fetch| ( +PVARSLOT PVHI) |of| DATUM) 0) (|if| (NULL NEWVALUE) |then| (|replace| (PVARSLOT PVHI) |of| DATUM +|with| 255) |else| (ERROR "Illegal replace" NEWVALUE)))))) (BLOCKRECORD STKTEMPSLOT ((STKTMPHI BITS 4) (VALUE XPOINTER)) (ACCESSFNS STKTEMPSLOT ((BINDINGPTRP ( -NEQ (fetch STKTMPHI of DATUM) 0))))) +NEQ (|fetch| STKTMPHI |of| DATUM) 0))))) (BLOCKRECORD BINDMARKSLOT ((BINDMARKP FLAG) (NIL BITS 15)) (BLOCKRECORD BINDMARKSLOT ((BINDNEGVALUES -WORD) (BINDLASTPVAR WORD))) (ACCESSFNS BINDMARKSLOT ((BINDNVALUES (PROGN (* ; -"Value stored in high half is one's complement of number of values bound") (LOGXOR (fetch -BINDNEGVALUES of DATUM) 65535)))))) -(RPAQQ \NT.IVAR 0) -(RPAQQ \NT.PVAR 128) -(RPAQQ \NT.FVAR 192) -(CONSTANTS \NT.IVAR \NT.PVAR \NT.FVAR) -(PUTPROP (QUOTE LLSTK) (QUOTE IMPORTDATE) (IDATE "27-Apr-2021 20:06:09")) +WORD) (BINDLASTPVAR WORD))) (ACCESSFNS BINDMARKSLOT ((BINDNVALUES (PROGN (* \; +"Value stored in high half is one's complement of number of values bound") (LOGXOR (|fetch| +BINDNEGVALUES |of| DATUM) 65535)))))) +(RPAQQ \\NT.IVAR 0) +(RPAQQ \\NT.PVAR 128) +(RPAQQ \\NT.FVAR 192) +(CONSTANTS \\NT.IVAR \\NT.PVAR \\NT.FVAR) +(PUTPROP (QUOTE LLSTK) (QUOTE IMPORTDATE) (IDATE " 6-Jan-1993 18:07:37")) -(PUTPROPS WORDCONTENTS BYTEMACRO ((PTR) (\GETBASE PTR 0))) -(PUTPROPS SETWORDCONTENTS BYTEMACRO ((PTR N) (\PUTBASE PTR 0 N))) -(PUTPROPS WORDOFFSET BYTEMACRO ((PTR N) (\ADDBASE PTR N))) -(PUTPROPS \RELEASECPAGE MACRO ((STREAM) (PROGN (* ; "Must be under an UNINTERRUPTABLY !") (COND (( -fetch CBUFDIRTY of STREAM) (\SETIODIRTY STREAM (fetch CPAGE of STREAM)) (replace CBUFDIRTY of STREAM -with NIL))) (replace CBUFSIZE of STREAM with 0) (replace CBUFPTR of STREAM with NIL)))) -(PUTPROP (QUOTE PMAP) (QUOTE IMPORTDATE) (IDATE "27-Apr-2021 20:06:09")) +(PUTPROPS WORDCONTENTS BYTEMACRO ((PTR) (\\GETBASE PTR 0))) +(PUTPROPS SETWORDCONTENTS BYTEMACRO ((PTR N) (\\PUTBASE PTR 0 N))) +(PUTPROPS WORDOFFSET BYTEMACRO ((PTR N) (\\ADDBASE PTR N))) +(PUTPROPS \\RELEASECPAGE MACRO ((STREAM) (PROGN (* \; "Must be under an UNINTERRUPTABLY !") (COND (( +|fetch| CBUFDIRTY |of| STREAM) (\\SETIODIRTY STREAM (|fetch| CPAGE |of| STREAM)) (|replace| CBUFDIRTY +|of| STREAM |with| NIL))) (|replace| CBUFSIZE |of| STREAM |with| 0) (|replace| CBUFPTR |of| STREAM +|with| NIL)))) +(PUTPROP (QUOTE PMAP) (QUOTE IMPORTDATE) (IDATE "23-Jun-2021 12:40:35")) -(PUTPROPS ADDREF MACRO (OPENLAMBDA (PTR) (PROG1 PTR (\ADDREF PTR)))) -(PUTPROPS \ADDREF DMACRO ((X) ((OPCODES GCREF 0) X))) -(PUTPROPS DELETEREF MACRO (OPENLAMBDA (PTR) (PROG1 PTR (\DELREF PTR)))) -(PUTPROPS \DELREF DMACRO ((X) ((OPCODES GCREF 1) X))) -(PUTPROPS SCANREF MACRO (= . \STKREF)) -(PUTPROPS \STKREF DMACRO ((X) ((OPCODES GCREF 2) X))) -(PUTPROPS UNSCANREF MACRO ((PTR) (\HTFIND PTR 3))) -(PUTPROPS CREATEREF MACRO (= . \CREATEREF)) -(PUTPROPS \CREATEREF MACRO (OPENLAMBDA (PTR) (PROG1 (\DELREF PTR) (.INCREMENT.ALLOCATION.COUNT. 1)))) -(PUTPROPS .INCREMENT.ALLOCATION.COUNT. MACRO (OPENLAMBDA (N) (DECLARE (GLOBALVARS \RECLAIM.COUNTDOWN)) - (AND \RECLAIM.COUNTDOWN (COND ((IGREATERP \RECLAIM.COUNTDOWN N) (SETQ \RECLAIM.COUNTDOWN (IDIFFERENCE - \RECLAIM.COUNTDOWN N))) (T (SETQ \RECLAIM.COUNTDOWN) (\DORECLAIM)))))) -(PUTPROPS .CHECK.ALLOCATION.COUNT. MACRO (OPENLAMBDA (N) (DECLARE (GLOBALVARS \RECLAIM.COUNTDOWN)) ( -AND \RECLAIM.COUNTDOWN (COND ((NOT (IGREATERP \RECLAIM.COUNTDOWN N)) (SETQ \RECLAIM.COUNTDOWN) ( -\DORECLAIM)))))) -(PUTPROPS \GCDISABLED MACRO (NIL (PROGN (DECLARE (GLOBALVARS \GCDISABLED)) \GCDISABLED))) -(BLOCKRECORD HTOVERFLOW ((CASE BITS 4) (PTR XPOINTER)) (ACCESSFNS HTOVERFLOW ((CLEAR NIL (\PUTBASEPTR -DATUM 0 NIL))))) +(PUTPROPS ADDREF MACRO (OPENLAMBDA (PTR) (PROG1 PTR (\\ADDREF PTR)))) +(PUTPROPS \\ADDREF DMACRO ((X) ((OPCODES GCREF 0) X))) +(PUTPROPS DELETEREF MACRO (OPENLAMBDA (PTR) (PROG1 PTR (\\DELREF PTR)))) +(PUTPROPS \\DELREF DMACRO ((X) ((OPCODES GCREF 1) X))) +(PUTPROPS SCANREF MACRO (= . \\STKREF)) +(PUTPROPS \\STKREF DMACRO ((X) ((OPCODES GCREF 2) X))) +(PUTPROPS UNSCANREF MACRO ((PTR) (\\HTFIND PTR 3))) +(PUTPROPS CREATEREF MACRO (= . \\CREATEREF)) +(PUTPROPS \\CREATEREF MACRO (OPENLAMBDA (PTR) (PROG1 (\\DELREF PTR) (.INCREMENT.ALLOCATION.COUNT. 1))) +) +(PUTPROPS .INCREMENT.ALLOCATION.COUNT. MACRO (OPENLAMBDA (N) (DECLARE (GLOBALVARS \\RECLAIM.COUNTDOWN) +) (AND \\RECLAIM.COUNTDOWN (COND ((IGREATERP \\RECLAIM.COUNTDOWN N) (SETQ \\RECLAIM.COUNTDOWN ( +IDIFFERENCE \\RECLAIM.COUNTDOWN N))) (T (SETQ \\RECLAIM.COUNTDOWN) (\\DORECLAIM)))))) +(PUTPROPS .CHECK.ALLOCATION.COUNT. MACRO (OPENLAMBDA (N) (DECLARE (GLOBALVARS \\RECLAIM.COUNTDOWN)) ( +AND \\RECLAIM.COUNTDOWN (COND ((NOT (IGREATERP \\RECLAIM.COUNTDOWN N)) (SETQ \\RECLAIM.COUNTDOWN) ( +\\DORECLAIM)))))) +(PUTPROPS \\GCDISABLED MACRO (NIL (PROGN (DECLARE (GLOBALVARS \\GCDISABLED)) \\GCDISABLED))) +(BLOCKRECORD HTOVERFLOW ((CASE BITS 4) (PTR XPOINTER)) (ACCESSFNS HTOVERFLOW ((CLEAR NIL (\\PUTBASEPTR + DATUM 0 NIL))))) (BLOCKRECORD GC ((CNT BITS 15) (STKBIT FLAG) (HIBITS BITS 15) (LINKP FLAG) (NXTPTR FIXP)) (BLOCKRECORD - GC ((STKCNT WORD))) (ACCESSFNS GC ((EMPTY (EQ 0 (\GETBASEFIXP DATUM 0)) (\PUTBASEFIXP DATUM 0 0)) ( -CONTENTS (\GETBASEFIXP DATUM 0) (\PUTBASEFIXP DATUM 0 NEWVALUE)) (LINKPTR (LOGAND (\GETBASEFIXP DATUM -0) -2) (\PUTBASEFIXP DATUM 0 (LOGOR NEWVALUE 1)))))) -(BLOCKRECORD HTCOLL ((* ;; + GC ((STKCNT WORD))) (ACCESSFNS GC ((EMPTY (EQ 0 (\\GETBASEFIXP DATUM 0)) (\\PUTBASEFIXP DATUM 0 0)) ( +CONTENTS (\\GETBASEFIXP DATUM 0) (\\PUTBASEFIXP DATUM 0 NEWVALUE)) (LINKPTR (LOGAND (\\GETBASEFIXP +DATUM 0) -2) (\\PUTBASEFIXP DATUM 0 (LOGOR NEWVALUE 1)))))) +(BLOCKRECORD HTCOLL ((* |;;| "An entry in the GC collision table. NEXTFREE is initialized to 2 by INITGC, as part of the MAKEINIT." -) (FREEPTR FIXP) (* ; "The GC table entry") (NEXTFREE FIXP) (* ; +) (FREEPTR FIXP) (* \; "The GC table entry") (NEXTFREE FIXP) (* \; "If the entry is in use, points to the next entry in this collision chain. If not, offset (in 1/2-entries) of the next free one on the chain." ))) -(PUTPROP (QUOTE LLGC) (QUOTE IMPORTDATE) (IDATE "27-Apr-2021 20:06:09")) +(PUTPROP (QUOTE LLGC) (QUOTE IMPORTDATE) (IDATE "19-Oct-1994 12:30:11")) -(PUTPROPS \SYNCODE DMACRO (OPENLAMBDA (TABLE CHAR) (CHECK (type? CHARTABLE TABLE)) (* ; -"0 is either NONE.TC, REAL.CCE, or OTHER.RC") (COND ((IGREATERP CHAR \MAXTHINCHAR) (OR (AND (fetch ( -CHARTABLE NSCHARHASH) of TABLE) (GETHASH CHAR (fetch (CHARTABLE NSCHARHASH) of TABLE))) 0)) (T ( -\GETBASEBYTE TABLE CHAR))))) -(PUTPROPS \SETSYNCODE DMACRO (LAMBDA (TABLE CHAR CODE) (CHECK (type? CHARTABLE TABLE)) (* ; -"0 is REAL.CCE, NONE.TC, OTHER.RC") (COND ((ILEQ CHAR \MAXTHINCHAR) (\PUTBASEBYTE TABLE CHAR CODE)) (T - (\SETFATSYNCODE TABLE CHAR CODE))))) +(PUTPROPS \\SYNCODE DMACRO (OPENLAMBDA (TABLE CHAR) (CHECK (|type?| CHARTABLE TABLE)) (* \; +"0 is either NONE.TC, REAL.CCE, or OTHER.RC") (COND ((IGREATERP CHAR \\MAXTHINCHAR) (OR (AND (|fetch| +(CHARTABLE NSCHARHASH) |of| TABLE) (GETHASH CHAR (|fetch| (CHARTABLE NSCHARHASH) |of| TABLE))) 0)) (T +(\\GETBASEBYTE TABLE CHAR))))) +(PUTPROPS \\SETSYNCODE DMACRO (LAMBDA (TABLE CHAR CODE) (CHECK (|type?| CHARTABLE TABLE)) (* \; +"0 is REAL.CCE, NONE.TC, OTHER.RC") (COND ((ILEQ CHAR \\MAXTHINCHAR) (\\PUTBASEBYTE TABLE CHAR CODE)) +(T (\\SETFATSYNCODE TABLE CHAR CODE))))) (DATATYPE CHARTABLE ((CHARSET0 256 BYTE) (NSCHARHASH FULLPOINTER))) (RPAQQ CCECHOMODES (REAL.CCE IGNORE.CCE SIMULATE.CCE INDICATE.CCE)) (RPAQQ REAL.CCE 0) @@ -1374,16 +1401,16 @@ CTRLV.TC)) (RPAQQ RETYPE.TC 4) (RPAQQ CTRLV.TC 5) (CONSTANTS NONE.TC EOL.TC CHARDELETE.TC WORDDELETE.TC WORDSEPR.TC LINEDELETE.TC RETYPE.TC CTRLV.TC) -(ACCESSFNS TERMCODE ((CCECHO (LOGAND DATUM 24)) (TERMCLASS (LOGAND DATUM 7))) (* ; +(ACCESSFNS TERMCODE ((CCECHO (LOGAND DATUM 24)) (TERMCLASS (LOGAND DATUM 7))) (* \; "We assume that values are appropriately shifted") (CREATE (LOGOR CCECHO TERMCLASS))) (DATATYPE TERMTABLEP (TERMSA RAISEFLG DELCHARECHO LINEDELETE 1STCHDEL NTHCHDEL POSTCHDEL EMPTYCHDEL ( -CONTROLFLG FLAG) (ECHOFLG FLAG)) TERMSA _ (create CHARTABLE)) -(PUTPROPS \GETREADMACRODEF MACRO ((C TBL) (GETHASH C (fetch READMACRODEFS of TBL)))) -(PUTPROPS \GTREADTABLE MACRO (ARGS (COND ((LITATOM (CAR ARGS)) (SUBPAIR (QUOTE (X . FLG)) ARGS (QUOTE -(SELECTQ X ((NIL T) (\DTEST *READTABLE* (QUOTE READTABLEP))) (\GTREADTABLE1 X . FLG))))) (T (QUOTE +CONTROLFLG FLAG) (ECHOFLG FLAG)) TERMSA _ (|create| CHARTABLE)) +(PUTPROPS \\GETREADMACRODEF MACRO ((C TBL) (GETHASH C (|fetch| READMACRODEFS |of| TBL)))) +(PUTPROPS \\GTREADTABLE MACRO (ARGS (COND ((LITATOM (CAR ARGS)) (SUBPAIR (QUOTE (X . FLG)) ARGS (QUOTE + (SELECTQ X ((NIL T) (\\DTEST *READTABLE* (QUOTE READTABLEP))) (\\GTREADTABLE1 X . FLG))))) (T (QUOTE IGNOREMACRO))))) -(PUTPROPS \GTREADTABLE1 DMACRO (ARGS (COND ((NULL (CDR ARGS)) (LIST (QUOTE \DTEST) (CAR ARGS) (QUOTE ( -QUOTE READTABLEP)))) (T (QUOTE IGNOREMACRO))))) +(PUTPROPS \\GTREADTABLE1 DMACRO (ARGS (COND ((NULL (CDR ARGS)) (LIST (QUOTE \\DTEST) (CAR ARGS) (QUOTE + (QUOTE READTABLEP)))) (T (QUOTE IGNOREMACRO))))) (RPAQQ MACROBIT 8) (RPAQQ BREAKBIT 16) (RPAQQ STOPATOMBIT 32) @@ -1438,552 +1465,556 @@ INNERESCAPEBIT 7)) (PACKAGEDELIM.RC (LOGOR ESCAPEBIT INNERESCAPEBIT 1))) MACROCONTEXT (LOGAND DATUM CONTEXTMASK)) (MACROP (BITTEST DATUM MACROBIT)) (WAKEUP (LOGAND DATUM WAKEUPMASK)) (BREAK (BITTEST DATUM BREAKBIT)))) (RECORD READMACRODEF (MACROTYPE . MACROFN)) -(DATATYPE READTABLEP ((READSA POINTER) (* ; "A CHARTABLE defining syntax of each char") (READMACRODEFS - POINTER) (* ; "A hash table associating macro chars with macro definitions") (READMACROFLG FLAG) (* ; - "True if read macros are enabled (turned off by Interlisp's crufty READMACROS function)") (ESCAPEFLG -FLAG) (* ; +(DATATYPE READTABLEP ((READSA POINTER) (* \; "A CHARTABLE defining syntax of each char") ( +READMACRODEFS POINTER) (* \; "A hash table associating macro chars with macro definitions") ( +READMACROFLG FLAG) (* \; +"True if read macros are enabled (turned off by Interlisp's crufty READMACROS function)") (ESCAPEFLG +FLAG) (* \; "True if the char(s) with escape syntax are enabled (turned off by Interlisp's crufty ESCAPE function)" -) (COMMONLISP FLAG) (* ; +) (COMMONLISP FLAG) (* \; "True if table is a Common Lisp read table and hence must obey Common Lisp syntax rules") (NUMBERBASE -BITS 5) (* ; "Not used") (CASEINSENSITIVE FLAG) (* ; +BITS 5) (* \; "Not used") (CASEINSENSITIVE FLAG) (* \; "If true, unescaped lowercase chars are converted to uppercase in symbols") (COMMONNUMSYNTAX FLAG) (* -; +\; "True if number notation includes Common Lisp numbers: rationals as a/b, and the dfls exponent markers" -) (USESILPACKAGE FLAG) (* ; "If true, IL:READ ignores *PACKAGE* and reads in the IL package") (NIL 5 -FLAG) (DISPATCHMACRODEFS POINTER) (* ; -"An a-list of dispatching macro char and its dispatch definitions") (HASHMACROCHAR BYTE) (* ; -"The character code used in this read table for the # dispatch macro") (ESCAPECHAR BYTE) (* ; -"The character code used in this read table for single escape") (MULTESCAPECHAR BYTE) (* ; -"The character code used in this read table for multiple escape") (PACKAGECHAR BYTE) (* ; -"The character code used in this read table for package delimiter") (READTBLNAME POINTER) (* ; -"The canonical 'name' of this read table")) READSA _ (create CHARTABLE)) -(PUTPROP (QUOTE ATBL) (QUOTE IMPORTDATE) (IDATE "27-Apr-2021 20:06:09")) +) (USESILPACKAGE FLAG) (* \; "If true, IL:READ ignores *PACKAGE* and reads in the IL package") (NIL 5 +FLAG) (DISPATCHMACRODEFS POINTER) (* \; +"An a-list of dispatching macro char and its dispatch definitions") (HASHMACROCHAR BYTE) (* \; +"The character code used in this read table for the # dispatch macro") (ESCAPECHAR BYTE) (* \; +"The character code used in this read table for single escape") (MULTESCAPECHAR BYTE) (* \; +"The character code used in this read table for multiple escape") (PACKAGECHAR BYTE) (* \; +"The character code used in this read table for package delimiter") (READTBLNAME POINTER) (* \; +"The canonical 'name' of this read table")) READSA _ (|create| CHARTABLE)) +(PUTPROP (QUOTE ATBL) (QUOTE IMPORTDATE) (IDATE " 9-Jul-2021 15:28:19")) -(DATATYPE STREAM ((* ;; +(DATATYPE STREAM ((* |;;| "First 8 words are fixed for BIN, BOUT opcodes. Used to require length of whole datatype be multiple of 4, but Dolphin dead now." -) (COFFSET WORD) (* ; "Offset in CPPTR of next bin or bout") (CBUFSIZE WORD) (* ; -"Offset past last byte in that buffer") (PEEKEDCHARP FLAG) (* ; -"if true, PEEKEDCHAR contains value of recent call to unread-char") (ACCESSBITS BITS 3) (* ; -"What kind of access file is open for (read, write, append)") (CBUFPTR POINTER) (* ; -"Pointer to current buffer") (BYTESIZE BYTE) (* ; "Byte size of stream, always 8 for now") (CHARSET -BYTE) (* ; +) (COFFSET WORD) (* \; "Offset in CPPTR of next bin or bout") (CBUFSIZE WORD) (* \; +"Offset past last byte in that buffer") (PEEKEDCHARP FLAG) (* \; +"if true, PEEKEDCHAR contains value of recent call to unread-char") (ACCESSBITS BITS 3) (* \; +"What kind of access file is open for (read, write, append)") (CBUFPTR POINTER) (* \; +"Pointer to current buffer") (BYTESIZE BYTE) (* \; "Byte size of stream, always 8 for now") (CHARSET +BYTE) (* \; "the current character set for this stream. If 255, stream is not runcoded, so read-char consumes two bytes every time" -) (PEEKEDCHAR WORD) (* ; "value of unread-char call") (CHARPOSITION WORD) (* ; "Used by POSITION etc." -) (CBUFMAXSIZE WORD) (* ; "on output, the size of the physical buffer--can't extend beyond this") (* -;; "-------- Above fields (8 words) potentially known to microcode. --------") (NONDEFAULTDATEFLG -FLAG) (REVALIDATEFLG FLAG) (MULTIBUFFERHINT FLAG) (* ; -"True if stream likes to read and write more than one buffer at a time") (USERCLOSEABLE FLAG) (* ; -"Can be closed by CLOSEF; NIL for terminal, dribble...") (FULLFILENAME POINTER) (* ; -"Name by which file is known to user") (BINABLE FLAG) (* ; "BIN punts unless this bit on") (BOUTABLE -FLAG) (* ; "BOUT punts unless this bit on") (EXTENDABLE FLAG) (* ; -"BOUT punts when COFFSET ge CBUFFSIZE unless this bit set and COFFSET lt 512") (CBUFDIRTY FLAG) (* ; -"true if BOUT has sullied the current buffer") (DEVICE POINTER) (* ; "FDEV of this guy") (USERVISIBLE -FLAG) (* ; "Listed by OPENP; NIL for terminal, dribble ...") (EOLCONVENTION BITS 2) (* ; -"End-of-line convention") (NOTXCCS FLAG) (* ; "True if the character encoding format is not XCCS.") ( -VALIDATION POINTER) (* ; +) (PEEKEDCHAR WORD) (* \; "value of unread-char call") (CHARPOSITION WORD) (* \; +"Used by POSITION etc.") (CBUFMAXSIZE WORD) (* \; +"on output, the size of the physical buffer--can't extend beyond this") (* |;;| +"-------- Above fields (8 words) potentially known to microcode. --------") (NONDEFAULTDATEFLG FLAG) +(REVALIDATEFLG FLAG) (MULTIBUFFERHINT FLAG) (* \; +"True if stream likes to read and write more than one buffer at a time") (USERCLOSEABLE FLAG) (* \; +"Can be closed by CLOSEF; NIL for terminal, dribble...") (FULLFILENAME POINTER) (* \; +"Name by which file is known to user") (BINABLE FLAG) (* \; "BIN punts unless this bit on") (BOUTABLE +FLAG) (* \; "BOUT punts unless this bit on") (EXTENDABLE FLAG) (* \; +"BOUT punts when COFFSET ge CBUFFSIZE unless this bit set and COFFSET lt 512") (CBUFDIRTY FLAG) (* \; +"true if BOUT has sullied the current buffer") (DEVICE POINTER) (* \; "FDEV of this guy") (USERVISIBLE + FLAG) (* \; "Listed by OPENP; NIL for terminal, dribble ...") (EOLCONVENTION BITS 2) (* \; +"End-of-line convention") (NOTXCCS FLAG) (* \; "True if the character encoding format is not XCCS.") ( +VALIDATION POINTER) (* \; "A number somehow identifying file, used to determine if file has changed in our absence") (CPAGE -POINTER) (* ; "CPAGE,,COFFSET constitutes current file pointer for most randaccess streams") (EPAGE -POINTER) (EOFFSET WORD) (* ; "Page, byte offset of eof") (LINELENGTH WORD) (* ; -"LINELENGTH of stream, or -1 for no line length") (* ;; "----Following are device-specific fields----" -) (* ;; "Available for device-specific uses, NOT for application use.") (F1 POINTER) (F2 POINTER) (F3 -POINTER) (F4 POINTER) (F5 POINTER) (FW6 WORD) (FW7 WORD) (FW8 WORD) (FW9 WORD) (F10 POINTER) (* ;; -"----Following only filled in for open streams----") (STRMBINFN POINTER) (* ; -"Either the BIN fn from the FDEV, or a trap") (STRMBOUTFN POINTER) (* ; -"Either the BIN fn from the FDEV, or a trap") (OUTCHARFN POINTER) (* ; -"Called by \OUTCHAR, the normal character printer.") (ENDOFSTREAMOP POINTER) (* ; -"Called if EOF and we try to read.") (OTHERPROPS POINTER) (* ; "PROP LIST for holding other info.") ( -IMAGEOPS POINTER) (* ; "Image operations vector") (IMAGEDATA POINTER) (* ; -"Image instance variables--format depends on IMAGEOPS value") (BUFFS POINTER) (* ; -"Buffer chain for pmapped streams") (MAXBUFFERS WORD) (* ; -"Max # of buffers the system will allocate.") (LASTCCODE WORD) (* ; +POINTER) (* \; "CPAGE,,COFFSET constitutes current file pointer for most randaccess streams") (EPAGE +POINTER) (EOFFSET WORD) (* \; "Page, byte offset of eof") (LINELENGTH WORD) (* \; +"LINELENGTH of stream, or -1 for no line length") (* |;;| +"----Following are device-specific fields----") (* |;;| +"Available for device-specific uses, NOT for application use.") (F1 POINTER) (F2 POINTER) (F3 POINTER) + (F4 POINTER) (F5 POINTER) (FW6 WORD) (FW7 WORD) (FW8 WORD) (FW9 WORD) (F10 POINTER) (* |;;| +"----Following only filled in for open streams----") (STRMBINFN POINTER) (* \; +"Either the BIN fn from the FDEV, or a trap") (STRMBOUTFN POINTER) (* \; +"Either the BIN fn from the FDEV, or a trap") (OUTCHARFN POINTER) (* \; +"Called by \\OUTCHAR, the normal character printer.") (ENDOFSTREAMOP POINTER) (* \; +"Called if EOF and we try to read.") (OTHERPROPS POINTER) (* \; "PROP LIST for holding other info.") ( +IMAGEOPS POINTER) (* \; "Image operations vector") (IMAGEDATA POINTER) (* \; +"Image instance variables--format depends on IMAGEOPS value") (BUFFS POINTER) (* \; +"Buffer chain for pmapped streams") (MAXBUFFERS WORD) (* \; +"Max # of buffers the system will allocate.") (LASTCCODE WORD) (* \; "After READ, RATOM, etc, the charcode that will be returned (as a character) by LASTC. If there is none, this field is 65535." -) (EXTRASTREAMOP POINTER) (* ; "For use of applications programs, not devices") (INCCODEFN POINTER) (* - ; "Set by \EXTERNALFORMAT") (PEEKCCODEFN POINTER) (BACKCHARFN POINTER)) (BLOCKRECORD STREAM ((NIL 2 -WORD) (UCODEFLAGS1 BITS 1) (* ;; "respecification of access bits:") (RANDOMWRITEABLE FLAG) (* ; -"File open for output (access = OUTPUT or BOTH)") (APPENDABLE FLAG) (* ; -"File open for append (OUTPUT or APPEND or BOTH)") (READABLE FLAG) (* ; +) (EXTRASTREAMOP POINTER) (* \; "For use of applications programs, not devices") (INCCODEFN POINTER) ( +* \; "Set by \\EXTERNALFORMAT") (PEEKCCODEFN POINTER) (BACKCCODEFN POINTER) (EXTERNALFORMAT POINTER)) +(BLOCKRECORD STREAM ((NIL 2 WORD) (UCODEFLAGS1 BITS 1) (* |;;| "respecification of access bits:") ( +RANDOMWRITEABLE FLAG) (* \; "File open for output (access = OUTPUT or BOTH)") (APPENDABLE FLAG) (* \; +"File open for append (OUTPUT or APPEND or BOTH)") (READABLE FLAG) (* \; "File open for read (READ or BOTH)") (NIL POINTER))) (BLOCKRECORD STREAM ((NIL 4 WORD) (NIL BITS 14) ( -* ;; "JIS character encoding format specific, overrides CHARSET field.") (IN.KANJIIN FLAG) (* ; -"True if input stream is in Kanji-in mode.") (OUT.KANJIIN FLAG) (* ; -"True if output stream is in Kanji-in mode."))) (ACCESSFNS STREAM ((ACCESS \GETACCESS \SETACCESS) ( -FULLNAME (OR (fetch (STREAM FULLFILENAME) of DATUM) DATUM)) (NAMEDP (AND (fetch (STREAM FULLFILENAME) -of DATUM) T)))) (ACCESSFNS STREAM (EXTERNALFORMAT (LISTGET (ffetch (STREAM OTHERPROPS) of DATUM) ( -QUOTE EXTERNALFORMAT)) (LET ((PROPS (ffetch (STREAM OTHERPROPS) of DATUM))) (freplace (STREAM NOTXCCS) - of DATUM with T) (COND (PROPS (LISTPUT PROPS (QUOTE EXTERNALFORMAT) NEWVALUE)) (T (freplace (STREAM -OTHERPROPS) of DATUM with (LIST (QUOTE EXTERNALFORMAT) NEWVALUE)))) (freplace (STREAM OUTCHARFN) of -DATUM with (ffetch (EXTERNALFORMAT FILEOUTCHARFN) of NEWVALUE)) (AND (ffetch (EXTERNALFORMAT EOLVALID) - of NEWVALUE) (freplace (STREAM EOLCONVENTION) of DATUM with (ffetch (EXTERNALFORMAT EOL) of NEWVALUE) -))))) (ACCESSFNS STREAM (EXTERNALFORMAT.NAME (LISTGET (ffetch (STREAM OTHERPROPS) of DATUM) (QUOTE -EXTERNALFORMAT.NAME)) (LET ((PROPS (ffetch (STREAM OTHERPROPS) of DATUM)) (NAME (COND ((LITATOM -NEWVALUE) NEWVALUE) (T (MKATOM NEWVALUE))))) (freplace (STREAM NOTXCCS) of DATUM with T) (COND (PROPS -(LISTPUT PROPS (QUOTE EXTERNALFORMAT.NAME) NAME)) (T (freplace (STREAM OTHERPROPS) of DATUM with (LIST - (QUOTE EXTERNALFORMAT.NAME) NAME))))))) (ACCESSFNS STREAM (FILEOUTCHARFN (ffetch (STREAM OUTCHARFN) -of DATUM))) (SYNONYM CBUFPTR (CPPTR)) USERCLOSEABLE _ T USERVISIBLE _ T ACCESSBITS _ NoBits CPAGE _ 0 -EPAGE _ 0 BUFFS _ NIL BYTESIZE _ 8 CBUFPTR _ NIL MAXBUFFERS _ (LET NIL (DECLARE (GLOBALVARS -\STREAM.DEFAULT.MAXBUFFERS)) \STREAM.DEFAULT.MAXBUFFERS) CHARPOSITION _ 0 LINELENGTH _ (LET NIL ( -DECLARE (GLOBALVARS FILELINELENGTH)) FILELINELENGTH) OUTCHARFN _ (FUNCTION \FILEOUTCHARFN) -ENDOFSTREAMOP _ (FUNCTION \EOSERROR) IMAGEOPS _ \NOIMAGEOPS EOLCONVENTION _ LF.EOLC STRMBINFN _ ( -FUNCTION \STREAM.NOT.OPEN) STRMBOUTFN _ (FUNCTION \STREAM.NOT.OPEN) LASTCCODE _ 65535 NOTXCCS _ NIL) +* |;;| "JIS character encoding format specific, overrides CHARSET field.") (IN.KANJIIN FLAG) (* \; +"True if input stream is in Kanji-in mode.") (OUT.KANJIIN FLAG) (* \; +"True if output stream is in Kanji-in mode."))) (ACCESSFNS STREAM ((ACCESS \\GETACCESS \\SETACCESS) ( +FULLNAME (OR (|fetch| (STREAM FULLFILENAME) |of| DATUM) DATUM)) (NAMEDP (AND (|fetch| (STREAM +FULLFILENAME) |of| DATUM) T)))) (SYNONYM CBUFPTR (CPPTR)) USERCLOSEABLE _ T USERVISIBLE _ T ACCESSBITS + _ |NoBits| CPAGE _ 0 EPAGE _ 0 BUFFS _ NIL BYTESIZE _ 8 CBUFPTR _ NIL MAXBUFFERS _ (LET NIL (DECLARE +(GLOBALVARS \\STREAM.DEFAULT.MAXBUFFERS)) \\STREAM.DEFAULT.MAXBUFFERS) CHARPOSITION _ 0 LINELENGTH _ ( +LET NIL (DECLARE (GLOBALVARS FILELINELENGTH)) FILELINELENGTH) ENDOFSTREAMOP _ (FUNCTION \\EOSERROR) +IMAGEOPS _ \\NOIMAGEOPS EOLCONVENTION _ LF.EOLC STRMBINFN _ (FUNCTION \\STREAM.NOT.OPEN) STRMBOUTFN _ +(FUNCTION \\STREAM.NOT.OPEN) LASTCCODE _ 65535 NOTXCCS _ NIL) (PUTPROPS STREAMOP MACRO (ARGS (CONS (QUOTE SPREADAPPLY*) (CONS (COND ((EQ (CAR (LISTP (CAR ARGS))) ( -QUOTE QUOTE)) (LIST (QUOTE fetch) (CADAR ARGS) (QUOTE of) (CADR ARGS))) (T (HELP +QUOTE QUOTE)) (LIST (QUOTE |fetch|) (CADAR ARGS) (QUOTE |of|) (CADR ARGS))) (T (HELP "STREAMOP - OPNAME not quoted:" ARGS))) (CDDR ARGS))))) -(RPAQQ AppendBit 2) -(RPAQQ NoBits 0) -(RPAQQ ReadBit 1) -(RPAQQ WriteBit 4) -(RPAQ OutputBits (LOGOR AppendBit WriteBit)) -(RPAQ BothBits (LOGOR ReadBit OutputBits)) -(RPAQQ \NORUNCODE 255) -(CONSTANTS AppendBit NoBits ReadBit WriteBit (OutputBits (LOGOR AppendBit WriteBit)) (BothBits (LOGOR -ReadBit OutputBits)) \NORUNCODE) -(PUTPROPS TestMasked MACRO ((BITS MASK) (NEQ (LOGAND BITS MASK) 0))) -(PUTPROPS APPENDABLE MACRO ((STREAM) (TestMasked (fetch ACCESSBITS of STREAM) AppendBit))) -(PUTPROPS APPENDONLY MACRO ((STREAM) (EQ (fetch ACCESSBITS of STREAM) AppendBit))) -(PUTPROPS DIRTYABLE MACRO ((STREAM) (TestMasked (fetch ACCESSBITS of STREAM) (CONSTANT (LOGOR -AppendBit WriteBit))))) -(PUTPROPS OPENED MACRO ((STREAM) (NEQ (fetch ACCESSBITS of STREAM) NoBits))) -(PUTPROPS OVERWRITEABLE MACRO ((STREAM) (TestMasked (fetch ACCESSBITS of STREAM) WriteBit))) -(PUTPROPS READABLE MACRO ((STREAM) (TestMasked (fetch ACCESSBITS of STREAM) ReadBit))) -(PUTPROPS READONLY MACRO ((STREAM) (EQ (fetch ACCESSBITS of STREAM) ReadBit))) -(PUTPROPS WRITEABLE MACRO ((STREAM) (OR (OVERWRITEABLE STREAM) (AND (APPENDABLE STREAM) (\EOFP STREAM) -)))) -(PUTPROPS \RUNCODED MACRO (OPENLAMBDA (STREAM) (* ;; -"returns NIL is the stream is not runcoded, that is, if the stream has 16 bit bytes explicitly represented" -) (* ; "note that neq is ok since charsets are known to be SMALLP's") (NEQ (fetch CHARSET of STREAM) -\NORUNCODE))) -(RPAQQ EOLCONVENTIONS ((CR.EOLC 0) (LF.EOLC 1) (CRLF.EOLC 2))) +(RPAQQ |AppendBit| 2) +(RPAQQ |NoBits| 0) +(RPAQQ |ReadBit| 1) +(RPAQQ |WriteBit| 4) +(RPAQ |OutputBits| (LOGOR |AppendBit| |WriteBit|)) +(RPAQ |BothBits| (LOGOR |ReadBit| |OutputBits|)) +(CONSTANTS |AppendBit| |NoBits| |ReadBit| |WriteBit| (|OutputBits| (LOGOR |AppendBit| |WriteBit|)) ( +|BothBits| (LOGOR |ReadBit| |OutputBits|))) +(PUTPROPS |TestMasked| MACRO ((BITS MASK) (NEQ (LOGAND BITS MASK) 0))) +(PUTPROPS APPENDABLE MACRO ((STREAM) (|TestMasked| (|fetch| ACCESSBITS |of| STREAM) |AppendBit|))) +(PUTPROPS APPENDONLY MACRO ((STREAM) (EQ (|fetch| ACCESSBITS |of| STREAM) |AppendBit|))) +(PUTPROPS DIRTYABLE MACRO ((STREAM) (|TestMasked| (|fetch| ACCESSBITS |of| STREAM) (CONSTANT (LOGOR +|AppendBit| |WriteBit|))))) +(PUTPROPS OPENED MACRO ((STREAM) (NEQ (|fetch| ACCESSBITS |of| STREAM) |NoBits|))) +(PUTPROPS OVERWRITEABLE MACRO ((STREAM) (|TestMasked| (|fetch| ACCESSBITS |of| STREAM) |WriteBit|))) +(PUTPROPS READABLE MACRO ((STREAM) (|TestMasked| (|fetch| ACCESSBITS |of| STREAM) |ReadBit|))) +(PUTPROPS READONLY MACRO ((STREAM) (EQ (|fetch| ACCESSBITS |of| STREAM) |ReadBit|))) +(PUTPROPS WRITEABLE MACRO ((STREAM) (OR (OVERWRITEABLE STREAM) (AND (APPENDABLE STREAM) (\\EOFP STREAM +))))) +(RPAQQ EOLCONVENTIONS ((CR.EOLC 0) (LF.EOLC 1) (CRLF.EOLC 2) (ANY.EOLC 3))) (RPAQQ CR.EOLC 0) (RPAQQ LF.EOLC 1) (RPAQQ CRLF.EOLC 2) -(CONSTANTS (CR.EOLC 0) (LF.EOLC 1) (CRLF.EOLC 2)) +(RPAQQ ANY.EOLC 3) +(CONSTANTS (CR.EOLC 0) (LF.EOLC 1) (CRLF.EOLC 2) (ANY.EOLC 3)) (PUTPROPS FDEVOP DMACRO (ARGS (LET ((OPNAME (CAR ARGS)) (METHOD-DEVICE (CADR ARGS)) (TAIL (CDDR ARGS)) -) (COND ((AND (LISTP OPNAME) (EQ (CAR OPNAME) (QUOTE QUOTE))) (BQUOTE (SPREADAPPLY* (fetch (FDEV (\, ( -CADR OPNAME))) of (\, METHOD-DEVICE)) (\,@ TAIL)))) (T (ERROR "OPNAME not quoted: " OPNAME)))))) -(PUTPROPS \RECOGNIZE-HACK DMACRO (ARGS (LET ((NAME (CAR ARGS)) (RECOG (CADR ARGS)) (DEVICE (CADDR ARGS -))) (BQUOTE (if (type? STREAM (\, NAME)) then (\, NAME) else (FDEVOP (QUOTE GETFILENAME) (\, DEVICE) ( -\, NAME) (\, RECOG) (\, DEVICE))))))) -(DATATYPE FDEV ((RESETABLE FLAG) (* ; "Obsolete") (RANDOMACCESSP FLAG) (NODIRECTORIES FLAG) ( -PAGEMAPPED FLAG) (* ; "True if i/o handled by pmap routines") (FDBINABLE FLAG) (* ; +) (COND ((AND (LISTP OPNAME) (EQ (CAR OPNAME) (QUOTE QUOTE))) (BQUOTE (SPREADAPPLY* (|fetch| (FDEV ( +\\\, (CADR OPNAME))) |of| (\\\, METHOD-DEVICE)) (\\\,@ TAIL)))) (T (ERROR "OPNAME not quoted: " OPNAME +)))))) +(PUTPROPS \\RECOGNIZE-HACK DMACRO (ARGS (LET ((NAME (CAR ARGS)) (RECOG (CADR ARGS)) (DEVICE (CADDR +ARGS))) (BQUOTE (|if| (|type?| STREAM (\\\, NAME)) |then| (\\\, NAME) |else| (FDEVOP (QUOTE +GETFILENAME) (\\\, DEVICE) (\\\, NAME) (\\\, RECOG) (\\\, DEVICE))))))) +(DATATYPE FDEV ((RESETABLE FLAG) (* \; "Obsolete") (RANDOMACCESSP FLAG) (NODIRECTORIES FLAG) ( +PAGEMAPPED FLAG) (* \; "True if i/o handled by pmap routines") (FDBINABLE FLAG) (* \; "Copied as a microcode flag for INPUT streams formed on this device") (FDBOUTABLE FLAG) (FDEXTENDABLE -FLAG) (BUFFERED FLAG) (* ; +FLAG) (BUFFERED FLAG) (* \; "True implies that the device supports the BIN & BOUT uCode conventions, and implements the GETNEXTBUFFER method" -) (DEVICENAME POINTER) (* ; "Identifying name somehow") (REMOTEP FLAG) (* ; -"true if device not local to machine") (SUBDIRECTORIES FLAG) (* ; -"true if device has real subdirectories") (INPUT-INDIRECTED FLAG) (* ; +) (DEVICENAME POINTER) (* \; "Identifying name somehow") (REMOTEP FLAG) (* \; +"true if device not local to machine") (SUBDIRECTORIES FLAG) (* \; +"true if device has real subdirectories") (INPUT-INDIRECTED FLAG) (* \; "True for devices that indirect their input stream. Method INPUTSTREAM fetches it") ( -OUTPUT-INDIRECTED FLAG) (* ; +OUTPUT-INDIRECTED FLAG) (* \; "True for devices that indirect their output stream. Method OUTPUTSTREAM fetches it") (DEVICEINFO -POINTER) (* ; "arbitrary device-specific info stored here") (OPENFILELST POINTER) (* ; -"Default place to keep list of streams open on this device") (* ;; -"-----Rest of record consists of device %"methods%"-----") (* ;; -"-----Following fields required of all devices-----") (HOSTNAMEP POINTER) (* ; +POINTER) (* \; "arbitrary device-specific info stored here") (OPENFILELST POINTER) (* \; +"Default place to keep list of streams open on this device") (* |;;| +"-----Rest of record consists of device \"methods\"-----") (* |;;| +"-----Following fields required of all devices-----") (HOSTNAMEP POINTER) (* \; "(hostname {device}) => T if hostname is valid. If device is given, return a FDEV for this {new} host, or T to use existing device" -) (EVENTFN POINTER) (* ; "(device event), called before/after logout, sysout, makesys") (* ;; +) (EVENTFN POINTER) (* \; "(device event), called before/after logout, sysout, makesys") (* |;;| "-----Following fields required of all named devices, e.g., ones that open files-----") ( -DIRECTORYNAMEP POINTER) (* ; "(host/dir) => true if directory exists on host") (OPENFILE POINTER) (* ; - "(name access recog otherinfo device) => new stream open on this device, or NIL if name not found") ( -CLOSEFILE POINTER) (* ; "(stream) => closes stream, returns it") (REOPENFILE POINTER) (* ; +DIRECTORYNAMEP POINTER) (* \; "(host/dir) => true if directory exists on host") (OPENFILE POINTER) (* +\; "(name access recog otherinfo device) => new stream open on this device, or NIL if name not found") + (CLOSEFILE POINTER) (* \; "(stream) => closes stream, returns it") (REOPENFILE POINTER) (* \; "(name access recog otherinfo device stream) like openfile, but called after logout to revalidate file, so optionally uses info in old stream to keep this opening like the previous" -) (GETFILENAME POINTER) (* ; "(name recog device) => full file name") (DELETEFILE POINTER) (* ; +) (GETFILENAME POINTER) (* \; "(name recog device) => full file name") (DELETEFILE POINTER) (* \; "(name) => deletes file so named, returning name, or NIL on failure. RECOG=OLDEST") (GENERATEFILES -POINTER) (* ; +POINTER) (* \; "(device pattern) => generator object for files matching pattern. Car of object is generator function, cdr is arbitrary state. Generator fn returns next file, or NIL when finished" -) (RENAMEFILE POINTER) (* ; +) (RENAMEFILE POINTER) (* \; "(olddevice oldfile newdevice newfile) to rename file on this (olddevice) to a potentially different device." -) (OPENP POINTER) (* ; +) (OPENP POINTER) (* \; "(name access dev) => stream if name is open for access, or all open streams if name = NIL") ( -REGISTERFILE POINTER) (* ; "(stream dev) => registers stream on its device") (UNREGISTERFILE POINTER) -(* ; "(stream dev) => unregisters a stream from its device") (FREEPAGECOUNT POINTER) (* ; -"(host/dir dev) => # of free pages on host/dir") (MAKEDIRECTORY POINTER) (* ; "(host/dir dev)") ( -CHECKFILENAME POINTER) (* ; "(name dev) => name if it is well-formed file name for dev") (HOSTALIVEP -POINTER) (* ; +REGISTERFILE POINTER) (* \; "(stream dev) => registers stream on its device") (UNREGISTERFILE POINTER) + (* \; "(stream dev) => unregisters a stream from its device") (FREEPAGECOUNT POINTER) (* \; +"(host/dir dev) => # of free pages on host/dir") (MAKEDIRECTORY POINTER) (* \; "(host/dir dev)") ( +CHECKFILENAME POINTER) (* \; "(name dev) => name if it is well-formed file name for dev") (HOSTALIVEP +POINTER) (* \; "(host dev) => true if host is alive, i.e., responsive; only defined if REMOTEP is true") ( -BREAKCONNECTION POINTER) (* ; "(host fastp dev) => closes connections to host") (* ;; -"-----The following are required methods for operating on open streams-----") (BIN POINTER) (* ; -"(stream) => next byte of input") (BOUT POINTER) (* ; "(stream byte) output byte to stream") (PEEKBIN -POINTER) (* ; "(stream) => next byte without advancing position in stream") (READCHAR POINTER) (* ; -"(stream) => next input char") (WRITECHAR POINTER) (* ; "(stream char) => writes char to stream") ( -PEEKCHAR POINTER) (UNREADCHAR POINTER) (READP POINTER) (* ; -"(stream flag) => T if there is input available from stream right now") (EOFP POINTER) (* ; -"(stream) => T if BIN would signal eof.") (BLOCKIN POINTER) (* ; "(stream buffer byteoffset nbytes)") -(BLOCKOUT POINTER) (* ; "(stream buffer byteoffset nbytes)") (FORCEOUTPUT POINTER) (* ; +BREAKCONNECTION POINTER) (* \; "(host fastp dev) => closes connections to host") (* |;;| +"-----The following are required methods for operating on open streams-----") (BIN POINTER) (* \; +"(stream) => next byte of input") (BOUT POINTER) (* \; "(stream byte) output byte to stream") (PEEKBIN + POINTER) (* \; "(stream) => next byte without advancing position in stream") (NIL POINTER) (* \; +"Was READCHAR, replaced by READCHARCODE") (NIL POINTER) (* \; +"Was WRITECHAR (stream char) => writes char to stream") (NIL POINTER) (* \; "Was PEEKCHAR") (NIL +POINTER) (* \; "Was UNREADCHAR") (READP POINTER) (* \; +"(stream flag) => T if there is input available from stream right now") (EOFP POINTER) (* \; +"(stream) => T if BIN would signal eof.") (BLOCKIN POINTER) (* \; "(stream buffer byteoffset nbytes)") + (BLOCKOUT POINTER) (* \; "(stream buffer byteoffset nbytes)") (FORCEOUTPUT POINTER) (* \; "(stream waitForFinish) flushes out to device anything that is buffered awaiting transmission") ( -GETFILEINFO POINTER) (* ; +GETFILEINFO POINTER) (* \; "(stream/name attribute device) => value of attribute for open stream or name of closed file") ( -SETFILEINFO POINTER) (* ; +SETFILEINFO POINTER) (* \; "(stream/name attribute newvalue device) sets attribute of open stream or closed file of given name") -(CHARSETFN POINTER) (* ; +(CHARSETFN POINTER) (* \; "(stream charset) => access function for the charset slot, for benefit of indirect streams. See IMCHARSET for changing it on a file." -) (INPUTSTREAM POINTER) (* ; "(stream) => indirected input stream") (OUTPUTSTREAM POINTER) (* ; -"(stream) => indirected output stream") (* ;; +) (INPUTSTREAM POINTER) (* \; "(stream) => indirected input stream") (OUTPUTSTREAM POINTER) (* \; +"(stream) => indirected output stream") (* |;;| "-----Following are required of random-access streams-----") (GETFILEPTR POINTER) (GETEOFPTR POINTER) -(SETFILEPTR POINTER) (BACKFILEPTR POINTER) (* ; +(SETFILEPTR POINTER) (BACKFILEPTR POINTER) (* \; "(stream) backs up `fileptr' by one. Stream is only required to be able to do this once, i.e. one-character buffer suffices" -) (SETEOFPTR POINTER) (* ; "(stream length) => truncates or lengthens stream to indicated length") ( -LASTC POINTER) (* ; "Should be possible only if RANDOMACCESSP") (* ;; -"-----Following used for buffered streams-----") (GETNEXTBUFFER POINTER) (* ; +) (SETEOFPTR POINTER) (* \; "(stream length) => truncates or lengthens stream to indicated length") ( +LASTC POINTER) (* \; "Should be possible only if RANDOMACCESSP") (* |;;| +"-----Following used for buffered streams-----") (GETNEXTBUFFER POINTER) (* \; "(stream whatfor noerrorflg) => Disposes of current buffer and optionally reads next. whatfor is READ or WRITE. Can cause EOF error unless noerrorflg" -) (RELEASEBUFFER POINTER) (* ; "(stream) => Does whatever appropriate when CBUFPTR is released") (* ;; - "-----Following used for pagemapped streams-----") (READPAGES POINTER) (* ; +) (RELEASEBUFFER POINTER) (* \; "(stream) => Does whatever appropriate when CBUFPTR is released") (* +|;;| "-----Following used for pagemapped streams-----") (READPAGES POINTER) (* \; "(stream firstpage# buflist) => # of bytes read, starting at firstpage#, reading into buflist, a list of buffers or a single buffer (the usual case)" -) (WRITEPAGES POINTER) (* ; +) (WRITEPAGES POINTER) (* \; "(stream firstpage# buflist) writes from buflist to stream starting at firstpage# of stream") ( -TRUNCATEFILE POINTER) (* ; -"(stream page offset) make stream's eof be at page,offset, discarding anything after it") (* ;; -"-----For window system, argh-----") (WINDOWOPS POINTER) (* ; "window system operations") (WINDOWDATA -POINTER) (* ; "data for window systems") (* ;; -"-----For any stream (here to not recompile everything)-----") (READCHARCODE POINTER) (* ; -"Read a character code from the stream (cf BIN for bytes).")) DIRECTORYNAMEP _ (FUNCTION NILL) -HOSTNAMEP _ (FUNCTION NILL) READP _ (FUNCTION \GENERIC.READP) SETFILEPTR _ (FUNCTION -\IS.NOT.RANDACCESSP) GETFILEPTR _ (FUNCTION \ILLEGAL.DEVICEOP) GETEOFPTR _ (FUNCTION -\IS.NOT.RANDACCESSP) EOFP _ (FUNCTION \ILLEGAL.DEVICEOP) BLOCKIN _ (FUNCTION \GENERIC.BINS) BLOCKOUT _ - (FUNCTION \GENERIC.BOUTS) RENAMEFILE _ (FUNCTION \GENERIC.RENAMEFILE) FORCEOUTPUT _ (FUNCTION NILL) -REGISTERFILE _ (FUNCTION NILL) OPENP _ (FUNCTION NILL) UNREGISTERFILE _ (FUNCTION NILL) READCHAR _ ( -FUNCTION \GENERIC.READCHAR) WRITECHAR _ (FUNCTION \GENERIC.WRITECHAR) PEEKCHAR _ (FUNCTION -\GENERIC.PEEKCHAR) UNREADCHAR _ (FUNCTION \GENERIC.UNREADCHAR) CHARSETFN _ (FUNCTION \GENERIC.CHARSET) - BREAKCONNECTION _ (FUNCTION NILL) READCHARCODE _ (FUNCTION \GENERIC.READCCODE)) +TRUNCATEFILE POINTER) (* \; +"(stream page offset) make stream's eof be at page,offset, discarding anything after it") (* |;;| +"-----For window system, argh-----") (WINDOWOPS POINTER) (* \; "window system operations") (WINDOWDATA + POINTER) (* \; "data for window systems") (* |;;| +"-----For any stream (here to not recompile everything)-----") (NIL POINTER) (* \; +"Was READCHARCODE. Read a character code from the stream (cf BIN for bytes).")) DIRECTORYNAMEP _ ( +FUNCTION NILL) HOSTNAMEP _ (FUNCTION NILL) READP _ (FUNCTION \\GENERIC.READP) SETFILEPTR _ (FUNCTION +\\IS.NO.RANDACCESSP) GETFILEPTR _ (FUNCTION \\ILLEGAL.DEVICEOP) GETEOFPTR _ (FUNCTION +\\IS.NOT.RANDACCESSP) EOFP _ (FUNCTION \\ILLEGAL.DEVICEOP) BLOCKIN _ (FUNCTION \\GENERIC.BINS) +BLOCKOUT _ (FUNCTION \\GENERIC.BOUTS) RENAMEFILE _ (FUNCTION \\GENERIC.RENAMEFILE) FORCEOUTPUT _ ( +FUNCTION NILL) REGISTERFILE _ (FUNCTION NILL) OPENP _ (FUNCTION NILL) UNREGISTERFILE _ (FUNCTION NILL) + CHARSETFN _ (FUNCTION \\GENERIC.CHARSET) BREAKCONNECTION _ (FUNCTION NILL)) (RECORD FILEGENOBJ (NEXTFILEFN FILEINFOFN . GENFILESTATE)) -(DATATYPE EXTERNALFORMAT ((EOLVALID FLAG) (* ; -"If true, the value of EOL field will replace the EOLCONVENTION field of the resulted stream.") (EOL -BITS 2) (NIL BITS 1) (INCCODEFN POINTER) (* ; "Called with two arguments -- STREAM and COUNTP") ( -PEEKCCODEFN POINTER) (* ; "Called with three arguments -- STREAM, NOERROR and COUNTP") (BACKCHARFN -POINTER) (* ; "Called with two arguments -- STREAM and COUNTP") (FILEOUTCHARFN POINTER) (* ; -"Called with two arguments -- STREAM and CHARCODE") (NAME POINTER) (* ; -"keyword name of this format, provided to \INSTALL.EXTERNALFORMAT")) EOLVALID _ NIL) -(PUTPROPS \OUTCHAR DMACRO (OPENLAMBDA (STREAM CHARCODE) (STREAMOP (QUOTE OUTCHARFN) STREAM STREAM -CHARCODE))) -(PUTPROPS \DEVICE-OPEN-STREAMS MACRO (ARGS (LET ((DEVICE (CAR ARGS))) (BQUOTE (FDEVOP (QUOTE OPENP) ( -\, DEVICE) NIL NIL (\, DEVICE)))))) -(PUTPROPS \CONVERT-PATHNAME DMACRO (OPENLAMBDA (PATHNAME?) (* ;; +(DATATYPE EXTERNALFORMAT ((EOLVALID FLAG) (* \; +"If true, the value of EOL field will replace the EOLCONVENTION field of the resulted stream. (Can't test EOL because it is always something)" +) (EOL BITS 2) (NIL BITS 1) (INCCODEFN POINTER) (* \; +"Called with STREAM and 2 optional arguments, BYTECOUNTVAR and BYTECOUNTVAL") (PEEKCCODEFN POINTER) (* + \; "Called with three arguments -- STREAM, NOERROR, and EOL") (BACKCCODEFN POINTER) (* \; +"Called with STREAM and optional BYTECOUNTVAR and BYTECOUNTVAL") (OUTCHARFN POINTER) (* \; +"Called with two arguments -- STREAM and CHARCODE") (NAME POINTER) (* \; +"keyword name of this format, provided to \\INSTALL.EXTERNALFORMAT") (FORMATBYTESTREAMFN POINTER (* \; + +"Function to copy the format state of a given stream to an IO stream that allows formatted byte sequences to be examined" +)))) +(RPAQ? *DEFAULT-EXTERNALFORMAT* :XCCS) +(PUTPROPS \\DEVICE-OPEN-STREAMS MACRO (ARGS (LET ((DEVICE (CAR ARGS))) (BQUOTE (FDEVOP (QUOTE OPENP) ( +\\\, DEVICE) NIL NIL (\\\, DEVICE)))))) +(PUTPROPS \\CONVERT-PATHNAME DMACRO (OPENLAMBDA (PATHNAME?) (* |;;| "Coerce pathnames to Interlisp strings, for the benefit of antediluvian Interlisp-D file fns") ( CL:TYPECASE PATHNAME? (PATHNAME (INTERLISP-NAMESTRING PATHNAME?)) (T PATHNAME?)))) (DEFOPTIMIZER ACCESS-CHARSET (STREAM &OPTIONAL NEWVALUE) (BQUOTE ((OPENLAMBDA (STRM) (FDEVOP (QUOTE -CHARSETFN) (fetch (STREAM DEVICE) of STRM) STRM (\, NEWVALUE))) (\, STREAM)))) -(PUTPROPS \DECFILEPTR MACRO ((STREAM X) (\INCFILEPTR STREAM (IMINUS X)))) -(PUTPROPS \GETFILEPTR MACRO (OPENLAMBDA (STRM) (FDEVOP (QUOTE GETFILEPTR) (fetch DEVICE of STRM) STRM) -)) -(PUTPROPS \SIGNEDWIN MACRO ((STREAM) (SIGNED (\WIN STREAM) BITSPERWORD))) -(PUTPROPS \SIGNEDWOUT MACRO ((STREAM N) (\WOUT STREAM (UNSIGNED N BITSPERWORD)))) -(PUTPROPS \WIN MACRO (OPENLAMBDA (STREAM) (create WORD HIBYTE _ (\BIN STREAM) LOBYTE _ (\BIN STREAM))) -) -(PUTPROPS \WOUT MACRO (OPENLAMBDA (STREAM W) (\BOUT STREAM (fetch HIBYTE of W)) (\BOUT STREAM (fetch -LOBYTE of W)))) -(PUTPROPS \BINS BYTEMACRO (OPENLAMBDA (STRM BASE OFF NBYTES) (FDEVOP (QUOTE BLOCKIN) (fetch (STREAM -DEVICE) of STRM) STRM BASE OFF NBYTES))) -(PUTPROPS \BOUTS BYTEMACRO (OPENLAMBDA (STRM BASE OFF NBYTES) (FDEVOP (QUOTE BLOCKOUT) (fetch (STREAM -DEVICE) of STRM) STRM BASE OFF NBYTES))) -(PUTPROPS \EOFP BYTEMACRO (OPENLAMBDA (STRM) (FDEVOP (QUOTE EOFP) (fetch (STREAM DEVICE) of STRM) STRM -))) +CHARSETFN) (|fetch| (STREAM DEVICE) |of| STRM) STRM (\\\, NEWVALUE))) (\\\, STREAM)))) +(PUTPROPS \\DECFILEPTR MACRO ((STREAM X) (\\INCFILEPTR STREAM (IMINUS X)))) +(PUTPROPS \\GETFILEPTR MACRO (OPENLAMBDA (STRM) (FDEVOP (QUOTE GETFILEPTR) (|fetch| DEVICE |of| STRM) +STRM))) +(PUTPROPS \\SIGNEDWIN MACRO ((STREAM) (SIGNED (\\WIN STREAM) BITSPERWORD))) +(PUTPROPS \\SIGNEDWOUT MACRO ((STREAM N) (\\WOUT STREAM (UNSIGNED N BITSPERWORD)))) +(PUTPROPS \\WIN MACRO (OPENLAMBDA (STREAM) (|create| WORD HIBYTE _ (\\BIN STREAM) LOBYTE _ (\\BIN +STREAM)))) +(PUTPROPS \\WOUT MACRO (OPENLAMBDA (STREAM W) (\\BOUT STREAM (|fetch| HIBYTE |of| W)) (\\BOUT STREAM ( +|fetch| LOBYTE |of| W)))) +(PUTPROPS \\BINS BYTEMACRO (OPENLAMBDA (STRM BASE OFF NBYTES) (FDEVOP (QUOTE BLOCKIN) (|fetch| (STREAM + DEVICE) |of| STRM) STRM BASE OFF NBYTES))) +(PUTPROPS \\BOUTS BYTEMACRO (OPENLAMBDA (STRM BASE OFF NBYTES) (FDEVOP (QUOTE BLOCKOUT) (|fetch| ( +STREAM DEVICE) |of| STRM) STRM BASE OFF NBYTES))) +(PUTPROPS \\BOUTEOL MACRO (OPENLAMBDA (STRM) (SELECTC (FETCH (STREAM EOLCONVENTION) OF STRM) (LF.EOLC +(\\BOUT STRM (CHARCODE LF))) (CR.EOLC (\\BOUT STRM (CHARCODE CR))) (CRLF.EOLC (\\BOUT STRM (CHARCODE +CR)) (\\BOUT STRM (CHARCODE LF))) (ANY.EOLC (SHOULDNT)) NIL))) +(PUTPROPS \\EOFP BYTEMACRO (OPENLAMBDA (STRM) (FDEVOP (QUOTE EOFP) (|fetch| (STREAM DEVICE) |of| STRM) + STRM))) (PUTPROPS SIZE.FROM.LENGTH MACRO (LAMBDA (LEN) (DECLARE (LOCALVARS LEN)) (AND LEN (FOLDHI LEN BYTESPERPAGE)))) -(RPAQQ BitsPerByte 8) -(RPAQ ByteOffsetSize (SELECTQ (SYSTEMTYPE) (VAX 10) 9)) -(RPAQQ WordsPerPage 256) -(CONSTANTS BitsPerByte (ByteOffsetSize (SELECTQ (SYSTEMTYPE) (VAX 10) 9)) WordsPerPage) -(RPAQ \MAXFILEPTR (SUB1 (LLSH 1 30))) -(CONSTANTS (\MAXFILEPTR (SUB1 (LLSH 1 30)))) +(RPAQQ |BitsPerByte| 8) +(RPAQ |ByteOffsetSize| (SELECTQ (SYSTEMTYPE) (VAX 10) 9)) +(RPAQQ |WordsPerPage| 256) +(CONSTANTS |BitsPerByte| (|ByteOffsetSize| (SELECTQ (SYSTEMTYPE) (VAX 10) 9)) |WordsPerPage|) +(RPAQ \\MAXFILEPTR (SUB1 (LLSH 1 30))) +(CONSTANTS (\\MAXFILEPTR (SUB1 (LLSH 1 30)))) (ACCESSFNS BYTEPTR ((PAGE (FOLDLO DATUM BYTESPERPAGE)) (OFFSET (MOD DATUM BYTESPERPAGE))) (TYPE? (AND -(FIXP DATUM) (IGEQ DATUM 0) (ILEQ DATUM \MAXFILEPTR))) (CREATE (IPLUS (UNFOLD PAGE BYTESPERPAGE) +(FIXP DATUM) (IGEQ DATUM 0) (ILEQ DATUM \\MAXFILEPTR))) (CREATE (IPLUS (UNFOLD PAGE BYTESPERPAGE) OFFSET))) -(PUTPROP (QUOTE FILEIO) (QUOTE IMPORTDATE) (IDATE "27-Apr-2021 20:06:09")) +(PUTPROP (QUOTE FILEIO) (QUOTE IMPORTDATE) (IDATE " 9-Jul-2021 17:43:10")) -(BLOCKRECORD FIXP ((HINUM WORD) (LONUM WORD)) (CREATE (CREATECELL \FIXP)) (TYPE? (EQ (NTYPX DATUM) -\FIXP))) +(BLOCKRECORD FIXP ((HINUM WORD) (LONUM WORD)) (CREATE (CREATECELL \\FIXP)) (TYPE? (EQ (NTYPX DATUM) +\\FIXP))) (RPAQQ MAX.SMALL.INTEGER 65535) (RPAQQ MAX.POS.HINUM 32767) (CONSTANTS (MAX.SMALL.INTEGER 65535) (MAX.POS.HINUM 32767)) (PUTPROPS .UNBOX. MACRO (ARGS (LET ((ARG-FORM (CAR ARGS)) (HIGH-VAR (CADR ARGS)) (LOW-VAR (CADDR ARGS) -) (BIGNUM-FORM (CADDDR ARGS))) (BQUOTE (PROG NIL UBLP (SELECTC (NTYPX (\, ARG-FORM)) (\FIXP (SETQ (\, -HIGH-VAR) (ffetch (FIXP HINUM) of (\, ARG-FORM))) (SETQ (\, LOW-VAR) (ffetch (FIXP LONUM) of (\, -ARG-FORM)))) (\SMALLP (COND ((ILEQ 0 (\, ARG-FORM)) (SETQ (\, HIGH-VAR) 0) (SETQ (\, LOW-VAR) (\, -ARG-FORM))) (T (SETQ (\, HIGH-VAR) 65535) (SETQ (\, LOW-VAR) (\LOLOC (\, ARG-FORM)))))) (\FLOATP (SETQ - (\, ARG-FORM) (\FIXP.FROM.FLOATP (\, ARG-FORM))) (GO UBLP)) (COND ((TYPENAMEP (\, ARG-FORM) (QUOTE -RATIO)) (SETQ (\, ARG-FORM) (IQUOTIENT (CL::RATIO-NUMERATOR (\, ARG-FORM)) (CL::RATIO-DENOMINATOR (\, -ARG-FORM)))) (GO UBLP)) (\,@ (COND (BIGNUM-FORM (BQUOTE (((CL:INTEGERP (\, ARG-FORM)) (\, BIGNUM-FORM) -)))) (T (BQUOTE (((CL:INTEGERP (\, ARG-FORM)) (\ILLEGAL.ARG (\, ARG-FORM)))))))) (T ( -CL::%%NOT-NONCOMPLEX-NUMBER-ERROR (\, ARG-FORM)))))))))) +) (BIGNUM-FORM (CADDDR ARGS))) (BQUOTE (PROG NIL UBLP (SELECTC (NTYPX (\\\, ARG-FORM)) (\\FIXP (SETQ ( +\\\, HIGH-VAR) (|ffetch| (FIXP HINUM) |of| (\\\, ARG-FORM))) (SETQ (\\\, LOW-VAR) (|ffetch| (FIXP +LONUM) |of| (\\\, ARG-FORM)))) (\\SMALLP (COND ((ILEQ 0 (\\\, ARG-FORM)) (SETQ (\\\, HIGH-VAR) 0) ( +SETQ (\\\, LOW-VAR) (\\\, ARG-FORM))) (T (SETQ (\\\, HIGH-VAR) 65535) (SETQ (\\\, LOW-VAR) (\\LOLOC ( +\\\, ARG-FORM)))))) (\\FLOATP (SETQ (\\\, ARG-FORM) (\\FIXP.FROM.FLOATP (\\\, ARG-FORM))) (GO UBLP)) ( +COND ((TYPENAMEP (\\\, ARG-FORM) (QUOTE RATIO)) (SETQ (\\\, ARG-FORM) (IQUOTIENT (CL::RATIO-NUMERATOR +(\\\, ARG-FORM)) (CL::RATIO-DENOMINATOR (\\\, ARG-FORM)))) (GO UBLP)) (\\\,@ (COND (BIGNUM-FORM ( +BQUOTE (((CL:INTEGERP (\\\, ARG-FORM)) (\\\, BIGNUM-FORM))))) (T (BQUOTE (((CL:INTEGERP (\\\, ARG-FORM +)) (\\ILLEGAL.ARG (\\\, ARG-FORM)))))))) (T (CL::%NOT-NONCOMPLEX-NUMBER-ERROR (\\\, ARG-FORM)))))))))) (PUTPROPS .NEGATE. MACRO ((HY LY) (COND ((EQ 0 LY) (AND (NEQ HY 0) (SETQ HY (ADD1 (IDIFFERENCE MAX.SMALL.INTEGER HY))))) (T (SETQ HY (IDIFFERENCE MAX.SMALL.INTEGER HY)) (SETQ LY (ADD1 (IDIFFERENCE MAX.SMALL.INTEGER LY))))))) -(PUTPROPS .LLSH1. MACRO ((HI LO) (* ; "shift the pair left one, assuming no overflow") (SETQ HI (LLSH -HI 1)) (SETQ LO (LLSH (COND ((IGREATERP LO MAX.POS.HINUM) (add HI 1) (LOGAND LO MAX.POS.HINUM)) (T LO) -) 1)))) +(PUTPROPS .LLSH1. MACRO ((HI LO) (* \; "shift the pair left one, assuming no overflow") (SETQ HI (LLSH + HI 1)) (SETQ LO (LLSH (COND ((IGREATERP LO MAX.POS.HINUM) (|add| HI 1) (LOGAND LO MAX.POS.HINUM)) (T +LO)) 1)))) (PUTPROPS .LRSH1. MACRO ((HI LO) (SETQ LO (LRSH LO 1)) (COND ((NEQ (LOGAND HI 1) 0) (SETQ LO (IPLUS LO - \SIGNBIT)))) (SETQ HI (LRSH HI 1)))) -(PUTPROPS .BOXIPLUS. MACRO (OPENLAMBDA (X Y) (PROG ((HX (\GETBASE X 0)) (LX (\GETBASE X 1)) HY LY) ( + \\SIGNBIT)))) (SETQ HI (LRSH HI 1)))) +(PUTPROPS .BOXIPLUS. MACRO (OPENLAMBDA (X Y) (PROG ((HX (\\GETBASE X 0)) (LX (\\GETBASE X 1)) HY LY) ( .UNBOX. Y HY LY) (SETQ HX (COND ((IGREATERP HX (IDIFFERENCE MAX.SMALL.INTEGER HY)) (IDIFFERENCE HX ( -ADD1 (IDIFFERENCE MAX.SMALL.INTEGER HY)))) (T (IPLUS HX HY)))) (* Add high parts) (\PUTBASE X 1 (COND -((IGREATERP LX (IDIFFERENCE MAX.SMALL.INTEGER LY)) (* Carry into high part.) (SETQ HX (COND ((EQ HX -MAX.SMALL.INTEGER) 0) (T (ADD1 HX)))) (IDIFFERENCE LX (ADD1 (IDIFFERENCE MAX.SMALL.INTEGER LY)))) (T ( -IPLUS LX LY)))) (\PUTBASE X 0 HX) (RETURN X)))) -(PUTPROPS PutUnboxed DMACRO (= . \PUTFIXP)) -(PUTPROP (QUOTE LLARITH) (QUOTE IMPORTDATE) (IDATE "27-Apr-2021 20:06:09")) +ADD1 (IDIFFERENCE MAX.SMALL.INTEGER HY)))) (T (IPLUS HX HY)))) (* |Add| |high| |parts|) (\\PUTBASE X 1 + (COND ((IGREATERP LX (IDIFFERENCE MAX.SMALL.INTEGER LY)) (* |Carry| |into| |high| |part.|) (SETQ HX ( +COND ((EQ HX MAX.SMALL.INTEGER) 0) (T (ADD1 HX)))) (IDIFFERENCE LX (ADD1 (IDIFFERENCE +MAX.SMALL.INTEGER LY)))) (T (IPLUS LX LY)))) (\\PUTBASE X 0 HX) (RETURN X)))) +(PUTPROPS |PutUnboxed| DMACRO (= . \\PUTFIXP)) +(PUTPROP (QUOTE LLARITH) (QUOTE IMPORTDATE) (IDATE "16-May-1990 18:47:56")) -(PUTPROPS POLYEVAL DMACRO ((X COEFFS DEGREE) (* ; -"execute the POLYEVAL opcode on the value X, the array COEFFS with degree DEGREE") (\FLOATBOX (( -OPCODES UBFLOAT3 0) (\FLOATUNBOX X) (fetch (ARRAYP BASE) of COEFFS) DEGREE)))) +(PUTPROPS POLYEVAL DMACRO ((X COEFFS DEGREE) (* \; +"execute the POLYEVAL opcode on the value X, the array COEFFS with degree DEGREE") (\\FLOATBOX (( +OPCODES UBFLOAT3 0) (\\FLOATUNBOX X) (|fetch| (ARRAYP BASE) |of| COEFFS) DEGREE)))) (BLOCKRECORD FLOATP ((SIGNBIT BITS 1) (EXPONENT BITS 8) (HIFRACTION BITS 7) (LOFRACTION BITS 16)) ( BLOCKRECORD FLOATP ((HIWORD WORD) (LOWORD WORD))) (BLOCKRECORD FLOATP ((NIL BITS 9) (LONGFRACTION BITS 23))) (BLOCKRECORD FLOATP ((FLOATCONTENTS BITS 32))) (BLOCKRECORD FLOATP ((NIL BITS 1) ( -HIWORDNOSIGNBIT BITS 15))) (CREATE (\FLOATBOX (\VAG2 (LOGOR (LLSH SIGNBIT (PLUS 7 8)) (LLSH EXPONENT 7 -) HIFRACTION) LOFRACTION))) LOFRACTION _ 0 HIFRACTION _ 0 EXPONENT _ 0 SIGNBIT _ 0 (ACCESSFNS FLOATP ( -(EXP (LOGAND (LRSH (\HILOC (\FLOATUNBOX DATUM)) 7) 255)) (HIFRAC (LOGAND (\HILOC (\FLOATUNBOX DATUM)) -127))))) +HIWORDNOSIGNBIT BITS 15))) (CREATE (\\FLOATBOX (\\VAG2 (LOGOR (LLSH SIGNBIT (PLUS 7 8)) (LLSH EXPONENT + 7) HIFRACTION) LOFRACTION))) LOFRACTION _ 0 HIFRACTION _ 0 EXPONENT _ 0 SIGNBIT _ 0 (ACCESSFNS FLOATP + ((EXP (LOGAND (LRSH (\\HILOC (\\FLOATUNBOX DATUM)) 7) 255)) (HIFRAC (LOGAND (\\HILOC (\\FLOATUNBOX +DATUM)) 127))))) (RPAQQ MAX.DIGITS.ACCURACY 9) (CONSTANTS (MAX.DIGITS.ACCURACY 9)) -(PUTPROPS \CALLER.ARGS MACRO (X (LET ((ARGS (CAR X)) (FORMS (CDR X))) (BQUOTE (PROGN (\SLOWRETURN) ( -LET ((AL (\MYALINK)) NEXT (\,@ (for VAR in ARGS collect (COND ((LISTP VAR) (LIST (CAR VAR) 0)) (T VAR) -)))) (DECLARE (\,@ (for VAR in ARGS when (LISTP VAR) collect (BQUOTE (TYPE (\, (SELECTQ (CADR VAR) (( -FLOATING FLOATP) (CADR VAR)) (HELP))) (\, (CAR VAR))))))) (SETQ NEXT (fetch (FX NEXTBLOCK) of AL)) ( -\,@ (for X in (REVERSE ARGS) collect (LET ((FORMS (BQUOTE (\.GETBASE32 \STACKSPACE (SETQ NEXT ( -IDIFFERENCE NEXT WORDSPERCELL)))))) (COND ((LISTP X) (BQUOTE (SETQ (\, (CAR X)) (\FLOATBOX (\, FORMS)) -))) (T (BQUOTE (SETQ (\, X) (\, FORMS)))))))) (\MAKEFREEBLOCK NEXT (TIMES (\, (LENGTH ARGS)) -WORDSPERCELL)) (replace (FX NEXTBLOCK) of AL with NEXT) (PROGN (\,@ FORMS)))))))) -(PUTPROP (QUOTE LLFLOAT) (QUOTE IMPORTDATE) (IDATE "27-Apr-2021 20:06:09")) +(PUTPROPS \\CALLER.ARGS MACRO (X (LET ((ARGS (CAR X)) (FORMS (CDR X))) (BQUOTE (PROGN (\\SLOWRETURN) ( +LET ((AL (\\MYALINK)) NEXT (\\\,@ (|for| VAR |in| ARGS |collect| (COND ((LISTP VAR) (LIST (CAR VAR) 0) +) (T VAR))))) (DECLARE (\\\,@ (|for| VAR |in| ARGS |when| (LISTP VAR) |collect| (BQUOTE (TYPE (\\\, ( +SELECTQ (CADR VAR) ((FLOATING FLOATP) (CADR VAR)) (HELP))) (\\\, (CAR VAR))))))) (SETQ NEXT (|fetch| ( +FX NEXTBLOCK) |of| AL)) (\\\,@ (|for| X |in| (REVERSE ARGS) |collect| (LET ((FORMS (BQUOTE ( +\\.GETBASE32 \\STACKSPACE (SETQ NEXT (IDIFFERENCE NEXT WORDSPERCELL)))))) (COND ((LISTP X) (BQUOTE ( +SETQ (\\\, (CAR X)) (\\FLOATBOX (\\\, FORMS))))) (T (BQUOTE (SETQ (\\\, X) (\\\, FORMS)))))))) ( +\\MAKEFREEBLOCK NEXT (TIMES (\\\, (LENGTH ARGS)) WORDSPERCELL)) (|replace| (FX NEXTBLOCK) |of| AL +|with| NEXT) (PROGN (\\\,@ FORMS)))))))) +(PUTPROP (QUOTE LLFLOAT) (QUOTE IMPORTDATE) (IDATE "16-May-1990 19:26:51")) (DEFOPTIMIZER FONTPROP (&REST ARGS) (SELECTQ (AND (EQ (CAADR ARGS) (QUOTE QUOTE)) (CADADR ARGS)) ( ASCENT (LIST (QUOTE FONTASCENT) (CAR ARGS))) (DESCENT (LIST (QUOTE FONTDESCENT) (CAR ARGS))) (HEIGHT ( LIST (QUOTE FONTHEIGHT) (CAR ARGS))) (QUOTE IGNOREMACRO))) (DATATYPE FONTCLASS ((PRETTYFONT# BYTE) DISPLAYFD PRESSFD INTERPRESSFD OTHERFDS FONTCLASSNAME)) (DATATYPE FONTDESCRIPTOR ((FONTDEVICE POINTER) (FONTFAMILY POINTER) (FONTSIZE POINTER) (FONTFACE -POINTER) (\SFAscent WORD) (\SFDescent WORD) (\SFHeight WORD) (ROTATION WORD) (FBBOX SIGNEDWORD) (FBBOY - SIGNEDWORD) (FBBDX SIGNEDWORD) (FBBDY SIGNEDWORD) (\SFLKerns POINTER) (\SFRWidths POINTER) ( -FONTDEVICESPEC POINTER) (* ; +POINTER) (|\\SFAscent| WORD) (|\\SFDescent| WORD) (|\\SFHeight| WORD) (ROTATION WORD) (FBBOX +SIGNEDWORD) (FBBOY SIGNEDWORD) (FBBDX SIGNEDWORD) (FBBDY SIGNEDWORD) (|\\SFLKerns| POINTER) ( +|\\SFRWidths| POINTER) (FONTDEVICESPEC POINTER) (* \; "Holds the spec by which the font is known to the printing device, if coercion has been done") ( -OTHERDEVICEFONTPROPS POINTER) (* ; "For individual devices to hang special information") (FONTSCALE -POINTER) (\SFFACECODE BITS 8) (FONTAVGCHARWIDTH WORD) (* ; +OTHERDEVICEFONTPROPS POINTER) (* \; "For individual devices to hang special information") (FONTSCALE +POINTER) (\\SFFACECODE BITS 8) (FONTAVGCHARWIDTH WORD) (* \; "Set in FONTCREATE, used to fix up the linelength when DSPFONT is called") (FONTIMAGEWIDTHS POINTER) ( -* ; +* \; "This is the image width, as opposed to the advanced width; initial hack for accents, kerning. Fields is referenced by FONTCREATE." -) (FONTCHARSETVECTOR POINTER) (* ; +) (FONTCHARSETVECTOR POINTER) (* \; "A 256-pointer block, with one pointer per 'character set' --each group of 256 character codes. Each pointer is either NIL if there's no info for that charset, or is a CHARSETINFO, containing widths, char bitmap, etc for the characters in that charset." -) (FONTEXTRAFIELD2 POINTER)) FONTCHARSETVECTOR _ (\CREATEFONTCHARSETVECTOR)) +) (FONTEXTRAFIELD2 POINTER)) FONTCHARSETVECTOR _ (\\CREATEFONTCHARSETVECTOR)) (RECORD FONTFACE (WEIGHT SLOPE EXPANSION) (ACCESSFNS ((COLOR (CDDDR DATUM) (RPLACD (CDDR DATUM) NEWVALUE)) (BACKCOLOR (COND ((CDDDR DATUM) (CAR (CDDDR DATUM)))) (PROGN (COND ((NULL (CDDDR DATUM)) ( RPLACD (CDDR DATUM) (LIST NIL NIL)))) (RPLACA (CDDDR DATUM) NEWVALUE))) (FORECOLOR (COND ((CDDDR DATUM ) (CADR (CDDDR DATUM)))) (PROGN (COND ((NULL (CDDDR DATUM)) (RPLACD (CDDR DATUM) (LIST NIL NIL)))) ( RPLACA (CDR (CDDDR DATUM)) NEWVALUE))))) WEIGHT _ (QUOTE MEDIUM) SLOPE _ (QUOTE REGULAR) EXPANSION _ ( QUOTE REGULAR) (TYPE? LISTP)) -(DATATYPE CHARSETINFO (WIDTHS (* ; +(DATATYPE CHARSETINFO (WIDTHS (* \; "The advance-width of each character, an array indexed by charcode. Usually the same as the imagewidth, but can differ for accents, kerns kerns. This is what should be used for stringwidth calculations." -) OFFSETS (* ; "Offset of each character into the image bitmap; X value of left edge") IMAGEWIDTHS (* - ; "imagewidths is not automagically allocated since it is not always needed") CHARSETBITMAP (* ; -"Bitmap containing the character images, indexed by OFFSETS") YWIDTHS (CHARSETASCENT WORD) (* ; -"Max ascent for all characters in this CHARSET") (CHARSETDESCENT WORD) (* ; -"Max descent for all characters in this CHARSET") LEFTKERN) WIDTHS _ (\CREATECSINFOELEMENT) OFFSETS _ -(\CREATECSINFOELEMENT)) -(PUTPROPS FONTASCENT MACRO ((FONTSPEC) (ffetch \SFAscent of (\GETFONTDESC FONTSPEC)))) -(PUTPROPS FONTDESCENT MACRO ((FONTSPEC) (ffetch \SFDescent of (\GETFONTDESC FONTSPEC)))) -(PUTPROPS FONTHEIGHT MACRO ((FONTSPEC) (ffetch \SFHeight of (\GETFONTDESC FONTSPEC)))) -(PUTPROPS \FGETOFFSET DMACRO ((OFFSETSBLOCK CHAR8CODE) (\GETBASE OFFSETSBLOCK CHAR8CODE))) -(PUTPROPS \FSETOFFSET DMACRO ((OFFSETSBLOCK CHAR8CODE OFFSET) (\PUTBASE OFFSETSBLOCK CHAR8CODE OFFSET) -)) -(PUTPROPS \FGETWIDTH DMACRO ((WIDTHSBLOCK CHAR8CODE) (\GETBASE WIDTHSBLOCK CHAR8CODE))) -(PUTPROPS \FSETWIDTH DMACRO ((WIDTHSBLOCK INDEX WIDTH) (\PUTBASE WIDTHSBLOCK INDEX WIDTH))) -(PUTPROPS \FGETCHARWIDTH MACRO (OPENLAMBDA (FONTDESC CHARCODE) (\FGETWIDTH (ffetch (CHARSETINFO WIDTHS -) of (\GETCHARSETINFO (\CHARSET CHARCODE) FONTDESC)) (\CHAR8CODE CHARCODE)))) -(PUTPROPS \FSETCHARWIDTH MACRO (OPENLAMBDA (FONTDESC CHARCODE WIDTH) (\FSETWIDTH (ffetch (CHARSETINFO -WIDTHS) of (\GETCHARSETINFO (\CHARSET CHARCODE) FONTDESC)) (\CHAR8CODE CHARCODE) WIDTH))) -(PUTPROPS \FGETIMAGEWIDTH MACRO ((IMAGEWIDTHSBLOCK CHAR8CODE) (\GETBASE IMAGEWIDTHSBLOCK CHAR8CODE))) -(PUTPROPS \FSETIMAGEWIDTH DMACRO ((WIDTHSBLOCK INDEX WIDTH) (\PUTBASE WIDTHSBLOCK INDEX WIDTH))) -(PUTPROPS \GETCHARSETINFO MACRO ((CHARSET FONTDESC NOSLUG?) (* ;; +) OFFSETS (* \; "Offset of each character into the image bitmap; X value of left edge") IMAGEWIDTHS ( +* \; "imagewidths is not automagically allocated since it is not always needed") CHARSETBITMAP (* \; +"Bitmap containing the character images, indexed by OFFSETS") YWIDTHS (CHARSETASCENT WORD) (* \; +"Max ascent for all characters in this CHARSET") (CHARSETDESCENT WORD) (* \; +"Max descent for all characters in this CHARSET") LEFTKERN) WIDTHS _ (\\CREATECSINFOELEMENT) OFFSETS _ + (\\CREATECSINFOELEMENT)) +(PUTPROPS FONTASCENT MACRO ((FONTSPEC) (|ffetch| |\\SFAscent| |of| (\\GETFONTDESC FONTSPEC)))) +(PUTPROPS FONTDESCENT MACRO ((FONTSPEC) (|ffetch| |\\SFDescent| |of| (\\GETFONTDESC FONTSPEC)))) +(PUTPROPS FONTHEIGHT MACRO ((FONTSPEC) (|ffetch| |\\SFHeight| |of| (\\GETFONTDESC FONTSPEC)))) +(PUTPROPS \\FGETOFFSET DMACRO ((OFFSETSBLOCK CHAR8CODE) (\\GETBASE OFFSETSBLOCK CHAR8CODE))) +(PUTPROPS \\FSETOFFSET DMACRO ((OFFSETSBLOCK CHAR8CODE OFFSET) (\\PUTBASE OFFSETSBLOCK CHAR8CODE +OFFSET))) +(PUTPROPS \\FGETWIDTH DMACRO ((WIDTHSBLOCK CHAR8CODE) (\\GETBASE WIDTHSBLOCK CHAR8CODE))) +(PUTPROPS \\FSETWIDTH DMACRO ((WIDTHSBLOCK INDEX WIDTH) (\\PUTBASE WIDTHSBLOCK INDEX WIDTH))) +(PUTPROPS \\FGETCHARWIDTH MACRO (OPENLAMBDA (FONTDESC CHARCODE) (\\FGETWIDTH (|ffetch| (CHARSETINFO +WIDTHS) |of| (\\GETCHARSETINFO (\\CHARSET CHARCODE) FONTDESC)) (\\CHAR8CODE CHARCODE)))) +(PUTPROPS \\FSETCHARWIDTH MACRO (OPENLAMBDA (FONTDESC CHARCODE WIDTH) (\\FSETWIDTH (|ffetch| ( +CHARSETINFO WIDTHS) |of| (\\GETCHARSETINFO (\\CHARSET CHARCODE) FONTDESC)) (\\CHAR8CODE CHARCODE) +WIDTH))) +(PUTPROPS \\FGETIMAGEWIDTH MACRO ((IMAGEWIDTHSBLOCK CHAR8CODE) (\\GETBASE IMAGEWIDTHSBLOCK CHAR8CODE)) +) +(PUTPROPS \\FSETIMAGEWIDTH DMACRO ((WIDTHSBLOCK INDEX WIDTH) (\\PUTBASE WIDTHSBLOCK INDEX WIDTH))) +(PUTPROPS \\GETCHARSETINFO MACRO ((CHARSET FONTDESC NOSLUG?) (* |;;| "fetches the charsetinfo for charset CHARSET in fontdescriptor FONTDESC. If NIL, then creates the required charset." -) (* ;; +) (* |;;| "NOSLUG? means don't create an empty (slug) csinfo if the charset is not found, just return NIL") (OR - (\GETBASEPTR (ffetch FONTCHARSETVECTOR of FONTDESC) (UNFOLD CHARSET 2)) (\CREATECHARSET CHARSET -FONTDESC NOSLUG?)))) -(PUTPROPS \CREATECSINFOELEMENT MACRO (NIL (\ALLOCBLOCK (FOLDHI (IPLUS \MAXTHINCHAR 3) WORDSPERCELL)))) -(PUTPROPS \CREATEFONTCHARSETVECTOR MACRO (NIL (* ; "Allocates a block for the character set records") -(\ALLOCBLOCK (ADD1 \MAXCHARSET) T))) -(DEFMACRO \CREATEKERNELEMENT NIL (BQUOTE (CL:MAKE-ARRAY (IPLUS \MAXTHINCHAR 3) :ELEMENT-TYPE (QUOTE ( -SIGNED-BYTE 16)) :INITIAL-ELEMENT 0))) -(DEFMACRO \FSETLEFTKERN (LEFTKERNBLOCK INDEX KERNVALUE) (BQUOTE (CL:SETF (CL:AREF (\, LEFTKERNBLOCK) ( -\, INDEX)) (\, KERNVALUE)))) -(DEFMACRO \FGETLEFTKERN (LEFTKERNBLOCK CHAR8CODE) (BQUOTE (CL:AREF (\, LEFTKERNBLOCK) (\, CHAR8CODE))) -) -(RPAQQ \MAXNSCHAR 65535) -(CONSTANTS (\MAXNSCHAR 65535)) -(PUTPROP (QUOTE FONT) (QUOTE IMPORTDATE) (IDATE "27-Apr-2021 20:06:09")) + (\\GETBASEPTR (|ffetch| FONTCHARSETVECTOR |of| FONTDESC) (UNFOLD CHARSET 2)) (\\CREATECHARSET CHARSET + FONTDESC NOSLUG?)))) +(PUTPROPS \\CREATECSINFOELEMENT MACRO (NIL (\\ALLOCBLOCK (FOLDHI (IPLUS \\MAXTHINCHAR 3) WORDSPERCELL) +))) +(PUTPROPS \\CREATEFONTCHARSETVECTOR MACRO (NIL (* \; "Allocates a block for the character set records" +) (\\ALLOCBLOCK (ADD1 \\MAXCHARSET) T))) +(DEFMACRO \\CREATEKERNELEMENT NIL (BQUOTE (CL:MAKE-ARRAY (IPLUS \\MAXTHINCHAR 3) :ELEMENT-TYPE (QUOTE +(SIGNED-BYTE 16)) :INITIAL-ELEMENT 0))) +(DEFMACRO \\FSETLEFTKERN (LEFTKERNBLOCK INDEX KERNVALUE) (BQUOTE (CL:SETF (CL:AREF (\\\, LEFTKERNBLOCK +) (\\\, INDEX)) (\\\, KERNVALUE)))) +(DEFMACRO \\FGETLEFTKERN (LEFTKERNBLOCK CHAR8CODE) (BQUOTE (CL:AREF (\\\, LEFTKERNBLOCK) (\\\, +CHAR8CODE)))) +(RPAQQ \\MAXNSCHAR 65535) +(CONSTANTS (\\MAXNSCHAR 65535)) +(PUTPROP (QUOTE FONT) (QUOTE IMPORTDATE) (IDATE " 9-Feb-2021 11:39:44")) -(BLOCKRECORD KEYACTION ((* ;; +(BLOCKRECORD KEYACTION ((* |;;| "KEYACTION Table: For interpreting keystrokes. Stored as a 8-cell block of untyped pointer hunk storage." -) FLAGS (* ; +) FLAGS (* \; "Flag byte per key# (one for down-transtion, 1 for up-.) to describe whether lockshifting occrrs, you ignore the transition, etc." -) CODES (* ; "Table of character codes generated by each key when no shift key is pressed.") -SHIFTCODES (* ; "Table of character codes generated by each key when the shift key is pressed.") ARMED - (* ; "Not sure...") INTERRUPTLIST (* ; "List of armed interrupts?") ALTGRAPHCODES (* ; -"Table of codes to be generated when the ALT-GRAPH key is pressed.") DEADKEYLIST (* ; -"Block of dead-key handlers, with the nominal up-transition fields filled by the shifted-case tables. Each %"table%" is an ALIST of orignal code => accented code. no entry means punt the accent.." -)) FLAGS _ (\ALLOCBLOCK (FOLDHI (IPLUS \NKEYS \NKEYS) BYTESPERCELL)) CODES _ (\ALLOCBLOCK (FOLDHI ( -PLUS \NKEYS \NKEYS) WORDSPERCELL)) SHIFTCODES _ (\ALLOCBLOCK (FOLDHI (PLUS \NKEYS \NKEYS) WORDSPERCELL -)) ARMED _ (\ALLOCBLOCK (FOLDHI (ADD1 \MAXTHINCHAR) BITSPERCELL)) ALTGRAPHCODES _ (\ALLOCBLOCK (FOLDHI - (PLUS \NKEYS \NKEYS) WORDSPERCELL)) DEADKEYLIST _ (\ALLOCBLOCK (PLUS \NKEYS \NKEYS \NKEYS \NKEYS) T) -(CREATE (\ALLOCBLOCK 7 PTRBLOCK.GCT)) (TYPE? (AND (\BLOCKDATAP DATUM) (IGEQ (\#BLOCKDATACELLS DATUM) 5 -) (OR (NULL (FETCH (KEYACTION INTERRUPTLIST) OF DATUM)) (LISTP (FETCH INTERRUPTLIST OF DATUM))) ( -\BLOCKDATAP (FETCH (KEYACTION FLAGS) DATUM)) (\BLOCKDATAP (FETCH (KEYACTION CODES) DATUM)) ( -\BLOCKDATAP (FETCH (KEYACTION ARMED) DATUM))))) -(RPAQQ \NKEYS 112) -(CONSTANTS \NKEYS) -(DEFOPTIMIZER KEYDOWNP (KEYNAME) (BQUOTE (\NEWKEYDOWNP (\KEYNAMETONUMBER (\, KEYNAME))))) -(PUTPROPS XKEYDOWNP MACRO ((KEYNAME) (KEYDOWNP1 (\KEYNAMETONUMBER KEYNAME)))) -(PUTPROPS KEYDOWNP1 MACRO (OPENLAMBDA (KEYNUMBER) (DECLARE (GLOBALVARS \EM.KBDAD0 \EM.KBDAD1 -\EM.KBDAD2 \EM.KBDAD3 \EM.UTILIN \EM.KBDAD4 \EM.KBDAD5)) (PROG NIL (RETURN (EQ 0 (LOGAND (LRSH (LLSH 1 - 15) (PROGN (* (IMOD KEYNUMBER BITSPERWORD) - GETD cause IMOD and BITSPERWORD not exported to user) ( -LOGAND KEYNUMBER 15))) (\GETBASE (SELECTQ (PROGN (* (FOLDLO KEYNUMBER BITSPERWORD) GETD follows since -FOLDLO and BITSPERWORD not exported to user) (LRSH KEYNUMBER 4)) (0 \EM.KBDAD0) (1 \EM.KBDAD1) (2 -\EM.KBDAD2) (3 \EM.KBDAD3) (4 \EM.UTILIN) (5 (OR \EM.KBDAD4 (RETURN))) (6 (OR \EM.KBDAD5 (RETURN))) ( -RETURN)) 0))))))) -(PUTPROPS \NEWKEYDOWNP MACRO ((KEYNUMBER) (EQ 0 (\GETBASEBIT \LASTKEYSTATE KEYNUMBER)))) -(GLOBALVARS \KEYBOARD.DEVICE \KEYBOARD.STREAM) +) CODES (* \; "Table of character codes generated by each key when no shift key is pressed.") +SHIFTCODES (* \; "Table of character codes generated by each key when the shift key is pressed.") +ARMED (* \; "Not sure...") INTERRUPTLIST (* \; "List of armed interrupts?") ALTGRAPHCODES (* \; +"Table of codes to be generated when the ALT-GRAPH key is pressed.") DEADKEYLIST (* \; +"Block of dead-key handlers, with the nominal up-transition fields filled by the shifted-case tables. Each \"table\" is an ALIST of orignal code => accented code. no entry means punt the accent.." +)) FLAGS _ (\\ALLOCBLOCK (FOLDHI (IPLUS \\NKEYS \\NKEYS) BYTESPERCELL)) CODES _ (\\ALLOCBLOCK (FOLDHI +(PLUS \\NKEYS \\NKEYS) WORDSPERCELL)) SHIFTCODES _ (\\ALLOCBLOCK (FOLDHI (PLUS \\NKEYS \\NKEYS) +WORDSPERCELL)) ARMED _ (\\ALLOCBLOCK (FOLDHI (ADD1 \\MAXTHINCHAR) BITSPERCELL)) ALTGRAPHCODES _ ( +\\ALLOCBLOCK (FOLDHI (PLUS \\NKEYS \\NKEYS) WORDSPERCELL)) DEADKEYLIST _ (\\ALLOCBLOCK (PLUS \\NKEYS +\\NKEYS \\NKEYS \\NKEYS) T) (CREATE (\\ALLOCBLOCK 7 PTRBLOCK.GCT)) (TYPE? (AND (\\BLOCKDATAP DATUM) ( +IGEQ (\\#BLOCKDATACELLS DATUM) 5) (OR (NULL (FETCH (KEYACTION INTERRUPTLIST) OF DATUM)) (LISTP (FETCH +INTERRUPTLIST OF DATUM))) (\\BLOCKDATAP (FETCH (KEYACTION FLAGS) DATUM)) (\\BLOCKDATAP (FETCH ( +KEYACTION CODES) DATUM)) (\\BLOCKDATAP (FETCH (KEYACTION ARMED) DATUM))))) +(RPAQQ \\NKEYS 112) +(CONSTANTS \\NKEYS) +(DEFOPTIMIZER KEYDOWNP (KEYNAME) (BQUOTE (\\NEWKEYDOWNP (\\KEYNAMETONUMBER (\\\, KEYNAME))))) +(PUTPROPS XKEYDOWNP MACRO ((KEYNAME) (KEYDOWNP1 (\\KEYNAMETONUMBER KEYNAME)))) +(PUTPROPS KEYDOWNP1 MACRO (OPENLAMBDA (KEYNUMBER) (DECLARE (GLOBALVARS \\EM.KBDAD0 \\EM.KBDAD1 +\\EM.KBDAD2 \\EM.KBDAD3 \\EM.UTILIN \\EM.KBDAD4 \\EM.KBDAD5)) (PROG NIL (RETURN (EQ 0 (LOGAND (LRSH ( +LLSH 1 15) (PROGN (* (IMOD KEYNUMBER BITSPERWORD) - GETD |cause| IMOD |and| BITSPERWORD |not| +|exported| |to| |user|) (LOGAND KEYNUMBER 15))) (\\GETBASE (SELECTQ (PROGN (* (FOLDLO KEYNUMBER +BITSPERWORD) GETD |follows| |since| FOLDLO |and| BITSPERWORD |not| |exported| |to| |user|) (LRSH +KEYNUMBER 4)) (0 \\EM.KBDAD0) (1 \\EM.KBDAD1) (2 \\EM.KBDAD2) (3 \\EM.KBDAD3) (4 \\EM.UTILIN) (5 (OR +\\EM.KBDAD4 (RETURN))) (6 (OR \\EM.KBDAD5 (RETURN))) (RETURN)) 0))))))) +(PUTPROPS \\NEWKEYDOWNP MACRO ((KEYNUMBER) (EQ 0 (\\GETBASEBIT \\LASTKEYSTATE KEYNUMBER)))) +(GLOBALVARS \\KEYBOARD.DEVICE \\KEYBOARD.STREAM) (RPAQQ HARDCURSORHEIGHT 16) (RPAQQ HARDCURSORWIDTH 16) (CONSTANTS (HARDCURSORHEIGHT 16) (HARDCURSORWIDTH 16)) (ADDTOVAR GLOBALVARS LASTMOUSEX LASTMOUSEY LASTSCREEN LASTMOUSEBUTTONS LASTMOUSETIME LASTKEYBOARD) -(PUTPROPS \SETMOUSEXY MACRO ((XPOS YPOS) (PROGN (SELECTC \MACHINETYPE (\DAYBREAK ( -\DoveMisc.SetMousePosition XPOS YPOS)) (\MAIKO (SUBRCALL SETMOUSEXY XPOS YPOS)) (\DANDELION (do (PROGN - (replace (IOPAGE NEWMOUSEX) of \IOPAGE with XPOS) (replace (IOPAGE NEWMOUSEY) of \IOPAGE with YPOS)) -repeatuntil (ILESSP (fetch (IOPAGE NEWMOUSESTATE) of \IOPAGE) 32768)) (* ; -"smash position until mouse says it is not busy") (replace (IOPAGE NEWMOUSEX) of \IOPAGE with XPOS) ( -replace (IOPAGE NEWMOUSEY) of \IOPAGE with YPOS) (replace (IOPAGE NEWMOUSESTATE) of \IOPAGE with 32768 -)) NIL) (PROGN (\PUTBASE \EM.MOUSEX 0 XPOS) (\PUTBASE \EM.MOUSEY 0 YPOS))))) -(GLOBALVARS \EM.MOUSEX \EM.MOUSEY \EM.CURSORX \EM.CURSORY \EM.UTILIN \EM.REALUTILIN \EM.KBDAD0 -\EM.KBDAD1 \EM.KBDAD2 \EM.KBDAD3 \EM.KBDAD4 \EM.KBDAD5 \EM.DISPINTERRUPT \EM.DISPLAYHEAD -\EM.CURSORBITMAP \MACHINETYPE \DEFAULTKEYACTION \COMMANDKEYACTION \CURRENTKEYACTION -\PERIODIC.INTERRUPT \PERIODIC.INTERRUPT.FREQUENCY) -(PUTPROP (QUOTE LLKEY) (QUOTE IMPORTDATE) (IDATE "27-Apr-2021 20:06:09")) +(PUTPROPS \\SETMOUSEXY MACRO ((XPOS YPOS) (PROGN (SELECTC \\MACHINETYPE (\\DAYBREAK ( +|\\DoveMisc.SetMousePosition| XPOS YPOS)) (\\MAIKO (SUBRCALL SETMOUSEXY XPOS YPOS)) (\\DANDELION (|do| + (PROGN (|replace| (IOPAGE NEWMOUSEX) |of| \\IOPAGE |with| XPOS) (|replace| (IOPAGE NEWMOUSEY) |of| +\\IOPAGE |with| YPOS)) |repeatuntil| (ILESSP (|fetch| (IOPAGE NEWMOUSESTATE) |of| \\IOPAGE) 32768)) (* + \; "smash position until mouse says it is not busy") (|replace| (IOPAGE NEWMOUSEX) |of| \\IOPAGE +|with| XPOS) (|replace| (IOPAGE NEWMOUSEY) |of| \\IOPAGE |with| YPOS) (|replace| (IOPAGE NEWMOUSESTATE +) |of| \\IOPAGE |with| 32768)) NIL) (PROGN (\\PUTBASE \\EM.MOUSEX 0 XPOS) (\\PUTBASE \\EM.MOUSEY 0 +YPOS))))) +(GLOBALVARS \\EM.MOUSEX \\EM.MOUSEY \\EM.CURSORX \\EM.CURSORY \\EM.UTILIN \\EM.REALUTILIN \\EM.KBDAD0 +\\EM.KBDAD1 \\EM.KBDAD2 \\EM.KBDAD3 \\EM.KBDAD4 \\EM.KBDAD5 \\EM.DISPINTERRUPT \\EM.DISPLAYHEAD +\\EM.CURSORBITMAP \\MACHINETYPE \\DEFAULTKEYACTION \\COMMANDKEYACTION \\CURRENTKEYACTION +\\PERIODIC.INTERRUPT \\PERIODIC.INTERRUPT.FREQUENCY) +(PUTPROP (QUOTE LLKEY) (QUOTE IMPORTDATE) (IDATE "11-Jun-2021 09:43:22")) (DATATYPE PILOTBBT ((PBTDESTLO WORD) (PBTDESTHI WORD) (PBTDESTBIT WORD) (PBTDESTBPL SIGNEDWORD) ( PBTSOURCELO WORD) (PBTSOURCEHI WORD) (PBTSOURCEBIT WORD) (PBTSOURCEBPL SIGNEDWORD) (PBTWIDTH WORD) ( PBTHEIGHT WORD) (PBTFLAGS WORD) (NIL 5 WORD)) (BLOCKRECORD PILOTBBT ((NIL 7 WORD) (NIL BITS 4) ( PBTGRAYOFFSET BITS 4) (PBTGRAYWIDTHLESSONE BITS 4) (PBTGRAYHEIGHTLESSONE BITS 4) (NIL 2 WORD) ( PBTBACKWARD FLAG) (PBTDISJOINT FLAG) (PBTDISJOINTITEMS FLAG) (PBTUSEGRAY FLAG) (PBTSOURCETYPE BITS 1) -(PBTOPERATION BITS 2) (NIL BITS 9))) (ACCESSFNS PILOTBBT ((PBTSOURCE (\VAG2 (fetch PBTSOURCEHI of -DATUM) (fetch PBTSOURCELO of DATUM)) (PROGN (replace PBTSOURCEHI of DATUM with (\HILOC NEWVALUE)) ( -replace PBTSOURCELO of DATUM with (\LOLOC NEWVALUE)))) (PBTDEST (\VAG2 (fetch PBTDESTHI of DATUM) ( -fetch PBTDESTLO of DATUM)) (PROGN (replace PBTDESTHI of DATUM with (\HILOC NEWVALUE)) (replace -PBTDESTLO of DATUM with (\LOLOC NEWVALUE)))))) (SYSTEM)) -(DATATYPE \DISPLAYDATA (DDXPOSITION DDYPOSITION DDXOFFSET DDYOFFSET DDDestination DDClippingRegion -DDFONT DDSlowPrintingCase DDWIDTHSCACHE DDOFFSETSCACHE DDCOLOR DDLINEFEED DDRightMargin DDLeftMargin -DDScroll DDOPERATION DDSOURCETYPE (DDClippingLeft WORD) (DDClippingRight WORD) (DDClippingBottom WORD) - (DDClippingTop WORD) (NIL WORD) (DDHELDFLG FLAG) (XWINDOWHINT XPOINTER) (DDPILOTBBT POINTER) DDXSCALE - DDYSCALE DDCHARIMAGEWIDTHS DDEOLFN DDPAGEFULLFN DDTexture DDMICAXPOS DDMICAYPOS DDMICARIGHTMARGIN -DDCHARSET (DDCHARSETASCENT WORD) (DDCHARSETDESCENT WORD) DDCHARHEIGHTDELTA (DDSPACEWIDTH WORD)) -DDPILOTBBT _ (create PILOTBBT PBTDISJOINT _ T) DDLeftMargin _ 0 DDRightMargin _ SCREENWIDTH -DDXPOSITION _ 0 DDYPOSITION _ 0 DDXOFFSET _ 0 DDYOFFSET _ 0 DDClippingRegion _ (create REGION) -DDDestination _ ScreenBitMap DDXSCALE _ 1 DDYSCALE _ 1 DDTexture _ 0 (ACCESSFNS ((DDFOREGROUNDCOLOR ( -PROG ((VAL (fetch (\DISPLAYDATA DDCOLOR) of DATUM))) (OR (FIXP VAL) (BITMAPP VAL) (AND (NULL VAL) 1) ( -CAR VAL) (MAXIMUMCOLOR (BITSPERPIXEL (fetch (\DISPLAYDATA DDDestination) of DATUM)))))) ( -DDBACKGROUNDCOLOR (OR (fetch (\DISPLAYDATA DDTexture) of DATUM) 0)))) (SYSTEM)) +(PBTOPERATION BITS 2) (NIL BITS 9))) (ACCESSFNS PILOTBBT ((PBTSOURCE (\\VAG2 (|fetch| PBTSOURCEHI |of| + DATUM) (|fetch| PBTSOURCELO |of| DATUM)) (PROGN (|replace| PBTSOURCEHI |of| DATUM |with| (\\HILOC +NEWVALUE)) (|replace| PBTSOURCELO |of| DATUM |with| (\\LOLOC NEWVALUE)))) (PBTDEST (\\VAG2 (|fetch| +PBTDESTHI |of| DATUM) (|fetch| PBTDESTLO |of| DATUM)) (PROGN (|replace| PBTDESTHI |of| DATUM |with| ( +\\HILOC NEWVALUE)) (|replace| PBTDESTLO |of| DATUM |with| (\\LOLOC NEWVALUE)))))) (SYSTEM)) +(DATATYPE \\DISPLAYDATA (DDXPOSITION DDYPOSITION DDXOFFSET DDYOFFSET |DDDestination| +|DDClippingRegion| DDFONT |DDSlowPrintingCase| DDWIDTHSCACHE DDOFFSETSCACHE DDCOLOR DDLINEFEED +|DDRightMargin| |DDLeftMargin| |DDScroll| DDOPERATION DDSOURCETYPE (|DDClippingLeft| WORD) ( +|DDClippingRight| WORD) (|DDClippingBottom| WORD) (|DDClippingTop| WORD) (NIL WORD) (DDHELDFLG FLAG) ( +XWINDOWHINT XPOINTER) (DDPILOTBBT POINTER) DDXSCALE DDYSCALE DDCHARIMAGEWIDTHS DDEOLFN DDPAGEFULLFN +|DDTexture| DDMICAXPOS DDMICAYPOS DDMICARIGHTMARGIN DDCHARSET (DDCHARSETASCENT WORD) (DDCHARSETDESCENT + WORD) DDCHARHEIGHTDELTA (DDSPACEWIDTH WORD)) DDPILOTBBT _ (|create| PILOTBBT PBTDISJOINT _ T) +|DDLeftMargin| _ 0 |DDRightMargin| _ SCREENWIDTH DDXPOSITION _ 0 DDYPOSITION _ 0 DDXOFFSET _ 0 +DDYOFFSET _ 0 |DDClippingRegion| _ (|create| REGION) |DDDestination| _ |ScreenBitMap| DDXSCALE _ 1 +DDYSCALE _ 1 |DDTexture| _ 0 (ACCESSFNS ((DDFOREGROUNDCOLOR (PROG ((VAL (|fetch| (\\DISPLAYDATA +DDCOLOR) |of| DATUM))) (OR (FIXP VAL) (BITMAPP VAL) (AND (NULL VAL) 1) (CAR VAL) (MAXIMUMCOLOR ( +BITSPERPIXEL (|fetch| (\\DISPLAYDATA |DDDestination|) |of| DATUM)))))) (DDBACKGROUNDCOLOR (OR (|fetch| + (\\DISPLAYDATA |DDTexture|) |of| DATUM) 0)))) (SYSTEM)) (RECORD DISPLAYSTATE (ONOFF)) (RECORD DISPLAYINFO (DITYPE DIWIDTH DIHEIGHT DIBITSPERPIXEL DIWSOPS)) -(PUTPROPS \GETDISPLAYDATA MACRO (ARGS (COND ((CADR ARGS) (SUBPAIR (QUOTE (STRM STRMVAR)) ARGS (QUOTE ( -\DTEST (fetch (STREAM IMAGEDATA) of (SETQ STRMVAR (\OUTSTREAMARG STRM))) (QUOTE \DISPLAYDATA))))) (T ( -SUBST (CAR ARGS) (QUOTE STRM) (QUOTE (\DTEST (fetch (STREAM IMAGEDATA) of (\OUTSTREAMARG STRM)) (QUOTE - \DISPLAYDATA)))))))) -(PUTPROPS \BITMASK MACRO ((N) (\WORDELT BITMASKARRAY (LOGAND N 15)))) -(PUTPROPS \4BITMASK MACRO ((N) (\WORDELT 4BITMASKARRAY (LOGAND N 3)))) -(PUTPROPS \NOTBITMASK MACRO ((N) (DECLARE (GLOBALVARS NOTBITMASKARRAY)) (\WORDELT NOTBITMASKARRAY ( +(PUTPROPS \\GETDISPLAYDATA MACRO (ARGS (COND ((CADR ARGS) (SUBPAIR (QUOTE (STRM STRMVAR)) ARGS (QUOTE +(\\DTEST (|fetch| (STREAM IMAGEDATA) |of| (SETQ STRMVAR (\\OUTSTREAMARG STRM))) (QUOTE \\DISPLAYDATA)) +))) (T (SUBST (CAR ARGS) (QUOTE STRM) (QUOTE (\\DTEST (|fetch| (STREAM IMAGEDATA) |of| (\\OUTSTREAMARG + STRM)) (QUOTE \\DISPLAYDATA)))))))) +(PUTPROPS \\BITMASK MACRO ((N) (\\WORDELT BITMASKARRAY (LOGAND N 15)))) +(PUTPROPS \\4BITMASK MACRO ((N) (\\WORDELT 4BITMASKARRAY (LOGAND N 3)))) +(PUTPROPS \\NOTBITMASK MACRO ((N) (DECLARE (GLOBALVARS NOTBITMASKARRAY)) (\\WORDELT NOTBITMASKARRAY ( LOGAND N 15)))) -(PUTPROPS \NOT4BITMASK MACRO ((N) (\WORDELT NOT4BITMASKARRAY (LOGAND N 3)))) +(PUTPROPS \\NOT4BITMASK MACRO ((N) (\\WORDELT NOT4BITMASKARRAY (LOGAND N 3)))) (GLOBALVARS BITMASKARRAY NOTBITMASKARRAY 4BITMASKARRAY NOT4BITMASKARRAY) (RPAQQ WORDMASK 65535) (CONSTANTS (WORDMASK 65535)) -(PUTPROPS \INVALIDATEDISPLAYCACHE MACRO ((DISPLAYDATA) (* This marks the character-printing caches of -the displaystream as invalid. Needed when the font or Y position changes) (freplace (\DISPLAYDATA -DDCHARSET) of DISPLAYDATA with MAX.SMALLP) (freplace (\DISPLAYDATA DDCHARSETASCENT) of DISPLAYDATA -with MAX.SMALLP))) -(PUTPROPS \DSPGETCHARWIDTH MACRO ((CHARCODE DD) (\FGETWIDTH (ffetch (\DISPLAYDATA DDWIDTHSCACHE) of DD -) CHARCODE))) -(PUTPROPS \DSPGETCHARIMAGEWIDTH MACRO ((CHARCODE DD) (\FGETIMAGEWIDTH (ffetch (\DISPLAYDATA -DDCHARIMAGEWIDTHS) of DD) CHARCODE))) -(PUTPROPS \DSPGETCHAROFFSET MACRO ((CHARCODE DD) (\GETBASE (ffetch (\DISPLAYDATA DDOFFSETSCACHE) of DD -) CHARCODE))) -(PUTPROPS \CONVERTOP MACRO ((OP) (* rrb "14-NOV-80 11:14") (* Only for alto bitblt !!) (SELECTQ OP ( -replace 0 of NIL with NIL) (PAINT 1) (INVERT 2) (ERASE 3) 0))) -(PUTPROPS \SFInvert MACRO ((BitMap y) (* corrects for the fact that alto bitmaps are stored with 0,0 -as upper left while lisp bitmaps have 0,0 as lower left. The correction is actually off by one ( -greater) because a majority of the places that it is called actually need one more than corrected Y -value.) (IDIFFERENCE (fetch (BITMAP BITMAPHEIGHT) of BitMap) y))) -(PUTPROPS \SFReplicate MACRO (LAMBDA (pattern) (LOGOR pattern (LLSH pattern 8) (SETQ pattern (LLSH -pattern 4)) (LLSH pattern 8)))) -(PUTPROPS \SETPBTFUNCTION MACRO (OPENLAMBDA (BBT SourceType Operation) (PROGN (replace (PILOTBBT -PBTOPERATION) of BBT with (SELECTQ Operation (ERASE 1) (PAINT 2) (INVERT 3) 0)) (replace (PILOTBBT -PBTSOURCETYPE) of BBT with (COND ((EQ (EQ SourceType (QUOTE INVERT)) (EQ Operation (QUOTE ERASE))) 0) -(T 1)))))) -(PUTPROPS \BITBLT1 MACRO ((bbt) (BitBltSUBR bbt))) +(PUTPROPS \\INVALIDATEDISPLAYCACHE MACRO ((DISPLAYDATA) (* |This| |marks| |the| |character-printing| +|caches| |of| |the| |displaystream| |as| |invalid.| |Needed| |when| |the| |font| |or| Y |position| +|changes|) (|freplace| (\\DISPLAYDATA DDCHARSET) |of| DISPLAYDATA |with| MAX.SMALLP) (|freplace| ( +\\DISPLAYDATA DDCHARSETASCENT) |of| DISPLAYDATA |with| MAX.SMALLP))) +(PUTPROPS \\DSPGETCHARWIDTH MACRO ((CHARCODE DD) (\\FGETWIDTH (|ffetch| (\\DISPLAYDATA DDWIDTHSCACHE) +|of| DD) CHARCODE))) +(PUTPROPS \\DSPGETCHARIMAGEWIDTH MACRO ((CHARCODE DD) (\\FGETIMAGEWIDTH (|ffetch| (\\DISPLAYDATA +DDCHARIMAGEWIDTHS) |of| DD) CHARCODE))) +(PUTPROPS \\DSPGETCHAROFFSET MACRO ((CHARCODE DD) (\\GETBASE (|ffetch| (\\DISPLAYDATA DDOFFSETSCACHE) +|of| DD) CHARCODE))) +(PUTPROPS \\CONVERTOP MACRO ((OP) (* |rrb| "14-NOV-80 11:14") (* |Only| |for| |alto| |bitblt| !!) ( +SELECTQ OP (|replace| 0 |of| NIL |with| NIL) (PAINT 1) (INVERT 2) (ERASE 3) 0))) +(PUTPROPS |\\SFInvert| MACRO ((|BitMap| \y) (* |corrects| |for| |the| |fact| |that| |alto| |bitmaps| +|are| |stored| |with| 0\,0 |as| |upper| |left| |while| |lisp| |bitmaps| |have| 0\,0 |as| |lower| +|left.| |The| |correction| |is| |actually| |off| |by| |one| (|greater|) |because| \a |majority| |of| +|the| |places| |that| |it| |is| |called| |actually| |need| |one| |more| |than| |corrected| Y |value.|) + (IDIFFERENCE (|fetch| (BITMAP BITMAPHEIGHT) |of| |BitMap|) \y))) +(PUTPROPS |\\SFReplicate| MACRO (LAMBDA (|pattern|) (LOGOR |pattern| (LLSH |pattern| 8) (SETQ +|pattern| (LLSH |pattern| 4)) (LLSH |pattern| 8)))) +(PUTPROPS \\SETPBTFUNCTION MACRO (OPENLAMBDA (BBT |SourceType| |Operation|) (PROGN (|replace| ( +PILOTBBT PBTOPERATION) |of| BBT |with| (SELECTQ |Operation| (ERASE 1) (PAINT 2) (INVERT 3) 0)) ( +|replace| (PILOTBBT PBTSOURCETYPE) |of| BBT |with| (COND ((EQ (EQ |SourceType| (QUOTE INVERT)) (EQ +|Operation| (QUOTE ERASE))) 0) (T 1)))))) +(PUTPROPS \\BITBLT1 MACRO ((|bbt|) (|BitBltSUBR| |bbt|))) (PUTPROP (QUOTE BITBLT) (QUOTE MACRO) (QUOTE (= . BKBITBLT))) -(PROGN (PUTPROPS \INSURETOPWDS DMACRO (OPENLAMBDA (DS) (OR (EQ DS \TOPWDS) (COND ((FMEMB ( -DSPDESTINATION NIL DS) \SCREENBITMAPS) (\TOTOPWDS DS)))))) (PUTPROPS \INSURETOPWDS MACRO ((DS) (* For -non-window implementations) (PROGN)))) -(PUTPROPS .WHILE.TOP.DS. MACRO ((FIRST . REST) (PROG (DISPINTERRUPT SOFTCURSORUP) (* FIRST should be a - displaystream and a variable. This macro may also take a soft cursor down, similar to the way -.WHILE.CURSOR.DOWN. does, but only if FIRST's destination is the same as the soft cursor's -destination. *) (COND (\SOFTCURSORP (SETQ SOFTCURSORUP (AND \SOFTCURSORUPP (EQ (DSPDESTINATION NIL -FIRST) \CURSORDESTINATION))) (COND (SOFTCURSORUP (SETQ DISPINTERRUPT (\GETBASE \EM.DISPINTERRUPT 0)) ( -\PUTBASE \EM.DISPINTERRUPT 0 0) (\SOFTCURSORDOWN))))) (\INSURETOPWDS FIRST) (PROGN . REST) (COND ( -SOFTCURSORUP (\SOFTCURSORUPCURRENT) (\PUTBASE \EM.DISPINTERRUPT 0 DISPINTERRUPT)))))) -(PUTPROPS .WHILE.CURSOR.DOWN. MACRO ((FIRST . REST) (PROG (DISPINTERRUPT SOFTCURSORUP) (* This macro -should wrap around any code that draws or bitblts directly from or to a screen bitmap. E.g. -DRAWGRAYBOX in HLDISPLAY which puts up a shadow box during GETREGION. The purpose of this macro is -that a soft (e.g. color) cursor's bits not be taken to be screen bits while FIRST & REST are done. *) -(COND (\SOFTCURSORP (SETQ SOFTCURSORUP \SOFTCURSORUPP) (COND (SOFTCURSORUP (SETQ DISPINTERRUPT ( -\GETBASE \EM.DISPINTERRUPT 0)) (\PUTBASE \EM.DISPINTERRUPT 0 0) (\SOFTCURSORDOWN))))) (PROGN FIRST . -REST) (COND (SOFTCURSORUP (\SOFTCURSORUPCURRENT) (\PUTBASE \EM.DISPINTERRUPT 0 DISPINTERRUPT)))))) -(ADDTOVAR GLOBALVARS \TOPWDS) -(DEFOPTIMIZER TTYDISPLAYSTREAM (&REST X) (COND ((NULL (CAR X)) (QUOTE \TERM.OFD)) (T (QUOTE +(PROGN (PUTPROPS \\INSURETOPWDS DMACRO (OPENLAMBDA (DS) (OR (EQ DS \\TOPWDS) (COND ((FMEMB ( +DSPDESTINATION NIL DS) \\SCREENBITMAPS) (\\TOTOPWDS DS)))))) (PUTPROPS \\INSURETOPWDS MACRO ((DS) (* +|For| |non-window| |implementations|) (PROGN)))) +(PUTPROPS .WHILE.TOP.DS. MACRO ((FIRST . REST) (PROG (DISPINTERRUPT SOFTCURSORUP) (* FIRST |should| +|be| \a |displaystream| |and| \a |variable.| |This| |macro| |may| |also| |take| \a |soft| |cursor| +|down,| |similar| |to| |the| |way| .WHILE.CURSOR.DOWN. |does,| |but| |only| |if| |FIRST's| +|destination| |is| |the| |same| |as| |the| |soft| |cursor's| |destination.| *) (COND (\\SOFTCURSORP ( +SETQ SOFTCURSORUP (AND \\SOFTCURSORUPP (EQ (DSPDESTINATION NIL FIRST) \\CURSORDESTINATION))) (COND ( +SOFTCURSORUP (SETQ DISPINTERRUPT (\\GETBASE \\EM.DISPINTERRUPT 0)) (\\PUTBASE \\EM.DISPINTERRUPT 0 0) +(\\SOFTCURSORDOWN))))) (\\INSURETOPWDS FIRST) (PROGN . REST) (COND (SOFTCURSORUP ( +\\SOFTCURSORUPCURRENT) (\\PUTBASE \\EM.DISPINTERRUPT 0 DISPINTERRUPT)))))) +(PUTPROPS .WHILE.CURSOR.DOWN. MACRO ((FIRST . REST) (PROG (DISPINTERRUPT SOFTCURSORUP) (* |This| +|macro| |should| |wrap| |around| |any| |code| |that| |draws| |or| |bitblts| |directly| |from| |or| +|to| \a |screen| |bitmap.| E.\g. DRAWGRAYBOX |in| HLDISPLAY |which| |puts| |up| \a |shadow| |box| +|during| GETREGION. |The| |purpose| |of| |this| |macro| |is| |that| \a |soft| (|e.g.| |color|) +|cursor's| |bits| |not| |be| |taken| |to| |be| |screen| |bits| |while| FIRST & REST |are| |done.| *) ( +COND (\\SOFTCURSORP (SETQ SOFTCURSORUP \\SOFTCURSORUPP) (COND (SOFTCURSORUP (SETQ DISPINTERRUPT ( +\\GETBASE \\EM.DISPINTERRUPT 0)) (\\PUTBASE \\EM.DISPINTERRUPT 0 0) (\\SOFTCURSORDOWN))))) (PROGN +FIRST . REST) (COND (SOFTCURSORUP (\\SOFTCURSORUPCURRENT) (\\PUTBASE \\EM.DISPINTERRUPT 0 +DISPINTERRUPT)))))) +(ADDTOVAR GLOBALVARS \\TOPWDS) +(DEFOPTIMIZER TTYDISPLAYSTREAM (&REST X) (COND ((NULL (CAR X)) (QUOTE \\TERM.OFD)) (T (QUOTE IGNOREMACRO)))) -(GLOBALVARS BELLCNT BELLRATE TTYBACKGROUNDFNS \DisplayStoppedForLogout \CARET.UP) -(PUTPROPS \CHECKCARET MACRO ((X) (AND \CARET.UP (\CARET.DOWN X)))) -(PUTPROPS \DSPTRANSFORMX MACRO ((X DD) (* transforms an x coordinate into the destination coordinate.) - (IPLUS X (fetch (\DISPLAYDATA DDXOFFSET) of DD)))) -(PUTPROPS \DSPTRANSFORMY MACRO ((Y DD) (* transforms an y coordinate into the destination coordinate.) - (IPLUS Y (fetch (\DISPLAYDATA DDYOFFSET) of DD)))) -(PUTPROPS \OFFSETBOTTOM MACRO ((X) (* gives the destination coordinate address of the origin.) (fetch -(\DISPLAYDATA DDYOFFSET) of X))) -(PUTPROPS \OFFSETLEFT MACRO ((DD) (* returns the x origin of display data destination coordinates.) ( -fetch (\DISPLAYDATA DDXOFFSET) of DD))) -(PUTPROPS DISPLAYINITIALIZEDP MACRO (NIL (* always initialized now) T)) -(PUTPROPS DISPLAYSTARTEDP MACRO (NIL \DisplayStarted)) -(GLOBALVARS \DisplayStarted \DisplayStreamsInitialized \DisplayInitialed WHOLEDISPLAY WHOLESCREEN -SCREENWIDTH SCREENHEIGHT) -(PUTPROP (QUOTE LLDISPLAY) (QUOTE IMPORTDATE) (IDATE "27-Apr-2021 20:06:09")) +(GLOBALVARS BELLCNT BELLRATE TTYBACKGROUNDFNS |\\DisplayStoppedForLogout| \\CARET.UP) +(PUTPROPS \\CHECKCARET MACRO ((X) (AND \\CARET.UP (\\CARET.DOWN X)))) +(PUTPROPS \\DSPTRANSFORMX MACRO ((X DD) (* |transforms| |an| \x |coordinate| |into| |the| +|destination| |coordinate.|) (IPLUS X (|fetch| (\\DISPLAYDATA DDXOFFSET) |of| DD)))) +(PUTPROPS \\DSPTRANSFORMY MACRO ((Y DD) (* |transforms| |an| \y |coordinate| |into| |the| +|destination| |coordinate.|) (IPLUS Y (|fetch| (\\DISPLAYDATA DDYOFFSET) |of| DD)))) +(PUTPROPS \\OFFSETBOTTOM MACRO ((X) (* |gives| |the| |destination| |coordinate| |address| |of| |the| +|origin.|) (|fetch| (\\DISPLAYDATA DDYOFFSET) |of| X))) +(PUTPROPS \\OFFSETLEFT MACRO ((DD) (* |returns| |the| \x |origin| |of| |display| |data| |destination| +|coordinates.|) (|fetch| (\\DISPLAYDATA DDXOFFSET) |of| DD))) +(PUTPROPS DISPLAYINITIALIZEDP MACRO (NIL (* |always| |initialized| |now|) T)) +(PUTPROPS DISPLAYSTARTEDP MACRO (NIL |\\DisplayStarted|)) +(GLOBALVARS |\\DisplayStarted| |\\DisplayStreamsInitialized| |\\DisplayInitialed| WHOLEDISPLAY +WHOLESCREEN SCREENWIDTH SCREENHEIGHT) +(PUTPROP (QUOTE LLDISPLAY) (QUOTE IMPORTDATE) (IDATE "18-Apr-1994 00:20:42")) (RECORD REGION (LEFT BOTTOM WIDTH HEIGHT) LEFT _ -16383 BOTTOM _ -16383 WIDTH _ 32767 HEIGHT _ 32767 ( -ACCESSFNS ((TOP (IPLUS (fetch (REGION BOTTOM) of DATUM) (fetch (REGION HEIGHT) of DATUM) -1)) (PTOP ( -IPLUS (fetch (REGION BOTTOM) of DATUM) (fetch (REGION HEIGHT) of DATUM))) (RIGHT (IPLUS (fetch (REGION - LEFT) of DATUM) (fetch (REGION WIDTH) of DATUM) -1)) (PRIGHT (IPLUS (fetch (REGION LEFT) of DATUM) ( -fetch (REGION WIDTH) of DATUM))))) (TYPE? (AND (EQLENGTH DATUM 4) (EVERY DATUM (FUNCTION NUMBERP)))) ( -SYSTEM)) +ACCESSFNS ((TOP (IPLUS (|fetch| (REGION BOTTOM) |of| DATUM) (|fetch| (REGION HEIGHT) |of| DATUM) -1)) +(PTOP (IPLUS (|fetch| (REGION BOTTOM) |of| DATUM) (|fetch| (REGION HEIGHT) |of| DATUM))) (RIGHT (IPLUS + (|fetch| (REGION LEFT) |of| DATUM) (|fetch| (REGION WIDTH) |of| DATUM) -1)) (PRIGHT (IPLUS (|fetch| ( +REGION LEFT) |of| DATUM) (|fetch| (REGION WIDTH) |of| DATUM))))) (TYPE? (AND (EQLENGTH DATUM 4) (EVERY + DATUM (FUNCTION NUMBERP)))) (SYSTEM)) (DATATYPE BITMAP ((BITMAPBASE POINTER) (BITMAPRASTERWIDTH WORD) (BITMAPHEIGHT WORD) (BITMAPWIDTH WORD) - (BITMAPBITSPERPIXEL WORD)) BITMAPBITSPERPIXEL _ 1 (BLOCKRECORD BITMAP ((BitMapHiLoc WORD) ( -BitMapLoLoc WORD)) (* ; "overlay initial pointer")) (SYSTEM)) + (BITMAPBITSPERPIXEL WORD)) BITMAPBITSPERPIXEL _ 1 (BLOCKRECORD BITMAP ((|BitMapHiLoc| WORD) ( +|BitMapLoLoc| WORD)) (* \; "overlay initial pointer")) (SYSTEM)) (BLOCKRECORD BITMAPWORD ((BITS WORD)) (SYSTEM)) (RECORD POSITION (XCOORD . YCOORD) (TYPE? (AND (LISTP DATUM) (NUMBERP (CAR DATUM)) (NUMBERP (CDR DATUM )))) (SYSTEM)) -(DATATYPE CURSOR (CUIMAGE CUMASK CUHOTSPOTX CUHOTSPOTY CUDATA) (ACCESSFNS ((CUBITSPERPIXEL (fetch ( -BITMAP BITMAPBITSPERPIXEL) of (fetch (CURSOR CUIMAGE) of DATUM))))) (SYSTEM)) +(DATATYPE CURSOR (CUIMAGE CUMASK CUHOTSPOTX CUHOTSPOTY CUDATA) (ACCESSFNS ((CUBITSPERPIXEL (|fetch| ( +BITMAP BITMAPBITSPERPIXEL) |of| (|fetch| (CURSOR CUIMAGE) |of| DATUM))))) (SYSTEM)) (RECORD MOUSEEVENT (MOUSEX MOUSEY MOUSEBUTTONS KEYBOARD MOUSETIME) (SYSTEM)) -(RECORD SCREENREGION (SCREEN . REGION) (SUBRECORD REGION) (TYPE? (AND (LISTP DATUM) (type? SCREEN (CAR - DATUM)) (type? REGION (CDR DATUM)))) (SYSTEM)) -(RECORD SCREENPOSITION (SCREEN . POSITION) (SUBRECORD POSITION) (TYPE? (AND (LISTP DATUM) (type? -SCREEN (CAR DATUM)) (type? POSITION (CDR DATUM)))) (SYSTEM)) -(PUTPROPS CURSORBITMAP MACRO (NIL CursorBitMap)) +(RECORD SCREENREGION (SCREEN . REGION) (SUBRECORD REGION) (TYPE? (AND (LISTP DATUM) (|type?| SCREEN ( +CAR DATUM)) (|type?| REGION (CDR DATUM)))) (SYSTEM)) +(RECORD SCREENPOSITION (SCREEN . POSITION) (SUBRECORD POSITION) (TYPE? (AND (LISTP DATUM) (|type?| +SCREEN (CAR DATUM)) (|type?| POSITION (CDR DATUM)))) (SYSTEM)) +(PUTPROPS CURSORBITMAP MACRO (NIL |CursorBitMap|)) (RPAQQ HARDCURSORHEIGHT 16) (RPAQQ HARDCURSORWIDTH 16) (CONSTANTS (HARDCURSORHEIGHT 16) (HARDCURSORWIDTH 16)) -(ADDTOVAR GLOBALVARS CursorBitMap) +(ADDTOVAR GLOBALVARS |CursorBitMap|) (ARRAYRECORD POLYNOMIAL (A B C D) (CREATE (ARRAY 4 (QUOTE FLOATP))) (SYSTEM)) -(RECORD SPLINE (%#KNOTS SPLINEX SPLINEY SPLINEDX SPLINEDY SPLINEDDX SPLINEDDY SPLINEDDDX SPLINEDDDY)) +(RECORD SPLINE (\#KNOTS SPLINEX SPLINEY SPLINEDX SPLINEDY SPLINEDDX SPLINEDDY SPLINEDDDX SPLINEDDDY)) (PUTPROPS HALF MACRO ((X) (LRSH X 1))) -(PUTPROPS \FILLCIRCLEBLT MACRO (OPENLAMBDA (CX CY X Y) (* ; -"calls bitblt twice to fill in one line of the circle.") (\LINEBLT FCBBT (IDIFFERENCE CX X) (IPLUS CY -Y) (IPLUS CX X) DESTINATIONBASE RASTERWIDTH LEFT RIGHT BOTTOM TOP GRAYWIDTH GRAYHEIGHT GRAYBASE NBITS) - (\LINEBLT FCBBT (IDIFFERENCE CX X) (IDIFFERENCE CY Y) (IPLUS CX X) DESTINATIONBASE RASTERWIDTH LEFT -RIGHT BOTTOM TOP GRAYWIDTH GRAYHEIGHT GRAYBASE NBITS))) +(PUTPROPS \\FILLCIRCLEBLT MACRO (OPENLAMBDA (CX CY X Y) (* \; +"calls bitblt twice to fill in one line of the circle.") (\\LINEBLT FCBBT (IDIFFERENCE CX X) (IPLUS CY + Y) (IPLUS CX X) DESTINATIONBASE RASTERWIDTH LEFT RIGHT BOTTOM TOP GRAYWIDTH GRAYHEIGHT GRAYBASE NBITS +) (\\LINEBLT FCBBT (IDIFFERENCE CX X) (IDIFFERENCE CY Y) (IPLUS CX X) DESTINATIONBASE RASTERWIDTH LEFT + RIGHT BOTTOM TOP GRAYWIDTH GRAYHEIGHT GRAYBASE NBITS))) (PUTDEF (QUOTE BITMAPS) (QUOTE FILEPKGCOMS) (QUOTE ((COM MACRO (X (VARS . X)))))) (PUTDEF (QUOTE CURSORS) (QUOTE FILEPKGCOMS) (QUOTE ((COM MACRO (X (E (MAPC (QUOTE X) (QUOTE PRINTCURSOR)))))))) -(ADDTOVAR GLOBALVARS SCREENHEIGHT SCREENWIDTH ScreenBitMap) +(ADDTOVAR GLOBALVARS SCREENHEIGHT SCREENWIDTH |ScreenBitMap|) (RPAQQ BLACKSHADE 65535) (RPAQQ WHITESHADE 0) (CONSTANTS (BLACKSHADE 65535) (WHITESHADE 0)) @@ -1991,32 +2022,32 @@ PRINTCURSOR)))))))) (ADDTOVAR GLOBALVARS GRAYSHADE) (RECORD HLS (HUE LIGHTNESS SATURATION)) (RECORD RGB (RED GREEN BLUE)) -(PUTPROP (QUOTE ADISPLAY) (QUOTE IMPORTDATE) (IDATE "27-Apr-2021 20:06:09")) +(PUTPROP (QUOTE ADISPLAY) (QUOTE IMPORTDATE) (IDATE "13-Jun-2021 14:03:35")) -(ADDTOVAR SYSSPECVARS \INTERRUPTABLE) +(ADDTOVAR SYSSPECVARS \\INTERRUPTABLE) (PUTPROPS UNINTERRUPTABLY INFO EVAL) -(PUTPROPS UNINTERRUPTABLY DMACRO ((X . Y) ((LAMBDA (\INTERRUPTABLE) (PROGN X . Y)) NIL))) +(PUTPROPS UNINTERRUPTABLY DMACRO ((X . Y) ((LAMBDA (\\INTERRUPTABLE) (PROGN X . Y)) NIL))) (ADDTOVAR PRETTYPRINTMACROS (UNINTERRUPTABLY LAMBDA (FORM) (PROG ((POS (IPLUS 4 (POSITION)))) (PRIN1 "(") (PRIN2 (CAR FORM)) (OR (EQ COMMENTFLG (CAAR (SETQ FORM (CDR FORM)))) (TAB POS 0)) (PRINTDEF FORM POS T T FNSLST) (PRIN1 ")")))) -(BLOCKRECORD INTERRUPTSTATE ((* ;; +(BLOCKRECORD INTERRUPTSTATE ((* |;;| "This is the structure used to communicate between the emulator and Lisp re interrupts. There is a bit per interrupt type, plus space for the character code that caused a keyboard interrupt." -) (* ;; "This must match the INTSTAT definition in lispemul.h") (* ;; "PENDING-INTERRUPT FLAGS:") ( -LOGMSGSPENDING FLAG) (* ; " Log/Console msgs need printing.") (ETHERINTERRUPT FLAG) (* ; -"Ether packet read finished.") (IOINTERRUPT FLAG) (GCDISABLED FLAG) (* ; "No mroe room in GC tables.") - (VMEMFULL FLAG) (* ; "VMEM is full!!") (STACKOVERFLOW FLAG) (* ; "Stack overflowed.") (STORAGEFULL -FLAG) (* ; "Ran out of storage, atoms, etc.") (WAITINGINTERRUPT FLAG) (* ;; -"INTERRUPTS-IN-PROCESS MASK:") (P-LOGMSGSPENDING FLAG) (* ; " Log/Console msgs need printing.") ( -P-ETHERINTERRUPT FLAG) (* ; "Ether packet read finished.") (P-IOINTERRUPT FLAG) (P-GCDISABLED FLAG) (* - ; "No mroe room in GC tables.") (P-VMEMFULL FLAG) (* ; "VMEM is full!!") (P-STACKOVERFLOW FLAG) (* ; -"Stack overflowed.") (P-STORAGEFULL FLAG) (* ; "Ran out of storage, atoms, etc.") (P-WAITINGINTERRUPT -FLAG) (INTCHARCODE WORD)) (BLOCKRECORD INTERRUPTSTATE ((* ;; "Alternative view of the structure:") ( -PENDING BITS 8) (* ; "Pending-interrupt flags") (IN-PROGRESS BITS 8) (* ; -"Mask to prevent re-interrupt for an interrupt in progress") (NIL WORD)))) -(PUTPROPS \TAKEINTERRUPT DMACRO ((PREFORM POSTFORM) (DECLARE (GLOBALVARS \PENDINGINTERRUPT)) (COND (( -AND \PENDINGINTERRUPT (INTERRUPTABLE~=NILUPTHESTACK)) PREFORM ((LAMBDA (\INTERRUPTABLE) ( -\CALLINTERRUPTED)) T) POSTFORM)))) -(PUTPROP (QUOTE AINTERRUPT) (QUOTE IMPORTDATE) (IDATE "27-Apr-2021 20:06:09")) +) (* |;;| "This must match the INTSTAT definition in lispemul.h") (* |;;| "PENDING-INTERRUPT FLAGS:") +(LOGMSGSPENDING FLAG) (* \; " Log/Console msgs need printing.") (ETHERINTERRUPT FLAG) (* \; +"Ether packet read finished.") (IOINTERRUPT FLAG) (GCDISABLED FLAG) (* \; "No mroe room in GC tables." +) (VMEMFULL FLAG) (* \; "VMEM is full!!") (STACKOVERFLOW FLAG) (* \; "Stack overflowed.") (STORAGEFULL + FLAG) (* \; "Ran out of storage, atoms, etc.") (WAITINGINTERRUPT FLAG) (* |;;| +"INTERRUPTS-IN-PROCESS MASK:") (P-LOGMSGSPENDING FLAG) (* \; " Log/Console msgs need printing.") ( +P-ETHERINTERRUPT FLAG) (* \; "Ether packet read finished.") (P-IOINTERRUPT FLAG) (P-GCDISABLED FLAG) ( +* \; "No mroe room in GC tables.") (P-VMEMFULL FLAG) (* \; "VMEM is full!!") (P-STACKOVERFLOW FLAG) (* + \; "Stack overflowed.") (P-STORAGEFULL FLAG) (* \; "Ran out of storage, atoms, etc.") ( +P-WAITINGINTERRUPT FLAG) (INTCHARCODE WORD)) (BLOCKRECORD INTERRUPTSTATE ((* |;;| +"Alternative view of the structure:") (PENDING BITS 8) (* \; "Pending-interrupt flags") (IN-PROGRESS +BITS 8) (* \; "Mask to prevent re-interrupt for an interrupt in progress") (NIL WORD)))) +(PUTPROPS \\TAKEINTERRUPT DMACRO ((PREFORM POSTFORM) (DECLARE (GLOBALVARS \\PENDINGINTERRUPT)) (COND ( +(AND \\PENDINGINTERRUPT (INTERRUPTABLE~=NILUPTHESTACK)) PREFORM ((LAMBDA (\\INTERRUPTABLE) ( +\\CALLINTERRUPTED)) T) POSTFORM)))) +(PUTPROP (QUOTE AINTERRUPT) (QUOTE IMPORTDATE) (IDATE "17-Sep-1992 10:42:38")) (PUTPROPS UNLESSRDSYS MACRO ((NORMAL RDSYS) NORMAL)) (PUTPROPS UNLESSINEW MACRO ((NORMAL I-NEW) NORMAL)) @@ -2024,480 +2055,351 @@ AND \PENDINGINTERRUPT (INTERRUPTABLE~=NILUPTHESTACK)) PREFORM ((LAMBDA (\INTERRU (PUTPROPS 2ND MACRO ((A B . C) B)) (PUTPROPS LOCAL MACRO ((X) X)) (PUTPROPS ALLOCAL MACRO ((X) X)) -(PUTPROPS ADDBASE DMACRO (= . \ADDBASE)) -(PUTPROPS GETBASE DMACRO (= . \GETBASE)) -(PUTPROPS GETBASEBYTE DMACRO (= . \GETBASEBYTE)) -(PUTPROPS GETBASEPTR DMACRO (= . \GETBASEPTR)) -(PUTPROPS HILOC DMACRO (= . \HILOC)) -(PUTPROPS LOLOC DMACRO (= . \LOLOC)) -(PUTPROPS PUTBASE DMACRO (= . \PUTBASE)) -(PUTPROPS PUTBASEBYTE DMACRO (= . \PUTBASEBYTE)) -(PUTPROPS PUTBASEPTR DMACRO (= . \PUTBASEPTR)) -(PUTPROPS REPLACEPTRFIELD DMACRO (= . \RPLPTR)) -(PUTPROPS VAG2 DMACRO (= . \VAG2)) -(PUTPROPS PAGEBASE MACRO ((PTR) (fetch (POINTER PAGEBASE) of PTR))) -(PUTPROPS PAGELOC MACRO (OPENLAMBDA (PTR) (IPLUS (LLSH (\HILOC PTR) 8) (LRSH (\LOLOC PTR) 8)))) +(PUTPROPS ADDBASE DMACRO (= . \\ADDBASE)) +(PUTPROPS GETBASE DMACRO (= . \\GETBASE)) +(PUTPROPS GETBASEBYTE DMACRO (= . \\GETBASEBYTE)) +(PUTPROPS GETBASEPTR DMACRO (= . \\GETBASEPTR)) +(PUTPROPS HILOC DMACRO (= . \\HILOC)) +(PUTPROPS LOLOC DMACRO (= . \\LOLOC)) +(PUTPROPS PUTBASE DMACRO (= . \\PUTBASE)) +(PUTPROPS PUTBASEBYTE DMACRO (= . \\PUTBASEBYTE)) +(PUTPROPS PUTBASEPTR DMACRO (= . \\PUTBASEPTR)) +(PUTPROPS REPLACEPTRFIELD DMACRO (= . \\RPLPTR)) +(PUTPROPS VAG2 DMACRO (= . \\VAG2)) +(PUTPROPS PAGEBASE MACRO ((PTR) (|fetch| (POINTER PAGEBASE) |of| PTR))) +(PUTPROPS PAGELOC MACRO (OPENLAMBDA (PTR) (IPLUS (LLSH (\\HILOC PTR) 8) (LRSH (\\LOLOC PTR) 8)))) (PUTPROP (QUOTE RENAMEMACROS) (QUOTE IMPORTDATE) (IDATE "27-Apr-1994 15:43:27")) (PUTPROPS MOUSESTATE MACRO (ARGS (LIST (QUOTE PROGN) (QUOTE (GETMOUSESTATE)) (MOUSESTATE-EXPR (CAR ARGS) T)))) (PUTPROPS LASTMOUSESTATE MACRO (ARGS (MOUSESTATE-EXPR (CAR ARGS) T))) -(PUTPROPS UNTILMOUSESTATE MACRO (ARGS (COND ((AND (CDR ARGS) (CADR ARGS) (NEQ (CADR ARGS) T)) (* time -argument is given and is not T or NIL; compile in time keeping loop.) (LIST (QUOTE PROG) (LIST (LIST ( -QUOTE TIMEOUT) (LIST (QUOTE IPLUS) (QUOTE (CLOCK 0)) (LIST (QUOTE OR) (LIST (QUOTE NUMBERP) (CADR ARGS -)) 100))) (QUOTE (NOWTIME (CLOCK 0)))) (QUOTE LP) (LIST (QUOTE COND) (LIST (CONS (QUOTE MOUSESTATE) ( -LIST (CAR ARGS) T)) (QUOTE (RETURN T)))) (QUOTE (COND ((IGREATERP (CLOCK0 NOWTIME) TIMEOUT) (RETURN -NIL)) (T (\BACKGROUND)))) (QUOTE (GO LP)))) (T (LIST (QUOTE PROG) NIL (QUOTE LP) (LIST (QUOTE COND) ( -LIST (CONS (QUOTE MOUSESTATE) (LIST (CAR ARGS) T)) (QUOTE (RETURN T)))) (QUOTE (\BACKGROUND)) (QUOTE ( -GO LP))))))) +(PUTPROPS UNTILMOUSESTATE MACRO (ARGS (COND ((AND (CDR ARGS) (CADR ARGS) (NEQ (CADR ARGS) T)) (* +|time| |argument| |is| |given| |and| |is| |not| T |or| NIL\; |compile| |in| |time| |keeping| |loop.|) +(LIST (QUOTE PROG) (LIST (LIST (QUOTE TIMEOUT) (LIST (QUOTE IPLUS) (QUOTE (CLOCK 0)) (LIST (QUOTE OR) +(LIST (QUOTE NUMBERP) (CADR ARGS)) 100))) (QUOTE (NOWTIME (CLOCK 0)))) (QUOTE LP) (LIST (QUOTE COND) ( +LIST (CONS (QUOTE MOUSESTATE) (LIST (CAR ARGS) T)) (QUOTE (RETURN T)))) (QUOTE (COND ((IGREATERP ( +CLOCK0 NOWTIME) TIMEOUT) (RETURN NIL)) (T (\\BACKGROUND)))) (QUOTE (GO LP)))) (T (LIST (QUOTE PROG) +NIL (QUOTE LP) (LIST (QUOTE COND) (LIST (CONS (QUOTE MOUSESTATE) (LIST (CAR ARGS) T)) (QUOTE (RETURN T +)))) (QUOTE (\\BACKGROUND)) (QUOTE (GO LP))))))) (PUTPROPS KEYSETSTATE MACRO (ARGS (LIST (QUOTE PROGN) (QUOTE (GETMOUSESTATE)) (MOUSESTATE-EXPR (CAR ARGS))))) (PUTPROPS LASTKEYSETSTATE MACRO (ARGS (MOUSESTATE-EXPR (CAR ARGS)))) (PUTPROPS WITHIN MACRO ((A B C) (AND (IGEQ A B) (ILESSP A (IPLUS B C))))) (ADDTOVAR GLOBALVARS LASTMOUSEX LASTMOUSEY LASTMOUSEBUTTONS) (PUTPROPS IABS MACRO (OPENLAMBDA (A) (COND ((IGEQ A 0) A) (T (IMINUS A))))) -(PUTPROP (QUOTE HLDISPLAY) (QUOTE IMPORTDATE) (IDATE "27-Apr-2021 20:06:09")) +(PUTPROP (QUOTE HLDISPLAY) (QUOTE IMPORTDATE) (IDATE "15-Mar-1994 10:48:02")) (PUTPROPS .COPYKEYDOWNP. MACRO (NIL (OR (KEYDOWNP (QUOTE LSHIFT)) (KEYDOWNP (QUOTE RSHIFT)) (KEYDOWNP (QUOTE COPY))))) (PUTPROPS WSOP MACRO (ARGS (LET ((METHOD (CADR (CAR ARGS))) (DISPLAY (CADR ARGS)) (OTHERARGS (CDDR -ARGS))) (BQUOTE (SPREADAPPLY* (fetch (WSOPS (\, METHOD)) of (fetch (FDEV WINDOWOPS) of (\, DISPLAY))) -(\, DISPLAY) (\,@ OTHERARGS)))))) -(PUTPROPS \COERCETODS MACRO (OPENLAMBDA (X) (COND ((type? WINDOW X) (fetch (WINDOW DSP) of X)) (T ( -\ILLEGAL.ARG X))))) -(PUTPROPS .WHILE.ON.TOP. MACRO ((FIRST . REST) (UNINTERRUPTABLY (\INTERNALTOTOPW FIRST) . REST))) +ARGS))) (BQUOTE (SPREADAPPLY* (|fetch| (WSOPS (\\\, METHOD)) |of| (|fetch| (FDEV WINDOWOPS) |of| (\\\, + DISPLAY))) (\\\, DISPLAY) (\\\,@ OTHERARGS)))))) +(PUTPROPS \\COERCETODS MACRO (OPENLAMBDA (X) (COND ((|type?| WINDOW X) (|fetch| (WINDOW DSP) |of| X)) +(T (\\ILLEGAL.ARG X))))) +(PUTPROPS .WHILE.ON.TOP. MACRO ((FIRST . REST) (UNINTERRUPTABLY (\\INTERNALTOTOPW FIRST) . REST))) (PUTPROPS WINDOWOP DMACRO (ARGS (LET ((OPNAME (CAR ARGS)) (METHOD-DEVICE (CADR ARGS)) (TAIL (CDDR ARGS -))) (COND ((AND (LISTP OPNAME) (EQ (CAR OPNAME) (QUOTE QUOTE))) (BQUOTE (SPREADAPPLY* (fetch (SCREEN ( -\, (CADR OPNAME))) of (\, METHOD-DEVICE)) (\, METHOD-DEVICE) (\,@ TAIL)))) (T (ERROR +))) (COND ((AND (LISTP OPNAME) (EQ (CAR OPNAME) (QUOTE QUOTE))) (BQUOTE (SPREADAPPLY* (|fetch| (SCREEN + (\\\, (CADR OPNAME))) |of| (\\\, METHOD-DEVICE)) (\\\, METHOD-DEVICE) (\\\,@ TAIL)))) (T (ERROR "OPNAME not quoted: " OPNAME)))))) -(RPAQQ MinWindowWidth 26) -(RPAQQ MinWindowHeight 16) -(CONSTANTS (MinWindowWidth 26) (MinWindowHeight 16)) -(DATATYPE WINDOW (DSP (* ; "The display stream you use to actually printto the window.") NEXTW (* ; -"Next window in the open-window list") SAVE (* ; "Saved image from anything this window's on top of") -REG (* ; "Screen region this window occupies") BUTTONEVENTFN (* ; -"FN called when left/middle mouse button goes up/down") RIGHTBUTTONFN (* ; -"FN called when right mouse button goes up/down") CURSORINFN (* ; "Fn called when mouse enters window" -) CURSOROUTFN (* ; "Called when mouse leaves window") CURSORMOVEDFN (* ; -"Called when mouse moves in window") REPAINTFN (* ; "Redisplay part of thie window") RESHAPEFN (* ; -"Called when window is reshaped") EXTENT (* ; "Scrolling limits") USERDATA (* ; -"Proplist to hold other window properites") VERTSCROLLREG (* ; "Region of vert scroll bar") -HORIZSCROLLREG (* ; "Tegion of horiz scroll bar") SCROLLFN (* ; "Fn to scroll this window") -VERTSCROLLWINDOW (* ; "Vert scroll bar") HORIZSCROLLWINDOW (* ; "Horiz scroll bar") CLOSEFN (* ; -"Called at close time") MOVEFN (* ; "Called when window is moved") WTITLE (* ; -"Window's title string, if any") NEWREGIONFN (* ; "Called to get new window shape") WBORDER (* ; -"Window border-width, in pixels") PROCESS (* ; "Medley process associated with this window") -WINDOWENTRYFN (* ; "Fn to call when kbd focus is switched here") SCREEN (* ; -"Screen this window appears on") (NATIVE-HANDLE FIXP) (* ; +(RPAQQ |MinWindowWidth| 26) +(RPAQQ |MinWindowHeight| 16) +(CONSTANTS (|MinWindowWidth| 26) (|MinWindowHeight| 16)) +(DATATYPE WINDOW (DSP (* \; "The display stream you use to actually printto the window.") NEXTW (* \; +"Next window in the open-window list") SAVE (* \; "Saved image from anything this window's on top of") + REG (* \; "Screen region this window occupies") BUTTONEVENTFN (* \; +"FN called when left/middle mouse button goes up/down") RIGHTBUTTONFN (* \; +"FN called when right mouse button goes up/down") CURSORINFN (* \; +"Fn called when mouse enters window") CURSOROUTFN (* \; "Called when mouse leaves window") +CURSORMOVEDFN (* \; "Called when mouse moves in window") REPAINTFN (* \; +"Redisplay part of thie window") RESHAPEFN (* \; "Called when window is reshaped") EXTENT (* \; +"Scrolling limits") USERDATA (* \; "Proplist to hold other window properites") VERTSCROLLREG (* \; +"Region of vert scroll bar") HORIZSCROLLREG (* \; "Tegion of horiz scroll bar") SCROLLFN (* \; +"Fn to scroll this window") VERTSCROLLWINDOW (* \; "Vert scroll bar") HORIZSCROLLWINDOW (* \; +"Horiz scroll bar") CLOSEFN (* \; "Called at close time") MOVEFN (* \; "Called when window is moved") +WTITLE (* \; "Window's title string, if any") NEWREGIONFN (* \; "Called to get new window shape") +WBORDER (* \; "Window border-width, in pixels") PROCESS (* \; +"Medley process associated with this window") WINDOWENTRYFN (* \; +"Fn to call when kbd focus is switched here") SCREEN (* \; "Screen this window appears on") ( +NATIVE-HANDLE FIXP) (* \; "Uniterpreted place for native window to store a C pointer to its private info") (NATIVE-INFO1 FIXP) ( -* ; "Reserved in case the pointer must be 64 bits") (NATIVE-W1 WORD) (* ; -"Word for use by native handler") (NATIVE-W2 WORD) (* ; "Word for use by native handler") (NATIVE-P1 -POINTER) (* ; "Lisp pointer for use by native handler")) BUTTONEVENTFN _ (FUNCTION TOTOPW) WBORDER _ -WBorder WINDOWENTRYFN _ (FUNCTION GIVE.TTY.PROCESS) (SYSTEM)) +* \; "Reserved in case the pointer must be 64 bits") (NATIVE-W1 WORD) (* \; +"Word for use by native handler") (NATIVE-W2 WORD) (* \; "Word for use by native handler") (NATIVE-P1 +POINTER) (* \; "Lisp pointer for use by native handler")) BUTTONEVENTFN _ (FUNCTION TOTOPW) WBORDER _ +|WBorder| WINDOWENTRYFN _ (FUNCTION GIVE.TTY.PROCESS) (SYSTEM)) (DATATYPE SCREEN (SCONOFF SCDESTINATION SCWIDTH SCHEIGHT SCTOPW SCTOPWDS SCTITLEDS SCFDEV SCDS SCDATA -(* ;; "Space for native window manager interface to use.") (HANDLE FIXP) (* ; -"Handle for emulator to store info about display for C code use.") (HANDLE2 FIXP) (* ; -"Reserved in case HANDLE needs to be 64 bits on the C side.") (NATIVE-INFO POINTER) (* ; -"POINTER for the private use of the emulator window code") NATIVETYPE (* ; -"Symbol to tell what kind of native window system we're using.") (* ;; -"- - - Functional interface to screen management - - -") WINIMAGEOPS (* ; -"IMAGEOPS to be used in display streas on this kind of screen") WINFDEV (* ; -"FDEV for display streams on this screen") CREATEWFN (* ; "Create a window") OPENWFN (* ; -"Open a window") CLOSEWFN (* ; "Close a window") MOVEWFN (* ; "Move a window") RELMOVEWFN (* ; -"Move window, relative") SHRINKWFN (* ; "Shrink window to icon") EXPANDWFN (* ; -"Expand icon to window") SHAPEWFN (* ; "Reshape a window") REDISPLAYFN (* ; -"Redisplay (part of) a window") GETWINDOWPROPFN (* ; "Get window property value") PUTWINDOWPROPFN (* ; - "Set window property value") BURYWFN (* ; "Move window behind all others") TOTOPWFN (* ; -"Move iwindow in front of all others") IMPORTWFN (* ; -"Take a native window and save its state internally") EXPORTWFN (* ; +(* |;;| "Space for native window manager interface to use.") (HANDLE FIXP) (* \; +"Handle for emulator to store info about display for C code use.") (HANDLE2 FIXP) (* \; +"Reserved in case HANDLE needs to be 64 bits on the C side.") (NATIVE-INFO POINTER) (* \; +"POINTER for the private use of the emulator window code") NATIVETYPE (* \; +"Symbol to tell what kind of native window system we're using.") (* |;;| +"- - - Functional interface to screen management - - -") WINIMAGEOPS (* \; +"IMAGEOPS to be used in display streas on this kind of screen") WINFDEV (* \; +"FDEV for display streams on this screen") CREATEWFN (* \; "Create a window") OPENWFN (* \; +"Open a window") CLOSEWFN (* \; "Close a window") MOVEWFN (* \; "Move a window") RELMOVEWFN (* \; +"Move window, relative") SHRINKWFN (* \; "Shrink window to icon") EXPANDWFN (* \; +"Expand icon to window") SHAPEWFN (* \; "Reshape a window") REDISPLAYFN (* \; +"Redisplay (part of) a window") GETWINDOWPROPFN (* \; "Get window property value") PUTWINDOWPROPFN (* +\; "Set window property value") BURYWFN (* \; "Move window behind all others") TOTOPWFN (* \; +"Move iwindow in front of all others") IMPORTWFN (* \; +"Take a native window and save its state internally") EXPORTWFN (* \; "Take a saved window state and open it on this screen, filling in screen and methods as needed.") -DESTROYFN (* ; "Destroy this window, for GC finaliszation") SETCURSORFN (* ; -"Set the cursor for this window.") PROMPTW (* ; "The prompt window for this screen") SHOWGCFN (* ; +DESTROYFN (* \; "Destroy this window, for GC finaliszation") SETCURSORFN (* \; +"Set the cursor for this window.") PROMPTW (* \; "The prompt window for this screen") SHOWGCFN (* \; "Show GC indication; called with ON/OFF arg, t=>show gcing status, NIL=>turn off GC indicator.") -DSPCREATEFN (* ; "Create a displaystream on this screen.") BBTTOWIN (* ; -"BITBLT from a lisp bitmap to a window") BBTFROMWIN (* ; "BITBLT from a window to a lisp bitmap") -BBTWINWIN (* ; "BITBLT from a window to another window.") SCCURSOR (* ; -"CURSOR that's in effect for this screen by default.") SCKEYBOARD (* ; -"Something about which keyboard we're receiving from.") SCDEPTH (* ; -"# of bits per pixel on the screen. THIS WILL REPLACE SCBITSPERPIXEL ASAP.") SCCLOSEDOWN (* ; -"Close down this screen cleanly, saving window state.") SCCLOSESCREEN (* ; -"Close down thie screen cleanly, no state saving.") SCREOPEN (* ; "Reopen this screen?") SCCARETFLASH -(* ; "Function to flash thecaret.") SCGETSCREENPOSITION (* ; "GETSCREENPOSITION") -SCGETBOXSCREENPOSITION (* ; "GETBOXPOSITION") SCGETSCREENREGION (* ; "GETREGION") SCMOVEPOINTER (* ; -"\CURSORPOSITION")) SCONOFF _ (QUOTE OFF) (ACCESSFNS ((SCBITSPERPIXEL (COND ((fetch (SCREEN -SCDESTINATION) of DATUM) (fetch (BITMAP BITMAPBITSPERPIXEL) of (fetch (SCREEN SCDESTINATION) of DATUM) -)) (T 1))) (SCREGION (create REGION LEFT _ 0 BOTTOM _ 0 WIDTH _ (fetch (SCREEN SCWIDTH) of DATUM) -HEIGHT _ (fetch (SCREEN SCHEIGHT) of DATUM))))) (SYSTEM)) +DSPCREATEFN (* \; "Create a displaystream on this screen.") BBTTOWIN (* \; +"BITBLT from a lisp bitmap to a window") BBTFROMWIN (* \; "BITBLT from a window to a lisp bitmap") +BBTWINWIN (* \; "BITBLT from a window to another window.") SCCURSOR (* \; +"CURSOR that's in effect for this screen by default.") SCKEYBOARD (* \; +"Something about which keyboard we're receiving from.") SCDEPTH (* \; +"# of bits per pixel on the screen. THIS WILL REPLACE SCBITSPERPIXEL ASAP.") SCCLOSEDOWN (* \; +"Close down this screen cleanly, saving window state.") SCCLOSESCREEN (* \; +"Close down thie screen cleanly, no state saving.") SCREOPEN (* \; "Reopen this screen?") SCCARETFLASH + (* \; "Function to flash thecaret.") SCGETSCREENPOSITION (* \; "GETSCREENPOSITION") +SCGETBOXSCREENPOSITION (* \; "GETBOXPOSITION") SCGETSCREENREGION (* \; "GETREGION") SCMOVEPOINTER (* +\; "\\CURSORPOSITION")) SCONOFF _ (QUOTE OFF) (ACCESSFNS ((SCBITSPERPIXEL (COND ((|fetch| (SCREEN +SCDESTINATION) |of| DATUM) (|fetch| (BITMAP BITMAPBITSPERPIXEL) |of| (|fetch| (SCREEN SCDESTINATION) +|of| DATUM))) (T 1))) (SCREGION (|create| REGION LEFT _ 0 BOTTOM _ 0 WIDTH _ (|fetch| (SCREEN SCWIDTH) + |of| DATUM) HEIGHT _ (|fetch| (SCREEN SCHEIGHT) |of| DATUM))))) (SYSTEM)) (GLOBALVARS WINDOWUSERFORMS ENDOFWINDOWUSERFORMS PROMPTWINDOW) -(PUTPROP (QUOTE WINDOW) (QUOTE IMPORTDATE) (IDATE "27-Apr-2021 20:06:09")) +(PUTPROP (QUOTE WINDOW) (QUOTE IMPORTDATE) (IDATE "13-Jun-2021 10:14:32")) (PUTPROPS NNLITATOM MACRO (OPENLAMBDA (X) (AND X (LITATOM X)))) -(PUTPROPS \NULL.OR.FIXP MACRO (OPENLAMBDA (X) (OR (NULL X) (FIXP X)))) -(PUTPROPS \CHECKTYPE MACRO (X (PROG ((VAR (CAR X)) (PRED (CADR X))) (if (AND (LISTP PRED) (MEMB (CAR -PRED) (QUOTE (QUOTE FUNCTION)))) then (SETQ PRED (LIST (CADR PRED) VAR))) (RETURN (SUBPAIR (QUOTE (MSG - VAR PRED)) (LIST (CONCAT " - is not a suitable value for the variable: " VAR) VAR PRED) (QUOTE (until PRED do (SETQ VAR (ERROR -VAR MSG))))))))) -(PUTPROPS CANONICAL.TIMERUNITS MACRO (OPENLAMBDA (X) (* Checks for common abbreviations before calling - \CanonicalizeTimerUnits) (SELECTQ X ((TICKS MILLISECONDS SECONDS) (* These are the canonical forms) X -) (NIL (QUOTE MILLISECONDS)) (\CanonicalizeTimerUnits X)))) -(PUTPROPS \MACRO.EVAL DMACRO (Z (PROG ((X (EXPANDMACRO (CAR Z) T))) (if (EQ X (CAR Z)) then (ERROR -"No macro property -- \MACRO.EVAL" X) else (RETURN (EVAL X)))))) -(DEFOPTIMIZER \MACRO.MX (FORM) FORM) -(PUTPROP (QUOTE MACROAUX) (QUOTE IMPORTDATE) (IDATE "27-Apr-2021 20:06:09")) +(PUTPROPS \\NULL.OR.FIXP MACRO (OPENLAMBDA (X) (OR (NULL X) (FIXP X)))) +(PUTPROPS \\CHECKTYPE MACRO (X (PROG ((VAR (CAR X)) (PRED (CADR X))) (|if| (AND (LISTP PRED) (MEMB ( +CAR PRED) (QUOTE (QUOTE FUNCTION)))) |then| (SETQ PRED (LIST (CADR PRED) VAR))) (RETURN (SUBPAIR ( +QUOTE (MSG VAR PRED)) (LIST (CONCAT " + is not a suitable value for the variable: " VAR) VAR PRED) (QUOTE (|until| PRED |do| (SETQ VAR ( +ERROR VAR MSG))))))))) +(PUTPROPS CANONICAL.TIMERUNITS MACRO (OPENLAMBDA (X) (* |Checks| |for| |common| |abbreviations| +|before| |calling| |\\CanonicalizeTimerUnits|) (SELECTQ X ((TICKS MILLISECONDS SECONDS) (* |These| +|are| |the| |canonical| |forms|) X) (NIL (QUOTE MILLISECONDS)) (|\\CanonicalizeTimerUnits| X)))) +(PUTPROPS \\MACRO.EVAL DMACRO (Z (PROG ((X (EXPANDMACRO (CAR Z) T))) (|if| (EQ X (CAR Z)) |then| ( +ERROR "No macro property -- \\MACRO.EVAL" X) |else| (RETURN (EVAL X)))))) +(DEFOPTIMIZER \\MACRO.MX (FORM) FORM) +(PUTPROP (QUOTE MACROAUX) (QUOTE IMPORTDATE) (IDATE "16-May-1990 20:26:31")) -(RPAQQ MASK0WORD1'S 32767) -(RPAQQ MASK1WORD0'S 32768) -(RPAQQ MASKWORD1'S 65535) -(RPAQQ MASKHALFWORD1'S 255) +(RPAQQ MASK0WORD1\'S 32767) +(RPAQQ MASK1WORD0\'S 32768) +(RPAQQ MASKWORD1\'S 65535) +(RPAQQ MASKHALFWORD1\'S 255) (RPAQQ BITSPERHALFWORD 8) -(CONSTANTS MASK0WORD1'S MASK1WORD0'S MASKWORD1'S MASKHALFWORD1'S BITSPERHALFWORD) +(CONSTANTS MASK0WORD1\'S MASK1WORD0\'S MASKWORD1\'S MASKHALFWORD1\'S BITSPERHALFWORD) (PUTPROPS EQZEROP MACRO ((X) (EQ 0 X))) -(PUTPROPS \MOVETOBOX DMACRO (OPENLAMBDA (N D) (SELECTC (NTYPX N) (\SMALLP (replace (FIXP HINUM) of D -with 0) (replace (FIXP LONUM) of D with N)) (\FIXP (replace (FIXP HINUM) of D with (fetch (FIXP HINUM) - of N)) (replace (FIXP LONUM) of D with (fetch (FIXP LONUM) of N))) (\ILLEGAL.ARG N)))) -(PUTPROPS .XUNBOX. MACRO ((X HX LX) (until (SETQ LX (SELECTC (NTYPX X) (\SMALLP (COND ((IGEQ X 0) ( -SETQ HX 0) X) (T (SETQ HX MASKWORD1'S) (\LOLOC X)))) (\FIXP (SETQ HX (fetch (FIXP HINUM) of X)) (fetch - (FIXP LONUM) of X)) NIL)) do (SETQ X (LISPERROR "ILLEGAL ARG" X T))))) -(PUTPROPS .XLLSH. MACRO ((HI LO N) (if (IGEQ N BITSPERWORD) then (* ; -"Jump 16 bits in a single bound!") (SETQ HI LO) (SETQ LO 0) (SETQ N (IDIFFERENCE N BITSPERWORD))) (if -(IGEQ N BITSPERHALFWORD) then (* ; "Jump 8 bits in a single bound!") (SETQ HI (LOGOR (.LOHALFWORDHI. -HI) (.HIHALFWORDLO. LO))) (SETQ LO (.LOHALFWORDHI. LO)) (SETQ N (IDIFFERENCE N BITSPERHALFWORD))) (if -(IGEQ N 4) then (* ; "Jump 4 bits in a single bound!") (SETQ HI (LOGOR (LRSH LO (CONSTANT (IDIFFERENCE - BITSPERWORD 4))) (LLSH (LOGAND HI (CONSTANT (MASK.1'S 0 (IDIFFERENCE BITSPERWORD 4)))) 4))) (SETQ LO -(LLSH (LOGAND LO (CONSTANT (MASK.1'S 0 (IDIFFERENCE BITSPERWORD 4)))) 4)) (SETQ N (IDIFFERENCE N 4))) -(* ; "MASK0WORD1'S should be same as (SUB1 (LSH 1 (SUB1 BITSPERWORD)))") (FRPTQ N (SETQ HI (LLSH ( -LOGAND HI MASK0WORD1'S) 1)) (SETQ LO (LLSH (if (IGEQ LO MASK1WORD0'S) then (add HI 1) (LOGAND LO -MASK0WORD1'S) else LO) 1))))) -(PUTPROPS .XLLSH1. MACRO ((HI LO) (SETQ HI (LLSH (LOGAND HI MASK0WORD1'S) 1)) (SETQ LO (LSH (COND (( -IGEQ LO MASK1WORD0'S) (SETQ HI (LOGOR HI 1)) (LOGAND LO MASK0WORD1'S)) (T LO)) 1)))) -(PUTPROPS .XLRSH. MACRO ((HI LO N) (if (IGEQ N BITSPERWORD) then (* ; -"Jump 10 bits in a single bound!") (SETQ LO HI) (SETQ HI 0) (SETQ N (IDIFFERENCE N BITSPERWORD))) (if -(IGEQ N BITSPERHALFWORD) then (* ; "Jump 8 bits in a single bound!") (SETQ LO (LOGOR (.HIHALFWORDLO. -LO) (.LOHALFWORDHI. HI))) (SETQ HI (.HIHALFWORDLO. HI)) (SETQ N (IDIFFERENCE N BITSPERHALFWORD))) (if -(IGEQ N 4) then (* ; "Jump 4 bits in a single bound!") (SETQ LO (LOGOR (LLSH (LOGAND HI (CONSTANT ( -MASK.1'S 0 4))) (CONSTANT (IDIFFERENCE BITSPERWORD 4))) (LRSH LO 4))) (SETQ HI (LRSH HI 4)) (SETQ N ( -IDIFFERENCE N 4))) (* ; "MASK1WORD0'S should be same as \SIGNBIT") (FRPTQ N (SETQ LO (if (ODDP HI) -then (LOGOR (LRSH LO 1) MASK1WORD0'S) else (LRSH LO 1))) (SETQ HI (LRSH HI 1))))) -(PUTPROPS .ADD.2WORD.INTEGERS. MACRO ((HX LX HY LY) (* ; "Ignores carry out of high-order word") (SETQ - HX (.SUMSMALLMOD. HX HY)) (SETQ LX (.SUMSMALLMOD. LX LY (SETQ HX (if (EQ HX MAX.SMALL.INTEGER) then 0 - else (ADD1 HX))))))) -(PUTPROPS .SUB.2WORD.INTEGERS. MACRO ((HX LX HY LY) (* ; "Ignores carry out of high-order word") (SETQ - HX (.DIFFERENCESMALLMOD. HX HY)) (SETQ LX (.DIFFERENCESMALLMOD. LX LY (SETQ HX (if (EQ HX 0) then -MAX.SMALL.INTEGER else (SUB1 HX))))))) -(PUTPROPS .32BITMUL. MACRO ((HR LR X Y) (PROG (HX LX HY LY) (if (ILESSP X Y) then (swap X Y)) (* ; -"Y is the lesser of the two now") (.XUNBOX. X HX LX) (.XUNBOX. Y HY LY) LP (if (ODDP LY) then ( -.ADD.2WORD.INTEGERS. HR LR HX LX)) (if (EQ HY 0) then (SETQ LY (LRSH LY 1)) (if (EQ LY 0) then (RETURN -)) else (.LRSH1. HY LY)) (* ; "Trim off highest bits, so that left-shifting doesn't generate FIXPs") ( -SETQ HX (LOGAND HX MASK0WORD1'S)) (.LLSH1. HX LX) (GO LP)))) -(PUTPROPS .SUMSMALLMOD. MACRO ((X Y OVERFLOWFORM) ((LAMBDA (\SumSmallModVar) (DECLARE (LOCALVARS -\SumSmallModVar)) (IF (ILEQ X \SumSmallModVar) THEN (IPLUS X Y) ELSE OVERFLOWFORM (IDIFFERENCE X (ADD1 - \SumSmallModVar)))) (IDIFFERENCE MAX.SMALL.INTEGER Y)))) +(PUTPROPS \\MOVETOBOX DMACRO (OPENLAMBDA (N D) (SELECTC (NTYPX N) (\\SMALLP (|replace| (FIXP HINUM) +|of| D |with| 0) (|replace| (FIXP LONUM) |of| D |with| N)) (\\FIXP (|replace| (FIXP HINUM) |of| D +|with| (|fetch| (FIXP HINUM) |of| N)) (|replace| (FIXP LONUM) |of| D |with| (|fetch| (FIXP LONUM) |of| + N))) (\\ILLEGAL.ARG N)))) +(PUTPROPS .XUNBOX. MACRO ((X HX LX) (|until| (SETQ LX (SELECTC (NTYPX X) (\\SMALLP (COND ((IGEQ X 0) ( +SETQ HX 0) X) (T (SETQ HX MASKWORD1\'S) (\\LOLOC X)))) (\\FIXP (SETQ HX (|fetch| (FIXP HINUM) |of| X)) + (|fetch| (FIXP LONUM) |of| X)) NIL)) |do| (SETQ X (LISPERROR "ILLEGAL ARG" X T))))) +(PUTPROPS .XLLSH. MACRO ((HI LO N) (|if| (IGEQ N BITSPERWORD) |then| (* \; +"Jump 16 bits in a single bound!") (SETQ HI LO) (SETQ LO 0) (SETQ N (IDIFFERENCE N BITSPERWORD))) ( +|if| (IGEQ N BITSPERHALFWORD) |then| (* \; "Jump 8 bits in a single bound!") (SETQ HI (LOGOR ( +.LOHALFWORDHI. HI) (.HIHALFWORDLO. LO))) (SETQ LO (.LOHALFWORDHI. LO)) (SETQ N (IDIFFERENCE N +BITSPERHALFWORD))) (|if| (IGEQ N 4) |then| (* \; "Jump 4 bits in a single bound!") (SETQ HI (LOGOR ( +LRSH LO (CONSTANT (IDIFFERENCE BITSPERWORD 4))) (LLSH (LOGAND HI (CONSTANT (MASK.1\'S 0 (IDIFFERENCE +BITSPERWORD 4)))) 4))) (SETQ LO (LLSH (LOGAND LO (CONSTANT (MASK.1\'S 0 (IDIFFERENCE BITSPERWORD 4)))) + 4)) (SETQ N (IDIFFERENCE N 4))) (* \; +"MASK0WORD1'S should be same as (SUB1 (LSH 1 (SUB1 BITSPERWORD)))") (FRPTQ N (SETQ HI (LLSH (LOGAND HI + MASK0WORD1\'S) 1)) (SETQ LO (LLSH (|if| (IGEQ LO MASK1WORD0\'S) |then| (|add| HI 1) (LOGAND LO +MASK0WORD1\'S) |else| LO) 1))))) +(PUTPROPS .XLLSH1. MACRO ((HI LO) (SETQ HI (LLSH (LOGAND HI MASK0WORD1\'S) 1)) (SETQ LO (LSH (COND (( +IGEQ LO MASK1WORD0\'S) (SETQ HI (LOGOR HI 1)) (LOGAND LO MASK0WORD1\'S)) (T LO)) 1)))) +(PUTPROPS .XLRSH. MACRO ((HI LO N) (|if| (IGEQ N BITSPERWORD) |then| (* \; +"Jump 10 bits in a single bound!") (SETQ LO HI) (SETQ HI 0) (SETQ N (IDIFFERENCE N BITSPERWORD))) ( +|if| (IGEQ N BITSPERHALFWORD) |then| (* \; "Jump 8 bits in a single bound!") (SETQ LO (LOGOR ( +.HIHALFWORDLO. LO) (.LOHALFWORDHI. HI))) (SETQ HI (.HIHALFWORDLO. HI)) (SETQ N (IDIFFERENCE N +BITSPERHALFWORD))) (|if| (IGEQ N 4) |then| (* \; "Jump 4 bits in a single bound!") (SETQ LO (LOGOR ( +LLSH (LOGAND HI (CONSTANT (MASK.1\'S 0 4))) (CONSTANT (IDIFFERENCE BITSPERWORD 4))) (LRSH LO 4))) ( +SETQ HI (LRSH HI 4)) (SETQ N (IDIFFERENCE N 4))) (* \; "MASK1WORD0'S should be same as \\SIGNBIT") ( +FRPTQ N (SETQ LO (|if| (ODDP HI) |then| (LOGOR (LRSH LO 1) MASK1WORD0\'S) |else| (LRSH LO 1))) (SETQ +HI (LRSH HI 1))))) +(PUTPROPS .ADD.2WORD.INTEGERS. MACRO ((HX LX HY LY) (* \; "Ignores carry out of high-order word") ( +SETQ HX (.SUMSMALLMOD. HX HY)) (SETQ LX (.SUMSMALLMOD. LX LY (SETQ HX (|if| (EQ HX MAX.SMALL.INTEGER) +|then| 0 |else| (ADD1 HX))))))) +(PUTPROPS .SUB.2WORD.INTEGERS. MACRO ((HX LX HY LY) (* \; "Ignores carry out of high-order word") ( +SETQ HX (.DIFFERENCESMALLMOD. HX HY)) (SETQ LX (.DIFFERENCESMALLMOD. LX LY (SETQ HX (|if| (EQ HX 0) +|then| MAX.SMALL.INTEGER |else| (SUB1 HX))))))) +(PUTPROPS .32BITMUL. MACRO ((HR LR X Y) (PROG (HX LX HY LY) (|if| (ILESSP X Y) |then| (|swap| X Y)) (* + \; "Y is the lesser of the two now") (.XUNBOX. X HX LX) (.XUNBOX. Y HY LY) LP (|if| (ODDP LY) |then| +(.ADD.2WORD.INTEGERS. HR LR HX LX)) (|if| (EQ HY 0) |then| (SETQ LY (LRSH LY 1)) (|if| (EQ LY 0) +|then| (RETURN)) |else| (.LRSH1. HY LY)) (* \; +"Trim off highest bits, so that left-shifting doesn't generate FIXPs") (SETQ HX (LOGAND HX +MASK0WORD1\'S)) (.LLSH1. HX LX) (GO LP)))) +(PUTPROPS .SUMSMALLMOD. MACRO ((X Y OVERFLOWFORM) ((LAMBDA (|\\SumSmallModVar|) (DECLARE (LOCALVARS +|\\SumSmallModVar|)) (IF (ILEQ X |\\SumSmallModVar|) THEN (IPLUS X Y) ELSE OVERFLOWFORM (IDIFFERENCE X + (ADD1 |\\SumSmallModVar|)))) (IDIFFERENCE MAX.SMALL.INTEGER Y)))) (PUTPROPS .DIFFERENCESMALLMOD. MACRO ((X Y BORROWFORM) (IF (NOT (IGREATERP Y X)) THEN (IDIFFERENCE X Y ) ELSE BORROWFORM (ADD1 (IDIFFERENCE MAX.SMALL.INTEGER (IDIFFERENCE Y X)))))) -(PUTPROPS \GETBASENIBBLE DMACRO (OPENLAMBDA (BASE OFFST) ((LAMBDA (\Byte) (DECLARE (LOCALVARS \Byte)) -(if (ODDP OFFST) then (LOGAND \Byte (CONSTANT (MASK.1'S 0 BITSPERNIBBLE))) else (LRSH \Byte -BITSPERNIBBLE))) (\GETBASEBYTE BASE (FOLDLO OFFST NIBBLESPERBYTE))))) -(PUTPROPS \PUTBASENIBBLE DMACRO (OPENLAMBDA (BASE OFFST VAL) ((LAMBDA (\ByteNo) (DECLARE (LOCALVARS -\ByteNo)) ((LAMBDA (\Byte) (DECLARE (LOCALVARS \Byte)) (\PUTBASEBYTE BASE \ByteNo (if (ODDP OFFST) -then (LOGOR (LOGAND \Byte (CONSTANT (MASK.1'S BITSPERNIBBLE BITSPERNIBBLE))) VAL) else (LOGOR (LOGAND -\Byte (CONSTANT (MASK.1'S 0 BITSPERNIBBLE))) (LLSH VAL BITSPERNIBBLE))))) (\GETBASEBYTE BASE \ByteNo)) -) (FOLDLO OFFST NIBBLESPERBYTE)))) -(PUTPROPS \GETBASEBIT DMACRO (OPENLAMBDA (BASE OFFST) ((LAMBDA (\ByteNo \BitMask) (DECLARE (LOCALVARS -\ByteNo \BitMask)) (if (EQ 0 (LOGAND \BitMask (\GETBASEBYTE BASE \ByteNo))) then 0 else 1)) (FOLDLO -OFFST BITSPERBYTE) (MASK.1'S (IDIFFERENCE (CONSTANT (SUB1 BITSPERBYTE)) (IMOD OFFST BITSPERBYTE)) 1))) -) -(PUTPROPS \PUTBASEBIT DMACRO (OPENLAMBDA (BASE OFFST VAL) ((LAMBDA (\ByteNo \BitMask \Byte) (DECLARE ( -LOCALVARS \ByteNo \BitMask \Byte)) (SETQ \Byte (\GETBASEBYTE BASE \ByteNo)) (if (if (EQ 0 (LOGAND -\BitMask \Byte)) then (NOT (EQ 0 VAL)) else (EQ 0 VAL)) then (\PUTBASEBYTE BASE \ByteNo (LOGXOR -\BitMask \Byte))) VAL) (FOLDLO OFFST BITSPERBYTE) (MASK.1'S (IDIFFERENCE (CONSTANT (SUB1 BITSPERBYTE)) - (IMOD OFFST BITSPERBYTE)) 1)))) -(PUTPROP (QUOTE ADDARITH) (QUOTE IMPORTDATE) (IDATE "27-Apr-2021 20:06:09")) +(PUTPROPS \\GETBASENIBBLE DMACRO (OPENLAMBDA (BASE OFFST) ((LAMBDA (|\\Byte|) (DECLARE (LOCALVARS +|\\Byte|)) (|if| (ODDP OFFST) |then| (LOGAND |\\Byte| (CONSTANT (MASK.1\'S 0 BITSPERNIBBLE))) |else| ( +LRSH |\\Byte| BITSPERNIBBLE))) (\\GETBASEBYTE BASE (FOLDLO OFFST NIBBLESPERBYTE))))) +(PUTPROPS \\PUTBASENIBBLE DMACRO (OPENLAMBDA (BASE OFFST VAL) ((LAMBDA (|\\ByteNo|) (DECLARE ( +LOCALVARS |\\ByteNo|)) ((LAMBDA (|\\Byte|) (DECLARE (LOCALVARS |\\Byte|)) (\\PUTBASEBYTE BASE +|\\ByteNo| (|if| (ODDP OFFST) |then| (LOGOR (LOGAND |\\Byte| (CONSTANT (MASK.1\'S BITSPERNIBBLE +BITSPERNIBBLE))) VAL) |else| (LOGOR (LOGAND |\\Byte| (CONSTANT (MASK.1\'S 0 BITSPERNIBBLE))) (LLSH VAL + BITSPERNIBBLE))))) (\\GETBASEBYTE BASE |\\ByteNo|))) (FOLDLO OFFST NIBBLESPERBYTE)))) +(PUTPROPS \\GETBASEBIT DMACRO (OPENLAMBDA (BASE OFFST) ((LAMBDA (|\\ByteNo| |\\BitMask|) (DECLARE ( +LOCALVARS |\\ByteNo| |\\BitMask|)) (|if| (EQ 0 (LOGAND |\\BitMask| (\\GETBASEBYTE BASE |\\ByteNo|))) +|then| 0 |else| 1)) (FOLDLO OFFST BITSPERBYTE) (MASK.1\'S (IDIFFERENCE (CONSTANT (SUB1 BITSPERBYTE)) ( +IMOD OFFST BITSPERBYTE)) 1)))) +(PUTPROPS \\PUTBASEBIT DMACRO (OPENLAMBDA (BASE OFFST VAL) ((LAMBDA (|\\ByteNo| |\\BitMask| |\\Byte|) +(DECLARE (LOCALVARS |\\ByteNo| |\\BitMask| |\\Byte|)) (SETQ |\\Byte| (\\GETBASEBYTE BASE |\\ByteNo|)) +(|if| (|if| (EQ 0 (LOGAND |\\BitMask| |\\Byte|)) |then| (NOT (EQ 0 VAL)) |else| (EQ 0 VAL)) |then| ( +\\PUTBASEBYTE BASE |\\ByteNo| (LOGXOR |\\BitMask| |\\Byte|))) VAL) (FOLDLO OFFST BITSPERBYTE) ( +MASK.1\'S (IDIFFERENCE (CONSTANT (SUB1 BITSPERBYTE)) (IMOD OFFST BITSPERBYTE)) 1)))) +(PUTPROP (QUOTE ADDARITH) (QUOTE IMPORTDATE) (IDATE "16-May-1990 11:46:37")) -(RPAQQ \MAXFILEPAGE 65534) -(CONSTANTS \MAXFILEPAGE) -(PUTPROP (QUOTE LLFAULT) (QUOTE IMPORTDATE) (IDATE "27-Apr-2021 20:06:09")) +(RPAQQ \\MAXFILEPAGE 65534) +(CONSTANTS \\MAXFILEPAGE) +(PUTPROP (QUOTE LLFAULT) (QUOTE IMPORTDATE) (IDATE "21-Mar-2021 21:33:01")) -(PUTPROPS \UPDATETIMERS MACRO (NIL (* * Moves excess time from the processor clock to our software -clocks. Needs to be run often, uninterruptably, preferably from the vertical retrace interrupt) (* Get - processor clock) (PROG ((EXCESS (\BOXIDIFFERENCE (\RCLK (LOCF (fetch RCLKTEMP0 of \MISCSTATS))) (LOCF - (fetch BASECLOCK of \MISCSTATS))))) (RETURN (COND ((OR (IGEQ EXCESS \RCLKSECOND) (ILESSP EXCESS 0)) ( -* More than one second has elapsed since we updated clocks) (\BOXIPLUS (LOCF (fetch BASECLOCK of -\MISCSTATS)) \RCLKSECOND) (* Increment base by one second) (\BOXIPLUS (LOCF (fetch MILLISECONDSCLOCK -of \MISCSTATS)) 1000) (* Increment clocks by 1 second) (\BOXIPLUS (LOCF (fetch SECONDSCLOCK of -\MISCSTATS)) 1) T)))))) -(RPAQQ \RTCSECONDS 378) -(RPAQQ \RTCMILLISECONDS 380) -(RPAQQ \RTCBASE 382) -(RPAQQ \OFFSET.SECONDS 0) -(RPAQQ \OFFSET.MILLISECONDS 2) -(RPAQQ \OFFSET.BASE 4) -(RPAQQ \ALTO.RCLKSECOND 1680000) -(RPAQQ \ALTO.RCLKMILLISECOND 1680) -(RPAQQ \DLION.RCLKMILLISECOND 35) -(RPAQQ \DLION.RCLKSECOND 34746) -(RPAQQ \DOVE.RCLKMILLISECOND 63) -(RPAQQ \DOVE.RCLKSECOND 62500) -(CONSTANTS (\RTCSECONDS 378) (\RTCMILLISECONDS 380) (\RTCBASE 382) (\OFFSET.SECONDS 0) ( -\OFFSET.MILLISECONDS 2) (\OFFSET.BASE 4) (\ALTO.RCLKSECOND 1680000) (\ALTO.RCLKMILLISECOND 1680) ( -\DLION.RCLKMILLISECOND 35) (\DLION.RCLKSECOND 34746) (\DOVE.RCLKMILLISECOND 63) (\DOVE.RCLKSECOND +(PUTPROPS \\UPDATETIMERS MACRO (NIL (* * |Moves| |excess| |time| |from| |the| |processor| |clock| |to| + |our| |software| |clocks.| |Needs| |to| |be| |run| |often,| |uninterruptably,| |preferably| |from| +|the| |vertical| |retrace| |interrupt|) (* |Get| |processor| |clock|) (PROG ((EXCESS (\\BOXIDIFFERENCE + (\\RCLK (LOCF (|fetch| RCLKTEMP0 |of| \\MISCSTATS))) (LOCF (|fetch| BASECLOCK |of| \\MISCSTATS))))) ( +RETURN (COND ((OR (IGEQ EXCESS \\RCLKSECOND) (ILESSP EXCESS 0)) (* |More| |than| |one| |second| |has| +|elapsed| |since| |we| |updated| |clocks|) (\\BOXIPLUS (LOCF (|fetch| BASECLOCK |of| \\MISCSTATS)) +\\RCLKSECOND) (* |Increment| |base| |by| |one| |second|) (\\BOXIPLUS (LOCF (|fetch| MILLISECONDSCLOCK +|of| \\MISCSTATS)) 1000) (* |Increment| |clocks| |by| 1 |second|) (\\BOXIPLUS (LOCF (|fetch| +SECONDSCLOCK |of| \\MISCSTATS)) 1) T)))))) +(RPAQQ \\RTCSECONDS 378) +(RPAQQ \\RTCMILLISECONDS 380) +(RPAQQ \\RTCBASE 382) +(RPAQQ \\OFFSET.SECONDS 0) +(RPAQQ \\OFFSET.MILLISECONDS 2) +(RPAQQ \\OFFSET.BASE 4) +(RPAQQ \\ALTO.RCLKSECOND 1680000) +(RPAQQ \\ALTO.RCLKMILLISECOND 1680) +(RPAQQ \\DLION.RCLKMILLISECOND 35) +(RPAQQ \\DLION.RCLKSECOND 34746) +(RPAQQ \\DOVE.RCLKMILLISECOND 63) +(RPAQQ \\DOVE.RCLKSECOND 62500) +(CONSTANTS (\\RTCSECONDS 378) (\\RTCMILLISECONDS 380) (\\RTCBASE 382) (\\OFFSET.SECONDS 0) ( +\\OFFSET.MILLISECONDS 2) (\\OFFSET.BASE 4) (\\ALTO.RCLKSECOND 1680000) (\\ALTO.RCLKMILLISECOND 1680) ( +\\DLION.RCLKMILLISECOND 35) (\\DLION.RCLKSECOND 34746) (\\DOVE.RCLKMILLISECOND 63) (\\DOVE.RCLKSECOND 62500)) (PUTPROPS ALTO.TO.LISP.DATE MACRO ((DATE) (LOGXOR DATE -2147483648))) (PUTPROPS LISP.TO.ALTO.DATE MACRO ((DATE) (LOGXOR DATE -2147483648))) -(PUTPROP (QUOTE LLTIMER) (QUOTE IMPORTDATE) (IDATE "27-Apr-2021 20:06:09")) +(PUTPROP (QUOTE LLTIMER) (QUOTE IMPORTDATE) (IDATE "16-May-1990 20:13:11")) (RECORD BRUSH (BRUSHSHAPE BRUSHSIZE BRUSHCOLOR) BRUSHSHAPE _ (QUOTE ROUND) BRUSHSIZE _ 1) (PUTPROPS IMAGEOP MACRO (ARGS (CONS (QUOTE SPREADAPPLY*) (CONS (COND ((EQ (CAR (LISTP (CAR ARGS))) ( -QUOTE QUOTE)) (LIST (QUOTE fetch) (LIST (QUOTE IMAGEOPS) (CADAR ARGS)) (QUOTE of) (LIST (QUOTE fetch) -(QUOTE (STREAM IMAGEOPS)) (QUOTE of) (CADR ARGS)))) (T (HELP "IMAGEOP - OPNAME not quoted:" ARGS))) ( -CDDR ARGS))))) +QUOTE QUOTE)) (LIST (QUOTE |fetch|) (LIST (QUOTE IMAGEOPS) (CADAR ARGS)) (QUOTE |of|) (LIST (QUOTE +|fetch|) (QUOTE (STREAM IMAGEOPS)) (QUOTE |of|) (CADR ARGS)))) (T (HELP "IMAGEOP - OPNAME not quoted:" + ARGS))) (CDDR ARGS))))) (DATATYPE IMAGEOPS (IMAGETYPE IMCLOSEFN IMXPOSITION IMYPOSITION IMFONT IMLEFTMARGIN IMRIGHTMARGIN IMLINEFEED IMDRAWLINE IMDRAWCURVE IMDRAWCIRCLE IMDRAWELLIPSE IMFILLCIRCLE IMBLTSHADE IMBITBLT IMNEWPAGE IMMOVETO IMSCALE IMTERPRI IMTOPMARGIN IMBOTTOMMARGIN IMSPACEFACTOR IMFONTCREATE IMOPERATION IMCOLOR IMSTRINGWIDTH IMCHARWIDTH IMCHARWIDTHY IMBACKCOLOR IMBITMAPSIZE IMCLIPPINGREGION IMRESET IMDRAWPOLYGON IMFILLPOLYGON IMSCALEDBITBLT IMWRITEPIXEL IMCHARSET IMROTATE IMDRAWARC IMTRANSLATE IMSCALE2 IMPUSHSTATE IMPOPSTATE IMDEFAULTSTATE IMDRAWPOINT IMBLTCHAR IMXOFFSET IMYOFFSET) IMCLOSEFN _ -(FUNCTION NILL) IMTERPRI _ (FUNCTION (LAMBDA (STREAM) (\OUTCHAR STREAM (CHARCODE EOL)))) IMNEWPAGE _ ( -FUNCTION (LAMBDA (STREAM) (\OUTCHAR STREAM (CHARCODE ^L)))) IMOPERATION _ (FUNCTION NILL) IMCOLOR _ ( -FUNCTION NILL) IMCLIPPINGREGION _ (FUNCTION NILL) IMRESET _ (FUNCTION NILL) IMBACKCOLOR _ (FUNCTION +(FUNCTION NILL) IMTERPRI _ (FUNCTION (LAMBDA (STREAM) (\\OUTCHAR STREAM (CHARCODE EOL)))) IMNEWPAGE _ +(FUNCTION (LAMBDA (STREAM) (\\OUTCHAR STREAM (CHARCODE ^L)))) IMOPERATION _ (FUNCTION NILL) IMCOLOR _ +(FUNCTION NILL) IMCLIPPINGREGION _ (FUNCTION NILL) IMRESET _ (FUNCTION NILL) IMBACKCOLOR _ (FUNCTION NILL) IMSTRINGWIDTH _ (FUNCTION (LAMBDA (STREAM STR RDTBL) (STRINGWIDTH STR (DSPFONT NIL STREAM) RDTBL RDTBL))) IMCHARWIDTH _ (FUNCTION (LAMBDA (STREAM CHARCODE) (CHARWIDTH CHARCODE (DSPFONT NIL STREAM))) ) IMMOVETO _ (FUNCTION (LAMBDA (STREAM X Y) (IMAGEOP (QUOTE IMXPOSITION) STREAM STREAM X) (IMAGEOP ( QUOTE IMYPOSITION) STREAM STREAM Y))) IMBITMAPSIZE _ (FUNCTION (LAMBDA (STREAM BITMAP DIMENSION) ( SELECTQ DIMENSION (WIDTH (TIMES (DSPSCALE NIL STREAM) (BITMAPWIDTH BITMAP))) (HEIGHT (TIMES (DSPSCALE NIL STREAM) (BITMAPHEIGHT BITMAP))) (NIL (CONS (TIMES (DSPSCALE NIL STREAM) (BITMAPWIDTH BITMAP)) ( -TIMES (DSPSCALE NIL STREAM) (BITMAPHEIGHT BITMAP)))) (\ILLEGAL.ARG DIMENSION)))) IMWRITEPIXEL _ ( +TIMES (DSPSCALE NIL STREAM) (BITMAPHEIGHT BITMAP)))) (\\ILLEGAL.ARG DIMENSION)))) IMWRITEPIXEL _ ( FUNCTION NILL) IMCHARSET _ (FUNCTION NILL) IMXPOSITION _ (FUNCTION NILL) IMYPOSITION _ (FUNCTION NILL) IMFONT _ (FUNCTION NILL) IMLEFTMARGIN _ (FUNCTION NILL) IMRIGHTMARGIN _ (FUNCTION NILL) IMLINEFEED _ (FUNCTION NILL) IMDRAWLINE _ (FUNCTION NILL) IMDRAWCURVE _ (FUNCTION NILL) IMDRAWCIRCLE _ (FUNCTION NILL) IMDRAWELLIPSE _ (FUNCTION NILL) IMFILLCIRCLE _ (FUNCTION NILL) IMBLTSHADE _ (FUNCTION NILL) IMBITBLT _ (FUNCTION NILL) IMSCALE _ (FUNCTION NILL) IMTOPMARGIN _ (FUNCTION NILL) IMBOTTOMMARGIN _ ( FUNCTION NILL) IMSPACEFACTOR _ (FUNCTION NILL) IMFONTCREATE _ (FUNCTION NILL) IMCHARWIDTHY _ (FUNCTION - NILL) IMDRAWPOLYGON _ (FUNCTION \DRAWPOLYGON.GENERIC) IMDRAWPOINT _ (FUNCTION \DRAWPOINT.GENERIC) + NILL) IMDRAWPOLYGON _ (FUNCTION \\DRAWPOLYGON.GENERIC) IMDRAWPOINT _ (FUNCTION \\DRAWPOINT.GENERIC) IMFILLPOLYGON _ (FUNCTION NILL) IMSCALEDBITBLT _ (FUNCTION NILL) IMROTATE _ (FUNCTION NILL) IMDRAWARC _ (FUNCTION NILL) IMTRANSLATE _ (FUNCTION NILL) IMPUSHSTATE _ (FUNCTION NILL) IMPOPSTATE _ (FUNCTION -NILL) IMSCALE2 _ (FUNCTION NILL) IMDEFAULTSTATE _ (FUNCTION NILL) IMBLTCHAR _ (FUNCTION \MEDW.BLTCHAR) - IMXOFFSET _ (FUNCTION \MEDW.XOFFSET) IMYOFFSET _ (FUNCTION \MEDW.YOFFSET)) -(GLOBALVARS \NOIMAGEOPS) -(PUTPROP (QUOTE IMAGEIO) (QUOTE IMPORTDATE) (IDATE "27-Apr-2021 20:06:09")) +NILL) IMSCALE2 _ (FUNCTION NILL) IMDEFAULTSTATE _ (FUNCTION NILL) IMBLTCHAR _ (FUNCTION \\MEDW.BLTCHAR +) IMXOFFSET _ (FUNCTION \\MEDW.XOFFSET) IMYOFFSET _ (FUNCTION \\MEDW.YOFFSET)) +(GLOBALVARS \\NOIMAGEOPS) +(PUTPROP (QUOTE IMAGEIO) (QUOTE IMPORTDATE) (IDATE "28-Jun-1999 16:33:59")) -(DATATYPE PROCESS ((PROCFX0 WORD) (* ; "= \STACKHI to make this look like a STACKP") (PROCFX WORD) (* -; "Stack pointer to this context when it is asleep") (PROCSTATUS BYTE) (* ; "Running or waiting") ( -PROCNAME POINTER) (* ; "Name for convenience in type-in reference") (PROCPRIORITY BYTE) (* ; -"Priority level, 0-4. Not currently used.") (PROCQUEUE POINTER) (* ; -"Queue of processes at the same priority") (NIL BYTE) (NEXTPROCHANDLE POINTER) (* ; -"Pointer to next one") (PROCTIMERSET FLAG) (* ; "True if PROCWAKEUPTIMER has an interesting value") ( -PROCBEINGDELETED FLAG) (* ; "True if proc was deleted, but hasn't been removed from \PROCESSES yet") ( -PROCDELETED FLAG) (PROCSYSTEMP FLAG) (PROCNEVERSTARTED FLAG) (NIL FLAG) (NIL FLAG) (NIL FLAG) ( -PROCWAKEUPTIMER POINTER) (* ; "a largep recording the time this proc last went to sleep") ( -PROCTIMERLINK POINTER) (* ; "For linking proc in timer queue") (PROCTIMERBOX POINTER) (* ; +(DATATYPE PROCESS ((PROCFX0 WORD) (* \; "= \\STACKHI to make this look like a STACKP") (PROCFX WORD) ( +* \; "Stack pointer to this context when it is asleep") (PROCSTATUS BYTE) (* \; "Running or waiting") +(PROCNAME POINTER) (* \; "Name for convenience in type-in reference") (PROCPRIORITY BYTE) (* \; +"Priority level, 0-4. Not currently used.") (PROCQUEUE POINTER) (* \; +"Queue of processes at the same priority") (NIL BYTE) (NEXTPROCHANDLE POINTER) (* \; +"Pointer to next one") (PROCTIMERSET FLAG) (* \; "True if PROCWAKEUPTIMER has an interesting value") ( +PROCBEINGDELETED FLAG) (* \; "True if proc was deleted, but hasn't been removed from \\PROCESSES yet") + (PROCDELETED FLAG) (PROCSYSTEMP FLAG) (PROCNEVERSTARTED FLAG) (NIL FLAG) (NIL FLAG) (NIL FLAG) ( +PROCWAKEUPTIMER POINTER) (* \; "a largep recording the time this proc last went to sleep") ( +PROCTIMERLINK POINTER) (* \; "For linking proc in timer queue") (PROCTIMERBOX POINTER) (* \; "Scratch box to use for PROCWAKEUPTIMER when user does not give one explicitly") (WAKEREASON POINTER) -(* ; "Reason process is being run. From WAKE.PROCESS or timer or event wakeup; T from simple BLOCK") - (PROCEVENTORLOCK POINTER) (* ; "EVENT or MONITOR lock that this proc is waiting for") (PROCFORM -POINTER) (* ; "Form to EVAL to start it going") (RESTARTABLE POINTER) (* ; +(* \; "Reason process is being run. From WAKE.PROCESS or timer or event wakeup; T from simple BLOCK" +) (PROCEVENTORLOCK POINTER) (* \; "EVENT or MONITOR lock that this proc is waiting for") (PROCFORM +POINTER) (* \; "Form to EVAL to start it going") (RESTARTABLE POINTER) (* \; "T = autorestart on error, HARDRESET = restart only on hard reset, NIL = never restart") (PROCWINDOW -POINTER) (* ; "Window this process lives in, if any") (PROCFINISHED POINTER) (* ; +POINTER) (* \; "Window this process lives in, if any") (PROCFINISHED POINTER) (* \; "True if proc finished. Value is indication of how: NORMAL, DELETED, ERROR") (PROCRESULT POINTER) (* -; "Value it returned if it finished normally") (PROCFINISHEVENT POINTER) (* ; -"Optional EVENT to be notified when proc finishes") (PROCMAILBOX POINTER) (* ; "Message queue") ( -PROCDRIBBLEOUTPUT POINTER) (* ; "Binding for *DRIBBLE-OUTPUT* in this process") (PROCINFOHOOK POINTER) - (* ; "Optional user fn that displays info about process") (PROCTYPEAHEAD POINTER) (* ; -"Buffer of typeahead destined for this proc") (PROCREMOTEINFO POINTER) (* ; "For Enterprise") ( -PROCUSERDATA POINTER) (* ; "For PROCESSPROP") (PROCEVENTLINK POINTER) (* ; -"Used to maintain EVENT queues") (PROCAFTEREXIT POINTER) (* ; -"What to do with this process when coming back from a LOGOUT, etc") (PROCBEFOREEXIT POINTER) (* ; -"If DON'T, can't logout") (PROCOWNEDLOCKS POINTER) (* ; "Pointer to first lock I currently own") ( -PROCEVAPPLYRESULT POINTER) (* ; "For PROCESS.EVAL and PROCESS.APPLY when WAITFORRESULT is true") ( -PROCTTYENTRYFN POINTER) (* ; "Is applied to a process when it becomes the tty process") (PROCTTYEXITFN - POINTER) (* ; "Is applied to a process when it ceases to be the tty process") (PROCHARDRESETINFO -POINTER) (* ; "HARDRESET stores info about unwind-protect cleanups here") (PROCRESTARTFORM POINTER) (* - ; "use this instead of PROCFORM when restarting") (PROCOLDTTYPROC POINTER) (* ; -"Process that had the tty when we got it") (NIL POINTER) (* ; "For expansion")) PROCTIMERBOX _ ( -CREATECELL \FIXP) PROCFX0 _ \STACKHI) -(PUTPROPS THIS.PROCESS MACRO (NIL \RUNNING.PROCESS)) -(PUTPROPS TTY.PROCESS MACRO (X (COND ((CAR X) (QUOTE IGNOREMACRO)) (T (QUOTE \TTY.PROCESS))))) +\; "Value it returned if it finished normally") (PROCFINISHEVENT POINTER) (* \; +"Optional EVENT to be notified when proc finishes") (PROCMAILBOX POINTER) (* \; "Message queue") ( +PROCDRIBBLEOUTPUT POINTER) (* \; "Binding for *DRIBBLE-OUTPUT* in this process") (PROCINFOHOOK POINTER +) (* \; "Optional user fn that displays info about process") (PROCTYPEAHEAD POINTER) (* \; +"Buffer of typeahead destined for this proc") (PROCREMOTEINFO POINTER) (* \; "For Enterprise") ( +PROCUSERDATA POINTER) (* \; "For PROCESSPROP") (PROCEVENTLINK POINTER) (* \; +"Used to maintain EVENT queues") (PROCAFTEREXIT POINTER) (* \; +"What to do with this process when coming back from a LOGOUT, etc") (PROCBEFOREEXIT POINTER) (* \; +"If DON'T, can't logout") (PROCOWNEDLOCKS POINTER) (* \; "Pointer to first lock I currently own") ( +PROCEVAPPLYRESULT POINTER) (* \; "For PROCESS.EVAL and PROCESS.APPLY when WAITFORRESULT is true") ( +PROCTTYENTRYFN POINTER) (* \; "Is applied to a process when it becomes the tty process") ( +PROCTTYEXITFN POINTER) (* \; "Is applied to a process when it ceases to be the tty process") ( +PROCHARDRESETINFO POINTER) (* \; "HARDRESET stores info about unwind-protect cleanups here") ( +PROCRESTARTFORM POINTER) (* \; "use this instead of PROCFORM when restarting") (PROCOLDTTYPROC POINTER +) (* \; "Process that had the tty when we got it") (NIL POINTER) (* \; "For expansion")) PROCTIMERBOX +_ (CREATECELL \\FIXP) PROCFX0 _ \\STACKHI) +(PUTPROPS THIS.PROCESS MACRO (NIL \\RUNNING.PROCESS)) +(PUTPROPS TTY.PROCESS MACRO (X (COND ((CAR X) (QUOTE IGNOREMACRO)) (T (QUOTE \\TTY.PROCESS))))) (PUTPROPS TTY.PROCESSP MACRO (X (COND ((CAR X) (QUOTE IGNOREMACRO)) (T (QUOTE (OR (NULL (THIS.PROCESS) ) (EQ (THIS.PROCESS) (TTY.PROCESS)))))))) -(GLOBALVARS \RUNNING.PROCESS \TTY.PROCESS \PROC.RESTARTME \PROC.RESETME \PROC.ABORTME) -(PUTPROP (QUOTE PROC) (QUOTE IMPORTDATE) (IDATE "27-Apr-2021 20:06:09")) +(GLOBALVARS \\RUNNING.PROCESS \\TTY.PROCESS \\PROC.RESTARTME \\PROC.RESETME \\PROC.ABORTME) +(PUTPROP (QUOTE PROC) (QUOTE IMPORTDATE) (IDATE "17-Jun-1999 21:58:52")) -(PUTPROPS \BACKCHAR MACRO (OPENLAMBDA (STREAM) (* ; "Backs up over an NS character") (\BACKNSCHAR -STREAM (UNFOLD (ACCESS-CHARSET STREAM) 256)))) -(PUTPROPS \BACKNSCHAR MACRO ((ST SHIFTEDCHARSET COUNTERVAR) (COND ((\XCCSP ST) (\BACKXCCSCHAR ST -SHIFTEDCHARSET COUNTERVAR)) (T (COND ((QUOTE COUNTERVAR) (SETQ COUNTERVAR (IDIFFERENCE COUNTERVAR ( -CL:FUNCALL (ffetch (STREAM BACKCHARFN) of ST) ST T)))) (T (CL:FUNCALL (ffetch (STREAM BACKCHARFN) of -ST) ST NIL))))))) -(PUTPROPS \CHECKEOLC MACRO (OPENLAMBDA (CH EOLC STREAM PEEKBINFLG COUNTERVAR) (* ;; -"Subtracts number of bytes read from COUNTERVAR, which may be NIL. In fact, should be NIL if PEEKBINFLG is T." -) (SELCHARQ CH (CR (SELECTC EOLC (CR.EOLC (CHARCODE EOL)) (CRLF.EOLC (COND (PEEKBINFLG (* ;; -"T from PEEKC, compile-time constant. In this case, must leave the fileptr where it was, except for possibly advancing over character set shifts" -) (COND ((EQ (CHARCODE LF) (UNINTERRUPTABLY (\NSIN STREAM (UNFOLD (ACCESS-CHARSET STREAM) 256)) (* ;; -"Read the NS CR. We know that there aren't any font-shift characters in front of the CR, because they would have already been read by the \NSPEEK that got the CR character. Since we are going to NS back the CR character, we don't need to update the counter variable" -) (PROG1 (\PEEKBIN STREAM T) (* ;; -"LF must be in next BYTE after NS CR, regardless of coding. Character-set shifting bytes can't intervene. Then we back up over the CR that was \NSINed above." -) (\BACKNSCHAR STREAM)))) (CHARCODE EOL)) (T (CHARCODE CR)))) ((EQ (CHARCODE LF) (\PEEKBIN STREAM T)) -(\BIN STREAM) (AND (QUOTE COUNTERVAR) (SETQ COUNTERVAR (SUB1 COUNTERVAR))) (CHARCODE EOL)) (T ( -CHARCODE CR)))) (CHARCODE CR))) (LF (COND ((EQ EOLC LF.EOLC) (CHARCODE EOL)) (T (CHARCODE LF)))) CH))) -(PUTPROPS \INCHAR MACRO (OPENLAMBDA (STREAM COUNTERVAR) (* ; "returns a 16 bit character code") ( -\CHECKEOLC (\NSIN STREAM (UNFOLD (ACCESS-CHARSET STREAM) 256) NIL COUNTERVAR) (FFETCH EOLCONVENTION OF - STREAM) STREAM NIL COUNTERVAR))) -(PUTPROPS \INCCODE MACRO (OPENLAMBDA (STREAM COUNTERVAR) (* ; "returns a 16 bit character code") ( -\CHECKEOLC (\NSIN STREAM (UNFOLD (ACCESS-CHARSET STREAM) 256) NIL COUNTERVAR) (ffetch EOLCONVENTION of - STREAM) STREAM NIL COUNTERVAR))) -(PUTPROPS \PEEKCCODE MACRO (OPENLAMBDA (STREAM NOERROR) (\CHECKEOLC (\NSPEEK STREAM (UNFOLD ( -ACCESS-CHARSET STREAM) 256) NIL NOERROR) (ffetch EOLCONVENTION of STREAM) STREAM T))) -(PUTPROPS \NSIN MACRO ((ST SHIFTEDCSET SHIFTEDCSETVAR COUNTERVAR) (* ;;; -"Dispatches to the appropriate character code decoder. If you want to support a new character encoding format, you have to write a decoder and add it here." -) (COND ((\XCCSP ST) (\XCCSIN ST SHIFTEDCSET SHIFTEDCSETVAR COUNTERVAR)) (T (COND ((QUOTE COUNTERVAR) -(CL:MULTIPLE-VALUE-BIND (CODE NUM) (CL:FUNCALL (ffetch (STREAM INCCODEFN) of ST) ST T) (AND NUM (SETQ -COUNTERVAR (IDIFFERENCE COUNTERVAR NUM))) CODE)) (T (CL:FUNCALL (ffetch (STREAM INCCODEFN) of ST) ST -NIL))))))) -(PUTPROPS \NSPEEK MACRO ((ST SHIFTEDCSET SHIFTEDCSETVAR NOERROR COUNTERVAR) (* ;;; -"Dispatches to the appropriate character code decoder. If you want to support a new character encoding format, you have to write a decoder and add it here." -) (COND ((\XCCSP ST) (\XCCSPEEK ST (UNFOLD (ACCESS-CHARSET ST) 256) NIL NOERROR)) (T (COND ((QUOTE -COUNTERVAR) (CL:MULTIPLE-VALUE-BIND (CODE NUM) (CL:FUNCALL (ffetch (STREAM PEEKCCODEFN) of ST) ST -NOERROR T) (AND NUM (SETQ COUNTERVAR (IDIFFERENCE COUNTERVAR NUM))) CODE)) (T (CL:FUNCALL (ffetch ( -STREAM PEEKCCODEFN) of ST) ST NOERROR NIL))))))) -(PUTPROPS NUMERIC-CHARSET MACRO (= . ACCESS-CHARSET)) -(PUTPROPS \CONV.JIS.TO.XCCS MACRO (OPENLAMBDA (KU TEN) (* ;;; -"Some character code is not equivalent between JIS and XCCS. In such case, we have to convert the character to corresponding XCCS." -) (COND ((\NOT.EQUIVALENT.TO.XCCS KU) (\DO.CONV.JIS.TO.XCCS KU TEN)) (T (LOGOR (UNFOLD KU 256) TEN)))) -) -(PUTPROPS \DO.CONV.JIS.TO.XCCS MACRO ((KU TEN) (* ;;; -" Convert a JIS code divided into KU (high 8 bit) and TEN (low 8 bit) to an corresponding XCCS code.") - (COND ((\INVALID.TENP TEN) *DEFAULT-NOT-CONVERTED-FAT-CODE*) (T (SELECTQ KU ((33 34 38) (* ; -"1, 2 and 6 KU") (LET* ((CONVTABLE (\EXTARACT.CONV.TABLE KU)) (SET (\EXTRACT.SET TEN CONVTABLE)) (CODE - (\EXTRACT.CODE TEN CONVTABLE))) (COND ((NEQ SET 255) (LOGOR (UNFOLD SET 256) CODE)) (T (COND ((EQ -CODE 255) (* ; "Not defined in JIS.") *DEFAULT-NOT-CONVERTED-FAT-CODE*) (T (* ; -"Defined in JIS but the displayable font is not assigned in the corresponding code in XCCS.") (COND ( -*REPLACE-NO-FONT-CODE* *DEFAULT-NOT-CONVERTED-FAT-CODE*) (T (\EXTRACT.NO.FONT.CODE (LOGOR (UNFOLD KU -256) TEN)))))))))) (35 (* ; "3 KU") (* ; -"Alpha numeric codes are all defined as single byte codes in XCCS.") TEN) (40 (* ; "8 KU") (COND ((< 0 - TEN 33) (COND (*REPLACE-NO-FONT-CODE* *DEFAULT-NOT-CONVERTED-FAT-CODE*) (T (\EXTRACT.NO.FONT.CODE ( -LOGOR KU TEN))))) (T *DEFAULT-NOT-CONVERTED-FAT-CODE*))) (116 (* ; "84 KU") (COND ((< 0 TEN 5) (LOGOR -29952 TEN)) (T *DEFAULT-NOT-CONVERTED-FAT-CODE*))) (117 (* ; "85 KU") (COND ((< 0 TEN 28) (LOGOR 29696 - TEN)) (T *DEFAULT-NOT-CONVERTED-FAT-CODE*))) *DEFAULT-NOT-CONVERTED-FAT-CODE*))))) -(PUTPROPS \CONV.XCCS.TO.JIS MACRO (OPENLAMBDA (OUTSTREAM CC) (* ;;; -"Returns JIS code corresponding to XCCS charcode. Handle HANKAKU as well as ZENKAKU. If OUTSTREAM wants to convert ZENKAKUKANA to HANKAKUKANA, do so. Never returns two byte charcode for alpha-numeric character, they are all treated as single byte characode." -) (OR (COND ((\ASCIIP CC) CC) ((\NOT.EQUIVALENT.TO.JIS CC) (\DO.CONV.XCCS.TO.JIS CC)) (( -\CONV.HANKAKU.TO.ZENKAKUP OUTSTREAM) (* ; -"ZENKAKUKANA comes here, because their charcodes are equiavalent to JIS.") (\CONV.ZENKAKU.KANA CC)) (T - CC)) CC))) -(PUTPROPS \DO.CONV.XCCS.TO.JIS MACRO ((CC) (GETHASH CC *XCCS-TO-JIS-CONV-TABLE*))) -(PUTPROPS \ASCIIP MACRO (OPENLAMBDA (CC) (AND (EQ (FOLDLO CC 256) 0) (< (LOGAND CC 255) 128)))) -(PUTPROPS \NOT.EQUIVALENT.TO.JIS MACRO (OPENLAMBDA (CC) (OR (EQ (FOLDLO CC 256) 0) (EQ (FOLDLO CC 256) - 33) (EQ (FOLDLO CC 256) 34) (EQ (FOLDLO CC 256) 38) (EQ (FOLDLO CC 256) 40) (EQ (FOLDLO CC 256) 239) -(EQ (FOLDLO CC 256) 241)))) -(PUTPROPS \CONV.HANKAKU.TO.ZENKAKUP MACRO ((OUTSTREAM) (STREAMPROP OUTSTREAM :HTOZP))) -(PUTPROPS \CONV.ZENKAKU.KANA MACRO ((CHAR) (GETHASH CHAR *ZENKAKU-TO-HANKAKU-CONV-TABLE*))) -(PUTPROPS \XCCSIN MACRO ((STREAM SHIFTEDCSET SHIFTEDCSETVAR COUNTERVAR) (* ;;; -"returns a 16 bit character code. SHIFTEDCSET is STREAM's char set left shifted 8, SHIFTEDCSETVAR if non-NIL is the variable to set if char set changes. COUNTERVAR if non-NIL is decremented by number of bytes read. Doesn't do EOL conversion -- \INCHAR and \INCCODE do that." -) (LET ((CHAR (\BIN STREAM)) SCSET) (COND ((EQ CHAR NSCHARSETSHIFT) (* ; "Shifting character sets") ( -ACCESS-CHARSET STREAM (SETQ SCSET (COND ((NEQ NSCHARSETSHIFT (SETQ CHAR (\BIN STREAM))) (AND (QUOTE -COUNTERVAR) (SETQ COUNTERVAR (IDIFFERENCE COUNTERVAR 2))) CHAR) ((PROGN (* ; -"2 shift-bytes means not run-encoded") (AND (QUOTE COUNTERVAR) (SETQ COUNTERVAR (IDIFFERENCE -COUNTERVAR 3))) (EQ 0 (\BIN STREAM))) \NORUNCODE) (T (\NSIN.24BITENCODING.ERROR STREAM))))) (SETQ CHAR - (\BIN STREAM)) (SETQ SCSET (COND ((QUOTE SHIFTEDCSETVAR) (* ; "CHARSETVAR=NIL means don't set") (SETQ - SHIFTEDCSETVAR (UNFOLD SCSET 256))) (T (UNFOLD SCSET 256))))) (T (SETQ SCSET SHIFTEDCSET))) (COND (( -EQ SCSET (UNFOLD \NORUNCODE 256)) (* ; "just read two bytes and combine them to a 16 bit value") (AND -(QUOTE COUNTERVAR) (SETQ COUNTERVAR (IDIFFERENCE COUNTERVAR 2))) (LOGOR (UNFOLD CHAR 256) (\BIN STREAM -))) (CHAR (AND (QUOTE COUNTERVAR) (SETQ COUNTERVAR (IDIFFERENCE COUNTERVAR 1))) (AND CHAR (LOGOR SCSET - CHAR))))))) -(PUTPROPS \XCCSPEEK MACRO ((STREAM SHIFTEDCSET SHIFTEDCSETVAR NOERROR COUNTERVAR) (* ;; -"Returns a 16 bit character code. Doesn't do EOL conversion--\INCHAR does that. May actually read the character-set shift, storing the result in the stream. COUNTERVAR, if given, is updated to reflect any such bytes that are actually read" -) (PROG ((CHAR (\PEEKBIN STREAM NOERROR)) SCSET) (COND ((NULL CHAR) (RETURN NIL)) ((EQ CHAR -NSCHARSETSHIFT) (* ; "CHARSETVAR=NIL means don't set") (\BIN STREAM) (* ; -"Consume the char shift byte") (ACCESS-CHARSET STREAM (SETQ SCSET (COND ((NEQ NSCHARSETSHIFT (SETQ -CHAR (\BIN STREAM))) (* ; -"Note: no eof error check on this \BIN -- an eof in the middle of a charset shift is an error") (AND ( -QUOTE COUNTERVAR) (SETQ COUNTERVAR (IDIFFERENCE COUNTERVAR 2))) CHAR) ((PROGN (* ; -"2 shift-bytes means not run-encoded") (AND (QUOTE COUNTERVAR) (SETQ COUNTERVAR (IDIFFERENCE -COUNTERVAR 3))) (EQ 0 (\BIN STREAM))) \NORUNCODE) (T (\NSIN.24BITENCODING.ERROR STREAM))))) (SETQ -SCSET (COND ((QUOTE SHIFTEDCSETVAR) (* ; "CHARSETVAR=NIL means don't set") (SETQ SHIFTEDCSETVAR ( -UNFOLD SCSET 256))) (T (UNFOLD SCSET 256)))) (COND ((NULL (SETQ CHAR (\PEEKBIN STREAM NOERROR))) ( -RETURN NIL)))) (T (SETQ SCSET SHIFTEDCSET))) (RETURN (COND ((EQ SCSET (UNFOLD \NORUNCODE 256)) (* ;; -"just peek two bytes and combine them to a 16 bit value. Again, is an error if we hit eof in mid-character" -) (\BIN STREAM) (PROG1 (LOGOR (UNFOLD CHAR 256) (\PEEKBIN STREAM NOERROR)) (\BACKFILEPTR STREAM))) (T -(LOGOR SHIFTEDCSET CHAR))))))) -(PUTPROPS \BACKXCCSCHAR MACRO ((STREAM SHIFTEDCHARSET COUNTERVAR) (AND (\BACKFILEPTR STREAM) (COND (( -COND (SHIFTEDCHARSET (EQ SHIFTEDCHARSET (UNFOLD \NORUNCODE 256))) (T (EQ \NORUNCODE (ACCESS-CHARSET -STREAM)))) (COND ((\BACKFILEPTR STREAM) (AND (QUOTE COUNTERVAR) (add COUNTERVAR 2)) T) ((QUOTE -COUNTERVAR) (add COUNTERVAR 1)))) ((QUOTE COUNTERVAR) (add COUNTERVAR 1)))))) -(PUTPROPS \XCCSP MACRO (OPENLAMBDA (ST) (NOT (ffetch (STREAM NOTXCCS) of (\DTEST ST (QUOTE STREAM))))) -) -(PUTPROPS \EXTRACT.NO.FONT.CODE MACRO ((JISCODE) (CDR (ASSOC JISCODE *JIS-TO-XCCS-CONV-NO-FONT-TABLE*) -))) -(PUTPROPS \EXTARACT.CONV.TABLE MACRO ((KU) (CDR (ASSOC KU *JIS-TO-XCCS-CONV-TABLE-LIST*)))) -(PUTPROPS \NOT.EQUIVALENT.TO.XCCS MACRO ((KU) (* ;;; -" The JIS codes which are not equiavelent to XCCS reside in 1, 2, 3, 6, 8 and 84 KU. Although from 84-5 to 94-94 inclusive are not defined in JIS, that is they are GAIJI, they are also handled here." -) (OR (EQ KU 33) (EQ KU 34) (EQ KU 35) (EQ KU 38) (EQ KU 40) (EQ KU 116) (EQ KU 117)))) -(PUTPROPS \EXTRACT.SET MACRO ((TEN TABLE) (ELT TABLE (IDIFFERENCE (UNFOLD (IDIFFERENCE TEN 32) 2) 1))) -) -(PUTPROPS \EXTRACT.CODE MACRO ((TEN TABLE) (ELT TABLE (UNFOLD (IDIFFERENCE TEN 32) 2)))) -(PUTPROPS \CHNAGE.KI.MODE MACRO (OPENLAMBDA (ST INPUTFLG ENTERP) (* ;;; -"INPUTFLG is true if \CHNAGE.KI.MODE is called in the context in which ST is an input stream.") (COND -(INPUTFLG (COND (ENTERP (freplace (STREAM IN.KANJIIN) of (\DTEST ST (QUOTE STREAM)) with T)) (T ( -freplace (STREAM IN.KANJIIN) of (\DTEST ST (QUOTE STREAM)) with NIL)))) (T (COND (ENTERP (freplace ( -STREAM OUT.KANJIIN) of (\DTEST ST (QUOTE STREAM)) with T)) (T (freplace (STREAM OUT.KANJIIN) of ( -\DTEST ST (QUOTE STREAM)) with NIL))))))) -(PUTPROPS \KIMODEP MACRO (OPENLAMBDA (ST INPUTFLG) (* ;;; -"INPUTFLG is true if \KIMODEP is called in the context in which ST is an input stream.") (COND ( -INPUTFLG (ffetch (STREAM IN.KANJIIN) of (\DTEST ST (QUOTE STREAM)))) (T (ffetch (STREAM OUT.KANJIIN) -of (\DTEST ST (QUOTE STREAM))))))) -(PUTPROPS \HANKAKUP MACRO ((CHAR) (< 160 CHAR 224))) -(PUTPROPS \KANJIP MACRO ((CHAR) (< 12158 CHAR 29733))) -(PUTPROPS \NOTGAIJIP MACRO ((CHAR) (OR (< 8480 CHAR 10305) (< 12158 CHAR 29733)))) -(PUTPROPS \INVALID.TENP MACRO (OPENLAMBDA (TEN) (OR (< TEN 33) (< 126 TEN)))) -(PUTPROPS \CONV.HANKAKU.KANA MACRO ((CHAR) (GETHASH CHAR *HANKAKU-TO-ZENKAKU-CONV-TABLE*))) -(PUTPROPS \OUTKI MACRO ((STREAM) (\BOUT OUTSTREAM (CHARCODE ESC)) (\BOUT OUTSTREAM (CHARCODE $)) ( -\BOUT OUTSTREAM (CHARCODE B)))) -(PUTPROPS \OUTKO MACRO ((STREAM) (\BOUT OUTSTREAM (CHARCODE ESC)) (\BOUT OUTSTREAM (CHARCODE %()) ( -\BOUT OUTSTREAM (CHARCODE J)))) -(PUTPROPS \CONV.SJIS.TO.JIS MACRO (OPENLAMBDA (HI LO) (* ;;; -"Convert Shift-JIS to JIS. The variable named CH1 and CH2 are set to the converted hight 8 bit and low 8bit of JIS code respectively." -) (SETQ CH1 (IDIFFERENCE HI (COND ((> HI 159) 177) (T 113)))) (SETQ CH1 (IPLUS (UNFOLD CH1 2) 1)) ( -SETQ CH2 (COND ((> LO 158) (PROG1 (IDIFFERENCE LO 126) (SETQ CH1 (IPLUS CH1 1)))) (T (IDIFFERENCE LO ( -COND ((> LO 126) (IPLUS 31 1)) (T 31)))))))) -(PUTPROPS \CONV.JIS.TO.SJIS MACRO (OPENLAMBDA (HI LO) (* ;;; -"Convert JIS to Shift-JIS. The variable named CH1 and CH2 are set to the converted hight 8 bit and low 8bit of Shift-JIS code respectively." -) (SETQ CH2 (COND ((ODDP HI) (SETQ CH2 (IPLUS LO 31)) (COND ((>= CH2 127) (IPLUS CH2 1)) (T CH2))) (T -(IPLUS LO 126)))) (SETQ CH1 (IPLUS (FOLDLO (IDIFFERENCE HI 33) 2) 129)) (AND (> CH1 159) (SETQ CH1 ( -IPLUS CH1 64))))) -(PUTPROPS \SJIS.KANJI.FIRST.BYTEP MACRO (OPENLAMBDA (CHAR) (OR (< 127 CHAR 160) (< 223 CHAR 256)))) -(PUTPROPS \EUC.KANJI.FIRST.BYTEP MACRO ((CHAR) (< 160 CHAR 255))) -(PUTPROPS \GAIJIP MACRO ((CHAR) (EQ CHAR 143))) -(PUTPROPS \EUC.HANKAKUP MACRO ((CHAR) (EQ CHAR 142))) -(PUTPROP (QUOTE LLREAD) (QUOTE IMPORTDATE) (IDATE "27-Apr-2021 20:06:09")) +(RPAQQ \\NORUNCODE 255) +(RPAQQ NSCHARSETSHIFT 255) +(CONSTANTS (\\NORUNCODE 255) (NSCHARSETSHIFT 255)) +(PUTPROPS \\RUNCODED MACRO (OPENLAMBDA (STREAM) (* |;;| +"returns NIL is the stream is not runcoded, that is, if the stream has 16 bit bytes explicitly represented" +) (* \; "note that neq is ok since charsets are known to be SMALLP's") (NEQ (|fetch| CHARSET |of| +STREAM) \\NORUNCODE))) +(DEFOPTIMIZER ACCESS-CHARSET (STREAM &OPTIONAL NEWVALUE) (BQUOTE ((OPENLAMBDA (STRM) (FDEVOP (QUOTE +CHARSETFN) (|fetch| (STREAM DEVICE) |of| STRM) STRM (\\\, NEWVALUE))) (\\\, STREAM)))) +(PUTPROP (QUOTE XCCS) (QUOTE IMPORTDATE) (IDATE "24-Jun-2021 23:15:05")) + +(PUTPROP (QUOTE LLREAD) (QUOTE IMPORTDATE) (IDATE "27-Jun-2021 23:26:36")) -(PUTPROPS EMPASSWORDLOC DMACRO (LAMBDA NIL (* lmm "24-MAR-83 06:46") (fetch (IFPAGE UserPswdAddr) of -\InterfacePage))) -(PUTPROPS \DECRYPT.PWD.CHAR MACRO ((CHAR) (LOGXOR CHAR 73))) -(PUTPROP (QUOTE PASSWORDS) (QUOTE IMPORTDATE) (IDATE "27-Apr-2021 20:06:09")) +(PUTPROPS EMPASSWORDLOC DMACRO (LAMBDA NIL (* |lmm| "24-MAR-83 06:46") (|fetch| (IFPAGE |UserPswdAddr| +) |of| |\\InterfacePage|))) +(PUTPROPS \\DECRYPT.PWD.CHAR MACRO ((CHAR) (LOGXOR CHAR 73))) +(PUTPROP (QUOTE PASSWORDS) (QUOTE IMPORTDATE) (IDATE "16-May-1990 21:02:21")) (RPAQQ MICASPERINCH 2540) (RPAQQ MICASPERMILLIMETER 100) (CONSTANTS (MICASPERINCH 2540) (MICASPERMILLIMETER 100)) -(PUTPROP (QUOTE INTERPRESS) (QUOTE IMPORTDATE) (IDATE "27-Apr-2021 20:06:09")) +(PUTPROP (QUOTE INTERPRESS) (QUOTE IMPORTDATE) (IDATE "27-Jun-2021 23:50:51")) (RPAQ MICASPERPT (FQUOTIENT 2540 72)) (RPAQQ IHALFMICASPERPT 17) (RPAQQ IMICASPERPT 35) (CONSTANTS (MICASPERPT (FQUOTIENT 2540 72)) (IHALFMICASPERPT 17) (IMICASPERPT 35)) -(DEFMACRO \MICASTOPTS (MICAS) (COND ((NUMBERP MICAS) (QUOTIENT MICAS MICASPERPT)) (T (BQUOTE (QUOTIENT - (\, MICAS) MICASPERPT))))) -(PUTPROP (QUOTE HARDCOPY) (QUOTE IMPORTDATE) (IDATE "27-Apr-2021 20:06:09")) +(DEFMACRO \\MICASTOPTS (MICAS) (COND ((NUMBERP MICAS) (QUOTIENT MICAS MICASPERPT)) (T (BQUOTE ( +QUOTIENT (\\\, MICAS) MICASPERPT))))) +(PUTPROP (QUOTE HARDCOPY) (QUOTE IMPORTDATE) (IDATE " 5-May-2021 19:41:55")) (FILESLOAD (SYSLOAD FROM VALUEOF DIRECTORIES) CMLARRAY-SUPPORT) -(PUTPROP (QUOTE CMLARRAY) (QUOTE IMPORTDATE) (IDATE "27-Apr-2021 20:06:09")) +(PUTPROP (QUOTE CMLARRAY) (QUOTE IMPORTDATE) (IDATE " 6-Jan-1993 12:21:21")) -(RPAQQ \MISCN-TABLE-LIST ((USER-SUBR 0 \USER-SUBR-UFN T) (CL:VALUES 1 CL::VALUES-UFN NIL) (CL:SXHASH 2 - CL::SXHASH-UFN NIL) (CL::EQLHASHBITSFN 3 CL::EQLHASHBITSFN-UFN NIL) (STRINGHASHBITS 4 -\STRINGHASHBITS-UFN NIL) (STRING-EQUAL-HASHBITS 5 \STRING-EQUAL-HASHBITS-UFN NIL) (CL:VALUES-LIST 6 -CL::VALUES-LIST-UFN NIL) (LCFetchMethod 7 LCFetchMethod NIL) (LCFetchMethodOrHelp 8 NIL NIL) ( -LCFindVarIndex 9 NIL NIL) (LCGetIVValue 10 NIL NIL) (LCPutIVValue 11 NIL NIL))) -(RPAQQ \USER-SUBR-LIST ((DUMMY 10 DUMMY-UFN) (SAMPLE-USER-SUBR 0 SAMPLE-USER-SUBR-UFN))) -(RPAQQ \INITSUBRS ((YIELD 210) (BACKGROUNDSUBR 6) (CHECKBCPLPASSWORD 7) (DISKPARTITION 8) (DSPBOUT 9) -(DSPRATE 10) (GATHERSTATS 11) (GETPACKETBUFFER 12) (LISPFINISH 13) (MOREVMEMFILE 14) (RAID 15) ( +(RPAQQ \\MISCN-TABLE-LIST ((USER-SUBR 0 \\USER-SUBR-UFN T) (CL:VALUES 1 CL::VALUES-UFN NIL) (CL:SXHASH + 2 CL::SXHASH-UFN NIL) (CL::EQLHASHBITSFN 3 CL::EQLHASHBITSFN-UFN NIL) (STRINGHASHBITS 4 +\\STRINGHASHBITS-UFN NIL) (STRING-EQUAL-HASHBITS 5 \\STRING-EQUAL-HASHBITS-UFN NIL) (CL:VALUES-LIST 6 +CL::VALUES-LIST-UFN NIL) (|LCFetchMethod| 7 |LCFetchMethod| NIL) (|LCFetchMethodOrHelp| 8 NIL NIL) ( +|LCFindVarIndex| 9 NIL NIL) (|LCGetIVValue| 10 NIL NIL) (|LCPutIVValue| 11 NIL NIL))) +(RPAQQ \\USER-SUBR-LIST ((DUMMY 10 DUMMY-UFN) (SAMPLE-USER-SUBR 0 SAMPLE-USER-SUBR-UFN))) +(RPAQQ \\INITSUBRS ((YIELD 210) (BACKGROUNDSUBR 6) (CHECKBCPLPASSWORD 7) (DISKPARTITION 8) (DSPBOUT 9) + (DSPRATE 10) (GATHERSTATS 11) (GETPACKETBUFFER 12) (LISPFINISH 13) (MOREVMEMFILE 14) (RAID 15) ( READRAWPBI 16) (WRITERAWPBI 17) (SETSCREENCOLOR 18) (SHOWDISPLAY 19) (PUPLEVEL1STATE 20) (WRITESTATS 21) (CONTEXTSWITCH 22) (COPYSYS0SUBR 23) (WRITEMAP 24) (UFS-GETFILENAME 34) (UFS-DELETEFILE 35) ( UFS-RENAMEFILE 36) (COM-READPAGES 37) (COM-WRITEPAGES 38) (COM-TRUNCATEFILE 39) (UFS-DIRECTORYNAMEP 41 @@ -2514,7 +2416,7 @@ COM-SETFILEINFO 103) (COM-OPENFILE 104) (COM-CLOSEFILE 105) (DSK-GETFILENAME 106 DSK-DIRECTORYNAMEP 113) (COM-GETFILEINFO 114) (COM-CHANGEDIR 116) (UNIX-HANDLECOMM 117) (RPC-CALL 119) (MESSAGE-READP 120) (MESSAGE-READ 121) (MONITOR-CONTROL 128) (GET-NATIVE-ADDR-FROM-LISP-PTR 131) ( GET-LISP-PTR-FROM-NATIVE-ADDR 132) (LOAD-NATIVE-FILE 133) (SUSPEND-LISP 134) (NEW-BLTCHAR 135) ( -COLOR-INIT 136) (COLOR-SCREENMODE 137) (COLOR-MAP 138) (COLOR-BASE 139) (C-SlowBltChar 140) ( +COLOR-INIT 136) (COLOR-SCREENMODE 137) (COLOR-MAP 138) (COLOR-BASE 139) (|C-SlowBltChar| 140) ( UNCOLORIZE-BITMAP 141) (COLORIZE-BITMAP 142) (COLOR-8BPPDRAWLINE 143) (TCP-OP 144) (WITH-SYMBOL 145) ( CAUSE-INTERRUPT 146) (OPEN-SOCKET 160) (CLOSE-SOCKET 161) (READ-SOCKET 162) (WRITE-SOCKET 163) ( CALL-C-FUNCTION 167) (DLD-LINK 168) (DLD-UNLINK-BY-FILE 169) (DLD-UNLINK-BY-SYMBOL 170) ( @@ -2522,7 +2424,7 @@ DLD-GET-SYMBOL 171) (DLD-GET-FUNC 172) (DLD-FUNCTION-EXECUTABLE-P 173) (DLD-LIST ) (C-MALLOC 175) (C-FREE 176) (C-PUTBASEBYTE 177) (C-GETBASEBYTE 178) (CHAR-OPENFILE 200) (CHAR-BIN 201) (CHAR-BOUT 202) (CHAR-IOCTL 203) (CHAR-CLOSEFILE 204) (CHAR-EOFP 205) (CHAR-READP 206) (CHAR-BINS 207) (CHAR-BOUTS 208) (CHAR-FILLBUFFER 209))) -(PUTPROP (QUOTE LLSUBRS) (QUOTE IMPORTDATE) (IDATE "27-Apr-2021 20:06:09")) +(PUTPROP (QUOTE LLSUBRS) (QUOTE IMPORTDATE) (IDATE "17-Mar-2021 11:10:55")) STOP diff --git a/library/lafite/LAFITE b/library/lafite/LAFITE index c15ef0f16..5cadf8838 100644 --- a/library/lafite/LAFITE +++ b/library/lafite/LAFITE @@ -1,16 +1,21 @@ (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) -(FILECREATED "22-Aug-94 13:00:22" {DSK}export>lispcore>lafite>parc-94>LAFITE.;2 73704 +(FILECREATED "24-Jun-2021 19:17:01"  +{DSK}kaplan>Local>medley3.5>git-medley>library>lafite>LAFITE.;4 71992 - previous date%: " 6-Aug-93 15:49:08" {DSK}export>lispcore>lafite>parc-94>LAFITE.;1) + changes to%: (FNS \LAFITE.EOF) + (FILES LAFITEDECLS) + + previous date%: "22-Aug-94 13:00:22" +{DSK}kaplan>Local>medley3.5>git-medley>library>lafite>LAFITE.;2) (* ; " -Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1993, 1994 by Xerox Corporation and Bolt Beranek and Newman Inc.. All rights reserved. +Copyright (c) 1982-1989, 1993-1994, 2021 by Xerox Corporation and Bolt Beranek and Newman Inc.. ") (PRETTYCOMPRINT LAFITECOMS) -(RPAQQ LAFITECOMS +(RPAQQ LAFITECOMS [(COMS (E (SETQ LAFITESYSTEMDATE (DATE))) (VARS LAFITEVERSION# LAFITESYSTEMDATE)) (COMS (FNS LAFITE LAFITE.ON.FROM.BACKGROUND \LAFITE.OFF \LAFITE.START.PROC @@ -70,19 +75,19 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1993, 1994 by Xero (LAFITE.PERSONAL.VARS LAFITEDEFAULTHOST&DIR LAFITE.SIGNATURE)) (FNS LAFITE.AROUNDEXIT \LAFITE.MARK.FOLDERS.OBSOLETE \LAFITE.CHECK.FOLDERS \LAFITE.ASSURE.FOLDER.READY \LAFITE.AFTERLOGIN)) - (COMS (* ; "misc utilities") + (COMS (* ; "misc utilities") (FNS LA.RESETSHADE LA.MENU.ITEM NTHMESSAGE \LAFITE.MAKE.MSGARRAY \LAFITE.ADDMESSAGES.TO.ARRAY \MAILFOLDER.DEFPRINT \LAFITEMSG.DEFPRINT LA.POSITION.FROM.REGION MAILFOLDERBUSY) (CURSORS LA.CROSSCURSOR) - (* ; "Low level file functions") + (* ; "Low level file functions") (FNS TOCFILENAME DELETEMAILFOLDER \LAFITE.OPEN.FOLDER \LAFITE.REPORT.FILE.WONT.OPEN \LAFITE.FOLDER.CHANGED \LAFITE.REBROWSE.FOLDER \LAFITE.FOLDER.CHANGED.MENU \LAFITE.SET.FOLDER.STREAM \LAFITE.OPENSTREAM \LAFITE.CREATE.MENU \LAFITE.EOF \LAFITE.CLOSE.FOLDER) (FNS \LAFITE.DESCRIBE.FOLDER)) - (COMS (* ; - "Make is easy to load new versions of Lafite") + (COMS (* ; + "Make is easy to load new versions of Lafite") (FNS LOAD-LAFITE) (VARS LAFITEFILES)) [DECLARE%: DOEVAL@COMPILE DONTCOPY (FILES (SOURCE) @@ -97,14 +102,14 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1993, 1994 by Xero (FILES LAFITEBROWSE LAFITECOMMANDS LAFITEFOLDERS LAFITESEND LAFITEMAIL LAFITESORT TEDIT LAFITETEDIT LAFITEFIND ATTACHEDWINDOW MAILSCAVENGE) (P * (PROGN LAFITE.PROCLAMATIONS)) - (* ; - "Proclaim user interface variables. Value is on LAFITEDECLS") + (* ; + "Proclaim user interface variables. Value is on LAFITEDECLS") (P (\LAFITE.GLOBAL.INIT) (COND ((EQ MAKESYSNAME :LYRIC) (FILESLOAD (SYSLOAD) NSCHARPATCH) - (* ; - "Patch to horrid Lyric NS chars bug") + (* ; + "Patch to horrid Lyric NS chars bug") (MOVD? 'PROMPTFORWORD 'TTYINPROMPTFORWORD NIL T] (DECLARE%: DOEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA) (NLAML) @@ -112,7 +117,7 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1993, 1994 by Xero (RPAQQ LAFITEVERSION# 10) -(RPAQQ LAFITESYSTEMDATE "22-Aug-94 13:00:29") +(RPAQQ LAFITESYSTEMDATE "24-Jun-2021 19:17:01") (DEFINEQ (LAFITE @@ -185,7 +190,7 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1993, 1994 by Xero ) ) -(PUTPROPS LAFITE ARGNAMES (NIL (ON/OFF MAILFILE . OPTIONS) . U)) +(PUTPROPS LAFITE ARGNAMES (NIL (ON/OFF MAILFILE . OPTIONS) . U)) (DEFINEQ (LAFITEMODE @@ -223,7 +228,7 @@ Mode affects SendMail only; mail is still retrieved in all modes.~]" (if \LAFITE ) ) -(PUTPROPS LAFITEMODELST VARTYPE ALIST) +(PUTPROPS LAFITEMODELST VARTYPE ALIST) (ADDTOVAR LAFITEMODELST ) @@ -231,20 +236,17 @@ Mode affects SendMail only; mail is still retrieved in all modes.~]" (if \LAFITE (RPAQ? \LAFITE.AUTHENTICATION.FAILURE ) -(RPAQ? LAFITE.BACKGROUND.ITEM '("Mail" '(\LAFITE.MESSAGEFORM NIL NIL 'LEFT) - - "Send an ordinary message. See subcommands for other operations." - (SUBITEMS ("Turn Lafite on" '(LAFITE.ON.FROM.BACKGROUND) - +(RPAQ? LAFITE.BACKGROUND.ITEM + '("Mail" '(\LAFITE.MESSAGEFORM NIL NIL 'LEFT) + "Send an ordinary message. See subcommands for other operations." + (SUBITEMS ("Turn Lafite on" '(LAFITE.ON.FROM.BACKGROUND) + "Turn on Lafite, bringing up status window and browsing default folder." - ) - ("Send Mail" '(\LAFITE.MESSAGEFORM) - - "Send a message. Prompts for type of message." - ) - ("Set Lafite Mode" '(SET.LAFITE.MODE.INTERACTIVELY) - "Set or change Lafite's mail protocol mode.") - ))) + ) + ("Send Mail" '(\LAFITE.MESSAGEFORM) + "Send a message. Prompts for type of message.") + ("Set Lafite Mode" '(SET.LAFITE.MODE.INTERACTIVELY) + "Set or change Lafite's mail protocol mode.")))) (DEFINEQ (\LAFITE.LOGIN @@ -263,37 +265,38 @@ Mode affects SendMail only; mail is still retrieved in all modes.~]" (if \LAFITE ) ) -(RPAQQ LAFITEPROFILEVARS ((LAFITEDEFAULTHOST&DIR NIL) - (LAFITE.SIGNATURE NIL) - (LAFITEBUFFERSIZE 20) - (LAFITEIFFROMMETHENSEENFLG T) - [LAFITEMENUFONT (FONTCREATE '(HELVETICA 10 BOLD] - [LAFITETITLEFONT (FONTCREATE '(HELVETICA 12 BOLD] - [LAFITEDISPLAYFONT (FONTCREATE '(TIMESROMAN 10] - [LAFITEFIXEDWIDTHFONT (COND ((EQ (CHARWIDTH (CHARCODE "i") - DEFAULTFONT) - (CHARWIDTH (CHARCODE "W") - DEFAULTFONT)) - (* ; - "Yes, user has not changed default to a variable width font") - DEFAULTFONT) - (T (FONTCREATE '(GACHA 10] - (LAFITEHARDCOPYFONT LAFITEDISPLAYFONT) - [LAFITEBROWSERFONT (FONTCREATE '(GACHA 10] - [LAFITEMSGICONFONT (FONTCREATE '(HELVETICA 8] - (LAFITE.FOLDER.MENU.FONT NIL) - (LAFITEINFO.NAME "Lafite.info") - (DEFAULTMAILFOLDERNAME "Active.mail") - (LAFITEMAIL.EXT "mail") - (LAFITESTATUSWINDOWMINWIDTH 200) - (LAFITESTATUSWINDOWPOSITION '(735 . 650)) - (LAFITE.DONT.DISPLAY.HEADERS NIL) - (LAFITE.DONT.FORWARD.HEADERS NIL) - (LAFITE.DONT.HARDCOPY.HEADERS NIL) - (LAFITEDEBUGFLG NIL) - (LAFITEMODEDEFAULT NIL) - (LAFITESHOWMODEFLG T) - (LAFITE.USE.ALL.MODES T))) +(RPAQQ LAFITEPROFILEVARS + ((LAFITEDEFAULTHOST&DIR NIL) + (LAFITE.SIGNATURE NIL) + (LAFITEBUFFERSIZE 20) + (LAFITEIFFROMMETHENSEENFLG T) + [LAFITEMENUFONT (FONTCREATE '(HELVETICA 10 BOLD] + [LAFITETITLEFONT (FONTCREATE '(HELVETICA 12 BOLD] + [LAFITEDISPLAYFONT (FONTCREATE '(TIMESROMAN 10] + [LAFITEFIXEDWIDTHFONT (COND ((EQ (CHARWIDTH (CHARCODE "i") + DEFAULTFONT) + (CHARWIDTH (CHARCODE "W") + DEFAULTFONT)) + (* ; + "Yes, user has not changed default to a variable width font") + DEFAULTFONT) + (T (FONTCREATE '(GACHA 10] + (LAFITEHARDCOPYFONT LAFITEDISPLAYFONT) + [LAFITEBROWSERFONT (FONTCREATE '(GACHA 10] + [LAFITEMSGICONFONT (FONTCREATE '(HELVETICA 8] + (LAFITE.FOLDER.MENU.FONT NIL) + (LAFITEINFO.NAME "Lafite.info") + (DEFAULTMAILFOLDERNAME "Active.mail") + (LAFITEMAIL.EXT "mail") + (LAFITESTATUSWINDOWMINWIDTH 200) + (LAFITESTATUSWINDOWPOSITION '(735 . 650)) + (LAFITE.DONT.DISPLAY.HEADERS NIL) + (LAFITE.DONT.FORWARD.HEADERS NIL) + (LAFITE.DONT.HARDCOPY.HEADERS NIL) + (LAFITEDEBUGFLG NIL) + (LAFITEMODEDEFAULT NIL) + (LAFITESHOWMODEFLG T) + (LAFITE.USE.ALL.MODES T))) (RPAQ? LAFITEDEFAULTHOST&DIR NIL) @@ -309,14 +312,15 @@ Mode affects SendMail only; mail is still retrieved in all modes.~]" (if \LAFITE (RPAQ? LAFITEDISPLAYFONT (FONTCREATE '(TIMESROMAN 10))) -(RPAQ? LAFITEFIXEDWIDTHFONT [COND ((EQ (CHARWIDTH (CHARCODE "i") - DEFAULTFONT) - (CHARWIDTH (CHARCODE "W") - DEFAULTFONT)) - (* ; - "Yes, user has not changed default to a variable width font") - DEFAULTFONT) - (T (FONTCREATE '(GACHA 10]) +(RPAQ? LAFITEFIXEDWIDTHFONT + [COND ((EQ (CHARWIDTH (CHARCODE "i") + DEFAULTFONT) + (CHARWIDTH (CHARCODE "W") + DEFAULTFONT)) + (* ; + "Yes, user has not changed default to a variable width font") + DEFAULTFONT) + (T (FONTCREATE '(GACHA 10]) (RPAQ? LAFITEHARDCOPYFONT LAFITEDISPLAYFONT) @@ -365,14 +369,15 @@ Mode affects SendMail only; mail is still retrieved in all modes.~]" (if \LAFITE (RPAQ? LAFITEEOL " ") -(RPAQQ LAFITEMARKS ((SEENMARK (CHARCODE SP)) - (UNSEENMARK (CHARCODE ?)) - (MOVETOMARK (CHARCODE m)) - (FORWARDMARK (CHARCODE f)) - (ANSWERMARK (CHARCODE a)) - (HARDCOPYBATCHMARK (CHARCODE H)) - (HARDCOPYMARK (CHARCODE h)) - (HEARDMARK (CHARCODE @)))) +(RPAQQ LAFITEMARKS + ((SEENMARK (CHARCODE SP)) + (UNSEENMARK (CHARCODE ?)) + (MOVETOMARK (CHARCODE m)) + (FORWARDMARK (CHARCODE f)) + (ANSWERMARK (CHARCODE a)) + (HARDCOPYBATCHMARK (CHARCODE H)) + (HARDCOPYMARK (CHARCODE h)) + (HEARDMARK (CHARCODE @)))) (RPAQ SEENMARK (CHARCODE SP)) @@ -398,45 +403,37 @@ Mode affects SendMail only; mail is still retrieved in all modes.~]" (if \LAFITE ("Quit" '\LAFITE.QUIT "Update and close all mail files and stop Lafite"))) -(RPAQQ LAFITEUPDATEMENUITEMS (("Do Hardcopy Only" '\LAFITE.HARDCOPYONLY.PROC - "Will print batched hardcopy but not update file") - ("Write out changes only" '\LAFITE.UPDATE.PROC - "Will update physical file to reflect new marks and deletions" - ) - ("Update table of contents only" (FUNCTION \LAFITE.UPDATE.PROC) - - "Write table of contents file to speed next browse of this folder" - ) - ("Expunge deleted messages" '\LAFITE.EXPUNGE.PROC - "Will rewrite mail file, expunging all deleted messages") - ("Write changes in sorted order" '\LAFITE.EXPUNGE.PROC "Will rewrite mail file so that the messages are permanently stored in the order in which they now appear in the browser." - ) - ("Expunge & Write out changes (sorted)" '\LAFITE.EXPUNGE.PROC "Will rewrite mail file, expunging deleted messages and writing writing the rest in the order in which they now appear in the browser." - ) - ("Just close" '\LAFITE.FINISH.UPDATE - "Just close the window - don't touch the mail file.") - ("Just shrink" '\LAFITE.FINISH.UPDATE - "Just shrink the window - don't touch the mail file."))) - -(RPAQQ LAFITESUBQUITMENUITEMS (("Quit" '\LAFITE.QUIT "Turn Lafite off") - ("Restart" '\LAFITE.RESTART "Turn Lafite off then back on") - ("Login" '\LAFITE.LOGIN - "Change the global username/password and restart Lafite with the new user." - (SUBITEMS ("Just re-authenticate" '\LAFITE.REAUTHENTICATE - "Re-authenticate currently logged-in user." - ) - ("Login without restarting" - '\LAFITE.LOGIN.NORESTART +(RPAQQ LAFITEUPDATEMENUITEMS + (("Do Hardcopy Only" '\LAFITE.HARDCOPYONLY.PROC + "Will print batched hardcopy but not update file") + ("Write out changes only" '\LAFITE.UPDATE.PROC + "Will update physical file to reflect new marks and deletions") + ("Update table of contents only" (FUNCTION \LAFITE.UPDATE.PROC) + "Write table of contents file to speed next browse of this folder") + ("Expunge deleted messages" '\LAFITE.EXPUNGE.PROC + "Will rewrite mail file, expunging all deleted messages") + ("Write changes in sorted order" '\LAFITE.EXPUNGE.PROC "Will rewrite mail file so that the messages are permanently stored in the order in which they now appear in the browser." + ) + ("Expunge & Write out changes (sorted)" '\LAFITE.EXPUNGE.PROC "Will rewrite mail file, expunging deleted messages and writing writing the rest in the order in which they now appear in the browser." + ) + ("Just close" '\LAFITE.FINISH.UPDATE "Just close the window - don't touch the mail file.") + ("Just shrink" '\LAFITE.FINISH.UPDATE "Just shrink the window - don't touch the mail file."))) + +(RPAQQ LAFITESUBQUITMENUITEMS + (("Quit" '\LAFITE.QUIT "Turn Lafite off") + ("Restart" '\LAFITE.RESTART "Turn Lafite off then back on") + ("Login" '\LAFITE.LOGIN + "Change the global username/password and restart Lafite with the new user." + (SUBITEMS ("Just re-authenticate" '\LAFITE.REAUTHENTICATE + "Re-authenticate currently logged-in user.") + ("Login without restarting" '\LAFITE.LOGIN.NORESTART "Change the global login but don't restart Lafite (keep the same folders open, etc)" - ) - ("NS Login" '\NSMAIL.LOGIN - "Change the name and/or password for NS operation." - ))) - ("Recache" 'LAFITE.COMPUTE.CACHED.VARS - "Make Lafite recompute cached information based on current variable settings" - ) - ("Server trace" 'LAFITE.TOGGLE.SERVER.TRACE - "Change setting of *NSMAIL-TRACE-SERVERS*"))) + ) + ("NS Login" '\NSMAIL.LOGIN "Change the name and/or password for NS operation.") + )) + ("Recache" 'LAFITE.COMPUTE.CACHED.VARS + "Make Lafite recompute cached information based on current variable settings") + ("Server trace" 'LAFITE.TOGGLE.SERVER.TRACE "Change setting of *NSMAIL-TRACE-SERVERS*"))) (RPAQQ ANOTHERFOLDERMENUITEM ("** Other Folder **" '%##ANOTHERFILE## "You will be asked to specify another mail filename")) @@ -586,8 +583,27 @@ Mode affects SendMail only; mail is still retrieved in all modes.~]" (if \LAFITE ) (\LAFITE.EOF -(LAMBDA (STREAM) (* ; "Edited 15-Sep-87 18:26 by bvm:") (* ;; "End of stream op for Lafite mail folders. Return endless CR's so that parses eventually stop") (if (NEQ (ACCESS-CHARSET STREAM) 0) then (* ;; "We're in another char set, so just returning CR won't do, since it will be interpreted in the wrong char set. Also, can't just smash CHARSET to 0, since some readers cache the charset.") (LET ((STATE (STREAMPROP STREAM (QUOTE EOFDATA)))) (SELECTQ STATE (NIL (STREAMPROP STREAM (QUOTE EOFDATA) 1) (* ; "First return charset shift byte") NSCHARSETSHIFT) (1 (STREAMPROP STREAM (QUOTE EOFDATA) 2) (* ; "Then charset zero.") 0) (PROGN (* ; "Eek, shouldn't happen. Maybe somebody is stupidly reading bytes, so try a cr") (STREAMPROP STREAM (QUOTE EOFDATA) NIL) (CHARCODE CR)))) else (CHARCODE CR))) -) + [LAMBDA (STREAM) (* ; "Edited 24-Jun-2021 19:16 by rmk:") + + (* ;; "End of stream op for Lafite mail folders. Return endless EOLS's so that parses eventually stop. This is now done in a format independent way. We create a byte stream for the current external format of stream, print an EOL on to it, and then keep returning the bytes that ecode the EOL. If there is a need for an XCCS charset shift or any other magic, that will show up in the byte stream") + + (LET (BYTESTREAM) + (IF [NULL (SETQ BYTESTREAM (STREAMPROP STREAM 'BYTESTREAM] + THEN (SETQ BYTESTREAM (\FORMATBYTESTREAM STREAM NIL)) + (* ; "First time, set it up") + (STREAMPROP STREAM 'BYTESTREAM BYTESTREAM) + (TERPRI BYTESTREAM) + (SETFILEPTR BYTESTREAM 0) + (BIN BYTESTREAM) + ELSEIF (BIN BYTESTREAM) + ELSE + + (* ;; "Ran off the end, Reset to make sure it remains consistent with STREAM after it has been reading our bytes") + + (\FORMATBYTESTREAM STREAM BYTESTREAM) + (TERPRI BYTESTREAM) + (SETFILEPTR BYTESTREAM 0) + (BIN BYTESTREAM]) (\LAFITE.CLOSE.FOLDER (LAMBDA (MAILFOLDER REALLYP) (* ; "Edited 14-Oct-87 20:18 by bvm:") (* ;;; "If MAILFOLDER is open for output, make sure it is completely written out. If REALLYP then actually close the file") (LET ((STREAM (fetch (MAILFOLDER FOLDERSTREAM) of MAILFOLDER))) (COND ((AND STREAM (COND ((OPENP STREAM (QUOTE OUTPUT)) (FORCEOUTPUT STREAM T) (* ; "Due to Leaf bug, best to do the FORCEOUTPUT first even if we're really closing it") (replace (MAILFOLDER FOLDERCREATIONDATE) of MAILFOLDER with (GETFILEINFO STREAM (QUOTE ICREATIONDATE))) (* ; "Update creation date in case it's a device where writing to it affects it (always true over savevm for some devices)") REALLYP) (T (AND REALLYP (OPENP STREAM))))) (* ; "Yes, close it for real") (PROG1 (CLOSEF STREAM) (replace (MAILFOLDER FOLDERSTREAM) of MAILFOLDER with NIL)))))) @@ -848,8 +864,8 @@ Mode affects SendMail only; mail is still retrieved in all modes.~]" (if \LAFITE (COND ((EQ MAKESYSNAME :LYRIC) (FILESLOAD (SYSLOAD) - NSCHARPATCH) (* ; - "Patch to horrid Lyric NS chars bug") + NSCHARPATCH) (* ; + "Patch to horrid Lyric NS chars bug") (MOVD? 'PROMPTFORWORD 'TTYINPROMPTFORWORD NIL T))) ) (DECLARE%: DOEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS @@ -861,30 +877,30 @@ Mode affects SendMail only; mail is still retrieved in all modes.~]" (if \LAFITE (ADDTOVAR LAMA LAFITE) ) (PUTPROPS LAFITE COPYRIGHT ("Xerox Corporation and Bolt Beranek and Newman Inc." 1982 1983 1984 1985 -1986 1987 1988 1989 1993 1994)) +1986 1987 1988 1989 1993 1994 2021)) (DECLARE%: DONTCOPY - (FILEMAP (NIL (7072 22118 (LAFITE 7082 . 8393) (LAFITE.ON.FROM.BACKGROUND 8395 . 8766) (\LAFITE.OFF -8768 . 9152) (\LAFITE.START.PROC 9154 . 10930) (LAFITE.COMPUTE.CACHED.VARS 10932 . 13634) ( -\LAFITE.PROCESS 13636 . 14002) (\LAFITE.START.ABORT 14004 . 14196) (\LAFITE.QUIT 14198 . 14440) ( -\LAFITE.RESTART 14442 . 14575) (\LAFITE.SUBQUIT 14577 . 15875) (\LAFITE.QUIT.PROC 15877 . 18613) ( -\LAFITEDEFAULTHOST&DIR 18615 . 19425) (LAFITEDEFAULTHOST&DIR 19427 . 19597) (MAKELAFITECOMMANDWINDOW -19599 . 21238) (EXTRACTMENUCOMMAND 21240 . 21488) (DOMAINLAFITECOMMAND 21490 . 21639) ( -LAFITE.TOGGLE.SERVER.TRACE 21641 . 22116)) (22189 25157 (LAFITEMODE 22199 . 22679) (\LAFITE.INFER.MODE - 22681 . 23034) (\LAFITE.SHOW.MODE 23036 . 23273) (\LAFITE.MODE.TITLE 23275 . 23560) ( -LAFITE.SHOW.MODE.P 23562 . 23803) (LAFITE.ALL.MODES.P 23805 . 24148) (SET.LAFITE.MODE.INTERACTIVELY -24150 . 24732) (\LAFITE.COMPUTE.MODE.COMMANDS 24734 . 25155)) (26410 28166 (\LAFITE.LOGIN 26420 . -26802) (\LAFITE.LOGIN.NORESTART 26804 . 26910) (LAFITE.PROMPT.FOR.LOGIN 26912 . 27931) ( -\LAFITE.REAUTHENTICATE 27933 . 28164)) (37585 41027 (LAFITE.AROUNDEXIT 37595 . 38133) ( -\LAFITE.MARK.FOLDERS.OBSOLETE 38135 . 39051) (\LAFITE.CHECK.FOLDERS 39053 . 39452) ( -\LAFITE.ASSURE.FOLDER.READY 39454 . 39864) (\LAFITE.AFTERLOGIN 39866 . 41025)) (41059 43997 ( -LA.RESETSHADE 41069 . 41447) (LA.MENU.ITEM 41449 . 41867) (NTHMESSAGE 41869 . 41952) ( -\LAFITE.MAKE.MSGARRAY 41954 . 42384) (\LAFITE.ADDMESSAGES.TO.ARRAY 42386 . 42967) ( -\MAILFOLDER.DEFPRINT 42969 . 43216) (\LAFITEMSG.DEFPRINT 43218 . 43380) (LA.POSITION.FROM.REGION 43382 - . 43859) (MAILFOLDERBUSY 43861 . 43995)) (44175 60041 (TOCFILENAME 44185 . 44616) (DELETEMAILFOLDER -44618 . 45138) (\LAFITE.OPEN.FOLDER 45140 . 49755) (\LAFITE.REPORT.FILE.WONT.OPEN 49757 . 50481) ( -\LAFITE.FOLDER.CHANGED 50483 . 52887) (\LAFITE.REBROWSE.FOLDER 52889 . 55854) ( -\LAFITE.FOLDER.CHANGED.MENU 55856 . 56779) (\LAFITE.SET.FOLDER.STREAM 56781 . 57475) ( -\LAFITE.OPENSTREAM 57477 . 58016) (\LAFITE.CREATE.MENU 58018 . 58371) (\LAFITE.EOF 58373 . 59193) ( -\LAFITE.CLOSE.FOLDER 59195 . 60039)) (60042 60626 (\LAFITE.DESCRIBE.FOLDER 60052 . 60624)) (60687 -61793 (LOAD-LAFITE 60697 . 61791)) (69504 70781 (\LAFITE.GLOBAL.INIT 69514 . 70779))))) + (FILEMAP (NIL (7140 22186 (LAFITE 7150 . 8461) (LAFITE.ON.FROM.BACKGROUND 8463 . 8834) (\LAFITE.OFF +8836 . 9220) (\LAFITE.START.PROC 9222 . 10998) (LAFITE.COMPUTE.CACHED.VARS 11000 . 13702) ( +\LAFITE.PROCESS 13704 . 14070) (\LAFITE.START.ABORT 14072 . 14264) (\LAFITE.QUIT 14266 . 14508) ( +\LAFITE.RESTART 14510 . 14643) (\LAFITE.SUBQUIT 14645 . 15943) (\LAFITE.QUIT.PROC 15945 . 18681) ( +\LAFITEDEFAULTHOST&DIR 18683 . 19493) (LAFITEDEFAULTHOST&DIR 19495 . 19665) (MAKELAFITECOMMANDWINDOW +19667 . 21306) (EXTRACTMENUCOMMAND 21308 . 21556) (DOMAINLAFITECOMMAND 21558 . 21707) ( +LAFITE.TOGGLE.SERVER.TRACE 21709 . 22184)) (22261 25229 (LAFITEMODE 22271 . 22751) (\LAFITE.INFER.MODE + 22753 . 23106) (\LAFITE.SHOW.MODE 23108 . 23345) (\LAFITE.MODE.TITLE 23347 . 23632) ( +LAFITE.SHOW.MODE.P 23634 . 23875) (LAFITE.ALL.MODES.P 23877 . 24220) (SET.LAFITE.MODE.INTERACTIVELY +24222 . 24804) (\LAFITE.COMPUTE.MODE.COMMANDS 24806 . 25227)) (26079 27835 (\LAFITE.LOGIN 26089 . +26471) (\LAFITE.LOGIN.NORESTART 26473 . 26579) (LAFITE.PROMPT.FOR.LOGIN 26581 . 27600) ( +\LAFITE.REAUTHENTICATE 27602 . 27833)) (35346 38788 (LAFITE.AROUNDEXIT 35356 . 35894) ( +\LAFITE.MARK.FOLDERS.OBSOLETE 35896 . 36812) (\LAFITE.CHECK.FOLDERS 36814 . 37213) ( +\LAFITE.ASSURE.FOLDER.READY 37215 . 37625) (\LAFITE.AFTERLOGIN 37627 . 38786)) (38820 41758 ( +LA.RESETSHADE 38830 . 39208) (LA.MENU.ITEM 39210 . 39628) (NTHMESSAGE 39630 . 39713) ( +\LAFITE.MAKE.MSGARRAY 39715 . 40145) (\LAFITE.ADDMESSAGES.TO.ARRAY 40147 . 40728) ( +\MAILFOLDER.DEFPRINT 40730 . 40977) (\LAFITEMSG.DEFPRINT 40979 . 41141) (LA.POSITION.FROM.REGION 41143 + . 41620) (MAILFOLDERBUSY 41622 . 41756)) (41936 58324 (TOCFILENAME 41946 . 42377) (DELETEMAILFOLDER +42379 . 42899) (\LAFITE.OPEN.FOLDER 42901 . 47516) (\LAFITE.REPORT.FILE.WONT.OPEN 47518 . 48242) ( +\LAFITE.FOLDER.CHANGED 48244 . 50648) (\LAFITE.REBROWSE.FOLDER 50650 . 53615) ( +\LAFITE.FOLDER.CHANGED.MENU 53617 . 54540) (\LAFITE.SET.FOLDER.STREAM 54542 . 55236) ( +\LAFITE.OPENSTREAM 55238 . 55777) (\LAFITE.CREATE.MENU 55779 . 56132) (\LAFITE.EOF 56134 . 57476) ( +\LAFITE.CLOSE.FOLDER 57478 . 58322)) (58325 58909 (\LAFITE.DESCRIBE.FOLDER 58335 . 58907)) (58970 +60076 (LOAD-LAFITE 58980 . 60074)) (67787 69064 (\LAFITE.GLOBAL.INIT 67797 . 69062))))) STOP diff --git a/library/lafite/LAFITE.LCOM b/library/lafite/LAFITE.LCOM index 98559cfb3..0d5cdb597 100644 Binary files a/library/lafite/LAFITE.LCOM and b/library/lafite/LAFITE.LCOM differ diff --git a/library/lafite/LAFITECOMMANDS.LCOM b/library/lafite/LAFITECOMMANDS.LCOM index 161d2fc58..0da3ceba5 100644 Binary files a/library/lafite/LAFITECOMMANDS.LCOM and b/library/lafite/LAFITECOMMANDS.LCOM differ diff --git a/library/lafite/LAFITEMAIL b/library/lafite/LAFITEMAIL index 0f2b949ff..1cf1dbd06 100644 --- a/library/lafite/LAFITEMAIL +++ b/library/lafite/LAFITEMAIL @@ -1,18 +1,74 @@ (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) -(FILECREATED " 6-Aug-93 18:19:26" {DSK}lafite>sources>lafitemail.;24 68769 +(FILECREATED "22-Jun-2021 10:19:08"  +{DSK}kaplan>Local>medley3.5>git-medley>library>lafite>LAFITEMAIL.;2 70964 - changes to%: (FNS LAFITE.NEW.PARSE.HEADER) (VARS LAFITEMAILCOMS) + changes to%: (FNS LA.SKIP.TO.EOL LAFITE.SKIP.WHITE.SPACE) + (FILES LAFITEDECLS) - previous date%: "26-May-92 12:22:49" {DSK}lafite>sources>lafitemail.;22) + previous date%: " 6-Aug-93 18:19:26" +{DSK}kaplan>Local>medley3.5>git-medley>library>lafite>LAFITEMAIL.;1) (* ; " -Copyright (c) 1984, 1985, 1986, 1987, 1988, 1989, 1991, 1992, 1993 by Xerox Corporation. All rights reserved. +Copyright (c) 1984-1989, 1991-1993, 2021 by Xerox Corporation. ") (PRETTYCOMPRINT LAFITEMAILCOMS) -(RPAQQ LAFITEMAILCOMS ((COMS (* ; "Retrieving mail") (FNS \LAFITE.GETMAIL \LAFITE.GETMAIL.FROM.ICON \LAFITE.GETMAIL.PROC \LAFITE.GETNEWMAIL \LAFITE.GETNEWMAIL1 \LAFITE.GETNEWMAIL# \LAFITE.RETRIEVEMESSAGES)) (COMS (* ; "Mail polling and registration") (FNS \LAFITE.GET.USER.DATA \LAFITE.GUESS.MODE \LAFITE.REGISTER.MODE LAFITECLEARCACHE FULLUSERNAME LAFITE.USER.NAME.FROM.LOGIN LAFITEMAILWATCH \LAFITE.WAKE.WATCHER POLLNEWMAIL \LAFITE.NEW.MAIL.EXISTS PRINTLAFITESTATUS LAFITE.STATUS.WITH.TIME \LAFITE.REINITIALIZING)) (COMS (* ; "Parsing mail files") (FNS \LAFITE.PARSE.FOLDER \LAFITE.PARSE.FOLDER1 \LAFITE.HANDLE.DUPLICATES \LAFITE.CHECK.DUPLICATE \LAFITE.REPORT.DUPLICATES BADMAILFILE BADMAILFILE.CLOSEFN BADMAILFILE.FLAGBYTE VERIFYMAILFOLDER VERIFYFAILED \LAFITE.READ.TOC.FILE BADTOCFILE \LAFITE.TOCEOF LA.READCOUNT LA.READSTAMP LA.PRINTHEADER LA.PRINTCOUNT LA.PRINTSTAMP LA.READSHORTSTRING LA.PRINTSHORTSTRING LA.READSTRING \LAFITE.VERIFYMSG LA.MSGFROMMEP) (FNS LAFITE.PARSE.MSG.FOR.TOC LAFITE-EXTRACT-REAL-NAME LAFITE.FETCH.TO.FIELD LAFITE.PARSE.HEADER LAFITE.GRAB.DATE LAFITE.READ.LINE.FOR.TOC LAFITE.READ.FORMAT LAFITE.READ.NAME.FIELD LAFITE.READ.ONE.LINE.FOR.TOC LAFITE.READ.TO.EOL LA.SKIP.TO.EOL LAFITE.SKIP.WHITE.SPACE) (FNS \LAFITE.PARSE.MESSAGE) (COMS (VARS LA.FULLPARSEFIELDS LA.TOCFIELDS LA.TOFIELDONLY LA.DATEFIELDONLY LA.SUBJECTFIELDONLY) (FNS LAFITE.INIT.PARSETABLES LAFITE.MAKE.PARSE.TABLE LAFITE.MAKE.PARSE.TABLE1)) (COMS (* ; "New header parser") (FNS LAFITE.NEW.PARSE.HEADER LAFITE.HANDLE.ORIGINAL.FIELD) (INITVARS (*LAFITE-MAX-FIELD-WIDTH* 100) (*LAFITE-PARSE-HEADER-STRING-RESOURCE*)))) (COMS (INITVARS (*LAFITE-VERIFY-ACTION* NIL) (MAILWATCHWAITTIME 5) (LAFITEFLUSHMAILFLG T) (LAFITETOC.EXT "-Lafite-toc") (LAFITENEWMAILFN NIL) (LAFITENEWMAILTUNE NIL) (LAFITEGETMAILTUNE NIL) (LAFITE.AFTER.GETMAIL.FN NIL) (LAFITE.SORT.NEW.MAIL NIL)) (INITVARS (\LAFITE.LAST.STATUS)) (ADDVARS (\SYSTEMCACHEVARS \LAFITE.LAST.STATUS))) (DECLARE%: DOEVAL@COMPILE (P (CL:PROCLAIM (QUOTE (CL:SPECIAL *LAFITE-VERIFY-ACTION* DEFAULTREGISTRY LAFITEDEBUGFLG))) (CL:PROCLAIM (QUOTE (GLOBAL LAFITEFLUSHMAILFLG LAFITEGETMAILTUNE LAFITENEWMAILFN LAFITENEWMAILTUNE LAFITEIFFROMMETHENSEENFLG MAILWATCHWAITTIME LAFITETOC.EXT LAFITE.SORT.NEW.MAIL))))) (DECLARE%: EVAL@COMPILE DONTCOPY (GLOBALVARS *LAFITE-MAX-FIELD-WIDTH* *LAFITE-PARSE-HEADER-STRING-RESOURCE* LA.FULLPARSEFIELDS LA.TOCFIELDS LA.TOFIELDONLY LA.DATEFIELDONLY LA.SUBJECTFIELDONLY \LAFITE.AUTHENTICATION.FAILURE \LAPARSE.FULL \LAPARSE.TOCFIELDS \LAPARSE.TOFIELD \LAPARSE.SUBJECTFIELD \LAPARSE.DATEFIELD LAFITE.AFTER.GETMAIL.FN) (FILES (SOURCE) LAFITEDECLS) (LOCALVARS . T)))) +(RPAQQ LAFITEMAILCOMS + ((COMS (* ; "Retrieving mail") + (FNS \LAFITE.GETMAIL \LAFITE.GETMAIL.FROM.ICON \LAFITE.GETMAIL.PROC \LAFITE.GETNEWMAIL + \LAFITE.GETNEWMAIL1 \LAFITE.GETNEWMAIL# \LAFITE.RETRIEVEMESSAGES)) + (COMS (* ; "Mail polling and registration") + (FNS \LAFITE.GET.USER.DATA \LAFITE.GUESS.MODE \LAFITE.REGISTER.MODE LAFITECLEARCACHE + FULLUSERNAME LAFITE.USER.NAME.FROM.LOGIN LAFITEMAILWATCH \LAFITE.WAKE.WATCHER + POLLNEWMAIL \LAFITE.NEW.MAIL.EXISTS PRINTLAFITESTATUS LAFITE.STATUS.WITH.TIME + \LAFITE.REINITIALIZING)) + [COMS (* ; "Parsing mail files") + (FNS \LAFITE.PARSE.FOLDER \LAFITE.PARSE.FOLDER1 \LAFITE.HANDLE.DUPLICATES + \LAFITE.CHECK.DUPLICATE \LAFITE.REPORT.DUPLICATES BADMAILFILE BADMAILFILE.CLOSEFN + BADMAILFILE.FLAGBYTE VERIFYMAILFOLDER VERIFYFAILED \LAFITE.READ.TOC.FILE + BADTOCFILE \LAFITE.TOCEOF LA.READCOUNT LA.READSTAMP LA.PRINTHEADER LA.PRINTCOUNT + LA.PRINTSTAMP LA.READSHORTSTRING LA.PRINTSHORTSTRING LA.READSTRING + \LAFITE.VERIFYMSG LA.MSGFROMMEP) + (FNS LAFITE.PARSE.MSG.FOR.TOC LAFITE-EXTRACT-REAL-NAME LAFITE.FETCH.TO.FIELD + LAFITE.PARSE.HEADER LAFITE.GRAB.DATE LAFITE.READ.LINE.FOR.TOC LAFITE.READ.FORMAT + LAFITE.READ.NAME.FIELD LAFITE.READ.ONE.LINE.FOR.TOC LAFITE.READ.TO.EOL + LA.SKIP.TO.EOL LAFITE.SKIP.WHITE.SPACE) + (FNS \LAFITE.PARSE.MESSAGE) + (COMS (VARS LA.FULLPARSEFIELDS LA.TOCFIELDS LA.TOFIELDONLY LA.DATEFIELDONLY + LA.SUBJECTFIELDONLY) + (FNS LAFITE.INIT.PARSETABLES LAFITE.MAKE.PARSE.TABLE LAFITE.MAKE.PARSE.TABLE1)) + (COMS (* ; "New header parser") + (FNS LAFITE.NEW.PARSE.HEADER LAFITE.HANDLE.ORIGINAL.FIELD) + (INITVARS (*LAFITE-MAX-FIELD-WIDTH* 100) + (*LAFITE-PARSE-HEADER-STRING-RESOURCE*] + (COMS (INITVARS (*LAFITE-VERIFY-ACTION* NIL) + (MAILWATCHWAITTIME 5) + (LAFITEFLUSHMAILFLG T) + (LAFITETOC.EXT "-Lafite-toc") + (LAFITENEWMAILFN NIL) + (LAFITENEWMAILTUNE NIL) + (LAFITEGETMAILTUNE NIL) + (LAFITE.AFTER.GETMAIL.FN NIL) + (LAFITE.SORT.NEW.MAIL NIL)) + (INITVARS (\LAFITE.LAST.STATUS)) + (ADDVARS (\SYSTEMCACHEVARS \LAFITE.LAST.STATUS))) + [DECLARE%: DOEVAL@COMPILE (P (CL:PROCLAIM '(CL:SPECIAL *LAFITE-VERIFY-ACTION* DEFAULTREGISTRY + LAFITEDEBUGFLG)) + (CL:PROCLAIM '(GLOBAL LAFITEFLUSHMAILFLG LAFITEGETMAILTUNE + LAFITENEWMAILFN LAFITENEWMAILTUNE + LAFITEIFFROMMETHENSEENFLG MAILWATCHWAITTIME + LAFITETOC.EXT LAFITE.SORT.NEW.MAIL] + (DECLARE%: EVAL@COMPILE DONTCOPY + (GLOBALVARS *LAFITE-MAX-FIELD-WIDTH* *LAFITE-PARSE-HEADER-STRING-RESOURCE* + LA.FULLPARSEFIELDS LA.TOCFIELDS LA.TOFIELDONLY LA.DATEFIELDONLY + LA.SUBJECTFIELDONLY \LAFITE.AUTHENTICATION.FAILURE \LAPARSE.FULL + \LAPARSE.TOCFIELDS \LAPARSE.TOFIELD \LAPARSE.SUBJECTFIELD \LAPARSE.DATEFIELD + LAFITE.AFTER.GETMAIL.FN) + (FILES (SOURCE) + LAFITEDECLS) + (LOCALVARS . T)))) @@ -249,12 +305,41 @@ Copyright (c) 1984, 1985, 1986, 1987, 1988, 1989, 1991, 1992, 1993 by Xerox Corp ) (LA.SKIP.TO.EOL -(LAMBDA (STREAM LASTCH) (* ; "Edited 28-Jul-88 16:23 by bvm") (* ;;; "Flush to end of this field. LASTCH is the last char read before this") (PROG* ((CSET (LLSH (fetch CHARSET of STREAM) 8)) (EOLC (fetch (STREAM EOLCONVENTION) of STREAM)) (EOLCHAR (SELECTC EOLC (LF.EOLC (CHARCODE LF)) (CHARCODE CR)))) (if (EQ LASTCH (CHARCODE EOL)) then (* ; "We're already there") (GO PEEK)) LP (* ;; "Eat chars til eol. Optimize here with \NSIN because this operation wants to be fast, while READCCODE is slow.") (repeatuntil (EQ (\NSIN STREAM CSET CSET) EOLCHAR)) (if (AND (EQ EOLC CRLF.EOLC) (EQ (\PEEKBIN STREAM T) (CHARCODE LF))) then (* ; "Eat the lf after the cr") (\BIN STREAM)) PEEK (SELCHARQ (\NSPEEK STREAM CSET CSET T) ((SPACE TAB) (* ; "Continuation line, keep eating") (GO LP)) NIL))) -) + [LAMBDA (STREAM LASTCH) (* ; "Edited 22-Jun-2021 10:15 by rmk:") + +(* ;;; "Flush to end of this field. LASTCH is the last char read before this") + + (PROG* [(EOLC (fetch (STREAM EOLCONVENTION) of STREAM)) + (EOLCHAR (SELECTC EOLC + (LF.EOLC (CHARCODE LF)) + (CHARCODE CR] + (if (EQ LASTCH (CHARCODE EOL)) + then (* ; "We're already there") + (GO PEEK)) + LP + + (* ;; "Eat chars til eol. ") + + (repeatuntil (EQ EOLCHAR (\INCCODE STREAM))) + (if (AND (EQ EOLC CRLF.EOLC) + (EQ (\PEEKBIN STREAM T) + (CHARCODE LF))) + then (* ; "Eat the lf after the cr") + (* ; + "\INCHAR would do that internally") + (\BIN STREAM)) + PEEK + (SELCHARQ (\PEEKCCODE STREAM T) + ((SPACE TAB) (* ; "Continuation line, keep eating") + (GO LP)) + NIL]) (LAFITE.SKIP.WHITE.SPACE -(LAMBDA (STREAM) (* ; "Edited 9-Sep-87 19:07 by bvm:") (bind (CSET _ (LLSH (fetch CHARSET of STREAM) 8)) do (SELCHARQ (\NSPEEK STREAM CSET CSET T) ((SPACE TAB) (\NSIN STREAM CSET CSET)) (RETURN)))) -) + [LAMBDA (STREAM) (* ; "Edited 22-Jun-2021 10:18 by rmk:") + (do (SELCHARQ (\PEEKCCODE STREAM T) + ((SPACE TAB) + (\INCCODE STREAM)) + (RETURN]) ) (DEFINEQ @@ -263,15 +348,27 @@ Copyright (c) 1984, 1985, 1986, 1987, 1988, 1989, 1991, 1992, 1993 by Xerox Corp ) ) -(RPAQQ LA.FULLPARSEFIELDS (("DATE:" LAFITE.READ.LINE.FOR.TOC Date) ("SUBJECT:" LAFITE.READ.LINE.FOR.TOC Subject) ("SENDER:" LAFITE.READ.NAME.FIELD Sender) ("FROM:" LAFITE.READ.NAME.FIELD From) ("REPLY-TO:" LAFITE.READ.NAME.FIELD Reply-to) ("IN-REPLY-TO:" LAFITE.READ.LINE.FOR.TOC In-Reply-to) ("TO:" LAFITE.READ.NAME.FIELD To) ("CC:" LAFITE.READ.NAME.FIELD cc) ("FORMAT:" LAFITE.READ.FORMAT))) +(RPAQQ LA.FULLPARSEFIELDS + (("DATE:" LAFITE.READ.LINE.FOR.TOC Date) + ("SUBJECT:" LAFITE.READ.LINE.FOR.TOC Subject) + ("SENDER:" LAFITE.READ.NAME.FIELD Sender) + ("FROM:" LAFITE.READ.NAME.FIELD From) + ("REPLY-TO:" LAFITE.READ.NAME.FIELD Reply-to) + ("IN-REPLY-TO:" LAFITE.READ.LINE.FOR.TOC In-Reply-to) + ("TO:" LAFITE.READ.NAME.FIELD To) + ("CC:" LAFITE.READ.NAME.FIELD cc) + ("FORMAT:" LAFITE.READ.FORMAT))) -(RPAQQ LA.TOCFIELDS (("DATE:" LAFITE.GRAB.DATE) ("FROM:" LAFITE.READ.LINE.FOR.TOC From) ("SUBJECT:" LAFITE.READ.LINE.FOR.TOC Subject) ("ORIGINAL-FROM:" LAFITE.READ.LINE.FOR.TOC Original-From))) +(RPAQQ LA.TOCFIELDS (("DATE:" LAFITE.GRAB.DATE) + ("FROM:" LAFITE.READ.LINE.FOR.TOC From) + ("SUBJECT:" LAFITE.READ.LINE.FOR.TOC Subject) + ("ORIGINAL-FROM:" LAFITE.READ.LINE.FOR.TOC Original-From))) -(RPAQQ LA.TOFIELDONLY (("TO:" LAFITE.READ.ONE.LINE.FOR.TOC))) +(RPAQQ LA.TOFIELDONLY (("TO:" LAFITE.READ.ONE.LINE.FOR.TOC))) -(RPAQQ LA.DATEFIELDONLY (("DATE:" LAFITE.PARSE.DATE.FIELD.ONLY))) +(RPAQQ LA.DATEFIELDONLY (("DATE:" LAFITE.PARSE.DATE.FIELD.ONLY))) -(RPAQQ LA.SUBJECTFIELDONLY (("SUBJECT:" LAFITE.READ.ONE.LINE.FOR.TOC))) +(RPAQQ LA.SUBJECTFIELDONLY (("SUBJECT:" LAFITE.READ.ONE.LINE.FOR.TOC))) (DEFINEQ (LAFITE.INIT.PARSETABLES @@ -303,75 +400,81 @@ Copyright (c) 1984, 1985, 1986, 1987, 1988, 1989, 1991, 1992, 1993 by Xerox Corp ) ) -(RPAQ? *LAFITE-MAX-FIELD-WIDTH* 100) +(RPAQ? *LAFITE-MAX-FIELD-WIDTH* 100) -(RPAQ? *LAFITE-PARSE-HEADER-STRING-RESOURCE*) +(RPAQ? *LAFITE-PARSE-HEADER-STRING-RESOURCE* ) -(RPAQ? *LAFITE-VERIFY-ACTION* NIL) +(RPAQ? *LAFITE-VERIFY-ACTION* NIL) -(RPAQ? MAILWATCHWAITTIME 5) +(RPAQ? MAILWATCHWAITTIME 5) -(RPAQ? LAFITEFLUSHMAILFLG T) +(RPAQ? LAFITEFLUSHMAILFLG T) -(RPAQ? LAFITETOC.EXT "-Lafite-toc") +(RPAQ? LAFITETOC.EXT "-Lafite-toc") -(RPAQ? LAFITENEWMAILFN NIL) +(RPAQ? LAFITENEWMAILFN NIL) -(RPAQ? LAFITENEWMAILTUNE NIL) +(RPAQ? LAFITENEWMAILTUNE NIL) -(RPAQ? LAFITEGETMAILTUNE NIL) +(RPAQ? LAFITEGETMAILTUNE NIL) -(RPAQ? LAFITE.AFTER.GETMAIL.FN NIL) +(RPAQ? LAFITE.AFTER.GETMAIL.FN NIL) -(RPAQ? LAFITE.SORT.NEW.MAIL NIL) +(RPAQ? LAFITE.SORT.NEW.MAIL NIL) -(RPAQ? \LAFITE.LAST.STATUS) +(RPAQ? \LAFITE.LAST.STATUS ) -(ADDTOVAR \SYSTEMCACHEVARS \LAFITE.LAST.STATUS) +(ADDTOVAR \SYSTEMCACHEVARS \LAFITE.LAST.STATUS) (DECLARE%: DOEVAL@COMPILE -(CL:PROCLAIM (QUOTE (CL:SPECIAL *LAFITE-VERIFY-ACTION* DEFAULTREGISTRY LAFITEDEBUGFLG))) +(CL:PROCLAIM '(CL:SPECIAL *LAFITE-VERIFY-ACTION* DEFAULTREGISTRY LAFITEDEBUGFLG)) -(CL:PROCLAIM (QUOTE (GLOBAL LAFITEFLUSHMAILFLG LAFITEGETMAILTUNE LAFITENEWMAILFN LAFITENEWMAILTUNE LAFITEIFFROMMETHENSEENFLG MAILWATCHWAITTIME LAFITETOC.EXT LAFITE.SORT.NEW.MAIL))) +(CL:PROCLAIM '(GLOBAL LAFITEFLUSHMAILFLG LAFITEGETMAILTUNE LAFITENEWMAILFN LAFITENEWMAILTUNE + LAFITEIFFROMMETHENSEENFLG MAILWATCHWAITTIME LAFITETOC.EXT LAFITE.SORT.NEW.MAIL)) ) (DECLARE%: EVAL@COMPILE DONTCOPY (DECLARE%: DOEVAL@COMPILE DONTCOPY -(GLOBALVARS *LAFITE-MAX-FIELD-WIDTH* *LAFITE-PARSE-HEADER-STRING-RESOURCE* LA.FULLPARSEFIELDS LA.TOCFIELDS LA.TOFIELDONLY LA.DATEFIELDONLY LA.SUBJECTFIELDONLY \LAFITE.AUTHENTICATION.FAILURE \LAPARSE.FULL \LAPARSE.TOCFIELDS \LAPARSE.TOFIELD \LAPARSE.SUBJECTFIELD \LAPARSE.DATEFIELD LAFITE.AFTER.GETMAIL.FN) +(GLOBALVARS *LAFITE-MAX-FIELD-WIDTH* *LAFITE-PARSE-HEADER-STRING-RESOURCE* LA.FULLPARSEFIELDS + LA.TOCFIELDS LA.TOFIELDONLY LA.DATEFIELDONLY LA.SUBJECTFIELDONLY + \LAFITE.AUTHENTICATION.FAILURE \LAPARSE.FULL \LAPARSE.TOCFIELDS \LAPARSE.TOFIELD + \LAPARSE.SUBJECTFIELD \LAPARSE.DATEFIELD LAFITE.AFTER.GETMAIL.FN) ) -(FILESLOAD (SOURCE) LAFITEDECLS) +(FILESLOAD (SOURCE) + LAFITEDECLS) (DECLARE%: DOEVAL@COMPILE DONTCOPY (LOCALVARS . T) ) ) -(PUTPROPS LAFITEMAIL COPYRIGHT ("Xerox Corporation" 1984 1985 1986 1987 1988 1989 1991 1992 1993)) +(PUTPROPS LAFITEMAIL COPYRIGHT ("Xerox Corporation" 1984 1985 1986 1987 1988 1989 1991 1992 1993 2021) +) (DECLARE%: DONTCOPY - (FILEMAP (NIL (3143 12346 (\LAFITE.GETMAIL 3153 . 3385) (\LAFITE.GETMAIL.FROM.ICON 3387 . 3644) ( -\LAFITE.GETMAIL.PROC 3646 . 3989) (\LAFITE.GETNEWMAIL 3991 . 6652) (\LAFITE.GETNEWMAIL1 6654 . 8016) ( -\LAFITE.GETNEWMAIL# 8018 . 8206) (\LAFITE.RETRIEVEMESSAGES 8208 . 12344)) (12393 25647 ( -\LAFITE.GET.USER.DATA 12403 . 13791) (\LAFITE.GUESS.MODE 13793 . 14776) (\LAFITE.REGISTER.MODE 14778 - . 15505) (LAFITECLEARCACHE 15507 . 15981) (FULLUSERNAME 15983 . 16752) (LAFITE.USER.NAME.FROM.LOGIN -16754 . 17833) (LAFITEMAILWATCH 17835 . 18279) (\LAFITE.WAKE.WATCHER 18281 . 18663) (POLLNEWMAIL 18665 - . 23646) (\LAFITE.NEW.MAIL.EXISTS 23648 . 23903) (PRINTLAFITESTATUS 23905 . 25199) ( -LAFITE.STATUS.WITH.TIME 25201 . 25389) (\LAFITE.REINITIALIZING 25391 . 25645)) (25683 52890 ( -\LAFITE.PARSE.FOLDER 25693 . 26351) (\LAFITE.PARSE.FOLDER1 26353 . 29949) (\LAFITE.HANDLE.DUPLICATES -29951 . 31288) (\LAFITE.CHECK.DUPLICATE 31290 . 31972) (\LAFITE.REPORT.DUPLICATES 31974 . 32906) ( -BADMAILFILE 32908 . 36841) (BADMAILFILE.CLOSEFN 36843 . 37115) (BADMAILFILE.FLAGBYTE 37117 . 37269) ( -VERIFYMAILFOLDER 37271 . 39802) (VERIFYFAILED 39804 . 39937) (\LAFITE.READ.TOC.FILE 39939 . 45385) ( -BADTOCFILE 45387 . 45736) (\LAFITE.TOCEOF 45738 . 45977) (LA.READCOUNT 45979 . 46639) (LA.READSTAMP -46641 . 46961) (LA.PRINTHEADER 46963 . 49226) (LA.PRINTCOUNT 49228 . 49426) (LA.PRINTSTAMP 49428 . -49719) (LA.READSHORTSTRING 49721 . 50120) (LA.PRINTSHORTSTRING 50122 . 50850) (LA.READSTRING 50852 . -51167) (\LAFITE.VERIFYMSG 51169 . 52180) (LA.MSGFROMMEP 52182 . 52888)) (52891 61736 ( -LAFITE.PARSE.MSG.FOR.TOC 52901 . 54691) (LAFITE-EXTRACT-REAL-NAME 54693 . 56332) ( -LAFITE.FETCH.TO.FIELD 56334 . 56839) (LAFITE.PARSE.HEADER 56841 . 58487) (LAFITE.GRAB.DATE 58489 . -58738) (LAFITE.READ.LINE.FOR.TOC 58740 . 59014) (LAFITE.READ.FORMAT 59016 . 59290) ( -LAFITE.READ.NAME.FIELD 59292 . 59940) (LAFITE.READ.ONE.LINE.FOR.TOC 59942 . 60069) (LAFITE.READ.TO.EOL - 60071 . 60693) (LA.SKIP.TO.EOL 60695 . 61503) (LAFITE.SKIP.WHITE.SPACE 61505 . 61734)) (61737 62267 ( -\LAFITE.PARSE.MESSAGE 61747 . 62265)) (63061 64873 (LAFITE.INIT.PARSETABLES 63071 . 63492) ( -LAFITE.MAKE.PARSE.TABLE 63494 . 63947) (LAFITE.MAKE.PARSE.TABLE1 63949 . 64871)) (64908 67419 ( -LAFITE.NEW.PARSE.HEADER 64918 . 66739) (LAFITE.HANDLE.ORIGINAL.FIELD 66741 . 67417))))) + (FILEMAP (NIL (4499 13702 (\LAFITE.GETMAIL 4509 . 4741) (\LAFITE.GETMAIL.FROM.ICON 4743 . 5000) ( +\LAFITE.GETMAIL.PROC 5002 . 5345) (\LAFITE.GETNEWMAIL 5347 . 8008) (\LAFITE.GETNEWMAIL1 8010 . 9372) ( +\LAFITE.GETNEWMAIL# 9374 . 9562) (\LAFITE.RETRIEVEMESSAGES 9564 . 13700)) (13749 27003 ( +\LAFITE.GET.USER.DATA 13759 . 15147) (\LAFITE.GUESS.MODE 15149 . 16132) (\LAFITE.REGISTER.MODE 16134 + . 16861) (LAFITECLEARCACHE 16863 . 17337) (FULLUSERNAME 17339 . 18108) (LAFITE.USER.NAME.FROM.LOGIN +18110 . 19189) (LAFITEMAILWATCH 19191 . 19635) (\LAFITE.WAKE.WATCHER 19637 . 20019) (POLLNEWMAIL 20021 + . 25002) (\LAFITE.NEW.MAIL.EXISTS 25004 . 25259) (PRINTLAFITESTATUS 25261 . 26555) ( +LAFITE.STATUS.WITH.TIME 26557 . 26745) (\LAFITE.REINITIALIZING 26747 . 27001)) (27039 54246 ( +\LAFITE.PARSE.FOLDER 27049 . 27707) (\LAFITE.PARSE.FOLDER1 27709 . 31305) (\LAFITE.HANDLE.DUPLICATES +31307 . 32644) (\LAFITE.CHECK.DUPLICATE 32646 . 33328) (\LAFITE.REPORT.DUPLICATES 33330 . 34262) ( +BADMAILFILE 34264 . 38197) (BADMAILFILE.CLOSEFN 38199 . 38471) (BADMAILFILE.FLAGBYTE 38473 . 38625) ( +VERIFYMAILFOLDER 38627 . 41158) (VERIFYFAILED 41160 . 41293) (\LAFITE.READ.TOC.FILE 41295 . 46741) ( +BADTOCFILE 46743 . 47092) (\LAFITE.TOCEOF 47094 . 47333) (LA.READCOUNT 47335 . 47995) (LA.READSTAMP +47997 . 48317) (LA.PRINTHEADER 48319 . 50582) (LA.PRINTCOUNT 50584 . 50782) (LA.PRINTSTAMP 50784 . +51075) (LA.READSHORTSTRING 51077 . 51476) (LA.PRINTSHORTSTRING 51478 . 52206) (LA.READSTRING 52208 . +52523) (\LAFITE.VERIFYMSG 52525 . 53536) (LA.MSGFROMMEP 53538 . 54244)) (54247 63666 ( +LAFITE.PARSE.MSG.FOR.TOC 54257 . 56047) (LAFITE-EXTRACT-REAL-NAME 56049 . 57688) ( +LAFITE.FETCH.TO.FIELD 57690 . 58195) (LAFITE.PARSE.HEADER 58197 . 59843) (LAFITE.GRAB.DATE 59845 . +60094) (LAFITE.READ.LINE.FOR.TOC 60096 . 60370) (LAFITE.READ.FORMAT 60372 . 60646) ( +LAFITE.READ.NAME.FIELD 60648 . 61296) (LAFITE.READ.ONE.LINE.FOR.TOC 61298 . 61425) (LAFITE.READ.TO.EOL + 61427 . 62049) (LA.SKIP.TO.EOL 62051 . 63386) (LAFITE.SKIP.WHITE.SPACE 63388 . 63664)) (63667 64197 ( +\LAFITE.PARSE.MESSAGE 63677 . 64195)) (65157 66969 (LAFITE.INIT.PARSETABLES 65167 . 65588) ( +LAFITE.MAKE.PARSE.TABLE 65590 . 66043) (LAFITE.MAKE.PARSE.TABLE1 66045 . 66967)) (67004 69515 ( +LAFITE.NEW.PARSE.HEADER 67014 . 68835) (LAFITE.HANDLE.ORIGINAL.FIELD 68837 . 69513))))) STOP diff --git a/library/lafite/LAFITEMAIL.LCOM b/library/lafite/LAFITEMAIL.LCOM index ea18d4996..7bfdb1aa8 100644 Binary files a/library/lafite/LAFITEMAIL.LCOM and b/library/lafite/LAFITEMAIL.LCOM differ diff --git a/library/lafite/LAFITESEND.LCOM b/library/lafite/LAFITESEND.LCOM index dae40cc7c..9c9d3ee5b 100644 Binary files a/library/lafite/LAFITESEND.LCOM and b/library/lafite/LAFITESEND.LCOM differ diff --git a/lispusers/CHATEMACS.LCOM b/lispusers/CHATEMACS.LCOM index 40818b7c1..74ab48e4a 100644 Binary files a/lispusers/CHATEMACS.LCOM and b/lispusers/CHATEMACS.LCOM differ diff --git a/lispusers/DEFINERPRINT.LCOM b/lispusers/DEFINERPRINT.LCOM index 441041e9c..4a013dbb2 100644 Binary files a/lispusers/DEFINERPRINT.LCOM and b/lispusers/DEFINERPRINT.LCOM differ diff --git a/lispusers/FILEWATCH b/lispusers/FILEWATCH index 4eb5a420b..c372c3414 100644 Binary files a/lispusers/FILEWATCH and b/lispusers/FILEWATCH differ diff --git a/lispusers/FILEWATCH.LCOM b/lispusers/FILEWATCH.LCOM index 8c697521d..7b719978f 100644 Binary files a/lispusers/FILEWATCH.LCOM and b/lispusers/FILEWATCH.LCOM differ diff --git a/lispusers/ISO8859IO b/lispusers/ISO8859IO index a3e0206ab..147a29904 100644 --- a/lispusers/ISO8859IO +++ b/lispusers/ISO8859IO @@ -1,11 +1,11 @@ (DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP") -(FILECREATED "24-Apr-2021 17:06:30"  -{DSK}kaplan>Local>medley3.5>git-medley>lispusers>ISO8859IO.;3 36846 +(FILECREATED "23-Jun-2021 17:00:30"  +{DSK}kaplan>Local>medley3.5>git-medley>lispusers>ISO8859IO.;10 22675 - changes to%: (FNS \8859OUTCHARFN \8859INCCODEFN \8859PEEKCCODEFN MAKEISOFORMAT) + changes to%: (FNS MAKEISOFORMAT MAKEIBMFORMAT MAKEMACFORMAT) - previous date%: "24-Apr-2021 17:06:06" -{DSK}kaplan>Local>medley3.5>git-medley>lispusers>ISO8859IO.;2) + previous date%: "15-Jun-2021 13:53:42" +{DSK}kaplan>Local>medley3.5>git-medley>lispusers>ISO8859IO.;9) (* ; " @@ -15,7 +15,7 @@ Copyright (c) 1995-1997, 1999, 2021 by Xerox Corporation. (PRETTYCOMPRINT ISO8859IOCOMS) (RPAQQ ISO8859IOCOMS - ( + [ (* ;; "This package defines EXTERNALFORMATS for files that are encoded in either ISO8859/1, the standard IBM extended ascii, or the usual MAC encoding.") (COMS (* ; "ISO8859/1") @@ -35,23 +35,10 @@ Copyright (c) 1995-1997, 1999, 2021 by Xerox Corporation. (P (MAKEMACFORMAT))) (COMS (* ; "Independent of char encoding") (FNS \COMMONBACKCHARFN \MAKERECODEMAP \RECODECCODE)) - (DECLARE%: EVAL@COMPILE DONTCOPY [P (EVAL (SYSRECLOOK1 'EXTERNALFORMAT] - - (* ;; "From FILEIO") - - (CONSTANTS (\NORUNCODE 255)) - - (* ;; "From LLCHAR") - - (CONSTANTS (NSCHARSETSHIFT 255)) - - (* ;; "From LLREAD") - - (MACROS \XCCSIN \XCCSPEEK \BACKXCCSCHAR) - - (* ;; "From MODARITH") - - (MACROS UNFOLD)))) + (DECLARE%: EVAL@COMPILE DONTCOPY (P (OR (GETP 'EXPORTS.ALL 'FILE) + (PRINT + "NOTE: ISO8859IO requires EXPORTS.ALL for compilation" + T]) @@ -68,58 +55,36 @@ Copyright (c) 1995-1997, 1999, 2021 by Xerox Corporation. (\8859OUTCHARFN [LAMBDA (STREAM CHARCODE) - (DECLARE (GLOBALVARS *XEROXTOISO8859MAP*)) (* ; "Edited 9-Mar-99 16:59 by rmk:") - (* ; "Edited 7-Dec-95 14:34 by ") + (DECLARE (GLOBALVARS *XEROXTOISO8859MAP*)) (* ; "Edited 5-May-2021 16:31 by rmk:") + (* ; "Edited 7-Dec-95 14:34 by ") (* ; "Edited 7-Dec-95 14:32 by ") - (* ;; "Converts CHARCODE from internal Xerox-rendering to ISO8859 before printing. Unconverted codes are left unchanged (no error). If any remaining codes are out of charset 0, the Xerox run-encoding is used (which means that y-umlaut (code 255 in iso) will confuse any readers).") + (* ;; "Converts CHARCODE from internal encoding to ISO8859 before printing.") - (\FILEOUTCHARFN STREAM (IF (IGREATERP CHARCODE 127) - THEN + (* ;; "Unconverted codes are left unchanged (no error).") - (* ;; "We know that ISO doesn't have floating accents, so only singletons are returned. We also know that it agrees with Xerox on first 128") + (* ;; "If any remaining codes are out of charset 0, the streams external format will be used. ") - (\RECODECCODE CHARCODE *XEROXTOISO8859MAP*) - ELSE CHARCODE]) + (* ;; "Calls \PRINTCCODE instead of \OUTCHAR so that recompiling is not needed if the default external format changes.") -(\8859INCCODEFN - [LAMBDA (STREAM COUNTP) (* ; "Edited 9-Mar-99 16:59 by rmk:") - (* ; "Edited 7-Dec-95 15:24 by ") - (* ; "Edited 7-Dec-95 15:19 by ") - (IF COUNTP - THEN + (\PRINTCCODE (IF (IGREATERP CHARCODE 127) + THEN - (* ;; "This is a little goofy. \NSIN passes the COUNTP flag, not the variable. It then takes the COUNT result and subtracts it out. But \XCCSIN is already subtracting from 0, giving a negative count. So we have to reverse the value here. Sigh ") + (* ;; "We know that ISO doesn't have floating accents, so only singletons are returned. We also know that it agrees with Xerox on first 128") - (LET ((COUNT 0)) - (CL:VALUES (\RECODECCODE (\XCCSIN STREAM (UNFOLD (ACCESS-CHARSET STREAM) - 256) - NIL COUNT) - *ISO8859TOXEROXMAP*) - (IMINUS COUNT))) - ELSE (\RECODECCODE (\XCCSIN STREAM (UNFOLD (ACCESS-CHARSET STREAM) - 256)) - *ISO8859TOXEROXMAP*]) + (\RECODECCODE CHARCODE *XEROXTOISO8859MAP*) + ELSE CHARCODE) + STREAM]) -(\8859PEEKCCODEFN - [LAMBDA (STREAM NOERROR COUNTP) (* ; "Edited 9-Mar-99 16:59 by rmk:") - (* ; "Edited 3-Jan-96 14:21 by ") - (* ; "Edited 7-Dec-95 15:51 by ") +(\8859INCCODEFN [LAMBDA (STRM BYTECOUNTVAR BYTECOUNTVAL) (* ; "Edited 15-Jun-2021 13:50 by rmk:") (* ; "Edited 7-Dec-95 15:24 by ") (* ; "Edited 7-Dec-95 15:19 by ") (CL:WHEN BYTECOUNTVAR (SET BYTECOUNTVAR (SUB1 BYTECOUNTVAL))) (\RECODECCODE (\BIN STRM) *ISO8859TOXEROXMAP*]) - (* ;; "Uses \XCCSPEEK to handle Xerox run-coding") +(\8859PEEKCCODEFN + [LAMBDA (STRM NOERROR) (* ; "Edited 5-May-2021 17:44 by rmk:") + (* ; "Edited 3-Jan-96 14:21 by ") + (* ; "Edited 7-Dec-95 15:51 by ") (* ; "Edited 7-Dec-95 15:19 by ") - (LET (PCODE (COUNT 0)) - (SETQ PCODE (IF COUNTP - THEN (\XCCSPEEK STREAM (UNFOLD (ACCESS-CHARSET STREAM) - 256) - NIL NOERROR COUNT) - ELSE (\XCCSPEEK STREAM (UNFOLD (ACCESS-CHARSET STREAM) - 256) - NIL NOERROR))) - (IF COUNTP - THEN (CL:VALUES (AND PCODE (\RECODECCODE PCODE *ISO8859TOXEROXMAP*)) - COUNT) - ELSE (AND PCODE (\RECODECCODE PCODE *ISO8859TOXEROXMAP*]) + (\RECODECCODE (\PEEKCCODE STRM NOERROR) + *ISO8859TOXEROXMAP*]) ) (DECLARE%: DOEVAL@COMPILE DONTCOPY @@ -128,9 +93,9 @@ Copyright (c) 1995-1997, 1999, 2021 by Xerox Corporation. (DEFINEQ (MAKEISOFORMAT - [LAMBDA NIL (* ; "Edited 24-Apr-2021 17:01 by rmk:") - (* ; "Edited 9-Mar-99 17:19 by rmk:") - (* ; "Edited 7-Dec-95 16:24 by ") + [LAMBDA NIL (* ; "Edited 23-Jun-2021 17:00 by rmk:") + (* ; "Edited 9-Mar-99 17:19 by rmk:") + (* ; "Edited 7-Dec-95 16:24 by ") (* ; "Edited 7-Dec-95 16:20 by ") (LET [(XEROXTOISO '((61217 160) (61291 166) @@ -212,11 +177,12 @@ Copyright (c) 1995-1997, 1999, 2021 by Xerox Corporation. (61805 376] (SETQ *XEROXTOISO8859MAP* (\MAKERECODEMAP XEROXTOISO)) (SETQ *ISO8859TOXEROXMAP* (\MAKERECODEMAP XEROXTOISO T))) - (\INSTALL.EXTERNALFORMAT :ISO8859/1 (CREATE EXTERNALFORMAT - INCCODEFN _ (FUNCTION \8859INCCODEFN) - PEEKCCODEFN _ (FUNCTION \8859PEEKCCODEFN) - BACKCHARFN _ (FUNCTION \COMMONBACKCHARFN) - FILEOUTCHARFN _ (FUNCTION \8859OUTCHARFN]) + (\INSTALL.EXTERNALFORMAT (CREATE EXTERNALFORMAT + NAME _ :ISO8859/1 + INCCODEFN _ (FUNCTION \8859INCCODEFN) + PEEKCCODEFN _ (FUNCTION \8859PEEKCCODEFN) + BACKCCODEFN _ (FUNCTION \COMMONBACKCHARFN) + OUTCHARFN _ (FUNCTION \8859OUTCHARFN]) ) (MAKEISOFORMAT) @@ -228,55 +194,26 @@ Copyright (c) 1995-1997, 1999, 2021 by Xerox Corporation. (DEFINEQ (\IBMOUTCHARFN - [LAMBDA (STREAM CHARCODE) (* ; "Edited 9-Mar-99 16:59 by rmk:") - - (* ;; "Converts CHARCODE from internal Xerox-rendering to IBM before printing. Unconverted codes are left unchanged (no error). If any remaining codes are out of charset 0, the Xerox run-encoding is used (which means that y-umlaut (code 255 in iso) will confuse any readers).") + [LAMBDA (STREAM CHARCODE) (* ; "Edited 5-May-2021 16:38 by rmk:") + (\PRINTCCODE (IF (IGREATERP CHARCODE 127) + THEN - (\FILEOUTCHARFN STREAM (IF (IGREATERP CHARCODE 127) - THEN + (* ;; "We know that IBM doesn't have floating accents, so only singletons are returned. We also know that it agrees with Xerox on first 128") - (* ;; "We know that IBM doesn't have floating accents, so only singletons are returned. We also know that it agrees with Xerox on first 128") + (\RECODECCODE CHARCODE *XEROXTOIBMMAP*) + ELSE CHARCODE) + STREAM]) - (\RECODECCODE CHARCODE *XEROXTOIBMMAP*) - ELSE CHARCODE]) - -(\IBMINCCODEFN - [LAMBDA (STREAM COUNTP) (* ; "Edited 9-Mar-99 16:59 by rmk:") - (* ; "Edited 8-Dec-95 13:23 by ") - - (* ;; "Uses \XCCSIN to handle Xerox run-coding") - (* ; "Edited 7-Dec-95 15:19 by ") - (IF COUNTP - THEN (LET ((COUNT 0)) - (CL:VALUES (\RECODECCODE (\XCCSIN STREAM (UNFOLD (ACCESS-CHARSET STREAM) - 256) - NIL COUNT) - *IBMTOXEROXMAP*) - (IMINUS COUNT))) - ELSE (\RECODECCODE (\XCCSIN STREAM (UNFOLD (ACCESS-CHARSET STREAM) - 256)) - *IBMTOXEROXMAP*]) +(\IBMINCCODEFN [LAMBDA (STRM BYTECOUNTVAR BYTECOUNTVAL) (* ; "Edited 15-Jun-2021 13:50 by rmk:") (* ; "Edited 8-Dec-95 13:23 by ") (* ; "Edited 7-Dec-95 15:19 by ") (CL:WHEN BYTECOUNTVAR (SET BYTECOUNTVAR (SUB1 BYTECOUNTVAL))) (\RECODECCODE (\BIN STRM) *IBMTOXEROXMAP*]) (\IBMPEEKCCODEFN - [LAMBDA (STREAM NOERROR COUNTP) (* ; "Edited 9-Mar-99 16:59 by rmk:") - (* ; "Edited 3-Jan-96 14:23 by ") - (* ; "Edited 8-Dec-95 13:24 by ") - (* ; "Edited 7-Dec-95 15:51 by ") - - (* ;; "Uses \XCCSPEEK to handle Xerox run-coding") + [LAMBDA (STRM NOERROR COUNTP) (* ; "Edited 5-May-2021 17:44 by rmk:") + (* ; "Edited 3-Jan-96 14:23 by ") + (* ; "Edited 8-Dec-95 13:24 by ") + (* ; "Edited 7-Dec-95 15:51 by ") (* ; "Edited 7-Dec-95 15:19 by ") - (LET (PCODE (COUNT 0)) - (SETQ PCODE (IF COUNTP - THEN (\XCCSPEEK STREAM (UNFOLD (ACCESS-CHARSET STREAM) - 256) - NIL NOERROR COUNT) - ELSE (\XCCSPEEK STREAM (UNFOLD (ACCESS-CHARSET STREAM) - 256) - NIL NOERROR))) - (IF COUNTP - THEN (CL:VALUES (AND PCODE (\RECODECCODE PCODE *IBMTOXEROXMAP*)) - COUNT) - ELSE (AND PCODE (\RECODECCODE PCODE *IBMTOXEROXMAP*]) + (\RECODECCODE (\PEEKCCODE STRM NOERROR) + *IBMTOXEROXMAP*]) ) (DECLARE%: DOEVAL@COMPILE DONTCOPY @@ -285,7 +222,7 @@ Copyright (c) 1995-1997, 1999, 2021 by Xerox Corporation. (DEFINEQ (MAKEIBMFORMAT - [LAMBDA NIL (* ; "Edited 9-Mar-99 17:33 by rmk:") + [LAMBDA NIL (* ; "Edited 23-Jun-2021 17:00 by rmk:") (LET [(XEROXTOIBM '((61217 255) (61291 166) (8994 168) @@ -375,11 +312,12 @@ Copyright (c) 1995-1997, 1999, 2021 by Xerox Corporation. (191 168] (SETQ *XEROXTOIBMMAP* (\MAKERECODEMAP XEROXTOIBM)) (SETQ *IBMTOXEROXMAP* (\MAKERECODEMAP XEROXTOIBM T)) - (\INSTALL.EXTERNALFORMAT :IBM (CREATE EXTERNALFORMAT - INCCODEFN _ (FUNCTION \IBMINCCODEFN) - PEEKCCODEFN _ (FUNCTION \IBMPEEKCCODEFN) - BACKCHARFN _ (FUNCTION \COMMONBACKCHARFN) - FILEOUTCHARFN _ (FUNCTION \IBMOUTCHARFN]) + (\INSTALL.EXTERNALFORMAT (CREATE EXTERNALFORMAT + NAME _ :IBM + INCCODEFN _ (FUNCTION \IBMINCCODEFN) + PEEKCCODEFN _ (FUNCTION \IBMPEEKCCODEFN) + BACKCCODEFN _ (FUNCTION \COMMONBACKCHARFN) + OUTCHARFN _ (FUNCTION \IBMOUTCHARFN]) ) (MAKEIBMFORMAT) @@ -391,54 +329,33 @@ Copyright (c) 1995-1997, 1999, 2021 by Xerox Corporation. (DEFINEQ (\MACOUTCHARFN - [LAMBDA (STREAM CHARCODE) (* ; "Edited 9-Mar-99 16:59 by rmk:") + [LAMBDA (STREAM CHARCODE) (* ; "Edited 5-May-2021 16:28 by rmk:") - (* ;; "Converts CHARCODE from internal Xerox-rendering to MAC before printing. Unconverted codes are left unchanged (no error). If any remaining codes are out of charset 0, the Xerox run-encoding is used (which means that code 255 will confuse any readers).") + (* ;; "Converts CHARCODE from internal encoding to MAC before printing.") - (\FILEOUTCHARFN STREAM (IF (IGREATERP CHARCODE 127) - THEN + (* ;; "Unconverted codes are left unchanged (no error).") - (* ;; "We know that MAC doesn't have floating accents, so only singletons are returned. We also know that it agrees with Xerox on first 128") + (* ;; "If any remaining codes are out of charset 0, the streams external format will be used.") - (\RECODECCODE CHARCODE *XEROXTOMACMAP*) - ELSE CHARCODE]) + (* ;; "Calls \PRINTCCODE instead of \OUTCHAR so that recompiling is not needed if the default external format changes.") -(\MACINCCODEFN - [LAMBDA (STREAM COUNTP) (* ; "Edited 9-Mar-99 16:59 by rmk:") - (* ; "Edited 8-Dec-95 13:29 by ") + (\PRINTCCODE (IF (IGREATERP CHARCODE 127) + THEN + + (* ;; "We know that MAC doesn't have floating accents, so only singletons are returned. We also know that it agrees with Xerox on first 128") - (* ;; "Uses \XCCSIN to handle Xerox run-coding") + (\RECODECCODE CHARCODE *XEROXTOMACMAP*) + ELSE CHARCODE) + STREAM]) - (IF COUNTP - THEN (LET ((COUNT 0)) - (CL:VALUES (\RECODECCODE (\XCCSIN STREAM (UNFOLD (ACCESS-CHARSET STREAM) - 256) - NIL COUNT) - *MACTOXEROXMAP*) - (IMINUS COUNT))) - ELSE (\RECODECCODE (\XCCSIN STREAM (UNFOLD (ACCESS-CHARSET STREAM) - 256)) - *MACTOXEROXMAP*]) +(\MACINCCODEFN [LAMBDA (STRM BYTECOUNTVAR BYTECOUNTVAL) (* ; "Edited 15-Jun-2021 13:50 by rmk:") (* ; "Edited 8-Dec-95 13:29 by ") (CL:WHEN BYTECOUNTVAR (SET BYTECOUNTVAR (SUB1 BYTECOUNTVAL))) (\RECODECCODE (\BIN STRM) *MACTOXEROXMAP*]) (\MACPEEKCCODEFN - [LAMBDA (STREAM NOERROR COUNTP) (* ; "Edited 9-Mar-99 16:59 by rmk:") - (* ; "Edited 3-Jan-96 14:23 by ") + [LAMBDA (STRM NOERROR COUNTP) (* ; "Edited 5-May-2021 17:44 by rmk:") + (* ; "Edited 3-Jan-96 14:23 by ") (* ; "Edited 8-Dec-95 13:29 by ") - - (* ;; "Uses \XCCSPEEK to handle Xerox run-coding") - - (LET (PCODE (COUNT 0)) - (SETQ PCODE (IF COUNTP - THEN (\XCCSPEEK STREAM (UNFOLD (ACCESS-CHARSET STREAM) - 256) - NIL NOERROR COUNT) - ELSE (\XCCSPEEK STREAM (UNFOLD (ACCESS-CHARSET STREAM) - 256) - NIL NOERROR))) - (IF COUNTP - THEN (CL:VALUES (AND PCODE (\RECODECCODE PCODE *MACTOXEROXMAP*)) - COUNT) - ELSE (AND PCODE (\RECODECCODE PCODE *MACTOXEROXMAP*]) + (\RECODECCODE (\PEEKCCODE STRM NOERROR) + *MACTOXEROXMAP*]) ) (DECLARE%: DOEVAL@COMPILE DONTCOPY @@ -447,8 +364,8 @@ Copyright (c) 1995-1997, 1999, 2021 by Xerox Corporation. (DEFINEQ (MAKEMACFORMAT - [LAMBDA NIL (* ; "Edited 9-Mar-99 17:32 by rmk:") - (* ; "Edited 7-Dec-95 16:24 by ") + [LAMBDA NIL (* ; "Edited 23-Jun-2021 17:00 by rmk:") + (* ; "Edited 7-Dec-95 16:24 by ") (* ; "Edited 7-Dec-95 16:20 by ") (* ;; "Note: This maps some characters into sequences--only the first in the sequence will appear. Sigh.") @@ -561,11 +478,12 @@ Copyright (c) 1995-1997, 1999, 2021 by Xerox Corporation. (61249 228] (SETQ *XEROXTOMACMAP* (\MAKERECODEMAP XEROXTOMAC)) (SETQ *MACTOXEROXMAP* (\MAKERECODEMAP XEROXTOMAC T)) - (\INSTALL.EXTERNALFORMAT :MACINTOSH (CREATE EXTERNALFORMAT - INCCODEFN _ (FUNCTION \MACINCCODEFN) - PEEKCCODEFN _ (FUNCTION \MACPEEKCCODEFN) - BACKCHARFN _ (FUNCTION \COMMONBACKCHARFN) - FILEOUTCHARFN _ (FUNCTION \MACOUTCHARFN]) + (\INSTALL.EXTERNALFORMAT (CREATE EXTERNALFORMAT + NAME _ :MACINTOSH + INCCODEFN _ (FUNCTION \MACINCCODEFN) + PEEKCCODEFN _ (FUNCTION \MACPEEKCCODEFN) + BACKCCODEFN _ (FUNCTION \COMMONBACKCHARFN) + OUTCHARFN _ (FUNCTION \MACOUTCHARFN]) ) (MAKEMACFORMAT) @@ -576,17 +494,7 @@ Copyright (c) 1995-1997, 1999, 2021 by Xerox Corporation. (DEFINEQ -(\COMMONBACKCHARFN - [LAMBDA (STREAM COUNTP) (* ; "Edited 29-Mar-96 10:55 by rmk") - (* ; "Edited 8-Dec-95 13:26 by ") - - (* ;; "Let \BACKXCCSCHAR handle the run-coding. The charset in the stream is the charset byte, unconverted to ISO. This is independent of the particular character translation.") - - (IF COUNTP - THEN (LET ((COUNT 0)) - (\BACKXCCSCHAR STREAM COUNT) - COUNT) - ELSE (\BACKXCCSCHAR STREAM NIL]) +(\COMMONBACKCHARFN [LAMBDA (STRM BYTECOUNTVAR BYTECOUNTVAL) (* ; "Edited 15-Jun-2021 13:53 by rmk:") (* ; "Edited 8-Dec-95 13:26 by ") (CL:WHEN (\BACKFILEPTR STRM) (AND BYTECOUNTVAR (SET BYTECOUNTVAR (ADD1 BYTECOUNTVAL))) T)]) (\MAKERECODEMAP [LAMBDA (CODEMAP INVERTED) (* ; "Edited 9-Mar-99 17:23 by rmk:") @@ -622,160 +530,15 @@ Copyright (c) 1995-1997, 1999, 2021 by Xerox Corporation. ) (DECLARE%: EVAL@COMPILE DONTCOPY -(EVAL (SYSRECLOOK1 'EXTERNALFORMAT)) - -(DECLARE%: EVAL@COMPILE - -(RPAQQ \NORUNCODE 255) - - -(CONSTANTS (\NORUNCODE 255)) -) - -(DECLARE%: EVAL@COMPILE - -(RPAQQ NSCHARSETSHIFT 255) - - -(CONSTANTS (NSCHARSETSHIFT 255)) -) - -(DECLARE%: EVAL@COMPILE - -(PUTPROPS \XCCSIN MACRO [(STREAM SHIFTEDCSET SHIFTEDCSETVAR COUNTERVAR) - -(* ;;; "returns a 16 bit character code. SHIFTEDCSET is STREAM's char set left shifted 8, SHIFTEDCSETVAR if non-NIL is the variable to set if char set changes. COUNTERVAR if non-NIL is decremented by number of bytes read. Doesn't do EOL conversion -- \INCHAR and \INCCODE do that.") - - (LET ((CHAR (\BIN STREAM)) - SCSET) - (COND - [(EQ CHAR NSCHARSETSHIFT) - (* ; "Shifting character sets") - [ACCESS-CHARSET STREAM - (SETQ SCSET (COND - ((NEQ NSCHARSETSHIFT (SETQ CHAR - (\BIN STREAM))) - (AND 'COUNTERVAR (SETQ COUNTERVAR - (IDIFFERENCE - COUNTERVAR 2))) - CHAR) - ((PROGN - (* ; - "2 shift-bytes means not run-encoded") - (AND 'COUNTERVAR - (SETQ COUNTERVAR - (IDIFFERENCE COUNTERVAR - 3))) - (EQ 0 (\BIN STREAM))) - \NORUNCODE) - (T (\NSIN.24BITENCODING.ERROR STREAM] - (SETQ CHAR (\BIN STREAM)) - (SETQ SCSET (COND - ('SHIFTEDCSETVAR - (* ; "CHARSETVAR=NIL means don't set") - (SETQ SHIFTEDCSETVAR (UNFOLD SCSET - 256))) - (T (UNFOLD SCSET 256] - (T (SETQ SCSET SHIFTEDCSET))) - (COND - ((EQ SCSET (UNFOLD \NORUNCODE 256)) - (* ; - "just read two bytes and combine them to a 16 bit value") - (AND 'COUNTERVAR (SETQ COUNTERVAR (IDIFFERENCE COUNTERVAR 2 - ))) - (LOGOR (UNFOLD CHAR 256) - (\BIN STREAM))) - (CHAR (AND 'COUNTERVAR (SETQ COUNTERVAR (IDIFFERENCE - COUNTERVAR 1) - )) - (AND CHAR (LOGOR SCSET CHAR]) - -(PUTPROPS \XCCSPEEK MACRO [(STREAM SHIFTEDCSET SHIFTEDCSETVAR NOERROR COUNTERVAR) - - (* ;; "Returns a 16 bit character code. Doesn't do EOL conversion--\INCHAR does that. May actually read the character-set shift, storing the result in the stream. COUNTERVAR, if given, is updated to reflect any such bytes that are actually read") - - (PROG ((CHAR (\PEEKBIN STREAM NOERROR)) - SCSET) - (COND - ((NULL CHAR) - (RETURN NIL)) - [(EQ CHAR NSCHARSETSHIFT) - (* ; "CHARSETVAR=NIL means don't set") - (\BIN STREAM) (* ; "Consume the char shift byte") - [ACCESS-CHARSET STREAM - (SETQ SCSET (COND - ((NEQ NSCHARSETSHIFT - (SETQ CHAR (\BIN STREAM))) - (* ; - "Note: no eof error check on this \BIN -- an eof in the middle of a charset shift is an error") - (AND 'COUNTERVAR - (SETQ COUNTERVAR - (IDIFFERENCE COUNTERVAR 2)) - ) - CHAR) - ((PROGN - (* ; - "2 shift-bytes means not run-encoded") - (AND 'COUNTERVAR - (SETQ COUNTERVAR - (IDIFFERENCE - COUNTERVAR 3) - )) - (EQ 0 (\BIN STREAM))) - \NORUNCODE) - (T (\NSIN.24BITENCODING.ERROR - STREAM] - [SETQ SCSET (COND - ('SHIFTEDCSETVAR - (* ; "CHARSETVAR=NIL means don't set") - (SETQ SHIFTEDCSETVAR - (UNFOLD SCSET 256))) - (T (UNFOLD SCSET 256] - (COND - ((NULL (SETQ CHAR (\PEEKBIN STREAM NOERROR))) - (RETURN NIL] - (T (SETQ SCSET SHIFTEDCSET))) - (RETURN (COND - ((EQ SCSET (UNFOLD \NORUNCODE 256)) - - (* ;; "just peek two bytes and combine them to a 16 bit value. Again, is an error if we hit eof in mid-character") - - (\BIN STREAM) - (PROG1 (LOGOR (UNFOLD CHAR 256) - (\PEEKBIN STREAM NOERROR)) - (\BACKFILEPTR STREAM))) - (T (LOGOR SHIFTEDCSET CHAR]) - -(PUTPROPS \BACKXCCSCHAR MACRO [(STREAM SHIFTEDCHARSET COUNTERVAR) - (AND (\BACKFILEPTR STREAM) - (COND - [[COND - (SHIFTEDCHARSET (EQ SHIFTEDCHARSET - (UNFOLD \NORUNCODE 256))) - (T (EQ \NORUNCODE (ACCESS-CHARSET STREAM] - (COND - ((\BACKFILEPTR STREAM) - (AND 'COUNTERVAR (add COUNTERVAR 2)) - T) - ('COUNTERVAR (add COUNTERVAR 1] - ('COUNTERVAR (add COUNTERVAR 1]) -) - -(DECLARE%: EVAL@COMPILE - -(PUTPROPS UNFOLD MACRO [X (PROG [(FORM (CAR X)) - (DIVISOR (CAR (CONSTANTEXPRESSIONP (CADR X] - (OR (AND DIVISOR (POWEROFTWOP DIVISOR)) - (\ILLEGAL.ARG (CADR X))) - (RETURN (LIST 'LLSH FORM (SUB1 (INTEGERLENGTH DIVISOR]) -) +(OR (GETP 'EXPORTS.ALL 'FILE) + (PRINT "NOTE: ISO8859IO requires EXPORTS.ALL for compilation" T)) ) (PUTPROPS ISO8859IO COPYRIGHT ("Xerox Corporation" 1995 1996 1997 1999 2021)) (DECLARE%: DONTCOPY - (FILEMAP (NIL (2391 5846 (\8859OUTCHARFN 2401 . 3463) (\8859INCCODEFN 3465 . 4657) (\8859PEEKCCODEFN -4659 . 5844)) (5938 9711 (MAKEISOFORMAT 5948 . 9709)) (9771 12858 (\IBMOUTCHARFN 9781 . 10606) ( -\IBMINCCODEFN 10608 . 11578) (\IBMPEEKCCODEFN 11580 . 12856)) (12942 16693 (MAKEIBMFORMAT 12952 . -16691)) (16741 19512 (\MACOUTCHARFN 16751 . 17558) (\MACINCCODEFN 17560 . 18431) (\MACPEEKCCODEFN -18433 . 19510)) (19596 24385 (MAKEMACFORMAT 19606 . 24383)) (24452 26736 (\COMMONBACKCHARFN 24462 . -25057) (\MAKERECODEMAP 25059 . 26289) (\RECODECCODE 26291 . 26734))))) + (FILEMAP (NIL (2172 4321 (\8859OUTCHARFN 2182 . 3323) (\8859INCCODEFN 3325 . 3798) (\8859PEEKCCODEFN +3800 . 4319)) (4413 8190 (MAKEISOFORMAT 4423 . 8188)) (8250 9861 (\IBMOUTCHARFN 8260 . 8769) ( +\IBMINCCODEFN 8771 . 9239) (\IBMPEEKCCODEFN 9241 . 9859)) (9945 13722 (MAKEIBMFORMAT 9955 . 13720)) ( +13770 15455 (\MACOUTCHARFN 13780 . 14675) (\MACINCCODEFN 14677 . 15041) (\MACPEEKCCODEFN 15043 . 15453 +)) (15539 20338 (MAKEMACFORMAT 15549 . 20336)) (20405 22437 (\COMMONBACKCHARFN 20415 . 20758) ( +\MAKERECODEMAP 20760 . 21990) (\RECODECCODE 21992 . 22435))))) STOP diff --git a/lispusers/ISO8859IO.LCOM b/lispusers/ISO8859IO.LCOM index c31c5fe17..9d908f91d 100644 Binary files a/lispusers/ISO8859IO.LCOM and b/lispusers/ISO8859IO.LCOM differ diff --git a/lispusers/MACINTERFACE b/lispusers/MACINTERFACE deleted file mode 100644 index e2a65baa0..000000000 --- a/lispusers/MACINTERFACE +++ /dev/null @@ -1,466 +0,0 @@ -(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP") -(FILECREATED "22-Feb-2021 14:01:07"  -{DSK}kaplan>Local>medley3.5>git-medley>lispusers>MACINTERFACE.;78 20371 - - changes to%: (VARS MACINTERFACECOMS) - - previous date%: "22-Feb-2021 12:56:21" -{DSK}kaplan>Local>medley3.5>git-medley>lispusers>MACINTERFACE.;77) - - -(PRETTYCOMPRINT MACINTERFACECOMS) - -(RPAQQ MACINTERFACECOMS - [ - (* ;; "Externals") - - (COMS (FNS MACWINDOW MACWINDOW.SETUP UNMACWINDOW MACWINDOW.UNSETUP) - (INITVARS (MACWINDOWMARGIN 25))) - - (* ;; "Internals") - - [COMS (FNS MACWINDOW.BUTTONEVENTFN MACWINDOW.BUTTONEVENTFN.ANYWHERE NEARTOP NEARESTCORNER - INCORNER.REGION) - - (* ;; "Behavior for some known window creators") - - (FNS MACINT-ADD-EXEC MACINT-SNAPW) - (FNS TEDIT.MACINTERFACE TEDIT.SELECTALL) - (FNS TOTOPW.MACINTERFACE) - (P (MOVD 'TOTOPW.MACINTERFACE 'TOTOPW.MODERNIZE) - (MOVD 'MACWINDOW 'MODERNWINDOW) - (MOVD 'UNMACWINDOW 'UNMODERNWINDOW)) - (DECLARE%: DONTEVAL@LOAD DOCOPY (P (TEDIT.MACINTERFACE) - - (* ;; "Inspector") - - (MACWINDOW.SETUP '\ITEM.WINDOW.BUTTON.HANDLER) - - - (* ;; "Commonlisp array inspector. If you move the main window, the little attached window doesn't move. But if you move the attached window, it all works. Needs a special definition. Shaping doesn't work either") - - (* (MACWINDOW.SETUP 'ONEDINSPECT.BUTTONEVENTFN)) - (MACWINDOW.SETUP 'ICMLARRAY.TITLECOMMANDFN) - - (* ;; "Freemenu") - - (MACWINDOW.SETUP '\FM.BUTTONEVENTFN) - - (* ;; "SEDIT") - - (MACWINDOW.SETUP 'SEDIT::BUTTONEVENTFN) - - (* ;; "Debugger") - - (MACWINDOW.SETUP 'DBG::DEBUGGER-BUTTON-EVENT) - - (* ;; "Snap") - - (MACWINDOW.SETUP 'SNAPW 'MACINT-SNAPW) - - (* ;; "New execs") - - (MACWINDOW.SETUP 'ADD-EXEC 'MACINT-ADD-EXEC) - - (* ;; "Existing exec of the load") - - (MACWINDOW (PROCESSPROP (TTY.PROCESS) - 'WINDOW)) - - (* ;; "Table browser (for filebrowser)") - - (MACWINDOW.SETUP 'TB.BUTTONEVENTFN) - - (* ;; "Grapher") - - (MACWINDOW.SETUP 'APPLYTOSELECTEDNODE) - - (* ;; "Promptwindow") - - (MACWINDOW PROMPTWINDOW T] - (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA) - (NLAML) - (LAMA MACINT-ADD-EXEC]) - - - -(* ;; "Externals") - -(DEFINEQ - -(MACWINDOW - [LAMBDA (WINDOW ANYWHERE) (* ; "Edited 23-Jun-2020 16:01 by rmk:") - - (* ;; "This can be applied to windows that have been created with an unknown or unmodifiable buttoneventfn.") - - (CL:UNLESS (WINDOWPROP WINDOW 'PREMACBUTTONEVENTFN) - (WINDOWPROP WINDOW 'PREMACBUTTONEVENTFN (WINDOWPROP WINDOW 'BUTTONEVENTFN)) - (WINDOWPROP WINDOW 'BUTTONEVENTFN (IF ANYWHERE - THEN (FUNCTION MACWINDOW.BUTTONEVENTFN.ANYWHERE) - ELSE (FUNCTION MACWINDOW.BUTTONEVENTFN)))) - WINDOW]) - -(MACWINDOW.SETUP - [LAMBDA (ORIGFN MACWINDOWFN ANYWHERE) (* ; "Edited 13-Feb-2021 19:53 by rmk:") - - (* ;; "ORIGFN is either a function that creates windows of a given type (e.g. SNAPW or ADD-EXEC) or the known BUTTONEVENTFN of a class of windows.") - - (* ;; "Moves ORIGNFN to a new name, prefixed with MACORIG-.") - - (* ;; "If MACWINDOWFN is given, then that replaces the original definition of ORIGFN, and presumably knows how to call the renamed ORIGFN under the right circumstances. This is typically the case where ORIGFN is a window creator.") - - (* ;; "Otherwise, ORIGFN is taken to be the BUTTONEVENTFN for a class of windows, and its new definition is defaulted to one that maps left-clicks in appropriate areas into Mac window operations. If not in appropriate areas, then the renamed ORIGNFN is called to give the original button behavior.") - - (* ;; "If ANYWHERE, moving will happen for any click not in one of the shaping corners.") - - (* ;; "The renamed function has arguments in addition to WINDOW: the new name for the original function, if MACWINDOFN is provided, and the value specified here for ANYWHERE.") - - (LET [RENAMEDORIG (PKGNAME (CL:PACKAGE-NAME (CL:SYMBOL-PACKAGE ORIGFN] - - (* ;; "The renamed version of XCL symbols go into Interlisp, so there is less confusion about accessing it") - - (CL:WHEN (STREQUAL PKGNAME "XEROX-COMMON-LISP") - (SETQ PKGNAME "INTERLISP")) - (SETQ RENAMEDORIG (CL:INTERN (CONCAT 'MACORIG- ORIGFN) - PKGNAME)) - (MOVD? ORIGFN RENAMEDORIG) - (IF MACWINDOWFN - THEN (MOVD MACWINDOWFN ORIGFN) - ELSE (PUTD ORIGFN `(LAMBDA (WINDOW) - (MACWINDOW.BUTTONEVENTFN WINDOW (FUNCTION ,RENAMEDORIG) - ,ANYWHERE]) - -(UNMACWINDOW - [LAMBDA (WINDOW) (* ; "Edited 7-Dec-2020 17:57 by rmk:") - - (* ;; "Restores original window behavior") - - (CL:WHEN (WINDOWPROP WINDOW 'PREMACBUTTONEVENTFN) - (WINDOWPROP WINDOW 'BUTTONEVENTFN (WINDOWPROP WINDOW 'PREMACBUTTONEVENTFN)) - (WINDOWPROP WINDOW 'PREMACBUTTONEVENTFN NIL)) - WINDOW]) - -(MACWINDOW.UNSETUP - [LAMBDA (ORIGFN) (* ; "Edited 6-Jul-2020 13:04 by rmk:") - (* ; "Edited 24-Jun-2020 15:09 by rmk:") - - (* ;; "Moves the renamed original function back to its original name") - - (LET [RENAMEDORIG (PKGNAME (CL:PACKAGE-NAME (CL:SYMBOL-PACKAGE ORIGFN] - - (* ;; "The renamed version of XCL symbols go into Interlisp, so there is less confusion about accessing it") - - (CL:WHEN (STREQUAL PKGNAME "XEROX-COMMON-LISP") - (SETQ PKGNAME "INTERLISP")) - (SETQ RENAMEDORIG (CL:INTERN (CONCAT 'MACORIG- ORIGFN) - PKGNAME)) - (CL:WHEN (GETD RENAMEDORIG) - (MOVD RENAMEDORIG ORIGFN]) -) - -(RPAQ? MACWINDOWMARGIN 25) - - - -(* ;; "Internals") - -(DEFINEQ - -(MACWINDOW.BUTTONEVENTFN - [LAMBDA (WINDOW ORIGFUNCTION ANYWHERE) (* ; "Edited 14-Feb-2021 21:51 by rmk:") - (* ; "Edited 24-Jun-2020 20:23 by rmk:") - (* ; "Edited 23-May-2020 08:34 by rmk:") - (* ; "Edited 10-May-2020 03:35 by rmk:") - (* ; "Edited 3-May-2020 21:18 by rmk:") - (IF (AND (MOUSESTATE (ONLY LEFT)) - (EQ LASTKEYBOARD 0)) - THEN (TOTOPW WINDOW) - (LET [CORNER TOPMARGIN (MAINREGION (WINDOWPROP WINDOW 'REGION)) - (ATTACHEDREGION (WINDOWREGION WINDOW 'SHAPEW] - - (* ;; "If the window has a TOPMARGIN property, that tells us that it does not have a canonical title but may still have a title-like attached window just above the main window. The TOPMARGIN should be 0 in that case.") - - (* ;; "This is particularly the case of FILEBROWSER windows, where the the modified ATTACHEDWINDOWTOTOPFN drives the click here. ") - - (SETQ TOPMARGIN (IF (WINDOWPROP WINDOW 'TOPMARGIN) - ELSEIF (WINDOWPROP WINDOW 'TITLE) - THEN (FONTPROP WindowTitleDisplayStream 'HEIGHT) - ELSE MACWINDOWMARGIN)) - (SETQ CORNER (INCORNER.REGION MAINREGION TOPMARGIN)) - (IF CORNER - THEN - - (* ;; - "The upper corners may be in the title bar, near the side, so test corners before titlebar.") - - (* ;; "We are in the corner of the main window, so we are reshaping. But the ghost region should include all of the attached windows, and the starting cursor should be positioned at the corner closest to the selected corner of the main window.") - - (* ;; "WINDOWREGION includes the attached windows") - - (LET ((LEFT (FETCH LEFT OF ATTACHEDREGION)) - (RIGHT (FETCH RIGHT OF ATTACHEDREGION)) - (TOP (FETCH TOP OF ATTACHEDREGION)) - (BOTTOM (FETCH BOTTOM OF ATTACHEDREGION)) - STARTINGREGION) - - (* ;; "\CURSORPOSITION moves the mouse to the tracking corner of the ghost region, in screen coordinates, so that the mouse starts out at the tracking corner of the ghost region, even if there are attached windows (as in the filebrowser) that overhang the corner and the initiating click was at the corner of the mainwindow.") - - (CL:UNLESS (EQ 'DON'T (WINDOWPROP WINDOW 'RESHAPEFN)) - [SETQ STARTINGREGION - (GETREGION NIL NIL NIL NIL NIL - (SELECTQ CORNER - (RIGHTBOTTOM (\CURSORPOSITION RIGHT BOTTOM) - (GETMOUSESTATE) - (LIST LEFT TOP RIGHT BOTTOM)) - (LEFTBOTTOM (\CURSORPOSITION LEFT BOTTOM) - (GETMOUSESTATE) - (LIST RIGHT TOP LEFT BOTTOM)) - (RIGHTTOP (\CURSORPOSITION RIGHT TOP) - (GETMOUSESTATE) - (LIST LEFT BOTTOM RIGHT TOP)) - (LEFTTOP (\CURSORPOSITION LEFT TOP) - (GETMOUSESTATE) - (LIST RIGHT BOTTOM LEFT TOP)) - (SHOULDNT]) - (SHAPEW WINDOW STARTINGREGION)) - T - ELSEIF (OR ANYWHERE (NEARTOP MAINREGION TOPMARGIN)) - THEN (NEARESTCORNER ATTACHEDREGION) - (MOVEW WINDOW) - T - ELSEIF [OR ORIGFUNCTION (SETQ ORIGFUNCTION (WINDOWPROP WINDOW - 'PREMACBUTTONEVENTFN] - THEN (APPLY* ORIGFUNCTION WINDOW))) - ELSEIF [OR ORIGFUNCTION (SETQ ORIGFUNCTION (WINDOWPROP WINDOW 'PREMACBUTTONEVENTFN] - THEN (APPLY* ORIGFUNCTION WINDOW]) - -(MACWINDOW.BUTTONEVENTFN.ANYWHERE - [LAMBDA (WINDOW) (* ; "Edited 3-Dec-2020 14:24 by rmk:") - (* ; "Edited 24-Jun-2020 13:24 by rmk:") - - (* ;; "Move if left-click anywhere, not just titlebar") - - (MACWINDOW.BUTTONEVENTFN WINDOW NIL T]) - -(NEARTOP - [LAMBDA (MAINREGION TOPMARGIN) (* ; "Edited 12-Feb-2021 23:19 by rmk:") - - (* ;; "True if the MOUSEY is near the top of MAINREGION. That means in the title bar for titled windows, otherwise a short distance below the top of the window. (Could be in the border?)") - - (IGREATERP LASTMOUSEY (IDIFFERENCE (FETCH TOP OF MAINREGION) - TOPMARGIN]) - -(NEARESTCORNER - [LAMBDA (REGION) (* ; "Edited 14-Feb-2021 21:46 by rmk:") - - (* ;; -"Moves the cursor to the corner of REGION that is closest to the current LASTMOUSEX AND LASTMOUSEY") - - (\CURSORPOSITION (CL:IF (ILESSP (IDIFFERENCE LASTMOUSEX (FETCH LEFT OF REGION)) - (IDIFFERENCE (FETCH RIGHT OF REGION) - LASTMOUSEX)) - (FETCH LEFT OF REGION) - (FETCH RIGHT OF REGION)) - (CL:IF (ILESSP (IDIFFERENCE LASTMOUSEY (FETCH BOTTOM OF REGION)) - (IDIFFERENCE (FETCH TOP OF REGION) - LASTMOUSEY)) - (FETCH BOTTOM OF REGION) - (FETCH TOP OF REGION))]) - -(INCORNER.REGION - [LAMBDA (MAINREGION TOPMARGIN) (* ; "Edited 12-Feb-2021 23:22 by rmk:") - - (* ;; "MAINREGION, LASTMOUSEX, LASTMOUSEY in screen coordinates.") - - (* ;; "TOPMARGIN is the height of the titlebar for titled windows, otherwise the margin at the top of the window's content that we regard as the top. ") - - (IF (ILEQ (IABS (IDIFFERENCE LASTMOUSEX (FETCH LEFT OF MAINREGION))) - MACWINDOWMARGIN) - THEN (IF (NEARTOP MAINREGION TOPMARGIN) - THEN 'LEFTTOP - ELSEIF (ILEQ LASTMOUSEY (IPLUS MACWINDOWMARGIN (FETCH BOTTOM OF - MAINREGION - ))) - THEN 'LEFTBOTTOM) - ELSEIF (ILEQ (IABS (IDIFFERENCE LASTMOUSEX (FETCH RIGHT OF MAINREGION))) - MACWINDOWMARGIN) - THEN (IF (NEARTOP MAINREGION TOPMARGIN) - THEN 'RIGHTTOP - ELSEIF (ILEQ LASTMOUSEY (IPLUS MACWINDOWMARGIN (FETCH BOTTOM OF - MAINREGION - ))) - THEN 'RIGHTBOTTOM]) -) - - - -(* ;; "Behavior for some known window creators") - -(DEFINEQ - -(MACINT-ADD-EXEC - [LAMBDA U (* ; "Edited 24-Jun-2020 14:23 by rmk:") - (LET [(PROC (APPLY (FUNCTION MACORIG-ADD-EXEC) - (FOR N FROM 1 TO U COLLECT (ARG U N] - - (* ;; "For some reason, the window may not be there immediately") - - (DISMISS 100) - (MACWINDOW (PROCESSPROP PROC 'WINDOW)) - PROC]) - -(MACINT-SNAPW - [LAMBDA NIL (* ; "Edited 24-Jun-2020 13:19 by rmk:") - - (* ;; "No point in shaping a snap window, just move it.;;") - - (* ;; -"This changes the creation function (SNAPW), since snap windows otherwise don't have a BUTTONEVENTN") - - (LET ((W (MACORIG-SNAPW))) - [WINDOWPROP W 'BUTTONEVENTFN (FUNCTION (LAMBDA (W) - (TOTOPW W) - (MOVEW W] - W]) -) -(DEFINEQ - -(TEDIT.MACINTERFACE - [LAMBDA NIL (* ; "Edited 22-Feb-2021 12:56 by rmk:") - (CL:WHEN (GETD '\TEDIT.BUTTONEVENTFN) - (MACWINDOW.SETUP '\TEDIT.BUTTONEVENTFN) - - (* ;; "All") - - (TEDIT.SETFUNCTION (CHARCODE "1,a") - (FUNCTION TEDIT.SELECTALL) - TEDIT.READTABLE) - (TEDIT.SETFUNCTION (CHARCODE "1,A") - (FUNCTION TEDIT.SELECTALL) - TEDIT.READTABLE) - - (* ;; "Quit") - - (TEDIT.SETFUNCTION (CHARCODE "1,q") - (FUNCTION TEDIT.QUIT) - TEDIT.READTABLE) - (TEDIT.SETFUNCTION (CHARCODE "1,Q") - (FUNCTION TEDIT.QUIT) - TEDIT.READTABLE))]) - -(TEDIT.SELECTALL - [LAMBDA (STREAM TEXTOBJ SEL) (* ; "Edited 3-May-2020 17:29 by rmk:") - (LET [(TEXTSTREAM (TEXTSTREAM (TTY.PROCESS] - (CL:WHEN TEXTSTREAM - (TEDIT.SETSEL TEXTSTREAM 0 (ADD1 (fetch TEXTLEN of (TEXTOBJ TEXTSTREAM))) - 'LEFT))]) -) -(DEFINEQ - -(TOTOPW.MACINTERFACE - [LAMBDA (WINDOW) (* ; "Edited 13-Feb-2021 23:27 by rmk:") - - (* ;; "This replaces the TOTOPW BUTTONEVENTFN on an attached window where the click is then directed to the MAINWINDOW.") - - (TOTOPW WINDOW) - (LET ((MAIN (MAINWINDOW WINDOW T))) - (CL:WHEN MAIN - (MACWINDOW.BUTTONEVENTFN MAIN (WINDOWPROP MAIN 'BUTTONEVENTFN)))]) -) - -(MOVD 'TOTOPW.MACINTERFACE 'TOTOPW.MODERNIZE) - -(MOVD 'MACWINDOW 'MODERNWINDOW) - -(MOVD 'UNMACWINDOW 'UNMODERNWINDOW) -(DECLARE%: DONTEVAL@LOAD DOCOPY - -(TEDIT.MACINTERFACE) - - -(* ;; "Inspector") - - -(MACWINDOW.SETUP '\ITEM.WINDOW.BUTTON.HANDLER) - - -(* ;; "Commonlisp array inspector. If you move the main window, the little attached window doesn't move. But if you move the attached window, it all works. Needs a special definition. Shaping doesn't work either") - - - (* (MACWINDOW.SETUP - (QUOTE ONEDINSPECT.BUTTONEVENTFN))) - -(MACWINDOW.SETUP 'ICMLARRAY.TITLECOMMANDFN) - - -(* ;; "Freemenu") - - -(MACWINDOW.SETUP '\FM.BUTTONEVENTFN) - - -(* ;; "SEDIT") - - -(MACWINDOW.SETUP 'SEDIT::BUTTONEVENTFN) - - -(* ;; "Debugger") - - -(MACWINDOW.SETUP 'DBG::DEBUGGER-BUTTON-EVENT) - - -(* ;; "Snap") - - -(MACWINDOW.SETUP 'SNAPW 'MACINT-SNAPW) - - -(* ;; "New execs") - - -(MACWINDOW.SETUP 'ADD-EXEC 'MACINT-ADD-EXEC) - - -(* ;; "Existing exec of the load") - - -(MACWINDOW (PROCESSPROP (TTY.PROCESS) - 'WINDOW)) - - -(* ;; "Table browser (for filebrowser)") - - -(MACWINDOW.SETUP 'TB.BUTTONEVENTFN) - - -(* ;; "Grapher") - - -(MACWINDOW.SETUP 'APPLYTOSELECTEDNODE) - - -(* ;; "Promptwindow") - - -(MACWINDOW PROMPTWINDOW T) -) -(DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS - -(ADDTOVAR NLAMA ) - -(ADDTOVAR NLAML ) - -(ADDTOVAR LAMA MACINT-ADD-EXEC) -) -(DECLARE%: DONTCOPY - (FILEMAP (NIL (4238 7997 (MACWINDOW 4248 . 4889) (MACWINDOW.SETUP 4891 . 6807) (UNMACWINDOW 6809 . -7188) (MACWINDOW.UNSETUP 7190 . 7995)) (8057 16239 (MACWINDOW.BUTTONEVENTFN 8067 . 13089) ( -MACWINDOW.BUTTONEVENTFN.ANYWHERE 13091 . 13456) (NEARTOP 13458 . 13894) (NEARESTCORNER 13896 . 14775) -(INCORNER.REGION 14777 . 16237)) (16297 17274 (MACINT-ADD-EXEC 16307 . 16731) (MACINT-SNAPW 16733 . -17272)) (17275 18358 (TEDIT.MACINTERFACE 17285 . 18027) (TEDIT.SELECTALL 18029 . 18356)) (18359 18799 -(TOTOPW.MACINTERFACE 18369 . 18797))))) -STOP - diff --git a/lispusers/MACINTERFACE.LCOM b/lispusers/MACINTERFACE.LCOM deleted file mode 100644 index 71a2a9eee..000000000 Binary files a/lispusers/MACINTERFACE.LCOM and /dev/null differ diff --git a/lispusers/MACINTERFACE.TXT b/lispusers/MACINTERFACE.TXT deleted file mode 100644 index 1875ba474..000000000 --- a/lispusers/MACINTERFACE.TXT +++ /dev/null @@ -1,52 +0,0 @@ -MACINTERFACE documentation - - Ron Kaplan, June 2020 - -MACINTERFACE is a symbol Lispusers package that changes the mouse actions on Medley windows so that moving and shaping can be done in a way that approximates the behavior of windows on the Mac desktop. - -Thus, for a window that has been created or transformed in this way, you can move the window by left-clicking in the title bar and dragging the window. - -The menu behavior for other buttons in the title bar is unchanged. - -Similarly, you can reshape a window by clicking near one of its corners and dragging it out. - -For bottom corners, "near" means inside the window within MACINTERFACECORNERMARGIN (initially 25) pixels above or to the left/right of the corner. - -For top corners, "near" means within the title bar and within the margin from the left/right edges. - -(Windows that don't have a title-bar, like Snap windows, can be set up so that moving can happen by clicking anywhere, and shaping at the top is determined by the margin inside the window region.) - -When the package is loaded, this behavior is installed for the following kinds of windows: - -Tedit -Debugger/break -Sedit -Inspector -Snap -Exec - -The function MACWINDOW.SETUP establishes the new behavior for classes of windows: - -(MACWINDOW.SETUP ORIGFN MACWINDOWFN ANYWHERE) - -ORIGFN is either the name of the BUTTONEVENTFN for a class of windows (e.g. \TEDIT.BUTTONEVENTFN for Tedit windows) or it is a function that creates windows of a particulate kind (e.g. SNAPW or ADD-EXEC). - -MACWINDOW.SETUP moves the definition of ORIGFN to the name (PACK* 'MACORIG- ORIGFN), and then provides a new definition for ORIGFN that does the moving or reshaping for clicks in the triggering locations, and otherwise passes control through to the original definition. - -If ORIGNFN is a button event function, then MACWINDOWFN should not be specified. In that case a new definition for ORIGFN is constructed to provide the desired windowing behavior. - -Otherwise, if ORIGFN is the function that creates windows of a class (e.g. SNAPW), then a MACWINDOWFN should be provided to create such window (by calling (PACK* MACORIG- ORIGFN)). The definition of MACWINDOWFN replaces the original definition of ORIGFN. - -If the flag ANYWHERE is non-NIL, especially for windows without a title bar, then the moving behavior is triggered by a click anywhere in the window (except the corners). - -Because this works by redefining existing functions, it is important that the MACINTERFACE package be loaded AFTER Tedit and Sedit, if those are not already in the sysout. And it should be called to upgrade the proper functions for other window classes that might later be added (e.g. GRAPHER). - -If it is not known or it is inconvenient to systematically upgrade a button function or a window-creation function, the new behavior can be provided after a window has been created, by invoking - -(MACWINDOW WINDOW ANYWHERE) - -This saves the windows existing BUTTONEVENTFN as a window property PREMACBUTTONEVENTFN, and installs a simple stub function in its place. - -Known issue: Clicking at the bottom-right corner of Tedit windows sometimes doesn't catch the new behavior--there seems to be a conflict with Tedit's window-splitting conventions. - -A future extension might be to add an X or some circles on the left of the title bar, to implement a close/shrink behaviors. diff --git a/lispusers/MACINTERFACE.~1~ b/lispusers/MACINTERFACE.~1~ deleted file mode 100644 index 5557e464d..000000000 --- a/lispusers/MACINTERFACE.~1~ +++ /dev/null @@ -1 +0,0 @@ -(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP") (FILECREATED " 3-May-2020 20:42:00"  {DSK}kaplan>Local>medley3.5>lispcore>lispusers>MACINTERFACE.;1 604 changes to%: (FNS INTITLEBAR)) (PRETTYCOMPRINT MACINTERFACECOMS) (RPAQQ MACINTERFACECOMS ((FNS INTITLEBAR))) (DEFINEQ (INTITLEBAR [LAMBDA (WINDOW) (* ; "Edited 3-May-2020 20:38 by rmk:") (IGREATERP (LASTMOUSEY WINDOW) (FETCH TOP OF (DSPCLIPPINGREGION NIL WINDOW]) ) (PUTPROPS MACINTERFACE COPYRIGHT (NONE)) (DECLARE%: DONTCOPY (FILEMAP (NIL (308 540 (INTITLEBAR 318 . 538))))) STOP \ No newline at end of file diff --git a/lispusers/MACINTERFACE.~32~ b/lispusers/MACINTERFACE.~32~ deleted file mode 100644 index f8ded9ea2..000000000 --- a/lispusers/MACINTERFACE.~32~ +++ /dev/null @@ -1 +0,0 @@ -(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP") (FILECREATED " 1-Jun-2020 08:50:49"  {DSK}kaplan>Local>medley3.5>lispcore>lispusers>MACINTERFACE.;32 11911 changes to%: (FNS MACWINDOW.BUTTONEVENTFN MACWINDOW.BUTTONEVENTFN.ANYWHERE MACWINDOW) (VARS MACINTERFACECOMS) previous date%: "28-May-2020 18:02:27" {DSK}kaplan>Local>medley3.5>lispcore>lispusers>MACINTERFACE.;31) (PRETTYCOMPRINT MACINTERFACECOMS) (RPAQQ MACINTERFACECOMS [(FNS INTITLEBAR INCORNER MACWINDOW.BUTTONEVENTFN MACWINDOW.BUTTONEVENTFN.ANYWHERE MACWINDOW) (FNS MACINT\TEDIT.BUTTONEVENTFN MACINT\SEDIT-BUTTONEVENTFN MACINT-ADD-EXEC MACINT-DEBUGGER-BUTTON-EVENT MACINT-\ITEM.WINDOW.BUTTON.HANDLER MACINT-SNAPW) (INITVARS (MACINTERFACECORNERMARGIN 25)) (P (MOVD? '\TEDIT.BUTTONEVENTFN 'MACORIG\TEDIT.BUTTONEVENTFN) (MOVD 'MACINT\TEDIT.BUTTONEVENTFN '\TEDIT.BUTTONEVENTFN)) (P (MOVD? 'SEDIT::BUTTONEVENTFN 'MACORIG\SEDIT-BUTTONEVENTFN) (MOVD 'MACINT\SEDIT-BUTTONEVENTFN 'SEDIT::BUTTONEVENTFN)) (P (MOVD? 'ADD-EXEC 'MACORIG-ADD-EXEC) (MOVD 'MACINT-ADD-EXEC 'ADD-EXEC)) (P (MOVD? 'DBG::DEBUGGER-BUTTON-EVENT 'MACORIG-DEBUGGER-BUTTON-EVENT) (MOVD 'MACINT-DEBUGGER-BUTTON-EVENT 'DBG::DEBUGGER-BUTTON-EVENT)) (P (MOVD? '\ITEM.WINDOW.BUTTON.HANDLER 'MACORIG-\ITEM.WINDOW.BUTTON.HANDLER) (MOVD 'MACINT-\ITEM.WINDOW.BUTTON.HANDLER '\ITEM.WINDOW.BUTTON.HANDLER)) (P (MOVD? 'SNAPW 'MACORIG-SNAPW) (MOVD 'MACINT-SNAPW 'SNAPW)) (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA) (NLAML) (LAMA MACINT-ADD-EXEC]) (DEFINEQ (INTITLEBAR [LAMBDA (WINDOW) (* ; "Edited 3-May-2020 20:38 by rmk:") (IGREATERP (LASTMOUSEY WINDOW) (FETCH TOP OF (DSPCLIPPINGREGION NIL WINDOW]) (INCORNER [LAMBDA (WINDOW MARGIN) (* ; "Edited 13-May-2020 14:26 by rmk:") (* ; "Edited 10-May-2020 12:41 by rmk:") (* ; "Edited 3-May-2020 20:43 by rmk:") (CL:UNLESS MARGIN (SETQ MARGIN MACINTERFACECORNERMARGIN)) (LET ((CR (DSPCLIPPINGREGION NIL WINDOW)) (X (LASTMOUSEX WINDOW)) (Y (LASTMOUSEY WINDOW))) (IF (ILEQ (IABS (IDIFFERENCE X (FETCH LEFT OF CR))) MARGIN) THEN (* ;; "GREATERP puts it in title bar") (IF (IGREATERP Y (FETCH TOP OF CR)) THEN 'LEFTTOP ELSEIF (ILEQ (IABS (IDIFFERENCE Y (FETCH BOTTOM OF CR))) MARGIN) THEN 'LEFTBOTTOM) ELSEIF (ILEQ (IABS (IDIFFERENCE X (FETCH RIGHT OF CR))) MARGIN) THEN (IF (IGREATERP Y (FETCH TOP OF CR)) THEN 'RIGHTTOP ELSEIF (ILEQ (IABS (IDIFFERENCE Y (FETCH BOTTOM OF CR))) MARGIN) THEN 'RIGHTBOTTOM]) (MACWINDOW.BUTTONEVENTFN [LAMBDA (WINDOW) (* ; "Edited 1-Jun-2020 08:49 by rmk:") (* ; "Edited 23-May-2020 08:34 by rmk:") (* ; "Edited 10-May-2020 03:35 by rmk:") (* ; "Edited 3-May-2020 21:18 by rmk:") (IF (AND (MOUSESTATE (ONLY LEFT)) (EQ LASTKEYBOARD 0)) THEN (TOTOPW WINDOW) (LET (REGION (CORNER (INCORNER WINDOW))) (IF CORNER THEN (* ;;  "The upper corners may be in the title bar, near the side, so test this first") (SETQ REGION (WINDOWPROP WINDOW 'REGION)) [LET ((LEFT (FETCH LEFT OF REGION)) (RIGHT (FETCH RIGHT OF REGION)) (TOP (FETCH TOP OF REGION)) (BOTTOM (FETCH BOTTOM OF REGION))) (SHAPEW WINDOW (GETREGION NIL NIL NIL NIL NIL (SELECTQ CORNER (RIGHTBOTTOM (LIST LEFT TOP RIGHT BOTTOM)) (LEFTBOTTOM (LIST RIGHT TOP LEFT BOTTOM)) (RIGHTTOP (LIST LEFT BOTTOM RIGHT TOP)) (LEFTTOP (LIST RIGHT BOTTOM LEFT TOP)) (SHOULDNT] T ELSEIF (INTITLEBAR WINDOW) THEN (MOVEW WINDOW) T ELSEIF (WINDOWPROP WINDOW 'PREMACBUTTONEVENTFN) THEN (APPLY* (WINDOWPROP WINDOW 'PREMACBUTTONEVENTFN) WINDOW))) ELSEIF (WINDOWPROP WINDOW 'PREMACBUTTONEVENTFN) THEN (APPLY* (WINDOWPROP WINDOW 'PREMACBUTTONEVENTFN) WINDOW]) (MACWINDOW.BUTTONEVENTFN.ANYWHERE [LAMBDA (WINDOW) (* ; "Edited 1-Jun-2020 08:49 by rmk:") (* ; "Edited 28-May-2020 18:00 by rmk:") (* ; "Edited 23-May-2020 08:34 by rmk:") (* ; "Edited 10-May-2020 03:35 by rmk:") (* ; "Edited 3-May-2020 21:18 by rmk:") (* ;; "Move if left-click anywhere, not just titlebar") (IF (AND (MOUSESTATE (ONLY LEFT)) (EQ LASTKEYBOARD 0)) THEN (TOTOPW WINDOW) (LET (REGION (CORNER (INCORNER WINDOW))) (IF CORNER THEN (* ;;  "The upper corners may be in the title bar, near the side, so test this first") (SETQ REGION (WINDOWPROP WINDOW 'REGION)) [LET ((LEFT (FETCH LEFT OF REGION)) (RIGHT (FETCH RIGHT OF REGION)) (TOP (FETCH TOP OF REGION)) (BOTTOM (FETCH BOTTOM OF REGION))) (SHAPEW WINDOW (GETREGION NIL NIL NIL NIL NIL (SELECTQ CORNER (RIGHTBOTTOM (LIST LEFT TOP RIGHT BOTTOM)) (LEFTBOTTOM (LIST RIGHT TOP LEFT BOTTOM)) (RIGHTTOP (LIST LEFT BOTTOM RIGHT TOP)) (LEFTTOP (LIST RIGHT BOTTOM LEFT TOP)) (SHOULDNT] T ELSE (MOVEW WINDOW) T)) ELSEIF (WINDOWPROP WINDOW 'PREMACBUTTONEVENTFN) THEN (APPLY* (WINDOWPROP WINDOW 'PREMACBUTTONEVENTFN) WINDOW]) (MACWINDOW [LAMBDA (WINDOW ANYWHERE) (* ; "Edited 28-May-2020 17:58 by rmk:") (* ; "Edited 18-May-2020 20:11 by rmk:") (* ; "Edited 10-May-2020 14:20 by rmk:") (* ;; "This can be applied to windows that have been created with an unknown or unmodifiable buttoneventfn.")  (* ; "Edited 3-May-2020 21:17 by rmk:") (CL:UNLESS (WINDOWPROP WINDOW 'PREMACBUTTONEVENTFN) (WINDOWPROP WINDOW 'PREMACBUTTONEVENTFN (WINDOWPROP WINDOW 'BUTTONEVENTFN)) (WINDOWPROP WINDOW 'BUTTONEVENTFN (IF ANYWHERE THEN (FUNCTION MACWINDOW.BUTTONEVENTFN.ANYWHERE) ELSE (FUNCTION MACWINDOW.BUTTONEVENTFN)))) WINDOW]) ) (DEFINEQ (MACINT\TEDIT.BUTTONEVENTFN [LAMBDA (WINDOW) (* ; "Edited 10-May-2020 03:31 by rmk:") (CL:WHEN (LISTP WINDOW) (SETQ WINDOW (CAR WINDOW))) (OR (MACWINDOW.BUTTONEVENTFN WINDOW) (MACORIG\TEDIT.BUTTONEVENTFN WINDOW]) (MACINT\SEDIT-BUTTONEVENTFN [LAMBDA (WINDOW) (* ; "Edited 10-May-2020 03:31 by rmk:") (OR (MACWINDOW.BUTTONEVENTFN WINDOW) (MACORIG\SEDIT-BUTTONEVENTFN WINDOW]) (MACINT-ADD-EXEC [LAMBDA U (* ; "Edited 10-May-2020 03:31 by rmk:") (LET [(PROC (APPLY (FUNCTION MACORIG-ADD-EXEC) (FOR N FROM 1 TO U COLLECT (ARG U N] (* ;; "For some reason, the window may not be there immediately") (DISMISS 100) (MACWINDOW (PROCESSPROP PROC 'WINDOW)) PROC]) (MACINT-DEBUGGER-BUTTON-EVENT [LAMBDA (WINDOW) (* ; "Edited 10-May-2020 03:31 by rmk:") (OR (MACWINDOW.BUTTONEVENTFN WINDOW) (MACORIG-DEBUGGER-BUTTON-EVENT WINDOW]) (MACINT-\ITEM.WINDOW.BUTTON.HANDLER [LAMBDA (WINDOW) (* ; "Edited 16-May-2020 22:35 by rmk:") (* ; "Edited 10-May-2020 03:31 by rmk:") (OR (MACWINDOW.BUTTONEVENTFN WINDOW) (MACORIG-\ITEM.WINDOW.BUTTON.HANDLER WINDOW]) (MACINT-SNAPW [LAMBDA NIL (* ; "Edited 18-May-2020 17:20 by rmk:") (LET ((W (MACORIG-SNAPW))) [WINDOWPROP W 'BUTTONEVENTFN (FUNCTION (LAMBDA (W) (TOTOPW W) (MOVEW W] W]) ) (RPAQ? MACINTERFACECORNERMARGIN 25) (MOVD? '\TEDIT.BUTTONEVENTFN 'MACORIG\TEDIT.BUTTONEVENTFN) (MOVD 'MACINT\TEDIT.BUTTONEVENTFN '\TEDIT.BUTTONEVENTFN) (MOVD? 'SEDIT::BUTTONEVENTFN 'MACORIG\SEDIT-BUTTONEVENTFN) (MOVD 'MACINT\SEDIT-BUTTONEVENTFN 'SEDIT::BUTTONEVENTFN) (MOVD? 'ADD-EXEC 'MACORIG-ADD-EXEC) (MOVD 'MACINT-ADD-EXEC 'ADD-EXEC) (MOVD? 'DBG::DEBUGGER-BUTTON-EVENT 'MACORIG-DEBUGGER-BUTTON-EVENT) (MOVD 'MACINT-DEBUGGER-BUTTON-EVENT 'DBG::DEBUGGER-BUTTON-EVENT) (MOVD? '\ITEM.WINDOW.BUTTON.HANDLER 'MACORIG-\ITEM.WINDOW.BUTTON.HANDLER) (MOVD 'MACINT-\ITEM.WINDOW.BUTTON.HANDLER '\ITEM.WINDOW.BUTTON.HANDLER) (MOVD? 'SNAPW 'MACORIG-SNAPW) (MOVD 'MACINT-SNAPW 'SNAPW) (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDTOVAR NLAMA ) (ADDTOVAR NLAML ) (ADDTOVAR LAMA MACINT-ADD-EXEC) ) (DECLARE%: DONTCOPY (FILEMAP (NIL (1881 9154 (INTITLEBAR 1891 . 2111) (INCORNER 2113 . 3528) (MACWINDOW.BUTTONEVENTFN 3530 . 5896) (MACWINDOW.BUTTONEVENTFN.ANYWHERE 5898 . 8187) (MACWINDOW 8189 . 9152)) (9155 11049 ( MACINT\TEDIT.BUTTONEVENTFN 9165 . 9456) (MACINT\SEDIT-BUTTONEVENTFN 9458 . 9685) (MACINT-ADD-EXEC 9687 . 10111) (MACINT-DEBUGGER-BUTTON-EVENT 10113 . 10344) (MACINT-\ITEM.WINDOW.BUTTON.HANDLER 10346 . 10698) (MACINT-SNAPW 10700 . 11047))))) STOP \ No newline at end of file diff --git a/lispusers/MACINTERFACE.~46~ b/lispusers/MACINTERFACE.~46~ deleted file mode 100644 index 79f9b272e..000000000 --- a/lispusers/MACINTERFACE.~46~ +++ /dev/null @@ -1 +0,0 @@ -(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP") (FILECREATED "24-Jun-2020 20:36:10"  {DSK}kaplan>Local>medley3.5>lispcore>lispusers>MACINTERFACE.;46 11442 changes to%: (VARS MACINTERFACECOMS) previous date%: "24-Jun-2020 20:24:02" {DSK}kaplan>Local>medley3.5>lispcore>lispusers>MACINTERFACE.;45) (PRETTYCOMPRINT MACINTERFACECOMS) (RPAQQ MACINTERFACECOMS [ (* ;; "Externals") (COMS (FNS MACWINDOW MACWINDOW.SETUP) (INITVARS (MACINTERFACECORNERMARGIN 25))) (* ;; "Internals") [COMS (FNS INTITLEBAR INCORNER MACWINDOW.BUTTONEVENTFN MACWINDOW.BUTTONEVENTFN.ANYWHERE) (* ;; "Behavior for some known window creators") (FNS MACINT-ADD-EXEC MACINT-SNAPW) (DECLARE%: DONTEVAL@LOAD DOCOPY (P (* ;; "Tedit") (MACWINDOW.SETUP '\TEDIT.BUTTONEVENTFN) (* ;; "Inspector") (MACWINDOW.SETUP '\ITEM.WINDOW.BUTTON.HANDLER) (* ;; "SEDIT") (MACWINDOW.SETUP 'SEDIT::BUTTONEVENTFN) (* ;; "Debugger") (MACWINDOW.SETUP 'DBG::DEBUGGER-BUTTON-EVENT) (* ;; "Snap") (MACWINDOW.SETUP 'SNAPW 'MACINT-SNAPW) (* ;; "New execs") (MACWINDOW.SETUP 'ADD-EXEC 'MACINT-ADD-EXEC) (* ;; "Existing exec of the load") (MACWINDOW (PROCESSPROP (TTY.PROCESS) 'WINDOW] (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA) (NLAML) (LAMA MACINT-ADD-EXEC]) (* ;; "Externals") (DEFINEQ (MACWINDOW [LAMBDA (WINDOW ANYWHERE) (* ; "Edited 23-Jun-2020 16:01 by rmk:") (* ;; "This can be applied to windows that have been created with an unknown or unmodifiable buttoneventfn.") (CL:UNLESS (WINDOWPROP WINDOW 'PREMACBUTTONEVENTFN) (WINDOWPROP WINDOW 'PREMACBUTTONEVENTFN (WINDOWPROP WINDOW 'BUTTONEVENTFN)) (WINDOWPROP WINDOW 'BUTTONEVENTFN (IF ANYWHERE THEN (FUNCTION MACWINDOW.BUTTONEVENTFN.ANYWHERE) ELSE (FUNCTION MACWINDOW.BUTTONEVENTFN)))) WINDOW]) (MACWINDOW.SETUP [LAMBDA (ORIGFN MACWINDOWFN ANYWHERE) (* ; "Edited 24-Jun-2020 15:09 by rmk:") (* ;; "ORIGFN is either a function that creates windows of a given type (e.g. SNAPW or ADD-EXEC) or the known BUTTONEVENTFN of a class of windows.") (* ;; "Moves ORIGNFN to a new name, prefixed with MACORIG-.") (* ;; "If MACWINDOWFN is given, then that replaces the original definition of ORIGFN, and presumably knows how to call the renamed ORIGFN under the write circumstances. This is typically the case where ORIGFN is a window creator.") (* ;; "Otherwise, ORIGFN is taken to be the BUTTONEVENTFN for a class of windows, and its new definition is defaulted to one that maps left-clicks in appropriate areas into Mac window operations. If not in appropriate areas, then the renamed ORIGNFN is called to give the original button behavior.") (* ;; "If ANYWHERE, moving will happen for any click not in one of the shaping corners.") (* ;; "The renamed function has arguments in addition to WINDOW: the new name for the original function, if MACWINDOFN is provided, and the value specified here for ANYWHERE.") (LET [RENAMEDORIG (PKGNAME (CL:PACKAGE-NAME (CL:SYMBOL-PACKAGE ORIGFN] (* ;; "The renamed version of XCL symbols go into Interlisp, so there is less confusion about accessing it") (CL:WHEN (STREQUAL PKGNAME "XEROX-COMMON-LISP") (SETQ PKGNAME "INTERLISP")) (SETQ RENAMEDORIG (CL:INTERN (CONCAT 'MACORIG- ORIGFN) PKGNAME)) (MOVD? ORIGFN RENAMEDORIG) (IF MACWINDOWFN THEN (MOVD MACWINDOWFN ORIGFN) ELSE (PUTD ORIGFN `(LAMBDA (WINDOW) (MACWINDOW.BUTTONEVENTFN WINDOW (FUNCTION ,RENAMEDORIG) ,ANYWHERE]) ) (RPAQ? MACINTERFACECORNERMARGIN 25) (* ;; "Internals") (DEFINEQ (INTITLEBAR [LAMBDA (WINDOW) (* ; "Edited 3-May-2020 20:38 by rmk:") (IGREATERP (LASTMOUSEY WINDOW) (FETCH TOP OF (DSPCLIPPINGREGION NIL WINDOW]) (INCORNER [LAMBDA (WINDOW MARGIN) (* ; "Edited 13-May-2020 14:26 by rmk:") (* ; "Edited 10-May-2020 12:41 by rmk:") (* ; "Edited 3-May-2020 20:43 by rmk:") (CL:UNLESS MARGIN (SETQ MARGIN MACINTERFACECORNERMARGIN)) (LET ((CR (DSPCLIPPINGREGION NIL WINDOW)) (X (LASTMOUSEX WINDOW)) (Y (LASTMOUSEY WINDOW))) (IF (ILEQ (IABS (IDIFFERENCE X (FETCH LEFT OF CR))) MARGIN) THEN (* ;; "GREATERP puts it in title bar") (IF (IGREATERP Y (FETCH TOP OF CR)) THEN 'LEFTTOP ELSEIF (ILEQ (IABS (IDIFFERENCE Y (FETCH BOTTOM OF CR))) MARGIN) THEN 'LEFTBOTTOM) ELSEIF (ILEQ (IABS (IDIFFERENCE X (FETCH RIGHT OF CR))) MARGIN) THEN (IF (IGREATERP Y (FETCH TOP OF CR)) THEN 'RIGHTTOP ELSEIF (ILEQ (IABS (IDIFFERENCE Y (FETCH BOTTOM OF CR))) MARGIN) THEN 'RIGHTBOTTOM]) (MACWINDOW.BUTTONEVENTFN [LAMBDA (WINDOW ORIGFUNCTION ANYWHERE) (* ; "Edited 24-Jun-2020 20:23 by rmk:") (* ; "Edited 23-May-2020 08:34 by rmk:") (* ; "Edited 10-May-2020 03:35 by rmk:") (* ; "Edited 3-May-2020 21:18 by rmk:") (IF (AND (MOUSESTATE (ONLY LEFT)) (EQ LASTKEYBOARD 0)) THEN (TOTOPW WINDOW) (LET (REGION (CORNER (INCORNER WINDOW))) (IF CORNER THEN (* ;;  "The upper corners may be in the title bar, near the side, so test this first") (SETQ REGION (WINDOWPROP WINDOW 'REGION)) [LET ((LEFT (FETCH LEFT OF REGION)) (RIGHT (FETCH RIGHT OF REGION)) (TOP (FETCH TOP OF REGION)) (BOTTOM (FETCH BOTTOM OF REGION))) (SHAPEW WINDOW (GETREGION NIL NIL NIL NIL NIL (SELECTQ CORNER (RIGHTBOTTOM (LIST LEFT TOP RIGHT BOTTOM)) (LEFTBOTTOM (LIST RIGHT TOP LEFT BOTTOM)) (RIGHTTOP (LIST LEFT BOTTOM RIGHT TOP)) (LEFTTOP (LIST RIGHT BOTTOM LEFT TOP)) (SHOULDNT] T ELSEIF (OR ANYWHERE (INTITLEBAR WINDOW)) THEN (MOVEW WINDOW) T ELSEIF [OR ORIGFUNCTION (SETQ ORIGFUNCTION (WINDOWPROP WINDOW 'PREMACBUTTONEVENTFN] THEN (APPLY* ORIGFUNCTION WINDOW))) ELSEIF [OR ORIGFUNCTION (SETQ ORIGFUNCTION (WINDOWPROP WINDOW 'PREMACBUTTONEVENTFN] THEN (APPLY* ORIGFUNCTION WINDOW]) (MACWINDOW.BUTTONEVENTFN.ANYWHERE [LAMBDA (WINDOW) (* ; "Edited 24-Jun-2020 13:24 by rmk:") (* ;; "Move if left-click anywhere, not just titlebar") (MACWINDOW.BUTTONEVENTFN NIL T]) ) (* ;; "Behavior for some known window creators") (DEFINEQ (MACINT-ADD-EXEC [LAMBDA U (* ; "Edited 24-Jun-2020 14:23 by rmk:") (LET [(PROC (APPLY (FUNCTION MACORIG-ADD-EXEC) (FOR N FROM 1 TO U COLLECT (ARG U N] (* ;; "For some reason, the window may not be there immediately") (DISMISS 100) (MACWINDOW (PROCESSPROP PROC 'WINDOW)) PROC]) (MACINT-SNAPW [LAMBDA NIL (* ; "Edited 24-Jun-2020 13:19 by rmk:") (* ;; "No point in shaping a snap window, just move it.;;") (* ;; "This changes the creation function (SNAPW), since snap windows otherwise don't have a BUTTONEVENTN") (LET ((W (MACORIG-SNAPW))) [WINDOWPROP W 'BUTTONEVENTFN (FUNCTION (LAMBDA (W) (TOTOPW W) (MOVEW W] W]) ) (DECLARE%: DONTEVAL@LOAD DOCOPY (* ;; "Tedit") (MACWINDOW.SETUP '\TEDIT.BUTTONEVENTFN) (* ;; "Inspector") (MACWINDOW.SETUP '\ITEM.WINDOW.BUTTON.HANDLER) (* ;; "SEDIT") (MACWINDOW.SETUP 'SEDIT::BUTTONEVENTFN) (* ;; "Debugger") (MACWINDOW.SETUP 'DBG::DEBUGGER-BUTTON-EVENT) (* ;; "Snap") (MACWINDOW.SETUP 'SNAPW 'MACINT-SNAPW) (* ;; "New execs") (MACWINDOW.SETUP 'ADD-EXEC 'MACINT-ADD-EXEC) (* ;; "Existing exec of the load") (MACWINDOW (PROCESSPROP (TTY.PROCESS) 'WINDOW)) ) (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDTOVAR NLAMA ) (ADDTOVAR NLAML ) (ADDTOVAR LAMA MACINT-ADD-EXEC) ) (DECLARE%: DONTCOPY (FILEMAP (NIL (2704 5275 (MACWINDOW 2714 . 3355) (MACWINDOW.SETUP 3357 . 5273)) (5344 9655 (INTITLEBAR 5354 . 5574) (INCORNER 5576 . 6991) (MACWINDOW.BUTTONEVENTFN 6993 . 9402) ( MACWINDOW.BUTTONEVENTFN.ANYWHERE 9404 . 9653)) (9713 10690 (MACINT-ADD-EXEC 9723 . 10147) ( MACINT-SNAPW 10149 . 10688))))) STOP \ No newline at end of file diff --git a/lispusers/MACINTERFACE.~49~ b/lispusers/MACINTERFACE.~49~ deleted file mode 100644 index d699b6478..000000000 --- a/lispusers/MACINTERFACE.~49~ +++ /dev/null @@ -1 +0,0 @@ -(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP") (FILECREATED " 6-Jul-2020 13:11:08"  {DSK}kaplan>Local>medley3.5>lispcore>lispusers>MACINTERFACE.;49 13543 changes to%: (VARS MACINTERFACECOMS) (FNS MACWINDOW.UNSETUP) previous date%: " 6-Jul-2020 12:19:37" {DSK}kaplan>Local>medley3.5>lispcore>lispusers>MACINTERFACE.;48) (PRETTYCOMPRINT MACINTERFACECOMS) (RPAQQ MACINTERFACECOMS [ (* ;; "Externals") (COMS (FNS MACWINDOW MACWINDOW.SETUP MACWINDOW.UNSETUP) (INITVARS (MACINTERFACECORNERMARGIN 25))) (* ;; "Internals") [COMS (FNS INTITLEBAR INCORNER MACWINDOW.BUTTONEVENTFN MACWINDOW.BUTTONEVENTFN.ANYWHERE) (* ;; "Behavior for some known window creators") (FNS MACINT-ADD-EXEC MACINT-SNAPW) (DECLARE%: DONTEVAL@LOAD DOCOPY (P (* ;; "Tedit") (MACWINDOW.SETUP '\TEDIT.BUTTONEVENTFN) (* ;; "Inspector") (MACWINDOW.SETUP '\ITEM.WINDOW.BUTTON.HANDLER) (* ;; "Commonlisp array inspector. If you move the main window, the little attached window doesn't move. But if you move the attached window, it all works. Needs a special definition. Shaping doesn't work either") (* (MACWINDOW.SETUP 'ONEDINSPECT.BUTTONEVENTFN)) (MACWINDOW.SETUP 'ICMLARRAY.TITLECOMMANDFN) (* ;; "Freemenu") (MACWINDOW.SETUP '\FM.BUTTONEVENTFN) (* ;; "SEDIT") (MACWINDOW.SETUP 'SEDIT::BUTTONEVENTFN) (* ;; "Debugger") (MACWINDOW.SETUP 'DBG::DEBUGGER-BUTTON-EVENT) (* ;; "Snap") (MACWINDOW.SETUP 'SNAPW 'MACINT-SNAPW) (* ;; "New execs") (MACWINDOW.SETUP 'ADD-EXEC 'MACINT-ADD-EXEC) (* ;; "Existing exec of the load") (MACWINDOW (PROCESSPROP (TTY.PROCESS) 'WINDOW] (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA) (NLAML) (LAMA MACINT-ADD-EXEC]) (* ;; "Externals") (DEFINEQ (MACWINDOW [LAMBDA (WINDOW ANYWHERE) (* ; "Edited 23-Jun-2020 16:01 by rmk:") (* ;; "This can be applied to windows that have been created with an unknown or unmodifiable buttoneventfn.") (CL:UNLESS (WINDOWPROP WINDOW 'PREMACBUTTONEVENTFN) (WINDOWPROP WINDOW 'PREMACBUTTONEVENTFN (WINDOWPROP WINDOW 'BUTTONEVENTFN)) (WINDOWPROP WINDOW 'BUTTONEVENTFN (IF ANYWHERE THEN (FUNCTION MACWINDOW.BUTTONEVENTFN.ANYWHERE) ELSE (FUNCTION MACWINDOW.BUTTONEVENTFN)))) WINDOW]) (MACWINDOW.SETUP [LAMBDA (ORIGFN MACWINDOWFN ANYWHERE) (* ; "Edited 24-Jun-2020 15:09 by rmk:") (* ;; "ORIGFN is either a function that creates windows of a given type (e.g. SNAPW or ADD-EXEC) or the known BUTTONEVENTFN of a class of windows.") (* ;; "Moves ORIGNFN to a new name, prefixed with MACORIG-.") (* ;; "If MACWINDOWFN is given, then that replaces the original definition of ORIGFN, and presumably knows how to call the renamed ORIGFN under the write circumstances. This is typically the case where ORIGFN is a window creator.") (* ;; "Otherwise, ORIGFN is taken to be the BUTTONEVENTFN for a class of windows, and its new definition is defaulted to one that maps left-clicks in appropriate areas into Mac window operations. If not in appropriate areas, then the renamed ORIGNFN is called to give the original button behavior.") (* ;; "If ANYWHERE, moving will happen for any click not in one of the shaping corners.") (* ;; "The renamed function has arguments in addition to WINDOW: the new name for the original function, if MACWINDOFN is provided, and the value specified here for ANYWHERE.") (LET [RENAMEDORIG (PKGNAME (CL:PACKAGE-NAME (CL:SYMBOL-PACKAGE ORIGFN] (* ;; "The renamed version of XCL symbols go into Interlisp, so there is less confusion about accessing it") (CL:WHEN (STREQUAL PKGNAME "XEROX-COMMON-LISP") (SETQ PKGNAME "INTERLISP")) (SETQ RENAMEDORIG (CL:INTERN (CONCAT 'MACORIG- ORIGFN) PKGNAME)) (MOVD? ORIGFN RENAMEDORIG) (IF MACWINDOWFN THEN (MOVD MACWINDOWFN ORIGFN) ELSE (PUTD ORIGFN `(LAMBDA (WINDOW) (MACWINDOW.BUTTONEVENTFN WINDOW (FUNCTION ,RENAMEDORIG) ,ANYWHERE]) (MACWINDOW.UNSETUP [LAMBDA (ORIGFN) (* ; "Edited 6-Jul-2020 13:04 by rmk:") (* ; "Edited 24-Jun-2020 15:09 by rmk:") (* ;; "Moves the renamed original function back to its original name") (LET [RENAMEDORIG (PKGNAME (CL:PACKAGE-NAME (CL:SYMBOL-PACKAGE ORIGFN] (* ;; "The renamed version of XCL symbols go into Interlisp, so there is less confusion about accessing it") (CL:WHEN (STREQUAL PKGNAME "XEROX-COMMON-LISP") (SETQ PKGNAME "INTERLISP")) (SETQ RENAMEDORIG (CL:INTERN (CONCAT 'MACORIG- ORIGFN) PKGNAME)) (CL:WHEN (GETD RENAMEDORIG) (MOVD RENAMEDORIG ORIGFN]) ) (RPAQ? MACINTERFACECORNERMARGIN 25) (* ;; "Internals") (DEFINEQ (INTITLEBAR [LAMBDA (WINDOW) (* ; "Edited 3-May-2020 20:38 by rmk:") (IGREATERP (LASTMOUSEY WINDOW) (FETCH TOP OF (DSPCLIPPINGREGION NIL WINDOW]) (INCORNER [LAMBDA (WINDOW MARGIN) (* ; "Edited 13-May-2020 14:26 by rmk:") (* ; "Edited 10-May-2020 12:41 by rmk:") (* ; "Edited 3-May-2020 20:43 by rmk:") (CL:UNLESS MARGIN (SETQ MARGIN MACINTERFACECORNERMARGIN)) (LET ((CR (DSPCLIPPINGREGION NIL WINDOW)) (X (LASTMOUSEX WINDOW)) (Y (LASTMOUSEY WINDOW))) (IF (ILEQ (IABS (IDIFFERENCE X (FETCH LEFT OF CR))) MARGIN) THEN (* ;; "GREATERP puts it in title bar") (IF (IGREATERP Y (FETCH TOP OF CR)) THEN 'LEFTTOP ELSEIF (ILEQ (IABS (IDIFFERENCE Y (FETCH BOTTOM OF CR))) MARGIN) THEN 'LEFTBOTTOM) ELSEIF (ILEQ (IABS (IDIFFERENCE X (FETCH RIGHT OF CR))) MARGIN) THEN (IF (IGREATERP Y (FETCH TOP OF CR)) THEN 'RIGHTTOP ELSEIF (ILEQ (IABS (IDIFFERENCE Y (FETCH BOTTOM OF CR))) MARGIN) THEN 'RIGHTBOTTOM]) (MACWINDOW.BUTTONEVENTFN [LAMBDA (WINDOW ORIGFUNCTION ANYWHERE) (* ; "Edited 24-Jun-2020 20:23 by rmk:") (* ; "Edited 23-May-2020 08:34 by rmk:") (* ; "Edited 10-May-2020 03:35 by rmk:") (* ; "Edited 3-May-2020 21:18 by rmk:") (IF (AND (MOUSESTATE (ONLY LEFT)) (EQ LASTKEYBOARD 0)) THEN (TOTOPW WINDOW) (LET (REGION (CORNER (INCORNER WINDOW))) (IF CORNER THEN (* ;;  "The upper corners may be in the title bar, near the side, so test this first") (SETQ REGION (WINDOWPROP WINDOW 'REGION)) [LET ((LEFT (FETCH LEFT OF REGION)) (RIGHT (FETCH RIGHT OF REGION)) (TOP (FETCH TOP OF REGION)) (BOTTOM (FETCH BOTTOM OF REGION))) (SHAPEW WINDOW (GETREGION NIL NIL NIL NIL NIL (SELECTQ CORNER (RIGHTBOTTOM (LIST LEFT TOP RIGHT BOTTOM)) (LEFTBOTTOM (LIST RIGHT TOP LEFT BOTTOM)) (RIGHTTOP (LIST LEFT BOTTOM RIGHT TOP)) (LEFTTOP (LIST RIGHT BOTTOM LEFT TOP)) (SHOULDNT] T ELSEIF (OR ANYWHERE (INTITLEBAR WINDOW)) THEN (MOVEW WINDOW) T ELSEIF [OR ORIGFUNCTION (SETQ ORIGFUNCTION (WINDOWPROP WINDOW 'PREMACBUTTONEVENTFN] THEN (APPLY* ORIGFUNCTION WINDOW))) ELSEIF [OR ORIGFUNCTION (SETQ ORIGFUNCTION (WINDOWPROP WINDOW 'PREMACBUTTONEVENTFN] THEN (APPLY* ORIGFUNCTION WINDOW]) (MACWINDOW.BUTTONEVENTFN.ANYWHERE [LAMBDA (WINDOW) (* ; "Edited 24-Jun-2020 13:24 by rmk:") (* ;; "Move if left-click anywhere, not just titlebar") (MACWINDOW.BUTTONEVENTFN NIL T]) ) (* ;; "Behavior for some known window creators") (DEFINEQ (MACINT-ADD-EXEC [LAMBDA U (* ; "Edited 24-Jun-2020 14:23 by rmk:") (LET [(PROC (APPLY (FUNCTION MACORIG-ADD-EXEC) (FOR N FROM 1 TO U COLLECT (ARG U N] (* ;; "For some reason, the window may not be there immediately") (DISMISS 100) (MACWINDOW (PROCESSPROP PROC 'WINDOW)) PROC]) (MACINT-SNAPW [LAMBDA NIL (* ; "Edited 24-Jun-2020 13:19 by rmk:") (* ;; "No point in shaping a snap window, just move it.;;") (* ;; "This changes the creation function (SNAPW), since snap windows otherwise don't have a BUTTONEVENTN") (LET ((W (MACORIG-SNAPW))) [WINDOWPROP W 'BUTTONEVENTFN (FUNCTION (LAMBDA (W) (TOTOPW W) (MOVEW W] W]) ) (DECLARE%: DONTEVAL@LOAD DOCOPY (* ;; "Tedit") (MACWINDOW.SETUP '\TEDIT.BUTTONEVENTFN) (* ;; "Inspector") (MACWINDOW.SETUP '\ITEM.WINDOW.BUTTON.HANDLER) (* ;; "Commonlisp array inspector. If you move the main window, the little attached window doesn't move. But if you move the attached window, it all works. Needs a special definition. Shaping doesn't work either") (* (MACWINDOW.SETUP  (QUOTE ONEDINSPECT.BUTTONEVENTFN))) (MACWINDOW.SETUP 'ICMLARRAY.TITLECOMMANDFN) (* ;; "Freemenu") (MACWINDOW.SETUP '\FM.BUTTONEVENTFN) (* ;; "SEDIT") (MACWINDOW.SETUP 'SEDIT::BUTTONEVENTFN) (* ;; "Debugger") (MACWINDOW.SETUP 'DBG::DEBUGGER-BUTTON-EVENT) (* ;; "Snap") (MACWINDOW.SETUP 'SNAPW 'MACINT-SNAPW) (* ;; "New execs") (MACWINDOW.SETUP 'ADD-EXEC 'MACINT-ADD-EXEC) (* ;; "Existing exec of the load") (MACWINDOW (PROCESSPROP (TTY.PROCESS) 'WINDOW)) ) (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDTOVAR NLAMA ) (ADDTOVAR NLAML ) (ADDTOVAR LAMA MACINT-ADD-EXEC) ) (DECLARE%: DONTCOPY (FILEMAP (NIL (3472 6850 (MACWINDOW 3482 . 4123) (MACWINDOW.SETUP 4125 . 6041) (MACWINDOW.UNSETUP 6043 . 6848)) (6919 11230 (INTITLEBAR 6929 . 7149) (INCORNER 7151 . 8566) (MACWINDOW.BUTTONEVENTFN 8568 . 10977) (MACWINDOW.BUTTONEVENTFN.ANYWHERE 10979 . 11228)) (11288 12265 (MACINT-ADD-EXEC 11298 . 11722) (MACINT-SNAPW 11724 . 12263))))) STOP \ No newline at end of file diff --git a/lispusers/MACINTERFACE.~6~ b/lispusers/MACINTERFACE.~6~ deleted file mode 100644 index 2121220f6..000000000 --- a/lispusers/MACINTERFACE.~6~ +++ /dev/null @@ -1 +0,0 @@ -(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP") (FILECREATED " 3-May-2020 21:29:10"  {DSK}kaplan>Local>medley3.5>lispcore>lispusers>MACINTERFACE.;6 2544 changes to%: (FNS MACWINDOW INCORNER MACWINDOW.BUTTONEVENTFN INTITLEBAR) (VARS MACINTERFACECOMS) previous date%: " 3-May-2020 20:42:23" {DSK}kaplan>Local>medley3.5>lispcore>lispusers>MACINTERFACE.;2) (PRETTYCOMPRINT MACINTERFACECOMS) (RPAQQ MACINTERFACECOMS ((FNS INTITLEBAR INCORNER MACWINDOW.BUTTONEVENTFN MACWINDOW))) (DEFINEQ (INTITLEBAR [LAMBDA (WINDOW) (* ; "Edited 3-May-2020 20:38 by rmk:") (IGREATERP (LASTMOUSEY WINDOW) (FETCH TOP OF (DSPCLIPPINGREGION NIL WINDOW]) (INCORNER [LAMBDA (WINDOW MARGIN) (* ; "Edited 3-May-2020 20:43 by rmk:") (CL:UNLESS MARGIN (SETQ MARGIN 10)) (LET ((CR (DSPCLIPPINGREGION NIL WINDOW)) (X (LASTMOUSEX WINDOW)) (Y (LASTMOUSEY WINDOW))) (IF (ILEQ (IABS (IDIFFERENCE X (FETCH LEFT OF CR))) MARGIN) THEN (OR (ILEQ (IABS (IDIFFERENCE Y (FETCH TOP OF CR))) MARGIN) (ILEQ (IABS (IDIFFERENCE Y (FETCH BOTTOM OF CR))) MARGIN)) ELSEIF (ILEQ (IABS (IDIFFERENCE X (FETCH RIGHT OF CR))) MARGIN) THEN (OR (ILEQ (IABS (IDIFFERENCE Y (FETCH TOP OF CR))) MARGIN) (ILEQ (IABS (IDIFFERENCE Y (FETCH BOTTOM OF CR))) MARGIN]) (MACWINDOW.BUTTONEVENTFN [LAMBDA (WINDOW) (* ; "Edited 3-May-2020 21:18 by rmk:") (TOTOPW WINDOW) (IF (MOUSESTATE LEFT) THEN (IF (INTITLEBAR WINDOW) THEN (MOVEW WINDOW) ELSEIF (INCORNER WINDOW) THEN (SHAPEW WINDOW)) ELSE (APPLY* (WINDOWPROP WINDOW 'PREMACBUTTONEVENTFN) WINDOW]) (MACWINDOW [LAMBDA (WINDOW) (* ; "Edited 3-May-2020 21:17 by rmk:") (WINDOWPROP WINDOW 'PREMACBUTTONEVENTFN (WINDOWPROP WINDOW 'BUTTONEVENTFN)) (WINDOWPROP WINDOW 'BUTTONEVENTFN (FUNCTION MACWINDOW.BUTTONEVENTFN]) ) (DECLARE%: DONTCOPY (FILEMAP (NIL (555 2521 (INTITLEBAR 565 . 785) (INCORNER 787 . 1771) (MACWINDOW.BUTTONEVENTFN 1773 . 2244) (MACWINDOW 2246 . 2519))))) STOP \ No newline at end of file diff --git a/lispusers/MODERNIZE b/lispusers/MODERNIZE index 1acd73ffa..599f838ec 100644 --- a/lispusers/MODERNIZE +++ b/lispusers/MODERNIZE @@ -1,11 +1,11 @@ -(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP") -(FILECREATED "14-Mar-2021 20:33:34"  -{DSK}kaplan>Local>medley3.5>git-medley>lispusers>MODERNIZE.;14 20950 +(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10 FORMAT XCCS) +(FILECREATED " 8-Jul-2021 23:33:42"  +{DSK}kaplan>Local>medley3.5>git-medley>lispusers>MODERNIZE.;16 23978 - changes to%: (FNS MODERNWINDOW.SETUP) + changes to%: (FNS MODERNWINDOW) - previous date%: "14-Mar-2021 18:00:34" -{DSK}kaplan>Local>medley3.5>git-medley>lispusers>MODERNIZE.;13) + previous date%: " 3-Jul-2021 10:32:03" +{DSK}kaplan>Local>medley3.5>git-medley>lispusers>MODERNIZE.;15) (PRETTYCOMPRINT MODERNIZECOMS) @@ -19,17 +19,20 @@ (* ;; "Internals") - [COMS (FNS MODERNWINDOW.BUTTONEVENTFN MODERNWINDOW.BUTTONEVENTFN.ANYWHERE NEARTOP - NEARESTCORNER INCORNER.REGION) + [COMS (FNS MODERNWINDOW.BUTTONEVENTFN NEARTOP NEARESTCORNER INCORNER.REGION) (* ;; "Behavior for some known window creators") - (FNS MODERN-ADD-EXEC MODERN-SNAPW TOTOPW.MODERNIZE) + (FNS MODERN-ADD-EXEC MODERN-SNAPW TOTOPW.MODERNIZE MODERN-MENUBUTTONFN) (* ;; "Add some Meta commands") (FNS TEDIT.MODERNIZE TEDIT.SELECTALL) - (DECLARE%: DONTEVAL@LOAD DOCOPY (P (TEDIT.MODERNIZE) + (DECLARE%: DONTEVAL@LOAD DOCOPY (P + (* ;; "Tedit") + + (MODERNWINDOW.SETUP '\TEDIT.BUTTONEVENTFN) + (TEDIT.MODERNIZE) (* ;; "Inspector") @@ -80,7 +83,13 @@ (* ;; "Promptwindow") - (MODERNWINDOW PROMPTWINDOW T] + (MODERNWINDOW PROMPTWINDOW T) + + (* ;; + "Menus: Move only and only with title clicks") + + (MODERNWINDOW.SETUP 'MENUBUTTONFN + 'MODERN-MENUBUTTONFN] (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA) (NLAML) (LAMA MODERN-ADD-EXEC]) @@ -92,19 +101,28 @@ (DEFINEQ (MODERNWINDOW - [LAMBDA (WINDOW ANYWHERE) (* ; "Edited 22-Feb-2021 16:44 by rmk:") + [LAMBDA (WINDOW ANYWHERE TITLEPROPORTION) (* ; "Edited 8-Jul-2021 23:33 by rmk:") + (* ; "Edited 3-Jul-2021 10:31 by rmk:") + (* ; "Edited 24-Jun-2021 14:52 by rmk:") - (* ;; "This can be applied to windows that have been created with an unknown or unmodifiable buttoneventfn.") + (* ;; "This can be applied to windows that have been created with an unknown or unmodifiable buttoneventfn. If the window was previously modernized, we restore its original state first, in case it is called here with different parameters") - (CL:UNLESS (WINDOWPROP WINDOW 'PREMODERN-BUTTONEVENTFN) - (WINDOWPROP WINDOW 'PREMODERN-BUTTONEVENTFN (WINDOWPROP WINDOW 'BUTTONEVENTFN)) - (WINDOWPROP WINDOW 'BUTTONEVENTFN (IF ANYWHERE - THEN (FUNCTION MODERNWINDOW.BUTTONEVENTFN.ANYWHERE) - ELSE (FUNCTION MODERNWINDOW.BUTTONEVENTFN)))) + (CL:WHEN (AND TITLEPROPORTION (GREATERP TITLEPROPORTION 0.5)) + (ERROR "TITLEPROPORTION cannot be greater than .5")) + (CL:WHEN (WINDOWPROP WINDOW 'PREMODERN-BUTTONEVENTFN) + (WINDOWPROP WINDOW 'BUTTONEVENTFN (WINDOWPROP WINDOW 'PREMODERN-BUTTONEVENTFN)) + (WINDOWPROP WINDOW 'PREMODERN-BUTTONEVENTFN NIL)) + (WINDOWPROP WINDOW 'PREMODERN-BUTTONEVENTFN (WINDOWPROP WINDOW 'BUTTONEVENTFN)) + (WINDOWPROP WINDOW 'BUTTONEVENTFN (IF (OR ANYWHERE TITLEPROPORTION) + THEN [FUNCTION (LAMBDA (WINDOW) + (MODERNWINDOW.BUTTONEVENTFN + WINDOW NIL T ,TITLEPROPORTION] + ELSE (FUNCTION MODERNWINDOW.BUTTONEVENTFN))) WINDOW]) (MODERNWINDOW.SETUP - [LAMBDA (ORIGFN MODERNWINDOWFN ANYWHERE) (* ; "Edited 14-Mar-2021 20:33 by rmk:") + [LAMBDA (ORIGFN MODERNWINDOWFN ANYWHERE TITLEPROPORTION) + (* ; "Edited 24-Jun-2021 14:53 by rmk:") (* ;; "ORIGFN is either a function that creates windows of a given type (e.g. SNAPW or ADD-EXEC) or the known BUTTONEVENTFN of a class of windows.") @@ -122,6 +140,11 @@ (* ;; "If ORIGFN is defined, then presumably the file containing ORIGFN (e.g. sketch) was loaded before MODERNIZE (if we are being called on our load), and we can rearrange things. But of ORIGFN is not defined, then there is really nothing to do. The package loader itself should call MODERNWINDOW.SETUP if we are defined when it is loaded. ") + (* ;; "") + + (CL:WHEN (AND TITLEPROPORTION (GREATERP TITLEPROPORTION 0.5)) + (ERROR "TITLEPROPORTION cannot be greater than .5")) + (MODERNWINDOW.UNSETUP ORIGFN) [LET [RENAMEDORIG (PKGNAME (CL:PACKAGE-NAME (CL:SYMBOL-PACKAGE ORIGFN] (* ;; "The renamed version of XCL symbols go into Interlisp, so there is less confusion about accessing it") @@ -133,10 +156,14 @@ (MOVD? ORIGFN RENAMEDORIG) (IF MODERNWINDOWFN THEN (MOVD MODERNWINDOWFN ORIGFN) - ELSE (PUTD ORIGFN `(LAMBDA (WINDOW) - (MODERNWINDOW.BUTTONEVENTFN WINDOW (FUNCTION - ,RENAMEDORIG) - ,ANYWHERE])]) + ELSE (PUTD ORIGFN `(LAMBDA ,(ARGLIST ORIGFN) + (MODERNWINDOW.BUTTONEVENTFN + ,(CL:IF (LISTP (ARGLIST ORIGFN)) + (CAR (ARGLIST ORIGFN)) + (ARGLIST ORIGFN)) + (FUNCTION ,RENAMEDORIG) + ,ANYWHERE + ,TITLEPROPORTION])]) (UNMODERNWINDOW [LAMBDA (WINDOW) (* ; "Edited 22-Feb-2021 16:44 by rmk:") @@ -175,7 +202,7 @@ (DEFINEQ (MODERNWINDOW.BUTTONEVENTFN - [LAMBDA (WINDOW ORIGFUNCTION ANYWHERE) (* ; "Edited 27-Feb-2021 17:57 by rmk:") + [LAMBDA (WINDOW ORIGFUNCTION ANYWHERE TITLEPROPORTION)(* ; "Edited 24-Jun-2021 14:49 by rmk:") (IF (AND (MOUSESTATE (ONLY LEFT)) (EQ LASTKEYBOARD 0)) THEN (TOTOPW WINDOW) @@ -231,7 +258,7 @@ WINDOW) STARTINGREGION)) T - ELSEIF (OR ANYWHERE (NEARTOP MAINREGION TOPMARGIN)) + ELSEIF (OR ANYWHERE (NEARTOP MAINREGION TOPMARGIN TITLEPROPORTION)) THEN (NEARESTCORNER ATTACHEDREGION) (MOVEW (CL:IF (MEMB 'MOVEW (WINDOWPROP WINDOW 'PASSTOMAINCOMS)) (WINDOWPROP WINDOW 'MAINWINDOW) @@ -243,21 +270,20 @@ ELSEIF [OR ORIGFUNCTION (SETQ ORIGFUNCTION (WINDOWPROP WINDOW 'PREMODERN-BUTTONEVENTFN] THEN (APPLY* ORIGFUNCTION WINDOW]) -(MODERNWINDOW.BUTTONEVENTFN.ANYWHERE - [LAMBDA (WINDOW) (* ; "Edited 22-Feb-2021 16:31 by rmk:") - (* ; "Edited 24-Jun-2020 13:24 by rmk:") - - (* ;; "Move if left-click anywhere, not just titlebar") - - (MODERNWINDOW.BUTTONEVENTFN WINDOW NIL T]) - (NEARTOP - [LAMBDA (MAINREGION TOPMARGIN) (* ; "Edited 12-Feb-2021 23:19 by rmk:") + [LAMBDA (MAINREGION TOPMARGIN TITLEPROPORTION) (* ; "Edited 24-Jun-2021 14:51 by rmk:") (* ;; "True if the MOUSEY is near the top of MAINREGION. That means in the title bar for titled windows, otherwise a short distance below the top of the window. (Could be in the border?)") - (IGREATERP LASTMOUSEY (IDIFFERENCE (FETCH TOP OF MAINREGION) - TOPMARGIN]) + (* ;; "If TITLEPROPORTION is N, then the click must be within that proportion of the window-width from either edge. ") + + (AND (IGREATERP LASTMOUSEY (IDIFFERENCE (FETCH TOP OF MAINREGION) + TOPMARGIN)) + (OR (NOT TITLEPROPORTION) + (LET ((WIDTH (FETCH WIDTH of MAINREGION)) + (LEFT (FETCH LEFT OF MAINREGION))) + (OR (ILESSP LASTMOUSEX (IPLUS LEFT (TIMES WIDTH TITLEPROPORTION))) + (IGREATERP LASTMOUSEX (IPLUS LEFT (TIMES WIDTH (DIFFERENCE 1 TITLEPROPORTION]) (NEARESTCORNER [LAMBDA (REGION) (* ; "Edited 14-Feb-2021 21:46 by rmk:") @@ -339,6 +365,23 @@ (LET ((MAIN (MAINWINDOW WINDOW T))) (CL:WHEN MAIN (MODERNWINDOW.BUTTONEVENTFN MAIN (WINDOWPROP MAIN 'BUTTONEVENTFN)))]) + +(MODERN-MENUBUTTONFN + [LAMBDA (WINDOW) (* ; "Edited 23-May-2021 20:37 by rmk:") + + (* ;; "Replaces the button fn for a Menu window, allowing title clicks to do the move. Sometimes the title isn't in the window, it's in the menu.") + + (LET (MENU) + (IF [AND (MOUSESTATE (ONLY LEFT)) + (EQ LASTKEYBOARD 0) + (OR (WINDOWPROP WINDOW 'TITLE) + (AND [NULL (CDR (SETQ MENU (MKLIST (WINDOWPROP WINDOW 'MENU] + (TYPE? MENU (SETQ MENU (CAR MENU))) + (FETCH (MENU TITLE) OF MENU))) + (NEARTOP (WINDOWPROP WINDOW 'REGION) + (FONTPROP WindowTitleDisplayStream 'HEIGHT] + THEN (MOVEW WINDOW) + ELSE (MODERN-ORIG-MENUBUTTONFN WINDOW]) ) @@ -348,25 +391,24 @@ (DEFINEQ (TEDIT.MODERNIZE - [LAMBDA NIL (* ; "Edited 22-Feb-2021 16:28 by rmk:") + [LAMBDA NIL (* ; "Edited 24-Jun-2021 20:54 by rmk:") (CL:WHEN (GETD '\TEDIT.BUTTONEVENTFN) - (MODERNWINDOW.SETUP '\TEDIT.BUTTONEVENTFN) (* ;; "All") - (TEDIT.SETFUNCTION (CHARCODE "1,a") + (TEDIT.SETFUNCTION (CHARCODE "Meta,a") (FUNCTION TEDIT.SELECTALL) TEDIT.READTABLE) - (TEDIT.SETFUNCTION (CHARCODE "1,A") + (TEDIT.SETFUNCTION (CHARCODE "Meta,A") (FUNCTION TEDIT.SELECTALL) TEDIT.READTABLE) (* ;; "Quit") - (TEDIT.SETFUNCTION (CHARCODE "1,q") + (TEDIT.SETFUNCTION (CHARCODE "Meta,q") (FUNCTION TEDIT.QUIT) TEDIT.READTABLE) - (TEDIT.SETFUNCTION (CHARCODE "1,Q") + (TEDIT.SETFUNCTION (CHARCODE "Meta,Q") (FUNCTION TEDIT.QUIT) TEDIT.READTABLE))]) @@ -379,6 +421,12 @@ ) (DECLARE%: DONTEVAL@LOAD DOCOPY + +(* ;; "Tedit") + + +(MODERNWINDOW.SETUP '\TEDIT.BUTTONEVENTFN) + (TEDIT.MODERNIZE) @@ -456,6 +504,12 @@ (MODERNWINDOW PROMPTWINDOW T) + + +(* ;; "Menus: Move only and only with title clicks") + + +(MODERNWINDOW.SETUP 'MENUBUTTONFN 'MODERN-MENUBUTTONFN) ) (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS @@ -466,10 +520,10 @@ (ADDTOVAR LAMA MODERN-ADD-EXEC) ) (DECLARE%: DONTCOPY - (FILEMAP (NIL (4369 8713 (MODERNWINDOW 4379 . 5037) (MODERNWINDOW.SETUP 5039 . 7501) (UNMODERNWINDOW -7503 . 7897) (MODERNWINDOW.UNSETUP 7899 . 8711)) (8778 16791 (MODERNWINDOW.BUTTONEVENTFN 8788 . 13799) - (MODERNWINDOW.BUTTONEVENTFN.ANYWHERE 13801 . 14172) (NEARTOP 14174 . 14610) (NEARESTCORNER 14612 . -15491) (INCORNER.REGION 15493 . 16789)) (16849 18267 (MODERN-ADD-EXEC 16859 . 17290) (MODERN-SNAPW -17292 . 17835) (TOTOPW.MODERNIZE 17837 . 18265)) (18308 19391 (TEDIT.MODERNIZE 18318 . 19060) ( -TEDIT.SELECTALL 19062 . 19389))))) + (FILEMAP (NIL (4933 10561 (MODERNWINDOW 4943 . 6398) (MODERNWINDOW.SETUP 6400 . 9349) (UNMODERNWINDOW +9351 . 9745) (MODERNWINDOW.UNSETUP 9747 . 10559)) (10626 18766 (MODERNWINDOW.BUTTONEVENTFN 10636 . +15663) (NEARTOP 15665 . 16585) (NEARESTCORNER 16587 . 17466) (INCORNER.REGION 17468 . 18764)) (18824 +21146 (MODERN-ADD-EXEC 18834 . 19265) (MODERN-SNAPW 19267 . 19810) (TOTOPW.MODERNIZE 19812 . 20240) ( +MODERN-MENUBUTTONFN 20242 . 21144)) (21187 22227 (TEDIT.MODERNIZE 21197 . 21896) (TEDIT.SELECTALL +21898 . 22225))))) STOP diff --git a/lispusers/MODERNIZE.LCOM b/lispusers/MODERNIZE.LCOM index ac72faec9..99423f35c 100644 Binary files a/lispusers/MODERNIZE.LCOM and b/lispusers/MODERNIZE.LCOM differ diff --git a/lispusers/PRETTYFILEINDEX b/lispusers/PRETTYFILEINDEX index a0890aaa5..267319937 100644 --- a/lispusers/PRETTYFILEINDEX +++ b/lispusers/PRETTYFILEINDEX @@ -1,13 +1,15 @@ -(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) -(FILECREATED "28-Jun-99 17:13:51" {DSK}medley3.5>lispusers>PRETTYFILEINDEX.;3 91069 +(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10 FORMAT XCCS) +(FILECREATED " 9-Jul-2021 21:55:15"  +{DSK}kaplan>Local>medley3.5>git-medley>lispusers>PRETTYFILEINDEX.;5 93788 - changes to%: (FNS PRETTYFILEINDEX PFI.PASS.COMMENT) + changes to%: (FNS PRETTYFILEINDEX PFI.PRINT.FILECREATED) - previous date%: "12-Nov-93 09:53:58" {DSK}medley3.5>lispusers>PRETTYFILEINDEX.;2) + previous date%: " 9-Jul-2021 08:04:40" +{DSK}kaplan>Local>medley3.5>git-medley>lispusers>PRETTYFILEINDEX.;4) (* ; " -Copyright (c) 1988, 1992, 1993, 1999 by Xerox Corporation. All rights reserved. +Copyright (c) 1988, 1992-1993, 1999, 2021 by Xerox Corporation. ") (PRETTYCOMPRINT PRETTYFILEINDEXCOMS) @@ -181,7 +183,8 @@ Copyright (c) 1988, 1992, 1993, 1999 by Xerox Corporation. All rights reserved. (DEFINEQ (PRETTYFILEINDEX - [LAMBDA (FILENAME PRINTOPTIONS OUTSTREAM DONTINDEX) (* ; "Edited 11-Apr-95 00:02 by rmk:") + [LAMBDA (FILENAME PRINTOPTIONS OUTSTREAM DONTINDEX) (* ; "Edited 9-Jul-2021 21:35 by rmk:") + (* ; "Edited 11-Apr-95 00:02 by rmk:") (* ; "Edited 11-Jun-92 15:58 by cat") (* ;; "Makes an indexed file (default is the line printer pseudo-file). The index file will have a number of indices, one for each indexable type. Each type index will list all the items of that type in alphabetical order and the page number of where that item's definition is in the file. The indices will be printed last, so that this can be one-pass.") @@ -329,6 +332,9 @@ Copyright (c) 1988, 1992, 1993, 1999 by Xerox Corporation. All rights reserved. (SETQ *PFI-LOCATIONS* :NONE) else (STREAMPROP *STANDARD-OUTPUT* 'AFTERNEWPAGEFN (FUNCTION PFI.AFTER.NEW.PAGE)) (* ; "Enable header printing") + + (* ;; "RMK: NOBIND here seems to be deliberate, it seems somehow to match the NOBIND that appears in PFI.HANDLE.RPAQQ.") + [SETQ *PFI-FILEVARS* `((,(FILECOMS FILENAME) . NOBIND] (* ; "Says to do something with coms") [if (NOT (FIXP *PFI-MAX-WASTED-LINES*)) @@ -453,16 +459,107 @@ Copyright (c) 1988, 1992, 1993, 1999 by Xerox Corporation. All rights reserved. (DEFINEQ (PFI.PRINT.FILECREATED -(LAMBDA (EXPR ENV) (* ; "Edited 13-Apr-88 11:14 by bvm") (* ;; "Display the FILECREATED expression and environment prettily") (* ;; "Form is (FILECREATED date filename filemaploc changes to: changes previous date: date filename)") (pop EXPR) (CHANGEFONT ITALICFONT) (LET* ((STRINGS (QUOTE ("File created:" "changes to:" "previous date:" "Read Table:" "Package:" "Base:"))) (FONT (DSPFONT)) (STRWIDTHS (for STR in STRINGS collect (STRINGWIDTH STR FONT))) (TABSTOP (+ (DSPLEFTMARGIN) (APPLY (FUNCTION MAX) STRWIDTHS)))) (PFI.PRINT.TO.TAB (pop STRINGS) (pop STRWIDTHS) TABSTOP) (* ; "File created:") (PRINTOUT NIL (pop EXPR) " " .FONT LAMBDAFONT (pop EXPR) T T) (* ; "date and file name") (if (OR (NULL (CAR EXPR)) (FIXP (CAR EXPR))) then (* ; "Skip over filemaploc") (pop EXPR)) (if (EQ (CAR EXPR) (QUOTE changes)) then (* ; "handle %"Changes to:%"") (PFI.PRINT.TO.TAB (pop STRINGS) (pop STRWIDTHS) TABSTOP) (SETQ EXPR (CDDR EXPR)) (PRINTDEF (while (LISTP (CAR EXPR)) collect (pop EXPR)) T NIL T) (TERPRI) (TERPRI) else (pop STRINGS) (pop STRWIDTHS)) (if (EQ (CAR EXPR) (QUOTE previous)) then (* ; "Handle %"Previous date:%"") (PFI.PRINT.TO.TAB (pop STRINGS) (pop STRWIDTHS) TABSTOP) (SETQ EXPR (CDDR EXPR)) (PRINTOUT NIL (pop EXPR) " " (pop EXPR) T T) else (pop STRINGS) (pop STRWIDTHS)) (LET ((SPEC (fetch RESPEC of ENV))) (* ; "Show environment") (PFI.PRINT.TO.TAB (pop STRINGS) (pop STRWIDTHS) TABSTOP) (* ; "Read table") (PFI.PRINT.ENVIRONMENT SPEC :READTABLE) (PFI.PRINT.TO.TAB (pop STRINGS) (pop STRWIDTHS) TABSTOP) (* ; "Package") (PFI.PRINT.ENVIRONMENT SPEC :PACKAGE) (if (NEQ *PRINT-BASE* 10) then (PFI.PRINT.TO.TAB (pop STRINGS) (pop STRWIDTHS) TABSTOP) (PFI.PRINT.ENVIRONMENT SPEC :BASE))))) -) + [LAMBDA (EXPR ENV) (* ; "Edited 9-Jul-2021 07:59 by rmk:") + + (* ;; "Display the FILECREATED expression and environment prettily") + + (* ;; + "Form is (FILECREATED date filename filemaploc changes to: changes previous date: date filename)") + + (pop EXPR) + (CHANGEFONT ITALICFONT) + (LET* [(STRINGS '("File created:" "changes to:" "previous date:" "Read Table:" "Package:" "Base:" + "Format:")) + (FONT (DSPFONT)) + (STRWIDTHS (for STR in STRINGS collect (STRINGWIDTH STR FONT))) + (TABSTOP (+ (DSPLEFTMARGIN) + (APPLY (FUNCTION MAX) + STRWIDTHS] + (PFI.PRINT.TO.TAB (pop STRINGS) + (pop STRWIDTHS) + TABSTOP) (* ; "File created:") + (PRINTOUT NIL (pop EXPR) + " " .FONT LAMBDAFONT (pop EXPR) + T T) (* ; "date and file name") + (if (OR (NULL (CAR EXPR)) + (FIXP (CAR EXPR))) + then (* ; "Skip over filemaploc") + (pop EXPR)) + (if (EQ (CAR EXPR) + 'changes) + then (* ; "handle %"Changes to:%"") + (PFI.PRINT.TO.TAB (pop STRINGS) + (pop STRWIDTHS) + TABSTOP) + (SETQ EXPR (CDDR EXPR)) + (PRINTDEF (while (LISTP (CAR EXPR)) collect (pop EXPR)) + T NIL T) + (TERPRI) + (TERPRI) + else (pop STRINGS) + (pop STRWIDTHS)) + (if (EQ (CAR EXPR) + 'previous) + then (* ; "Handle %"Previous date:%"") + (PFI.PRINT.TO.TAB (pop STRINGS) + (pop STRWIDTHS) + TABSTOP) + (SETQ EXPR (CDDR EXPR)) + (PRINTOUT NIL (pop EXPR) + " " + (pop EXPR) + T T) + else (pop STRINGS) + (pop STRWIDTHS)) + + (* ;; "Show environment") + + (PFI.PRINT.TO.TAB (pop STRINGS) + (pop STRWIDTHS) + TABSTOP) (* ; "Read table") + (PFI.PRINT.ENVIRONMENT ENV :READTABLE) + (PFI.PRINT.TO.TAB (pop STRINGS) + (pop STRWIDTHS) + TABSTOP) (* ; "Package") + (PFI.PRINT.ENVIRONMENT ENV :PACKAGE) + (if (NEQ *PRINT-BASE* 10) + then (PFI.PRINT.TO.TAB (pop STRINGS) + (pop STRWIDTHS) + TABSTOP) + (PFI.PRINT.ENVIRONMENT ENV :BASE) + ELSE (pop STRINGS)) + (PFI.PRINT.TO.TAB (pop STRINGS) + (pop STRWIDTHS) + TABSTOP) (* ; "Format") + (PFI.PRINT.ENVIRONMENT ENV :FORMAT]) (PFI.PRINT.TO.TAB (LAMBDA (STR WIDTH TABSTOP) (* ; "Edited 29-Mar-88 12:44 by bvm") (* ;; "Print STR of specified WIDTH right-justified to xpos TABSTOP in italic font, leave a couple of spaces, then switch back to defaultfont.") (CHANGEFONT ITALICFONT) (DSPXPOSITION (- TABSTOP WIDTH)) (PRIN3 STR) (RELMOVETO (TIMES 12 (DSPSCALE)) 0) (CHANGEFONT DEFAULTFONT)) ) (PFI.PRINT.ENVIRONMENT -(LAMBDA (SPEC KEYWORD) (* ; "Edited 29-Mar-88 12:46 by bvm") (* ;; "Display the KEYWORD component of a reader environment spec") (LET ((VALUE (LISTGET SPEC KEYWORD))) (if (LISTP VALUE) then (* ; "An expression to create it--show pretty. Use IL package, since that's what they appear in at beginning of file") (LET ((*PACKAGE* *INTERLISP-PACKAGE*)) (PRINTDEF VALUE T T)) else (* ; "Just show the value, sans quotations, etc. The selectq is just in case this environment has no spec, something that shouldn't happen if it came from a define-file-info") (PRIN3 (OR VALUE (SELECTQ KEYWORD (:READTABLE (READTABLEPROP *READTABLE* (QUOTE NAME))) (:PACKAGE (CL:PACKAGE-NAME *PACKAGE*)) (SHOULDNT))))) (TERPRI) (TERPRI))) -) + [LAMBDA (ENV KEYWORD) (* ; "Edited 9-Jul-2021 08:03 by rmk:") + + (* ;; "Display the KEYWORD component of a reader environment spec") + + (LET [(VALUE (SELECTQ KEYWORD + (:READTABLE (READTABLEPROP (FETCH (READER-ENVIRONMENT REREADTABLE) + OF ENV) + 'NAME)) + (:PACKAGE (CL:PACKAGE-NAME (FETCH (READER-ENVIRONMENT REPACKAGE) + OF ENV))) + (:BASE (FETCH (READER-ENVIRONMENT REBASE) OF ENV)) + (:FORMAT (FETCH (READER-ENVIRONMENT REFORMAT) OF ENV)) + (SHOULDNT] + (if (LISTP VALUE) + then (* ; "An expression to create it--show pretty. Use IL package, since that's what they appear in at beginning of file") + (LET ((*PACKAGE* *INTERLISP-PACKAGE*)) + (PRINTDEF VALUE T T)) + else (* ; + "Just show the value, sans quotations, etc. ") + (PRIN3 VALUE)) + (TERPRI) + (TERPRI]) ) (DEFINEQ @@ -884,30 +981,30 @@ Copyright (c) 1988, 1992, 1993, 1999 by Xerox Corporation. All rights reserved. 'NILL) 'NON.PFI.PRINT.BITMAP NIL T) ) -(PUTPROPS PRETTYFILEINDEX COPYRIGHT ("Xerox Corporation" 1988 1992 1993 1999)) +(PUTPROPS PRETTYFILEINDEX COPYRIGHT ("Xerox Corporation" 1988 1992 1993 1999 2021)) (DECLARE%: DONTCOPY - (FILEMAP (NIL (10096 12331 (PFI.NEW.LISTFILES1 10106 . 10600) (PFI.ENQUEUE 10602 . 11226) ( -\PFI.DO.HARDCOPY 11228 . 11814) (MAYBE.PRETTYFILEINDEX 11816 . 12329)) (12332 34987 (PRETTYFILEINDEX -12342 . 26515) (PFI.MAKE.LPT.STREAM 26517 . 29568) (PFI.SETUP.TRANSLATIONS 29570 . 31084) ( -PFI.OUTCHARFN 31086 . 33060) (PFI.COLLECT.DEFINERS 33062 . 33874) (PFI.AFTER.NEW.PAGE 33876 . 34985)) -(34988 37844 (PFI.PRINT.FILECREATED 34998 . 36730) (PFI.PRINT.TO.TAB 36732 . 37097) ( -PFI.PRINT.ENVIRONMENT 37099 . 37842)) (37845 45029 (PFI.PROCESS.FILE 37855 . 39085) (PFI.PASS.COMMENT -39087 . 40057) (PFI.HANDLE.EXPR 40059 . 40726) (PFI.DEFAULT.HANDLER 40728 . 42781) (PFI.PRETTYPRINT -42783 . 43118) (PFI.LINES.REMAINING 43120 . 43447) (PFI.MAYBE.NEW.PAGE 43449 . 43952) ( -PFI.ESTIMATE.SIZE 43954 . 44485) (PFI.ESTIMATE.SIZE1 44487 . 45027)) (45066 54553 (PFI.HANDLE.RPAQQ -45076 . 46484) (PFI.HANDLE.DECLARE 46486 . 47425) (PFI.HANDLE.EVAL-WHEN 47427 . 47910) ( -PFI.HANDLE.DEFDEFINER 47912 . 49202) (PFI.HANDLE.DEFINEQ 49204 . 49448) (PFI.PRINT.LAMBDA 49450 . -49788) (PFI.PRINT.LAMBDA.BODY 49790 . 50125) (PFI.HANDLE.PUTDEF 50127 . 50624) (PFI.HANDLE.PUTPROPS -50626 . 51241) (PFI.HANDLE./DECLAREDATATYPE 51243 . 51790) (PFI.HANDLE.* 51792 . 53054) ( -PFI.PRINT.COMMENTS 53056 . 53956) (PFI.HANDLE.FILEMAP 53958 . 54246) (PFI.HANDLE.PACKAGE 54248 . 54551 -)) (54581 55573 (PFI.PREVIEW.DECLARE 54591 . 55253) (PFI.PREVIEW.DEFINEQ 55255 . 55571)) (55609 66597 -(PFI.PRINT.INDEX 55619 . 56470) (PFI.CONDENSE.INDEX 56472 . 58279) (PFI.SORT.INDICES 58281 . 59420) ( -PFI.COMPUTE.INDEX.SHAPE 59422 . 60886) (PFI.PRINT.INDICES 60888 . 65430) (PFI.CENTER.PRINT 65432 . -66002) (PFI.INDEX.BREAK 66004 . 66462) (PFI.LOOKUP.NAME 66464 . 66595)) (66598 67829 (PFI.ADD.TO.INDEX - 66608 . 67118) (PFI.VARNAME 67120 . 67530) (PFI.CONSTANTNAMES 67532 . 67827)) (67864 76177 ( -MULTIFILEINDEX 67874 . 68670) (MULTIFILEINDEX1 68672 . 70128) (PFI.PRINT.MULTI.INDEX 70130 . 75233) ( -PFI.CHOOSE.BEST 75235 . 75462) (PFI.MERGE.INDICES 75464 . 76175)) (76234 77852 (PFI.MAYBE.SEE.PRETTY -76244 . 77174) (PFI.MAYBE.PP.DEFINITION 77176 . 77850)) (77922 81757 (PFI.PRINT.BITMAP 77932 . 81755)) - (84602 87716 (PUTPROPS.PRETTYPRINT 84612 . 86023) (RPAQX.PRETTYPRINT 86025 . 86750) ( -COURIERPROGRAM.PRETTYPRINT 86752 . 87452) (MAYBE.PRETTYPRINT.BOLD 87454 . 87714))))) + (FILEMAP (NIL (10148 12383 (PFI.NEW.LISTFILES1 10158 . 10652) (PFI.ENQUEUE 10654 . 11278) ( +\PFI.DO.HARDCOPY 11280 . 11866) (MAYBE.PRETTYFILEINDEX 11868 . 12381)) (12384 35298 (PRETTYFILEINDEX +12394 . 26826) (PFI.MAKE.LPT.STREAM 26828 . 29879) (PFI.SETUP.TRANSLATIONS 29881 . 31395) ( +PFI.OUTCHARFN 31397 . 33371) (PFI.COLLECT.DEFINERS 33373 . 34185) (PFI.AFTER.NEW.PAGE 34187 . 35296)) +(35299 40558 (PFI.PRINT.FILECREATED 35309 . 38825) (PFI.PRINT.TO.TAB 38827 . 39192) ( +PFI.PRINT.ENVIRONMENT 39194 . 40556)) (40559 47743 (PFI.PROCESS.FILE 40569 . 41799) (PFI.PASS.COMMENT +41801 . 42771) (PFI.HANDLE.EXPR 42773 . 43440) (PFI.DEFAULT.HANDLER 43442 . 45495) (PFI.PRETTYPRINT +45497 . 45832) (PFI.LINES.REMAINING 45834 . 46161) (PFI.MAYBE.NEW.PAGE 46163 . 46666) ( +PFI.ESTIMATE.SIZE 46668 . 47199) (PFI.ESTIMATE.SIZE1 47201 . 47741)) (47780 57267 (PFI.HANDLE.RPAQQ +47790 . 49198) (PFI.HANDLE.DECLARE 49200 . 50139) (PFI.HANDLE.EVAL-WHEN 50141 . 50624) ( +PFI.HANDLE.DEFDEFINER 50626 . 51916) (PFI.HANDLE.DEFINEQ 51918 . 52162) (PFI.PRINT.LAMBDA 52164 . +52502) (PFI.PRINT.LAMBDA.BODY 52504 . 52839) (PFI.HANDLE.PUTDEF 52841 . 53338) (PFI.HANDLE.PUTPROPS +53340 . 53955) (PFI.HANDLE./DECLAREDATATYPE 53957 . 54504) (PFI.HANDLE.* 54506 . 55768) ( +PFI.PRINT.COMMENTS 55770 . 56670) (PFI.HANDLE.FILEMAP 56672 . 56960) (PFI.HANDLE.PACKAGE 56962 . 57265 +)) (57295 58287 (PFI.PREVIEW.DECLARE 57305 . 57967) (PFI.PREVIEW.DEFINEQ 57969 . 58285)) (58323 69311 +(PFI.PRINT.INDEX 58333 . 59184) (PFI.CONDENSE.INDEX 59186 . 60993) (PFI.SORT.INDICES 60995 . 62134) ( +PFI.COMPUTE.INDEX.SHAPE 62136 . 63600) (PFI.PRINT.INDICES 63602 . 68144) (PFI.CENTER.PRINT 68146 . +68716) (PFI.INDEX.BREAK 68718 . 69176) (PFI.LOOKUP.NAME 69178 . 69309)) (69312 70543 (PFI.ADD.TO.INDEX + 69322 . 69832) (PFI.VARNAME 69834 . 70244) (PFI.CONSTANTNAMES 70246 . 70541)) (70578 78891 ( +MULTIFILEINDEX 70588 . 71384) (MULTIFILEINDEX1 71386 . 72842) (PFI.PRINT.MULTI.INDEX 72844 . 77947) ( +PFI.CHOOSE.BEST 77949 . 78176) (PFI.MERGE.INDICES 78178 . 78889)) (78948 80566 (PFI.MAYBE.SEE.PRETTY +78958 . 79888) (PFI.MAYBE.PP.DEFINITION 79890 . 80564)) (80636 84471 (PFI.PRINT.BITMAP 80646 . 84469)) + (87316 90430 (PUTPROPS.PRETTYPRINT 87326 . 88737) (RPAQX.PRETTYPRINT 88739 . 89464) ( +COURIERPROGRAM.PRETTYPRINT 89466 . 90166) (MAYBE.PRETTYPRINT.BOLD 90168 . 90428))))) STOP diff --git a/lispusers/PRETTYFILEINDEX.LCOM b/lispusers/PRETTYFILEINDEX.LCOM index 87f561c95..e9d467363 100644 Binary files a/lispusers/PRETTYFILEINDEX.LCOM and b/lispusers/PRETTYFILEINDEX.LCOM differ diff --git a/lispusers/READINTERPRESS b/lispusers/READINTERPRESS index 5121792df..e64e99640 100644 --- a/lispusers/READINTERPRESS +++ b/lispusers/READINTERPRESS @@ -1,19 +1,30 @@ (DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP") -(FILECREATED "25-Mar-88 17:54:27" {ERINYES}MEDLEY>READINTERPRESS.;2 8705 +(FILECREATED "22-Jun-2021 10:52:34"  +{DSK}kaplan>Local>medley3.5>git-medley>lispusers>READINTERPRESS.;4 10412 - changes to%: (FNS READINT.IP) + changes to%: (FNS PRINTSEQUENCE) - previous date%: "15-Jul-86 21:58:05" {PHYLUM}LYRIC>READINTERPRESS.;1) + previous date%: "22-Jun-2021 10:35:30" +{DSK}kaplan>Local>medley3.5>git-medley>lispusers>READINTERPRESS.;3) -(* " -Copyright (c) 1983, 1984, 1985, 1986, 1988 by Xerox Corporation. All rights reserved. +(* ; " +Copyright (c) 1983-1986, 1988, 2021 by Xerox Corporation. ") (PRETTYCOMPRINT READINTERPRESSCOMS) -(RPAQQ READINTERPRESSCOMS ((* "Utilities for reading Interpress files") (FNS PRINTMASTER) (FNS OPCODE TOKEN FINDNONPRIMNAME FINDOPNAME SHORTINT TOKENFORMAT FINDSEQUENCETYPE PRINTTOKEN PRINTSEQUENCE SEARCHIPLIST READINT.IP SHOWFILE SHOWBYTE) (MACROS BIN.RIP) (DECLARE%: EVAL@COMPILE DONTCOPY (FILES (LOADCOMP) INTERPRESS)) (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA) (NLAML) (LAMA SHORTINT TOKEN)))) -) +(RPAQQ READINTERPRESSCOMS + [(* "Utilities for reading Interpress files") + (FNS PRINTMASTER) + (FNS OPCODE TOKEN FINDNONPRIMNAME FINDOPNAME SHORTINT TOKENFORMAT FINDSEQUENCETYPE PRINTTOKEN + PRINTSEQUENCE SEARCHIPLIST READINT.IP SHOWFILE SHOWBYTE) + (MACROS BIN.RIP) + (DECLARE%: EVAL@COMPILE DONTCOPY (FILES (LOADCOMP) + INTERPRESS)) + (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA) + (NLAML) + (LAMA SHORTINT TOKEN]) @@ -59,8 +70,48 @@ Copyright (c) 1983, 1984, 1985, 1986, 1988 by Xerox Corporation. All rights res ) (PRINTSEQUENCE -(LAMBDA (ISTREAM OUTSTREAM TYPE LENGTH) (* hdj "15-Jul-86 21:43") (SELECTQ TYPE (SEQIDENTIFIER (printout OUTSTREAM 20 "ID: ") (CHARSET ISTREAM 0) (bind (CHARSET _ 0) until (EQ LENGTH 0) do (PRINTCCODE (\NSIN ISTREAM CHARSET CHARSET LENGTH) OUTSTREAM))) (SEQINTEGER (printout OUTSTREAM 20) (for I from 1 to LENGTH do (PRINTTOKEN ISTREAM OUTSTREAM))) (SEQRATIONAL (PROG ((NUM (READINT.IP ISTREAM (LRSH LENGTH 1))) (DENOM (READINT.IP ISTREAM (LRSH LENGTH 1)))) (printout OUTSTREAM 20 NUM "/" DENOM " = " (FQUOTIENT NUM DENOM)))) (SEQSTRING (printout OUTSTREAM 20 "STR[" LENGTH "] = %"") (CHARSET ISTREAM 0) (bind (CHARSET _ 0) until (EQ LENGTH 0) do (PRINTCCODE (\NSIN ISTREAM CHARSET CHARSET LENGTH) OUTSTREAM)) (printout OUTSTREAM (QUOTE %"))) (SEQCOMMENT (for I from 1 to LENGTH first (printout OUTSTREAM 20 "Comment vector of " LENGTH " bytes" 22) do (printout OUTSTREAM |.I4| (BIN ISTREAM)))) (SEQPACKEDPIXELVECTOR (bind YBYTES (I _ 5) (XBITS _ (READINT.IP ISTREAM 2)) (YBITS _ (READINT.IP ISTREAM 2)) first (printout OUTSTREAM 20 "Packed pixel" " vector of " LENGTH " bytes [" XBITS "X" YBITS "]") (SETQ YBYTES (UNFOLD (FOLDHI YBITS BITSPERWORD) BYTESPERWORD)) (* "The number of bytes on a line is always even--gets to a word boundary") while (ILEQ I LENGTH) do (printout OUTSTREAM T 10) (for J from 1 to YBYTES do (printout OUTSTREAM |.I8.-2.T| (BIN ISTREAM)) (add I 1)))) (SEQLARGEVECTOR (for I VAL (BYTESPERELT _ (BIN ISTREAM)) from 2 to LENGTH first (printout OUTSTREAM 20 "Large vector of " BYTESPERELT " bytes per element") do (SETQ VAL (READINT.IP ISTREAM BYTESPERELT)) (printout OUTSTREAM 22 |.I5| I ": " VAL))) (SEQCONTINUED (HELP "Can't handle SEQCONTINUED yet")) (SEQINSERTFILE (HELP "Can't handle SEQINSERTFILE yet")) (SEQCOMPRESSPIXELVECTOR (HELP "Can't handle SEQCOMPRESSPIXELVECTOR yet")) (SHOULDNT)) (TERPRI OUTSTREAM)) -) + [LAMBDA (ISTREAM OUTSTREAM TYPE LENGTH) (* ; "Edited 22-Jun-2021 10:52 by rmk:") + (DECLARE (SPECVARS LENGTH)) (* ; "For byte counting") + (SELECTQ TYPE + (SEQIDENTIFIER (printout OUTSTREAM 20 "ID: ") + (until (EQ LENGTH 0) do (PRINTCCODE (\INCCODE ISTREAM 'LENGTH LENGTH) + OUTSTREAM))) + (SEQINTEGER (printout OUTSTREAM 20) + (for I from 1 to LENGTH do (PRINTTOKEN ISTREAM OUTSTREAM))) + (SEQRATIONAL (PROG [(NUM (READINT.IP ISTREAM (LRSH LENGTH 1))) + (DENOM (READINT.IP ISTREAM (LRSH LENGTH 1] + (printout OUTSTREAM 20 NUM "/" DENOM " = " (FQUOTIENT NUM DENOM)))) + (SEQSTRING (printout OUTSTREAM 20 "STR[" LENGTH "] = %"") + (until (EQ LENGTH 0) do (PRINTCCODE (\INCCODE ISTREAM 'LENGTH LENGTH) + OUTSTREAM)) + (printout OUTSTREAM '%")) + (SEQCOMMENT (for I from 1 to LENGTH + first (printout OUTSTREAM 20 "Comment vector of " LENGTH " bytes" 22) + do (printout OUTSTREAM .I4 (BIN ISTREAM)))) + (SEQPACKEDPIXELVECTOR + (bind YBYTES (I _ 5) + (XBITS _ (READINT.IP ISTREAM 2)) + (YBITS _ (READINT.IP ISTREAM 2)) + first (printout OUTSTREAM 20 "Packed pixel" " vector of " LENGTH " bytes [" XBITS + "X" YBITS "]") + (SETQ YBYTES (UNFOLD (FOLDHI YBITS BITSPERWORD) + BYTESPERWORD)) (* + "The number of bytes on a line is always even--gets to a word boundary") + while (ILEQ I LENGTH) do (printout OUTSTREAM T 10) + (for J from 1 to YBYTES + do (printout OUTSTREAM .I8.-2.T (BIN ISTREAM)) + (add I 1)))) + (SEQLARGEVECTOR + (for I VAL (BYTESPERELT _ (BIN ISTREAM)) from 2 to LENGTH + first (printout OUTSTREAM 20 "Large vector of " BYTESPERELT " bytes per element") + do (SETQ VAL (READINT.IP ISTREAM BYTESPERELT)) + (printout OUTSTREAM 22 .I5 I ": " VAL))) + (SEQCONTINUED (HELP "Can't handle SEQCONTINUED yet")) + (SEQINSERTFILE (HELP "Can't handle SEQINSERTFILE yet")) + (SEQCOMPRESSPIXELVECTOR + (HELP "Can't handle SEQCOMPRESSPIXELVECTOR yet")) + (SHOULDNT)) + (TERPRI OUTSTREAM]) (SEARCHIPLIST (LAMBDA (CODE IPLIST) (* rmk%: "15-Mar-84 09:15") (for X in IPLIST when (EQ CODE (CADR X)) do (RETURN (CAR X)))) @@ -79,10 +130,21 @@ Copyright (c) 1983, 1984, 1985, 1986, 1988 by Xerox Corporation. All rights res ) ) (DECLARE%: EVAL@COMPILE -(PUTPROPS BIN.RIP MACRO (ARGS (LET ((ISTREAM (CAR ARGS)) (OSTREAM (CADR ARGS))) (BQUOTE (LET ((C (BIN (\, ISTREAM)))) (COND ((IGREATERP (POSITION (\, OSTREAM)) 15) (printout (\, OSTREAM) 5 "|" 8))) (printout (\, OSTREAM) |.I3| C " ") C))))) + +(PUTPROPS BIN.RIP MACRO [ARGS (LET ((ISTREAM (CAR ARGS)) + (OSTREAM (CADR ARGS))) + `(LET [(C (BIN ,ISTREAM] + (COND + ((IGREATERP (POSITION ,OSTREAM) + 15) + (printout ,OSTREAM 5 "|" 8))) + (printout ,OSTREAM .I3 C " ") + C]) ) (DECLARE%: EVAL@COMPILE DONTCOPY -(FILESLOAD (LOADCOMP) INTERPRESS) + +(FILESLOAD (LOADCOMP) + INTERPRESS) ) (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS @@ -92,10 +154,10 @@ Copyright (c) 1983, 1984, 1985, 1986, 1988 by Xerox Corporation. All rights res (ADDTOVAR LAMA SHORTINT TOKEN) ) -(PUTPROPS READINTERPRESS COPYRIGHT ("Xerox Corporation" 1983 1984 1985 1986 1988)) +(PUTPROPS READINTERPRESS COPYRIGHT ("Xerox Corporation" 1983 1984 1985 1986 1988 2021)) (DECLARE%: DONTCOPY - (FILEMAP (NIL (910 1596 (PRINTMASTER 920 . 1594)) (1597 8114 (OPCODE 1607 . 1732) (TOKEN 1734 . 2306) -(FINDNONPRIMNAME 2308 . 2413) (FINDOPNAME 2415 . 2672) (SHORTINT 2674 . 2867) (TOKENFORMAT 2869 . 3111 -) (FINDSEQUENCETYPE 3113 . 3317) (PRINTTOKEN 3319 . 4270) (PRINTSEQUENCE 4272 . 6133) (SEARCHIPLIST -6135 . 6267) (READINT.IP 6269 . 6508) (SHOWFILE 6510 . 7834) (SHOWBYTE 7836 . 8112))))) + (FILEMAP (NIL (1210 1896 (PRINTMASTER 1220 . 1894)) (1897 9430 (OPCODE 1907 . 2032) (TOKEN 2034 . 2606 +) (FINDNONPRIMNAME 2608 . 2713) (FINDOPNAME 2715 . 2972) (SHORTINT 2974 . 3167) (TOKENFORMAT 3169 . +3411) (FINDSEQUENCETYPE 3413 . 3617) (PRINTTOKEN 3619 . 4570) (PRINTSEQUENCE 4572 . 7449) ( +SEARCHIPLIST 7451 . 7583) (READINT.IP 7585 . 7824) (SHOWFILE 7826 . 9150) (SHOWBYTE 9152 . 9428))))) STOP diff --git a/lispusers/READINTERPRESS.LCOM b/lispusers/READINTERPRESS.LCOM new file mode 100644 index 000000000..c9323e9b6 Binary files /dev/null and b/lispusers/READINTERPRESS.LCOM differ diff --git a/lispusers/SEDIT-COMMONLISP b/lispusers/SEDIT-COMMONLISP deleted file mode 100644 index 16a8ef722..000000000 --- a/lispusers/SEDIT-COMMONLISP +++ /dev/null @@ -1,365 +0,0 @@ -(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE (LET ((*PACKAGE* *PACKAGE*)) (CLIN-PACKAGE -"INTERLISP") (FILESLOAD TEXTMODULES) *PACKAGE*) BASE 10) -(FILECREATED " 2-Oct-87 18:07:39" {DSK}WORK>SEDIT-COMMONLISP.;29 63962 - - changes to%: (FNS \\unread.read.time.conditional? \\subnode.changed.read.time.conditional \\delete.read.time.conditional \\replace.read.time.conditional \\set.point.read.time.conditional \\initialize.commonlisp \\insert.read.time.conditional \\parse..conditional.read \\cfv.read.time.conditional \\linearize.read.time.conditional \\compute.point.position.read.time.conditional \\undo.replace.read.time.conditional \\backspace.read.time.conditional \\stringify.read.time.conditional \\copy.structure.read.time.conditional \\set.selection.read.time.conditional \\stringify.comment SUPERPRINT/COMMENT \\linearize.comment \\cfv.form \\parse..hash.bar.comment) - (VARS SEDIT-COMMONLISPCOMS) (PROPS (SEDIT-COMMONLISP MAKEFILE-ENVIRONMENT)) (PRESENTATIONS TM::HASH-R) - - previous date%: "29-Sep-87 14:05:07" {DSK}WORK>SEDIT-COMMONLISP.;17) - - -(* " -Copyright (c) 1987 by Xerox Corporation. All rights reserved. -") - -(PRETTYCOMPRINT SEDIT-COMMONLISPCOMS) - -(RPAQQ SEDIT-COMMONLISPCOMS ((* ;;; " This file contains patches to the following files: SEDIT-COMMENTS (adds 4 semicolon and balanced comments), SEDIT-LISTS (form CFV and linearize of the new comment types), DSPRINTDEF and NEWPRINTDEF (new comment type printing).") (LOCALVARS . T) (DECLARE%: DONTCOPY DOEVAL@COMPILE (FILES SEDIT-DECLS)) (CONSTANTS (\\level4.comment (QUOTE ;;;;)) (\\level5.comment (QUOTE %|)) (\\level5.comment.close.string (\\create.string.item "|#" (fetch (EditENV CommentFont) of \\lisp.edit.environment))) (\\comment.markers (LIST \\level1.comment \\level2.comment \\level3.comment \\level4.comment \\level5.comment)) (\\comment.level.table (LIST \\level1.comment 1 \\level2.comment 2 \\level3.comment 3 \\level4.comment 4 \\level5.comment 5))) (GLOBALVARS \\type.new.quote \\type.read.time.conditional) (* ;;; "You must also have EXPORTS.ALL loaded to compile this file, but it shouldn't be neccessary to set DFNFLG to PROP.") (MACROS \\select.comment.indent) (FNS PRIN2-LONG-STRING SEMI-COLON-COMMENT-P SUPERPRINT/COMMENT \\backspace.read.time.conditional \\cfv.clisp \\cfv.comment \\cfv.form \\cfv.lambda \\cfv.read.time.conditional \\compute.point.position.read.time.conditional \\copy.structure.new.quote \\copy.structure.read.time.conditional \\create.new.quoted.gap \\degrade.comment \\delete.read.time.conditional \\initialize.commonlisp \\input.bit.vector \\input.conditional.read \\input.new.quote \\insert.new.quoted.gap \\insert.read.time.conditional \\linearize.clisp \\linearize.comment \\linearize.form \\linearize.lambda \\linearize.list \\linearize.read.time.conditional \\parse..bit.vector \\parse..comment \\parse..conditional.read \\parse..new.quote \\replace.new.quote \\replace.read.time.conditional \\set.point.read.time.conditional \\set.selection.read.time.conditional \\split.comment \\stringify.comment \\stringify.new.quote \\stringify.read.time.conditional \\subnode.changed.new.quote \\subnode.changed.read.time.conditional \\undo.replace.read.time.conditional \\unread.read.time.conditional? \\upgrade.comment) (P (\\initialize.commonlisp)) (PROP MAKEFILE-ENVIRONMENT SEDIT-COMMONLISP)) -) - - - -(* ;;; -" This file contains patches to the following files: SEDIT-COMMENTS (adds 4 semicolon and balanced comments), SEDIT-LISTS (form CFV and linearize of the new comment types), DSPRINTDEF and NEWPRINTDEF (new comment type printing)." -) - -(DECLARE%: DOEVAL@COMPILE DONTCOPY - -(LOCALVARS . T) -) -(DECLARE%: DONTCOPY DOEVAL@COMPILE -(FILESLOAD SEDIT-DECLS) -) -(DECLARE%: EVAL@COMPILE - -(RPAQQ \\level4.comment ;;;;) - -(RPAQQ \\level5.comment %|) - -(RPAQ \\level5.comment.close.string (\\create.string.item "|#" (fetch (EditENV CommentFont) of \\lisp.edit.environment)) -) - -(RPAQ \\comment.markers (LIST \\level1.comment \\level2.comment \\level3.comment \\level4.comment \\level5.comment) -) - -(RPAQ \\comment.level.table (LIST \\level1.comment 1 \\level2.comment 2 \\level3.comment 3 \\level4.comment 4 \\level5.comment 5) -) - -(CONSTANTS (\\level4.comment (QUOTE ;;;;)) (\\level5.comment (QUOTE %|)) (\\level5.comment.close.string (\\create.string.item "|#" (fetch (EditENV CommentFont) of \\lisp.edit.environment))) (\\comment.markers (LIST \\level1.comment \\level2.comment \\level3.comment \\level4.comment \\level5.comment)) (\\comment.level.table (LIST \\level1.comment 1 \\level2.comment 2 \\level3.comment 3 \\level4.comment 4 \\level5.comment 5))) -) -(DECLARE%: DOEVAL@COMPILE DONTCOPY - -(GLOBALVARS \\type.new.quote \\type.read.time.conditional) -) - - - -(* ;;; -"You must also have EXPORTS.ALL loaded to compile this file, but it shouldn't be neccessary to set DFNFLG to PROP." -) - -(DECLARE%: EVAL@COMPILE -(PUTPROPS \\select.comment.indent MACRO ((key level1.indent level2.indent level3.indent) (SELECTQ key (1 level1.indent) (2 level2.indent) ((3 4 5) level3.indent) (SHOULDNT "unexpected comment level")))) -) -(DEFINEQ - -(PRIN2-LONG-STRING -(LAMBDA (STRING STREAM P2FLG TAIL LMARG RMARG COMMENTP USE-SEMI-COLONS) (* ; "Edited 20-Sep-87 19:20 by raf") (PROG ((ESC (fetch (READTABLEP ESCAPECHAR) of *READTABLE*)) (SA (fetch (READTABLEP READSA) of *READTABLE*)) (HERE (DSPXPOSITION NIL STREAM)) (FONT (DSPFONT NIL STREAM)) ESCWIDTH SPACEWIDTH CLOSEWIDTH SEMIWIDTH LASTSPACE I C NEXTC POS J MAPX1 MAPY1 SINGLELEFT SEMISTRING) (COND ((NOT (type? FONTDESCRIPTOR FONT)) (* ; "Ugh, happens for files") (SETQ FONT STREAM))) (SETQ ESCWIDTH (CHARWIDTH ESC FONT)) (SETQ SPACEWIDTH (CHARWIDTH (CHARCODE SPACE) FONT)) (SETQ CLOSEWIDTH (COND (P2FLG (STRINGWIDTH "%")" FONT)) (T 0))) (SELECTQ USE-SEMI-COLONS ((1 2 3 4) (* ; "Semicolon comment") (SETQ SEMIWIDTH (+ SPACEWIDTH (TIMES USE-SEMI-COLONS (CHARWIDTH (CHARCODE ";") FONT)))) (SETQ SEMISTRING (CONCAT (ALLOCSTRING USE-SEMI-COLONS (CHARCODE ";")) " "))) (5 (* ; "Balanced (hash bar) comment") (SETQ SEMIWIDTH 0) (SETQ SEMISTRING "")) NIL) (COND ((for C instring STRING as I from 1 bind (POS _ (+ HERE (COND (P2FLG (CHARWIDTH (CHARCODE %") FONT)) ((LEQ USE-SEMI-COLONS 4) SEMIWIDTH) ((EQ USE-SEMI-COLONS 5) (STRINGWIDTH "#||#" FONT)) (T 0)) CLOSEWIDTH)) do (COND ((EQ C (CHARCODE CR)) (* ; "Always want to print these strings specially") (SETQ LASTSPACE I) (RETURN NIL)) ((AND P2FLG (OR (EQ C (CHARCODE %")) (EQ C ESC))) (* ; "Need escape") (add POS ESCWIDTH))) (COND ((GREATERP (add POS (CHARWIDTH C FONT)) RMARG) (RETURN NIL))) (COND ((EQ C (CHARCODE SPACE)) (SETQ LASTSPACE I))) finally (RETURN T)) (* ; "It all fits on this line") (RETURN (COND (P2FLG (PRIN2S STRING TAIL STREAM)) (T (if (LEQ USE-SEMI-COLONS 4) then (PRIN1 SEMISTRING STREAM) elseif (EQ USE-SEMI-COLONS 5) then (PRIN1 "#|" STREAM)) (PRIN1S STRING TAIL STREAM) (if (EQ USE-SEMI-COLONS 5) then (PRIN1 "|#" STREAM))))))) (COND ((OR (NULL LASTSPACE) (AND (NULL COMMENTP) (NEQ HERE LMARG))) (* ;; "Can't print anything on this line before the end. Comments are allowed to have different first and subsequent margin.") (PRINENDLINE LMARG STREAM) (SETQ HERE LMARG) (SETQ LASTSPACE 0))) (COND (MAKEMAP (* ; "Note start") (SETQ MAPX1 HERE) (SETQ MAPY1 (DSPYPOSITION NIL STREAM)) (SETQ SINGLELEFT (EQ HERE LMARG)))) (COND (P2FLG (COND ((NOT (IMAGESTREAMP STREAM)) (* ; "Need to be able to read it back") (LET ((HASH (fetch (READTABLEP HASHMACROCHAR) of *READTABLE*))) (\OUTCHAR STREAM HASH) (add HERE (CHARWIDTH HASH FONT))))) (\OUTCHAR STREAM (CHARCODE %")) (add HERE (CHARWIDTH (CHARCODE %") FONT))) ((LEQ USE-SEMI-COLONS 4) (PRIN1 SEMISTRING STREAM) (add HERE SEMIWIDTH)) ((EQ USE-SEMI-COLONS 5) (PRIN1 "#|" STREAM) (add HERE (STRINGWIDTH "#|" FONT)))) (* ;;; "Now loop, printing as much as we can while there's room") (SETQ I 0) LP (COND ((NULL (SETQ C (NTHCHARCODE STRING (add I 1)))) (* ; "Done") (GO DONE)) ((NOT (LESSP I LASTSPACE)) (* ;; "Must find the next safe place to print up to. LASTSPACE is either a space or CR position, or is 0, which is our state when printing from the left margin until we encounter a space.") (SETQ POS HERE) (SETQ J I) (* ; "Ordinarily, J is pointing at a space or CR except when we have just printed an endline") (SELCHARQ C (SPACE (* ; "Would like all spaces before the eol, where they're invisible, not after") (SELCHARQ (NTHCHARCODE STRING (ADD1 J)) ((SPACE CR NIL) (SETQ LASTSPACE (ADD1 J)) (* ; "Go ahead and print this space, and note that it is now okay to break the line") (COND ((AND (IGEQ (+ HERE SPACEWIDTH) RMARG) (IMAGESTREAMP STREAM)) (* ; "Extra spaces have no effect, so don't print them at all, lest the dsprightmargin bite") (GO LP)) (T (GO PRINTIT)))) NIL) (add POS SPACEWIDTH)) (CR (* ; "If two cr's in a row, print them all; if only one, must escape it") (COND ((EQ (SETQ C (NTHCHARCODE STRING (add I 1))) (CHARCODE CR)) (PRINENDLINE LMARG STREAM) (while (EQ (SETQ C (NTHCHARCODE STRING (add I 1))) (CHARCODE CR)) do (PRINENDLINE LMARG STREAM))) (T (\OUTCHAR STREAM ESC))) (SETQ LASTSPACE 0) (GO ENDLINE)) (PROGN (* ;; "Gets set this way at left edge. Must print something on this line, even if there are no spaces before the right edge") (GO CHECKESCAPE))) (SETQ LASTSPACE 0) (while (LESSP POS RMARG) do (SELCHARQ (SETQ NEXTC (NTHCHARCODE STRING (add J 1))) ((CR SPACE) (* ; "Can safely go this far") (SETQ LASTSPACE J) (RETURN)) (NIL (* ; "End of string -- ok if there is space for closing quote and paren as well") (COND ((LESSP (PLUS POS CLOSEWIDTH) RMARG) (SETQ LASTSPACE J) (RETURN)) (T (GO $$OUT)))) NIL) (COND ((OR (EQ NEXTC (CHARCODE %")) (EQ NEXTC ESC)) (add POS ESCWIDTH))) (add POS (CHARWIDTH NEXTC FONT)) finally (COND ((EQ LASTSPACE 0) (* ; "Need break") (COND ((EQ C (CHARCODE SPACE)) (* ; "Will turn this space into CR") (SETQ C (NTHCHARCODE STRING (add I 1)))) (T (SHOULDNT))) (GO ENDLINE)))))) CHECKESCAPE (COND ((AND P2FLG (OR (EQ C (CHARCODE %")) (EQ C ESC))) (\OUTCHAR STREAM ESC) (add HERE ESCWIDTH))) PRINTIT (\OUTCHAR STREAM C) (add HERE (CHARWIDTH C FONT)) (GO LP) ENDLINE (PRINENDLINE LMARG STREAM) (SETQ HERE LMARG) (COND ((NULL C) (* ; "Done") (GO DONE)) ((AND P2FLG (EQ (\SYNCODE SA C) SEPRCHAR.RC)) (* ; "Have to quote sepr immediately following CR") (\OUTCHAR STREAM ESC) (add HERE ESCWIDTH) (GO PRINTIT)) (T (COND (USE-SEMI-COLONS (PRIN1 SEMISTRING STREAM) (add HERE SEMIWIDTH))) (GO CHECKESCAPE))) DONE (COND (P2FLG (\OUTCHAR STREAM (CHARCODE %")))) (COND (MAKEMAP (LET ((ENTRY (MAKEMAPENTRY TAIL (AND (NEQ MAKEMAP T) MAKEMAP) MAPX1 MAPY1 (DSPXPOSITION NIL STREAM) (DSPYPOSITION NIL STREAM) (\DEDITFONT# STREAM)))) (replace LONGSTRINGP of ENTRY with T) (COND (SINGLELEFT (replace LONGSTRING1MARGINP of ENTRY with T))) (COND ((EQ (- (DSPRIGHTMARGIN NIL STREAM) LMARG) RMARG) (* ;; "Assume that RMARG not equal to stream's right margin only happens for centered comments. In reality, it happens as well inside REPP, where RESETCLIP hides the true right margin.") (replace LONGSTRINGSYMMETRICP of ENTRY with T))))) ((EQ USE-SEMI-COLONS 5) (PRIN1 "|#" STREAM))) (RETURN))) -) - -(SEMI-COLON-COMMENT-P -(LAMBDA (E) (* ; "Edited 20-Sep-87 18:30 by raf") (* ;; "If E is a comment, returns a number giving number of semis (or type).") (SELECTQ (CADR E) (; (* ; "SEdit-style right-margin comment") 1) (;; (* ; "SEdit-style current-indent comment") 2) (;;; (* ; "SEdit-style flush left comment") 3) (;;;; (* ; "Page boundary type comment") 4) (%| (* ; "Balanced (hash vertical bar) comment") 5) NIL)) -) - -(SUPERPRINT/COMMENT -(LAMBDA (L FILE) (* ; "Edited 21-Sep-87 12:35 by raf") (COND ((AND **COMMENT**FLG (NOT FILEFLG) (NOT MAKEMAP)) (* ; "If:") (* ; "There's a shorthand for comments, and") (* ; "We're not printing to a file, and") (* ; "Ww're not making the file map, then") (* ;; "Print out the shorthand version of the comment, watching out for overflowing the current line.") (COND ((> (+ (DSPXPOSITION NIL FILE) (STRINGWIDTH **COMMENT**FLG FILE)) (DSPRIGHTMARGIN NIL FILE)) (PRINENDLINE 0 FILE))) (PRIN1S **COMMENT**FLG NIL FILE)) (T (PROG (COMMENT-LMARGIN COMMENT-RMARGIN RIGHTFLG FLUSH-LEFTP SEMIP BODY) (COND ((SETQ RIGHTFLG (NOT (OR (SUPERPRINTEQ (CADR L) COMMENTFLG) (COND ((SETQ SEMIP (SEMI-COLON-COMMENT-P L)) (* ; "Only 1-semi comments go in right margin") (NEQ SEMIP 1)) (T (* ; "use size heuristic") (> (LENGTH L) 10)))))) (* ; "Print comment in the righthand margin") (SETQ COMMENT-LMARGIN (OR COMMENTCOL (SUPERPRINT/COMMENT1 L RMARGIN FILE))) (SETQ COMMENT-RMARGIN RMARGIN)) ((AND (GEQ SEMIP 3) (NOT MAKEMAP)) (* ; "Comment should be printed flush left. Don't do this with DEdit lest we confuse it") (SETQ COMMENT-LMARGIN 0) (SETQ COMMENT-RMARGIN RMARGIN)) (T (* ; "Print comment centered and wide") (SETQ COMMENT-LMARGIN (FIXR (TIMES 0.1 RMARGIN))) (SETQ COMMENT-RMARGIN (- RMARGIN COMMENT-LMARGIN)) (COND ((EQ COMMENT-LMARGIN (DSPXPOSITION NIL FILE)) (* ;; "HACK: Almost certainly called from REPP, so we must supress the normal leading and trailing blank lines as they have already been done") (SETQ RIGHTFLG T))))) (COND ((< COMMENT-LMARGIN (DSPXPOSITION NIL FILE)) (PRINENDLINE COMMENT-LMARGIN FILE)) (T (DSPXPOSITION COMMENT-LMARGIN FILE))) (SETFONT (PROG1 (SETFONT COMMENTFONT FILE) (COND ((AND SEMIP (NOT MAKEMAP) (STRINGP (SETQ BODY (CAR (LISTP (CDR (LISTP (CDR L))))))) (NULL (CDDDR L)) (OR (IMAGESTREAMP FILE) *PRINT-SEMICOLON-COMMENTS*)) (* ; "do nice semi-colon stuff") (PRIN2-LONG-STRING BODY FILE NIL NIL COMMENT-LMARGIN COMMENT-RMARGIN T SEMIP)) (T (SUPERPRINT/COMMENT2 L COMMENT-LMARGIN (IQUOTIENT (+ COMMENT-LMARGIN COMMENT-RMARGIN) 2) COMMENT-RMARGIN FILE)))) FILE) (COND ((AND SEMIP (NEQ SEMIP 5) (NOT MAKEMAP)) (* ;; "AR 8475 JDS 4/16/87: If there's a semi-colon comment on this line, and we're not making the file map (??), and RIGHTFLG is NIL (whatever that means) then force a new line.") (OR RIGHTFLG (PRINENDLINE 0 FILE)))) (RETURN L))))) -) - -(\\backspace.read.time.conditional -(LAMBDA (node context index) (* ; "Edited 30-Sep-87 14:01 by raf") (if (NULL index) then (* ; "backspace from right boundary puts caret into the read.time.conditional's FORM.") (LET ((point (fetch CaretPoint of context))) (replace PointNode of point with node) (replace PointIndex of point with (CAR (fetch SubNodes of node))) (replace PointType of point with (QUOTE Structure))) (\\set.selection.nowhere (fetch Selection of context)) elseif (ZEROP index) then (* ; "backspace from before first element deletes the read.time.conditional if its empty.") (if (NULL (CDR (fetch SubNodes of node))) then (\\delete (fetch SuperNode of node) context node NIL (fetch CaretPoint of context))) else (* ; "backspacing after an element of the read.time.conditional is handled by that subnode.") (SETQ node (\\subnode index node)) (APPLY* (fetch BackSpace of (fetch NodeType of node)) node context))) -) - -(\\cfv.clisp -(LAMBDA (x environment) (* ; "Edited 21-Sep-87 11:40 by raf") (* compute the width estimates for a clisp expression) (bind (pwidth _ 0) (mwidth _ 0) (iwidth _ 0) (first.subnode _ T) (paren.width _ (fetch Width of (fetch LParenString of environment))) (space.width _ (fetch SpaceWidth of environment)) plll mlll indent pcomment.indent mcomment.indent first (SETQ indent paren.width) (SETQ pcomment.indent paren.width) (SETQ mcomment.indent paren.width) for subnode in (CDR (fetch SubNodes of x)) do (if (EQ (fetch NodeType of subnode) \\type.comment) then (SELECTQ (fetch Unassigned of subnode) (1 (SETQ pwidth (IMAX pwidth (IPLUS pcomment.indent (fetch PreferredWidth of subnode)))) (SETQ mwidth (IMAX mwidth (IPLUS mcomment.indent (fetch MinWidth of subnode))))) ((2 3 4 5) (SETQ pwidth (IMAX pwidth (IPLUS indent (fetch PreferredWidth of subnode)))) (SETQ mwidth (IMAX mwidth (IPLUS indent (fetch MinWidth of subnode))))) (SHOULDNT "unexpected value for comment level")) (SETQ plll (SETQ mlll paren.width)) (SETQ iwidth NIL) else (if iwidth then (if (fetch InlineWidth of subnode) then (SETQ iwidth (IPLUS iwidth (if (ZEROP iwidth) then paren.width else space.width) (fetch InlineWidth of subnode))) else (SETQ iwidth NIL))) (if (AND (NOT first.subnode) (EQ (fetch ParseMode of subnode) (QUOTE KeyWord))) then (* indentable keywords are indented by the minimum indentation, except for the first keyword of the expression. other keywords are only indented by the width of the left parenthesis) (if (AND (MEMB (CDR (GETPROP (fetch Structure of subnode) (QUOTE CLISPWORD))) \\clisp.indent.words) (NOT first.subnode)) then (SETQ indent (fetch MinIndent of environment)) else (SETQ indent paren.width) (SETQ iwidth NIL))) (SETQ plll (IPLUS indent (fetch PreferredLLength of subnode))) (SETQ mlll (IPLUS indent (fetch MinLLength of subnode))) (SETQ pcomment.indent plll) (SETQ mcomment.indent mlll) (SETQ pwidth (IMAX pwidth (IPLUS (fetch PreferredWidth of subnode) indent))) (SETQ mwidth (IMAX mwidth (IPLUS (fetch MinWidth of subnode) indent))) (if (EQ (fetch ParseMode of subnode) (QUOTE KeyWord)) then (* the subnodes following a keyword are indented by the keyword's indentation plus its width plus a blank) (SETQ indent (IPLUS indent (fetch InlineWidth of subnode) space.width))) (SETQ first.subnode NIL)) finally (replace InlineWidth of x with (AND iwidth (ILESSP iwidth (fetch MaxWidth of environment)) (IPLUS iwidth paren.width))) (replace PreferredWidth of x with (IMAX pwidth (replace PreferredLLength of x with (IPLUS plll paren.width)))) (replace MinWidth of x with (IMAX mwidth (replace MinLLength of x with (IPLUS mlll paren.width)))))) -) - -(\\cfv.comment -(LAMBDA (node environment context) (* ; "Edited 18-Sep-87 17:58 by raf") (* ; "compute the width estimates for a comment node") (replace InlineWidth of node with NIL) (* ; "dispatch on the comment level") (LET ((width (fetch CommentWidth of context))) (SELECTQ (fetch Unassigned of node) (1 (* ; "here we know the comment width") (replace PreferredWidth of node with width) (replace MinWidth of node with width) (replace PreferredLLength of node with width) (replace MinLLength of node with width)) (2 (* ; "here just guess twice single semi comment width") (replace PreferredWidth of node with (ITIMES 2 width)) (replace MinWidth of node with width) (replace PreferredLLength of node with (ITIMES 2 width)) (replace MinLLength of node with width)) ((3 4 5) (* ; "since these won't affect supernode's formattng, just guess small") (replace PreferredWidth of node with 30) (replace MinWidth of node with 30) (replace PreferredLLength of node with 30) (replace MinLLength of node with 30)) (SHOULDNT "unexpected value for comment level")))) -) - -(\\cfv.form -(LAMBDA (x environment) (* ; "Edited 20-Sep-87 18:00 by raf") (* compute the width estimates for a lisp function call) (bind (pwidth _ 0) (mwidth _ 0) (iwidth _ 0) (first.subnode _ T) (paren.width _ (fetch Width of (fetch LParenString of environment))) (space.width _ (fetch SpaceWidth of environment)) plll mlll indent pcomment.indent mcomment.indent first (if (NULL (CDR (fetch SubNodes of x))) then (SETQ pwidth (ITIMES paren.width 2)) (replace InlineWidth of x with pwidth) (replace PreferredLLength of x with pwidth) (replace PreferredWidth of x with pwidth) (replace MinLLength of x with pwidth) (replace MinWidth of x with pwidth) (RETURN)) (SETQ indent paren.width) (SETQ pcomment.indent paren.width) (SETQ mcomment.indent paren.width) for subnode in (CDR (fetch SubNodes of x)) do (if (EQ (fetch NodeType of subnode) \\type.comment) then (SELECTQ (fetch Unassigned of subnode) (1 (SETQ pwidth (IMAX pwidth (IPLUS pcomment.indent (fetch PreferredWidth of subnode)))) (SETQ mwidth (IMAX mwidth (IPLUS mcomment.indent (fetch MinWidth of subnode))))) ((2 3 4 5) (SETQ pwidth (IMAX pwidth (IPLUS indent (fetch PreferredWidth of subnode)))) (SETQ mwidth (IMAX mwidth (IPLUS indent (fetch MinWidth of subnode))))) (SHOULDNT "unexpected value for comment level")) (SETQ plll (SETQ mlll paren.width)) (SETQ iwidth NIL) else (if iwidth then (if (fetch InlineWidth of subnode) then (SETQ iwidth (IPLUS iwidth (if (ZEROP iwidth) then paren.width else space.width) (fetch InlineWidth of subnode))) else (SETQ iwidth NIL))) (SETQ plll (IPLUS indent (fetch PreferredLLength of subnode))) (SETQ mlll (IPLUS indent (fetch MinLLength of subnode))) (SETQ pcomment.indent plll) (SETQ mcomment.indent mlll) (SETQ pwidth (IMAX pwidth (IPLUS (fetch PreferredWidth of subnode) indent))) (SETQ mwidth (IMAX mwidth (IPLUS (fetch MinWidth of subnode) indent))) (if first.subnode then (* the remaining subnodes are indented by the width of the CAR, unless it's too wide or won't go inline) (SETQ indent (if (AND iwidth (OR (ATOM (fetch Structure of subnode)) (ILESSP iwidth (fetch DefaultIndent of environment))) (ILESSP iwidth (fetch MaxIndent of environment))) then (IPLUS iwidth space.width) else (fetch DefaultIndent of environment))) (SETQ first.subnode NIL))) finally (replace InlineWidth of x with (AND iwidth (ILESSP iwidth (fetch MaxWidth of environment)) (IPLUS iwidth paren.width))) (replace PreferredWidth of x with (IMAX pwidth (replace PreferredLLength of x with (IPLUS plll paren.width)))) (replace MinWidth of x with (IMAX mwidth (replace MinLLength of x with (IPLUS mlll paren.width)))) (replace Unassigned of x with indent))) -) - -(\\cfv.lambda -(LAMBDA (x environment) (* ; "Edited 21-Sep-87 11:37 by raf") (* ;; "compute the width estimates for a lambda expression or similar structure. PROGs and PROG*s also go through here, but are treated specially (because of the labels)") (bind (pwidth _ 0) (mwidth _ 0) (first.subnode _ T) (prog? _ (MEMB (fetch Structure of (CADR (fetch SubNodes of x))) (QUOTE (PROG PROG* NIL)))) (paren.width _ (fetch Width of (fetch LParenString of environment))) plll mlll indent pcomment.indent mcomment.indent first (SETQ indent paren.width) (SETQ pcomment.indent paren.width) (SETQ mcomment.indent paren.width) for subnode in (CDR (fetch SubNodes of x)) do (if (EQ (fetch NodeType of subnode) \\type.comment) then (SELECTQ (fetch Unassigned of subnode) (1 (SETQ pwidth (IMAX pwidth (IPLUS pcomment.indent (fetch PreferredWidth of subnode)))) (SETQ mwidth (IMAX mwidth (IPLUS mcomment.indent (fetch MinWidth of subnode))))) ((2 3 4 5) (SETQ pwidth (IMAX pwidth (IPLUS indent (fetch PreferredWidth of subnode)))) (SETQ mwidth (IMAX mwidth (IPLUS indent (fetch MinWidth of subnode))))) (SHOULDNT "unexpected value for comment level")) (SETQ plll (SETQ mlll paren.width)) else (if (AND prog? (ATOM (fetch Structure of subnode)) (NULL (fetch ParseMode of subnode))) then (* ; "it's a label -- only indentation is the width of a paren") (SETQ indent paren.width)) (SETQ plll (IPLUS indent (fetch PreferredLLength of subnode))) (SETQ mlll (IPLUS indent (fetch MinLLength of subnode))) (SETQ pcomment.indent plll) (SETQ mcomment.indent mlll) (SETQ pwidth (IMAX pwidth (IPLUS (fetch PreferredWidth of subnode) indent))) (SETQ mwidth (IMAX mwidth (IPLUS (fetch MinWidth of subnode) indent))) (if first.subnode then (* ; "the second (noncomment) subnode (i.e. the arg list) is indented by the width of the keyword") (SETQ indent (IPLUS paren.width (fetch PreferredWidth of subnode) (fetch SpaceWidth of environment))) (SETQ first.subnode NIL) else (SETQ indent (fetch MinIndent of environment)))) finally (* ; "these things deserve a line to themselves") (replace InlineWidth of x with NIL) (replace PreferredWidth of x with (IMAX pwidth (replace PreferredLLength of x with (IPLUS plll paren.width)))) (replace MinWidth of x with (IMAX mwidth (replace MinLLength of x with (IPLUS mlll paren.width)))))) -) - -(\\cfv.read.time.conditional -(LAMBDA (node environment context) (* ; "Edited 30-Sep-87 16:24 by raf") (LET ((hash.width (fetch Width of (LISTGET (fetch QuoteString of environment) :HASH))) (sign (CADR (fetch SubNodes of node))) (feature (CADDR (fetch SubNodes of node))) (form (CADDDR (fetch SubNodes of node)))) (LET ((total.width (IPLUS hash.width (fetch InlineWidth of sign) (fetch InlineWidth of feature) (fetch InlineWidth of form)))) (replace InlineWidth of node with total.width) (replace PreferredWidth of node with total.width) (replace MinWidth of node with total.width) (replace PreferredLLength of node with (fetch MinLLength of sign)) (replace MinLLength of node with (fetch MinLLength of sign))))) -) - -(\\compute.point.position.read.time.conditional -(LAMBDA (point context) (* ; "Edited 30-Sep-87 17:09 by raf") (LET ((node (fetch PointNode of point)) subnode item) (if (ZEROP (fetch PointIndex of point)) then (* ;; "Before the first element -- right after the hash, which we assume is the first item in the linear form.") (replace PointX of point with (IPLUS (fetch StartX of node) (fetch Width of (CAR (fetch LinearForm of node))))) (replace PointLine of point with (fetch FirstLine of node)) else (* ; "Find the subnode the point will follow.") (SETQ subnode (\\subnode (fetch PointIndex of point) node)) (replace PointLine of point with (fetch LastLine of subnode)) (SETQ item (CADR (fetch LinearThread of subnode))) (replace PointX of point with (IPLUS (fetch StartX of subnode) (fetch ActualLLength of subnode) (if (SMALLP item) then (* ; "it's followed by space -- put the caret in the middle") (IMIN (HALF item) 6) else (* ; "it's followed by something else -- presumably the close paren -- so put the caret immediately after it") 0)))))) -) - -(\\copy.structure.new.quote - [LAMBDA (node) (* ; "Edited 27-Jul-87 16:15 by raf") - - (replace Structure of node with (LET [(struc (TM::COPY-PREFIX-QUOTE (fetch Structure of node] - (CL:SETF (TM::PREFIX-QUOTE-CONTENTS struc) - (fetch Structure of (\\subnode 1 node))) - struc]) - -(\\copy.structure.read.time.conditional -(LAMBDA (node) (* ; "Edited 30-Sep-87 13:56 by raf") (replace Structure of node with (CL:FUNCALL (CL:ETYPECASE (fetch Structure of node) (TM::HASH-PLUS (QUOTE TM::COPY-HASH-PLUS)) (TM::HASH-MINUS (QUOTE TM::COPY-HASH-MINUS))) (fetch Structure of node)))) -) - -(\\create.new.quoted.gap - [LAMBDA (gap context quote.type) (* ; "Edited 27-Jul-87 16:15 by raf") - -(* ;;; "Create a new quote structure with a gap in it, and the node to represent it.") - - (LET* [(gap.node (\\create.gap.node gap)) - (quote.node (create EditNode NodeType _ \\type.new.quote Structure _ - (TM::MAKE-PREFIX-QUOTE :TYPE quote.type :PREFIX - (fetch (StringItem String) - of - (LISTGET (fetch QuoteString of (fetch Environment of - context)) - quote.type)) - :CONTENTS gap) - SubNodes _ (LIST 1 gap.node) - Unassigned _ (LISTGET (fetch QuoteString of (fetch Environment of - context)) - quote.type] - (replace SuperNode of gap.node with quote.node) - (replace SubNodeIndex of gap.node with 1) - (replace SelfLink of quote.node with (create WeakLink Destination _ quote.node)) - (replace LinearForm of quote.node with (fetch SelfLink of quote.node)) - (\\note.change quote.node context) - quote.node]) - -(\\degrade.comment -(LAMBDA (context node) (* ; "Edited 18-Sep-87 19:09 by raf") (RPLACA (CDR (fetch Structure of node)) (CAR (NTH \\comment.markers (add (fetch Unassigned of node) -1)))) (\\note.change node context) (if (fetch SuperNode of (fetch SuperNode of node)) then (* ; "this node has a supernode that is not the root") (\\note.change (fetch SuperNode of node) context)) (\\undo.by \\upgrade.comment node)) -) - -(\\delete.read.time.conditional -(LAMBDA (node context start end set.point?) (* ; "Edited 1-Oct-87 16:33 by raf") (* ;; "Replace any deleted subnodes with gaps, since this is a fixed length object.") (if (NOT (SMALLP start)) then (SETQ start (fetch SubNodeIndex of start)) (SETQ end start)) (\\replace.read.time.conditional node context start end (for i from start to end collect (\\create.gap.node \\basic.gap))) (if set.point? then (\\set.selection.me (fetch Selection of context) context (\\subnode end node)) (\\pending.delete set.point? (fetch Selection of context))) T) -) - -(\\initialize.commonlisp -(LAMBDA NIL (* ; "Edited 1-Oct-87 11:04 by raf") "Creates SEdit nodes for Common Lisp presentation types. Fully re-entrant." (* ;; "Hash o, x, b, comma, and dot are handled with a variant of the existing quote node. Hash vertical bar, plus, minus, and star are more or less new types.") (LET ((PLIST (fetch (EditENV ParseInfo) of \\lisp.edit.environment))) (MAPC (QUOTE ((TM::HASH-B . \\parse..new.quote) (TM::HASH-COMMA . \\parse..new.quote) (TM::HASH-DOT . \\parse..new.quote) (TM::HASH-O . \\parse..new.quote) (TM::HASH-X . \\parse..new.quote) (TM::HASH-MINUS . \\parse..conditional.read) (TM::HASH-PLUS . \\parse..conditional.read))) (FUNCTION (LAMBDA (CELL) (LISTPUT PLIST (CAR CELL) (CDR CELL)))))) (LET ((PLIST (fetch (EditENV QuoteString) of \\lisp.edit.environment)) (FONT (fetch (EditENV DefaultFont) of \\lisp.edit.environment))) (MAPC (LIST (CONS :HASH-DOT (\\create.string.item "#." FONT)) (CONS :HASH-COMMA (\\create.string.item "#," FONT)) (CONS :HASH-O (\\create.string.item "#o" FONT)) (CONS :HASH-X (\\create.string.item "#x" FONT)) (CONS :HASH-B (\\create.string.item "#b" FONT)) (CONS :HASH (\\create.string.item "#" FONT))) (FUNCTION (LAMBDA (CELL) (LISTPUT PLIST (CAR CELL) (CDR CELL)))))) (* ;;; "Fix comments to allow 4 semicolon and balanced (hash bar) comments.") (if (NOT (FMEMB (QUOTE %|) (fetch (EditENV CommentString) of \\lisp.edit.environment))) then (LET ((FONT (fetch (EditENV CommentFont) of \\lisp.edit.environment))) (replace (EditENV CommentString) of \\lisp.edit.environment with (LIST 1 (\\create.string.item ";" FONT) 2 (\\create.string.item ";;" FONT) 3 (\\create.string.item ";;;" FONT) 4 (\\create.string.item ";;;;" FONT) 5 (\\create.string.item "#|" FONT))))) (SETQ \\type.new.quote (create EditNodeType using \\type.root Name _ (QUOTE new.quote) ComputeFormatValues _ (QUOTE \\cfv.quote) Linearize _ (QUOTE \\linearize.quote) SubNodeChanged _ (QUOTE \\subnode.changed.new.quote) SetPoint _ (QUOTE \\set.point.quote) SetSelection _ (QUOTE \\set.selection.quote) GrowSelection _ (QUOTE \\grow.selection.default) Insert _ (QUOTE \\replace.new.quote) Delete _ (QUOTE \\delete.quote) CopyStructure _ (QUOTE \\copy.structure.new.quote) CopySelection _ (QUOTE \\copy.selection.default) Stringify _ (QUOTE \\stringify.quote) BackSpace _ (QUOTE \\backspace.quote))) (SETQ \\type.read.time.conditional (create EditNodeType using \\type.root Name _ (QUOTE read.time.conditional) ComputeFormatValues _ (QUOTE \\cfv.read.time.conditional) ReParse _ (QUOTE HELP) Linearize _ (QUOTE \\linearize.read.time.conditional) SubNodeChanged _ (QUOTE \\subnode.changed.read.time.conditional) ComputePointPosition _ (QUOTE \\compute.point.position.read.time.conditional) ComputeSelectionPosition _ (QUOTE \\compute.selection.position.default) SetPoint _ (QUOTE \\set.point.read.time.conditional) SetSelection _ (QUOTE \\set.selection.read.time.conditional) GrowSelection _ (QUOTE \\grow.selection.default) Insert _ (QUOTE \\insert.read.time.conditional) Delete _ (QUOTE \\delete.read.time.conditional) CopyStructure _ (QUOTE \\copy.structure.read.time.conditional) CopySelection _ (QUOTE \\copy.selection.default) Stringify _ (QUOTE \\stringify.read.time.conditional) BackSpace _ (QUOTE \\backspace.read.time.conditional))) (LET ((inserted.nq NIL) (inserted.rtc NIL)) (for typetail on \\types do (if (EQ (fetch Name of \\type.new.quote) (fetch Name of (CAR typetail))) then (SETQ inserted.nq T) (RPLACA typetail \\type.new.quote) elseif (EQ (fetch Name of \\type.read.time.conditional) (fetch Name of (CAR typetail))) then (SETQ inserted.rtc T) (RPLACA typetail \\type.read.time.conditional))) (if (NOT inserted.nq) then (SETQ \\types (LIST* \\type.new.quote \\types))) (if (NOT inserted.rtc) then (SETQ \\types (LIST* \\type.read.time.conditional \\types)))) (* ;; "Commands which enter the hash objects (very hard to do this right).") (LET ((commands (\\create.command.table (APPEND (QUOTE (((\\input.new.quote :HASH-DOT) NIL 3) ((\\input.new.quote :HASH-COMMA) NIL 6) ((\\input.new.quote :HASH-O) NIL 9) ((\\input.new.quote :HASH-X) NIL 10) ((\\input.new.quote :HASH-B) NIL 11) ((\\input.conditional.read :HASH-PLUS) NIL 18) ((\\input.conditional.read :HASH-MINUS) NIL 14) (\\input.bit.vector NIL 17))) \\command.table.spec)))) (replace (EditENV CommandTable) of \\lisp.edit.environment with (CAR commands)) (replace (EditENV HelpMenu) of \\lisp.edit.environment with (CADR commands))) T) -) - -(\\input.bit.vector - [LAMBDA (context charcode type) (* ; "Edited 15-Jul-87 16:32 by raf") - - (HELP "Unimplemented"]) - -(\\input.conditional.read - [LAMBDA (context charcode type) (* ; "Edited 15-Jul-87 16:32 by raf") - - (HELP "Unimplemented"]) - -(\\input.new.quote - [LAMBDA (context charcode quote.type) (* ; "Edited 15-Jul-87 17:53 by raf") - -(* ;;; "Control character command to insert a new quote type with gap.") - - (SELECTQ (\\type.of.input context) - (Structure (* ; "If we're structure pointing (between the hairs of the universe) a new quote object is made and inserted.") - - (\\close.open.node context) - (\\insert.new.quoted.gap context charcode quote.type)) - (Atom (* ; "If we're pointing somewhere random inside of a structure we'll just call the default character handler. Not great, but a fine failsafe.") - - (APPLY* (fetch DefaultCharHandler of (fetch Environment of context)) - context charcode)) - NIL]) - -(\\insert.new.quoted.gap - [LAMBDA (context charcode quote.type) (* ; "Edited 15-Jul-87 18:01 by raf") - (* ; - "implements the ' command: insert a quoted gap") - - (if (EQ (\\type.of.input context) - 'Structure) - then - (LET ((selection (fetch Selection of context)) - (point (fetch CaretPoint of context)) - new.quote gap) - (SETQ new.quote (\\create.new.quoted.gap \\basic.gap context quote.type)) - (SETQ gap (\\subnode 1 new.quote)) (* ; - "we get our hands on the gap node now, to handle the case where the insert reparses the new.quote") - - (\\insert (fetch CaretPoint of context) - context - (LIST new.quote)) - (if (NOT (\\dead.node? new.quote)) - then - (\\set.selection.me selection context gap) - (\\pending.delete point selection))) (* ; - "must return non-NIL if command executed") - - T]) - -(\\insert.read.time.conditional -(LAMBDA (node context where subnodes point) (* ; "Edited 1-Oct-87 11:05 by raf") (LET (start end) (if (type? EditSelection where) then (SETQ start (fetch SelectStart of where)) (SETQ end (OR (fetch SelectEnd of where) start)) elseif (type? EditPoint where) then (SETQ end (fetch PointIndex of where)) (SETQ start (ADD1 end)) else (SETQ start (fetch SubNodeIndex of where)) (SETQ end start)) (\\replace.read.time.conditional node context start end subnodes point))) -) - -(\\linearize.clisp -(LAMBDA (node context index) (* ; "Edited 21-Sep-87 11:45 by raf") (* ;; "the Linearize method for clisp expressions. the variable ok keeps track of our state: (NIL: next item starts a new line) (T: next item stays on this line) (check: next item goes on this line if it fits) (atom: next item goes on this line if it fits and is an atom)") (* ;; "the formatting rules are that (1) keywords not on \\clisp.indent.words always start new lines (2) always start a new line after anything non-atomic (3) non-atomic things can only follow keywords on the same line (4) \\clisp.indent.words can go on the same line as the preceding material if they're the last thing in the expression or followed by another keyword or by something that will fit inline on the same line (5) if \\clisp.indent.words start a new line they are indented by the minimum indentation (6) if anything else starts a new line it is indented by the width of the most recent keyword to start a line, plus one blank") (* ;; "at present, if keywords always start new lines. this could be improved with a little more smarts") (bind indent comment.start.x comment.indent comment? program.word? (keyword? _ T) (second.subnode _ T) (ok _ T) (space.width _ (fetch SpaceWidth of (fetch Environment of context))) (min.indent _ (IPLUS (fetch StartX of node) (fetch MinIndent of (fetch Environment of context)))) (paren.width _ (fetch Width of (fetch LParenString of (fetch Environment of context)))) first (if index then (SETQ index (AND (NEQ index 1) (SUB1 index))) else (* ;; "start with an open paren and the first subnode (which should be a keyword) since system won't recognize clisp if first subnode is comment, don't have to handle that case here. it will be formatted as a form.") (\\output.constant.string context (fetch LParenString of (fetch Environment of context))) (\\linearize (CADR (fetch SubNodes of node)) context)) (* ;; "set indentation to one blank after the end of the keyword") (SETQ indent (IPLUS (fetch StartX of node) paren.width (fetch InlineWidth of (CADR (fetch SubNodes of node))) space.width)) (\\set.comment.positions comment.start.x comment.indent indent paren.width node context) for subnode in (CDDR (fetch SubNodes of node)) do (if index then (* ;; "we don't actually linearize this subnode, but need to update our state as if we had") (SETQ index (AND (NEQ index 1) (SUB1 index))) (if (SETQ comment? (EQ (fetch NodeType of subnode) \\type.comment)) then (* ;; "this is a comment, so the next guy must start a new line. if following the first keyword, change indent to min.indent") (SETQ ok NIL) (if second.subnode then (SETQ indent min.indent)) elseif (SETQ keyword? (EQ (fetch ParseMode of subnode) (QUOTE KeyWord))) then (* ; "this is a keyword. is it the first thing on this line?") (if (EQ subnode (CADR (MEMB (fetch LastLine of subnode) (fetch LinearForm of node)))) then (* test used to be EQ subnode (CADR (fetch LastLineLinear of subnode))) (* ; "yep. set the indentation to be one blank after the end of it") (SETQ indent (IPLUS (fetch StartX of subnode) (fetch InlineWidth of subnode) space.width)) (* ; "and the next thing goes on this line") (SETQ ok T) else (* ; "the next thing goes on this line if it fits") (SETQ ok (QUOTE check))) else (* ; "the next thing can go on this line if i'm atomic, and it's atomic too") (SETQ ok (AND (ATOM (fetch Structure of subnode)) (QUOTE atom)))) else (* ; "we really are linearizing this subnode") (if (SETQ comment? (EQ (fetch NodeType of subnode) \\type.comment)) then (if (OR (NEQ (fetch Unassigned of subnode) 1) (IGREATERP (fetch CurrentX of context) comment.start.x)) then (\\output.cr context (\\select.comment.indent (fetch Unassigned of subnode) comment.indent indent (fetch StartX of (fetch Root of context)))) else (\\output.space context (IDIFFERENCE comment.indent (fetch CurrentX of context)))) (SETQ ok NIL) (if second.subnode then (SETQ indent min.indent)) elseif (SETQ keyword? (EQ (fetch ParseMode of subnode) (QUOTE KeyWord))) then (* ; "we've got a keyword") (SETQ program.word? (FMEMB (CDR (GETPROP (fetch Structure of subnode) (QUOTE CLISPWORD))) \\clisp.program.words)) (if (FMEMB (CDR (GETPROP (fetch Structure of subnode) (QUOTE CLISPWORD))) \\clisp.indent.words) then (* ; "perhaps it can go on this line") (if (AND ok (NEQ (fetch Unassigned of node) (QUOTE IFWORD)) (ILEQ (IPLUS (fetch CurrentX of context) space.width (fetch InlineWidth of subnode) (if (AND (CDR $$LST1) (NEQ (fetch ParseMode of (CADR $$LST1)) (QUOTE KeyWord))) then (IPLUS space.width (OR (fetch InlineWidth of (CADR $$LST1)) (fetch RightMargin of node))) else 0)) (fetch RightMargin of node))) then (* ; "it'll go on this line") (\\output.space context space.width) (SETQ ok (QUOTE check)) else (* ; "new line, indented by minimum indentation") (\\output.cr context min.indent) (SETQ indent (IPLUS min.indent (fetch InlineWidth of subnode) space.width)) (SETQ ok T)) else (* ; "new line, no indentation") (\\output.cr context (IPLUS (fetch StartX of node) paren.width)) (SETQ indent (IPLUS (fetch StartX of node) paren.width (fetch InlineWidth of subnode) space.width)) (SETQ ok T)) else (if (OR (EQ ok T) (AND ok (fetch InlineWidth of subnode) (ILEQ (IPLUS (fetch CurrentX of context) space.width (fetch InlineWidth of subnode)) (fetch RightMargin of node)) (OR (EQ ok (QUOTE check)) (ATOM (fetch Structure of subnode))))) then (\\output.space context space.width) else (\\output.cr context indent)) (SETQ ok (QUOTE atom))) (\\linearize subnode context) (if (AND (EQ ok (QUOTE atom)) (NOT (fetch Inline? of subnode))) then (SETQ ok NIL))) (SETQ second.subnode NIL) finally (if comment? then (\\output.cr context (IPLUS (fetch StartX of node) paren.width)))) (if index then (SHOULDNT "linearize index out of range")) (\\output.constant.string context (fetch RParenString of (fetch Environment of context)))) -) - -(\\linearize.comment -(LAMBDA (node context index) (* ; "Edited 20-Sep-87 18:18 by raf") (LET* ((level (fetch Unassigned of node)) (prefix (LISTGET (fetch CommentString of (fetch Environment of context)) level))) (bind (first _ T) for subnode in (if index then (CDDR (NTH (fetch SubNodes of node) index)) else (* we're at the beginning, so display the prefix) (\\output.constant.string context prefix) (CDR (fetch SubNodes of node))) do (if (OR first (ILEQ (IPLUS (fetch CurrentX of context) (fetch InlineWidth of subnode)) (fetch RightMargin of node))) then (\\linearize subnode context) else (\\output.cr context (fetch StartX of node)) (if (NOT (EQ 5 level)) then (\\output.constant.string context prefix)) (\\linearize subnode context)) (SETQ first NIL)) (if (EQ 5 level) then (\\output.constant.string context \\level5.comment.close.string)))) -) - -(\\linearize.form -(LAMBDA (node context index) (* ; "Edited 20-Sep-87 18:11 by raf") (* ; "the linearize method for forms") (if (NOT index) then (\\output.constant.string context (fetch LParenString of (fetch Environment of context)))) (if (CDR (fetch SubNodes of node)) then (bind (same.line? _ T) (space.width _ (fetch SpaceWidth of (fetch Environment of context))) (paren.width _ (fetch Width of (fetch LParenString of (fetch Environment of context)))) (first.subnode _ T) indent last.comment.level comment.start.x comment.indent line.skip first (SETQ indent (IPLUS (fetch StartX of node) (if (NOT (ATOM (fetch Structure of (CADR (fetch SubNodes of node))))) then (* ;; "this will handle the case of comment first, too, like in COMS. it will be ugly for comment at beginning of function call, but who cares.") paren.width elseif (ILEQ (IPLUS (fetch StartX of node) (fetch PreferredWidth of node)) (fetch RightMargin of node)) then (OR (fetch Unassigned of node) 0) else (fetch MinIndent of (fetch Environment of context))))) (\\set.comment.positions comment.start.x comment.indent (IPLUS paren.width (fetch StartX of node)) paren.width node context) for subnode in (CDR (fetch SubNodes of node)) do (if (EQ (fetch NodeType of subnode) \\type.comment) then (if index then (SETQ index (AND (NEQ index 1) (SUB1 index))) else (if (EQ last.comment.level (fetch Unassigned of subnode)) then (* ;; "we're following a comment of the same level. force a cr and extra line space") (\\output.cr context (\\select.comment.indent (fetch Unassigned of subnode) comment.indent indent (fetch StartX of (fetch Root of context))) 8) elseif (AND first.subnode (NEQ (fetch Unassigned of subnode) 1)) then (* ;; "dont' have to move at all") elseif (OR first.subnode (AND (EQ (fetch Unassigned of subnode) 1) same.line? (ILEQ (fetch CurrentX of context) comment.start.x))) then (* ;; "just space if first subnode or its a single semi comment that will fit") (\\output.space context (IDIFFERENCE comment.indent (fetch CurrentX of context))) else (\\output.cr context (\\select.comment.indent (fetch Unassigned of subnode) comment.indent indent (fetch StartX of (fetch Root of context))))) (\\linearize subnode context)) (SETQ same.line? NIL) (SETQ last.comment.level (fetch Unassigned of subnode)) else (if index then NIL elseif first.subnode then (if (NOT same.line?) then (\\output.cr context (IPLUS paren.width (fetch StartX of node)))) else (if (AND same.line? (NEQ same.line? (QUOTE paren)) (LEQ (IPLUS (fetch CurrentX of context) space.width) indent)) then (* ; "we're to the left of the indentation tab, so just space enough to get there") (\\output.space context (IDIFFERENCE indent (fetch CurrentX of context))) elseif (AND same.line? (NEQ same.line? (QUOTE paren)) (fetch InlineWidth subnode) (LEQ (IPLUS (fetch CurrentX of context) space.width (fetch InlineWidth subnode) (if (AND (CDR $$LST1) (EQ (fetch NodeType of (CADR $$LST1)) \\type.comment) (EQ (fetch Unassigned of (CADR $$LST1)) 1)) then (fetch PreferredWidth of (CADR $$LST1)) else 0)) (fetch RightMargin of node)) (OR (EQ same.line? T) (ILESSP (CAR (fetch SubNodes of subnode)) 2))) then (* ; "it will fit on this line") (\\output.space context space.width) else (\\output.cr context indent))) (SETQ same.line? (OR (AND (if index then (SETQ index (AND (NEQ index 1) (SUB1 index))) (fetch Inline? of subnode) else (\\linearize subnode context)) (OR (ILESSP (CAR (fetch SubNodes of subnode)) 2) (QUOTE no.lists))) (QUOTE paren))) (SETQ last.comment.level NIL)) (SETQ first.subnode NIL) finally (if (NULL same.line?) then (\\output.cr context (IPLUS paren.width (fetch StartX of node)))))) (if index then (SHOULDNT "linearize index out of range")) (\\output.constant.string context (fetch RParenString of (fetch Environment of context)))) -) - -(\\linearize.lambda -(LAMBDA (node context index) (* ; "Edited 21-Sep-87 11:52 by raf") (* ;;; "the Linearize method for lambda expressions. the opening keyword and second subnode (the argument list) go on the same line, and everything else is on a separate line indented by the minimum indentation, except for PROG labels which aren't indented. the variable before keeps track of this: it's NIL for the first subnode, space for the second, and cr for all of the remaining subnodes") (if (NOT index) then (\\output.constant.string context (fetch LParenString of (fetch Environment of context)))) (bind (prog? _ (MEMB (fetch Structure of (CADR (fetch SubNodes of node))) (QUOTE (PROG PROG* NIL)))) (indent _ (IPLUS (fetch StartX of node) (fetch MinIndent of (fetch Environment of context)))) (paren.width _ (fetch Width of (fetch LParenString of (fetch Environment of context)))) comment? comment.start.x comment.indent first (\\set.comment.positions comment.start.x comment.indent indent paren.width node context) for subnode in (CDR (fetch SubNodes of node)) as subnode.count from 1 do (SETQ comment? (EQ (fetch NodeType of subnode) \\type.comment)) (if index then (SETQ index (AND (NEQ index 1) (SUB1 index))) else (if comment? then (if (OR (NEQ (fetch Unassigned of subnode) 1) (IGREATERP (fetch CurrentX of context) comment.start.x)) then (\\output.cr context (\\select.comment.indent (fetch Unassigned of subnode) comment.indent indent (fetch StartX of (fetch Root of context)))) else (\\output.space context (IDIFFERENCE comment.indent (fetch CurrentX of context)))) elseif (IGREATERP subnode.count 2) then (* ; "we're past the special cases of lambda keyword and arglist") (\\output.cr context (if (AND prog? (EQ (fetch NodeType of subnode) \\type.litatom)) then (IPLUS (fetch StartX of node) paren.width) else indent)) elseif (EQ subnode.count 2) then (* ; "at the second subnode which is not a comment, so it is the arglist in the proper position") (\\output.space context (fetch SpaceWidth of (fetch Environment of context)))) (* ; "otherwise, we're at first non comment, which must be the lambda keyword, so just linearize it here") (\\linearize subnode context)) finally (if comment? then (\\output.cr context (IPLUS (fetch StartX of node) paren.width)))) (if index then (SHOULDNT "linearize index out of range")) (\\output.constant.string context (fetch RParenString of (fetch Environment of context)))) -) - -(\\linearize.list -(LAMBDA (node context index) (* ; "Edited 21-Sep-87 11:54 by raf") (* ;; "the Linearize method for vanilla and dotted lists. nothing is indented, non-atomic things go on separate lines, and we put as many atoms on a line as we can fit. the last element of a dotted list is preceded by a dot.") (if (NOT index) then (\\output.constant.string context (fetch LParenString of (fetch Environment of context)))) (if (CDR (fetch SubNodes of node)) then (bind (first.time? _ T) (space.width _ (fetch SpaceWidth of (fetch Environment of context))) (paren.width _ (fetch Width of (fetch LParenString of (fetch Environment of context)))) this.line? needs.dot? comment? comment.start.x comment.indent first (\\set.comment.positions comment.start.x comment.indent paren.width paren.width node context) for subnode in (CDR (fetch SubNodes of node)) do (SETQ comment? (EQ (fetch NodeType of subnode) \\type.comment)) (if index then (SETQ index (AND (NEQ index 1) (SUB1 index))) (if comment? then (\\output.cr context (IPLUS paren.width (fetch StartX of node)))) else (SETQ needs.dot? (AND (EQ (fetch NodeType of node) \\type.dotlist) (NULL (CDR $$LST1)) (IPLUS space.width (fetch Width of (fetch DotString of (fetch Environment of context)))))) (if comment? then (SETQ first.time? NIL) (if (OR (NEQ (fetch Unassigned of subnode) 1) (IGREATERP (fetch CurrentX of context) comment.start.x)) then (\\output.cr context (\\select.comment.indent (fetch Unassigned of subnode) comment.indent (IPLUS paren.width (fetch StartX of node)) (fetch StartX of (fetch Root of context)))) else (\\output.space context (IDIFFERENCE comment.indent (fetch CurrentX of context)))) elseif (AND first.time? (NOT comment?)) then (* ; "first time through, if not a comment, then i'm already in the right place for the first subnode") (SETQ first.time? NIL) elseif (AND this.line? (NULL (CDR (fetch SubNodes of subnode))) (LEQ (IPLUS (fetch CurrentX of context) space.width (fetch InlineWidth subnode) (OR needs.dot? 0)) (fetch RightMargin of node))) then (* ; "the last node said i could go on this line, i'm atomic so i can go on this line, and i will fit") (\\output.space context space.width) else (* ; "somebody forced be to the next line") (\\output.cr context (IPLUS paren.width (fetch StartX of node)))) (if needs.dot? then (\\output.constant.string context (fetch DotString of (fetch Environment of context))) (\\output.space context space.width)) (\\linearize subnode context)) (SETQ this.line? (AND (NOT comment?) (NULL (CDR (fetch SubNodes of subnode))))) finally (if comment? then (\\output.cr context (IPLUS paren.width (fetch StartX of node)))))) (if index then (SHOULDNT "linearize index out of range")) (\\output.constant.string context (fetch RParenString of (fetch Environment of context)))) -) - -(\\linearize.read.time.conditional -(LAMBDA (node context right.margin) (* ; "Edited 30-Sep-87 16:26 by raf") (LET ((hash (LISTGET (fetch QuoteString of (fetch Environment of context)) :HASH)) (sign (CADR (fetch SubNodes of node))) (feature (CADDR (fetch SubNodes of node))) (form (CADDDR (fetch SubNodes of node)))) (\\output.constant.string context hash) (\\linearize sign context right.margin) (\\linearize feature context right.margin) (\\linearize form context right.margin))) -) - -(\\parse..bit.vector - [LAMBDA (structure context mode) (* ; "Edited 15-Jul-87 16:29 by raf") - - (HELP "Unimplemented"]) - -(\\parse..comment -(LAMBDA (structure context) (* ; "Edited 18-Sep-87 18:59 by raf") (* ;; "try to parse this list as a common lisp comment. the second element should be one or more semicolons, and the rest of the list should be a string") (LET (comment.words (level (AND (CDR structure) (LISTGET \\comment.level.table (CADR structure))))) (if (AND level (CDDR structure) (NULL (CDDDR structure)) (STRINGP (CADDR structure)) (OR (NULL (fetch CurrentNode of context)) (FMEMB (fetch Name of (fetch NodeType of (fetch CurrentNode of context))) (QUOTE (form clisp lambda list))))) then (\\build.node structure context \\type.comment NIL T) (if (NOT (fetch \X of context)) then (* ;; "we're here for the first time (not a reparse) so go ahead. otherwize lie and say that everything matched. we do this because comment words are kept in lists in the comment subnodes. parsing conses these lists anew each time, so reparsing a comment that hadn't changed would think that it *had* changed because of the new lists. so hack this to avoid lots of relinearizing comments.") (SETQ comment.words (\\parse.string.into.words (CADDR structure))) (for word in comment.words do (\\parse word context (QUOTE CommentWord))) (for subnode in (CDR (fetch SubNodes of (fetch CurrentNode of context))) as wordptr on comment.words do (replace Structure of subnode with wordptr)) (replace Unassigned of (fetch CurrentNode of context) with level) else (* ;; "flag that everything matched.") (replace \X of context with NIL)) T))) -) - -(\\parse..conditional.read -(LAMBDA (structure context mode) (* ; "Edited 30-Sep-87 16:21 by raf") (if (TM::READ-TIME-CONDITIONAL-P structure) then (\\build.node structure context \\type.read.time.conditional) (replace Unassigned of (fetch CurrentNode of context) with (TM::READ-TIME-CONDITIONAL-UNREAD-P structure)) (\\parse (CL:ETYPECASE structure (TM::HASH-PLUS (QUOTE +)) (TM::HASH-MINUS (QUOTE -))) context NIL) (\\parse (TM::READ-TIME-CONDITIONAL-FEATURE structure) context NIL) (\\parse (TM::READ-TIME-CONDITIONAL-FORM structure) context NIL) T)) -) - -(\\parse..new.quote - [LAMBDA (structure context mode) (* ; "Edited 27-Jul-87 16:19 by raf") - - (if (AND (OR (NULL mode) - (EQ mode 'Data)) - (TM::PREFIX-QUOTE-CONTENTS structure)) - then - (\\build.node structure context \\type.new.quote) - (replace Unassigned of (fetch CurrentNode of context) - with - (LISTGET (fetch QuoteString of (fetch Environment of context)) - (TM::PREFIX-QUOTE-TYPE structure))) - (\\parse (TM::PREFIX-QUOTE-CONTENTS structure) - context NIL) - T]) - -(\\replace.new.quote - [LAMBDA (node context where subnodes point) (* ; "Edited 27-Jul-87 16:20 by raf") - - (LET ((subnode (CAR subnodes))) - (if (NOT (OR (AND (type? EditSelection where) - (EQ (fetch SelectStart of where) - 1) - (EQ (fetch SelectEnd of where) - 1)) - (type? EditNode where))) - then - (SHOULDNT "weird bounds for replace.quote")) - (\\undo.by \\undo.replace.quote node (\\subnode 1 node)) - (\\kill.node (\\subnode 1 node)) - (RPLACA (CDR (fetch SubNodes of node)) - subnode) - (replace SuperNode of subnode with node) - (replace SubNodeIndex of subnode with 1) - (CL:SETF (TM::PREFIX-QUOTE-CONTENTS (fetch Structure of node)) - (fetch Structure of subnode)) - (\\set.depth subnode (ADD1 (fetch Depth of node))) - (\\note.change node context) - (if point then (\\punt.set.point point context node T)) - (CDR subnodes]) - -(\\replace.read.time.conditional -(LAMBDA (node context start end subnodes point) (* ; "Edited 1-Oct-87 17:05 by raf") (\\undo.by \\undo.replace.read.time.conditional node (for i from start to end collect (\\subnode i node))) (for i from start to end as subnode in subnodes as smashnode on (NTH (CDR (fetch SubNodes of node)) start) do (* ;; "Update the EditNode itself.") (\\kill.node (\\subnode i node)) (RPLACA smashnode subnode) (replace SuperNode of subnode with node) (replace SubNodeIndex of subnode with i) (\\set.depth subnode (ADD1 (fetch Depth of node))) (\\subnode.changed subnode context) (* ; "Updates the data underlying this EditNode.")) (\\note.change node context) (if point then (\\punt.set.point point context node T)) NIL) -) - -(\\set.point.read.time.conditional -(LAMBDA (point context node index offset item type compute.location?) (* ; "Edited 1-Oct-87 17:33 by raf") (if (type? StringItem item) then (* ; "pointing to the HASH.") (SETQ offset (ILESSP offset (HALF (fetch Width of item)))) elseif (type? EditNode item) then (SETQ type (QUOTE Structure))) (if (NULL index) then (\\punt.set.point point context node offset compute.location?) else (if (AND (EQ type (QUOTE Atom)) (NEQ index 0) (ILEQ index 3)) then (\\set.point point context (\\subnode index node) NIL offset NIL (QUOTE Atom) compute.location?) elseif (EQ index 3) then (* ; "can't insert structure after the last item") (\\set.point.nowhere point) else (replace PointNode of point with node) (replace PointIndex of point with (if offset then index else (SETQ index (SUB1 index)))) (replace PointType of point with (QUOTE Structure)) (if compute.location? then (\\compute.point.position.read.time.conditional point context))))) -) - -(\\set.selection.read.time.conditional -(LAMBDA (selection context node index offset item type) (* ; "Edited 30-Sep-87 13:37 by raf") (* ;; "Pointing to the hash selects the whole read.time.conditional.") (\\set.selection.me selection context node)) -) - -(\\split.comment -(LAMBDA (node point context start) (* ; "Edited 18-Sep-87 19:10 by raf") (\\close.open.node context) (LET* ((comment (CADDR (fetch Structure of node))) (length (NCHARS comment)) (split.string (SUBSTRING comment (ADD1 start) length))) (\\set.point point context (fetch SuperNode of node) (fetch SubNodeIndex of node) T node (QUOTE Structure)) (if (NEQ start length) then (* ; "split in middle of comment.") (\\delete node context (ADD1 start) length NIL comment) (\\insert point context (\\parse.new (LIST (QUOTE *) (CAR (NTH \\comment.markers (fetch Unassigned of node))) split.string) context)) (\\set.point point context (fetch SuperNode of node) (fetch SubNodeIndex of node) T node (QUOTE Structure))))) -) - -(\\stringify.comment -(LAMBDA (node environment) (* ; "Edited 29-Sep-87 13:48 by raf") (LET ((level (fetch Unassigned of node))) (if (ILESSP level 4) then (CONCAT (CADR (fetch Structure of node)) " " (CADDR (fetch Structure of node))) elseif (EQ level 4) then (CONCAT \\level4.comment " " (CADDR (fetch Structure of node))) else (CONCAT "#|" (CADDR (fetch Structure of node)) "|#")))) -) - -(\\stringify.new.quote - [LAMBDA NIL (* ; "Edited 27-Jul-87 16:20 by raf") - - NIL]) - -(\\stringify.read.time.conditional -(LAMBDA (node environment) (* ; "Edited 30-Sep-87 13:55 by raf") (LET ((structure (fetch Structure of node))) (CONCAT (LET ((*PACKAGE* *KEYWORD-PACKAGE*)) (CL:FORMAT NIL "#~a~s" (CL:ETYPECASE structure (TM::HASH-PLUS "+") (TM::HASH-MINUS "-")) (TM::READ-TIME-CONDITIONAL-FEATURE structure))) (if (TM::READ-TIME-CONDITIONAL-UNREAD-P structure) then (TM::READ-TIME-CONDITIONAL-FORM structure) else (CL:FORMAT NIL "~S" (TM::READ-TIME-CONDITIONAL-FORM structure)))))) -) - -(\\subnode.changed.new.quote - [LAMBDA (node subnode) (* ; "Edited 27-Jul-87 16:20 by raf") - - (CL:SETF (TM::PREFIX-QUOTE-CONTENTS (fetch Structure of node)) - (fetch Structure of subnode]) - -(\\subnode.changed.read.time.conditional -(LAMBDA (node subnode context) (* ; "Edited 2-Oct-87 15:25 by raf") (LET ((subnode.structure (fetch Structure of subnode)) (node.structure (fetch Structure of node))) (SELECTQ (fetch SubNodeIndex of subnode) (1 (if (SELECTQ subnode.structure (+ (TM::HASH-MINUS-P node.structure)) (- (TM::HASH-PLUS-P node.structure)) (HELP "Bad read time conditional polarity")) then (* ; "We've changed the polarity of this conditional read, need to make new structure and copy the old fields into it.") (replace Structure of node with (CL:FUNCALL (SELECTQ subnode.structure (+ (QUOTE TM::MAKE-HASH-PLUS)) (- (QUOTE TM::MAKE-HASH-MINUS)) NIL) :UNREAD-P (TM::READ-TIME-CONDITIONAL-UNREAD-P node.structure) :FEATURE (TM::READ-TIME-CONDITIONAL-FEATURE node.structure) :FORM (TM::READ-TIME-CONDITIONAL-FORM node.structure))) (\\unread.read.time.conditional? node context) (* ; "Check whether the %"read-ness%" of the conditional read has changed (according to the features list and the polarity of the conditional read).") (\\subnode.changed node context))) (2 (CL:SETF (TM::READ-TIME-CONDITIONAL-FEATURE node.structure) subnode.structure) (\\unread.read.time.conditional? node context)) (3 (CL:SETF (TM::READ-TIME-CONDITIONAL-FORM node.structure) subnode.structure)) (SHOULDNT "Bad subnode index")))) -) - -(\\undo.replace.read.time.conditional -(LAMBDA (context node old.subnodes) (* ; "Edited 30-Sep-87 14:44 by raf") (\\replace.read.time.conditional node context (fetch SubNodeIndex of (CAR old.subnodes)) (fetch SubNodeIndex of (CAR (LAST old.subnodes))) old.subnodes NIL)) -) - -(\\unread.read.time.conditional? -(LAMBDA (node context) (* ; "Edited 2-Oct-87 18:07 by raf") (* ;;; "If the conditional.read doesn't match the %"unread-ness%" of the features (as indicated by its UNREAD-P flag), then return the converted form.") (LET* ((conditional.read (fetch Structure of node)) (unread (TM::READ-TIME-CONDITIONAL-UNREAD-P conditional.read)) (read-p (CMLREAD.FEATURE.PARSER (TM::READ-TIME-CONDITIONAL-FEATURE conditional.read)))) (if (TM::HASH-MINUS-P conditional.read) then (SETQ read-p (NOT read-p))) (if (AND unread read-p) then (* ; "Flag says currently UNREAD, features say now READ, try to read string into structure.") (CL:WITH-INPUT-FROM-STRING (s (TM::READ-TIME-CONDITIONAL-FORM conditional.read)) (LET ((form (NLSETQ (CL:READ s)))) (if form then (\\replace.read.time.conditional node context 3 3 (LIST (\\parse.new form context))) (CL:SETF (TM::READ-TIME-CONDITIONAL-UNREAD-P conditional.read) NIL) else (printout (\\get.prompt.window context) T "Error during read. Not unread.")))) elseif (AND (NOT unread) (NOT read-p)) then (* ; "Flag says currently READ, features say now UNREAD, print structure into string.") (\\replace.read.time.conditional node context 3 3 (LIST (\\parse.new (CL:FORMAT NIL "~s" (TM::READ-TIME-CONDITIONAL-FORM conditional.read)) context))) (CL:SETF (TM::READ-TIME-CONDITIONAL-UNREAD-P conditional.read) T)))) -) - -(\\upgrade.comment -(LAMBDA (context node) (* ; "Edited 18-Sep-87 18:48 by raf") (if (ILESSP (fetch Unassigned of node) (LENGTH \\comment.markers)) then (RPLACA (CDR (fetch Structure of node)) (CAR (NTH \\comment.markers (add (fetch Unassigned of node) 1)))) (\\note.change node context) (if (fetch SuperNode of (fetch SuperNode of node)) then (* ; "this node has a supernode that is not the root") (\\note.change (fetch SuperNode of node) context)) (\\undo.by \\degrade.comment node))) -) -) -(\\initialize.commonlisp) - -(PUTPROPS SEDIT-COMMONLISP MAKEFILE-ENVIRONMENT (:READTABLE "INTERLISP" :PACKAGE (LET ((*PACKAGE* *PACKAGE*)) (CL:IN-PACKAGE "INTERLISP") (FILESLOAD TEXTMODULES) *PACKAGE*) :BASE 10) -) -(PUTPROPS SEDIT-COMMONLISP COPYRIGHT ("Xerox Corporation" 1987)) -(DECLARE%: DONTCOPY - (FILEMAP (NIL (5096 63658 (PRIN2-LONG-STRING 5106 . 11058) (SEMI-COLON-COMMENT-P 11060 . 11480) ( -SUPERPRINT/COMMENT 11482 . 13870) (\\backspace.read.time.conditional 13872 . 14801) (\\cfv.clisp 14803 - . 17469) (\\cfv.comment 17471 . 18530) (\\cfv.form 18532 . 21174) (\\cfv.lambda 21176 . 23476) ( -\\cfv.read.time.conditional 23478 . 24195) (\\compute.point.position.read.time.conditional 24197 . -25248) (\\copy.structure.new.quote 25250 . 25709) (\\copy.structure.read.time.conditional 25711 . -26011) (\\create.new.quoted.gap 26013 . 27521) (\\degrade.comment 27523 . 27942) ( -\\delete.read.time.conditional 27944 . 28525) (\\initialize.commonlisp 28527 . 32974) ( -\\input.bit.vector 32976 . 33135) (\\input.conditional.read 33137 . 33302) (\\input.new.quote 33304 . -34203) (\\insert.new.quoted.gap 34205 . 35440) (\\insert.read.time.conditional 35442 . 35945) ( -\\linearize.clisp 35947 . 41825) (\\linearize.comment 41827 . 42680) (\\linearize.form 42682 . 46477) -(\\linearize.lambda 46479 . 48902) (\\linearize.list 48904 . 51699) (\\linearize.read.time.conditional - 51701 . 52187) (\\parse..bit.vector 52189 . 52349) (\\parse..comment 52351 . 53863) ( -\\parse..conditional.read 53865 . 54423) (\\parse..new.quote 54425 . 55055) (\\replace.new.quote 55057 - . 56177) (\\replace.read.time.conditional 56179 . 56928) (\\set.point.read.time.conditional 56930 . -57902) (\\set.selection.read.time.conditional 57904 . 58158) (\\split.comment 58160 . 58889) ( -\\stringify.comment 58891 . 59280) (\\stringify.new.quote 59282 . 59426) ( -\\stringify.read.time.conditional 59428 . 59932) (\\subnode.changed.new.quote 59934 . 60182) ( -\\subnode.changed.read.time.conditional 60184 . 61513) (\\undo.replace.read.time.conditional 61515 . -61790) (\\unread.read.time.conditional? 61792 . 63163) (\\upgrade.comment 63165 . 63656))))) -STOP diff --git a/lispusers/WHEELSCROLL b/lispusers/WHEELSCROLL index f78d127d9..459735b4e 100644 --- a/lispusers/WHEELSCROLL +++ b/lispusers/WHEELSCROLL @@ -1,12 +1,11 @@ (DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP") -(FILECREATED "22-Feb-2021 09:47:46"  -{DSK}kaplan>Local>medley3.5>git-medley>lispusers>WHEELSCROLL.;43 7259 +(FILECREATED "11-Jun-2021 12:50:16"  +{DSK}kaplan>Local>medley3.5>git-medley>lispusers>WHEELSCROLL.;18 10803 - changes to%: (VARS WHEELSCROLLCOMS) - (FNS ENABLEWHEELSCROLL) + changes to%: (FNS ENABLEWHEELSCROLL) - previous date%: "21-Feb-2021 09:39:06" -{DSK}kaplan>Local>medley3.5>git-medley>lispusers>WHEELSCROLL.;42) + previous date%: "11-Jun-2021 11:11:10" +{DSK}kaplan>Local>medley3.5>git-medley>lispusers>WHEELSCROLL.;14) (PRETTYCOMPRINT WHEELSCROLLCOMS) @@ -14,15 +13,21 @@ (RPAQQ WHEELSCROLLCOMS [(FNS ENABLEWHEELSCROLL WHEELSCROLL WHEELSCROLL.DOIT INSTALL-WHEELSCROLL LISPINTERRUPTS.WHEELSCROLL) - [VARS (WHEELSCROLLINTERRUPTS '((520 (WHEELSCROLL 'VERTICAL WHEELSCROLLDELTA) - T) - (521 (WHEELSCROLL 'VERTICAL (IMINUS WHEELSCROLLDELTA)) - T) - (522 (WHEELSCROLL 'HORIZONTAL (IMINUS WHEELSCROLLDELTA) - T)) - (523 (WHEELSCROLL 'HORIZONTAL WHEELSCROLLDELTA T] + + (* ;; "These are the highest meta-ctrl characters, they will be unaffected by teh state of ctrl and meta mode keys") + + (DECLARE%: EVAL@COMPILE DONTCOPY (CONSTANTS (UP 156) + (DOWN 157) + (LEFT 158) + (RIGHT 159))) (GLOBALVARS WHEELSCROLLDELTA WHEELSCROLLSETTLETIME \WHEELSCROLLINPROGRESS) - (INITVARS (WHEELSCROLLDELTA 20) + + (* ;; "To restore the keyactions for PAD..., if the keyaction table has been reinitialized") + + [ADDVARS (AFTERSYSOUTFORMS (AND WHEELSCROLLENABLED (ENABLEWHEELSCROLL T))) + (AFTERMAKESYSFORMS (AND WHEELSCROLLENABLED (ENABLEWHEELSCROLL T] + (INITVARS (WHEELSCROLLENABLED NIL) + (WHEELSCROLLDELTA 20) (WHEELSCROLLSETTLETIME 50) (\WHEELSCROLLINPROGRESS NIL)) (DECLARE%: DONTEVAL@LOAD DOCOPY (P (INSTALL-WHEELSCROLL) @@ -30,19 +35,73 @@ (DEFINEQ (ENABLEWHEELSCROLL - [LAMBDA (ON) (* ; "Edited 22-Feb-2021 09:47 by rmk:") + [LAMBDA (ON EXCLUDEHORIZONTAL) (* ; "Edited 11-Jun-2021 12:50 by rmk:") + (* ; "Edited 28-May-2021 11:46 by rmk:") - (* ;; "So we can toggle this scrolling, for experimentation.") + (* ;; "So we can toggle this scrolling.") (IF ON - THEN [KEYACTION 'PAD1 '((520 520) . IGNORE] - [KEYACTION 'PAD2 '((521 521) . IGNORE] - [KEYACTION 'PAD4 '((522 522) . IGNORE] - [KEYACTION 'PAD5 '((523 523) . IGNORE] - ELSE (KEYACTION 'PAD1 '(IGNORE . IGNORE)) - (KEYACTION 'PAD2 '(IGNORE . IGNORE)) - (KEYACTION 'PAD4 '(IGNORE . IGNORE)) - (KEYACTION 'PAD5 '(IGNORE . IGNORE]) + THEN (CL:UNLESS (EQP (GETD 'LISPINTERRUPTS) + (GETD 'LISPINTERRUPTS.WHEELSCROLL)) + (CL:WHEN (GETD 'LISPINTERRUPTS.WHEELSCROLL) + (* ; "In case of LOADFROM?") + (MOVD? 'LISPINTERRUPTS 'LISPINTERRUPTS.WSORIG) + (MOVD 'LISPINTERRUPTS.WHEELSCROLL 'LISPINTERRUPTS))) + + (* ;; "In some situations these other keyactions seem to be installed, hit them all.") + + [FOR KAT IN (LIST \CURRENTKEYACTION \COMMANDKEYACTION \DEFAULTKEYACTION) + DO ((FOR K IN [IF EXCLUDEHORIZONTAL + THEN `((PAD1 ,UP) + (PAD2 ,DOWN) + (PAD4 IGNORE) + (PAD5 IGNORE)) + ELSE `((PAD1 ,UP) + (PAD2 ,DOWN) + (PAD4 ,LEFT) + (PAD5 ,RIGHT] + DO (KEYACTION (CAR K) + (CONS (CL:IF (EQ (CADR K) + 'IGNORE) + 'IGNORE + `(,(CADR K) + ,(CADR K))) + `IGNORE) + KAT] + (FOR I IN WHEELSCROLLINTERRUPTS + DO (INTERRUPTCHAR (CAR I) + (CADR I) + (CADDR I)) + (CL:WHEN (BOUNDP 'TEDIT.READTABLE) + + (* ;; "These actions are invoked when the caret is in the Tedit window, because TEDIT disables the interrupts") + + (TEDIT.SETFUNCTION (CAR I) + `[LAMBDA NIL + ,(CADR I] + TEDIT.READTABLE))) + (SETQ WHEELSCROLLENABLED T) + ELSE (CL:WHEN (EQP (GETD 'LISPINTERRUPTS.WHEELSCROLL) + (GETD 'LISPINTERRUPTS)) + (MOVD 'LISPINTERRUPTS.WSORIG 'LISPINTERRUPTS)) + (FOR I IN WHEELSCROLLINTERRUPTS DO (INTERRUPTCHAR (CAR I) + NIL) + (CL:WHEN (BOUNDP 'TEDIT.READTABLE) + + (* ;; "These actions are invoked when the caret is in the Tedit window, because TEDIT disables the interrupts") + + (TEDIT.SETFUNCTION (CAR I) + NIL TEDIT.READTABLE))) + (FOR KAT IN (LIST \CURRENTKEYACTION \COMMANDKEYACTION \DEFAULTKEYACTION) + DO (KEYACTION 'PAD1 '(IGNORE . IGNORE) + KAT) + (KEYACTION 'PAD2 '(IGNORE . IGNORE) + KAT) + (KEYACTION 'PAD4 '(IGNORE . IGNORE) + KAT) + (KEYACTION 'PAD5 '(IGNORE . IGNORE) + KAT)) + (SETQ WHEELSCROLLENABLED NIL]) (WHEELSCROLL [LAMBDA (DIRECTION DELTA) (* ; "Edited 21-Feb-2021 09:38 by rmk:") @@ -97,21 +156,18 @@ (RESETVAR \WHEELSCROLLINPROGRESS T (SCROLLW WINDOW DX DY)))]) (INSTALL-WHEELSCROLL - [LAMBDA NIL (* ; "Edited 17-Feb-2021 11:53 by rmk:") - (CL:WHEN (GETD 'LISPINTERRUPTS.WHEELSCROLL) - (MOVD? 'LISPINTERRUPTS 'LISPINTERRUPTS.WSORIG) - (MOVD 'LISPINTERRUPTS.WHEELSCROLL 'LISPINTERRUPTS)) - (FOR I IN WHEELSCROLLINTERRUPTS DO (INTERRUPTCHAR (CAR I) - (CADR I) - (CADDR I)) - (CL:WHEN (BOUNDP 'TEDIT.READTABLE) + [LAMBDA NIL (* ; "Edited 28-May-2021 11:46 by rmk:") + (* ; "Edited 17-Feb-2021 11:53 by rmk:") - (* ;; "These actions are invoked when the caret is in the Tedit window, because TEDIT disables the interrupts") + (* ;; "We want the UP, DOWN...constants to be compiled awsy") - (TEDIT.SETFUNCTION (CAR I) - `[LAMBDA NIL - ,(CADR I] - TEDIT.READTABLE))]) + (SETQ WHEELSCROLLINTERRUPTS `((,UP (WHEELSCROLL 'VERTICAL WHEELSCROLLDELTA) + T) + (,DOWN (WHEELSCROLL 'VERTICAL (IMINUS WHEELSCROLLDELTA)) + T) + (,LEFT (WHEELSCROLL 'HORIZONTAL (IMINUS WHEELSCROLLDELTA) + T)) + (,RIGHT (WHEELSCROLL 'HORIZONTAL WHEELSCROLLDELTA T]) (LISPINTERRUPTS.WHEELSCROLL [LAMBDA NIL (* ; "Edited 17-Feb-2021 11:09 by rmk:") @@ -121,19 +177,46 @@ (APPEND WHEELSCROLLINTERRUPTS (LISPINTERRUPTS.WSORIG]) ) -(RPAQQ WHEELSCROLLINTERRUPTS - ((520 (WHEELSCROLL 'VERTICAL WHEELSCROLLDELTA) - T) - (521 (WHEELSCROLL 'VERTICAL (IMINUS WHEELSCROLLDELTA)) - T) - (522 (WHEELSCROLL 'HORIZONTAL (IMINUS WHEELSCROLLDELTA) - T)) - (523 (WHEELSCROLL 'HORIZONTAL WHEELSCROLLDELTA T)))) + + +(* ;; +"These are the highest meta-ctrl characters, they will be unaffected by teh state of ctrl and meta mode keys" +) + +(DECLARE%: EVAL@COMPILE DONTCOPY +(DECLARE%: EVAL@COMPILE + +(RPAQQ UP 156) + +(RPAQQ DOWN 157) + +(RPAQQ LEFT 158) + +(RPAQQ RIGHT 159) + + +(CONSTANTS (UP 156) + (DOWN 157) + (LEFT 158) + (RIGHT 159)) +) +) (DECLARE%: DOEVAL@COMPILE DONTCOPY (GLOBALVARS WHEELSCROLLDELTA WHEELSCROLLSETTLETIME \WHEELSCROLLINPROGRESS) ) + + +(* ;; "To restore the keyactions for PAD..., if the keyaction table has been reinitialized") + + +(ADDTOVAR AFTERSYSOUTFORMS (AND WHEELSCROLLENABLED (ENABLEWHEELSCROLL T))) + +(ADDTOVAR AFTERMAKESYSFORMS (AND WHEELSCROLLENABLED (ENABLEWHEELSCROLL T))) + +(RPAQ? WHEELSCROLLENABLED NIL) + (RPAQ? WHEELSCROLLDELTA 20) (RPAQ? WHEELSCROLLSETTLETIME 50) @@ -146,7 +229,6 @@ (ENABLEWHEELSCROLL T) ) (DECLARE%: DONTCOPY - (FILEMAP (NIL (1432 6591 (ENABLEWHEELSCROLL 1442 . 2071) (WHEELSCROLL 2073 . 4609) (WHEELSCROLL.DOIT -4611 . 5247) (INSTALL-WHEELSCROLL 5249 . 6312) (LISPINTERRUPTS.WHEELSCROLL 6314 . 6589))))) + (FILEMAP (NIL (1575 9814 (ENABLEWHEELSCROLL 1585 . 5542) (WHEELSCROLL 5544 . 8080) (WHEELSCROLL.DOIT +8082 . 8718) (INSTALL-WHEELSCROLL 8720 . 9535) (LISPINTERRUPTS.WHEELSCROLL 9537 . 9812))))) STOP - diff --git a/lispusers/WHEELSCROLL.LCOM b/lispusers/WHEELSCROLL.LCOM index 97812037d..267c7b43a 100644 Binary files a/lispusers/WHEELSCROLL.LCOM and b/lispusers/WHEELSCROLL.LCOM differ diff --git a/loadups/full.database b/loadups/full.database new file mode 100644 index 000000000..f3dee6a80 --- /dev/null +++ b/loadups/full.database @@ -0,0 +1,28667 @@ +(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10 FORMAT XCCS) +(FILECREATED " 3-Jul-2021 10:21:36"  +{DSK}kaplan>Local>medley3.5>git-medley>loadups>full.database;15 2806453) + + +(PRETTYCOMPRINT ((E (DUMPDATABASE NIL)))) +(READATABASE) +( +CALL LOADVARS (LOADFNS) FNTYP (\PSEUDOCODE.REALDEF \CCODEFNTYP \CCODEARGTYPE FFETCHFIELD SELECTQ) +TEDIT.COPY.LOOKS (TEXTOBJ) COMP.APPLY* (ARGTYPE COMP.EXP1 CONS) \UFS.RECOGNIZE.FILE (WITH.MONITOR +CL:MULTIPLE-VALUE-PROG1 .UNWIND.PROTECT. FUNCTION \UFSGetMonitor ALLOCSTRING CREATECELL CL:FUNCALL +\UFS.FILE.RECOGNIZER SELECTQ \UFS.REMOVE.HOST.FIELD SUBSTRING \UFSError) \GETFTPCONNECTION ( +\CANONICAL.HOSTNAME ETHERHOSTNAME \FTP.OPEN.CONNECTION .FTPDEBUGLOG.) \TYPENUMBERFROMNAME (\GETDTD +\ADDBASE ITIMES PLUS) GETNSPRINTER (CH.LIST.OBJECTS PRIN1 ERROR LOOKUP.NS.SERVER PARSE.NSNAME) +\DEVICE.OUTPUT (OPCODES) \TFBRAVO.APPLY.PARALOOKS (ADD1 IDIFFERENCE IMIN) CL::MAYBE-MAKE-BINDING-FORM +(CL::COUNT-OCCURRENCES CL:SUBST) \TEDIT.COMMAND.LOOP (ALLOCSTRING SUBSTRING THIS.PROCESS RESETSAVE +\TEDIT.COMMAND.RESET.SETUP LIST TEXTPROP APPLY* TEDIT.COPY TEDIT.COPY.PARALOOKS TEDIT.COPY.LOOKS +TEDIT.MOVE \GETKEY \SYNCODE GETHASH \GETBASEBYTE) LOADFNS-MAKELIST (LIST ERROR MAPCAR EDITFPAT) +ANALYZE-PARAMETER (CL:CERROR GENSYM RECURSIVELY-ANALYZE) \BITBLTSUB (OPCODES) \DSPSPACEFACTOR.IP (FIXR + TIMES CHARWIDTH) CH.DOMAINS.SERVED (NLSETQ COURIER.CALL CH.GETAUTHENTICATOR) FLIPCURSOR (\PUTBASE +LOGXOR \GETBASE CONSTANT SUB1 EXPT \ADDBASE) \LOGOUT0 (\FLUSHVM) \TEDIT.CONVERT.TO.FORMATTED ( +\TEDIT.BASICFIND MKSTRING CHARACTER \CHTOPC ADD1 -) \GETPILOTBBTSCRATCHBM (BITMAPCREATE) +SEDIT::MENU-PACKAGE-SELECTEDFN (LISTGET FM.ITEMPROP FM.EDITITEM CL:FIND-PACKAGE SEDIT::MENU-SELECTEDFN + LIST PRIN1 GETPROMPTWINDOW MAINWINDOW FM.CHANGELABEL) BITMAPCOPY (\DTEST BITMAPCREATE BITMAPWIDTH) +RECREDECLARE (MAPHASH) SPYOBJ (IMAGEOBJCREATE CL:FORMAT) XCL::CLEAR-IMPLICIT-KEY-HASH (CL:ERROR +XCL::IK-HASH-BASE CL:1+ XCL::IK-HASH-LAST-INDEX \ADDBASE XCL::IK-HASH-NULL-SLOTS XCL::IK-HASH-NUM-SLOTS + XCL::IK-HASH-NUM-KEYS) \DSPRESET.PSC (\MOVETO.PSC DIFFERENCE FONTPROP) WHILEDOUNTIL (LAST LDIFF CONS +WHILEDO1 NCONC WHILEDOUNTIL) OPT.JLENPASS (FRPLACA PLUS IDIFFERENCE OPT.JSIZE IPLUS) +\INSUREBITSPERPIXEL (SELECTQ \ILLEGAL.ARG) CL::SETF-ERROR (CL:ERROR) WHO-LINE-HOST-NAME (ETHERHOSTNAME +) ANALYZE-KEY (GENSYM) XCL::IMPLICIT-KEY-MAP-HASH (CL:ERROR XCL::IK-HASH-BASE CL:1+ +XCL::IK-HASH-LAST-INDEX \ADDBASE XCL::IK-HASH-KEY-ACCESSOR) LASTCHPOS (NTHCHARCODE PLUS) +BRHC/INTERTREE/SPACE (IDIFFERENCE) RECLAIMMIN (IMIN IMAX) TEDIT.DISPLAYTEXT (\TEDIT.APPLY.STYLES IPLUS + RESETSAVE SUB1 ADD1 \GETBASEFAT \GETBASE \GETBASETHIN \GETBASEBYTE IMAX CHARWIDTH SELCHARQ RELMOVETO +BITBLT \DSPPRINTCHAR DSPXPOSITION) COMP.PUSHCALL (COMP.EXP1) \UPF.TEMPFILEP (SELCHARQ NTHCHARCODE +NCHARS) TEDITCHAT.CHARFN (TEXTOBJ SELCHARQ MOVETO BOUT) \FTP.PRINTPLIST (SUB1 IPLUS MKSTRING ADD1 +\GETBASEFAT \GETBASE \GETBASETHIN \GETBASEBYTE \DECRYPT.PWD.CHAR LOGXOR BOUT) +*WHO-LINE-ENTRY-REGISTRY* (LIST) \UPF.NEXTPOS (NTHCHARCODE PLUS) \SPP.CLEANUP (SELECTQ WITH.MONITOR +CL:MULTIPLE-VALUE-PROG1 .UNWIND.PROTECT. FUNCTION DREMOVE LIST APPLY*) RECORDECL (RECORDECL0 FRPLACA) +GETHOSTINFO (MKATOM U-CASE ASSOC STRPOS \DOMAIN.NAME.QUALIFY.FULLY CONS GETHASH CANONICAL.HOSTNAME +SELECTQ LISTGET) WHILEDO1 (APPEND LIST CONS) GCTRP (FIXP) \CH.UPDATE.CACHE (PRIN1 LIST NCONC1 FRPLACA +CONS SORT.NSADDRESSES.BY.DISTANCE FRPLACD) TEXTPROP (PUTTEXTPROP TEXTOBJ ARG GETTEXTPROP \ILLEGAL.ARG) + DISABLEGC (UNINTERRUPTABLY \DISABLEGC1) SET.TTYINEDIT.WINDOW (CREATEW IREMAINDER WINDOWPROP IMINUS +DSPLINEFEED TTYDISPLAYSTREAM) UNPACKPATHNAME.STRING (DECLARE CL:INTERSECTION MKATOM APPEND +CL:PATHNAME-HOST LIST CL:PATHNAME-DEVICE CL:PATHNAME-DIRECTORY CL:PATHNAME-NAME CL:PATHNAME-TYPE +CL:PATHNAME-VERSION MKSTRING) \FIXILINES (IMAX IPLUS \TEDIT.FIXINSSEL) SEDIT::MENU-INIT-STATE ( +CL:PACKAGE-NAME FM.GETITEM FM.ITEMPROP) \DOGCDISABLEDINTERRUPT (CREATEW CREATEREGION IDIFFERENCE PRIN1 + HELP) TTYINMETA (METASHIFT) BRH/LAYOUT/DAUGHTERS (IPLUS BRH/LAYOUT GETNODEFROMID IDIFFERENCE) +FLASHWINDOW (FIXP GETSTREAM VIDEOCOLOR INVERTW PLUS) HASHFILENAME (HASHFILEPROP) IDLE.SET.OPTION ( +LISTGET SELECTQ MENU RNUMBER MKATOM PROMPTFORWORD UNION LIST PRIN1 GV.READENTRY TERPRI RESETFORM +TTYDISPLAYSTREAM ASKUSER CONS REMOVE IDLE.SHOW.OPTION) \LEAF.SETCREATIONDATE (\LEAF.GETFILEDATES +LISP.TO.ALTO.DATE ALLOCATE.PUP LLSH IDIFFERENCE IPLUS) BITMAPBIT (\FBITMAPBIT SUB1 \ADDBASE ITIMES +\SFInvert IDIFFERENCE MAXIMUMCOLOR SELECTQ FOLDLO LRSH \GETBASE \BITMASK \WORDELT LOGAND LOGXOR LOGOR +LSH \4BITMASK LLSH \GETBASE24 ERROR \GETDISPLAYDATA \DTEST \OUTSTREAMARG \GETSTREAM \DSPCLIPTRANSFORMX + \DSPCLIPTRANSFORMY DSPDESTINATION \TOTOPWDS BITMAPBIT) \SEARCH.OUTPUTQ (\UNQUEUE) EDITREC (EDITDEF) +SPY.MERGE.CALLEES (FREPLACEFIELD CONS FFETCHFIELD SPY.MERGETREE SELECTQ GETHASH SHOULDNT SUB1 LIST) +XCL::PPRINT-DEFINER (DECLARE DSPXPOSITION DSPLEFTMARGIN + CL:* GET) \FILLPOLYGON.PSC (LAST +BITMAPCREATE MIN POSTSCRIPT.PUTCOMMAND LSH TIMES QUOTIENT DSPSCALE \MOVETO.PSC) SHRKFY (SHRKFY NCONC1 +SHRKFY2 LIST CLISPIFY2A CLISPIFYLOOKUP CLISPIFY2C) ANTILOG (FLOAT FABS FDIFFERENCE FTIMES CONSTANT LOG + FIX FQUOTIENT POLYEVAL \FLOATBOX OPCODES QUOTIENT ELT IPLUS) SEDIT::MENU-FIND-SELECTEDFN (LISTGET +FM.ITEMPROP WINDOWPROP MAINWINDOW FM.EDITITEM LIST TTY.PROCESS) LINE.LESSP (ILEQ) \DSPCLIPTRANSFORMX ( +\DSPTRANSFORMX IPLUS) COMP.EVALFORM (LIST SUB1 COMP.STRETURN) \IGR.MAKEPRETTYCOMSL (EVAL MAPCAR +LISPFORM.SIMPLIFY LIST) CREATEW (GETSCREENREGION COPY \CREATEW1) DWIMIFY2A (CLISPFUNCTION? FUNCTION) +\DSPCLIPTRANSFORMY (\DSPTRANSFORMY IPLUS) IDLE.BOUNCING.BOX (RESETLST WINDOWPROP COPY LIST IDLE.BITMAP + RAND IDIFFERENCE BITMAPWIDTH BITMAPHEIGHT) \NSPRINT.INTERNAL (CL:MULTIPLE-VALUE-PROG1 +.UNWIND.PROTECT. FUNCTION) \GENERIC.CURSOR (WINDOWOP SPREADAPPLY*) \NAMEDTAB.INIT (IMAGEFNSCREATE) +CL::GET-SHARED-SETF-METHOD (GENSYM CL:MAPCAR CL:FUNCTION CL:MACROEXPAND-1 CL:VALUES CL:NREVERSE LIST) +COERCETEXTOBJ (SELECTQ ALLOCSTRING \GETBASEPTR \FIRSTNODE PLUS ZEROP SUBSTRING \TEDIT.REOPEN.STREAM +BIN IDIFFERENCE OPENP OPENSTREAM OPENFILE TEDIT.PUT.PCTB \GETSTREAM CONS) \BBTCURVEPT (IPLUS IMIN +IDIFFERENCE \ADDBASE ITIMES \SFInvert LLSH SELECTQ \PILOTBITBLT) AIN (IDIFFERENCE SELECTC LIST UNFOLD +LLSH LISPERROR IPLUS \GETOFD \GETSTREAM) \TERMINATESPP (WITH.MONITOR CL:MULTIPLE-VALUE-PROG1 +.UNWIND.PROTECT. FUNCTION LIST \FILLINSPP LOGOR SETUPTIMER) AOUT (IDIFFERENCE SELECTC LIST UNFOLD LLSH + LISPERROR IPLUS \GETOFD \GETSTREAM) CHAT.RECONNECT.OFF (WINDOWPROP FUNCTION) \BLTCHAR (OPCODES) +\DRAWPOLYGON.PSC (LAST TERPRI TIMES SELECTQ POSTSCRIPT.PUTCOMMAND \MOVETO.PSC) SHRKFY2 (LIST) BLTCHAR +(\BLTCHAR IGEQ \ILLEGAL.ARG \GETDISPLAYDATA \DTEST \OUTSTREAMARG \GETSTREAM) COMP.MLLFN (ARGTYPE NARGS + PRIN2) TTYIN.LASTINPUT (TTYINSTRING) \USEREVENT (MAPC SELECTQ REVERSE APPLY*) TWODINSPECT.SELECTITEM +(WINDOWPROP WITH-INSPECTOR-ENV XCL::PROFILIZE CL:PROGV XCL::PROFILE-VARIABLES XCL::PROFILE-VALUES +STRINGWIDTH APPLY* IDIFFERENCE ADD1 FONTPROP) TEDIT.UPDATE.SCREEN (TEXTOBJ \TEDIT.FIXCHANGEDPART) +SEDIT::MENU-CLOSEFN (CONS WINDOWPROP MAINWINDOW) \PROCESS.BEFORE.LOGOUT (RESETLST LIST CREATEW TERPRI) + \MEDW.CURSOR (IDIFFERENCE SUB1) FEQP (LISPERROR NTYPX ADD1 IDIFFERENCE IGEQ LOLOC \LOLOC FLOAT IPLUS +LLSH LRSH LOGAND PLUS SUB1) \DEVICE.INPUT (OPCODES) \TEXTCLOSEF (TEXTOBJ ZEROP \GETBASEPTR \FIRSTNODE) + \OPENLINEBUF (\CREATELINEBUFFER) \DSPPRINTCR/LF (TTYDISPLAYSTREAM \CARET.DOWN SELECTQ ERROR IPLUS +IMINUS IDIFFERENCE \DSPTRANSFORMX DSPDESTINATION \GETBASE \TOTOPWDS \DSPTRANSFORMY) BMOBJ.COPYFN ( +IMAGEOBJPROP BITMAPTEDITOBJ BITMAPCOPY) \DSPRIGHTMARGIN.IP (MIN) CL:MULTIPLE-VALUE-CALL (CL:APPLY) +FASL::DUMP-BITMAP (BITMAPWIDTH BITMAPHEIGHT BITSPERPIXEL FASL::HANDLE-STREAM) +XCL::MAKE-IMPLICIT-KEY-HASH-TABLE (+ CL:ASH XCL::%%MAKE-IK-HASH-TABLE \ALLOCBLOCK CL:1-) +\BSP.CLOSE.OPEN.SOCKETS (MAPC LIST BLOCK) DWIMIFYFNS (CLOCK MAPCAR STKEVAL EVALV MISSPELLED? +FILEFNSLST DWIMIFY0) BIT (CL:APPLY) \FTP.PACKFILENAME (SELECTQ SELCHARQ CHCON1 NTHCHARCODE SUBSTRING +\FTP.ADD.QUOTES LIST STRPOS CONS NCHARS GETHOSTINFO CONCAT SUB1 CONCATLIST MKATOM U-CASE) \SFFixY ( +\DSPTRANSFORMY IPLUS \ADDBASE ITIMES \SFInvert IDIFFERENCE IMAX IMIN) PRINTWORDS (SUB1 \GETBASE TERPRI + PLUS) \SLOWBLTCHAR (\CHAR8CODE LOGAND IPLUS \DSPGETCHARWIDTH \GETBASE \DSPTRANSFORMX IMAX IMIN +IDIFFERENCE \DSPGETCHAROFFSET LLSH ITIMES DSPDESTINATION \TOTOPWDS \GETCHARSETINFO \GETBASEPTR UNFOLD +\CHARSET LRSH \CREATECHARSET ADD1) MAKELINE (IPLUS IMINUS MAKEXYPT) \GR.MAKEPRETTYCOMSL (EVAL GETDEF +LITATOM LIST) \CARET.FLASH.AGAIN (TTYDISPLAYSTREAM KEYDOWNP) \LEAF.CREATIONDATE (ALTO.TO.LISP.DATE) +SEPRCASE (ARRAYP ASSOC CASEARRAY + - PLUS NCONC MAPCAR CHCON1 GETSEPR GETBRK SETCASEARRAY +READTABLEPROP CONS) ARRAYSIZE (\MACRO.MX ARRAYSIZE) SYNONYM (DECLARERECORD CONS) SAVEVM (\USEREVENT) +\STRINGWIDTH.PSC (\STRINGWIDTH.GENERIC) CLISPIFYLOOKUP (GETPROP CLISPLOOKUP0) ARRAYTYP (SELECTC \DTEST + SHOULDNT) ARRAYORIG (\DTEST) CHARMACRO? (APPEND) BRH/OFFSET (MAPC GETNODEFROMID FRPLACD PLUS +BRH/OFFSET) \CHANGECHARSET.DISPLAY (\GETCHARSETINFO \GETBASEPTR UNFOLD LLSH \CREATECHARSET \SFFixY +\ADDBASE ITIMES) COPYARRAY (HASHARRAY HARRAYSIZE REHASH ARRAYORIG ARRAYTYP ARRAYSIZE ARRAY SETA ELT +PLUS SETD ELTD) USERNAME (GetBcplString \ADDBASE EMADDRESS OPCODES U-CASE SUBSTRING) SETD (SELECTC +IDIFFERENCE IPLUS \ADDBASE2 \ADDBASE SETA) FASL::DUMP-STRUCTURE (TYPENAME) \TEXTSTREAMBOUT ( +\TEDIT.APPLY.STYLES PLUS FFETCHFIELD CHARWIDTH IDIFFERENCE SELECTQ DSPCLIPPINGREGION LLSH SHOULDNT +ADDBASE \ADDBASE LRSH IPLUS LOGAND) BSPREADP (SELECTC \QUEUEHEAD FFETCHFIELD LIST) FTPGETMARK ( +FTPPRINTMARK BSPGETMARK MARK# .FTPDEBUGLOG.) ELTD (SELECTC IDIFFERENCE IPLUS \GETBASEPTR \ADDBASE2 +\ADDBASE ELT) SETUSERNAME (\ADDBASE EMADDRESS OPCODES USERNAME CONCAT) SPY.ORIGINAL (MAPCONC SELECTQ +APPEND SHOULDNT LIST) \MEDW.PUTWINDOWPROP (\OUTSTREAMARG \GETSTREAM WFROMDS SELECTQ ERROR REGIONP +WINDOWPROP LISTGET LIST) REHASH (\DTEST \ADDBASE4 \ADDBASE2 \ADDBASE) \INDICATESTRING (RESETLST +RESETSAVE RADIX CONCAT \CHARSET LRSH \CHAR8CODE LOGAND LOGOR CHARACTER) HASHARRAY (FQUOTIENT IMAX IMIN + - FOLDLO LRSH FIXR SUB1 LLSH IQUOTIENT PLUS SQRT IREMAINDER UNFOLD ERROR FTIMES IPLUS \ALLOCBLOCK) +CLOSENSOCKET (\DTEST UNINTERRUPTABLY DREMOVE ERROR) HARRAYSIZE (\DTEST) SEDIT::JOIN ( +SEDIT:GET-PROMPT-WINDOW GETPROMPTWINDOW SEDIT::CLOSE-NODE PRIN1 SEDIT::SUBNODE NTH CONSTANT +FREPLACEFIELD CONS FFETCHFIELD LIST PLUS NCONC IMAX LAST ADD1 SEDIT::COLLECT-UNDO-BLOCK) FTPPUTCODE ( +BOUT FTPPRINTCODE) INVERT.TEXTURE.BITMAP (BITMAPCREATE \ADDBASE LOGXOR \GETBASE) DO.CHAT.OPTION ( +CHAT.OPTIONMENU PRIN1) \ALLOCMAPBUFFER (NCREATE) LRSH (LLSH IMINUS NTYPX \LOLOC \FIXP.FROM.FLOATP +IQUOTIENT CL::RATIO-NUMERATOR CL::RATIO-DENOMINATOR IDIFFERENCE IPLUS LRSH LOGAND .LRSH1. \MAKENUMBER) + CLISPFORVARS (LIST DWIMIFY2 CONS DREVERSE) \LEAF.SETFILETYPE (ALLOCATE.PUP LLSH IDIFFERENCE FIXP +SELECTQ IPLUS) %. (MASTERSCOPE) \MEDW.GETWINDOWPROP (\OUTSTREAMARG \GETSTREAM WFROMDS SELECTQ +\GETWINDOWHEIGHT \GETWINDOWWIDTH GETWINDOWUSERPROP) READBITMAP (READC RATOM GETSTREAM SELECTQ +SKIPSEPRS FOLDHI LRSH IPLUS ITIMES BITMAPCREATE \BIN FRPTQ \PUTBASEBYTE LOGOR LLSH IDIFFERENCE SUB1 +\ADDBASE) \NAMEDTABSIZE (IMAGEOBJPROP IMAX IDIFFERENCE ITIMES) CL::GET-SIMPLE-SETF-METHOD (GENSYM +CL:MAPCAR CL:FUNCTION CL:MACROEXPAND-1 CL:VALUES CL:NREVERSE LIST) SPY.DELETE (SPY.DELETE LIST) +\NSGATELISTENER (OPENNSOCKET SETUPTIMER THIS.PROCESS FUNCTION GETXIP AWAIT.EVENT \FILLINXIP + UNFOLD +LLSH \ADDBASE SUB1) \DRAWARC.PSC (TERPRI POSTSCRIPT.PUTCOMMAND TIMES + \MOVETO.PSC) CLMAPS2 (LIST CONS + CLISPIFY2A FLAST NCONC LDIFF CLISPIFY1 APPEND) SUBARRAY (IPLUS UNINTERRUPTABLY ARRAYP ADD1 +IDIFFERENCE) WHO-LINE-CHANGE-USER (LOGIN) \SENDSPP (WITH.MONITOR CL:MULTIPLE-VALUE-PROG1 +.UNWIND.PROTECT. FUNCTION ILESSP \LOLOC IDIFFERENCE SEQ.ADD1 \ADDBASE SUB1 LOCF SETA IMOD) +MAXIMUMSHADE (MAXIMUMCOLOR) FASL::DUMP-FLOAT32 (FASL::WRITE-OP \BOUTS FASL::HANDLE-STREAM) TTYINFIX ( +COUNT MEMB NONTTYINLISPXFIX TTYIN) CHECKBUFFERREFVAL (UNINTERRUPTABLY OPCODES) TEXTUREP (FIXP) BSPEOFP + (\DTEST \BSP.PREPARE.INPUT) \FTP.HANDLE.NO (FUNCTION FTPGETCODE .FTPDEBUGLOG. LIST ASSOC +\FTP.DIRECTORYNAMEONLY MKATOM \INTERNAL/GETPASSWORD PRIN1 GETSTREAM SELECTQ FRPLACA LISPERROR +\FTP.PACKFILENAME) HARRAY (HASHARRAY) %%COPY-STRING-TO-ARRAY (LOCAL NCHARS \ALLOCBLOCK FOLDHI LRSH +IPLUS ITIMES SUB1 NTHCHARCODE ADD1 PLUS) \HCPYMODEBLTCHAR (\CHAR8CODE LOGAND \CHARSET LRSH +\SLOWHCPYMODEBLTCHAR FIXR FQUOTIENT \DSPGETCHARWIDTH \GETBASE IPLUS \FGETWIDTH DSPDESTINATION +\TOTOPWDS IDIFFERENCE \DSPGETCHAROFFSET) CLEARMAP (MAPC \CLEARMAP \GETSTREAM) XCL::PROFILE-VALUES ( +MAPCAR XCL::PROFILIZE) \FTP.ERRORHANDLER (SELECTQ STREAMOP SPREADAPPLY* BSPOUTPUTSTREAM ERROR +\FTP.FIX.BROKEN.INPUT STKPOS RETFROM MARK# BSPFRNADDRESS ETHERHOSTNAME) = (ARG) OPPOSITESHADE ( +IDIFFERENCE MAXIMUMSHADE) \PNC (ADD1 SUB1) DWIMIFY2 (DWMFY2) \WRITEOUTBUFFERS (MAPCAR +CHECKBUFFERREFVAL MAPC UNDIRTY) READATOM (ALLOCAL) \CLEARMAP (LOGAND CONSTANT LOGOR SPREADAPPLY*) +INVERT.TEXTURE (LOGXOR LOGAND INVERT.TEXTURE.BITMAP) PRINTPROPS (RESETFORM PRINTLEVEL MAP GETPROPLIST +MISSPELLED? SHOWPRINT CDDR) COMP.MLLVAR (PRIN2 SELECTQ) < (CL::%%COMPARISON-MACRO) +\CH.CHECK.CLEARINGHOUSE (BESTNSADDRESS CH.DOMAINS.SERVED PRIN1 MKSTRING) OVERFLOW (SELECTQ) +\WRITEPAGES (FDEVOP SPREADAPPLY*) \MEDW.BITBLT (IMAGESTREAMP WFROMDS \GETDISPLAYDATA \DTEST +\OUTSTREAMARG \GETSTREAM SPREADAPPLY* \DSPTRANSFORMX IPLUS \DSPTRANSFORMY IMAX DSPDESTINATION +\TOTOPWDS) HASHFILESPLST (GTHASHFILE GENERATOR HASHFILESPLST1) SEDIT::INSERT-SPECIAL-CHARACTER ( +ALLOCSTRING SELECTQ SEDIT::TYPE-OF-INPUT) XCL::PROFILE-VARIABLES (MAPCAR XCL::PROFILIZE) HARRAYPROP ( +ARG IGREATERP \DTEST SELECTQ HARRAYSIZE LISTGET LIST) OPPOSITECOLOR (IDIFFERENCE MAXIMUMCOLOR) +\FTP.WHENCLOSED (DREMOVE TERPRI) FINISH-READING-BITMAP (READ) COMP.MLL (POSITION PRIN1 GETPROP +IDIFFERENCE IPLUS COMP.MLLVAR LIST TERPRI) COMP.MAP (LIST CONS NARGS SELECTQ COMP.BIND.VARS OPT.DREV +APPEND COMP.UNBIND.VARS) \READPAGES (FDEVOP SPREADAPPLY*) > (CL::%%COMPARISON-MACRO) CLRHASH (\DTEST +\HASHSLOT \ADDBASE2 \ADDBASE) CL:READ-CHAR (\GETSTREAM SPREADAPPLY* CL:CODE-CHAR READCCODE) +\BSP.GETFILEPTR (IPLUS) CLOSEBSPSTREAM (\DTEST FIXP CL:MULTIPLE-VALUE-PROG1 .UNWIND.PROTECT. FUNCTION +LIST SETUPTIMER CLOSERTPSOCKET) %%COPY-ONED-ARRAY (LOCAL FFETCHFIELD FOLDHI LRSH IPLUS ITIMES +\ALLOCBLOCK SUB1 LLSH \GETBASE PLUS) CHAT.TAKE.INPUT1 (GETPROMPTWINDOW PRIN1 FULLNAME PROMPTFORWORD +OPENSTREAM) \SLOWHCPYMODEBLTCHAR (\CHAR8CODE LOGAND IPLUS \DSPGETCHARWIDTH \GETBASE \DSPTRANSFORMX +IMAX IMIN IDIFFERENCE \DSPGETCHAROFFSET LLSH DSPDESTINATION \TOTOPWDS \GETCHARSETINFO \GETBASEPTR +UNFOLD \CHARSET LRSH \CREATECHARSET ADD1) \FTP.OPENFILE (RESETLST \FTP.UNPACKFILENAME FIXP LISPERROR +CONS LIST GDATE \FTP.OPENFILE.FROM.PLIST) \GR.CONTENTS (EVAL MAPCAR) TTADJUSTWIDTH (IMINUS FRPLACA +PLUS) \GENERIC.DSPCREATE (WINDOWOP SPREADAPPLY* FUNCTION MAX) MAPHASH (\DTEST \HASHSLOT \ADDBASE2 +\ADDBASE) \NAMEDTABNYET (PROMPTPRINT) LOG (FLOATP FLOAT FTIMES ADD1 \FLOAT.BOX IDIFFERENCE FDIFFERENCE + POLYEVAL \FLOATBOX OPCODES FPLUS) HASHLINK (DECLARERECORD CONS) FINDPTRSBUFFER (ERROR) \CHARWIDTH.PSC + (\FGETCHARWIDTH \FGETWIDTH \GETBASE \GETCHARSETINFO \GETBASEPTR UNFOLD LLSH \CHARSET LRSH +\CREATECHARSET \CHAR8CODE LOGAND) SEDIT::INSPECT-SELECTION (SEDIT::GET-SELECTED-STRUCTURE PRIN1 +SEDIT:GET-PROMPT-WINDOW GETPROMPTWINDOW) \ICONW.FORMAT.TITLE1 (NCHARS FONTPROP CONS NTHCHARCODE PLUS +CHARWIDTH - SUB1 LIST) \GETMAPBUFFER (\ALLOCMAPBUFFER) \BITBLT.MERGE (\BITBLTSUB MOD IMOD +\GETPILOTBBTSCRATCHBM IPLUS) \TEDIT2 (TEXTPROP COERCETEXTOBJ) OPENBSPSTREAM (OPENRTPSOCKET LIST +FUNCTION FIXP CREATE.EVENT CONCAT PROCESS.NAME) SETTEMPLATE (COPY TEMPLATE SELECTQ ERROR CONS LIST) +BITMAPBIT.EXPANDER (LENGTH) TERM.HOME (MOVETO) TEDIT.WORDGET (\SYNCODE GETHASH \GETBASEBYTE SMALLP +CHCON1) \HASHACCESS (\DTEST APPLY* \EQHASHINGBITS LOGXOR \HILOC LLSH LOGAND \LOLOC LRSH \FIRSTINDEX +IREMAINDER ADD1 \HASHSLOT \ADDBASE \ADDBASE2 \REPROBE LOGOR IMIN IPLUS ERROR FREPLACEFIELD PLUS +FFETCHFIELD HASHOVERFLOW) \FIXLINELENGTH.IP (FIXR QUOTIENT DIFFERENCE) SEDIT::INSERT-MULTI-ESCAPE ( +SEDIT::TYPE-OF-INPUT ALLOCSTRING NTHCHARCODE ADD1 PLUS FFETCHFIELD) \MEDW.DSPCREATE (BITMAPP FUNCTION +MAX) INSTALL-WHO-LINE-OPTIONS (CREATEW CREATEREGION CREATE.MONITORLOCK) RESTART.ETHER (FIND.PROCESS +\ETHEREVENTFN) MAPAFTERCLOSE (\GETSTREAM) WHO-LINE-USERNAME (USERNAME) CL::PUTHASH (\HASHACCESS) +\IDLER (RESETSAVE ALTO.TO.LISP.DATE LISTGET LIST FUNCTION FIND.PROCESS GCGAG SETTOPVAL EVAL GETTOPVAL +USERNAME TTY.PROCESS THIS.PROCESS CHANGENAME TIMES CREATEW CURSOR CURSORCREATE BITMAPCREATE +CHANGEBACKGROUNDBORDER SETUPTIMER ADD.PROCESS CONS \IDLE.TIME TERPRI NLSETQ SAVEVM \IDLE.EXIT? CONCAT +DATE PRIN1 MAPC APPLY*) MAPBUFFERCOUNT (ADD1) SPY.DUMP.BUFFER (PLUS SPY.FIND.TREE SPY.BUFFER.ENTRY +SPY.NEXT.TREE FFETCHFIELD ADD1) FASL::DUMP-DCODE (FASL::HANDLE-STREAM) \BSP.SETFILEPTR (IDIFFERENCE +\BSP.GETFILEPTR \BSP.SKIPBYTES \IS.NOT.RANDACCESSP) INSURE.B&W.TEXTURE (SELECTQ TYPENAME +TEXTUREOFCOLOR INSURE.RGB.COLOR LOGAND INSURE.B&W.TEXTURE \ILLEGAL.ARG) TEDIT.UNDO.DELETION (\CHTOPC +\SPLITPIECE - IMAGEOBJPROP \TEDIT.PRIMARYW TEXTSTREAM IPLUS) MAPPAGE (\GETSTREAM SELECTQ \MAPPAGE ADD1 + ERROR) REMHASH (\HASHACCESS) PRINTDEF (GETSTREAM DSPLEFTMARGIN SUB1 DSPRIGHTMARGIN LIST +TTYDISPLAYSTREAM RESETSAVE FUNCTION DSPFONT SETFONT PLUS BLANKS TIMES DSPXPOSITION SUBPRINT SUPERPRINT + MAPRINT PRIN2S) \HASHRECLAIM (\DTEST \HASHSLOT \ADDBASE2 \ADDBASE PLUS IDIFFERENCE) +\STRINGWIDTH.HCPYMODE (IQUOTIENT IPLUS \STRINGWIDTH.GENERIC \FGETWIDTH \GETBASE CONSTANT) \MAPPAGE ( +\GETMAPBUFFER UNINTERRUPTABLY OPCODES LOGAND CONSTANT LOGOR \COLLECTDIRTYBUFS CONS GETBUFFERPTR +FFETCHFIELD ADD1 DOPMAP CHECKBUFFERREFVAL) DO.MOUSE (DO.SHIFTED.SELECTION LOGAND TTRACKMOUSE +\CARET.DOWN BRACKET.CURRENT.WORD SEGMENT.BIT.LENGTH) HASHOVERFLOW (HASHOVERFLOW.ARRAYTEST \DTEST +HARRAYPROP SELECTQ IMAX + IMIN LRSH CL:1+ LIST FIXR FTIMES APPLY* REHASH HASHARRAY \COPYHARRAYP) +RECORDINIT (APPLY /SET) \SETEOF (PLUS UNINTERRUPTABLY) \SPP.SEND.ENDREPLY (\SENDSPP \FILLINSPP LOGOR) +TEDIT.WORDSET (\SETSYNCODE \PUTBASEBYTE \SETFATSYNCODE SMALLP CHCON1 FIXP SELECTQ) CLMAPS1 (CONS ATOM +LIST) MAPWORD (WORDOFFSET MAPPAGE FOLDLO LRSH MOD IMOD) UNDONLSETQ (LISTGET1 LIST RESETVARS .RESETLST. + CONS CL:MULTIPLE-VALUE-PROG1 .UNWIND.PROTECT. FUNCTION ERRORSET) TURN.ON.ETHER (ASSURE.ETHER.ON) +\GR.DELDEFFN (LIST ASSOC REMOVE PACK*) DWIMIFY1A (RETDWIM2 LISPXPRIN1 LISPXPRINT CONCAT SUBSTRING) +IDLE (FNTYP LISTGET ADD.PROCESS LIST KWOTE \IDLERKEYACTION) TEDIT.REDO.INSERTION (\CHTOPC \SPLITPIECE +- IMAGEOBJPROP APPLY* COPY WINDOWPROP IPLUS) XCL::SETF-FIND-PROFILE (STRING XCL::PROFILIZE CL:GETHASH +XCL:PROFILE-NAME) SAVESETQ (SAVESET APPLY) \FTPERROR (TERPRI ERROR) \HASHTABLE.DEFPRINT (IPLUS +CONSTANT + NCHARS FRESHLINE) FINDCALLERS (EDITCALLERS NCONC DREVERSE LIST CONS) \BITBLT.BITMAP.SLOW ( +IMAX IMIN IPLUS IDIFFERENCE LOGXOR LOGAND COLORNUMBERP INVERT.TEXTURE.BITMAP BITMAPCREATE \ILLEGAL.ARG + UNFOLD LLSH COLORTEXTUREFROMCOLOR# ITIMES \SFInvert MAXIMUMCOLOR) CLISPFORINITVAR (CONS LIST +GETDUMMYVAR NCONC1) \COLLECTDIRTYBUFS (ADD1 PLUS LIST) \BSPBACKFILEPTR (FREPLACEFIELD PLUS FFETCHFIELD + ERROR) BSPOPENP (\DTEST SELECTC IGREATERP ILESSP) TEXTUREOFCOLOR (INSURE.RGB.COLOR \PRIMARYTEXTURE) +SPY.MAKE.TREE (FONTP FONTCREATE PLUS QUOTIENT TIMES MAPCAR SPY.MAKEGRAPHNODES SPY.TITLE SHOWGRAPH +LAYOUTGRAPH REVERSE FUNCTION) WORDCONTENTS (\GETBASE) XCL::SETF-PROFILE-ENTRY-VALUE-NAME (XCL::PROFILIZE + XCL::PROFILE-ENTRY-VALUE CL:FUNCALL XCL::VARIABLE-DEFINITION-COERCION-FUNCTION +XCL::FIND-VARIABLE-DEFINITION) \MEDW.TOTOPW (\INSUREWINDOW WINDOWPROP) \PUNT.BITBLT.BITMAP (IMAX IMIN +IPLUS IDIFFERENCE LOGXOR LOGAND COLORNUMBERP INVERT.TEXTURE.BITMAP BITMAPCREATE \ILLEGAL.ARG UNFOLD +LLSH COLORTEXTUREFROMCOLOR# ITIMES \SFInvert MAXIMUMCOLOR) WHO-LINE-WHAT-IS-RUNNING (CONSTANT LIST +STKPOS FRPLACA STKNTH STKNAME) \STRINGHASHBITS-UFN (\GETBASEPTR SUB1 IPLUS MKSTRING ADD1 \GETBASEFAT +\GETBASE \GETBASETHIN \GETBASEBYTE IPLUS16 \LOLOC \ADDBASE LLSH LOGAND) /SETWORDCONTENTS (LIST +FUNCTION WORDCONTENTS SETWORDCONTENTS) COURIER.NSNAME.LENGTH (+ COURIER.REP.LENGTH) +\STRING-EQUAL-HASHBITS-UFN (\GETBASEPTR SUB1 IPLUS MKSTRING ADD1 \GETBASEFAT \GETBASE \GETBASETHIN +\GETBASEBYTE IPLUS16 \LOLOC \ADDBASE LOGOR LLSH LOGAND) SETREADFN (/SETATOMVAL) SETWORDCONTENTS ( +FINDPTRSBUFFER \PUTBASE) FILEWATCH (FIND.PROCESS SELECTQ MKATOM U-CASE ADD.PROCESS LIST FUNCTION) +EXPANDBITMAP (ITIMES BITMAPCREATE) SEDIT::INPUT-TOKENDELIM (SEDIT::TYPE-OF-INPUT CHARACTER) +\MAKE.PMAP.DEVICE (FUNCTION) \CODEARRAY (\ALLOCBLOCK FOLDHI LRSH IPLUS) COMPILER::TEST-GENCODE ( +CL:PPRINT COMPILER::TEST-GENCODE1 CL:FRESH-LINE CL:VALUES) RECORDACCESSFORM (L-CASE SELECTQ LIST +COMPILEUSERFN) WORDOFFSET (\ADDBASE) \DRAWPOINT.PSC (BITBLT - IQUOTIENT \DRAWLINE.PSC) +\PUNT.BLTSHADE.BITMAP (IMAX IMIN IPLUS SELECTQ TYPENAME COLORNUMBERP \ILLEGAL.ARG MAXIMUMCOLOR LOGAND +TEXTUREP TEXTUREOFCOLOR ITIMES COLORTEXTUREFROMCOLOR# IDIFFERENCE \SFInvert) TEDIT.SETSYNTAX ( +TEDIT.GETSYNTAX APPLY* \PUTBASEBYTE \SETFATSYNCODE SELECTQ) \PAGED.GETNEXTBUFFER (SELECTQ PLUS +\EOF.ACTION \MAPPAGE) XCL::SETF-PROFILE-NAME (XCL::PROFILE-ENTRY-VALUE STRING) \MEDW.BURYW ( +\INSUREWINDOW ORDERFROMBOTTOMTOTOP OVERLAPPINGWINDOWS REMOVE LDIFFERENCE ALLATTACHEDWINDOWS REVERSE +\CLOSEW1 \OPENW1) \FIXCODENUM (LOGAND SUB1 LOGOR \GETBASEBYTE LRSH) \TFBRAVO.GET.NAMEDTAB ( +IMAGEOBJCREATE RATOM) TURN.OFF.ETHER (\FLUSHNDBS) \PAGED.FORCEOUTPUT (\GETSTREAM LOGAND CONSTANT LOGOR + \RELEASECPAGE SORT LIST ADD1 PLUS) DSPSOURCETYPE (\GETDISPLAYDATA \DTEST \OUTSTREAMARG \GETSTREAM +FMEMB \SETPBTFUNCTION SELECTQ) \FIXCODEPTR (\LOLOC OPCODES LOGAND SUB1 LRSH IDIFFERENCE LOGOR +\GETBASEBYTE \HILOC \PUTBASEBYTE) \CLIPLINE (FQUOTIENT + - DIFFERENCE \CLIPCODE LOGAND PLUS LIST FIXR +FTIMES) BRH/LAYOUT (IPLUS HALF LRSH BRH/LAYOUT/DAUGHTERS LIST IDIFFERENCE) DSPYOFFSET (IMAGEOP +SPREADAPPLY* \OUTSTREAMARG \GETSTREAM) FASL::DUMP-INTEGER (DECLARE BOUT FASL::HANDLE-STREAM +FASL::WRITE-INTEGER-BYTES CL:1+ CL:INTEGER-LENGTH CL:CEILING) \CLISPKEYWORDPROCESS (FMEMB NCONC LDIFF) + \PAGED.SETEOFPTR (SELECTQ \NEWLENGTHIS LOGAND ADD1 \MAPPAGE - SHOULDNT) ARGINFO-MUNG (MAPCONC LIST) +DSPXOFFSET (IMAGEOP SPREADAPPLY* \OUTSTREAMARG \GETSTREAM) TEDIT.UNDO.INSERTION (IPLUS) \UPDATEOF ( +\SETEOF) \IFS.LOOKUPFILE (NTHCHARCODE STRPOS OPENPUPSOCKET CREATE.MONITORLOCK SUBSTRING ADD1 SUB1 +NCHARS IMINUS CONCAT \INTERNAL/GETPASSWORD GETHOSTINFO CL:MULTIPLE-VALUE-PROG1 .UNWIND.PROTECT. +FUNCTION ALLOCATE.PUP \LEAF.STRIP.QUOTES EXCHANGEPUPS SELECTQ MKATOM U-CASE GDATE ALTO.TO.LISP.DATE +\ILLEGAL.ARG PLUS FREPLACEFIELD FFETCHFIELD) DSPCREATE (FUNCTION MAX) \FTP.SENDVERSION (MARK# +FTPPUTMARK SELECTC FTPGETMARK BIN \FTP.FLUSH.TO.EOC) \PAGEDREADP (\SYNCODE GETHASH \GETBASEBYTE +\PEEKCCODE ILESSP) \CARET.FLASH (IDIFFERENCE DSPXPOSITION DSPYPOSITION) CLISPIFYMAPS (CLISPIFYLOOKUP +LIST NCONC CLISPIFY2A APPEND CLMAPS2) \CHECKARRAYBLOCK (\REFCNT FREEBLOCKCHAIN.N \ADDBASE BUCKETINDEX +IMIN INTEGERLENGTH \GETBASEPTR \MP.ERROR) TEDIT.GETSYNTAX (SELECTC \SYNCODE GETHASH \GETBASEBYTE +APPLY*) SORT (ERROR FUNCTION LAST SORT1) COURIER.WRITE.NSNAME (\DTEST COURIER.WRITE.STRING) +\GR.PUTDEFFN (LIST ASSOC \GR.METHODEXPANDER CONS) \ALLOCBLOCK.OLD (BUCKETINDEX IMIN INTEGERLENGTH +\GETBASEPTR \ADDBASE2 \ADDBASE \MP.ERROR \PREFIXALIGNMENT? IDIFFERENCE \MAKEFREEARRAYBLOCK IPLUS +\LINKBLOCK PLUS) TTYINREADP (PEEKBINCCODE PEEKCCODE) TWODINSPECT.REDISPLAY (LIST WINDOWPROP MAPCONC +MAPCAR APPLY* XCL::PROFILIZE CL:PROGV XCL::PROFILE-VARIABLES XCL::PROFILE-VALUES STRINGWIDTH FONTPROP +IDIFFERENCE ADD1 INSPECT.INVERTSELECTION RIGHTW.REPAINTFN) WHO-LINE-TTY-STATE (TTY.PROCESS +THIS.PROCESS PROCESS.EVALV STKNTHNAME GETPROP PLUS) \ALLOCBLOCK.NEW (\PREFIXALIGNMENT? \ALLOCBLOCK.NEW + \ADDBASE SUB1 IDIFFERENCE \CHECKFORSTORAGEFULL ADD1 \PUTBASEFIXP IPLUS \MAKEFREEARRAYBLOCK +\PUTBASEPTR LOCF \ATOMCELL) SEDIT::INPUT-STRINGDELIM (SEDIT::TYPE-OF-INPUT ALLOCSTRING +SEDIT::CREATE-SIMPLE-NODE) EP (APPLY NLAMBDA.ARGS) \ALLOCHUNK (SELECTC CONSTANT LIST SHOULDNT +\GETBASEBYTE HUNKSIZEFROMNUMBER LRSH \GETDTD \ADDBASE ITIMES IREMAINDER FOLDLO ADD1 CREATECELL +IDIFFERENCE IQUOTIENT OPCODES CONS PLUS NCONC) DECREASING.FONT.LIST (MAPCAR FONTCREATE) TOPW.REPAINTFN + (DSPCLIPPINGREGION MAINWINDOW WINDOWPROP XCL::PROFILIZE CL:PROGV XCL::PROFILE-VARIABLES +XCL::PROFILE-VALUES SUB1 FONTPROP ADD1 DIFFERENCE STRINGWIDTH) \SFFixDestination (UNFOLD LLSH) +FTPPUTMARK (BSPPUTMARK FTPPRINTMARK) \LEAF.READFILEPROP (ALLOCATE.PUP LLSH IDIFFERENCE \SENDLEAF CONS +\ADDBASE FOLDLO LRSH) TTPRINSPACE (+ TTCRLF BLTCHAR TTYDISPLAYSTREAM PLUS TIMES CHARWIDTH) BSPPUTMARK +(WITH.MONITOR CL:MULTIPLE-VALUE-PROG1 .UNWIND.PROTECT. FUNCTION \DTEST \BSP.PREPARE.OUTPUT +BSP.OUTPUT.ERROR APPLY* PLUS FFETCHFIELD) \MAIKO.ALLOCBLOCK (\ALLOCHUNK IPLUS \ALLOCBLOCK.OLD +\ALLOCBLOCK.NEW RECLAIM \DORECLAIM \ADDBASE OPCODES) SEDIT::OUTPUT-CONSTANT-STRING (FREPLACEFIELD CONS + PLUS FFETCHFIELD IMAX FONTPROP MKSTRING SEDIT::MAP-FONT) \BSP.HANDLE.DATA (IDIFFERENCE IPLUS PLUS +FFETCHFIELD) CHAT.TYPESCRIPT (FUNCTION LIST) \NEWLENGTHIS (IDIFFERENCE) \DSPPOPSTATE.PSC (FFETCHFIELD) + CLISPIFYCROPS (STRPOS GETPROP CLISPIFY2C CLISPIFY2 LIST CLISP3A LISTP CONS NCONC APPEND +CLISPIFYCROPS1 SELECTQ) DSPTEXTURE (DSPBACKCOLOR) \TEDIT.WORDBOUND.READTABLE (HARRAY \PUTBASEBYTE +\SETFATSYNCODE PLUS \SETSYNCODE LIST) COMP.NUMBERTEST (SUBPAIR LIST SELECTQ COMP.EXPR COMP.STTAG) +\IDLERKEYACTION (KEYACTIONTABLE) \SFFixClippingRegion (IMAX IMIN \DSPTRANSFORMX IPLUS \DSPTRANSFORMY) +FASL::DUMP-COMPLEX (DECLARE FASL::WRITE-OP FASL:DUMP-VALUE CL:REALPART CL:IMAGPART) +\TEDIT.INTERRUPT.SETUP (PROCESSPROP TEXTOBJ RESET.INTERRUPTS TEXTPROP) CLISPFORF/L (LIST) +INSURE.RGB.COLOR (\ILLEGAL.ARG \LOOKUPCOLORNAME INSURE.RGB.COLOR ERROR HLSTORGB) \BSP.GETNEXTBUFFER ( +SELECTQ \BSP.PREPARE.INPUT BSP.INPUT.ERROR APPLY* \DTEST \BSP.PREPARE.OUTPUT RETFROM STKPOS ERROR +SHOULDNT) \DISPLAYSTREAMINCRXPOSITION (FREPLACEFIELD PLUS FFETCHFIELD) \MERGEFORWARD (\ADDBASE2 +\ADDBASE) CLISPIFYRPLAC (GETPROP CLISPIFY2C CLISPIFYLOOKUP NTH NARGS PUTPROP LENGTH SMARTARGLIST +CLISPIFY2A CONS LDIFF SUBPAIR CLISPIFYCROPS NCONC CLISPIFY1 CLISP3A LIST) SPY.NEXT.TREE (CONS +FFETCHFIELD) XCL::PROFILE-VALUE-TYPE-CHECK (XCL::VARIABLE-DEFINITION-COERCION-FUNCTION +XCL::VARIABLE-DEFINITION-TYPE) \MEDW.REDISPLAYW (WINDOWPROP FUNCTION DSPCLIPPINGREGION +INTERSECTREGIONS RESETLST RESETSAVE LIST DSPXOFFSET DSPYOFFSET FILLWITHBACKGROUND DOUSERFNS2) +\LINKBLOCK (FREEBLOCKCHAIN.N \ADDBASE BUCKETINDEX IMIN INTEGERLENGTH \GETBASEPTR) TEXTOBJ (WINDOWPROP +PROCESS.WINDOW \ILLEGAL.ARG) PUTHASHTEXT (GTHASHFILE SETFILEPTR GETEOFPTR COPYBYTES PUTHASHFILE) +\MERGEBACKWARD (\ADDBASE IMINUS \LINKBLOCK \ADDBASE2 \ARRAYBLOCKMERGER) \BSPWRITEBLOCK ( +\BUFFERED.BOUTS \DTEST) \CLIPCURVELINE.IP (- \CLIPCODE LOGAND PLUS FTIMES FQUOTIENT) \VANILLADISKINIT +(COPYARRAY SUB1 PLUS ADD1 \DEFINEDEVICE FUNCTION) TTPRIN1COMMENT (DSPFONT) \LEAF.GETFILEINFO.OPEN ( +SELECTQ GDATE \LEAF.GETFILEINFO.OPEN ALTO.TO.LISP.DATE \LEAF.GETFILEDATES \LEAF.READFILEPROP SELECTC +\GETBASE GetBcplString) \DELETEBLOCK? (FREEBLOCKCHAIN.N \ADDBASE BUCKETINDEX IMIN INTEGERLENGTH +\GETBASEPTR) BSPGETMARK (\BSP.PREPARE.INPUT \GETBASEBYTE BSP.INPUT.ERROR APPLY*) \BSP.HANDLE.ACK (LRSH + IPLUS ITIMES IMAX IMIN LLSH CLOCKDIFFERENCE \SEARCH.OUTPUTQ IDIFFERENCE PLUS FFETCHFIELD) +RECREDECLARE2 (SELECTQ GETP FMEMB RECREDECLARE2) PPBUFS (PRIN1) \DSPPUSHSTATE.PSC (FREPLACEFIELD CONS +COPY FFETCHFIELD) CLISPIFYCROPS1 (CONS ADD1 IPLUS PACK MAPCONC LIST APPEND DREVERSE) \PREFIXALIGNMENT? + (\ADDBASE IREMAINDER PLUS IDIFFERENCE FLOOR LOGAND CONSTANT LOGXOR SUB1 IPLUS IMOD) GET.OBJ.FROM.USER + (ERSETQ PROMPTFOREVALED) CHAT.CLEAR.FROM.MENU (TERM.HOME) COURIER.READ.NSNAME (COURIER.READ.STRING) +SPY.MERGETREE (FMEMB PLUS FFETCHFIELD LIST CONS SELECTQ SHOULDNT) INTEGERLENGTH (SELECTC NTYPX +IDIFFERENCE ILESSP CONSTANT LLSH SHOULDNT ADD1 INTEGERLENGTH IPLUS \BIGNUM.INTEGERLENGTH +CL::%%NOT-INTEGER-ERROR) BSPOUTPUTSTREAM (\DTEST) \VANILLAHOSTNAMEP (SELECTQ MACHINETYPE \LFOpenDevice + \GETDEVICEFROMNAME FUNCTION \UFSOpenDevice \DSKOpenDevice \M44HOSTNAMEP) +\UPDATE-SYNONYM-STREAM-LINELENGTH-FIELD (CL:MAPC CL:FUNCTION) COPYHASHFILE (GTHASHFILE HASHFILEPROP +CREATEHASHFILE CLOSEHASHFILE FUNCTION) SEDIT::INPUT-QUOTE (SELECTQ SEDIT::TYPE-OF-INPUT SEDIT::CLOSE-NODE + CHCON1 NCHARS FREPLACEFIELD CONS FFETCHFIELD SEDIT::COLLECT-UNDO-BLOCK) \DSKOpenDevice (WITH.MONITOR +CL:MULTIPLE-VALUE-PROG1 .UNWIND.PROTECT. FUNCTION \DSKCreateDevice) XCL::SETF-PROFILE-ENTRY-VALUE ( +XCL::PROFILIZE XCL::VARIABLE-DEFINITION-TYPE XCL::FIND-VARIABLE-DEFINITION CL:GETF) \MEDW.SHAPEW ( +\INSUREWINDOW WINDOWPROP MINIMUMWINDOWSIZE CREATEREGION IMAX GETREGION WINDOWREGION APPLY* MOVEW +COPYALL) \NEW2PAGE (\NEWPAGE \ADDBASE) \DSPTRANSLATE.PSC (DIFFERENCE LIST) SPY.SUM (PLUS SPY.SUM) +\SFFIXLINELENGTH (IMIN IMAX IQUOTIENT IDIFFERENCE) \CHECKFORSTORAGEFULL (UNINTERRUPTABLY IPLUS +IDIFFERENCE SELECTC \SET.STORAGE.STATE LIST \ADVANCE.ARRAY.SEGMENTS SHOULDNT) \LFOpenDevice ( +WITH.MONITOR CL:MULTIPLE-VALUE-PROG1 .UNWIND.PROTECT. FUNCTION SELECTQ MACHINETYPE \PFGetVols +\GETDEVICEFROMNAME \DEFINEDEVICE) SCALE.FONT (TIMES STRINGWIDTH) FASL::DUMP-RATIONAL (DECLARE +FASL::WRITE-OP FASL:DUMP-VALUE CL:NUMERATOR CL:DENOMINATOR) \TEDIT.INSERT.TTY.BUFFER (HELP) +CLISPDSUBST (SELECTQ FRPLACA CLISPDSUBST GETHASH GETP) \UFSOpenDevice (WITH.MONITOR +CL:MULTIPLE-VALUE-PROG1 .UNWIND.PROTECT. FUNCTION \UFSCreateDevice) BSPFORCEOUTPUT (WITH.MONITOR +CL:MULTIPLE-VALUE-PROG1 .UNWIND.PROTECT. FUNCTION \DTEST) EXPRCHECK (EXPRP VIRGINFN MISSPELLED? +FUNCTION CONS) SET-TTY-PROFILE-INTERACTIVELY (PROCESS.EVAL TTY.PROCESS) DWIMARKASCHANGED (LISTGET1 +MARKASCHANGED) \VANILLAEVENTFN (SELECTQ \REMOVEDEVICE.NAMES) XCL::PROFILE-ENTRY-VALUE-NAME (CL:FUNCALL + XCL::VARIABLE-DEFINITION-NAME-FUNCTION XCL::FIND-VARIABLE-DEFINITION CL:GETF XCL::PROFILIZE CL:EVAL) +*RANDOM-STATE* (CL::%%MAKE-RANDOM-STATE) \DISPLAY.PILOTBITBLT (\PILOTBITBLT) \SFFixFont ( +\SFFIXLINELENGTH) CHAT.SWITCH.EMACS (CHAT.SCREENPARAMS) BLOCK (THIS.PROCESS UNINTERRUPTABLY +\RESCHEDULE \MYALINK OPCODES \PROCESS.GO.TO.SLEEP \DTEST IMIN SPREADAPPLY*) \SETBRUSH.IP (SELECTQ) +BKLINBUF (\DTEST NTHCHARCODE \SYNCODE GETHASH \GETBASEBYTE PLUS) \ARRAYBLOCKMERGER (IDIFFERENCE IPLUS +PLUS \MAKEFREEARRAYBLOCK \ADDBASE2 \ADDBASE \LINKBLOCK) SEDIT::OUTPUT-CR (IDIFFERENCE IMAX RPLACD CONS + SEDIT::STEP-LINEAR FREPLACEFIELD FCHARACTER LIST FIXR QUOTIENT) CLISPFOR4 (SELECTQ SOME CLISPFOR4) +\PRIMARYTEXTURE (BITMAPCOPY SELECTQ \ILLEGAL.ARG \LEVELTEXTURE) DWIMUNSAVEDEF (LIST FLAST LISTGET1 +UNSAVEDEF) \CLOSELINE (UNINTERRUPTABLY) COMPILER::GENCODE-VAR-REF (COMPILER::VAR-REF-VARIABLE) +\INCPARENCOUNT (SELECTC PLUS) CLISPIFYCROPS0 (CLISPIFYCROPS) COMP.SPREADFN (CONS LIST COMP.SPREADFN) +\GR.GETDEFFN (ASSOC) \FTP.EOL.FROM.PLIST (SELECTQ) INVERT.SEGMENT (BEFOREBUF BUFTAILP + +SEGMENT.BIT.LENGTH ITIMES -) \RESETLINE (\SETEOFPTR) \CARET.FLASH? (KEYDOWNP TTYDISPLAYSTREAM +WINDOWPROP TEXTOBJ) \COPYARRAYBLOCK (\ADDBASE IMINUS - \ALLOCBLOCK \RPLPTR COPYALL \GETBASEPTR UNFOLD +LLSH) CLEARBUF (SELECTQ \GETSTREAM \SAVELINEBUF \SAVESYSBUF) \LEAF.SETVALIDATION (\MAKENUMBER) +\COPYCODEBLOCK (UNINTERRUPTABLY FUNCTION OPCODES) CHAT.TAKE.INPUT (PROCESS.APPLY WINDOWPROP FUNCTION +LIST) ASSURE.ETHER.ON (THIS.PROCESS \ETHEREVENTFN \NSINIT) COMP.GETBASEBITS (COMP.VAL LIST PLUS +COMP.STFN CONS) \BSPINIT (FUNCTION \DEFINEDEVICE) COPYALL (LIST COPYALL CONS TYPENAME SELECTQ CONCAT +FPLUS IPLUS HASHARRAY HARRAYSIZE HARRAYPROP COPYREADTABLE COPYTERMTABLE ARRAYSIZE ARRAYTYP ARRAYORIG +ARRAY SETA ELT PLUS BITMAPCOPY CURSORCREATE \COPYARRAYBLOCK \COPYDATATYPE) *TRACE-OUTPUT* ( +XCL:CREATE-TRACE-WINDOW) LINBUF (CONCAT) \MEDW.EXPANDW (WINDOWPROP APPLY*) WXOFFSET (DISPLAYSTREAMP +\OUTSTREAMARG \GETSTREAM \ILLEGAL.ARG DSPCLIPPINGREGION IPLUS DSPXOFFSET FRPLACA PLUS IMINUS) +\TFBRAVO.PUT.NAMEDTAB (PRINT IMAGEOBJPROP) \SAVELINEBUF (- \GETEOFPTR \GETFILEPTR SPREADAPPLY* +ALLOCSTRING FOLDHI LRSH IPLUS CHCON1) SET-PROFILE-INTERACTIVELY (MENU SORT XCL:LIST-ALL-PROFILES +XCL:PROFILE-NAME LIST XCL:RESTORE-PROFILE) \ADVANCE.ARRAY.SEGMENTS (\PUTBASEPTR LOCF \ATOMCELL IPLUS +UNFOLD LLSH SUB1 IDIFFERENCE \MAKEFREEARRAYBLOCK SETQ.NOREF \PUTBASEFIXP) TTY.PROCESS (WFROMDS +PROCESS.TTY FIND.PROCESS \CARET.DOWN \GETSYSBUF LIST NCONC PROCESSPROP APPEND NOTIFY.EVENT) +COMPILER::GENCODE-UNWIND-PROTECT (COMPILER::GENCODE COMPILER::UNWIND-PROTECT-CLEANUP COMPILER::COLLECT-CODE + COMPILER::UNWIND-PROTECT-STMT) \BYTELT (\DTEST IGREATERP \GETBASEBYTE IPLUS) COPYHASHITEM ( +GETHASHFILE APPLY* PUTHASHTEXT) SETDISPLAYHEIGHT (EMPOINTER \VAG2 IPLUS \GETBASE ITIMES LOGAND +CONSTANT SUB1 EXPT LOGOR LRSH) \BYTESETA (\DTEST IGREATERP \PUTBASEBYTE IPLUS) \3MBFLUSH (PLUS) +\BSP.HANDLE.INTERRUPT (IDIFFERENCE PLUS FFETCHFIELD RELEASE.PUP APPLY* \FILLBSPPUP SUB1) INVERTW ( +DSPCLIPPINGREGION) CROPMARK.PUTFN (PRINT IMAGEOBJPROP) WYOFFSET (DISPLAYSTREAMP \OUTSTREAMARG +\GETSTREAM \ILLEGAL.ARG DSPCLIPPINGREGION IPLUS DSPYOFFSET FRPLACA PLUS IMINUS) \WORDELT (\DTEST +IGREATERP \GETBASE IPLUS) \TEDIT.PROCEXITFN (PROCESSPROP \TEDIT.INTERRUPT.SETUP) COMP.STFIX ( +COMP.STCONST APPLY* OPT.CALLP COMP.STFN) \LEAF.STRIP.QUOTES (CONCATCODES CHCON LIST) TTNTHLINE (SUB1) +\MEDW.SHRINKW (\INSUREWINDOW DOUSERFNS WINDOWPROP CREATEWFROMIMAGE BITMAPCOPY \DTEST APPLY* POSITIONP +FUNCTION ICONPOSITION.FROM.WINDOW) \ARRAYTYPENAME (SELECTC) SPY.LEGEND (SHOWGRAPH LAYOUTGRAPH MAPCAR +REVERSE) SPY.MAKEGRAPHNODES (ASSOC SHOULDNT CONS SPYOBJ QUOTIENT TIMES SPY.MAX LIST SPY.MAKEGRAPHNODES +) COMPILER::GENCODE-THROW (COMPILER::GENCODE COMPILER::THROW-TAG) CLISPIFYNOT (CLISPIFY2B GETPROP +CLISP3 LIST) CCODEP (TYPEP CL:COMPILED-FUNCTION-P) PAGEFULLFN (READP RESETLST RESETSAVE +SETDISPLAYHEIGHT PROCESSPROP THIS.PROCESS TTY.PROCESS INVERTW LIST FUNCTION BIN NCHARS \OUTCHAR BLOCK) + XCL::RECORD-CONSTRUCTOR-MACRO (DECLARE) FASL::WRITE-INTEGER-BYTES (FASL::HANDLE-STREAM) +SEDIT::MAKE-COMMENT-STRING (CL:MAKE-STRING) COMP.FMEMB (COMP.VALN COMP.SELECTQ LIST COMP.STFN) +\3MBWATCHER (\3MBGETPACKET PLUS) \SETRTPPORTS (\BLT LOCF \ADDBASE ITIMES) \BLOCKDATAP (NTYPX \GETDTD +\ADDBASE ITIMES) CROPMARK.GETFN (READ VRULE.CREATE) SETLINELENGTH (LINELENGTH) +\BSP.HANDLE.INTERRUPTREPLY (\SEARCH.OUTPUTQ PLUS FFETCHFIELD RELEASE.PUP) DISPLAYSTREAMP (FMEMB) +TEDIT.SETFUNCTION (\PUTBASEBYTE \SETFATSYNCODE APPLY* HARRAY PUTHASH LIST) \CARET.SHOW (WINDOWOP +SPREADAPPLY*) \TEDIT.PROCENTRYFN (\TEDIT.INTERRUPT.SETUP) COMP.FIX (COMP.STFIX) TERMCHARWIDTH ( +\STREAMCHARWIDTH LOGAND \OUTSTREAMARG \GETSTREAM GETTERMTABLE) CURRENT-PROFILE (XCL:PROFILE-NAME +PROCESS.EVALV TTY.PROCESS) CLISPFOR3 (MAPCONC DREVERSE LIST) SYSBUF (CONCAT) CROPMARK.IMAGEBOXFN ( +DSPSCALE SELECTQ IMAGESTREAMTYPE) PLAYTUNE (SELECTC LIST CL:MULTIPLE-VALUE-PROG1 .UNWIND.PROTECT. +FUNCTION MAPC SETUPTIMER IQUOTIENT ITIMES) \SHOW.ARRAY.FREELISTS (RESETFORM RECLAIMMIN LENGTH FOLDLO +LRSH \#BLOCKDATACELLS \ALLOCBLOCK UNFOLD LLSH IPLUS \GETBASEPTR \ADDBASE2 \ADDBASE PLUS FFETCHFIELD +TIMES TERPRI PRIN1 FOLDHI) TERMINAL-INPUT (GETSTREAM ARG) NSNAME.TO.STRING (\DTEST CONCAT) SHRIEKIFY ( +GETPROP CLISPIFYLOOKUP LIST NCONC1) EDITDATE (LIST CONCAT DATE /RPLACD CONS) CLISPFORVARS1 (TAILP +DWIMIFY2) \STREAMCHARWIDTH (LOGAND SELECTC \SYNCODE GETHASH \GETBASEBYTE TERMTABLEP IPLUS LOADBYTE LSH + IMINUS MASK.1'S SUB1 \FGETWIDTH \GETBASE PLUS CONSTANT LLSH SELCHARQ DSPXPOSITION UNFOLD IDIFFERENCE +IMOD DSPLEFTMARGIN DSPRIGHTMARGIN SHOULDNT) XCL::SHOW-CLOSURE-CACHE (XCL::IMPLICIT-KEY-MAP-HASH +CL:FUNCTION) SEDIT::HELPMENU (SEDIT:GET-PROMPT-WINDOW GETPROMPTWINDOW) TERMINAL-OUTPUT (GETSTREAM ARG) + XCL::PROFILE-ENTRY-VALUE (CL:GETF XCL::PROFILIZE CL:EVAL) \PARSEARRAYSPACE (\PARSEARRAYSPACE1) +\GR.WITHRESOURCEMAC (MKLIST \DECL.COMNT.PROCESS) \BSP.HANDLE.ERROR (LIST PLUS FFETCHFIELD BSP.OTHERFN +RELEASE.PUP APPLY*) \FTP.GETFILEINFO.FROM.PROPS (SELECTQ ASSOC IDATE MKATOM FOLDHI LRSH IPLUS U-CASE) +\TEDIT.GET.TERMSA.WIDTHS (ARRAY \PUTBASE IPLUS TEDIT.CHARWIDTH PLUS) \PARSEARRAYSPACE1 (\ADDBASE2 +\ADDBASE) \TEDIT.COPYINSERTFN (TEXTSTREAM WINDOWPROP TEXTOBJ) COMP.NUMBERCALL (COMP.PROGN FASSOC ADD1 +SUB1 COMP.STFN CONS COMP.FLOATBOX APPLY* COMP.STFIX SELECTQ) \TEDIT.UNPARSE.PARALOOKS.LIST (LIST CONS +ONOFF) EDITDEF.FILES (EDITDEF FILECOMS) SEDIT::VERIFY-COMMENT (CL:THIRD CL:LENGTH) COMP.GETD ( +COMP.STFN SELECTQ) \CHDEL1 (\PEEKCCODE GETFILEPTR) \FILLRTPPUP (ALLOCATE.PUP) POSTINITARRAYS ( +\ALLOCBLOCK ADD1 IDIFFERENCE UNFOLD LLSH IPLUS FOLDLO LRSH TERPRI IMINUS \ALLOCBLOCK.NEW \PUTBASEPTR +LOCF \ATOMCELL PAGELOC \HILOC \LOLOC PLUS) \ECHOCHAR (IDIFFERENCE) \MEDW.RELMOVEW (WINDOWPROP IPLUS) +COURIERPROGRAM.PRETTYPRINT (+ DSPXPOSITION TIMES) \TFBRAVO.COPY.NAMEDTAB (COPY) CROPMARK.COPYFN ( +CROPMARK.CREATE IMAGEOBJPROP) \DECPARENCOUNT (SELECTC PLUS) ICONW.TITLE (WINDOWPROP ERROR) SPY.MERGE ( +HASHARRAY SPY.DELETE SPY.SUM SPY.MERGETREE SPY.MERGE1 NCONC1) DINFO.TITLEMENUFN (WINDOWPROP RESETFORM +TTYDISPLAYSTREAM GETPROMPTWINDOW APPLY* DINFO.DEFAULT.MENU PROMPTPRINT) \INTERPRETER1 (\MYALINK +OPCODES ADDSTACKBASE \VAG2 CEIL LOGAND IPLUS + - UNFOLD LLSH CONSTANT SUB1 LOGXOR \ATOMVALINDEX NTYPX +\LOLOC SHOULDNT FOLDLO LRSH PLUS WORDSPERNAMEENTRY WORDSPERNTOFFSETENTRY \EVAL) CARETRATE (CONS FIXP +FIX) FASL::DUMP-ARRAY (CL:ERROR FASL::DUMP-GENERAL-ARRAY FASL::DUMP-BIT-ARRAY FASL::DUMP-SIMPLE-VECTOR +) \BSP.TIMERFN (LIST CLOSERTPSOCKET \RTP.ACTION \SEARCH.OUTPUTQ PLUS FFETCHFIELD \FILLBSPPUP +\SETBSPTIMEOUT) \SMASHLINK (\MYALINK OPCODES UNINTERRUPTABLY) COMP.NUMERIC (COMP.PROGN FASSOC ADD1 +SUB1 COMP.STFN CONS COMP.FLOATBOX IPLUS APPLY* FUNCTION COMP.STPOP COMP.STCONST IMINUS PLUS) \GETCHAR +(BIN \RAISECHAR IDIFFERENCE) \NSNAME.DEFPRINT (LIST NSNAME.TO.STRING) CLISPANGLEBRACKETS (CLISPLOOKUP +SHRIEKER) \STACKARGPTR (LISPERROR \MYALINK OPCODES FIX SUB1 IMINUS \STKNAME) \FILLBUFFER (IABS IMINUS +\RAISECHAR IDIFFERENCE \CHARSET LRSH \BOUT \CHAR8CODE LOGAND \GETCHAR BIN \SYNCODE GETHASH +\GETBASEBYTE \GETFILEPTR SPREADAPPLY* \INCHAR \CHDEL1 LIST \PAGEDEOFP) TWODINSPECT.DOWINDOWCOMFN (MENU + GETREGION FUNCTION CONS MAINWINDOW) \STARTDISPLAY (REVERSE OPENWINDOWS \CLOSEW1 \CreateScreenBitMap +\OPENW1) SEDIT::EDIT-HELP (SEDIT::CLOSE-NODE SEDIT::SELECTED-FN-NAME SEDIT:GET-PROMPT-WINDOW +GETPROMPTWINDOW NLSETQ SMARTARGLIST STRINGWIDTH CONS WINDOWPROP PRIN1) \FILLBUFFER.WORDSEPRP (\SYNCODE + GETHASH \GETBASEBYTE) \MEDW.MOVEW (\INSUREWINDOW OPENWP \ONSCREENCLIPPINGREGION \ILLEGAL.ARG +WINDOWPROP APPLY* GETBOXPOSITION IPLUS IDIFFERENCE DSPDESTINATION \GETBASE \TOTOPWDS ADVISEWDS +CREATEREGION) \INTERPRETER-LAMBDA (ADDSTACKBASE \VAG2 \MYALINK OPCODES) \DSPTRANSFORMREGION ( +\DSPTRANSFORMX IPLUS \DSPTRANSFORMY) \FILLBUFFER.BACKUP (DSPBACKUP CHARWIDTH) COMPILER::GENCODE-TAGBODY-INLINE + (COMPILER::TAGBODY-FRAME COMPILER::TAGBODY-STK-NUM COMPILER::MAKE-LAP-VAR COMPILER::TAGBODY-BLIP-VAR +COMPILER::TAGBODY-SEGMENTS COMPILER::SEGMENT-LOCAL-TAG COMPILER::GENCODE-SEGMENT) TEDIT.GETFUNCTION ( +APPLY* \SYNCODE GETHASH \GETBASEBYTE) CHARWIDTH (\CHARCODEP IGEQ \FGETCHARWIDTH \GETBASE +\GETCHARSETINFO \GETBASEPTR UNFOLD LLSH \CHARSET LRSH \CREATECHARSET \CHAR8CODE LOGAND \OUTSTREAMARG +\GETSTREAM IMAGEOP SPREADAPPLY* \FGETWIDTH FONTCREATE) FAULTAPPLY (SPREADAPPLY .SPREAD. +UNINTERRUPTABLY GETD CLOSURE-ENVIRONMENT CLOSURE-FUNCTION FMEMB GETHASH ASSOC CL:FUNCALL APPLY +NEWFAULT1 OLDFAULT1) \TEDIT.READTABLE (HASHARRAY LIST \PUTBASEBYTE \SETFATSYNCODE FUNCTION) +COMP.COMPARENUM (COMP.PROGN CONSTANTEXPRESSIONP COMP.COMPARENUM LIST KWOTE COMP.STFN FRPLACA) +DSPBACKUP (GETSTREAM \GETDISPLAYDATA \DTEST \OUTSTREAMARG \GETSTREAM IMIN IDIFFERENCE \CARET.DOWN +FONTDESCENT FONTHEIGHT FONTASCENT FREPLACEFIELD PLUS FFETCHFIELD IMINUS FRPTQ BOUT) +TEDIT.GET.PARALOOKS (TEXTOBJ \TEDIT.UNPARSE.PARALOOKS.LIST \CHTOPC) CL:LEAST-POSITIVE-SINGLE-FLOAT ( +CL::%%FLOAT) UPDATESCREENDIMENSIONS (SELECTC LIST \DoveDisplay.ScreenWidth \DoveDisplay.ScreenHeight +SHOULDNT) XCL::RECORD-PREDICATE-MACRO (DECLARE) \CreateScreenBitMap (FOLDHI LRSH IPLUS SUB1 ITIMES +ADD1 \ADDBASE UNFOLD LLSH PLUS) \OFFSETCLIPPINGREGION (\DSPTRANSFORMX IPLUS \DSPTRANSFORMY) VIDEOCOLOR + (LOGOR LOGAND LOGXOR) COMPILER::GENCODE-TAGBODY (COMPILER::GENCODE-TAGBODY-INLINE) +\SETUP-COMPILED-CLOSURE-CALL (IDIFFERENCE FOLDLO LRSH \FREESTACKBLOCK IPLUS UNFOLD LLSH PLUS +ADDSTACKBASE \VAG2 FFETCHFIELD DIFFERENCE \PUTBASEPTR STACKADDBASE LOGOR ADD1) SI::CLEAR-CLOSURE-CACHE + (UNINTERRUPTABLY CL:FUNCTION XCL::CLEAR-IMPLICIT-KEY-HASH) \STOPSCROLL? (ADD1 WFROMDS +TTYDISPLAYSTREAM WINDOWPROP APPLY* PAGEFULLFN) \FILLINSPP (\ALLOCATE.ETHERPACKET LOCF \ADDBASE) +\CoerceToDisplayDevice (\GETDEVICEFROMNAME ERROR) CL:MOST-NEGATIVE-SINGLE-FLOAT (CL::%%FLOAT) +RECREDECLARE1 (/PUTHASH) SPY.MERGEINFO (FASSOC) CL:LEAST-NEGATIVE-SINGLE-FLOAT (CL::%%FLOAT) CLISPAND1 + (SELECTQ CLISPAND1 FLAST EVERY) MAKEKEYLST (NCONC MAPCAR LIST CONCAT U-CASE L-CASE KWOTE LISTGET PLUS +) \3MBSENDPACKET (\DTEST UNFOLD LLSH - RAND \GETPACKETBUFFER ADD1 \BOXIPLUS LOCF \ADDBASE SELECTC) +\PROMPTWINDOW.OPENFN (WINDOWPROP OPENWINDOWS REATTACHPROMPTWINDOW) \PARSE.REMOTE.FILENAME ( +UNPACKFILENAME.STRING STRPOS \LEAF.STRIP.QUOTES \CANONICAL.HOSTNAME ERROR LISPERROR CONS CONCATLIST +NCONC LIST SELECTQ NCHARS) FASL::DUMP-GENERAL-ARRAY (CL:ARRAY-TOTAL-SIZE CL:ARRAY-ELEMENT-TYPE +CL:MAKE-ARRAY) CLISPFOR2 (DREVERSE SELECTQ RPLACA NEGATE) \CURSOR.DEFPRINT (PRIN1) \INITBCPLDISPLAY ( +FUNCTION STREAMP) XCL::MAKE-VARIABLE-DEFINITION (CL:NREVERSE) SPY.MAX (SPY.MAX IMAX) +*WHO-LINE-ACTIVE-TIMER* (SETUPTIMER) \DSCCOUT (SELECTC \SYNCODE GETHASH \GETBASEBYTE PLUS FFETCHFIELD +IPLUS LOGAND LOGOR SELCHARQ \STOPSCROLL? FREPLACEFIELD FRPTQ IDIFFERENCE MOD IMOD DSPBOUT SHOULDNT) +\POSTSCRIPT.NSHASH (CHARCODE.DECODE) ARGLIST (\CCODEARGLIST GETPROP SELECTQ ARGLIST FNCHECK) +FW-UPDATE-OFD-WINDOWS (MAPC SELECTQ FW-UPDATE-OFD-WINDOW SHOULDNT CONS) \PROMPTWINDOW.SET.HEIGHT ( +IDIFFERENCE WINDOWPROP MAINWINDOW CONS) \CREATEDISPLAY (FUNCTION) WFROMDS (TEXTOBJ \GETDISPLAYDATA +\DTEST \OUTSTREAMARG \GETSTREAM TTYDISPLAYSTREAM WFROMDS OPENWINDOWS CREATEW) FASL::DUMP-BIT-ARRAY ( +CL:ARRAY-TOTAL-SIZE) CLISPFOR0A (CONS NCONC COPY EVAL) CL:1- (-) COMP.SHIFT (FIXP LIST COMP.STCONST +APPLY* SELECTQ IMINUS IDIFFERENCE SUB1 COMP.STFN) \FTP.UNPACKFILENAME (UNPACKFILENAME.STRING SELECTQ +CONS LIST \CANONICAL.HOSTNAME NCHARS CONCAT GETHOSTINFO NTHCHARCODE SUBSTRING L-CASE \FTP.ADD.USERINFO +) \FREESTACKBLOCK (IPLUS PLUS \EXTENDSTACK IMOD \SETUPGUARDBLOCK IDIFFERENCE) CL:SINGLE-FLOAT-EPSILON +(CL::%%FLOAT CL:ASH) XCL::IN-PROFILE (XCL::PROFILIZE XCL:RESTORE-PROFILE) \MEDW.CLOSEW (.WHILE.TOP.DS. + DSPDESTINATION \GETBASE \TOTOPWDS) \STKNAME (\GETBASEPTR + TIMES CL:1-) GETWINDOWUSERPROP (LISTGET +\INSUREWINDOW) CL:SINGLE-FLOAT-NEGATIVE-EPSILON (CL::%%FLOAT) \SETUP-ENVIRONMENT-CALL (STACKADDBASE +\VAG2 - UNFOLD LLSH \GETBASEPTR + PLUS \FREESTACKBLOCK LOGOR ADD1 SUB1) \ICONW.FORMAT.TITLE ( +\ICONW.FORMAT.TITLE1 LENGTH PLUS IDIFFERENCE IQUOTIENT) CL:ASH (LSH) XCL::RECORD-ACCESS-MACRO (DECLARE +) DISPLAYSTREAMINIT (DSPCREATE DSPFONT FONTHEIGHT ITIMES IDIFFERENCE IQUOTIENT FONTDESCENT) +CL:MOST-POSITIVE-SINGLE-FLOAT (CL::%%FLOAT) DELETE.LONG.SEGMENT (DELETE.LONG.SEGMENT1) COMPILER::GENCODE-SETQ + (COMPILER::GENCODE COMPILER::SETQ-VALUE) COLLECTKEYS (FUNCTION) SEDIT::GET-MENU (FREEMENU) +\LEAF.READFILENAME (\LEAF.READFILEPROP GetBcplString CL:APPLY MKATOM U-CASE) DINFO.GET.FILENAME ( +PACKFILENAME FILENAMEFIELD) FTPPRINTMARK (FASSOC PRIN1 MARK#) \EVALOTHER (SPREADAPPLY* FASSOC TYPENAME +) CL:PI (CL::%%FLOAT) BSP.PUTINTERRUPT (\DTEST WITH.MONITOR CL:MULTIPLE-VALUE-PROG1 .UNWIND.PROTECT. +FUNCTION SETUPTIMER ALLOCATE.PUP IPLUS) CHAT.EMACS.MOVE (CURSORPOSITION IDIFFERENCE IQUOTIENT MKSTRING + IMINUS) DRIBBLE (DRIBBLEFILE OPENSTREAM) FW-PERCENTAGE (IQUOTIENT ITIMES) CLISPCOND1 (CLISPIFY1 FLAST + APPEND) \EVALVAR (\STKSCAN \GETBASEPTR FAULTEVAL) \3MBENCAPSULATE (IPLUS FOLDHI LRSH) +\SETUP.DEFAULT.LINEBUF (\NODIRCOREFDEV FUNCTION \OPENFILE) \MEDW.OPENW (UNINTERRUPTABLY UNFOLD LLSH +.WHILE.TOP.DS. DSPDESTINATION \GETBASE \TOTOPWDS) CHANGEBACKGROUND (OPENWINDOWS \CLOSEW1 DREVERSE +\OPENW1) CL:ATANH (ABS CL:IMAGPART CL:REALPART CL:ERROR CL:* CL:LOG / + - FLOAT FQUOTIENT) +PUTPROPS.PRETTYPRINT (DSPXPOSITION PRINTDEF MEMB) MAYBE.PRETTYPRINT.BOLD (CHANGEFONT PRIN2) +SEDIT::CREATE-COMMENT-WORD-NODES (NCHARS NTHCHARCODE SEDIT::CREATE-COMMENT-WORD-NODE SUBSTRING ADD1 +SUB1 CONS) \3MBGETPACKET (\READRAWPBI \ALLOCATE.ETHERPACKET ADD1 LOCF \ADDBASE) \OPENW1 (WINDOWOP +SPREADAPPLY* \INSUREWINDOW) \ICONW.SHOW.TITLE (BITMAPCOPY WINDOWPROP DSPCREATE) +SI::DISABLE-CLOSURE-CACHE (UNINTERRUPTABLY) \LINEBUF.PEEKBIN (\BUFFERED.PEEKBIN CL:FUNCALL) +COMPILER::TRANSFORM-GET/PUT-BASE (COMPILER::CALL-ARGS CL:FIRST CL:SECOND COMPILER::LITERAL-VALUE +COMPILER::MAKE-CALL COMPILER::MAKE-OPCODES LIST COMPILER::CALL-FN CL:THIRD COMPILER::NODE-META-P) +\PROMPTWINDOW.PAGEFULLFN (WINDOWPROP MAINWINDOW \PROMPTWINDOW.EXPAND ADD1) \MOVE.WINDOWS.ONTO.SCREEN ( +FQUOTIENT MAINWINDOW IMAX IDIFFERENCE FIXR FTIMES) CROPMARK.DISPLAYFN (IMAGEOBJPROP DSPSCALE IMAX FIXR + FTIMES SELECTQ IMAGESTREAMTYPE BITBLT DSPXPOSITION DSPYPOSITION + DRAWLINE) CLISPFOR1 (GETPROP +CLISPFUNCTION? CONS LIST NLEFT APPEND NCONC LISTP /NCONC /ATTACH CLISPFOR1) CL:ATAN (CL::%%ATAN-FLOAT +FLOAT CL::COMPLEX-REALPART CL::COMPLEX-IMAGPART ABS COMPLEX - CL:* CL:LOG / + CL:ERROR) +\FTP.OPENFILE.FROM.PLIST (\GETFTPCONNECTION SELECTQ MARK# FTPPUTMARK FTPGETMARK READPLIST +\FTP.PACKFILENAME ASSOC \FTPERROR LISPERROR \FTP.EOL.FROM.PLIST) FAULTEVAL (GETMACROPROP +MACROEXPANSION LIST \EVAL GET CL:FUNCALL GETD \EVALFORMASLAMBDA NEWFAULT1 OLDFAULT1) FILEARRAYBASE ( +\ADDBASE LOCAL IPLUS UNFOLD LLSH FOLDLO LRSH IDIFFERENCE GETFILEPTR OUTPUT) \ADDLEAFSTRING (CEIL +LOGAND IPLUS CONSTANT SUB1 LOGXOR STRINGP MKSTRING \ADDBASE FOLDLO LRSH \DECRYPT.PWD.CHAR \GETBASEBYTE + PLUS) DINFO.OPENTEXTSTREAM (RESETFORM TTYDISPLAYSTREAM GETPROMPTWINDOW WINDOWPROP LIST DINFOGRAPH +PRIN1 OPENTEXTSTREAM) FTPDEBUG (CREATEW FUNCTION WINDOWPROP FONTCREATE) CL:ASINH (CL:LOG + CL:SQRT CL:* + FLOAT) \FILLBSPPUP (ALLOCATE.PUP) \FTP.ASSURE.CLEANUP (FIND.PROCESS ADD.PROCESS) \LINEBUF.READP ( +READP \PAGEDREADP) COMP.RPLACD (SELECTQ COMP.DELPUSH COMP.STPOP COMP.STFN) CLISPAND (CLISPCOND CONS +LDIFF SOME CLISPAND1 FLAST) XCL::ADD-PROTOTYPE-FN (CL:ASSOC CL:FUNCTION CL:ACONS LIST CONS) CL:BOOLE ( +LOGNOT LOGAND CL:LOGIOR LOGXOR CL:LOGEQV CL:LOGNAND CL:LOGNOR CL:LOGANDC1 CL:LOGANDC2 CL:LOGORC1 +CL:LOGORC2 CL:ERROR) \EVALFORMASLAMBDA (.EVALFORM.) \CLOSEW1 (WINDOWOP SPREADAPPLY* \INSUREWINDOW) +SEDIT::UNDO-COMMENT-CHANGE (FREPLACEFIELD CONS LIST FFETCHFIELD SEDIT::PARSE-STRING-INTO-WORDS +SEDIT::CREATE-SIMPLE-NODE PLUS FLENGTH SEDIT::NOTE-CHANGE) SI::INSTALL-CLOSURE-CACHE (UNINTERRUPTABLY) + \LINEBUF.EOFP (\EOFP FDEVOP SPREADAPPLY*) APPLY (.APPLY. FAULTAPPLY SPREADAPPLY .SPREAD. SPREADAPPLY* +) XCL::MAKE-PROTOTYPE (CL:ASSOC CL:FUNCTION CL:FUNCALL) TTNEXTPOS (TTNEXTCHAR) \CREATELINEBUFFER ( +\OPENFILE FUNCTION NCREATE) INVERT.BITMAP.VERTICALLY (BITMAPCOPY SUB1 IQUOTIENT IDIFFERENCE BITMAPBIT +PLUS) CL:CLEAR-INPUT (CLEARBUF \GETSTREAM) APPLY* (ARG SELECTQ SPREADAPPLY* SPREADAPPLY .SPREAD. LIST +PLUS FAULTAPPLY) /CNDIR (LIST DIRECTORYNAME CNDIR) SEDIT::EXTRACT-CURRENT-SELECTION (SEDIT::CLOSE-NODE + SEDIT:GET-PROMPT-WINDOW GETPROMPTWINDOW PRIN1 CL:THIRD CL:MAPCAR CL:FUNCTION CL:NREVERSE +FREPLACEFIELD CONS FFETCHFIELD LIST COPY SEDIT::COLLECT-UNDO-BLOCK) TRIM.BITMAP (SUB1 PLUS +BITMAPCREATE ADD1 IDIFFERENCE) LINEBUFFER-SKIPSEPRS (\GETSTREAM \GTREADTABLE PEEKCCODE CHARACTER +SKIPSEPRS) DINFO.SHOWSEL (TEDIT.NORMALIZECARET TEDIT.SETSEL TEDIT.FIND NCHARS) TTGIVEHELP1 (INPART +TERPRI) \CKAPPLYARGS (\MYALINK OPCODES STACKGETBASEPTR \GETBASEPTR STACKADDBASE \VAG2 IDIFFERENCE CONS +) XCL::%%MAKE-FUNCTION-PROTOTYPE (LIST) CHAT.MENU (WINDOWPROP LOGAND CHAT.RECONNECT TOTOPW \CARET.DOWN + MENU APPEND MAPCAR STREAMPROP) LINEBUFFER-EOFP (\GETSTREAM \PAGEDEOFP \EOFP SPREADAPPLY*) EQFMTSPEC ( +EQUALALL) CLISP4 (GETPROP STRPOSL NTHCHAR ADD1 DWIMIFY0? STKPOS APPLY STKARGS STKEVAL) DEFEVAL (FASSOC + DREMOVE CONS) RECORDTRAN (GETLOCALDEC RECORDWORD ASSOC CONS SELECTQ ACCESSDEF MAKEACCESS MKPROGN +ALLFIELDS RECORDECL RECLOOK LIST RECORDBINDVAL RECORD.TYPECHECK RECORD.NAME MAKECREATE0 HASHLINKS +FIXFIELDORDER RECORDBIND MAPCAR DREVERSE ACCESSDEF4 RECORDERROR CSUBST RECORD.ALLOCATIONS CHANGETRAN1 +EMBEDPROG) FILES.WHENCHANGED (MARKASCHANGED FILECOMS) \PROMPTWINDOW.EXPAND (HEIGHTIFWINDOW TIMES +FONTPROP WINDOWPROP \PROMPTWINDOW.SET.HEIGHT) CL:CEILING (CL::%%INTEGER-COERCE-MACRO) CLISPIF2 (FLAST +NLEFT) EVALV (\STACKARGPTR \EVALV1) CHAT.HOLD (WINDOWPROP UNTILMOUSESTATE ZEROP LOGAND) CL:CLOSE ( +LOGAND CONSTANT LOGOR DELFILE CL:NAMESTRING ERROR) XCL::*PROFILES* (CL:MAKE-HASH-TABLE) CL:ACOSH (CL:LOG + + CL:* CL:SQRT / - FLOAT) \MEDW.CREATEW (DSPCREATE BITMAPCREATE BITSPERPIXEL UNFOLD LLSH IPLUS +IDIFFERENCE DSPLINEFEED) \STOPDISPLAY (ADD1 PAGEHEIGHT) XCL::PROTOTYPE-DEFINERS-FOR-TYPE (CL:MAPCAR +CL:FUNCTION CL:ASSOC) XCL::PROTOTYPE-DEFN-TYPES (CL:MAPCAN CL:FUNCTION) CL:COMMONP (TYPEP) +\FIXPASSWORD (\INTERNAL/GETPASSWORD SELECTC LIST) \EVALV1 (\GETBASEPTR \STKSCAN) \SPP.SYSPKT ( +\FILLINSPP LOGOR) OPENWINDOWS (MAPCONC OPENWINDOWS \INSURESCREEN CONS DREVERSE) CL:COSH (CL:EXP / + +CL::%%EXP-FLOAT FQUOTIENT) SPY.UPDATE.TITLE (NODELST/AS/MENU WINDOWPROP CONS LASTMOUSEX LASTMOUSEY +DSPCLIPPINGREGION DOWINDOWCOM CONCAT QUOTIENT TIMES UNTILMOUSESTATE ZEROP LOGAND) \WRITE1 (PRINTDEF +POSITION \PRINDATUM \GETSTREAM) \LEAF.DIRECTORYNAMEONLY (FILENAMEFIELD STRPOS SUBATOM SUB1) +FASL::DUMP-SIMPLE-VECTOR (CL:LENGTH) CL:COUNT (CL:LENGTH COMPLEX-COUNT SIMPLE-COUNT) CLISPCOND (CONS +CLISPCOND1 CLISPIFY2 NCONC APPEND) \SETVAR (LISPERROR \STKSCAN \DTEST \HILOC) COMP.LABELS (MAPCAR CONS + COMP.GENFN CL:FLET COMP.TOPLEVEL.COMPILE COMP.EXPR WALK-FORM FUNCTION) \PRINTCCODE (\OUTCHAR +\GETSTREAM IGEQ \ILLEGAL.ARG) CL:CIS (COMPLEX CL::%%SIN-FLOAT CL::%%NOT-NONCOMPLEX-NUMBER-ERROR) +\DEFINEDISPLAYINFO (ASSOC CONS) \GR.METHODEXPANDER (LISTGET GETDEF PACK* SELECTQ ERROR SHOULDNT APPLY +SUBPAIR LIST CONCAT) TTBEFOREPOS (BEFOREBUF BUFTAILP ILESSP) PRINTCCODE (\OUTCHAR \GETSTREAM IGEQ +\ILLEGAL.ARG) \PERIODICALLY-WHO-LINE-SHOW-ACTIVE (SETUPTIMER) TWOD.TRACKCURSOR (LOGAND LASTMOUSEX +LASTMOUSEY STRINGWIDTH CL:FUNCALL ADD1 IDIFFERENCE) \SETFVARSLOT (\MYALINK OPCODES \ADDBASE +GETSTKNAMEENTRY NTSLOT-VARTYPE GETSTKNTOFFSETENTRY ADDSTACKBASE \VAG2 IPLUS UNFOLD LLSH \LOLOC +NTSLOT-OFFSET LOGAND CONSTANT WORDSPERNAMEENTRY) SEDIT::EXPAND (SEDIT:GET-PROMPT-WINDOW +GETPROMPTWINDOW PRIN1) \MOVETO.HCPYMODE (\DSPYPOSITION.HCPYMODE) CL:DECODE-FLOAT (FLOAT CL:VALUES +\MAKEFLOAT CL:1- -) PROG (PLUS .CALLAFTERPUSHINGNILS. IPLUS CEIL LOGAND ADD1 UNFOLD LLSH CONSTANT SUB1 + LOGXOR FOLDHI LRSH \PROG0) CL:COPY-READTABLE (CMLRDTBL \DTEST COPYREADTABLE) CL:DECODE-UNIVERSAL-TIME + (CL:FLOOR - + CL:* \DTSCAN CL:MOD \ISDST? CL:1+ CL:VALUES) SEDIT::CREATE-COMMENT-WORD-NODE ( +SEDIT::CREATE-SIMPLE-NODE) COMPILER::GENCODE-RETURN (COMPILER::RETURN-BLOCK COMPILER::BLOCK-FRAME +COMPILER::RETURN-VALUE COMPILER::BLOCK-CONTEXT COMPILER::BLOCK-BLIP-VAR) \PROG0 (\MYALINK OPCODES +ADDSTACKBASE \VAG2 CEIL LOGAND IPLUS IDIFFERENCE UNFOLD LLSH CONSTANT SUB1 LOGXOR \PUTBASEPTR \EVPROG1 + PLUS FOLDLO LRSH \ATOMVALINDEX NTYPX \LOLOC SHOULDNT WORDSPERNAMEENTRY WORDSPERNTOFFSETENTRY) +CL:COUNT-IF (CL:LENGTH COMPLEX-COUNT-IF SIMPLE-COUNT-IF) REATTACHPROMPTWINDOW (WINDOWPROP) +FINDFILE-WITH-EXTENSIONS (UNPACKFILENAME.STRING SELECTQ INFILEP PACKFILENAME.STRING CONS REMOVE) +MAINWINDOW (\INSUREWINDOW WINDOWPROP) CLISPIF3 (CONS APPEND) PRINTLEVEL (CONS) GREETFILENAME (SELECTQ +UNIX-GETENV INFILEP FINDFILE-WITH-EXTENSIONS APPEND PROMPTFORWORD STRPOS U-CASE SUBSTRING ADD1 +MKSTRING SUB1 CONS PACKFILENAME.STRING CONCATLIST SUBPAIR LIST SUBST) \UPDATE-WHO-LINE-ACTIVE-FLAG ( +WINDOWPROP BLTSHADE DIFFERENCE) PRINT-CIRCLE-LABEL-P (DECLARE GETHASH) PFI.MAYBE.PP.DEFINITION ( +GET-ENVIRONMENT-AND-FILEMAP PFCOPYBYTES) \TEST.PARAGRAPH.LOOKS (FCHARACTER BIN CONSTANT CHARACTER) +CL:DELETE-IF (CL:LENGTH COMPLEX-DELETE-IF SIMPLE-DELETE-IF) CL:DELETE-IF-NOT (CL:LENGTH +COMPLEX-DELETE-IF-NOT SIMPLE-DELETE-IF-NOT) \EVPROG1 (\EVAL) INVERT.BITMAP.HORIZONTALLY (BITMAPCOPY +SUB1 IQUOTIENT IDIFFERENCE BITMAPBIT PLUS) CL:ARRAY-RANK (LENGTH CL:ERROR) \SMASHRETURN (\MYALINK +OPCODES SI::UNWIND THIS.PROCESS RELSTK CL:ERROR PROCESSPROP) INITIALIZEDISPLAYSTREAMS (BITMAPCREATE +FONTCREATE FONTCLASS LIST) CLISPIF1 (CONS LDIFF DWIMERRORRETURN LIST) CL:DELETE-FILE (CL:PROBE-FILE +INTERLISP-NAMESTRING) GO (\MYALINK OPCODES FUNCTION FMEMB STACKGETBASEPTR \GETBASEPTR STACKADDBASE +\VAG2 \PUTBASEPTR IPLUS) PRINT-CIRCLE-ENTER (DECLARE) CreateCursorBitMap (BITMAPCREATE LOGAND ELT ADD1 + PLUS) \SPP.SENDPKT (SEQ.GREATERP ILESSP \LOLOC IDIFFERENCE SETUPTIMER UNFOLD LLSH) EVALA (\DTEST PLUS + .CALLAFTERPUSHINGNILS. IPLUS CEIL LOGAND ADD1 UNFOLD LLSH CONSTANT SUB1 LOGXOR FOLDHI LRSH \EVALA) +CL:DELETE-DUPLICATES (CL:LENGTH COMPLEX-DELETE-DUPLICATES SIMPLE-DELETE-DUPLICATES) CL:ARRAY-TOTAL-SIZE + (CL:ERROR) CLISP3C (RESETVARS .RESETLST. LIST CONS CL:MULTIPLE-VALUE-PROG1 .UNWIND.PROTECT. FUNCTION +PACK FRPLACD) \EVALA (\MYALINK OPCODES ADDSTACKBASE \VAG2 CEIL LOGAND IPLUS IDIFFERENCE UNFOLD LLSH +CONSTANT SUB1 LOGXOR FOLDLO LRSH \PUTBASEPTR \ATOMVALINDEX NTYPX \LOLOC SHOULDNT PLUS +WORDSPERNAMEENTRY WORDSPERNTOFFSETENTRY \EVAL) CL:DEPOSIT-FIELD (BYTE-SIZE CL:BYTE-POSITION +CL::%%MAKE-BYTE-MASK-1 CL:LOGIOR LOGAND LOGNOT) COMPILER::IS-CALL-TO (COMPILER::CALL-FN +COMPILER::VAR-REF-VARIABLE COMPILER::VARIABLE-SCOPE COMPILER::VARIABLE-KIND COMPILER::VARIABLE-NAME) +SET-DOCUMENTATION (GETHASH HASH-TABLE-FOR-DOC-TYPE) CL:COUNT-IF-NOT (CL:LENGTH COMPLEX-COUNT-IF-NOT +SIMPLE-COUNT-IF-NOT) INVERT.LONG.SEGMENT (TTBEFOREPOS) DSPRUBOUTCHAR (\DTEST \OUTSTREAMARG \GETSTREAM +\DSPMOVELR) SEDIT::COPY-HASH-TABLE (CL:MAPHASH CL:FUNCTION) DPB (BYTE-SIZE CL:BYTE-POSITION CL:LOGIOR +CL:ASH LOGAND CL::%%MAKE-BYTE-MASK-1 CL::%%MAKE-BYTE-MASK-0) COMPILER::ENSURE-EFFECT-CONTEXT ( +COMPILER:CONTEXT-VALUES-USED PACK* PLUS) MAKE-CONCATENATED-STRING-INPUT-STREAM ( +CL:MAKE-STRING-INPUT-STREAM CL:FIRST CL:APPLY) FASL::DUMP-SYMBOL (CL:SYMBOL-NAME CL:SYMBOL-PACKAGE +CL:PACKAGE-NAME) PUTTEXTPROP (SELECTQ TEXTOBJ LISTGET LIST) DASSEM.CLEANFNTEST (GETPROP FMEMB SELECTQ) + CL:ENCODE-UNIVERSAL-TIME (+ SELECTQ SUB1 TIMES IDIFFERENCE IQUOTIENT PLUS IREMAINDER) +FTP.BREAKCONNECTION (CONS LIST CLOSEBSPSTREAM) SMASHFILECOMSLST (MAPC GETATOMVAL) CL:DISASSEMBLE ( +PRINTCODE CL:COMPILE CL:SYMBOL-FUNCTION) COMPILER::GENCODE-PROGN (MAP COMPILER::PROGN-STMTS COMPILER::GENCODE +) \TEST.CHARACTER.LOOKS (FCHARACTER BIN IDIFFERENCE GETFILEPTR CONSTANT CHARACTER SELECTQ) +%%MAKE-INITIAL-STRING-STREAM-CONTENTS (CL:MAKE-ARRAY) CL:GETHASH (GETHASH) FW-RECALL-CMD (LIST MENU +MAPCAR KWOTE REMOVE) ERRORSET (CONS CL:CATCH LIST \EVAL) TITLEDICONW (LIST FONTCREATE BITMAPCOPY +STRINGWIDTH \ICONW.FORMAT.TITLE IMAX LRSH WIDTHIFWINDOW HEIGHTIFWINDOW TIMES LENGTH FONTPROP +BITMAPCREATE FOLDHI IPLUS - CREATEREGION LLSH ICONW FUNCTION MKSTRING) XCL::WHERE-IS-GET-WRITE-DATE ( +CL:ASSOC HASH-FILE:GET-HASH-FILE) SI::NLSETQ-PROCEED-CASE (MAKE-PROCEED-CASE) +CL::STRUCTURE-POINTER-SLOTS (CL::PS-POINTER-DESCRIPTORS CL:MAPCAN CL:FUNCTION CL:MAPCAR CL::PS-ALL-SLOTS +) \PRINT-USING-DEFPRINT (TYPENAME FASSOC IDIFFERENCE CL:FUNCALL \PRINT-USING-ADDRESS \PRINDATUM) +SI::NLSETQHANDLER (ABORT) CL:DIRECTORY (RESETLST RESETSAVE \GENERATEFILES DIRECTORY.FILL.PATTERN +CL:NAMESTRING \GENERATENEXTFILE PATHNAME LIST) \PRINSTACKP (IPLUS CONSTANT NCHARS STKNAME \NATOMCHARS +FFETCHFIELD \PNAMECELL \ATOMCELL FRESHLINE \OUTCHAR) MAKE-FILL-POINTER-OUTPUT-STREAM ( +%%MAKE-INITIAL-STRING-STREAM-CONTENTS DECLARE \ILLEGAL.ARG FUNCTION) FILE-STREAM-POSITION (GETFILEPTR) + \PRINSTRING (IPLUS \NSTRINGCHARS FFETCHFIELD SUB1 ADD1 \GETBASEFAT \GETBASE \GETBASETHIN \GETBASEBYTE + FRESHLINE \OUTCHAR \SOUT) SI::ERRORSET-PRINT-FUNCTION (PRIN1) COMP.TAGBODY (COMP.BIND.VARS COMPERROR +CONS COMP.STTAG FASSOC COMP.EFFECT COMP.UNBIND.VARS) \CKPOSBOUT (IPLUS FRESHLINE \OUTCHAR) +COMPILER::GENCODE-OPCODES (DECLARE) LET (PLUS .CALLAFTERPUSHINGNILS. IPLUS CEIL LOGAND ADD1 UNFOLD +LLSH CONSTANT SUB1 LOGXOR FOLDHI LRSH \LET0) LOADUP (MAPC TERPRI FMEMB LIST SMASHFILECOMS) \CKPOSSOUT +(IPLUS \NSTRINGCHARS FFETCHFIELD FRESHLINE SUB1 ADD1 \GETBASEFAT \GETBASE \GETBASETHIN \GETBASEBYTE) +%%BROADCAST-STREAM-DEVICE-BOUT (\BOUT) CLISP3 (GETPROP CLISPIFY2C LIST ARGTYPE GETP CONS CLISPIFY1 +SHOULDNT CLISP3A) \LET0 (\MYALINK OPCODES ADDSTACKBASE \VAG2 CEIL LOGAND IPLUS IDIFFERENCE UNFOLD LLSH + CONSTANT SUB1 LOGXOR \PUTBASEPTR \EVPROG1 PLUS FOLDLO LRSH \ATOMVALINDEX NTYPX \LOLOC SHOULDNT +WORDSPERNAMEENTRY WORDSPERNTOFFSETENTRY \EVAL) \SPP.OTHER.BOUT (\BOUT SPPOUTPUTSTREAM \SPP.STREAM.LOST +) CL:FILE-AUTHOR (GETFILEINFO COERCE) XCL::WHERE-IS-SET-WRITE-DATE (XCL::WHERE-IS-NOTICE-INTERNAL +CL:FILE-WRITE-DATE) CL:FCEILING (CL::%%INTEGER-COERCE-MACRO) TTGIVEHELP2 (PRIN1 SPRINTT) \AB.BACK ( +LENGTH \LOLOC \HILOC IGEQ \ADDBASE \VAG2 \GETBASE LOADBYTE LOGAND LSH IMINUS MASK.1'S SUB1 LIST UNFOLD + LLSH) FASL::DUMP-CHARACTER (DECLARE CL:CHAR-CODE FASL::HANDLE-STREAM BOUT BOUT16) CL:DOCUMENTATION ( +GETHASH HASH-TABLE-FOR-DOC-TYPE) CL:FILE-LENGTH (GETEOFPTR) \LITPRIN (ALLOCSTRING FIND-EXTERNAL-SYMBOL + \LITPRIN.INTERNAL PACKAGE-NAME-AS-SYMBOL IPLUS \NATOMCHARS FFETCHFIELD \PNAMECELL \ATOMCELL FRESHLINE + SELECTQ ADD1 \GETBASEFAT \GETBASE \GETBASETHIN \GETBASEBYTE + - <=) \BSPEVENTFN (SELECTQ +\BSP.CLOSE.OPEN.SOCKETS \REMOVEDEVICE.NAMES) \LET* (\MYALINK OPCODES ADDSTACKBASE \VAG2 CEIL LOGAND +IPLUS IDIFFERENCE UNFOLD LLSH CONSTANT SUB1 LOGXOR FOLDLO LRSH \ATOMVALINDEX NTYPX \LOLOC SHOULDNT +\PUTBASE PLUS IMINUS WORDSPERNAMEENTRY WORDSPERNTOFFSETENTRY \PUTBASEPTR \EVPROG1 \EVAL) +SEDIT::PARSE-INDENT-GROUPS (LIST CL:LENGTH SEDIT::PARSE-INDENT-BODY SEDIT::PARSE-INDENT-NAME) +CL:FILE-WRITE-DATE (CL:PROBE-FILE) %%BROADCAST-STREAM-DEVICE-OUTCHARFN (\OUTCHAR) \SPY.INTERRUPT ( +\MYALINK OPCODES LLSH) COND (LISPERROR \EVAL \EVPROGN) LET* (PLUS .CALLAFTERPUSHINGNILS. IPLUS CEIL +LOGAND ADD1 UNFOLD LLSH CONSTANT SUB1 LOGXOR FOLDHI LRSH \LET*) CL:FILL (CL:LENGTH) +\ADJUSTABLE-STRING-STREAM-OUTCHARFN (CL:CHARACTER PLUS FFETCHFIELD) \EVPROGN (\EVAL) COMP.RETURN-FROM +(COMP.RETURN FASSOC CONS) CL:FILE-NAMESTRING (PATHNAME CL:CONCATENATE MKSTRING %%PATHNAME-VERSION) +\DURATIONTRAN (\CLISPKEYWORDPROCESS CONSTANTEXPRESSIONP \CanonicalizeTimerUnits LIST TYPENAMEP EVAL +LISTGET GETDEF CONS SUBPAIR GETPROP) PROG1 (\EVAL) CL:DESCRIBE (CL:VALUES) CL:FFLOOR ( +CL::%%INTEGER-COERCE-MACRO) CL:FILE-POSITION (GETFILEPTR) ENDLOADUP (RECORDPRIORITY COPY OPENP +PRINTOUT CLOSEF TERPRI FILEPKGCHANGES CLRPROMPT) FGETD (GETD) HASHBEFORECLOSE (ASSOC FULLNAME DREMOVE) + SEDIT::DO-MUTATION (NLSETQ CL:FUNCALL) SEDIT::EVAL-SELECTION (SEDIT::GET-SELECTED-STRUCTURE +CL:COPY-TREE SEDIT:GET-PROMPT-WINDOW GETPROMPTWINDOW PRIN1 RESETFORM TTY.PROCESS PROCESS.EVAL +PROCESS.EVALV) %%NEW-FILE (CLOSEF OPENSTREAM) %%CONCATENATED-STREAM-DEVICE-PEEKBIN (FFETCHFIELD +\PEEKBIN) %%BROADCAST-STREAM-DEVICE-CHARSETFN (ACCESS-CHARSET) CLISPIF (GETVARS DWIMUNDOCATCH LISTGET1 + LIST RESETVARS .RESETLST. CONS CL:MULTIPLE-VALUE-PROG1 .UNWIND.PROTECT. FUNCTION CL:CATCH XNLSETQ +CLISPIF0) TTRACKMOUSE (ZEROP LOGAND CURSORPOSITION - IQUOTIENT TTNTHLINE FCHARWIDTH CHARWIDTH LRSH +TTNEXTCHAR FRPLNODE CONS) \TEDIT.PUT.CHARLOOKS (IDIFFERENCE LOGAND LRSH \BOUT LOGOR GETHASH) PUTDQ? ( +PUTD) PREDICT-NAME (CL:PROBE-FILE CL:NAMESTRING) SEDIT::DELETE-WORD (SEDIT::CLOSE-NODE) +*WHO-LINE-OLD-TIME* (DATE) %%CONCATENATED-STREAM-DEVICE-CLOSEFILE (CLOSEF) +%%CONCATENATED-STREAM-DEVICE-BIN (FFETCHFIELD \BIN) FIND-EXTERNAL-SYMBOL (MKSTRING \CREATECELL) +SEDIT::SET-SELECTION-COMMENT-WORD (IPLUS SEDIT::COMMENT-LENGTH SUB1 SEDIT::SIMPLE-STRING-SCAN +SEDIT::COMPUTE-SELECTION-POSITION-COMMENT) %%CONCATENATED-STREAM-DEVICE-EOFP (FFETCHFIELD) +CL:ENOUGH-NAMESTRING (PATHNAME %%PATHNAME-HOST %%PATHNAME-DEVICE %%PATHNAME-DIRECTORY %%PATHNAME-NAME +%%PATHNAME-TYPE %%PATHNAME-VERSION) COMP.RETURN (CONS) PACKAGE-NAME-AS-SYMBOL (CL::%%PACKAGE-NAMESYMBOL +) %%CONCATENATED-STREAM-DEVICE-BACKFILEPTR (\BACKFILEPTR) \LEAF.ERROR (SELECTC LISPERROR ERROR CONCAT +\GETLEAFSTRING LOCF \ADDBASE \IFSERRORSTRING TERPRI) ENVEVAL (\STACKARGPTR \EVAL) FASL::DUMP-VALUE-FETCH + (FASL::WRITE-OP FASL:DUMP-VALUE) CL:FLOAT-DIGITS (CL::%%NOT-FLOAT-ERROR) CL:FIND-IF (CL:LENGTH +COMPLEX-FIND-IF SIMPLE-FIND-IF) \LITPRIN.INTERNAL (\NATOMCHARS FFETCHFIELD \PNAMECELL \ATOMCELL +\SYMBOL.ESCAPE.COUNT IMINUS IPLUS + IABS \NSTRINGCHARS FRESHLINE ADD1 \GETBASEFAT \GETBASE +\GETBASETHIN \GETBASEBYTE \OUTCHAR CHCON1 SELECTQ \SYNCODE GETHASH - <=) \SEND.ANSWERING.RFC ( +ALLOCATE.PUP LOCF IPLUS UNFOLD LLSH \ADDBASE) GETTEXTPROP (SELECTQ LISTGET) BACKSPACEDEL (CHARACTER +ECHOCONTROL) SEDIT::SCALE-INDENT (+ CL:* CL:1- SEDIT::SCALE-INDENT CONS) \DSPXPOSITION.HCPYMODE (FIXR +FQUOTIENT) CL:FLOAT-PRECISION (CL:INTEGER-LENGTH + CL::%%NOT-FLOAT-ERROR) DOFILESLOAD (FULLNAME CONS +PACKFILENAME.STRING NCONC ROOTFILENAME SELECTQ FINDFILE FINDFILE-WITH-EXTENSIONS CL:CERROR LIST LOAD +CL:FUNCALL MKLIST EVAL CHCON1 PACK* EVALV) \SPPWATCHER (LIST FUNCTION THIS.PROCESS SETUPTIMER +WITH.MONITOR CL:MULTIPLE-VALUE-PROG1 .UNWIND.PROTECT. NSOCKETEVENT IQUOTIENT TIMES \SPP.HANDLE.INPUT +\SPP.SYSPKT ILESSP \LOLOC IDIFFERENCE IMAX - CLOCKDIFFERENCE) ENVAPPLY (\STACKARGPTR .APPLY. +FAULTAPPLY SPREADAPPLY .SPREAD. SPREADAPPLY*) CL:EVERY (%%EVERY-SINGLE %%EVERY-MULTIPLE CONS) +%%BROADCAST-STREAM-DEVICE-FORCEOUTPUT (MAPC FORCEOUTPUT) ENSURE.RGB (\LOOKUPCOLORNAME ERROR) +\FTP.NEXTFILE (ERROR SPREADAPPLY* FTPGETMARK MARK# \FTPERROR READPLIST ASSOC \FTP.PACKFILENAME HELP) +SEDIT::SIMPLE-STRING-SCAN (NCHARS ADD1 NTHCHARCODE IPLUS CHARWIDTH IDIFFERENCE SUB1) CLISP3B ( +CLSTOPSCAN? ILESSP) %%ECHO-STREAM-DEVICE-BIN (%%TWO-WAY-STREAM-DEVICE-BIN) XCL::WHERE-IS-READ-COMS ( +RESETLST RESETSAVE RESETUNDO) CL:FTRUNCATE (CL::%%INTEGER-COERCE-MACRO) \DSPCOLOR.IP (ENSURE.RGB +SETRGB.IP) RECORDPRIORITY (RECLOOK RECORDECL SELECTQ RECORD.PRIORITY FNTH ASSOC /RPLACA CONS) FUNCTION + (LIST STKNTH ERROR) PERIODICALLYRECLAIM (\DAYTIME0) *PACKAGE-FROM-INDEX* (CL:MAKE-ARRAY) +\FTP.FILEINFOFN (\FTP.GETFILEINFO.FROM.PROPS) %%SYNONYM-STREAM-DEVICE-CLOSEFILE (DREMOVE) +CHAT.DID.RESHAPE (CHAT.SCREENPARAMS TERM.RESET.DISPLAY.PARMS) \FUNCT1 (\MYALINK OPCODES ADDSTACKBASE +\VAG2 CEIL LOGAND IPLUS IDIFFERENCE UNFOLD LLSH CONSTANT SUB1 LOGXOR \EVAL PLUS FOLDLO LRSH +\ATOMVALINDEX NTYPX \LOLOC SHOULDNT WORDSPERNAMEENTRY WORDSPERNTOFFSETENTRY \MAKESTACKP) +ROTATE.BITMAP.RIGHT (BITMAPCREATE SUB1 IDIFFERENCE BITMAPBIT PLUS) GETDUMMYVAR (RPLACD LIST GENSYM +CONS) \MAKESTACKP (CREATECELL) CL:FIND-IF-NOT (CL:LENGTH COMPLEX-FIND-IF-NOT SIMPLE-FIND-IF-NOT) CL:GCD + (CL::%%GCD ARG) CL:FROUND (CL::%%INTEGER-COERCE-MACRO) FIX89A (STRPOS CONS CONCAT SUBSTRING SUB1 ADD1 +) TWODINSPECT.MAKEREGIONS (WINDOWPROP STRINGWIDTH DSPLINEFEED WITH-INSPECTOR-ENV XCL::PROFILIZE CL:PROGV + XCL::PROFILE-VARIABLES XCL::PROFILE-VALUES TWODINSPECT.COLUMNWIDTHS LENGTH IPLUS LIST PLUS +CREATEREGION LAST DIFFERENCE) TERM.RESET.DISPLAY.PARMS (\DTEST DEFAULTFONT DSPFONT FONTPROP CHARWIDTH ++ ITIMES IQUOTIENT WINDOWPROP - CL:FUNCALL) %%SYNONYM-STREAM-DEVICE-OUTCHARFN ( +%%SYNONYM-STREAM-DEVICE-GET-STREAM) \SYMBOL.ESCAPE.COUNT (ADD1 \GETBASEFAT \GETBASE \GETBASETHIN +\GETBASEBYTE \SYNCODE GETHASH PLUS - \NATOMCHARS FFETCHFIELD \PNAMECELL \ATOMCELL) COMP.GO (FASSOC +CONS) %%SYNONYM-STREAM-DEVICE-EOFP (\EOFP FDEVOP SPREADAPPLY* %%SYNONYM-STREAM-DEVICE-GET-STREAM) +COMPILER::GENCODE-MV-CALL (COMPILER::MV-CALL-FN COMPILER::MV-CALL-ARG-EXPRS CL:FLET COMPILER::VARIABLE-NAME + COMPILER::VAR-REF-VARIABLE) \MAKEFUNARGFRAME (PLUS .CALLAFTERPUSHINGNILS. IPLUS CEIL LOGAND ADD1 +UNFOLD LLSH CONSTANT SUB1 LOGXOR FOLDHI LRSH \FUNCT1) \TEDIT.BRAVOFILE? (GETFILEPTR +\TEST.PARAGRAPH.LOOKS FULLNAME CONS PACKFILENAME MKATOM TEDIT.GETINPUT FINDFILE) +%%SYNONYM-STREAM-DEVICE-BOUT (\BOUT %%SYNONYM-STREAM-DEVICE-GET-STREAM) CL:GET-OUTPUT-STREAM-STRING ( +ERROR %%MAKE-INITIAL-STRING-STREAM-CONTENTS) %%SYNONYM-STREAM-DEVICE-GET-INDIRECT-STREAM ( +CL:SYMBOL-VALUE XCL:SYNONYM-STREAM-SYMBOL) INVERT.BITMAP.DIAGONALLY (BITMAPCREATE SUB1 BITMAPBIT PLUS) + STKEVAL (\STACKARGPTR \EVAL) \STRING-STREAM-OUTCHARFN (FREPLACEFIELD PLUS FFETCHFIELD CL:VECTOR-PUSH +CL:CHARACTER) CL:FLOAT-SIGN (MINUSP - CL::%%NOT-FLOAT-ERROR) XCL::WHERE-IS-NAMESTRING (CL:NAMESTRING +CL:MAKE-PATHNAME CL:PATHNAME-NAME CL:PATHNAME-TYPE) \NUMERIC.PNAMEP (+ - SUB1 IPLUS MKSTRING ADD1 +\GETBASEFAT \GETBASE \GETBASETHIN \GETBASEBYTE SELCHARQ IEQP) STKAPPLY (\STACKARGPTR .APPLY. +FAULTAPPLY SPREADAPPLY .SPREAD. SPREADAPPLY*) FASL::SAVE-VALUE (FASL::HANDLE-HASH) DSPEOLFN ( +\GETDISPLAYDATA \DTEST \OUTSTREAMARG \GETSTREAM) CROPMARK.CREATE (IMAGEOBJCREATE LIST NUMBERP CONCAT) +CL:GET-INTERNAL-REAL-TIME (CLOCK) \SEND.ENDREPLY (SENDPUP \FILLRTPPUP) SI::UNWIND (MINUSP \MYALINK +OPCODES \GETBASEPTR ADDSTACKBASE \VAG2 \DISCARDFRAME) %%SYNONYM-STREAM-DEVICE-BIN (\BIN +%%SYNONYM-STREAM-DEVICE-GET-STREAM) \AB.NEXT (LENGTH \LOLOC \HILOC IGEQ \VAG2 \GETBASE LOADBYTE LOGAND + LSH IMINUS MASK.1'S SUB1 LIST UNFOLD LLSH IDIFFERENCE \ADDBASE) TEDIT.COPY (TEDIT.PROMPTPRINT +\SHOWSEL TEDIT.SELECTED.PIECES FUNCTION TEDIT.DO.BLUEPENDINGDELETE IMIN ADD1 \TEDIT.INSERT.PIECES +IDIFFERENCE IMAGEOBJPROP IPLUS) BRACKET.CURRENT.WORD (WORDSEPRP \SYNCODE GETHASH \GETBASEBYTE +FIRSTCHAR TTNEXTCHAR BEFOREBUF BUFTAILP CONS) RETEVAL (\STACKARGPTR CL:MULTIPLE-VALUE-PROG1 \EVAL) +CL:HASH-TABLE-COUNT (HARRAYPROP) SEDIT::SET-SELECTION-COMMENT (SEDIT::SET-SELECTION-ME +SEDIT::SET-SELECTION-NOWHERE) %%SYNONYM-STREAM-DEVICE-CHARSETFN (ACCESS-CHARSET +%%SYNONYM-STREAM-DEVICE-GET-STREAM) INTERACT&SHIFT.BITMAP.LEFT (RNUMBER SHIFT.BITMAP.LEFT) RETAPPLY ( +\STACKARGPTR CL:MULTIPLE-VALUE-PROG1 .APPLY. FAULTAPPLY SPREADAPPLY .SPREAD. SPREADAPPLY*) +\DSPSPACEFACTOR.HCPYMODE (FIXR FTIMES CHARWIDTH) CL:GET-SETF-METHOD (CL:VALUES LIST GENSYM +CL::SETF-ERROR LOCAL-MACRO-FUNCTION CL:GET-SETF-METHOD CL:FUNCALL GET CL::GET-SIMPLE-SETF-METHOD +CL::GET-SHARED-SETF-METHOD) TTRUBOUT (BACKWARD.DELETE.TO TTNLEFT BEEP PREVLINE MOVE.TO.WHEREVER) +%%SYNONYM-STREAM-DEVICE-BACKFILEPTR (\BACKFILEPTR %%SYNONYM-STREAM-DEVICE-GET-STREAM) +%%SYNONYM-STREAM-DEVICE-READP (READP %%SYNONYM-STREAM-DEVICE-GET-STREAM) +CL:GET-SETF-METHOD-MULTIPLE-VALUE (CL:VALUES LIST GENSYM CL::SETF-ERROR LOCAL-MACRO-FUNCTION +CL:GET-SETF-METHOD CL:FUNCALL GET CL::GET-SIMPLE-SETF-METHOD CL::GET-SHARED-SETF-METHOD) +%%CONCATENATED-STREAM-DEVICE-CHARSETFN (ACCESS-CHARSET) CLISPIFY2D (NTHCHAR) COPYVM (RESETVARS +.RESETLST. LIST CONS CL:MULTIPLE-VALUE-PROG1 .UNWIND.PROTECT. FUNCTION \COPYSYS) \LEAF.GETFILEDATES ( +\LEAF.READFILEPROP UNFOLD LLSH) %%TWO-WAY-STREAM-DEVICE-BIN (\BIN) BLIPVAL (\MYALINK OPCODES +\STACKARGPTR \VAROFFSET \GETBASEPTR IDIFFERENCE PLUS UNFOLD LLSH ADD1 SUB1) TEDIT.CHARWIDTH (SELECTC +\SYNCODE GETHASH \GETBASEBYTE IPLUS LOGAND CHARWIDTH LOGOR SELCHARQ IMAX SHOULDNT) FIX89 (LIST) +\TEDIT.GET.PARALOOKS (\SMALLPIN SUB1 LLSH IDIFFERENCE ELT) SEDIT::SIMPLE-STRING-OFFSET (SEDIT::STRINGWIDTH + SUBSTRING) \VAROFFSET (GETSTKNAMEENTRY NTSLOT-VARTYPE GETSTKNTOFFSETENTRY IPLUS UNFOLD LLSH +NTSLOT-OFFSET LOGAND ADDSTACKBASE \VAG2 PLUS CONSTANT WORDSPERNAMEENTRY) *WHO-LINE-TIMER* (SETUPTIMER +DIFFERENCE REMAINDER IDATE) CL:GET-INTERNAL-RUN-TIME (CLOCK) \CHECKFLTFMT (FIXP LISPERROR) SETBLIPVAL +(\MYALINK OPCODES \STACKARGPTR \VAROFFSET \GETBASEPTR IDIFFERENCE PLUS UNFOLD LLSH ADD1 \PUTBASEPTR +SUB1) %%SYNONYM-STREAM-DEVICE-SETFILEINFO (SETFILEINFO %%SYNONYM-STREAM-DEVICE-GET-STREAM) \MAPCHARS ( +\MAPPNAME FUNCTION) BLIPSCAN (\MYALINK OPCODES \STACKARGPTR SELECTQ \VAROFFSET \GETBASEPTR \MAKESTACKP +) SPY.END (BITBLT) \DRAWPOINT.IP (BITMAPWIDTH BITMAPHEIGHT - ITIMES CONSTANT IQUOTIENT) +CL:INTEGER-LENGTH (- CL:MACROLET + CL:INTEGER-LENGTH CL:ASH) \CONVERTTOFRACTION (FIX FTIMES CONSTANT +FLOAT EXPT IDIFFERENCE CREATECELL) %%TWO-WAY-STREAM-DEVICE-READP (READP) FASL::LOOKUP-VALUE ( +FASL::HANDLE-HASH GETHASH) \TEDIT.PEEKBIN.NEW.PAGE (\GETSTREAM OPENFILE SPREADAPPLY* \PEEKBIN LOGOR +UNFOLD LLSH \PAGEDBIN \PAGEDPEEKBIN IMIN IDIFFERENCE) ALISTS.GETDEF (ASSOC GETTOPVAL LIST) GETVARS ( +STKPOS STKNARGS FSTKNTH STKARGNAME VARIABLES STKARG APPEND NCONC MAPCAR GETVARS1) \RTP.ERROR (PRIN1) +\FTP.CLOSEFILE (SPREADAPPLY* SELECTC FTPGETMARK MARK# \FTP.FLUSH.TO.EOC .FTPDEBUGLOG. \GETSTREAM +BSPINPUTSTREAM FTPPUTMARK FTPGETCODE LISPERROR) %%TWO-WAY-STREAM-DEVICE-BACKFILEPTR (\BACKFILEPTR) +%%SYNONYM-STREAM-DEVICE-PEEKBIN (\PEEKBIN %%SYNONYM-STREAM-DEVICE-GET-STREAM) INSPECT (TYPENAME +INSPECT/DATATYPE \APPLYINSPECTMACRO APPLY* SELECTQ INSPECT/ATOM INSPECT/LISTP INSPECT/ARRAY +INSPECT/HARRAYP INSPECT/BITMAP INSPECTCODE INSPECT/TYPELESS \GETDTD \ADDBASE ITIMES NTYPX INSPECT/HUNK + PRIN1) \REALFRAMEP (SELECTQ \STKARG CHCON1 EXPRP FASSOC) SETTIME (DAYTIME) PRINTNUM-TO-STRING ( +GLOBALRESOURCE SELECTQ LISPERROR \CONVERT.FLOATING.NUMBER FLOAT \CHECKFLTFMT \CONVERTNUMBER FIXP FIXR +IABS IMINUS IGREATERP IDIFFERENCE NCHARS CONCAT ALLOCSTRING GETRESOURCE NEWRESOURCE) +%%SYNONYM-STREAM-DEVICE-FORCEOUTPUT (FORCEOUTPUT %%SYNONYM-STREAM-DEVICE-GET-STREAM) +%%TWO-WAY-STREAM-DEVICE-EOFP (\EOFP FDEVOP SPREADAPPLY*) CL:GET-DECODED-TIME (CL:DECODE-UNIVERSAL-TIME + CL:GET-UNIVERSAL-TIME) \IPCURVE2 (ELT FIX FQUOTIENT \WIDTHFROMBRUSH + - \VISIBLE.IP ILEQ FIXR SUB1 +POLYEVAL \FLOATBOX OPCODES ADD1 IPLUS EQP IMINUS FDIFFERENCE FPLUS IDIFFERENCE FTIMES ABS LRSH PLUS +MASKSTROKE.IP LLSH) LISPERROR (PLUS \LISPERROR) WHO-LINE-TIME (IDATE SETUPTIMER DIFFERENCE REMAINDER +CONSTANT GDATE) \SETUP.TYPENUM.TABLE (\ALLOCBLOCK FOLDHI LRSH IPLUS FIXP PACK* LOCAL PLUS \GETDTD +\ADDBASE ITIMES) SEDIT::SET-POINT-COMMENT (NCHARS NTH ADD1 SEDIT::COMMENT-LENGTH SUB1 +SEDIT::SET-POINT-NOWHERE) CL:HASH-TABLE-P (TYPENAMEP) \SystemERROR (SELECTQ GETTOPVAL RAID LISPERROR) +\NET.SETTIME (SELECTQ \PUP.SETTIME \NS.SETTIME) CTEXTPROP (LIST TERPRI CGETTEXTPROP) READIMAGEOBJ ( +ASSOC LISTGET CONCAT LIST IMAGEOBJCREATE ENCAPSULATEDIMAGEFNS FULLNAME GETFILEPTR PLUS APPLY*) CL:ISQRT + (CL:ERROR CL:INTEGER-LENGTH CL:ASH CL:1- +) POSTSCRIPT.INIT (CL:REMOVE-DUPLICATES NCONC MAPCONC +MAPCAR ASSOC EVALV RPLACD FONTUNPARSE FREPLACEFIELD CONS FFETCHFIELD MAPC CL:NTHCDR NCONC1 +FONTSAVAILABLE APPLY CL:MAKE-ARRAY CL:AREF PLUS FUNCTION HARRAY \POSTSCRIPT.NSHASH) \SAVEVMBACKGROUND +(\COUNTREALPAGES RESETLST RESETSAVE CURSOR SAVEVM) \SPP.CREATE.STREAMS (\SPP.CREATE.STREAM FUNCTION +CONS FFETCHFIELD) %%TWO-WAY-STREAM-DEVICE-FORCEOUTPUT (FORCEOUTPUT) \TRANSMIT.STRATEGY (IMIN IQUOTIENT + ILEQ LSH PLUS FFETCHFIELD SELECTC LIST BSPHELP) %%TWO-WAY-STREAM-DEVICE-BOUT (\BOUT) CL:LCM (CL:ERROR + CL::%%LCM ARG) %%TWO-WAY-STREAM-DEVICE-CLOSEFILE (DREMOVE) CLISPIFY2 (STKPOS CLISPIFY2B) SELECTQ ( +APPLY SELECTQ1 EVAL) COMP.PROG (MAPCAR COMPERROR CONS COMP.BIND.VARS COMP.LOOKFORDECLARE APPEND +SELECTQ COMP.STTAG FASSOC COMP.UNBIND.VARS) \EVALFORM (.EVALFORM. SPREADAPPLY .SPREAD. SPREADAPPLY* +GETHASH FAULTEVAL) COMPILER::GENCODE-LET (COMPILER::LAMBDA-REQUIRED COMPILER::LITERAL-VALUE +COMPILER::VARIABLE-SCOPE CL:MAPCAR CL:FUNCTION CL:NREVERSE CL:THIRD COMPILER::VARIABLE-LAP-VAR) +PFI.MERGE.INDICES (NCONC SELECTQ ALPHORDER CONCAT LIST) NOTIMP (HELP) \GC.HANDLEOVERFLOW ( +UNINTERRUPTABLY \ADDBASE \GETDTD ITIMES IDIFFERENCE \DORECLAIM \GETBASE NTYPX \LOLOC \FIXP.FROM.FLOATP + IQUOTIENT CL::RATIO-NUMERATOR CL::RATIO-DENOMINATOR ADD1 IPLUS) CGETTEXTPROP (SELECTQ) VRULE.PUTFN ( +IMAGEOBJPROP PRINT) ROTATE.BITMAP.LEFT (BITMAPCREATE SUB1 IDIFFERENCE BITMAPBIT PLUS) CL:LISTEN (READP + \GETSTREAM) \DRAWLINE.IP (DRAWDASHEDLINE \WIDTHFROMBRUSH - MIN + MAX LIST MASKSTROKE.IP FQUOTIENT +SETXY.IP) \DTEST.UFN (NTYPX \GETDTD \ADDBASE ITIMES SELECTQ \INDEXATOMPNAME \FLOAT \GETSTREAM +STKNTHNAME \DTEST LISPERROR \COERCEFONTDESC \LOLOC \FIXP.FROM.FLOATP IQUOTIENT CL::RATIO-NUMERATOR +CL::RATIO-DENOMINATOR SMALLP \MAKENUMBER ERROR \LISPERROR CONCAT) XCL::WHERE-IS-DEFAULT-DEFINE-TYPES ( +CL:MAPCAN CL:FUNCTION) VRULE.COPYFN (VRULE.CREATE IMAGEOBJPROP) +%%FILL-POINTER-STREAM-DEVICE-GETFILEPTR (CL:LENGTH) CL:INTEGER-DECODE-FLOAT (FLOAT CL:VALUES + CL:ASH +-) DUMMYDEF (GETD) CL:LISP-IMPLEMENTATION-VERSION (CL:CONCATENATE CL:STRING-CAPITALIZE MKSTRING) +\SEND.ABORT (ALLOCATE.PUP IPLUS) \FTP.DIRECTORYNAMEP (\FTP.RECOGNIZEFILE) \BACKTRACE (NUMFORMATCODE +LIST PRIN1 PLUS \STKNAME) SETUPSTACK (IQUOTIENT \SETUPSTACK1 IDIFFERENCE \SETUPGUARDBLOCK) \MAKENUMBER + (.COERCE.TO.SMALLPOSP. IGEQ \ILLEGAL.ARG SELECTC \VAG2) XCL::WHERE-IS-FILES (CL:MAPCAN CL:FUNCTION +LIST) TTCRLF.ACCOUNT (ADD1 + SUB1 DSPYPOSITION) \FTP.ADD.QUOTES (STRPOS CONS SUBSTRING ADD1 NCHARS +CONCATLIST DREVERSE) %%INITIALIZE-CLSTREAM-TYPES (FUNCTION) \SETBSPTIMEOUT (SETUPTIMER IMAX) PRINTFN ( +FINDFNDEF TERPRI) LAPRD (PEEKC READ GETP ERROR APPLY*) \STKARG (\INTERPFRAMENT \FRAMESCAN ILEQ IPLUS +UNFOLD LLSH SUB1 FOLDLO LRSH GETSTKNAMEENTRY \ADDBASE SELECTC NTSLOT-VARTYPE GETSTKNTOFFSETENTRY +SHOULDNT NTSLOT-OFFSET LOGAND IDIFFERENCE STACKADDBASE \VAG2 STACKGETBASEPTR \GETBASEPTR) CLISPIFY2C ( +CLISPIFY1 GETPROP CONS) BACKTRACE (RESETFORM OUTPUT \BACKTRACE \STACKARGPTR LOGAND FUNCTION) +%%SYNONYM-STREAM-DEVICE-GETFILEINFO (GETFILEINFO %%SYNONYM-STREAM-DEVICE-GET-STREAM) LDB (BYTE-SIZE +CL:BYTE-POSITION LOGAND CL:ASH - CL::%%MAKE-BYTE-MASK-1) COMP.LAMBDA (CONS KWOTE COMP.EFFECT SELECTQ +COMP.PROGN SUBPAIR COMP.GENFN ARGTYPE MAPCAR COMP.CALL COMP.LAM1 LIST COMP.BIND.VARS +COMP.LOOKFORDECLARE APPEND COMP.UNBIND.VARS) CL:LOGANDC1 (LOGAND LOGNOT) PFI.MAYBE.SEE.PRETTY ( +RESETLST DISPLAYP PFCOPYBYTES COPYALLBYTES STREAMP LIST OPENSTREAM PRETTYFILEINDEX FULLNAME) \HUNKFIT? + (IQUOTIENT FOLDLO LRSH IREMAINDER TERPRI) SCREENBITMAP (\ILLEGAL.ARG) \GCMAPTABLE (UNINTERRUPTABLY +\ADDBASE \GETDTD ITIMES NTYPX \GETBASE \LOLOC \FIXP.FROM.FLOATP IQUOTIENT CL::RATIO-NUMERATOR +CL::RATIO-DENOMINATOR IDIFFERENCE ADD1 IPLUS \DORECLAIM PLUS) GETVARS1 (SELECTQ LAST GETVARS1) +DEFAULT.INSPECTW.PROPCOMMANDFN (SELECTQ MENU ERSETQ ITEMOFPROPERTYVALUE GETPROMPTWINDOW RESETSAVE +\ITEMW.FLIPITEM LIST TTYDISPLAYSTREAM TTY.PROCESS THIS.PROCESS CLEARBUF printout PRIN1 CL:FUNCALL +LISPXREAD INSPECTW.REPLACE INSPECT) RADIX (\CHECKRADIX \INVALID.RADIX) WHO-LINE-SHOW-ACTIVE ( +SETUPTIMER) SEDIT::CONVERT-COMMENT-TAIL (LIST NTHCHARCODE) \DSPRIGHTMARGIN.HCPYMODE (FIXR FQUOTIENT) +\INTERPRETER (ARG SUB1 \MISCAPPLY* FUNCTION CLOSURE-ENVIRONMENT CLOSURE-FUNCTION +.CALLAFTERPUSHINGNILS. SELECTQ \INTERPRETER-LAMBDA IPLUS ADD1 IDIFFERENCE LISPERROR CEIL LOGAND UNFOLD + LLSH CONSTANT LOGXOR FOLDHI LRSH \INTERPRETER1 \STACKARGPTR SPREADAPPLY .SPREAD. LIST PLUS FAULTAPPLY +) FILEPATCHBLOCK (BOUT16 BOUTZEROS UNFOLD LLSH IDIFFERENCE) CL:LDB-TEST (LDB) SPY.START (QUOTIENT) +SMALLP (SELECTC NTYPX) SAVEDEF (MAPCAR SAVEDEF GETFILEPKGTYPE GETD GETTOPVAL GETDEF FASSOC CONS LIST) +CL:LOGNOR (LOGNOT CL:LOGIOR) COLLECTDESCENDENTS (RESETLST RESETSAVE RECURSIVE.COLLECTDESCENDENTS) +TWODINSPECT.PRINTELEMENT (ADD1 DIFFERENCE STRINGWIDTH IPLUS PRIN2) SEDIT::CONVERT-COMMENT-STRUCTURE ( +EQMEMB CONS NCHARS LIST CONCATLIST SEDIT::CONVERT-COMMENT-TAIL) \DSPFONT.HCPYMODE (\GETFONTDESC +FONTCOPY IMINUS FIXR FTIMES \FGETCHARWIDTH \FGETWIDTH \GETBASE \GETCHARSETINFO \GETBASEPTR UNFOLD LLSH + \CHARSET LRSH \CREATECHARSET \CHAR8CODE LOGAND) FIXP (\TYPEMASK.UFN LRSH) CL:LOGNAND (LOGNOT LOGAND) +\SPP.DEFAULT.ERRORHANDLER (SELECTQ ERROR GETSPPCON FFETCHFIELD \COURIER.OUTPUT.ABORTED \EOF.ACTION) +DOAROUNDEXITFORMS (MAPC SELECTQ ERSETQ \EVAL) CL::%%ATAN-FLOAT (FLOAT - FQUOTIENT UFMINUS + CL:*) +\BSP.SENDBUFFER (IPLUS PLUS FFETCHFIELD SUB1 IDIFFERENCE IMINUS SENDPUP) CL:LOGCOUNT (LOGNOT +CL::%%LOGCOUNT CL::%%BIGNUM-LOGCOUNT) FLOATP (SELECTC NTYPX) \FTP.FROM.LISP.ATTRIBUTE (SELECTQ) +SEDIT::PARSE-INDENT-NAME (SEDIT::GET-INDENT) \FTP.GENERATEFILES (RESETLST UNPACKFILENAME.STRING +\CANONICAL.HOSTNAME MKATOM NCHARS GETHOSTINFO CHCON1 NTHCHARCODE CONCAT STRPOS SUBSTRING L-CASE MAPCAR + NCONC \FTP.FROM.LISP.ATTRIBUTE LIST CONS \INTERNAL/GETPASSWORD \GETFTPCONNECTION MARK# FTPPUTMARK +FTPGETMARK SETUPTIMER FUNCTION DIRECTORY.MATCH.SETUP) COMP.SETN (CONS COMP.SETQ) LITATOM (OPCODES) +TEDIT.NEW.FONT (\TEDIT.MAKEFILENAME TEDIT.GETINPUT NCONC1 LIST KWOTE U-CASE) \PRINTFRAME (CONSTANT +NTHCHAR PRIN1 IPLUS PSTKFLD TERPRI \SCANFORNTENTRY MAKE-NTENTRY ADDSTACKBASE \VAG2 \GETBASEPTR \HILOC +FLOOR LOGAND LOGXOR SUB1 PLUS) %%SYNONYM-STREAM-DEVICE-GET-STREAM (CL:SYMBOL-VALUE) LISTP (NTYPX) +CGETD (GETD) \SEND.RFC (ALLOCATE.PUP IPLUS UNFOLD LLSH LOCF \ADDBASE TIMES) \FTP.GETFILENAME (SELECTQ +\FTP.RECOGNIZEFILE PACKFILENAME SHOULDNT) \PRINTBF (SUB1 \SCANFORNTENTRY TERPRI MAKE-NTENTRY +GETBASEPTR \GETBASEPTR PLUS SPACES) ARRAYP (SELECTC NTYPX) INSPECTW.CREATE (MAKE-INSPECTOR-PROFILE +WITH-INSPECTOR-ENV XCL::PROFILIZE CL:PROGV XCL::PROFILE-VARIABLES XCL::PROFILE-VALUES DEFAULTFONT +APPLY* \INSPECTW.VALUE.MARGIN MAPCAR IMIN IMAX STRINGWIDTH DECODE.WINDOW.ARG IPLUS ITIMES LENGTH +FONTHEIGHT \INSPECT.COMPUTE.TITLE FUNCTION INSPECTW.REDISPLAY) VIDEORATE (SELECTC SELECTQ \ILLEGAL.ARG +) TTYINBUFFERPEEK (\EOF.ACTION FIRSTCHAR) PFI.CHOOSE.BEST (CL:STABLE-SORT) \TEDIT.COMMAND.RESET.SETUP +(PROCESSPROP THIS.PROCESS TEXTPROP CREATEW TTYDISPLAYSTREAM FUNCTION TXTFILE LIST) CL:LOGANDC2 (LOGAND + LOGNOT) SORT1 (SORT1) CL:LOGIOR (ARG CL::%%LOGIOR) VRULE.IMAGEBOXFN (DSPSCALE) \DRAWARC.IP ( +\DRAWARC.GENERIC) STACKP (SELECTC NTYPX) CL:LOGEQV (ARG) \SCANFORNTENTRY (IPLUS GETSTKNAMEENTRY +GETSTKNTOFFSETENTRY \INDEXATOMVAL \VAG2 LRSH LOGAND PLUS CONSTANT WORDSPERNAMEENTRY +WORDSPERNTOFFSETENTRY) CL::%%INV-2-SQRT3 (CL::%%FLOAT) VARS (CALLS) MAKENEWCOM (GETFILEPKGTYPE COPY +APPLY* SELECTQ CONS LIST MAKENEWCOM DEFAULTMAKENEWCOM) MERGE (LIST CONS FRPLACA FRPLACD SELECTQ +ALPHORDER APPLY*) CL:MACHINE-VERSION (SELECTQ MACHINETYPE CL:FORMAT SUBSTRING GDATE + IDATE CL:* +MICROCODEVERSION REALMEMORYSIZE) CLISPIFY1 (NLEFT LAST NCONC FLAST LIST NTHCHARCODE CLISPIFY2 LDIFF +NCONC1) \PRINTSTK (GETBASE \GETBASE ADD1 SPACES) DECODE/WINDOW/OR/DISPLAYSTREAM (DISPLAYSTREAMP EVALV +SET CREATEW ERROR LIST) PRINTTIMER (IDIFFERENCE CLOCKDIFFERENCE IMINUS TERPRI) COMP.SETQ ( +COMP.LOOKUPVAR ASSOC) CHARACTER (\CHARCODEP IGEQ \ILLEGAL.ARG WITH-RESOURCE \PUTBASECHAR \PUTBASEFAT +\PUTBASE \PUTBASETHIN \PUTBASEBYTE \MKATOM GETRESOURCE NEWRESOURCE ALLOCSTRING \ADDBASE IDIFFERENCE) +SEDIT::PARSE-STRING-INTO-WORDS (NCHARS NTHCHARCODE CONS SUBSTRING ADD1 SUB1) CL:MACHINE-TYPE (SELECTC +UNIX-GETPARM UNIX-GETENV MKSTRING MACHINETYPE) %%TWO-WAY-STREAM-DEVICE-CHARSETFN (ACCESS-CHARSET) +\COMPUTE.HUNK.TYPEDECLS (ALLOCAL LIST PACK* UNFOLD LLSH SUB1 PLUS) SPY.TOGGLE (RESETFORM CURSOR +SPY.TREE SPY.START) FIXCONTINUE1 (GETPROP) TTPRIN1 (+ NTHCHARCODE PLUS CHARWIDTH L-CASECODE - BLTCHAR +TTYDISPLAYSTREAM) \LEAF.RECONNECT (WITH.MONITOR CL:MULTIPLE-VALUE-PROG1 .UNWIND.PROTECT. FUNCTION +\OPENLEAFCONNECTION) PRIN2 (\GETSTREAM \GTREADTABLE \OUTTERMP .FILELINELENGTH. SELECTC) DF ( +NLAMBDA.ARGS ED ERROR) \DSPLEFTMARGIN.HCPYMODE (\DSPRIGHTMARGIN.DISPLAY FIXR FQUOTIENT) +RELEASINGVMEMPAGE (FINDPTRSBUFFER) COMPILER::GENCODE-LABELS (CL:REVAPPEND) LIST* (ARG SUB1 CONS PLUS) +FASSOC (FASSOC) NCONC (ARG SUB1 LAST) CHAT.TYPEOUT.CLOSE (TERPRI WINDOWPROP DEL.PROCESS) +\GETINTEGERPART (LOGAND CONSTANT LLSH IDIFFERENCE ADD1 LRSH EXPT SUB1 IPLUS) VIRGINFN (GETPROP LIST +GETD COPY) \TEDIT.RESTARTFN (OPENTEXTSTREAM TEXTPROP) \DRAWCURVE.IP (LIST LENGTH ERROR +PARAMETRICSPLINE LAST) CL:MAKE-BROADCAST-STREAM (FUNCTION \ILLEGAL.ARG) REQUIREVERSION (CONCAT) +%%INITIALIZE-STANDARD-STREAMS (CL:MAKE-TWO-WAY-STREAM CL:MAKE-SYNONYM-STREAM) CL:COMPILED-FUNCTION-P ( +TYPEP) TTYINBUFFERBIN (\EOF.ACTION FIRSTCHAR) COLLECT.CHILD.NODES (GETNODEFROMID LIST) CLISPATOM ( +CLISPATOM0 DUNPACK LIST PACK FMEMB FLAST LDIFF) CL:MAKE-ECHO-STREAM (FUNCTION CONS) CL:MACHINE-INSTANCE + (SELECTC CL:FORMAT UNIX-GETPARM UNIX-GETENV ETHERHOSTNAME + CL:ASH CL:SECOND CL:THIRD CL:FOURTH) +SEDIT::DEFAULT-EDIT-FN (ED LIST*) WHO-LINE-SYMBOL-SPACE (UNFOLD LLSH CL:1+ FOLDHI LRSH IPLUS CL:THIRD) + INITGC (FOLDHI LRSH IPLUS \ADDBASE SUB1) INVERT.BITMAP.B/W (BITMAPCOPY) CHANGENAME1A (LIST) +CHANGENAME1 (NLSETQ ESUBST GETD CHANGENAME1A CHANGECCODE) COUNT (IPLUS COUNT) CL:MAKE-TWO-WAY-STREAM ( +FUNCTION CONS) CL:LOGTEST (LOGAND) SEDIT::CONVERT-COMMENT (SEDIT:GET-PROMPT-WINDOW GETPROMPTWINDOW +SEDIT::SUBNODE NTH FREPLACEFIELD CONS FFETCHFIELD SEDIT::FIND-COMMENT SEDIT::NEXT-NODE +SEDIT::COLLECT-UNDO-BLOCK PRIN1) INTERACT&SHIFT.BITMAP.DOWN (RNUMBER SHIFT.BITMAP.DOWN) +\CHANGE.ETHER.TRACING (printout PRIN1 LOGAND SELECTQ EVALV) \CLOSEIPSTREAM (ENDMASTER.IP) CL:MAKE-STRING + (MAKE-VECTOR) VRULE.GETFN (VRULE.CREATE READ) CL:MAKE-SYNONYM-STREAM (CL:SYMBOL-VALUE FUNCTION CONS) +INTERACT&SHIFT.BITMAP.UP (RNUMBER SHIFT.BITMAP.UP) XCL::WHERE-IS-NOTICE ( +XCL::WHERE-IS-DEFAULT-DEFINE-TYPES COPYFILE HASH-FILE:MAKE-HASH-FILE HASH-FILE:OPEN-HASH-FILE +CL:MULTIPLE-VALUE-PROG1 .UNWIND.PROTECT. FUNCTION PATHNAME HASH-FILE::HASH-FILE-STREAM) FIXCONTINUE ( +GETHASH ASKUSER ITIMES LIST RETDWIM2 RETDWIM) MAP (APPLY*) CL:LOGORC1 (CL:LOGIOR LOGNOT) CL:LOGORC2 ( +CL:LOGIOR LOGNOT) APROPOS (DISPLAYSTREAMP GETSTREAM PRINTLEVEL MAPATOMS) WHO-LINE-SET-TIME ( +WHO-LINE-COPY-INSERT SETTIME) HASH-TABLE-FOR-DOC-TYPE (GETHASH GETFILEPKGTYPE CL:MAKE-HASH-TABLE) +LOGNOT (LOGXOR) SEDIT::PARSE-INDENT-BODY (LIST* CL:FIRST CL:SECOND LIST CONS CL:NREVERSE) +WRITEPRINTERPORT (OPCODES) ESUBST (LIST EDIT4F FUNCTION) CL:MAKE-RANDOM-STATE (CL::%%MAKE-RANDOM-STATE + CL::RANDOM-STATE-I CL::RANDOM-STATE-J COPY-ARRAY CL::RANDOM-STATE-ARRAY CL:ERROR) CLDISABLE (L-CASE +GETP SELECTQ GETPROP RESETVARS .RESETLST. LIST CONS CL:MULTIPLE-VALUE-PROG1 .UNWIND.PROTECT. FUNCTION +/SETATOMVAL REMOVE GETATOMVAL MAKEBITTABLE LISTGET1) READPRINTERPORT (OPCODES) \SEND.END (SENDPUP +\FILLRTPPUP) \FTP.GETFILEINFO (\FTP.GETFILEINFO.FROM.PROPS \FTP.RECOGNIZEFILE LIST +\FTP.FROM.LISP.ATTRIBUTE) CL:MAP (%%MAP-FOR-EFFECT-SINGLE %%MAP-FOR-EFFECT-MULTIPLE CONS +%%MAP-FOR-RESULT-SINGLE %%MAP-FOR-RESULT-MULTIPLE) APROPRINT (SPACES RESETSAVE LIST FUNCTION +DSPLEFTMARGIN DSPXPOSITION POSITION PRIN2 FRESHLINE) CL:MAKE-PATHNAME (PATHNAME %%MAKE-PATHNAME COERCE +) SEDIT::PARSE--COMMENT-WORD (SEDIT::BUILD-PRELINEARIZED-NODE) CL:MASK-FIELD (BYTE-SIZE CL:BYTE-POSITION + LOGAND CL::%%MAKE-BYTE-MASK-1) DO.SHIFTED.SELECTION (LOGAND \CARET.DOWN BUFTAILP COPY.SEGMENT +TTRACKMOUSE LOGOR TTNEXTPOS BRACKET.CURRENT.WORD) \GET-NEXT-RUN (+ CL:ASH) SEDIT::PARSE-INDENT ( +SEDIT::PARSE-INDENT-NAME SEDIT::PARSE-INDENT-GROUPS) \DRAWELLIPSE.HCPYMODE (\DRAWELLIPSE.DISPLAY +\BRUSHCONVERT.HCPYMODE \DASHINGCONVERT.HCPYMODE) CL:NSTRING-CAPITALIZE (WITH-ONE-STRING-ONLY) +\FLOATTOBYTE.UFN (SUB1 LRSH LOGOR LLSH FIX FMIN FMAX \GETBASEFLOATP IPLUS PLUS) FASL::ELEMENTS-IDENTICAL-P + (%%FLATTEN-ARRAY CL:AREF CL:EVERY CL:FUNCTION) CL:NSTRING-DOWNCASE (WITH-ONE-STRING-ONLY +%%STRING-DOWNCASE) CL:MERGE-PATHNAMES (PATHNAME %%PATHNAME-HOST %%PATHNAME-NAME %%PATHNAME-DEVICE +%%PATHNAME-DIRECTORY %%MAKE-PATHNAME %%PATHNAME-TYPE %%PATHNAME-VERSION) \FTP.DELETEFILE (RESETLST +\FTP.UNPACKFILENAME FULLNAME \GETDEVICEFROMNAME FDEVOP SPREADAPPLY* GETHOSTINFO CONS LIST +\GETFTPCONNECTION MARK# FTPPUTMARK FTPGETMARK \FTPERROR READPLIST \FTP.PACKFILENAME ASSOC REVERSE) +INITDATATYPENAMES (\ALLOCBLOCK ADD1 LOCAL \GETDTD \ADDBASE ITIMES \ATOMPNAMEINDEX NTYPX \LOLOC +SHOULDNT COPY UNFOLD LLSH PLUS \PUTBASEPTR) RECURSIVE.COLLECTDESCENDENTS (COLLECT.CHILD.NODES NCONC +CONS RECURSIVE.COLLECTDESCENDENTS) CL:MISMATCH (CL:LENGTH - COMPLEX-COMPARE-BACKWARD +COMPLEX-COMPARE-FORWARD SIMPLE-COMPARE) COMPILER::GENCODE-IF (COMPILER::IF-PRED COMPILER::IF-THEN +COMPILER::IF-ELSE) \BLKFABSMAX.UFN (\GETBASEFLOATP SUB1 FABS IPLUS PLUS) \SHIFT.DOCUMENT (\EDITELT +GETBASEPTR \GETBASEPTR \ADDBASE2 \ADDBASE ADD1 IPLUS CONS MAPCAR SELECTQ TYPENAME NILL +\TEDIT.UNIQUIFY.PARALOOKS) CL:NOTANY (%%NOTANY-SINGLE %%NOTANY-MULTIPLE CONS) \LINEBLT (\ADDBASE +ITIMES MOD IMOD ADD1 IDIFFERENCE LLSH) \BLKFABSMIN.UFN (\GETBASEFLOATP SUB1 FABS IPLUS PLUS) +TEXTSTREAM (WINDOWPROP PROCESS.WINDOW) CL:NSUBSTITUTE-IF (CL:LENGTH COMPLEX-NSUBSTITUTE-IF +SIMPLE-NSUBSTITUTE-IF) SEDIT::PARSE-INDENT-GROUP-BODY (LIST* CL:FIRST CL:ERROR) +%%TWO-WAY-STREAM-DEVICE-PEEKBIN (\PEEKBIN) \CCODEARGLIST (- FOLDLO LRSH + UNFOLD LLSH \CCODEIVARSCAN +\GETBASEPTR MKATOM LIST SUB1 ASSOC PACK* PLUS SELECTQ) TWODINSPECT.ADJUSTSELECTION (WINDOWPROP +WITH-INSPECTOR-ENV XCL::PROFILIZE CL:PROGV XCL::PROFILE-VARIABLES XCL::PROFILE-VALUES STRINGWIDTH +APPLY* IDIFFERENCE ADD1) CL:NSUBSTITUTE-IF-NOT (CL:LENGTH COMPLEX-NSUBSTITUTE-IF-NOT +SIMPLE-NSUBSTITUTE-IF-NOT) PATHNAME (CL:VALUES CL:PARSE-NAMESTRING) SEDIT::SET-POINT-COMMENT-WORD ( +IPLUS SEDIT::COMMENT-LENGTH SUB1 SEDIT::SIMPLE-STRING-SCAN) GETPROP (GETPROPLIST) SAVEONSYSRECLST ( +PRIN1 FUNCTION RECLOOK LIST printout TERPRI) CL:NSTRING-UPCASE (WITH-ONE-STRING-ONLY %%STRING-UPCASE) +FNCHECK (GETD NLSETQ MISSPELLED? FUNCTION SYSTEMTYPE WHEREIS GETP FILECOMSLST PACK* ERROR STKPOS) +CL:MERGE (%%MERGE-LISTS %%SIMPLE-MERGE-LISTS MAKE-SEQUENCE-OF-TYPE + CL:LENGTH %%MERGE-VECTORS %%MERGE + %%SIMPLE-MERGE-VECTORS %%SIMPLE-MERGE) \FTP.MAKEPLIST (\INTERNAL/GETPASSWORD CONS LIST) +\BLKSMALLP2FLOAT.UFN (SUB1 LLSH FLOAT \GETBASE PLUS) CL::%%2-SQRT3 (CL::%%FLOAT) SEDIT::PARSE-INDENT-GROUP + (LIST*) INFILECOMS? (GETFILEPKGTYPE EVALV DREVERSE CONS) PACK* (WITH-RESOURCE \MKATOM SUB1 ARG +NAMESTRING-CONVERSION-CLAUSE PLUS NCHARS ADD1 CL:FIRST IDIFFERENCE SUBSTRING IPLUS GETRESOURCE +NEWRESOURCE ALLOCSTRING) BSPPRINTPUP (PRIN2 IDIFFERENCE PRIN1 SELECTC LIST printout GETBASEBYTE +\GETBASEBYTE TERPRI PRINTPUPDATA) COMP.NOT (OPT.NOTJUMP COMP.PROGLST COMP.STFN) CL:PARSE-NAMESTRING ( +DECLARE UNPACKFILENAME.STRING SUBSTRING + CL:VALUES CL:MAKE-PATHNAME LISTGET +%%MAKE-DIRECTORY-COMPONENT MKATOM) \WWCHANGESCREENSIZE (\INSURESCREEN DREVERSE OPENWINDOWS \CLOSEW1 +\UPDATECACHEDFIELDS WINDOWPROP REVERSE OPENW) \CCODEIVARSCAN (UNFOLD LLSH \INDEXATOMVAL \VAG2 LRSH +LOGAND GETNAMEENTRY CONSTANT SUB1 BYTESPERNAMEENTRY WORDSPERNAMEENTRY LOGOR CODEBASELT \GETBASEBYTE +LOGXOR IPLUS PLUS NTSLOT-VARTYPE GETNTOFFSETENTRY BYTESPERNTOFFSETENTRY CONS NTSLOT-OFFSET) +\TFBRAVO.ADD.NAMEDTAB (IMAGEOBJCREATE LISTGET SUB1 ADD1) CL:PATHNAME-NAME (%%PATHNAME-NAME PATHNAME) +\LEAF.GETFILEINFO (\LEAF.GETFILEINFO.OPEN \IFS.LOOKUPFILE \LEAF.GETFILE) *WHO-LINE-SYMBOL-SPACE* (LIST +) \BLKMAG.UFN (SUB1 LLSH \GETBASEFLOATP IPLUS FPLUS FTIMES PLUS) COMPILER::GENCODE-GO (DECLARE +COMPILER::GO-TAGBODY COMPILER::FIND-SEGMENT COMPILER::GO-TAG COMPILER::TAGBODY-FRAME +COMPILER::TAGBODY-BLIP-VAR) \BLKEXPONENT.UFN (SUB1 \GETBASEFLOATP LLSH PLUS) SPY.FIND.TREE (CONS) +ICONW.SHADE (WINDOWPROP BITMAPCREATE) SEDIT::LINEARIZE-COMMENT (LISTGET NTH IPLUS) TIME.SINCE.PACKET ( +\RCLK \CREATECELL LOCF \ADDBASE IQUOTIENT \BOXIDIFFERENCE) \RTP.HANDLE.RFC (LIST \RTP.ACTION IPLUS +SENDPUP) \FTPEVENTFN (\BSPEVENTFN) INTERACT&SHIFT.BITMAP.RIGHT (RNUMBER SHIFT.BITMAP.RIGHT) INITATOMS +(ALLOCSTRING CHARACTER PLUS \ADDBASE FUNCTION \ATOMDEFINDEX NTYPX \LOLOC SHOULDNT HELP) +SEDIT::SETF-OF-GET-FORMAT (CL:GETHASH REMHASH) \DRAWCURVE.HCPYMODE (\DRAWCURVE.DISPLAY MAPCAR CONS +\BRUSHCONVERT.HCPYMODE \DASHINGCONVERT.HCPYMODE) CL:PEEK-CHAR (DECLARE \GETSTREAM SELECTQ \PEEKCCODE +CL:CODE-CHAR SKIPSEPRCODES \EOF.ACTION CL:CHAR-CODE \ILLEGAL.ARG) SCANFORWARD (U-CASECODE FIRSTCHAR +SUB1VAR TTNEXTCHAR) \BLKFDIFF.UFN (LLSH SUB1 FDIFFERENCE \GETBASEFLOATP PLUS) CL::%%SQRT3 (CL::%%FLOAT +) BSPBOUT (\BOUT \DTEST) CL:PHASE (CL:ATAN CL::COMPLEX-IMAGPART CL::COMPLEX-REALPART) CL:NSUBSTITUTE ( +CL:LENGTH COMPLEX-NSUBSTITUTE SIMPLE-NSUBSTITUTE) \TEDIT.MAKEFILENAME (STRPOSL MKATOM SUBSTRING) +CONSTANTS (HASHARRAY PUTHASH LIST) PPSOC.CURRENT (printout IDIFFERENCE TERPRI) COMP.STCROP (COMP.STFN +SELECTQ) CL:PATHNAME-TYPE (%%PATHNAME-TYPE PATHNAME) \BLKFLOATP2COMP.UFN (SUB1 \ADDBASE LLSH +\GETBASEFLOATP PLUS) MENUWMINSIZEFN (WINDOWPROP ITIMES IPLUS MAXMENUITEMWIDTH IMAX STRINGWIDTH +MENUTITLEFONT CONS WIDTHIFWINDOW HEIGHTIFWINDOW MAXMENUITEMHEIGHT FONTPROP) \BLKPERM.UFN (SUB1 +\GETBASE PLUS) \TEDIT.TEXTBIN.NEW.PAGE (\GETSTREAM OPENFILE \BIN IMIN IDIFFERENCE LOGOR UNFOLD LLSH +\PAGEDBIN) \BLKFMIN.UFN (\GETBASEFLOATP SUB1 IPLUS PLUS) FIXATOM (FINDATOM STKNTH BLIPVAL CLISPATOM +CHCON1 UNPACK EVAL FIXSPELL DUNPACK SOME CONS PACK LDIFF FIXATOM1) CL:PATHNAME-VERSION ( +%%PATHNAME-VERSION PATHNAME) \SPP.CREATE.WATCHER (CREATE.EVENT CREATE.MONITORLOCK ADD.PROCESS LIST +FUNCTION KWOTE) \BLKFPLUS.UFN (LLSH SUB1 FPLUS \GETBASEFLOATP PLUS) \BLKFMAX.UFN (\GETBASEFLOATP SUB1 +IPLUS PLUS) CL:POSITION-IF-NOT (CL:LENGTH COMPLEX-POSITION-IF-NOT SIMPLE-POSITION-IF-NOT) SPY.TREE ( +SPY.MERGE) FIXATOM1 (STKNTH BLIPVAL LOGAND ARGTYPE STKEVAL FIXLISPX/ STKNAME SELECTQ SYSTEMTYPE +REALSTKNTH CONS FMEMB STKARG) CL:PPRINT (TERPRI WRITE CL:VALUES) ADDTOCOM1 (SAVESET GETTOPVAL MEMBER +CONS MERGEINSERT) RECORDECLARATIONS (FUNCTION RECLOOK1 LIST LISPXPRINT APPEND PRETTYVAR1 TERPRI) +MOVEDESCENDENTS (COLLECTDESCENDENTS LIST CREATE.NEW.NODEPOSITION CONS WFROMDS NODEREGION) +\BLKFTIMES.UFN (LLSH SUB1 FTIMES \GETBASEFLOATP PLUS) SEDIT::CHANGE-PACKAGE (SEDIT::CLOSE-NODE +SEDIT:GET-PROMPT-WINDOW GETPROMPTWINDOW CL:FIND-PACKAGE CL:PACKAGE-USE-LIST PRIN1) CL:PLUSP (>) +\BLKSEP.UFN (LLSH SUB1 IDIFFERENCE IPLUS FPLUS \GETBASEFLOATP FDIFFERENCE PLUS) +XCL::WHERE-IS-NOTICE-INTERNAL (HASH-FILE:GET-HASH-FILE CL:ASSOC) GETMACROPROP (GETPROP) CL::%%ASIN-FLOAT + (CL:ERROR FLOAT CL:* QUOTIENT CL::%%POLYEVAL - UFMINUS) MACROEXPANSION (SELECTQ CONS EXPANDOPENLAMBDA + EXPAND-DEFMACRO SUBPAIR APPLY) CHAT.OPTIONMENU (STREAMPROP APPLY*) CL:POSITION-IF (CL:LENGTH +COMPLEX-POSITION-IF SIMPLE-POSITION-IF) \MISC5.UFN (RAID) CL::%%PRINT-TIMING-ITEM (CL::TIME-FORMAT MAX + /) PRINTPUPQUEUE (IDIFFERENCE TAB PRIN1) COMP.CARCDR (COMP.PROGLST MAPC GETPROP COMP.STFN SELECTQ) +CL:RANDOM (CL:ERROR CL::%%RANDOM) SEDIT::CHANGE-QUOTE (SEDIT::QUOTE-WRAPPER LISTGET SEDIT::NOTE-CHANGE +) FASL::FAT-STRING-P (%%FAT-STRING-ARRAY-P) TTYINBUFFERBACKPTR (NLEFT) MERGEINSERT1 (NTHCHARCODE SUB1 +ADD1) \TAN.OLD (FREMAINDER FTIMES FDIFFERENCE FPLUS POLYEVAL \FLOATBOX OPCODES FQUOTIENT) +\FTP.REGISTER (\ADD-OPEN-STREAM \GETDEVICEFROMNAME) \MISC6.UFN (SELECTQ \FBITMAPBIT.UFN RAID) +\TURN.ON.HUNKING (\SETUP.TYPENUM.TABLE) SEDIT::FORMAT-FROM-INDENT (SEDIT::SCALE-INDENT CL:FIRST +CL:SECOND) \DRAWCIRCLE.HCPYMODE (\DRAWCIRCLE.DISPLAY \BRUSHCONVERT.HCPYMODE \DASHINGCONVERT.HCPYMODE) +SYSTEMTYPE (SYSTEMTYPE) PRINTCURSOR (EVALV TERPRI) SCANBACK (U-CASECODE FIRSTCHAR TTNEXTCHAR +SCANFORWARD ADD1 IMAX IDIFFERENCE) \UPDATECACHEDFIELDS (\SFFixDestination) SEDIT::CHANGE-PRINTBASE ( +SEDIT::CLOSE-NODE SEDIT:GET-PROMPT-WINDOW GETPROMPTWINDOW PRIN1) \CHARWIDTH.IP (\FGETCHARWIDTH +\FGETWIDTH \GETBASE \GETCHARSETINFO \GETBASEPTR UNFOLD LLSH \CHARSET LRSH \CREATECHARSET \CHAR8CODE +LOGAND) BLOCKRECORD (DECLARERECORD CONS) CL:PROVIDE (DECLARE CL:SYMBOL-NAME CL:PUSHNEW CL:FUNCTION) +VRULE.DISPLAYFN (IMAGEOBJPROP DSPSCALE FIXR FTIMES DSPXPOSITION DSPYPOSITION ODDP FLENGTH IMAX +IMAGESTREAMTYPE IPLUS LRSH IDIFFERENCE IMIN PLUS) \BLTSHADE.IP (INTERSECTREGIONS CREATEREGION +DSPOPERATION INSURE.B&W.TEXTURE) XCL::SAME-WHERE-IS-DATABASE (CL:FLET XCL::COERCE-TO-PATHAME +CL:PATHNAME-HOST CL:PATHNAME-DEVICE CL:PATHNAME-DIRECTORY CL:PATHNAME-NAME CL:EQUALP CL:PATHNAME-TYPE) + DINFO.CREATE.GRAPH.WINDOW (WINDOWPROP DIFFERENCE CREATEW CREATEREGION RAND) \FTP.DIRECTORYNAMEONLY ( +STRPOS SUBSTRING -) IBLT1 (SUB1 \GETBASE \ADDBASE PLUS) COMPILER:OPTIMIZE-AND-MACROEXPAND ( +COMPILER:OPTIMIZE-AND-MACROEXPAND-1 CL:VALUES) ERRORSTRING (NTH ADD1 NUMBERP) CL:READ-BYTE (\GETSTREAM + SPREADAPPLY* \BIN) CL:VALUES (\VALUES \MYALINK OPCODES \GETBASEBYTE LIST \INDEXATOMDEF \VAG2 LRSH +LOGAND ARG PLUS + - SIGNED SUB1 LLSH IDIFFERENCE CONSTANT \FINDOP) CL::TIME-FORMAT (CL:APPLY) IBLT2 ( +SUB1 \GETBASE \ADDBASE PLUS) \SIMULATE.UNBIND (STACKADDBASE \VAG2 - PLUS \MYALINK OPCODES) +SEDIT::PARSE--COMMENT (LISTGET) %%ARRAY-TYPE-TABLE (%%MAKE-ARRAY-TYPE-TABLE) +\TEDIT.UNPARSE.CHARLOOKS.LIST (LIST ONOFF FONTPROP CONS IABS IMINUS) CL:VALUES-LIST (\VALUES \MYALINK +OPCODES \GETBASEBYTE LIST \INDEXATOMDEF \VAG2 LRSH LOGAND PLUS + - SIGNED SUB1 LLSH IDIFFERENCE +CONSTANT \FINDOP) \PUTONSCREENW (MOVEW IDIFFERENCE WINDOWPROP) %%STRING-DOWNCASE (%%ARRAY-BASE +%%ARRAY-OFFSET %%ARRAY-TYPE-NUMBER) SETERRORN (ERRM-TO-CONDITION) CL:PROBE-FILE (PATHNAME INFILEP +\GETFILENAME) \TEDIT.LOOKS (WINDOWPROP CREATEPOSITION MENU NCONC1 COPY LIST FUNCTION SELECTQ CONS +TEDIT.LOOKS TEDIT.PROMPTPRINT) COMPILER::GENCODE-CATCH (COMPILER::CATCH-TAG COMPILER::CATCH-STMT) +XCL::DEL-WHERE-IS-DATABASE (CL:FIND-IF CL:FUNCTION) \ARG.NOT.LITATOM (LISPERROR) +INTERACT&ADD.BORDER.TO.BITMAP (RNUMBER EDITSHADE ADD.BORDER.TO.BITMAP) \SEND.ACK (ALLOCATE.PUP IMAX +IDIFFERENCE IPLUS ITIMES) STRICTLY/BETWEEN (IGREATERP) CL:READ-FROM-STRING (OPENSTRINGSTREAM SUBSTRING + IMIN NCHARS MKSTRING CL:VALUES CL:READ-PRESERVING-WHITESPACE CL:READ \GETFILEPTR SPREADAPPLY*) +\RTP.HANDLE.PUP (CONCAT GETPUPSTRING RELEASE.PUP APPLY*) \FTP.UNREGISTER (\GENERIC-UNREGISTER-STREAM +\DEVICE-OPEN-STREAMS SPREADAPPLY* \GETDEVICEFROMNAME) %%STRING-UPCASE (%%ARRAY-BASE %%ARRAY-OFFSET +%%ARRAY-TYPE-NUMBER) PREINITARRAYS (\PUTBASEPTR LOCF \ATOMCELL \VAG2 SETQ.NOREF PAGELOC IPLUS LLSH +\HILOC LRSH \LOLOC) CL::VALUES-UFN (\VALUES-UFN \MYALINK OPCODES \GETBASEBYTE LIST \INDEXATOMDEF \VAG2 + LRSH LOGAND + LLSH SUB1 \GETBASEPTR PLUS LOLOC \LOLOC - SIGNED IDIFFERENCE CONSTANT \FINDOP) +XCL::SETF-PACKAGE-PREFIX (CL::%%PACKAGE-NAMESYMBOL CL:INTERN CL:ERROR) TTYINBUFFERDEVICE (FUNCTION) +MAKE-CONDITION (CL:APPLY) CL:REMOVE-IF (CL:LENGTH COMPLEX-REMOVE-IF SIMPLE-REMOVE-IF) +CL::VALUES-LIST-UFN (\GETBASEPTR \VALUES-UFN \MYALINK OPCODES \GETBASEBYTE LIST \INDEXATOMDEF \VAG2 +LRSH LOGAND + LOLOC \LOLOC PLUS - SIGNED SUB1 LLSH IDIFFERENCE CONSTANT \FINDOP) COMPILER::GENCODE-BLOCK + (COMPILER::BLOCK-FRAME COMPILER::BLOCK-END-TAG COMPILER::BLOCK-STK-NUM COMPILER::BLOCK-CONTEXT +COMPILER::MAKE-LAP-VAR COMPILER::BLOCK-BLIP-VAR CL:FLET COMPILER::GENCODE-CLOSED-OVER-BLOCK +COMPILER::BLOCK-STMT) \DRAWLINE.HCPYMODE (\DRAWLINE.DISPLAY IMAX) CL:REDUCE (CL:LENGTH REDUCE-FROM-END + REDUCE-FROM-START) MULTIFILEINDEX1 (LISTGET LIST* ADD1 CONS PRETTYFILEINDEX REVERSE PLUS +PFI.MAKE.LPT.STREAM CL:MULTIPLE-VALUE-PROG1 .UNWIND.PROTECT. FUNCTION PFI.PRINT.MULTI.INDEX) +CL:REMOVE-DUPLICATES (CL:LENGTH COMPLEX-REMOVE-DUPLICATES SIMPLE-REMOVE-DUPLICATES) \SPPCONNECTION ( +\COERCE.TO.NSADDRESS \ILLEGAL.ARG \SPP.CREATE.CON LOCF \ADDBASE CONCAT SPP.DESTADDRESS) +SEDIT::INSERT-COMMENT-CHARS (NCHARS CHCON1 NTHCHARCODE ADD1 MKSTRING CONCAT SUBSTRING SEDIT::ADJUST-WIDTH + IPLUS SEDIT::STRINGWIDTH NTH SEDIT::CREATE-SIMPLE-NODE IDIFFERENCE CONS SEDIT::CREATE-COMMENT-WORD-NODES +) RECORD.REMOVE.COMMENTS (RECORD.REMOVE.COMMENTS CONS) CL:REM (IREMAINDER FLOAT - CL:* UFIX FQUOTIENT +XCL::STRUNCATE) *WHO-LINE-LAST-VMEM* (LIST) CL::*PARSED-DEFSTRUCTS* (HASHARRAY) ACCESSFNS ( +DECLARERECORD CONS) CL:REQUIRE (DECLARE) MENUWRESHAPEFN (WINDOWPROP ITIMES IDIFFERENCE +DSPCLIPPINGREGION IPLUS FONTPROP MENUTITLEFONT IQUOTIENT) CL::SET-PARSED-STRUCTURE (PUTHASH) FIXAPPLY +(FGETD FIXLAMBDA GETPROP CLISPATOM LIST FMEMB EVAL FIXSPELL FSTKNTH) CL:ROOM (STORAGE.LEFT ROUND CL:* +CL:SECOND CL:FIFTH + - VMEMSIZE CL:ASH) CL:READ-CHAR-NO-HANG (CL:READ-CHAR \EOF.ACTION) CL:REMOVE-IF-NOT + (CL:LENGTH COMPLEX-REMOVE-IF-NOT SIMPLE-REMOVE-IF-NOT) WHO-LINE-SAVE-VMEM (SAVEVM) CL:READ-LINE ( +\GETSTREAM SPREADAPPLY* RSTRING CL:VALUES) \RTP.FILTER (\HINUM \LONUM) CL:RENAME-FILE (PATHNAME +RENAMEFILE CL:VALUES CL:MERGE-PATHNAMES CL:ERROR) PRINTPACKET (FASSOC APPLY* PRIN1 TERPRI) +FW-INIT-PROPS (MEMB LISTGET NCONC DIRECTORY.FILL.PATTERN LIST CONS DIRECTORY.MATCH.SETUP FILENAMEFIELD + TERPRI FONTCREATE FIXP POSITIONP IDIFFERENCE SMALLP) \LEAF.OPENFILE (LISPERROR LIST FIXP \ILLEGAL.ARG + IDATE \LEAF.GETFILE \LEAF.CREATIONDATE \FTP.OPENFILE SELECTQ CONS) \TEXTOUTCHARFN (\INSERTCH) +FIX89TYPEIN (PACK CONS LIST PRINT LDIFF) \RTP.CLEANUP (DREMOVE) \FTPINIT (NCREATE FUNCTION) +WHO-LINE-VMEM (IQUOTIENT IPLUS MAX TIMES VMEMSIZE RSH .VMEM.CONSISTENTP. FRPLACA CONCAT) INITDATATYPES + (ALLOCAL LENGTH \ADDBASE SUB1 FOLDHI LRSH IPLUS ADD1 TIMES LOCAL \GETDTD ITIMES LOGOR FMEMB CONSTANT +PLUS \PUTBASEPTR LOCF \ATOMCELL) CL:SCALE-FLOAT (FLOAT \MAKEFLOAT +) \ONSCREENW (IGREATERP IDIFFERENCE + WINDOWPROP) SI::%%STRUCTURE-DECLARE-DATATYPE (IGEQ CL:ERROR CL:MAPCAN CL:FUNCTION) \RECLAIMCODEBLOCK +(XCL::GET-IMPLICIT-KEY-HASH OPCODES FUNCTION) \TYPEGLOBALVARIABLE (PLUS TYPE-VARIABLE-FROM-TYPE-NAME) +\ICONW.REPAINTFN (WINDOWPROP) XCL::ADD-WHERE-IS-DATABASES (CL:MAPCAR CL:FUNCTION) CL:SLEEP (DISMISS +ROUND CL:*) \ASSIGNDATATYPE1 (\TYPENUMBERFROMNAME ERROR \GETDTD \ADDBASE ITIMES ASKUSER SELECTQ LIST +PLUS IPLUS LOGOR LOGAND LOGNOT FUNCTION OPCODES COPY CL:VALUES) BITBLT.INSERT (+ - BITBLT.ERASE) +EDITMOVESUBTREE (WINDOWPROP PRIN1 NODELST/AS/MENU CURSORPOSITION LOGAND) \COS.OLD (CONSTANT MINUS +FREMAINDER FTIMES FDIFFERENCE FPLUS POLYEVAL \FLOATBOX OPCODES) CL:SEARCH (CL:LENGTH -) PRINT10TO3 ( +SELECTC PRIN1 printout TERPRI) CREATEHASHFILE (FIND1STPRIME FIX FTIMES MAX OPENSTREAM LOGAND RSH BOUT +SELECTQ ADD1 ITIMES PLUS SYSTEMTYPE CLOSEF FULLNAME SETHASHSTATUS) SEDIT::ADD-MENU (SEDIT:GET-PROMPT-WINDOW + GETPROMPTWINDOW PRIN1 SEDIT::GET-MENU) \SFFixY.HCPYMODE (\DSPTRANSFORMY IPLUS LISTGET \ADDBASE ITIMES + \SFInvert IDIFFERENCE IMAX IMIN) \LEAF.WRITEPAGES (IDATE ALLOCATE.PUP LLSH \ADDBASE FOLDLO LRSH +FOLDHI IPLUS PLUS) DINFO.GET.GRAPH.WINDOW (WINDOWP DINFO.CREATE.GRAPH.WINDOW FUNCTION) PROPERTAILP ( +BUFTAILP) PFI.CONSTANTNAMES (CONS MAPCAR) CL::*DEFSTRUCT-INFO-CACHE* (HASHARRAY) \BSP.SKIPBYTES ( +\BSP.PREPARE.INPUT BSP.INPUT.ERROR APPLY* IDIFFERENCE PLUS FFETCHFIELD) ADDTOFILES? (ERSETQ READP +ASKUSER MAPC ADDTOFILE CLBUFS TERPRI CHCON1 DOBE WHATIS ADDTOCOMS FILECOMS APPLY* LIST MERGEINSERT +GETTOPVAL WHEREIS ERROR!) CL::%%SIMPLE-TREE-EQUAL (CL::%%SIMPLE-TREE-EQUAL EQL) PPSOC (\GETSTREAM +PORTSTRING \MAKENUMBER PRIN1 FQUOTIENT + CLOCKDIFFERENCE TERPRI) COMP.DECLARE1 (EVALV APPEND MAPC +COMP.VARTYPE) ORDERFROMBOTTOMTOTOP (CONS) CL::ESTABLISH-SETFS-AND-OPTIMIZERS (CL::PS-INLINE CL:MAPC +CL:FUNCTION CL::PS-ALL-SLOTS) %%CANONICAL-CML-TYPES (%%MAKE-CML-TYPE-TABLE) REMPROP (LIST GETPROPLIST) + CL:SOFTWARE-VERSION (CL:CONCATENATE CL:LISP-IMPLEMENTATION-VERSION) CL::%%COMPLEX-TREE-EQUAL ( +CL::%%COMPLEX-TREE-EQUAL CL:FUNCALL) PUTPROP (LIST GETPROPLIST CONS) COMPILER::STOP-UNBINDS-AT-FRAME-BOUNDARY + (CONDITIONS:FIND-RESTART CONDITIONS:INVOKE-RESTART) \TEXTOPENF-SUBTREE (\TEXTOPENF-SUBTREE) FIXLAMBDA + (FIXSPELL) CL:SOME (%%SOME-SINGLE %%SOME-MULTIPLE CONS) \RTP.INFO.HOOK (PROCESS.WINDOW CREATEW +GETBOXREGION FONTCREATE WINDOWPROP) SETF-MACRO-FUNCTION (GET ARGTYPE) \SETUP.HUNK.TYPENUMBERS (APPEND +\COMPUTE.HUNK.TYPEDECLS) \HANDLE.RAW.10TO3 (+ FOLDHI LRSH IPLUS TERPRI) PRINTPACKETQUEUE (\DTEST) +CL:STREAM-EXTERNAL-FORMAT (\EXTERNALFORMAT) CL:TREE-EQUAL (CL:ERROR CL::%%COMPLEX-TREE-EQUAL +CL::%%SIMPLE-TREE-EQUAL) CL::SET-SHARED-SETF-INVERSE (REMPROP GET) \RECLAIMARRAYBLOCK (\ADDBASE IMINUS + \HILOC \MERGEBACKWARD \MAKEFREEARRAYBLOCK) CL:SINH (CL:EXP / - CL::%%EXP-FLOAT FQUOTIENT) CL:NTH ( +CL:NTHCDR) \TEDIT.ACTIVE.WINDOWP (WINDOWPROP TEXTOBJ PROCESSP) TEDIT.REDO (RESETSAVE CURSOR \SHOWSEL +SELECTQ TEDIT.REDO.INSERTION IMAX \TEDIT.DELETE TEDIT.REDO.REPLACE \TEDIT.LCASE.SEL TEDIT.REDO.LOOKS +TEDIT.REDO.PARALOOKS TEDIT.PROMPTPRINT TEDIT.FIND IPLUS NCHARS TEDIT.REDO.MOVE CONCAT) COMP.DECLARE ( +SELECTQ COMP.DECLARE1 MAPC EVAL CONS COMPERRM COMP.CONST) \UNKNOWN.UFN (\MP.ERROR) CL:ENDP (CL:ERROR) +PACKAGE-HASHTABLE-INSPECT-STOREFN (PROMPTPRINT) SEDIT::SPLIT-COMMENT (SEDIT::CLOSE-NODE NCHARS +SUBSTRING ADD1) \CAR.UFN (SELECTQ LISPERROR) TWODINSPECT.TOTALWIDTH (IPLUS ITIMES LENGTH STRINGWIDTH +PLUS) SEDIT::COMMENT-OUT-SELECTION (SEDIT:GET-PROMPT-WINDOW GETPROMPTWINDOW CL:FORMAT) +\CHARWIDTH.HCPYMODE (\FGETWIDTH \GETBASE) \CDR.UFN (\ADDBASE LLSH IDIFFERENCE \CDR.UFN SELECTQ +LISPERROR GETPROPLIST) \PUTBASEBITS (\PUTBASEBITS \ADDBASE FOLDLO LRSH IMOD DIFFERENCE RSH \PUTBASE +DEPOSITBYTE LOGOR BITCLEAR LOGAND LOGNOT MASK.1'S LSH SUB1 \GETBASE) SEDIT::DEGRADE-COMMENT (NTH +FREPLACEFIELD PLUS FFETCHFIELD SEDIT::UNDO-BY CONS LIST) NTYPX (LOGAND \GETBASE FOLDLO LRSH) +TWODINSPECT.REPAINTFN (DSPCLIPPINGREGION WINDOWPROP XCL::PROFILIZE CL:PROGV XCL::PROFILE-VARIABLES +XCL::PROFILE-VALUES FONTPROP APPLY*) CL:STRING-NOT-EQUAL (%%PARSE-STRING-ARGS +WITH-TWO-UNPACKED-STRINGS %%STRING-BASE-COMPARE-EQUAL -) \TEDIT.CREATEW.FROM.REGION (LISTGET +HEIGHTIFWINDOW ITIMES FONTPROP CREATEW \TEDIT.ORIGINAL.WINDOW.TITLE) SEDIT::STRUCTURE-FROM-STRING ( +CL:VALUES) \CHANGECHARSET.HCPYMODE (\GETCHARSETINFO \GETBASEPTR UNFOLD LLSH \CREATECHARSET FONTCOPY +LIST IPLUS \SFFixY.HCPYMODE \ADDBASE ITIMES) \TYPEP.UFN (NTYPX) GETBOXPOSITION.FROMINITIALREGION ( +GETBOXPOSITION DIFFERENCE PLUS WINDOWPROP DSPCLIPPINGREGION) L-CASECODE (CL:CHAR-INT CL:CHAR-DOWNCASE +CL:INT-CHAR) PRINTBITMAP (EVALV TERPRI BITMAPWIDTH PRIN2 BITMAPHEIGHT BITSPERPIXEL) CL::%%TAN-FLOAT ( +FLOAT - CL:* UFIX FQUOTIENT UFABS CL::%%POLYEVAL) CL:STRING-LESSP (%%PARSE-STRING-ARGS +WITH-TWO-UNPACKED-STRINGS %%STRING-BASE-COMPARE-EQUAL - %%ARRAY-READ +) \UNWIND.UFN (\MYALINK OPCODES +IPLUS IDIFFERENCE UNFOLD LLSH LRSH LOGAND \GETBASEPTR STACKADDBASE \VAG2 UNINTERRUPTABLY PLUS IMINUS) +\SPP.CREATE.CON (OPENNSOCKET + LOGOR LOGAND DAYTIME NSOCKETNUMBER LOCF \ADDBASE SUB1) +CL::ESTABLISH-PREDICATE (CL::PS-PREDICATE CL::PS-INLINE CL:MACRO-FUNCTION GET LIST) +COMPILER::FIND-COPIED-VARIABLE (COMPILER::VARIABLE-SCOPE CL:GETHASH COMPILER::COPY-VARIABLE) +TEDIT.NEXT (TEXTOBJ TEDIT.FIND MBUTTON.FIND.NEXT.FIELD ADD1 IDIFFERENCE \TEDIT.GET.INSERT.CHARLOOKS) +COMP.COMMENT (CONS COMP.STCONST) \CHECKAPPLY* (LIST SPREADAPPLY* \CKAPPLYARGS) SEDIT::*FSPEC-TABLE* ( +CL:MAKE-HASH-TABLE CL:FUNCTION) RETDWIM (IPLUS IDIFFERENCE CLOCK LISTGET1 LIST FIXLISPX/ CONS +DWIMIFY1? /RPLNODE APPLY RETDWIM2) CL:STRING-TRIM (WITH-STRING CL:SUBSEQ) CL:STRING-LEFT-TRIM ( +WITH-STRING CL:SUBSEQ) *WHO-LINE-LAST-DIRECTORY* (CL:NAMESTRING CONS PATHNAME MKSTRING) +CREATEMDSTYPETABLE (UNFOLD LLSH \PUTBASE PLUS LIST SUB1 LOGOR FOLDLO LRSH \MAKEMDSENTRY PAGELOC IPLUS +\HILOC \LOLOC) CL:STRING-DOWNCASE (WITH-ONE-STRING %%STRING-DOWNCASE COPY-VECTOR CL:MAKE-STRING) +\RPLPTR.UFN (\ADDBASE UNINTERRUPTABLY OPCODES \HILOC \LOLOC) OVERLAPPINGWINDOWS (CONS +ALLATTACHEDWINDOWS WOVERLAPP REMOVE) DELETE.LONG.SEGMENT1 (IDIFFERENCE ADD1 FRPLACA PLUS +SEGMENT.BIT.LENGTH NTH.COLUMN.OF) \LEAF.READPAGES (PLUS \LEAF.REQUESTPAGE ADD1 LISPERROR - \ADDBASE +FOLDLO LRSH FOLDHI IPLUS LOGAND) \HTFIND (\ADDBASE LRSH NILL \LOLOC .NEWENTRY. \HILOC SELECTC \GCERROR + SUB1 ADD1 LLSH IDIFFERENCE IPLUS .FREELINK.) \SCALEDBITBLT.IP (\DSPXPOSITION.IP \DSPYPOSITION.IP +DSPSCALE INTERSECTREGIONS CREATEREGION TIMES + FIXR QUOTIENT -) CL:STRING< (%%PARSE-STRING-ARGS +WITH-TWO-UNPACKED-STRINGS %%STRING-BASE-COMPARE - %%ARRAY-READ +) MOVE.TO.START.OF.WORD (PREVWORD +TTNEXTCHAR) CL::*TYPEP-HASH-TABLE* (CL:MAKE-HASH-TABLE) CL:STRING-GREATERP (%%PARSE-STRING-ARGS +WITH-TWO-UNPACKED-STRINGS %%STRING-BASE-COMPARE-EQUAL - %%ARRAY-READ +) CHAT.SENDSCREENPARAMS ( +STREAMPROP CL:FUNCALL) CL:STRING<= (%%PARSE-STRING-ARGS WITH-TWO-UNPACKED-STRINGS +%%STRING-BASE-COMPARE - %%ARRAY-READ +) ADDTOFILE (GETFILEPKGTYPE WHATIS ADDTOCOMS FILECOMS APPLY*) +SI::INTERNAL-THROW (ARG CL:VALUES-LIST LIST PLUS CL:ERROR) COMPILER::COPY-VARIABLE (CL:GETHASH +COMPILER::MAKE-VARIABLE COMPILER::VARIABLE-NAME COMPILER::VARIABLE-SCOPE COMPILER::VARIABLE-KIND) +\TEDIT.ABBREV.EXPAND (SELECTQ SUB1 MKSTRING CHARACTER \BIN TEDIT.SEL.AS.STRING \TEDIT.TRY.ABBREV +TEDIT.GET.LOOKS) COMP.QUOTE (CONS COMP.CONST) \RPLACA.UFN (LISPERROR UNINTERRUPTABLY OPCODES) +\BSP.PREPARE.OUTPUT (WITH.MONITOR CL:MULTIPLE-VALUE-PROG1 .UNWIND.PROTECT. FUNCTION SETUPTIMER APPLY* +ALLOCATE.PUP IMIN) CL::%%GET-TIMING-INFO (CL:VALUES-LIST) BITBLT.DELETE (- +) \RPLACD.UFN (LISPERROR +UNINTERRUPTABLY OPCODES \ADDBASE LLSH IDIFFERENCE IPLUS .MAKECONSCELL. PLUS FFETCHFIELD \NEXTCONSPAGE) + TWODINSPECT.BUTTONEVENTFN (WINDOWPROP XCL::PROFILIZE CL:PROGV XCL::PROFILE-VARIABLES XCL::PROFILE-VALUES + LOGAND TWOD.TRACKCURSOR FONTPROP FUNCTION CL:FUNCALL) TEDIT.CREATEW (TERPRI LISTGET HEIGHTIFWINDOW +ITIMES FONTPROP GETREGION IPLUS PLUS FFETCHFIELD IMINUS CREATEW \TEDIT.ORIGINAL.WINDOW.TITLE) +SHOWREGION (MINUS) NOT.TRACKCURSOR (PROMPTPRINT) \CONS.UFN (CREATECELL UNINTERRUPTABLY OPCODES IPLUS16 + \LOLOC \ADDBASE \GETBASE ADD1 IDIFFERENCE \DORECLAIM IGREATERP \NEXTCONSPAGE .MAKECONSCELL. PLUS +FFETCHFIELD NTYPX .FINDCLOSEPRIOR. LOGAND LOGOR LRSH .FINDPAIR. .FINDCDRABLEPAIR.) \LEAF.SETFILEINFO ( +IDATE LISPERROR FIXP \LEAF.GETFILE SELECTQ \LEAF.SETFILETYPE \LEAF.SETCREATIONDATE) CL::TIME-CALL ( +DATATYPES CL::MAKE-STATS-OBJECT CL:FUNCTION CL::STATS-OBJECT-ELAPSED-TIME CL:VALUES-LIST) GROW/REGION +(CREATEREGION IDIFFERENCE IPLUS ITIMES) CL:MAPHASH (MAPHASH CL:FUNCTION) SEDIT::GET-INDENT (CL:ASSOC) +CL::%%SIMPLE-ASSOC (ASSOC) NEWDEFC (CONS LIST FUNCTION KWOTE) CL:STRING/= (%%PARSE-STRING-ARGS +WITH-TWO-UNPACKED-STRINGS %%STRING-BASE-COMPARE -) \NOTE.10TO3 (\DTEST RPLACA LOCF \ADDBASE CONS LIST +CLOCK FFETCHFIELD) CLISPCAR/CDR (LIST MINUS MAKEMATCH CLISPRECORD NLEFT GETPROP IPLUS CLISPCAR/CDR1 +SUB1 ADD1 IMINUS CLISPLOOKUP) CL:STRING> (%%PARSE-STRING-ARGS WITH-TWO-UNPACKED-STRINGS +%%STRING-BASE-COMPARE - %%ARRAY-READ +) CL::GET-PS-FROM-ACCESSOR (CL:CATCH CL:MAPHASH CL:FUNCTION +CL:ERROR) CL:STRING-RIGHT-TRIM (WITH-STRING CL:SUBSEQ) RETDWIM1 (RETDWIM2 APPLY MAPCON LDIFF LIST +NTHCHAR SHOULDNT NLEFT) CL::%%SIMPLE-MEMBER (FMEMB) \LEAF.TRUNCATEFILE (ALLOCATE.PUP LLSH) +TEDIT.SUBSTITUTE (TEXTOBJ TEDIT.GETINPUT TEXTPROP NCHARS PLUS STRPOS CHARACTER MEMBER IPLUS SUB1 +TEDIT.FIND TEDIT.SETSEL IDIFFERENCE IEQP MAPCAR \TEDIT.COPY.PIECEMAPFN FFETCHFIELD \CHTOPC \DELETECH +ADD1 \GETBASEFAT \GETBASE \GETBASETHIN \GETBASEBYTE CONCAT MKSTRING) \FINDKEY.UFN (\MYALINK OPCODES +SUB1 FOLDLO LRSH IDIFFERENCE STACKADDBASE \VAG2 PLUS UNFOLD LLSH \GETBASEPTR ADD1 \ADDBASE TIMES) +MIN.SMALLFIXP (- EXPT) CL::BIGNUMP (TYPENAMEP) CL:STRING-UPCASE (WITH-ONE-STRING %%STRING-UPCASE +COPY-VECTOR CL:MAKE-STRING) SEDIT::INSERT-COMMENT (SUB1 ADD1 SEDIT::SPLIT-COMMENT) \CREATECELL ( +UNLESSINEW CREATECELL) BSPPEEKBIN (\BUFFERED.PEEKBIN) SETINTERRUPT (ASSOC SETINTERRUPT GETINTERRUPT +FASSOC FREPLACEFIELD DREMOVE FFETCHFIELD FRPLACD LIST CONS) \TRANSLATE.10TO3 (\DTEST +\ALLOCATE.ETHERPACKET LOCF \ADDBASE) \TEDIT.GET.CHARLOOKS (\BIN LOGAND ELT \SMALLPIN SUB1 LLSH +IDIFFERENCE FOLDHI LRSH IPLUS PLUS FFETCHFIELD) INTCHAR (GETINTERRUPT NCONC INTCHAR LISPINTERRUPTS +ASSOC ERRORX LIST APPLY* CONS) \BIN (STREAMOP SPREADAPPLY* \DTEST) CL:TANH (/ CL:SINH CL:COSH +CL::%%EXP-FLOAT CL:* FQUOTIENT - +) TEDIT.UNDO (RESETSAVE CURSOR \SHOWSEL SELECTQ TEDIT.UNDO.INSERTION + TEDIT.UNDO.DELETION TEDIT.UNDO.LOOKS TEDIT.UNDO.PARALOOKS TEDIT.UNDO.REPLACE TEDIT.PROMPTPRINT ASSOC +APPLY* CONCAT) CL::ARRAY-TYPE (CL:ARRAY-RANK CL:ARRAY-TOTAL-SIZE LIST CL:ARRAY-ELEMENT-TYPE +CL:ARRAY-DIMENSIONS) CL::GET-PS-FROM-PREDICATE (CL:CATCH CL:MAPHASH CL:FUNCTION CL:ERROR) WTFIX0 ( +WTFIX1) \BOUT (\DTEST STREAMOP SPREADAPPLY*) CL::%%TYPEP-PRED (CL::TYPE-EXPANDER CL::%%TYPEP-PRED +CL:FUNCALL LIST) SEDIT::INSTALL-SPECIAL-FORMATS (SEDIT::SET-LIST-FORMAT) CL:STRING-NOT-LESSP ( +%%PARSE-STRING-ARGS WITH-TWO-UNPACKED-STRINGS %%STRING-BASE-COMPARE-EQUAL - %%ARRAY-READ +) +INTERRUPTCHAR (INTCHAR LIST) %%BIT-TYPE (%%TYPE-SIZE-TO-TYPENUMBER) REHASHFILE (GTHASHFILE +PACKFILENAME HASHFILENAME HASHFILEPROP printout PRIN1 COPYHASHFILE OPENHASHFILE TERPRI) +CL::GET-SLOT-DESCRIPTOR-FROM-PS (CL:ERROR) CL:STRING-NOT-GREATERP (%%PARSE-STRING-ARGS +WITH-TWO-UNPACKED-STRINGS %%STRING-BASE-COMPARE-EQUAL - %%ARRAY-READ +) \RESTLIST.UFN (\MYALINK +OPCODES STACKADDBASE \VAG2 IDIFFERENCE CONS \GETBASEPTR UNFOLD LLSH PLUS) XCL::GET-WHERE-IS-ENTRIES ( +CL:MAPLIST CL:FUNCTION) CL:SUBSTITUTE-IF-NOT (CL:LENGTH COMPLEX-SUBSTITUTE-IF-NOT +SIMPLE-SUBSTITUTE-IF-NOT) CL::CACHE-SETF-INFO (CL:MAPC CL:FUNCTION CL::PS-ALL-SLOTS) CL:SUBSTITUTE-IF +(CL:LENGTH COMPLEX-SUBSTITUTE-IF SIMPLE-SUBSTITUTE-IF) \MISCN.UFN (LRSH LOGAND \MYALINK OPCODES +\GET-MY-BF - LLSH \VAG2 \ADDBASE CL:MULTIPLE-VALUE-PROG1 .UNWIND.PROTECT. FUNCTION APPLY* \GETBASEPTR) + SPY.COPYBUTTON (SPY.GRAPH.EDITOR) MAX.SMALLFIXP (CL:1- EXPT) CL:SUBSTITUTE (CL:LENGTH +COMPLEX-SUBSTITUTE SIMPLE-SUBSTITUTE) \RPLCONS (UNINTERRUPTABLY OPCODES .MAKECONSCELL. \ADDBASE PLUS +FFETCHFIELD IPLUS16 \LOLOC \GETBASE ADD1 IDIFFERENCE \DORECLAIM IPLUS CONS) GETINTERRUPT (SELECTQ +ASSOC LIST MAPCAR FASSOC) \BRUSHCONVERT.HCPYMODE (MAPCAR) CL:WRITE-TO-STRING (\PRINDATUM.TO.STRING) +CL:COPY-TREE (CONS CL:COPY-TREE) \EVAL (\EVALFORM \EVALVAR \EVALOTHER) \RTP.SOCKET.PROCESS (LIST +FUNCTION THIS.PROCESS) CL:ZEROP (=) CL::PRINT-STRUCTURE-INSTANCE (CL:FUNCALL CL::PS-PRINT-FUNCTION) +\FTP.FLUSH.TO.MARK (GETSTREAM BIN) \INSUREWINDOW (\OUTSTREAMARG \GETSTREAM WFROMDS \ILLEGAL.ARG) +\ENVCALL.UFN (\MISCAPPLY* FUNCTION) CL:SUBTYPEP (CL:VALUES) CL::SUBTYPEP-TYPE-EXPAND (CL:FUNCTION +CL:VALUES CL::TYPE-EXPAND) CL:TYPE-OF (\INDEXATOMPNAME \GETDTD \ADDBASE ITIMES NTYPX GET CL:FUNCALL) +WHICHW (\INSURESCREEN WHICHW) \TYPECHECK.UFN (NTYPX \GETDTD \ADDBASE ITIMES \LISPERROR CONCAT +\INDEXATOMPNAME) CL::COMPLETE-META-EXPRESSION-DEFAULTS (LIST) CL::EQUAL-DIMENSIONS (CL:LENGTH) +CL:STRING>= (%%PARSE-STRING-ARGS WITH-TWO-UNPACKED-STRINGS %%STRING-BASE-COMPARE - %%ARRAY-READ +) +\STKSCAN (\MYALINK OPCODES \ATOMVALINDEX NTYPX \LOLOC SHOULDNT \ADDBASE GETNAMEENTRY CONSTANT SUB1 +BYTESPERNAMEENTRY LLSH WORDSPERNAMEENTRY LOGOR CODEBASELT \GETBASEBYTE LOGXOR IPLUS PLUS +NTSLOT-VARTYPE GETNTOFFSETENTRY BYTESPERNTOFFSETENTRY STACKADDBASE \VAG2 UNFOLD NTSLOT-OFFSET LOGAND +ADDSTACKBASE) PUTDEFN (FILECODEBLOCK FOLDHI LRSH IPLUS FILEARRAYBASE LOCAL FUNCTION MODUP IDIFFERENCE +SUB1 IMOD) CL:NBUTLAST (CL:ERROR LENGTH - CL:NTHCDR) XCL::HASH-FILE-WHERE-IS (CL:REMOVE-DUPLICATES +CL:MAPCAN CL:FUNCTION XCL::GET-WHERE-IS-ENTRIES) \MAIKO.IO-INTERRUPT (LOGAND) TWODINSPECT.COPYBUTTONFN + (WITH-INSPECTOR-ENV WINDOWPROP XCL::PROFILIZE CL:PROGV XCL::PROFILE-VARIABLES XCL::PROFILE-VALUES +KEYDOWNP CL:FUNCALL TWOD.TRACKCURSOR FUNCTION) \DOINTERRUPTHERE (SELECTQ RESET ERROR! \DOHELPINTERRUPT + \DOHELPINTERRUPT1 CONTROL-T \SETRECLAIMMIN \SETPRINTLEVEL \CLEARSYSBUF RAID SET \EVAL) \INBETWEENP ( +GREATERP) CL:USER-HOMEDIR-PATHNAME (DECLARE STRING UNIX-GETPARM CL:MAKE-PATHNAME UNPACKFILENAME.STRING + UNIX-GETENV PATHNAME) SET-CONNECTED-DIRECTORY-INTERACTIVELY (MENU WHO-LINE-COPY-INSERT CONS +PROMPTFORWORD CL:NAMESTRING PROCESS.EVALV TTY.PROCESS CNDIR) \MISC8.UFN (SELECTQ IBLT1 IBLT2 RAID) +DINFO.UPDATE.FROM.GRAPH (ADD.PROCESS) ICONW.PRINT-JUSTIFIED (DSPCLIPPINGREGION FONTCOPY SELECTQ +FONTPROP \ICONW.FORMAT.TITLE IQUOTIENT ITIMES FLENGTH IPLUS IDIFFERENCE IMIN LRSH NTHCHARCODE PLUS) +CL::RANGE<= (+ - >= >) CL:UNREAD-CHAR (\BACKCCODE \GETSTREAM) BSPINPUTSTREAM (\DTEST) \UNBOXFLOAT3 ( +\CALLER.ARGS \MYALINK OPCODES \.GETBASE32 IDIFFERENCE \FLOATBOX TIMES LLSH \GETBASEFLOATP FPLUS FTIMES + PLUS \FLOATUNBOX SELECTQ \MATMULT333 \MATMULT444 \MATMULT133 \MATMULT331 \MATMULT144 \MATMULT441 HELP +) CL::BASE-SUBTYPEP (CL:VALUES CL:FUNCTION CL:ASSOC CL::COMPLETE-META-EXPRESSION-DEFAULTS) +COMPILER::COPY-NODE-LIST (MAPCAR COMPILER::COPY-NODES) CL:WRITE-LINE (WRITE-STRING*) COMP.COND ( +SELECTQ CDR COMP.VALN OPT.JUMPCHECK COMP.EXPR) \TYPEMASK.UFN (LOGAND LRSH \GETBASE FOLDLO) +CL::DEFAULT-STRUCTURE-PRINTER (\PRINT-USING-ADDRESS TYPENAME) FIND.PROCESS (GETHASH ERROR) +\DOHELPINTERRUPT (\SELECTPROCESS THIS.PROCESS \PROCESS.MAKEFRAME FUNCTION) CL:WRITE-STRING ( +WRITE-STRING*) CL::STEP-SLEEP (CL:FUNCTION) CONTROL-T (GETSTREAM TTYDISPLAYSTREAM WFROMDS +UNINTERRUPTABLY STKNTHNAME PROCESS.NAME THIS.PROCESS PRIN1 PLUS CLOCK IPLUS IMINUS \CLOCK0) +\SELECTPROCESS (TTY.PROCESS THIS.PROCESS CONS LIST CONCAT MENU FIND.PROCESS) RECORDALLOCATIONS ( +MAPCONC APPEND RECORD.ALLOCATIONS RECORDECL RECLOOK1) CL:BUTLAST (CL:ERROR LENGTH) \ELIDE.PRINT.TAIL ( +\SOUT \ELIDE.TAIL.STRING) FASL::+LARGEST-FOUR-BYTE-INTEGER+ (CL:1- CL:EXPT) TTYIN.READ?=ARGS ( +TTSKIPSEPR WITH-RESOURCES TTYIN.READ GETRESOURCE NEWRESOURCE MAKE-TTSCRATCHFILE) \SIN.OLD (CONSTANT +MINUS FREMAINDER FTIMES FPLUS FDIFFERENCE POLYEVAL \FLOATBOX OPCODES) EQL (IEQP CL::RATIO-NUMERATOR +EQL CL::RATIO-DENOMINATOR CL::COMPLEX-REALPART CL::COMPLEX-IMAGPART) \FTP.FLUSH.TO.EOC (GETSTREAM BIN +FTPGETMARK MARK#) \PRINDATUM (SELECTC NTYPX LIST \LITPRIN \PRINDATUM-LISTP WITH-RESOURCES \CKPOSSOUT +\CONVERTNUMBER \CHECKRADIX \INVALID.RADIX GETRESOURCE NEWRESOURCE ALLOCSTRING CONCAT +\CONVERT.FLOATING.NUMBER \PRINSTACKP \PRINSTRING CL::PRINT-STRUCTURE-INSTANCE PRINT-INSTANCE +\PRINT-USING-DEFPRINT) CL:TRUENAME (CL:TRUENAME CL:SYMBOL-VALUE XCL:SYNONYM-STREAM-SYMBOL CL:ERROR +CL:PROBE-FILE) \BITBLT.HCPYMODE (\BITBLT.DISPLAY \DASHINGCONVERT.HCPYMODE) \PROC.FINDREALFRAME ( +STKNTHNAME PLUS) CL:WRITE-BYTE (BOUT) PFI.INDEX.BREAK (DSPYPOSITION + - FONTPROP IQUOTIENT DSPLINEFEED + DSPLEFTMARGIN DSPRIGHTMARGIN DSPSCALE TERPRI) FETCHFIELD (\DTEST SELECTQ \GETBASEPTR MAKEFLOATNUMBER +\GETBASE \ADDBASE \MAKENUMBER ADDBASE LOGAND LRSH BitFieldShift BitFieldMask SUB1 LLSH IDIFFERENCE +BitFieldWidth BitFieldShiftedMask LISPERROR) \PROCESS.MAKEFRAME (UNINTERRUPTABLY CONS \MP.ERROR +\MISCAPPLY* FUNCTION) CHAT.LOGINFO (STREAMPROP CL:FUNCALL) \STORE.N.UFN (\.PUTBASE32 \PUTBASEPTR +IDIFFERENCE \MYALINK OPCODES IPLUS) \DOHELPINTERRUPT1 (FLASHWINDOW TTY.PROCESSP TTY.PROCESS +THIS.PROCESS \PROC.FINDREALFRAME) CL::%%COMPLEX-SUBST (CL::%%SUBST-MACRO CL:FUNCALL CL::%%COMPLEX-SUBST +) COMPILER::COPY-NODE-VAR-REF (COMPILER::MAKE-VAR-REF COMPILER::FIND-COPIED-VARIABLE +COMPILER::VAR-REF-VARIABLE) %%CHAR-TYPE (%%LIT-TYPE-TO-TYPE) \COPY.N.UFN (\.GETBASE32 IDIFFERENCE +\MYALINK OPCODES IPLUS) PACKAGE.NAME (\UNCOPY \GETBASEPTR) CL::%%SIMPLE-SUBST (CL::%%SUBST-MACRO EQL +CL::%%SIMPLE-SUBST) GETDESCRIPTORS (\GETDTD \ADDBASE ITIMES \TYPENUMBERFROMNAME NTYPX) +\MAIKO.CONSOLE-LOG-PRINT (SUBSTRING) CLISPATOMARE2 (LIST APPEND CLISPATOMARE2 CONS) \RETURN (\MYALINK +OPCODES) TWODINSPECT.CLOSEFN (WINDOWPROP) CL::STRUCTURE-SLOT-NAMES (CL::PS-ALL-SLOT-NAMES CL:COPY-LIST +) \TEDIT.PACK.TARGETLIST (CONS CONCAT \TEDIT.PACK.TARGETLIST MKSTRING) \ARG0 (\MYALINK OPCODES +GETBASEPTR \GETBASEPTR IPLUS LLSH SUB1 LISPERROR) FIND.SYMBOL (LOCAL FFETCHFIELD IPLUS IREMAINDER +LOGXOR RSH LOOKUP-SYMBOL \GETBASEPTR CL:VALUES RPLACD) CL::EQUAL-ELEMENT-TYPE (CL:EQUAL +%%GET-CANONICAL-CML-TYPE) CL:SUBST-IF-NOT (CL::%%SUBST-IF-NOT) \MISC7.UFN (SELECTQ \PSEUDOCOLOR.UFN +\FBITMAPBIT.UFN RAID) CLISPATOMIS2 (APPEND) \MYARGCOUNT (\MYALINK OPCODES) +TWODINSPECT.DEFAULT.VALUECOMMANDFN (CONSTANT \CREATE.TWODINSPECTOR.SETMENU +\CREATE.TWODINSPECTOR.INSPECTMENU MENU) \SETRECLAIMMIN (LINBUF SYSBUF \GETCHAR IPLUS ITIMES +IDIFFERENCE) \ELIDE.PRINT.ELEMENT (\OUTCHAR \ELIDE.ELEMENT.CHAR) SEDIT::SUBSTITUTE-OBJ ( +SEDIT::CLOSE-OPEN-NODE SEDIT::CLOSE-NODE SEDIT:GET-PROMPT-WINDOW GETPROMPTWINDOW +SEDIT::PSEUDO-SELECTION-FROM-SELECTION) AWAIT.EVENT (\DTEST FIX \PROCESS.GO.TO.SLEEP) EDITMOVEREGION ( +ERROR) CL::%%SUBST-IF (CL::%%SUBST-MACRO CL:FUNCALL CL::%%SUBST-IF) PRIN3 (\GETSTREAM \DTEST \OUTTERMP +) CL::%%SIN-FLOAT (FLOAT - + CL:* UFIX FQUOTIENT CL::%%POLYEVAL) ERROR! (\MYALINK OPCODES RETTO) +CHAT.FLUSH&WAIT (STREAMPROP CL:FUNCALL) MONITOR.AWAIT.EVENT (\DTEST FIX \PROCESS.GO.TO.SLEEP) +CL:SUBST-IF (CL::%%SUBST-IF) PRINT-CIRCLE-LOOKUP (GETHASH) COMPILER::COPY-NODE-UNWIND-PROTECT ( +COMPILER::MAKE-UNWIND-PROTECT COMPILER::COPY-NODES COMPILER::UNWIND-PROTECT-STMT +COMPILER::UNWIND-PROTECT-CLEANUP) UPDATEFILES (FILEPKGCHANGES ASSOC INFILECOMS? NCONC INTERSECTION +REMOVE GETTOPVAL CONS LDIFFERENCE) \MOVETO.IP (SETXY.IP) CL:TERPRI (TERPRI) CL:PRIN1 (WRITE) +\LEAF.GENERATEFILES (\FTP.GENERATEFILES \GENERATENOFILES) \PRINT-USING-ADDRESS (TYPENAME IPLUS +FRESHLINE \CKPOSBOUT \PRINTADDR) FASL::+SMALLEST-FOUR-BYTE-INTEGER+ (- CL:EXPT) +SEDIT::COPY-STRUCTURE-COMMENT-WORD (CL:COPY-SEQ RPLACA) \TEDIT.SUBST.FN2 (\TEDIT.SUBST.FN1 ADD1 SUB1 +\TEDIT.SUBST.FN2 TEDIT.FIND) \PROCESS.GO.TO.SLEEP (UNINTERRUPTABLY THIS.PROCESS BLOCK \MP.ERROR +SETUPTIMER \RESCHEDULE \MYALINK OPCODES) \SETPRINTLEVEL (LINBUF SYSBUF \GETCHAR IPLUS ITIMES +IDIFFERENCE) CL::%%NSUBST-IF (CL::%%NSUBST-MACRO CL:FUNCALL CL::%%NSUBST-IF) SEDIT::COPY-STRUCTURE-COMMENT + (LIST SEDIT::MAKE-COMMENT-STRING) INTERRUPT (DEBUGGER MAKE-CONDITION) XCL::%%DEFINE-TYPE-GETDEF ( +CL:GETHASH CL:COPY-TREE) CURRENTINTERRUPTS (APPEND) GETDEF (EQMEMB GETFILEPKGTYPE GETDEFCURRENT CONS +MKLIST GETDEFSAVED GETDEFFROMFILE COPY) DO.INSERT.LINE (- DSPYPOSITION + TTLASTLINE PLUS DSPXPOSITION +DSPCLIPPINGREGION SUB1) CL::%%SIMPLE-NSUBST (CL::%%NSUBST-MACRO EQL CL::%%SIMPLE-NSUBST) CL:NSUBST-IF +(CL::%%NSUBST-IF) \DRAWLINE.UFN (\BITMASK \WORDELT LOGAND SELECTQ LOGXOR LOGOR IPLUS ADD1 IDIFFERENCE +\ADDBASE LRSH PLUS) \LEAF.GETFILENAME (\IFS.LOOKUPFILE \LEAF.GETFILE SELECTQ \GENERIC.OUTFILEP) +WHO-LINE-CURRENT-DIRECTORY (PROCESS.EVALV TTY.PROCESS FRPLACA FRPLACD CONCAT CL:PATHNAME-DIRECTORY +CL:PATHNAME-HOST CL:NAMESTRING CL:FUNCTION SORT) COMPILE-IN-CORE (RESETVARS .RESETLST. LIST CONS +CL:MULTIPLE-VALUE-PROG1 .UNWIND.PROTECT. FUNCTION OPENFILE RESETLST COMPILE1A BYTECOMPILE2) CL:PRINC ( +WRITE) CL:NSUBST (CL:ERROR CL::%%COMPLEX-NSUBST CL::%%SIMPLE-NSUBST) BRKDWNRESULTS1 (IMINUS BRKDWNELT +ELT PLUS FQUOTIENT LIST) RESET.INTERRUPTS (MAPCAR \ILLEGAL.ARG LIST ASSOC UNINTERRUPTABLY) +DINFO.SHOWGRAPH (GRAPHREGION DINFO.GET.GRAPH.WINDOW WINDOWPROP HEIGHTIFWINDOW WIDTHIFWINDOW IPLUS +IDIFFERENCE SHOWGRAPH FUNCTION) FW-INIT-MENUS (FASSOC SUBST CONS) CREATE.NEW.NODEPOSITION (PLUS) +\FTP.CLEANUP (SETUPTIMER LRSH FUNCTION) SETBSPUSERINFO (\DTEST) DINFO.LAYOUTGRAPH (FONTP MAPCAR FASSOC + LAYOUTGRAPH CONS NCONC LIST) \MISC1.UFN (RAID) PRINT-BITMAPS-NICELY (BITMAPWIDTH BITMAPHEIGHT +BITSPERPIXEL FOLDHI LRSH IPLUS CL:* PRIN2 PRIN1) \READPRINTERPORT.UFN (\DEVICE.INPUT) CL:NSUBST-IF-NOT + (CL::%%NSUBST-IF-NOT) COMPILER::COPY-NODE-THROW (COMPILER::MAKE-THROW COMPILER::COPY-NODES +COMPILER::THROW-TAG COMPILER::THROW-VALUE) COMP.GENFN (CL:INTERN CL:FORMAT STRING PLUS CL:SYMBOL-PACKAGE +) \MISC2.UFN (SELECTQ \GET-NEXT-RUN RAID) FIND.PACKAGE (LOCAL MKSTRING STRINGHASHBITS LOGAND LOGOR +LOGXOR LRSH IMIN \ADDBASE4 \ADDBASE \ADDBASE2 V\UNCOPY IPLUS16 \LOLOC) CL::%%COMPLEX-NSUBST ( +CL::%%NSUBST-MACRO CL:FUNCALL CL::%%COMPLEX-NSUBST) CL::%%NSUBST-IF-NOT (CL::%%NSUBST-MACRO CL:FUNCALL + CL::%%NSUBST-IF-NOT) CREATE-STRUCTURE (CL:APPLY) \GCRECLAIMCELL (NTYPX \DELREF OPCODES \ADDBASE LLSH +IDIFFERENCE \GETBASEPTR UNFOLD \GETDTD ITIMES FOLDLO LRSH) TWODINSPECT.DEFAULT.TITLECOMMANDFN (LOGAND +CONSTANT \CREATE.TWODINSPECTOR.TITLEMENU WINDOWPROP MENU) MAKE-KEYWORD (DECLARE CL:VALUES CL:INTERN +CL:SYMBOL-NAME) SPAWN.MOUSE (UNINTERRUPTABLY FIND.PROCESS CONCAT PLUS LIST) \GCSCAN1 (\ADDBASE SUB1) +\WRITEBITMAP (GETSTREAM TERPRI \BOUT \ADDBASE IPLUS SUB1 LRSH \GETBASEBYTE LOGAND) +CL::%%STATS-OBJECT-DIFFERENCE (CL::STATS-OBJECT-DATA-COUNTERS CL::STATS-OBJECT-TIME-BLOCK +CL::STATS-OBJECT-ELAPSED-TIME) \GETWINDOWHEIGHT (\INSUREWINDOW DIFFERENCE ITIMES DSPLINEFEED) +CL::STRUCTURE-CONSTRUCTOR (GET CL::PS-STANDARD-CONSTRUCTOR CL:ERROR CL::PS-NAME) LISTFILES1 ( +SEND.FILE.TO.PRINTER) \TEXTCLOSEF-SUBTREE (\TEXTCLOSEF-SUBTREE) \GCSCAN2 (LOGAND CONSTANT LOGOR +\GETBASE SUB1) COMPILE.FILE.RESET (REMOVE) CL::%%SUBST-IF-NOT (CL::%%SUBST-MACRO CL:FUNCALL +CL::%%SUBST-IF-NOT) \WRITEPRINTERPORT.UFN (\DEVICE.OUTPUT) CL::%%COMPLEX-ASSOC (ASSOC CL::%%SIMPLE-ASSOC +) CL::%%SIMPLE-SUBLIS (CL::%%SIMPLE-ASSOC CL::%%SIMPLE-SUBLIS CONS) ADD.CHAT.MESSAGE (STREAMPROP +CONCAT) PROCESS.NAME (\COERCE.TO.PROCESS FIND.PROCESS) XCL::%%DEFINE-TYPE-FILE-DEFINITIONS (CL:MAPCAR +CL:FUNCTION) CL:SUBST (CL:ERROR CL::%%COMPLEX-SUBST CL::%%SIMPLE-SUBST) XCL::%%DEFINE-TYPE-DELDEF ( +CL:GETHASH) CL::%%COMPLEX-NSUBLIS (CL::%%COMPLEX-ASSOC CL:FUNCALL) FASL::DUMMY-HANDLE (FASL::MAKE-HANDLE + OPEN) BRKDWNRESULTS2 (APPLY* FQUOTIENT FIX FPLUS FTIMES) \RETCALL (\MISCAPPLY*) +CL::SET-SETF-METHOD-EXPANDER (REMPROP GET) %%AREF1 (CL:ARRAY-RANK CL:ERROR %%ARRAY-READ +) +BRKDWNCOMPILE2 (RESETVARS .RESETLST. LIST CONS CL:MULTIPLE-VALUE-PROG1 .UNWIND.PROTECT. FUNCTION +RESETLST UNION COMPILE1) CHARCODEP (ILEQ) WHO-LINE-COPY-INSERT (WFROMDS PROCESS.TTY TTY.PROCESS +COPYINSERT BKSYSBUF) \MAIKO.ETHER-INTERRUPT (WITH.MONITOR CL:MULTIPLE-VALUE-PROG1 .UNWIND.PROTECT. +FUNCTION LOCF \ADDBASE \ALLOCATE.ETHERPACKET) CL::%%COMPLEX-SUBLIS (CL::%%COMPLEX-ASSOC CL:FUNCALL +CL::%%COMPLEX-SUBLIS CONS) SEDIT::LIST-FORMATS-TABLE (CL:MAKE-HASH-TABLE) %%ASET1 (CL:ARRAY-RANK +CL:ERROR %%ASET1 %%ARRAY-WRITE +) CREATEBSPSTREAM (OPENBSPSTREAM) CL:NSUBLIS (CL:ERROR +CL::%%COMPLEX-NSUBLIS CL::%%SIMPLE-NSUBLIS) CL:SUBLIS (CL:ERROR CL::%%COMPLEX-SUBLIS CL::%%SIMPLE-SUBLIS +) \DASHINGCONVERT.HCPYMODE (MAPCAR) \POP.N.UFN (\MYALINK OPCODES \GETBASEPTR IDIFFERENCE UNFOLD LLSH +ADD1) DO?CMD.ERRORHANDLER (MKSTRING RETFROM) TTNEXTNODE (FRPLACD CONS) TRANSGRAPH (MAPCAR PLUS) +\ATOMCELL (\ATOMDEFINDEX NTYPX \LOLOC SHOULDNT \HILOC SELECTC \ATOMVALINDEX \ATOMPROPINDEX +\ATOMPNAMEINDEX \ADDBASE \VAG2 IPLUS ITIMES) HASTTYWINDOWP (PROCESS.TTY) SEDIT::COPY-SELECTION-COMMENT + (SEDIT:GET-PROMPT-WINDOW GETPROMPTWINDOW SUB1 NCHARS SUBSTRING SEDIT::STRINGIFY-COMMENT BKSYSBUF +SEDIT::INSERT SEDIT::COPY-NODE OPENSTRINGSTREAM NLSETQ READ SEDIT::PARSE-NEW LIST printout PRIN1) +XCL::%%DEFINE-TYPE-FILEGETDEF (LOADFNS CONS) \GETBASEBYTE (\GETBASE FOLDLO LRSH) \PRINTBINARYBITMAP ( +GETSTREAM BITMAPP \BOUT BITMAPWIDTH BITMAPHEIGHT BITSPERPIXEL ITIMES) CL::%%COMPLEX-MEMBER (FMEMB +CL::%%SIMPLE-MEMBER) \GETWINDOWWIDTH (\INSUREWINDOW DIFFERENCE ITIMES) \LEAF.REOPENFILE (\LEAF.GETFILE + \LEAF.CREATIONDATE) CLISPATOMARE1 (LIST SELECTQ CLISPATOMARE1 NCONC1) \INSTANCEP.UFN (NTYPX) PUTDEF ( +GETFILEPKGTYPE APPLY*) CL::SET-SETF-INVERSE (REMPROP GET) CL::%%SIMPLE-NSUBLIS (CL::%%SIMPLE-ASSOC) +PACKAGE-INSPECT-STOREFN (PROMPTPRINT) \BLT (CONSTANT EXPT \ADDBASE DIFFERENCE \BLT SUB1 \GETBASE PLUS) + XCL::%%DEFINE-TYPE-PUTDEF (XCL::%%DEFINE-TYPE-DELDEF REMOVE-COMMENTS CL:COPY-TREE CL:EVAL +XCL::MAKE-UNDOABLE) COERCETOBITMAP (BITMAPP EVALV BITMAPCREATE BITSPERPIXEL SCREENBITMAP WINDOWPROP +DSPCLIPPINGREGION) WHO-LINE-CONTROL-SELECT (CL:FLET) \MISC10.UFN (SELECTQ \PIXELBLT.UFN HELP) +\CONTROL-T.PRINTRATIO (PRIN1 PRINTNUM IQUOTIENT ITIMES printout) \P-MISC2.UFN (SELECTQ \GET-NEXT-RUN +RAID) CL:CONCATENATE (MAKE-SEQUENCE-OF-TYPE) CLISPCAR/CDR2 (STKEVAL SUB1) \PUTBASEBYTE ( +.COERCE.TO.BYTE. IGEQ CONSTANT LLSH \ILLEGAL.ARG FOLDLO LRSH \DTEST \GETBASE) \LEAF.EVENTFN ( +SPREADAPPLY*) VECTOR-LENGTH (CL:ERROR) \FDIFS/FROM/DERIVS (FQUOTIENT FTIMES LIST FPLUS) +WHO-LINE-TTY-PROCESS (PROCESSPROP TTY.PROCESS) HRULE.COPYFN (HRULE.CREATE IMAGEOBJPROP) OPENRTPSOCKET +(RESETLST ETHERPORT PUPSOCKETNUMBER OPENPUPSOCKET \DTEST RAND FUNCTION \LOCALPUPADDRESS CONS +SETUPTIMER) CGETWINDOWPROP (SUBST LIST SELECTQ CONSTANT RECORDACCESSFORM KWOTE) \PUTBASE.UFN (\PUTBASE + \ADDBASE .COERCE.TO.SMALLPOSP. IGEQ \ILLEGAL.ARG) COMPILE.FILE.APPLY (PRINT CONS APPLY*) +CHANGE-TTY-PROCESS-INTERACTIVELY (MENU SORT MAPCAR LIST PROCESSPROP TTY.PROCESS) \BITBLT.IP ( +\DSPXPOSITION.IP \DSPYPOSITION.IP DSPSCALE TIMES INTERSECTREGIONS CREATEREGION PLUS FIXR QUOTIENT +DIFFERENCE) \PUTBASEPTR.UFN (\HILOC \ADDBASE \LOLOC) LOOKUP-SYMBOL (\GETBASEPTR ADD1 IREMAINDER +IDIFFERENCE \GETBASEBYTE SYMBOL.PNAME \GETBASE STREQUAL IPLUS) XCL::INTERESTING-FRAME-P (STKNAME) +SPYOBJ.COPYIN (HELP) MAKE-SEQUENCE-OF-TYPE (CL:MAKE-LIST MAKE-VECTOR CL::TYPE-EXPANDER +MAKE-SEQUENCE-OF-TYPE CL::TYPE-EXPAND CL:ERROR) TTYIN.PRINTARGS (TTYIN.READ?=ARGS MEMB CONS +CL:SET-DIFFERENCE TTPRIN1COMMENT SELECTQ ARGTYPE CONCAT) BSPBIN (\BUFFERED.BIN) \PUTBITS.UFN ( +.COERCE.TO.SMALLPOSP. IGEQ \ILLEGAL.ARG ADD1 LOGAND LRSH IDIFFERENCE IPLUS SUB1 LLSH \ADDBASE LOGOR +\GETBASE LOGXOR) %%MAXTHINCHAR (CL:1- EXPT) CL:UNION (CL:ERROR) ATAN (FLOATP FLOAT FLESSP FDIFFERENCE +FQUOTIENT FPLUS FTIMES POLYEVAL \FLOATBOX OPCODES) UNMAKEHARDCOPYMODESTREAM (DISPLAYSTREAMP WINDOWPROP + \ILLEGAL.ARG IMAGESTREAMTYPE FUNCTION STREAMPROP DSPCLIPPINGREGION) \ADDBASE (\HILOC \LOLOC NTYPX +\FIXP.FROM.FLOATP IQUOTIENT CL::RATIO-NUMERATOR CL::RATIO-DENOMINATOR IDIFFERENCE PLUS SUB1 \VAG2) +TTSETCURSOR (MOVETO + TIMES -) CL:VECTOR (%%MAKE-ONED-ARRAY) GETBSPUSERINFO (\DTEST) \VAG2 (\VAG2 +BIG-VMEM-CODE .COERCE.TO.SMALLPOSP. IGEQ \ILLEGAL.ARG .COERCE.TO.BYTE. CONSTANT LLSH) FW-RE-INIT ( +STRINGWIDTH IMAX ITIMES IDIFFERENCE FONTHEIGHT ADD1 FONTPROP IPLUS WIDTHIFWINDOW HEIGHTIFWINDOW MAPC +FW-RESIZE-OFD) CL:COPY-SEQ (CL:LENGTH) COMPILER::COPY-NODE-TAGBODY (COMPILER::MAKE-TAGBODY CL:GETHASH +COMPILER::TAGBODY-SEGMENTS MAPCAR COMPILER::MAKE-SEGMENT COMPILER::SEGMENT-TAGS COMPILER::COPY-NODE-LIST + COMPILER::SEGMENT-STMTS) COMP.FUNCTION (COMP.LAM1 COMP.CALL CONS COMP.STCONST) \SLOWPLUS2 (FPLUS +LISPERROR IPLUS) CWINDOWPROP (LIST TERPRI CGETWINDOWPROP CONS) MAKE-VECTOR (CL:ERROR %%MAKE-ONED-ARRAY +) \SLOWDIFFERENCE (FDIFFERENCE LISPERROR IDIFFERENCE) COMPILE-FILE-EX/IMPORT (EVAL) +CL:ARRAY-ELEMENT-TYPE (CL:ERROR) UNION (CONS) CL:SET-DIFFERENCE (CL:ERROR) CREATETEXTUREFROMBITMAP ( +BITMAPP BITMAPBIT IREMAINDER LOGOR \BITMASK \WORDELT LOGAND IPLUS ITIMES IDIFFERENCE PLUS BITMAPCREATE + IMIN) \SLOWTIMES2 (FTIMES LISPERROR ITIMES) SEDIT::COMPUTE-POINT-POSITION-COMMENT (IPLUS +SEDIT::SIMPLE-STRING-OFFSET) HRULE.PUTFN (PRINT IMAGEOBJPROP) CL:NSET-EXCLUSIVE-OR (CL:ERROR) +CL:NSET-DIFFERENCE (CL:ERROR) CLISPATOMIS1 (SELECTQ CONS MAPCAR CLISPATOMIS1 SUBLIS NEGATE) +\SLOWQUOTIENT (FQUOTIENT LISPERROR IQUOTIENT) /DREMOVE (/DREMOVE) CL:ELT (CL:LENGTH CL:ERROR) +\TEDIT.FIND.WC1 (SUB1 TEDIT.FIND \TEDIT.FIND.WC1 IPLUS NCHARS CONCATLIST \TEDIT.PACK.TARGETLIST ADD1) +\SLOWIPLUS2 (NTYPX \LOLOC \FIXP.FROM.FLOATP IQUOTIENT CL::RATIO-NUMERATOR CL::RATIO-DENOMINATOR +IGREATERP IDIFFERENCE ADD1 IPLUS \MAKENUMBER \BIGNUM.PLUS) SEDIT::CREATE-NEW-COMMENT (LIST +SEDIT::CREATE-WEAK-LINK) SCRATCHCONS (CONS) GETPROMPTWINDOW (WINDOWPROP FONTCREATE DSPFONT FUNCTION +WINDOWREGION STRINGWIDTH IQUOTIENT IPLUS SUB1 FIXP CREATEW HEIGHTIFWINDOW TIMES FONTPROP CONS) +\BSP.PREPARE.INPUT (WITH.MONITOR CL:MULTIPLE-VALUE-PROG1 .UNWIND.PROTECT. FUNCTION SETUPTIMER APPLY* +\DEQUEUE SHOULDNT SELECTC LIST IDIFFERENCE) CHAT.CLOSE.CONNECTION (CLOSEF) \SLOWIDIFFERENCE (NTYPX +\LOLOC \FIXP.FROM.FLOATP IQUOTIENT CL::RATIO-NUMERATOR CL::RATIO-DENOMINATOR \MAKENUMBER ADD1 +IDIFFERENCE IGREATERP LOGXOR IPLUS \BIGNUM.DIFFERENCE) CL:SUBSETP (CL:ERROR) CL:SET-EXCLUSIVE-OR ( +CL:ERROR) CL::%%PRINT-TIMING-INFO (CL::STATS-OBJECT-TIME-BLOCK CL::STATS-OBJECT-DATA-COUNTERS - +CL::STATS-OBJECT-ELAPSED-TIME CL::TIME-FORMAT) COMP.PUNT (CONS) \SLOWITIMES2 (NTYPX \LOLOC +\FIXP.FROM.FLOATP IQUOTIENT CL::RATIO-NUMERATOR CL::RATIO-DENOMINATOR ADD1 IDIFFERENCE LRSH SUB1 IPLUS + LLSH PLUS LOGAND \MAKENUMBER \BIGNUM.TIMES) OLD.FIND.SYMBOL (SUB1 IPLUS \GETBASEFAT \GETBASE PLUS +UNLESSRDSYS \GETBASETHIN \GETBASEBYTE \ADDBASE IDIFFERENCE \PARSE.NUMBER LOGAND LLSH ADD1 IPLUS16 +\LOLOC ATOM.HASH.REPROBE LOGOR LOGXOR UNINTERRUPTABLY \CREATE.SYMBOL \PUTBASE \ATOMPNAMEINDEX NTYPX +SHOULDNT) ADD1VAR (SET ADD1 EVAL) GETDEF.I.S.OPR (CONS KWOTE GETPROP LIST) CL:MAKE-SEQUENCE ( +CL:MAKE-LIST MAKE-SEQUENCE-OF-TYPE) CL:NUNION (CL:ERROR) \SLOWIQUOTIENT (NTYPX \LOLOC +\FIXP.FROM.FLOATP IQUOTIENT CL::RATIO-NUMERATOR CL::RATIO-DENOMINATOR ADD1 IDIFFERENCE LLSH LRSH SUB1 +PLUS LOGAND .SUBSMALL. IPLUS \MAKENUMBER \BIGNUM.QUOTIENT \BIGNUM.REMAINDER) DINFO.INVERT.NODE ( +WINDOWPROP REDISPLAYW OPENW) ADDTOVAR (GETPROP EVALV LISTGET1 CONS FASSOC LIST /DREMOVE UNION) BRKDWN1 + (LIST GETD PACK CONS LENGTH BRKDWNARRAY ARRAY ADD1 NCREATE PLUS BRKDWNSETUP PUTD APPEND) CL:MAKE-LIST + (CL:ERROR) PUTHASHFILE (CREATEKEY PACK*) SEDIT::GET-USER-STRING (SEDIT:GET-PROMPT-WINDOW +GETPROMPTWINDOW TTYINPROMPTFORWORD) \BLTSHADE.HCPYMODE (\BLTSHADE.DISPLAY \DASHINGCONVERT.HCPYMODE) +IREMAINDER (NTYPX \LOLOC \FIXP.FROM.FLOATP IQUOTIENT CL::RATIO-NUMERATOR CL::RATIO-DENOMINATOR ADD1 +IDIFFERENCE LLSH LRSH SUB1 PLUS LOGAND .SUBSMALL. IPLUS \MAKENUMBER \BIGNUM.QUOTIENT \BIGNUM.REMAINDER +) SYMBOL.PACKAGE (LRSH \GETBASE \ADDBASE2 \ADDBASE T IPLUS ITIMES \GETBASEPTR LLSH) MARKASCHANGED ( +SELECTQ ERROR GETFILEPKGTYPE APPLY* SETTOPVAL SEARCHPRETTYTYPELST CONS GETTOPVAL LIST) DUMPI.S.OPRS ( +MAPCAR GETDEF.I.S.OPR LIST) SEDIT::CLOSE-NODE-COMMENT (FREPLACEFIELD CONS LIST FFETCHFIELD +SEDIT::MAKE-COMMENT-STRING) EXEC-FORMAT (LISPXPUT LIST CONS CL:APPLY) \FIRSTNODE (\GETBASEPTR +\FIRSTNODE) APPENDTOVAR (GETPROP EVALV LISTGET1 APPEND LIST FASSOC /DREMOVE LDIFFERENCE) +COMPILER::COPY-NODE-SETQ (COMPILER::MAKE-SETQ COMPILER::FIND-COPIED-VARIABLE COMPILER::SETQ-VAR +COMPILER::COPY-NODES COMPILER::SETQ-VALUE) PRINTROUTINGTABLE (NTYPX CL:ERROR \GETSTREAM NCONC APPEND +\GETBASEPTR PLUS \ADDBASE CONSTANT + NCHARS - TERPRI SORT FUNCTION IMAX PRINTNUM printout) \SLOWLLSH1 +(NTYPX \LOLOC \FIXP.FROM.FLOATP IQUOTIENT CL::RATIO-NUMERATOR CL::RATIO-DENOMINATOR \MAKENUMBER IPLUS +LLSH LOGAND) TWODINSPECT.ROWPROPWIDTH (STRINGWIDTH) \TEDIT.MARK.LINES.DIRTY (IMIN ADD1 WINDOWPROP) +\FTP.ADD.USERINFO (\INTERNAL/GETPASSWORD CONS LIST) CL::%%SQRT-COMPLEX (FLOAT CL::COMPLEX-REALPART +CL::COMPLEX-IMAGPART CL:SQRT ABS FQUOTIENT CL:PHASE CL:* CL:COS CL:SIN) \BSP.CLEANUP.INPUT (\DTEST +IPLUS IDIFFERENCE PLUS SUB1 FFETCHFIELD) SEDIT:GET-FORMAT (CL:GETHASH) \SLOWLLSH8 (NTYPX \LOLOC +\FIXP.FROM.FLOATP IQUOTIENT CL::RATIO-NUMERATOR CL::RATIO-DENOMINATOR \MAKENUMBER IPLUS LLSH LOGAND +LRSH) GETHASHFILE (LOOKUPHASHFILE CREATEKEY PACK*) RESULTS (BRKDWNRESULTS) CL:SUBSEQ (CL:LENGTH) +COMPILER::COPY-NODE-RETURN (CL:GETHASH COMPILER::RETURN-BLOCK COMPILER::MAKE-RETURN COMPILER::COPY-NODES + COMPILER::RETURN-VALUE) CL:INTERSECTION (CL:ERROR) \SLOWLRSH1 (NTYPX \LOLOC \FIXP.FROM.FLOATP +IQUOTIENT CL::RATIO-NUMERATOR CL::RATIO-DENOMINATOR \MAKENUMBER LRSH IPLUS LOGAND) /SET (SAVESET) +MENUWINDOW (ADDMENU CREATEW CREATEREGION WIDTHIFWINDOW HEIGHTIFWINDOW FUNCTION) CL:NTHCDR (CL:ERROR) +CL:NINTERSECTION (CL:ERROR) CLISPATOM2D (GETHASH MINUS CONS) \SLOWLRSH8 (NTYPX \LOLOC +\FIXP.FROM.FLOATP IQUOTIENT CL::RATIO-NUMERATOR CL::RATIO-DENOMINATOR \MAKENUMBER LRSH IPLUS LLSH +LOGAND) SAVESET (GETTOPVAL STKSCAN EVALV GETATOMVAL SOME LISTGET1 EVQ EQUALN LIST) <= ( +CL::%%COMPARISON-MACRO) CL:PAIRLIS (LENGTH CL:ERROR) BRKDWNFORM (CONS ASSOC LIST) \SLOWLOGOR2 (NTYPX +\LOLOC \FIXP.FROM.FLOATP IQUOTIENT CL::RATIO-NUMERATOR CL::RATIO-DENOMINATOR \MAKENUMBER LOGOR +\BIGNUM.LOGOR) SEDIT::COMPUTE-SELECTION-POSITION-COMMENT (IPLUS SEDIT::SIMPLE-STRING-OFFSET SUB1) +RECORDACCESS (RECORDCHAIN RECFIELDLOOK LIST RECORDERROR CHECKDEFS MAPCONC ACCESSDEF4 RECORDECL +FIXSPELL FIELDNAMESIN EVAL EMBEDPROG MAKEACCESS SELECTQ KWOTE ERROR) WINDOWADDFNPROP (WINDOWPROP LIST +NCONC1 APPEND) \SLOWLOGAND2 (NTYPX \LOLOC \FIXP.FROM.FLOATP IQUOTIENT CL::RATIO-NUMERATOR +CL::RATIO-DENOMINATOR \MAKENUMBER LOGAND \BIGNUM.LOGAND) COMPILE-FILE-SETF-SYMBOL-FUNCTION (CL:THIRD +CL:SECOND BYTECOMPILE2 PRINT WALK-FORM FUNCTION) \LEAF.DIRECTORYNAMEP (PACKFILENAME.STRING CONS +FFETCHFIELD) ENDBSPSTREAM (CLOSEBSPSTREAM) %%SETELT (CL:LENGTH CL:ERROR) BMOBJ.DISPLAYFN (IMAGEOBJPROP + DSPSCALE IMAGESTREAMTYPE IMINUS FIXR FTIMES NUMBERP ASSOC SHRINKBITMAP FQUOTIENT EXPANDBITMAP +DSPXPOSITION DSPYPOSITION BITMAPWIDTH BITMAPHEIGHT) UnixPrint (LISTGET PRINTERTYPE CHCON1 +UNPACKFILENAME.STRING NCHARS NLSETQ FILDIR PACKFILENAME UnixTempFile IGREATERP DIFFERENCE IDATE +GETFILEINFO DELFILE) \SLOWLOGXOR2 (NTYPX \LOLOC \FIXP.FROM.FLOATP IQUOTIENT CL::RATIO-NUMERATOR +CL::RATIO-DENOMINATOR \MAKENUMBER LOGXOR \BIGNUM.LOGXOR) SETUP-WHOLINE-TIMER (SETUPTIMER WINDOWPROP) +LDIFFERENCE (LIST) \SMASHBSPSTREAM (\DTEST) CL::%%SET-NTH (CL:ERROR) CL::%%SQRT-FLOAT (FLOAT +CL::%%UMAKE-FLOAT + CL:ASH CONSTANT CL:1+) \FM.EDIT-UPDATEAFTERDELETE (IPLUS IDIFFERENCE BITMAPWIDTH +FONTPROP BITBLT) FTPGETCODE (FTPPRINTCODE BIN) LSH (\RSH IMINUS CONSTANT INTEGERLENGTH \BIGNUM.LSH +IPLUS) \LEAF.FORCEOUTPUT (LEAF.ASSURE.FINISHED) CL::TYPE-EXPAND (CL::TYPE-EXPANDER CL:VALUES CL:FUNCALL +) ATTACH (FRPLACA FRPLACD CONS ERRORX LIST) COMPILER::COPY-NODE-PROGV (COMPILER::MAKE-PROGV +COMPILER::COPY-NODES COMPILER::PROGV-SYMS-EXPR COMPILER::PROGV-VALS-EXPR COMPILER::PROGV-STMT) +COMP.APPLYFNP (SELECTQ COMP.ARGTYPE CONS) \SLOWFPLUS2 (\BOXFPLUSDIF) SYMBOL.PNAME (ALLOCSTRING +\GETBASEPTR \ADDBASE2 \ADDBASE \VAG2 IPLUS ITIMES LOGAND \GETBASEBYTE RPLSTRING FCHARACTER PLUS LOCAL +SUBSTRING) DEFINEQ (DEFINE) POSTSCRIPTSEND (SELECTQ MKATOM UNIX-GETPARM DOSPRINT UnixPrint) +CL::TYPE-EXPANDER (GET CL::TYPE-EXPANDER) DWIM-SYMBOL-PACKAGE (DECLARE CL:FIND-ALL-SYMBOLS +CL:SYMBOL-NAME LIST /RPLACA) CL:RASSOC (CL:ERROR CL::%%COMPLEX-RASSOC CL::%%SIMPLE-RASSOC) ADDTOCOMS ( +ADDTOCOMS GETTOPVAL ADDNEWCOM GETFILEPKGTYPE) \SLOWFDIFFERENCE (\BOXFPLUSDIF) DEFINE (MAPCAR +FNS.PUTDEF CONS) \READBINARYBITMAP (GETSTREAM \WIN IPLUS LLSH \BIN BITMAPCREATE ITIMES) DOWINDOWCOM ( +ARG WINDOWPROP APPLY* \CARET.DOWN MENU FUNCTION DOBACKGROUNDCOM) \SLOWFTIMES2 (\BOXFTIMES2) UNTRACE ( +NLAMBDA.ARGS CL:FLET MAPCONC CL:REVERSE CL::UNTRACE-ENTRY XCL:UNBREAK-FUNCTION CL:FIRST CL:THIRD) +REMWINDOWPROP (\OUTSTREAMARG \GETSTREAM WFROMDS) CL:PRIN1-TO-STRING (\PRINDATUM.TO.STRING) BSPHELP ( +HELP) \LEAF.RENAMEFILE (GETHOSTINFO \FTP.RENAMEFILE \GENERIC.RENAMEFILE) \SLOWFQUOTIENT (\BOXFQUOTIENT +) COMPILE.FILE.DEFINEQ (ARGTYPE COMPILE1A) SIGNAL (MAKE-INTO-CONDITION) CL::%%LIST-MAP-OPTIMIZER ( +CL:EVAL) DSUBST (COPY) BRKDWNSETUP (LIST BRKDWNFORM KWOTE GETD) FIND.START.OF.WORD (\SYNCODE GETHASH +\GETBASEBYTE FIRSTCHAR TTNEXTCHAR) \UNBOXFLOAT2 (\CALLER.ARGS \MYALINK OPCODES \FLOATBOX \.GETBASE32 +IDIFFERENCE TIMES SELECTQ \HAND.FLOATUNBOX \VAG2 FLOAT FPLUS FDIFFERENCE FTIMES FQUOTIENT FGREATERP +FMAX FMIN FREMAINDER HELP) TWODINSPECT.COLUMNWIDTHS (MAPCAR TWODINSPECT.COLUMNWIDTH) +CREATEMENUEDWINDOW (LENGTH MENUWINDOW PLUS FONTPROP DEFAULTFONT TIMES GETREGION IMAX \ILLEGAL.ARG +FRPLACA IDIFFERENCE CREATEW) MBUTTON.FIND.NEXT.FIELD (\CHTOPC PLUS IDIFFERENCE IPLUS IMAX) +CLISPCAR/CDR1 (SELECTQ FRPLACA CLISPLOOKUP LIST ADD1 FASSOC SHOULDNT) \UNBOXFLOAT1 (SELECTQ +\CALLER.ARGS \MYALINK OPCODES \.GETBASE32 IDIFFERENCE TIMES NCREATE \HILOC \LOLOC \HAND.FLOATUNBOX +\VAG2 FLOAT \FLOATBOX \FLOATUNBOX ABS FMINUS FIX HELP) \FINDPIECE (FINDPCNODE INDEX) BITMAPTEDITOBJ ( +IMAGEOBJCREATE) FW-RESET (MAPC SELECTQ SHOULDNT CONS) GETLIS (GETPROPLIST) CHAT.DEACTIVATE.WINDOW ( +WINDOWPROP CONCAT SUBSTRING IPLUS STRPOS FUNCTION) SEDIT:RESET-FORMATS (CLRHASH +SEDIT::INSTALL-SPECIAL-FORMATS SEDIT::COPY-HASH-TABLE CL:MAKE-HASH-TABLE) %%ASET2 (CL:ARRAY-RANK + CL:* + %%ASET2 %%ARRAY-WRITE CL:ERROR) SEDIT::COMMENT-LENGTH (PLUS NCHARS) %%AREF2 (CL:ARRAY-RANK + CL:* +%%ARRAY-READ CL:ERROR) SPYOBJ.DISPLAY (SPYOBJ.HEIGHT QUOTIENT DIFFERENCE FONTHEIGHT PRIN3 SPYOBJ.LABEL +) \SLOWIGREATERP (NTYPX \LOLOC \FIXP.FROM.FLOATP IQUOTIENT CL::RATIO-NUMERATOR CL::RATIO-DENOMINATOR +IGREATERP LOGXOR \BIGNUM.COMPARE) MAKETEDITFORM (MAKEXXXSUPPORTFORM) ARCTAN (FPLUS FQUOTIENT FTIMES +POLYEVAL \FLOATBOX OPCODES FDIFFERENCE) ATTACHMENU (MENUWINDOW FMEMB) DINFO.HISTORIC.UPDATE ( +WINDOWPROP WFROMMENU FASSOC PROMPTPRINT PRINTOUT PRIN1 GETPROMPTWINDOW DINFO.UPDATE) CLISPATOM2C ( +FUNCTION CONS) \SLOWFGREATERP (LOGAND IGREATERP LISPERROR NTYPX ADD1 IDIFFERENCE IGEQ LOLOC \LOLOC +FLOAT IPLUS LLSH LRSH PLUS SUB1) HRULE.IMAGEBOXFN (DSPSCALE IMAGEOBJPROP IMAX IDIFFERENCE PLUS FIXR +FTIMES) \RTP.HANDLE.INPUT (GETPUP BLOCK PUPSOCKETEVENT \RTP.ACTION) GREATERP (IGREATERP FGREATERP) +SPYOBJ.HEIGHT (FONTHEIGHT MAX QUOTIENT TIMES) RECORD.FIELD.VALUE (ASSOC GETFIELDFORCREATE) EQUAL ( +EQUAL SELECTC NTYPX FEQP \LOLOC \BIGNUM.COMPARE STREQUAL \EXTENDED.EQP EQDEFP) CHANGEPROP (GETPROPLIST + ERRORX LIST) INTERSECTION (CONS) HRULE.GETFN (HRULE.CREATE READ) \BOXIPLUS (.BOXIPLUS. \GETBASE NTYPX + \LOLOC \FIXP.FROM.FLOATP IQUOTIENT CL::RATIO-NUMERATOR CL::RATIO-DENOMINATOR IDIFFERENCE ADD1 IPLUS) +BRKDWNFBOXES (BRKDWNMACRO \BOXIPLUS BRKDWNELT ELT BRKDWNDIFFA IDIFFERENCE \PUTBASEFIXP FBOXCOUNT +BOXCOUNT EVAL) ARCTAN2 (FLOATP FLOAT ARCTAN ABS FQUOTIENT FPLUS FDIFFERENCE FTIMES) SHOWSHADE.IP ( +APPENDOP.IP) SEDIT::CFV-COMMENT (SELECTQ SHOULDNT) \BOXIDIFFERENCE (\GETBASE NTYPX \LOLOC +\FIXP.FROM.FLOATP IQUOTIENT CL::RATIO-NUMERATOR CL::RATIO-DENOMINATOR ADD1 IDIFFERENCE IPLUS) +\TEDIT.REOPEN.STREAM (OPENSTREAM TEXTOBJ \GETBASEPTR \FIRSTNODE) \CURVESLOPE (LENGTH SELECTQ CONS +DIFFERENCE PARAMETRICSPLINE REVERSE NLEFT IMIN LIST ELT MINUS) \HCPYMODEDSPPRINTCHAR (\CARET.DOWN +SELECTC \SYNCODE GETHASH \GETBASEBYTE PLUS FFETCHFIELD IPLUS LOGAND LOGOR SELCHARQ FREPLACEFIELD +SELECTQ MACHINETYPE PLAYTUNE FLASHWINDOW WFROMDS CHARWIDTH UNFOLD LLSH \DISPLAYSTREAMINCRXPOSITION +IDIFFERENCE MOD IMOD IQUOTIENT SHOULDNT) LISTPUT1 (NCONC LIST) TRACE (NLAMBDA.ARGS MAPCONC +XCL:TRACE-FUNCTION CL:FIRST CL:THIRD) \CURVEEND (IDIFFERENCE IABS IMINUS IPLUS ADD1 ITIMES +DSPDESTINATION \GETBASE \TOTOPWDS \FBITMAPBIT \BBTCURVEPT SUB1 PLUS) FW-WIPE (CLOSEW) CL:REPLACE ( +CL:LENGTH - +) \CREATEPIECEORSTREAM (NCHARS OPENSTREAM MKSTRING CHARLOOKS.FROM.FONT) TCONC (CONS ERROR + FRPLACD) IDIFFERENCE (OPCODES) KWOTE (LIST) CURRENT-TTY-READTABLE-NAME (READTABLEPROP PROCESS.EVALV +TTY.PROCESS) \MISC3.UFN (SELECTQ \BLKEXPONENT.UFN \BLKMAG.UFN \BLKSMALLP2FLOAT.UFN \BLKFLOATP2COMP.UFN + \BLKFMAX.UFN \BLKFMIN.UFN \BLKFABSMAX.UFN \BLKFABSMIN.UFN \FLOATTOBYTE.UFN %%SLOW-ARRAY-READ +\LINES-EQUAL-P RAID) PRETTYFILEINDEX (RESETLST LISTGET GETSTREAM LIST FUNCTION OPENSTREAM FULLNAME +\PARSE-FILE-HEADER CONS PFI.MAKE.LPT.STREAM LINELENGTH IQUOTIENT - DSPRIGHTMARGIN DSPLEFTMARGIN +CHARWIDTH FIXR TIMES PFI.LINES.REMAINING APPEND PFI.COLLECT.DEFINERS GETFILEINFO LOGOR CONCAT) +INSURE.WINDOW (\OUTSTREAMARG \GETSTREAM WFROMDS \ILLEGAL.ARG) IGREATERP (OPCODES) +\TFBRAVO.PARSE.PROFILE.VALUE (TIMES FIX) SAMECLOOKS (FONTPROP CONCAT) LSUBST (NCONC COPY LSUBST CONS) +COMPILE.CHECK.ARGTYPE (COMP.ARGTYPE MAPC FMEMB EVALV PRIN1 /SETTOPVAL CONS GETTOPVAL LIST ASSOC TERPRI + REMOVE) CL::STEP-PRINT-VALUES (CL:TERPRI) IQUOTIENT (OPCODES) BMOBJ.IMAGEBOXFN (IMAGEOBJPROP DSPSCALE + IMAGESTREAMTYPE NUMBERP ASSOC FIXR FTIMES TIMES BITMAPWIDTH BITMAPHEIGHT) IDLE.BITMAP (WINDOWPROP +BITMAPWIDTH BITMAPHEIGHT BITMAPCREATE SCREENBITMAP BITMAPP RPLACA IDLE.BITMAP FONTCREATE NCHARS +STRINGWIDTH FONTHEIGHT DSPCREATE DIFFERENCE FONTASCENT) SYMBOL.VALUE (OLD.FIND.SYMBOL LOCAL NCHARS +\GETBASEPTR VADDBASE IPLUS VVAG2 LLSH ITIMES LOGAND) IPLUS (SELECTQ IPLUS ARG ADD1) FW-FORGET-CMD ( +CLOSEW LIST MENU MAPCAR KWOTE REMOVE) CL::%%= (\CALLME) EVERY (APPLY*) \BIGNUM.PLUS (\BN.TO.FIXP +\BN.PLUS2 \BN.FROM.FIXP) LCONC (LAST CONS FRPLACA FRPLACD) TEDIT.SUBLOOKS (\TEDIT.PARSE.CHARLOOKS.LIST + TEXTOBJ \CHTOPC MAPLIST ZEROP \TEDIT.UNIQUIFY.CHARLOOKS + PLUS) MAP2C (APPLY*) +SET-TTY-READTABLE-INTERACTIVELY (PROCESS.EVAL TTY.PROCESS) PLUS (ADD1 ARG IPLUS FPLUS) CL::%%LOG-FLOAT + (FLOAT CL:ERROR - CL::%%UMAKE-FLOAT FQUOTIENT CL:1- CL:1+ CL:* + CL::%%POLYEVAL) \FM.EDIT-STRINSERT ( +CONCAT SUBSTRING SUB1 NCHARS) \FTP.PACK.DIRECTORYNAMEP (ASSOC PACKFILENAME.STRING) +\LEAF.BREAKCONNECTION (FDEVOP SPREADAPPLY* CLOSEF \CLOSELEAFCONNECTION) \BIGNUM.DIFFERENCE ( +\BN.TO.FIXP \BN.DIFFERENCE \BN.FROM.FIXP) COMPILER::COPY-NODE-PROGN (COMPILER::MAKE-PROGN +COMPILER::COPY-NODE-LIST COMPILER::PROGN-STMTS) CL::%%MAPCAR-MULTIPLE (CL:MAKE-LIST LENGTH) COMP.BOOL +(COMP.CONST COMP.EXP1 SELECTQ OPT.COMPILERERROR COMP.EXPR) MAPC (APPLY*) \MISC4.UFN (SELECTQ +\BLKFTIMES.UFN \BLKPERM.UFN \BLKFPLUS.UFN \BLKFDIFF.UFN \BLKSEP.UFN \BITMAPBIT %%SLOW-ARRAY-WRITE RAID +) \10MBSETUPRECEIVER (\QUEUE.INPUT.IOCB) DIFFERENCE (OPCODES) \TFBRAVO.ASSERT (HELP CONCAT) CL:MAPCAR +(CL::%%MAPCAR-SINGLE CL::%%MAPCAR-MULTIPLE CONS) MAP2CAR (CONS APPLY* FRPLACD) ARGTYPE.STATE (MAPC +PRINTOUT EVAL TERPRI) CL::STEP-PRINT (CL:FORMAT MIN) \BIGNUM.COMPARE (\BN.COMPAREN \BN.FROM.FIXP) +DEBUGGER (FIND-LEXICAL-ENVIRONMENT STKNTH DECLARE FIND-DEBUGGER-ENTRY-FRAME RESETSAVE LIST +DBG::REUSE-CURRENT-WINDOW DBG::CREATE-DEBUGGER-WINDOW DBG::SET-UP-DEBUGGER-WINDOW CL:FORMAT +SI::BREAKPOINT-FUNCTION DBG::PRINT-ENTRY-MESSAGE DBG::ATTACH-BACKTRACE-MENU CL:CATCH EXEC CL:FUNCTION) + MAPCON (APPLY*) GET-TWOD-DISPLAYW (CREATEW CREATEREGION FUNCTION TWODINSPECT.ROWPROPWIDTH +TWODINSPECT.COLUMNWIDTHS) TEDIT.OBJECT.CHANGED (TEXTOBJ TEDIT.MAPPIECES FUNCTION) LOGAND (SELECTQ +LOGAND ARG ADD1) \CLEARPCTB (HELP) MAPCAR (CONS APPLY* FRPLACD) \INIT.RTPPROCESS (ADD.PROCESS LIST +FUNCTION KWOTE CREATE.EVENT PROCESS.NAME CREATE.MONITORLOCK) TEDIT.PUT.PCTB (TEXTPROP +TEDIT.FORMATTEDFILEP \GETBASEPTR \FIRSTNODE OPENSTREAM ADD1 GETFILEPTR \TEDIT-OPEN-FONT-FILE PLUS +FLENGTH \TEDIT.PUT.PARALOOKS.LIST \TEDIT.PUT.CHARLOOKS.LIST LOGAND LRSH \BOUT IMAGEOBJPROP APPLY* +IDIFFERENCE GETEOFPTR TEDIT.PUT.OBJECT OPENP \TEDIT.REOPEN.STREAM IPLUS UNFOLD LLSH SUB1 \GETBASEFAT +\GETBASE \GETBASETHIN \GETBASEBYTE CONS EVAL \TEDIT.UNIQUIFY.CHARLOOKS \TEDIT.UNIQUIFY.PARALOOKS) +\BIGNUM.LOGAND (ERROR DIFFERENCE LOGOR LOGNOT \BN.TO.FIXP \BN.LOGANDC2 \BN.FROM.FIXP \BIGNUM.LOGAND +\BN.LOGAND) EXEC-VALUE-OF (CL:VALUES-LIST LISTGET) \HDCPYDISPLAYINIT (FUNCTION) MAPLIST (CONS APPLY* +FRPLACD) CL::%%PRINT-RANDOM-STATE (CL::DEFAULT-STRUCTURE-PRINTER) LOGOR (SELECTQ LOGOR ARG ADD1) +PFI.LOOKUP.NAME (ASSOC) \FM.EDIT-STRDELETE (CONCAT SUBSTRING SUB1 ADD1 NCHARS) *DEFINITION-HASH-TABLE* + (CL:MAKE-HASH-TABLE CL:FUNCTION) MAPCONC (APPLY*) LDIFF (FRPLACD FLAST CONS ERROR) \BIGNUM.LOGOR ( +ERROR \BN.TO.FIXP \BN.LOGOR \BN.FROM.FIXP DIFFERENCE LOGAND) CL::%%MAPLIST-MULTIPLE (CL:MAKE-LIST +LENGTH) \TEDIT.SET.SEL.LOOKS (SELECTQ) CL::%%MAPC-MULTIPLE (CL:MAKE-LIST LENGTH) SEDIT:*INDENT-ALIST* +(LIST LIST*) MAKE.LOCAL.ATOM (ALLOCAL CL:INTERN CL:FIND-PACKAGE CL:MAKE-PACKAGE) LOGXOR (SELECTQ +LOGXOR ARG ADD1) CLISPBROADSCOPE (CONS ADD1 SUB1 LDIFF) PFI.SORT.INDICES (CL:POSITION CONS LIST MAPCAR + SORT CDR CL:SET-DIFFERENCE NCONC) GET-TOPW (WINDOWPROP CREATEW CREATEREGION FUNCTION) \BIGNUM.LOGXOR +(ERROR LOGXOR DIFFERENCE \BIGNUM.DIFFERENCE \BIGNUM.LOGOR \BIGNUM.LOGAND \BIGNUM.LOGXOR \BN.TO.FIXP +\BN.LOGXOR \BN.FROM.FIXP) GTHASHFILE (OPENHASHFILE HELP) \TEDIT.PARSE.SEARCHSTRING (LIST CONS MKATOM +\TEDIT.PARSE.SEARCHSTRING APPEND MKSTRING CONCAT) SET-READTABLE-INTERACTIVELY (MENU SORT) UNCOPYATOM ( +SYMBOL.PNAME PACKAGE.NAME SYMBOL.PACKAGE MAKE.LOCAL.ATOM) ITIMES (SELECTQ ITIMES ARG ADD1) ADD-EXEC ( +XCL::SETUP-EXEC-WINDOW CREATEW ADD.PROCESS LISPINTERRUPTS) CLISPBROADSCOPE1 (DWIMIFY2? LIST FRPLACA +DWIMIFY1?) GET-CORNERW (WINDOWPROP CREATEW CREATEREGION FUNCTION) \BIGNUM.TIMES (\BN.TO.FIXP +\BN.TIMES2 \BN.FROM.FIXP) SEDIT::FIND-SELECTION-BACKWARDS (SEDIT:GET-PROMPT-WINDOW GETPROMPTWINDOW +SEDIT::FIND-AND-DISPLAY-SUBSTRUCTURE-BACKWARDS SEDIT::STRUCTURE-FROM-SELECTION LIST CL:1- SEDIT::PREV-NODE + SEDIT::FIND-AND-DISPLAY-STRUCTURE-BACKWARDS CL:FORMAT) ENTER-DEBUGGER-P (IDIFFERENCE CLOCK) UNBREAK ( +NLAMBDA.ARGS CL:FLET MAPCONC CL:REVERSE XCL::UNBREAK-ENTRY XCL:UNBREAK-FUNCTION CL:FIRST CL:THIRD) +CL::%%RANDOM (CL::RANDOM-STATE-I CL::RANDOM-STATE-J CL::RANDOM-STATE-ARRAY LOGAND - CL:AREF CL:1+) +\TEDIT.FLUSH.UNUSED.LOOKS (LIST) TEDIT.NEW.FIND (HELP) TIMES (ADD1 ARG ITIMES FTIMES) +\FM.EDIT-MOVECARET (\FM.EDIT-GETPOINTERINFO \FM.ITEMPROP FFETCHFIELD IPLUS DSPXPOSITION) \TAN-FLOAT (- + CL:REM ABS FTIMES / POLYEVAL \FLOATBOX OPCODES) TEDIT.LOOKS (TEXTOBJ TEDIT.SETSEL \TEDIT.CHANGE.LOOKS +) CL::%%MAPCAN-MULTIPLE (CL:MAKE-LIST LENGTH) COMPILER::COPY-NODE-MV-PROG1 (COMPILER::MAKE-MV-PROG1 +COMPILER::COPY-NODE-LIST COMPILER::MV-PROG1-STMTS) COMP.PICOUNT (ADD1) RATOMS (RATOM TCONC) +\BIGNUM.QUOTIENT (ERROR \BN.TO.FIXP \BN.DIVIDE \BN.FROM.FIXP) CL:MAPC (CL::%%MAPC-SINGLE +CL::%%MAPC-MULTIPLE CONS) CL:MAPLIST (CL::%%MAPLIST-SINGLE CL::%%MAPLIST-MULTIPLE CONS) PUTASSOC ( +ERRORX LIST CONS) \RTP.ACTION (SELECTC LIST LOCF) \SETUPGETCH (IMAX \CHTOPC - IDIFFERENCE IMAGEOBJPROP + ADD1 \TEDIT.APPLY.PARASTYLES \TEDIT.APPLY.STYLES) QUOTIENT (IQUOTIENT FQUOTIENT /) EXEC-EVAL ( +GET-NEXT-HISTORY-EVENT LIST* EXEC-EVENT-VALUE CL:VALUES-LIST) \MAP.ROUTING.TABLE (NTYPX CL:ERROR +APPEND \GETBASEPTR CL:FUNCALL PLUS \ADDBASE) CL:MAPCAN (CL::%%MAPCAN-SINGLE CL::%%MAPCAN-MULTIPLE CONS +) SPYOBJ.GET (IMAGEOBJCREATE READ) COMP.EVQ (RESETVARS .RESETLST. LIST CONS CL:MULTIPLE-VALUE-PROG1 +.UNWIND.PROTECT. FUNCTION COMP.PROGLST) NU\TOTOPWDS (DSPDESTINATION TOTOPW WFROMDS) CL:MAPCON ( +CL::%%MAPCON-SINGLE CL::%%MAPCON-MULTIPLE CONS) TAN (\TAN-FLOAT FTIMES) COMPILE-FILE-WALK-FUNCTION ( +CL:VALUES INTERLISP-NLAMBDA-FUNCTION-P) CL::%%MAPCON-MULTIPLE (CL:MAKE-LIST LENGTH) +DINFO.UPDATE.FROM.MENU (DINFO.UPDATE WINDOWPROP WFROMMENU) SPYOBJ.IMAGEBOX (SPYOBJ.HEIGHT STRINGWIDTH +SPYOBJ.LABEL) \PUTBASEFIXP.UFN (SELECTC NTYPX \LOLOC LISPERROR ADD1) CL::%%SQRT2 (CL::%%FLOAT) +\FM.EDIT-GETPOINTERINFO (IDIFFERENCE NCHARS PLUS CHARWIDTH NTHCHARCODE CONS STRINGWIDTH SUBSTRING SUB1 + ADD1) CHAT.BIN (\GETKEY) RPT (EVAL SUB1) EQDEFP (SUB1 UNFOLD LLSH IMIN \#BLOCKDATACELLS \GETBASE +INDEXF ADD1 PLUS) COMPILER::COPY-NODE-MV-CALL (COMPILER::MAKE-MV-CALL COMPILER::COPY-NODES +COMPILER::MV-CALL-FN COMPILER::COPY-NODE-LIST COMPILER::MV-CALL-ARG-EXPRS) COMP.CPI1 (COMP.CPI1 SUB1 +COMP.STPOP) FRPTQ (EVAL APPLY SUB1) COPYATOM (CL:SYMBOL-PACKAGE CONCAT CL:PACKAGE-NAME HELP LOCAL +NCHARS IPLUS NTHCHARCODE PLUS \ATOMDEFINDEX NTYPX \LOLOC SHOULDNT \MKATOM) \BIGNUM.REMAINDER (ERROR +\BN.TO.FIXP \BN.DIVIDE \BN.FROM.FIXP) COMPILER::COPY-NODE-OPCODES (COMPILER::MAKE-OPCODES CL:COPY-LIST + COMPILER::OPCODES-BYTES) RPTQ (EVAL APPLY SUB1) CL::%%EVERY-MAP-OPTIMIZER (CL:EVAL) \BIGNUM.LSH ( +ERROR \BN.FROM.FIXP IDIFFERENCE CONS \BN.TO.FIXP \BN.TIMES2 EXPT IPLUS \BIGNUM.QUOTIENT IMINUS MINUS +\BIGNUM.LSH SUB1) WHITESPACE-CHAR-P (CL:MEMBER FUNCTION) SEDIT::FIND-SELECTION (SEDIT:GET-PROMPT-WINDOW + GETPROMPTWINDOW SEDIT::FIND-AND-DISPLAY-SUBSTRUCTURE SEDIT::STRUCTURE-FROM-SELECTION LIST CL:1+ +SEDIT::NEXT-NODE SEDIT::FIND-AND-DISPLAY-STRUCTURE CL:FORMAT) \BSP.OTHERBOUT (\BOUT \DTEST LISPERROR) +CL::%%MAPL-MULTIPLE (CL:MAKE-LIST LENGTH) TRANSMIT.ETHERPACKET (APPLY* \DTEST) \RSH (LSH IMINUS NTYPX +\LOLOC \FIXP.FROM.FLOATP IQUOTIENT CL::RATIO-NUMERATOR CL::RATIO-DENOMINATOR IDIFFERENCE IPLUS LRSH +LLSH LOGAND \MAKENUMBER \BIGNUM.LSH) RECURSIVELY-ANALYZE (ANALYZE) SAVEDEF1 (GETD SELECTQ FNTYP) +INTERLISP-NLAMBDA-FUNCTION-P (ARGTYPE) CL:MAPL (CL::%%MAPL-SINGLE CL::%%MAPL-MULTIPLE CONS) RSH (\RSH) + FW-CREATEW (CREATEW) TWODINSPECT.RESHAPEFN (WINDOWPROP) \TELERAIDBREAK (\GETBASEPTR STACKADDBASE +\VAG2 LIST LOGAND LRSH LLSH \GETBASE SELECTQ \KEYNAMETONUMBER IPLUS \MAKEFRAME FUNCTION +\FREESTACKBLOCK UNFOLD) MAKEHARDCOPYMODESTREAM (DISPLAYSTREAMP WINDOWPROP DSPCREATE \ILLEGAL.ARG +PRINTERPROP PRINTERTYPE FUNCTION DSPFONT DSPRIGHTMARGIN FIXR FTIMES DSPCLIPPINGREGION) +CENTERPRINTINREGION (DSPCLIPPINGREGION CENTERPRINTINAREA) MINUSP (<) SEDIT::BACKSPACE-COMMENT ( +SEDIT::CLOSE-NODE NCHARS SEDIT::SET-SELECTION-NOWHERE) CLOSERTPSOCKET (CL:MULTIPLE-VALUE-PROG1 +.UNWIND.PROTECT. FUNCTION SETUPTIMER \RTP.ACTION) ILESSP (IGREATERP) IMINUS (IDIFFERENCE) +BREAK-FUNCTION (XCL:TRACE-FUNCTION MAPCONC BREAK-FUNCTION GETD CL:ERROR CL:MAKE-SYMBOL CL:FORMAT +CL:COMPILE SI::CREATE-BROKEN-DEFINITION GET CL:DELETE LIST SI::CONSTRUCT-MIDDLE-MAN) SUB1 (IDIFFERENCE +) \CHANGECHARSET.HDCPYDISPLAY (FONTCREATE STREAMPROP FONTPROP \GETCHARSETINFO \GETBASEPTR UNFOLD LLSH +\CREATECHARSET CONSTANT \CREATECSINFOELEMENT \ALLOCBLOCK FOLDHI LRSH IPLUS FQUOTIENT \PUTBASE FIXR +FTIMES \FGETWIDTH \GETBASE PLUS) SELECT1 (EVAL) DO.LF (\DSPPRINTCR/LF) \10MBRAWENCAPSULATE (IPLUS +FOLDHI LRSH \BLTLOCALHOSTNUMBER \BLT LOCF \ADDBASE) ZEROP (\FZEROP) *WHO-LINE-PACKAGE-NAME-CACHE* ( +LIST) SELECT (APPLY SELECT1 EVAL) \TEDIT.CHANGE.LOOKS (TEXTOBJ LISTGET FMEMB CONS NLSETQ \DTEST CONCAT + IMIN ADD1 IPLUS \CHTOPC \SPLITPIECE - SUB1 \TEDIT.UNIQUIFY.CHARLOOKS NCONC1 \TEDIT.FONTCOPY FONTPROP +IMINUS \TEDIT.CARETLOOKS.VERIFY LIST) DINFO (RESETLST WINDOWP CREATEW RESETFORM TTYDISPLAYSTREAM +GETPROMPTWINDOW DINFO.READ.GRAPH CREATE.MONITORLOCK LIST) ADD1 (IPLUS) SELECTC (APPLY EVAL) \CHTOPCNO +(IPLUS IMAX) HRULE.DISPLAYFN (IMAGEOBJPROP REVERSE DSPSCALE DSPXPOSITION DSPYPOSITION ODDP FLENGTH +IMAX FIXR FTIMES IMAGESTREAMTYPE IPLUS LRSH PLUS) CLISPATOM2A (CONS FIXSPELL DWIMIFY1) +PFI.COMPUTE.INDEX.SHAPE (NCHARS LENGTH + RPLACA CONCATLIST MAPCONC LIST MAX MIN IQUOTIENT LINELENGTH +CL:CEILING) GCD (GCD MINUS IREMAINDER) \TEDIT.SUBST.FN1 (\TEDIT.SUBST.FN2) \OPENLEAFCONNECTION ( +GETHOSTINFO BESTPUPADDRESS CONS \INTERNAL/GETPASSWORD WITH.MONITOR CL:MULTIPLE-VALUE-PROG1 +.UNWIND.PROTECT. FUNCTION NCREATE \CREATECELL CREATE.MONITORLOCK CONCAT PACK* LIST ALLOCATE.PUP + +LOGOR \FIXPASSWORD TIMES IQUOTIENT) SOME (APPLY*) CL::%%MAKE-RANDOM-ARRAY (CL:MAKE-ARRAY CLOCK IDATE +CL:MAPCAR CL:FUNCTION) IEQP (IDIFFERENCE) SETQQ (SET) CL::%%NOT-INTEGER-ERROR (CL:ERROR) +\BITMAPSIZE.IP (SELECTQ TIMES BITMAPWIDTH CONSTANT FQUOTIENT BITMAPHEIGHT CONS \ILLEGAL.ARG) +XCL::ADJUST-IMPLICIT-KEY-HASH (UNINTERRUPTABLY XCL::IK-HASH-BASE XCL::IK-HASH-LAST-INDEX +XCL::IK-HASH-NUM-SLOTS XCL::IK-HASH-NUM-KEYS XCL::IK-HASH-NULL-SLOTS XCL::IK-HASH-KEY-ACCESSOR) +\BIGNUM.INTEGERLENGTH (\BN.INTEGERLENGTH \BN.FROM.FIXP) CLISPATOM1B (CONS LIST GETHASH) STRMEMB ( +SUBSTRING NTHCHARCODE ADD1) \RTP.SHOW.FAILURE (PRIN1 ETHERHOSTNAME) SPYOBJ.SAVE (PRIN2) +SET-PACKAGE-INTERACTIVELY (MENU SORT CL:LIST-ALL-PACKAGES CL:PACKAGE-NAME LIST WHO-LINE-COPY-INSERT +CONCAT CL:IN-PACKAGE) SUBSET (CONS FRPLACD APPLY*) \TFBRAVO.PARSE.PROFILE.PARA (GETFILEPTR U-CASE +RATOMS CHARACTER \TFBRAVO.PARSE.PROFILE.VALUE \TFBRAVO.HANDLE.HEADING IQUOTIENT IDIFFERENCE CONSTANT +TIMES ITIMES TEXTPROP SUB1) ANALYZE-REST (CL:LENGTH CL:FIRST CL:SECOND CL:THIRD GENSYM) SUB1VAR (SET +SUB1 EVAL) CL::STEP-FORM (+ CL:VALUES-LIST) CL::STEP-EVAL (CL:VALUES-LIST) FW-CREATE-OFD-WINDOWS ( +FW-CREATEW WINDOWPROP FUNCTION FW-ADJUST-PLACEMENT) SPY.PRINT (LIST CONCAT) COMPILEMODE (ASSOC ERROR +EVAL SET) CHARLOOKS.FROM.FONT (FONTP FONTPROP) TOPW.RESHAPEFN (TOPW.REPAINTFN DSPCLIPPINGREGION) +SEDIT::FIND-OBJ (SEDIT::CLOSE-OPEN-NODE SEDIT::CLOSE-NODE SEDIT::FIND-SELECTION-BACKWARDS +SEDIT::FIND-SELECTION SEDIT::SEARCH-OBJ-BACKWARDS SEDIT::SEARCH-OBJ) \HDCPYBLTCHAR (\CHAR8CODE LOGAND +\CHARSET LRSH \SLOWHDCPYBLTCHAR IPLUS \FGETWIDTH \GETBASE IMAX ADD1 IQUOTIENT CONSTANT +\DSPGETCHARWIDTH DSPDESTINATION \TOTOPWDS IDIFFERENCE \DSPGETCHAROFFSET) INTERLISP-FORMAT-P (SELCHARQ +PEEKCCODE) TTSKIPSEPR (FMEMB FIRSTCHAR TTNEXTCHAR) \10MBRAWTRANSMIT (IMAX \10MB.GETPACKETSTATUS) FLOAT + (\DTEST) CL::%%LOG2 (CL::%%FLOAT) \FM.EDIT-DELETE (\FM.ITEMPROP FFETCHFIELD LISTGET IPLUS FONTPROP +LASTMOUSEX LASTMOUSEY LOGAND ILESSP \FM.EDIT-GETPOINTERINFO IDIFFERENCE MINUS \FM.EDIT-STRDELETE SUB1 +STRINGWIDTH) CHAT.SCREENPARAMS (IMIN IQUOTIENT WINDOWPROP IABS IMINUS DSPLINEFEED LINELENGTH CONCAT +SUBSTRING SUB1 STRPOS NTHCHAR) MERGEINSERT (/NCONC1 STRPOS MERGEINSERT1 SOME /ATTACH) +COMPILER::COPY-NODE-LITERAL (COMPILER::MAKE-LITERAL COMPILER::LITERAL-VALUE) COMP.CPI (COMP.PICOUNT +FASSOC) \TTW1 (DSPDESTINATION \GETBASE \TOTOPWDS INTERSECTREGIONS TRANSLATEREG OPENW) CL::%%/ (\CALLME + IREMAINDER IQUOTIENT) PUSH-KEYWORD-BINDING (CHECK-PARAMETER-NAME) NLSETQ (ERRORSET CONS) +CL::STEP-COMMAND (CL:EVAL CL:EVALHOOK LIST) REMAINDER (IREMAINDER FREMAINDER) ARCSIN (FLOATP FLOAT +FDIFFERENCE SQRT FTIMES FPLUS) ENCAPSULATE.ETHERPACKET (APPLY* \DTEST) SHOWBITMAP1.IP (ITIMES +BITMAPCREATE CEIL LOGAND IPLUS CONSTANT SUB1 LOGXOR \ADDBASE IDIFFERENCE IMOD EQL - FOLDHI LRSH PLUS) +FREMAINDER (FDIFFERENCE FTIMES FLOAT FIX FQUOTIENT) SET-TTY-PACKAGE-INTERACTIVELY (PROCESS.EVAL +TTY.PROCESS) CLISPATOM2 (GETPROP GETP LIST CLISPATOM2C DWIMIFY2? LDIFF LISTGET1 MAPCONC CONS +CLISPANGLEBRACKETS APPLY* NLEFT CLISPCAR/CDR CLISPATOM2D SELECTQ CLISPRECORD CLISPLOOKUP APPEND +DWIMERRORRETURN PRINT MINUS NEGATE) *WHO-LINE-VALUE-FONT* (FONTCREATE) LESSP (IGREATERP FGREATERP) +\SIN-FLOAT (- + CL:REM FTIMES / POLYEVAL \FLOATBOX OPCODES) \TEDIT.FIND.WC (\TEDIT.FIND.WC1 LIST IMAX +\TEDIT.SUBST.FN1 ADD1 \TEDIT.FIND.WC) WALK-TEMPLATE (DECLARE) COPY.SEGMENT (LIST) +\FTP.FIX.BROKEN.INPUT (GETFILEPTR PRIN1 \FTP.OPENFILE.FROM.PLIST FILENAMEFIELD \FTP.ADD.USERINFO LIST +BSPOUTPUTSTREAM) MINUS (FDIFFERENCE DIFFERENCE) CL::%%EXPT-FLOAT-INTEGER (FQUOTIENT +CL::%%EXPT-FLOAT-INTEGER - FLOAT) ARCCOS (FLOATP FLOAT FDIFFERENCE ARCSIN) CHAT.LOGIN (GETOSTYPE +GETHOSTINFO WINDOWPROP CHAT.LOGINFO \INTERNAL/GETPASSWORD ASSOC PRIN1 SELECTQ FORCEOUTPUT PRIN3 +\DECRYPT.PWD DISMISS) XNLSETQ (ERRORSET) WINDOWADDPROP (WINDOWPROP LIST CONS REMOVE NCONC1 APPEND) +FMINUS (FDIFFERENCE) COMPILER::COPY-NODE-LAMBDA (COMPILER::MAKE-LAMBDA COMPILER::LAMBDA-NAME +COMPILER::LAMBDA-ARG-TYPE COMPILER::LAMBDA-NO-SPREAD-NAME COMPILER::LAMBDA-ALLOW-OTHER-KEYS +COMPILER::LAMBDA-REQUIRED MAPCAR COMPILER::COPY-VARIABLE COMPILER::LAMBDA-OPTIONAL LIST CL:FIRST +COMPILER::COPY-NODES CL:SECOND CL:THIRD COMPILER::LAMBDA-REST COMPILER::LAMBDA-KEYWORD CL:FOURTH +COMPILER::LAMBDA-BODY) ERSETQ (ERRORSET CONS) RESETLST (RESETLST \EVPROGN) \ATMIN (\SMALLPIN SUB1 LLSH + IDIFFERENCE PACK CHARACTER \BIN LIST PLUS) CL:CODE-CHAR (\HILOC) WALK-FORM-INTERNAL ( +CL:MULTIPLE-VALUE-SETQ CL:FUNCALL WALK-FORM-INTERNAL XCL::GET-WALKER-TEMPLATE WALK-TEMPLATE +CL:MACROEXPAND-1 CL:ERROR) FNTH (CONS SUB1) SEDIT::FIND-NODE-SUBSTRUCTURE-BACKWARDS (CL:FIRST) +\SLOWHDCPYBLTCHAR (\CHAR8CODE LOGAND IPLUS \DSPGETCHARWIDTH \GETBASE \DSPTRANSFORMX IMAX IMIN +IDIFFERENCE \DSPGETCHAROFFSET LLSH DSPDESTINATION \TOTOPWDS \GETCHARSETINFO \GETBASEPTR UNFOLD +\CHARSET LRSH \CREATECHARSET ADD1) CL:CHAR-NAME (CL:CHAR-CODE LRSH LOGAND CONCAT CL:CODE-CHAR LOGOR - +OCTALSTRING) IDATE (DAYTIME MKSTRING \IDATESCANTOKEN NTHCHARCODE PLUS \IDATE-PARSE-MONTH SELECTQ +IREMAINDER IQUOTIENT FIXP ADD1 + ILEQ LOGAND - SUBSTRING SUB1 \PACKDATE) RESETSAVE (CONS GETTOPVAL +\EVAL LIST) DASSEM.ASMAJ (GETP OPT.JSIZE SELECTQ COMPILER.ERROR LIST IPLUS CONS PLUS LOGAND RSH LRSH) +SEDIT::FIND-NODE-SUBSTRUCTURE (CL:FIRST) CL:CHAR-CODE (\LOLOC \DTEST) RESETFORM (LIST \EVAL +CL:MULTIPLE-VALUE-PROG1 .UNWIND.PROTECT. FUNCTION \EVPROGN) SEDIT:RESET (ERROR) \TEDIT.FONTCOPY ( +NLSETQ FONTCOPY FONTPROP CONCAT LISTGET) CL::%%EXPT-INTEGER (/ CL::%%EXPT-INTEGER - CL:ASH CL:ERROR) +\FM.EDIT-BACKUP (SUB1 CHARWIDTH NTHCHARCODE \FM.ITEMPROP FFETCHFIELD MINUS DSPXPOSITION +DSPCLIPPINGREGION \FM.EDIT-SCROLLAMOUNT IQUOTIENT WINDOWPROP IDIFFERENCE IPLUS FONTPROP +\FM.EDIT-STRDELETE \FM.EDIT-UPDATEAFTERDELETE) \FTP.RECOGNIZEFILE (RESETLST \FTP.UNPACKFILENAME ASSOC +CONS SELECTQ GETHOSTINFO LIST \GETFTPCONNECTION MARK# FTPPUTMARK FTPGETMARK FTPGETCODE .FTPDEBUGLOG. +\FTP.PACK.DIRECTORYNAMEP READPLIST MKATOM + \FTP.PACKFILENAME) COMPILER::COPY-NODE-LABELS ( +COMPILER::MAKE-LABELS COMPILER::LABELS-FUNS MAPCAR COMPILER::COPY-VARIABLE CONS COMPILER::COPY-NODE-LAMBDA + LIST COMPILER::LABELS-BODY COMPILER::COPY-NODES) TEDIT.COPY.PARALOOKS (TEXTOBJ) COMP.ANONP (FMEMB GET +) RESETVARS (MAPCAR CONS GETTOPVAL CL:MULTIPLE-VALUE-PROG1 .UNWIND.PROTECT. FUNCTION SETTOPVAL +\EVPROG1 APPLY) RAND (LOGAND IDIFFERENCE IREMAINDER FTIMES FQUOTIENT CONSTANT FLOAT ADD1 IGREATERP +IPLUS IMOD \MAKENUMBER FPLUS FDIFFERENCE) DASSEM.DSTOREFN (CONS ADD1 COMPILER::ENV-TARGET-ARCHITECTURE + AST) \BSP.HANDLE.INPUT (PUPSOCKETEVENT GETPUP LIST) INITUFNTABLE (PLUS IDIFFERENCE IPLUS SELECTQ +SHOULDNT) IMOD (IREMAINDER IPLUS) RANDSET (CLOCK IDATE LENGTH FIXP MAPCAR IPLUS LOGAND LOGXOR ITIMES +LAST CONS FNTH LIST PLUS) COMP.NOSIDEEFFECTP (COMP.CLEANEXPP) \INTERNALTOTOPW (\INSUREWINDOW +\INTERNALTOTOPW) EXPT (FEXPT TIMES RSH FLOAT FQUOTIENT IMINUS LRSH) CHECK-PARAMETER-NAME (CL:CERROR) +\FM.EDIT-WORDDELETE (SUB1 \FM.ITEMPROP FFETCHFIELD NTHCHARCODE IPLUS STRINGWIDTH SUBSTRING MINUS +FONTPROP \FM.EDIT-STRDELETE DSPXPOSITION DSPCLIPPINGREGION \FM.EDIT-SCROLLAMOUNT IQUOTIENT WINDOWPROP +\FM.EDIT-UPDATEAFTERDELETE) CL:CHAR-INT (CL:CHAR-CODE) CURRENT-TTY-PACKAGE (PROCESS.EVALV TTY.PROCESS +ASSOC PUTASSOC CONCAT CL:PACKAGE-NICKNAMES CL:PACKAGE-NAME) CHARACTER.PRINT (CL:CHAR-NAME IPLUS + +CL:LENGTH FRESHLINE CL:CHAR-CODE) \FTP.OPEN.CONNECTION (BESTPUPADDRESS OPENBSPSTREAM CONS FUNCTION +BSPOUTPUTSTREAM \CANONICAL.HOSTNAME ETHERHOSTNAME CLOSEBSPSTREAM) \D0.STARTIO (OPCODES) +\10MBRAWRECEIVE (\10MB.GETPACKETSTATUS \10MB.GETPACKETLENGTH) PutUnboxed (\PUTFIXP) +\HCPYMODEDISPLAYINIT (FUNCTION) RESETVAR (LIST CONS GETTOPVAL CL:MULTIPLE-VALUE-PROG1 .UNWIND.PROTECT. + FUNCTION \EVAL) \PUTFIXP (NTYPX \LOLOC \FIXP.FROM.FLOATP IQUOTIENT CL::RATIO-NUMERATOR +CL::RATIO-DENOMINATOR) CL:CHAR-BIT (CL:ERROR) \PUTSWAPPEDFIXP (NTYPX \LOLOC \FIXP.FROM.FLOATP +IQUOTIENT CL::RATIO-NUMERATOR CL::RATIO-DENOMINATOR) WORD.MATCHES.BUFFER (\SYNCODE GETHASH +\GETBASEBYTE FIRSTCHAR TTNEXTCHAR NTHCHARCODE PLUS LOGXOR) PRINT-READER-ENVIRONMENT (PRINT CONS) +SEDIT:SEDIT (LISTGET SEDIT::GET-CONTEXT WINDOWPROP SEDIT:SEDIT) \STRINGWIDTH.HCPYDISPLAYAUX (ADD1 +\GETBASEFAT \GETBASE \GETBASETHIN \GETBASEBYTE PLUS \CHARSET LRSH \GETCHARSETINFO \GETBASEPTR UNFOLD +LLSH \CREATECHARSET \FGETIMAGEWIDTH \CHAR8CODE LOGAND \FGETCHARIMAGEWIDTH \FGETWIDTH SUB1 IPLUS +FUNCTION) \BSP.DEFAULT.ERROR.HANDLER (ERROR CONCAT) CL:INT-CHAR (CL:CODE-CHAR) CL:GRAPHIC-CHAR-P ( +CL:CHAR-CODE LRSH LOGAND CONSTANT) CL:MOD (FLOAT - CL:* UFIX FQUOTIENT + CL:REM) POWEROFTWOP ( +SYSTEMTYPE LOGAND CONSTANT SUB1 EXPT POWEROFTWOP RSH .2^NP.) XCL::IMPLICIT-KEY-REHASH (CL:ERROR +XCL::CLEAR-IMPLICIT-KEY-HASH XCL::IK-HASH-NUM-SLOTS XCL::IK-HASH-BASE CL:1+ XCL::IK-HASH-LAST-INDEX +\ADDBASE XCL::IK-HASH-KEY-ACCESSOR) CL:NAME-CHAR (CHARCODE.DECODE STRING CL:CODE-CHAR) +*WHO-LINE-NAME-FONT* (FONTCREATE) CLISPATOM1A (GETPROP GETP ADD1 SUB1 LIST) GETSCREENPOSITION (WFROMDS + WINDOWOP SPREADAPPLY*) CLUNARYMINUS? (FIXSPELL1 CONS NCONC LIST RETDWIM2) CH.RETRIEVE.DOMAIN.ACL ( +CH.GETAUTHENTICATOR COURIER.CALL CH.FINDSERVER PARSE.NSNAME COURIER.FETCH) ERRORX (SETERRORN RESETLST +FIND-DEBUGGER-ENTRY-FRAME LIST) SETY.IP (FIXR DIFFERENCE <=) \INSERT.FIRST.PIECE (\CREATEPIECEORSTREAM + CHARLOOKS.FROM.FONT ALLOCSTRING) TEDIT.MAKESEL (IMAX IPLUS) \GS.INITBUF (IDIFFERENCE IPLUS SUB1 +NCHARS) RPLNODE (LIST RPLACD) CL:SET-CHAR-BIT (CL:ERROR) ODDP (LOGAND CL:MOD) EDITTOGGLELABEL ( +RESETFORM TTYDISPLAYSTREAM CLRPROMPT WINDOWPROP READ/NODE printout TERPRI) PASTEFROMCLIPBOARD ( +GETCLIPBOARD PROCESS.WINDOW TTY.PROCESS COPYINSERT GNCCODE) FMIN (FLOAT ARG NUMBERP LIST) LOAD? ( +FINDFILE LISPERROR ROOTFILENAME GETPROP FILENAMEFIELD FILEDATE LOAD) TEDIT.SELECT ( +TEDIT.SELECT.LINE.SCANNER \TEDIT.LINE.LIST FIXR FQUOTIENT IDIFFERENCE IMAX ADD1 IMIN) +COMPILER::ENV-PROCLAIMED-SPECIAL-P (CL:MEMBER COMPILER::ENV-DECLARED-SPECIALS COMPILER::FIND-TOP-ENVIRONMENT +) SCALE/TONODES (MAPCAR APPEND LISTGET FIX/SCALE) PRINT-LOADED-FILE-INFORMATION (NAMEFIELD GETPROP +TERPRI) LOADCOMP? (FINDFILE GETPROP NAMEFIELD) FILESLOAD (DOFILESLOAD NLAMBDA.ARGS) HVFWDCDREAD (ADD1 +CONS READ) TEDIT.SUBPARALOOKS (\TEDIT.PARSE.PARALOOKS.LIST TEXTOBJ \CHTOPC MAPLIST ZEROP +\TEDIT.UNIQUIFY.PARALOOKS + PLUS) \TEDIT.FINDAGAIN (\TEDIT.FIND) LOADCOMP (RESETLST FINDFILE LIST +FUNCTION NAMEFIELD GETPROP LOADFNS) CLISPRECORD (GETLOCALDEC LIST SHOULDNT RECORDTRAN NCONC FRPLACA +RECLISPLOOKUP CONS CONSFN) \INSPECTW.REDISPLAYPROP (WITH-INSPECTOR-ENV WINDOWPROP XCL::PROFILIZE +CL:PROGV XCL::PROFILE-VARIABLES XCL::PROFILE-VALUES ITEMOFPROPERTYVALUE INSPECTW.FETCH DSPTEXTURE +PRINTATBOX) FLESSP (FGREATERP) \COURIER.ATTENTIONFN (GETSPPCON FFETCHFIELD OVERWRITEABLE LOGAND \EOFP +SPREADAPPLY* FUNCTION PRIN1) NLAMBDA.ARGS (LIST CONS NLAMBDA.ARGS) \CIRCSHADE.XSCAN.IP (IDIFFERENCE +ITIMES IPLUS ADD1 SUB1) CL::ASSIGN-STRUCTURE-REPRESENTATION (CL::PS-LOCAL-SLOTS) SPY.OVERFLOW (PLUS) +\3MBRAWTRANSMIT (\DTEST UNINTERRUPTABLY \GETPACKETBUFFER ADD1) GENSYM? (NTHCHARCODE NTHCHAR) +ADD.BORDER.TO.BITMAP (BITMAPCREATE IPLUS ITIMES) COMPILER::COPY-NODE-IF (COMPILER::MAKE-IF +COMPILER::COPY-NODES COMPILER::IF-PRED COMPILER::IF-THEN COMPILER::IF-ELSE) IMAX (ARG) \LFEntryPoint ( +ATOM STRINGP MACHINETYPE \PFGetLVPage \LFNormalizeVolumeName \LFFindDirectoryVol) RPAQQ (SAVESET) +LISPINTERRUPTS.PASTE (APPEND LIST LISPINTERRUPTS.ORIG) CL:ALPHANUMERICP (CL:ALPHA-CHAR-P) TB.MAP.ITEMS + (\DTEST MAPC CL:FUNCALL) SETATOMVAL (SETTOPVAL) COMPILER::ENV-PROCLAIM-SPECIAL ( +COMPILER::ENV-DECLARED-SPECIALS COMPILER::FIND-TOP-ENVIRONMENT) IMIN (ARG) SI::ADVICE-DELDEF (DECLARE +REMHASH) COMPLEX-COMPARE-BACKWARD (-) GETBOXSCREENPOSITION (WINDOWOP SPREADAPPLY*) VALUEOF (VALUOF +EDITFINDP) CL:BOTH-CASE-P (CL:UPPER-CASE-P CL:LOWER-CASE-P) SEDIT::REPLACE-STRING (IDIFFERENCE NCHARS +ADD1 SEDIT::REPLACE-CHARS) CLBINARYMINUS? (CONS NCONC LIST RETDWIM2 /RPLNODE MINUS) ROT (IMOD +IDIFFERENCE DEPOSITBYTE LOGOR BITCLEAR LOGAND LOGNOT MASK.1'S LSH SUB1 LOADBYTE IMINUS) +SI::GET-DESCRIBERS (GET) BRKDWNRESULTS (RPLACA MAPCAR BRKDWNRESULTS1 LIST FLTFMT MAPC FNTH ASSOC +BRKDWNRESULTS2 ADD1VAR) CL:DIGIT-CHAR-P (CL:CHAR-CODE CONSTANT - +) READATABASE (RATOM READ FASSOC +MKLIST) RPAQ? (GETTOPVAL SETTOPVAL EVAL) LOADFROM (LOADFNS LAST) \GETBRUSH (\BRUSHBITMAP) SETYREL.IP ( +FREPLACEFIELD + FFETCHFIELD <=) MAX (ARG NUMBERP LIST) \3MBRAWRECEIVE (\READRAWPBI ADD1) ADJUSTLINE (- + IMIN TIMES IMAX + LRSH OVERFLOWLINE? FIND.LINE.BREAK NTH.RELATIVE.COLUMN.OF NTH.COLUMN.OF SUB1 +SEGMENT.BIT.LENGTH NLEFT INSERT.NODE PLUS TTBITWIDTH SUB1VAR FRPLACA INSERTLINE) RPAQ (SAVESET EVAL) +\UPDATE.PBT.RASTERWIDTHS (\MAPMDS FUNCTION) COMPILER::COPY-NODE-GO (CL:GETHASH COMPILER::GO-TAGBODY +COMPILER::MAKE-GO COMPILER::GO-TAG) MIN (ARG NUMBERP LIST) COMP.CLEANFNOP (APPLY*) \MACOUTCHARFN ( +\PRINTCCODE \RECODECCODE) PRINT-LISP-INFORMATION (PRINTOUT LIST OUTPUT CL:MULTIPLE-VALUE-PROG1 +.UNWIND.PROTECT. FUNCTION CL:LISP-IMPLEMENTATION-TYPE CL:LISP-IMPLEMENTATION-VERSION CL:MACHINE-TYPE +CL:MACHINE-VERSION CL:MACHINE-INSTANCE CL:SOFTWARE-TYPE CL:SOFTWARE-VERSION +PRINT-LOADED-FILE-INFORMATION) \NSFILING.HANDLE.ERROR (PRIN1 WITHOUT.SESSION.MONITOR CL:ERROR) +FILL/GRAPHNODE/LABEL (WINDOWP DISPLAYSTREAMP IPLUS IDIFFERENCE) \PUTBASEFLOATP (\FLOATBOX \.PUTBASE32 +\PUTBASEPTR \FLOATUNBOX) FB.UNDELETEALLCOMMAND (FUNCTION FB.UPDATE.COUNTERS) OCTALSTRING ( +GLOBALRESOURCE CONCAT \CONVERTNUMBER GETRESOURCE NEWRESOURCE ALLOCSTRING) READ-FILECREATED (GETFILEPTR +) BREAKDOWN (NLAMBDA.ARGS SUBSET GETD ADD1 MAPC BREAK0 PRINT NCONC1 CONS BRKDWNSETUP BRKDWNARRAY ARRAY + NCREATE PLUS BRKDWNCLEAR MAPCAR CAR) FORMAT-EXP-AUX (CL:PRIN1) \GETBASEFLOATP (\FLOATBOX \.GETBASE32) + INSPECTW.REPLACE (WINDOWPROP LIST KWOTE \INSPECTW.REDISPLAYPROP) DMPHASH (MAPC ERSETQ EVALV LIST +HARRAYSIZE KWOTE HARRAYPROP) MAKE-NETWORK-TRACE-WINDOW (EVALV WINDOWPROP WFROMDS CREATEW CONS FUNCTION + FONTCREATE SET) FTIMES (FLOAT ARG ADD1 FTIMES) CL:ALPHA-CHAR-P (CL:CHAR-CODE <= CONSTANT) FEXPT ( +ANTILOG FTIMES FLOATP FLOAT LOG) REPLACESTKARG (REPLACESTKARG NTH STACKP SETSTKARG FRAMESCAN) +CHECKIMPORTS (FINDFILE GETPROP ROOTFILENAME GETFILEINFO LIST ASKUSER MAPCAR CAR MAPC IMPORTFILE) FPLUS + (FLOAT ARG ADD1 FPLUS) \DECODEPRESSFACEBYTE (IDIFFERENCE LIST) MOVD (UNINTERRUPTABLY COPY VIRGINFN +GETD) CL::DUMMY-SLOT (CL::PARSE-SLOT) FQUOTIENT (OPCODES) SEDIT::REPLACE-CHARS (IDIFFERENCE NCHARS +ADD1 IPLUS SEDIT::STRINGWIDTH MKSTRING SUBSTRING SEDIT::CLOSE-NODE SEDIT::DELETE-NODES) +DIRECTORY.MATCH1 (\DTEST NCHARS PLUS NTHCHARCODE \GETBASEBYTE) \CIRCSHADE.DISPLAY (FILL.INITTBLE +IDIFFERENCE ITIMES IPLUS ADD1 SUB1) DINFO.SPECIAL.UPDATE (FASSOC SELECTQ THIS.PROCESS CONCAT +DINFO.UPDATE printout PRIN1 GETPROMPTWINDOW PROMPTPRINT) CL:STRING-CHAR-P (\DTEST) MSTRYSPELL (FASSOC +CONS LIST) COMPILER::COPY-NODE-CATCH (COMPILER::MAKE-CATCH COMPILER::COPY-NODES COMPILER::CATCH-TAG +COMPILER::CATCH-STMT) FDIFFERENCE (OPCODES) COMP.CLEANFNP (APPLY* SELECTQ EVERY COMP.CLEANEXPP) +WRITE-STRING* (CL:LENGTH - \GETSTREAM) MOVD? (COPY VIRGINFN GETD) MSERASE (MAPC MSSTOREDATA) +\TELERAIDEXIT (\KEYBOARDON) FGREATERP (OPCODES) SETXY.IP (<=) TEDIT.INCLUDE (TEXTOBJ +\TEDIT.MAKEFILENAME TEDIT.GETINPUT STREAMP OPENSTREAM GETFILEINFO OPENTEXTSTREAM LIST +\TEDIT.GET.INSERT.CHARLOOKS \CHTOPC \SPLITPIECE \GETBASEPTR \FIRSTNODE IPLUS) CHNGNM (FNCHECK GETD +GETP PACK LIST /DREMOVE CONS RESETVARS .RESETLST. CL:MULTIPLE-VALUE-PROG1 .UNWIND.PROTECT. FUNCTION +CHANGENAME1 APPEND GENSYM SAVED) CL:CHARACTERP (TYPENAMEP) \PS.SCALEHACK (/ LIST FRPLACA FIXR CL:* +FFETCHFIELD) FABS (\FLOATBOX OPCODES) \DelShade (CONS \DelShade) HPRINTSP (PRIN1) NCONC1 (NCONC +FRPLACD CONS) TEDIT.EXTRACTTOCLIPBOARD (TEXTSTREAM TTY.PROCESS TEDIT.SEL.AS.STRING TEDIT.DELETE +TEDIT.GETSEL) \BOXFPLUSDIF (LISPERROR NTYPX ADD1 IDIFFERENCE IGEQ LOLOC \LOLOC FLOAT IPLUS LLSH LRSH +LOGAND PLUS SUB1 \INFINITY .LRSHSTICKY. LOGOR IMINUS .ADDSMALL2. .ADDSMALL3. .SUBSMALL. \MAKEFLOAT) +DMATCH (SELECTQ DMATCH DIRECTORY.MATCH) \GETSPP (WITH.MONITOR CL:MULTIPLE-VALUE-PROG1 .UNWIND.PROTECT. + FUNCTION SETUPTIMER \QUEUEHEAD FFETCHFIELD ILESSP \LOLOC IDIFFERENCE FREPLACEFIELD SEQ.ADD1 \ADDBASE +\SPP.SYSPKT) HRULE.CREATE (IMAGEOBJCREATE NUMBERP CONCAT) COMPILER::ENV-INLINE-DISALLOWED ( +COMPILER::ENV-DISALLOWED-INLINES COMPILER::ENV-ALLOWED-INLINES COMPILER::ENV-PARENT +COMPILER::ENV-INLINE-DISALLOWED XCL::GLOBALLY-NOTINLINE-P) \BOXFTIMES2 (LISPERROR NTYPX ADD1 +IDIFFERENCE IGEQ LOLOC \LOLOC FLOAT IPLUS LLSH LRSH LOGAND PLUS SUB1 \INFINITY .ADDSMALL2. .ADDSMALL3. + \MAKEFLOAT LOGXOR) SI::ADVICE-PUTDEF (MAPCAR LIST SI::CANONICALIZE-ADVICE-WHEN-SPEC +SI::CANONICALIZE-ADVICE-WHERE-SPEC CL:COPY-TREE CL:GETHASH CONS SI::MAKE-ADVICE SI::ADVICE-BEFORE +CL:MAPCAR CL:FUNCTION SI::ADVICE-AFTER SI::ADVICE-AROUND XCL:READVISE-FUNCTION CL:FIRST CL:THIRD) +HPERR (PRIN2) DUMPDATABASE1 (PRIN2 SPACES) PROPNAMES (MAPLIST GETPROPLIST CAR CDDR) \CIRCSHADE.IP ( +IDIFFERENCE ITIMES IPLUS ADD1 SUB1) CL::OFFSET-SLOT (CL::PARSE-SLOT) \BOXFQUOTIENT (LISPERROR NTYPX +ADD1 IDIFFERENCE IGEQ LOLOC \LOLOC FLOAT IPLUS LLSH LRSH LOGAND PLUS SUB1 \INFINITY .SUBSMALL. .LLSH1. + LOGOR \MAKEFLOAT LOGXOR ERROR) \TELEBLTCURSOR (\DoveDisplay.SetCursorShape) CL:UPPER-CASE-P (<= +CONSTANT CL:CHAR-CODE) FMAX (FLOAT ARG NUMBERP LIST) SEDIT::COPY-SELECTION (printout PRIN1 +SEDIT:GET-PROMPT-WINDOW GETPROMPTWINDOW) \TEDIT.FIND (TEXTOBJ MKLIST TEDIT.FIND MKSTRING ADD1 +IDIFFERENCE \TEDIT.GET.INSERT.CHARLOOKS) \LFPurgeDirectory (\PFFindDirectoryID \PFVolumeNumber +\PFFindFileSize) COMPILER::COPY-NODE-CALL (COMPILER::MAKE-CALL COMPILER::COPY-NODES COMPILER::CALL-FN +COMPILER::COPY-NODE-LIST COMPILER::CALL-ARGS) COMP.CLEANEXPP (EVERY COMP.CLEANEXPP) CL:LOWER-CASE-P ( +<= CONSTANT CL:CHAR-CODE) CCCSCAN (UNFOLD LLSH \INDEXATOMVAL \VAG2 LRSH LOGAND CODEBASEGETNAME CONS +PLUS CONSTANT BYTESPERNAMEENTRY WORDSPERNAMEENTRY CODEBASELT \GETBASEBYTE LOGXOR \FINDOP +CODEBASEGETATOM IDIFFERENCE BYTESPERCODEATOM \INDEXATOMDEF \INDEXATOMPNAME CODEBASELT3 BIG-VMEM-CODE +LOGOR ADD1 IPLUS) \CENTICLOCK (LOCF \ADDBASE IQUOTIENT ITIMES) CHANGENAME (GETD) RPTPUT (FRPTQ PRIN1 +HPRINTSP CONSTANT CHARACTER SPACES) SEDIT::PARSE--STRING (SEDIT::BUILD-PRELINEARIZED-NODE) +\LEAF.DEVICEP (NCHARS NTHCHAR PLUS \CANONICAL.HOSTNAME \GETDEVICEFROMNAME \OPENLEAFCONNECTION +\MAKE.PMAP.DEVICE FUNCTION GETHOSTINFO \FTP.OPEN.CONNECTION) ADDPROP (LIST GETPROPLIST CONS NCONC1) +COMPILER::EFFECTS-ANALYZE-VAR-REF (COMPILER::NODE-EFFECTS COMPILER::NODE-AFFECTED +COMPILER::EFFECTS-REPRESENTATION COMPILER::VAR-REF-VARIABLE) \ITEMW.CLEARSELECTION (WINDOWPROP) +\PRESSFAMILYCODELST (\BIN PLUS LLSH IPLUS LOGAND LRSH CONS \WIN PACKC LIST) \FLOAT (FLOATP SELECTC +NTYPX ADD1 IDIFFERENCE \MAKEFLOAT IPLUS \LOLOC \BIGNUM.TO.FLOAT FQUOTIENT CL::RATIO-NUMERATOR +CL::RATIO-DENOMINATOR CL:ERROR) \TEDIT.FIND.PROTECTED.START (\CHTOPC SUB1 IPLUS IDIFFERENCE) +RESET/NODE/LABELSHADE (INVERTED/SHADE/FOR/GRAPHER CONSTANT DSPCLIPPINGREGION) /REMPROP (LIST +GETPROPLIST) \LEAF.DELETEFILE (ALLOCATE.PUP \LEAF.GETFILE LLSH \SENDLEAF) \BIGNUM.TO.FLOAT (\BN.FLOAT +\BN.FROM.FIXP) ONEDINSPECT.VALUEWIDTH (STRINGWIDTH APPLY*) \LEAF.GETFILE (\PARSE.REMOTE.FILENAME +\LEAF.RECONNECT WITH.MONITOR CL:MULTIPLE-VALUE-PROG1 .UNWIND.PROTECT. FUNCTION SELECTQ +\INTERNAL/GETPASSWORD ALLOCATE.PUP + LISPERROR \SENDLEAF SELECTC \LEAF.READFILENAME \FIXPASSWORD +\LEAF.DIRECTORYNAMEONLY CONS \LEAF.ERROR) TEDIT.EXTEND.SEL (TEDIT.SELECT SELECTQ IABS IMINUS +IDIFFERENCE IMAX IPLUS SHOULDNT COPY \TEDIT.FIND.PROTECTED.START SUB1 IMIN ADD1 +\TEDIT.FIND.PROTECTED.END) COMPILER::ENV-INLINE-ALLOWED (COMPILER::ENV-ALLOWED-INLINES +COMPILER::ENV-DISALLOWED-INLINES COMPILER::ENV-PARENT COMPILER::ENV-INLINE-ALLOWED) \MAKEFLOAT (FLOATP + IDIFFERENCE LOGAND LLSH PLUS SUB1 LISPERROR \MAKEFLOAT IPLUS .LRSHSTICKY. LOGOR LRSH ADD1 \INFINITY) +SI::ADVICE-GETDEF (CL:GETHASH CL:APPEND MAPCAR SI::ADVICE-BEFORE CONS CL:COPY-TREE SI::ADVICE-AFTER +SI::ADVICE-AROUND) CL:FIND-PACKAGE (DECLARE GETHASH MKSTRING) STOPSCAN? (GETP ZEROP) SETXYREL.IP ( +FREPLACEFIELD + FFETCHFIELD <=) \CANONICALIZE.PUP.HOSTNAME (ETHERPORT MKATOM U-CASE ETHERHOSTNAME CONS + FIXSPELL) CIRCSHADE.BLT (\CIRCSHADE.BLT ERROR) %%MAP-FOR-EFFECT (%%MAP-FOR-EFFECT-SINGLE +%%MAP-FOR-EFFECT-MULTIPLE CONS) \ItemNumber (PLUS) SEDIT::SELECT-SEGMENT (CL:FUNCALL) FIXSPELL ( +SETUPTIMER CHCON U-CASE LIST FASSOC LISTGET1 UNPACK RESETVARS .RESETLST. CONS CL:MULTIPLE-VALUE-PROG1 +.UNWIND.PROTECT. FUNCTION ELT APPLY* GENERATE MKATOM ADD1 CHOOZ FIXSPELL1 CHOOZ1 NCHARS) BLTVLINE ( +BLTSHADE IMIN IABS IMINUS IDIFFERENCE) MSCOMMAND (CONS MSCANT MSEAT GETP MSSEEKPHRASE LIST) +\LOAD-STREAM (FULLNAME FILEPKGCHANGES FMEMB LIST SKIPSEPRCODES GET ROOTFILENAME CONS NCONC1 \CML-LOAD) + \LFDirectoryP (\LFGetDirectory \PFFindDirectoryID \LFOpenOldFile \PFVolumeNumber PACKFILENAME +\LFPutDirectory) %%MAP-SINGLE-FOR-EFFECT (%%MAP-FOR-EFFECT-SINGLE) FILEWATCHPROP (ARG LISTGET ERROR) +BLTHLINE (BLTSHADE IMIN IABS IMINUS IDIFFERENCE) CLISPATOM0 (DWIMUNDOCATCH LISTGET1 LIST RESETVARS +.RESETLST. CONS CL:MULTIPLE-VALUE-PROG1 .UNWIND.PROTECT. FUNCTION CL:CATCH XNLSETQ CLISPATOM1 DUNPACK +FIX89 LENGTH CLISPATOM0) %%MAP-FOR-RESULT-MULTIPLE (CL:MAKE-LIST CL:LENGTH MAKE-SEQUENCE-OF-TYPE) +SETX.IP (DIFFERENCE <=) \VFMPutNext (\BLT MESASIZE \ADDBASE IPLUS \VFMGetInterval \VFMMarkBufferDirty) + TEDIT.COPYTOCLIPBOARD (TEXTSTREAM TTY.PROCESS PUTCLIPBOARD TEDIT.SEL.AS.STRING) +%%MAP-FOR-EFFECT-MULTIPLE (CL:MAKE-LIST CL:LENGTH) \CANONICAL.HOSTNAME (MKATOM FASSOC +\CANONICALIZE.PUP.HOSTNAME) %%MAP-FOR-RESULT-SINGLE (CL:LENGTH MAKE-SEQUENCE-OF-TYPE) FW-LOOP ( +FW-OPENP APPEND) UNSET (FMEMB GETPROPLIST MISSPELLED? ERROR) \CIRCSHADE.BLT (DSPOPERATION IDIFFERENCE +ITIMES IPLUS ADD1 SUB1) CL::NAME-SLOT (CL::PARSE-SLOT) %%MAP-TO-LIST (%%MAP-FOR-RESULT-SINGLE +%%MAP-FOR-RESULT-MULTIPLE CONS) \TELERAIDENTRY (SELECTQ FUNCTION) TTNLEFT (TTNEXTCHAR) +FB.UNDELETECOMMAND (FUNCTION FB.UPDATE.COUNTERS) \TEDIT.WORD.BOUND (\SYNCODE GETHASH \GETBASEBYTE) +\INFINITY (FLOATP SUB1) MSTRYPARSE (BLKAPPLY) SETCORNER (CURSOR) \BRUSHBITMAP (FASSOC \ILLEGAL.ARG +BITMAPCREATE ELT FIXP FIXR APPLY* CONS) %%MAP-SINGLE-TO-LIST (%%MAP-FOR-RESULT-SINGLE) DUMPDATABASE ( +RESETLST PRETTYDEF UPDATEFN FUNCTION DUMPDATABASE1 GETTABLE) LOAD (RESETLST FMEMB FIXSPELL ERROR +CL:FIND-PACKAGE \DTEST LIST OPENSTREAM \LOAD-STREAM) %%MAP-SINGLE-TO-SIMPLE (%%MAP-FOR-RESULT-SINGLE) +INSPECTW.PROPERTIES (WINDOWPROP APPLY*) \TEDIT.FORMAT.FOOTNOTE (DSPSCALE FRPLACA PLUS FFETCHFIELD ADD1 + LIST DREMOVE) HASDEF (GETFILEPKGTYPE HASDEF SELECTQ GETDEF CL:FIND-SYMBOL CONCAT GETTOPVAL GETPROP +GETD WHEREIS) %%EVERY-MULTIPLE (CL:MAKE-LIST CL:LENGTH) \TFBRAVO.GETPARAMS (FRPLACA \TFBRAVO.LCASER +\TFBRAVO.PARAMNAMEP CONS FMEMB) FIXEDITDATE (EDITDATE) \POSTSCRIPTTAB (TIMES IDIFFERENCE IREMAINDER) +%%NOTANY-MULTIPLE (CL:MAKE-LIST CL:LENGTH) SEDIT::GROW-SELECTION (CL:FUNCALL) +XCL::UNDOABLY-SETF-SYMBOL-FUNCTION (VIRGINFN /PUTD GETD) MAKEFLOATNUMBER (NCREATE) EDITTOGGLEBORDER ( +RESETFORM TTYDISPLAYSTREAM CLRPROMPT WINDOWPROP READ/NODE printout TERPRI) DELDEF (GETFILEPKGTYPE LIST + KWOTE /SETTOPVAL REMOVE GETTOPVAL FILEPKGCOM FILEPKGTYPE FASSOC /REMPROP) %%SOME-MULTIPLE (CL:MAKE-LIST + CL:LENGTH) COMPILER::ENV-DISALLOW-INLINES (COMPILER::ENV-ALLOWED-INLINES CL:SET-DIFFERENCE +COMPILER::ENV-DISALLOWED-INLINES CL:UNION) %%SOME-SINGLE (CL:LENGTH) SI::MAKE-AROUND-BODY (CL:REDUCE +CL:FUNCTION) IMODLESSP (ILESSP IMODDIFFERENCE IMOD IDIFFERENCE FOLDHI LRSH IPLUS) CCCSUBFN? (CONS +NCONC CCCSCAN) EQUALN (EQP STREQUAL SELECTQ EQUALN SUB1) FB.UNDELETE.FILE (TB.USERDATA PLUS +FFETCHFIELD FREPLACEFIELD IMINUS) \SLOWRETURN (\MYALINK OPCODES) TEDIT.COMPOUND.PAGEFORMAT (LIST) +%%MAP-TO-SIMPLE (%%MAP-FOR-RESULT-SINGLE %%MAP-FOR-RESULT-MULTIPLE CONS) FORMAT-FIXED-AUX (CL:PRINC) +\MATMULT441 (ITIMES FPLUS FTIMES \GETBASEFLOATP PLUS) UNSAFE.TO.MODIFY (PRIN1 ASKUSER READ) +MSSEEKPHRASE (CONS MSNEXTWORD MSSEEKPHRASE LIST MSTRYPARSE MSSEEKTYPE) SEDIT::PARSE--LITATOM ( +SEDIT::BUILD-PRELINEARIZED-NODE) DINFO.UPDATE.FMENU (FASSOC FM.GETITEM FM.CHANGELABEL) \MATMULT144 ( +FPLUS FTIMES \GETBASEFLOATP PLUS) COMPILER::COPY-NODE-BLOCK (COMPILER::MAKE-BLOCK COMPILER::BLOCK-NAME + CL:GETHASH COMPILER::BLOCK-STMT COMPILER::COPY-NODES) \MATMULT331 (ITIMES FPLUS FTIMES \GETBASEFLOATP + PLUS) \LFCreateDevice (\MAKE.PMAP.DEVICE FUNCTION) CL::INSERT-INCLUDED-SLOT (CL:FLET CL:MEMBER +CL:FUNCTION CL::PSLOT-NAME CL::PS-INCLUDE RPLACA) \MATMULT133 (FPLUS FTIMES \GETBASEFLOATP PLUS) +\TELERAIDSEND (FFETCHFIELD LOCF \ADDBASE IPLUS FOLDHI LRSH FLIPCURSOR) GET-ONED-DISPLAYW (CREATEW +CREATEREGION FUNCTION ONEDINSPECT.VALUEWIDTH) FILEMAP (PUTFILEMAP FULLNAME GETSTREAM) +COMPILER::ENV-ALLOW-INLINES (COMPILER::ENV-DISALLOWED-INLINES CL:SET-DIFFERENCE COMPILER::ENV-ALLOWED-INLINES + CL:UNION) \MATMULT444 (IPLUS FPLUS FTIMES \GETBASEFLOATP PLUS) COMPILER::PROCESS-IL-DECLARATIONS ( +DECLARE) PRINTPACKETDATA (GETSTREAM PACK* \GETBASE FOLDLO LRSH PRIN1 PLUS CEIL LOGAND IPLUS CONSTANT +SUB1 LOGXOR IDIFFERENCE \MAKENUMBER ADD1 \GETBASEBYTE TERPRI) TEDIT.HARDCOPY-COLUMN-END (DREMOVE COPY +LIST IMAX ADD1 FLAST REVERSE LDIFF MEMB APPEND CONCAT IDIFFERENCE IPLUS PLUS CL:VALUES CONS) NSLOGIN ( +\INTERNAL/GETPASSWORD) \MATMULT333 (IPLUS FPLUS FTIMES \GETBASEFLOATP PLUS) IMAGEOBJPROP (SELECTQ +\ILLEGAL.ARG ARG \IMAGEUSERPROP) HASH-LEFT-PAD-INITIAL-CONTENTS (- LENGTH APPEND CL:MAKE-LIST LAST +CL:ERROR) SI::A-OR-AN (CL:ELT) CL:SET-SYNTAX-FROM-CHAR (SETSYNTAX CL:CHAR-CODE GETSYNTAX) \AddShade ( +\ItemNumber CONS) CL:GET-DISPATCH-MACRO-CHARACTER (ASSOC) FNTYP1 (GETHASH FNTYP) MSSETREP (MSEAT +MSQUOTED LIST MSCANT EDITFPAT KWOTE MSWORD? MSNEXTWORD CONS) SEDIT::PARSE--BROKEN-ATOM ( +SEDIT::BUILD-PRELINEARIZED-NODE) \TEDIT.NEUTRALIZE.PARALOOKS.MENU (ADD1) FIND-MACRO-FUNCTION ( +CL-UNWRAP-MACRO IL-WRAP-MACRO) LCSKIP (PEEKCCODE READ BINSKIP GETPROP APPLY*) %%NOTEVERY-MULTIPLE ( +CL:MAKE-LIST CL:LENGTH) CL:GET-MACRO-CHARACTER (GETSYNTAX CL:CHAR-CODE CL:VALUES FIND-MACRO-FUNCTION) +COUNTDOWN (COUNTDOWN SUB1) RUNION (CONS) PUTFILEMAP (REMHASH GETHASH ROOTFILENAME +MAKE-READER-ENVIRONMENT PUTHASH) SHRIEKER (SHRIEKER LIST SELECTQ CONS) DO-DISPATCH-MACRO (ASSOC CL:ERROR + ILEQ READCCODE + TIMES - CL:CHAR-UPCASE CL:CODE-CHAR CL:FUNCALL) SETSPACE.IP (APPENDOP.IP) ADDSPELL ( +SELECTQ ADDSPELL1 ERROR) PRINTANDBOX (\OUTSTREAMARG \GETSTREAM DSPRIGHTMARGIN DSPLEFTMARGIN +DSPXPOSITION DSPYPOSITION IDIFFERENCE FONTPROP IPLUS IMAX DSPCLIPPINGREGION) FLOATP.TO.BCPL (FLOATP +FLOAT IPLUS LRSH LOGAND IMINUS) COMPILER::EFFECTS-ANALYZE-UNWIND-PROTECT (COMPILER::EFFECTS-ANALYZE-LAMBDA + COMPILER::UNWIND-PROTECT-STMT COMPILER::UNWIND-PROTECT-CLEANUP COMPILER::NODE-EFFECTS COMPILER::EFFECTS-UNION + COMPILER::LAMBDA-APPLIED-EFFECTS COMPILER::NODE-AFFECTED COMPILER::LAMBDA-APPLIED-AFFECTED) +/SETTOPVAL (ERRORX LIST GETTOPVAL SETTOPVAL) CLISPRESPELL (MISSPELLED?) CL:SET-MACRO-CHARACTER ( +SETSYNTAX CL:CHAR-CODE) SETXREL.IP (FREPLACEFIELD + FFETCHFIELD <=) \DO-DEFINE-FILE-INFO (SELECTQ EVAL + CL:FIND-PACKAGE ERROR \DTEST FIND-READTABLE \CHECKRADIX \INVALID.RADIX LIST CL:PACKAGE-NAME +READTABLEPROP) DMCHAT.HANDLE.WRAP (DMCHAT.NEWLINE) FORMAT-PRINT-RADIX-AUX (FORMAT-PRINT-OLD-ROMAN +FORMAT-PRINT-ROMAN FORMAT-PRINT-ORDINAL FORMAT-PRINT-CARDINAL FORMAT-ERROR) BCPL.TO.FLOATP (IMINUS +FPLUS IDIFFERENCE LLSH LRSH LOGAND) RPTEND (HPRINTENDSTR PRIN1 CONSTANT CHARACTER) +\TEDITMENU.RECORD.UNFORMATTED (TEXTOBJ) ADDFILE (ROOTFILENAME ADDFILE0 CONS LIST INTERSECTION ASSOC) +FILECOMSLST (INFILECOMS? FILECOMS) STRINGREGION (DSPXPOSITION IDIFFERENCE DSPYPOSITION FONTPROP +STRINGWIDTH) RESET/NODE/BORDER (GRAPHNODE/BORDER/WIDTH CONSTANT WINDOWPROP INVERTED/GRAPHNODE/BORDER +IEQP) \MAXWIDTHOFGROUP (PLUS) SEDIT::OPEN-LITATOM (SEDIT::CLOSE-NODE NCHARS) FB.HARDCOPY.PRINT.TITLE ( ++ IQUOTIENT - STRINGWIDTH printout TERPRI) MSVERBTYPE (MSVERBTYPE GETWORDTYPE FASSOC GETHASH) +UPDATEFILEMAP (CONCAT RATOM READCCODE GETFILEPTR IDIFFERENCE FFILEPOS FIX TIMES NCHARS CLOSEF NLSETQ +OPENSTREAM RESETSAVE LIST SETFILEPTR PRIN3 POSITION CONSTANT PRIN2 PRIN1 TERPRI PRINT PRINTNUM) +HPRINTEND (GETFILEPTR OUTPUT SUB1 ABS CONSTANT CHARACTER DREVERSE HPRINTENDSTR PRIN3 PLUS) +SEDIT::SET-SELECTION (CL:FUNCALL) \TEDIT.LOOKS.UPDATE (\TEDIT.APPLY.PARASTYLES \TEDIT.APPLY.STYLES +PLUS \RPLPTR \ADDBASE2 \ADDBASE IPLUS \EDITELT GETBASEPTR \GETBASEPTR FONTCOPY IMAX FONTPROP +IDIFFERENCE) ALLATTACHEDWINDOWS (ATTACHEDWINDOWS APPEND MAPCONC ALLATTACHEDWINDOWS) +COMPILER::UPDATE-ENVIRONMENT (DECLARE) ROOTFILENAME (U-CASE NAMEFIELD FULLNAME) PUTPUPSTRING (\DTEST +FREPLACEFIELD PLUS FFETCHFIELD \PUTBASESTRING IDIFFERENCE LOCF \ADDBASE) DRAWGRAYBOX ( +.WHILE.CURSOR.DOWN. \GETBASE) COPIEDFROMSPEC (MKSTRING NOHOST ESPATTERN SUB1 CL:POSITION NCHARS PLUS +DIRECTORYNAME CL:SUBSEQ ADD1 CONCAT NCONC LIST) DINFO.UPDATE.MENU.DISPLAY (DREVERSE FASSOC LIST +FLENGTH GREATERP FONTP WINDOWPROP MAPCAR FUNCTION CREATEW HEIGHTIFWINDOW TIMES DIFFERENCE RELMOVEW +IDIFFERENCE) SMASHFILECOMS (FILECOMSLST) CL:SET-DISPATCH-MACRO-CHARACTER (CL:ERROR CL:CHAR-UPCASE +ASSOC LIST CONS FFETCHFIELD FRPLACD) SI::DESCRIBE-USING-RECORD-DECL (CL:MAPC CL:FUNCTION +INSPECTABLEFIELDNAMES) COMP.STBIND (IDIFFERENCE SELECTQ COMP.CLEANFNOP CONS) MENUITEMREGION ( +IDIFFERENCE LENGTH FMEMB IPLUS ITIMES IREMAINDER SUB1 IQUOTIENT) \TEDIT.FIND.PROTECTED.END (IMIN +\CHTOPC SUB1 PLUS) FASL:PROCESS-FILE (CL:FUNCTION FASL:CHECK-VERSION) \FILLPOLYGON.IP (LENGTH +TRAJECTORY.IP APPENDOP.IP) MOVEBOX (.WHILE.CURSOR.DOWN. \GETBASE) GET-TITLEW (WINDOWPROP CREATEW +CREATEREGION FUNCTION CONCAT) BUILDTESTRELQ (CONS MAPCAR MSVBTABLES LIST KWOTE) MAPRINT (RESETVARS +.RESETLST. LIST CONS CL:MULTIPLE-VALUE-PROG1 .UNWIND.PROTECT. FUNCTION) TTYIN.SCRATCHFILE (OPENSTREAM +CONSTANT LIST FUNCTION) READPLIST (COPYREADTABLE CONS BIN LIST RATOM RSTRING) COMPILER::ENV-DECL-P ( +CL:MEMBER COMPILER::ENV-DECL-SPECIFIERS COMPILER::ENV-PARENT COMPILER::ENV-DECL-P) ENUM-STRING ( +CL:MACROLET CL:LENGTH CL:FILL-POINTER - WITH-RESOURCES \CONVERTNUMBER ABS GETRESOURCE NEWRESOURCE +ALLOCSTRING CONCAT) SI::INSERT-ADVICE-FORM (LIST CL:LABELS CL:DELETE-IF CONS NCONC) RPTPRINT (ADD1) +MB.DEFAULTBUTTON.ACTIONFN (RESETLST RESETSAVE \TEDIT.MARKACTIVE IMAGEOBJPROP SELECTQ +\TEDIT.MAKEFILENAME MBUTTON.NEXT.FIELD.AS.TEXT TEDIT.PUT TEXTPROP TEDIT.GET TEDIT.INCLUDE NCHARS +ERSETQ TEDIT.FIND ADD1 IDIFFERENCE \TEDIT.GET.INSERT.CHARLOOKS \SHOWSEL TEDIT.PROMPTPRINT +\TEDIT.PRIMARYW \TEXTMENU.START COPYTEXTSTREAM HEIGHTIFWINDOW \TEDIT.EXPANDEDPARA.MENU +\TEDIT.EXPANDEDCHARLOOKS.MENU MBUTTON.NEXT.FIELD.AS.NUMBER LIST MBUTTON.FIND.NEXT.BUTTON CONS +TEDIT.HARDCOPY ERROR) PROMPTCHAR (LISPXREADBUF ADD1 IDIFFERENCE ERSETQ EVAL) MSFIXUPTYPES (MAPC +REVERSE SELECTQ MSSETSETTYPE FIXVERBSETTYPE) SEDIT::INSERT-STRING (ADD1) DINFO.UPDATE.TEXT.DISPLAY ( +DINFO.GET.FILENAME APPEND LIST WINDOWPROP MKATOM INFILEP DINFO.OPENTEXTSTREAM CONCAT MKSTRING +CHARACTER) CL:VECTOR-PUSH-EXTEND (CL:VECTOR-PUSH + CL:ARRAY-TOTAL-SIZE CL:ERROR) LISPXPUT (FMEMB NCONC + LIST) \PFDsplyVolumes (\DSKDISPLAY.UPDATE) COMPILER::COPY-CODE (CL:MAKE-HASH-TABLE COMPILER::COPY-NODES +) \CONVERTNUMBER (IMINUS \NSTRINGCHARS FFETCHFIELD SUB1 PLUS IREMAINDER + - IQUOTIENT SUBSTRING) +COMP.DELPOP (ADD1) COMPILER::EFFECTS-ANALYZE-THROW (COMPILER::EFFECTS-ANALYZE COMPILER::THROW-TAG +COMPILER::THROW-VALUE COMPILER::NODE-EFFECTS COMPILER::NODE-AFFECTED COMPILER::EFFECTS-UNION) NLIST ( +CONS ARG SUB1) MKLIST (LIST) FILEPKGCHANGES (FILEPKGCHANGES CONS LIST ARG) SET-FILL-POINTER (CL:ERROR) + CL:MAKE-DISPATCH-MACRO-CHARACTER (SETSYNTAX CL:CHAR-CODE) TB.DELETE.ITEM (\DTEST PLUS FFETCHFIELD +TB.SHOW.DELETION) LISPXPRIN1 (LIST CONS PRIN1) TERM.MOVETO (\DTEST MOVETO IMIN ITIMES - IMAX) +HASH-LEFTPAREN (CL:READ-DELIMITED-LIST LIST LENGTH CL:MAKE-ARRAY LAST CL:AREF CL:ERROR) COERCE ( +CL:CHARACTER CL:FUNCTION FLOAT COMPLEX COERCE CL:REALPART CL:IMAGPART CL:MAP CL:ERROR) TTECHO.TO.FILE +(GETSTREAM PRINTCCODE BOUTCCODE TTNEXTCHAR) LISPXREADBUF (ADD1 SUB1 NCONC COPY LIST CONS LISPXREADBUF) + \CML-LOAD (CL:FIND-PACKAGE FULLNAME CL:READ CL:EVAL GETFILEPTR) HPRINT1 (TYPENAME PRIN2 GETHASH +CONSTANT SUB1 GETFILEPTR OUTPUT FCHARACTER IQUOTIENT CONS LIST FRPLACD IMINUS ADD1 HPRINT1 PRIN1 +FASSOC PROG2 CHARACTER APPLY* SELECTQ ARRAYSIZE ARRAYORIG ARRAYTYP RPTPRINT ELT PLUS ELTD HARRAYSIZE +HARRAYPROP SYSTEMTYPE GCTRP MINFS IMAX RECLAIM FLENGTH GETSYNTAX RPTEND GETRAISE GETDELETECONTROL +ECHOCHAR DELETECONTROL HPRINSP HPRINTENDSTR LOC GETFIELDSPECS GETDESCRIPTORS FETCHFIELD HPERR) HASH-A +(CL:READ CL:MAKE-ARRAY ESTIMATE-DIMENSIONALITY) LISPXTERPRI (LIST CONS TERPRI) FILECREATED (NCONC1 +FILECREATED1 ROOTFILENAME LIST CONS) GREET (ERSETQ USERNAME MKATOM EVAL GREETFILENAME PRINTOUT TERPRI) + FORMAT-PRINT-RADIX (FORMAT-PRINT-NUMBER FORMAT-WRITE-FIELD FORMAT-PRINT-RADIX-AUX) COMPILER::ENV-ADD-DECLS + (COMPILER::ENV-DECL-SPECIFIERS CL:APPEND) FNUM-STRING (CL:MACROLET CL:LENGTH + CL:FILL-POINTER -) +SI::SET-ADVICE-MIDDLE-MAN (CL:GETHASH) COMPILER::EFFECTS-ANALYZE-SETQ (COMPILER::EFFECTS-ANALYZE +COMPILER::SETQ-VALUE COMPILER::NODE-EFFECTS COMPILER::EFFECTS-UNION COMPILER::EFFECTS-REPRESENTATION +COMPILER::SETQ-VAR COMPILER::NODE-AFFECTED) INSIDE? (ILESSP IPLUS WITHIN) CL:VECTOR-PUSH (CL:ERROR) +COPIEDTOSPEC (CONS ESPATTERN DIRECTORYNAME ERROR) DEFINE-FILE-INFO (GETFILEPTR SET-READER-ENVIRONMENT +\DO-DEFINE-FILE-INFO) SI::DESCRIBE-USING-INSPECT-MACRO (CL:THIRD CL:SECOND CL:MAPCAR CL:FUNCTION +CL:FUNCALL) HASH-B (READNUMBERINBASE) RESHADEITEM (RESETLST RESETSAVE LIST DSPFONT DSPOPERATION +MOST/VISIBLE/OPERATION DSPRIGHTMARGIN \SHOWMENULABEL) COMPILER::PROCESS-DECLARATIONS (DECLARE CL:FLET +CL:MACROLET) DINFO.UPDATE.GRAPH.DISPLAY (CONS DINFO.LAYOUTGRAPH WINDOWPROP CONCAT) \IBMPEEKCCODEFN ( +\RECODECCODE \PEEKCCODE) HASH-BACKSLASH (CHARACTER.READ CL:ERROR) FILLTRIANGLE (IMAGESTREAMTYPE +\FILLPOLYGON.IP FILLPOLYGON) CL::RESOLVE-SLOTS (CL:MAPCAR CL:FUNCTION CL::PS-INCLUDED-SLOTS +CL::PS-INCLUDE CL::PS-ALL-SLOTS NCONC CL::MERGE-SLOTS CL::PS-NAME CL::PS-LOCAL-SLOTS CL::PS-CONC-NAME +CL::PS-ALL-SLOT-NAMES) FLTSTR (SUBSTRING GETRESOURCE NEWRESOURCE ALLOCSTRING CONCAT CL:VALUES MIN +LISPERROR NTYPX ADD1 IDIFFERENCE IGEQ LOLOC \LOLOC FLOAT IPLUS LLSH LRSH LOGAND PLUS SUB1 FLTINTLOG - +EXTTOINT CL:1- NCHARS CL:CHAR) \TELERAIDGET (SELECTC \TELERAIDRELEASE \BLT LOCF \ADDBASE) TTGIVEHELP ( +POSITION) EDITBMTEXTURE (BITMAPBIT BITSPERPIXEL) ONEDINSPECT.RESHAPEFN (WINDOWPROP) GLC (GLCCODE +FCHARACTER) ITEM.WINDOW.SET.STACK.ARG (SELECTQ MENU STACKP ERSETQ ITEMOFPROPERTYVALUE FRAMESCAN +RESETSAVE \ITEMW.FLIPITEM LIST TTY.PROCESS THIS.PROCESS CLRPROMPT printout PRIN1 EVAL READ +INSPECTW.REPLACE) \TRACKWITHBOX (CONSTANT LOGOR MOUSESTATE-NAME LOGAND IPLUS ERSETQ CURSOR ZEROP +IQUOTIENT IMINUS) DWMFY2 (FASSOC CONS GETPROP CONCAT SUBSTRING RETDWIM2 MKSTRING) SPY.INIT ( +\ALLOCBLOCK CL:* QUOTIENT) LISPXREADP (LISPXREADBUF PEEKC CONSTANT CHARACTER) TIMESPOW10 (DECLARE + +CL:AREF IABS IMINUS -) \SENDLEAF (LISPERROR LOGOR IPLUS) GETPUPSTREAM (\MAKEBASEBYTESTREAM \DTEST +IDIFFERENCE) COMP.STUNBIND (CONS IPLUS) HASH-COLON (CL:MAKE-SYMBOL READ-EXTENDED-TOKEN) INTTOEXT ( +IPLUS NTYPX \LOLOC \FIXP.FROM.FLOATP IQUOTIENT CL::RATIO-NUMERATOR CL::RATIO-DENOMINATOR IDIFFERENCE +LOGAND LLSH1 SUB1 LLSH PLUS) FILEDATE (NLSETQ RESETLST OPENP GETFILEPTR LIST OPENSTREAM FASL-FILEDATE) + EXTTOINT (IDIFFERENCE LRSH - LOGAND IPLUS ADD1 \MAKENUMBER) READFILE (DECLARE) GREET0 (DATE NTHCHAR +LRSH STRINGP SASSOC U-CASE SUBSTRING SUBATOM LISPXTERPRI) FLTINTLOG (DECLARE CL:AREF IPLUS PLUS) /PUT +(LIST GETPROPLIST CONS) \LIMITBYMAX (IMIN) RPLCHARCODE (\FATCHARCODEP IGREATERP IPLUS \PUTBASEFAT +\PUTBASE \PUTBASETHIN \PUTBASEBYTE SUB1 RPLCHARCODE MKSTRING) PUTPUPBYTE (\PUTBASEBYTE \DTEST) +SI::INSPECT-MACRO-USABLE-BY-DESCRIBE? (CL:CONSP CL:REST) HASH-DOUBLEQUOTE (RSTRING) SEDIT::SET-POINT ( +CL:FUNCALL) EDITE (EDITMODE INSPECT CL:FUNCALL GET) \MAXHEIGHTOFGROUP (PLUS) NODELST/AS/MENU ( +IDIFFERENCE HALF LRSH IPLUS) HASH-MINUS (CL:READ CL:VALUES) RIGHTW.RESHAPEFN (RIGHTW.REPAINTFN) +PRETTYCOMPRINT (LISPXPRINT) TRACKNODE (TRACKCURSOR NODELST/AS/MENU WINDOWPROP CURSORPOSITION) +FB.NAMES.INCREASING.VERSION (SELECTQ ALPHORDER NULL.VERSIONP ILESSP) HASH-ILLEGAL-HASH-CHAR (CL:ERROR) + HASH-LEFTANGLE (HASH-NO-PARAMETER-ERROR CL:ERROR CL:READ) SI::GET-ADVICE-MIDDLE-MAN (CL:GETHASH) +PUTPROPS (MAP PUTPROP CDDR) READLINE (CHCON1 PEEKC NCONC1 READ APPLY* LASTC EDITE SETN GETFILEPTR +LISPXREADBUF) HASH-PLUS (CL:READ CL:VALUES) BOOTSTRAP-NAMEFIELD (STRPOS ADD1 SUB1 NTHCHARCODE SUBATOM) + \LEAF.CLOSEFILE (CL:MULTIPLE-VALUE-PROG1 .UNWIND.PROTECT. FUNCTION LOGAND CONSTANT LOGOR ALLOCATE.PUP + LLSH) COMPILER::ENV-BIND-VARIABLE (CONS COMPILER::ENV-VENV) HASH-COMMA (CL:READ COMPILER::MAKE-EVAL-WHEN-LOAD + CL:EVAL EVAL) DIGITSBDP (LISPERROR NTYPX ADD1 IDIFFERENCE IGEQ LOLOC \LOLOC FLOAT IPLUS LLSH LRSH +LOGAND PLUS SUB1 FLTINTLOG) DECLARE%:1 (EVAL) CONCATT.IP (APPENDOP.IP) %%PRINT-DIRECTORY-COMPONENT ( +DECLARE %%DIRECTORY-COMPONENT-PATH CL:FORMAT) DINFO.UPDATE.HISTORY (LIST CONS PLUS ATTACHMENU FONTP +FUNCTION) HASH-R (READNUMBERINBASE CL:ERROR) TEMPLATE (GETHASH GETRELATION SELECTQ ERROR) TTYINSTRING +(IGREATERP FIRSTCHAR PLUS TTNEXTCHAR ALLOCSTRING) DECLARE%: (DECLARE%:1) %%PRINT-PATHNAME (DECLARE +CL:FORMAT CL:NAMESTRING) COMPILER::RELEASE-VAR-REF (COMPILER::VAR-REF-VARIABLE) COMP.STSETQ (IGREATERP + COMP.ST) RESETBUFS (CLBUFS APPLY) HASH-DOT (CL:EVAL CL:READ EVAL) BUILDGETRELQ (MSVBTABLES LIST KWOTE +) HASH-STAR (DECLARE PEEKC CL:READ CL:ERROR FINISH-READING-BITMAP READ-EXTENDED-TOKEN NCHARS +CL:MAKE-ARRAY SELCHARQ NTHCHARCODE) TITLEW.REPAINTFN (PRINTOUT PRIN1 WINDOWPROP) FILE-NAME (FULLNAME +MKSTRING) COMPILER::PRINT-ENV (DECLARE CL:FORMAT \HILOC \LOLOC) \EXTFTIMES (IPLUS LLSH LRSH LOGAND +LOGOR \EXTNORMALIZE IDIFFERENCE) SI::DELETE-ADVICE (REMHASH) GETBOXREGION (GETBOXSCREENREGION) DWMFY1 +(LIST FASSOC WTFIX0 CONS SELECTQ UNION DWIMIFY2 APPEND GETPROP NCONC MAPCAR FMEMB ARGTYPE NARGS) +\LIMITBYMIN (IMAX) INSIDEP (INSIDEP DSPCLIPPINGREGION INSIDE? \ILLEGAL.ARG) HASH-X (READNUMBERINBASE) +COPYINSERT (\INSUREWINDOW WFROMDS PROCESS.TTY TTY.PROCESS WINDOWPROP IMAGEOBJPROP APPLY* PROCESS.EVAL) + \STRINGIN (\SMALLPIN SUB1 LLSH IDIFFERENCE ALLOCSTRING ZEROP READCCODE PLUS) MSVBTABLES (MKLIST +SELECTQ MSUSERVBTABLES) REMPROPLIST (GETPROPLIST NLEFT) SI::GET-INSPECT-MACRO (DECLARE) +%%INITIALIZE-DEFAULT-PATHNAME (DECLARE CL:PARSE-NAMESTRING FILENAMEFIELD %%PATHNAME-VERSION) HASH-VBAR + (HASH-NO-PARAMETER-ERROR CL:VALUES) FB.HARDCOPY.MAXWIDTH (CHARWIDTH CL:NTH STRINGWIDTH) COMPARENCHARS + (\DTEST FUNCTION) ENDFILE (CLOSEF) SCALE.IP (APPENDOP.IP) CL::ASSIGN-SLOT-OFFSET (CL::PS-NAME +CL::PS-ALL-SLOTS) READHOTSPOT (ZEROP LOGAND CURSOR IPLUS LEFTOFGRIDCOORD IQUOTIENT BOTTOMOFGRIDCOORD +BITMAPCREATE BITSPERPIXEL CURSORCREATE LASTMOUSEX LASTMOUSEY) HASH-NUMBER-SIGN (CL:ASSOC CL:ERROR) +\TELERAIDCOMMAND (LOGAND LRSH LLSH \GETBASE SELECTQ \KEYNAMETONUMBER \TELERAIDBREAK \TELEKBDWAIT +\TELEBLTCURSOR) TTRATOM (TTSKIPSEPR TTYINBUFFERSTREAM RATOM) CLOSE-AND-MAYBE-DELETE (CLOSEF DELFILE) +\ITEMW.DESELECTITEM (WINDOWPROP) FORMAT-PRINT-HEXADECIMAL (FORMAT-PRINT-NUMBER) HASH-S ( +CREATE-STRUCTURE CL:READ) HASH-EQUAL (CL:VALUES CONS CL:READ) COMP.STVAR (COMP.ST) GETPUPSTRING ( +IDIFFERENCE \DTEST \GETBASESTRING ALLOCSTRING) UNSAVED1 (GET CONCAT FNCHECK) MSPATHOPTIONS (CONS +SELECTQ TERPRI MSEAT MSCANT LIST) HASH-STRUCTURE-LOOKUP (MEMQ) TERM.PRINTCHAR (\DTEST \CHARSET LRSH +\DSPGETCHARIMAGEWIDTH \GETBASE \DSPGETCHARWIDTH + - CL:FUNCALL TERM.NEWLINE MOVETO) FB.SORT.VERSIONS ( +SORT LIST LAST) FORMAT-PRINT-OCTAL (FORMAT-PRINT-NUMBER) \SEARCHPRESSFONTS (RESETLST \GETSTREAM LIST +GETFILEPTR OPENSTREAM UNION \GETPRESSFONTNAMES) COMPILER::ALPHA-FORM (COMPILER::ALPHA-ATOM) +%%NUMERIC-STRING-P (SUB1 IPLUS ADD1 \GETBASEFAT \GETBASE \GETBASETHIN \GETBASEBYTE) \EXTNORMALIZE ( +IDIFFERENCE LOGAND LLSH PLUS ADD1 SUB1) \LISP.TO.NSFILING.ATTRIBUTE (IDATE LISPERROR +\FILETYPE.FROM.TYPE UNFOLD LLSH ASSOC SELECTQ >= SMALLP FIXP PARSE.NSNAME LIST COURIER.CREATE +\ILLEGAL.ARG) FB.DECREASING.VERSION (NULL.VERSIONP IGREATERP) TERM.ADDLINE (\DTEST - TERM.ERASEBITS) +FORMAT-PRINT-BINARY (FORMAT-PRINT-NUMBER) \EXTFQUOTIENT (CL:VALUES LRSH LOGAND IPLUS LLSH PLUS +IDIFFERENCE .SUBSMALL. ADD1 .LLSH1. LOGOR \EXTNORMALIZE) CLISPEXPANSION (CL:VALUES COPY GETHASH) +MSJOINSET (PRIN1 MSJOINDETS MSJOIN) CL::ENSURE-CONSISTENT-PS (CL::PS-INCLUDE CL::PS-NAME CL::PS-TYPE +CL::PS-VECTOR-TYPE CL:ERROR CL::PS-INLINE CL::PS-CONSTRUCTORS CL::PS-PREDICATE CL::PS-COPIER +CL::PS-PRINT-FUNCTION CL::PS-NAMED CL::DEFAULT-PREDICATE-NAME CL:INTERN CL:CONCATENATE STRING +CL::PS-EXPORT LIST) INIT-CML-READTABLES (CMLRDTBL MAKE-READER-ENVIRONMENT CL:FIND-PACKAGE +COPYREADTABLE PLUS SETBRK) TYPERECORD (DECLARERECORD CONS) SEDIT::HASFAT (SUB1 IPLUS ADD1 \GETBASEFAT +\GETBASE \GETBASETHIN \GETBASEBYTE) GRAYBOXAREA (FIXP IDIFFERENCE IPLUS ITIMES BLTSHADE DSPTEXTURE) +LISPINTERRUPTS.WHEELSCROLL (APPEND LISPINTERRUPTS.WSORIG) HASH-QUOTE (LIST CL:READ) CMLREADSEMI ( +READCCODE CL:VALUES) \CONVERT.FLOATING.NUMBER (DECLARE WITH-RESOURCE CL:MACROLET - SUBSTRING CL:1+ +GETRESOURCE NEWRESOURCE CL:MAKE-ARRAY) COMP.LOOKUPCONST (SOME NCONC1) EDITMOVENODE (WINDOWPROP PRIN1 +NODELST/AS/MENU CURSORPOSITION LOGAND) SETLASTC (\BOUT) COMPILER::EFFECTS-ANALYZE-PROGN ( +COMPILER::EFFECTS-ANALYZE-LIST COMPILER::PROGN-STMTS) WBOX (BLTSHADE DSPTEXTURE IPLUS IDIFFERENCE +ITIMES) CL:TRUNCATE (CL::%%INTEGER-COERCE-MACRO) \TEDIT.SCALE (FIXR FTIMES) \LFMakeVolumeDirectory ( +UNINTERRUPTABLY \LFGenFileID \PFVolumeNumber \PFNewPages PACKFILENAME.STRING \LFDirectoryP) DWIMIFY0? +(DWMFY0) COMPILER::EFFECTS-ANALYZE-RETURN (COMPILER::EFFECTS-ANALYZE COMPILER::RETURN-VALUE +COMPILER::NODE-EFFECTS COMPILER::EFFECTS-UNION LIST COMPILER::RETURN-BLOCK COMPILER::NODE-AFFECTED) +HASH-O (READNUMBERINBASE) \IBMINCCODEFN (\RECODECCODE \BIN) CL:LOG (QUOTIENT CL:LOG) COMPAREPRINTN ( +IPLUS POSITION LINELENGTH SPACES) FASL-FILEDATE (BIN FASL::CONVERT-FASL-DATE FASL:PROCESS-FILE +CL:FUNCTION) CL:MAKE-ARRAY (LIST CL:ERROR LENGTH %%TOTAL-SIZE %%GET-CANONICAL-CML-TYPE +CL:ARRAY-ELEMENT-TYPE + CL:ARRAY-TOTAL-SIZE %%MAKE-DISPLACED-ARRAY %%MAKE-GENERAL-ARRAY +%%MAKE-ONED-ARRAY %%MAKE-TWOD-ARRAY) SEDIT::INSERT-LITATOM (SEDIT::INSERT-STRING SEDIT::TRANSLATE-CHARS +) COMPILER::RELEASE-THROW (COMPILER::RELEASE-TREE COMPILER::THROW-TAG COMPILER::THROW-VALUE) +COMPILER::PRINT-CONTEXT (DECLARE COMPILER:CONTEXT-TOP-LEVEL-P COMPILER:CONTEXT-VALUES-USED +COMPILER:CONTEXT-PREDICATE-P COMPILER::CONTEXT-APPLIED-CONTEXT CL:MACROLET COMPILER::OUTPUT CL:FORMAT) + CL::%%COPY-TIME-STATS (CL::%%MOVE-FIXP-FIELD MISCSTATS) SI::ADD-ADVICE (CL:GETHASH SI::MAKE-ADVICE) +CL:SPECIAL-FORM-P (GET) MSFAIL (STKPOS FUNCTION STKNTH STKARG TERPRI) CL::PS-NUMBER-OF-SLOTS (CL:LENGTH + CL::PS-ALL-SLOTS) MSBLOCK (MSSEEKTYPE) \MAIKO.BITBLTSUB (OPCODES) TTREADLIST (TTYINBUFFERSTREAM READ +LIST) MB.CREATE.NWAYBUTTON (IMAGEOBJCREATE FONTCREATE FONTPROP MAPCAR STRINGWIDTH BITMAPCREATE LIST +DSPCREATE IPLUS SORT COPY SUB1 PLUS ITIMES LENGTH) GLOBAL-MACRO-FUNCTION (GET ARGTYPE GETPROP FUNCTION +) PARSE-NAMESTRING1 (CONS SUB1 LITATOM CL:STRINGP NUMBERP LIST NTHCHARCODE \UPF.NEXTPOS DREVERSE IPLUS + LASTCHPOS PLUS SELCHARQ ADD1 STRPOS NTHCHAR) COMPILER::RELEASE-TAGBODY (COMPILER::TAGBODY-REFERENCES +COMPILER::TAGBODY-FRAME MAPC COMPILER::TAGBODY-SEGMENTS COMPILER::SEGMENT-STMTS COMPILER::RELEASE-TREE +) \CHECKSUM (LOGAND IPLUS16 \LOLOC \ADDBASE \GETBASE PLUS LOGOR LLSH SUB1) COMP.VARTYPE (LITATOM) +\IBMOUTCHARFN (\PRINTCCODE \RECODECCODE) COMPILER::EFFECTS-ANALYZE-PROGV (COMPILER::EFFECTS-ANALYZE-LIST + LIST COMPILER::PROGV-SYMS-EXPR COMPILER::PROGV-VALS-EXPR COMPILER::PROGV-STMT) EXTENDREGIONTOP (IPLUS + IDIFFERENCE) \MAIKO.PUNTBLTCHAR (\CHAR8CODE LOGAND \CHARSET LRSH \SLOWBLTCHAR IPLUS +\DSPGETCHARIMAGEWIDTH \GETBASE \DSPGETCHARWIDTH DSPDESTINATION \TOTOPWDS OPCODES) +GET-ENVIRONMENT-AND-FILEMAP (FULLNAME GETHASH CL:VALUES OPENP GETFILEPTR) TERM.DOWN (\DTEST + MOVETO +IMAX - ITIMES TERM.DELETELINE) FORMAT-PRINT-DECIMAL (FORMAT-PRINT-NUMBER) \MAIKO.BLTCHAR (OPCODES) +\GETPRESSFONTNAMES (\FACECODE \PRESSFAMILYCODELST IQUOTIENT ITIMES \BIN PLUS LLSH IPLUS LOGAND LRSH +FASSOC ERROR \DECODEPRESSFACEBYTE \WIN CONS LIST FIXR FQUOTIENT) GRAPHEDITCOMMANDFN (SELECTQ MENU +EDITMOVENODE EDITADDNODE EDITDELETENODE EDITADDLINK EDITCHANGEFONT EDITDELETELINK EDITCHANGELABEL +TOGGLE/DIRECTEDFLG TOGGLE/SIDESFLG EDITTOGGLEBORDER EDITTOGGLELABEL) SKOR (GETCASEARRAY FLENGTH IPLUS +SUB1) \SHADEBITS (BITSPERPIXEL OPPOSITECOLOR ZEROP LOGAND IMAX IMIN GRIDXCOORD LASTMOUSEX GRIDYCOORD +LASTMOUSEY WINDOWPROP IPLUS PRIN1 BITBLT) \FLOATINGSCALE (- \MAKEFLOAT) %%DIRECTORY-COMPONENT-EQUAL ( +%%DIRECTORY-COMPONENT-TYPE CL:EQUAL %%DIRECTORY-COMPONENT-PATH) \PFReplaceString (MKSTRING MIN NCHARS +SUB1 IPLUS ADD1 \GETBASEFAT \GETBASE \GETBASETHIN \GETBASEBYTE PLUS) GETEXPRESSIONFROMEVENTSPEC ( +LISPXFIND FMEMB LDIFF SELECTQ ARGTYPE CONS ERROR MAPCAR KWOTE LIST MKPROGN) \INIT.POWERS.OF.TEN (ARRAY + CL:MAKE-ARRAY CL:AREF IPLUS FTIMES IDIFFERENCE FQUOTIENT PLUS CL:* + -) SI::*ADVICE-HASH-TABLE* ( +CL:MAKE-HASH-TABLE) COMPILER:ENV-FBOUNDP (CL:LABELS COMPILER::FIND-FN) GET-FILEMAP-FROM-FILECREATED ( +NLSETQ READ GETEOFPTR SKIPSEPRCODES) \SETGROUPMIN (\ATWGROUPSIZE SELECTQ \MAXWIDTHOFGROUP IPLUS IMAX +\MAXHEIGHTOFGROUP SHOULDNT) COMPILER::EFFECTS-ANALYZE-OPCODES (COMPILER::NODE-EFFECTS COMPILER::NODE-AFFECTED +) CL:COMPILE-FILE (COMPILER:MAKE-CONTEXT COMPILER::MAKE-ENV CL:MAKE-HASH-TABLE CL:MULTIPLE-VALUE-PROG1 + .UNWIND.PROTECT. FUNCTION CL:PROBE-FILE CL:MERGE-PATHNAMES OPEN PATHNAME CL:MAKE-PATHNAME STRING +FASL:OPEN-FASL-HANDLE CL:MAKE-BROADCAST-STREAM SKIPSEPRCODES) IMAGEBOX (APPLY* IMAGEOBJPROP) +\TEXTTTYBOUT (\SYNCODE GETHASH \GETBASEBYTE PLUS FFETCHFIELD) SPY.ADD.ENTRY (LLSH PLUS SPY.OVERFLOW +LITATOM \LOLOC) SI::DESCRIBE-USING-DESCRIBERS (CL:MAPC CL:FUNCTION) \BN.COMPAREN (\BN.SIGN IMINUS +IDIFFERENCE SHOULDNT) \FAULTINIT (IDIFFERENCE \MAKEFRAME FUNCTION IPLUS) \BN.FROM.FIXP (\BN.DIFFERENCE + \BN.FROM.FIXP IPLUS \BN.MINUS \BN.IGNN IMINUS) SEDIT::GROW-SELECTION-LITATOM ( +SEDIT::GROW-SELECTION-DEFAULT SEDIT::SET-SELECTION-ME) \MAKEFRAME (\SETUPSTACK1) SPY.END.ENTRY ( +SPY.ADD.ENTRY) \BN.TO.FIXP (\BN.COMPAREN CONSTANT \BN.FROM.FIXP \BIGNUM.TO.INT SHOULDNT) +DMCHAT.ADDRESS (SELCHARQ LOGXOR) CL:MACRO-FUNCTION (LOCAL-MACRO-FUNCTION GLOBAL-MACRO-FUNCTION) +\VFMDelete1 (EQP \BLT MESASIZE \ADDBASE IDIFFERENCE \VFMMarkBufferDirty) \VFMSmartBLT (IGREATERP +\HILOC \LOLOC \ADDBASE SUB1 \GETBASE PLUS \BLT) LOOKUP-ENVIRONMENT-AND-FILEMAP (GETHASH CL:VALUES) +\BN.DIFFERENCE (\BN.PLUS2 \BN.MINUS) GETREGION (GETSCREENREGION) \GETBASEFIXP (\MAKENUMBER \GETBASE +\ADDBASE) \FILING.ATTRIBUTE.TYPE.SEQUENCE (MAPCAR \FILING.ATTRIBUTE.TYPE) \DRAWLINE1 (\DRAWLINE.UFN +\ADDBASE IPLUS ITIMES FOLDLO LRSH LOGAND SELECTQ ADD1) \BN.INTEGERLENGTH (IPLUS CONSTANT INTEGERLENGTH + SUB1 \BN.INTEGERLENGTH SHOULDNT) PUTPUPWORD (\PUTBASE \DTEST) \SETIOPOINTERS (SETTOPVAL LIST +EMADDRESS OPCODES LOCF \ADDBASE UNFOLD LLSH SELECTC \DoveMisc.GetKBDBase \DoveMisc.GetMouseXBase +\DoveMisc.GetMouseYBase \DoveDisplay.GetCursorBitmapBase \DoveDisplay.ScreenWidth) +CL::DEFSTRUCT-PARSE-OPTIONS (LIST CL::MAKE-PS CL:CONCATENATE STRING) \BN.LOGAND (\BN.LOGAND LOGAND +CONS) ARRAYBLOCK (DECLARERECORD CONS) TTADJUSTWORD (FASSOC FIXSPELL) TB.FINISH.CLOSE (WITH.MONITOR +CL:MULTIPLE-VALUE-PROG1 .UNWIND.PROTECT. FUNCTION SELECTQ TB.FLUSH.WINDOW CLOSEW SHRINKW) +\D01.FAULTINIT (FUNCTION SIGNED SUB1 LLSH IDIFFERENCE LOCF \ADDBASE EMADDRESS OPCODES UNFOLD CONSTANT +SMALLP ERROR \PUTBASEPTR \ATOMCELL LOADBYTE LOGAND LSH IMINUS MASK.1'S IPLUS RWMufMan PLUS +\D01.ASSIGNBUFFERS) FW-RESIZE-OFD (IPLUS SELECTQ IDIFFERENCE ERROR) COMPILER::LOCAL-CONSTANT-P ( +CL:GETHASH) \BN.LOGANDC2 (\BN.LOGANDC2 LOGAND DIFFERENCE CONS) CLEARPUP (\DTEST \ADDBASE LOCF +\ZEROBYTES SUB1) \DOVE.FAULTINIT (FUNCTION \PUTBASEPTR LOCF \ATOMCELL \ADDBASE CONSTANT \HINUM \LONUM +\DoveDisplay.TurnOn) \GETREGIONTRACKWITHBOX (IDIFFERENCE SUB1 BITMAPWIDTH BITMAPHEIGHT ERSETQ LOGAND +LOGOR CURSOR ZEROP IQUOTIENT IPLUS IMAX IMIN) %%MAKE-PATHNAME (%%%%MAKE-PATHNAME) \DL.FAULTINIT ( +FUNCTION LOCF \ADDBASE \DL.DISKINIT) SIZE/GRAPH/WINDOW (GRAPHREGION CREATEW GETBOXREGION WIDTHIFWINDOW + IMIN IMAX FIXR HEIGHTIFWINDOW IDIFFERENCE WXOFFSET IPLUS LRSH WINDOWPROP WYOFFSET) \BN.LOGOR (CONS +LOGOR \BN.LOGOR) \MP.ERROR (OPCODES RAID) \BN.LOGXOR (CONS LOGXOR \BN.LOGXOR) \TEXTMARK (CONS +IDIFFERENCE) \MAIKO.FAULTINIT (FUNCTION LOCF \ADDBASE \SETIOPOINTERS) FW-UPDATE-OFD-WINDOW (GETFILEPTR + GETEOFPTR FW-PERCENTAGE PRIN1 PRINTNUM IPLUS DSPXPOSITION ADD1 DSPYPOSITION IQUOTIENT ITIMES) +SI::DESCRIBE-NEW-LINE (CL:FRESH-LINE) \TEDIT.PAPERWIDTH (\TEDIT.PAPERHEIGHT SELECTQ ASSOC \ILLEGAL.ARG +) \BN.PLUS2 (IDIFFERENCE FLENGTH APPEND \BN.NZEROS \BN.SIGN \BN.ISUM0 \BN.ISUM1 ERROR) GETPUPBYTE ( +\GETBASEBYTE \DTEST) CL:MACROEXPAND (CL:MACROEXPAND-1 CL:VALUES) \BN.TIMES2 (\BN.SIGN LIST IPLUS +FLENGTH IDIFFERENCE CONS PLUS \BN.IDIVIDE ITIMES) NODECREATE (FONTNAMELIST) \SPP.CHECK.INPUT.QUEUE ( +ILESSP \LOLOC IDIFFERENCE) SEDIT::INITIALIZE-ATOMIC (LIST*) \DOMISCAPPLY (\DOMISCAPPLY1) \TELERAIDINIT + (\LOCKFN \LOCKVAR \ALLOCATE.ETHERPACKET \LOCKWORDS) \BULK.DATA.CLOSE (GETSPPCON FFETCHFIELD +OVERWRITEABLE LOGAND \EOFP SPREADAPPLY* ERSETQ RESETLST LIST FUNCTION \COURIER.RESULTS) \BN.DIVIDE ( +CONS \BN.QRS \BN.FROM.FIXP FLENGTH IDIFFERENCE \BN.SIGN PLUS IMINUS IQUOTIENT IPLUS ITIMES \BN.TIMES2 +\BN.IDIVIDE) SI::FINISH-UNADVISING (CL:DELETE) COMPILER::ENV-BIND-FUNCTION (LIST COMPILER::ENV-FENV) +\FILEMAP-HASHOVERFLOW (HARRAYPROP MEMB - LENGTH SORT GET PLUS IMAX FIXR FTIMES) \BN.FLOAT (FPLUS +FTIMES \BN.FLOAT ERROR SHOULDNT) SEDIT::LINEARIZE (RPLACD CONS SEDIT::CREATE-WEAK-LINK IMAX IPLUS +SEDIT::OUTPUT-CONSTANT-STRING) WALK-FORM (CL:FUNCTION WALK-FORM-INTERNAL) COMPILER::RELEASE-UNWIND-PROTECT + (COMPILER::RELEASE-TREE COMPILER::UNWIND-PROTECT-STMT COMPILER::UNWIND-PROTECT-CLEANUP) +\DUMMYKEYHANDLER (FUNCTION) DMCHAT.NEWLINE (\DTEST) ENTEREVALQT (MAPC ERSETQ EVAL) +DIRECTORY.FILL.PATTERN (PACKFILENAME.STRING) PARSE-DEFMACRO (DECLARE) \TEDITMENU.CREATE ( +\TEXTMENU.DOC.CREATE) \KEYHANDLER (\KEYHANDLER1) MS-SMASH-PACKAGE (MS-SMASH-PACKAGE CONS +CL:SYMBOL-PACKAGE CL:INTERN CL:STRING-UPCASE CL:SYMBOL-NAME) SEDIT::GET-BUTTON-STRING ( +CL:PRIN1-TO-STRING CL:PRINC-TO-STRING) DINFO.SETUP.WINDOW (CONCAT WINDOWADDPROP) \BIGNUM.TO.INT (IPLUS + ITIMES \BIGNUM.TO.INT) \FILING.ATTRIBUTE.TYPE (FIXP) COMPILER::CRACK-DEFMACRO (CL:SECOND CL:THIRD +CL:GENSYM) COMPILER::RELEASE-SETQ (COMPILER::RELEASE-TREE COMPILER::SETQ-VALUE) \BN.2TH (\BN.QRS CONS) + COMP.MACRO (SELECTQ COMP.CALL COMP.ARGTYPE COMP.PUNT BLKAPPLY* APPLY CONS COMP.LAMBDA MACROEXPANSION +COMP.EXP1) HASHRECORD (DECLARERECORD CONS) \BN.QRS (CONS REVERSE \BN.IDIVIDE IPLUS ITIMES) PPSPPSTREAM + (PRIN1 \SPP.GETFILEPTR TERPRI) EDITSHADE (CREATETEXTUREFROMBITMAP \BITMAPFROMTEXTURE BITMAPCREATE +\ILLEGAL.ARG CREATEREGION CREATEW GETBOXREGION BITMAPWIDTH BITMAPHEIGHT IMIN IQUOTIENT THIS.PROCESS - +ITIMES RESETSAVE LIST LOGAND LOGOR DOWINDOWCOM WHICHW ZEROP LASTMOUSEX LASTMOUSEY GRIDXCOORD +GRIDYCOORD PRIN1 GETPROMPTWINDOW) \ARBIN (\SMALLPIN SUB1 LLSH IDIFFERENCE OPENSTRINGSTREAM \STRINGIN +READ) \BN.ABS (\BN.SIGN \BN.MINUS) SI::FINISH-ADVISING (CL:MEMBER GET CL:MAKE-SYMBOL CL:FORMAT +CL:COMPILE SI::CREATE-ADVISED-DEFINITION CL:DELETE CONS LIST SI::GET-ADVICE-MIDDLE-MAN +SI::CONSTRUCT-MIDDLE-MAN) COMPILER::MAKE-CHILD-ENV (COMPILER::MAKE-ENV) \BN.MINUS (CONS IMINUS +\BN.MINUS SHOULDNT) \TEXTDSPXPOSITION (TEXTOBJ DSPXPOSITION TIMES CHARWIDTH POSITION) LISPSOURCEFILEP +(RESETLST RESETSAVE LIST OPENSTREAM GETFILEPTR) \INSPECTW.COMMAND.HANDLER (WITH-INSPECTOR-ENV +WINDOWPROP XCL::PROFILIZE CL:PROGV XCL::PROFILE-VARIABLES XCL::PROFILE-VALUES DSPCLIPPINGREGION +LASTMOUSEX LASTMOUSEY PROMPTPRINT ERSETQ APPLY* ZEROP LOGAND CLRPROMPT FUNCTION) SI::DESCRIBE-INTERNAL + (CL:TYPE-OF SI::A-OR-AN SI::GET-DESCRIBERS SI::DESCRIBE-USING-DESCRIBERS CL:1+ SI::GET-INSPECT-MACRO +SI::DESCRIBE-USING-INSPECT-MACRO SI::GET-SUPER-DESCRIBERS FINDRECDECL FINDSYSRECDECL +SI::DESCRIBE-USING-RECORD-DECL CL:PRIN1) READVARS-FROM-STREAM (HPINITRDTBL CL:FUNCTION READ) \BN.SIGN +(SHOULDNT \BN.SIGN) EDITSHADEREPAINTFN (WINDOWPROP BITMAPWIDTH BITMAPHEIGHT ITIMES) \D01.ASSIGNBUFFERS + (EMPOINTER \VAG2 UNFOLD LLSH \READRP PLUS IDIFFERENCE CEIL LOGAND IPLUS CONSTANT SUB1 LOGXOR IMOD +TIMES FOLDLO LRSH IGEQ \ADDBASE IMIN IQUOTIENT) MSSETSETTYPE (MS-SMASH-PACKAGE CL:FIND-PACKAGE) +\TEDIT.NSCHAR.RUN (SUB1 GETFILEPTR \CHTOPC - BIN FFILEPOS MKSTRING CHARACTER IPLUS IQUOTIENT +IDIFFERENCE ITIMES PLUS FFETCHFIELD OPENSTREAM \SETUPGETCH) XCL::PPRINT-DEFINER-FITP (COUNT FITP < + +DSPXPOSITION STRINGWIDTH DSPRIGHTMARGIN) ENTRY# (IPLUS IMINUS FLENGTH FMEMB) THREESTATE.INIT ( +IMAGEFNSCREATE FUNCTION) \CHAIN.UP.RPT (\ADDBASE SUB1 \LOCKEDPAGEP PLUS) COURIER.READ.BULKDATA (NCONC +GETWORD IPLUS LLSH \BIN COURIER.READ.SEQUENCE) COMPILER::RELEASE-RETURN (COMPILER::RELEASE-TREE +COMPILER::RETURN-VALUE COMPILER::RETURN-BLOCK) XCL::PPRINT-DEFINER-RECURSE (DECLARE SUPERPRINT) +COMP.PROG1 (COMP.EXP1 COMP.EXPR COMP.EFFECT) \VFMFreeVPage (ADD1 ELT \PFVolumeNumber \VFMKillBuffer) +\TEDIT.HCPYFMTSPEC (DSPSCALE FIXR FTIMES CONS MAPCAR SCALEPAGEUNITS) SETCOLORLV.IP (BITMAPCREATE +BITMAPWIDTH BITMAPHEIGHT IPLUS ITIMES SUB1 BITMAPBIT PLUS NUMBERP SELECTQ) \TEDIT.PAPERHEIGHT ( +\TEDIT.PAPERWIDTH SELECTQ ASSOC) %%PATHNAME-EQUAL (%%PATHNAME-HOST %%PATHNAME-DEVICE +%%PATHNAME-DIRECTORY %%PATHNAME-NAME %%PATHNAME-TYPE CL:EQUAL %%PATHNAME-VERSION) TERM.DELCHAR (\DTEST + - + TERM.ERASEBITS) \NSFILING.ADDQUOTES (STRINGP MKSTRING SUB1 IPLUS ADD1 \GETBASEFAT \GETBASE +\GETBASETHIN \GETBASEBYTE CONCATCODES CONS REVERSE) \VFMDelete2 (\BLT MESASIZE \ADDBASE IPLUS +IDIFFERENCE \VFMMarkBufferDirty) COMPILER::EFFECTS-ANALYZE-MV-PROG1 (COMPILER::EFFECTS-ANALYZE-LIST +COMPILER::MV-PROG1-STMTS) HPRINT0 (HPRINT MAPCAR LITATOM GETATOMVAL) SETCOLOR16.IP (IQUOTIENT ITIMES +BITMAPCREATE IPLUS SELECTQ) CL::SIMPLE-STRING= (%%STRING-LENGTH + %%STRING-BASE-COMPARE) +\SEQUIN.HANDLE.ACK (\QUEUEHEAD FFETCHFIELD PLUS LOGAND ADD1 APPLY*) FORMAT-PRINT-ORDINAL (ABS) +CL:ARRAY-DIMENSIONS (LIST CL:ERROR) MSDOES (MSCANT) SEDIT::DELETE-LITATOM (NCHARS SEDIT::DELETE-NODES +SEDIT::ATOM-POINT-TYPE) FW-INTERACT (SELECTQ MENU FW-FORGET-CMD FW-RECALL-CMD FW-CLOSE-CMD +FW-MOVE-OFD-WINDOWS PROMPTPRINT) COMPILER::EFFECTS-ANALYZE-LITERAL (COMPILER::LITERAL-VALUE +COMPILER::NODE-EFFECTS COMPILER::NODE-AFFECTED) GETPOSITION (GETSCREENPOSITION) +MB.THREESTATE.WHENOPERATEDFN (SELECTQ MB.THREESTATE.SHOWSELFN) %%FLATTEN-ARRAY (CL:ARRAY-RANK +CL:MAKE-ARRAY CL:ARRAY-TOTAL-SIZE CL:ARRAY-ELEMENT-TYPE) \TEDIT.FORMATTABS (IMAX IDIFFERENCE LRSH PLUS + IPLUS ITIMES IQUOTIENT) FB.CLOSE&EXPUNGE (TB.USERDATA ATTACHEDWINDOWS WINDOWPROP ASSOC RESETLST +FB.MAKE.BROWSER.BUSY TB.FINISH.CLOSE) COMPILER::RELEASE-PROGV (COMPILER::RELEASE-TREE +COMPILER::PROGV-SYMS-EXPR COMPILER::PROGV-VALS-EXPR COMPILER::PROGV-STMT) XCL::%%DEFINE-TYPE-SAVE-DEFN + (GETFILEPKGTYPE CL:GETHASH) COMP.VAR (COMP.LOOKUPVAR ASSOC COMP.BOX) \MAKERECODEMAP (CL:MAKE-ARRAY +CL:SVREF LOGAND) REDISPLAYGRAPH (DISPLAYGRAPH WINDOWPROP DSPCLIPPINGREGION) \M44ACTONVMEMFILE (IPLUS +EMPOINTER \VAG2 \GETBASE \WHICHPART IMIN SUB1 ADD1 IDIFFERENCE \LOLOC \LOOKUPFMAP \ADDBASE PLUS LOCF +\ACTONVMEMPAGES \GETBASEPTR LLSH IMINUS RAID) ENABLEWHEELSCROLL (LIST MAPC KEYACTION CONS) +\TEXTDSPYPOSITION (TEXTOBJ DSPYPOSITION DIFFERENCE) FB.DELVERCOMMAND (MENU RNUMBER MKATOM +FB.PROMPTW.FORMAT TB.COLLECT.ITEMS FUNCTION FB.DELVER.FILES SELECTQ FB.SORT.VERSIONS SORT) +SUPERPRINTEQ (FASSOC) \ITEM.WINDOW.SELECTION.HANDLER (WINDOWPROP LOGAND IN/ITEM? CURSORPOSITION LOGOR) + SCALEPAGEXUNITS (FIXR FTIMES \TEDIT.PAPERWIDTH IPLUS) \SEQUIN.COMPARE (LOGAND IDIFFERENCE) +COMPAREPRINT1 (COMPAREMAX COMPARELST NCHARS COMPARENCHARS) EQMEMBHASH (MEMB GETHASH) LVLPRIN (LAST +PRIN1 PRIN2) CL::PARSE-SLOT (LIST CL::MAKE-PARSED-SLOT) \TELERAIDSERVER (\TELERAIDENTRY \GETBASEPTR +LOCF \ADDBASE \READFLAGS \LOOKUPPAGEMAP IPLUS \GETBASEBYTE \GETBASE ADD1 PLUS LOGAND LRSH LLSH SELECTQ + \KEYNAMETONUMBER \TELERAIDCOMMAND \BOXIDIFFERENCE \RCLK) \REMOVE-DECLS (CL:FUNCTION CL:MACROEXPAND-1 +ENVIRONMENT-VARS LIST* CL:VALUES) PTPLUS (PLUS) SI::UNADVISE-FROM-RESTORE-CALLS (CL:FIND-IF CL:FUNCTION + CL:FORMAT) MSREHASH (IPLUS IQUOTIENT ITIMES HARRAYSIZE) MSKNOWN (SELECTQ MSKNOWN) +SEDIT::COPY-STRUCTURE-STRING (CONCAT SEDIT::ADJUST-WIDTH SEDIT::STRINGWIDTH) COMPILER::EFFECTS-ANALYZE-LAMBDA + (COMPILER::LAMBDA-BODY COMPILER::LAMBDA-APPLIED-EFFECTS COMPILER::EFFECTS-UNION COMPILER::NODE-EFFECTS + COMPILER::LAMBDA-APPLIED-AFFECTED COMPILER::NODE-AFFECTED) \LEASTPTAT (ADD1 IQUOTIENT IPLUS +IDIFFERENCE ITIMES HALF LRSH) TERM.LEFT (\DTEST MOVETO IMAX - ITIMES) \INITBFS (\ADDBASE IDIFFERENCE +EMPOINTER \VAG2 LOCF IQUOTIENT IPLUS) EXTENDREGIONRIGHT (IPLUS IDIFFERENCE) COMPILER::RELEASE-PROGN ( +CL:MAPC CL:FUNCTION COMPILER::PROGN-STMTS) COMP.CONST (COMP.STCONST) READVARS (RATOM READ) +TERM.ERASE.TO.EOL (\DTEST TERM.ERASEBITS -) \BN.IDIVIDE (CONS IQUOTIENT IREMAINDER) \EVAL-PROGN ( +\EVAL-PROGN CL:EVAL) FLENGTH (ADD1) LVLPRIN0 (SUB1 IPLUS) PPSPP (\GETSTREAM TERPRI PRIN1 SELECTC +FQUOTIENT CLOCKDIFFERENCE \LOLOC IDIFFERENCE SUB1 IPLUS \QUEUELENGTH LIST OUTPUT CL:MULTIPLE-VALUE-PROG1 + .UNWIND.PROTECT. FUNCTION ILESSP ELT RETRANSMITINDEX IMOD SEQ.ADD1 \ADDBASE) COMMON-LISP (\EVAL-PROGN +) XCL::%%EXPAND-DEFINER (CL:FUNCALL GET) READVISE (NLAMBDA.ARGS CL:FLET MAPCONC REVERSE READVISE-ENTRY + READVISE1) \TRANSLATE-CL%:LAMBDA (CONS PLUS MAKE-KEYWORD LIST PARSE-BODY) \BN.IGNN (LIST IQUOTIENT +IDIFFERENCE ITIMES CONS \BN.FROM.FIXP) \TEXTLEFTMARGIN (TEXTOBJ IPLUS) COMPILER::EFFECTS-ANALYZE-MV-CALL + (COMPILER::EFFECTS-ANALYZE-ANY-CALL COMPILER::MV-CALL-FN COMPILER::MV-CALL-ARG-EXPRS) SCALEPAGEYUNITS + (FIXR FTIMES \TEDIT.PAPERHEIGHT IPLUS) XCL::GET-DEFINER-NAME (CL:VALUES CL:INTERN CL:CONCATENATE +STRING CL:SYMBOL-PACKAGE) EDITGRAPH2 (PRIN1 LOGAND LOGOR ERSETQ GRAPHEDITCOMMANDFN TERPRI CLRPROMPT +WINDOWPROP ZEROP) SUBLIS (CONS SUBLIS FASSOC COPY) MB.THREESTATE.SHOWSELFN (IMAGEOBJPROP IMAGEBOX SUB1 +) PRINTPARA (POSITION IDIFFERENCE IPLUS LINELENGTH PRINTPARA1) \PFFetchString (ALLOCSTRING MIN +\GETBASE NCHARS \GETBASEBYTE SUB1 PLUS) XCL::%%REMOVE-SPECIAL-FORM (/REMPROP) \TEDIT.PURGE.SPACES ( +SUB1 \EDITELT GETBASEPTR \GETBASEPTR \ADDBASE2 \ADDBASE \RPLPTR) DSUBLIS (SUBLIS DSUBLIS) +\ITEMW.FLIPITEM (BLTSHADE) CL::RECORD-DOCUMENTATION (CL::PS-DOCUMENTATION-STRING) XCL::%%DEFINER-NAME +(CL:FUNCALL GET) XCL::%%DELETE-DEFINER (GET) KILL.LINES (FRPLACA FRPLACD FLAST) SPY.BUFFER.ENTRY (LLSH + \GETBASEPTR \VAG2 \GETBASE) \READBMDIMENSIONS (READ BITMAPCREATE BITSPERPIXEL) HISTORYMATCH ( +EDITFINDP) FB.DELETE.FILE (TB.USERDATA PLUS FFETCHFIELD) SPECVARS (APPEND UNION) PTDIFFERENCE ( +DIFFERENCE) \VFMFind (\BLT \VFMGet ADD1 MESASIZE \VFMGetBufferFor MESASETQ IQUOTIENT SUB1 \GETBASE +PLUS \VFMMerge) SEditicide (OPENWINDOWS WINDOWPROP) PRINTPARA1 (PRINTPARA1 ADD1 IPLUS NCHARS) +TEDIT.PARSE.PAGEFRAMES1 (MAPCAR LIST \TEDIT.SCALE CONSTANT FQUOTIENT TEDIT.PARSE.PAGEFRAMES1) +BIGNUM.DEFPRINT (CONS CONCAT CHARACTER \CHECKRADIX \INVALID.RADIX SELECTQ TIMES \BN.TH2D \BN.QRS IPLUS + IMOD IQUOTIENT LENGTH FRESHLINE \OUTCHAR) \MAIKO.NEWFAULTINIT (IDIFFERENCE) \BN.TH2D (LIST IQUOTIENT +IDIFFERENCE ITIMES CONS ABS IPLUS REVERSE) \MAIKO.DO.MOVDS (MAPC UNINTERRUPTABLY) \INVALID.RADIX ( +ERROR) \BITMAPFROMTEXTURE (BITMAPCREATE LOGAND \BITMASK \WORDELT IPLUS ITIMES IDIFFERENCE PLUS) +\ATWGROUPSIZE (WINDOWREGION UNIONREGIONS CONS) PARSE-BODY (CL:VALUES CL:REVERSE) \BN.ISUM1 (IPLUS CONS + \BN.ICANON DREVERSE) ROTATE.IP (APPENDOP.IP) \TEXTRIGHTMARGIN (TEXTOBJ TIMES CHARWIDTH LINELENGTH) +\MAIKO.ASSIGNBUFFERS (\LOLOC \ADDBASE PLUS UNFOLD LLSH) \BN.ISUM0 (\BN.IDIVIDE IPLUS CONS REVERSE) +NESTED.SUBMENU.POS (\GETDISPLAYDATA \DTEST \OUTSTREAMARG \GETSTREAM IDIFFERENCE LENGTH FMEMB +\DSPTRANSFORMX IPLUS ITIMES IREMAINDER \DSPTRANSFORMY SUB1 IQUOTIENT) TB.MAP.SELECTED.ITEMS (SUB1 +\DTEST PLUS TB.NTH.ITEM CL:FUNCALL) EXTENDREGIONLEFT (IPLUS IDIFFERENCE) \BN.NZEROS (LIST PLUS) +CONSTANTOK (IPLUS NCHARS CONSTANTOK SUB1) PRINTSPP (PRIN1 SELECTC IDIFFERENCE CONSTANT IPLUS TERPRI) +ADDHASH (GETHASH FMEMB LIST) \TEXTSTREAM.FILENAME (TEXTOBJ PACKFILENAME) TEDIT.HARDCOPYFN (TEXTOBJ +TEXTSTREAM RESETSAVE \TEDIT.MARKACTIVE TEDIT.FORMAT.HARDCOPY) COMPILER::META-EVALUATE (COMPILER::NODE-META-P +) \M-VMEMSAVE (LOGNOT16 LOGXOR) PRINENDLINE (MOVETO + DSPYPOSITION DSPLINEFEED IMAGESTREAMTYPE +TTYDISPLAYSTREAM SETFONT QUOTIENT - DSPXPOSITION REMAINDER) PORTSTRING (CONCAT OCTALSTRING LRSH LOGAND +) \DOCOMPRESSVMEM (DLFPFROMRP SUB1 \GETBASE PLUS) FIXLISPX/ (LISPX/) FORMAT-PRINT-CARDINAL ( +FORMAT-PRINT-CARDINAL-AUX - WRITE-STRING*) CHANGEFONT (DSPFONT) ITEMW.REPAINTFN (WINDOWPROP +\ITEMW.FLIPITEM) EDITDELETENODE (RESETFORM TTYDISPLAYSTREAM CLRPROMPT WINDOWPROP READ/NODE printout +TERPRI ASKUSER LIST DISPLAY/NAME CONSTANT APPEND TOLINKS GRAPHDELETELINK GETNODEFROMID FROMLINKS) +POLYSHADE.SCAN.IP (IMLTLIST MAPCAR PREPLOOP APPENDOP.IP) CL::ASSIGN-SLOT-ACCESSOR (CL::PSLOT-ACCESSOR +CL:VALUES CL:INTERN CL:CONCATENATE STRING CL::PSLOT-NAME) \TEDIT.APPLY.PARALOOKS (WINDOWPROP ADD1 +MBUTTON.FIND.NEXT.BUTTON IMAGEOBJPROP CONS U-CASE MKATOM MBUTTON.NEXT.FIELD.AS.TEXT +MBUTTON.NEXT.FIELD.AS.NUMBER FIXR TIMES SORT MAPCAR) COMPILER::EFFECTS-ANALYZE-LABELS ( +COMPILER::EFFECTS-ANALYZE COMPILER::LABELS-BODY COMPILER::NODE-EFFECTS COMPILER::NODE-AFFECTED) +\GREATESTPTAT (IQUOTIENT IPLUS IDIFFERENCE ITIMES ADD1 HALF LRSH) MB.THREESTATEBUTTON.FN (IMAGEOBJPROP + SELECTQ TEXTSTREAM) RESETGRID.NEW (WINDOWPROP IPLUS LEFTOFGRIDCOORD BOTTOMOFGRIDCOORD CL:* + +BITSPERPIXEL - COPYALL GRID) BITMAPOBJ.SNAPW (GETREGION BITMAPCREATE BITSPERPIXEL SCREENBITMAP +BITMAPTEDITOBJ COPY) PRINT3TO10 (PRIN1 TERPRI) COMP.USERFN (LIST ERROR GETHASH MAPCAR APPLY*) +FB.UPDATE.COUNTERS (WINDOWPROP LIST FB.COUNTER.STRING IDIFFERENCE DSPXPOSITION) EDITGRAPH (SHOWGRAPH) +FITP (CHARWIDTH BLANKS TIMES - DSPXPOSITION + DSFIT1 DSFIT2) \TEDIT.BUTTONEVENTFN ( +MODERNWINDOW.BUTTONEVENTFN FUNCTION) SUPERPRINT (\GETSTREAM ASSOC TYPENAME APPLY* PRIN2STRING +IDIFFERENCE WIDTH STRINGWIDTH DSPXPOSITION IMIN PRIN2S SUPERPRINT/COMMENT SUPERPRINT0 GETHASH) +MAKEHASH (HASHARRAY FUNCTION) SUBHASH (GETHASH DREMOVE) SEMI-COLON-COMMENT-P (SELECTQ) +MAKEHVPRETTYCOMS (ERROR) \TEXTDSPFONT (TEXTOBJ \GETFONTDESC DSPFONT) Inspecticide (OPENWINDOWS +WINDOWPROP) SCALE2.IP (APPENDOP.IP) SEDIT::COPY-SELECTION-LITATOM (SEDIT::DETRANSLATE-CHARS SUBSTRING +SEDIT::COPY-SELECTION-DEFAULT) DECODEBUTTONS (SMALLP NCONC LOGAND CONS) FB.DELETECOMMAND (FUNCTION +FB.UPDATE.COUNTERS) \MENU.ITEM.SELECT (GETMENUITEM) EDITGRAPH1 (SIZE/GRAPH/WINDOW FUNCTION) +CL::REMOVE-DOCUMENTATION (CL::PS-DOCUMENTATION-STRING CL:REST) FB.DELVER.FILES (PLUS) \BN.D2TH ( +REVERSE IPLUS ITIMES IMINUS CONS) \SEQUIN.CLEANUP (SELECTQ \SEQUIN.FLUSH.CONNECTION) DMCHAT.CLEAR ( +\DTEST TERM.HOME) COMPILER::RELEASE-MV-PROG1 (CL:MAPC CL:FUNCTION COMPILER::MV-PROG1-STMTS) +GETFILEPKGTYPE (GETFILEPKGTYPE LIST TYPESOF SELECTQ FMEMB - NCHARS FIXSPELL UNION ERROR) +COMP.TRYUSERFN (COMP.USERFN CONS) SETMAINTPANEL (SELECTC OPCODES) SPY.DRAWBOX (DIFFERENCE BITBLT) +\NOTE.3TO10 (ASSOC \DTEST CONS LIST CLOCK FFETCHFIELD) TERM.ADDCHAR (\DTEST - + TERM.ERASEBITS) +\BN.ICANON (IPLUS IDIFFERENCE ITIMES) PRINTATBOX (IDIFFERENCE FONTPROP DSPFONT PRINTANDBOX) +\DOFORMATTING (LLSH PLUS FFETCHFIELD IPLUS LRSH ADD1 SUB1 \EDITELT GETBASEPTR \GETBASEPTR \ADDBASE2 +\ADDBASE \RPLPTR IQUOTIENT LOGAND FQUOTIENT) \TEDIT.PARABOUNDS (CONS \CHTOPC IPLUS PLUS SUB1 IMINUS) +IOCBQLENGTH (PLUS EMPOINTER \VAG2) FIXAPPLY1 (STKNARGS FSTKARG SUB1 BLIPVAL FMEMB) DREVERSE (FRPLACD) +FB.HEADINGW.REDISPLAYFN (FB.HEADINGW.DISPLAY WINDOWPROP) \TEXTMENU.DOC.CREATE (OPENTEXTSTREAM +MBUTTON.CREATE MKATOM PLUS MB.CREATE.THREESTATEBUTTON \TEXTMENU.TOGGLE.CREATE MB.CREATE.NWAYBUTTON +MB.CREATE.FULLMENU MARGINBAR.CREATE LIST NCHARS IPLUS MKSTRING CONS FFETCHFIELD) \DL.NEWFAULTINIT ( +SUB1 \ADDBASE DLFPFROMRP PLUS + LOGAND IMIN ADD1 IMAX UNFOLD LLSH - \DoveDisplay.ScreenWidth CONSTANT +EXPT TIMES3 FOLDLO LRSH FOLDHI IPLUS IMOD RPTFROMRP IDIFFERENCE DLRPFROMFP \READFLAGS \READRP) +POLYSHADE.BLT (PREPLOOP MAPCAR \POLYSHADE.BLT) CL::%%DEFSTRUCT-CONSP-OPTIONS (CL:REMOVE) +XCL::MAKE-UNDOABLE (LIST) COMPILER::EFFECTS-ANALYZE-GO (COMPILER::NODE-EFFECTS LIST COMPILER::GO-TAGBODY + COMPILER::NODE-AFFECTED) UPDATE/BM/DISPLAY/SELECTED/REGION (WINDOWPROP BLTSHADE IDIFFERENCE IPLUS) +SEDIT::CONS-ATOM (NLSETQ READ OPENSTRINGSTREAM CONCAT ALLOCSTRING \SMASHSTRING NCHARS) +COMPILER::RELEASE-MV-CALL (COMPILER::RELEASE-TREE COMPILER::MV-CALL-FN CL:MAPC CL:FUNCTION +COMPILER::MV-CALL-ARG-EXPRS) COMP.PROGLST (COMP.EXPR PLUS COMP.EFFECT) MAPRELATION (NARGS +PARSERELATION MAPTABLE FUNCTION) SHAPEW.POP (SHAPEW WINDOWPROP WINDOWREGION) XCL::UNDOABLY-MAKUNBOUND +(SAVESET /PUTHASH /REMPROP) \TEXTDSPLINEFEED (FONTPROP DSPFONT) \PARSE.PORTCONSTANT (STRINGP MKSTRING +SUB1 IPLUS ADD1 \GETBASEFAT \GETBASE \GETBASETHIN \GETBASEBYTE LLSH IDIFFERENCE CONS LOGOR) +\NSFILING.REMOVEQUOTES (CONCATCODES NTHCHARCODE PLUS LIST) \BN.MADD (\BN.IDIVIDE ITIMES IPLUS CONS) +CL:IF (\EVAL) \SEQUIN.RETRANSMITNEXT (PLUS FFETCHFIELD) TEXTMENU.CLOSEFN (WINDOWPROP) POLYSHADE.IP ( +POLYSHADE.SCAN.IP LISTGET) \BN.TH2B (CONS \BN.MADD) HASHLINKS (SUBDECLARATIONS RECORD.CREATEINFO +RECORDECL RECORD.NAME LIST) COMPILER::EFFECTS-ANALYZE-IF (COMPILER::EFFECTS-ANALYZE-LIST LIST +COMPILER::IF-PRED COMPILER::IF-THEN COMPILER::IF-ELSE) DMCHAT.RIGHT (+ \DTEST MOVETO DMCHAT.NEWLINE) +PROMPTFOREVALED (FONTCREATE WINDOWTITLEFONT CREATEW CREATEREGION WIDTHIFWINDOW MAX STRINGWIDTH +HEIGHTIFWINDOW ITIMES FONTPROP DEFAULTFONT CLEARW TTYDISPLAYSTREAM ERSETQ LISPX LISPXREAD) +FB.COUNTER.STRING (CONCAT MKSTRING) COMPILER::ANNOTATE-TREE (COMPILER::FRAME-ANNOTATE +COMPILER::CLOSURE-ANNOTATE) COMPILER::EFFECTS-ANALYZE-CATCH (COMPILER::EFFECTS-ANALYZE-LIST LIST +COMPILER::CATCH-TAG COMPILER::CATCH-STMT) \TEDIT.BASICFIND (ADD1 IDIFFERENCE NCHARS NTHCHARCODE +SELECTQ SUB1 \BIN PLUS) GETCP.IP (APPENDOP.IP) LEVELEDFORM (CONS LEVELEDFORM SUB1) FORMAT-WRITE-FIELD +(CL:LENGTH FORMAT-ROUND-COLUMNS + WRITE-STRING*) \INITBIGNUMS (\TYPENUMBERFROMNAME LOGOR \BN.FROM.FIXP +) FB.HEADINGW.RESHAPEFN (WINDOWPROP FB.HEADINGW.DISPLAY) \EVAL-INVOKE-LAMBDA (ADDSTACKBASE \VAG2 - +\MYALINK OPCODES +) \SETTYPEMASK (\GETDTD \ADDBASE ITIMES LOGOR FFETCHFIELD FUNCTION) COMP.EQ ( +COMP.PROGN COMP.NOT COMP.STCONST APPLY* COMP.STFN) CL:EVAL (CL:FUNCALL) CHOOZ (CHCON FLENGTH ELT ADD1 +LAST APPLY* GENERATE NCHARS IQUOTIENT ITIMES IDIFFERENCE SKOR DCHCON LIST MKATOM CONS PACKC CHOOZ1 +SUB1 DREVERSE) \INTERPRET-ARGUMENTS (CL:MACROLET RECUR WITH-BINDING LIST PLUS EVENP - CL:EVAL) +TESTRELATION (PARSERELATION FMEMB GETTABLE TESTTABLE) LASTC (\GETSTREAM FCHARACTER) MASKSTROKE.IP ( +APPENDOP.IP) \TEXTDSPCHARWIDTH (CHARWIDTH DSPFONT) TERM.DELETELINE (\DTEST + - TERM.ERASEBITS) +POSTSCRIPT.PUTBITMAPBYTES (LRSH IPLUS LSH CL:FUNCALL FUNCTION SUB1 ITIMES \GETBASEBYTE LOGAND PLUS +IMINUS \BOUTEOL BITMAPCREATE ADD1 IDIFFERENCE) COMPAREFAIL (SOME CL:FUNCALL IGREATERP COUNTDOWN SUB1 +NLISTP FASSOC EQUAL NCONC1 CONS) EXTENDREGIONBOTTOM (IPLUS IDIFFERENCE) PEEKC (FUNCTION \GETSTREAM +FCHARACTER PEEKCCODE) TEDIT.MINIMAL.WINDOW.SETUP (FLAST WINDOWPROP LIST FUNCTION FMEMB CONS NCONC1 +\TEDIT.CREATE.LINECACHE DSPCREATE LISTGET DSPCLIPPINGREGION \SHOWTEXT NCONC) PEEKCCODE (FUNCTION +\PEEKCCODE \GETSTREAM) FINDFN (STKNTH STKNAME STKARG STKNTHNAME STKARGS GETD GETPROP REALSTKNTH +SELECTQ STKPOS) \PEEKREFILL (SELECTQ STKNAME IMINUS \CHARSET LRSH \RAISECHAR IDIFFERENCE \CHAR8CODE +LOGAND \ECHOCHAR BIN) CLISP% (BLIPVAL STKNTH EVAL) ISET.IP (APPENDOP.IP) TEXTSTREAM.TITLE (TEXTOBJ) +\LOOKUPPORT (\GETMISCSOCKET ALLOCATE.PUP EXCHANGEPUPS IQUOTIENT FOLDLO LRSH - TERPRI CONS LIST PLUS +\ADDBASE GETPUPSTRING) BRKDWNINIT (BRKDWNARRAY ARRAY ADD1 NCREATE PLUS) \CHECKEOLC.CRLF ( +UNINTERRUPTABLY \PEEKCCODE) /DSUBST (COPY) \POLYSHADE.YSCAN.IP (MAPCAR SORT CONS CRITSECT IPLUS +FILLRECTANGLE.IP IDIFFERENCE MAPC IMIN NORMSECT) PARSERELATION1 (APPLY* SELECTQ FUNCTION ERROR +PARSERELATION1 MSVBTABLES GETWORDTYPE FASSOC GETHASH) DINFO.READ.GRAPH (FILENAMEFIELD PRIN1 INFILEP +READFILE ERROR LISTGET) /NCONC (ARG ADD1 LAST) BMOBJ.GETFN4 (\PEEKBIN FPLUS \WIN IPLUS LLSH \BIN +FQUOTIENT BITMAPTEDITOBJ \READBINARYBITMAP) EDITMODE (TTYDISPLAYSTREAM SELECTQ) COMPILER::PEEPHOLE-OPTIMIZE + (CL:MAKE-HASH-TABLE) RATOM (\GTREADTABLE FUNCTION WITH-RESOURCE \SUBREAD \GETSTREAM GETRESOURCE +NEWRESOURCE ALLOCSTRING) VKBD.FIX.FONT (MAPC EVALV) \DL.ASSIGNBUFFERS (\LOLOC \ADDBASE PLUS \READRP +UNFOLD LLSH) \SUBREAD (SELECTC LIST \SYNCODE GETHASH \GETBASEBYTE \INCCODE \PEEKCCODE \INCHAR +\SUBREADCONCAT \PUTBASECHAR \PUTBASEFAT \PUTBASE \PUTBASETHIN \PUTBASEBYTE PLUS CONS \SMASHSTRING +ALLOCSTRING \EOFP SPREADAPPLY* \PARSE.NUMBER LISPERROR \READ.SYMBOL RPLACD \FIND.PACKAGE.INTERNAL +\GETBASESTRING \SUBREAD CL:CODE-CHAR \RSTRING2 \GETREADMACRODEF RELEASERESOURCE GETRESOURCE +NEWRESOURCE \APPLYREADMACRO LAST) TEDIT.GET (TEXTOBJ TEXTPROP \TEDIT.MAKEFILENAME TEDIT.GETINPUT +\TEXTSTREAM.FILENAME APPLY* FULLNAME RESETSAVE TTYDISPLAYSTREAM CURSOR \SHOWSEL \TEXTCLOSEF OPENP +OPENSTREAM TEDIT.BUILD.PCTB MAPC EVAL \TEDIT.GET.INSERT.CHARLOOKS \FIXSEL TEXTSTREAM.TITLE +\TEDIT.WINDOW.TITLE \TEDIT.ORIGINAL.WINDOW.TITLE TEDITMENU.STREAM PACKFILENAME MBUTTON.SET.FIELD +\TEDIT.SET.WINDOW.EXTENT \TEDIT.PRIMARYW \TEDIT.HISTORYADD) \DL.MARK.PAGES.UNAVAILABLE (RPTFROMRP +IDIFFERENCE PLUS \ADDBASE) \TEXTDSPSTRINGWIDTH (STRINGWIDTH DSPFONT) \CLEARWORDS (SUB1 \ADDBASE +IDIFFERENCE) TREEGRAPHNODE (LIST NODECREATE CONS SUB1 TREEGRAPHNODE APPEND) \PS.BOUTFIXP (IMINUS BOUT +IPLUS SUB1 IREMAINDER IQUOTIENT PLUS \BOUTS IDIFFERENCE MAPC CHCON \CHAR8CODE LOGAND) UPPERCASEARRAY ( +ARRAYP CASEARRAY IDIFFERENCE CONSTANT PLUS) \FDECODE/BUTTON (SELECTQ) COMPAREMAX (IQUOTIENT +IDIFFERENCE IPLUS COUNTDOWN) \DL.UNMAPPAGES (\ADDBASE PLUS) \RATOM/RSTRING-REFILL (STREAMPROP \BIN) +ONEDINSPECT.SCROLLFN (WINDOWPROP FUNCTION) /NCONC1 (/NCONC FRPLACD CONS) /RPLACA (LIST RPLACA ERRORX) +FIND-EDIT-LOCATION-TAIL (FIND-EDIT-LOCATION-TAIL REMOVE-COMMENTS CONS) /SETPROPLIST (LIST GETPROPLIST +SETPROPLIST) /PUTHASH (LIST GETHASH PUTHASH) TERM.UP (\DTEST MOVETO IMIN + ITIMES) \TOP-LEVEL-READ ( +\DTEST FUNCTION CL:MULTIPLE-VALUE-PROG1 .UNWIND.PROTECT. CL:FUNCTION .CALL.SUBREAD. \SUBREAD +\GETSTREAM GETRESOURCE NEWRESOURCE ALLOCSTRING) /RPLACD (LIST RPLACD ERRORX) SEDIT::CLOSE-NODE-LITATOM + (FREPLACEFIELD CONS LIST FFETCHFIELD SEDIT::CONS-ATOM CONCAT SEDIT::NOTE-CHANGE) +\TEDITPARAMENU.CREATE (\TEXTMENU.DOC.CREATE) READC (\GETSTREAM \GTREADTABLE FUNCTION \INCHAR) +MB.CREATE.THREESTATEBUTTON (IMAGEOBJCREATE STRINGWIDTH FONTPROP BITMAPCREATE DSPCREATE IMAGEOBJPROP) +\DO.PROGV (PLUS IPLUS CEIL LOGAND ADD1 UNFOLD LLSH CONSTANT SUB1 LOGXOR FOLDHI LRSH +\DO.PROGV.SETUP.FRAME.AND.EXECUTE CL:FUNCALL) COMPILER::RELEASE-LAMBDA (COMPILER::LAMBDA-APPLIED-EFFECTS + COMPILER::LAMBDA-APPLIED-AFFECTED MAPC COMPILER::LAMBDA-REQUIRED COMPILER::VARIABLE-BINDER +COMPILER::LAMBDA-OPTIONAL CL:FIRST CL:SECOND COMPILER::LAMBDA-KEYWORD CL:THIRD COMPILER::RELEASE-TREE +COMPILER::LAMBDA-BODY) \READCREFILL (STREAMPROP \BIN) COMP.BIND.VARS (COMP.CHECK.VAR COMP.VARTYPE +FASSOC CONS COMP.EFFECT LENGTH OPT.DREV) \8859PEEKCCODEFN (\RECODECCODE \PEEKCCODE) GRAPHDELETENODE ( +DREMOVE) FILLRECTANGLE.IP (FIXR TIMES IMIN + IMAX - APPENDOP.IP) READCCODE (\GETSTREAM \GTREADTABLE +FUNCTION \INCHAR) CACCESSFNS (DECLARERECORD CONS) GET-RIGHTW (WINDOWPROP CREATEW CREATEREGION FUNCTION +) EDITBMRESHAPEFN (WINDOWPROP IMAX IDIFFERENCE IPLUS IQUOTIENT IMIN ITIMES QUOTIENT TIMES CREATEREGION + MINUS BITMAPWIDTH BITMAPHEIGHT BITMAPCREATE) BMOBJ.GETFN2 (\WIN IPLUS LLSH \BIN BITMAPTEDITOBJ +\READBINARYBITMAP) READP (\GETSTREAM FDEVOP SPREADAPPLY* \GENERIC.READP) SEDIT::EDIT-SELECTION ( +SEDIT::GET-SELECTED-STRUCTURE SEDIT:GET-PROMPT-WINDOW GETPROMPTWINDOW) /ATTACH (/RPLNODE CONS ERRORX +LIST) LISPXTAB (LIST CONS TAB) \10MB.PRINT.ENCAPSULATION (PRIN1) +SMASH.THE.DAMNED.CONST.IN.ATTACHWINDOW (CREATEW WINDOWPROP APPEND COPY CLOSEW) LAYOUTGRAPH ( +STRINGWIDTH HALF LRSH FONTPROP BROWSE/LAYOUT/LATTICE BROWSE/LAYOUT/HORIZ BROWSE/LAYOUT/HORIZ/COMPACTLY + LIST ERROR EQMEMB) POSTSCRIPT.SHOWACCUM (STREAMPROP CONCAT DIFFERENCE CONSTANT CL:FUNCALL FUNCTION) +SKIPSEPRCODES (\GETSTREAM \GTREADTABLE \SYNCODE GETHASH \GETBASEBYTE \PEEKCCODE) COMPARE1 (EQUAL +COMPAREFAIL) /PUTASSOC (ERRORX LIST CONS) SEDIT::BACKSPACE-UNKNOWN (SHOULDNT SEDIT::SET-SELECTION-NOWHERE +) SKIPSEPRS (SKIPSEPRCODES FCHARACTER) UPDATE/SHADE/DISPLAY (WINDOWPROP IDIFFERENCE) +DIRECTORY.NEXTFILE (\GENERATENEXTFILE CONCATCODES MKSTRING) FIND-EDIT-LOCATION (REVERSE +FIND-EDIT-LOCATION-TAIL) COMPILER::RELEASE-LABELS (MAPC COMPILER::LABELS-FUNS COMPILER::VARIABLE-BINDER + COMPILER::RELEASE-TREE COMPILER::LABELS-BODY) FB.COUNTERW.REDISPLAYFN (WINDOWPROP MAINWINDOW +FB.DISPLAY.COUNTERS) COMP.CHECK.VAR (COMP.USERFN APPEND CONS COMPERROR) MOUSESTATE-NAME (SELECTQ HELP) + \VFMCreateVPage (ELT \PFVolumeNumber \VAMAllocPageGroup) \SIMPLIFY.CL.ARGLIST (LIST) +CLOSE.WINDOWS.IN.REGION (GETREGION MAPC OPENWINDOWS WINDOWPROP CLOSEW) INITIALIZECOLOR.IP ( +GETFRAMEVAR.IP) MBUTTON.SET.FIELD (TEXTOBJ MBUTTON.FIND.BUTTON MBUTTON.FIND.NEXT.FIELD FINDNODE-INDEX +MKSTRING NCHARS) \FAULTHANDLER (\FAULTINIT \VAG2 LOGAND) TERM.MODIFY.ATTRIBUTES (\DTEST) +COMPILER::EFFECTS-ANALYZE-CALL (COMPILER::EFFECTS-ANALYZE-ANY-CALL COMPILER::CALL-FN COMPILER::CALL-ARGS +) FORMAT-PRINT-NAMED-CHARACTER (CL:CODE-CHAR CL:CHAR-CODE CL:CHAR-NAME WRITE-STRING* +CL:STRING-CAPITALIZE CL:PRINC-TO-STRING CL:WRITE-CHAR +) \SEQUIN.HANDLE.INPUT (APPLY* \SEQUIN.COMPARE +\SEQUIN.OUT.OF.THE.BLUE LIST PLUS FFETCHFIELD NOTIFY.EVENT FREPLACEFIELD IPLUS16 \LOLOC \ADDBASE) +FREEVARS (CALLS) \TEDIT.MENU.WHENHELDFN (PROMPTPRINT SELECTQ DEFAULTMENUHELDFN) SKREAD (\GTREADTABLE +\GETSTREAM CL:MAKE-CONCATENATED-STREAM CL:MAKE-STRING-INPUT-STREAM MKSTRING SKIPSEPRCODES \EOF.ACTION +SELECTC \SYNCODE GETHASH \GETBASEBYTE) \LOADNSHOSTNUMBER (\GETBASE ERROR) TEDITMENU.STREAM ( +\TEDIT.MAINW ATTACHEDWINDOWS WINDOWPROP TEXTSTREAM) NETDATE (GDATE ALTO.TO.LISP.DATE NETDAYTIME0 +\DAYTIME0) DMCHAT.HANDLECHARACTER (BOUT TERM.PRINTCHAR FUNCTION) CL:MAKE-CONCATENATED-STREAM ( +\ILLEGAL.ARG) I.S.OPR (U-CASE L-CASE GETP LIST GETPROP CONS) SEDIT::BACKSPACE-LITATOM ( +SEDIT::SET-SELECTION-NOWHERE NCHARS SEDIT::DELETE-NODES) \SEQUIN.RETRANSMIT (LOGAND ADD1) +CL:MAKE-STRING-INPUT-STREAM (OPENSTRINGSTREAM SUBSTRING CL:1+) \TEDIT.APPLY.SLOPE (SELECTQ +IMAGEOBJPROP CONS) EXTENDREGION (IDIFFERENCE ADD1) CHECK-KEYWORDS (CL:ERROR) COMPILER::REMOVE-EFFECT ( +CL:REMOVE MKLIST) COMPILER::RELEASE-IF (COMPILER::RELEASE-TREE COMPILER::IF-PRED COMPILER::IF-THEN +COMPILER::IF-ELSE) TOTOPW.MODERNIZE (MAINWINDOW) COMP.BINDLIST (MAPCAR COMP.CHECK.VAR COMP.VARTYPE) +EDITDELETELINK (EDITAPPLYTOLINK FUNCTION WINDOWPROP) LISPXREAD (LISPXREADBUF READ APPLY* EDITE) CL:READ + (.CALL.SUBREAD. \SUBREAD \GETSTREAM GETRESOURCE NEWRESOURCE ALLOCSTRING \TOP-LEVEL-READ) +\TEXTBACKFILEPTR (\TEDIT.APPLY.STYLES SUB1 IPLUS) RESETUNDO (LISTGET1 CONS LIST LISTPUT1 FLENGTH +UNDONLSETQ1) \ASSURE.FPTOVP.PAGE (IMOD IDIFFERENCE \ADDBASE CEIL LOGAND IPLUS CONSTANT SUB1 LOGXOR) +\INSPECT.STORE.FATCHAR (LIST \GETBASE \PUTBASE CHARCODE.DECODE) CL:READ-PRESERVING-WHITESPACE ( +.CALL.SUBREAD. \SUBREAD \GETSTREAM GETRESOURCE NEWRESOURCE ALLOCSTRING \TOP-LEVEL-READ) +MAKE-INSPECTOR-PROFILE (XCL:MAKE-PROFILE) SETCOLOR.IP (DSPOPERATION NEGSHADE APPENDOP.IP SETCOLOR16.IP + SETCOLORLV.IP) CL:READ-DELIMITED-LIST (FIXP CL:CHAR-CODE \GETSTREAM .CALL.SUBREAD. \SUBREAD +GETRESOURCE NEWRESOURCE ALLOCSTRING \TOP-LEVEL-READ) TWODINSPECT.SCROLLFN (WINDOWPROP FUNCTION) +\INVALIDADDR (\MP.ERROR) \8859INCCODEFN (\RECODECCODE \BIN) BMOBJ.GETFN3 (\PEEKBIN FPLUS \WIN IPLUS +LLSH \BIN FQUOTIENT BITMAPTEDITOBJ \READBINARYBITMAP) CL:PARSE-INTEGER (ERROR \CHECKRADIX +\INVALID.RADIX + \ILLEGAL.ARG \SYNCODE GETHASH \GETBASEBYTE \GETBASECHAR \GETBASEFAT \GETBASE +\GETBASETHIN CL:1+ CL:VALUES - PLUS \MKINTEGER CL:SUBSEQ) SHAPEW.AND.SAVE (WINDOWREGION SHAPEW) +\LOOKUPPAGEMAP (\GETBASE IPLUS) SEDIT::BACKSPACE-GAP (SHOULDNT SEDIT::PENDING-DELETE) +\TEDIT.APPLY.ULINE (SELECTQ IMAGEOBJPROP CONS) \MKINTEGER (\GETBASECHAR \GETBASEFAT \GETBASE +\GETBASETHIN \GETBASEBYTE IPLUS IDIFFERENCE LOGAND ITIMES SUB1 ADD1 SELECTQ) LISPX/ (ARGTYPE GETPROP +LISPX/1 FASSOC) COMPILER::EFFECTS-ANALYZE-BLOCK (COMPILER::EFFECTS-ANALYZE COMPILER::BLOCK-STMT +COMPILER::NODE-EFFECTS COMPILER::REMOVE-EFFECT COMPILER::NODE-AFFECTED) COMPILER::RELEASE-GO ( +COMPILER::GO-TAGBODY) COMP.TOPLEVEL.COMPILE (COMPILER::COPY-ENV COMPILER::MAKE-ENV SELECTQ +\TRANSLATE-CL%:LAMBDA APPLY* LIST CONS COMP.BINDLIST OPT.POSTOPT SUBSET MAPCAR GET CL:FORMAT OUTPUT +COMP.MLLIST APPEND) GRAPHCHANGELABEL (APPLY* PROMPTINWINDOW) CMLRDTBL (COPYREADTABLE PLUS) +\SETNEWTIME0 (\DAYTIME0 IABS IMINUS IDIFFERENCE DATE PRIN1) EDIT-IN-FUNCTION (FIND-EDIT-LOCATION CONS) + \INVALIDVP (\MP.ERROR) FINDATOM (FMEMB STKNAME SELECTQ SYSTEMTYPE REALSTKNTH BLIPVAL FGETD HELP SOME +STKARG TAILP FSTKNTH) FORMAT-PRIN1 (CL:PRIN1 WRITE-STRING*) EDIT-IN-FNS (FIND-EDIT-LOCATION CONS) +RIGHTW.REPAINTFN (DSPCLIPPINGREGION MAINWINDOW WINDOWPROP STRINGWIDTH XCL::PROFILIZE CL:PROGV +XCL::PROFILE-VARIABLES XCL::PROFILE-VALUES SUB1 FONTPROP - IPLUS INSPECT.INVERTSELECTION) CL:KEYWORDP +(CL:SYMBOL-PACKAGE) COMPILER::EFFECTS-UNION (CL:UNION MKLIST) DECLARED-SPECIAL (DECLARED-SPECIAL) +\AUTHENTICATION.FIND.SERVER (COURIER.EXPEDITED.CALL COURIER.BROADCAST.CALL APPEND) LISPXUNREAD (APPEND + CONS) FILEPKGCOM (ARG FILEPKGCOM NCONC LIST GETTOPVAL ASSOC SELECTQ CONS SUBST ERROR ADD1 FMEMB PLUS +MARKASCHANGED) \INSPECT.STORE.CHAR (LIST \GETBASEBYTE \PUTBASEBYTE CHARCODE.DECODE) CL:APPLY (ERROR +SPREADAPPLY .SPREAD. ARG CL:1- PLUS) RSTRING (\GTREADTABLE WITH-RESOURCE \RSTRING2 \GETSTREAM +GETRESOURCE NEWRESOURCE ALLOCSTRING) NS\FONTFILENAME.OLD (OLD\FONTFILENAME.OLD NSDISPLAYSIZE) +\FLUSHPAGE (\READFLAGS FREPLACEFIELD PLUS FFETCHFIELD IDIFFERENCE .PAGEMAPBASE. \ADDBASE IPLUS +\GETBASE LOGNOT16 LOGXOR RPTFROMRP \READRP) \RSTRING2 (\INCCODE \SYNCODE GETHASH \GETBASEBYTE \PEEKBIN + \CHECKEOLC SELCHARQ SELECTC LIST \CHECKEOLC.CRLF \PUTBASECHAR \PUTBASEFAT \PUTBASE \PUTBASETHIN +\PUTBASEBYTE SUB1 \SMASHSTRING ALLOCSTRING CONS ADD1 SPREADAPPLY* CONCATLIST) +\TEDIT.MENU.WHENSELECTEDFN (CONS DEFAULTWHENSELECTEDFN) \TRANSFERPAGE (LOGAND \READFLAGS LOGNOT16 +LOGXOR RPFROMRPT IPLUS LOCF \ADDBASE) \POLYSHADE.XSCAN.IP (MAPCAR MAKESCAN SORT CONS CRITSECT IPLUS +FILLRECTANGLE.IP IDIFFERENCE MAPC IMIN NORMSECT) SPY.TITLE (CONCAT) PROPRECORD (DECLARERECORD CONS) +LISPX (CLOCK GETTOPVAL PRINT READLINE LIST CHCON1 LASTC LISTGET1 FASSOC HISTORYSAVE UNDOLISPX +LISPXFIND UNDOLISPX2 NCONC IPLUS FLENGTH GETPROP LISPXREAD FIXSPELL CONS SHOWPRINT CL:VALUES-LIST +APPEND LISPXUSEC FMEMB LDIFF RESETVARS .RESETLST. CL:MULTIPLE-VALUE-PROG1 .UNWIND.PROTECT. FUNCTION +EDITFPAT MAPRINT UNION SELECTQ NLEFT NUMBERP COPY GETSTREAM APPLY* STREAMPROP LISPXFIX LISPXUSE +LISPXGETINPUT LISPXUSE0 EVAL LISPXREADBUF) SI::CREATE-CONDITION-CASE-LITERALS (LIST LIST* CL:FUNCTION) + \PUTBASEFIXP (SELECTC NTYPX \LOLOC LISPERROR ADD1) BMOBJ.GETFN (RESETFORM INPUT READ READBITMAP +BITMAPTEDITOBJ) READ-EXTENDED-TOKEN (\GTREADTABLE WITH-RESOURCE SPREADAPPLY* \INCCODE \SYNCODE GETHASH + \GETBASEBYTE SELECTC \INCHAR \SMASHSTRING ALLOCSTRING CONS \PUTBASECHAR \PUTBASEFAT \PUTBASE +\PUTBASETHIN \PUTBASEBYTE ADD1 CONCATLIST CL:VALUES GETRESOURCE NEWRESOURCE) MOUSESTATE-EXPR (LIST +MOUSESTATE-NAME SELECTQ CONS MAPCAR HELP MOUSESTATE-EXPR) STORETABLE (GETTABLE ADDTABLE SUBTABLE) +\SEQUIN.FLUSH.CONNECTION (APPLY* THIS.PROCESS) \SMASHSTRING (PLUS \ADDBASE SUB1 IPLUS ADD1 +\GETBASETHIN \GETBASEBYTE \PUTBASE \GETBASEFAT \GETBASE \PUTBASEBYTE) PRINTNSHOSTNUMBER (printout +PRINTNUM) \EDITBMHOWMUCH (MENU) CL:COMPILER-LET (CL:PROGV MAPCAR \EVAL \EVPROGN) +\NSFILING.LOOKUP.CACHE (LENGTH CONS DREMOVE) BRKDWNCLEAR (\PUTBASEFIXP BRKDWNELT ELT) CONCATLIST ( +ALLOCSTRING PLUS NCHARS) ADVISEWDS (UNFOLD LLSH IDIFFERENCE DSPCLIPPINGREGION IPLUS DSPLINEFEED +DSPRIGHTMARGIN WINDOWPROP PROCESS.TTY LIST FUNCTION IQUOTIENT IMINUS PROCESSPROP DSPYPOSITION FONTPROP +) BREAK0 (CL:SECOND BREAK-FUNCTION CL:FIRST CL:THIRD MAPCONC BREAK0) ADDCHAR (TTBITWIDTH +AT.END.OF.LINE TTBOUT BLTCHAR TTYDISPLAYSTREAM PLUS IDIFFERENCE FRPLACA) BREAK1 (STKNTH +CL:MULTIPLE-VALUE-PROG1 .UNWIND.PROTECT. FUNCTION DEBUGGER MAKE-CONDITION CL:EVAL) LOWERCASE (/PUT +CONS APPLY* GETPROP) BOTTOMOFGRIDCOORD (IPLUS ITIMES) MSINIT (CONS HASHARRAY ASSOC SELECTQ MAKETABLE +LIST) AS.DELETE.PASSWORDS (PARSE.NSNAME RESETLST AS.MAKE.CONVERSATION) SI::COMPILED-FUNCTION-ARGLIST ( +SI::COMPILED-FUNCTION-DEBUGGING-INFO MAPCONC LIST MKATOM CL:COPY-TREE \CCODEARGLIST) EDITBMREPAINTFN ( +WINDOWPROP + BITBLT) BITBLT.ERASE (BLTSHADE) COMP.COMPILER-LET (CL:PROGV MAPCAR EVAL COMP.PROGN) +\INSPECT.STORE.32 (LIST \INSPECT.FETCH.32 \PUTBASEFIXP UNFOLD LLSH) BRKDWNBOXES (BRKDWNMACRO \BOXIPLUS + BRKDWNELT ELT BRKDWNDIFFA IDIFFERENCE \PUTBASEFIXP IBOXCOUNT BOXCOUNT EVAL) +SI::COMPILED-FUNCTION-DEBUGGING-INFO (- CL:* + \GETBASEPTR) SUBREGIONP (IGEQ) \CLIPANDDRAWLINE1 (LRSH +IDIFFERENCE DSPDESTINATION \GETBASE \TOTOPWDS SUB1 \SFInvert IMINUS \CLIPCODE LOGAND IPLUS +.WHILE.TOP.DS. IREMAINDER ITIMES \LEASTPTAT \GREATESTPTAT) TWODINSPECT.ARRANGEWINDOWS (WINDOWPROP +HEIGHTIFWINDOW FONTPROP TWODINSPECT.ROWPROPWIDTH WIDTHIFWINDOW IPLUS STRINGWIDTH IMIN ITIMES LENGTH +IDIFFERENCE TWODINSPECT.TOTALWIDTH DSPFONT SUB1 GETBOXREGION DIFFERENCE PLUS ADD1 CONS CREATEREGION) +DO.CRLF (- \DSPPRINTCR/LF) \MOVEREALPAGE (\READFLAGS RPFROMRPT IPLUS) \TEXTSETFILEPTR (ZEROP IMAX ADD1 +) TEDIT.WINDOW.SETUP (FUNCTION LISTGET) RETFROM (\STACKARGPTR) FB.SUBITEMP (MEMBER) READ/NODE ( +DSPCLIPPINGREGION LOGAND LOGOR CURSORPOSITION NODELST/AS/MENU ZEROP) \SPECIALRP (SELECTC FOLDLO LRSH +IPLUS IDIFFERENCE) DISPTREE (TREEGRAPHNODE NUMBERP SHOWGRAPH LAYOUTGRAPH LIST CL:FUNCTION) +SI::CLEAN-UP-CL-ARGLIST (CL:INTERN STRING LIST) \TEDIT.PUT.PARALOOKS (LOGAND LRSH \BOUT GETHASH) +SI::NAMED-FUNCTION-WRAPPER-INFO (SI::GET-STORED-ARGLIST) \SELECTREALPAGE (\READFLAGS FOLDLO LRSH +RPFROMRPT IPLUS IABS IMINUS IDIFFERENCE SUB1 LLSH CONSTANT \HILOC) Filebrowsericide (OPENWINDOWS +WINDOWPROP) FORMAT-PRINC (CL:PRINC WRITE-STRING*) SI::GET-STORED-ARGLIST (GET CL:ERROR) +\ITEM.WINDOW.BUTTON.HANDLER (MODERNWINDOW.BUTTONEVENTFN FUNCTION) ERASE.TO.END.OF.PAGE (- DSPYPOSITION + BITBLT.ERASE) MARGINBAR.INIT (IMAGEFNSCREATE FUNCTION) \UPDATECHAIN (\ADDBASE \READFLAGS CONSTANT +\HILOC RPFROMRPT IPLUS LOGAND LOGNOT16 LOGXOR) FILL.LINE (IDIFFERENCE IPLUS \LINEBLT) +SEDIT::ATOM-POINT-TYPE (SEDIT::ESCAPE-CHAR FFETCHFIELD SUB1 IPLUS ADD1 \GETBASEFAT \GETBASE +\GETBASETHIN \GETBASEBYTE PLUS) \TEDIT.APPLY.STRIKEOUT (SELECTQ IMAGEOBJPROP CONS) +SI::COMPILED-FUNCTION-INTERLISP? (SI::COMPILED-FUNCTION-DEBUGGING-INFO CL:MEMBER ARGTYPE CL:GETF) +ASSOCRECORD (DECLARERECORD CONS) ERASE.TO.END.OF.LINE (DSPXPOSITION BITBLT.ERASE - DSPYPOSITION) +\TEDITMENU.SELSCREENER (WINDOWPROP CONCAT) TILEAREA (BLTPATTERN.REPLACEDISPLAY BITMAPWIDTH +BITMAPHEIGHT) \TEXTPEEKBIN (SPREADAPPLY* \PEEKBIN SUB1 LOGOR UNFOLD LLSH \PAGEDBIN \PAGEDPEEKBIN +\TEDIT.APPLY.STYLES \BIN \TEDIT.TEXTBIN.FILESETUP ERROR APPLY* \TEDIT.PEEKBIN.NEW.PAGE) +SCALED.BITMAP.GETFN (READBITMAP READ BITMAPTEDITOBJ FQUOTIENT) COMPILER::RELEASE-CATCH ( +COMPILER::CATCH-REFERENCES COMPILER::RELEASE-TREE COMPILER::CATCH-TAG COMPILER::CATCH-STMT) +SI::FUNCTION-WRAPPER-INFO (GETD SI::NAMED-FUNCTION-WRAPPER-INFO) COMPPRINT (PRIN1) COMP.PROGN ( +COMP.EXP1 OPT.JUMPCHECK) OVERFLOW? (IPLUS MOVE.TO.NEXT.LINE BREAKLINE) FB.COMMANDSELECTEDFN (RESETLST +WINDOWPROP WFROMMENU CL:FUNCALL FLASHWINDOW) ONEDINSPECT.ARRANGEWINDOWS (WINDOWPROP HEIGHTIFWINDOW +FONTPROP ONEDINSPECT.PROPWIDTH WIDTHIFWINDOW IPLUS STRINGWIDTH IMIN ITIMES LENGTH IDIFFERENCE SUB1 +GETBOXREGION DIFFERENCE PLUS ADD1 CONS CREATEREGION) REALSTKNTH (\STACKARGPTR IMINUS SUB1 \MAKESTACKP) + SI::CHANGE-CALLS-IN-CCODE (MAPC CHANGECCODE CODEBASESETATOM) CLEAR.LINE? (ERASE.TO.END.OF.PAGE +ERASE.TO.END.OF.LINE) LISPXFIND1 (CONS APPEND) GETVERBTABLES (MAPCAR MSVBTABLES SHOULDNT LIST FASSOC) +SI::PARSE-CL-ARGLIST (CL:VALUES CL:REVERSE) INITIALIZEMASTER.IP (NTHCHARCODE PLUS \BOUT) +SI::CHANGE-CALLS (GET GETD) MOVETOUPPERLEFT (FONTPROP DSPFONT IDIFFERENCE DSPLEFTMARGIN +DSPCLIPPINGREGION) \INSPECT.STORE.16 (LIST \GETBASE \PUTBASE) SI::HAS-CALLS (GET CL:CONSP GETD CL:FIND + CALLSCCODE) SHADEGRIDBOX (FIXP IPLUS LEFTOFGRIDCOORD BOTTOMOFGRIDCOORD IDIFFERENCE ITIMES +MAXIMUMCOLOR BITSPERPIXEL DSPDESTINATION) DECLARERECORD (CL:MEMBER RECORD.NAME RECORDECL COPY SOME +LIST CONS RECORD.FIELDNAMES RECORD.ALLOCATIONS EVAL UNION) SEDIT::ASSIGN-FORMAT-LITATOM (\DTEST) +\READREFILL (STREAMPROP CL:FUNCALL STKNAME) ATOMRECORD (DECLARERECORD CONS) DELETETO ( +BACKWARD.DELETE.TO BLTCHAR TTYDISPLAYSTREAM SEGMENT.BIT.LENGTH IDIFFERENCE) LISPXFIND (RESETVARS +.RESETLST. LIST CONS CL:MULTIPLE-VALUE-PROG1 .UNWIND.PROTECT. FUNCTION SUB1 LISPXFIND NCONC LISPXFIND0 + LDIFF FMEMB LISPXPUT SELECTQ MAPCONC APPEND LISPXGETINPUT LISTGET1 LAST MAPCAR LISPXFIND1) CL:NOTEVERY + (%%NOTEVERY-SINGLE %%NOTEVERY-MULTIPLE CONS) COMPILER::RELEASE-CALL (COMPILER::RELEASE-TREE COMPILER::CALL-FN + CL:MAPC CL:FUNCTION COMPILER::CALL-ARGS) SI::RESTORE-CALLS (MAPC GET) COMP.TRANSFORM (COMPILER:MAKE-CONTEXT + SELECTQ OPT.COMPILERERROR GETMACROPROP COMP.MACRO GET COMP.EXP1 CL:FUNCALL COMP.CALL COMP.ARGTYPE) +EDITCHANGEFONT (WINDOWPROP PRIN1 READ/NODE printout TERPRI) BESTPUPADDRESS (ASSURE.PUP.READY +\FIXLOCALNET CONS \PARSE.PORTCONSTANT \LOCALPUPNETNUMBER LRSH LIST GETHASH PUTHASH \LOOKUPPORT +\LOCATE.PUPNET PLUS PRIN1) CL:EVAL-WHEN (MAPC \EVAL) DMCHAT.STATE (FUNCTION) SI::ADD-CHANGED-CALL ( +CL:FIRST CONS CL:SECOND CL:DELETE LIST) HISTORYSAVE (FMEMB LIST NCONC1 CONS ADD1 IPLUS MINUS +LISPXFIND1 FRPLACD ERSETQ EVAL) \VALIDADDRESSP (\LOOKUPPAGEMAP) \NSFILING.MAYBE.CREATE (ASKUSER CONCAT + CONCATLIST MAPCONC LIST \NSFILING.CONNECT FILING.CALL SELECTQ LIST* STRING) \APPLYREADMACRO (APPLY*) +FILEBLOCKTRAILER (BOUT16) TTCRLF (TTCRLF.ACCOUNT) UNDOLISPX2 (FMEMB FRPLACA UNDOLISPX3 LISPXWATCH +REVERSE UNDOLISPX2) INSPECTW.REPAINTFN (WINDOWPROP XCL::PROFILIZE CL:PROGV XCL::PROFILE-VARIABLES +XCL::PROFILE-VALUES DSPCLIPPINGREGION APPLY* ITEMW.REPAINTFN \ITEMW.FLIPITEM) INTERSECTREGIONS (SUB1 +PLUS TIMES ARG IPLUS ADD1 IDIFFERENCE) LLSH (LRSH IMINUS NTYPX \LOLOC \FIXP.FROM.FLOATP IQUOTIENT +CL::RATIO-NUMERATOR CL::RATIO-DENOMINATOR IDIFFERENCE IPLUS LLSH LOGAND .LLSH1. PLUS \MAKENUMBER) +\POLYSHADE.DISPLAY (FILL.INITTBLE MAPCAR MAKESCAN SORT CONS CRITSECT ADD1 FILL.LINE MAPC IPLUS IMIN +\NORMSECT) \SUBREADCONCAT (\GETBASESTRING CONCATLIST NCONC1 REVERSE) FILL.INITTBLE (SUB1 BITMAPP +COLORTEXTUREFROMCOLOR# COLORNUMBERP DSPCOLOR BITMAPCREATE \SFReplicate LOGOR LLSH LOGAND LRSH +\ILLEGAL.ARG UNFOLD IMIN SELECTQ \DSPTRANSFORMX IPLUS \DSPTRANSFORMY \SFInvert IDIFFERENCE +DSPDESTINATION \TOTOPWDS) COMPILER::ENV-ANALYZE-VAR-REF (CL:PUSHNEW COMPILER::VARIABLE-READ-REFS +COMPILER::VAR-REF-VARIABLE) EDITBMSCROLLFN (WINDOWPROP IPLUS FIX TIMES IDIFFERENCE IMINUS QUOTIENT +IMIN GRIDXCOORD IMAX IQUOTIENT FDIFFERENCE GRIDYCOORD ITIMES LRSH BITBLT) SHOWWTITLE (DSPFONT SELECTQ +IDIFFERENCE TEXTUREP WINDOWPROP IPLUS BITMAPHEIGHT FONTPROP BITMAPWIDTH IMAX IQUOTIENT +\STRINGWIDTHGUESS PRINTLEVEL DSPXPOSITION ADD1) TTBIN (TTWAITFORINPUT \GETKEY METACHAR LOGOR LRSH +NONMETACHARBITS LOGAND \CARET.DOWN) COMPILER::RELEASE-BLOCK (COMPILER::BLOCK-FRAME COMPILER::BLOCK-REFERENCES + COMPILER::RELEASE-TREE COMPILER::BLOCK-STMT) \INVALID.SYMBOL (DECLARE MAKE-CONDITION CONCAT +CL:PACKAGE-NAME \GETBASESTRING) COMP.RETFROM.POINT (COMP.TOPLEVEL.COMPILE) \LET*-RECURSION (CL:EVAL +GET CL:PROGV LIST \LET*-RECURSION ENVIRONMENT-VARS LIST* \EVAL-PROGN) SI::CONSTRUCT-MIDDLE-MAN ( +CL:INTERN CL:FORMAT CL:PACKAGE-NAME CL:SYMBOL-PACKAGE) TEDIT.REDO.REPLACE (IDIFFERENCE) ETHERPORT ( +\FIXLOCALNET CONS \ILLEGAL.ARG \PARSE.PORTCONSTANT LIST GETHASH PUTHASH \LOOKUPPORT ERROR) +\GETBASESTRING (ALLOCSTRING UNFOLD LLSH) NETDAYTIME0 (\NET.SETTIME) \TEXTGETFILEPTR (IMIN SUB1 IPLUS +\TEDIT.PIECE-CHNO IDIFFERENCE IQUOTIENT IMAX) \EDITBM/PUTUP/DISPLAY (UPDATE/BM/DISPLAY BITBLT +WINDOWPROP) TTYIN (RESETLST TTYDISPLAYSTREAM CONS \DTEST \GTREADTABLE SUBSTRING MKSTRING NCHARS NLSETQ + TTYIN1 FRPLACA PLUS EDITE LIST) \INSPECT.STORE.8 (LIST \GETBASEBYTE \PUTBASEBYTE) FB.OPTIONSCOMMAND ( +FB.PROMPTWPRINT) \FIND.PACKAGE.INTERNAL (CL:FIND-PACKAGE \GETBASESTRING) COMPILER::ENV-ANALYZE-UNWIND-PROTECT + (COMPILER::ENV-ANALYZE COMPILER::UNWIND-PROTECT-STMT COMPILER::UNWIND-PROTECT-CLEANUP) MAKEINITBFS ( +EVQ + PLUS \ALLOCBLOCK UNSIGNED LOGAND SUB1 LLSH) TTBITWIDTH (FCHARWIDTH CHARWIDTH) EDITCHANGELABEL ( +WINDOWPROP GETSTREAM CONSTANT PRIN1 READ/NODE printout TERPRI GRAPHCHANGELABEL) TTSKREAD (\SYNCODE +GETHASH \GETBASEBYTE FIRSTCHAR LIST TTSKREAD ADD1 FIND.MATCHING.QUOTE) \RECODECCODE (CL:SVREF LRSH +LOGAND) COMPILER::FIND-REACHABLE-TAGS (CL:MAKE-HASH-TABLE) \TEDIT.TABTYPE.SET (ADD1 IMAGEOBJPROP +U-CASE MBUTTON.FIND.NEXT.BUTTON PACK* FUNCTION CONS) REMOVE (REMOVE CONS) NS\FONTFILENAME ( +OLD\FONTFILENAME NSDISPLAYSIZE) COMPILER::ENV-ANALYZE-THROW (COMPILER::ENV-ANALYZE COMPILER::THROW-TAG + COMPILER::THROW-VALUE) ARRAYRECORD (DECLARERECORD CONS) EDITBMCLOSEFN (WINDOWPROP) FILDIR (DIRECTORY) + COMP.ATTEMPT.COMPILE (COMP.RETFROM.POINT CONS COMPILE2 LIST) MAKEMACFORMAT (\MAKERECODEMAP +\INSTALL.EXTERNALFORMAT FUNCTION) TEDIT.REMOVE.MENUITEM (REMOVE UPDATE/MENU/IMAGE) \NSFILING.INIT ( +FUNCTION DEFPRINT) \NSFILING.ADD.TO.CACHE (\NSFILING.FILLIN.ATTRIBUTES LENGTH DREMOVE CONS) +RELEASE.PUP (\RELEASE.ETHERPACKET) TTYIN.FINISH (TTNLEFT \SYNCODE GETHASH \GETBASEBYTE FIRSTCHAR +TTYIN.READ TTYIN.SCRATCHFILE TTYINSTRING TTRATOM TTREADLIST APPLY* EVAL TTADJUSTWORD LIST CONS) +GRIDYCOORD (IDIFFERENCE IQUOTIENT SUB1) UNDOLISPX (FMEMB LDIFF LISPXFIND UNDOLISPX1) +\ITEM.WINDOW.COPY.HANDLER (WINDOWPROP IN/ITEM? CURSORPOSITION KEYDOWNP ZEROP LOGAND) \TEDIT.CREATEMENU + (FONTCREATE) DEFAULT.INSPECTW.TITLECOMMANDFN (SELECTQ MENU INSPECTW.REDISPLAY WINDOWPROP PROMPTPRINT) + TTYINREAD (GETSTREAM READ TTYIN NCONC1) HISTORYFIND (NTH IMINUS NLEFT ADD1 IDIFFERENCE IPLUS FIXSPELL + LISPXFIND CONS NCONC1) TERM.TAB (\DTEST ADD1 IQUOTIENT MOVETO ITIMES) TEDIT.FORMATTEDFILEP (TEXTOBJ +TEXTPROP \GETBASEPTR \FIRSTNODE IMAX SELECTQ) SHOWWFRAME (IMAX FOLDHI LRSH IPLUS IDIFFERENCE ITIMES +DSPCLIPPINGREGION) UNBREAK0 (XCL:UNBREAK-FUNCTION) TTYIN.SETUP (WFROMDS WINDOWPROP LIST FUNCTION +DSPDESTINATION CHARWIDTH DSPFONT FONTCOPY SELECTQ FONTPROP MAX FONTHEIGHT DSPTEXTURE PAGEHEIGHT +DSPLEFTMARGIN DSPRIGHTMARGIN DSPXPOSITION) \SEQUIN.CONTROL (LOCF \ADDBASE ALLOCATE.PUP \SEQUIN.PUT) +LEFTOFGRIDCOORD (IPLUS ITIMES) WTFIX1 (CL:CATCH XNLSETQ SETUPTIMER CLOCK STKPOS CONS FINDFN FSTKNTH +GETVARS LISTGET1 DUNPACK FMEMB NTHCHAR PACK LIST LITATOM FREEVARS CLISPDEC0 GETPROP RESETVARS +.RESETLST. CL:MULTIPLE-VALUE-PROG1 .UNWIND.PROTECT. FUNCTION CLISPFOR RETDWIM CLISPIF MAKEMATCH APPEND + APPLY* GETD CLISPATOM EVAL FIXSPELL SELECTQ CL:THROW) TTYIN.READ (PRINTCCODE FIRSTCHAR TTNEXTCHAR +\SYNCODE GETHASH \GETBASEBYTE LIST IDIFFERENCE \GETFILEPTR SPREADAPPLY* STREAMBYTESPERCHAR NLSETQ READ +) \ORIG-READ.SYMBOL (CONCAT \GETBASESTRING \PARSE.NUMBER \MKATOM) GETFRAMEVAR.IP (ADD1) TB.REMOVE.ITEM + (\DTEST TB.FIND.PREVIOUS.TAIL SUB1 PLUS FFETCHFIELD TB.FIND.SELECTED.ITEM TB.REV.FIND.SELECTED.ITEM +TB.UPDATE.DISPLAY) \TFBRAVO.FONT.FROM.CHARLOOKS (FONTCREATE LIST) ETHERHOSTNUMBER (\LOCALPUPADDRESS +BESTPUPADDRESS) SETINITIALS (USERNAME STRPOS SUBSTRING ADD1 SUB1 SAVESET) \INSPECT.FETCH.FATCHAR ( +CHARACTER \GETBASE) BRKDWNCONSES (BRKDWNMACRO \BOXIPLUS BRKDWNELT ELT BRKDWNDIFFA IDIFFERENCE +\PUTBASEFIXP CONSCOUNT EVAL) TB.USERDATA (\DTEST) \LETtran (MAPCAR PARSE-BODY SELECTQ LIST LIST* +REVERSE) TTDELETELINE (BEEP PREVLINE BLTCHAR TTYDISPLAYSTREAM DELETE.TO.END RETYPE.BUFFER DELETETO +FORWARD.DELETE.TO) \ORIG-INVALID.SYMBOL (CL:CERROR CONCAT CL:PACKAGE-NAME SELECTQ \SUBREADCONCAT) +\TFBRAVO.READ.PARALOOKS (COPY FCHARACTER BIN IPLUS ITIMES SELECTQ IQUOTIENT CONS NCONC LIST CONSTANT +CHARACTER) \PUPINIT (PACK* GETD INITPUPLEVEL1) CL:PACKAGE-NAME (CL::%%PACKAGE-NAME) \TEDIT.PIECE-CHNO +(PLUS \GETBASEPTR \GETBASEFIXP IPLUS ADD1) FLIPCURSORBAR (LOGXOR \GETBASE SELECTC +\DoveDisplay.SetCursorShape) \ALLOCHEIGHTTOGROUPEDWINDOW (MAPCAR LIST IDIFFERENCE \TOTALFIXEDHEIGHT +PLUS \SETWINFOYSIZE \SHAREOFXTRAY APPLY UPIQUOTIENT LENGTH REMOVE IMAX) TTWAITFORINPUT (SETUPTIMER +DSPCLIPPINGREGION \GETKEY LOGAND LOGOR LASTMOUSEX - LASTMOUSEY + WHICHW WINDOWPROP TIMES ITIMES +TTLASTLINE FUNCTION DSPRIGHTMARGIN) TRAJECTORY.IP (MAPC LINETO.IP) \TEDIT.SET.WINDOW (CONS) +\ALLOCWIDTHTOGROUPEDWINDOW (MAPCAR LIST PLUS \SETWINFOXSIZE \SHAREOFXTRAX APPLY IDIFFERENCE +UPIQUOTIENT LENGTH REMOVE IMAX) GETPUPWORD (\GETBASE \DTEST) GRIDXCOORD (IDIFFERENCE IQUOTIENT SUB1) +\NSFILING.CONNECT (\NSFILING.LOOKUP.CACHE CONCATLIST MAPCONC LIST FILING.CALL \NSFILING.MAYBE.CREATE +\NSFILING.ADD.TO.CACHE) \VFMDelete (FUNCTION ADD1) TEDIT.CURSOROUTFN (WINDOWPROP) COMP.BLOCK ( +COMP.PROG CONS COMP.BIND.VARS SELECTQ LIST COMP.UNBIND.VARS) \LINEWITHBRUSH (\GETCOLORBRUSH +MAXIMUMCOLOR DSPCOLOR OPPOSITECOLOR \GETBRUSH \GETBRUSHBBT SUB1 IDIFFERENCE ITIMES \DSPTRANSFORMX +IPLUS FOLDLO LRSH \DSPTRANSFORMY DSPDESTINATION \TOTOPWDS ADD1 HALF IREMAINDER PLUS \GETBASE +\FBITMAPBIT \BBTCURVEPT) INIT.CURSOR (DSPCLIPPINGREGION - DSPYPOSITION IQUOTIENT + IREMAINDER) +GO.TO.ADDRESSING (IPLUS) TRANSLATEREG (IDIFFERENCE) GRAPHADDNODE (APPLY* DEFAULT.ADDNODEFN NCONC1) +MOVENODE (CONSTANT FLIPNODE) \TEDIT.LCASE.SEL (TEDIT.SEL.AS.STRING L-CASE) INREADMACROP (STKPOS +FUNCTION) TTYIN1 (DRIBBLEFILE FCHARWIDTH CHARWIDTH - STRINGWIDTH ITIMES SUB1 TTLOADBUF LIST +TTYIN.PPTOFILE LAST LDIFF GETRESOURCE NEWRESOURCE MAKE-TTSCRATCHFILE TTBIN FASSOC EVAL LRSH +NONMETACHARBITS LOGAND METACHAR LOGOR DO.EDIT.COMMAND \SYNCODE GETHASH \GETBASEBYTE PREVLINE \SYSBUFP +TTCOMPLETEWORD CURRENT.WORD FIND.MATCHING.WORD TTDOTABS AUTOCR? NLEFT FIRSTCHAR FIND.NEXT.WORD +FIND.NON.SPACE AT.END.OF.TEXT TTYDISPLAYSTREAM BLTCHAR APPEND MACHINETYPE U-CASECODE TTYIN.FINISH) +\TEDIT.SET-TOTLEN (PLUS \GETBASEFIXP) MAPDL (STKPOS STKNTH STKNAME) \TEDITOUTCHARFN (IPLUS16 \LOLOC +\ADDBASE) \TFBRAVO.READ.CHARLOOKS (FCHARACTER BIN IPLUS ITIMES \TFBRAVO.GET.FONTSIZE +\TFBRAVO.GET.FONTSTYLE IDIFFERENCE GETFILEPTR CONSTANT CHARACTER CONS \TFBRAVO.FONT.FROM.CHARLOOKS +SELECTQ) \INSPECT.FETCH.CHAR (CHARACTER \GETBASEBYTE) POSTSCRIPT.BITMAPSCALE (\PS.SCALEREGION / FASSOC + MAX MIN FQUOTIENT TIMES MENU CONS) TB.CLEAR.LINE (BLTSHADE \DTEST TB.BOTTOM.OF.ITEM) \8859OUTCHARFN ( +\PRINTCCODE \RECODECCODE) READQUOTE (LIST CL:READ) \SPP.SKIPBYTES (\SPP.PREPARE.INPUT SPP.STREAM.ERROR + SPREADAPPLY* GETSPPCON FFETCHFIELD IDIFFERENCE PLUS) READVBAR (SELCHARQ PEEKCCODE READBQUOTE HREAD +READHASHMACRO CL:VALUES) AS.CREATE.PASSWORDS (PARSE.NSNAME RESETLST AS.MAKE.CONVERSATION) PRINTHISTORY + (LISPXFIND ENTRY# PRINTHISTORY1 APPLY*) FSET.IP (APPENDOP.IP) READHASHMACRO (FUNCTION ILEQ PEEKCCODE +PLUS TIMES DIFFERENCE READCCODE SELCHARQ APPLY* FILL-VECTOR CL:MAKE-ARRAY LENGTH LIST READ EVAL +CHARACTER.READ IDIFFERENCE CL:MAKE-SYMBOL READ-EXTENDED-TOKEN READNUMBERINBASE ESTIMATE-DIMENSIONALITY + CREATE-STRUCTURE CL:VALUES ERROR CHARCODE.UNDECODE RSTRING GET CHARACTER) FORMAT-PLURAL ( +WRITE-STRING*) HREAD (INPUT READTABLEP READ) TERM.SMOOTHSCROLL (\DTEST PLUS TERM.ERASEBITS) UNADVISE ( +NLAMBDA.ARGS CL:FLET MAPCONC REVERSE UNADVISE-ENTRY) READBQUOTE (LIST CL:READ) CHARCODE.UNDECODE ( +CL:CHAR-NAME CL:CODE-CHAR MKSTRING) BYTEBLOCKCOMPILE2 (RESETVARS .RESETLST. LIST CONS +CL:MULTIPLE-VALUE-PROG1 .UNWIND.PROTECT. FUNCTION BLOCKCOMPILE2 PACK* MAPCONC COMP.ATTEMPT.COMPILE +FASSOC) MAKEIBMFORMAT (\MAKERECODEMAP \INSTALL.EXTERNALFORMAT FUNCTION) \MAKESPACEFORLOCKEDPAGE ( +SELECTC FOLDLO LRSH IPLUS IDIFFERENCE DLFPFROMRP SUB1 FREPLACEFIELD PLUS FFETCHFIELD \ADDBASE) +SKIP.HASH.COMMENT (READCCODE) MAKE-TTSCRATCHFILE (OPENSTREAM) \SW2BM (IMAX IMINUS IPLUS IMIN +IDIFFERENCE BITBLT) GENERATE (RESUME) CMLREAD.FEATURE.PARSER (SELECTQ EVERY CMLREAD.FEATURE.PARSER +SOME ERROR) CL:RETURN-FROM (STKNTH STKNAME STKARG) ESTIMATE-DIMENSIONALITY (ERROR LENGTH LIST PLUS) +INSPECT/BITMAP (SELECTQ MENU INSPECT/DATATYPE EVAL.AS.PROCESS LIST) \INSPECT.FETCH.32 (\GETBASEFIXP +UNFOLD LLSH) READNUMBERINBASE (READ-EXTENDED-TOKEN NTHCHARCODE DIGITBASEP + TIMES PLUS %%/ - CL:ERROR) + \INSPECT.COMPUTE.TITLE (CONCAT CL:PRINC-TO-STRING APPLY*) NODEREGION (CREATEREGION GN/LEFT GN/BOTTOM) + LISPXUSEC (FMEMB LDIFF LISPXFIND LISPXUSEC CONS PACK LIST COPY ESUBST SUBST) CL:MAKE-SYMBOL (ERROR +MKSTRING UNINTERRUPTABLY \CREATE.SYMBOL) MBUTTON.SET.NEXT.FIELD (ZEROP MKSTRING) COURIER.SIGNAL.ERROR +(ERROR CONCAT) PUTSEQUIN (WITH.MONITOR CL:MULTIPLE-VALUE-PROG1 .UNWIND.PROTECT. FUNCTION PUTSEQUIN +SEQUINOP APPLY*) FILL-VECTOR (CL:ERROR - %%ARRAY-TYPE-NUMBER) MAKEISOFORMAT (\MAKERECODEMAP +\INSTALL.EXTERNALFORMAT FUNCTION) \NEWEPHEMERALPAGE (\MISCAPPLY* FUNCTION) CLOSEHASHFILE (HASHFILEP +CLOSEF? OPENHASHFILE) \DONEWEPHEMERALPAGE (\GETBASE IPLUS \READFLAGS PLUS \SELECTREALPAGE RPFROMRPT +LOCF \ADDBASE) BREAK.NSFILING.CONNECTION (FUNCTION LIST \GETDEVICEFROMNAME \CANONICAL.NSHOSTNAME) +FORMAT-NEWLINE (FORMAT-EAT-WHITESPACE) CHARACTER.READ (READCCODE PEEKCCODE \SYNCODE GETHASH +\GETBASEBYTE CL:CODE-CHAR CHARCODE.DECODE CONCAT ALLOCSTRING READ-EXTENDED-TOKEN) TERM.SETMARGINS ( +\DTEST - ITIMES SUB1) SEARCHPDL (STKPOS STKNTH STKNAME CONS) GRID (TEXTUREP ITIMES IDIFFERENCE IPLUS +SUB1 PLUS WINDOWPROP BITMAPCREATE MAXIMUMCOLOR BITSPERPIXEL DSPDESTINATION) \VFMClearIntervals (SUB1 +PLUS) TEDIT.REDO.MOVE (IPLUS) FILLTRAJECTORY.IP (APPENDOP.IP) DIRCONJ (SELECTQ) DISCARDPUPS (\DTEST +UNINTERRUPTABLY) \NSFILING.OPENFILE (\NSFILING.GETFILE \ILLEGAL.ARG SELECTQ +\LISP.TO.NSFILING.ATTRIBUTE ASSOC ERROR CONS FFETCHFIELD) FORMAT-EAT-WHITESPACE (CL:POSITION-IF-NOT +FUNCTION CL:1- CL:LENGTH) TERM.SET.TAB (\DTEST LIST SORT CONS) COMPILER::ENV-ANALYZE-TAGBODY (MAPC +COMPILER::TAGBODY-SEGMENTS COMPILER::SEGMENT-STMTS COMPILER::ENV-ANALYZE) UNIONREGIONS (ARG PLUS +DIFFERENCE) COMPILER::ENV-ANALYZE-RETURN (COMPILER::ENV-ANALYZE COMPILER::RETURN-VALUE) RETVALUES ( +\STACKARGPTR CL:VALUES-LIST) COURIER.READ (SELECTQ GETWORD IPLUS LLSH \BIN SIGNED SUB1 IDIFFERENCE +GETLONG \MAKENUMBER \WIN COURIER.READ.STRING ALTO.TO.LISP.DATE GETPROP CL:FUNCALL \GET.COURIER.TYPE +COURIER.READ \COURIER.UNKNOWN.TYPE LIST PLUS COURIER.READ.SEQUENCE MAPCAR CONS) TEDIT.FORMATTEXTBOX ( +MAPCAR FIXR FTIMES DSPSCALE + TEDIT.HARDCOPY-COLUMN-END PLUS APPEND NCONC1 FRPLACA +\TEDIT.HARDCOPY.FORMATLINE ADD1 \TEDIT.FORMAT.FOOTNOTE FLAST COPY IMAX FFETCHFIELD - IPLUS IDIFFERENCE + IMIN LIST DREMOVE) REALFRAMEP (\REALFRAMEP \STACKARGPTR) FLIPNODE (BITBLT IDIFFERENCE GN/LEFT +GN/BOTTOM IPLUS) FB.DEPTHCOMMAND (SELECTQ MENU RNUMBER FB.PROMPTWPRINT) CL:FUNCTION (CL:SYMBOL-FUNCTION +) INSPECT/ATOM (TYPESOF CCODEP MAKE-INSPECTOR-PROFILE CONS EVALV REMOVE PRIN1 INSPECT +SELECT.ATOM.ASPECT SELECTQ MENU EVAL.AS.PROCESS.WITH.PROFILE EVAL.AS.PROCESS LIST INSPECTCODE) +\INSPECT.FETCH.8 (\GETBASEBYTE) MAKEEPSFILE (OPENIMAGESTREAM APPLY* IMAGEOBJPROP LIST CLOSEF) +LISPXSTOREVALUE (LISPXPUT) \INSPECTW.VALUE.MARGIN (IMIN IPLUS IMAX MAXSTRINGWIDTH) \TEMPLOCKPAGES ( +\MISCAPPLY* FUNCTION) TTPROMPTCHAR (TTPRIN1 PLUS) COMPOSEREGS (IPLUS) EXCHANGEPUPS (\DTEST SETUPTIMER +GETPUP) PURGENSFONTS (/SETTOPVAL CONS MKLIST LIST) COMPILER::ENV-ANALYZE-PROGV (COMPILER::ENV-ANALYZE +COMPILER::PROGV-SYMS-EXPR COMPILER::PROGV-VALS-EXPR COMPILER::PROGV-STMT) HELP (CONDITIONS:INVOKE-DEBUGGER + MAKE-CONDITION LIST) DODIR (DIRCONJ LIST APPEND FMEMB CONS DIRECTORY) COMP.MLLIST (RESETLST RESETSAVE + RADIX LINELENGTH PRIN2 MAPRINT FUNCTION SPACES PRINT FASSOC COMP.MLL) COMP.SPREAD (CL:FIRST CL:THIRD +CL:SECOND CONS COMP.STFN PLUS LIST) DIGITBASEP (PLUS DIFFERENCE) FILECODEBLOCK (IPLUS +\PREFIXALIGNMENT? FILEARRAYBASE) COMP.CL-EVAL (COMP.SPREAD) DWIM (GETD /SETATOMVAL ASSOC SET ERROR) +NSDISPLAYSIZE (SELECTQ) TERM.SCROLLDOWN (\DTEST + - TERM.ERASEBITS) COMPILER::ENV-ANALYZE-SETQ ( +CL:PUSHNEW COMPILER::VARIABLE-WRITE-REFS COMPILER::SETQ-VAR COMPILER::ENV-ANALYZE COMPILER::SETQ-VALUE +) \SEQUIN.PUT (UNINTERRUPTABLY PLUS FFETCHFIELD ADD1) MAPHASHFILE (GTHASHFILE IGREATERP NARGS BIN +READPTR IPLUS LLSH READ SPLITKEY APPLY* PLUS) FM.CHANGELABEL (ERROR \FM.INSUREFM \FM.COERCEITEMPTR +\FM.ITEMPROP FFETCHFIELD FM.GETITEM LISTGET WINDOWPROP \FM.WINDOWEXTENT \FM.REDISPLAYMENU +\FM.DISPLAYBITMAP BITBLT) TEDIT.FORMATFOLIO (MAPCAR FIXR FTIMES DSPSCALE LISTGET MKSTRING SELECTQ +ROMANNUMERALS CONCAT TEXTOBJ OPENTEXTSTREAM LIST \TEDIT.HARDCOPY.FORMATLINE PLUS FFETCHFIELD ADD1 +IDIFFERENCE IPLUS) FB.SHAPECOMMAND (WINDOWREGION WINDOWPROP MIN + - MAX SCROLLW) +FB.INFOMENU.WHENSELECTEDFN (WINDOWPROP WFROMMENU REMOVE CONS) \RELEASEWORKINGSET (SUB1 RPFROMRPT IPLUS + PLUS) \MATCHPCS (\GETBASEPTR PLUS) POSTSCRIPTFILEP (CL:MEMBER UNPACKFILENAME.STRING FUNCTION BIN) +OPENHASHFILE (CREATEHASHFILE ASSOC FULLNAME GETFILEINFO OPENSTREAM READPTR IPLUS LLSH BIN SELCHARQ +SELECTQ SYSTEMTYPE SETHASHSTATUS) \FLUSHVM (UNINTERRUPTABLY \MISCAPPLY* FUNCTION SET) +\NSFILING.DESERIALIZE (RESETLST \NSFILING.PARSE.FILENAME CL:ERROR \GETFILINGCONNECTION +\NSFILING.CONNECT \NSFILING.DESERIALIZE1 \NSFILING.FULLNAME \NSFILING.ADD.TO.CACHE +COURIER.SIGNAL.ERROR) INSPECT/LISTP (APPLY* SELECT.LIST.INSPECTOR FUNCTION) LISPXFIX (LAST EDITL LIST) + DECODE.WINDOW.ARG (CREATEW MAKEWITHINREGION CREATEREGION WIDTHIFWINDOW HEIGHTIFWINDOW GETBOXREGION +CONCAT) XCL::SET-CONSTANTP (GETHASH) CHARCODE.DECODE (CONS CHARCODE.DECODE ERROR NCHARS CHCON1 +SELCHARQ SUBSTRING LOGAND LOGNOT IPLUS MKSTRING NUMBERP STRPOSL CL:PARSE-INTEGER ADD1 SUB1 LOGOR LLSH +STRPOS) TTYIN.PPTOFILE (OPENSTREAM \GTREADTABLE - IQUOTIENT CHARWIDTH NCHARS POSITION CONS GETFILEPTR) + DSKDISPLAY (SELECTQ MACHINETYPE CONCAT) CL:APPLYHOOK (DECLARE CL:APPLY) STRPOSL (GLOBALRESOURCE +MAKEBITTABLE STRINGP MKSTRING PLUS ADD1 IPLUS \SYNCODE GETHASH \GETBASEBYTE \GETBASECHAR \GETBASEFAT +\GETBASE \GETBASETHIN IDIFFERENCE GETRESOURCE NEWRESOURCE NCREATE) SET-SYMBOL (ENVIRONMENT-VARS +\STKSCAN \HILOC \PUTBASEPTR \RPLPTR) COMPUTE-MACRO-ARGS (CONS SELECTQ COMPUTE-MACRO-ARGS MAKE-KEYWORD +EVAL) SENDPUP (\DTEST LOCF \ADDBASE ASSURE.PUP.READY TERPRI \ROUTE.PUP) \NSFILING.CLOSE.CONNECTIONS ( +RESETLST OBTAIN.MONITORLOCK TIMES APPEND MAPC) MACROS.GETDEF (MKPROGN GETPROPLIST LIST) +\WRITEDIRTYPAGE1 (\READFLAGS \ASSURE.FPTOVP.PAGE) EXPANDMACRO (GETHASH GETMACROPROP MACROEXPANSION +OUTPUT PRINTDEF TERPRI) \COURIER.HANDLE.ERROR (printout PRIN1) EXPAND-DEFMACRO (CL:PROGV EVAL CONS) +TEDIT.FORMATHEADING (MAPCAR FIXR FTIMES DSPSCALE LISTGET OPENTEXTSTREAM LIST FREPLACEFIELD PLUS +FFETCHFIELD \TEDIT.HARDCOPY.FORMATLINE IDIFFERENCE IPLUS ADD1) NEAREST/PT/ON/GRID (NEAREST/MULTIPLE) +MSUSERVBTABLES (GETHASH) CL:EVALHOOK (CL:EVAL) SWAPPUPPORTS (FFETCHFIELD LOCF \ADDBASE FREPLACEFIELD) +\INSPECT.STORE.PTR (LIST \GETBASEPTR \RPLPTR UNFOLD LLSH) HASHFILEPROP (GTHASHFILE SELECTQ GETFILEINFO +) \AREAINREGIONP (IGEQ) COPIEDFILENAME (CONCATLIST NOHOST UNPACK NLEFT FMEMB COPIEDFILEPATTERN CL:APPLY + NTHCHARCODE SUBSTRING) \PEEKCCODE.NOEOLC (CL:FUNCALL) \SPP.PREPARE.OUTPUT (\FILLINSPP IDIFFERENCE) +NSPRINT (CL:MULTIPLE-VALUE-PROG1 .UNWIND.PROTECT. FUNCTION GETNSPRINTER OPENSTREAM LISTGET CONS +FULLNAME GETFILEINFO \NSPRINT.INTERNAL UNPACKFILENAME.STRING) AS.REPLACE.PASSWORDS (PARSE.NSNAME +RESETLST AS.MAKE.CONVERSATION) \INCCODE.EOLC (\CHECKEOLC SELCHARQ SELECTC LIST \CHECKEOLC.CRLF +CL:FUNCALL) \CLIPANDDRAWLINE (COLORNUMBERP DSPCOLOR .WHILE.TOP.DS. DSPDESTINATION \GETBASE \TOTOPWDS +LIST IDIFFERENCE LRSH SUB1 IPLUS IMIN IMAX ADD1 IABS IMINUS PLUS) EXPANDOPENLAMBDA (CONS LIST +CONSTANTEXPRESSIONP KWOTE SUBPAIR MAPCAR PACK* GENSYM SUBLIS MKPROGN NCONC) \ILLEGAL.ARG (LISPERROR) +\FORMATBYTESTREAM (FUNCTION) TERM.RIGHT (\DTEST + MOVETO IMIN ITIMES) COMP.GETBASE (COMP.VAL CONS LIST + COMP.VALN PLUS COMP.EFFECT HELP COMP.STFN) \IRM.WILD.MATCH (\IRM.WILD.MATCH) PRINTCOMSTRAN (APPEND +MAPCAR CAR CHCON1 NTHCHARCODE SUBATOM STRPOS SUB1 CONS LIST APPLY* ASSOC SELECTQ FASSOC) +MBUTTON.NEXT.FIELD.AS.ATOM (TEDIT.SEL.AS.STRING NCHARS MKATOM) \UNCOPY (SELECTC NTYPX \HILOC \LOLOC +IPLUS LOCAL CREATECELL \FLOATBOX \VAG2 LOGOR LLSH PLUS VATOM ALLOCSTRING RPLSTRING FCHARACTER +\GETBASEBYTE VTYPEDPOINTER TYPENAME FOLDHI LRSH ITIMES NCREATE \ALLOCBLOCK FREPLACEFIELD SUB1 \PUTBASE + \GETBASE CONS \UNCOPY ALLOCAL) FB.INFOMENU.SHADEINITIALSELECTIONS (WINDOWPROP MAPC SHADEITEM +FB.INFO.ITEM.NAMED) \LASTNODE (LLSH IDIFFERENCE \GETBASEPTR \LASTNODE PLUS) TRACKCURSOR ( +CURSORPOSITION ZEROP LOGAND MOUSESTATE WFROMDS NODEREGION) ICONW (GETBOXPOSITION CREATEW FUNCTION) +TEDIT.CURSORMOVEDFN (LASTMOUSEX LASTMOUSEY WINDOWPROP \TEDIT.FIND.OVERLAPPING.LINE IDIFFERENCE FIXR +FQUOTIENT IPLUS) COMPILER::PEEPHOLE-OPTIMIZE-CODE (COMPILER::FIND-TAG-DUPLICATION CL:VALUES CL:NREVERSE +) TEDIT.FORMATPAGE (\TEDIT.SCALEREGION DSPSCALE TEXTPROP DSPFONT \TEDIT.APPLY.PARASTYLES \CHTOPC ADD1 +\TEDIT.PARABOUNDS TEDIT.PARSE.PAGEFRAMES LISTGET LIST - GETFILEPTR NCONC1 CONS APPLY* FRPLACA PLUS) +EDITBMBUTTONFN (WINDOWPROP LASTMOUSEX LASTMOUSEY MENU GETBOXPOSITION IPLUS - IMIN IDIFFERENCE IMAX +IMINUS QUOTIENT TIMES LRSH BITBLT LOGAND BITMAPCREATE BITSPERPIXEL CURSOR CURSORCREATE ZEROP APPEND +\EDITBMHOWMUCH GETGRIDBOXREGION + CREATEW NUMBERP IQUOTIENT WIDTHIFWINDOW HEIGHTIFWINDOW COLORMENU) +GETPUP (\DTEST \DEQUEUE FREPLACEFIELD PLUS FFETCHFIELD FIXP SETUPTIMER TERPRI) \INSPECT.FETCH.PTR ( +\GETBASEPTR UNFOLD LLSH) \SPLITTREE (UNINTERRUPTABLY IPLUS PLUS LRSH SUB1 \GETBASEPTR \GETBASEFIXP +ADD1 \INSERTTREE) \FB.HARDCOPY.TOFILE.EXTENSION (PRINTERTYPE) TEDIT.UNPARSE.PAGEFRAMES (LIST MAPCAR +TEDIT.UNPARSE.PAGEFRAMES) LISPXUSE0 (LISPXUSE1 LISPXSUBST MAPCONC) COMPILER::ENV-ANALYZE-MV-PROG1 ( +MAPC COMPILER::MV-PROG1-STMTS COMPILER::ENV-ANALYZE) TTLOADBUF (GETSTREAM GETFILEPTR BINCCODE +READCCODE FMEMB NLEFT DCHCON) MBUTTON.NEXT.FIELD.AS.TEXT (TEDIT.SEL.AS.STRING) UNIXCHAT.OPEN ( +CREATE-SHELL-STREAM LIST) COMPILER::*LITERALLY-T* (COMPILER::MAKE-LITERAL) \XCCSINCCODE ( +ACCESS-CHARSET \BIN IDIFFERENCE) 32MBADDRESSABLE (SELECTC) \TEDIT.APPLY.PAGEFORMATTING (WINDOWPROP +ADD1 MBUTTON.FIND.NEXT.BUTTON IMAGEOBJPROP MBUTTON.NEXT.FIELD.AS.NUMBER SELECTQ U-CASE +MBUTTON.NEXT.FIELD.AS.TEXT MBUTTON.NEXT.FIELD.AS.ATOM CONCAT LIST PLUS \TEDIT.PARSE.CHARLOOKS.MENU +CONS TEDIT.SINGLE.PAGEFORMAT COPY) \NOMACHINETYPE (RAID) CLISPDEC1 (MAPCON LIST CONS CLISPDEC1 DUNPACK + ERROR) \XCCSPEEKCCODE (ACCESS-CHARSET \PEEKBIN) INSPECTW.REDISPLAY (\INSPECTW.REDISPLAYPROP MAPC +WITH-INSPECTOR-ENV WINDOWPROP XCL::PROFILIZE CL:PROGV XCL::PROFILE-VARIABLES XCL::PROFILE-VALUES +INSPECTW.PROPERTIES MAPCAR APPLY* \INSPECTW.VALUE.MARGIN DSPFONT \INSPECT.COMPUTE.TITLE +DSPCLIPPINGREGION NCONC LIST PRINTANDBOX FUNCTION CONS LRSH EXTENDREGION) ADVISE (ARG +SI::CANONICALIZE-ADVICE-WHEN-SPEC SI::CANONICALIZE-ADVICE-WHERE-SPEC XCL:ADVISE-FUNCTION CL:FIRST +CL:THIRD MAPCONC) \XCCSOUTCHAR (\CHARSET LRSH CL:FUNCALL FUNCTION \CHAR8CODE LOGAND IPLUS16 \LOLOC +\ADDBASE) \SET.LASTVMEMFILEPAGE (IDIFFERENCE) \SEQUIN.CLOSE (WITH.MONITOR CL:MULTIPLE-VALUE-PROG1 +.UNWIND.PROTECT. FUNCTION) COMPILER::ENV-ANALYZE-PROGN (MAPC COMPILER::PROGN-STMTS COMPILER::ENV-ANALYZE +) \TEDIT.FILL.IN.CHARLOOKS.MENU (\TEDIT.PARSE.CHARLOOKS.LIST LIST MBUTTON.FIND.NEXT.BUTTON ADD1 +IMAGEOBJPROP CONCAT FONTPROP PACK* U-CASE IABS IMINUS) ENDREAD? (TTSKREAD FIND.NON.SPACE \SYNCODE +GETHASH \GETBASEBYTE FIRSTCHAR LIST TTNEXTCHAR) MBUTTON.NEXT.FIELD.AS.PIECES (TEDIT.SELECTED.PIECES) +CL:CATCH (CL:CATCH \EVAL \EVPROGN) MAKEINITLAST (SYSTEMTYPE MAPHASH IMAX MINFS ITIMES ARRAYSIZE GCGAG +MAPC SETPROPLIST COPY SETTOPVAL FILEARRAYBASE BOUTZEROS IDIFFERENCE TIMES UNFOLD LLSH IMOD \LOLOC +PAGELOC IPLUS \HILOC LRSH ALLOCAL APPEND \ATOMVALINDEX NTYPX SHOULDNT LOCAL EVALV ILEQ \LOCKVAR +printout TERPRI DUMPINITPAGES) FREEMENU (COPY \FM.CREATEW \FM.FORMAT) COMP.LOOKUPVAR (COMP.USERFN +FUNCTION LIST CONS COMP.CHECK.VAR) \TEDIT.FORMAT.FOUNDBOX? (SELECTQ) \GETREGION.CHECKOPPT (IDIFFERENCE + IPLUS APPLY* ERROR) COMPILER::*LITERALLY-NIL* (COMPILER::MAKE-LITERAL) DODIRCOMMANDS (ITIMES +IQUOTIENT IPLUS POSITION IDIFFERENCE LINELENGTH PLUS DIRGETFILEINFO IGEQ TAB DIRFILENAME DREAD NCONC1 +INFILEP PACKFILENAME FASSOC LIST) \CREATE.XCCS.EXTERNALFORMAT (\INSTALL.EXTERNALFORMAT FUNCTION) +FGET.IP (APPENDOP.IP) \TEDIT.CONVERT.FOREIGN.FORMAT (OPENTEXTSTREAM RESETSAVE \TEDIT.SET.WINDOW CONS +TEXTOBJ APPLY*) CL:CERROR (MAKE-INTO-CONDITION) TEDIT.PARSE.PAGEFRAMES (LIST MAPCAR +TEDIT.PARSE.PAGEFRAMES) FB.ALLOW.ABORT (\DTEST THIS.PROCESS REDISPLAYW) CONCAT (ARG MKSTRING IPLUS +NCHARS SUB1 ALLOCSTRING ADD1) \MAKEBRUSH.ROUND (SUB1 HALF LRSH BITMAPCREATE MASK.1'S LSH DSPCREATE) +SPP.CLEARATTENTION (GETSPPCON FFETCHFIELD ERROR) CL:UNWIND-PROTECT (CL:MULTIPLE-VALUE-PROG1 +.UNWIND.PROTECT. FUNCTION \EVAL) COMPILER::ENV-ANALYZE-MV-CALL (COMPILER::ENV-ANALYZE COMPILER::MV-CALL-FN + MAPC COMPILER::MV-CALL-ARG-EXPRS) MOVE.TO.LINE (SEGMENT.BIT.LENGTH CHECK.MARGIN IPLUS) +MBUTTON.NEXT.FIELD.AS.NUMBER (NUMBERP MKATOM TEDIT.SEL.AS.STRING) CL:TAGBODY (CONS \PROG0) \COPY ( +SELECTQ LOCAL TYPENAME UNLESSRDSYS MKI.ATOM REVERSE \COPY LAST CONS IGREATERP \ADDBASE LOGAND ILESSP +CREATECELL LOGOR LRSH %%COPY-ONED-ARRAY %%COPY-STRING-TO-ARRAY SYSTEMTYPE \GETBASE \VAG2 CL:CHAR-CODE +ERROR) %%SET-ARRAY-OFFSET (-) \SEQUIN.PROCESS (WITH.MONITOR CL:MULTIPLE-VALUE-PROG1 .UNWIND.PROTECT. +FUNCTION LIST THIS.PROCESS PUPSOCKETEVENT GETPUP APPLY* SEQUINOP \SEQUIN.FLUSH.CONNECTION +MONITOR.AWAIT.EVENT FREPLACEFIELD IPLUS16 \LOLOC \ADDBASE FFETCHFIELD IMAX LRSH PLUS) +\DOVMEMFULLINTERRUPT (RESETVARS .RESETLST. LIST CONS CL:MULTIPLE-VALUE-PROG1 .UNWIND.PROTECT. FUNCTION + CONCAT) CLISPLOOKUP1 (RECORDFIELDNAMES CLISPLOOKUP1 GETPROP NTH) FB.NEWINFOCOMMAND (MENUWINDOW +FUNCTION WINDOWPROP FB.PROMPTWPRINT) HPRINT (RESETLST RADIX HASHARRAY OUTPUT SETREADTABLE OPENSTREAM +CL:MULTIPLE-VALUE-PROG1 .UNWIND.PROTECT. FUNCTION COPYBYTES) INITSEQUIN (OPENPUPSOCKET +CREATE.MONITORLOCK CREATE.EVENT ADD.PROCESS LIST) TERM.NEWLINE (\DTEST MOVETO) DIRPRINTNAME (GETSTREAM + NTHCHARCODE GETCASEARRAY PLUS LIST TAB ADD1) \INVALID.DOTTED.SYMBOL (\GETBASESTRING) SPP.FLUSH.TO.EOF + (SELECTC BIN) \MVLIST (LIST) \INVALID.INTEGER (\GETBASESTRING UNFOLD LLSH - \MKINTEGER) +GETGRIDBOXREGION (\DSPTRANSFORMX IPLUS WINDOWPROP \DSPTRANSFORMY GETREGION FUNCTION CREATEREGION +GRIDXCOORD DSPXSCREENTOWINDOW GRIDYCOORD DSPYSCREENTOWINDOW - ADD1) LISPXUSE (NCONC1 APPEND CONS +GENSYM LIST FMEMB LISPXFIND MAPCAR LISPXUSE0) SETUPPUP (\DTEST ADD1 FIXP ETHERPORT OPENPUPSOCKET) +INSPECT/MAKE/CCODEP (MAKE-COMPILED-CLOSURE) BRKDWNTIME (BRKDWNMACRO \BOXIPLUS BRKDWNELT ELT +BRKDWNDIFFA IDIFFERENCE \PUTBASEFIXP CPUTIME CLOCK EVAL) \MAKEBRUSH.SQUARE (BITMAPCREATE) EDITADDNODE +(WINDOWPROP GRAPHADDNODE WFROMDS NODEREGION PRIN1 APPLY* CONSTANT DSPCLIPPINGREGION) CACHEMACRO ( +ENVIRONMENT-FUNCTIONS CL:FUNCALL GETHASH PUTHASH) \PUPERROR (\MAYBEPEEKPUP ASSOC TERPRI FOLDLO LRSH +IPLUS ITIMES \PUTBASESTRING LOCF \ADDBASE SENDPUP \RELEASE.ETHERPACKET) XCL::SET-GLOBALLY-NOTINLINE-P +(GET) FB.NEWPATTERNCOMMAND (FB.GET.NEWPATTERN FB.UPDATEBROWSERITEMS) TEDIT.BUILD.PCTB0 (\MAKEPCTB +IDIFFERENCE GETEOFPTR \DWIN \SMALLPIN SUB1 LLSH PLUS CREATEPCNODE) MSADDTYPE (MKLIST CONS GETHASH LIST + APPEND ASSOC MSADDMODIFIER) POSTSCRIPT.TEXT (TEXTTOIMAGEFILE) DSPXSCREENTOWINDOW (IDIFFERENCE +\GETDISPLAYDATA \DTEST \OUTSTREAMARG \GETSTREAM) \ACTONVMEMFILE (\DL.ACTONVMEMFILE \DOVE.ACTONVMEMFILE + \M44ACTONVMEMFILE) MAKEINITFIRST (\NEWPAGE) \NSGC.COLLECT.DIRECTORIES (RESETLST \GETFILINGCONNECTION +\NSFILING.CONNECT FILING.CALL CONSTANT \FILING.ATTRIBUTE.TYPE.SEQUENCE LIST FUNCTION +BULKDATA.GENERATOR CONS BULKDATA.GENERATE.NEXT) \PRINDATUM.TO.STRING (SELECTC NTYPX LIST +GLOBALRESOURCE \CONVERT.FLOATING.NUMBER \CONVERTNUMBER RPLSTRING ALLOCSTRING NCHARS GETRESOURCE +NEWRESOURCE CONCAT CL:MAKE-HASH-TABLE FUNCTION CL:FUNCTION) GETSEQUIN (\DEQUEUE) PAINTW (\INSUREWINDOW + PRIN1 RESETLST RESETSAVE LIST CURSOR WINDOWPROP SELECTQ MASK.1'S LSH SUB1 BITMAPP \GETBRUSH HALF LRSH + LOGAND DSPCLIPPINGREGION LASTMOUSEX LASTMOUSEY PAINTW.READCOMMAND PAINTW.READBRUSHTEXTURE +PAINTW.READMODE PAINTW.READBRUSHSHAPE PAINTW.READBRUSHSIZE WHICHW IDIFFERENCE LOGOR COPY) +\TFBRAVO.SPREAD.LOOKS (SELECTQ LISTPUT \TFBRAVO.GET.FONTSIZE \TFBRAVO.GET.FONTSTYLE PLUS IDIFFERENCE) +\INSERTTREE (UNINTERRUPTABLY LLSH SUB1 \GETBASEPTR PLUS IDIFFERENCE IPLUS \GETBASEFIXP \ADDBASE ADD1) +TEDIT.FORMAT.HARDCOPY (RESETLST TEXTOBJ TEXTSTREAM NUMBERP LIST TEDIT.COMPOUND.PAGEFORMAT LISTGET +TEXTPROP APPLY* PRINTER.SCRATCH.FILE RESETSAVE TEDIT.PROMPTPRINT OPENIMAGESTREAM PRINTERPROP +PRINTERTYPE FONTCREATE STREAMPROP DSPRIGHTMARGIN SUB1 CLOSEF SEND.FILE.TO.PRINTER APPEND DELFILE +CONCAT MKSTRING) FB.YES-OR-NO-P (FB.PROMPTFORINPUT SELECTQ) \STREAM.FROM.PACKET (\MAKEBASEBYTESTREAM +IDIFFERENCE CONSTANT IPLUS) XCL::DECL-SPECIFIER-P (GET) XCL::SET-DECL-SPECIFIER-P (GET) +\NSFILING.LOGOUT (FILING.CALL) COMPILE! (RESETLST UNION COMPILE1 VIRGINFN LIST) SHOW.MATCHING.PAREN ( +BACKSKREAD FIND.LINE + SEGMENT.BIT.LENGTH \SYSBUFP TIMES \CARET.DOWN) \TEDITPAGEMENU.CREATE ( +\TEXTMENU.DOC.CREATE APPEND LIST FONTCREATE) FORMAT-ROUND-COLUMNS (+ CL:* CL:CEILING -) TERPRI ( +\GETSTREAM) \TEDIT.APPLY.OLINE (SELECTQ IMAGEOBJPROP CONS) PRIN1 (\GETSTREAM \DTEST \OUTTERMP +.FILELINELENGTH. SELECTC) FB.GET.SORT.MENU (CONS MAPCAR) SPACES (\GETSTREAM .FILELINELENGTH. SELECTC +IPLUS FRESHLINE \OUTCHAR) FIND.MATCHING.WORD (INPART) PRINTNUM (GLOBALRESOURCE SELECTQ LISPERROR +\CONVERT.FLOATING.NUMBER FLOAT \CHECKFLTFMT \CONVERTNUMBER FIXP FIXR IABS IMINUS IGREATERP IDIFFERENCE + NCHARS PRIN1 GETRESOURCE NEWRESOURCE ALLOCSTRING CONCAT) \FATTENSTRING (%%MAKE-STRING-ARRAY-FAT) TAB +(IPLUS POSITION NUMBERP IDIFFERENCE) MAPFILES (MAPC MAPFILES NTHCHARCODE DIRECTORY.FILL.PATTERN CL:APPLY + MAPFILES1 INFILEP) \PRINTVP (printout LRSH LOGAND PRIN1) MAKEWITHINREGION (REGIONP \ILLEGAL.ARG IMAX +IDIFFERENCE SUB1) \TEDIT.UPDATETREE (\GETBASEPTR IPLUS \GETBASEFIXP PLUS FFETCHFIELD) +\DO.PROGV.SETUP.FRAME.AND.EXECUTE (\MYALINK OPCODES ADDSTACKBASE \VAG2 CEIL LOGAND IPLUS IDIFFERENCE +UNFOLD LLSH CONSTANT SUB1 LOGXOR FOLDLO LRSH \PUTBASEPTR \ATOMVALINDEX NTYPX \LOLOC SHOULDNT PLUS +WORDSPERNAMEENTRY WORDSPERNTOFFSETENTRY) GETSTREAM (\GETSTREAM) POSTSCRIPT.TEDIT (MKATOM +OPENTEXTSTREAM) SPPSTREAMP (GETSPPCON FFETCHFIELD) \MAKEBRUSH.HORIZONTAL (BITMAPCREATE SUB1 FOLDHI +LRSH IPLUS) \TRANSLATE.3TO10 (ASSOC \DTEST \ALLOCATE.ETHERPACKET LOCF \ADDBASE) MBUTTON.INIT ( +IMAGEFNSCREATE FUNCTION) \COURIER.TRACE (SELECTQ PRIN1 printout LVLPRINT SHOULDNT) \MAPPNAME.INTERNAL +(WITH-RESOURCE \PRINDATUM GETRESOURCE NEWRESOURCE FREPLACEFIELDVAL NCREATE FUNCTION) COMP.EXP1 ( +COMP.EXPR) OUTPUT (\GETSTREAM) UPIQUOTIENT (IQUOTIENT IPLUS SUB1) PRINT-CIRCLE-SCAN (DECLARE) SHOW.IP +(\GETFILEPTR SPREADAPPLY* -) TEDIT.BUILD.PCTB2 (CHARLOOKS.FROM.FONT \MAKEPCTB IDIFFERENCE GETEOFPTR +\DWIN \SMALLPIN SUB1 LLSH TEDIT.GET.PAGEFRAMES PLUS IMINUS \TEDIT.GET.CHARLOOKS.LIST2 ARRAY FLENGTH +\TEDIT.GET.PARALOOKS.LIST2 \TEDIT.GET.PARALOOKS FFETCHFIELD \BIN \TEDIT.GET.SINGLE.CHARLOOKS2) FIX ( +IPLUS) VARSBOUNDINFORM (APPEND ARGLIST GETPROP MAPCAR SELECTQ CONS CHECKTRAN VARSBOUNDINFORM GETLIS +MACROEXPANSION) CL:GENSYM (CL:MAKE-SYMBOL CL:CONCATENATE MKSTRING CL:1+) \VAMGetVAMPageFor (IPLUS +\PFGetAllocationMapPage) RPLSTRING (STRINGP MKSTRING + SUB1 \ADDBASE \PUTBASE \GETBASETHIN +\GETBASEBYTE PLUS) ENDPREAMBLE.IP (DREVERSE) XCL::GLOBALLY-NOTINLINE-P (GET) \SPAWN.CHAT (ADD.PROCESS) + MB.MARGINBAR.TABTRACK (DSPCLIPPINGREGION MSCALE LOGAND LOGOR LASTMOUSEX LASTMOUSEY MDESCALE) +EDITAPPLYTOLINK (TERPRI READ/NODE printout ERSETQ APPLY* DISPLAY/NAME) \TEDIT.APPLY.BOLDNESS (SELECTQ +IMAGEOBJPROP CONS) BKSYSCHARCODE (\PUTSYSBUF NCONC \GETREALSYSBUF \GETBASEFAT \GETBASE ADD1 LIST) +MSADDMODIFIER (MKLIST ASSOC GETHASH CONS LIST MAPC ADDTEMPLATEWORD) DSPYSCREENTOWINDOW (IDIFFERENCE +\GETDISPLAYDATA \DTEST \OUTSTREAMARG \GETSTREAM) BKSYSBUF (ADD1 \GETBASEFAT \GETBASE \GETBASETHIN +\GETBASEBYTE SUB1 IPLUS \GTREADTABLE TTY.PROCESS THIS.PROCESS PROCESS.EVALV FUNCTION) NEGATE (SELECTQ +CONS NEGLST NEGATE NEGC MAPLIST NEGL MKPROGN APPEND LIST) GC-FILING-DIRECTORY (CHCON1 +\ADD.CONNECTED.DIR \GETDEVICEFROMNAME \NSFILING.PARSE.FILENAME FUNCTION \NSGC.COLLECT.DIRECTORIES +TERPRI + NCHARS \NSFILING.GETFILE CONCAT) CL:LOAD (STREAMP CL::\OPENSTREAM-WITH-DEFAULT +CL:MULTIPLE-VALUE-PROG1 .UNWIND.PROTECT. FUNCTION \LOAD-STREAM CL:INTERN STRING CL:FIND-PACKAGE) +\MAPPNAME (\GTREADTABLE \DTEST \MAPPNAME.INTERNAL) \TFBRAVO.EOLS (PLUS TEDIT.SETSEL) CHECKFPTOVP1 ( +\LOOKUPPAGEMAP PRIN1 RPFROMRPT IPLUS TERPRI) FB.SORTCOMMAND (MENU FB.GET.SORT.MENU SELECTQ FUNCTION +TB.COLLECT.ITEMS CL:POSITION HELP CL:NTH IDATE FB.CHECK.NAME.LENGTH SORT) PROCESS.EVALV ( +\COERCE.TO.PROCESS FIND.PROCESS THIS.PROCESS \MYALINK OPCODES \GETBASEPTR \STKSCAN) CHECKFPTOVP ( +\ADDBASE PLUS) \IRM.GET.KEYWORDS (PRIN1 GETPROMPTWINDOW GETHASHFILE \IRM.GET.HASHFILE) +\MAKEBRUSH.VERTICAL (BITMAPCREATE SUB1 FOLDHI LRSH IPLUS) MSADDRELATION (LIST MKLIST) CURRENT.WORD ( +\SYNCODE GETHASH \GETBASEBYTE FIRSTCHAR LIST TTNEXTCHAR) MDESCALE (QUOTIENT IQUOTIENT LLSH IDIFFERENCE + DIFFERENCE) TEDIT.BUILD.PCTB1 (CHARLOOKS.FROM.FONT \MAKEPCTB IDIFFERENCE GETEOFPTR \DWIN \SMALLPIN +SUB1 LLSH TEDIT.GET.PAGEFRAMES1 PLUS IMINUS \TEDIT.GET.PARALOOKS1 \BIN IPLUS CONS CREATEPCNODE) +COMPILER::ENV-ANALYZE-LABELS (COMPILER::ENV-ANALYZE COMPILER::LABELS-BODY MAPC COMPILER::LABELS-FUNS) +\TEDIT.APPLY.CHARLOOKS (WINDOWPROP ADD1 MBUTTON.FIND.NEXT.BUTTON \TEDIT.PARSE.CHARLOOKS.MENU) +COMPILER::ENV-ANALYZE-IF (COMPILER::ENV-ANALYZE COMPILER::IF-PRED COMPILER::IF-THEN COMPILER::IF-ELSE) + \GETREGION.CHECKBASEPT (APPLY*) MB.THREESTATE.DISPLAY (IMAGEOBJPROP DSPXPOSITION DSPYPOSITION +MB.SIZEFN BITMAPCREATE DSPCREATE FONTPROP IDIFFERENCE SUB1 IPLUS) FB.ALPHABETIC.ATTR (SELECTQ +ALPHORDER FB.NAMES.DECREASING.VERSION) GAINSPACE (POSITION ASKUSER LIST EVAL) EDITADDLINK ( +EDITAPPLYTOLINK FUNCTION WINDOWPROP) COROUTINE (SET STACKP EVALV STKNTH RETTO ENVEVAL) WARNUSER ( +RETDWIM2) FB.INSERT.SUBDIRECTORIES (STRING-EQUAL FB.MAKE.SUBDIRECTORY.ITEM) SHOWCHARS (RESETFORM +DSPFONT LOGAND PLUS CONCAT OCTALSTRING LRSH CHARACTER TERPRI) \IRM.WILDCARD (CONS UNPACK DUNPACK LIST) + TERM.IDENTIFY.SELF (PRIN3 FORCEOUTPUT) \TEDIT.PARSE.CHARLOOKS.MENU (MBUTTON.FIND.NEXT.BUTTON +\TEDIT.APPLY.BOLDNESS \TEDIT.APPLY.SLOPE \TEDIT.APPLY.ULINE \TEDIT.APPLY.STRIKEOUT \TEDIT.APPLY.OLINE +ADD1 IMAGEOBJPROP MBUTTON.NEXT.FIELD.AS.ATOM CONS U-CASE EVAL MKATOM SUBSTRING SUB1 STRPOS +MBUTTON.NEXT.FIELD.AS.NUMBER) COMPILER::ENV-ANALYZE-LAMBDA (COMPILER::ENV-ANALYZE COMPILER::LAMBDA-BODY + MAPC COMPILER::LAMBDA-OPTIONAL CL:SECOND COMPILER::LAMBDA-KEYWORD CL:THIRD) SPP.OPENP (GETSPPCON +FFETCHFIELD) \RPLCHARCODE (IGEQ \PUTBASEFAT \PUTBASE \PUTBASETHIN \PUTBASEBYTE IPLUS SUB1) WTFIX ( +WTFIX1) NTHCHAR (NTHCHARCODE FCHARACTER) COMPARE (GETDEF) \TFBRAVO.READ.USER.CM (LIST OPENP OPENSTREAM + CONCAT CONSTANT CHARACTER RATOMS NTHCHAR FASSOC NCONC \TFBRAVO.GETPARAMS) GNC (GNCCODE FCHARACTER) +CL::%%DO-TRANSLATE (CL:MAPCAR CL:FUNCTION CL:MAPCAN CL:GENSYM CONS CL:APPLY) GNCCODE (\GETBASECHAR +\GETBASEFAT \GETBASE \GETBASETHIN \GETBASEBYTE ADD1 SUB1 NTHCHARCODE) GLCCODE (SUB1 \GETBASECHAR +\GETBASEFAT \GETBASE IPLUS \GETBASETHIN \GETBASEBYTE NTHCHARCODE) \PRINTFPTOVP (GETSTREAM \ADDBASE +SUB1 PLUS \GETBASE \LOCKEDPAGEP TYPENAME SELECTC LRSH LIST CL:1+ \HILOC ADD1 PRIN1 TAB) STREQUAL (PLUS + \GETBASEBYTE \GETBASECHAR \GETBASEFAT \GETBASE \GETBASETHIN) TTDOTABS (IDIFFERENCE ITIMES +TTMAKECOMPLEXCHAR IQUOTIENT LIST PLUS) TYPENAME (NTYPX \ARRAYTYPENAME \INDEXATOMPNAME \GETDTD \ADDBASE + ITIMES) FB.PROMPTFORINPUT (\DTEST STRINGWIDTH WINDOWPROP + - NCHARS NTHCHARCODE SUBSTRING CONCAT SUB1 + CONSTANT CHARACTER ADD1 PLUS NLSETQ TTYINPROMPTFORWORD PRIN1) DWIMIFY (DWIMIFY0 OUTPUT RESETVARS +.RESETLST. LIST CONS CL:MULTIPLE-VALUE-PROG1 .UNWIND.PROTECT. FUNCTION) COMPILE (RESETLST) CLISPIFY ( +EVQ VARSBOUNDINEDITCHAIN LAST EXPRCHECK GETLOCALDEC CLISPIFY2 CLISPIFY1 CONS FMEMB LIST CLISPIFY2A) +L-CASE (WITH-RESOURCE ADD1 \GETBASEFAT \GETBASE \GETBASETHIN \GETBASEBYTE IPLUS IDIFFERENCE +\PUTBASEFAT \PUTBASE \PUTBASETHIN \PUTBASEBYTE PLUS CL:SYMBOL-PACKAGE \MKATOM GETRESOURCE NEWRESOURCE +ALLOCSTRING SUB1 \NSTRINGCHARS FFETCHFIELD CONS L-CASE) \DWIN (IPLUS LLSH \BIN) \LOCKFN (EVQ \LOCKCODE +) U-CASEP (ADD1 \GETBASEFAT \GETBASE \GETBASETHIN \GETBASEBYTE SUB1 IPLUS U-CASEP) \LOCKCODE ( +\LOCKWORDS UNFOLD LLSH \#BLOCKDATACELLS) \MAKEBRUSH.DIAGONAL (BITMAPCREATE SUB1 PLUS) \LOCKCELL ( +\LOCKPAGES PAGEBASE \VAG2 \HILOC LOGAND \LOLOC) SPPOUTPUTSTREAM (GETSPPCON FFETCHFIELD +\SPP.STREAM.LOST) RECORD (STKNTHNAME DECLARERECORD CONS SUB1) CL:1+ (+) TEDIT.UNDO.REPLACE (IPLUS) +%%MAKE-STRING-ARRAY-FAT (+ %%MAKE-ARRAY-STORAGE) CONCAT.IP (APPENDOP.IP) \TEDIT.TEXTBIN.STRINGSETUP ( +ADDBASE \ADDBASE UNFOLD LLSH IPLUS LRSH LOGAND) \TFBRAVO.INIT.PARALOOKS (IDIFFERENCE ASSOC IQUOTIENT +LIST) \LOCKWORDS (\LOCKPAGES PAGEBASE \VAG2 \HILOC LOGAND \LOLOC FOLDHI LRSH IPLUS) +LIST-ALL-BLOCKRECORDS (LIST) FIX-SUBR-NAME (CONCATCODES DREMOVE SUBST CHCON) ZEROD.FETCHFN (SLICEREF) +\ROUTINGTABLE.INFOHOOK (PROCESSPROP GETD FONTCREATE SELECTQ NTYPX CL:ERROR PLUS LENGTH \GETBASEPTR +\ADDBASE CREATEW GETBOXREGION WIDTHIFWINDOW TIMES CHARWIDTH HEIGHTIFWINDOW FONTPROP IMIN ADD1 CONCAT +FUNCTION OPENSTREAM WINDOWPROP OPENTEXTSTREAM) >= (CL::%%COMPARISON-MACRO) TEDIT.GET.OBJECT0 (\ATMIN +GETFILEPTR READIMAGEOBJ \TEDIT.UNIQUIFY.CHARLOOKS CHARLOOKS.FROM.FONT) \#BLOCKDATACELLS (NTYPX +IDIFFERENCE \ADDBASE IMINUS \ILLEGAL.ARG \GETDTD ITIMES HUNKSIZEFROMNUMBER LRSH) \LOCKVAR (\LOCKCELL +EVQ) \NSRANDOM.CLOSEFILE (LOGAND CONSTANT LOGOR) SPELLFILE (UNPACKFILENAME.STRING GETPROP HOSTNAMEP +FIXSPELL INFILEP PACKFILENAME.STRING MKATOM PACKFILENAME FILEDATE SPELLFILE.MATCHINGDIRS FUNCTION +DIRECTORYNAME LISTGET SPELLFILE.SPELL) FONTPROFILE (CONS ASSOC SELECTQ FONTCLASS) FORMAT-DO-ITERATION +(CL:CATCH) \PUTBASESTRING (\PUTBASESTRINGFAT SUB1 IPLUS ADD1 \GETBASEFAT \GETBASE PLUS \PUTBASESTRING +MKSTRING) TERM.GODOWN (\DTEST + MOVETO IMAX - ITIMES) FB.PROMPTW.FORMAT (\DTEST CL:APPLY) \FORWARD.PUP + (\MAYBEPEEKPUP \GATEWAY.FORWARD.PUP \RELEASE.ETHERPACKET) \TEDIT.SHOW.CHARLOOKS (WINDOWPROP ADD1 +MBUTTON.FIND.NEXT.BUTTON \CHTOPC) \PUTBASESTRINGFAT (UNFOLD LLSH SUB1 \PUTBASEBYTE ADD1 \GETBASETHIN +\GETBASEBYTE IPLUS PLUS) AUTOCR? (IPLUS) \TEXTMENU.TOGGLE.DISPLAY (IMAGEOBJPROP DSPXPOSITION +DSPYPOSITION MB.SIZEFN BITMAPCREATE DSPCREATE FONTPROP IDIFFERENCE) GENSYM (STRINGP LITATOM CL:STRINGP + FIXP CHARCODEP ALLOCSTRING NCHARS IDIFFERENCE IPLUS \GS.INITBUF NTHCHARCODE PLUS ADD1 SUBSTRING +MKATOM) LOADFNS (RESETLST FILEPKGCHANGES FIXSPELL ERROR FMEMB LIST LOADFNS-MAKELIST LOADFNS-FINDFILE +OPENSTREAM INPUT FULLNAME ROOTFILENAME GET-ENVIRONMENT-AND-FILEMAP SELECTQ FILECOMS DREVERSE) +SCANFILE2 (CONS DREMOVE) \BrushFromWidth (LIST) ZEROD.STOREFN (SLICESET) COURIER.WRITE (\BOUT UNSIGNED + LOGAND SUB1 LLSH \HINUM \WOUT LISP.TO.ALTO.DATE GETPROP \GET.COURIER.TYPE ASSOC MKSTRING +\COURIER.TYPE.ERROR LENGTH COURIER.WRITE) GetBcplString (\GETBASEBYTE \MKATOM \GETBASESTRING MKATOM) +HOST&DIRECTORYFIELD (PACKFILENAME.STRING U-CASE FILENAMEFIELD) CLEAR-CLISPARRAY (SELECTQ CLRHASH) +DRAWAREABOX (PLUS DIFFERENCE BLTSHADE) AS.CHANGE.OWN.PASSWORDS (RESETLST AS.MAKE.CONVERSATION) +SetBcplString (NCHARS) ENDMASTER.IP (APPENDOP.IP) \TEDIT.TEXTBIN.FILESETUP (UNFOLD LLSH +\TEDIT.REOPEN.STREAM IPLUS GETEOFPTR LOGOR \PAGEDBIN \PAGEDPEEKBIN \BIN \PEEKBIN IMIN IDIFFERENCE) +\TEDIT.GET.CHARLOOKS.LIST (\SMALLPIN SUB1 LLSH IDIFFERENCE \TEDIT.GET.SINGLE.CHARLOOKS LIST PLUS) +LENGTH (ADD1) \NSRANDOM.OPENFILE (SHOULDNT \ILLEGAL.ARG \NSFILING.OPENFILE) POSTSCRIPT.HARDCOPYW ( +OPENPOSTSCRIPTSTREAM LIST COPY + - TIMES PLUS QUOTIENT DIFFERENCE FULLNAME) \SETARG0 (\MYALINK OPCODES + \PUTBASEPTR ADDSTACKBASE \VAG2 IPLUS UNFOLD LLSH SUB1 LISPERROR) BQUOTIFY (SELECTQ LIST MAPCONC +BQUOTIFY APPEND CONS) MSADDANALYZE (LIST GETHASH PUTASSOC PUTHASH CONS ASSOC) MISCN-NUMBER (ASSOC +ERROR) TEDIT.UNDO.MOVE (IPLUS PLUS FFETCHFIELD) \SETPUPCHECKSUM (\CHECKSUM SUB1 FOLDHI LRSH IPLUS) +\TEDIT.NEUTRALIZE.CHARLOOKS (WINDOWPROP ADD1) COMPILER::ENV-ANALYZE-CATCH (COMPILER::ENV-ANALYZE +COMPILER::CATCH-TAG COMPILER::CATCH-STMT) TTADDTAB (ADDCHAR TTMAKECOMPLEXCHAR LOGAND IQUOTIENT +IDIFFERENCE LIST PLUS) MB.MARGINBAR.DISPLAYFN (IMAGEOBJPROP IMAGEBOX DSPCREATE BITMAPCREATE +DSPCLIPPINGREGION IDIFFERENCE DSPXPOSITION DSPYPOSITION) \DOHARDRETURN1 (IPLUS PLUS FFETCHFIELD +ADDSTACKBASE \VAG2 \FREESTACKBLOCK IMOD - IDIFFERENCE) ADDTEMPLATEWORD (CONS MAKETABLE PUTASSOC) +TEDIT.GET.PAGEFRAMES (TEDIT.PARSE.PAGEFRAMES READ) INSPECTW.FETCH (APPLY* WINDOWPROP ERROR) +\GCSCANSTACK (OPCODES ADDSTACKBASE \VAG2 \STKREF \ADDBASE IPLUS UNFOLD LLSH PLUS FFETCHFIELD) +FB.INCREASING.NUMERIC.ATTR (ILESSP FB.NAMES.DECREASING.VERSION) \IRM.WILD.REF (WINDOWPROP PROG2 PRIN1 +GETPROMPTWINDOW \IRM.WILDCARD \IRM.GET.KEYWORDS \IRM.GET.REF MAPCAR LIST KWOTE CONCAT MENU) CL:COMPILE + (COMPILER::MAKE-ENV CL:MAKE-HASH-TABLE LIST COMPILER::RAW-COMPILE CL:SYMBOL-FUNCTION) +FORMAT-CONDITION (FORMAT-BOOLEAN-CONDITION FORMAT-FUNNY-CONDITION FORMAT-UNTAGGED-CONDITION) +TERM.ERASE.IN.DISPLAY (SELECTQ TERM.ERASEBITS - + MOVETO) CL:FUNCALL (CL:APPLY) \DECUSECOUNT (PLUS +FFETCHFIELD ADDSTACKBASE \VAG2 IDIFFERENCE IPLUS) DO?CMD (BACKSKREAD CHCON) MB.NB.DISPLAYFN ( +IMAGEOBJPROP DSPXPOSITION DSPYPOSITION BITMAPCREATE DSPCREATE IDIFFERENCE IPLUS) PTON10GRID ( +NEAREST/PT/ON/GRID) BMOBJ.PUTFN (IMAGEOBJPROP SPACES) \INCUSECOUNT (FREPLACEFIELD PLUS FFETCHFIELD +ADDSTACKBASE \VAG2) SCANEXP (CONS APPLY* READ EDIT4E NCONC1) COMP.STJUMP (SELECTQ SUB1 +OPT.COMPILERERROR IGEQ) XCCSSTRING (CONCAT OCTALSTRING LRSH LOGAND) \DOSTACKOVERFLOW (\SETUPUSERSTACK +\MOVEFRAME) GETSELECTEDITEMS (LIST) COMPILER::ENV-ANALYZE-CALL (COMPILER::ENV-ANALYZE COMPILER::CALL-FN + MAPC COMPILER::CALL-ARGS) \PROMPT.FOR.PUP.NUMBER (RESETLST PROVIDE.PROMPTING.WINDOW RESETBUFS PACK* +PROMPTFORWORD TERPRI TTYDISPLAYSTREAM) INSPECT/AS/BLOCKRECORD (LIST-ALL-BLOCKRECORDS printout PRIN1 +MENU FUNCTION INSPECT) \MOVEFRAME (+ PLUS \FREESTACKBLOCK IMOD - ADDSTACKBASE \VAG2 FFETCHFIELD) +BMOBJ.GETFN5 (BITMAPTEDITOBJ \READBINARYBITMAP READ) CONDITIONS::%%RESTART-DEFAULT-REPORTER (CL:FUNCALL +) \SETUPUSERSTACK (\MAKEFRAME FUNCTION ADDSTACKBASE \VAG2 ADD1 IDIFFERENCE FOLDLO LRSH) SLICESET (ARG +ASET IPLUS PLUS ITIMES) \COURIER.HANDLE.BULKDATA (CL:MULTIPLE-VALUE-PROG1 .UNWIND.PROTECT. FUNCTION) +TEDIT.GET.CHARLOOKS0 (\SMALLPIN SUB1 LLSH IDIFFERENCE PACK CHARACTER \BIN LIST PLUS ZEROP IMINUS +\STRINGIN NCHARS READ LOGAND FONTCREATE) \GATHER-CLEANUP-FORMS (\GATHER-CLEANUP-FORMS1) CONDITIONS:FIND-RESTART + (CL:FLET) TTYIN.SHOW.?ALTERNATIVES (CURRENT.WORD NLEFT \SYNCODE GETHASH \GETBASEBYTE LIST ADDCHAR +FIND.MATCHING.WORD TTCOMPLETEWORD INPART RESTORE.CURSOR) MBUTTON.FIND.NEXT.BUTTON (\CHTOPC CONS PLUS) +ERROR (ERRM-TO-CONDITION CONS ERROR! ERRORX) BMOBJ.INIT (IMAGEFNSCREATE FUNCTION) CONDITIONS:INVOKE-RESTART + (CONDITIONS:FIND-RESTART CL:ERROR SI::INVOKE-ACTUAL-RESTART) SCANDECLARECOLON (GETFILEPTR RATOM SUB1 +READ CONS EVAL) \AGE.ROUTING.TABLE (NTYPX CL:ERROR \GETBASEPTR DREMOVE \ADDBASE PLUS) \EXTENDSTACK ( +\DONEWPAGE ADDSTACKBASE \VAG2 IPLUS IDIFFERENCE) CL:PRINT (TERPRI CL:PRIN1) CONDITIONS:COMPUTE-RESTARTS + (CL:FUNCTION CL:NREVERSE) CONDITIONS:INVOKE-RESTART-INTERACTIVELY (CONDITIONS:FIND-RESTART CL:ERROR +CONDITIONS::RESTART-INTERACTIVE-FN SI::INVOKE-ACTUAL-RESTART CL:FUNCALL) \NSFILING.SETFILEINFO ( +\LISP.TO.NSFILING.ATTRIBUTE \NSRANDOM.SETEOFPTR \NSFILING.GET/SETINFO FUNCTION PRIN1) \RELEASE.IOCB ( +\HILOC ERROR PLUS \LOLOC) ONEDINSPECTW.CREATE (MAKE-INSPECTOR-PROFILE DEFAULTFONT DSPFONT XCL::PROFILIZE + CL:PROGV XCL::PROFILE-VARIABLES XCL::PROFILE-VALUES APPLY* GET-ONED-DISPLAYW GET-RIGHTW GET-TITLEW +WINDOWPROP ONEDINSPECT.ARRANGEWINDOWS FUNCTION) TEDIT.GET.PARALOOKS0 (\SMALLPIN SUB1 LLSH IDIFFERENCE +CONS \BIN SELECTC SHOULDNT SELECTQ LIST PLUS ZEROP) LISPFORM.SIMPLIFY (GETMACROPROP MACROEXPANSION +LISPFORM.SIMPLIFY GETHASH CONSTANTEXPRESSIONP KWOTE) SCANDEFINEQ (RETRYSCAN LCONC TCONC RATOM +GETFILEPTR SUB1 READ LIST CONS NCONC DEFINE DREMOVE ADD1) \VAMCheckEndOfVol (SUB1) NEAREST/MULTIPLE ( +ITIMES IQUOTIENT IPLUS IDIFFERENCE) CLIPRECTANGLE.IP (APPENDOP.IP) COMPILER::ENV-ANALYZE-BLOCK ( +COMPILER::ENV-ANALYZE COMPILER::BLOCK-STMT) TEDITFROMBRAVO (OPENTEXTSTREAM TEXTOBJ +\TFBRAVO.READ.USER.CM \TFBRAVO.INIT.PARALOOKS \TFBRAVO.INIT.CHARLOOKS GETFILEPTR \TFBRAVO.PARSE.PARA +\TFBRAVO.WRITE.PARAGRAPH INPUT) \HANDLE.RAW.PUP (\FORWARD.PUP \PUPSOCKET.FROM# \CHECKSUM SUB1 FOLDHI +LRSH IPLUS \LOCATE.PUPNET \ADD.ROUTING.TABLE.ENTRY PLUS FFETCHFIELD NOTIFY.EVENT) +\NSFILING.GETFILEINFO (\NSFILING.GET/SETINFO FUNCTION \FILING.ATTRIBUTE.TYPE ASSOC CONSTANT GETEOFPTR +LOGAND LOGOR GETFILEPTR SELECTQ FOLDHI LRSH IPLUS LIST \NSFILING.GETFILE \NSFILING.FILLIN.ATTRIBUTES +\NSFILING.GETFILEINFO.FROM.PLIST) CONDITIONS:CONTINUE (CONDITIONS:FIND-RESTART) +FB.DECREASING.NUMERIC.ATTR (IGREATERP FB.NAMES.DECREASING.VERSION) GETNODEFROMID (GETHASH ERROR FASSOC +) CODE.SUBPAIR (SUBPAIR) \COURIER.RESULTS (SELECTC GETWORD IPLUS LLSH \BIN COURIER.READ MAPCAR CONS +\GET.COURIERPROGRAM GETHASH LIST SELECTQ COURIER.SIGNAL.ERROR) TEDIT.GET.PAGEFRAMES1 ( +TEDIT.PARSE.PAGEFRAMES1 READ) CONDITIONS:INVOKE-DEBUGGER (DEBUGGER) NO.SIDEEFFECTS.FNP (LITATOM +GETPROP FMEMB) CONDITIONS:MUFFLE-WARNING (CONDITIONS:FIND-RESTART) \FIND.LOCALPUPHOSTNUMBER ( +\LOOKUPPUPNUMBER TERPRI \PROMPT.FOR.PUP.NUMBER OCTALSTRING) \NSRANDOM.READPAGES ( +\NSRANDOM.READ.SEGMENT \NSRANDOM.FETCH.CACHE IMIN - LOGAND CONSTANT LOGOR FOLDLO LRSH SUB1 + PLUS +\NSRANDOM.PREPARE.CACHE) CODE.SUBST (SUBST) INSTALLBRUSH (FASSOC ARRAY APPLY* PLUS CONS) +MSPRINTHELPFILE (INFILEP TERPRI INPUT INFILE LIST GETEOFPTR) \POLYSHADE.BLT (MAPCAR SORT CONS CRITSECT + IPLUS BLTSHADE IDIFFERENCE MAPC ADD1 IMIN NORMSECT) XCL::ADD-WHERE-IS-DATABASE (PATHNAME) +ARGS.COMMUTABLEP.LIST (EVERY ARGS.COMMUTABLEP) BREAKLINE (INSERTLINE) VAR.NOT.USED (ERRORX \VARNOTUSED +) CL:MAKUNBOUND (CL:PROCLAIM SET) \NSRANDOM.SESSION.WATCHER (THIS.PROCESS LIST FUNCTION LOGAND +CONSTANT LOGOR TIMES IMAX - \DAYTIME0 \CREATECELL) SI::NON-LOCAL-GO (SI::UNWIND-TO-BLIP CL:ERROR) +\GET-MY-BF (- \MYALINK OPCODES) SI::UNWIND-TO-BLIP (\MYALINK OPCODES \GETBASEPTR ADDSTACKBASE \VAG2 + +SI::VARIABLE-NAME-IN-FRAME SMALLP SI::PVAR-VALUE-IN-FRAME) TEDIT.HARDCOPY (PRINTERPROP PRINTERTYPE +TEDIT.FORMAT.HARDCOPY CONCAT TEDIT.PROMPTPRINT TEXTOBJ) \INIT-MISCN-TABLE (ARRAY \ADDBASE2 \ADDBASE) +EVALUABLE.CONSTANTP (CONSTANTEXPRESSIONP LISPFORM.SIMPLIFY LITATOM MEMB FUNCTION LIST EVAL +EVALUABLE.CONSTANTP APPLY CONS APPEND KWOTE CODE.SUBPAIR) BUTTONPANEL/SELECTION/FN (RPLACA) BOUNDP ( +\GETBASEPTR \STKSCAN) SETTTBLPROP (ECHOCONTROL SETSYNTAX DELETECONTROL CONTROL RAISE ECHOMODE) +POSTSCRIPT.PUTCOMMAND (ARG CL:FUNCALL FUNCTION PLUS) EVALUABLE.CONSTANT.FIXP (FIXP EVALUABLE.CONSTANTP +) GETMENUITEM (FNTH IPLUS ITIMES SUB1 IDIFFERENCE) ED (CONS CL:APPEND CL:MEMBER GETFILEPKGTYPE LIST +TYPESOF CL:FUNCTION GETPROPLIST INSTALL-PROTOTYPE-DEFN MENU CL:FORMAT ASKUSER) SI::NON-LOCAL-RETURN ( +ARG CL:VALUES-LIST LIST PLUS CL:ERROR) SLICEDIMENSION (FNTH ADD1) \TEDIT.APPLY.PARASTYLES (ASSOC +SASSOC APPLY* \TEDIT.PARSE.PARALOOKS.LIST APPEND CONS) DRAW/GRAPHNODE/BORDER (DRAWAREABOX ILEQ ERROR) +\VARNOTUSED.LIST (EVERY \VARNOTUSED) CL:SYMBOL-NAME (%%MAKE-ONED-ARRAY CL:ERROR) \UNDEFINED-MISCN-UFN +(TERPRI ERROR CL:FORMAT MISCN-COLLECT) \WALKOVER.SPECIALFORMS (SELECTQ EVERY \WALKOVER.SF.LIST LAST +\WALKOVER.FUNCTION APPLY* SHOULDNT) \VARNOTUSED (\VARNOTUSED.LIST MEMB \VARNOTUSED +\WALKOVER.SPECIALFORMS FUNCTION) MISCN-COLLECT (- \GETBASEPTR LLSH LIST PLUS) +SI::NON-LOCAL-RETURN-VALUES (CL:VALUES-LIST CL:ERROR) MB.MARGINBAR.SELFN (IMAGEOBJPROP IMAGEBOX MAPCAR + MSCALE IDIFFERENCE DSPCLIPPINGREGION ABS LOGAND LOGOR LASTMOUSEX LASTMOUSEY MAX MDESCALE IEQP MINUS +IMIN IABS IMINUS FIXR IPLUS CONS LDIFFERENCE LIST) GET (CL:GETF GETPROPLIST) +\TEDIT.CHARLOOKSMENU.CREATE (\TEXTMENU.DOC.CREATE APPEND LIST) \TEDIT.GET.PARALOOKS.LIST (\SMALLPIN +SUB1 LLSH IDIFFERENCE \TEDIT.GET.SINGLE.PARALOOKS LIST PLUS) %%MAKE-ONED-ARRAY ( +%%CML-TYPE-TO-TYPENUMBER %%MAKE-ARRAY-STORAGE) \DECL.COMNT.PROCESS (CONS) ARGS.COMMUTABLEP (LITATOM +LISPFORM.SIMPLIFY ARGS.COMMUTABLEP.LIST MEMB \WALKOVER.SPECIALFORMS FUNCTION) SPY.BUTTON (CREATEREGION + WIDTHIFWINDOW BITMAPWIDTH HEIGHTIFWINDOW BITMAPHEIGHT GETBOXREGION CREATEW FUNCTION) +TWODINSPECTW.CREATE (MAKE-INSPECTOR-PROFILE DEFAULTFONT DSPFONT APPLY* XCL::PROFILIZE CL:PROGV +XCL::PROFILE-VARIABLES XCL::PROFILE-VALUES GET-TWOD-DISPLAYW GET-TOPW GET-RIGHTW GET-CORNERW +GET-TITLEW WINDOWPROP TWODINSPECT.ARRANGEWINDOWS FUNCTION) SETA (\DTEST IDIFFERENCE IPLUS SELECTC LIST + \RPLPTR \ADDBASE2 \ADDBASE \PUTBASEFIXP \PUTBASEBYTE \PUTBASE FOLDLO LRSH LOGAND \GETBASE LOGXOR LLSH + SUB1 IMOD LOGOR \PUTBASEFLOATP UNFOLD FLOAT LISPERROR) \CANONICAL.NSHOSTNAME (LOOKUP.NS.SERVER MKATOM + NSNAME.TO.STRING) CL:THROW (CL:THROW \EVAL) ARRAY (FIX SELECTQ FOLDHI LRSH IPLUS UNFOLD LLSH FLOAT +\ILLEGAL.ARG LISPERROR \ALLOCBLOCK SUB1 \ADDBASE LIST \RPLPTR FEQP) MKCONS (CONS LIST) +AS.MAKE.CONVERSATION (\INTERNAL/GETPASSWORD RAND \AUTHENTICATION.FIND.SERVER COURIER.OPEN LIST +FUNCTION COURIER.CALL PARSE.NSNAME COURIER.FETCH CONS DES.MAKE.KEY) \WALKOVER.FUNCTION (APPLY* LIST) +\10MB.GETPACKETSTATUS (SELECTC LOGAND LOGOR \DoveEther.GetPacketStatus \NOMACHINETYPE) +\SELITEM.FROM.PROPERTY (WINDOWPROP) \DELETETREE (UNINTERRUPTABLY LLSH SUB1 \GETBASEPTR PLUS \ADDBASE +IDIFFERENCE IPLUS \GETBASEFIXP) SI::INTERNAL-THROW-VALUES (CL:VALUES-LIST CL:ERROR) \WALKOVER.SF.LIST +(EVERY APPLY*) ASKUSERCHAR (CHCON1 IDIFFERENCE) \MEDW.GETSCREENREGION (RESETFORM CURSOR FIXP MKLIST +LENGTH IDIFFERENCE SUB1 IMIN IPLUS IMAX LOGAND IQUOTIENT CLOCK ZEROP LOGOR IABS IMINUS) CL:FMAKUNBOUND + (CL:SYMBOL-FUNCTION CL:MACRO-FUNCTION REMPROP) \TEDIT.EXPANDED.MENU (COPYTEXTSTREAM \TEDIT.PRIMARYW +TEXTOBJ HEIGHTIFWINDOW) FB.FETCHFILENAME (\DTEST) \IRM.GET.HASHFILE (ARRAYP OPENHASHFILE PACKFILENAME) + USER-SUBR-NUMBER (ASSOC ERROR) TEDIT.GET.OBJECT1 (\ATMIN GETFILEPTR READIMAGEOBJ +\TEDIT.UNIQUIFY.CHARLOOKS CHARLOOKS.FROM.FONT) MSDESCRIBE (GETRELQ GETTABLE FASSOC SMARTARGLIST +CHANGEFONT TESTRELQ TESTTABLE GETHASH ABS UNION LIST CONS EVAL) SI::PVAR-VALUE-IN-FRAME ( +GETSTKNAMEENTRY NTSLOT-VARTYPE GETSTKNTOFFSETENTRY + ADDSTACKBASE \VAG2 UNFOLD LLSH NTSLOT-OFFSET +LOGAND PLUS WORDSPERNTOFFSETENTRY WORDSPERNAMEENTRY) SETF-SYMBOL-FUNCTION (VIRGINFN PUTD GETD) +\NSRANDOM.TRUNCATEFILE (\GETEOFPTR \NSRANDOM.UPDATE.VALIDATION FILING.CALL ASSOC) +SI::VARIABLE-NAME-IN-FRAME (\ADDBASE + GETSTKNAMEENTRY GETSTKNTOFFSETENTRY \INDEXATOMVAL \VAG2 LRSH +LOGAND CONSTANT WORDSPERNAMEENTRY WORDSPERNTOFFSETENTRY) TERM.CLEAR.TAB (\DTEST DREMOVE) +SCANCOMPILEDFN (SOME IEQP CONS GETFILEPTR TMPSUBFN DREMOVE) MSDESCRIBE1 (LINELENGTH POSITION IPLUS +NCHARS) ASSURE.PUP.READY (WITH.MONITOR CL:MULTIPLE-VALUE-PROG1 .UNWIND.PROTECT. FUNCTION FIND.PROCESS +\CLEAR.ROUTING.TABLE \FIND.LOCALPUPHOSTNUMBER SETUPTIMER) CL:FORMAT (CL:MACROLET GETSTREAM SUB-FORMAT +CL:LENGTH) FORMAT-SEMICOLON-ERROR (DECLARE FORMAT-ERROR) ADD-USER-SUBR (DECLARE \INIT-USER-SUBR-TABLE +FASSOC CL:REMOVE ELT CL:FUNCTION LIST) MOVE.FORWARD.TO (IPLUS SEGMENT.BIT.LENGTH CHECK.MARGIN) +CL:SYMBOL-VALUE (\EVAL CL:ERROR) LOOKUPHASHFILE (CREATEKEY PACK* GTHASHFILE ANYEQ GETHASHKEY EQMEMB +IMINUS READ) \DISCARDFRAME (UNINTERRUPTABLY IDIFFERENCE IPLUS PLUS FFETCHFIELD ADDSTACKBASE \VAG2 SUB1 +) MBUTTON.FIND.BUTTON (MKATOM TEXTOBJ \CHTOPC IMAGEOBJPROP PLUS) \INIT-USER-SUBR-TABLE (ARRAY MAPC +SETA) \TEDIT.GET.PARALOOKS1 (\SMALLPIN SUB1 LLSH IDIFFERENCE CONS \BIN SELECTC SHOULDNT LOGAND SELECTQ + LIST PLUS ZEROP \ARBIN \ATMIN) FB.CANONICALIZE.PATTERN (SELCHARQ NTHCHARCODE PLUS DIRECTORYNAME +SUBSTRING CONCAT ADD1) COMPILER::ANALYZE-TREE (COMPILER::ENV-ANALYZE COMPILER::EFFECTS-ANALYZE) +CL:FIND-SYMBOL (DECLARE \SIMPLE-STRINGIFY FIND-SYMBOL*) NUTF8STRINGBYTES (NTHCHARCODE PLUS +NUTF8CODEBYTES XTOUCODE) BUTTONPANEL (MAPCAR LIST FUNCTION) CL:FIND (CL:LENGTH COMPLEX-FIND +SIMPLE-FIND) ITEMOFPROPERTYVALUE (MEMB \SELITEM.FROM.PROPERTY WINDOWPROP) TEDIT-BOOK (OPENTEXTSTREAM +MKATOM TEXTOBJ TEDIT.INCLUDE PACK* CLOSEF) TB.COLLECT.ITEMS (FUNCTION \DTEST LIST) +DEFAULTWHENSELECTEDFN (STKEVAL STKPOS) ASKUSER1 (CONSTANT CHARACTER PACKC NTHCHAR) CL:SYMBOL-FUNCTION +(GETD CL:MACRO-FUNCTION CONS CL:SPECIAL-FORM-P CL:ERROR) \NSRANDOM.WRITEPAGES (PLUS UNFOLD LLSH +\NSRANDOM.UPDATE.VALIDATION - FOLDLO LRSH IMOD \NSRANDOM.WRITE.SEGMENT CL:NTHCDR + ASSOC) SLICEREF ( +ARG CL:AREF IPLUS PLUS ITIMES) ELT (IDIFFERENCE IPLUS SELECTC LIST \GETBASEPTR \ADDBASE2 \ADDBASE +\MAKENUMBER \GETBASE \GETBASEBYTE LOGAND LRSH FOLDLO SUB1 IMOD \GETBASEFLOATP UNFOLD LLSH LISPERROR) +UNDOLISPX3 (RESETVARS .RESETLST. LIST CONS CL:MULTIPLE-VALUE-PROG1 .UNWIND.PROTECT. FUNCTION LISTGET1 +EDITL FASSOC FMEMB) PROCESSPROP (ARG FIND.PROCESS SELECTQ LISTGET \INSUREWINDOW \ILLEGAL.ARG LIST) +\IRM.CHOOSE.REF (MENU MKSTRING MAPCAR LIST PACK* KWOTE CONCAT) \STARTPUP (\FLUSHPUPSOCQUEUE +ASSURE.PUP.READY) \UNDEFINED-USER-SUBR-UFN (ERROR CL:FORMAT MISCN-COLLECT) CLEARSTK (FUNCTION) +CHAT.CHOOSE.PHONE.NUMBER (MENU CHAT.PROMPT.FOR.INPUT CONS LIST CONCATCODES CHCON) HARDRESET ( +\CONTEXTSWITCH) TERM.ERASEBITS (BITBLT DSPTEXTURE) \MEDW.CARET.SHOW (WFROMDS BITSPERPIXEL +DSPDESTINATION IDIFFERENCE IPLUS \DSPTRANSFORMX \DSPTRANSFORMY \AREAVISIBLE? SUB1) CL:COPY-SYMBOL ( +CL:MAKE-SYMBOL CL:SYMBOL-NAME) ICMLARRAY.VALUECOMMANDFN (CONSTANT \CREATE.INSPECTABLEMENU +\CREATE.SETABLEMENU ARG SLICERANK MENU SELECTQ SLICEREF SHOULDNT CONCAT) /SETTERMTABLE (SETTERMTABLE +LIST) NUTF8CODEBYTES (SHOULDNT) %#BITSON (LOGAND LLSH ADD1) FASL:CLOSE-FASL-HANDLE (BOUT +FASL::HANDLE-STREAM FASL::HANDLE-STATE CL:APPLY) GETTTBLPROP (ECHOCONTROL GETSYNTAX DELETECONTROL +GETDELETECONTROL GETCONTROL GETRAISE GETECHOMODE) \TEDIT.PRESS.HARDCOPY (OPENTEXTSTREAM MKATOM +RESETLST RESETSAVE \TEDIT.MARKACTIVE TEXTOBJ TEDIT.FORMAT.HARDCOPY CLOSEF?) FB.PROMPTWPRINT (ERROR +\DTEST ARG PLUS) ASKUSER$ (CONSTANT CHARACTER PACKC NCHARS NTHCHARCODE PLUS SUB1 ASKUSERLOOKUP +SUBSTRING) \USER-SUBR-UFN (\GETBASE APPLY* ELT - \ADDBASE) DWIMIFYREC (LIST DWIMIFY0? APPEND) +COMP.UNWIND-PROTECT (COMP.CALL COMP.LAM1 LIST) \RANGELIMIT (IMAX IMIN) LIST (CONS ARG SUB1) +\ITEMW.SELECTITEM (WINDOWPROP) \SETUPSTACK1 (IDIFFERENCE IPLUS MIN ADDSTACKBASE \VAG2 UNFOLD LLSH PLUS + TIMES PUTBASEPTR \PUTBASEPTR CONSTANT CL:READ-FROM-STRING ADD1) \TEDIT.EXPANDEDCHARLOOKS.MENU ( +\TEXTMENU.START COPYTEXTSTREAM \TEDIT.PRIMARYW HEIGHTIFWINDOW) TEDIT.HCPYFILE (PRINTERPROP PRINTERTYPE + \TEDIT.MAKEFILENAME TEDIT.GETINPUT TEXTOBJ CONCAT PACKFILENAME SELECTQ TEDIT.FORMAT.HARDCOPY) +\MEDW.GETBOXSCREENPOSITION (RESETFORM CURSOR MOUSESTATE LOGAND LOGOR IPLUS IQUOTIENT IMINUS ZEROP +DSPXSCREENTOWINDOW IMIN DSPYSCREENTOWINDOW) COMP.CATCH (COMP.CALL COMP.LAM1 LIST) ERASE/GRAPHNODE ( +ZEROP BITBLT IPLUS GN/LEFT GN/BOTTOM) CL:REMOVE (CL:LENGTH COMPLEX-REMOVE SIMPLE-REMOVE) CL:SYMBOLP ( +LITATOM) COMP.GLOBALVARP (GETP FMEMB) BEGINMASTER.IP (APPENDOP.IP) SUBRNUMBER (ASSOC CL:ASSOC FUNCTION + CL:WARN ERROR) \NSRANDOM.SETEOFPTR (SELECTQ \NEWLENGTHIS LOGAND ADD1 SHOULDNT) COMPERRM (PRINTLEVEL +LISPXPRINT) TTUNREADBUF (FIRSTCHAR TTNEXTCHAR DELETE.TO.END) \TEDIT.GET.CHARLOOKS1 (\ARBIN \SMALLPIN +SUB1 LLSH IDIFFERENCE ZEROP IMINUS \BIN LOGAND FONTCLASS FONTCREATE) CARET (\CARET.DOWN CARETRATE +SELECTQ ERROR LISPERROR) \BUILDATWSTRUCTURE (MAPCAR CONS LIST MINIMUMMAINWINDOWSIZE +MAXIMUMMAINWINDOWSIZE WINDOWPROP NCONC FASSOC MINIMUMWINDOWSIZE MAXIMUMWINDOWSIZE WINDOWSIZE) +UTF8HEXSTRING (HEXSTRING LOGOR LLSH LRSH LOADBYTE LOGAND LSH IMINUS MASK.1'S SUB1 ERROR) +MOST/VISIBLE/OPERATION (%#BITSON) SETSYNTAXPROP (SETSYNTAX) FB.SELECTEDFILES (TB.COLLECT.ITEMS \DTEST) + ERASEMENUIMAGE (BITBLT WINDOWPROP IDIFFERENCE) CL:WARN (MAKE-INTO-CONDITION) FM.GETITEM (ERROR +\FM.GROUPPROP LISTGET FASSOC WINDOWPROP \FM.ITEMPROP FFETCHFIELD) \UPCASEBASE (IPLUS \PUTBASEFAT +\PUTBASE \PUTBASETHIN \PUTBASEBYTE PLUS) /SETREADTABLE (SETREADTABLE LIST) EVALQT (LISPX LISPXREAD +CLBUFS) \RESETSTACK0 (\GETBASE PLUS \MAKEFRAME FUNCTION IPLUS \SETUPUSERSTACK) STRING.EQUAL (MKSTRING +\DTEST UPPERCASEARRAY \GETBASECHAR \GETBASEFAT \GETBASE \GETBASETHIN \GETBASEBYTE PLUS) RECORDBIND ( +CONS LIST RECORDGENSYM) XCL:PACKAGE-PREFIX (CL::%%PACKAGE-NAMESYMBOL) COURIER.CALL (ARG +\GET.COURIERPROGRAM GETHASH ERROR \GET.COURIER.DEFINITION LENGTH SELECTQ - + CONS LIST PLUS +COURIER.EXECUTE.CALL RESETLST COURIER.OPEN \ILLEGAL.ARG) \CONTEXTAPPLY (\MYALINK OPCODES GETBASE +\GETBASE SPREADAPPLY*) CL:ASSOC (CL:ERROR CL::%%COMPLEX-ASSOC CL::%%SIMPLE-ASSOC) INSPECTW.SELECTITEM +(WINDOWPROP ITEMOFPROPERTYVALUE \SELITEM.FROM.PROPERTY) \CAUSEINTERRUPT (\GETBASE \MAKEFRAME FUNCTION +IPLUS) \TEXTMENU.START (WINDOWPROP GETREGION ATTACHEDWINDOWS CREATEW LIST TEXTOBJ) CRITSECT (TERPRI +IMIN IMAX) TTCOMPLETEWORD (CURRENT.WORD FIND.MATCHING.WORD ADD1 PLUS SELECTC \SYNCODE GETHASH +\GETBASEBYTE FIRSTCHAR TTNEXTCHAR NCHARS INPART SUB1 FNTH CHCON NTHCHARCODE LOGXOR CL:SYMBOL-PACKAGE +FIXP TTBITWIDTH - + SEGMENT.BIT.LENGTH TTADJUSTWIDTH) APPENDOP.IP (APPENDBYTE.IP LOGOR FOLDLO LRSH MOD + IMOD) SPP.READP (LOGAND LISPERROR FULLNAME) \INTERRUPTFRAME (\INTERRUPTED INTERRUPTED) \INTERRUPTED ( +INTERRUPTED) ICMLARRAY.TITLECOMMANDFN (MODERNWINDOW.BUTTONEVENTFN FUNCTION) /RAISE (RAISE LIST) +INTERRUPTED (ASSOC THIS.PROCESS PROCESSPROP FIND.PROCESS TTY.PROCESS WHICHW WINDOWPROP FUNCTION LIST) +WINDOWSIZE (WINDOWREGION CONS) AS.NEXT.VERIFIER (DES.BREAKOUT.BLOCKS DES.MAKE.BLOCKS COURIER.WRITE.REP + COURIER.CREATE LIST IDATE RAND LOGXOR MAPCAR DES.ECB.ENCRYPT) \DOMISCAPPLY1 (SPREADAPPLY*) ARCTO.IP ( +FIXR APPENDOP.IP) GETSYNTAXPROP (GETSYNTAX) COMP.CALL (COMP.CLEANFNOP CONS COMP.STFN ADD1) CREATEPAGES + (SUB1 \ADDBASE UNFOLD LLSH PLUS) FASL:OPCODE-SEQUENCE (CL:ASSOC FASL::OPTABLE-OPNAMES LIST +FASL:OPCODE-SEQUENCE FASL::OPTABLE-NEXT CONS) \DISPLAYLINE (WINDOWPROP IMAX IDIFFERENCE DSPSCALE +\TEDIT.LINECACHE FIXR FQUOTIENT DSPFONT \EDITELT GETBASEPTR \GETBASEPTR \ADDBASE2 \ADDBASE FTIMES +IPLUS PLUS FONTCOPY CHARWIDTH IREMAINDER DSPYPOSITION IMAGEOBJPROP) IRM.CREF.BUTTONEVENTFN ( +IMAGEOBJPROP RESETFORM TTYDISPLAYSTREAM GETPROMPTWINDOW BLTSHADE LOGAND LOGOR CURSORPOSITION ADD1 +PRIN1 CONCAT LIST KWOTE WINDOWPROP) \GATHER-CLEANUP-FORMS1 (ADDSTACKBASE \VAG2 +\GATHER-SPECIAL-BINDINGS CONS LIST \GETBASEPTR SI::PVAR-VALUE-IN-FRAME) FB.TABLEBROWSER (\DTEST) +DO.EDIT.COMMAND (IMINUS U-CASECODE TTNEXTLINE TTNTH PREVLINE TTNLEFT PREVWORD FIND.NEXT.WORD SUB1VAR +TTLASTLINE NTH.COLUMN.OF EDITCOLUMN IMIN IPLUS TTBIN TTSKREAD TTNEXTCHAR BACKSKREAD \SYNCODE GETHASH +\GETBASEBYTE FIRSTCHAR FMEMB PLUS SEGMENT.BIT.LENGTH IDIFFERENCE NTH ADD1 TTBITWIDTH CURRENT.WORD +TTRATOM EDITNUMBERP ITIMES) MBUTTON.CREATE (FONTCLASSCOMPONENT IMAGEOBJCREATE STRINGWIDTH FONTPROP) +\MEDW.GETSCREENPOSITION (WFROMDS RESETFORM CURSOR LOGAND ZEROP LASTMOUSEX LASTMOUSEY) UPDATEPCNODES ( +\GETBASEPTR IPLUS \GETBASEFIXP PLUS FFETCHFIELD) XCL:COMPILE-FORM (COMPILER:MAKE-CONTEXT COMPILER::MAKE-ENV + CL:MAKE-HASH-TABLE CL:VALUES-LIST) XCL:COMPILE-DEFINER (COMPILER::MAKE-ENV GETDEF) RECORDERROR ( +SELECTQ APPEND MKLIST LIST RETDWIM2 MEMB TAILP NLEFT) \NSRANDOM.DESTROY.STREAM (\RELEASECPAGE +\GETEOFPTR CLOSEF) \MAKE.PROCESS0 (FUNCTION \GETOFD \GETSTREAM GETTOPVAL LOCF \ADDBASE TERPRI +\HARDRESET-CLEANUP \EVAL PRIN1 TTY.PROCESS) CHECKSAMEDIR (DIRECTORYNAME GET MKATOM U-CASE CONS +HOST&DIRECTORYFIELD MKLIST ASSOC ASKUSER LIST CNDIR READ INFILEP PACKFILENAME.STRING MKSTRING +FILENAMEFIELD) \10MB.GETPACKETLENGTH (SELECTC FOLDLO LRSH \NOMACHINETYPE) CHAT.TYPESCRIPT1 ( +GETPROMPTWINDOW CHAT.PROMPT.FOR.INPUT OPENSTREAM CLOSEF PRIN1 printout FULLNAME) \InitCurveBrushes ( +BITMAPCREATE ARRAY PACK* APPLY* PLUS INSTALLBRUSH) \TEDIT.EXPANDEDPARA.MENU (\TEXTMENU.START +COPYTEXTSTREAM \TEDIT.PRIMARYW TEXTOBJ HEIGHTIFWINDOW) TB.NTH.ITEM (PLUS) GETBOXSCREENREGION ( +GETBOXSCREENPOSITION) TEDIT.UNPARSE.PAGEFORMAT (LISTGET SELECTQ IPLUS NCONC1 LIST PLUS IDIFFERENCE +ADD1 CONSTANT FQUOTIENT FIXR MAPCAR) CL::COUNT-OCCURRENCES (+ CL::COUNT-OCCURRENCES) SI::BQUOTE-EXPANDER + (KWOTE) SPP.BACKFILEPTR (FREPLACEFIELD PLUS FFETCHFIELD) \FORMATLINE (SUB1 IMAX WINDOWPROP FUNCTION +PLUS \RPLPTR \ADDBASE2 \ADDBASE \TEDIT.APPLY.STYLES \EDITELT GETBASEPTR \GETBASEPTR +\TEDIT.APPLY.PARASTYLES OPENIMAGESTREAM DSPSCALE \TEDIT.HCPYFMTSPEC FIXR FTIMES FONTCOPY IPLUS +IDIFFERENCE IEQP \BIN \FGETCHARWIDTH \GETBASE \GETCHARSETINFO UNFOLD LLSH \CHARSET LRSH \CREATECHARSET + \CHAR8CODE LOGAND APPLY* IMAGEOBJPROP ADD1 \TEDIT.FORMATTABS \FGETWIDTH FFETCHFIELD IMINUS \CHTOPC +FONTPROP IMIN) \TEDIT.CUMULATE.EVENTS (+) \HARDRESET-CLEANUP (LIST HASHARRAY TIMES LENGTH CONS MAPC +GETHASH RPLACA RPLACD PUTHASH PLUS .CALLAFTERPUSHINGNILS. + CEIL LOGAND IPLUS ADD1 UNFOLD LLSH +CONSTANT SUB1 LOGXOR FOLDHI LRSH \HARDRESET-CLEANUP1) COMP.LAM1 (COMP.GENFN) MB.PUTFN (IMAGEOBJPROP +FONTPROP LOGAND LRSH \BOUT \ATMOUT) \HARDRESET-CLEANUP1 (\MYALINK OPCODES ADDSTACKBASE \VAG2 CEIL +LOGAND IPLUS IDIFFERENCE UNFOLD LLSH CONSTANT SUB1 LOGXOR FOLDLO LRSH GETHASH \ATOMVALINDEX NTYPX +\LOLOC SHOULDNT + PLUS WORDSPERNAMEENTRY WORDSPERNTOFFSETENTRY HELP \ADDBASE) COMP.EFFECT (COMP.EXPR +OPT.JUMPCHECK) FILECOMS (PACK* NAMEFIELD) XCL:UNADVISE-FUNCTION (MAPCONC XCL:UNADVISE-FUNCTION GET +GETD CL:DELETE LIST SI::GET-ADVICE-MIDDLE-MAN) RDTBL\NONOTHERCODES (FUNCTION \GTREADTABLE) +XCL:READVISE-FUNCTION (MAPCONC XCL:READVISE-FUNCTION SI::FINISH-ADVISING) ASKUSERSETUP (MEMB +ASKUSERLOOKUP) XCL:REINSTALL-ADVICE (MAPC) SPP.FORCEOUTPUT (GETSPPCON FFETCHFIELD PLUS LOCF \ADDBASE +\LOLOC) /RADIX (RADIX LIST) SPP.EOFP (LOGAND \SPP.PREPARE.INPUT SELECTQ) QUOTE.WRAPPER (GETSYNTAX LAST +) FIND.NON.SPACE (FMEMB FIRSTCHAR TTNEXTCHAR) GETSCREENREGION (WINDOWOP SPREADAPPLY*) \DORETCALL ( +\VAG2 LOGOR LSH \GETBASEBYTE ADD1 DIFFERENCE UNFOLD LLSH \FREESTACKBLOCK \MAKEFRAME PLUS ADDSTACKBASE +RAID) RECORDGENSYM (GENSYM) \GATHER-SPECIAL-BINDINGS (GETSTKNAMEENTRY NTSLOT-VARTYPE +GETSTKNTOFFSETENTRY IPLUS \INDEXATOMVAL \VAG2 LRSH LOGAND CONS LIST \GETBASEPTR UNFOLD LLSH +NTSLOT-OFFSET ADDSTACKBASE PLUS CONSTANT WORDSPERNAMEENTRY) SI::COMMA-ERROR-EXPANDER (CL:ERROR CL:SECOND +) DISKPARTITION (SELECTQ MACHINETYPE \DFSCurrentVolume) \CLEANUP.STACKFULL (HARDRESET) TEDIT.FORMATBOX + (TEDIT.FORMATTEXTBOX TEDIT.FORMATFOLIO TEDIT.FORMATHEADING IPLUS IMAX ADD1 FRPLACA CONS) FASL:BEGIN-TEXT + (FASL::HANDLE-STATE FASL::HANDLE-STREAM) \DFSCurrentVolume (MKATOM U-CASE \PFCurrentVol) +XCL:REBREAK-FUNCTION (MAPCONC XCL:REBREAK-FUNCTION CL:GETHASH CL:APPLY) MACHINETYPE (SELECTC) +\TEDIT.PUT.PARALOOKS.LIST2 (HASHARRAY LOGAND LRSH \BOUT FLENGTH PLUS) XCL:TRACE-FUNCTION (MAPCONC +XCL:TRACE-FUNCTION CL:MAKE-SYMBOL CL:FORMAT GETD CL:COMPILE SI::CREATE-TRACED-DEFINITION GET CL:DELETE + LIST SI::CONSTRUCT-MIDDLE-MAN) FASL:PROCESS-SEGMENT (CL:FUNCALL FASL:READ-TEXT FASL:SKIP-TEXT +FASL:PROCESS-BLOCK) \ALLOCMINIMUMSIZES (IMAX IPLUS CONS \ALLOCMINIMUMSIZES IDIFFERENCE +\TOTALFIXEDWIDTH DIFFERENCE \SHAREOFXTRAX \SETWINFOYSIZE PLUS \TOTALFIXEDHEIGHT \SHAREOFXTRAY) +BQUOTE.WRAPPER (GETSYNTAX SELECTQ) RESET (\MYALINK OPCODES printout PRIN1) APPENDRATIONAL.IP (IMAX +BYTESININT.IP UNFOLD LLSH) CHARCODE (CHARCODE.DECODE) XCL:CREATE-TRACE-WINDOW (CREATEW) +DASSEM.DASMBIND (COMPERROR CONS DASSEM.DASMBIND IDIFFERENCE IPLUS ADD1 LLSH AST SUB1) +COMPILE-FILE-SCAN-FIRST (NCONC1) MSSTOREDATA (PARSERELATION MSCOLLECTDATA TESTRELATION FASSOC) +FB.COUNT.FILE.CHANGE (SELECTQ SHOULDNT FREPLACEFIELD PLUS FFETCHFIELD ITIMES) DBG::REGION-NEXT-TO ( +CREATEREGION) SI::BQUOTE-PROCESS-LIST (KWOTE) CENTRALWINDOW (WINDOWPROP) FASL:MAKE-OPTABLE ( +FASL::NEW-OPTABLE CL:MAKE-ARRAY FASL::OPTABLE-VECTOR CL:SVREF) SI::BQUOTE-NCONC (LIST) \ALLOCPAGEBLOCK + (UNINTERRUPTABLY \ALLOCVIRTUALPAGEBLOCK PLUS \ADDBASE) FASL:*DEFAULT-OPTABLE* (FASL:MAKE-OPTABLE) +SEDIT::SET-POINT-QUOTE (SEDIT::SET-POINT SEDIT::SUBNODE SEDIT::PUNT-SET-POINT SEDIT::SET-POINT-NOWHERE +) ICONTITLE (WINDOWPROP ERROR \ICONW.SHOW.TITLE) \ALLOCVIRTUALPAGEBLOCK (UNINTERRUPTABLY IPLUS +IDIFFERENCE CEIL LOGAND CONSTANT SUB1 LOGXOR \SET.STORAGE.STATE) MSMARKCHANGE1 (UNDOSAVE LIST FUNCTION +) \GETBRUSHBBT (BITMAPBIT UNFOLD LLSH SELECTQ SHOULDNT) \ATMOUT (LOGAND LRSH \BOUT NCHARS ZEROP ADD1 +\GETBASEFAT \GETBASE \GETBASETHIN \GETBASEBYTE) SETUPFONTS.PRESS (FONTCREATE) \SET.STORAGE.STATE (CONS +) CL::STRUCTURES.HASDEF (GETDEF CL::STRUCTURE-FUNCTION-P) SUSPEND-LISP (MACHINETYPE) MODERN-SNAPW ( +MODERN-ORIG-SNAPW FUNCTION) DISCARDXIPS (UNINTERRUPTABLY) \READNUMBER.OUTLINEREGION (FIXP IDIFFERENCE +IPLUS ITIMES DSPTEXTURE) COPYFILES (\ADD.CONNECTED.DIR FUNCTION COPIEDTOSPEC OPENSTREAM COPIEDFROMSPEC + SELECTQ \GETDEVICEFROMNAME TERPRI APPEND LIST CLOSEF) FASL:CHECK-VERSION (BIN16) VRULE.CREATE ( +IMAGEOBJCREATE NUMBERP CONCAT) \FM.EDIT-FINDFIRST (WINDOWPROP \FM.ITEMPROP FFETCHFIELD) +FASL:UNIMPLEMENTED-OPCODE (CL:ERROR) TB.UNSELECT.ALL.ITEMS (\DTEST TB.ITEM.UPDATABLE? TB.NTH.ITEM PLUS + ADD1) MAKEBRES (\SGN IABS IMINUS IDIFFERENCE IPLUS IMAX ITIMES) PFI.PROCESS.FILE (SKIPSEPRCODES CL:READ + ASSOC CONS CL:READ-DELIMITED-LIST) SEDIT::SET-POINT-UNKNOWN (SEDIT::PUNT-SET-POINT IGEQ HALF LRSH) +CL::%%EXP-FLOAT (FLOAT CL:* FTIMES CL::%%GET-TABLE-ENTRY FQUOTIENT CL::%%POLYEVAL UFMINUS CL:SCALE-FLOAT + -) UNIX-USERNAME (WITH-RESOURCE CONCAT SUBSTRING CL:POSITION GETRESOURCE NEWRESOURCE ALLOCSTRING) +\NSRANDOM.REESTABLISH (LIST \NSFILING.GETFILE) \HANDLE.RAW.OTHER (PRIN1 \RELEASE.ETHERPACKET) +\ADVANCE.STORAGE.STATE (DREMOVE) XCL:ADVISE-FUNCTION (MAPCONC XCL:ADVISE-FUNCTION SI::FINISH-ADVISING +CL:MEMBER) SUBSTRING (STRINGP MKSTRING IPLUS LITATOM ADD1 IDIFFERENCE) SEDIT::SET-POINT-LIST (ILESSP +HALF LRSH SUB1 SEDIT::PUNT-SET-POINT SMALLP IPLUS SEDIT::SUBNODE NTH) MAKETITLEBARICON (WINDOWPROP +NCHARS CONCAT DATE ICONPOSITION.FROM.WINDOW IMINUS DSPLINEFEED IMAX IPLUS STRINGWIDTH CREATEW FUNCTION +) CL:PACKAGE-USED-BY-LIST (CL::%%PACKAGE-USED-BY-LIST) COMPILE-FILE-EXPRESSION (SELECTQ +COMPILE-FILE-SCAN-FIRST REMOVE-COMMENTS XCL::%%DEFINER-NAME XCL::%%EXPAND-DEFINER +COMPILE-FILE-EXPRESSION MAPC CL:MAPCAR CL:FUNCTION CL:PROGV CL:MAPC FMEMB EVAL EXPANDMACRO GETPROP +CL:MACROEXPAND-1 COMPILE.FILE.APPLY WALK-FORM FUNCTION) SLICERANK (LENGTH) SI::BQUOTE-APPEND (LIST) +\VECENCODE (IDIFFERENCE IPLUS IMINUS ITIMES IMAX) ALLOCSTRING (FIX \CHARCODEP IGEQ CHCON1 IGREATERP +\ALLOCBLOCK FOLDHI LRSH IPLUS SUB1 \PUTBASE PLUS \PUTBASEBYTE) %%GET-TYPE-TABLE-ENTRY (CL:ASSOC) +MAKEFILESCOMS (LITATOM FMEMB CONS) PRINTPUP (SELECTQ FASSOC RESETFORM OUTPUT APPLY* IDIFFERENCE PRIN1 +TERPRI) FASL:OPEN-FASL-HANDLE (CL:APPLY FASL::MAKE-HANDLE) BREAK.MSG.INTO.LINES (SUBSTRING MKSTRING +NCHARS SUB1 NCONC1 CHARWIDTH NTHCHARCODE IPLUS ADD1 PLUS) MAKE-PACKAGE-HASHTABLE ( +CL::%%MAKE-PACKAGE-HASHTABLE MAKE-PRIME-HASHTABLE-SIZE CL::PACKAGE-HASHTABLE-TABLE LIST CL:MAKE-ARRAY +CL::PACKAGE-HASHTABLE-HASH FIX FTIMES CL::PACKAGE-HASHTABLE-SIZE CL::PACKAGE-HASHTABLE-FREE +CL::PACKAGE-HASHTABLE-DELETED) VRULE.GETFN2 (VRULE.CREATE READ) \FM.EDIT-SETUPTTBL (COPYTERMTABLE PLUS +) CL:PACKAGE-SHADOWING-SYMBOLS (CL::%%PACKAGE-SHADOWING-SYMBOLS) \LEAF.ABORT.FROMMENU (WFROMMENU +WINDOWPROP) \SPP.BOUTS (GETSPPCON FFETCHFIELD \BUFFERED.BOUTS \SPP.STREAM.LOST) UNIX-FULLNAME ( +WITH-RESOURCES CONCAT SUBSTRING CL:POSITION GETRESOURCE NEWRESOURCE ALLOCSTRING) \SPP.GETNEXTBUFFER ( +SELECTQ \SPP.PREPARE.INPUT SPP.STREAM.ERROR SPREADAPPLY* GETSPPCON FFETCHFIELD RETFROM STKPOS +\SPP.STREAM.LOST SHOULDNT) SEDIT::INITIALIZE-LISTS (LIST* SEDIT:RESET-FORMATS) TB.DESELECTRANGE ( +TB.NTH.ITEM PLUS TB.FIND.SELECTED.ITEM ADD1 TB.REV.FIND.SELECTED.ITEM SUB1) \INITMDSPAGE (IREMAINDER +LRSH IQUOTIENT PLUS \ADDBASE) FM.ITEMPROP (ERROR LIST ARG \FM.GETITEMPROP \FM.PUTITEMPROP) +\LFScavFileName (MKSTRING SUB1 IPLUS ADD1 \GETBASEFAT \GETBASE \GETBASETHIN \GETBASEBYTE LIST +\LFCASEARRAYFETCH CHCON CONCAT GENSYM) UNIX-GETENV (WITH-RESOURCES CONCAT SUBSTRING NTHCHARCODE SUB1 +PLUS GETRESOURCE NEWRESOURCE ALLOCSTRING) CL:PACKAGE-NICKNAMES (CL::%%PACKAGE-NICKNAMES) +FUNCTION.WRAPPER (\GTREADTABLE) CL::STRUCTURES.EDITDEF (DEFAULT.EDITDEF CL::STRUCTURE-FUNCTION-P) +VARIABLES (STKNARGS CONS STKARGNAME SUB1) NTHCHARCODE (IPLUS \GETBASECHAR \GETBASEFAT \GETBASE SUB1 +\GETBASETHIN \GETBASEBYTE NCHARS FUNCTION) \SETXIPCHECKSUM (\CHECKSUM SUB1 FOLDHI LRSH IPLUS) +FB.MAKE.SUBDIRECTORY.ITEM (SUBSTRING SUB1 NCHARS) \LFScavVersion (SMALLP FILENAMEFIELD RAND) MKSTRING +(ALLOCSTRING CL:CHAR-CODE \CHECKRADIX \INVALID.RADIX \GTREADTABLE \PRINDATUM.TO.STRING) CL:POSITION ( +CL:LENGTH COMPLEX-POSITION SIMPLE-POSITION) SEDIT::PRINT-GAP (CL:FORMAT) CL::STRUCTURE-FUNCTION-P ( +CL:CATCH CL:MAPHASH CL:FUNCTION) CL::PRINT-PACKAGE (PRIN3 CL::%%PACKAGE-NAME) PFI.COLLECT.DEFINERS ( +NCONC GET LIST) TEDIT.\INSERT (TEDIT.GETPOINT SELECTQ) \TEDIT.REPAINTFN (WINDOWPROP DSPCLIPPINGREGION) + SI::BQUOTE-CONS (CONSTANTEXPRESSIONP KWOTE CONS CL:FIRST LIST) MSPARSE (MSEAT DREVERSE LIST SORT +MAPCAR CONS MSMATCHRATING PRIN1 SELECTQ MSJOINSET SHOULDNT MSRESPELL MSSPLST) UNIX-GETPARM ( +WITH-RESOURCE CONCAT SUBSTRING SUB1 STRPOS GETRESOURCE NEWRESOURCE ALLOCSTRING) +COMPILER::COMPILE-DEFINER-PROCESS-FUNCTION (CL:REMOVE COMPILER::COPY-ENV COMPILER::ENV-TARGET-ARCHITECTURE + COMPILER::RAW-COMPILE CL:SYMBOL-FUNCTION) \FM.EDIT-MESSAGE (SELECTQ) MAKE-PRIME-HASHTABLE-SIZE (LOGOR + FIX FQUOTIENT) TB.UNSELECT.ITEM (\DTEST TB.SHOW.SELECTION) HASH.PASSWORD (MKSTRING SUB1 IPLUS ADD1 +\GETBASEFAT \GETBASE \GETBASETHIN \GETBASEBYTE IMOD ITIMES CONSTANT EXPT L-CASECODE \DECRYPT.PWD.CHAR +LOGXOR) \SPP.SETFILEPTR (GETSPPCON FFETCHFIELD IDIFFERENCE \SPP.GETFILEPTR \SPP.SKIPBYTES +\IS.NOT.RANDACCESSP) STRPOS (STRINGP MKSTRING ADD1 IDIFFERENCE PLUS CHCON1 IPLUS \CATRANSLATE +\GETBASEBYTE \GETBASECHAR \GETBASEFAT \GETBASE \GETBASETHIN) PFI.PRINT.FILECREATED (DSPFONT MAPCAR +STRINGWIDTH + DSPLEFTMARGIN APPLY TERPRI LIST PFI.PRINT.ENVIRONMENT) SEDIT::INITIALIZE-COMMENTS (LIST* +) \LFFindDirectory (\LFFindDirectoryVol \LFDirectoryP) COURIER.WRITE.NSADDRESS (\BOUTS \DTEST UNFOLD +LLSH) COMPILER::FUNCTION-P (CL:FIRST CL:CONSP CL:SECOND) TWODINSPECT.REPLACE (WINDOWPROP) BAKTRACE1 ( +STKNTH SUB1 STKNAME CL:FUNCTION) IRM.GET.CREF (READ IMAGEOBJCREATE) \NSFILING.SET.CONTINUANCE ( +FILING.CALL IMIN IQUOTIENT ITIMES) CENTERINWIDTH (PLUS IQUOTIENT DIFFERENCE) ASKUSER (RESETLST +CHARACTER GETTERMTABLE SETTERMTABLE READP CLBUFS LIST ITIMES PEEKC NTHCHAR NCONC1 ASKUSERLOOKUP PRIN1 +CONSTANT ASKUSER$ ADD1 CHCON1 FASSOC CONCAT ASKUSEREXPLAIN SUBSTRING SUB1 PACKC LISTGET1 CONS NLSETQ +READ READLINE EVAL NCHARS LASTC READC ASKUSERPRIN1 FMEMB PACK APPLY NCONC) \COURIER.CHECK.PROCEDURES ( +FIXP NULLORLISTP) \FLUSH.NDB.QUEUE (\DEQUEUE) \TEDIT.INCLUDE (HELP) \DOSTACKFULLINTERRUPT (RESETLST +RESETSAVE LIST FUNCTION STACK.FULL.WARNING) SEDIT::REPLACE-QUOTE (FREPLACEFIELD CONS LIST SEDIT::SUBNODE + FFETCHFIELD ADD1) CLISPDEC (LIST GETPROP NTH /PUT FIXSPELL) DISPLAYLINK/BT (APPLY* LISTGET IPLUS SUB1 + GN/BOTTOM ADD1 GN/TOP) MSEDITE (ARG LIST PLUS CONS) \RESOLVE.TYPENUMBER (\TYPENUMBERFROMNAME +\ASSIGNDATATYPE1 \ILLEGAL.ARG) \SPP.GETFILEPTR (IPLUS) \EXTENDEDVMEMINIT (LOCF \ADDBASE IMAX \GETBASE) + PFI.PRINT.INDEX (LIST CONCAT DATE PFI.LINES.REMAINING PFI.CONDENSE.INDEX APPEND) \MAYBEPEEKPUP ( +\RELEASE.ETHERPACKET) CREATECELL (\CREATECELL) CL::%%LOG-BASE2-E (CL::%%FLOAT) CL:PACKAGE-USE-LIST ( +CL::%%PACKAGE-USE-LIST) \DWOUT (LOGAND LRSH \BOUT) CL::PRINT-PACKAGE-HASHTABLE (PRIN3 +CL::PACKAGE-HASHTABLE-SIZE CL::PACKAGE-HASHTABLE-FREE CL::PACKAGE-HASHTABLE-DELETED) +\MAIKO.SET.STORAGE.STATE (CONS) CLOSEATTACHEDWINDOWS (MAPC ATTACHEDWINDOWS WINDOWPROP) SHOWBITMAP.IP ( +INTERSECTREGIONS CEIL LOGAND IPLUS FOLDHI LRSH CONSTANT SUB1 LOGXOR TIMES FQUOTIENT IQUOTIENT IMIN +IDIFFERENCE) TEDIT.GETPOINT (TEXTOBJ IMAX SELECTQ SHOULDNT) \STARTPAGE.PRESS (IDIFFERENCE FONTPROP +IPLUS FREPLACEFIELD PLUS FFETCHFIELD) FB.UPDATEBROWSERITEMS (RESETLST FB.GET.NEWPATTERN COPY +STRINGWIDTH + TIMES CHARWIDTH LIST CL:POSITION FUNCTION CL:NTH FB.DATE \GENERATENEXTFILE CONCATCODES +FB.CREATE.FILEBUCKET FB.GETALLFILEINFO CONS TB.NUMBER.OF.ITEMS FB.MAYBE.WIDEN.NAMES) +D-ASSEM:ASSEMBLE-FUNCTION (CL:MAKE-HASH-TABLE CL:MULTIPLE-VALUE-PROG1 .UNWIND.PROTECT. FUNCTION +D-ASSEM::DCODE-FROM-DLAMBDA D-ASSEM::DLAMBDA-FROM-LAMBDA D-ASSEM::COPY-LAP-FN D-ASSEM::DCODE-CLOSURE-P + CL:FUNCTION) TEDIT.DEFAULT.MENUFN (WINDOWPROP CONCAT \TEDIT.CREATEMENU MENU RESETLST RESETSAVE +\TEDIT.MARKACTIVE SELECTQ TEDIT.PUT TEXTPROP TEDIT.GET TEDIT.INCLUDE \TEDIT.QUIT CURSOR +TEDIT.SUBSTITUTE TEDIT.GETINPUT TEDIT.FIND MKSTRING ADD1 IDIFFERENCE \TEDIT.GET.INSERT.CHARLOOKS +\TEDIT.LOOKS TEDIT.HARDCOPY TEDIT.HCPYFILE \TEDIT.EXPANDED.MENU \TEDIT.EXPANDEDCHARLOOKS.MENU +\TEDIT.EXPANDEDPARA.MENU \TEXTMENU.START COPYTEXTSTREAM \TEDIT.PRIMARYW APPLY*) \COURIER.CHECKDEF ( +ERROR MAP SELECTQ \COURIER.CHECK.PROCEDURES \COURIER.CHECK.ERRORS) BitFieldShiftedMask (IDIFFERENCE +LLSH BitFieldFirst IPLUS BitFieldWidth) TEDIT.GET.OBJECT (DIFFERENCE GETFILEPTR \ATMIN READIMAGEOBJ +\TEDIT.UNIQUIFY.CHARLOOKS CHARLOOKS.FROM.FONT) \SPP.RESETCLOSE (SPP.CLOSE) D-ASSEM:INTERN-DCODE ( +CL:ARRAYP D-ASSEM::DCODE-CODE-ARRAY D-ASSEM::DCODE-NAME-TABLE CL:LENGTH CEIL LOGAND IPLUS CL:1+ UNFOLD + LLSH CONSTANT SUB1 LOGXOR CL:* + D-ASSEM::DCODE-NUM-ARGS CL:1- CL:CEILING D-ASSEM::DCODE-NLOCALS +D-ASSEM::DCODE-NFREEVARS D-ASSEM::DCODE-ARG-TYPE D-ASSEM::DCODE-FRAME-NAME OPCODES D-ASSEM::DCODE-CLOSURE-P + D-ASSEM::DCODE-DEBUGGING-INFO D-ASSEM::DCODE-INTERN-RESULT MAKE-COMPILED-CLOSURE) SEDIT::REPLACE-LIST + (NTH IPLUS IDIFFERENCE LENGTH ADD1 FREPLACEFIELD PLUS FFETCHFIELD CONS LIST NCONC SUB1 IMAX) +COLLECT-CASE-SELECTORS (MAPCONC CL:COPY-LIST LIST CHECK-*CASE-SELECTOR) BitFieldMask (SUB1 LLSH +BitFieldWidth) SEDIT::PRINT-BROKEN-ATOM (CL:FORMAT) ONEDINSPECT.REPLACE (WINDOWPROP) BitFieldShift ( +IDIFFERENCE IPLUS BitFieldFirst BitFieldWidth) EDITGETDEF (EDITMODE SEDIT::SUBNODE) IRM.PUT.CREF ( +PRIN2 CONS IMAGEOBJPROP) %%SUFFIX-SYMBOL (CL:INTERN CL:CONCATENATE CL:SYMBOL-NAME) BitFieldWidth (ADD1 + LOGAND) %%LIT-SIZE-TO-SIZE (CL:ASSOC) D-ASSEM:FIXUP-PTR-NO-REF (\LOLOC LOGOR \GETBASEBYTE LRSH \HILOC + + LOGAND \PUTBASEBYTE) \TEDIT.PROMPT.PAGEFULLFN (WFROMDS ADD1 WINDOWPROP REMOVE ATTACHEDWINDOWS CL:1- + REVERSE CREATEPOSITION IDIFFERENCE) COURIERPROGRAM (PUTDEF) \DTEST (\DTEST.UFN) COURIER.EXECUTE.CALL +(\BOUT \HINUM \WOUT LOGAND \BULK.DATA.STREAM \COURIER.HANDLE.BULKDATA \COURIER.RESULTS) D-ASSEM:FIXUP-SYMBOL + (\LOLOC \HILOC LOGOR \GETBASEBYTE LRSH + LOGAND \PUTBASEBYTE CL:1+) DBG::ATTACH-BACKTRACE-MENU ( +DECLARE WFROMDS TTYDISPLAYSTREAM STKNTH GETWINDOWPROP WINDOWPROP STKNAME CL:PRIN1-TO-STRING STKARG +LIST PLUS ATTACHEDWINDOWS CREATEW DBG::REGION-NEXT-TO WIDTHIFWINDOW IMIN IDIFFERENCE) DISPLAYLINK/RL ( +APPLY* LISTGET IPLUS ADD1 GN/RIGHT SUB1 GN/LEFT) SI::SPLIT-PROCEED-CLAUSES (PLUS CL:VALUES CL:FLET +LENGTH SI::MAYBE-QUOTE CL:FIRST KWOTE CL:NREVERSE CL:REVERSE) TB.INSERT.ITEM (\DTEST FIXP ADD1 CONS +FLAST TB.FIND.PREVIOUS.TAIL PLUS FFETCHFIELD TB.UPDATE.DISPLAY) D-ASSEM:ALLOCATE-CODE-BLOCK ( +D-ASSEM::START-PC-FROM-NT-COUNT CEIL LOGAND IPLUS + CONSTANT SUB1 LOGXOR \ALLOC.CODE.BLOCK CL:1+ +CL:CEILING CL:VALUES) STRIP-KEYWORDS (CL:VALUES CL:FIRST LIST CL:SECOND) FB.THINCOMMAND ( +TB.COLLECT.ITEMS FUNCTION SELECTQ FB.SORT.VERSIONS SORT IDATE DATE IDIFFERENCE CL:POSITION HELP CL:NTH + PLUS FB.PROMPTWPRINT) \LFUnpackName (\LFParseFileName \LFFindDirectoryVol SUB1 IPLUS ADD1 \GETBASEFAT + \GETBASE \GETBASETHIN \GETBASEBYTE \LFCASEARRAYFETCH LIST FIXP SELECTQ \PFVolumeNumber) D-ASSEM:FIXUP-PTR + (\LOLOC OPCODES LOGOR \GETBASEBYTE LRSH \HILOC + LOGAND \PUTBASEBYTE) CHECK-*CASE-SELECTOR (CL:ERROR) + SI::EXPAND-CONDITION-CASE (CL:MACROLET GENSYM CL:ASSOC EQL COMPILER:CONTEXT-VALUES-USED CL:FLET) +ENTER-NEW-NICKNAMES (DECLARE) CONDITIONS::CONVERT-RESTART-CASES (CL:VALUES CL:FIRST CONS) \SPP.EVENTFN + (SELECTQ MAPC APPEND SPP.CLOSE) PFI.PRINT.MULTI.INDEX (LISTGET PFI.LINES.REMAINING CONCAT DATE CONS +MAX STRINGWIDTH ASSOC FRPLACD PLUS RPLACA PFI.MERGE.INDICES DSPLEFTMARGIN TIMES DSPSCALE + - +DSPRIGHTMARGIN IQUOTIENT REVERSE LOGOR RPLACD PFI.COMPUTE.INDEX.SHAPE PFI.CHOOSE.BEST EVAL +CL:FIND-PACKAGE CL:ERROR FIND-READTABLE PFI.PRINT.INDICES PFI.SORT.INDICES) \LEAF.STREAM.IN.QUEUE ( +LIST LOGAND CONSTANT LOGOR) CONDITIONS::EXPAND-RESTART-CASE (GENSYM EQL COMPILER:CONTEXT-VALUES-USED) +TEDIT.PUT.OBJECT (GETFILEPTR LOGAND LRSH \BOUT IMAGEOBJPROP ADD1 IDIFFERENCE GETEOFPTR) \TESTPARTITION + (.DISKPARTINSTR. \DTEST) MSEDITF (ARG LIST PLUS CONS GETDEF) REPLACEFIELD (\DTEST SELECTQ \RPLPTR +PUTBASEPTRX \PUTBASEPTR \PUTBASEFLOATP \ADDBASE LOGAND LRSH \PUTBASE LOGOR \GETBASE LOGXOR LLSH +BitFieldMask BitFieldShift SUB1 BitFieldWidth IDIFFERENCE NTYPX \LOLOC \FIXP.FROM.FLOATP IQUOTIENT +CL::RATIO-NUMERATOR CL::RATIO-DENOMINATOR ADD1 LISPERROR) *PACKAGE-FROM-NAME* (HASHARRAY) +TB.SELECTRANGE (TB.NTH.ITEM PLUS) \MAYBEPEEKNS (LOGAND \GETBASE LOCF \ADDBASE \RELEASE.ETHERPACKET) +BOXCOUNT (\GETDTD \ADDBASE ITIMES SMALLP \TYPENUMBERFROMNAME) ENCAPSULATEDOBJ.IMAGEBOXFN (FONTCREATE +IMAGEOBJPROP ITIMES FONTPROP IMAX STRINGWIDTH CONCAT IPLUS) \POSTSCRIPT.OUTCHARFN (SELCHARQ \FGETWIDTH + \GETBASE \CHAR8CODE LOGAND IPLUS LRSH GETHASH \POSTSCRIPTTAB \DSPFONT.PSC LIST) ICMLARRAY.SETVALUE ( +MAINWINDOW SLICERANK WINDOWPROP XCL::PROFILIZE CL:PROGV XCL::PROFILE-VARIABLES XCL::PROFILE-VALUES +RESETLST RESETSAVE TTYDISPLAYSTREAM TTY.PROCESS THIS.PROCESS CLEARBUF PRINTOUT PRIN1 CL:FUNCALL +LISPXREAD) CL:MAKE-PACKAGE (DECLARE MKSTRING CL:MAKE-SYMBOL \PKG-FIND-FREE-PACKAGE-INDEX +CL::%%MAKE-PACKAGE MAKE-PACKAGE-HASHTABLE CL:SYMBOL-NAME CONS CL:AREF) CONSCOUNT (BOXCOUNT) +CL:USE-PACKAGE (DECLARE) IRM.CREF.BOX (IMAGESTREAMTYPE SELECTQ IPLUS STRINGWIDTH IMAGEOBJPROP +FONTHEIGHT) SI::EXPAND-PROCEED-CASE (GENSYM EQL COMPILER:CONTEXT-VALUES-USED) \TYPECHECK (\DTEST.UFN) +\PRESSINIT (FUNCTION) D-ASSEM:RELEASE-DCODE (D-ASSEM::DCODE-LOCAL-FN-FIXUPS) D-ASSEM:FIXUP-WORD ( +\PUTBASEBYTE LRSH CL:1+ LOGAND) TEDIT.STRINGWIDTH (SUB1 IPLUS ADD1 \GETBASEFAT \GETBASE \GETBASETHIN +\GETBASEBYTE PLUS TEDIT.CHARWIDTH SELCHARQ CHARWIDTH) SEDIT::PARSE--LIST-INTERNAL (SEDIT::BUILD-NODE) +CONDITIONS::PARSE-RESTART-CASE (CL:FIRST CL:VALUES) \COERCEFONTDESC (IMAGESTREAMTYPE \DEVICESYMBOL +SELECTQ SASSOC \COERCEFONTDESC FONTCOPY DEFAULTFONT ERROR CONCAT FONTCREATE SETFONTCLASSCOMPONENT +DSPFONT) MSFIND (MSFIND) DEFPACKAGE (REMOVE-COMMENTS CL:FIND-PACKAGE ERROR LIST SELECTQ +CL::%%PACKAGE-NAMESYMBOL CL:MAKE-SYMBOL CL:USE-PACKAGE ENTER-NEW-NICKNAMES EXPORT MAPCAR CL:INTERN +IMPORT MAPCONC CL::%%PACKAGE-SHADOWING-SYMBOLS CL:SHADOW CL:SHADOWING-IMPORT APPLY CONS SHOULDNT +CL:PACKAGE-NAME) STKNTHNAME (IMINUS \STACKARGPTR LISPERROR PLUS \MYALINK OPCODES SUB1) EXPANDW ( +WINDOWOP SPREADAPPLY* \INSUREWINDOW) COMPILER:ENV-BOUNDP (CL:ASSOC COMPILER::ENV-VENV COMPILER::VARIABLE-SCOPE + COMPILER::ENV-DECLARED-SPECIALS COMPILER::ENV-DECLARED-GLOBALS COMPILER::ENV-PARENT COMPILER:ENV-BOUNDP +) DISPLAYLINK/TB (APPLY* LISTGET IPLUS ADD1 GN/TOP SUB1 GN/BOTTOM) MODERN-ADD-EXEC (APPLY ARG LIST +PLUS PROCESSPROP) IMPORT (DECLARE CL::%%PACKAGE-EXTERNAL-SYMBOLS CL::%%PACKAGE-INTERNAL-SYMBOLS +CL:SHADOWING-IMPORT) TB.SHOW.SELECTION (BITBLT + SUB1 IQUOTIENT - TB.BOTTOM.OF.ITEM) CL:SHADOWING-IMPORT + (DECLARE CL::%%PACKAGE-EXTERNAL-SYMBOLS CL::%%PACKAGE-INTERNAL-SYMBOLS) MARGINBAR.CREATE ( +IMAGEOBJCREATE BITMAPCREATE DSPCREATE DSPCLIPPINGREGION) ONEDINSPECT.SETELT (GETPROMPTWINDOW +WINDOWREGION IPLUS ITIMES STRINGWIDTH APPLY* WINDOWPROP XCL::PROFILIZE CL:PROGV XCL::PROFILE-VARIABLES + XCL::PROFILE-VALUES RESETLST RESETSAVE TTYDISPLAYSTREAM TTY.PROCESS THIS.PROCESS CLEARBUF PRINTOUT +PRIN1 CL:FUNCALL LISPXREAD) CL:SHADOW (DECLARE CL::%%PACKAGE-EXTERNAL-SYMBOLS +CL::%%PACKAGE-INTERNAL-SYMBOLS) COMPILER::RAW-COMPILE (COMPILER::COMPILE-ONE-LAMBDA) DWIMERRORRETURN ( +ERROR!) \INSTANCE-P (\INSTANCEP.UFN \ATOMPNAMEINDEX NTYPX \LOLOC SHOULDNT) ULREDISPLAYBITMAP ( +WINDOWPROP DSPCLIPPINGREGION BITBLT IDIFFERENCE IPLUS) EXPORT (DECLARE CL::%%PACKAGE-USED-BY-LIST +CL::%%PACKAGE-INTERNAL-SYMBOLS CL::%%PACKAGE-EXTERNAL-SYMBOLS) SEDIT::OUTPUT-CR-OR-SPACE (IPLUS +SEDIT::OUTPUT-CR SEDIT::OUTPUT-SPACE IDIFFERENCE) %%LIT-TYPE-TO-TYPE (CL:ASSOC) GETSUPERTYPE ( +\TYPENUMBERFROMNAME \GETDTD \ADDBASE ITIMES \TYPENAMEFROMNUMBER) DASSEM.COUNTVARS (MAPC) +COMPILER:MAKE-EMPTY-ENV (COMPILER::MAKE-ENV) SEDIT::PRETTY-PRINT (BOUNDP FIXR TIMES LIST SEDIT::LINEARIZE + SEDIT::SUBNODE) INFILECOMTAIL (EVALV RESETVARS .RESETLST. LIST CONS CL:MULTIPLE-VALUE-PROG1 +.UNWIND.PROTECT. FUNCTION EVAL SUBSET) \TYPENAMEFROMNUMBER (ADD1 \INDEXATOMPNAME \GETDTD \ADDBASE +ITIMES) CL::STRUCTURE-OBJECT-INSPECT-STOREFN (CL:EVAL REPLACEFIELD CL::PSLOT-FIELD-DESCRIPTOR) +REMOVE-COMMENTS (CL:FUNCTION REMOVE-COMMENTS CONS) %%LLARRAY-MAKE-SETTOR-EXPR (%%GET-TYPE-TABLE-ENTRY +ARRAY-TABLE-ENTRY-SETTOR ARRAY-TABLE-ENTRY-BITS-PER-ELEMENT ARRAY-TABLE-ENTRY-NEEDS-SHIFT-P) +INSPECTW.GETHASH (GETHASH) GETFIELDSPECS (COPY \GETDTD \ADDBASE ITIMES \TYPENUMBERFROMNAME NTYPX) +%%LLARRAY-MAKE-ACCESSOR-EXPR (%%GET-TYPE-TABLE-ENTRY ARRAY-TABLE-ENTRY-ACCESSOR +ARRAY-TABLE-ENTRY-BITS-PER-ELEMENT ARRAY-TABLE-ENTRY-NEEDS-SHIFT-P) COMPAREDEFS (GETFILEPKGTYPE +WHEREIS FILEPKGCHANGES MEMBER ASSOC CONS GETDEF SOME COMPARELST TERPRI LIST DREVERSE MAP COMPARELISTS) + COMPILER:COPY-ENV-WITH-FUNCTION (COMPILER::COPY-ENV COMPILER:MAKE-EMPTY-ENV) TB.SELECT.ITEM (\DTEST +TB.SHOW.SELECTION) SEDIT::UNDERLINE-SELECTION (SEDIT::DRAW-UNDERLINE) FB.INSERT.DIRECTORY ( +TB.INSERT.ITEM FB.MAKE.SUBDIRECTORY.ITEM) \LEAF.TIMEDOUT.EXCESSIVE (CREATEW MAKEWITHINREGION CONCAT +TERPRI PRIN1 printout IPLUS FOLDLO LRSH LLSH SIGNED SUB1 IDIFFERENCE LIST LOGAND CONSTANT LOGOR RPLACD + CONS FUNCTION IQUOTIENT WINDOWPROP STRINGWIDTH) NCREATE (NCREATE2 \TYPENUMBERFROMNAME) MSCALE (IPLUS +FIXR TIMES) COMPILER:ASSEMBLER-ERROR (CL:ERROR) COMPILER::START-COMPILATION (CL:FLET FASL:BEGIN-TEXT +READ-FILECREATED LIST OUTPUT CL:MULTIPLE-VALUE-PROG1 .UNWIND.PROTECT. FUNCTION CL:NAMESTRING +COMPILER::DATE-STRING CL:FILE-WRITE-DATE CL:GET-UNIVERSAL-TIME TERPRI) COMPILER:OPTIMIZE-AND-MACROEXPAND-1 + (CL:VALUES CL:MACROEXPAND-1) FB.THINP (U-CASE FILENAMEFIELD ITIMES IQUOTIENT) \ENDVECRUN (FIXR FTIMES + IPLUS IDIFFERENCE ILESSP \VECENCODE IMINUS) FILING.CALL (ERROR ARG \GET.COURIER.DEFINITION LENGTH +SELECTQ - + CONS LIST PLUS WITH.MONITOR CL:MULTIPLE-VALUE-PROG1 .UNWIND.PROTECT. FUNCTION +\NSFILING.GET.STREAM PRIN1 COURIER.EXECUTE.CALL \CREATECELL) CENTERINHEIGHT (PLUS IQUOTIENT DIFFERENCE +) PUTBASEPTRX (UNINTERRUPTABLY \PUTBASE LOGOR LOGAND GETBASE \GETBASE HILOC \HILOC ADD1 LOLOC \LOLOC) +CLISPFORERR1 (SOME TAILP RETDWIM2) TEDIT.FIND.OBJECT.SUBTREE (TEDIT.FIND.OBJECT.SUBTREE) +COMPILER::FINISH-COMPILATION (COMPILER::WARN-ABOUT-UNKNOWN-FUNCTIONS) RESOLVE-USE-PACKAGE-CONFLICT ( +CL:SORT MAKE-CONDITION CL:FLET) /REPLACEFIELD (LIST FETCHFIELD REPLACEFIELD) CL:IN-PACKAGE (DECLARE +CL:FIND-PACKAGE CL:APPLY) GN/TOP (IPLUS SUB1 HALF LRSH ADD1) UNDOSAVE (EVQ FMEMB LIST ADD1 IMINUS +ASKUSER CONS) \SEARCHINTERPRESSFONTS (\SEARCHFONTFILES) DINFO.TOGGLE.GRAPH (WINDOWPROP) +COMPILER:COPY-ENV-WITH-VARIABLE (COMPILER::COPY-ENV COMPILER:MAKE-EMPTY-ENV) TYPENAMEP (\INSTANCEP.UFN +) SEDIT::TRACK-SELECT (LOGAND FREPLACEFIELDVAL REPLACEFIELDVAL FETCHFIELD LASTMOUSEX LASTMOUSEY ZEROP) + CL:Y-OR-N-P (CL:APPLY CL:FLET) \PEEKPUP (EMADDRESS OPCODES BESTPUPADDRESS \LOCALPUPNETNUMBER LRSH +ERROR LIST OPENP OPENFILE) PUP.ECHOSERVER (RESETLST OPENPUPSOCKET LIST GETPUP) USERDATATYPES ( +DATATYPES) SETY.PRESS (\BOUT) DASSEM.MATCHVARS (DASSEM.MATCHVARS RPLACD) \ACTONDISKPAGES (LOCF +\ADDBASE SUB1 IDIFFERENCE \HILOC IPLUS IMINUS \LOLOC SELECTC LIST IGREATERP PLUS \MISCAPPLY* FUNCTION +ILESSP EMPOINTER \VAG2 \GETBASE \BOXIDIFFERENCE \CLOCK0 SIGNED LLSH) SEDIT::SMART-TTYFN (DECLARE +CL:FUNCALL EDITL0) COURIER.READ.NSADDRESS (UNFOLD LLSH) CONDITION-PARENT (GETSUPERTYPE) DATATYPES ( +ADD1 DATATYPEP LIST PLUS) CL::STRUCTURE-OBJECT-PROPCOMMANDFN (PROMPTPRINT +DEFAULT.INSPECTW.PROPCOMMANDFN) \PS.SCALEREGION (FIXR TIMES) \DISKERROR (M44.SIGNAL.DISK.ERROR) +IRM.DISPLAY.CREF (IMAGESTREAMTYPE IMAGEOBJPROP STRINGREGION ADD1 IPLUS SUB1 DRAWLINE PRIN1) +INSPECTW.PUTHASH (/PUTHASH) PRINTXIP (PRIN1 SELECTQ FASSOC RESETFORM OUTPUT APPLY* IDIFFERENCE) +FILEBROWSER (DSPFONT FONTPROP NUMBERP CL:FIND-SYMBOL STRING FB.INFO.ITEM.NAMED MISSPELLED? +\ILLEGAL.ARG LIST FUNCTION HEIGHTIFWINDOW TIMES CL:FORMAT GETREGION + THIS.PROCESS CREATEW - CHARWIDTH + CREATE.MONITORLOCK FB.MAKEHEADINGWINDOW MENUWINDOW FB.MAKERIGIDWINDOW GETPROMPTWINDOW CONS FONTCOPY +WINDOWPROP UNION TB.MAKE.BROWSER DIRECTORY.FILL.PATTERN FB.STARTUP) \CLEARBYTES (PLUS \ADDBASE FOLDLO +LRSH SUB1 \CLEARWORDS) FB.SEEFULLFN (WFROMDS WINDOWPROP SELECTQ FUNCTION ADDMENU CREATEW CREATEREGION +WIDTHIFWINDOW HEIGHTIFWINDOW CREATE.EVENT) CL:RENAME-PACKAGE (DECLARE \SIMPLE-STRINGIFY CL:MAKE-SYMBOL + CL:FIND-PACKAGE CL::%%PACKAGE-NAME CL::%%PACKAGE-NAMESYMBOL CL::%%PACKAGE-NICKNAMES) DATATYPEP ( +\GETDTD \ADDBASE ITIMES \INDEXATOMPNAME PLUS) CLISPIFYMATCHUP (FASSOC NCONC1 CONS CLISPIFYMATCHUP +GETPROP) \DOACTONDISKPAGES (\GETDISKCB \GETBASE SUB1 LOGAND IMINUS IPLUS \LOLOC ADD1 LOCF \ADDBASE +FFETCHFIELD EMPOINTER \VAG2 PLUS \CLEANUPDISKQUEUE) PUP.ECHOUSER (RESETLST ALLOCATE.PUP BESTPUPADDRESS + OPENPUPSOCKET SETUPTIMER LIST GETSTREAM PLUS FFETCHFIELD LOCF \ADDBASE GETPUP GETPUPWORD) +DEFAULT-PROCEED-REPORTER (CL:FORMAT PROCEED-CASE-NAME) DINFO.TOGGLE.MENU (WINDOWPROP +DINFO.UPDATE.MENU.DISPLAY CLOSEW) \CREATE.SPP.DEVICE (FUNCTION) CL:UNINTERN (DECLARE CL:SYMBOL-NAME +CL::%%PACKAGE-SHADOWING-SYMBOLS) TB.BOTTOM.OF.ITEM (- TIMES FIXP \DTEST) SEDIT::TRACK-EXTEND ( +FREPLACEFIELDVAL REPLACEFIELDVAL FETCHFIELD ZEROP LOGAND LASTMOUSEX LASTMOUSEY) CL:UNUSE-PACKAGE ( +DECLARE) \LEAF.NOT.RESPONDING (PRIN1 .NAMEORSTREAM. printout) SETX.PRESS (\BOUT) \WRITEDISKPAGES (LOCF + \ADDBASE SUB1 IDIFFERENCE \HILOC IPLUS IMINUS \LOLOC SELECTC LIST IGREATERP PLUS UNSIGNED LOGAND LLSH + \MISCAPPLY* FUNCTION \BOXIDIFFERENCE \CLOCK0 SIGNED) TEDIT.QUIT (\TEDIT.PRIMARYW PROCESSPROP +TTY.PROCESS WINDOWPROP THIS.PROCESS) DELETE-PACKAGE (DECLARE REMHASH CL::%%PACKAGE-NAME CL:AREF +CL::%%PACKAGE-INDEX) \TEDIT.MOVE.PIECEMAPFN (IMAGEOBJPROP SUBSTRING) %%PRINT-CONDITION (DECLARE +CL:FORMAT CL:TYPE-OF \HILOC \LOLOC REPORT-CONDITION) CL:MEMBER (CL:ERROR CL::%%COMPLEX-MEMBER +CL::%%SIMPLE-MEMBER) GN/BOTTOM (IDIFFERENCE HALF LRSH) MB.MARGINBAR.SHOWTAB (MSCALE IDIFFERENCE) +CLISPFORERR (SELECTQ DWIMERRORRETURN) SI::CONDITION-CASE-ERROR (CL:ERROR) \DOWRITEDISKPAGES (\GETBASE +ADD1 \DOACTONDISKPAGES SUB1 \ASSIGNDISKPAGE PLUS FUNCTION \GETDISKCB LOCF \ADDBASE FFETCHFIELD +\REALDISKDA \LOLOC EMPOINTER \VAG2 \CLEANUPDISKQUEUE IMINUS) NUKE-SYMBOL (MKSTRING) +SI::INVOKE-ACTUAL-RESTART (CL:THROW CONDITIONS::RESTART-TAG CONS CONDITIONS::RESTART-SELECTOR CL:APPLY + CL:ERROR) SCROLLBITMAP (WINDOWPROP DSPCLIPPINGREGION IMAX IMIN IDIFFERENCE) ADD-SYMBOL ( +CL::PACKAGE-HASHTABLE-TABLE CL::PACKAGE-HASHTABLE-HASH CL:ARRAY-TOTAL-SIZE CL::PACKAGE-HASHTABLE-SIZE +CL::PACKAGE-HASHTABLE-FREE LRSH NCONC1 CL:MAKE-ARRAY FIX FTIMES ADD-SYMBOL ITIMES FLAST) +REDISPLAYBITMAP (WINDOWPROP DSPCLIPPINGREGION BITBLT) POSTSCRIPT.OUTSTR (\PS.BOUTFIXP SUB1 IPLUS ADD1 +\GETBASEFAT \GETBASE \CHAR8CODE LOGAND \BOUTS \GETBASETHIN \GETBASEBYTE BOUT FLOAT MAPC CHCON) +DASSEM.EQCONSTANTP (LITATOM ILEQ) TEST-PROCEED-CASE (CONDITIONS::RESTART-TEST CL:FUNCALL) +CONDITIONS::DEFAULT-RESTART-REPORTER (CL:FORMAT CONDITIONS:RESTART-NAME) SEDIT::LINEARIZE-QUOTE ( +SEDIT::LINEARIZE SHOULDNT) FB.FASTSEE.ONEFILE (FB.BROWSECOMMAND CONCAT) WALK-PROCEED-CASES (CL:FLET) +FB.MENU.WHENSELECTEDFN (ADD.PROCESS PACK*) \TFBRAVO.INSTALL.PAGEFORMAT (SET TEXTPROP +TEDIT.SINGLE.PAGEFORMAT LIST) \COURIER.REP.BIN (ERROR) \LISPERROR (ERRORX LIST ERROR) RAISE-SIGNAL ( +CL:FIRST) SEDIT::LOCATE-NODE-FROM-EDITCHAIN (SEDIT::LOCATE-NODE-FROM-EDITCHAIN) +CL::STRUCTURE-OBJECT-INSPECT-PROPPRINTFN (CL::PSLOT-NAME) \FORWARD.XIP (\GATEWAY.FORWARD.XIP +\MAYBEPEEKNS \RELEASE.ETHERPACKET) FB.ADD.FILE (PLUS FFETCHFIELD TB.INSERT.ITEM) \ACTONVMEMPAGES ( +\ADDBASE IMINUS \DOACTONDISKPAGES) DBG::STKPTR-CCODE (MAKE-COMPILED-CLOSURE \STACKARGPTR) +RESOLVE-EXPORT-CONFLICT (CL:SORT CL:FUNCTION MAKE-CONDITION CL:FLET) \SWITCHFONTS.PSC (LISTGET MEMB +CONCAT TIMES) \INITSPP (\CREATE.SPP.DEVICE FUNCTION \DEFINEDEVICE) \WRITEVMEMPAGES (\ADDBASE IMINUS +LOCF \DOWRITEDISKPAGES) /RPLNODE2 (ERRORX LIST /RPLNODE) CL:UNEXPORT (DECLARE +CL::%%PACKAGE-INTERNAL-SYMBOLS CL::%%PACKAGE-EXTERNAL-SYMBOLS) TEDIT.FIND.OBJECT (TEXTOBJ \GETBASEPTR +\FIRSTNODE PLUS) STORAGE (CREATECELL LIST PLUS TERPRI \TYPENUMBERFROMNAME \GETDTD \ADDBASE ITIMES + +SELECTC - STORAGE.LEFT TIMES FOLDHI LRSH IPLUS UNFOLD LLSH ADD1) SHOWRECTANGLE.PRESS (\BOUT) CL:DELETE + (CL:LENGTH COMPLEX-DELETE SIMPLE-DELETE) RESOLVE-EXPORT-MISSING (CL:SORT CL:FLET) +ATTACHEDWINDOWREGION (WINDOWPROP ATTACHEDWINDOWS UNIONREGIONS WINDOWREGION) \STLINP (printout +IDIFFERENCE TERPRI) CL:LIST-ALL-PACKAGES (DECLARE CL:FUNCTION) CL:STRING= (%%PARSE-STRING-ARGS +WITH-TWO-UNPACKED-STRINGS %%STRING-BASE-COMPARE CL::SIMPLE-STRING=) \COURIER.BROADCAST.ON.NET (PRIN1 +NLSETQ \SEND.EXPEDITED.XIP CL:FUNCALL) STORAGE.LEFT (IPLUS IDIFFERENCE SELECTC \SET.STORAGE.STATE PLUS + SMALLP \GETBASEPTR ITIMES UNFOLD LLSH ADD1 FQUOTIENT LIST) SETUPFONTS.IP (FONTCREATE) \STORAGE.TYPE ( +\GETDTD \ADDBASE ITIMES \INDEXATOMPNAME SELECTQ IQUOTIENT CONSTANT FIX FQUOTIENT FUNCTION TIMES NTH +ADD1 FRPLACA PLUS \DTEST \GETBASEPTR - BOXCOUNT) DASSEM.DPRINTLAP (GETSTREAM TERPRI FUNCTION printout) + COMPARELST (COMPAREMAX COMPARE1) \STORAGE.HUNKTYPE (CONSTANT LIST NTH ADD1 \STMDSTYPE) +\STRINGWIDTH.PRESS (\GETCHARSETINFO \GETBASEPTR UNFOLD LLSH \CREATECHARSET ADD1 \GETBASEFAT \GETBASE +\GETBASETHIN \GETBASEBYTE PLUS \PRESS.CONVERT.NSCHARACTER \FGETWIDTH \CHAR8CODE LOGAND SUB1 IPLUS +FUNCTION) DBG::FIND-ORIGINAL-NAME-AND-DEFINITION (STKNAME CL:VALUES DBG::STKPTR-CCODE CL:FIRST MKLIST +CL:SECOND GETD GET) \NSFILING.GDATE (GDATE) REMOVEWINDOW (FREEATTACHEDWINDOW) XCL:LIST-ALL-PROFILES ( +CL:FUNCTION CL:MAPCAR) ONEDINSPECT.SELECTPROP (WINDOWPROP WITH-INSPECTOR-ENV XCL::PROFILIZE CL:PROGV +XCL::PROFILE-VARIABLES XCL::PROFILE-VALUES STRINGWIDTH FONTPROP) \NSFILING.GET/SETINFO (CL:FUNCALL +\NSFILING.GETFILE) XCL:PROFILE-NAME (XCL::PROFILE-ENTRY-VALUE XCL::PROFILIZE) BITMAPSCROLLFN ( +SCROLLBITMAP WINDOWPROP) SEDIT::LINEARIZE-LIST (CL:FUNCALL IPLUS IDIFFERENCE ILEQ SELECTQ SHOULDNT +IMAX SEDIT::NEXT-NODE-TYPE SEDIT::LINEARIZE SEDIT::OUTPUT-CONSTANT-STRING) PUSH-IP-STACK (STREAMPROP +CONS) FAKE-COMPILE-FILE (RESETSAVE LIST RESETUNDO FUNCTION OPENSTREAM \PARSE-FILE-HEADER FULLNAME +PACKFILENAME.STRING ROOTFILENAME CLOSEF REVERSE EVAL) DINFO.UPDATE (FASSOC FMEMB RESETSAVE LIST +PROMPTPRINT DINFO.UPDATE.TEXT.DISPLAY FM.GETSTATE DINFO.UPDATE.HISTORY LISTGET CLEARW GETPROMPTWINDOW) + \FM.NUMBER-CHANGESTATE (\FM.ITEMPROP FFETCHFIELD NUMBERP MKATOM) COURIER.REP.LENGTH (SELECTQ STRINGP +MKSTRING ADD1 FOLDHI LRSH IPLUS NCHARS GETPROP FIXP CL:FUNCALL \GET.COURIER.TYPE COURIER.REP.LENGTH +PLUS ASSOC \COURIER.TYPE.ERROR \COURIER.UNKNOWN.TYPE) \DODISKCOMMAND (\LOLOC LOCF \ADDBASE FFETCHFIELD + EMPOINTER \VAG2 \REALDISKDA IPLUS SELECTC ADD1 LOGAND RAID LLSH EMGETBASE \GETBASE EMADDRESS OPCODES +\PUTBASE) CL:AREF (ARG) SEDIT::TTYFN (CREATE.EVENT CL:FUNCTION SEDIT:SEDIT LAST LIST +CL:MULTIPLE-VALUE-PROG1 .UNWIND.PROTECT. FUNCTION AWAIT.EVENT) \STMDSTYPE (POSITION - NCHARS PRINTNUM +TAB printout TERPRI) TEDIT.EDIT.OBJECT (SHOULDNT TEDIT.FIND.OBJECT ADD1 IMAGEOBJPROP) +CL::INSPECT-STRUCTURE-OBJECT (INSPECTW.CREATE CL::PS-ALL-SLOTS CL:CONCATENATE CL:PRINC-TO-STRING) +XCL:FIND-PROFILE (CL:GETHASH STRING) \XIPERROR (LOGAND \GETBASE LOCF \ADDBASE IMIN IPLUS UNFOLD LLSH +\RELEASE.ETHERPACKET) NTH (CONS SUB1) COMP.SELECTQ (COMP.PROGN COMP.EXPR APPEND COMP.STJUMP COMP.VALN +SELECTQ) \CLEANUPDISKQUEUE (EMGETBASE \GETBASE EMADDRESS OPCODES RAID LOGAND PLUS FFETCHFIELD +FREPLACEFIELD LRSH \PUTBASE UNSIGNED SUB1 LLSH \GETDISKCB \VIRTUALDISKDA EMPOINTER \VAG2 \ADDBASE) +\SEL.LIMIT (SUB1) RESOLVE-IMPORT-CONFLICT (CL:SORT MAKE-CONDITION CL:FLET) XCL:RESTORE-PROFILE ( +XCL::PROFILIZE CL:MAPC CL:FUNCTION XCL::PROFILE-VARIABLES XCL::PROFILE-VALUES) SEDIT::SHRINKFN ( +WINDOWPROP PRIN1 SEDIT:GET-PROMPT-WINDOW GETPROMPTWINDOW PROCESSPROP THIS.PROCESS WINDOWREGION) +GN/LEFT (IDIFFERENCE HALF LRSH) \INDEXATOMPNAME (\INDEXATOMPNAME) XCL:COPY-PROFILE (CL:COPY-SEQ +XCL::PROFILIZE) \VFMBlankInterval (\PFVolumeNumber ELT SETA ARRAY SUB1 PLUS) INCORNER.REGION (IABS +IMINUS IDIFFERENCE IPLUS) XCL:SAVE-PROFILE (MAP XCL::PROFILIZE CL:EVAL) \CREATEINTERPRESSFONT ( +\COERCEASCIITONSFONT EVAL) INTERN* (DECLARE) \NSFILING.GET.ATTRIBUTES (FILING.CALL) +\MAKE.EXPEDITED.STREAM (NCREATE IPLUS UNFOLD LLSH INDEXF FUNCTION) FB.NAMES.DECREASING.VERSION ( +SELECTQ ALPHORDER NULL.VERSIONP IGREATERP) TB.EXPANDFN (WINDOWPROP WITH.MONITOR CL:MULTIPLE-VALUE-PROG1 + .UNWIND.PROTECT. FUNCTION IMAX TB.FIRST.VISIBLE.ITEM# DSPCLIPPINGREGION TB.LAST.VISIBLE.ITEM#) +SEDIT::INSERT-LIST (ADD1 SEDIT::REPLACE-LIST) COMPILE-FILE? (GET ROOTFILENAME) DASSEM.DSTOREFNDEF ( +PLUS CEIL LOGAND IPLUS UNFOLD LLSH ADD1 CONSTANT SUB1 LOGXOR FOLDLO LRSH FLENGTH IQUOTIENT \CODEARRAY +FOLDHI \BYTESETA \FINDOP \ATOMDEFINDEX NTYPX \LOLOC SHOULDNT \ATOMPNAMEINDEX EVAL BYTESPERNAMEENTRY +WORDSPERNAMEENTRY SELECTQ \ATOMVALINDEX RESETVARS .RESETLST. LIST CONS CL:MULTIPLE-VALUE-PROG1 +.UNWIND.PROTECT. FUNCTION DEFC) RESOLVE-UNINTERN-CONFLICT (CL:SORT MAKE-CONDITION CL:FLET) +POSTSCRIPT.STARTPAGE (FQUOTIENT \DSPFONT.PSC CONSTANT TIMES \DSPRESET.PSC) ICMLARRAY.INDICES ( +MAINWINDOW WINDOWPROP PRIN1 SPACES) DINFO.TOGGLE.TEXT (WINDOWPROP PROMPTPRINT RELEASE.MONITORLOCK) +\STMDS.APPROX (- NCHARS printout PRINTNUM) \REALDISKDA (IPLUS LLSH IREMAINDER IQUOTIENT) XCL:PROFILE-P + (CL:FIRST CL:LENGTH) REPOSITIONATTACHEDWINDOWS (MAPC ATTACHEDWINDOWS OPENWP \OPENW1) +TB.NORMALIZE.ITEM (\DTEST TB.BOTTOM.OF.ITEM DSPCLIPPINGREGION + SCROLLBYREPAINTFN - IQUOTIENT) +COMP.PREDP (FMEMB) COMPARELISTS (GETSTREAM PRIN1) \SEL.LINEDESC (MKLIST) DINFO.TOGGLE.HISTORY ( +WINDOWPROP DINFO.UPDATE.HISTORY CLOSEW) POSTSCRIPT.SET-FAKE-LANDSCAPE (- +) SEDIT::RESHAPEFN ( +WINDOWPROP DSPCLIPPINGREGION IDIFFERENCE WITH.MONITOR CL:MULTIPLE-VALUE-PROG1 .UNWIND.PROTECT. +FUNCTION) DELFROMCOMS (GETTOPVAL DELFROMCOMS GETFILEPKGTYPE DELFROMCOM) TB.FIND.PREVIOUS.TAIL (ADD1 +PLUS) XCL:OPEN-STREAM-P (OPENED) CL::%%2/PI (CL::%%FLOAT) \FM.EDIT-SETUP (\FM.ITEMPROP FFETCHFIELD +LISTGET IDIFFERENCE ITIMES FUNCTION) \COURIER.REP.BOUT (RPLACD CONS LIST) \CHECKFREEPAGE (LOCF +\ADDBASE \VAG2 \GETBASE UNSIGNED LOGAND SUB1 LLSH) \PARTEND.PRESS (\BOUT IDIFFERENCE FOLDHI LRSH IPLUS + GETFILEPTR \PAGEPAD.PRESS) CL::STRUCTURE-OBJECT-INSPECT-FETCHFN (CL:FUNCALL CL::PSLOT-ACCESSOR +FETCHFIELD CL::PSLOT-FIELD-DESCRIPTOR) NS.ECHOUSER (RESETLST SETUPTIMER COERCE-TO-NSADDRESS +\ILLEGAL.ARG LIST OPENNSOCKET \FILLINXIP + TIMES TERPRI GETSTREAM GETXIP \GETBASE PLUS) XCL:MAKE-PROFILE + (CONS) SWAPXIPADDRESSES (\DTEST LOCF \ADDBASE) TB.SHRINKFN (TB.CLOSE/SHRINK) \FM.NUMBER-SETUP ( +\FM.ITEMPROP FFETCHFIELD LISTGET IDIFFERENCE ITIMES FUNCTION) FILENAMEFROMID (\LFFindDirectory +GETFILEPTR BIN BIN16 CONCAT PACKC LIST PLUS) COMPILER::CONSTRUCT-COMPILER-SYMBOL (CL:INTERN CL:APPLY) +NSNETDAYTIME0 (\GETMISCNSOCKET CREATE.PACKET.EXCHANGE.XIP PLUS FFETCHFIELD UNFOLD LLSH LOCF \ADDBASE +EXCHANGEXIPS) MAKE-DO-SYMBOLS-CODE (CL:FIRST CL:SECOND CL:THIRD CL:FOURTH CL:FIFTH CL:SIXTH GENSYM) +NEARESTCORNER (\CURSORPOSITION IDIFFERENCE) \HANDLE.RAW.XIP (RELEASE.XIP LOCF \ADDBASE LOGAND +\FORWARD.XIP \NSOCKET.FROM# \GETBASE \CHECKSUM SUB1 FOLDHI LRSH IPLUS \LOCATE.NSNET +\ADD.ROUTING.TABLE.ENTRY PLUS FFETCHFIELD NOTIFY.EVENT) XCL:ECHO-STREAM-P (STREAMPROP) FIND-SYMBOL* ( +\CREATECELL CL:VALUES) IRM.LOAD-GRAPH (INFILEP PACKFILENAME DINFO.READ.GRAPH) XCL:TWO-WAY-STREAM-P ( +STREAMPROP) SEDIT::REPAINTFN (WINDOWPROP) DISPLAYLINK/LR (APPLY* LISTGET IPLUS SUB1 GN/LEFT ADD1 +GN/RIGHT) FINDATS (FMEMB FINDATS) \VFMAtLoad (CREATE.MONITORLOCK) CL::%%PI/6 (CL::%%FLOAT) +ENCAPSULATEDOBJ.DISPLAYFN (DSPXPOSITION DSPYPOSITION FONTCREATE DSPFONT IMAGEOBJPROP IDIFFERENCE IPLUS + FONTPROP PRIN1 IMINUS) ICMLARRAY.DETACHDISPLAY (WINDOWPROP) CHCON (IPLUS \GETBASECHAR \GETBASEFAT +\GETBASE \GETBASETHIN \GETBASEBYTE LIST PLUS FUNCTION) GN/RIGHT (IPLUS SUB1 HALF LRSH ADD1) +DBG::FIND-DEBUGGER-STACK-FRAME (DECLARE FIND-DEBUGGER-ENTRY-FRAME) XCL:CONCATENATED-STREAM-P ( +STREAMPROP) \VFMCreateIntervals (ARRAYORIG ARRAYSIZE ARRAY) CHANGETRAN (RECORDTRAN) +\NSFILING.GETEOFPTR (LOGAND CONSTANT LOGOR GETFILEPTR \NSFILING.GETFILEINFO) \SETETHERFLAGS (SELECTC +LIST - TIMES UNFOLD LLSH INDEXF SHOULDNT) UNPACK (IPLUS FCHARACTER \GETBASECHAR \GETBASEFAT \GETBASE +\GETBASETHIN \GETBASEBYTE LIST PLUS FUNCTION) WTODSY (IPLUS DSPCLIPPINGREGION) TB.FLUSH.WINDOW ( +FUNCTION CL:FUNCALL OPENWP WINDOWPROP) TEDIT.MOVE (TEDIT.PROMPTPRINT \SHOWSEL TEDIT.SELECTED.PIECES +FUNCTION TEDIT.DO.BLUEPENDINGDELETE IDIFFERENCE IPLUS) CLISPLOOKUP0 (GETPROP CLISPLOOKUP2 CLISPLOOKUP1 + SELECTQ GETATOMVAL) TCOMPL (ERSETQ BCOMPL CONS LIST) COMP.VAL (COMP.EXPR ADD1 OPT.JUMPCHECK) +\TEDIT.STRIKEOUT.CARET.ON (\TEDIT.PARSE.CHARLOOKS.LIST) \TEDIT.STRIKEOUT.CARET.OFF ( +\TEDIT.PARSE.CHARLOOKS.LIST) TB.UPDATE.DISPLAY (TB.BOTTOM.OF.ITEM FRPLACA PLUS SELECTQ - SHOULDNT +DSPCLIPPINGREGION FFETCHFIELD + IQUOTIENT ADD1) SEDIT::PUNT-SET-SELECTION (SEDIT::SET-SELECTION PLUS) +\SPPGETERROR (TERPRI PRIN1) \VIRTUALDISKDA (IPLUS ITIMES) XCL:BROADCAST-STREAM-P (STREAMPROP) +DBG::FIND-NAMED-STACK-POSITION (STKPOS CL:FIRST ERROR) %%MAKE-ARRAY-TYPE-TABLE (CL:MAPCAN CL:FUNCTION) + XCL:FOLLOW-SYNONYM-STREAMS (XCL:FOLLOW-SYNONYM-STREAMS CL:SYMBOL-VALUE XCL:SYNONYM-STREAM-SYMBOL) +CL::%%-PI/4 (CL::%%FLOAT) \FM.EDIT-INSERT (CHARACTER CHARWIDTH IPLUS DSPXPOSITION DSPCLIPPINGREGION +WINDOWPROP FRPLACA PLUS MINUS \FM.EDIT-SCROLLAMOUNT IQUOTIENT BITMAPWIDTH BITMAPCREATE BITMAPHEIGHT +\FM.ITEMPROP FFETCHFIELD FONTPROP \FM.EDIT-STRINSERT ADD1 EXTENDREGION CREATEREGION) \CWSU.DEFAULT ( +COURIER.WRITE COURIER.WRITE.REP) BRIEFLY-DESCRIBE-SYMBOL (CL:FRESH-LINE CL:PRIN1 CL:WRITE-STRING) +COMPILER::NODE-TYPE-NAME (COMPILER::CONSTRUCT-COMPILER-SYMBOL) XCL:SET-DEFAULT-EXEC-TYPE (SETTOPVAL) +CL::STRUCTURE-OBJECT-P (TYPEP) CL:FIND-ALL-SYMBOLS (MKSTRING CL:FUNCTION) NEARTOP (IDIFFERENCE ILESSP +IPLUS TIMES IGREATERP DIFFERENCE) \LOCATE.NSNET (\GETBASEPTR UNFOLD LLSH LOGAND CONS SETUPTIMER) +DCHCON (SCRATCHLIST IPLUS FRPLACA FRPLACD CONS \GETBASECHAR \GETBASEFAT \GETBASE \GETBASETHIN +\GETBASEBYTE PLUS \MAPPNAME FUNCTION FLAST) CLEARCLISPARRAY (MAPHASH FUNCTION) INITPUPLEVEL1 ( +HARDRESET) \NSFILING.GETFILEINFO.FROM.PLIST (SELECTQ \NSFILING.GDATE ASSOC FOLDHI LRSH IPLUS +NSNAME.TO.STRING MAPCAR COURIER.FETCH \TYPE.FROM.FILETYPE) CLISPNOTVARP (STKSCAN) CL:FRESH-LINE ( +FRESHLINE) SEDIT::DELETE-QUOTE (SMALLP SHOULDNT SEDIT::SUBNODE SEDIT::CREATE-GAP-NODE) XCL:SET-EXEC-TYPE + (STKPOS ENVEVAL XCL:RESTORE-PROFILE) ENCAPSULATEDOBJ.PUTFN (IMAGEOBJPROP NUMBERP ERROR) CL:APROPOS-LIST + (COPY-STRING \SIMPLE-STRINGIFY MKSTRING) EDITFROMFILE (RESETVARS .RESETLST. LIST CONS +CL:MULTIPLE-VALUE-PROG1 .UNWIND.PROTECT. FUNCTION ROOTFILENAME ASKUSER REMOVE FILECOMSLST GETDEF +EDITDEF) ICMLARRAY.DOWINDOWCOMFN (WINDOWPROP MENU CENTRALWINDOW GETREGION FUNCTION CONS) DUNPACK ( +SCRATCHLIST IPLUS FRPLACA FRPLACD CONS FCHARACTER \GETBASECHAR \GETBASEFAT \GETBASE \GETBASETHIN +\GETBASEBYTE PLUS \MAPPNAME FUNCTION FLAST) \TEDIT.SEARCH.CODETABLE (ARRAY PLUS SETA IPLUS LIST) +CL:APROPOS (COPY-STRING \SIMPLE-STRINGIFY CL:VALUES) RECOMPILE (BRECOMPILE) TEXTICON (WINDOWP +TITLEDICONW WINDOWPROP NCHARS CONCAT DATE) %%MAKE-CML-TYPE-TABLE (CL:MAPCAR CL:FUNCTION) UALPHORDER ( +ALPHORDER) TB.RENUMBER.TAIL (PLUS) \FLUSH.PACKET.QUEUE (\DEQUEUE PLUS) DASSEM.DWRITEFN (LENGTH FLENGTH + NCONC1 CONS PLUS DREVERSE GETSTREAM LRSH LOGAND \FINDOP SELECTQ IPLUS PRIN4) DINFO.FMENU.HANDLER ( +WINDOWPROP MKATOM SUBSTRING FM.ITEMPROP SELECTQ DINFO.SPECIAL.UPDATE DINFO.FIND DINFO.LOOKUP SHOULDNT) + ALPHORDER (\DTEST \CATRANSLATE \GETBASEBYTE \GETBASECHAR \GETBASEFAT \GETBASE IPLUS \GETBASETHIN PLUS +) COURIER.OPEN (RESETLST \COERCE.TO.NSADDRESS ERROR SPP.OPEN LIST FUNCTION PRIN1 SPP.DESTADDRESS \BOUT + SUB1 GETWORD IPLUS LLSH \BIN \SPP.PREPARE.INPUT) CASEARRAY (COPYARRAY ARRAY PLUS) +RETURN-FIRST-OF-THREE (DECLARE) DBG::DEBUGGER-EVAL (CL:VALUES-LIST) XCL:SYNONYM-STREAM-P (STREAMPROP) +\NSFILING.RELEASE.BULKSTREAM (DREMOVE) FREEATTACHEDWINDOW (MAINWINDOW COPY ATTACHEDWINDOWS WINDOWPROP +SELECTQ IMINUS) CHECK-SYMBOL-NAMESTRING (NAMESTRING-CONVERSION-CLAUSE CL:FIRST CL:THIRD CL:FOURTH +INTERN* IDIFFERENCE CL:FIND-PACKAGE UNINTERRUPTABLY \CREATE.SYMBOL) \TEDIT.UNDERLINE.CARET.ON ( +\TEDIT.PARSE.CHARLOOKS.LIST) CONCATCODES (ALLOCSTRING LENGTH PLUS) ERROR-MISSING-EXTERNAL-SYMBOL ( +ERROR CONCAT) \ACCHARWIDTHLIST (IMAX FOLDLO LRSH IPLUS LIST) PACKC (WITH-RESOURCE \PUTBASE +\PUTBASEBYTE SUB1 \GETBASETHIN \GETBASEBYTE PLUS \MKATOM GETRESOURCE NEWRESOURCE ALLOCSTRING) +COURIER.WRITE.REP (\MAKE.COURIER.REP.STREAM) \LOOKUPFMAP (\GETBASE IPLUS FLOOR LOGAND FOLDLO LRSH +CONSTANT LOGXOR SUB1 \ADDBASE IDIFFERENCE) \READACFONTBOXES (\WIN IPLUS LLSH \BIN SIGNED SUB1 +IDIFFERENCE LIST PLUS) CL::BUILD-COPIER-TYPE-CHECK (CL::PS-TYPE CL:VALUES) \WHICHPART (\GETBASE RAID) +\GETFBB (IPLUS IDIFFERENCE) \ACCHARIMAGELIST (MAPCAR) DASSEM.DASSEM (CONS SELECTQ FRPLACD IPLUS LRSH +LOGAND APPEND COMPILER::ENV-TARGET-ARCHITECTURE FASSOC ADD1 SORT ADD1VAR IDIFFERENCE CONSTANT COMPERRM + LIST LENGTH OPT.DREV FUNCTION OPCOUNT \FINDOP LLSH AST GETP MAPC APPLY* PLUS GREATERP SUB1) +RESOLVE-MISSING-PACKAGE (MAKE-CONDITION CL:FLET) \NEW.READ.SYMBOL (DECLARE \PARSE.NUMBER +CHECK-SYMBOL-NAMESTRING RESOLVE-MISSING-PACKAGE \GETBASESTRING INTERN*) \COPYSEL (COPY) PACK ( +WITH-RESOURCE \MKATOM SUB1 PLUS NCHARS ADD1 GETRESOURCE NEWRESOURCE ALLOCSTRING) DBG::DEBUGGER-MENU-HELP + (PRINTOUT PRIN1 CL:THIRD CL:DOCUMENTATION CL:FIRST CL:FOURTH GETHASH) TEDIT.FIND (TEXTOBJ MKSTRING +SELECTQ \TEDIT.PARSE.SEARCHSTRING MAPCAR CHCON CHARACTER LIST \TEDIT.SUBST.FN1 \TEDIT.FIND.WC +TEDIT.FIND SUB1 IPLUS NCHARS \TEDIT.BASICFIND) \PACK.ITEM (\MAPPNAME FUNCTION) \NSFILING.GETFILENAME ( +\NSFILING.GETFILE) FIND-DEBUGGER-ENTRY-FRAME (REALSTKNTH STKNTH STKNAME CL:SPECIAL-FORM-P) +\3MB.CREATENDB (\SERIALNUMBER FUNCTION ADD.PROCESS) NAMESTRING-CONVERSION-CLAUSE (DECLARE) +UnixPrintCommand (CONCAT NCHARS UnixShellQuote) WTODSX (IPLUS DSPCLIPPINGREGION) COMPILER::PRINT-NODE +(CL:GETHASH CL:FORMAT CL:TYPE-OF + CL:MACROLET) \ACROTATECHAR (ROTATE-BITMAP-LEFT) +\FM.EDIT-PREPARETOEDIT (FUNCTION \FM.ITEMPROP LISTGET FFETCHFIELD STRINGWIDTH DSPCREATE IPLUS CONS +\FM.EDIT-GETPOINTERINFO LASTMOUSEX FONTPROP DSPFONT) \LFINITCASEARRAY (COPYARRAY PLUS) SEDIT::VAR-CHANGED + (SET) \PAGEPAD.PRESS (GETFILEPTR MODUP IDIFFERENCE SUB1 IMOD IPLUS FOLDLO LRSH) \CREATESTARFONT ( +RESETLST FIXR FQUOTIENT ITIMES \FACECODE CONSTANT \GETBASEPTR UNFOLD LLSH \CREATECHARSET) +\PFTransferFilePage (\BLT MESASIZE IPLUS \PFTransferPage LvBasePageAddr FFETCHFIELD FMESAELT \ADDBASE +ILEQ ITIMES IDIFFERENCE MIN GETRESOURCE NEWRESOURCE \ALLOCBLOCK LRSH ADD1 PLUS) \NEW.MKATOM ( +UNLESSRDSYS \GETBASEFAT \GETBASE \GETBASETHIN \GETBASEBYTE \ADDBASE IDIFFERENCE \PARSE.NUMBER CL:VALUES + INTERN*) \READFONTWDFILE (HELP) TB.CLOSEFN (TB.CLOSE/SHRINK) COMP.DELFIX (SELECTQ) CONVERT-LITATOM ( +NAMESTRING-CONVERSION-CLAUSE CL:FIRST CL:THIRD CL:FOURTH CL:FIND-PACKAGE) +RESOLVE-MISSING-EXTERNAL-SYMBOL (MAKE-CONDITION CL:FLET) \FM.EDITSTART-SELECTEDFN (LISTGET +\FM.ITEMPROP FFETCHFIELD FUNCTION \FM.EDIT-ITEM) PRINTBELLS (PRIN3) SEDIT::PLACE-CARET-AND-SELECTION ( +DSPCLIPPINGREGION SEDIT::FIND-LINE-START SEDIT::FIND-NODE LAST PLUS IDIFFERENCE +SEDIT::SET-SELECTION-NOWHERE) FB.ANALYZE.PATTERN (NTHCHARCODE PLUS STRPOS SUBSTRING ADD1 CONCAT SUB1 +FB.CANONICALIZE.PATTERN) \FACECODE (IPLUS SELECTQ SHOULDNT) XCL:PACK (CL:INTERN CONCATLIST) CL::%%PI/4 + (CL::%%FLOAT) ONEDINSPECT.SELECTITEM (WINDOWPROP WITH-INSPECTOR-ENV XCL::PROFILIZE CL:PROGV +XCL::PROFILE-VARIABLES XCL::PROFILE-VALUES STRINGWIDTH APPLY* FONTPROP) \LITATOM.EATCHARS (- CONCAT +\PUTBASEBYTE \GETBASETHIN \GETBASEBYTE PLUS) \TEDIT.SUPERSCRIPT.CARET (\TEDIT.PARSE.CHARLOOKS.LIST) +\NSINIT (\FLUSHNSOCQUEUE FUNCTION FIND.PROCESS \CLEAR.ROUTING.TABLE CONS SETUPTIMER NOTIFY.EVENT) +CL:INTERN (DECLARE MKSTRING ERROR CL:MAKE-SYMBOL INTERN*) INTERPRESSBITMAP (OPENIMAGESTREAM +IDIFFERENCE TIMES STRINGWIDTH IMOD - + CONSTANT FQUOTIENT CLOSEF) CLISPACKUP (CLISP3C GETPROPLIST +GETPROP MINUS) INTERN-LITATOM (ADD-SYMBOL CL::%%PACKAGE-INTERNAL-SYMBOLS CL::%%PACKAGE-EXTERNAL-SYMBOLS + CL:SYMBOL-PACKAGE SET) OPEN (PATHNAME MEMQ INTERLISP-ACCESS) OLDFAULT1 (MAKE-CONDITION CL:APPLY EVAL) + XCL:PACK* (CL:INTERN CONCATLIST) C.FLOATUNBOX (SELECTQ COMP.VALN COMP.VAL1) SEDIT::PROPLST-CHANGED ( +SETPROPLIST) BRECOMPILE (RESETLST INPUT RESETOPENFILES FULLNAME LIST UNPACKFILENAME PACKFILENAME FMEMB + OPENSTREAM CLOSEF GET-ENVIRONMENT-AND-FILEMAP SPELLFILE ROOTFILENAME ASKUSER CONS MAPCAR READ GETPROP + MAPCONC MAPC BCOMPL1A APPEND TERPRI BCOMPL.BODY) MAKEBITTABLE (\SETSYNCODE \PUTBASEBYTE +\SETFATSYNCODE SMALLP CHCON1 LOGXOR \SYNCODE GETHASH \GETBASEBYTE PLUS) CL::DEFINE-COPIERS ( +CL::PS-COPIER CL::PS-NAME) EXCHANGEXIPS (SETUPTIMER GETXIP) DBG::DEBUGGER-BUTTON-EVENT (LOGAND) +\FINDFONT (HELP) TEDIT.SETSEL (TEXTOBJ IMIN IMAX ADD1 IPLUS IDIFFERENCE \CHTOPC +\TEDIT.GET.INSERT.CHARLOOKS) \FAMILYCODE (NCHARS \BIN PLUS LLSH IPLUS LOGAND LRSH \WIN NTHCHARCODE) +COMP.EXPR (SELECTQ COMP.CONST COMP.VAR FASSOC TYPENAME APPLY* COMP.LAMBDA CONS \TRANSLATE-CL%:LAMBDA +COMP.CLEANFNOP COMP.STFN PLUS COMP.TRYUSERFN COMPERROR GETMACROPROP COMPILER:ENV-FBOUNDP +COMP.TRANSFORM COMP.CPI COMP.ARGTYPE COMP.CALL OPT.JUMPCHECK) TRANSFER-SYMBOL (CL:SYMBOL-PLIST +CL:SYMBOL-FUNCTION) \FM.EDITSTART-MESSAGE (SELECTQ) \DSKDISPLAY.RESHAPEFN (WINDOWPROP) +\NSFILING.HOSTNAMEP (LOOKUP.NS.SERVER \GETDEVICEFROMNAME MKATOM U-CASE NSNAME.TO.STRING PACK* FUNCTION + CREATE.MONITORLOCK) SEDIT::OUTLINE-SELECTION (IMAX IMIN FUNCTION IDIFFERENCE) \LEAF.REPAIR.BROKEN.PUP + (LIST) CONCOCT-SYMBOL (DECLARE CL:ERROR CL:INTERN IMPORT EXPORT) TB.ITEM.UPDATABLE? (FIXP OPENWP) +NEWPAGE?.IP (NEWPAGE.IP) \SETFATSYNCODE (\DTEST \PUTBASEBYTE PUTHASH \CREATENSCHARHASH HASHARRAY) +CL::%%PI/3 (CL::%%FLOAT) \FM.EDIT-ITEM (SETUPTIMER RESETLST RESETSAVE SETTERMTABLE TTYDISPLAYSTREAM +CURSOR LIST \FM.EDIT-PREPARETOEDIT TTY.PROCESS THIS.PROCESS LOGAND APPLY* DECODEBUTTONS LASTMOUSEX +LASTMOUSEY \FM.CHECKREGION WINDOWPROP \FM.ITEMPROP FFETCHFIELD LISTGET IPLUS ILESSP \GETKEY GETSYNTAX) + PACKAGE-ENABLE (DECLARE READTABLEPROP FIND-READTABLE CL:PUSHNEW MOVD) \BCPLSOUT.PRESS (IMIN NCHARS +SUB1 NTHCHARCODE PLUS ADD1) SCANX (CONS IPLUS IDIFFERENCE \SGN ITIMES IQUOTIENT) WINDOWWORLDP ( +\INSURESCREEN) PACKAGE-INIT (PACKAGE-CLEAR PACKAGE-MAKE PACKAGE-HIERARCHY-INIT PACKAGE-ENABLE) +\NSFILING.ERRORHANDLER (STKPOS FUNCTION GETFILEPTR SPACES \NSFILING.GETFILE LIST PRIN1 SETFILEPTR PLUS + \SPP.DEFAULT.ERRORHANDLER) DETACHALLWINDOWS (MAPC WINDOWPROP CLOSEW) FILEPOS (CHCON1 CASEARRAY +\GETSTREAM STRINGP MKSTRING \GETFILEPTR SPREADAPPLY* ADD1 IDIFFERENCE \GETEOFPTR IMIN IMINUS IPLUS +\GETBASEBYTE SUB1 PLUS FOLDLO LRSH IMOD \BIN) \ACCHARPOSLIST (IPLUS ITIMES ADD1 IDIFFERENCE \WIN LLSH +\BIN LIST PLUS) \LFCreateDirectories (ARRAYORIG ARRAYSIZE ARRAY) \M44DOEXTENDVMEMFILE (SUB1 \GETBASE +IDIFFERENCE \LOOKUPFMAP IPLUS PLUS \ACTONVMEMPAGES IMINUS ADD1 \LOLOC) \SPP.CLOSE.IF.ERROR (SPP.CLOSE) + PRINTDISPLAYNODE (ZEROP) SHOW.PRESS (\GETFILEPTR SPREADAPPLY* IDIFFERENCE LOGOR IPLUS) UnixShellQuote + (CHCON CONS CONCATCODES) OPENPOSTSCRIPTSTREAM (OPENSTREAM PACKFILENAME LISTGET FUNCTION LIST OUTPUT +CL:MULTIPLE-VALUE-PROG1 .UNWIND.PROTECT. MKSTRING DATE FILENAMEFIELD TERPRI \BOUTEOL CL:FUNCALL CL:ASSOC + CL:FUNCTION ERROR L-CASE NUMBERP TIMES \PS.SCALEREGION / INTERSECTREGIONS CREATEREGION PLUS +FONTCREATE MKLIST CL:GETF) FB.CHECK.NAME.LENGTH (+ STRINGWIDTH CONS LIST - FRPLACA PLUS) +\PFPutFileMapPage (FIXP \PFVolumeNumber \PFPutPage ELT) \EXTENDISFMAP (\ADDBASE IDIFFERENCE \GETBASE +IPLUS ADD1) RESOLVE-READER-CONFLICT (DECLARE CL:MEMBER) REMOVEPROMPTWINDOW (WINDOWPROP FUNCTION CLOSEW + MAINWINDOW) COMP.STCONST (COMP.ST COMP.LOOKUPCONST) SHOULDNT (HELP) \FM.EDITSTART-SETUP (\FM.ITEMPROP + FFETCHFIELD FUNCTION) FFILEPOS (\GETSTREAM INPUT STRINGP MKSTRING \GETFILEPTR SPREADAPPLY* IPLUS SUB1 + \GETEOFPTR IMIN IDIFFERENCE GLOBALRESOURCE CASEARRAY FOLDLO LRSH MOD IMOD GETBASEBYTE \GETBASEBYTE +PLUS \BIN \INCFILEPTR IMINUS IMAX GETRESOURCE NEWRESOURCE ARRAY ADD1 FILEPOS) SEDIT::LESS-PROMPT-WINDOW + (CREATEREGION IDIFFERENCE HEIGHTIFWINDOW FONTPROP) \COURIER.WHENCLOSED (printout TERPRI) +PACKAGE-CLEAR (DECLARE CLRHASH) SEDIT::LINEAR-ITEM-WIDTH (BITMAPWIDTH SHOULDNT) \SETUP.FFILEPOS (IPLUS + LLSH SUB1 FOLDLO LRSH \PUTBASE PLUS \PUTBASEBYTE GETBASEBYTE \GETBASEBYTE IDIFFERENCE ADD1) CL::%%-PI/2 + (CL::%%FLOAT) C.FLOATBOX (SELECTQ COMP.VALN COMP.FLOATBOX) SEDIT::PROP-CHANGED (PUTPROP) +\FM.EDIT-FINDNEXT (FMEMB WINDOWPROP \FM.ITEMPROP FFETCHFIELD) \MAKE.COURIER.REP.STREAM (NCREATE +FUNCTION) CL::BUILD-COPIER-SLOT-SETFS (CL:MAPCAR CL:FUNCTION) PACKAGE-MAKE (DECLARE CL:MAKE-PACKAGE +MOVD) DBG::NEAR-BY-REGION (CL:MOD + -) UnixTempFile (UNPACKFILENAME.STRING CONCAT IDATE PLUS CL:VALUES + OPENSTREAM) TEDIT.NORMALIZECARET (TEXTOBJ) TEDIT.MAPPIECES (\GETBASEPTR \FIRSTNODE ATOM APPLY* LIST +PLUS) SCALE/GRAPH (DSPSCALE EQMEMB LISTGET MAPCAR FIXR FTIMES IDIFFERENCE LRSH FONTCREATE +SCALE/TONODES SCALE/GRAPHNODE/BORDER FRPLACD PLUS FRPLACA) \INITIALIZESWAPDISK (LOCF \ADDBASE +EMPOINTER \VAG2 \GETBASE FFETCHFIELD LRSH) COMPILER::COMPILE-SCAN-DEFINE-FILE-INFO (CL:EVAL) +TB.PRINT.LINE (+ TB.BOTTOM.OF.ITEM TB.SHOW.DELETION) \NSFILING.CLOSE.BULKSTREAM ( +\NSFILING.RELEASE.BULKSTREAM) EXPANDING-PAGEFULLFN (WINDOWREGION TIMES WINDOWPROP - DSPLINEFEED + IMAX +) INTERPRESS.BITMAPSCALE (MIN FQUOTIENT TIMES) PACKAGE-HIERARCHY-INIT (DECLARE MAPATOMS CL:FUNCTION) +IRM.SMART.LOOKUP (IRM.LOOKUP) SEDIT::COPY-STRUCTURE-LIST (MAPCAR) COMP.STCOPY (IGREATERP COMP.ST) +CL::%%NOT-NUMBER-ERROR (CL:ERROR) \FM.DISPLAY-SETUP (\FM.ITEMPROP FFETCHFIELD) \NSFILING.RENAMEFILE ( +FUNCTION \NSFILING.COPY/RENAME \GENERIC.RENAMEFILE) TB.FIND.SELECTED.ITEM (TB.NTH.ITEM PLUS) +SEDIT::ICON-COPYFN (LISTGET WINDOWPROP BKSYSBUF) TB.SHOW.DELETION (BLTSHADE + SUB1 IQUOTIENT - +TB.BOTTOM.OF.ITEM) CL::%%NOT-RATIONAL-ERROR (CL:ERROR) XTOUSTRING (ALLOCSTRING NUTF8STRINGBYTES +NTHCHARCODE PLUS LOGOR LLSH LRSH LOADBYTE LOGAND LSH IMINUS MASK.1'S SUB1) CL::%%PI/2 (CL::%%FLOAT) +FM.SKIPNEXT (TTY.PROCESS PROCESS.EVAL ERROR \FM.EDIT-FINDFIRST FM.EDITITEM) \ENTITYEND.PRESS ( +IDIFFERENCE \GETFILEPTR SPREADAPPLY* GETFILEPTR UNFOLD LLSH \BOUT ADD1 FOLDLO LRSH) COMPILER::PRINT-TREE + (CL:MAKE-HASH-TABLE COMPILER::PRINT-NODE CL:TERPRI CL:VALUES) SEDIT::COPY-STRUCTURE-QUOTE (LIST +SEDIT::SUBNODE) BCOMPL (RESETLST RESETOPENFILES BCOMPL.BODY) \TFBRAVO.INIT.PAGEFORMAT (TEXTPROP) +PSCFONT.READFONT (OPENSTREAM READ FIND-READTABLE \WIN IPLUS LLSH \BIN ARRAY PLUS - CONS L-CASE +FILENAMEFIELD) TB.PROCESS (ADD.PROCESS) \VFMCorrectBufferP (EQL) \TEDIT.UNDERLINE.CARET.OFF ( +\TEDIT.PARSE.CHARLOOKS.LIST) CL::%%RATIO-PRINT (CL::RATIO-NUMERATOR CL::RATIO-DENOMINATOR \PRINDATUM +LIST CL:CONCATENATE STRING CL:CODE-CHAR IPLUS + NCHARS FRESHLINE) \TIME.NOT.SET (printout PRIN1) +FB.HANDLE.ABORT.BUTTON (WINDOWPROP MAINWINDOW WFROMMENU DEL.PROCESS) UPDATE/SCROLL/REG (IMAX +IDIFFERENCE IPLUS DSPLINEFEED) DESCRIBE-VIRTUAL-MEMORY (PRIN1 \LOLOC VMEMSIZE CL:VALUES) +SEDIT::COMPUTE-POINT-POSITION-LIST (IPLUS SEDIT::SUBNODE NTH IMAX IDIFFERENCE IMIN HALF LRSH) +NEWFAULT1 (/DWIMCHECKTRAN GETD CONS WTFIX OLDFAULT1 FUNCTION) DATE (\OUTDATE \UNPACKDATE) CL:ADJOIN ( +CL:ERROR CL:FUNCALL CONS) SEDIT::FN-CHANGED (GETD PUTD GETPROP PUTPROP SHOULDNT) +ICMLARRAY.DISPLAYSLICE (CREATEARRAYSLICE SELECTQ SLICERANK ONEDINSPECTW.CREATE FUNCTION SUB1 +SLICEDIMENSION LIST PLUS TWODINSPECTW.CREATE SHOULDNT) ASKUSERLOOKUP (FMEMB) CL::%%BUILD-RATIO ( +IREMAINDER IQUOTIENT CL::%%GCD CL::%%MAKE-RATIO -) DBG::RELEASE-DEBUGGER-WINDOW (WINDOWPROP CLOSEW) +DINFOGRAPH (WINDOWPROP) \UNPACKDATE (DAYTIME IQUOTIENT LRSH LISP.TO.ALTO.DATE IMOD + CONSTANT - +IREMAINDER CL:FLOOR ITIMES ROUND TIMES PLUS \DTSCAN \ISDST? ADD1 LIST) BRECOMPILE3 (VIRGINFN LIST +FASSOC FULLNAME) CL::%%COMPLEX-PRINT (CL::COMPLEX-REALPART CL::COMPLEX-IMAGPART IPLUS + NCHARS +FRESHLINE \SOUT) TB.CLOSE/SHRINK (RESETLST WINDOWPROP CL:FUNCALL PRIN1) DATEFORMAT (CONS) +CL::DEFAULT-CONSTRUCTOR-NAME (CL:VALUES CL:INTERN CL:CONCATENATE STRING) CL::%%NOT-FLOAT-ERROR (CL:ERROR +) CL::%%COMPLEX-+ (COMPLEX +) \TEDIT.PRIMARYW (TEXTOBJ) GDATE (\OUTDATE \UNPACKDATE) +\TEDIT.FORMATTEDP1 (GETEOFPTR IDIFFERENCE \DWIN \SMALLPIN SUB1 LLSH CONS) \PRINTFMAP (EMPOINTER \VAG2 +\GETBASE IQUOTIENT - SUB1 + PLUS) \TEDIT.SUBSCRIPT.CARET (\TEDIT.PARSE.CHARLOOKS.LIST) +DISPLAYNODELINKS (TOLINKS GETNODEFROMID LINKPARAMETERS FROMLINKS) \LEAF.USE.NEW.CONNECTION (LIST CONS +LOGAND CONSTANT LOGOR DREMOVE UNION TERPRI \PAGED.REVALIDATEFILES KWOTE) COMPILER::TEST-ALPHA-2 ( +COMPILER::MAKE-ENV CL:MAKE-HASH-TABLE COMPILER::ALPHA-LAMBDA GETD COMPILER::PARSE-DEFUN GETDEF) +\TFBRAVO.GET.FONTSIZE (FASSOC) TERMX (IPLUS IDIFFERENCE \SGN IQUOTIENT ITIMES) PACKAGE-DISABLE (MOVD +READTABLEPROP FIND-READTABLE) NEW/EDITDATE (CL:FUNCALL GET EDITMODE) \FIXP.FROM.FLOATP (LISPERROR +NTYPX ADD1 IDIFFERENCE IGEQ LOLOC \LOLOC FLOAT IPLUS LLSH LRSH LOGAND PLUS SUB1 LSH MINUS DIFFERENCE +.LRSH1. \MAKENUMBER) COURIER.READ.REP (COURIER.READ \MAKE.COURIER.REP.STREAM) SEARCHPRETTYTYPELST ( +CONS LIST PACK* GETTOPVAL) CL::%%COMPLEX-/ (+ CL:* COMPLEX / -) \GETBASE (\GETBASE \ADDBASE) +\NSFILING.WHENCLOSED (DREMOVE \GETDEVICEFROMHOSTNAME) DOMAINWINDOWCOMFN (APPLY* WINDOWPROP FUNCTION) +\PACKDATE (+ SELECTQ SUB1 TIMES - IQUOTIENT PLUS IREMAINDER ALTO.TO.LISP.DATE LLSH) \PUTBASE (\PUTBASE + \ADDBASE .COERCE.TO.SMALLPOSP. IGEQ \ILLEGAL.ARG) \NSFILING.DIRECTORYNAMEP (\NSFILING.GETFILE) +\IDATESCANTOKEN (NTHCHARCODE PLUS ILEQ - + TIMES LOGAND CONS UCASECODE LIST) CL::%%COMPLEX-ABS (FLOAT +CL::COMPLEX-REALPART CL::COMPLEX-IMAGPART CL:SQRT + CL:*) \DSPFONT.IP (\GETFONTDESC FONTCOPY ASSOC +DEFINEFONT.IP FIXR TIMES \FGETWIDTH \GETBASE IDIFFERENCE CONSTANT IMINUS IQUOTIENT FONTPROP - + <=) +\IDATE-PARSE-MONTH (CL:MACROLET DISCRIMINATE) DP (NLAMBDA.ARGS ED ERROR) CL::DEFECT-FROM-IL-TO-XCL ( +CL::NATURALIZE CL:FIND-PACKAGE) COMPILER::COMPILER-ERROR (CL:ERROR) ICMLARRAY.ATTACHDISPLAY (CONS +ALLATTACHEDWINDOWS WINDOWPROP FUNCTION) \TEDIT.SHRINKFN (WINDOWPROP TTY.PROCESS) FB.EDITLISPFILE ( +GETPROP U-CASE ROOTFILENAME FILECOMS CONCAT TTYDISPLAYSTREAM ED) ASKUSEREXPLAIN (MAPC ASKUSERLOOKUP +APPEND LIST MAPRINT PRIN1 CONSTANT CHARACTER POSITION) CL::%%COMPLEX-- (COMPLEX -) +CONDITIONS::DEFECT-FROM-XCL-TO-CONDITIONS (CL::NATURALIZE CL:FIND-PACKAGE) InstallUnixPrinter (LIST) +\NSFILING.GET.STREAM (\NSFILING.COURIER.OPEN CONS FFETCHFIELD LIST FUNCTION) PROMPTPRINT (ARG PLUS) +EVENP (LOGAND CL:ZEROP CL:MOD) \NSFILING.DELETEFILE (\NSFILING.GETFILE FUNCTION) STOPNS (FUNCTION) +\COURIER.EOF (ERROR) CL::%%NOT-NONCOMPLEX-NUMBER-ERROR (CL:ERROR) \GETBASEPTR (\VAG2 \GETBASE \ADDBASE +) SEDIT::CFV-QUOTE (IPLUS) CHECKTRAN (GETHASH) MAKEALISTCOMS (LIST CONS MAPCONC SASSOC GETTOPVAL) +MAKEFILES (RESETVARS .RESETLST. LIST CONS CL:MULTIPLE-VALUE-PROG1 .UNWIND.PROTECT. FUNCTION MKLIST +ROOTFILENAME MAKEFILE) RECOMP? (SELECTQ FMEMB MEMB EXPRP GETPROP) \PUTBASEPTR (\HILOC \ADDBASE \LOLOC) + \LFExtendFile (\PFNewPages MAX IPLUS \LFUpdateLeaderPage) \RPLRIGHT (IPLUS IREMAINDER \RPLRIGHT SUB1 +IQUOTIENT) \ENTITYSTART.PRESS (\GETFILEPTR SPREADAPPLY* FDEVOP) CL::BUILD-CONSTRUCTOR-SLOT-SETFS ( +CL::PS-TYPE CL::PS-NAME CL:MAPCAR CL:FUNCTION) CL::CHECK-ALL (CL:FIND-PACKAGE) \HILOC (\HILOC) +TEDIT.INSERT.OBJECT (TEXTOBJ SELECTQ SHOULDNT IMIN ADD1 \CHTOPC IMAGEOBJPROP \SPLITPIECE IDIFFERENCE +WINDOWPROP IPLUS SUB1) TEDIT.MAPLINES (DSPCLIPPINGREGION \TEDIT.PRIMARYW APPLY* IGEQ) \OUTDATE-STRING +(+ NTHCHARCODE PLUS RPLSTRING ADD1) COMP.ST (CONS IPLUS OPT.JUMPCHECK) \LOLOC (\LOLOC) +\TEDIT.SELECT.ALL (TEDIT.SETSEL ADD1) \FM.NUMBER-SELECTEDFN (\FM.EDIT-ITEM FUNCTION) \PFGetFileMapPage + (FIXP \PFVolumeNumber \PFGetPage ELT) SEDIT::HIGHLIGHT-SELECTION (SEDIT::OUTLINE-SELECTION FUNCTION) +CL::%%COMPLEX-* (COMPLEX CL:* - +) PROCESSWORLD (\RELEASE.PROCESS RETTO CREATE.EVENT LIST \RUN.PROCESS + FIND.PROCESS ADD.PROCESS FUNCTION \DTEST CONS \START.PROCESSES) SEDIT::PARSE--LIST (LISTGET) +CL::%%2PI/3 (CL::%%FLOAT) CL::%%RATIO-PLUS (CL::%%GCD CL::%%MAKE-RATIO + CL:* IQUOTIENT) +\COERCEASCIITONSFONT (\DTEST \CREATESTARFONT CONS \GETCHARSETINFO \GETBASEPTR UNFOLD LLSH +\CREATECHARSET \GETBASE \CHARSET LRSH PRIN1 PLUS ASSOC \PUTBASE \FGETWIDTH \CHAR8CODE LOGAND LIST) +ADD.PROCESS (THIS.PROCESS ARG \ILLEGAL.ARG ADD1 \INSUREWINDOW \DTEST CONS PLUS SELECTQ +\GET.PRIORITY.QUEUE \RUN.PROCESS) \GETMISCNSOCKET (OPENNSOCKET) \DSPSPACEFACTOR.PRESS (FIXR TIMES +\FGETWIDTH \GETBASE) COMPILEUSERFN1 (FASSOC UNION) FB.CLOSEFN (RESETLST TB.USERDATA CONCAT L-CASE +TB.NUMBER.OF.ITEMS SELECTQ MENU FB.EXPUNGE?.MENU FUNCTION) \START.PROCESSES (UNINTERRUPTABLY +\RESCHEDULE \MYALINK OPCODES) CL::%%RECIPROCOL (FQUOTIENT /) SEDIT::CFV-LIST (CL:FUNCALL ITIMES IMAX +IPLUS SEDIT::NEXT-NODE-TYPE SELECTQ SHOULDNT IMIN) NEWPAGE.IP (FREPLACEFIELD PLUS FFETCHFIELD +DIFFERENCE FONTPROP IMINUS) DISPLAYGRAPH (CONSTANT \GETSTREAM DSPSCALE SCALE/GRAPH FIXR FTIMES LENGTH +HASHARRAY PUTHASH DISPLAYNODELINKS PRINTDISPLAYNODE) CL::%%< (CL::%%>) SEDIT::SEDITL (CL:FUNCTION +TTY/EDITL LIST) \RPLPTR (UNINTERRUPTABLY OPCODES \HILOC \LOLOC) SEDIT::SEDITE (CREATE.EVENT SELECTQ +APPEND GETPROPLIST CL:FUNCTION LIST FUNCTION TTY/EDITE RPLNODE2 CL:COPY-TREE) ICMLARRAY.MENUW.SHOW ( +WINDOWPROP SUB1 CL:ARRAY-RANK FM.GETITEM PACK* PLUS) CLISPELL (LISTGET1 FMEMB CONS GETPROP) +CL::%%RATIO-TIMES (CL::%%GCD CL:* CL::%%MAKE-RATIO -) CL::%%> (\CALLME) \RELEASE.PROCESS (DREMOVE) +\IRM.SMART.REF (STRPOS ADD1 NTHCHAR SUB1 PACK UNPACK LIST \IRM.WILD.REF RESETFORM TTY.PROCESS +THIS.PROCESS MISSPELLED? \IRM.GET.REF PRIN1) \INSPECT/CODE/REPAINTFN (WITH-INSPECTOR-ENV WINDOWPROP +XCL::PROFILIZE CL:PROGV XCL::PROFILE-VARIABLES XCL::PROFILE-VALUES) UNMAKEMAINWINDOW (FUNCTION +WINDOWPROP) OPT.CALLP (FMEMB) LOC (CONS \HILOC \LOLOC) \TEDIT.ITALIC.CARET.ON ( +\TEDIT.PARSE.CHARLOOKS.LIST) \FM.NUMBER-MESSAGE (SELECTQ) TB.FIRST.VISIBLE.ITEM# (IMAX ADD1 IQUOTIENT +- \DTEST DSPCLIPPINGREGION) DBG::CLOSE-DEBUGGER-WINDOW (WINDOWPROP WFROMDS PROCESS.TTY THIS.PROCESS +DBG::EXIT-DEBUGGER BLOCK) CL::%%* (\CALLME) VAG (\VAG2 FIXP FIX \HINUM \LONUM) SEDIT::INPUT-NORMAL-CHAR + (PRIN1 CHARACTER IDIFFERENCE SEDIT:GET-PROMPT-WINDOW GETPROMPTWINDOW SEDIT::TYPE-OF-INPUT +SEDIT::SET-SELECTION-NOWHERE) CL::%%PI (CL::%%FLOAT) CL::%%LCM (CL::%%GCD CL:* IQUOTIENT) COMPEM ( +COMPEM ERROR) \LONUM (NTYPX \LOLOC \FIXP.FROM.FLOATP IQUOTIENT CL::RATIO-NUMERATOR CL::RATIO-DENOMINATOR +) CLISP3A (CLISPACKUP GETPROP) SETXY.PRESS (\BOUT) INITX (IDIFFERENCE \SGN IPLUS IQUOTIENT ITIMES) +BYTE (CL:ERROR + CL:ASH CONS) CL::BOA-CONSTRUCTOR-P (CL:CONSP) PUTWINDOWPROP (\OUTSTREAMARG \GETSTREAM + WFROMDS WINDOWOP SPREADAPPLY*) \HINUM (NTYPX \LOLOC \FIXP.FROM.FLOATP IQUOTIENT CL::RATIO-NUMERATOR +CL::RATIO-DENOMINATOR) FB.COPYFN (BKSYSBUF) CLEANUP (NLAMBDA.ARGS APPEND MAKEFILES INTERSECTION APPLY +MEMB) BLOCKCOMPILE1 (LIST SOME APPEND CONS POSITION VIRGINFN NCONC1 SUB1 COMPILE1A MAPCAR +BYTEBLOCKCOMPILE2 BLOCKCOMPILE2) \NEW4PAGE (\NEWPAGE \ADDBASE) EDITPROP (EDITDEF LIST APPLY) +COURIER.ABORT.BULKDATA (CL:THROW CL:VALUES) CL::%%+ (\CALLME) CONS (OPCODES) NSOCKETNUMBER (\DTEST) +PAINTW.SHADE.LABEL (BITMAPCREATE PLUS STRINGWIDTH FONTPROP) KNOTLOOP (LAST XYPT.X XYPT.Y MAKELINE +IDIFFERENCE CONS REVERSE) COMP.DELFN (IPLUS SUB1) \NEXTCONSPAGE (\ALLOCMDSPAGE \INITCONSPAGE \ADDBASE +PAGELOC IPLUS LLSH \HILOC LRSH \LOLOC) FILLWITHBACKGROUND (DSPFILL DSPTEXTURE WINDOWPROP) +\FM.NWAY-CHANGESTATE (\FM.NWAYPROP LISTGET ASSOC WINDOWPROP) \NSFILING.COURIER.OPEN (COURIER.OPEN +FUNCTION CONSTANT LIST) \PFPutAllocationMapPage (FIXP \PFVolumeNumber \PFPutPage ELT) SEDIT::GRAY ( +EVENP DSPXOFFSET DSPYOFFSET) COMPILER::TEST-ALPHA (COMPILER::TEST-ALPHA-2 CL:MULTIPLE-VALUE-PROG1 +.UNWIND.PROTECT. FUNCTION COMPILER::PRINT-TREE) CL::%%- (\CALLME) TB.FIND.ITEM (IMAX IMIN ADD1 SUB1 +FUNCTION TB.NTH.ITEM PLUS) UPDATECHANGED1 (TESTRELQ TESTTABLE FASSOC MSGETDEF MSUPDATEFN1 TERPRI +MSERASE LIST PUTHASH) SEDIT::CREATE-COMMAND-TABLE (CL:MAKE-HASH-TABLE CL:FIRST LIST* CL:THIRD CL:REST +LIST MAPC CL:GETHASH SEDIT::CHARCODE) CL::%%2PI (CL::%%FLOAT) EDITFNS (MKLIST MAPC STKEVAL EVALV +MISSPELLED? FILEFNSLST ERSETQ APPLY CONS PRIN2) \MOUSE.PROCESS (THIS.PROCESS FIND.PROCESS) +COMPILER::*COMPILE-SCAN-CONTEXT* (COMPILER::MAKE-COMPILER-CONTEXT) ICMLARRAY.MENUW.APPLY (WINDOWPROP +SUB1 CL:ARRAY-RANK FM.ITEMPROP FM.GETITEM PACK* LIST PLUS ADD1 PRINTOUT PRIN1 ICMLARRAY.ATTACHDISPLAY) + BULKDATA.GENERATE.NEXT (SUB1 GETWORD IPLUS LLSH \BIN COURIER.READ) TB.REV.FIND.SELECTED.ITEM ( +TB.NTH.ITEM PLUS) \MAIKO.CONS.UFN (CREATECELL UNINTERRUPTABLY OPCODES IPLUS16 \LOLOC \ADDBASE \GETBASE + ADD1 \DORECLAIM NTYPX .MAKECONSCELL. PLUS FFETCHFIELD IPLUS \NEXTCONSPAGE) \IRM.GET.REF (MKATOM +U-CASE WINDOWPROP PRIN1 GETHASHFILE \IRM.CHOOSE.REF MAPCONC LIST) \TEDIT.INSPECTCODE (OPENSTREAM +FUNCTION OPENTEXTSTREAM DECODE.WINDOW.ARG CONCAT TEDIT.FIND IMAX IDIFFERENCE) ONEDINSPECT.REDISPLAY ( +LIST WINDOWPROP MAPCAR APPLY* XCL::PROFILIZE CL:PROGV XCL::PROFILE-VARIABLES XCL::PROFILE-VALUES +STRINGWIDTH FONTPROP INSPECT.INVERTSELECTION RIGHTW.REPAINTFN) SEDIT::START-PROCESS (LIST KWOTE CONCAT + AWAIT.EVENT) CAR (OPCODES) \TEDIT.SHRINK.ICONCREATE (WINDOWPROP FLENGTH TEXTSTREAM.TITLE TEXTSTREAM +TITLEDICONW) \PROMISCUOUS.ON (SELECTQ \PUTBASE EMADDRESS OPCODES \10MB.STARTDRIVER) COMPILEFILES0 ( +SELECTQ MISSPELLED?) CL::%%GCD (CL:ASH) CL::%%INTEGER-COERCE-OPTIMIZER (COMPILER:CONTEXT-VALUES-USED) +CDR (OPCODES) SEDIT::BACKSPACE-LIST (SEDIT::SET-SELECTION-NOWHERE SEDIT::SUBNODE NTH CL:FUNCALL) +VARSBOUNDINEDITCHAIN (MAPCONC VARSBOUNDINFORM) GRAPHDELETELINK (REMOVETONODES REMOVE) +POSTSCRIPT.FONTSAVAILABLE (\FONTFILENAME ASSOC MAPCAR CONS MAPCONC DIRECTORY CONCAT +\FONTINFOFROMFILENAME RPLACA LIST COPY PLUS) DISPLAY/NUMBER/READER/TOTAL (WINDOWPROP RADIX +CENTERPRINTINREGION MKSTRING NCHARS STRPOS SUB1 DIFFERENCE SUBSTRING PLUS CONCAT) +COMPILER::ESTABLISH-MACRO-IN-COMPILER (COMPILER::ENV-BIND-FUNCTION COMPILER::FIND-TOP-ENVIRONMENT) +\FM.NWAY-SELECTEDFN (LISTGET ASSOC \FM.ITEMPROP WINDOWPROP \FM.NWAY-CHANGESTATE) +NUMBERPAD.READER.DECODE (NUMBERP SELECTQ TEDIT.GETSYNTAX) \ISDST? (PLUS) SEDIT::GET-DESTINATION-CONTEXT + (PROCESSPROP TTY.PROCESS WINDOWPROP) DBG::CREATE-DEBUGGER-WINDOW (DECLARE CREATEW DBG::NEAR-BY-REGION + WINDOWPROP WFROMDS STKPOS EVALV REGIONP CREATEREGION) \BACKGROUND.PROCESS (SPREADAPPLY*) RPLACA ( +OPCODES) PRINTLINE (PRIN1 TERPRI IMIN \GETCH \BIN CHARACTER PLUS) CL:FLOOR (CL::%%INTEGER-COERCE-MACRO +) CL::%%E (CL::%%FLOAT) EXEC (WFROMDS TTYDISPLAYSTREAM LIST PROCESS-EXEC-ID THIS.PROCESS +XCL::GET-PROCESS-PROFILE CL:PROGV MAPCAR CAR EVAL DECODE/WINDOW/OR/DISPLAYSTREAM) BRECOMPILE1 (APPEND +ASSOC LIST CONS PACK* GETFILEPTR READ MAPC SETFILEPTR LCSKIP BRECOMPILE3 NCONC1) RPLACD (OPCODES) +\LFExtendFileIfNecessary (LENGTH PLUS SUB1 CL:MULTIPLE-VALUE-PROG1 .UNWIND.PROTECT. FUNCTION +\LFExtendFile) INTERPRESSFILEP (GETFILEINFO RESETLST \GETSTREAM RANDACCESSP LIST GETFILEPTR OPENSTREAM + CONSTANT NCHARS NTHCHARCODE BIN PLUS FULLNAME) CL::BUILD-CONSTRUCTOR-ARGLIST (CL:MAPCAN CL:FUNCTION) +XCL::SROUND (FIXR FQUOTIENT /) CL::%%LOGIOR (LOGOR) NSOCKETFROMNUMBER (\NSOCKET.FROM#) +TB.SHOW.COPY.SELECTION (BLTSHADE TB.BOTTOM.OF.ITEM) XCL::SCEILING (XCL::STRUNCATE CL:1+ CL:REM) +DOCOLLECT (FRPLACD LIST CONS) \NSFILING.CHILDLESS-P (ASSOC FILING.CALL CONSTANT +\FILING.ATTRIBUTE.TYPE.SEQUENCE) COMPILEUSERFN (BOUNDP CHECKTRAN CONS GETPROP GETHASH NLSETQ +compilation) FB.AFTERCLOSEFN (WINDOWPROP TB.USERDATA) XCL::SFLOOR (XCL::STRUNCATE CL:1- CL:REM) +CL::%%LLSH1 (LLSH) CL::%%LRSH8 (LRSH) SEDIT::ASSIGN-FORMAT-QUOTE (SEDIT::SET-FORMAT SEDIT::GET-LIST-FORMAT +) PAINTW.CACHE.SHADE (NCONC1 LIST PAINTW.SHADE.LABEL) LINKPARAMETERS (MEMBTONODES TOLINKS) DC ( +NLAMBDA.ARGS ED ERROR) COMPILER::*COMPILE-DEFINER-CONTEXT* (COMPILER::MAKE-COMPILER-CONTEXT) +ICMLARRAY.MENUW.GETLEVEL (FM.ITEMPROP WINDOWPROP CL:ARRAY-DIMENSION CONS SUB1 LIST KWOTE PLUS MENU +TERPRI TTY.PROCESS THIS.PROCESS PROMPTFORWORD CONCAT U-CASE READ OPENSTRINGSTREAM PRIN1 FM.CHANGELABEL +) MAKEINTERPRESS (TEXTTOIMAGEFILE) \DEQUEUE (\DTEST UNINTERRUPTABLY) \INITCONSPAGE (RAID LOGXOR +\ADDBASE IDIFFERENCE) IRM.DISPLAY.REF (FASSOC DINFO.UPDATE LIST PRINTOUT PRIN1 GETPROMPTWINDOW) +\INSPECT/CODE/RESHAPEFN (WINDOWPROP SUB1 IDIFFERENCE FONTPROP IPLUS DSPYPOSITION) +COMPILER::COMPILE-FILE-PROCESS-FUNCTION (COMPILER::COMPILE-AND-DUMP) \ALLOCMDSPAGE (\GETBASEPTR +\PUTBASEFIXP IDIFFERENCE FOLDLO LRSH \ADDBASE \NEWPAGE) \NSFILING.EVENTFN (SELECTQ +\NSFILING.CLOSE.CONNECTIONS APPEND LOGAND CONSTANT LOGOR TERPRI CLOSEF \REMOVEDEVICE) TTY/EDITL (CLOCK + LAST GETPROP FMEMB CONS EDITL0 LIST IPLUS IDIFFERENCE) \TFBRAVO.INIT.CHARLOOKS (\TFBRAVO.GET.FONTSIZE + \TFBRAVO.GET.FONTSTYLE) \INVALIDATE.PROCESS.WINDOW (WINDOWPROP) \CLOSELEAFCONNECTION (LIST) +DELETE/AND/DISPLAY/LINK (TOLINKS TERPRI LINKPARAMETERS CONSTANT) EDITFB (EDITLOADFNS? NARGS LIST +TERPRI) \SETSPACE.PRESS (\BOUT IPLUS LLSH) LASTN (FNTH CONS NCONC1) COMPILER::*COMPILE-FILE-CONTEXT* ( +COMPILER::MAKE-COMPILER-CONTEXT) DRAWMARGINSCALE (DSPCLIPPINGREGION DSPOPERATION IREMAINDER +IDIFFERENCE LRSH STRINGWIDTH PLUS IPLUS IMINUS) \PFGetAllocationMapPage (\PFGetPage ELT FIXP +\PFVolumeNumber) DBG::SET-UP-DEBUGGER-WINDOW (WINDOWPROP WINDOWADDPROP THIS.PROCESS TTYDISPLAYSTREAM) +\TFBRAVO.WRITE.PARAGRAPH (SELECTQ ADD1 \TFBRAVO.WRITE.RUNS \TFBRAVO.APPLY.PARALOOKS) CL::%%LLSH8 (LLSH +) CL::OPTIMIZE-BYTE (+ CL:ASH) \NSFILING.GET.NEW.SESSION (\GETFILINGCONNECTION +\NSFILING.DISCARD.SESSION) \CHECKDSTCHANGE (IDIFFERENCE IGREATERP) NUMBERPAD.READER.HANDLE.CHAR ( +WINDOWPROP SELECTQ FIX SUB1 MKSTRING MKATOM SUBSTRING PLUS STRPOS IQUOTIENT MINUS FLOAT NCHARS ABS +ADD1 FQUOTIENT EXPT DIFFERENCE TIMES) SEDIT::SET-PROPS (LISTGET CL:FUNCTION XCL:SAVE-PROFILE +XCL:COPY-PROFILE SEDIT::EVAL-IN-PROCESS PROCESSPROP THIS.PROCESS TTY.PROCESS XCL::PROFILE-ENTRY-VALUE) + \TEDIT.UNDERLINE.SEL.ON (TEDIT.LOOKS) \TEXTMENU.SET.TOGGLE (MBUTTON.FIND.BUTTON FINDNODE-INDEX +TEXTOBJ) \SET.PROCESS.NAME (TYPENAME MKSTRING ERROR UNINTERRUPTABLY CONCAT PLUS) TB.DISPLAY.LINES ( +IMIN IMAX TB.NTH.ITEM DSPXPOSITION PLUS WINDOWPROP + TIMES -) CHECKCONSPAGES (NTYPX \MAPMDS FUNCTION) +CLISPFOR (DWIMUNDOCATCH LISTGET1 LIST RESETVARS .RESETLST. CONS CL:MULTIPLE-VALUE-PROG1 +.UNWIND.PROTECT. FUNCTION CL:CATCH XNLSETQ CLISPFOR0) \PEEKNS (COERCE-TO-NSADDRESS OPENP OPENFILE) +\MAPMDS (FIXP \TYPENUMBERFROMNAME IMIN NTYPX PLUS) COURIER.WRITE.BULKDATA (LENGTH \BOUT PLUS +IDIFFERENCE) \CHECKCONSPAGE (EVENP RAID \ADDBASE PLUS) SEDIT::SET-OPTIONS (LIST) CL::%%LRSH1 (LRSH) +\MAYBEPRINTPACKET (SELECTC SELECTQ APPLY*) CURSOR (IDIFFERENCE SUB1) TEDIT.DEACTIVATE.WINDOW ( +WINDOWPROP \TEDIT.QUIT REVERSE \TEDIT.UNSPLITW ATTACHEDWINDOWS TEXTOBJ DREMOVE) INSPECT.FLIPSELECTION +(BLTSHADE) \PROMISCUOUS.OFF (SELECTQ \PUTBASE EMADDRESS OPCODES \10MB.STARTDRIVER) +%%TYPE-SIZE-TO-TYPENUMBER (CL:ASSOC) \ETHEREVENTFN (SELECTQ \3MB.CREATENDB \10MB.CREATENDB \GETDTD +\ADDBASE ITIMES NTYPX \NS.SETTIME \PUP.SETTIME SELECTC \DoveMisc.TODValid > IDATE CONSTANT CL:FUNCALL +CLRHASH) \TFBRAVO.GET.FONTSTYLE (FASSOC) DBG::REUSE-CURRENT-WINDOW (PRINTOUT PROCESSPROP THIS.PROCESS +PRIN1) \FIXLINELENGTH.PRESS (IQUOTIENT IDIFFERENCE) COMPILER::EXPAND-OPENLAMBDA-CALL (CL:FUNCTION +CL:FIRST CONS) SEDIT::ASSIGN-FORMAT-LIST (CL:FUNCALL) CL::%%CONSTANT-BYTESPEC-P (CL:EVAL) +\TEDIT.STRIKEOUT.SEL.OFF (TEDIT.LOOKS) OPT.OPTCHECK (FMEMB TAILP OPT.COMPILERERROR EVERY CONS LIST +FASSOC MEMB) CL::%%RATIONAL-FLOAT (+ CL:ASH - CL::%%BUILD-RATIO) \LFRemoveDirEntry (\BOUT \BIN PLUS +SPREADAPPLY* IPLUS FORCEOUTPUT) UNDOEDITL (UNDOEDITCOM LIST CONS) SPP.OPEN (RESETLST \SPPCONNECTION +LISTGET SETUPTIMER IMAX TIMES NSNET.DISTANCE SELECTQ \SPP.CREATE.STREAMS) MSUPDATE (SUB1 PRIN2 +ALLCALLS APPLY* FMEMB FASSOC) \PFCreatePage (\PFTransferFilePage) CL::%%RATIONALIZE-FLOAT (+ CL:ASH - +IPLUS LLSH LRSH LOGAND \MAKEFLOAT CL:1- CONSTANT CL:*) \KEYHANDLER1 (LOCF \ADDBASE SUB1 FUNCTION +\GETBASE \BOXIDIFFERENCE \RCLK \DOMOUSECHORDING LOGAND FFETCHFIELD IPLUS) \TEDIT.STRIKEOUT.SEL.ON ( +TEDIT.LOOKS) SEEFILE (OPENP OPENSTREAM SUB1 GETEOFPTR BIN CONCAT CHARACTER IPLUS TERPRI PLUS) +COMP.STFN (COMP.ST CONS FASSOC IDIFFERENCE) \UNWIND.PROCESS (RETTO) DINFO.CREATE.FMENU (FONTP FREEMENU +) \FM.NWAY-MOVEDFN (ASSOC \FM.ITEMPROP LISTGET WINDOWPROP FFETCHFIELD BITBLT \FM.DISPLAYBITMAP) +MODERNWINDOW.UNSETUP (CL:PACKAGE-NAME CL:SYMBOL-PACKAGE CL:INTERN CONCAT) SEDIT::FIND-NODE ( +SEDIT::NEXT-LINEAR-ITEM IPLUS SEDIT::LINEAR-ITEM-WIDTH) SETQ (\SETVAR \EVAL) CL::%%FLOAT (\FLOATBOX +\VAG2) \TEDIT.UCASE.SEL (TEDIT.SEL.AS.STRING U-CASE) MSCOLLECTDATA (SELECTQ LDIFFERENCE MSCOLLECTDATA +UNION SHOULDNT FASSOC) \ETHERINIT (\DEFINEDEVICE FUNCTION) FB.HARDCOPY.DIRECTORY (RESETLST WINDOWPROP +DSPSCALE DSPRIGHTMARGIN DSPLEFTMARGIN DSPFONT CONCAT LIST* STREAMPROP TIMES TB.COLLECT.ITEMS IMAX +STRINGWIDTH + FB.HARDCOPY.MAXWIDTH LIST PLUS - FIXR IQUOTIENT RPLACA DSPXPOSITION) XYSECT (ITIMES IABS + IMINUS MSECT LINEY CONS) AND (\EVAL) /DWIMCHECKTRAN (GETHASH) EDITL0 (POSITION CLBUFS) WRITEIMAGEOBJ +(LIST KWOTE) PROCESSP (ALIVEPROCP FFETCHFIELD) SEDIT::QUERY-THROW-AWAY-CHANGES (MENU CL:FORMAT ASKUSER +) TB.LAST.VISIBLE.ITEM# (IMIN \DTEST CL:CEILING - DSPCLIPPINGREGION) DEL.PROCESS (\COERCE.TO.PROCESS +FIND.PROCESS THIS.PROCESS FUNCTION LIST) CL::BOA-ARG-LIST-WITH-INITIAL-VALUES (CL:COPY-TREE +CL::PS-ALL-SLOTS CL:MEMBER CL:ERROR CL::PSLOT-INITIAL-VALUE CL::FIND-SLOT) MAP.PROCESSES (APPEND +FFETCHFIELD) TEDIT.CARETLOOKS (TEXTOBJ \TEDIT.UNIQUIFY.CHARLOOKS \TEDIT.CARETLOOKS.VERIFY +\TEDIT.PARSE.CHARLOOKS.LIST) COMP.STPOP (RPTQ COMP.ST) STREAMPROP (PUTSTREAMPROP ARG GETSTREAMPROP +\ILLEGAL.ARG) \FM.NWAY-DOWNFN (ASSOC \FM.ITEMPROP LISTGET WINDOWPROP FFETCHFIELD BITBLT +\FM.DISPLAYBITMAP) \DSKDISPLAY.REPAINTFN (DIRECTORYNAME TERPRI MAPC \PFGetVols printout +\PFVolumeNumber) RELPROCESSP (DEADPROCP FFETCHFIELD) SPP.DESTADDRESS (GETSPPCON FFETCHFIELD LOCF +\ADDBASE) GETSTREAMPROP (SELECTQ \EXTERNALFORMAT LISTGET) \NSRANDOM.RELEASE.HANDLE (FREPLACEFIELD PLUS + FFETCHFIELD \NSRANDOM.RELEASE.LOCK) \TEXTMENU.TOGGLE.INIT (IMAGEFNSCREATE FUNCTION) \LFReturnNextFile + (FRPLACA) PUTSTREAMPROP (SELECTQ \EXTERNALFORMAT LISTGET LIST) MAKEFILE (MKLIST ADDFILE GETPROP +SELECTQ SHOULDNT ASKUSER FINDFILE FILEDATE FILEPKG.CHANGEDFNS INFILEP FILEPKG.MERGECHANGES CONS LIST +RESETSAVE MAPC ERSETQ EVAL PRETTYDEF ASSOC MEMB) CHECKFORCHANGED (MSINTERPRETSET UPDATEFN) +PROCESS.RETURN (RETTO) \PFCreateFreePage (\PFCreatePage ELT FIXP \PFVolumeNumber) RESTART.PROCESS ( +\COERCE.TO.PROCESS FIND.PROCESS UNINTERRUPTABLY THIS.PROCESS RETTO FUNCTION LIST) \GETFILINGCONNECTION + (WITH.MONITOR CL:MULTIPLE-VALUE-PROG1 .UNWIND.PROTECT. FUNCTION \VALID.FILING.CONNECTIONP +\NSFILING.DISCARD.SESSION \NSFILING.LOGIN) *ATTACHED-WINDOW-COMMAND-SYNONYMS* (LIST CONS) +TB.RECONSIDERRANGE (IMIN IMAX TB.NTH.ITEM PLUS) INSTALL-PROTOTYPE-DEFN (CL:FLET CL:FORMAT MKLIST +XCL::PROTOTYPE-DEFN-TYPES INTERSECTION APPEND MAPCAR LIST MENU XCL::PROTOTYPE-DEFINERS-FOR-TYPE) +OPT.CCHECK (OPT.COMPILERERROR) TB.REPLACE.ITEMS (\DTEST PLUS ADD1 TB.FIND.SELECTED.ITEM +TB.REV.FIND.SELECTED.ITEM DSPCLIPPINGREGION TB.DISPLAY.LINES TB.FIRST.VISIBLE.ITEM# +TB.LAST.VISIBLE.ITEM#) MSSOLVE (MSLISTSET SELECTQ OUTPUT CL:VALUES LIST PRINT SUBSET MSMEMBSET) +MSUPDATEFN1 (GETRELQ UNION GETTABLE FASSOC TESTRELQ TESTTABLE MSGETDEF) WAKE.PROCESS ( +\COERCE.TO.PROCESS FIND.PROCESS \RUN.PROCESS) \VFMSplit1 (\VFMGetBufferFor IQUOTIENT \ADDBASE +IDIFFERENCE \BLT MESASIZE) EDITL1 (ERSETQ LISPXREAD XNLSETQ EDITCOM CONS LIST CLBUFS) SCALEREGION (FIX + FTIMES) \SUSPEND.PROCESS (UNINTERRUPTABLY) DINFO.ICONFN (WINDOWPROP TITLEDICONW) \FM.NWAY-MESSAGE ( +LISTGET ASSOC \FM.ITEMPROP WINDOWPROP SELECTQ) SEDIT::FINALIZE-MOUSE-SELECTION (FREPLACEFIELDVAL +REPLACEFIELDVAL FETCHFIELD SEDIT::SHOW-CARET) SPP.DSTYPE (GETSPPCON FFETCHFIELD LOGAND +\SPP.PREPARE.INPUT SPP.STREAM.ERROR SPREADAPPLY*) SUSPEND.PROCESS (\COERCE.TO.PROCESS FIND.PROCESS +THIS.PROCESS) PROMPTINWINDOW (NUMBERP HEIGHTIFWINDOW ITIMES FONTPROP DEFAULTFONT WIDTHIFWINDOW IMAX +STRINGWIDTH CREATEW CREATEREGION DIFFERENCE CARET ERSETQ PROMPTFORWORD LIST ERROR!) +\TEXTMENU.TOGGLE.WHENOPERATEDFN (SELECTQ \TEXTMENU.TOGGLE.SHOWSELFN) PLCHAIN (PLCHAIN) PROCESS.RESULT +(\DTEST FFETCHFIELD CREATE.EVENT CONCAT) SEDIT::AWAKE-ME (STKPOS) COMPILER::COMPLETELY-EXPAND ( +COMPILER:OPTIMIZE-AND-MACROEXPAND-1) CL::BOA-SLOT-SETFS (CL::PS-TYPE) DBG::*DEBUGGER-TERMINAL-TABLE* ( +COPYTERMTABLE) SELECT.FNS.EDITOR (MENU APPEND) \POSTSCRIPT.SPECIALFONT.SCALEDWIDTHS (PSCFONT.SPELLFILE + PSCFONTFROMCACHE.SPELLFILE PSCFONT.READFONT) LISTPUT (ERRORX LIST CONS) \TEDIT.UNDERLINE.SEL.OFF ( +TEDIT.LOOKS) FB.ICONFN (TITLEDICONW WINDOWPROP) \CURVE (\DSPTRANSFORMX IPLUS IDIFFERENCE LRSH SUB1 +\DSPTRANSFORMY IABS IMINUS ADD1 ITIMES DSPDESTINATION \GETBASE \TOTOPWDS \FBITMAPBIT \BBTCURVEPT +\CONVERTTOFRACTION FPLUS \GETINTEGERPART IMAX FQUOTIENT PLUS) TEDIT.KILL (WINDOWPROP THIS.PROCESS) +KNOTLINE (XYPT.X XYPT.Y MAKELINE DIFFERENCE CONS REVERSE) PROCESS-STATUS (FIND.PROCESS \STACKARGPTR) +DINFO.FMW.CLOSEFN (WINDOWPROP DINFOGRAPH REMOVEPROMPTWINDOW) \FM.NWAY-SETUP (\FM.ITEMPROP FFETCHFIELD +FUNCTION LISTGET) \KEYBOARDOFF (LOGAND LOGXOR \GETBASE) FB.SET.DEFAULT.NAME.WIDTH (IPLUS DSPLEFTMARGIN + CHARWIDTH) \DOMOUSECHORDING (LOGXOR LOGAND LIST LOGOR \RCLK LOCF \ADDBASE) \TEXTMENU.TOGGLE.SHOWSELFN + (IMAGEOBJPROP IMAGEBOX) \LFFindNextFile (\LFDirectorySearch \GETFILEPTR SPREADAPPLY* \BIN \WIN IPLUS +LLSH LIST PLUS \LFFileName CONCAT SUBSTRING) PROCESS.FINISHEDP (\DTEST FFETCHFIELD) \PFTrimHelper ( +\PFDsplyVolumes) \TRACKCURSOR (\BLT LOCF \ADDBASE IDIFFERENCE IPLUS SUB1 UNSIGNED LOGAND IMINUS LLSH +\PUTBASE) TB.SET.FONT (FONTCREATE DSPFONT FONTPROP TIMES - DSPCLIPPINGREGION WINDOWPROP CL:FUNCALL) +\SPP.STREAM.LOST (SPP.STREAM.ERROR SPREADAPPLY* GETSPPCON FFETCHFIELD) \DEFPRINT.BY.NAME (IPLUS + +NCHARS FRESHLINE MKSTRING) TB.CONSIDERRANGE (IMIN IMAX TB.NTH.ITEM PLUS) INSPECT.INVERTREGION ( +BLTSHADE) NCHARS (IPLUS \GTREADTABLE SUB1 ADD1 \GETBASEFAT \GETBASE \GETBASETHIN \GETBASEBYTE FUNCTION +) FB.GET.NEWPATTERN (FB.PROMPTFORINPUT DIRECTORY.FILL.PATTERN) NOTIFY.EVENT (\DTEST) \OUTCHAR ( +CL:FUNCALL) \DOBUFFEREDTRANSITIONS (\ADDBASE IPLUS \STKSCAN INTERRUPTED) \PRINTADDR (WITH-RESOURCES +SELECTQ SYSTEMTYPE \CONVERTNUMBER \HILOC \CKPOSSOUT \LOLOC LOGAND LOC SYSTEMTYPEPUNT GETRESOURCE +NEWRESOURCE ALLOCSTRING CONCAT) SEDIT::GET-CONTEXT (SEDIT::SUBNODE CREATE.EVENT CONCAT) MSSHOWUSE ( +MSGETDEF EDITLOADFNS? GETPROP LIST FUNCTION TERPRI FRPLNODE CONS APPLY* ASSOC GETRELATION +PARSERELATION) COMPILER::ALPHA-UNWIND-PROTECT (COMPILER::MAKE-UNWIND-PROTECT COMPILER::ALPHA-LAMBDA +CL:GENSYM) CALLS (GETRELATION SUBSET GETPROP CONS LIST GETD GETP FNCHECK CALLSCCODE FRPLACA PACK* +NCONC RESETVARS .RESETLST. CL:MULTIPLE-VALUE-PROG1 .UNWIND.PROTECT. FUNCTION APPLY* ALLCALLS UNION +CONSTANT MSVBNOTICED ASSOC COLLECTFNDATA) \SOUT (SUB1 IPLUS ADD1 \GETBASEFAT \GETBASE \GETBASETHIN +\GETBASEBYTE) EDITL2 (LISPXPRIN1) FRESHLINE (OVERWRITEABLE LOGAND \EOFP SPREADAPPLY* GETSTREAM) +MSNLAMBDACHECK (SUBSET GETRELQ UNION GETTABLE FASSOC MSMARKCHANGE1) PROCESS.TTY (\COERCE.TO.PROCESS +FIND.PROCESS THIS.PROCESS PROCESS.EVALV) CL::ARGUMENT-NAMES (CL:MAPCAN CL:FUNCTION) PRINTERRORXIP ( +\DTEST PRIN1 ASSOC CONCAT OCTALSTRING PRIN2) TTY.PROCESSP (THIS.PROCESS TTY.PROCESS) +\TEDIT.SUPERSCRIPTSEL (TEDIT.LOOKS LIST) \LEAF.ACKED (FREPLACEFIELD PLUS FFETCHFIELD) \CARET.DOWN ( +SETUPTIMER) YSECT (ITIMES IABS IMINUS MSECT LINEY) \STREAM.DEFPRINT (SELECTC \DEFPRINT.BY.NAME CONCAT +CL:STRING-CAPITALIZE STRING) CL:STRING-CAPITALIZE (WITH-ONE-STRING CL:MAKE-STRING) MSCHECKEMPTY ( +TERPRI FILEPKGCHANGES APPEND LIST ASKUSER ITIMES CONS) TB.SCROLLFN (RESETLST WINDOWPROP SCROLLW +TB.BROWSER.BUSY) GIVE.TTY.PROCESS (WINDOWP WINDOWPROP FFETCHFIELD LOGAND) \NSFILING.LOGIN (RESETLST +RESETSAVE LIST FUNCTION MKATOM NSNAME.TO.STRING \INTERNAL/GETPASSWORD SELECTQ CONCAT +\NSFILING.COURIER.OPEN NS.MAKE.SIMPLE.CREDENTIALS COURIER.CALL PRIN1 CONS \GET.COURIERPROGRAM GETHASH +CREATE.MONITORLOCK \CREATECELL FRPLACD \MAKE.PMAP.DEVICE) NSMAP (ARRAY PLUS SETA FIXP CHARCODE.DECODE +LOGOR LLSH) MASTERSCOPE (MSINTERPRET MKLIST PRINTOUT TERPRI) \NSFILING.UPDATE.ATTRIBUTES (NCONC LIST) +\DSKDISPLAY.BUTTONEVENTFN (LOGAND \DSKDISPLAY.REPAINTFN DSKDISPLAY MENU) SPP.SENDEOM (GETSPPCON +FFETCHFIELD WRITEABLE OVERWRITEABLE LOGAND \EOFP SPREADAPPLY* \SPP.PREPARE.OUTPUT \SPP.STREAM.LOST) +\FDEV.DEFPRINT (\DEFPRINT.BY.NAME) PAINTW.READ.AND.SAVE.SHADE (EDITSHADE BITMAPCREATE) GETTEMPLATE ( +SETTEMPLATE) MSNOTICEFILE (FASSOC FILECOMS FINDFILE NAMEFIELD GETATOMVAL GETPROP EVALV ASKUSER LIST +RESETVARS .RESETLST. CONS CL:MULTIPLE-VALUE-PROG1 .UNWIND.PROTECT. FUNCTION GETP INFILEP) \GETACCESS ( +SELECTC SHOULDNT) CH.CHANGE.ITEM (COURIER.EXPEDITED.CALL CH.FINDSERVER PARSE.NSNAME FIXP CH.PROPERTY +COURIER.WRITE.REP CH.GETAUTHENTICATOR) VERBNOTICELIST (UNION VERBNOTICELIST MSVBTABLES TERPRI ERROR!) +EDITBF (CONS EDITFPAT NCONC MEMB TAILP) \DSPFONT.PRESS (\GETFONTDESC FONTCOPY \GETCHARSETINFO +\GETBASEPTR UNFOLD LLSH \CREATECHARSET \DEFINEFONT.PRESS LOGOR FIXR TIMES \FGETWIDTH \GETBASE +IDIFFERENCE CONSTANT IMINUS FONTPROP) DBG::SIMPLE-REPORT-CONDITION (CL:PRINC) \INTERPRESSINIT ( +FUNCTION NSMAP) APPEND (\APPEND2 ARG PLUS) MENU.HANDLER (RESETLST RESETSAVE LIST LASTMOUSESTATE LOGAND + SETUPTIMER FIXP GRIDYCOORD LASTMOUSEY GRIDXCOORD LASTMOUSEX \MENU.ITEM.SELECT ERSETQ ZEROP WHICHW +PLUS MENU NESTED.SUBMENU.POS GETMENUITEM \FDECODE/BUTTON CONS ERROR!) \PERIODIC.INTERRUPTFRAME ( +SPREADAPPLY*) ALLOW.BUTTON.EVENTS (THIS.PROCESS SPAWN.MOUSE) FAX.PROPERTIES (NSPRINTER.PROPERTIES +\FAX.PARSE.NAME) \SPP.PREPARE.INPUT (GETSPPCON FFETCHFIELD \LOLOC \ADDBASE PLUS \GETSPP LIST +IDIFFERENCE CONSTANT IPLUS) INPUT (\GETSTREAM) EDITQF (MEMB CONS) OPT.DS1 (OPT.CODEFRAME OPT.DEFREFS +OPT.DS1 CONS SUB1) \PFSaveBuffers (\VFMSaveBuffer) CL::DEFINE-CONSTRUCTORS (CL::PS-CONSTRUCTORS +CL::PS-ALL-SLOTS CL::PS-NAME CL:EVERY CL:FUNCTION CL::PS-EXPORT CL:MAPCAR CL::BUILD-CONSTRUCTOR-ARGLIST + CL::BUILD-CONSTRUCTOR-SLOT-SETFS) \SETACCESS (FUNCTION) WINDOW.BITMAP (WINDOWPROP BITMAPCREATE) +TEDIT.INSERT.UPDATESCREEN (IPLUS SELECTQ DSPCLIPPINGREGION LLSH SHOULDNT) \SOFTCURSORPOSITION ( +\GETBASE) MSGETDEF (GETRELATION PARSERELATION APPLY* ASSOC LIST FASSOC EDITGETDEF CL:VALUES) +\STREAM.NOT.OPEN (LISPERROR) NEWLINE.IP (PLUS) \FM.STATE-CHANGESTATE (LISTGET \FM.ITEMPROP FFETCHFIELD + FM.CHANGELABEL) CLOSEMAINWINDOW (WINDOWPROP) \LEAF.FIX.BROKEN.SEQUIN (\GETDEVICEFROMNAME +OPENPUPSOCKET \SEQUIN.RETRANSMIT LIST PRIN1 FDEVOP SPREADAPPLY* \LEAF.RECONNECT FUNCTION +\LEAF.REPAIR.BROKEN.PUP \LEAF.USE.NEW.CONNECTION TERPRI SETUPTIMER .NAMEORSTREAM.) SEDIT::EXPANDREGIONFN + (WINDOWPROP SEDIT:GET-WINDOW-REGION SEDIT::LESS-PROMPT-WINDOW) MODERNWINDOW.BUTTONEVENTFN (LOGAND +WINDOWPROP ATTACHEDWINDOWREGION CENTRALWINDOW FONTPROP INCORNER.REGION APPLY*) XSECT (ITIMES IABS +IMINUS MSECT LINEY) PROCESS.WINDOW (\COERCE.TO.PROCESS FIND.PROCESS \INSUREWINDOW) \PFI.DO.HARDCOPY ( +WITH.MONITOR CL:MULTIPLE-VALUE-PROG1 .UNWIND.PROTECT. FUNCTION) BPNT0 (LVLPRINT ERROR!) +ONED.TRACKCURSOR (LOGAND LASTMOUSEX LASTMOUSEY STRINGWIDTH CL:FUNCALL IPLUS ADD1 IDIFFERENCE) +\INSTALL.EXTERNALFORMAT (MKATOM CONS ERROR) \NSFILING.CLOSEFILE (LISTGET \BULK.DATA.CLOSE LOGAND +CONSTANT LOGOR CONCAT \NSFILING.ADD.TO.CACHE) \NSADDRESS.PRINT.DECIMAL (CL:TRUNCATE CONS) OPENW ( +\INSUREWINDOW WINDOWPROP) FAX.STATUS (NSPRINTER.STATUS \FAX.PARSE.NAME) SPP.CLOSE (GETSPPCON +FFETCHFIELD \TERMINATESPP) \REMOVE.EXTERNALFORMAT (MKATOM DREMOVE) \TFBRAVO.HANDLE.HEADING ( +\TFBRAVO.PARSE.PARA GETFILEPTR LIST GENSYM) PAINTW.READBRUSHSHADE (MENU APPEND MAPCAR LIST KWOTE +PAINTW.READ.AND.SAVE.SHADE) RECLOOK (RECLOOK1 FIXSPELL NCONC MAPCONC RECORDECL LIST RECORD.NAME MAPCAR + RECLOOK) ENCAPSULATEDIMAGEFNS (ASSOC IMAGEFNSCREATE FUNCTION CONS) MKATOM (\MKATOM LISPERROR PACK*) +GET.MENU.LIST (CL:ARRAY-RANK CL:ARRAY-DIMENSIONS) MSOUTPUT (OUTPUT LIST LINELENGTH) CL:ARRAY-RANK-LIMIT + (EXPT) RECORDFIELD? (STRPOS SUBATOM SUB1 RECORDFIELD? ADD1 RECORD.FIELDNAMES RECORDECL RECORD.NAME) +TB.REPAINTFN (WINDOWPROP TB.DISPLAY.LINES TB.FIRST.VISIBLE.ITEM# TB.LAST.VISIBLE.ITEM# TB.BROWSER.BUSY +) \DEFINEFONT.PRESS (FASSOC FREPLACEFIELD CONS PLUS FFETCHFIELD) DBG::PRINT-ENTRY-MESSAGE (NLSETQ +CL:PRINC CL:TYPE-OF \HILOC \LOLOC) TB.CONTIGUOUS.SELP (TB.NTH.ITEM PLUS) \NSFILING.DISCARD.SESSION ( +DREMOVE FRPLACD) \TEDIT.SMALLER.CARET (\TEDIT.PARSE.CHARLOOKS.LIST) CREATE.NUMBERPAD.READER (RESETFORM + RADIX FONTCREATE CONS APPEND FONTPROP LIST FUNCTION IPLUS CREATEW REGIONONSCREEN WIDTHIFWINDOW ITIMES + ADD1 CHARWIDTH HEIGHTIFWINDOW LENGTH BREAK.MSG.INTO.LINES TERPRI IQUOTIENT) \TEDIT.SUBSCRIPTSEL ( +TEDIT.LOOKS LIST) \FM.STATE-SELECTEDFN (LIST \FM.ITEMPROP LISTGET MENU APPLY* \FM.STATE-CHANGESTATE) +ICONBUTTONEVENTFN (LOGAND CURSOR MOVEW) \LEAF.HANDLE.INPUT (\DEQUEUE SHOULDNT PLUS FFETCHFIELD +RELEASE.PUP LIST FUNCTION KWOTE) DISMISS (SETUPTIMER IMIN GETRESOURCE NEWRESOURCE \DTEST BLOCK) +SEDIT::EXPANDFN (WINDOWPROP) LINEY (IPLUS IQUOTIENT IDIFFERENCE \IRND ITIMES) DREMOVE (DREMOVE) +TB.BUTTONEVENTFN (MODERNWINDOW.BUTTONEVENTFN FUNCTION) DINFO.CLOSEFN (WINDOWPROP) \TEXTMENU.TOGGLEFN ( +IMAGEOBJPROP SELECTQ TEXTSTREAM) OPT.DEADSETQP (SELECTQ OPT.DS1) \GET.EXTERNALFORMAT.FROM.NAME (MKATOM +) FB.DATE (DATE CONCAT SUBSTRING CHCON1) EDIT%: (MAPCAR COPY EDITCOMS CONS LIST) \PROC.RESUME ( +\MYALINK OPCODES \DECUSECOUNT) CL::DEFINE-BOA-CONSTRUCTOR (CL::BOA-ARG-LIST-WITH-INITIAL-VALUES +CL::PS-NAME CL::BOA-SLOT-SETFS CL::ARGUMENT-NAMES) MSSETUP (HASHARRAYP HASHARRAY MSSETWORDTYPE CONS +MAPC SETSYNONYM) WAITFORINPUT (GLOBALRESOURCE \CLOCK0 IDIFFERENCE GETRESOURCE NEWRESOURCE SETUPTIMER +\GETSTREAM) UPDATEFN (LITATOM TESTRELQ TESTTABLE FASSOC MSGETDEF SELECTQ TERPRI LIST) \INSERTCH ( +NCHARS SUB1 IPLUS ADD1 \GETBASEFAT \GETBASE \GETBASETHIN \GETBASEBYTE IGREATERP IDIFFERENCE LIST +SUBSTRING ALLOCSTRING \INSERTPIECE NCONC1 FRPLACA PLUS \CHTOPC \TEDIT.UNIQUIFY.PARALOOKS \SPLITPIECE - + IEQP) \TIMER.INTERRUPTFRAME (QUOTIENT TIMES LOCF \ADDBASE) TITLEW.BUTTONEVENTFN (MAINWINDOW +WINDOWPROP XCL::PROFILIZE CL:PROGV XCL::PROFILE-VARIABLES XCL::PROFILE-VALUES APPLY*) \LFFindInfo ( +REVERSE \LFOpenOldFile \LFReadFileID FRPLACA CONS GETFILEINFO) EVAL.IN.TTY.PROCESS (\EVAL PROCESS.EVAL + TTY.PROCESS) TB.NUMBER.OF.ITEMS (\DTEST SELECTQ TB.NTH.ITEM ADD1 PLUS \ILLEGAL.ARG) +\LFWriteLeaderPage (\PFFindPageAddr) \WAITFORSYSBUFP (GLOBALRESOURCE \CLOCK0 GETRESOURCE NEWRESOURCE +SETUPTIMER) CL::%%MAKE-SMALL-FIXP-ACCESSOR (CL:FUNCTION) \PFGetFreePage (\PFGetPage ELT FIXP +\PFVolumeNumber) EVAL.AS.PROCESS (ADD.PROCESS \EVAL) \COERCE.NS.SOCKET (SUB1) \DOTRANSITIONS (LLSH +LOGAND LOGXOR IPLUS LRSH PLUS) NEXTSIZEFONT (FONTPROP FONTNAMELIST) \TK.DESCRIBEFONT (CONCAT L-CASE +FONTPROP) \FM.STATE-SETUP (\FM.ITEMPROP FFETCHFIELD FUNCTION LISTGET APPLY) CLOSEICONWINDOW ( +WINDOWPROP) TB.COPYBUTTONEVENTFN (WINDOWPROP TOTOPW DSPCLIPPINGREGION LASTMOUSEX LASTMOUSEY +TB.ITEM.FROM.YCOORD KEYDOWNP ZEROP LOGAND) SEDIT::DRAW-UNDERLINE (IDIFFERENCE BLTSHADE) \SPP.ESTABLISH + (LOCF \ADDBASE \SPP.CREATE.CON CONCAT PROCESSPROP OCTALSTRING \SPP.CREATE.STREAMS +CL:MULTIPLE-VALUE-PROG1 .UNWIND.PROTECT. FUNCTION \SPP.PROBE LIST SPPOUTPUTSTREAM) +\CREATE.THROUGH.EXTERNALFORMAT (\INSTALL.EXTERNALFORMAT FUNCTION) SEDIT::REPAINT (DSPXPOSITION +IDIFFERENCE BITMAPWIDTH) \LFHighestVersions (LIST) DEFAULT.ADDNODEFN (PROMPTINWINDOW PACK* GENSYM +NODECREATE CURSORPOSITION) \THROUGHOUTCHARFN (\CHARSET LRSH \BOUT \CHAR8CODE LOGAND) COMPILER::ALPHA-TAGBODY + (COMPILER::MAKE-TAGBODY) ONFILE (MAPCAR SELECTQ GETRELATION FMEMB FILECOMS CONS UNION FILECOMSLST +WHEREIS) FB.FASTSEECOMMAND (FB.SELECTEDFILES FB.FETCHFILENAME CREATEW FUNCTION LIST CL:CATCH +FB.FASTSEE.ONEFILE) DBG::EMERGENCY-PANIC-LOOP (PRIN1 TERPRI) TB.DECONSIDERRANGE (IMIN IMAX TB.NTH.ITEM + PLUS) CH.ADD.ITEM.PROPERTY (PARSE.NSNAME COURIER.CALL CH.FINDSERVER FIXP CH.PROPERTY +COURIER.WRITE.REP CH.GETAUTHENTICATOR) \PEEKBIN (FDEVOP SPREADAPPLY*) \TEDIT1 (OPENTEXTSTREAM TEXTPROP + COERCETEXTOBJ) FB.BROWSECOMMAND (FB.SELECTEDFILES FB.FETCHFILENAME UNPACKFILENAME.STRING MEMB NCHARS +MKATOM LDIFF LISTGET CL:APPLY CONCAT GETHOSTINFO DIRECTORYNAMEP) CLISPRPLNODE (LIST FRPLACD ERRORX) +\THROUGHIN (\BIN) \TFBRAVO.FIND.LAST.TRAILER (GETSTREAM GETFILEPTR \BACKBIN CHARACTER \PEEKBIN) +WINDOW.MOUSE.HANDLER (WHICHW DOUSERFNS LOGAND KEYDOWNP OPENWP WINDOWPROP SUB1 APPLY*) +INTERPRESS.OUTCHARFN (IGREATERP \GETBASE \CHARSET LRSH SELCHARQ NEWLINE.IP \DSPXPOSITION.IP DSPNEWPAGE + \FGETWIDTH \CHAR8CODE LOGAND +) \DECODETRANSITION (\BLT LOCF \ADDBASE \TRANSINDEX IPLUS +TRANSITIONFLAGS \GETBASEBYTE TRANSITIONSHIFTCODE \GETBASE TRANSITIONCODE LOGAND LOGOR) PROCESS.READ ( +TTY.PROCESS NLSETQ THIS.PROCESS TTYDISPLAYSTREAM READ) COMPILER::COMPILE-FILE-PROCLAMATION (DECLARE +CL:EVAL CL:SECOND COMPILER::FIND-TOP-ENVIRONMENT CL:CERROR) \FM.3STATE-CHANGESTATE (SELECTQ +\FM.ITEMPROP FFETCHFIELD LISTGET) \NOTENEWICONPOSITION (WINDOWPROP) \LEAF.TIMEDOUT ( +\SEQUIN.FLUSH.CONNECTION \LEAF.STREAM.IN.QUEUE PRIN1 +) SEDIT::DRAW-OUTLINE (IDIFFERENCE IPLUS SUB1 +BLTSHADE) TTYDISPLAYSTREAM (\OUTSTREAMARG \GETSTREAM DISPLAYSTREAMP TEXTSTREAMP \CARET.DOWN WFROMDS +THIS.PROCESS WINDOWPROP \CREATELINEBUFFER IMAGESTREAMTYPE IQUOTIENT IDIFFERENCE IABS IMINUS) +PRINTXIPDATA (PRINTPACKETDATA -) PROCESS.EVAL (\COERCE.TO.PROCESS FIND.PROCESS THIS.PROCESS CL:EVAL +CONS LIST) PP (MAPC NLAMBDA.ARGS TYPESOF SHOWDEF) MB.NWAYBUTTON.ADDITEM (CONS IMAGEOBJPROP FONTPROP +MAPCAR STRINGWIDTH BITMAPCREATE LIST DSPCREATE IPLUS PLUS ITIMES LENGTH) OPT.EQVALUE (SELECTQ +OPT.SKIPPUSH) \PROCESS.EVAL1 (CL:MULTIPLE-VALUE-PROG1 .UNWIND.PROTECT. FUNCTION \EVAL) +COURIER.SKIP.SEQUENCE (GETWORD IPLUS LLSH \BIN PLUS) SHOWPRESSBITMAPREGION (OPENIMAGESTREAM CLOSEF) +\TEXTMENU.TOGGLE.CREATE (IMAGEOBJCREATE STRINGWIDTH FONTPROP BITMAPCREATE DSPCREATE IMAGEOBJPROP) +CL::%%MAKE-FLOAT-ACCESSOR (CL:FUNCTION) \PFPutMarkerPage (FIXP \PFVolumeNumber \PFPutPage ELT IPLUS +LvBasePageAddr FFETCHFIELD FMESAELT \ADDBASE ILEQ ITIMES IDIFFERENCE MarkerPageAddr) LOOKUP.NS.SERVER +(PARSE.NSNAME CH.RETRIEVE.ITEM CH.PROPERTY CONS LIST) PRESSWINDOW (OPENPRSTREAM LIST WINDOW.BITMAP +WHICHW BITMAPWIDTH BITMAPHEIGHT IPLUS IQUOTIENT IDIFFERENCE ITIMES CLOSEF) COMPILER::ALPHA-SETQ ( +MAPLIST COMPILER::MAKE-SETQ COMPILER::RESOLVE-VARIABLE-REFERENCE COMPILER::ALPHA-ARGUMENT-FORM +COMPILER::MAKE-PROGN) SET (LISPERROR \STKSCAN \DTEST \HILOC) \CREATECHARSET.IP (RESETLST FIXR +FQUOTIENT ITIMES \FINDFONTFILE OPENSTREAM \POSITIONFONTFILE \FAMILYCODE \BIN PLUS LLSH IPLUS LOGAND +LRSH \WIN ABS IDIFFERENCE \BUILDSLUGCSINFO FONTPROP ZEROP UNFOLD \FIXPIN SIGNED SUB1 IMINUS IQUOTIENT +\PUTBASE \GETOFD \GETSTREAM IMIN ADD1 GETFILEINFO GETFILEPTR \FGETWIDTH \GETBASE GETEOFPTR +\CREATECSINFOELEMENT \ALLOCBLOCK FOLDHI) \NSRANDOM.ENSURE.WATCHER (ADD.PROCESS LIST FUNCTION CONCAT) +\NSADDRESS.DEFPRINT (+ CL:ASH \GETBASE IPLUS SELECTQ IQUOTIENT CL:INTEGER-LENGTH FRESHLINE) \UNCOMMA ( +SELECTQ \UNCOMMA CONS LIST) EDITCALLERS (EDITFPAT CONS MKLIST UNION LIST RESETLST FINDFILE LISPXPRINT +FUNCTION OPENSTREAM FULLNAME GET-ENVIRONMENT-AND-FILEMAP \PARSE-FILE-HEADER SEPRCASE ASSOC MAPCAR +CONCAT CHCON1 SUBSTRING STRPOS SUB1 STRINGP CL:SYMBOL-PACKAGE MKSTRING FFILEPOS GETFILEMAP LOADFILEMAP + LISPXPRIN2 FMEMB DREVERSE) CLISPFUNCTION? (GETPROP UNPACK MISSPELLED? CONCAT APPLY* CONS) +\BACKFILEPTR (FDEVOP SPREADAPPLY*) SPP.CLEAREOM (GETSPPCON FFETCHFIELD ERROR) \NSPRINT.MEDIUM.CHECK ( +UPPERCASEARRAY) COMPILER::ALPHA-RETURN-FROM (CL:ASSOC COMPILER::MAKE-RETURN COMPILER::BLOCK-CONTEXT +COMPILER::ALPHA-FORM) %## (EVQ EDITL0) \FAX.PARSE.NAME (STRPOS SUBSTRING SUB1 LIST ADD1 IPLUS +\GETBASEFAT \GETBASE \GETBASETHIN \GETBASEBYTE ILEQ ASSOC MKATOM U-CASE CONCAT CONS) +\TEDIT.NEWREGIONFN (IDIFFERENCE IPLUS IMAX IMIN) \DEFINEDEVICE (U-CASE FASSOC DREMOVE CONS RPLACD +ERROR) CREATEARRAYSLICE (CL:ARRAY-RANK CL:ARRAY-DIMENSIONS REVERSE CONS ITIMES IPLUS DREVERSE +%%FLATTEN-ARRAY) RECORDFIELDNAMES (RECORDECL RECLOOK RECORD.FIELDNAMES RECORD.DECL FNTH RECORD.SUBDECS + CONS RECORDFIELDNAMES RECORD.FIELDINFO RECORD.NAME) \PUTSYSBUF (\PUTBASE ADD1) PARSERELATION (CONS +MAPCAR PARSERELATION1 FASSOC) NEWPAGE.PRESS (\STARTPAGE.PRESS) U-CASE (WITH-RESOURCE ADD1 \GETBASEFAT +\GETBASE \GETBASETHIN \GETBASEBYTE \PUTBASEFAT \PUTBASE \PUTBASETHIN \PUTBASEBYTE IPLUS IDIFFERENCE +PLUS CL:SYMBOL-PACKAGE \MKATOM GETRESOURCE NEWRESOURCE ALLOCSTRING SUB1 \NSTRINGCHARS FFETCHFIELD CONS + U-CASE) \NSPRINT.COURIER.OPEN (COURIER.OPEN PACK*) \VALID.FILING.CONNECTIONP (\INTERNAL/GETPASSWORD) +\VFMMerge1 (\BLT MESASIZE \VFMGetBufferFor SUB1 ILESSP IPLUS \ADDBASE IQUOTIENT IDIFFERENCE) +\GETMISCSOCKET (OPENPUPSOCKET) \DSKDISPLAY.CREATE.WINDOW (CREATEW IPLUS ITIMES FONTPROP LENGTH +\PFGetVols FUNCTION WINDOWPROP) FB.GETALLFILEINFO (\GENERATEFILEINFO SELECTQ FOLDHI LRSH IPLUS +SHOULDNT LIST) CLEARW (\INSUREWINDOW DSPRESET) FB.MAKECOUNTERWINDOW (CREATEW WINDOWPROP FUNCTION) +DINFO.SHRINKFN (CLOSEW DINFOGRAPH) MEASUREGRAPHNODE (SET/LAYOUT/POSITION ERROR) SETSYNONYM (LIST ATOM +GETWORDTYPE FASSOC GETHASH CONS) FILES?PRINTLST (MAPRINT FUNCTION) FB.ADD.FILEGROUP (STRING-EQUAL MAPC + SORT MAPCAR CONS FB.ADD.FILE) \PROCESS.APPLY1 (CL:MULTIPLE-VALUE-PROG1 .UNWIND.PROTECT. FUNCTION +APPLY) FB.MAKEHEADINGWINDOW (CREATEW FUNCTION) FB.HARDCOPY.TOFILE (FB.PROMPTFORINPUT +PACKFILENAME.STRING \FB.HARDCOPY.TOFILE.EXTENSION FB.FETCHFILENAME UNPACKFILENAME.STRING STRPOS +SUBSTRING SUB1 ADD1 MKATOM U-CASE CONS FILENAMEFIELD ASSOC MENU MakeMenuOfImageTypes PRINTFILEPROP +PRINTFILETYPE LISTGET CONCAT CL:APPLY CL:FUNCALL) \EVENTKEYS (LOGOR) NEWLINE.PRESS (IPLUS) +PROCESS.APPLY (\COERCE.TO.PROCESS FIND.PROCESS THIS.PROCESS APPLY LIST* LIST) \PUT.SESSION.HANDLE ( +\DTEST ERROR) ATTACHEDWINDOWTOTOPFN (MAINWINDOW TOTOPW) PUPSOCKETEVENT (\DTEST) \GETDEVICEFROMNAME ( +FILENAMEFIELD \GETDEVICEFROMHOSTNAME LISPERROR) COMPILER::COMPILE-FILE-DEFINE-FILE-INFO (CL:EVAL) +\LEAF.WHENCLOSED (\DEQUEUE \GETDEVICEFROMNAME) MSECT (IQUOTIENT IPLUS ITIMES IMINUS IDIFFERENCE) +\GETDEVICEFROMHOSTNAME (FASSOC U-CASE FDEVOP SPREADAPPLY*) \SPPSENDERROR (TERPRI) \HARDCURSORUP ( +IDIFFERENCE) MSINTERPRET (RESETLST MSPARSE SELECTQ MSLISTSET TERPRI ERROR! UPDATEFN CL:VALUES MAPC +NLSETQ PRINT APPLY CONS VERBNOTICELIST MSINTERPRETSET MSJOINSET MSSHOWUSE MSSOLVE CHECKPATHS +LINELENGTH MSPATHS MSDESCRIBE KWOTE EVAL MSCHECKBLOCKS SHOULDNT) \TEDIT.WORDDELETE (SELECTQ SUB1 \BIN +\SYNCODE GETHASH \GETBASEBYTE \GETCHB \BACKBIN PLUS IPLUS ADD1 IDIFFERENCE \TEDIT.DELETE) +FILENAMEFIELD (UNPACKFILENAME.STRING SELECTQ) CHANGE.NODEFONT.SIZE (NEXTSIZEFONT CONSTANT) +CL::%%MAKE-FIXP-ACCESSOR (CL:FUNCTION) \TEDIT.LARGER.CARET (\TEDIT.PARSE.CHARLOOKS.LIST) +FIXVERBSETTYPE (MSVERBTYPE) \CURSORBITSPERPIXEL (\CURSORIMAGEPROPNAME \CURSORMASKPROPNAME CURSORPROP +MASK.1'S LSH SUB1 COLORIZEBITMAP) \TEDIT.SMALLERSEL (\TEDIT.SMALLER.CARET TEDIT.LOOKS LIST) +FB.HARDCOPYCOMMAND (FB.SELECTEDFILES GetPrinterName LIST MAPC LISTFILES1 FB.FETCHFILENAME) DISPLAYNODE + (PRINTDISPLAYNODE DSPCLIPPINGREGION) \REMOVEDEVICE (DREMOVE) COMPILER::ALPHA-THROW (COMPILER::MAKE-THROW + COMPILER::ALPHA-ARGUMENT-FORM COMPILER::ALPHA-FORM) SELECT.ATOM.ASPECT (TYPESOF MENU CONS CONCAT) +EDIT4E (EQP EDIT4E1 DUNPACK LIST APPLY* EDIT4E) CLISPERROR (SELECTQ RETDWIM2) FB.MAKERIGIDWINDOW ( +WINDOWPROP CONS) \REMOVEDEVICE.NAMES (DREMOVE) \TFBRAVO.PARSE.PARA (GETFILEPTR FILEPOS CHARACTER +IDIFFERENCE \TFBRAVO.READ.PARALOOKS LIST \TFBRAVO.FONT.FROM.CHARLOOKS CONS \TFBRAVO.READ.CHARLOOKS +DREVERSE) \NSPRINT.UNSUPPORTED (CL:FORMAT) \CURSORDESTINATION (\PUTBASE \PUTBASEPTR LOCF \ATOMCELL +UNFOLD LLSH) OPT.EQOP (SELECTQ EQUAL OPT.EQOP) \PFPutPage (\PFTransferFilePage) MSQUOTED (MKLIST MSEAT +) \CLOSEFILE (SPREADAPPLY* FDEVOP) DINFO.EXPANDFN (DINFOGRAPH FM.GETSTATE WINDOWPROP) \EVENT.DEFPRINT +(\DEFPRINT.BY.NAME) DINFO.READ.KOTO.GRAPH (FILENAMEFIELD PRIN1 INFILEP READFILE ERROR PLUS) +\FM.3STATE-SELECTEDFN (SELECTQ \FM.ITEMPROP FFETCHFIELD \FM.3STATE-CHANGESTATE) DOICONWINDOWCOM (MENU +FUNCTION) EDITFPAT (CONS EDITFPAT CHCON NLEFT LENGTH ADD1 DUNPACK UNPACK) SEDIT::DRAW-HIGHLIGHT (ADD1 +BLTSHADE IDIFFERENCE IPLUS) \DELETEFILE (\ADD.CONNECTED.DIR \CONVERT-PATHNAME \GETDEVICEFROMNAME +FDEVOP SPREADAPPLY*) EDLOCL (NCONC LIST) PRESS.BITMAPSCALE (MIN FQUOTIENT TIMES) +ONEDINSPECT.MAKEREGIONS (WINDOWPROP DSPLINEFEED XCL::PROFILIZE CL:PROGV XCL::PROFILE-VARIABLES +XCL::PROFILE-VALUES ONEDINSPECT.VALUEWIDTH LENGTH IPLUS LIST PLUS CREATEREGION LAST STRINGWIDTH +DIFFERENCE) \ADD.CONNECTED.DIR (PACKFILENAME.STRING) \TEDIT.ITALIC.SEL.ON (TEDIT.LOOKS) DWIMLOADFNS? ( +EDITLOADFNS? LOADFNS LISPXPRINT LISTGET1) EDITXTR (LIST APPEND CONS) MODERNWINDOW (WINDOWPROP FUNCTION +) FAX.SEND.FILE (\FAX.PARSE.NAME NSPRINT APPEND LIST) \SPP.HANDLE.DATA (ILESSP \LOLOC IDIFFERENCE +\QUEUEHEAD FFETCHFIELD FUNCTION SEQ.ADD1 \ADDBASE) INTERLISP-NAMESTRING (MKSTRING CL:NAMESTRING) +\TFBRAVO.WRITE.RUNS (IPLUS) COMPILER::ALPHA-PROGV (COMPILER::MAKE-PROGV COMPILER::ALPHA-ARGUMENT-FORM +COMPILER::ALPHA-PROGN) EDITMBD (LIST APPEND LSUBST CONS) HPRINT.IMAGEOBJ (LIST) OBTAIN.MONITORLOCK ( +\DTEST THIS.PROCESS ERROR) POSTSCRIPT.FONTCREATE (PSCFONTFROMCACHE.SPELLFILE PSCFONT.SPELLFILE +PSCFONT.READFONT PSCFONTFROMCACHE.COERCEFILE PSCFONT.COERCEFILE FIXR TIMES POSTSCRIPT.GETFONTID +FONTCREATE LISTGET LIST IPLUS \GETCHARSETINFO \GETBASEPTR UNFOLD LLSH \CREATECHARSET \PUTBASE ELT PLUS + \CREATECSINFOELEMENT \ALLOCBLOCK FOLDHI LRSH \FGETWIDTH \GETBASE \FONTINFOFROMFILENAME COPY +\POSTSCRIPT.SPECIALFONT.SCALEDWIDTHS) EDITSW (EDITNTH) \HARDCURSORPOSITION (IDIFFERENCE SUB1 UNSIGNED +LOGAND LLSH \PUTBASE) CL::%%MAKE-FLAG-ACCESSOR (CL:FUNCTION) \NSNET.CLOSERP (\LOCATE.NSNET ILESSP) +\DEVICEEVENT (SELECTQ MAPC REVERSE SPREADAPPLY* FDEVOP) PARSE-NSADDRESS (MKSTRING + SUB1 IPLUS ADD1 +\GETBASEFAT \GETBASE \GETBASETHIN \GETBASEBYTE TIMES - CONS SMALLP LOGAND CL:ASH) \HARDCURSORDOWN ( +\CLEARBM CURSORBITMAP) FB.MAYBE.WIDEN.NAMES (IMIN IMAX FIXR FTIMES IDIFFERENCE) REVERSE (CONS) +\FM.3STATE-DOWNFN (SELECTQ \FM.ITEMPROP FFETCHFIELD \FM.DISPLAYBITMAP LISTGET BITBLT) +ICONPOSITION.FROM.WINDOW (POSITIONP WINDOWPROP IDIFFERENCE IMAX IMIN) \CLEARBM (BLTSHADE) +FB.ADJUST.DATE.WIDTH (FUNCTION PLUS) DELFROMFILES (GETFILEPKGTYPE FILECOMS TERPRI APPLY* LIST) +\SOFTCURSORUP (BITMAPCREATE UNFOLD LLSH ITIMES) OPT.JUMPCOPYTEST (OPT.SKIPPUSH SUB1 OPT.JUMPCOPYTEST) +\STORENSADDRESS (\BLT \DTEST) FILES? (POSITION CL:VALUES) \SOFTCURSORUPCURRENT (\GETBASE SIGNED SUB1 +LLSH IDIFFERENCE IMINUS IPLUS \PUTBASEPTR LOCF \ATOMCELL \ADDBASE ADD1 ITIMES) TEDIT.ADD.STYLESHEET ( +APPEND LIST) MSSETPHRASE (MSSETSETTYPE MSSEEKTYPE) RELEASE.MONITORLOCK (\DTEST .RELEASE.LOCK. +THIS.PROCESS \MP.ERROR) BITMAPCREATE (ILEQ \INSUREBITSPERPIXEL FOLDHI LRSH IPLUS ITIMES ERROR +\ALLOCBLOCK) OPT.PRATTACH (CONS) CH.RETRIEVE.ITEM (PARSE.NSNAME CH.FINDSERVER COURIER.EXPEDITED.CALL +CH.PROPERTY CH.GETAUTHENTICATOR COURIER.READ.REP) OPENPRSTREAM (OPENSTREAM LISTGET GETEOFPTR FULLNAME +FUNCTION) \LFVersions (FIXP GREATERP SORT \GETFILEPTR SPREADAPPLY* EQL \BIN \WIN IPLUS LLSH LIST CONS) + \TEDIT.EXPANDFN (TTY.PROCESS WINDOWPROP) \GET.SESSION.HANDLE (CONS COURIER.READ) DOATTACHEDWINDOWCOM +(MENU FUNCTION DOBACKGROUNDCOM) PUPSOCKETFROMNUMBER (\HINUM LOGAND \PUPSOCKET.FROM#) \PRINTNSADDRESS ( +\GETSTREAM SELECTC) COMPILER::ALPHA-PROGN (COMPILER::ALPHA-FORM COMPILER::MAKE-PROGN MAPLIST) +PFI.ENQUEUE (WITH.MONITOR CL:MULTIPLE-VALUE-PROG1 .UNWIND.PROTECT. FUNCTION NCONC1 ADD.PROCESS LIST) +SI::MONITOR-UNWIND (\DTEST .RELEASE.LOCK. THIS.PROCESS \MP.ERROR) \FM.3STATE-SETUPOFFBITMAP ( +\FM.ITEMPROP LISTGET FFETCHFIELD COPY \FM.GETREGIONS \FM.MAKEBITMAP LIST EXTENDREGION BITMAPCOPY +IDIFFERENCE ITIMES DSPCREATE SUB1) EDITMV (CONS APPEND LIST) FB.HEADINGW.DISPLAY (WINDOWPROP +DSPCLIPPINGREGION MAINWINDOW + - STRINGWIDTH PLUS) SEDIT::RELINEARIZE (DSPCLIPPINGREGION ADD1 +SEDIT::FIRST-LINE-LINEAR ILESSP IDIFFERENCE IPLUS IMAX SEDIT::LAST-LINE-LINEAR WINDOWPROP PLUS +FFETCHFIELD SEDIT::SCAN-FOR-BOUNDS SEDIT::PROPAGATE-WIDTH-CHANGE) \GENERATEFILES (\ADD.CONNECTED.DIR +\GETDEVICEFROMNAME FDEVOP SPREADAPPLY*) TB.MAKE.BROWSER (SELECTQ SET CONS LIST DECODE.WINDOW.ARG +CREATE.MONITORLOCK WINDOWPROP FUNCTION PACK* ATTACH) CL::%%MAKE-WORD-ACCESSOR (CL:FUNCTION) XIPTRACE ( +MAKE-NETWORK-TRACE-WINDOW) IRM.LOOKUP (IRM.GET.DINFOGRAPH MKATOM U-CASE RESETLST RESETSAVE +TTYDISPLAYSTREAM GETPROMPTWINDOW LIST \IRM.SMART.REF \IRM.GET.REF IRM.DISPLAY.REF FLASHWINDOW) +\MONITORLOCK.DEFPRINT (\DEFPRINT.BY.NAME) FULLPRESSBITMAP (OPENPRSTREAM BITMAPWIDTH BITMAPHEIGHT +IQUOTIENT IDIFFERENCE FIX TIMES TERPRI PRESS.BITMAPSCALE IPLUS CLOSEF) ONEDINSPECT.ADJUSTSELECTION ( +WINDOWPROP WITH-INSPECTOR-ENV XCL::PROFILIZE CL:PROGV XCL::PROFILE-VARIABLES XCL::PROFILE-VALUES +STRINGWIDTH APPLY*) HARDCOPYREGION.TOPRINTER (GetPrinterName PRINTERTYPE GETREGION PACK*) +\TEDIT.LARGERSEL (\TEDIT.LARGER.CARET TEDIT.LOOKS LIST) TB.DO.ITEM.SELECTION (WINDOWPROP +DSPCLIPPINGREGION TB.FIRST.VISIBLE.ITEM# TB.LAST.VISIBLE.ITEM# LASTMOUSEX LASTMOUSEY ZEROP LOGAND +TB.NTH.ITEM PLUS ADD1 SUB1 TB.ITEM.FROM.YCOORD LOGOR SHIFTDOWNP LRSH +) EDIT4F (CONS EDITCONT EDITFPAT + EDITFPAT1 NCONC1 UNPACK SUB1 NCONC MEMB) XPROD (IDIFFERENCE ITIMES) \GENERATENEXTFILE (CL:FUNCALL) +\TFBRAVO.WRITE.RUN (PEEKC CHARACTER IPLUS GETFILEPTR) COURIER.SKIP (SELECTQ \BIN RPTQ CEIL LOGAND +IPLUS GETWORD LLSH CONSTANT SUB1 LOGXOR GETPROP CL:FUNCALL \GET.COURIER.TYPE COURIER.SKIP +\COURIER.UNKNOWN.TYPE PLUS COURIER.SKIP.SEQUENCE MAPC) \FM.3STATE-SETUP (\FM.ITEMPROP FFETCHFIELD +FUNCTION LISTGET \FM.3STATE-SETUPOFFBITMAP) SEDIT::CLOSEFN (WINDOWPROP) \GENERATEFILEINFO (CL:FUNCALL) + MSHASHLIST (FUNCTION) COMPILER::ALPHA-MV-PROG1 (COMPILER:CONTEXT-VALUES-USED COMPILER::ALPHA-FORM +CONS COMPILER::MAKE-MV-PROG1 CL:FIRST CL:MAPCAR CL:FUNCTION CL:REST) MAYBE.PRETTYFILEINDEX (REMOVE +ROOTFILENAME) NWAYBUTTON.INIT (IMAGEFNSCREATE FUNCTION) TOPW.ADJUSTSELECTION (WINDOWPROP MAINWINDOW +WITH-INSPECTOR-ENV XCL::PROFILIZE CL:PROGV XCL::PROFILE-VARIABLES XCL::PROFILE-VALUES STRINGWIDTH +IDIFFERENCE ADD1) OPT.DELCODE (FASSOC OPT.PRDEL) \LEAF.IDLE (ADD.PROCESS LIST FUNCTION KWOTE +\GETDEVICEFROMNAME \SEQUIN.CONTROL \SEQUIN.CLOSE) EDITCONT (EDITFPAT EDLOCL) \PFGetMarkerPage (FIXP +\PFVolumeNumber \PFGetPage ELT IPLUS LvBasePageAddr FFETCHFIELD FMESAELT \ADDBASE ILEQ ITIMES +IDIFFERENCE MarkerPageAddr) \GETFILENAME (\ADD.CONNECTED.DIR \CONVERT-PATHNAME \GETDEVICEFROMNAME +FDEVOP SPREADAPPLY*) \SPP.RELEASE.ACKED.PACKETS (ILESSP \LOLOC IDIFFERENCE HELP ELT RETRANSMITINDEX +IMOD SEQ.ADD1 \ADDBASE) HARDCOPYREGION.TOFILE (GetImageFile GETREGION) TB.DO.UNLESS.BUSY (RESETLST +WINDOWPROP CL:FUNCALL) MSHASHLIST1 (CONS) \GENERIC.OUTFILEP (FDEVOP SPREADAPPLY* PACKFILENAME ADD1 +FILENAMEFIELD) \LOADNSADDRESS (\BLT) FB.SETNEWPATTERN (DIRECTORY.MATCH.SETUP STRPOS +UNPACKFILENAME.STRING WINDOWPROP) PACKFILENAME (ARG APPLY PACK PACKFILENAME.ASSEMBLE ADD1 STRINGP ATOM + UNPACKFILENAME.STRING PACKFILENAME.STRING SELECTQ SHOULDNT CDDR SELCHARQ CHCON1 SUBSTRING NTHCHARCODE + ERROR NCONC LIST LASTCHPOS NCHARS CL:FIRST CL:SECOND CL:THIRD) SEDIT::PRINT-STRING (SEDIT::ESCAPE-CHAR + FFETCHFIELD SUB1 IPLUS \GETDISPLAYDATA \DTEST \OUTSTREAMARG \GETSTREAM ADD1 \GETBASEFAT \GETBASE +\GETBASETHIN \GETBASEBYTE) \MAKE.PROCESS1 (UNINTERRUPTABLY \MYALINK OPCODES \STACKARGPTR) REBREAK ( +NLAMBDA.ARGS CL:FLET MAPCONC REBREAK-FN) FB.STARTUP (RESETLST FB.MAKE.BROWSER.BUSY FASSOC CL:FUNCALL) +\PROCESS.MOVEFRAME (IPLUS \FREESTACKBLOCK PLUS FLOOR LOGAND LRSH IDIFFERENCE CONSTANT LOGXOR SUB1 +ADDSTACKBASE \VAG2 FFETCHFIELD) \SOFTCURSORDOWN (\GETBASE) COURIER.WRITE.FAT.STRING (OPENSTREAM +GETFILEPTR \BOUT ADD1 FOLDHI LRSH IPLUS BOUT) CL::%%MAKE-BIT-ACCESSOR (CL:FUNCTION) +SORT.NSADDRESSES.BY.DISTANCE (\LOCATE.NSNET SORT) \LFCASEARRAYFETCH (\GETBASEBYTE) \TEDIT.MAINW ( +TEXTOBJ WINDOWPROP) \READNUMBER.FLASHAREA (BITBLT) \OPENFILE (\ADD.CONNECTED.DIR \GETDEVICEFROMNAME +FDEVOP SPREADAPPLY* LISPERROR) COMPILER::COMPILE-FILE-DEFINEQ (CL:MAPCAR CL:FUNCTION) +\LEAF.OPENERRORHANDLER (SELECTC PRIN1) \SPP.HANDLE.ATTN (LIST PRIN1) \DO.PARAMS.AT.OPEN (SELECTQ +\ILLEGAL.ARG MAPC APPLY*) \CLEARSYSBUF (MAPC THIS.PROCESS) \IOMODEP (\FILE.NOT.OPEN) CH.DELETE.SELF ( +PARSE.NSNAME COURIER.CALL CH.FINDSERVER FIXP CH.PROPERTY CH.GETAUTHENTICATOR) MSLISTSET ( +MSINTERPRETSET) \GETKEY (THIS.PROCESS FFETCHFIELD \GETSYSBUF GLOBALRESOURCE LOCF \ADDBASE +CLOCKDIFFERENCE GETRESOURCE NEWRESOURCE CREATECELL) TEDIT.PUSH.STYLESHEET (APPEND) \PROCESS.DEFPRINT ( +\DEFPRINT.BY.NAME) CLOSEPUPSOCKET (\DTEST DREMOVE ERROR) \ENQUEUE.TIMER (UNINTERRUPTABLY +\BOXIDIFFERENCE) TB.REDISPLAY.ITEMS (DSPCLIPPINGREGION \DTEST IMAX FIXP TB.FIRST.VISIBLE.ITEM# IMIN +TB.LAST.VISIBLE.ITEM# TB.DISPLAY.LINES) \TTYBACKGROUND (TTY.PROCESSP APPLY* \BACKGROUND) +MAKEMAINWINDOW (FUNCTION WINDOWPROP) PRETTY-TYPE-NAME (SUBSET CL:SUBTYPEP SORT CONCATLIST MAPCONC LIST + PRETTY-TYPE-NAME CL:DOCUMENTATION CONCAT) CHARSET (\GETSTREAM ACCESS-CHARSET SPREADAPPLY*) +\DRAWELLIPSE.PRESS (SIN COS LIST CREATEPOSITION PLUS FTIMES DIFFERENCE) PAINTW.READCOMMAND (MENU) +\GETSYSBUF (\GETREALSYSBUF \GETBASEFAT \GETBASE ADD1) \IMAGEUSERPROP (LISTGET LIST) SETFILEINFO ( +SELECTQ \ILLEGAL.ARG IMAX FIX CHARSET FDEVOP SPREADAPPLY* \SETEOFPTR UNFOLD LLSH \GETDEVICEFROMNAME +\ADD.CONNECTED.DIR \CONVERT-PATHNAME \SETCLOSEDFILELENGTH LISPERROR) GETRELATION (PARSERELATION UNION +GETTABLE) ICMLARRAY.GETMENUWGROUP (FONTCREATE FONTPROP CL:ARRAY-DIMENSIONS CL:ARRAY-RANK +HEIGHTIFWINDOW FREEMENU GET.MENU.LIST IMAX STRINGWIDTH RESETVAR CONCAT CREATEW CREATEREGION CONS +FUNCTION IDIFFERENCE SUB1 WINDOWPROP GETBOXPOSITION) LISTHARD (GETVERBTABLES MSHASHLIST) WAIT.FOR.TTY +(THIS.PROCESS TTY.PROCESSP TTY.PROCESS OPENWP WFROMDS TTYDISPLAYSTREAM SETUPTIMER) \DRAWLINE.PRESS ( +LIST CREATEPOSITION) \MAYBEBLOCK (BLOCK) \TEDIT.ITALIC.CARET.OFF (\TEDIT.PARSE.CHARLOOKS.LIST) +\WRITEPRESSBITMAP (BITMAPCREATE BITBLT \BOUT UNFOLD LLSH FIXR FTIMES TIMES ITIMES IPLUS) +\STRINGWIDTH.IP (\STRINGWIDTH.GENERIC) CHANGECALLERS (GETFILEPKGTYPE LIST TYPESOF TERPRI SUBPAIR +SELECTQ NCONC FILEPKGCHANGES FILEFNSLST UPDATEFN INTERSECTION GETRELATION PARSERELATION EDITCALLERS +REMOVE WHEREIS printout PRIN1) \NSRANDOM.RELEASE.IF.ERROR (\NSRANDOM.RELEASE.LOCK) \NSYSBUFCHARS ( +IPLUS LENGTH IDIFFERENCE) \COURIER.RECORDTRAN (\GET.COURIER.TYPE LITATOM SELECTQ LIST CONS) +COMPILER::ALPHA-MACROLET (COMPILER::MAKE-CHILD-ENV COMPILER::ENV-BIND-FUNCTION COMPILER::CRACK-DEFMACRO + CONS) SEDIT::SCAN-FOR-BOUNDS (IPLUS IMAX FONTPROP IDIFFERENCE BITMAPHEIGHT IMINUS BITMAPWIDTH) CHOOZ1 + (IQUOTIENT ITIMES IDIFFERENCE IPLUS) \SAVESYSBUF (\NSYSBUFCHARS THIS.PROCESS PLUS LENGTH NCHARS +ALLOCSTRING RPLCHARCODE ADD1 \GETSYSBUF SUB1 SUBSTRING) OPT.SKIPPUSH (SELECTQ OPT.SKIPPUSH SUB1 ADD1 +IPLUS) CL::%%MAKE-ARRAY-ACCESSOR (CL:FUNCTION) \PFPutLogicalVolumePage (\PFPutPage ELT FIXP +\PFVolumeNumber) COURIER.WRITE.SEQUENCE.UNSPECIFIED (\BOUT UNSIGNED LOGAND SUB1 LLSH \HINUM \WOUT +STRINGP MKSTRING ADD1 FOLDHI LRSH IPLUS NCHARS LISP.TO.ALTO.DATE GETPROP \GET.COURIER.TYPE +COURIER.REP.LENGTH CL:FUNCALL) HARDCOPYW (COPY.WINDOW.TO.BITMAP SCREENBITMAP GETSCREENREGION +PRINTERTYPE CONCAT DEFAULTPRINTER PRINTFILETYPE PRINTER.BITMAPSCALE PRINTER.BITMAPFILE +PRINTER.SCRATCH.FILE) \SYSBUFP (THIS.PROCESS) BESTNSADDRESS (LOOKUP.NS.SERVER \LOCATE.NSNET PLUS PRIN1 +) \PROC.CODEFORTFRAME (\TURN.ON.PROCESSES) COMPILER::MAYBE-REMOVE-COMMENTS (REMOVE-COMMENTS) +\FM.TOGGLE-CHANGESTATE (\FM.ITEMPROP FFETCHFIELD LISTGET) MSSETWORDTYPE (PUTHASH NCONC1 GETHASH CONS) +\PEEKSYSBUF (\GETBASEFAT \GETBASE THIS.PROCESS SHOULDNT) SEDIT::CHECK-SELECTION-SHIFT (SEDIT::SHIFT-DOWN +) \PROCESS.INIT (FUNCTION GETD HARDRESET) \KEYBOARDINIT (KEYACTIONTABLE \ALLOCLOCKED \ALLOCBLOCK +FOLDHI LRSH IPLUS ADD1 ALLOCSTRING LOCF \ADDBASE PLUS SETUPTIMER \KEYBOARDON) INSPECT.INVERTSELECTION +(WINDOWPROP FONTPROP) \ENQUEUE (\DTEST LIST* LOC LIST PLUS) \ADD.ROUTING.TABLE.ENTRY (NTYPX CL:ERROR +\ADDBASE UNFOLD LLSH LOGAND CONS \GETBASEPTR) %%DESTRUCTIVE-RESULT-VECTOR (CL:MAKE-ARRAY VECTOR-LENGTH + CL:ARRAY-ELEMENT-TYPE COPY-VECTOR) \SETLOCALNSNUMBERS (LOGOR \SERIALNUMBER) MOUSECHORDWAIT (IMIN +ITIMES SMALLP ARG) \RENAMEFILE (\ADD.CONNECTED.DIR \GETDEVICEFROMNAME FDEVOP SPREADAPPLY*) +FB.SET.BROWSER.TITLE (WINDOWPROP CONCAT) \TEDIT.SETDEFAULT.FROM.SEL (TEDIT.GET.LOOKS +\TEDIT.PARSE.CHARLOOKS.LIST) FIXSPELL2 (LIST FUNCTION LISPXTERPRI) \ALLOCLOCKED (\ALLOCBLOCK IMIN +FOLDHI LRSH IPLUS UNFOLD LLSH) \REVALIDATEFILE (FDEVOP SPREADAPPLY*) FILEPKGTYPE (ARG UNION +FILEPKGTYPE NCONC LIST GETTOPVAL ASSOC GETPROP SELECTQ ERROR ADD1 FMEMB CONS PLUS MARKASCHANGED) +PAINTW.READMODE (MENU) MSMEMBSET (MSINTERPRETSET) KEYACTIONTABLE (APPEND COPY +\KEYBOARD.MACHINE-SPECIFIC-KEYACTIONS KEYACTION) \DRAWCURVE.PRESS (FIXP \ILLEGAL.ARG LIST LENGTH +PARAMETRICSPLINE MAPCAR CREATEPOSITION FIXR FTIMES \GETBRUSHFONT.PRESS LAST) \VFMSplit ( +\VFMCreateVPage FUNCTION ADD1) \GET.FILING.ATTRIBUTE (COURIER.READ CONS \WIN IPLUS LLSH \BIN LIST +COURIER.READ.SEQUENCE) MOVEATTACHEDWINDOWTOPLACE (WINDOWPROP MINIMUMWINDOWSIZE SELECTQ ATTACHEDWINDOWS + WINDOWREGION PLUS MAX DIFFERENCE MIN CREATEREGION ADD1 IMAX CENTERINWIDTH CENTERINHEIGHT) +OPENPUPSOCKET (FIXP \PUPSOCKET.FROM# \HINUM \LONUM LOGOR DAYTIME CREATE.EVENT CONS ADD1 LOGAND) +\NUMBERPAD.READER.CLOSEFN (WINDOWPROP) CH.ADD.SELF (PARSE.NSNAME COURIER.CALL CH.FINDSERVER FIXP +CH.PROPERTY CH.GETAUTHENTICATOR) COMPILER::COMPILE-FILE-SETF-SYMBOL-FUNCTION (CL:SECOND CL:THIRD CL:EVAL +) \FM.TOGGLE-SELECTEDFN (FFETCHFIELD \FM.TOGGLE-CHANGESTATE) SEDIT::BUTTONEVENTFN ( +MODERNWINDOW.BUTTONEVENTFN FUNCTION) FB.DISPLAY.COUNTERS (WINDOWPROP DSPFONT IQUOTIENT IDIFFERENCE +ITIMES CHARWIDTH LIST FB.COUNTER.STRING IMAX IPLUS STRINGWIDTH PLUS RPLACA CONCAT SUBSTRING +DSPXPOSITION) \PROCESS.EVENTFN (SELECTQ APPEND FFETCHFIELD THIS.PROCESS) \TEDIT.ITALIC.SEL.OFF ( +TEDIT.LOOKS) PFI.NEW.LISTFILES1 (FINDFILE CL:ERROR MAYBE.PRETTYFILEINDEX LIST FUNCTION) +TOPW.BUTTONEVENTFN (WINDOWPROP MAINWINDOW WITH-INSPECTOR-ENV XCL::PROFILIZE CL:PROGV +XCL::PROFILE-VARIABLES XCL::PROFILE-VALUES LOGAND ONED.TRACKCURSOR FONTPROP FUNCTION CL:FUNCALL) +\PAGED.REVALIDATEFILELST (FDEVOP SPREADAPPLY* \PAGED.REVALIDATEFILE RESTOREMAP FORGETPAGES STREAMPROP +APPLY*) FB.COPY/RENAME.COMMAND (FB.SELECTEDFILES FB.COPY/RENAME.MANY FB.FETCHFILENAME +FB.GET.NEW.FILE.SPEC FB.COPY/RENAME.ONE) PAINTW.READBRUSHTEXTURE (SELECTQ BITSPERPIXEL +PAINTW.READBRUSHSHADE MENU COLORMENU) \PFVolumeNumber (GETHASH) CL::%%MAKE-POINTER-ACCESSOR (CL:FUNCTION +) CHECKSYNONYM (GETWORDTYPE FASSOC GETHASH APPEND SUBST ADD1 MSTRYSPELL) \PRINT-REVALIDATION-RESULT ( +PRIN1 SELECTQ printout TERPRI SHOULDNT) OPT.ONLYMEMB (FMEMB) FORGETPAGES (CPBUFFERP CONS) +\LFFindDirHole (IPLUS LENGTH SPREADAPPLY* \BIN PLUS DIFFERENCE \LFMakeDirHole) \KEYBOARDEVENTFN ( +SELECTQ LOGAND MACHINETYPE EQUAL UNIX-GETPARM \KEYBOARD.MACHINE-SPECIFIC-KEYACTIONS KEYACTION APPEND +MOUSECHORDWAIT) CL::%%MAKE-ACCESSOR-CLOSURE (CL::PSLOT-FIELD-DESCRIPTOR) MSPRED (MSCANT) RESTOREMAP ( +\GETSTREAM CPBUFFERP CONS) CLOSEW (\INSUREWINDOW SPREADAPPLY*) \DELETECH (IDIFFERENCE IPLUS IMINUS +\CHTOPC - ADD1 \SPLITPIECE \GETBASEPTR \FIRSTNODE LIST IMAGEOBJPROP \DELETETREE FLAST) KEYACTION ( +SMALLP \KEYNAMETONUMBER CONS \KEYACTION1 \TRANSINDEX IPLUS) FB.COPYTEXTCOMMAND (FB.COPY/RENAME.COMMAND + CONS FUNCTION) \PAGED.REVALIDATEFILE (FDEVOP SPREADAPPLY*) ICMLARRAY.GETREGIONFN (WINDOWREGION ADD1 +SUB1) \FM.TOGGLE-DOWNFN (FFETCHFIELD \FM.DISPLAYBITMAP \FM.ITEMPROP LISTGET BITBLT) +\KEYBOARD.MACHINE-SPECIFIC-KEYACTIONS (UNIX-GETPARM LOGAND APPEND) PFI.PRINT.BITMAP ( +NON.PFI.PRINT.BITMAP DSPXPOSITION DSPYPOSITION DSPSCALE DSPLINEFEED TIMES BITMAPHEIGHT BITMAPWIDTH +DSPBOTTOMMARGIN MIN FQUOTIENT - DSPRIGHTMARGIN DSPLEFTMARGIN DSPTOPMARGIN FIXR MAX FONTPROP IQUOTIENT ++ PLUS FUNCTION STKPOS STKEVAL CL:CEILING CHARWIDTH) SEDIT::FIND-NTH-STRUCTURE (SEDIT::SUBNODE) +\PAGED.REVALIDATEFILES (COPY \PAGED.REVALIDATEFILE RESTOREMAP FORGETPAGES STREAMPROP APPLY* +SPREADAPPLY* DREMOVE) ICMLARRAY (CL:ARRAY-RANK DEFAULTFONT SUB1 IDIFFERENCE LIST PLUS +CL:ARRAY-DIMENSIONS ICMLARRAY.DISPLAYSLICE ADD1 WINDOWREGION ICMLARRAY.GETMENUWGROUP) MSINTERPA (CONS) + FB.CREATE.FILEBUCKET (STRING NCHARS ILEQ NTHCHARCODE PLUS TIMES - SUB1 ADD1 SUBSTRING CL:NTH SELECTQ +FOLDHI LRSH IPLUS IDATE) TEDIT.STYLESHEET (TEXTOBJ LIST) COPY (LIST COPY CONS) \PROC.AFTER.WINDOWWORLD + (FIND.PROCESS) LOADPOLY (FQUOTIENT) \GETBRUSHFONT.PRESS (SELECTQ FIXR FTIMES) +ONEDINSPECT.PRINTELEMENT (IPLUS PRIN2) \BUFFERED.REVALIDATEFILE (FDEVOP SPREADAPPLY*) +\GET.COURIER.DEFINITION (LITATOM \GET.COURIER.DEFINITION ASSOC LISTGET \GET.COURIERPROGRAM GETHASH +ERROR CONCAT LIST) \BUFFERED.REVALIDATEFILELST (FDEVOP SPREADAPPLY* \BUFFERED.REVALIDATEFILE +STREAMPROP APPLY*) SETSPELLCASE (CASEARRAY IPLUS IDIFFERENCE PLUS MAPC SETCASEARRAY CHCON1) +NUMBERPAD.READ (FUNCTION RESETLST TTYDISPLAYSTREAM TTY.PROCESS THIS.PROCESS CONTROL RESETSAVE ECHOMODE + OPENW LIST DISPLAY/NUMBER/READER/TOTAL WINDOWPROP NUMBERPAD.READER.DECODE READC ERROR!) \TRUNCATEFILE + (FDEVOP SPREADAPPLY*) \TEDIT.DEFAULTSSEL (TEDIT.LOOKS) \FM.TOGGLE-SETUP (\FM.ITEMPROP FFETCHFIELD +FUNCTION LISTGET) \FILE-CONFLICT (FDEVOP SPREADAPPLY*) MENU (\POSITION.MENU.IMAGE WINDOWPROP RESETLST +RESETSAVE OPENW LIST THIS.PROCESS BLOCK MOUSESTATE LOGAND LOGOR MENU.HANDLER DOSELECTEDITEM) +\TEDIT.SHOWCARETLOOKS (CONCAT \TK.DESCRIBEFONT) MB.NWAYMENU.NEWBUTTON (IMAGEOBJPROP ADD1) +OPT.DELETEFRAMECHECK (OPT.ONLYMEMB) \GENERATENOFILES (STRPOS NTHCHARCODE SUB1 ADD1 CONSTANT CHARACTER +FUNCTION PACKFILENAME \NULLFILEGENERATOR) /RPLNODE (CONS FRPLACD ERRORX LIST) \TURN.ON.PROCESSES ( +ASKUSER) COMPSET (COMPSETREAD COMPSETF COMPSETY OPENFILE OPENP OPENSTREAM) CL::%%MAKE-LIST-ACCESSOR ( +CL:FUNCTION) \PFGetLogicalVolumePage (\PFGetPage ELT FIXP \PFVolumeNumber) \NULLFILEGENERATOR ( +FUNCTION) TB.ITEM.FROM.YCOORD (CL:CEILING - TB.NTH.ITEM IMIN) ALISTS.WHENCHANGED (GETPROP +MARKASCHANGED) DEFAULTMENUHELDFN (PROMPTPRINT) ShowIntervals (\VFMGetInterval PRIN1 ELT SUB1 \GETBASE +IREMAINDER ADD1 PLUS TERPRI MESASIZE) FB.COPYBINARYCOMMAND (FB.COPY/RENAME.COMMAND CONS FUNCTION) +CLISPFOR0 (APPEND GETPROP GETP CLISPFOR0A LIST FASSOC \DURATIONTRAN SELECTQ SHOULDNT GETDUMMYVAR CONS +NCONC1 READLINE CLISPFORVARS CLISPFOR1 MAPCAR RETDWIM2 CLISPLOOKUP CLISPFORF/L SUBST LISTGET1 EVAL +SUBPAIR DWIMIFY1 COPY CLISPFORINITVAR FMEMB WARNUSER CLISPFOR3 FLAST NCONC CLISPFOR2 MAPCONC DREVERSE +LDIFF FRPLACA) CLRPROMPT (DSPRESET TERPRI) TEDIT.PARALOOKS (TEXTOBJ TEDIT.SETSEL IMIN IMAX SUB1 +\CHTOPC LISTGET FMEMB CONS MAPCAR \TEDIT.UNIQUIFY.PARALOOKS NCONC1 IPLUS IDIFFERENCE ADD1) ADDSPELL2 ( +FMEMB) \RESETKEYBOARD (\GETBASE XKEYDOWNP LOGAND LRSH LLSH SELECTQ \KEYNAMETONUMBER \KEYBOARDON) +IMAGEOBJCREATE (IMAGEFNSP) \NOFILESINFOFN (GETFILEINFO) FILEPKGCOMPROPS (MAPC MEMB CONS PUT) +PAINTW.READBRUSHSHAPE (MENU) MSGETBLOCKDEC (FILECOMSLST MSMEMBSET CONS UNION EVAL SELECTQ) +FB.INSERT.FILE (TB.FIND.ITEM FUNCTION TB.NTH.ITEM SUB1 STRING-EQUAL FB.COUNT.FILE.CHANGE) +\ENDPAGE.PRESS (\GETFILEPTR SPREADAPPLY* \BOUT) \NOFILESNEXTFILEFN (INFILEP FULLNAME CONS +FILENAMEFIELD ADD1 PACKFILENAME.STRING PLUS) \FILINGHANDLE.DEFPRINT (\DEFPRINT.BY.NAME) +\LOOKUPPUPNUMBER (\GETMISCNSOCKET CREATE.PACKET.EXCHANGE.XIP PLUS FFETCHFIELD UNFOLD LLSH LOCF +\ADDBASE SETUPTIMER GETXIP LOGAND TERPRI \GETBASESTRING IDIFFERENCE IPLUS PORTSTRING) FLUSHRIGHT ( +IDIFFERENCE POSITION LINELENGTH NCHARS QUOTIENT IPLUS PRIN2 PRIN1) BREAK.PROCESS (\COERCE.TO.PROCESS +FIND.PROCESS THIS.PROCESS FUNCTION) DINFO.FIND (PROMPTPRINT RESETFORM TTYDISPLAYSTREAM GETPROMPTWINDOW + TERPRI PROMPTFORWORD CONSTANT WINDOWPROP PRIN1 TEDIT.FIND TEDIT.NORMALIZECARET TEDIT.SHOWSEL +TEDIT.SETSEL NCHARS) PPROC1 (FFETCHFIELD TTY.PROCESS SPACES THIS.PROCESS PRIN1 IDIFFERENCE CLOCK +PRINTNUM) \CHECK.PQUEUE (TERPRI THIS.PROCESS RESETVARS .RESETLST. LIST CONS CL:MULTIPLE-VALUE-PROG1 +.UNWIND.PROTECT. FUNCTION HELP) BCOMPL3 (GETFILEPTR FULLNAME REMOVE ROOTFILENAME POSITION TERPRI) +GRAPHADDLINK (FRPLACA CONS) GETWINDOWPROP (\OUTSTREAMARG \GETSTREAM WFROMDS WINDOWOP SPREADAPPLY*) +CH.DELETE.PROPERTY (COURIER.EXPEDITED.CALL CH.FINDSERVER PARSE.NSNAME FIXP CH.PROPERTY +CH.GETAUTHENTICATOR) BELOWMARKER (FCHARACTER IPLUS PACK* IREMAINDER IQUOTIENT ADD1) +PAINTW.READBRUSHSIZE (MENU) INFILEP (\GETFILENAME) \PRESSCURVE2 (RESETLST RESETSAVE LIST DSPFONT +IDIFFERENCE GETFILEPTR \BOUT ELT FONTPROP FIXR FTIMES GEQ SUB1 POLYEVAL \FLOATBOX OPCODES ADD1 IPLUS +EQP IMINUS FQUOTIENT FDIFFERENCE FPLUS ABS LRSH LLSH PLUS) \KEYACTION1 (SELECTC TRANSITIONFLAGS +\GETBASEBYTE LIST CHECKFORDEADKEY TRANSITIONCODE \GETBASE TRANSITIONSHIFTCODE TRANSITIONALTGRCODE +TRANSITIONDEADLIST \GETBASEPTR LLSH IPLUS SHOULDNT MAPCAR CONS IGEQ CHARCODE.DECODE \GETCHARCODE) +PACKFILENAME.STRING (ARG APPLY CONCATLIST PACKFILENAME.ASSEMBLE ADD1 STRINGP ATOM +UNPACKFILENAME.STRING PACKFILENAME.STRING SELECTQ SHOULDNT CDDR SELCHARQ CHCON1 SUBSTRING NTHCHARCODE +ERROR NCONC LIST LASTCHPOS NCHARS CL:FIRST CL:SECOND CL:THIRD) COMPILER::COMPILE-ONE-LAMBDA ( +COMPILER::ALPHA-LAMBDA CL:MULTIPLE-VALUE-PROG1 .UNWIND.PROTECT. FUNCTION COMPILER::PEEPHOLE-OPTIMIZE +COMPILER::GENERATE-CODE COMPILER::ANNOTATE-TREE COMPILER::META-EVALUATE) PPROC (PPROC1 CLOCK TERPRI +CONS) \KEYNAMETONUMBER (PLUS L-CASE \ILLEGAL.ARG) GRAPHBUTTONEVENTFN (GETSTREAM LOGAND NODELST/AS/MENU + CURSORPOSITION LOGOR APPLY* SELECTQ SHOULDNT WINDOWPROP) CLISPIFY2B (GETPROP CLISPIFY1 SELECTQ +CLISPIFY2C CLISPIFYCROPS0 CLISPIFYLOOKUP LIST MINUS SUB1 CLISPIFYRPLAC CONS FRPLACA NCONC CLISPCOND +CLISPAND SHOULDNT CLISPIFY2A MAPCAR LAST CLISPIFYNOT CLISPIFY2 CLISPIFYCROPS GETP WHILEDOUNTIL SUBPAIR + CLISP3 CLISPIFY2B LSUBST LISTGET1 SHRIEKIFY APPLY* APPEND CLISPIFYMAPS CLISPIFYUSERFN) FULLNAME ( +\GETFILENAME) PPROCRESHAPEFN (WINDOWPROP RESHAPEBYREPAINTFN) \TEDIT.DEFAULTS.CARET ( +\TEDIT.SHOWCARETLOOKS) \LFDirectorySearch (LENGTH SPREADAPPLY* \BIN IPLUS \LFDWIN \WIN LLSH +\LFCASEARRAYFETCH IDIFFERENCE) PFI.PASS.COMMENT (READCCODE PEEKCCODE CHANGEFONT) FONTNAME.IP (FONTPROP + CONS PACK* LISTGET PACK LIST) RCOMP3 (ARGTYPE CONS CL:SYMBOL-VALUE REMOVE) SCROLLBYREPAINTFN ( +WINDOWPROP DSPCLIPPINGREGION \DECODE.EXTENT.USE IPLUS FIXR FTIMES IDIFFERENCE WXOFFSET IMINUS +DSPLINEFEED FDIFFERENCE WYOFFSET INTERSECTREGIONS \DSPUNTRANSFORMREGION IMIN SELECTQ IMAX PLUS +CREATEREGION) CL::CACHE-SLOT-INFO (CL::GET-PS-FROM-ACCESSOR CL::PS-FAST-ACCESSORS CL:GETHASH LIST +CL::PS-TYPE CL:COPY-TREE CL::GET-SLOT-DESCRIPTOR-FROM-PS) \VFMInsert1 (IGREATERP \ADDBASE IPLUS TIMES +MESASIZE IDIFFERENCE) \PROCESS.MAKEFRAME0 (IPLUS \MAKEFRAME \FREESTACKBLOCK UNFOLD LLSH \MP.ERROR) +\FIXDLINES (WINDOWPROP IDIFFERENCE SUB1 IMAX IMIN) KEYBOARDTYPE (MACHINETYPE SELECTQ SASSOC L-CASE +UNIX-GETENV MKATOM U-CASE UNIX-GETPARM) NSNET.DISTANCE (\LOCATE.NSNET PLUS) +MAKE-UNICODE-TRANSLATION-TABLES (CL:MAKE-ARRAY IPLUS CONS LOGAND CL:SVREF LRSH SUB1 LENGTH PLUS ASSOC +LIST HASHARRAY CHARCODE.DECODE ADD1) PPROCREPAINTFN (WINDOWPROP LOGAND DSPYPOSITION PPROCEXTENT) +COURIER.WRITE.STRING (STRINGP MKSTRING COURIER.WRITE.FAT.STRING NCHARS \BOUT BOUT) GETFILEINFO (FDEVOP + SPREADAPPLY* SELECTQ SELECTC SHOULDNT CHARSET \GETEOFPTR SIZE.FROM.LENGTH FOLDHI LRSH IPLUS +\EXTERNALFORMAT \GETDEVICEFROMNAME \ADD.CONNECTED.DIR \CONVERT-PATHNAME LISPERROR) PPROCWINDOW ( +CREATEW FUNCTION WINDOWPROP) \COURIER.TYPE.ERROR (ERROR CONCAT) SPLITKEY (STRPOSL FRPLNODE SUBATOM +SUB1 ADD1) \FILE.NOT.OPEN (LISPERROR) MSINTERPRETSET (LIST NCONC GETVERBTABLES MSINTERPRETSET SELECTQ +LISTHARD SHOULDNT APPLY* MAPTABLE FUNCTION MAPC UNION GETTABLE MSHASHLIST SOME TESTRELQ TESTTABLE +FASSOC MAPCONC ONFILE TERPRI FMEMB SUBSET MKLIST CL:EVAL MSGETBLOCKDEC MSLISTSET RECORDFIELDNAMES +CHECKPATHS MSONPATH) WTFIXLOADEF (FINDFILE PACKFILENAME ASKUSER LIST EVAL) FEDITFINDP (FEDITFINDP) +COURIER.WRITE.SEQUENCE (\BOUT LENGTH COURIER.WRITE) \DRAWCURVE.PRESS.LINE (IQUOTIENT IDIFFERENCE IPLUS + IMAX IMIN IGREATERP) \FILE.WONT.OPEN (LISPERROR) SEDIT::MAP-FONT (SHOULDNT) \CANONICALIZE.NSADDRESS ( +LOCF \ADDBASE FRPLACD CONS) OPT.FRAMEVAR (REVERSE FMEMB SUB1 PLUS OPT.DREV SUBSET) \ILLEGAL.DEVICEOP ( +ERROR ARG LIST PLUS) \LFFileName (CHCON FIXP LENGTH ALLOCSTRING PLUS ADD1) DINFO.LOOKUP (RESETFORM +TTYDISPLAYSTREAM GETPROMPTWINDOW PROMPTFORWORD CONSTANT APPLY* PRINTOUT PRIN1 PROMPTPRINT) +\IS.NOT.RANDACCESSP (ARG ERROR) PPROCEXTENT (ITIMES IPLUS LENGTH IMINUS DSPLINEFEED IDIFFERENCE +WINDOWPROP) \LFMakeDirHole (TIMES SUB1 IPLUS ADD1 IDIFFERENCE PLUS) HARDCOPYIMAGEW.TOPRINTER ( +GetPrinterName PRINTERTYPE HARDCOPY.SOMEHOW CONCAT PRINTERPROP) TB.ITEM.VISIBLE? (DSPCLIPPINGREGION +\DTEST TB.BOTTOM.OF.ITEM < +) MSNEXTWORD (GETWORDTYPE FASSOC GETHASH GETFILEPKGTYPE CONS MSFAIL) +DINFO.ADD.FMENU (WINDOWPROP OPENW WINDOWP DINFO.CREATE.FMENU GETPROMPTWINDOW DINFO.UPDATE.FMENU) +DSPFILL (\OUTSTREAMARG \GETSTREAM DSPCLIPPINGREGION BLTSHADE) RESETKEYACTION (LLSH \#BLOCKDATACELLS +COPY) MB.NWAYBUTTON.SELFN (IMAGEOBJPROP) SHIFT.BITMAP.UP (BITMAPCREATE IPLUS) SETHASHSTATUS (WHENCLOSE + FUNCTION CONS) RESHAPEBYREPAINTFN (WINDOWPROP DSPCLIPPINGREGION IDIFFERENCE IMIN IPLUS IMAX +DSPXPOSITION DSPYPOSITION DIFFERENCE FONTPROP DSPSCROLL PLUS) COMPILER::COMPILE-AND-DUMP (CL:GETHASH +COMPILER::COMPILE-AND-DUMP-1) DOTABS (PRIN1) \NSPRINT.FULL.REQUEST.STATUS (GETNSPRINTER NLSETQ +RESETLST \NSPRINT.COURIER.OPEN LIST FUNCTION COURIER.CALL ASSOC SELECTQ) COMPILER::ALPHA-LABELS ( +COMPILER::MAKE-CHILD-ENV COMPILER::MAKE-LABELS CL:MAPCAR CL:FUNCTION) COMPILER::ALPHA-LAMBDA-LIST ( +COMPILER::LAMBDA-REQUIRED CL:NREVERSE COMPILER::LAMBDA-OPTIONAL COMPILER::LAMBDA-KEYWORD) COMPILE1 ( +COMPILE1A BYTECOMPILE2 COMPILE2) \FM.MOMENTARY-SELECTEDFN (RESETSAVE LIST) \EP.PUT.AUX (ASSOC +CREATECELL CONS FFETCHFIELD) FB.INCREASING.VERSION (NULL.VERSIONP ILESSP) CL::ESTABLISH-ACCESSORS ( +CL::PS-TYPE CL:MAPCAN CL:FUNCTION CL::PS-ALL-SLOTS) \HANDLE.NS.ROUTING.INFO (LOCF \ADDBASE SUB1 FOLDLO + LRSH - \CANONICALIZE.NSADDRESS \TRANSLATE.10TO3 \GETBASEPTR UNFOLD LLSH LOGAND SETUPTIMER +\RELEASE.ETHERPACKET) \TEDIT.DELETE (TEXTOBJ IDIFFERENCE IMAX \TEDIT.CLOSEUPLINES \TEDIT.SHOWSELS) +PROCESS.STATUS.WINDOW (MAPCAR FUNCTION FONTCREATE HEIGHTIFWINDOW + WIDTHIFWINDOW MAX WINDOWPROP - +POSITIONP GETBOXPOSITION CREATEW IQUOTIENT CONS) DINFO.DEFAULT.MENU (GETPROMPTWINDOW MENU FONTCREATE +THIS.PROCESS CONCAT SELECTQ DINFO.SPECIAL.UPDATE DINFO.FIND DINFO.LOOKUP DINFO.UPDATE) +\FM.MOMENTARY-SETUP (\FM.ITEMPROP FFETCHFIELD FUNCTION) MSPATHSPRINTFN (ADD1 POSITION) \PARAS.IN.SEL ( +IDIFFERENCE TEDIT.SELECTED.PIECES CONS PLUS DREVERSE) MB.NB.PACKITEMS (IPLUS NCONC1 CONS PLUS) +RIGHTW.ADJUSTSELECTION (WINDOWPROP MAINWINDOW WITH-INSPECTOR-ENV XCL::PROFILIZE CL:PROGV +XCL::PROFILE-VARIABLES XCL::PROFILE-VALUES STRINGWIDTH) OPT.FRAMEDEL (IGREATERP FASSOC PLUS MAP +OPT.CODEFRAME RPLACA OPT.CODELEV LENGTH OPT.COMPILERERROR IPLUS CONS OPT.PRATTACH SELECTQ FRPTQ +OPT.CCHECK) SHADEITEM (MENUITEMREGION WFROMMENU WINDOWPROP DISPLAYSTREAMP GETSTREAM DIFFERENCE +BITMAPWIDTH) \NSFILING.GETFILE (RESETLST \GETFILINGCONNECTION \NSFILING.LOOKUP.CACHE +\NSFILING.PARSE.FILENAME \NSFILING.CONNECT \NSFILING.OPEN.HANDLE SELECTQ \NSFILING.COMPOSE.PATHNAME +ADD1 ASSOC \NSFILING.FILLIN.ATTRIBUTES \NSFILING.FULLNAME \NSRANDOM.CREATE.STREAM FILING.CALL +\NSFILING.CHECK.ACCESS \NSFILING.ADD.TO.CACHE MKATOM U-CASE PLUS FFETCHFIELD CL:FUNCALL SHOULDNT +\NSFILING.HANDLE.ERROR \NSFILING.GET.NEW.SESSION WITHOUT.SESSION.MONITOR LISPERROR) \LFMakeLeaderPage +(FASSOC FIXP IDATE USERNAME \PFFindPageAddr) REPLACEHASHKEY (SETFILEPTR PRINTSTBYTE BOUT PRINTPTR +LOGAND RSH GETEOFPTR PRIN2 SPACES PRINT FORCEOUTPUT) \PFTransferPage (\PUTBASE \GETBASE +\DL.OBTAINNEWDOB FUNCTION \DL.RELEASEDOB) \CURVE2 (ELT \GETCOLORBRUSH MAXIMUMCOLOR DSPCOLOR +OPPOSITECOLOR \GETBRUSH \GETBRUSHBBT SUB1 IDIFFERENCE ITIMES DSPDESTINATION \TOTOPWDS \DSPTRANSFORMX +IPLUS LRSH \DSPTRANSFORMY ADD1 FOLDLO IMAX IABS IMINUS UNFOLD LLSH FQUOTIENT FTIMES FPLUS CONSTANT +\GETBASE POLYEVAL \FLOATBOX OPCODES PLUS) HARDCOPYIMAGEW.TOFILE (GetImageFile HARDCOPY.SOMEHOW) +\GETCHARCODE (IGEQ FIX NCHARS CHCON1) \LFDWIN (IPLUS LLSH \BIN) CHECK/MENU/IMAGE (CREATEWFROMIMAGE) +\LFMakeDirEntry (LENGTH IPLUS CL:ZEROP \BIN IGEQ \BOUT ADD1) EDIT4E1 (CONS DREVERSE) MAKEHASHKEY ( +IPLUS ITIMES DCHCON IMOD) MSCANT (RETFROM) PARAMETRICSPLINE (CONS LAST LENGTH ARRAY PLUS IDIFFERENCE +FDIFFERENCE FQUOTIENT ELT SUB1 FMINUS FTIMES FPLUS ADD1 IPLUS SETA) \FILINGSESSION.DEFPRINT ( +\DEFPRINT.BY.NAME) HARDCOPYIMAGEW (HARDCOPY.SOMEHOW) TB.RESHAPEFN (RESETLST WINDOWPROP +DSPCLIPPINGREGION RESHAPEBYREPAINTFN TB.FIRST.VISIBLE.ITEM# TIMES SUB1 TB.LAST.VISIBLE.ITEM#) +\DRAWPOLYGON.IP (\DRAWPOLYGON.GENERIC FQUOTIENT \WIDTHFROMBRUSH + - \VISIBLE.IP ILEQ PLUS +MASKSTROKE.IP LIST) WIDTHIFWINDOW (IPLUS ITIMES) DINFO.SELECT.GRAPH (RESETFORM TTY.PROCESS +THIS.PROCESS PROMPTPRINT EVAL MENU DINFO) \FM.CLEARITEM (\FM.ITEMPROP FFETCHFIELD LISTGET BLTSHADE) +\GET.COURIER.TYPE (\GET.COURIER.DEFINITION) GETBOXPOSITION (GETBOXSCREENPOSITION) DEFINEFONT.IP ( +FONTNAME.IP PLUS TIMES FONTPROP GETFRAMEVAR.IP FREPLACEFIELD CONS FFETCHFIELD) SKOR0 (NCHARS IQUOTIENT + ITIMES IDIFFERENCE SKOR CHCON ZEROP IGREATERP) \CLOSEF.PRESS (GETFILEPTR \BOUT FONTPROP \FACECODE +PLUS FOLDLO LRSH ADD1 IDIFFERENCE UNSIGNED LOGAND SUB1 LLSH LISP.TO.ALTO.DATE IDATE IPLUS FULLNAME +GETFILEINFO) BCOMPL2 (RESETLST EVAL APPEND LIST BRECOMPILE3 CONS FASSOC FMEMB DREMOVE VIRGINFN NCONC1) + FB.CANONICAL.DIRECTORY (\DTEST TTYDISPLAYSTREAM TTY.PROCESS THIS.PROCESS CL:MULTIPLE-VALUE-PROG1 +.UNWIND.PROTECT. FUNCTION DIRECTORYNAME FB.YES-OR-NO-P CL:FORMAT) CL::DEFINE-ACCESSORS (CL::PS-NAME +CL::PS-TYPE CL:MAPCAN CL:FUNCTION CL::PS-ALL-SLOTS) DASHES (IDIFFERENCE PRIN1) HEIGHTIFWINDOW ( +\INSURESCREEN IPLUS IMINUS DSPLINEFEED ITIMES) ADDMENU (TYPENAMEP POSITIONP IPLUS WINDOWPROP +CREATEWFROMIMAGE BITMAPCOPY CHECK/MENU/IMAGE FUNCTION DSPCLIPPINGREGION MENUREGION) STANDARDEDITE ( +RESETFORM EDITMODE EDITE) \MAIKO.10MBTURNONETHER (LOCF \ADDBASE) MSJOINDETS (SHOULDNT) +COMPILER::COMPILE-AND-DUMP-1 (COMPILER::COMPILE-ONE-LAMBDA) \CREATECHARSET.PRESS (RESETLST) +FB.EDITCOMMAND (FB.SELECTEDFILES FB.FETCHFILENAME) COMPILER::ALPHA-IL-FUNCTION (COMPILER::ALPHA-LITERAL + COMPILER::ALPHA-FUNCTION COMPILER::MAKE-CALL LIST) MSPATHS4 (GETHASH GETRELQ UNION GETTABLE FASSOC +MSPATHS4) \DRAWARC.PRESS (\DRAWARC.GENERIC) \FM.INSUREVISIBLE (DSPCLIPPINGREGION \FM.ITEMPROP +FFETCHFIELD SCROLLW FQUOTIENT WINDOWPROP) \TEDIT.CENTER.SEL.REV (\PARAS.IN.SEL TEDIT.GET.PARALOOKS +LISTGET MEMB CONSTANT TEDIT.SETSEL CONS DREVERSE) CL::\OPENSTREAM-WITH-DEFAULT (DECLARE OPENSTREAM +CL:MERGE-PATHNAMES PATHNAME) RIGHTW.BUTTONEVENTFN (WINDOWPROP MAINWINDOW WITH-INSPECTOR-ENV +XCL::PROFILIZE CL:PROGV XCL::PROFILE-VARIABLES XCL::PROFILE-VALUES LOGAND ONED.TRACKCURSOR STRINGWIDTH + FONTPROP FUNCTION CL:FUNCALL) OPT.FRAMELOCAL (FASSOC) \PSWOP.SELECTED (PROMPTPRINT \PSW.SELECTED +TTY.PROCESS FIND.PROCESS LIST WFROMMENU SETUPTIMER WINDOWPROP SELECTQ MENU PROCESS.READ THIS.PROCESS) +\NSFILING.CLOSE.HANDLE (FILING.CALL) INSERTHASHKEY (TIMES REHASHFILE SETFILEPTR ADD1 PRINTPTR LOGAND +RSH BOUT REPLACEHASHKEY) \PFGetPhysicalVolumePage (\PFTransferPage) MASTERSCOPEXEC (EVALV ARGTYPE CONS + MSINTERPRET) SPLIT89 (DUNPACK NLEFT FMEMB LIST CONS PACK LDIFF) FB.MAKE.BROWSER.BUSY (LIST FUNCTION +CONS) COMPILER::ALPHA-IF (COMPILER::MAKE-IF COMPILER::ALPHA-FORM) SEDIT::TRY-REUSING-BITS (IPLUS +IDIFFERENCE SEDIT::NEXT-LINEAR-ITEM) TEDIT.INSERT (TEXTSTREAM MKSTRING NCHARS IMAX SELECTQ IMIN ADD1 +SUB1 IPLUS \GETBASEFAT \GETBASE \GETBASETHIN \GETBASEBYTE PLUS TEXTOBJ TEDIT.PROMPTPRINT) PRESSBITMAP +(OPENPRSTREAM BITMAPWIDTH BITMAPHEIGHT IQUOTIENT IDIFFERENCE FIX TIMES TERPRI IMAX CREATEREGION MIN +QUOTIENT IPLUS CLOSEF) FB.GREATEST.PREFIX (NTHCHARCODE SUBSTRING PLUS) CL::PROCESS-ACCESSORS ( +CL::PS-INLINE) XIPAPPEND.IFSSTRING (XIPAPPEND.STRING) \FDEVINSTANCE (\INHERITFDEVOP.S FUNCTION +\INHERITFDEVOP.D) MSVERBED (MSCANT MSNEXTWORD) SHIFT.BITMAP.DOWN (BITMAPCREATE IPLUS) NCREATE2 ( +\GETDTD \ADDBASE ITIMES CREATECELL NTYPX MAPC \ADDREF OPCODES) COMPILER::CONSTANT-EXPRESSION-P ( +CL:CONSTANTP GET) \FTP.RENAMEFILE (\GENERIC.RENAMEFILE RESETLST \FTP.UNPACKFILENAME FDEVOP +SPREADAPPLY* FULLNAME \GETFTPCONNECTION MARK# FTPPUTMARK FTPGETMARK FTPGETCODE .FTPDEBUGLOG. LISPERROR +) CH.LIST.ALIASES.OF (COURIER.CALL CH.FINDSERVER PARSE.NSNAME CH.GETAUTHENTICATOR) +\PRESS.CONVERT.NSCHARACTER (SELCHARQ \CHAR8CODE LOGAND) \NSFILING.GENERATEFILES ( +\NSFILING.PARSE.FILENAME \GETFILINGCONNECTION STRPOS \NSFILING.GENERATE.STARS LIST SUBSTRING +NTHCHARCODE CONCAT \NSFILING.CONNECT CL:REMOVE-DUPLICATES APPEND CONSTANT +\FILING.ATTRIBUTE.TYPE.SEQUENCE \FILING.ATTRIBUTE.TYPE ASSOC CONS FILING.CALL DREMOVE FUNCTION +BULKDATA.GENERATOR DIRECTORY.MATCH.SETUP PRIN1 \NULLFILEGENERATOR) \VFMGet1 (ELT \VFMGetInterval) +ESUBST1 (MAPC /RPLNODE ESUBST1 APPLY) \DRAWCIRCLE.PRESS (FIXR FTIMES CONSTANT FQUOTIENT SQRT LIST +CREATEPOSITION IPLUS IDIFFERENCE MOVETO) CNDIR (PATHNAME DIRECTORYNAME \CONVERT-PATHNAME ERROR +COPY-PATHNAME %%PATHNAME-HOST CL:PATHNAME-HOST %%PATHNAME-DEVICE CL:PATHNAME-DEVICE +%%PATHNAME-DIRECTORY CL:PATHNAME-DIRECTORY) EDITFINDP (EDITFPAT EDIT4E EDIT4F1) CL:PATHNAME-DIRECTORY +(%%PATHNAME-DIRECTORY PATHNAME) HEADINGOP.IP (DIFFERENCE FONTPROP GETFRAMEVAR.IP) UNMARKASCHANGED ( +GETFILEPKGTYPE MEMBER ASSOC REMOVE) CL:PATHNAME-DEVICE (%%PATHNAME-DEVICE PATHNAME) CH.LIST.ALIASES ( +COURIER.CALL CH.FINDSERVER PARSE.NSNAME CH.GETAUTHENTICATOR) EDITL (CL:FUNCALL GET EDITMODE) +\BITMAPSIZE.PRESS (SELECTQ UNFOLD LLSH BITMAPWIDTH BITMAPHEIGHT CONS \ILLEGAL.ARG) CL:PATHNAME-HOST ( +%%PATHNAME-HOST PATHNAME) DEDITE (EDITE) \HLSVALUEFN (IPLUS FIX FTIMES FPLUS FQUOTIENT FDIFFERENCE) +ONEDINSPECT.PROPWIDTH (STRINGWIDTH IPLUS CHARWIDTH) \HANDLE.RAW.3TO10 (+ FOLDHI LRSH IPLUS LOCF +\ADDBASE) WFROMMENU (OPENWINDOWS WINDOWPROP) MSONPATH (HASHARRAY MSLISTSET PUTHASH MSPATHS4) FIXATOM2 +(ARG) EDITFA (TERPRI) DWIMIFY1 (DWMFY1) DIRECTORYNAME (CL:NAMESTRING SELECTQ SYSTEMTYPE GETDIRNAME +FILENAMEFIELD NTHCHARCODE SUBSTRING \GETDEVICEFROMHOSTNAME SELCHARQ PACKFILENAME.STRING NCHARS FDEVOP +SPREADAPPLY* MKSTRING MKATOM HELP) SEDIT::SHIFT-BLOCK (ADD1 IDIFFERENCE IPLUS) ADDSPELL1 (LIST CONS) +KEYDOWNP (\NEWKEYDOWNP \GETBASEBIT LOGAND \GETBASEBYTE FOLDLO LRSH MASK.1'S LSH SUB1 IDIFFERENCE +CONSTANT IMOD \KEYNAMETONUMBER) TWODINSPECT.COLUMNWIDTH (IMAX STRINGWIDTH APPLY*) OPT.MERGEFRAMEP ( +FASSOC) PREEDITFN (SELECTQ CONS GETPROPLIST GETHASH PUTHASH RESETSAVE LIST FUNCTION APPEND GETPROP +EVALV MAPCAR) HASHFILESPLST1 (MAPHASHFILE FUNCTION) CL::SETF-NAME (XCL:PACK LIST) XIPAPPEND.STRING ( +STRINGP LITATOM MKSTRING NCHARS IDIFFERENCE CEIL LOGAND IPLUS CONSTANT SUB1 LOGXOR FOLDLO LRSH PLUS +FFETCHFIELD LOCF \ADDBASE \PUTBASESTRING) PROCESS.BACKTRACE (ATTACHEDWINDOWS WINDOWPROP CREATEW +IDIFFERENCE FONTCREATE \MAKESTACKP SELECTQ) CLIPBOARD-COPY-STREAM (UNIX-GETENV CREATE-PROCESS-STREAM) +\TEDIT.COPY.PIECEMAPFN (IMAGEOBJPROP APPLY* COPYALL WINDOWPROP \TEDIT.UNIQUIFY.CHARLOOKS) +TTYINFOSTREAM (PROCESS.TTY \GETSTREAM) SHIFT.BITMAP.LEFT (BITMAPCREATE IPLUS) FB.MERGE.DIRECTORIES ( +CONCAT CL:SECOND) \UPDATE.PROCESS.WINDOW (WINDOWPROP) MSMATCHRATING (IPLUS SELECTQ MSTYPEMATCHRATING +MSSUBJTYPE MSOBJTYPE) \FM.ENDEDIT (WINDOWPROP TTY.PROCESS THIS.PROCESS PROCESS.RESULT ERROR) +LEAF.ASSURE.FINISHED (\DTEST CL:MULTIPLE-VALUE-PROG1 .UNWIND.PROTECT. FUNCTION) MSPATHS1 (ADD1 +MSPATHSPRINTFN GETHASH BELOWMARKER NCONC1 IDIFFERENCE GETRELQ UNION GETTABLE FASSOC LIST MSMEMBSET +IGREATERP IPLUS NCHARS PUTHASH CONS) FB.EXPUNGECOMMAND (TB.COLLECT.ITEMS FB.FETCHFILENAME PLUS BLOCK +CONCAT) \TEDIT.FOREIGN.COPY? (PROCESSPROP TTY.PROCESS WINDOWPROP WFROMDS PROCESS.TTY OBJECTOUTOFTEDIT +\BIN CHARACTER PLUS) SEDIT::UNDO (SEDIT::CLOSE-NODE SEDIT:GET-PROMPT-WINDOW GETPROMPTWINDOW PRIN1) +\DSPSCALE2.IP (CONCATT.IP) BAKTRACE (STKNTH CONS STKNAME CL:SOME CL:FUNCTION LOGOR STKARG SUB1) +\UNQUEUE (UNINTERRUPTABLY ERROR LIST) MODIFY.KEYACTIONS (MAPCAR CONS KEYACTION MAPC EVAL) +\DUMP.COURIERPROGRAMS (\GET.COURIERPROGRAM GETHASH PRIN2 PRINTDEF) CL:NAMESTRING (PATHNAME +%%PATHNAME-HOST %%PATHNAME-DEVICE %%PATHNAME-DIRECTORY %%PATHNAME-NAME %%PATHNAME-TYPE +%%PATHNAME-VERSION CONCATLIST NCONC) SEDIT::REUSE-LINEAR-FORM (IPLUS SEDIT::SCAN-FOR-BOUNDS LAST PLUS +FFETCHFIELD IDIFFERENCE SEDIT::LAST-LINE-LINEAR) MASTERSCOPE1 (TERPRI CL:FIND-PACKAGE SELECTQ +LISPXREAD LISPX RETFROM FUNCTION) EDITFERROR (TERPRI ASKUSER CONCAT EDITE COPY RETFROM) MOUSECONFIRM ( +GETPROMPTWINDOW CONCAT PRIN1 RESETFORM CURSOR LOGAND LOGOR LASTMOUSESTATE ZEROP) DIRECTORY (APPEND +LIST FIXP CONS MKSTRING NCHARS FREEVARS IDIFFERENCE IDATE TIMES DEFERREDCONSTANT \ILLEGAL.ARG FASSOC +NCONC MAPCAR CAR DIRECTORY.PARSE RESETSAVE SETTERMTABLE OUTPUT GETSTREAM OPENSTREAM REVERSE PLUS TAB +CL:VALUES) METASHIFT (KEYACTION ARG ASSOC) \CHARWIDTH.PRESS (\PRESS.CONVERT.NSCHARACTER \FGETCHARWIDTH + \FGETWIDTH \GETBASE \GETCHARSETINFO \GETBASEPTR UNFOLD LLSH \CHARSET LRSH \CREATECHARSET \CHAR8CODE +LOGAND) DSPSCROLL (\GETDISPLAYDATA \DTEST \OUTSTREAMARG \GETSTREAM) RESHAPEALLWINDOWS (ATTACHEDWINDOWS + SHAPEW1 \RESHAPEATTACHEDWINDOWSAROUNDMAINW \BREAKAPARTATWSTRUCTURE \BUILDATWSTRUCTURE WINDOWSIZE +IDIFFERENCE \TOTALFIXEDWIDTH IMAX DIFFERENCE \TOTALFIXEDHEIGHT \SHAREOFXTRAX \SETWINFOYSIZE +\SHAREOFXTRAY \TOTALPROPOSEDSIZE \SETWINFOXSIZE IPLUS SELECTQ PLUS CREATEREGION) EDITF2 (SELECTQ) +SHIFT.BITMAP.RIGHT (BITMAPCREATE IPLUS) COMPILER::SET-UP-BLOCK-DECLS (CL:MAKE-HASH-TABLE) +\FM.CHANGESTATE (WINDOWPROP \FM.NWAY-CHANGESTATE SELECTQ \FM.ITEMPROP FFETCHFIELD +\FM.TOGGLE-CHANGESTATE \FM.3STATE-CHANGESTATE \FM.STATE-CHANGESTATE) EDITF (NLAMBDA.ARGS EDITDEF PRINT +) DISPLAYLINK (GN/LEFT GN/RIGHT DISPLAYLINK/RL DISPLAYLINK/LR GN/BOTTOM GN/TOP DISPLAYLINK/BT +DISPLAYLINK/TB) CLISPIFY2A (CLISPIFY2 LIST) ATTACHEDWINDOWS (WINDOWPROP ASSOC LIST) SHIFTDOWNP ( +SELECTQ \ILLEGAL.ARG) MB.NB.SIZEFN (IMAGEOBJPROP IDIFFERENCE PLUS LIST MAPCAR ITIMES LENGTH IMINUS +MB.NB.PACKITEMS MAPCONC COPY NCONC) TTY/EDITE (RESETLST SELECTQ SYSTEMTYPE TTYINFOSTREAM CONS LIST +LAST EDITL HELP) GETPROBE (FNTH ADD1 LOGAND NTHCHARCODE LRSH NCHARS) FB.MAYBE.EXPUNGE (SELECTQ MENU +FB.EXPUNGE?.MENU FB.EXPUNGECOMMAND) MSPATHS2 (GETHASH PUTHASH TESTRELQ TESTTABLE FASSOC GETRELQ UNION +GETTABLE) DIRECTORYNAMEP (PACKFILENAME.STRING \GETDEVICEFROMNAME SPREADAPPLY*) TEDIT.DELETE (TEXTOBJ) +EDITDEF (GETFILEPKGTYPE APPLY*) OPT.FRAMEMERGE (FNTH NCONC IPLUS OPT.PRATTACH OPT.NONILVAR SUB1) +HOSTNAMEP (U-CASE MKATOM CHCON1 SUBATOM SUB1 STRPOS SPREADAPPLY*) EDITDEF.FNS (GET GETD GETPROP) +\LFGenFileID (FREPLACEFIELD PLUS FFETCHFIELD) EDITF1 (EDITE) GETHASHKEY (MAKEHASHKEY BIN READPTR IPLUS + LLSH READ GETPROBE REHASHKEY ITIMES IMOD IQUOTIENT IMINUS) CL::CACHE-PREDICATE-INFO ( +CL::GET-PS-FROM-PREDICATE) XIPAPPEND.WORD (\DTEST UNFOLD LLSH IDIFFERENCE CEIL LOGAND IPLUS CONSTANT +SUB1 LOGXOR FOLDLO LRSH) \DSPTRANSLATE.IP (CONCATT.IP) FB.FINISH.COMMAND (WINDOWPROP GETMENUPROP +FB.PROMPTWPRINT) OPT.NONILVAR (OPT.NONILVAR) \CLEAR.ROUTING.TABLE (NTYPX PLUS \ADDBASE \CREATECELL) +ATTACHWINDOW (INSURE.WINDOW ALLATTACHEDWINDOWS CONS FUNCTION) SUBATOM (STRINGP MKSTRING IPLUS \MKATOM +ADD1 IDIFFERENCE LISPERROR) EXPRESSIONS.WHENCHANGED (SELECTQ UNMARKASCHANGED MAPC +EXPRESSIONS.WHENCHANGED) UNSAVEBLOCK? (MAPC FILECOMSLST FASSOC LIST GETPROP NCONC1 ASKUSER LOADDEF) +SEDIT::NORMALIZE-SELECTION (DSPCLIPPINGREGION) COMPILER::ALPHA-FUNCTIONAL-FORM (CL:FIRST CL:SECOND +COMPILER::ALPHA-FUNCTION COMPILER:MAKE-CONTEXT COMPILER::ALPHA-FORM) \SPP.HANDLE.INPUT (GETXIP ILESSP +\LOLOC IDIFFERENCE FUNCTION SEQ.ADD1 \ADDBASE IPLUS SUB1 LRSH ITIMES IMAX IMIN CLOCKDIFFERENCE) DREAD +(READC PLUS NCHARS) LOADDEF (PUTDEF GETDEF) WRITE-UNICODE-INCLUDED (MAPCAR NCONC SASSOC HELP +OCTALSTRING STRPOS CL:PARSE-INTEGER SUBSTRING ADD1 SUB1 LIST PLUS CONS ASSOC LRSH SORT LAST CONCAT +CL:VALUES) UNPACKFILENAME.STRING (NCHARS LITATOM STRINGP NUMBERP UNPACKPATHNAME.STRING LIST +NTHCHARCODE SUB1 \UPF.NEXTPOS CONS SUBATOM SUBSTRING DREVERSE IPLUS GETHOSTINFO LASTCHPOS ADD1 +SELCHARQ CANONICAL.DIRECTORY ALLOCSTRING PLUS \PUTBASEBYTE \PUTBASE MKATOM ILEQ \UPF.TEMPFILEP) +CH.DELETE.ALIAS (COURIER.EXPEDITED.CALL CH.FINDSERVER PARSE.NSNAME CH.GETAUTHENTICATOR) MSNEEDUNSAVE ( +GETP LIST UNSAVEFNS TERPRI /SETATOMVAL NCONC) EDITDEFAULT1 (LISPXWATCH) \BLTSHADE.PRESS (CREATEREGION +INTERSECTREGIONS \BLTSHADE.GENERICPRINTER) \BACKPEEKBIN (UNINTERRUPTABLY \BIN) DECODE-NS-STRING ( +NCHARS + \GETBASEBYTE PLUS ALLOCSTRING \ADDBASE LLSH) \MAIKO.10MBWATCHER (SUBSTRING +\MAIKO.INPUT.INTERRUPT PLUS) EDITH (SELECTQ READLINE ERROR! LISPXFIND FMEMB LDIFF CONS LIST +UNDOEDITCOM RESETSAVE SETREADTABLE GETREADTABLE RESETVARS .RESETLST. CL:MULTIPLE-VALUE-PROG1 +.UNWIND.PROTECT. FUNCTION LISPX LISPXREADBUF LISPXREAD) DINFO.WRITE.GRAPH (WRITEFILE LIST) +PUPNET.DISTANCE (\LOCATE.PUPNET PLUS) \BACKBIN (\PEEKBIN) \NSFILING.PARSE.FILENAME (NCHARS SELCHARQ +CHCON1 NTHCHARCODE PLUS + ADD1 NCONC1 SUBSTRING SUB1 CL:PARSE-INTEGER -) RETDWIM3 (CONS RETDWIM3 SUB1) + EDIT* (NLEFT MINUS NTH CONS) TB.BROWSER.BUSY (RESETFORM CURSOR BLOCK) PRINTBINDINGS (RESETFORM +PRINTLEVEL TERPRI STKNTH STKSCAN STKARG STKNAME GETTOPVAL) \COURIER.GETDEF (\GET.COURIERPROGRAM +GETHASH) BIN (\BIN) \NSPRINT.WATCH.JOB (LIST FIND.PROCESS ADD.PROCESS FUNCTION) SETUP.OFFICE.KEYBOARD +(SELECTQ MACHINETYPE MODIFY.KEYACTIONS) \DRAWARC.GENERIC (DRAWCURVE \COMPUTE.ARC.POINTS DRAWCIRCLE) +SHRINKW (WINDOWOP SPREADAPPLY* \INSUREWINDOW) \BINS (FDEVOP SPREADAPPLY* \DTEST) \FM.HIGHLIGHTITEM ( +\FM.DISPLAYBITMAP \FM.ITEMPROP LISTGET FFETCHFIELD BITBLT) EDLOC (EDITCOMS) FB.MAYBE.INSERT.FILE ( +NCHARS SUB1 FB.CREATE.FILEBUCKET APPEND MAPCAR GETFILEINFO INFILEP UNPACKFILENAME.STRING CL:POSITION +CL:NTH IDATE PACKFILENAME.STRING) \SPP.INFO.HOOK (INSPECT PROCESSPROP CREATEW GETBOXREGION FONTCREATE) + BOUT (\BOUT) SEDIT::WALK-UP-TREE (CL:FUNCALL) BURYW (WINDOWOP SPREADAPPLY* \INSUREWINDOW) +POP-IP-STACK (STREAMPROP ERROR) MB.NB.WHENOPERATEDFN (SELECTQ IMAGEOBJPROP) TWODINSPECT.SETELT ( +GETPROMPTWINDOW APPLY* WINDOWPROP XCL::PROFILIZE CL:PROGV XCL::PROFILE-VARIABLES XCL::PROFILE-VALUES +RESETLST RESETSAVE TTYDISPLAYSTREAM TTY.PROCESS THIS.PROCESS CLEARBUF printout PRIN1 CL:FUNCALL +LISPXREAD) CHCON1 (\GETBASECHAR \GETBASEFAT \GETBASE \GETBASETHIN \GETBASEBYTE NTHCHARCODE) \BOUTS ( +FDEVOP SPREADAPPLY* \DTEST) MSJOIN (UNION MKLIST) \PFFindFileSize (\VFMGetPageGroup \PFGetVol) EDITRAN + (FASSOC SOME FMEMB FIXSPELL BLKAPPLY LDIFF MAPCAR SELECTQ EVAL) FIND1STPRIME (LOGOR IREMAINDER ITIMES + PLUS) \MAIKO.INPUT.INTERRUPT (LOCF \ADDBASE \ALLOCATE.ETHERPACKET) \VFMGet (\BLT ELT \VFMGetInterval +MESASIZE) %%EXTEND-ARRAY (%%TOTAL-SIZE) BCOMPL1A (NCONC FILECHANGES NCONC1 EVAL \GETSTREAM CONS) +EDITTO (IPLUS IMINUS) ONEDINSPECT.REPAINTFN (DSPCLIPPINGREGION WINDOWPROP XCL::PROFILIZE CL:PROGV +XCL::PROFILE-VARIABLES XCL::PROFILE-VALUES SUB1 FONTPROP APPLY*) \DEFAULTSTATE.IP (ISET.IP) +%%ARRAY-CONTENT-INITIALIZE (CL:ARRAY-RANK %%ARRAY-ELEMENT-INITIALIZE CL:ARRAY-DIMENSIONS +%%FILL-ARRAY-FROM-SEQUENCE %%FLATTEN-ARRAY CL:ERROR) EDITDEFAULT (FASSOC EDITRAN EDITQF EDITCOM LIST +EDITH EDITUSERFN U-CASE READLINE CONS NTHCHAR RPLSTRING MKATOM APPEND NTHCHARCODE MKSTRING FIXSPELL +SUB1) \QUEUELENGTH (PLUS) \INIT.KEYBOARD.STREAM (FUNCTION) MOVEW (WINDOWOP SPREADAPPLY*) +\COURIER.PUTDEF (GETHASH \DTEST) COPYBYTES (\GETSTREAM \ILLEGAL.ARG IDIFFERENCE \GETEOFPTR GETFILEINFO + \GETFILEPTR SPREADAPPLY* \BOUT \BIN) SEDIT::PAINT-TO-END-OF-LINE (ADD1 IDIFFERENCE SEDIT::REPAINT) +\PAPERSIZE.IP (SELECTQ CL:ASSOC ERROR LIST TIMES) EDITCOM (LIST EDIT1F) \ADD.PACKET.FILTER (FMEMB +NCONC1) DEFAULT.EDITDEF (GETDEF WHEREIS CL:FORMAT ASKUSER MAKEKEYLST) \GETEOFPTR (FDEVOP SPREADAPPLY*) + SEDIT::UNDO-REPLACE-QUOTE (SEDIT::SUBNODE LIST) UNSAVEFNS (APPEND EXPRP GETP RESETVARS .RESETLST. +LIST CONS CL:MULTIPLE-VALUE-PROG1 .UNWIND.PROTECT. FUNCTION WHEREIS TERPRI REMOVE printout) EDRPT ( +RESETVARS .RESETLST. LIST CONS CL:MULTIPLE-VALUE-PROG1 .UNWIND.PROTECT. FUNCTION ADD1) +\NSPRINT.WATCHDOG (DREMOVE) COMPILER::ALPHA-FLET (COMPILER::MAKE-CHILD-ENV) \SCALEDBITBLT.PRESS ( +\DSPXPOSITION.PRESS \DSPYPOSITION.PRESS INTERSECTREGIONS CREATEREGION) \BUFFERED.COPYBYTES ( +IDIFFERENCE IPLUS SPREADAPPLY*) INSPECT/AS/RECORD (MENU SORT LIST FUNCTION INSPECT) +ADD/AND/DISPLAY/LINK (TOLINKS TERPRI CONSTANT) EDUP (MEMB CONS) COMPILER::ALPHA-FUNCTION ( +COMPILER::CONTEXT-APPLIED-CONTEXT) \DEL.PACKET.FILTER (DREMOVE) \POPSTATE.IP (IP-TOS APPENDOP.IP) +RANDACCESSP (\GETSTREAM) \NSFILING.COMPOSE.PATHNAME (CONCATLIST NCONC MAPCONC LIST \NSFILING.ADDQUOTES +) CURSOR.INIT (UNFOLD LLSH) FB.PRINTFN (TB.USERDATA WINDOWPROP DSPFONT + PLUS - \GETBASEFAT \GETBASE +\GETBASETHIN \GETBASEBYTE DSPXPOSITION IMAX STRINGWIDTH CHCON1 CHARWIDTH) \LFCheckBang (BIN +\LFDirectoryScrambled) CLISPLOOKUP (GETPROP GETLOCALDEC CLISPLOOKUP0 SELECTQ GETATOMVAL) \SETFILEPTR ( +FDEVOP SPREADAPPLY*) \LEAF.FLUSH.CACHE (WITH.MONITOR CL:MULTIPLE-VALUE-PROG1 .UNWIND.PROTECT. FUNCTION +) \CHANGE-VISIBLE-REGION.IP (- ADD1 + <= MIN) SI::CANONICALIZE-ADVICE-WHEN-SPEC (CL:INTERN STRING) +%%ALTER-AS-DISPLACED-TO-BASE-ARRAY (%%TOTAL-SIZE %%CML-TYPE-TO-TYPENUMBER) \GETSTREAM (SELECTQ +\IOMODEP \FILE.NOT.OPEN ERROR) CHANGERECORD (MSNEEDUNSAVE GETRELATION UNION) EDITCOMA (EDITMAC +EDITCOMS SELECTQ CONS LAST LIST RETFROM RETEVAL PUTPROP SHOULDNT NLSETQ EDITL0 STKPOS CL:THROW LISPX +LISPXREAD EDITQF ERROR! BPNT0 TERPRI FLAST EDITH EDIT!UNDO FMEMB EDITSMASH PRIN1 EDITBF EDUP EDIT%: +EDIT* EDITDEFAULT) DPRIN1 (TAB PLUS NCHARS PRIN1) COPYCHARS (\GETSTREAM COPYBYTES \GETEOFPTR FIX +\ILLEGAL.ARG \GETFILEPTR SPREADAPPLY* IMIN IPLUS \INCHAR IGEQ IDIFFERENCE SELCHARQ \BIN \BOUT PLUS) +APPLYTOSELECTEDNODE (MODERNWINDOW.BUTTONEVENTFN FUNCTION) CURSORPROP (PUTCURSORPROP ARG GETCURSORPROP +\ILLEGAL.ARG) CL:ADJUST-ARRAY (CL:ERROR LIST CL:ARRAY-ELEMENT-TYPE %%TOTAL-SIZE LENGTH CL:ARRAY-RANK + + CL:ARRAY-TOTAL-SIZE MIN CL:FILL-POINTER CL:ARRAY-DIMENSIONS CL:MAKE-ARRAY %%FAT-STRING-ARRAY-P +%%FLATTEN-ARRAY) \VFMGetInterval (\PFVolumeNumber ELT SETA SUB1 ARRAY \VFMGetBufferFor PLUS) \INCHAR ( +\CHECKEOLC SELCHARQ SELECTC LIST \CHECKEOLC.CRLF CL:FUNCALL) GETCURSORPROP (LISTGET) +\SPP.RETRANSMIT.NEXT (ELT IMOD SEQ.ADD1 \LOLOC \ADDBASE) WRITE-UNICODE-MAPPING-FILENAME (PACKFILENAME +CONCATLIST CONS NCONC LIST) COMPILER::ALPHA-GO (CL:ASSOC COMPILER::MAKE-GO) PUTCURSORPROP (LISTGET +LIST) EDITSAVE (HISTORYSAVE) FUNCTIONSMSMC (GETDEF) UNDOEDITCOM (FLAST CONS) CL::DEFAULT-PREDICATE-NAME + (CL:VALUES CL:INTERN CL:CONCATENATE STRING) XIPAPPEND.BYTE (\DTEST IDIFFERENCE PLUS FFETCHFIELD LOCF +\ADDBASE) EDITCOM1 (CONS LIST EVAL LISPX/ /RPLNODE APPLY LISTGET1) TEDIT.PROMPTPRINT (TEXTOBJ +WINDOWPROP \TEDIT.MAINW NLSETQ SELECTQ GETPROMPTWINDOW PRIN1) UNDOEDITCOM1 (MAPC UNDOEDITCOM1 EDITCOM1 + LISPXWATCH) \FM.CHANGELABEL (ATOM STRINGP BITMAPP \FM.ITEMPROP FFETCHFIELD APPEND LIST \FM.GETREGIONS + \FM.GETBITMAPS SELECTQ \FM.NUMBER-CHANGESTATE LISTGET \FM.3STATE-SETUPOFFBITMAP) EXTENDABLE-ARRAY-P ( +CL:ERROR) SI::CANONICALIZE-ADVICE-SYMBOL (STRPOS LIST SUBATOM CL:1- +) \COPYOPENFILE (GETFILEINFO CONS + LIST ASSOC \INFER.FILE.TYPE OPENSTREAM CLOSEF) SEDIT::UNDO-LIST-REPLACE (LAST FIXP SUB1) TB.WINDOW ( +\DTEST) \CURSORMASKPROPNAME (SELECTQ SHOULDNT) CLEAR.LEAF.CACHE (\GETDEVICEFROMNAME +\CANONICAL.HOSTNAME \LEAF.FLUSH.CACHE) OPENSTREAM (SELECTQ \ILLEGAL.ARG APPEND \GETSTREAM +\CONVERT-PATHNAME \OPENFILE \SEARCHOPENFILES) OPT.FRAMEOPT (SUBSET) \MAIKO.10MBSENDPACKET ( +\ALLOCATE.ETHERPACKET LOCF \ADDBASE ADD1 \REQUEUE.ETHERPACKET) \CURSORIMAGEPROPNAME (SELECTQ SHOULDNT) + %%COPY-TO-NEW-ARRAY (MIN %%FAST-COPY-BASE %%ARRAY-BASE + %%ARRAY-OFFSET %%ARRAY-TYPE-NUMBER) +CL:ADJUSTABLE-ARRAY-P (CL:ERROR) RETDWIM2 (RETDWIM3) EDITSAVE1 (FMEMB LAST) %%ALTER-AS-DISPLACED-ARRAY + (%%TOTAL-SIZE +) COMPILER::ALPHA-EVAL-WHEN (CL:FUNCTION COMPILER::ALPHA-PROGN) SEDIT::OUTPUT-STRING ( +SEDIT::STRINGWIDTH RPLACD CONS FREPLACEFIELD IMAX FFETCHFIELD FONTPROP SEDIT::ADVANCE PLUS MKSTRING +SEDIT::MAP-FONT) FIXPRINTIN (POSITION) EDITSMASH (CONS MEMB) CL:FILL-POINTER (CL:ERROR) OPT.SETDEFREFS + (FRPLACD FASSOC CONS) CLOSEF (\GETSTREAM STREAMPROP APPLY*) \TEDIT.WINDOW.OPS (DIFFERENCE WINDOWPROP +LOGAND LOGOR LASTMOUSEX LASTMOUSEY) \PFFindPageAddr (\VFMGetPageGroup \PFGetVol IPLUS IMINUS) EDIT2F ( +COPY APPEND NTH SUB1 IMINUS CONS EDITSMASH1 NCONC) DELETEHASHKEY (SETFILEPTR PRINTPTR LOGAND RSH SUB1 +BOUT PRINTSTBYTE FORCEOUTPUT) MSSEEKTYPE (GETWORDTYPE FASSOC GETHASH MSNEXTWORD MSTRYSPELLTYPE) PROGN +(\EVAL) FUNCTIONSMSGETDEF (REMOVE-COMMENTS GETDEF SELECTQ GETTEMPLATE) EDIT4F1 (CONS EDIT4E EDIT4F2 +SUB1) ARRAY-NEEDS-INDIRECTION-P (CL:ERROR) \FM.DISPLAYITEM (\FM.DISPLAYBITMAP \FM.ITEMPROP LISTGET +FFETCHFIELD BITBLT) EDITAPPEND (CONS EDITAPPEND) XIPAPPEND.CELL (\DTEST UNFOLD LLSH IDIFFERENCE CEIL +LOGAND IPLUS CONSTANT SUB1 LOGXOR \ADDBASE FOLDLO LRSH \HINUM \LONUM) DIRFILENAME (MKATOM U-CASE) +\LFDWOUT (LOGAND LRSH \BOUT) BITSPERPIXEL (BITSPERPIXEL SELECTQ ARRAYSIZE LISPERROR) FB.REMOVE.FILE ( +TB.NTH.ITEM SUB1 ADD1 PLUS STRING-EQUAL FB.COUNT.FILE.CHANGE) EDIT1F (ERROR! NTH CONS NLEFT IMINUS) +\TEDIT.BOLD.CARET.ON (\TEDIT.PARSE.CHARLOOKS.LIST) EDITCOML (EDITMAC EDITCOMS SUBPAIR SUBST SELECTQ +EDITCOM1 LIST EDLOC SET EDIT4F CONS MAPCAR LISPX/ EDITNCONC COPY EDITAPPEND BPNT MAPC EDITQF EDITBF +EDITNTH NLSETQ ERROR! EDIT.RI EDIT.RO EDIT.LI EDIT.LO EDIT.BI EDIT.BO EDIT* IMINUS EDOR EDITMBD +EDITXTR EDITTO EDIT%: EDITMV EDRPT EDLOCL EDITFPAT EDITBELOW EDITSW EDITCOM RESETLST APPLY EDITDEFAULT +) EDITFPAT1 (CONS NCHARS NTHCHARCODE SUBSTRING SUB1 STRPOS ADD1 DREVERSE EDITFPAT1) +CL:ARRAY-HAS-FILL-POINTER-P (CL:ERROR) \SPP.PROBE (\SPP.SENDPKT \SPP.SYSPKT) COPYFILE (PACKFILENAME +UNPACKFILENAME RESETLST RESETSAVE OPENSTREAM \COPYOPENFILE) SEDIT::OUTPUT-SPACE (RPLACD CONS +FREPLACEFIELD SEDIT::ADVANCE PLUS FFETCHFIELD IQUOTIENT) SEDIT::VERIFY-STRUCTURE (WITH.MONITOR +CL:MULTIPLE-VALUE-PROG1 .UNWIND.PROTECT. FUNCTION SEDIT::CLOSE-NODE LIST RPLACD) EDITBELOW (EVAL +REVERSE FMEMB DREVERSE SUB1) LISTFILES (NLAMBDA.ARGS APPEND FINDFILE TERPRI REMOVE NAMEFIELD LIST) +SI::ADD-OLD-STYLE-ADVICE (MAPC) UNPACKFILENAME (UNPACKFILENAME.STRING) SEDIT::SUBNODE-CHANGED-QUOTE ( +RPLACA) EDITNCONC (ERROR! LAST EDITSMASH1) EDIT4F2 (EDIT4F3) \MAIKO.10MBSTARTDRIVER ( +\INIT.ETHER.BUFFER.POOL TIMES \ALLOCATE.ETHERPACKET) HISTORYFIND1 (LAST NLEFT CHCON1 EDITFPAT PACK +DUNPACK LISTGET1) %%DO-LOGICAL-OP (%%ARRAY-BASE %%ARRAY-OFFSET CL:ARRAY-TOTAL-SIZE DEFERREDCONSTANT +UNINTERRUPTABLY) CLIPBOARD-PASTE-STREAM (UNIX-GETENV CREATE-PROCESS-STREAM CL:FUNCTION) EDITSMASH1 ( +CONS LIST GETHASH) EDIT4F3 (CONSTANT CHARACTER CONS EDIT4F3 CONCATLIST PACK NCONC LIST LDIFF NCONC1) +CL:ARRAY-DIMENSION (CL:ERROR LENGTH CL:NTH) \FM.CPUTITEMPROP (SELECTQ ERROR LIST) BPNT (EDITNTH ADD1 +SUB1 BPNT0) FB.COMPILECOMMAND (FB.SELECTEDFILES ADD.PROCESS LIST FUNCTION KWOTE) SEDIT::UPDATE ( +SEDIT:GET-PROMPT-WINDOW GETPROMPTWINDOW SEDIT::SHOW-CARET) TRANS.IP (APPENDOP.IP) CURSORCREATE ( +BITMAPWIDTH BITMAPHEIGHT IMAX IMIN SUB1 FIXP) EDIT.RI (EDITNTH CONS EDITSMASH1 EDITNCONC) COPYDEF ( +GETFILEPKGTYPE GETDEF REMOVE MKLIST STRPOS PACK* SUBATOM COPY GETTOPVAL FRPLACA) OPT.DEFREFS (FASSOC) +\UFStoOtherCopyMess (U-CASE FILENAMEFIELD PROMPTPRINT) DIRGETFILEINFO (\GENERATEFILEINFO) \PFGetPage ( +\PFTransferFilePage) EDITBF1 (TCONC SUB1) \PUPNET.CLOSERP (\LOCATE.PUPNET ILESSP) \BITBLT.PRESS ( +\DSPXPOSITION.PRESS \DSPYPOSITION.PRESS INTERSECTREGIONS CREATEREGION) STKPOS (\MYALINK OPCODES +\STACKARGPTR IDIFFERENCE \STKNAME SUB1 \MAKESTACKP) MAKEFILE1 (ROOTFILENAME COMPILE-FILE? REMOVE +GETPROP SELECTQ FAKE-COMPILE-FILE CL:COMPILE-FILE LIST BRECOMPILE BCOMPL RECOMPILE TCOMPL SHOULDNT) +\VFMReadNext (ILEQ \BLT MESASIZE \ADDBASE IPLUS) \CURSORUP (UNINTERRUPTABLY ADJUSTCURSORPOSITION +IDIFFERENCE SUB1) \COMPUTE.ARC.POINTS (FQUOTIENT IMIN IMAX ABS FIX QUOTIENT TIMES PLUS FIXR COS SIN +LIST FPLUS) OPT.CODEFRAME (SELECTQ OPT.CODEFRAME) \INFER.FILE.TYPE (FUNCTION \BIN) FB.OPERATE.ON.FILES + (MAPCAR CONS CLOSEW TTYDISPLAYSTREAM) CH.CREATE.ALIAS (COURIER.CALL CH.FINDSERVER PARSE.NSNAME +CH.GETAUTHENTICATOR) \LFDirectoryScrambled (PACKFILENAME.STRING U-CASE PRIN1 DiskError) \CURSORDOWN ( +UNINTERRUPTABLY \SOFTCURSORDOWN \HARDCURSORDOWN) FB.COPY/RENAME.MANY (FB.PROMPTFORINPUT CONCAT LENGTH +DIRECTORYNAME UNPACKFILENAME.STRING FB.CANONICAL.DIRECTORY \ADD.CONNECTED.DIR LISTGET STRING-EQUAL +SELECTQ FB.YES-OR-NO-P FB.GREATEST.PREFIX SUBSTRING SUB1 ADD1 NCHARS FB.SORT.VERSIONS FUNCTION +FB.COPY/RENAME.ONE FB.FETCHFILENAME PACKFILENAME.STRING FB.MERGE.DIRECTORIES) TEDIT.UNDO.PARALOOKS ( +NCONC1 IPLUS) PRINTCONSTANT (SUBSTRING ADD1 NCHARS PRIN1) \VFMGetBufferFor (\VFMKillBuffer CONS FNTH) +\CURSOR-VALID-P (BITMAPWIDTH BITMAPHEIGHT <) EDITNTH (MEMB EDITELT LIST TAILP ERROR! NLEFT IMINUS NTH) + BCOMPL.BODY (PACKFILENAME FMEMB UNPACKFILENAME OPENSTREAM LIST RESETLST RESETSAVE INPUT APPEND NCONC +MAPCAR RCOMP3 FULLNAME) IP-TOS (STREAMPROP ERROR) COMPILER::ALPHA-COMPILER-LET (CL:EVAL CL:PROGV +COMPILER::ALPHA-PROGN) EDIT.RO (EDITNTH LAST EDITSMASH1) \COURIER.DELDEF (PUTHASH) DELFILE ( +\DELETEFILE) \NSFILING.CONFLICTP (\NSFILING.FULLNAME SELECTQ DIRTYABLE LOGAND CONSTANT LOGOR +\ILLEGAL.ARG) SEDIT::UNDO-REPLACE-ROOT (SEDIT::REPLACE-ROOT SEDIT::SUBNODE LIST) TRANSLATE.IP ( +APPENDOP.IP) EDIT.LI (EDITNTH CONS EDITSMASH1) \LOCATE.PUPNET (SMALLP \GETBASEPTR UNFOLD LLSH LOGAND +CONS SETUPTIMER) READVISE1 (CL:FLET READVISE-ENTRY SI::CANONICALIZE-ADVICE-SYMBOL GET) SETFILEPTR ( +\GETSTREAM SPREADAPPLY* \GETEOFPTR LISPERROR) SEDIT::SUBNODE-CHANGED-LIST (NTH SUB1 SEDIT::NOTE-CHANGE +) \TEDIT.CARET (\CARET.CREATE) MSSEEK-WORD (CL:MEMBER MSNEXTWORD MAPC MSTRYSPELL) +CL::PS-NAME-SLOT-POSITION (CL::PS-INCLUDE CL::PS-ALL-SLOTS + CL::PS-INITIAL-OFFSET CL:LENGTH) +LISPXFIND0 (GETPROP LIST HISTORYFIND FMEMB NLEFT LDIFF DREVERSE APPEND CONS LISTGET1) CHANGEVAR ( +MSNEEDUNSAVE GETRELATION) ASSOCGET (ASSOC) TEDIT.SELECTED.PIECES (TCONC \GETBASEPTR \FIRSTNODE IPLUS +\SPLITPIECE - APPLY* PLUS) ADJUSTCURSORPOSITION (\CURSORPOSITION IPLUS \XMOUSECOORD SIGNED SUB1 LLSH +IDIFFERENCE \YMOUSECOORD) ONEDINSPECT.CLOSEFN (WINDOWPROP) EOFP (\EOFP FDEVOP SPREADAPPLY* \GETSTREAM) + \TEDIT.CENTER.SEL (\PARAS.IN.SEL TEDIT.GET.PARALOOKS LISTGET MEMB CONSTANT TEDIT.SETSEL CONS DREVERSE +) \CURSORPOSITION (IDIFFERENCE SUB1 UNSIGNED LOGAND LLSH \PUTBASE) NSPRINTREQUEST.STATUS ( +\NSPRINT.ENQUIRE LIST) \SPP.NOT.RESPONDING (ADD1 IMIN TIMES - LRSH printout PROCESSPROP THIS.PROCESS +PRIN1 FREPLACEFIELD PLUS FFETCHFIELD) COMPILER::ALPHA-COMBINATION (DECLARE CL:FIRST COMPILER::ALPHA-FORM + COMPILER::EXPAND-OPENLAMBDA-CALL COMPILER::MAKE-CALL COMPILER::ALPHA-FUNCTION CL:MAPCAR CL:FUNCTION +COMPILER::ENV-INLINE-DISALLOWED ARGTYPE COMPILER::ALPHA-LITERAL) SEDIT::OUTPUT-BITMAP (FREPLACEFIELD +IMAX FFETCHFIELD IDIFFERENCE BITMAPHEIGHT IMINUS SEDIT::ADVANCE PLUS BITMAPWIDTH SHOULDNT) +CONVERT-AFM-FILES (MAPC READ-AFM-FILE \FONTFILENAME LIST) WRITE-UNICODE-MAPPING (WRITE-UNICODE-MAPPING + LIST TERPRI WRITE-UNICODE-INCLUDED PRIN1) RESETOPENFILES (LIST FUNCTION OPENSTREAM) FORCEOUTPUT ( +\GETSTREAM FDEVOP SPREADAPPLY*) \FM.PUTITEMPROP (SELECTQ ERROR LISTGET) ONEDINSPECT.BUTTONEVENTFN ( +WINDOWPROP WITH-INSPECTOR-ENV XCL::PROFILIZE CL:PROGV XCL::PROFILE-VARIABLES XCL::PROFILE-VALUES +LOGAND ONED.TRACKCURSOR FONTPROP FUNCTION CL:FUNCALL) FB.GET.NEW.FILE.SPEC (FB.PROMPTFORINPUT CONCAT +SELECTQ SHOULDNT PACKFILENAME.STRING DIRECTORYNAME LISTGET UNPACKFILENAME.STRING \ADD.CONNECTED.DIR +NCHARS RPLACD FB.CANONICAL.DIRECTORY) \VECFONTINIT (ARRAY MAPCAR LIST) \FLUSH.OPEN.STREAMS ( +\DEVICE-OPEN-STREAMS SPREADAPPLY* LOGAND CONSTANT LOGOR) EQUAL-DIMENSIONS-P (LENGTH EQUAL) +ONEDINSPECT.COPYBUTTONFN (WITH-INSPECTOR-ENV WINDOWPROP XCL::PROFILIZE CL:PROGV XCL::PROFILE-VARIABLES + XCL::PROFILE-VALUES KEYDOWNP CL:FUNCALL ONED.TRACKCURSOR FUNCTION) \TEDIT.SHOWSELS (MAPC LIST +\SHOWSEL) EDIT.BI (EDITNTH CONS) OPT.CODELEV (IPLUS SELECTQ OPT.CODELEV SUB1 ADD1 IDIFFERENCE +OPT.COMPILERERROR) MSWORD? (GETHASH) EDIT.LO (EDITNTH MAPC EDITSMASH1) ACCESS-CHARSET (FDEVOP +SPREADAPPLY*) FB.UPDATECOMMAND (FB.UPDATEBROWSERITEMS) CURSORPOSITION (\GETDISPLAYDATA \DTEST +\OUTSTREAMARG \GETSTREAM \DSPUNTRANSFORMX \XMOUSECOORD IPLUS SIGNED SUB1 LLSH IDIFFERENCE +\DSPUNTRANSFORMY \YMOUSECOORD \DSPTRANSFORMX \DSPTRANSFORMY) ONEDINSPECT.DEFAULT.VALUECOMMANDFN ( +CONSTANT \CREATE.TWODINSPECTOR.SETMENU \CREATE.TWODINSPECTOR.INSPECTMENU MENU) +\CREATE.TEDIT.DEFAULT.FMTSPEC (CONS) GETEOFPTR (\GETSTREAM FDEVOP SPREADAPPLY*) GETLOCALDEC (LAST +CLISPDEC0) EDIT.BO (EDITNTH EDITNCONC EDITSMASH1) NUMBERPAD.HELDFN (PROMPTPRINT SELECTQ) +\DSPUNTRANSFORMY (IDIFFERENCE) CL:CHAR (CL:AREF) SI::ADVICE-ADDTOCOM (ADDTOCOM1) SEDIT::STRINGIFY-QUOTE + (CONCAT SEDIT::STRINGIFY SEDIT::SUBNODE) COMPILER::ALPHA-CATCH (COMPILER::MAKE-CATCH +COMPILER::ALPHA-ARGUMENT-FORM COMPILER::ALPHA-PROGN) INSPECT/TYPERECORD (INSPECT) \DSPUNTRANSFORMX ( +IDIFFERENCE) /ASSOCPUT (/PUTASSOC) NSPRINTER.PROPERTIES (\NSPRINT.ENQUIRE) VARIABLESMSGETDEF (GETDEF) +DEFAULTMAKENEWCOM (ERROR LIST FILECOMS MERGEINSERT GETTOPVAL) %%FAST-COPY-BASE (DEFERREDCONSTANT CL:* +\PILOTBITBLT) EDITGETD (EDITGETD-LAMBDA GET COPY CL:FUNCALL CL:MACROEXPAND-1 EXPANDMACRO GETHASH +GETDEF MAPCAR KWOTE CONS) CL::PREDICATE-BODY (CL::PS-PREDICATE CL::PS-TYPE) \FILLINXIP ( +\ALLOCATE.ETHERPACKET \DTEST \LOCALNSADDRESS PARSE-NSADDRESS \ILLEGAL.ARG) COPY-ARRAY (CL:ERROR +CL:MAKE-ARRAY CL:ARRAY-DIMENSIONS CL:ARRAY-ELEMENT-TYPE %%FAT-STRING-ARRAY-P %%MAKE-ARRAY-WRITEABLE +%%ARRAY-TYPE-NUMBER %%ARRAY-BASE %%ARRAY-OFFSET) MSRESPELL (CHOOZ CONS FRPLACA FLAST FRPLNODE) +FROM.SCREEN.BITMAP (PRIN1 GETSCREENREGION BITMAPCREATE BITSPERPIXEL SCREENBITMAP) \TEDIT.CLOSEUPLINES +(IDIFFERENCE ADD1 IPLUS \FORMATLINE) POSTSCRIPT.GETFONTID (CONSTANT TAN TIMES QUOTIENT) SEDIT::UNDO-EVENT + (FREPLACEFIELD CONS FFETCHFIELD SEDIT::UNDO-EVENT SEDIT::END-UNDO-BLOCK SEDIT::COLLECT-UNDO-BLOCK +APPLY) \TEDIT.BOLD.SEL.ON (TEDIT.LOOKS) CL:BIT-NOT (CL:ERROR CL:MAKE-ARRAY CL:ARRAY-DIMENSIONS +%%DO-LOGICAL-OP) \LEAF.LOOKUPCACHE (PLUS LIST CONS) CLISPIFYFNS (CLOCK MAPCONC STKEVAL EVALV +MISSPELLED? FILEFNSLST IDIFFERENCE ERSETQ CLISPIFY) COPY-VECTOR (VECTOR-LENGTH - %%ARRAY-TYPE-NUMBER +%%ARRAY-BASE + %%ARRAY-OFFSET MIN) \FILETYPE.FROM.TYPE (ASSOC FIXP) CH.DELETE.OBJECT (PARSE.NSNAME +COURIER.CALL CH.FINDSERVER CH.GETAUTHENTICATOR) CHANGEMACRO (MSNEEDUNSAVE GETRELATION FILEPKGTYPE +GETTEMPLATE) HASHFILEDATA (GTHASHFILE LIST) TEDIT.UNDO.LOOKS (NCONC1 \TEDIT.CARETLOOKS.VERIFY IPLUS) +GETFILEPTR (\GETSTREAM FDEVOP SPREADAPPLY*) EDIT.BITMAP.REAL (BITMAPCOPY GET.EDIT.BITMAP.MENU MENU +PRIN1 CONS SELECTQ EDITBM FROM.SCREEN.BITMAP TRIM.BITMAP INVERT.BITMAP.HORIZONTALLY +INVERT.BITMAP.VERTICALLY INVERT.BITMAP.DIAGONALLY ROTATE.BITMAP.LEFT ROTATE.BITMAP.RIGHT +INTERACT&SHIFT.BITMAP.LEFT INTERACT&SHIFT.BITMAP.RIGHT INTERACT&SHIFT.BITMAP.DOWN +INTERACT&SHIFT.BITMAP.UP INVERT.BITMAP.B/W INTERACT&ADD.BORDER.TO.BITMAP ERROR) \VFMLower (LESSP +GREATERP ILESSP MESAEQUAL SUB1 MESASIZE \GETBASE PLUS) CURSOREXIT (IDIFFERENCE SUB1 IQUOTIENT ITIMES) +DISPLACED-ARRAY-P (CL:ERROR) \LOOKUPCOLORNAME (FASSOC) \ROUTE.PUP (\LOCATE.PUPNET \TRANSLATE.3TO10) +\SETCLOSEDFILELENGTH (\OPENFILE) SORT.PUPHOSTS.BY.DISTANCE (\LOCATE.PUPNET SORT) +\NSRANDOM.CREATE.STREAM (LISPERROR \NSFILING.FULLNAME FILING.CALL LIST FUNCTION SELECTQ +\NSFILING.CHECK.ACCESS \NSFILING.FILLIN.ATTRIBUTES ASSOC FOLDLO LRSH IMOD) LASTMOUSEY ( +\DSPUNTRANSFORMY \GETDISPLAYDATA \DTEST \OUTSTREAMARG \GETSTREAM) FB.LOADCOMMAND (FB.SELECTEDFILES +ADD.PROCESS LIST FUNCTION KWOTE) \SETEOFPTR (FDEVOP SPREADAPPLY*) LASTMOUSEX (\DSPUNTRANSFORMX +\GETDISPLAYDATA \DTEST \OUTSTREAMARG \GETSTREAM) WRITE-UNICODE-MAPPING-HEADER (TAB SELECTQ PRIN1 +SPACES PRINTOUT TERPRI DATE) SI::ADVISE-CONTENTS (CL:LENGTH CL:SECOND CL:INTERSECTION) +SEDIT::STRINGIFY-LIST (REVERSE CONS SEDIT::STRINGIFY CONCATLIST) CH.CREATE.OBJECT (PARSE.NSNAME +COURIER.CALL CH.FINDSERVER CH.GETAUTHENTICATOR) \FM.CGETITEMPROP (SELECTQ) /ECHOCONTROL (GETTERMTABLE +LIST ECHOCONTROL) LISPXSTATE (GETP UNDOLISPX2 CONS) BOUT16 (LRSH LOGAND) \MACPEEKCCODEFN (\RECODECCODE + \PEEKCCODE) \VECSKIP (IPLUS \ENDVECRUN) /SETSYNTAX (GETTERMTABLE GETREADTABLE GETSYNTAX LIST +SETSYNTAX) SETTERMCHARS (INTCHECK /ECHOCONTROL) \PUSHSTATE.IP (GETFRAMEVAR.IP IP-TOS APPENDOP.IP) +BIN16 (LOGOR LLSH BIN) \TEDIT.INSERT.PIECES (\CHTOPC \SPLITPIECE - OPENSTREAM IPLUS LLSH +\TEDIT.UNIQUIFY.CHARLOOKS \TEDIT.UNIQUIFY.PARALOOKS IMAGEOBJPROP PLUS) SIMPLE-COMPARE (- +) +\NSPRINT.ENQUIRE (GETNSPRINTER \NSPRINT.COURIER.OPEN RESETLST RESETSAVE LIST FUNCTION APPLY CONS +APPEND) \GENERIC.BINS (FRPTQ \PUTBASEBYTE \BIN PLUS) NUMBER.READER.HANDLER ( +NUMBERPAD.READER.HANDLE.CHAR WFROMMENU) CHANGEI.S. (SELECTQ MSNEEDUNSAVE GETRELATION UNION L-CASE) +GETMOUSESTATE (\XMOUSECOORD IPLUS SIGNED SUB1 LLSH IDIFFERENCE \YMOUSECOORD LOGXOR LOGAND \EVENTKEYS) +CONTINUEDIT (RESETSAVE LIST OPENSTREAM FULLNAME SETFILEPTR CL:MULTIPLE-VALUE-SETQ \PARSE-FILE-HEADER +ROOTFILENAME FILECHANGES MEMB) OPT.RETMERGE (OPT.CODEFRAME OPT.CODELEV LIST OPT.PRATTACH OPT.NOTJUMP +OPT.DEFREFS) \GENERIC.BOUTS (FRPTQ \BOUT \GETBASEBYTE PLUS) HASHFILEP (FULLNAME ASSOC) +CL::ASSIGN-FIELD-DESCRIPTORS (CL::PS-TYPE CL:ERROR) SCAVENGEVOLUME (SCAVENGEDSKDIRECTORY) +%%MAKE-DISPLACED-ARRAY (+ LENGTH %%MAKE-GENERAL-ARRAY %%MAKE-ONED-ARRAY) PUPTRACE ( +MAKE-NETWORK-TRACE-WINDOW) COURIERTRACE (CREATEW FUNCTION FONTCREATE) TB.ITEM.DELETED? (\DTEST) +FILL-ARRAY (CL:ERROR %%ARRAY-TYPE-NUMBER) \PFFindDirectoryID (\PFFindRootDirEntry) +\TEDIT.ORIGINAL.WINDOW.TITLE (CONCAT NCHARS WINDOWPROP) \FM.GETITEMPROP (SELECTQ LISTGET) +TB.MAP.DELETED.ITEMS (\DTEST CL:FUNCALL) MSPATHS (SCRATCHASH LINELENGTH MSLISTSET TERPRI PUTHASH +RESETVARS .RESETLST. LIST CONS CL:MULTIPLE-VALUE-PROG1 .UNWIND.PROTECT. FUNCTION GETHASH HASHARRAY) +\ROUTE.XIP (\LOCATE.NSNET LOCF \ADDBASE LOGAND \GETBASE \TRANSLATE.10TO3) FB.SEEBUTTONFN (WFROMMENU +MAINWINDOW SELECTQ NOTIFY.EVENT WINDOWPROP PROCESS.EVAL DEL.PROCESS SHOULDNT) BEEPON (IQUOTIENT IMAX) +COURIER.READ.STRING (GETWORD IPLUS LLSH \BIN ALLOCSTRING + \GETBASEBYTE PLUS DECODE-NS-STRING) +ONEDINSPECT.DEFAULT.TITLECOMMANDFN (LOGAND CONSTANT \CREATE.TWODINSPECTOR.TITLEMENU WINDOWPROP MENU) +CL:SBIT (CL:APPLY) \NSFILING.CHECK.ACCESS (FILING.CALL ASSOC) CLISPDEC0 (CONS CLISPDEC1) +NSPRINTER.STATUS (\NSPRINT.ENQUIRE) READ-ONLY-ARRAY-P (CL:ERROR) SEDIT::LINE-FINISHED (IDIFFERENCE) +MSVERB (MSSEEKTYPE CONS) TWODINSPECT.SELECTCOLUMNPROP (WINDOWPROP WITH-INSPECTOR-ENV XCL::PROFILIZE +CL:PROGV XCL::PROFILE-VARIABLES XCL::PROFILE-VALUES STRINGWIDTH IDIFFERENCE ADD1 FONTPROP) FIRSTATOM ( +FIRSTATOM) %%MAKE-TWOD-ARRAY (%%CML-TYPE-TO-TYPENUMBER %%MAKE-ARRAY-STORAGE) \PUPGATELISTENER ( +OPENPUPSOCKET SETUPTIMER THIS.PROCESS FUNCTION GETPUP AWAIT.EVENT ALLOCATE.PUP SUB1) +SEDIT::SET-SELECTION-QUOTE (SEDIT::SET-SELECTION-ME SEDIT::SET-SELECTION-NOWHERE) MSMARKCHANGED (ASSOC + LIST SELECTQ CHANGEVAR CHANGEMACRO CHANGEI.S.) FB.COPYCOMMAND (FB.COPY/RENAME.COMMAND CONS FUNCTION) +\OUTCHARFN.PRESS (SELCHARQ \DSPXPOSITION.PRESS DSPXPOSITION NEWPAGE.PRESS \PRESS.CONVERT.NSCHARACTER +IPLUS \FGETWIDTH \GETBASE) FB.RENAMECOMMAND (FB.COPY/RENAME.COMMAND CONS FUNCTION) CHANGESLICE (LIST +NTH ITIMES ADD1 IQUOTIENT SUB1) SELECT.LIST.INSPECTOR (MENU APPEND RECLOOK CONS LIST CONCAT) \VFMMerge + (\BLT \VFMGet ADD1 MESASIZE FUNCTION) WITHOUT-INTERRUPTS (DISPLAYDOWN) EDIT.BITMAP (EDIT.BITMAP.REAL +BITMAPCREATE EVAL EDIT.BITMAP CURSORCREATE ERROR) \TEDIT.BOLD.CARET.OFF (\TEDIT.PARSE.CHARLOOKS.LIST) +DISPLAYDOWN (RESETFORM SETDISPLAYHEIGHT SMALLP EVAL) CONVEXP (LENGTH XYPT.X XYPT.Y IDIFFERENCE IMINUS +XPROD \SGN) CL:SCHAR (CL:AREF) TEDIT.SELECTALL (TEXTSTREAM TTY.PROCESS) \TEDIT.BOLD.SEL.OFF ( +TEDIT.LOOKS) \GETINTERNALCLOCK (LOCF \ADDBASE UNFOLD LLSH \RCLK) ETHERHOSTNAME (\GETMISCSOCKET +ALLOCATE.PUP ASSURE.PUP.READY \LOCALPUPHOSTNUMBER LOGAND FIXP \PARSE.PORTCONSTANT LISPERROR +\LOCALPUPNETNUMBER LRSH PLUS FFETCHFIELD LOCF \ADDBASE EXCHANGEPUPS GETPUPSTRING SUB1 IPLUS ADD1 +\GETBASEFAT \GETBASE \GETBASETHIN \GETBASEBYTE PORTSTRING TERPRI) OPT.RETTEST (OPT.CODEFRAME +OPT.CODELEV) CL:SIMPLE-VECTOR-P (CL:ARRAY-ELEMENT-TYPE) CL:ERROR (MAKE-INTO-CONDITION RESETLST +FIND-DEBUGGER-ENTRY-FRAME LIST DEBUGGER STKNAME) \CREATEPRESSFONT (RESETLST \FACECODE CONSTANT +FQUOTIENT \GETBASEPTR UNFOLD LLSH \CREATECHARSET) CL::PROCESS-TYPE (CL::PS-NAME CL::PS-TYPE +CL::PS-PREDICATE CL::PREDICATE-BODY CL::PS-EXPORT) SCAVENGEDSKDIRECTORY (WITH.MONITOR +CL:MULTIPLE-VALUE-PROG1 .UNWIND.PROTECT. FUNCTION \LFEntryPoint \VFMGenerateFileIDs TERPRI +\GETDEVICEFROMNAME MAPC PACKFILENAME.STRING U-CASE) \NSFILING.OPEN.HANDLE (FILING.CALL +\NSFILING.ADD.TO.CACHE LIST FUNCTION) \TEDIT.HISTORYADD (+ \TEDIT.CUMULATE.EVENTS) TB.ITEM.SELECTED? ( +\DTEST) COMPILEFILES (NLAMBDA.ARGS COMPILEFILES0) OPT.RETOPT1 (SOME OPT.RETTEST) CL:SVREF (CL:AREF) +%%MAKE-GENERAL-ARRAY (%%CML-TYPE-TO-TYPENUMBER %%MAKE-ARRAY-STORAGE LENGTH) \LFFileSpec (\LFUnpackName + \LFFindDirectory \LFVersions SELECTQ LAST LIST ADD1 ASSOC FIXP) MAKEFN (DEFINE LIST CONS LITATOM +NCONC SOME GENSYM ESUBST) CLEARHASHFILES (CLOSEF?) \VFMGenerateFileIDs (WITH.MONITOR +CL:MULTIPLE-VALUE-PROG1 .UNWIND.PROTECT. FUNCTION UNINTERRUPTABLY \BLT \VFMGet MESASIZE LIST) +PRINTPUPDATA (PRINTPACKETDATA IDIFFERENCE) BIT.IN.ROW (SUB1 BITMAPBIT PLUS) \PROCESS.RESET.TIMERS ( +GETTOPVAL) PP* (GETSTREAM PRETTYPRINT NLAMBDA.ARGS) DATATYPE (DECLARERECORD CONS) \LEAF.REQUESTPAGE ( +\LEAF.LOOKUPCACHE FREPLACEFIELD IPLUS16 \LOLOC \ADDBASE FFETCHFIELD PLUS ALLOCATE.PUP LLSH) +COMPILER::ALPHA-ATOM (COMPILER::ALPHA-LITERAL COMPILER::RESOLVE-VARIABLE-REFERENCE) CL:VECTOR-POP (CL:1- + CL:AREF CL:ERROR) PRINTERRORPUP (printout PORTSTRING GETPUPSTRING TERPRI) IMAGEFNSCREATE (ASSOC CONS +LIST) %%AREF0 (CL:ARRAY-RANK %%ARRAY-READ + CL:ERROR) SEDIT::SET-SELECTION-LIST (SEDIT::SET-SELECTION-ME + SEDIT::SET-SELECTION-NOWHERE) \SECONDSCLOCKGREATERP (UNINTERRUPTABLY LOCF \ADDBASE IGREATERP +\BOXIDIFFERENCE) \CLEARXIPHEADER (\CLEARWORDS \DTEST FOLDHI LRSH IPLUS) REMEMBER (MARKASCHANGED +GETEXPRESSIONFROMEVENTSPEC) \MACINCCODEFN (\RECODECCODE \BIN) NONSYSPROPNAMES (PROPNAMES LIST) +\CLOCKGREATERP (UNINTERRUPTABLY IGREATERP \BOXIDIFFERENCE \CLOCK0 LOCF \ADDBASE) SMARTARGLIST ( +\SIMPLIFY.CL.ARGLIST ARGLIST GET SMARTARGLIST GETLIS GETD GETDEF CL:THIRD REMOVE-COMMENTS ARGTYPE +GETMACROPROP SELECTQ LAST APPEND LIST FNCHECK) SI::ADVICE-NEWCOM (DEFAULTMAKENEWCOM) +CL:ARRAY-ROW-MAJOR-INDEX (ARG CL:ARRAY-RANK CL:1- CL:ERROR) GETHASHTEXT (GETHASHFILE COPYBYTES) +\RCLOCK0 (\RCLK \DTEST) MAKECOM (SMARTARGLIST FMEMB FIXSPELL APPEND LIST CONS NCONC1 IPLUS) +COMPILER::ALPHA-BLOCK (COMPILER::MAKE-BLOCK CONS COMPILER::BLOCK-STMT COMPILER::ALPHA-PROGN) +CL:ARRAY-IN-BOUNDS-P (ARG CL:ARRAY-RANK CL:1- CL:ERROR) REGIONONSCREEN (IMAX IPLUS IDIFFERENCE) +CH.LIST.OBJECTS (COURIER.CALL CH.FINDSERVER PARSE.NSNAME CH.PROPERTY CH.GETAUTHENTICATOR) EDITGETD-LET + (MKPROGN SUBPAIR MAPCAR CAR CADR) HLSTORGB (FTIMES FPLUS FDIFFERENCE \HLSVALUEFN IDIFFERENCE) +TB.UNDELETE.ITEM (\DTEST PLUS FFETCHFIELD TB.PRINT.LINE) CLOSEF? (CLOSEF) \NSFILING.FULLNAME ( +\NSFILING.FILLIN.ATTRIBUTES SELECTQ NCHARS NTHCHARCODE PLUS CONS SUBSTRING - ADD1 SUB1 +\NSFILING.ADDQUOTES MAPCONC LIST CONCATLIST NCONC MKATOM U-CASE) COND.TO.IF (CONS MAPCONC APPEND) +PATH.LESSP (XYPT.Y ILEQ XYPT.X PATH.LESSP IPLUS) ASET (ARG) MODERN-MENUBUTTONFN (LOGAND MKLIST +WINDOWPROP FONTPROP MOVEW MODERN-ORIG-MENUBUTTONFN) BREAKCONNECTION (LIST \GETDEVICEFROMNAME +CANONICAL.HOSTNAME) EDITGETD-LAMBDA (MKPROGN EDITGETD-LAMBDA CONS LIST SELECTQ APPEND) +COURIER.READ.SEQUENCE (GETWORD IPLUS LLSH \BIN COURIER.READ LIST PLUS) CL::ROW-MAJOR-ASET (CL:ERROR +CL::ROW-MAJOR-ASET %%ARRAY-WRITE +) MSOBJTYPE (MSJOIN MSOBJTYPE SELECTQ LIST SHOULDNT) SWAPPEDCOND ( +SELECTQ COND.TO.IF SWAPPEDCOND GETHASH ERROR! CONS NEGATE LIST SHOULDNT) MSSUBJTYPE (MSJOIN MSSUBJTYPE +) \SETDAYTIME0 (\DTEST LOCF \ADDBASE ITIMES LOGAND IPLUS16 \LOLOC LRSH UNFOLD LLSH \GETBASE +\PROCESS.RESET.TIMERS) PRINTXIPROUTE (PRIN1 \PRINTNSADDRESS LOCF \ADDBASE PRIN2 IQUOTIENT \CENTICLOCK +IREMAINDER) XCL:ROW-MAJOR-AREF (CL:ERROR %%ARRAY-READ +) \TEDIT.WINDOW.TITLE (TEXTOBJ \TEDIT.PRIMARYW +WINDOWPROP) TWODINSPECT.SELECTROWPROP (WINDOWPROP WITH-INSPECTOR-ENV XCL::PROFILIZE CL:PROGV +XCL::PROFILE-VARIABLES XCL::PROFILE-VALUES STRINGWIDTH FONTPROP) \PFInsertDirectoryID (\PFSaveBuffers) + \DSPROTATE.IP (CONCATT.IP) \GENERIC.RENAMEFILE (SPREADAPPLY* FULLNAME RESETLST RESETSAVE OPENSTREAM +\COPYOPENFILE CLOSEF) COMPILER::ALPHA-ARGUMENT-FORM (COMPILER::ALPHA-FORM) \GENERIC.OPENP (LIST) +\LFPutDirectory (SETA FIXP \PFVolumeNumber) COMPLEX-COMPARE-FORWARD (- +) \HANDLE.PUP.ROUTING.INFO ( +FOLDLO LRSH IDIFFERENCE \TRANSLATE.3TO10 ADD1 \GETBASEPTR UNFOLD LLSH LOGAND SETUPTIMER - \ADDBASE +\RELEASE.ETHERPACKET) CL::SIMPLE-STRING-EQUAL (%%STRING-LENGTH + %%STRING-BASE-COMPARE-EQUAL) +SAMEPARALOOKS (CONCAT) \NSFILING.FILLIN.ATTRIBUTES (FILING.CALL SELECTQ) PRINTPUPROUTE (PRIN1 +PORTSTRING PRIN2 LRSH IQUOTIENT \CENTICLOCK IREMAINDER) \TITLEICONMINSIZE (CONS IMINUS DSPLINEFEED) +\TOTALFIXEDHEIGHT (PLUS) \VAMUpdateVAM (IQUOTIENT IREMAINDER \VAMGetVAMPageFor \GETBASE MASK.1'S LSH +SUB1 DIFFERENCE LOGAND BITSET LOGOR BITCLEAR LOGNOT) MB.GETFN (IMAGEOBJPROP FONTPROP LOGAND LRSH \BOUT + \ATMOUT) FILEGETDEF.VARS (LOADFNS EVAL) COPY-CIRCLE (CONS FASSOC) \BACKCCODE (CL:FUNCALL \EVALV1) +/DEFINE (DEFINE) SEDIT::STRINGIFY (CL:FUNCALL) CL::%%STRUCTURE-TYPE-TO-FIELDSPEC (CL::COERCE-TYPE) +\STRINGWIDTHGUESS (STRINGWIDTH) \INCCODE (CL:FUNCALL \EVALV1) \MAIKO.SETTIME (DAYTIME) +\LEAF.ADD.QUOTES (STRPOS CONS SUBSTRING ADD1 SUB1 NCHARS CONCATLIST DREVERSE) +\TEDIT.GET.SINGLE.PARALOOKS2 (\SMALLPIN SUB1 LLSH IDIFFERENCE CONS \BIN SELECTC SHOULDNT LOGAND +SELECTQ LIST PLUS ZEROP \ARBIN \ATMIN) GETHASH (\DTEST APPLY* \EQHASHINGBITS LOGXOR \HILOC LLSH LOGAND + \LOLOC LRSH \FIRSTINDEX IREMAINDER ADD1 \HASHSLOT \ADDBASE \ADDBASE2 CL:VALUES \REPROBE LOGOR IMIN +IPLUS) %%ASET0 (CL:ARRAY-RANK %%ASET0 %%ARRAY-WRITE + CL:ERROR) PARSE-FORMAT-OPERATION (FUNCTION +CL:VALUES) ALTO.TO.LISP.DATE (LOGXOR) RECLISPLOOKUP (GETPROP CLISPLOOKUP0 ASSOC) \PEEKCCODE ( +\CHECKEOLC SELCHARQ SELECTC LIST \CHECKEOLC.CRLF CL:FUNCALL) HARDCOPY.SOMEHOW (WINDOWPROP HARDCOPYW) +SEDIT::FIND-AND-DISPLAY-SUBSTRUCTURE-BACKWARDS (SEDIT:GET-PROMPT-WINDOW GETPROMPTWINDOW SEDIT::SUBNODE + SEDIT::FIND-SUBSTRUCTURE-BACKWARDS CL:FORMAT SEDIT::FIND-AND-DISPLAY-SUBSTRUCTURE) LISP.TO.ALTO.DATE +(LOGXOR) VALUOF-EVENT (LISTGET1 CL:VALUES-LIST LISTGET VALUOF-EVENT MAPCAR) PREVWORD (\SYNCODE GETHASH + \GETBASEBYTE FIRSTCHAR TTNEXTCHAR IDIFFERENCE FIND.START.OF.WORD FIND.NEXT.WORD) \GENERIC.CHARSET ( +\DTEST) CHAT.CLOSE (WINDOWPROP OPENWP CLOSEF \CARET.DOWN DREMOVE LIST FUNCTION) \FM.MENUHANDLER ( +SETUPTIMER DECODEBUTTONS \FM.CHECKREGION WINDOWPROP \FM.ITEMPROP FFETCHFIELD LASTMOUSEY LASTMOUSEX +LISTGET IPLUS ILESSP PRIN1 APPLY* ZEROP LOGAND) \VECPUT (IPLUS IDIFFERENCE FIXR FTIMES \VECENCODE CONS + FFETCHFIELD) IMLTLIST (MAPCAR PLUS TIMES CONS FIX) START.NEW.LINE (INSERTLINE) SHORTEN (SUBSTRING +IMIN NCHARS) SEDIT::SHIFT-LINEAR-FORM (IPLUS) GRAPHERIMAGEFNS (IMAGEFNSCREATE FUNCTION) +SEDIT::ASSIGN-FORMAT-NIL (MAPC SEDIT::SET-FORMAT) \LFFullFileName (PACKFILENAME U-CASE \PFGetVol +\LFFileName) INSPECT/PROPLIST (PROPNAMES NONSYSPROPNAMES INSPECTW.CREATE FUNCTION) \MAP-OPEN-STREAMS ( +NCONC MAPCAR FDEVOP SPREADAPPLY* APPLY*) \TEDIT.PUT.CHARLOOKS.LIST2 (HASHARRAY LOGAND LRSH \BOUT +FLENGTH PLUS) \NCONC2 (LAST) NS.MAKE.SIMPLE.CREDENTIALS (CONS COURIER.CREATE LIST COURIER.WRITE.REP +PARSE.NSNAME HASH.PASSWORD) PFI.CENTER.PRINT (DSPLEFTMARGIN + IQUOTIENT - DSPRIGHTMARGIN TIMES SUB1 +LENGTH DSPSCALE PLUS STRINGWIDTH RELMOVETO TERPRI) PFI.CONDENSE.INDEX (ASSOC CONS LIST RPLACD SORT +UNION FRPLACD PFI.SORT.INDICES PFI.COMPUTE.INDEX.SHAPE) \TOTALFIXEDWIDTH (PLUS) \EOF.ACTION (CL:FUNCALL +) \VAMAdjustGroup (ADD1) MB.COPYFN (COPY) FILEGETDEF.FNS (GET-ENVIRONMENT-AND-FILEMAP ASSOC OPENP LIST + OPENSTREAM FASSOC LOADEFS) TYPEINMENU (FUNCTION) \EOSERROR (LISPERROR) /DEFINEQ (DEFINE) +\SETUPTIMERmacrofn (CONSTANTEXPRESSIONP CANONICAL.TIMERUNITS SELECTQ \CanonicalizeTimerUnits SHOULDNT +SUBST) NORMSECT (\NORMSECT IPLUS) SEDIT::GENERATE-LINEAR-FORM (IPLUS IDIFFERENCE IMAX) STKARGS ( +STKNARGS STKARG LIST PLUS) OPT.RETPOP (CONS) \FM.DOSELECTION (RESETLST RESETSAVE LIST WINDOWPROP +APPLY* \FM.ITEMPROP FFETCHFIELD BLOCK) \PSC.SYMBOLS (\DSPFONT.PSC LIST) SUBST (COPY CONS SUBST) +XYPT.LESSP (XYPT.Y ILEQ XYPT.X) FW-FILTERED-FILE? (FILENAMEFIELD) \INCFILEPTR (\SETFILEPTR IPLUS +\GETFILEPTR SPREADAPPLY* \PAGED.INCFILEPTR) SEDIT::SETUP-WINDOW-CONTEXT-DEPENDENCIES (IDIFFERENCE +WINDOWPROP LIST) \CanonicalizeTimerUnits (SELECTQ U-CASE ERROR) CONSFN (CONS RECLISPLOOKUP) +OPT.RETFIND (FMEMB CONS) \PAGED.INCFILEPTR (UNINTERRUPTABLY + - SUB1) \COURIER.UNKNOWN.TYPE (ERROR +CONS) SEDIT::FIND-AND-DISPLAY-SUBSTRUCTURE (SEDIT:GET-PROMPT-WINDOW GETPROMPTWINDOW SEDIT::SUBNODE +SEDIT::FIND-SUBSTRUCTURE CL:FORMAT SEDIT::FIND-AND-DISPLAY-SUBSTRUCTURE) COMPILER::META-SUBSTITUTE ( +COMPILER::META-SUBST) GRAPHOBJ.COPYBUTTONEVENTFN (IMAGEOBJPROP APPLY* COPYINSERT GRAPHOBJ.COPYFN) +FIND.NEXT.WORD (\SYNCODE GETHASH \GETBASEBYTE FIRSTCHAR FIND.START.OF.WORD TTNEXTCHAR SUB1VAR) +\FIXPOUT (LOADBYTE LOGAND LSH IMINUS MASK.1'S SUB1 \BOUT) BIT.IN.COLUMN (SUB1 BITMAPBIT PLUS) +FINDFIELDUSAGE (FINDFIELDUSAGE CONS) OPT.JSIZE (GETPROP) \FIXPIN (LOGOR LLSH \WIN IPLUS \BIN) +SEDIT::FIND-AND-DISPLAY-STRUCTURE-BACKWARDS (SEDIT:GET-PROMPT-WINDOW GETPROMPTWINDOW SEDIT::SUBNODE +SEDIT::FIND-STRUCTURE-BACKWARDS CL:FORMAT SEDIT::FIND-AND-DISPLAY-STRUCTURE-BACKWARDS) LOOKIN (FINDATS + EDITFINDP) INTCHECK (CHCON1 IDIFFERENCE FCHARACTER IPLUS FIXP CONS INTCHAR HELP) MENUBUTTONFN (LOGAND + LOGOR WINDOWPROP MENU.HANDLER) \BUFFERED.BIN (\GETBASEBYTE ADD1 FDEVOP SPREADAPPLY*) +\HDCPYDISPLAY.FIX.YPOS (FIX FTIMES CONSTANT) SEDIT::MAKE-FUNCTION-PROTOTYPE (DECLARE EDITMODE LIST) +MAKESCAN (SORT) EDITCOLUMN (SELCHARQ) APPENDNUMBER.IP (APPENDINTEGER.IPMACRO APPENDINT.IPMACRO SUB1 +LOADBYTE LOGAND LSH IMINUS UNFOLD LLSH MASK.1'S PLUS IPLUS BYTESININT.IP TYPEP CL:RATIONAL +APPENDRATIONAL.IP CL:NUMERATOR CL:DENOMINATOR) READ (\GTREADTABLE \TOP-LEVEL-READ) FIND.CHAT.PROTOCOL +(CL:FUNCALL) \FM.RIGHTBUTTONFN (DSPCLIPPINGREGION LASTMOUSEX LASTMOUSEY WINDOWPROP \FM.ITEMPROP +FFETCHFIELD LISTGET IPLUS ILESSP \FM.MENUHANDLER DOWINDOWCOM) \PSC.SPACEWID (FIXR FTIMES CHARWIDTH +CHARCODE.DECODE) \LFReadFileID (BIN \LFDWIN) FW-SORT-FN (SELECTQ APPLY* ERROR) \LFGetDirectory (ELT +FIXP \PFVolumeNumber) \BUFFERED.PEEKBIN (\GETBASEBYTE FDEVOP SPREADAPPLY*) SCALE/GRAPHNODE/BORDER ( +FIXR FTIMES CONS) SEDIT::SETUP-WINDOW-AND-PROCESS (THIS.PROCESS FUNCTION KEYACTIONTABLE +GETPROMPTWINDOW TTYDISPLAYSTREAM) \SHAREOFXTRAY (IMAX IQUOTIENT ITIMES) \BUFFERED.BOUT (ADD1 +SPREADAPPLY*) FILEGETDEF.PROPS (LOADFNS NCONC LIST CONS) UNREADITEM (BKSYSBUF CONCAT MKSTRING EVAL) +WRITE (DECLARE \GETSTREAM \WRITE1 CL:MAKE-HASH-TABLE) MENUREPAINTFN (WINDOWPROP REVERSE BLTMENUIMAGE) +COMPILER::FRAME-ANNOTATE-THROW (NCONC COMPILER::FRAME-ANNOTATE COMPILER::THROW-TAG COMPILER::THROW-VALUE +) OPT.RETOPT (OPT.RETFIND CONS SUBSET OPT.RETOPT1) COMPILER::META-CALL-LABELS (COMPILER::NODE-META-P) +EF (APPLY NLAMBDA.ARGS) \TEDIT.PUT.SINGLE.PARALOOKS2 (LOGAND LRSH \BOUT SELECTQ SHOULDNT LENGTH) +TTYIN.BALANCE (TTSKREAD \SYNCODE GETHASH \GETBASEBYTE FIRSTCHAR AT.END.OF.TEXT) \BUFFERED.BINS ( +IDIFFERENCE IPLUS PLUS FDEVOP SPREADAPPLY* \BIN) LAYOUTSEXPR1 (CONS APPEND MAPC LAYOUTSEXPR1) EV ( +APPLY NLAMBDA.ARGS) SEDIT::CLEAN-UP-AFTER-RELINEARIZATION (WINDOWPROP ADD1 IDIFFERENCE +SEDIT::LAST-LINE-LINEAR IMINUS) \SETCARET (DSPCLIPPINGREGION IPLUS) \MOVEBYTES (\ADDBASE FOLDLO LRSH +IMOD \GETBASEBYTE PLUS \PUTBASEBYTE) \FM.BUTTONEVENTFN (MODERNWINDOW.BUTTONEVENTFN FUNCTION) +DELFROMLIST (GETTOPVAL /SETTOPVAL SUBSET) \LFOpenOldFile (\PFFindFileSize \PFFindPageAddr SUB1) +DOSLINKER (MAPC PRINTOUT L-CASE SHORTEN UNPACKFILENAME.STRING TERPRI) NS.AUTHENTICATE ( +NS.MAKE.SIMPLE.CREDENTIALS \INTERNAL/GETPASSWORD \AUTHENTICATION.FIND.SERVER COURIER.CALL) +SEDIT::SETUP-PROFILE (SEDIT::DEFAULT-PACKAGE XCL:SAVE-PROFILE) LOCALVARS (APPEND UNION) EMBEDPROG ( +MAPCAR DREVERSE CAR CONS NCONC LAST LDIFF SUBPAIR LIST) \BUFFERED.BOUTS (IDIFFERENCE IPLUS PLUS +SPREADAPPLY*) SEDIT::FIND-AND-DISPLAY-STRUCTURE (SEDIT:GET-PROMPT-WINDOW GETPROMPTWINDOW SEDIT::SUBNODE + SEDIT::FIND-STRUCTURE CL:FORMAT SEDIT::FIND-AND-DISPLAY-STRUCTURE) TEDIT.GET.LOOKS (TEXTOBJ \CHTOPC +IMIN \TEDIT.UNPARSE.CHARLOOKS.LIST) VALUOF (HISTORYFIND SUB1 MKLIST VALUOF-EVENT) +\STRINGWIDTH.HDCPYDISPLAY (FONTCREATE STREAMPROP IQUOTIENT IPLUS \STRINGWIDTH.GENERIC +\FGETCHARIMAGEWIDTH \FGETWIDTH \GETBASE \GETCHARSETINFO \GETBASEPTR UNFOLD LLSH \CHARSET LRSH +\CREATECHARSET \CHAR8CODE LOGAND CONSTANT) PFI.PRINT.INDICES (IQUOTIENT LINELENGTH CHARWIDTH - +PFI.LINES.REMAINING DREMOVE + LAST) NEGC (LIST NEGATE NEGC CONS NEGL) \SCROLL.HANDLER.DOIT (ERSETQ +WINDOWPROP IPLUS IDIFFERENCE SCROLLW SELECTQ IMIN IMAX MIN MAX FQUOTIENT SHOULDNT) +\TEDIT.PUT.SINGLE.CHARLOOKS2 (FONTCLASSUNPARSE FONTPROP LOGAND LRSH \BOUT LOGOR) +%%CHECK-SEQUENCE-DIMENSIONS (CL:LENGTH) MKPROGN1 (MKPROGN1 SELECTQ APPEND CONS) \SHAREOFXTRAX (IMAX +IQUOTIENT ITIMES) TEDIT.STREAMCHANGEDP (TEXTOBJ) \NULLDEVICE (\DEFINEDEVICE FUNCTION) +%%CML-TYPE-TO-TYPENUMBER (%%GET-CANONICAL-CML-TYPE) NEGL (LIST NEGATE CONS NEGL) CLISPIF0 (LIST CONS +SELECTQ SHOULDNT NCONC1 CLISPIF1 LDIFF DREVERSE LISTGET1 APPLY CLISPIF3) HEXSTRING (ALLOCSTRING IMAX +LRSH PLUS MAX LOGAND + -) CIRCLAR-COPYER (CONS CL:VALUES FASSOC) TEDIT.SEL.AS.STRING (TEXTSTREAM +ALLOCSTRING \GETCH \BIN PLUS) SAVESETQQ (SAVESET) \PSC.SPACEDISP (POSTSCRIPT.PUTCOMMAND \PSC.SPACEWID +DSPFONT) FILEGETDEF.MACROS (MKPROGN MAPCONC LOADFNS LIST) NEGLST (MAPCAR NEGATE) USERLISPXPRINT ( +STKNAME HELP MKATOM SUBSTRING LIST CONS NLIST APPLY* STKNTH) TEDIT.ADD.MENUITEM (SASSOC NCONC1) +MB.SHOWSELFN (IMAGEOBJPROP BITBLT) FW-OFD-EXISTS? (CONS) SETUPTIMER (IPLUS TYPENAMEP \TIMER.MAKETIMER +NCREATE CANONICAL.TIMERUNITS SELECTQ \CanonicalizeTimerUnits ITIMES EXPAND.SETUPTIMER \BOXIPLUS +\TIMER.IN.TICKS \RCLOCK0 IQUOTIENT \TIMER.IN.MILLISECONDS \CLOCK0 \TIMER.IN.SECONDS \DAYTIME0 SHOULDNT +) BACKGROUNDWHENSELECTEDFN (EVAL.AS.PROCESS) COMPILER::FRAME-ANNOTATE-UNWIND-PROTECT (NCONC +COMPILER::FRAME-ANNOTATE COMPILER::UNWIND-PROTECT-STMT COMPILER::UNWIND-PROTECT-CLEANUP) +\TOTALPROPOSEDSIZE (SELECTQ \TOTALPROPOSEDSIZE IPLUS IMAX CONS) SEDIT::CREATE-QUOTED-GAP ( +SEDIT::CREATE-GAP-NODE LIST SEDIT::QUOTE-WRAPPER LISTGET SEDIT::CREATE-WEAK-LINK) FW-CREATE-OFD-LIST ( +FULLNAME CONS FW-CREATE-OFD MAPCONC SELECTQ LIST SHOULDNT SORT) SETUPTIMER.DATE (SETUPTIMER +IDIFFERENCE IDATE) DWIMDEF (GETPROP DWIMIFY0) \TEDIT.SCALEREGION (\TEDIT.SCALE) XCL::UNDOABLY-SETQ ( +XCL::UNDOABLY-SET-SYMBOL \EVPROG1) COMPILER::FRAME-ANNOTATE-TAGBODY (MAPCONC COMPILER::TAGBODY-SEGMENTS + COMPILER::SEGMENT-STMTS COMPILER::FRAME-ANNOTATE CL:DELETE-IF COMPILER::BLIPPER-NEW-FRAME-P MAPC +COMPILER::BLIPPER-REFERENCES COMPILER::CLOSE-OVER CL:COPY-LIST LIST CL:NUNION) CRIT.LESSP (ILESSP) +TTNTH (TTNEXTCHAR) MOVE.TO.WHEREVER (MOVE.TO.LINE FIND.LINE) COMPILER::META-CALL-LAMBDA-SUBSTITUTE ( +COMPILER::CALL-FN COMPILER::LAMBDA-REQUIRED COMPILER::CALL-ARGS COMPILER::VARIABLE-SCOPE COMPILER::LAMBDA-BODY + COMPILER::META-SUBSTITUTE) TIMEREXPIRED? (TYPENAMEP LISPERROR TIMER.TIMEREXPIRED? IGEQ +\BOXIDIFFERENCE TIMER.MAKESAFETIMER SELECTQ CANONICAL.TIMERUNITS \CanonicalizeTimerUnits +\TIMER.IN.TICKS \RCLOCK0 \TIMER.IN.MILLISECONDS \CLOCK0 \TIMER.IN.SECONDS \DAYTIME0) FIXFIELDORDER ( +REVERSE ASSOC CONS LIST RECORDBIND FRPLACA) NTHTOPLEVELELT (LAST NTH ADD1) SEDIT::CLEAR-LINEAR-FORM ( +SEDIT::CREATE-WEAK-LINK SEDIT::RELINEARIZE-PRELINEARIZED-NODE) POSSIBILITYFN (LIST CONS STKNTH ADIEU) +LAYOUTLATTICE (HALF LRSH FONTPROP STRINGWIDTH BROWSE/LAYOUT/LATTICE) PRINTER.BITMAPSCALE (APPLY* +PRINTERPROP) NARGS (\CCODENARGS SELECTQ PLUS NARGS) \DSPYPOSITION.HDCPYDISPLAY (\DSPYPOSITION.DISPLAY) + FILEGETDEF.RECORDS (LOADFNS CONS) \TEXTBIN (IMAGEOBJPROP PLUS FFETCHFIELD \BIN LOGOR UNFOLD LLSH +\PAGEDBIN \TEDIT.TEXTBIN.NEW.PAGE APPLY* \TEDIT.APPLY.PARASTYLES \TEDIT.APPLY.STYLES ERROR) +\TEDIT.GET.CHARLOOKS.LIST2 (\SMALLPIN SUB1 LLSH IDIFFERENCE \TEDIT.GET.SINGLE.CHARLOOKS2 LIST PLUS) +USEREXEC (RESETVARS .RESETLST. LIST CONS CL:MULTIPLE-VALUE-PROG1 .UNWIND.PROTECT. FUNCTION LISPX +LISPXREAD) TIME.UNTIL (TYPENAMEP LISPERROR SELECTQ CANONICAL.TIMERUNITS \CanonicalizeTimerUnits +\TIMER.DIFFERENCE IDIFFERENCE \TIMER.IN.TICKS \RCLOCK0 \TIMER.IN.MILLISECONDS \CLOCK0 +\TIMER.IN.SECONDS \DAYTIME0 SHOULDNT) BLTMENUIMAGE (\INSUREWINDOW WINDOWPROP DSPCLIPPINGREGION BITBLT +IPLUS IMIN BITMAPWIDTH BITMAPHEIGHT) SCALEPAGEUNITS (FIXR FTIMES SELECTQ ASSOC IPLUS) \ARGPTR ( +\MYALINK OPCODES \VAROFFSET + UNFOLD LLSH SUB1 LISPERROR) APPENDLARGEVECTOR.IP (ARRAYSIZE ARRAYORIG +SUB1 IPLUS BYTESININT.IP ELT PLUS ADD1 ITIMES) IMAGESTREAMP (SELECTQ ARG) SETARG (PUTBASEPTR +\PUTBASEPTR \ARGPTR \EVAL) \UPDATE.EXTENT.IMAGE (WINDOWPROP DSPCLIPPINGREGION GREATERP IMAX IMIN +IQUOTIENT ITIMES IDIFFERENCE IPLUS TEXTUREP) IMAGESTREAMTYPE (\STREAMARG \GETSTREAM \DTEST) \ARG ( +GETBASEPTR \GETBASEPTR \ARGPTR) OPT.DELTAGREF (OPT.DEFREFS RPLACD DREMOVE FASSOC) IMAGESTREAMTYPEP ( +SELECTQ \GETSTREAM) AT.END.OF.TEXT (FMEMB FIRSTCHAR TTNEXTCHAR) SEDIT::MAXIMUM-STRING-WIDTH (CL:APPLY) + \SETARG (PUTBASEPTR \PUTBASEPTR \ARGPTR) \CH.GUESS.NEW.PROPERTIES (PARSE.NSNAME CH.LIST.OBJECTS CONS +LIST PLUS) STKNTH (IMINUS \STACKARGPTR LISPERROR PLUS \MYALINK OPCODES \MAKESTACKP SUB1) +%%MAKE-ARRAY-STORAGE (\ALLOCBLOCK FOLDHI LRSH IPLUS CL:*) TEDITCHAT.MENUFN (WINDOWPROP LOGAND +CHAT.RECONNECT TOTOPW \CARET.DOWN MENU) \FM.WINDOWENTRYFN (LOGAND DSPCLIPPINGREGION LASTMOUSEX +LASTMOUSEY WINDOWPROP \FM.ITEMPROP FFETCHFIELD LISTGET IPLUS ILESSP DOWINDOWCOM TTY.PROCESS) +COMPILER::CONSTRUCT-LIST (CL:REVERSE COMPILER::MAKE-CALL LIST) STKNAME (\STKNAME \STACKARGPTR) +\LFCreateFile (UNINTERRUPTABLY \PFGetVol \LFFullFileName \LFGenFileID \PFVolumeNumber \LFFindDirHole +\LFGetDirectory \LFMakeLeaderPage \LFFileName) \FM.STARTEDIT (RESETLST RESETSAVE LIST WINDOWPROP +\FM.EDIT-ITEM \FM.ITEMPROP FFETCHFIELD FUNCTION) SEDIT::SETUP-NEW-CONTEXT (CREATE.MONITORLOCK CONCAT +WITH.MONITOR CL:MULTIPLE-VALUE-PROG1 .UNWIND.PROTECT. FUNCTION SEDIT::SETUP-WINDOW-CONTEXT-DEPENDENCIES +) PRINT-ARGLIST (LIST) SETSTKNAME (\STACKARGPTR \HILOC \COPYFNHEADER) U/L-CASE (CHECK.MARGIN +FIND.NEXT.WORD SEGMENT.BIT.LENGTH U-CASECODE L-CASECODE TTNEXTCHAR TTADJUSTWIDTH -) EDITV ( +NLAMBDA.ARGS PRINT STKSCAN EDITE ENVEVAL HASDEF EDITDEF ERROR) \COPYFNHEADER (UNFOLD LLSH IPLUS +\ALLOC.CODE.BLOCK \ADDREF OPCODES) LISPXEVAL (HISTORYSAVE EVAL LISPX/) PFI.PREVIEW.DECLARE ( +SKIPSEPRCODES READ) JOINDEF (CONS NCONC APPEND) \TEXTBOUT (ADD1 \TEXTGETFILEPTR ADDBASE \ADDBASE LRSH +IPLUS LOGAND) NOTE (NCONC LIST) MB.SIZEFN (IMAGEOBJPROP IMAGESTREAMTYPE FONTCOPY STRINGWIDTH FONTPROP) + STKSCAN (\MYALINK OPCODES \STACKARGPTR \MAKESTACKP) OPENIMAGESTREAM (\CONVERT-PATHNAME STREAMP +FILENAMEFIELD STRPOS SUBATOM ADD1 SUB1 PRINTFILETYPE.FROM.EXTENSION MKLIST PRINTERPROP PRINTERTYPE +ERROR EQMEMB CONCAT PRINTERNAME PACKFILENAME APPLY* ASSOC) /TCONC (CONS ERROR /RPLNODE /RPLACD FRPLACD +) \FRAMESCAN (GETSTKNAMEENTRY ADD1 FOLDLO LRSH IDIFFERENCE NTSLOT-VARTYPE GETSTKNTOFFSETENTRY IPLUS +NTSLOT-OFFSET LOGAND ADDSTACKBASE \VAG2 UNFOLD LLSH PLUS CONSTANT WORDSPERNAMEENTRY) +COMPILER::META-CALL-LAMBDA-SIMPLIFY-PARAMETERS (COMPILER::CALL-FN COMPILER::CALL-ARGS CL:LABELS +COMPILER::LAMBDA-REQUIRED COMPILER::ADD-PARAM COMPILER::LAMBDA-REST) CHAT.RESHAPEWINDOW (WINDOWPROP +PROCESS.APPLY FUNCTION LIST) SEDIT::COMPLETE (SEDIT::CLOSE-NODE THIS.PROCESS) RETTO (RESET +\STACKARGPTR) \LFGetStreamForFile (\LFFileSpec \LFFullFileName MAKE-CONDITION \LFOpenOldFile +\LFReadFileID \LFGetDirectory PRIN1 \LFCreateFile) \FM.CREATEW (COPY LISTGET CREATEW CREATEREGION +WIDTHIFWINDOW HEIGHTIFWINDOW) PRINTERPROP (ASSOC) SEDIT::SETUP-CONTEXT-WINDOW-DEPENDENCIES ( +SEDIT::COMPUTE-COMMENT-COLUMN) \SETWINFOXSIZE (\LIMITBYMIN \LIMITBYMAX) OPT.COMMONBACK (SUB1 +OPT.LABELNTHPR OPT.DEFREFS) \10MB.CREATENDB (CONS \10MB.STARTDRIVER FUNCTION) PRINTERTYPE ( +DEFAULTPRINTER ERROR GETPROP MKATOM CANONICAL.HOSTNAME ASSOC MKLIST) \VAMEnoughSpace (EQL ILEQ +IDIFFERENCE IQUOTIENT ITIMES) SEDIT::MINIMUM-STRING-WIDTH (CL:APPLY) APPENDINT.IP (SUB1 LOADBYTE +LOGAND LSH IMINUS UNFOLD LLSH MASK.1'S PLUS) FILEGETDEF.LISPXMACROS (MKPROGN LOADFNS ASSOC LIST) +FW-CREATE-OFD (FW-RESIZE-OFD STRINGWIDTH GETEOFPTR GETFILEINFO) UNIX-STREAM-IN (UNIX-PEEKEDCHAR +FFETCHFIELD UNIX-READ) GETDEFFROMFILE (WHEREIS FINDFILE APPLY* SELECTQ FILEGETDEF.FNS FILEGETDEF.VARS +FILEGETDEF.MACROS FILEGETDEF.PROPS FILEGETDEF.RECORDS FILEGETDEF.ALISTS FILEGETDEF.LISPXMACROS GET +LOADFNS CONS RESETLST RESETSAVE RESETUNDO LIST GETDEFCURRENT MKLIST FMEMB GETDEFERR APPEND) +PFI.PREVIEW.DEFINEQ (SKIPSEPRCODES READ TERPRI) XCL::UNDOABLY-SET-SYMBOL (\STKSCAN \HILOC \PUTBASEPTR +\GETBASEPTR \RPLPTR) RESUME (\DTEST \MYALINK OPCODES \RESUME) \ALLOCSPACETOGROUPEDWINDOWS (SELECTQ +\ALLOCWIDTHTOGROUPEDWINDOW \ALLOCHEIGHTTOGROUPEDWINDOW) %%ONED-ARRAY-P (NTYPX) +SEDIT::EQUALIZE-STRING-WIDTHS (SEDIT::MAXIMUM-STRING-WIDTH) PRINTFILETYPE.FROM.EXTENSION (U-CASE +FILENAMEFIELD ASSOC) \RESUME (\MYALINK OPCODES) CREATEWFROMIMAGE (CREATEW \INSURESCREEN BITMAPWIDTH +BITMAPHEIGHT CONS IMIN) EXEC-READ-LINE (PEEKCCODE LIST EXEC-READ NCONC1 CHCON1 LASTC FIX-FORM) +SHRINK-VECTOR (CL:ERROR) EDITP (NLAMBDA.ARGS GETPROPLIST MISSPELLED? FUNCTION) +XCL::GET-UNDOABLE-SETF-METHOD (CL:VALUES LIST CL:GENSYM CL::SETF-ERROR LOCAL-MACRO-FUNCTION +XCL::GET-UNDOABLE-SETF-METHOD CL:FUNCALL GET CL::GET-SIMPLE-SETF-METHOD) %%GENERAL-ARRAY-P (NTYPX) +CHAT.BUTTONFN (LOGAND WINDOWPROP FUNCTION LIST CHAT.MENU) \POSTSCRIPT.ACCENTFN (SUBSTRING CONCAT +OCTALSTRING SUB1 IPLUS ADD1 \GETBASEFAT \GETBASE \GETBASETHIN \GETBASEBYTE) \LFUpdateLeaderPage ( +UNINTERRUPTABLY DAYTIME) \FM.SETATTACHPOINT (MAPC \FM.ITEMPROP LISTGET \FM.ATTACHPOINT FFETCHFIELD +CONS FIX FPLUS FQUOTIENT ITIMES IDIFFERENCE) %%TWOD-ARRAY-P (NTYPX) COMPILER::FRAME-ANNOTATE-RETURN ( +CL:PUSHNEW CONS COMPILER::RETURN-BLOCK COMPILER::FRAME-ANNOTATE COMPILER::RETURN-VALUE) \SPREADFRAMEP +(\GETBASEPTR IPLUS UNFOLD LLSH SUB1) SETNTHTOPLEVELELT (/RPLACD LAST NTH ADD1 /RPLACA) +REOPENTEXTSTREAM (FUNCTION) TRYNEXT1 (NCONC RESUME) SWITCH/NODE/HEIGHT/WIDTH (MAPC FRPLACA) +CENTERPRINTINAREA (\OUTSTREAMARG \GETSTREAM STRINGWIDTH FUNCTION IPLUS IQUOTIENT ADD1 IDIFFERENCE +FONTPROP DSPRIGHTMARGIN RESETSAVE LIST CL:FUNCALL) CH.DELETE.MEMBER (CH.CANONICAL.NAME COURIER.CALL +CH.FINDSERVER PARSE.NSNAME FIXP CH.PROPERTY CH.GETAUTHENTICATOR) SHOWSHADEDITEMS (NTH MENUITEMREGION +DIFFERENCE BITMAPWIDTH) SETSTKARG (\STACKARGPTR \INTERPFRAMENT \FRAMESCAN LISPERROR FOLDLO LRSH +GETSTKNAMEENTRY IPLUS UNFOLD LLSH SUB1 SELECTC NTSLOT-VARTYPE GETSTKNTOFFSETENTRY \ADDBASE SHOULDNT +NTSLOT-OFFSET LOGAND IDIFFERENCE STACKADDBASE \VAG2 STACKPUTBASEPTR \PUTBASEPTR) SKIP/ZAP (U-CASECODE +SELECTC IMINUS SHOULDNT SCANBACK TTNLEFT SCANFORWARD TTNEXTCHAR) BEEP (RESETFORM VIDEOCOLOR DISMISS) +COMPILER::META-CALL-LAMBDA (COMPILER::CALL-FN COMPILER::CALL-ARGS COMPILER::LAMBDA-REQUIRED +COMPILER::VARIABLE-SCOPE COMPILER::CONSTRUCT-PROG1-TREE LIST COMPILER::PROGN-STMTS COMPILER::LAMBDA-BODY + CL:NREVERSE) STKARGNAME (\STACKARGPTR \INTERPFRAMENT \FRAMESCAN \INDEXATOMVAL \VAG2 LRSH LOGAND +GETSTKNAMEENTRY \ADDBASE UNFOLD LLSH IPLUS LISPERROR MAKE-NTENTRY SUB1 IDIFFERENCE STACKADDBASE +GETSTKNTOFFSETENTRY PLUS CONSTANT WORDSPERNAMEENTRY WORDSPERNTOFFSETENTRY) UNIX-STREAM-PEEK ( +UNIX-PEEKEDCHAR FFETCHFIELD UNIX-READ) FILEGETDEF.ALISTS (LOADFNS ASSOC LIST CONS) SETSTKARGNAME ( +\STACKARGPTR \INTERPFRAMENT \FRAMESCAN FOLDLO LRSH \INDEXATOMVAL \VAG2 LOGAND GETSTKNAMEENTRY \ADDBASE + UNFOLD LLSH IPLUS LISPERROR \COPYFNHEADER MAKE-NTENTRY SUB1 IDIFFERENCE GETSTKNTOFFSETENTRY +\ATOMVALINDEX NTYPX \LOLOC SHOULDNT PLUS CONSTANT WORDSPERNAMEENTRY WORDSPERNTOFFSETENTRY) +PRINTER.BITMAPFILE (EVAL PRINTERPROP) \TEDIT.TRY.ABBREV (SASSOC U-CASE CHARCODE.DECODE CHARACTER +APPLY* EVAL) %%PRINT-ARRAY-CONTENTS (CL:1- CONSTANT CL:WRITE-CHAR) CHAT.CLOSEFN (CHAT.CLOSE) +\FM.UPDATEWINDOWEXTENT (\FM.WINDOWEXTENT WINDOWPROP IPLUS IDIFFERENCE) GETDEFSAVED (SELECTQ GETPROP +GETDEFERR GETPROPLIST SASSOC FASSOC) %%THIN-CHAR-TYPENUMBER (%%TYPE-SIZE-TO-TYPENUMBER) +\FM.COLLECTNWAYS (LIST WINDOWPROP \FM.ITEMPROP FFETCHFIELD LISTGET \FM.COERCEITEMPTR FM.GETITEM ERROR +\FM.MAKEGROUP CONS \FM.TOGGLE-CHANGESTATE) SEDIT::SETUP-CONTEXT (SEDIT::SET-INITIAL-SELECTION) +%%DEFPRINT-ARRAY (%%DEFPRINT-VECTOR %%DEFPRINT-GENERIC-ARRAY CL:CODE-CHAR CL:ARRAY-RANK) PRETTYDEF ( +RESETLST RESETSAVE RESETUNDO LIST ROOTFILENAME GET \DO-DEFINE-FILE-INFO COPY +LOOKUP-ENVIRONMENT-AND-FILEMAP OPENSTREAM INPUT UNION FILEPKG.CHANGEDFNS GET-ENVIRONMENT-AND-FILEMAP +LISTPUT FUNCTION OUTPUT GETFILEPTR FULLNAME) STKNARGS (\STACKARGPTR SUB1 \INTERPFRAMENT FOLDLO LRSH +PLUS GETSTKNAMEENTRY \ADDBASE UNFOLD LLSH IPLUS) OPT.LABELNTHPR (OPT.PRATTACH LIST) CL:PRINC-TO-STRING + (\PRINDATUM.TO.STRING) FRAMESCAN (\STACKARGPTR \FRAMESCAN \INTERPFRAMENT) CH.SERVERS (COURIER.CALL +GETCLEARINGHOUSE CH.PROPERTY CH.GETAUTHENTICATOR) CL:WRITE-CHAR (\OUTCHAR \GETSTREAM CL:CHAR-INT) +PFI.HANDLE.PACKAGE (PFI.PRETTYPRINT) OPT.JUMPREV (OPT.COMMONBACK OPT.FINDEND OPT.DEFREFS +OPT.LABELNTHPR OPT.NOTJUMP SELECTQ OPT.JUMPCOPYTEST) %%DEFPRINT-VECTOR (%%DEFPRINT-STRING +%%DEFPRINT-GENERIC-ARRAY %%DEFPRINT-BITVECTOR CL:CODE-CHAR VECTOR-LENGTH CL:1-) UNIX-STREAM-EOFP ( +FFETCHFIELD UNIX-CHANNEL UNIX-PEEKEDCHAR UNIX-LASTCHAR) \HDCPYDISPLAY.FIX.XPOS (FIX FTIMES CONSTANT) +%%DEFPRINT-GENERIC-ARRAY (CL:CODE-CHAR) PRINTCOPYRIGHT (GETPROP ASKUSER CONSTANT CHARACTER CONCAT +NCONC MAPCAR LIST CONS ASSOC SUBATOM DATE MEMBER) PFI.HANDLE.FILEMAP (PFI.PRETTYPRINT LIST) +\GOOD.DASHLST (INSURE.DASHING IQUOTIENT IPLUS BITMAPHEIGHT BITMAPWIDTH FIXR LENGTH APPEND TIMES ADD1 +SUB1 LIST) %%DEFPRINT-STRING (VECTOR-LENGTH) CENTEREDPRIN1 (IPLUS IQUOTIENT IDIFFERENCE STRINGWIDTH +PRIN3) \APPEND2 (CONS LIST) PRINTCOPYRIGHT1 (TERPRI ADD1 CONS CONCAT) /DECLAREDATATYPE (LIST +GETFIELDSPECS GETSUPERTYPE) CHECKDEFS (RECORD.PRIORITY FNTH RECORDECL CONS MAPCONC LIST RETDWIM2) FIXR + (FIXP LISPERROR NTYPX ADD1 IDIFFERENCE IGEQ LOLOC \LOLOC FLOAT IPLUS LLSH LRSH LOGAND PLUS SUB1 FIX +FPLUS SELECTQ .LRSH1. LOGOR .LRSHSTICKY. \MAKENUMBER) %%DEFPRINT-BITVECTOR (CL:CODE-CHAR VECTOR-LENGTH + CL:1-) SAVECOPYRIGHT (GETPROP LIST) BITMAPWIDTH (WINDOWPROP \ILLEGAL.ARG) \DSPXPOSITION.HDCPYDISPLAY +(\DSPXPOSITION.DISPLAY) COMPILER::FRAME-ANNOTATE-SETQ (COMPILER::FRAME-ANNOTATE COMPILER::SETQ-VALUE) +COMPERROR (RETFROM) DECLAREDATATYPE (GETFIELDSPECS APPEND TRANSLATE.DATATYPE LITATOM LIST) READFROMBUF + (TTNEXTCHAR) %%ARRAY-WRITE (%%SLOW-ARRAY-WRITE) \TEDIT.GET.PARALOOKS.LIST2 (\SMALLPIN SUB1 LLSH +IDIFFERENCE \TEDIT.GET.SINGLE.PARALOOKS2 LIST PLUS) %%FAT-CHAR-TYPENUMBER (%%TYPE-SIZE-TO-TYPENUMBER) +MB.WHENOPERATEDFN (SELECTQ MB.SHOWSELFN MB.SELFN) INSURE.DASHING (DASHINGP \ILLEGAL.ARG) +\SETWINFOYSIZE (\LIMITBYMIN \LIMITBYMAX) \VAMFindFreePages (UNINTERRUPTABLY SUB1 \VAMUpdateVAM PLUS) +COMPILER::META-EVAL-VAR-REF (COMPILER::NODE-META-P) \EDIT.DOWNCARET (DSPXPOSITION DSPYPOSITION +\CARET.FLASH?) TRANSLATE.DATATYPE (MAPCAR PLUS SELECTQ ERROR LOGAND - IPLUS ADD1 IDIFFERENCE CONS +MakeBitField FRPLACA SHOULDNT) PRINT-DOCUMENTATION (CL:DOCUMENTATION TRUE CL:FORMAT) GETDEFERR (HASDEF + LISTGET1 RETFROM GETDEF CONS MKLIST) COMPILER::FRAME-ANNOTATE-PROGV (NCONC COMPILER::FRAME-ANNOTATE +COMPILER::PROGV-SYMS-EXPR COMPILER::PROGV-VALS-EXPR COMPILER::PROGV-STMT) \POSTSCRIPT.ACCENTPAIR ( +SUBSTRING CONCAT OCTALSTRING SUB1 IPLUS ADD1 \GETBASEFAT \GETBASE \GETBASETHIN \GETBASEBYTE IEQP / +FONTPROP) LINELENGTH (\GETSTREAM FIX) %%ARRAY-READ (%%SLOW-ARRAY-READ) \NSRANDOM.UPDATE.VALIDATION ( +FILING.CALL \NSFILING.UPDATE.ATTRIBUTES) CLEANPOSLST (MAPC RELSTK) LISPXPRINT (LIST CONS PRINT) +XCL::WALK-UNEXPECTED-DECLARE (DECLARE CL:WARN) \RESHAPEATTACHEDWINDOWSAROUNDMAINW (WINDOWPROP +WINDOWREGION SELECTQ CREATEREGION ADD1 MAX DIFFERENCE PLUS CENTERINWIDTH SHOULDNT CENTERINHEIGHT MIN) +SEDIT::DOT-THIS-LIST (SUB1 NTH SEDIT::SET-SELECTION-NOWHERE) FW-CLOSEFN (PROCESS.NAME THIS.PROCESS +CONS) APPENDSEQUENCEDESCRIPTOR.IP (CONSTANT SUB1 EXPT LOGOR APPENDBYTE.IP APPENDINT.IP) \REUSETO ( +IDIFFERENCE CONS LIST PLUS) DWIMIFY2? (DWMFY2) READ-UNICODE-MAPPING (READ-UNICODE-MAPPING-FILENAMES +MAKEBITTABLE NCONC) DO-EVENT (FUNCTION COPY-CIRCLE STRING GETHASH CLOCK EXEC-PRINT) %%REDUCE-INTEGER ( +CL:1+ CL:1- MAX -) EXTENDEXTENT (WINDOWPROP EXTENDREGION) MakeBitField (LOGOR LLSH SUB1) MSMSGPRINT ( +PRIN1 PRIN2) BITMAPHEIGHT (WINDOWPROP \ILLEGAL.ARG) \NSRANDOM.WROTE.HANDLE (FILING.CALL CONSTANT +\FILING.ATTRIBUTE.TYPE.SEQUENCE ASSOC DREMOVE) \TEDIT.PUT.SINGLE.PARALOOKS (GETFILEPTR LOGAND LRSH +\BOUT SELECTQ SHOULDNT LENGTH IDIFFERENCE) XCL::WALK-TAGBODY (XCL::RECONS XCL::WALK-TAGBODY-1) +FLONUM-TO-STRING (CL:VALUES MAX MIN + DIGITSBDP CL:1- FLTSTR CL:MACROLET CL:LENGTH CL:CHAR +CL:FILL-POINTER CL:1+ =) PFI.HANDLE.* (SEMI-COLON-COMMENT-P + CL:CEILING STRINGWIDTH TIMES - +DSPRIGHTMARGIN DSPLEFTMARGIN FRPLACA PLUS NCONC1 LIST) TOPPATHS (ALLPATHS RECLOOK1) PRODUCE (RESUME) +REFLECT/GRAPH/VERTICALLY (IPLUS MAX/TOP MIN/BOTTOM IDIFFERENCE) EQUAL.CH.NAMES (STRING-EQUAL) +CL:CHARACTER (CL:INT-CHAR CL:LENGTH STRING CL:CHAR CL:ERROR) SEE* (NLAMBDA.ARGS APPLY) EDITLOADFNS? ( +WHEREIS LDIFFERENCE ASKUSER MAKEKEYLST GETPROP INFILEP FINDFILE FILEDATE STREQUAL LIST) DO.EDIT.PP ( +RETYPE.BUFFER WITH-RESOURCES COPY.SEGMENT BEEP TTSKIPSEPR TTYIN.READ LIST TTYIN.PPTOFILE GETRESOURCE +NEWRESOURCE MAKE-TTSCRATCHFILE) COURIER.BROADCAST.CALL (RESETLST \GET.COURIERPROGRAM GETHASH ERROR +\GET.COURIER.DEFINITION LIST OPENNSOCKET CREATE.PACKET.EXCHANGE.XIP \BUILD.EXPEDITED.XIP CONS PRIN1 +\COURIER.BROADCAST.ON.NET FUNCTION FRPLACD) COMPILER::META-EVAL-UNWIND-PROTECT (COMPILER::MEVAL +COMPILER::META-EVALUATE COMPILER::UNWIND-PROTECT-STMT REPLACEFIELD COMPILER::UNWIND-PROTECT-CLEANUP +COMPILER::ANALYZE-TREE COMPILER::NODE-META-P) CHAT.ICONFN (WINDOWPROP TITLEDICONW FONTCREATE) +\FM.WINDOWEXTENT (COPY \FM.TOPGROUPPROP LISTGET WINDOWPROP \FM.INSUREWINDOW ERROR \FM.ITEMPROP +FFETCHFIELD \FM.ITEMWIDTH BITMAPWIDTH STRINGWIDTH) \POSTSCRIPT.SPECIALOUTCHARFN (\DSPFONT.PSC IPLUS +LOGAND LRSH) MMLTLIST (MAPCAR XYPT.X XYPT.Y PLUS TIMES CONS) \FM.MAKELINKS (MAPC WINDOWPROP +\FM.ITEMPROP FFETCHFIELD \FM.COERCEITEMPTR FM.GETITEM ERROR) COPY.TEXT.TO.IMAGE (GETSTREAM +DSPRIGHTMARGIN FONTMAPARRAY ARRAYSIZE FUNCTION LOGAND \INCCODE DSPXPOSITION CONSTANT APPLY IPLUS +SPREADAPPLY* NTH ERROR TIMES CHARWIDTH FONTCREATE ELT \PEEKBIN DSPLEFTMARGIN - REMAINDER NLSETQ +RELMOVETO +) GETFILEDEF (FILENAMEFIELD) SEDIT::SET-DEPTH (MAPC SEDIT::SET-DEPTH ADD1) +TYPE-VARIABLE-FROM-TYPE-NAME (NAMESTRING-CONVERSION-CLAUSE PACK* CL:FIRST SUBSTRING CL:1+ CL:INTERN +CONCAT MKSTRING CL:SYMBOL-PACKAGE) TTDELETECHAR (BEEP PREVLINE OVERFLOWLINE? TTNLEFT DELETETO TTRUBOUT +) GETDEFCOM0 (MAPCONC SUBPAIR PRETTYCOM1 GETDEFCOM0 SELECTQ MAPCAR CONS APPEND RETFROM) REMOVEDUPS ( +INTERSECTION) DISPLAYP (\OUTSTREAMARG \GETSTREAM DISPLAYSTREAMP IMAGESTREAMTYPEP) +\NSRANDOM.WRITE.SEGMENT (FILING.CALL COURIER.CREATE LIST FUNCTION) SI::PRINT-TRACED-CL-ARGLIST ( +DECLARE +) XCL::WALK-TAGBODY-1 (XCL::RECONS WALK-FORM-INTERNAL XCL::WALK-TAGBODY-1) +PFI.HANDLE./DECLAREDATATYPE (PFI.PRETTYPRINT LIST* LIST) \BREAKAPARTATWSTRUCTURE (MAPCONC APPEND CONS) + \VAMFilePageNumber (SELECTC SHOULDNT) BitFieldFirst (LRSH) OPT.LBDEL (OPT.DEFREFS DREMOVE FASSOC) +GETDEFCURRENT (APPLY* SELECTQ VIRGINFN GETTOPVAL RECLOOK MKPROGN FIELDLOOK COPY GETFILEDEF LIST +FILECOMS GETTEMPLATE KWOTE GETPROPLIST NCONC SOME CDDR FILEPKGCOM FILEPKGTYPE CONS MAKENEWCOM +GETDEFCOM) /SETSEPR (LIST GETSEPR SETSEPR) PRINTHISTORY2 (FUNCTION) \TEDIT.HCPYLOOKS.UPDATE ( +\TEDIT.APPLY.PARASTYLES \TEDIT.APPLY.STYLES PLUS \RPLPTR \ADDBASE2 \ADDBASE IPLUS \EDITELT GETBASEPTR +\GETBASEPTR FONTCLASSCOMPONENT FONTCOPY FIXR FTIMES DSPSCALE IMAX IDIFFERENCE LISTGET IMAGEOBJPROP +SUB1) COMPILER::FRAME-ANNOTATE-PROGN (MAPCONC COMPILER::PROGN-STMTS COMPILER::FRAME-ANNOTATE) +SCAN.LESSP (ILESSP) COMPILER::META-EVAL-THROW (COMPILER::MEVAL COMPILER::META-EVALUATE COMPILER::THROW-TAG + REPLACEFIELD COMPILER::THROW-VALUE COMPILER::ANALYZE-TREE COMPILER::NODE-META-P) +\FM.UPDATEGROUPEXTENT (LIST \FM.DTOPGROUPID MAPC ASSOC LISTPUT COPYALL \FM.ITEMPROP FFETCHFIELD +LISTGET EXTENDREGION IPLUS FRPLACA PLUS MINUS) \POSTSCRIPT.PRINTSLUG (\FGETWIDTH \GETBASE \CHAR8CODE +LOGAND \MOVETO.PSC IPLUS) COMPILEDFETCHFIELD (LIST FUNCTION KWOTE SELECTQ SHOULDNT) \LFCloseDirectory +(\LFGetDirectory \LFPutDirectory) \FM.READUSERDATA (MAP LISTPUT \FM.ITEMPROP FFETCHFIELD) +SEDIT::SELECT-NEXT-GAP (SEDIT::NEXT-NODE) ALLPATHS (RECORD.FIELDNAMES RECORDECL NCONC ACCESSDEF4 +APPEND ALLPATHS RECLOOK1 RECORD.NAME RECORD.SUBDECS RECORD.TYPECHECK CONS MAPCONC RECORD.FIELDINFO +TOPPATHS JOINDEF) DRAWDASHEDLINE (IDIFFERENCE FIX SQRT IPLUS ITIMES TIMES LIST FQUOTIENT PLUS FPLUS +FTIMES MOVETO) \DSKCreateDevice (\UFS.CREATE.DEVICE FUNCTION) OPT.UBDEL (DREMOVE FASSOC +OPT.COMPILERERROR) PRETTYPRINT (RESETLST RESETSAVE LIST FUNCTION DSPFONT GETSTREAM CLOCK OUTPUT EVALV +CLOCKDIFFERENCE GETFILEPTR VIRGINFN ARGTYPE CONS EDITLOADFNS? MISSPELLED? NLEFT) CANONICAL.CH.NAME ( +MKATOM NSNAME.TO.STRING PARSE.NSNAME) DRAWLINE (IMAGEOP SPREADAPPLY* \OUTSTREAMARG \GETSTREAM) +PRETTYPRINT3 (CLISPIFY) MAXSTRINGWIDTH (IMAX STRINGWIDTH) COMPILEDREPLACEFIELD (LIST FUNCTION KWOTE +SELECTQ SUBPAIR) RECORDCHAIN (CHECKDEFS TOPPATHS) REFLECT/GRAPH/HORIZONTALLY (IPLUS MAX/RIGHT MIN/LEFT + IDIFFERENCE) GENERATEFN (CONS STKNTH RETTO) MOVETO (IMAGEOP SPREADAPPLY* \OUTSTREAMARG \GETSTREAM) +AU-REVOIR (ARG RESUME) SEDIT:DEFAULT-COMMANDS (CL:COPY-TREE SEDIT:RESET-COMMANDS) GLOBALVARS (UNION) +LAYOUTFOREST (LAYOUTGRAPH APPEND CONS) SEND.FILE.TO.PRINTER (RESETLST FULLNAME PRINTFILETYPE U-CASE +PRINTERTYPE CONVERT.FILE.TO.TYPE.FOR.PRINTER LISTGET DEFAULTPRINTER CL:FUNCALL PRINTERPROP ERROR +CONCAT APPEND LIST) CH.NAME.TO.STRING (NSNAME.TO.STRING PARSE.NSNAME) SQRT (FLOAT LOGAND IPLUS LRSH +IDIFFERENCE MASK.1'S LSH SUB1 FTIMES FPLUS FQUOTIENT) COPYALLBYTES (RESETLST LIST OPENSTREAM +GETFILEPTR INPUT OUTPUT OPENP) SET/LABEL/SIZE (FIXP DSPSCALE GRAPHNODE/BORDER/WIDTH FIXR FTIMES +BITMAPWIDTH BITMAPHEIGHT APPLY* IMAGEOBJPROP FONTP FONTCREATE IPLUS STRINGWIDTH FONTPROP) +CL::SXHASH-PATHNAME (CL::SXHASH-ROT LOGXOR CL::%%SXHASH %%PATHNAME-HOST %%PATHNAME-DEVICE +%%PATHNAME-TYPE %%PATHNAME-VERSION %%PATHNAME-DIRECTORY %%PATHNAME-NAME) CHAT.ENDOFSTREAMOP ( +STREAMPROP FUNCTION) \FM.TRANSPOSEVERT (WINDOWPROP \FM.ITEMPROP FFETCHFIELD \FM.TRANSPOSE FIX FPLUS +FQUOTIENT FTIMES) APPENDIDENTIFIER.IP (NCHARS MKSTRING SUB1 IPLUS ADD1 \GETBASEFAT \GETBASE +\GETBASETHIN \GETBASEBYTE) SCANFILEHELP (INPUT HELP) \FM.MAKEBITMAP (LISTGET BITMAPCREATE CREATEREGION + IDIFFERENCE ITIMES DSPCREATE IPLUS FONTPROP) \DSPRIGHTMARGIN.HDCPYDISPLAY (\DSPRIGHTMARGIN.DISPLAY +FIX FTIMES CONSTANT) DSPBACKCOLOR (IMAGEOP SPREADAPPLY* \OUTSTREAMARG \GETSTREAM) OPENIPSTREAM ( +OPENSTREAM LISTGET \PAPERSIZE.IP GETEOFPTR FULLNAME FUNCTION FRPLACA COPY FILENAMEFIELD STRPOS +SUBSTRING ADD1 SUB1) FIELDLOOK (RECFIELDLOOK) CL::%%SXHASH (\EQHASHINGBITS LOGXOR \HILOC LLSH LOGAND +\LOLOC LRSH CL::SXHASH-LIST CL::SXHASH-STRING CL::SXHASH-BIT-VECTOR CL::SXHASH-PATHNAME) MB.SELFN ( +IMAGEOBJPROP APPLY*) MB.SETIMAGE (IMAGEOBJPROP STRINGWIDTH FONTPROP BITMAPCREATE DSPCREATE) +XCL::SETF-GET-PROCESS-PROFILE (THIS.PROCESS XCL::PROFILIZE PROCESSPROP) /SETD (LIST ELTD SETD) +TEDIT.HARDCOPY.PAGEHEADING (STREAMPROP PLUS \TEDIT.COPYTEXTSTREAM.PIECEMAPFN LIST SUB1 IPLUS) +COMPILEDNCREATE (LIST \TYPEGLOBALVARIABLE) DSPBOTTOMMARGIN (IMAGEOP SPREADAPPLY* \OUTSTREAMARG +\GETSTREAM) COMPILER::META-EVAL-TAGBODY (MAPC COMPILER::TAGBODY-SEGMENTS COMPILER::ANALYZE-TREE +COMPILER::NODE-META-P) UNIX-READ (UNIX-CHANNEL FFETCHFIELD \EOF.ACTION UNIX-LASTCHAR) READ-AFM-FILE ( +OPENSTREAM ARRAY RSTRING FONTCREATE printout MENU TERPRI LIST POSTSCRIPT.GETFONTID READ IABS IMINUS +IPLUS FIXR FTIMES / RATOM READCCODE LISTGET PLUS) \DSKCloseDevice (WITH.MONITOR CL:MULTIPLE-VALUE-PROG1 + .UNWIND.PROTECT. FUNCTION) RESTOREBUF (PROPERTAILP CONS) XCL::WALK-PROG (XCL::WALK-LET/LET*) +*DIGIT-STRING* (CL:MAKE-ARRAY) MSFINDP (MSFINDP) SHEDSCAN (MAKEBRES IPLUS) EDITNUMBERP (IDIFFERENCE +CONSTANT CHCON1) SHORTLST (SHORTLST SUB1) DSPCOLOR (IMAGEOP SPREADAPPLY* \OUTSTREAMARG \GETSTREAM) +\DSKEventFn (WITH.MONITOR CL:MULTIPLE-VALUE-PROG1 .UNWIND.PROTECT. FUNCTION SELECTQ MACHINETYPE +CLRHASH \FLUSH.OPEN.STREAMS) \FM.TRANSPOSEHORZ (WINDOWPROP \FM.ITEMPROP FFETCHFIELD \FM.TRANSPOSE FIX +FPLUS FQUOTIENT FTIMES) \TEDIT.PARSE.CHARLOOKS.LIST (CHARLOOKS.FROM.FONT LISTGET FMEMB CONS NLSETQ +\DTEST \TEDIT.FONTCOPY IPLUS FONTPROP IMINUS) MERGLIST (HEADPT XYPT.Y CONS REVERSE) \FM.GETBITMAPS ( +LISTGET \FM.MAKEBITMAP BITMAPCOPY IDIFFERENCE ITIMES LIST) \UFS.UNREGISTER.GFS (UNINTERRUPTABLY +PUTHASH) COMPILER::FRAME-ANNOTATE-MV-CALL (NCONC COMPILER::FRAME-ANNOTATE COMPILER::MV-CALL-FN MAPCONC + COMPILER::MV-CALL-ARG-EXPRS) SEDIT::REVIVE-NODE (IPLUS MAPC SEDIT::REVIVE-NODE) PRETTYCOM (LIST +FIXSPELL FUNCTION SUBPAIR PRETTYCOM1 PRETTYCOM PRETTYVAR CONS MAKEDEFLIST PRINTDEF1 GETPROPLIST NCONC +PRIN2 ADD1 POSITION PRINTDEF PRIN1 PRETTYVAR1 ERRORX EVAL printout KWOTE GETDEF TERPRI) RECLOOK1 ( +SUBSET RECORD.NAME RECORDECL) \UNVISIBLE.FLUSH.OPEN.STREAMS (LOGAND CONSTANT LOGOR SPREADAPPLY*) ADIEU + (ARG RETTO) SEDIT:RESET-COMMANDS (SEDIT::CREATE-COMMAND-TABLE CL:FIRST CL:SECOND) FW-OPENP ( +SCRATCHLIST FRPLACA FRPLACD CONS APPLY* ADDTOSCRATCHLIST \GETSTREAM FLAST) CH.ADD.MEMBER ( +CH.CANONICAL.NAME COURIER.CALL CH.FINDSERVER PARSE.NSNAME FIXP CH.PROPERTY CH.GETAUTHENTICATOR) +DSPCLIPPINGREGION (IMAGEOP SPREADAPPLY* \OUTSTREAMARG \GETSTREAM \ILLEGAL.ARG) SEE (NLAMBDA.ARGS +COPYALLBYTES) MINIMUMWINDOWSIZE (WINDOWPROP CONS HEIGHTIFWINDOW FONTPROP APPLY* NUMBERP ERROR) +EQLENGTH (NTH) DOERROR (CONS SASSOC FASSOC FRPLACA MEMBER) UNIX-BACKFILEPTR (FFETCHFIELD ERROR +UNIX-PEEKEDCHAR UNIX-LASTCHAR) CONFIRM-SET (MOUSECONFIRM) PRINTFNS (TCONC GETFILEPTR) PARSE.NSNAME ( +SELECTQ LISPERROR MKSTRING STRPOS SUBSTRING SUB1 ADD1) \UNVISIBLE.PAGED.REVALIDATEFILELST ( +\PAGED.REVALIDATEFILE RESTOREMAP FORGETPAGES STREAMPROP APPLY* SPREADAPPLY*) XCL::WALK-PROG* ( +XCL::WALK-LET/LET*) SUBPAIR (CONS SUBPAIR COPY) SEDIT::AWAKE-COMMAND-PROCESS (WINDOWPROP) DSPRESET ( +IMAGEOP SPREADAPPLY* \OUTSTREAMARG \GETSTREAM) \UFSCreateDevice (\UFS.CREATE.DEVICE FUNCTION) +FW-CLOSE-OLD-OFD-WINDOWS (MAPC SELECTQ CLOSEW SHOULDNT CONS) MB.DISPLAY (SELECTQ IMAGESTREAMTYPE +IMAGEOBJPROP DSPXPOSITION DSPYPOSITION IDIFFERENCE DSPFONT FONTCOPY) PRETTYDEF1 (MEMB SUBPAIR LIST +CONS UNION INTERSECTION) BYTESININT.IP (FOLDHI LRSH IPLUS ADD1 INTEGERLENGTH) +\TEDIT.PARSE.PARALOOKS.LIST (LISTGET FMEMB CONCAT CONS MAPCAR) \DSKDISPLAY.UPDATE (REDISPLAYW) /SETBRK + (LIST GETBRK SETBRK) \UFS.CREATE.DEVICE (\MAKE.PMAP.DEVICE FUNCTION) TEDIT.SKIP.SPECIALCOND ( +STREAMPROP PLUS LIST SUB1 IPLUS) FILEFNSLST (FILECOMSLST) \UFSEventFn (WITH.MONITOR +CL:MULTIPLE-VALUE-PROG1 .UNWIND.PROTECT. FUNCTION SELECTQ MACHINETYPE CLRHASH \FLUSH.OPEN.STREAMS) +LISPXREPRINT (\GETSTREAM PRIN1 PRIN2 CL:APPLY SELECTQ APPLY* TAB TERPRI APPLY CONS) +\TEDIT.GET.SINGLE.PARALOOKS (GETFILEPTR \SMALLPIN SUB1 LLSH IDIFFERENCE CONS \BIN SELECTC SHOULDNT +LOGAND SELECTQ LIST PLUS ZEROP \ARBIN \ATMIN IPLUS) \CHARWIDTH.HDCPYDISPLAY (IQUOTIENT IPLUS +\FGETCHARIMAGEWIDTH \FGETWIDTH \GETBASE \GETCHARSETINFO \GETBASEPTR UNFOLD LLSH \CHARSET LRSH +\CREATECHARSET \CHAR8CODE LOGAND FONTCREATE STREAMPROP CONSTANT) DSPFONT (IMAGEOP SPREADAPPLY* +\OUTSTREAMARG \GETSTREAM) FILEPKG.CHANGEDFNS (ASSOC) FILECHANGES (RESETLST OPENP GETFILEPTR LIST +OPENSTREAM LDIFF MEMB ASSOC SUBSET LITATOM NCONC CONS LISTP) SEDIT::MAP-COMMENT-INDEX (NCHARS +IDIFFERENCE) \UFSDirectoryNameP (CONCAT UNPACKFILENAME.STRING \UFS.HANDLE.RELATIVEDIRECTORY +\UFS.DEFAULT.DIR ALLOCSTRING \UFS.DIRECTORY.NAME \UFS.FULLNAME SUBSTRING) OPT.LBMERGE (OPT.DEFREFS +OPT.LBDEL) TRANSLATE.LOCF (MKPROGN PLUS CL:MACROEXPAND-1 LIST) COMPILER::FRAME-ANNOTATE-MV-PROG1 ( +MAPCONC COMPILER::MV-PROG1-STMTS COMPILER::FRAME-ANNOTATE) XCL::SAVE-CURRENT-EXEC-PROFILE ( +XCL::GET-PROCESS-PROFILE THIS.PROCESS XCL:SAVE-PROFILE) PSCFONT.WRITEFONT (OPENSTREAM FIND-READTABLE +\BOUT ELT PLUS) CL:MACROEXPAND-1 (CL:MACRO-FUNCTION CL:FUNCALL CL:VALUES) DO.DELETE.LINES (+ - +DSPYPOSITION TIMES) DSPLEFTMARGIN (IMAGEOP SPREADAPPLY* \OUTSTREAMARG \GETSTREAM) COMPILER::META-EVAL-SETQ + (COMPILER::MEVAL COMPILER::META-EVALUATE COMPILER::SETQ-VALUE REPLACEFIELD COMPILER::ANALYZE-TREE +COMPILER::NODE-META-P) MKPROGN (CONS) UNIQLIST (HEADPTY CONS HEADPT XYPT.Y REVERSE) +PFI.HANDLE.PUTPROPS (PFI.PRETTYPRINT) \UFSGenerateFiles (WITH.MONITOR CL:MULTIPLE-VALUE-PROG1 +.UNWIND.PROTECT. FUNCTION \UFSGetMonitor) \INIT.ETHER.BUFFER.POOL (IDIFFERENCE CEIL LOGAND IPLUS +CONSTANT SUB1 ITIMES LOGXOR EMPOINTER \VAG2 IMIN IQUOTIENT SELECTC \LOLOC \ADDBASE PLUS) RECFIELDLOOK +(MAPCONC RECFIELDLOOK MAPCAR RECLOOK LIST RECORD.FIELDNAMES RECORDECL RECORD.NAME) APPENDBYTE.IP ( +\BOUT) \UFSSetFileInfo (WITH.MONITOR CL:MULTIPLE-VALUE-PROG1 .UNWIND.PROTECT. FUNCTION \UFSGetMonitor +\UFS.FULLNAME \UFS.RECOGNIZE.FILE CREATECELL SELECTQ \UFSSetFileType IDATE \UFSSetFileInfo-C \UFSError + ERROR) \UFSOpenFile (WITH.MONITOR CL:MULTIPLE-VALUE-PROG1 .UNWIND.PROTECT. FUNCTION \UFSGetMonitor +SELECTQ CREATECELL SUBSTRING ADD1 STRPOS \UFS.RECOGNIZE.FILE \UFS.OPENP LOGAND CONSTANT LOGOR +\UFS.FULLNAME \UFS.ADD.HOST.FIELD \UFSOpenFile-C \UFSError IPLUS FOLDLO LRSH IMOD \UFSeol FASSOC IDATE +) \10MB.TURNONETHER (LOCF \ADDBASE) PRETTYDEFCOMS (GETTOPVAL PRETTYCOM) \DSPFONT.HDCPYDISPLAY ( +FONTCREATE STREAMPROP \DSPFONT.DISPLAY FONTPROP \GETCHARSETINFO \GETBASEPTR UNFOLD LLSH \CREATECHARSET + IMINUS FIXR QUOTIENT CONSTANT \CREATECSINFOELEMENT \ALLOCBLOCK FOLDHI LRSH IPLUS FQUOTIENT \PUTBASE +FTIMES \FGETWIDTH \GETBASE PLUS) DSPLINEFEED (IMAGEOP SPREADAPPLY* \OUTSTREAMARG \GETSTREAM) PRINTDATE + (DATE ROOTFILENAME FILEPKG.MERGECHANGES CONS FULLNAME LAST) \LFDeleteFile (WITH.MONITOR +CL:MULTIPLE-VALUE-PROG1 .UNWIND.PROTECT. FUNCTION \LFGetStreamForFile SPREADAPPLY* \LFGetDirectory +\PFSaveBuffers) TEDIT.BUILD.PCTB (CHARLOOKS.FROM.FONT \CREATEPIECEORSTREAM TEXTPROP OPENSTREAM +\TEDIT.FORMATTEDP1 \MAKEPCTB \TEDIT.UNIQUIFY.CHARLOOKS \TEDIT.UNIQUIFY.PARALOOKS IDIFFERENCE GETEOFPTR + APPLY* \TEDIT.CONVERT.FOREIGN.FORMAT \GETBASEPTR \FIRSTNODE TEDIT.BUILD.PCTB0 TEDIT.BUILD.PCTB1 +TEDIT.BUILD.PCTB2 \DWIN \SMALLPIN SUB1 LLSH TEDIT.GET.PAGEFRAMES PLUS \TEDIT.GET.CHARLOOKS.LIST ARRAY +FLENGTH \TEDIT.GET.PARALOOKS.LIST \TEDIT.GET.PARALOOKS \BIN \TEDIT.GET.SINGLE.CHARLOOKS IPLUS +GETFILEPTR) TRYNEXT (TRYNEXT1 EVAL) \UFSGetFileName (\UFS.FULLNAME \UFS.RECOGNIZE.FILE) \UFSWritePages + (IPLUS ITIMES CREATECELL \UFSWritePages-C \UFSError PLUS) PRINTDATE1 (FULLNAME CHANGEFONT CONS ADD1 +GETFILEPTR PRINTDEF POSITION PRIN2 PRIN1) CH.ADD.GROUP.PROPERTY (MAPCAR CH.CANONICAL.NAME COURIER.CALL + CH.FINDSERVER PARSE.NSNAME FIXP CH.PROPERTY FUNCTION CH.GETAUTHENTICATOR) CH.ISMEMBER ( +COURIER.EXPEDITED.CALL CH.FINDSERVER PARSE.NSNAME FIXP CH.PROPERTY CH.GETAUTHENTICATOR) DSPOPERATION ( +IMAGEOP SPREADAPPLY* \OUTSTREAMARG \GETSTREAM) PRETTYDEF0 (DELFILE CLOSEF) \10MB.LOADINPUTQ (PLUS) +\TEDIT.INTEGER.IMAGEBOX (FIXR) FILEPKG.MERGECHANGES (APPEND LIST ASSOC NCONC1) SNAPW (GETSCREENREGION +CREATEW GROW/REGION) \UFSTruncateFile (FIXP + UNFOLD LLSH CREATECELL \GETFILEPTR SPREADAPPLY* - PLUS +\UFSGetSize-C \UFSError) HARDCOPYSTREAMTYPE (\OUTSTREAMARG \GETSTREAM STREAMPROP) DSPRIGHTMARGIN ( +IMAGEOP SPREADAPPLY* \OUTSTREAMARG \GETSTREAM) D-ASSEM::FIXUP-NTENTRY (\LOLOC \HILOC LOGOR +\GETBASEBYTE LOGAND LRSH + \PUTBASEBYTE CL:1+) SCALE-EXPONENT (SCALE-EXPT-AUX CONSTANT CL:LOG) +OPT.JUMPTHRU (OPT.LBDEL SELECTQ FASSOC CONS OPT.LABELNTHPR OPT.JUMPCOPYTEST PLUS OPT.SKIPPUSH +OPT.COMPILERERROR OPT.DEFREFS) \UFSDeleteFile (WITH.MONITOR CL:MULTIPLE-VALUE-PROG1 .UNWIND.PROTECT. +FUNCTION \UFSGetMonitor \UFS.RECOGNIZE.FILE CREATECELL \UFS.REMOVE.HOST.FIELD \UFS.FULLNAME \UFSError) + SEDIT:REPLACE-SELECTION (CL:MAPCAR CL:FUNCTION SEDIT::PARSE-NEW CL:COPY-LIST SEDIT::SELECT-PSEUDO-SEGMENT + SEDIT::COMPOSE-PSEUDO-SELECTION) U-CASECODE (CL:CHAR-INT CL:CHAR-UPCASE CL:INT-CHAR) DSPTOPMARGIN ( +IMAGEOP SPREADAPPLY* \OUTSTREAMARG \GETSTREAM) SPECVARP (GETRELQ GETTABLE FASSOC FMEMB GETP) +COMPILER::META-EVAL-RETURN (COMPILER::MEVAL COMPILER::META-EVALUATE COMPILER::RETURN-VALUE +COMPILER::BLOCK-CONTEXT COMPILER::RETURN-BLOCK REPLACEFIELD COMPILER::ANALYZE-TREE COMPILER::NODE-META-P +) D-ASSEM::TYPE-NAME-FROM-SIZE (PACK*) \FM.INITCORNERSFN (WINDOWPROP LIST IPLUS WIDTHIFWINDOW +HEIGHTIFWINDOW) \LFRenameFile (\GENERIC.RENAMEFILE SPREADAPPLY* \RECOGNIZE-HACK FDEVOP +\LFFindDirectory \LFParseFileName \LFFileSpec CL:MULTIPLE-VALUE-PROG1 .UNWIND.PROTECT. FUNCTION +\LFGetStreamForFile \LFFindDirHole \LFFullFileName \LFFileName \LFUnpackName DAYTIME +\LFWriteLeaderPage) \FM.GETREGIONS (\FM.ITEMWIDTH LISTGET BITMAPWIDTH STRINGWIDTH \FM.ITEMHEIGHT +BITMAPHEIGHT FONTPROP BITMAPP STRINGP IMAX ITIMES IPLUS LIST CREATEREGION IMIN) \UFSCloseFile ( +CREATECELL LOGAND CONSTANT LOGOR SPREADAPPLY* \UFSError) SEDIT::REPLACE-ROOT (FREPLACEFIELD CONS LIST +SEDIT::SUBNODE FFETCHFIELD SEDIT::CREATE-NULL-LIST SEDIT::CREATE-WEAK-LINK ADD1) TRACKW (\INSUREWINDOW + RESETFORM CURSOR TOTOPW LOGAND IDIFFERENCE ZEROP IPLUS) DSPSCALE (IMAGEOP SPREADAPPLY* \OUTSTREAMARG +\GETSTREAM) \UFSGetFileInfo (WITH.MONITOR CL:MULTIPLE-VALUE-PROG1 .UNWIND.PROTECT. FUNCTION +\UFSGetMonitor \UFS.FULLNAME \UFS.RECOGNIZE.FILE CREATECELL SELECTQ \UFSError FOLDHI LRSH IPLUS +\UFSGetFileType GDATE ALLOCSTRING \UFSGetFileInfo-C CL:SUBSEQ \UFS.CREATE.PROPS ASSOC) TTYINENTRYFN ( +LOGAND WINDOWPROP FUNCTION GIVE.TTY.PROCESS) GETSYNTAX (\GETCHARCODE \GETTERMSYNTAX \GETREADSYNTAX +\GTREADTABLE \READCLASSTOCODE FUNCTION \TERMCLASSTOCODE \GTTERMTABLE) PSCFONTFROMCACHE.SPELLFILE ( +ASSOC L-CASE FILENAMEFIELD \FONTFILENAME FASSOC) /SETA (LIST ELT SETA) D-ASSEM::CREATE-HUNK ( +D-ASSEM::EMIT-BYTE-LIST) \GTREADTABLE1 (GETHASH LISPERROR) MAKEACCESS1 (MAKEACCESS1 LIST RECORDBINDVAL + SELECTQ RECORDERROR CONSFN CONS PACK* PACK APPEND MKACCESSFN RECEVAL MKPROGN KWOTE SHOULDNT) +\TEDIT.CARETLOOKS.VERIFY (TEXTPROP APPLY* \TEDIT.UNIQUIFY.CHARLOOKS) \UFSeol (SELECTQ \UFSGetFileType +\UFS.PARSE.BODY \UFSParseNameString PRIN1) \GTTERMTABLE (LISPERROR) EMPRESS (SEND.FILE.TO.PRINTER +NCONC LIST) DSPSPACEFACTOR (GREATERP IMAGEOP SPREADAPPLY* \OUTSTREAMARG \GETSTREAM) \UFSRenameFile ( +\GENERIC.RENAMEFILE \UFS.RECOGNIZE.FILE CREATECELL \UFS.REMOVE.HOST.FIELD \UFS.FULLNAME IPLUS CONCAT) +\DOFORMATTING.HARDCOPY (PLUS FFETCHFIELD IPLUS LRSH ADD1 SUB1 \EDITELT GETBASEPTR \GETBASEPTR +\ADDBASE2 \ADDBASE \RPLPTR IQUOTIENT FIXR FTIMES FPLUS FQUOTIENT) \TERMCLASSTOCODE (SELECTQ) +TTDELETEWORD (BEEP PREVWORD PREVLINE MOVE.TO.WHEREVER BACKWARD.DELETE.TO) \UFSError (IPLUS +\UFS.FULLNAME) UNECCSPEC (GLOBALVARP FMEMB GETRELQ GETTABLE FASSOC DOERROR) \FM.FILLWINDOW ( +DSPCLIPPINGREGION RESETLST RESETSAVE LIST CREATEREGION IDIFFERENCE IPLUS DSPFILL) \READCLASSTOCODE ( +\COMPUTED.FORM SELECTQ LOGOR) \LFTruncateFile (FIXP \GETFILEPTR SPREADAPPLY* PLUS TIMES IQUOTIENT +DIFFERENCE ITIMES) \FM.CREATEITEM (PLUS LISTGET APPLY* \FM.GETREGIONS \FM.GETBITMAPS LIST FUNCTION +PACK*) DSPXPOSITION (IMAGEOP SPREADAPPLY* \OUTSTREAMARG \GETSTREAM) PSCFONTFROMCACHE.COERCEFILE ( +PSCFONTFROMCACHE.SPELLFILE LIST) \GETREADSYNTAX (\SYNCODE GETHASH \GETBASEBYTE \COMPUTED.FORM SELECTQ +\GETREADMACRODEF LIST* CL:APPEND LIST) OPT.JUMPOPT (MAPC) SEDIT::CHARCODE (SMALLP CL:FUNCALL FUNCTION) + \UFS.ADD.HOST.FIELD (CONCAT) \PFRoomForFile (LEQ DIFFERENCE \PFFreeDiskPages IDIFFERENCE IQUOTIENT +ITIMES) SEDIT:GET-SELECTION (CL:VALUES SEDIT::STRUCTURE-FROM-SELECTION MKSTRING SEDIT::DETRANSLATE-CHARS + SUBSTRING) D-ASSEM::COPY-LAP-FN (D-ASSEM::COPY-LAP-CODE LIST) \GETTERMSYNTAX (\TERMCODETOCLASS +\SYNCODE GETHASH \GETBASEBYTE) PRETTYVAR1 (LINELENGTH TYPENAME SPACES TERPRI CONS APPEND POSITION +FUNCTION) DSPYPOSITION (IMAGEOP SPREADAPPLY* \OUTSTREAMARG \GETSTREAM) \UFSReadPages (PLUS CREATECELL +\UFSReadPages-C \UFSError -) MAKEDEFLIST (SOME GETPROPLIST LIST MEMB) OPT.XVARSCAN1 (OPT.CODEFRAME) +\DEVICEFILE.EOSERROR (SELECTQ LISPERROR \GETMAPBUFFER \UFSReadPages-C SHOULDNT) %%SORT-SUBLIST ( +%%MERGE-SUBLISTS %%SIMPLE-MERGE-SUBLISTS) SEDIT::REPLACE-NODE (FREPLACEFIELDVAL REPLACEFIELDVAL +FETCHFIELD SEDIT::SMASH-USING) GETDEFCOM (MAPCONC GETDEFCOM0) DWIMIFY1? (DWMFY1) FIX-FORM ( +TTYDISPLAYSTREAM COUNTDOWN LENGTH EXEC-READ-LINE) PRINTDEF1 (GETFILEPTR LIST CONS TERPRI) \UFS.OPENP ( +FUNCTION) PRETTYVAR (GETTOPVAL TERPRI) COMPILER::FRAME-ANNOTATE-LAMBDA (COMPILER::LAMBDA-NEW-FRAME-P +COMPILER::LAMBDA-KEYWORD COMPILER::LAMBDA-REST COMPILER::LAMBDA-OPTIONAL COMPILER::LAMBDA-ARG-TYPE +NCONC MAPCONC COMPILER::FRAME-ANNOTATE CL:SECOND CL:THIRD COMPILER::LAMBDA-BODY COMPILER::CLOSE-OVER +CL:NUNION) D-ASSEM::EMIT-BYTE-LIST (MAPC D-ASSEM::EMIT-BYTE) DSPROTATE (IMAGEOP SPREADAPPLY* +\OUTSTREAMARG \GETSTREAM) CHAT.SETDISPLAYTYPE (STREAMPROP CL:FUNCALL) \FM.RESETCLIPPINGREGION ( +DSPCLIPPINGREGION CREATEREGION IDIFFERENCE IPLUS WINDOWPROP DSPXOFFSET DSPYOFFSET) BLOCK%: (NCONC1) +\LFGetFileInfo (WITH.MONITOR CL:MULTIPLE-VALUE-PROG1 .UNWIND.PROTECT. FUNCTION \LFGetStreamForFile +SELECTQ IPLUS ITIMES FOLDHI LRSH GDATE) \FM.CHECKPROPS (LISTGET ERROR CONCAT MAPC) D-ASSEM::FETCH-HUNK + (CL:REVERSE) XCL::WALK-MACROLET (CL:LABELS) MKACCESSFN (SELECTQ CONSFN CLISPLOOKUP0 LIST LISTGET CONS + MKACCESSFN COPY CSUBST) D-ASSEM::COPY-LAP-CODE (LIST) DSPPUSHSTATE (IMAGEOP SPREADAPPLY* +\OUTSTREAMARG \GETSTREAM) POSSIBILITIES (LIST CONS STKNTH) \SHOWSEL.HILIGHT (IDIFFERENCE IMIN FIXR +FQUOTIENT) NESTED.SUBMENU (GETMENUPROP FASSOC CONS IMAX) \UFS.FULLNAME (CONCAT MKATOM U-CASE) +\UFS.REMOVE.HOST.FIELD (UNPACKFILENAME.STRING MEMB LISTGET FIXP MKATOM \UFS.HANDLE.RELATIVEDIRECTORY +\UFS.DEFAULT.DIR PACKFILENAME.STRING SUBSTRING NTHCHARCODE CONCAT) /PRINTLEVEL (LIST FUNCTION +PRINTLEVEL) PRETTYCOM1 (EVAL GETTOPVAL RESETVARS .RESETLST. LIST CONS CL:MULTIPLE-VALUE-PROG1 +.UNWIND.PROTECT. FUNCTION SUBSET) \RESHOWBORDER1 (IDIFFERENCE IPLUS ITIMES DSPCLIPPINGREGION +DSPLINEFEED BITMAPCREATE DSPDESTINATION \GETBASE \TOTOPWDS) DSPPOPSTATE (IMAGEOP SPREADAPPLY* +\OUTSTREAMARG \GETSTREAM) WINDOWDELPROP (WINDOWPROP REMOVE) ADDNAKEDCHAR (ADDCHAR SELCHARQ +START.NEW.LINE BEEP AUTOCR? TTMAKECOMPLEXCHAR LIST TTADDTAB LOGOR) ACCEPT-UNIX-SOCKET-STREAM ( +UNIX-CHANNEL FFETCHFIELD SELECTQ CONS) RELDSPYOFFSET (DSPYOFFSET IPLUS) \UFSCloseDevice (WITH.MONITOR +CL:MULTIPLE-VALUE-PROG1 .UNWIND.PROTECT. FUNCTION) D-ASSEM::MAX-ARG (\FINDOP - CL:SECOND CL:FIRST) +\IDLE.EXIT.ABORT (STKPOS ERROR!) FORMAT-ERROR (CL:ERROR LIST CL:1+) DEFAULT.INSPECTW.VALUECOMMANDFN ( +SELECTQ TYPENAME INSPECT/ATOM PRIN1 ZEROP LOGAND CLRPROMPT INSPECT/BITMAP INSPECT/LISTP MENU INSPECT) +COMPILER::FRAME-ANNOTATE-LABELS (NCONC MAPCONC COMPILER::LABELS-FUNS COMPILER::FRAME-ANNOTATE +COMPILER::LABELS-BODY) DSPDEFAULTSTATE (IMAGEOP SPREADAPPLY* \OUTSTREAMARG \GETSTREAM) MENUTITLEFONT ( +DSPFONT FONTP \COERCEFONTDESC) SEDIT::RELINEARIZE-WHERE-NECESSARY (REVERSE DREVERSE RPLACD) +D-ASSEM::END-BYTES (CL:NREVERSE) \FM.CHECKDESCRIPTION (LISTGET ERROR CONCAT IPLUS SELECTQ) +TEDIT.PAGEFORMAT (TEXTOBJ LIST) SEDIT::RECOMPUTE-WIDTH (IPLUS IMAX IDIFFERENCE) OPT.XVARSCAN (OASSOC +FASSOC OPT.CODELEV) XYSECTLSEG (IPLUS XYSECT XYPT.Y) PFI.PRINT.LAMBDA (PFI.ESTIMATE.SIZE1 TERPRI) +COMPILER::META-EVAL-PROGV (COMPILER::MEVAL COMPILER::META-EVALUATE COMPILER::PROGV-SYMS-EXPR +REPLACEFIELD COMPILER::PROGV-VALS-EXPR COMPILER::PROGV-STMT COMPILER::ANALYZE-TREE COMPILER::NODE-META-P +) PRINTARRAY-TO-LIST (ARRAYSIZE ARRAYTYP ARRAYORIG HELP NUMBERP CONS ELT SUB1 IPLUS ADD1 ELTD REVERSE) + PSCFONT.COERCEFILE (PSCFONT.SPELLFILE LIST) UNMAKEHARDCOPYSTREAM (DISPLAYSTREAMP WINDOWPROP +\ILLEGAL.ARG FMEMB IMAGESTREAMTYPE FUNCTION) READARRAY-FROM-LIST (ARRAY SUB1 IPLUS ADD1 SHOULDNT) +RESHOWBORDER (\RESHOWBORDER1) D-ASSEM::CHOOSE-OP (D-ASSEM::MAX-ARG) DSPSCALE2 (IMAGEOP SPREADAPPLY* +\OUTSTREAMARG \GETSTREAM) CREATE-UNIX-SOCKET-STREAM (UNIX-CHANNEL FFETCHFIELD CONS) SEDIT:ADD-COMMAND +(NCONC LIST) RELDSPXOFFSET (DSPXOFFSET IPLUS) COMPILER::GENCODE-CALL (COMPILER::CALL-FN COMPILER::CALL-ARGS + CL:LENGTH COMPILER::VAR-REF-VARIABLE COMPILER::VARIABLE-KIND COMPILER::VARIABLE-NAME +COMPILER::LAMBDA-REQUIRED COMPILER::LAMBDA-OPTIONAL COMPILER::GENCODE CL:REVERSE COMPILER::LITERAL-VALUE + CL:FIRST COMPILER::LAMBDA-NO-SPREAD-NAME CL:SECOND CL:MAPCAR CL:FUNCTION COMPILER::LAMBDA-CLOSED-OVER-VARS + NCONC COMPILER::COLLECT-CODE COMPILER::VARIABLE-SCOPE CL:THIRD) SETSYNTAX (FIXP \GETCHARCODE +\GTTERMTABLE \GTREADTABLE GETSYNTAX \GETREADSYNTAX \GETTERMSYNTAX) D-ASSEM::REF-VAR (CL:FIRST CL:ERROR +) \INSPECT.DATATYPE.RAW.FETCH (FETCHFIELD NTH) \FM.UNSCROLLWINDOW (IPLUS WINDOWPROP +\FM.RESETCLIPPINGREGION) \SETTERMSYNTAX (\SETSYNCODE \PUTBASEBYTE \SETFATSYNCODE \SYNCODE GETHASH +\GETBASEBYTE \TERMCLASSTOCODE LISPERROR) SEDIT::ATOM-CHAR-ESCAPED (\SYNCODE GETHASH \GETBASEBYTE) +MB.BUTTONEVENTINFN (IMAGEOBJPROP) \UFS.DIRECTORY.NAME (WITH.MONITOR CL:MULTIPLE-VALUE-PROG1 +.UNWIND.PROTECT. FUNCTION \UFSGetMonitor CL:FUNCALL \UFS.DIRECTORY.RECOGNIZER CREATECELL) +D-ASSEM::DCODE-FROM-DLAMBDA (D-ASSEM::MAKE-DCODE D-ASSEM::DLAMBDA-NAME D-ASSEM::START-BYTES +D-ASSEM::EASY-ENTRY-P CL:FIND D-ASSEM::DLAMBDA-BODY D-ASSEM::END-BYTES) /MOVD (COPY VIRGINFN GETD) +\SETREADSYNTAX (\SYNCODE GETHASH \GETBASEBYTE \READCLASSTOCODE \SETSYNCODE \PUTBASEBYTE \SETFATSYNCODE +) MAKEACCESS (SELECTQ SHOULDNT MAKEACCESS1 MAKEACCESS) DSPTRANSLATE (IMAGEOP SPREADAPPLY* +\OUTSTREAMARG \GETSTREAM) \LFGetFileName (WITH.MONITOR CL:MULTIPLE-VALUE-PROG1 .UNWIND.PROTECT. +FUNCTION \LFFileSpec \LFFullFileName) SYNTAXP (\SYNCODE GETHASH \GETBASEBYTE \GTREADTABLE +\READCLASSTOCODE \TERMCLASSTOCODE \GTTERMTABLE \ILLEGAL.ARG) COMPILER::META-EVAL-PROGN (MAP +COMPILER::PROGN-STMTS COMPILER::MEVAL COMPILER::META-EVALUATE RPLACA COMPILER::ANALYZE-TREE +COMPILER::REMOVE-NESTED-PROGNS COMPILER::EXPAND-NESTED-PROGNS REPLACEFIELD LIST COMPILER::NODE-META-P) + XCL::*BREAK-HASH-TABLE* (CL:MAKE-HASH-TABLE) \TEDIT.GET.INSERT.CHARLOOKS (IMAX IMIN SELECTQ SUB1 +SHOULDNT \CHTOPC \TEDIT.UNIQUIFY.CHARLOOKS CHARLOOKS.FROM.FONT FINDNODE-INDEX INDEX \LASTNODE +\TEDIT.CARETLOOKS.VERIFY) \UFSDeleteFile-C (SELECTQ) \COPYSYNTAX (ADD1 REHASH \CREATENSCHARHASH +HASHARRAY) CHECK.MARGIN (TTNLEFT) DSPNEWPAGE (\OUTSTREAMARG \GETSTREAM STREAMPROP SPREADAPPLY* APPLY*) + SHOWDEF (RESETLST OUTPUT OPENP LIST FUNCTION MAKENEWCOM) NECCSPEC (CONS DOERROR LIST) BREAK (MAPCONC +NLAMBDA.ARGS BREAK0 APPLY) \MAPCHARTABLE (\GETBASEBYTE PLUS MAPHASH) SEDIT::BACKSPACE-QUOTE (SEDIT::SUBNODE + CL:FUNCALL SEDIT::QUOTE-WRAPPER SEDIT::CHANGE-QUOTE SEDIT::DELETE-NODES SEDIT::SET-POINT SHOULDNT) +D-ASSEM::DETERMINE-LOCAL-FN-LEXICAL-LEVEL (CL:SECOND CL:ASSOC D-ASSEM::DLAMBDA-NON-LOCAL CL:GETHASH +D-ASSEM::MAXF MAX D-ASSEM::DVAR-LEVEL D-ASSEM::DETERMINE-LOCAL-FN-LEXICAL-LEVEL CONS) +\VAMRecomputeFreePageCount (WITH.MONITOR CL:MULTIPLE-VALUE-PROG1 .UNWIND.PROTECT. FUNCTION ZEROP +\VAMUpdateVAM ADD1 PLUS) PFI.HANDLE.DEFINEQ (PFI.PRINT.LAMBDA TERPRI) DWIMIFY0 (LISTGET1 EVALV +VARSBOUNDINEDITCHAIN LAST DWIMIFY2 FASSOC FMEMB DWIMIFY1 EXPRCHECK) CLISPNOEVAL (FASSOC ARGTYPE EQMEMB + GETPROP) XCL::EXEC-TITLE-FUNCTION (WINDOWPROP CL:FORMAT READTABLEPROP) D-ASSEM::DIGEST-CODE (MAP) +CONTROL (\GTTERMTABLE) COMPILER::META-EVAL-OPCODES (COMPILER::ANALYZE-TREE COMPILER::NODE-META-P) +\UFStoOtherRenameMess (U-CASE FILENAMEFIELD PROMPTPRINT) MSCHECKVARS1 (CONS LIST GETRELQ UNION +GETTABLE FASSOC SELECTQ GETHASH PUTHASH MSCHECKVARS1 SHOULDNT) FINDRECDECL (RECLOOK TYPENAME) +COPYTERMTABLE (\GTTERMTABLE) \NSRANDOM.HANDLE.ERROR (SELECTQ \NSRANDOM.REESTABLISH +\NSRANDOM.PROCEEDABLE.ERROR LIST FULLNAME PRINTOUT PRIN1 COURIER.SIGNAL.ERROR) PPT (GETSTREAM +RESETVARS .RESETLST. LIST CONS CL:MULTIPLE-VALUE-PROG1 .UNWIND.PROTECT. FUNCTION PRETTYPRINT +NLAMBDA.ARGS) \UFSRenameFile-C (SELECTQ) XCL::WALK-LET* (XCL::WALK-LET/LET*) COMPILER::TEST-META-EVAL +(COMPILER::TEST-ALPHA-2 CL:MULTIPLE-VALUE-PROG1 .UNWIND.PROTECT. FUNCTION COMPILER::PRINT-TREE +COMPILER::META-EVALUATE) \TEDIT.WINDOW.SETUP (WINDOWPROP FUNCTION LISTGET LIST +\TEDIT.ORIGINAL.WINDOW.TITLE GETPROMPTWINDOW) DRAWBETWEEN (POSITIONP IMAGEOP SPREADAPPLY* +\OUTSTREAMARG \GETSTREAM) \VFMDeletePageGroup (WITH.MONITOR CL:MULTIPLE-VALUE-PROG1 .UNWIND.PROTECT. +FUNCTION UNINTERRUPTABLY IDIFFERENCE \BLT \VFMGet MESASIZE IMAX IPLUS IMIN SUB1 \GETBASE PLUS) +\QUEUE.INPUT.IOCB (SUB1 EMPOINTER \VAG2 RAID \LOLOC UNFOLD LLSH \D0.CONTROLLERBITS LOGOR) +DELETECONTROL (\GTTERMTABLE SELECTQ \LITCHECK LISPERROR CONCAT) \INVERTITEM (SHADEGRIDBOX) +READ-UNICODE-MAPPING-FILENAMES (FINDFILE PACKFILENAME SASSOC CONCAT LIST) D-ASSEM::DIGEST-FUNCTION ( +D-ASSEM::DLAMBDA-CLOSED-OVER D-ASSEM::DLAMBDA-LOCAL-FUNCTIONS D-ASSEM::INSTALL-VAR LIST +D-ASSEM::DLAMBDA-REQUIRED D-ASSEM::DLAMBDA-OPTIONAL CL:FIRST D-ASSEM::INSTALL-LOCAL CL:SECOND CL:THIRD + D-ASSEM::DLAMBDA-BODY D-ASSEM::DVAR-LEVEL D-ASSEM::DETERMINE-LOCAL-FN-LEXICAL-LEVEL +D-ASSEM::STORE-DIGEST-INFO) D-ASSEM::INSTALL-LOCAL (D-ASSEM::INSTALL-VAR) /MAPCONC (APPLY*) \LITCHECK +(MKSTRING CONCAT \ILLEGAL.ARG) \SHAPEW2 (\INSUREWINDOW REGIONP DSPCLIPPINGREGION BITMAPCREATE \OPENW1 +FUNCTION CREATEREGION) FW-CLOSE-CMD (CONCAT FW-OPENP MENU) D-ASSEM::STORE-DIGEST-INFO (CL:SORT +CL:FUNCTION CL:LIST-LENGTH CL:1- + LIST D-ASSEM::DVAR-NAME D-ASSEM::DCODE-NAME-TABLE D-ASSEM::DVAR-SLOT + PLUS CL:NREVERSE D-ASSEM::DCODE-NLOCALS D-ASSEM::DCODE-NFREEVARS) GLOBALVARP (FMEMB GETPROP) +\STRINGOUT (NCHARS LOGAND LRSH \BOUT ZEROP SUB1 IPLUS ADD1 \GETBASEFAT \GETBASE \GETBASETHIN +\GETBASEBYTE PLUS) D-ASSEM::DVAR-FROM-LAP-VAR (CL:GETHASH D-ASSEM::LAP-VAR-ID CL:ERROR) +SUPERPRINTGETPROP (GETPROP FASSOC) FIELDNAMESIN (MAPCONC APPEND RECORD.FIELDNAMES RECORDECL) +D-ASSEM::INTERN-TAG (CL:GETHASH D-ASSEM::MAKE-DTAG) GETCFILE (OPENSTREAM ASKUSER LIST FULLNAME MAPCAR +READ) COMPILER::FRAME-ANNOTATE-IF (NCONC COMPILER::FRAME-ANNOTATE COMPILER::IF-PRED COMPILER::IF-THEN +COMPILER::IF-ELSE) PRINTFILEPROP (ASSOC) REMOVEITEM (EQUAL SUBSET) D-ASSEM::EASY-ENTRY-P ( +D-ASSEM::DLAMBDA-REST D-ASSEM::DLAMBDA-OPTIONAL CL:SECOND) MAKEHARDCOPYSTREAM (DISPLAYSTREAMP +WINDOWPROP DSPCREATE \ILLEGAL.ARG PRINTERPROP PRINTERTYPE FUNCTION DSPFONT DSPRIGHTMARGIN) DRAWCIRCLE +(\ILLEGAL.ARG IMAGEOP SPREADAPPLY* \OUTSTREAMARG \GETSTREAM INSURE.BRUSH INSURE.DASHING) TYPESOF ( +FASSOC CONS GETPROP INFILECOMS? FILECOMS LDIFFERENCE REMOVE XCL::HASH-FILE-TYPES-OF UNION) +\FM.RESHAPEFN (WINDOWPROP \FM.WINDOWEXTENT FM.REDISPLAYMENU) PRINTARRAY (EVALV ARRAYSIZE ARRAYTYP +ARRAYORIG HELP NUMBERP ELT SUB1 IPLUS ADD1 ELTD) SEDIT::PUNT-SET-POINT (SEDIT::SET-POINT) +\FM.PUSHGROUP (\FM.DTOPGROUPID \FM.DGROUPPROP LISTGET FASSOC SELECTQ \FM.ITEMPROP FFETCHFIELD FRPLACA +PLUS) INSURE.BRUSH (BRUSHP NEWRESOURCE CONS DSPCOLOR DSPSCALE \ILLEGAL.ARG) DELETELINE (BEEP +FORWARD.DELETE.TO PREVLINE) SHAPEW1 (\INSUREWINDOW REGIONP DSPCLIPPINGREGION BITMAPCREATE \OPENW1 +OPENW FUNCTION) COMPILER::META-EVAL-MV-PROG1 (COMPILER::MV-PROG1-STMTS COMPILER::META-EVALUATE CL:FIRST + RPLACA COMPILER::EXPAND-NESTED-PROGNS CL:REST RPLACD) EQP (IEQP FEQP = \EXTENDED.EQP NTYPX SELECTC +EQDEFP) PRINTERROR (IDIFFERENCE LINELENGTH DREVERSE CONS POSITION IPLUS IQUOTIENT PRIN1) +\POSITION.MENU.IMAGE (IDIFFERENCE IMAX IMIN) SEDIT::PROPAGATE-WIDTH-CHANGE (WINDOWPROP IPLUS +IDIFFERENCE SEDIT::PROPAGATE-WIDTH-CHANGE) EXTENDPASTVERTBOUNDARIES (IGREATERP) XCL::EXEC-SHRINKFN ( +WINDOWPROP THIS.PROCESS) D-ASSEM::INTERN-VAR (CL:FIRST CL:GETHASH CL:THIRD D-ASSEM::INSTALL-LOCAL +CL:ERROR) \UFS.HANDLE.RELATIVEDIRECTORY (NTHCHARCODE NTHCHAR CONCAT \UFS.DEFAULT.DIR) XCL::WALK-LET ( +XCL::WALK-LET/LET*) PFI.HANDLE.EVAL-WHEN (+ PFI.ESTIMATE.SIZE TERPRI) \LFReadPages (ADD1 PLUS +\PFFindPageAddr DIFFERENCE) D-ASSEM::GENERATE-EASY-ENTRY (CL:APPEND D-ASSEM::DLAMBDA-REQUIRED CL:MAPCAR + CL:FUNCTION D-ASSEM::DLAMBDA-OPTIONAL PLUS D-ASSEM::DLAMBDA-ARG-TYPE D-ASSEM::DCODE-ARG-TYPE +D-ASSEM::DCODE-NUM-ARGS + CL:LENGTH) \TEDIT.MENU.INIT (LIST FUNCTION FONTCREATE APPEND) UTOXCODE ( +UNICODE.TRANSLATE CL:SVREF LRSH FASSOC LOGAND UNICODE.UNMAPPED) XCL::SETUP-EXEC-WINDOW (WINDOWADDPROP) + D-ASSEM::GENERATE-HARD-ENTRY (CL:LENGTH D-ASSEM::DLAMBDA-REQUIRED D-ASSEM::DLAMBDA-OPTIONAL PLUS +D-ASSEM::DCODE-ARG-TYPE D-ASSEM::DCODE-NUM-ARGS) GETDELETECONTROL (\GTTERMTABLE SELECTQ LISPERROR +CONCAT) DRAWARC (IMAGEOP SPREADAPPLY* \OUTSTREAMARG \GETSTREAM INSURE.BRUSH INSURE.DASHING) +CHAT.SET.EMULATOR (WINDOWPROP CONCAT SUBSTRING STRPOS ADD.PROCESS CHAT.SETDISPLAYTYPE) +\FM.REDISPLAYMENU (WINDOWPROP LISTGET BLTSHADE IPLUS IDIFFERENCE MAPC \FM.DISPLAYBITMAP \FM.ITEMPROP +FFETCHFIELD BITBLT) ECHOCHAR (MAPC ECHOCHAR \GTTERMTABLE SELECTC \SYNCODE GETHASH \GETBASEBYTE +\PUTBASEBYTE \SETFATSYNCODE SELECTQ \ILLEGAL.ARG) \LFSetFileInfo (WITH.MONITOR CL:MULTIPLE-VALUE-PROG1 + .UNWIND.PROTECT. FUNCTION \LFGetStreamForFile IDATE \ILLEGAL.ARG) LISPXUSE1 (COPY SASSOC LSUBST +LISPXSUBST NCONC) D-ASSEM::GATHER-ROOTS (D-ASSEM::GATHER-TAGS CL:REMOVE-IF) READARRAY (ARRAY READC +SUB1 IPLUS READ ADD1 SHOULDNT) \IDLE.PROMPT.WATCHER (TIMES IMAX - \DAYTIME0) ACCESSDEF4 (ASSOC +RECORD.FIELDINFO RECORD.TYPECHECK CONS RECORD.NAME LIST JOINDEF RECFIELDLOOK RECORD.SUBDECS ALLPATHS +RECLOOK1 TOPPATHS MAPCONC RECORDECL SHOULDNT) PFI.PRINT.LAMBDA.BODY (PRIN1) D-ASSEM::GENERATE-OPT-AND-REST + (D-ASSEM::MAKE-DTAG) INSPECTABLEFIELDNAMES (RECORDFIELDNAMES LIST REMOVEDUPS) FINDSYSRECDECL ( +TYPENAME SYSRECLOOK1) SEDIT::DECOMPOSE-PSEUDO-SELECTION (CL:VALUES CL:FIRST CL:SECOND CL:THIRD) +\COURIER.EXPEDITED.OVERFLOW (PRIN1 RETFROM) \TEDIT.FIXSELS (LIST) NSOCKETEVENT (\DTEST) +\UFSGetFileType (UNPACKFILENAME.STRING MKATOM U-CASE NCHARS CL:ASSOC) \HDCPYDSPPRINTCHAR (\CARET.DOWN +SELECTC \SYNCODE GETHASH \GETBASEBYTE PLUS FFETCHFIELD IPLUS LOGAND LOGOR SELCHARQ FREPLACEFIELD +SELECTQ MACHINETYPE PLAYTUNE FLASHWINDOW WFROMDS CHARWIDTH UNFOLD LLSH \DISPLAYSTREAMINCRXPOSITION +IDIFFERENCE MOD IMOD IQUOTIENT SHOULDNT) MARGINBAR (DSPOPERATION MSCALE FONTCREATE MKSTRING ABS IPLUS +IDIFFERENCE DSPCLIPPINGREGION STRINGWIDTH MB.MARGINBAR.SHOWTAB) OPT.SETUPOPT (FASSOC CONS LIST) +SUBDECLARATIONS (MAPCAR RECORD.SUBDECS RECLOOK APPEND) D-ASSEM::STACK-ANALYZE-CODE (CL:FLET CL:MACROLET + CL:ASSOC) COMPILE.FILECHECK (OPENFILE) XCL::GET-PROCESS-PROFILE (THIS.PROCESS PROCESSPROP) +\FM.JUSTIFYGROUPS (\FM.DTOPGROUPID \FM.DGROUPPROP LISTGET FASSOC - MAPC \FM.JUSTIFYGROUPS) +SEDIT::SHIFT-STRING (\ADDBASE SUB1 \GETBASE ADD1 PLUS) SI::FINISH-UNBREAKING (CL:DELETE) DELFROMCOM ( +APPLY* SELECTQ DELFROMCOMS CL:THIRD CL:FOURTH ASSOC GETTOPVAL REMOVEITEM MAPC INFILECOMTAIL REMOVE +DELFROMCOM1 PRETTYCOM1 MKLIST GETPROP) D-ASSEM::GENERATE-KEY (+ MAP D-ASSEM::DLAMBDA-KEY) D-ASSEM::ASSEMBLE + (D-ASSEM::ASSEMBLE-CODE) ECHOCONTROL (\GETCHARCODE ILEQ ILESSP IDIFFERENCE ECHOCHAR) MOVE.BACK.TO ( +IDIFFERENCE SEGMENT.BIT.LENGTH) DRAWCURVE (INSURE.BRUSH SPREADAPPLY* \OUTSTREAMARG \GETSTREAM +INSURE.DASHING FREERESOURCE CONS) \FM.OPENFN (ERROR \FM.REDISPLAYMENU) ECHOMODE (\GTTERMTABLE) +\LFWritePages (ADD1 \PFFindPageAddr PLUS) \FM.JUSTIFYITEMS (LISTGET FASSOC FETCHFIELD \FM.DGROUPPROP +RPLACA SELECTQ IPLUS IQUOTIENT IDIFFERENCE \FM.ITEMPROP) D-ASSEM::STACK-ANALYZE (LIST CONS +D-ASSEM::GATHER-ROOTS CL:FIRST) NOSUCHATOM (TERPRI ERROR) SEDIT::PARSE--UNKNOWN ( +SEDIT::BUILD-PRELINEARIZED-NODE) OPT.SCANOPT (APPLY* FASSOC OPT.CALLP OPT.PRATTACH CONSTANT ADD1 SUB1 +MEMB OPT.JUMPCOPYTEST OPT.DELCOPYFN OPT.SKIPPUSH) GETECHOMODE (\GTTERMTABLE) PFI.HANDLE.DEFDEFINER ( +CONS ASSOC CL:INTERN CL:FIND-PACKAGE PFI.PRETTYPRINT) FW-CHANGE-POSITION (FILEWATCHPROP WINDOWREGION +UNIONREGIONS GETBOXPOSITION IPLUS IDIFFERENCE TERPRI PRIN1 GETPOSITION) \UFSSetFileType (MKATOM U-CASE + LISTGET \UFSParseNameString) %%SORT-VECTOR (VECTOR-LENGTH) GETCONTROL (\GTTERMTABLE) PUTMENUPROP ( +LIST) GETCLEARINGHOUSE (WITH.MONITOR CL:MULTIPLE-VALUE-PROG1 .UNWIND.PROTECT. FUNCTION +COURIER.BROADCAST.CALL) ADDTOCOM (LIST APPLY* SELECTQ ADDTOCOM1 ADDTOCOMS CL:THIRD CL:FOURTH UNION +MKLIST /NCONC1 ASSOC GETTOPVAL) /MAPCON (APPLY*) \TEDIT.HARDCOPY.MODIFYLOOKS (DSPSCALE FIXR FTIMES +IDIFFERENCE IPLUS IQUOTIENT FONTPROP MOVETO) GETTERMTABLE (\GTTERMTABLE) RELMOVEW (WINDOWOP +SPREADAPPLY* \INSUREWINDOW) D-ASSEM::GENERATE-ARG-CHECK (CL:LENGTH D-ASSEM::DLAMBDA-REQUIRED + +D-ASSEM::DLAMBDA-OPTIONAL D-ASSEM::MAKE-DTAG D-ASSEM::EMIT-BYTE-LIST) MSCHECKBLOCKBASIC (LIST APPEND +MEMB DOERROR GETRELQ UNION GETTABLE FASSOC NCONC1 MAPCONC) PRETTYPRINT2 (FASSOC READ CONS) +SEDIT::BUILD-PRELINEARIZED-NODE (SEDIT::CREATE-PRELINEARIZED-NODE) RAISE (\GTTERMTABLE) +EXTENDPASTHORIZBOUNDARIES (IGREATERP) DELFROMCOM1 (GETTOPVAL REMOVEITEM) COMPILER::META-EVAL-LITERAL ( +COMPILER::ANALYZE-TREE COMPILER::NODE-META-P) DRAWELLIPSE (IMAGEOP SPREADAPPLY* \OUTSTREAMARG +\GETSTREAM INSURE.BRUSH INSURE.DASHING) UNIX-STREAM-CLOSE (UNIX-KILL UNIX-CHANNEL FFETCHFIELD REMOVE) +GETRAISE (\GTTERMTABLE) COMPILER::FRAME-ANNOTATE-CATCH (COMPILER::FRAME-ANNOTATE COMPILER::CATCH-STMT +COMPILER::BLIPPER-NEW-FRAME-P MAPC COMPILER::BLIPPER-REFERENCES COMPILER::CLOSE-OVER CL:COPY-LIST +CL:NUNION CONS COMPILER::CATCH-TAG) INVERTED/SHADE/FOR/GRAPHER (LOGNOT BITMAPCOPY ERROR) +CLOSE.PROCESS.MENU (WAKE.PROCESS WINDOWPROP) \IDLE.ISMEMBER (USERNAME PARSE.NSNAME CONCAT PRIN1 +GV.ISMEMBERCLOSURE \CHECKNAME CH.ISMEMBER CH.LOOKUP.OBJECT) RESETTERMTABLE (\GTTERMTABLE) \LFOpenFile +(WITH.MONITOR CL:MULTIPLE-VALUE-PROG1 .UNWIND.PROTECT. FUNCTION FASSOC CONS IDATE FIXP \ILLEGAL.ARG +REMOVE \LFGetStreamForFile CL:ERROR) \FM.LAYOUTGRID (MAPC SELECTQ LISTGET APPLY* PLUS +\FM.MAKE-GROUP-ID CONS LIST LISTPUT FLENGTH IPLUS FNTH IDIFFERENCE FRPLACA CREATEREGION \FM.FORMAT +\FM.DTOPGROUPID COPY \FM.DTOPGROUPPROP \FM.CREATEITEM \FM.ITEMPROP FFETCHFIELD ADD1 ITIMES +\FM.MAKEGROUP) PRETTYDEFMACROS (MAPCAR FILEPKGCOM) \UFS.REGISTER.GFS (UNINTERRUPTABLY PUTHASH) +SEDIT::PARSE--GAP (SEDIT::LINEAR-ITEM-WIDTH CONS SEDIT::CREATE-WEAK-LINK) ACCESSDEF (RECORDWORD +RECFIELDLOOK CHECKDEFS MAPCONC ACCESSDEF4 LIST RECORDECL RECORDCHAIN GETP FMEMB UNPACK PACK CONS LDIFF + NCONC1 SHOULDNT FIXSPELL NCONC FIELDNAMESIN) SEDIT::PARSE-NEW (SEDIT::PARSE) SENDXIP (\DTEST LOCF +\ADDBASE PRIN1 \ROUTE.XIP) COMPILER::META-SUBST-UNWIND-PROTECT (COMPILER::MSUBST COMPILER::META-SUBST +COMPILER::UNWIND-PROTECT-STMT REPLACEFIELD) COMPILER::META-EVAL-MV-CALL (COMPILER::MEVAL +COMPILER::META-EVALUATE COMPILER::MV-CALL-FN REPLACEFIELD COMPILER::ANALYZE-TREE COMPILER::NODE-META-P +) SETTERMTABLE (\GTTERMTABLE) UNIX-STREAM-OUT (UNIX-WRITE UNIX-CHANNEL FFETCHFIELD \DTEST CL:ERROR) +\CH.PRINT.BLURB (PRIN1 printout) DRAWPOLYGON (IMAGEOP SPREADAPPLY* \OUTSTREAMARG \GETSTREAM +INSURE.BRUSH INSURE.DASHING) TIMEALL (DATATYPES NCONC DATATYPEP CONS TERPRI NUMBERP CL::TIME-CALL +GETSTREAM) \TERMCODETOCLASS (SELECTC) \ONSCREENCLIPPINGREGION (INTERSECTREGIONS DSPCLIPPINGREGION +\DSPUNTRANSFORMREGION WINDOWPROP) \UFS.NEXTFILEFN (\UFS.NEXTFILEFN LOCF \ADDBASE CL:MULTIPLE-VALUE-PROG1 + .UNWIND.PROTECT. FUNCTION \UFSNextFile-C \UFS.FULLNAME.M CONCAT MKATOM U-CASE CL:SUBSEQ PLUS +NTHCHARCODE NCHARS ADD1) INTERSECT/REGIONP/LBWH (SELECTQ IPLUS EQUAL INTERSECTREGIONS LIST) +COMPILER::FRAME-ANNOTATE-BLOCK (COMPILER::FRAME-ANNOTATE COMPILER::BLOCK-STMT CL:DELETE-IF +COMPILER::BLIPPER-NEW-FRAME-P MAPC COMPILER::BLIPPER-REFERENCES COMPILER::CLOSE-OVER CL:COPY-LIST LIST + CL:NUNION) GETXIP (\DTEST \DEQUEUE FREPLACEFIELD PLUS FFETCHFIELD FIXP SETUPTIMER TERPRI) +\ORIGTERMTABLE (\CREATENSCHARHASH HASHARRAY SELECTQ SYSTEMTYPE SHOULDNT \SETTERMSYNTAX CONSTANT CONS +PLUS) IN/SCROLL/BAR? (WINDOWPROP \DECODE.EXTENT.USE EXTENDPASTVERTBOUNDARIES DSPCLIPPINGREGION +EXTENDPASTHORIZBOUNDARIES) OPT.POSTOPT (CONS LIST NCONC1 OPT.OPTCHECK OPT.DREV ADD1) DRAWPOINT ( +IMAGEOP SPREADAPPLY* \OUTSTREAMARG \GETSTREAM BITMAPP INSURE.BRUSH) COMPILER::META-SUBST-VAR-REF ( +COMPILER::VAR-REF-VARIABLE COMPILER::NODE-META-P COMPILER::COPY-CODE COMPILER::NODE-SUBST-P) +D-ASSEM::COMPUTE-JUMP-SIZE (CL:ASSOC) \VAMFreePageGroup (WITH.MONITOR CL:MULTIPLE-VALUE-PROG1 +.UNWIND.PROTECT. FUNCTION UNINTERRUPTABLY \VAMAdjustGroup IDIFFERENCE \PFGetPage \VAMFilePageNumber +GETRESOURCE NEWRESOURCE NCREATE \PFCreateFreePage PLUS FFETCHFIELD IMIN) %%STABLE-SORT-VECTOR ( +VECTOR-LENGTH %%VECTOR-INSERTION-SORT %%SIMPLE-VECTOR-INSERTION-SORT) +SEDIT::PSEUDO-SELECTION-FROM-SELECTION (SEDIT::COMPOSE-PSEUDO-SELECTION) \NS.SETTIME (DAYTIME) +\IDLE.IS.PREVIOUS (USERNAME EMPASSWORDLOC GetBcplString EMPOINTER \VAG2 NCHARS MACHINETYPE SUBSTRING +STRING-EQUAL) XTOUCODE (UNICODE.TRANSLATE CL:SVREF LRSH FASSOC LOGAND UNICODE.UNMAPPED) +CL::EQLHASHBITSFN-UFN (\GETBASEPTR) D-ASSEM::PRETTY-JUMPS (MAPCAR CL:REVERSE) /LISTPUT1 (/NCONC LIST) +COMPILER::FRAME-ANNOTATE-CALL (NCONC COMPILER::CALL-FN COMPILER::FRAME-ANNOTATE-LAMBDA +COMPILER::FRAME-ANNOTATE MAPCONC COMPILER::CALL-ARGS) D-ASSEM::START-PC-FROM-NT-COUNT-LOCAL (CEIL +LOGAND IPLUS CL:1+ LLSH COMPILER::ENV-TARGET-ARCHITECTURE CONSTANT SUB1 LOGXOR + CL:*) +\10MB.INPUT.INTERRUPT (\10MB.GETPACKETSTATUS \10MB.GETPACKETLENGTH LOCF \ADDBASE SUB1 ITIMES +\ALLOCATE.ETHERPACKET) WAKE.MY.PROCESS (WAKE.PROCESS WINDOWPROP) \IDLE.AUTHENTICATE (MACHINETYPE PRIN1 + NS.AUTHENTICATE NS.MAKE.SIMPLE.CREDENTIALS CONS \ENCRYPT.PWD CONCAT GV.AUTHENTICATE SELECTQ TERPRI) +UNIX-STREAM-EOFP-NEW (\DTEST) XCL::EXEC-CLOSEFN (WINDOWPROP THIS.PROCESS DEL.PROCESS) \UFS.FILEINFOFN +(CL:MULTIPLE-VALUE-PROG1 .UNWIND.PROTECT. FUNCTION \UFSGetFileType SELECTQ + FOLDHI LRSH IPLUS GDATE +CL:SUBSEQ) FILLPOLYGON (IMAGEOP SPREADAPPLY* \OUTSTREAMARG \GETSTREAM DSPOPERATION) XCL::WALK-DO* ( +XCL::WALK-DO/DO*) COMPILER::META-SUBST-THROW (COMPILER::MSUBST COMPILER::META-SUBST COMPILER::THROW-TAG + REPLACEFIELD) SEDIT::SELECT-NODE-SEGMENT (SEDIT::PENDING-DELETE) D-ASSEM::COMPUTE-DEBUGGING-INFO ( +D-ASSEM::DCODE-DEBUGGING-INFO) \PUP.SETTIME (DAYTIME) SI::UNBREAK-FROM-RESTORE-CALLS (CL:FIND-IF +CL:FUNCTION CL:FORMAT) ACCESSFN (DECLARERECORD CONS) SI::PRINT-TRACED-ARGUMENT (SPACES CL:PRIN1 CL:PRINC + CL:TERPRI) ADDNEWCOM (MAKENEWCOM GETTOPVAL SAVESET LIST) INSPECT/ALIST (INSPECTW.CREATE MAPCAR +FUNCTION) D-ASSEM::START-PC-FROM-NT-COUNT (CEIL LOGAND IPLUS CL:1+ UNFOLD LLSH CONSTANT SUB1 LOGXOR + +CL:*) CL::SXHASH-UFN (CL::%%SXHASH \GETBASEPTR) XCL::UNDOHOOK (CL:EVAL) \TEDIT.APPLY.STYLES (ASSOC +FASSOC SASSOC APPLY* \TEDIT.PARSE.CHARLOOKS.LIST APPEND CONS) FORWARD.DELETE.TO (SEGMENT.BIT.LENGTH +IDIFFERENCE) PFI.HANDLE.RPAQQ (ASSOC CONS APPEND INFILECOMS? FRPLACD PFI.PRETTYPRINT) MSCHECKBOUNDFREE + (MAPC SCRATCHASH GETRELQ UNION GETTABLE FASSOC FMEMB PUTHASH MSCHECKVARS1 GETHASH HASHARRAY FUNCTION) + D-ASSEM::CONVERT-TO-BINARY (CL:LENGTH CL:MAKE-ARRAY + CEIL LOGAND IPLUS D-ASSEM::DCODE-NLOCALS +D-ASSEM::DCODE-NFREEVARS CONSTANT SUB1 LOGXOR CL:AREF PLUS D-ASSEM::DCODE-CODE-ARRAY) DRAWTO (IMAGEOP +SPREADAPPLY* \OUTSTREAMARG \GETSTREAM) PRINCOPY (PRINT \UNCOPY LOCAL) ALLFIELDS (NCONC RECORD.SUBDECS +APPEND ALLFIELDS RECORDECL RECLOOK RECORD.FIELDNAMES) COMPILER::META-EVAL-LAMBDA (COMPILER::MEVAL +COMPILER::META-EVALUATE COMPILER::LAMBDA-BODY REPLACEFIELD COMPILER::ANALYZE-TREE COMPILER::NODE-META-P +) RELEASE.XIP (\RELEASE.ETHERPACKET) COMPILER::FRAME-ANNOTATE-GO (CL:PUSHNEW CONS COMPILER::GO-TAGBODY +) COPYREADTABLE (RESETREADTABLE \GTREADTABLE) CONVERT.FILE.TO.TYPE.FOR.PRINTER (CLOSEF OPENFILE +PRINTER.SCRATCH.FILE LISTGET PRINTERPROP PRINTFILEPROP ERROR CONCAT FULLNAME LIST FUNCTION) +\UFS.VALID.PROPP (LIST FMEMB) TEDIT.INSERT.DISPLAYTEXT (HELP) FILLCIRCLE (IMAGEOP SPREADAPPLY* +\OUTSTREAMARG \GETSTREAM) \BLTSHADE.GENERICPRINTER (INTERSECTREGIONS CREATEREGION DSPCLIPPINGREGION +FIXR FQUOTIENT BITMAPCREATE) LATTICE/BREAK/CYCLES (GETNODEFROMID NEW/INSTANCE/OF/GRAPHNODE CONS) +RESETREADTABLE (\GTREADTABLE COPY HASHARRAY HARRAYSIZE) INTERPRET/MARK/FORMAT (FASSOC LISTGET) +\10MB.STARTDRIVER (\INIT.ETHER.BUFFER.POOL TIMES \ALLOCATE.ETHERPACKET ADD.PROCESS LIST KWOTE) +DIRECTORY.PARSE (CONS \GENERATEFILES DIRECTORY.FILL.PATTERN DIRECTORY.MATCH.SETUP DIRCONJ +DIRECTORY.PARSE ERROR) D-ASSEM::SPLICE-IN-JUMPS (MAPC D-ASSEM::DTAG-PC D-ASSEM::DTAG-MIN-PC +D-ASSEM::DJUMP-PTR D-ASSEM::DJUMP-TAG - D-ASSEM::DJUMP-MIN-PC D-ASSEM::DJUMP-KIND D-ASSEM::COMPUTE-JUMP-SIZE + CL:ASSOC) SI::PRINT-TRACE-EXIT-INFO (DECLARE SPACES CL:* CL:PRINC CL:1+ CHANGEFONT CL:PRIN1 CL:TERPRI + MAPC +) /LISTPUT (ERRORX LIST CONS) FIND-READTABLE (GETHASH) PPROMPT3 (PROMPTPRINT) \10MBWATCHER ( +SUBSTRING \MAIKO.INPUT.INTERRUPT PLUS) \TEDIT.FIND.FIRST.LINE (WINDOWPROP \TEDIT.PARABOUNDS SUB1 +\BACKBIN PLUS ADD1 IMIN \FORMATLINE) CREATESCROLLINGW (WINDOWPROP CREATEW FUNCTION) +FW-CHANGE-JUSTIFICATION (FILEWATCHPROP TERPRI MOUSECONFIRM) IN-READTABLE (\GTREADTABLE) COMP.UBFLOAT2 +(COMP.PROGN ADD1 SUB1 COMP.STFN LIST) HARDCOPYGRAPH (LISTGET GETSTREAM OPENIMAGESTREAM APPEND DSPSCALE + DSPCLIPPINGREGION WINDOWPROP GRAPHREGION FIXR TIMES - QUOTIENT CL:CEILING PLUS DIFFERENCE REMAINDER +CREATEREGION SCALE/GRAPH FTIMES MINUS SUB1 DISPLAYNODELINKS PRINTDISPLAYNODE CLOSEF) COMP.UNBOX ( +GETPROP) ESCAPE (\GTREADTABLE) D-ASSEM::RESOLVE-JUMPS (MAPC D-ASSEM::SPLICE-IN-JUMPS +D-ASSEM::START-PC-FROM-NT-COUNT-LOCAL CL:LENGTH D-ASSEM::DCODE-NAME-TABLE D-ASSEM::DTAG-PC) +MSCHECKFNINBLOCK (GETPROP UNION GETRELQ GETTABLE FASSOC DOERROR FMEMB) GETBRK (GETSYNTAX) +COMPILER::META-EVAL-IF (COMPILER::MEVAL COMPILER::META-EVALUATE COMPILER::IF-PRED REPLACEFIELD +COMPILER::IF-THEN COMPILER::IF-ELSE COMPILER::ANALYZE-TREE COMPILER::NODE-META-P) WHATIS (ERROR! +SELECTQ CONS WHATIS U-CASE GETTOPVAL FILECOMS FIXSPELL LIST ASKUSER) GETREADTABLE (\GTREADTABLE) +\LFGenerateFiles (WITH.MONITOR CL:MULTIPLE-VALUE-PROG1 .UNWIND.PROTECT. FUNCTION \LFParseFileName +\NULLFILEGENERATOR \LFFindDirectory SUB1 IPLUS ADD1 \GETBASEFAT \GETBASE \GETBASETHIN \GETBASEBYTE +\LFCASEARRAYFETCH LIST DIRECTORY.MATCH.SETUP CONDCONCAT CONCATLIST PACKFILENAME.STRING U-CASE +\LFFindNextFile CONS NCHARS \LFHighestVersions) \FM.LAYOUTCOLUMN (MAPC SELECTQ LISTGET APPLY* PLUS +\FM.MAKE-GROUP-ID CONS LIST LISTPUT IPLUS CREATEREGION DREVERSE \FM.FORMAT \FM.DTOPGROUPID REVERSE +\FM.DTOPGROUPPROP \FM.CREATEITEM \FM.ITEMPROP FFETCHFIELD FRPLACA ITIMES \FM.MAKEGROUP) +SEDIT::COMPOSE-PSEUDO-SELECTION (LIST CL:FIRST + CL:1- CL:LENGTH) TEDIT.CR.UPDATESCREEN (HELP) SEDIT::PARSE + (LISTGET TYPENAME) GETSEPR (GETSYNTAX) \CREATEW1 (ABS IMIN UNFOLD LLSH WINDOWOP SPREADAPPLY*) +FIND.MATCHING.QUOTE (\SYNCODE GETHASH \GETBASEBYTE FIRSTCHAR) RELDRAWTO (\OUTSTREAMARG \GETSTREAM +IMAGEOP SPREADAPPLY* IPLUS) INVERTED/GRAPHNODE/BORDER (IMINUS LIST INVERTED/SHADE/FOR/GRAPHER) +D-ASSEM::PERFORM-LOCAL-FN-FIXUPS (D-ASSEM::DCODE-LOCAL-FN-FIXUPS) GETMENUPROP (LISTGET) DETACHWINDOW ( +WINDOWPROP) \FZEROP (\DTEST) SHOWSTACKBLOCKS (PLUS \UNCOPY) READMACROS (\GTREADTABLE) SUBFIELDCREATE ( +SUBDECLARATIONS RECORD.NAME RECORDECL0 RECORD.CREATEINFO LIST RECORD.FIELDNAMES ASSOC MAKECREATE0 +MAKEHASHLINKS) \UFS.ABORT.CL-DIRECTORY (\UFS.UNREGISTER.GFS) PURGEHISTORY (RESETVARS .RESETLST. LIST +CONS CL:MULTIPLE-VALUE-PROG1 .UNWIND.PROTECT. FUNCTION ASKUSER REMPROP PURGEHISTORY2 GETPROP) +READTABLEPROP (\ILLEGAL.ARG ARG \GTREADTABLE SELECTQ) CAN.PRINT.DIRECTLY (FMEMB PRINTERPROP) +SI::PRINT-TRACE-ENTRY-INFO (DECLARE SPACES CL:* CL:PRINC CL:1+ CHANGEFONT CL:PRIN1 CL:TERPRI) +GENERATOR (EVAL CONS STKNTH RETTO) \GTREADTABLE (SELECTQ \DTEST \GTREADTABLE1) BITMAPIMAGESIZE ( +IMAGEOP SPREADAPPLY*) MSCHECKBLOCKS (GETP LIST NCONC FILECOMSLST MAPCONC UPDATEFN APPLY CONS APPEND +LDIFF MSCHECKBLOCK) \LFEventFn (WITH.MONITOR CL:MULTIPLE-VALUE-PROG1 .UNWIND.PROTECT. FUNCTION SELECTQ + DSKDISPLAY MACHINETYPE \PAGED.REVALIDATEFILELST \PFGetVols) \FM.LAYOUTROW (MAPC SELECTQ LISTGET +APPLY* PLUS \FM.MAKE-GROUP-ID CONS LIST LISTPUT IPLUS CREATEREGION \FM.FORMAT \FM.DTOPGROUPID COPY +\FM.DTOPGROUPPROP \FM.CREATEITEM \FM.ITEMPROP FFETCHFIELD FRPLACA ITIMES \FM.MAKEGROUP) +XCL::WALK-DECLARATIONS (XCL::RECONS XCL::WALK-DECLARATIONS CL:MACROEXPAND-1 CL:FUNCALL) +COMPILER::META-SUBST-SETQ (COMPILER::MSUBST COMPILER::META-SUBST COMPILER::SETQ-VALUE REPLACEFIELD) +COMP.FLOATUNBOX (COMP.DELFN FLOAT COMP.STFN) \VAMAllocPageGroup (WITH.MONITOR CL:MULTIPLE-VALUE-PROG1 +.UNWIND.PROTECT. FUNCTION UNINTERRUPTABLY IDIFFERENCE PLUS FFETCHFIELD IMINUS IPLUS \PFGetFreePage +GETRESOURCE NEWRESOURCE NCREATE \PFCreatePage \VAMFilePageNumber) INSPECT/TOP/LEVEL/LIST ( +INSPECTW.CREATE LIST PLUS FUNCTION PRIN1) \UFS.ABORT.DIRECTORY (\UFS.UNREGISTER.GFS) +\UFSMakeUnixFormatName (MKSTRING NCHARS ALLOCSTRING CL:CHAR SUB1 PLUS SUBSTRING ADD1) XCL::NOHOOK ( +CL:APPLY) COMP.DECLARETYPE (SELECTQ) \10MB.OUTPUT.INTERRUPT (\10MB.GETPACKETSTATUS) ADJUSTOFFSETS ( +WINDOWPROP) INFILEPAIRS (MAPC LIST) \UFSParseNameString (MKSTRING \UFSMakeUnixFormatName +\UFS.ADJUST.HOST UNPACKFILENAME.STRING) COMPILER::META-EVAL-GO (COMPILER::ANALYZE-TREE COMPILER::NODE-META-P +) XCL::UNDOABLY-FMAKUNBOUND (/PUTD /REMPROP) MSDWIMTRAN (GETHASH) \UFSParse-Directory (LISTGET NTHCHAR + CONCAT NCHARS SELECTQ \UFS.DEFAULT.DIR) MSCHECKBLOCK (UNION EVAL EVALV APPEND SELECTQ DOERROR CONS +FMEMB GETRELQ GETTABLE FASSOC GLOBALVARP TESTRELQ TESTTABLE LIST ZEROP POSITION NCONC DREVERSE +PRINTERROR PRIN1) \LFDirectoryNameP (WITH.MONITOR CL:MULTIPLE-VALUE-PROG1 .UNWIND.PROTECT. FUNCTION +\LFParseFileName \LFFindDirectoryVol PACKFILENAME.STRING U-CASE FIXP LASTCHPOS SUBSTRING) +\FM.FORMATEXPLICIT (CREATEREGION LIST LISTGET \FM.FORMAT \FM.DTOPGROUPID COPY \FM.DTOPGROUPPROP LCONC +\FM.CREATEITEM EXTENDREGION \FM.ITEMPROP FFETCHFIELD DREVERSE CONS \FM.MAKEGROUP) XCL::WALK-DO ( +XCL::WALK-DO/DO*) MAKEHASHLINKS (GETFIELDFORCREATE RECORD.CREATEINFO SELECTQ CONS RECORDBINDVAL LIST +EMBEDPROG MKPROGN DREVERSE) UNIX-BACKFILEPTR-NEW (FREPLACEFIELD PLUS FFETCHFIELD ERROR) +CONDITIONS::%%RESTART-PRINTER (CL:FUNCALL CONDITIONS::RESTART-REPORT CONDITIONS::DEFAULT-RESTART-REPORTER + CL:PRINC) MIN/LEFT (GN/LEFT) /LCONC (LAST CONS /RPLNODE /RPLACD) \TEDIT.HARDCOPY.DISPLAYLINE ( +DSPSCALE \EDITELT GETBASEPTR \GETBASEPTR \ADDBASE2 \ADDBASE IPLUS FIXR FTIMES LISTGET PLUS +DSPXPOSITION DSPYPOSITION CHARWIDTH FONTCOPY IDIFFERENCE IREMAINDER + RSH - ADD1 IMAGEOBJPROP +IMAGESTREAMTYPE) CREATEW1 (ABS GETSCREENREGION COPY IMIN UNFOLD LLSH WINDOWOP SPREADAPPLY*) +BACKWARD.DELETE.TO (FORWARD.DELETE.TO) MIN/BOTTOM (GN/BOTTOM) OPENDISPLAYSTREAM (GETSTREAM CREATEW +LISTGET) COMPILER::META-EVAL-CATCH (COMPILER::MEVAL COMPILER::META-EVALUATE COMPILER::CATCH-TAG +REPLACEFIELD COMPILER::CATCH-STMT COMPILER::ANALYZE-TREE COMPILER::NODE-META-P) FOREST/BREAK/CYCLES ( +GETNODEFROMID NEW/INSTANCE/OF/GRAPHNODE) SCALEDBITBLT (IMAGEOP SPREADAPPLY*) SHOWSTACKBLOCK1 (PRIN1) +\IDLE.OUT (LISTGET TIMES IDLE) EXPAND-DESTRUCTURING-BIND (GENSYM) SETBRK (GETSYNTAX SETSYNTAX MAPC +SELECTQ MEMB) MSPRGDWIM (RESETVARS .RESETLST. LIST CONS CL:MULTIPLE-VALUE-PROG1 .UNWIND.PROTECT. +FUNCTION) INITIALIZE-NEW-SHELL-DEVICE (FUNCTION) \DRAWPOINT.GENERIC (DRAWLINE) \HANDLE.RAW.PACKET ( +RAND \RELEASE.ETHERPACKET) DV (NLAMBDA.ARGS ED ERROR) PRIN2-LONG-STRING (DSPXPOSITION DSPFONT +IMAGESTREAMP CHARWIDTH STRINGWIDTH + TIMES CONCAT ALLOCSTRING SUB1 IPLUS ADD1 \GETBASEFAT \GETBASE +\GETBASETHIN \GETBASEBYTE PLUS PRIN2S PRIN1 DSPYPOSITION NTHCHARCODE \SYNCODE GETHASH MAKEMAPENTRY +\DEDITFONT# - DSPRIGHTMARGIN) \UFS.PARSE.BODY (CONCAT LISTGET NCHARS) \FM.FORMATBYGRID (CREATEREGION +LIST TCONC REVERSE \FM.LAYOUTGRID \FM.DTOPGROUPID \FM.DTOPGROUPPROP LISTGET PLUS DREVERSE +\FM.DGROUPPROP FASSOC FMEMB LAST IDIFFERENCE \FM.ITEMPROP FFETCHFIELD FRPLACA IPLUS CONS \FM.MAKEGROUP +) SEDIT::LINEARIZE-ROOT (SHOULDNT SEDIT::LINEARIZE SEDIT::SUBNODE) INSPECT/PLIST (INSPECTW.CREATE +MAPCAR FUNCTION) SETREADTABLE (\GTREADTABLE) COMP.LOOKFORDECLARE (CONS COMP.DECLARETYPE) +PFI.ESTIMATE.SIZE1 (SOME LISTP PLUS LENGTH PFI.ESTIMATE.SIZE1) DIR (DODIR) DUMPGRAPH (RESETLST +RESETSAVE SETREADTABLE PRIN1 PRIN2 ASSOC CONS PLUS SPACES DREVERSE FONTUNPARSE FONTCLASSUNPARSE +POSITION SELECTQ printout TERPRI) SETSEPR (GETSYNTAX SETSYNTAX MAPC SELECTQ) INIT/NODES/FOR/LAYOUT ( +IMAGEOBJP LATTICE/BREAK/CYCLES GETNODEFROMID FOREST/BREAK/CYCLES MAPC SET/LABEL/SIZE) \USERFNISDON'T ( +FMEMB) \DRAWCIRCLE.GENERIC (FIXR FTIMES CONSTANT FQUOTIENT SQRT LIST CREATEPOSITION IPLUS IDIFFERENCE) + \NSRANDOM.READ.SEGMENT (+ UNFOLD LLSH PLUS LOGAND CONSTANT LOGOR - FILING.CALL COURIER.CREATE LIST +FUNCTION ASSOC DREMOVE) PRINOPEN (MAKEMAPENTRY DSPXPOSITION DSPYPOSITION \DEDITFONT# PRIN3) +PFI.ESTIMATE.SIZE (+ GET PFI.ESTIMATE.SIZE1) SEDIT::NEXT-NODE (SEDIT::SUBNODE) \NSRANDOM.PREPARE.CACHE + (LIST NCREATE PLUS LAST - CL:NTHCDR CONS +) COMPILER::META-EVAL-CALL (COMPILER::MEVAL COMPILER::META-EVALUATE + COMPILER::CALL-FN REPLACEFIELD COMPILER::ANALYZE-TREE COMPILER::META-CALL-LAMBDA COMPILER::SIDE-EFFECTS + COMPILER::VARIABLE-NAME COMPILER::VAR-REF-VARIABLE COMPILER::MAKE-PROGN COMPILER::CALL-ARGS +COMPILER::LITERAL-VALUE LIST COMPILER::MAKE-LITERAL COMPILER::MAKE-EVAL-WHEN-LOAD CL:APPLY COMPILER::MAKE-CALL + GET CL:FUNCALL COMPILER::NODE-META-P) CH.LIST.PROPERTIES (COURIER.EXPEDITED.CALL CH.FINDSERVER +PARSE.NSNAME CH.GETAUTHENTICATOR) CHDIR (WITH.MONITOR CL:MULTIPLE-VALUE-PROG1 .UNWIND.PROTECT. +FUNCTION \ADD.CONNECTED.DIR U-CASE FILENAMEFIELD DIRECTORYNAME ERROR) /ECHOMODE (ECHOMODE LIST) +GETFIELDFORCREATE (RECORD.DEFAULTFIELDS MAKEACCESS ACCESSDEF4 LIST ASSOC SUBFIELDCREATE SELECTQ) +GRAPHOBJ.PUTALIGN (PRIN2 CONS PLUS) PURGEHISTORY1 (RPLACA MAPC RPLNODE CONSTANT CHARACTER +PURGEHISTORY2) INFILECOMSMACRO (PROPNAMES EQMEMB) ExtensionForPrintFileType (ASSOC) LISPXTYPEAHEAD ( +SELECTQ LISPXREAD LISPXUNREAD RETFROM EDITE MAPC REVERSE PRINTHISTORY1 LIST CONS READLINE) PRINSHUT ( +DSPXPOSITION DSPYPOSITION) \UFSGetFileTypeConfirm (BOUNDP MENU RETTO) IMAPLIST (HEADPT NEXTPT XYPT.Y +XYPT.X IDIFFERENCE XYSECTLSEG CONS REVERSE) \UFSGetPrintFileType (UNPACKFILENAME.STRING MKATOM U-CASE +NCHARS CL:ASSOC \UFSGetFileTypeConfirm) READOCT (PRIN1 RSTRING FIXP SELECTQ MKATOM CONCAT GNC IPLUS +ITIMES CHCON1 IDIFFERENCE ERROR SHOULDNT ERROR!) \SETMACROSYNTAX (GETHASH HASHARRAY \SETSYNCODE +\PUTBASEBYTE \SETFATSYNCODE LOGOR) FW-CHANGE-ANCHOR (FILEWATCHPROP TERPRI PRIN1 MENU) +\VFMInsertPageGroup (WITH.MONITOR CL:MULTIPLE-VALUE-PROG1 .UNWIND.PROTECT. FUNCTION UNINTERRUPTABLY +\BLT \VFMGet MESASIZE SUB1 \GETBASE PLUS IDIFFERENCE IPLUS) TEDIT.PUT.PIECE.DESCRIPTOR (HELP) +\READTABLEP.DEFPRINT (IPLUS CONSTANT NCHARS FRESHLINE MKSTRING) \UPDATE.PSC (\SETPOS.PSC) IFCDECLARE ( +LIST) SETFONT (DSPFONT CHARWIDTH) \ATBLSET (HARRAYP HASHARRAY FUNCTION \ORIGREADTABLE COPYREADTABLE +PLUS \ORIGTERMTABLE COPYTERMTABLE) PRIN1S (DSPXPOSITION DSPYPOSITION \DEDITFONT# PRIN3) +\NSRANDOM.CHECK.CACHE (LENGTH HELP LAST) DEFPRINT (\TYPENAMEFROMNUMBER FASSOC DREMOVE CONS) \ARBOUT ( +NCHARS LOGAND LRSH \BOUT GETFILEPTR ZEROP) CH.LIST.ORGANIZATIONS (COURIER.CALL GETCLEARINGHOUSE +PARSE.NSNAME CH.GETAUTHENTICATOR) XCL::HASH-FILE-TYPES-OF (XCL::WHERE-IS-DEFAULT-DEFINE-TYPES +XCL::GET-WHERE-IS-ENTRIES CL:REMOVE-DUPLICATES) PRIN2S (DSPXPOSITION DSPYPOSITION \DEDITFONT# PRIN4) +\DRAWELLIPSE.GENERIC (SIN COS CONSTANT FQUOTIENT SQRT FTIMES CL:* - + LIST CREATEPOSITION) /DREVERSE ( +/RPLACD) DOUSERFNS2 (APPLY* MAPC) COMPILER::META-SUBST-RETURN (COMPILER::MSUBST COMPILER::META-SUBST +COMPILER::RETURN-VALUE REPLACEFIELD) COS (\SIN-FLOAT FTIMES) PRINDOTP (- WIDTH STRINGWIDTH +DSPXPOSITION PRIN2S MAKEDOTPTAIL CONS) \NSRANDOM.STREAM.CHANGED (LIST FULLNAME LOGAND CONSTANT LOGOR +IMAX ASSOC FOLDLO LRSH IMOD) SIN (\SIN-FLOAT FTIMES) XCL::WALK-BINDINGS-1 (XCL::RECONS XCL::RELIST* +WALK-FORM-INTERNAL XCL::WALK-BINDINGS-1) \TEDIT.CREATE.LINECACHE (BITMAPCREATE LIST PLUS) +INSPECT/AS/FUNCTION (SELECT.FNS.EDITOR INSPECTCODE \GET-COMPILED-CODE-BASE MAKE-COMPILED-CLOSURE +WINDOWPROP LIST PROCESS.APPLY CL:APPLY) SMASHPAT1 (LIST* SMASHPATTERN LIST) CREATE.PACKET.EXCHANGE.XIP + (\FILLINXIP IPLUS UNFOLD LLSH \LOLOC \ADDBASE) TEDIT.PUT.PAGEFRAMES (LOGAND LRSH \BOUT +TEDIT.UNPARSE.PAGEFRAMES) STRING-EQUAL (%%PARSE-STRING-ARGS WITH-TWO-UNPACKED-STRINGS +%%STRING-BASE-COMPARE-EQUAL CL::SIMPLE-STRING-EQUAL) CH.RETRIEVE.MEMBERS (PARSE.NSNAME COURIER.CALL +CH.FINDSERVER FIXP CH.PROPERTY CH.GETAUTHENTICATOR) \10MBENCAPSULATE (LOCF \ADDBASE + FOLDHI LRSH +IPLUS) SUPERPRINT/WRAPPER (+ DSPXPOSITION WIDTH STRINGWIDTH DSPYPOSITION \DEDITFONT# SUPERPRINT) +NLAMBDAFNP (GETPROP GETLIS SELECTQ ARGTYPE FMEMB) PRINTLEAF (IDIFFERENCE PRIN1 TERPRI SELECTC PRIN2 +LIST SIGNED SUB1 LLSH IPLUS FOLDLO LRSH \MAKENUMBER UNSIGNED LOGAND) POSITION (\GETSTREAM) +\MAIKO.DISPLAYLINE (WINDOWPROP IMAX IDIFFERENCE DSPSCALE \TEDIT.LINECACHE FIXR FQUOTIENT DSPFONT +\EDITELT GETBASEPTR \GETBASEPTR \ADDBASE2 \ADDBASE FTIMES IPLUS PLUS FONTCOPY CHARWIDTH IREMAINDER +DSPYPOSITION IMAGEOBJPROP) READBQUOTECOMMA (LIST SELCHARQ SKIPSEPRCODES CL:READ PEEKCCODE PACK* READ) +COMPILER::META-EVAL-BLOCK (COMPILER::BLOCK-CONTEXT COMPILER::MEVAL COMPILER::META-EVALUATE +COMPILER::BLOCK-STMT REPLACEFIELD COMPILER::ANALYZE-TREE COMPILER::NODE-META-P) \FM.FORMATBYCOLUMN ( +CREATEREGION LIST \FM.LAYOUTCOLUMN \FM.DTOPGROUPID COPY \FM.DTOPGROUPPROP LISTGET PLUS \FM.DGROUPPROP +FASSOC \FM.PUSHGROUP IDIFFERENCE CONS \FM.MAKEGROUP) PRINTVA (HILOC \HILOC LOLOC \LOLOC PRIN1) +SEDIT::KILL-NODE (MAPC SEDIT::KILL-NODE) MAKEDOTPTAIL (PUTHASH RPLNODE GETHASH CONS) DOUSERFNS (APPLY* +) LOGIN (\INTERNAL/GETPASSWORD SELECTQ CANONICAL.HOSTNAME ERROR) MAX/RIGHT (GN/RIGHT) +MAKE-READER-ENVIRONMENT (\DTEST \CHECKRADIX \INVALID.RADIX) IFCEXPRTYPE (INFILECOMTAIL) +\TEDIT.PUT.PARALOOKS.LIST (HASHARRAY LOGAND LRSH \BOUT FLENGTH PLUS) XCL::WALK-BINDINGS-2 (XCL::RECONS + XCL::RELIST* WALK-TEMPLATE XCL::WALK-BINDINGS-2) COMP.BOX (GETPROP) COMPILER::META-SUBST-PROGV ( +COMPILER::MSUBST COMPILER::META-SUBST COMPILER::PROGV-SYMS-EXPR REPLACEFIELD) \UNIMPIMAGEOP (ERROR +CONCAT) \LFParseFileName (UNPACKFILENAME.STRING STRPOS SUBSTRING SUB1 CONDCONCAT CONCATLIST LIST ADD1 +NCHARS MKATOM) UNSAVEDEF (SELECTQ MAPCAR UNSAVED1 GETDEF GETFILEPKGTYPE CONS) OPT.DREV (FRPLACD) +\INTERNAL/GETPASSWORD (MKATOM GETHASH U-CASE ASSOC \INTERNAL/SETPASSWORD) /DELETECONTROL (GETTERMTABLE + LIST DELETECONTROL) PRIN2STRING (PRIN2-LONG-STRING IDIFFERENCE WIDTH STRINGWIDTH DSPXPOSITION IMIN +PRIN2S) ADDTO (FASSOC FMEMB LIST) BACKSKREAD (\SYNCODE GETHASH \GETBASEBYTE FIRSTCHAR LIST TTSKREAD +FIND.MATCHING.QUOTE) READGRAPH (SKIPSEPRS RATOM READ SELECTQ ERROR ARRAY PLUS HREAD FONTCLASS ELT +MAPCAR CONS LIST) CHAT.TTYENTRYFN (PROCESSPROP WINDOWPROP) GRAPHREGION (MEASUREGRAPHNODE CREATEREGION +MIN/LEFT MIN/BOTTOM ADD1 IDIFFERENCE MAX/RIGHT MAX/TOP) MIDDX (IPLUS IQUOTIENT IDIFFERENCE \SGN \IRND +ITIMES) \FM.FORMATBYROW (CREATEREGION LIST DREVERSE \FM.LAYOUTROW \FM.DTOPGROUPID REVERSE +\FM.DTOPGROUPPROP LISTGET PLUS CONS \FM.MAKEGROUP) GRAPHOBJ.GETALIGN (READ CONS NTH) READVA (VAG2 +\VAG2 READOCT) SEDIT::INSERT-CHANGED (CONS) SET-READER-ENVIRONMENT (\DTEST) MAKECREATELST1 ( +GETFIELDFORCREATE MAKECREATELST1 NCONC LIST PLUS) COMPILER::META-SUBST-PROGN (COMPILER::PROGN-STMTS +COMPILER::META-SUBST-STMTS) SETPASSWORD (\INTERNAL/SETPASSWORD CANONICAL.HOSTNAME CONS MKATOM MKSTRING +) PURGEHISTORY2 (LISTGET1 LIST PURGEHISTORY2) COMP.ASET (FASSOC COMP.LOOKUPVAR LENGTH MKLIST COMP.EXPR + CONS COMP.VAL SELECTQ) CANONICAL.HOSTNAME (CL:ASSOC \CANONICAL.NSHOSTNAME IPHOSTNAME MKATOM FASSOC +\CANONICALIZE.IP.HOSTNAME \CANONICALIZE.PUP.HOSTNAME) OPENNSOCKET (FIXP \NSOCKET.FROM# CONS LOGOR +LOGXOR RAND LOCF \ADDBASE CREATE.EVENT ADD1 LOGAND) FONTCREATE (FONTCLASS FONTCREATE DEFAULTFONT +\COERCEFONTDESC DSPFONT FONTPROP LITATOM IGREATERP IGEQ \GETSTREAM MKATOM U-CASE \ILLEGAL.ARG +\FONTFACE \LOOKUPFONT ASSOC \FONTSYMBOL APPLY* FUNCTION \AVGCHARWIDTH SETFONTDESCRIPTOR LIST) +\TEDIT.CHARDELETE (TEXTOBJ SUB1 ADD1 \CHTOPC \TEDIT.APPLY.STYLES PLUS IMINUS) MAKECREATELST ( +MAKECREATELST1) \SEND.EXPEDITED.XIP (SETUPTIMER NSOCKETEVENT GETXIP COURIER.VERSION# LIST LOGAND +\GETBASE LOCF \ADDBASE \COURIER.RESULTS \MAKE.EXPEDITED.STREAM PLUS) OPT.INITHASH (EVALV HARRAYPROP +CLRHASH SET HASHARRAY) \MENUSUBITEMS (APPLY* FUNCTION) IFCPROPSCAN (GETPROPLIST INFILECOMSPROP LIST) +\INTERNAL/SETPASSWORD (WITH.MONITOR CL:MULTIPLE-VALUE-PROG1 .UNWIND.PROTECT. FUNCTION NLSETQ GETHASH +PUTHASH CONS \LOGIN.READ ASSOC RPLACD \ENCRYPT.PWD CONCAT SYSTEMTYPE GETOSTYPE EMPASSWORDLOC EMPOINTER + \VAG2 \ADJUST.USERNAME USERNAME \DECRYPT.PWD ALPHORDER NCHARS GetBcplString SELECTQ L-CASE U-CASE +\GETBASE APPLY*) MSPRGLST (MAPC MSPRGE) AT.END.OF.SCREEN (AT.END.OF.LINE IGREATERP IPLUS +SEGMENT.LENGTH TTNEXTCHAR) CHAT.CHOOSE.EMULATOR (CL:ASSOC FASSOC) SEDIT::CREATE-SIMPLE-NODE ( +SEDIT::STRINGWIDTH LIST CONS SEDIT::CREATE-WEAK-LINK) \PFVersionOK (\PFGetVols) \FM.FORMAT (MAPC +SELECTQ LISTGET APPLY* PLUS \FM.MAKE-GROUP-ID CONS LIST LISTPUT IPLUS \FM.FORMATBYROW +\FM.FORMATBYCOLUMN \FM.FORMATBYGRID \FM.FORMATEXPLICIT \FM.DTOPGROUPPROP FRPLACA ITIMES) ESPATTERN ( +UNPACK SELECTQ RPLACD) SEDIT::INITIALIZE (FUNCTION CONS LIST COPYTERMTABLE MAPC GETSYNTAX SETSYNTAX) +MINIMUMMAINWINDOWSIZE (WINDOWPROP CONS HEIGHTIFWINDOW FONTPROP APPLY* NUMBERP ERROR) \LEAFINIT ( +CREATE.MONITORLOCK \DEFINEDEVICE FUNCTION) MAX/TOP (GN/TOP) \PFPatchRootDirEntries (FREPLACEFIELD PLUS + FFETCHFIELD) \PFEnsureInitialized (SELECTQ MACHINETYPE) OPT.RESOLVEJUMPS (GETPROP PLUS IDIFFERENCE +OPT.JLENPASS) INFILECOMSPROP (CONS LIST RETFROM) /CONTROL (CONTROL LIST) \TEDIT.HARDCOPY.FORMATLINE ( +FUNCTION PLUS \RPLPTR \ADDBASE2 \ADDBASE \TEDIT.APPLY.STYLES \EDITELT GETBASEPTR \GETBASEPTR +FONTCLASSCOMPONENT FONTCOPY \TEDIT.HCPYFMTSPEC \TEDIT.APPLY.PARASTYLES IEQP \BIN \FGETCHARWIDTH +\GETBASE \GETCHARSETINFO UNFOLD LLSH \CHARSET LRSH \CREATECHARSET \CHAR8CODE LOGAND +\TEDIT.INTEGER.IMAGEBOX APPLY* IMAGEOBJPROP IMAX IDIFFERENCE IPLUS ADD1 \TEDIT.FORMATTABS FIXR FTIMES +DSPSCALE SUB1 \FGETWIDTH FFETCHFIELD - FONTPROP IMIN) \INTERACTIVE.CLOSEW (PROMPTPRINT) \ENCRYPT.PWD ( +LOGXOR NTHCHARCODE PLUS) \DSPUNTRANSFORMREGION (CREATEREGION \DSPUNTRANSFORMX \DSPUNTRANSFORMY) +COMP.AREF (FASSOC COMP.LOOKUPVAR LENGTH MKLIST COMP.EXPR CONS COMP.VAL SELECTQ) +\TEDIT.PUT.CHARLOOKS.LIST (HASHARRAY LOGAND LRSH \BOUT FLENGTH PLUS) XCL::RELIST*-INTERNAL (XCL::RECONS + XCL::RELIST*-INTERNAL) COMPILER::FIND-SEGMENT (COMPILER::TAGBODY-SEGMENTS COMPILER::SEGMENT-TAGS) +MSPRGLAMBDA (SELECTQ CONS MAKE-KEYWORD GETTEMPLATE CL:NREVERSE MSPRGTEMPLATE1 MSPRGTEMPLATE ASSOC +CL:FUNCALL INCLISP MSDWIMTRAN) SEGMENT.LENGTH (PLUS) FW-MOVE-OFD-WINDOWS (FW-CHANGE-JUSTIFICATION) +\LOGIN.READ (CONCAT CONSTANT CHARACTER RESETLST PROVIDE.PROMPTING.WINDOW FRESHLINE RESETBUFS CONS +PROMPTFORWORD MKATOM) GETCHATWINDOW (CONCAT L-CASE WINDOWPROP DECODE.WINDOW.ARG CONS) +SEDIT::COPY-SELECTION-DEFAULT (NTH PLUS) \DECODE.EXTENT.USE (SELECTQ) \LFNormalizeVolumeName ( +\LFParseFileName) \ADJUST.USERNAME (NCHARS PACK* STRPOS SUBSTRING SUB1 L-CASE CONCAT) PRINTADDRS ( +printout HILOC \HILOC LOLOC \LOLOC PRIN1 \ADDBASE SUB1 PLUS \VAG2 FLOOR LOGAND CONSTANT LOGXOR +IGREATERP \GETBASE) SMASHPATTERN (CONS SMASHPAT1 RECORDGENSYM) \DECRYPT.PWD (\ENCRYPT.PWD CONCAT) +\BUILD.EXPEDITED.XIP (COURIER.VERSION# \MAKE.EXPEDITED.STREAM \COURIER.EXPEDITED.ARGS IPLUS UNFOLD +LLSH INDEXF) \TEDIT.PUT.SINGLE.CHARLOOKS (GETFILEPTR LOGAND LRSH \BOUT FONTCLASSUNPARSE FONTPROP LOGOR + IDIFFERENCE) PRINTFILETYPE (IMAGESTREAMTYPE FILENAMEFIELD GETFILEINFO PRINTFILETYPE.FROM.EXTENSION +RESETLST MKATOM OPENSTREAM RESETSAVE LIST NLSETQ APPLY* ASSOC) \TEDIT.FIXCHANGEDLINE (\FORMATLINE ADD1 + \TEDIT.NEXT.LINE.BOTTOM IMINUS IPLUS IDIFFERENCE TEXTPROP SUB1) \IMAGEIOINIT (FUNCTION) DCODERD ( +GETSTREAM READ IPLUS LLSH \BIN PLUS CEIL LOGAND ADD1 UNFOLD CONSTANT SUB1 LOGXOR FOLDLO LRSH FLENGTH +IQUOTIENT \CODEARRAY FOLDHI BYTESPERNAMEENTRY WORDSPERNAMEENTRY SELECTQ SHOULDNT \FIXCODESYM +\FIXCODEPTR EVQ DEFC) \OKTOCLOSEW (DOUSERFNS) \MEDW.BLTCHAR (\CHAR8CODE LOGAND \CHARSET LRSH +\SLOWBLTCHAR IPLUS \DSPGETCHARIMAGEWIDTH \GETBASE \DSPGETCHARWIDTH DSPDESTINATION \TOTOPWDS +IDIFFERENCE \DSPGETCHAROFFSET) UNIX.SENDSCREENPARAMS (UNIX-CHANNEL FFETCHFIELD CONS CL:FORMAT) DEFC ( +CONCAT) \TEDIT-OPEN-FONT-FILE (OPENSTREAM) \MEDW.XOFFSET (\GETDISPLAYDATA \DTEST \OUTSTREAMARG +\GETSTREAM \SFFixClippingRegion \ILLEGAL.ARG) XCL::WALK-ARGLIST (CL:MEMBER CL:FUNCTION XCL::RECONS +XCL::WALK-ARGLIST XCL::RELIST* WALK-FORM-INTERNAL CL:ERROR) WINDOWPOSITION (WINDOWPROP) +\TEDIT.COPYTEXTSTREAM.PIECEMAPFN (IMAGEOBJPROP APPLY* COPYALL) \TEDIT.OBJECT.SHOWSEL (DSPXOFFSET +DSPYOFFSET IMAGEOBJPROP WINDOWPROP CREATEREGION APPLY* - RESETLST RESETSAVE IDIFFERENCE IPLUS LIST +FUNCTION DSPCLIPPINGREGION IMIN ERSETQ) \MEDW.YOFFSET (\GETDISPLAYDATA \DTEST \OUTSTREAMARG \GETSTREAM + \INVALIDATEDISPLAYCACHE \ILLEGAL.ARG) \VFMGetPageGroup (WITH.MONITOR CL:MULTIPLE-VALUE-PROG1 +.UNWIND.PROTECT. FUNCTION UNINTERRUPTABLY \BLT \VFMGet MESASIZE) DCODESKIP (GETSTREAM GETFILEPTR IPLUS + LLSH \BIN) OPT.COMPILERERROR (HELP) PFI.ADD.TO.INDEX (CONS LIST) \NOIMAGE.DSPFONT (SMALLP CONSTANT +CHCON1) MAXMENUITEMWIDTH (MENU.PRIN2.FLG LISTGET \MENUITEMLABEL \MENUSUBITEMS IMAX IPLUS STRINGWIDTH +BITMAPWIDTH) IFCPROPS (SELECTQ INFILEPAIRS INFILECOMTAIL MAPC INFILECOMSMACRO) PRIN4 (\GETSTREAM +\GTREADTABLE \OUTTERMP) \TEDIT.LINECACHE (BITMAPCREATE IMAX) EXEC-PRINT (FRESHLINE WRITE) +FW-BUTTONEVENTFN (LOGAND) XCL::RELIST* (XCL::RELIST*-INTERNAL) \ALLOC.CODE.BLOCK (\ALLOCBLOCK FOLDHI +LRSH IPLUS) MAXIMUMMAINWINDOWSIZE (WINDOWPROP APPLY* NUMBERP ERROR) FW-AFTERMOVEFN (PROCESS.NAME +THIS.PROCESS FILEWATCHPROP WINDOWREGION IDIFFERENCE IPLUS) \PFFindRootDirEntryNum (SUB1 MESAELT \BLT +FMESAELT \ADDBASE IPLUS ILEQ ITIMES IDIFFERENCE MESASIZE PLUS) \REALNAMEP (NTHCHAR) FONTCLASS (FIXP +FONTCREATE MAPCAR LIST CONS) PRINTHISTORY1 (LISTGET1 CONS FMEMB FUNCTION PRINTHISTORY1 ADD1 LDIFF +LISPXREPRINT LISTGET SHOWPRINT) PROMPTFORWORD (COPYTERMTABLE PLUS RESETLST RESETSAVE SETTERMTABLE +DREVERSE CHCON TTY.PROCESSP TTY.PROCESS THIS.PROCESS CURSOR FIXP SELECTQ TTYDISPLAYSTREAM GETSTREAM +DISPLAYSTREAMP NCHARS NTHCHARCODE LIST MAPCAR CHCON1 \INSTREAMARG \GETSTREAM SETUPTIMER DSPXPOSITION +DSPYPOSITION \PROMPTFORWORDBIN GETSYNTAX SYNTAXP CHARACTER STRINGP APPLY* CONSTANT PRIN3 CONS CONCAT +CONCATCODES) GRAPHERPROP (PUTPROP GETPROPLIST GETPROP) GO.TO.FREELINE (TTLASTLINE ERASE.TO.END.OF.PAGE +) BKBUFS (SYSBUF) RAIDSTACKCMD (SELECTQ ASKUSER READOCT \GETBASE TERPRI FUNCTION) RECORD.FIELD.VALUE0 +(CONS GETFIELDFORCREATE) PROVIDE.PROMPTING.WINDOW (TTY.PROCESS THIS.PROCESS GETSTREAM WFROMDS +TTYDISPLAYSTREAM CREATEW CREATEREGION IPLUS LIST FUNCTION LRSH IDIFFERENCE STRINGWIDTH TERPRI +MACHINETYPE) ERASEPROPS (UNION SELECTQ MAPC ASKUSER LIST MAPCONC APPEND EDITE SORT HELP) +BROWSE/LAYOUT/LATTICE (IPLUS BRHL/LAYOUT GETNODEFROMID) COMPILER::CONSTRUCT-PROG1-TREE ( +COMPILER::MAKE-VARIABLE COMPILER::MAKE-VAR-REF COMPILER::MAKE-LAMBDA LIST COMPILER::MAKE-PROGN CL:APPEND + COMPILER::VARIABLE-BINDER COMPILER::VARIABLE-READ-REFS COMPILER::MAKE-CALL) RESTORE.CURSOR ( +GO.TO.RELATIVE) CLBUFS (LINBUF SYSBUF CONS) TEXTTOIMAGEFILE (RESETLST OPENSTREAM FULLNAME +OPENIMAGESTREAM PACKFILENAME APPEND LIST CONCAT GETFILEINFO CLOSEF) ROUND (CL::%%INTEGER-COERCE-MACRO) + LISPXSUBST (SUBST ESUBST) \POSSIBLECOLOR (SELECTQ TYPENAME MASK.1'S LSH SUB1 RGBP HLSP) GETOSTYPE ( +GETHOSTINFO) COMPILER::META-SUBST-MV-CALL (COMPILER::META-SUBST-ANY-CALL COMPILER::MV-CALL-FN +COMPILER::MV-CALL-ARG-EXPRS) \CCLOSURE.DEFPRINT (IPLUS CONSTANT NCHARS LITATOM FRESHLINE) +CH.DELETE.MEMBER.FROM.PROPERTY.ACL (CH.CANONICAL.NAME PARSE.NSNAME CH.GETAUTHENTICATOR COURIER.CALL +CH.FINDSERVER CH.PROPERTY COURIER.FETCH) \ALLOCATE.ETHERPACKET (\DEQUEUE FOLDHI LRSH IPLUS SUB1) +GRAPHER/CENTERPRINTINAREA (\GETSTREAM STRINGWIDTH IPLUS IQUOTIENT ADD1 IDIFFERENCE FONTPROP) +\GET-COMPILED-DEFINITION (MAKE-COMPILED-CLOSURE) RINGBELLS (FIXP SELECTC LIST PLUS FLASHWINDOW) +UNIX.SETDISPLAYTYPE (STREAMPROP SETUPTIMER PROCESSPROP THIS.PROCESS WINDOWPROP KEYACTION CL:CODE-CHAR +LOGOR LISP-TO-UNIX-TERMTYPE) \IDLE.PROMPTING.WINDOW (INTERRUPTCHAR PROCESSPROP THIS.PROCESS +TTYDISPLAYSTREAM TTY.PROCESS SUSPEND.PROCESS RESETSAVE) PFI.DEFAULT.HANDLER (GET CL:NTH CL:POSITION +NLSETQ CL:FUNCALL LIST MAPC CONS PFI.PRETTYPRINT) INFILECOMSVAL (CONS CL:PUSHNEW RETFROM) STRINGWIDTH +(\STRINGWIDTH.GENERIC \GTREADTABLE \FGETCHARWIDTH \FGETWIDTH \GETBASE \GETCHARSETINFO \GETBASEPTR +UNFOLD LLSH \CHARSET LRSH \CREATECHARSET \CHAR8CODE LOGAND \OUTSTREAMARG \GETSTREAM IMAGEOP +SPREADAPPLY* FONTCREATE) GRAPHNODE/BORDER/WIDTH (ABS ERROR) RELMOVETO (IPLUS DSPXPOSITION +\OUTSTREAMARG \GETSTREAM DSPYPOSITION) MSPRGTEMPLATE (GETMACROPROP) CHAT.INIT (WINDOWPROP +TEDITSTREAM.INIT FUNCTION) SEDIT::STRING-OFFSET (SEDIT::ESCAPE-CHAR FFETCHFIELD NTHCHARCODE IPLUS +CHARWIDTH PLUS) \PFGetLVPage (\PFGetVols) NEGSHADE (-) SEDIT::GET-SELECTED-STRUCTURE (SEDIT::CLOSE-NODE +) WINDOWPROP (PUTWINDOWPROP ARG GETWINDOWPROP \ILLEGAL.ARG) \TEDIT.BLTCHAR (\CHAR8CODE LOGAND \CHARSET + LRSH \GETBASE IPLUS IMAX IMIN IDIFFERENCE \PILOTBITBLT) BRV/OFFSET (GETNODEFROMID IPLUS FRPLACA +IDIFFERENCE BRV/OFFSET) TTYINWORDRDTBL (COPYREADTABLE) SUPERPRINT/COMMENT (+ DSPXPOSITION STRINGWIDTH +DSPRIGHTMARGIN DSPLEFTMARGIN PRIN1S SEMI-COLON-COMMENT-P <= LENGTH SUPERPRINT/COMMENT1 MIN MAX - FIXR +TIMES IQUOTIENT DSPLINEFEED SETFONT) OP# (\FINDOP) YMAPLIST (HEADPTY XYPT.Y NEXTPTY HEADPT NEXTPT +XYPT.X IDIFFERENCE MIDDX CONS REVERSE) \DisplayEventFn (SELECTQ DISPLAYBEFOREEXIT DISPLAYAFTERENTRY) +RAIDCOMMAND (ALLOCAL ASKUSER GETTOPVAL READATOM GETPROPLIST READVA READOCT ADDSTACKBASE \VAG2 +\ATOMVALINDEX NTYPX \LOLOC SHOULDNT PRIN1 READ PLUS TERPRI FUNCTION CONS ERROR! PEEKC GETBASE \GETBASE + \PUTBASE INSPECT VMAPPAGE NCREATE VGETTOPVAL GETSTREAM) SETUPPAGEMAP (SUB1 UNFOLD LLSH PLUS PAGELOC +IPLUS \HILOC LRSH \LOLOC) CHAT (SORT CONS APPEND MENU CHAT.PROMPT.FOR.INPUT GETPROMPTWINDOW +PROMPTFORWORD ADD.PROCESS PROCESS.RESULT FUNCTION) COPY1 (CONS LIST) DISPLAYAFTERENTRY (CARETRATE) +COMPSETREAD (LISPXREADBUF LISPXREAD PEEKC ASKUSER PRINT LIST) \MAKE.ITEMS.VERT.ORDER (CONS LIST PLUS +TCONC MAPCONC) DISPLAYBEFOREEXIT (CONS CURSOR CHANGEBACKGROUNDBORDER SELECTQ SHOWDISPLAY +TTYDISPLAYSTREAM CLRPROMPT SHOULDNT) MAXMENUITEMHEIGHT (FONTPROP \MENUITEMLABEL IMAX) SUPERPRINT/SPACE + (- DSPXPOSITION TIMES PRINENDLINE PRIN3) MSPRGTEMPLATE1 (SELECTQ MSPRGE MSPRGTEMPLATE1 MSBINDVAR +MSPRGLAMBDA MSPRGLST MSPRGCALL MSPRGTEMPLATE ADDTO MAPC IDIFFERENCE LENGTH MSPRGMACRO EVAL CONS +GETRELATION MEMQ) SYSOUT (\COPYSYS) SEDIT::SUBNODE-CHANGED (CL:FUNCALL) \SETUFNENTRY (\ADDBASE +\ATOMDEFINDEX NTYPX \LOLOC SHOULDNT FREPLACEFIELD) XCL::WALK-TEMPLATE-HANDLE-REPEAT-1 (WALK-TEMPLATE +CL:ERROR XCL::WALK-TEMPLATE-HANDLE-REPEAT-1 XCL::RECONS) \GETUFNENTRY (\ADDBASE2 \ADDBASE \FINDOP +\VAG2) HELPSYS (SELECTQ IRM.LOOKUP GETPROP BEEP) \PFPurgeRootDirectory (UNINTERRUPTABLY +\PFVolumeNumber) INSPECT/ARRAY (NUMBERP ARRAYORIG INSPECTW.CREATE SUB1 IMIN IPLUS ARRAYSIZE LIST PLUS +FUNCTION PRIN1) MAKESYS (CONCAT CL:STRING-CAPITALIZE SUBSTRING DATE \COPYSYS RESET) INFILECOM ( +INFILECOMSVAL APPLY* LIST LAST CONS INFILECOMTAIL IFCDECLARE IFCPROPS SELECTQ IFCPROPSCAN +INFILECOMSVALS INFILEPAIRS IFCEXPRTYPE MAPC GETPROP SUBPAIR) MAXIMUMWINDOWSIZE (WINDOWPROP APPLY* +NUMBERP ERROR) TEDIT.MODIFYLOOKS (DSPXPOSITION DSPYPOSITION ADD1 IDIFFERENCE IPLUS SUB1 FONTPROP +IQUOTIENT) SEARCH-FOR-EVENT-NUMBER (EXEC-EVENT-ID ENTRY#) SUBPRINT/WRAPPERTAIL (+ DSPXPOSITION WIDTH +STRINGWIDTH SUPERPRINT) \PICK.EVALQT (EXEC XCL::SETUP-EXEC-WINDOW) MSPRGERR (ADDTO) +SEDIT::NOTE-CHANGE-IN-SIMPLE (SEDIT::STRINGWIDTH SEDIT::NOTE-CHANGE) CALLSCCODE ( +\GET-COMPILED-CODE-BASE \CODEBLOCKP ERROR UNFOLD LLSH IPLUS CONSTANT \INDEXATOMVAL \VAG2 LRSH LOGAND +GETNAMEENTRY SUB1 BYTESPERNAMEENTRY WORDSPERNAMEENTRY LOGOR CODEBASELT \GETBASEBYTE LOGXOR PLUS +SELECTQ NTSLOT-VARTYPE GETNTOFFSET GETNTOFFSETENTRY BYTESPERNTOFFSETENTRY CONS NEXTBYTE \FINDOP +\INDEXATOMDEF BIG-VMEM-HOST \SUBFNDEF CALLSCCODE RUNION REVERSE) COMPILER::EXPAND-NESTED-PROGNS ( +MAPCONC COMPILER::PROGN-STMTS LIST) COPIEDFILEMATCH (EQUAL U-CASE) XCL::RECONS (CONS) CSUBSTLST ( +CSUBST RECONS CSUBSTLST) COMPILER::CLOSURE-ANNOTATE-VAR-REF (COMPILER::VAR-REF-VARIABLE +COMPILER::VARIABLE-SCOPE LIST) COMPSETY (SELECTQ) \SUBFNDEF (NTHCHARCODE PLUS \GET-COMPILED-DEFINITION +) \SHOWMENULABEL (\MENUITEMLABEL IPLUS FONTPROP CREATEREGION BITMAPWIDTH BITBLT IQUOTIENT IDIFFERENCE +CENTERPRINTINREGION MENU.PRIN2.FLG LISTGET ADD1 FONTDESCENT DSPFONT CL:FUNCALL FUNCTION) +CH.ADD.MEMBER.TO.PROPERTY.ACL (CH.CANONICAL.NAME PARSE.NSNAME CH.GETAUTHENTICATOR COURIER.CALL +CH.FINDSERVER CH.PROPERTY COURIER.FETCH) COMPILER::TEST-ANNOTATION (COMPILER::TEST-ALPHA-2 +CL:MULTIPLE-VALUE-PROG1 .UNWIND.PROTECT. FUNCTION COMPILER::PRINT-TREE COMPILER::ANNOTATE-TREE +COMPILER::META-EVALUATE) \CODEBLOCKP (NTYPX \HILOC \ADDBASE - \GETDTD ITIMES) +DEFAULT.BACKGROUND.COPYFN (LOGAND MENU ERSETQ EVAL) ADJUSTLINE.AND.RESTORE (MOVE.TO.WHEREVER +RESTORE.CURSOR) \APPLYINSPECTMACRO (INSPECTW.CREATE EVAL) \DSPFONT.PSC (\COERCEFONTDESC FONTCOPY +IMINUS FIXR TIMES \FGETWIDTH \GETBASE LISTGET) RAIDSHOWFRAME (RAIDROOTFRAME SUB1 printout TERPRI +FUNCTION) READPAGEMAPBLOCK (VBIN2 IPLUS LLSH VBIN1 \BIN LOCAL MAPVMPAGE SUB1 ADD1) \GET.IOCB (SELECTQ +\ILLEGAL.ARG PLUS EMPOINTER \VAG2) PFI.PRETTYPRINT (TERPRI) MSPRGRECORD (SELECTQ GETPROP CL:THIRD +CL:FIFTH CL:FOURTH RECORDFIELDNAMES LIST RPLACA MAPC ADDTO) \TEDIT.MARK.REVISION (DSPSCALE BLTSHADE + +FIXR CL:*) \QUEUE.OUTPUT.IOCB (SUB1 EMPOINTER \VAG2 RAID \LOLOC UNFOLD LLSH \D0.CONTROLLERBITS LOGOR) +RECORDWORD (GETPROP RECORDWORD) \DFSFreeDiskPages (WITH.MONITOR CL:MULTIPLE-VALUE-PROG1 +.UNWIND.PROTECT. FUNCTION \LFEntryPoint \PFFreeDiskPages) SEDIT::DEFAULT-PACKAGE (CL:SYMBOL-PACKAGE) +\PROMPTFORWORDRETYPE (MAPC REVERSE \OUTCHAR) \PROMPTFORWORDERASE (DSPYPOSITION DSPLEFTMARGIN +IDIFFERENCE FONTDESCENT TERPRI) DOBACKGROUNDCOM (MENU FUNCTION EVAL) \DISPLAYINIT (FUNCTION +\DEFINEDEVICE) CREATE-SHELL-STREAM (FORK-SHELL UNIX-CHANNEL FFETCHFIELD CONS FUNCTION) +GRAPHEDITEVENTFN (DSPCLIPPINGREGION LASTMOUSEX LASTMOUSEY DOWINDOWCOM TRACKNODE GRAPHEDITCOMMANDFN +CLOSEW) \DSPMOVELR (\STREAMCHARWIDTH FIXP PLUS IMINUS \CARET.DOWN IDIFFERENCE FONTDESCENT FONTHEIGHT +\GETDISPLAYDATA \DTEST \OUTSTREAMARG \GETSTREAM) COPYTEXTSTREAM (TEXTOBJ OPENTEXTSTREAM ADD1 +TEDIT.SELECTED.PIECES FUNCTION) READPAGEMAP (MAPVMPAGE PAGELOC IPLUS LLSH \HILOC LRSH \LOLOC SUB1 +SETVMPTR FOLDHI PLUS UNFOLD IEQ GETBASE \GETBASE ADDBASE \ADDBASE) DELETEMENU (TYPENAMEP WFROMMENU +WINDOWPROP DREMOVE FUNCTION) PFI.MAYBE.NEW.PAGE (SUB1 PFI.LINES.REMAINING PFI.ESTIMATE.SIZE TERPRI +DSPNEWPAGE) USEDFREE (APPEND) UPDATE/MENU/IMAGE (FONTP \COERCEFONTDESC FONTCREATE MENUTITLEFONT +FONTPROP STRINGWIDTH LENGTH NUMBERP ADD1 IQUOTIENT SUB1 FIXP IMAX IPLUS MAXMENUITEMWIDTH ITIMES +BITMAPWIDTH MAXMENUITEMHEIGHT IDIFFERENCE \MAKE.ITEMS.VERT.ORDER BITMAPCREATE DSPCREATE +CREATEWFROMIMAGE) \PROMPTFORWORDBIN (SETUPTIMER WAIT.FOR.TTY BIN SPREADAPPLY* MACHINETYPE IMIN LLSH +TIMES) RECONS (CONS) COMPSETF (SELECTQ) \TEDIT.SELECT.CHARACTER (IMAGEOBJPROP IMAGEBOX WINDOWPROP +RESETSAVE DSPXOFFSET IDIFFERENCE IPLUS LIST FUNCTION DSPYOFFSET DSPCLIPPINGREGION IMIN ERSETQ APPLY*) +COMPILER::CLOSURE-ANNOTATE-UNWIND-PROTECT (CL:UNION COMPILER::CLOSURE-ANNOTATE COMPILER::UNWIND-PROTECT-STMT + COMPILER::UNWIND-PROTECT-CLEANUP) FILL.CONT (FILL.INITTBLE IDIFFERENCE PLUS) \PAGEDBACKFILEPTR ( +UNINTERRUPTABLY PLUS FFETCHFIELD SUB1 IMAX) \CREATECHARSET (FONTPROP FUNCTION ASSOC APPLY APPEND LIST +IMAX SIGNED SUB1 LLSH IDIFFERENCE IPLUS \SETCHARSETINFO \RPLPTR UNFOLD) \PFRemoveRootDirEntry ( +UNINTERRUPTABLY \PFFindRootDirEntryNum ADD1 \BLT FMESAELT \ADDBASE IPLUS ILEQ ITIMES IDIFFERENCE +MESAELT MESASIZE PLUS FFETCHFIELD) CHANGECCODE (\GET-COMPILED-CODE-BASE CONS CCCSCAN LITATOM +CODEBASESETATOM MAPC UNINTERRUPTABLY OPCODES \DELREF) INFILECOMS (MAPC INFILECOM) PROCESS-EXEC-ID ( +PROCESSPROP PROCESS.NAME SUBSTRING STRING) DEFAULTFONT (FONTCLASS SETFONTCLASSCOMPONENT +\COERCEFONTDESC \DEVICESYMBOL) INSPECT/HARRAYP (HARRAYKEYS INSPECTW.CREATE FUNCTION) CHARWIDTHY ( +\CHARCODEP IGEQ \GETCHARSETINFO \GETBASEPTR UNFOLD LLSH \CHARSET LRSH \CREATECHARSET FIXP \FGETWIDTH +\GETBASE \CHAR8CODE LOGAND \OUTSTREAMARG \GETSTREAM IMAGEOP SPREADAPPLY* FONTCREATE) +XCL::WALK-TEMPLATE-HANDLE-REPEAT (WALK-TEMPLATE XCL::WALK-TEMPLATE-HANDLE-REPEAT-1) \DSPPRINTCHAR ( +\CARET.DOWN \SYNCODE GETHASH \GETBASEBYTE CONSTANT IMAX PLUS FFETCHFIELD CHARWIDTH \INDICATESTRING +\STRINGWIDTH.DISPLAY IDIFFERENCE NCHARS NTHCHARCODE LIST WFROMDS UNFOLD LLSH +\DISPLAYSTREAMINCRXPOSITION MOD IMOD IQUOTIENT) COMPILER::META-SUBST-LABELS (COMPILER::MSUBST +COMPILER::META-SUBST COMPILER::LABELS-BODY REPLACEFIELD) SEDIT::PARENTHESIZE-CURRENT-SELECTION ( +FREPLACEFIELD CONS FFETCHFIELD NTH LIST PLUS SEDIT::CREATE-NULL-LIST SEDIT::COLLECT-UNDO-BLOCK +SEDIT:GET-PROMPT-WINDOW GETPROMPTWINDOW) \DRAWARC.DISPLAY (\DRAWARC.GENERIC) \PFAddRootDirEntry ( +UNINTERRUPTABLY \BLT FMESAELT \ADDBASE IPLUS ILEQ ITIMES IDIFFERENCE MESASIZE ADD1) +SUPERPRINT/COMMENT2 (\GETSTREAM DSPXPOSITION NTHCHARCODE IPLUS WIDTH STRINGWIDTH PRINSHUT) +\DRAWPOINT.DISPLAY (\GETBRUSH BITBLT IDIFFERENCE HALF LRSH SUB1 SELECTQ DSPOPERATION) +\STRINGWIDTH.GENERIC (ADD1 \GETBASEFAT \GETBASE \GETBASETHIN \GETBASEBYTE PLUS \CHARSET LRSH +\GETCHARSETINFO \GETBASEPTR UNFOLD LLSH \CREATECHARSET \FGETWIDTH \CHAR8CODE LOGAND \FGETCHARWIDTH +SUB1 IPLUS FUNCTION) PRINT-EVENT (EXEC-EVENT-INPUT \GETSTREAM STRINGWIDTH LISTGET MAX DSPXPOSITION +FMEMB LDIFF CL:GETF LISPXREPRINT EXEC-PRIN1) SUPERPRINT/COMMENT1 (EDITDATE? IDIFFERENCE DSPFONT WIDTH +STRINGWIDTH BLANKS TIMES FIXR FLOATP IMAX IQUOTIENT IMIN) \PROTECTED.APPLY (ERSETQ APPLY*) DSPCLEOL ( +\CARET.DOWN \GETDISPLAYDATA \DTEST \OUTSTREAMARG \GETSTREAM BITBLT FIXP IDIFFERENCE FONTPROP IMAX +IMINUS) \DSPCLIPPINGREGION.DISPLAY (\GETDISPLAYDATA \DTEST \OUTSTREAMARG \GETSTREAM +\INVALIDATEDISPLAYCACHE) \CHARWIDTH.DISPLAY (\FGETCHARWIDTH \FGETWIDTH \GETBASE \GETCHARSETINFO +\GETBASEPTR UNFOLD LLSH \CHARSET LRSH \CREATECHARSET \CHAR8CODE LOGAND) MAPPAGES (PAGELOC IPLUS LLSH +\HILOC LRSH \LOLOC MKI.NEXTPAGE ADD1) REBINDP (FMEMB REBINDP) GRAPHOBJ.CHECKALIGN (NUMBERP LIST) +COMPILER::*PREDICATE-CONTEXT* (COMPILER:MAKE-CONTEXT) \STRINGWIDTH.DISPLAY (\STRINGWIDTH.GENERIC) +SEDIT::CLEAR-ALL-LINEAR-FORMS (SEDIT::WALK-UP-TREE SEDIT::SUBNODE CL:FUNCTION) PopUpWindowAndGetAtom ( +RESETLST RESETSAVE TTY.PROCESS THIS.PROCESS DEFAULTFONT WIDTHIFWINDOW IPLUS STRINGWIDTH ITIMES +CHARWIDTH CREATEW CREATEREGION IMIN IDIFFERENCE HEIGHTIFWINDOW FONTPROP OPENW LIST FUNCTION +PROMPTFORWORD PACK*) \CH.FIND.ORG.SERVER (ERROR MAPCAR APPEND SORT.NSADDRESSES.BY.DISTANCE NCONC1 CONS + \CH.FIND.ORG.SERVER GETCLEARINGHOUSE) \DSPOPERATION.DISPLAY (\GETDISPLAYDATA \DTEST \OUTSTREAMARG +\GETSTREAM FMEMB \SETPBTFUNCTION SELECTQ) PRINTERDEVICE (\CREATECOREDEVICE FUNCTION) MSBINDVAR (CONS +MSPRGERR) \10MBSENDPACKET (\ALLOCATE.ETHERPACKET LOCF \ADDBASE ADD1 \REQUEUE.ETHERPACKET) +\DEVICESYMBOL (\GETSTREAM \FONTSYMBOL) \FIXLINELENGTH.PSC (MIN FIX QUOTIENT DIFFERENCE) +\NEWPAGE.DISPLAY (DSPRESET) \BACKCOLOR.DISPLAY (\GETDISPLAYDATA \DTEST \OUTSTREAMARG \GETSTREAM +BITMAPHEIGHT LOGAND COLORNUMBERP) SEDIT::DEFAULT-GETDEF-FN (GETDEF) COURIER.EXECUTE.EXPEDITED.CALL ( +RESETLST OPENNSOCKET LIST CREATE.PACKET.EXCHANGE.XIP \BUILD.EXPEDITED.XIP \SEND.EXPEDITED.XIP +COURIER.OPEN FUNCTION COURIER.EXECUTE.CALL) \BLTSHADE.DISPLAY (DSPDESTINATION \TOTOPWDS \DSPTRANSFORMX + IPLUS \DSPTRANSFORMY IMAX IMIN SELECTQ TYPENAME COLORNUMBERP \ILLEGAL.ARG LOGAND MAXIMUMSHADE ITIMES +COLORTEXTUREFROMCOLOR# \GETBASE IDIFFERENCE \SFInvert) \OK.TO.IDLE? (RESETLST OBTAIN.MONITORLOCK) +PRINTCODE (\GET-COMPILED-CODE-BASE GET ERROR NUMFORMATCODE LIST UNFOLD LLSH CODEBASELT2 LOGOR +CODEBASELT \GETBASEBYTE LOGXOR ADD1 PRIN1 printout PRIN2 1ST FFETCHFIELD PLUS IDIFFERENCE - IPLUS +FOLDLO LRSH \GETBASEPTR TERPRI CLRHASH GETHASH \FINDOP NEXTBYTE ALLOCAL CONS LOGAND SUB1 LOCAL ASSOC +SELECTQ PUTHASH \INDEXATOMDEF \VAG2 \INDEXATOMPNAME \TYPENAMEFROMNUMBER NTH) \NSFILING.DESERIALIZE1 ( +FILING.CALL CL:MULTIPLE-VALUE-PROG1 .UNWIND.PROTECT. FUNCTION CL:FUNCALL \BULK.DATA.CLOSE) +SETFONTCLASSCOMPONENT (FONTCREATE FONTPROP SASSOC FREPLACEFIELD CONS FFETCHFIELD) MAKEROOMFORPME ( +\GETBASE \ADDBASE IPLUS) SETUPHASHARRAY (GETATOMVAL HASHARRAYP HASHARRAY) \TEXTINIT (FUNCTION) +\BITBLT.DISPLAY (IMIN IDIFFERENCE \GETDISPLAYDATA \DTEST \OUTSTREAMARG \GETSTREAM IMAX \DSPTRANSFORMX +IPLUS \DSPTRANSFORMY .WHILE.TOP.DS. DSPDESTINATION \GETBASE \TOTOPWDS \BITBLT.BITMAP WINDOWPROP +BITMAPCREATE BITBLT COLORIZEBITMAP MAXIMUMCOLOR UNCOLORIZEBITMAP COLORMAP MAXIMUMSHADE +INSURE.B&W.TEXTURE LOGXOR LOGAND INVERT.TEXTURE.BITMAP COLORNUMBERP \ILLEGAL.ARG +COLORTEXTUREFROMCOLOR# ITIMES \SFInvert SPREADAPPLY*) \PFCreateRootDirectory (UNINTERRUPTABLY +\PFVolumeNumber \PFNewPages) INSPECT/TYPELESS (\ADDBASE IMINUS INSPECT/HUNK IDIFFERENCE UNFOLD LLSH +INSPECT/AS/BLOCKRECORD) PRINTCODENT (IPLUS TERPRI CONSTANT SUB1 BYTESPERNAMEENTRY LLSH +WORDSPERNAMEENTRY CODEBASELT \GETBASEBYTE LOGXOR PLUS \INDEXATOMVAL \VAG2 LRSH LOGAND CODEBASEGETNAME +GETNTOFFSET GETNTOFFSETENTRY BYTESPERNTOFFSETENTRY LOGOR SELECTC NTSLOT-VARTYPE CONS LIST PRIN2) +\UTF16.BACKCHARFN (SET IPLUS ADD1) DELETETO1 (BLTCHAR TTYDISPLAYSTREAM SUB1) POLYSHADE.DISPLAY ( +PREPLOOP MAPCAR \POLYSHADE.DISPLAY) LISPXPRINTDEF0 (RESETFORM OUTPUT PRINTDEF) TYPEP (CL:GETHASH +CL:FUNCALL) MSPRGCALL (ADDTO SELECTQ) NTH.COLUMN.OF (NTH.RELATIVE.COLUMN.OF IDIFFERENCE) FONTUNPARSE ( +FONTPROP CONS FONTCLASSUNPARSE PACK LIST* NTHCHAR LIST SHOULDNT) CODEWRAPPER.PRETTYPRINT ( +INDENTATION.FROM.HERE) FONTCLASSUNPARSE (APPEND LIST FONTUNPARSE MAPCAR) \DSPRESET.DISPLAY (\DTEST +\OUTSTREAMARG \GETSTREAM WFROMDS WXOFFSET WYOFFSET FONTASCENT ADD1 IDIFFERENCE IPLUS WINDOWPROP +PROCESS.TTY) SEQUENTIAL.PRETTYPRINT (DSPXPOSITION PRINTDEF GET CL:FUNCALL SUBPRINT/WRAPPERTAIL) CSUBST + (ASSOC SELECTQ LIST RECORDBIND COPY1 MAKECREATE1 SHOULDNT RECORD.FIELD.VALUE0 MAKEACCESS ACCESSDEF4 +GETP RECONS CSUBSTLST CSUBST GETHASH RECLISPLOOKUP SUBPAIR MKPROGN) COMPILER::*NULL-CONTEXT* ( +COMPILER:MAKE-CONTEXT) FONTPROP (\GETFONTDESC SELECTQ COPY LIST FONTPROP \ILLEGAL.ARG) +BROWSE/LAYOUT/HORIZ/COMPACTLY (GETNODEFROMID PACK CONS IMINUS FASSOC DREMOVE) \CH.LOCATE.SERVERS ( +COURIER.OPEN RESETSAVE LIST FUNCTION CH.RETRIEVE.MEMBERS CH.PROPERTY SORT.NSADDRESSES.BY.DISTANCE +COURIER.CALL CH.GETAUTHENTICATOR COURIER.READ.REP CH.DOMAINS.SERVED) FONTCLASSCOMPONENT (FONTCREATE) +\SCALEDBITBLT.DISPLAY (DSPCLIPPINGREGION BITMAPWIDTH BITMAPHEIGHT DSPYPOSITION DSPXPOSITION +BITMAPCREATE BITBLT EXPANDBITMAP TIMES) \FILLCIRCLE.DISPLAY (FIXR \ILLEGAL.ARG GLOBALRESOURCE ITIMES +IDIFFERENCE SUB1 BITMAPP COLORTEXTUREFROMCOLOR# COLORNUMBERP DSPCOLOR INSURE.B&W.TEXTURE BITMAPCREATE +\SFReplicate LOGOR LLSH LOGAND LRSH UNFOLD IMIN SELECTQ \DSPTRANSFORMX IPLUS \DSPTRANSFORMY \SFInvert +DSPDESTINATION \TOTOPWDS \GETBASE ADD1 \LINEBLT GETRESOURCE NEWRESOURCE NCREATE) +COMPILER::CLOSURE-ANNOTATE-THROW (CL:UNION COMPILER::CLOSURE-ANNOTATE COMPILER::THROW-TAG +COMPILER::THROW-VALUE) \TEDIT.CLEAR.SCREEN.BELOW.LINE (BITBLT IDIFFERENCE) MAKECREATE1 (SELECTQ +SMASHPATTERN MAKECREATELST LIST DREVERSE CREATEFIELDS GETFIELDFORCREATE KWOTE ASSOC COPY CSUBST EVAL +EMBEDPROG CONS MAPCAR MAPCONC SHOULDNT FUNCTION RECORDBIND SUBSET CADR RECORDERROR RECORDBINDVAL +REVERSE MAKEACCESS ACCESSDEF4 FRPLACA MKPROGN MAKEHASHLINKS) COMPILER::*EFFECT-CONTEXT* (COMPILER:MAKE-CONTEXT +) PRINT-EVENT-PROMPT (\GETSTREAM EXEC-EVENT-ID CL:FORMAT ENTRY#) EDITDATE? (NCHARS NTHCHARCODE PLUS >= + CL:LENGTH ILESSP) \DRAWLINE.DISPLAY (DSPDESTINATION \TOTOPWDS INSURE.BRUSH \LINEWITHBRUSH +\GOOD.DASHLST GETRESOURCE NEWRESOURCE NCREATE \DSPTRANSFORMX IPLUS FIXP FIXR \DSPTRANSFORMY SUB1 +MOVETO) INSPECTCODE (\TEDIT.INSPECTCODE DECODE.WINDOW.ARG CONCAT FUNCTION MAKE-INSPECTOR-PROFILE +\INSPECT/CODE/RESHAPEFN) CASE.PRETTYPRINT (INDENTATION.FROM.HERE DSPXPOSITION + TIMES CHARWIDTH +STRINGWIDTH - DSPRIGHTMARGIN) FILL.XPER (FILL.INITTBLE DSPDESTINATION \GETBASE \TOTOPWDS PLUS) +\DSPYPOSITION.DISPLAY (\INVALIDATEDISPLAYCACHE) FILL.TEST (FILL.INITTBLE PLUS) \DRAWELLIPSE.DISPLAY ( +FIXR / COS SIN ITIMES \GETCOLORBRUSH MAXIMUMCOLOR DSPCOLOR OPPOSITECOLOR \GETBRUSH \GETBRUSHBBT SUB1 +IDIFFERENCE \DSPTRANSFORMX IPLUS FOLDLO LRSH \DSPTRANSFORMY DSPDESTINATION \TOTOPWDS FPLUS FTIMES LSH +FQUOTIENT SQRT FDIFFERENCE ABS IMINUS RSH \GETBASE \FBITMAPBIT \BBTCURVEPT MINUSP ADD1 GETRESOURCE +NEWRESOURCE NCREATE) MSPRGMACRO (MACROEXPANSION INCLISP) FIND.LINE.BREAK (TTNEXTCHAR) +\DRAWCIRCLE.DISPLAY (FIXR \ILLEGAL.ARG DRAWCURVE \COMPUTE.ARC.POINTS GLOBALRESOURCE ITIMES IDIFFERENCE + \GETCOLORBRUSH MAXIMUMCOLOR DSPCOLOR OPPOSITECOLOR \GETBRUSH \GETBRUSHBBT SUB1 \DSPTRANSFORMX IPLUS +FOLDLO LRSH IQUOTIENT \DSPTRANSFORMY DSPDESTINATION \TOTOPWDS \GETBASE \FBITMAPBIT \BBTCURVEPT ADD1 +UNFOLD LLSH \CURVEPT GETRESOURCE NEWRESOURCE NCREATE) INDENTATION.FROM.HERE (+ DSPXPOSITION TIMES +CHARWIDTH) PREPLOOP (LIST NORMLOOP IRNDLIST SLITLOOP NCONC) COPIEDFILEPATTERN (U-CASE NCONC LIST ERROR + LDIFF COPIEDFILEPATTERN COPIEDFILEMATCH) SEDIT::CREATE-STRING-ITEM (SEDIT::STRINGWIDTH) +PROG1.PRETTYPRINT (INDENTATION.FROM.HERE DSPXPOSITION) COMPILER::CLOSURE-ANNOTATE-TAGBODY ( +COMPILER::TAGBODY-SEGMENTS CL:UNION COMPILER::SEGMENT-STMTS COMPILER::CLOSURE-ANNOTATE +COMPILER::TAGBODY-BLIP-VAR COMPILER::MAKE-VARIABLE COMPILER::TAGBODY-CLOSED-OVER-VARS CONS) +\AVGCHARWIDTH (CHARWIDTH FIXR FTIMES FONTPROP) FIND-STACK-FRAME (FIND-DEBUGGER-ENTRY-FRAME STKNTH) +SETFONTDESCRIPTOR (\DEVICESYMBOL \COERCEFONTDESC \FONTSYMBOL \FONTFACE IGEQ FASSOC CONS LIST FRPLACD +SASSOC) PRINT-HISTORY (FIND-HISTORY-EVENTS HISTORY-EVENTS TERPRI CL:VALUES) SUPERPRINT0 (GET CL:FUNCALL + SUPERPRINT/WRAPPER ASSOC APPLY* SUPERPRINT RPARS IPLUS DSPXPOSITION WIDTH STRINGWIDTH) \LOOKUPFONT ( +FASSOC SASSOC \FONT.SYMBOLASSOC) PROGV.PRETTYPRINT (INDENTATION.FROM.HERE DSPXPOSITION) +COMPILER::META-SUBST-IF (COMPILER::MSUBST COMPILER::META-SUBST COMPILER::IF-PRED REPLACEFIELD) +\DRAWLINE.PSC (FLOATP POSTSCRIPT.PUTCOMMAND TIMES) \FONTSYMBOL (U-CASE MKATOM ERROR) \DSPFONT.DISPLAY +(\COERCEFONTDESC FONTCOPY CONS ERROR IMINUS \FGETCHARWIDTH \FGETWIDTH \GETBASE \GETCHARSETINFO +\GETBASEPTR UNFOLD LLSH \CHARSET LRSH \CREATECHARSET \CHAR8CODE LOGAND \SFFixFont) DUMPINITPAGES ( +PAGELOC IPLUS LLSH \HILOC LRSH \LOLOC SUB1 PLUS ADD1 FUNCTION \GETBASE .PAGEMAPBASE. \ADDBASE OUTPUT +OPENFILE CLOSEF DUMPVP) DO.PRETTYPRINT (DSPXPOSITION + MIN TIMES IQUOTIENT -) MSPRGE (SELECTQ ADDTO +LTEMPLATE GETHASH MSPRGTEMPLATE GETP GETPROP MSDWIMTRAN MSPRGRECORD INCLISP MSPRGE MSPRGLST +CL:MACRO-FUNCTION CL:MACROEXPAND GETMACROPROP) NTH.RELATIVE.COLUMN.OF (TTBITWIDTH IDIFFERENCE) +XCL::VARIABLE-LEXICALLY-BOUNDP (CL:VALUES CL:MEMBER CL:FUNCTION XCL::VARIABLE-SPECIAL-P) PRINTPROG ( +IDIFFERENCE DSPXPOSITION STRINGWIDTH IPLUS) COMPILER::META-SUBST-CALL (COMPILER::META-SUBST-ANY-CALL +COMPILER::CALL-FN COMPILER::CALL-ARGS) \FONTFACE (\FONT.SYMBOLMEMB NCHARS SELCHARQ CHCON1 NTHCHARCODE +SELECTQ \FONTFACE.COLOR CONSTANT) \DSPLEFTMARGIN.DISPLAY (\SFFIXLINELENGTH) INTPOWERS (CL:MAKE-ARRAY) +CREATEFIELDS (NCONC SUBSET LIST) COMPILER::*ARGUMENT-CONTEXT* (COMPILER:MAKE-CONTEXT) +COURIER.EXPEDITED.CALL (ARG \GET.COURIERPROGRAM GETHASH ERROR \GET.COURIER.DEFINITION LENGTH CONS +SELECTQ IDIFFERENCE IPLUS LIST PLUS COURIER.EXECUTE.EXPEDITED.CALL) \DSPRIGHTMARGIN.DISPLAY (EQUAL +\SFFIXLINELENGTH) SUBPRINT (DSPXPOSITION SUPERPRINTGETPROP PRINDOTP DSPYPOSITION GET CL:FUNCALL +SETFONT SUPERPRINT NTHCHAR SELECTQ FASSOC IPLUS WIDTH STRINGWIDTH PRINTPROG PRINTSQ BLANKS TIMES +SUBPRINT1 IMIN SUBPRINT/ENDLINE SUBPRINT GETP NLEFT) FIND-LEXICAL-ENVIRONMENT (DECLARE STKPOS STKARG) +LISPXPRINTDEF (LIST LISPXPRINTDEF0) ADDFILE0 (FILECOMS FMEMB GETTOPVAL MISSPELLED? LIST CONS) +\MAP-CODE-POINTERS (NTYPX \ADDBASE IMINUS \GETDTD ITIMES ERROR \FINDOP CODEBASELT \GETBASEBYTE LOGXOR +PLUS CODEBASELT3 BIG-VMEM-CODE \VAG2 LOGOR LLSH ADD1 IPLUS) CH.PROPERTY (FIXP ERROR) \FONT.SYMBOLASSOC + (NCHARS CHCON1 IDIFFERENCE) LISP-TO-UNIX-TERMTYPE (ASSOC CL:STRING-DOWNCASE) \MAP-CODE-LITERALS ( +NTYPX \ADDBASE IMINUS \GETDTD ITIMES ERROR UNFOLD LLSH \INDEXATOMVAL \VAG2 LRSH LOGAND GETNAMEENTRY +CONSTANT SUB1 BYTESPERNAMEENTRY WORDSPERNAMEENTRY LOGOR CODEBASELT \GETBASEBYTE LOGXOR IPLUS PLUS +\FINDOP \INDEXATOMDEF CODEBASELT3 BIG-VMEM-CODE ADD1 IDIFFERENCE BYTESPERCODEATOM \INDEXATOMPNAME +CODEBASELT2) \DRAWCURVE.PSC (TERPRI TIMES PARAMETRICSPLINE SELECTQ ELT FQUOTIENT FPLUS FDIFFERENCE +PLUS) \FONT.COMPARESYMBOL (CL:AREF \PNAMECELL \ATOMCELL U-CASE NCHARS CHCON1 IDIFFERENCE ADD1 +\GETBASEFAT \GETBASE \GETBASETHIN \GETBASEBYTE IPLUS CONSTANT) CHECKIFPAGE (CHECKIF printout TERPRI) +PFI.HANDLE.EXPR (PRINT PFI.PRETTYPRINT CL:FUNCALL ASSOC FUNCTION) DSFIT1 (IDIFFERENCE IPLUS WIDTH +STRINGWIDTH BLANKS TIMES) \IDLE.TIME (IDIFFERENCE IDATE CONSTANT GDATE IPLUS CONCAT QUOTIENT) +SEDIT::DELETE-NODES (CL:FUNCALL) \PFPutRootDirectory (\PFVolumeNumber \VFMGetPageGroup) +\DRAWCURVE.DISPLAY (GLOBALRESOURCE \GOOD.DASHLST LENGTH PARAMETRICSPLINE GETRESOURCE NEWRESOURCE +NCREATE) INSPECT/DATATYPE (RECLOOK SYSRECLOOK1 FINDRECDECL FINDSYSRECDECL INSPECTW.CREATE +INSPECTABLEFIELDNAMES CL:FORMAT \HILOC \LOLOC \GETDTD \ADDBASE ITIMES NTYPX LENGTH LIST PLUS SELECTQ +ALISTP PRIN1) PRINTSQ (QUOTIENT PLUS DSPXPOSITION IPLUS TIMES DIFFERENCE PRINDOTP) CH.IS.IN.DOMAIN.ACL + (CH.GETAUTHENTICATOR COURIER.CALL CH.FINDSERVER PARSE.NSNAME CH.PROPERTY COURIER.FETCH) INSPECT/HUNK +(INSPECTCODE INSPECT/MAKE/CCODEP MENU LIST-ALL-BLOCKRECORDS CONS INSPECT/AS/BLOCKRECORD IMIN SUB1 +IQUOTIENT UNFOLD LLSH LIST PLUS) COMPILER::CLOSURE-ANNOTATE-SETQ (CL:ADJOIN COMPILER::SETQ-VAR +COMPILER::CLOSURE-ANNOTATE COMPILER::SETQ-VALUE) FIND-HISTORY-EVENTS (HISTORY-EVENTS CL:MEMBER APPEND +FIND-HISTORY-EVENTS LDIFF LIST NCONC1) BACKARROWP (NTHCHARCODE) \PFCurrentVol (\PFGetVols FMESAELT +\ADDBASE IPLUS ILEQ ITIMES IDIFFERENCE) UTF16BE.INCCODEFN (\BIN LOGOR LLSH IDIFFERENCE ERROR) +\4DISPLAYINIT (FUNCTION \DEFINEDEVICE) RPARS (ILEQ SELECTQ RPARS LAST SUB1) CH.RETRIEVE.PROPERTY.ACL ( +CH.GETAUTHENTICATOR COURIER.CALL CH.FINDSERVER PARSE.NSNAME CH.PROPERTY COURIER.FETCH) +DBG::COLLECT-ACTIVE-ESCAPES (ENVAPPLY STKNTH CL:DELETE-DUPLICATES CL:FUNCTION) XCL::VARIABLE-LEXICAL-P + (XCL::VARIABLE-SPECIAL-P CL:MEMBER CL:FUNCTION) COMPILER::META-SUBST-BLOCK (COMPILER::MSUBST +COMPILER::META-SUBST COMPILER::BLOCK-STMT REPLACEFIELD COMPILER::NODE-META-P) /PUT-1 (GETPROPLIST LIST +) FONTHEIGHT (\GETFONTDESC) \PFGetRootDirectory (\GetRootDirectoryType \PFVolumeNumber +\VFMGetPageGroup) DSFIT2 (IDIFFERENCE WIDTH STRINGWIDTH DSFIT1 IPLUS BLANKS TIMES SELECTQ ADD1 +SUPERPRINTGETPROP) COMPILER::META-SUBST-CATCH (COMPILER::MSUBST COMPILER::META-SUBST COMPILER::CATCH-TAG + REPLACEFIELD) FONTDESCENT (\GETFONTDESC) HISTORY-NTH (EXEC-EVENT-ID) XCL::GET-IMPLICIT-KEY-HASH ( +CL:ERROR) SEGMENT.BIT.LENGTH (PLUS FCHARWIDTH CHARWIDTH) \DSPBACKCOLOR.DISPLAY (\GETDISPLAYDATA \DTEST + \OUTSTREAMARG \GETSTREAM COLORNUMBERP CONS MAXIMUMCOLOR) SUBPRINT1 (GETPROP) \DSPCOLOR.DISPLAY ( +\GETDISPLAYDATA \DTEST \OUTSTREAMARG \GETSTREAM BITSPERPIXEL COLORNUMBERP CONS MAXIMUMCOLOR) +UTF16BE.PEEKCCODEFN (\PEEKBIN LOGOR LLSH UNICODE.TRANSLATE CL:SVREF LRSH FASSOC LOGAND +UNICODE.UNMAPPED ERROR LIST) LLBREAK (\GET-COMPILED-DEFINITION CONS PACK* GENSYM BROKENDEF) +MAKECREATE0 (RECORD.FIELDINFO MAKECREATE1 RECORD.CREATEINFO) BROWSE/LAYOUT/HORIZ (IPLUS BRH/LAYOUT +GETNODEFROMID) XCL::VARIABLE-SPECIAL-P (XCL::VARIABLE-GLOBALLY-SPECIAL-P) TEDIT.SCAN.LINE (FIXR FTIMES + IMAX SUB1 \EDITELT GETBASEPTR \GETBASEPTR \ADDBASE2 \ADDBASE PLUS IDIFFERENCE ADD1 LRSH IPLUS IMIN) +/PUTD (GETD LIST) PopUpWindowAndGetList (RESETLST RESETSAVE TTY.PROCESS THIS.PROCESS DEFAULTFONT +WIDTHIFWINDOW IPLUS STRINGWIDTH ITIMES CHARWIDTH CREATEW CREATEREGION IMIN IDIFFERENCE HEIGHTIFWINDOW +TIMES FONTPROP TTYDISPLAYSTREAM TTYIN) PRINTPROGVARS (SUPERPRINT) COMPILER::CLOSURE-ANNOTATE-PROGV ( +CL:UNION COMPILER::CLOSURE-ANNOTATE COMPILER::PROGV-SYMS-EXPR COMPILER::PROGV-VALS-EXPR COMPILER::PROGV-STMT +) FONTASCENT (\GETFONTDESC) NEW/INSTANCE/OF/GRAPHNODE (LIST COPY CONS) BROKENDEF ( +\GET-COMPILED-CODE-BASE LISPERROR UNFOLD LLSH \#BLOCKDATACELLS \ALLOC.CODE.BLOCK + CEIL LOGAND IPLUS +ADD1 FOLDHI LRSH CONSTANT SUB1 LOGXOR \PUTBASEBYTE \FINDOP - PLUS OPCODES CODEBASELT \GETBASEBYTE) +TEDIT.PROMPTFLASH (TEXTOBJ WINDOWPROP \TEDIT.MAINW GETPROMPTWINDOW) RENAME (GETFILEPKGTYPE) LISPXPRIN2 + (LIST CONS PRIN2) \IDLE.EXIT? (RESETLST RESETSAVE TTYDISPLAYSTREAM CLEARBUF LISTGET USERNAME NCHARS +PROMPTFORWORD CONCAT LIST ADD.PROCESS NLSETQ \LOGIN.READ MKSTRING EQUAL TERPRI) UNDOLISPX1 (UNDOLISPX2 + FMEMB UNDOPRINT) LISPXSPACES (LIST CONS SPACES) MISSPELLED? (PRINT FIXSPELL) /ADDPROP (LIST +GETPROPLIST CONS /NCONC1) \DRAWCIRCLE.PSC (TERPRI POSTSCRIPT.PUTCOMMAND TIMES \MOVETO.PSC) ADDPME ( +\GETBASE \ADDBASE IGREATERP PAGELOC IPLUS LLSH \HILOC LRSH \LOLOC .LOCKEDVPBASE. FOLDLO LOGOR +.LOCKEDVPMASK. IMOD ADD1) BRHL/MOVE/RIGHT (IDIFFERENCE HALF LRSH TOLINKS IPLUS CONS GETNODEFROMID) +PFI.PRINT.TO.TAB (- TIMES DSPSCALE CHANGEFONT) FM.TOPGROUPID (\FM.DTOPGROUPID WINDOWPROP +\FM.INSUREWINDOW ERROR) SAVEPUT (LIST GETPROPLIST EQUALN CONS) MSINITFNDATA (MAPC FRPLACD) +XCL::PUT-IMPLICIT-KEY-HASH (CL:ERROR \EQHASHINGBITS LOGXOR \HILOC LLSH LOGAND \LOLOC LRSH +XCL::IK-HASH-LAST-INDEX XCL::IK-HASH-BASE XCL::IK-HASH-KEY-ACCESSOR XCL::IK-HASH-NUM-KEYS +XCL::IK-HASH-NULL-SLOTS) SEDIT::CREATE-PRETTY-PRINT-ENV (FONTCREATE CHARWIDTH FIXR TIMES +SEDIT::CREATE-CONSTANT-STRINGS) COMPILER::META-EVAL-LABELS (COMPILER::MEVAL COMPILER::META-EVALUATE +COMPILER::LABELS-BODY REPLACEFIELD COMPILER::ANALYZE-TREE COMPILER::META-CALL-LABELS) VOLUMESIZE ( +\LFEntryPoint) FM.WHICHITEM (WHICHW \FM.CHECKREGION WINDOWPROP \FM.ITEMPROP FFETCHFIELD LISTGET IPLUS +ILESSP LASTMOUSEY LASTMOUSEX) UTF16BE.OUTCHARFN (IPLUS FFETCHFIELD UNICODE.TRANSLATE CL:SVREF LRSH +FASSOC LOGAND UNICODE.UNMAPPED) SEDIT::CREATE-PRELINEARIZED-NODE (SEDIT::CREATE-SIMPLE-NODE ADD1) +FONTSET (FASSOC FONTCREATE /SETTOPVAL CONS ASSOC SELECTQ FONTCLASS GETTOPVAL EVAL) +COMPILER::CLOSURE-ANNOTATE-RETURN (COMPILER::CLOSURE-ANNOTATE COMPILER::RETURN-VALUE) GO.TO.RELATIVE ( ++ TIMES SUB1 -) \8DISPLAYINIT (FUNCTION \DEFINEDEVICE) /PUTPROP (LIST GETPROPLIST CONS) +\DRAWELLIPSE.PSC (TERPRI TIMES \MOVETO.PSC) PRINTOPCODES (TERPRI MAPC LIST \FINDOP PRIN1 PRINTNUM) +SIMPLEP (IDIFFERENCE LENGTH GETP SIMPLEP SELECTQ GETHASH) GETCHARBITMAP (CHCON1 CL:CHAR-INT +\GETFONTDESC \GETCHARSETINFO \GETBASEPTR UNFOLD LLSH \CHARSET LRSH \CREATECHARSET BITMAPCREATE +\FGETIMAGEWIDTH \GETBASE \CHAR8CODE LOGAND \FGETWIDTH FONTPROP \FGETOFFSET) BRHL/LAYOUT (IPLUS HALF +LRSH IMAX BRHL/LAYOUT/DAUGHTERS LIST) MakeMenuOfImageTypes (LIST L-CASE KWOTE) TTYINPROMPTFORWORD ( +GETSTREAM NON-TTYIN-PROMPTFORWORD RESETLST RESETSAVE TTY.PROCESS THIS.PROCESS TTYDISPLAYSTREAM TTYIN +NTHCHARCODE CONCAT STRINGP MKSTRING) TOGGLE/SIDESFLG (WINDOWPROP DSPTEXTURE REDISPLAYGRAPH) ALLCALLS ( +CONS LIST) RPLNODE2 (ERRORX LIST RPLNODE) \PFGetVols (SUB1 \PFGetVol LIST PLUS) FM.ENDEDIT (ERROR +\FM.ENDEDIT) SEDIT::CREATE-NODE (LIST ADD1 SEDIT::CREATE-WEAK-LINK) SI::*CLOSURE-CACHE* ( +XCL::MAKE-IMPLICIT-KEY-HASH-TABLE) \CORE.UPDATEOF (UNINTERRUPTABLY PLUS FFETCHFIELD) +TOPATTACHEDWINDOWS (MAPC ATTACHEDWINDOWS TOPATTACHEDWINDOWS) SEDIT::START-COMMENT (LIST +SEDIT::CREATE-NEW-COMMENT) PUTCHARBITMAP (TYPENAMEP CHARCODEP CHCON1) FILES.PUTDEF (FILECOMS +FILEPKG.MERGECHANGES) /SETATOMVAL (ERRORX LIST GETATOMVAL SETATOMVAL) \DUMPEXPORTS (SUBSTRING +PRETTYCOM TERPRI) \NSFILING.COPYFILE (FUNCTION \NSFILING.COPY/RENAME \GENERIC.COPYFILE) +GET-NEXT-HISTORY-EVENT (HISTORY-EVENTS MAKE-EXEC-EVENT LIST* HISTORY-INDEX CL:NTHCDR CL:1- +HISTORY-SIZE) \TEDIT.ADJUST.LINES (IPLUS TEXTPROP PLUS FFETCHFIELD IDIFFERENCE IMINUS) +COMPILER::SET-CONSTANT-VALUE (CL:GETHASH LIST) \FAST4BIT (\ADDBASE IGREATERP ELT PLUS) SEDIT::TTYEXITFN + (PROCESSPROP WINDOWPROP PROCESS.EVAL LIST) \CORE.DELETEFILE (\CORE.GETINFOBLOCK SPREADAPPLY* RPLACD +LIST) \SHOWTEXT (\TEDIT.PRIMARYW DSPCLIPPINGREGION RESETLST RESETSAVE CURSOR WINDOWPROP SUB1 +\FILLWINDOW \TEDIT.SET.WINDOW.EXTENT) CLEARFILEPKG (SUBSET) HISTORY-ADD-TO-SPELLING-LISTS (ADDSPELL) +\CORE.GETINFOBLOCK (\CORE.NAMESCAN FASSOC \CORE.PACKFILENAME FRPLACD CONS ADD1 FLAST) WINDOWTITLEFONT +(DSPFONT) CHAT.STARTUP (THIS.PROCESS STRPOS CL:ASSOC SUBSTRING ADD1 ASSOC CONCAT SUB1 CL:FUNCALL SORT +CONS CHAT.CHOOSE.EMULATOR GETCHATWINDOW WINDOWPROP KEYACTIONTABLE GETHOSTINFO CURRENTINTERRUPTS LIST +LISTGET MAPC INTCHAR KEYACTION FUNCTION CHAT.TYPEIN PRIN1 GETPROMPTWINDOW) \CORE.DIRECTORYNAMEP ( +UNPACKFILENAME.STRING > NCHARS) VOLUMES (SELECTQ MACHINETYPE MAPCAR \PFGetVols MKATOM U-CASE) +FM.EDITITEM (ERROR \FM.INSUREFM \FM.COERCEITEMPTR \FM.ITEMPROP FFETCHFIELD FM.GETITEM ADD.PROCESS) +MAPFILES1 (RESETLST \GENERATEFILES MKLIST \GENERATENEXTFILE NCHARS - NTHCHARCODE \GENERATEFILEINFO) +XCL::VARIABLE-GLOBALLY-SPECIAL-P (VARIABLE-GLOBALLY-SPECIAL-P GET) XCL:UNBREAK-FUNCTION (MAPCONC +XCL:UNBREAK-FUNCTION GET GETD CL:DELETE LIST CL:FIND-IF CL:FUNCTION CL:THIRD) \CORE.FINDPAGE ( +\ALLOCBLOCK FOLDHI LRSH IPLUS CONS) RECORDBINDVAL (RECORDBIND) \10MBGETPACKET (\DEQUEUE) +MOVECHARBITMAP (\GETFONTDESC GETCHARBITMAP FONTPROP IMAX BITMAPCREATE BITMAPWIDTH IPLUS IDIFFERENCE +IMIN) SPP.SENDATTENTION (GETSPPCON FFETCHFIELD \FILLINSPP LOGOR PLUS LOCF \ADDBASE \SENDSPP) +TEDIT.SELECT.LINE.SCANNER (DSPCLIPPINGREGION TEDIT.SCAN.LINE \TEDIT.PARABOUNDS +\TEDIT.FIND.PROTECTED.START \TEDIT.FIND.PROTECTED.END \FORMATLINE ADD1 IDIFFERENCE IPLUS) +\TEDIT.UNIQUIFY.CHARLOOKS (CONS FFETCHFIELD) \CORE.GENERATEFILES (DIRECTORY.MATCH.SETUP FILENAMEFIELD +MAPCONC NCONC ASSOC LIST CONCAT MAPCAR FUNCTION CONS) COMP.VALN (COMP.PROGN) +CH.DELETE.MEMBER.FROM.DOMAIN.ACL (CH.CANONICAL.NAME CH.GETAUTHENTICATOR COURIER.EXPEDITED.CALL +CH.FINDSERVER PARSE.NSNAME COURIER.FETCH) COMPILER::CLOSURE-ANNOTATE-PROGN (COMPILER::PROGN-STMTS +CL:UNION COMPILER::CLOSURE-ANNOTATE) FILL.INCY (IPLUS) DIRECTORY.MATCH (NTHCHARCODE PLUS +DIRECTORY.MATCH1) TRAPMAKE (HEADPT NEXTPT XYPT.Y LIST LAST CONS TERPRI MERGE LENGTH) TYPE.BUFFER ( +TTBOUT BLTCHAR TTYDISPLAYSTREAM TTBITWIDTH PLUS) FONTCOPY (\GETFONTDESC ARG LISTGET ADD1 PLUS +\FONTFACE SELECTQ \ILLEGAL.ARG FONTCREATE) FORK-SHELL (FORK-UNIX) DIRECTORY.MATCH.SETUP (CHCON +UPPERCASEARRAY SELCHARQ GETCASEARRAY) NETWORKLOGINFO (LIST MKSTRING) \FILLCIRCLE.PSC (BITMAPCREATE MIN + LSH TIMES QUOTIENT DSPSCALE \MOVETO.PSC) \CHTOPC (IPLUS \GETBASEFIXP \GETBASEPTR - PLUS) +TOGGLE/DIRECTEDFLG (WINDOWPROP DSPTEXTURE REDISPLAYGRAPH) \CORE.FILEINFOFN ( +\CORE.GETFILEINFO.FROM.INFOBLOCK) FONTSAVAILABLE (IMAGESTREAMTYPE FONTSAVAILABLE DEFAULTFONT +\COERCEFONTDESC DSPFONT FONTPROP LITATOM IGREATERP \FONTFACE U-CASEP U-CASE IGEQ UNION +\LOOKUPFONTSINCORE MAPCONC APPLY* ASSOC FUNCTION) FONTPROFILE.ADDDEVICE (U-CASE ASSOC FONTSET) +SEDIT::STRINGWIDTH (MKSTRING ITIMES CHARWIDTH SEDIT::ESCAPE-CHAR FFETCHFIELD SUB1 IPLUS ADD1 +\GETBASEFAT \GETBASE \GETBASETHIN \GETBASEBYTE PLUS STRINGWIDTH) \CORE.NEXTFILEFN (FRPLACA NAMEFIELD) +LISPDIRECTORYP (WITH.MONITOR CL:MULTIPLE-VALUE-PROG1 .UNWIND.PROTECT. FUNCTION SELECTQ MACHINETYPE +\LFEntryPoint) FM.EDITP (WINDOWPROP \FM.INSUREWINDOW ERROR) \24DISPLAYINIT (FUNCTION \DEFINEDEVICE) +SEDIT::CREATE-ENVIRONMENTS (SEDIT::CREATE-COMMAND-TABLE LIST FONTCREATE CHARWIDTH FUNCTION ITIMES +SEDIT::CREATE-CONSTANT-STRINGS) NAMEFIELD (UNPACKFILENAME.STRING PACKFILENAME.STRING NCHARS MKATOM) +\TEDIT.PROCIDLEFN (DSPCLIPPINGREGION LASTMOUSEX LASTMOUSEY WINDOWPROP WHICHW \TEDIT.BUTTONEVENTFN) +COMPILER::CONSTANT-VALUE (CL:GETHASH) SEDIT::UPDATE-TITLE (WINDOWPROP) +\CORE.GETFILEINFO.FROM.INFOBLOCK (SELECTQ IPLUS FOLDHI LRSH GDATE SELECTC SHOULDNT) +DBG::ESCAPE-FROM-DEBUGGER (DBG::COLLECT-ACTIVE-ESCAPES DBG::KEYLIST-FROM-ESCAPE-LIST CL:FORMAT) +\LOOKUPFONTSINCORE (NCONC LIST) \CORE.GETFILEHANDLE (\CORE.GETINFOBLOCK SELECTQ LIST) CREATESCREEN ( +DSPCREATE BITMAPWIDTH BITMAPHEIGHT BITSPERPIXEL FUNCTION) BRHL/LAYOUT/DAUGHTERS (GETNODEFROMID +NEW/INSTANCE/OF/GRAPHNODE IPLUS BRHL/LAYOUT FRPLACA CONS IDIFFERENCE) UTF8.PEEKCCODEFN (\PEEKBIN LLSH +LOGOR LOADBYTE LOGAND LSH IMINUS MASK.1'S SUB1 LIST) EQUALHASH (EQUAL HARRAYPROP) \BLTSHADE.PSC ( +CREATEREGION INTERSECTREGIONS CL:1- SELECT BITMAPCREATE MIN QUOTIENT MINUS LSH TIMES DSPSCALE) +FONTFILEFORMAT (OPENP OPENSTREAM SELECTC \WIN IPLUS LLSH \BIN LIST LOGOR LRSH) PFI.PRINT.ENVIRONMENT ( +LISTGET SELECTQ READTABLEPROP CL:PACKAGE-NAME SHOULDNT TERPRI) REDISPLAYW (WINDOWOP SPREADAPPLY*) +\DISPLAYSTREAMTYPEBPP (SELECTQ SHOULDNT) COMP.VAL1 (COMP.PROG1) FONTMAPARRAY (ARRAY SETA ELT PLUS CONS + COPY) CH.LIST.DOMAINS (PARSE.NSNAME COURIER.CALL \CH.FIND.ORG.SERVER CH.GETAUTHENTICATOR) +\CORE.GETFILEINFO (\CORE.GETFILEINFO.FROM.INFOBLOCK \CORE.GETINFOBLOCK) RECEVAL (EVAL APPLY*) +VARS.PUTDEF (/SETTOPVAL) DBG::INVOKE-ESCAPE-FROM-MENU (DBG::MENU-FROM-ESCAPE-LIST +DBG::COLLECT-ACTIVE-ESCAPES MENU CL:FORMAT) NUMBERP (\TYPEMASK.UFN LRSH) \TFBRAVO.LCASER (CHCON +FRPLACA IPLUS PACKC) LISPX/1 (LISPX/1 FASSOC CONS APPEND NCONC MAPCAR ARGTYPE GETPROP GETHASH) SHAPEW +(\INSUREWINDOW WINDOWPROP MINIMUMWINDOWSIZE CREATEREGION IMAX GETREGION WINDOWREGION APPLY* MOVEW +COPYALL) KILLSEGMENT (FRPLNODE) SEDIT::CREATE-GAP-NODE (SEDIT::LINEAR-ITEM-WIDTH LIST CONS +SEDIT::CREATE-WEAK-LINK) OR (\EVAL) SHRINKBITMAP (BITSPERPIXEL BITMAPHEIGHT BITMAPWIDTH BITMAPCREATE +IQUOTIENT SUB1 PLUS) OPENATTACHEDWINDOWS (MAPC ATTACHEDWINDOWS OPENW) CL:BLOCK (\EVPROGN) \VAMInit ( +WITH.MONITOR CL:MULTIPLE-VALUE-PROG1 .UNWIND.PROTECT. FUNCTION \VAMBufferInit) FILEPKGCOMS.PUTDEF ( +ASSOC SELECTQ ERROR LISTGET FILEPKGCOM FMEMB UNION FILEPKGTYPE) GATHEREXPORTS (RESETLST RESETSAVE LIST + FUNCTION OPENSTREAM OUTPUT \DO-DEFINE-FILE-INFO) EXEC-PRIN1 (WRITE) \UNITWIDTHSVECTOR (\ALLOCBLOCK +UNFOLD LLSH IPLUS PLUS) EQUALALL (TYPENAME SELECTQ IEQP EQP EQUALALL STREQUAL ARRAYORIG ARRAYTYP +ARRAYSIZE ELT PLUS CL:ARRAY-DIMENSIONS CL:ARRAY-ELEMENT-TYPE CL:ADJUSTABLE-ARRAY-P CL:FILL-POINTER +SUB1 CL:ARRAY-TOTAL-SIZE XCL:ROW-MAJOR-AREF EQUALHASH GETSYNTAX GETCONTROL GETRAISE GETECHOMODE +GETDELETECONTROL EQUAL ECHOCONTROL EVERY DELETECONTROL GETDESCRIPTORS FETCHFIELD) +\NSFILING.COPY/RENAME (RESETLST \NSFILING.PARSE.FILENAME CL:ERROR \GETFILINGCONNECTION +\NSFILING.LOOKUP.CACHE \NSFILING.OPEN.HANDLE \NSFILING.COMPOSE.PATHNAME LAST CL:BUTLAST LENGTH - +\NSFILING.CONNECT \NSFILING.CHECK.ACCESS \NSFILING.HANDLE.ERROR FILING.CALL DREMOVE APPEND +CL:MULTIPLE-VALUE-PROG1 .UNWIND.PROTECT. FUNCTION PLUS FFETCHFIELD \NSFILING.DESERIALIZE1 +\NSFILING.ADD.TO.CACHE \NSFILING.FULLNAME) EDITBM (BITMAPCOPY EVALV \READBMDIMENSIONS BITMAPCREATE +BITSPERPIXEL WINDOWPROP DSPCLIPPINGREGION BITMAPHEIGHT BITMAPWIDTH IQUOTIENT ITIMES IMAX IMIN +IDIFFERENCE ADD1 IPLUS CREATEW GETBOXREGION WIDTHIFWINDOW HEIGHTIFWINDOW FUNCTION MAXIMUMCOLOR LIST +ERROR!) \TEDIT.UNIQUIFY.PARALOOKS (CONS FFETCHFIELD) WINDOWREGION (WINDOWPROP APPLY*) +MOVEATTACHEDWINDOWS (PTDIFFERENCE WINDOWPOSITION ATTACHEDWINDOWS PTPLUS TOTOPW) \PFFindRootDirEntry ( +\PFFindRootDirEntryNum MESAELT \BLT FMESAELT \ADDBASE IPLUS ILEQ ITIMES IDIFFERENCE MESASIZE) EDITCHAR + (\GETFONTDESC PUTCHARBITMAP EDITBM GETCHARBITMAP) SETTOPVAL (SELECTQ LISPERROR UNLESSRDSYS) +POSTEDITALISTS (GETTOPVAL LIST GETHASH) COMP.FLOATBOX (COMP.DELFN COMP.STFN) CH.CANONICAL.NAME ( +PARSE.NSNAME CH.LOOKUP.OBJECT) \CREATEDISPLAYFONT (LIST \GETBASEPTR UNFOLD LLSH \CREATECHARSET) NEW/FN + (CHCON1 PACK DUNPACK PACK* /NCONC1 CONS) TEDIT.PUT (TEXTOBJ \TEDIT.MAKEFILENAME TEDIT.GETINPUT +\TEXTSTREAM.FILENAME TEXTPROP APPLY* FULLNAME RESETSAVE OPENSTREAM U-CASE FILENAMEFIELD +\TEDIT.PUTRESET CONS THIS.PROCESS TEDIT.PROMPTPRINT CONCAT TEDIT.PUT.PCTB2 TEDIT.PUT.PCTB CLOSEF +CLOSEF? REVERSE \GETBASEPTR \FIRSTNODE TEXTSTREAM.TITLE \TEDIT.ORIGINAL.WINDOW.TITLE TEDITMENU.STREAM +PACKFILENAME) \CORE.GETFILENAME (\CORE.NAMESCAN \CORE.NAMESEGMENT SELECTQ ADD1 FLAST SHOULDNT +\CORE.PACKFILENAME) \CREATE.TTY.OUTCHARFN (\OUTCHAR \CREATE.TTYDISPLAYSTREAM) SI::ARGUMENT-ERROR ( +STKNTH STKNAME STKNARGS CL:ERROR) GETPROPLIST (\GETBASEPTR \PROPCELL \ATOMCELL CONSTANT) +\CORE.PACKFILENAME (CONCAT MKATOM U-CASE) TEDIT.PUT.PCTB2 (TEXTPROP TEDIT.FORMATTEDFILEP \EDITELT +GETBASEPTR \GETBASEPTR \ADDBASE2 \ADDBASE ADD1 OPENFILE GETFILEPTR PLUS FLENGTH +\TEDIT.PUT.PARALOOKS.LIST2 \TEDIT.PUT.CHARLOOKS.LIST2 \TEDIT.PUT.CHARLOOKS.LIST TEDIT.PUT.OBJECT OPENP + OPENSTREAM IPLUS UNFOLD LLSH SUB1 \GETBASEFAT \GETBASE \GETBASETHIN \GETBASEBYTE \CHARSET LRSH +\CHAR8CODE LOGAND CONS EVAL GETEOFPTR \BOUT \TEDIT.UNIQUIFY.CHARLOOKS \TEDIT.UNIQUIFY.PARALOOKS) +\BITBLT.PSC (\SCALEDBITBLT.PSC) \CORE.NAMESEGMENT (LIST) ALLOCHASH (CONS LIST KWOTE) FW-ADJUST-REGION +(SELECTQ SHOULDNT CONS FW-RESIZE-OFD IDIFFERENCE IQUOTIENT IMINUS ERROR) COMPILER::CHECK-GLOBAL-CONSTANT + (CL:GETHASH CL:VALUES CL:SYMBOL-VALUE CL:ERROR CL:EVAL COMPILER::VALUE-FOLDABLE-P) +\CREATE-REAL-CHARSET.DISPLAY (\READDISPLAYFONTFILE MEMB \CREATEDISPLAYFONT \GETCHARSETINFO \GETBASEPTR + UNFOLD LLSH \CREATECHARSET \SFROTATECSINFO \SFMAKEBOLD \SFMAKEITALIC \CREATE-REAL-CHARSET.DISPLAY +\BUILDSLUGCSINFO FONTPROP) SEDIT::BUILD-WINDOW (CREATEW SEDIT::LESS-PROMPT-WINDOW SEDIT:GET-WINDOW-REGION + CONCAT FUNCTION SUB1 WINDOWPROP DSPCLIPPINGREGION IMINUS IPLUS FONTPROP DSPRIGHTMARGIN) +\CORE.NAMESCAN (\CORE.NAMESEGMENT CONS) FetchDefaultPrinter (DEFAULTPRINTER) \TEDIT.FIXINSSEL (IPLUS) +CONSTANTEXPRESSIONP (LIST GETHASH CONSTANTEXPRESSIONP SELECTQ NLSETQ EVAL COMPILER:OPTIMIZE-AND-MACROEXPAND + COMPILER:MAKE-CONTEXT APPLY GETMACROPROP MACROEXPANSION) \CORE.UNPACKFILENAME (NTHCHAR STRPOS ADD1 +NCHARS SUBSTRING SUB1 - FIXP SUBATOM CL:ERROR) INSERTLINE (ADD1) \SFMAKEITALIC (IPLUS BITMAPCREATE +\FGETOFFSET \GETBASE ADD1 \FGETWIDTH IDIFFERENCE IQUOTIENT IMIN IMAX ITIMES PLUS) CHAT.RECONNECT ( +WINDOWPROP APPLY* CHAT.RECONNECT.OFF LOGAND FUNCTION TTY.PROCESS ADD.PROCESS LIST KWOTE) SLITLOOP ( +COPY HEADPT NCONC LIST \SGN IDIFFERENCE XYPT.Y CONS REVERSE) FM.SHADE (ERROR \FM.GROUPPROP LISTGET +FASSOC WINDOWPROP \FM.ITEMPROP FFETCHFIELD \FM.INSUREFM \FM.COERCEITEMPTR FM.GETITEM BLTSHADE TEXTUREP +) ALIGNMENTNODE (SELECTQ GN/TOP GN/BOTTOM GN/RIGHT GN/LEFT GETNODEFROMID) SEDIT::CREATE-CONSTANT-STRINGS + (SEDIT::CREATE-STRING-ITEM MAPCONC LIST) SEDIT::CFV-CLISP (IMAX IPLUS) HCOPYALL1 (TYPENAME GETHASH +SELECTQ FRPLNODE PUTHASH CONS HCOPYALL1 CONCAT FPLUS IPLUS ARRAYSIZE ARRAYTYP ARRAYORIG ARRAY SETA ELT + PLUS HASHARRAY HARRAYSIZE HARRAYPROP COPYREADTABLE BITMAPCOPY COPYTERMTABLE GETDESCRIPTORS NCREATE +REPLACEFIELD FETCHFIELD) TILE (BITMAPWIDTH BITMAPHEIGHT PLUS) \CREATECHARSET.DISPLAY ( +\CREATECHARSET.DISPLAY \CREATE-REAL-CHARSET.DISPLAY) \BUILDSLUGCSINFO (\PUTBASE PLUS +\CREATECSINFOELEMENT \ALLOCBLOCK FOLDHI LRSH IPLUS BITMAPCREATE ROUND QUOTIENT SUB1) +BLTPATTERN.GENERIC (BITMAPWIDTH BITMAPHEIGHT MIN - +) \IFSERRORSTRING (NLSETQ OPENSTREAM PACK* +FULLNAME FCHARACTER FFILEPOS CONCAT IDIFFERENCE GETEOFPTR ALLOCSTRING \BIN PLUS) \TEDIT.PUTRESET (CONS + PROCESSPROP) \SCALEDBITBLT.PSC (NUMBERP TIMES INTERSECTREGIONS CREATEREGION BITMAPCREATE) COMPILE1A ( +\GETSTREAM POSITION GETHASH) \CORE.OPENFILE (LIST \CORE.GETFILEHANDLE ASSOC SELECTQ \ILLEGAL.ARG) +SHRINKATTACHEDWINDOWS (MAPC ATTACHEDWINDOWS DOUSERFNS WINDOWPROP \CLOSEW1) \READDISPLAYFONTFILE ( +\FINDFONTFILE LIST OPENSTREAM SELECTQ FONTFILEFORMAT FUNCTION \READSTRIKEFONTFILE \READACFONTFILE +CLOSEF) \VFMInit (WITH.MONITOR CL:MULTIPLE-VALUE-PROG1 .UNWIND.PROTECT. FUNCTION UNINTERRUPTABLY +\VFMClearBuffers) \CORE.SETACCESSTIME (IDATE) CLISPATOM1 (GETPROP IMINUS LENGTH FLAST FMEMB LDIFF PACK + NCONC1 ADD1 SUB1 LIST LISTGET1 NCONC NTHCHAR UNPACK CONS NLEFT FUNCTION GETP CLISPATOM1A CLISPATOM1B) + \SFROTATECSINFO (\SFROTATEFONTCHARACTERS \SFROTATECSINFOOFFSETS) RAISE/TRANSITION/CHAIN (FRPLACD PLUS +) EVENTS-INPUT (CONS MAPCAR EXEC-EVENT-INPUT FMEMB LDIFF) \COREFILE.SETPARAMETERS (SELECTQ +\ILLEGAL.ARG FIXP IDATE) TTDELSECTION (BITBLT.DELETE DSPXPOSITION - DSPYPOSITION) +CHAT.PROMPT.FOR.INPUT (RESETLST RESETSAVE TTY.PROCESS THIS.PROCESS LIST FUNCTION DEFAULTFONT CREATEW +MAKEWITHINREGION WIDTHIFWINDOW + STRINGWIDTH TIMES CHARWIDTH HEIGHTIFWINDOW FONTPROP +TTYINPROMPTFORWORD) SEDIT::UNDO-ATOM-CHANGE (FREPLACEFIELD CONS LIST FFETCHFIELD +SEDIT::NOTE-CHANGE-IN-SIMPLE SEDIT::NOTE-CHANGE) LAYOUTSEXPR (CONS LAYOUTGRAPH LIST APPEND MKLIST +ERROR) FM.REDISPLAYMENU (ERROR \FM.REDISPLAYMENU) TEDIT (OPENFILE RESETSAVE WITH.MONITOR +CL:MULTIPLE-VALUE-PROG1 .UNWIND.PROTECT. FUNCTION TEDIT.CREATEW CONCAT APPEND COPY WINDOWPROP +OPENTEXTSTREAM TEXTOBJ \TEDIT2 ADD.PROCESS LIST KWOTE) SEDIT::COPY-NODE (CONS MAPCAR SEDIT::COPY-NODE +SEDIT::CREATE-WEAK-LINK APPEND) HCOPYALL (HASHARRAY HCOPYALL1) GETSETQ (LIST KWOTE FMEMB FIXSPELL +APPEND CONS) COMPILER::VALUE-FOLDABLE-P (TYPEP) \MKATOM (SUB1 IPLUS \GETBASEFAT \GETBASE PLUS +UNLESSRDSYS \GETBASETHIN \GETBASEBYTE \ADDBASE IDIFFERENCE \PARSE.NUMBER LOGAND LLSH ADD1 IPLUS16 +\LOLOC ATOM.HASH.REPROBE LOGOR LOGXOR UNINTERRUPTABLY \CREATE.SYMBOL \PUTBASE \ATOMPNAMEINDEX NTYPX +SHOULDNT) DBG::EXIT-DEBUGGER (CL:THROW) BRHC/OFFSET (GETNODEFROMID IPLUS FRPLACA BRHC/OFFSET) +GetNewPrinterFromUser (PopUpWindowAndGetList) \TEDIT.FIXDELSEL (IDIFFERENCE IMAX) \CREATE.SYMBOL ( +\ALLOCBLOCK FOLDHI LRSH IPLUS ADD1 CREATECELL ITIMES FOLDLO LOGOR \ADDBASE \PUTBASEBYTE \GETBASEFAT +\GETBASE PLUS OPCODES) SEDIT::ASSIGN-FORMAT-CLISP (GETPROP MAPC SEDIT::SET-FORMAT) BKSYSBUF.GENERAL ( +TYPENAME SELECTQ BKSYSBUF RESETVARS .RESETLST. LIST CONS CL:MULTIPLE-VALUE-PROG1 .UNWIND.PROTECT. +FUNCTION \HILOC \LOLOC) PROPS.WHENCHANGED (GETPROP MARKASCHANGED) \PARSE.NUMBER (IPLUS IDIFFERENCE +SUB1 SELECTQ \INVALID.INTEGER \MKINTEGER PLUS \FLOATINGSCALE FLOAT SELCHARQ \GETBASECHAR \GETBASEFAT +\GETBASE \GETBASETHIN \GETBASEBYTE ADD1 \INVALID.DOTTED.SYMBOL /) SEDIT::REDO (SEDIT:GET-PROMPT-WINDOW + GETPROMPTWINDOW PRIN1) \CORE.BACKFILEPTR (UNINTERRUPTABLY PLUS FFETCHFIELD SUB1 IMAX) SHOWGRAPH ( +SIZE/GRAPH/WINDOW FUNCTION) COMPILER::CLOSURE-ANNOTATE-MV-CALL (CL:UNION COMPILER::CLOSURE-ANNOTATE +COMPILER::MV-CALL-FN COMPILER::MV-CALL-ARG-EXPRS) BLTSHADE (\BLTSHADE.BITMAP \OUTSTREAMARG \GETSTREAM +IMAGEOP SPREADAPPLY* DSPOPERATION) \EXPECTED.FILE.TYPE (UNPACKFILENAME.STRING) \CORE.SETEOFPTR ( +IDIFFERENCE \GETEOFPTR LOGAND \CORE.FINDPAGE SUB1) SEDIT::COMPUTE-COMMENT-COLUMN (IQUOTIENT ITIMES +WINDOWPROP) \SEARCHFONTFILES (\FONTSYMBOL \FONTFACE \FONTFILENAME.OLD \FONTFILENAME DIRECTORY +PACKFILENAME.STRING \FONTINFOFROMFILENAME CONS) EXPANDBM (NUMBERP BITMAPWIDTH BITMAPHEIGHT IMIN CL:* +IMAX + IQUOTIENT SUB1 PLUS EQL LSH - ZEROP) \CORE.SETFILEINFO (\CORE.GETINFOBLOCK IDATE LISPERROR FIXP + SELECTQ) PURGEDSKDIRECTORY (WITH.MONITOR CL:MULTIPLE-VALUE-PROG1 .UNWIND.PROTECT. FUNCTION +\LFEntryPoint \GETDEVICEFROMHOSTNAME \DEVICE-OPEN-STREAMS SPREADAPPLY* PRIN1 CLOSEF FILDIR +PACKFILENAME printout DELFILE \LFFindDirectoryVol \LFCloseDevice) FM.REDISPLAYITEM (ERROR \FM.INSUREFM + \FM.COERCEITEMPTR \FM.ITEMPROP FFETCHFIELD FM.GETITEM \FM.DISPLAYBITMAP LISTGET BITBLT) +\SEARCHDISPLAYFONTFILES (SELECTQ SYSTEMTYPE \SEARCHFONTFILES SHOULDNT) SEDIT::CONTAINS? (IGEQ) +\COPYDATATYPE (NTYPX \GETDTD \ADDBASE ITIMES CREATECELL MAPC \ADDREF OPCODES \RPLPTR COPYALL +\GETBASEPTR) SEDIT::SKIP-TO-GAP (SEDIT:GET-PROMPT-WINDOW GETPROMPTWINDOW PRIN1) \INITATOMPAGE (UNFOLD +LLSH \ADDBASE2 \ADDBASE ITIMES \PUTBASEPTR EVQ IQUOTIENT PLUS IPLUS) DBG::PRINT-BACKTRACE (BAKTRACE +LIST CL:FUNCTION +) \CORE.GETNEXTBUFFER (SELECTQ PLUS \EOF.ACTION \CORE.FINDPAGE) +CH.ADD.MEMBER.TO.DOMAIN.ACL (CH.CANONICAL.NAME CH.GETAUTHENTICATOR COURIER.EXPEDITED.CALL +CH.FINDSERVER PARSE.NSNAME COURIER.FETCH) SIMPLETEXTEDIT (RESETLST WITH-RESOURCES LIST OPENSTREAM +PACKFILENAME.STRING TTYIN GETFILEPTR CLOSEF GETRESOURCE NEWRESOURCE MAKE-TTSCRATCHFILE) \MAKEMDSENTRY +(\PUTBASE LRSH LOGOR) DO-APPLY-EVENT (ARGTYPE CL:FUNCALL CL:EVAL CL:APPLY) SPELLFILE1 ( +\GENERATENEXTFILE ELT UNPACKFILENAME.STRING SELECTQ MKATOM PACKFILENAME.STRING) WINDOWWORLD ( +\INSURESCREEN \TTY.CREATING.DISPLAYSTREAM CREATEW FUNCTION MAPC EVAL) \ALLOCBLOCK (\ALLOCHUNK IPLUS +\ALLOCBLOCK.OLD \ALLOCBLOCK.NEW RECLAIM IDIFFERENCE \DORECLAIM \ADDBASE \DELREF OPCODES) +\NSFILING.NEXTFILE (BULKDATA.GENERATE.NEXT ASSOC \NSFILING.FULLNAME NAMEFIELD) \NEWPAGE.PSC ( +POSTSCRIPT.STARTPAGE) IDLE.SHOW.OPTIONS (MAP IDLE.SHOW.OPTION) SEDIT::TRANSLATE-CHARS (SEDIT::ESCAPE-CHAR + FFETCHFIELD SUB1 IPLUS ADD1 \GETBASEFAT \GETBASE \GETBASETHIN \GETBASEBYTE CONCAT CHARACTER CONSTANT +IDIFFERENCE) COREDEVICE (\DEFINEDEVICE \CREATECOREDEVICE) INSERT.TEXT (TYPE.BUFFER SEGMENT.BIT.LENGTH) + \FONTINFOFROMFILENAME (UNPACKFILENAME.STRING LISTGET NTHCHAR PLUS MKATOM U-CASE SUBSTRING SUB1 ADD1 +LIST IMAGESTREAMTYPE SELECTQ \FONTSYMBOL) \FONTFILENAME.OLD (\FONTFACE PACKFILENAME.STRING CONCAT +SASSOC \ILLEGAL.ARG SELECTQ CL:FORMAT) COMPILER::NULL-EFFECTS-INTERSECTION-EXCEPT-CONS (EQUAL MKLIST) +\CREATECOREDEVICE (FUNCTION LIST) \PFGetVol (ELT) FM.RESETGROUPS (ERROR WINDOWPROP \FM.REDISPLAYMENU) +\FONTFILENAME (\FONTFACE CONCAT \ILLEGAL.ARG \PRINDATUM.TO.STRING LIST CHCON1 PACKFILENAME.STRING +CONCATCODES) SEDIT::COMPUTE-SELECTION-POSITION-DEFAULT (SEDIT::SUBNODE NTH IPLUS) SPELLFILEDIR ( +INFILEP PACKFILENAME FASSOC) RECDEC? (RECDEC? FMEMB) COMPILER::RESOLVE-VARIABLE-REFERENCE (DECLARE +COMPILER::MAKE-VAR-REF) MAPATOMS (\GETDTD \ADDBASE ITIMES IMIN \INDEXATOMPNAME PLUS LOGAND ADD1 +LISPVERSION IREMAINDER LRSH ILESSP SUB1 MDSTYPE# \GETBASE IPLUS \GETBASEPTR) DBG::%%RELEASE-STACK-DATUM + (WINDOWPROP RELSTK CL:MAPC) EXTEND/TRANSITION/CHAIN (FLAST) NewPrinter (CL:MEMBER CONS REMOVE LAST) +COMPILER::CLOSURE-ANNOTATE-LAMBDA (COMPILER::LAMBDA-NEW-FRAME-P CL:UNION COMPILER::LAMBDA-OPTIONAL +COMPILER::CLOSURE-ANNOTATE CL:SECOND COMPILER::LAMBDA-KEYWORD CL:THIRD COMPILER::LAMBDA-BODY +CL:DELETE-IF CL:APPEND COMPILER::LAMBDA-REQUIRED LIST MAPCONC NCONC CL:FIRST COMPILER::LAMBDA-REST +CL:FOURTH COMPILER::LAMBDA-CLOSED-OVER-VARS) MOVETO.IP (APPENDOP.IP) SPELLFILE.SPELL (RESETLST +SPELLFILE.SPELL1) COMPILER::CLOSURE-ANNOTATE-MV-PROG1 (COMPILER::MV-PROG1-STMTS CL:UNION +COMPILER::CLOSURE-ANNOTATE) FW-MOVEW (MOVEW) ATOMHASH#PROBES (\LOLOC MKSTRING SUB1 IPLUS ADD1 +\GETBASEFAT \GETBASE ILEQ \GETBASECHAR \GETBASETHIN \GETBASEBYTE LOGAND LLSH IPLUS16 \ADDBASE +UNLESSRDSYS PLUS ATOM.HASH.REPROBE LOGOR LOGXOR) BLTPATTERN (BITMAPWIDTH BITMAPHEIGHT MAX ITIMES +IQUOTIENT) GRAPHOBJ.FINDGRAPH (GETSTREAM WINDOWPROP LOGAND LOGOR COPYGRAPH) \DSPSCALE.PSC (QUOTIENT) +%%ARRAY-BASE (CL:ERROR) APPENDINTEGER.IP (APPENDINT.IPMACRO SUB1 LOADBYTE LOGAND LSH IMINUS UNFOLD +LLSH MASK.1'S PLUS IPLUS BYTESININT.IP) COMPILER::PASSABLE (COMPILER::NODE-EFFECTS COMPILER::NODE-AFFECTED + COMPILER::NULL-EFFECTS-INTERSECTION-EXCEPT-CONS) MAXATTACHEDWINDOWEXTENT (ATTACHEDWINDOWS +MAXIMUMMAINWINDOWSIZE CONS MAXIMUMWINDOWSIZE SELECTQ WINDOWPROP DIFFERENCE PLUS MAX MIN) +COMPILER::SIDE-EFFECTS (GET) %%ARRAY-OFFSET (CL:ERROR) CLISPTRAN (HASHARRAY /PUTHASH /RPLNODE CONS) +COMPILER::CLOSURE-ANNOTATE-LABELS (CL:DELETE-IF CL:UNION COMPILER::CLOSURE-ANNOTATE COMPILER::LABELS-BODY + COMPILER::LABELS-FUNS COMPILER::LABELS-CLOSED-OVER-VARS) %%ARRAY-TYPE-NUMBER (CL:ERROR) UNDOSET (LIST + GETTOPVAL FRAMESCAN STKARG) \ITEMW.FLIPCOPY (BLTSHADE) DO-HISTORY-SEARCH (EDITFPAT EXEC-EVENT-INPUT +CL:GETF) \GENERIC-UNREGISTER-STREAM (DREMOVE) COMPILER::RESOLVE-VARIABLE-BINDING (DECLARE GET) +\FONTFACE.COLOR (\DEVICESYMBOL U-CASEP U-CASE STRPOS SUBATOM SUB1 SELECTQ CONSTANT SELCHARQ +NTHCHARCODE ADD1 \DISPLAYSTREAMTYPEBPP COLORNUMBERP COPY MAXIMUMCOLOR) DBG::MAKE-FRAME-INSPECT-WINDOW +(ATTACHEDWINDOWS WINDOWREGION CREATEW DBG::REGION-NEXT-TO WINDOWPROP CL:FUNCTION) \ADD-OPEN-STREAM ( +CONS FFETCHFIELD) \COERCETODS (\ILLEGAL.ARG) \NSFILING.FILEINFOFN (\NSFILING.GETFILEINFO.FROM.PLIST) +SEDIT::UNDO-EXTRACT (PLUS SEDIT::NOTE-CHANGE) \PAGEDEOFP (READONLY IPLUS) MINATTACHEDWINDOWEXTENT ( +ATTACHEDWINDOWS MINIMUMMAINWINDOWSIZE MINIMUMWINDOWSIZE SELECTQ WINDOWPROP DIFFERENCE PLUS MAX MIN +CONS) SEDIT::SELECTED-FN-NAME (SEDIT::CLOSE-NODE SEDIT::GET-SELECTED-STRUCTURE) \PFInitializeVols ( +SUB1 \PFGetVol PLUS) POSTEDITPROPS (GETPROPLIST GETHASH LIST) FINDFILE (INFILEP SPELLFILE) +\SFLHASHLOOKUP (LOGAND LLSH \ADDBASE IPLUS) FIXSPELL1 (CONS POSITION STRINGP FASSOC LIST CLBUFS +ASKUSER ITIMES NCHARS) FW-SHAPEW (SHAPEW) SEDIT::ASSIGN-FORMAT-DOTLIST (MAPC SEDIT::SET-FORMAT +SEDIT::GET-LIST-FORMAT) SEDIT::GETKEY (THIS.PROCESS FFETCHFIELD WINDOWPROP) REMOVETONODES (LIST) +OPT.CFRPTQ (COMP.EXP1 CONS) PUTD (\RENAMEDFN) \NODIRCORE.OPENFILE (\IOMODEP) DECLSUBFIELD (ASSOC +RECORD.FIELDINFO RECORDECL0 RECORD.NAME FRPLACA RECORD.CREATEINFO APPEND RECORD.FIELDNAMES +ADD.RECORD.SUBDECS NCONC1) \FINDFONTFILE (FINDFILE \FONTFILENAME.OLD \FONTFILENAME) \PUTD ( +UNINTERRUPTABLY) FIXDATUM (LIST RECLISPLOOKUP MAKEACCESS ACCESSDEF RECORDERROR SELECTQ MKPROGN APPLY* +GETPROP GETP REVERSE SHOULDNT CONS PACK NCONC1 GETMACROPROP MACROEXPANSION SIMPLEP RECORDBIND APPEND) +HPRINSP (SPACES) SEDIT::STRINGIFY-ATOM (MKSTRING) PRINTERS.WHENSELECTEDFN (GetNewPrinterFromUser) +COPYGRAPH (LIST) \RENAMEDFN (\DTEST UNFOLD LLSH \#BLOCKDATACELLS \ALLOC.CODE.BLOCK CEIL LOGAND IPLUS +ADD1 FOLDHI LRSH CONSTANT SUB1 LOGXOR) LINETO.IP (FIXR APPENDOP.IP) BLOCKCOMPILE (RESETLST LIST +BLOCKCOMPILE1) \NODIRCOREFDEV (\CREATECOREDEVICE) MAXIMUMCOLOR (MASK.1'S LSH SUB1) GETD ( +SI::GET-CACHE-CLOSURE) ROMANNUMERALS (CONS PLUS U-CASE CONCATLIST REVERSE) COMPILER::CLOSURE-ANNOTATE-IF + (CL:UNION COMPILER::CLOSURE-ANNOTATE COMPILER::IF-PRED COMPILER::IF-THEN COMPILER::IF-ELSE) +SI::GET-CACHE-CLOSURE (XCL::GET-IMPLICIT-KEY-HASH) CLOSEALL (ERROR APPEND CLOSEF LIST) SCALEBM ( +BITMAPWIDTH BITMAPHEIGHT NUMBERP MIN CL:* IQUOTIENT BITMAPCREATE) SCROLLW (\CARET.DOWN APPLY* FUNCTION +) GRAPHEROBJ (GRAPHREGION IMAGEOBJCREATE LIST GRAPHOBJ.CHECKALIGN CREATEPOSITION MINUS) PRINT ( +\GETSTREAM) SPELLFILE.SPELL1 (ARRAY \GENERATEFILES PACKFILENAME.STRING FUNCTION FIXSPELL) +COMPILER::FIND-TOP-ENVIRONMENT (COMPILER::ENV-PARENT) EOFCLOSEF (GETSTREAM STREAMPROP) +BLTPATTERN.REPLACEDISPLAY (MIN + -) \STKMIN (ALLOCAL \ALLOCBLOCK FOLDHI LRSH IPLUS - \FINDOP SELECTQ +NUMBERP PLUS ADD1 \GET-COMPILED-CODE-BASE LLSH IMAX UNFOLD \GETBASEBYTE) CALLS3 (FRPLACA DREMOVE) +\FINDOP (ALLOCAL ARRAY PLUS SETA GETPROP ELT ERROR) COMPILER::NULL-EFFECTS-INTERSECTION ( +COMPILER::NULL-INTERSECTION) SEDIT::LINEARIZE-CLISP (IPLUS ILEQ MEMB SUB1 IDIFFERENCE +SEDIT::SELECT-COMMENT-INDENT SHOULDNT SELECTQ FMEMB GETPROP SEDIT::OUTPUT-CONSTANT-STRING) +FM.RESETSHAPE (ERROR WINDOWPROP SHAPEW CREATEREGION WIDTHIFWINDOW HEIGHTIFWINDOW) +\GET-COMPILED-CODE-BASE (NTYPX) SEDIT::COMPUTE-FORMATS-AND-FORMAT-VALUES ( +SEDIT::COMPUTE-FORMATS-AND-FORMAT-VALUES CL:FUNCALL) SEDIT::SPLIT-LITATOM (NCHARS SEDIT::CLOSE-NODE +SEDIT::DELETE-NODES) OPENP (\GETSTREAM \MAP-OPEN-STREAMS FUNCTION) \TTY.CREATING.DISPLAYSTREAM ( +DSPCREATE BITMAPCREATE FUNCTION) SEDIT::LINEARIZE-DOTLIST (SEDIT::OUTPUT-CONSTANT-STRING) HVREADERR ( +ERROR) \LFFindDirectoryVol (\PFGetVol \PFGetLVPage \PFGetVols \PFCurrentVol APPEND) IRNDLIST (MAPCAR +XYPT.X XYPT.Y FIX PLUS CONS) \FONTFILENAME.NEW (\FONTFACE CONCAT \ILLEGAL.ARG PACKFILENAME.STRING +NTHCHAR \PRINDATUM.TO.STRING) GRAPHOBJ.IMAGEBOXFN (IMAGEOBJPROP DSPSCALE SCALE/GRAPH GRAPHREGION TIMES + ALIGNMENTNODE PLUS GN/BOTTOM IQUOTIENT IPLUS IDIFFERENCE FONTPROP GN/LEFT) COMP.ARGTYPE (ARGTYPE +FASSOC GETP GETPROP) WHENCLOSE (GETSTREAM ARG ADD1 SELECTQ ERRORX LIST PLUS) CHECKRECORDNAME ( +RECORDERROR) \GETFONTDESC (\COERCEFONTDESC) CREATE-PROCESS-STREAM (FORK-UNIX UNIX-CHANNEL FFETCHFIELD +CONS) STREAMADDPROP (STREAMPROP CONS) COPY.WINDOW.TO.BITMAP (WINDOWPROP BITMAPCREATE BITSPERPIXEL +DSPDESTINATION \GETBASE \TOTOPWDS SCREENBITMAP BITMAPCOPY) TEDITWINDOWP (WINDOWP WFROMDS WINDOWPROP) +\FONTINFOFROMFILENAME.OLD (UNPACKFILENAME LISTGET NTHCHAR PLUS MKATOM SUBSTRING SUB1 LIST SELECTQ) +UNDOPRINT (PRIN2) DBG::STACK-FRAME-VALUE-COMMAND (INSPECT/AS/FUNCTION CL:SECOND +DEFAULT.INSPECTW.VALUECOMMANDFN) COLLECTFNDATA (FASSOC UNION COLLECTFNDATA) FASL::TABLE-STATS (LIST +CONS CL:LENGTH) SEDIT::SET-SELECTION-STRING (SEDIT::SET-SELECTION-ME SEDIT::GET-BUTTON-STRING +SEDIT::SCAN-STRING) \LFCloseDevice (WITH.MONITOR CL:MULTIPLE-VALUE-PROG1 .UNWIND.PROTECT. FUNCTION +\PFGetVols \LFCloseDirectory) FM.RESETMENU (ERROR WINDOWPROP FM.RESETSTATE \FM.REDISPLAYMENU) +HPINITRDTBL (GETATOMVAL COPYREADTABLE CONSTANT LIST FUNCTION) OPT.COMPINIT (SET LIST) +SEDIT::QUOTE-CURRENT-SELECTION (SEDIT::CLOSE-NODE) COMPILER::ENV-DECLARE-A-GLOBAL ( +COMPILER::ENV-DECLARED-GLOBALS) \READSTRIKEFONTFILE (GETFILEPTR \WIN IPLUS LLSH \BIN SIGNED SUB1 +IDIFFERENCE BITMAPCREATE UNFOLD ITIMES \PUTBASE PLUS) DBG::STACK-FRAME-PROPERTY (CL:SECOND CL:FIRST) +MAKEUSERMACROSCOMS (FASSOC LISPXPRINT CONS INTERSECTION MAPCAR LIST NCONC GETTOPVAL SUBSET FMEMB) +SPELLFILE.MATCHINGDIRS (LISTGET UNPACKFILENAME SELECTQ DIRECTORYNAME LIST FASSOC CONS) +SHOW.CLEARINGHOUSE (CONS MAPCAR CH.LIST.ORGANIZATIONS CH.LIST.DOMAINS CONCAT SHOWGRAPH LAYOUTSEXPR +FUNCTION) \READACFONTFILE (LIST FUNCTION OPENSTREAM CLOSEF? \CREATECSINFOELEMENT \ALLOCBLOCK FOLDHI +LRSH IPLUS BIN \READACFONTBOXES \GETFBB \ACCHARIMAGELIST \ACCHARWIDTHLIST ZEROP EQP PLUS ADD1 \PUTBASE + IMAX IMINUS BITMAPCREATE \FGETWIDTH \GETBASE \ACCHARPOSLIST \WIN LLSH \BIN TIMES FOLDLO IMOD +\ACROTATECHAR DIFFERENCE IDIFFERENCE) *DEBUGGER-COMMAND-TABLE* (HASHARRAY) PFCOPYBYTES (RESETLST +\INSTREAMARG \GETSTREAM \OUTSTREAMARG FONTMAPARRAY ARRAYSIZE LIST FUNCTION DSPFONT ELT IDIFFERENCE +GETEOFPTR GETFILEPTR \INCCODE.EOLC CONSTANT CHARCODE.DECODE \INCCODE) SEDIT::REDISPLAY ( +SEDIT::VERIFY-STRUCTURE) COMPILER::ENV-DECLARE-A-SPECIAL (COMPILER::ENV-DECLARED-SPECIALS) +FASL::ADD-OP-TRANSLATION (CL:ASSOC FASL::OPTABLE-OPNAMES CONS) SEDIT::CREATE-NULL-LIST (ITIMES +CHARWIDTH LIST SEDIT::CREATE-WEAK-LINK) MOVETOFILE (GETFILEPKGTYPE GETDEF ADDTOFILE) +PFI.AFTER.NEW.PAGE (PLUS DSPFONT CONCAT PRIN1 - DSPRIGHTMARGIN STRINGWIDTH) FASL::FASL-END-OF-BLOCK ( +CL:THROW CL:ERROR) \TEDIT.NEXT.LINE.BOTTOM (IDIFFERENCE IPLUS) PF* (RESETVARS .RESETLST. LIST CONS +CL:MULTIPLE-VALUE-PROG1 .UNWIND.PROTECT. FUNCTION) COMPILER::EFFECTLESS-EXCEPT-CONS (CL:EQUAL) RETURN +(\MYALINK OPCODES FUNCTION CL:VALUES-LIST) SEDIT::SET-SELECTION-LITATOM (SEDIT::SET-SELECTION-ME +SEDIT::GET-BUTTON-STRING SEDIT::SCAN-STRING) \NSFILING.GENERATE.STARS (STRPOS CONCAT SUBSTRING +) +FM.RESETSTATE (ERROR WINDOWPROP \FM.NWAYPROP LISTGET ASSOC \FM.ITEMPROP FFETCHFIELD \FM.INSUREFM +\FM.COERCEITEMPTR FM.GETITEM FM.CHANGESTATE) FASL::DEFINE-SINGLE-OPCODE (CL:ELT FASL::OPTABLE-VECTOR +FASL::ADD-OP-TRANSLATION) SEDIT::COMPILE-STRUCTURE (OPENWP SEDIT:GET-PROMPT-WINDOW GETPROMPTWINDOW +CL:FUNCALL) PF (RESETLST NLAMBDA.ARGS APPEND WHEREIS OUTPUT OPENP WINDOWP OPENFILE FILENAMEFIELD) +LISTRECORDEFS (CONS LISTRECORDEFS PLUS) CHANGETRAN1 (COPY FIXDATUM GETPROP APPLY* SELECTQ LIST CONS +RECLISPLOOKUP REVERSE SUBST RECORDBINDVAL APPEND RECORDERROR EMBEDPROG CSUBST) +COMPILER::CLOSURE-ANNOTATE-CATCH (COMPILER::CLOSURE-ANNOTATE COMPILER::CATCH-STMT +COMPILER::VARIABLE-CLOSED-OVER COMPILER::CATCH-CLOSED-OVER-VARS COMPILER::CATCH-TAG CL:UNION) +BRHC/LAYOUT/TERMINAL (LIST HALF LRSH) PPROMPT2 (PROMPTPRINT) ERRORMESS (ERRM-TO-CONDITION CL:TYPE-OF +CL:PRINC) FINDFNDEF (FINDFILE GETFILEMAP LOADFILEMAP FASSOC LIST) TRAPLOOP (PREPLOOP COPYALL NCONC +MAPCAR HEADPTY XYPT.Y LAST REVERSE LENGTH SUB1 NTH ADD1 IMAPLIST MERGLIST COPY YMAPLIST LIST PLUS +TRAPMAKE) SEDIT::CFV-DOTLIST (CHARWIDTH ITIMES IPLUS SUB1 PLUS IMAX) FASL::SETESCAPE (CL:SVREF +FASL::OPTABLE-VECTOR CL:FUNCTION) \BASEBYTES.BLOCKIO (IDIFFERENCE SUB1 SPREADAPPLY* \GETBASEBYTE PLUS +IPLUS) SCROLL.HANDLER (OPENWP CREATEW LOC SETUPTIMER RESETFORM CURSOR WINDOWPROP ZEROP LOGAND LOGOR +CLOCK \CLOCK0) \TERPRI.PSC (PLUS IPLUS) \SFROTATECSINFOOFFSETS (BITMAPWIDTH \CREATECSINFOELEMENT +\ALLOCBLOCK FOLDHI LRSH IPLUS \PUTBASE IDIFFERENCE \FGETOFFSET \GETBASE \FGETWIDTH PLUS) PRINTFNDEF ( +RESETLST GETSTREAM OPENSTREAM LIST GETFILEPTR FULLNAME COPYBYTES PFCOPYBYTES TERPRI) +\FONTRESETCHARWIDTHS (\FGETOFFSET \GETBASE ADD1 IDIFFERENCE IPLUS \PUTBASE \FGETWIDTH PLUS) +\GETLEAFSTRING (\GETBASE \GETBASESTRING) ROTATE-BITMAP (BITMAPHEIGHT BITMAPCREATE BITMAPWIDTH UNFOLD +LLSH PLUS FFETCHFIELD \ADDBASE) SEDIT::SET-POINT-STRING (SEDIT::PUNT-SET-POINT IGEQ HALF LRSH +SEDIT::GET-BUTTON-STRING SEDIT::SCAN-STRING) NORMLOOP (COPY LAST HEADPTY NEXTPTY \SGN IDIFFERENCE) +\BASEBYTES.IO.INIT (FUNCTION \DEFINEDEVICE) PMORE (PRINTFNDEF) GRAPHOBJ.DISPLAYFN (IMAGEOBJPROP +DSPSCALE APPLY* GRAPHREGION SCALE/GRAPH CREATEPOSITION QUOTIENT DIFFERENCE DSPXPOSITION DSPYPOSITION) +SEDIT::BUILD-NODE (SEDIT::CREATE-NODE) HVRPTREAD (SUB1 READ) DBG::STACK-FRAME-STOREFN (CL:ASSOC +CL:FUNCALL STKARG CL:GETF SETSTKARG CL:SECOND) COMPILER::ENV-DECLARE-GLOBALS (COMPILER::ENV-DECLARED-GLOBALS + CL:APPEND) SEDIT::MARKASCHANGEDFN (PROCESSPROP THIS.PROCESS EDITDEF) MakeMenuOfPrinters (APPEND LIST +CONCAT KWOTE FUNCTION) \BASEBYTES.SETFILEPTR (PLUS) ROTATE-BITMAP-LEFT (BITMAPWIDTH BITMAPCREATE +BITMAPHEIGHT UNFOLD LLSH PLUS FFETCHFIELD \ADDBASE) UTF8.INCCODEFN (\BIN) \BASEBYTES.READP (PLUS +IMINUS IGEQ \GETBASEBYTE) HVFWDREAD (ADD1 CONS PEEKC FRPLNODE2 READ CONSTANT CHARACTER HVBAKREAD +FRPLACA) \RESETSYSTEMSTATE (\RESETTERMINAL) \BASEBYTES.PEEKBIN (SYSTEMTYPE \STRINGPEEKBIN STREAMOP +SPREADAPPLY* \GETBASEBYTE) \RESETTERMINAL (VIDEOCOLOR) FASL::DEFINE-OPCODE-RANGE (CL:SYMBOL-PACKAGE +CL:SYMBOL-NAME) CH.GETAUTHENTICATOR (\INTERNAL/GETPASSWORD NS.MAKE.SIMPLE.CREDENTIALS COURIER.CREATE +LIST ERROR!) \BASEBYTES.BOUT (\PUTBASEBYTE ADD1) \KEYBOARDON (LOGOR \GETBASE) IMPORTFILE (RESETLST +RESETSAVE LIST OPENSTREAM INPUT NCONC IMPORTFILESCAN IMPORTEVAL KWOTE ROOTFILENAME GETFILEINFO) +\BASEBYTES.BIN (\BASEBYTES.PEEKBIN PLUS FFETCHFIELD) UPDATEWFROMIMAGE (BITMAPWIDTH BITMAPHEIGHT) +CH.FINDSERVER (PARSE.NSNAME \CH.FIND.ORG.SERVER ERROR CH.FINDSERVER) INITIALEVALQT (CONS GETTOPVAL) +FW-ADJUST-PLACEMENT (IPLUS CONS) OPT.NOTJUMP (SELECTQ) \BASEBYTES.OPENFN (OPENSTRINGSTREAM +\MAKEBASEBYTESTREAM GETEOFPTR) \SFMAKECOLOR (DSPBACKCOLOR DSPCOLOR IMAGESTREAMTYPE +\DISPLAYSTREAMTYPEBPP COLORNUMBERP COLORIZEBITMAP) LOADFILEMAP (LOADFNS) DBG::STACK-FRAME-FETCHFN ( +CL:FIRST CL:ASSOC CL:GETF CL:FUNCALL STKARG CL:SECOND) INTERPRET.REM.CM (UNIX-GETENV OPENSTREAM +GETFILEINFO SKIPSEPRS NLSETQ READ NCHARS NTHCHARCODE PLUS) BRECOMPILE2 (ADD1 NCHARS IPLUS NTHCHARCODE +ILEQ PLUS) WRITESTRIKEFONTFILE (STRIKECSINFO \GETCHARSETINFO \GETBASEPTR UNFOLD LLSH \CREATECHARSET +\FGETOFFSET \GETBASE PLUS ADD1 OPENSTREAM \BOUT IMAX \FGETWIDTH IPLUS IDIFFERENCE ITIMES) +COMP.NAMEDLET (COMP.LAM1 CONS MAPCAR CAR LIST KWOTE COMP.CALL) \BASEBYTES.NAME.FROM.STREAM (LIST +GETEOFPTR) GetPrinterName (MENU MakeMenuOfPrinters) FASL::NEW-VALUE-TABLE (CL:MAKE-ARRAY) EVAL (\EVAL) + FILLCIRCLE.IP (FILLNGON.IP) STRIKECSINFO (\FGETOFFSET \GETBASE BITMAPHEIGHT PLUS IMAX \FGETIMAGEWIDTH + \FGETWIDTH \CREATECSINFOELEMENT \ALLOCBLOCK FOLDHI LRSH IPLUS \PUTBASE ADD1 BITMAPCREATE COPYALL) +UTF8.OUTCHARFN (\BOUT SELECTC SHOULDNT IPLUS FFETCHFIELD UNICODE.TRANSLATE CL:SVREF LRSH FASSOC LOGAND + UNICODE.UNMAPPED LOGOR LLSH LOADBYTE LSH IMINUS MASK.1'S SUB1) TTMAKECOMPLEXCHAR (PLUS TTBITWIDTH) +SIMPLEPRINT (NCHARS NTHCHARCODE PLUS SIMPLEPRINT IGEQ SUB1) FASL::STORE-VALUE (CL:VECTOR-PUSH-EXTEND) +FASL::DO-OP (CL:1+ BIN CL:FUNCALL CL:SVREF FASL::OPTABLE-VECTOR) FASL::COLLECT-LIST (CONS FASL::DO-OP +LIST PLUS) UNICODE.UNMAPPED (CL:SVREF GETHASH ERROR ADD1 FRPLACA PLUS) FASL::CLEAR-TABLE ( +CL:FILL-POINTER) PRESSFILEP (STREAMP FINDFILE GETFILEINFO RESETSAVE OPENSTREAM SETFILEPTR IDIFFERENCE +IEQP \WIN IPLUS LLSH \BIN) SEDIT::MUTATE (SEDIT:GET-PROMPT-WINDOW GETPROMPTWINDOW TTYINPROMPTFORWORD +NLSETQ READ OPENSTRINGSTREAM PRIN1) MULTIFILEINDEX (NCONC DIRECTORY DIRECTORY.FILL.PATTERN MAPCAR LIST + FINDFILE CL:ERROR MULTIFILEINDEX1 FUNCTION) \FBITMAPBIT (\FBITMAPBIT.UFN SELECTQ) \PFCreateVols ( +ARRAYORIG ARRAYSIZE ARRAY HASHARRAY SUB1 PLUS) RNUMBER (NUMBERPAD.READ CREATE.NUMBERPAD.READER) +\MAKEBASEBYTESTREAM (SMALLP PLUS FUNCTION SELECTQ) \SETTOTALTIME (\BOXIPLUS LOCF \ADDBASE +CLOCKDIFFERENCE) *EXEC-COMMAND-TABLE* (HASHARRAY) \MBS.OUTCHARFN (\DTEST PLUS) CLOCKDIFFERENCE ( +UNINTERRUPTABLY IPLUS \BOXIDIFFERENCE \CLOCK0 LOCF \ADDBASE) \BASEBYTES.TRUNCATEFN (PLUS ERROR) +\FBITMAPBIT.UFN (\ADDBASE IPLUS ITIMES IDIFFERENCE LRSH \BITMASK \WORDELT LOGAND SELECTQ LOGXOR +\NOTBITMASK LOGOR FFETCHFIELD) OPENSTRINGSTREAM (STRINGP \MAKEBASEBYTESTREAM UNFOLD LLSH SELECTQ +\ILLEGAL.ARG SYSTEMTYPE FUNCTION) FASL::CONVERT-FASL-DATE (STRPOS SUBSTRING + SUB1) SEDIT::MENU-SELECTEDFN + (WINDOWPROP MAINWINDOW SEDIT::AWAKE-COMMAND-PROCESS APPEND SEDIT::LOOKUP-COMMAND CL:GETHASH +FM.ITEMPROP) \PFInitFileDescriptors (SUB1 ELT MESASETQ \BLT FMESAELT \ADDBASE IPLUS ILEQ ITIMES +IDIFFERENCE MESASIZE PLUS) MAKELISPXMACROSCOMS (CONS NCONC SUBSET FASSOC LIST FMEMB) COMP.SETARG ( +COMP.LOOKUPVAR COMP.STFN LIST TIMES SUB1 COMP.CALL CONS KWOTE) TTYINEDIT (RESETLST +SET.TTYINEDIT.WINDOW RESETSAVE CURSOR WITH-RESOURCES TTYIN LIST GETSTREAM DSPXPOSITION DSPRIGHTMARGIN +TTYIN.PPTOFILE GETRESOURCE NEWRESOURCE MAKE-TTSCRATCHFILE) BRHC/LAYOUT/DAUGHTERS (IPLUS GETNODEFROMID +BRHC/LAYOUT BRHC/INTERTREE/SPACE EXTEND/TRANSITION/CHAIN RAISE/TRANSITION/CHAIN CONS FRPLACD PLUS HALF + LRSH) DBG::STACK-FRAME-PROPERTIES (STKNARGS STKNAME SMARTARGLIST) INITBITMASKS (ARRAY CONSTANT EXPT +LOGXOR LRSH PLUS IDIFFERENCE) SCANFILE1 (TMPSUBFN READ CONS INPUT LIST) MAKEPROPSCOMS (MAPCAR CONS +LIST) \CLEARCELLS (FOLDLO LRSH SUB1 \ADDBASE IDIFFERENCE UNFOLD LLSH .CLEARNWORDS.) CH.LOOKUP.OBJECT ( +PARSE.NSNAME CH.FINDSERVER COURIER.EXPEDITED.CALL CH.GETAUTHENTICATOR) PFI.MAKE.LPT.STREAM (LISTGET +MKLIST PRINTERPROP PRINTERTYPE OPENIMAGESTREAM DSPSCALE - FIXR FTIMES APPEND CONCAT STREAMPROP) +RECORDECL1 (CONS RECORD.REMOVE.COMMENTS LISTRECORDEFS LIST KWOTE MAPCAR IPLUS ADD1 FRPLNODE GENSYM +ALLOCHASH MAPCONC RECORDECLBLOCK SELECTQ CAR GETPROP RECORDECL1 APPLY* RECORDERROR CREATE.RECORD) +COMPILER::ENV-DECLARE-SPECIALS (COMPILER::ENV-DECLARED-SPECIALS CL:APPEND) SEDIT::NEW-FUNCTION-BODY ( +EDITMODE COPY LIST) BRHC/LAYOUT (HALF LRSH IPLUS LIST BRHC/LAYOUT/DAUGHTERS BRHC/LAYOUT/TERMINAL CONS +IDIFFERENCE) GetImageFile (PopUpWindowAndGetAtom PACKFILENAME WINDOWPROP APPLY* MKLIST ASSOC +DEFAULTPRINTER PRINTERTYPE MakeMenuOfImageTypes PRINTFILETYPE.FROM.EXTENSION CONS MENU) +\TEDIT.RESHAPEFN (WINDOWPROP DSPCLIPPINGREGION \TEDIT.FIND.FIRST.LINE IDIFFERENCE IPLUS) FIX/SCALE ( +MAPCAR FIX/SCALE FIXR FTIMES) CIRCSHADE.IP (FILLNGON.IP) FASL::FETCH-VALUE (CL:AREF) FM.CHANGESTATE ( +ERROR WINDOWPROP \FM.NWAYPROP LISTGET ASSOC \FM.INSUREFM \FM.COERCEITEMPTR \FM.ITEMPROP FFETCHFIELD +FM.GETITEM BITBLT \FM.DISPLAYBITMAP FM.CHANGELABEL) SEDIT::SET-LIST-FORMAT (CL:GETHASH REMHASH) +TTINSERTSECTION (BITBLT.INSERT DSPXPOSITION - DSPYPOSITION) \MOVEWORDS (\BLT \ADDBASE) +COMPILER::CLOSURE-ANNOTATE-CALL (CL:UNION COMPILER::CLOSURE-ANNOTATE COMPILER::CALL-FN COMPILER::CALL-ARGS +) SCANFILE0 (LIST LCONC LAST SKIPSEPRCODES GETFILEPTR RATOM READ) CREATEDSKDIRECTORY (WITH.MONITOR +CL:MULTIPLE-VALUE-PROG1 .UNWIND.PROTECT. FUNCTION \LFEntryPoint \GETDEVICEFROMNAME +\LFMakeVolumeDirectory \LFOpenDevice PACKFILENAME.STRING U-CASE) FM.HIGHLIGHTITEM (ERROR \FM.INSUREFM +\FM.COERCEITEMPTR \FM.ITEMPROP FFETCHFIELD FM.GETITEM \FM.HIGHLIGHTITEM) \COURIER.OUTPUT.ABORTED ( +\BULK.DATA.CLOSE LISPERROR ERROR CONCAT LOGAND CONSTANT LOGOR CL:THROW) GRAPHOBJ.COPYFN (IMAGEOBJPROP +GRAPHEROBJ COPYGRAPH) SEDIT::BUILD-LINEAR-FORM (CONS SEDIT::CREATE-WEAK-LINK SEDIT::SUBNODE +IDIFFERENCE WINDOWPROP) RECORDECLTAIL (APPEND CONS ASSOC NTH FRPLACA RECORD.CREATEINFO +RECORD.TYPECHECK FNTH /RPLACA UNCLISPTRAN LIST RECORD.DEFAULTFIELDS) HVREADEND (CHCON1 READC CONSTANT +SYNTAXP) SEDIT::SET-POINT-LITATOM (SEDIT::PUNT-SET-POINT IGEQ HALF LRSH SEDIT::GET-BUTTON-STRING +NCHARS SEDIT::SCAN-STRING) \STRINGSTREAM.INIT (FUNCTION) TEDIT.RAW.INCLUDE (TEXTOBJ OPENSTREAM +SHOULDNT GETEOFPTR IDIFFERENCE TEDIT.GETPOINT \CHTOPC LASTPIECE \SPLITPIECE - PLUS +\TEDIT.UNIQUIFY.CHARLOOKS CHARLOOKS.FROM.FONT IPLUS) \DSPSPACEFACTOR.PSC (FIXR TIMES) \ZEROBYTES ( +\CLEARBYTES ADD1 IDIFFERENCE) \ADDOFD (CONS) EXPANDATTACHEDWINDOWS (REPOSITIONATTACHEDWINDOWS MAPC +ATTACHEDWINDOWS OPENWP WINDOWPROP \OPENW1) SEDIT::MENU-SUBSTITUTE-SELECTEDFN (LISTGET FM.ITEMPROP +WINDOWPROP MAINWINDOW FM.EDITITEM LIST TTY.PROCESS) TOTOPW (WINDOWOP SPREADAPPLY* \INSUREWINDOW) +COMP.ARG (COMP.PROGN COMP.LOOKUPVAR COMP.STFN OPCOUNT ADD1 \FINDOP IDIFFERENCE LIST LLSH SUB1 +COMP.CALL CONS KWOTE) MAKE-UNICODE-FORMATS (SELECTQ SHOULDNT FUNCTION \INSTALL.EXTERNALFORMAT) +\ZEROWORDS (\HILOC IDIFFERENCE SUB1 \LOLOC \VAG2 ADD1 \ADDBASE) /PUT+1 (GETPROPLIST LIST) OPT.CHLEV ( +PLUS IGEQ) DBG::BACKTRACE-ITEM-SELECTED (DECLARE WINDOWPROP WFROMMENU STKNTH -) END.DELETE.MODE ( +BLTCHAR TTYDISPLAYSTREAM) DSPDESTINATION (\GETDISPLAYDATA \DTEST \OUTSTREAMARG \GETSTREAM) +SEDIT::SELECT-SEGMENT-LITATOM (SEDIT::SCAN-STRING) \DELETEOFD (DREMOVE) FM.GETSTATE (ERROR LIST +WINDOWPROP LCONC LISTGET SELECTQ \FM.ITEMPROP FFETCHFIELD) FONTNAMELIST (LIST FONTPROP) \DISABLEGC1 ( +UNFOLD LLSH \ADDBASE) SEDIT::BUILD-INTERNAL-STRUCTURE (LIST CONS ALLOCSTRING SUBSTRING +SEDIT::BUILD-LINEAR-FORM) HVREADCHECKGETFN (CONCAT) RECORDECLBLOCK (RECORDERROR LIST CONS IDIFFERENCE +LRSH PLUS ASSOC SHOULDNT SUB1 NCONC MAPCAR CAR NCONC1 TRANSLATE.DATATYPE) COMPILER::ENV-PROCLAIMED-GLOBAL-P + (CL:MEMBER COMPILER::ENV-DECLARED-GLOBALS COMPILER::FIND-TOP-ENVIRONMENT) \GC.MODIFY.BIGREFCNT ( +\LOLOC \ADDBASE ADD1 PLUS FFETCHFIELD SUB1) SEDIT::SELECT-SEGMENT-DEFAULT (IMIN IMAX PLUS) TMPSUBFN ( +STRPOS IREMAINDER IDIFFERENCE ADD1 NCHARS NTHCHARCODE IPLUS PLUS) WOVERLAPP (REGIONSINTERSECTP) +FILLNGON.IP (FQUOTIENT IPLUS SUB1 TIMES SIN COS PLUS) DOATTACHEDWINDOWCOM2 (DOATTACHEDWINDOWCOM) +RETRYSCAN (RETFROM LOADFNSCAN SCANFILEHELP) BITBLT (\BLTSHADE.BITMAP \OUTSTREAMARG \GETSTREAM IMAGEOP +SPREADAPPLY* IMIN IDIFFERENCE \GETDISPLAYDATA \DTEST IMAX \DSPTRANSFORMX IPLUS \DSPTRANSFORMY +.WHILE.TOP.DS. DSPDESTINATION \GETBASE \TOTOPWDS \BITBLT.BITMAP BITMAPCREATE BITBLT) +COMPILER::ENV-PROCLAIM-GLOBAL (COMPILER::ENV-DECLARED-GLOBALS COMPILER::FIND-TOP-ENVIRONMENT) +\GC.ENTER.BIGREFCNT (\LOLOC \ADDBASE PLUS FFETCHFIELD) PRINTERSTATUS (PRINTERPROP PRINTERTYPE APPLY*) +\BACKFORMAT (IDIFFERENCE \GETCHB \BACKBIN PLUS IMAX ADD1 SUB1 \FORMATLINE) COMPILER::CLOSURE-ANNOTATE-BLOCK + (COMPILER::CLOSURE-ANNOTATE COMPILER::BLOCK-STMT COMPILER::VARIABLE-CLOSED-OVER COMPILER::BLOCK-BLIP-VAR + COMPILER::MAKE-VARIABLE COMPILER::BLOCK-CLOSED-OVER-VARS CONS CL:UNION) \BLTSHADE.BITMAP (IMAX IMIN +IPLUS SELECTQ TYPENAME COLORNUMBERP \ILLEGAL.ARG MAXIMUMCOLOR LOGAND TEXTUREP TEXTUREOFCOLOR ITIMES +COLORTEXTUREFROMCOLOR# IDIFFERENCE \SFInvert) \BITBLT.BITMAP (IMAX IMIN IPLUS IDIFFERENCE LOGXOR +LOGAND COLORNUMBERP INVERT.TEXTURE.BITMAP BITMAPCREATE \ILLEGAL.ARG UNFOLD LLSH COLORTEXTUREFROMCOLOR# + ITIMES \SFInvert MAXIMUMCOLOR) OPT.JUMPCHECK (SELECTQ) \SEARCHOPENFILES (\IOMODEP) +\CREATE.TTYDISPLAYSTREAM (CREATEW CREATEREGION IPLUS CONCAT PROCESSPROP THIS.PROCESS TTYDISPLAYSTREAM) + COMPILER::TEST-ANALYSIS (COMPILER::TEST-ALPHA-2 CL:MULTIPLE-VALUE-PROG1 .UNWIND.PROTECT. FUNCTION +COMPILER::PRINT-TREE COMPILER::ANALYZE-TREE) CHAT.TYPEOUT (FASSOC WINDOWPROP CL:FUNCALL BIN +\CARET.DOWN GETSTREAMPROP LOGAND MASK.1'S LSH SUB1 PLUS) SEDIT::SCAN-STRING (NCHARS SEDIT::ESCAPE-CHAR + FFETCHFIELD ADD1 CHARWIDTH NTHCHARCODE IPLUS IDIFFERENCE SUB1) INFILE (INPUT OPENFILE) \LFCloseFile ( +WITH.MONITOR CL:MULTIPLE-VALUE-PROG1 .UNWIND.PROTECT. FUNCTION PLUS \LFUpdateLeaderPage) +SEDIT::ATOM-CHANGE-RELINEARIZE (SEDIT::CLOSE-NODE CL:FUNCTION SEDIT::RELINEARIZE) OPENFILE (OPENSTREAM +) \LEAF.MAYBE.FLUSH.CACHE (\LEAF.FLUSH.CACHE) IMPORTEVAL (SELECTQ MAPCONC IMPORTEVAL LIST) GETBLOCKDEC + (LOADFNS-FINDFILE FILECOMSLST SUBSET LITATOM LIST) GRAPHOBJ.GETFN (SKIPSEPRCODES READGRAPH GRAPHEROBJ + GRAPHOBJ.GETALIGN HREAD CREATEPOSITION READ) \GC.BIGREFCNT.MISSING (\MP.ERROR) /LISPXPUT (FMEMB +/NCONC LIST) FW-FORGET-STREAM (GETSTREAM) LOADFNS-FINDFILE (EDITLOADFNS? NARGS ERROR) \INSURESCREEN ( +\ILLEGAL.ARG) COMPILER::SUBSTITUTABLE-P (COMPILER::VAR-REF-P COMPILER::LITERAL-VALUE) +\GC.LOOKUP.BIGREFCNT (\LOLOC \ADDBASE \MAKENUMBER) GRAPHOBJ.PUTFN (IMAGEOBJPROP TERPRI) \GCMAPSCAN ( +\ADDBASE \GCSCAN1 \VAG2 LLSH \LOLOC .FREELINK. \GCRECLAIMCELL OPCODES) IDLE.SHOW.OPTION (LISTGET PRIN1 + SELECTQ L-CASE CONCAT SUBPAIR MKSTRING printout TERPRI) LOADBLOCK (LOADFNS-FINDFILE SUBSET +GETBLOCKDEC LIST VIRGINFN LOADFNS) ARG (GETBASEPTR \GETBASEPTR \ARGPTR \EVAL) INSERT.NODE (TTNEXTNODE +FRPLACD FRPLNODE2 SCRATCHCONS) PFI.LINES.REMAINING (DSPBOTTOMMARGIN ADD1 IQUOTIENT - DSPYPOSITION +DSPLINEFEED) \GCMAPUNSCAN (\ADDBASE \GCSCAN2 \LOLOC .FREELINK.) OUTFILE (OUTPUT OPENFILE) \IRND ( +IMINUS IQUOTIENT IDIFFERENCE LRSH IPLUS) GRAPHOBJ.BUTTONEVENTINFN (IMAGEOBJPROP GRAPHBUTTONEVENTFN +SIZE/GRAPH/WINDOW LIST EDITGRAPH1 COPYGRAPH) OUTFILEP (\GETFILENAME) RECORDECL0 (GETHASH RECORDECL1) +DBG::BACKTRACE-MENU-BUTTONEVENTFN (WINDOWPROP) \FREELISTCELL (FREPLACEFIELD PLUS FFETCHFIELD PAGELOC +IPLUS LLSH \HILOC LRSH \LOLOC) RENAMEFILE (\CONVERT-PATHNAME \RENAMEFILE) IOFILE (OPENFILE) +CIRCSHADE.DISPLAY (\CIRCSHADE.DISPLAY ERROR) HVBAKREAD (READC SKIPSEPRS APPLY READ HARRAY RATOM +PUTHASH ARRAY SELECTQ ARRAYSIZE HVRPTREAD PLUS ADD1 GETDESCRIPTORS FASSOC EQUAL GETFIELDSPECS CONS +/DECLAREDATATYPE NCREATE REPLACEFIELD VAG AT2VC COPYREADTABLE SETSYNTAX COPYTERMTABLE IPLUS ITIMES +FNTH IDIFFERENCE HVREADERR HVREADCHECKGETFN PEEKC EVAL LIST ZEROP) PFI.SETUP.TRANSLATIONS (ASSOC +IMAGESTREAMTYPE CONS DSPFONT CHARWIDTH MAPCAR LIST* LIST CL:APPLY FUNCTION) SIMPLE.FINDFILE (INFILEP +PACKFILENAME.STRING) \REFCNT (\ADDBASE LRSH UNFOLD LLSH \LOLOC \HILOC \GC.LOOKUP.BIGREFCNT) MAKEPRESS +(TEXTTOIMAGEFILE) SEDIT::MENU-PRINTBASE-SELECTEDFN (LISTGET FM.ITEMPROP FM.EDITITEM SEDIT::MENU-SELECTEDFN + LIST PRIN1 GETPROMPTWINDOW MAINWINDOW FM.CHANGESTATE) \EQREFCNT1 (\ADDBASE LRSH UNFOLD LLSH \LOLOC +\HILOC) \PFCreateFileDescriptors (ARRAY SUB1 PLUS) LOADEFS (LOADFNS) \SET.FINALIZATION.FUNCTION (FIXP +\TYPENUMBERFROMNAME \ILLEGAL.ARG \PUTBASEPTR UNFOLD LLSH) OPT.JFIXPASS (APPLY* IDIFFERENCE) \COPYSYS ( +PACKFILENAME.STRING U-CASE FILENAMEFIELD \UFS.RECOGNIZE.FILE \GETDEVICEFROMNAME \FLUSHVM RENAMEFILE +CONCAT UNIX-GETENV COPYFILE IMINUS LIST) NIL +BIND \TOTALFIXEDHEIGHT (MAXEDW) CLEARHASHFILES (RELEASE) \GENERIC.READP (STRM FLG) \VAMUpdateVAM ( +filePtr) MSSTOREDATA (FNDATA) TEDIT.COPY.LOOKS (SOURCE) \MAIKO.COPY-TIME-STATS (REFERENCE-BLOCK +DESTINIATION-BLOCK) \UFS.RECOGNIZE.FILE (SI::*LOCKED-MONITOR* SI::*RESETFORMS*) DBG::REGION-NEXT-TO ( +WHERE TRIED-ONCE? RLEFT RBOTTOM) \BACKCCODE (BYTECOUNTVAL) CL:SET-CHAR-BIT (CHAR NEWVALUE) +COMPILER::FRAME-ANNOTATE-VAR-REF (COMPILER::SELF) \DEVICE.OUTPUT (VALUE TASKREG) SIMPLE-NSUBSTITUTE-IF + (NEWITEM TEST SEQUENCE START END) \TFBRAVO.APPLY.PARALOOKS (TABPHRASE SMALLEST.MARGIN) +\ALLOCPAGEBLOCK (\INTERRUPTABLE) \TEDIT.COMMAND.LOOP (TTYWINDOW DIRTY INSCH# TLEN CHNO READSA +COMMANDFN \INTERRUPTABLE) ANALYZE-PARAMETER (PATH) TEDIT.SELECT (L1 LN) CLOCK (N BOX) +\ALLOCVIRTUALPAGEBLOCK (\INTERRUPTABLE) COMPLEX-COUNT-IF-NOT (TEST SEQUENCE START END KEY) +\CHECKBCPLPASSWORD (USER PASSWORD) HARDCOPY.SOMEHOW (IMAGETYPE HEADING) COMPILE-FILE-SCAN-FIRST (DEFER + DFNFLG FIRST NOTFIRST) TEDIT.SUBPARALOOKS (NEWLOOKS) CL::STRUCTURES.HASDEF (TYPE CL::SOURCE +CL::SPELLFLG) LOADCOMP (BLOCKS) FASL:UNIMPLEMENTED-OPCODE (STREAM) FORMAT-GENERAL-FLOAT (COLON ATSIGN +PARMS) CL::MAYBE-MAKE-BINDING-FORM (CL::VALS CL::GETTER) \INSPECTW.REDISPLAYPROP (*PRINT-LEVEL* +*PRINT-LENGTH*) COPYFILES (*UPPER-CASE-FILE-NAMES* DEST HELPFLAG) CL::ASSIGN-STRUCTURE-REPRESENTATION +(CL::LOCAL-SLOTS) FASL:OPEN-FASL-HANDLE (FASL::NAME FASL::OPEN-OPTIONS) COMPILER::META-SUBST (COMPILER::NODE +) CHAT.TTYEXITFN (PROCESS NEWPROCESS) SPYOBJ (STATUS *PRINT-PRETTY* *PRINT-LEVEL* *PRINT-LENGTH*) +\BITBLTSUB (PILOTBBT SourceBitMap SLX STY DestinationBitMap DLX DTY HEIGHT SourceType Operation +Texture WindowXOffset WindowYOffset) SEDIT::ASSIGN-FORMAT-NIL (CL:FORMAT) WHILEDOUNTIL (UNTIL) GCMESS +(NUM STR) \DSPRATE (AC0 AC1 AC2) FILEGETDEF.VARS (TYPE OPTIONS) \TEDIT.FIXCHANGEDPART (TEXTOBJ +STARTINGLINE WINDOW INCREMENTAL? NEXTCARETCH#) CL:PACKAGE-SHADOWING-SYMBOLS (PACKAGE) %%AREF-EXPANDER +(ARRAY INDICES) SIMPLE-NSUBSTITUTE-IF-NOT (NEWITEM TEST SEQUENCE START END) CL::SETF-ERROR (CL::FORM) +DISCARDXIPS (\INTERRUPTABLE) XCL:ADVISE-FUNCTION (XCL::ALREADY-ADVISED?) SUBSTRING (\INTERRUPTABLE) +SI::ADVICE-HASDEF (TYPE SI::SOURCE) XCL::IMPLICIT-KEY-MAP-HASH (XCL::FN XCL::LAST-ADDRESS +XCL::KEY-ACCESSOR XCL::NULL-SLOT-INDICATOR XCL::VALUE) SEDIT:SAVE-WINDOW-REGION (SEDIT::CONTEXT +SEDIT::REASON SEDIT::NAME TYPE SEDIT::REGION) \DOSTORAGEFULLINTERRUPT (HELPFLAG) +COMPLEX-COMPARE-BACKWARD (SEQUENCE1 SEQUENCE2 KEY TEST TEST-NOT-P) \TOTALFIXEDWIDTH (MAXEDW) +CL:PACKAGE-USED-BY-LIST (PACKAGE) COMPILE-FILE-EXPRESSION (NAME) ANALYZE-KEY (ARGLIST RESTVAR ERRLOC +CHECK-KEYWORDS KEYWORDS-SEEN) XCL::CLEAR-IMPLICIT-KEY-HASH (XCL::LAST-ADDRESS \INTERRUPTABLE) +FILEGETDEF.FNS (TYPE) SEDIT::SET-POINT-UNKNOWN (SEDIT::ITEM TYPE) ALLOCSTRING (\INTERRUPTABLE) +%%ASET-EXPANDER (NEWVALUE ARRAY INDICES) \3MBRAWTRANSMIT (NDB \INTERRUPTABLE) \GATHERSTATS (FID) +NORMSECT (Y) \PARSE-FILE-HEADER (STREAM FILECREATEDFN RETURNFORM INITIALENV) COMPILER::META-SUBSTITUTE + (COMPILER::*SUBST-EXPR* COMPILER::*SUBST-VAR*) COMPILER::EFFECTS-ANALYZE-LIST (COMPILER::NODE LIST) +\LEAF.ABORT.FROMMENU (ITEM BUTTON) \TEDIT.REPAINTFN (TEXTSTREAM CH# WWIDTH) +SEDIT::MENU-SUBSTITUTE-SELECTEDFN (SEDIT::CONTEXT) XCL::PPRINT-DEFINER (XCL::FORM) SI::ADVICE-DELDEF ( +TYPE) VRULE.GETFN2 (TEXTSTREAM) PRINT-LISP-INFORMATION (SI::*RESETFORMS*) TEDIT.GET.OBJECT (NAMELEN) +UNIX-GETENV (NAME) \PAGED.INCFILEPTR (\INTERRUPTABLE) DISABLEGC (\INTERRUPTABLE) CL:PACKAGE-NICKNAMES +(PACKAGE) UNPACKPATHNAME.STRING (DIRFLG) READ-FILECREATED (STARTPOS) NTHCHARCODE (DUMMY) \FIXILINES ( +CH# CHLIM) FORMAT-EXP-AUX (E K OVF PAD MARKER ATSIGN) \TEDIT.INCLUDE (TEXTOBJ FILE START END) +INSPECTW.REPLACE (XCL:*EVAL-FUNCTION*) COMPILER::EFFECTS-REPRESENTATION (COMPILER::VAR) MKSTRING ( +*PRINT-ESCAPE* *READTABLE* *PRINT-RADIX* *PRINT-BASE* *PRINT-LENGTH* *PRINT-LEVEL*) EXEC-READ ( +BUFFER-STRING) SEDIT::PRINT-GAP (SEDIT::X) TEDIT.SEL.AS.STRING (OFFST BASE) CL::PRINT-PACKAGE (CL::DEPTH +) \TEDIT.EXPAND.DATE (STREAM CH) FLASHWINDOW (\INTERRUPTABLE) FORMAT-GET-PARAMETER (NUMSIGN) +SEDIT::MENU-FIND-SELECTEDFN (SEDIT::CONTEXT) \FILLWINDOW (YBOT CURLINE TEXTOBJ DONTFILLFLG WINDOW +NEXTCARETCH#) TEDIT.DISPLAYTEXT (CHWIDTH SEL DY) MOVD (\INTERRUPTABLE) UNIX-GETPARM (NAME) READ ( +*READTABLE* *READ-NEWLINE-SUPPRESS*) \FM.EDIT-MESSAGE (ITEM WINDOW) FQUOTIENT (X Y) +SEDIT::RELEASE-OPEN-STRING (SEDIT::OLD-STRING SEDIT::NEW-STRING SEDIT::POINT SEDIT::SELECTION) +\SPP.SETFILEPTR (CON) CL::PRINT-PACKAGE-HASHTABLE (CL::DEPTH) SHRKFY (FORM) \TEDIT.SCROLLFN (W DX DY) +FDIFFERENCE (X Y) COMPILER::EFFECTS-ANALYZE-ANY-CALL (COMPILER::NODE COMPILER::FN COMPILER::ARGUMENTS) + FASL:DUMP-EVAL (FASL::HANDLE FASL::FORM) \FIXSEL (SEL TEXTOBJ THISWINDOW AVOIDINGTHISW) EDITGETDEF ( +SEDIT::WINDOW) FGREATERP (X Y) FILEGETDEF.PROPS (TYPE OPTIONS) UNREADITEM (MENU BUTTON) CHNGNM ( +SI::*RESETFORMS*) FIND-EXEC-COMMAND (NAME TABLE) WRITE (*PRINT-ESCAPE* *PRINT-RADIX* *PRINT-BASE* +*PRINT-LEVEL* *PRINT-LENGTH* *PRINT-CASE* *PRINT-GENSYM* *PRINT-ARRAY* *PRINT-PRETTY* +*PRINT-CIRCLE-NUMBER*) MENUREPAINTFN (REG) FABS (X) ASKUSER (NOCASEFLG READBUF) SEDIT::INSERT ( +SEDIT::SUBNODES SEDIT::CHARS) SEDIT::RELINEARIZE-PRELINEARIZED-NODE (SEDIT::LITEM) \DEVICE.INPUT ( +TASKREG) \FILLPOLYGON.PSC (OPERATION) CL::GET-SHARED-SETF-METHOD (CL::SHARED-SETF-INVERSE) EF ( +*EDITMODE*) \NSRANDOM.PROCEEDABLE.ERROR (STREAM ERROR ERRORARGS PROCEED-DETAILS) ANALYZE-AUX (ARGLIST +ERRLOC) SEDIT::REPLACE-QUOTE (SEDIT::WHERE SEDIT::POINT) XCL::MAKE-IMPLICIT-KEY-HASH-TABLE (XCL::MIN-KEYS +) XCL::ADD-LABELS/FLET-ENVIRONMENT (XCL::LABELS/FLET-FORM XCL::ENV) CONDITIONS::EXPAND-WITH-COLLECTION-SITES + (CONDITIONS::NEW-SITES CONDITIONS::BODY CONDITIONS::OLD-SITES CONDITIONS::NEW-SITES-AND-TAILS) +COMPLEX-COUNT (ITEM SEQUENCE START END KEY TEST TEST-NOT-P) SEDIT::CLEAN-UP-AFTER-RELINEARIZATION ( +SEDIT::Y-1 SEDIT::Y-2 SEDIT::BOTTOM SEDIT::WINDOW-WIDTH SEDIT::RY-1 SEDIT::RY-2) +\TEDIT.PUT.SINGLE.PARALOOKS2 (OUTPUTFORMAT LEN) \BLTCHAR (CHARCODE DISPLAYSTREAM DISPLAYDATA) +\BOXFQUOTIENT (BORROW) COMPILER::COMPILE-DEFINER-PROCESS-FUNCTION (COMPILER::COMPILER-CONTEXT +COMPILER::MESSAGE) SEDIT::REPLACE-CHARS (SEDIT::NEW-END SEDIT::MULTI-ESCAPE SEDIT::ADD-MULTI-ESCAPE? +SEDIT::COMPUTE-NEW-POINT-TYPE? SEDIT::CARET) \TEDIT.FIND (AGAIN) PFI.PRINT.INDEX (*PFI-ITEM* +*PFI-TITLE*) \TERMINATESPP (SI::*LOCKED-MONITOR* SI::*RESETFORMS*) MAKE-REPORT-FUNCTION (DATUM +BOUND-VAR TYPE-NAME) %%MERGE-LISTS (LIST1 LIST2 PRED KEY) \PROCESS.AFTER.EXIT (FLG) +COMPILER::BINDING-TO-LAMBDA (COMPILER::BINDING) %%FILL-ARRAY-FROM-SEQUENCE (SEQUENCE FLATTENED-ARRAY +OFFSET) \3MBRAWRECEIVE (NDB \INTERRUPTABLE) SEDIT:GET-WINDOW-REGION (SEDIT::CONTEXT SEDIT::REASON +SEDIT::NAME TYPE) IRM.GET.CREF (TEXTSTREAM) CL::STRUCTURE-FUNCTIONS (CL::STRUCTURE-NAME CL::PS) +TEDIT.GET.LOOKS (FONT) CLISPDEC (TYPE-IN? FAULTFN) VALUOF (HISTORYFLG) FORMAT-EXPONENTIAL (COLON +ATSIGN PARMS) EV (*EDITMODE*) TEDIT.INCLUDE (NPC PCCOUNT) TTYIN.BALANCE (RPTN) D-ASSEM:ASSEMBLE-FUNCTION + (D-ASSEM::*DVAR-ENV* D-ASSEM::*STACK-ENV* D-ASSEM::*LOCAL-FN-FIXUPS* D-ASSEM::ID) \MEDW.CURSOR ( +SCREEN) SIMPLE-NSUBSTITUTE (NEWITEM OLDITEM SEQUENCE START END) %%MAP-FOR-EFFECT-MULTIPLE (FUNCTION +MIN-LENGTH ELT-SLICE) COMPILER::COMPILE-DEFINER-OUTSTANDING-LOOSE-FORMS (COMPILER::COMPILER-CONTEXT) +\OPENLINEBUF (STREAM) \TEDIT.PUT.SINGLE.CHARLOOKS2 (STR LEN) D-ASSEM:INTERN-DCODE (D-ASSEM::NTBYTESIZE + D-ASSEM::CODE-ARRAY \INTERRUPTABLE D-ASSEM::START-PC) \DSPPRINTCR/LF (FONT) %%MAP-FOR-EFFECT-SINGLE ( +FUNCTION SEQUENCE) SI::ADVICE-GETDEF (TYPE SI::OPTIONS) COMPLEX-COUNT-IF (TEST SEQUENCE START END KEY) + CL:MULTIPLE-VALUE-CALL (FORMS) MODERNWINDOW.SETUP (ORIGFN MODERNWINDOWFN ANYWHERE TITLEPROPORTION) +SEDIT::PRINT-BROKEN-ATOM (SEDIT::X) TWODINSPECT.SELECTITEM (*PRINT-LEVEL* *PRINT-LENGTH*) +CONDITIONS::NORMALIZE-SLOT-DESCRIPTION (CONDITIONS::SLOT-DESC) FILEGETDEF.MACROS (NAME TYPE OPTIONS) +CLISPIF0 (DWIMIFYCHANGE) SEDIT::SET-INITIAL-SELECTION (SEDIT::CANDIDATE) DWIMIFYFNS (CLK) BIT ( +BIT-ARRAY INDICES) TEDIT.DEFAULT.MENUFN (OCURSOR LINES) FIXSPELL (DWIM.GIVE.UP.TIME SI::*RESETFORMS*) +D-ASSEM:FIXUP-PTR-NO-REF (\INTERRUPTABLE) COMPLEX-SUBSTITUTE-IF-NOT (NEWITEM TEST SEQUENCE START END +FROM-END KEY COUNT) SI::PROCESS-PROCEED-KEYWORDS (SI::NAME SI::ARG PACKAGE SI::FILTER SI::REPORT) +\LOAD-STREAM (*STANDARD-INPUT* *PACKAGE* *READTABLE* PRLST FILECREATEDENV FILEMAP FNADRLST +FILECREATEDLST INTERLISP-P FILECREATEDLOC) D-ASSEM:FIXUP-SYMBOL (\INTERRUPTABLE) \NULL.OPENFILE (NAME +RECOG PARAMETERS) XCL::ADD-MACROLET-ENVIRONMENT (XCL::MACROLET-FORM XCL::ENV) SI::SPLIT-PROCEED-CLAUSES + (SI::ENV SI::OPTIMIZE?) SIMPLE-COUNT-IF-NOT (TEST SEQUENCE START END) \GETSPP (SI::*LOCKED-MONITOR* +SI::*RESETFORMS* \INTERRUPTABLE) \LEAF.GETFILE (MODE SI::*LOCKED-MONITOR* SI::*RESETFORMS*) +EXTERNAL-SYMBOL-COUNT (PACKAGE) COMPILER::SCAN-ONE-FORM (COMPILER::COMPILER-CONTEXT) +%%MAP-FOR-RESULT-MULTIPLE (FUNCTION ELT-SLICE RESULT) BACKGROUNDWHENSELECTEDFN (FROMMENU BUTTON) +FILEGETDEF.RECORDS (NAME TYPE OPTIONS) CLISPATOM0 (SI::*RESETFORMS*) MB.SHOWSELFN (SEL) D-ASSEM:FIXUP-PTR + (\INTERRUPTABLE) DWIMDEF (NOSPELLFLG DWIMESSGAG FILEPKGFLG LISPXHIST) SI::ADVICE-PUTDEF (TYPE) +%%MAP-FOR-RESULT-SINGLE (FUNCTION) SI::EXPAND-CONDITION-CASE (SI::ENV SI::VALUE-SLOT SI::ONLY-ONE-VALUE? +) ENTER-NEW-NICKNAMES (PACKAGE NICKNAMES) CL::NAME-SLOT (CL::PS) CONDITIONS::CONVERT-RESTART-CASES ( +CONDITIONS::CLAUSES CONDITIONS::ENV CONDITIONS::OPTIMIZE?) MSPARSE (FLG) PFI.PRINT.INDICES (LINELEN +SPACEWIDTH PREVITEM) COMPILER::COMPILE-DEFINER-NAMED-PROGN (COMPILER::COMPILER-CONTEXT COMPILER::FORM) + FASL::DUMP-BITMAP (FASL::REMEMBER FASL::WIDTH FASL::HEIGHT FASL::BITS-PER-PIXEL FASL::BASE STREAM) +PFI.PRINT.MULTI.INDEX (*PACKAGE* *READTABLE*) CONDITIONS::EXPAND-RESTART-CASE (CONDITIONS::FORM +CONDITIONS::CLAUSES CONDITIONS::ENV CONDITIONS::VALUE-SLOT CONDITIONS::ONLY-ONE-VALUE?) TIMEREXPIRED? +(\INTERRUPTABLE) COMPILER::BIND-PARAMETER (COMPILER::VAR COMPILER::BINDER COMPILER:ENV) +TEDIT.PUT.OBJECT (TOFILE) POSSIBILITYFN (POSSLIST##) \SPP.CLEANUP (SI::*LOCKED-MONITOR* SI::*RESETFORMS* +) REPLACEFIELD (\INTERRUPTABLE) XCL:REINSTALL-ADVICE (XCL::NAME XCL::ADVICE) FNS.PUTDEF (TYPE) +D-ASSEM:RELEASE-DCODE (D-ASSEM::LOCAL-FN-FIXUPS) USEREXEC (SI::*RESETFORMS*) CONDITIONS::PARSE-RESTART-CASE + (CONDITIONS::NAME CONDITIONS::KEY CONDITIONS::VALUE) \TEDIT.FORMAT.FOOTNOTE (PAGEREGION STREAMSCALE +YBOT ORPHAN LASTLINE LHEIGHT SPECIALYPOS NEWPAGETYPE) \TEXTBIN (CH FILE STR) \POSTSCRIPT.OUTCHARFN ( +FONT) ICMLARRAY.SETVALUE (*PRINT-LEVEL* *PRINT-LENGTH*) %%EVERY-MULTIPLE (PREDICATE MIN-LENGTH +ELT-SLICE) CL:PACKAGE-USE-LIST (PACKAGE) PRINT-ARGLIST (TYPE REMARGS) CL:USE-PACKAGE (PACKAGES-TO-USE) + SI::VOWEL-P (CL:CHAR) SI::EXPAND-PROCEED-CASE (SI::FORM SI::CLAUSES SI::ENV SI::VALUE-SLOT +SI::ONLY-ONE-VALUE?) SEDIT::PREV-NODE (SEDIT::NODE SEDIT::INDEX) FASL::DUMP-STRUCTURE (FASL::HANDLE +FASL::REMEMBER TYPE) \MEDW.PUTWINDOWPROP (SCREEN) WHO-LINE-USER-AFTER-LOGIN (HOST USER) +%%SOME-MULTIPLE (PREDICATE MIN-LENGTH ELT-SLICE) CONDITIONS::CONVERT-CONDITION-CASE (CONDITIONS::WHOLE +) SEDIT.COPYTOCLIPBOARD (CONTEXT) TEDIT.FORMATBOX (SERVERTYPE NCHNO) SEDIT::PARSE--LIST-INTERNAL ( +CL:FORMAT SEDIT::NODE SEDIT::LIST-POSITIONS SEDIT::SUB-FORMATS SEDIT::SUB-FORMATS-LENGTH SEDIT::SUBNODE + SEDIT::SUBFORMAT) COMPILER::META-CALL-LAMBDA-SUBSTITUTE (COMPILER::NON-LOCAL-EFFECTS +COMPILER::*SUBST-OCCURRED*) %%SOME-SINGLE (PREDICATE LENGTH) CONDITIONS::CONVERT-OLD-DEFINE-CONDITION +(CONDITIONS::FORM) %%SIMPLE-MERGE-LISTS (LIST1 LIST2 PRED) ADDMAPBUFFER (TEMP ERRORFLG) +%%NOTEVERY-SINGLE (PREDICATE FIRST-SEQUENCE) CLOSENSOCKET (\INTERRUPTABLE) %%NOTANY-MULTIPLE ( +PREDICATE MIN-LENGTH ELT-SLICE) FORMAT-FIXED-AUX (OVF PAD ATSIGN SPACELEFT) SI::MAKE-AROUND-BODY ( +SI::CURRENT-BODY SI::CANONICALIZED-AROUND-FORM) IMPORT (CL::SYMBOLS CL::SYMS CL::HASHTABLE) +%%MAKE-ARRAY-STORAGE (TYPENUMBER) \TEDIT.RECORD.TABLEADERS (BUTTON NEWSTATE TEXTSTREAM SEL) +%%NOTANY-SINGLE (PREDICATE FIRST-SEQUENCE) \CHANGECHARSET.DISPLAY (\INTERRUPTABLE) DO.CHAT.OPTION ( +WINDOW) \LFCreateFile (\INTERRUPTABLE) CL:SHADOWING-IMPORT (SYMBOLS HASHTABLE) %%NOTEVERY-MULTIPLE ( +PREDICATE MIN-LENGTH ELT-SLICE) \NSPRINT.INTERNAL (PRINTER OPTIONS TRANSFERFN) SETSTKNAME ( +\INTERRUPTABLE) ONEDINSPECT.SETELT (*PRINT-LEVEL* *PRINT-LENGTH*) DBG::ATTACH-BACKTRACE-MENU ( +*PRINT-LEVEL* *PRINT-LENGTH* *PRINT-ESCAPE* *PRINT-GENSYM* *PRINT-PRETTY* *PRINT-CIRCLE* *PRINT-RADIX* + *PRINT-ARRAY* *PRINT-STRUCTURE*) CL:SHADOW (SYMBOLS HASHTABLE) \MEDW.GETWINDOWPROP (SCREEN) +\NAMEDTABSIZE (IMAGESTREAM RIGHTMARGIN) CL::GET-SIMPLE-SETF-METHOD (CL::SETF-INVERSE) \COPYFNHEADER ( +\INTERRUPTABLE) \SENDSPP (SI::*LOCKED-MONITOR* SI::*RESETFORMS* \INTERRUPTABLE) EXPORT (SYMBOLS SYMS +USED-BY CPACKAGES CSET MISSING IMPORTS INTERNAL EXTERNAL) CLMAPS2 (OPR0 CLTYP0) SUBARRAY (NEWORIG +\INTERRUPTABLE) REDUCE-FROM-END (FUNCTION SEQUENCE START END INITIAL-VALUE) +SI::CREATE-ADVISED-DEFINITION (SI::ADVISED-FN SI::FN-TO-CALL SI::ADVICE-NAME) SEDIT::MAXIMUM-STRING-WIDTH + (SEDIT::STRING-LIST SEDIT::FONT SEDIT::PRIN2?) COMPILER::PROCESS-IL-DECLARATIONS (COMPILER::SPECS) +\TEXTBOUT (PSTR) INFILECOMTAIL (SI::*RESETFORMS*) \PNC (\INTERRUPTABLE) SEDIT::SETUP-NEW-CONTEXT ( +SI::*LOCKED-MONITOR* SI::*RESETFORMS*) CHECKBUFFERREFVAL (\INTERRUPTABLE) SI::A-OR-AN (SI::WORD) +\PEEKPUP (RPTN) \TEDIT.MOVE.PIECEMAPFN (TEXTOBJ) \TEDIT.FIND.LAST.LINE (CURY) CLEARMAP (RELEASE) +IRM.CREF.BOX (CURRENTX RIGHTMARGIN) COMPILER::META-CALL-LAMBDA-SIMPLIFY-PARAMETERS (COMPILER::INNERMOST-CALL + COMPILER::INNERMOST-LAMBDA COMPILER::NEW-ARGS COMPILER::NEW-PARAMS COMPILER::KEY-PARAMS COMPILER::REST-VAR +) COMPLEX-SUBSTITUTE (NEWITEM OLDITEM SEQUENCE START END FROM-END KEY COUNT TEST TEST-NOT-P) +SEDIT::COMPLETE (SEDIT::CHARCODE SEDIT::COMPILE?) COMPILER::RAW-COMPILE (COMPILER::*CURRENT-FUNCTION* +COMPILER::LAP-FN) = (CL::I) \TEDIT.GET.SINGLE.CHARLOOKS2 (FILE) FASL::DUMP-FLOAT32 (FASL::REMEMBER) +FB.UPDATEBROWSERITEMS (WINDOW) \LEAF.TIMEDOUT.EXCESSIVE (CNT) \LFMakeVolumeDirectory (\INTERRUPTABLE) +DWIMIFY2 (TAIL PARENT SUBPARENT FORMSFLG ONEFLG ONLYSPELLFLG) OPT.COMMONBACK (TMP) +RESOLVE-USE-PACKAGE-CONFLICT (XCL::MY-CONDITION) COMPILER::START-COMPILATION (SI::*RESETFORMS*) +REDUCE-FROM-START (FUNCTION SEQUENCE START END INITIAL-VALUE) FILEGETDEF.LISPXMACROS (TYPE OPTIONS) +\CLEARMAP (\INTERRUPTABLE) WHEREIS (NAME TYPE FILES FN) %%SIMPLE-MERGE-VECTORS (RESULT VECTOR1 VECTOR2 + PRED) GETDEFFROMFILE (LOAD-VERBOSE-STREAM) FORMAT-FIXED (COLON ATSIGN PARMS) MB.SIZEFN (CURX +RIGHTMARGIN) PUTBASEPTRX (\INTERRUPTABLE) RESUME (\INTERRUPTABLE) OPT.JUMPREV (FRAME) XCL:PKG-GOTO ( +XCL::NAME XCL::KEYS) SEDIT::MINIMUM-STRING-WIDTH (SEDIT::STRING-LIST SEDIT::FONT SEDIT::PRIN2?) +%%MERGE-VECTORS (RESULT VECTOR1 VECTOR2 PRED KEY) FILEGETDEF.ALISTS (TYPE OPTIONS) \GR.GvarInitLst ( +NAME) \DO-DEFINE-FILE-INFO (STREAM) CL:IN-PACKAGE (KEYS) %%LLARRAY-MAKE-ACCESSOR-EXPR (BASE OFFSET +ACCESSOR BITS-PER-ELEMENT NEEDS-SHIFT-P) XCL::UNDOABLY-SET-SYMBOL (XCL::ENVIRONMENT XCL::OLDVAL XCL::TEM +) CHAT.RESHAPEWINDOW (OLDSCREENREGION) STKARG (N POS DEFAULT) \TEDITMENU.RECORD.UNFORMATTED (BUTTON) +COMPILER::META-CALL-LAMBDA (COMPILER:CONTEXT) COMPLEX-SUBSTITUTE-IF (NEWITEM TEST SEQUENCE START END +FROM-END KEY COUNT) COMPILER::EFFECTS-ANALYZE-TAGBODY (COMPILER::NODE) SEDIT::OPEN-LITATOM (CL:LENGTH) + SEDIT::TRACK-SELECT (SEDIT::BAR-Y SEDIT::BAR-HEIGHT) \RELEASEBUFFER (STREAM) UPDATEFILEMAP ( +*PRINT-RADIX*) CL:Y-OR-N-P (ARGUMENTS) \EDIT.FLIPCARET (CARET FORCE) FINISH-READING-BITMAP (DIMENSIONS +) XCL::MAKE-LEXICAL-ENVIRONMENT (XCL::MACROLET/FLET/LABELS-FORM XCL::ENVIRONMENT) SIMPLE-COUNT-IF ( +TEST SEQUENCE START END) COMPILER::UPDATE-ENVIRONMENT (COMPILER:ENV) \ACTONDISKPAGES (EMFID +\INTERRUPTABLE) CLRHASH (\INTERRUPTABLE) FASL::DUMP-STRING (FASL::HANDLE STRING FASL::REMEMBER) +PRINTER.BITMAPFILE (FILE BITMAP SCALEFACTOR REGION ROTATION TITLE) CL:RENAME-PACKAGE (FOUND) +CLOSEBSPSTREAM (SI::*LOCKED-MONITOR* SI::*RESETFORMS*) \SHOWSEL (HOW LL SHOWFN) +FB.IS.NOT.SUBDIRECTORY.ITEM (BROWSER) SIMPLE-COUNT (ITEM SEQUENCE START END) +SEDIT::COMPUTE-SELECTION-POSITION (SEDIT::SELECTION SEDIT::CONTEXT) FASL:PROCESS-FILE (FASL::TEXT-FN +FASL::ITEM-FN FILEPKGFLG DFNFLG LISPXHIST ADDSPELLFLG) CL:UNINTERN (NAME SHADOWING-SYMBOLS) +COMPILER::COMPILE-DEFINER-DEFINER (COMPILER::COMPILER-CONTEXT COMPILER::FORM) \TEDIT.LOOKS.UPDATE ( +TEMP) \DISKERROR (LASTNC) FILING.CALL (SI::*LOCKED-MONITOR* SI::*RESETFORMS*) \IDLER ( +IDLING.KEYACTIONS) SEDIT::MENU-INIT-STATE (SEDIT::CONTEXT *PRINT-BASE*) MAPRINT (SI::*RESETFORMS*) +SEDIT::NEXT-NODE-TYPE (SEDIT::STR TYPE) GREET (FLG) COMP.MAP (ALLVARS SPECVARS LOCALVARS) +SETSTKARGNAME (\INTERRUPTABLE) MB.DEFAULTBUTTON.ACTIONFN (W) LISPXTERPRI (Y Z) CL:YES-OR-NO-P ( +CL::FORMAT-STRING CL::ARGUMENTS) %%PRINT-ARRAY-CONTENTS (FLAT-ARRAY OFFSET *PRINT-LEVEL*) BEEP (DS) +%%PRINT-CONDITION (LEVEL) %%THIN-STRING-ARRAY-P (ARRAY) SEDIT::PARSE--BROKEN-ATOM (SEDIT::MODE) +CL:UNUSE-PACKAGE (PACKAGES-TO-UNUSE) %%DEFPRINT-ARRAY (HASH RANK RANKSTR) COMPILER::COPY-CODE ( +COMPILER::*COPY-NODE-TABLE*) \CONVERTNUMBER (IGNORE) PRETTYDEF (PRTTYFNS PRTTYCOMS NEWFILEMAP %#RPARS +*PRINT-ARRAY* XCL:*PRINT-STRUCTURE* *PRINT-LEVEL* *PRINT-LENGTH* FILEFLG FNSLST PRTTYTEM PRETTYCOMSLST + PRTTYSPELLFLG MAPADR NLAMALST NLAMLST LAMALST LAM?LST FILEDATES ORIGFLG) \IBMPEEKCCODEFN (COUNTP) +%%LLARRAY-MAKE-SETTOR-EXPR (BASE OFFSET NEWVALUE SETTOR BITS-PER-ELEMENT NEEDS-SHIFT-P) +\WRITEDISKPAGES (LASTNUMCHARSCONS EMFID \INTERRUPTABLE) CL:PRINC-TO-STRING (*PRINT-ESCAPE*) READPLIST +(PLIST) REPORT-CONDITION (CONDITION STREAM) CL::MERGE-SLOTS (CL::INCLUDED-SLOTS CL::PS) +CL:MAKE-DISPATCH-MACRO-CHARACTER (NON-TERMINATING) CL:SET-MACRO-CHARACTER (FUNCTION NON-TERMINATING) +DEFAULT-HANDLE-CONDITION (CONDITION) \HASHACCESS (\INTERRUPTABLE) CL-WRAP-MACRO (FN CHAR) +\TEDIT.SET.WINDOW.EXTENT (TEXTOBJ) LISPXREADBUF (STRIPSEPRSFLG) NUKE-SYMBOL (TABLE BASE OFFSET LENGTH +FATP HASH EHASH) %%DEFPRINT-VECTOR (HASH FINAL.INDEX ELIDED SIZESTR) FB.MENU.WHENSELECTEDFN (MENU KEY) + HASH-A (CHAR) ONEDINSPECT.RESHAPEFN (SELECTION) ADD-SYMBOL (SYMBOL-BASE SYMBOL-LENGTH SYMBOL-FATP +CL:SXHASH H2 VEC1 HASH1 THIS-HASH THIS-VEC) %%DEFPRINT-GENERIC-ARRAY (ARRAY STREAM HASH) CLSMARTEN ( +FNLIST NOSPELLFLG) FNUM-STRING (INDEX) \TEDIT.FIND.PROTECTED.END (PCTB) SEDIT::EQUALIZE-STRING-WIDTHS +(SEDIT::DESIRED-WIDTH SEDIT::PAD-CHAR) HPRINT1 (RPTCNT RPTLAST V) RESOLVE-EXPORT-CONFLICT ( +XCL::MY-CONDITION) %%DEFPRINT-STRING (STREAM ESCAPECHAR CLP SIZE) CHECK-TYPE-FAIL (PROCEEDABLE PLACE +VALUE DESIRED-TYPE MESSAGE) CL:VECTOR-PUSH (NEW-ELEMENT FILL-POINTER) COMPILER:OPTIMIZE-AND-MACROEXPAND-1 + (COMPILER:CONTEXT COMPILER::*NEW-COMPILER-IS-EXPANDING* OPTIMIZERS) MAKE-INTO-CONDITION (DATUM +DESIRED-TYPE ARGS) \MAIKO.SETTIME (RETFLG) WALK-PROCEED-CASES (PROCEED-CASES PRED) +%%DEFPRINT-BITVECTOR (STREAM HASH FINAL.INDEX ELIDED SIZESTR) CLISPFORVARS (CLISPCONTEXT) +\ICONW.FORMAT.TITLE1 (FONTHEIGHT TCH) SEDIT::COMPUTE-POINT-POSITION (SEDIT::POINT SEDIT::CONTEXT) +EXEC-READ-LINE (*IN-THE-DEBUGGER* *EDIT-INPUT-WITH-TTYIN*) CL:UNEXPORT (SYMBOLS SYMS INTERNAL EXTERNAL +) \TEDIT.NEUTRALIZE.PARALOOKS.MENU (OBJ W CH# FMTSPEC BUTTON NEXTB ARB BUTTONDATA) COMPILER::TEST-GENCODE1 + (COMPILER::FN) MSFIXUPTYPES (FLG) PRINTDEF (FORMFLG FNSLST MAKEMAP %#RPARS RMARGIN COMMENTCOL +CHANGEFLG FILEFLG) HASH-LEFTPAREN (CHAR) \CML-LOAD (*PACKAGE* *READTABLE*) \HASHRECLAIM ( +\INTERRUPTABLE) HASH-BACKSLASH (CHAR) IL-WRAP-MACRO (FORM) \MAPPAGE (\INTERRUPTABLE) READFROMBUF ( +COPYFLG) RESOLVE-IMPORT-CONFLICT (XCL::MY-CONDITION) CL::RESOLVE-SLOTS (CL::CONC-NAME) \TEXTSTREAMBOUT + (PSTR THISLINE EOLFLAG CHORIG CHWIDTH OXLIM OCHLIM OCR\END PREVSPACE FIXEDLINE NEXTLINE LINES +NEWLINEFLG DX PREVLINE SAVEWIDTH OFLOWFN OLHEIGHT DY TABSEEN IMAGECACHE) CCCSUBFN? (X) TTGIVEHELP ( +*STANDARD-OUTPUT*) \SETEOF (\INTERRUPTABLE) /DECLAREDATATYPE (FIELDSPECS DLIST LEN SUPERTYPE) +\DSPROTATE.PSC (LAND C0 P0 C P ML MB MR MT) %%SLOW-ARRAY-READ (BASE TYPENUMBER ROW-MAJOR-INDEX) +HASH-NO-PARAMETER-ERROR (CHAR PARAM) WHEELSCROLL.DOIT (WINDOW DX DY) FB.FASTSEE.ONEFILE (UNFORMATTED +MORE) UNDONLSETQ (SI::*RESETFORMS*) \VAMFindFreePages (\INTERRUPTABLE) %%MERGE (RESULT SEQUENCE1 +SEQUENCE2 PRED KEY) STORAGE (HUNKSTATS TYPENAME) MSSEEKPHRASE (S LASTPARSED) \GR.DELDEFFN (TYPE) +PFI.HANDLE.FILEMAP (EXPR) DASSEM.EQCONSTANTP (FLG) %%SLOW-ARRAY-WRITE (BASE TYPENUMBER ROW-MAJOR-INDEX +) FASL::DUMP-DCODE (FASL::DCODE FASL::REMEMBER STREAM) DINFO.UPDATE (PREVIOUS.NODE) +TEDIT.REDO.INSERTION (INSPC#) CL:LIST-ALL-PACKAGES (K) CL::STRUCTURE-OBJECT-INSPECT-PROPPRINTFN ( +CL::DATUM) \TEDIT.TRY.ABBREV (SEL CH#) STORAGE.LEFT (ATOMTOTAL ATOMSLEFT) SPLITFILE (FILE SPLIT-SIZE) +DINFO.UPDATE.GRAPH.DISPLAY (DINFOW) READFILE (FILE RDTBL ENDTOKEN PACKAGE) HARRAYKEYS (HASHEDVALUE) +COURIER.BROADCAST.CALL (ROUTINGTABLE) \LFUpdateLeaderPage (\INTERRUPTABLE) XCL::WALK-UNEXPECTED-DECLARE + (XCL::CONTEXT) \STORAGE.TYPE (INUSEPAGES) DASSEM.DPRINTLAP (*PRINT-BASE*) DWMFY0 (DWIMIFYING +DWIMIFYFLG) SEDIT::TTYFN (SEDIT::EDIT-CHANGES CL:STRUCTURE SEDIT::CHANGED? SEDIT::NODE +SI::*LOCKED-MONITOR* SI::*RESETFORMS*) STRINGHASHBITS (STRING) HASH-ILLEGAL-HASH-CHAR (STREAM PARAM) +DWIMIFY2? (TAIL PARENT SUBPARENT FORMSFLG ONEFLG ONLYSPELLFLG CLISPCONTEXT DWIMIFYING DWIMIFYFLG +DWIMIFYCHANGE) \STRINGWIDTH.PRESS (CSET DUMMY) DO-EVENT (ENVIRONMENT FUNCTION RETRYFLAG HELPCLOCK) +\BITBLT.BITMAP.SLOW (\INTERRUPTABLE) STRING-EQUAL-HASHBITS (STRING) XCL:LIST-ALL-PROFILES (XCL::NAME) +SI::PRINT-TRACED-CL-ARGLIST (SI::ARGS SI::REQUIRED SI::OPTIONAL CL:REST SI::KEY SI::KEY-APPEARED? +SI::ALLOW-OTHER-KEYS SI::VERBOSE? SI::INDENT) ONEDINSPECT.SELECTPROP (*PRINT-LEVEL* *PRINT-LENGTH*) +\MEDW.TOTOPW (SCREEN) \PUNT.BITBLT.BITMAP (\INTERRUPTABLE) COMPILER::OPTIMIZE-EQL (COMPILER::FORM) +FASL::DUMP-PACKAGE (FASL::HANDLE PACKAGE FASL::REMEMBER) \STRINGHASHBITS-UFN (INDEX ARGCOUNT) +%%PRINT-PATHNAME (D) FAKE-COMPILE-FILE (VALUE NLAML NLAMA LAMS LAMA DFNFLG *PACKAGE* *READ-BASE* +LOCALVARS SPECVARS ROOTNAME) COMPLEX-POSITION-IF (TEST SEQUENCE START END FROM-END KEY) TOPPATHS ( +AVOID) TEDIT.EDIT.OBJECT (LL) CL:AREF (ARRAY) \STRING-EQUAL-HASHBITS-UFN (INDEX ARGCOUNT) +HPRINT-TO-STRINGS (VALUE NO-CIRCLE-FLAG) \STMDSTYPE (NC) CL::INSPECT-STRUCTURE-OBJECT (CL::OBJECTTYPE +XCL:*PRINT-STRUCTURE*) SPY.MAKE.TREE (GRAPH IDS W H *PACKAGE* *READTABLE* *PRINT-CASE*) +\LEAF.CLOSEFILE (SI::*LOCKED-MONITOR* SI::*RESETFORMS*) EXPANDBITMAP (NEWX NEWY) TB.EXPANDFN ( +SI::*LOCKED-MONITOR* SI::*RESETFORMS* FN) \IFS.LOOKUPFILE (NAME/PASS INFO SI::*LOCKED-MONITOR* +SI::*RESETFORMS*) DO.EDIT.PP (*READTABLE*) TTPRIN2 (EXPR CARLVL CDRLVL) CL::PS-TYPE-SPECIFIER (CL::PS) + SEDIT::DOT-THIS-LIST (SEDIT::GAP-NODE) HASH-R (CHAR) \POSTSCRIPT.SPECIALOUTCHARFN (IMAGEDATA OLDFONT) + RESOLVE-EXPORT-MISSING (XCL::MY-CONDITION) \PUNT.BLTSHADE.BITMAP (\INTERRUPTABLE) PARSE-NAMESTRING1 ( +BEYONDEXT PACKFLG ONEFIELDFLG) \PAGED.GETNEXTBUFFER (\INTERRUPTABLE) EDITMOVENODE (REG) INTERN* (BASE +OFFSET LENGTH FATP FATCHARSEENP PACKAGE EXTERNALP) \MEDW.BURYW (SCREEN) \FIXCODENUM (MASK) HASH-STAR ( +CHAR) \TEDIT.PUT.SINGLE.PARALOOKS (OUTPUTFORMAT) COMPILER::OPTIMIZE-EQUALITY (COMPILER::FORM) +\PAGED.FORCEOUTPUT (\INTERRUPTABLE) DECLAREDATATYPE (PTRS) %%PRINT-DIRECTORY-COMPONENT (D PATH) +DSPSOURCETYPE (\INTERRUPTABLE) \FIXCODEPTR (MASK \INTERRUPTABLE) \EXTFTIMES (SIGNX SIGNY CARRY +LOW8BITS FOO FOOHI FOOLO) XCL:MAKE-PROFILE (XCL::CLAUSES) COMPLEX-POSITION-IF-NOT (TEST SEQUENCE START + END FROM-END KEY) \PAGEDSETFILEPTR (\INTERRUPTABLE) DASSEM.DSTOREFNDEF (SI::*RESETFORMS*) DWMFY1 ( +NEXTAIL VARS) SEDIT::PROPS-COMPLETION (SEDIT::CONTEXT CL:STRUCTURE SEDIT::CHANGED? CL:ATOM +SEDIT::IFCHANGEDFN SEDIT::OLDPROPS) %%SIMPLE-MERGE (RESULT SEQUENCE1 SEQUENCE2 PRED) +COMPILER::PROCESS-DECLARATIONS (COMPILER::DECLS) FIND-SYMBOL* (BASE OFFSET LENGTH FATP PACKAGE HASH +EHASH RESULT DONE) GETDEFCURRENT (FILE) \FIXCODESYM (CA BN SYM MASK) HASH-VBAR (*READ-SUPPRESS*) +XCL::UNDOABLY-SETF-MACRO-FUNCTION (XCL::BODY) COMPARENCHARS (*PRINT-ESCAPE* *READTABLE* S C) +\TFBRAVO.GET.NAMEDTAB (TEXTSTREAM) COMPILER::MERGE-FIRST-FORMS (COMPILER::FORMS) SI::GET-INSPECT-MACRO + (SI::OBJECT) HASH-NUMBER-SIGN (STREAM CHAR) COMPILER::COMPILE-SCAN-OUTSTANDING-LOOSE-FORMS ( +COMPILER::COMPILER-CONTEXT) SEDIT::RESHAPEFN (SEDIT::OLD-SCREEN-REGION SI::*LOCKED-MONITOR* +SI::*RESETFORMS*) MOBY-UNINTERN (CL:SYMBOL PACKAGE) SIMPLE-SUBSTITUTE-IF-NOT (NEWITEM TEST SEQUENCE +START END) FASL::DUMP-INTEGER (FASL::REMEMBER) HASH-EQUAL (CHAR) \IBMINCCODEFN (BYTECOUNTVAR +BYTECOUNTVAL) COURIER.WRITE.NSNAME (PROGRAM) DRAWDASHEDLINE (NOWOFF) CLISPIFYRPLAC (OPR0 SUBPARENT LST + TAIL) HPRINT-TO-STRING (VALUE NO-CIRCLE-FLAG) SEDIT::OUTPUT-CR (SEDIT::MATCH-X SEDIT::MATCH-BASELINE +SEDIT::MATCH-ASCENT SEDIT::MATCH-DESCENT SEDIT::LINE) PRETTYPRINT (FNSLST ADR SKIPPEDLST) +FLONUM-TO-STRING (INDEX) \CARET.FLASH (\INTERRUPTABLE) TWODINSPECT.REDISPLAY (SELECTION *PRINT-LEVEL* +*PRINT-LENGTH*) TEDIT.UNDO.INSERTION (FIRSTPIECE OBJ DELETEFN) RETYPE.BUFFER (LINE LASTLINE FROM.HERE) + SEDIT::INPUT-STRINGDELIM (SEDIT::NODE) COMPILEDREPLACEFIELD (RPLVALFLG) EP (*EDITMODE*) ShellCommand +(Cmd Output) SIMPLE-SUBSTITUTE-IF (NEWITEM TEST SEQUENCE START END) PRINT-ALL-DOCUMENTATION (NAME +FOUND) CMLREADSEMI (RDTBL) LAYOUTFOREST (FAMILYD) SEND.FILE.TO.PRINTER (FILE) SEE* (**COMMENT**FLG) +TOPW.REPAINTFN (*PRINT-LEVEL* *PRINT-LENGTH*) \10MB.TURNONETHER (SMASHSTATE NEWSTATE) COPYALLBYTES ( +EXTERNALFORMAT PTR) \EXTFQUOTIENT (SIGNX SIGNY BORROW) SEDIT::INPUT-SQUARE-BRACKET (SEDIT::CONTEXT +SEDIT::CHARCODE) CLISPEXPANSION (ENV NOSPELLFLG LISPXHIST VARS) TTPRINSPACE (RPTN) +CL::ENSURE-CONSISTENT-PS (CL:INLINE CL::POSSIBLE-KEYWORDS) \MAIKO.ALLOCBLOCK (\INTERRUPTABLE) +WRITEFILE (X FILE) SPY.MERGE1 (NEWORIGINAL SPYDATA PARENTS CALLER DEPTH) \DSKEventFn ( +SI::*LOCKED-MONITOR* SI::*RESETFORMS* KEY) READVARS-FROM-STRING (SYMBOLS HPRINT-STRING) SEDIT::SEDIT1 +(SEDIT::CONTEXT) COMP.NUMBERTEST (FLG) OPENIPSTREAM (PRINTSERVERNAME) ENCAPSULATEDOBJ.DISPLAYFN (TYPE) + \TEDIT.SHOW.PARALOOKS (OBJ SEL W) SEDIT::COMPLETION (SEDIT::CONTEXT) COMPILER::CONSTRUCT-COMPILER-SYMBOL + (COMPILER::PARTS) %%SIMPLE-MERGE-SUBLISTS (START1 START2 END PRED) CHCON (DUMMY) CLISPFORF/L (VAR +DECLARELST) DWIMIFY0? (TAIL PARENT SUBPARENT FORMSFLG ONEFLG FAULTFN CLISPCONTEXT DWIMIFY0CHANGE +DWIMIFYING DWIMIFYFLG FAULTPOS EXPR VARS) DBG::FIND-DEBUGGER-STACK-FRAME (DBG::ENV) +SI::GET-SUPER-DESCRIBERS (TYPE) \SFFixFont (PILOTBBT) DASSEM.SAVELOCALVARS (FN) +XCL::PROFILE-VALUE-TYPE-CHECK (XCL::VALUE XCL::COERCION-FUNCTION TYPE) \MEDW.REDISPLAYW (SCREEN) +CLISPIFYCROPS (SUBPARENT) BSPPUTMARK (SI::*LOCKED-MONITOR* SI::*RESETFORMS*) UNPACK (DUMMY) +\TEDIT.HCPYLOOKS.UPDATE (TEMP) SKOR (FROMDWIM TEM) \DSKCloseDevice (SI::*LOCKED-MONITOR* +SI::*RESETFORMS*) \MERGEBACKWARD (ARLEN PARLEN SPLIT) SI::ADD-ADVICE (CL:WHEN SI::PRIORITY SI::FORM +SI::ADVICE) COMPILER::COMPILE-SCAN-LOOSE-FORM (COMPILER::COMPILER-CONTEXT) COMPILER::COMPILE-SCAN-DEFINER + (COMPILER::COMPILER-CONTEXT COMPILER::FORM) \MAIKO.BITBLTSUB (PILOTBBT SourceBitMap SLX STY +DestinationBitMap DLX DTY HEIGHT SourceType Operation Texture WindowXOffset WindowYOffset) +COMPILER::FRAME-ANNOTATE-OPCODES (COMPILER::SELF) COURIER.NSNAME.LENGTH (PROGRAM) COMPILER::PRINT-ENV +(COMPILER::DEPTH) \SPPGETERROR (CON) EDITFROMFILE (SI::*RESETFORMS*) \UFS.UNREGISTER.GFS ( +\INTERRUPTABLE) FASL::DUMP-COMPLEX (FASL::REMEMBER) %%MAKE-ARRAY-TYPE-TABLE (TYPES SIZES) +GET.OBJ.FROM.USER (TEXTSTREAM VAL SEL BM) PRETTYCOM (ORIGFLG RPTN) \BSP.HANDLE.ACK (\INTERRUPTABLE) +\INTERLISP-NLAMBDA-MACRO (X ENV) COURIER.READ.NSNAME (PROGRAM) CROPMARK.WHENOPERATEDONFN (A B C) +SEDIT::GET-LIST-FORMAT (SEDIT::FN) READVAR-FROM-STRING (SYMBOL HPRINT-STRING) CHAT.TAKE.INPUT (STATE) +\SEARCHPRESSFONTS (DEVICE) COMPILER:ENV-FBOUNDP (COMPILER::NAME COMPILER::LEXICAL-ONLY) +CL:FIND-ALL-SYMBOLS (K S W) \INIT.ETHER.BUFFER.POOL (LASTBUF BUFFER) MAKE-DO-SYMBOLS-CODE (VAR +CL:HASH-TABLE EXIT-FORM FORMS INDEX HASH-VECTOR HASH TERMINUS HASH-VECTOR-LIST TABLE-VECTOR-LIST TOP +REAL-TOP) \MAIKO.BLTCHAR (CHARCODE DISPLAYSTREAM DISPLAYDATA) DCHCON (DUMMY) +\FONTCREATE.HCPYMODE.INTERPRESS (FAMILY SIZE FACE ROTATION DEVICE) \DSKOpenDevice (SI::*LOCKED-MONITOR* + SI::*RESETFORMS*) XCL::SETF-PROFILE-ENTRY-VALUE (TYPE) CLEARCLISPARRAY (REASON TRAN) \MEDW.SHAPEW ( +SCREEN) SIMPLE-SUBSTITUTE (NEWITEM OLDITEM SEQUENCE START END) \MAIKO.BLTSHADE.BITMAP (TEXTURE +DESTINATIONBITMAP DESTINATIONLEFT DESTINATIONBOTTOM WIDTH HEIGHT OPERATION CLIPPINGREGION) CONCATFILES + (INPUT-FILES OUTPUT-FILE) \SEQUIN.OUT.OF.THE.BLUE (SEQUIN PUP) COMPILER::PRINT-CONTEXT (COMPILER::DEPTH + COMPILER::VALUE) \CHECKFORSTORAGEFULL (\INTERRUPTABLE) \MAIKO.BITBLT.BITMAP (SOURCEBITMAP SOURCELEFT +SOURCEBOTTOM DESTBITMAP DESTINATIONLEFT DESTINATIONBOTTOM WIDTH HEIGHT SOURCETYPE OPERATION TEXTURE +CLIPPINGREGION CLIPPEDSOURCELEFT CLIPPEDSOURCEBOTTOM) SCALE-EXPT-AUX (X ZERO ONE TEN ONE-TENTH +LOG10-OF-2) COMPLEX-POSITION (ITEM SEQUENCE START END FROM-END KEY TEST TEST-NOT-P) \LFOpenDevice ( +SI::*LOCKED-MONITOR* SI::*RESETFORMS*) \GETREGIONTRACKWITHBOX (POSTEMP) SEDIT::ALIST-COMPLETION ( +SEDIT::CONTEXT CL:STRUCTURE SEDIT::CHANGED? CL:ATOM SEDIT::IFCHANGEDFN SEDIT::OLD-KEYS) SEDIT::DELETE-QUOTE + (SEDIT::SET-POINT?) %%MERGE-SUBLISTS (START1 START2 END PRED KEY) DUNPACK (DUMMY) +SEDIT::AWAKE-COMMAND-PROCESS (SEDIT::COMMAND SEDIT::PROCESS) \UFSOpenDevice (SI::*LOCKED-MONITOR* +SI::*RESETFORMS*) \CREATECHARSET.HCPYMODE.INTERPRESS (FAMILY SIZE FACE ROTATION DEVICE CHARSET +FONTDESC) XCL::ENTER-EXEC-FUNCTION (XCL::EXEC-FUNCTION XCL::PROFILE XCL::ID) MB.DISPLAY (MODE DS) +\TEDIT.PARSE.PARALOOKS.LIST (D PC PCNO NPC NCHLIM PCTB LASTLOOKS NLOOKSAVE PC1) XCL::UNDOABLY-PROCLAIM + (XCL::PROCLAMATION) SEDIT::INSERT-QUOTED-GAP (SEDIT::CONTEXT SEDIT::CHARCODE SEDIT::QUOTE-TYPE) +SEDIT::REPAINTFN (SEDIT::REGION SEDIT::CONTEXT) \UFSEventFn (SI::*LOCKED-MONITOR* SI::*RESETFORMS* KEY +) ENCAPSULATEDOBJ.PUTFN (STREAM FILE BEGOFOBJ INSTREAM) GET-ENVIRONMENT-AND-FILEMAP (DONTCACHE ENV) +\CONVERT.FLOATING.NUMBER (MINUSFLAG PADSIZE PADCHAR NUMSTR INTEXP NSWIDTH) SEDIT::SET-FORMAT (SEDIT::NODE + SEDIT::CONTEXT CL:FORMAT) COURIER.OPEN (OBSOLETE WHENCLOSEDFN OTHERPROPS) NSNETDAYTIME0 (RESULT) +TEDIT.SKIP.SPECIALCOND (TEXTOBJ FORMATTINGSTATE) BLOCK (\INTERRUPTABLE) XCL::WALK-MULTIPLE-VALUE-BIND +(XCL::FORM XCL::CONTEXT XCL::OLD-DECLARATIONS XCL::OLD-LEXICAL-VARIABLES) \CREATESTARFONT (NSMICASIZE) + SIMPLE-POSITION-IF-NOT (TEST SEQUENCE START END) TB.UPDATE.DISPLAY (LASTITEM# HEIGHT) +SEDIT::MAP-COMMENT-INDEX (SEDIT::END) RETURN-FIRST-OF-THREE (TWO THREE) DBG::DEBUGGER-EVAL (CL:EXP +DBG::ENV DBG::ABORT-CONDITION DBG::ABORTED) \TEDIT.INTERRUPT.SETUP (\INTERRUPTABLE) +RESOLVE-UNINTERN-CONFLICT (XCL::MY-CONDITION) COMPILER::META-EVAL-TAGBODY (COMPILER::SEGMENT) +MB.CREATE.NWAYBUTTON (CHANGESTATEFN) \HANDLE.RAW.XIP (\INTERRUPTABLE) CL:COMPILE-FILE (COMPILER::LAP-FILE + COMPILER::ERROR-FILE COMPILER::COMPILATION-SUCCEEDED COMPILER::*LOAD-COMPILED-CODE* COMPILER::*CONTEXT* + COMPILER::*ENVIRONMENT* COMPILER::*CONSTANTS-HASH-TABLE* COMPILER::*OUTSTANDING-LOOSE-FORMS* +COMPILER::*PROCESSED-FUNCTIONS* COMPILER::*UNKNOWN-FUNCTIONS* COMPILER::*INPUT-FILECOMS-VARIABLE* +SPECVARS LOCALVARS LOCALFREEVARS GLOBALVARS NLAMA NLAML LAMA DONTCOMPILEFNS) COMPILER::FRAME-ANNOTATE-LITERAL + (COMPILER::SELF) \CLOSELINE (\INTERRUPTABLE) CHECK-SYMBOL-NAMESTRING (\INTERRUPTABLE) \UFSOpenFile ( +SI::*LOCKED-MONITOR* SI::*RESETFORMS*) COMPILER::COMPILE-SCAN-MACROLET (COMPILER::COMPILER-CONTEXT +COMPILER::FORM) COMPILER::GENCODE-VAR-REF (COMPILER:CONTEXT COMPILER::VAR) \ACCHARWIDTHLIST (STARTWORD +) CL::ASSIGN-SLOT-OFFSET (CL::NAME CL::SLOTS) TB.FINISH.CLOSE (SI::*LOCKED-MONITOR* SI::*RESETFORMS*) +\UFSGenerateFiles (PATTERN DESIREDPROPS OPTIONS SI::*LOCKED-MONITOR* SI::*RESETFORMS*) FASL::DUMP-RATIONAL + (FASL::REMEMBER) \GETFBB (RESULTLIST CHARCOUNT) READ-UNICODE-MAPPING (NOPRINT NOERROR SEPBITTABLE) +TEDITSTREAM.INIT (WINDOW MENUFN) \UFSSetFileInfo (SI::*LOCKED-MONITOR* SI::*RESETFORMS* BUFFER +NAMESIZE PATHNAME) PSCFONT.WRITEFONT (*READTABLE*) PRETTYDEFCOMS (FNSLST *PRINT-ARRAY* +XCL:*PRINT-STRUCTURE* *PRINT-LEVEL* *PRINT-LENGTH* BUILDMAPFLG PRTTYSPELLFLG ORIGFLG SOURCEFILE) +\RESETLINE (\INTERRUPTABLE) CROPMARK.COPYFN (FROMSTREAM) BRECOMPILE (*PRINT-ARRAY* *PRINT-LENGTH* +*PRINT-LEVEL* LAMA DWIMIFYCOMPFLG EXPRSLST NOFIXVARSLST BUILDMAPFLG SPECVARS LOCALVARS CHANGES OTHERS +FIRST BLKFNS BLOCKS ADRLST LDFLG VARLST DONELST) \TEDIT.UPDATE.SHOWSEL (TSTFLG LL) \SEQUIN.HANDLE.ACK +(\INTERRUPTABLE) \LFDeleteFile (SI::*LOCKED-MONITOR* SI::*RESETFORMS* \INTERRUPTABLE) +\CREATECHARSET.HCPYMODE.PRESS (FAMILY SIZE FACE ROTATION DEVICE CHARSET FONTDESC) \MP.ERROR (CODE) +RESOLVE-MISSING-PACKAGE (MY-CONDITION) OPENPOSTSCRIPTSTREAM (BBOX SI::*RESETFORMS*) \COPYCODEBLOCK ( +NEWFN \INTERRUPTABLE PTR) FASL::INTEGER-BYTE-LIST (FASL::VALUE FASL::NBYTES) \READFONTWDFILE (FILE FD +WIDTHS SCALE) TEDIT.MOVE (FROMPCTB INSPC INSPC# PC NPC PCCH NPCCH OPLEN OBJ COPYFN UNDOCHAIN) +DBG::DEBUGGER-MENU-HELP (IGNORE) SI::DESCRIBE-NEW-LINE (SI::DEPTH) TEDIT.FIND ( +TEDIT.WILDCARD.CHARACTERS) FB.DELVERCOMMAND (BROWSER) \PACK.ITEM (DUMMY) LOCAL-MACRO-FUNCTION (X) +COMPLEX-DELETE-DUPLICATES (SEQUENCE START END FROM-END KEY TEST TEST-NOT-P) \MEDW.EXPANDW (SCREEN) +CL::DEFSTRUCT-PARSE-OPTIONS (CL::OPTIONS) \TFBRAVO.PUT.NAMEDTAB (FMTSTREAM) OPEN (IF-EXISTS +IF-DOES-NOT-EXIST EXTERNAL-FORMAT PATHNAME FOR-INPUT FOR-OUTPUT ACCESS FILE-TYPE) CL:SETQ (CL::TAIL +CL::VALUE) PARSE-DEFMACRO (WHOLE-EXPRESSION MACRO-BODY ERROR-LOCATION ENVIRONMENT PATH %%ENV-ARG-NAME +%%CTX-ARG-NAME ERROR-STRING DOC-STRING-ALLOWED *DEFAULT-DEFAULT* *KEY-FINDER* REMOVE-COMMENTS) +COMPILER::PRINT-NODE (COMPILER::NESTED-INDENT) \UFSGetFileInfo (SI::*LOCKED-MONITOR* SI::*RESETFORMS*) + CROPMARK.IMAGEBOXFN (HRULE CURRENT.X RIGHT.MARGIN SCALE WIDTHS) \BN.DIVIDE (F) SI::FINISH-UNADVISING +(SI::MIDDLE-MAN) TTY.PROCESS (OLDTTYDS \INTERRUPTABLE) \UFSDeleteFile (SI::*LOCKED-MONITOR* +SI::*RESETFORMS*) COMPILER::GENCODE-UNWIND-PROTECT (COMPILER:CONTEXT COMPILER::STMT-CODE) +READVARS-FROM-STREAM (BACKREFS BACKREFCNT DATATYPESEEN) WALK-FORM (XCL::*DECLARATIONS* +XCL::*LEXICAL-VARIABLES* XCL::*ENVIRONMENT* XCL::Y XCL::*WALK-FUNCTION*) SET-PROFILE-INTERACTIVELY ( +PROFILE-NAME) FORMAT-PRINT-ROMAN (N) \GR.GETDEFFN (TYPE) OPT.JUMPTHRU (P END FRAME) TEDIT.BUILD.PCTB ( +SEL LINES CHLOOKSSEEN NEWPC PARALOOKSSEEN TTEXTOBJ USER.CMFILE TSTREAM EXISTINGCHARLOOKS EXLOOK +EXISTINGFMTSPECS *READTABLE* *PRINT-BASE*) LOCAL-SYMBOL-FUNCTION (X) D-ASSEM::FIXUP-NTENTRY ( +\INTERRUPTABLE) SEDIT::PLACE-CARET-AND-SELECTION (SEDIT::CARET) \LFRenameFile (SI::*LOCKED-MONITOR* +SI::*RESETFORMS*) COMPILER::CRACK-DEFMACRO (COMPILER::NAME COMPILER::ARG-LIST COMPILER::BODY COMPILER::WHOLE + COMPILER::ENV-VAR) \M44EXTENDVMEMFILE (LASTPAGE) D-ASSEM::CREATE-HUNK (D-ASSEM::HUNK-SIZE D-ASSEM::MY-SLOT + D-ASSEM::PREV-SLOT D-ASSEM::POP-P) SEDIT::REPLACE-ROOT (SEDIT::WHERE) \FINDFONT (FD WSTRM +PRESSMICASIZE NSMICASIZE DONTCHECK) ONEDINSPECT.SELECTITEM (HORZMARKS *PRINT-LEVEL* *PRINT-LENGTH*) +GETFILEMAP (STREAM FL) \MEDW.SHRINKW (SCREEN TITLE) COMP.IF (A) PRETTYCOM1 (SI::*RESETFORMS*) +SPY.MAKEGRAPHNODES (HEIGHT WIDTH NODEBITMAP TOOSMALL) CL::BUILD-COPIER-TYPE-CHECK (CL::FROM-ARG) +COMPILER::PRINT-TREE (COMPILER::*NODE-HASH* COMPILER::*NODE-NUMBER* *PRINT-CASE*) +NAMESTRING-CONVERSION-CLAUSE (BASE OFFSET LEN FATP) CROPMARK.GETFN (TEXTSTREAM) SI::FINISH-ADVISING ( +*PRINT-CASE*) BITMAPBIT.EXPANDER (BM X Y) COMPILER::GENCODE-THROW (COMPILER:CONTEXT) +SEDIT::GET-BUTTON-STRING (SEDIT::CONTEXT) FASL::WRITE-INTEGER-BYTES (FASL::NBYTES FASL::VALUE STREAM) +SEDIT::MAKE-COMMENT-STRING (SEDIT::SUBNODES SEDIT::SUM STRING SEDIT::POINTER) \TEXTDSPXPOSITION ( +XPOSITION) CL::DEFINE-COPIERS (CL::RESULT-ARG CL::FROM-ARG) \INSPECTW.COMMAND.HANDLER (*PRINT-LEVEL* +*PRINT-LENGTH*) \UFSCloseDevice (SI::*LOCKED-MONITOR* SI::*RESETFORMS*) +RESOLVE-MISSING-EXTERNAL-SYMBOL (MY-CONDITION) \DOFORMATTING.HARDCOPY (SPACEOFLOW) XCL::PROFILIZE ( +XCL::NAME-OR-PROFILE) SEDIT::DETRANSLATE-CHARS (TYPE) COMPLEX-REMOVE-DUPLICATES (SEQUENCE START END +FROM-END KEY TEST TEST-NOT-P) \FM.EDITSTART-MESSAGE (ITEM WINDOW) XCL::RECORD-CONSTRUCTOR-MACRO ( +XCL::FORM XCL::ENV) PRETTYVAR (FLG) \LFTruncateFile (\INTERRUPTABLE) CONCOCT-SYMBOL (ILSYM CLSYM) +COMP.MACRO (*BYTECOMPILER-IS-EXPANDING*) XCL::WALK-LET/LET* (XCL::FORM XCL::CONTEXT XCL::SEQUENTIALP +XCL::OLD-DECLARATIONS XCL::OLD-LEXICAL-VARIABLES) \TEDIT.PROCENTRYFN (OLDPROCESS) SIMPLE-POSITION ( +ITEM SEQUENCE START END) EDITDEF.FILES (TYPE) %%VECTOR-INSERTION-SORT (VECTOR PRED KEY LOWER UPPER) +PRETTYVAR1 (*PRINT-ARRAY*) PRINTDISPLAYNODE (TRANS STREAM CLIP/REG) FIX-FORM (%#RPARS FONTCHANGEFLG +*PRINT-ESCAPE* *PRINT-RADIX* *PRINT-BASE* *PRINT-LEVEL* *PRINT-LENGTH* *PRINT-GENSYM* *PRINT-ARRAY* +*PRINT-STRUCTURE*) \UFSOpenFile-C (FILE REC ACC CDATE LENGTH ERRNO) FORMAT-PRINT-OLD-ROMAN (N) +SEDIT::INPUT-DOT (SEDIT::CHARCODE SEDIT::SELECTION SEDIT::SUPER-NODE) LVLPRIN1 (FILE PRIN2FLG) +\M44DOEXTENDVMEMFILE (LASTNEEDEDPAGE FIRSTDA LASTPAGEADDR) \DEVICEFILE.EOSERROR (\INTERRUPTABLE) +\FM.EDIT-ITEM (FONT BITMAP LEFT DISPLAYLEFT DISPLAYBOTTOM BOXOFFSET CHARWIDTH MAXWIDTH STRINGPTR +TAILPTR ITEMWIDTH LIMITCHARS SYSLIMITCHARS ECHOCHAR STREAM) ENUM-STRING (INDEX) \NSINIT (EVENT) +\GR.WITHRESOURCEMAC (NAMES FORMS) PSCFONTFROMCACHE.SPELLFILE (ROTATION DEVICE) SHRIEKIFY (OPR0 CLTYP0 +PARENT SUBPARENT) D-ASSEM::STORE-VAR (D-ASSEM::VAR-OR-SLOT D-ASSEM::POP-P D-ASSEM::KIND D-ASSEM::SLOT) + FORMAT-PRINT-ORDINAL (CL:NUMBER) DASSEM.DASSEM (ORG) SEDIT::HELPMENU (SEDIT::MENU SEDIT::PROMPTWINDOW + SEDIT::COMMAND) COMPILER::COMPILE-SCAN-DECLARE%: (COMPILER::COMPILER-CONTEXT COMPILER::FORM COMPILER::DOCOPY + COMPILER::DOFIRST COMPILER::FIRST-FORMS DFNFLG COMPILER::*EVAL-WHEN-COMPILE*) \TEDIT.FORMATTABS ( +TEXTOBJ THISLINE) SIMPLE-DELETE-DUPLICATES (SEQUENCE START END) \NSFILING.ERRORHANDLER (\INTERRUPTABLE +) READVARS-FROM-STRINGS (SYMBOLS STRINGS) \LFGetFileInfo (device SI::*LOCKED-MONITOR* SI::*RESETFORMS* +) LVLPRIN2 (FILE PRIN2FLG) \TEDIT.NSCHAR.RUN (NEWPC OLDFILEPTR) D-ASSEM::FETCH-HUNK (D-ASSEM::HUNK-LEVEL + D-ASSEM::HUNK-SLOT) XCL::%%DEFINE-TYPE-SAVE-DEFN (XCL::DEFINITION XCL::OLD-DEFINITION) BCOMPL (NLAML +NLAMA LAMS LAMA DWIMIFYCOMPFLG EXPRSLST NOFIXVARSLST NOFIXFNSLST *PRINT-ARRAY* *PRINT-LENGTH* +*PRINT-LEVEL*) SIMPLE-POSITION-IF (TEST SEQUENCE START END) MKACCESSFN (DECLST FIELDNAMES +SPECIALFIELDS SUBSTYPE) \UFSGetFileName-C (PATHNAME RECOG BUF ERRNO) POSSIBILITIES (POSSLIST##) +SI::CLEAR-CLOSURE-CACHE (\INTERRUPTABLE CL:BLOCK XCL::CLOSURE) SEDIT::VERIFY-COMMENT (SEDIT::POINTER +SEDIT::STRING-LENGTH) \TEXTDSPYPOSITION (YPOSITION) CL::BUILD-COPIER-SLOT-SETFS (CL::STRUCTURE-TYPE +CL::FROM-ARGUMENT CL::TO-ARGUMENT CL::TYPE-CHECK-SLOTS? CL::SLOT) \COMMONBACKCHARFN (STRM BYTECOUNTVAR + BYTECOUNTVAL) COMPILER::GENCODE-CALL (COMPILER::PARAM COMPILER::CLOSED-FN-NAME COMPILER::OPEN-FN-NAME + COMPILER::CODE-FOR-FN) TEDIT.NORMALIZECARET (SEL) TEDIT.MAPPIECES (PCNODE) COMPAREPRINT1 (L1) +WHEELSCROLL (DIRECTION DELTA) CL::PARSE-SLOT (CL::GENERATE-ACCESSOR) \DSPCLIPPINGREGION.IP ( +\INTERRUPTABLE) SEDIT::INPUT-ESCAPE (SEDIT::CONTEXT) SEDIT:ADD-COMMAND (SEDIT::KEY-NAME SEDIT::HELP-STRING +) ACCEPT-UNIX-SOCKET-STREAM (CHAN) \TEDIT.PROCEXITFN (NEWP) \DSKGetFileName-C (PATHNAME RECOG BUF +ERRNO) DEFAULT.INSPECTW.VALUECOMMANDFN (PROPERTY DATUM WINDOW) \MAKERECODEMAP (INVERTED) +SEDIT::COPY-STRUCTURE-STRING (SEDIT::CONTEXT) \INTERPRETER1 (\INTERRUPTABLE) DWIMIFY1? (CLISPCONTEXT +FORMSFLG DWIMIFYING DWIMIFYFLG DWIMIFYCHANGE) XCL::WALK-MACROLET (XCL::FORM XCL::CONTEXT) +\LFGetFileName (Dev SI::*LOCKED-MONITOR* SI::*RESETFORMS*) PRINTPARA (P2FLAG) +COMPILER::COMPILE-SCAN-DEFINE-FILE-INFO (COMPILER::COMPILER-CONTEXT *STANDARD-INPUT* FILECREATEDLOC) +\SMASHLINK (\INTERRUPTABLE) SEDIT::RECOMPUTE-WIDTH (SEDIT::LAST-LINE) \NSNAME.DEFPRINT (STREAM) +\DSKDirectoryNameP-C (DIRSPEC BUF ERRNO) READVARS (BACKREFS BACKREFCNT DATATYPESEEN) +\COURIER.WHENCLOSED (STREAM CON) BSPFORCEOUTPUT (SI::*LOCKED-MONITOR* SI::*RESETFORMS*) \FILLBUFFER ( +\INTERRUPTABLE) COMPILER::PARSE-DEFUN (COMPILER::FORM) \UFSDirectoryNameP-C (DIRSPEC BUF ERRNO) +\STARTDISPLAY (\INTERRUPTABLE) SI::EXPANSION-FUNCTION (XCL::NAME XCL::ARG-LIST XCL::BODY) SEDIT::EDIT-HELP + (SEDIT::NODE) READARRAY-FROM-LIST (X) CL::%%RATIO-PRINT (\THISFILELINELENGTH *PRINT-RADIX*) +\UFS.DIRECTORY.NAME (SI::*LOCKED-MONITOR* SI::*RESETFORMS*) \INTERPRETER-LAMBDA (N DEF FN ARGBLOCK) +XCL::%%DELETE-DEFINER (TYPE) \TFBRAVO.COPY.NAMEDTAB (PIECE OLDCH NEWCH) PPSPP (SI::*RESETFORMS*) +PRINTPARA1 (RPTN) CLISPANGLEBRACKETS (WORKFLAG NCONCLKUP NCONC1LKUP) FORMAT-PRINT-CARDINAL-AUX (N +PERIOD ERR) \TRANSLATE-CL%:LAMBDA (KEYWORDS VAR INIT KEY) \UFSCloseFile-C (PATHNAME FILEID CDATE ERRNO +) \TEDIT.INSERT.TTY.BUFFER (SCRATCH PASS TEXTOBJ SEL) FAULTAPPLY (\INTERRUPTABLE) +SEDIT::SELECT-PSEUDO-SEGMENT (SEDIT::CONTEXT SEDIT::PSEL SEDIT::SET-POINT? SEDIT::WHERE) +\TEXTLEFTMARGIN (XPOSITION) CL::%%BUILD-RATIO (CL:GCD) D-ASSEM::DLAMBDA-FROM-LAMBDA (D-ASSEM::LAP-FN) +D-ASSEM::DCODE-FROM-DLAMBDA (D-ASSEM::*HUNK-MAP* D-ASSEM::*HUNK-SIZE* D-ASSEM::*BYTE-COUNT* +D-ASSEM::*JUMP-LIST* D-ASSEM::*PVAR-COUNT* D-ASSEM::*LEVEL* D-ASSEM::FIXUP-DESC) MB.BUTTONEVENTINFN ( +STREAM SELWINDOW TEXTSTREAM) \SETREADSYNTAX (\INTERRUPTABLE) \TEDIT.GET.INSERT.CHARLOOKS (PCNO) +XCL::RECORD-PREDICATE-MACRO (XCL::FORM XCL::ENV) COMPAREFILES (OLDFILE NEWFILE OSTART OEND) +SEDIT::UPGRADE-COMMENT (SEDIT::CONTEXT SEDIT::NODE) CREATE-UNIX-SOCKET-STREAM (PATHNAME) +COMPILER::TEST-ALPHA-2 (COMPILER::*ENVIRONMENT* COMPILER::*CONTEXT* COMPILER::*CONSTANTS-HASH-TABLE* +SPECVARS LOCALVARS GLOBALVARS LOCALFREEVARS COMPILER::*PROCESSED-FUNCTIONS* COMPILER::*UNKNOWN-FUNCTIONS* + COMPILER::*CURRENT-FUNCTION* COMPILER::*AUTOMATIC-SPECIAL-DECLARATIONS*) PARSE-BODY (XCL::ENVIRONMENT + XCL::DOC-STRING-ALLOWED) \MEDW.MOVEW (SCREEN \INTERRUPTABLE) \UFSDeleteFile-C (NAME ERRNO) +\SETUP-COMPILED-CLOSURE-CALL (RPTN) \TEDIT.PRIMARYW (TEXTOBJ) \PARSE.REMOTE.FILENAME (REMOTENAME) +CL::%%RATIO-PLUS (CL::GCD-TOP) TEDIT.GET.PARALOOKS (SEL) RECREDECLARE1 (TRAN) TERMX (D) +CL::%%RATIO-TIMES (CL::GCD-1-2 CL::GCD-2-1) \OUTDATE (UD FORMAT STRING) HISTORYMATCH (EVENT) TYPESOF ( +SHADOWED) SI::DISABLE-CLOSURE-CACHE (\INTERRUPTABLE) \MEDW.RELMOVEW (SCREEN) +\VAMRecomputeFreePageCount (SI::*LOCKED-MONITOR* SI::*RESETFORMS*) %%SIMPLE-VECTOR-INSERTION-SORT ( +VECTOR PRED LOWER UPPER) FASL::DUMP-GENERAL-ARRAY (FASL::REMEMBER FASL::INDIRECT) DWIMIFY0 ( +DWIMIFYCHANGE CLISPCONTEXT ONEFLG DWIMIFYING DWIMIFYFLG TYPE-IN? FIXSPELLDEFAULT) CL:EQUALP (CL::X CL::Y +) D-ASSEM::DIGEST-CODE (D-ASSEM::INST) XCL::MAKE-VARIABLE-DEFINITION (XCL::CLAUSE) MAKEFILES ( +SI::*RESETFORMS*) \UFStoOtherRenameMess (OLD-DEVICE) SIMPLE-REMOVE-DUPLICATES (SEQUENCE START END) PPT + (*STANDARD-OUTPUT* SI::*RESETFORMS*) \DSCCOUT (RPTN) \MAIKO.DO.MOVDS (\INTERRUPTABLE) SHOWDEF ( +ORIGFLG FNSLST PRETTYCOMSLST NEWFILEMAP) \UFSRenameFile-C (OLDNAME NEWNAME ERRNO) ARGLIST (TEMP) +\IDATE-PARSE-MONTH (CODEVAR) CL:/= (CL::I CL::CURRENT-ARG CL::J) ENCAPSULATEDOBJ.BUTTONEVENTINFN ( +IMAGEOBJ WINDOW) SEDIT::SEDITL (TTYEDITFN) \CREATEDISPLAY (ACCESS RECOG OTHERINFO) FASL::DUMP-BIT-ARRAY + (FASL::HANDLE FASL::REMEMBER FASL::NBITS) DAYTIME (BOX) READARRAY (X) ASKUSEREXPLAIN (CONFIRMFLG FILE +) READ-UNICODE-MAPPING-FILENAMES (X) D-ASSEM::DIGEST-FUNCTION (D-ASSEM::*FREE-VARS* D-ASSEM::*BOUND-SPECIALS* + D-ASSEM::VAR) \FTP.UNPACKFILENAME (INFO) \FREESTACKBLOCK (ORIG) \SHAPEW2 (\INTERRUPTABLE) +\UFSReadPages-C (FILEID PAGENUM BUFFER ERRNO) COMPLEX-DELETE-IF (TEST SEQUENCE START END FROM-END KEY +COUNT) DBG::DEBUGGER-BUTTON-EVENT (DBG::W IGNORE DBG::SELECTION) COMPILER::TRANSFORM-GET/PUT-BASE ( +COMPILER::OPCODE COMPILER::BETA-BYTE) CL::NATURALIZE (CL::NAME CL::SOURCE CL::DESTINATION) ANALYZE ( +ARGLIST PATH ERRLOC WHOLE) SEDIT::CFV-QUOTE (SEDIT::ENVIRONMENT CL:FORMAT) \SETUP-ENVIRONMENT-CALL ( +RPTN) XCL::WALK-LAMBDA (XCL::FORM XCL::CONTEXT) COMPLEX-FIND-IF (TEST SEQUENCE START END FROM-END KEY) + OPT.SCANOPT (Y RPTN) XCL::RECORD-ACCESS-MACRO (XCL::FORM XCL::ENV) CL::CHECK-ALL (CL::XCLP) +\UFSGetSize-C (FILEID BUF ERRNO) PRINENDLINE (RPTN) \LFExtendFile (\INTERRUPTABLE) \TEDIT.SHRINKFN ( +ICON ICONW) CL::BUILD-CONSTRUCTOR-SLOT-SETFS (CL::STRUCTURE-TYPE CL::OBJECT-NAME CL::KEYWORD-VAR-NAME) + COMPILER::GENCODE-SETQ (COMPILER:CONTEXT) \UFSWritePages-C (FILEID PAGENUM BUFFER SIZE ERRNO) +\TEXTRIGHTMARGIN (XPOSITION) \FONTCREATE.HCPYMODE.PRESS (FAMILY SIZE FACE ROTATION DEVICE) CL:ACOS ( +CL::RADIANS) \START.PROCESSES (\INTERRUPTABLE) \COURIER.EOF (STREAM) \TEDIT.APPLY.PARALOOKS (OBJ OFILE + CH SIZE SUPER SUB PARATYPE) \FM.RESHAPEFN (B) %%SIMPLE-VECTOR-QUICK-SORT (VECTOR PRED LOWER UPPER) +DRIBBLE (\INTERRUPTABLE) RESETGRID.NEW (SHADE) D-ASSEM::STORE-DIGEST-INFO (D-ASSEM::BOUND-SPECIAL-COUNT +) \UFSGetFileInfo-C (FILENAME ATTR-CODE BUFFER ERRNO) COMPILER::RELEASE-OPCODES (COMPILER::NODE) +COMP.USERFN (FN OTHERVARS) COMPILER::GENCODE-TAGBODY (COMPILER::NEW-LAMBDA COMPILER::*CODE* COMPILER::CODE +) SHAPEW1 (\INTERRUPTABLE) XCL::INSTALL-PROFILE (XCL::PROFILE XCL:PROFILE-NAME XCL::PROFILE-NICKNAMES) + ADD.PROCESS (\INTERRUPTABLE) \MEDW.OPENW (\INTERRUPTABLE) COMPLEX-DELETE-IF-NOT (TEST SEQUENCE START +END FROM-END KEY COUNT) FITP (ENDTAIL CAREFUL) FB.CLOSEFN (WINDOW) SEDIT::SELECTION-FROM-PSEUDO-SELECTION + (SEDIT::PSEL SEDIT::SEL) TEDIT.HARDCOPYFN (TEXTSTREAM) SI::FINISH-UNBREAKING (SI::BROKEN-FN SI::IN-FN + SI::MIDDLE-MAN) \RUN.PROCESS (\INTERRUPTABLE) SEDIT::CFV-LIST (SEDIT::SUB-PWIDTH) +TEDIT.PARSE.PAGEFRAMES1 (PARENT) TEDIT.INSERT.OBJECT (PCNO CHNO) COMPLEX-FIND-IF-NOT (TEST SEQUENCE +START END FROM-END KEY) \LINEBUF.PEEKBIN (NOERROR) \MAIKO.NEWPAGE (BASE NOERROR LOCK?) \RPLPTR (OFFSET + \INTERRUPTABLE) ICMLARRAY.MENUW.SHOW (ITEM BUTTONS) %%VECTOR-QUICK-SORT (VECTOR PRED KEY LOWER UPPER) + MAKEHVPRETTYCOMS (NO-CIRCLE-FLAG) PRETTYPRINT1 (FN) COMPILER::GENCODE-SEGMENT (COMPILER::SEGMENT +COMPILER::*SUPPRESS-POPS*) CL::%%> (CL::X CL::Y) CL::%%- (CL::X CL::Y) \INSPECT/CODE/REPAINTFN ( +*PRINT-LEVEL* *PRINT-LENGTH*) D-ASSEM::INSTALL-VAR (D-ASSEM::CLOSED-OVER D-ASSEM::KIND D-ASSEM::SLOT) +\MENU.ITEM.SELECT (DSP ITEM SUBITEMS) \TEDIT.SELECT.ALL (SEL) D-ASSEM::GATHER-TAGS (D-ASSEM::CODE) +\FM.NUMBER-MESSAGE (ITEM WINDOW) \FM.REDISPLAYMENU (UPDATEREGION) FASL::DUMP-ARRAY-DESCRIPTOR ( +FASL::HANDLE CL:ARRAY FASL::REMEMBER FASL::INITIAL-ELEMENT) SEDIT::GROW-CLICK? (SEDIT::CONTEXT +SEDIT::POINT-TYPE SEDIT::WINDOW) \LFSetFileInfo (dev SI::*LOCKED-MONITOR* SI::*RESETFORMS*) RESETGRID +(BM GRIDSPEC WIDTH HEIGHT ORGX ORGY W) \TEDIT.BUTTONEVENTFN (STREAM) \TEDIT.WINDOW.SETUP (EXT STRM) +\3MBGETPACKET (\INTERRUPTABLE) SEDIT::PARSE--LIST (SEDIT::CONTEXT SEDIT::PARSER) DP (*EDITMODE*) +ACCESSDEF4 (AVOID) KEYWORD-TEST (KEYS EXTRA-KEY-FOUND ALLOW-OTHER-KEYS-P) D-ASSEM::GENERATE-OPT-AND-REST + (D-ASSEM::DLAMBDA D-ASSEM::NUM-REQUIRED D-ASSEM::NUM-OPTIONAL D-ASSEM::OPT-INIT-VALUES +D-ASSEM::AFTER-OPTS-TAG) \EVALFORMASLAMBDA (*ARGVAL* *TAIL* *FN*) COMPILER::META-SUBST-ANY-CALL (COMPILER::FN + COMPILER::ARGS) \COURIER.EXPEDITED.OVERFLOW (STREAM) PRINTER.SCRATCH.FILE (FULLFILE) +ONEDINSPECT.REDISPLAY (SELECTION *PRINT-LEVEL* *PRINT-LENGTH*) INTERSECT/REGIONP/LBWH (NODE) +FORMAT-PRINT-SMALL-CARDINAL (N) SEDIT::FIND-COMMENT (SEDIT::NODE SEDIT::CONTEXT SEDIT::MIN-DEPTH +SEDIT::LAST-SUBNODE) COMPILER::GENERATE-CODE (COMPILER::*VAR-NUMBER* COMPILER::*TAG-NUMBER* +COMPILER::*STACK-NUMBER*) BLOCKCOMPILE1 (NEWDEF FREEVARS) EXEC (XCL::TOP-LEVEL-P XCL::TITLE +*THIS-EXEC-COMMANDS* XCL::ENVIRONMENT XCL::PROMPT XCL::FN XCL::PROFILE *EXEC-ID* XCL::PROFILE-CACHE +*CURRENT-EVENT* XCL::OLD-DS) D-ASSEM::STACK-ANALYZE-CODE (D-ASSEM::CODE D-ASSEM::DEPTH D-ASSEM::BINDING-DEPTH + D-ASSEM::LOOKUP) APPLY (\INTERNAL) COMPILER::GENCODE-TAGBODY-INLINE (COMPILER:CONTEXT COMPILER::BLIP-VAR + COMPILER::END-TAG) COMPILEUSERFN1 (NOSPELLFLG FILEPKGFLG) CL:CLEAR-OUTPUT (OUTPUT-STREAM) +FIND-KEYWORD (CL:KEYWORD KEYLIST) CONS (X Y) FORMAT-PRINT-NUMBER (NUMBER RADIX PRINT-COMMAS-P +PRINT-SIGN-P PARMS) SEDIT::EXTRACT-CURRENT-SELECTION (SEDIT::SET-SELECTION? SEDIT::START STRING +CL:STRUCTURE SEDIT::NEW-STRUCTURES) SEDIT::STRINGIFY-COMMENT (SEDIT::ENVIRONMENT SEDIT::LEVEL) +\TEXTMENU.DOC.CREATE (MENUW) MB.THREESTATEBUTTON.FN (W OFILE CH) D-ASSEM::REACH-TAGS (D-ASSEM::CODE) +XCL::MAKE-UNDOABLE (XCL::ENV) \VFMDeletePageGroup (SI::*LOCKED-MONITOR* SI::*RESETFORMS* +\INTERRUPTABLE) IRM.GET.DINFOGRAPH (FROM.BACKGROUND?) SEDIT::COMPUTE-SELECTION-POSITION-LITATOM ( +SEDIT::CONTEXT) D-ASSEM::STACK-ANALYZE (D-ASSEM::EXPECTED-ENDING-DEPTH D-ASSEM::*LEVEL* D-ASSEM::ROOT-LIST + D-ASSEM::ENDING-DEPTH) BSP.PUTINTERRUPT (SI::*LOCKED-MONITOR* SI::*RESETFORMS*) RECORDTRAN ( +PATGENSYMVARS SUBSTYPE SPECIALFIELDS DWIMESSGAG NOSPELLFLG LISPXHIST) FILES.WHENCHANGED (TYPE) +\MOUSE.PROCESS (\MOUSEBUSY) POSTSCRIPT.FONTSAVAILABLE (ROTATION) ICMLARRAY.MENUW.APPLY (ITEM BUTTONS +TOPRIGHT) FASL::DUMP-SIMPLE-VECTOR (FASL::HANDLE FASL::REMEMBER CL:LENGTH) \TEXTDSPLINEFEED (VALUE) +CL:CONJUGATE (CL:NUMBER) GETCLEARINGHOUSE (SI::*LOCKED-MONITOR* SI::*RESETFORMS*) \MAIKO.CONS.UFN ( +\INTERRUPTABLE) \UFSSetFileInfo-C (FILENAME ATTR-CODE BUFFER ERRNO) CHAT.HOLD (\INTERRUPTABLE) +\MENU.ITEM.DESELECT (COLUMN ROW MENU DSP) COMPAREPRINT (*PRINT-LEVEL* *PRINT-LENGTH* PLVLFILEFLG FIN) +OPENTEXTSTREAM (TEXT WINDOW START END PROPS) FTPDEBUG (FLG) CAR (X) D-ASSEM::ASSEMBLE-CODE (D-ASSEM::LAP-CODE + D-ASSEM::BINDING-DEPTH) RELSTK (\INTERRUPTABLE) CL::RAW-CONSTRUCTOR (CL::PS) TEDIT.INSERT.DISPLAYTEXT + (TEXTOBJ CH CHWIDTH LINE XPOINT DS SEL) CL::%%* (CL::X CL::Y) \TIMER.PROCESS (\INTERRUPTABLE) CDR (X) + XCL::WALK-DO/DO* (XCL::FORM XCL::CONTEXT XCL::SEQUENTIALP XCL::OLD-DECLARATIONS +XCL::OLD-LEXICAL-VARIABLES) \TEDIT.PARABOUNDS (PCNO NPC) \UFSReadDir-C (FILTER PROPP ID ERRNO) \WRITE1 + (FONTCHANGEFLG \THISFILELINELENGTH) COMPILER::META-SUBST-STMTS (COMPILER::NODE COMPILER::STMTS-LIST +COMPILER::FINAL-STMT-IMMOVABLE COMPILER::NEW-STMTS-LIST) \IDLE.ISMEMBER (PWD) CL::EQLHASHBITSFN-UFN ( +INDEX ARGCOUNT CL::OBJ) CL:COUNT (FROM-END) SI::CREATE-BROKEN-DEFINITION (SI::WRAPPED-FN-NAME +SI::BROKEN-FN-NAME SI::FN-TO-CALL SI::WHEN-EXPR SI::BREAKPOINT-NAME) RPLACA (X Y) \UFS.REGISTER.GFS ( +\INTERRUPTABLE) COMPILER::RELEASE-LITERAL (COMPILER::NODE) SI::INSTALL-CLOSURE-CACHE (\INTERRUPTABLE) +\LEAF.READFILENAME (OSTYPE) CHAT.MENU (X) RPLACD (X Y) SENDXIP (SOCKET) \LFExtendFileIfNecessary ( +SI::*LOCKED-MONITOR* SI::*RESETFORMS*) CL::SXHASH-UFN (INDEX ARGCOUNT) CL::BUILD-CONSTRUCTOR-ARGLIST ( +CL::ARG-NAME CL::KEYWORD-PAIR) CLISP4 (X DWIMIFYFLG NOSPELLFLG) CLISPCOND (OPR0 CLTYP0 PARENT +SUBPARENT) D-ASSEM::RESOLVE-JUMPS (D-ASSEM::CUMULATIVE-UNCERTAINTY) FORMAT-WRITE-FIELD (PADCHAR WIDTH) + SEDIT::EXPAND (SEDIT::CHARCODE SEDIT::POINT CL:STRUCTURE SEDIT::EXPANSION) CL::EQLHASHBITSFN (CL::OBJ +) \DEQUEUE (\INTERRUPTABLE) XCL::FIND-VARIABLE-DEFINITION (CL:VARIABLE) \REQUEUE.ETHERPACKET ( +\INTERRUPTABLE) \UFS.NEXTFILEFN (NEWWNAME ERRNO DEFAULTEXT DEFAULTVERS DESIREDPROPS) COMPLEX-DELETE ( +ITEM SEQUENCE START END FROM-END KEY COUNT TEST TEST-NOT-P) \STOPDISPLAY (\INTERRUPTABLE) +COMPILEUSERFN (X) COMPILER::ENSURE-EFFECT-CONTEXT (COMPILER::RESULT-ARG-NUMBER COMPILER::RESULT-ARG) +CL:EVAL (*EVALHOOK*) \MEDW.CREATEW (PROPS) D-ASSEM::CONVERT-TO-BINARY (D-ASSEM::UNWIND-OFFSET D-ASSEM::FIXUP +) \PROG0 (*FIRSTTAIL* \INTERRUPTABLE) XCL::WALK-FLET/LABELS (XCL::FORM XCL::CONTEXT) CL:SXHASH ( +CL::OBJECT) CL:COUNT-IF (FROM-END) \INTERPRET-ARGUMENTS (\SPECIALS \SVAR \SP) CL::%%BIGNUM-LOGCOUNT ( +CL::ELEMENTS CL::CNT) ICMLARRAY.MENUW.GETLEVEL (BUTTONS) CL:COS (CL::RADIANS) PRINT-COMPILE-HEADER ( +STREAMS HOW ENV) \VAMFreePageGroup (SI::*LOCKED-MONITOR* SI::*RESETFORMS* \INTERRUPTABLE) +CL:COUNT-IF-NOT (FROM-END) CL::%%LOGCOUNT (CL::POSITIVE-INTEGER CL::CNT) \NS.SETTIME (RETFLG) +\UFSFinishFileInfo-C (FINFOID) \INSPECT/CODE/RESHAPEFN (OLDIMAGE OLDREGION) \BOXITEM (COLUMN ROW MENU +DSP) \PUP.SETTIME (RETFLG) COMPILER::COMPILE-FILE-PROCESS-FUNCTION (COMPILER::COMPILER-CONTEXT +COMPILER::MESSAGE) \SET.PROCESS.NAME (\INTERRUPTABLE) SIMPLE-DELETE-IF-NOT (TEST SEQUENCE START END) +PEEKC (FLG \RefillBufferFn) TTY/EDITL (EDITCHANGES LASTAIL LASTP1 LASTP2 EDITLISPFLG) +PSCFONT.SPELLFILE (FAMILY SIZE FACE ROTATION DEVICE) SEDIT::COMPUTE-POINT-POSITION-LITATOM (SEDIT::CONTEXT +) CL:ASIN (CL:NUMBER) D-ASSEM::SPLICE-IN-JUMPS (D-ASSEM::PTR D-ASSEM::SIZE D-ASSEM::CHOICES) +D-ASSEM::PERFORM-LOCAL-FN-FIXUPS (D-ASSEM::FIXUP-LIST) PEEKCCODE (\RefillBufferFn) InstallUnixPrinter +(PRINTERTYPE) SIMPLE-FIND-IF-NOT (TEST SEQUENCE START END) EDITFB (TEM) \TEDIT.STRIKEOUT.SEL.OFF ( +TEXTOBJ) CL::%%INTEGER-COERCE-OPTIMIZER (CL::SINGLE-VALUE-FN CL:NUMBER CL::DIVISOR) TEXTMENU.CLOSEFN ( +MAINW HEIGHT OHEIGHT OBOTTOM WBOTTOM WINDOWS) FB.COPYFN (TBROWSER) \EVAL-INVOKE-LAMBDA (LAM ENV +ARGBLOCK) GETXIP (\INTERRUPTABLE) CL:DELETE-FILE (NS) \LOOKUPPORT (BUF) DC (*EDITMODE*) +\CHECKEOLC.CRLF (NUM \INTERRUPTABLE) EDITL0 (EDITLFLG FINDFLAG LCFLG TOFLG EDITHIST L0 COM0 COM +ORIGFLG LISPXID) COMPILER::CLOSE-OVER (COMPILER::REFERENCE) \LEAF.ERROR (SENTPUP) COMPILER::GENCODE-RETURN + (COMPILER:CONTEXT) \POLYSHADE.YSCAN.IP (nlist by) \UFSNextFile-C (GENFILESTATE) +%%TYPE-SIZE-TO-TYPENUMBER (TYPE SIZE) FASL::DUMP-LIST (FASL::HANDLE LIST FASL::REMEMBER) +\TEST.PARAGRAPH.LOOKS (TABS) CL:DIRECTORY-NAMESTRING (PATHNAME) CL::%%COMPARISON-OPTIMIZER ( +CL::PREDICATE CL::FIRST-NUMBER) COMPLEX-FIND (ITEM SEQUENCE START END FROM-END KEY TEST TEST-NOT-P) +CLISP3C (SI::*RESETFORMS*) \EVALA (\INTERRUPTABLE) EDITMODE (NEWMODE) TIMEALL (INTERPFLG VALUE STRF +LCFIL) CL:BREAK (CL::FORMAT-STRING CL::FORMAT-ARGUMENTS) CL::STRUCTURE-POINTER-SLOTS (CL::STRUCTURE-NAME + CL::DESCRIPTOR) COMPILER::GENCODE-PROGV (IGNORE) COMPILER::COMPILE-FILE-LOOSE-FORM ( +COMPILER::COMPILER-CONTEXT) RATOM (*PACKAGE* \RefillBufferFn) \TEDIT.UNDERLINE.SEL.ON (TEXTOBJ) +CLISPFOR (CLISPCONTEXT DWIMIFYING VARS SI::*RESETFORMS*) \PEEKNS (RPTN) \10MBWATCHER (\INTERRUPTABLE) +\SEQUIN.HANDLE.INPUT (\INTERRUPTABLE) \DSPYPOSITION.HCPYMODE (\INTERRUPTABLE) CL::%%LOGICAL-OPTIMIZER +(CL::BINARY-LOGICAL-FN CL::FORM) \LFOpenFile (FDEV SI::*LOCKED-MONITOR* SI::*RESETFORMS*) +FASL::DUMP-SYMBOL (FASL::HANDLE FASL::REMEMBER FASL::PNAME FASL::PKG-NAME) D-ASSEM::PRETTY-JUMPS ( +D-ASSEM::JUMP-OR-TAG) XCL::UNDOHOOK (*APPLYHOOK*) \NSRANDOM.FETCH.CACHE (\INTERRUPTABLE) +XCCS-UTF8-AFTER-OPEN (STREAM ACCESS PARAMETERS) SI::PRINT-TRACE-EXIT-INFO (SI::IN-FN) +\TEDIT.HARDCOPY.MODIFYLOOKS (ONEPOINT) COMPILER::GENCODE-PROGN (COMPILER::*SUPPRESS-POPS*) OPT.POSTOPT + (FRAME CL:LABELS FRAMES DELETEDBINDS) compilation (EXP) D-ASSEM::GENERATE-ARG-CHECK (D-ASSEM::OK-TAG +D-ASSEM::BAD-TAG) CL::FIND-SLOT (CL::NAME CL::SLOTS CL::DONT-ERROR) COMPILER::EXPAND-OPENLAMBDA-CALL ( +COMPILER::FN COMPILER::ARGS) SEDIT::ASSIGN-FORMAT-LIST (SEDIT::SUBFORMAT-NAME) ERRORSET ( +SI::*NLSETQFLAG* *CONDITION-HANDLER-BINDINGS*) D-ASSEM::COMPUTE-DEBUGGING-INFO (D-ASSEM::DLAMBDA) +DETACHWINDOW (ATWINS PWINDOW) CL:EXP (CL:NUMBER) MSUPDATE (VARS) \3MBSENDPACKET (NDB \INTERRUPTABLE) +\ADJUSTABLE-STRING-STREAM-OUTCHARFN (STRING CH) \LFRemoveDirEntry (\INTERRUPTABLE) UNDOEDITL (COM +EDITCHANGES) \PRINT-USING-DEFPRINT (*PRINT-LEVEL* *PRINT-ESCAPE*) SPY.GRAPH.EDITOR (W COPY) +CL::%%RATIONALIZE-FLOAT (CL::OLDNUM CL::OLDDEN CL::NUM CL::DEN) FORMAT-ADD-COMMAS (STRING COMMACHAR +COMMA-INTERVAL) \TOP-LEVEL-READ (*PACKAGE* \RefillBufferFn) \KEYHANDLER1 (YHOT) +\TEDIT.STRIKEOUT.SEL.ON (TEXTOBJ) CL:ENOUGH-NAMESTRING (*PRINT-BASE* DEFAULT-PATHNAME HOST DEVICE +DIRECTORY NAME TYPE VERSION NEED-NAME) COMPILER::META-EVAL-IF (COMPILER::PRED) READC (*READTABLE* +\RefillBufferFn CODE) CL:DESCRIBE (*PRINT-LENGTH* *PRINT-LEVEL*) \LFGenerateFiles (FDEV +SI::*LOCKED-MONITOR* SI::*RESETFORMS*) \DO.PROGV (TMP) DEL.PROCESS (INTERNAL) TEDIT.CR.UPDATESCREEN ( +CH# XPOINT TEXTOBJ SEL LINE BLANKSEEN CRSEEN DS CHWIDTH DONTSCROLL) SI::ERRORSET-PRINT-FUNCTION (DATUM +) COMPILER::PEEPHOLE-OPTIMIZE (COMPILER::*TAG-EQUIV-TABLE* COMPILER::*REACHABLE-TAG-TABLE* COMPILER::TAGS-USED +) COMP.TAGBODY (VARS VALS) \CREATEW1 (DSP DISPLAYDATA TITLEHEIGHT) COMPILER::COMPILE-FILE-NAMED-PROGN +(COMPILER::COMPILER-CONTEXT COMPILER::FORM) \10MB.STARTDRIVER (RESTARTFLG CSB) READCCODE (*READTABLE* +\RefillBufferFn) FB.HARDCOPY.DIRECTORY (PROPS FORMAT) \ARBOUT (END-FPTR) DV (*EDITMODE*) +EDITBMRESHAPEFN (OLDIMAGE OLDREGION OLDSCREENREGION) CLISP3 (CLISPISTATE) \LET0 (\INTERRUPTABLE) +COMPILER::GENCODE-OPCODES (COMPILER::NODE COMPILER:CONTEXT) SEDIT::EDIT-SELECTION (SEDIT::CHARCODE) +PURGEHISTORY (SI::*RESETFORMS*) SETREADMACROFLG (FLG) SEDIT::SET-SELECTION-COMMENT-WORD (SEDIT::INDEX +SEDIT::ITEM TYPE) MAKEFILE (PRETTYFLG *PRINT-BASE*) FIND-EDIT-LOCATION (*REMOVE-INTERLISP-COMMENTS*) +\TEXTOPENF (ACCESS ASDF QWER ZXCV PC) SI::PRINT-TRACE-ENTRY-INFO (SI::IN-FN) LAYOUTGRAPH (BOX.BOTH.FLG + BOX.LEAVES.FLG BORDER.FOR.MARKING LABELSHADE.FOR.MARKING) \LET* (\INTERRUPTABLE) SKIPSEPRCODES ( +\RefillBufferFn) SEDIT::PARSE-INDENT-GROUPS (SEDIT::ARG-1) \TEDIT.MENU.WHENHELDFN (MENU BUTTON) +CL:FILE-WRITE-DATE (TN) COMP.STPOP (RPTN) \TEDIT.FIND.FIRST.LINE (WWIDTH) \UFS.CLEANUP.GFS.TABLE (KEY) + SIMPLE-DELETE (ITEM SEQUENCE START END) SEDIT::GROW-SELECTION-DEFAULT (SEDIT::SELECTION SEDIT::CONTEXT + SEDIT::NODE) TEDIT.GET (OCURSOR USER.CMFILE RESP) COMP.BIND.VARS (DECL) CL:FILL (ITEM START) +READIMAGEOBJ (UNDERREADIMAGEOBJ) SEDIT::NOTE-CHANGE-FORMAT (SEDIT::NODE SEDIT::CONTEXT) SIMPLE-FIND ( +ITEM SEQUENCE START END) CL:FILE-NAMESTRING (*PRINT-BASE* *PRINT-RADIX* VERSION) \VFMCreateVPage ( +\INTERRUPTABLE) \SIMPLIFY.CL.ARGLIST (SECTION) \VAMAllocPageGroup (SI::*LOCKED-MONITOR* SI::*RESETFORMS* + \INTERRUPTABLE) MAPRELATION (DUMMY) CL:ARRAYP (ARRAY) MBUTTON.SET.FIELD (OBJ SAVED.SEL) +CL:FILE-POSITION (CL:POSITION) \DSPCLIPPINGREGION.PRESS (\INTERRUPTABLE) RESTART.PROCESS ( +\INTERRUPTABLE) \UFSMakeUnixFormatName (LASTSLASH SLASHCHAR C) FORMAT-PRINT-NAMED-CHARACTER (LONGP) +HARDCOPYGRAPH (PAGENUMBERS-FLAG X-POSITION Y-POSITION) XCL::NOHOOK (XCL::FN XCL::ARGS XCL::ENV +*EVALHOOK*) INSTALL-PROTOTYPE-DEFN (DEFINER-HELP-STRING TYPE RESULT) MSSHOWUSE (IFCANT) +\EXTERNALFORMAT (NEWFORMAT/NAME) SKREAD (*READ-SUPPRESS*) CL:EXPT (CL::BASE-NUMBER CL::POWER-NUMBER) +CLISPIF (CLISPCONTEXT DWIMIFYING VARS SI::*RESETFORMS*) \SEQUIN.RETRANSMIT (\INTERRUPTABLE) +WAKE.PROCESS (\INTERRUPTABLE) FORMAT-PRINT-CHARACTER (COLON ATSIGN PARMS) EDITL1 (USERHANDLE) +FIND-EXACT-SYMBOL (CL:SYMBOL PACKAGE) I.S.OPR (TRAN) \SUSPEND.PROCESS (\INTERRUPTABLE) +SEDIT::BACKSPACE-LITATOM (SEDIT::SUPER-TYPE) RESETINT (FROM TO) TEDIT.MINIMAL.WINDOW.SETUP ( +TEDITPROMPTWINDOW TWIDTH THEIGHT) SEDIT::DELETE-WORD (SEDIT::SELECTION SEDIT::NODE SEDIT::END STRING +SEDIT::START) FIND-EXTERNAL-SYMBOL (PACKAGE BASE OFFSET LENGTH FATP HASH EHASH RESULT SYM) +\NSRANDOM.PREPARE.CACHE (\INTERRUPTABLE RPTN) TB.SET.FONT (WIDTH) RESETTERMCHARS (TERMTABLE SYSTEMTYPE +) SEDIT::NEXT-NODE (SEDIT::POSTORDER?) SIMPLE-FIND-IF (TEST SEQUENCE START END) MAKEHASHLINKS ( +BINDINGS) \CLOCK0 (BOX) SEDIT::AWAKE-ME (SEDIT::RESULT SEDIT::STACK-FRAME) \TEDIT.PUT.CHARLOOKS ( +PREVFATP FONT STR) \LFEventFn (SI::*LOCKED-MONITOR* SI::*RESETFORMS*) TERM.MODIFY.ATTRIBUTES ( +INVERTFLG DSP PLAINFONT) CL::BOA-SLOT-SETFS (CL::RESULT-ARG CL::SLOT-NAMES CL::STRUCTURE-TYPE) +SEDIT::EVAL-SELECTION (SEDIT::STRUCTURE-COPY) SI::CONSTRUCT-ENTRY-PRINTING-CODE (SI::TRACED-FN SI::IN-FN + SI::LAMBDA-CAR SI::ARG-LIST) TEDIT.COPY (INSPC INSPC# NPC PCCH NPCCH OPLEN COPYFN) +\POSTSCRIPT.SPECIALFONT.SCALEDWIDTHS (WIDTHS NEWWIDTHS SIZE) \ETHEREVENTFN (DEV) CREATEW1 (DSP +DISPLAYDATA TITLEHEIGHT) \8859INCCODEFN (BYTECOUNTVAR BYTECOUNTVAL) \GETFILINGCONNECTION ( +SI::*LOCKED-MONITOR* SI::*RESETFORMS*) COMPILER::COMPILE-FILE-OUTSTANDING-LOOSE-FORMS ( +COMPILER::COMPILER-CONTEXT) FASL::DUMP-CHARACTER (FASL::REMEMBER) CL:READ-DELIMITED-LIST (INSTREAM) +\CURVE (BRUSHBM) CL:FLOAT-RADIX (FLOAT) EDITBMREPAINTFN (REGION) COMPILER::CONVERT-TO-CL-LAMBDA ( +COMPILER::FORM) CLISP3B (OPR) EXPAND-DESTRUCTURING-BIND (PATTERN FORM BODY ENVIRONMENT WHOLE-VAR) +XCL::WHERE-IS-READ-COMS (PATHNAME) MSPRGDWIM (SI::*RESETFORMS* LISPXHIST) COMPILER::META-EVAL-CALL ( +COMPILER::FN-NAME) D-ASSEM::GENERATE-KEY (D-ASSEM::START D-ASSEM::TAIL) DINFO.CREATE.FMENU (ADD.ITEMS +FONT) PRIN2-LONG-STRING (IMSTREAMP) CL:GCD (CL::RESULT CL::I) LISPX/ (VARS) \FTP.NEXTFILE (NAMEBODY +EXT N) \FUNCT1 (\INTERRUPTABLE) CL:STRINGP (STRING) COMP.TOPLEVEL.COMPILE (CONSTS ALLDECLS LEVEL +LOCALVARS SPECVARS *BC-MACRO-ENVIRONMENT* COMPILER::*ENVIRONMENT* MACEXP AC FRELST +COMPILE.DUNBIND.POP.MERGE.FLG TEMP) SETREADTABLE (FLG) MSNOTICEFILE (SI::*RESETFORMS*) \MAKESTACKP ( +\INTERRUPTABLE) \PFTrimHelper (\INTERRUPTABLE) MSCHECKBLOCKS (LOCALVARS SPECVARS) COMPILER::ALPHA-LAMBDA + (COMPILER::ORIGINAL-FORM COMPILER::*CONTEXT* COMPILER::NAME) COMP.GO (ANYPROG) MENU.HANDLER (SUBITEMS +) FORMAT-PRIN1 (ATSIGN) \TEDIT.UNDERLINE.SEL.OFF (TEXTOBJ) UNIX-GET-NEXT-BUFFER (STREAM WHATFOR +NOERRORFLG) CL:APPEND (CL::ARGS) \TEDIT.HARDCOPY.DISPLAYLINE (FONT) NOTIFY.EVENT (\INTERRUPTABLE) +COMPILER::GENCODE-MV-CALL (COMPILER:CONTEXT COMPILER::ARGS) CHECK-KEYWORDS (KEY-ARGUMENTS ARGBLOCK +LENGTH N) \TEDIT.BRAVOFILE? (A B C) RIGHTW.REPAINTFN (SPACE *PRINT-LEVEL* *PRINT-LENGTH*) LISPX ( +HELPCLOCK SI::*RESETFORMS*) COMPILER::ALPHA-UNWIND-PROTECT (COMPILER::BODY COMPILER::CLEANUPS +COMPILER::CLEANUP-VAR) \UFSCHDIR-C (DIR) STKEVAL (INTERNALFLG) \DOBUFFEREDTRANSITIONS (\INTERRUPTABLE) + DOSELECTEDITEM (MENU ITEM BUTTON) SEDIT::DO-MUTATION (SEDIT::CONTEXT SEDIT::RESULT) +PRINT-CIRCLE-ENTER (OBJECT) SEDIT::GET-CONTEXT (SEDIT::WINDOW) FASL::SAVE-VALUE (FASL::VALUE +CL:HASH-TABLE) \LFDirectoryNameP (SI::*LOCKED-MONITOR* SI::*RESETFORMS*) TWODINSPECT.MAKEREGIONS ( +*PRINT-LEVEL* *PRINT-LENGTH*) UNIXCOMM-AROUNDEXITFN (EVENT) SEDIT::FINALIZE-MOUSE-SELECTION (SEDIT::WINDOW +) \SOUT (*DRIBBLE-OUTPUT* \PRIMTERMSA \TERM.OFD) CHDIR (SI::*LOCKED-MONITOR* SI::*RESETFORMS*) +%%SYNONYM-STREAM-DEVICE-GETFILEINFO (DEVICE) MSCHECKBLOCK (ENTRIES BLKAPPLYCALLERS RETFNS NOLINKFNS +LINKFNS DONTCOMPILEFNS) CL:CONSTANTP (OBJECT ENVIRONMENT) TOTOPW.MODERNIZE (MAIN) CL::%%+ (CL::X CL::Y +) RETEVAL (INTERNALFLG) RSTRING (\RefillBufferFn *READ-SUPPRESS*) SEDIT::SET-SELECTION-COMMENT ( +SEDIT::INDEX SEDIT::OFFSET TYPE) SI::CREATE-TRACED-DEFINITION (SI::TRACED-FN SI::IN-FN SI::FN-TO-CALL) + INTERACT&SHIFT.BITMAP.LEFT (NEW.BITMAP) SEDIT::EXTEND-SELECTION (SEDIT::SELECTION SEDIT::CONTEXT SEDIT::X + SEDIT::Y SEDIT::NODE SEDIT::INDEX SEDIT::OFFSET SEDIT::LINE SEDIT::LINEAR) SEDIT::PARSE-INDENT-GROUP-ONE + (SEDIT::INDENTS SEDIT::GROUP SEDIT::OFFSET SEDIT::ARG-1) PRINSHUT (TAIL) \POLYSHADE.XSCAN.IP (nlist +by) COMPILER::COMPILE-FILE-DEFINER (COMPILER::COMPILER-CONTEXT COMPILER::FORM) SPY.TITLE (SPYDATA) +XCL::STRUNCATE (CL:NUMBER) \CARET.DOWN (\INTERRUPTABLE) CALLS (SI::*RESETFORMS*) PFI.MAYBE.SEE.PRETTY +(*UPPER-CASE-FILE-NAMES*) %%SYNONYM-STREAM-DEVICE-SETFILEINFO (DEVICE) COMPILER::GENCODE-MV-PROG1 ( +COMPILER::NODE COMPILER:CONTEXT) \SETMACROSYNTAX (\INTERRUPTABLE) ALISTS.GETDEF (TYPE OPTIONS) BLIPVAL + (NXT) TEDIT.PUT.PIECE.DESCRIPTOR (FILE CH1 CHLIM LOOKS) CGETTEXTPROP (TEXTOBJ) \TEDIT.GET.PARALOOKS ( +FILE) CTEXTPROP (TEXTOBJ VAL) SETTIME (RETFLG) SI::NAMED-FUNCTION-WRAPPER-INFO (SI::DEFN SI::FN-TO-CALL + SI::STORED-ARGLIST) BREAK0 (COMS BRKFN) DINFO.ICONFN (W) SETBLIPVAL (NXT) COPYVM (SI::*RESETFORMS*) +\MAPCHARS (DUMMY) BREAK1 (BRKCOMS BRKTYPE) D-ASSEM::REDUCE-UNCERTAINTY (D-ASSEM::INCREASE-IN-MIN-PC +D-ASSEM::JUMP-OR-TAG) XCL::WALK-COMPILER-LET (XCL::FORM XCL::CONTEXT) VRULE.WHENOPERATEDONFN (A B C) +AS.DELETE.PASSWORDS (CONVGOOK) %%TWO-WAY-STREAM-DEVICE-OUTPUTSTREAM (BYTE) TEDIT.PUT.PAGEFRAMES (STR) +ERRORMESS1 (BADGUY MESSAGE) DBG::SIMPLE-REPORT-CONDITION (CONDITION) \SPPWATCHER (SI::*LOCKED-MONITOR* + SI::*RESETFORMS*) COMPILER::GENCODE-LITERAL (COMPILER::NODE COMPILER:CONTEXT) COMPLEX-REMOVE-IF (TEST + SEQUENCE START END FROM-END KEY COUNT) TWODINSPECT.ARRANGEWINDOWS (COLUMNPROPS) SPP.SENDEOM (EPKT) +\MOVEREALPAGE (SOURCEINDEX) COMPILER::ALPHA-THROW (COMPILER::*CONTEXT*) TEDIT.WINDOW.SETUP (SEL +TEDITPROMPTWINDOW DS TWIDTH THEIGHT) VRULE.COPYFN (FROMSTREAM TOSTREAM) XCL::WALK-BINDINGS-1 ( +XCL::*DECLARATIONS* XCL::*LEXICAL-VARIABLES*) \ICONW.COPYBUTTONEVENTFN (WINDOW) \IPCURVE2 (EXTRANEOUS) + SMASHPAT1 (CARVAL) \RTP.ERROR (FOREIGNPUP) SEDIT::SET-POINT-COMMENT (SEDIT::CONTEXT TYPE +SEDIT::COMPUTE-LOCATION?) \REALFRAMEP (BFLINK) CL::DEFINE-CONSTRUCTORS (CL::RESULT-ARG CL::SLOT-SETFS) + LISPXFIND (SI::*RESETFORMS*) INSPECTW.CREATE (*PRINT-LEVEL* *PRINT-LENGTH* VALUE PROPMENU VALUEMENU +SELITEMS X) \10MBENCAPSULATE (NDB) FORMAT-PRINC (ATSIGN) TEDIT.INSERT.UPDATESCREEN (CH XPOINT OTEXTLEN + BLANKSEEN CRSEEN THISLINE EOLFLAG CHORIG CHWIDTH OXLIM OCHLIM OCR\END PREVSPACE FIXEDLINE NEXTLINE +LINES NEWLINEFLG DX PREVLINE SAVEWIDTH OFLOWFN OLHEIGHT DY TABSEEN IMAGECACHE) SEDIT::PARSE-INDENT-GROUP + (SEDIT::INDENTS SEDIT::GROUP SEDIT::OFFSET CL:BREAK SEDIT::NOBREAK) SUPERPRINT/WRAPPER (LEFT) CL:ISQRT + (CL::HIGH) HISTORYSAVE (EVENT) COMPILER::COMPILE-FILE-COMPILER-LET (COMPILER::COMPILER-CONTEXT COMPILER::FORM +) \IRM.AROUND-EXIT (EVENT) COMPILER::EFFECTS-ANALYZE (COMPILER::TREE) \SETACCESS (\INTERRUPTABLE) CL:LCM + (CL::RESULT CL::I) \TEXTPEEKBIN (CH FILE STR) CLISPIFY2 (NOVALFLG NEGFLG) \TEDIT.SUPERSCRIPTSEL ( +TEXTOBJ) \MAIKO.DISPLAYLINE (STREAM \PCHARSLEFT \PSTRING \PFILE FONT) COMP.PROG (ALLVARS ALLDECLS +LOCALVARS SPECVARS PROGLEVEL) \EVALFORM (*ARGVAL* *TAIL* *FN*) COMPILER::GENCODE-LET (COMPILER:CONTEXT + COMPILER::*SPECIAL-VENV* COMPILER::SPECIAL-LOCALS-HERE COMPILER::STK-NUM) COMPLEX-REMOVE-IF-NOT (TEST + SEQUENCE START END FROM-END KEY COUNT) SI::CHANGE-CALLS (SI::FROM SI::TO SI::FIXER SI::REAL-FN-DEFN) +NOTIMP (N) \UFSGetFreeBlock-C (FILE BUF) COMPILER::ALPHA-TAGBODY (COMPILER::*TAGBODY-STACK* COMPILER::FORM +) SEDIT::PARSE--QUOTE (CL:STRUCTURE SEDIT::CONTEXT) SI::CHANGE-CALLS-IN-CCODE (SI::TO) RECLOOK ( +FAULTFN) XCL::WHERE-IS-DEFAULT-DEFINE-TYPES (TYPE) WINDOW.MOUSE.HANDLER (\MOUSEBUSY) SIMPLE-DELETE-IF +(TEST SEQUENCE START END) GET.MENU.LIST (DISPLAYEDLEVELS MAXWIDTH FONT BFONT MENU-P) FASL::WRITE-OP ( +FASL::HANDLE FASL::OPNAME) \VFMInsertPageGroup (SI::*LOCKED-MONITOR* SI::*RESETFORMS* \INTERRUPTABLE) +TWODINSPECT.ADJUSTSELECTION (*PRINT-LEVEL* *PRINT-LENGTH*) HASH-STRUCTURE-SMASH (THING) +DBG::PRINT-ENTRY-MESSAGE (*PRINT-BASE*) \BACKTRACE (NARGS NPVARS ARGNAME) MODERNWINDOW.BUTTONEVENTFN ( +LEFT RIGHT TOP BOTTOM) RESHOWTITLE (TITLE WINDOW JUSTDISPLAYFLG) COMPILER::COMPILE-FILE-MACROLET ( +COMPILER::COMPILER-CONTEXT COMPILER::FORM) SEDIT::ADJUST-WIDTH (SEDIT::CONTEXT) \GC.HANDLEOVERFLOW ( +\INTERRUPTABLE) COMPILER::FIND-TAG-DUPLICATION (COMPILER::NEW-CODE) SEDIT::EXPANDFN (SEDIT::CONTEXT) +\EDITBM/PUTUP/DISPLAY (GRIDINTERIOR) \TEDIT.SUBSCRIPTSEL (TEXTOBJ) COMP.TRANSFORM (CONTEXT +*BYTECOMPILER-IS-EXPANDING*) COMP.LAMBDA (E I ALLVARS ALLDECLS LOCALVARS SPECVARS) DF (*EDITMODE*) +OPT.DEADSETQP (TAGS ICNT) \FTP.REOPENFILE (NAME RECOG OTHERINFO FDEV) OPENNSOCKET (\INTERRUPTABLE) +SI::CHANGE-CALLS-IN-LAMBDA (SI::FROM SI::TO SI::LAMBDA-FORM) DO.SHIFTED.SELECTION (ENDLINE) +\TEDIT.PUT.SINGLE.CHARLOOKS (STR) CL::DEFINE-BOA-CONSTRUCTOR (CL::CONSTRUCTOR-NAME CL::SLOT-SETFS) +DEFAULT.INSPECTW.PROPCOMMANDFN (DATUM) FORMAT-TAB (COLON ATSIGN PARMS) \INSERTCH (CHNO \INFIRSTCH) +SEDIT::PARSE-INDENT-GROUP-BODY (SEDIT::INDENTS CL:BREAK SEDIT::NOBREAK) \INTERPRETER (TYPE +\INTERRUPTABLE) \TEXTMENU.TOGGLEFN (W OFILE CH) %%FILL-POINTER-STREAM-DEVICE-CLOSEFILE (ABORTFLAG) +COMPILER::FIND-AND-PERFORM-RPLCONS-TRANSFORM (COMPILER::NODE COMPILER:CONTEXT) \LFWriteLeaderPage (vol +) EDIT%: (TOFLG L UNDOLST1 LCFLG) COLLECTDESCENDENTS (NodeID) \TEDIT.PUT.PARALOOKS (DEFAULTTAB +TABSPECS OUTPUTFORMAT) \INTERNAL/SETPASSWORD (SI::*LOCKED-MONITOR* SI::*RESETFORMS*) +FORMAT-INDIRECTION (COLON ATSIGN PARMS STRING) INSPECTW.REPAINTFN (*PRINT-LEVEL* *PRINT-LENGTH*) +\DSPFONT.HCPYMODE (\INTERRUPTABLE) CL:LOGEQV (CL::RESULT CL::I) SHOWWTITLE (PLVLFILEFLG) +\POLYSHADE.DISPLAY (nlist) COMPILER::COMPILE-FILE-PACKAGE-FORM (COMPILER::COMPILER-CONTEXT COMPILER::FORM +) SI::CONSTRUCT-MIDDLE-MAN (*PRINT-CASE*) \BSP.SENDBUFFER (\INTERRUPTABLE) WAITFORINPUT (ELAPSED) +CL:LOGIOR (CL::RESULT CL::I) UNSAVEDEF (DFNFLG) \TEDIT.CHARDELETE (INSPC#) SEDIT::REPAINT ( +SEDIT::CURRENT-FONT) \INVALID.SYMBOL (XCL::NCOLONS XCL::EXTRASEGMENTS XCL::MY-CONDITION) +COMP.RETFROM.POINT (LBCNT) LITATOM (X) \VFMInsert (insertVolumePage) CL:IMAGPART (CL:NUMBER) +\PFPatchRootDirEntries (type) FASL::END-TEXT (FASL::HANDLE) FB.FASTSEECOMMAND (KEY ITEM MENU +*UPPER-CASE-FILE-NAMES*) SEDIT::SET-POINT-COMMENT-WORD (SEDIT::CONTEXT SEDIT::INDEX SEDIT::ITEM TYPE +SEDIT::COMPUTE-LOCATION?) SI::RESTORE-CALLS (SI::ENTRY) TITLEW.BUTTONEVENTFN (*PRINT-LEVEL* +*PRINT-LENGTH*) DBG::EMERGENCY-PANIC-LOOP (*READ-SUPPRESS* DBG::*IN-THE-DEBUGGER*) \THROUGHBACKCCODE ( +STREAM BYTECOUNTVAR BYTECOUNTVAL) \TEDIT.HARDCOPY.FORMATLINE (PAGEINFO FONTWIDTHS PCNO) +\PFI.DO.HARDCOPY (SI::*LOCKED-MONITOR* SI::*RESETFORMS*) \CREATECHARSET.IP (ROTATION DEVICE) +EDITCALLERS (DUMMY *PACKAGE*) COMPILER::GENCODE-LAMBDA (COMPILER::NODE COMPILER:CONTEXT COMPILER::NEW-LAMBDA + COMPILER::OUR-NON-LOCALS COMPILER::CLOSED-OVER COMPILER::REQUIRED COMPILER::OPTIONAL CL:REST COMPILER::KEY +) CL:HOST-NAMESTRING (PATHNAME) \GCMAPTABLE (\INTERRUPTABLE) FB.BROWSECOMMAND (KEY ITEM MENU OPTION +DEPTH) COMPILER::ALPHA-SETQ (COMPILER::KIND) VRULE.IMAGEBOXFN (HRULE CURRENT.X RIGHT.MARGIN SCALE +WIDTHS) COMPILER::FIND-REACHABLE-TAGS (COMPILER::*TAG-LOCATION-TABLE*) XCL::WHERE-IS-NOTICE-INTERNAL ( +XCL::FILE-NAME XCL::OLD-FILES) \LEAF.RECONNECT (SI::*LOCKED-MONITOR* SI::*RESETFORMS*) +SEDIT::CREATE-SIMPLE-NODE (SEDIT::ENVIRONMENT) COMPILER::COMPILE-FILE-PROCLAMATION (COMPILER::COMPILER-CONTEXT + COMPILER::TOP-ENV) SEDIT::COPY-SELECTION-DEFAULT (SEDIT::CONTEXT SEDIT::POINT SEDIT::DELETE? SEDIT::NODES +) MBUTTON.SET.NEXT.BUTTON.STATE (TEXTOBJ STARTINGCH NEWSTATE) TTYDISPLAYSTREAM (\INTERRUPTABLE) +CLISPIFY1 (BROADSCOPE PARENT) SEDIT::ASSIGN-FORMAT-LITATOM (SEDIT::FONT SEDIT::STRING-ITEM SEDIT::WIDTH +) COMP.ATTEMPT.COMPILE (SUBFNFREEVARS) CL::%%ATAN-FLOAT (CL::SQR CL::INT CL::POW CL::OLD) SMASHPATTERN + (XV) CLOSEICONWINDOW (USEREXPANDFN) \FTP.GENERATEFILES (REMOTENAME) SEDIT::SELECT-SEGMENT-COMMENT ( +SEDIT::CONTEXT SEDIT::NODE SEDIT::SUBNODE SEDIT::INDEX SEDIT::SUB-OFFSET SEDIT::SUB-ITEM SEDIT::START +SEDIT::NEW) PRINTFILETYPE (HOST) TTYIN.FINISH (*READTABLE* \BUFFER) TTYIN (HELP ECHOTOFILE TABS +\INSIDE.TTYIN \DSP \INITCRLFS \ARROW \BMARG \CHARHEIGHT \CHARWIDTH \COMMENTFONT \CURSOR \CURSORROW +\DELETING \DESCENT \FIRSTLINE \FONT \HOMECOL \HOMEROW \INITPOS \LAST.DELETION \LASTAIL \LASTAILCOL +\LASTAILROW \LASTCHAR \LMARG \LOC.ROW.0 \RMARG \TEXTURE \TTPAGELENGTH \TTYINBUFFERSTREAM) PRIN2 ( +*READTABLE* *PRINT-ESCAPE* *PRINT-LEVEL* *PRINT-LENGTH* *PACKAGE*) SEDIT::CONVERT-COMMENT (SEDIT::POINT + SEDIT::NEW-NODE) DCODERD (*READTABLE*) \THROUGHIN (BYTECOUNTVAR BYTECOUNTVAL) FORMAT-SKIP-ARGUMENTS ( +COLON ATSIGN PARMS) COMP.BLOCK (FLG) COMPILER::GENCODE-LABELS (COMPILER::NODE COMPILER:CONTEXT) +COMPLEX-REMOVE (ITEM SEQUENCE START END FROM-END KEY COUNT TEST TEST-NOT-P) \NSADDRESS.DEFPRINT ( +*PRINT-BASE*) \TEDIT.APPLY.STYLES (FMTSPEC) SPP.CLEAREOM (CON FLG) COMPILER::ALPHA-RETURN-FROM ( +COMPILER::*CONTEXT*) \MEDW.XOFFSET (\INTERRUPTABLE) VRULE.GETFN (TEXTSTREAM) VIRGINFN (X) %## ( +UNDOLST1 LASTAIL MARKLST UNFIND) SCALED.BITMAP.GETFN (TEXTSTREAM) ESUBST (L ATM COM UNFIND LASTAIL +EDITCHANGES) TTYIN1 (\INSIDE.TTYIN) \DEFINEDEVICE (\INTERRUPTABLE) \MEDW.YOFFSET (\INTERRUPTABLE) +CREATEARRAYSLICE (RANK) FASL::END-BLOCK (FASL::HANDLE) \TEDIT.HARDCOPY (FILE PFILE) MSPRGLAMBDA ( +PARENT PARENTCONTEXT VARS INCLISP) SETINITIALS (DFNFLG FILEPKGFLG) \SPP.ESTABLISH (SI::*LOCKED-MONITOR* + SI::*RESETFORMS*) SUBRP (FN) \TEDIT.NEWREGIONFN (WINDOW %#OFMENUITEMS MENUWIDTH) PRIN4 (*READTABLE* +*PRINT-ESCAPE* *PRINT-LEVEL* *PRINT-LENGTH* *PACKAGE* \THISFILELINELENGTH) \VFMGetPageGroup ( +SI::*LOCKED-MONITOR* SI::*RESETFORMS* \INTERRUPTABLE) SEDIT::HANDLE-COMPLETION (SEDIT::REASON SEDIT::FN + SEDIT::EXTRA-ARGS) SIMPLE-REMOVE-IF-NOT (TEST SEQUENCE START END) MB.DEFAULTBUTTON.FN (OBJ SEL W) +INTERACT&SHIFT.BITMAP.RIGHT (NEW.BITMAP) TEDIT.GETINPUT (STREAM PROMPTSTRING DEFAULTSTRING +DELIMITER.LIST) CL:PACKAGE-NAME (PACKAGE) MSINTERPRET (EDITQUIETFLG) INTERACT&SHIFT.BITMAP.UP ( +NEW.BITMAP) \SPP.PREPARE.INPUT (\INTERRUPTABLE) XCL::WHERE-IS-NOTICE (XCL::FILES XCL::DEFINE-TYPES +XCL::QUIET HASH-FILE::*DELETE-OLD-VERSION-ON-REHASH*) \NSFILING.CONNECT (REALREQUIRED) APROPOS ( +DISPLAYSTREAM) WTFIX1 (DWIM.GIVE.UP.TIME NEWTAIL SI::*RESETFORMS* EXPR) CL:GENTEMP (CL::PREFIX PACKAGE + CL::COUNTER CL:NAMESTRING) PROMPTFORWORD (BELLBEENHEARD? CANDIDATATE.LENGTH) WRITEPRINTERPORT (DATUM) + COMPILER::FIND-ALL-TAGS (COMPILER::CODE) \LEAF.WHENCLOSED (FINALSTATE) CL:MERGE-PATHNAMES (DIREND +DEFAULT-TYPE) \SPPSENDERROR (CON) CLDISABLE (SI::*RESETFORMS*) \TFBRAVO.HANDLE.HEADING (INPUT) +XCL::HASH-FILE-TYPES-OF (XCL::POSSIBLE-TYPES XCL::ENTRIES) COMPILER::COMPILE-FILE-DEFINE-FILE-INFO ( +COMPILER::COMPILER-CONTEXT *STANDARD-INPUT* FILECREATEDLOC) WHO-LINE-SYMBOL-SPACE (TOTAL-SYMBOL-SPACE +SYMBOL-SPACE-IN-USE) \GET-NEXT-RUN (START) INREADMACROP (POS) \DRAWELLIPSE.HCPYMODE (CENTERX CENTERY +SEMIMINORRADIUS SEMIMAJORRADIUS) \NEWPAGE (BASE NOERROR LOCK?) AS.CREATE.PASSWORDS (PASSWORD CONVGOOK) + FB.HARDCOPYCOMMAND (KEY MENU) COMPLEX (CL:REALPART CL:IMAGPART) \REMOVEDEVICE (\INTERRUPTABLE) +\FTP.DELETEFILE (REMOTENAME) \LINES-EQUAL-P (LAST-LINE CURRENT-LINE WORDS-PER-RASTER) EDIT4E (L UNFIND + ORIGFLG LASTAIL) SETSYNONYM (FLG) \DONEWPAGE (BASE NOERROR LOCK?) COERCE-TO-NSADDRESS (HOST +DEFAULTSOCKET) COMPILER::GENCODE-IF (COMPILER::ELSE-TAG COMPILER::AFTER-IF-TAG) \BLKFABSMAX.UFN (ZERO) + \PRINTNSADDRESS (\THISFILELINELENGTH) \TEDIT.TABTYPE.SET (W PCNO) ARGTYPE (DEF) \BLKFABSMIN.UFN (ZERO +) \IDLE.PROMPTING.WINDOW (TITLE) \CURSORDESTINATION (\INTERRUPTABLE) PRINTHISTORY (L HELPCLOCK) +\BLKFMAX.UFN (ZERO) READHASHMACRO (READVAL) \BLKFMIN.UFN (ZERO) HREAD (BACKREFS BACKREFCNT +DATATYPESEEN) MSPRGTEMPLATE (PARENTCONTEXT VARS) \FM.3STATE-SELECTEDFN (WINDOW BUTTONS) READBQUOTE ( +\INBQUOTE) INFILECOMS? (NAME ORIGFLG) BYTEBLOCKCOMPILE2 (SI::*RESETFORMS* BLKFLG) CL:PARSE-NAMESTRING +(HOST DEFAULTS JUNK-ALLOWED) CHAT.INIT (HOST) \TEDIT.BLTCHAR (DISPLAYSTREAM CHAR8CODE \INTERRUPTABLE) +COMPILER::COMPILE-FILE-DEFCONSTANT (COMPILER::COMPILER-CONTEXT COMPILER::FORM) EDITXTR (UNFIND) +PUTSEQUIN (SI::*LOCKED-MONITOR* SI::*RESETFORMS*) \SW2BM (\INTERRUPTABLE) COMPILER::ALPHA-PROGN ( +COMPILER::*CONTEXT*) \DisplayEventFn (FDEV) COMPILER::GENCODE-GO (COMPILER:CONTEXT COMPILER::SEGMENT) +CHAT (LOGOPTION INITSTREAM) COURIER.SKIP (RPTN) OBTAIN.MONITORLOCK (\INTERRUPTABLE) DISPLAYAFTERENTRY +(ENTRYFN) EDITMV (LASTAIL) CL:RETURN-FROM (CL::RETFROM-VALUE) COMPILER::CLOSURE-ANNOTATE-VAR-REF ( +COMPILER::IN-LOOP-P) LISPXUSEC (LISPXHIST) \INSPECT.COMPUTE.TITLE (*PRINT-LEVEL* *PRINT-LENGTH*) +\TEDIT.FIXCHANGEDLINE (TEXTLEN PREVDESCENT FORMATDONE LIMITCHANGED WASDIRTY PREVLINE FOUND DY) +CL:PEEK-CHAR (RECURSIVE-P \RefillBufferFn) FORMAT-PLURAL (COLON PARMS) SIMPLE-REMOVE (ITEM SEQUENCE +START END) CL:MAKE-SYMBOL (\INTERRUPTABLE) SEDIT::DISPLAY-SELECTION (SEDIT::SELECTION SEDIT::WINDOW +TYPE) MBUTTON.SET.NEXT.FIELD (DONTUPDATESCREEN) ONEDINSPECT.MAKEREGIONS (*PRINT-LEVEL* *PRINT-LENGTH*) + FB.ADJUST.DATE.WIDTH (TBROWSER) XCL::CLOSE-WHERE-IS-FILES (XCL::EVENT) FILL-VECTOR (VALUE CNT +TYPE-NUMBER) \TEDIT.ITALIC.SEL.ON (TEXTOBJ) COMPILER::META-SUBST-LAMBDA (COMPILER::IN-FUNCTIONAL-POSITION +) \TEDITMENU.SELSCREENER (SELECTMODE FINAL?) \NEWEPHEMERALPAGE (\INTERRUPTABLE) \PFPurgeRootDirectory +(rootDir \INTERRUPTABLE) MSHASHLIST (OTHERSET BADMARKS) \DRAWCURVE.HCPYMODE (KNOT) FIXATOM ( +CLISPERTYPE) \DONEWEPHEMERALPAGE (PREVRP) RELEASE.MONITORLOCK (\INTERRUPTABLE) INFILECOM (ORIGFLG TYPE +) FORMAT-NEWLINE (PARMS) \FM.3STATE-DOWNFN (BUTTONS) CHAT.TYPEIN (HOST WINDOW LOGOPTION INITSTREAM) +TEDIT.REDO.MOVE (CH# FIRSTPIECE FROMOBJ SOURCECH# OLDCHLIM) DISCARDPUPS (\INTERRUPTABLE) +MACROEXPANSION (EXP EFF VCF NCF PCF PREDF) DOATTACHEDWINDOWCOM (COM) SEDIT::CHANGE-PACKAGE (SEDIT::CHARCODE + SEDIT::WINDOW) PFI.ENQUEUE (SI::*LOCKED-MONITOR* SI::*RESETFORMS*) SI::MONITOR-UNWIND (\INTERRUPTABLE +) SIMPLE-REMOVE-IF (TEST SEQUENCE START END) SEDIT::NOTE-CHANGE-IN-SIMPLE (SEDIT::OFFSET SEDIT::WIDTH +SEDIT::START SEDIT::END) \POSTSCRIPT.CHANGECHARSET (PSDATA CHARSET) SEDIT::CONFLICTING-SELECTION? ( +SEDIT::DESTINATION-CONTEXT SEDIT::SELECTION) EXCHANGEPUPS (DUMMY) \MISC5.UFN (ARG1 ARG2 ARG3 ARG4 ARG5 +) CL:RANDOM (CL::RV) COMPILER::RELEASE-TREE (COMPILER::TREE) SEDIT::PARSE--COMMENT (SEDIT::CONTEXT +SEDIT::COMMENT-WORDS SEDIT::LEVEL) \FTP.REGISTER (DEVICE) MAKEEPSFILE (BOUNDINGBOX) \SEQUIN.PUT ( +\INTERRUPTABLE) SEDIT::FORMAT-FROM-INDENT (SEDIT::MISER LAST) \DRAWCIRCLE.HCPYMODE (CENTERX CENTERY +RADIUS) ONEDINSPECT.ADJUSTSELECTION (*PRINT-LEVEL* *PRINT-LENGTH*) \TEMPLOCKPAGES (\INTERRUPTABLE) +COMPILER::COMPILE-FILE-DECLARE%: (COMPILER::COMPILER-CONTEXT COMPILER::FORM COMPILER::DOCOPY +COMPILER::*EVAL-WHEN-COMPILE*) SEDIT::CHANGE-PRINTBASE (SEDIT::CHARCODE) \SPP.RELEASE.ACKED.PACKETS ( +\INTERRUPTABLE) COMPILER::ALPHA-MV-PROG1 (COMPILER::*CONTEXT*) NSDISPLAYSIZE (FACE) PFI.PRETTYPRINT ( +*PFI-ITEM*) MSPRGRECORD (WITH? ONLYRELS EACHTIME) \TEDIT.MARK.REVISION (TEXTOBJ FMTSPEC) +\TEDIT.NEUTRALIZE.CHARLOOKS.MENU (CH# SCRATCHSEL PC OFILE CH NEXTB BUTTON TEXT OFFSET) SEDIT::NOTE-CHANGE + (SEDIT::NODE SEDIT::CONTEXT) SEDIT::CLOSEFN (SEDIT::CONTEXT) \DFSFreeDiskPages (SI::*LOCKED-MONITOR* +SI::*RESETFORMS*) POSTSCRIPT.FONTCREATE (SYMWIDTHS DINGWIDTHS MAPPING CODE) CL:VALUES (\INTERRUPTABLE) + SEDIT::DEFAULT-PACKAGE (TYPE CL:STRUCTURE) NWAYBUTTON.INIT (BUTTONS FONT INITSTATE) +TOPW.ADJUSTSELECTION (*PRINT-LEVEL* *PRINT-LENGTH*) %%STRING-BASE-COMPARE (BASE1 TYPENUMBER1 BASE2 +TYPENUMBER2 END1 END2) CL::TIME-FORMAT (CL::FORMAT-STRING CL::ARGS) \GET.SESSION.HANDLE (PROGRAM) +CL:RATIONALIZE (CL:NUMBER) TEDIT.FORMATTEXTBOX (STREAMSCALE LASTLINE) \TEDIT.UNPARSE.CHARLOOKS.LIST ( +OFFSET) COMP.CL-EVAL (EXP) CL:VALUES-LIST (\INTERRUPTABLE) MSPRGTEMPLATE1 (VARS TOPVARS) SEDIT::BACKSPACE + (SEDIT::SELECTION) ERRM-TO-CONDITION (MESSAGE) FORMAT-TILDE (COLON ATSIGN PARMS) +FB.INFOMENU.WHENSELECTEDFN (KEY) \DISPLAYINIT (ACCESS RECOG OTHERINFO FDEV) %%STRING-DOWNCASE (BASE +TYPENUMBER) \PUT.SESSION.HANDLE (PROGRAM) CL:REALPART (CL:NUMBER) CL:RATIONAL (CL:NUMBER) PACKFILENAME + (STRUCTURE PROTECTION ACCOUNT PACKLIST) \MAKE.PROCESS1 (\INTERRUPTABLE) COMPILER::GENCODE-CATCH ( +COMPILER::NEW-LAMBDA COMPILER::END-TAG COMPILER::THROW-TAG COMPILER::STK-NUM) XCL::DEL-WHERE-IS-DATABASE + (XCL::FOUND) COMPILER::ALPHA-MV-CALL (COMPILER::FN-FORM COMPILER::ARG-FORMS COMPILER::VALUES-USED) +CL:EVALHOOK (*EVALHOOK* CL::*SKIP-EVALHOOK* *APPLYHOOK* CL::*SKIP-APPLYHOOK*) +%%STRING-BASE-COMPARE-EQUAL (BASE1 TYPENUMBER1 BASE2 TYPENUMBER2 END1 END2) UNIX.SETDISPLAYTYPE (CODE) + %%STRING-UPCASE (BASE TYPENUMBER) ECASE-FAIL (PROCEEDABLE PLACE VALUE SELECTORS) CL:APPLYHOOK ( +CL:FUNCTION CL::ARGS CL::ENV *EVALHOOK* CL::*SKIP-EVALHOOK* *APPLYHOOK* CL::*SKIP-APPLYHOOK*) +\NSFILING.DESERIALIZE (VERSION NAME) CL::VALUES-UFN (CL::INDEX \INTERRUPTABLE) XCL::SETF-PACKAGE-PREFIX + (PACKAGE) SEDIT::RELINEARIZE (SEDIT::OLD-BOTTOM-Y) MAKE-CONDITION (TYPE XCL::SLOT-INITIALIZATIONS) +\10MBSENDPACKET (\INTERRUPTABLE) CL::VALUES-LIST-UFN (CL::INDEX CL::ARGCOUNT \INTERRUPTABLE) LISPXFIX +(LISPXHIST) COMPILER::GENCODE-BLOCK (COMPILER::NEW-LAMBDA COMPILER::BLIP-VAR COMPILER::REMOTE-RETURN-TAG + COMPILER::*CODE* COMPILER::CODE) \DRAWLINE.HCPYMODE (X1 Y1 X2 Y2 WIDTH) MULTIFILEINDEX1 ( +*PFI-TWO-SIDED*) COMPILER::COMPILE-FILE-DEFINEQ (COMPILER::COMPILER-CONTEXT COMPILER::REAL-DEFN) +SEDIT::PARSE-FORMAT (SEDIT::FORMAT-SPEC) TTYIN.PPTOFILE (*READTABLE* *PRINT-ARRAY* *PRINT-STRUCTURE* +FONTCHANGEFLG) \SPP.HANDLE.ATTN (STREAM) \DOFLUSHVM (MAIKO.SYSOUTFILE IFPVP SCRATCHBUF IFPRPT) +\PAGEDBACKFILEPTR (\INTERRUPTABLE) STRPOSL (CH) CL:REQUIRE (CL::MODULE-NAME PATHNAME) MENUWRESHAPEFN ( +OLDIMAGE OLDREGION) \PFRemoveRootDirEntry (\INTERRUPTABLE) CHANGECCODE (ALL-CODE-BASES \INTERRUPTABLE) + CL:ROOM (CL::TYPES CL::PAGE-LIMIT CL::IN-USE-LIMIT) TB.DO.ITEM.SELECTION (ITEM) MACROS.GETDEF (TYPE +OPTIONS) \ENQUEUE.TIMER (\INTERRUPTABLE) \FLUSHVM (\INTERRUPTABLE) EXPANDMACRO (OPTIONS NCF PCF VCF +EFF) EXPAND-DEFMACRO (*MACRO-FORM* *MACRO-DEFAULT*) FW-INIT-PROPS (W H) TEDIT.FORMATHEADING (TEXTOBJ) +SEDIT::PARENTHESIZE-CURRENT-SELECTION (SEDIT::CHARCODE) TEDIT.FORMATFOLIO (TEXTOBJ) +AS.REPLACE.PASSWORDS (NEWPASSWORD CONVGOOK ERROR) ICMLARRAY.GETMENUWGROUP (RANK) FASL::DOTTED-LIST-LENGTH + (FASL::X) \STRINGWIDTH.GENERIC (DUMMY) CSELECT (COND-FORM) PRINT-EVENT (EVENT#) +CL::SET-PARSED-STRUCTURE (CL::EXTRA) \DSPCLIPPINGREGION.DISPLAY (\INTERRUPTABLE) \TEDIT.UNSPLITW ( +WINDOW Y) EXPANDOPENLAMBDA (GENARGS) FIXAPPLY (TYPE-IN?) CL:SEARCH (TEST TEST-NOT KEY SUBLEN1 SUBLEN2) + COMPILER::ALPHA-MACROLET (COMPILER::BODY COMPILER::*ENVIRONMENT*) SEDIT::SCAN-FOR-BOUNDS (SEDIT::END) + GRAPHBUTTONEVENTFN (REG) PFI.PRINT.COMMENTS (EXPR) \ASSIGNDATATYPE1 (\INTERRUPTABLE) +PACKAGE-HASHTABLE-INSPECT-FETCHFN (OBJECT PROPERTY) BMOBJ.BUTTONEVENTINFN (IMAGEOBJ WINDOW SELECTION X + Y SELWINDOW TEXTSTREAM BUTTON OPERATION) EDITMOVESUBTREE (REG) \DSPOPERATION.DISPLAY (\INTERRUPTABLE) + FORMAT-PAGE (COLON ATSIGN PARMS) \SEQUIN.PROCESS (SI::*LOCKED-MONITOR* SI::*RESETFORMS* RETRANSQ) +CL:SIN (CL::RADIANS) \TEDIT.SETDEFAULT.FROM.SEL (TEXTOBJ) \PEEKSYSBUF (STREAM) SEDIT::CHECK-SELECTION-SHIFT + (SEDIT::CONTEXT) UNIX.PARAMS.CONFIRM (STREAM TYPE) CL::%%CAPTURE-COUNTERS-AFTER (CL:VECTOR) PPSOC ( +*STANDARD-OUTPUT* *PRINT-BASE*) CL:SORT (SEQUENCE PREDICATE KEY) \ENQUEUE (\INTERRUPTABLE) +COMPILER::STOP-UNBINDS-AT-FRAME-BOUNDARY (CONDITION) CL::ESTABLISH-SETFS-AND-OPTIMIZERS (CL::PS-NAME) +COMPILER::GENCODE (COMPILER::NODE COMPILER:CONTEXT) FB.COPY/RENAME.COMMAND (*UPPER-CASE-FILE-NAMES*) +PRINTCODE (*PRINT-BASE*) \PROCESS.EVENTFN (DEV) \SCALEDBITBLT.DISPLAY (CLIPPEDSOURCELEFT +CLIPPEDSOURCEBOTTOM) COMPILER::PEEPHOLE-OPTIMIZE-CODE (COMPILER::NEW-CODE COMPILER::TAG-DUPLICATED-P) +XCL::WHERE-IS-READ-FN (STREAM) TEDIT.FORMATPAGE (FORCENEXTPAGE LINES NCHNO) \TEXTINIT (FILE ACCESS +RECOG OTHERINFO FDEV XCL::RESULT) SI::%%STRUCTURE-DECLARE-DATATYPE (CL::FIELD-SPECIFICATIONS +CL::SUPERTYPE CL::DESCRIPTOR CL::REFERENCE-COUNTED-POINTERS) \BITBLT.DISPLAY (SOURCEIMAGEOPS) +ICMLARRAY.GETREGIONFN (FIXEDPOINT) GETPUP (\INTERRUPTABLE) \SPLITTREE (\INTERRUPTABLE ITEM#) +\GET.FILING.ATTRIBUTE (VALUE) \FB.HARDCOPY.TOFILE.EXTENSION (TYPE) OPENPUPSOCKET (\INTERRUPTABLE) +FIND-STACK-FRAME (TOKEN) COMPILER::COMPILE-FILE-SETF-SYMBOL-FUNCTION (COMPILER::COMPILER-CONTEXT +COMPILER::NAME COMPILER::DEFINITION) \FM.TOGGLE-SELECTEDFN (WINDOW BUTTONS) UNIXCHAT.OPEN (HOST) +FONTCLASSUNPARSE (DEVICE FONT NOERRORFLG) CL:LIST-LENGTH (CL::N CL::FAST-POINTER CL::SLOW-POINTER) +DODIRCOMMANDS (FILE NAMEPRINTED) PFI.NEW.LISTFILES1 (*UPPER-CASE-FILE-NAMES*) COMP.DECLARE (VTAG) +CL:STABLE-SORT (SEQUENCE PREDICATE KEY) SEDIT::SELECTION-DOWN (SEDIT::CONTEXT) \SETLOCALNSNUMBERS ( +TYPE) SEDIT::CHECK-SELECTION (SEDIT::START SEDIT::END SEDIT::SUBNODE) SEDIT::SPLIT-COMMENT ( +SEDIT::SPLIT-STRING) BROWSE/LAYOUT/HORIZ/COMPACTLY (RETURNTTC RETURNBTC) CL:STREAM-ELEMENT-TYPE ( +STREAM) CLISPDEC1 (FAULTFN TEM TYPE-IN?) FORMAT-FRESHLINE (COLON ATSIGN PARMS) LISPXUSE (LISPXHIST) +INSPECTW.REDISPLAY (*PRINT-LEVEL* *PRINT-LENGTH* PROPMENU VALUEMENU) MAKECREATE1 (BINDINGS VAR1 +SUBSTYPE) COMPSET (OLDO) \PFAddRootDirEntry (\INTERRUPTABLE) \PFCreateRootDirectory (\INTERRUPTABLE) +SEDIT::DEFAULT-COMPILE-FN (SEDIT::NAME TYPE SEDIT::BODY) \LFFindDirHole (STREAM \INTERRUPTABLE) +\KEYBOARDEVENTFN (FDEV EXTRA) CASE.PRETTYPRINT (FORMFLG) CL::%%MAKE-ACCESSOR-CLOSURE (CL::STRUCTURE-TYPE + CL::DESCRIPTOR) TWODINSPECT.REPAINTFN (*PRINT-LEVEL* *PRINT-LENGTH*) \DSPYPOSITION.DISPLAY ( +\INTERRUPTABLE) COMPILER::ALPHA-LITERAL (COMPILER::VALUE) \SEQUIN.CLOSE (SI::*LOCKED-MONITOR* +SI::*RESETFORMS*) \TEDIT.CREATEW.FROM.REGION (PWINDOW) \CHANGECHARSET.HCPYMODE (\INTERRUPTABLE) +\TEDIT.ITALIC.SEL.OFF (CHARCODE) \TEDIT.SHOWCARETLOOKS (SEL) \FM.TOGGLE-DOWNFN (BUTTONS) +COMPILER::ENV-ANALYZE-OPCODES (COMPILER::NODE) \UNWIND.UFN (\INTERRUPTABLE) +\TEDIT.APPLY.PAGEFORMATTING (OBJ) CL::ESTABLISH-PREDICATE (CL::PS-NAME) CL::TIME-CALL ( +CL::TIMED-FUNCTION) CL:STRING-RIGHT-TRIM (CHAR-BAG) \TEDIT.SPLITW (WINDOW Y) \DSPRIGHTMARGIN.DISPLAY ( +\INTERRUPTABLE) ICMLARRAY (ASTYPE) COMPILE! (LCFIL LAPFLG STRF SVFLG LSTFIL SPECVARS LOCALVARS NLAMA +NLAML LAMS LAMA NOFIXFNSLST NOFIXVARSLST) TOPW.BUTTONEVENTFN (*PRINT-LEVEL* *PRINT-LENGTH* W) +\TEDIT.CONVERT.FOREIGN.FORMAT (DEFAULTLOOKS DEFAULTPARALOOKS TTEXTOBJ SEL) CL:STRING-TRIM (CHAR-BAG) +CL:CERROR (CL::PROCEED-FORMAT-STRING XCL:*CURRENT-CONDITION*) \DSPLEFTMARGIN.DISPLAY (\INTERRUPTABLE) +TEDIT.PARSE.PAGEFRAMES (PARENT) PRINT-HISTORY (HELPCLOCK) \RPLPTR.UFN (\INTERRUPTABLE) +TEDIT.CURSORMOVEDFN (RIGHT) \TEDIT.FILL.IN.CHARLOOKS.MENU (PC OFILE CH TEXT) \DSPFONT.DISPLAY ( +\INTERRUPTABLE) PACKAGE-HASHTABLE-INSPECT-STOREFN (OBJECT PROPERTY VALUE) PROGV.PRETTYPRINT (LEFT) +HPRINT (DATATYPESEEN BACKREFS CELLCOUNT SIZE U *STANDARD-OUTPUT*) FORMAT-TERPRI (COLON ATSIGN PARMS) +PREPLOOP (LLIST) ADDFILE0 (X TEM) CL:STRING-LEFT-TRIM (CHAR-BAG) \DRAWCURVE.PRESS (DASHLST) MSPRGE ( +INCLISP) \XCCSBACKCCODE (STREAM BYTECOUNTVAR BYTECOUNTVAL) COMPILER::PROCESS-FORMS (COMPILER::*DEFERRED-FORMS* + COMPILER::*BLOCKS* COMPILER::*BLOCK-HASH-TABLE* COMPILER::*PREPROCESSING-PHASE* COMPILER::EOF-VALUE +COMPILER::FORM) \BSP.PREPARE.OUTPUT (SI::*LOCKED-MONITOR* SI::*RESETFORMS*) PRINTPROG (PROGWORD) +ADDTOFILE (TEM) COMPILER::ALPHA-LET* (COMPILER::BINDINGS COMPILER::BODY) SEDIT::SHOW-CARET ( +SEDIT::COMPUTE-POS? SEDIT::SCROLL? SEDIT::CARET-POINT) CL::%%GET-TIMING-INFO (CL::TIMED-FUNCTION +CL::REPEAT) \MAIKO.CHECKSUM (BASE NWORDS INITSUM) MB.NWAYMENU.NEWBUTTON (NEWBUTTON) \RPLACA.UFN ( +\INTERRUPTABLE) \TEDIT.QUIT (W NOFORCE) \GENERATENOFILES (FDEV DESIREDPROPS OPTIONS) +CL::DEFSTRUCT-SHARED-PREDICATE-OPTIMIZER (CL::FORM CL::ENVIRONMENT CL::CONTEXT) SEDIT::DELETE-COMMENT +(SEDIT::SET-POINT?) \RPLACD.UFN (\INTERRUPTABLE) \DOVMEMFULLINTERRUPT (SI::*RESETFORMS* HELPFLAG) +TWODINSPECT.BUTTONEVENTFN (*PRINT-LEVEL* *PRINT-LENGTH*) \DELETECH (PCSOUT HI LO NPC) +FORMAT-JUSTIFICATION (COLON ATSIGN PARMS) SEDIT::STRUCTURE-FROM-SELECTION (SEDIT::END SEDIT::SUBNODES) + \CONS.UFN (\INTERRUPTABLE) SI::RESETUNWIND (NORMALP) ALISTS.WHENCHANGED (TYPE) SPP.CLEARATTENTION ( +CON FLG \INTERRUPTABLE) MSPRGMACRO (INCLISP EXPR) SEDIT::COMMENT-OUT-SELECTION (SEDIT::CHARCODE +SEDIT::POINT SEDIT::STR) CLISPFOR0 (DWIMIFYCHANGE DUMMYVARS I.S.OPRSLST) COMPILER::ALPHA-LET ( +COMPILER::BINDINGS COMPILER::BODY) TEDIT.PARALOOKS (PCNO) TEDIT.CREATEW (PWINDOW) \FLUSHVMOK? (TYPE +NOERROR) \XCCSPEEKCCODE (CSET CHAR) CL::GET-PS-FROM-ACCESSOR (CL::KEY) \DAYTIME0 (BOX) PRINTSQ ( +FORMFLG) UTF16BE.INCCODEFN (RAW) \NOFILESNEXTFILEFN (NAMEONLY) \DRAWCURVE.PRESS.LINE (DASHING) +TEDIT.SUBSTITUTE (OUTOFRANGEFLG SELCH# SELCHLIM SELPOINT) DBG::COLLECT-ACTIVE-ESCAPES (DBG::CONDITION) + CL:TAN (CL::RADIANS) UNIX-WRITE (CONN VAL) \4DISPLAYINIT (ACCESS RECOG OTHERINFO FDEV) EDITADDNODE ( +NEWPOS NODELABEL) INTCHAR (\INTERRUPTABLE) CL::%%CAPTURE-COUNTERS-BEFORE (CL:VECTOR) +SEDIT::FIND-NTH-STRUCTURE (SEDIT::CHARCODE CL:STRUCTURE SEDIT::N SEDIT::TOP) \CHECK.PQUEUE ( +SI::*RESETFORMS*) \NSFILING.AFTER.LOGIN (USER) NOT.TRACKCURSOR (DisplayStream Graph) +\PFPutRootDirectory (\INTERRUPTABLE) CL::GET-PS-FROM-PREDICATE (CL::KEY) \TEDIT.DEFAULTSSEL (TEXTOBJ) +WTFIX0 (FAULTX TAIL PARENT SUBPARENT ONLYSPELLFLG FAULTARGS FAULTAPPLYFLG FAULTPOS DWIMIFYFLG) +CL:PROCLAIM (CL::PROCLAMATION) GETGRIDBOXREGION (MINWIDTH MINHEIGHT FNARG) SEDIT::INSTALL-SPECIAL-FORMATS + (SEDIT::DEFAULT-AND-DATA-TOO?) XCL::GET-IMPLICIT-KEY-HASH (XCL::ITEM) CL:UNREAD-CHAR (CHARACTER) +CL::DEFSTRUCT-SHARED-ACCESSOR-OPTIMIZER (CL::FORM CL::ENVIRONMENT CL::CONTEXT) PACKFILENAME.STRING ( +STRUCTURE PROTECTION ACCOUNT PACKLIST) COMPILER::COMPILE-ONE-LAMBDA (COMPILER::*CONTEXT* +COMPILER::*AUTOMATIC-SPECIAL-DECLARATIONS*) TEDIT.BUILD.PCTB0 (SEL LINES CHLOOKSSEEN NEWPC +PARALOOKSSEEN CACHE TTEXTOBJ USER.CMFILE TSTREAM USERFILEFORMAT USERTEMP) FIND-HISTORY-EVENTS (TEM) +CLISPIFY2B (OPR0 CLTYP0) CL::CACHE-SETF-INFO (CL::PS-NAME) PFI.PRINT.BITMAP (RPTN) STRING (X) +\PROCESS.MAKEFRAME (\INTERRUPTABLE) SCROLLBYREPAINTFN (WHOLEHEIGHT WHOLEWIDTH) CL::%%RANGE-TYPE ( +CL::RANGE-LIST) TEDIT.SCAN.LINE (YBOT YBASE) \RPLCONS (\INTERRUPTABLE) TEDIT.PROMPTFLASH (PWINDOW) +MAKECREATE0 (HASHLINKS FIELDINFO) \PRINDATUM.TO.STRING (DUMMY) BROKENDEF (\INTERRUPTABLE) +CL:WRITE-TO-STRING (*PRINT-ESCAPE* *PRINT-RADIX* *PRINT-BASE* *PRINT-CIRCLE* *PRINT-PRETTY* +*PRINT-LEVEL* *PRINT-LENGTH* *PRINT-CASE* *PRINT-ARRAY* *PRINT-GENSYM*) +CL::COMPLETE-ARRAY-TYPE-DIMENSIONS (CL::DIMENSIONS) \SPLITPIECE (PC CH TEXTOBJ PC#) +\MAIKO.10MB.RESTART.ETHER (NDB) CL::COMPLETE-META-EXPRESSION-DEFAULTS (CL::LIST-TYPE) LISPXSPACES (Z) +\ENVCALL.UFN (\INTERRUPTABLE) CL::GET-SLOT-DESCRIPTOR-FROM-PS (CL::PS) CL:NRECONC (CL::TAIL CL::RESULT + CL::NEXT-CELL) FORK-UNIX (STR) FB (PATTERN) XCL:UNBREAK-FUNCTION (XCL::NO-ERROR) +COMPILE-FILE-DECLARE%: (FORM COMPILED.FILE EVAL@COMPILE DOCOPY DEFER) COMPILER::ALPHA-LAMBDA-LIST ( +COMPILER::ARG-LIST COMPILER::STATE COMPILER::REQUIRED COMPILER::OPTIONAL CL:KEYWORD) \INSERTTREE ( +\INTERRUPTABLE INCHNO AFTERFLG NODE) ICONW.PRINT-JUSTIFIED (WIDTH) \LFMakeDirHole (\INTERRUPTABLE) +TEDIT.FORMAT.HARDCOPY (FORCENEXTPAGE TEXTLEN LINE LINES NCHNO) TWODINSPECT.COPYBUTTONFN (*PRINT-LEVEL* + *PRINT-LENGTH*) \FIXDLINES (SEL) SEDIT::SUBSTITUTE-SUBSTRUCTURE (SEDIT::CONTEXT SEDIT::OLD SEDIT::NEW + SEDIT::SCOPE SEDIT::REMOVE?) XCL::PUT-IMPLICIT-KEY-HASH (XCL::BASE XCL::KEY-ACCESSOR \INTERRUPTABLE) +SI::SUB-DATATYPE-P (CL::TYPE1 CL::TYPE2) \FM.MOMENTARY-SELECTEDFN (BUTTONS) COMPILER::ENV-ANALYZE-LITERAL + (COMPILER::NODE) SPYOBJ.COPYIN (A B C) VOLUMESIZE (recompute) PRIN1 (*PRINT-ESCAPE* *PRINT-RADIX* +*PRINT-LEVEL* *PRINT-LENGTH* *PRINT-CASE*) SEDIT::SELECTION-UP (SEDIT::CONTEXT) +CL::%%STATS-OBJECT-DIFFERENCE (CL::BEFORE-DATA-COUNTERS CL::AFTER-DATA-COUNTERS) FONTSET ( +CHANGE-WINDOWS? OLDDEFAULT) \8DISPLAYINIT (ACCESS RECOG OTHERINFO FDEV) DBG::KEYLIST-FROM-ESCAPE-LIST +(DBG::ESCAPES) CONTROL-T (\INTERRUPTABLE KEYBOARDDELTA) COMPILER::ALPHA-LABELS (COMPILER::BODY +COMPILER::STRUCTS) \PRESSCURVE2 (EXTRANEOUS) RAID (MESS1 MESS2 FLG) PFI.PRINT.ENVIRONMENT (*PACKAGE*) +COMPILE1 (FREEVARS) SEDIT::SET-SELECTION-ME (SEDIT::CONTEXT) \ABORT.BULK.DATA (EPKT) +PACKAGE-INSPECT-STOREFN (OBJECT PROPERTY VALUE) TTYIN.READ?=ARGS (\BUFFER \ENDBUFFER) +CL::ESTABLISH-ACCESSORS (CL::PS-NAME CL::STRUCTURE-TYPE CL::ACCESSOR CL::EXPORTNAME) \UTF8.BACKCHARFN +(STREAM BYTECOUNTVAR BYTECOUNTVAL) COMPILER::CLOSURE-ANNOTATE-OPCODES (COMPILER::NODE COMPILER::IN-LOOP-P +) \TEDIT.DELETE (SELOFF HEIGHTCHANGED NLINE1 CRFLAG NEXTLINE NL OLINE DX OCHLIM OXLIM OLHEIGHT +OLASCENT OLDESCENT DY PREVLINE OCR\END SAVEWIDTH IMAGECACHE) \CORE.CLOSEFILE (\INTERRUPTABLE) ALLCALLS + (ONLYRELS FNNAME EACHTIME VARS TOPVARS INCLISP ERRORS PARENT NOSPELLFLG) HRULE.WHENOPERATEDONFN (A B +C) CL::DEFAULT-STRUCTURE-PRINTER (CL::PRINT-LEVEL TYPE CL::LABEL CL::FIRST-TIME?) MAPFILES (PAIR) +\NSFILING.GETFILE (NAME) COMPILE (NLAMA NLAML LAMS LAMA NOFIXFNSLST NOFIXVARSLST SPECVARS LOCALVARS) +MB.NWAYBUTTON.SELFN (TEXTOBJ OBJBOX CH) \MAIKO.ETHER-INTERRUPT (\INTERRUPTABLE SI::*LOCKED-MONITOR* +SI::*RESETFORMS*) COMPILER::COMPILE-AND-DUMP (COMPILER::*CURRENT-BLOCK*) \MAPPNAME.INTERNAL ( +\THISFILELINELENGTH) \CORE.UPDATEOF (\INTERRUPTABLE) RIGHTW.ADJUSTSELECTION (*PRINT-LEVEL* +*PRINT-LENGTH*) SEDIT::START-COMMENT (SEDIT::CHARCODE) PUTCHARBITMAP (FONT NEWCHARDESCENT) +\BITBLT.HCPYMODE (DESTINATIONLEFT DESTINATIONBOTTOM) MASTERSCOPE1 (*PACKAGE*) FILES.PUTDEF (TYPE) +SPAWN.MOUSE (\INTERRUPTABLE) \PFTransferPage (\INTERRUPTABLE) VARSBOUNDINFORM (MACRO) +CL::STRUCTURE-SLOT-NAMES (CL::STRUCTURE-NAME) CL:MAKE-HASH-TABLE (CL::SIZE CL::REHASH-SIZE +CL::REHASH-THRESHOLD) SEDIT::SUBSTITUTE-STRUCTURE (SEDIT::CONTEXT SEDIT::OLD SEDIT::NEW SEDIT::SCOPE +SEDIT::REMOVE?) FW-INIT-MENUS (C) FIND.SYMBOL (*) CHECK/MENU/IMAGE (WINDOW) GETDEF (TEM) +\LFMakeDirEntry (\INTERRUPTABLE) VARS.PUTDEF (TYPE REASON) \SCALEDBITBLT.IP (SOURCELEFT SOURCEBOTTOM +SOURCETYPE OPERATION TEXTURE) \SHOWTEXT (WREG) TWODINSPECT.DEFAULT.VALUECOMMANDFN (DATUM *) \CURVE2 ( +\CURX \CURY \OLDX \OLDY \OLDERX \OLDERY LKNOT DASHON DASHTAIL DASHCNT) XCL::%%DEFINE-TYPE-GETDEF ( +XCL::OPTIONS) TEDIT.INSERT (LINE DS LINES) SEDIT::SUBSTITUTE-OBJ (SEDIT::CHARCODE SEDIT::OLDSTR +SEDIT::NEWSTR SEDIT::PROMPTWINDOW TYPE) \CORE.GETINFOBLOCK (NEWSTREAM) \DRAWPOLYGON.IP (LASTPT) +CL::%%COMPLEX-NSUBST (CL::TREE) \CORE.DIRECTORYNAMEP (DEV) \VAMGetVAMPageFor (\INTERRUPTABLE) +CL::%%SIMPLE-NSUBST (CL::TREE) BKSYSBUF (DUMMY) SKOR0 (TAIL ALTFLG) MSJOINDETS (C) \WRITEMAP (VP RP +FLAGS) BCOMPL2 (GLOBALVARS RETFNS BLKLIBRARY NOLINKFNS LINKFNS SPECVARS LOCALVARS BLKAPPLYFNS +LOCALFREEVARS BNDLEV) MAKE-PAD-SEGS (SPACES PADDINGS) CL::%%NSUBST-IF-NOT (CL::TREE) \MAPPNAME ( +*PRINT-LEVEL* *PRINT-LENGTH* *PACKAGE* *PRINT-ESCAPE* *PRINT-BASE* *PRINT-RADIX*) \CORE.GENERATEFILES +(DESIREDPROPS OPTIONS) \PROCESS.GO.TO.SLEEP (\INTERRUPTABLE TAIL) DBG::MENU-FROM-ESCAPE-LIST ( +DBG::ESCAPES) CL::DEFINE-ACCESSORS (CL::NAME CL::STRUCTURE-TYPE CL::ACCESSOR CL::EXPORTNAME) +CL::%%NSUBST-IF (CL::TREE) \MAIKO.10MBTURNONETHER (SMASHSTATE NEWSTATE) DBG::ESCAPE-FROM-DEBUGGER ( +DBG::NAME-OR-NUMBER DBG::KEYS) \LEAF.REOPENFILE (OTHERINFO) FB.GET.SORT.MENU (ATTR) PRIN3 ( +*PRINT-ESCAPE* *PRINT-RADIX* *PRINT-LEVEL* *PRINT-LENGTH* *PRINT-CASE* \THISFILELINELENGTH) +XCL::%%DEFINE-TYPE-DELDEF (XCL::DEFN) FORK-SHELL (TERMTYPE) FB.EDITCOMMAND (*UPPER-CASE-FILE-NAMES*) +CL:GENSYM (CL::X) COMPILE-IN-CORE (DONT-TRANSFER-PUTD SI::*RESETFORMS* LCFIL LAPFLG STRF SVFLG LSTFIL +SPECVARS LOCALVARS FREEVARS) COMP.VALN (COMPILE.CONTEXT) UTF8.PEEKCCODEFN (RAW) LISPXGETINPUT (EVENT) +RESET.INTERRUPTS (\INTERRUPTABLE) TEDIT.BUILD.PCTB1 (SEL LINES CHLOOKSSEEN NEWPC PARALOOKSSEEN CACHE +CACHE? TTEXTOBJ USER.CMFILE TSTREAM USERFILEFORMAT USERTEMP) SEDIT::PENDING-DELETE (SEDIT::POINT +SEDIT::SELECTION) CHAT.STARTUP (STATE) FONTPROFILE.ADDDEVICE (OLDSPEC) \CORE.NEXTFILEFN (SCRATCHLIST) +\MISC1.UFN (ARG) PRINT-BITMAPS-NICELY (BASE QUAD-CHARS-PER-ROW CHARS-SO-FAR) \24DISPLAYINIT (ACCESS +RECOG OTHERINFO FDEV) COMPILER::COMPILE-AND-DUMP-1 (COMPILER::KIND COMPILER::*CURRENT-FUNCTION* +COMPILER::LAP-FN COMPILER::DCODE) \SPAWN.CHAT (LOGOPTION) RIGHTW.BUTTONEVENTFN (*PRINT-LEVEL* +*PRINT-LENGTH* W) TEDIT.BUILD.PCTB2 (SEL LINES CHLOOKSSEEN NEWPC PARALOOKSSEEN CACHE CACHE? TTEXTOBJ +USER.CMFILE TSTREAM USERFILEFORMAT USERTEMP EXISTINGCHARLOOKS EXLOOK EXISTINGFMTSPECS) +XCL::%%DEFINE-TYPE-PUTDEF (XCL::REASON XCL::DEFN-WITHOUT-COMMENTS) CREATE-STRUCTURE (CL::STRUCTURE-FORM +) SEDIT::UPDATE-TITLE (SEDIT::ALWAYS? SEDIT::TITLE-INFO SEDIT::CHANGED-STRUCTURE SEDIT::NAME) +MAKE-UNICODE-TRANSLATION-TABLES (LTORVAR RTOLVAR) WARNUSER (TEM) MB.THREESTATE.DISPLAY (MODE) +SEDIT::SEARCH-OBJ-BACKWARDS (SEDIT::CONTEXT SEDIT::SEARCH-STRING SEDIT::WRAP?) \IRM.GET.KEYWORDS ( +QUIETFLG) BRHL/LAYOUT/DAUGHTERS (DELTA) \PSW.SELECTED (BUTTON) COMPILER::MAKE-LAP-VAR (COMPILER::ARG-P +) WTFIX (FAULTX FAULTARGS FAULTAPPLYFLG FAULTPOS FAULTFN EXPR VARS TAIL PARENT SUBPARENT FORMSFLG +ONLYSPELLFLG DWIMIFYFLG TEM) COMPILER::ALPHA-IF (COMPILER::*CONTEXT*) COMPILER::MAKE-LAP-VAR-REFERENCE + (COMPILER::VAR) XCL::%%DEFINE-TYPE-FILEGETDEF (XCL::NAME TYPE XCL::OPTIONS) +TWODINSPECT.DEFAULT.TITLECOMMANDFN (*) XCL::GET-WHERE-IS-ENTRIES (XCL::NAME XCL::DATABASE) +CL::%%COMPLEX-NSUBLIS (CL::TAIL) \TEDIT.APPLY.CHARLOOKS (OBJ SCRATCHSEL OFILE CH SIZE SUPER SUB NEXTB +BUTTON TEXT OFFSET) \RETCALL (\INTERRUPTABLE) \TTYIN.RPEOF (STREAM) CL::%%SIMPLE-NSUBLIS (CL::TAIL) +COMP.VAL1 (COMPILE.CONTEXT) DBG::INVOKE-ESCAPE-FROM-MENU (CASE) BRKDWNCOMPILE2 (SI::*RESETFORMS* LCFIL + LAPFLG STRF SVFLG LSTFIL SPECVARS LOCALVARS) \PRINT-USING-ADDRESS (CPL) GNCCODE (\INTERRUPTABLE) +SEDIT::COPY-SELECTION-COMMENT (SEDIT::DELETE?) MSONPATH (AVOIDING NOTRACE) LISPX/1 (VARS) GLCCODE ( +\INTERRUPTABLE) PACKAGE-INSPECT-FETCHFN (OBJECT PROPERTY) PRINT-CIRCLE-LOOKUP (TABLEENTRY) +SPYOBJ.DISPLAY (DATA) \PRINTFPTOVP (*PRINT-BASE*) NCREATE2 (\INTERRUPTABLE P) \DASHINGCONVERT.HCPYMODE + (DD) \FTP.RENAMEFILE (OLDNAME) \BLTSHADE.PSC (OPERATION) CLISPIFY (OPR0 CLTYP0 BROADSCOPE SUBPARENT +SEG LST CLISPISTATE) DINFO.UPDATE.FROM.GRAPH (GRAPH.WINDOW) DWIMIFY (SI::*RESETFORMS*) TEDIT ( +SI::*LOCKED-MONITOR* SI::*RESETFORMS*) SEDIT::CLOSE-LIST (SEDIT::CONTEXT SEDIT::CHARCODE SEDIT::PNODE) + \VAMInit (SI::*LOCKED-MONITOR* SI::*RESETFORMS*) FILEPKGCOMS.PUTDEF (TYPE REASON) \INSTANCEP.UFN ( +TYPEN N) GATHEREXPORTS (FROMFILES FLG) XCL::INTERESTING-FRAME-P (XCL::INTERPFLG) HRULE.COPYFN ( +FROMSTREAM) PRINT-CIRCLE-SCAN (OBJECT) LISPDIRECTORYP (SI::*LOCKED-MONITOR* SI::*RESETFORMS*) +DINFO.LAYOUTGRAPH (WINDOW) CL:MEMBER-IF-NOT (CL::PREDICATE LIST CL::KEY) EDITFINDP (N CHANGEFLG +LASTAIL TOPLVL FF) TEDIT.PUT (TEDIT.PUT.FINISHEDFORMS TEDIT.GET.FINISHEDFORMS OUTPUT.FILE.WRITTEN +OCURSOR PROPS WINDOW \INTERRUPTABLE) EDITBM (BMWINTERIOR) CL:MEMBER-IF (CL::PREDICATE LIST CL::KEY) +TEDIT.SELECT.LINE.SCANNER (WWIDTH) LOADFNS (*PACKAGE* PRLST MAPUPDATED) CL:CONCATENATE (SEQUENCES CNT +RESULT) %%MAKE-STRING-ARRAY-FAT (\INTERRUPTABLE) \MAKEPCTB (MINLEN) UPDATE-WHO-LINE (WINDOW +WHO-LINE-ENTRIES ALWAYS?) \BITMAPSIZE.PRESS (STREAM) DEDITE (WHERE *EDITMODE*) %%MAKE-ARRAY-WRITEABLE +(BASE-ARRAY NEW-BASE OFFSET TOTAL-SIZE TYPE-NUMBER \INTERRUPTABLE) EVAL-INPUT (TODO ENV) +\CREATE.TTY.OUTCHARFN (STREAM) COMPILER::COLLECT-CODE (COMPILER::*CODE*) CL:VECTORP (VECTOR) +ZEROD.FETCHFN (PROP) ATAN (ANS) SPELLFILE (DIRHOSTS) SEDIT::SHIFT-BLOCK (SEDIT::ASCENT SEDIT::OLD-Y +SEDIT::DELTA SEDIT::H SEDIT::W) %%EVERY-SINGLE (PREDICATE FIRST-SEQUENCE) FB.PROMPTW.FORMAT ( +FORMAT-STRING ARGS *PRINT-CASE* *PRINT-BASE* WINDOW) \BITBLT.IP (SOURCELEFT SOURCEBOTTOM SOURCETYPE +OPERATION TEXTURE) ADDTOVAR (DFNFLG) LOOKUP-SYMBOL (*) TEDIT.GET.OBJECT0 (NAMELEN) +\CREATE-REAL-CHARSET.DISPLAY (NEWFONT XLATEDFAM) CL:NUNION (CL::LIST1 CL::TEST CL::TEST-NOT CL::KEY) +SYMBOL-INSPECT-FETCHFN (OBJECT PROPERTY) TTYIN.PRINTARGS (SPACE REMARGS) \TEDIT.SHOW.PAGEFORMATTING ( +OBJ SEL W) PROCESS.BACKTRACE (PLVLFILEFLG) COMPILER::CLOSURE-ANNOTATE-LITERAL (COMPILER::NODE +COMPILER::IN-LOOP-P) CL:UNION (CL::LIST1 CL::KEY CL::LOOP-TEST) CL:EQUAL (CL::X CL::Y) SEDIT::SEARCH-OBJ + (SEDIT::CONTEXT SEDIT::SEARCH-STRING SEDIT::WRAP?) SEDIT::SELECT-NODE (SEDIT::SET-POINT? SEDIT::WHERE +) SEDIT::CFV-CLISP (SEDIT::SPACE-WIDTH) CL:NINTERSECTION (CL::LIST1 CL::LIST2 CL::TEST CL::TEST-NOT +CL::KEY) COMPILER::ENV-ANALYZE-GO (COMPILER::NODE) LEAF.ASSURE.FINISHED (SI::*LOCKED-MONITOR* +SI::*RESETFORMS*) \TEXTMENU.TOGGLE.DISPLAY (MODE) GENSYM (NEW? \INTERRUPTABLE) FB.EXPUNGECOMMAND (KEY +MENU *UPPER-CASE-FILE-NAMES* FILE) BMOBJ.GETFN5 (TEXTSTREAM) CL:INTERSECTION (CL::LIST1 CL::LIST2 +CL::KEY CL::RESULT-TAIL CL::LOOP-TEST) CL::%%PRINT-TIMING-INFO (CL::DATA-TYPES CL::DATA-COUNTER +CL::RESULT CL::RESULT-TAIL CL::CNT CL::TYPE-NAME) TEDIT.PUT.PCTB2 (OCURSOR POBJ OFILELEN OLDPARALOOKS +CHARLOOKSLST PARALOOKSLST) HCOPYALL1 (NH) BLTPATTERN.GENERIC (TW TH) \BUILDSLUGCSINFO (DEVICE +IMAGEWIDTHS) CL:NSET-DIFFERENCE (CL::LIST1 CL::LIST2 CL::TEST CL::TEST-NOT CL::KEY) \UNQUEUE ( +\INTERRUPTABLE) CHAT.RECONNECT (FN) ZEROD.STOREFN (PROP) CL:NAMESTRING (CL::HOST CL::DEVICE CL:DIRECTORY + CL::NAME TYPE CL::VERSION CL::RESULT) \SFMAKEBOLD (CSINFO) CL:SET-DIFFERENCE (CL::LIST1 CL::LIST2 +CL::KEY CL::RESULT-TAIL CL::LOOP-TEST) CREATETEXTUREFROMBITMAP (TEXTHEIGHT) +COMPILER::COLLECT-NONLOCAL-VAR-EFFECTS (COMPILER::NODE) CLEAR-CLISPARRAY (NAME TYPE) DIRECTORY ( +DEFAULTEXT DEFAULTVERS LASTHOST&DIR) AS.CHANGE.OWN.PASSWORDS (NEWPASSWORD CONVGOOK) CL:NSET-EXCLUSIVE-OR + (CL::LIST1 CL::LIST2 CL::KEY CL::LIST1-HANDLE CL::LIST1-PREVIOUS CL::LOOP-TEST) PROPS.WHENCHANGED ( +TYPE) CLISPATOM1 (NOSAVEFLG) CL:SET-EXCLUSIVE-OR (CL::LIST1 CL::LIST2 CL::KEY CL::RESULT-TAIL +CL::LOOP-TEST) FORMAT-DO-ITERATION (START END MAX-ITER COLON AT-LEAST-ONCE-P *FORMAT-ARGUMENTS*) +EDITF2 (LISPXHIST) DBG::PRINT-BACKTRACE (DBG::LINK *PRINT-LEVEL* *PRINT-LENGTH*) CL:LENGTH (SEQUENCE) +DINFO.HISTORIC.UPDATE (BUTTONS) TEDIT.UNDO.MOVE (TEXTOBJ FIRSTPIECE TOSEL) COMPILER::SET-UP-BLOCK-DECLS + (COMPILER::DECLS) \TEDIT.NEUTRALIZE.CHARLOOKS (OBJ MAINTEXT PC SCRATCHSEL OFILE CH NEWLOOKS NEXTB +BUTTON TEXT OFFSET) PFI.OUTCHARFN (STREAM CHAR) \BSP.PREPARE.INPUT (SI::*LOCKED-MONITOR* +SI::*RESETFORMS*) ATTACHEDWINDOWS (REALCOM) CL:SUBSETP (CL::LIST1 CL::LIST2 CL::KEY CL::LOOP-TEST) +SCANDECLARECOLON (ADR) SEDIT::DISINTEGRATE-CONTEXT (SEDIT::CONTEXT) EXPANDBM (XSTEPS YSTEPS) +\INSERTPIECE (NEW OLD TEXTOBJ DONTUPDATECH#S PC# NEW-PREVLEN PREV) OLD.FIND.SYMBOL (\INTERRUPTABLE) +MB.NB.SIZEFN (STREAM LINEHEIGHT X) \MKATOM (\INTERRUPTABLE) SYMBOL-INSPECT-STOREFN (OBJECT PROPERTY +VALUE) CL::ACCESSOR-BODY (CL::SLOT CL::ARGUMENT CL::STRUCTURE-TYPE CL::NO-TYPE-CHECK) \CREATE.SYMBOL ( +PB CPP) CL:MAKE-LIST (CL::INITIAL-ELEMENT CL::RESULT) \GCSCANSTACK (ORIG) SEDIT::INSERT-NULL-LIST ( +SEDIT::CONTEXT) \CORE.SETFILEPTR (\INTERRUPTABLE) APPENDTOVAR (DFNFLG) BCOMPL1A (FILEPKGFLG) DWIMIFY1 +(CLISPCONTEXT FORMSFLG) \TEDIT.SHOW.CHARLOOKS (OBJ SCRATCHSEL OFILE CH NEXTB BUTTON TEXT OFFSET) +\CORE.BACKFILEPTR (\INTERRUPTABLE) CL::CACHE-PREDICATE-INFO (CL::PS) CL:COMPILE (COMPILER::*ENVIRONMENT* + LOCALFREEVARS COMPILER::*CONSTANTS-HASH-TABLE* COMPILER::*PROCESSED-FUNCTIONS* COMPILER::*UNKNOWN-FUNCTIONS* + COMPILER::*CURRENT-FUNCTION* COMPILER::*INPUT-STREAM* COMPILER::*LAP-FLG*) \FIRSTNODE (COUNT) +FORMAT-CONDITION (PARMS) CL:NREVERSE (SEQUENCE) SEDIT::FIND-SUBSTRUCTURE-BACKWARDS (SEDIT::STR SEDIT::SCOPE + SEDIT::END) \CORE.SETEOFPTR (\INTERRUPTABLE) CL:FUNCALL (CL::FN CL::ARGS) \SEARCHFONTFILES (ROTATION +FILING.ENUEMRATION.DEPTH) CL:ASSOC-IF (CL::PREDICATE CL::A-LIST CL::KEY) \DECUSECOUNT (TEMP) +\LEAF.FLUSH.CACHE (SI::*LOCKED-MONITOR* SI::*RESETFORMS*) RECORDACCESS (DATUM DECLST EXPR FAULTFN +DWIMIFYFLG VARS RECORDEXPRESSION BINDINGS) COMPILER::ALPHA-FUNCTIONAL-FORM (COMPILER::*CONTEXT*) +FB.EDITCOMMAND.ONEFILE (BROWSER FILE OPTION ITEM MENU) FORMAT-ITERATION (COLON ATSIGN PARMS) +\TEDIT.PARSE.CHARLOOKS.MENU (CH SUB) \COPYDATATYPE (\INTERRUPTABLE) BAKTRACE (*PRINT-LEVEL* +*PRINT-LENGTH* X Y Z PLVLFILEFLG) SI::CANONICALIZE-ADVICE-WHERE-SPEC (SI::SPEC) UNPACKFILENAME.STRING +(SUBDIREND USEDSEMI) \INITATOMPAGE (ATM) CL:NTHCDR (CL::TAIL) CONDITIONS:MUFFLE-WARNING (CONDITIONS::R +) \VFMInit (SI::*LOCKED-MONITOR* SI::*RESETFORMS* \INTERRUPTABLE) \CORE.GETNEXTBUFFER (\INTERRUPTABLE) + BRKDWN1 (X) \BLTSHADE.PRESS (DESTREGION) \BACKPEEKBIN (\INTERRUPTABLE) CL:ASSOC-IF-NOT (CL::PREDICATE + CL::A-LIST CL::KEY) \MOVEFRAME (AX) EDITH (SI::*RESETFORMS* EDITHIST) WINDOWWORLD (\INTERRUPTABLE) +PRINTBINDINGS (NAME) \BLTSHADE.HCPYMODE (DESTINATIONLEFT DESTINATIONBOTTOM) \ALLOCBLOCK ( +\INTERRUPTABLE) CL::%%SIMPLE-RASSOC (CL::ITEM CL::A-LIST) EDIT* (COM) TB.BROWSER.BUSY (BROWSER) DO?CMD + (\BUFFER \?PARAMS \STARTED START STUFF) \COURIER.GETDEF (OPTIONS) COMPILER::ALPHA-FUNCTION (COMPILER:CONTEXT +) TEDIT.GET.CHARLOOKS0 (FONT STR) FB.MAYBE.INSERT.FILE (*UPPER-CASE-FILE-NAMES*) CONDITIONS:CONTINUE ( +CONDITIONS::R) EDITDEFAULT (LISPXHIST) UnixPrint (FILE COPIES NSIDES TYPE) MB.NB.DISPLAYFN (MODE) +SIMPLE-FORMAT (STREAM ARGS) BLTPATTERN (W H RX RW) \FONTFILENAME.OLD (*PRINT-BASE*) CL::%%SET-NTH ( +LIST CL::NEW-VALUE) CL::%%SQRT-FLOAT (CL::FX) EDLOC (LCFLG FINDFLAG COMS) \CREATECOREDEVICE (ACCESS +RECOG PARAMETERS FDEV) \NSFILING.NEXTFILE (SCRATCHLIST RESETSTATE) BYTECOMPILE2 (BLKFLG) \FONTFILENAME + (*PRINT-BASE* *PRINT-RADIX*) CL::%%COMPLEX-RASSOC (CL::ITEM CL::A-LIST CL::TEST CL::TEST-NOT-P CL::KEY +) MB.NB.WHENOPERATEDFN (FN) TWODINSPECT.SETELT (*PRINT-LEVEL* *PRINT-LENGTH*) \LFDirectoryScrambled ( +\INTERRUPTABLE) COMPILER::RESOLVE-VARIABLE-REFERENCE (COMPILER::CURRENT-ENV CL:SYMBOL) MAPATOMS ( +RESULT) CL:RASSOC-IF-NOT (CL::PREDICATE CL::A-LIST CL::KEY) SEDIT::GETKEY (C SEDIT::POINT SEDIT::WINDOW +) EDITRAN (L) GRAPHERCOPYBUTTONEVENTFN (WINDOW) \VFMGet (\INTERRUPTABLE) %%EXTEND-ARRAY ( +\INTERRUPTABLE) PUTCLIPBOARD (OBJECT PRINTFN) CL:RASSOC-IF (CL::PREDICATE CL::A-LIST CL::KEY) +CONDITIONS:COMPUTE-RESTARTS (CONDITIONS::FOUND CONDITIONS:RESTART) EDITTO (COM) CL:REVERSE (SEQUENCE) +CL::%%SQRT-COMPLEX (CL::R CL::I CL::C CL::D CL::E CL::ANSWER) \COURIER.HANDLE.BULKDATA (BULKDATAFN +NOERRORFLG) PURGEDSKDIRECTORY (SI::*LOCKED-MONITOR* SI::*RESETFORMS* device \INTERRUPTABLE) +CL::%%DO-TRANSLATE (CL::END-TEST CL::BODY CL::ENV CL::VARS-AND-INITIAL-VALUES CL::TAG) +CL:PRIN1-TO-STRING (*PRINT-ESCAPE*) \INIT.KEYBOARD.STREAM (X) ONEDINSPECTW.CREATE (*PRINT-LEVEL* +*PRINT-LENGTH*) COMPILE.FILE.DEFINEQ (LCFIL) %%ARRAY-ELEMENT-INITIALIZE (ARRAY INITIAL-ELEMENT) +\CREATECHARSET.PSC (FAMILY SIZE FACE ROTATION DEVICE CHARSET FONTDESC NOSLUG?) CL::TYPE-EXPANDER ( +DFNFLG FILEPKGFLG) DEFAULT.EDITDEF (EDITCOMS OPTIONS FILE DEF) \SCALEDBITBLT.PSC (TEXTURE +CLIPPEDSOURCELEFT CLIPPEDSOURCEBOTTOM) \SMASHBSPSTREAM (\INTERRUPTABLE) COMPILER::ALPHA-FLET ( +COMPILER::BINDINGS COMPILER::BODY COMPILER::*ENVIRONMENT*) %%ALTER-AS-DISPLACED-TO-BASE-ARRAY ( +\INTERRUPTABLE) \PAPERSIZE.IP (IPSTREAM) MBUTTON.FIND.NEXT.FIELD (PCNO PCNO1 CH DEPTH) UNSAVEFNS ( +SI::*RESETFORMS*) EDRPT (COPYFLG SI::*RESETFORMS*) \NSPRINT.WATCHDOG (ID PRINTER JOBNAME MSG STATUS +TAIL) TEDITFROMBRAVO (TEDITWINDOW NONFEATURES) \HANDLE.RAW.PUP (\INTERRUPTABLE) BKSYSBUF.GENERAL ( +SI::*RESETFORMS* *PRINT-BASE* *PRINT-RADIX*) WRITE-UNICODE-INCLUDED (CHARSETS) INSPECT/AS/RECORD (ITEM +) DO-HISTORY-SEARCH (TEM PRED) CL:COPY-SEQ (LENGTH) \FINDFONTFILE (ROTATION DEVICE) +SEDIT::FIND-SUBSTRUCTURE (SEDIT::STR SEDIT::SCOPE SEDIT::START) ONEDINSPECT.REPAINTFN (*PRINT-LEVEL* +*PRINT-LENGTH*) %%ALTER-AS-DISPLACED-ARRAY (\INTERRUPTABLE) BMOBJ.IMAGEBOXFN (CURRENT.X RIGHT.MARGIN) +SEDIT::NORMALIZE-SELECTION (SEDIT::REGION) \SCALEDBITBLT.PRESS (SOURCELEFT SOURCEBOTTOM SOURCETYPE +OPERATION TEXTURE) CONDITIONS:FIND-RESTART (CONDITIONS::IDENTIFIER) SEDIT::SELECTED-FN-NAME (SEDIT::NODE + CL:STRUCTURE) CL:SUBSEQ (START) EDITCOMA (COPYFLG UNDOLST1 PRETTYFLG *READTABLE*) SEDIT:RESET-FORMATS + (SEDIT::SMASH-USER-REDEFINITIONS?) COMPILE1A (NOSPELLFLG FILEPKGFLG) \CREATECHARSET.PRESS (FAMILY +SIZE FACE ROTATION DEVICE FONTDESC NOSLUG?) \MAIKO.10MBWATCHER (\INTERRUPTABLE) +\TEDIT.GET.SINGLE.CHARLOOKS (FILE) EDITCOML (UNFIND %#1 %#2 %#3 ORIGFLG) \LEAF.BREAKCONNECTION (HOST) +\VAMCheckEndOfVol (\INTERRUPTABLE) \POLYSHADE.BLT (nlist ix tx by) SIMPLE-CONDITION-FORMAT-ARGUMENTS ( +CONDITION) %%FAT-STRING-ARRAY-P (ARRAY) %%TOTAL-SIZE (DIMS) WHEN-WHO-LINE-SELECTED-FN (WINDOW) +TERM.ERASE.IN.LINE (CHAT.STATE PARAM) HRULE.GETFN (TEXTSTREAM) SCALEBM (XSTEPS YSTEPS POWER) +FUNCTIONSMSGETDEF (TYPE) \PUTD (\INTERRUPTABLE) BLOCKCOMPILE (NLAMA NLAML LAMS LAMA NOFIXFNSLST +NOFIXVARSLST EXPRSLST LOCALVARS SPECVARS) UNDOEDITCOM (L) SEDIT::STRINGIFY-ATOM (SEDIT::ENVIRONMENT) +PRINTERS.WHENSELECTEDFN (MENU BUTTON DEFAULTPRINTER) COPYGRAPH (L) SIMPLE-CONDITION-FORMAT-STRING ( +CONDITION) TEDIT.PROMPTPRINT (PWINDOW) \FM.HIGHLIGHTITEM (BUTTONS) \INIT-MISCN-TABLE (OP-NUMBER +OP-LENGTH) MSJOIN (C) SEDIT::UNDO-LIST-REPLACE (SEDIT::LAST-INSERTED-SUBNODE) BUTTONPANEL/SELECTION/FN + (BUTTON) UTF8.INCCODEFN (BYTECOUNTVAR BYTECOUNTVAL RAW BYTE2 BYTE3 BYTE4 COUNT) SI::GET-CACHE-CLOSURE + (\INTERRUPTABLE) IDIFFERENCE (X Y) CL::%%MAPCAR-SINGLE (CL::FN LIST) %%SETELT (NEWVAL) +ONEDINSPECT.BUTTONEVENTFN (*PRINT-LEVEL* *PRINT-LENGTH*) \CREATEPIECEORSTREAM (START END) IGREATERP (X + Y) \BULK.DATA.STREAM (STREAM MODE PROGRAM PROCEDURE PGMDEF PROCDEF NOERRORFLG INTERNALFLG) +COMPILE.CHECK.ARGTYPE (BLKFLG) CL::STEP-PRINT-VALUES (CL::VALUE-LIST) IQUOTIENT (X Y) FIXPRINTIN ( +LISPXHIST) PFI.AFTER.NEW.PAGE (*PRINT-BASE*) SEDIT::COMPUTE-SELECTION-POSITION-DEFAULT (SEDIT::CONTEXT +) \MAIKO.10MBSENDPACKET (\INTERRUPTABLE) CL::%%MAPLIST-SINGLE (CL::FN LIST) \PFFindPageAddr ( +\INTERRUPTABLE) CL::%%= (CL::X CL::Y) CL::%%MAPCAR-MULTIPLE (CL::FN CL::ARG-SLICE) +SEDIT::FIND-STRUCTURE-BACKWARDS (SEDIT::STR SEDIT::SCOPE SEDIT::END) MB.MARGINBAR.SELFN (SEL ORIGX +ORIGY) CL:FORMAT (*FORMAT-ORIGINAL-ARGUMENTS* *FORMAT-ARGUMENTS* *FORMAT-CONTROL-STRING* +*STANDARD-OUTPUT*) COMPILER::ENV-ANALYZE (COMPILER::TREE) \LFFindDirectoryVol (defaultVol) +FB.COMPILECOMMAND (KEY ITEM MENU) \FONTFILENAME.NEW (NAME *PRINT-BASE*) CL::%%MAPLIST-MULTIPLE (CL::FN + CL::ARG-SLICE) CL::TYPE-EXPAND-STRUCTURE (CL::TYPE-FORM) SEDIT::SPLIT-LITATOM (SEDIT::SUFFIX) +ONEDINSPECT.COPYBUTTONFN (*PRINT-LEVEL* *PRINT-LENGTH*) SEDIT::LINEARIZE-DOTLIST (SEDIT::NODE SEDIT::INDEX +) CL:BIT-AND (BIT-ARRAY1 BIT-ARRAY2 BIT-RESULT) FASL::FASL-EXTENDED (STREAM FASL::OP) DIFFERENCE (X Y) + SPY.BUTTON (W) TWODINSPECTW.CREATE (*PRINT-LEVEL* *PRINT-LENGTH*) DEBUGGER (BRKEXP +XCL::WAS-IN-THE-DEBUGGER DBG::*IN-THE-DEBUGGER* \LINEBUF.OFD *STANDARD-INPUT* *STANDARD-OUTPUT* +\INBQUOTE \#DISPLAYLINES \CURRENTDISPLAYLINE \PRIMTERMTABLE \PRIMTERMSA \INTERRUPTABLE !VALUE +BRKVALUES *EVALHOOK* *APPLYHOOK* *READ-SUPPRESS*) CL:GETF (CL::PLACE CL::INDICATOR CL::DEFAULT) +CL::STEP-PRINT (*PRINT-LEVEL* *PRINT-LENGTH*) GRAPHOBJ.IMAGEBOXFN (BMW BMH) SEDIT::VERIFY-STRUCTURE ( +SEDIT::CHARCODE SI::*LOCKED-MONITOR* SI::*RESETFORMS*) EDITBELOW (LCFLG N) CL::%%MAPC-SINGLE (CL::FN +LIST) EXEC-EVAL (FORM ENVIRONMENT *CURRENT-EXEC-TYPE* LISPXHIST HELPCLOCK) CL:GET-PROPERTIES (CL::PLACE + CL::INDICATOR-LIST) TEDIT.OBJECT.CHANGED (LINES CHANGED CH# PCNO) \CLEARPCTB (PCTB) +REDISPLAY-WHO-LINE (WINDOW) ADD-EXEC (XCL::PROFILE EXEC XCL::ID XCL::WINDOW) HISTORYFIND1 (PRED) +%%DO-LOGICAL-OP (OP \INTERRUPTABLE) \DELETETREE (\INTERRUPTABLE INCHNO AFTERFLG) CL::%%MAPC-MULTIPLE ( +CL::FN CL::ARG-SLICE) EXEC-VALUE-OF (EVENT-SPEC) PRETTYFILEINDEX (*PRINT-ARRAY* XCL:*PRINT-STRUCTURE* +*PRINT-LEVEL* *PRINT-LENGTH* *UPPER-CASE-FILE-NAMES* PRETTYFLG *PRINT-PRETTY-BITMAPS* *PFI-ITEM* +*PFI-FNSLST* *PFI-FUNNY-CHARS* *PFI-BITMAP-BASELINE* *PFI-PENDING-COMMENTS* MULTIFILEINDEX INDICES +LASTPAGE) ENTER-DEBUGGER-P (N POS) CL::%%PRINT-RANDOM-STATE (XCL:*PRINT-STRUCTURE* *PRINT-ARRAY*) +CL:BIT-ANDC1 (BIT-ARRAY1 BIT-ARRAY2 BIT-RESULT) FASL::TABLE-STATS (FASL::ITEMS) CL::%%MAPL-SINGLE ( +CL::FN LIST) SEDIT::SET-SELECTION-STRING (SEDIT::INDEX) SPYOBJ.IMAGEBOX (DATA) \LFCloseDevice ( +SI::*LOCKED-MONITOR* SI::*RESETFORMS*) FB.OPERATE.ON.FILES (FILEENTRY) TEDIT.GET.OBJECT1 (NAMELEN) +SEDIT::CFV-COMMENT (SEDIT::ENVIRONMENT CL:FORMAT) MSPATHS (TO AVOIDING SEPARATE MARKING TABS LL +BELOWCNT LINENUM SI::*RESETFORMS*) EDIT.RI (L) COMP.EVQ (SI::*RESETFORMS*) TEDIT.PUT.PCTB (OCURSOR +POBJ OFILELEN OLDPARALOOKS *READTABLE* *PRINT-BASE* CHARLOOKSLST PARALOOKSLST) +SEDIT::QUOTE-CURRENT-SELECTION (SEDIT::CHARCODE SEDIT::QUOTE-TYPE SEDIT::POINT SEDIT::NODE +SEDIT::QUOTE-NODE) CL::%%LIST-MAP-OPTIMIZER (CL::TAIL-P CL::FIRST-LIST-RETURNED-P CL::FIRST-LIST +CL::OTHER-LISTS CL::OTHER-SUBLISTS) \READSTRIKEFONTFILE (FAMILY SIZE FACE) TEDIT.SUBLOOKS (NEWLOOKS) +CHANGEVAR (TYPE REASON) \MEDW.GETSCREENREGION (SCREEN NEWREGIONFNARG NEWMOUSEX NEWMOUSEY) +\BITBLT.PRESS (SOURCELEFT SOURCEBOTTOM SOURCETYPE OPERATION TEXTURE) \TEDIT.CHANGE.LOOKS (DY) +\READACFONTFILE (FAMILY SIZE FACE FONTDESC FBBBITMAP) CL::%%MAPL-MULTIPLE (CL::FN CL::ARG-SLICE) +\VFMReadNext (\INTERRUPTABLE) \CURSORUP (\INTERRUPTABLE) UNDOPRINT (EVENT) PFCOPYBYTES (FLG) +CL::%%MAPCAN-SINGLE (CL::FN LIST) VARIABLESMSGETDEF (TYPE SPECVARP) \CURSORDOWN (\INTERRUPTABLE) +TEDIT.UNDO.PARALOOKS (LEN FIRSTPIECE PCTB CHLIM) ASSURE.PUP.READY (SI::*LOCKED-MONITOR* SI::*RESETFORMS* +) CL:BIT-EQV (BIT-ARRAY1 BIT-ARRAY2 BIT-RESULT) FASL::FASL-END-OF-BLOCK (FASL::OP) +FORMAT-SEMICOLON-ERROR (COLON ATSIGN PARAMS) TEDIT.NEW.FIND (TEXTOBJ TARGETSTRING START# END# +WILDCARDS?) PF* (SI::*RESETFORMS*) SI::ADD-OLD-STYLE-ADVICE (SI::NAME SI::ADVICE) CL:BIT-NAND ( +BIT-ARRAY1 BIT-ARRAY2 BIT-RESULT) \FONTRESETCHARWIDTHS (charoffset) \FM.CGETITEMPROP (ITEM) +\DISCARDFRAME (\INTERRUPTABLE) BREAK-FUNCTION (*PRINT-CASE*) ASSERT-FAIL (STRING ARGS) +CL::%%MAPCAN-MULTIPLE (CL::FN CL::ARG-SLICE) EDIT.BITMAP.REAL (NAME TEMP X Y) +FORMAT-UNTAGGED-CONDITION (TEST) \MEDW.CARET.SHOW (SCREEN) CL:BIT-NOR (BIT-ARRAY1 BIT-ARRAY2 +BIT-RESULT) \SFMAKEROTATEDFONT (FONTDESC ROTATION) CL::%%MAPCON-SINGLE (CL::FN LIST) +MBUTTON.FIND.BUTTON (STARTPCNO) \DELETEPIECE (PCTB PC# PCNODE) COMPILER::ANALYZE-TREE (COMPILER::*REDO-FLAG* +) TEDIT.SELECTED.PIECES (CROSSCOPY LEN INSPC INSPC# OPLEN EVENT REPLACING INSERTCH# OBJ COPYFN +UNDOCHAIN) DEFAULTWHENSELECTEDFN (FROMMENU BUTTON) SEDIT::FIND-STRUCTURE (SEDIT::STR SEDIT::SCOPE +SEDIT::START) SPYOBJ.GET (TEXTSTREAM) \SFROTATEFONTCHARACTERS (CHARBITMAP ROTATION) DEFMACRO-ARG-TEST +(ARGS) SCROLL.HANDLER (TIMEINTIMER) CL:BIT-ANDC2 (BIT-ARRAY1 BIT-ARRAY2 BIT-RESULT) UNDOLISPX3 ( +SI::*RESETFORMS*) CL::%%MAPCON-MULTIPLE (CL::FN CL::ARG-SLICE) CHANGETRAN1 (NOTRANFLG SPECIALFIELDS +FIELDNAMES SUBSTYPE BINDINGS) FASL::DEFINE-OPCODE-RANGE (FASL::FIRST-OPCODE FASL::RANGE FASL::OFFSET +FASL::TABLE PACKAGE FASL::PNAME) FB.COPY/RENAME.ONE (FBROWSER ITEM OLDNAME NEWNAME CMD MOVEFN) +CL:BIT-ORC1 (BIT-ARRAY1 BIT-ARRAY2 BIT-RESULT) CL::%%EVERY-MAP-OPTIMIZER (LIST CL::SOME-P CL::NEGATE-P +) CLIPBOARD-PASTE-STREAM (s) CL::TYPE-EXPAND-NAMED-STRUCTURE (CL::TYPE-FORM) \BASEBYTES.IO.INIT (FILE +ACCESS RECOG OTHERINFO FDEV I) MBUTTON.CHANGENAME (BOX BITMAP DS) CL:COPY-SYMBOL (CL::COPY-PROPS) +FB.LOADCOMMAND (KEY ITEM MENU) SEDIT::BUILD-NODE (SEDIT::TRUST-SUBNODES) BCOMPL.BODY (NOBLOCKSFLG +SPECVARS LOCALVARS CHANGES OTHERS FIRST BLOCKS BLKFNS TEM DESTINATIONENV DFNFLG) +TWODINSPECT.SELECTCOLUMNPROP (*PRINT-LEVEL* *PRINT-LENGTH*) FASL:DUMP-FUNCALL (FASL::HANDLE CL:FUNCTION +) \SFFIXOFFSETSAFTERROTATION (FONTDESC ROTATION) CLEARSTK (\INTERRUPTABLE) CHAT.BIN (STATE) +TWODINSPECT.RESHAPEFN (SELECTION) CHANGEI.S. (TYPE) FORMAT-ESCAPE (COLON ATSIGN PARMS) \DSPSCALE2.PSC +(OSCALE NSCALE) ONEDINSPECT.DEFAULT.VALUECOMMANDFN (DATUM *) RECURSIVELY-ANALYZE (%%MIN-ARGS +%%ARG-COUNT %%UNBOUNDED-ARG-COUNT %%ENV-ARG-NAME %%CTX-ARG-NAME) ICMLARRAY.VALUECOMMANDFN (*) +CL::STEP-FORM (CL::FORM CL::ENVIRONMENT CL::*STEP-INDENTATION-LEVEL*) SEDIT::SET-SELECTION-LITATOM ( +SEDIT::INDEX) RETURN (FORM) DINFO.UPDATE.FROM.MENU (BUTTONS) MULTIFILEINDEX (*UPPER-CASE-FILE-NAMES*) +NUMBERPAD.HELDFN (MENU BUTTON) \KEYBOARDON (NOCHECK) CL:BIT-XOR (BIT-ARRAY1 BIT-ARRAY2 BIT-RESULT) +IMPORTFILE (FILEPKGFLG DFNFLG) FASL:CLOSE-FASL-HANDLE (FASL::CLOSE-OPTIONS FASL::ABORT) FASL:PROCESS-BLOCK + (STREAM FASL::ITEM-FN FASL::OPTABLE) CLOSERTPSOCKET (DONTSEND SI::*LOCKED-MONITOR* SI::*RESETFORMS*) +\MAIKO.10MBSTARTDRIVER (RESTARTFLG CSB) \BASEBYTES.OPENFN (RECOG OTHERINFO FDEV) FASL::DO-OP ( +FASL::*BLOCK-LEVEL*) \USER-SUBR-UFN (INDEX) DWIMIFYREC (EXPR VARS DWIMIFYFLG) CL:BIT-IOR (BIT-ARRAY1 +BIT-ARRAY2 BIT-RESULT) COMP.UNWIND-PROTECT (FORM) CL::PREDICATE-BODY (CL::ARG CL::PREDICATE TYPE) +\10MB.NOTESTAT (STATUS BUF USE) EVAL (\INTERNAL) \SETUPSTACK1 (RPTN) CL:BIT-ORC2 (BIT-ARRAY1 +BIT-ARRAY2 BIT-RESULT) \OPENLEAFCONNECTION (SI::*LOCKED-MONITOR* SI::*RESETFORMS*) \10MBRAWENCAPSULATE + (NDB) COMPILER::CLOSURE-ANNOTATE-GO (COMPILER::NODE COMPILER::IN-LOOP-P) FINDPCNODE (PCTB) +\MEDW.GETBOXSCREENPOSITION (SCREEN) \SETUPGETCH (PCNO FPOS OFFST) GRAPHOBJ.PUTFN (ALIGN) COMP.CATCH ( +FORM) SEDIT::MUTATE (SEDIT::POINT SEDIT::RESULT) COMPLEX-NSUBSTITUTE-IF-NOT (NEWITEM TEST SEQUENCE +START END FROM-END KEY COUNT) \MAKEBASEBYTESTREAM (\INTERRUPTABLE) TEDIT.UNDO.LOOKS (LEN FIRSTPIECE +PCTB CHLIM) IMPORTFILESCAN (FILE RETURNFLG) COMPERRM (PLVLFILEFLG) %%FAST-COPY-BASE (\INTERRUPTABLE) +\TEDIT.INSERT.PIECES (INSPC# PSTR PCCOUNT) CLOCKDIFFERENCE (\INTERRUPTABLE) \TEDIT.GET.CHARLOOKS1 ( +FONT STR NAMELEN STYLESTR USERSTR) \CHANGECHARSET.IP (IPDATA CHARSET) \BITMAPSIZE.IP (STREAM) +FASL::CONVERT-FASL-DATE (TEMP-DATE DATE-RESULT) FASL:DUMP-VALUE (FASL::HANDLE FASL::VALUE FASL::REMEMBER + FASL::INDEX) COMPLEX-NSUBSTITUTE (NEWITEM OLDITEM SEQUENCE START END FROM-END KEY COUNT TEST +TEST-NOT-P) LOADFNSCAN (ADR) TEDIT.REDO.LOOKS (CH#) FASL:VALUE-DUMPABLE-P (FASL::OBJ) FILL-ARRAY ( +VALUE TOTAL-SIZE TYPE-NUMBER) \MACPEEKCCODEFN (COUNTP) ABS (CL:NUMBER) \PUPGATELISTENER (BASE) +DBG::STACK-FRAME-PROPERTIES (DBG::LOTS? DBG::TOTAL-SLOTS DBG::NUM-ARGS DBG::ARGLIST) CLISPATOM2A ( +DWIMIFYCHANGE) APROPOS-SEARCH (CL:SYMBOL BASE OFFSET LENGTH FATP) SIMPLE-COMPARE (SEQUENCE1 SEQUENCE2) + \REPEATEDLYEVALQT (\INTERRUPTABLE) ANALYZE-REST (WHOLE DOC PARSE-BODY-RESULT) CL::STEP-EVAL (CL::FORM + CL::ENVIRONMENT) SEDIT::NEW-BLOCK (SEDIT::X) XCL:PACKAGE-PREFIX (PACKAGE) XCL::ADJUST-IMPLICIT-KEY-HASH + (\INTERRUPTABLE) SPY.PRINT (FILE RDTBL) RECORDECL1 (DECLARATIONCHAIN) CL:DENOMINATOR (CL:RATIONAL) +UNDONLSETQ1 (LISPXHIST) CL::ASSIGN-FIELD-DESCRIPTORS (CL::FIELD-DESCRIPTORS) FASL:SKIP-TEXT (STREAM) +%%MAKE-DISPLACED-ARRAY (DISPLACED-TO-TYPENUMBER) FORMAT-CAPITALIZATION (COLON ATSIGN PARMS) SEDIT::FIND-OBJ + (SEDIT::CHARCODE) \TEXTMENU.START (CH#1) \TFBRAVO.PARSE.PROFILE.PARA (PARA) TB.ITEM.DELETED? (BROWSER +) COMPILER::CHECK-FOR-UNKNOWN-FUNCTION (COMPILER::NAME) FLOAT (CL::OTHER) TTCOMPLETEWORD (*PACKAGE*) +CREATEDSKDIRECTORY (SI::*LOCKED-MONITOR* SI::*RESETFORMS* markerPage \INTERRUPTABLE) \COPYSYS0SUBR ( +FID) MSVERB (C) TTYINEDIT (\INITPOS \RMARG) ONEDINSPECT.DEFAULT.TITLECOMMANDFN (*) SEDIT::MARKASCHANGEDFN + (SEDIT::REASON) CL:SBIT (SIMPLE-BIT-ARRAY INDICES) TEDIT.SINGLE.PAGEFORMAT (PAGE#S? PX PY PFONT PQUAD + LEFT RIGHT TOP BOTTOM COLS COLWIDTH INTERCOL HEADINGS UNITS PAGEPROPS PAPERSIZE) PUSH-KEYWORD-BINDING + (CL:KEYWORD DEFAULT SUPPLIED-P-VAR REST-VAR TEMP-VAR) \STRINGSTREAM.INIT (FILE ACCESS RECOG OTHERINFO + FDEV) TEDIT.RAW.INCLUDE (NPC) SEDIT::LINE-FINISHED (SEDIT::FORCE) CL:WARN (XCL:*CURRENT-CONDITION*) +SHOWBITMAP1.IP (BMBASE XWORDS) NUMBER.READER.HANDLER (BUTTON) SI::ADVICE-FILE-DEFINITIONS (SI::NAMES +SI::READVISE? SI::REAL-NAMES) SEDIT::SET-SELECTION-QUOTE (SEDIT::OFFSET) COMPLEX-NSUBSTITUTE-IF ( +NEWITEM TEST SEQUENCE START END FROM-END KEY COUNT) \TEDIT.RESHAPEFN (BITS TEXTSTREAM CH# WWIDTH) +DEFAULTSUBITEMFN (MENU) FASL:READ-TEXT (STREAM) SIMPLE-ARRAY-P (ARRAY) PP* (**COMMENT**FLG +*STANDARD-OUTPUT*) DBG::BACKTRACE-ITEM-SELECTED (DBG::BUTTON DBG::OLDITEM DBG::FRAMEWINDOW) +XCL:COMPILE-FORM (COMPILER::FORM COMPILER::*CONTEXT* COMPILER::*ENVIRONMENT* COMPILER::*CONSTANTS-HASH-TABLE* + COMPILER::*PROCESSED-FUNCTIONS* COMPILER::*UNKNOWN-FUNCTIONS* COMPILER::*LAP-FLG* SPECVARS LOCALVARS +LOCALFREEVARS GLOBALVARS) PFI.MAKE.LPT.STREAM (DEFREGION) CL:SIMPLE-STRING-P (STRING) DSPDESTINATION ( +\INTERRUPTABLE) IRM.CREF.BUTTONEVENTFN (SELECTION RELX RELY TEXTSTREAM BUTTON) CL::%%EXPT-FLOAT-INTEGER + (CL::FBASE CL::TOTAL) \BSP.DEFAULT.ERROR.HANDLER (%#MYHANDLE#) DO.EDIT.COMMAND (\BUFFER) +MBUTTON.CREATE (BOX BITMAP DS) \MEDW.GETSCREENPOSITION (SCREEN) TEDIT.SELECTALL (STREAM TEXTOBJ SEL +TEXTSTREAM) SEDIT::SUBNODE-CHANGED-ROOT (SEDIT::NODE SEDIT::SUBNODE SEDIT::FN SEDIT::EXTRA-ARGS) +XCL:COMPILE-DEFINER (COMPILER::LAP COMPILER::*ENVIRONMENT* COMPILER::*OUTSTANDING-LOOSE-FORMS* +COMPILER::*EVAL-WHEN-COMPILE*) SETSCREENCOLOR (FLG) SPYOBJ.BUTTON (OBJ WINDOWSTREAM SEL RELX RELY +WINDOW TEXT BUTTON) RECORDECLBLOCK (ORIGINAL-SPEC) CL:NUMERATOR (CL:RATIONAL) \GC.MODIFY.BIGREFCNT ( +CNT) RANDSET (\OVERFLOW) \MAKE.PROCESS0 (*CURRENT-PROCESS* HELPFLAG \CURRENTDISPLAYLINE \#DISPLAYLINES + *READTABLE* \PRIMTERMTABLE \PRIMTERMSA \TTYWINDOW READBUF RESETSTATE) CHECKSAMEDIR ( +*UPPER-CASE-FILE-NAMES* HOST DIR) CL::PROCESS-TYPE (CL::NAME TYPE CL::PREDICATE-BODY) +SCAVENGEDSKDIRECTORY (SI::*LOCKED-MONITOR* SI::*RESETFORMS* DIRECTORY \INTERRUPTABLE fileID) +CHAT.TYPESCRIPT1 (OLDFILE) FNTH (X0) FORMAT-DOLLARS (COLON ATSIGN PARMS) +SEDIT::FIND-NODE-SUBSTRUCTURE-BACKWARDS (SEDIT::STR SEDIT::STRLEN SEDIT::START SEDIT::CONTINUATION?) +SEDIT::MENU-SELECTEDFN (SEDIT::BUTTONS) TWODINSPECT.SELECTROWPROP (*PRINT-LEVEL* *PRINT-LENGTH*) IDATE + (DLS) \SETDAYTIME0 (\INTERRUPTABLE) \TEDIT.CUMULATE.EVENTS (PIECES-TO-SAVE?) TEDIT.UNPARSE.PAGEFORMAT + (PINFO) \VFMGenerateFileIDs (SI::*LOCKED-MONITOR* SI::*RESETFORMS* \INTERRUPTABLE) +\TEDIT.BOLD.SEL.OFF (CHARCODE) \BLTSHADE.BITMAP (\INTERRUPTABLE) FORMAT-FIND-COMMAND (COMMAND-LIST +START) \BITBLT.BITMAP (\INTERRUPTABLE) SEDIT::FIND-NODE-SUBSTRUCTURE (SEDIT::STR SEDIT::STRLEN +SEDIT::CONTINUATION? SEDIT::LASTINDEX) WALK-TEMPLATE (XCL::FORM XCL::CONTEXT) RESETFORM ( +SI::*RESETFORMS*) \LISPFINISH (DUMMY) FORMAT-GENERAL-AUX (CL:NUMBER W D E K OVF PAD MARKER ATSIGN) +CL::%%EXPT-INTEGER (CL::TOTAL) SEDIT::SELECT-SEGMENT-DEFAULT (SEDIT::CONTEXT SEDIT::OFFSET SEDIT::ITEM + SEDIT::LAST-SUBNODE-INDEX SEDIT::TAKE-NEXT SEDIT::LINEAR-ITEM-NODE) \FTP.RECOGNIZEFILE (DEV PROP) +\LFCloseFile (SI::*LOCKED-MONITOR* SI::*RESETFORMS* \INTERRUPTABLE) SEDIT::SELECT-SEGMENT-LITATOM ( +SEDIT::CONTEXT SEDIT::SUBNODE SEDIT::INDEX) SEDIT::STRINGIFY-GAP (SEDIT::NODE SEDIT::ENVIRONMENT) +\HARDRESET-CLEANUP1 (\INTERRUPTABLE) TEDIT.COPY.PARALOOKS (SOURCE) HVBAKREAD (RPTVAL) +SI::BQUOTE-EXPANDER (SI::*BACKQUOTE-LEVEL*) IMAGEFNSCREATE (CLASSNAME) SEDIT::SET-SELECTION-LIST ( +SEDIT::INDEX SEDIT::OFFSET) XCL:UNADVISE-FUNCTION (XCL::NO-ERROR) \SECONDSCLOCKGREATERP ( +\INTERRUPTABLE) RDTBL\NONOTHERCODES (VAL KEY) \FORMATLINE (FONTWIDTHS PCNO) \CLOCKGREATERP ( +\INTERRUPTABLE) DBG::BACKTRACE-MENU-BUTTONEVENTFN (DBG::MENU) SI::ADVICE-NEWCOM (TYPE) +TB.ITEM.SELECTED? (BROWSER) \INTERNALTOTOPW (\INTERRUPTABLE) WRITE-STRING* (STRING-LENGTH +CHARS-TO-PRINT STRM \THISFILELINELENGTH) SI::BQUOTE-PROCESS-LIST (SI::ITEM SI::TAIL) SPP.FORCEOUTPUT ( +\INTERRUPTABLE) CHAT.LOGIN (CHATSTATE) COMPILER::ALPHA-ARGUMENT-FORM (COMPILER::*CONTEXT*) +\HARDRESET-CLEANUP-RUN (CLEANUPFN) CLOCK0 (BOX) \D0.STARTIO (BITS) LOADFNS-FINDFILE (DWIMFLG +FILEPKGFLG) FASL:BEGIN-BLOCK (FASL::HANDLE) SUB-FORMAT (*FORMAT-INDEX* *FORMAT-LENGTH*) \MACINCCODEFN +(BYTECOUNTVAR BYTECOUNTVAL) QUOTE.WRAPPER (E FILE) TEDIT.REDO.PARALOOKS (CH#) RESETVAR (SI::*RESETFORMS* +) SHOWDISPLAY (BASE RASTERWIDTH) ASET (NEWVALUE ARRAY) CL:CHAR-BIT (CHAR) BQUOTE.WRAPPER (FILE) +\MOREVMEMFILE (FILEPAGE) RESETVARS (SI::*RESETFORMS*) DSPBOUT (CHARCODE) STRING-ARRAY-P (ARRAY) +SI::COMMA-ERROR-EXPANDER (SI::ENV) \MAIKO.DAYTIME (BOX) \WRITERAWPBI (PBI) PRINT-READER-ENVIRONMENT ( +*PACKAGE* *PRINT-BASE* PKG) FASL:DUMP-FUNCTION-DEF (FASL::HANDLE FASL::DCODE FASL::NAME) +COMPILER::CLOSURE-ANNOTATE (COMPILER::IN-LOOP-P) CL:CHAR-DOWNCASE (CHAR) \DISPLAYLINE (STREAM +\PCHARSLEFT \PSTRING \PFILE FONT) \MAIKO.DAYTIME0 (BOX) \STRINGWIDTH.HCPYDISPLAYAUX (DUMMY) +STACK.FULL.WARNING (HELPFLAG) \GENERIC.RENAMEFILE (NEWDEVICE) SEDIT::ATOM-CHANGE-RELINEARIZE ( +SEDIT::BROKEN?) COMPLEX-COMPARE-FORWARD (SEQUENCE1 SEQUENCE2 KEY TEST TEST-NOT-P) \MAIKO.CLOCK0 (BOX) +SIMPLE.FINDFILE (DUMMY) SEDIT::SCAN-STRING (SEDIT::MULTI-ESC-CHAR) XCL:TRACE-FUNCTION (XCL::REBREAK? +*PRINT-CASE*) \MAIKO.CLOCK (N BOX) XCL::IMPLICIT-KEY-REHASH (XCL::LAST-ADDRESS XCL::KEY-ACCESSOR +XCL::NULL-SLOT-INDICATOR XCL::VALUE) \ALLOCMINIMUMSIZES (EDGE) FUNCTION.WRAPPER (E FILE) CLISPATOM1A ( +NOSAVEFLG) \NSRANDOM.DESTROY.STREAM (\INTERRUPTABLE) \PUPLEVEL1STATE (FLG) CL:CHAR-UPCASE (CHAR) +\COPYSYS (SYSNAME DONTSAVE) NIL +NLAMBDA \LEAF.STRIP.QUOTES (CHARCODE) SEDIT::STRINGWIDTH (CHARCODE) SEDIT::PARSE-STRING-INTO-WORDS ( +CHARCODE) PRETTYCOM1 (CL:UNWIND-PROTECT) \UFS.RECOGNIZE.FILE (CL:UNWIND-PROTECT) \INTERNAL/SETPASSWORD + (CL:UNWIND-PROTECT) SEDIT::CREATE-ENVIRONMENTS (CHARCODE) \DSPFONT.HCPYMODE (CHARCODE) FB.DATE ( +DATEFORMAT CHARCODE) FB.UPDATEBROWSERITEMS (CHARCODE) \DSPFONT.PRESS (CHARCODE) \TEXTDSPXPOSITION ( +CHARCODE) TTBIN (CHARCODE) \UFSCloseDevice (CL:UNWIND-PROTECT) GC-FILING-DIRECTORY (CHARCODE) +\DSPSPACEFACTOR.IP (CHARCODE) \PEEKCCODE (CHARCODE) READ-UNICODE-MAPPING (CHARCODE) +\TFBRAVO.READ.PARALOOKS (CHARCODE) \TEDIT.CONVERT.TO.FORMATTED (CHARCODE) \BACKFORMAT (CHARCODE) +PACKAGE-ENABLE (CHARCODE RPAQ?) \TFBRAVO.READ.USER.CM (CHARCODE) GENSYM? (CHARCODE) \TTYIN.RPEOF ( +CHARCODE) \NSFILING.ADDQUOTES (CHARCODE) DIRECTORY.MATCH1 (CHARCODE) EDITDATE (DATEFORMAT) TTYIN.READ +(CHARCODE) TTPRIN1 (CHARCODE) \LOGIN.READ (CHARCODE) LISPINTERRUPTS.PASTE (CHARCODE) +\TEDIT.HARDCOPY.FORMATLINE (CHARCODE) UnixShellQuote (CHARCODE) \STREAMCHARWIDTH (CHARCODE) +TTYIN.SETUP (CHARCODE) \SPP.ESTABLISH (CL:UNWIND-PROTECT) CLISPIFY1 (CHARCODE) EDITCALLERS (CHARCODE) +BRKDWNCOMPILE2 (CL:UNWIND-PROTECT) CHARACTER (CHARCODE) DWIMIFY (CL:UNWIND-PROTECT) \PROCESS.EVAL1 ( +CL:UNWIND-PROTECT) \TEDIT.FORMATTABS (CHARCODE) SEDIT::ATOM-CHAR-ESCAPED (CHARCODE) PFI.PROCESS.FILE ( +CHARCODE) TTDOTABS (CHARCODE) \LFGetFileInfo (CL:UNWIND-PROTECT) TTYIN.FINISH (CHARCODE) TTSKREAD ( +CHARCODE) \LEAF.RECONNECT (CL:UNWIND-PROTECT) \ROUTINGTABLE.INFOHOOK (CHARCODE) TEDIT (CL:UNWIND-PROTECT +) \UPF.NEXTPOS (CHARCODE) LASTCHPOS (CHARCODE) BREAK.MSG.INTO.LINES (CHARCODE) \MEDW.BLTCHAR (CHARCODE +) \VAMInit (CL:UNWIND-PROTECT) L-CASE (CHARCODE) ADJUSTLINE (CHARCODE) \FAX.PARSE.NAME (CHARCODE) +\UFS.REMOVE.HOST.FIELD (CHARCODE) \NSFILING.GENERATEFILES (CHARCODE) U-CASEP (CHARCODE) +XCL::WHERE-IS-NOTICE (CL:UNWIND-PROTECT) \ECHOCHAR (CHARCODE) TTYIN1 (CHARCODE) WTFIX1 ( +CL:UNWIND-PROTECT) \VFMGetPageGroup (CL:UNWIND-PROTECT) ADDNAKEDCHAR (CHARCODE) \FTP.PRINTPLIST ( +CHARCODE) \NSFILING.COPY/RENAME (CL:UNWIND-PROTECT) U-CASE (CHARCODE) INTERPRESS.OUTCHARFN (CHARCODE) +\LFScavFileName (CHARCODE) \LFUnpackName (CHARCODE) \SPP.CLEANUP (CL:UNWIND-PROTECT) +\TFBRAVO.FIND.LAST.TRAILER (CHARCODE) \LFGetFileName (CL:UNWIND-PROTECT) TEDIT.SEL.AS.STRING (CHARCODE +) NEW/FN (CHARCODE) \GETCHAR (CHARCODE) FIX-SUBR-NAME (CHARCODE) \PROCESS.APPLY1 (CL:UNWIND-PROTECT) +TTYIN.BALANCE (CHARCODE) \FILLBUFFER (CHARCODE) APROPOS (CHARCODE) SEDIT::SETUP-WINDOW-AND-PROCESS ( +CHARCODE) \UFS.DIRECTORY.NAME (CL:UNWIND-PROTECT) LISPDIRECTORYP (CL:UNWIND-PROTECT) CHNGNM ( +CL:UNWIND-PROTECT) CLDISABLE (CL:UNWIND-PROTECT) ASKUSER (CHARCODE) PRINT-LISP-INFORMATION ( +CL:UNWIND-PROTECT) AUTOCR? (CHARCODE) DSPBACKUP (CHARCODE) GENSYM (CHARCODE) \GETSPP (CL:UNWIND-PROTECT +) PUTSEQUIN (CL:UNWIND-PROTECT) PROMPTFORWORD (CHARCODE) \IFSERRORSTRING (CHARCODE) AT.END.OF.TEXT ( +CHARCODE) \TERMINATESPP (CL:UNWIND-PROTECT) \CCLOSURE.DEFPRINT (CHARCODE) \TFBRAVO.READ.CHARLOOKS ( +CHARCODE) ONEDINSPECT.PROPWIDTH (CHARCODE) PFI.PRINT.INDICES (CHARCODE) LEAF.ASSURE.FINISHED ( +CL:UNWIND-PROTECT) \VFMInit (CL:UNWIND-PROTECT) UNIX.SETDISPLAYTYPE (CHARCODE) \FTP.PACKFILENAME ( +CHARCODE) \CHARWIDTH.PRESS (CHARCODE) PPSPP (CL:UNWIND-PROTECT) \TFBRAVO.PARSE.PARA (CHARCODE) +\STRINGWIDTH.HDCPYDISPLAY (CHARCODE) \LEAF.GETFILE (CL:UNWIND-PROTECT) D-ASSEM:ASSEMBLE-FUNCTION ( +CL:UNWIND-PROTECT) STRINGWIDTH (CHARCODE) \SLOWBLTCHAR (CHARCODE) READHASHMACRO (CHARCODE) +\BSP.PREPARE.INPUT (CL:UNWIND-PROTECT) TTADDTAB (CHARCODE) \DSPSPACEFACTOR.PRESS (CHARCODE) +\DSPPRINTCR/LF (CHARCODE) BIGNUM.DEFPRINT (CHARCODE) TEDIT.DEFAULT.MENUFN (CHARCODE) SEPRCASE ( +CHARCODE) OLD.FIND.SYMBOL (CHARCODE) MAKEFILES (CL:UNWIND-PROTECT) \MKATOM (CHARCODE) \BN.TH2D ( +CHARCODE) \IDATESCANTOKEN (CHARCODE) PPT (CL:UNWIND-PROTECT) \DSCCOUT (CHARCODE) HEXSTRING (CHARCODE) +CHAT.PROMPT.FOR.INPUT (CHARCODE) BYTEBLOCKCOMPILE2 (CL:UNWIND-PROTECT) COMPILER::TEST-META-EVAL ( +CL:UNWIND-PROTECT) BKSYSBUF.GENERAL (CL:UNWIND-PROTECT) FIXSPELL (CHARCODE CL:UNWIND-PROTECT) +HOSTNAMEP (CHARCODE) \PARSE.NUMBER (CHARCODE) \VFMDeletePageGroup (CL:UNWIND-PROTECT) TTYINWORDRDTBL ( +CHARCODE) \VAMRecomputeFreePageCount (CL:UNWIND-PROTECT) \TEXTRIGHTMARGIN (CHARCODE) ASKUSEREXPLAIN ( +CHARCODE) \LOAD-STREAM (CHARCODE) \ORIGREADTABLE (CHARCODE) SEDIT::STRING-OFFSET (CHARCODE) CLEANUP ( +LISTFILES) CLISPATOM0 (CL:UNWIND-PROTECT) \LEAF.FLUSH.CACHE (CL:UNWIND-PROTECT) PURGEDSKDIRECTORY ( +CL:UNWIND-PROTECT) \TEXTSTREAMBOUT (CHARCODE) \FTP.UNPACKFILENAME (CHARCODE) \TEDIT.READTABLE ( +CHARCODE) INITATOMS (CHARCODE) READNUMBERINBASE (CHARCODE) \TEDITOUTCHARFN (CHARCODE) \RPLRIGHT ( +CHARCODE) PFI.PRINT.MULTI.INDEX (DATEFORMAT) EDITH (CL:UNWIND-PROTECT) \DSPFONT.IP (CHARCODE) +UNPACKFILENAME.STRING (CHARCODE) \NSFILING.PARSE.FILENAME (CHARCODE) BSP.PUTINTERRUPT (CL:UNWIND-PROTECT +) FIXATOM (CHARCODE) \COURIER.HANDLE.BULKDATA (CL:UNWIND-PROTECT) USEREXEC (CL:UNWIND-PROTECT) +EDITDEFAULT (CHARCODE) UnixPrint (CHARCODE) \POSTSCRIPT.OUTCHARFN (CHARCODE) FITP (CHARCODE) CHAT ( +CHARCODE) TTYIN.SHOW.?ALTERNATIVES (CHARCODE) SEDIT::CREATE-COMMENT-WORD-NODES (CHARCODE) +\UFS.HANDLE.RELATIVEDIRECTORY (CHARCODE) PFI.ENQUEUE (CL:UNWIND-PROTECT) PARSE-NSADDRESS (CHARCODE) +COMPILER::TEST-ALPHA (CL:UNWIND-PROTECT) \LFCheckBang (CHARCODE) \CHARWIDTH.IP (CHARCODE) +SEDIT::GET-USER-STRING (CHARCODE) FB.PRINTFN (CHARCODE) \SUBFNDEF (CHARCODE) \LFSetFileInfo ( +CL:UNWIND-PROTECT) COMPILER::TEST-ANNOTATION (CL:UNWIND-PROTECT) MAPHASHFILE (CHARCODE) UNSAVEFNS ( +CL:UNWIND-PROTECT) EDRPT (CL:UNWIND-PROTECT) INFILECOMTAIL (CL:UNWIND-PROTECT) \TFBRAVO.WRITE.RUN ( +CHARCODE) \HDCPYDSPPRINTCHAR (CHARCODE) SEDIT::SETUP-NEW-CONTEXT (CL:UNWIND-PROTECT) \NSPRINT.INTERNAL + (CL:UNWIND-PROTECT) \DSPFONT.PSC (CHARCODE) U/L-CASE (CHARCODE) \FONTFILENAME (CHARCODE) \SENDSPP ( +CL:UNWIND-PROTECT) READBITMAP (CHARCODE) \DFSFreeDiskPages (CL:UNWIND-PROTECT) CL:VALUES (OP#) MSPATHS + (CL:UNWIND-PROTECT) ECHOCONTROL (CHARCODE) SEDIT::TRANSLATE-CHARS (CHARCODE) PRINTPACKETDATA ( +CHARCODE) POSTSCRIPT.OUTSTR (CHARCODE) DIGITBASEP (CHARCODE) COPYCHARS (CHARCODE) CL:VALUES-LIST (OP#) + \HCPYMODEBLTCHAR (CHARCODE) \INCHAR (CHARCODE) INSTALL-CLIPBOARD (CHARCODE) LCSKIP (CHARCODE) +PACKFILENAME (CHARCODE) SEDIT::PRINT-STRING (CHARCODE) FB.HARDCOPY.MAXWIDTH (CHARCODE) +COMPILER::START-COMPILATION (CL:UNWIND-PROTECT) DO-DISPATCH-MACRO (CHARCODE) COPIEDFILENAME (CHARCODE) + FILING.CALL (CL:UNWIND-PROTECT) PFI.PREVIEW.DEFINEQ (CHARCODE) \DSPMOVELR (CHARCODE) +\HCPYMODEDSPPRINTCHAR (CHARCODE) CL::VALUES-UFN (OP#) SEDIT::INSERT-COMMENT-CHARS (CHARCODE) +\LFOpenFile (CL:UNWIND-PROTECT) READPLIST (CHARCODE) EXEC-READ-LINE (CHARCODE) CL::VALUES-LIST-UFN ( +OP#) PFI.PREVIEW.DECLARE (CHARCODE) SEEFILE (CHARCODE) \LFExtendFileIfNecessary (CL:UNWIND-PROTECT) +\POSTSCRIPT.ACCENTFN (CHARCODE) TTYIN.PPTOFILE (CHARCODE) UPDATEFILEMAP (CHARCODE) PRINT (CHARCODE) +NSPRINT (CL:UNWIND-PROTECT) \UFS.NEXTFILEFN (CL:UNWIND-PROTECT CHARCODE) \TEST.PARAGRAPH.LOOKS ( +CHARCODE) \PARSE.PORTCONSTANT (CHARCODE) \ORIGTERMTABLE (CHARCODE) FILEBROWSER (CHARCODE) CHOOZ ( +CHARCODE) \UFS.FILEINFOFN (CL:UNWIND-PROTECT) \SLOWHCPYMODEBLTCHAR (CHARCODE) \FTP.OPENFILE ( +DATEFORMAT) SKIP/ZAP (CHARCODE) \VAMFreePageGroup (CL:UNWIND-PROTECT) \IDLER (DATEFORMAT) +PRETTYFILEINDEX (CHARCODE) MAPRINT (CL:UNWIND-PROTECT) \CHARWIDTH.PSC (CHARCODE) SEDIT::VERIFY-STRUCTURE + (CL:UNWIND-PROTECT) \ICONW.FORMAT.TITLE1 (CHARCODE) GETCLEARINGHOUSE (CL:UNWIND-PROTECT) +DINFO.UPDATE.TEXT.DISPLAY (CHARCODE) EDITFPAT1 (CHARCODE) CLISPFOR (CL:UNWIND-PROTECT) +\STRINGWIDTH.GENERIC (CHARCODE) \CONVERTNUMBER (CHARCODE) PRINTCOPYRIGHT (CHARCODE DATEFORMAT) +\PEEKREFILL (CHARCODE) CLOSEBSPSTREAM (CL:UNWIND-PROTECT) HISTORYFIND1 (CHARCODE) \INCCODE.EOLC ( +CHARCODE) EDIT4F3 (CHARCODE) ASKUSERCHAR (CHARCODE) POSTSCRIPT.PUTBITMAPBYTES (CHARCODE) +\CHECKEOLC.CRLF (CHARCODE) \NSFILING.REMOVEQUOTES (CHARCODE) CLISP3C (CL:UNWIND-PROTECT) +\SEQUIN.PROCESS (CL:UNWIND-PROTECT) COMP.EVQ (CL:UNWIND-PROTECT) START.OF.PARAGRAPH? (CHARCODE) +PRINTCOMSTRAN (CHARCODE) SEDIT::SIMPLE-STRING-SCAN (CHARCODE) LISPXREADP (CHARCODE) +PopUpWindowAndGetAtom (CHARCODE) \SUBREAD (CHARCODE) \LFCloseDevice (CL:UNWIND-PROTECT) +SHOW.CLEARINGHOUSE (FILESLOAD) TTECHO.TO.FILE (CHARCODE) PRINTDEF (CHARCODE) ASSURE.PUP.READY ( +CL:UNWIND-PROTECT) \PS.BOUTFIXP (CHARCODE) UPPERCASEARRAY (CHARCODE) PF* (CL:UNWIND-PROTECT) +UNDONLSETQ (CL:UNWIND-PROTECT) READFROMBUF (CHARCODE) CREATEHASHFILE (CHARCODE) FLTSTR (CHARCODE) +\TEDIT.FIND.FIRST.LINE (CHARCODE) MULTIFILEINDEX1 (CL:UNWIND-PROTECT) \STRINGWIDTH.HCPYMODE (CHARCODE) + TITLEDICONW (CHARCODE) EDITDATE? (CHARCODE) \ADJUSTABLE-STRING-STREAM-OUTCHARFN (CHARCODE) TTLOADBUF +(CHARCODE) BMOBJ.GETFN4 (CHARCODE) \DSPPRINTCHAR (CHARCODE) FB.DISPLAY.COUNTERS (CHARCODE) +\LEAF.CLOSEFILE (CL:UNWIND-PROTECT) \TOP-LEVEL-READ (CL:UNWIND-PROTECT) ASKUSER1 (CHARCODE) +\PRINSTACKP (CHARCODE) SEDIT::CFV-DOTLIST (CHARCODE) POSTSCRIPTFILEP (CHARCODE) \PRINSTRING (CHARCODE) + UNDOLISPX3 (CL:UNWIND-PROTECT) \TEST.CHARACTER.LOOKS (CHARCODE) \HASHTABLE.DEFPRINT (CHARCODE) +TRAPLOOP (DV) SEDIT::CREATE-NULL-LIST (CHARCODE) SEDIT::TTYFN (CL:UNWIND-PROTECT) \IDLE.TIME ( +DATEFORMAT) \XCCSOUTCHAR (CHARCODE) CASE.PRETTYPRINT (CHARCODE) compilation (BREAK1) +\STRINGWIDTH.PRESS (CHARCODE) \SEQUIN.CLOSE (CL:UNWIND-PROTECT) FIND.LINE.BREAK (CHARCODE) DINFO.FIND +(CHARCODE) PURGEHISTORY (CL:UNWIND-PROTECT) \LFGenerateFiles (CL:UNWIND-PROTECT) INDENTATION.FROM.HERE + (CHARCODE) \LITPRIN (CHARCODE) READLINE (CHARCODE) CHAT.CHOOSE.PHONE.NUMBER (CHARCODE) +PFI.PRINT.BITMAP (CHARCODE) POSTSCRIPT.SHOWACCUM (CHARCODE) \BASEBYTES.READP (CHARCODE) \AVGCHARWIDTH +(CHARCODE) COPY.TEXT.TO.IMAGE (CHARCODE) \POSTSCRIPT.ACCENTPAIR (CHARCODE) FB.CREATE.FILEBUCKET ( +CHARCODE) \ELIDE.ELEMENT.CHAR (CHARCODE) BOOTSTRAP-NAMEFIELD (CHARCODE) SEDIT::INPUT-TOKENDELIM ( +CHARCODE) \NSFILING.DESERIALIZE1 (CL:UNWIND-PROTECT) \IFS.LOOKUPFILE (CHARCODE CL:UNWIND-PROTECT) +DO.EDIT.PP (CHARCODE) \DSPFONT.DISPLAY (CHARCODE) \VAMAllocPageGroup (CL:UNWIND-PROTECT) +%%NUMERIC-STRING-P (CHARCODE) \POSTSCRIPT.SPECIALOUTCHARFN (CHARCODE) \STRING-STREAM-OUTCHARFN ( +CHARCODE) CL:UNWIND-PROTECT (CL:UNWIND-PROTECT) CLOSERTPSOCKET (CL:UNWIND-PROTECT) INITIALEVALQT ( +CHARCODE) \GETFILINGCONNECTION (CL:UNWIND-PROTECT) PARSE-NAMESTRING1 (CHARCODE) ASKUSER$ (CHARCODE) +UTF8.OUTCHARFN (CHARCODE) INTERPRET.REM.CM (CHARCODE) BRECOMPILE2 (CHARCODE) \BSP.PREPARE.OUTPUT ( +CL:UNWIND-PROTECT) CLISPIF (CL:UNWIND-PROTECT) TB.EXPANDFN (CL:UNWIND-PROTECT) DMCHAT.HANDLECHARACTER +(CHARCODE) DIRPRINTNAME (CHARCODE) \OPENLEAFCONNECTION (CL:UNWIND-PROTECT) DASSEM.DSTOREFNDEF ( +CL:UNWIND-PROTECT) \GENERATENOFILES (CHARCODE) SIMPLEPRINT (CHARCODE) SETSPELLCASE (CHARCODE) +TERM.RESET.DISPLAY.PARMS (CHARCODE) \LFDirectoryNameP (CL:UNWIND-PROTECT CHARCODE) +\DOVMEMFULLINTERRUPT (CL:UNWIND-PROTECT) HPRINT (CL:UNWIND-PROTECT) PROMPTINWINDOW (CHARCODE) SEDIT::MUTATE + (CHARCODE) \FONT.SYMBOLASSOC (CHARCODE) \LFEventFn (CL:UNWIND-PROTECT) SEDIT::RESHAPEFN ( +CL:UNWIND-PROTECT) \LITPRIN.INTERNAL (CHARCODE) \FONT.COMPARESYMBOL (CHARCODE) TB.FINISH.CLOSE ( +CL:UNWIND-PROTECT) *WHO-LINE-OLD-TIME* (DATEFORMAT) \TEDIT.HARDCOPY.DISPLAYLINE (CHARCODE) DO.LF ( +CHARCODE) \SPPWATCHER (CL:UNWIND-PROTECT) TTYINREADP (CHARCODE) LISPX (CL:UNWIND-PROTECT) +\CHECK.PQUEUE (CL:UNWIND-PROTECT) BMOBJ.GETFN3 (CHARCODE) CL:PARSE-INTEGER (CHARCODE) TEDIT.SUBSTITUTE + (CHARCODE) BACKARROWP (CHARCODE) MSPRGDWIM (CL:UNWIND-PROTECT) SEDIT::CREATE-PRETTY-PRINT-ENV ( +CHARCODE) \MKINTEGER (CHARCODE) PRIN2-LONG-STRING (CHARCODE) \OUTCHARFN.PRESS (CHARCODE) +FB.SET.DEFAULT.NAME.WIDTH (CHARCODE) MSNOTICEFILE (CL:UNWIND-PROTECT) TTPRINSPACE (CHARCODE) +BSPPUTMARK (CL:UNWIND-PROTECT) \NSFILING.FULLNAME (CHARCODE) CMLRDTBL (CHARCODE) \SETNEWTIME0 ( +DATEFORMAT) \DEFPRINT.BY.NAME (CHARCODE) \DSKEventFn (CL:UNWIND-PROTECT) INIT-CML-READTABLES (CHARCODE +) \TEDIT.WORDBOUND.READTABLE (CHARCODE) \SYMBOL.ESCAPE.COUNT (CHARCODE) NCHARS (CHARCODE) +COMPILER::COMPILE-ONE-LAMBDA (CL:UNWIND-PROTECT) PACKFILENAME.STRING (CHARCODE) PFI.PASS.COMMENT ( +CHARCODE) \HDCPYBLTCHAR (CHARCODE) \MISCN.UFN (CL:UNWIND-PROTECT) \PRINTADDR (CHARCODE) CMLREADSEMI ( +CHARCODE) TEDIT.SCAN.LINE (CHARCODE) TTCOMPLETEWORD (CHARCODE) PopUpWindowAndGetList (CHARCODE) CALLS +(CL:UNWIND-PROTECT) READ-AFM-FILE (CHARCODE) \DSKCloseDevice (CL:UNWIND-PROTECT) DINFO.LOOKUP ( +CHARCODE) CREATEDSKDIRECTORY (CL:UNWIND-PROTECT) \VANILLADISKINIT (CHARCODE) FRESHLINE (CHARCODE) +PURGEHISTORY1 (CHARCODE) \LFDeleteFile (CL:UNWIND-PROTECT) UTF16BE.OUTCHARFN (CHARCODE) EDITFROMFILE ( +CL:UNWIND-PROTECT) \TFBRAVO.PARSE.PROFILE.PARA (DECLARE%: CHARCODE) \RSTRING2 (CHARCODE) +\DSPSPACEFACTOR.HCPYMODE (CHARCODE) CHDIR (CL:UNWIND-PROTECT) TEDIT.CHARWIDTH (CHARCODE) +POSTSCRIPT.INIT (CHARCODE) \MAIKO.PUNTBLTCHAR (CHARCODE) ICONW.PRINT-JUSTIFIED (CHARCODE) +\DSKOpenDevice (CL:UNWIND-PROTECT) \LFMakeDirHole (CHARCODE) \DISPLAYLINE (CHARCODE) +\VFMInsertPageGroup (CL:UNWIND-PROTECT) \LFFileName (CHARCODE) DO.EDIT.COMMAND (CHARCODE) +GRAPHOBJ.GETFN (CHARCODE) CL:CHAR-NAME (CHARCODE) \LFOpenDevice (CL:UNWIND-PROTECT) ETHERHOSTNAME ( +CHARCODE) CL:COMPILE-FILE (CL:UNWIND-PROTECT CHARCODE) \ATBLSET (CHARCODE) \READTABLEP.DEFPRINT ( +CHARCODE) BREAK1 (CL:UNWIND-PROTECT) BSPFORCEOUTPUT (CL:UNWIND-PROTECT) SEDIT::INPUT-QUOTE (CHARCODE) +\SLOWHDCPYBLTCHAR (CHARCODE) TMPSUBFN (CHARCODE) SPACES (CHARCODE) \UFSEventFn (CL:UNWIND-PROTECT) +IDATE (CHARCODE) READOCT (CHARCODE) SETFONT (CHARCODE) \VFMGenerateFileIDs (CL:UNWIND-PROTECT) +WHO-LINE-TIME (DATEFORMAT) WRITE-UNICODE-MAPPING-HEADER (DATEFORMAT) RESETFORM (CL:UNWIND-PROTECT) +DO.CRLF (CHARCODE) COPYVM (CL:UNWIND-PROTECT) COMPILER::TEST-ANALYSIS (CL:UNWIND-PROTECT) +GET-FILEMAP-FROM-FILECREATED (CHARCODE) SEDIT::OUTPUT-CR (CHARCODE) MAPFILES (CHARCODE) +DASSEM.DWRITEFN (CHARCODE) \LFCloseFile (CL:UNWIND-PROTECT) TTYINPROMPTFORWORD (CHARCODE) TERPRI ( +CHARCODE) \NUMERIC.PNAMEP (CHARCODE) RESETVARS (CL:UNWIND-PROTECT) \UFSOpenFile (CL:UNWIND-PROTECT) +MAKECOM (%##) \REALFRAMEP (CHARCODE) LISPXFIND (CL:UNWIND-PROTECT) \UFSGenerateFiles (CL:UNWIND-PROTECT +) \WRITEBITMAP (CHARCODE) CL:LOAD (CL:UNWIND-PROTECT) \TEDIT.SEARCH.CODETABLE (CHARCODE) +\FTP.GENERATEFILES (CHARCODE) PFI.SETUP.TRANSLATIONS (CHARCODE) \ELIDE.PRINT.TAIL (CHARCODE) +\UFSSetFileInfo (CL:UNWIND-PROTECT) \MAIKO.DISPLAYLINE (CHARCODE) PRETTYDEFCOMS (CHARCODE) +SET-DEFAULT-HASHMACRO-SETTINGS (CHARCODE) CHAT.LOGIN (CHARCODE) \FORMATLINE (CHARCODE) +\PFI.DO.HARDCOPY (CL:UNWIND-PROTECT) CHARACTER.PRINT (CHARCODE) SCAVENGEDSKDIRECTORY (CL:UNWIND-PROTECT +) CHAT.TYPEOUT (CHARCODE) SEDIT::SCAN-STRING (CHARCODE) OPENPOSTSCRIPTSTREAM (CL:UNWIND-PROTECT) +FIND.NON.SPACE (CHARCODE) \SETRECLAIMMIN (CHARCODE) \TFBRAVO.HANDLE.HEADING (DECLARE%:) \INSERTCR ( +CHARCODE) RESETVAR (CL:UNWIND-PROTECT) WORD.MATCHES.BUFFER (CHARCODE) INITIALIZEMASTER.IP (CHARCODE) +\SAVELINEBUF (CHARCODE) \UFSGetFileInfo (CL:UNWIND-PROTECT) MAPFILES1 (CHARCODE) +\MAIKO.ETHER-INTERRUPT (CL:UNWIND-PROTECT) \STRINGWIDTH.HCPYDISPLAYAUX (CHARCODE) +CREATE.NUMBERPAD.READER (CHARCODE) BACKSKREAD (CHARCODE) \UFSDeleteFile (CL:UNWIND-PROTECT) +\PRINT-USING-ADDRESS (CHARCODE) FB.CANONICAL.DIRECTORY (CL:UNWIND-PROTECT) \LFINITCASEARRAY (CHARCODE) + \TFBRAVO.EOLS (CHARCODE) TTSKIPSEPR (CHARCODE) \NEW.MKATOM (CHARCODE) \SETPRINTLEVEL (CHARCODE) +BCOMPL2 (SPECVARS LOCALVARS) FB.PROMPTFORINPUT (CHARCODE) \UFSOpenDevice (CL:UNWIND-PROTECT) TRAPMAKE +(DV) FUNCTION.WRAPPER (CHARCODE) DIRECTORY.MATCH.SETUP (CHARCODE) \LFRenameFile (CL:UNWIND-PROTECT) +COMPILE-IN-CORE (CL:UNWIND-PROTECT) PLAYTUNE (CL:UNWIND-PROTECT) NIL +NOBIND \TEDIT.SCROLLFN T OPT.DELCOPYFN T \HARDRESET-CLEANUP-RUN T TEDIT.GETINPUT T +\MAIKO.COPY-TIME-STATS T FORMAT-INDIRECTION T COMPILER::FRAME-ANNOTATE-VAR-REF T COMPILER::*MADE-CHANGES* + T RECLAIM T \LEAF.TIMEDIN T CL::%%DEFAULT-STRUCTURE-INCLUDE T *WHO-LINE-ANCHOR* T CLOCK T +COMPLEX-COUNT-IF-NOT T COMPILER::*BLOCK-STACK* T FASL:CURRENT-VERSION T MICROCODEVERSION T FASL::END-TEXT + T SEDIT:SAVE-WINDOW-REGION T \CHECKBCPLPASSWORD T *WHO-LINE-HOST-NAME* T \THROUGHBACKCCODE T +COMPILER::*SPECIAL-LOCALS-BOUND* T REALMEMORYSIZE T \FLUSHPUPSOCQUEUE T CL:CHAR-UPCASE T COMPILER::META-SUBST + T COMPILER::EFFECTS-REPRESENTATION T \GENERIC.READP T CHAT.TTYEXITFN T \TEDIT.FIXCHANGEDPART T GCMESS + T RAIDROOTFRAME T %%AREF-EXPANDER T SIMPLE-NSUBSTITUTE-IF-NOT T MBUTTON.SET.NEXT.BUTTON.STATE T +SIMPLE-NSUBSTITUTE-IF T FASL:DUMP-EVAL T \MAIKO.DORECLAIM T *KEYWORD-PACKAGE* T +\DOSTORAGEFULLINTERRUPT T CL:LONG-SITE-NAME T \DSKDISPLAY.DESTROY.WINDOW T MB.DEFAULTBUTTON.FN T +EXEC-READ T %%ASET-EXPANDER T FORMAT-SKIP-ARGUMENTS T CL::%%DEFAULT-DEFSTRUCT-TYPE T COMPILER::*NEED-STORAGE* + T MOVE.TO.NEXT.LINE T COMPLEX-REMOVE T COMPILER::EFFECTS-ANALYZE-LIST T FORMAT-GENERAL-FLOAT T +PACKAGE-REHASH-THRESHOLD T SEDIT::INTERNAL-WRAPPERS T COMPILER::GENCODE-LAMBDA T CL::%%EXP-TABLE T +COMPILER::*TAGBODY-STACK* T BCPLVERSION T FASL::END-BLOCK T \TEDIT.HARDCOPY T TTYIN1RESTART T BRKPOS T + COMPILER::*SPECIAL-VENV* T \MAIKO.DISABLEGC T \TEDIT.EXPAND.DATE T SIMPLE-REMOVE-IF-NOT T +%%LIT-ARRAY-SIZES T COMPILER::COMPILE-FILE-PACKAGE-FORM T COMPILER::*OTHERS* T +*DOCUMENTATION-HASH-TABLE* T \FILLWINDOW T \PARSE-FILE-HEADER T SEDIT::RELEASE-OPEN-STRING T +COMPILER::EFFECTS-ANALYZE-ANY-CALL T \FIXSEL T SPY.START.ENTRY T MODERNWINDOW.SETUP T CL::%%EXP-POLY T + CL:GENTEMP T %%MERGE-LISTS T COMPLEX T INSTALL-WHEELSCROLL T \PKG-FIND-FREE-PACKAGE-INDEX T +*WHO-LINE-ENTRIES* T UPDATECHANGED T SUBRP T *WHO-LINE-USER-ENTRY* T D-ASSEM:+IVAR-CODE+ T +\NSRANDOM.PROCEEDABLE.ERROR T ANALYZE-AUX T COERCE-TO-NSADDRESS T CONDITIONS::EXPAND-WITH-COLLECTION-SITES + T COMPLEX-COUNT T \NEWPAGE T D-ASSEM:+LAMBDA-SPREAD+ T COMPILER::COMPILE-DEFINER-OUTSTANDING-LOOSE-FORMS + T \CREATE.TITLEMENU T FIND-EXEC-COMMAND T \LOCKPAGES T D-ASSEM:+NLAMBDA-SPREAD+ T \LINES-EQUAL-P T +MAKE-REPORT-FUNCTION T \PROCESS.AFTER.EXIT T \DONEWPAGE T D-ASSEM:+PVAR-CODE+ T COMPILER::BINDING-TO-LAMBDA + T MSTYPEMATCHRATING T SEDIT:GET-WINDOW-REGION T MARK/GRAPH/NODE T CL::STRUCTURE-FUNCTIONS T +D-ASSEM:+FVAR-CODE+ T COMPILER::*PC-VAR* T FORMAT-EXPONENTIAL T COMPILER::*TAG-LOCATION-TABLE* T +SEDIT::PREV-NODE T COMPILER::*AUTOMATIC-SPECIAL-DECLARATIONS* T SIMPLE-NSUBSTITUTE T SEDIT:*WRAP-SEARCH* + T \UNQUEUE.EVENT T %%MAP-FOR-EFFECT-SINGLE T COMPLEX-COUNT-IF T XCL::ADD-LABELS/FLET-ENVIRONMENT T +D-ASSEM:+LAMBDA-NO-SPREAD+ T XCL::*WHERE-IS-CASH-SIZE* T HERALD T \ENQUEUE.EVENT/LOCK T ZERO T TRUE T +COMPLEX-SUBSTITUTE-IF-NOT T SI::PROCESS-PROCEED-KEYWORDS T %%ONED-ARRAY T SPLITFILE T +FORMAT-GET-PARAMETER T CONDITIONS::NORMALIZE-SLOT-DESCRIPTION T COMPILER::*TAG-EQUIV-TABLE* T +WORDSPERNAMEENTRY T BRKCOND T EXTERNAL-SYMBOL-COUNT T COMPILER::FIND-ALL-TAGS T \CREATE.SETABLEMENU T +*KEY-FINDER* T XCL::CLOSE-WHERE-IS-FILES T \MOVEVMEMFILEPAGE T BRKEXP T *WHO-LINE-VMEM-ENTRY* T +CL:LAMBDA-PARAMETERS-LIMIT T COMPILER::COMPILE-DEFINER-NAMED-PROGN T SIMPLE-REMOVE T +SEDIT::DISPLAY-SELECTION T SEDIT::SET-POINT-NOWHERE T SIMPLE-COUNT-IF-NOT T D-ASSEM:+NLAMBDA-NO-SPREAD+ + T \VFMClearBuffers T SEDIT:*EDIT-FN* T %%LIT-ARRAY-TABLE T \EDIT.UPCARET T %%SIMPLE-MERGE-LISTS T +COMPILER::*NON-LOCALS* T COMPILER::*HOST-ARCHITECTURE* T SEDIT::*FORMAT-ALIAS-DEPTH-LIMIT* T +SEDIT.COPYTOCLIPBOARD T \DOLOCKPAGES T *SHORT-BACKTRACE-FILTER* T *STANDARD-OUTPUT* T COMPILER::BIND-PARAMETER + T \RELEASE.ETHERPACKET T *WHO-LINE-CURRENT-USER* T TTLASTLINE T \POSTSCRIPT.CHANGECHARSET T +COMPILER::COMPILE-FILE-DEFCONSTANT T *DEFAULT-DEFAULT* T COMPILER::RELEASE-TREE T SEDIT::DETACH-NODE T + CHAT.TYPEIN T ADDMAPBUFFER T \CREATE.INSPECTABLEMENU T %%NOTEVERY-SINGLE T MaxBkMenuWidth T + T +WHO-LINE-USER-AFTER-LOGIN T DBG::*IN-THE-DEBUGGER* T COMPILER::COMPILE-FILE-DECLARE%: T +\TEDIT.RECORD.TABLEADERS T %%NOTANY-SINGLE T - T \DOTEMPLOCKPAGES T SEDIT::THROW-AWAY-CHANGES T +COMPILER::*REACHABLE-TAG-TABLE* T \TEMPUNLOCKPAGES T CHAT.OSTYPES T CL::%%ASIN-QPOLY T +XCL::ADD-MACROLET-ENVIRONMENT T / T %%CTX-ARG-NAME T REDUCE-FROM-END T SI::CREATE-ADVISED-DEFINITION T + CL:RATIONAL T \UNLOCKPAGES T *LAST-CONDITION* T MSEAT T LOGOW T COMPILER::*FRAME-NAME* T FORMAT-TILDE + T CONDITIONS::CONVERT-OLD-DEFINE-CONDITION T PRINTERNAME T COMPLEX-SUBSTITUTE T CL:REALPART T +\TEDIT.GET.SINGLE.CHARLOOKS2 T COMPILER::ALPHA-MV-CALL T COMPILER::*COPY-NODE-TABLE* T CHAT.KEYACTIONS + T SIMPLE-COUNT T \DOFLUSHVM T REDUCE-FROM-START T SI::VOWEL-P T WHEREIS T %%SIMPLE-MERGE-VECTORS T +FORMAT-FIXED T CL:CHAR-SUPER-BIT T XCL:PKG-GOTO T CONDITIONS::CONVERT-CONDITION-CASE T %%MERGE-VECTORS + T CL:CHAR-META-BIT T ECASE-FAIL T TEDIT.MODERNIZE T *DEBUGGER-MENU* T SIMPLE-REMOVE-IF T SEDIT::SHIFT-DOWN + T \GR.GvarInitLst T COMPLEX-SUBSTITUTE-IF T COMPILER::EFFECTS-ANALYZE-TAGBODY T +*WHO-LINE-TTY-STATE-ENTRY* T \RELEASEBUFFER T INSTALL-CLIPBOARD T \UNQUEUE.TIMER T \EDIT.FLIPCARET T +COMPILER::COPY-NODES T XCL::MAKE-LEXICAL-ENVIRONMENT T SIMPLE-COUNT-IF T \WRITEDIRTYPAGE T +XCL::*UNSAFE-TO-DELETE-PACKAGE-NAMES* T SEDIT::PARSE-FORMAT T FASL::DUMP-STRING T \TEDIT.MARKINACTIVE +T %%LIT-ARRAY-TYPES T CL-WRAP-MACRO T COMPILER::*FREE-VENV* T *WHO-LINE-STATE-UNINTERESTING-FNS* T +IL-MACRO-WRAPPED-P T \WAIT.FOR.TTY T SETTAIL? T XCL::*DELETED-IMPLICIT-HASH-SLOT* T +COMPILER::COMPILE-DEFINER-DEFINER T MAKE-INTO-CONDITION T REPORT-CONDITION T CLSTOPSCAN? T +CL:RATIONALIZE T SEDIT::NOTE-CHANGE T CL:SHORT-SITE-NAME T CL:YES-OR-NO-P T FASL::DOTTED-LIST-LENGTH T + %%THIN-STRING-ARRAY-P T COURIER.VERSION# T WHEELSCROLL.DOIT T SEDIT::SET-FORMAT T *FEATURES* T +CHAT.AUTOCRLF T COMPILER::GENCODE T \TEDIT.UNSPLITW T SEDIT::FIRST-ADD-COMMAND-MENU-ENTRY T +DEFAULT-HANDLE-CONDITION T SEDIT:*COMPILE-FN* T \COUNTREALPAGES T COMPILER::TEST-GENCODE1 T +PACKAGE-HASHTABLE-INSPECT-FETCHFN T BMOBJ.BUTTONEVENTINFN T CL:SOFTWARE-TYPE T %%CTX-ARG-USED T +FORMAT-PAGE T SEDIT::COMPUTE-SELECTION-POSITION T CL:SIN T START.OF.PARAGRAPH? T CHAT.INTERRUPTS T +HASH-NO-PARAMETER-ERROR T COMPILER:PASS T UNIX.PARAMS.CONFIRM T SEDIT::*IGNORE-CHANGES-ON-COMPLETION* +T CL::%%CAPTURE-COUNTERS-AFTER T SEDIT::COMPUTE-POINT-POSITION T CL:SORT T \TEDIT.SPLITW T UNIX-WRITE +T REFLECT/GRAPH/DIAGONALLY T COMPILER::ALPHA-LITERAL T COMPILER::*CURRENT-FRAME* T XCL::WHERE-IS-READ-FN + T COMPILER::*LAP-FLG* T COMPILER::*COMPILER-IS-READING* T TEDIT.POP.STYLESHEET T CLSMARTEN T +*WHO-LINE-DIRECTORY-ENTRY* T COMPILER::*LOOSE-NAME* T CHAT.HOSTINFO T %%MERGE T ADDTOFILEKEYLST T +PFI.PRINT.COMMENTS T \TEDIT.MARKACTIVE T SEDIT::SELECTION-DOWN T SEDIT::DEFAULT-COMPILE-FN T +XCL:*PROFILE* T %%ENV-ARG-NAME T CL::%%ASIN-PPOLY T CL:STREAM-ELEMENT-TYPE T *WHO-LINE-STATE* T +FORMAT-FRESHLINE T CHAT.UNDERLINE.DESCENT T COMPILER::*TARGET-ARCHITECTURE* T +COMPILER::*OUTSTANDING-LOOSE-FORMS* T STRINGHASHBITS T FASL::DUMP-PACKAGE T CL:CHAR-CODE-LIMIT T +\MAIKO.CHECKSUM T STRING-EQUAL-HASHBITS T ORDINAL-TENS T COMPILER::FRAME-ANNOTATE-OPCODES T +CL:MULTIPLE-VALUES-LIMIT T \DSPXPOSITION.DISPLAY T SIMPLE-SUBSTITUTE-IF T COMPILER::ENV-ANALYZE-OPCODES + T COMPILER::OPTIMIZE-EQL T %%ENV-ARG-USED T COMPLEX-POSITION-IF T CHECK-TYPE-FAIL T FORMAT-TERPRI T +CL::DEFSTRUCT-SHARED-PREDICATE-OPTIMIZER T HPRINT-TO-STRINGS T \GETDISKCB T CL:STABLE-SORT T +%%SLOW-ARRAY-READ T NOHOST T TTPRIN2 T CL::PS-TYPE-SPECIFIER T SEDIT:*CLEAR-LINEAR-ON-COMPLETION* T +IL-WRAP-MACRO T COMPILER::ALPHA-LET* T CL::%%CAPTURE-COUNTERS-BEFORE T SEDIT::FIRST-ADD-COMMAND T +CL:SETQ T \XCCSBACKCCODE T CL::%%ASIN-EPSILON T SIMPLE-SUBSTITUTE-IF-NOT T CL::%%TAN-QPOLY T +XCL:*DEBUGGER-PROMPT* T COMPILER::OPTIMIZE-EQUALITY T COMPILER::*TAIL-RECURSION-POLICY* T +%%KEYWORD-TESTS T CL::%%VALID-TYPE-P T *DIGITS* T COMPLEX-POSITION-IF-NOT T FASL::RESET-DUMPER-STATS T + COMPILER::*COMPILING-DEFINER* T FASL::*TABLE-HITS* T %%SIMPLE-MERGE T XCL:*EVAL-FUNCTION* T +PRINT-ALL-DOCUMENTATION T CROPMARK.WHENOPERATEDONFN T FORMAT-JUSTIFICATION T COMPILER::*BLIP-VAR* T +XCL:*EXEC-PROMPT* T TTNEXTLINE T UNIX-KILL T COMPILER::MERGE-FIRST-FORMS T MAKE-DO-SYMBOLS-VARS T +RETYPE.BUFFER T COMPILER::COMPILE-SCAN-OUTSTANDING-LOOSE-FORMS T MOBY-UNINTERN T COMPILER::ALPHA-LET T + CONCATFILES T SAVE.CURSOR T CHAT.PROTOCOL.ABBREVS T COMPILER::*NODE-TYPES* T SEDIT::INSERT-QUOTED-GAP + T HPRINT-TO-STRING T \DAYTIME0 T *WHO-LINE-UPDATE-TIMER* T COMPILER::*CODE* T COMPILER::*ENVIRONMENT* + T \CREATECHARSET.HCPYMODE.INTERPRESS T CL:TAN T ShellCommand T SEDIT::DEFAULT-COMMAND-TABLE-SPEC T +SEDIT::PROPS-COMPLETION T READVARS-FROM-STRING T SEDIT::*FSPEC-TABLE-COPY* T STRING T +INITIALIZE-SHELL-DEVICE T ORDINAL-ONES T CL::%%NO-SUPER-TYPE T \SEQUIN.OUT.OF.THE.BLUE T +SEDIT::INPUT-SQUARE-BRACKET T \10MB.TURNOFFETHER T LISPINTERRUPTS T WRITEFILE T COMPILER::COMPILE-SCAN-DEFINER + T \TEDIT.SHOW.PARALOOKS T SPY.MERGE1 T CL:PROCLAIM T \FIXCODESYM T CL::SXHASH-MAX T SI::RESETUNWIND T + SEDIT::SEDIT1 T ADVISEDFNS T CL:** T \GETREGION.PACKPTS T COMPILER::*LAP-STREAM* T +DASSEM.SAVELOCALVARS T %%SIMPLE-MERGE-SUBLISTS T CL:*** T \CLEARCB T SI::GET-SUPER-DESCRIBERS T +*WHO-LINE-PROFILE-ENTRY* T \SPLITPIECE T COMPILER::*POP-SUPPRESSION-POLICY* T +CL::*COMMON-LISP-BASE-TYPES* T \MAIKO.10MB.RESTART.ETHER T %%LET-LIST T SEDIT::GET-LIST-FORMAT T +CL::*BASE-TYPE-LATTICE* T \NSFILING.AFTER.LOGIN T *ERROR-OUTPUT* T CHAT.TTY.PROCESS T +SEDIT::SET-SELECTION-NOWHERE T TEDITSTREAM.INIT T FASL::*GATHER-DUMPER-STATS* T \FLUSHVMOK? T +*LOAD-VERBOSE* T WHO-LINE-REDISPLAY-INTERRUPT T DBG::KEYLIST-FROM-ESCAPE-LIST T *BREAK-ON-WARNINGS* T +\INTERLISP-NLAMBDA-MACRO T \VAMBufferSave T COMPILER::TAKE-DOWN-RETURN-TO T SI::SUB-DATATYPE-P T +READVAR-FROM-STRING T FB T *DEBUG-IO* T COMPILE-FILE-DECLARE%: T COMPILER::*AVAILABLE-LEXICAL-NAMES* T + HRULE.WHENOPERATEDONFN T \FONTCREATE.HCPYMODE.INTERPRESS T COMPILER::*CONTEXT* T SIMPLE-SUBSTITUTE T +\MAIKO.BLTSHADE.BITMAP T FLAST T BROKENFNS T *READ-DEFAULT-FLOAT-FORMAT* T \SHOWPAGETABLE T +%%UNBOUNDED-ARG-COUNT T XCL:*PRINT-STRUCTURE* T \MAIKO.BITBLT.BITMAP T SCALE-EXPT-AUX T +COMPLEX-POSITION T *MODULES* T CL::COMPLETE-ARRAY-TYPE-DIMENSIONS T MSNEGATESET T +CL::%%DEFAULT-PRINT-FUNCTION T CHAT.PROTOCOLTYPES T COMPILER::ENV-ANALYZE-LITERAL T *QUERY-IO* T +LOCAL-MACRO-FUNCTION T XCL::ENTER-EXEC-FUNCTION T %%MERGE-SUBLISTS T XCL::UNDOABLY-PROCLAIM T +*LOAD-PRINT-STUFF* T CL:++ T \TEDIT.QUIT T COMPILER::SET-UP-RETURN-TO T COMPLEX-DELETE-DUPLICATES T +COMPILER::CONTEXT-TEST-FORM T CL:+++ T LOCAL-SYMBOL-FUNCTION T CL::*STEP-PRINT-LENGTH* T RAID T +XCL::WALK-MULTIPLE-VALUE-BIND T SIMPLE-POSITION-IF-NOT T *TERMINAL-IO* T \SET.VMEM.FULL.STATE T +BRKTYPE T COMPILER::*INPUT-STREAM* T \ABORT.BULK.DATA T COMPILER::*LOAD-COMPILED-CODE* T OPT.PRDEL T +LASTPOS T COMPILER::CLOSURE-ANNOTATE-OPCODES T \CORE.CLOSEFILE T CL:BOOLE-1 T *WHO-LINE-DIRECTORIES* T + COMPILER::COMPILE-SCAN-MACROLET T CHAT.HOST.TO.PROTOCOL T CL::%%TAN-EPSILON T SEDIT::ALIST-COMPLETION + T CL:BOOLE-2 T SEDIT::SELECTION-UP T XCL::*WALK-COPY* T COMPILER::*SUBST-EXPR* T CL:// T +FASL::*TABLE-ATTEMPTS* T FORK-UNIX T CL::%%TAN-PPOLY T CL:/// T *MACROEXPAND-HOOK* T +LITATOM-PACKAGE-CONVERSION-ENABLED T COMPILER::*CONSTANTS-HASH-TABLE* T MAKE-PAD-SEGS T CARDINAL-TEENS + T SEDIT::SUBSTITUTE-STRUCTURE T \CREATECHARSET.HCPYMODE.PRESS T CL:BOOLE-ANDC2 T +DBG::MENU-FROM-ESCAPE-LIST T FASL::INTEGER-BYTE-LIST T CL::DEFSTRUCT-SHARED-ACCESSOR-OPTIMIZER T +CL:BOOLE-C1 T FORMAT-GET-SEGMENTS T CARDINAL-TENS T CHAT.UNDERLINE.METHOD T CL:BOOLE-AND T +*LISP-PACKAGE* T CL:BOOLE-ANDC1 T %%MIN-ARGS T \VAMMarkBufferDirty T SEDIT::SUBSTITUTE-SUBSTRUCTURE T +COMP.STRETURN T COMPILER::*SUBST-OCCURRED* T CL:BOOLE-EQV T CHECKPAGEMAP T CARDINAL-PERIODS T +SEDIT::PENDING-DELETE T CL:MAKE-HASH-TABLE T CL:ARRAY-DIMENSION-LIMIT T CL:BOOLE-IOR T +FORMAT-PRINT-ROMAN T TEDIT.RESET.EXTEND.PENDING.DELETE T SEDIT::INPUT-ESCAPE T CL:BOOLE-C2 T +COMPILER::MAKE-LAP-VAR-REFERENCE T CHAT.IN.EMACS? T MAINSCREEN T CL:BOOLE-CLR T +COMPILER::FRAME-ANNOTATE-LITERAL T LITATOM-PACKAGE-CONVERSION-TABLE T CHAT.FONT T CL:BOOLE-ORC1 T +GETFILEMAP T D-ASSEM::+CONSTANT-OPCODES+ T CL::%%SIN-QPOLY T CHAT.WAIT.TIME T CL:BOOLE-ORC2 T +*WHO-LINE* T %%ARG-COUNT T D-ASSEM::*BYTES* T CL:CHAR-BITS-LIMIT T CL:BOOLE-NAND T CMLSYMBOLS.SHARED T + \M44EXTENDVMEMFILE T COMP.IF T %%TWOD-ARRAY T CL:BOOLE-NOR T FORMAT-GET-TRAILING-SEGMENTS T +\SEQUIN.FLUSH.RETRANSMIT T \SMASHMENUIMAGEONRESET T CL:DOUBLE-FLOAT-EPSILON T XCL::PROFILIZE T +COMPLEX-REMOVE-DUPLICATES T SPY.POINTERS T CL:DOUBLE-FLOAT-NEGATIVE-EPSILON T CL::*STEP-STATE* T +CL::*STEP-MAX-INDENTATION* T XCL::WALK-LET/LET* T CARDINAL-ONES T SIMPLE-POSITION T CL:BOOLE-SET T +SEDIT::SEARCH-OBJ-BACKWARDS T D-ASSEM::*BYTE-COUNT* T %%VECTOR-INSERTION-SORT T \WRITEMAP T CL:BOOLE-XOR + T \TTYIN.RPEOF T \UFSOpenFile-C T FORMAT-PRINT-OLD-ROMAN T CL:LEAST-NEGATIVE-LONG-FLOAT T CL:EQUALP T + COMPILER::*INPUT-FILENAME* T CL:CALL-ARGUMENTS-LIMIT T CL:LEAST-NEGATIVE-SHORT-FLOAT T D-ASSEM::START-BYTES + T D-ASSEM::STORE-VAR T WHEELSCROLL T PACKAGE-INSPECT-FETCHFN T COMPILER::COMPILE-SCAN-DECLARE%: T +COLORDISPLAYP T *REMOVE-INTERLISP-COMMENTS* T READVARS-FROM-STRINGS T CL:LEAST-NEGATIVE-DOUBLE-FLOAT T + *REPLACE-OLD-EDIT-DATES* T SIMPLE-POSITION-IF T CL:LEAST-POSITIVE-LONG-FLOAT T COMPILER::*FASL-HANDLE* + T *DEFAULT-PATHNAME-DEFAULTS* T \UFSGetFileName-C T %%GENERAL-ARRAY T CL:LEAST-POSITIVE-SHORT-FLOAT T + XCL::*UNBROKEN-FNS* T D-ASSEM::*DVAR-ENV* T *WHO-LINE-SHOW-ACTIVE-ENTRY* T WHEN-WHO-LINE-SELECTED-FN +T *SPECIAL-BINDING-MARK* T CMLSYMBOLS.VARS T CL:MEMBER-IF-NOT T RENUMBER.LINES T +CL:LEAST-POSITIVE-DOUBLE-FLOAT T D-ASSEM::*DTAG-ENV* T \DSKGetFileName-C T CL:MEMBER-IF T +XCL::*WALK-FUNCTION* T SEDIT::CLOSE-LIST T COMPILER::*SUBST-VAR* T CL:LONG-FLOAT-NEGATIVE-EPSILON T +CMLSYMBOLS.DECLARATORS T D-ASSEM::*DCODE* T SIMPLE-DELETE-DUPLICATES T \MAKEPCTB T +CL:MOST-NEGATIVE-DOUBLE-FLOAT T CMLSYMBOLS.FNNAMES T D-ASSEM::*LEVEL* T COMPAREFILES T FW-INIT T +EVAL-INPUT T CL:EQUAL T MSCLOSEFILES T CMLSYMBOLS.TYPENAMES T \DSKDirectoryNameP-C T CL:VECTORP T +SEDIT::SELECT-PSEUDO-SEGMENT T UPDATE-WHO-LINE T CL:LONG-FLOAT-EPSILON T COMPILER::PARSE-DEFUN T +CMLSYMBOLS.LAMBDA.LIST.KEYWORDS T \UFSDirectoryNameP-C T %%EVERY-SINGLE T XCL::*LEXICAL-VARIABLES* T +PFI.OUTCHARFN T CL:MOST-NEGATIVE-SHORT-FLOAT T CMLSYMBOLS.SPECIALFORMS T D-ASSEM::*HUNK-SIZE* T +FORMAT-PRINT-CARDINAL-AUX T FB.EXPUNGE?.MENU T \MAIKO.ETHERRESUME T CMLSYMBOLS.MACROS T D-ASSEM::*PVAR-COUNT* + T *FORMAT-ORIGINAL-ARGUMENTS* T SEDIT::SEARCH-OBJ T *WHO-LINE-TTY-PROC-ENTRY* T CL:MOST-NEGATIVE-FIXNUM + T CL::*STEP-PRINT-LEVEL* T VMEMSIZE T \UFSCloseFile-C T COMPILER::ENV-ANALYZE-GO T +SEDIT::COLLECT-UNDO-BLOCK T CL:MOST-NEGATIVE-LONG-FLOAT T *CHECK-ARGUMENT-COUNTS* T D-ASSEM::*STACK-ENV* + T CL:LENGTH T CL:MOST-POSITIVE-LONG-FLOAT T SI::EXPANSION-FUNCTION T COMPILER::CLOSURE-ANNOTATE-LITERAL + T D-ASSEM::+MAX-ALLOWABLE-PVAR-COUNT+ T SEDIT::UPGRADE-COMMENT T CL:MOST-POSITIVE-SHORT-FLOAT T +\OUTDATE T CL::*STEP-INDENTATION-LEVEL* T \SFMAKEBOLD T XCL::*WALK-FORM* T SYMBOL-INSPECT-FETCHFN T +D-ASSEM::DLAMBDA-FROM-LAMBDA T CL:MOST-POSITIVE-DOUBLE-FLOAT T SEDIT::INSERT-NULL-LIST T D-ASSEM::*FREE-VARS* + T CL:MOST-POSITIVE-FIXNUM T *PER-EXEC-VARIABLES* T D-ASSEM::*BOUND-SPECIALS* T +*WHO-LINE-READTABLE-ENTRY* T \TEDIT.SHOW.PAGEFORMATTING T CL:SHORT-FLOAT-EPSILON T +COMPILER::*EVAL-WHEN-COMPILE* T \DOHARDRETURN T CL:SHORT-FLOAT-NEGATIVE-EPSILON T +SEDIT::DISINTEGRATE-CONTEXT T CL::%%SIN-PPOLY T \INSERTPIECE T FB.EDITCOMMAND.ONEFILE T +D-ASSEM::+SLOW-FVAR-SLOT+ T SIMPLE-REMOVE-DUPLICATES T \DOGC1 T %%SIMPLE-VECTOR-INSERTION-SORT T +CL::ACCESSOR-BODY T D-ASSEM::*HUNK-MAP* T CL::NATURALIZE T FORMAT-ITERATION T +CONDITIONS::*FUTURE-CITIZENS-OF-CONDITIONS* T TERM.ERASE.IN.LINE T UNCLISPTRAN T +ENCAPSULATEDOBJ.BUTTONEVENTINFN T \DOGC T DAYTIME T DEFAULTPRINTER T D-ASSEM::+MAX-ALLOWABLE-SPECIAL-COUNT+ + T IRM.GET.DINFOGRAPH T OPENTEXTSTREAM T *FORMAT-INDEX* T CL::%%SIN-EPSILON T CL:NREVERSE T +SEDIT::FIND-SUBSTRUCTURE-BACKWARDS T \UFSReadPages-C T CL:ASSOC-IF T *WHO-LINE-ACTIVE-PERIOD* T +\CREATE.TWODINSPECTOR.INSPECTMENU T ANALYZE T \COMMONBACKCHARFN T XCL::WALK-LAMBDA T SI::*UNADVISED-FNS* + T COMPLEX-FIND-IF T SI::CANONICALIZE-ADVICE-WHERE-SPEC T \MAIKO.ETHERSUSPEND T \UFSGetSize-C T +SEDIT::SELECTION-FROM-PSEUDO-SELECTION T \TEDIT.GET.SINGLE.CHARLOOKS T CL:ASIN T +CL::FUTURE-CITIZENS-OF-XCL T \UFSWritePages-C T CL:ASSOC-IF-NOT T \CREATE.TEDIT.FACE.MENU T +*FORMAT-LENGTH* T \FONTCREATE.HCPYMODE.PRESS T DRIBBLEFILE T COMP.AC T COMPILER::*DEFERRED-FORMS* T +CL::%%SIMPLE-RASSOC T %%SIMPLE-VECTOR-QUICK-SORT T SPY.GRAPH.EDITOR T CL::%%COMPARISON-OPTIMIZER T +CL::*STEP-INDENTATION-INCREMENT* T \UFSGetFileInfo-C T COMPILER::RELEASE-OPCODES T XCL::*DECLARATIONS* + T SIMPLE-FORMAT T \MKATOM.FULL T COMPLEX-DELETE-IF-NOT T COMPLEX-DELETE-IF T XCL::INSTALL-PROFILE T +\CREATE.TWODINSPECTOR.SETMENU T D-ASSEM::INSTALL-VAR T COMPILER::GENCODE-SEGMENT T CL::%%COMPLEX-RASSOC + T MSSIMPLESET T CL:LAMBDA-LIST-KEYWORDS T SIMPLE-CONDITION-FORMAT-ARGUMENTS T \MAIKO.NEWPAGE T +COMPILER::*BLOCKS* T CL:RASSOC-IF-NOT T %%VECTOR-QUICK-SORT T PRETTYPRINT1 T +CL::%%FUNCTION-DEFINING-FORM-KEYWORDS T LISPVERSION T CL:RASSOC-IF T FORMAT-BOOLEAN-CONDITION T +SEDIT::FIND-SUBSTRUCTURE T CL:REVERSE T WRITECALLSUBRS T COMPILER::*MAKING-SECOND-PASS* T +XCL::*DEFINITION-PROTOTYPES* T CL:ACOS T FASL::DUMP-ARRAY-DESCRIPTOR T SEDIT::GROW-CLICK? T CHATWINDOW + T RESETGRID T CL::*STEP-IO* T CL:* T *FORMAT-DISPATCH-TABLE* T %%ARRAY-ELEMENT-INITIALIZE T +COMPILER::*CURRENT-BLOCK* T CONDITIONS:*BREAK-ON-SIGNALS* T BMOBJ.CREATE.MENU T +COMPILER::*PREPROCESSING-PHASE* T COMPILER::*NODE-NUMBER* T %%FAT-STRING-ARRAY-P T D-ASSEM::*ENDING-DEPTH* + T FORMAT-PRINT-SMALL-CARDINAL T XCL::*ENVIRONMENT* T GRAPHERCOPYBUTTONEVENTFN T COMPLEX-FIND-IF-NOT T + COMP.STTAG T CL:CLEAR-OUTPUT T FIND-KEYWORD T COMPILER::META-SUBST-STMTS T FORMAT-PRINT-NUMBER T +\CREATE.TEDIT.SIZE.MENU T CHAT.ALLHOSTS T \UFS.CREATE.PROPS T PRINTER.SCRATCH.FILE T D-ASSEM::REACH-TAGS + T PERIODICALLY-UPDATE-WHO-LINE T \DORECLAIM T *EDIT-INPUT-WITH-TTYIN* T SYMBOL-INSPECT-STOREFN T +\BULK.DATA.STREAM T D-ASSEM::+JUMP-CHOICES+ T CL:CONJUGATE T XCL::STRUNCATE T %%TOTAL-SIZE T +\UFSSetFileInfo-C T GET.EDIT.BITMAP.MENU T \MENU.ITEM.DESELECT T *APPLYHOOK* T COMPILER::*BLOCK-HASH-TABLE* + T XCL::*WHERE-IS-CASH-FILES* T CL::RAW-CONSTRUCTOR T \CREATE.TWODINSPECTOR.TITLEMENU T +PRINT-COMPILE-HEADER T COMPILER::*NODE-HASH* T D-ASSEM::*JUMP-LIST* T SIMPLE-CONDITION-FORMAT-STRING T + XCL::WALK-DO/DO* T SEDIT:*WRAP-PARENS* T XCL::*WHERE-IS-IGNORE-DEFINE-TYPES* T CL::*SKIP-EVALHOOK* T +\UFSReadDir-C T CHAT.DISPLAYTYPES T CHAT.WINDOW.REGION T PSCFONT.SPELLFILE T *EVALHOOK* T CL::%%LOGCOUNT + T CL::%%MAPCAR-SINGLE T *WHO-LINE-UPDATE-INTERVAL* T D-ASSEM::+JUMP-SIZES+ T *TOTAL-PACKAGES-LIMIT* T + \CLEAROFD T CL:COS T CL::*SKIP-APPLYHOOK* T CL::%%DEFSTRUCT-EXPORT-OPTIONS T +*UNINTERNED-PACKAGE-INDEX* T CL::EQLHASHBITSFN T NILL T XCL::FIND-VARIABLE-DEFINITION T +REDISPLAY-WHO-LINE T D-ASSEM::*LOCAL-FN-FIXUPS* T CL::%%MAPLIST-SINGLE T HASHTABLE-SIZE-LIMIT T +COMPLEX-DELETE T *EXEC-MAKE-UNDOABLE-P* T D-ASSEM::+JUMP-RANGE-SIZE-MAP+ T COMPILER::*INDENT-INCREMENT* + T PFI.HANDLE.DECLARE T EDITCOMS T *FORMAT-CONTROL-STRING* T SEDIT::FIND-STRUCTURE-BACKWARDS T +COMPLEX-FIND T ASSERT-FAIL T \PROC.REPEATEDLYEVALQT T SEDIT::FIND-COMMENT T FASL::DUMP-LIST T +CLOSECHATWINDOWFLG T *CURRENT-EVENT* T \FIXLOCALNET T \TopLevelTtyWindow T \UFSFinishFileInfo-C T +CL::TYPE-EXPAND-STRUCTURE T \BOXITEM T PUTCLIPBOARD T XCL::*PROFILE-VARIABLES* T CL:BIT-AND T +COMPILER::*UNKNOWN-FUNCTIONS* T CL::%%MAPC-SINGLE T ANALYZE-TESTS T SI::CREATE-BROKEN-DEFINITION T +CL:GETF T CL:SXHASH T FASL::END-MARK T SIMPLE-FIND-IF-NOT T COMPILER::*LOCAL-FUNCTIONS* T +CL:GET-PROPERTIES T \CREATE.TEDIT.MOVESELECTION T COMPILER::RELEASE-LITERAL T +CL::TYPE-EXPAND-NAMED-STRUCTURE T XCL::*WHERE-IS-HASH-FILE-SIZE* T FASL::CHECK-TABLE-SIZE T +*WHO-LINE-PACKAGE-ENTRY* T FORMAT-FUNNY-CONDITION T PRIME-HASHTABLE-SIZES T COMPILER::CLOSE-OVER T +DEFAULTCHATHOST T CL:BIT-ANDC1 T \UFSNextFile-C T CL::%%MAPL-SINGLE T CL::%%LOG-QPOLY T +SIMPLE-DELETE-IF-NOT T CL:DIRECTORY-NAMESTRING T *PACKAGE* T *WHO-LINE-BORDER* T PROPLISTP T +COMPILER::GENCODE-PROGV T FASL::END-OF-DATA-MARK T CL::FIND-SLOT T CL:BIT-ANDC2 T FASL::VERSION-RANGE +T FORMAT-UNTAGGED-CONDITION T *FORMAT-ARGUMENTS* T SEDIT::FIND-STRUCTURE T COMPILER::*INPUT-FILECOMS-VARIABLE* + T *TRACE-DEPTH* T CL::%%MAPCAN-SINGLE T COMPILER::ENV-ANALYZE T *PREFERRED-READING-SYMBOLS* T +XCCS-UTF8-AFTER-OPEN T CL:BIT-EQV T *CONDITION-HANDLER-BINDINGS* T *CURRENT-EXEC-TYPE* T +*DEBUGGER-ENTRY-POINTS* T CL::*GENSYM-PREFIX* T CL:BIT-NAND T SEDIT::COMPUTE-ALL-FORMATS T compilation + T *WHO-LINE-TIME-ENTRY* T CL::%%NO-COPIER T CL::*GENSYM-COUNTER* T CL:BIT-IOR T *INTERLISP-PACKAGE* T + COMPILER::NULL-INTERSECTION T CL:EXP T CL:BIT-NOR T \SFMAKEROTATEDFONT T CL::%%MAPCON-SINGLE T +\CREATE.TEDIT.DELETESELECTION T FB.COPY/RENAME.ONE T CL:EXPT T CL::*GENTEMP-COUNTER* T +XCL::WALK-FLET/LABELS T FASL::VALUE-TABLE-INCREMENT T FORMAT-ADD-COMMAS T *DEBUGGER-MENU-ITEMS* T +CL::%%LOG-PPOLY T COMPILER::*VAR-NUMBER* T DEFMACRO-ARG-TEST T CHAT.WINDOW.SIZE T CL::STOP-STEPPING T +FASL::*CURRENT-OPTABLE* T SEDIT::COMMAND-TABLE-SPEC T FASL::FASL-EXTENDED T \SFROTATEFONTCHARACTERS T +CL:BIT-ORC1 T FASL::DEBUG-READER T UNIX-GET-NEXT-BUFFER T FASL::DEBUG-STREAM T CL:CHAR-HYPER-BIT T +COMPILER::*CURRENT-FUNCTION* T FASL:DUMP-FUNCALL T \SFFIXOFFSETSAFTERROTATION T SETREADMACROFLG T +CL::%%NO-CONSTRUCTOR T BREAKREGIONSPEC T FASL::*BLOCK-LEVEL* T FORMAT-ESCAPE T +FASL::INITIAL-VALUE-TABLE-SIZE T COMP.DELPUSH T COMPILER::*TAIL-RECURSION-THRESHOLD* T SIMPLE-DELETE T + SEDIT::GROW-SELECTION-DEFAULT T CL:CHAR-CONTROL-BIT T \ELIDE.ELEMENT.CHAR T CL:BREAK T +COMPILER::CLOSURE-ANNOTATE-GO T SEDIT::NEXT-LINEAR-ITEM T SEDIT::NOTE-CHANGE-FORMAT T SIMPLE-FIND T +XCL::ED-LAST-INFO T %%BROADCAST-STREAM-DEVICE-CLOSEFILE T *READ-SUPPRESS* T *WHO-LINE-TITLE* T +CL:CHAR-FONT-LIMIT T \ELIDE.TAIL.STRING T \TEDIT.INSERTLINE T CL:BIT-XOR T COMPILER::*REFERENCES* T +FASL::*VALUE-TABLE* T \CREATE.TEDIT.SHIFTEDSELECTION T CHAT.EMACSCOMMANDS T \10MB.NOTESTAT T +GETCLIPBOARD T FORMAT-PRINT-CHARACTER T COMPILER::COMPILE-FILE-NAMED-PROGN T TB.UNDOSELECTION T +COMPILER::FRAME-ANNOTATE T FIND-EXACT-SYMBOL T XCL::*PROFILE-NAME* T \TYPE.FROM.FILETYPE T +COMPILER::*PROCESSED-FUNCTIONS* T RESETINT T COMPILER::*REDO-FLAG* T DELETE.TO.END T RESETTERMCHARS T +\RESETSTACK T SIMPLE-FIND-IF T COMPILER::ALPHA-LAMBDA T \CLOCK0 T PAGEFAULTS T +COMPLEX-NSUBSTITUTE-IF-NOT T \LOCKEDPAGEP T *STANDARD-INPUT* T SI::CONSTRUCT-ENTRY-PRINTING-CODE T +IMPORTFILESCAN T \DUMMYTELERAID T OPT.CHECKTAG T *WHO-LINE-COLOR* T \LOADVMEMPAGE T COMPILER::GENCODE-MV-PROG1 + T \DOTELERAID T CURSORBITMAP T CL:FLOAT-RADIX T COMPILER::*NEW-COMPILER-IS-EXPANDING* T \SERIALNUMBER + T \CHANGECHARSET.IP T COMPILER::EFFECTLESS T FASL:DUMP-VALUE T CL::*DESCRIBE-PRINT-LENGTH* T +\CODEFORTFRAME T SIMPLE-DELETE-IF T COMPILER::COMPILE-FILE-OUTSTANDING-LOOSE-FORMS T FASL:VALUE-DUMPABLE-P + T \DIRTYBACKGROUND T CL:STRINGP T *NOT-YET-EVALUATED* T *WHO-LINE-DISPLAY-NAMES?* T APROPOS-SEARCH T +ABS T COMPILER::*TAG-NUMBER* T \REPEATEDLYEVALQT T COMPILER::CONVERT-TO-CL-LAMBDA T CL::%%NO-PREDICATE + T DMCHAT.CLEARMODES T CL:APPEND T CL::*DESCRIBE-PRINT-LEVEL* T CL:DENOMINATOR T UNIXCOMM-AROUNDEXITFN + T TAILP T FASL:SKIP-TEXT T XCL:*CURRENT-CONDITION* T \UFSCHDIR-C T FORMAT-CAPITALIZATION T +FASL:PROCESS-BLOCK T DOSELECTEDITEM T SEDIT::CLOSE-NODE T COMPILER::CHECK-FOR-UNKNOWN-FUNCTION T +CL:ARRAYP T THIS.PROCESS T \COPYSYS0SUBR T SI::CREATE-TRACED-DEFINITION T LAST T CL:CONSTANTP T +COMPLEX-NSUBSTITUTE T CL::%%RANDOM-SIZE T COMPILER::*SUPPRESS-POPS* T TEDIT.SINGLE.PAGEFORMAT T +CL:GET-UNIVERSAL-TIME T SEDIT::EXTEND-SELECTION T \CreateCursorBitMap T BEEPOFF T CL:NUMERATOR T +SI::ADVICE-FILE-DEFINITIONS T \VAMBufferInit T CL::%%DEFSTRUCT-OPTIONS T CL::*DESCRIBE-INDENT* T +COMPLEX-NSUBSTITUTE-IF T SEDIT::PARSE-INDENT-GROUP-ONE T DEFAULTSUBITEMFN T FASL:READ-TEXT T +SIMPLE-ARRAY-P T XCL:FALSE T *THIS-EXEC-COMMANDS* T *ED-OFFERS-PROPERTY-LIST* T CL:SIMPLE-STRING-P T +COMPILER::WARN-ABOUT-UNKNOWN-FUNCTIONS T SETSCREENCOLOR T \CREATE.TEDIT.RESTART.MENU T \WRITERAWPBI T +\UFSPrintTypeMenu T XCL::*IN-DEFINER* T \RELEASE.FTPCONNECTION T \READRAWPBI T XCL:*LONG-SITE-NAME* T +CL:HOST-NAMESTRING T \GCERROR T FORMAT-DOLLARS T SHOWDISPLAY T \PFCreatePhysicalVolume T FLTFMT T +*PROCEED-CASES* T SI::*BACKQUOTE-LEVEL* T CL:IMAGPART T COMPILER::COMPILE-FILE-DEFINER T +START.CLEARINGHOUSE T TRACEREGION T \CREATE.TEDIT.SELECTION T FORMAT-FIND-COMMAND T FORMAT-GENERAL-AUX + T \LISPFINISH T COMPILER::GENCODE-LITERAL T COMPLEX-REMOVE-IF T \10MB.RESTART.ETHER T \CHARHI T +FASL:SIGNATURE T SEDIT::STRINGIFY-GAP T \ICONW.COPYBUTTONEVENTFN T XCL:*SHORT-SITE-NAME* T +\GATHERSTATS T CL:BIT-ORC2 T CL::*DESCRIBE-DEPTH* T \GETPACKETBUFFER T XCL::WALK-COMPILER-LET T +*DEFAULT-PUSH-EXTENSION-SIZE* T %%FILL-POINTER-STREAM-DEVICE-CLOSEFILE T VRULE.WHENOPERATEDONFN T +SPYOBJ.BUTTON T STRING-ARRAY-P T COMPILER::*STACK-NUMBER* T \IRM.AROUND-EXIT T COMPILER::EFFECTS-ANALYZE + T \UFSGetFreeBlock-C T \PUPLEVEL1STATE T CLOCK0 T FASL:BEGIN-BLOCK T COMPLEX-REMOVE-IF-NOT T +XCL:*TRACE-VERBOSE* T CL:ARRAY-TOTAL-SIZE-LIMIT T CL:LISTP T SEDIT::PARSE--QUOTE T \IDLE.WAIT T +\MOREVMEMFILE T *WHO-LINE-HOST-NAME-ENTRY* T CL:LISP-IMPLEMENTATION-TYPE T DSPBOUT T XCL:*TRACE-LEVEL* + T \MAIKO.DAYTIME T COMPILER::FIND-AND-PERFORM-RPLCONS-TRANSFORM T CL::%%DEFAULT-SLOT-TYPE T +FASL:DUMP-FUNCTION-DEF T XCL::*TRACED-FNS* T COMPILER::CLOSURE-ANNOTATE T +*WHO-LINE-SYMBOL-SPACE-ENTRY* T XCL:*TRACE-LENGTH* T \MAIKO.DAYTIME0 T STACK.FULL.WARNING T +RESHOWTITLE T COMPILER::*REDOING-ANALYSIS* T \MAIKO.CLOCK0 T COMPILER::COMPILE-FILE-MACROLET T +HASH-STRUCTURE-SMASH T \MAIKO.CLOCK T CL:CHAR-DOWNCASE T COMPILER::COMPILE-FILE-COMPILER-LET T +SI::CHANGE-CALLS-IN-LAMBDA T FASL::WRITE-OP T FORMAT-TAB T \FLUSHNSOCQUEUE T *EXEC-ID* T \DSPRATE T +NIL +RECORD \FREELISTCELL (POINTER CONSPAGE) FNTYP (LITATOM DEFINITIONCELL COMPILED-CLOSURE) +TEDIT.COPY.LOOKS (PIECE SELECTION) \UFS.RECOGNIZE.FILE (FDEV) DBG::REGION-NEXT-TO (REGION) +\GETFTPCONNECTION (FTPCONNECTION) \COURIER.CHECK.ERRORS (COURIERERR) \TEDIT.COMMAND.LOOP (STREAM +TEXTSTREAM TEXTOBJ SELECTION STRINGP CHARTABLE) SEDIT::SET-POINT-QUOTE (SEDIT::STRING-ITEM) +TEDIT.DISPLAYTEXT (TEXTOBJ TEXTSTREAM STRINGP) \ALLOCVIRTUALPAGEBLOCK (IFPAGE) FUNCTION.WRAPPER ( +READTABLEP) \ATMOUT (LITATOM PNAMEBASE) SETUPFONTS.PRESS (STREAM) \SET.STORAGE.STATE (IFPAGE) +COPYFILES (FDEV) \TFBRAVO.APPLY.PARALOOKS (TEXTOBJ FMTSPEC) \TEDIT.CONVERT.TO.FORMATTED (TEXTOBJ PIECE +) \GETPILOTBBTSCRATCHBM (BITMAP) DISCARDXIPS (NSOCKET) \READNUMBER.OUTLINEREGION (REGION) +TB.UNSELECT.ALL.ITEMS (TABLEBROWSER TABLEITEM) MAKEBRES (BRES) \DSPRESET.PSC (STREAM \POSTSCRIPTDATA) +OPT.JLENPASS (TAG) \TEDIT.REPAINTFN (TEXTOBJ LINEDESCRIPTOR) \COURIER.CHECK.PROCEDURES (COURIERFN) +\ADVANCE.STORAGE.STATE (IFPAGE) SUBSTRING (LITATOM STRINGP) SEDIT::SET-POINT-LIST (SEDIT::STRING-ITEM +SEDIT::EDIT-NODE) TEDITCHAT.CHARFN (CHAT.STATE TEXTOBJ) MAKETITLEBARICON (WINDOW SCREEN REGION +POSITION) \SPP.GETNEXTBUFFER (SPPCON) SLICERANK (ICML.ARRAYSLICE) DBG::ATTACH-BACKTRACE-MENU (MENU +REGION) \FTP.PRINTPLIST (STRINGP LITATOM PNAMEBASE) \SPP.CLEANUP (SPPCON FDEV) \LEAF.ABORT.FROMMENU ( +SEQUIN) GETHOSTINFO (HOSTS.TXT.ENTRY) \SPP.BOUTS (SPPCON) \DSPCLIPPINGREGION.PSC (STREAM +\POSTSCRIPTDATA REGION) PFI.COLLECT.DEFINERS (PFITYPE) TB.DESELECTRANGE (TABLEBROWSER) FM.ITEMPROP ( +FREEMENUITEM) \LFScavFileName (STRINGP) FB.MAKE.SUBDIRECTORY.ITEM (FBFILEDATA FILEBROWSER) MSPARSE ( +CONJUNCTION PARSED MSVERB) NTHCHARCODE (STRINGP LITATOM) \FIXILINES (TEXTOBJ SELECTION LINEDESCRIPTOR) + MSEDITE (MSANALYZABLE) MKSTRING (LITATOM) \LFUnpackName (PARSEDFILENAME STRINGP) \STARTPAGE.PRESS ( +STREAM) TEDIT.\INSERT (STREAM TEXTSTREAM SELECTION TEXTOBJ) \LEAF.SETCREATIONDATE (LEAFDATA LEAFSTREAM + LEAFINFOBLOCK) TEDIT.GET.OBJECT (TEXTSTREAM PIECE TEXTOBJ) BITMAPBIT (BITMAP STREAM \DISPLAYDATA) +TB.UNSELECT.ITEM (TABLEITEM) SPY.MERGE.CALLEES (SPYRECORD) \SPP.SETFILEPTR (STREAM) STRPOS (LITATOM +STRINGP ARRAYP) SETF-SYMBOL-PACKAGE (CL:SYMBOL) LINE.LESSP (XYPT XXLINE) \DSPCLIPTRANSFORMX ( +\DISPLAYDATA) CREATEW (SCREENREGION REGION) \DSPCLIPTRANSFORMY (\DISPLAYDATA) CENTERINWIDTH (REGION) +ASKUSER (OPTIONS ASKUSER) \GENERIC.CURSOR (SCREEN) \FILLPOLYGON.PSC (POSITION) COERCETEXTOBJ (STREAM +TEXTSTREAM TEXTOBJ PIECE) \BBTCURVEPT (BITMAP PILOTBBT) AIN (STRINGP ARRAYP) DISPLAYLINK/BT (GRAPHNODE +) \TERMINATESPP (SPPCON) AOUT (STRINGP ARRAYP) \SPP.GETFILEPTR (SPPSTREAM STREAM) \EXTENDEDVMEMINIT ( +IFPAGE) BLTCHAR (STREAM) MSEDITF (MSANALYZABLE) \DRAWPOLYGON.PSC (STREAM \POSTSCRIPTDATA POSITION) +\MAIKO.SET.STORAGE.STATE (IFPAGE) TEDIT.UPDATE.SCREEN (TEXTOBJ LINEDESCRIPTOR) TEDIT.GETPOINT (TEXTOBJ + SELECTION) \MEDW.CURSOR (CURSOR BITMAP) FEQP (FIXP FLOATP) \COURIER.CHECKDEF (COURIERPGM) \TEXTCLOSEF + (TEXTOBJ PIECE) \OPENLINEBUF (STREAM) TEDIT.DEFAULT.MENUFN (TEXTOBJ SELECTION) D-ASSEM:INTERN-DCODE ( +FNHEADER) SEDIT::REPLACE-LIST (SEDIT::EDIT-NODE SEDIT::EDIT-SELECTION) \DSPPRINTCR/LF (STREAM +\DISPLAYDATA FONTDESCRIPTOR REGION) TTYIN.LASTINPUT (TTYINBUFFER LINE) DISPLAYLINK/RL (GRAPHNODE) +FASL::DUMP-BITMAP (BITMAP) \BSP.CLOSE.OPEN.SOCKETS (BSPSOC) \CHANGECHARSET.DISPLAY (CHARSETINFO) +\SFFixY (\DISPLAYDATA BITMAP CHARSETINFO) \SLOWBLTCHAR (STREAM FONTDESCRIPTOR \DISPLAYDATA PILOTBBT +BITMAP CHARSETINFO) EXPANDW (SCREEN WINDOW) DISPLAYLINK/TB (GRAPHNODE) TB.INSERT.ITEM (TABLEBROWSER) +FB.THINCOMMAND (FILEBROWSER FBFILEDATA) \CARET.FLASH.AGAIN (CARET1) BMOBJ.COPYFN (BITMAPOBJ) +\LEAF.CREATIONDATE (LEAFINFOBLOCK LEAFSTREAM) TTYINBUFFERSTREAM (TTYINBUFFERSTREAM) +\LEAF.STREAM.IN.QUEUE (SEQUIN STREAM LEAFDATA) SPY.ORIGINAL (SPYRECORD) \SPP.EVENTFN (FDEV) +\STRINGWIDTH.PSC (STREAM \POSTSCRIPTDATA) ARRAYTYP (ARRAYP) TEDIT.PUT.OBJECT (PIECE) +COURIER.EXECUTE.CALL (COURIERPGM COURIERFN) ARRAYORIG (ARRAYP) REPLACEFIELD (FIXP) BRH/OFFSET ( +GRAPHNODE) \SHOWSEL (SELECTION TEXTOBJ LINEDESCRIPTOR) \MAYBEPEEKNS (NSHOSTNUMBER) USERNAME (IFPAGE) +DASSEM.CANSHAREBINDING (FRAME) \POSTSCRIPT.OUTCHARFN (STREAM \POSTSCRIPTDATA FONTDESCRIPTOR) SETD ( +ARRAYP) \TEXTSTREAMBOUT (TEXTSTREAM TEXTOBJ REGION PIECE STREAM STRINGP) ELTD (ARRAYP) +\TEDIT.PROMPT.PAGEFULLFN (REGION) SETUSERNAME (IFPAGE) \MEDW.PUTWINDOWPROP (WINDOW REGION) REHASH ( +HARRAYP HASHSLOT) TEDIT.STRINGWIDTH (STRINGP) \COERCEFONTDESC (FONTDESCRIPTOR FONTCLASS WINDOW STREAM +IMAGEOPS) STKNTHNAME (FX) TEXTUREP (BITMAP) HARRAYP (HARRAYP) TERMTABLEP (TERMTABLEP) DO.CHAT.OPTION ( +CHAT.STATE) LRSH (FIXP) COMP.MLLVAR (VAR) ONEDINSPECT.SETELT (REGION) \LEAF.SETFILETYPE (LEAFDATA +LEAFSTREAM) \MEDW.GETWINDOWPROP (WINDOW) \LEAF.TIMEDOUT.EXCESSIVE (SEQUIN STREAM LEAFDATA) SPY.DELETE +(SPYRECORD) \NSGATELISTENER (NSROUTINGINFO) \DRAWARC.PSC (STREAM \POSTSCRIPTDATA) SUBARRAY (ARRAYP) +TB.SHOW.SELECTION (TABLEBROWSER) \SENDSPP (SPPCON SPPXIP) TEDIT.FIND.OBJECT.SUBTREE (PCTNODE PIECE) +POSTSCRIPT.OUTSTR (STRINGP LITATOM PNAMEBASE) \PNC (STRINGP) TXTFILE (TEXTOBJ) \TEDIT.MOVE.PIECEMAPFN +(PIECE TEXTOBJ) MARGINBAR.CREATE (MARGINBAR REGION) \HCPYMODEBLTCHAR (\DISPLAYDATA) TB.SELECT.ITEM ( +TABLEITEM) INVERT.TEXTURE.BITMAP (BITMAP) GN/TOP (GRAPHNODE) COMP.MLL (TAG JUMP) ULREDISPLAYBITMAP ( +BITMAP REGION) SETY.PRESS (STREAM) \CLEARMAP (FDEV) LOG (FLOATP) FILING.CALL (COURIERFN) +CENTERINHEIGHT (REGION) SEDIT::INSPECT-SELECTION (SEDIT::EDIT-CONTEXT) \MEDW.BITBLT (STREAM SCREEN +WINDOW \DISPLAYDATA) SETX.PRESS (STREAM) \WRITEPAGES (FDEV) SEDIT::INSERT-SPECIAL-CHARACTER ( +SEDIT::EDIT-NODE) \ENDVECRUN (STREAM) DINFO.TOGGLE.GRAPH (DINFOGRAPH) HARRAYPROP (HARRAYP) \TEDIT2 ( +TEXTSTREAM STREAM TEXTOBJ) FB.ADD.FILE (FBFILEDATA FILEBROWSER) GN/BOTTOM (GRAPHNODE) +\FIXLINELENGTH.IP (STREAM) \READPAGES (FDEV) \ACTONDISKPAGES (STREAM ARRAYP M44STREAM DISKREQUEST +IFPAGE) \PS.SCALEREGION (REGION) CLRHASH (HASHSLOT HARRAYP) \TEDIT.MARKINACTIVE (TEXTOBJ) FILEBROWSER +(MENU REGION FILEBROWSER) CL:READ-CHAR (FDEV STREAM) \DISKERROR (DSKOBJ) IRM.DISPLAY.CREF (REGION) +%%COPY-ONED-ARRAY (ONED-ARRAY) \SLOWHCPYMODEBLTCHAR (STREAM FONTDESCRIPTOR \DISPLAYDATA PILOTBBT +BITMAP CHARSETINFO) TTADJUSTWIDTH (LINE) \GENERIC.DSPCREATE (SCREEN BITMAP) MAPHASH (HASHSLOT HARRAYP) + \LEAF.NOT.RESPONDING (SEQUIN STREAM) SPY.DUMP.BUFFER (SPYRECORD) REDISPLAYBITMAP (BITMAP REGION) +\DOACTONDISKPAGES (CB) FB.SEEFULLFN (MENU REGION) TEDIT.UNDO.DELETION (PIECE TEXTOBJ SELECTION) +DINFO.TOGGLE.MENU (DINFOGRAPH) TB.BOTTOM.OF.ITEM (TABLEBROWSER TABLEITEM) OPENBSPSTREAM (BSPSOC) +TERM.HOME (CHAT.STATE) TEDIT.WORDGET (CHARTABLE) \WRITEDISKPAGES (STREAM ARRAYP M44STREAM DISKREQUEST +IFPAGE) TEDIT.QUIT (STREAM TEXTSTREAM TEXTOBJ) \HASHACCESS (HARRAYP HASHSLOT) SEDIT::INSERT-MULTI-ESCAPE + (SEDIT::EDIT-NODE) \DOWRITEDISKPAGES (CB) NUKE-SYMBOL (STRINGP) SCROLLBITMAP (BITMAP REGION) +ADD-SYMBOL (CL:SYMBOL) \TFBRAVO.INSTALL.PAGEFORMAT (TEXTOBJ TFBRAVOPAGEFRAMES) \SWITCHFONTS.PSC ( +\POSTSCRIPTDATA PSCFONT FONTDESCRIPTOR FONTID) \CHARWIDTH.PSC (\POSTSCRIPTDATA STREAM CHARSETINFO) +\TEDIT.MARKACTIVE (TEXTOBJ) DBG::STKPTR-CCODE (FX) DINFO.UPDATE (DINFOGRAPH) TEDIT.FIND.OBJECT (PIECE) + \MEDW.DSPCREATE (SCREEN STREAM \DISPLAYDATA BITMAP) \HASHRECLAIM (HARRAYP HASHSLOT) +\STRINGWIDTH.HCPYMODE (\DISPLAYDATA) DO.MOUSE (MOUSEPOS) \SETEOF (BYTEPTR) \INITSPP (FDEV) +\DSPROTATE.PSC (STREAM \POSTSCRIPTDATA) SHOWRECTANGLE.PRESS (STREAM) TEDIT.REDO.INSERTION (TEXTOBJ +PIECE SELECTION) SPY.MAKE.TREE (SPYDATA SPYRECORD) \FTPERROR (STREAM) \HASHTABLE.DEFPRINT (READTABLEP) + \STORAGE.TYPE (HUNKSTAT CONSPAGE) POSTSCRIPT.SET-FAKE-LANDSCAPE (STREAM \POSTSCRIPTDATA REGION) +\BITBLT.BITMAP.SLOW (BITMAP REGION PILOTBBT) \STORAGE.HUNKTYPE (HUNKSTAT) \STRINGWIDTH.PRESS (STREAM +CHARSETINFO LITATOM PNAMEBASE READTABLEP STRINGP) TEXTUREOFCOLOR (RGB) \MEDW.TOTOPW (SCREEN WINDOW) +\PUNT.BITBLT.BITMAP (BITMAP REGION PILOTBBT) GN/LEFT (GRAPHNODE) \STRINGHASHBITS-UFN (STRINGP LITATOM +PNAMEBASE) DISPLAYLINK/LR (GRAPHNODE) \FM.NUMBER-CHANGESTATE (FREEMENUITEM) COURIER.REP.LENGTH ( +STRINGP) \DODISKCOMMAND (DSKOBJ CB) \STRING-EQUAL-HASHBITS-UFN (STRINGP LITATOM PNAMEBASE) +TEDIT.EDIT.OBJECT (TEXTOBJ STREAM TEXTSTREAM SELECTION LINEDESCRIPTOR) BRH/LAYOUT (GRAPHNODE) +EXPANDBITMAP (BITMAP) SEDIT::INPUT-TOKENDELIM (SEDIT::EDIT-CONTEXT SEDIT::EDIT-SELECTION) +\MAKE.PMAP.DEVICE (FDEV) \CLEANUPDISKQUEUE (DSKOBJ) \SEL.LIMIT (SELECTION) TB.NORMALIZE.ITEM ( +TABLEBROWSER REGION) \IDLERKEYACTION (KEYACTION) SPY.NEXT.TREE (SPYRECORD) \PUNT.BLTSHADE.BITMAP ( +BITMAP REGION PILOTBBT) TEDIT.SETSYNTAX (TEXTOBJ STREAM TEXTSTREAM) \PAGED.GETNEXTBUFFER (STREAM) +\FIXCODENUM (ARRAYP) \MAKE.EXPEDITED.STREAM (STREAM XIP BASEBYTESTREAM) FB.NAMES.DECREASING.VERSION ( +FBFILEDATA) TB.EXPANDFN (TABLEBROWSER) DSPSOURCETYPE (STREAM PILOTBBT) \FIXCODEPTR (ARRAYP) +\DSPCLIPPINGREGION.IP (STREAM INTERPRESSDATA) GN/RIGHT (GRAPHNODE) \CLIPLINE (REGION) \PAGEDSETFILEPTR + (BYTEPTR) DASSEM.DSTOREFNDEF (CODEARRAY) POSTSCRIPT.STARTPAGE (STREAM \POSTSCRIPTDATA) DSPYOFFSET ( +IMAGEOPS STREAM) DINFO.TOGGLE.TEXT (DINFOGRAPH) \PAGED.SETEOFPTR (BYTEPTR) DSPXOFFSET (IMAGEOPS STREAM +) TEDIT.UNDO.INSERTION (TEXTOBJ SELECTION) \IFS.LOOKUPFILE (PUPFILESERVER LOOKUPFILEDATA) DSPCREATE ( +BITMAP) \SEL.LINEDESC (SELECTION) DINFO.TOGGLE.HISTORY (DINFOGRAPH) SEDIT::RESHAPEFN (REGION) +\PAGEDREADP (CHARTABLE) \CARET.FLASH (CARET1 CURSOR) TB.FIND.PREVIOUS.TAIL (TABLEBROWSER TABLEITEM) +\CHECKARRAYBLOCK (ARRAYBLOCK) TEDIT.GETSYNTAX (CHARTABLE TEXTOBJ STREAM TEXTSTREAM) \FM.EDIT-SETUP ( +FREEMENUITEM REGION) \CHECKFREEPAGE (CB DSKOBJ) \ALLOCBLOCK.OLD (ARRAYBLOCK) \PARTEND.PRESS (STREAM) +XCL:ECHO-STREAM-INPUT-STREAM (STREAM) TEXTOBJ (TEXTOBJ STREAM TEXTSTREAM) \ALLOCBLOCK.NEW (POINTER) +XCL:ECHO-STREAM-OUTPUT-STREAM (STREAM) \FM.NUMBER-SETUP (FREEMENUITEM REGION) \NSFILING.GET/SETINFO ( +STREAM) \ALLOCHUNK (POINTER) XCL:TWO-WAY-STREAM-OUTPUT-STREAM (STREAM) TOPW.REPAINTFN (REGION) +\SFFixDestination (\DISPLAYDATA PILOTBBT BITMAP) \HANDLE.RAW.XIP (FIXP NSOCKET) TB.FLUSH.WINDOW ( +TABLEBROWSER) \LEAF.READFILEPROP (LEAFSTREAM LEAFDATA LEAFPACKET) \TEDIT.STRIKEOUT.CARET.OFF (TEXTOBJ) + \MAIKO.ALLOCBLOCK (ARRAYBLOCK) TB.RENUMBER.TAIL (TABLEBROWSER) CHAT.TYPESCRIPT (CHAT.STATE) +\DSPPOPSTATE.PSC (STREAM \POSTSCRIPTDATA POSTSCRIPTXFORM) PUTHASHTEXT (HashFile HashTextPtr) +SEDIT::INSERT-LIST (SEDIT::EDIT-SELECTION SEDIT::EDIT-POINT) XCL:TWO-WAY-STREAM-INPUT-STREAM (STREAM) +COMP.NUMBERTEST (JUMP) CHAT.SWITCH.EMACS (CHAT.STATE) \MAKEFREEARRAYBLOCK (ARRAYBLOCK) CHCON (LITATOM +STRINGP) SEDIT::OUTPUT-CR (SEDIT::LINE-START) \MERGEFORWARD (ARRAYBLOCK) \VFMCreateIntervals (ARRAYP) +XCL:CONCATENATED-STREAM-STREAMS (STREAM) \MEDW.REDISPLAYW (WINDOW) \LINKBLOCK (ARRAYBLOCK) +\SETETHERFLAGS (IFPAGE) UNPACK (LITATOM STRINGP) WTODSY (REGION) SEDIT::INPUT-STRINGDELIM ( +SEDIT::EDIT-CONTEXT) \MERGEBACKWARD (ARRAYBLOCK) XCL:BROADCAST-STREAM-STREAMS (STREAM) +\LEAF.GETFILEINFO.OPEN (STREAM LEAFINFOBLOCK) \TEDIT.STRIKEOUT.CARET.ON (TEXTOBJ) \DELETEBLOCK? ( +ARRAYBLOCK) XCL:SYNONYM-STREAM-SYMBOL (STREAM) SPY.MERGETREE (SPYRECORD) \VIRTUALDISKDA (REALDA DSKOBJ +) \SFFixClippingRegion (\DISPLAYDATA REGION BITMAP) \PREFIXALIGNMENT? (POINTER) GET.OBJ.FROM.USER ( +TEXTOBJ) \FM.EDIT-INSERT (REGION FREEMENUITEM) \DSPPUSHSTATE.PSC (STREAM \POSTSCRIPTDATA) +INTEGERLENGTH (FIXP) \VANILLAHOSTNAMEP (FDEV) \UPDATE-SYNONYM-STREAM-LINELENGTH-FIELD (STREAM FDEV) +\LOCATE.NSNET (ROUTING) DCHCON (LITATOM STRINGP) \MEDW.SHAPEW (WINDOW REGION) \DSPTRANSLATE.PSC ( +STREAM \POSTSCRIPTDATA REGION) SPY.SUM (SPYRECORD) TEDIT.MOVE (SELECTION TEXTOBJ) DASSEM.DWRITEFN ( +READTABLEP) CL:APROPOS-LIST (STRINGP) EDITFROMFILE (FILEPKGTYPE) DUNPACK (LITATOM STRINGP) CL:APROPOS +(STRINGP) \CARET.FLASH? (CARET1 TEXTOBJ) TEXTICON (REGION) ALPHORDER (LITATOM STRINGP ARRAYP) +\SFFixFont (\DISPLAYDATA BITMAP FONTDESCRIPTOR) BLOCK (PROCESS FX) SCALE/GRAPH (GRAPH GRAPHNODE) +\SETBRUSH.IP (BRUSH) BKLINBUF (CHARTABLE) \ARRAYBLOCKMERGER (ARRAYBLOCK) SEDIT::INPUT-QUOTE ( +SEDIT::EDIT-NODE) COPYHASHFILE (HashFile) FREEATTACHEDWINDOW (REGION) \CLOSELINE (LINEBUFFER) +CHECK-SYMBOL-NAMESTRING (STRINGP) \TEDIT.UNDERLINE.CARET.ON (TEXTOBJ) TEXTSTREAMP (TEXTOBJ TEXTSTREAM) + \ACCHARWIDTHLIST (FONTBOUNDINGBOX) \INCPARENCOUNT (LINEBUFFER) \SWAPDISKERROR (DSKOBJ) PACKC (STRINGP +) \COPYSEL (SELECTION) TB.UPDATE.DISPLAY (TABLEBROWSER REGION) INVERT.SEGMENT (LINE) \RESETLINE ( +LINEBUFFER) \GETFBB (BOUNDINGBOX) \COPYARRAYBLOCK (ARRAYBLOCK) \ACCHARIMAGELIST (BOUNDINGBOX) +DASSEM.DASSEM (COMINFO DASM FRAME TAG) \LEAF.SETVALIDATION (STREAM LEAFINFOBLOCK LEAFSTREAM) PACK ( +STRINGP) COPYALL (CURSOR) \PACK.ITEM (STRINGP) SPY.MERGE (SPYDATA SPYRECORD) WXOFFSET (REGION) +\SAVELINEBUF (LINEBUFFER FDEV STREAM STRINGP) \SFFIXLINELENGTH (STREAM \DISPLAYDATA) +\ADVANCE.ARRAY.SEGMENTS (POINTER) TTY.PROCESS (PROCESS KEYACTION) \LFINITCASEARRAY (ARRAYP) +\FM.EDIT-PREPARETOEDIT (FREEMENUITEM REGION) OPENPOSTSCRIPTSTREAM (STREAM \POSTSCRIPTDATA REGION) +\PFTransferFilePage (FileDescriptor Label PhysicalVolumeDescriptor) \BYTELT (ARRAYP) COPYHASHITEM ( +HashTextPtr HashFile) CONVERT-LITATOM (CL:SYMBOL STRINGP) \BYTESETA (ARRAYP) TB.PRINT.LINE ( +TABLEBROWSER TABLEITEM) SEDIT::PLACE-CARET-AND-SELECTION (SEDIT::LINE-START) FB.ANALYZE.PATTERN ( +FILEBROWSER) WYOFFSET (REGION) \WORDELT (ARRAYP) \LITATOM.EATCHARS (LITATOM PNAMEBASE) \MEDW.SHRINKW ( +BITMAP WINDOW REGION) \ARRAYTYPENAME (ARRAYP) CL:INTERN (STRINGP) INTERPRESSBITMAP (REGION BITMAP) +TTNTHLINE (LINE) \FM.EDITSTART-SELECTEDFN (FREEMENUITEM) CCODEP (LITATOM) PAGEFULLFN (LINEBUFFER) +WTODSX (REGION) SPY.MAKEGRAPHNODES (SPYRECORD SPYDATA) MAKEBITTABLE (CHARTABLE) IRM.RESET (DINFOGRAPH) + \BLOCKDATAP (ARRAYBLOCK) SETLINELENGTH (STREAM) \DSKDISPLAY.RESHAPEFN (REGION) TB.ITEM.UPDATABLE? ( +TABLEBROWSER) DISPLAYSTREAMP (STREAM IMAGEOPS) \LEAF.REPAIR.BROKEN.PUP (STREAM LEAFSTREAM LEAFDATA +LEAFPACKET) FB.CHECK.NAME.LENGTH (FBFILEDATA FILEBROWSER) \CARET.SHOW (CARET1 SCREEN WINDOW +\DISPLAYDATA STREAM) \SETFATSYNCODE (CHARTABLE) \FM.EDIT-ITEM (REGION FREEMENUITEM) +\SPP.DUPLICATE.REQUEST (FDEV SPPXIP SPPSTREAM SPPCON) WINDOWWORLDP (SCREEN) \SHOW.ARRAY.FREELISTS ( +ARRAYBLOCK) FILEPOS (ARRAYP LITATOM STRINGP FDEV) \LFCreateDirectories (ARRAYP) PRINTDISPLAYNODE ( +GRAPHNODE) SHOW.PRESS (STREAM FDEV FONTDIRENTRY) \STREAMCHARWIDTH (CHARTABLE TERMTABLEP) +\TEDIT.GET.TERMSA.WIDTHS (ARRAYP) \VFMCorrectBufferP (\BTREEBUF) \TEDIT.UNPARSE.PARALOOKS.LIST ( +FMTSPEC) TEDIT.SETFUNCTION (TEXTOBJ STREAM TEXTSTREAM) \TEDIT.SUPERSCRIPT.CARET (TEXTOBJ) +\FM.EDITSTART-SETUP (FREEMENUITEM) \FACECODE (FONTFACE) FFILEPOS (STREAM LITATOM STRINGP FDEV ARRAYP) +SEDIT::LESS-PROMPT-WINDOW (REGION) \PARSEARRAYSPACE1 (ARRAYBLOCK) \TEDIT.COPYINSERTFN (TEXTOBJ) +CHANGEBACKGROUNDBORDER (IOPAGE) TEDIT.GETFUNCTION (TEXTOBJ STREAM TEXTSTREAM READTABLEP CHARTABLE) +PSCFONT.READFONT (PSCFONT) DBG::NEAR-BY-REGION (REGION) TEDIT.MAPPIECES (TEXTOBJ PIECE) +\INITIALIZESWAPDISK (ISFMAP) \TEDIT.UNDERLINE.CARET.OFF (TEXTOBJ) TB.CLOSE/SHRINK (TABLEBROWSER) +EXPANDING-PAGEFULLFN (REGION) \DECPARENCOUNT (LINEBUFFER) SEDIT::INPUT-DOT (SEDIT::EDIT-SELECTION) +DINFO.TITLEMENUFN (DINFOGRAPH) \INTERPRETER1 (FX FNHEADER BF) TEDIT.FIND (TEXTOBJ SELECTION) +TB.SHOW.DELETION (TABLEBROWSER) \SMASHLINK (FX BF) TEDIT.SETSEL (TEXTOBJ SELECTION PIECE) \GETCHAR ( +LINEBUFFER) \STACKARGPTR (FX) SEDIT::LINEAR-ITEM-WIDTH (SEDIT::STRING-ITEM) \FILLBUFFER (LINEBUFFER +CHARTABLE FDEV) DISPLAYNODELINKS (GRAPH) \STARTDISPLAY (BITMAP SCREEN) TEDIT.GET.PARALOOKS (TEXTOBJ +PIECE) \FILLBUFFER.WORDSEPRP (CHARTABLE) CL::%%RATIO-PRINT (READTABLEP) \MEDW.MOVEW (WINDOW SCREEN +REGION POSITION) \INTERPRETER-LAMBDA (BF FX) \DSPTRANSFORMREGION (\DISPLAYDATA) FB.HANDLE.ABORT.BUTTON + (FILEBROWSER) UPDATE/SCROLL/REG (WINDOW REGION SCREEN) DESCRIBE-VIRTUAL-MEMORY (IFPAGE) +SEDIT::COMPUTE-POINT-POSITION-LIST (SEDIT::LINE-START) \DSPTOPMARGIN.PRESS (STREAM) CHARWIDTH ( +FONTDESCRIPTOR CHARSETINFO IMAGEOPS STREAM) VMEMSIZE (IFPAGE) SPY.MAX (SPYRECORD) DSPBACKUP (STREAM +FONTDESCRIPTOR) DINFOGRAPH (DINFOGRAPH) CL::%%COMPLEX-PRINT (READTABLEP) \OFFSETCLIPPINGREGION ( +\DISPLAYDATA) \FM.DISPLAY-SETUP (FREEMENUITEM) \SETUP-COMPILED-CLOSURE-CALL (IFPAGE COMPILED-CLOSURE +FX BF FNHEADER FSB) \TEDIT.PRIMARYW (TEXTOBJ) \PARSE.REMOTE.FILENAME (LEAFDEVICE) \FILLINSPP (XIP +SPPHEAD) \CoerceToDisplayDevice (FDEV) \LEAF.USE.NEW.CONNECTION (LEAFDATA LEAFPACKET STREAM LEAFSTREAM +) SPY.MERGEINFO (SPYDATA) WFROMDS (TEXTOBJ STREAM \DISPLAYDATA WINDOW) \MEDW.RELMOVEW (REGION POSITION +) \FIXP.FROM.FLOATP (FIXP FLOATP) \CURSOR.DEFPRINT (CURSOR) \DSPSPACEFACTOR.PRESS (STREAM) +\NSFILING.WHENCLOSED (FDEV) \ENTITYEND.PRESS (STREAM FDEV) \DSCCOUT (CHARTABLE) ARGLIST (LITATOM +COMPILED-CLOSURE) \DSPFONT.IP (FONTDESCRIPTOR) FW-UPDATE-OFD-WINDOWS (FW-OFD) \PROMPTWINDOW.SET.HEIGHT + (REGION) \MAKEFREEBLOCK (FSB) FB.EDITLISPFILE (FILEBROWSER) ASKUSEREXPLAIN (OPTIONS) +\DSPLINEFEED.PRESS (STREAM) \TEDIT.SUBSCRIPT.CARET (TEXTOBJ) \FREESTACKBLOCK (STK FX BF FSB) +\MEDW.CLOSEW (WINDOW SCREEN) \STKNAME (FX BF) GETWINDOWUSERPROP (WINDOW) FB.COPYFN (FBFILEDATA) +\SPP.SYSPKT (SPPCON XIP SPPHEAD) \SETUP-ENVIRONMENT-CALL (IFPAGE FX BF FNHEADER FSB) DISPLAY/NAME ( +GRAPHNODE) TEDIT.INSERT.OBJECT (TEXTOBJ SELECTION PIECE TEXTSTREAM THISLINE) \LFExtendFile ( +DLIONSTREAM FileDescriptor) DELETE.LONG.SEGMENT (MOUSEPOS) \ENTITYSTART.PRESS (STREAM FDEV) +TEDIT.MAPLINES (LINEDESCRIPTOR TEXTOBJ REGION) \LEAF.READFILENAME (PUPFILESERVER) DINFO.GET.FILENAME ( +DINFONODE DINFOGRAPH) \START.PROCESSES (FX) CHAT.EMACS.MOVE (CHAT.STATE) DRIBBLE (STREAM) PROCESSWORLD + (PROCESS PROCESSQUEUE) \SETUP.DEFAULT.LINEBUF (FDEV) \COERCEASCIITONSFONT (ARRAYP CHARSETINFO) +\MEDW.OPENW (WINDOW SCREEN STREAM PILOTBBT \DISPLAYDATA BITMAP) CHANGEBACKGROUND (SCREEN) FB.CLOSEFN ( +FILEBROWSER) TRIM.BITMAP (BITMAP) \RUN.PROCESS (PROCESS) \TFBRAVO.INIT.CHARLOOKS (CHARLOOKS) \OPENW1 ( +SCREEN WINDOW) DISPLAYGRAPH (POSITION GRAPH GRAPHNODE) \MOVE.WINDOWS.ONTO.SCREEN (WINDOW REGION) +\DSPRIGHTMARGIN.PRESS (STREAM) \CLOSEW1 (SCREEN WINDOW) \ADDLEAFSTRING (LEAFDATA LITATOM STRINGP) +DINFO.OPENTEXTSTREAM (DINFOGRAPH) \TEDIT.ITALIC.CARET.ON (TEXTOBJ) TB.FIRST.VISIBLE.ITEM# ( +TABLEBROWSER REGION) CHAT.HOLD (CHAT.STATE) \LINEBUF.READP (LINEBUFFER) PUTWINDOWPROP (WINDOW SCREEN) +OPENWINDOWS (SCREEN WINDOW) \LONUM (FIXP) SEDIT::INPUT-NORMAL-CHAR (SEDIT::EDIT-CONTEXT SEDIT::EDIT-NODE +) \HINUM (FIXP) \LINEBUF.EOFP (FDEV STREAM LINEBUFFER) PRINTLINE (LINEDESCRIPTOR TEXTOBJ) APPLY ( +LITATOM) TTNEXTPOS (LINE) \CREATELINEBUFFER (STREAM LINEBUFFER FDEV) INVERT.BITMAP.VERTICALLY (BITMAP) + APPLY* (LITATOM) NSOCKETNUMBER (NSOCKET) EQFMTSPEC (FMTSPEC) \FIXPASSWORD (SEQUIN) \CKAPPLYARGS (FX) +\INSPECT/CODE/REPAINTFN (POSITION) TB.LAST.VISIBLE.ITEM# (TABLEBROWSER REGION) CHAT.MENU (CHAT.STATE) +LINEBUFFER-EOFP (FDEV STREAM) TB.FIND.ITEM (TABLEBROWSER) DRAWMARGINSCALE (REGION) FW-RECALL-CMD ( +FW-OFD) SEDIT::START-PROCESS (SEDIT::EDIT-CONTEXT) ICMLARRAY.MENUW.APPLY (REGION) SETXY.PRESS (STREAM) + \SETSPACE.PRESS (STREAM) \MAIKO.CONS.UFN (LISTP CONSPAGE POINTER) \IRM.GET.REF (IRMREFERENCE) +\TEDIT.INSPECTCODE (COMPILED-CLOSURE) \MEDW.CREATEW (WINDOW STREAM REGION SCREEN \DISPLAYDATA) +GRAPHDELETELINK (GRAPH GRAPHNODE) SPY.UPDATE.TITLE (GRAPH SPYRECORD GRAPHNODE) DINFO.FMW.CLOSEFN ( +DINFOGRAPH) \FM.NWAY-SELECTEDFN (FREEMENUITEM) \CLOSELEAFCONNECTION (SEQUIN LEAFDEVICE) +\TEXTMENU.SET.TOGGLE (PIECE PCTNODE TEXTOBJ) \LFExtendFileIfNecessary (FileDescriptor DLIONSTREAM) +TTBEFOREPOS (MOUSEPOS LINE) TWOD.TRACKCURSOR (TWOD.SELECTION) \SETFVARSLOT (FX FNHEADER FVARSLOT) +TEDIT.DEACTIVATE.WINDOW (TEXTOBJ STREAM) TB.SHOW.COPY.SELECTION (TABLEBROWSER) \REQUEUE.ETHERPACKET ( +SYSQUEUE) PROG (FNHEADER) FB.AFTERCLOSEFN (FILEBROWSER) TB.DISPLAY.LINES (TABLEBROWSER REGION) +SEDIT::ASSIGN-FORMAT-QUOTE (SEDIT::LIST-FORMAT) \PROG0 (FX FNHEADER) LINKPARAMETERS (GRAPHNODE) +CL::%%BIGNUM-LOGCOUNT (BIGNUM) SEDIT::SET-PROPS (SEDIT::EDIT-CONTEXT) \DSPLEFTMARGIN.PRESS (STREAM) +\INITCONSPAGE (CONSPAGE LISTP POINTER) IRM.DISPLAY.REF (IRMREFERENCE DINFOGRAPH) +INVERT.BITMAP.HORIZONTALLY (BITMAP) TEDIT.SHOWSEL (TEXTSTREAM SELECTION TEXTOBJ) \NSFILING.EVENTFN ( +FDEV STREAM) \TFBRAVO.WRITE.PARAGRAPH (FMTSPEC) DELETE/AND/DISPLAY/LINK (GRAPHNODE GRAPH) CL:ARRAY-RANK + (GENERAL-ARRAY) \SMASHRETURN (FX) DSPRUBOUTCHAR (STREAM) \FIXLINELENGTH.PRESS (STREAM) GO (FNHEADER +FX BF) \LEAF.ERROR (LEAFERRORDATA STREAM) \SPP.SENDPKT (SPPCON XIP SPPHEAD) EVALA (FNHEADER) +\UPDATE-WHO-LINE-ACTIVE-FLAG (WHO-LINE-ENTRY) CL:ARRAY-TOTAL-SIZE (ARRAY-HEADER) \EVALA (FX FNHEADER) +CHECKCONSPAGES (CONSPAGE) INVERT.LONG.SEGMENT (MOUSEPOS LINE) SPP.OPEN (SPPCON) \DSPYPOSITION.HCPYMODE + (\DISPLAYDATA) \CHECKCONSPAGE (CONSPAGE LISTP) SEDIT::SET-OPTIONS (SEDIT::EDIT-CONTEXT) PUTTEXTPROP ( +TEXTOBJ) CURSOR (CURSOR BITMAP) TITLEDICONW (TITLEDICON) OPT.OPTCHECK (JUMP TAG) +\ADJUSTABLE-STRING-STREAM-OUTCHARFN (STREAM) \LFRemoveDirEntry (DLIONSTREAM FDEV STREAM) +INVERT.BITMAP.DIAGONALLY (BITMAP) \KEYHANDLER1 (RING IFPAGE KEYBOARDEVENT) \PRINSTACKP (READTABLEP) +DINFO.CREATE.FMENU (DINFOGRAPH) MAKE-FILL-POINTER-OUTPUT-STREAM (STREAM) \PRINSTRING (READTABLEP +STRINGP) DEL.PROCESS (PROCESS) \STRING-STREAM-OUTCHARFN (STREAM) COMP.TAGBODY (TAG) \SPY.INTERRUPT (FX +) \TEDIT.UCASE.SEL (SELECTION TEDITHISTORYEVENT TEXTOBJ) LET (FNHEADER) FB.HARDCOPY.DIRECTORY ( +FILEBROWSER FBFILEDATA INFOFIELD) \FM.NWAY-MOVEDFN (FREEMENUITEM REGION) \CKPOSSOUT (STRINGP) \LET0 ( +FX FNHEADER) WRITEIMAGEOBJ (IMAGEFNS IMAGEOBJ) PROCESSP (PROCESS) \AB.BACK (ARRAYBLOCK) TTRACKMOUSE ( +LINE COMPLEXCHAR) %%BROADCAST-STREAM-DEVICE-OUTCHARFN (STREAM) \LITPRIN (CL:SYMBOL READTABLEP LITATOM +PNAMEBASE) \LET* (FX FNHEADER) TEDIT.CARETLOOKS (TEXTOBJ) RELPROCESSP (PROCESS) \FM.NWAY-DOWNFN ( +FREEMENUITEM REGION) \DSKDISPLAY.REPAINTFN (LogicalVolumeDescriptor) LET* (FNHEADER) +\ELIDE.ELEMENT.CHAR (READTABLEP) SPP.DESTADDRESS (SPPCON) GETSTREAMPROP (STREAM) +%%CONCATENATED-STREAM-DEVICE-BIN (STREAM) \DSPCOLOR.IP (INTERPRESSDATA) \LFReturnNextFile ( +GenerateFileState GeneratedFile) PUTSTREAMPROP (STREAM) TB.REPLACE.ITEMS (TABLEBROWSER) +\ELIDE.TAIL.STRING (READTABLEP) \DSPCLIPPINGREGION.PRESS (STREAM REGION) RESTART.PROCESS (PROCESS) +HASHBEFORECLOSE (HashFileEntry HashFile) \LFReturnInfo (GeneratedFile GenerateFileState) +\EXTERNALFORMAT (EXTERNALFORMAT STREAM) MSSOLVE (SENTENCE INRELATION MSSETPHRASE) DEFINEDP (LITATOM) +GETTEXTPROP (TEXTOBJ) WAKE.PROCESS (PROCESS) \VFMSplit1 (Index Interval Buffer) SCALEREGION (REGION) +\FM.NWAY-MESSAGE (FREEMENUITEM) \TEDIT.PUT.CHARLOOKS (CHARLOOKS PIECE) FIND-EXTERNAL-SYMBOL (STRINGP) +SPP.DSTYPE (SPPCON SPPXIP) SUSPEND.PROCESS (PROCESS) PROMPTINWINDOW (POSITION CURSOR) +\TEXTMENU.TOGGLE.WHENOPERATEDFN (SELECTION) CL:FLOAT-SIGN (FLOATP) PLCHAIN (LINEDESCRIPTOR) +\POSTSCRIPT.SPECIALFONT.SCALEDWIDTHS (FONTDESCRIPTOR) ROTATE.BITMAP.LEFT (BITMAP) \LITPRIN.INTERNAL ( +READTABLEP LITATOM PNAMEBASE ARRAYP READCODE CHARTABLE) %%BROADCAST-STREAM-DEVICE-CHARSETFN (STREAM) +ROTATE.BITMAP.RIGHT (BITMAP) TEDIT.KILL (STREAM TEXTSTREAM TEXTOBJ) \DSPXPOSITION.HCPYMODE ( +\DISPLAYDATA) \LEAF.GETFILEDATES (LEAFSTREAM) \SPPWATCHER (SPPCON) ENVAPPLY (LITATOM) FB.ICONFN ( +FILEBROWSER) \CURVE (\DISPLAYDATA) \FTP.NEXTFILE (FDEV STREAM) STREAMP (STREAM) +%%SYNONYM-STREAM-DEVICE-CLOSEFILE (FDEV) TB.SCROLLFN (TABLEBROWSER) CHAT.DID.RESHAPE (CHAT.STATE) +TERM.RESET.DISPLAY.PARMS (CHAT.STATE) \FUNCT1 (FX FNHEADER) \TEXTMENU.TOGGLE.SHOWSELFN (SELECTION) +\LFFindNextFile (FDEV) \MAKESTACKP (STACKP) \PFTrimHelper (FileDescriptor PageGroup) \TRACKCURSOR ( +IOPAGE) %%SYNONYM-STREAM-DEVICE-EOFP (FDEV STREAM) TEDIT.COPY (SELECTION TEXTOBJ PIECE) MENU.HANDLER ( +MENU WINDOW POSITION) %%SYNONYM-STREAM-DEVICE-OUTCHARFN (STREAM) \SYMBOL.ESCAPE.COUNT (READTABLEP +ARRAYP LITATOM PNAMEBASE READCODE CHARTABLE) NCHARS (LITATOM STRINGP READTABLEP) \MAKEFUNARGFRAME ( +FNHEADER STACKP) FB.GET.NEWPATTERN (FILEBROWSER) %%CONCATENATED-STREAM-DEVICE-CHARSETFN (STREAM) +CL:GET-OUTPUT-STREAM-STRING (STREAM) \OUTCHAR (STREAM) \DOBUFFEREDTRANSITIONS (RING KEYBOARDEVENT) +\NUMERIC.PNAMEP (READTABLEP STRINGP LITATOM PNAMEBASE) PROCESS.TTY (PROCESS) SEDIT::GET-CONTEXT ( +SEDIT::EDIT-NODE) STKAPPLY (LITATOM) DSPEOLFN (STREAM \DISPLAYDATA) FB.SET.DEFAULT.NAME.WIDTH ( +FILEBROWSER) \SOUT (IMAGEOPS STREAM STRINGP) SI::UNWIND (FX FNHEADER) FRESHLINE (STREAM FDEV) \AB.NEXT + (ARRAYBLOCK) BRACKET.CURRENT.WORD (LINE CHARTABLE) RETEVAL (FX) SEDIT::SET-SELECTION-COMMENT ( +SEDIT::STRING-ITEM) READTABLEP (READTABLEP) TEDIT.CHARWIDTH (CHARTABLE) RETAPPLY (FX LITATOM) +\INSERTCR (TEXTOBJ PIECE) \DSPSPACEFACTOR.HCPYMODE (\DISPLAYDATA) PNAMESTREAMP (STREAM) PROCESS-STATUS + (FX) TTRUBOUT (LINE) TB.SET.FONT (TABLEBROWSER REGION) \LEAF.ACKED (SEQUIN) \DEFPRINT.BY.NAME ( +READTABLEP) \STREAM.DEFPRINT (STREAM FDEV) COPYVM (IFPAGE) MSSHOWUSE (MSSETPHRASE) WINDOWP (WINDOW) +BLIPVAL (FX) \DSPBOTTOMMARGIN.PRESS (STREAM) \VAROFFSET (FNHEADER FX BF PVARSLOT) \FM.NWAY-SETUP ( +FREEMENUITEM) SETBLIPVAL (FX) \NSFILING.LOGIN (FDEV) SPP.SENDEOM (FDEV STREAM SPPCON SPPXIP) +\FDEV.DEFPRINT (FDEV) BLIPSCAN (FX) VERBNOTICELIST (CVERB VPART) \TEDIT.PEEKBIN.NEW.PAGE (TEXTSTREAM +STREAM FDEV) \NET.SETTIME (NDB) \DSPFONT.PRESS (STREAM CHARSETINFO) \FTP.CLOSEFILE (FDEV STREAM) +%%TWO-WAY-STREAM-DEVICE-BACKFILEPTR (STREAM) \CARET.DOWN (CARET1 WINDOW) \REALFRAMEP (FNHEADER FX) +%%TWO-WAY-STREAM-DEVICE-OUTCHARFN (STREAM) PRINTNUM-TO-STRING (FLOATFMT FIXFMT) \SPP.PREPARE.INPUT ( +SPPCON STREAM SPPSTREAM SPPXIP XIP) INPUT (STREAM) EXPRP (LITATOM) \IPCURVE2 (SPLINE) OPT.DS1 (FRAME +JUMP) \STKARG (BF FX FNHEADER PVARSLOT) WINDOW.BITMAP (REGION) SEDIT::SET-POINT-COMMENT (SEDIT::WEAK-LINK +) %%TWO-WAY-STREAM-DEVICE-CLOSEFILE (FDEV) \LFSortFiles (GeneratedFile) TWODINSPECT.ADJUSTSELECTION ( +TWOD.SELECTION) TEDIT.INSERT.UPDATESCREEN (TEXTOBJ SELECTION LINEDESCRIPTOR REGION) MSGETDEF ( +MSANALYZABLE) POSTSCRIPT.INIT (FONTCLASS) \STREAM.NOT.OPEN (STREAM) \SPP.CREATE.STREAMS (SPPCON +SPPSTREAM STREAM FDEV) \FM.STATE-CHANGESTATE (FREEMENUITEM) \LEAF.FIX.BROKEN.SEQUIN (SEQUIN LEAFDATA +FDEV LEAFSTREAM STREAM) %%TWO-WAY-STREAM-DEVICE-EOFP (FDEV STREAM) PROCESS.WINDOW (PROCESS) COMP.PROG +(TAG) ONED.TRACKCURSOR (ONED.SELECTION) \INSTALL.EXTERNALFORMAT (EXTERNALFORMAT) \EVALFORM (LITATOM) +\GC.HANDLEOVERFLOW (HTOVERFLOW FIXP) SPP.CLOSE (SPPCON) \REMOVE.EXTERNALFORMAT (EXTERNALFORMAT) +\TFBRAVO.HANDLE.HEADING (FMTSPEC) DEFAULT.ADDNODEFN (GRAPH) \DRAWLINE.IP (IPSTREAM INTERPRESSDATA) +\DTEST.UFN (FIXP) WINDOW.MOUSE.HANDLER (WINDOW POSITION) %%FILL-POINTER-STREAM-DEVICE-GETFILEPTR ( +STREAM) FB.BROWSECOMMAND (FILEBROWSER) SCREENBITMAP (SCREEN WINDOW) \DEFINEFONT.PRESS (STREAM) +\BACKTRACE (FX) SETUPSTACK (IFPAGE) CREATE.NUMBERPAD.READER (MENU) DINFO.CLOSEFN (DINFOGRAPH) +\FM.STATE-SELECTEDFN (MENU FREEMENUITEM) \LEAF.HANDLE.INPUT (SEQUIN LEAFDATA LEAFERRORDATA LEAFPACKET +STREAM LEAFSTREAM) CHAT.TYPEOUT.CLOSE (CHAT.STATE) TEXTSTREAM (STREAM TEXTSTREAM TEXTOBJ) TB.REPAINTFN + (TABLEBROWSER) %%TWO-WAY-STREAM-DEVICE-CHARSETFN (STREAM) \SAVEVMBACKGROUND (IFPAGE) +\TEXTMENU.TOGGLEFN (SELECTION) \SETFVAR.UFN (VCELL) \LFHighestVersions (GeneratedFile) +\GET.EXTERNALFORMAT.FROM.NAME (EXTERNALFORMAT) %%SYNONYM-STREAM-DEVICE-GET-STREAM (STREAM) +DO.SHIFTED.SELECTION (MOUSEPOS LINE) \PROC.RESUME (FX) \GCMAPTABLE (HTOVERFLOW FIXP) +DEFAULT.INSPECTW.PROPCOMMANDFN (MENU) \FLUSHNSOCQUEUE (NSOCKET) \DSPRIGHTMARGIN.HCPYMODE (\DISPLAYDATA +) \INTERPRETER (LITATOM IFPAGE FNHEADER) \LFFindInfo (GeneratedFile FileDescriptor DLIONSTREAM) +TB.NUMBER.OF.ITEMS (TABLEBROWSER TABLEITEM) \LFWriteLeaderPage (DLIONSTREAM) TTYINBUFFERPEEK ( +TTYINBUFFERSTREAM) MKATOM (STRINGP) \TEDIT1 (TEXTSTREAM TEXTOBJ) \DSPFONT.HCPYMODE (CHARSETINFO) +\SPP.DEFAULT.ERRORHANDLER (STREAM SPPCON) \FM.STATE-SETUP (FREEMENUITEM) INVERT.BITMAP.B/W (BITMAP) +\LEAF.TIMEDIN (SEQUIN) \INSERTCH (TEXTOBJ STRINGP EDITMARK BTREENODE PIECE) \SPP.ESTABLISH (SPPCON +SPPXIP) PROCESS.EVAL (PROCESS) \TEDIT.SMALLER.CARET (TEXTOBJ) \TEDIT.COMMAND.RESET.SETUP (TEXTOBJ) +\PRINTFRAME (FX FNHEADER PVARSLOT FVARSLOT) ONFILE (MSANALYZABLE) FB.FASTSEECOMMAND (FILEBROWSER) +LISTP (POINTER) \PRINTBF (BF) \FLUSHPUPSOCQUEUE (PUPSOCKET) \CREATECHARSET.IP (CHARSETINFO +FONTDESCRIPTOR) \PEEKBIN (FDEV) COLLECT.CHILD.NODES (GRAPHNODE GRAPH) \DECODETRANSITION (KEYACTION +KEYBOARDEVENT) \LEAF.RECONNECT (PUPFILESERVER SEQUIN) DINFO.EXPANDFN (DINFOGRAPH) \SCANFORNTENTRY ( +FNHEADER) \LEAF.TIMEDOUT (SEQUIN) \RECLAIMSTACKP (STACKP FX) DECODE/WINDOW/OR/DISPLAYSTREAM (WINDOW) +TTYDISPLAYSTREAM (STREAM \DISPLAYDATA) EDITCALLERS (READER-ENVIRONMENT) DINFO.SHRINKFN (DINFOGRAPH) +CHARACTER (STRINGP) SEDIT::REPAINT (SEDIT::WEAK-LINK SEDIT::LINE-START SEDIT::STRING-ITEM) +\SETXFORM.PSC (\POSTSCRIPTDATA REGION) TB.COPYBUTTONEVENTFN (TABLEBROWSER) TTYINBUFFERBIN ( +TTYINBUFFERSTREAM) RECURSIVE.COLLECTDESCENDENTS (GRAPHNODE) \PFPutMarkerPage (PhysicalVolumeDescriptor +) \TEDIT.RESTARTFN (TEXTOBJ TEXTSTREAM STREAM) PRIN2 (READTABLEP STREAM) PRESSWINDOW (STREAM) +\TEDIT.NEWREGIONFN (POSITION) \DSKDISPLAY.CREATE.WINDOW (POSITION REGION) FB.MAKECOUNTERWINDOW ( +FILEBROWSER) CLEARW (WINDOW) SPP.CLEAREOM (SPPSTREAM) \BACKFILEPTR (FDEV) \FAX.PARSE.NAME (STRINGP) +\GETINTEGERPART (FIXP) FB.ADD.FILEGROUP (FILEBROWSER FBFILEDATA) MEASUREGRAPHNODE (GRAPHNODE) +\DRAWCURVE.IP (POSITION) FW-INIT-PROPS (POSITION) \FM.3STATE-CHANGESTATE (FREEMENUITEM) \DEFINEDEVICE +(FDEV) CL:COMPILED-FUNCTION-P (ARRAYP) MSINTERPRET (SENTENCE MSSETPHRASE MSANALYZABLE THAT PATHOPTIONS +) \PUTSYSBUF (RING) CL:MAKE-ECHO-STREAM (STREAM FDEV) U-CASE (LITATOM STRINGP PNAMEBASE) +\FTP.GETFILEINFO (STREAM) INITGC (HTCOLL) CL:MAKE-SYNONYM-STREAM (STREAM FDEV) CL:MAKE-TWO-WAY-STREAM +(STREAM FDEV) FIXVERBSETTYPE (MSSETPHRASE THAT) CHANGE.NODEFONT.SIZE (GRAPHNODE GRAPH) \VFMMerge1 ( +Interval Buffer Index) NEWLINE.PRESS (STREAM) PROCESS.APPLY (PROCESS) SCANFORWARD (LINE) +\TEDIT.LARGER.CARET (TEXTOBJ) \LEAF.WHENCLOSED (SEQUIN LEAFPACKET PUPFILESERVER) \LINEBLT (PILOTBBT) +\GETDEVICEFROMHOSTNAME (FDEV) \HARDCURSORUP (CURSOR BITMAP) \TEDIT.WORDDELETE (TEXTOBJ SELECTION +CHARTABLE PIECE TEXTSTREAM) FB.GETALLFILEINFO (FILEBROWSER) TTYINBUFFERREADP (TTYINBUFFERSTREAM) +MOVEDESCENDENTS (GRAPHNODE) \CURSORBITSPERPIXEL (CURSOR) COPYIMAGEOBJ (IMAGEOBJ) EQCLOOKS (CHARLOOKS +FONTCLASS) \FTP.DELETEFILE (FDEV) \PRINTNSADDRESS (STREAM) FB.MAKERIGIDWINDOW (REGION) +\TFBRAVO.PARSE.PARA (RUN) \CURSORDESTINATION (BITMAP CURSOR IOPAGE PILOTBBT) \CCODEARGLIST (FNHEADER) +PRESS.BITMAPSCALE (REGION) \CLOSEFILE (IMAGEOPS STREAM FDEV) \EVENT.DEFPRINT (EVENT) +DINFO.READ.KOTO.GRAPH (DINFOGRAPH) DOICONWINDOWCOM (WINDOW) \DELETEFILE (FDEV) PACK* (STRINGP CL:SYMBOL +) \LEAF.GETFILEINFO (STREAM PUPFILESERVER SEQUIN) \WWCHANGESCREENSIZE (SCREEN) \CCODEIVARSCAN ( +FNHEADER) \TFBRAVO.ADD.NAMEDTAB (FMTSPEC TEXTOBJ) \LEAF.IDLE? (SEQUIN) SPY.FIND.TREE (SPYRECORD) +\TFBRAVO.WRITE.RUNS (PARA RUN) FB.MAYBE.WIDEN.NAMES (FILEBROWSER) ICONW.SHADE (BITMAP) \SHIFT.DOCUMENT + (ARRAYP PIECE FMTSPEC) \BLKEXPONENT.UFN (FLOATP) POSTSCRIPT.FONTCREATE (PSCFONT FONTDESCRIPTOR +CHARSETINFO) \HARDCURSORPOSITION (IOPAGE) \NSNET.CLOSERP (NSADDRESS) \DEVICEEVENT (FDEV STREAM) +PARSE-NSADDRESS (STRINGP) \FM.3STATE-DOWNFN (FREEMENUITEM REGION) ICONPOSITION.FROM.WINDOW (WINDOW +REGION SCREEN) \SPP.HANDLE.DATA (SPPCON SPPXIP STREAM) FB.ADJUST.DATE.WIDTH (FILEBROWSER INFOFIELD +FBFILEDATA) \SOFTCURSORUP (CURSOR BITMAP PILOTBBT) \SPP.CREATE.WATCHER (SPPCON) \LFVersions ( +ExpandedName FDEV DLIONSTREAM) MENUWMINSIZEFN (MENU) TTYINBUFFEREOFP (TTYINBUFFERSTREAM) +\SOFTCURSORUPCURRENT (CURSOR BITMAP PILOTBBT) \TEDIT.LOOKS (TEXTOBJ SELECTION) \RTP.HANDLE.RFC (PORT) +OPENPRSTREAM (REGION STREAM) HPRINT.IMAGEOBJ (IMAGEFNS IMAGEOBJ) DOATTACHEDWINDOWCOM (MENU) +TB.DO.ITEM.SELECTION (TABLEBROWSER) FULLPRESSBITMAP (REGION STREAM) \FM.3STATE-SETUPOFFBITMAP ( +FREEMENUITEM REGION) \BLTSHADE.IP (INTERPRESSDATA IPSTREAM) CHAT.OPTIONMENU (MENU) FB.HEADINGW.DISPLAY + (REGION FILEBROWSER INFOFIELD) PRINTCURSOR (CURSOR) FILES?1 (FILEPKGTYPE) \CHARWIDTH.IP (CHARSETINFO) + \GENERATEFILES (FDEV) TB.MAKE.BROWSER (TABLEBROWSER) FASL::FAT-STRING-P (STRINGP) TTYINBUFFERBACKPTR +(TTYINBUFFERSTREAM) \RTP.FILTER (BSPSOC) \FTP.REGISTER (STREAM) \MONITORLOCK.DEFPRINT (MONITORLOCK) +IRM.LOOKUP (DINFOGRAPH) CL:PROBE-FILE (STREAM) SCANBACK (LINE) PRINTPACKETQUEUE (SYSQUEUE) \LEAF.IDLE +(SEQUIN FDEV LEAFSTREAM) \SPP.RELEASE.ACKED.PACKETS (SPPCON) \TFBRAVO.WRITE.RUN (RUN CHARLOOKS) +DINFO.CREATE.GRAPH.WINDOW (DINFOGRAPH REGION) \FM.3STATE-SETUP (FREEMENUITEM) CL:READ-BYTE (FDEV +STREAM) ONEDINSPECT.ADJUSTSELECTION (ONED.SELECTION) TB.REDISPLAY.ITEMS (TABLEBROWSER) CL:VALUES (FX) +TOPW.ADJUSTSELECTION (ONED.SELECTION) OPT.DELCODE (TAG) \TEDIT.TEXTBIN.NEW.PAGE (TEXTSTREAM STREAM) +\SIMULATE.UNBIND (FX) FB.STARTUP (MENU) \PFGetMarkerPage (PhysicalVolumeDescriptor) \GETFILENAME (FDEV +) CL:VALUES-LIST (FX) SEDIT::BACKSPACE (SEDIT::EDIT-NODE) CL:READ-LINE (FDEV STREAM) \GENERIC.OUTFILEP + (FDEV) \PUTONSCREENW (REGION WINDOW SCREEN) \LOADNSADDRESS (NSADDRESS) FB.SETNEWPATTERN (FILEBROWSER) + \MAKE.PROCESS1 (FX) SEDIT::PRINT-STRING (WINDOW STRINGP STREAM) \TEDIT.UNPARSE.CHARLOOKS.LIST ( +CHARLOOKS) \TEXTSETEOF (STREAM BYTEPTR) CL:READ-FROM-STRING (FDEV) \PROCESS.MOVEFRAME (FX BF FSB) +\FTP.UNREGISTER (FDEV STREAM) CL::VALUES-UFN (FX) SEDIT::RELINEARIZE (REGION) +SORT.NSADDRESSES.BY.DISTANCE (NSADDRESS) \LFCASEARRAYFETCH (ARRAYP) CL::VALUES-LIST-UFN (FX) +\TEDIT.MAINW (TEXTOBJ) \LEAF.OPENFILE (STREAM PUPFILESERVER LEAFSTREAM SEQUIN) \OPENFILE (STREAM FDEV) + \SPPCONNECTION (SPPCON) TB.DO.UNLESS.BUSY (TABLEBROWSER) \LEAF.OPENERRORHANDLER (SEQUIN) +\SPP.HANDLE.ATTN (SPPCON SPPXIP) \CLEARSYSBUF (RING) MENUWRESHAPEFN (MENU REGION) CL:RENAME-FILE ( +STREAM) CHARSET (IMAGEOPS STREAM) PAINTW.READCOMMAND (MENU) \GETSYSBUF (RING) \IMAGEUSERPROP (IMAGEOBJ +) SETFILEINFO (STREAM FDEV BYTEPTR) CALL.MOVENODEFN (GRAPH) ICMLARRAY.GETMENUWGROUP (POSITION REGION) +LISTHARD (MSSETPHRASE) \TEXTOUTCHARFN (TEXTOBJ TEXTSTREAM) \FTPINIT (FDEV) WHO-LINE-VMEM (IFPAGE) +\TEDIT.ITALIC.CARET.OFF (TEXTOBJ) \WRITEPRESSBITMAP (REGION STREAM) \ONSCREENW (SCREEN WINDOW REGION) +\NSYSBUFCHARS (RING) \RECLAIMCODEBLOCK (FNHEADER) SEDIT::SCAN-FOR-BOUNDS (SEDIT::WEAK-LINK +SEDIT::LINE-START SEDIT::STRING-ITEM) PAINTW.READMODE (MENU) FILEPKGTYPE (FILEPKGTYPE) +COURIER.WRITE.SEQUENCE.UNSPECIFIED (STRINGP) SEDIT::INSERT-COMMENT (SEDIT::EDIT-SELECTION) +EDITMOVESUBTREE (GRAPH) \TEDIT.ACTIVE.WINDOWP (TEXTOBJ) HARDCOPYW (REGION SCREENREGION BITMAP) +\SYSBUFP (RING) \SFFixY.HCPYMODE (\DISPLAYDATA BITMAP CHARSETINFO) \LEAF.WRITEPAGES (STREAM LEAFDATA +LEAFSTREAM) DINFO.GET.GRAPH.WINDOW (DINFOGRAPH) \ICONW.REPAINTFN (BITMAP) \FM.TOGGLE-CHANGESTATE ( +FREEMENUITEM) \PEEKSYSBUF (RING) ADDTOFILES? (FILEPKGTYPE) FB.SET.BROWSER.TITLE (FILEBROWSER) +\KEYBOARDINIT (RING) INSPECT.INVERTSELECTION (INSPECT.SELECTION) \DSPOPERATION.IP (INTERPRESSDATA) +ORDERFROMBOTTOMTOTOP (SCREEN WINDOW) \SETLOCALNSNUMBERS (IFPAGE) \RENAMEFILE (FDEV) \ALLOCLOCKED ( +POINTER) \REVALIDATEFILE (FDEV) GRAPHBUTTONEVENTFN (GRAPH) CREATEHASHFILE (STREAM HashFile) +KEYACTIONTABLE (KEYACTION) MOVEATTACHEDWINDOWTOPLACE (REGION) OPENPUPSOCKET (PUPSOCKET) +\LEAF.READPAGES (LEAFSTREAM SEQUIN STREAM LEAFDATA) DELETE.LONG.SEGMENT1 (LINE) \RECLAIMARRAYBLOCK ( +ARRAYBLOCK) FB.DISPLAY.COUNTERS (FILEBROWSER) \PROCESS.EVENTFN (EVENT) PRINTBITMAP (BITMAP) TEDIT.REDO + (TEXTOBJ SELECTION) TOPW.BUTTONEVENTFN (ONED.SELECTION) \PAGED.REVALIDATEFILELST (FDEV) +\TEXTOPENF-SUBTREE (PCTNODE PIECE STREAM) \CAR.UFN (LISTP) \PRINT-REVALIDATION-RESULT (STREAM) +\CHARWIDTH.HCPYMODE (\DISPLAYDATA) \CDR.UFN (LISTP POINTER) \LFDirectorySearch (DIRSEARCHSTATE +DLIONSTREAM FDEV STREAM) \LFFindDirHole (ExpandedName DLIONSTREAM FDEV STREAM) \KEYBOARDEVENTFN ( +IFPAGE) NTYPX (POINTER) TWODINSPECT.REPAINTFN (REGION) CLOSEW (SCREEN WINDOW) \DELETECH (TEXTOBJ PIECE +) KEYACTION (KEYACTION) \CHANGECHARSET.HCPYMODE (CHARSETINFO) \LEAF.TRUNCATEFILE (LEAFDATA LEAFSTREAM) + GETBOXPOSITION.FROMINITIALREGION (REGION) BREAK.PROCESS (PROCESS) \TEDIT.SHOWCARETLOOKS (TEXTOBJ +CHARLOOKS) \FM.TOGGLE-DOWNFN (FREEMENUITEM REGION) \KEYBOARD.MACHINE-SPECIFIC-KEYACTIONS (IFPAGE) +\UNWIND.UFN (FX) PFI.PRINT.BITMAP (STREAM) TEDIT.NEXT (TEXTOBJ SELECTION) \CHECKAPPLY* (LITATOM) +\PAGED.REVALIDATEFILES (STREAM FDEV) ICMLARRAY (REGION) MSINTERPA (MSSETPHRASE) FB.CREATE.FILEBUCKET ( +FILEBROWSER FBFILEDATA) TEDIT.STYLESHEET (TEXTOBJ) LOADPOLY (POLYNOMIAL) \TEDIT.GET.CHARLOOKS (PIECE) +\BUFFERED.REVALIDATEFILE (FDEV) OVERLAPPINGWINDOWS (SCREEN WINDOW) \HTFIND (MDSTYPEWORD POINTER GC +HTCOLL) \BUFFERED.REVALIDATEFILELST (FDEV) PAINTW.READBRUSHSIZE (MENU) \SCALEDBITBLT.IP ( +INTERPRESSDATA IPSTREAM REGION) \LEAF.SETFILEINFO (STREAM) \TRUNCATEFILE (FDEV) DINFO.LOOKUP ( +DINFOGRAPH) \FM.TOGGLE-SETUP (FREEMENUITEM) \SETGLOBALVAL.UFN (VALINDEX) \FILE-CONFLICT (STREAM FDEV) +\PAGED.REVALIDATEFILE (FDEV) DINFO.FIND (DINFOGRAPH) \TEDIT.ABBREV.EXPAND (TEXTSTREAM TEXTOBJ +SELECTION) \RPLACA.UFN (LISTP) GETDEFN (LITATOM) ICMLARRAY.GETREGIONFN (REGION POSITION) \PFNewPages ( +FileDescriptor PageGroup) \RPLACD.UFN (LISTP POINTER CONSPAGE) NSNET.DISTANCE (NSADDRESS) +\PROCESS.MAKEFRAME0 (FX FSB FNHEADER LITATOM) MENU (MENU) REHASHFILE (HashFile) TB.ITEM.FROM.YCOORD ( +TABLEBROWSER) \CONS.UFN (LISTP CONSPAGE POINTER) GROW/REGION (REGION) ShowIntervals (Interval) NEWDEFC + (ARRAYP) TEDIT.PARALOOKS (SELECTION TEXTOBJ FMTSPEC PIECE) PAINTW.READBRUSHSHAPE (MENU) +\RESETKEYBOARD (KEYBOARDEVENT RING) SHOWREGION (REGION) FB.INSERT.FILE (FILEBROWSER FBFILEDATA) +TOLINKS (GRAPHNODE) \ENDPAGE.PRESS (STREAM FDEV) \CHECK.PQUEUE (PROCESS) TWODINSPECT.BUTTONEVENTFN ( +TWOD.SELECTION) TEDIT.SUBSTITUTE (PIECE TEXTOBJ SELECTION STRINGP) \FINDKEY.UFN (FX BF) \VFMInsert1 ( +Buffer Index) PPROC1 (MONITORLOCK) SETINTERRUPT (KEYACTION) CLRPROMPT (WINDOW) GRAPHADDLINK (GRAPH +GRAPHNODE) GETWINDOWPROP (WINDOW SCREEN) MSINTERPRETSET (MSSETPHRASE SENTENCE APPLY INRELATION GETHASH + QUOTE CSET IN BLOCKS FIELDS THAT MSVERB CVERB PATHS) NUMBERPAD.READ (MENU) GETINTERRUPT (KEYACTION) +\PRESSCURVE2 (STREAM SPLINE) \KEYACTION1 (KEYACTION) \LEAF.GETFILENAME (PUPFILESERVER SEQUIN STREAM) +\RESTLIST.UFN (FX BF) FULLNAME (STREAM) \PROCESS.MAKEFRAME (IFPAGE) SCROLLBYREPAINTFN (REGION SCREEN +WINDOW) \READBINARYBITMAP (BITMAP) \RPLCONS (POINTER CONSPAGE LISTP) \FIXDLINES (TEXTOBJ +LINEDESCRIPTOR) MSNEXTWORD (PARSED MSVERB) WHICHW (POSITION SCREEN WINDOW) IMAGEFNSP (IMAGEFNS) +COURIER.WRITE.STRING (STRINGP) \INSUREWINDOW (WINDOW) GETFILEINFO (STREAM FDEV) \ENVCALL.UFN (IFPAGE) +\FILE.NOT.OPEN (STREAM) \FILE.WONT.OPEN (STREAM) ICONW.PRINT-JUSTIFIED (REGION) \STKSCAN (FX VALINDEX +FNHEADER BF PVARSLOT FVARSLOT) PUTDEFN (LITATOM CODEARRAY DEFINITIONCELL POINTER) DSPFILL (REGION) +\LFFileName (ExpandedName) SETHASHSTATUS (HashFile) \MAIKO.IO-INTERRUPT (INTERRUPTSTATE) MSNEGATESET ( +MSSETPHRASE) \IS.NOT.RANDACCESSP (STREAM) \MISCN.UFN (BF MISCN-UFN-ENTRY FX) \LFMakeDirHole ( +FileDescriptor DLIONSTREAM) TB.ITEM.VISIBLE? (TABLEBROWSER REGION) DINFO.ADD.FMENU (DINFOGRAPH) +\UNBOXFLOAT3 (FX) TEDIT.UNDO (TEXTOBJ) CL::%%STATS-OBJECT-DIFFERENCE (MISCSTATS) RESETKEYACTION ( +KEYACTION) MB.NWAYBUTTON.SELFN (SELECTION) \TYPEMASK.UFN (POINTER) RESHAPEBYREPAINTFN (REGION) TOPWP ( +SCREEN WINDOW) FIND.PROCESS (PROCESS) TWODINSPECT.COPYBUTTONFN (TWOD.SELECTION) \TEXTCLOSEF-SUBTREE ( +PCTNODE PIECE) \HANDLE.NS.ROUTING.INFO (NSROUTINGINFO FIXP) \PRINDATUM (READTABLEP) \TEDIT.DELETE ( +SELECTION TEXTOBJ LINEDESCRIPTOR) CL:TRUENAME (STREAM) \DRAWLINE.UFN (BITMAPWORD) DINFO.INVERT.NODE ( +GRAPH GRAPHNODE DINFOGRAPH) DINFO.DEFAULT.MENU (DINFOGRAPH) \FM.MOMENTARY-SETUP (FREEMENUITEM) +\STORE.N.UFN (FX) \MAIKO.ETHER-INTERRUPT (INTERRUPTSTATE) \PARAS.IN.SEL (SELECTION PIECE) \COPY.N.UFN +(FX) OPT.FRAMEDEL (FRAME TAG) SHADEITEM (MENU REGION) \NSFILING.GETFILE (STREAM) \LFMakeLeaderPage ( +LeaderPage FileDescriptor) \MAIKO.CONSOLE-LOG-PRINT (INTERRUPTSTATE) REPLACEHASHKEY (HashFile) \RETURN + (FX) \PFTransferPage (DLION.DOB IFPAGE) \CURVE2 (SPLINE \DISPLAYDATA BITMAP) ERROR! (FX) +CHECK/MENU/IMAGE (MENU WINDOW BITMAP) \LFMakeDirEntry (ExpandedName FileDescriptor DLIONSTREAM) +\MYARGCOUNT (BF FX) PARAMETRICSPLINE (POSITION) \ARG0 (FX BF) \FILINGSESSION.DEFPRINT (WINDOW) +TEDIT.INSERT (SELECTION TEXTOBJ TEXTSTREAM STRINGP) TB.RESHAPEFN (TABLEBROWSER) \PRINTBINARYBITMAP ( +BITMAP) \DRAWPOLYGON.IP (POSITION) FB.INCREASING.VERSION (FBFILEDATA) PRIN3 (READTABLEP) +SHIFT.BITMAP.UP (BITMAP) GETBOXPOSITION (SCREENPOSITION) DISPLAYLINK (GRAPH) \CLOSEF.PRESS (STREAM) +FW-INIT-MENUS (MENU) \PRINT-USING-ADDRESS (READTABLEP) RIGHTW.ADJUSTSELECTION (ONED.SELECTION) +\PROCESS.GO.TO.SLEEP (EVENT FX) HEIGHTIFWINDOW (SCREEN) ADDMENU (MENU REGION POSITION SCREEN) +DINFO.LAYOUTGRAPH (DINFOGRAPH DINFONODE) TEDIT.RESET.EXTEND.PENDING.DELETE (SELECTION TEXTOBJ) +CURRENTINTERRUPTS (KEYACTION) DO.INSERT.LINE (LINE REGION) \TEDIT.CENTER.SEL.REV (SELECTION) +RESET.INTERRUPTS (KEYACTION) DINFO.SHOWGRAPH (REGION) \FM.INSUREVISIBLE (REGION) +FB.CANONICAL.DIRECTORY (FILEBROWSER) RIGHTW.BUTTONEVENTFN (ONED.SELECTION) FIND.PACKAGE (HARRAYP +HASHSLOT) PRESSBITMAP (REGION STREAM) \FM.CLEARITEM (FREEMENUITEM REGION) INSERTHASHKEY (HashFile) +\GCRECLAIMCELL (GCPTR) \GCSCAN1 (GC) \GETWINDOWHEIGHT (REGION WINDOW SCREEN) FB.MAKE.BROWSER.BUSY ( +FILEBROWSER) \LEAF.REOPENFILE (LEAFINFOBLOCK LEAFSTREAM STREAM) \GETWINDOWWIDTH (REGION WINDOW) +PROCESS.NAME (PROCESS) CREATE.NEW.NODEPOSITION (GRAPHNODE POSITION) \RETCALL (IFPAGE) %%AREF1 ( +ARRAY-HEADER) COERCETOBITMAP (REGION) %%ASET1 (ARRAY-HEADER) MSONPATH (PATHOPTIONS) \FDEVINSTANCE ( +FDEV) OPENWP (WINDOW) OPT.FRAMELOCAL (FRAME) \POP.N.UFN (FX) TRANSGRAPH (GRAPH GRAPHNODE) CL::%%EQCODEP + (COMPILED-CLOSURE CL:SYMBOL) \FTP.RENAMEFILE (FDEV) \GETBASEBYTE (WORD) FW-WIPE (FW-OFD) \VFMGet1 ( +Interval Index) \MAKEPCTB (BTREENODE PIECE) \LEAF.EVENTFN (PUPFILESERVER FDEV) VECTOR-LENGTH ( +ARRAY-HEADER) FW-RE-INIT (FW-OFD) FB.FINISH.COMMAND (FILEBROWSER MENU) DIRECTORYNAME (FDEV) \BITBLT.IP + (INTERPRESSDATA IPSTREAM REGION) \TEDIT.FOREIGN.COPY? (SELECTION TEXTOBJ) MSMATCHRATING (PARSED +MSSETPHRASE) PROCESS.BACKTRACE (REGION PROCESS) \TEDIT.COPY.PIECEMAPFN (PIECE TEXTOBJ) +UNMAKEHARDCOPYMODESTREAM (STREAM REGION) \ADDBASE (FIXP) DINFO.WRITE.GRAPH (DINFOGRAPH) +LEAF.ASSURE.FINISHED (LEAFSTREAM SEQUIN STREAM) FB.EXPUNGECOMMAND (FILEBROWSER) CL::%%PRINT-TIMING-INFO + (MISCSTATS) SHIFT.BITMAP.DOWN (BITMAP) SHIFT.BITMAP.LEFT (BITMAP) LOOKUP-SYMBOL (ONED-ARRAY) FW-RESET + (FW-OFD) FB.REMOVE.FILE (FBFILEDATA) \CHARWIDTH.PRESS (STREAM CHARSETINFO) DSPSCROLL (STREAM) +RESHAPEALLWINDOWS (REGION RESHAPINGWINDOWDATA) \SLOWIPLUS2 (FIXP) DINFO.HISTORIC.UPDATE (DINFOGRAPH) +SCRATCHCONS (TTYINBUFFER) GETPROMPTWINDOW (REGION) \SLOWIDIFFERENCE (FIXP) FB.MAYBE.EXPUNGE ( +FILEBROWSER) SHIFT.BITMAP.RIGHT (BITMAP) SHIFTDOWNP (KEYBOARDEVENT) \SLOWITIMES2 (FIXP) +OLD.FIND.SYMBOL (PNAMEBASE PNAMEINDEX LITATOM) \SLOWIQUOTIENT (FIXP) MSSIMPLESET (SENTENCE QUOTE) +DIRECTORYNAMEP (FDEV) DOWINDOWCOM (WINDOW MENU) TEDIT.DELETE (TEXTOBJ) IREMAINDER (FIXP) +SYMBOL.PACKAGE (LITATOM ONED-ARRAY) HOSTNAMEP (FDEV) \TEDIT.MARK.LINES.DIRTY (TEXTOBJ LINEDESCRIPTOR) +\LFGenFileID (LogicalVolumeDescriptor) BMOBJ.DISPLAYFN (BITMAPOBJ) GETHASHKEY (HashFile) \FIRSTNODE ( +BTREENODE) \LEAF.DIRECTORYNAMEP (PUPFILESERVER) DECODE-NS-STRING (STRINGP) \SLOWLLSH1 (FIXP) SUBATOM ( +LITATOM STRINGP) \FM.CHANGELABEL (REGION FREEMENUITEM) \LEAF.FLUSH.CACHE (SEQUIN LEAFSTREAM) +\SLOWLLSH8 (FIXP) \SPP.HANDLE.INPUT (SPPCON XIP SPPHEAD) CHCON1 (STRINGP LITATOM) \SLOWLRSH1 (FIXP) +UNPACKFILENAME.STRING (STRINGP) MENUWINDOW (MENU) \FINDPIECE (PCTNODE) \SLOWLRSH8 (FIXP) BURYW (SCREEN + WINDOW) MBUTTON.FIND.NEXT.FIELD (TEXTOBJ CHARLOOKS PIECE SELECTION) \SLOWLOGOR2 (FIXP) SHRINKW ( +SCREEN WINDOW) \TEDIT.WINDOW.OPS (TEXTOBJ) \ONQUEUE (SYSQUEUE) ADD/AND/DISPLAY/LINK (GRAPHNODE) +\SLOWLOGAND2 (FIXP) MOVEW (SCREEN WINDOW) FB.MAYBE.INSERT.FILE (FILEBROWSER FBFILEDATA) +\VFMGetInterval (LogicalVolumeDescriptor Interval Index) \SLOWLOGXOR2 (FIXP) \BINS (FDEV) +\SMASHBSPSTREAM (BSPSTREAM STREAM) \FM.HIGHLIGHTITEM (FREEMENUITEM REGION) \CURVESLOPE (POSITION +SPLINE) MB.NB.WHENOPERATEDFN (SELECTION) FIND.START.OF.WORD (CHARTABLE) \BOUTS (FDEV) \PFFindFileSize +(PageGroup FileDescriptor) BMOBJ.IMAGEBOXFN (BITMAPOBJ) \VFMGet (LogicalVolumeDescriptor Interval) +%%EXTEND-ARRAY (ARRAY-HEADER TWOD-ARRAY) TB.WINDOW (TABLEBROWSER) ONEDINSPECT.REPAINTFN (REGION) +REMWINDOWPROP (WINDOW) FB.PRINTFN (FBFILEDATA STRINGP FILEBROWSER INFOFIELD) \LEAF.RENAMEFILE (FDEV) +SAMECLOOKS (CHARLOOKS) COPYBYTES (BYTEPTR FDEV STREAM) SHOWSHADE.IP (REGION) \UNBOXFLOAT2 (FX FLOATP) +\GETEOFPTR (FDEV) CREATEMENUEDWINDOW (MENU REGION) SPYOBJ.LABEL (SPYOBJDATA) UNSAVEFNS (MSANALYZABLE) +\UNBOXFLOAT1 (FX FLOATP) \BUFFERED.COPYBYTES (FDEV) %%AREF2 (TWOD-ARRAY GENERAL-ARRAY ARRAY-HEADER) +\POPSTATE.IP (IPSTATE) RANDACCESSP (FDEV STREAM) CURSOR.INIT (BITMAP) %%ASET2 (TWOD-ARRAY +GENERAL-ARRAY ARRAY-HEADER) \SETFILEPTR (FDEV) \CHANGE-VISIBLE-REGION.IP (INTERPRESSDATA REGION +FONTDESCRIPTOR) \LFDirectoryScrambled (LogicalVolumeDescriptor DLIONSTREAM) \SLOWIGREATERP (FIXP) +%%ALTER-AS-DISPLACED-TO-BASE-ARRAY (GENERAL-ARRAY) \GETSTREAM (LINEBUFFER STREAM WINDOW) +\SLOWFGREATERP (FLOATP FIXP) \DSPXPOSITION.PRESS (STREAM) COPYCHARS (BYTEPTR FDEV STREAM) +\LEAF.BREAKCONNECTION (PUPFILESERVER FDEV) \INCHAR (STREAM) SPYOBJ.HEIGHT (SPYOBJDATA) GETCURSORPROP ( +CURSOR) EQUAL (FIXP STACKP) \SPP.RETRANSMIT.NEXT (SPPCON SPPXIP) PRETTYFILEINDEX (STREAM) +PUTCURSORPROP (CURSOR) \BOXIPLUS (FIXP) %%ALTER-AS-DISPLACED-ARRAY (ARRAY-HEADER GENERAL-ARRAY) +\BOXIDIFFERENCE (FIXP) \TEDIT.REOPEN.STREAM (TEXTOBJ PIECE) CLEAR.LEAF.CACHE (PUPFILESERVER SEQUIN) +TEDIT.PROMPTPRINT (TEXTOBJ) \HCPYMODEDSPPRINTCHAR (CHARTABLE) EXTENDABLE-ARRAY-P (ARRAY-HEADER) +CL:ARRAY-DIMENSION (ARRAY-HEADER GENERAL-ARRAY) \CREATEPIECEORSTREAM (STRINGP STREAM PIECE) OPENSTREAM + (STREAM) ONEDINSPECT.BUTTONEVENTFN (ONED.SELECTION) CL:ADJUSTABLE-ARRAY-P (ARRAY-HEADER) +INSURE.WINDOW (WINDOW) SEDIT::OUTPUT-STRING (SEDIT::STRING-ITEM) IDLE.BITMAP (REGION) CL:FILL-POINTER +(ARRAY-HEADER) CLOSEF (STREAM) \PFFindPageAddr (FileDescriptor PageGroup) BITSPERPIXEL (BITMAP SCREEN +WINDOW) DELETEHASHKEY (HashFile) ARRAY-NEEDS-INDIRECTION-P (ARRAY-HEADER) TEDIT.SUBLOOKS (TEXTOBJ +PIECE) FB.COPY/RENAME.MANY (FILEBROWSER FBFILEDATA) \FM.DISPLAYITEM (FREEMENUITEM REGION) +ONEDINSPECT.COPYBUTTONFN (ONED.SELECTION) \TEDIT.BOLD.CARET.ON (TEXTOBJ) FW-FORGET-CMD (FW-OFD) +CL:ARRAY-HAS-FILL-POINTER-P (ARRAY-HEADER) \TEDIT.CLOSEUPLINES (TEXTOBJ LINEDESCRIPTOR) +EQUAL-DIMENSIONS-P (ARRAY-HEADER GENERAL-ARRAY TWOD-ARRAY) TEDIT.OBJECT.CHANGED (TEXTOBJ PIECE) +FB.GET.NEW.FILE.SPEC (FILEBROWSER) %%DO-LOGICAL-OP (PILOTBBT) TEDIT.PUT.PCTB (TEXTOBJ STREAM PIECE +STRINGP) TEDIT.DO.BLUEPENDINGDELETE (TEXTOBJ SELECTION) \NSFILING.CONFLICTP (FDEV) BIT-ARRAY-P ( +ARRAY-HEADER) CURSORCREATE (POSITION) FW-CREATEW (FW-OFD) \UFStoOtherCopyMess (FDEV) HASHFILEDATA ( +HashFile) STKPOS (FX) \VFMReadNext (Buffer Index) \CURSORUP (BITMAP CURSOR) OPT.CODEFRAME (TAG) +TEDIT.UNDO.PARALOOKS (TEXTOBJ PIECE) \DSPYPOSITION.PRESS (STREAM) TEDIT.LOOKS (SELECTION TEXTOBJ) +\VFMGetBufferFor (\BTREEBUF) \CURSOR-VALID-P (CURSOR) \LOCATE.PUPNET (ROUTING) +\TEDIT.FLUSH.UNUSED.LOOKS (TEXTOBJ CHARLOOKS FMTSPEC PIECE) DEFAULTMAKENEWCOM (FILEPKGCOM FILEPKGTYPE) + \TEDIT.SHOWSELS (TEXTOBJ SELECTION) SETFILEPTR (FDEV BYTEPTR STREAM) \VECFONTINIT (ARRAYP +FONTDESCRIPTOR) CURSORP (CURSOR) \SETUPGETCH (TEXTOBJ TEXTSTREAM EDITMARK STREAM PIECE) +CENTERPRINTINREGION (REGION) TEDIT.SELECTED.PIECES (SELECTION TEXTOBJ PIECE) ADJUSTCURSORPOSITION ( +POSITION) MAKEHARDCOPYMODESTREAM (STREAM) \TEDIT.SET.SEL.LOOKS (SELECTION) EOFP (FDEV STREAM) +\TELERAIDBREAK (IFPAGE FX BF FSB FNHEADER LITATOM) \CURSORPOSITION (IOPAGE) \SPP.NOT.RESPONDING ( +SPPCON) FORCEOUTPUT (FDEV) \FM.PUTITEMPROP (FREEMENUITEM) \FLUSH.OPEN.STREAMS (FDEV STREAM) EQDEFP ( +COMPILED-CLOSURE) \PUTBASEFIXP.UFN (FIXP) \TEDIT.CENTER.SEL (SELECTION) COPYATOM (STRINGP) GETHASHTEXT + (HashTextPtr HashFile) ACCESS-CHARSET (FDEV STREAM) \BIGNUM.LSH (BIGNUM) CURSORPOSITION (STREAM +POSITION \DISPLAYDATA SCREENPOSITION) GETEOFPTR (FDEV) GTHASHFILE (HashFile) \RSH (FIXP) CURSORSCREEN +(SCREEN) SEDIT::NEXT-LINEAR-ITEM (SEDIT::WEAK-LINK) FROM.SCREEN.BITMAP (SCREENREGION REGION) FIND.LINE + (LINE) TB.MAP.DELETED.ITEMS (TABLEBROWSER) POSTSCRIPT.GETFONTID (FONTID) \CHTOPCNO (PCTNODE) +%%FAST-COPY-BASE (PILOTBBT) \FILLINXIP (NSOCKET NSADDRESS NSHOSTNUMBER) COPY-ARRAY (ARRAY-HEADER) +\TEDIT.INSERT.PIECES (TEXTOBJ PIECE) \CHANGECHARSET.HDCPYDISPLAY (CHARSETINFO) OPT.CODELEV (TAG FRAME) + \LEAF.LOOKUPCACHE (LEAFSTREAM) \TEDIT.CHANGE.LOOKS (TEXTOBJ CHARLOOKS FONTCLASS PIECE) COPY-VECTOR ( +ARRAY-HEADER) DISPLACED-ARRAY-P (ARRAY-HEADER) TEDIT.UNDO.LOOKS (TEXTOBJ PIECE) GETFILEPTR (FDEV) +\VFMLower (Key) CURSOREXIT (SCREEN) DINFO (DINFOGRAPH) \NSRANDOM.CREATE.STREAM (STREAM) LASTMOUSEY ( +STREAM) \SETEOFPTR (FDEV) LASTMOUSEX (STREAM) FW-CREATE-OFD-WINDOWS (FW-OFD) TEDIT.REDO.LOOKS (TEXTOBJ + SELECTION) \OUTCHARFN.PRESS (STREAM REGION) FILL-ARRAY (ARRAY-HEADER) \OPENLEAFCONNECTION (SEQUIN +LEAFDATA LEAFPACKET LEAFERRORDATA LEAFPARAMSDATA) \PFRemoveDirectoryID (RootDirectory) \PUSHSTATE.IP ( +IPSTATE) \NSFILING.FULLNAME (FILINGHANDLE) CURSORHOTSPOT (POSITION) GETMOUSESTATE (KEYBOARDEVENT) +SPY.PRINT (SPYRECORD) FSETVAL (LITATOM) CHARLOOKS.FROM.FONT (CHARLOOKS) TEDIT.SCANSEL (TEXTSTREAM +TEXTOBJ SELECTION) HASHFILEP (HashFile) %%MAKE-DISPLACED-ARRAY (ARRAY-HEADER) CHARPOS (STREAM) +\HDCPYBLTCHAR (\DISPLAYDATA) OPT.RETMERGE (TAG JUMP) \FM.GETITEMPROP (FREEMENUITEM) \FM.EDIT-DELETE ( +FREEMENUITEM REGION) CHAT.SCREENPARAMS (CHAT.STATE) COURIER.READ.STRING (STRINGP) \TTW1 (WINDOW SCREEN +) READ-ONLY-ARRAY-P (ARRAY-HEADER) SHOWBITMAP1.IP (BITMAP) SEDIT::SET-SELECTION-QUOTE (SEDIT::EDIT-NODE +) MSMARKCHANGED (MSANALYZABLE) TEDIT.REDO.PARALOOKS (TEXTOBJ SELECTION) \VFMMerge (Interval) HLSTORGB +(HLS) EDIT.BITMAP (CURSOR) \TEDIT.BOLD.CARET.OFF (TEXTOBJ) \FM.EDIT-WORDDELETE (FREEMENUITEM REGION) +CHAT.LOGIN (CHAT.STATE) BIT.IN.ROW (BITMAP) ETHERHOSTNAME (PORT STRINGP) OPT.RETTEST (TAG JUMP) +CL:SIMPLE-VECTOR-P (ARRAY-HEADER) \LEAF.REQUESTPAGE (LEAFSTREAM LEAFDATA) SCAVENGEDSKDIRECTORY (LFDEV +LogicalVolumeDescriptor) CL:SIMPLE-BIT-VECTOR-P (ARRAY-HEADER) \TEDIT.HISTORYADD (TEXTOBJ +TEDITHISTORYEVENT) \SLOWHDCPYBLTCHAR (STREAM FONTDESCRIPTOR \DISPLAYDATA PILOTBBT BITMAP CHARSETINFO) +\LFFileSpec (ExpandedName) \SETDAYTIME0 (FIXP) CLEARHASHFILES (HashFileEntry HashFile) +\VFMGenerateFileIDs (Key Interval) \HANDLE.PUP.ROUTING.INFO (PUPROUTINGINFO) MSOBJTYPE (CVERB MSVERB) +\FM.EDIT-BACKUP (REGION FREEMENUITEM) CL:VECTOR-POP (ARRAY-HEADER) TEDIT.COPY.PARALOOKS (PIECE +SELECTION) %%AREF0 (ARRAY-HEADER) SEDIT::SET-SELECTION-LIST (SEDIT::STRING-ITEM SEDIT::EDIT-NODE) +TB.UNDELETE.ITEM (TABLEITEM TABLEBROWSER) INITUFNTABLE (OPCODE) MSSUBJTYPE (CVERB MSVERB) +\INTERNALTOTOPW (WINDOW SCREEN) REGIONONSCREEN (POSITION) CHARACTER.PRINT (READTABLEP) BIT.IN.COLUMN ( +BITMAP) %%ASET0 (ARRAY-HEADER) \10MBRAWRECEIVE (Dove.EtherIOCB) MODERN-MENUBUTTONFN (MENU) \PUTFIXP ( +FIXP) CL::ROW-MAJOR-ASET (ARRAY-HEADER) \PUTSWAPPEDFIXP (FIXP) WORD.MATCHES.BUFFER (CHARTABLE) +SCALE/TONODES (GRAPHNODE) XCL:ROW-MAJOR-AREF (ARRAY-HEADER) \STRINGWIDTH.HCPYDISPLAYAUX (LITATOM +PNAMEBASE CHARSETINFO READTABLEP STRINGP) \GENERIC.RENAMEFILE (FDEV) \GENERIC.OPENP (FDEV STREAM) +TEDIT.MAKESEL (TEXTOBJ TEXTSTREAM SELECTION) SAMEPARALOOKS (FMTSPEC) \VECPUT (STREAM) +\TOTALFIXEDHEIGHT (RESHAPINGWINDOWDATA) GETSCREENPOSITION (SCREEN WINDOW) \INSERT.FIRST.PIECE (TEXTOBJ + PIECE) \BACKCCODE (STREAM) TB.MAP.ITEMS (TABLEBROWSER) SEDIT::COPY-SELECTION (SEDIT::EDIT-SELECTION) +\TITLEICONMINSIZE (SCREEN WINDOW) EDITTOGGLELABEL (GRAPH) \INCCODE (STREAM) +\TEDIT.GET.SINGLE.PARALOOKS2 (FMTSPEC) \COURIER.ATTENTIONFN (FDEV STREAM) GETHASH (HARRAYP HASHSLOT) +OPT.RETPOP (TAG) \PEEKCCODE (STREAM) TEDIT.SELECT (TEXTOBJ SELECTION FMTSPEC LINEDESCRIPTOR) +TEDIT.SUBPARALOOKS (TEXTOBJ PIECE) \INSPECTW.REDISPLAYPROP (SELECTABLEITEM) \TEDIT.WORD.BOUND (TEXTOBJ + CHARTABLE) PREVWORD (LINE CHARTABLE) MSCOMMAND (MSSETPHRASE) \GENERIC.CHARSET (STREAM) CHAT.CLOSE ( +CHAT.STATE) \FM.MENUHANDLER (REGION FREEMENUITEM) \LFFullFileName (ExpandedName +LogicalVolumeDescriptor) START.NEW.LINE (LINE) ADD.BORDER.TO.BITMAP (BITMAP) DIRECTORY.MATCH1 (ARRAYP) + \GETBRUSH (BITMAP) \MAP-OPEN-STREAMS (FDEV) SEDIT::SHIFT-LINEAR-FORM (SEDIT::WEAK-LINK) +TEDIT.SET.SEL.LOOKS (SELECTION) \UPDATE.PBT.RASTERWIDTHS (PILOTBBT) \TOTALFIXEDWIDTH ( +RESHAPINGWINDOWDATA) GETBOXSCREENPOSITION (SCREEN) \EOF.ACTION (STREAM) \VAMAdjustGroup (PageGroup) +MB.COPYFN (IMAGEOBJ) \EOSERROR (STREAM) FB.UNDELETEALLCOMMAND (FILEBROWSER) NORMSECT (SCAN BRES) +SEDIT::REPLACE-CHARS (READTABLEP STRINGP) DINFO.SPECIAL.UPDATE (DINFOGRAPH DINFONODE) FIND.NEXT.WORD ( +LINE CHARTABLE) \PSC.SYMBOLS (STREAM FONTDESCRIPTOR) ADJUSTLINE (LINE) \INCFILEPTR (FDEV) +\PFPilotVolumeP (LogicalVolumeDescriptor) MOVE.TO.NEXT.LINE (LINE) \PAGED.INCFILEPTR (BYTEPTR) +TEDIT.GETSEL (TEXTOBJ TEXTSTREAM) FW-SORT-FN (FW-OFD) \TEDIT.FIND (TEXTOBJ SELECTION) \LEAF.DEVICEP ( +SEQUIN) LAYOUTSEXPR1 (GRAPHNODE) \SETCARET (TEXTOBJ) \BUFFERED.BIN (FDEV) \HDCPYDISPLAY.FIX.YPOS ( +\DISPLAYDATA) \LEAF.DELETEFILE (LEAFDATA LEAFSTREAM STREAM) MOVD (LITATOM DEFINITIONCELL) +\FM.RIGHTBUTTONFN (REGION FREEMENUITEM) \BUFFERED.PEEKBIN (FDEV) \LFPurgeDirectory (FileDescriptor) +\SHAREOFXTRAY (RESHAPINGWINDOWDATA) \BUFFERED.BOUT (FDEV) TEDIT.INCLUDE (TEXTOBJ SELECTION BTREENODE) +\PS.SCALEHACK (STREAM \POSTSCRIPTDATA REGION) FB.UNDELETE.FILE (FILEBROWSER FBFILEDATA) SEDIT::INSERT +(SEDIT::EDIT-NODE) \BOXFPLUSDIF (FIXP FLOATP) FW-CREATE-OFD-LIST (FW-OFD) \TEDIT.PUT.SINGLE.PARALOOKS2 + (FMTSPEC) TTYIN.BALANCE (CHARTABLE) \BUFFERED.BINS (FDEV) \BOXFTIMES2 (FIXP FLOATP) TTLASTLINE (LINE) + TEDIT.SEL.AS.STRING (TEXTSTREAM TEXTOBJ SELECTION) \BOXFQUOTIENT (FIXP FLOATP) \LFOpenOldFile ( +FileDescriptor LeaderPage DLIONSTREAM) \LFDirectoryP (DLIONSTREAM LeaderPage) CCCSCAN (FNHEADER) +\BUFFERED.BOUTS (FDEV) MARK/GRAPH/NODE (GRAPHNODE) TEDIT.GET.LOOKS (CHARLOOKS TEXTOBJ PIECE SELECTION) + \STRINGWIDTH.HDCPYDISPLAY (\DISPLAYDATA CHARSETINFO) \FLOAT (FIXP) \TEDIT.FIND.PROTECTED.START ( +TEXTOBJ CHARLOOKS PIECE) RESET/NODE/LABELSHADE (GRAPHNODE) \GETSPP (SPPCON SPPXIP) \TEDIT.SEL.CHANGED? + (SELECTION) \SCROLL.HANDLER.DOIT (REGION) \TEDIT.PUT.SINGLE.CHARLOOKS2 (CHARLOOKS FONTCLASS) +\LEAF.GETFILE (PUPFILESERVER SEQUIN STREAM LEAFSTREAM LEAFDATA LEAFPACKET BYTEPTR) TEDIT.EXTEND.SEL ( +SELECTION TEXTOBJ) \SHAREOFXTRAX (RESHAPINGWINDOWDATA) TEDIT.STREAMCHANGEDP (TEXTOBJ) +SEDIT::CLEAN-UP-AFTER-RELINEARIZATION (REGION) FW-OFD-EXISTS? (FW-OFD) MB.SHOWSELFN (IMAGEBOX) +SEDIT::SET-INITIAL-SELECTION (SEDIT::EDIT-CONTEXT) FB.UNDELETECOMMAND (FILEBROWSER) \TEDIT.SCALEREGION + (REGION) \BRUSHBITMAP (BRUSHITEM) \TEDIT.REFRESH.SHOWSEL (SELECTION TEXTOBJ) \TOTALPROPOSEDSIZE ( +RESHAPINGWINDOWDATA) \VFMPutNext (Index Buffer) CRIT.LESSP (SCAN) TTNTH (LINE) EDITTOGGLEBORDER (GRAPH +) TTNLEFT (LINE) \INFINITY (FLOATP) \EDIT.UPCARET (TEDITCARET) NARGS (LITATOM FNHEADER +COMPILED-CLOSURE) \TEDIT.FORMAT.FOOTNOTE (LINEDESCRIPTOR TEXTOBJ PAGEFORMATTINGSTATE REGION) \TEXTBIN +(STREAM PIECE TEXTSTREAM) IMAGEOBJP (IMAGEOBJ) \POSTSCRIPTTAB (\POSTSCRIPTDATA) TB.DELETE.ITEM ( +TABLEITEM TABLEBROWSER) SCALEPAGEUNITS (TEDITPAPERSIZE) \ARGPTR (LITATOM FX BF FNHEADER) IMAGESTREAMP +(STREAM IMAGEOPS) MAKEFLOATNUMBER (FLOATP) \UPDATE.EXTENT.IMAGE (REGION) IMAGESTREAMTYPE (IMAGEOPS +STREAM) OPT.DELTAGREF (JUMP) IMAGESTREAMTYPEP (STREAM IMAGEOPS) \SLOWRETURN (FX) TERM.MOVETO ( +CHAT.STATE) STKNTH (FX) MSSEEKPHRASE (PARSED CONJUNCTION MSVERB) TEDITCHAT.MENUFN (CHAT.STATE) +\FM.WINDOWENTRYFN (REGION FREEMENUITEM) \LFCreateFile (ExpandedName DLIONSTREAM) SEDIT::THROW-AWAY-CHANGES + (SEDIT::EDIT-CONTEXT) \LFCreateDevice (LFDEV) SETSTKNAME (FX FNHEADER) U/L-CASE (LINE) SETTAIL? (LINE +) \COPYFNHEADER (FNHEADER) BLTMENUIMAGE (WINDOW MENU REGION) TEDIT.HARDCOPY-COLUMN-END (LINEDESCRIPTOR + TEXTOBJ FMTSPEC PAGEFORMATTINGSTATE REGION) \TEXTBOUT (TEXTSTREAM TEXTOBJ PIECE STREAM STRINGP) +CL:GET-DISPATCH-MACRO-CHARACTER (READTABLEP) IMAGEOBJPROP (IMAGEOBJ IMAGEFNS) STKSCAN (FX) +DINFO.UPDATE.FMENU (DINFOGRAPH DINFONODE) CREATEWFROMIMAGE (WINDOW) \AddShade (MENU) \FRAMESCAN ( +FNHEADER FX PVARSLOT BF) INSIDE? (REGION) MSSETREP (MSSETPHRASE) CHAT.RESHAPEWINDOW (CHAT.STATE) +\LFGetStreamForFile (DFSFileSpec ExpandedName) \FM.CREATEW (REGION) PRINTANDBOX (REGION) COMP.STUNBIND + (FRAME) \SETWINFOXSIZE (RESHAPINGWINDOWDATA) OPT.COMMONBACK (JUMP) \VAMEnoughSpace (FileDescriptor +LogicalVolumeDescriptor) DO-DISPATCH-MACRO (READTABLEP) \TEDIT.FIND.LAST.LINE (TEXTOBJ LINEDESCRIPTOR) + SWITCH/NODE/HEIGHT/WIDTH (GRAPHNODE) RESUME (FX) \ALLOCSPACETOGROUPEDWINDOWS (RESHAPINGWINDOWDATA) +\MAXWIDTHOFGROUP (RESHAPINGWINDOWDATA) \RESUME (FX) DMCHAT.HANDLE.WRAP (CHAT.STATE DM2500.STATE) +SHRINK-VECTOR (ARRAY-HEADER) CL:SET-DISPATCH-MACRO-CHARACTER (READTABLEP) RESET/NODE/BORDER (GRAPHNODE +) MSVERBTYPE (CVERB MSVERB MSSETPHRASE) SEDIT::OPEN-LITATOM (STRINGP) DINFO.UPDATE.MENU.DISPLAY ( +DINFOGRAPH DINFONODE MENU REGION) \TEDIT.LOOKS.UPDATE (TEXTSTREAM PIECE CHARLOOKS ARRAYP FONTCLASS +FMTSPEC LINEDESCRIPTOR) \LFUpdateLeaderPage (DLIONSTREAM LeaderPage STREAM FileDescriptor) +\FM.SETATTACHPOINT (FREEMENUITEM REGION) COMP.STBIND (FRAME) \SPREADFRAMEP (BF FX) REOPENTEXTSTREAM ( +STREAM) \INTERPFRAMENT (FX) \EDIT.DOWNCARET (TEDITCARET) ITEM.WINDOW.SET.STACK.ARG (MENU) +SHOWSHADEDITEMS (MENU REGION) \SENDLEAF (STREAM LEAFSTREAM LEAFPACKET LEAFDATA SEQUIN LEAFERRORDATA) +MENUITEMREGION (MENU REGION) SETSTKARG (FNHEADER BF FX PVARSLOT) SKIP/ZAP (TTYINBUFFER) STKARGNAME ( +FNHEADER FX BF PVARSLOT) CHAT.BUTTONFN (CHAT.STATE) \POSTSCRIPT.ACCENTFN (STREAM \POSTSCRIPTDATA +STRINGP) SETSTKARGNAME (FNHEADER FX BF) MB.DEFAULTBUTTON.ACTIONFN (TEXTOBJ SELECTION) MSFIXUPTYPES ( +PARSED SENTENCE MSSETPHRASE THAT NOT) SEDIT::INSERT-STRING (SEDIT::EDIT-SELECTION) +DINFO.UPDATE.TEXT.DISPLAY (DINFOGRAPH DINFONODE) \FM.UPDATEWINDOWEXTENT (REGION) +\POSTSCRIPT.ACCENTPAIR (STREAM \POSTSCRIPTDATA STRINGP) \FM.COLLECTNWAYS (FREEMENUITEM) +%%DEFPRINT-ARRAY (READTABLEP) \CONVERTNUMBER (READTABLEP) STKNARGS (FX BF FNHEADER) OPT.LABELNTHPR ( +TAG) SET-FILL-POINTER (ARRAY-HEADER) TTECHO.TO.FILE (LINE COMPLEXCHAR) OPT.JUMPREV (TAG JUMP) +%%DEFPRINT-VECTOR (READTABLEP) \HDCPYDISPLAY.FIX.XPOS (\DISPLAYDATA) FB.HARDCOPY.MAXWIDTH (FBFILEDATA) + %%DEFPRINT-GENERIC-ARRAY (READTABLEP) EQUAL.CH.NAMES (NSNAME) \TEDIT.FIND.PROTECTED.END (TEXTOBJ +CHARLOOKS PIECE) \GOOD.DASHLST (BRUSH) %%DEFPRINT-STRING (READTABLEP) CL:VECTOR-PUSH (ARRAY-HEADER) +%%DEFPRINT-BITVECTOR (READTABLEP) MENUREGION (MENU) FB.NAMES.INCREASING.VERSION (FBFILEDATA) +RESHADEITEM (MENU) FIXR (FIXP FLOATP) COURIER.BROADCAST.CALL (ROUTING) REFLECT/GRAPH/DIAGONALLY (GRAPH + GRAPHNODE) BITMAPWIDTH (BITMAP WINDOW) \LEAF.CLOSEFILE (LEAFSTREAM SEQUIN STREAM LEAFDATA) +READFROMBUF (COMPLEXCHAR LINE) BITMAPHEIGHT (BITMAP WINDOW) FLTSTR (FIXP FLOATP ARRAY-HEADER) +\SETWINFOYSIZE (RESHAPINGWINDOWDATA) \MAXHEIGHTOFGROUP (RESHAPINGWINDOWDATA) \VAMFindFreePages ( +LogicalVolumeDescriptor PageGroup) TIMESPOW10 (EFPN) INTTOEXT (FIXP) LINELENGTH (STREAM) HASH-DOT ( +READTABLEP) \TEDIT.NEUTRALIZE.PARALOOKS.MENU (SELECTION TEXTOBJ) FLTINTLOG (EFPN) +\RESHAPEATTACHEDWINDOWSAROUNDMAINW (REGION RESHAPINGWINDOWDATA) \UPDATEXYANDBOX (POSITION) FW-CLOSEFN +(FW-OFD) \TEDIT.PUT.SINGLE.PARALOOKS (FMTSPEC) RPLCHARCODE (STRINGP) MB.SELFN (SELECTION) +FB.DECREASING.VERSION (FBFILEDATA) TRACKNODE (GRAPH) NODELST/AS/MENU (GRAPHNODE) COPY.TEXT.TO.IMAGE ( +STREAM FDEV) REFLECT/GRAPH/VERTICALLY (GRAPH GRAPHNODE) DMCHAT.ADDRESS (DM2500.STATE) SET/LABEL/SIZE ( +GRAPHNODE IMAGEBOX) HASH-COMMA (READTABLEP) DIGITSBDP (FIXP FLOATP) DO.EDIT.PP (LINE) SEDIT::INSERT-LITATOM + (SEDIT::EDIT-SELECTION) DINFO.UPDATE.HISTORY (DINFOGRAPH DINFONODE) \FM.WINDOWEXTENT (FREEMENUITEM +REGION) \POSTSCRIPT.SPECIALOUTCHARFN (STREAM) READHOTSPOT (CURSOR REGION) TTDELETECHAR (LINE) +PARSE-NAMESTRING1 (STREAM) TYPE-VARIABLE-FROM-TYPE-NAME (CL:SYMBOL STRINGP) INSIDEP (POSITION) +\BREAKAPARTATWSTRUCTURE (RESHAPINGWINDOWDATA) GETBOXREGION (SCREENREGION) EDITMOVENODE (GRAPH) +%%NUMERIC-STRING-P (STRINGP) FB.SORT.VERSIONS (FBFILEDATA) \TEDIT.HCPYLOOKS.UPDATE (TEXTSTREAM PIECE +CHARLOOKS ARRAYP FONTCLASS) SCAN.LESSP (SCAN) TTNEXTLINE (LINE) DINFO.UPDATE.GRAPH.DISPLAY (DINFOGRAPH + DINFONODE) \FM.UPDATEGROUPEXTENT (REGION) \POSTSCRIPT.PRINTSLUG (STREAM \POSTSCRIPTDATA +FONTDESCRIPTOR) TTRATOM (TTYINBUFFERSTREAM) WBOX (REGION) TB.FINISH.CLOSE (TABLEBROWSER) +\DSKCreateDevice (FDEV) REFLECT/GRAPH/HORIZONTALLY (GRAPH GRAPHNODE) TERM.PRINTCHAR (CHAT.STATE STREAM + \DISPLAYDATA) DRAWLINE (IMAGEOPS STREAM) \DSPRIGHTMARGIN.HDCPYDISPLAY (\DISPLAYDATA) MOVETO (IMAGEOPS + STREAM) CH.NAME.TO.STRING (NSNAME) TERM.ADDLINE (CHAT.STATE) SQRT (FLOATP) \CHARWIDTH.HDCPYDISPLAY ( +CHARSETINFO \DISPLAYDATA) MSJOINSET (SENTENCE MSSETPHRASE QUOTE) SEDIT::HASFAT (STRINGP) +CHAT.ENDOFSTREAMOP (STREAM) \FM.TRANSPOSEVERT (REGION) APPENDIDENTIFIER.IP (STRINGP) DSPBACKCOLOR ( +IMAGEOPS STREAM) OPENIPSTREAM (REGION IPSTREAM STREAM INTERPRESSDATA) \GETREGION.PACKPTS (POSITION) +\VFMMarkBufferDirty (\BTREEBUF) FW-UPDATE-OFD-WINDOW (FW-OFD REGION) FB.DELVER.FILES (FBFILEDATA) +TEDIT.HARDCOPY.PAGEHEADING (TEXTSTREAM PIECE LINEDESCRIPTOR) EXTENDREGIONTOP (REGION) DSPBOTTOMMARGIN +(IMAGEOPS STREAM) \TEDIT.PARSE.CHARLOOKS.LIST (CHARLOOKS) READ-AFM-FILE (PSCFONT MENU) RESTOREBUF ( +LINE TTYINBUFFER) PARSE.NSNAME (NSNAME) SHEDSCAN (LINE XYPT XXLINE SCAN) DSPCOLOR (IMAGEOPS STREAM) +\FM.TRANSPOSEHORZ (REGION) \LFDeleteFile (DLIONSTREAM FDEV) \FM.GETBITMAPS (REGION) +\UFS.UNREGISTER.GFS (UFSGENFILESTATE) \PFReplaceString (STRINGP) PRETTYCOM (FILEPKGCOM FILEPKGTYPE) +OPT.LBMERGE (JUMP TAG) \UNVISIBLE.FLUSH.OPEN.STREAMS (FDEV STREAM) \MAIKO.PUNTBLTCHAR (\DISPLAYDATA +PILOTBBT) FW-OPENP (FDEV STREAM) TERM.DOWN (CHAT.STATE) DSPCLIPPINGREGION (REGION IMAGEOPS STREAM) +\DSPFONT.HDCPYDISPLAY (STREAM CHARSETINFO) GRAPHEDITCOMMANDFN (MENU) PSCFONT.WRITEFONT (PSCFONT) +\UNVISIBLE.PAGED.REVALIDATEFILELST (FDEV STREAM) \INIT.POWERS.OF.TEN (EFPN) \GETREGIONTRACKWITHBOX ( +POSITION) \SETGROUPMIN (RESHAPINGWINDOWDATA) DSPRESET (IMAGEOPS STREAM) \UFSCreateDevice (FDEV) +FW-CLOSE-OLD-OFD-WINDOWS (FW-OFD) \TEXTTTYBOUT (TEXTSTREAM TEXTOBJ CHARTABLE STREAM) +\TEDIT.PARSE.PARALOOKS.LIST (FMTSPEC) TTDELETEWORD (LINE) TEDIT.SKIP.SPECIALCOND (TEXTSTREAM PIECE +LINEDESCRIPTOR) \FAULTINIT (IFPAGE LITATOM) \INIT.ETHER.BUFFER.POOL (IFPAGE) \BN.FROM.FIXP (BIGNUM) +\MAKEFRAME (LITATOM FNHEADER) DSPFONT (IMAGEOPS STREAM) \SET.VMEM.FULL.STATE (IFPAGE) \VFMDelete1 ( +Buffer Interval Index) \UFSDirectoryNameP (FDEV) GETREGION (SCREENREGION) FW-RESIZE-OFD (FW-OFD +POSITION) DSPLEFTMARGIN (IMAGEOPS STREAM) SIZE/GRAPH/WINDOW (REGION) \D01.FAULTINIT (IFPAGE FIXP) +\UFSGenerateFiles (FDEV) SET/LAYOUT/POSITION (GRAPHNODE) \DOVE.FAULTINIT (IFPAGE FIXP) \UFSSetFileInfo + (FDEV STREAM UFSSTREAM) \UFSOpenFile (FDEV STREAM UFSSTREAM) \TEDIT.UPDATE.SHOWSEL (SELECTION TEXTOBJ + LINEDESCRIPTOR) \DL.FAULTINIT (IFPAGE) IN/ITEM? (SELECTABLEITEM) DSPLINEFEED (IMAGEOPS STREAM) +\SEQUIN.HANDLE.ACK (SEQUIN SEQUINPACKET) TEDIT.BUILD.PCTB (TEXTOBJ STREAM PIECE) \UFSWritePages ( +STREAM UFSSTREAM) \TEXTMARK (TEXTOBJ TEXTSTREAM STREAM) SEDIT:RESET-COMMANDS (SEDIT::EDIT-ENV) +DSPOPERATION (IMAGEOPS STREAM) \TEDIT.PAPERWIDTH (TEDITPAPERSIZE) FB.DELVERCOMMAND (FILEBROWSER +FBFILEDATA) SNAPW (SCREENREGION SCREEN REGION WINDOW) \UFSTruncateFile (STREAM FDEV UFSSTREAM) +\SPP.CHECK.INPUT.QUEUE (SPPCON SPPXIP) DSPRIGHTMARGIN (IMAGEOPS STREAM) \BULK.DATA.CLOSE (FDEV STREAM) + OPT.JUMPTHRU (TAG JUMP) \VFMSaveBuffer (\BTREEBUF) \UFSDeleteFile (FDEV) EDITSHADEREPAINTFN (REGION) +DMCHAT.NEWLINE (CHAT.STATE DM2500.STATE) DSPTOPMARGIN (IMAGEOPS STREAM) \TEDIT.HCPYFMTSPEC (FMTSPEC) +DINFO.SETUP.WINDOW (DINFOGRAPH) \FM.INITCORNERSFN (REGION) \LFRenameFile (FDEV STREAM DLIONSTREAM +DFSFileSpec LeaderPage) \UFSCloseFile (STREAM UFSSTREAM FDEV) FB.CLOSE&EXPUNGE (MENU FILEBROWSER) +\TEDIT.GET.SINGLE.PARALOOKS (FMTSPEC) TRACKW (REGION WINDOW) DSPSCALE (IMAGEOPS STREAM) +\UFSGetFileInfo (FDEV STREAM UFSSTREAM) TTYINENTRYFN (TTYINWINDOWSTATE) GETSYNTAX (TERMTABLEP CONTEXTS + WAKEUPS ESCAPES) \GTREADTABLE1 (READTABLEP) \TEDIT.CARETLOOKS.VERIFY (TEXTOBJ) \GTTERMTABLE ( +TERMTABLEP) \INSPECTW.COMMAND.HANDLER (SELECTABLEITEM) DSPSPACEFACTOR (IMAGEOPS STREAM) +\TEDIT.PAPERHEIGHT (TEDITPAPERSIZE) \SEQUIN.FLUSH.RETRANSMIT (SEQUIN) \SMASHMENUIMAGEONRESET (MENU) +\D01.ASSIGNBUFFERS (IFPAGE) MSSETSETTYPE (MSSETPHRASE SENTENCE NOT CSET) \TEDIT.NSCHAR.RUN (TEXTOBJ +PIECE) \FM.FILLWINDOW (REGION) \LFTruncateFile (DLIONSTREAM FDEV LeaderPage) \CHAIN.UP.RPT (RPT) +COURIER.READ.BULKDATA (STREAM) DSPXPOSITION (IMAGEOPS STREAM) PPSPPSTREAM (SPPSTREAM) \GETREADSYNTAX ( +CHARTABLE CONTEXTS WAKEUPS ESCAPES) CL:BIT-VECTOR-P (ARRAY-HEADER) \VFMFreeVPage ( +LogicalVolumeDescriptor) \UFS.ADD.HOST.FIELD (FDEV) \PFRoomForFile (PageGroup FileDescriptor) +\GETTERMSYNTAX (CHARTABLE) TERM.DELCHAR (CHAT.STATE) DSPYPOSITION (IMAGEOPS STREAM) \UFSReadPages ( +UFSSTREAM STREAM) GETPOSITION (SCREENPOSITION) \VFMDelete2 (Index Buffer) \DEVICEFILE.EOSERROR (STREAM + BUFFER UFSSTREAM) SETCOLOR16.IP (BITMAP) \DOFORMATTING.HARDCOPY (LINEDESCRIPTOR THISLINE TEXTOBJ +ARRAYP) \UFS.FULLNAME (FDEV) \UFS.OPENP (FDEV UFSSTREAM) CL:ARRAY-DIMENSIONS (ONED-ARRAY TWOD-ARRAY +GENERAL-ARRAY) MSDOES (MSVERB) DSPROTATE (IMAGEOPS STREAM) \FM.RESETCLIPPINGREGION (REGION) PTPLUS ( +POSITION) \LFGetFileInfo (DLIONSTREAM STREAM LeaderPage) TEDIT.PAGEFORMAT (PAGEREGION TEXTOBJ) +DSPPUSHSTATE (IMAGEOPS STREAM) \SHOWSEL.HILIGHT (LINEDESCRIPTOR SELECTION FMTSPEC TEXTOBJ) +\TEXTDSPYPOSITION (TEXTOBJ) NESTED.SUBMENU (MENU) TERM.LEFT (CHAT.STATE) \NSFILING.ADDQUOTES (STRINGP) + \UFS.REMOVE.HOST.FIELD (FDEV) MENUTITLEFONT (WINDOW MENU SCREEN) FB.DELETE.FILE (FILEBROWSER +FBFILEDATA) \RESHOWBORDER1 (WINDOW REGION SCREEN BITMAP) RENUMBER.LINES (LINE) +MB.THREESTATE.WHENOPERATEDFN (SELECTION) DSPPOPSTATE (IMAGEOPS STREAM) ACCEPT-UNIX-SOCKET-STREAM (FDEV +) SEDIT::ATOM-CHAR-ESCAPED (READTABLEP READCODE CHARTABLE) DEFAULT.INSPECTW.VALUECOMMANDFN (MENU) +MSKNOWN (MSSETPHRASE SENTENCE NOT CSET) DSPDEFAULTSTATE (IMAGEOPS STREAM) \FM.UNSCROLLWINDOW (REGION) +\LFGetFileName (DFSFileSpec) \INITBFS (IFPAGE) LAYOUT/POSITION (GRAPHNODE) EXTENDREGIONRIGHT (REGION) +\TELERAIDSERVER (VP VMEMFLAGS POINTER) SEDIT::COPY-STRUCTURE-STRING (SEDIT::BROKEN-ATOM) +UNMAKEHARDCOPYSTREAM (STREAM) RESHOWBORDER (WINDOW) DSPSCALE2 (IMAGEOPS STREAM) +CREATE-UNIX-SOCKET-STREAM (FDEV) PPSPP (SPPCON STREAM) TERM.ERASE.TO.EOL (CHAT.STATE) SETSYNTAX ( +READTABLEP TERMTABLEP) \TEDIT.PURGE.SPACES (ARRAYP) \TEDIT.GET.INSERT.CHARLOOKS (TEXTOBJ SELECTION +PCTNODE CHARLOOKS PIECE) \SETTERMSYNTAX (CHARTABLE) MB.BUTTONEVENTINFN (SELECTION) \UFS.DIRECTORY.NAME + (FDEV) TB.MAP.SELECTED.ITEMS (TABLEBROWSER TABLEITEM) \SETREADSYNTAX (CHARTABLE READTABLEP) +EDITGRAPH2 (GRAPH) MB.THREESTATE.SHOWSELFN (SELECTION) DSPTRANSLATE (IMAGEOPS STREAM) SYNTAXP ( +CHARTABLE CONTEXTS WAKEUPS ESCAPES) \UFSDeleteFile-C (FDEV) \ITEMW.FLIPITEM (SELECTABLEITEM) +\COPYSYNTAX (CHARTABLE) CHECK.MARGIN (LINE) DSPNEWPAGE (IMAGEOPS STREAM) \TEXTLEFTMARGIN (TEXTOBJ +FMTSPEC) \MAPCHARTABLE (CHARTABLE) PTDIFFERENCE (POSITION) \VFMFind (Interval Index Buffer) +FW-CLOSE-CMD (FW-OFD) \VAMRecomputeFreePageCount (LogicalVolumeDescriptor) TEDIT.PARSE.PAGEFRAMES1 ( +PAGEREGION) \ITEM.WINDOW.SELECTION.HANDLER (SELECTABLEITEM) BIGNUM.DEFPRINT (READTABLEP BIGNUM) +\UFStoOtherRenameMess (FDEV) \MAIKO.DO.MOVDS (LITATOM DEFINITIONCELL) \UFSRenameFile-C (FDEV) +\TEDIT.WINDOW.SETUP (TEXTOBJ) \ATWGROUPSIZE (RESHAPINGWINDOWDATA REGION) DRAWBETWEEN (IMAGEOPS STREAM) + \VFMDeletePageGroup (FileDescriptor PageGroup Key Interval) \TEXTRIGHTMARGIN (TEXTOBJ FMTSPEC) +\INVERTITEM (MENU) \MAIKO.ASSIGNBUFFERS (IFPAGE POINTER) \POSITION.MENU.IMAGE (MENU SCREENPOSITION +POSITION SCREEN) FB.UPDATE.COUNTERS (FILEBROWSER) NESTED.SUBMENU.POS (MENU STREAM REGION \DISPLAYDATA) + \SHAPEW2 (WINDOW REGION BITMAP SCREEN) EXTENDREGIONLEFT (REGION) EDITDELETENODE (GRAPH) PRINTSPP (XIP + SPPHEAD) \STRINGOUT (STRINGP) \TEXTSTREAM.FILENAME (STREAM TEXTOBJ) TEDIT.HARDCOPYFN (TEXTOBJ) +PFI.HANDLE.DEFDEFINER (PFITYPE) \M-VMEMSAVE (IFPAGE) \TEDIT.LINE.LIST (TEXTOBJ) DMCHAT.CLEAR ( +CHAT.STATE) MAKEHARDCOPYSTREAM (STREAM) \SEQUIN.CLEANUP (SEQUIN) ITEMW.REPAINTFN (SELECTABLEITEM) +DRAWCIRCLE (IMAGEOPS STREAM) \TEDIT.APPLY.PARALOOKS (SELECTION TEXTOBJ MARGINBAR) \FM.RESHAPEFN ( +REGION) DELETELINE (LINE) \LFReadPages (DLIONSTREAM) RESETGRID.NEW (REGION) INSURE.BRUSH (BRUSH) +SHAPEW1 (WINDOW REGION BITMAP SCREEN) EQP (STACKP) \FM.PUSHGROUP (REGION) EXTENDPASTVERTBOUNDARIES ( +REGION) \UFS.HANDLE.RELATIVEDIRECTORY (FDEV) \IDLE.IS.PREVIOUS (IFPAGE) FW-CHANGE-POSITION (FW-OFD +REGION POSITION) \TEXTDSPFONT (CHARLOOKS TEXTOBJ) FB.DELETECOMMAND (FILEBROWSER) DRAWARC (IMAGEOPS +STREAM) CHAT.SET.EMULATOR (CHAT.STATE) \FM.REDISPLAYMENU (REGION FREEMENUITEM) ECHOCHAR (CHARTABLE) +\LFSetFileInfo (DLIONSTREAM LeaderPage) \FM.JUSTIFYGROUPS (REGION) BITMAPOBJ.SNAPW (REGION) +OPT.SETUPOPT (JUMP) MARGINBAR (REGION) \TEDIT.FIXSELS (TEXTOBJ SELECTION) SEDIT::SHIFT-STRING (STRINGP +) TERM.ADDCHAR (CHAT.STATE) INTERSECT/REGIONP/LBWH (REGION) \HDCPYDSPPRINTCHAR (CHARTABLE) +\TEDIT.APPLY.STYLES (CHARLOOKS TEXTOBJ TEXTSTREAM FMTSPEC) \DOFORMATTING (LINEDESCRIPTOR THISLINE +TEXTOBJ ARRAYP) GETXIP (NSOCKET) \TEDIT.PARABOUNDS (TEXTOBJ PIECE) DMCHAT.RIGHT (CHAT.STATE) +\SEQUIN.RETRANSMITNEXT (SEQUIN SEQUINPACKET) \TEXTMENU.DOC.CREATE (MB.BUTTON TEXTSTREAM MB.3STATE +MB.TOGGLE MB.NWAY MB.TEXT MB.INSERT TEXTOBJ) \DL.NEWFAULTINIT (IFPAGE IOPAGE RPT VMEMFLAGS) +MB.THREESTATEBUTTON.FN (SELECTION) DRAWCURVE (IMAGEOPS STREAM) DINFO.READ.GRAPH (DINFOGRAPH) +\LFWritePages (STREAM DLIONSTREAM) UPDATE/BM/DISPLAY/SELECTED/REGION (BITMAP) TEDIT.GET (TEXTOBJ +LINEDESCRIPTOR BTREENODE SELECTION LITATOM) PUTMENUPROP (MENU) \PARSE.PORTCONSTANT (STRINGP) +\TEDIT.HARDCOPY.MODIFYLOOKS (CHARLOOKS LINEDESCRIPTOR) RELMOVEW (SCREEN WINDOW) UNIX-STREAM-CLOSE ( +FDEV) EXTENDPASTHORIZBOUNDARIES (REGION) DRAWELLIPSE (IMAGEOPS STREAM) POLYSHADE.IP (STREAM) +TEDIT.DELETELINE (LINEDESCRIPTOR) \FM.JUSTIFYITEMS (FREEMENUITEM) \LFOpenFile (DLIONSTREAM LeaderPage) + \FM.LAYOUTGRID (REGION) \UFS.REGISTER.GFS (UFSGENFILESTATE) FB.COUNTER.STRING (FILEBROWSER) +COMP.UNBIND.VARS (FRAME) \TEDIT.BASICFIND (TEXTOBJ SELECTION) TERM.DELETELINE (CHAT.STATE) DRAWPOLYGON + (IMAGEOPS STREAM) \ONSCREENCLIPPINGREGION (SCREEN WINDOW STREAM) \EVAL-INVOKE-LAMBDA (FX) +\UFS.NEXTFILEFN (UFSGENFILESTATE FDEV FILEGENOBJ) UNIX-STREAM-EOFP-NEW (STREAM) SHOWBUTTON (BUTTON) +IN/SCROLL/BAR? (WINDOW REGION) PROMPTFOREVALED (POSITION) DRAWPOINT (IMAGEOPS STREAM) +\VAMFreePageGroup (PageGroup FileDescriptor LogicalVolumeDescriptor) LASTC (STREAM) +POSTSCRIPT.PUTBITMAPBYTES (ARRAYP) EXTENDREGIONBOTTOM (REGION) D-ASSEM::START-PC-FROM-NT-COUNT-LOCAL ( +CODEARRAY) \NSRANDOM.FETCH.CACHE (NSPAGECACHE) \UFS.FILEINFOFN (UFSGENFILESTATE) FILLPOLYGON (IMAGEOPS + STREAM) \PEEKREFILL (LINEBUFFER) GRAPHDELETENODE (GRAPH) TEXTSTREAM.TITLE (TEXTOBJ) \LOOKUPPORT (PORT +) D-ASSEM::START-PC-FROM-NT-COUNT (CODEARRAY) FORWARD.DELETE.TO (LINE) \POLYSHADE.YSCAN.IP (SCAN) +TEDIT.MINIMAL.WINDOW.SETUP (TEXTOBJ TEDITCARET) DRAWTO (IMAGEOPS STREAM) RATOM (READTABLEP ARRAYP) +LATTICE/BREAK/CYCLES (GRAPHNODE) \DL.ASSIGNBUFFERS (IFPAGE POINTER) FILLCIRCLE (IMAGEOPS STREAM) +\BLTSHADE.GENERICPRINTER (REGION) \SUBREAD (STRINGP CHARTABLE STREAM FDEV) RESETREADTABLE (READTABLEP) + \DL.MARK.PAGES.UNAVAILABLE (RPT) VKBD.FIX.FONT (KEYBOARDCONFIGURATION) GETMENUPROP (MENU) +TREEGRAPHNODE (PCTNODE) \PS.BOUTFIXP (ARRAYP \POSTSCRIPTDATA STREAM) HARDCOPYGRAPH (REGION POSITION +GRAPH) \TEDIT.FIND.FIRST.LINE (TEXTOBJ LINEDESCRIPTOR) \SEQUIN.HANDLE.INPUT (PUP SEQUINPACKET SEQUIN) +TERM.UP (CHAT.STATE) \TOP-LEVEL-READ (READTABLEP ARRAYP) \LFGenerateFiles (PARSEDFILENAME STRINGP +LogicalVolumeDescriptor DLIONSTREAM) \FM.LAYOUTCOLUMN (REGION) COMP.BIND.VARS (VAR) \CREATEW1 (REGION +SCREEN) FIND.MATCHING.QUOTE (CHARTABLE) FILLRECTANGLE.IP (STREAM INTERPRESSDATA) RELDRAWTO (IMAGEOPS +STREAM) EDITBMRESHAPEFN (BITMAP REGION) GRAPHOBJ.PUTALIGN (GRAPH GRAPHNODE) SHOWSTACKBLOCKS (STK FSB +FX BF) READP (STREAM FDEV) MENUDESELECT (MENU) \UFS.ABORT.CL-DIRECTORY (FILEGENOBJ UFSGENFILESTATE) +READTABLEPROP (READTABLEP) \TEXTOPENF (TEXTSTREAM TEXTOBJ PCTNODE) LAYOUTGRAPH (GRAPH POSITION +GRAPHNODE) POSTSCRIPT.SHOWACCUM (STREAM \POSTSCRIPTDATA) SKIPSEPRCODES (READTABLEP CHARTABLE STREAM) +EXTENDREGION (REGION) SEDIT::EDIT-SELECTION (SEDIT::EDIT-CONTEXT) BITMAPIMAGESIZE (IMAGEOPS STREAM) +MSCHECKBLOCKS (MSANALYZABLE) \SEQUIN.RETRANSMIT (SEQUIN SEQUINPACKET) \FM.LAYOUTROW (REGION) +FB.COUNTERW.REDISPLAYFN (FILEBROWSER) \VFMCreateVPage (LogicalVolumeDescriptor PageGroup) +\VAMAllocPageGroup (PageGroup LogicalVolumeDescriptor FileDescriptor) INITIALIZECOLOR.IP (STREAM +INTERPRESSDATA) MBUTTON.SET.FIELD (TEXTOBJ PCTNODE SELECTION) FOREST/BREAK/CYCLES (GRAPHNODE) +\FAULTHANDLER (IFPAGE) TERM.MODIFY.ATTRIBUTES (CHAT.STATE) UNIX-BACKFILEPTR-NEW (STREAM) SKREAD ( +CHARTABLE READTABLEP) \LOADNSHOSTNUMBER (NSHOSTNUMBER) \LFEventFn (FDEV) \NSRANDOM.READ.SEGMENT ( +STREAM) DMCHAT.HANDLECHARACTER (CHAT.STATE DM2500.STATE) \UFSParse-Directory (FDEV) \DO.PROGV ( +FNHEADER) GRAPHCHANGELABEL (GRAPH) \NSRANDOM.PREPARE.CACHE (NSPAGECACHE) CL:READ (READTABLEP ARRAYP) +\TEDIT.INSERTLINE (LINEDESCRIPTOR) \TEXTBACKFILEPTR (STREAM TEXTSTREAM PIECE) \ASSURE.FPTOVP.PAGE ( +IFPAGE) POSTSCRIPT.CLOSESTRING (STREAM \POSTSCRIPTDATA) CL:READ-PRESERVING-WHITESPACE (READTABLEP +ARRAYP) \TEDIT.HARDCOPY.DISPLAYLINE (LINEDESCRIPTOR THISLINE TEXTOBJ REGION ARRAYP CHARLOOKS FMTSPEC) +CREATEW1 (SCREENREGION REGION SCREEN) CL:READ-DELIMITED-LIST (READTABLEP ARRAYP) INIT/NODES/FOR/LAYOUT + (GRAPHNODE) SCALEDBITBLT (IMAGEOPS STREAM REGION) CL:PARSE-INTEGER (READTABLEP STRINGP CHARTABLE) +MENUSELECT (MENU) \LOOKUPPAGEMAP (VP) \DRAWPOINT.GENERIC (BRUSH) \UPDATE.PSC (\POSTSCRIPTDATA) +PRIN2-LONG-STRING (READTABLEP FONTDESCRIPTOR STRINGP CHARTABLE) DUMPGRAPH (GRAPH GRAPHNODE +FONTDESCRIPTOR) \FM.FORMATBYGRID (REGION) \DRAWPOLYGON.GENERIC (BRUSH POSITION) DMCHAT.CLEARMODES ( +CHAT.STATE DM2500.STATE) \UFS.ABORT.DIRECTORY (FILEGROUP FILEGENOBJ UFSGENFILESTATE) RIGHTW.REPAINTFN +(REGION) \SEQUIN.FLUSH.CONNECTION (SEQUIN) \LFDirectoryNameP (PARSEDFILENAME LogicalVolumeDescriptor) +\TEXTSETFILEPTR (TEXTSTREAM TEXTOBJ) FILEPKGCOM (FILEPKGCOM) ADVISEWDS (WINDOW REGION SCREEN) +\FLUSHPAGE (RPT VMEMFLAGS VP IFPAGE POINTER) \STORENSHOSTNUMBER (NSHOSTNUMBER) \RSTRING2 (STRINGP +CHARTABLE STREAM FDEV) \TRANSFERPAGE (RPT) \POLYSHADE.XSCAN.IP (SCAN) SPY.TITLE (SPYRECORD) +\PUTBASEFIXP (FIXP) READGRAPH (GRAPH) READ-EXTENDED-TOKEN (READTABLEP ARRAYP STRINGP FDEV STREAM +CHARTABLE) \SETMACROSYNTAX (CONTEXTS WAKEUPS ESCAPES) \VFMInsertPageGroup (FileDescriptor PageGroup +Interval Key) \SMASHSTRING (STRINGP) \READTABLEP.DEFPRINT (READTABLEP) \EDITBMHOWMUCH (BITMAP) +DELETETO (LINE) CONCATLIST (STRINGP LITATOM) EDITCHANGELABEL (GRAPH GRAPHNODE) \ATBLSET (CHARTABLE) +\NSRANDOM.CHECK.CACHE (NSPAGECACHE) BOTTOMOFGRIDCOORD (REGION) FW-REPAINTFN (FW-OFD) +\GetRootDirectoryType (LogicalVolumeDescriptor) SI::COMPILED-FUNCTION-ARGLIST (COMPILED-CLOSURE) +ADDCHAR (COMPLEXCHAR LINE) \TEXTPEEKBIN (TEXTSTREAM STREAM PIECE FDEV) PRINTLEAF (SEQUINPACKET +LEAFDATA) \TEDIT.PIECE-CHNO (PIECE BTREENODE) SI::COMPILED-FUNCTION-DEBUGGING-INFO (COMPILED-CLOSURE +FNHEADER) \CLIPANDDRAWLINE1 (BITMAP) TWODINSPECT.ARRANGEWINDOWS (POSITION REGION) \MOVEREALPAGE (RPT) +TEDIT.WINDOW.SETUP (TEXTOBJ MENU) RETFROM (FX) INSPECT/AS/FUNCTION (FX STACKP) INTERSECTREGIONS ( +REGION) CREATE.PACKET.EXCHANGE.XIP (PACKETEXCHANGEXIP) \TEDIT.PUT.PARALOOKS (PIECE) +FB.COMMANDSELECTEDFN (MENU FILEBROWSER) \SELECTREALPAGE (RPT VMEMFLAGS) \10MBENCAPSULATE (NSHOSTNUMBER +) \UPDATECHAIN (RPT VMEMFLAGS) FILL.LINE (FILL.TBLE) SEDIT::ATOM-POINT-TYPE (READTABLEP STRINGP) +\MAIKO.DISPLAYLINE (THISLINE TEXTOBJ FMTSPEC LINEDESCRIPTOR STREAM ARRAYP) READBQUOTECOMMA (READTABLEP +) \TEDITMENU.SELSCREENER (TEXTOBJ SELECTION) \FM.FORMATBYCOLUMN (REGION) OVERFLOW? (LINE) +ONEDINSPECT.ARRANGEWINDOWS (POSITION REGION) GRAPHREGION (GRAPH) REALSTKNTH (FX) +SI::CHANGE-CALLS-IN-CCODE (REFMAP) PFI.ADD.TO.INDEX (PFITYPE) SHADEGRIDBOX (REGION) +\PFPutRootDirectoryType (LogicalVolumeDescriptor LogicalSubVolumeMarker) \TEXTGETEOFPTR (TEXTOBJ +TEXTSTREAM) EDITCHANGEFONT (GRAPH) MOVETOUPPERLEFT (REGION) \MENUSUBITEMS (MENU) +EQUAL-READER-ENVIRONMENT (READER-ENVIRONMENT) BACKSKREAD (CHARTABLE) FILL.INITTBLE (BITMAP PILOTBBT +\DISPLAYDATA FILL.TBLE) SEDIT::ASSIGN-FORMAT-LITATOM (SEDIT::BROKEN-ATOM) CHAT.TTYENTRYFN (CHAT.STATE) + INIT.CURSOR (REGION) \FM.FORMATBYROW (REGION) GRAPHOBJ.GETALIGN (GRAPHNODE GRAPH) COMP.TRANSFORM ( +JUMP) \TEDIT.CHARDELETE (TEXTOBJ STRINGP SELECTION PIECE) REGIONP (REGION) OPENNSOCKET (NSOCKET FIXP) +\TEDIT.PUT.SINGLE.CHARLOOKS (CHARLOOKS FONTCLASS) DMCHAT.STATE (CHAT.STATE) FONTCREATE (FONTDESCRIPTOR + FONTCLASS WINDOW IMAGEOPS STREAM) \TEDIT.OBJECT.SHOWSEL (SELECTION LINEDESCRIPTOR IMAGEBOX TEXTOBJ) +\VALIDADDRESSP (POINTER) \SEND.EXPEDITED.XIP (EXPEDITEDXIP) BRV/OFFSET (GRAPHNODE) +\INTERNAL/SETPASSWORD (IFPAGE) INSPECTW.REPAINTFN (REGION SELECTABLEITEM) LLSH (FIXP) +\POLYSHADE.DISPLAY (SCAN BRES) \PFVersionOK (LogicalVolumeDescriptor) EDITBMSCROLLFN (REGION BITMAP) +SHOWWTITLE (SCREEN WINDOW) RAIDROOTFRAME (IFPAGE) COMP.RETFROM.POINT (COMP) GRIDYCOORD (REGION) +\ALLOCWIDTHTOGROUPEDWINDOW (RESHAPINGWINDOWDATA) TEDIT.REDO.REPLACE (SELECTION TEXTOBJ) +\PFPatchRootDirEntries (RootDirectory) \GETBASESTRING (STRINGP) \TEXTGETFILEPTR (TEXTSTREAM STREAM +PIECE TEXTOBJ) SHOWWFRAME (WINDOW REGION) TTYIN (TTYINBUFFER) \TEDIT.SET-TOTLEN (BTREENODE) +\TEDIT.HARDCOPY.FORMATLINE (TEXTOBJ ARRAYP THISLINE LINEDESCRIPTOR TEXTSTREAM CHARLOOKS PIECE +FONTCLASS FMTSPEC STREAM PAGEFORMATTINGSTATE CHARSETINFO PENDINGTAB) \INTERACTIVE.CLOSEW (WINDOW) +TTDELETELINE (LINE) \DSPUNTRANSFORMREGION (REGION) TTSKREAD (CHARTABLE) \FM.FORMAT (REGION) +GRAPHERPROP (GRAPH) \TEDIT.TABTYPE.SET (SELECTION PIECE MARGINBAR) SEGMENT.LENGTH (COMPLEXCHAR) +GETCHATWINDOW (CHAT.STATE) \LFNormalizeVolumeName (PARSEDFILENAME) TTYIN.SETUP (TTYINBUFFER) +TB.REMOVE.ITEM (TABLEBROWSER) TTYIN.CLEANUP (TTYINBUFFER) \BUILD.EXPEDITED.XIP (EXPEDITEDXIP +COURIERPGM COURIERFN) TTYIN.FINISH (LINE CHARTABLE TTYINBUFFER) DEFAULT.INSPECTW.TITLECOMMANDFN (MENU +SELECTABLEITEM) \SEQUIN.CONTROL (SEQUINPACKET) \ITEM.WINDOW.COPY.HANDLER (SELECTABLEITEM) DCODERD ( +CODEARRAY) \OKTOCLOSEW (WINDOW) \MEDW.BLTCHAR (\DISPLAYDATA PILOTBBT) TERM.TAB (CHAT.STATE) +TEDIT.FORMATTEDFILEP (TEXTOBJ PIECE) \TEDIT-OPEN-FONT-FILE (STREAM) \DSPXPOSITION.PSC (STREAM +\POSTSCRIPTDATA) \MEDW.XOFFSET (STREAM) WINDOWPOSITION (REGION) \TEDIT.COPYTEXTSTREAM.PIECEMAPFN ( +PIECE TEXTOBJ) \MEDW.YOFFSET (STREAM \DISPLAYDATA) \VFMGetPageGroup (FileDescriptor Key Interval) +\TEXTEOFP (TEXTSTREAM STREAM PIECE) \TFBRAVO.FONT.FROM.CHARLOOKS (CHARLOOKS) TTYIN1RESTART ( +TTYINBUFFER LINE) \TEDIT.FIXCHANGEDLINE (LINEDESCRIPTOR THISLINE TEXTOBJ) \NOIMAGE.DSPFONT (FONTCLASS) + MAXMENUITEMWIDTH (MENU BITMAP) TB.USERDATA (TABLEBROWSER) PRIN4 (READTABLEP) GRAPHADDNODE (GRAPH) +\LINEWITHBRUSH (\DISPLAYDATA BITMAP) \TFBRAVO.READ.PARALOOKS (FMTSPEC) \TEDIT.FIND.OVERLAPPING.LINE ( +LINEDESCRIPTOR) TTYIN.READ (CHARTABLE FDEV LINEBUFFER) GRIDXCOORD (REGION) \ALLOCHEIGHTTOGROUPEDWINDOW + (RESHAPINGWINDOWDATA) TTWAITFORINPUT (REGION LINE TTYINBUFFER) \PFFindRootDirEntryNum (RootDirectory +RootDirEntry) \TEDIT.SET.WINDOW (TEXTOBJ) LEFTOFGRIDCOORD (REGION) TEDIT.CURSOROUTFN (TEXTOBJ) +GO.TO.FREELINE (LINE) \TEDIT.LCASE.SEL (SELECTION TEDITHISTORYEVENT TEXTOBJ) RAIDSTACKCMD (IFPAGE FX) +PROVIDE.PROMPTING.WINDOW (REGION) PUTSEQUIN (SEQUIN SEQUINPACKET) FW-AFTERMOVEFN (FW-OFD REGION +POSITION) TTYIN1 (LINEBUFFER LINE TERMCODE CHARTABLE READCODE) \CCLOSURE.DEFPRINT (COMPILED-CLOSURE +READTABLEP) \TFBRAVO.READ.CHARLOOKS (CHARLOOKS) \DEFINEDP (LITATOM) POSTSCRIPT.BITMAPSCALE (REGION) +TB.CLEAR.LINE (TABLEBROWSER) \GET-COMPILED-DEFINITION (LITATOM COMPILED-CLOSURE) UNIX.SETDISPLAYTYPE ( +CHAT.STATE) \SPP.SKIPBYTES (STREAM) TRANSLATEREG (REGION) PFI.DEFAULT.HANDLER (PFITYPE) STRINGWIDTH ( +FONTDESCRIPTOR CHARSETINFO IMAGEOPS STREAM) READHASHMACRO (READTABLEP) \TEDITOUTCHARFN (STREAM) +TERM.SMOOTHSCROLL (CHAT.STATE) CHAT.INIT (CHATDISPLAYTYPE CHAT.STATE STREAM) \PFGetLVPage ( +LogicalVolumeDescriptor) \DSPYPOSITION.PSC (STREAM \POSTSCRIPTDATA) \SW2BM (REGION BITMAP) \MOVETO.PSC + (STREAM \POSTSCRIPTDATA) RAIDCOMMAND (LITATOM IFPAGE POINTER) SETUPPAGEMAP (VP) INSPECT/BITMAP (MENU) + MAXMENUITEMHEIGHT (MENU BITMAP) CLOSEHASHFILE (HashFile) NODEREGION (GRAPHNODE) FB.SHAPECOMMAND ( +FILEBROWSER REGION) CL:MAKE-SYMBOL (STRINGP) \SETUFNENTRY (UFNENTRY) MBUTTON.SET.NEXT.FIELD (TEXTOBJ +SELECTION) FILL-VECTOR (ARRAY-HEADER) \GETUFNENTRY (OPCODE UFNENTRY) \NEWEPHEMERALPAGE (IFPAGE) +\DONEWEPHEMERALPAGE (POINTER VP VMEMFLAGS RPT) INFILECOM (FILEPKGCOM) CHARACTER.READ (CHARTABLE) +TERM.SETMARGINS (CHAT.STATE) GRID (REGION) TEDIT.MODIFYLOOKS (CHARLOOKS LINEDESCRIPTOR) +TEDIT.REDO.MOVE (TEXTOBJ SELECTION) DISCARDPUPS (PUPSOCKET) \NSFILING.OPENFILE (STREAM FDEV) +TERM.SET.TAB (CHAT.STATE) UNIONREGIONS (REGION) \TEDIT.MARK.REVISION (LINEDESCRIPTOR) CALLSCCODE ( +FNHEADER COMPILED-CLOSURE) RETVALUES (FX) FB.DEPTHCOMMAND (FILEBROWSER) BREAK.NSFILING.CONNECTION ( +FDEV) TEDIT.FORMATTEXTBOX (PAGEFORMATTINGSTATE PAGEREGION REGION LINEDESCRIPTOR TEXTOBJ FMTSPEC) +COPYTEXTSTREAM (TEXTOBJ SELECTION) FLIPNODE (GRAPHNODE) \SHOWMENULABEL (REGION MENU BITMAP) +INSPECT/ATOM (MENU) \SEQUIN.PUT (SEQUIN SEQUINPACKET) MAPHASHFILE (HashFile DoubleKey) \CODEBLOCKP ( +POINTER ARRAYBLOCK) DEFAULT.BACKGROUND.COPYFN (MENU) \TEMPLOCKPAGES (IFPAGE) COMPOSEREGS (REGION) +ADJUSTLINE.AND.RESTORE (LINE) RAIDSHOWFRAME (FX) \DSPFONT.PSC (STREAM \POSTSCRIPTDATA FONTDESCRIPTOR +PSCFONT FONTID) \TEDIT.NEUTRALIZE.CHARLOOKS.MENU (TEXTOBJ) FB.INFOMENU.WHENSELECTEDFN (FILEBROWSER) +COMP.MLLIST (COMINFO) TERM.SCROLLDOWN (CHAT.STATE) DOBACKGROUNDCOM (MENU) \PROMPTFORWORDBIN ( +LINEBUFFER FDEV STREAM) CREATE-SHELL-STREAM (FDEV) FM.CHANGELABEL (FREEMENUITEM REGION) +\DSPLEFTMARGIN.PSC (STREAM \POSTSCRIPTDATA) \DSPMOVELR (STREAM) READPAGEMAP (POINTER IFPAGE) +DELETEMENU (WINDOW MENU) TEDIT.FORMATFOLIO (PAGEREGION PAGEFORMATTINGSTATE TEXTOBJ REGION +LINEDESCRIPTOR) \DOFLUSHVM (POINTER IFPAGE) \RELEASEWORKINGSET (RPT) \MATCHPCS (BTREENODE PIECE) +UPDATE/MENU/IMAGE (WINDOW MENU SCREEN BITMAP REGION) OPENHASHFILE (HashFile STREAM) \FLUSHVM (IFPAGE) +\TEDIT.SELECT.CHARACTER (SELECTION LINEDESCRIPTOR TEXTOBJ) DECODE.WINDOW.ARG (POSITION) OVERFLOWLINE? +(LINE) \PAGEDBACKFILEPTR (STREAM) \TEDIT.COPY.LINEDESCRIPTOR (LINEDESCRIPTOR) STRPOSL (CHARTABLE +LITATOM STRINGP) \DSPPRINTCHAR (STREAM TERMCODE CHARTABLE \DISPLAYDATA) \PFRemoveRootDirEntry ( +RootDirectory) CHANGECCODE (REFMAP) DSPCLEOL (STREAM) \WRITEDIRTYPAGE1 (RPT VMEMFLAGS) DEFAULTFONT ( +FONTCLASS) \CLIPANDDRAWLINE (BITMAP) CHARWIDTHY (FONTDESCRIPTOR CHARSETINFO STREAM IMAGEOPS) +\DRAWPOLYGON.DISPLAY (BRUSH POSITION) TEDIT.FORMATHEADING (PAGEREGION PAGEFORMATTINGSTATE TEXTSTREAM +PIECE TEXTOBJ REGION LINEDESCRIPTOR) NEAREST/PT/ON/GRID (POSITION) \PFAddRootDirEntry (RootDirectory) +\DRAWPOINT.DISPLAY (BITMAP) \STRINGWIDTH.GENERIC (LITATOM PNAMEBASE CHARSETINFO READTABLEP STRINGP) +HASHFILEPROP (HashFile) \DSPCLIPPINGREGION.DISPLAY (STREAM REGION \DISPLAYDATA) \PEEKCCODE.NOEOLC ( +STREAM) \SPP.PREPARE.OUTPUT (SPPCON STREAM SPPXIP) \DSPRIGHTMARGIN.PSC (STREAM \POSTSCRIPTDATA) +\CHARWIDTH.DISPLAY (CHARSETINFO \DISPLAYDATA) \LASTNODE (BTREENODE) \INCCODE.EOLC (STREAM) +\NSFILING.CLOSE.CONNECTIONS (FDEV) INSPECT/TYPELESS (ARRAYBLOCK) GRAPHOBJ.CHECKALIGN (GRAPH) +\STRINGWIDTH.DISPLAY (\DISPLAYDATA) \DSPOPERATION.DISPLAY (STREAM PILOTBBT) PRINTERDEVICE (FDEV STREAM +) \FORMATBYTESTREAM (STREAM) TERM.RIGHT (CHAT.STATE) START.OF.PARAGRAPH? (LINE COMPLEXCHAR) +\DEVICESYMBOL (IMAGEOPS STREAM) \FIXLINELENGTH.PSC (\POSTSCRIPTDATA STREAM) PREVLINE (LINE) +\PFFreeDiskPages (LogicalVolumeDescriptor) \UNCOPY (FIXP FLOATP STRINGP ONED-ARRAY) \BACKCOLOR.DISPLAY + (STREAM \DISPLAYDATA BITMAP) FB.INFOMENU.SHADEINITIALSELECTIONS (MENU) \BLTSHADE.DISPLAY (STREAM +\DISPLAYDATA REGION BITMAP PILOTBBT) PRINTCODE (FNHEADER) ICONW (POSITION BITMAP) \DSPLINEFEED.PSC ( +\POSTSCRIPTDATA STREAM) SETFONTCLASSCOMPONENT (FONTCLASS) MAKEROOMFORPME (VP) TEDIT.FORMATPAGE ( +PAGEFORMATTINGSTATE PAGEREGION TEXTOBJ PIECE FMTSPEC STREAM REGION LINEDESCRIPTOR) EDITBMBUTTONFN ( +REGION BITMAP MENU POSITION CURSOR) \BITBLT.DISPLAY (BITMAP STREAM REGION \DISPLAYDATA PILOTBBT +IMAGEOPS) PRINTCODENT (FNHEADER) GETPUP (PUPSOCKET) DELETETO1 (COMPLEXCHAR) \SPLITTREE (BTREENODE) +TEDIT.CURSORMOVEDFN (TEXTOBJ LINEDESCRIPTOR FMTSPEC) NTH.COLUMN.OF (LINE) FONTUNPARSE (FONTDESCRIPTOR +FONTCLASS FONTFACE) \SEQUIN.PROCESS (SEQUIN) MBUTTON.NEXT.FIELD.AS.TEXT (TEXTOBJ) FONTCLASSUNPARSE ( +FONTCLASS) TRACKCURSOR (GRAPHNODE) \DSPRESET.DISPLAY (STREAM \DISPLAYDATA FONTDESCRIPTOR REGION) +32MBADDRESSABLE (IFPAGE) \DRAWLINE.DISPLAY (BRUSH \DISPLAYDATA) BROWSE/LAYOUT/HORIZ/COMPACTLY ( +GRAPHNODE) \TEDIT.APPLY.PAGEFORMATTING (SELECTION TEXTOBJ) \TEDIT.CLEAR.SCREEN.BELOW.LINE (TEXTOBJ +LINEDESCRIPTOR) \FILLCIRCLE.DISPLAY (STREAM \DISPLAYDATA BITMAP PILOTBBT) \DRAWELLIPSE.DISPLAY ( +\DISPLAYDATA BITMAP) GETSEQUIN (SEQUIN) INSPECTW.REDISPLAY (SELECTABLEITEM) \DRAWCURVE.DISPLAY ( +POSITION) \XCCSOUTCHAR (STREAM) NEW/INSTANCE/OF/GRAPHNODE (GRAPHNODE) \SET.LASTVMEMFILEPAGE (IFPAGE) +\DSPYPOSITION.DISPLAY (\DISPLAYDATA) \SEQUIN.CLOSE (SEQUIN) \DSPXPOSITION.DISPLAY (STREAM) +\TEDIT.FILL.IN.CHARLOOKS.MENU (TEXTOBJ CHARLOOKS FONTCLASS SELECTION) \DRAWCIRCLE.DISPLAY (STREAM +\DISPLAYDATA BITMAP) ENDREAD? (CHARTABLE) MBUTTON.NEXT.FIELD.AS.PIECES (TEXTOBJ) \XCCSFORMATBYTESTREAM + (STREAM) \TEDIT.FORMAT.FOUNDBOX? (PAGEFORMATTINGSTATE PAGEREGION) \GETREGION.CHECKOPPT (POSITION) +FB.NEWINFOCOMMAND (FILEBROWSER REGION) \TEXTINIT (STREAM) TEDIT.PARSE.PAGEFRAMES (PAGEREGION) +\SCALEDBITBLT.DISPLAY (REGION) CONCAT (STRINGP LITATOM) \DSPFONT.DISPLAY (STREAM \DISPLAYDATA +FONTDESCRIPTOR CHARSETINFO) \MAKEBRUSH.ROUND (BITMAP) SPP.CLEARATTENTION (SPPSTREAM STREAM) +\DRAWLINE.PSC (STREAM \POSTSCRIPTDATA) \PFCurrentVol (DiskFileID PhysicalVolumeDescriptor +LogicalVolumeDescriptor) DUMPINITPAGES (IFPAGE VP) NTH.RELATIVE.COLUMN.OF (LINE COMPLEXCHAR) +MBUTTON.NEXT.FIELD.AS.ATOM (TEXTOBJ) MOVE.TO.LINE (LINE) MBUTTON.NEXT.FIELD.AS.NUMBER (TEXTOBJ) +\FONTFACE (FONTFACE) %%SET-ARRAY-OFFSET (ARRAY-HEADER) COURIER.EXPEDITED.CALL (COURIERFN) +%%SET-ARRAY-TYPE-NUMBER (ARRAY-HEADER) \DOVMEMFULLINTERRUPT (IFPAGE) EDITADDNODE (GRAPHNODE) +INITSEQUIN (SEQUIN) TERM.NEWLINE (CHAT.STATE) \MAP-CODE-POINTERS (ARRAYBLOCK FNHEADER) +\REGIONOVERLAPAREAP (REGION) FB.ALLOW.ABORT (FILEBROWSER) \MAP-CODE-LITERALS (ARRAYBLOCK FNHEADER) +\DRAWCURVE.PSC (STREAM \POSTSCRIPTDATA) \FONT.COMPARESYMBOL (PNAMECELL LITATOM PNAMEBASE) CHECKIFPAGE +(IFPAGE) GETGRIDBOXREGION (REGION \DISPLAYDATA STREAM POSITION) \PFPutRootDirectory (PageGroup) +SETUPPUP (PUP) \AREAVISIBLE? (SCREEN WINDOW) DSPXSCREENTOWINDOW (\DISPLAYDATA STREAM) FONTHEIGHT ( +FONTDESCRIPTOR) \PFGetRootDirectory (PageGroup) TEDIT.BUILD.PCTB0 (TEXTOBJ PIECE) PAINTW (WINDOW +SCREEN BITMAP CURSOR) SEGMENT.BIT.LENGTH (COMPLEXCHAR) \DSPBACKCOLOR.DISPLAY (STREAM \DISPLAYDATA +BITMAP) SPP.FLUSH.TO.EOF (STREAM SPPSTREAM) SHOW.MATCHING.PAREN (LINE) \DSPCOLOR.DISPLAY (STREAM +\DISPLAYDATA) TEDIT.SCAN.LINE (THISLINE TEXTOBJ LINEDESCRIPTOR FMTSPEC ARRAYP CHARLOOKS SELECTION) +BRHL/MOVE/RIGHT (GRAPHNODE) TEDIT.PROMPTFLASH (TEXTOBJ) \PRINDATUM.TO.STRING (STRINGP) BROKENDEF ( +FNHEADER OPCODE) UTF16BE.OUTCHARFN (STREAM) \INSERTTREE (BTREENODE PIECE) TEDIT.FORMAT.HARDCOPY ( +TEXTOBJ STRINGP STREAM PAGEFORMATTINGSTATE) \STREAM.FROM.PACKET (XIP) \DRAWCIRCLE.PSC (STREAM +\POSTSCRIPTDATA) ADDPME (VP) \TEDIT.CONVERT.FOREIGN.FORMAT (TEXTOBJ) CLOSESEQUIN (SEQUIN) VOLUMESIZE ( +LogicalVolumeDescriptor) PRIN1 (READTABLEP STREAM) FM.WHICHITEM (POSITION REGION FREEMENUITEM) +FB.GET.SORT.MENU (FILEBROWSER) SPACES (STREAM) SPPSTREAMP (SPPCON) PRINTNUM (FLOATFMT FIXFMT) +\DRAWELLIPSE.PSC (STREAM \POSTSCRIPTDATA) \FAST4BIT (NIBBLE) \TEDIT.UNIQUIFY.CHARLOOKS (TEXTOBJ) +GETCHARBITMAP (CHARSETINFO BITMAP) BRHL/LAYOUT (GRAPHNODE) \DO.PROGV.SETUP.FRAME.AND.EXECUTE (FX +FNHEADER) MAKEWITHINREGION (REGION) \TEDIT.UPDATETREE (BTREENODE) \TEDIT.PARSE.CHARLOOKS.MENU (TEXTOBJ + SELECTION) \PFGetVols (PhysicalVolumeDescriptor) \MAPPNAME.INTERNAL (STREAM) \CORE.UPDATEOF (BYTEPTR) + OUTPUT (STREAM) SHOW.IP (FDEV) TEDIT.BUILD.PCTB2 (TEXTOBJ PIECE) \TEDIT.ADJUST.LINES (TEXTOBJ +LINEDESCRIPTOR) GO.TO.RELATIVE (LINE) DSPYSCREENTOWINDOW (\DISPLAYDATA STREAM) \VAMGetVAMPageFor ( +LogicalVolumeDescriptor) \PFFindRootDirEntry (RootDirEntry RootDirectory) RPLSTRING (STRINGP LITATOM) +\CORE.DELETEFILE (STREAM FDEV) \SHOWTEXT (TEXTOBJ) \CORE.GETINFOBLOCK (STREAM) EDITAPPLYTOLINK (GRAPH) + CHAT.STARTUP (CHATDISPLAYTYPE) BKSYSCHARCODE (RING) REDISPLAYW (SCREEN WINDOW) VOLUMES ( +LogicalVolumeDescriptor) FM.EDITITEM (FREEMENUITEM) \GETREGION.CHECKBASEPT (POSITION) BKSYSBUF ( +LITATOM PNAMEBASE STRINGP) SHAPEW (WINDOW REGION) \CHTOPC (BTREENODE) FB.SORTCOMMAND (FILEBROWSER +FBFILEDATA) \MAPPNAME (READTABLEP) \CORE.GENERATEFILES (FDEV COREFILEINFOBLK) \TFBRAVO.EOLS (TEXTOBJ) +TOGGLE/DIRECTEDFLG (GRAPH) FILL.INCY (FILL.TBLE PILOTBBT) PROCESS.EVALV (PROCESS) \BITMAPTOSCREEN ( +SCREEN) TYPE.BUFFER (COMPLEXCHAR) FONTCOPY (FONTCLASS FONTDESCRIPTOR) CURRENT.WORD (LINE CHARTABLE) +TOGGLE/SIDESFLG (GRAPH) TEDIT.BUILD.PCTB1 (TEXTOBJ PIECE) FONTSAVAILABLE (STREAM FONTDESCRIPTOR +FONTCLASS WINDOW) FONTMAPARRAY (FONTCLASS) SEDIT::STRINGWIDTH (STRINGP) \CORE.NEXTFILEFN ( +COREFILEINFOBLK) FB.ALPHABETIC.ATTR (FBFILEDATA) GAINSPACE (GAINSPACE) \LOOKUPFONTSINCORE ( +FONTDESCRIPTOR) \SMASHABLESTRING (STRINGP) TERM.IDENTIFY.SELF (CHAT.STATE) BRHL/LAYOUT/DAUGHTERS ( +GRAPHNODE) SPP.SENDATTENTION (SPPXIP XIP) TEDIT.SELECT.LINE.SCANNER (TEXTOBJ LINEDESCRIPTOR SELECTION) + SPP.OPENP (SPPCON) \RPLCHARCODE (STRINGP) \BLTSHADE.PSC (STREAM \POSTSCRIPTDATA REGION) +\TEDIT.PROCIDLEFN (TEXTOBJ) FONTP (FONTDESCRIPTOR FONTCLASS) \TEDIT.APPLY.CHARLOOKS (SELECTION TEXTOBJ +) \CORE.GETFILEINFO (STREAM) \TEDIT.UNIQUIFY.PARALOOKS (TEXTOBJ) GNCCODE (STRINGP) GLCCODE ( +ARRAY-HEADER STRINGP) \PRINTFPTOVP (IFPAGE) FB.INSERT.SUBDIRECTORIES (FBFILEDATA) STREQUAL (STRINGP) +FB.PROMPTFORINPUT (FILEBROWSER) CL:SYMBOL-PACKAGE (CL:SYMBOL) TEDIT (TEXTOBJ) MSADDANALYZE ( +MSANALYZABLE) FW-ADJUST-REGION (FW-OFD POSITION) L-CASE (LITATOM STRINGP PNAMEBASE) \LOCKFN (LITATOM +DEFINITIONCELL) U-CASEP (LITATOM PNAMEBASE STRINGP) GETTOPVAL (LITATOM) \MAKEWRITABLESTRING (STRINGP) +TEDIT.PUT (TEXTOBJ STREAM PIECE LITATOM) SPPOUTPUTSTREAM (SPPCON) EDITBM (REGION BITMAP) KILLSEGMENT ( +TTYINBUFFER) SETTOPVAL (LITATOM) %%MAKE-STRING-ARRAY-FAT (ARRAY-HEADER) \TEDIT.TEXTBIN.STRINGSETUP ( +STRINGP STREAM TEXTSTREAM) \TFBRAVO.INIT.PARALOOKS (FMTSPEC) \LOCKWORDS (POINTER) \NSRANDOM.CLOSEFILE +(STREAM) %%MAKE-ARRAY-WRITEABLE (ARRAY-HEADER) \#BLOCKDATACELLS (ARRAYBLOCK) \CORE.PACKFILENAME (FDEV) + TEDIT.PUT.PCTB2 (TEXTOBJ ARRAYP PIECE STREAM STRINGP) SETPROPLIST (LITATOM) FB.PROMPTW.FORMAT ( +FILEBROWSER) \TEDIT.DIFFUSE.PARALOOKS (PIECE) \LOCKVAR (LITATOM) TEDIT.UNDO.REPLACE (TEXTOBJ SELECTION +) \CREATE-REAL-CHARSET.DISPLAY (FONTFACE FONTDESCRIPTOR) SEDIT::BUILD-WINDOW (REGION) +TEDIT.GET.OBJECT0 (TEXTSTREAM PIECE TEXTOBJ) \PUTBASESTRING (STRINGP LITATOM PNAMEBASE) TERM.GODOWN ( +CHAT.STATE) INSERTLINE (LINE) \SFMAKEITALIC (CHARSETINFO) \TEDIT.SHOW.CHARLOOKS (SELECTION TEXTOBJ +PIECE) \TEXTMENU.TOGGLE.DISPLAY (BITMAP) FM.SHADE (FREEMENUITEM) ALIGNMENTNODE (GRAPH) +FB.INCREASING.NUMERIC.ATTR (FBFILEDATA) \TEDIT.FIXINSSEL (SELECTION) \IFSERRORSTRING (SEQUIN) +\BUILDSLUGCSINFO (CHARSETINFO) \SCALEDBITBLT.PSC (STREAM \POSTSCRIPTDATA) \CORE.OPENFILE (STREAM) +TEDIT.UNDO.MOVE (TEXTOBJ SELECTION) \TEDIT.TEXTBIN.FILESETUP (STREAM TEXTSTREAM BYTEPTR PIECE) +\SFROTATECSINFO (CHARSETINFO) POSTSCRIPT.HARDCOPYW (STREAM \POSTSCRIPTDATA REGION) \SETARG0 (FX BF) +\NSRANDOM.OPENFILE (STREAM) \TEDIT.NEUTRALIZE.CHARLOOKS (SELECTION) \DOHARDRETURN (IFPAGE) TTADDTAB ( +LINE) MB.MARGINBAR.DISPLAYFN (MARGINBAR REGION) \DOHARDRETURN1 (FX FNHEADER FSB BF) COMP.STTAG (TAG +JUMP) \MKATOM (PNAMEBASE PNAMEINDEX LITATOM) BRHC/OFFSET (GRAPHNODE) \TEDIT.FIXDELSEL (SELECTION) +\CREATE.SYMBOL (VALINDEX PNAMEINDEX PNAMEBASE LITATOM) \GCSCANSTACK (STK FX FNHEADER PVARSLOT +STACKCELL FSB BF) \CORE.SETFILEPTR (BYTEPTR) \PARSE.NUMBER (READTABLEP) \CORE.BACKFILEPTR (STREAM) +BLTSHADE (BITMAP IMAGEOPS STREAM) TERM.ERASE.IN.DISPLAY (CHAT.STATE) \CORE.SETEOFPTR (BYTEPTR) +\DECUSECOUNT (FX BF) \CREATECHARSET.PSC (CHARSETINFO) BITMAPP (BITMAP) PURGEDSKDIRECTORY (FDEV +DLIONSTREAM LogicalVolumeDescriptor) FM.REDISPLAYITEM (FREEMENUITEM REGION) BMOBJ.PUTFN (BITMAPOBJ) +\INCUSECOUNT (FX STK BF) COMP.STJUMP (TAG) \COERCETODS (WINDOW) FW-MOVEW (FW-OFD) \DOSTACKOVERFLOW ( +IFPAGE) \CORE.GETNEXTBUFFER (STREAM) \NSFILING.SETFILEINFO (STREAM) \MOVEFRAME (FX FSB IFPAGE BF) +WINDOWWORLD (SCREEN) FROMLINKS (GRAPHNODE) \ALLOCBLOCK (ARRAYBLOCK) \SETUPUSERSTACK (IFPAGE) SLICESET +(ICML.ARRAYSLICE) TEDIT.GET.CHARLOOKS0 (PIECE CHARLOOKS) SEDIT::TRANSLATE-CHARS (READTABLEP STRINGP) +SEDIT::LINEARIZE-CLISP (SEDIT::WEAK-LINK) TTYIN.SHOW.?ALTERNATIVES (CHARTABLE) +MBUTTON.FIND.NEXT.BUTTON (TEXTOBJ PIECE MBUTTON MARGINBAR NWAYBUTTON) \FONTFILENAME (FONTFACE) +FB.DECREASING.NUMERIC.ATTR (FBFILEDATA) \ITEMW.FLIPCOPY (SELECTABLEITEM) MAPATOMS (POINTER) +\EXTENDSTACK (IFPAGE) FB.DIRECTORYP (FBFILEDATA) \TEDIT.APPLY.PARASTYLES (TEXTOBJ FMTSPEC) +ATOMHASH#PROBES (LITATOM STRINGP PNAMEBASE PNAMEINDEX) CREATE-PROCESS-STREAM (FDEV) +ONEDINSPECTW.CREATE (REGION POSITION) \DSPSCALE.PSC (STREAM \POSTSCRIPTDATA) %%ARRAY-BASE ( +ARRAY-HEADER) \VAMCheckEndOfVol (LogicalVolumeDescriptor) %%ARRAY-OFFSET (ARRAY-HEADER) +\HANDLE.RAW.PUP (PUPSOCKET) %%ARRAY-TYPE-NUMBER (ARRAY-HEADER) POSTSCRIPT.ENDPAGE (STREAM +\POSTSCRIPTDATA) \GENERIC-UNREGISTER-STREAM (FDEV) \FONTFACE.COLOR (FONTFACE) INSTALLBRUSH (BRUSHITEM) + \ADD-OPEN-STREAM (FDEV) \COURIER.RESULTS (COURIERFN COURIERPGM COURIERERR) \SETUPGUARDBLOCK (FSB) +FW-SHAPEW (FW-OFD) \PFInitializeVols (PhysicalVolumeDescriptor) \NSRANDOM.READPAGES (STREAM) +TEDIT.GET.PARALOOKS0 (PIECE FMTSPEC) BREAKLINE (LINE) PUTD (COMPILED-CLOSURE) \NODIRCORE.OPENFILE ( +STREAM) \PUTD (LITATOM COMPILED-CLOSURE DEFINITIONCELL ARRAYP FNHEADER) SI::NON-LOCAL-GO (FX) +COPYGRAPH (GRAPH GRAPHNODE) \RENAMEDFN (COMPILED-CLOSURE FNHEADER) SI::UNWIND-TO-BLIP (FX) +\INIT-MISCN-TABLE (ARRAYP MISCN-UFN-ENTRY MISCN-UFN-SPEC) GRAPHEROBJ (REGION) GETD (LITATOM +DEFINITIONCELL) CL:SYMBOL-NAME (LITATOM) POSTSCRIPT.PUTCOMMAND (STREAM \POSTSCRIPTDATA) GETMENUITEM ( +MENU) SLICEDIMENSION (ICML.ARRAYSLICE) \DSPSCALE2.PSC (STREAM \POSTSCRIPTDATA) \POLYSHADE.BLT (SCAN) +\NSRANDOM.SESSION.WATCHER (FDEV STREAM) \STKMIN (OPCODE ARRAYP FNHEADER) \NSFILING.GETFILEINFO (STREAM +) \LFFindDirectoryVol (LogicalVolumeDescriptor) FM.RESETSHAPE (REGION) \GET-COMPILED-CODE-BASE ( +LITATOM COMPILED-CLOSURE) OPENP (STREAM) \TTY.CREATING.DISPLAYSTREAM (STREAM) \FONTFILENAME.NEW ( +FONTFACE) TWODINSPECTW.CREATE (REGION POSITION) SETA (ARRAYP) \DSPCOLOR.PSC (\POSTSCRIPTDATA STREAM) +GRAPHOBJ.IMAGEBOXFN (REGION GRAPHNODE) ARRAY (ARRAYP) BRHC/LAYOUT/DAUGHTERS (GRAPHNODE) +COPY.WINDOW.TO.BITMAP (REGION) TEDITWINDOWP (TEXTOBJ) \SELITEM.FROM.PROPERTY (SELECTABLEITEM) +\DELETETREE (BTREENODE) MB.MARGINBAR.SELFN (REGION) \MEDW.GETSCREENREGION (REGION POSITION) +\MEDW.CARET.SHOW (CARET1 STREAM CURSOR BITMAP \DISPLAYDATA REGION) FB.FETCHFILENAME (FBFILEDATA) +TEDIT.GET.OBJECT1 (TEXTSTREAM PIECE TEXTOBJ) \READSTRIKEFONTFILE (CHARSETINFO) SI::PVAR-VALUE-IN-FRAME + (FNHEADER FX PVARSLOT) \TEDIT.NEXT.LINE.BOTTOM (FMTSPEC LINEDESCRIPTOR) \READACFONTFILE (CHARSETINFO +FONTBOUNDINGBOX) SI::VARIABLE-NAME-IN-FRAME (FX FNHEADER) TERM.CLEAR.TAB (CHAT.STATE) +FW-ADJUST-PLACEMENT (FW-OFD) \NSRANDOM.WRITEPAGES (STREAM) RETURN (FNHEADER FX) \DISCARDFRAME (FX BF) +MBUTTON.FIND.BUTTON (TEXTOBJ PIECE) FM.RESETSTATE (FREEMENUITEM) \TEDIT.GET.PARALOOKS1 (FMTSPEC) +ERASE/GRAPHNODE (GRAPHNODE POSITION) CL:FIND-SYMBOL (STRINGP) \DELETEPIECE (PIECE) FINDPCNODE (PIECE) +TEDIT-BOOK (TEXTOBJ) TB.COLLECT.ITEMS (TABLEBROWSER) ASKUSER1 (ASKUSER) SLICEREF (ICML.ARRAYSLICE) +SCROLL.HANDLER (WINDOW) ELT (ARRAYP) \TERPRI.PSC (STREAM \POSTSCRIPTDATA FONTDESCRIPTOR) +\SFROTATECSINFOOFFSETS (CHARSETINFO) PROCESSPROP (PROCESS) \FONTRESETCHARWIDTHS (CHARSETINFO) +ROTATE-BITMAP (BITMAP PILOTBBT) \IRM.CHOOSE.REF (IRMREFERENCE) GRAPHOBJ.DISPLAYFN (REGION) +FM.CHANGESTATE (FREEMENUITEM REGION) OPT.CHECKTAG (TAG) CLEARSTK (STACKP) BRHC/LAYOUT/TERMINAL ( +GRAPHNODE) ROTATE-BITMAP-LEFT (BITMAP PILOTBBT) TERM.ERASEBITS (CHAT.STATE) TEDIT.HCPYFILE (STREAM +TEXTOBJ) \SFMAKECOLOR (CHARSETINFO) RELSTKP (FX) \BASEBYTES.PEEKBIN (STREAM) \DSPTOPMARGIN.PSC ( +\POSTSCRIPTDATA STREAM) \RESETTERMINAL (LINEBUFFER) \BASEBYTES.BOUT (BASEBYTESTREAM) STRIKECSINFO ( +CHARSETINFO) UPDATEWFROMIMAGE (WINDOW REGION) WRITESTRIKEFONTFILE (CHARSETINFO BITMAP FONTDESCRIPTOR) +\TEDIT.PRESS.HARDCOPY (TEXTOBJ) FB.PROMPTWPRINT (FILEBROWSER) ASKUSER$ (ASKUSER) SEDIT::MARKASCHANGEDFN + (SEDIT::EDIT-CONTEXT) CH.FINDSERVER (NSNAME) \SETUPSTACK1 (FNHEADER STK BF FX) UTF8.OUTCHARFN (STREAM +) DELETE.TO.END (LINE) SPP.EOFP (STREAM) \PFCreateVols (ARRAYP) \RESETSTACK0 (IFPAGE LITATOM FSB) +\MAKEBASEBYTESTREAM (STREAM BASEBYTESTREAM) \MBS.OUTCHARFN (STREAM) \SERIALNUMBER (IFPAGE) CARET ( +CARET1) OPENSTRINGSTREAM (STRINGP STREAM) \FBITMAPBIT.UFN (BITMAPWORD) \BUILDATWSTRUCTURE (REGION) +\PFInitFileDescriptors (PhysicalVolumeDescriptor FileDescriptor SubVolumeDesc) FB.SELECTEDFILES ( +FILEBROWSER) ERASEMENUIMAGE (REGION MENU) SPP.READP (STREAM) COURIER.CALL (COURIERFN STREAM NSADDRESS) + PFI.MAKE.LPT.STREAM (REGION) \NSRANDOM.SETEOFPTR (BYTEPTR) STRING.EQUAL (LITATOM STRINGP ARRAYP) +BRHC/LAYOUT (GRAPHNODE) \TEDIT.RESHAPEFN (TEXTOBJ LINEDESCRIPTOR) \CAUSEINTERRUPT (IFPAGE FX FSB) +\TEXTMENU.START (REGION TEXTOBJ TEXTSTREAM) CRITSECT (SCAN) \SETPOS.PSC (\POSTSCRIPTDATA) +TTCOMPLETEWORD (CHARTABLE) CREATEDSKDIRECTORY (LFDEV) FM.HIGHLIGHTITEM (FREEMENUITEM) TB.NTH.ITEM ( +TABLEBROWSER TABLEITEM) \DSPBOTTOMMARGIN.PSC (\POSTSCRIPTDATA STREAM) \TEDIT.GET.CHARLOOKS1 (PIECE +CHARLOOKS) SPP.BACKFILEPTR (STREAM) TEDIT.RAW.INCLUDE (TEXTOBJ SELECTION PIECE) \DSPSPACEFACTOR.PSC ( +STREAM \POSTSCRIPTDATA) INTERRUPTED (INTERRUPTSTATE KEYACTION) PFI.SETUP.TRANSLATIONS (STREAM) +WINDOWSIZE (REGION) FW-FORGET-STREAM (FW-OFD) \PFCreatePhysicalVolume (PhysicalVolumeDescriptor) +\DOMISCAPPLY1 (IFPAGE) BITBLT (BITMAP IMAGEOPS STREAM REGION \DISPLAYDATA) FB.TABLEBROWSER ( +FILEBROWSER) DBG::BACKTRACE-ITEM-SELECTED (BKMENUITEM MENU) UPDATEPCNODES (PIECE BTREENODE) +DSPDESTINATION (STREAM \DISPLAYDATA) IRM.CREF.BUTTONEVENTFN (IMAGEBOX) \GATHER-CLEANUP-FORMS1 (IFPAGE +FX BF FNHEADER) DO.EDIT.COMMAND (LINE TTYINBUFFER CHARTABLE) \MEDW.GETSCREENPOSITION (WINDOW) +\DISABLEGC1 (MDSTYPEWORD) FB.COUNT.FILE.CHANGE (FBFILEDATA FILEBROWSER) \CREATE.TTYDISPLAYSTREAM ( +REGION) \GC.MODIFY.BIGREFCNT (GC) \MAKE.PROCESS0 (IFPAGE) \10MB.GETPACKETLENGTH (Dove.EtherIOIOCB) +AS.NEXT.VERIFIER (NSADDRESS) WOVERLAPP (WINDOW) TOTOPW (SCREEN WINDOW) \GC.ENTER.BIGREFCNT (GC) +GETBOXSCREENREGION (SCREENPOSITION) TEDIT.UNPARSE.PAGEFORMAT (PAGEREGION REGION) \BACKFORMAT ( +LINEDESCRIPTOR TEXTOBJ) \BLTSHADE.BITMAP (BITMAP REGION PILOTBBT) \BITBLT.BITMAP (BITMAP REGION +PILOTBBT) \SEARCHOPENFILES (STREAM) \LEAF.MAYBE.FLUSH.CACHE (SEQUIN) \FORMATLINE (TEXTOBJ ARRAYP +THISLINE TEXTSTREAM LINEDESCRIPTOR PIECE FONTCLASS STREAM CHARSETINFO PENDINGTAB) CHAT.TYPEOUT ( +CHAT.STATE RING) \HARDRESET-CLEANUP (FNHEADER) SEDIT::SELECT-SEGMENT-DEFAULT (SEDIT::EDIT-NODE) +\LFCloseFile (DLIONSTREAM) \HARDRESET-CLEANUP1 (FX FNHEADER PVARSLOT) OPENFILE (STREAM) +TEDIT.FORMATBOX (PAGEREGION PAGEFORMATTINGSTATE TEXTOBJ REGION TEXTSTREAM LINEDESCRIPTOR) +\TEDIT.CUMULATE.EVENTS (TEDITHISTORYEVENT PIECE) HASH.PASSWORD (STRINGP) FB.UPDATEBROWSERITEMS ( +FILEBROWSER INFOFIELD FBFILEDATA) ASKUSERSETUP (ASKUSER) \INSURESCREEN (SCREEN) SPP.FORCEOUTPUT ( +SPPCON XIP STREAM SPPXIP) \GCMAPSCAN (GC HTCOLL) OPT.JFIXPASS (TAG) SEDIT::SCAN-STRING (SEDIT::EDIT-POINT + READTABLEP) \GCMAPUNSCAN (GC HTCOLL) CHAT.TYPESCRIPT1 (CHAT.STATE) GETSCREENREGION (SCREEN) +\DORETCALL (IFPAGE FX FSB) \GATHER-SPECIAL-BINDINGS (FNHEADER PVARSLOT FX) \DISPLAYLINE (THISLINE +TEXTOBJ FMTSPEC LINEDESCRIPTOR STREAM ARRAYP) \DFSCurrentVolume (LogicalVolumeDescriptor) +SEDIT::ATOM-CHANGE-RELINEARIZE (SEDIT::BROKEN-ATOM) \GETBRUSHBBT (BITMAP PILOTBBT \DISPLAYDATA) +\REFCNT (MDSTYPEWORD POINTER GC) \ALLOCMINIMUMSIZES (RESHAPINGWINDOWDATA) \EQREFCNT1 (MDSTYPEWORD +POINTER GC) RESET (FX) NIL +CREATE \TEDIT.OBJECT.SHOWSEL (REGION) \LFFindInfo (FileDescriptor) \INSERT.FIRST.PIECE (FMTSPEC) +\COERCE.NS.SOCKET (NSADDRESS) SHOWWTITLE (REGION) GETNSPRINTER (NSPRINTER) \FM.STATE-SETUP (MENU) +SEDIT::CREATE-SIMPLE-NODE (SEDIT::EDIT-NODE SEDIT::STRING-ITEM) \TEDIT.GET.SINGLE.PARALOOKS2 (FMTSPEC +TAB) \CREATE.THROUGH.EXTERNALFORMAT (EXTERNALFORMAT) SEDIT::INITIALIZE (SEDIT::EDIT-NODE-TYPE SEDIT::GAP + SEDIT::EDIT-SELECTION SEDIT::EDIT-POINT) \ALLOCVIRTUALPAGEBLOCK (POINTER) \TEXTMENU.TOGGLE.CREATE ( +IMAGEBOX) COMP.BLOCK (TAG BLOCKSTATUS) \TFBRAVO.READ.PARALOOKS (FMTSPEC) TTYIN (TTYINBUFFER LINE) +\TEDIT.HARDCOPY.FORMATLINE (EDITMARK) MAKEINITBFS (DSKOBJ DISKREQUEST CB) MSCOMMAND (SENTENCE +MSSETPHRASE THAT) FB.MAKEHEADINGWINDOW (REGION) DEFAULT.INSPECTW.PROPCOMMANDFN (MENU) SPYOBJ ( +SPYOBJDATA) MAKEBRES (BRES) VRULE.IMAGEBOXFN (IMAGEBOX) CHAT.CHOOSE.EMULATOR (CHATDISPLAYTYPE) +\COURIER.CHECK.PROCEDURES (COURIERFN) \CREATECHARSET.IP (CHARSETINFO) \UPDATE.PBT.RASTERWIDTHS ( +POINTER) MAKEMACFORMAT (EXTERNALFORMAT) \NSFILING.INIT (FDEV) \VAMAdjustGroup (PageGroup) MB.COPYFN ( +IMAGEOBJ) COMP.PUSHCALL (TAG) TYPEINMENU (MENU) ALLOCSTRING (STRINGP) \IMAGEIOINIT (IMAGEOPS) +DEFAULT.INSPECTW.TITLECOMMANDFN (MENU) \TEDIT.CREATEMENU (MENU) \DSKDISPLAY.CREATE.WINDOW (REGION +POSITION) FB.MAKECOUNTERWINDOW (REGION) IDLE.SET.OPTION (MENU) FB.MAKE.SUBDIRECTORY.ITEM (TABLEITEM +FBFILEDATA) PFI.COLLECT.DEFINERS (PFITYPE) SEDIT::INITIALIZE-LISTS (SEDIT::EDIT-NODE-TYPE) +SEDIT::SETUP-WINDOW-CONTEXT-DEPENDENCIES (REGION) CL:MAKE-BROADCAST-STREAM (STREAM) +\TEDIT.COPYTEXTSTREAM.PIECEMAPFN (PIECE) \VFMDelete (Key) CREATEARRAYSLICE (ICML.ARRAYSLICE) SUBSTRING + (STRINGP) CL:MAKE-ECHO-STREAM (STREAM) WINDOWPOSITION (POSITION) TEDIT.GETSEL (SELECTION) +\LEAF.DEVICEP (FDEV PUPFILESERVER) \COURIER.CHECK.ERRORS (COURIERERR) CL:MAKE-SYNONYM-STREAM (STREAM) +\VFMGetPageGroup (Key Interval PageGroup) MKSTRING (STRINGP) \LFUnpackName (ExpandedName) LAYOUTSEXPR1 + (GRAPHNODE) CL:MAKE-TWO-WAY-STREAM (STREAM) \10MB.CREATENDB (NDB) CHANGE.NODEFONT.SIZE (POSITION) +MAKESCAN (SCAN) MSPARSE (CVERB) MSINTERPRET (MSSETPHRASE THAT MSVERB) FW-AFTERMOVEFN (POSITION) +\PFFindRootDirEntryNum (RootDirEntry) DBG::ATTACH-BACKTRACE-MENU (MENU BKMENUITEM POSITION) +SPY.MERGE.CALLEES (SPYRECORD) \PRESSINIT (IMAGEOPS) FONTCLASS (FONTCLASS) SEDIT::INITIALIZE-COMMENTS ( +SEDIT::EDIT-NODE-TYPE) \LFPurgeDirectory (FileDescriptor) SPY.TREE (SPYDATA) \NSFILING.CONNECT ( +FILINGHANDLE) PROMPTFORWORD (POSITION) \CH.UPDATE.CACHE (ORGCACHE DOMAINCACHE) SEDIT::MAKE-GAP (SEDIT::GAP +) MAKETITLEBARICON (REGION) TRANSLATEREG (REGION) ASKUSER (ASKUSER) FB.ADD.FILEGROUP (TABLEITEM) +BROWSE/LAYOUT/LATTICE (GRAPH) CREATEREGION (REGION) \ALLOCATE.ETHERPACKET (ETHERPACKET) +MAKE-READER-ENVIRONMENT (READER-ENVIRONMENT) SHOWBITMAP.IP (REGION) MAKE-COMPILED-CLOSURE ( +COMPILED-CLOSURE) \CREATE.TITLEMENU (MENU) \LFOpenOldFile (LeaderPage DLIONSTREAM) SELECT.ATOM.ASPECT +(MENU) COMP.EVALFORM (TAG) CCCSCAN (REFMAP) \SHIFT.DOCUMENT (FMTSPEC) \TFBRAVO.READ.CHARLOOKS ( +CHARLOOKS) TWODINSPECT.SELECTITEM (TWOD.SELECTION) \TFBRAVO.PARSE.PARA (PARA RUN) \LEAF.GETFILE ( +STREAM) TEDIT.INCLUDE (TEDITHISTORYEVENT) RESET/NODE/LABELSHADE (POSITION) FW-INIT-PROPS (POSITION) +MOVENODE (POSITION) MSQUOTED (QUOTE) \MAKEFLOAT (FLOATP) \NULLDEVICE (FDEV) CHAT.INIT (CHAT.STATE) +DOICONWINDOWCOM (MENU POSITION) COMP.PUSHNILS (TAG) \TEDIT.SCALEREGION (REGION) MAKEIBMFORMAT ( +EXTERNALFORMAT) SPY.FIND.TREE (SPYRECORD) TB.MAKE.BROWSER (TABLEBROWSER) \NULL.OPENFILE (STREAM) +\LFDirectoryP (FileDescriptor) DINFO.READ.KOTO.GRAPH (DINFOGRAPH) CHAT (MENU) SEDIT::CREATE-QUOTED-GAP + (SEDIT::EDIT-NODE) \VFMPutNext (Interval) MAKELINE (XXLINE) \CREATE.SETABLEMENU (MENU) INSPECT/BITMAP + (MENU) PARSE-NSADDRESS (NSADDRESS) TTYINBUFFERSTREAM (STREAM) ICONPOSITION.FROM.WINDOW (POSITION) +\INFINITY (FLOATP) MAKEISOFORMAT (EXTERNALFORMAT) \LFVersions (DIRSEARCHSTATE) \PFPurgeRootDirectory ( +FileDescriptor) \DONEWEPHEMERALPAGE (POINTER) BITMAPCREATE (BITMAP) \TEDIT.FORMAT.FOOTNOTE ( +LINEDESCRIPTOR THISLINE) ENCAPSULATEDOBJ.IMAGEBOXFN (IMAGEBOX) SEDIT::MAKE-BROKEN-ATOM (SEDIT::BROKEN-ATOM +) OPENPRSTREAM (PRESSDATA) CREATE.MONITORLOCK (MONITORLOCK) IRM.CREF.BOX (IMAGEBOX) +TEDIT.COMPOUND.PAGEFORMAT (PAGEREGION) DOATTACHEDWINDOWCOM (MENU POSITION) POSTSCRIPT.FONTCREATE ( +FONTDESCRIPTOR) UNIONREGIONS (REGION) CALLSCCODE (RESULT) MSSETPHRASE (MSSETPHRASE) FB.DEPTHCOMMAND ( +MENU) TEDIT.FORMATTEXTBOX (LINEDESCRIPTOR THISLINE) HASHARRAY (HARRAYP) \CH.GUESS.NEW.PROPERTIES ( +NSNAME) INSPECT/ATOM (MENU) SEDIT::FORMAT-FROM-INDENT (SEDIT::LIST-FORMAT) DEFAULT.BACKGROUND.COPYFN ( +MENU POSITION) \CREATE.INSPECTABLEMENU (MENU) MSSEEKPHRASE (PARSED CONJUNCTION) \SPP.CREATE.CON ( +SPPCON) TEDITCHAT.MENUFN (MENU) \TEDIT.LOOKS (POSITION MENU) \ALLOCMAPBUFFER (BUFFER) COMPOSEREGS ( +REGION) \LFCreateDevice (FDEV) MARGINBAR.CREATE (IMAGEBOX MARGINBAR REGION) \LFCreateFile (DLIONSTREAM + FileDescriptor PageGroup) WHO-LINE-CHANGE-USER (MENU) \NAMEDTABSIZE (IMAGEBOX) +\LEAF.TIMEDOUT.EXCESSIVE (MENU POSITION) SPY.DELETE (SPYRECORD) ONEDINSPECT.ADJUSTSELECTION ( +ONED.SELECTION) SUBARRAY (ARRAYP) TOPW.ADJUSTSELECTION (ONED.SELECTION) SEDIT::PRETTY-PRINT ( +SEDIT::EDIT-CONTEXT SEDIT::EDIT-NODE) MB.SIZEFN (IMAGEBOX) COMP.SPREAD (TAG) %%COPY-STRING-TO-ARRAY ( +ONED-ARRAY) PRINTANDBOX (REGION) DOBACKGROUNDCOM (MENU POSITION) MSSETREP (IN APPLY PATHS THAT FIELDS +MSVERB MSSETPHRASE QUOTE NOT) \DISPLAYINIT (WSOPS WSDATA REGION IMAGEOPS FDEV DISPLAYSTATE) +\LOADNSADDRESS (NSADDRESS) \LFGetStreamForFile (FileDescriptor) COMP.STUNBIND (OP) TEDIT.FORMATFOLIO ( +THISLINE LINEDESCRIPTOR) PUTFILEMAP (FILEMAPHASH) \CREATE.SPP.DEVICE (FDEV) FW-CREATE-OFD (FW-OFD) +UPDATE/MENU/IMAGE (REGION POSITION) FLOATP.TO.BCPL (BCPLNUM) TEDIT.UNDO.DELETION (PIECE) +\CH.CHECK.CLEARINGHOUSE (NSNAME) \NSFILING.DESERIALIZE (FILINGHANDLE) CL::VALUES-UFN (WORD) +\TEDIT.SELECT.CHARACTER (REGION) TTYINBUFFERDEVICE (FDEV) \DO-DEFINE-FILE-INFO (READER-ENVIRONMENT) +CL::VALUES-LIST-UFN (WORD) BCPL.TO.FLOATP (FLOATP) \PUTONSCREENW (POSITION) STRINGREGION (REGION) +RESET/NODE/BORDER (POSITION) DINFO.UPDATE.MENU.DISPLAY (MENU REGION POSITION) \TEDIT.MOVE.PIECEMAPFN ( +PIECE) COMP.STBIND (OP) COMP.MAP (TAG JUMP) COURIER.READ.NSADDRESS (NSADDRESS) MENUWRESHAPEFN ( +POSITION) \PFRemoveRootDirEntry (RootDirEntry) OPENHASHFILE (HashFile) \PS.SCALEREGION (REGION) +FILEBROWSER (MENU REGION FILEBROWSER) ITEM.WINDOW.SET.STACK.ARG (MENU) IRM.DISPLAY.CREF (REGION) +%%COPY-ONED-ARRAY (ONED-ARRAY) MENUITEMREGION (REGION) TRACKCURSOR (POSITION) \GENERIC.DSPCREATE ( +STREAM \DISPLAYDATA) FB.SEEFULLFN (MENU) CREATEWFROMIMAGE (SCREENREGION) \DRAWPOLYGON.DISPLAY (BRUSH) +CREATE-SHELL-STREAM (STREAM) PAINTW.READCOMMAND (MENU) TEDIT.FORMATHEADING (THISLINE LINEDESCRIPTOR) +NEAREST/PT/ON/GRID (POSITION) ICMLARRAY.GETMENUWGROUP (POSITION) OPENBSPSTREAM (STREAM) \VFMSplit (Key +) OPT.LABELNTHPR (TAG) CH.SERVERS (NSNAME) PAINTW.READMODE (MENU) \MEDW.DSPCREATE (STREAM \DISPLAYDATA +) WHO-LINE-SAVE-VMEM (MENU) \CH.FIND.ORG.SERVER (DOMAINCACHE ORGCACHE NSNAME) +\TFBRAVO.INSTALL.PAGEFORMAT (TFBRAVOPAGEFRAMES) \LFMakeVolumeDirectory (FileDescriptor PageGroup) +CREATEHASHFILE (HashFile) \LEAF.WRITEPAGES (BYTEPTR) \PROCESS.INIT (FDEV) MENUREGION (REGION) +\KEYBOARDINIT (KEYBOARDEVENT SHIFTSTATE) \PFAddRootDirEntry (RootDirEntry) \SETLOCALNSNUMBERS ( +NSHOSTNUMBER NSADDRESS) ICONW (REGION) TEDIT.FORMATPAGE (LINEDESCRIPTOR) EDITBMBUTTONFN (MENU REGION) +ICMLARRAY.GETREGIONFN (POSITION) KEYACTIONTABLE (KEYACTION) \SPLITTREE (BTREENODE) OPENPUPSOCKET ( +PUPSOCKET) STORAGE (HUNKSTAT) TRANSLATE.DATATYPE (SPEC FldDsc) FB.NEWINFOCOMMAND (MENU POSITION) +TEDIT.REDO.INSERTION (PIECE) STORAGE.LEFT (POINTER) BROWSE/LAYOUT/HORIZ/COMPACTLY (GRAPHNODE GRAPH) +\TEXTINIT (IMAGEOPS FDEV STREAM TEXTIMAGEDATA) \STORAGE.TYPE (POINTER) \PFCreateRootDirectory ( +FileDescriptor PageGroup) MB.SELFN (SELECTION) NEW/INSTANCE/OF/GRAPHNODE (GRAPHNODE) MSPRED ( +MSSETPHRASE NOT THAT) EXTENDEXTENT (REGION) \VFMBlankInterval (Interval) ONEDINSPECT.SELECTPROP ( +ONED.SELECTION) INITIALIZE-SHELL-DEVICE (FDEV) SEDIT::CREATE-STRING-ITEM (SEDIT::STRING-ITEM) +COMP.LOOKUPVAR (VAR) INSPECTW.REDISPLAY (SELECTABLEITEM REGION) ICMLARRAY (POSITION) +\CREATE.XCCS.EXTERNALFORMAT (EXTERNALFORMAT) FB.CREATE.FILEBUCKET (FBFILEDATA) BRH/LAYOUT (POSITION) +ADDFILE0 (FILEPROP FILEDATEPAIR) TEDIT.PARSE.PAGEFRAMES (PAGEREGION) COMP.SELECTQ (TAG) +SEDIT::INSTALL-SPECIAL-FORMATS (SEDIT::LIST-FORMAT) \CODEARRAY (ARRAYP) SPY.NEXT.TREE (SPYRECORD) +READHOTSPOT (POSITION) CHAT.ICONFN (TITLEDICON) PAINTW.READBRUSHSIZE (MENU) COMP.STSETQ (OP) +\TEDIT.DEFAULTSSEL (CHARLOOKS) POSTSCRIPT.SET-FAKE-LANDSCAPE (REGION) \LEAF.TRUNCATEFILE (BYTEPTR) +\FONTFACE (FONTFACE) \DSPCLIPPINGREGION.IP (REGION) INSPECT/HUNK (MENU) \GENERATENOFILES (FILEGENOBJ +NOFILEGENSTATE) \PFNewPages (PageGroup) BROWSE/LAYOUT/HORIZ (GRAPH) \NULLFILEGENERATOR (FILEGENOBJ) +\DELETECH (TEDITHISTORYEVENT) EDITADDNODE (POSITION) \VFMAtLoad (Key Interval Index) \CONS.UFN ( +POINTER) MSBLOCK (BLOCKS) SEDIT::INITIALIZE-ATOMIC (SEDIT::EDIT-NODE-TYPE) DSPCREATE (STREAM +\DISPLAYDATA) NEWDEFC (COMPILED-CLOSURE) TEDIT.PARALOOKS (FMTSPEC TAB TEDITHISTORYEVENT) \NOTE.10TO3 ( +NSADDRESS) PAINTW.READBRUSHSHAPE (MENU) GETGRIDBOXREGION (REGION) \PFPutRootDirectory (FileDescriptor) + SEDIT::OUTPUT-CR (SEDIT::LINE-START) \ALLOCBLOCK.NEW (POINTER) DINFO.UPDATE.HISTORY (MENU) +\4DISPLAYINIT (IMAGEOPS FDEV DISPLAYSTATE) SEDIT::CREATE-PRETTY-PRINT-ENV (SEDIT::EDIT-ENV) SQRT ( +FLOATP) IMAGEOBJCREATE (IMAGEOBJ) \HANDLE.RAW.XIP (ROUTING) MSJOINSET (CSET MSSETPHRASE) +\PFGetRootDirectory (FileDescriptor) MSINTERPRETSET (INRELATION MSSETPHRASE QUOTE NOT CSET THAT MSVERB + PATHS PATHOPTIONS GETHASH) \COURIER.REP.BOUT (WORD) PAINTW (CURSOR) \PRESSCURVE2 (POLYNOMIAL) +COMP.LOOKUPCONST (OP) COMP.NUMBERTEST (JUMP TAG) OPENIPSTREAM (INTERPRESSDATA EXTERNALFORMAT REGION +IPSTATE) \TEDIT.PARSE.CHARLOOKS.LIST (CHARLOOKS) \TEDIT.DEFAULTS.CARET (CHARLOOKS) TEDIT.BUILD.PCTB0 ( +FMTSPEC PIECE) MB.SETIMAGE (IMAGEBOX) PUTHASHTEXT (HashTextPtr) LLBREAK (COMPILED-CLOSURE) +SEDIT::CREATE-NEW-COMMENT (SEDIT::EDIT-NODE) CREATE.NEW.NODEPOSITION (POSITION) +\CANONICALIZE.NSADDRESS (NSADDRESS) READ-AFM-FILE (PSCFONT MENU) \TEDIT.WORDBOUND.READTABLE ( +READTABLEP) TEDIT.MOVE (TEDITHISTORYEVENT) PARSE.NSNAME (NSNAME) \VANILLADISKINIT (FDEV) +\LEAF.GETFILEINFO.OPEN (BYTEPTR) \UFS.CREATE.DEVICE (FDEV) \DSPPUSHSTATE.PSC (POSTSCRIPTXFORM) +TEDIT.FORMAT.HARDCOPY (PAGEFORMATTINGSTATE) COURIER.READ.NSNAME (NSNAME) +SET-CONNECTED-DIRECTORY-INTERACTIVELY (MENU) \LOCATE.NSNET (ROUTING) GRAPHEDITCOMMANDFN (MENU) +NODECREATE (GRAPHNODE) \TEDITPAGEMENU.CREATE (MB.TEXT) MSNEGATESET (NOT MSSETPHRASE) PPROCEXTENT ( +REGION) \INIT.POWERS.OF.TEN (EFPN) \TEDIT.PARSE.PARALOOKS.LIST (TAB FMTSPEC) TEXTICON (POSITION) +FB.GET.SORT.MENU (MENU) COMP.COND (TAG JUMP) RESHAPEBYREPAINTFN (REGION) \8DISPLAYINIT (IMAGEOPS FDEV +DISPLAYSTATE) \TEDIT.GET.SINGLE.PARALOOKS (FMTSPEC TAB) \BN.TO.FIXP (BIGNUM) \CREATESTARFONT ( +FONTDESCRIPTOR) \SELECTPROCESS (MENU) MB.NWAYBUTTON.SELFN (REGION) FW-RESIZE-OFD (REGION) BRHL/LAYOUT +(POSITION) MakeMenuOfImageTypes (MENU) \HANDLE.NS.ROUTING.INFO (ROUTING) FREEATTACHEDWINDOW (POSITION) + MB.MARGINBAR.SIZEFN (IMAGEBOX) PROCESS.STATUS.WINDOW (MENU REGION POSITION) \UFSOpenFile (STREAM) +\NSFILING.GETFILE (FILINGHANDLE) EDITSHADEREPAINTFN (BUTTON) DINFO.DEFAULT.MENU (MENU) +FB.INSERT.SUBDIRECTORIES (FBFILEDATA) \GETFBB (FONTBOUNDINGBOX) RIGHTW.ADJUSTSELECTION (ONED.SELECTION +) OPT.FRAMEDEL (OP) \LFMakeLeaderPage (LeaderPage) \READACFONTBOXES (BOUNDINGBOX) TEDIT.BUILD.PCTB2 ( +FMTSPEC PIECE) \DL.FAULTINIT (POINTER) \CURVE2 (POLYNOMIAL) SCALE/GRAPH (GRAPH GRAPHNODE POSITION) +PRINTDATE (FILEDATEPAIR) FW-INIT-MENUS (MENU) TEDIT.BUILD.PCTB (FMTSPEC PIECE) OPENPOSTSCRIPTSTREAM ( +\POSTSCRIPTDATA EXTERNALFORMAT) SEDIT::CREATE-NODE (SEDIT::EDIT-NODE) TEDIT.BUILD.PCTB1 (FMTSPEC PIECE +) \MAIKO.FAULTINIT (POINTER) PARAMETRICSPLINE (SPLINE) TEDIT.FIND (TEDITHISTORYEVENT) FB.DELVERCOMMAND + (MENU) \CORE.GETINFOBLOCK (COREFILEINFOBLK) SNAPW (SCREENREGION) DINFO.LAYOUTGRAPH (GRAPHNODE) +DINFO.SELECT.GRAPH (MENU) \DOVE.FAULTINIT (POINTER) \3MB.CREATENDB (NDB) SET-PROFILE-INTERACTIVELY ( +MENU) CROPMARK.IMAGEBOXFN (IMAGEBOX) SEDIT::CREATE-GAP-NODE (SEDIT::EDIT-NODE) \CORE.FINDPAGE ( +CORE.PAGEENTRY) DASSEM.DASSEM (OP JD) \BSPINIT (FDEV) SEDIT::COPY-STRUCTURE-COMMENT-WORD ( +SEDIT::STRING-ITEM) \CORE.GENERATEFILES (FILEGENOBJ COREGENFILESTATE) ADDMENU (POSITION) \TEXTMARK ( +BYTEPTR) \TEDIT.HCPYFMTSPEC (FMTSPEC) \ADVANCE.ARRAY.SEGMENTS (POINTER) FONTCOPY (FONTFACE) TRACKW ( +POSITION) DINFO.SHOWGRAPH (REGION) \MEDW.SHRINKW (POSITION) \CORE.DELETEFILE (CORE.PAGEENTRY) +SPY.LEGEND (GRAPHNODE) SPY.MAKEGRAPHNODES (GRAPHNODE) PSCFONTFROMCACHE.SPELLFILE (PSCFONT) +\24DISPLAYINIT (IMAGEOPS FDEV DISPLAYSTATE) SEDIT::CREATE-ENVIRONMENTS (SEDIT::EDIT-ENV) +\PSWOP.SELECTED (MENU) MAKEBITTABLE (CHARTABLE) \CORE.GETFILEINFO.FROM.INFOBLOCK (BYTEPTR) +\PFGetPhysicalVolumePage (Label) DBG::DEBUGGER-BUTTON-EVENT (MENU) \CORE.GETFILEHANDLE (CORE.PAGEENTRY + CORESTREAM) CREATESCREEN (SCREEN) \TEDIT.NSCHAR.RUN (PIECE) \NSFILING.HOSTNAMEP (FDEV +NSFILINGDEVICEINFO) ONEDINSPECT.SELECTITEM (ONED.SELECTION) \DSKDISPLAY.RESHAPEFN (POSITION) +\FM.CREATEITEM (FREEMENUITEM) \SHOWTEXT (LINEDESCRIPTOR) PTPLUS (POSITION) \VFMFreeVPage (PageGroup) +TEDIT.SETFUNCTION (READMACRODEF) \PFFindRootDirEntry (RootDirEntry) TRANSGRAPH (GRAPH GRAPHNODE +POSITION) \FDEVINSTANCE (FDEV) MSVERBED (THAT MSSETPHRASE) \PRINTFPTOVP (POINTER) MSDOES (MSSETPHRASE +THAT) \TEDIT.FORMATTABS (PENDINGTAB) FB.EXPUNGE?.MENU (MENU) MSADDANALYZE (MSANALYZABLE) +NESTED.SUBMENU (MENU POSITION) DBG::NEAR-BY-REGION (REGION) \NSFILING.GENERATEFILES (FILEGENOBJ +\NSFILING.GENFILESTATE) CHANGE-TTY-PROCESS-INTERACTIVELY (MENU) \RESHOWBORDER1 (REGION) +\HANDLE.RAW.3TO10 (NSADDRESS) \MEDW.RELMOVEW (POSITION) ACCEPT-UNIX-SOCKET-STREAM (STREAM) +EXPANDING-PAGEFULLFN (REGION) \NSFILING.COPY/RENAME (FILINGHANDLE) TEDIT.PUT (TEDITHISTORYEVENT) +DEFAULT.INSPECTW.VALUECOMMANDFN (MENU) PSCFONT.READFONT (PSCFONT) SEDIT::COPY-STRUCTURE-STRING ( +SEDIT::BROKEN-ATOM SEDIT::STRING-ITEM) \MAKEPCTB (BTREENODE) \PUTBASEBYTE (WORD) OPENRTPSOCKET (BSPSOC +) \CREATEDISPLAYFONT (FONTDESCRIPTOR) \DSPTRANSFORMREGION (REGION) \TELERAIDSERVER (WORD) +\STARTDISPLAY (REGION) \TFBRAVO.INIT.PARALOOKS (FMTSPEC) \CREATE-REAL-CHARSET.DISPLAY (FONTFACE) +\OFFSETCLIPPINGREGION (REGION) CREATE-UNIX-SOCKET-STREAM (STREAM) BITMAPTEDITOBJ (BITMAPOBJ) +UPDATE/SCROLL/REG (REGION) PROCESS.BACKTRACE (REGION) \TEDIT.COPY.PIECEMAPFN (PIECE CHARLOOKS) +INSERTLINE (LINE) \SFMAKEITALIC (CHARSETINFO) CHAT.RECONNECT (MENU) \TEDIT.GET.INSERT.CHARLOOKS ( +CHARLOOKS) \SETTERMSYNTAX (TERMCODE) \BUILDSLUGCSINFO (CHARSETINFO) \CreateScreenBitMap (BITMAP) +\MEDW.MOVEW (POSITION REGION) \10MB.STARTDRIVER (SYSQUEUE) ADD/AND/DISPLAY/LINK (POSITION) +\CORE.OPENFILE (CORE.PAGEENTRY CORESTREAM) DIRECTORY (FILEGROUP) \SFROTATECSINFO (CHARSETINFO) +POSTSCRIPT.HARDCOPYW (REGION) \VFMGetInterval (Interval) PTDIFFERENCE (POSITION) FW-CLOSE-CMD (MENU) +GETPROMPTWINDOW (REGION) TEDIT.PARSE.PAGEFRAMES1 (PAGEREGION) MB.MARGINBAR.DISPLAYFN (REGION) +\TEDIT.READTABLE (READTABLEP) SEDIT::COPY-NODE (SEDIT::EDIT-NODE) MB.NB.SIZEFN (IMAGEBOX) +\INITBCPLDISPLAY (STREAM FDEV) \MAIKO.NEWFAULTINIT (POINTER) COPYTERMTABLE (TERMTABLEP CHARTABLE) +SHOWGRAPH (GRAPH) DOWINDOWCOM (MENU POSITION) CHAT.PROMPT.FOR.INPUT (REGION) OPT.FRAMEMERGE (OP) +\PROMPTWINDOW.SET.HEIGHT (POSITION) \CREATEDISPLAY (FDEV DISPLAYSTATE) \IRM.WILD.REF (MENU) +\ORIGREADTABLE (READTABLEP) NESTED.SUBMENU.POS (POSITION) EDITDELETENODE (POSITION) \CREATECHARSET.PSC + (CHARSETINFO) \CREATE.TWODINSPECTOR.INSPECTMENU (MENU) \IDLE.PROMPT.WATCHER (FIXP) COMP.STJUMP (JUMP) + PFI.HANDLE.DEFDEFINER (PFITYPE) OPT.SCANOPT (OP) TEDIT.INSERT.OBJECT (PIECE TEDITHISTORYEVENT) +MENUWINDOW (MENU) DISPLAYSTREAMINIT (REGION) \LFExtendFile (PageGroup) FB.MAYBE.INSERT.FILE (TABLEITEM +) \CREATE.TEDIT.FACE.MENU (MENU) INSPECT/AS/BLOCKRECORD (MENU) WINDOWWORLD (POSITION) +\NSFILING.PARSE.FILENAME (NSFILINGPARSE) \VFMDeletePageGroup (Key Interval) PROCESSWORLD (PROCESS) +TEDIT.GET.CHARLOOKS0 (CHARLOOKS) HRULE.IMAGEBOXFN (IMAGEBOX) SHAPEW1 (REGION) ADD.PROCESS (PROCESS) +\CREATECOREDEVICE (FDEV) \TFBRAVO.INIT.CHARLOOKS (CHARLOOKS) \CARET.CREATE (CARET1) \TEDIT.WINDOW.OPS +(REGION) DISPLAYGRAPH (POSITION) OPT.CFRPTQ (TAG) CREATE.EVENT (EVENT) MAPATOMS (POINTER) +BMOBJ.IMAGEBOXFN (IMAGEBOX) \VFMGet (Interval) \CREATE.TWODINSPECTOR.SETMENU (MENU) EDITGRAPH1 (GRAPH) + SEDIT::CONS-ATOM (SEDIT::BROKEN-ATOM) DINFO.READ.GRAPH (DINFOGRAPH) CREATE-PROCESS-STREAM (STREAM) +\INIT.KEYBOARD.STREAM (FDEV STREAM) ECHOCHAR (TERMCODE) TEDIT.GET.PARALOOKS0 (FMTSPEC TAB) ED (MENU) +CREATEMENUEDWINDOW (MENU REGION) MARGINBAR (REGION) BMOBJ.CREATE.MENU (MENU POSITION) +\CREATE.TEDIT.SIZE.MENU (MENU) \TEDIT.MENU.INIT (MB.TEXT MB.BUTTON MB.TOGGLE MB.INSERT MB.NWAY +MB.3STATE MB.MARGINBAR) FW-CHANGE-POSITION (POSITION) \FONTFACE.COLOR (FONTFACE) INSPECT/AS/RECORD ( +MENU) COPYGRAPH (GRAPH GRAPHNODE POSITION) INSTALLBRUSH (BRUSHITEM) CURSOR.INIT (PILOTBBT) TTNEXTPOS ( +MOUSEPOS) FW-FORGET-CMD (MENU) \DL.NEWFAULTINIT (POINTER) \NEXTCONSPAGE (POINTER) \PAGEDGETEOFPTR ( +BYTEPTR) \CREATE.TEDIT.DEFAULT.FMTSPEC (FMTSPEC) \COMPUTE.ARC.POINTS (POSITION) \HANDLE.RAW.PUP ( +PUPADDRESS ROUTING) \PAGEDGETFILEPTR (BYTEPTR) GET.EDIT.BITMAP.MENU (MENU) \PROMPTWINDOW.EXPAND ( +REGION) ICMLARRAY.MENUW.APPLY (POSITION) TEDIT.GET (TEDITHISTORYEVENT) CHAT.MENU (MENU) +SET-READTABLE-INTERACTIVELY (MENU) \NODIRCORE.OPENFILE (CORESTREAM COREFILEINFOBLK) \MEDW.CREATEW ( +WINDOW REGION) \CREATE.TWODINSPECTOR.TITLEMENU (MENU) \RENAMEDFN (COMPILED-CLOSURE) FW-SHAPEW (REGION) + %%MAKE-ONED-ARRAY (ONED-ARRAY) GETD (COMPILED-CLOSURE) FW-RECALL-CMD (MENU) \CREATEPIECEORSTREAM ( +PIECE FMTSPEC) SI::GET-CACHE-CLOSURE (COMPILED-CLOSURE) SPYOBJ.IMAGEBOX (IMAGEBOX) TWOD.TRACKCURSOR ( +TWOD.SELECTION) SEDIT::OUTPUT-STRING (SEDIT::STRING-ITEM) \INITBIGNUMS (BIGNUM) \ORIGTERMTABLE ( +TERMTABLEP CHARTABLE) INITIALIZEDISPLAYSTREAMS (REGION PILOTBBT) MB.MARGINBAR.SELFN (REGION TAB) +ICMLARRAY.MENUW.GETLEVEL (MENU) \FIXLOCALNET (PUPADDRESS) \INSPECT/CODE/RESHAPEFN (POSITION REGION) +COMP.BOOL (TAG JUMP) \ALLOCMDSPAGE (POINTER) \MEDW.GETSCREENREGION (POSITION SCREENREGION) +TEDIT.MINIMAL.WINDOW.SETUP (REGION) DELETE/AND/DISPLAY/LINK (POSITION) ARRAY (ARRAYP WORD) +DRAWMARGINSCALE (REGION) BRHC/LAYOUT/DAUGHTERS (POSITION) \MAIKO.10MBSTARTDRIVER (SYSQUEUE) +%%DO-LOGICAL-OP (PILOTBBT) \TEDIT.CHARLOOKSMENU.CREATE (MB.BUTTON MB.TEXT) \HDCPYDISPLAYINIT (IMAGEOPS +) CURSORCREATE (CURSOR) OPT.COMPINIT (OP) BULKDATA.GENERATOR (BULKDATAGENERATOR) CHECKCONSPAGES ( +POINTER) \READSTRIKEFONTFILE (CHARSETINFO) COPYREADTABLE (READTABLEP) \LOADNSHOSTNUMBER (NSHOSTNUMBER) + \MAPMDS (POINTER) \READACFONTFILE (CHARSETINFO) \VECFONTINIT (FONTDESCRIPTOR CHARSETINFO) +\LOCATE.PUPNET (ROUTING) OPT.NOTJUMP (OP) \CHECKCONSPAGE (POINTER) SEDIT::CREATE-NULL-LIST ( +SEDIT::EDIT-NODE) HARDCOPYGRAPH (POSITION) ASSURE.PUP.READY (PUPADDRESS) TEDIT.LOOKS ( +TEDITHISTORYEVENT) \VFMGetBufferFor (\BTREEBUF Buffer) \NSFILING.OPEN.HANDLE (FILINGHANDLE) +\GET.PRIORITY.QUEUE (PROCESSQUEUE) \TEDIT.GET.PARALOOKS1 (FMTSPEC TAB) TITLEDICONW (ICONTITLE) +\NSRANDOM.TRUNCATEFILE (BYTEPTR) \CREATE.TEDIT.DELETESELECTION (SELECTION) BUTTONPANEL (MENU) +BRHC/LAYOUT/TERMINAL (POSITION) MakeMenuOfPrinters (MENU) \CREATE.TEDIT.MOVESELECTION (SELECTION) +\TEDIT.CHANGE.LOOKS (CHARLOOKS) COMP.STFN (OP) MAKE-FILL-POINTER-OUTPUT-STREAM (STREAM) +GRAPHOBJ.IMAGEBOXFN (IMAGEBOX) \LFGenerateFiles (DIRSEARCHSTATE FILEGENOBJ GenerateFileState) +COMP.BIND.VARS (VAR FRAME) COMP.TAGBODY (TAG) ROTATE-BITMAP (PILOTBBT) \IRM.CHOOSE.REF (MENU) +\ETHERINIT (FDEV) \BASEBYTES.IO.INIT (FDEV) EDITBMRESHAPEFN (REGION) TWODINSPECT.SELECTCOLUMNPROP ( +ONED.SELECTION) \PFRemoveDirectoryID (RootDirectory) SEDIT::QUERY-THROW-AWAY-CHANGES (MENU) CLEARSTK ( +POINTER) BREAKREGIONSPEC (REGION) ROTATE-BITMAP-LEFT (PILOTBBT) \BIGNUM.LSH (BIGNUM) CURSORPOSITION ( +POSITION) CHAT.CHOOSE.PHONE.NUMBER (MENU) \SFMAKECOLOR (CHARSETINFO) MB.CREATE.THREESTATEBUTTON ( +IMAGEBOX) SPP.DESTADDRESS (NSADDRESS) FW-CREATEW (REGION) \VFMCreateVPage (PageGroup) STRIKECSINFO ( +CHARSETINFO) CH.FINDSERVER (NSNAME) INSTALL-PROTOTYPE-DEFN (MENU) %%FAST-COPY-BASE (PILOTBBT) +\CREATE.TEDIT.SHIFTEDSELECTION (SELECTION) NETDATE (FIXP) CL:MAKE-CONCATENATED-STREAM (STREAM) +\OPENLEAFCONNECTION (SEQUIN) TTMAKECOMPLEXCHAR (COMPLEXCHAR) \MEDW.GETBOXSCREENPOSITION ( +SCREENPOSITION) TB.SET.FONT (REGION) COMP.BINDLIST (VAR) \PFCreateVols (LogicalVolumeDescriptor) +\MAKEBASEBYTESTREAM (BASEBYTESTREAM) \SETNEWTIME0 (FIXP) TEDIT.COPY (TEDITHISTORYEVENT) +SELECT.FNS.EDITOR (MENU) POSTSCRIPT.GETFONTID (FONTID) \LEAF.GETFILEDATES (LEAFINFOBLOCK) +\NSRANDOM.CREATE.STREAM (STREAM) INITIALIZE-NEW-SHELL-DEVICE (FDEV) \TEDIT.GET.CHARLOOKS1 (CHARLOOKS) +CARET (CARET1) CONTINUEDIT (FILEDATEPAIR) \PFInitFileDescriptors (VolumeID) \TEDIT.CREATE.LINECACHE ( +LINECACHE) \NSRANDOM.PREPARE.CACHE (NSPAGECACHE) MSSOLVE (MSSETPHRASE QUOTE) SET-PACKAGE-INTERACTIVELY + (MENU) COMP.TOPLEVEL.COMPILE (FRAME TAG COMINFO) \LFFindNextFile (ExpandedName GeneratedFile) +%%MAKE-TWOD-ARRAY (TWOD-ARRAY) \TEDIT.INSERT.PIECES (PIECE) \PFTrimHelper (PageGroup) CURSORHOTSPOT ( +POSITION) %%MAKE-GENERAL-ARRAY (GENERAL-ARRAY) PFI.MAKE.LPT.STREAM (REGION) OPT.RETMERGE (TAG) +CHARLOOKS.FROM.FONT (CHARLOOKS) BRHC/LAYOUT (POSITION) MSVERB (MSVERB) CREATEPOSITION (POSITION) +\TEXTMENU.START (REGION) \PFFindDirectoryID (RootDirectory) SEDIT::GET-CONTEXT (SEDIT::EDIT-CONTEXT) +MAKEXYPT (XYPT) GETBOXSCREENREGION (SCREENREGION) GRAPHOBJ.COPYFN (POSITION) WHO-LINE-SET-TIME (MENU) +SEDIT::BUILD-LINEAR-FORM (SEDIT::LINE-START SEDIT::LINE-BLOCK) SCALEREGION (REGION) +\CREATE.TEDIT.RESTART.MENU (MENU) \STRINGSTREAM.INIT (FDEV) TEDIT.RAW.INCLUDE (PIECE FMTSPEC EDITMARK) + SEDIT::LINE-FINISHED (SEDIT::LINE-BLOCK) \PUSHSTATE.IP (IPSTATE) \TRANSFERPAGE (POINTER) +\VAMBufferInit (Page) \TEDIT.CUMULATE.EVENTS (TEDITHISTORYEVENT) \PFCreatePhysicalVolume ( +PhysicalVolumeDescriptor) ADVISEWDS (REGION) \EDITBMHOWMUCH (MENU) POSTSCRIPT.INIT (IMAGEOPS) +READGRAPH (GRAPH GRAPHNODE) SELECT.LIST.INSPECTOR (MENU) \VFMMerge (Interval) \HANDLE.PUP.ROUTING.INFO + (ROUTING) \SETMACROSYNTAX (READMACRODEF) \FTP.OPEN.CONNECTION (FTPCONNECTION) \DISPLAYLINE (REGION) +\VFMInsertPageGroup (Key Interval) \LEAF.REQUESTPAGE (BYTEPTR) MBUTTON.CREATE (IMAGEBOX) +\MEDW.GETSCREENPOSITION (SCREENPOSITION) \UFSPrintTypeMenu (MENU) \NSFILING.LOGIN (FILINGSESSION FDEV) + SEDIT::BUILD-INTERNAL-STRUCTURE (SEDIT::EDIT-NODE SEDIT::EDIT-POINT SEDIT::EDIT-SELECTION +SEDIT::OPEN-STRING) ETHERHOSTNAME (PUPADDRESS) EDITCHANGELABEL (POSITION) \DSKDISPLAY.BUTTONEVENTFN ( +MENU) \ATBLSET (READER-ENVIRONMENT) FW-CHANGE-ANCHOR (MENU) \CreateCursorBitMap (BITMAP) +\PFInsertDirectoryID (RootDirectory) \LFFileSpec (DFSFileSpec) \VFMGenerateFileIDs (Key) TRACEREGION ( +REGION) \CREATE.TEDIT.SELECTION (SELECTION) HLSTORGB (RGB) \CREATEPRESSFONT (FONTDESCRIPTOR) +\INTERPRESSINIT (IMAGEOPS) \FORMATLINE (LINEDESCRIPTOR EDITMARK) \MOVEREALPAGE (POINTER) \IPCURVE2 ( +POLYNOMIAL) TEDIT.FORMATBOX (REGION PAGEREGION) INTERSECTREGIONS (REGION) MAKE-UNICODE-FORMATS ( +EXTERNALFORMAT) TWODINSPECT.ADJUSTSELECTION (TWOD.SELECTION) TWODINSPECT.SELECTROWPROP (ONED.SELECTION +) \FTP.GENERATEFILES (FILEGENOBJ FTPFILEGENSTATE) \MAIKO.DISPLAYLINE (REGION) \LFParseFileName ( +PARSEDFILENAME) REGIONONSCREEN (REGION) IMAGEFNSCREATE (IMAGEFNS) ONED.TRACKCURSOR (ONED.SELECTION) +\NSFILING.CLOSEFILE (FILINGHANDLE) \HCPYMODEDISPLAYINIT (IMAGEOPS) GRAPHOBJ.BUTTONEVENTINFN (MENU) +PAINTW.READBRUSHSHADE (MENU) \PFPutRootDirectoryType (SubVolumeMarkerPage) \DEFINEFONT.PRESS ( +FONTDIRENTRY) IRM.CREF.BUTTONEVENTFN (REGION) \MAKENUMBER (FIXP) FILL.INITTBLE (PILOTBBT FILL.TBLE) +\SPP.CREATE.STREAM (STREAM) %%INITIALIZE-CLSTREAM-TYPES (FDEV) CREATE.NUMBERPAD.READER (MENU POSITION +REGION) \LEAFINIT (FDEV) \PFCreateFileDescriptors (FileDescriptor) DO.SHIFTED.SELECTION (MOUSEPOS) +OPENNSOCKET (NSOCKET) COMP.PROG (TAG) DMCHAT.STATE (DM2500.STATE) \INSERTCH (TEDITHISTORYEVENT PIECE +FMTSPEC) NIL +FETCH FNTYP (DEFINITIONCELL PSEUDOCODEP CCODEP DEFPOINTER FNHEADER) TEDIT.COPY.LOOKS (PLOOKS \TEXTOBJ) + \UFS.RECOGNIZE.FILE (DEVICENAME) DBG::REGION-NEXT-TO (LEFT BOTTOM WIDTH HEIGHT) \GETFTPCONNECTION ( +FTPHOST FTPBUSY FTPIN FTPOUT) \TYPENUMBERFROMNAME (DTDNAME) GETNSPRINTER (NSPRINTERNAME +NSPRINTERADDRESS) FB.UPDATEBROWSERITEMS (BROWSERWINDOW TABLEBROWSER PATTERN INFOMENUCHOICES INFONAME +INFOPROTOTYPE INFOFORMAT COUNTERWINDOW HEADINGWINDOW VERSIONLESSNAME DIRECTORYFILEP FILENAME) +\COURIER.CHECK.ERRORS (ERR# ARGS) \TEDIT.COMMAND.LOOP (TEXTOBJ SEL \WINDOW LINES TXTRTBL READSA +TXTTERMSA READMACRODEFS EDITFINISHEDFLG EDITOPACTIVE CARET TXTNEEDSUPDATE SHIFTEDSEL SELKIND MOVESEL +SET DELETESEL \TEXTOBJ NSCHARHASH MACROFN STREAMHINT TERMCLASS) SEDIT::SET-POINT-QUOTE (SEDIT::SUB-NODES +) TEDIT.DISPLAYTEXT (CARETLOOKS \INSERTPC TXTTERMSA YBASE CLOFFSET STREAMHINT OFFST BASE LENGTH +FATSTRINGP YBOT LHEIGHT) \DSPSPACEFACTOR.IP (IMAGEDATA IPSPACEFACTOR IPFONT) FUNCTION.WRAPPER ( +HASHMACROCHAR) \ATMOUT (PNAMEBASE PNAMELENGTH FATPNAMEP) SETUPFONTS.PRESS (IMAGEDATA) +\SET.STORAGE.STATE (DL24BitAddressable) BRHC/INTERTREE/SPACE (YCOORD XCOORD) \TFBRAVO.APPLY.PARALOOKS +(TEXTLEN RIGHTMAR LEFTMAR 1STLEFTMAR) \TEDIT.CONVERT.TO.FORMATTED (PCTB TEXTLEN) \GETPILOTBBTSCRATCHBM + (BITMAPWIDTH BITMAPHEIGHT) DISCARDXIPS (INQUEUE) \READNUMBER.OUTLINEREGION (LEFT BOTTOM WIDTH HEIGHT) + COPYFILES (GENERATEFILES) BITMAPCOPY (BITMAPHEIGHT BITMAPBITSPERPIXEL) TB.UNSELECT.ALL.ITEMS ( +TBFIRSTSELECTEDITEM TBLASTSELECTEDITEM TISELECTED TB#ITEMS) MAKEBRES (IPX IPY) \DSPRESET.PSC ( +IMAGEDATA POSTSCRIPTLEFTMARGIN POSTSCRIPTTOPMARGIN POSTSCRIPTFONT) SEDIT::SET-POINT-UNKNOWN ( +SEDIT::INLINE-WIDTH) OPT.JLENPASS (JPT JMIN JU JD OPARG JSN JML) \NSRANDOM.REESTABLISH ( +NSFILING.HANDLE DEVICEINFO DEVICE NSHFILEID FULLFILENAME ACCESS) \COURIER.CHECK.PROCEDURES (FN# ARGS +RETURNSNOISE RESULTS REPORTSNOISE ERRORS) SUBSTRING (PNAMEBASE PNAMELENGTH FATPNAMEP BASE LENGTH +FATSTRINGP OFFST) SEDIT::SET-POINT-LIST (SEDIT::NODE-TYPE SEDIT::SUB-NODES SEDIT::WIDTH STRING) +TEDITCHAT.CHARFN (TEXTSTREAM SEL DS X0 Y0 \WINDOW) MAKETITLEBARICON (SCREEN SCTITLEDS XCOORD YCOORD) +\DSPTOPMARGIN.IP (IPTOP IMAGEDATA) \SPP.GETNEXTBUFFER (SPPERRORHANDLER SPPINPUTSTREAM SPPOUTPUTSTREAM) + SEDIT::PRINT-GAP (SEDIT::LINEAR-ITEM) SLICERANK (SELECTEDDIMS) DBG::ATTACH-BACKTRACE-MENU ( +WHENSELECTEDFN IMAGEWIDTH HEIGHT LEFT IMAGEHEIGHT) \FTP.PRINTPLIST (BASE OFFST LENGTH FATSTRINGP +PNAMEBASE PNAMELENGTH FATPNAMEP) PRINTPUP (PUPTYPE PUPDESTHOST PUPLENGTH PUPID PUPCONTENTS) +\SPP.CLEANUP (SPPLOCK SPPINPUTSTREAM SPPINPUTEVENT SPPALLOCATIONEVENT DEVICEINFO SPPWHENCLOSEDFN +SPPMYNSOCKET) \LEAF.ABORT.FROMMENU (SEQEVENT) GETHOSTINFO (HTE.OS.TYPE) \SPP.BOUTS (SPPINPUTSTREAM +SPPOUTPUTSTREAM) \DSPCLIPPINGREGION.PSC (IMAGEDATA POSTSCRIPTCLIPPINGREGION LEFT BOTTOM WIDTH HEIGHT) +PFI.COLLECT.DEFINERS (PATTERNS) FB.COUNT.FILE.CHANGE (SIZE TIDATA TIDELETED TOTALFILES DELETEDFILES +TOTALPAGES DELETEDPAGES) TB.DESELECTRANGE (TBFIRSTSELECTEDITEM TBLASTSELECTEDITEM TB#ITEMS) +\LFScavFileName (OFFST BASE LENGTH FATSTRINGP) \CH.UPDATE.CACHE (NSOBJECT NSORGANIZATION NSDOMAIN +OCORGANIZATION OCDOMAINS DCDOMAIN DCKNOWNSERVERS OCALLSERVERS) \STARTPAGE.PRESS (IMAGEDATA PRFONT +PRHEADING PRSPACEFACTOR PRHEADINGFONT PRLEFT PRTOP PRXPOS PRPAGENUM) MSPARSE (POSSIBLES ENDING START +SOUGHT PARSED C ITEM VPART) NTHCHARCODE (BASE LENGTH OFFST FATSTRINGP PNAMEBASE PNAMELENGTH FATPNAMEP) + \FIXILINES (TXTREADONLY L1 \WINDOW LINES CHARTOP NEXTLINE CHAR1 PREVLINE CHARLIM CR\END MOVESEL +SHIFTEDSEL) \SETXIPCHECKSUM (XIPCHECKSUMBASE XIPLENGTH) FB.MAKE.SUBDIRECTORY.ITEM (SUBDIRECTORY +PATTERN NAMESTART DIRECTORYSTART) MSEDITE (FILEPKGNAME) MKSTRING (PNAMEBASE PNAMELENGTH FATPNAMEP) +\LFUnpackName (VOL NAME OFFST BASE LENGTH FATSTRINGP VERSION) TEDIT.\INSERT (TEXTOBJ SET \WINDOW POINT + X0 XLIM TEXTLEN) \TEDIT.REPAINTFN (SEL PTOP YBOT CHAR1 NEXTLINE) \LEAF.SETCREATIONDATE (PUPCONTENTS +LEAFHANDLE LEAFCONNECTION) TEDIT.GET.OBJECT (TEXTOBJ PREVPIECE PLOOKS DEFAULTCHARLOOKS POBJ) BITMAPBIT + (BITMAPBITSPERPIXEL BITMAPWIDTH BITMAPHEIGHT BITMAPBASE BITMAPRASTERWIDTH IMAGEDATA DDDestination) +\SEARCH.OUTPUTQ (SYSQUEUEHEAD BSPOUTPUTQ PUPTYPE QLINK) SPY.MERGE.CALLEES (CALLEES NAME STATUS +TREEFROM) \SPP.SETFILEPTR (ACCESSBITS) STRPOS (PNAMEBASE PNAMELENGTH FATPNAMEP BASE OFFST LENGTH +FATSTRINGP TYP) PFI.PRINT.FILECREATED (RESPEC) LINE.LESSP (Y ORIG DIFF) \DSPCLIPTRANSFORMX (DDXOFFSET +DDClippingLeft DDClippingRight) CREATEW (SCREEN REGION) \DSPCLIPTRANSFORMY (DDYOFFSET DDClippingBottom + DDClippingTop) CENTERINWIDTH (LEFT WIDTH) ASKUSER (EXPLAINSTRING KEYSTRING KEY OPTIONS) +\GENERIC.CURSOR (SETCURSORFN) \FLUSH.NDB.QUEUE (EPNETWORK) COERCETEXTOBJ (TEXTOBJ TEXTLEN PCTB +CLINVISIBLE PLOOKS PLEN PSTR PFILE PFPOS POBJ NEXTPIECE TXTFILE FULLNAME STREAMHINT) \BBTCURVEPT ( +BITMAPHEIGHT DDSOURCETYPE) SEDIT::REPLACE-QUOTE (SEDIT::SUB-NODES CL:STRUCTURE SEDIT::DEPTH) AIN (BASE + LENGTH OFFST TYP ORIG) SHOWBITMAP.IP (BITMAPWIDTH BITMAPHEIGHT WIDTH HEIGHT LEFT BOTTOM) +DISPLAYLINK/BT (XCOORD NODEPOSITION YCOORD) \DSPLINEFEED.IP (IMAGEDATA IPLINEFEED) \TERMINATESPP ( +SPPLOCK SPPSTATE SPPINPUTEVENT SPPPROCESS) AOUT (BASE LENGTH OFFST TYP ORIG) TB.SELECTRANGE ( +TBFIRSTSELECTEDITEM TBLASTSELECTEDITEM TIUNSELECTABLE TIDELETED) \SPP.GETFILEPTR (SPPFILEPTR COFFSET) +\EXTENDEDVMEMINIT (XVmemFmapBase) BLTCHAR (IMAGEDATA) TB.UNSELECT.ITEM (TISELECTED TI#) COMP.MLLFN ( +OPARG) \FILLPOLYGON.PSC (BITMAPWIDTH BITMAPHEIGHT XCOORD YCOORD BITMAPRASTERWIDTH) MSEDITF ( +FILEPKGNAME) \DRAWPOLYGON.PSC (IMAGEDATA BRUSHSIZE BRUSHSHAPE BRUSHCOLOR POSTSCRIPTSCALE XCOORD YCOORD +) \MAIKO.SET.STORAGE.STATE (DL24BitAddressable) EDITGETDEF (SEDIT::ICON-TITLE SEDIT::EDIT-TYPE +CL:STRUCTURE SEDIT::SUB-NODES SEDIT::ROOT) \MAYBEPEEKPUP (PUPDESTHOST PUPSOURCEHOST) TEDIT.GETPOINT ( +SEL POINT CH# CHLIM) \PROCESS.BEFORE.LOGOUT (PROCBEFOREEXIT PROCNAME) \MEDW.CURSOR (CUHOTSPOTX +BITMAPHEIGHT CUIMAGE CUHOTSPOTY) FEQP (LOWORD HIWORD HIWORDNOSIGNBIT HINUM LONUM SIGNBIT LOFRACTION +HIFRACTION EXPONENT) \COURIER.CHECKDEF (VERSIONPAIR PROGRAM# VERSION# COURIERDEFS) \TEXTCLOSEF (PCTB +TEXTLEN PFILE NEXTPIECE TXTFILE) TEDIT.DEFAULT.MENUFN (EDITOPACTIVE PCTB STREAMHINT SEL) D-ASSEM:INTERN-DCODE + (OVERHEADWORDS STARTPC) SEDIT::REPLACE-LIST (SEDIT::NODE-TYPE SEDIT::SUB-NODES SEDIT::SUB-NODE-INDEX +SEDIT::DEPTH CL:STRUCTURE SEDIT::CARET-POINT SEDIT::POINT-NODE SEDIT::POINT-INDEX SEDIT::SELECT-NODE +SEDIT::SELECT-START SEDIT::SELECT-END) \DSPPRINTCR/LF (IMAGEDATA DDSlowPrintingCase ROTATION DDFONT +DDClippingRegion DDEOLFN BOTTOM TOP DDXPOSITION DDLINEFEED DDScroll DDXOFFSET DDClippingRight +\SFDescent DDClippingLeft DDDestination DDClippingBottom DDClippingTop DDTexture DDLeftMargin +DDYPOSITION DDYOFFSET) TTYIN.LASTINPUT (OLDTAIL START FIRSTLINE) DISPLAYLINK/RL (XCOORD YCOORD +NODEPOSITION) \DSPRIGHTMARGIN.IP (IPDATA IPRIGHT IPVISRIGHT) SEDIT::PRINT-BROKEN-ATOM (SEDIT::ATOM-CHARS +) FASL::DUMP-BITMAP (BITMAPBASE) TEDIT.UPDATE.SCREEN (TXTDON'TUPDATE \WINDOW LINES YBOT) +\BSP.CLOSE.OPEN.SOCKETS (RTPSTATE RTPPROCESS) \CHANGECHARSET.DISPLAY (DDPILOTBBT FONTCHARSETVECTOR +DDFONT WIDTHS OFFSETS IMAGEWIDTHS CHARSETBITMAP BITMAPRASTERWIDTH DDCHARSETASCENT CHARSETASCENT +DDCHARSETDESCENT CHARSETDESCENT BITMAPBASE DDCHARHEIGHTDELTA) \SFFixY (DDPILOTBBT DDYPOSITION +DDYOFFSET CHARSETASCENT BITMAPBASE DDDestination BITMAPRASTERWIDTH BITMAPHEIGHT DDClippingTop +CHARSETBITMAP CHARSETDESCENT DDClippingBottom) \SLOWBLTCHAR (IMAGEDATA ROTATION DDFONT DDXPOSITION +DDWIDTHSCACHE DDRightMargin DDXOFFSET DDClippingLeft DDClippingRight DDPILOTBBT PBTHEIGHT +DDOFFSETSCACHE BITMAPBITSPERPIXEL DDDestination DDYPOSITION FONTCHARSETVECTOR CHARSETBITMAP +CHARSETASCENT CHARSETDESCENT) EXPANDW (EXPANDWFN SCREEN) DISPLAYLINK/TB (XCOORD NODEPOSITION YCOORD) +\DSPLEFTMARGIN.IP (IPLEFT IMAGEDATA) TB.INSERT.ITEM (TB#ITEMS TI# TBITEMS TBTAILHINT TIDELETED +TB#DELETED TBFIRSTSELECTEDITEM TISELECTED TBLASTSELECTEDITEM) FB.THINCOMMAND (TABLEBROWSER SORTBY +INFODISPLAYED TIDATA FILEINFO VERSIONLESSNAME) \CARET.FLASH.AGAIN (RATE NEXT) BMOBJ.COPYFN (BITMAP +BMOBJSCALEFACTOR BMOBJROTATION BMOBJDESCENT) \PEEKPUP (NETTYPE NDBPUPHOST# PUPNET# PUPHOST#) +\LEAF.CREATIONDATE (LFCREATIONDATE LEAFINFO) \LEAF.STREAM.IN.QUEUE (SYSQUEUEHEAD SEQDONEQ +SEQRETRANSMITQ EPUSERFIELD FULLFILENAME LEAFOPCODE PUPCONTENTS ACCESSBITS EPLINK) SPY.ORIGINAL (STATUS + TREEFROM) \SPP.EVENTFN (DEVICEINFO) \STRINGWIDTH.PSC (IMAGEDATA POSTSCRIPTFONT POSTSCRIPTSPACEWIDTH) +PFI.PRINT.MULTI.INDEX (REPACKAGE REREADTABLE) ARRAYTYP (TYP) TEDIT.PUT.OBJECT (POBJ) +COURIER.EXECUTE.CALL (HIBYTE LOBYTE PROGRAM# VERSION# FN#) ARRAYORIG (ORIG) REPLACEFIELD (fdOffset +fdType fdTypeName HINUM LONUM) BRH/OFFSET (YCOORD NODEPOSITION TONODES) \SHOWSEL (\TEXTOBJ HOW +HOWHEIGHT SET \WINDOW TXTDON'TUPDATE LN L1 LINES CARET SELOBJ ONFLG HASCARET TXTEDITING POINT YBOT X0 +YBASE XLIM TXTREADONLY) \MAYBEPEEKNS (NSHOST2 NSHOST1 NSHOST0) BOXCOUNT (DTDCNT) USERNAME ( +UserNameAddr) DASSEM.CANSHAREBINDING (VARS VARINDEX PARENT) \POSTSCRIPT.OUTCHARFN (IMAGEDATA +POSTSCRIPTX POSTSCRIPTFONT POSTSCRIPTSPACEWIDTH POSTSCRIPTWIDTHS POSTSCRIPTACCENTED +POSTSCRIPTRIGHTMARGIN POSTSCRIPTY FONTSIZE FONTFACE POSTSCRIPTCHARSTOSHOW) SETD (TYP READONLY BASE +ORIG LENGTH OFFST) \TEXTSTREAMBOUT (TEXTOBJ TEXTLEN \WINDOW SEL L1 CH# THISLINE LN CARETLOOKS +\INSERTPC CHARLIM CHARTOP CLFONT X0 WRIGHT POINT YBOT BOTTOM Y0 WBOTTOM LHEIGHT PSTR BASE OFFST +\INSERTLEN COFFSET) BSPREADP (MARKPENDING BSPCURRENTPUP COFFSET CBUFSIZE %#UNREADPUPS BSPSOC PUPTYPE +BSPINPUTQ) ELTD (TYP BASE ORIG LENGTH OFFST) \TEDIT.PROMPT.PAGEFULLFN (TOP BOTTOM) SETUSERNAME ( +UserNameAddr) \MEDW.PUTWINDOWPROP (RIGHTBUTTONFN BUTTONEVENTFN CLOSEFN MOVEFN CURSORINFN CURSOROUTFN +CURSORMOVEDFN RESHAPEFN REPAINTFN EXTENT SCROLLFN WIDTH HEIGHT LEFT BOTTOM NEWREGIONFN WTITLE WBORDER +PROCESS WINDOWENTRYFN USERDATA) REHASH (HARRAYPBASE LASTINDEX VALUE KEY NEXTSLOT) TEDIT.STRINGWIDTH ( +OFFST BASE LENGTH FATSTRINGP) \COPYHARRAYP (NULLSLOTS LASTINDEX HARRAYPBASE OVERFLOWACTION NUMSLOTS +NUMKEYS) \COERCEFONTDESC (DISPLAYFD INTERPRESSFD PRESSFD OTHERFDS FONTDEVICE IMFONTCREATE IMAGEOPS) +STKNTHNAME (INVALIDP FRAMENAME CLINK ALINK) HARRAYSIZE (NUMSLOTS) SEDIT::JOIN (SEDIT::DISPLAY-WINDOW +SEDIT::SELECTION SEDIT::CARET-POINT SEDIT::SELECT-NODE SEDIT::SELECT-START SEDIT::SELECT-END +SEDIT::OPEN-NODE-CHANGED? SEDIT::SELECT-TYPE SEDIT::NAME SEDIT::NODE-TYPE SEDIT::SUB-NODES CL:STRUCTURE + SEDIT::UNASSIGNED) INVERT.TEXTURE.BITMAP (BITMAPRASTERWIDTH BITMAPHEIGHT BITMAPBASE) +TB.SHOW.SELECTION (TBBASELINE TBWINDOW TBITEMHEIGHT BITMAPHEIGHT) DO.CHAT.OPTION (INSTREAM) LRSH ( +HINUM LONUM) COMP.MLLVAR (VARNAME OPNAME) ONEDINSPECT.SETELT (WIDTH) \LEAF.SETFILETYPE (PUPCONTENTS +LEAFHANDLE LEAFCONNECTION) \MEDW.GETWINDOWPROP (RIGHTBUTTONFN BUTTONEVENTFN CURSORINFN CURSOROUTFN +CURSORMOVEDFN DSP SCREEN SCROLLFN RESHAPEFN EXTENT REPAINTFN MOVEFN CLOSEFN WINDOWENTRYFN PROCESS REG +NEWREGIONFN WTITLE WBORDER SAVE) READBITMAP (BITMAPBASE) \LEAF.TIMEDOUT.EXCESSIVE (SEQNAME +SYSQUEUEHEAD SEQDONEQ SEQRETRANSMITQ EPUSERFIELD FULLFILENAME LEAFOPCODE PUPCONTENTS LOADDR ACCESSBITS + EPLINK) SPY.DELETE (NAME CALLEES) \NSGATELISTENER (NSOCEVENT XIPCONTENTS) \DRAWARC.PSC (IMAGEDATA +BRUSHSHAPE BRUSHSIZE BRUSHCOLOR POSTSCRIPTSCALE) SEDIT::OUTPUT-CR-OR-SPACE (SEDIT::CURRENT-X) SUBARRAY + (LENGTH ORIG BASE TYP OFFST) GETSUPERTYPE (DTDSUPERTYPE) \SENDSPP (SPPLOCK SPPTERMINATEDP +SPPACKEDSEQNO SPPOUTPUTALLOCNO SPPSEQNO SPPRETRANSMITQ DSTYPE SPPALLOCATIONEVENT) +TEDIT.FIND.OBJECT.SUBTREE (PCE LO HI POBJ CHNUM) SEDIT::PRETTY-PRINT (SEDIT::SUB-NODES) +\TYPENAMEFROMNUMBER (DTDNAME) TXTFILE (TXTFILE) CHECKBUFFERREFVAL (NOREFERENCE VMEMPAGE) TEXTUREP ( +BITMAPRASTERWIDTH) BSPEOFP (BSPOUTPUTSTREAM MARKPENDING BSPCURRENTPUP COFFSET CBUFSIZE) \FTP.HANDLE.NO + (FTPIN FTPHOST) \TEDIT.MOVE.PIECEMAPFN (POBJ \WINDOW STREAMHINT PSTR PLEN) GETFIELDSPECS ( +DTDTYPESPECS) \HCPYMODEBLTCHAR (DDCHARSET DDSlowPrintingCase DDXPOSITION DDSPACEWIDTH DDWIDTHSCACHE +DDMICARIGHTMARGIN DDLeftMargin DDXOFFSET DDCHARIMAGEWIDTHS DDClippingRight DDClippingLeft PBTHEIGHT +DDPILOTBBT DDOFFSETSCACHE) COMPAREDEFS (TOBEDUMPED FILEPROP NULLDEF) TB.SELECT.ITEM (TI#) +SEDIT::UNDERLINE-SELECTION (SEDIT::SELECT-START-X SEDIT::SELECT-START-LINE SEDIT::SELECT-END-X +SEDIT::SELECT-END-LINE) \PNC (LENGTH OFFST BASE) GN/TOP (YCOORD NODEPOSITION NODEHEIGHT) COMP.MLL ( +LBNO OPNAME OPARG TAG NVALS VARS) \WRITEOUTBUFFERS (FILEPAGE# CBUFPTR VMEMPAGE) ULREDISPLAYBITMAP ( +LEFT BOTTOM HEIGHT BITMAPHEIGHT) SETY.PRESS (ELSTREAM IMAGEDATA PRYPOS HIBYTE LOBYTE) \CLEARMAP ( +ACCESSBITS FORCEOUTPUT DEVICE BUFFS USERMAPPED FILEPAGE# BUFFERNEXT) LOG (EXPONENT) FILING.CALL ( +FSPROTOCOLDEF FSPROTOCOLNAME ARGS FSSESSIONLOCK FSSESSIONHANDLE FSNAMESTRING FSREALACTIVITY +FSLASTREALACTIVITYTIMER FSSESSIONTIMER) CENTERINHEIGHT (BOTTOM HEIGHT) PUP.ECHOSERVER (PUPSOCEVENT +PUPTYPE) \CH.CHECK.CLEARINGHOUSE (NSORGANIZATION NSDOMAIN) \MEDW.BITBLT (IMAGEDATA BBTTOWIN SCREEN +DDXOFFSET DDYOFFSET BBTFROMWIN DDDestination DDClippingLeft DDClippingBottom BBTWINWIN) SETX.PRESS ( +ELSTREAM IMAGEDATA PRXPOS HIBYTE LOBYTE) POSTSCRIPT.OUTSTR (FATSTRINGP OFFST BASE LENGTH PNAMEBASE +PNAMELENGTH FATPNAMEP) \WRITEPAGES (WRITEPAGES DEVICE) SEDIT::INSERT-SPECIAL-CHARACTER (SEDIT::CARET-POINT + SEDIT::POINT-NODE SEDIT::SELECT-NODE SEDIT::SELECTION) \ENDVECRUN (IMAGEDATA VECMOVINGRIGHT VECCURX +VECCURY VECSEGCHARS) DINFO.TOGGLE.GRAPH (CURRENTNODE GRAPH.WINDOW) HARRAYPROP (OVERFLOWACTION NUMKEYS +EQUIVFN RECLAIMABLE HASHBITSFN HASHUSERDATA) SEDIT::TRACK-SELECT (SEDIT::POINT-TYPE SEDIT::POINT-X +SEDIT::POINT-LINE) FB.ADD.FILE (SIZE TIDATA TOTALPAGES TOTALFILES) TEDIT.WORDSET (READSA) COMP.MAP ( +VARS) \READPAGES (READPAGES DEVICE) DASSEM.MATCHVARS (VARINDEX) \ACTONDISKPAGES (BASE FID FPVERSION +MISCSTACKRESULT CURRENTNUMCHARS) \PS.SCALEREGION (LEFT BOTTOM WIDTH HEIGHT) CLRHASH (HARRAYPBASE +NEXTSLOT LASTINDEX NUMSLOTS) FB.SEEFULLFN (IMAGEWIDTH IMAGEHEIGHT HEIGHT BOTTOM) FILEBROWSER ( +IMAGEWIDTH WIDTH HEIGHT ABORTWINDOW COUNTERWINDOW PROMPTWINDOW) CL:READ-CHAR (EOFP DEVICE) \DISKERROR +(FULLFILENAME CURRENTDISKPAGE) CLOSEBSPSTREAM (BSPSOC BSPLOCK BSPINPUTSTREAM RTPSTATE BSPOUTPUTSTREAM +%#UNACKEDPUPS INTERRUPTOUT BSPINPUTEVENT) %%COPY-ONED-ARRAY (BASE) \FTP.WHENCLOSED (FTPIN FTPHOST) +\SLOWHCPYMODEBLTCHAR (IMAGEDATA ROTATION DDFONT DDXPOSITION DDWIDTHSCACHE DDRightMargin DDXOFFSET +DDClippingLeft DDClippingRight DDPILOTBBT PBTHEIGHT DDOFFSETSCACHE BITMAPBITSPERPIXEL DDDestination +DDYPOSITION FONTCHARSETVECTOR CHARSETBITMAP CHARSETASCENT CHARSETDESCENT) TTADJUSTWIDTH (END LASTCOL) +\GENERIC.DSPCREATE (SCDESTINATION DSPCREATEFN BITMAPWIDTH) MAPHASH (HARRAYPBASE NEXTSLOT LASTINDEX +VALUE KEY) \FTP.ERRORHANDLER (FTPOPENP ENDOFSTREAMOP FULLFILENAME) DATATYPEP (DTDHUNKP DTDNAME) +FINDPTRSBUFFER (VMEMPAGE SYSNEXT) REDISPLAYBITMAP (LEFT BOTTOM) \DOACTONDISKPAGES (DISKCAS DISKDAS +DISKFIRSTPAGE DISKLASTPAGE FIXEDDISKBUFFER DISKHINTLASTPAGE RETURNONCHECKERROR CBQUEUE LASTDISKACTION +DISKACTION SAWCHECKERROR CBFREEPTR CBNEXT DISKERRORCNT RETRYCOUNT CURRENTDISKPAGE) SEDIT::NEXT-NODE-TYPE + (CL:STRUCTURE SEDIT::NODE-TYPE) SEDIT::INSPECT-SELECTION (SEDIT::SELECTION SEDIT::CARET-POINT +SEDIT::DISPLAY-WINDOW) \FIXLINELENGTH.IP (IMAGEDATA IPRIGHT IPLEFT FONTAVGCHARWIDTH IPFONT) +\GETMAPBUFFER (USERMAPPED NOREFERENCE BUFFERNEXT) IRM.DISPLAY.CREF (LEFT BOTTOM HEIGHT WIDTH TOP RIGHT +) DINFO.TOGGLE.MENU (CURRENTNODE SUBNODE.MENU.WINDOW) \TEDIT2 (TEXTOBJ EDITFINISHEDFLG TXTFILE) +TB.BOTTOM.OF.ITEM (TBORIGIN TBITEMHEIGHT TI#) OPENBSPSTREAM (RTPSTATE CONNID BSPTIMER +BSPINACTIVITYTIMEOUT INACTIVITYTIMER RTPPROCESS) TERM.HOME (HOMEPOS DSP) \LEAF.NOT.RESPONDING (SEQNAME + FULLFILENAME) TEDIT.WORDGET (NSCHARHASH READSA) \WRITEDISKPAGES (BASE FID FPVERSION MISCSTACKRESULT) +PRINTXIP (XIPTYPE XIPLENGTH) \BSP.GETFILEPTR (BSPFILEPTR CPPTR COFFSET) MARGINBAR.CREATE (XSIZE YSIZE +MARL1 MARLN MARR MARTABS MARUNIT WIDTH) \HASHACCESS (HASHBITSFN LASTINDEX HARRAYPBASE VALUE KEY +EQUIVFN NUMKEYS NULLSLOTS RECLAIMABLE) GN/BOTTOM (YCOORD NODEPOSITION NODEHEIGHT) +SEDIT::INSERT-MULTI-ESCAPE (SEDIT::CARET-POINT SEDIT::POINT-NODE SEDIT::POINT-STRING SEDIT::POINT-INDEX + SEDIT::SELECT-NODE SEDIT::POINT-TYPE SEDIT::SELECTION) TEDIT.QUIT (TEXTOBJ \WINDOW) \DOWRITEDISKPAGES + (DISKCAS DISKDAS DISKFIRSTPAGE DISKLASTPAGE FIXEDDISKBUFFER DISKNOALLOC DISKWRITELASTNUMCHARS +CURRENTNUMCHARS CBQUEUE DISKERRORCNT RETRYCOUNT CURRENTDISKPAGE) NUKE-SYMBOL (BASE OFFST LENGTH +FATSTRINGP) SCROLLBITMAP (BOTTOM HEIGHT BITMAPHEIGHT LEFT WIDTH BITMAPWIDTH) ADD-SYMBOL (PNAMEBASE +PNAMELENGTH FATPNAMEP) SEDIT::LINEARIZE-QUOTE (SEDIT::UNASSIGNED SEDIT::SUB-NODES) SEDIT::TRACK-EXTEND + (SEDIT::SELECT-NODE SEDIT::SELECTION) MAPBUFFERCOUNT (NOREFERENCE USERMAPPED SYSNEXT) SPY.DUMP.BUFFER + (COUNT) SEDIT::LOCATE-NODE-FROM-EDITCHAIN (SEDIT::SUB-NODES CL:STRUCTURE) \CHARWIDTH.PSC ( +POSTSCRIPTSPACEWIDTH IMAGEDATA WIDTHS FONTCHARSETVECTOR POSTSCRIPTFONT) DBG::STKPTR-CCODE (FNHEADER) +\FTPERROR (FTPIN) TEDIT.UNDO.DELETION (NEXTPIECE PCTB SEL TEXTLEN TXTREADONLY POBJ PLEN THPOINT) +MAPPAGE (PAGEMAPPED DEVICE ACCESS EPAGE) \COURIER.REP.BIN (CRNEXTBYTE CRWORDLIST F1 LOBYTE HIBYTE) +\MEDW.DSPCREATE (SCDESTINATION WINFDEV WINIMAGEOPS BITMAPWIDTH) \HASHRECLAIM (HARRAYPBASE NEXTSLOT +LASTINDEX KEY NUMKEYS) \STRINGWIDTH.HCPYMODE (DDCHARIMAGEWIDTHS IMAGEDATA) \MAPPAGE (BUFFS FILEPAGE# +NOREFERENCE VMEMPAGE USERMAPPED BUFFERNEXT MAXBUFFERS ACCESSBITS IODIRTY CBUFPTR CBUFDIRTY +MULTIBUFFERHINT) DO.MOUSE (ROWPOS COLPOS) DINFO.UPDATE (CURRENTNODE TOPNODEID NODELST WINDOW +FMENU.WINDOW MONITORLOCK) \SWITCHFONTS.PSC (POSTSCRIPTFONT IL-FONTID OTHERDEVICEFONTPROPS FONTIDNAME +POSTSCRIPTFONTSUSED FONTXFACTOR FONTSIZE FONTOBLIQUEFACTOR) \SETEOF (PAGE OFFSET CBUFPTR CPAGE +CBUFDIRTY) \WRITEVMEMPAGES (FPVERSION) PUP.ECHOUSER (PUPLENGTH PUPSOCEVENT PUPTYPE PUPIDHI PUPIDLO +EPTRANSMITTING) MB.MARGINBAR.SHOWTAB (TABX TABKIND) TEDIT.FIND.OBJECT (PCTB POBJ PLEN NEXTPIECE) +STORAGE (DTDHUNKP) SHOWRECTANGLE.PRESS (ELSTREAM IMAGEDATA HIBYTE LOBYTE) TEDIT.REDO.INSERTION (SEL +PCTB THLEN THFIRSTPIECE TEXTLEN NEXTPIECE POBJ STREAMHINT \WINDOW PLEN PREVPIECE) \DSPROTATE.PSC ( +IMAGEDATA POSTSCRIPTROTATION) \HASHTABLE.DEFPRINT (CHARPOSITION HASHMACROCHAR) SETUPFONTS.IP (IPDATA) +\STORAGE.TYPE (DTDNAME DTDHUNKP DTDSIZE NPAGES DTDGCTYPE DTDNEXTPAGE CNT NEXTPAGE DTDFREE NITEMS NFREE + NINUSE NALLOCATED) \DSPBOTTOMMARGIN.IP (IPBOTTOM IMAGEDATA) SEDIT::TTYFN (SEDIT::CONTEXT-LOCK) +\BITBLT.BITMAP.SLOW (BITMAPHEIGHT BITMAPBITSPERPIXEL BITMAPWIDTH LEFT BOTTOM WIDTH HEIGHT) +\STORAGE.HUNKTYPE (NPAGES NINUSE NITEMS NFREE NALLOCATED) \COLLECTDIRTYBUFS (BUFFS FILEPAGE# +USERMAPPED IODIRTY CBUFPTR VMEMPAGE CBUFDIRTY BUFFERNEXT) \STRINGWIDTH.PRESS (PRFONT IMAGEDATA WIDTHS +FONTCHARSETVECTOR PNAMEBASE PNAMELENGTH FATPNAMEP PRSPACEWIDTH ESCAPECHAR OFFST BASE LENGTH FATSTRINGP +) \BSPBACKFILEPTR (BSPOUTPUTSTREAM CPPTR COFFSET) BSPOPENP (BSPSOC RTPSTATE %#UNREADPUPS COFFSET +CBUFSIZE) TEXTUREOFCOLOR (RED GREEN BLUE) SPY.MAKE.TREE (PACKAGE READTABLE PRINT-CASE SUM THRESHOLD) +\MEDW.TOTOPW (SCTOPW SCREEN) \PUNT.BITBLT.BITMAP (BITMAPHEIGHT BITMAPBITSPERPIXEL BITMAPWIDTH LEFT +BOTTOM WIDTH HEIGHT) \SETIODIRTY (BUFFS FILEPAGE# BUFFERNEXT) SEDIT::LINEARIZE-LIST (SEDIT::UNASSIGNED + SEDIT::NON-STANDARD? SEDIT::LINEARIZE-LIST SEDIT::ENVIRONMENT SEDIT::LPAREN-STRING SEDIT::WIDTH +SEDIT::SPACE-WIDTH SEDIT::START-X SEDIT::SUB-NODES SEDIT::RIGHT-MARGIN SEDIT::COMMENT-SEPARATION +SEDIT::COMMENT-WIDTH SEDIT::INLINE-WIDTH SEDIT::NODE-TYPE SEDIT::PREFERRED-WIDTH SEDIT::LIST-MFORMAT +SEDIT::LIST-PFORMAT SEDIT::CURRENT-X SEDIT::ROOT SEDIT::INLINE? SEDIT::RPAREN-STRING) +\STRINGHASHBITS-UFN (BASE OFFST LENGTH FATSTRINGP PNAMEBASE PNAMELENGTH FATPNAMEP) DISPLAYLINK/LR ( +XCOORD YCOORD NODEPOSITION) \FM.NUMBER-CHANGESTATE (FM.STATE) COURIER.REP.LENGTH (FATSTRINGP) +\DODISKCOMMAND (SHORTCB CBLABELADDR DISKFID CBDA DSKPARTITION CBLINK CBDONE CBLASTPTR CBSTATUS) +\STRING-EQUAL-HASHBITS-UFN (BASE OFFST LENGTH FATSTRINGP PNAMEBASE PNAMELENGTH FATPNAMEP) +SEDIT::OUTPUT-CONSTANT-STRING (SEDIT::RELINEARIZATION-TIME-STAMP SEDIT::LINEAR-POINTER SEDIT::LINEAR-PREV + SEDIT::WIDTH SEDIT::LINE-ASCENT SEDIT::CURRENT-LINE SEDIT::FONT SEDIT::LINE-DESCENT SEDIT::DISPLAY-WINDOW + SEDIT::PRIN-2? STRING SEDIT::ENVIRONMENT SEDIT::CURRENT-X) TEDIT.EDIT.OBJECT (TEXTOBJ SCRATCHSEL SEL +SELOBJ L1) BRH/LAYOUT (TONODES NODEWIDTH NODEHEIGHT NODEPOSITION) \GETDISKCB (CBFREEPTR CBNEXT +CBPENDINGPTR) INCORNER.REGION (LEFT BOTTOM RIGHT) EXPANDBITMAP (BITMAPHEIGHT BITMAPWIDTH +BITMAPBITSPERPIXEL) \XIPERROR (XIPTYPE XIPBASE XIPLENGTH) SEDIT::INPUT-TOKENDELIM (SEDIT::CARET-POINT +SEDIT::SELECTION SEDIT::POINT-NODE SEDIT::NODE-TYPE SEDIT::SELECT-NODE) \MAKE.PMAP.DEVICE (FORCEOUTPUT +) COMP.SELECTQ (OPNAME OPARG) \CLEANUPDISKQUEUE (CBPENDINGPTR CBFREEPTR SHORTCB CBDONE CBQSTATUS +CBNEXT CBLASTPTR RESTORE CBDA CBSTATUS TOTALDISKERRORS DISKERRORCNT RETRYCOUNT CBFINALSTATUS CBPAGENO +CURRENTDISKPAGE CBLABELADDR DLNUMCHARS CBCLEANUPFN CURRENTDAS DLNEXT DLPREVIOUS) \SEL.LIMIT (POINT CH# + CHLIM) TB.NORMALIZE.ITEM (TBWINDOW BOTTOM PTOP TBITEMHEIGHT HEIGHT) SEDIT::SHRINKFN (SEDIT::CONTEXT-LOCK + SEDIT::EDIT-OPTIONS SEDIT::DISPLAY-WINDOW SEDIT::ICON-TITLE SEDIT::EDIT-TYPE) GN/LEFT (XCOORD +NODEPOSITION NODEWIDTH) \DRAWPOINT.PSC (BITMAPWIDTH BITMAPHEIGHT) \PUNT.BLTSHADE.BITMAP (BITMAPHEIGHT +BITMAPWIDTH BITMAPBITSPERPIXEL LEFT BOTTOM WIDTH HEIGHT) TEDIT.SETSYNTAX (READSA TXTRTBL TEXTOBJ) +\PAGED.GETNEXTBUFFER (CPAGE COFFSET ACCESSBITS FULLNAME CBUFSIZE CBUFPTR CBUFDIRTY EPAGE EOFFSET) +COURIER.NSNAME.LENGTH (NSOBJECT NSDOMAIN NSORGANIZATION) \FIXCODENUM (BASE) \MAKE.EXPEDITED.STREAM ( +XIPBASE XIPLENGTH) FB.NAMES.DECREASING.VERSION (VERSIONLESSNAME TIDATA VERSION) \PAGED.FORCEOUTPUT ( +ACCESSBITS CBUFDIRTY CPAGE BUFFS USERMAPPED IODIRTY CBUFPTR VMEMPAGE BUFFERNEXT FILEPAGE#) +DSPSOURCETYPE (IMAGEDATA DDSOURCETYPE DDPILOTBBT DDOPERATION) \FIXCODEPTR (BASE) \DSPCLIPPINGREGION.IP + (IMAGEDATA IPClippingRegion) GN/RIGHT (XCOORD NODEPOSITION NODEWIDTH) \CLIPLINE (LEFT RIGHT BOTTOM +TOP) \PAGEDSETFILEPTR (PAGE OFFSET CPAGE EPAGE COFFSET CBUFDIRTY) DASSEM.DSTOREFNDEF (OVERHEADWORDS +OP#) POSTSCRIPT.STARTPAGE (IMAGEDATA POSTSCRIPTPAGENUM POSTSCRIPTHEADING POSTSCRIPTHEADINGFONT) +DSPYOFFSET (IMYOFFSET IMAGEOPS) TB.EXPANDFN (TBLOCK TBUPDATEFROMHERE) \PAGED.SETEOFPTR (PAGE OFFSET +ACCESSBITS EPAGE) \REALDISKDA (NSECTORS NHEADS NTRACKS) DSPXOFFSET (IMXOFFSET IMAGEOPS) +TEDIT.UNDO.INSERTION (LINES SEL) \UPDATEOF (CBUFPTR COFFSET CBUFSIZE CPAGE) \IFS.LOOKUPFILE (PFSNAME +PFSOSTYPE PFSLOOKUPFILELOCK PFSLOOKUPFILESOCKET PUPTYPE LOOKUPVERSION LOOKUPCREATIONDATE LOOKUPLENGTH +ERRORPUPCODE PFSLOOKUPFAILCNT) DSPCREATE (BITMAPWIDTH) \BSP.SETFILEPTR (BSPOUTPUTSTREAM) +POSTSCRIPT.SET-FAKE-LANDSCAPE (IMAGEDATA POSTSCRIPTLANDSCAPE POSTSCRIPTCLIPPINGREGION +POSTSCRIPTPAGEREGION HEIGHT WIDTH BOTTOM LEFT POSTSCRIPTBOTTOMMARGIN POSTSCRIPTRIGHTMARGIN +POSTSCRIPTTOPMARGIN POSTSCRIPTLEFTMARGIN) SEDIT::RESHAPEFN (BOTTOM HEIGHT SEDIT::CONTEXT-LOCK WIDTH +LEFT) \PAGEDREADP (NSCHARHASH CPAGE EPAGE) \SEL.LINEDESC (POINT L1 LN) \CARET.FLASH (CURSOR CUHOTSPOTX + CUHOTSPOTY) \NSFILING.GET.ATTRIBUTES (NSHDATUM) \CHECKARRAYBLOCK (PASSWORD INUSE TRAILER ARLEN FWD +BKWD) DINFO.TOGGLE.HISTORY (HISTORY.MENU.WINDOW) XCL:OPEN-STREAM-P (ACCESSBITS) \FM.EDIT-SETUP ( +FM.REGION FM.USERDATA WIDTH FM.MESSAGE FM.INITSTATE FM.SYSSELECTEDFN) \COURIER.REP.BOUT (CRNEXTBYTE +CRLASTWORD) \CHECKFREEPAGE (CBLABELADDR DISKDAS CBPAGENO) \BSPWRITEBLOCK (BSPOUTPUTSTREAM) +\ALLOCBLOCK.OLD (PASSWORD TRAILER ARLEN FWD) \PARTEND.PRESS (IMAGEDATA PDSTREAM PRPARTSTART HIBYTE +LOBYTE ELSTREAM) XCL:ECHO-STREAM-INPUT-STREAM (F1) DINFO.TOGGLE.TEXT (MONITORLOCK CURRENTNODE) +NS.ECHOUSER (XIPCONTENTS NSOCEVENT XIPTYPE XIPLENGTH EPTRANSMITTING) TEXTOBJ (TEXTOBJ) \ALLOCBLOCK.NEW + (PAGE#) SWAPXIPADDRESSES (EPNETWORK XIPDESTSOCKET NDBNSNET#) XCL:ECHO-STREAM-OUTPUT-STREAM (F2) +TB.FIND.PREVIOUS.TAIL (TBTAILHINT TI# TBITEMS) \FM.NUMBER-SETUP (FM.REGION FM.USERDATA WIDTH +FM.MESSAGE FM.INITSTATE FM.SYSSELECTEDFN) \NSFILING.GET/SETINFO (NSFILING.CONNECTION NSFILING.HANDLE +RANDOMACCESSP FULLFILENAME) \ALLOCHUNK (DTDSIZE CELLINPAGE) XCL:TWO-WAY-STREAM-OUTPUT-STREAM (F2) +NSNETDAYTIME0 (XIPLENGTH TIMEOP TIMEVALUE) TOPW.REPAINTFN (LEFT RIGHT) NEARESTCORNER (LEFT RIGHT +BOTTOM TOP) \SFFixDestination (DDPILOTBBT DDDestination BITMAPRASTERWIDTH) \HANDLE.RAW.XIP (NSHNM2 +NSHNM1 NSHNM0 EPNETWORK NDBNSNET# NSNETHI NSNETLO NSNET LONUM HINUM ID# XIPDESTSOCKET XIPTYPE +XIPCONTENTS XIPCHECKSUM XIPCHECKSUMBASE XIPLENGTH INQUEUELENGTH NSOC#ALLOCATION INQUEUE NSOCEVENT) +TB.FLUSH.WINDOW (TBAFTERCLOSEFN) \LEAF.READFILEPROP (LEAFCONNECTION PUPCONTENTS LEAFHANDLE LEAFSTATUS) + BSPPUTMARK (BSPLOCK BSPSOC BSPOUTPUTSTREAM BSPCURRENTPUP BSPERRORHANDLER CPPTR COFFSET) +\MAIKO.ALLOCBLOCK (TRAILER) \BSP.HANDLE.DATA (PUPLENGTH PUPID RCVBYTEID SYSQUEUEHEAD BSPINPUTQ +SYSQUEUETAIL QLINK %#UNREADPUPS BSPINPUTEVENT BSPINACTIVITYTIMEOUT INACTIVITYTIMER) CHAT.TYPESCRIPT ( +TYPEOUTPROC) \NEWLENGTHIS (EPAGE EOFFSET) \DSPPOPSTATE.PSC (IMAGEDATA POSTSCRIPTXFORMSTACK PSXCLIP +PSXPAGE PSXBOTTOM PSXTOP PSXLEFT PSXRIGHT PSXLAND PSXXFORMPEND PSXTRANX PSXTRANY) TEDIT.GETSYNTAX ( +NSCHARHASH READSA TXTRTBL TEXTOBJ) PUTHASHTEXT (Stream) SEDIT::INSERT-LIST (SEDIT::SELECT-START +SEDIT::SELECT-END SEDIT::POINT-INDEX SEDIT::SUB-NODE-INDEX) XCL:TWO-WAY-STREAM-INPUT-STREAM (F1) +COMP.NUMBERTEST (OPNAME OPARG TAG) ENCAPSULATEDOBJ.DISPLAYFN (XSIZE YSIZE YDESC) COURIER.WRITE.NSNAME +(NSORGANIZATION NSDOMAIN NSOBJECT) \MAKEFREEARRAYBLOCK (TRAILER) CHCON (PNAMEBASE FATPNAMEP +PNAMELENGTH BASE FATSTRINGP OFFST LENGTH) \CLEARCB (SHORTCB) \DISPLAYSTREAMINCRXPOSITION (DDXPOSITION) + \MERGEFORWARD (ARLEN INUSE) XCL:CONCATENATED-STREAM-STREAMS (F1) \FTP.SENDVERSION (FTPIN FTPOUT) +\MEDW.REDISPLAYW (DSP) \LINKBLOCK (ARLEN BKWD) \SETETHERFLAGS (BVersion MAXETHERBYTES) UNPACK ( +PNAMEBASE FATPNAMEP PNAMELENGTH BASE OFFST FATSTRINGP LENGTH) WTODSY (BOTTOM DSP) SEDIT::INPUT-STRINGDELIM + (SEDIT::CARET-POINT SEDIT::POINT-NODE SEDIT::ENVIRONMENT SEDIT::DEFAULT-FONT) \MERGEBACKWARD (INUSE +ARLEN) XCL:BROADCAST-STREAM-STREAMS (F1) \LEAF.GETFILEINFO.OPEN (EPAGE EOFFSET LFCREATIONDATE +LFWRITEDATE LFREADDATE) BSPGETMARK (PUPCONTENTS BSPCURRENTPUP BSPERRORHANDLER BSPSOC) \DELETEBLOCK? ( +ARLEN FWD BKWD) XCL:SYNONYM-STREAM-SYMBOL (F1) SEDIT::PUNT-SET-SELECTION (SEDIT::SUPER-NODE +SEDIT::LINEAR-FORM SEDIT::LINEAR-THREAD) PPBUFS (FILEPAGE# BUFFERNEXT) \VIRTUALDISKDA (DISK NTRACKS +TRACK NHEADS HEAD NSECTORS SECTOR) \SFFixClippingRegion (DDClippingRegion DDDestination LEFT WIDTH +DDXOFFSET BITMAPWIDTH BOTTOM HEIGHT DDYOFFSET BITMAPHEIGHT) \PREFIXALIGNMENT? (CELLINSEGMENT) +GET.OBJ.FROM.USER (SEL) \FM.EDIT-INSERT (LEFT WIDTH FM.BITMAP FM.LABEL) \DSPPUSHSTATE.PSC (IMAGEDATA +POSTSCRIPTXFORMSTACK POSTSCRIPTCLIPPINGREGION POSTSCRIPTPAGEREGION POSTSCRIPTLEFTMARGIN +POSTSCRIPTRIGHTMARGIN POSTSCRIPTTOPMARGIN POSTSCRIPTBOTTOMMARGIN POSTSCRIPTTRANSX POSTSCRIPTTRANSY +POSTSCRIPTLANDSCAPE POSTSCRIPTPENDINGXFORM) INTEGERLENGTH (HINUM LONUM) \BSP.HANDLE.ACK (PUPID +LASTACKID ACKREQUESTED ADATATIMEOUT LASTADATATIME BSPOUTPUTQ INTERRUPTOUT SYSQUEUEHEAD PUPSOC +ADATACOUNT QLINK PUPTYPE PUPLENGTH %#UNACKEDPUPS %#UNACKEDBYTES PUPALLOCCOUNT AUXWORD MAXPUPALLOC +PUPCONTENTS ACKBYTESPERPUP ACKPUPS ACKBYTES BSPINPUTEVENT BSPINACTIVITYTIMEOUT INACTIVITYTIMER) +BSPOUTPUTSTREAM (BSPOUTPUTSTREAM) \TEDIT.WORDBOUND.READTABLE (READSA) +\UPDATE-SYNONYM-STREAM-LINELENGTH-FIELD (LINELENGTH F1 F2 OPENFILELST) \LOCATE.NSNET (RTNET# +RTHOPCOUNT) DCHCON (PNAMEBASE FATPNAMEP PNAMELENGTH BASE OFFST FATSTRINGP LENGTH) SEDIT::OUTPUT-CR ( +SEDIT::RELINEARIZATION-TIME-STAMP SEDIT::CURRENT-LINE SEDIT::CURRENT-NODE SEDIT::YCOORD SEDIT::LINE-HEIGHT + SEDIT::ACTUAL-WIDTH SEDIT::CURRENT-X SEDIT::LINEAR-POINTER SEDIT::LINEAR-PREV SEDIT::BELOW? +SEDIT::FIRST-BLOCK SEDIT::DISPLAY-WINDOW SEDIT::DEFAULT-LINE-SKIP SEDIT::ENVIRONMENT) +\NSFILING.GETEOFPTR (ACCESSBITS DEVICE) \MEDW.SHAPEW (RESHAPEFN WIDTH HEIGHT LEFT BOTTOM NEWREGIONFN) +\TEDIT.STRIKEOUT.CARET.ON (CARETLOOKS) \FLUSHNDBS (NDBNEXT NDBETHERFLUSHER NDBWATCHER NDBTQ NDBIQ) +SPY.MERGETREE (SUM COUNT STATUS TREEFROM) SEDIT::DELETE-QUOTE (SEDIT::SUB-NODE-INDEX SEDIT::SUB-NODES) + DASSEM.DWRITEFN (OP# COMMONLISP) CL:APROPOS-LIST (BASE OFFST LENGTH FATSTRINGP) EDITFROMFILE (EDITDEF + DESCRIPTION) \TEDIT.STRIKEOUT.CARET.OFF (CARETLOOKS) DUNPACK (PNAMEBASE FATPNAMEP PNAMELENGTH BASE +OFFST FATSTRINGP LENGTH) CL:APROPOS (BASE OFFST LENGTH FATSTRINGP) \CARET.FLASH? (RATE \WINDOW) +TEXTICON (LEFT BOTTOM) ALPHORDER (PNAMEBASE PNAMELENGTH FATPNAMEP BASE OFFST LENGTH FATSTRINGP TYP) +COURIER.OPEN (HIBYTE LOBYTE) \SFFixFont (DDPILOTBBT DDFONT BITMAPBITSPERPIXEL DDDestination ROTATION) +CHAT.SWITCH.EMACS (CHATINEMACS) BLOCK (PROCQUEUE PQNEXT NEXTPROCHANDLE PROCFX INVALIDP WAKEREASON +PQLOWER) \CREATESTARFONT (FONTCHARSETVECTOR) \SETBRUSH.IP (BRUSHCOLOR) BKLINBUF (READSA NSCHARHASH) +\ARRAYBLOCKMERGER (ARLEN) SEDIT::INPUT-QUOTE (SEDIT::OPEN-NODE-CHANGED? SEDIT::SELECTION SEDIT::SELECT-NODE + SEDIT::CARET-POINT SEDIT::POINT-NODE SEDIT::SUPER-NODE SEDIT::POINT-INDEX SEDIT::POINT-STRING) +TEDIT.MOVE (SET \TEXTOBJ DCH TXTREADONLY TEXTLEN PCTB TXTHISTORY CHLIM CH# LINES POINT FORMATTEDP SEL) + COPYHASHFILE (ValueType ItemLength %#Entries ItemCopyFn) \NSFILING.RELEASE.BULKSTREAM ( +FSCOURIERSTREAMS) FREEATTACHEDWINDOW (BOTTOM HEIGHT) \LEAF.SETVALIDATION (LOCREATE LEAFINFO LOWRITE) +CHECK-SYMBOL-NAMESTRING (LENGTH) \TEDIT.UNDERLINE.CARET.ON (CARETLOOKS) TEXTSTREAMP (TEXTOBJ) +\BSP.GETNEXTBUFFER (BSPERRORHANDLER BSPSOC BSPOUTPUTSTREAM) \ACCHARWIDTHLIST (BBOX BBOY BBDX BBDY +FBBBDX) \INCPARENCOUNT (INSTRINGP LBRKCOUNT LPARCOUNT FW6 FW7) \SWAPDISKERROR (CURRENTDISKPAGE) PACKC +(XBASE) COURIER.WRITE.REP (CRNEXTBYTE CRWORDLIST) \LOOKUPFMAP (ISFONEPAGE ISFONEDA ISFLAST) +BSPFORCEOUTPUT (BSPLOCK BSPSOC BSPOUTPUTSTREAM BSPCURRENTPUP) TB.UPDATE.DISPLAY (TBWINDOW TBEXTENT +TB#ITEMS TBITEMHEIGHT HEIGHT PTOP TBORIGIN BOTTOM) INVERT.SEGMENT (END FIRSTCOL START ROW) +\DSPTRANSLATE.PSC (IMAGEDATA POSTSCRIPTTRANSX POSTSCRIPTTRANSY POSTSCRIPTCLIPPINGREGION +POSTSCRIPTPAGEREGION LEFT BOTTOM POSTSCRIPTX POSTSCRIPTY POSTSCRIPTLEFTMARGIN POSTSCRIPTRIGHTMARGIN +POSTSCRIPTBOTTOMMARGIN POSTSCRIPTTOPMARGIN) \GETFBB (BBOX BBOY BBDX BBDY) \COPYARRAYBLOCK (PASSWORD +INUSE ARLEN GCTYPE) \ACCHARIMAGELIST (RASTERWIDTHX) SPY.SUM (COUNT CALLEES SUM) DASSEM.DASSEM (COMTYPE + ARGS CODE CLEAR TOPFRAME OPARG OPNAME VARS VARINDEX OP# FREEVARINDEX NVALS NNILS) +OPENPOSTSCRIPTSTREAM (LEFT BOTTOM HEIGHT WIDTH POSTSCRIPTFONT EOLCONVENTION) \COPYSEL (Y0 X0 DX CH# +XLIM CHLIM DCH L1 LN YLIM POINT SET \TEXTOBJ SELKIND HOW HOWHEIGHT HASCARET SELOBJ ONFLG) PACK (XBASE) + COMP.GETBASEBITS (OPNAME OPARG) COPYALL (CUIMAGE CUMASK CUHOTSPOTX CUHOTSPOTY CUDATA) NEARTOP (TOP +WIDTH LEFT) \PACK.ITEM (BASE) SPY.MERGE (DELETED NAME DEPTH) WXOFFSET (LEFT) \SAVELINEBUF ( +LINEBUFSTATE GETFILEPTR DEVICE CHARSET BASE) \SFFIXLINELENGTH (IMAGEDATA DDRightMargin DDLeftMargin +FONTAVGCHARWIDTH DDFONT) \ADVANCE.ARRAY.SEGMENTS (PAGE# CELLINPAGE) SPY.NEXT.TREE (CALLEES NAME) +TTY.PROCESS (PROCOLDTTYPROC PROCDELETED PROCTYPEAHEAD PROCTTYEXITFN INTERRUPTLIST PROCTTYENTRYFN) +\LFINITCASEARRAY (BASE) \FM.EDIT-PREPARETOEDIT (FM.SELECTEDFN FM.USERDATA LEFT BOTTOM) BRECOMPILE ( +COMPFILEMAP COMPFILEXPRS) \PFTransferFilePage (fileID type subVolumes) \BYTELT (ORIG TYP LENGTH BASE +OFFST) COPYHASHITEM (Stream Start End) CONVERT-LITATOM (PNAMEBASE PNAMELENGTH FATPNAMEP LENGTH) +\BYTESETA (ORIG TYP LENGTH READONLY BASE OFFST) \BSP.HANDLE.INTERRUPT (RCVINTERRUPTID PUPID +BSPOTHERPUPFN BSPINPUTSTREAM PUPSOC) SEDIT::PLACE-CARET-AND-SELECTION (SEDIT::DISPLAY-WINDOW +SEDIT::DESTINATION SEDIT::LINEAR-FORM SEDIT::\X) FB.ANALYZE.PATTERN (PATTERN) WYOFFSET (BOTTOM) +\WORDELT (ORIG TYP LENGTH BASE OFFST) COMP.STFIX (OPNAME OPARG) \LITATOM.EATCHARS (PNAMEBASE +PNAMELENGTH FATPNAMEP) \MEDW.SHRINKW (SCREEN LEFT BOTTOM) \ARRAYTYPENAME (TYP) CL:INTERN (BASE OFFST +LENGTH FATSTRINGP) INTERPRESSBITMAP (WIDTH BITMAPWIDTH HEIGHT BITMAPHEIGHT) TTNTHLINE (NEXTLINE) +\FM.EDITSTART-SELECTEDFN (FM.SELECTEDFN) CCODEP (CCODEP PSEUDOCODEP DEFPOINTER) PAGEFULLFN ( +KEYBOARDSTREAM) WTODSX (LEFT DSP) SCALE/GRAPH (GRAPH.PROPS GRAPHNODES NODEWIDTH NODEHEIGHT XCOORD +NODEPOSITION YCOORD NODEFONT NODEBORDER) MAKEBITTABLE (NSCHARHASH) COMP.FMEMB (OPNAME OPARG) +EXCHANGEXIPS (PACKETEXCHANGEID) IRM.RESET (WINDOW) \BLOCKDATAP (DTDHUNKP) SETLINELENGTH (LINELENGTH) +COMP.EXPR (EXTCALL) SPY.MAKEGRAPHNODES (NAME CUMULATIVE SUM COUNT STATUS CALLEES) \NSFILING.HOSTNAMEP +(NSFSPARSEDNAME NSOBJECT) \DSKDISPLAY.RESHAPEFN (LEFT BOTTOM) \BSP.HANDLE.INTERRUPTREPLY (INTERRUPTOUT + PUPID XMITINTERRUPTID BSPINPUTEVENT) SEDIT::OUTLINE-SELECTION (SEDIT::SELECT-START-X SEDIT::SELECT-END-X + SEDIT::SELECT-START-LINE SEDIT::SELECT-END-LINE SEDIT::LINE-LENGTH SEDIT::NEXT-LINE SEDIT::INDENT +SEDIT::YCOORD SEDIT::LINE-HEIGHT) DISPLAYSTREAMP (IMAGETYPE IMAGEOPS) \LEAF.REPAIR.BROKEN.PUP ( +EPUSERFIELD LEAFCONNECTION LEAFOPCODE PUPCONTENTS LEAFHANDLE FULLFILENAME) TEDIT.FIND (TEXTLEN SET SEL + POINT CH# CHLIM) \CARET.SHOW (STREAM SCCARETFLASH SCREEN XWINDOWHINT IMAGEDATA) NEWPAGE?.IP (IPYPOS +IPDATA IPBOTTOM) \SETFATSYNCODE (NSCHARHASH) TB.ITEM.UPDATABLE? (TI# TBWINDOW TBUPDATEFROMHERE) +\FM.EDIT-ITEM (BOTTOM LEFT FM.USERDATA WIDTH HEIGHT) TB.PRINT.LINE (TBBASELINE TISELECTED TIDELETED) +\SPP.DUPLICATE.REQUEST (DEVICEINFO SOURCECONID SPP.CONNECTION SPPDESTID) WINDOWWORLDP (SCONOFF) +SEDIT::COPY-STRUCTURE-QUOTE (CL:STRUCTURE SEDIT::SUB-NODES) \SHOW.ARRAY.FREELISTS (ARLEN SAFITEMS +SAFCELLS FWD) FILEPOS (BASE TYP PNAMEBASE PNAMELENGTH OFFST LENGTH GETFILEPTR DEVICE) +\M44DOEXTENDVMEMFILE (ISFLAST ISFHINTLASTPAGE CURRENTNUMCHARS ISFREWRITE ISFDA0 ISFDA1 ISFDA2) +PRINTDISPLAYNODE (NODEHEIGHT) SHOW.PRESS (IMAGEDATA GETFILEPTR DEVICE ELSTREAM STARTCHARBYTE PRFONT +DESCR PRCURRFDE FONT#) \STREAMCHARWIDTH (IMAGEDATA DDWIDTHSCACHE CCECHO NSCHARHASH TERMSA) +NSNAME.TO.STRING (NSOBJECT NSDOMAIN NSORGANIZATION) \EXTENDISFMAP (ISFLAST ISFEND) \VFMCorrectBufferP +(VOLUME VOLPAGENUM) SEDIT::HELPMENU (SEDIT::HELP-MENU SEDIT::ENVIRONMENT SEDIT::DISPLAY-WINDOW) +SEDIT::MAKE-COMMENT-STRING (SEDIT::SUB-NODES) \TEDIT.SUPERSCRIPT.CARET (CARETLOOKS) +\FM.EDITSTART-SETUP (FM.MESSAGE FM.SYSDOWNFN FM.SYSMOVEDFN FM.SYSSELECTEDFN) \FACECODE (EXPANSION +WEIGHT SLOPE) FFILEPOS (PAGEMAPPED DEVICE PNAMEBASE PNAMELENGTH BASE OFFST LENGTH GETFILEPTR TYP) +SEDIT::LESS-PROMPT-WINDOW (LEFT BOTTOM WIDTH HEIGHT) \PARSEARRAYSPACE1 (INUSE FWD ARLEN GCTYPE) +\TEDIT.COPYINSERTFN (SEL) COMP.NUMBERCALL (OPNAME OPARG PREV) TEDIT.SETFUNCTION (TXTRTBL TEXTOBJ +READSA READMACRODEFS) \TEDIT.UNPARSE.PARALOOKS.LIST (QUAD 1STLEFTMAR LEFTMAR RIGHTMAR LEADBEFORE +LEADAFTER LINELEAD FMTBASETOBASE TABSPEC FMTSTYLE FMTCHARSTYLES FMTUSERINFO FMTSPECIALX FMTSPECIALY +FMTPARATYPE FMTPARASUBTYPE FMTNEWPAGEBEFORE FMTNEWPAGEAFTER FMTHEADINGKEEP FMTKEEP FMTHARDCOPY +FMTREVISED FMTCOLUMN) SEDIT::VERIFY-COMMENT (CL:STRUCTURE) PSCFONT.READFONT (DESCENT) +\BSP.HANDLE.ERROR (ERRORPUPCODE MAXPUPALLOC BSPOTHERPUPFN BSPINPUTSTREAM) DBG::NEAR-BY-REGION (WIDTH +HEIGHT LEFT BOTTOM) POSTINITARRAYS (SEGMENT# CELLINSEGMENT) \NSFILING.ERRORHANDLER (FULLFILENAME +ACCESS NSFILING.HANDLE DEVICE NSHFILEID SPP.CONNECTION F1 F2 F3 F4 F5 FW6 FW7 CBUFPTR CBUFSIZE COFFSET +) \ECHOCHAR (ECHOFLG RAISEFLG) \INITIALIZESWAPDISK (ISFDISK DSKDRIVE# ALTODSKOBJ) \DSPTOPMARGIN.PRESS +(PRTOP IMAGEDATA) TB.CLOSE/SHRINK (TBLOCK TBCLOSEFN) FB.CHECK.NAME.LENGTH (PRINTNAME BROWSERFONT +NAMEOVERHEAD INFOSTART OVERFLOWWIDTHS OVERFLOWSPACING) EXPANDING-PAGEFULLFN (HEIGHT BOTTOM) +\TEDIT.GET.TERMSA.WIDTHS (BASE OFFST) \DECPARENCOUNT (INSTRINGP LBRKCOUNT LPARCOUNT FW6 FW7) +SEDIT::INPUT-DOT (SEDIT::CARET-POINT SEDIT::POINT-NODE SEDIT::POINT-TYPE SEDIT::POINT-INDEX +SEDIT::SUPER-NODE) SEDIT::COPY-STRUCTURE-LIST (SEDIT::SUB-NODES CL:STRUCTURE) ICONW.TITLE (ICTITLE) +TEDIT.MAPPIECES (PCTB PLEN NEXTPIECE) DINFO.TITLEMENUFN (MONITORLOCK MENUFN FMENU.WINDOW) +\INTERPRETER1 (FNHEADER NEXTBLOCK OVERHEADWORDS FIRSTPVAR IVAR BLINK NLOCALS) \NSFILING.RENAMEFILE ( +OPENFILE) \BSP.TIMERFN (RTPSTATE INACTIVITYTIMER ACKPENDING INTERRUPTOUT BSPOUTPUTQ PUPSOC +ACKREQUESTED LASTADATATIME ADATACOUNT XMITBYTEID) TEDIT.GETFUNCTION (TXTRTBL TEXTOBJ NSCHARHASH READSA + READMACRODEFS MACROFN) \TEDIT.UNDERLINE.CARET.OFF (CARETLOOKS) \SMASHLINK (ALINK CLINK USECNT BLINK +DUMMYBF IVAR NEXTBLOCK NOPUSH INCALL) TEDIT.SETSEL (SEL TEXTLEN CHLIM CH# POBJ PCTB) COMP.NUMERIC ( +OPARG OPNAME) \GETCHAR (KEYBOARDSTREAM RAISEFLG) \STACKARGPTR (EDFXP INVALIDP CLINK FRAMENAME ALINK +USECNT) SEDIT::LINEAR-ITEM-WIDTH (SEDIT::WIDTH) \FILLBUFFER (LBRKCOUNT INSTRINGP LPARCOUNT +KEYBOARDSTREAM READSA CONTROLFLG PEEKEDCHAR PEEKEDECHOFLG RAISEFLG TERMCLASS NSCHARHASH GETFILEPTR +DEVICE STOPATOM WAKEUP) \FILLRTPPUP (CONNID) \STARTDISPLAY (BITMAPBASE BITMAPRASTERWIDTH) SEDIT::EDIT-HELP + (SEDIT::OPEN-NODE-CHANGED? SEDIT::CARET-POINT SEDIT::POINT-NODE SEDIT::DISPLAY-WINDOW) +\FILLBUFFER.WORDSEPRP (TERMCLASS NSCHARHASH) CL::%%RATIO-PRINT (COMMONNUMSYNTAX HASHMACROCHAR +CHARPOSITION) \MEDW.MOVEW (REG MOVEFN SCREEN SCREGION LEFT BOTTOM WIDTH HEIGHT XCOORD YCOORD +SCDESTINATION SAVE SCHEIGHT) \INTERPRETER-LAMBDA (IVAR BLINK) \DSPTRANSFORMREGION (LEFT DDXOFFSET +BOTTOM DDYOFFSET WIDTH HEIGHT) FB.HANDLE.ABORT.BUTTON (UPDATEPROC ABORTING) UPDATE/SCROLL/REG ( +SCROLLFN REG VERTSCROLLWINDOW HORIZSCROLLWINDOW LEFT BOTTOM HEIGHT WTITLE SCTITLEDS SCREEN WIDTH) +DESCRIBE-VIRTUAL-MEMORY (XVmemFmapBase) SEDIT::COMPUTE-POINT-POSITION-LIST (SEDIT::POINT-NODE +SEDIT::POINT-INDEX SEDIT::START-X SEDIT::WIDTH SEDIT::LINEAR-FORM SEDIT::FIRST-LINE SEDIT::SUB-NODES +SEDIT::NODE-TYPE SEDIT::NEXT-LINE SEDIT::LAST-LINE SEDIT::INDENT SEDIT::POINT-LINE SEDIT::LINEAR-THREAD + SEDIT::ACTUAL-LLENGTH) CHARWIDTH (WIDTHS FONTCHARSETVECTOR IMCHARWIDTH IMAGEOPS) VMEMSIZE ( +NActivePages) SPY.MAX (CALLEES COUNT SUM) \TEDIT.READTABLE (READSA) COMP.COMPARENUM (OPNAME OPARG) +DSPBACKUP (IMAGEDATA DDXPOSITION DDLeftMargin DDFONT DDSlowPrintingCase ROTATION DDYPOSITION) +TEDIT.GET.PARALOOKS (SEL PPARALOOKS PCTB) TB.SHOW.DELETION (TBLINETHICKNESS TBBASELINE TBITEMHEIGHT) +BRECOMPILE3 (COMPFILESTREAM COMPFILEMAP) CL::%%COMPLEX-PRINT (CHARPOSITION HASHMACROCHAR) +\OFFSETCLIPPINGREGION (DDClippingRegion LEFT DDXOFFSET BOTTOM DDYOFFSET WIDTH HEIGHT) +\FM.DISPLAY-SETUP (FM.MESSAGE) VIDEOCOLOR (DLDISPCONTROL) \3MBENCAPSULATE (NDBPUPHOST#) +\SETUP-COMPILED-CLOSURE-CALL (MiscFXP FNHEADER BLINK IVAR %#ALINK SLOWP %#CLINK NEXTBLOCK PADDING NA +STKMIN SIZE USECNT DUMMYBF STARTPC FIRSTPVAR PV ENVIRONMENT) \TEDIT.PRIMARYW (\WINDOW) +\PARSE.REMOTE.FILENAME (PFSOSTYPE) \PRINTFMAP (ISFLAST) \FILLINSPP (XIPCONTENTS) DISPLAYNODELINKS ( +GRAPHNODES) \LEAF.USE.NEW.CONNECTION (EPLINK LEAFOPCODE PUPCONTENTS EPUSERFIELD ACCESSBITS +FULLFILENAME LEAFHANDLE) SPY.MERGEINFO (MERGEINFO) WFROMDS (\WINDOW IMAGEDATA XWINDOWHINT DSP) +\MEDW.RELMOVEW (LEFT XCOORD BOTTOM YCOORD) \FIXP.FROM.FLOATP (HINUM LONUM SIGNBIT LOFRACTION +HIFRACTION EXPONENT) \CURSOR.DEFPRINT (CUIMAGE CUMASK CUHOTSPOTX CUHOTSPOTY CUDATA) +\DSPSPACEFACTOR.PRESS (IMAGEDATA PRSPACEFACTOR PRWIDTHSCACHE) \NSFILING.WHENCLOSED (FSCOURIERSTREAMS +FSDEVICENAME OPENFILELST) TB.FIND.SELECTED.ITEM (TB#ITEMS TISELECTED) MAKEFILES (TOBEDUMPED FILEPROP) +\ENTITYEND.PRESS (IMAGEDATA ELSTREAM GETFILEPTR DEVICE DLSTARTBYTE FONTSET# PRCURRFDE PRPARTSTART +HIBYTE LOBYTE PRLEFT PRBOTTOM PRRIGHT PRTOP ELSTARTBYTE) \DSCCOUT (CCECHO NSCHARHASH CHARPOSITION) +ARGLIST (CCODEP DEFPOINTER FNHEADER) \DSPFONT.IP (IMAGEDATA IPFONT IPPAGEFONTS IPSPACEFACTOR +IPWIDTHSCACHE OTHERDEVICEFONTPROPS IPVISTOP \SFAscent IPVISBOTTOM \SFDescent IPXPOS IPVISLEFT IPYPOS +IPMINVISIBLEBASELINE IPMAXVISIBLEBASELINE) FW-UPDATE-OFD-WINDOWS (OFDSTATUS) \PROMPTWINDOW.SET.HEIGHT +(TOP) FB.EDITLISPFILE (PROMPTWINDOW) COMP.SHIFT (OPNAME OPARG) ASKUSEREXPLAIN (EXPLAINSTRING) +\DSPLINEFEED.PRESS (IMAGEDATA PRLINEFEED) \TEDIT.SUBSCRIPT.CARET (CARETLOOKS) \FREESTACKBLOCK ( +EndOfStack StackBase FLAGS NEXTBLOCK SIZE) \MEDW.CLOSEW (DSP SCDESTINATION REG SAVE NEXTW) \STKNAME ( +FRAMENAME BLINK IVAR NARGS) GETWINDOWUSERPROP (USERDATA) FB.COPYFN (FILENAME TIDATA) \3MBSENDPACKET ( +3MBLENGTH PBIRAWSTART 3MBBASE EPTYPE) SEDIT::CFV-QUOTE (SEDIT::WIDTH SEDIT::UNASSIGNED SEDIT::SUB-NODES + SEDIT::INLINE-WIDTH SEDIT::PREFERRED-WIDTH) \SETUP-ENVIRONMENT-CALL (MiscFXP NEXTBLOCK BLINK IVAR +CLINK NA STKMIN DUMMYBF SIZE STARTPC FIRSTPVAR PV PADDING) DISPLAY/NAME (NODELABEL) +TEDIT.INSERT.OBJECT (SEL POINT CH# CHLIM PCTB TXTREADONLY TEXTLEN TEXTOBJ \WINDOW PREVPIECE PPARALAST +NEXTPIECE PPARALOOKS FMTSPEC CARETLOOKS PLEN THISLINE) \LFExtendFile (VOLUME FILEDESC size) +DELETE.LONG.SEGMENT (ROWPOS COLPOS) \ENTITYSTART.PRESS (IMAGEDATA GETFILEPTR DEVICE ELSTREAM PRXPOS +PRYPOS) \3MB.BROADCASTP (3MBDESTHOST) TEDIT.MAPLINES (NEXTLINE LINES WBOTTOM HEIGHT YBOT) +\LEAF.READFILENAME (PFSOSTYPE) DINFO.GET.FILENAME (FILE DEFAULTHOST DEFAULTDEVICE DEFAULTDIR) +\START.PROCESSES (PQNEXT PROCFX INVALIDP WAKEREASON PQLOWER) \TEDIT.SELECT.ALL (TEXTLEN) +\NSFILING.GET.STREAM (FSCOURIERSTREAMS FSADDRESS FSPROCESSNAME) BSP.PUTINTERRUPT (BSPSOC BSPLOCK +INTERRUPTOUT XMITINTERRUPTID BSPOUTPUTQ PUPCONTENTS PUPSOC BSPINPUTEVENT) CHAT.EMACS.MOVE (EMCOL0 +YCOORD EMARG EMUP EMDOWN XCOORD EMFORWARD WINDOW XPOS FONTWIDTH OUTSTREAM YPOS FONTHEIGHT) DRIBBLE ( +FULLNAME) PROCESSWORLD (PROCFX PQLOWER PROCNAME PROCNEVERSTARTED RESTARTABLE PROCTTYEXITFN +PROCDRIBBLEOUTPUT PROCHARDRESETINFO PROCRESTARTFORM PROCFORM) \SETUP.DEFAULT.LINEBUF (ENDOFSTREAMOP) +\COERCEASCIITONSFONT (BASE FONTCHARSETVECTOR WIDTHS) ADD.PROCESS (PROCPRIORITY) \MEDW.OPENW (NEXTW +SCTOPW DSP IMAGEDATA DDPILOTBBT BITMAPRASTERWIDTH SCDESTINATION DDDestination REG SAVE) +CHANGEBACKGROUND (SCDESTINATION) \NSFILING.DELETEFILE (NSHBUSYCOUNT NSHDIRECTORYP NSHDATUM +FSCACHEDHANDLES) FB.CLOSEFN (FBLOCK) TRIM.BITMAP (BITMAPWIDTH BITMAPHEIGHT) \RUN.PROCESS (PROCQUEUE +PROCEVENTORLOCK PROCSTATUS PROCDELETED PROCTIMERSET PQLAST PQNEXT NEXTPROCHANDLE) SEDIT::CFV-LIST ( +SEDIT::UNASSIGNED SEDIT::NON-STANDARD? SEDIT::CFVLIST SEDIT::SPACE-WIDTH SEDIT::WIDTH SEDIT::LPAREN-STRING + SEDIT::SUB-NODES SEDIT::LIST-PFORMAT SEDIT::NODE-TYPE SEDIT::PREFERRED-WIDTH SEDIT::INLINE-WIDTH +SEDIT::MAX-WIDTH) \OPENW1 (OPENWFN SCREEN) NEWPAGE.IP (IPDATA IPFONT IPPAGESTATE IPPREAMBLEFONTS +IPPREAMBLENEXTFRAMEVAR IPROTATION IPXOFFSET IPYOFFSET IPHEADING IPHEADINGFONT IPPAGENUM IPHEADINGOPVAR + IPLEFT IPTOP IPSPACEFACTOR) \ICONW.SHOW.TITLE (ICJUST ICFONT ICREGION ICIMAGE ICOPERATION +ICBREAKCHARS BITMAPWIDTH BITMAPHEIGHT) \SPP.SYSPKT (SPPSYSPKT EPTRANSMITTING XIPCONTENTS SPPSEQNO) +\3MBGETPACKET (3MBBASE PBIRAWSTART PBILENGTH PBISOCKET 3MBTYPE) \MOVE.WINDOWS.ONTO.SCREEN (REG RIGHT +TOP WIDTH HEIGHT) COMP.RPLACD (OPARG OPNAME) \DSPRIGHTMARGIN.PRESS (PRRIGHT IMAGEDATA) +\RELEASE.PROCESS (PROCEVENTORLOCK PROCFX PROCTIMERSET PROCOLDTTYPROC PROCNAME PROCWINDOW) +\FTP.OPENFILE.FROM.PLIST (FTPIN FTPOUT) \CLOSEW1 (CLOSEWFN SCREEN) \ADDLEAFSTRING (PUPCONTENTS +LEAFLENGTH PNAMEBASE PNAMELENGTH BASE OFFST LENGTH) OPT.CALLP (OPNAME OPARG) \TEDIT.ITALIC.CARET.ON ( +CARETLOOKS) TB.FIRST.VISIBLE.ITEM# (TBORIGIN PTOP TBWINDOW TBITEMHEIGHT) CHAT.HOLD (HELD) +\LINEBUF.READP (KEYBOARDSTREAM PEEKEDCHAR) PUTWINDOWPROP (PUTWINDOWPROPFN SCREEN) OPENWINDOWS (SCTOPW +NEXTW) TB.REV.FIND.SELECTED.ITEM (TB#ITEMS TISELECTED) \LONUM (HINUM LONUM) SEDIT::INPUT-NORMAL-CHAR ( +SEDIT::DISPLAY-WINDOW SEDIT::CARET-POINT SEDIT::POINT-NODE SEDIT::UNDO-LIST SEDIT::SELECT-NODE +SEDIT::SELECTION) SEDIT::UNDO-COMMENT-CHANGE (CL:STRUCTURE SEDIT::SUB-NODES SEDIT::ENVIRONMENT +SEDIT::COMMENT-FONT) DISPLAYGRAPH (XCOORD YCOORD GRAPHNODES NODEID) \HINUM (HINUM LONUM) \LINEBUF.EOFP + (EOFP DEVICE KEYBOARDSTREAM) BULKDATA.GENERATE.NEXT (BGSTREAM BGITEMSLEFT BGLASTSEGMENT? BGPROGRAM +BGTYPE) APPLY (CCODEP DEFPOINTER ARGTYPE) TTNEXTPOS (END NEXTLINE START) \CREATELINEBUFFER (DEVICE +EOFP) SEDIT::STRINGIFY-COMMENT (SEDIT::UNASSIGNED) APPLY* (CCODEP ARGTYPE DEFPOINTER) NSOCKETNUMBER ( +ID#) SEDIT::EXTRACT-CURRENT-SELECTION (SEDIT::OPEN-NODE-CHANGED? SEDIT::DISPLAY-WINDOW SEDIT::SELECTION + SEDIT::CARET-POINT SEDIT::SELECT-NODE SEDIT::SELECT-TYPE SEDIT::SELECT-START SEDIT::SELECT-END +SEDIT::SUB-NODES SEDIT::NODE-TYPE CL:STRUCTURE) INVERT.BITMAP.VERTICALLY (BITMAPWIDTH BITMAPHEIGHT) +\FIXPASSWORD (SEQNAME) COMP.DELFN (OPARG) \NEXTCONSPAGE (DTDNEXTPAGE DTDTYPEENTRY) \CKAPPLYARGS (ALINK + NEXTBLOCK) \INSPECT/CODE/REPAINTFN (XCOORD YCOORD) TB.LAST.VISIBLE.ITEM# (TB#ITEMS TBORIGIN BOTTOM +TBWINDOW TBITEMHEIGHT) SETXY.PRESS (IMAGEDATA ELSTREAM HIBYTE LOBYTE) LINEBUFFER-EOFP (EOFP DEVICE) +EQFMTSPEC (QUAD FMTNEWPAGEBEFORE FMTNEWPAGEAFTER FMTSTYLE FMTSPECIALX FMTSPECIALY FMTHEADINGKEEP +FMTKEEP FMTPARATYPE FMTPARASUBTYPE FMTHARDCOPY FMTREVISED FMTCOLUMN 1STLEFTMAR LEFTMAR RIGHTMAR +LEADBEFORE LEADAFTER LINELEAD FMTBASETOBASE FMTUSERINFO FMTCHARSTYLES TABSPEC) TB.FIND.ITEM (TB#ITEMS) + DRAWMARGINSCALE (WIDTH HEIGHT) FW-RECALL-CMD (OFDSTATUS FULLNAME) \MOUSE.PROCESS (PROCNAME) +SEDIT::START-PROCESS (SEDIT::ICON-TITLE SEDIT::COMPLETION-EVENT) ICMLARRAY.MENUW.APPLY (LEFT TOP) +PRINTLINE (YBOT YBASE LHEIGHT ASCENT DESCENT CHAR1 CHARLIM CHARTOP DIRTY CR\END DELETED LHASPROT +LHASTABS RIGHTMARGIN LXLIM SPACELEFT PREVLINE NEXTLINE TEXTLEN STREAMHINT) \SETSPACE.PRESS (IMAGEDATA +PRSPACEWIDTH ELSTREAM HIBYTE LOBYTE) \MAIKO.CONS.UFN (DTDCNTLOC CNT PAGEBASE NEXTCELL NEXTFREE +DBLWORD#) DINFO.OPENTEXTSTREAM (LAST.TEXT) \TEDIT.INSPECTCODE (FRAMENAME) CL:CLOSE (ACCESSBITS) +\DEQUEUE (SYSQUEUEHEAD QLINK) \MEDW.CREATEW (DSP IMAGEDATA WIDTH HEIGHT SCDESTINATION REG LEFT BOTTOM +WTITLE SCTITLEDS SCREEN) RELSTK (EDFXP) \PROMISCUOUS.ON (NETTYPE) \TIMER.PROCESS (PROCTIMERLINK +PROCWAKEUPTIMER) \IRM.GET.REF (TYPE PRIMARYFLG) SEDIT::BACKSPACE-LIST (SEDIT::CARET-POINT SEDIT::SUB-NODES + SEDIT::SELECTION SEDIT::BACK-SPACE SEDIT::NODE-TYPE) CHAT.MENU (INSTREAM LOCALECHO) GRAPHDELETELINK ( +GRAPH.DELETELINKFN NODEID TONODES FROMNODES) SPY.UPDATE.TITLE (GRAPHNODES NAME NODEID COUNT SUM) +DINFO.FMW.CLOSEFN (SUBNODE.MENU.WINDOW HISTORY.MENU.WINDOW GRAPH.WINDOW) \FM.NWAY-SELECTEDFN ( +FM.USERDATA) \CLOSELEAFCONNECTION (SEQNAME) COMP.LABELS (OPNAME OPARG) COURIER.WRITE.BULKDATA (HIBYTE +LOBYTE) \LFExtendFileIfNecessary (size FILEDESC FULLFILENAME) TTBEFOREPOS (ROWPOS COLPOS END ROW) +\PROMISCUOUS.OFF (NETTYPE NDBPUPHOST#) TWOD.TRACKCURSOR (ROWPROP COLUMNPROP ELTBOTTOM ELTLEFT ELTWIDTH +) \SETFVARSLOT (NAMETABLE NTSIZE OVERHEADWORDS FIRSTPVAR) NSOCKETFROMNUMBER (ID#) SEDIT::EXPAND ( +SEDIT::DISPLAY-WINDOW SEDIT::SELECTION SEDIT::CARET-POINT SEDIT::SELECT-NODE SEDIT::SELECT-TYPE +SEDIT::SELECT-START CL:STRUCTURE) \REQUEUE.ETHERPACKET (EPREQUEUE) PROG (OVERHEADWORDS) +\NSFILING.CHILDLESS-P (NSHDATUM) SEDIT::CREATE-COMMENT-WORD-NODE (SEDIT::COMMENT-FONT) +SEDIT::ASSIGN-FORMAT-QUOTE (SEDIT::SUB-NODES CL:STRUCTURE) \PROG0 (FNHEADER NEXTBLOCK FIRSTPVAR +OVERHEADWORDS) LINKPARAMETERS (NODEID) CL::%%BIGNUM-LOGCOUNT (ELEMENTS) SEDIT::SET-PROPS ( +SEDIT::EVAL-IN-PROCESS) \DSPLEFTMARGIN.PRESS (PRLEFT IMAGEDATA) \INITCONSPAGE (PAGE#) IRM.DISPLAY.REF +(NODE NODELST ITEM CH#) \INSPECT/CODE/RESHAPEFN (DDFONT IMAGEDATA) TEDIT.SHOWSEL (TEXTOBJ SEL) +\SET.PROCESS.NAME (PROCNAME) \NSFILING.EVENTFN (OPENFILELST DEVICE ACCESSBITS FULLFILENAME +NSRANDOMDEVICE DEVICEINFO) SPP.OPEN (SPPLOCK SPPMYNSOCKET SPPESTABLISHEDP SPPINPUTEVENT SPPDESTNSNET +SPPPROCESS SPPTERMINATEDP) CreateCursorBitMap (BITMAPBASE) DELETE/AND/DISPLAY/LINK (NODEID DIRECTEDFLG +) INVERT.BITMAP.HORIZONTALLY (BITMAPWIDTH BITMAPHEIGHT) CL:ARRAY-RANK (DIMS) \SMASHRETURN (INVALIDP +CLINK FNHEADER) \STOPDISPLAY (BITMAPBASE) DSPRUBOUTCHAR (IMAGEDATA) \FIXLINELENGTH.PRESS (IMAGEDATA +PRRIGHT PRLEFT FONTAVGCHARWIDTH PRFONT) \GET.PRIORITY.QUEUE (PQPRIORITY PQLOWER) GO (FRAMENAME +NAMETABLE IVAR BLINK INVALIDP CLINK) \LEAF.ERROR (PUPCONTENTS LEAFERRORCODE FULLFILENAME PUPLENGTH +LEAFERROROPCODE) \SPP.SENDPKT (SPPACKNO SPPACCEPTNO XIPCONTENTS SENDACK SEQNO SPPACKREQUESTED +SPPACKREQTIME SPPROUNDTRIPTIME SPPACKREQTIMEOUT SPPMYNSOCKET SPPRETRANSMITTING SPPRETRANSMITTIMER) +EVALA (OVERHEADWORDS) \TEXTMENU.SET.TOGGLE (POBJ PCE PCTB \WINDOW) \MAYBEPRINTPACKET (EPTYPE +NDBBROADCASTP EPNETWORK) CL:ARRAY-TOTAL-SIZE (TOTAL-SIZE) \EVALA (FNHEADER NEXTBLOCK FIRSTPVAR +OVERHEADWORDS) TB.DISPLAY.LINES (TB#ITEMS TBWINDOW TBMAXXPOS TBPRINTFN TBEXTENT TBHEADINGWINDOW) +CHECKCONSPAGES (DTDNEXTPAGE NEXTPAGE) INVERT.LONG.SEGMENT (COLPOS ROWPOS START NEXTLINE) \PEEKNS ( +NSHOSTNUMBER) \DSPYPOSITION.HCPYMODE (IMAGEDATA DDYPOSITION) \CHECKCONSPAGE (CNT NEXTCELL CDRCODE) +\TFBRAVO.WRITE.PARAGRAPH (FMTPARATYPE PARALOOKS) PUTTEXTPROP (TXTREADONLY TXTEDITING TXTNONSCHARS +EDITPROPS) FTP.BREAKCONNECTION (FTPHOST FTPBUSY FTPIN) CURSOR (CUHOTSPOTX BITMAPHEIGHT CUIMAGE +CUHOTSPOTY) TEDIT.DEACTIVATE.WINDOW (EDITOPACTIVE EDITFINISHEDFLG TXTREADONLY PROMPTWINDOW SEL \WINDOW + TXTFILE) \UPDATE-WHO-LINE-ACTIVE-FLAG (FORM VALUE-START VALUE-END) TB.SHOW.COPY.SELECTION (TBWINDOW) +\ETHEREVENTFN (DTDSIZE NDBNEXT DLTODVALID) SEDIT::ASSIGN-FORMAT-LIST (SEDIT::NON-STANDARD? +SEDIT::SET-FORMAT-LIST SEDIT::LIST-FORMATS SEDIT::SUB-NODES SEDIT::NODE-TYPE) TITLEDICONW (ICON +TITLEREG MASK) OPT.OPTCHECK (TAG OPARG PARENT OPNAME FRAME PREV NXT) +\ADJUSTABLE-STRING-STREAM-OUTCHARFN (F1 CHARPOSITION LINELENGTH) \LFRemoveDirEntry (DIRINFO EOFP +DEVICE) SEDIT::SIMPLE-STRING-SCAN (STRING SEDIT::FONT) \KEYHANDLER1 (TELERAIDFXP WRITE READ) +\PRINSTACKP (CHARPOSITION HASHMACROCHAR) \UNWIND.PROCESS (PROCFINISHED) DINFO.CREATE.FMENU ( +FREEMENUITEMS MENUFONT) \FM.NWAY-MOVEDFN (FM.USERDATA LEFT BOTTOM) SEDIT::FIND-NODE (SEDIT::INDENT) +\PRINSTRING (ESCAPECHAR OFFST BASE LENGTH FATSTRINGP CHARPOSITION) DEL.PROCESS (PROCDELETED +PROCBEINGDELETED) \STRING-STREAM-OUTCHARFN (CHARPOSITION LINELENGTH F1) \CKPOSBOUT (CHARPOSITION) +\TEDIT.UCASE.SEL (CH# DCH POINT TXTHISTORY) LET (OVERHEADWORDS) FB.HARDCOPY.DIRECTORY (PATTERN +COUNTERWINDOW PAGECOUNT? TOTALFILES TOTALPAGES DIRECTORYP TIDATA PRINTNAME INFODISPLAYED INFOPROTOTYPE + INFOFORMAT INFOLABEL FILEINFO) %%BROADCAST-STREAM-DEVICE-BOUT (F1) \CKPOSSOUT (CHARPOSITION OFFST +BASE LENGTH FATSTRINGP) \LET0 (FNHEADER NEXTBLOCK FIRSTPVAR OVERHEADWORDS) \SPY.INTERRUPT (CLINK +FRAMENAME INVALIDP) WRITEIMAGEOBJ (GETFN IMAGEOBJFNS PUTFN) LET* (OVERHEADWORDS) TTRACKMOUSE (FIRSTCOL + START END CPXWIDTH) %%BROADCAST-STREAM-DEVICE-OUTCHARFN (F1 CHARPOSITION) \LITPRIN (PACKAGE +HASHMACROCHAR PACKAGECHAR CHARPOSITION CASEINSENSITIVE PNAMEBASE PNAMELENGTH FATPNAMEP) MAP.PROCESSES +(PROCNAME PROCFORM) \LET* (FNHEADER NEXTBLOCK FIRSTPVAR OVERHEADWORDS) TEDIT.CARETLOOKS (CARETLOOKS) +DEFINEDP (DEFPOINTER) \DSKDISPLAY.REPAINTFN (LVlabel volumeSize freePageCount) \FM.NWAY-DOWNFN ( +FM.USERDATA LEFT BOTTOM) \ELIDE.ELEMENT.CHAR (COMMONLISP HASHMACROCHAR) SEDIT::FIND-LINE-START ( +SEDIT::LINEAR-FORM SEDIT::ROOT SEDIT::NEXT-LINE SEDIT::YCOORD) GETSTREAMPROP (ENDOFSTREAMOP OTHERPROPS +) %%CONCATENATED-STREAM-DEVICE-BIN (F1) \NSRANDOM.RELEASE.HANDLE (NSFILING.HANDLE NSFILING.CONNECTION +NSHBUSYCOUNT NSHACCESS) COMP.RETURN-FROM (FRAMETYPE PROGLABELS BLOCKTAG PARENT BLOCKCONTEXT BLOCKEND) +\LFReturnNextFile (RESTOFFILES FULLNAME CURRENTFILE) PUTSTREAMPROP (ENDOFSTREAMOP OTHERPROPS) MAKEFILE + (TOBEDUMPED FILEDATES LOADTYPE FILEDATE DATEFILENAME FILECHANGES COMSNAME) CHECKFORCHANGED (KNOWN) +TB.REPLACE.ITEMS (TIDELETED TBWINDOW) \ELIDE.TAIL.STRING (COMMONLISP) \DSPCLIPPINGREGION.PRESS ( +IMAGEDATA PRClippingRegion) RESTART.PROCESS (PROCDELETED) %%BROADCAST-STREAM-DEVICE-FORCEOUTPUT (F1) +HASHBEFORECLOSE (HASHFILE) SEDIT::DO-MUTATION (CL:STRUCTURE) SEDIT::EVAL-SELECTION (SEDIT::EVAL-IN-PROCESS + SEDIT::DISPLAY-WINDOW) \LFReturnInfo (INFO CURRENTFILE ATTRIBUTES) \EXTERNALFORMAT (NAME +EXTERNALFORMAT) \DSPXPOSITION.IP (IPXPOS IPDATA IPYPOS) %%CONCATENATED-STREAM-DEVICE-PEEKBIN (F1) +MSSOLVE (REP ID SET2 SET1 DET OSET INVERTED) %%BROADCAST-STREAM-DEVICE-CHARSETFN (F1) +SEDIT::SET-SELECTION-COMMENT-WORD (SEDIT::SUPER-NODE SEDIT::SUB-NODE-INDEX SEDIT::LINEAR-FORM) +WAKE.PROCESS (PROCDELETED PROCSTATUS) %%CONCATENATED-STREAM-DEVICE-BACKFILEPTR (F1) \VFMSplit1 (key +used data) SEDIT::DELETE-WORD (SEDIT::OPEN-NODE-CHANGED? SEDIT::CARET-POINT SEDIT::SELECTION +SEDIT::POINT-NODE SEDIT::POINT-INDEX SEDIT::POINT-STRING) SCALEREGION (LEFT BOTTOM WIDTH HEIGHT) +\SUSPEND.PROCESS (PROCSTATUS PROCQUEUE PQLAST NEXTPROCHANDLE PROCTIMERSET PROCEVENTORLOCK) +%%CONCATENATED-STREAM-DEVICE-CLOSEFILE (F1) SEDIT::FINALIZE-MOUSE-SELECTION (SEDIT::SELECTION +SEDIT::CARET-POINT) FIND-EXTERNAL-SYMBOL (BASE OFFST LENGTH FATSTRINGP) SPP.DSTYPE (SPPOUTPKT +ACCESSBITS SPPDSTYPE SPPINPUTDSTYPE DSTYPE SPPINPKT SPPERRORHANDLER) SUSPEND.PROCESS (PROCDELETED) +%%CONCATENATED-STREAM-DEVICE-EOFP (F1) PROMPTINWINDOW (XCOORD YCOORD CUHOTSPOTX) COMP.RETURN ( +FRAMETYPE PARENT) CL:FLOAT-SIGN (SIGNBIT) PLCHAIN (NEXTLINE) PROCESS.RESULT (PROCRESULT +PROCFINISHEVENT PROCNAME) \POSTSCRIPT.SPECIALFONT.SCALEDWIDTHS (FONTSIZE FONTFACE) +\TEDIT.PUT.CHARLOOKS (CLFONT PNEW PFATP) SEDIT::SIMPLE-STRING-OFFSET (STRING SEDIT::FONT) +\LITPRIN.INTERNAL (ESCAPECHAR MULTESCAPECHAR CHARPOSITION PNAMEBASE PNAMELENGTH FATPNAMEP +CASEINSENSITIVE BASE READSA ESCQUOTE NSCHARHASH INNERESCQUOTE) \SEND.ANSWERING.RFC (RTPSTATE PUPID +PUPCONTENTS PUPSOC) GETTEXTPROP (TXTREADONLY TXTEDITING TXTNONSCHARS EDITPROPS) TEDIT.KILL (TEXTOBJ +\WINDOW) SEDIT::SCALE-INDENT (SEDIT::INDENT-BASE SEDIT::INDENT-STEP) \DSPXPOSITION.HCPYMODE ( +DDXPOSITION IMAGEDATA) \LEAF.GETFILEDATES (LEAFINFO) \GETFILINGCONNECTION (DEVICEINFO NSFILINGLOCK +NSCONNECTIONS FSSESSIONLOCK) \SPPWATCHER (SPPACTIVITYTIMER SPPLOCK SPPMYNSOCKET SPPTERMINATEDP +SPPESTABLISHEDP SPPDESTINATIONKNOWN SPPRETRANSMITTIMER SPPRETRANSMITTING SPPACKPENDING SPPACKREQTIME +SPPACKREQUESTED SPPACKREQTIMEOUT SPPSEQNO SPPACKEDSEQNO SPPOUTPUTALLOCNO) ENVAPPLY (CCODEP DEFPOINTER +ARGTYPE) FB.ICONFN (PATTERN) DSPEOLFN (IMAGEDATA DDEOLFN) \FTP.NEXTFILE (FTPGENCONNECTION +FTPNAMEFILTER FTPIN FTPBUSY EOFP DEVICE FTPHOST FTPDEVICEWANTED) PROCESS-STATUS (FRAMENAME CLINK) +ROTATE.BITMAP.RIGHT (BITMAPWIDTH BITMAPHEIGHT) \DSPCOLOR.IP (IPDATA IPCOLOR) +%%SYNONYM-STREAM-DEVICE-CLOSEFILE (OPENFILELST) TB.SCROLLFN (TBLOCK TBHEADINGWINDOW) \FTP.FILEINFOFN ( +FTPGENPLIST) CHAT.DID.RESHAPE (INSTREAM DSP) TB.RECONSIDERRANGE (TISELECTED) TERM.RESET.DISPLAY.PARMS +(WINDOW DSP CLEARMODEFN TERM.STATE) \FUNCT1 (FNHEADER NEXTBLOCK FIRSTPVAR OVERHEADWORDS) COMP.GO ( +FRAMETYPE PROGLABELS) \LFFindNextFile (GETFILEPTR DEVICE) PROCESS.FINISHEDP (PROCFINISHED) \MAKESTACKP + (EDFXP) \PFTrimHelper (size filePage) \TRACKCURSOR (NEWMOUSESTATE) %%SYNONYM-STREAM-DEVICE-EOFP (EOFP + DEVICE) \SPP.STREAM.LOST (SPPERRORHANDLER) MENU.HANDLER (MENUGRID WHENHELDFN MENUROWS MENUCOLUMNS REG + WHENUNHELDFN CHANGEOFFSETFLG MENUOFFSET) %%SYNONYM-STREAM-DEVICE-OUTCHARFN (CHARPOSITION) +SEDIT::DELETE-SELECTION (SEDIT::SELECTION SEDIT::SELECT-NODE SEDIT::SELECT-START SEDIT::SELECT-END +SEDIT::CARET-POINT SEDIT::SELECT-STRING) \SYMBOL.ESCAPE.COUNT (MULTESCAPECHAR ESCAPECHAR +CASEINSENSITIVE BASE READSA PNAMEBASE PNAMELENGTH FATPNAMEP ESCQUOTE NSCHARHASH INNERESCQUOTE +COMMONLISP) NCHARS (PNAMELENGTH LENGTH ESCAPECHAR OFFST BASE FATSTRINGP) \MAKEFUNARGFRAME ( +OVERHEADWORDS EDFXP) FB.GET.NEWPATTERN (PATTERN) NOTIFY.EVENT (EVENTQUEUETAIL PROCEVENTLINK) +CL:GET-OUTPUT-STREAM-STRING (F1) \OUTCHAR (OUTCHARFN) INVERT.BITMAP.DIAGONALLY (BITMAPWIDTH +BITMAPHEIGHT) \DOBUFFEREDTRANSITIONS (READ W0 W1 W2 W3 W4 W5 WU WRITE 1SHIFT 2SHIFT LOCK CTRL META +FONT USERMODE1 USERMODE2 USERMODE3 ALTGRAPH DEADKEYPENDING) \NUMERIC.PNAMEP (COMMONLISP BASE OFFST +LENGTH FATSTRINGP PNAMEBASE PNAMELENGTH FATPNAMEP) PROCESS.TTY (PROCDELETED) SEDIT::GET-CONTEXT ( +SEDIT::ICON-TITLE SEDIT::EDIT-TYPE SEDIT::ROOT CL:STRUCTURE SEDIT::SUB-NODES) STKAPPLY (CCODEP +DEFPOINTER ARGTYPE) MSSHOWUSE (KNOWN TYPE) FB.SET.DEFAULT.NAME.WIDTH (BROWSERFONT BROWSERWINDOW) +\TEXTMENU.TOGGLE.SHOWSELFN (XSIZE YSIZE SET) \SOUT (IMAGETYPE IMAGEOPS OFFST BASE LENGTH FATSTRINGP) +SI::UNWIND (CLINK INVALIDP USECNT FNHEADER FRAMENAME IVAR) FRESHLINE (CHARPOSITION ACCESSBITS EOFP +DEVICE) RETEVAL (INVALIDP CLINK) TEDIT.COPY (SET \TEXTOBJ DCH TXTREADONLY TEXTLEN POINT CH# CHLIM +FORMATTEDP POBJ TXTHISTORY) BRACKET.CURRENT.WORD (END START NSCHARHASH STOPATOM CPXREALCHAR) +PRINTERRORXIP (ERRORXIPCODE ERRORXIPARG) \FM.NWAY-SETUP (FM.MESSAGE FM.SYSDOWNFN FM.SYSMOVEDFN +FM.SYSSELECTEDFN FM.USERDATA) TEDIT.CHARWIDTH (CCECHO NSCHARHASH) RETAPPLY (INVALIDP CLINK CCODEP +DEFPOINTER ARGTYPE) \INSERTCR (TXTREADONLY FORMATTEDP \INSERTPC) \DSPSPACEFACTOR.HCPYMODE (IMAGEDATA +DDMICAXPOS DDFONT) PNAMESTREAMP (DEVICE) \CURVE (DDXOFFSET DDYOFFSET) TTRUBOUT (START) TB.SET.FONT ( +TBWINDOW TBFONT TBHEIGHTEXPLICIT TB#LINESPERITEM TBITEMHEIGHT PTOP TB#ITEMS TBHEADINGWINDOW +TBFONTCHANGEFN) \LEAF.ACKED (SEQDONEQ SEQINPUTQLENGTH) \DEFPRINT.BY.NAME (CHARPOSITION HASHMACROCHAR) +\STREAM.DEFPRINT (ACCESSBITS NAMEDP FULLFILENAME DEVICENAME DEVICE) COPYVM (Key) +%%TWO-WAY-STREAM-DEVICE-BIN (F1) BLIPVAL (NEXTBLOCK FIRSTTEMP INVALIDP CLINK) \DSPBOTTOMMARGIN.PRESS ( +PRBOTTOM IMAGEDATA) GIVE.TTY.PROCESS (RIGHTBUTTONFN BUTTONEVENTFN) %%TWO-WAY-STREAM-DEVICE-OUTCHARFN ( +F2 CHARPOSITION) \FM.NWAY-MESSAGE (FM.USERDATA) SETBLIPVAL (NEXTBLOCK FIRSTTEMP INVALIDP CLINK) +\NSFILING.LOGIN (NSFILESERVER NSFILINGNAME NSFSPARSEDNAME NSFSADDRESSES DEVICENAME NSCONNECTIONS +NSRANDOMDEVICE FSNAMESTRING) SPP.SENDEOM (ACCESSBITS EOFP DEVICE SPPOUTPUTSTREAM SPPOUTPKT) +\FDEV.DEFPRINT (DEVICENAME) %%TWO-WAY-STREAM-DEVICE-BOUT (F2) NEWLINE.IP (IPDATA IPYPOS IPLINEFEED +IPBOTTOM IPLEFT) \GETACCESS (ACCESSBITS) %%TWO-WAY-STREAM-DEVICE-READP (F1) VERBNOTICELIST (VB1 VB2 +ROOT MODIFIER) \TEDIT.PEEKBIN.NEW.PAGE (REALFILE ACCESSBITS FULLNAME CBUFSIZE EOFP DEVICE FATSTREAMP +CPPTR COFFSET CPAGE CHARSLEFT) %%TWO-WAY-STREAM-DEVICE-OUTPUTSTREAM (F2) \DSPFONT.PRESS (IMAGEDATA +PRFONT FONTCHARSETVECTOR FONTSET# PRCURRFDE ELSTREAM FONT# WIDTHS PRSPACEFACTOR PRWIDTHSCACHE) +\RTP.ERROR (RTPSTATE) \FTP.CLOSEFILE (ACCESS FTPIN FTPOUT FULLFILENAME EOFP DEVICE FTPHOST) +%%TWO-WAY-STREAM-DEVICE-BACKFILEPTR (F1) %%CONCATENATED-STREAM-DEVICE-CHARSETFN (F1) INSPECT (DTDHUNKP + DTDGCTYPE DTDSIZE) \CARET.DOWN (NEXT STREAM DSP) \REALFRAMEP (FRAMENAME FNHEADER) \VAROFFSET ( +OVERHEADWORDS NAMETABLE NTSIZE IVAR BLINK BOUND FIRSTPVAR) PRINTNUM-TO-STRING (WIDTH RADIX LEFTFLUSH +PAD0) \SPP.PREPARE.INPUT (SPPINPKT COFFSET CBUFSIZE SPPEOFBITS SPPFILEPTRLO SPPFILEPTRHI FW6 EOMP +SPPEOFP DSTYPE BULK.DATA.CONTINUATION SPPCONTENTS ATTENTION XIPLENGTH SPPINPUTDSTYPE SPPDSTYPECHANGEFN +) INPUT (FULLNAME) %%TWO-WAY-STREAM-DEVICE-EOFP (EOFP DEVICE F1) \IPCURVE2 (SPLINEX SPLINEY SPLINEDX +SPLINEDY SPLINEDDX SPLINEDDY SPLINEDDDX SPLINEDDDY %#KNOTS IMAGEDATA IPVISLEFT IPVISRIGHT IPVISBOTTOM +IPVISTOP) OPT.DS1 (OPNAME OPARG VARS PREV FRAMETYPE PARENT TAG NXT) \STKARG (NARGS BLINK IVAR NTSIZE +OVERHEADWORDS FIRSTPVAR FNHEADER NLOCALS BOUND) WINDOW.BITMAP (WIDTH HEIGHT) SEDIT::SET-POINT-COMMENT +(CL:STRUCTURE SEDIT::LINEAR-FORM SEDIT::DESTINATION SEDIT::SUB-NODE-INDEX) +%%TWO-WAY-STREAM-DEVICE-INPUTSTREAM (F1) \LFSortFiles (NAME VERSION) \SETACCESS (DEVICE FDBINABLE BIN +FDBOUTABLE FDEXTENDABLE BOUT) MODERNWINDOW.BUTTONEVENTFN (LEFT RIGHT TOP BOTTOM) ROTATE.BITMAP.LEFT ( +BITMAPWIDTH BITMAPHEIGHT) \NSFILING.UPDATE.ATTRIBUTES (NSHATTRIBUTES) TB.CONTIGUOUS.SELP (TISELECTED +TIDELETED TIUNSELECTABLE) \DSPLINEFEED.HCPYMODE (DDLINEFEED IMAGEDATA) \FTP.GENERATEFILES (FTPIN +FTPOUT GENFILESTATE FTPGENCONNECTION) POSTSCRIPT.INIT (INTERPRESSFD PRESSFD DISPLAYFD OTHERFDS) +\STREAM.NOT.OPEN (FULLNAME) \SPP.CREATE.STREAMS (DEVICEINFO) ALLOW.BUTTON.EVENTS (PROCNAME) +\LEAF.FIX.BROKEN.SEQUIN (SEQSTATE SEQRETRANSMITQ SEQDONEQ SEQNAME SYSQUEUEHEAD SYSQUEUETAIL EPLINK +LEAFOPCODE PUPCONTENTS SEQSOCKET OPENP LEAFCONNECTION LEAFABORTSTATUS SEQTIMER LEAFABORTBUTTONWINDOW +SEQEVENT EPUSERFIELD FULLFILENAME) BLIPSCAN (INVALIDP CLINK) TEDIT.INSERT.UPDATESCREEN (THISLINE +\WINDOW CH# TXTDON'TUPDATE LN L1 SELWINDOW POINT YBOT BOTTOM WBOTTOM Y0 WTOP LHEIGHT) PROCESS.WINDOW ( +PROCDELETED PROCWINDOW) %%TWO-WAY-STREAM-DEVICE-PEEKBIN (F1) MSGETDEF (GETDEF-FN FILEPKGNAME) +COMP.PROG (VARS DECLS) \EVALFORM (CCODEP ARGTYPE DEFPOINTER) \INSTALL.EXTERNALFORMAT (NAME) +\NSFILING.CLOSEFILE (DEVICE NSFILING.CONNECTION NSFILING.HANDLE ACCESSBITS FULLFILENAME +NSFILING.NEW.ATTRIBUTES NSHATTRIBUTES NSHDATUM) %%TWO-WAY-STREAM-DEVICE-CHARSETFN (F1) +\GC.HANDLEOVERFLOW (PTR CASE DTDCNT0 HINUM LONUM DTDCNTLOC) SPP.CLOSE (SPPTERMINATEDP SPPSUBSTREAM +ACCESSBITS) \REMOVE.EXTERNALFORMAT (NAME) \TFBRAVO.HANDLE.HEADING (PARALOOKS FMTSPECIALX FMTSPECIALY) +%%TWO-WAY-STREAM-DEVICE-CLOSEFILE (F1 F2 OPENFILELST) DEFAULT.ADDNODEFN (GRAPHNODES) \DRAWLINE.IP ( +IMAGEDATA IPVISLEFT IPVISBOTTOM IPVISRIGHT IPVISTOP) \DTEST.UFN (DTDNAME DTDSUPERTYPE HINUM LONUM) +WINDOW.MOUSE.HANDLER (XCOORD YCOORD CURSOROUTFN CURSORINFN RIGHTBUTTONFN WINDOWENTRYFN BUTTONEVENTFN +CURSORMOVEDFN) %%FILL-POINTER-STREAM-DEVICE-GETFILEPTR (F1) FB.BROWSECOMMAND (FBDEPTH NSPATTERN?) +TWODINSPECT.ADJUSTSELECTION (ROWPROP COLUMNPROP) SCREENBITMAP (SCDESTINATION SCREEN) SEDIT::EXPANDREGIONFN + (SEDIT::ICON-TITLE SEDIT::EDIT-TYPE) \FM.STATE-CHANGESTATE (FM.STATE) \BACKTRACE (BLINK NAMETABLE +INVALIDP ALINK CLINK) \TEDIT.SMALLER.CARET (CARETLOOKS) CREATE.NUMBERPAD.READER (IMAGEWIDTH +IMAGEHEIGHT) DINFO.CLOSEFN (GRAPH.WINDOW) \FM.STATE-SELECTEDFN (FM.USERDATA) \LEAF.HANDLE.INPUT ( +PUPCONTENTS SEQDONEQ SEQINPUTQLENGTH ANSWERBIT SEQNAME LEAFOPCODE LEAFERROROPCODE LEAFALLOWERRORS +LEAFERRORCODE EPUSERFIELD LEAFERRORCNT FW7 LEAFANSWERWANTED) %%TWO-WAY-STREAM-DEVICE-FORCEOUTPUT (F2) +TEXTSTREAM (TEXTOBJ STREAMHINT) TB.REPAINTFN (TB#ITEMS TBLOCK) TB.NUMBER.OF.ITEMS (TB#ITEMS TB#DELETED + TBLASTSELECTEDITEM TBFIRSTSELECTEDITEM TISELECTED) EXPRP (CCODEP PSEUDOCODEP DEFPOINTER) COMP.LAMBDA +(OPNAME OPARG VARS DECLS) \NET.SETTIME (NETTYPE) OPT.DEADSETQP (OPNAME) \GET.EXTERNALFORMAT.FROM.NAME +(NAME) %%SYNONYM-STREAM-DEVICE-GET-STREAM (F1) DO.SHIFTED.SELECTION (COLPOS ROWPOS END) \SEND.ABORT ( +PUPCONTENTS RTPSTATE PUPSOC) \GCMAPTABLE (PTR CASE DTDCNT0 HINUM LONUM DTDCNTLOC) \FLUSHNSOCQUEUE ( +INQUEUE) \DSPRIGHTMARGIN.HCPYMODE (DDMICARIGHTMARGIN IMAGEDATA) \INTERPRETER (DEFPOINTER +MISCSTACKRESULT OVERHEADWORDS) OPT.DELCOPYFN (NXT OPARG OPNAME PREV) TB.CONSIDERRANGE (TIUNSELECTABLE +TIDELETED) \LFWriteLeaderPage (VOLUME FILEDESC LEADERPAGE) TTYINBUFFERPEEK (TTYINPUT TTYEOF +CPXREALCHAR) MKATOM (BASE OFFST LENGTH FATSTRINGP) \LFHighestVersions (NAME) PRINTXIPDATA (XIPCONTENTS + XIPLENGTH) \TEXTMENU.TOGGLEFN (\TEXTOBJ) \COERCE.NS.SOCKET (NSSOCKET) ONED.TRACKCURSOR (ELTBOTTOM +ELTLEFT ELTWIDTH PROP) \DSPFONT.HCPYMODE (IMAGEDATA DDFONT IMFONTCREATE IMAGEOPS \SFHeight DDMICAXPOS +WIDTHS FONTCHARSETVECTOR) \SPP.DEFAULT.ERRORHANDLER (FULLFILENAME SPPINPUTDSTYPE) \FM.STATE-SETUP ( +FM.MESSAGE FM.SYSDOWNFN FM.SYSMOVEDFN FM.SYSSELECTEDFN FM.USERDATA FM.STATE) INVERT.BITMAP.B/W ( +BITMAPWIDTH BITMAPHEIGHT) \LEAF.TIMEDIN (LEAFABORTBUTTONWINDOW) SEDIT::DRAW-UNDERLINE (SEDIT::NEXT-LINE-Y + SEDIT::LINE-LENGTH SEDIT::NEXT-LINE SEDIT::INDENT) \DEFINEFONT.PRESS (IMAGEDATA PRESSFONTDIR +PRNEXTFONT# PRMAXFONTSET) \SPP.ESTABLISH (SPPSERVERFLAG SPPPROCESS SPPSOURCESKT# SPPATTENTIONFN +SPPWHENCLOSEDFN SPPERRORHANDLER SOURCECONID SPPLOCK SPPSERVERFN SPPINPUTEVENT) PROCESS.EVAL ( +PROCDELETED PROCEVAPPLYRESULT) SEDIT::REPAINT (SEDIT::DISPLAY-WINDOW SEDIT::WINDOW-BOTTOM +SEDIT::LINEAR-THREAD SEDIT::DESTINATION SEDIT::LINEAR-FORM SEDIT::INDENT STRING SEDIT::PRIN-2?) +\TEXTMENU.TOGGLE.CREATE (XSIZE YSIZE) \PRINTFRAME (NAMETABLE FIRSTTEMP FAST INCALL VALIDNAMETABLE +NOPUSH USECNT SLOWP ALINK FNHEADER NEXTBLOCK BLINK NLOCALS FIRSTPVAR BOUND LOOKEDUP BINDINGPTR) ONFILE + (FILEPKGNAME) FB.FASTSEECOMMAND (SEEWINDOW) SEDIT::SET-POINT-COMMENT-WORD (SEDIT::SUPER-NODE +SEDIT::SUB-NODE-INDEX SEDIT::LINEAR-FORM) LISTP (WORDINPAGE) \SEND.RFC (CONNID PUPSOURCE PUPCONTENTS +PUPSOC) \PRINTBF (NARGS IVAR RESIDUAL USECNT) \FLUSHPUPSOCQUEUE (INQUEUE) \CREATECHARSET.IP (WIDTHS +FONTAVGCHARWIDTH CHARSETDESCENT) \PEEKBIN (PEEKBIN DEVICE) \INSERTCH (TXTREADONLY FATSTRINGP OFFST +BASE LENGTH \INSERTNEXTCH \INSERTLEN \INSERTLEFT \INSERTSTRING \INSERTPC \INSERTFIRSTCH PCTB TEXTLEN +PC PCOFF COUNT PLEN \INSERTPCVALID NEXTPIECE PLOOKS PPARALOOKS PSTR TXTHISTORY THLEN CARETLOOKS +FMTSPEC PREVPIECE PPARALAST THACTION THCH# PFATP) \BSP.SENDBUFFER (BSPSOC COFFSET XMITBYTEID +ADATACOUNT BSPFILEPTRLO BSPFILEPTRHI FW6 %#UNACKEDPUPS %#UNACKEDBYTES PUPALLOC BYTEALLOC BSPOUTPUTQ +PUPSOC) \TEDIT1 (TEXTOBJ EDITFINISHEDFLG TXTFILE) COLLECT.CHILD.NODES (TONODES GRAPHNODES) BCPLVERSION + (BVersion) INTERPRESS.OUTCHARFN (IPDATA NSTRANSTABLE NSCHARSET IPSPACEWIDTH IPWIDTHSCACHE IPXPOS +IPCHARVISIBLEP IPMINCHARRIGHT IPSHOWSTREAM IPRIGHT IPCLIPINCLUSIVE IPVISRIGHT) \DECODETRANSITION ( +FLAGS SHIFTORLOCK SHIFT LOCK FONT USERMODE1 USERMODE2 USERMODE3 SHIFTCODES CODES CTRL META +INTERRUPTLIST) \LEAF.RECONNECT (DEVICEINFO PFSLEAFSEQUIN SEQSTATE PFSNAME) DINFO.EXPANDFN ( +FMENU.WINDOW GRAPH.WINDOW) \SCANFORNTENTRY (OVERHEADWORDS NTSIZE) \LEAF.TIMEDOUT (LEAFABORTSTATUS +LEAFTIMEOUTSTATUS SEQSTATE SEQNAME) \RECLAIMSTACKP (EDFXP INVALIDP) MAKENEWCOM (NEWCOM) +DECODE/WINDOW/OR/DISPLAYSTREAM (WTITLE DSP) EDITCALLERS (REREADTABLE) DINFO.SHRINKFN (GRAPH.WINDOW) +CHARACTER (XBASE) REALMEMORYSIZE (NRealPages) \PROCESS.EVAL1 (PROCSTATUS) \SETXFORM.PSC ( +POSTSCRIPTCLIPPINGREGION POSTSCRIPTSCALEHACK POSTSCRIPTLANDSCAPE POSTSCRIPTROTATION POSTSCRIPTTRANSX +POSTSCRIPTTRANSY HEIGHT WIDTH LEFT BOTTOM) TB.COPYBUTTONEVENTFN (TBCOPYFN TBITEMS TIUNCOPYSELECTABLE) +TTYINBUFFERBIN (TTYINPUT TTYEOF CPXREALCHAR) RECURSIVE.COLLECTDESCENDENTS (NODEID) \PFPutMarkerPage ( +subVolumes) \TEDIT.RESTARTFN (TEXTOBJ \DIRTY) PRIN2 (COMMONLISP USESILPACKAGE LINELENGTH) +SEDIT::CONVERT-COMMENT (SEDIT::DISPLAY-WINDOW SEDIT::SELECTION SEDIT::CARET-POINT SEDIT::SELECT-NODE +SEDIT::SELECT-START SEDIT::SELECT-TYPE SEDIT::SUB-NODES SEDIT::SELECT-END SEDIT::SUB-NODE-INDEX +SEDIT::DEPTH) PRESSWINDOW (PRLEFT IMAGEDATA PRWIDTH PRBOTTOM PRHEIGHT) \SAVEVMBACKGROUND (Key) +\NSRANDOM.ENSURE.WATCHER (DEVICEINFO NSWATCHERPROC NSFILINGNAME) \NSADDRESS.DEFPRINT (CHARPOSITION) +\NSPRINT.COURIER.OPEN (NSPRINTERADDRESS NSOBJECT NSPRINTERNAME) CLEARW (DSP) SPP.CLEAREOM (SPPEOFBITS) + \BACKFILEPTR (BACKFILEPTR DEVICE) \FAX.PARSE.NAME (OFFST BASE LENGTH FATSTRINGP) \GETINTEGERPART ( +HINUM) TTYDISPLAYSTREAM (IMAGEDATA DDClippingTop DDClippingBottom DDLINEFEED) MEASUREGRAPHNODE ( +NODEPOSITION) \DRAWCURVE.IP (XCOORD YCOORD) FW-INIT-PROPS (XCOORD YCOORD) REQUIREVERSION (LVersion +RVersion BVersion) \DSKDISPLAY.CREATE.WINDOW (XCOORD YCOORD LEFT BOTTOM) CL:COMPILED-FUNCTION-P (TYP) +SEDIT::SELECT-SEGMENT-COMMENT (SEDIT::SELECT-START) \PUTSYSBUF (READ WRITE) CL:MAKE-ECHO-STREAM ( +LINELENGTH OPENFILELST) U-CASE (FATPNAMEP BASE PNAMEBASE PNAMELENGTH FATSTRINGP OFFST LENGTH XBASE) +\FTP.GETFILEINFO (FTPFILEPROPS) \VALID.FILING.CONNECTIONP (FSLOGINCHANGED FSNAMESTRING FSLOGINNAME +FSCOURIERSTREAMS FSSESSIONTIMER FSCONTINUANCE) \VFMMerge1 (volumePage used key) MICROCODEVERSION ( +RVersion) CL:MAKE-SYNONYM-STREAM (LINELENGTH OPENFILELST) CL:MAKE-TWO-WAY-STREAM (LINELENGTH +OPENFILELST) OPT.EQVALUE (OPNAME OPARG PREV) \SETBSPTIMEOUT (INTERRUPTOUT %#UNACKEDPUPS PUPALLOC +BYTEALLOC BYTESPERPUP RTPPROCESS ACKREQUESTED ADATATIMEOUT BSPTIMER) \NSFILING.DISCARD.SESSION ( +NSCONNECTIONS DEVICEINFO FSCOURIERSTREAMS FSSESSIONLOCK) CHANGE.NODEFONT.SIZE (NODEFONT +GRAPH.FONTCHANGEFN) \CLOSEIPSTREAM (IPPAGESTATE IPDATA) FB.ADD.FILEGROUP (NOSUBDIRECTORIES FILENAME +SUBDIREND) \PROCESS.APPLY1 (PROCSTATUS) \TEDIT.NEWREGIONFN (XCOORD YCOORD) NEWLINE.PRESS (IMAGEDATA +PRYPOS PRLINEFEED PRBOTTOM PRLEFT) PROCESS.APPLY (PROCDELETED PROCEVAPPLYRESULT) \PUT.SESSION.HANDLE ( +FSSESSIONHANDLE) PUPSOCKETEVENT (PUPSOCEVENT) SCANFORWARD (END CPXREALCHAR) \TEDIT.LARGER.CARET ( +CARETLOOKS) \LFFindInfo (INFO volNum FILEDESC) \LEAF.WHENCLOSED (LEAFABORTBUTTONWINDOW SEQDONEQ +SEQRETRANSMITQ SEQNAME PFSLEAFSEQUIN DEVICEINFO) \SEND.ENDREPLY (PUPSOC) \GETDEVICEFROMHOSTNAME ( +HOSTNAMEP) \TRANSMIT.STRATEGY (ACKREQUESTED PUPALLOC BYTEALLOC BYTESPERPUP %#UNACKEDPUPS LASTADATATIME + ADATACOUNT PUPTYPE) \SEND.END (PUPSOC) \HARDCURSORUP (CUIMAGE BITMAPBITSPERPIXEL BITMAPHEIGHT) +MSINTERPRET (ID TYPE DEFAULTTYPE SETNAME OTHERSTUFF SUBJECT MSPRED MSVERB REP OTHERSET TENSE VPART +MSPATHOPTIONS OUTPUT LINELENGTH TO FROM AVOIDING SEPARATE NOTRACE MARKING) \TEDIT.WORDDELETE (SEL +STREAMHINT READSA TXTWTBL POINT CH# CHLIM NSCHARHASH CLPROTECTED PLOOKS PIECE) FB.GETALLFILEINFO ( +NSPATTERN?) TTYINBUFFERREADP (TTYINPUT TTYEOF) MOVEDESCENDENTS (NODEID NODEPOSITION) FIXVERBSETTYPE ( +TYPE MSVERB REP OTHERSET) \CURSORBITSPERPIXEL (CUBITSPERPIXEL CUIMAGE CUMASK) COPYIMAGEOBJ ( +OBJECTDATUM IMAGEOBJPLIST IMAGEOBJFNS) EQCLOOKS (CLFONT FONTCLASSNAME CLPROTECTED CLINVISIBLE +CLSELHERE CLCANCOPY CLULINE CLOLINE CLINVERTED CLSTRIKE CLOFFSET CLSMALLCAP CLSTYLE CLUSERINFO) +\BSP.FLUSH.SOCKET.QUEUES (BSPOUTPUTQ BSPINPUTSTREAM BSPCURRENTPUP BSPOUTPUTSTREAM) \FTP.DELETEFILE ( +OPENP FTPIN FTPOUT) \PRINTNSADDRESS (LINELENGTH) FB.MAKERIGIDWINDOW (HEIGHT) \TFBRAVO.PARSE.PARA ( +RUNLENGTH) \NSPRINT.UNSUPPORTED (NSPRINTERNAME) \CURSORDESTINATION (BITMAPBITSPERPIXEL CUIMAGE +NEWMOUSESTATE BITMAPBASE BITMAPWIDTH BITMAPHEIGHT BITMAPRASTERWIDTH) OPT.EQOP (OPNAME OPARG) +\CCODEARGLIST (NA NTSIZE NATIVE STARTPC OVERHEADWORDS ARGTYPE) PRESS.BITMAPSCALE (HEIGHT WIDTH) +\CLOSEFILE (ACCESSBITS IMCLOSEFN IMAGEOPS DEVICE CLOSEFILE UNREGISTERFILE) \UNQUEUE.EVENT ( +EVLOCKQUEUETAIL PROCEVENTLINK) SEDIT::CHANGE-QUOTE (CL:STRUCTURE SEDIT::QUOTE-STRING SEDIT::ENVIRONMENT +) \EVENT.DEFPRINT (EVENTNAME) SEDIT::PARSE--COMMENT-WORD (SEDIT::COMMENT-FONT SEDIT::ENVIRONMENT) +\FM.3STATE-CHANGESTATE (FM.STATE FM.BITMAP FM.USERDATA FM.REGION) \DELETEFILE (DELETEFILE) PACK* ( +XBASE PNAMEBASE PNAMELENGTH FATPNAMEP LENGTH) BSPPRINTPUP (PUPID PUPLENGTH PUPTYPE PUPCONTENTS) +\LEAF.GETFILEINFO (PFSLEAFSEQUIN DEVICEINFO LEAFCACHEDFILE FULLFILENAME) \WWCHANGESCREENSIZE ( +SCDESTINATION) \CCODEIVARSCAN (BYTESWAPPED) \TFBRAVO.ADD.NAMEDTAB (FMTUSERINFO TEXTLEN) \LEAF.IDLE? ( +SEQINPUTQLENGTH LEAFCACHEDFILE) \SPP.HANDLE.DATA (SPPACKNO SPPINPUTQ SEQNO SYSQUEUETAIL QLINK DSTYPE +SPPOUTPUTSTREAM SPPSTATE SPPINPUTEVENT) \TFBRAVO.WRITE.RUNS (RUNS PARALOOKS RUNLENGTH) +\ENQUEUE.EVENT/LOCK (EVLOCKQUEUETAIL PROCEVENTLINK) ICONW.SHADE (BITMAPWIDTH BITMAPHEIGHT) +\SHIFT.DOCUMENT (BASE PPARALOOKS POBJ OBJECTDATUM 1STLEFTMAR LEFTMAR RIGHTMAR TABSPEC NEXTPIECE) +\BLKEXPONENT.UFN (EXPONENT) OBTAIN.MONITORLOCK (MLOCKOWNER PROCOWNEDLOCKS MLOCKPERPROCESS) +POSTSCRIPT.FONTCREATE (ASCENT DESCENT FID OTHERDEVICEFONTPROPS WIDTHS FONTCHARSETVECTOR FONTDEVICESPEC +) \HARDCURSORPOSITION (NEWMOUSESTATE) \NSNET.CLOSERP (NSNET RTHOPCOUNT) \DEVICEEVENT (EVENTFN OPENP +NONDEFAULTDATEFLG) SPY.FIND.TREE (NAME) PARSE-NSADDRESS (OFFST BASE LENGTH FATSTRINGP) +FB.MAYBE.WIDEN.NAMES (OVERFLOWWIDTHS INFOSTART TOTALFILES) DELFROMFILES (WHENUNFILED) +\FM.3STATE-DOWNFN (FM.USERDATA LEFT BOTTOM) ICONPOSITION.FROM.WINDOW (SCREEN LEFT SCWIDTH PRIGHT WIDTH + BOTTOM SCHEIGHT PTOP HEIGHT) BSPBOUT (BSPOUTPUTSTREAM) FB.ADJUST.DATE.WIDTH (BROWSERFONT INFOFORMAT +TABLEBROWSER FILEINFO TIDATA) \RTP.HANDLE.RFC (PUPCONTENTS NET PUPSOURCENET RTPSTATE PUPDESTHOST +NETHOST FRNPORT SOCKETHI FRNSOCKETHI SOCKETLO FRNSOCKETLO PUPSOC) \SOFTCURSORUP (CUIMAGE CUMASK +BITMAPWIDTH BITMAPHEIGHT BITMAPBITSPERPIXEL BITMAPBASE BITMAPRASTERWIDTH) \BLTSHADE.IP ( +IPVISIBLEREGION IMAGEDATA) OPT.JUMPCOPYTEST (OPNAME OPARG PREV) MENUWMINSIZEFN (MENUBORDERSIZE +MENUOUTLINESIZE MENUCOLUMNS TITLE MENUROWS) FILES? (TOBEDUMPED FILEPROP) \SOFTCURSORUPCURRENT ( +CUBITSPERPIXEL BITMAPRASTERWIDTH BITMAPBASE) RELEASE.MONITORLOCK (MLOCKOWNER PROCOWNEDLOCKS MLOCKLINK +MLOCKQUEUETAIL PROCEVENTLINK) SEDIT::CHANGE-PRINTBASE (SEDIT::OPEN-NODE-CHANGED? SEDIT::DISPLAY-WINDOW + SEDIT::PROFILE) OPT.PRATTACH (NXT) OPENPRSTREAM (IMAGEOPS) HPRINT.IMAGEOBJ (GETFN IMAGEOBJFNS PUTFN) +SEDIT::CHANGE-PACKAGE (SEDIT::OPEN-NODE-CHANGED? SEDIT::DISPLAY-WINDOW SEDIT::PROFILE) +SI::MONITOR-UNWIND (MLOCKOWNER PROCOWNEDLOCKS MLOCKLINK MLOCKQUEUETAIL PROCEVENTLINK) +\FM.3STATE-SETUPOFFBITMAP (FM.USERDATA LEFT BOTTOM WIDTH HEIGHT FM.HIGHLIGHT) PUPSOCKETNUMBER ( +PSOCKET#) \SEND.ACK (%#UNREADPUPS RCVBYTEID PUPCONTENTS PUPSOC) SEDIT::CONFLICTING-SELECTION? ( +SEDIT::SELECTION) FB.HEADINGW.DISPLAY (RIGHT INFOSTART FBDISPLAYEDDEPTH LEFT INFODISPLAYED INFOFORMAT +INFOLABEL INFOWIDTH) PRINTCURSOR (CUIMAGE CUMASK) FILES?1 (DESCRIPTION CHANGED) \CHARWIDTH.IP ( +IPSPACEWIDTH IMAGEDATA WIDTHS FONTCHARSETVECTOR IPFONT) \GENERATEFILES (GENERATEFILES) \LFVersions ( +CHARLIST VERSION GETFILEPTR DEVICE DIRHOLEPTR) FASL::FAT-STRING-P (TYP) TTYINBUFFERBACKPTR ( +TTYORIGINPUT TTYINPUT) \RTP.FILTER (PUPDESTHOST FRNNET PUPDESTNET PUPSOURCE FRNPORT PUPSOURCESOCKETHI +FRNSOCKETHI PUPSOURCESOCKETLO FRNSOCKETLO PUPIDHI CONNID PUPIDLO) \FTP.REGISTER (FULLFILENAME) +\MONITORLOCK.DEFPRINT (MLOCKNAME) IRM.LOOKUP (WINDOW) FULLPRESSBITMAP (HEIGHT WIDTH IMAGEDATA LEFT +BOTTOM) CL:PROBE-FILE (FULLNAME) SCANBACK (START CPXREALCHAR) TTYINBUFFEREOFP (TTYINPUT TTYEOF) +PUPSOCKETFROMNUMBER (PSOCKETLO PSOCKETHI) \LEAF.IDLE (LEAFCACHEDFILE OPENFILELST SEQNAME +LEAFCONNECTION) \SPP.RELEASE.ACKED.PACKETS (SPPRETRANSMITQ SPPACKEDSEQNO SPPSEQNO) \GENERATENEXTFILE ( +NEXTFILEFN GENFILESTATE) \TFBRAVO.WRITE.RUN (RUNLOOKS CLUSERINFO RUNLENGTH) PPSOC.CURRENT (COFFSET +CBUFSIZE) DINFO.CREATE.GRAPH.WINDOW (WINDOW LEFT WIDTH BOTTOM HEIGHT) \FM.3STATE-SETUP (FM.MESSAGE +FM.SYSDOWNFN FM.SYSMOVEDFN FM.SYSSELECTEDFN FM.USERDATA) CL:READ-BYTE (EOFP DEVICE) +ONEDINSPECT.ADJUSTSELECTION (PROP) \GENERATEFILEINFO (FILEINFOFN GENFILESTATE) CL:VALUES (PC FNHEADER +CLINK) \RELEASE.ETHERPACKET (EPTRANSMITTING) TEDIT.FLASHCARET (TCFORCEUP TCCARETDS TCCARET TCCARETX +TCCARETY) TOPW.ADJUSTSELECTION (PROP) OPT.DELCODE (OPNAME OPARG FRAME NXT) \PROCESS.RELEASE.LOCKS ( +PROCOWNEDLOCKS) \SIMULATE.UNBIND (NEXTBLOCK FIRSTPVAR BINDMARKP BINDLASTPVAR BINDNVALUES) +CHAT.OPTIONMENU (ITEMS) \PFGetMarkerPage (subVolumes) \GETFILENAME (GETFILENAME) CL:VALUES-LIST (PC +FNHEADER CLINK) SEDIT::BACKSPACE (SEDIT::CARET-POINT SEDIT::POINT-NODE SEDIT::BACK-SPACE SEDIT::NODE-TYPE + SEDIT::POINT-INDEX SEDIT::POINT-STRING) CL:READ-LINE (EOFP DEVICE) \GENERIC.OUTFILEP (GETFILENAME) +\PUTONSCREENW (LEFT REG SCWIDTH SCREEN BOTTOM) FB.SETNEWPATTERN (BROWSERWINDOW) \MAKE.PROCESS1 (PROCFX + ALINK) SEDIT::PRINT-STRING (DSP OFFST BASE LENGTH FATSTRINGP IMAGEDATA) \TEDIT.LOOKS (SEL \WINDOW +LEFT TOP CH# TEXTLEN SET HEIGHT) \TEDIT.UNPARSE.CHARLOOKS.LIST (CLSTYLE CLUSERINFO CLINVERTED CLFONT +CLULINE CLSTRIKE CLOLINE CLPROTECTED CLSELHERE CLINVISIBLE CLOFFSET) PRINTPACKETQUEUE (SYSQUEUEHEAD +EPLINK) SEDIT::LINEARIZE-COMMENT (SEDIT::UNASSIGNED SEDIT::ENVIRONMENT SEDIT::COMMENT-STRING +SEDIT::SUB-NODES SEDIT::CURRENT-X SEDIT::INLINE-WIDTH SEDIT::RIGHT-MARGIN SEDIT::START-X) FB.STARTUP ( +ITEMS) \TEXTSETEOF (PAGE OFFSET) CL:READ-FROM-STRING (GETFILEPTR DEVICE) \PROCESS.MOVEFRAME (MiscFXP +DUMMYBF SIZE RESIDUAL USECNT BLINK VALIDNAMETABLE NAMETABHI NAMETABLO) \FTP.UNREGISTER (OPENP FULLNAME +) COURIER.WRITE.FAT.STRING (HIBYTE LOBYTE) TB.DO.ITEM.SELECTION (TB#ITEMS TBLASTSELECTEDITEM +TBFIRSTSELECTEDITEM TI# TIUNSELECTABLE TISELECTED) CL::VALUES-UFN (CLINK PC FNHEADER) +SEDIT::INSERT-COMMENT-CHARS (SEDIT::COMMENT-FONT SEDIT::ENVIRONMENT SEDIT::LINEAR-FORM SEDIT::INLINE-WIDTH + SEDIT::SUB-NODE-INDEX SEDIT::SUB-NODES SEDIT::DEPTH CL:STRUCTURE) SORT.NSADDRESSES.BY.DISTANCE (NSNET +) \LFCASEARRAYFETCH (BASE) CL::VALUES-LIST-UFN (CLINK PC FNHEADER) PRINTPACKET (EPTYPE) +\TEDIT.TEXTBIN.NEW.PAGE (REALFILE ACCESSBITS FULLNAME CBUFSIZE CPPTR COFFSET CPAGE CHARSLEFT +FATSTREAMP) PRINTPUPQUEUE (SYSQUEUEHEAD QLINK PUPID PUPLENGTH SYSQUEUETAIL) \OPENFILE (DEVICE OPENFILE + EPAGE EOFFSET REGISTERFILE) \TEDIT.ITALIC.CARET.OFF (CARETLOOKS) TB.DO.UNLESS.BUSY (TBREADY TBLOCK) +\LEAF.OPENERRORHANDLER (ERRORPUPCODE SEQNAME) \SPP.HANDLE.ATTN (SPPATTENTIONFN FIRSTSPPDATABYTE DSTYPE + SPPINPUTSTREAM) \UNQUEUE.TIMER (PROCTIMERLINK) \IOMODEP (ACCESS) MENUWRESHAPEFN (MENUOUTLINESIZE +WIDTH HEIGHT TITLE MENUCOLUMNS MENUROWS) \GETKEY (PROCTYPEAHEAD) \LEAF.OPENFILE (DEVICEINFO ACCESS +FULLFILENAME PFSOSTYPE EPAGE EOFFSET LEAFCONNECTION LEAFCACHEHITS %#SEQTIMEOUTS) \PROCESS.DEFPRINT ( +PROCNAME) \ENQUEUE.TIMER (PROCTIMERLINK PROCWAKEUPTIMER) TB.REDISPLAY.ITEMS (TBWINDOW TI# TB#ITEMS) +\TTYBACKGROUND (KEYBOARDSTREAM) CL:RENAME-FILE (FULLNAME) CHARSET (IMCHARSET IMAGEOPS) SEDIT::RELINEARIZE + (SEDIT::SUPER-NODE SEDIT::ACTUAL-WIDTH SEDIT::ACTUAL-LLENGTH SEDIT::LAST-LINE SEDIT::DISPLAY-WINDOW +LEFT BOTTOM RIGHT TOP SEDIT::RELINEARIZATION-TIME-STAMP SEDIT::FIRST-LINE SEDIT::YCOORD +SEDIT::WINDOW-BOTTOM SEDIT::START-X SEDIT::FIRST-BLOCK SEDIT::NEXT-LINE-Y SEDIT::WINDOW-TOP SEDIT::INDENT + SEDIT::MATCHING? SEDIT::CURRENT-X SEDIT::BLOCK-X SEDIT::BASE-LINE-Y SEDIT::LINE-ASCENT SEDIT::LINE-DESCENT + SEDIT::LINEAR-THREAD WIDTH HEIGHT SEDIT::RIGHT-MARGIN SEDIT::LINEAR-PREV SEDIT::SUB-NODE-INDEX +SEDIT::CURRENT-LINE SEDIT::NEXT-LINE SEDIT::LINEARIZE SEDIT::NODE-TYPE SEDIT::BELOW? SEDIT::SHIFT-DOWN + SEDIT::LINE-LENGTH) \GETSYSBUF (READ WRITE) \IMAGEUSERPROP (IMAGEOBJPLIST) SETFILEINFO (SETFILEINFO +DEVICE GETFILENAME) CALL.MOVENODEFN (GRAPH.MOVENODEFN) ICMLARRAY.GETMENUWGROUP (XCOORD YCOORD HEIGHT +WIDTH) LISTHARD (TYPE DEFAULTTYPE KNOWN) WAIT.FOR.TTY (PROCNAME) \RTP.CLEANUP (PUPSOC BSPWHENCLOSEDFN +BSPINPUTSTREAM) \TEDIT.MAINW (\WINDOW MENUFLG) WHO-LINE-VMEM (Key) \ADD.ROUTING.TABLE.ENTRY (RTNET#) +\WRITEPRESSBITMAP (WIDTH HEIGHT LEFT BOTTOM IMAGEDATA BITMAPRASTERWIDTH BITMAPHEIGHT ELSTREAM PRXPOS +PRYPOS HIBYTE LOBYTE BITMAPBASE) \STRINGWIDTH.IP (IPFONT IMAGEDATA IPSPACEWIDTH) \ONSCREENW (SCWIDTH +SCREEN LEFT) \NSYSBUFCHARS (READ WRITE) \RECLAIMCODEBLOCK (STARTPC) SEDIT::SCAN-FOR-BOUNDS ( +SEDIT::LINE-ASCENT SEDIT::LINE-DESCENT SEDIT::DESTINATION SEDIT::LINEAR-FORM SEDIT::WIDTH SEDIT::FONT +SEDIT::LINEAR-THREAD) \SAVESYSBUF (PROCTYPEAHEAD) \TEXTOUTCHARFN (TEXTLEN TEXTOBJ) OPT.SKIPPUSH ( +OPNAME PREV OPARG) \ASSIGNDATATYPE1 (DTDPTRS DTDSIZE WORDINPAGE DTDTYPEENTRY) SEDIT::INSERT-COMMENT ( +SEDIT::SELECT-START SEDIT::SELECT-END SEDIT::POINT-INDEX SEDIT::\Y SEDIT::\X) EDITMOVESUBTREE ( +GRAPHNODES) BESTNSADDRESS (NSNET RTHOPCOUNT) \TEDIT.ACTIVE.WINDOWP (EDITFINISHEDFLG) +COURIER.WRITE.SEQUENCE.UNSPECIFIED (HIBYTE LOBYTE FATSTRINGP) HARDCOPYW (SCREEN REGION WIDTH HEIGHT +BITMAPWIDTH BITMAPHEIGHT) \SYSBUFP (READ PROCTYPEAHEAD) \SFFixY.HCPYMODE (DDPILOTBBT DDFONT DDYOFFSET +OTHERDEVICEFONTPROPS BITMAPBASE DDDestination BITMAPRASTERWIDTH BITMAPHEIGHT DDClippingTop +CHARSETBITMAP DDClippingBottom) \LEAF.WRITEPAGES (REVALIDATEFLG PUPCONTENTS LEAFHANDLE EPAGE EOFFSET +LEAFCONNECTION) DINFO.GET.GRAPH.WINDOW (GRAPH.WINDOW) \ICONW.REPAINTFN (BITMAPWIDTH BITMAPHEIGHT) +\FM.TOGGLE-CHANGESTATE (FM.STATE FM.BITMAP FM.USERDATA FM.REGION) \PEEKSYSBUF (READ PROCTYPEAHEAD) +ADDTOFILES? (CHANGED DESCRIPTION WHENFILED) FB.SET.BROWSER.TITLE (FIXEDTITLE COUNTERWINDOW PATTERN) +PPSOC (LCLPORT LCLSOCKETHI LCLSOCKETLO RTPSTATE FRNPORT FRNSOCKETHI FRNSOCKETLO INACTIVITYTIMER +BSPINACTIVITYTIMEOUT CONNID RTPTIMER RTPTIMEOUT BSPTIMER BSPTIMEOUT RCVBYTEID RCVINTERRUPTID +BSPINPUTSTREAM BSPFILEPTR BSPCURRENTPUP MARKPENDING BSPINPUTQ %#UNREADPUPS XMITBYTEID LASTACKID +XMITINTERRUPTID %#UNACKEDPUPS %#UNACKEDBYTES BSPOUTPUTSTREAM BSPOUTPUTQ PUPALLOC BYTEALLOC BYTESPERPUP + MAXPUPALLOC PUPALLOCCOUNT LISTENING INTERRUPTOUT INTERRUPTIN ACKPENDING ACKREQUESTED SENTZEROALLOC +ADATATIMEOUT) COMP.DECLARE1 (VARS OPARG OPNAME) INSPECT.INVERTSELECTION (ELTLEFT ELTBOTTOM ELTWIDTH) +\DSPOPERATION.IP (IMAGEDATA IPOPERATION) \ENQUEUE (SYSQUEUEHEAD QLINK SYSQUEUETAIL) +ORDERFROMBOTTOMTOTOP (SCTOPW SCREEN NEXTW) \SETLOCALNSNUMBERS (NSHost0 NSHost1 NSHost2 NSHOST0 NSHOST1 + NSHOST2) \RENAMEFILE (RENAMEFILE) \HANDLE.RAW.10TO3 (EPNETWORK TRANSOPERATION NSHNM2 NSHNM1 NSHNM0 +TRANSNSADDRESS 3MBLENGTH TRANSSENDERNSADDRESS TRANSSENDERPUPHOST NDBPUPHOST# TRANSPUPHOST) +\ALLOCLOCKED (WORDINPAGE) \REVALIDATEFILE (REOPENFILE DEVICE FULLFILENAME ACCESS F1 F2 F3 F4 F5 FW6 +FW7 VALIDATION EPAGE EOFFSET) \RTP.HANDLE.PUP (PUPTYPE ERRORPUPCODE BSPOTHERPUPFN BSPINPUTSTREAM) +ICMLARRAY.GETREGIONFN (RIGHT TOP LEFT BOTTOM XCOORD YCOORD) \TEXTOPENF-SUBTREE (PCE PFILE ACCESSBITS +LO HI) \DRAWCURVE.PRESS (XCOORD YCOORD) MOVEATTACHEDWINDOWTOPLACE (TOP RIGHT BOTTOM LEFT HEIGHT WIDTH) + OPENPUPSOCKET (PSOCKETLO PSOCKETHI) \LEAF.READPAGES (EPAGE EOFFSET LEAFCACHECNT EPUSERFIELD SEQEVENT +LEAFCONNECTION FULLFILENAME LEAFOPCODE PUPCONTENTS LEAFLENGTH ACCESSBITS) DELETE.LONG.SEGMENT1 (ROW +NEXTLINE LASTCOL END) \RECLAIMARRAYBLOCK (PASSWORD INUSE GCTYPE TRAILER ARLEN) FB.DISPLAY.COUNTERS ( +COUNTERWINDOW TOTALFILES TOTALPAGES DELETEDFILES DELETEDPAGES SHOWUNDELETED? PAGECOUNT?) +\PROCESS.EVENTFN (PROCAFTEREXIT PROCNAME) TEDIT.REDO (SEL TXTREADONLY TXTHISTORY THACTION POINT CH# +CHLIM THAUXINFO THLEN THFIRSTPIECE) COMP.DECLARE (VARS OPNAME OPARG) TOPW.BUTTONEVENTFN (PROP) +\PAGED.REVALIDATEFILELST (OPENP UNREGISTERFILE) \BSP.SKIPBYTES (BSPERRORHANDLER BSPSOC CBUFSIZE +COFFSET) SEDIT::SPLIT-COMMENT (SEDIT::OPEN-NODE-CHANGED? CL:STRUCTURE SEDIT::SUPER-NODE +SEDIT::SUB-NODE-INDEX) PRINT10TO3 (TRANSOPERATION TRANSNSHOST TRANSSENDERNSHOST TRANSSENDERPUPHOST +TRANSPUPHOST) \CAR.UFN (CAR CDRCODE CARFIELD) \PRINT-REVALIDATION-RESULT (FULLNAME) CREATEHASHFILE ( +FULLNAME ByteStream) SEDIT::COMMENT-OUT-SELECTION (SEDIT::SELECTION SEDIT::CARET-POINT SEDIT::SELECT-NODE + SEDIT::SELECT-START SEDIT::SELECT-TYPE SEDIT::DISPLAY-WINDOW CL:STRUCTURE) \CHARWIDTH.HCPYMODE ( +DDCHARIMAGEWIDTHS IMAGEDATA) \CDR.UFN (CDR CDRCODE PAGEBASE CARFIELD) \LFDirectorySearch (DIRPTR +CHARLIST EOFP DEVICE) FORGETPAGES (BUFFS FILEPAGE# NOREFERENCE USERMAPPED CBUFPTR VMEMPAGE BUFFERNEXT) + \LFFindDirHole (CHARLIST DIRHOLEPTR EOFP DEVICE) \KEYBOARDEVENTFN (DEVCONFIG) NTYPX (PAGE#) +RESTOREMAP (BUFFS FILEPAGE# NOREFERENCE USERMAPPED CBUFPTR VMEMPAGE BUFFERNEXT) TWODINSPECT.REPAINTFN +(TOP BOTTOM LEFT RIGHT) \DELETECH (TXTREADONLY \INSERTFIRSTCH TEXTLEN PCTB \INSERTPCVALID +\INSERTNEXTCH \INSERTPC \INSERTLEN TXTHISTORY THLEN PREVPIECE PLEN NEXTPIECE POBJ \WINDOW PTREENODE) +GETBOXPOSITION.FROMINITIALREGION (WIDTH HEIGHT LEFT BOTTOM) \CHANGECHARSET.HCPYMODE (DDPILOTBBT +FONTCHARSETVECTOR DDFONT WIDTHS OFFSETS IMAGEWIDTHS CHARSETBITMAP BITMAPRASTERWIDTH CHARSETASCENT +CHARSETDESCENT DDCHARSETASCENT DDCHARSETDESCENT BITMAPBASE DDCHARHEIGHTDELTA) \LEAF.TRUNCATEFILE ( +PUPCONTENTS LEAFHANDLE LEAFCONNECTION) \PAGED.REVALIDATEFILE (REOPENFILE DEVICE FULLFILENAME ACCESS F1 + F2 F3 F4 F5 FW6 FW7 VALIDATION EPAGE EOFFSET) SEDIT::DEGRADE-COMMENT (CL:STRUCTURE SEDIT::UNASSIGNED) + \FM.TOGGLE-DOWNFN (FM.USERDATA LEFT BOTTOM) \KEYBOARD.MACHINE-SPECIFIC-KEYACTIONS (DEVCONFIG) +\UNWIND.UFN (NEXTBLOCK FIRSTPVAR BINDMARKP BINDLASTPVAR BINDNVALUES) PFI.PRINT.BITMAP (OUTCHARFN) +SEDIT::FIND-NTH-STRUCTURE (SEDIT::SUB-NODES SEDIT::ROOT) SEDIT::ADD-MENU (SEDIT::DISPLAY-WINDOW) +TEDIT.NEXT (SEL CH# CHLIM DCH) \CHECKAPPLY* (CCODEP DEFPOINTER ARGTYPE) \PAGED.REVALIDATEFILES (DEVICE + UNREGISTERFILE) ICMLARRAY (RIGHT TOP) MSINTERPA (TYPE REP) FB.CREATE.FILEBUCKET (PATTERNPARSED? +NAMESTART VERSIONLESSNAME NOSUBDIRECTORIES PAGECOUNT? SIZEINDEX SORTATTRIBUTE SORTINDEX SORTBYDATE) +TEDIT.UNDO (TXTREADONLY SEL TXTHISTORY THLEN THCH# THFIRSTPIECE THACTION) \TEDIT.GET.CHARLOOKS (PFATP +PLEN PFPOS) COURIER.WRITE.SEQUENCE (HIBYTE LOBYTE) \BUFFERED.REVALIDATEFILE (REOPENFILE DEVICE +FULLFILENAME ACCESS F1 F2 F3 F4 F5 FW6 FW7 VALIDATION EPAGE EOFFSET) OVERLAPPINGWINDOWS (SCTOPW SCREEN + NEXTW) \HTFIND (NOREFCNT PAGE# EMPTY LINKP HIBITS CNT STKCNT FREEPTR NEXTFREE NXTPTR CONTENTS LINKPTR +) \BUFFERED.REVALIDATEFILELST (OPENP UNREGISTERFILE) FILEPKGTYPE (DESCRIPTION) \SCALEDBITBLT.IP ( +IPVISIBLEREGION IMAGEDATA LEFT BOTTOM WIDTH HEIGHT) NUMBERPAD.READ (ITEMS) \TRUNCATEFILE (TRUNCATEFILE + DEVICE) DINFO.LOOKUP (WINDOW MONITORLOCK LOOKUPFN LOOKUP.STRING NAME) CLOSEW (CLOSEWFN SCREEN) +\BSP.PREPARE.OUTPUT (BSPLOCK BSPSOC BSPCURRENTPUP BSPIOTIMEOUT PUPALLOC BYTEALLOC IOTIMEOUTFN +BSPINPUTEVENT PUPCONTENTS BYTESPERPUP COFFSET CBUFMAXSIZE) ADDTOFILE (WHENFILED) \FILE-CONFLICT ( +FULLFILENAME OPENP ACCESS) MENU (IMAGE) SEDIT::SHOW-CARET (SEDIT::CARET-POINT) \TEDIT.ABBREV.EXPAND ( +TEXTOBJ SEL POINT CH# CHLIM DCH) \RPLACA.UFN (CDRCODE CARFIELD) GETDEFN (DEFPOINTER) +MOVE.TO.START.OF.WORD (END) \PFNewPages (size nextFilePage) \RPLACD.UFN (CDRCODE CARFIELD PAGEBASE +DBLWORD# CNT NEXTCELL NEXTFREE) NSNET.DISTANCE (NSNET RTHOPCOUNT) \PROCESS.MAKEFRAME0 (NEXTBLOCK SIZE +STKMIN DEFPOINTER) TEDIT.CREATEW (HEIGHT) SHOWREGION (LEFT BOTTOM WIDTH HEIGHT) REHASHFILE (File +ItemCopyFn ValueType) SEDIT::STRUCTURE-FROM-SELECTION (SEDIT::SELECT-NODE SEDIT::SELECT-START +SEDIT::SELECT-END SEDIT::SUB-NODES CL:STRUCTURE) \CONS.UFN (DTDCNTLOC DTDNEXTPAGE CNT NEXTCELL +NEXTFREE PAGEBASE NEXTPAGE) GROW/REGION (LEFT BOTTOM WIDTH HEIGHT) \LOOKUPPUPNUMBER (XIPLENGTH +PACKETEXCHANGEBODY PACKETEXCHANGEID PACKETEXCHANGETYPE PACKETEXCHANGEBODY0) ShowIntervals (key +volumePage nextKey) NEWDEFC (BASE) TWODINSPECT.BUTTONEVENTFN (ROWPROP COLUMNPROP) \NOTE.10TO3 ( +NDBTRANSLATIONS PUPHOST# NSHNM2 NSHNM1 NSHNM0) TEDIT.PARALOOKS (SEL CH# CHLIM TEXTLEN SET FORMATTEDP +PCTB TABSPEC PPARALOOKS PLEN PPARALAST NEXTPIECE PREVPIECE \WINDOW) TOLINKS (TONODES) \NOFILESINFOFN ( +NOFILENAME) \FM.TOGGLE-SETUP (FM.MESSAGE FM.SYSDOWNFN FM.SYSMOVEDFN FM.SYSSELECTEDFN FM.USERDATA) +FB.INSERT.FILE (TABLEBROWSER SORTBY TIDATA NOSUBDIRECTORIES TIUNSELECTABLE TI# FILENAME SUBDIREND) +\ENDPAGE.PRESS (ELSTREAM IMAGEDATA GETFILEPTR DEVICE HIBYTE LOBYTE) \NOFILESNEXTFILEFN (NOFILETYPE +NOFILEPATTERN) \FILINGHANDLE.DEFPRINT (NSHNAME NSHPATHNAME) TEDIT.SUBSTITUTE (PLEN SEL CH# DCH TEXTLEN + PLOOKS PCTB LINES OFFST BASE LENGTH FATSTRINGP CHLIM) \FINDKEY.UFN (BLINK IVAR) \VFMInsert1 (used +volumePage key) BREAK.PROCESS (PROCDELETED) \TEDIT.SHOWCARETLOOKS (CARETLOOKS CLFONT CLOFFSET CLOLINE +CLULINE) PPROC1 (PROCSYSTEMP PROCNAME PROCPRIORITY PROCSTATUS WAKEREASON PROCTIMERSET PROCWAKEUPTIMER +PROCEVENTORLOCK MLOCKNAME EVENTNAME) SETINTERRUPT (INTERRUPTLIST) OPT.DELETEFRAMECHECK (PREV NXT) +GRAPHADDLINK (GRAPH.ADDLINKFN FROMNODES NODEID TONODES) \DSPYPOSITION.IP (IPYPOS IPDATA) \BIN ( +STRMBINFN) GETWINDOWPROP (GETWINDOWPROPFN SCREEN) TB.ITEM.FROM.YCOORD (TBORIGIN TBITEMHEIGHT TB#ITEMS) + MSINTERPRETSET (REP TYPE ID PRED NEGATED HTABLES INVERTED OSET HTABLE BADMARKS QUOTED DEFAULTTYPE +SET2 SET1 EXPRESSION FNS FILES TYPES RECS MSVERB OTHERSET ROOT C VPART TENSE VB1 VB2 MODIFIER DET +KNOWN MSPATHOPTIONS) \BOUT (STRMBOUTFN) \CHECK.PQUEUE (PROCQUEUE PQLAST PQNEXT NEXTPROCHANDLE) +\PRESSCURVE2 (IMAGEDATA ELSTREAM ELSTARTBYTE SPLINEX SPLINEY SPLINEDX SPLINEDY SPLINEDDX SPLINEDDY +SPLINEDDDX SPLINEDDDY %#KNOTS) \KEYACTION1 (FLAGS CODES SHIFTCODES ALTGRAPHCODES DEADKEYLIST) +\LEAF.GETFILENAME (DEVICEINFO PFSLEAFSEQUIN LEAFCACHEDFILE FULLFILENAME) PPROC (PQNEXT NEXTPROCHANDLE +PQLOWER PROCTIMERLINK) GRAPHBUTTONEVENTFN (GRAPHNODES) \RESTLIST.UFN (BLINK IVAR) FULLNAME (FULLNAME) +GETINTERRUPT (INTERRUPTLIST) \MISCN.UFN (IVAR MISCN-MVS) SCROLLBYREPAINTFN (LEFT BOTTOM WIDTH HEIGHT +SCREGION SCREEN IMAGEDATA PRIGHT PTOP) \TRANSLATE.10TO3 (NDBTRANSLATIONS NSHNM2 NSHNM1 NSHNM0 +NDBPUPHOST#) SEDIT::CREATE-NEW-COMMENT (SEDIT::COMMENT-WIDTH) \RPLCONS (PAGEBASE CNT CDRCODE NEXTCELL +NEXTFREE DTDCNTLOC DBLWORD#) \CANONICALIZE.NSADDRESS (NSHNM2 NSHNM1 NSHNM0) \FIXDLINES (TXTREADONLY +\WINDOW NEXTLINE CHARLIM CHAR1 CHARTOP CR\END PREVLINE SEL SHIFTEDSEL MOVESEL DELETESEL) DINFO.FIND ( +WINDOW MONITORLOCK FIND.STRING) MSNEXTWORD (SOUGHT ROOT ITEM MODIFIER) WHICHW (XCOORD YCOORD SCTOPW +REG NEXTW) COURIER.WRITE.STRING (FATSTRINGP HIBYTE LOBYTE BASE OFFST) GETFILEINFO (ACCESS GETFILEINFO +DEVICE ACCESSBITS BYTESIZE EOLCONVENTION MAXBUFFERS ENDOFSTREAMOP GETFILENAME) \RTP.SOCKET.PROCESS ( +BSPLOCK BSPINPUTHANDLER) \ENVCALL.UFN (MISCSTACKRESULT) \FILE.NOT.OPEN (FULLNAME) CL:TYPE-OF (DTDNAME) + \EP.PUT.AUX (EPPLIST) \TYPECHECK.UFN (DTDNAME DTDSUPERTYPE) \FILE.WONT.OPEN (FULLNAME) SEDIT::MAP-FONT + (SEDIT::DEFAULT-FONT SEDIT::KEYWORD-FONT SEDIT::ITALIC-FONT SEDIT::COMMENT-FONT SEDIT::BROKEN-ATOM-FONT +) ICONW.PRINT-JUSTIFIED (LEFT HEIGHT WIDTH BOTTOM TOP) \STKSCAN (ALINK INVALIDP VCELL NAMETABLE NTSIZE + OVERHEADWORDS BYTESWAPPED IVAR BLINK FIRSTPVAR BOUND LOOKEDUP BINDINGPTR) PUTDEFN (DEFINITIONCELL +ALIGNED ARGTYPE NTSIZE WORDINPAGE STARTPC) DSPFILL (LEFT BOTTOM WIDTH HEIGHT) \LFFileName (CHARLIST +VERSION) SETHASHSTATUS (Stream File) MSNEGATESET (REP) \IS.NOT.RANDACCESSP (FULLNAME) +\PROCESS.MAKEFRAME (PROCFX StackBase MISCSTACKRESULT PROCSTATUS) OPT.FRAMEVAR (VARS NNILS NVALS OPNAME + PREV OPARG) TB.ITEM.VISIBLE? (TBWINDOW PTOP BOTTOM TBITEMHEIGHT) \READBINARYBITMAP (BITMAPBASE +BITMAPRASTERWIDTH) \LFMakeDirHole (size FILEDESC) \UNBOXFLOAT3 (NEXTBLOCK) CL::%%STATS-OBJECT-DIFFERENCE + (SWAPWAITTIME GCTIME DISKIOTIME PAGEFAULTS SWAPWRITES DISKOPS) RESETKEYACTION (FLAGS CODES SHIFTCODES + ARMED INTERRUPTLIST) COMP.COND (OPARG) \TYPEMASK.UFN (PAGE#) RESHAPEBYREPAINTFN (WIDTH HEIGHT LEFT +BOTTOM PRIGHT RIGHT PTOP TOP) TOPWP (SCTOPW SCREEN) FIND.PROCESS (PROCDELETED) CONTROL-T (DISKIOTIME +NETIOTIME GCTIME SWAPWAITTIME) TWODINSPECT.COPYBUTTONFN (ELTLEFT ELTBOTTOM ELTWIDTH ROWPROP COLUMNPROP +) DINFO.ADD.FMENU (WINDOW FMENU.WINDOW) \SELECTPROCESS (PROCNAME PROCSYSTEMP) MB.NWAYBUTTON.SELFN ( +\TEXTOBJ) SEDIT::COPY-STRUCTURE-COMMENT (CL:STRUCTURE) EQL (LOWORD HIWORD) \HANDLE.NS.ROUTING.INFO ( +XIPFIRSTDATAWORD EPNETWORK XIPLENGTH XIPCONTENTS NETTYPE %#HOPS NET#LO NET#HI RTNET# LONUM HINUM NET# +RTHOPCOUNT RTNDB RTGATEWAY# RTRECENT RTTIMER) \PRINDATUM (COMMONLISP) \TEDIT.DELETE (CH# CHLIM LINES +\WINDOW TEXTLEN DCH TXTREADONLY SET L1 LN TXTHISTORY POINT DELETED PREVLINE NEXTLINE CHAR1 CHARLIM SEL +) CL:TRUENAME (NAMEDP) \DRAWLINE.UFN (BITS) DINFO.INVERT.NODE (GRAPHNODES NODEID LAST.INVERTED.NODE) +PROCESS.STATUS.WINDOW (PROCNAME IMAGEHEIGHT IMAGEWIDTH LEFT BOTTOM XCOORD YCOORD) DINFO.DEFAULT.MENU ( +WINDOW DINFO.MENU) FETCHFIELD (fdTypeName fdOffset fdType) \STORE.N.UFN (NEXTBLOCK) \DOHELPINTERRUPT1 +(PROCNAME) \WRITEBITMAP (BITMAPBASE BITMAPRASTERWIDTH BITMAPHEIGHT) \COPY.N.UFN (NEXTBLOCK) +OPT.FRAMEDEL (FRAMETYPE VARS LEVEL OPNAME OPARG NOXVAR PARENT NNILS NVALS PREV FRAME NXT EXTCALL) +SHADEITEM (ITEMS WIDTH) \FM.MOMENTARY-SETUP (FM.MESSAGE FM.SYSDOWNFN FM.SYSMOVEDFN FM.SYSSELECTEDFN) +GETDESCRIPTORS (DTDDESCRS) \LFMakeLeaderPage (fileID size) REPLACEHASHKEY (Stream ByteStream) \RETURN +(CLINK) \PFTransferPage (MISCSTACKRESULT STATUS) \CURVE2 (IMAGEDATA SPLINEX SPLINEY DDClippingBottom +DDClippingTop DDClippingRight DDClippingLeft DDDestination DDOPERATION BITMAPBITSPERPIXEL BITMAPBASE +BITMAPRASTERWIDTH BITMAPHEIGHT BITMAPWIDTH DDXOFFSET DDYOFFSET %#KNOTS SPLINEDX SPLINEDY SPLINEDDX +SPLINEDDY SPLINEDDDX SPLINEDDDY) \ARG0 (BLINK NARGS IVAR) OPT.CLEANFRAME (EXTCALL PARENT) +CHECK/MENU/IMAGE (IMAGE SCREEN DSP WBORDER SAVE) GETDEF (NULLDEF) \LFMakeDirEntry (CHARLIST fileID +FILEDESC HIBYTE LOBYTE VERSION) \MYARGCOUNT (NARGS BLINK) ADDMENU (IMAGEWIDTH IMAGEHEIGHT MENUPOSITION + MENUGRID XCOORD MENUOUTLINESIZE YCOORD WHENSELECTEDFN) ERROR! (FRAMENAME CLINK ALINK INVALIDP) +\FILINGSESSION.DEFPRINT (DSP FSNAMESTRING) TEDIT.INSERT (SEL TEXTOBJ SET TEXTLEN \WINDOW POINT CH# +CHLIM X0 XLIM OFFST BASE LENGTH FATSTRINGP TXTREADONLY) SEDIT::SUBSTITUTE-OBJ (SEDIT::OPEN-NODE-CHANGED? + SEDIT::DISPLAY-WINDOW SEDIT::SELECTION) \TEXTCLOSEF-SUBTREE (PCE PFILE LO HI) \NSFILING.GETFILE ( +NSRANDOMDEVICE DEVICEINFO NSDIRECTORIES NSDIRECTORYP NSVERSION NSROOTNAME NSHDIRECTORYP NSHATTRIBUTES +NSHACCESS NSHDATUM NSHBUSYCOUNT FSSESSIONLOCK) \FTP.CLEANUP (FTPBUSY FTPIN) PRIN3 (COMMONLISP) +\PARAS.IN.SEL (CH# DCH PPARALAST PLEN) SHIFT.BITMAP.UP (BITMAPWIDTH BITMAPHEIGHT) GETBOXPOSITION ( +POSITION) DEFINEFONT.IP (IPDATA IPPAGEFONTS) UPDATEFILES (CHANGED DATEFILENAME FILEDATES COMSNAME +FILEPROP TOBEDUMPED) \CLOSEF.PRESS (IMAGEDATA PDSTREAM PRESSFONTDIR DESCR HIBYTE LOBYTE FONTSET# FONT# + ROTATION PRPARTSTART PRDOCNAME) \PRINT-USING-ADDRESS (COMMONLISP CHARPOSITION HASHMACROCHAR) +RIGHTW.ADJUSTSELECTION (PROP) \PROCESS.GO.TO.SLEEP (EVENTWAKEUPPENDING PROCQUEUE PQLAST PQNEXT +NEXTPROCHANDLE PROCTIMERBOX PROCFX INVALIDP WAKEREASON PQLOWER) HEIGHTIFWINDOW (SCTITLEDS) SPAWN.MOUSE + (PROCNAME) DINFO.LAYOUTGRAPH (WINDOW MENUFONT NODELST CHILDREN LABEL PARENT ID) +TEDIT.RESET.EXTEND.PENDING.DELETE (\TEXTOBJ) \MAIKO.10MBTURNONETHER (NDBCSB) CURRENTINTERRUPTS ( +INTERRUPTLIST) BSPINPUTSTREAM (BSPSOC BSPINPUTSTREAM) DO.INSERT.LINE (ROW TOP) PRINT-BITMAPS-NICELY ( +BITMAPBASE) PUTDEF (PUTDEF) RESET.INTERRUPTS (INTERRUPTLIST) DINFO.SHOWGRAPH (LEFT BOTTOM HEIGHT WIDTH +) \FM.INSUREVISIBLE (LEFT WIDTH) SETBSPUSERINFO (BSPSOC) \PRINTBINARYBITMAP (HIBYTE LOBYTE BITMAPBASE +BITMAPRASTERWIDTH) \DRAWPOLYGON.IP (IMAGEDATA IPVISLEFT IPVISRIGHT IPVISBOTTOM IPVISTOP XCOORD YCOORD) + FB.CANONICAL.DIRECTORY (PROMPTWINDOW) RIGHTW.BUTTONEVENTFN (PROP) FIND.PACKAGE (LASTINDEX HARRAYPBASE + VALUE KEY) \PSWOP.SELECTED (PROCNAME PROCINFOHOOK PROCSYSTEMP PROCDELETED) \FM.CLEARITEM (FM.USERDATA + LEFT BOTTOM HEIGHT) INSERTHASHKEY (%#Entries Size Stream ByteStream) \GCRECLAIMCELL (CDRCODE CARFIELD + PAGEBASE DTDPTRS DTDFREE LINKFIELD OFFSETCODE) \GCSCAN1 (EMPTY LINKP STKCNT) \GETWINDOWHEIGHT (HEIGHT + REG WBORDER WTITLE SCTITLEDS SCREEN) \TEDIT.CENTER.SEL.REV (CH# DCH) FB.MAKE.BROWSER.BUSY (FBLOCK) +SEDIT::TRY-REUSING-BITS (SEDIT::BLOCK-X SEDIT::WINDOW-LEFT SEDIT::BLOCK-START SEDIT::NEXT-BLOCK +SEDIT::BLOCK-ASCENT SEDIT::BLOCK-DESCENT SEDIT::BLOCK-WIDTH SEDIT::BLOCK-NEW-X SEDIT::SHIFT-Y +SEDIT::BLOCK-BASE-LINE SEDIT::BASE-LINE-Y SEDIT::CURRENT-LINE SEDIT::SHIFT-RIGHT SEDIT::REPAINT-X +SEDIT::SHIFT-DOWN) \GETWINDOWWIDTH (WIDTH REG WBORDER) PROCESS.NAME (PROCDELETED PROCNAME) PRESSBITMAP + (HEIGHT WIDTH IMAGEDATA LEFT BOTTOM) CREATE.NEW.NODEPOSITION (NODEPOSITION XCOORD YCOORD) \RETCALL ( +MISCSTACKRESULT) TB.RESHAPEFN (TBLOCK TBREADY TBITEMHEIGHT) %%AREF1 (TOTAL-SIZE BASE TYPE-NUMBER) +\MAIKO.ETHER-INTERRUPT (DLFIRSTICB NDBCSB 10MBTYPE) SEDIT::COPY-SELECTION-COMMENT (SEDIT::SELECT-NODE +CL:STRUCTURE SEDIT::SELECT-START SEDIT::SELECT-END SEDIT::DISPLAY-WINDOW SEDIT::ENVIRONMENT +SEDIT::NODE-TYPE SEDIT::POINT-TYPE) %%ASET1 (TOTAL-SIZE TYPE-NUMBER BASE) MSONPATH (FROM MSPATHOPTIONS + TO AVOIDING NOTRACE TOPFLG) \FDEVINSTANCE (CLOSEFILE DEVICEINFO DEVICE GETFILEINFO OPENFILE READPAGES + SETFILEINFO TRUNCATEFILE WRITEPAGES REOPENFILE BIN BOUT PEEKBIN BACKFILEPTR SETFILEPTR GETFILEPTR +GETEOFPTR EOFP BLOCKIN BLOCKOUT FORCEOUTPUT) OPENWP (NEXTW) OPT.FRAMELOCAL (VARS OPNAME OPARG) +\POP.N.UFN (NEXTBLOCK) COERCETOBITMAP (WIDTH HEIGHT LEFT BOTTOM) NCREATE2 (DTDSIZE DTDPTRS) +CL::%%EQCODEP (FNHEADER DEFPOINTER) \FTP.RENAMEFILE (OPENP FTPIN FTPOUT) TRANSGRAPH (GRAPHNODES XCOORD + NODEPOSITION YCOORD) \GETBASEBYTE (HIBYTE LOBYTE) FW-WIPE (OFDWINDOW) \LEAF.REOPENFILE ( +LFCREATIONDATE LEAFINFO LFWRITEDATE VALIDATION) \NSFILING.GENERATEFILES (FSPROTOCOLNAME NSDIRECTORIES +NSROOTNAME NSVERSION NSHDATUM) \VFMGet1 (key volumePage) \HANDLE.RAW.3TO10 (EPNETWORK TRANSOPERATION +TRANSPUPHOST NDBPUPHOST# 10MBLENGTH TRANSSENDERPUPHOST) HEADINGOP.IP (IPDATA IPLEFT IPTOP +IPHEADINGFONT) UNMARKASCHANGED (CHANGED TOBEDUMPED FILEPROP) \MAKEPCTB (PLEN) \LEAF.EVENTFN ( +DEVICEINFO PFSLEAFSEQUIN OPENP PFSLOOKUPFILESOCKET) VECTOR-LENGTH (FILL-POINTER) SHIFT.BITMAP.DOWN ( +BITMAPWIDTH BITMAPHEIGHT) OPENRTPSOCKET (BSPLOCK RTPSTATE RTPEVENT BSPFAILUREREASON) PRINTROUTINGTABLE + (RTHOPCOUNT RTNET# RTGATEWAY# RTRECENT RTTIMER) FB.FINISH.COMMAND (ABORTWINDOW ITEMS) DIRECTORYNAME ( +DIRECTORYNAMEP DEVICENAME) SEDIT::SHIFT-BLOCK (SEDIT::CURRENT-LINE SEDIT::NEXT-LINE-Y SEDIT::REPAINT-START + SEDIT::REPAINT-LINE SEDIT::DISPLAY-WINDOW SEDIT::WINDOW-LEFT SEDIT::YCOORD SEDIT::WINDOW-RIGHT +SEDIT::LINE-HEIGHT SEDIT::REPAINT-X SEDIT::BASE-LINE-Y) \BITBLT.IP (IPVISIBLEREGION IMAGEDATA LEFT +BOTTOM WIDTH HEIGHT) OPT.MERGEFRAMEP (FRAMETYPE OPARG VARS) SEDIT::COMPUTE-POINT-POSITION-COMMENT ( +SEDIT::POINT-NODE SEDIT::POINT-INDEX SEDIT::\Y SEDIT::START-X SEDIT::WIDTH SEDIT::LINEAR-FORM +SEDIT::FIRST-LINE SEDIT::\X) SPYOBJ.DISPLAY (OBJECTDATUM) XIPAPPEND.STRING (XIPLENGTH XIPCONTENTS) +PROCESS.BACKTRACE (LEFT BOTTOM TOP WIDTH PROCFX) \TEDIT.COPY.PIECEMAPFN (POBJ STREAMHINT \WINDOW +CLPROTECTED PLOOKS) \TEDIT.FOREIGN.COPY? (\TEXTOBJ DCH CH# TEXTLEN EDITOPACTIVE STREAMHINT) +UNMAKEHARDCOPYMODESTREAM (WIDTH) \ADDBASE (HINUM LONUM) \UPDATE.PROCESS.WINDOW (PROCNAME) +MSMATCHRATING (SOUGHT ITEM TYPE REP) LEAF.ASSURE.FINISHED (LEAFCONNECTION SEQLOCK SYSQUEUEHEAD +SEQDONEQ EPUSERFIELD EPLINK SEQRETRANSMITQ SEQEVENT LEAFERRORCNT FULLFILENAME) FB.EXPUNGECOMMAND ( +TABLEBROWSER) SEDIT::UNDO (SEDIT::OPEN-NODE-CHANGED? SEDIT::UNDO-LIST SEDIT::DISPLAY-WINDOW +SEDIT::UNDO-UNDO-LIST SEDIT::SELECTION SEDIT::CARET-POINT) CL::%%PRINT-TIMING-INFO (SWAPWAITTIME +GCTIME DISKIOTIME NETIOTIME PAGEFAULTS SWAPWRITES DISKOPS) \UNQUEUE (SYSQUEUEHEAD QLINK) +SEDIT::COPY-STRUCTURE-COMMENT-WORD (CL:STRUCTURE SEDIT::LINEAR-FORM) SEDIT::REUSE-LINEAR-FORM ( +SEDIT::CURRENT-X SEDIT::CURRENT-LINE SEDIT::START-X SEDIT::LINEARIZE SEDIT::NODE-TYPE SEDIT::INLINE? +SEDIT::LINEAR-FORM SEDIT::NEXT-LINE SEDIT::INDENT SEDIT::FIRST-BLOCK SEDIT::NEXT-LINE-Y SEDIT::YCOORD +SEDIT::BELOW? SEDIT::LINE-ASCENT SEDIT::LINE-DESCENT SEDIT::BASE-LINE-Y SEDIT::LINE-LENGTH +SEDIT::LINEAR-THREAD) CREATETEXTUREFROMBITMAP (BITMAPHEIGHT BITMAPWIDTH) SEDIT::SELECT-NODE ( +SEDIT::SELECTION) LOOKUP-SYMBOL (TOTAL-SIZE BASE) \NSFILING.CLOSE.HANDLE (NSHDATUM) DINFO.WRITE.GRAPH +(TOPNODEID TEXTPROPS LOOKUPFN MENUFN FREEMENUITEMS NODELST USERDATA) FB.REMOVE.FILE (TI# +TIUNSELECTABLE SUBDIREND TIDATA FILENAME) MARKASCHANGED (WHENCHANGED CHANGED) \CHARWIDTH.PRESS ( +PRSPACEWIDTH IMAGEDATA WIDTHS FONTCHARSETVECTOR PRFONT) DSPSCROLL (IMAGEDATA DDScroll) +RESHAPEALLWINDOWS (WIDTH HEIGHT ATNOWX ATNOWY ATTACHEDW ATXSIZE ATYSIZE ATEDGE LEFT BOTTOM) +\SLOWIPLUS2 (HINUM LONUM) DINFO.HISTORIC.UPDATE (NODELST MONITORLOCK) GETPROMPTWINDOW (WIDTH) +\BSP.PREPARE.INPUT (BSPLOCK BSPSOC BSPCURRENTPUP BSPIOTIMEOUT %#UNREADPUPS IOTIMEOUTFN BSPINPUTEVENT +BSPINPUTQ PUPTYPE PUPCONTENTS PUPLENGTH COFFSET CBUFSIZE MARKPENDING) DISPLAYLINK (SIDESFLG +DIRECTEDFLG) \SLOWIDIFFERENCE (HINUM LONUM) SHIFT.BITMAP.LEFT (BITMAPWIDTH BITMAPHEIGHT) +\LEAF.RENAMEFILE (DEVICENAME) SHIFTDOWNP (LOCK META 1SHIFT 2SHIFT CTRL FONT USERMODE1 USERMODE2 +USERMODE3) MB.NB.SIZEFN (XSIZE YSIZE) \SLOWITIMES2 (HINUM LONUM) OLD.FIND.SYMBOL (PNAMELENGTH +PNAMEBASE PNAMEFATPADDINGBYTE FATPNAMEP) SEDIT::COMPUTE-SELECTION-POSITION-COMMENT (SEDIT::SELECT-NODE + SEDIT::SELECT-START SEDIT::SELECT-END SEDIT::\Y SEDIT::\T SEDIT::FIRST-LINE SEDIT::START-X +SEDIT::LINEAR-FORM SEDIT::\X SEDIT::\Z) \SLOWIQUOTIENT (HINUM LONUM) MSSIMPLESET (ID QUOTED) +DIRECTORYNAMEP (DIRECTORYNAMEP) TEDIT.DELETE (SEL) EDITDEF (EDITDEF) FB.MAYBE.EXPUNGE (DELETEDFILES) +IREMAINDER (HINUM LONUM) SYMBOL.PACKAGE (PACKAGEINDEX BASE) HOSTNAMEP (HOSTNAMEP) +\TEDIT.MARK.LINES.DIRTY (TEXTLEN \WINDOW CHAR1 CHARTOP NEXTLINE) FB.INCREASING.VERSION (VERSION TIDATA +) \LFGenFileID (lastIDAllocated) SEDIT::CLOSE-NODE-COMMENT (CL:STRUCTURE) SHIFT.BITMAP.RIGHT ( +BITMAPWIDTH BITMAPHEIGHT) XIPAPPEND.WORD (XIPLENGTH XIPCONTENTS) FW-RESET (OFDSTATUS) \FIRSTNODE ( +COUNT) \LEAF.DIRECTORYNAMEP (PFSKNOWNDIRS DEVICEINFO PFSOSTYPE) OPT.NONILVAR (OPNAME OPARG) \SLOWLLSH1 + (HINUM LONUM) BMOBJ.DISPLAYFN (BMOBJSCALEFACTOR BITMAP BMOBJDESCENT) SUBATOM (PNAMEBASE FATPNAMEP +PNAMELENGTH BASE FATSTRINGP OFFST LENGTH) \FM.CHANGELABEL (LEFT BOTTOM FM.LABEL FM.REGION FM.MAXREGION + FM.BITMAP FM.HIGHLIGHT FM.USERDATA) \LEAF.FLUSH.CACHE (LEAFOPENCLOSELOCK LEAFCACHEDFILE +LEAFREALLYOPEN SEQNAME) SEDIT::NORMALIZE-SELECTION (SEDIT::SELECTION SEDIT::DISPLAY-WINDOW +SEDIT::SELECT-START-LINE) \SLOWLLSH8 (HINUM LONUM) \SPP.HANDLE.INPUT (SPPTERMINATEDP SPPMYNSOCKET +SPPSEQNO SPPACKEDSEQNO SPPRETRANSMITTING XIPTYPE ERRORXIPCODE SPPOTHERXIPHANDLER XIPCONTENTS +SPPESTABLISHEDP SOURCECONID SPPDESTID DESTCONID SPPSOURCEID SEQNO SPPACKNO SPPACCEPTNO SPPSERVERFLAG +ATTENTION SYSTEMPACKET XIPLENGTH ACKNO ALLOCNO SPPOUTPUTALLOCNO SPPALLOCATIONEVENT SENDACK +SPPACKREQUESTED SPPROUNDTRIPTIME SPPACKREQTIME) CHCON1 (LENGTH FATSTRINGP BASE OFFST PNAMELENGTH +FATPNAMEP PNAMEBASE) \SLOWLRSH1 (HINUM LONUM) UNPACKFILENAME.STRING (FULLFILENAME FATSTRINGP BASE) +MENUWINDOW (MENUROWS MENUCOLUMNS MENUOUTLINESIZE IMAGEWIDTH IMAGEHEIGHT) \FINDPIECE (CHNUM) \SLOWLRSH8 + (HINUM LONUM) BURYW (BURYWFN SCREEN) DECODE-NS-STRING (BASE OFFST) GETBSPUSERINFO (BSPUSERSTATE +BSPSOC) OPT.FRAMEMERGE (VARS PARENT NVALS PREV NNILS) \SLOWLOGOR2 (HINUM LONUM) SHRINKW (SHRINKWFN +SCREEN) GETHASHKEY (Size Stream ByteStream) PUPNET.DISTANCE (RTHOPCOUNT) \ONQUEUE (SYSQUEUEHEAD QLINK) + ADD/AND/DISPLAY/LINK (NODEID) \SLOWLOGAND2 (HINUM LONUM) MOVEW (MOVEWFN SCREEN) +SEDIT::RECOMPUTE-FORMAT-VALUES (SEDIT::NODE-TYPE SEDIT::INLINE-WIDTH SEDIT::SUB-NODES +SEDIT::COMPUTE-FORMAT-VALUES SEDIT::ENVIRONMENT) FB.MAYBE.INSERT.FILE (PREPAREDPATTERN DIRECTORYSTART +PATTERN FILEINFO TIDATA INFODISPLAYED VERSION TISELECTED) \VFMGetInterval (vfmStart volumePage key) +\SLOWLOGXOR2 (HINUM LONUM) FW-RE-INIT (OFDSTREAM FULLNAME) \BINS (BLOCKIN DEVICE) \SMASHBSPSTREAM ( +BSPSOC BSPOUTPUTSTREAM BSPCURRENTPUP MARKPENDING CBUFSIZE CPPTR COFFSET ACCESS) \FM.HIGHLIGHTITEM ( +FM.USERDATA LEFT BOTTOM) \BSP.CLEANUP.INPUT (BSPCURRENTPUP BSPSOC BSPFILEPTRLO PUPLENGTH BSPFILEPTRHI +FW6 %#UNREADPUPS SENTZEROALLOC) \CURVESLOPE (XCOORD YCOORD SPLINEDX SPLINEDY) FIND.START.OF.WORD ( +NSCHARHASH STOPATOM CPXREALCHAR) \BOUTS (BLOCKOUT DEVICE) \PFFindFileSize (filePage volNum) +SEDIT::COMMENT-LENGTH (SEDIT::SUB-NODES CL:STRUCTURE) \MAIKO.INPUT.INTERRUPT (DLFIRSTICB NDBCSB +10MBTYPE) \VFMGet (vfmStart key nextKey) %%EXTEND-ARRAY (TYPE-NUMBER BASE) TB.WINDOW (TBWINDOW) +ONEDINSPECT.REPAINTFN (TOP BOTTOM) REMWINDOWPROP (USERDATA) SEDIT::GET-USER-STRING (SEDIT::DISPLAY-WINDOW +) \QUEUELENGTH (SYSQUEUEHEAD QLINK) \TEDIT.WINDOW.OPS (WRIGHT HEIGHT) SPYOBJ.LABEL (OBJECTDATUM +CACHEDLABEL) SAMECLOOKS (CLFONT CLOFFSET CLINVISIBLE CLSELHERE CLPROTECTED CLOLINE CLSTRIKE CLULINE) +COPYBYTES (BUFFERED DEVICE RANDOMACCESSP GETFILEPTR EOFP) SEDIT::PAINT-TO-END-OF-LINE (SEDIT::CURRENT-LINE + SEDIT::REPAINT-LINE SEDIT::REPAINT-X SEDIT::INDENT SEDIT::WINDOW-LEFT SEDIT::DISPLAY-WINDOW +SEDIT::NEXT-LINE-Y SEDIT::WINDOW-RIGHT SEDIT::LINE-HEIGHT SEDIT::BASE-LINE-Y SEDIT::REPAINT-START +SEDIT::YCOORD) SHOWSHADE.IP (LEFT BOTTOM WIDTH HEIGHT) \UNBOXFLOAT2 (NEXTBLOCK HIWORD LOWORD) +BMOBJ.IMAGEBOXFN (BMOBJSCALEFACTOR BITMAP BMOBJDESCENT) \GETEOFPTR (GETEOFPTR DEVICE) +CREATEMENUEDWINDOW (MENUROWS ITEMS IMAGEWIDTH IMAGEHEIGHT WIDTH HEIGHT BOTTOM LEFT) +MBUTTON.FIND.NEXT.FIELD (PCTB SCRATCHSEL TEXTLEN CLSELHERE PLOOKS PLEN NEXTPIECE CLPROTECTED) +UNSAVEFNS (FILEPKGNAME) \UNBOXFLOAT1 (NEXTBLOCK HIWORD LOWORD) \BUFFERED.COPYBYTES (DEVICE CBUFPTR +CBUFSIZE COFFSET GETNEXTBUFFER) FB.PRINTFN (TIDATA DIRECTORYP FILENAME OFFST BASE FATSTRINGP LENGTH +STARTOFPNAME INFOSTART FILEINFO INFODISPLAYED BROWSERFONT INFOFORMAT INFOWIDTH) %%AREF2 (BOUND0 BOUND1 + DIMS OFFSET BASE TYPE-NUMBER) \POPSTATE.IP (XPOS YPOS) RANDACCESSP (RANDOMACCESSP DEVICE FULLNAME) +CURSOR.INIT (BITMAPBASE BITMAPWIDTH BITMAPHEIGHT BITMAPRASTERWIDTH) %%ASET2 (BOUND0 BOUND1 DIMS OFFSET + TYPE-NUMBER BASE) \SETFILEPTR (SETFILEPTR DEVICE) \CHANGE-VISIBLE-REGION.IP (IPFONT LEFT RIGHT TOP +BOTTOM IPVISTOP \SFAscent IPCLIPINCLUSIVE IPVISBOTTOM \SFDescent IPXPOS IPVISLEFT IPYPOS +IPMINVISIBLEBASELINE IPMAXVISIBLEBASELINE IPVISRIGHT IPRIGHT) \LFDirectoryScrambled (LVlabel VOLUME) +\SLOWIGREATERP (HINUM LONUM) \GETSTREAM (KEYBOARDSTREAM DSP) \SLOWFGREATERP (HIWORD LOWORD HINUM LONUM + SIGNBIT LOFRACTION HIFRACTION EXPONENT) \DSPXPOSITION.PRESS (PRXPOS IMAGEDATA) COPYCHARS ( +EOLCONVENTION EXTERNALFORMAT RANDOMACCESSP DEVICE FULLFILENAME GETFILEPTR EOFP) \PUPNET.CLOSERP ( +PUPNET# RTHOPCOUNT) \RTP.HANDLE.INPUT (PUPSOC BSPLOCK RTPTIMEOUT RTPTIMER) \LEAF.BREAKCONNECTION ( +DEVICEINFO PFSLEAFSEQUIN OPENP UNREGISTERFILE) \INCHAR (EOLCONVENTION INCCODEFN) SPYOBJ.HEIGHT ( +OBJECTDATUM PERCENT) GETCURSORPROP (CUDATA) EQUAL (LONUM HINUM EDFXP) \SPP.RETRANSMIT.NEXT ( +SPPRETRANSMITTING SPPRETRANSMITQ SPPOUTPUTALLOCNO SPPSEQNO) PRETTYFILEINDEX (DEVICE) PUTCURSORPROP ( +CUDATA) \BOXIPLUS (HINUM LONUM) %%ALTER-AS-DISPLACED-ARRAY (READ-ONLY-P EXTENDABLE-P ADJUSTABLE-P +INDIRECT-P BASE) SEDIT::CFV-COMMENT (SEDIT::COMMENT-WIDTH SEDIT::UNASSIGNED) \BOXIDIFFERENCE (HINUM +LONUM) XIPAPPEND.BYTE (XIPLENGTH XIPCONTENTS) \TEDIT.REOPEN.STREAM (PCTB PFILE NEXTPIECE TXTFILE) +CLEAR.LEAF.CACHE (DEVICEINFO PFSLEAFSEQUIN LEAFCACHEDFILE) TEDIT.PROMPTPRINT (MENUFLG PROMPTWINDOW) +\HCPYMODEDSPPRINTCHAR (IMAGEDATA CCECHO NSCHARHASH CHARPOSITION DDXPOSITION DDLeftMargin DDRightMargin +) EXTENDABLE-ARRAY-P (EXTENDABLE-P) CL:ARRAY-DIMENSION (TOTAL-SIZE DIMS) SEDIT::UNDO-LIST-REPLACE ( +SEDIT::DEPTH SEDIT::CARET-POINT) \CREATEPIECEORSTREAM (FATSTRINGP ACCESSBITS) OPENSTREAM (FULLNAME +ACCESS) \MAIKO.10MBSENDPACKET (10MBMULTICASTP NSHNM2 NSHNM1 NSHNM0 10MBDESTNSADDRESSBASE 10MBLENGTH +10MBTYPE) ONEDINSPECT.BUTTONEVENTFN (PROP) CL:ADJUSTABLE-ARRAY-P (ADJUSTABLE-P) SEDIT::OUTPUT-STRING ( +SEDIT::RELINEARIZATION-TIME-STAMP SEDIT::LINEAR-POINTER STRING SEDIT::FONT SEDIT::PRIN-2? SEDIT::WIDTH + SEDIT::LINEAR-PREV SEDIT::LINE-ASCENT SEDIT::CURRENT-LINE SEDIT::LINE-DESCENT SEDIT::DISPLAY-WINDOW +SEDIT::DEFAULT-FONT SEDIT::ENVIRONMENT SEDIT::CURRENT-X) IDLE.BITMAP (WIDTH HEIGHT LEFT BOTTOM) +CL:FILL-POINTER (FILL-POINTER-P FILL-POINTER) CLOSEF (USERCLOSEABLE FULLNAME) \PFFindPageAddr ( +PAGEGROUP filePage nextFilePage volNum volumePage) BITSPERPIXEL (BITMAPBITSPERPIXEL SCDEPTH +SCBITSPERPIXEL SCREEN) DELETEHASHKEY (Stream ByteStream %#Entries) ARRAY-NEEDS-INDIRECTION-P ( +INDIRECT-P) TEDIT.SUBLOOKS (SEL PCTB TEXTLEN PLOOKS PLEN NEXTPIECE \WINDOW) SEDIT::UNDO-REPLACE-QUOTE +(SEDIT::SUB-NODES) FB.COPY/RENAME.MANY (DEFAULTDIR TIDATA FILENAME SUBDIREND SUBDIRECTORY PATTERN +NAMESTART SORTBY STARTOFNAME) \FM.DISPLAYITEM (FM.USERDATA LEFT BOTTOM) \FTP.PACK.DIRECTORYNAMEP ( +FTPHOST) XIPAPPEND.CELL (XIPLENGTH XIPCONTENTS) DIRFILENAME (LITERALNAME STRINGNAME) +SEDIT::VERIFY-STRUCTURE (SEDIT::ROOT CL:STRUCTURE SEDIT::SUB-NODES SEDIT::CONTEXT-LOCK +SEDIT::OPEN-NODE-CHANGED? SEDIT::CHANGED? SEDIT::SELECTION SEDIT::CARET-POINT SEDIT::DISPLAY-WINDOW +SEDIT::CHANGED-NODES) COMP.BOOL (OPNAME) ONEDINSPECT.COPYBUTTONFN (ELTLEFT ELTBOTTOM ELTWIDTH PROP) +\10MBSETUPRECEIVER (10MBPACKETBASE) FW-FORGET-CMD (OFDSTATUS FULLNAME OFDWINDOW) +CL:ARRAY-HAS-FILL-POINTER-P (FILL-POINTER-P) SEDIT::OUTPUT-SPACE (SEDIT::RELINEARIZATION-TIME-STAMP +SEDIT::LINEAR-POINTER SEDIT::LINEAR-PREV SEDIT::SPACE-WIDTH SEDIT::ENVIRONMENT SEDIT::DISPLAY-WINDOW +SEDIT::CURRENT-X) \TEDIT.CLOSEUPLINES (WRIGHT WLEFT YBOT WTOP LHEIGHT WBOTTOM DESCENT NEXTLINE CHARLIM + TEXTLEN) EQUAL-DIMENSIONS-P (TOTAL-SIZE DIMS BOUND0 BOUND1) SEDIT::SUBNODE-CHANGED-QUOTE (CL:STRUCTURE +) FB.GET.NEW.FILE.SPEC (DEFAULTDIR) \MAIKO.10MBSTARTDRIVER (NDBCSB) TEDIT.PUT.PCTB (FMTSPEC PCTB +PLOOKS DEFAULTCHARLOOKS EOLCONVENTION TXTPAGEFRAMES TXTPARALOOKSLIST TXTCHARLOOKSLIST PPARALAST PLEN +PPARALOOKS POBJ PFATP PNEW PFILE PFPOS PSTR OFFST BASE LENGTH FATSTRINGP NEXTPIECE CARETLOOKS) +TEDIT.DO.BLUEPENDINGDELETE (BLUEPENDINGDELETE DCH CH# CHLIM LINES) MAKEFILE1 (TOBEDUMPED FILEPROP) +\NSFILING.CONFLICTP (OPENFILELST FULLFILENAME ACCESSBITS) SPYOBJ.IMAGEBOX (OBJECTDATUM) BIT-ARRAY-P ( +BIT-P) SEDIT::UPDATE (SEDIT::DISPLAY-WINDOW SEDIT::SELECTION SEDIT::ROOT SEDIT::CARET-POINT) +CURSORCREATE (YCOORD XCOORD) DIRGETFILEINFO (FILEGENERATORS) \TEDIT.BOLD.CARET.ON (CARETLOOKS) +\UFStoOtherCopyMess (DEVICENAME DEVICE FULLFILENAME) HASHFILEDATA (File ValueType ItemLength %#Entries +) STKPOS (INVALIDP CLINK ALINK) \VFMReadNext (used data) \CURSORUP (BITMAPBITSPERPIXEL CUIMAGE CUMASK +BITMAPWIDTH BITMAPHEIGHT CUHOTSPOTX CUHOTSPOTY) OPT.CODEFRAME (OPNAME FRAME PREV OPARG PARENT) +\INFER.FILE.TYPE (ENDOFSTREAMOP) TEDIT.UNDO.PARALOOKS (SEL PCTB THOLDINFO THFIRSTPIECE PPARALOOKS +NEXTPIECE THCH# THLEN) \DSPYPOSITION.PRESS (PRYPOS IMAGEDATA) TEDIT.LOOKS (SEL SET CH# DCH) +\VFMGetBufferFor (PAGE) \CURSOR-VALID-P (CUIMAGE CUHOTSPOTX CUHOTSPOTY) SEDIT::FIND-SELECTION-BACKWARDS + (SEDIT::DISPLAY-WINDOW SEDIT::SELECTION SEDIT::SELECT-NODE SEDIT::SELECT-START SEDIT::SELECT-END) +\VECFONTINIT (BASE FONTCHARSETVECTOR) \TEDIT.FLUSH.UNUSED.LOOKS (TXTCHARLOOKSLIST TXTPARALOOKSLIST +PLOOKS PPARALOOKS NEXTPIECE CLMARK FMTMARK) \NSFILING.OPEN.HANDLE (NSHDATUM) \BSP.OTHERBOUT ( +BSPOUTPUTSTREAM) SEDIT::UNDO-REPLACE-ROOT (SEDIT::SUB-NODES) DEFAULTMAKENEWCOM (MACRO GETDEF +DESCRIPTION) COMP.PICOUNT (OPARG) \LOCATE.PUPNET (RTNET# RTHOPCOUNT) \TEDIT.SHOWSELS (SEL SHIFTEDSEL +MOVESEL DELETESEL SET) SETFILEPTR (SETFILEPTR DEVICE) SEDIT::SUBNODE-CHANGED-LIST (SEDIT::NODE-TYPE +SEDIT::SUB-NODE-INDEX SEDIT::SUB-NODES CL:STRUCTURE) SEDIT::BACKSPACE-COMMENT (SEDIT::CARET-POINT +SEDIT::OPEN-NODE-CHANGED? CL:STRUCTURE SEDIT::UNASSIGNED SEDIT::SUB-NODES SEDIT::SUPER-NODE +SEDIT::SELECTION) \RTP.ACTION (RTPSTATE PUPCONTENTS LISTENING BSPINPUTSTREAM BSPCURRENTPUP COFFSET +CBUFSIZE %#UNREADPUPS BSPINITTIMER RTPEVENT BSPINPUTEVENT RTPTIMER) \SETUPGETCH (PCTB STREAMHINT PC +PCOFF TEXTLEN PLEN PSTR PFILE PFATP POBJ TEXTOBJ CURRENTPARALOOKS CURRENTLOOKS PPARALOOKS PLOOKS) +CENTERPRINTINREGION (LEFT BOTTOM WIDTH HEIGHT) TEDIT.SELECTED.PIECES (CH# CHLIM PCTB \INSERTPC TEXTLEN + PLEN NEXTPIECE) ADJUSTCURSORPOSITION (XCOORD YCOORD) MAKEHARDCOPYMODESTREAM (WIDTH) +FROM.SCREEN.BITMAP (SCREEN REGION WIDTH HEIGHT LEFT BOTTOM) EOFP (EOFP DEVICE) \TELERAIDBREAK ( +TELERAIDFXP TRBREAK StackBase FAULTFXP FRAMENAME CLINK IVAR BLINK TRNOBREAK TRCURSOR NEXTBLOCK SIZE +STKMIN DEFPOINTER) \CURSORPOSITION (NEWMOUSESTATE) \SPP.NOT.RESPONDING (SPPINACTIVECOUNT +SPPESTABLISHEDP SPPACTIVITYTIMER SPPROUNDTRIPTIME) SEDIT::OUTPUT-BITMAP (SEDIT::RELINEARIZATION-TIME-STAMP + SEDIT::LINEAR-POINTER SEDIT::LINE-ASCENT SEDIT::CURRENT-LINE SEDIT::LINE-DESCENT) HRULE.DISPLAYFN ( +XSIZE) FORCEOUTPUT (FORCEOUTPUT DEVICE) \PUTBASEFIXP.UFN (HINUM LONUM) TEDIT.OBJECT.CHANGED (LINES +POBJ SEL) \FLUSH.OPEN.STREAMS (OPENP ACCESSBITS FORCEOUTPUT DEVICE) EQDEFP (ENVIRONMENT FNHEADER) +COMP.CPI1 (OPARG) SORT.PUPHOSTS.BY.DISTANCE (PUPNET#) COPYATOM (BASE OFFST) GETHASHTEXT (Stream Start +End) ACCESS-CHARSET (CHARSETFN DEVICE) CURSORPOSITION (IMAGEDATA XCOORD DDXOFFSET YCOORD DDYOFFSET +SCREEN) GETEOFPTR (GETEOFPTR DEVICE) TRANSMIT.ETHERPACKET (NDBTRANSMITTER) \RSH (HINUM LONUM) +CURSORSCREEN (SCDESTINATION) SEDIT::NEXT-LINEAR-ITEM (SEDIT::LINEAR-THREAD SEDIT::DESTINATION +SEDIT::LINEAR-FORM) \TEDIT.CENTER.SEL (CH# DCH) \DSPUNTRANSFORMY (DDYOFFSET) SEDIT::FIND-SELECTION ( +SEDIT::DISPLAY-WINDOW SEDIT::SELECTION SEDIT::SELECT-NODE SEDIT::SELECT-START) TB.MAP.DELETED.ITEMS ( +TB#DELETED TBITEMS TIDELETED) SEDIT::STRINGIFY-QUOTE (STRING SEDIT::UNASSIGNED SEDIT::SUB-NODES) +\DSPUNTRANSFORMX (DDXOFFSET) \CHTOPCNO (HI CHNUM RANK LO) CLOSERTPSOCKET (BSPLOCK RTPSTATE RTPEVENT +RTPPROCESS) \FILLINXIP (ID# NSNET NSSOCKET) COPY-ARRAY (READ-ONLY-P TOTAL-SIZE) \TEDIT.INSERT.PIECES ( +TXTREADONLY TEXTLEN PCTB PREVPIECE PFILE PFPOS PFATP PLEN PLOOKS PPARALOOKS NEXTPIECE POBJ) +\CHANGECHARSET.HDCPYDISPLAY (DDFONT FONTCHARSETVECTOR WIDTHS) OPT.CODELEV (OPNAME LEVEL PREV OPARG) +\10MBRAWENCAPSULATE (10MBDESTHOSTBASE 10MBSOURCEHOSTBASE) \LEAF.LOOKUPCACHE (LEAFPAGECACHE) +\TEDIT.CHANGE.LOOKS (PCTB \INSERTPC TEXTLEN PLOOKS CLFONT CLOFFSET NEXTPIECE \WINDOW SEL) COPY-VECTOR +(READ-ONLY-P) DISPLACED-ARRAY-P (DISPLACED-P) TEDIT.UNDO.LOOKS (SEL PCTB THOLDINFO \INSERTPC +THFIRSTPIECE PLOOKS NEXTPIECE THCH# THLEN) GETFILEPTR (GETFILEPTR DEVICE) FIND.LINE (END NEXTLINE +START) \VFMLower (fileID filePage) CURSOREXIT (SCWIDTH SCHEIGHT) \ROUTE.PUP (PUPDESTNET PUPDESTHOST +RTNDB RTHOPCOUNT RTGATEWAY# NETTYPE PUPLENGTH NDBPUPTYPE NDBPUPNET# PUPSOURCEHOST NDBPUPHOST#) +\NSRANDOM.CREATE.STREAM (NSHACCESS NSHDATUM NSHATTRIBUTES NSFILING.HANDLE NSFILING.SERVER.LENGTH EPAGE + EOFFSET) LASTMOUSEY (IMAGEDATA) \SETEOFPTR (SETEOFPTR DEVICE) LASTMOUSEX (IMAGEDATA) +FW-CREATE-OFD-WINDOWS (OFDWINDOW) SEDIT::STRINGIFY-LIST (SEDIT::SUB-NODES SEDIT::NODE-TYPE) DINFO ( +WINDOW MONITORLOCK) \FM.PUTITEMPROP (FM.LABEL FM.ID FM.GROUPID FM.STATE FM.INITSTATE FM.FONT FM.BITMAP + FM.HIGHLIGHT FM.REGION FM.MAXREGION FM.MESSAGE FM.LINKS FM.SYSDOWNFN FM.SYSMOVEDFN FM.SYSSELECTEDFN +FM.DOWNFN FM.HELDFN FM.MOVEDFN FM.SELECTEDFN FM.USERDATA) TEDIT.REDO.LOOKS (SEL THAUXINFO SET) +\OUTCHARFN.PRESS (IMAGEDATA PRXPOS PRSPACEWIDTH PRWIDTHSCACHE LEFT PRClippingRegion RIGHT PRYPOS +BOTTOM CHARWASDISPLAYING) FILL-ARRAY (TOTAL-SIZE READ-ONLY-P) \OPENLEAFCONNECTION (PUPCONTENTS +LEAFLENGTH SEQSTATE EPUSERFIELD SEQEVENT LEAFOPCODE LEAFERRORCODE) CONTINUEDIT (FILEPROP) PRINTPUPDATA + (PUPCONTENTS PUPLENGTH) \RTP.SHOW.FAILURE (BSPFAILURESTRING PUPSOURCE FRNPORT) CURSORHOTSPOT (YCOORD) + SEDIT::NEW-BLOCK (SEDIT::CURRENT-BLOCK SEDIT::CURRENT-X SEDIT::LINEAR-POINTER) GETMOUSESTATE (WU) +SPY.PRINT (NAME) OPT.RETMERGE (PREV OPNAME FRAME TAG LEVEL) TEDIT.SCANSEL (TEXTOBJ SEL SET CH# DCH) +POSTSCRIPT.GETFONTID (FONTXFACTOR) \ROUTE.XIP (XIPDESTNET RTNDB RTHOPCOUNT RTGATEWAY# NETTYPE +XIPLENGTH NDBNSNET#) %%MAKE-DISPLACED-ARRAY (TYPE-NUMBER READ-ONLY-P EXTENDABLE-P ADJUSTABLE-P +INDIRECT-P BASE) FW-CREATEW (LEFT BOTTOM WIDTH HEIGHT) CHARPOS (CHARPOSITION) SEDIT::FIND-OBJ ( +SEDIT::OPEN-NODE-CHANGED? SEDIT::SELECTION SEDIT::SELECT-NODE SEDIT::SELECT-TYPE) \HDCPYBLTCHAR ( +DDCHARSET DDSlowPrintingCase DDXPOSITION DDMICAXPOS DDCHARIMAGEWIDTHS DDMICARIGHTMARGIN DDLeftMargin +DDXOFFSET DDWIDTHSCACHE DDClippingRight DDClippingLeft PBTHEIGHT DDPILOTBBT DDOFFSETSCACHE) +COURIER.READ.STRING (BASE OFFST) TB.ITEM.DELETED? (TIDELETED) TTSKIPSEPR (CPXREALCHAR) +\10MBRAWTRANSMIT (10MBPACKETBASE 10MBLENGTH) \FM.GETITEMPROP (FM.TYPE FM.LABEL FM.ID FM.GROUPID +FM.STATE FM.INITSTATE FM.FONT FM.BITMAP FM.HIGHLIGHT FM.REGION FM.MAXREGION FM.MESSAGE FM.USERDATA +FM.LINKS FM.SYSDOWNFN FM.SYSMOVEDFN FM.SYSSELECTEDFN FM.DOWNFN FM.HELDFN FM.MOVEDFN FM.SELECTEDFN) +\FM.EDIT-DELETE (FM.USERDATA BOTTOM LEFT WIDTH HEIGHT FM.LABEL) CHAT.SCREENPARAMS (CHATINEMACS) +HASHFILEP (Write? Valid?) SEDIT::TYPE-OF-INPUT (SEDIT::POINT-NODE SEDIT::CARET-POINT SEDIT::POINT-TYPE +) BEEPON (DLBEEPCMD) COMP.CPI (FRAMETYPE VARS CPIOK PARENT) PRINTERRORPUP (PUPSOURCE ERRORPUPCODE) +\TTW1 (NEXTW SCREEN REG SCREGION SCDESTINATION SAVE SCTOPW DSP) \NSFILING.CHECK.ACCESS (FSPROTOCOLNAME + NSHDATUM) READ-ONLY-ARRAY-P (READ-ONLY-P) SEDIT::LINE-FINISHED (SEDIT::CURRENT-LINE SEDIT::NEXT-LINE-Y + SEDIT::WINDOW-TOP SEDIT::CURRENT-BLOCK SEDIT::BLOCK-NEW-X SEDIT::NEXT-BLOCK SEDIT::FIRST-BLOCK +SEDIT::INDENT) SPYOBJ.SAVE (OBJECTDATUM) BEEPOFF (DLBEEPCMD) SHOWBITMAP1.IP (BITMAPBASE +BITMAPRASTERWIDTH) ENCAPSULATE.ETHERPACKET (NDBENCAPSULATOR) MSMARKCHANGED (MARKCHANGED-FN) +TEDIT.REDO.PARALOOKS (SEL THAUXINFO SET) \VFMMerge (nextKey volumePage key) HLSTORGB (HUE LIGHTNESS +SATURATION) \FTP.OPEN.CONNECTION (FTPIN) \TELERAIDRELEASE (NETTYPE) \FM.EDIT-WORDDELETE (FM.LABEL LEFT +) CHAT.LOGIN (INSTREAM OUTSTREAM) SEDIT::SUBNODE-CHANGED-ROOT (SEDIT::ROOT-CHANGED-FN) BIT.IN.ROW ( +BITMAPWIDTH) ETHERHOSTNAME (PUPNET# PUPLENGTH PUPCONTENTS PUPTYPE OFFST BASE LENGTH FATSTRINGP) +\TEDIT.BOLD.CARET.OFF (CARETLOOKS) OPT.RETTEST (PREV FRAME OPNAME TAG NXT OPARG) CL:SIMPLE-VECTOR-P ( +SIMPLE-P) \CREATEPRESSFONT (FONTCHARSETVECTOR) \LEAF.REQUESTPAGE (LEAFCONNECTION LEAFCACHECNT FW6 +PUPCONTENTS LEAFHANDLE) SCAVENGEDSKDIRECTORY (LVlabel) CL:SIMPLE-BIT-VECTOR-P (SIMPLE-P BIT-P) +\TEDIT.HISTORYADD (TXTHISTORY THACTION THCH# THLEN) SEDIT::FIND-NODE-SUBSTRUCTURE-BACKWARDS ( +SEDIT::SUB-NODES) \SLOWHDCPYBLTCHAR (IMAGEDATA ROTATION DDFONT DDXPOSITION DDWIDTHSCACHE DDRightMargin + DDXOFFSET DDClippingLeft DDClippingRight DDPILOTBBT PBTHEIGHT DDOFFSETSCACHE BITMAPBITSPERPIXEL +DDDestination DDYPOSITION FONTCHARSETVECTOR CHARSETBITMAP CHARSETASCENT CHARSETDESCENT) \LFFileSpec ( +VOLNUM VERSION) \SETDAYTIME0 (LONUM HINUM DLPROCESSORCMD DLTODVALID) CLEARHASHFILES (Stream HASHFILE) +\VFMGenerateFileIDs (nextKey fileID type) \NSFILING.FULLNAME (NSHNAME NSHATTRIBUTES NSROOTNAME +NSDIRECTORIES NSDIRECTORYP NSVERSION NSHASPERIOD FSNAMESTRING) \PFRemoveDirectoryID (countEntries) +\PROCESS.RESET.TIMERS (PROCSTATUS PROCTIMERSET PROCEVENTORLOCK) SEDIT::FIND-NODE-SUBSTRUCTURE ( +SEDIT::SUB-NODES) SEDIT::STRINGIFY (SEDIT::STRINGIFY SEDIT::NODE-TYPE) \PUPGATELISTENER (PUPSOCEVENT) +BSPFRNADDRESS (BSPSOC FRNPUPADDRESS) \FM.EDIT-BACKUP (LEFT FM.LABEL) \FTP.RECOGNIZEFILE (FTPIN FTPOUT) + CL:VECTOR-POP (FILL-POINTER-P FILL-POINTER) EDIT.BITMAP (CUIMAGE CUHOTSPOTX CUHOTSPOTY) +TEDIT.COPY.PARALOOKS (PPARALOOKS \TEXTOBJ) TB.ITEM.SELECTED? (TISELECTED) %%AREF0 (BASE TYPE-NUMBER) +TB.UNDELETE.ITEM (TIDELETED TB#DELETED TBWINDOW TBPRINTFN) \CLEARXIPHEADER (XIPBASE) \BSP.HANDLE.INPUT + (PUPSOC BSPLOCK PUPTYPE ACKPENDING RTPTIMEOUT RTPTIMER BSPTIMEOUT BSPTIMER) INITUFNTABLE (UFNFN OP# +LEVADJ OPNARGS) MSSUBJTYPE (VPART C VB1 VB2 ROOT) \INTERNALTOTOPW (SCREEN SCTOPW) SEDIT::LAST-LINE-LINEAR + (SEDIT::LAST-LINE SEDIT::PREV-LINE SEDIT::NEXT-LINE SEDIT::LINEAR-FORM SEDIT::ROOT) CHARACTER.PRINT ( +CHARPOSITION HASHMACROCHAR) \FTP.FIX.BROKEN.INPUT (FULLFILENAME FTPFILEPROPS FTPIN) MSOBJTYPE (VPART C + VB1 VB2 ROOT MODIFIER) \HANDLE.PUP.ROUTING.INFO (PUPTYPE PUPSOURCEHOST EPNETWORK PUPLENGTH +PUPCONTENTS NETTYPE %#HOPS NET# RTNET# RTHOPCOUNT RTNDB RTGATEWAY# RTRECENT RTTIMER) %%ASET0 ( +TYPE-NUMBER BASE) \10MBRAWRECEIVE (IOCBType 10MBTYPE) MODERN-MENUBUTTONFN (TITLE) \PUTFIXP (HINUM +LONUM) BREAKCONNECTION (BREAKCONNECTION DEVICENAME) REGIONONSCREEN (XCOORD YCOORD) CL::ROW-MAJOR-ASET +(TOTAL-SIZE TYPE-NUMBER BASE) \PUTSWAPPEDFIXP (HINUM LONUM) GTHASHFILE (File) WORD.MATCHES.BUFFER ( +NSCHARHASH CPXREALCHAR) PRINT-READER-ENVIRONMENT (RESPEC) PRINTXIPROUTE (XIPTCONTROL) XCL:ROW-MAJOR-AREF + (TOTAL-SIZE BASE TYPE-NUMBER) SEDIT:SEDIT (SEDIT::DISPLAY-WINDOW) \STRINGWIDTH.HCPYDISPLAYAUX ( +PNAMEBASE PNAMELENGTH FATPNAMEP IMAGEWIDTHS FONTCHARSETVECTOR ESCAPECHAR OFFST BASE LENGTH FATSTRINGP) + \GENERIC.RENAMEFILE (OPENP) \NSFILING.FILLIN.ATTRIBUTES (NSHATTRIBUTES NSHDATUM FSPROTOCOLNAME) +\GENERIC.OPENP (OPENFILELST FULLNAME USERVISIBLE) PRINTPUPROUTE (PUPTCONTROL PUPSOURCE PUPSOURCESOCKET + PUPDEST PUPDESTSOCKET) SAMEPARALOOKS (FMTSTYLE LEFTMAR 1STLEFTMAR RIGHTMAR QUAD LEADBEFORE LINELEAD +TABSPEC FMTNEWPAGEBEFORE FMTNEWPAGEAFTER FMTSPECIALX FMTSPECIALY FMTHEADINGKEEP) \VECPUT (IMAGEDATA +VECMOVINGRIGHT VECCURX VECCURY VECWASDISPLAYING VECSEGCHARS) \TOTALFIXEDHEIGHT (ATWHEREONEDGE ATEDGE +ATMINY ATMAXY) GETSCREENPOSITION (SCGETSCREENPOSITION SCREEN) SETY.IP (IPDATA IPYPOS IPXPOS IPVISLEFT +IPMINVISIBLEBASELINE IPMAXVISIBLEBASELINE) \INSERT.FIRST.PIECE (FMTSPEC) TEDIT.MAKESEL (SEL TEXTOBJ +\WINDOW) \BACKCCODE (BACKCCODEFN) TB.MAP.ITEMS (TBITEMS) SEDIT::COPY-SELECTION (SEDIT::POINT-NODE +SEDIT::DISPLAY-WINDOW SEDIT::COPY-SELECTION SEDIT::NODE-TYPE SEDIT::SELECT-NODE) \TITLEICONMINSIZE ( +SCTITLEDS SCREEN) EDITTOGGLELABEL (GRAPHNODES GRAPH.INVERTLABELFN) \INCCODE (INCCODEFN) +\COURIER.ATTENTIONFN (SPPSUBSTREAM ACCESSBITS EOFP DEVICE) GETHASH (HASHBITSFN LASTINDEX HARRAYPBASE +VALUE KEY EQUIVFN) SCALE/TONODES (TONODES) BIT.IN.COLUMN (BITMAPHEIGHT) OPT.RETPOP (OPNAME PREV OPARG +VARS) \PEEKCCODE (EOLCONVENTION PEEKCCODEFN) SEDIT::FIND-AND-DISPLAY-SUBSTRUCTURE-BACKWARDS ( +SEDIT::DISPLAY-WINDOW SEDIT::SUB-NODES SEDIT::ROOT) \NSRANDOM.RELEASE.LOCK (NSHDATUM) +TEDIT.SUBPARALOOKS (SEL PCTB TEXTLEN PPARALOOKS PLEN NEXTPIECE \WINDOW) \INSPECTW.REDISPLAYPROP ( +SELECTABLEITEMREGION) \TEDIT.WORD.BOUND (READSA TXTWTBL NSCHARHASH) PREVWORD (START NSCHARHASH +STOPATOM CPXREALCHAR) SEDIT::FIRST-LINE-LINEAR (SEDIT::FIRST-LINE SEDIT::PREV-LINE SEDIT::NEXT-LINE +SEDIT::LINEAR-FORM SEDIT::ROOT) \GENERIC.CHARSET (CHARSET) CHAT.CLOSE (TYPEOUTPROC TYPESCRIPTSTREAM +INSTREAM OUTSTREAM) \FM.MENUHANDLER (BOTTOM LEFT FM.USERDATA WIDTH HEIGHT) \3MBRAWTRANSMIT ( +PBIRAWSTART 3MBBASE 3MBLENGTH) \LFFullFileName (VERSION LVlabel VOLNUM) START.NEW.LINE (START) +ADD.BORDER.TO.BITMAP (BITMAPWIDTH BITMAPHEIGHT) TEDIT.SELECT (TEXTLEN SET L1 FMTHARDCOPY LFMTSPEC X0 +LN XLIM LHASPROT SCRATCHSEL CHARLIM CH#) DIRECTORY.MATCH1 (BASE) SEDIT::ASSIGN-FORMAT-NIL (SEDIT::SUB-NODES +) \MAP-OPEN-STREAMS (OPENP) SEDIT::SHIFT-LINEAR-FORM (SEDIT::START-X SEDIT::LINEAR-FORM SEDIT::DESTINATION +) TEDIT.SET.SEL.LOOKS (ONFLG) \UPDATE.PBT.RASTERWIDTHS (PBTDESTHI PBTDESTLO) \TOTALFIXEDWIDTH ( +ATWHEREONEDGE ATEDGE ATMINX ATMAXX) GETBOXSCREENPOSITION (SCGETBOXSCREENPOSITION) \EOF.ACTION ( +ENDOFSTREAMOP) \VAMAdjustGroup (filePage nextFilePage volumePage) MSCOMMAND (TYPE KNOWN) +SEDIT::REPLACE-STRING (SEDIT::LINEAR-FORM) OPT.JSIZE (OPNAME) \EOSERROR (FULLNAME) SETYREL.IP (IPDATA +IPYPOS IPXPOS IPVISLEFT IPMINVISIBLEBASELINE IPMAXVISIBLEBASELINE) NORMSECT (GEOM P X IX IPX IPY MAJOR +) SEDIT::REPLACE-CHARS (SEDIT::PRIN-2? MULTESCAPECHAR SEDIT::OPEN-NODE-INFO SEDIT::BUFFER-STRING +SEDIT::REAL-LENGTH SEDIT::FONT SEDIT::NODE-TYPE SEDIT::OPEN-NODE-CHANGED? SEDIT::SUPER-NODE +SEDIT::SUBSTRING SEDIT::INLINE-WIDTH SEDIT::CARET-POINT) DINFO.SPECIAL.UPDATE (WINDOW CURRENTNODE +TOPNODEID PARENT NEXTNODE PREVIOUSNODE NODELST MONITORLOCK) FIND.NEXT.WORD (END NSCHARHASH STOPATOM +CPXREALCHAR) \NSFILING.HANDLE.ERROR (FSSESSIONLOCK) ADJUSTLINE (ROW NEXTLINE LASTCOL START FIRSTCOL +END) FB.UNDELETEALLCOMMAND (TABLEBROWSER) \INCFILEPTR (PAGEMAPPED DEVICE GETFILEPTR) +SEDIT::SETUP-WINDOW-CONTEXT-DEPENDENCIES (SEDIT::DISPLAY-WINDOW SEDIT::ROOT SEDIT::LINE-HEIGHT +SEDIT::LAST-LINE SEDIT::YCOORD SEDIT::ACTUAL-WIDTH SEDIT::ICON-TITLE) \PFPilotVolumeP (type) +MOVE.TO.NEXT.LINE (NEXTLINE START) \PAGED.INCFILEPTR (COFFSET CPAGE PAGE OFFSET CBUFPTR CBUFSIZE +CBUFDIRTY) SEDIT::FIND-AND-DISPLAY-SUBSTRUCTURE (SEDIT::DISPLAY-WINDOW SEDIT::SUB-NODES SEDIT::ROOT) +FW-SORT-FN (FULLNAME) \TEDIT.FIND (\WINDOW SEL) TEDIT.GETSEL (SEL TEXTOBJ) \PSC.SYMBOLS (IMAGEDATA +FONTSIZE FONTFACE) SEDIT::GENERATE-LINEAR-FORM (SEDIT::CURRENT-X SEDIT::LINEARIZE SEDIT::NODE-TYPE +SEDIT::ROOT SEDIT::START-X SEDIT::CHANGED? SEDIT::ACTUAL-WIDTH SEDIT::RIGHT-MARGIN SEDIT::INLINE? +SEDIT::CURRENT-LINE SEDIT::SUPER-NODE SEDIT::LINEAR-FORM) SEDIT::FIND-AND-DISPLAY-STRUCTURE-BACKWARDS +(SEDIT::DISPLAY-WINDOW SEDIT::SUB-NODES SEDIT::ROOT) LAYOUTSEXPR1 (NODEID) \SETCARET (PTOP BOTTOM +TXTREADONLY) \BUFFERED.BIN (CBUFPTR COFFSET CBUFSIZE GETNEXTBUFFER DEVICE) \HDCPYDISPLAY.FIX.YPOS ( +IMAGEDATA DDYPOSITION) \LEAF.DELETEFILE (PUPCONTENTS LEAFHANDLE LEAFCONNECTION FULLFILENAME) MOVD ( +DEFINITIONCELL DEFPOINTER DEFCELLFLAGS AUXDEFCELLFLAGS) \FM.RIGHTBUTTONFN (BOTTOM LEFT FM.USERDATA +WIDTH HEIGHT) \TELERAIDEXIT (NETTYPE TROLDCSB TROLDCURSOR) \BUFFERED.PEEKBIN (CBUFPTR COFFSET CBUFSIZE + GETNEXTBUFFER DEVICE) SEDIT::SETUP-WINDOW-AND-PROCESS (SEDIT::DISPLAY-WINDOW) \SHAREOFXTRAY (ATNOWY +ATYSIZE) \BUFFERED.BOUT (CBUFPTR COFFSET CBUFMAXSIZE GETNEXTBUFFER DEVICE) MB.COPYFN (OBJECTDATUM +IMAGEOBJPLIST IMAGEOBJFNS) SETXY.IP (IPDATA IPVISLEFT IPMINVISIBLEBASELINE IPMAXVISIBLEBASELINE) +TEDIT.INCLUDE (SEL TXTREADONLY SET TEXTLEN FMTSPEC FORMATTEDP PCTB POINT CH# CHLIM TOTLEN \WINDOW) +\PS.SCALEHACK (IMAGEDATA POSTSCRIPTSCALEHACK POSTSCRIPTCLIPPINGREGION POSTSCRIPTPAGEREGION LEFT BOTTOM + WIDTH HEIGHT POSTSCRIPTX POSTSCRIPTY POSTSCRIPTLEFTMARGIN POSTSCRIPTRIGHTMARGIN +POSTSCRIPTBOTTOMMARGIN POSTSCRIPTTOPMARGIN POSTSCRIPTTRANSX POSTSCRIPTTRANSY) FB.UNDELETE.FILE ( +TIDELETED DELETEDFILES SIZE TIDATA DELETEDPAGES) SEDIT::INSERT (SEDIT::POINT-NODE SEDIT::SELECTION +SEDIT::SELECT-NODE SEDIT::SELECT-START SEDIT::SUPER-NODE) SEDIT::RELINEARIZE-PRELINEARIZED-NODE ( +SEDIT::LINEAR-FORM) \BOXFPLUSDIF (HINUM LONUM SIGNBIT LOFRACTION HIFRACTION EXPONENT) +FW-CREATE-OFD-LIST (OFDSTATUS OFDWINDOW) \TEDIT.PUT.SINGLE.PARALOOKS2 (1STLEFTMAR LEFTMAR RIGHTMAR +LEADBEFORE LEADAFTER LINELEAD TABSPEC QUAD TABX TABKIND FMTSPECIALX FMTSPECIALY FMTUSERINFO +FMTPARATYPE FMTPARASUBTYPE FMTSTYLE FMTCHARSTYLES FMTNEWPAGEBEFORE FMTNEWPAGEAFTER) TTYIN.BALANCE ( +NSCHARHASH CPXREALCHAR) \BUFFERED.BINS (CBUFPTR COFFSET CBUFSIZE GETNEXTBUFFER DEVICE) \BOXFTIMES2 ( +HINUM LONUM SIGNBIT LOFRACTION HIFRACTION EXPONENT) TTLASTLINE (NEXTLINE) TEDIT.SEL.AS.STRING (TEXTOBJ + SEL DCH CH# STREAMHINT) SEDIT::PARSE--STRING (SEDIT::DEFAULT-FONT SEDIT::ENVIRONMENT) \BOXFQUOTIENT ( +HINUM LONUM SIGNBIT LOFRACTION HIFRACTION EXPONENT) \LFOpenOldFile (AllocatedPages EofPage EOffSet) +SEDIT::SETUP-PROFILE (SEDIT::ICON-TITLE SEDIT::EDIT-TYPE SEDIT::ROOT) \LFDirectoryP (version +LEADERPAGE) CCCSCAN (STARTPC OVERHEADWORDS BYTESWAPPED OPNARGS OPPRINT OPCODENAME) \BUFFERED.BOUTS ( +DEVICE CBUFPTR COFFSET CBUFMAXSIZE GETNEXTBUFFER) \3MBRAWRECEIVE (3MBBASE PBIRAWSTART PBILENGTH +3MBTYPE) SEDIT::FIND-AND-DISPLAY-STRUCTURE (SEDIT::DISPLAY-WINDOW SEDIT::SUB-NODES SEDIT::ROOT) +TEDIT.GET.LOOKS (TEXTLEN CARETLOOKS PLOOKS PCTB CH# SEL) \STRINGWIDTH.HDCPYDISPLAY (DDFONT IMAGEDATA +IMAGEWIDTHS FONTCHARSETVECTOR) \FLOAT (HINUM LONUM) \TEDIT.FIND.PROTECTED.START (PCTB CLPROTECTED +PLOOKS PLEN PREVPIECE) RESET/NODE/LABELSHADE (NODELABELSHADE) \GETSPP (SPPLOCK SPPINPUTQ SPPACKNO +SEQNO SPPACCEPTNO SPPINPUTBLOCKED SPPTERMINATEDP SPPINPUTEVENT) \TEDIT.SEL.CHANGED? (SET CH# CHLIM +\TEXTOBJ DX POINT HOW HOWHEIGHT) \SCROLL.HANDLER.DOIT (LEFT TOP WIDTH HEIGHT) +\TEDIT.PUT.SINGLE.CHARLOOKS2 (CLFONT CLOFFSET CLSTYLE CLUSERINFO CLLEADER CLINVERTED CLBOLD CLITAL +CLULINE CLOLINE CLSTRIKE CLSMALLCAP CLPROTECTED CLINVISIBLE CLSELHERE CLCANCOPY) \LEAF.GETFILE ( +DEVICEINFO PFSLEAFSEQUIN LEAFCACHEDFILE LEAFOPENCLOSELOCK FULLFILENAME LEAFREALLYOPEN PUPCONTENTS +LEAFSTATUS FILEADDRESS HANDLE PAGE OFFSET) TEDIT.EXTEND.SEL (SELKIND TEXTLEN SET CHLIM CH# POINT DCH +XLIM YLIM LN X0 Y0 L1 SELOBJ) \SHAREOFXTRAX (ATNOWX ATXSIZE) OPT.FINDEND (NXT) +SEDIT::CLEAN-UP-AFTER-RELINEARIZATION (SEDIT::DISPLAY-WINDOW SEDIT::WINDOW-BOTTOM SEDIT::WINDOW-LEFT +SEDIT::WINDOW-RIGHT SEDIT::NEXT-LINE-Y SEDIT::LAST-LINE SEDIT::YCOORD) TEDIT.STREAMCHANGEDP (\DIRTY) +SETXYREL.IP (IPDATA IPXPOS IPYPOS IPVISLEFT IPMINVISIBLEBASELINE IPMAXVISIBLEBASELINE) FW-OFD-EXISTS? +(FULLNAME FILESTREAM READING? WRITING? OFDSTATUS) AT.END.OF.TEXT (CPXREALCHAR) MB.SHOWSELFN (XSIZE +YSIZE YDESC) \TEDIT.SCALEREGION (LEFT BOTTOM WIDTH HEIGHT) SEDIT::SELECT-SEGMENT (SEDIT::SELECT-SEGMENT + SEDIT::NODE-TYPE) \BRUSHBITMAP (BRUSHARRAY BRUSHCACHE CREATEMETHOD) TEDIT.ADD.MENUITEM (ITEMS +MENUCOLUMNS MENUROWS) \TEDIT.REFRESH.SHOWSEL (SEL SHIFTEDSEL MOVESEL DELETESEL SET) \TOTALPROPOSEDSIZE + (ATMINX ATMINY ATXSIZE ATYSIZE ATEDGE) SEDIT::CREATE-QUOTED-GAP (SEDIT::QUOTE-STRING SEDIT::ENVIRONMENT +) \VFMPutNext (data key volumePage) SETX.IP (IPDATA IPXPOS IPYPOS IPVISLEFT IPMINVISIBLEBASELINE +IPMAXVISIBLEBASELINE) CRIT.LESSP (BY) TTNTH (END) EDITTOGGLEBORDER (GRAPHNODES GRAPH.INVERTBORDERFN) +\TELERAIDENTRY (TROLDCURSOR TRCURSOR NETTYPE TROLDCSB) TTNLEFT (START) FB.UNDELETECOMMAND ( +TABLEBROWSER) SEDIT::SET-INITIAL-SELECTION (SEDIT::FIND-CANDIDATE) SEDIT::CLEAR-LINEAR-FORM ( +SEDIT::LINEARIZE SEDIT::NODE-TYPE) \EDIT.UPCARET (TCCARETDS) NARGS (CCODEP DEFPOINTER NA FNHEADER) +\TEDIT.FORMAT.FOOTNOTE (CHAR1 TEXTLEN LSTLN PAGELINECACHE CACHE WIDTH STREAMHINT LFMTSPEC LEFTMARGIN +LEFT RIGHTMARGIN CHARLIM) HASDEF (NULLDEF CHANGED HASDEF) \POSTSCRIPTTAB (FONTAVGCHARWIDTH +POSTSCRIPTFONT POSTSCRIPTX POSTSCRIPTLEFTMARGIN) TB.DELETE.ITEM (TIDELETED TB#DELETED TBWINDOW) +SCALEPAGEUNITS (TPSWIDTH) \ARGPTR (DEFPOINTER INVALIDP FNHEADER IVAR BLINK NARGS NA ALINK) +IMAGESTREAMP (IMAGETYPE IMAGEOPS) \UPDATE.EXTENT.IMAGE (HEIGHT WIDTH TOP LEFT) DELDEF (DELDEF) +IMAGESTREAMTYPE (IMAGETYPE IMAGEOPS) OPT.DELTAGREF (TAG) IMAGESTREAMTYPEP (IMAGETYPE IMAGEOPS) +TERM.MOVETO (FONTWIDTH TTYWIDTH FONTDESCENT HOMEPOS FONTHEIGHT DSP) SEDIT::GROW-SELECTION ( +SEDIT::GROW-SELECTION SEDIT::NODE-TYPE SEDIT::SELECT-NODE) STKNTH (INVALIDP CLINK ALINK) \TEXTBIN ( +COFFSET CBUFSIZE POBJ PIECE FATSTREAMP CHARSLEFT NEXTPIECE PLEN LOOKSUPDATEFN TEXTOBJ CURRENTPARALOOKS + CURRENTLOOKS PPARALOOKS PLOOKS PSTR PFILE PFATP ENDOFSTREAMOP) SEDIT::PARSE--LITATOM (SEDIT::DEFAULT-FONT + SEDIT::ENVIRONMENT) DINFO.UPDATE.FMENU (FMENU.WINDOW NODELST ID CURRENTNODE TOPNODEID LABEL PARENT +NEXTNODE PREVIOUSNODE) \FM.WINDOWENTRYFN (BOTTOM LEFT FM.USERDATA WIDTH HEIGHT) \LFCreateFile (VOLNUM +FILEDESC) SEDIT::SETUP-NEW-CONTEXT (SEDIT::ICON-TITLE) SETSTKNAME (VALIDNAMETABLE NAMETABLE# FNHEADER) + U/L-CASE (END START) SETTAIL? (ROW) \TELERAIDSEND (PUPDESTHOST PUPDESTNET PUPSOURCESOCKETHI +PUPSOURCESOCKETLO NETTYPE 3MBDESTHOST PUPLENGTH) \COPYFNHEADER (NTSIZE OVERHEADWORDS) BLTMENUIMAGE ( +IMAGE SAVE MENUREGIONLEFT MENUREGIONBOTTOM WIDTH HEIGHT) TEDIT.HARDCOPY-COLUMN-END (LMARK CHARLIM +LSTLN 1STLN CHAR1 TEXTLEN FMTHEADINGKEEP LFMTSPEC FMTKEEP PAGE# BOTTOM DESCENT LHEIGHT) \TEXTBOUT ( +TEXTOBJ TEXTLEN \WINDOW TXTREADONLY PSTR \INSERTPC BASE OFFST \INSERTLEN COFFSET) +CL:GET-DISPATCH-MACRO-CHARACTER (DISPATCHMACRODEFS) IMAGEOBJPROP (IMAGEOBJFNS OBJECTDATUM DISPLAYFN +IMAGEBOXFN PUTFN GETFN COPYFN BUTTONEVENTINFN COPYBUTTONEVENTINFN WHENMOVEDFN WHENINSERTEDFN +WHENDELETEDFN WHENCOPIEDFN WHENOPERATEDONFN PREPRINTFN IMAGECLASSNAME) STKSCAN (INVALIDP ALINK) +CREATEWFROMIMAGE (SAVE) \AddShade (ITEMS SHADEDITEMS) \FRAMESCAN (OVERHEADWORDS NAMETABLE NTSIZE BOUND + FIRSTPVAR NARGS BLINK) INSIDE? (LEFT WIDTH BOTTOM HEIGHT) MSSETREP (REP) SEDIT::PARSE--BROKEN-ATOM ( +SEDIT::ATOM-CHARS SEDIT::BROKEN-ATOM-FONT SEDIT::ENVIRONMENT) CHAT.RESHAPEWINDOW (TYPEOUTPROC) +SEDIT::COMPLETE (SEDIT::EDIT-OPTIONS SEDIT::OPEN-NODE-CHANGED? SEDIT::DISPLAY-WINDOW) +\LFGetStreamForFile (FSDIRPTR EXPANDEDNAME VOLNUM VERSION) \FM.CREATEW (LEFT BOTTOM WIDTH HEIGHT) +PRINTANDBOX (WIDTH) COMP.STUNBIND (LEVEL PARENT) \SETWINFOXSIZE (ATMAXX ATMINX) OPT.COMMONBACK (PREV +OPNAME TAG OPARG) \VAMEnoughSpace (type freePageCount) DO-DISPATCH-MACRO (DISPATCHMACRODEFS) +MSSEEKPHRASE (START) PUTPUPSTRING (PUPLENGTH PUPCONTENTS) GETDEFFROMFILE (FILEGETDEF) FLOATP.TO.BCPL ( +EXPONENT LONGFRACTION SIGNBIT) SWITCH/NODE/HEIGHT/WIDTH (NODEWIDTH) RESUME (EDFXP INVALIDP CLINK) +\ALLOCSPACETOGROUPEDWINDOWS (ATEDGE) \MAXWIDTHOFGROUP (ATWHEREONEDGE ATMINX) SETXREL.IP (IPDATA IPXPOS + IPVISLEFT IPYPOS IPMINVISIBLEBASELINE IPMAXVISIBLEBASELINE) SEDIT::SETUP-CONTEXT-WINDOW-DEPENDENCIES +(SEDIT::DISPLAY-WINDOW) SHRINK-VECTOR (TOTAL-SIZE) SEDIT::SET-SELECTION (SEDIT::SET-SELECTION +SEDIT::NODE-TYPE) BCPL.TO.FLOATP (SIGNIFICANTBIT BCPLEXPONENT RESTOFFRACTION) ADDFILE (CHANGED) +RESET/NODE/BORDER (NODEBORDER) SEDIT::OPEN-LITATOM (SEDIT::OPEN-NODE SEDIT::OPEN-NODE-CHANGED? +SEDIT::OPEN-NODE-INFO SEDIT::LINEAR-FORM SEDIT::NODE-TYPE SEDIT::SUBSTRING SEDIT::BUFFER-STRING) +CHAT.BUTTONFN (CHATINEMACS TYPEOUTPROC) MSVERBTYPE (VPART VB1 VB2 TENSE TYPE DEFAULTTYPE ROOT MODIFIER +) \POSTSCRIPT.ACCENTFN (IMAGEDATA POSTSCRIPTCHARSTOSHOW OFFST BASE LENGTH FATSTRINGP) +\LFUpdateLeaderPage (LEADERPAGE EPAGE EOFFSET size FILEDESC) \FM.SETATTACHPOINT (FM.USERDATA WIDTH +LEFT HEIGHT BOTTOM) \TEDIT.FIND.LAST.LINE (LINES \WINDOW YBOT WBOTTOM NEXTLINE) \TEDIT.LOOKS.UPDATE ( +TEXTOBJ PREVPIECE PPARALOOKS CURRENTPARALOOKS PLOOKS CLINVISIBLE BASE PLEN NEXTPIECE CURRENTLOOKS +CLFONT CLOFFSET FMTHARDCOPY CLPROTECTED POBJ) SEDIT::SETUP-CONTEXT (SEDIT::CONTEXT-LOCK SEDIT::PROFILE + SEDIT::CHANGED-STRUCTURE?) COMP.STBIND (PARENT LEVEL NVALS OPNAME VARS OPARG) \SPREADFRAMEP (IVAR +BLINK NARGS) DINFO.UPDATE.MENU.DISPLAY (WINDOW SUBNODE.MENU.WINDOW CHILDREN NODELST MENUFONT LABEL +ITEMHEIGHT IMAGEHEIGHT BOTTOM) DMCHAT.HANDLE.WRAP (TERM.STATE) \INTERPFRAMENT (VALIDNAMETABLE +NAMETABHI NAMETABLE#) \EDIT.DOWNCARET (TCCARETDS TCCARET) CL:SET-DISPATCH-MACRO-CHARACTER ( +DISPATCHMACRODEFS) SHOWSHADEDITEMS (ITEMS SHADEDITEMS WIDTH) \SENDLEAF (LEAFERRORCNT FULLFILENAME +LEAFLENGTH PUPCONTENTS EPUSERFIELD SEQEVENT LEAFOPCODE LEAFERRORCODE) MENUITEMREGION (ITEMS MENUGRID +MENUBORDERSIZE LEFT MENUCOLUMNS WIDTH BOTTOM MENUROWS HEIGHT) SETSTKARG (NTSIZE OVERHEADWORDS IVAR +BLINK FIRSTPVAR NARGS FNHEADER NLOCALS BOUND) SKIP/ZAP (END) STKARGNAME (NTSIZE OVERHEADWORDS +NAMETABLE NARGS BLINK NLOCALS BOUND FIRSTPVAR) SETSTKARGNAME (NTSIZE OVERHEADWORDS NAMETABLE NARGS +BLINK NLOCALS) MB.DEFAULTBUTTON.ACTIONFN (CH# TEXTLEN SCRATCHSEL CHLIM) MSFIXUPTYPES (SOUGHT ID ITEM +SUBJECT TYPE MSPRED DEFAULTTYPE REP NEGATED KNOWN) SEDIT::INSERT-STRING (SEDIT::SELECT-START +SEDIT::SELECT-END SEDIT::SELECT-STRING SEDIT::SELECT-TYPE SEDIT::POINT-INDEX SEDIT::POINT-STRING +SEDIT::POINT-TYPE) DINFO.UPDATE.TEXT.DISPLAY (WINDOW FROMBYTE TOBYTE TEXTPROPS) \FM.UPDATEWINDOWEXTENT + (WIDTH HEIGHT) \POSTSCRIPT.ACCENTPAIR (IMAGEDATA POSTSCRIPTFONT OFFST BASE LENGTH FATSTRINGP +\SFAscent) \FM.COLLECTNWAYS (FM.USERDATA) %%DEFPRINT-ARRAY (HASHMACROCHAR) \CONVERTNUMBER (COMMONLISP +HASHMACROCHAR) PRETTYDEF (FILECHANGES) STKNARGS (FRAMENAME NARGS BLINK NTSIZE OVERHEADWORDS FNHEADER +NLOCALS) OPT.LABELNTHPR (NXT PREV) FILEPKGCHANGES (CHANGED) SET-FILL-POINTER (FILL-POINTER-P +TOTAL-SIZE) TTECHO.TO.FILE (END START CPXREALCHAR CPXNCHARS NEXTLINE) OPT.JUMPREV (LEVEL FRAME NXT +PREV OPNAME OPARG TAG) %%DEFPRINT-VECTOR (HASHMACROCHAR) \HDCPYDISPLAY.FIX.XPOS (IMAGEDATA DDXPOSITION +) FB.HARDCOPY.MAXWIDTH (FILEINFO TIDATA) FB.IS.NOT.SUBDIRECTORY.ITEM (TIUNSELECTABLE) +%%DEFPRINT-GENERIC-ARRAY (HASHMACROCHAR) EQUAL.CH.NAMES (NSOBJECT NSDOMAIN NSORGANIZATION) +\TEDIT.FIND.PROTECTED.END (TEXTLEN PCTB CLPROTECTED PLOOKS PLEN NEXTPIECE) \GOOD.DASHLST (BRUSHSIZE) +%%DEFPRINT-STRING (ESCAPECHAR COMMONLISP) CL:VECTOR-PUSH (FILL-POINTER-P FILL-POINTER) +%%DEFPRINT-BITVECTOR (HASHMACROCHAR) MENUREGION (IMAGEWIDTH IMAGEHEIGHT MENUREGIONLEFT +MENUREGIONBOTTOM) FB.NAMES.INCREASING.VERSION (VERSIONLESSNAME TIDATA VERSION) RESHADEITEM (MENUFONT +CENTERFLG) FIXR (HINUM LONUM SIGNBIT LOFRACTION HIFRACTION EXPONENT) COURIER.BROADCAST.CALL ( +RTHOPCOUNT RTNET#) REFLECT/GRAPH/DIAGONALLY (SIDESFLG GRAPHNODES NODEPOSITION YCOORD XCOORD) +BITMAPWIDTH (BITMAPWIDTH) \LEAF.CLOSEFILE (LEAFCONNECTION LEAFOPENCLOSELOCK SEQSTATE ACCESSBITS +LEAFCACHEDFILE FULLFILENAME LEAFREALLYOPEN LEAFHANDLE PUPCONTENTS) DECLAREDATATYPE (fdType fdOffset) +READFROMBUF (END CPXREALCHAR NEXTLINE) BITMAPHEIGHT (BITMAPHEIGHT) FLTSTR (HINUM LONUM SIGNBIT +LOFRACTION HIFRACTION EXPONENT) \TELERAIDGET (EPTYPE PUPDESTSOCKETLO PUPDESTHOST NDBPUPHOST# +PUPDESTSOCKETHI NETTYPE TRANSOPERATION TRANSPUPHOST) \SETWINFOYSIZE (ATMAXY ATMINY) \MAXHEIGHTOFGROUP +(ATWHEREONEDGE ATMINY) \VAMFindFreePages (lowerBound filePage volumeSize nextFilePage) TIMESPOW10 (EXP + HI LO) TRANSLATE.DATATYPE (FD fdType LEN) GETPUPSTREAM (PUPCONTENTS PUPLENGTH) GETDEFERR (NULLDEF) +INTTOEXT (HINUM LONUM) LINELENGTH (LINELENGTH) HASH-DOT (COMMONLISP) \TEDIT.NEUTRALIZE.PARALOOKS.MENU +(\TEXTOBJ CH# SCRATCHSEL) FLTINTLOG (EXP HI LO) \RESHAPEATTACHEDWINDOWSAROUNDMAINW (TOP RIGHT BOTTOM +LEFT ATTACHEDW HEIGHT WIDTH ATWHEREONEDGE ATEDGE ATYSIZE ATXSIZE) \UPDATEXYANDBOX (XCOORD YCOORD) +FW-CLOSEFN (OFDWINDOW) \NSRANDOM.UPDATE.VALIDATION (NSHDATUM) RPLCHARCODE (LENGTH FATSTRINGP BASE +OFFST) MB.SELFN (\TEXTOBJ) PUTPUPBYTE (PUPCONTENTS) GETDEFCOM0 (MACRO) FB.DECREASING.VERSION (VERSION +TIDATA) SEDIT::SET-POINT (SEDIT::SET-POINT SEDIT::NODE-TYPE) TRACKNODE (GRAPHNODES) NODELST/AS/MENU ( +XCOORD YCOORD NODEPOSITION NODEHEIGHT NODEWIDTH) \NSRANDOM.WROTE.HANDLE (NSHWASWRITTEN NSHDATUM +NSHWASMODIFIED NSHATTRIBUTES) \TEDIT.PUT.SINGLE.PARALOOKS (1STLEFTMAR LEFTMAR RIGHTMAR LEADBEFORE +LEADAFTER LINELEAD TABSPEC QUAD TABX TABKIND FMTSPECIALX FMTSPECIALY FMTUSERINFO FMTPARATYPE +FMTPARASUBTYPE FMTSTYLE FMTCHARSTYLES FMTNEWPAGEBEFORE FMTNEWPAGEAFTER FMTHEADINGKEEP FMTKEEP +FMTBASETOBASE FMTREVISED FMTCOLUMN) OPT.LBDEL (PREV NXT) COPY.TEXT.TO.IMAGE (EOFP DEVICE) +REFLECT/GRAPH/VERTICALLY (GRAPHNODES NODEPOSITION YCOORD) DMCHAT.ADDRESS (ADDRESSING) SET/LABEL/SIZE ( +NODEHEIGHT NODEWIDTH NODEFONT NODELABEL NODEBORDER YSIZE XSIZE) HASH-COMMA (COMMONLISP) DIGITSBDP ( +HINUM LONUM SIGNBIT LOFRACTION HIFRACTION EXPONENT) SEDIT::INSERT-LITATOM (SEDIT::SELECT-TYPE +SEDIT::POINT-TYPE) SEDIT::DOT-THIS-LIST (SEDIT::CARET-POINT SEDIT::POINT-NODE SEDIT::POINT-INDEX +SEDIT::SUB-NODES CL:STRUCTURE SEDIT::SELECTION) %%NUMERIC-STRING-P (OFFST BASE LENGTH FATSTRINGP) +\POSTSCRIPT.SPECIALOUTCHARFN (IMAGEDATA) TTYINSTRING (CPXREALCHAR) READHOTSPOT (CUHOTSPOTX WIDTH +CUHOTSPOTY HEIGHT) \FM.WINDOWEXTENT (FM.USERDATA) PARSE-NAMESTRING1 (FULLFILENAME) +TYPE-VARIABLE-FROM-TYPE-NAME (PNAMEBASE PNAMELENGTH FATPNAMEP LENGTH) INSIDEP (XCOORD YCOORD) +TTDELETECHAR (END START) \NSRANDOM.WRITE.SEGMENT (NSHDATUM) SEDIT::SET-DEPTH (SEDIT::SUB-NODES) +\BREAKAPARTATWSTRUCTURE (ATTACHEDW) GETBOXREGION (REGION) EDITMOVENODE (GRAPHNODES) SETFONT.IP (IPDATA + IPPAGEFONTS) GETPUPSTRING (PUPLENGTH PUPCONTENTS) GETDEFCURRENT (GETDEF NULLDEF TOBEDUMPED FILEPROP +FILEDATES) FB.SORT.VERSIONS (VERSIONLESSNAME TIDATA) \TEDIT.HCPYLOOKS.UPDATE (TEXTOBJ PREVPIECE +PPARALOOKS CURRENTPARALOOKS PLOOKS CLINVISIBLE BASE PLEN NEXTPIECE CURRENTLOOKS CLFONT CLOFFSET +\SFAscent \SFDescent CLUSERINFO POBJ) SCAN.LESSP (LX) TTNEXTLINE (NEXTLINE) DINFO.UPDATE.GRAPH.DISPLAY + (WINDOW PARENT CHILDREN LAST.GRAPH.LOCATION GRAPH.WINDOW NAME LABEL CURRENTNODE) +\FM.UPDATEGROUPEXTENT (LEFT BOTTOM WIDTH HEIGHT) \POSTSCRIPT.PRINTSLUG (IMAGEDATA POSTSCRIPTX +POSTSCRIPTY POSTSCRIPTWIDTHS \SFAscent POSTSCRIPTFONT) COMPILEDFETCHFIELD (fdTypeName fdType fdOffset) + WBOX (LEFT BOTTOM WIDTH HEIGHT) TB.FINISH.CLOSE (TBLOCK) SEDIT::SELECT-NEXT-GAP (SEDIT::SELECTION) +OPT.UBDEL (OPARG) APPENDIDENTIFIER.IP (OFFST BASE LENGTH FATSTRINGP) REFLECT/GRAPH/HORIZONTALLY ( +GRAPHNODES NODEPOSITION XCOORD) TERM.PRINTCHAR (DSP IMAGEDATA XPOS DDCHARSET DDCHARIMAGEWIDTHS +DDWIDTHSCACHE YPOS FONTDESCENT FONTHEIGHT UNDERLINEMODE FONTWIDTH TTYWIDTH WRAPMODE) DRAWLINE ( +IMDRAWLINE IMAGEOPS) \DSPRIGHTMARGIN.HDCPYDISPLAY (IMAGEDATA) COMPILEDREPLACEFIELD (fdTypeName fdType +fdOffset) OPT.PRDEL (PREV NXT) DINFO.UPDATE.HISTORY (WINDOW HISTORY.MENU.WINDOW HISTORY.ITEMS ID LABEL + MENUFONT) MOVETO (IMMOVETO IMAGEOPS) TERM.ADDLINE (DSP TTYWIDTH FONTHEIGHT YPOS FONTDESCENT) SQRT ( +EXP HIFRAC) \CHARWIDTH.HDCPYDISPLAY (IMAGEWIDTHS FONTCHARSETVECTOR DDFONT IMAGEDATA) MSJOINSET (ID REP + QUOTED DET TYPE DEFAULTTYPE KNOWN) SEDIT::HASFAT (OFFST BASE LENGTH FATSTRINGP) \FM.TRANSPOSEVERT ( +BOTTOM) DSPBACKCOLOR (IMBACKCOLOR IMAGEOPS) TTRATOM (TTYINPUT) COMP.LOOKUPCONST (OPARG) OPENIPSTREAM ( +LEFT RIGHT TOP BOTTOM IMAGEOPS EOLCONVENTION IPPAGEFRAME) \TEDIT.PARSE.CHARLOOKS.LIST (CLFONT CLOFFSET +) \VFMMarkBufferDirty (PAGE) FW-UPDATE-OFD-WINDOW (OFDSTREAM FILESTREAM CURPOS EOFPOS PCTPOS PCTREGION + WRITING? RANDOM? FULLNAME ACCESSXOFFSET READING? CURPOSXOFFSET EOFPOSXOFFSET PCTPOSXOFFSET LEFT +BOTTOM) MB.SETIMAGE (XSIZE YSIZE) PUTPUPWORD (PUPCONTENTS) FB.DELVER.FILES (VERSIONLESSNAME TIDATA) +TEDIT.HARDCOPY.PAGEHEADING (PIECE FMTPARASUBTYPE PLEN NEXTPIECE PPARALAST FMTPARATYPE PPARALOOKS +PAGEHEADINGS) SEDIT::LINEARIZE (SEDIT::RELINEARIZATION-TIME-STAMP SEDIT::CURRENT-NODE SEDIT::LINEAR-THREAD + SEDIT::LINEAR-PREV SEDIT::LINEAR-POINTER SEDIT::RIGHT-MARGIN SEDIT::SUB-NODE-INDEX SEDIT::ACTUAL-WIDTH + SEDIT::START-X SEDIT::INLINE? SEDIT::SUPER-NODE SEDIT::CURRENT-X SEDIT::LINEARIZE SEDIT::NODE-TYPE +SEDIT::LINEAR-FORM) EXTENDREGIONTOP (TOP HEIGHT) DSPBOTTOMMARGIN (IMBOTTOMMARGIN IMAGEOPS) FW-OPENP ( +OPENP OPENFILELST USERVISIBLE) READ-AFM-FILE (FID ASCENT DESCENT) RESTOREBUF (ROW OLDTAIL) +PARSE.NSNAME (NSOBJECT NSORGANIZATION NSDOMAIN) SHEDSCAN (REST X Y WIND) DSPCOLOR (IMCOLOR IMAGEOPS) +\10MB.TURNONETHER (NDBCSB) \FM.TRANSPOSEHORZ (LEFT) \LFDeleteFile (OPENP FULLFILENAME VOLUME FILEDESC) + \FM.GETBITMAPS (WIDTH HEIGHT) \UFS.UNREGISTER.GFS (FINFOID) SEDIT::REVIVE-NODE (SEDIT::SUB-NODES) +\PFReplaceString (OFFST BASE LENGTH FATSTRINGP) PRETTYCOM (MACRO GETDEF) OPT.LBMERGE (LEVEL FRAME) +\UNVISIBLE.FLUSH.OPEN.STREAMS (OPENFILELST USERVISIBLE ACCESSBITS FORCEOUTPUT) +SEDIT::GROW-SELECTION-LITATOM (SEDIT::SELECT-START) \MAIKO.PUNTBLTCHAR (DDCHARSET DDSlowPrintingCase +DDXPOSITION DDCHARIMAGEWIDTHS DDRightMargin DDLeftMargin DDWIDTHSCACHE DDXOFFSET DDClippingRight +DDClippingLeft PBTHEIGHT DDPILOTBBT) GET-ENVIRONMENT-AND-FILEMAP (FMFILEMAP FMENVIRONMENT FMFROMFILE? +FMFILECREATEDLOC FMFILECREATEDLST) TERM.DOWN (DSP XPOS YPOS FONTHEIGHT BOTTOMMARGIN FONTDESCENT +ROLLMODE HOMEPOS TOPMARGIN) DSPCLIPPINGREGION (IMCLIPPINGREGION IMAGEOPS) \DSPFONT.HDCPYDISPLAY ( +IMAGEDATA FONTCHARSETVECTOR CHARSET \SFHeight WIDTHS) PSCFONT.WRITEFONT (WIDTHS FID HIBYTE LOBYTE +FIRSTCHAR LASTCHAR ASCENT DESCENT) \UNVISIBLE.PAGED.REVALIDATEFILELST (OPENFILELST USERVISIBLE +UNREGISTERFILE) \INIT.POWERS.OF.TEN (EXP HI LO) \GETREGIONTRACKWITHBOX (XCOORD YCOORD) \SETGROUPMIN ( +ATEDGE ATMINY ATMAXX ATWHEREONEDGE ATMINX ATMAXY) DSPRESET (IMRESET IMAGEOPS) SEDIT::AWAKE-COMMAND-PROCESS + (SEDIT::DISPLAY-WINDOW) FW-CLOSE-OLD-OFD-WINDOWS (OFDSTATUS OFDWINDOW) MB.DISPLAY (YDESC XSIZE YSIZE) + \TEXTTTYBOUT (TEXTOBJ SEL CCECHO NSCHARHASH TXTTERMSA CHARPOSITION) GETPUPBYTE (PUPCONTENTS) +\TEDIT.PARSE.PARALOOKS.LIST (TABSPEC) TTDELETEWORD (START) TEDIT.SKIP.SPECIALCOND (PIECE +FMTPARASUBTYPE PLEN NEXTPIECE PPARALAST FMTPARATYPE PPARALOOKS) \FAULTINIT (MachineType FPTOVPStart +FullSpaceUsed DL24BitAddressable NActivePages CCODEP) \INIT.ETHER.BUFFER.POOL (MDSZoneLength MDSZone +D0NEXTIOCB) \BN.FROM.FIXP (ELEMENTS) \MAKEFRAME (DEFPOINTER LSTARP NA STARTPC) DSPFONT (IMFONT +IMAGEOPS) \SET.VMEM.FULL.STATE (NActivePages Key) \VFMDelete1 (used volumePage key) \UFSDirectoryNameP + (DEVICENAME) GETREGION (REGION) FW-RESIZE-OFD (NAMEWIDTH XCOORD WIDTH) SETRGB.IP (IPCOLORMODEL +IMAGEDATA) PRINTDATE (FILECHANGES FILEDATES FILEDATE DATEFILENAME) CLEARPUP (PUPBASE PUPCONTENTS) +\SETIOPOINTERS (MachineType ScreenWidth DLMOUSEXPTR DLMOUSEYPTR DLCURSORXPTR DLCURSORYPTR DLUTILINPTR +DLKBDAD0PTR DLKBDAD1PTR DLKBDAD2PTR DLKBDAD3PTR DLKBDAD4PTR DLKBDAD5PTR DLDISPINTERRUPTPTR +DLCURSORBITMAPPTR) DSPLEFTMARGIN (IMLEFTMARGIN IMAGEOPS) \TELERAIDINIT (BITMAPBASE BITMAPHEIGHT) +LOOKUP-ENVIRONMENT-AND-FILEMAP (FMENVIRONMENT FMFILEMAP FMFILECREATEDLOC FMFILECREATEDLST) +\D01.FAULTINIT (REALPAGETABLEPTR RPTSIZE RVersion) \UFSGenerateFiles (DEVICENAME) SET/LAYOUT/POSITION +(NODEPOSITION XCOORD YCOORD) \DOVE.FAULTINIT (Key NActivePages DLLastVmemPage) \UFSSetFileInfo ( +DEVICENAME UNIXNAME) \UFSOpenFile (DEVICENAME FILEID UNIXNAME ACCESSBITS) \TEDIT.UPDATE.SHOWSEL ( +\TEXTOBJ HOW HOWHEIGHT HASCARET CARET CH# L1 LINES \WINDOW X0 CHLIM LN XLIM POINT YBOT) \DL.FAULTINIT +(Key DLTODVALID DLTODLO DLTODHI DLPROCESSORCMD DLPROCESSOR0 DLPROCESSOR1 DLPROCESSOR2 DLLastVmemPage) +IN/ITEM? (XCOORD YCOORD SELECTABLEITEMREGION) DSPLINEFEED (IMLINEFEED IMAGEOPS) \SEQUIN.HANDLE.ACK ( +SEQRETRANSMITQ SEQRETRANSMITTING %#UNACKEDSEQS SENDSEQ SEQACKED) TEDIT.BUILD.PCTB (STREAMHINT FMTSPEC +EOLCONVENTION PLEN PLOOKS PPARALOOKS NEXTPIECE TXTCHARLOOKSLIST TXTPARALOOKSLIST DEFAULTCHARLOOKS +CARETLOOKS) \UFSWritePages (CPAGE CBUFMAXSIZE COFFSET EPAGE EOFFSET FILEID) \TEXTMARK (STREAMHINT +PIECE CPAGE COFFSET PCSTARTPG PCSTARTCH) DSPOPERATION (IMOPERATION IMAGEOPS) \TEDIT.PAPERWIDTH ( +TPSWIDTH) \10MB.LOADINPUTQ (EPNETWORK 10MBPACKETBASE EPLINK) \TEDIT.INTEGER.IMAGEBOX (XKERN YDESC +YSIZE XSIZE) SNAPW (SCREEN REGION SCDESTINATION LEFT BOTTOM SAVE WIDTH HEIGHT) \UFSTruncateFile (EPAGE + EOFFSET GETFILEPTR DEVICE FILEID UNIXNAME) SEDIT::MAP-COMMENT-INDEX (SEDIT::SUB-NODES SEDIT::OPEN-NODE + SEDIT::REAL-LENGTH STRING SEDIT::LINEAR-FORM CL:STRUCTURE) DSPRIGHTMARGIN (IMRIGHTMARGIN IMAGEOPS) +\SPP.CHECK.INPUT.QUEUE (SPPACKNO SPPINPUTQ SYSQUEUEHEAD SEQNO QLINK) OPT.JUMPTHRU (FRAME LEVEL PREV +NXT OPNAME TAG OPARG) \VFMSaveBuffer (DIRTY VOLUME VOLPAGENUM PAGE) \UFSDeleteFile (DEVICENAME) +\FILEMAP-HASHOVERFLOW (FMROOTNAME FMFILECREATEDLST FMRECENT?) SEDIT:REPLACE-SELECTION (SEDIT::SELECTION + SEDIT::CARET-POINT SEDIT::SELECT-NODE SEDIT::SELECT-TYPE) DMCHAT.NEWLINE (YPOS DSP) DSPTOPMARGIN ( +IMTOPMARGIN IMAGEOPS) FB.DELVERCOMMAND (TABLEBROWSER TIUNSELECTABLE VERSION TIDATA SORTBY) +\TELERAIDCOMMAND (TRCONTROLD TRCURSOR TRCONTROLN NDBPUPHOST# TRRAID TRCONTROLS) SEDIT::GET-BUTTON-STRING + (SEDIT::LINEAR-FORM SEDIT::NODE-TYPE SEDIT::PRIN-2? STRING) DINFO.SETUP.WINDOW (NAME) +\FM.INITCORNERSFN (LEFT BOTTOM) \LFRenameFile (OPENP GETFILENAME DIRINFO EXPANDEDNAME LEADERPAGE) +FLUSHFILEMAPS (FMROOTNAME) \UFSCloseFile (DEVICE UNIXNAME ACCESSBITS TRUNCATEFILE CDATE FILEID +FULLFILENAME) SEDIT::REPLACE-ROOT (SEDIT::SUB-NODES SEDIT::LINEAR-FORM SEDIT::DEPTH) TRACKW (LEFT REG +BOTTOM) DSPSCALE (IMSCALE IMAGEOPS) \UFSGetFileInfo (DEVICENAME UNIXNAME) TTYINENTRYFN (TTOLDRIGHTFN) +SIZE/GRAPH/WINDOW (WIDTH HEIGHT LEFT PTOP BOTTOM) GETSYNTAX (READSA BREAK TERMSA TERMCLASS +READMACRODEFS MACROTYPE VAL MACROCONTEXT WAKEUP ESCAPE) \TEDIT.CARETLOOKS.VERIFY (CARETLOOKS +DEFAULTCHARLOOKS) \TEDIT.HCPYFMTSPEC (1STLEFTMAR LEFTMAR RIGHTMAR LEADBEFORE LEADAFTER LINELEAD +FMTBASETOBASE QUAD TABSPEC FMTSPECIALX FMTSPECIALY) \BULK.DATA.CLOSE (BULK.DATA.CONTINUATION +SPPSUBSTREAM PROGRAM PROCEDURE ACCESSBITS EOFP DEVICE SPPINPUTSTREAM PGMDEF PROCDEF NOERRORFLG +FULLFILENAME) \TEXTDSPXPOSITION (\WINDOW) \INSPECTW.COMMAND.HANDLER (COMMANDFN ITEMINFOTYPE ITEMINFO) +DSPSPACEFACTOR (IMSPACEFACTOR IMAGEOPS) \TEDIT.PAPERHEIGHT (TPSHEIGHT) \SEQUIN.FLUSH.RETRANSMIT ( +SEQRETRANSMITNEXT SEQRETRANSMITQ EPLINK) \DOFORMATTING.HARDCOPY (QUAD SPACELEFT CHARS WIDTHS DESCENT +ASCENT LINELEAD LHEIGHT LEADBEFORE LSTLN LEADAFTER LEFTMARGIN RIGHTMARGIN LEN LXLIM CR\END CHARLIM +TEXTLEN BASE) EDITSHADEREPAINTFN (LEFT BOTTOM WIDTH HEIGHT) \D01.ASSIGNBUFFERS (EMBUFVP EMUBUFFERS +EMUBUFLENGTH) MSSETSETTYPE (TYPE DEFAULTTYPE ID REP NEGATED SET1 SET2) \TEDIT.NSCHAR.RUN (PCTB PLEN +PFATP PSTR PFILE PFPOS TEXTLEN) \FM.FILLWINDOW (LEFT BOTTOM WIDTH HEIGHT) \LFTruncateFile (EPAGE +EOFFSET GETFILEPTR DEVICE AllocatedPages LEADERPAGE VOLUME) \CHAIN.UP.RPT (UNAVAILABLE EMPTY VP NEXTRP +) DSPXPOSITION (IMXPOSITION IMAGEOPS) FB.CLOSE&EXPUNGE (MENUCOLUMNS ITEMS BROWSERWINDOW) +SEDIT::REPLACE-NODE (SEDIT::CARET-POINT SEDIT::SELECTION SEDIT::SELECT-NODE SEDIT::DEPTH) +\GETREADSYNTAX (NSCHARHASH READSA READMACRODEFS MACROTYPE KEY MACROCONTEXT WAKEUP ESCAPE MACROFN) +CL:BIT-VECTOR-P (BIT-P) \UFS.ADD.HOST.FIELD (DEVICENAME) \PFRoomForFile (nextFilePage filePage type) +SEDIT:GET-SELECTION (SEDIT::SELECTION SEDIT::SELECT-NODE CL:STRUCTURE SEDIT::SELECT-START SEDIT::SELECT-END + SEDIT::SELECT-STRING SEDIT::SELECT-TYPE) \GETTERMSYNTAX (TERMCLASS NSCHARHASH TERMSA) TERM.DELCHAR ( +DSP TTYWIDTH XPOS FONTWIDTH FONTHEIGHT YPOS FONTDESCENT) DSPYPOSITION (IMYPOSITION IMAGEOPS) +\UFSReadPages (FILEID EPAGE EOFFSET) OPT.XVARSCAN1 (VARS PARENT) GETPOSITION (POSITION) \VFMDelete2 ( +volumePage used key) \DEVICEFILE.EOSERROR (ACCESS FULLNAME BUFFS VMEMPAGE FILEID) SETCOLOR16.IP ( +BITMAPBASE) \UFS.FULLNAME (DEVICENAME) \UFS.OPENP (OPENFILELST DEVICENAME UNIXNAME) CL:ARRAY-DIMENSIONS + (TOTAL-SIZE BOUND0 BOUND1 DIMS) DSPROTATE (IMROTATE IMAGEOPS) \FM.RESETCLIPPINGREGION (LEFT BOTTOM) +PTPLUS (XCOORD YCOORD) \LFGetFileInfo (LEADERPAGE EPAGE EOFFSET TYPE TimeWrite TimeRead TimeCreate +author) SEDIT::DELETE-LITATOM (SEDIT::NODE-TYPE SEDIT::SUPER-NODE) SEDIT::RELINEARIZE-WHERE-NECESSARY +(SEDIT::CHANGED-NODES SEDIT::DEPTH SEDIT::SUPER-NODE SEDIT::ASSIGN-FORMAT SEDIT::NODE-TYPE CL:FORMAT +SEDIT::CHANGED?) \M44ACTONVMEMFILE (ISFLAST) DSPPUSHSTATE (IMPUSHSTATE IMAGEOPS) \SHOWSEL.HILIGHT ( +YBOT X0 XLIM LHEIGHT FMTHARDCOPY LFMTSPEC LXLIM NEXTLINE WBOTTOM LEFTMARGIN) PPSPPSTREAM (SPPEOFP) +\TEXTDSPYPOSITION (\WINDOW) NESTED.SUBMENU (CENTERFLG MENUFONT MENUBORDERSIZE MENUOUTLINESIZE +WHENHELDFN WHENUNHELDFN SUBITEMFN) TERM.LEFT (XPOS FONTWIDTH YPOS DSP) \ITEM.WINDOW.SELECTION.HANDLER +(ITEMINFOTYPE ITEMINFO) \UFS.REMOVE.HOST.FIELD (DEVICENAME) MENUTITLEFONT (IMAGE SCREEN MENUTITLEFONT +SCTITLEDS MENUFONT) FB.DELETE.FILE (TIDELETED DELETEDFILES SIZE TIDATA DELETEDPAGES) \TEDIT.FORMATTABS + (PTTYPE PTTABX PTOLDTX PTWBASE TABX TABKIND) \RESHOWBORDER1 (REG SAVE WIDTH HEIGHT DSP WTITLE +SCTITLEDS SCREEN BITMAPBITSPERPIXEL SCDESTINATION LEFT BOTTOM BITMAPWIDTH) RENUMBER.LINES (NEXTLINE) +DSPPOPSTATE (IMPOPSTATE IMAGEOPS) ACCEPT-UNIX-SOCKET-STREAM (OPENFILELST) SEDIT::ATOM-CHAR-ESCAPED ( +CASEINSENSITIVE INNERESCQUOTE NSCHARHASH READSA) D-ASSEM::MAX-ARG (OP#) MSKNOWN (ID REP NEGATED SET1 +SET2) DSPDEFAULTSTATE (IMDEFAULTSTATE IMAGEOPS) \FM.UNSCROLLWINDOW (LEFT BOTTOM) \LFGetFileName ( +EXPANDEDNAME) \INITBFS (SYSDISK DDHEADER CBQUEUE CBNEXT DD#DISKS DD#TRACKS DD#HEADS DD#SECTORS ISFMAP +ISFEND ISFCHUNKSIZE FPVERSION) \QUEUE.INPUT.IOCB (NDBCSB DLFIRSTICB DLLASTICB DLIOCBSTATUS D0FIRSTICB +D0LASTICB D0IOCBSTATUS NDBTASK#) EXTENDREGIONRIGHT (RIGHT WIDTH) SEDIT::RECOMPUTE-WIDTH (SEDIT::FIRST-LINE + SEDIT::LAST-LINE SEDIT::START-X SEDIT::ACTUAL-LLENGTH SEDIT::LINE-LENGTH SEDIT::NODE SEDIT::ACTUAL-WIDTH +) COMP.CONST (OPNAME OPARG) OPT.XVARSCAN (VARS OPNAME OPARG PREV) \TELERAIDSERVER (PUPTYPE PUPIDLO +LOBYTE PUPIDHI HIBYTE INVALID VACANT PUPCONTENTS WORDINPAGE TRCOMMAND TRCURSOR) +SEDIT::COPY-STRUCTURE-STRING (CL:STRUCTURE SEDIT::FONT SEDIT::LINEAR-FORM SEDIT::ATOM-CHARS) +RESHOWBORDER (WBORDER) DSPSCALE2 (IMSCALE2 IMAGEOPS) MB.THREESTATE.SHOWSELFN (XSIZE YSIZE SET) PPSPP ( +SPPSOURCENSADDRESS SPPSOURCEID SPPDESTNSADDRESS SPPDESTID SPPESTABLISHEDP SPPDSTYPE SPPTERMINATEDP +SPPACKREQUESTED SPPACKREQTIME SPPROUNDTRIPTIME SPPACTIVITYTIMER SPPACKNO SPPACCEPTNO SPPINPUTSTREAM +SPPINPKT SPPINPUTQ SPPSEQNO SPPACKEDSEQNO SPPOUTPUTALLOCNO SPPOUTPUTSTREAM SPPRETRANSMITQ SPPSUBSTREAM + ACCESS) TERM.ERASE.TO.EOL (XPOS YPOS FONTDESCENT TTYWIDTH FONTHEIGHT) \TEDIT.PURGE.SPACES (BASE) +TEDIT.PAGEFORMAT (REGIONFILLMETHOD) SEDIT::COLLECT-UNDO-BLOCK (SEDIT::UNDO-LIST) \SETTERMSYNTAX ( +TERMSA NSCHARHASH) MB.BUTTONEVENTINFN (XSIZE YSIZE) \UFS.DIRECTORY.NAME (DEVICENAME) +\TEDIT.GET.INSERT.CHARLOOKS (PCTB TEXTLEN POINT CH# CHLIM DEFAULTCHARLOOKS PCE CHNUM CLPROTECTED +PLOOKS) TB.MAP.SELECTED.ITEMS (TBFIRSTSELECTEDITEM TBLASTSELECTEDITEM TISELECTED) \SETREADSYNTAX ( +NSCHARHASH READSA BREAK MACROP READMACRODEFS) EDITGRAPH2 (GRAPHNODES) DSPTRANSLATE (IMTRANSLATE +IMAGEOPS) SYNTAXP (BREAK NSCHARHASH READSA TERMCLASS TERMSA READMACRODEFS MACROTYPE VAL MACROCONTEXT +WAKEUP ESCAPE) \NSFILING.ADDQUOTES (OFFST BASE LENGTH FATSTRINGP) PRINT3TO10 (TRANSOPERATION +TRANSPUPHOST TRANSSENDERPUPHOST TRANSSENDERNSHOST TRANSNSHOST) \UFSDeleteFile-C (DEVICENAME) +\ITEMW.FLIPITEM (SELECTABLEITEMREGION LEFT BOTTOM WIDTH HEIGHT) \COPYSYNTAX (NSCHARHASH) CHECK.MARGIN +(END LASTCOL START NEXTLINE) DSPNEWPAGE (IMNEWPAGE IMAGEOPS) CREATE-UNIX-SOCKET-STREAM (OPENFILELST) +\TEXTLEFTMARGIN (\WINDOW LEFTMAR FMTSPEC) \MAPCHARTABLE (NSCHARHASH) PTDIFFERENCE (XCOORD YCOORD) +\VFMFind (volumePage key used nextKey) FW-CLOSE-CMD (OFDWINDOW FILESTREAM) \VAMRecomputeFreePageCount +(volumeSize freePageCount) LAYOUT/POSITION (NODEPOSITION) BIGNUM.DEFPRINT (HASHMACROCHAR ELEMENTS +COMMONLISP CHARPOSITION) CONTROL (CONTROLFLG) \UFStoOtherRenameMess (DEVICENAME) SEDIT::BACKSPACE-QUOTE + (SEDIT::SUB-NODES SEDIT::BACK-SPACE SEDIT::NODE-TYPE CL:STRUCTURE SEDIT::SELECTION SEDIT::CARET-POINT +) COPYTERMTABLE (TERMSA) \MAIKO.DO.MOVDS (DEFINITIONCELL DEFPOINTER DEFCELLFLAGS AUXDEFCELLFLAGS) +\UFSRenameFile-C (DEVICENAME) \TEDIT.WINDOW.SETUP (TXTFILE \DIRTY MENUFLG) \ATWGROUPSIZE (ATTACHEDW +WIDTH HEIGHT) DRAWBETWEEN (IMDRAWLINE IMAGEOPS XCOORD YCOORD) \VFMDeletePageGroup (fileID nextFilePage + type size key nextKey volumePage filePage) \NSRANDOM.HANDLE.ERROR (DEVICEINFO DEVICE OPENFILELST +NSFILING.CONNECTION FULLFILENAME FSPROTOCOLNAME) DELETECONTROL (DELCHARECHO LINEDELETE 1STCHDEL +NTHCHDEL POSTCHDEL EMPTYCHDEL) \INVERTITEM (MENUGRID MENUBORDERSIZE) \MAIKO.ASSIGNBUFFERS (PAGE#) +TYPESOF (LOADTYPE) DELFROMCOM (DELETE) \POSITION.MENU.IMAGE (MENUPOSITION SCREEN XCOORD YCOORD IMAGE +MENUOFFSET SCWIDTH IMAGEWIDTH SCHEIGHT IMAGEHEIGHT) FB.UPDATE.COUNTERS (COUNTERWINDOW COUNTERPOSITIONS + TOTALFILES TOTALPAGES DELETEDFILES DELETEDPAGES COUNTERPAGESTRING SHOWUNDELETED?) NESTED.SUBMENU.POS +(ITEMS MENUGRID MENUBORDERSIZE IMAGEDATA LEFT MENUCOLUMNS WIDTH DDXOFFSET BOTTOM MENUROWS HEIGHT +DDYOFFSET) \SHAPEW2 (REG DSP WBORDER SCREEN WIDTH HEIGHT BITMAPBITSPERPIXEL SCDESTINATION SAVE +RESHAPEFN) EXTENDREGIONLEFT (LEFT WIDTH) EDITDELETENODE (GRAPHNODES) PRINTSPP (XIPCONTENTS SOURCECONID + DESTCONID CC SYSTEMPACKET SENDACK ATTENTION ENDOFMESSAGE DSTYPE SEQNO ACKNO ALLOCNO XIPLENGTH +SPPCONTENTS) \STRINGOUT (OFFST BASE LENGTH FATSTRINGP) \TEXTRIGHTMARGIN (\WINDOW RIGHTMAR FMTSPEC +WRIGHT) PFI.HANDLE.DEFDEFINER (PATTERNS) OPT.SCANOPT (PREV OPNAME OPARG NXT) \M-VMEMSAVE (NActivePages + Key MiscFXP) NSOCKETEVENT (NSOCEVENT) \DOCOMPRESSVMEM (NActivePages) DMCHAT.CLEAR (WINDOW) +\10MB.INPUT.INTERRUPT (SYSQUEUEHEAD NDBIQ EPNETWORK 10MBPACKETBASE EPRECEIVING) \SEQUIN.CLEANUP ( +SEQSTATE) ITEMW.REPAINTFN (SELECTABLEITEMREGION ITEMINFO) DRAWCIRCLE (IMDRAWCIRCLE IMAGEOPS) +\TEDIT.APPLY.PARALOOKS (\TEXTOBJ CH# SCRATCHSEL MARL1 MARUNIT MARLN MARR MARTABS SEL DCH) +\FM.RESHAPEFN (WIDTH HEIGHT) SEDIT::PUNT-SET-POINT (SEDIT::SUPER-NODE SEDIT::SUB-NODE-INDEX) +DELETELINE (NEXTLINE END ROW START) \LFReadPages (FILEDESC EPAGE EOFFSET) RESETGRID.NEW (WIDTH HEIGHT) + BITMAPOBJ.SNAPW (WIDTH HEIGHT LEFT BOTTOM) SEDIT::PROPAGATE-WIDTH-CHANGE (SEDIT::ACTUAL-WIDTH +SEDIT::SUPER-NODE SEDIT::DISPLAY-WINDOW SEDIT::START-X) COMP.USERFN (OPARG) SHAPEW1 (REG DSP WBORDER +SCREEN WIDTH HEIGHT BITMAPBITSPERPIXEL SCDESTINATION SAVE RESHAPEFN) EQP (EDFXP) \FM.PUSHGROUP (BOTTOM + LEFT) EXTENDPASTVERTBOUNDARIES (BOTTOM TOP) \10MB.STARTDRIVER (NDBCSB) \UFS.HANDLE.RELATIVEDIRECTORY +(DEVICENAME) \IDLE.IS.PREVIOUS (UserPswdAddr) \TEXTSTREAM.FILENAME (TXTFILE FULLFILENAME) \TEXTDSPFONT + (CLFONT CARETLOOKS \WINDOW) FB.DELETECOMMAND (TABLEBROWSER) GETDELETECONTROL (DELCHARECHO LINEDELETE +1STCHDEL NTHCHDEL POSTCHDEL EMPTYCHDEL) DRAWARC (IMDRAWARC IMAGEOPS) CHAT.SET.EMULATOR (TYPEOUTPROC +INSTREAM) \FM.REDISPLAYMENU (LEFT BOTTOM WIDTH HEIGHT FM.USERDATA) ECHOCHAR (TERMSA CCECHO NSCHARHASH) + \LFSetFileInfo (LEADERPAGE) \FM.JUSTIFYGROUPS (RIGHT) OPT.SETUPOPT (OPNAME TAG OPARG) MARGINBAR ( +WIDTH) \TEDIT.FIXSELS (SEL SHIFTEDSEL MOVESEL DELETESEL SET) SEDIT::SHIFT-STRING (BASE OFFST) +\NOTE.3TO10 (NDBTRANSLATIONS) TERM.ADDCHAR (DSP XPOS YPOS FONTDESCENT FONTWIDTH FONTHEIGHT TTYWIDTH) +INTERSECT/REGIONP/LBWH (BOTTOM PRIGHT LEFT PTOP) \HDCPYDSPPRINTCHAR (IMAGEDATA CCECHO NSCHARHASH +CHARPOSITION DDXPOSITION DDLeftMargin DDRightMargin) PRINTATBOX (LEFT PTOP) OPT.POSTOPT (OPNAME OPARG) + SEDIT::COPY-SELECTION-LITATOM (SEDIT::SELECT-NODE CL:STRUCTURE SEDIT::SELECT-START SEDIT::SELECT-END +SEDIT::SELECT-STRING SEDIT::SELECT-TYPE SEDIT::POINT-TYPE) GETXIP (INQUEUE INQUEUELENGTH NSOCEVENT +EPTYPE) SEDIT::COMPOSE-PSEUDO-SELECTION (SEDIT::SUPER-NODE SEDIT::SUB-NODE-INDEX) \TEDIT.PARABOUNDS ( +PCTB TEXTLEN PLEN NEXTPIECE PPARALAST PREVPIECE) IOCBQLENGTH (D0NEXTIOCB) \HANDLE.RAW.PACKET (EPTYPE) +\SEQUIN.RETRANSMITNEXT (SEQRETRANSMITNEXT SEQRETRANSMITQ MYRECEIVESEQ SEQINALLOC SEQSOCKET EPLINK +%#SEQRETRANSMITS) \TEXTMENU.DOC.CREATE (MBLABEL MBBUTTONEVENTFN MBFONT TEXTOBJ MBCHANGESTATEFN +MBINITSTATE MBTEXT MBBUTTONS MBMAXITEMSPERLINE MBSTRING MBINITENTRY EDITPROPS) \DL.NEWFAULTINIT ( +NRealPages FPOCCUPIED FPVIRTUALPAGE RPTRBASE NActivePages UNAVAILABLE VACANT) MB.THREESTATEBUTTON.FN ( +\TEXTOBJ) DRAWCURVE (IMDRAWCURVE IMAGEOPS) SEDIT::BUILD-PRELINEARIZED-NODE (SEDIT::\X SEDIT::CURRENT-NODE + SEDIT::ENVIRONMENT) ECHOMODE (ECHOFLG) \LFWritePages (REVALIDATEFLG FILEDESC) +UPDATE/BM/DISPLAY/SELECTED/REGION (BITMAPWIDTH BITMAPHEIGHT) SEDIT::COMPUTE-SELECTION-POSITION-LITATOM + (SEDIT::SELECT-NODE SEDIT::LINEAR-FORM SEDIT::SELECT-STRING SEDIT::SELECT-START SEDIT::SELECT-END +SEDIT::FONT SEDIT::NODE-TYPE SEDIT::START-X SEDIT::FIRST-LINE SEDIT::SELECT-START-LINE) +SEDIT::PARSE--UNKNOWN (SEDIT::COMMENT-FONT SEDIT::ENVIRONMENT) GETECHOMODE (ECHOFLG) +FW-CHANGE-POSITION (OFDSTATUS OFDWINDOW WIDTH HEIGHT LEFT BOTTOM XCOORD YCOORD) GETCONTROL (CONTROLFLG +) PUTMENUPROP (MENUUSERDATA) \PARSE.PORTCONSTANT (OFFST BASE LENGTH FATSTRINGP) ADDTOCOM (ADD) COMP.EQ + (OPNAME OPARG) \TEDIT.HARDCOPY.MODIFYLOOKS (CLULINE YBASE LTRUEDESCENT CLOLINE LTRUEASCENT CLSTRIKE +CLFONT) RELMOVEW (RELMOVEWFN SCREEN) \TEDIT.APPLY.STYLES (CLSTYLE TXTSTYLESHEET CURRENTPARALOOKS +STREAMHINT FMTCHARSTYLES) UNIX-STREAM-CLOSE (OPENFILELST) RAISE (RAISEFLG) EXTENDPASTHORIZBOUNDARIES ( +LEFT RIGHT) \TEDIT.LINE.LIST (\WINDOW LINES) DRAWELLIPSE (IMDRAWELLIPSE IMAGEOPS) GETRAISE (RAISEFLG) +POLYSHADE.IP (OTHERPROPS) SEDIT::COMPUTE-POINT-POSITION-LITATOM (SEDIT::POINT-NODE SEDIT::POINT-STRING + SEDIT::POINT-INDEX SEDIT::FONT SEDIT::LINEAR-FORM SEDIT::NODE-TYPE SEDIT::START-X SEDIT::FIRST-LINE) +TEDIT.DELETELINE (PREVLINE NEXTLINE) \FM.JUSTIFYITEMS (FM.GROUPID FM.REGION FM.MAXREGION FM.USERDATA) +RESETTERMTABLE (TERMSA RAISEFLG DELCHARECHO LINEDELETE 1STCHDEL NTHCHDEL POSTCHDEL EMPTYCHDEL +CONTROLFLG ECHOFLG) \LFOpenFile (FULLFILENAME TimeCreate LEADERPAGE) SHOWBUTTON (REGION LABEL) +\UFS.REGISTER.GFS (FINFOID) SEDIT::PARSE--GAP (SEDIT::CURRENT-NODE SEDIT::LINEAR-ITEM) \DOFORMATTING ( +QUAD SPACELEFT CHARS WIDTHS DESCENT ASCENT LINELEAD LHEIGHT LEADBEFORE LSTLN LEADAFTER LEFTMARGIN +RIGHTMARGIN LEN LXLIM CR\END CHARLIM TEXTLEN BASE) SENDXIP (EPTRANSMITTING) +SEDIT::PSEUDO-SELECTION-FROM-SELECTION (SEDIT::SELECT-NODE SEDIT::SELECT-START SEDIT::SELECT-END) +SETTERMTABLE (TERMSA) TERM.DELETELINE (DSP TTYWIDTH FONTHEIGHT BOTTOMMARGIN YPOS FONTDESCENT) +DRAWPOLYGON (IMDRAWPOLYGON IMAGEOPS) \TEDIT.BASICFIND (SEL TEXTLEN STREAMHINT SET POINT CH# CHLIM) +\ONSCREENCLIPPINGREGION (SCREGION SCREEN IMAGEDATA) \EVAL-INVOKE-LAMBDA (NEXTBLOCK) \UFS.NEXTFILEFN ( +SUBGENERATORS FINFOID FILEID PROPP TOTALNUM DEVICENAME DIRECTORY NAME DEV MAX-DEPTH CURRENT-DEPTH +THISFILE GENFILESTATE) \SETTYPEMASK (DTDTYPEENTRY) FB.COUNTER.STRING (PAGECOUNT?) DMCHAT.RIGHT (XPOS +FONTWIDTH TTYWIDTH YPOS DSP) IN/SCROLL/BAR? (SCROLLFN REG VERTSCROLLREG WIDTH HORIZSCROLLREG) +PROMPTFOREVALED (XCOORD YCOORD) DRAWPOINT (IMDRAWPOINT IMAGEOPS) \VAMFreePageGroup (filePage +nextFilePage type volumePage freePageCount lowerBound) LASTC (LASTCCODE) UNIX-STREAM-EOFP-NEW (CBUFPTR + COFFSET CBUFSIZE) \FIXLOCALNET (NDBPUPNET#) POSTSCRIPT.PUTBITMAPBYTES (BITMAPWIDTH BITMAPHEIGHT +BITMAPBASE BITMAPRASTERWIDTH BASE) EXTENDREGIONBOTTOM (BOTTOM HEIGHT) D-ASSEM::START-PC-FROM-NT-COUNT-LOCAL + (OVERHEADWORDS) \FM.LAYOUTGRID (LEFT WIDTH HEIGHT) \NSRANDOM.FETCH.CACHE (NSFILING.PAGE.CACHE +NSPHEADER NSPTAIL) \UFS.FILEINFOFN (PROPP FINFOID THISFILE LENGTH PROTECTION WDATE RDATE AUTHOR AULEN) + FILLPOLYGON (IMFILLPOLYGON IMAGEOPS) TEDIT.GET (SEL PCTB \DIRTY PROMPTWINDOW STREAMHINT \WINDOW +DEFAULTCHARLOOKS FMTSPEC LINES TOTLEN SCRATCHSEL SHIFTEDSEL MOVESEL YBOT TXTFILE) +SEDIT::SELECT-NODE-SEGMENT (SEDIT::SELECTION SEDIT::CARET-POINT) \PEEKREFILL (PEEKEDCHAR RAISEFLG +KEYBOARDSTREAM) GRAPHDELETENODE (GRAPH.DELETENODEFN GRAPHNODES) TEXTSTREAM.TITLE (TXTFILE) \LOOKUPPORT + (PUPTYPE PUPLENGTH PUPCONTENTS NETHOST SOCKET) D-ASSEM::START-PC-FROM-NT-COUNT (OVERHEADWORDS) +FORWARD.DELETE.TO (END START NEXTLINE LASTCOL) \POLYSHADE.YSCAN.IP (BY LX RX WC TY) +TEDIT.MINIMAL.WINDOW.SETUP (SEL CARET \WINDOW LCBITMAP DISPLAYCACHE DISPLAYCACHEDS PTOP RIGHT BOTTOM +LEFT HEIGHT WIDTH LINES) DRAWTO (IMDRAWLINE IMAGEOPS IMXPOSITION IMYPOSITION) RATOM (USESILPACKAGE +READSA CASEINSENSITIVE BASE) LATTICE/BREAK/CYCLES (TONODES NODEID NODEPOSITION) \DL.ASSIGNBUFFERS ( +PAGE#) FILLCIRCLE (IMFILLCIRCLE IMAGEOPS) \BLTSHADE.GENERICPRINTER (WIDTH HEIGHT LEFT BOTTOM) \SUBREAD + (XBASE NSCHARHASH STOPATOM MACROCONTEXT READMACROFLG ESCAPEFLG EOFP DEVICE BASE OFFST LENGTH +MACROTYPE READMACRODEFS) RESETREADTABLE (READMACROFLG ESCAPEFLG COMMONLISP NUMBERBASE CASEINSENSITIVE +COMMONNUMSYNTAX USESILPACKAGE HASHMACROCHAR ESCAPECHAR MULTESCAPECHAR PACKAGECHAR DISPATCHMACRODEFS +READMACRODEFS READSA) \DL.MARK.PAGES.UNAVAILABLE (RPTRBASE) GETMENUPROP (MENUUSERDATA) TREEGRAPHNODE ( +NODEID PCE LO HI BF RANK CHNUM) \PS.BOUTFIXP (BASE POSTSCRIPTTEMPARRAY IMAGEDATA) \DL.UNMAPPAGES ( +FPOCCUPIED FPVIRTUALPAGE) HARDCOPYGRAPH (LEFT BOTTOM WIDTH HEIGHT YCOORD XCOORD GRAPHNODES) +\TEDIT.FIND.FIRST.LINE (LINES WRIGHT STREAMHINT TEXTLEN FORMATTEDP CHARLIM) ESCAPE (ESCAPEFLG) +\10MB.OUTPUT.INTERRUPT (SYSQUEUEHEAD NDBTQ EPNETWORK) TERM.UP (YPOS HOMEPOS XPOS FONTHEIGHT DSP) +\TOP-LEVEL-READ (USESILPACKAGE ENDOFSTREAMOP READSA CASEINSENSITIVE BASE) SEDIT::CLOSE-NODE-LITATOM ( +SEDIT::ATOM-STARTED SEDIT::UNDO-LIST SEDIT::ATOM-STARTED-UNDO-POINTER SEDIT::UNDO-UNDO-LIST CL:STRUCTURE + SEDIT::LINEAR-FORM STRING SEDIT::NODE-TYPE SEDIT::CARET-POINT SEDIT::SELECTION) \LFGenerateFiles (VOL + NAME OFFST BASE LENGTH FATSTRINGP VERSION LVlabel VOLUME) \DO.PROGV (OVERHEADWORDS) +DIRECTORY.NEXTFILE (FILEGENERATORS) \CREATEW1 (WIDTH HEIGHT CREATEWFN) FIND.MATCHING.QUOTE (NSCHARHASH + CPXREALCHAR) FILLRECTANGLE.IP (IMAGEDATA IPVISTOP IPVISBOTTOM IPVISLEFT IPVISRIGHT) RELDRAWTO ( +IMDRAWLINE IMAGEOPS IMXPOSITION IMYPOSITION) SEDIT::PARSE (SEDIT::CURRENT-NODE SEDIT::ENVIRONMENT SEDIT::\X + SEDIT::PARSE-INFO SEDIT::PARSE-INFO-UNKNOWN) EDITBMRESHAPEFN (BITMAPWIDTH BITMAPHEIGHT LEFT BOTTOM +BITMAPBITSPERPIXEL) \FZEROP (LOWORD HIWORDNOSIGNBIT) SHOWSTACKBLOCKS (EndOfStack FLAGS CHECKED SIZE +FRAMENAME NEXTBLOCK IVAR RESIDUAL) READP (DEVICE READP) READMACROS (READMACROFLG) +\UFS.ABORT.CL-DIRECTORY (GENFILESTATE FINFOID) READTABLEPROP (NUMBERBASE READTBLNAME COMMONLISP +COMMONNUMSYNTAX USESILPACKAGE CASEINSENSITIVE ESCAPECHAR MULTESCAPECHAR PACKAGECHAR HASHMACROCHAR) +\TEXTOPENF (TEXTOBJ PCTB HI) \10MB.PRINT.ENCAPSULATION (10MBSOURCEHOST 10MBDESTHOST) LAYOUTGRAPH ( +NODEPOSITION NODELABEL) POSTSCRIPT.SHOWACCUM (IMAGEDATA POSTSCRIPTCHARSTOSHOW POSTSCRIPTSPACEFACTOR +POSTSCRIPTSPACEWIDTH POSTSCRIPTNATURALSPACEWIDTH) SKIPSEPRCODES (READSA NSCHARHASH) EXTENDREGION (LEFT + PRIGHT BOTTOM PTOP RIGHT TOP) SEDIT::EDIT-SELECTION (SEDIT::SELECTION SEDIT::CARET-POINT +SEDIT::DISPLAY-WINDOW) BITMAPIMAGESIZE (IMBITMAPSIZE IMAGEOPS) MSCHECKBLOCKS (FILEPKGNAME) +\FM.LAYOUTCOLUMN (HEIGHT WIDTH) MB.CREATE.THREESTATEBUTTON (XSIZE YSIZE) \SEQUIN.RETRANSMIT ( +SEQRETRANSMITTING SEQRETRANSMITQ SYSQUEUEHEAD SENDSEQ SYSQUEUETAIL MYSENDSEQ) \FM.LAYOUTROW (WIDTH +HEIGHT) FB.COUNTERW.REDISPLAYFN (FBREADY) COMP.FLOATUNBOX (OPNAME OPARG) \VFMCreateVPage (volumePage) +\VAMAllocPageGroup (nextFilePage filePage freePageCount volumePage type) INITIALIZECOLOR.IP (IMAGEDATA +) MBUTTON.SET.FIELD (PCTB CHNUM CH# DCH POINT) \UFS.ABORT.DIRECTORY (FILEGENERATORS GENFILESTATE +FINFOID) \FAULTHANDLER (FAULTHI FAULTLO) TERM.MODIFY.ATTRIBUTES (DSP PLAINFONT) \SEQUIN.HANDLE.INPUT ( +PUPTYPE SEQCONTROL SEQBROKEN SENDSEQ MYRECEIVESEQ SEQIGNOREDUPLICATES ALLOCATE SEQINPUTQLENGTH +SEQMAXALLOC SEQOUTALLOC SEQEVENT RECEIVESEQ LASTACKEDSEQ SEQSTATE SEQINPUT SEQTIMEOUT SEQBASETIMEOUT +SEQTIMEDIN) SKREAD (NSCHARHASH READSA) \NSRANDOM.READ.SEGMENT (NSFILING.CONNECTION EPAGE EOFFSET +NSFILING.HANDLE ACCESSBITS NSFILING.SERVER.LENGTH NSHDATUM NSHWASREAD NSHATTRIBUTES) +DMCHAT.HANDLECHARACTER (DSP DINGED WINDOW AUTOLF EATTOCRLF ADDRESSING IDMODE EATLF EATCRLF) +\UFSParse-Directory (DEVICENAME) \TEDIT.INSERTLINE (PREVLINE) SEDIT::BACKSPACE-LITATOM (SEDIT::CARET-POINT + SEDIT::SELECTION SEDIT::SUPER-NODE SEDIT::NODE-TYPE) \NSRANDOM.PREPARE.CACHE (NSFILING.PAGE.CACHE +NSPSIZE NSPHEADER NSPTAIL) SEDIT::NEXT-NODE (SEDIT::SUB-NODES SEDIT::SUB-NODE-INDEX SEDIT::SUPER-NODE) + UNIX-BACKFILEPTR-NEW (CBUFPTR COFFSET) CL:READ (READSA CASEINSENSITIVE BASE) \TEXTBACKFILEPTR (CPAGE +PCSTARTPG COFFSET PCSTARTCH PREVPIECE PIECE PLEN PLOOKS TEXTOBJ PSTR PFILE PFATP POBJ REALFILE +CHARSLEFT CBUFSIZE FATSTREAMP CPPTR) \ASSURE.FPTOVP.PAGE (NActivePages) \10MB.BROADCASTP ( +10MBMULTICASTP) POSTSCRIPT.CLOSESTRING (IMAGEDATA POSTSCRIPTCHARSTOSHOW) CL:READ-PRESERVING-WHITESPACE + (READSA CASEINSENSITIVE BASE) \TEDIT.HARDCOPY.DISPLAYLINE (CHARS CACHE WIDTHS LOOKS TEXTLEN +LEFTMARGIN LEN CHAR1 DESC WIDTH BASE TLFIRSTSPACE TLSPACEFACTOR CLOFFSET YBASE CLFONT CLUSERINFO +CLLEADER FMTREVISED LFMTSPEC) CREATEW1 (SCREEN REGION WIDTH HEIGHT CREATEWFN) CL:READ-DELIMITED-LIST ( +READSA CASEINSENSITIVE BASE) INIT/NODES/FOR/LAYOUT (NODEID NODELABEL NODEFONT) FOREST/BREAK/CYCLES ( +TONODES NODEPOSITION NODEID) SCALEDBITBLT (IMSCALEDBITBLT IMAGEOPS LEFT BOTTOM) CL:PARSE-INTEGER ( +READSA BASE LENGTH OFFST FATSTRINGP NSCHARHASH) \LOOKUPPAGEMAP (PRIMARYKEY SECONDARYKEY) +\DRAWPOINT.GENERIC (BRUSHSIZE BRUSHCOLOR) GRAPHOBJ.PUTALIGN (GRAPHNODES NODEID) \UPDATE.PSC ( +POSTSCRIPTPENDINGXFORM POSTSCRIPTFONTCHANGEDFLG POSTSCRIPTMOVEFLG) PRIN2-LONG-STRING (ESCAPECHAR +READSA OFFST BASE LENGTH FATSTRINGP HASHMACROCHAR NSCHARHASH) DUMPGRAPH (SIDESFLG DIRECTEDFLG +GRAPH.MOVENODEFN GRAPH.ADDNODEFN GRAPH.DELETENODEFN GRAPH.ADDLINKFN GRAPH.DELETELINKFN +GRAPH.FONTCHANGEFN GRAPH.INVERTBORDERFN GRAPH.INVERTLABELFN GRAPH.CHANGELABELFN GRAPH.PROPS GRAPHNODES + NODEID NODELABELSHADE NODEFONT NODEBORDER NODELABEL NODEPOSITION TONODES FROMNODES) \FM.FORMATBYGRID +(HEIGHT LEFT WIDTH) COMP.TOPLEVEL.COMPILE (OPNAME OPARG) GRAPHCHANGELABEL (GRAPH.CHANGELABELFN) +\DRAWPOLYGON.GENERIC (BRUSHCOLOR XCOORD YCOORD) SEDIT::BACKSPACE-GAP (SEDIT::SELECTION SEDIT::CARET-POINT +) DMCHAT.CLEARMODES (PLAINFONT DSP) RIGHTW.REPAINTFN (TOP BOTTOM) \SEQUIN.FLUSH.CONNECTION (SEQPROCESS + SEQEVENT SEQSOCKET SEQCLOSED) \LFDirectoryNameP (VOL LVlabel NAME) \TEXTSETFILEPTR (TEXTOBJ TEXTLEN) +FILEPKGCOM (ADD DELETE MACRO CONTENTS PRETTYTYPE) ADVISEWDS (REG DSP WBORDER LEFT BOTTOM WIDTH HEIGHT +WTITLE SCTITLEDS SCREEN) SEDIT::BACKSPACE-UNKNOWN (SEDIT::CARET-POINT SEDIT::SELECTION) RSTRING ( +READSA) SEDIT::LINEARIZE-ROOT (SEDIT::SUB-NODES) \FLUSHPAGE (RPTRBASE OCCUPIED DIRTY VP FILEPAGE +LOCKED NActivePages PRIMARYKEY SECONDARYKEY Key PAGE#) \STORENSHOSTNUMBER (NSHOST0 NSHOST1 NSHOST2) +\RSTRING2 (EOLCONVENTION XBASE STOPATOM NSCHARHASH ESCAPEFLG EOFP DEVICE) PRINSHUT (BP) \TRANSFERPAGE +(LOCKED RPTRBASE) \POLYSHADE.XSCAN.IP (BY LX RX WC TY) SPY.TITLE (NAME) \PUTBASEFIXP (HINUM LONUM) +READ-EXTENDED-TOKEN (CASEINSENSITIVE BASE XBASE READSA EOFP DEVICE NSCHARHASH STOPATOM) +\SETMACROSYNTAX (READMACRODEFS VAL READSA) \VFMInsertPageGroup (fileID filePage type key volumePage +nextFilePage nextKey) \SMASHSTRING (LENGTH OFFST FATSTRINGP BASE) \READTABLEP.DEFPRINT (READTBLNAME +CHARPOSITION HASHMACROCHAR) \EDITBMHOWMUCH (BITMAPWIDTH BITMAPHEIGHT) \NSFILING.LOOKUP.CACHE ( +FSCACHEDHANDLES NSHFILEID NSHDIRECTORYPATH NSHNAME) CONCATLIST (FATSTRINGP FATPNAMEP) EDITCHANGELABEL +(GRAPHNODES) \ATBLSET (TERMSA) \NSRANDOM.CHECK.CACHE (NSPSIZE NSPBUFFERS NSPTAIL) BOTTOMOFGRIDCOORD ( +BOTTOM HEIGHT) FW-REPAINTFN (OFDWINDOW OFDSTREAM) \GetRootDirectoryType (volumeRootDirectory) +SI::COMPILED-FUNCTION-ARGLIST (FNHEADER) ADDCHAR (CPXWIDTH END CPXPRINTCHARS LASTCOL) \TEXTPEEKBIN ( +PIECE COFFSET CBUFSIZE POBJ FATSTREAMP EOFP DEVICE F1 CHARSLEFT NEXTPIECE PLOOKS TEXTOBJ PLEN +CURRENTPARALOOKS CURRENTLOOKS PSTR PFILE PFATP ENDOFSTREAMOP) PRINTLEAF (PUPLENGTH SEQCONTROL ALLOCATE + RECEIVESEQ SENDSEQ PUPCONTENTS LEAFOPCODE ANSWERBIT OPCODE EOFBIT LEAFLENGTH HANDLE LOADDR DATALENGTH +) \NSFILING.ADD.TO.CACHE (FSCACHEDHANDLES NSHFILEID NSHBUSYCOUNT) SI::COMPILED-FUNCTION-DEBUGGING-INFO + (FNHEADER NATIVE STARTPC NTSIZE OVERHEADWORDS) SUBREGIONP (LEFT BOTTOM PRIGHT PTOP) \CLIPANDDRAWLINE1 + (BITMAPRASTERWIDTH BITMAPBITSPERPIXEL BITMAPHEIGHT BITMAPBASE) TWODINSPECT.ARRANGEWINDOWS (XCOORD +YCOORD TOP RIGHT) \MOVEREALPAGE (OCCUPIED VP FILEPAGE) TEDIT.WINDOW.SETUP (SEL) RETFROM (INVALIDP +CLINK) INSPECT/AS/FUNCTION (INVALIDP EDFXP FNHEADER PC) INTERSECTREGIONS (LEFT WIDTH BOTTOM HEIGHT +RIGHT TOP) DISPTREE (NODEID) PRINTNSHOSTNUMBER (NSHOST0 NSHOST1 NSHOST2) \TEDIT.PUT.PARALOOKS ( +PPARALOOKS) \TEDIT.PIECE-CHNO (PTREENODE UPWARD) \SELECTREALPAGE (NEXTRP RPTRBASE EMPTY OCCUPIED +LOCKED REFERENCED VP DIRTY FILEPAGE VPSEG) \10MBENCAPSULATE (10MBDESTHOSTBASE 10MBSOURCEHOSTBASE) +\UPDATECHAIN (NEXTRP RPTRBASE VP EMPTY LOCKED VPSEG REFERENCED) FILL.LINE (TY TX FBBT ADDR LLEN LFT +RGT BOT TOP TXTW TXTH TXTA BITS) POSITION (CHARPOSITION) \MAIKO.DISPLAYLINE (CHARS THISLINE WIDTHS +LOOKS \WINDOW TEXTLEN TXTTERMSA STREAMHINT LCBITMAP DISPLAYCACHE DISPLAYCACHEDS DISPLAYHCPYDS +FMTHARDCOPY LFMTSPEC PREVLINE YBOT LHEIGHT RIGHTMARGIN BITMAPWIDTH BITMAPHEIGHT CHAR1 WBOTTOM DESC +LEFTMARGIN DESCENT IMAGEDATA DDPILOTBBT DDXOFFSET DDClippingLeft DDClippingRight CLFONT BASE +DDWIDTHSCACHE DDOFFSETSCACHE CLOFFSET LEN CLLEADER CLUSERINFO WRIGHT FMTREVISED LMARK YBASE) +READBQUOTECOMMA (COMMONLISP) \TEDITMENU.SELSCREENER (\WINDOW CH# DCH EDITOPACTIVE) \FM.FORMATBYCOLUMN +(WIDTH HEIGHT) SEDIT::KILL-NODE (SEDIT::SUB-NODES) MAKEDOTPTAIL (TAIL) OVERFLOW? (END LASTCOL ROW) +FB.COMMANDSELECTEDFN (ITEMS PROMPTWINDOW) ONEDINSPECT.ARRANGEWINDOWS (XCOORD YCOORD TOP RIGHT) +\NSRANDOM.STREAM.CHANGED (ACCESSBITS ACCESS NSHATTRIBUTES) REALSTKNTH (CLINK ALINK) +SI::CHANGE-CALLS-IN-CCODE (CODEARRAY DEFLOCS) PFI.ADD.TO.INDEX (NAME) SHADEGRIDBOX (WIDTH HEIGHT) +CANONICAL.HOSTNAME (DEVICENAME) \TEXTGETEOFPTR (TEXTLEN TEXTOBJ) SEDIT::ATOM-POINT-TYPE ( +MULTESCAPECHAR OFFST BASE LENGTH FATSTRINGP) MOVETOUPPERLEFT (LEFT PTOP) \NSFILING.MAYBE.CREATE ( +FSNAMESTRING NSHDATUM) \MENUSUBITEMS (SUBITEMFN) EQUAL-READER-ENVIRONMENT (REREADTABLE REPACKAGE +REBASE REFORMAT) BACKSKREAD (NSCHARHASH CPXREALCHAR) FILL.INITTBLE (IMAGEDATA DDClippingTop +DDClippingBottom DDClippingLeft DDClippingRight DDOPERATION DDDestination BITMAPBITSPERPIXEL DDTexture + BITMAPBASE BITMAPRASTERWIDTH BITMAPWIDTH BITMAPHEIGHT DDXOFFSET DDYOFFSET) SEDIT::ASSIGN-FORMAT-LITATOM + (CL:STRUCTURE SEDIT::ENVIRONMENT SEDIT::ATOM-CHARS SEDIT::BROKEN-ATOM-FONT SEDIT::KEYWORD-FONT +SEDIT::DEFAULT-FONT SEDIT::LINEAR-FORM) SEDIT::ADJUST-WIDTH (SEDIT::LINEAR-FORM) INIT.CURSOR (BOTTOM) +SHOWWFRAME (WTITLE WBORDER DSP SAVE HEIGHT REG WIDTH) GRAPHOBJ.GETALIGN (NODEID GRAPHNODES) +SEDIT::INSERT-CHANGED (SEDIT::DEPTH) COMP.TRANSFORM (OPNAME) SET-READER-ENVIRONMENT (REPACKAGE +REREADTABLE REBASE) \TEDIT.CHARDELETE (PCTB OFFST LENGTH POINT CH# CHLIM PLOOKS CLINVISIBLE PREVPIECE +PLEN CLPROTECTED) OPENNSOCKET (ID# LONUM) BESTPUPADDRESS (PUPNET# RTHOPCOUNT) FONTCREATE (IMFONTCREATE + IMAGEOPS) TEDIT.REMOVE.MENUITEM (ITEMS) \TEDIT.OBJECT.SHOWSEL (X0 Y0 L1 SELOBJ DX YBASE YDESC XKERN +WRIGHT YSIZE STREAMHINT) \VALIDADDRESSP (PAGE#) GRAPHREGION (GRAPHNODES) \SEND.EXPEDITED.XIP ( +PACKETEXCHANGEID XIPTYPE LOWVERSION HIGHVERSION MSGTYPE ERRORXIPCODE) \APPLYREADMACRO (MACROFN) +EDITCHANGEFONT (GRAPHNODES) BRV/OFFSET (NODEPOSITION XCOORD YCOORD TONODES) \FM.FORMATBYROW (HEIGHT) +\INTERNAL/SETPASSWORD (UserPswdAddr) INSPECTW.REPAINTFN (TOP BOTTOM SELECTABLEITEMREGION PTOP +ITEMINFOTYPE ITEMINFO) LLSH (HINUM LONUM) \POLYSHADE.DISPLAY (BY RX LX WC TY GEOM P X IX IPX IPY MAJOR +) \PFVersionOK (version) EDITBMSCROLLFN (BITMAPWIDTH BITMAPHEIGHT LEFT BOTTOM HEIGHT WIDTH) SHOWWTITLE + (SCTITLEDS SCREEN) RAIDROOTFRAME (TELERAIDFXP CurrentFXP) COMP.RETFROM.POINT (CLEAR) GRIDYCOORD ( +BOTTOM HEIGHT) \ALLOCWIDTHTOGROUPEDWINDOW (ATTACHEDW ATWHEREONEDGE ATNOWX ATXSIZE ATNOWY ATMAXX) +TEDIT.REDO.REPLACE (THOLDINFO CH# SEL CHLIM LINES TXTHISTORY) \PFPatchRootDirEntries (countEntries) +\GETBASESTRING (BASE OFFST) \TEDIT.PUT.SINGLE.CHARLOOKS (CLFONT CLOFFSET CLSTYLE CLUSERINFO CLLEADER +CLINVERTED CLBOLD CLITAL CLULINE CLOLINE CLSTRIKE CLSMALLCAP CLPROTECTED CLINVISIBLE CLSELHERE +CLCANCOPY) \TEXTGETFILEPTR (PIECE CHARSLEFT COFFSET CBUFSIZE PLEN FATSTREAMP TEXTLEN TEXTOBJ) +OPT.RESOLVEJUMPS (JMIN JPT OPNAME) TTYIN (RAISEFLG READSA STORAGECOUNTER) \TEDIT.SET-TOTLEN (COUNT) +\TEDIT.HARDCOPY.FORMATLINE (TEXTLEN BASE CHARS WIDTHS LOOKS STREAMHINT TXTTERMSA CURRENTLOOKS +CLINVISIBLE PIECE PLEN NEXTPIECE PLOOKS CLFONT CURRENTPARALOOKS FMTSPEC FMTCHARSTYLES PREVPIECE +PPARALAST PCSTARTCH COFFSET PCSTARTPG CPAGE FMTPARATYPE PAGE# 1STLEFTMAR LEFTMAR RIGHTMAR +FONTCHARSETVECTOR YSIZE YDESC XSIZE TABSPEC PTNEWTX TXTNONSCHARS PTTYPE PTTABX F5 FW6 FW7 +DEFAULTCHARLOOKS CHARLIM CHAR1) \INTERACTIVE.CLOSEW (CLOSEFN) TTDELETELINE (START END FIRSTCOL) +\DSPUNTRANSFORMREGION (LEFT BOTTOM WIDTH HEIGHT) TTSKREAD (NSCHARHASH CPXREALCHAR) \FM.FORMAT (WIDTH +HEIGHT) GRAPHERPROP (GRAPH.PROPS) \TEDIT.TABTYPE.SET (\TEXTOBJ CH# POBJ) SEGMENT.LENGTH (CPXNCHARS) +GETCHATWINDOW (RUNNING?) SEDIT::COPY-SELECTION-DEFAULT (SEDIT::SELECT-NODE SEDIT::SELECT-START +SEDIT::SELECT-END CL:STRUCTURE SEDIT::SUB-NODES) \LFNormalizeVolumeName (VOL) TTYIN.SETUP ( +TTYINWINDOWSTATE) SEDIT::HANDLE-COMPLETION (SEDIT::COMPLETION-FN) TTYIN.CLEANUP (TTYINWINDOW +TTOLDRIGHTFN TTOLDBUTTONFN TTOLDENTRYFN) \BUILD.EXPEDITED.XIP (PROGRAM# VERSION# FN# ARGS COFFSET) +TTYIN.FINISH (START NSCHARHASH CPXREALCHAR) DEFAULT.INSPECTW.TITLECOMMANDFN (ITEMINFO) +\ITEM.WINDOW.COPY.HANDLER (ITEMINFO) DCODERD (OVERHEADWORDS) \OKTOCLOSEW (CLOSEFN) TB.REMOVE.ITEM ( +TB#ITEMS TI# TBITEMS TIDELETED TB#DELETED TBFIRSTSELECTEDITEM TBLASTSELECTEDITEM) \MEDW.BLTCHAR ( +DDCHARSET DDSlowPrintingCase DDXPOSITION DDCHARIMAGEWIDTHS DDRightMargin DDLeftMargin DDWIDTHSCACHE +DDXOFFSET DDClippingRight DDClippingLeft PBTHEIGHT DDPILOTBBT DDOFFSETSCACHE) TERM.TAB (XPOS FONTWIDTH + TERM.TAB.STOPS YPOS DSP) TEDIT.FORMATTEDFILEP (FMTSPEC PCTB DEFAULTCHARLOOKS POBJ PPARALAST +PPARALOOKS PLOOKS PNEW PFATP NEXTPIECE) \DSPXPOSITION.PSC (IMAGEDATA POSTSCRIPTX POSTSCRIPTY) +\MEDW.XOFFSET (IMAGEDATA DDXOFFSET) WINDOWPOSITION (LEFT BOTTOM) \TEDIT.COPYTEXTSTREAM.PIECEMAPFN ( +POBJ STREAMHINT \WINDOW) \MEDW.YOFFSET (IMAGEDATA DDYOFFSET) \VFMGetPageGroup (fileID type key +filePage volumePage nextKey) GETFRAMEVAR.IP (IPNEXTFRAMEVAR IPDATA) \TEXTEOFP (PIECE COFFSET CBUFSIZE +CHARSLEFT NEXTPIECE PLEN) \TFBRAVO.FONT.FROM.CHARLOOKS (CLNAME CLSIZE CLBOLD CLITAL) TTYIN1RESTART ( +FIRSTLINE START NEXTLINE) \TEDIT.FIXCHANGEDLINE (CHAR1 DIRTY CHARLIM LHEIGHT YBOT PREVLINE WBOTTOM +NEXTLINE DESCENT FMTBASETOBASE LFMTSPEC) \NOIMAGE.DSPFONT (IMAGEDATA PRETTYFONT#) MAXMENUITEMWIDTH ( +ITEMS MENUFONT MENUUSERDATA BITMAPWIDTH) TB.USERDATA (TBUSERDATA) PRIN4 (COMMONLISP USESILPACKAGE) +REGIONSINTERSECTP (LEFT RIGHT BOTTOM TOP) \TEDIT.LINECACHE (LCBITMAP BITMAPWIDTH BITMAPHEIGHT) +GRAPHADDNODE (GRAPH.ADDNODEFN GRAPHNODES) \LINEWITHBRUSH (IMAGEDATA DDClippingBottom DDClippingTop +DDClippingRight DDClippingLeft DDDestination DDOPERATION BITMAPBITSPERPIXEL BITMAPBASE +BITMAPRASTERWIDTH BITMAPHEIGHT BITMAPWIDTH DDXOFFSET DDYOFFSET) \TFBRAVO.READ.PARALOOKS (TABSPEC +FMTUSERINFO LEFTMAR) \TEDIT.FIND.OVERLAPPING.LINE (YBOT NEXTLINE) AT.END.OF.SCREEN (END) GRIDXCOORD ( +LEFT WIDTH) \ALLOCHEIGHTTOGROUPEDWINDOW (ATTACHEDW ATWHEREONEDGE ATNOWY ATYSIZE ATNOWX ATMAXY) +TTWAITFORINPUT (WIDTH BOTTOM HEIGHT ROW TTOLDRIGHTFN TTOLDBUTTONFN) \PFFindRootDirEntryNum ( +countEntries entries type) TRAJECTORY.IP (XCOORD YCOORD) \TEDIT.SET.WINDOW (\WINDOW) GETPUPWORD ( +PUPCONTENTS) LEFTOFGRIDCOORD (LEFT WIDTH) \NSFILING.CONNECT (NSHDIRECTORYP) \TEDIT.LCASE.SEL (CH# DCH +POINT TXTHISTORY) GO.TO.FREELINE (ROW) TRANSLATEREG (LEFT BOTTOM WIDTH HEIGHT) RAIDSTACKCMD (FAULTFXP +GCFXP KbdFXP HardReturnFXP SubovFXP ResetFXP MiscFXP EndOfStack) PROVIDE.PROMPTING.WINDOW (LEFT BOTTOM + WIDTH HEIGHT) \ALLOCATE.ETHERPACKET (XIPBASE) PUTSEQUIN (SEQLOCK SEQSTATE SEQBROKEN %#UNACKEDSEQS +SEQOUTALLOC SEQINPUTQLENGTH SEQINALLOC SEQRETRANSMITTING SEQEVENT) TTYIN.READ (CPXREALCHAR NSCHARHASH +GETFILEPTR DEVICE CHARSET) TTYIN1 (PEEKEDCHAR PEEKEDECHOFLG TERMCLASS NSCHARHASH START END WAKEUP +STOPATOM CPXREALCHAR) \CCLOSURE.DEFPRINT (FRAMENAME ENVIRONMENT CHARPOSITION HASHMACROCHAR) \DEFINEDP +(DEFPOINTER) POSTSCRIPT.BITMAPSCALE (WIDTH HEIGHT) TB.CLEAR.LINE (TBWINDOW TBITEMHEIGHT) +\GET-COMPILED-DEFINITION (CCODEP DEFPOINTER) \SPP.SKIPBYTES (SPPERRORHANDLER CBUFSIZE COFFSET) +\DSPYPOSITION.PSC (IMAGEDATA POSTSCRIPTY POSTSCRIPTX) PFI.DEFAULT.HANDLER (PATTERNS TESTFN AMBIGUOUS?) + STRINGWIDTH (WIDTHS FONTCHARSETVECTOR IMSTRINGWIDTH IMAGEOPS) READHASHMACRO (COMMONLISP) +\TEDITOUTCHARFN (CHARPOSITION) FW-AFTERMOVEFN (OFDWINDOW LEFT OFDLEFT XCOORD BOTTOM OFDBOTTOM YCOORD) +TERM.SMOOTHSCROLL (DSP TTYWIDTH TTYHEIGHT FONTHEIGHT) CHAT.INIT (DPYNAME ENDOFSTREAMOP) \TEDIT.BLTCHAR + (DDCHARSET DDCHARIMAGEWIDTHS DDOFFSETSCACHE) \PFGetLVPage (LVlabel) SEDIT::GET-SELECTED-STRUCTURE ( +SEDIT::OPEN-NODE-CHANGED? SEDIT::SELECTION SEDIT::SELECT-NODE SEDIT::SELECT-START CL:STRUCTURE) +\MAKESPACEFORLOCKEDPAGE (LastLockedFilePage FPOCCUPIED FPVIRTUALPAGE) \SW2BM (LEFT BOTTOM HEIGHT WIDTH + BITMAPWIDTH BITMAPHEIGHT) \MOVETO.PSC (IMAGEDATA POSTSCRIPTX POSTSCRIPTY) RAIDCOMMAND (DEFINITIONCELL + StackBase PAGE#) SETUPPAGEMAP (PRIMARYKEY) \QUEUE.OUTPUT.IOCB (NDBCSB DLFIRSTOCB DLLASTOCB +DLIOCBSTATUS D0FIRSTOCB D0LASTOCB D0IOCBSTATUS NDBTASK#) MAXMENUITEMHEIGHT (MENUFONT ITEMS +BITMAPHEIGHT) CLOSEHASHFILE (Stream File) NODEREGION (NODEWIDTH NODEHEIGHT) FB.SHAPECOMMAND ( +BROWSERWINDOW WIDTH HEIGHT ABORTWINDOW PROMPTWINDOW PRIGHT) SYSOUT (TOTALTIME) CL:MAKE-SYMBOL ( +FATSTRINGP BASE LENGTH OFFST) \SETUFNENTRY (FNINDEX NEXTRA NARGS) MBUTTON.SET.NEXT.FIELD (SCRATCHSEL +DCH) FILL-VECTOR (TOTAL-SIZE READ-ONLY-P) \GETUFNENTRY (OP# FNINDEX) \NEWEPHEMERALPAGE ( +MISCSTACKRESULT) \DONEWEPHEMERALPAGE (PAGE# INVALID PRIMARYKEY SECONDARYKEY VACANT RPTRBASE) INFILECOM + (CONTENTS PRETTYTYPE MACRO) CHARACTER.READ (STOPATOM NSCHARHASH READSA) TERM.SETMARGINS (FONTHEIGHT +HOMEPOS FONTDESCENT) GRID (LEFT BOTTOM WIDTH HEIGHT) SEDIT::FORMAT-VALUES-CHANGED (SEDIT::NODE-TYPE +SEDIT::INLINE-WIDTH SEDIT::PREFERRED-WIDTH SEDIT::COMPUTE-FORMAT-VALUES SEDIT::ENVIRONMENT CL:FORMAT) +TEDIT.REDO.MOVE (THOLDINFO THCH# SEL MOVESEL) DISCARDPUPS (INQUEUELENGTH INQUEUE) \NSFILING.OPENFILE ( +ACCESSBITS FULLFILENAME OPENFILELST) TERM.SET.TAB (TERM.TAB.STOPS) UNIONREGIONS (LEFT PRIGHT BOTTOM +PTOP) SEDIT::NOTE-CHANGE-IN-SIMPLE (SEDIT::LINEAR-FORM CL:STRUCTURE STRING SEDIT::FONT SEDIT::PRIN-2? +SEDIT::SUPER-NODE) CALLSCCODE (NTSIZE OVERHEADWORDS BYTESWAPPED STARTPC OPNARGS OPCODENAME LNCALLED +BOUND USEDFREE GLOBALS CALLED) RETVALUES (INVALIDP CLINK) FB.DEPTHCOMMAND (FBDEPTH) +BREAK.NSFILING.CONNECTION (OPENFILE NSCONNECTIONS DEVICEINFO DEVICENAME) SEDIT::SUBNODE-CHANGED ( +SEDIT::SUB-NODE-CHANGED SEDIT::NODE-TYPE SEDIT::SUPER-NODE) TEDIT.FORMATTEXTBOX (STATE REGIONSPEC +BOTTOM PAGEFOOTNOTELINES TOP LHEIGHT TEXTLEN PAGELINECACHE CACHE WIDTH STREAMHINT LMARK CHARLIM +FMTUSERINFO LFMTSPEC LEFTMARGIN FMTSPECIALX LEFT RIGHTMARGIN FMTSPECIALY 1STLN DESCENT FMTBASETOBASE +LEADBEFORE LEADAFTER LTRUEASCENT CHAR1 FMTNEWPAGEBEFORE FMTNEWPAGEAFTER YBASE) COPYTEXTSTREAM (PCTB +SCRATCHSEL EDITPROPS TEXTLEN MENUFLG) FLIPNODE (NODEWIDTH NODEHEIGHT) \SHOWMENULABEL (LEFT WIDTH +BOTTOM MENUFONT HEIGHT BITMAPHEIGHT MENUUSERDATA) \GET.IOCB (D0NEXTIOCB) MAKEEPSFILE (XSIZE YSIZE +XKERN YDESC) \SEQUIN.PUT (SEQFRNPORT MYSENDSEQ MYRECEIVESEQ %#SEQTURNOVERS SEQRETRANSMITQ +%#UNACKEDSEQS SEQINALLOC SEQSOCKET SEQTIMER SEQPROCESS) MAPHASHFILE (Key1 Key2 Size Stream ByteStream) + \CODEBLOCKP (WORDINPAGE PASSWORD GCTYPE INUSE TRAILER DTDHUNKP DTDGCTYPE) \TEMPLOCKPAGES ( +MISCSTACKRESULT) COMPOSEREGS (LEFT BOTTOM) \DSPFONT.PSC (IMAGEDATA POSTSCRIPTFONT \SFHeight +POSTSCRIPTSPACEFACTOR POSTSCRIPTWIDTHS IL-FONTID OTHERDEVICEFONTPROPS FONTIDNAME) EXCHANGEPUPS ( +PUPSOCEVENT PUPID) RAIDSHOWFRAME (INVALIDP ALINK CLINK) \TEDIT.MARK.REVISION (RIGHTMARGIN YBOT LHEIGHT +) ADJUSTLINE.AND.RESTORE (LASTCOL) \TEDIT.NEUTRALIZE.CHARLOOKS.MENU (SCRATCHSEL) +FB.INFOMENU.WHENSELECTEDFN (INFOMENUCHOICES) COMP.MLLIST (ARGS COMTYPE CODE) TEDIT.MODIFYLOOKS (CLFONT + CLULINE LTRUEDESCENT CLOLINE CLSTRIKE CLINVERTED) \PROMPTFORWORDERASE (XCOORD YCOORD) TERM.SCROLLDOWN + (DSP TTYWIDTH FONTHEIGHT BOTTOMMARGIN FONTDESCENT) \PROMPTFORWORDBIN (KEYBOARDSTREAM EOFP DEVICE) +CREATE-SHELL-STREAM (OPENFILELST) FM.CHANGELABEL (FM.USERDATA LEFT BOTTOM) \DSPLEFTMARGIN.PSC ( +IMAGEDATA POSTSCRIPTLEFTMARGIN) \DSPMOVELR (DDXPOSITION DDYPOSITION DDRightMargin DDLeftMargin DDFONT +IMAGEDATA) READPAGEMAP (PAGE# filePnPMP0 filePnPMT0) DELETEMENU (WHENSELECTEDFN) TEDIT.FORMATFOLIO ( +REGIONSPEC REGIONLOCALINFO PAGE#TEXT PAGE# FIRSTPAGE TEXTLEN WIDTH LEFTMARGIN LEFT RIGHTMARGIN CHARLIM + LHEIGHT BOTTOM DESCENT) \DOFLUSHVM (PAGE# MiscFXP) \RELEASEWORKINGSET (OCCUPIED RPTRBASE LOCKED VP) +\MATCHPCS (COUNT) UPDATE/MENU/IMAGE (IMAGE SCREEN ITEMS CENTERFLG MENUFONT TITLE MENUCOLUMNS MENUROWS +MENUBORDERSIZE MENUOUTLINESIZE ITEMWIDTH ITEMHEIGHT SCHEIGHT SCDEPTH SCBITSPERPIXEL SAVE BITMAPWIDTH +BITMAPHEIGHT BITMAPBITSPERPIXEL MENUGRID WIDTH BOTTOM LEFT MENUOFFSET CHANGEOFFSETFLG) OPENHASHFILE ( +Stream FULLNAME ByteStream) \FLUSHVM (MISCSTACKRESULT) \NSFILING.DESERIALIZE (NSDIRECTORIES +FSPROTOCOLNAME) \TEDIT.SELECT.CHARACTER (YBOT XKERN YBASE YDESC XSIZE WRIGHT YSIZE STREAMHINT SELOBJ) +\10MBSENDPACKET (10MBMULTICASTP NSHNM2 NSHNM1 NSHNM0 10MBDESTHOSTBASE 10MBLENGTH 10MBTYPE) +DECODE.WINDOW.ARG (XCOORD YCOORD) OVERFLOWLINE? (END START NEXTLINE) \PAGEDBACKFILEPTR (ACCESSBITS +FULLNAME COFFSET CPAGE CBUFDIRTY CHARPOSITION) \TEDIT.COPY.LINEDESCRIPTOR (LEFTMARGIN RIGHTMARGIN +LXLIM SPACELEFT LHEIGHT CHAR1 CHARLIM CHARTOP CR\END LDOBJ LHASPROT LFMTSPEC LTRUEDESCENT LTRUEASCENT +ASCENT DESCENT LHASTABS LMARK 1STLN LSTLN) STRPOSL (PNAMEBASE PNAMELENGTH FATPNAMEP BASE LENGTH OFFST +FATSTRINGP NSCHARHASH) \CREATECHARSET (\SFAscent \SFDescent FONTCHARSETVECTOR) \PFRemoveRootDirEntry ( +countEntries entries) CHANGECCODE (CODEARRAY NAMELOCS CONSTLOCS DEFLOCS PTRLOCS) SENDPUP ( +PUPSOURCESOCKETLO PUPSOURCESOCKETHI PSOCKETHI PSOCKETLO EPTRANSMITTING) DSPCLEOL (IMAGEDATA +DDLeftMargin DDYPOSITION DDRightMargin DDLINEFEED) \WRITEDIRTYPAGE1 (LOCKED DIRTY VP) +\DRAWPOINT.DISPLAY (BITMAPWIDTH BITMAPHEIGHT) \CLIPANDDRAWLINE (BITMAPBITSPERPIXEL) CHARWIDTHY ( +YWIDTHS FONTCHARSETVECTOR IMCHARWIDTHY IMAGEOPS) \DRAWPOLYGON.DISPLAY (BRUSHSHAPE BRUSHCOLOR XCOORD +YCOORD BRUSHSIZE) TEDIT.FORMATHEADING (REGIONSPEC REGIONLOCALINFO PAGEHEADINGS TEXTOBJ PPARALOOKS +TEXTLEN PLEN WIDTH LEFTMARGIN LEFT RIGHTMARGIN LHEIGHT BOTTOM DESCENT CHARLIM) NEAREST/PT/ON/GRID ( +XCOORD YCOORD) \PFAddRootDirEntry (countEntries entries) SWAPPUPPORTS (PUPSOURCE PUPSOURCESOCKETHI +PUPSOURCESOCKETLO) \STRINGWIDTH.GENERIC (PNAMEBASE PNAMELENGTH FATPNAMEP WIDTHS FONTCHARSETVECTOR +ESCAPECHAR OFFST BASE LENGTH FATSTRINGP) HASHFILEPROP (ValueType Stream File ItemCopyFn Size %#Entries + ItemLength) \AREAINREGIONP (LEFT BOTTOM PRIGHT PTOP) \DSPCLIPPINGREGION.DISPLAY (IMAGEDATA +DDClippingRegion) \PEEKCCODE.NOEOLC (PEEKCCODEFN) \SPP.PREPARE.OUTPUT (SPPTERMINATEDP SPPCONTENTS) +\DSPPRINTCHAR (IMAGEDATA CCECHO NSCHARHASH CHARPOSITION DDRightMargin DDXPOSITION DDLeftMargin) +\DSPRIGHTMARGIN.PSC (IMAGEDATA POSTSCRIPTRIGHTMARGIN) \CHARWIDTH.DISPLAY (WIDTHS FONTCHARSETVECTOR +DDFONT IMAGEDATA) \LASTNODE (COUNT) \INCCODE.EOLC (EOLCONVENTION INCCODEFN) +\NSFILING.CLOSE.CONNECTIONS (NSFILINGLOCK DEVICEINFO NSWATCHERPROC NSCONNECTIONS FSSESSIONTIMER +FSCONTINUANCE FSCOURIERSTREAMS OPENFILELST) INSPECT/TYPELESS (PASSWORD INUSE TRAILER GCTYPE ARLEN) +GRAPHOBJ.CHECKALIGN (GRAPHNODES) \STRINGWIDTH.DISPLAY (IMAGEDATA DDFONT DDSPACEWIDTH) COMP.GETBASE ( +OPNAME OPARG) SEDIT::CLEAR-ALL-LINEAR-FORMS (SEDIT::SUB-NODES SEDIT::ROOT) \CH.FIND.ORG.SERVER ( +OCORGANIZATION OCALLSERVERS) \DSPOPERATION.DISPLAY (IMAGEDATA DDOPERATION DDPILOTBBT DDSOURCETYPE) +PRINTERDEVICE (DEVICE DEVICENAME FULLNAME DELETEFILE) \FORMATBYTESTREAM (EXTERNALFORMAT EOLCONVENTION) + TERM.RIGHT (TTYWIDTH XPOS FONTWIDTH YPOS DSP) START.OF.PARAGRAPH? (END START CPXREALCHAR) +\DEVICESYMBOL (IMFONTCREATE IMAGEOPS) \FIXLINELENGTH.PSC (POSTSCRIPTRIGHTMARGIN POSTSCRIPTLEFTMARGIN +FONTAVGCHARWIDTH POSTSCRIPTFONT) PREVLINE (NEXTLINE) \PFFreeDiskPages (freePageCount) \UNCOPY (HINUM +LONUM HIWORD LOWORD BASE OFFST LENGTH TOTAL-SIZE OFFSET TYPE-NUMBER FILL-POINTER-P FILL-POINTER) +\BACKCOLOR.DISPLAY (IMAGEDATA DDTexture BITMAPRASTERWIDTH BITMAPBITSPERPIXEL DDDestination) +FB.INFOMENU.SHADEINITIALSELECTIONS (ITEMS) \BLTSHADE.DISPLAY (IMAGEDATA DDXOFFSET DDYOFFSET +DDClippingLeft DDClippingBottom DDClippingRight DDClippingTop LEFT BOTTOM WIDTH HEIGHT DDDestination +BITMAPBITSPERPIXEL DDTexture BITMAPHEIGHT DDOPERATION) PRINTCODE (OVERHEADWORDS BYTESWAPPED CLOSUREP +ARGTYPE NLOCALS FVAROFFSET NTSIZE STARTPC NATIVE OPPRINT OPCODENAME LEVADJ OPNARGS OP#) ICONW ( +BITMAPWIDTH BITMAPHEIGHT XCOORD YCOORD) \DSPLINEFEED.PSC (POSTSCRIPTLINESPACING IMAGEDATA) +SETFONTCLASSCOMPONENT (OTHERFDS) MAKEROOMFORPME (PRIMARYKEY) TEDIT.FORMATPAGE (STATE PAGE# +REGIONLOCALINFO REGIONSPEC TEXTLEN THISLINE FMTPARATYPE PPARALOOKS PCTB FMTUSERINFO OTHERPROPS HEIGHT +WIDTH CHARLIM REGIONSUBBOXES CHNO MINPAGE# MAXPAGE# PAGE#GENERATOR PAGECOUNT) EDITBMBUTTONFN (LEFT +BOTTOM BITMAPWIDTH BITMAPHEIGHT BITMAPBITSPERPIXEL XCOORD YCOORD WIDTH HEIGHT CUHOTSPOTX CUHOTSPOTY) +\BITBLT.DISPLAY (BITMAPWIDTH BITMAPHEIGHT IMAGEDATA LEFT DDClippingRegion BOTTOM DDDestination +DDXOFFSET DDClippingLeft DDYOFFSET DDClippingBottom DDClippingRight DDClippingTop DDTexture IMAGEOPS +WIDTH HEIGHT BITMAPBITSPERPIXEL DDOPERATION IMBITBLT) PRINTCODENT (BYTESWAPPED) GETPUP (INQUEUE +INQUEUELENGTH PUPSOCEVENT EPTYPE) DELETETO1 (CPXPRINTCHARS) \SPLITTREE (UPWARD COUNT TOTLEN) +TEDIT.CURSORMOVEDFN (LINES \WINDOW YBOT LHEIGHT MOUSEREGION WRIGHT FMTHARDCOPY LFMTSPEC LEFTMARGIN +WLEFT) NTH.COLUMN.OF (FIRSTCOL) FONTUNPARSE (WEIGHT SLOPE EXPANSION COLOR BACKCOLOR FORECOLOR) +\SEQUIN.PROCESS (SEQLOCK SEQSOCKET SEQRETRANSMITQ SEQCLOSEME PUPTYPE SEQSTATE ERRORPUPCODE SEQBROKEN +SEQOPENERRORHANDLER SEQRETRANSMITTING %#UNACKEDSEQS SEQIDLETIMEOUTCOMPUTER SEQTIMEOUT SEQIDLEFN +SEQTIMER MYRECEIVESEQ SEQLASTRESTART SEQLASTRESTARTTIMER SEQTIMEDOUT) MBUTTON.NEXT.FIELD.AS.TEXT ( +STREAMHINT SCRATCHSEL) TEDIT.UNPARSE.PAGEFRAMES (REGIONFILLMETHOD REGIONTYPE REGIONLOCALINFO +REGIONSPEC REGIONSUBBOXES) FONTCLASSUNPARSE (FONTCLASSNAME PRETTYFONT# DISPLAYFD PRESSFD INTERPRESSFD +OTHERFDS) TRACKCURSOR (NODEPOSITION) \DSPRESET.DISPLAY (IMAGEDATA DDClippingRegion DDFONT ROTATION +DDLeftMargin TOP LEFT BOTTOM RIGHT WIDTH HEIGHT DDTexture) 32MBADDRESSABLE (DL24BitAddressable) +FONTPROP (\SFHeight \SFAscent \SFDescent FONTFAMILY FONTSIZE FONTFACE WEIGHT SLOPE EXPANSION FORECOLOR + BACKCOLOR ROTATION FONTDEVICE FONTDEVICESPEC FONTSCALE) SEDIT::CHECK-SELECTION (SEDIT::SELECT-NODE +SEDIT::SELECT-START SEDIT::SELECT-END SEDIT::POINT-NODE SEDIT::PENDING-DELETE?) +SEDIT::PARENTHESIZE-CURRENT-SELECTION (SEDIT::SELECTION SEDIT::SELECT-NODE SEDIT::SELECT-START +SEDIT::SELECT-END SEDIT::CARET-POINT SEDIT::SELECT-TYPE SEDIT::SUB-NODES SEDIT::DEPTH SEDIT::DISPLAY-WINDOW +) \TEDIT.APPLY.PAGEFORMATTING (\TEXTOBJ CH# SCRATCHSEL TXTPAGEFRAMES) \CH.LOCATE.SERVERS (NSNET +NSDOMAIN NSORGANIZATION) \FILLCIRCLE.DISPLAY (IMAGEDATA DDClippingLeft DDClippingBottom DDClippingTop +DDClippingRight DDOPERATION DDDestination BITMAPBITSPERPIXEL DDTexture BITMAPBASE BITMAPRASTERWIDTH +BITMAPWIDTH BITMAPHEIGHT DDXOFFSET DDYOFFSET) \DRAWELLIPSE.DISPLAY (IMAGEDATA DDClippingBottom +DDClippingTop DDClippingRight DDClippingLeft DDDestination DDOPERATION BITMAPBITSPERPIXEL BITMAPBASE +BITMAPRASTERWIDTH BITMAPHEIGHT BITMAPWIDTH DDXOFFSET DDYOFFSET) GETSEQUIN (INPUTQ SEQSTATE) +INSPECTW.REDISPLAY (SELECTABLEITEMREGION) \TEDIT.CLEAR.SCREEN.BELOW.LINE (WBOTTOM WRIGHT YBOT) +INSPECT/DATATYPE (DTDDESCRS) \DRAWCURVE.DISPLAY (XCOORD YCOORD) BROWSE/LAYOUT/HORIZ/COMPACTLY (NODEID +FROMNODES) \XCCSOUTCHAR (CHARSET CHARPOSITION) NEW/INSTANCE/OF/GRAPHNODE (NODEID NODELABEL NODEFONT +NODEWIDTH NODEHEIGHT NODEBORDER NODELABELSHADE TONODES) \SET.LASTVMEMFILEPAGE (NActivePages) +\DSPYPOSITION.DISPLAY (IMAGEDATA DDYPOSITION) \SEQUIN.CLOSE (SEQLOCK SEQSTATE) \DRAWLINE.DISPLAY ( +DDOPERATION IMAGEDATA DDDestination DDXOFFSET DDYOFFSET DDClippingLeft DDClippingRight +DDClippingBottom DDClippingTop) \DSPXPOSITION.DISPLAY (IMAGEDATA DDXPOSITION) +\TEDIT.FILL.IN.CHARLOOKS.MENU (SCRATCHSEL CLBOLD CLITAL CLULINE CLSTRIKE CLOLINE CLFONT FONTCLASSNAME +CH# CLSIZE CLOFFSET) \DRAWCIRCLE.DISPLAY (IMAGEDATA DDClippingBottom DDClippingTop DDClippingRight +DDClippingLeft DDDestination DDOPERATION BITMAPBITSPERPIXEL BITMAPBASE BITMAPRASTERWIDTH BITMAPHEIGHT +BITMAPWIDTH DDXOFFSET DDYOFFSET) ENDREAD? (NSCHARHASH CPXREALCHAR) \PFCurrentVol (da bootingInfo) +\DSPLINEFEED.DISPLAY (IMAGEDATA DDLINEFEED) \XCCSFORMATBYTESTREAM (CHARSET) COMP.LOOKUPVAR (VARNAME) +\TEDIT.FORMAT.FOUNDBOX? (STATE REQUIREDREGIONTYPE REGIONTYPE PAGECOUNT) \GETREGION.CHECKOPPT (XCOORD +YCOORD) \DSPRIGHTMARGIN.DISPLAY (IMAGEDATA DDRightMargin) DODIRCOMMANDS (LITERALNAME) +\TEDIT.CONVERT.FOREIGN.FORMAT (TXTPAGEFRAMES PCTB) \PUPERROR (PUPDESTHOST PUPTYPE PUPCONTENTS PUPBASE) + MBUTTON.NEXT.FIELD.AS.PIECES (SCRATCHSEL) \DSPLEFTMARGIN.DISPLAY (IMAGEDATA DDLeftMargin) +\SCALEDBITBLT.DISPLAY (WIDTH HEIGHT) \NSFILING.DESERIALIZE1 (NSHDATUM FSSESSIONLOCK) CONCAT ( +FATSTRINGP FATPNAMEP) \DSPFONT.DISPLAY (IMAGEDATA DDFONT \SFHeight WIDTHS FONTCHARSETVECTOR) +\MAKEBRUSH.ROUND (BITMAPBASE) SPP.CLEARATTENTION (SPPEOFBITS) \DRAWLINE.PSC (IMAGEDATA POSTSCRIPTSCALE +) ADDFILE0 (FILEPROP LOADTYPE) DUMPINITPAGES (PRIMARYKEY SECONDARYKEY) NTH.RELATIVE.COLUMN.OF (START +END CPXWIDTH) SEDIT::DELETE-NODES (CL:DELETE SEDIT::NODE-TYPE SEDIT::SUPER-NODE) MOVE.TO.LINE (START +FIRSTCOL ROW) MBUTTON.NEXT.FIELD.AS.NUMBER (STREAMHINT SCRATCHSEL) \FONTFACE (WEIGHT SLOPE EXPANSION) +DIRPRINTNAME (STRINGNAME) COURIER.EXPEDITED.CALL (ARGS) \DOVMEMFULLINTERRUPT (NActivePages) +FB.NEWINFOCOMMAND (BROWSERWINDOW INFOMENUW BOTTOM LEFT HEIGHT INFOMENUCHOICES) \NSFILING.AFTER.LOGIN ( +FSNAMESTRING) TERM.NEWLINE (YPOS DSP) \MAP-CODE-POINTERS (GCTYPE DTDGCTYPE STARTPC BYTESWAPPED +OPCODENAME OPNARGS) \REGIONOVERLAPAREAP (LEFT RIGHT BOTTOM TOP) FB.ALLOW.ABORT (ABORTWINDOW) +\MAP-CODE-LITERALS (GCTYPE DTDGCTYPE STARTPC OVERHEADWORDS BYTESWAPPED OPNARGS OPPRINT OPCODENAME) +\DRAWCURVE.PSC (IMAGEDATA BRUSHSIZE BRUSHSHAPE BRUSHCOLOR POSTSCRIPTSCALE) \FONT.COMPARESYMBOL ( +PACKAGEINDEX PNAMEBASE PNAMELENGTH FATPNAMEP) CHECKIFPAGE (Key) GETGRIDBOXREGION (LEFT DDXOFFSET +IMAGEDATA BOTTOM DDYOFFSET XCOORD YCOORD RIGHT TOP) \PFPutRootDirectory (volumePage) \AREAVISIBLE? ( +SCTOPW SCREEN REG NEXTW) FONTASCENT (\SFAscent) SEDIT::CREATE-PRETTY-PRINT-ENV (SEDIT::INDENT-BASE +SEDIT::INDENT-STEP SEDIT::EM-WIDTH SEDIT::MAX-WIDTH) EDITADDNODE (NODEPOSITION NODELABEL) +MBUTTON.NEXT.FIELD.AS.ATOM (STREAMHINT SCRATCHSEL) DSPXSCREENTOWINDOW (DDXOFFSET IMAGEDATA) FONTHEIGHT + (\SFHeight) \PFGetRootDirectory (volumePage) TEDIT.BUILD.PCTB0 (STREAMHINT FMTSPEC PPARALOOKS PLEN) +FONTDESCENT (\SFDescent) PAINTW (DSP SCDEPTH SCREEN SCBITSPERPIXEL BITMAPWIDTH BITMAPHEIGHT CUIMAGE +CUMASK) \10MBGETPACKET (10MBTYPE) SEGMENT.BIT.LENGTH (CPXWIDTH) \DSPBACKCOLOR.DISPLAY (IMAGEDATA +DDCOLOR DDDestination BITMAPBITSPERPIXEL) SPP.FLUSH.TO.EOF (CBUFSIZE SPPEOFBITS) SHOW.MATCHING.PAREN ( +ROW START FIRSTCOL) \DSPCOLOR.DISPLAY (IMAGEDATA DDCOLOR DDDestination) \NSGC.COLLECT.DIRECTORIES ( +NSHDATUM FSPROTOCOLNAME NSHFILEID) TEDIT.SCAN.LINE (WIDTHS CHARS LOOKS TEXTLEN DESC CHAR1 FMTHARDCOPY +LFMTSPEC LEFTMARGIN BASE LEN CLSELHERE CLPROTECTED SCRATCHSEL YBOT LN L1 \WINDOW CHARLIM) +BRHL/MOVE/RIGHT (NODEWIDTH NODEPOSITION NODELABEL XCOORD) TEDIT.PROMPTFLASH (MENUFLG PROMPTWINDOW) +\PRINDATUM.TO.STRING (LENGTH FATSTRINGP BASE OFFST) BROKENDEF (STARTPC BYTESWAPPED OPCODENAME OPNARGS) + \TFBRAVO.SPREAD.LOOKS (RUNLOOKS) UTF16BE.OUTCHARFN (CHARPOSITION) \INSERTTREE (TOTLEN COUNT PTREENODE + PLEN) TEDIT.FORMAT.HARDCOPY (TXTPAGEFRAMES THISLINE TXTFILE FULLNAME CHNO TEXTLEN STATE NEWPAGELAYOUT + PAGECOUNT) \STREAM.FROM.PACKET (PACKETEXCHANGEBODY XIPLENGTH) \DRAWCIRCLE.PSC (IMAGEDATA BRUSHSHAPE +BRUSHSIZE BRUSHCOLOR POSTSCRIPTSCALE) ADDPME (PRIMARYKEY SECONDARYKEY) CLOSESEQUIN (SEQEVENT SEQSTATE) + VOLUMESIZE (volumeSize) PRIN1 (COMMONLISP LINELENGTH) FM.WHICHITEM (YCOORD BOTTOM XCOORD LEFT +FM.USERDATA WIDTH HEIGHT) SEDIT::CREATE-PRELINEARIZED-NODE (SEDIT::DEPTH SEDIT::SUB-NODES +SEDIT::SUB-NODE-INDEX) SPACES (LINELENGTH CHARPOSITION) PRINTNUM (WIDTH RADIX LEFTFLUSH PAD0) +\DRAWELLIPSE.PSC (IMAGEDATA BRUSHSHAPE BRUSHSIZE BRUSHCOLOR POSTSCRIPTSCALE) PRINTOPCODES (OP# +OPCODENAME OPNARGS OPPRINT LEVADJ UFNFN) \TEDIT.UNIQUIFY.CHARLOOKS (TXTCHARLOOKSLIST) \TRANSLATE.3TO10 + (NDBTRANSLATIONS NDBPUPHOST#) GETCHARBITMAP (FONTCHARSETVECTOR IMAGEWIDTHS WIDTHS BITMAPBITSPERPIXEL +CHARSETBITMAP OFFSETS) \ABORT.BULK.DATA (CBUFSIZE SPPEOFP) BRHL/LAYOUT (NODEPOSITION TONODES NODEWIDTH + NODEHEIGHT) \DO.PROGV.SETUP.FRAME.AND.EXECUTE (FNHEADER NEXTBLOCK FIRSTPVAR OVERHEADWORDS) +MAKEWITHINREGION (LEFT PRIGHT WIDTH BOTTOM PTOP HEIGHT) \TEDIT.UPDATETREE (UPWARD COUNT TOTLEN) +\CORE.CLOSEFILE (ACCESS INFOBLK EPAGE EOFFSET) \TEDIT.PARSE.CHARLOOKS.MENU (SCRATCHSEL CH#) +\CORE.RELEASEPAGES (EPAGE FILEPAGES PAGENUMBER) \PFGetVols (subVolumeCount) \NSFILING.COPYFILE ( +OPENFILE) SEDIT::CREATE-NODE (SEDIT::DEPTH SEDIT::SUB-NODES SEDIT::SUB-NODE-INDEX) \CORE.UPDATEOF ( +CBUFPTR COFFSET CBUFSIZE CPAGE PAGE OFFSET) OUTPUT (FULLNAME) SHOW.IP (IPDATA IPSHOWSTREAM GETFILEPTR +DEVICE IPXPOS IPCORRECTSTARTX NSCHARSET) FILES.PUTDEF (FILEPROP TOBEDUMPED FILEDATES) +\TEDIT.ADJUST.LINES (WBOTTOM YBOT WRIGHT LHEIGHT YBASE DESCENT NEXTLINE) GO.TO.RELATIVE (FIRSTCOL ROW) + DSPYSCREENTOWINDOW (DDYOFFSET IMAGEDATA) \VAMGetVAMPageFor (vamStart) \FAST4BIT (N1 N2 N3 N4) +RPLSTRING (LENGTH PNAMEBASE PNAMELENGTH FATPNAMEP BASE OFFST FATSTRINGP) ENDPREAMBLE.IP (IPDATA +IPPAGEFONTS IPNEXTFRAMEVAR) \CORE.DELETEFILE (ACCESS INFOBLK OPENP IOFILEFULLNAME COREDIRECTORY) +\SHOWTEXT (\WINDOW WRIGHT) CLEARFILEPKG (TOBEDUMPED FILEPROP) \CORE.GETINFOBLOCK (INFOBLK +COREDIRECTORY) MB.MARGINBAR.TABTRACK (MARUNIT TABX) EDITAPPLYTOLINK (GRAPHNODES) SEDIT::START-COMMENT +(SEDIT::CARET-POINT SEDIT::POINT-NODE SEDIT::POINT-TYPE SEDIT::NODE-TYPE) CHAT.STARTUP (DPYNAME) +BKSYSCHARCODE (READ WRITE) REDISPLAYW (REDISPLAYFN SCREEN) VOLUMES (LVlabel) \GETREGION.CHECKBASEPT ( +XCOORD YCOORD) BKSYSBUF (PNAMEBASE PNAMELENGTH FATPNAMEP OFFST BASE LENGTH FATSTRINGP) \CORE.FINDPAGE +(COREPAGECACHE PAGENUMBER FILEPAGES PAGEPOINTER) \CHTOPC (COUNT) GC-FILING-DIRECTORY (OPENFILE +NSDIRECTORYP NSDIRECTORIES FSNAMESTRING NSCONNECTIONS DEVICEINFO NSHBUSYCOUNT NSHDATUM FSCACHEDHANDLES +) SPP.SENDATTENTION (XIPLENGTH) \MAPPNAME (USESILPACKAGE) \CORE.GENERATEFILES (DEVICEINFO +IOFILEFULLNAME) \TFBRAVO.EOLS (TEXTLEN) FB.SORTCOMMAND (TABLEBROWSER NOSUBDIRECTORIES INFODISPLAYED +NAMESTART TIDATA FILEINFO HASDIRPREFIX STARTOFNAME HEADINGWINDOW) FILL.INCY (ADDR LLEN FBBT) +PROCESS.EVALV (PROCDELETED PROCFX) \BITMAPTOSCREEN (SCDESTINATION) CHECKFPTOVP (NActivePages +FPOCCUPIED FPVIRTUALPAGE) FB.GET.SORT.MENU (SORTMENU INFODISPLAYED) FONTCOPY (FONTFAMILY FONTSIZE +FONTFACE ROTATION FONTDEVICE) CURRENT.WORD (START NSCHARHASH CPXREALCHAR STOPATOM) \FILLCIRCLE.PSC ( +BITMAPWIDTH BITMAPHEIGHT BITMAPRASTERWIDTH) TYPE.BUFFER (CPXPRINTCHARS CPXWIDTH) TOGGLE/SIDESFLG ( +SIDESFLG) \CORE.FILEINFOFN (COREFILELST) TEDIT.BUILD.PCTB1 (STREAMHINT FMTSPEC PLEN PLOOKS PPARALOOKS) + \PFFindRootDirEntry (file entries) FONTMAPARRAY (PRETTYFONT#) SEDIT::STRINGWIDTH (OFFST BASE LENGTH +FATSTRINGP) \CORE.NEXTFILEFN (COREFILELST IOFILEFULLNAME) MB.THREESTATE.DISPLAY (XSIZE YSIZE YDESC) +FB.ALPHABETIC.ATTR (SORTVALUE TIDATA) GAINSPACE (PRECHECK MESSAGE KEYLST FORM) SEDIT::UPDATE-TITLE ( +SEDIT::CHANGED-STRUCTURE? SEDIT::ICON-TITLE) \CORE.GETFILEINFO.FROM.INFOBLOCK (IOEPAGE IOEOFFSET +IOFIBCreationTime IOFIBReadTime IOFIBWriteTime IOFIBType COREEOLC) CH.LIST.DOMAINS (OCALLSERVERS +NSORGANIZATION) FB.INSERT.SUBDIRECTORIES (FILENAME SUBDIREND TIDATA) \SMASHABLESTRING (READONLY +FATSTRINGP) TERM.IDENTIFY.SELF (TERM.IDENTITY.STRING OUTSTREAM) \CORE.GETFILEHANDLE (IOFILEFULLNAME +IOEOFFSET IOEPAGE COREEOLC) BRHL/LAYOUT/DAUGHTERS (NODEPOSITION YCOORD NODEID FROMNODES) +TEDIT.SELECT.LINE.SCANNER (WRIGHT THISLINE TEXTLEN NEXTLINE YBOT BOTTOM SCRATCHSEL LN L1 \WINDOW +LHASPROT FORMATTEDP CHAR1 CHARLIM CR\END PREVLINE PTOP CH# CHLIM LEFTMARGIN LXLIM XLIM X0) SPP.OPENP ( +SPPTERMINATEDP) \RPLCHARCODE (READONLY LENGTH FATSTRINGP BASE OFFST) SHAPEW (RESHAPEFN WIDTH HEIGHT +LEFT BOTTOM NEWREGIONFN) \BLTSHADE.PSC (IMAGEDATA POSTSCRIPTCLIPPINGREGION LEFT BOTTOM WIDTH HEIGHT +BITMAPWIDTH BITMAPHEIGHT BITMAPRASTERWIDTH) SEDIT::CREATE-GAP-NODE (SEDIT::LINEAR-ITEM) +TOGGLE/DIRECTEDFLG (DIRECTEDFLG) \TEDIT.APPLY.CHARLOOKS (\TEXTOBJ CH# SEL DCH) \TEDIT.PROCIDLEFN ( +MENUFLG) TEDIT.BUILD.PCTB2 (STREAMHINT FMTSPEC TXTCHARLOOKSLIST TXTPARALOOKSLIST PFATP PFPOS PLEN +PLOOKS) \CORE.GETFILEINFO (ACCESSBITS) \TEDIT.UNIQUIFY.PARALOOKS (TXTPARALOOKSLIST) SEDIT::TTYEXITFN ( +SEDIT::OPEN-NODE-CHANGED?) GNCCODE (LENGTH OFFST FATSTRINGP BASE) GLCCODE (FILL-POINTER FATSTRINGP +BASE OFFST) \PRINTFPTOVP (NActivePages) STREQUAL (LENGTH BASE OFFST FATSTRINGP) TYPENAME (DTDNAME) +FB.PROMPTFORINPUT (PROMPTWINDOW) CL:SYMBOL-PACKAGE (PACKAGE) FW-ADJUST-REGION (OFDSTATUS NAMEWIDTH +YCOORD) L-CASE (FATPNAMEP XBASE PNAMEBASE PNAMELENGTH FATSTRINGP OFFST BASE LENGTH) ENDPAGE.IP (IPDATA +) \LOCKFN (DEFINITIONCELL CCODEP DEFPOINTER) U-CASEP (PNAMEBASE PNAMELENGTH FATPNAMEP OFFST BASE +LENGTH FATSTRINGP) GETTOPVAL (VALUE) \MAKEWRITABLESTRING (FATSTRINGP) \NSFILING.COPY/RENAME ( +NSDIRECTORIES NSROOTNAME NSVERSION NSHBUSYCOUNT NSHDIRECTORYP NSHDATUM FSCACHEDHANDLES FSSESSIONLOCK) +SPPOUTPUTSTREAM (SPPOUTPUTSTREAM) EDITBM (WIDTH HEIGHT LEFT BOTTOM BITMAPBITSPERPIXEL BITMAPWIDTH +BITMAPHEIGHT) TEDIT.PUT (STREAMHINT THISLINE FULLNAME TEXTLEN FULLFILENAME TXTFILE EOLCONVENTION PCTB +POBJ PFILE NEXTPIECE) TEDIT.UNDO.REPLACE (THOLDINFO THCH# SEL THLEN THFIRSTPIECE THPOINT) +%%MAKE-STRING-ARRAY-FAT (INDIRECT-P TOTAL-SIZE) \TEDIT.TEXTBIN.STRINGSETUP (FATSTRINGP BASE OFFST +COFFSET) \LOCKWORDS (WORDINPAGE) \CREATEDISPLAYFONT (FONTCHARSETVECTOR) %%MAKE-ARRAY-WRITEABLE ( +INDIRECT-P) \CORE.GETFILENAME (COREDIRECTORY) \#BLOCKDATACELLS (ARLEN DTDHUNKP DTDSIZE) +\CORE.PACKFILENAME (DEVICENAME) TEDIT.PUT.PCTB2 (FMTSPEC BASE PCTB PLOOKS DEFAULTCHARLOOKS +EOLCONVENTION TXTPAGEFRAMES TXTPARALOOKSLIST TXTCHARLOOKSLIST PPARALAST PLEN PPARALOOKS POBJ PFATP +PNEW PFILE FULLNAME PFPOS PSTR OFFST LENGTH FATSTRINGP NEXTPIECE CARETLOOKS) TEDIT.GET.OBJECT0 ( +TEXTOBJ PREVPIECE PLOOKS DEFAULTCHARLOOKS POBJ) FB.PROMPTW.FORMAT (PROMPTWINDOW) +\TEDIT.DIFFUSE.PARALOOKS (PPARALAST PPARALOOKS NEXTPIECE PREVPIECE) \LOCKVAR (VCELL) +\NSRANDOM.CLOSEFILE (NSFILING.CONNECTION FSSESSIONLOCK ACCESS ACCESSBITS DEVICEINFO DEVICE) +\CREATE-REAL-CHARSET.DISPLAY (FONTCHARSETVECTOR WEIGHT SLOPE FONTAVGCHARWIDTH) SEDIT::BUILD-WINDOW ( +SEDIT::ENVIRONMENT SEDIT::ICON-TITLE SEDIT::EDIT-TYPE LEFT BOTTOM RIGHT TOP SEDIT::DEFAULT-FONT +SEDIT::DEFAULT-LINE-SKIP) RAISE/TRANSITION/CHAIN (YCOORD) \TEDIT.FIXINSSEL (SET \TEXTOBJ CH# CHLIM) +\PUTBASESTRING (BASE OFFST LENGTH FATSTRINGP PNAMEBASE PNAMELENGTH FATPNAMEP) TERM.GODOWN (YPOS +BOTTOMMARGIN FONTDESCENT XPOS FONTHEIGHT DSP) INSERTLINE (END ROW NEXTLINE) \SFMAKEITALIC (WIDTHS +OFFSETS CHARSETASCENT CHARSETDESCENT CHARSETBITMAP BITMAPWIDTH BITMAPHEIGHT) \TEDIT.SHOW.CHARLOOKS ( +\TEXTOBJ CH# SEL SCRATCHSEL TEXTLEN PCTB PLOOKS) AUTOCR? (END) \TEXTMENU.TOGGLE.DISPLAY (XSIZE YSIZE +YDESC) ALIGNMENTNODE (GRAPHNODES) SEDIT::CREATE-CONSTANT-STRINGS (SEDIT::DEFAULT-FONT SEDIT::KEYWORD-FONT +) SEDIT::CFV-CLISP (SEDIT::SUB-NODES SEDIT::WIDTH SEDIT::LPAREN-STRING SEDIT::SPACE-WIDTH +SEDIT::PREFERRED-WIDTH SEDIT::MAX-WIDTH) \IFSERRORSTRING (SEQNAME) \BUILDSLUGCSINFO (WIDTHS) +COURIER.WRITE (HIBYTE LOBYTE) \CORE.OPENFILE (ACCESS INFOBLK IOFILEFULLNAME IOEOFFSET IOEPAGE COREEOLC +) TEDIT.UNDO.MOVE (THAUXINFO THTEXTOBJ THOLDINFO THCH# SEL LINES TEXTLEN THFIRSTPIECE) +\TEDIT.TEXTBIN.FILESETUP (ACCESSBITS PAGE PFPOS OFFSET CPPTR CPAGE COFFSET CBUFSIZE) \SETPUPCHECKSUM ( +PUPCHECKSUMBASE PUPLENGTH) \SFROTATECSINFO (CHARSETBITMAP) POSTSCRIPT.HARDCOPYW (IMAGEDATA +POSTSCRIPTCLIPPINGREGION BITMAPWIDTH LEFT WIDTH BITMAPHEIGHT BOTTOM HEIGHT POSTSCRIPTSCALE) \SETARG0 ( +BLINK NARGS IVAR) FB.INCREASING.NUMERIC.ATTR (SORTVALUE TIDATA) \COREFILE.SETPARAMETERS (INFOBLK +IOFIBType) SEDIT::ASSIGN-FORMAT-CLISP (SEDIT::SUB-NODES CL:STRUCTURE) \NSRANDOM.OPENFILE (ACCESSBITS +FULLFILENAME DEVICEINFO) \TEDIT.NEUTRALIZE.CHARLOOKS (\TEXTOBJ CH#) \DOHARDRETURN (HardReturnFXP) +TTADDTAB (FIRSTCOL) MB.MARGINBAR.DISPLAYFN (XSIZE YSIZE MARL1 MARLN MARR MARTABS MARUNIT WIDTH YDESC) +\DOHARDRETURN1 (FNHEADER FRAMENAME CLINK ALINK USECNT NEXTBLOCK SIZE IVAR BLINK VALIDNAMETABLE +NAMETABHI NAMETABLO) COMP.STTAG (LEVEL FRAME OPNAME TAG) \MKATOM (PNAMELENGTH PNAMEBASE +PNAMEFATPADDINGBYTE FATPNAMEP) SEDIT::COMPUTE-COMMENT-COLUMN (SEDIT::ENVIRONMENT +SEDIT::COMMENT-WIDTH-PERCENT SEDIT::INIT-COMMENT-SEPARATION) BRHC/OFFSET (NODEPOSITION YCOORD TONODES) + \TEDIT.FIXDELSEL (SET \TEXTOBJ CH# CHLIM) \GCSCANSTACK (StackBase EndOfStack FLAGS FIRSTPVAR FNHEADER + NLOCALS BOUND NEXTBLOCK VALIDNAMETABLE NAMETABHI NAMETABLO OVERHEADWORDS NTSIZE FIRSTTEMP +VALIDPOINTERP SIZE) SEDIT::UNDO-ATOM-CHANGE (CL:STRUCTURE SEDIT::NODE-TYPE) \CORE.SETFILEPTR (PAGE +OFFSET CPAGE ACCESSBITS COFFSET) \SCALEDBITBLT.PSC (IMAGEDATA POSTSCRIPTSCALE BITMAPWIDTH BITMAPHEIGHT + POSTSCRIPTX POSTSCRIPTY POSTSCRIPTCLIPPINGREGION) \PARSE.NUMBER (COMMONLISP COMMONNUMSYNTAX) SEDIT::REDO + (SEDIT::UNDO-UNDO-LIST SEDIT::DISPLAY-WINDOW SEDIT::SELECTION SEDIT::CARET-POINT) \CORE.BACKFILEPTR ( +ACCESSBITS FULLNAME COFFSET CPAGE CHARPOSITION) BLTSHADE (IMBLTSHADE IMAGEOPS) TERM.ERASE.IN.DISPLAY ( +TTYWIDTH XPOS YPOS FONTHEIGHT FONTDESCENT HOMEPOS WINDOW DSP) \CORE.SETEOFPTR (ACCESSBITS PAGE OFFSET +CPAGE) \DECUSECOUNT (INVALIDP USECNT ALINK BLINK CLINK SIZE RESIDUAL DUMMYBF IVAR) \CREATECHARSET.PSC +(WIDTHS) PURGEDSKDIRECTORY (OPENP VOLUME LVlabel) FM.REDISPLAYITEM (FM.USERDATA LEFT BOTTOM) +BMOBJ.PUTFN (BITMAP BMOBJSCALEFACTOR BMOBJROTATION BMOBJDESCENT) \INCUSECOUNT (INVALIDP USECNT +NEXTBLOCK FLAGS) COMP.STJUMP (OPARG OPNAME FRAME LEVEL) \COPYDATATYPE (DTDPTRS DTDSIZE) SEDIT::COPY-NODE + (SEDIT::NODE-TYPE CL:STRUCTURE SEDIT::SUB-NODE-INDEX SEDIT::INLINE-WIDTH SEDIT::PREFERRED-WIDTH +SEDIT::UNASSIGNED SEDIT::SUB-NODES SEDIT::LINEARIZE SEDIT::LINEAR-FORM SEDIT::ACTUAL-WIDTH +SEDIT::ACTUAL-LLENGTH SEDIT::COPY-STRUCTURE) SEDIT::SKIP-TO-GAP (SEDIT::SELECTION SEDIT::CARET-POINT +SEDIT::DISPLAY-WINDOW SEDIT::SELECT-NODE SEDIT::POINT-NODE) MB.NB.DISPLAYFN (XSIZE YSIZE YDESC) +FW-MOVEW (OFDWINDOW LEFT BOTTOM) \DOSTACKOVERFLOW (ResetFXP SubovFXP) GETSELECTEDITEMS (ITEMS) +\CORE.GETNEXTBUFFER (CPAGE COFFSET ACCESSBITS FULLNAME CBUFSIZE CBUFPTR EPAGE EOFFSET) +\NSFILING.SETFILEINFO (RANDOMACCESSP NSFILING.HANDLE NSHDATUM FULLFILENAME) \MOVEFRAME (NEXTBLOCK SIZE + EndOfStack VALIDNAMETABLE NAMETABHI BLINK NAMETABLO RESIDUAL DUMMYBF) WINDOWWORLD (SCONOFF +SCDESTINATION SCTITLEDS) FROMLINKS (FROMNODES) \ALLOCBLOCK (TRAILER) \SETUPUSERSTACK (EndOfStack +MachineType) SLICESET (LINEARIZEDARRAY OFFSETS OFFSETCONSTANT) \NSFILING.NEXTFILE (NSGENERATOR +NSCONNECTION NSFILTER NSIGNOREDIRECTORIES NSBULKSTREAM) TEDIT.GET.CHARLOOKS0 (CLBOLD CLITAL) +\GATHER-CLEANUP-FORMS (PROCFX) SEDIT::TRANSLATE-CHARS (MULTESCAPECHAR OFFST BASE LENGTH FATSTRINGP) +SEDIT::LINEARIZE-CLISP (SEDIT::SUB-NODES SEDIT::SPACE-WIDTH SEDIT::ENVIRONMENT SEDIT::START-X +SEDIT::INDENT-BASE SEDIT::WIDTH SEDIT::LPAREN-STRING SEDIT::INLINE-WIDTH SEDIT::RIGHT-MARGIN +CL:STRUCTURE SEDIT::COMMENT-WIDTH SEDIT::COMMENT-SEPARATION SEDIT::NODE-TYPE CL:FORMAT SEDIT::LAST-LINE + SEDIT::LINEAR-FORM SEDIT::DESTINATION SEDIT::UNASSIGNED SEDIT::ROOT SEDIT::CURRENT-X SEDIT::RPAREN-STRING +) \COERCETODS (DSP) \FONTFILENAME.OLD (WEIGHT SLOPE) SEDIT::STRINGIFY-ATOM (CL:STRUCTURE) +TTYIN.SHOW.?ALTERNATIVES (NSCHARHASH) MBUTTON.FIND.NEXT.BUTTON (PCTB POBJ PLEN NEXTPIECE) +\FONTFILENAME (WEIGHT SLOPE EXPANSION) SEDIT::COMPUTE-SELECTION-POSITION-DEFAULT (SEDIT::SUB-NODES +SEDIT::SELECT-NODE SEDIT::SELECT-START SEDIT::SELECT-END SEDIT::START-X SEDIT::FIRST-LINE +SEDIT::ACTUAL-LLENGTH SEDIT::LAST-LINE) FB.DECREASING.NUMERIC.ATTR (SORTVALUE TIDATA) \ITEMW.FLIPCOPY +(SELECTABLEITEMREGION LEFT BOTTOM WIDTH) \AGE.ROUTING.TABLE (RTHOPCOUNT RTTIMER RTRECENT) MAPATOMS ( +DTDSIZE DTDFREE PAGE#) \EXTENDSTACK (EndOfStack) EXTEND/TRANSITION/CHAIN (YCOORD XCOORD) LISPVERSION ( +LVersion) FB.DIRECTORYP (DIRECTORYFILEP) SEDIT::CONTAINS? (SEDIT::SELECT-NODE SEDIT::SELECT-START +SEDIT::SELECT-END SEDIT::SUB-NODE-INDEX SEDIT::SUPER-NODE SEDIT::DEPTH) \TEDIT.APPLY.PARASTYLES ( +TXTSTYLESHEET FMTSTYLE) ATOMHASH#PROBES (PNAMEBASE PNAMELENGTH FATPNAMEP BASE OFFST LENGTH FATSTRINGP) + CREATE-PROCESS-STREAM (OPENFILELST) ONEDINSPECTW.CREATE (LEFT BOTTOM WIDTH HEIGHT XCOORD YCOORD) +\DSPSCALE.PSC (IMAGEDATA POSTSCRIPTSCALE) %%ARRAY-BASE (BASE) SEDIT::UNDO-EXTRACT (SEDIT::SUB-NODES +SEDIT::DEPTH) \VAMCheckEndOfVol (volumeSize) %%ARRAY-OFFSET (OFFSET) TEDITFROMBRAVO (RUNS PARALOOKS) +\HANDLE.RAW.PUP (EPNETWORK PUPDESTHOST NDBPUPHOST# PUPDESTNET NDBPUPNET# PSOCKETLO PSOCKETHI +PUPDESTSOCKETHI PUPDESTSOCKETLO PUPTYPE PUPCHECKSUM PUPCHECKSUMBASE PUPLENGTH INQUEUELENGTH +PUPSOC#ALLOCATION INQUEUE PUPSOCEVENT) %%ARRAY-TYPE-NUMBER (TYPE-NUMBER) POSTSCRIPT.ENDPAGE (IMAGEDATA + POSTSCRIPTPAGEBLANK) SEDIT::GETKEY (PROCTYPEAHEAD SEDIT::CARET-POINT SEDIT::DISPLAY-WINDOW) +\GENERIC-UNREGISTER-STREAM (OPENFILELST) \FONTFACE.COLOR (COLOR) \ADD-OPEN-STREAM (OPENFILELST) +\NSFILING.FILEINFOFN (CURRENTINFO) \COURIER.RESULTS (RESULTS ERRORS INHERITS ERR# ARGS) \PAGEDEOFP ( +ACCESSBITS COFFSET CPAGE CBUFPTR CBUFSIZE EPAGE EOFFSET) SEDIT::SELECTED-FN-NAME (SEDIT::OPEN-NODE-CHANGED? + SEDIT::CARET-POINT SEDIT::POINT-NODE) \PFInitializeVols (subVolumeCount) BEGINPREAMBLE.IP (IPDATA) +\PAGEDGETEOFPTR (EPAGE EOFFSET) \FIND.LOCALPUPHOSTNUMBER (PUPNET# PUPHOST#) \SFLHASHLOOKUP (HASHMASK +HASHPAGE#) \PAGEDGETFILEPTR (CPAGE COFFSET) FW-SHAPEW (OFDWINDOW LEFT BOTTOM WIDTH HEIGHT) +SEDIT::ASSIGN-FORMAT-DOTLIST (SEDIT::SUB-NODES) \NSRANDOM.READPAGES (NSFILING.CONNECTION EPAGE EOFFSET + NSFILING.PAGE.CACHE NSFILING.LAST.REQUEST ACCESSBITS NSFILING.SERVER.LENGTH) BREAKLINE (END START) +PUTD (FRAMENAME) \NODIRCORE.OPENFILE (ACCESS INFOBLK IOFILEFULLNAME IOEOFFSET IOEPAGE COREEOLC) \PUTD +(DEFINITIONCELL FNHEADER ENVIRONMENT TYP BASE ARGTYPE NTSIZE) COPYGRAPH (GRAPHNODES NODEPOSITION) +\RENAMEDFN (FNHEADER STARTPC) SI::UNWIND-TO-BLIP (INVALIDP CLINK FIRSTPVAR) \INIT-MISCN-TABLE (BASE +INDEX MVS) GRAPHEROBJ (LEFT BOTTOM) GETD (DEFINITIONCELL DEFPOINTER CCODEP) CL:SYMBOL-NAME ( +PNAMELENGTH FATPNAMEP PNAMEBASE) POSTSCRIPT.PUTCOMMAND (IMAGEDATA POSTSCRIPTCHARSTOSHOW +POSTSCRIPTPENDINGXFORM) GETMENUITEM (ITEMS MENUROWS MENUCOLUMNS) CLOSEALL (USERVISIBLE) SLICEDIMENSION + (SELECTEDDIMS) SCROLLW (SCROLLFN) \DSPSCALE2.PSC (IMAGEDATA POSTSCRIPTSCALE) \POLYSHADE.BLT (BY RX LX + WC TY) \NSRANDOM.SESSION.WATCHER (DEVICEINFO NSCONNECTIONS OPENFILELST DEVICE ACCESSBITS +FSSESSIONTIMER FSCONTINUANCE FSLASTREALACTIVITYTIMER FSREALACTIVITY) \STKMIN (OPCODENAME LEVADJ BASE +STARTPC NA PV) \NSFILING.GETFILEINFO (RANDOMACCESSP ACCESSBITS NSFILING.HANDLE NSHATTRIBUTES +NSFILING.CONNECTION) \FINDOP (OPCODENAME OP#) SEDIT::SPLIT-LITATOM (SEDIT::NODE-TYPE +SEDIT::OPEN-NODE-CHANGED? SEDIT::SUPER-NODE) FM.RESETSHAPE (LEFT BOTTOM) \GET-COMPILED-CODE-BASE ( +CCODEP DEFPOINTER FNHEADER) SEDIT::COMPUTE-FORMATS-AND-FORMAT-VALUES (SEDIT::ASSIGN-FORMAT SEDIT::NODE-TYPE + CL:FORMAT SEDIT::SUB-NODES SEDIT::COMPUTE-FORMAT-VALUES SEDIT::ENVIRONMENT) SEDIT::LINEARIZE-DOTLIST +(SEDIT::RPAREN-STRING SEDIT::ENVIRONMENT) \FONTFILENAME.NEW (WEIGHT SLOPE EXPANSION) SPY.BUTTON ( +XCOORD YCOORD) TWODINSPECTW.CREATE (LEFT BOTTOM WIDTH HEIGHT XCOORD YCOORD) SETA (READONLY BASE ORIG +LENGTH OFFST TYP) \DSPCOLOR.PSC (POSTSCRIPTCOLOR IMAGEDATA) GRAPHOBJ.IMAGEBOXFN (WIDTH HEIGHT +NODEHEIGHT NODEFONT NODEWIDTH) ARRAY (BASE) BRHC/LAYOUT/DAUGHTERS (NODEPOSITION YCOORD) +COPY.WINDOW.TO.BITMAP (LEFT BOTTOM WIDTH HEIGHT) \10MB.GETPACKETSTATUS (DLIOCBSTATUS DLFOROUTPUTUSE +DLIOCBLENGTH DLRETRANSMISSIONMASK D0IOCBSTATUS) \SELITEM.FROM.PROPERTY (ITEMINFO ITEMINFOTYPE) +\DELETETREE (TOTLEN COUNT UPWARD) MB.MARGINBAR.SELFN (MARL1 MARLN MARR MARTABS TABX MARUNIT XSIZE +YSIZE WIDTH MARTABTYPE) \MEDW.GETSCREENREGION (LEFT WIDTH BOTTOM HEIGHT XCOORD YCOORD) +\MEDW.CARET.SHOW (STREAM IMAGEDATA CURSOR CUIMAGE STREAMX STREAMY BITMAPWIDTH BITMAPHEIGHT +DDClippingRegion LEFT WIDTH BOTTOM HEIGHT DDXOFFSET DDYOFFSET) FB.FETCHFILENAME (FILENAME TIDATA) +SEDIT::SET-SELECTION-STRING (SEDIT::FONT) TEDIT.GET.OBJECT1 (TEXTOBJ PREVPIECE PLOOKS DEFAULTCHARLOOKS + POBJ) SEDIT::COMPUTE-ALL-FORMATS (SEDIT::ROOT) SEDIT::QUOTE-CURRENT-SELECTION (SEDIT::OPEN-NODE-CHANGED? + SEDIT::SELECTION SEDIT::CARET-POINT SEDIT::SELECT-NODE) \READSTRIKEFONTFILE (BITMAPBASE OFFSETS +WIDTHS) SI::PVAR-VALUE-IN-FRAME (OVERHEADWORDS FNHEADER NTSIZE BOUND FIRSTPVAR PVVALUE) BEGINPAGE.IP ( +IPDATA) SHOW.CLEARINGHOUSE (OCORGANIZATION OCDOMAINS DCDOMAIN) \READACFONTFILE (LEFTKERN IMAGEWIDTHS +WIDTHS FBBBOY FBBBDY OFFSETS BBDY BBOX BBDX BITMAPBASE BBOY) SI::VARIABLE-NAME-IN-FRAME (NAMETABLE +OVERHEADWORDS NTSIZE) TERM.CLEAR.TAB (TERM.TAB.STOPS) OPT.NOTJUMP (OPNAME OPARG) FW-ADJUST-PLACEMENT ( +OFDSTATUS OFDWIDTH WIDTH OFDHEIGHT HEIGHT LEFT OFDLEFT BOTTOM OFDBOTTOM) SEDIT::CREATE-NULL-LIST ( +SEDIT::DEFAULT-FONT SEDIT::ENVIRONMENT) \TEDIT.NEXT.LINE.BOTTOM (FMTBASETOBASE LFMTSPEC DESCENT 1STLN +LEADBEFORE LEADAFTER LHEIGHT) ASSURE.PUP.READY (NDBPUPHOST# NDBNEXT NDBPUPNET#) \NSRANDOM.WRITEPAGES ( +NSFILING.CONNECTION NSFILING.SERVER.LENGTH NSFILING.HANDLE EPAGE EOFFSET REVALIDATEFLG NSHATTRIBUTES) +RETURN (FRAMENAME NAMETABLE CLINK INVALIDP) LOOKUPHASHFILE (Stream) \DISCARDFRAME (ALINK CLINK BLINK +SIZE USECNT RESIDUAL DUMMYBF IVAR) MBUTTON.FIND.BUTTON (PCTB POBJ PLEN NEXTPIECE) SEDIT::COMPILE-STRUCTURE + (SEDIT::ICON-TITLE SEDIT::EDIT-TYPE CL:STRUCTURE SEDIT::SUB-NODES SEDIT::ROOT SEDIT::DISPLAY-WINDOW) +\NSRANDOM.TRUNCATEFILE (NSFILING.SERVER.LENGTH NSFILING.CONNECTION NSFILING.HANDLE REVALIDATEFLG +NSHDATUM NSHATTRIBUTES) CL:FIND-SYMBOL (BASE OFFST LENGTH FATSTRINGP) \DELETEPIECE (NEXTPIECE +PREVPIECE PTREENODE) FINDPCNODE (PTREENODE) TEDIT-BOOK (TEXTLEN) TB.COLLECT.ITEMS (TBITEMS) ASKUSER1 ( +KEYLST KEY) SEDIT::CFV-DOTLIST (SEDIT::WIDTH SEDIT::LPAREN-STRING SEDIT::DEFAULT-FONT SEDIT::SUB-NODES + SEDIT::NODE-TYPE SEDIT::DOT-STRING CL:STRUCTURE SEDIT::INLINE-WIDTH SEDIT::PREFERRED-WIDTH) +\BASEBYTES.BLOCKIO (CBUFPTR COFFSET EOFFSET ENDOFSTREAMOP) SCROLL.HANDLER (VERTSCROLLREG +VERTSCROLLWINDOW HORIZSCROLLREG HORIZSCROLLWINDOW) ELT (BASE ORIG LENGTH OFFST TYP) \TERPRI.PSC ( +IMAGEDATA POSTSCRIPTY POSTSCRIPTLINESPACING POSTSCRIPTBOTTOMMARGIN \SFDescent POSTSCRIPTFONT +POSTSCRIPTLEFTMARGIN) \SFROTATECSINFOOFFSETS (OFFSETS WIDTHS CHARSETBITMAP) PROCESSPROP (PROCWINDOW +PROCPRIORITY PROCNAME RESTARTABLE PROCFORM PROCINFOHOOK PROCAFTEREXIT PROCBEFOREEXIT PROCTTYENTRYFN +PROCTTYEXITFN PROCUSERDATA PROCRESTARTFORM) \FONTRESETCHARWIDTHS (OFFSETS WIDTHS) ROTATE-BITMAP ( +BITMAPBASE BITMAPRASTERWIDTH PBTDESTBIT PBTSOURCE) \IRM.CHOOSE.REF (TYPE PRIMARYFLG) +SEDIT::SET-POINT-STRING (SEDIT::WIDTH SEDIT::FONT) \BASEBYTES.IO.INIT (COFFSET BIASOFFST EOFFSET) +FM.CHANGESTATE (FM.USERDATA LEFT BOTTOM) GRAPHOBJ.DISPLAYFN (XKERN LEFT YDESC BOTTOM) SEDIT::BUILD-NODE + (SEDIT::\X SEDIT::CURRENT-NODE) TEDITWINDOWP (\WINDOW) OPT.CHECKTAG (LEVEL) CLEARSTK (STACKP0 EDFXP) +\BASEBYTES.SETFILEPTR (BIASOFFST EOFFSET) BRHC/LAYOUT/TERMINAL (NODEHEIGHT) ROTATE-BITMAP-LEFT ( +BITMAPBASE BITMAPRASTERWIDTH PBTSOURCEBIT PBTDEST) TERM.ERASEBITS (DSP) \BASEBYTES.READP (COFFSET +EOFFSET CBUFPTR) SLICEREF (LINEARIZEDARRAY OFFSETS OFFSETCONSTANT) \SFMAKECOLOR (CHARSETBITMAP) +RELSTKP (EDFXP INVALIDP CLINK FRAMENAME) SPP.EOFP (ACCESSBITS COFFSET CBUFSIZE) \DSPTOPMARGIN.PSC ( +POSTSCRIPTTOPMARGIN IMAGEDATA) SEDIT::SET-SELECTION-LITATOM (SEDIT::FONT) \BASEBYTES.BOUT (COFFSET +EOFFSET WRITEXTENSIONFN CBUFPTR) STRIKECSINFO (WIDTHS IMAGEWIDTHS OFFSETS CHARSETBITMAP YWIDTHS +CHARSETASCENT CHARSETDESCENT) \BASEBYTES.BIN (COFFSET) UPDATEWFROMIMAGE (REG SAVE) WRITESTRIKEFONTFILE + (FONTCHARSETVECTOR WIDTHS OFFSETS IMAGEWIDTHS HIBYTE LOBYTE BITMAPRASTERWIDTH CHARSETBITMAP \SFHeight + CHARSETASCENT CHARSETDESCENT BITMAPBASE) FB.PROMPTWPRINT (PROMPTWINDOW) \BASEBYTES.OPENFN ( +FULLFILENAME CBUFPTR BIASOFFST WRITEXTENSIONFN) \BASEBYTES.PEEKBIN (COFFSET FULLNAME EOFFSET +ENDOFSTREAMOP CBUFPTR) \COURIER.OUTPUT.ABORTED (BULK.DATA.CONTINUATION INTERNALFLG FULLFILENAME +ACCESSBITS) \BASEBYTES.NAME.FROM.STREAM (FULLFILENAME CBUFPTR BIASOFFST) TTUNREADBUF (CPXREALCHAR) +\SETUPSTACK1 (STKMIN FIRSTPVAR PV PADDING) CH.FINDSERVER (NSORGANIZATION NSDOMAIN OCALLSERVERS +OCDOMAINS DCDOMAIN DCKNOWNSERVERS) TEDIT.HCPYFILE (TXTFILE FULLFILENAME) UTF8.OUTCHARFN (EOLCONVENTION + CHARPOSITION) DELETE.TO.END (NEXTLINE) GRAPHOBJ.PUTFN (XCOORD YCOORD) ERASE/GRAPHNODE (NODEHEIGHT +XCOORD YCOORD NODEWIDTH) ASKUSER$ (KEY) SEDIT::MUTATE (SEDIT::DISPLAY-WINDOW SEDIT::SELECTION +SEDIT::CARET-POINT SEDIT::SELECT-NODE SEDIT::SELECT-TYPE SEDIT::SELECT-START) PAGEFAULTS (PAGEFAULTS) +\RESETSTACK0 (StackBase TELERAIDFXP MiscFXP CCODEP SubovFXP) \MAKEBASEBYTESTREAM (DEVICE) +\SETTOTALTIME (STARTTIME) \MBS.OUTCHARFN (BBSNCHARS FW7) \BASEBYTES.TRUNCATEFN (BIASOFFST EOFFSET) +\SERIALNUMBER (SerialNumber) CARET (CURSOR) OPENSTRINGSTREAM (FATSTRINGP BASE OFFST LENGTH) +\FBITMAPBIT.UFN (BITS) SEDIT::MENU-SELECTEDFN (SEDIT::COMMAND-TABLE SEDIT::ENVIRONMENT) +\BUILDATWSTRUCTURE (WIDTH HEIGHT ATWHEREONEDGE) \PFInitFileDescriptors (subVolumeCount lvID subVolumes + subVolumeMarkerID) COMP.SETARG (OPARG OPNAME) FB.SELECTEDFILES (TABLEBROWSER) ERASEMENUIMAGE (LEFT +MENUGRID MENUOUTLINESIZE BOTTOM IMAGEWIDTH IMAGEHEIGHT) SEDIT::MARKASCHANGEDFN (SEDIT::ICON-TITLE +SEDIT::EDIT-TYPE) SPP.READP (ACCESSBITS COFFSET CBUFSIZE) COURIER.CALL (ARGS) PFI.MAKE.LPT.STREAM ( +LEFT) \NSRANDOM.SETEOFPTR (PAGE OFFSET ACCESSBITS EPAGE) STRING.EQUAL (PNAMELENGTH PNAMEBASE FATPNAMEP + LENGTH BASE OFFST FATSTRINGP TYP) BRHC/LAYOUT (TONODES NODEWIDTH NODEHEIGHT NODEPOSITION) +\TEDIT.RESHAPEFN (HEIGHT WIDTH SEL YBOT CHAR1 NEXTLINE LHEIGHT DESCENT) \CAUSEINTERRUPT (StackBase +NEXTBLOCK SIZE) \TEXTMENU.START (LEFT TOP WIDTH TEXTOBJ PROMPTWINDOW) CRITSECT (REST LX RX TY) +SEDIT::SET-POINT-LITATOM (SEDIT::WIDTH SEDIT::FONT) \SETPOS.PSC (POSTSCRIPTX POSTSCRIPTY) +TTCOMPLETEWORD (NSCHARHASH CPXREALCHAR) GETBOXSCREENREGION (SCREEN XCOORD YCOORD) SEDIT::BUILD-LINEAR-FORM + (SEDIT::ROOT SEDIT::START-X SEDIT::LINEAR-FORM SEDIT::FIRST-BLOCK SEDIT::SUB-NODES SEDIT::DISPLAY-WINDOW + SEDIT::CURRENT-LINE SEDIT::CURRENT-X SEDIT::ACTUAL-WIDTH) \DSPBOTTOMMARGIN.PSC ( +POSTSCRIPTBOTTOMMARGIN IMAGEDATA) COMP.LAM1 (OPNAME OPARG) SPP.BACKFILEPTR (COFFSET) TEDIT.RAW.INCLUDE + (SEL TXTRAWINCLUDESTREAM SET TXTREADONLY TEXTLEN PCTB PLEN \WINDOW) \DSPSPACEFACTOR.PSC (IMAGEDATA +POSTSCRIPTSPACEFACTOR POSTSCRIPTNATURALSPACEWIDTH) INTERRUPTED (ETHERINTERRUPT LOGMSGSPENDING +IOINTERRUPT STORAGEFULL STACKOVERFLOW VMEMFULL GCDISABLED WAITINGINTERRUPT INTCHARCODE INTERRUPTLIST) +\ADDOFD (NAMEDP) WINDOWSIZE (WIDTH HEIGHT) TOTOPW (TOTOPWFN SCREEN) \DOMISCAPPLY1 (MISCSTACKFN +MISCSTACKARG1 MISCSTACKARG2) COMP.ARG (OPNAME OPARG OP#) BITBLT (IMBLTSHADE IMAGEOPS BITMAPWIDTH +BITMAPHEIGHT IMAGEDATA LEFT DDClippingRegion BOTTOM DDDestination DDXOFFSET DDClippingLeft DDYOFFSET +DDClippingBottom DDClippingRight DDClippingTop DDTexture IMBITBLT) COMP.CALL (EXTCALL) +DBG::BACKTRACE-ITEM-SELECTED (BKMENUINFO MENUUSERDATA) AS.NEXT.VERIFIER (NSHNM0 NSHNM1 NSHNM2) +\DISPLAYLINE (CHARS THISLINE WIDTHS LOOKS \WINDOW TEXTLEN TXTTERMSA STREAMHINT LCBITMAP DISPLAYCACHE +DISPLAYCACHEDS DISPLAYHCPYDS FMTHARDCOPY LFMTSPEC PREVLINE YBOT LHEIGHT RIGHTMARGIN BITMAPWIDTH +BITMAPHEIGHT CHAR1 WBOTTOM DESC LEFTMARGIN DESCENT IMAGEDATA DDPILOTBBT DDXOFFSET DDClippingLeft +DDClippingRight CLFONT BASE DDWIDTHSCACHE DDOFFSETSCACHE CLOFFSET LEN CLLEADER CLUSERINFO WRIGHT +FMTREVISED LMARK YBASE) IRM.CREF.BUTTONEVENTFN (XSIZE YSIZE) \GATHER-CLEANUP-FORMS1 (EndOfStack +StackBase INVALIDP NAMETABLE FASTP DUMMYBF %#BLINK IVAR FRAMENAME CLINK) FB.TABLEBROWSER (TABLEBROWSER +) DO.EDIT.COMMAND (END START LASTSKIP LASTSKIPCHAR NSCHARHASH STOPATOM CPXREALCHAR) +\MEDW.GETSCREENPOSITION (SCREEN) UPDATEPCNODES (PTREENODE COUNT TOTLEN UPWARD) +\GATHER-SPECIAL-BINDINGS (NTSIZE OVERHEADWORDS BOUND FIRSTPVAR PVVALUE) \CREATE.TTYDISPLAYSTREAM (LEFT + BOTTOM WIDTH HEIGHT) OPT.JUMPCHECK (OPNAME) \GC.MODIFY.BIGREFCNT (OVFLPTR OVFLCNTLO OVFLCNTHI) +\MAKE.PROCESS0 (MISCSTACKRESULT PROCHARDRESETINFO PROCNAME PROCFINISHED PROCRESTARTFORM RESTARTABLE +PROCFINISHEVENT) \10MB.GETPACKETLENGTH (DLIOCBBYTESUSED count D0IOCBBYTESUSED) CHAT.TYPESCRIPT1 ( +WINDOW TYPESCRIPTSTREAM) WOVERLAPP (REG) \STRINGSTREAM.INIT (F1 FULLFILENAME F2) \GC.ENTER.BIGREFCNT ( +OVFLPTR OVFLCNTHI) \TEDIT.CUMULATE.EVENTS (THLEN THFIRSTPIECE PLEN NEXTPIECE) TEDIT.UNPARSE.PAGEFORMAT + (REGIONSPEC WIDTH HEIGHT REGIONSUBBOXES REGIONFILLMETHOD LEFT BOTTOM REGIONLOCALINFO RIGHT PTOP) +\BACKFORMAT (NEXTLINE CHAR1 TEXTLEN STREAMHINT CHARLIM) \BLTSHADE.BITMAP (BITMAPHEIGHT BITMAPWIDTH +BITMAPBITSPERPIXEL LEFT BOTTOM WIDTH HEIGHT) \BITBLT.BITMAP (BITMAPHEIGHT BITMAPBITSPERPIXEL +BITMAPWIDTH LEFT BOTTOM WIDTH HEIGHT) \SEARCHOPENFILES (FULLNAME) \LEAF.MAYBE.FLUSH.CACHE ( +LEAFOPENCLOSELOCK) SEDIT::BUILD-INTERNAL-STRUCTURE (SEDIT::ROOT) CHAT.TYPEOUT (INSTREAM TERM.STATE +HELD TYPESCRIPTSTREAM READ) \HARDRESET-CLEANUP (PROCHARDRESETINFO OVERHEADWORDS) +SEDIT::SELECT-SEGMENT-DEFAULT (SEDIT::SUB-NODE-INDEX SEDIT::SELECT-START SEDIT::SELECT-END +SEDIT::LINEAR-FORM) \LFCloseFile (ACCESS VOLUME FILEDESC EPAGE EOFFSET) SEDIT::SELECT-SEGMENT-LITATOM +(SEDIT::SELECT-STRING SEDIT::FONT SEDIT::NODE-TYPE) DSPDESTINATION (IMAGEDATA DDDestination) OPENFILE +(FULLNAME) \HARDRESET-CLEANUP1 (FNHEADER NEXTBLOCK FIRSTPVAR OVERHEADWORDS) FILECOMS (COMSNAME +FILEPROP) TB.NTH.ITEM (TBTAILHINT TI# TBITEMS) RDTBL\NONOTHERCODES (READSA) \FORMATLINE (WRIGHT +WBOTTOM TEXTLEN THISLINE \WINDOW BASE CHARS WIDTHS LOOKS STREAMHINT TXTTERMSA CURRENTLOOKS CLINVISIBLE + PIECE PLEN NEXTPIECE PLOOKS CLPROTECTED PPARALOOKS FMTSPEC FMTHARDCOPY DISPLAYHCPYDS DISPLAYCACHEDS +TABSPEC CLFONT \SFAscent CLOFFSET \SFDescent PREVPIECE PPARALAST PCSTARTCH COFFSET PCSTARTPG CPAGE +FMTPARATYPE FMTNEWPAGEBEFORE FMTNEWPAGEAFTER FMTSPECIALX FMTSPECIALY WLEFT 1STLEFTMAR LEFTMAR RIGHTMAR + FONTCHARSETVECTOR YSIZE YDESC XSIZE PTNEWTX TXTNONSCHARS PTTYPE PTTABX PCTB CARETLOOKS +DEFAULTCHARLOOKS CHARLIM CHAR1) ASKUSERSETUP (KEY PROMPTSTRING OPTIONS) PFI.SETUP.TRANSLATIONS ( +OUTCHARFN) \GC.LOOKUP.BIGREFCNT (OVFLPTR OVFLCNTHI OVFLCNTLO) \TEDIT.GET.CHARLOOKS1 (CLBOLD CLITAL) +SPP.FORCEOUTPUT (SPPOUTPKT SPPINPUTSTREAM SPPOUTPUTSTREAM XIPLENGTH COFFSET SPPFILEPTRLO SPPFILEPTRHI +FW6 SPPEOMONFORCEOUT SPPOUTPUTABORTEDP SPPOUTPUTABORTEDFN) \GCMAPSCAN (LINKP LINKPTR STKCNT HIBITS +NXTPTR FREEPTR CONTENTS EMPTY) OPT.JFIXPASS (JPT JMIN JD OPARG) SEDIT::SCAN-STRING (MULTESCAPECHAR +SEDIT::FIRST-LINE SEDIT::START-X SEDIT::SELECT-START SEDIT::SELECT-END) \GCMAPUNSCAN (LINKP LINKPTR +STKBIT CNT NXTPTR FREEPTR CONTENTS) FIND.NON.SPACE (CPXREALCHAR) GETSCREENREGION (SCGETSCREENREGION) +\DORETCALL (MiscFXP CLINK PC FNHEADER NEXTBLOCK SIZE) \FREELISTCELL (PAGEBASE NEXTCELL WORD# CNT +NEXTPAGE DTDNEXTPAGE) FW-FORGET-STREAM (FILESTREAM OFDWINDOW) TEDIT.FORMATBOX (REGIONSPEC +REGIONFILLMETHOD REGIONSUBBOXES CHNO TEXTLEN PAGE# MAXPAGE# STATE LEFT BOTTOM MINPAGE# TEXTOBJ +LTEXTOBJ CACHE CHARLIM PAGELINECACHE) HASH.PASSWORD (OFFST BASE LENGTH FATSTRINGP) \DFSCurrentVolume ( +LVlabel) SEDIT::ATOM-CHANGE-RELINEARIZE (SEDIT::OPEN-NODE-CHANGED? SEDIT::CARET-POINT SEDIT::SELECTION + SEDIT::ROOT SEDIT::NODE-TYPE CL:STRUCTURE) \GETBRUSHBBT (BITMAPHEIGHT BITMAPWIDTH BITMAPRASTERWIDTH +DDDestination DDSOURCETYPE DDOPERATION) MACHINETYPE (MachineType) \REFCNT (NOREFCNT PAGE# EMPTY LINKP +HIBITS CNT LINKPTR NXTPTR) \ALLOCMINIMUMSIZES (ATEDGE ATMINY ATNOWY ATNOWX ATMINX ATXSIZE ATYSIZE) +\EQREFCNT1 (NOREFCNT PAGE# LINKP EMPTY HIBITS LINKPTR NXTPTR) RESET (FRAMENAME INVALIDP CLINK) +\NSRANDOM.DESTROY.STREAM (CBUFDIRTY CPAGE) NIL +REPLACE \GCMAPUNSCAN (NXTPTR LINKPTR CONTENTS FREEPTR STKBIT EMPTY) SETY.IP (IPCHARVISIBLEP IPYPOS) +COMP.APPLY* (EXTCALL) \GETFTPCONNECTION (FTPBUSY ACCESS) GETNSPRINTER (NSPRINTERNAME NSPRINTERADDRESS) + \COURIER.CHECK.ERRORS (ERR# ARGS) \TEDIT.COMMAND.LOOP (EDITOPACTIVE SET L1 LN OFFST LENGTH) +\TEDIT.GET.SINGLE.PARALOOKS2 (1STLEFTMAR LEFTMAR RIGHTMAR LEADBEFORE LEADAFTER LINELEAD TABSPEC QUAD +TABX TABKIND FMTSPECIALX FMTSPECIALY FMTUSERINFO FMTPARATYPE FMTPARASUBTYPE FMTSTYLE FMTCHARSTYLES +FMTNEWPAGEBEFORE FMTNEWPAGEAFTER) \COURIER.ATTENTIONFN (SPPOUTPUTABORTEDFN SPPOUTPUTABORTEDP) +TEDIT.SELECT (X0 XLIM DX SET \TEXTOBJ CH# CHLIM DCH POINT) TEDIT.DISPLAYTEXT (REALFILE) +\ALLOCVIRTUALPAGEBLOCK (FullSpaceUsed PAGE#) \DSPSPACEFACTOR.IP (IPSPACEWIDTH IPSPACEFACTOR) +OPT.RETPOP (LEVEL) SETUPFONTS.PRESS (PRHEADINGFONT) \NSRANDOM.RELEASE.LOCK (NSHACCESS) +TEDIT.SUBPARALOOKS (\DIRTY PPARALOOKS) \TEDIT.CONVERT.TO.FORMATTED (PPARALAST FORMATTEDP) DISCARDXIPS +(INQUEUELENGTH) \INSPECTW.REDISPLAYPROP (ITEMINFO SELECTABLEITEMREGION) MSCOMMAND (ID MSPRED REP +MSVERB OTHERSET SUBJECT OTHERSTUFF) \GENERIC.CHARSET (CHARSET) CHAT.CLOSE (RUNNING?) +\INSERT.FIRST.PIECE (\INSERTPC PSTR \INSERTSTRING) TB.UNSELECT.ALL.ITEMS (TISELECTED +TBFIRSTSELECTEDITEM TBLASTSELECTEDITEM) SPYOBJ (LABEL PERCENT CACHEDLABEL) MAKEBRES (X Y IX IY MAJOR +IPX IPY P) \DSPRESET.PSC (CHARPOSITION) SEDIT::SHIFT-LINEAR-FORM (SEDIT::START-X) OPT.JLENPASS (JMIN +JU JML) \COURIER.CHECK.PROCEDURES (FN# ARGS RETURNSNOISE RESULTS REPORTSNOISE ERRORS) +\ADVANCE.STORAGE.STATE (FullSpaceUsed) SUBSTRING (READONLY BASE TYP LENGTH OFFST) SEDIT::SET-POINT-LIST + (SEDIT::POINT-NODE SEDIT::POINT-INDEX SEDIT::POINT-TYPE) \UPDATE.PBT.RASTERWIDTHS (PAGE# PBTDESTBPL) +\DOSTORAGEFULLINTERRUPT (STORAGEFULL) \DSPTOPMARGIN.IP (IPTOP) \VAMAdjustGroup (nextFilePage filePage +volumePage) SETYREL.IP (IPYPOS IPCHARVISIBLEP) TYPEINMENU (ITEMS WHENSELECTEDFN) ALLOCSTRING (LENGTH +BASE TYP) \PRESSINIT (IMAGETYPE IMCLOSEFN IMXPOSITION IMYPOSITION IMFONT IMLEFTMARGIN IMRIGHTMARGIN +IMLINEFEED IMDRAWLINE IMDRAWCURVE IMDRAWCIRCLE IMDRAWELLIPSE IMFILLCIRCLE IMBLTSHADE IMBITBLT IMSCALE +IMTERPRI IMBOTTOMMARGIN IMTOPMARGIN IMFONTCREATE IMNEWPAGE IMSPACEFACTOR IMSTRINGWIDTH IMCHARWIDTH +IMBITMAPSIZE IMCLIPPINGREGION IMSCALEDBITBLT IMDRAWARC) NORMSECT (X P LX RX) SEDIT::GENERATE-LINEAR-FORM + (SEDIT::RIGHT-MARGIN SEDIT::START-X SEDIT::ACTUAL-WIDTH SEDIT::FIRST-LINE SEDIT::CURRENT-NODE +SEDIT::LAST-LINEARIZED-SUB-NODE-INDEX SEDIT::LINEAR-POINTER SEDIT::LINEAR-PREV SEDIT::ACTUAL-LLENGTH +SEDIT::LAST-LINE SEDIT::CHANGED?) \SPP.CLEANUP (SPPTERMINATEDP DEVICEINFO SPPOUTPUTSTREAM +SPPINPUTSTREAM SPPSUBSTREAM SPPMYNSOCKET SPPPROCESS) \LEAF.ABORT.FROMMENU (LEAFABORTSTATUS) ADJUSTLINE + (END LASTCOL START) \DSPCLIPPINGREGION.PSC (POSTSCRIPTCLIPPINGREGION POSTSCRIPTPENDINGXFORM) +PFI.COLLECT.DEFINERS (NAME PATTERNS TESTFN) SEDIT::INITIALIZE-LISTS (SEDIT::NAME SEDIT::ASSIGN-FORMAT +SEDIT::COMPUTE-FORMAT-VALUES SEDIT::LINEARIZE SEDIT::SUB-NODE-CHANGED SEDIT::COMPUTE-POINT-POSITION +SEDIT::COMPUTE-SELECTION-POSITION SEDIT::SET-POINT SEDIT::SET-SELECTION SEDIT::GROW-SELECTION +SEDIT::SELECT-SEGMENT SEDIT::INSERT CL:DELETE SEDIT::COPY-STRUCTURE SEDIT::COPY-SELECTION SEDIT::STRINGIFY + SEDIT::BACK-SPACE) SEDIT::SETUP-WINDOW-CONTEXT-DEPENDENCIES (LEFT BOTTOM WIDTH HEIGHT) +TEDIT.GET.OBJECT (POBJ PFILE PSTR PLOOKS) \CH.UPDATE.CACHE (OCORGANIZATION DCKNOWNSERVERS OCDOMAINS +DCDOMAIN OCALLSERVERS) \PAGED.INCFILEPTR (COFFSET CBUFDIRTY CBUFSIZE CBUFPTR CPAGE) TB.DESELECTRANGE ( +TISELECTED TBFIRSTSELECTEDITEM TBLASTSELECTEDITEM) \STARTPAGE.PRESS (PRSPACEFACTOR PRPAGENUM) +\TEDIT.FIND (CH# CHLIM DCH POINT CARETLOOKS \INSERTNEXTCH) MAKETITLEBARICON (LEFT BOTTOM HEIGHT WIDTH) + \FIXILINES (CHAR1 DIRTY TXTNEEDSUPDATE CHARLIM CHARTOP) \LEAF.DEVICEP (DEVICENAME CLOSEFILE +DELETEFILE GETFILEINFO OPENFILE READPAGES WRITEPAGES SETFILEINFO TRUNCATEFILE GETFILENAME REOPENFILE +GENERATEFILES EVENTFN DIRECTORYNAMEP HOSTNAMEP RENAMEFILE DEVICEINFO PFSNAME PFSOSTYPE PFSLEAFSEQUIN +FORCEOUTPUT OPENP REGISTERFILE UNREGISTERFILE BREAKCONNECTION) FB.MAKE.SUBDIRECTORY.ITEM ( +TIUNSELECTABLE TIDATA FILENAME STARTOFPNAME VERSIONLESSNAME DIRECTORYP) TEDIT.SET.SEL.LOOKS (HOW +HOWHEIGHT HASCARET) MKSTRING (XBASE LENGTH OFFST XREADONLY TYP) \DOGCDISABLEDINTERRUPT (GCDISABLED) +\LFUnpackName (VOLNUM CHARLIST VERSION) LAYOUTSEXPR1 (NODEID NODELABEL TONODES) \BUFFERED.BIN (COFFSET +) \HDCPYDISPLAY.FIX.YPOS (DDMICAYPOS) \LEAF.DELETEFILE (OPWORD HANDLE LEAFLENGTH LEAFCONNECTION) +IDLE.SET.OPTION (ITEMS TITLE CENTERFLG) MAKESCAN (REST) MOVD (DEFPOINTER DEFCELLFLAGS AUXDEFCELLFLAGS) + DBG::ATTACH-BACKTRACE-MENU (ITEMS LABEL BKMENUINFO WHENSELECTEDFN MENUOUTLINESIZE MENUFONT +MENUCOLUMNS XCOORD YCOORD) SEDIT::REPLACE-CHARS (SEDIT::REAL-LENGTH LENGTH SEDIT::OPEN-NODE-CHANGED?) +SPY.MERGE.CALLEES (TREEFROM CALLEES STATUS) \SETXIPCHECKSUM (XIPCHECKSUM) CREATEREGION (LEFT BOTTOM +WIDTH HEIGHT) \3MBRAWRECEIVE (EPTYPE) \LFPurgeDirectory (fileID volNum type size) FB.COUNT.FILE.CHANGE + (TOTALFILES DELETEDFILES TOTALPAGES DELETEDPAGES) \LEAF.SETCREATIONDATE (OPWORD HANDLE FILEADDRESS +SIGNEXTEND DATALENGTH LEAFFILEDATE LEAFLENGTH LFCREATIONDATE) SETF-SYMBOL-PACKAGE (PACKAGE) +\BUFFERED.BOUT (COFFSET CBUFDIRTY) MB.COPYFN (OBJECTDATUM IMAGEOBJPLIST IMAGEOBJFNS) SEDIT::MAKE-GAP ( +SEDIT::LINEAR-ITEM) TEDIT.INCLUDE (THACTION THCH# THLEN THFIRSTPIECE TEXTLEN CHLIM CH# DCH DX POINT +SELKIND SELOBJ \DIRTY) MSPARSE (VPART C VB1 VB2) \NSFILING.SET.CONTINUANCE (FSCONTINUANCE) +FB.UNDELETE.FILE (DELETEDFILES DELETEDPAGES) ASKUSER (KEY OPTIONS) COERCETEXTOBJ (ACCESSBITS) +\BBTCURVEPT (PBTSOURCE PBTHEIGHT PBTDEST PBTDESTBIT PBTSOURCEBIT PBTWIDTH PBTOPERATION PBTSOURCETYPE) +\GETSPP (SPPACCEPTNO) \BUFFERED.BINS (COFFSET) SHOWBITMAP.IP (LEFT BOTTOM WIDTH HEIGHT) +\DSPLINEFEED.IP (IPLINEFEED) SEDIT::CLEAN-UP-AFTER-RELINEARIZATION (SEDIT::PREV-LINE BOTTOM HEIGHT) +\TERMINATESPP (SPPTERMINATEDP SPPSTATE SPPPROCESS) \10MB.CREATENDB (NDBNSNET# NDBPUPNET# NETTYPE +NDBPUPTYPE NDBTRANSMITTER NDBENCAPSULATOR NDBBROADCASTP NDBTASK# NDBETHERFLUSHER NDBCANHEARSELF) +\LFOpenOldFile (FULLFILENAME FILEDESC DIRINFO DEVICE LEADERPAGE size EPAGE EOFFSET) \LFDirectoryP ( +fileID volNum type ACCESS MAXBUFFERS) CCCSCAN (CODEARRAY NAMELOCS CONSTLOCS DEFLOCS PTRLOCS) +\CENTICLOCK (CENTICLOCKSIGNBIT) \BUFFERED.BOUTS (COFFSET CBUFDIRTY) TB.INSERT.ITEM (TBITEMS TB#ITEMS +TB#DELETED TBFIRSTSELECTEDITEM TBLASTSELECTEDITEM) SEDIT::REPLACE-QUOTE (SEDIT::SUPER-NODE +SEDIT::SUB-NODE-INDEX) MARK/GRAPH/NODE (NODEBORDER NODELABELSHADE) SEDIT::INITIALIZE-COMMENTS (SEDIT::NAME + SEDIT::ASSIGN-FORMAT SEDIT::COMPUTE-FORMAT-VALUES SEDIT::LINEARIZE SEDIT::SET-POINT SEDIT::SET-SELECTION + SEDIT::GROW-SELECTION SEDIT::SELECT-SEGMENT SEDIT::COMPUTE-POINT-POSITION +SEDIT::COMPUTE-SELECTION-POSITION SEDIT::INSERT CL:DELETE SEDIT::COPY-STRUCTURE SEDIT::COPY-SELECTION +SEDIT::STRINGIFY SEDIT::BACK-SPACE SEDIT::CLOSE-NODE) TWODINSPECT.SELECTITEM (ELTWIDTH ELTLEFT +ELTBOTTOM ROWPROP COLUMNPROP) \LEAF.GETFILE (LEAFREALLYOPEN LEAFCACHEDFILE OPCODE OPENMODE LEAFLENGTH +DEVICE LEAFCONNECTION LEAFHANDLE FULLFILENAME LEAFPAGECACHE EPAGE EOFFSET) RESET/NODE/LABELSHADE ( +NODELABELSHADE NODELABELBITMAP XCOORD YCOORD) \SLOWBLTCHAR (DDXPOSITION PBTDESTBIT PBTWIDTH +PBTSOURCEBIT) \PS.SCALEHACK (LEFT BOTTOM WIDTH HEIGHT POSTSCRIPTX POSTSCRIPTY POSTSCRIPTLEFTMARGIN +POSTSCRIPTRIGHTMARGIN POSTSCRIPTBOTTOMMARGIN POSTSCRIPTTOPMARGIN POSTSCRIPTTRANSX POSTSCRIPTTRANSY +POSTSCRIPTSCALEHACK POSTSCRIPTPENDINGXFORM) D-ASSEM:INTERN-DCODE (NA PV STARTPC ARGTYPE %#FRAMENAME +NTSIZE NLOCALS FVAROFFSET CLOSUREP FIXED) SEDIT::REPLACE-LIST (SEDIT::SUB-NODE-INDEX SEDIT::SUPER-NODE + CL:STRUCTURE SEDIT::POINT-NODE SEDIT::POINT-INDEX SEDIT::POINT-TYPE SEDIT::SELECT-START SEDIT::SELECT-END + SEDIT::NODE-TYPE) \CARET.FLASH.AGAIN (NEXT) \MAKEFLOAT (HIWORD LOWORD SIGNBIT EXPONENT HIFRACTION +LOFRACTION) TEDIT.DEFAULT.MENUFN (EDITOPACTIVE CH# CHLIM DCH POINT CARETLOOKS \INSERTPCVALID) +\DSPRIGHTMARGIN.IP (IPRIGHT IPMINCHARRIGHT) TEDIT.STREAMCHANGEDP (\DIRTY) \NULLDEVICE (DEVICENAME +RANDOMACCESSP NODIRECTORIES CLOSEFILE DELETEFILE OPENFILE REOPENFILE BIN BOUT PEEKBIN READP +BACKFILEPTR EOFP RENAMEFILE GETFILENAME EVENTFN BLOCKIN BLOCKOUT GENERATEFILES GETFILEPTR GETEOFPTR +SETFILEPTR GETFILEINFO SETFILEINFO SETEOFPTR) SETXYREL.IP (IPXPOS IPYPOS IPCHARVISIBLEP +IPCORRECTSTARTX) FW-OFD-EXISTS? (OFDSTATUS) \CHANGECHARSET.DISPLAY (DDWIDTHSCACHE DDOFFSETSCACHE +DDCHARIMAGEWIDTHS DDCHARSET PBTSOURCEBPL PBTSOURCE) \TEDIT.SCALEREGION (LEFT BOTTOM WIDTH HEIGHT) +SEDIT::SELECT-SEGMENT (SEDIT::DELETE-OK? SEDIT::PENDING-DELETE?) \BRUSHBITMAP (BRUSHCACHE) +TEDIT.ADD.MENUITEM (ITEMS MENUROWS MENUCOLUMNS ITEMWIDTH ITEMHEIGHT IMAGE) \SFFixY (DDCHARSETASCENT +PBTDEST PBTSOURCE DDCHARHEIGHTDELTA PBTHEIGHT DDCHARSETDESCENT) \NULL.OPENFILE (USERCLOSEABLE ACCESS +FULLFILENAME DEVICE) \DSPLEFTMARGIN.IP (IPLEFT) SEDIT::CREATE-QUOTED-GAP (SEDIT::NODE-TYPE CL:STRUCTURE + SEDIT::SUB-NODES SEDIT::UNASSIGNED SEDIT::SUPER-NODE SEDIT::SUB-NODE-INDEX SEDIT::LINEAR-FORM) +\VFMPutNext (key volumePage nextKey) MAKELINE (ORIG DIFF WIND) SETXY.IP (IPCHARVISIBLEP IPXPOS +IPCORRECTSTARTX IPYPOS) SETX.IP (IPCHARVISIBLEP IPXPOS IPCORRECTSTARTX) \TEXTSTREAMBOUT (CH# CHLIM +POINT DCH SELKIND CHARLIM CHARTOP EDITOPACTIVE X0 XLIM PIECE CPPTR CPAGE COFFSET PCSTARTCH PCSTARTPG +CBUFSIZE EPAGE CHARSLEFT REALFILE) SEDIT::CLEAR-LINEAR-FORM (SEDIT::START-X SEDIT::LINEAR-FORM +SEDIT::LINEAR-THREAD) TTYINBUFFERSTREAM (DEVICE ACCESS TTYINPUT TTYEOF TTYEOFACTION TTYORIGINPUT) +TEDIT.EXTEND.SEL (CHLIM XLIM YLIM LN CH# X0 Y0 L1 DCH POINT DX SELOBJ) \INFINITY (SIGNBIT EXPONENT +HIFRACTION LOFRACTION) BRH/OFFSET (YCOORD) \EDIT.UPCARET (TCFORCEUP) \SHOWSEL (ONFLG) BOXCOUNT (DTDCNT +) \TEDIT.FORMAT.FOOTNOTE (PAGELINECACHE CACHE LTEXTOBJ LEFTMARGIN RIGHTMARGIN) +ENCAPSULATEDOBJ.IMAGEBOXFN (XSIZE YSIZE YDESC XKERN) SEDIT::MAKE-BROKEN-ATOM (SEDIT::ATOM-CHARS) +IRM.CREF.BOX (XSIZE YSIZE YDESC XKERN) TEDIT.COMPOUND.PAGEFORMAT (REGIONFILLMETHOD REGIONSUBBOXES +REGIONSPEC) TB.DELETE.ITEM (TIDELETED TB#DELETED) \MEDW.PUTWINDOWPROP (RIGHTBUTTONFN BUTTONEVENTFN +CLOSEFN MOVEFN CURSORINFN CURSOROUTFN CURSORMOVEDFN RESHAPEFN REPAINTFN EXTENT SCROLLFN NEWREGIONFN +PROCESS WINDOWENTRYFN USERDATA) MAKEFLOATNUMBER (HIWORD LOWORD) DELDEF (FILEPROP FILECHANGES FILEDATES + ALLFIELDS) \COPYHARRAYP (NULLSLOTS LASTINDEX HARRAYPBASE OVERFLOWACTION NUMSLOTS NUMKEYS) +TB.SELECTRANGE (TISELECTED TBFIRSTSELECTEDITEM TBLASTSELECTEDITEM) HASHARRAY (HARRAYPBASE LASTINDEX +RECLAIMABLE OVERFLOWACTION NUMSLOTS NULLSLOTS NUMKEYS HASHBITSFN EQUIVFN) \SLOWRETURN (FASTP) +\POSTSCRIPT.OUTCHARFN (POSTSCRIPTY POSTSCRIPTCHARSTOSHOW POSTSCRIPTX) \CH.GUESS.NEW.PROPERTIES ( +NSOBJECT) TERM.MOVETO (XPOS YPOS) \TEXTBIN (COFFSET CHARSLEFT PIECE BINABLE FATSTREAMP +CURRENTPARALOOKS CURRENTLOOKS CBUFSIZE CPAGE PCSTARTCH PCSTARTPG) TEDITCHAT.MENUFN (HELD ITEMS +RUNNING?) SEDIT::THROW-AWAY-CHANGES (SEDIT::ATOM-STARTED SEDIT::ATOM-STARTED-UNDO-POINTER +SEDIT::CHANGED-STRUCTURE? SEDIT::UNDO-LIST SEDIT::UNDO-UNDO-LIST) \TEDIT.REFRESH.SHOWSEL (ONFLG SET) +\ALLOCMAPBUFFER (VMEMPAGE SYSNEXT) CLOSENSOCKET (NSOCEVENT) LOG (EXPONENT) SEDIT::SETUP-NEW-CONTEXT ( +SEDIT::CONTEXT-LOCK) \LFCreateDevice (NODIRECTORIES DEVICENAME CLOSEFILE DELETEFILE RENAMEFILE +TRUNCATEFILE GETFILEINFO GETFILENAME OPENFILE READPAGES SETFILEINFO WRITEPAGES REOPENFILE +GENERATEFILES EVENTFN DIRECTORYNAMEP HOSTNAMEP OPENP REGISTERFILE UNREGISTERFILE) SETSTKNAME ( +VALIDNAMETABLE %#FRAMENAME FRAMENAME NAMETABLE) \LEAF.SETFILETYPE (OPWORD HANDLE FILEADDRESS +SIGNEXTEND DATALENGTH LEAFFILETYPE LEAFBYTESIZE LEAFLENGTH) \LFCreateFile (FULLFILENAME FILEDESC +fileID volNum type DEVICE filePage volumePage nextFilePage LEADERPAGE) \NSGATELISTENER ( +XIPFIRSTDATAWORD NET# %#HOPS) WHO-LINE-CHANGE-USER (TITLE CENTERFLG ITEMS) \NAMEDTABSIZE (XSIZE YSIZE +YDESC XKERN) \LEAF.TIMEDOUT.EXCESSIVE (LEAFABORTBUTTONWINDOW ITEMS WHENSELECTEDFN XCOORD YCOORD) +\COPYFNHEADER (STARTPC) SPY.DELETE (CALLEES) \SENDSPP (SPPSEQNO SENDACK) SUBARRAY (BASE LENGTH TYP +OFFST ORIG) TEDIT.HARDCOPY-COLUMN-END (YBOT YBASE) DASSEM.COUNTVARS (VARINDEX) SEDIT::PRETTY-PRINT ( +SEDIT::DISPLAY-WINDOW SEDIT::ENVIRONMENT SEDIT::CURRENT-X SEDIT::COMMENT-WIDTH SEDIT::COMMENT-SEPARATION + SEDIT::NODE-TYPE SEDIT::SUB-NODES SEDIT::START-X SEDIT::DEPTH SEDIT::CURRENT-NODE) MSSEEKPHRASE ( +SOUGHT ITEM C PARSED POSSIBLES START ENDING MODIFIER) IMAGEOBJPROP (OBJECTDATUM DISPLAYFN IMAGEBOXFN +PUTFN GETFN COPYFN BUTTONEVENTINFN COPYBUTTONEVENTINFN WHENMOVEDFN WHENINSERTEDFN WHENDELETEDFN +WHENCOPIEDFN WHENOPERATEDONFN PREPRINTFN IMAGECLASSNAME) SWITCH/NODE/HEIGHT/WIDTH (NODEWIDTH) +CHECKBUFFERREFVAL (NOREFERENCE) CREATEWFROMIMAGE (SCREEN LEFT BOTTOM WIDTH HEIGHT) +%%COPY-STRING-TO-ARRAY (BASE STRING-P TYPE-NUMBER FILL-POINTER TOTAL-SIZE) \AddShade (SHADEDITEMS) +\HCPYMODEBLTCHAR (DDXPOSITION PBTDESTBIT PBTWIDTH PBTSOURCEBIT) MSSETREP (EXPRESSION PRED +MSPATHOPTIONS MSVERB OTHERSET RECS ROOT MODIFIER QUOTED NEGATED REP) DINFO.UPDATE.GRAPH.DISPLAY ( +LAST.GRAPH.LOCATION) \LFGetStreamForFile (fileID volNum type) PRINTANDBOX (LEFT BOTTOM HEIGHT WIDTH) +COMP.STUNBIND (OPNAME OPARG) \WRITEOUTBUFFERS (IODIRTY CBUFDIRTY) \SETWINFOXSIZE (ATXSIZE) +OPT.COMMONBACK (TAG) FW-CREATE-OFD (FILESTREAM FULLNAME NAMEWIDTH EOFPOS READING? WRITING? RANDOM? +OFDSTATUS) \TELERAIDSEND (PUPDESTHOST PUPDESTNET PUPDESTSOCKETHI PUPDESTSOCKETLO PUPSOURCESOCKETHI +PUPSOURCESOCKETLO PUPCHECKSUM 3MBDESTHOST 3MBLENGTH) SETY.PRESS (PRYPOS) \CLEARMAP (CBUFSIZE CBUFPTR +BUFFERNEXT BUFFS) PUTPUPSTRING (PUPLENGTH) FILING.CALL (FSSESSIONHANDLE FSREALACTIVITY +FSLASTREALACTIVITYTIMER) FLOATP.TO.BCPL (BCPLEXPONENT SIGNIFICANTBIT BCPLHIFRACTION BCPLLOFRACTION) +PUP.ECHOSERVER (TYPEWORD EPREQUEUE) RESUME (EDFXP) OPT.JUMPREV (NXT PREV TAG OPNAME) +\CH.CHECK.CLEARINGHOUSE (NSOBJECT NSDOMAIN NSORGANIZATION) \PNC (OFFST LENGTH) SETX.PRESS (PRXPOS) +SETXREL.IP (IPXPOS IPCHARVISIBLEP IPCORRECTSTARTX) \RESUME (ACLINK) \DO-DEFINE-FILE-INFO (REPACKAGE +REREADTABLE REBASE REFORMAT RESPEC) DMCHAT.HANDLE.WRAP (EATTOCRLF) SHRINK-VECTOR (FILL-POINTER-P +FILL-POINTER) SEDIT::SET-SELECTION (SEDIT::DELETE-OK? SEDIT::PENDING-DELETE?) BCPL.TO.FLOATP (SIGNBIT +EXPONENT HIFRACTION LOFRACTION) PUP.ECHOUSER (PUPLENGTH) ADDFILE (CHANGED) STRINGREGION (LEFT BOTTOM +WIDTH HEIGHT) SEDIT::OPEN-LITATOM (SEDIT::OPEN-NODE SEDIT::PRIN-2? SEDIT::REAL-LENGTH LENGTH STRING) +HARRAYPROP (OVERFLOWACTION EQUIVFN RECLAIMABLE HASHBITSFN HASHUSERDATA) RESET/NODE/BORDER (XCOORD +YCOORD NODEBORDER NODELABELBITMAP) \POSTSCRIPT.ACCENTFN (POSTSCRIPTCHARSTOSHOW) \TEDIT2 (ACCESSBITS +EDITFINISHEDFLG) \RELEASEBUFFER (BUFFERNEXT) \TEDIT.LOOKS.UPDATE (CURRENTPARALOOKS CURRENTLOOKS +LHASPROT) \TEDIT.MOVE.PIECEMAPFN (PNEW PSTR) \CREATE.SPP.DEVICE (DEVICENAME FDBINABLE BUFFERED EVENTFN + TRUNCATEFILE CLOSEFILE BIN BOUT EOFP READP PEEKBIN BACKFILEPTR FORCEOUTPUT BLOCKIN BLOCKOUT +GETNEXTBUFFER GETFILEPTR SETFILEPTR) MARGINBAR.CREATE (XSIZE YSIZE YDESC XKERN MARL1 MARLN MARR +MARTABS MARUNIT MARTABTYPE LEFT BOTTOM WIDTH HEIGHT) COMP.STBIND (PARENT LEVEL CPIOK OPNAME OPARG) +COMP.MAP (OPNAME TAG) DASSEM.MATCHVARS (VARINDEX) \ACTONDISKPAGES (DISKCAS FIXEDDISKBUFFER DISKDAS +DISKVERSION DISKFIRSTPAGE DISKLASTPAGE DISKHINTLASTPAGE RETURNONCHECKERROR DISKACTION LASTDISKACTION +MISCSTACKFN MISCSTACKARG1 MISCSTACKARG2) \PS.SCALEREGION (LEFT BOTTOM WIDTH HEIGHT) CLRHASH (KEY VALUE + NULLSLOTS NUMKEYS) \TEDIT.MARKINACTIVE (EDITOPACTIVE) MSVERBTYPE (MODIFIER) FILEBROWSER (MENUFONT +ITEMS CENTERFLG MENUCOLUMNS WHENSELECTEDFN TITLE WIDTH HEIGHT BROWSERWINDOW BROWSERFONT +OVERFLOWSPACING SORTBY FIXEDTITLE INFOMENUCHOICES FBLOCK FBDEPTH HEADINGWINDOW PROMPTWINDOW +ABORTWINDOW MENUOUTLINESIZE TABLEBROWSER) \EDIT.DOWNCARET (TCCARETX TCCARETY TCFORCEUP) +CL:SET-DISPATCH-MACRO-CHARACTER (DISPATCHMACRODEFS) \ENDVECRUN (VECWASDISPLAYING VECSEGCHARS) +SHOWSHADEDITEMS (WIDTH) %%COPY-ONED-ARRAY (BASE STRING-P FILL-POINTER-P TYPE-NUMBER FILL-POINTER +TOTAL-SIZE) MENUITEMREGION (LEFT BOTTOM WIDTH HEIGHT) \SLOWHCPYMODEBLTCHAR (DDXPOSITION PBTDESTBIT +PBTWIDTH PBTSOURCEBIT) SKIP/ZAP (LASTSKIP LASTSKIPCHAR) TTADJUSTWIDTH (LASTCOL) PUTFILEMAP ( +FMFROMFILE? FMRECENT? FMROOTNAME FMENVIRONMENT FMFILEMAP FMFILECREATEDLOC FMFILECREATEDLST) \TEXTBOUT +(PIECE CPPTR CPAGE COFFSET PCSTARTCH PCSTARTPG CBUFSIZE EPAGE CHARSLEFT REALFILE) IRM.DISPLAY.CREF ( +LEFT BOTTOM HEIGHT WIDTH) DINFO.UPDATE.MENU.DISPLAY (MENUFONT ITEMWIDTH CENTERFLG MENUCOLUMNS +MENUOUTLINESIZE ITEMS WHENSELECTEDFN LEFT BOTTOM WIDTH HEIGHT XCOORD YCOORD SUBNODE.MENU.WINDOW) +SPY.DUMP.BUFFER (STATUS COUNT) \DOACTONDISKPAGES (DISKREQUEST CURRENTDAS DISKERRORCNT SAWCHECKERROR +CBCLEANUPFN CBLASTPTR CBFREEPTR CBPENDINGPTR LASTPAGEACTEDON CBLABELADDR) FB.SEEFULLFN (ITEMS MENUROWS + WHENSELECTEDFN CENTERFLG) TEDIT.UNDO.DELETION (\INSERTPCVALID THFIRSTPIECE TEXTLEN CH# CHLIM DCH +POINT THACTION) \FIXLINELENGTH.IP (LINELENGTH) SETSTKARGNAME (NAMETABLE) \GETMAPBUFFER (IODIRTY +USERMAPPED BUFFERNEXT) \LFUpdateLeaderPage (EofPage EOffSet AllocatedPages TimeWrite TimeCreate +VALIDATION TimeRead) REOPENTEXTSTREAM (ACCESS BINABLE STRMBINFN STRMBOUTFN) DINFO.UPDATE.TEXT.DISPLAY +(LAST.TEXT) OPENBSPSTREAM (RCVBYTEID RCVINTERRUPTID XMITBYTEID XMITINTERRUPTID LASTACKID ADATATIMEOUT +MAXPUPALLOC BSPINPUTSTREAM DEVICE ACCESS STRMBOUTFN ACCESSBITS BSPOUTPUTSTREAM BSPSOC %#UNREADPUPS +%#UNACKEDPUPS %#UNACKEDBYTES PUPALLOC BYTESPERPUP BYTEALLOC PUPALLOCCOUNT ADATACOUNT BSPFAILURESTRING +BSPTIMEOUT BSPINACTIVITYTIMEOUT BSPINPUTHANDLER BSPOTHERPUPFN BSPERRORHANDLER BSPIOTIMEOUT IOTIMEOUTFN + BSPWHENCLOSEDFN BSPINPUTEVENT) \HDCPYDISPLAY.FIX.XPOS (DDMICAXPOS) MB.SIZEFN (XSIZE YSIZE YDESC XKERN +) TERM.HOME (XPOS YPOS) OPT.LABELNTHPR (FRAME LEVEL) FILEPKGCHANGES (CHANGED) \WRITEDISKPAGES (DISKCAS + FIXEDDISKBUFFER DISKDAS DISKVERSION DISKFIRSTPAGE DISKLASTPAGE DISKHINTLASTPAGE DISKNOALLOC +DISKWRITELASTNUMCHARS MISCSTACKFN MISCSTACKARG1 MISCSTACKARG2) MB.DEFAULTBUTTON.ACTIONFN (EDITOPACTIVE + CH# CHLIM DCH POINT CARETLOOKS EDITFINISHEDFLG SET ONFLG) TEDIT.QUIT (EDITFINISHEDFLG) +SET-FILL-POINTER (FILL-POINTER) CH.SERVERS (NSOBJECT NSDOMAIN NSORGANIZATION) \HASHACCESS (KEY VALUE +NUMKEYS NULLSLOTS) SEDIT::INSERT-MULTI-ESCAPE (SEDIT::POINT-INDEX SEDIT::POINT-TYPE) \DOWRITEDISKPAGES + (DISKACTION LASTDISKACTION RETURNONCHECKERROR FIXEDDISKBUFFER DISKFIRSTPAGE DISKREQUEST CURRENTDAS +DISKERRORCNT SAWCHECKERROR CBCLEANUPFN CBLASTPTR CBFREEPTR CBPENDINGPTR DLNEXT DLPREVIOUS DLNUMCHARS +CBLABELADDR LASTPAGEACTEDON) \MEDW.DSPCREATE (USERCLOSEABLE IMAGEDATA DDDestination DEVICE ACCESS +STRMBOUTFN OUTCHARFN IMAGEOPS) ITEM.WINDOW.SET.STACK.ARG (ITEMS) \GENERIC.DSPCREATE (USERCLOSEABLE +OUTCHARFN IMAGEDATA IMAGEOPS DEVICE ACCESS) \SENDLEAF (EPUSERFIELD LEAFFLAGS PUPLENGTH LEAFSTATUS) +\TFBRAVO.INSTALL.PAGEFORMAT (TXTPAGEFRAMES TFBRAVODEFAULT TFBRAVOODD TFBRAVOEVEN) +\LFMakeVolumeDirectory (fileID volNum type size filePage volumePage nextFilePage) \SWITCHFONTS.PSC ( +POSTSCRIPTACCENTED POSTSCRIPTFONTCHANGEDFLG) \TEDIT.MARKACTIVE (EDITOPACTIVE) DINFO.UPDATE ( +CURRENTNODE) MENUREGION (WIDTH HEIGHT LEFT BOTTOM) \COURIER.REP.BIN (CRNEXTBYTE CRWORDLIST F1) +REFLECT/GRAPH/DIAGONALLY (SIDESFLG XCOORD YCOORD) \HASHRECLAIM (KEY VALUE NUMKEYS) \LEAF.CLOSEFILE ( +LEAFREALLYOPEN LEAFCACHEDFILE OPWORD HANDLE LEAFLENGTH LEAFPAGECACHE LEAFCONNECTION) \MAPPAGE ( +USERMAPPED NOREFERENCE BUFFERNEXT BUFFS FILEPAGE#) \ACTONVMEMPAGES (FIXEDDISKBUFFER DISKCAS DISKDAS +DISKFIRSTPAGE DISKLASTPAGE DISKHINTLASTPAGE DISKACTION LASTDISKACTION) FLTSTR (FILL-POINTER-P +TOTAL-SIZE) \TELERAIDGET (TRANSOPERATION) \SETEOF (EPAGE EOFFSET CBUFSIZE CBUFDIRTY CBUFPTR) \INITSPP +(EVENTFN) \WRITEVMEMPAGES (DISKCAS FIXEDDISKBUFFER DISKDAS DISKVERSION DISKFIRSTPAGE DISKLASTPAGE +DISKHINTLASTPAGE DISKNOALLOC DISKWRITELASTNUMCHARS) \SETWINFOYSIZE (ATYSIZE) \VAMFindFreePages ( +volumePage nextFilePage) TRANSLATE.DATATYPE (N LEN FD fdTypeName fdType fdOffset) TEDIT.REDO.INSERTION + (PNEW THFIRSTPIECE \INSERTPCVALID POBJ TEXTLEN CH# CHLIM DCH THACTION) LINELENGTH (LINELENGTH) +\COURIER.BROADCAST.ON.NET (XIPDESTNET) STORAGE.LEFT (PAGE#) \NSRANDOM.UPDATE.VALIDATION (REVALIDATEFLG +) SETUPFONTS.IP (IPFONT IPHEADINGFONT) \STORAGE.TYPE (NPAGES PAGE# NITEMS NFREE NINUSE NALLOCATED) +\DSPBOTTOMMARGIN.IP (IPBOTTOM) SEDIT::DOT-THIS-LIST (SEDIT::NODE-TYPE) POSTSCRIPT.SET-FAKE-LANDSCAPE ( +WIDTH HEIGHT LEFT BOTTOM POSTSCRIPTCLIPPINGREGION POSTSCRIPTPAGEREGION POSTSCRIPTLEFTMARGIN +POSTSCRIPTBOTTOMMARGIN POSTSCRIPTRIGHTMARGIN POSTSCRIPTTOPMARGIN POSTSCRIPTLANDSCAPE +POSTSCRIPTPENDINGXFORM) \BITBLT.BITMAP.SLOW (PBTWIDTH PBTHEIGHT) MB.SELFN (SELKIND SET ONFLG) +\BSPBACKFILEPTR (COFFSET) FB.ADD.FILE (TOTALPAGES TOTALFILES) \DSPROTATE.PSC (POSTSCRIPTROTATION +POSTSCRIPTPENDINGXFORM) ONEDINSPECT.SELECTPROP (ELTWIDTH ELTLEFT ELTBOTTOM PROP) \PUNT.BITBLT.BITMAP ( +PBTWIDTH PBTHEIGHT) INITIALIZE-SHELL-DEVICE (NODIRECTORIES DEVICENAME BIN BOUT PEEKBIN CLOSEFILE +GETFILEINFO SETFILEINFO EOFP BACKFILEPTR) \SETIODIRTY (IODIRTY) \NSRANDOM.WROTE.HANDLE (NSHWASWRITTEN +NSHATTRIBUTES NSHWASMODIFIED) \PUNT.BLTSHADE.BITMAP (PBTWIDTH PBTHEIGHT) \FM.NUMBER-CHANGESTATE ( +FM.STATE) TEDIT.EDIT.OBJECT (CH# CHLIM DCH \TEXTOBJ DIRTY TXTNEEDSUPDATE) \DODISKCOMMAND (CBHEADERADDR + CBDATAADDR CBLABELADDR DLPAGENO CBPAGENO CBDA CBCOMMAND CBLINK CBQSTATUS CBLASTPTR) DSPSOURCETYPE ( +DDSOURCETYPE PBTOPERATION PBTSOURCETYPE) SEDIT::OUTPUT-CONSTANT-STRING (SEDIT::LINEAR-PREV +SEDIT::LINEAR-FORM SEDIT::LINE-ASCENT SEDIT::LINE-DESCENT SEDIT::CURRENT-X) REFLECT/GRAPH/VERTICALLY ( +YCOORD) BRH/LAYOUT (FROMNODES NODEPOSITION XCOORD YCOORD) \GETDISKCB (CBFREEPTR) SET/LABEL/SIZE ( +NODEWIDTH NODEHEIGHT) \XIPERROR (ERRORXIPCODE ERRORXIPARG XIPLENGTH XIPTYPE EPREQUEUE) TB.EXPANDFN ( +TBUPDATEFROMHERE) \MAKE.PMAP.DEVICE (FDBINABLE FDBOUTABLE FDEXTENDABLE RESETABLE RANDOMACCESSP +PAGEMAPPED BUFFERED BIN BOUT PEEKBIN READP BACKFILEPTR SETFILEPTR GETFILEPTR GETEOFPTR SETEOFPTR EOFP +BLOCKIN BLOCKOUT GETNEXTBUFFER FORCEOUTPUT) DO.EDIT.PP (FIRSTCOL LASTCOL) \CLEANUPDISKQUEUE (CBSTATUS +CBPENDINGPTR CBLASTPTR CBSHORTSEAL CBFREEPTR TOTALDISKERRORS DISKERRORCNT SAWCHECKERROR +CURRENTDISKPAGE CURRENTNUMCHARS) \CODEARRAY (TYP BASE LENGTH ORIG) \FM.WINDOWEXTENT (WIDTH) +\IDLERKEYACTION (INTERRUPTLIST) SPY.NEXT.TREE (CALLEES NAME COUNT) READHOTSPOT (XCOORD YCOORD) +COPY.TEXT.TO.IMAGE (ENDOFSTREAMOP) SEDIT::SET-DEPTH (SEDIT::DEPTH) COMP.STSETQ (OPNAME OPARG) +\PAGED.GETNEXTBUFFER (CBUFDIRTY CBUFSIZE CBUFPTR COFFSET CPAGE EPAGE EOFFSET CBUFMAXSIZE) CHAT.ICONFN +(ICON MASK TITLEREG) \MAKE.EXPEDITED.STREAM (DEVICE ACCESS CBUFPTR COFFSET EOFFSET CBUFSIZE +ENDOFSTREAMOP WRITEXTENSIONFN) \PAGED.FORCEOUTPUT (CBUFDIRTY CBUFSIZE CBUFPTR) \CARET.FLASH (STREAM +STREAMX STREAMY RATE) \DSPCLIPPINGREGION.IP (IPClippingRegion) \PAGEDSETFILEPTR (CBUFDIRTY CBUFSIZE +CBUFPTR CPAGE COFFSET) DASSEM.DSTOREFNDEF (NA PV STARTPC ARGTYPE FRAMENAME NTSIZE NLOCALS FVAROFFSET +FIXED) POSTSCRIPT.STARTPAGE (POSTSCRIPTPENDINGXFORM POSTSCRIPTFONTCHANGEDFLG POSTSCRIPTPAGEBLANK) +SETFONT.IP (IPFONT) DINFO.UPDATE.HISTORY (HISTORY.ITEMS MENUFONT TITLE CENTERFLG MENUCOLUMNS ITEMS +WHENSELECTEDFN HISTORY.MENU.WINDOW) \VFMAtLoad (fileID filePage) TEDIT.UNDO.INSERTION (\INSERTPCVALID +POINT THACTION) MSBLOCK (TYPES FNS FILES) \IFS.LOOKUPFILE (PFSLOOKUPFILESOCKET PFSLOOKUPFILELOCK +PFSLOOKUPFAILCNT) DSPCREATE (USERCLOSEABLE OUTCHARFN IMAGEDATA IMAGEOPS DEVICE ACCESS) +\FM.UPDATEGROUPEXTENT (LEFT BOTTOM WIDTH HEIGHT) \LEAF.RESENDPUPS (PUPSOURCESOCKET) SPY.SUM (SUM) +\DSPTRANSLATE.PSC (POSTSCRIPTTRANSX POSTSCRIPTTRANSY POSTSCRIPTPENDINGXFORM) CHAT.SWITCH.EMACS ( +CHATINEMACS) \FM.EDIT-SETUP (FM.REGION FM.MESSAGE FM.INITSTATE FM.SYSSELECTEDFN) \COURIER.REP.BOUT ( +HIBYTE LOBYTE CRLASTWORD CRWORDLIST CRNEXTBYTE) \PARTEND.PRESS (PRPARTSTART) SEDIT::OUTPUT-CR ( +SEDIT::ACTUAL-WIDTH SEDIT::PREV-LINE SEDIT::LINE-SKIP SEDIT::LINE-ASCENT SEDIT::LINE-DESCENT SEDIT::INDENT + SEDIT::YCOORD SEDIT::LINEAR-POINTER SEDIT::LINEAR-FORM SEDIT::NODE SEDIT::LINE-LENGTH SEDIT::SHIFT-Y +SEDIT::CURRENT-BLOCK SEDIT::BLOCK-NEW-X SEDIT::BLOCK-START SEDIT::CURRENT-LINE SEDIT::NEXT-LINE +SEDIT::CURRENT-X SEDIT::LINEAR-PREV) REFLECT/GRAPH/HORIZONTALLY (XCOORD) NS.ECHOUSER (XIPLENGTH) +TERM.PRINTCHAR (XPOS) \ALLOCBLOCK.NEW (PAGE#) SWAPXIPADDRESSES (XIPSOURCESOCKET XIPSOURCENET +XIPSOURCEHOST) OPT.PRDEL (NXT PREV) NSNETDAYTIME0 (TIMEOP TIMEVERSION XIPLENGTH) SQRT (EXPONENT +HIFRACTION) \SFFixDestination (PBTDESTBPL DDCHARSET DDCHARSETASCENT) \HANDLE.RAW.XIP (EPREQUEUE +XIPDESTNET NDBNSNET# NSNET RTNET# RTHOPCOUNT RTGATEWAY# RTNDB RTRECENT INQUEUELENGTH) TB.FLUSH.WINDOW +(TBITEMS TBWINDOW TBTAILHINT) \LEAF.READFILEPROP (OPWORD HANDLE FILEADDRESS SIGNEXTEND DATALENGTH +LEAFLENGTH) MSJOINSET (DET TYPE REP ID SET1 SET2) BSPPUTMARK (COFFSET PUPTYPE) \MAIKO.ALLOCBLOCK ( +INUSE GCTYPE) \FM.TRANSPOSEVERT (BOTTOM) \BSP.HANDLE.DATA (SYSQUEUEHEAD QLINK RCVBYTEID %#UNREADPUPS) +\DSPRIGHTMARGIN.HDCPYDISPLAY (DDMICARIGHTMARGIN) DMCHAT.ADDRESS (ADDRESSING) COMP.LOOKUPCONST (OPNAME +OPARG) COMP.NUMBERTEST (OPNAME TAG) OPENIPSTREAM (IPPAGEREGION IPLEFT IPRIGHT IPTOP IPBOTTOM +IPSHOWSTREAM IPDOCNAME IPCLIPINCLUSIVE NAME OUTCHARFN EOL IMAGEOPS IPDATA IPROTATION IPYOFFSET +IPPAGEFRAME LEFT BOTTOM WIDTH HEIGHT IPHEADING) \GETREGION.PACKPTS (XCOORD YCOORD) \VFMMarkBufferDirty + (DIRTY) \FM.NUMBER-SETUP (FM.REGION FM.MESSAGE FM.INITSTATE FM.SYSSELECTEDFN) \MAKEFREEARRAYBLOCK ( +ABFLAGS ARLEN) FW-UPDATE-OFD-WINDOW (OFDSTATUS CURPOS EOFPOS LEFT BOTTOM WIDTH PCTPOS) MB.SETIMAGE ( +XSIZE YSIZE YDESC XKERN) \CLEARCB (CBQSTATUS) \DISPLAYSTREAMINCRXPOSITION (DDXPOSITION) \SFFixFont ( +DDSlowPrintingCase DDCHARSET DDCHARSETASCENT) TEDIT.HARDCOPY.PAGEHEADING (LMARK CHARLIM 1STLN LSTLN +LHEIGHT ASCENT DESCENT LTRUEASCENT LTRUEDESCENT) SEDIT::LINEARIZE (SEDIT::LINEAR-POINTER SEDIT::LINEAR-FORM + SEDIT::LINEAR-THREAD SEDIT::LINEAR-PREV SEDIT::LAST-LINEARIZED-SUB-NODE-INDEX SEDIT::ACTUAL-WIDTH +SEDIT::RIGHT-MARGIN SEDIT::START-X SEDIT::CURRENT-NODE) EXTENDREGIONTOP (HEIGHT) \DSPPOPSTATE.PSC ( +POSTSCRIPTXFORMSTACK POSTSCRIPTCLIPPINGREGION POSTSCRIPTPAGEREGION POSTSCRIPTBOTTOMMARGIN +POSTSCRIPTTOPMARGIN POSTSCRIPTLEFTMARGIN POSTSCRIPTRIGHTMARGIN POSTSCRIPTLANDSCAPE +POSTSCRIPTPENDINGXFORM POSTSCRIPTTRANSX POSTSCRIPTTRANSY) \LINKBLOCK (FWD BKWD) +\TEDIT.HCPYLOOKS.UPDATE (CURRENTPARALOOKS CURRENTLOOKS) READ-AFM-FILE (ITEMS MENUFONT FID IL-FONTID +DESCENT ASCENT WIDTHS FIRSTCHAR LASTCHAR) CHAT.ENDOFSTREAMOP (ENDOFSTREAMOP) \CARET.FLASH? (NEXT) +PARSE.NSNAME (NSOBJECT NSDOMAIN NSORGANIZATION) SHEDSCAN (GEOM REST BY TY WC) \VANILLADISKINIT ( +DEVICENAME EVENTFN HOSTNAMEP) \DELETEBLOCK? (BKWD FWD) \FM.TRANSPOSEHORZ (LEFT) BSPGETMARK ( +MARKPENDING) \TEDIT.PARSE.CHARLOOKS.LIST (CLFONT CLBOLD CLITAL CLPROTECTED CLSELHERE CLULINE CLOLINE +CLSTRIKE CLINVISIBLE CLINVERTED CLOFFSET CLSTYLE CLUSERINFO CLSIZE) SPY.MERGETREE (SUM COUNT TREEFROM +STATUS) \LEAF.GETFILEINFO.OPEN (PAGE OFFSET) \DSPPUSHSTATE.PSC (POSTSCRIPTXFORMSTACK PSXCLIP PSXPAGE +PSXLEFT PSXRIGHT PSXTOP PSXBOTTOM PSXTRANX PSXTRANY PSXLAND PSXXFORMPEND) \UFS.UNREGISTER.GFS (FINFOID + DIRECTORY DEV) \UPDATE-SYNONYM-STREAM-LINELENGTH-FIELD (LINELENGTH) SEDIT::REVIVE-NODE (SEDIT::DEPTH) + \BSP.HANDLE.ACK (ADATATIMEOUT LASTACKID SYSQUEUEHEAD SYSQUEUETAIL EPREQUEUE ACKREQUESTED QLINK +%#UNACKEDPUPS %#UNACKEDBYTES PUPALLOCCOUNT MAXPUPALLOC BYTESPERPUP PUPALLOC BYTEALLOC) +COURIER.READ.NSNAME (NSORGANIZATION NSDOMAIN NSOBJECT) \BSP.DECLARE.FILEPTR (BSPFILEPTR) +\MAIKO.PUNTBLTCHAR (DDXPOSITION) \VANILLAHOSTNAMEP (EVENTFN) GET-ENVIRONMENT-AND-FILEMAP (FMRECENT?) +TERM.DOWN (YPOS) \INIT.ETHER.BUFFER.POOL (D0NEXTIOCB) \DSPFONT.HDCPYDISPLAY (DDCHARIMAGEWIDTHS +DDLINEFEED) \LOCATE.NSNET (RTNET# RTHOPCOUNT RTTIMER) GRAPHEDITCOMMANDFN (ITEMS CENTERFLG +CHANGEOFFSETFLG) RESTOREBUF (OLDTAIL) NODECREATE (NODEID NODEPOSITION NODELABEL NODEFONT TONODES +FROMNODES NODEBORDER NODELABELSHADE) \FLUSHNDBS (NDBNEXT NDBWATCHER NDBTRANSLATIONS NDBIQ) PUTHASHTEXT + (Start End) \BULK.DATA.CLOSE (SPPATTENTIONFN BULK.DATA.CONTINUATION SPPINPKT CBUFPTR CBUFSIZE +ENDOFSTREAMOP SPPSUBSTREAM F10) \UNVISIBLE.PAGED.REVALIDATEFILELST (ACCESS) \CHECKFORSTORAGEFULL ( +STORAGEFULL) \INIT.POWERS.OF.TEN (EXP HI LO) \GETREGIONTRACKWITHBOX (XCOORD YCOORD) +\SFFixClippingRegion (DDClippingRight DDClippingLeft DDClippingTop DDClippingBottom) OPT.LBMERGE (TAG +LEVEL FRAME) \TEDIT.PARSE.PARALOOKS.LIST (TABKIND TABX 1STLEFTMAR LEFTMAR RIGHTMAR LEADBEFORE +LEADAFTER LINELEAD TABSPEC QUAD FMTPARATYPE FMTPARASUBTYPE FMTNEWPAGEBEFORE FMTNEWPAGEAFTER +FMTHEADINGKEEP FMTKEEP FMTBASETOBASE FMTREVISED FMTCOLUMN FMTSPECIALX FMTSPECIALY FMTSTYLE +FMTCHARSTYLES FMTUSERINFO) \TEDIT.WORDBOUND.READTABLE (READMACRODEFS) SEDIT::INITIALIZE-ATOMIC (SEDIT::NAME + SEDIT::ASSIGN-FORMAT SEDIT::COMPUTE-FORMAT-VALUES SEDIT::LINEARIZE SEDIT::SUB-NODE-CHANGED +SEDIT::COMPUTE-POINT-POSITION SEDIT::COMPUTE-SELECTION-POSITION SEDIT::SET-POINT SEDIT::SET-SELECTION +SEDIT::GROW-SELECTION SEDIT::SELECT-SEGMENT SEDIT::INSERT CL:DELETE SEDIT::COPY-STRUCTURE +SEDIT::COPY-SELECTION SEDIT::STRINGIFY SEDIT::BACK-SPACE SEDIT::CLOSE-NODE) \TEXTTTYBOUT (CHARPOSITION +) FW-CLOSEFN (OFDSTATUS) TEXTICON (XCOORD YCOORD) \UFS.CREATE.DEVICE (NODIRECTORIES DEVICENAME +CLOSEFILE DELETEFILE RENAMEFILE TRUNCATEFILE GETFILEINFO GETFILENAME OPENFILE READPAGES SETFILEINFO +WRITEPAGES REOPENFILE GENERATEFILES EVENTFN DIRECTORYNAMEP HOSTNAMEP OPENP REGISTERFILE UNREGISTERFILE +) TEDIT.SKIP.SPECIALCOND (LMARK 1STLN LSTLN LHEIGHT ASCENT DESCENT LTRUEASCENT LTRUEDESCENT CHARLIM) +TB.RENUMBER.TAIL (TI# TBTAILHINT) \FAULTINIT (KbdFXP MiscFXP) \FM.EDIT-INSERT (WIDTH FM.BITMAP +FM.LABEL) SET/LAYOUT/POSITION (XCOORD YCOORD) COURIER.OPEN (ENDOFSTREAMOP) BLOCK (WAKEREASON PQNEXT +PQLAST PROCFX) \BN.TO.FIXP (ELEMENTS) \CREATESTARFONT (FONTDEVICE FONTFAMILY FONTSIZE FONTFACE +\SFFACECODE ROTATION OTHERDEVICEFONTPROPS FONTSCALE) TB.UPDATE.DISPLAY (HEIGHT TBORIGIN BOTTOM) +\SET.VMEM.FULL.STATE (VMEMFULL) \VFMDelete1 (used) \SETGROUPMIN (ATNOWX ATNOWY ATMINX ATMINY ATMAXX +ATMAXY) LOOKUP-ENVIRONMENT-AND-FILEMAP (FMRECENT?) FW-RESIZE-OFD (WIDTH HEIGHT LEFT BOTTOM +CURPOSXOFFSET EOFPOSXOFFSET PCTPOSXOFFSET ACCESSXOFFSET PCTREGION) PRINTDATE (FILECHANGES FILEDATE +DATEFILENAME) CLEARPUP (EPLINK EPUSERFIELD EPPLIST EPREQUEUE EPSOCKET EPNETWORK) TEDIT.MOVE (SET +\INSERTPCVALID \INSERTPC THTEXTOBJ THACTION THLEN THCH# THFIRSTPIECE THAUXINFO THOLDINFO \DIRTY +TEXTLEN CH# CHLIM DCH DX POINT) \NSFILING.RELEASE.BULKSTREAM (FSCOURIERSTREAMS) FREEATTACHEDWINDOW ( +XCOORD YCOORD) \CLOSELINE (LINEBUFSTATE) \SFFIXLINELENGTH (LINELENGTH) \UFSOpenFile (FULLFILENAME +DEVICE EPAGE EOFFSET EOLCONVENTION VALIDATION ENDOFSTREAMOP FILEID CDATE UNIXNAME) \INCPARENCOUNT ( +INSTRINGP LPARCOUNT FW6 LBRKCOUNT FW7) EDITSHADEREPAINTFN (REGION LABEL HELP) \GETFBB (FBBBDX FBBBDY +FBBBOX FBBBOY) \DOVE.FAULTINIT (PAGE# HINUM LONUM) SEDIT::MAP-COMMENT-INDEX (SEDIT::\Z SEDIT::\T SEDIT::\X + SEDIT::\Y) \TEDIT.UPDATE.SHOWSEL (ONFLG) \READACFONTBOXES (RASTERWIDTHX RASTERWIDTHY BBOX BBOY BBDX +BBDY) \RESETLINE (LINEBUFSTATE) \DL.FAULTINIT (PAGE# DLPROCESSORCMD NSHost0 NSHost1 NSHost2) +\VFMSaveBuffer (DIRTY) \SEQUIN.HANDLE.ACK (%#UNACKEDSEQS LASTACKEDSEQ) DASSEM.DASSEM (OPNAME OPARG +NVALS NNILS FREEVARINDEX JPT JMIN JD) \LEAF.SETVALIDATION (VALIDATION) \TEDIT.GET.SINGLE.PARALOOKS ( +1STLEFTMAR LEFTMAR RIGHTMAR LEADBEFORE LEADAFTER LINELEAD TABSPEC QUAD TABX TABKIND FMTSPECIALX +FMTSPECIALY FMTUSERINFO FMTPARATYPE FMTPARASUBTYPE FMTSTYLE FMTCHARSTYLES FMTNEWPAGEBEFORE +FMTNEWPAGEAFTER FMTHEADINGKEEP FMTKEEP FMTBASETOBASE FMTREVISED FMTCOLUMN) \TEXTMARK (PAGE OFFSET) +\MAIKO.FAULTINIT (PAGE#) \BSPINIT (DEVICENAME RESETABLE RANDOMACCESSP PAGEMAPPED FDBINABLE FDBOUTABLE +BUFFERED CLOSEFILE DELETEFILE GETFILEINFO OPENFILE READPAGES SETFILEINFO GENERATEFILES TRUNCATEFILE +WRITEPAGES GETFILENAME REOPENFILE EVENTFN DIRECTORYNAMEP HOSTNAMEP BIN BOUT READP EOFP PEEKBIN +GETFILEPTR SETFILEPTR BACKFILEPTR BLOCKIN BLOCKOUT GETNEXTBUFFER FORCEOUTPUT LASTC GETEOFPTR) +TEDIT.FIND (THACTION THAUXINFO \INSERTPCVALID) FB.DELVERCOMMAND (TITLE ITEMS CENTERFLG) +\TEDIT.INTEGER.IMAGEBOX (XKERN YDESC YSIZE XSIZE) SNAPW (SCREEN REGION) \UFSTruncateFile (EPAGE +EOFFSET VALIDATION) WXOFFSET (LEFT) \3MB.CREATENDB (NDBPUPHOST# NDBPUPNET# NDBNSNET# NETTYPE +NDBPUPTYPE NDBTRANSMITTER NDBENCAPSULATOR NDBBROADCASTP NDBETHERFLUSHER NDBWATCHER) \COPYSEL (Y0 X0 DX + CH# XLIM CHLIM DCH L1 LN YLIM POINT SET \TEXTOBJ SELKIND HOW HOWHEIGHT HASCARET SELOBJ ONFLG) +SET-PROFILE-INTERACTIVELY (TITLE ITEMS CENTERFLG) WYOFFSET (BOTTOM) TTY.PROCESS (PROCOLDTTYPROC +PROCTYPEAHEAD INTERRUPTLIST) \FM.EDIT-PREPARETOEDIT (FM.SELECTEDFN) \D01.FAULTINIT (HINUM LONUM +NSHost0 NSHost1 NSHost2) SCALE/GRAPH (GRAPHNODES NODEPOSITION XCOORD YCOORD NODEWIDTH NODEHEIGHT +NODEFONT TONODES NODEBORDER) \PFTransferFilePage (fileID attributesInAllPages filePage) DMCHAT.NEWLINE + (XPOS AUTOLF EATLF EATCRLF) \10MB.TURNONETHER (NDBCSB DLFIRSTOCB DLFIRSTICB DLOUTPUTMASK DLINPUTMASK +DLMISSEDPACKETS DLLASTICB DLLASTOCB) SEDIT:RESET-COMMANDS (SEDIT::COMMAND-TABLE SEDIT::HELP-MENU) +OPT.JUMPTHRU (TAG OPNAME) \FM.EDITSTART-SELECTEDFN (FM.SELECTEDFN) \BSP.HANDLE.INTERRUPT ( +RCVINTERRUPTID INTERRUPTIN) \LFRenameFile (DIRINFO FULLFILENAME fileName TimeWrite) FB.ANALYZE.PATTERN + (PATTERNPARSED? DIRECTORYSTART NAMESTART) \ADVANCE.ARRAY.SEGMENTS (PAGE#) SEDIT::REPLACE-ROOT ( +SEDIT::FIRST-LINE SEDIT::LINEAR-THREAD SEDIT::SUPER-NODE SEDIT::SUB-NODE-INDEX SEDIT::POINT-NODE +SEDIT::POINT-INDEX SEDIT::POINT-TYPE) ONEDINSPECT.SELECTITEM (ELTWIDTH ELTLEFT ELTBOTTOM PROP) +\LITATOM.EATCHARS (PNAMELENGTH) \MEDW.SHRINKW (XCOORD YCOORD) \UFSCloseFile (FILEID CDATE) +OPENPOSTSCRIPTSTREAM (IMAGEDATA IMAGEOPS OUTCHARFN POSTSCRIPTSCALE POSTSCRIPTPAGEREGION +POSTSCRIPTCLIPPINGREGION POSTSCRIPTLEFTMARGIN POSTSCRIPTBOTTOMMARGIN POSTSCRIPTTOPMARGIN +POSTSCRIPTRIGHTMARGIN POSTSCRIPTHEADING POSTSCRIPTHEADINGFONT NAME EOL) \LEAF.REPAIR.BROKEN.PUP ( +HANDLE LEAFSTATUS) SPY.MAKEGRAPHNODES (NODEID NODELABEL TONODES NODEBORDER NODEFONT) SPY.LEGEND ( +NODEID NODELABEL TONODES NODEFONT NODEBORDER NODELABELSHADE) SEDIT::COPY-STRUCTURE-QUOTE (CL:STRUCTURE +) \TEDIT.HCPYFMTSPEC (1STLEFTMAR LEFTMAR RIGHTMAR LEADBEFORE LEADAFTER LINELEAD FMTBASETOBASE QUAD +TABSPEC FMTSPECIALX FMTSPECIALY) TEDIT.SETFUNCTION (READMACRODEFS MACROTYPE MACROFN) +DBG::DEBUGGER-BUTTON-EVENT (ITEMS WHENHELDFN) DINFO.SETUP.WINDOW (WINDOW) TEDIT.SETSEL (ONFLG CH# +CHLIM DCH POINT SELOBJ \TEXTOBJ BLUEPENDINGDELETE SET CARETLOOKS) \SEQUIN.FLUSH.RETRANSMIT ( +SEQRETRANSMITNEXT) \SMASHMENUIMAGEONRESET (IMAGE) \FILEMAP-HASHOVERFLOW (FMRECENT?) EXTENDREGIONRIGHT +(WIDTH) MSSETSETTYPE (DEFAULTTYPE) \TEDIT.NSCHAR.RUN (\INSERTPCVALID PFILE PFPOS PFATP PSTR PLEN +TEXTLEN) \NSFILING.HOSTNAMEP (DEVICENAME REMOTEP SUBDIRECTORIES OPENFILE REOPENFILE CLOSEFILE +GETFILEINFO SETFILEINFO GETEOFPTR DELETEFILE HOSTNAMEP GETFILENAME DIRECTORYNAMEP GENERATEFILES +RENAMEFILE EVENTFN OPENP REGISTERFILE UNREGISTERFILE BREAKCONNECTION DEVICEINFO NSFILESERVER +NSFILINGLOCK NSFILINGNAME NSCONNECTIONS) \DSKDISPLAY.RESHAPEFN (XCOORD YCOORD) COMP.EXPR (EXTCALL) +TEDIT.BUILD.PCTB (TXTFILE TXTPAGEFRAMES EOLCONVENTION PLOOKS PPARALOOKS PFILE PFPOS PLEN PREVPIECE +PPARALAST PCTB TXTCHARLOOKSLIST TXTPARALOOKSLIST FORMATTEDP NEXTPIECE) \LFTruncateFile (EPAGE EOFFSET) + \CHAIN.UP.RPT (NEXTRP LOCKED UNAVAILABLE) FB.CHECK.NAME.LENGTH (OVERFLOWWIDTHS) TB.ITEM.UPDATABLE? ( +TBUPDATEFROMHERE) SEDIT::REPLACE-NODE (SEDIT::SELECT-NODE SEDIT::SELECT-START SEDIT::SELECT-END +SEDIT::SELECT-TYPE SEDIT::PENDING-DELETE?) \SETFATSYNCODE (NSCHARHASH) PTPLUS (XCOORD YCOORD) +PACKAGE-ENABLE (REPACKAGE) TRACKW (XCOORD YCOORD) \DSPTOPMARGIN.PRESS (PRTOP) \SHOW.ARRAY.FREELISTS ( +SAFITEMS SAFCELLS) OPT.XVARSCAN1 (NOXVAR) \VFMDelete2 (key volumePage used) \DEVICEFILE.EOSERROR ( +BUFFS FILEPAGE# BUFFERNEXT SYSNEXT CBUFSIZE EOFFSET COFFSET CBUFPTR) SHOW.PRESS (PRFONT STARTCHARBYTE) + \FM.CREATEITEM (FM.TYPE FM.LABEL FM.ID FM.GROUPID FM.INITSTATE FM.FONT FM.BITMAP FM.HIGHLIGHT +FM.REGION FM.MAXREGION FM.MESSAGE FM.LINKS FM.DOWNFN FM.HELDFN FM.MOVEDFN FM.SELECTEDFN) +\BSP.HANDLE.INTERRUPTREPLY (XMITINTERRUPTID INTERRUPTOUT) TERM.LEFT (XPOS) MSDOES (REP OTHERSET MSVERB + TENSE) \TEDIT.FORMATTABS (PTNEWTX PTOLDTAB PTTYPE PTTABX PTWBASE PTOLDTX) \FM.EDITSTART-SETUP ( +FM.MESSAGE FM.SYSDOWNFN FM.SYSMOVEDFN FM.SYSSELECTEDFN) \NSFILING.ERRORHANDLER (SPPERRORHANDLER F1 F2 +F3 F4 F5 FW6 FW7 SPPSUBSTREAM CBUFPTR CBUFSIZE COFFSET) \BSP.HANDLE.ERROR (MAXPUPALLOC PUPALLOCCOUNT) +MB.THREESTATE.WHENOPERATEDFN (SET ONFLG) \VFMFreeVPage (filePage volumePage nextFilePage) +SEDIT::RELINEARIZE-WHERE-NECESSARY (SEDIT::CHANGED?) \MAKE.COURIER.REP.STREAM (DEVICE BLOCKIN BLOCKOUT + ACCESSBITS STRMBINFN STRMBOUTFN ENDOFSTREAMOP CRWORDLIST) CHANGEBACKGROUNDBORDER (DLDISPBORDER) +NESTED.SUBMENU (ITEMS MENUOFFSET XCOORD YCOORD CHANGEOFFSETFLG CENTERFLG MENUFONT MENUBORDERSIZE +MENUOUTLINESIZE WHENHELDFN WHENUNHELDFN SUBITEMFN) DBG::NEAR-BY-REGION (LEFT BOTTOM WIDTH HEIGHT) +\QUEUE.INPUT.IOCB (DLFOROUTPUTUSE DLNEXTIOCB DLRETRANSMISSIONMASK DLIOCBSTATUS DLIOCBLENGTH +DLIOCBBUFFER DLFIRSTICB DLLASTICB D0NEXTIOCB D0RETRANSMISSIONMASK D0IOCBSTATUS D0IOCBLENGTH +D0IOCBBUFFER D0FIRSTICB D0LASTICB) UNMAKEHARDCOPYSTREAM (IMAGEOPS STRMBOUTFN OUTCHARFN) FB.DELETE.FILE + (DELETEDFILES DELETEDPAGES) \RESHOWBORDER1 (SAVE WBORDER REG LEFT BOTTOM WIDTH HEIGHT) RENUMBER.LINES + (ROW) \INITIALIZESWAPDISK (ALTODSKOBJ ddPOINTER DSKPARTITION DISKDEVICENAME) \MEDW.RELMOVEW (XCOORD +YCOORD) \DOFORMATTING.HARDCOPY (LTRUEDESCENT LTRUEASCENT TLSPACEFACTOR LHEIGHT DESCENT ASCENT +LEFTMARGIN LXLIM) PSCFONT.READFONT (FID IL-FONTID FIRSTCHAR LASTCHAR ASCENT DESCENT WIDTHS) +EXPANDING-PAGEFULLFN (HEIGHT BOTTOM) CROPMARK.IMAGEBOXFN (XSIZE YSIZE YDESC XKERN) \DECPARENCOUNT ( +INSTRINGP LPARCOUNT FW6 LBRKCOUNT FW7) \EXTENDISFMAP (ISFONEPAGE ISFONEDA ISFLAST) +ACCEPT-UNIX-SOCKET-STREAM (ACCESS DEVICE EOLCONVENTION OPENFILELST) SEDIT::COPY-STRUCTURE-LIST ( +CL:STRUCTURE) DEFAULT.INSPECTW.VALUECOMMANDFN (ITEMS) MSKNOWN (KNOWN) SEDIT::COPY-STRUCTURE-STRING ( +CL:STRUCTURE SEDIT::ATOM-CHARS STRING SEDIT::FONT SEDIT::PRIN-2?) \INTERPRETER1 (%#FRAMENAME NTSIZE +NLOCALS NAMETABLE) SEDIT::COLLECT-UNDO-BLOCK (SEDIT::UNDO-LIST) \BSP.TIMERFN (EPREQUEUE ACKREQUESTED +ADATACOUNT) \INITBFS (SHORTCB ddPOINTER ALTODSKOBJ NDISKS NTRACKS NHEADS NSECTORS RETRYCOUNT DDDIRTY +DDVALID DISKVERSION RETURNONCHECKERROR) TEDIT.PAGEFORMAT (TXTPAGEFRAMES \DIRTY) \SMASHLINK (ALINK +CLINK SLOWP) SEDIT::RECOMPUTE-WIDTH (SEDIT::ACTUAL-WIDTH) OPT.XVARSCAN (NOXVAR) \DSPTRANSFORMREGION ( +LEFT BOTTOM WIDTH HEIGHT) \FILLBUFFER (PEEKEDCHAR PEEKEDECHOFLG LINEBUFSTATE LBRKCOUNT INSTRINGP +LPARCOUNT) \TELERAIDSERVER (HIBYTE LOBYTE PUPLENGTH PUPTYPE) \STARTDISPLAY (LEFT BOTTOM WIDTH HEIGHT +SCDESTINATION SCWIDTH SCHEIGHT) \MEDW.MOVEW (XCOORD YCOORD LEFT BOTTOM WIDTH HEIGHT REG) +\OFFSETCLIPPINGREGION (LEFT BOTTOM WIDTH HEIGHT) \FM.DISPLAY-SETUP (FM.MESSAGE) FB.HANDLE.ABORT.BUTTON + (ABORTING) UPDATE/SCROLL/REG (VERTSCROLLWINDOW HORIZSCROLLWINDOW VERTSCROLLREG LEFT BOTTOM WIDTH +HEIGHT HORIZSCROLLREG) \SPP.SYSPKT (SPPSYSPKT CC SEQNO) SEDIT::COMPUTE-POINT-POSITION-LIST (SEDIT::POINT-X + SEDIT::POINT-LINE) \TEDIT.GET.INSERT.CHARLOOKS (CLPROTECTED CLSELHERE) \TEDIT.READTABLE ( +READMACRODEFS) \SETTERMSYNTAX (TERMCLASS) DSPBACKUP (DDYPOSITION) MB.BUTTONEVENTINFN (SELKIND) +\CreateScreenBitMap (BITMAPBASE BITMAPWIDTH BITMAPRASTERWIDTH BITMAPHEIGHT) CREATE-UNIX-SOCKET-STREAM +(ACCESS DEVICE EOLCONVENTION OPENFILELST) VIDEOCOLOR (DLDISPCONTROL) \3MBENCAPSULATE (3MBDESTHOST +3MBSOURCEHOST 3MBLENGTH 3MBTYPE) \10MB.STARTDRIVER (NDBTQ DLFIRSTICB NDBWATCHER) +\SETUP-COMPILED-CLOSURE-CALL (USECNT IVAR FLAGS NOPUSH %#BLINK %#CLINK %#ALINK FNHEADER PC NEXTBLOCK +MiscFXP) \COPYSYNTAX (NSCHARHASH) \FILLINSPP (EPTYPE CC DSTYPE) \LEAF.USE.NEW.CONNECTION (EPLINK +LEAFSTATUS HANDLE) PACKAGE-DISABLE (REPACKAGE) PTDIFFERENCE (XCOORD YCOORD) \VFMFind (key volumePage) +FW-CLOSE-CMD (TITLE ITEMS) \VAMRecomputeFreePageCount (freePageCount lowerBound) +TEDIT.PARSE.PAGEFRAMES1 (REGIONFILLMETHOD REGIONTYPE REGIONLOCALINFO REGIONSPEC REGIONSUBBOXES) +\DSPSPACEFACTOR.PRESS (PRSPACEFACTOR) \NSFILING.WHENCLOSED (FSCOURIERSTREAMS) CONTROL (CONTROLFLG) +\INITBCPLDISPLAY (DEVICE BOUT ACCESS LINELENGTH USERCLOSEABLE USERVISIBLE OUTCHARFN) +\MAIKO.NEWFAULTINIT (PAGE#) COPYTERMTABLE (TERMSA) \DSCCOUT (CHARPOSITION) \MAIKO.DO.MOVDS (DEFPOINTER + DEFCELLFLAGS AUXDEFCELLFLAGS) \DSPFONT.IP (IPFONT IPSPACEWIDTH IPLINEFEED NSTRANSTABLE +IPMAXVISIBLEBASELINE IPMINVISIBLEBASELINE IPCHARVISIBLEP) \TEDIT.WINDOW.SETUP (PROMPTWINDOW) +\PROMPTWINDOW.SET.HEIGHT (XCOORD YCOORD) \MAKEFREEBLOCK (SIZE FLAGWORD) \CREATEDISPLAY (DEVICENAME +RESETABLE RANDOMACCESSP PAGEMAPPED CLOSEFILE DELETEFILE GETFILEINFO OPENFILE READPAGES SETFILEINFO +GENERATEFILES TRUNCATEFILE WRITEPAGES GETFILENAME REOPENFILE EVENTFN DIRECTORYNAMEP HOSTNAMEP BIN BOUT + PEEKBIN BACKFILEPTR BLOCKIN BLOCKOUT DEVICEINFO ONOFF) \NSRANDOM.HANDLE.ERROR (NSFILING.CONNECTION) +DELETECONTROL (DELCHARECHO LINEDELETE 1STCHDEL NTHCHDEL POSTCHDEL EMPTYCHDEL) \MAIKO.ASSIGNBUFFERS ( +UserNameAddr UserPswdAddr MDSZoneLength MDSZone) \NSFILING.GET.STREAM (FSCOURIERSTREAMS) +NESTED.SUBMENU.POS (XCOORD YCOORD) \SHAPEW2 (REG SAVE) EXTENDREGIONLEFT (LEFT WIDTH) \MEDW.CLOSEW ( +SCTOPW NEXTW) \NSFILING.DELETEFILE (FSCACHEDHANDLES) EDITDELETENODE (XCOORD YCOORD) +\CREATE.TWODINSPECTOR.INSPECTMENU (ITEMS) SEDIT::CFV-QUOTE (SEDIT::INLINE-WIDTH SEDIT::PREFERRED-WIDTH +) \SETUP-ENVIRONMENT-CALL (NEXTBLOCK IVAR NOPUSH %#BLINK %#CLINK %#ALINK FNHEADER PC MiscFXP) +PFI.HANDLE.DEFDEFINER (NAME PATTERNS TESTFN) OPT.SCANOPT (OPNAME OPARG) \M-VMEMSAVE (MISCSTACKRESULT +Key CurrentFXP) DISPLAYSTREAMINIT (LEFT BOTTOM WIDTH HEIGHT) \LFExtendFile (filePage volumePage +nextFilePage) \ENTITYSTART.PRESS (PRSPACEWIDTH PRFONT DLSTARTBYTE ELSTARTBYTE STARTCHARBYTE) +\DOCOMPRESSVMEM (NActivePages) DMCHAT.CLEAR (ROLLMODE) \10MB.INPUT.INTERRUPT (10MBLENGTH EPRECEIVING +EPNETWORK) MAKEHARDCOPYSTREAM (IMAGEOPS STRMBOUTFN OUTCHARFN) TEDIT.INSERT.OBJECT (\INSERTFIRSTCH PSTR + PFILE POBJ PLEN PPARALOOKS PLOOKS THACTION THCH# THLEN THFIRSTPIECE TEXTLEN \INSERTPCVALID \DIRTY +DESC SELKIND DCH DX CHLIM CH# POINT) \START.PROCESSES (PROCFX) \DOFORMATTING (LTRUEDESCENT LTRUEASCENT + TLSPACEFACTOR LHEIGHT DESCENT ASCENT LEFTMARGIN LXLIM) \VFMDeletePageGroup (fileID filePage type +volumePage nextFilePage) BSP.PUTINTERRUPT (INTERRUPTOUT) DELETELINE (NEXTLINE END START) DRIBBLE ( +USERCLOSEABLE USERVISIBLE) RESETGRID.NEW (LEFT BOTTOM) PROCESSWORLD (PROCFX PQNEXT PQLAST +PROCNEVERSTARTED PROCFINISHED PROCDELETED PROCTIMERLINK NEXTPROCHANDLE) INSURE.BRUSH (BRUSHSHAPE +BRUSHSIZE BRUSHCOLOR) SEDIT::PROPAGATE-WIDTH-CHANGE (WIDTH SEDIT::ACTUAL-WIDTH) \SETUP.DEFAULT.LINEBUF + (READP EOFP PEEKBIN FULLFILENAME LINEBUFSTATE USERCLOSEABLE USERVISIBLE ENDOFSTREAMOP) +\COERCEASCIITONSFONT (OTHERDEVICEFONTPROPS FONTFAMILY FONTDEVICESPEC) ADD.PROCESS (PROCTIMERSET +WAKEREASON PROCFORM RESTARTABLE PROCPRIORITY PROCSTATUS PROCSYSTEMP PROCAFTEREXIT PROCBEFOREEXIT +PROCTTYENTRYFN PROCTTYEXITFN PROCWINDOW PROCINFOHOOK PROCUSERDATA PROCRESTARTFORM PROCQUEUE +PROCNEVERSTARTED) \MEDW.OPENW (NEXTW SCTOPW PBTDESTBPL) \FM.PUSHGROUP (BOTTOM LEFT) +\CREATE.TWODINSPECTOR.SETMENU (ITEMS) TEDIT.HARDCOPYFN (EDITOPACTIVE) \3MBGETPACKET (EPNETWORK EPTYPE) + SEDIT::CFV-LIST (SEDIT::INLINE-WIDTH SEDIT::PREFERRED-WIDTH) \CARET.CREATE (CURSOR) NEWPAGE.IP ( +IPFONT IPPAGEFONTS IPNEXTFRAMEVAR IPPAGENUM) \ICONW.SHOW.TITLE (ICTITLE) CREATE.EVENT (EVENTNAME) +FW-CHANGE-POSITION (XCOORD YCOORD) \FILLRTPPUP (PUPLENGTH TYPEWORD PUPID) \TEDIT.MENU.INIT (MBSTRING +MBLABEL MBTEXT MBCHANGESTATEFN MBBUTTONS MBMAXITEMSPERLINE MBFONT MBBUTTONEVENTFN MBINITENTRY +MBINITSTATE) \DSPRIGHTMARGIN.PRESS (PRRIGHT) \RELEASE.PROCESS (PROCFX PROCOLDTTYPROC PROCDELETED +PROCSTATUS PROCFORM PROCRESTARTFORM PROCQUEUE PROCWINDOW PROCTIMERSET NEXTPROCHANDLE) +\FTP.OPENFILE.FROM.PLIST (FULLFILENAME FTPFILEPROPS ACCESS EOLCONVENTION DEVICE) \ADDLEAFSTRING ( +LEAFLENGTH) DINFO.OPENTEXTSTREAM (LAST.TEXT) \DSPLINEFEED.PRESS (PRLINEFEED) CHAT.SET.EMULATOR ( +TERM.STATE TYPEOUTPROC) MB.THREESTATEBUTTON.FN (ONFLG) \FILLBSPPUP (PUPLENGTH TYPEWORD PUPID EPREQUEUE +) ECHOCHAR (CCECHO) \LFSetFileInfo (TYPE TimeCreate) SEDIT::INPUT-NORMAL-CHAR (SEDIT::ATOM-STARTED +SEDIT::ATOM-STARTED-UNDO-POINTER) SEDIT::PARSE-NEW (SEDIT::CURRENT-NODE SEDIT::\X) OPT.SETUPOPT (PREV +NXT) SETMAINTPANEL (DLMAINTPANEL) MARGINBAR (LEFT BOTTOM HEIGHT WIDTH) SHAPEW1 (REG SAVE LEFT BOTTOM +WIDTH HEIGHT) SEDIT::UNDO-COMMENT-CHANGE (CL:STRUCTURE SEDIT::SUPER-NODE SEDIT::SUB-NODE-INDEX) +\RUN.PROCESS (PQNEXT PQLAST NEXTPROCHANDLE PROCSTATUS WAKEREASON) \TFBRAVO.INIT.CHARLOOKS (CLSIZE +CLNAME CLOFFSET) \HDCPYDSPPRINTCHAR (CHARPOSITION) BULKDATA.GENERATE.NEXT (BGITEMSLEFT BGLASTSEGMENT?) + GETXIP (INQUEUELENGTH) TTNEXTPOS (ROWPOS COLPOS) \CREATELINEBUFFER (LINEBUFSTATE KEYBOARDSTREAM +USERCLOSEABLE USERVISIBLE ENDOFSTREAMOP EOLCONVENTION DEVICE EOFP) DMCHAT.RIGHT (XPOS) +\SEQUIN.RETRANSMITNEXT (EPREQUEUE RECEIVESEQ ALLOCATE SEQRETRANSMITNEXT SEQRETRANSMITTING +%#SEQRETRANSMITS) SEDIT::EXTRACT-CURRENT-SELECTION (SEDIT::POINT-NODE SEDIT::POINT-TYPE) +\TEXTMENU.DOC.CREATE (MENUFLG EDITPROPS) \DL.NEWFAULTINIT (PAGE# DLDISPCONTROL VP FILEPAGE EMPTY +UNAVAILABLE) \NEXTCONSPAGE (PAGE# DTDNEXTPAGE) SEDIT::COMPUTE-SELECTION-POSITION-LITATOM ( +SEDIT::SELECT-START-LINE SEDIT::SELECT-END-LINE) SEDIT::BUILD-PRELINEARIZED-NODE (SEDIT::CURRENT-NODE +SEDIT::\X) ECHOMODE (ECHOFLG) \LFWritePages (REVALIDATEFLG) SEDIT::CONS-ATOM (SEDIT::ATOM-CHARS) +DRAWMARGINSCALE (LEFT BOTTOM WIDTH HEIGHT) FW-RECALL-CMD (TITLE CENTERFLG ITEMS OFDSTATUS) +\MOUSE.PROCESS (PROCSYSTEMP PROCTYPEAHEAD) \PROMPTWINDOW.EXPAND (HEIGHT) ICMLARRAY.MENUW.APPLY (XCOORD + YCOORD) \NOTE.3TO10 (NDBTRANSLATIONS) TEDIT.GET (PCTB \DIRTY NEXTLINE \INSERTPCVALID TEXTLEN CH# +CHLIM DCH POINT SET CARETLOOKS THACTION) PUTMENUPROP (MENUUSERDATA) \SETSPACE.PRESS (PRSPACEWIDTH) +\MAIKO.CONS.UFN (CAR CDR NEXTCELL CNT FULLCARFIELD CDRCODE) CHAT.HOLD (HELD) \DEQUEUE (SYSQUEUEHEAD +SYSQUEUETAIL QLINK) \MEDW.CREATEW (REG SAVE WTITLE WBORDER NEXTW SCREEN DSP XWINDOWHINT LEFT BOTTOM +WIDTH HEIGHT) RELSTK (EDFXP) RAISE (RAISEFLG) SETXY.PRESS (PRXPOS PRYPOS) SEDIT::BACKSPACE-LIST ( +SEDIT::POINT-NODE SEDIT::POINT-INDEX SEDIT::POINT-TYPE) CHAT.MENU (HELD ITEMS LOCALECHO RUNNING?) +GRAPHDELETELINK (TONODES FROMNODES) SEDIT::COMPUTE-POINT-POSITION-LITATOM (SEDIT::POINT-LINE) +TEDIT.DELETELINE (NEXTLINE PREVLINE) \CLOSELEAFCONNECTION (PFSLEAFSEQUIN) RESETTERMTABLE (RAISEFLG +DELCHARECHO LINEDELETE 1STCHDEL NTHCHDEL POSTCHDEL EMPTYCHDEL CONTROLFLG ECHOFLG) \LFOpenFile (EPAGE +EOFFSET NONDEFAULTDATEFLG VALIDATION) \FM.LAYOUTGRID (LEFT BOTTOM WIDTH HEIGHT) SEDIT::PARSE--GAP ( +SEDIT::LINEAR-FORM SEDIT::INLINE-WIDTH SEDIT::PREFERRED-WIDTH SEDIT::ACTUAL-WIDTH SEDIT::ACTUAL-LLENGTH +) COMP.UNBIND.VARS (PRIMARYRETURN) COMP.LABELS (OPNAME) SENDXIP (EPTYPE XIPTCONTROL) \TEDIT.BASICFIND +(\INSERTPCVALID) TWOD.TRACKCURSOR (ELTWIDTH ELTLEFT ELTBOTTOM ROWPROP COLUMNPROP) +\10MB.OUTPUT.INTERRUPT (EPTRANSMITTING EPNETWORK) \SETFVARSLOT (BINDINGPTR) \INITBIGNUMS (ELEMENTS) +GRAPHDELETENODE (GRAPHNODES) \REQUEUE.ETHERPACKET (EPREQUEUE) \UFS.NEXTFILEFN (SUBGENERATORS THISFILE +FILEID CURRENT-DEPTH MAX-DEPTH) \SETTYPEMASK (DTDTYPEENTRY) FB.AFTERCLOSEFN (TABLEBROWSER) +\ORIGTERMTABLE (TERMSA NSCHARHASH DELCHARECHO ECHOFLG LINEDELETE 1STCHDEL NTHCHDEL POSTCHDEL +EMPTYCHDEL) TB.DISPLAY.LINES (TBMAXXPOS WIDTH) DINFO.FMW.CLOSEFN (FMENU.WINDOW) +\TFBRAVO.WRITE.PARAGRAPH (FMTPARATYPE) \PROG0 (%#FRAMENAME NTSIZE NAMETABLE) SEDIT::SET-PROPS ( +SEDIT::COMPLETION-FN SEDIT::ROOT-CHANGED-FN SEDIT::ENVIRONMENT SEDIT::PROFILE SEDIT::EVAL-IN-PROCESS +SEDIT::EVAL-FN) ICMLARRAY.MENUW.GETLEVEL (ITEMS) \VAMFreePageGroup (freePageCount lowerBound) +DINFO.READ.GRAPH (TOPNODEID TEXTPROPS LOOKUPFN MENUFN FREEMENUITEMS NODELST USERDATA NAME DEFAULTHOST +DEFAULTDEVICE DEFAULTDIR) \FIXLOCALNET (PUPNET# PUPHOST#) \INITCONSPAGE (NEXTCELL FULLCARFIELD +NEXTFREE CNT NEXTPAGE) \INSPECT/CODE/RESHAPEFN (XCOORD YCOORD LEFT BOTTOM WIDTH HEIGHT) +\CREATE.TWODINSPECTOR.TITLEMENU (ITEMS) TEDIT.SHOWSEL (\TEXTOBJ) EXTENDREGIONBOTTOM (BOTTOM HEIGHT) +\ALLOCMDSPAGE (PAGE#) \NSFILING.EVENTFN (DEVICEINFO) \NSRANDOM.FETCH.CACHE (NSPTAIL) +TEDIT.MINIMAL.WINDOW.SETUP (TCCARETDS SELWINDOW \WINDOW DISPLAYCACHE DISPLAYCACHEDS LEFT BOTTOM WIDTH +HEIGHT WTOP WRIGHT WBOTTOM WLEFT LINES) DELETE/AND/DISPLAY/LINK (XCOORD YCOORD) BMOBJ.CREATE.MENU ( +TITLE ITEMS CENTERFLG CHANGEOFFSETFLG MENUOFFSET XCOORD YCOORD) SEDIT::SELECT-NODE-SEGMENT ( +SEDIT::SELECT-NODE SEDIT::SELECT-START SEDIT::SELECT-END) \PEEKREFILL (PEEKEDCHAR PEEKEDECHOFLG) +\DSPLEFTMARGIN.PRESS (PRLEFT) \FIXLINELENGTH.PRESS (LINELENGTH) \GET.PRIORITY.QUEUE (PQPRIORITY +PQHIGHER PQLOWER) FORWARD.DELETE.TO (END LASTCOL START) \SPP.SENDPKT (ACKNO ALLOCNO SPPINPUTBLOCKED +SPPACKREQUESTED SPPACKREQTIME SPPACKREQTIMEOUT SPPACKPENDING SPPRETRANSMITTIMER) DISPLAYGRAPH (XCOORD +YCOORD) \SET.PROCESS.NAME (PROCNAME) VKBD.FIX.FONT (KEYBOARDDISPLAYFONT) \EVALA (%#FRAMENAME NTSIZE +NAMETABLE) BULKDATA.GENERATOR (BGSTREAM BGPROGRAM BGTYPE BGLASTSEGMENT? BGITEMSLEFT) CHECKCONSPAGES ( +PAGE#) LATTICE/BREAK/CYCLES (NODEPOSITION) SPP.OPEN (SPPSERVERFLAG SPPSERVERFN SPPTERMINATEDP +SPPWHENCLOSEDFN SPPATTENTIONFN SPPERRORHANDLER SPPEOMONFORCEOUT SPPOTHERXIPHANDLER) \DL.ASSIGNBUFFERS +(UserNameAddr UserPswdAddr MDSZoneLength MDSZone) \MAPMDS (PAGE#) HARDCOPYGRAPH (XCOORD YCOORD) +\SUBREAD (LASTCCODE) RESETREADTABLE (READMACROFLG ESCAPEFLG COMMONLISP NUMBERBASE CASEINSENSITIVE +COMMONNUMSYNTAX USESILPACKAGE HASHMACROCHAR ESCAPECHAR MULTESCAPECHAR PACKAGECHAR DISPATCHMACRODEFS +READMACRODEFS) \DL.MARK.PAGES.UNAVAILABLE (UNAVAILABLE) \CHECKCONSPAGE (PAGE#) SEDIT::SET-OPTIONS ( +SEDIT::EDIT-OPTIONS) PUTTEXTPROP (TXTREADONLY TXTEDITING TXTNONSCHARS EDITPROPS) +\TEDIT.FIND.FIRST.LINE (NEXTLINE YBOT PREVLINE) TEDIT.DEACTIVATE.WINDOW (\WINDOW EDITFINISHEDFLG) +\ETHEREVENTFN (NDBNEXT) SEDIT::ASSIGN-FORMAT-LIST (SEDIT::UNASSIGNED) TITLEDICONW (ICIMAGE ICFONT +ICJUST ICREGION ICBREAKCHARS ICOPERATION) \ADJUSTABLE-STRING-STREAM-OUTCHARFN (CHARPOSITION) ESCAPE ( +ESCAPEFLG) \SEQUIN.HANDLE.INPUT (SEQCONTROL SEQOUTALLOC SEQSTATE MYRECEIVESEQ SEQTIMEOUT) TERM.UP ( +YPOS) \TOP-LEVEL-READ (ENDOFSTREAMOP) \KEYHANDLER1 (READ TELERAIDFXP W0 W1 W2 W3 W4 W5 WU WRITE) +COMP.STFN (OPNAME OPARG) \UNWIND.PROCESS (PROCFINISHED PROCBEINGDELETED) SEDIT::CLOSE-NODE-LITATOM ( +SEDIT::ATOM-STARTED SEDIT::ATOM-STARTED-UNDO-POINTER CL:STRUCTURE STRING SEDIT::OPEN-NODE) +MAKE-FILL-POINTER-OUTPUT-STREAM (DEVICE F1 ACCESS OTHERPROPS OUTCHARFN STRMBOUTFN) SEDIT::FIND-NODE ( +SEDIT::\X) \LFGenerateFiles (DIRPTR CHARLIST NEXTFILEFN FILEINFOFN GENFILESTATE CURRENTFILE +RESTOFFILES ATTRIBUTES) \FM.LAYOUTCOLUMN (LEFT BOTTOM WIDTH HEIGHT) DEL.PROCESS (PROCBEINGDELETED) +\STRING-STREAM-OUTCHARFN (CHARPOSITION) SEDIT::PARSE (SEDIT::\X SEDIT::CURRENT-NODE) COMP.BIND.VARS ( +VARNAME COMP.VARTYPE PARENT NVALS VARS FRAMETYPE NNILS DECLS) COMP.TAGBODY (LBNO FRAME LEVEL +PROGLABELS) \TEDIT.UCASE.SEL (THACTION) EDITBMRESHAPEFN (LEFT BOTTOM WIDTH HEIGHT) \LET0 (%#FRAMENAME +NTSIZE NAMETABLE) MENUDESELECT (MENUUSERDATA) SEDIT::QUERY-THROW-AWAY-CHANGES (ITEMS TITLE) +SEDIT::SET-SELECTION-COMMENT-WORD (SEDIT::SELECT-NODE SEDIT::SELECT-START SEDIT::SELECT-END +SEDIT::SELECT-TYPE) READTABLEPROP (NUMBERBASE READTBLNAME COMMONLISP COMMONNUMSYNTAX USESILPACKAGE +CASEINSENSITIVE ESCAPECHAR MULTESCAPECHAR PACKAGECHAR HASHMACROCHAR) BREAKREGIONSPEC (LEFT BOTTOM +WIDTH HEIGHT) LAYOUTGRAPH (GRAPH.PROPS) \LET* (%#FRAMENAME NTSIZE NAMETABLE) SKIPSEPRCODES (LASTCCODE) + EXTENDREGION (WIDTH LEFT HEIGHT BOTTOM) %%BROADCAST-STREAM-DEVICE-OUTCHARFN (CHARPOSITION) +\NSRANDOM.RELEASE.HANDLE (NSFILING.HANDLE NSFILING.CONNECTION NSHBUSYCOUNT) POSTSCRIPT.SHOWACCUM ( +POSTSCRIPTCHARSTOSHOW) DIRECTORY.NEXTFILE (STRINGNAME LITERALNAME FILEGENERATORS) \FM.LAYOUTROW (LEFT +BOTTOM WIDTH HEIGHT) TB.REPLACE.ITEMS (TI# TBTAILHINT TBITEMS TB#ITEMS TB#DELETED TBFIRSTSELECTEDITEM +TBLASTSELECTEDITEM) %%CONCATENATED-STREAM-DEVICE-BIN (F1) \DSPCOLOR.IP (IPCOLOR) \LFReturnNextFile ( +CURRENTFILE RESTOFFILES) PUTSTREAMPROP (ENDOFSTREAMOP OTHERPROPS) \SEQUIN.RETRANSMIT ( +SEQRETRANSMITNEXT SYSQUEUEHEAD SYSQUEUETAIL SEQRETRANSMITTING) MAKEFILE (LOADTYPE DATEFILENAME +TOBEDUMPED) INITIALIZECOLOR.IP (IPCOLORMODEL) \VAMAllocPageGroup (freePageCount lowerBound +nextFilePage volumePage) DSPEOLFN (DDEOLFN) \DSPCLIPPINGREGION.PRESS (PRClippingRegion) +RESTART.PROCESS (WAKEREASON) HASHBEFORECLOSE (Valid?) UNIX-BACKFILEPTR-NEW (COFFSET) +INSTALL-PROTOTYPE-DEFN (TITLE ITEMS) %%CONCATENATED-STREAM-DEVICE-PEEKBIN (F1) MSSOLVE (REP INVERTED +OSET QUOTED) \LOADNSHOSTNUMBER (NSHOST0 NSHOST1 NSHOST2) \LFEventFn (REOPENFILE) READMACROS ( +READMACROFLG) WAKE.PROCESS (WAKEREASON) \ETHERINIT (DEVICENAME EVENTFN DIRECTORYNAMEP HOSTNAMEP) +CL:MAKE-CONCATENATED-STREAM (DEVICE ACCESS F1) SCALEREGION (LEFT BOTTOM WIDTH HEIGHT) \SUSPEND.PROCESS + (PROCSTATUS NEXTPROCHANDLE PQLAST PQNEXT) %%CONCATENATED-STREAM-DEVICE-CLOSEFILE (ACCESS F1) +MB.CREATE.THREESTATEBUTTON (XSIZE YSIZE YDESC XKERN) \FTP.NEXTFILE (FTPGENCONNECTION FTPGENPLIST) +TEDIT.CARETLOOKS (\INSERTPCVALID CARETLOOKS) \NSRANDOM.PREPARE.CACHE (NSFILING.PAGE.CACHE NSPSIZE +NSPTAIL NSPBUFFERS) TB.SET.FONT (TBFONT TBFONTHEIGHT TBITEMHEIGHT TBFONTASCENT TBBASELINE TBORIGIN +TBEXTENT LEFT BOTTOM WIDTH HEIGHT TBMAXXPOS) %%CONCATENATED-STREAM-DEVICE-EOFP (F1) COMP.BINDLIST ( +VARNAME COMP.VARTYPE) \TEXTMENU.TOGGLE.WHENOPERATEDFN (SET ONFLG) CL:FLOAT-SIGN (SIGNBIT) +PROCESS.RESULT (PROCFINISHEVENT) \TEDIT.INSERTLINE (PREVLINE NEXTLINE) \NSRANDOM.READ.SEGMENT ( +NSHATTRIBUTES NSHWASREAD) TERM.RESET.DISPLAY.PARMS (PLAINFONT FONT CHATBOLDFONT ITALICFONT FONTHEIGHT +FONTWIDTH FONTDESCENT TTYHEIGHT TOPMARGIN BOTTOMMARGIN HOMEPOS TTYWIDTH) \DSPYPOSITION.HCPYMODE ( +DDYPOSITION DDCHARSET DDCHARSETASCENT) TEDIT.COPY (SET THACTION THLEN THCH# THFIRSTPIECE THOLDINFO +\DIRTY TEXTLEN CH# CHLIM DCH DX POINT \INSERTPCVALID) SELECT.FNS.EDITOR (ITEMS CENTERFLG) +\SEQUIN.FLUSH.CONNECTION (SEQSTATE SEQSOCKET SEQPROCESS SEQCLOSEME) \DSPXPOSITION.HCPYMODE ( +DDXPOSITION) \LEAF.GETFILEDATES (LEAFINFO) \SPPWATCHER (SPPACTIVITYTIMER SPPINACTIVECOUNT +SPPACKPENDING) INITIALIZE-NEW-SHELL-DEVICE (FDBINABLE NODIRECTORIES DEVICENAME BIN BOUT PEEKBIN +CLOSEFILE GETFILEINFO SETFILEINFO EOFP BACKFILEPTR GETNEXTBUFFER BLOCKIN) \VFMSplit1 (key volumePage +used) FOREST/BREAK/CYCLES (NODEPOSITION) \VFMCreateVPage (filePage volumePage nextFilePage) MENUSELECT + (MENUUSERDATA) TEDIT.KILL (EDITFINISHEDFLG) %%SYNONYM-STREAM-DEVICE-CLOSEFILE (F1 OPENFILELST) +\TEDIT.CREATE.LINECACHE (LCBITMAP LCNEXTCACHE) PRIN2-LONG-STRING (LONGSTRINGP LONGSTRING1MARGINP +LONGSTRINGSYMMETRICP) SEDIT::FINALIZE-MOUSE-SELECTION (SEDIT::SELECTION-DISPLAYED? SEDIT::LAST-MOUSE-X + SEDIT::LAST-MOUSE-Y SEDIT::LAST-MOUSE-TYPE) \FM.FORMATBYGRID (LEFT WIDTH) FB.SET.DEFAULT.NAME.WIDTH ( +INFOSTART NAMEOVERHEAD DIGITWIDTH OVERFLOWWIDTHS) \FUNCT1 (%#FRAMENAME NTSIZE NAMETABLE) +COMP.TOPLEVEL.COMPILE (VARS NNILS COMTYPE CODE TOPFRAME ARGS) \LFFindNextFile (CHARLIST VERSION +FULLNAME NAME INFO) \MAKESTACKP (STACKP0 EDFXP) \PFTrimHelper (filePage volumePage nextFilePage size) +\TRACKCURSOR (NEWMOUSEX NEWMOUSEY NEWMOUSESTATE) \SEND.ANSWERING.RFC (CONNID EPREQUEUE) SPP.DSTYPE ( +DSTYPE SPPDSTYPE) DMCHAT.CLEARMODES (BRIGHTMODE BLINKMODE IDMODE ADDRESSING ROLLMODE) +%%SYNONYM-STREAM-DEVICE-OUTCHARFN (CHARPOSITION) DMCHAT.HANDLECHARACTER (DINGED AUTOLF EATLF EATCRLF +EATTOCRLF ADDRESSING ROLLMODE BRIGHTMODE IDMODE) NOTIFY.EVENT (EVENTQUEUETAIL PROCEVENTLINK +PROCEVENTORLOCK EVENTWAKEUPPENDING) \FM.NWAY-SETUP (FM.MESSAGE FM.SYSDOWNFN FM.SYSMOVEDFN +FM.SYSSELECTEDFN) CL:GET-OUTPUT-STREAM-STRING (F1) CREATEPOSITION (XCOORD YCOORD) +\DOBUFFEREDTRANSITIONS (W0 W1 W2 W3 W4 W5 WU READ DUMMY1SHIFT DUMMY2SHIFT DUMMYLOCK DUMMYCTRL +DUMMYMETA DUMMYFONT DUMMYUSERMODE1 DUMMYUSERMODE2 DUMMYUSERMODE3 DUMMYALTGRAPH DUMMYDEADKEYPENDING) +SEDIT::GET-CONTEXT (SEDIT::COMPLETION-EVENT SEDIT::ROOT SEDIT::ICON-TITLE SEDIT::EDIT-TYPE) FILEPKGCOM + (ADD DELETE MACRO CONTENTS) \CARET.DOWN (STREAM) INIT/NODES/FOR/LAYOUT (NODEPOSITION NODEFONT) +ADVISEWDS (LEFT BOTTOM WIDTH HEIGHT) \FLUSHPAGE (NActivePages FILEPAGE Key) \RSTRING2 (LASTCCODE) +\DSPSPACEFACTOR.HCPYMODE (DDMICAXPOS DDSPACEWIDTH) \TRANSFERPAGE (PAGE#) \LEAF.ACKED (SEQINPUTQLENGTH) + MENU.HANDLER (XCOORD YCOORD) \EDITBMHOWMUCH (TITLE ITEMS CENTERFLG) POSTSCRIPT.INIT (OTHERFDS +IMAGETYPE IMCLOSEFN IMXPOSITION IMYPOSITION IMMOVETO IMFONT IMLEFTMARGIN IMRIGHTMARGIN IMLINEFEED +IMDRAWLINE IMDRAWCURVE IMDRAWCIRCLE IMDRAWELLIPSE IMFILLCIRCLE IMBLTSHADE IMBITBLT IMSCALEDBITBLT +IMNEWPAGE IMSCALE IMSCALE2 IMCOLOR IMTERPRI IMTOPMARGIN IMBOTTOMMARGIN IMSPACEFACTOR IMFONTCREATE +IMCLIPPINGREGION IMRESET IMDRAWPOLYGON IMFILLPOLYGON IMSTRINGWIDTH IMCHARWIDTH IMDRAWARC IMROTATE +IMTRANSLATE IMDRAWPOINT IMPUSHSTATE IMPOPSTATE) READGRAPH (SIDESFLG DIRECTEDFLG GRAPH.MOVENODEFN +GRAPH.ADDNODEFN GRAPH.DELETENODEFN GRAPH.ADDLINKFN GRAPH.DELETELINKFN GRAPH.FONTCHANGEFN +GRAPH.INVERTBORDERFN GRAPH.INVERTLABELFN GRAPH.CHANGELABELFN GRAPH.PROPS GRAPHNODES NODEID NODELABEL +NODEPOSITION NODEFONT NODEBORDER NODELABELSHADE TONODES FROMNODES) \SETMACROSYNTAX (READMACRODEFS +MACROTYPE MACROFN) POSTSCRIPT.CLOSESTRING (POSTSCRIPTCHARSTOSHOW) FW-CHANGE-ANCHOR (CENTERFLG TITLE +ITEMS) \VFMInsertPageGroup (fileID filePage type) ADDCHAR (END LASTCOL) \DSPBOTTOMMARGIN.PRESS ( +PRBOTTOM) \NSFILING.LOOKUP.CACHE (FSCACHEDHANDLES) %%TWO-WAY-STREAM-DEVICE-OUTCHARFN (CHARPOSITION) +EDITCHANGELABEL (XCOORD YCOORD NODELABEL NODELABELBITMAP) \NSFILING.UPDATE.ATTRIBUTES (NSHATTRIBUTES) +\DSKDISPLAY.BUTTONEVENTFN (ITEMS) \ATBLSET (REREADTABLE REBASE REFORMAT) \INSERTCR (PPARALAST +\INSERTPCVALID) SPP.SENDEOM (ENDOFMESSAGE) \TEXTBACKFILEPTR (PIECE BINABLE FATSTREAMP CURRENTLOOKS +CHARSLEFT COFFSET CPAGE CBUFSIZE CPPTR) %%BROADCAST-STREAM-DEVICE-CLOSEFILE (ACCESS F1) +\NSFILING.LOGIN (FSADDRESS FSPARSEDNAME FSNAMESTRING FSPROCESSNAME FSCOURIERSTREAMS FSSESSIONHANDLE +FSPROTOCOLNAME FSDEVICENAME FSPROTOCOLDEF FSSESSIONLOCK FSSESSIONTIMER FSLOGINNAME NSCONNECTIONS +NSRANDOMDEVICE DEVICENAME OPENFILE REOPENFILE CLOSEFILE GETFILEINFO SETFILEINFO REGISTERFILE +UNREGISTERFILE READPAGES WRITEPAGES TRUNCATEFILE DEVICEINFO REMOTEP SUBDIRECTORIES SETEOFPTR) +\TEDIT.PEEKBIN.NEW.PAGE (COFFSET CPPTR CPAGE CBUFSIZE CHARSLEFT) \TEXTPEEKBIN (COFFSET PIECE +CURRENTLOOKS BINABLE CBUFSIZE CHARSLEFT CPAGE PCSTARTCH PCSTARTPG CURRENTPARALOOKS) \UFSPrintTypeMenu +(TITLE ITEMS CENTERFLG) \DSPFONT.PRESS (PRCURRFDE PRFONT PRWIDTHSCACHE PRLINEFEED) TRACEREGION (LEFT +BOTTOM WIDTH HEIGHT) \FTP.CLOSEFILE (FTPFILEPROPS DEVICE) \CREATE.TEDIT.RESTART.MENU (ITEMS) +\INTERPRESSINIT (IMAGETYPE IMCLOSEFN IMXPOSITION IMYPOSITION IMFONT IMLEFTMARGIN IMRIGHTMARGIN +IMLINEFEED IMDRAWLINE IMDRAWCURVE IMDRAWCIRCLE IMDRAWELLIPSE IMFILLCIRCLE IMBLTSHADE IMBITBLT +IMNEWPAGE IMMOVETO IMSCALE IMTERPRI IMBOTTOMMARGIN IMTOPMARGIN IMFONTCREATE IMSPACEFACTOR IMCOLOR +IMSTRINGWIDTH IMCHARWIDTH IMSCALEDBITBLT IMCLIPPINGREGION IMFILLPOLYGON IMDRAWARC IMPUSHSTATE +IMPOPSTATE IMROTATE IMSCALE2 IMTRANSLATE IMDEFAULTSTATE IMOPERATION IMBITMAPSIZE IMDRAWPOLYGON +IMDRAWPOINT) %%TWO-WAY-STREAM-DEVICE-CLOSEFILE (ACCESS F1 F2 OPENFILELST) \SPP.PREPARE.INPUT ( +SPPFILEPTRLO SPPFILEPTRHI FW6 COFFSET CBUFSIZE SPPINPKT CBUFPTR SPPEOFP SPPINPUTDSTYPE) +INTERSECTREGIONS (LEFT BOTTOM WIDTH HEIGHT) \SETUP.TYPENUM.TABLE (DTDGCTYPE DTDHUNKP) +SEDIT::SET-POINT-COMMENT (SEDIT::POINT-NODE SEDIT::POINT-INDEX SEDIT::POINT-TYPE) \MOVEREALPAGE ( +LOCKED VP FILEPAGE PAGE#) \SELECTREALPAGE (EMPTY NEXTRP) TWODINSPECT.ADJUSTSELECTION (ELTBOTTOM +ELTWIDTH ELTLEFT ROWPROP COLUMNPROP) \10MBENCAPSULATE (10MBDESTHOST 10MBLENGTH 10MBTYPE) +%%FILL-POINTER-STREAM-DEVICE-CLOSEFILE (F1) TEDIT.INSERT.UPDATESCREEN (CH# CHLIM POINT DCH SELKIND +EDITOPACTIVE) \DSPLINEFEED.HCPYMODE (DDLINEFEED) \FTP.GENERATEFILES (FTPBUSY NEXTFILEFN FILEINFOFN +GENFILESTATE FTPGENCONNECTION FTPDEVICEWANTED FTPGENPLIST FTPNAMEFILTER) \UPDATECHAIN (NEXTRP) +WHO-LINE-SET-TIME (TITLE CENTERFLG ITEMS) POSITION (CHARPOSITION) \FM.STATE-CHANGESTATE (FM.STATE) +\MAIKO.DISPLAYLINE (LEFT BOTTOM WIDTH HEIGHT DDXPOSITION) \TRANSMIT.STRATEGY (ACKREQUESTED ADATACOUNT +PUPTYPE) \SETACCESS (ACCESSBITS BINABLE BOUTABLE EXTENDABLE STRMBINFN STRMBOUTFN) \LFParseFileName ( +VOL NAME VERSION) PROCESS.WINDOW (PROCWINDOW) SEDIT::KILL-NODE (SEDIT::DEPTH SEDIT::FIRST-LINE +SEDIT::LAST-LINE SEDIT::START-X SEDIT::LINEAR-THREAD) COMP.PROG (LEVEL FRAME LBNO PROGLABELS) +ONED.TRACKCURSOR (ELTWIDTH ELTLEFT ELTBOTTOM PROP) PRINSHUT (STOPX STOPY) \INSTALL.EXTERNALFORMAT ( +NAME) \NSFILING.CLOSEFILE (NSHDATUM NSHNAME) \NSFILING.ADD.TO.CACHE (FSCACHEDHANDLES) +\LEAF.FIX.BROKEN.SEQUIN (EPLINK SYSQUEUEHEAD SYSQUEUETAIL SEQSOCKET PUPSOURCESOCKET) +\NSRANDOM.STREAM.CHANGED (EPAGE EOFFSET NSFILING.PAGE.CACHE) CREATE.PACKET.EXCHANGE.XIP ( +PACKETEXCHANGETYPE PACKETEXCHANGEID0 PACKETEXCHANGEID1) \TFBRAVO.HANDLE.HEADING (FMTPARATYPE +FMTPARASUBTYPE FMTSPECIALX FMTSPECIALY) PAINTW.READBRUSHSHADE (CENTERFLG TITLE ITEMS MENUBORDERSIZE) +WINDOW.MOUSE.HANDLER (XCOORD YCOORD) \PFPutRootDirectoryType (volumeRootDirectory) \GC.HANDLEOVERFLOW +(CLEAR DTDCNT0) \DEFINEFONT.PRESS (PRESSFONTDIR DESCR FONT# FONTSET# PRNEXTFONT# PRMAXFONTSET) +\NSFILING.DISCARD.SESSION (NSCONNECTIONS FSCOURIERSTREAMS FSSESSIONHANDLE) SETUPSTACK (CurrentFXP +ResetFXP FAULTFXP SubovFXP KbdFXP StackBase EndOfStack) \MAKENUMBER (HINUM LONUM) SUPERPRINT/WRAPPER ( +WRAPPER) FILL.INITTBLE (PBTFLAGS PBTDESTBPL PBTSOURCEBPL PBTUSEGRAY PBTGRAYWIDTHLESSONE +PBTGRAYHEIGHTLESSONE PBTDISJOINT PBTOPERATION PBTSOURCETYPE PBTHEIGHT FBBT TX TY ADDR LLEN TXTW TXTH +TXTA TEXT STRM BITS LFT RGT TOP BOT) \SPP.CREATE.STREAM (DEVICE ACCESS) CHAT.TTYENTRYFN (HELD) +SEDIT::ADJUST-WIDTH (SEDIT::WIDTH SEDIT::INLINE-WIDTH SEDIT::PREFERRED-WIDTH SEDIT::ACTUAL-WIDTH +SEDIT::ACTUAL-LLENGTH) \SETBSPTIMEOUT (BSPTIMEOUT) CHAT.TYPEOUT.CLOSE (RUNNING?) \LEAF.HANDLE.INPUT ( +SEQINPUTQLENGTH LEAFSTATUS LEAFERRORCNT FW7 EPUSERFIELD) \PROC.RESUME (ACLINK) CREATE.NUMBERPAD.READER + (ITEMS MENUCOLUMNS CENTERFLG MENUFONT WHENHELDFN WHENSELECTEDFN MENUOUTLINESIZE ITEMHEIGHT XCOORD +YCOORD LEFT BOTTOM WIDTH HEIGHT) \LEAFINIT (DEVICENAME RESETABLE RANDOMACCESSP PAGEMAPPED HOSTNAMEP +EVENTFN DELETEFILE GETFILEINFO OPENFILE SETFILEINFO GETFILENAME GENERATEFILES DIRECTORYNAMEP +RENAMEFILE) \SETFVAR.UFN (VALUE) \TEDIT1 (\WINDOW EDITFINISHEDFLG) OPENNSOCKET (ID# NSOCEVENT) +SEDIT::SET-POINT-COMMENT-WORD (SEDIT::POINT-NODE SEDIT::POINT-INDEX SEDIT::POINT-TYPE) +\TEDIT.CHARDELETE (OFFST LENGTH CHLIM CH# DCH) MAKE-READER-ENVIRONMENT (REPACKAGE REREADTABLE REBASE +REFORMAT) DMCHAT.STATE (CLEARMODEFN) FONTCREATE (FONTAVGCHARWIDTH) \FLUSHNSOCQUEUE (INQUEUELENGTH) +\DSPRIGHTMARGIN.HCPYMODE (DDMICARIGHTMARGIN) \INTERPRETER (MISCSTACKFN MISCSTACKARG1 MISCSTACKARG2) +\LFFindInfo (INFO fileID volNum type ACCESS) %%INITIALIZE-CLSTREAM-TYPES (DEVICENAME RESETABLE +RANDOMACCESSP NODIRECTORIES BUFFERED PAGEMAPPED FDBINABLE FDBOUTABLE FDEXTENDABLE DEVICEINFO HOSTNAMEP + EVENTFN DIRECTORYNAMEP REOPENFILE CLOSEFILE GETFILENAME DELETEFILE GENERATEFILES RENAMEFILE BIN BOUT +PEEKBIN READP EOFP BLOCKIN BLOCKOUT FORCEOUTPUT GETFILEINFO SETFILEINFO CHARSETFN BACKFILEPTR +INPUT-INDIRECTED OUTPUT-INDIRECTED INPUTSTREAM OUTPUTSTREAM OPENFILE GETFILEPTR) \TEXTMENU.TOGGLEFN ( +ONFLG) GRAPHERPROP (GRAPH.PROPS) \COERCE.NS.SOCKET (NSSOCKET) \DSPFONT.HCPYMODE (DDFONT DDLINEFEED +DDSPACEWIDTH) SHOWWTITLE (LEFT BOTTOM WIDTH HEIGHT) \POLYSHADE.DISPLAY (X P LX RX) \FM.STATE-SETUP ( +FM.MESSAGE FM.SYSDOWNFN FM.SYSMOVEDFN FM.SYSSELECTEDFN FM.STATE ITEMS MENUFONT CENTERFLG TITLE) +SEDIT::CREATE-SIMPLE-NODE (SEDIT::NODE-TYPE CL:STRUCTURE SEDIT::SUB-NODES SEDIT::INLINE-WIDTH +SEDIT::PREFERRED-WIDTH SEDIT::ACTUAL-WIDTH SEDIT::ACTUAL-LLENGTH SEDIT::LINEAR-FORM STRING SEDIT::WIDTH + SEDIT::FONT SEDIT::PRIN-2?) \LEAF.TIMEDIN (LEAFABORTBUTTONWINDOW LEAFABORTSTATUS LEAFTIMEOUTSTATUS) +\INSERTCH (PLEN \INSERTLEN \INSERTLEFT \INSERTNEXTCH THACTION THLEN THCH# THFIRSTPIECE THPOINT PSTR +PLOOKS PPARALOOKS PPARALAST PNEW \INSERTSTRING \INSERTPCNO \INSERTPC \INSERTFIRSTCH THOLDINFO TEXTLEN +\INSERTPCVALID \DIRTY PFATP) EDITBMSCROLLFN (LEFT BOTTOM) \CREATE.THROUGH.EXTERNALFORMAT (NAME +INCCODEFN PEEKCCODEFN BACKCCODEFN OUTCHARFN EOL) SEDIT::INITIALIZE (SEDIT::NAME SEDIT::ASSIGN-FORMAT +SEDIT::COMPUTE-FORMAT-VALUES SEDIT::LINEARIZE SEDIT::SUB-NODE-CHANGED SEDIT::COMPUTE-POINT-POSITION +SEDIT::COMPUTE-SELECTION-POSITION SEDIT::SET-POINT SEDIT::SET-SELECTION SEDIT::GROW-SELECTION +SEDIT::SELECT-SEGMENT SEDIT::INSERT CL:DELETE SEDIT::COPY-STRUCTURE SEDIT::COPY-SELECTION SEDIT::BACK-SPACE + SEDIT::STRINGIFY SEDIT::LINEAR-ITEM) \TEDIT.COMMAND.RESET.SETUP (EDITOPACTIVE TXTEDITING TXTHISTORY +SELWINDOW) \TEXTMENU.TOGGLE.CREATE (XSIZE YSIZE YDESC XKERN) \ALLOCWIDTHTOGROUPEDWINDOW (ATXSIZE) +TEDIT.REDO.REPLACE (POINT THOLDINFO THACTION THCH#) \PFPatchRootDirEntries (countEntries) COMP.BLOCK ( +LEVEL FRAME PROGLABELS BLOCKCONTEXT BLOCKTAG BLOCKEND) DELETETO (END LASTCOL) DO.SHIFTED.SELECTION ( +COLPOS ROWPOS) OPT.RESOLVEJUMPS (JSN JML JU) TTYIN (FIRSTLINE START ROW OLDTAIL STORAGECOUNTER) +\SEND.RFC (PUPLENGTH PUPTYPE PUPID PUPSOURCE LCLPORT) \TEDIT.SET-TOTLEN (TOTLEN) \FLUSHPUPSOCQUEUE ( +INQUEUELENGTH) MAKEINITBFS (DISKDEVICENAME CBNEXT CBQUEUE) \BSP.SENDBUFFER (PUPLENGTH PUPID AUXWORD +XMITBYTEID BSPFILEPTRLO BSPFILEPTRHI FW6 %#UNACKEDPUPS %#UNACKEDBYTES PUPALLOC BYTEALLOC BSPCURRENTPUP + CBUFMAXSIZE CBUFSIZE CPPTR EPREQUEUE) FB.MAKEHEADINGWINDOW (LEFT BOTTOM WIDTH HEIGHT) \GCMAPTABLE ( +CLEAR DTDCNT0) \TEDIT.OBJECT.SHOWSEL (LEFT BOTTOM WIDTH HEIGHT) \FM.FORMAT (LEFT BOTTOM WIDTH HEIGHT) +VRULE.IMAGEBOXFN (XSIZE YSIZE YDESC XKERN) INTERPRESS.OUTCHARFN (IPXPOS) \DECODETRANSITION (1SHIFT +2SHIFT LOCK CTRL META FONT USERMODE1 USERMODE2 USERMODE3 WAITINGINTERRUPT INTCHARCODE) \LEAF.RECONNECT + (PFSLEAFSEQUIN) TTYIN.READ (LINEBUFSTATE) \FM.3STATE-CHANGESTATE (FM.STATE FM.BITMAP FM.REGION) +\TEDIT.LINECACHE (LCBITMAP) \LEAF.TIMEDOUT (LEAFTIMEOUTSTATUS) TTYIN.SETUP (TTOLDRIGHTFN TTOLDBUTTONFN + TTOLDENTRYFN TTYINWINDOW) \SETXFORM.PSC (POSTSCRIPTPENDINGXFORM POSTSCRIPTMOVEFLG +POSTSCRIPTFONTCHANGEDFLG) PROCESS.EVAL (PROCEVAPPLYRESULT) MAKEMACFORMAT (NAME INCCODEFN PEEKCCODEFN +BACKCCODEFN OUTCHARFN) TEDIT.REMOVE.MENUITEM (ITEMS MENUCOLUMNS MENUROWS) \PROCESS.EVAL1 ( +PROCEVAPPLYRESULT) \NSFILING.INIT (DEVICENAME HOSTNAMEP EVENTFN) \BUILD.EXPEDITED.XIP (LOWVERSION +HIGHVERSION MSGTYPE TRANSACTIONID PROGRAM# VERSION# PROCEDURE# XIPLENGTH) TTYINBUFFERBIN (TTYINPUT) +TTYIN.FINISH (OLDTAIL) DEFAULT.INSPECTW.TITLECOMMANDFN (ITEMS) \IMAGEIOINIT (IMAGETYPE IMXPOSITION +IMYPOSITION IMFONT IMLEFTMARGIN IMRIGHTMARGIN IMLINEFEED IMSPACEFACTOR IMFONTCREATE IMSTRINGWIDTH +IMCHARWIDTH IMCHARSET IMDRAWPOLYGON IMDRAWPOINT) \TEDIT.HARDCOPY.FORMATLINE (LOOKSUPDATEFN CHARLIM +CHAR1 CR\END LHASTABS LSTLN TLFIRSTSPACE PC PCOFF PCNO PIECE 1STLN LEFTMARGIN RIGHTMARGIN PTTABX +LHEIGHT ASCENT DESCENT CHARTOP LXLIM DESC LEN SPACELEFT LFMTSPEC) \SEQUIN.CONTROL (PUPLENGTH +SEQCONTROL) TERM.TAB (XPOS) DCODERD (NA PV STARTPC ARGTYPE FRAMENAME NTSIZE NLOCALS FVAROFFSET FIXED) +RELEASINGVMEMPAGE (NOREFERENCE) TB.REMOVE.ITEM (TBITEMS TB#ITEMS TB#DELETED TBFIRSTSELECTEDITEM +TBLASTSELECTEDITEM) \MEDW.BLTCHAR (DDXPOSITION PBTDESTBIT PBTWIDTH PBTSOURCEBIT) +\NSRANDOM.ENSURE.WATCHER (NSWATCHERPROC) \DSKDISPLAY.CREATE.WINDOW (WIDTH HEIGHT LEFT BOTTOM XCOORD +YCOORD) \TEDIT.CREATEMENU (ITEMS CENTERFLG MENUFONT WHENHELDFN WHENSELECTEDFN) SPP.CLEAREOM (SPPEOFP) +\MEDW.XOFFSET (DDXOFFSET) FB.ADD.FILEGROUP (TIDATA) CHAT.CHOOSE.EMULATOR (HOST DPYNAME DPYCODE) +CL:MAKE-BROADCAST-STREAM (DEVICE ACCESS F1 OUTCHARFN) TTYIN1 (PEEKEDCHAR FIRSTCOL LASTCOL) +\TEDIT.TABTYPE.SET (MARTABTYPE) \MEDW.YOFFSET (DDYOFFSET DDCHARSET DDCHARSETASCENT) CREATEARRAYSLICE ( +SELECTEDDIMS OFFSETS OFFSETCONSTANT LINEARIZEDARRAY) FB.MAKECOUNTERWINDOW (LEFT BOTTOM HEIGHT WIDTH +COUNTERWINDOW) \PUTSYSBUF (READ WRITE) CL:MAKE-ECHO-STREAM (DEVICE ACCESS F1 F2 LINELENGTH OUTCHARFN +OPENFILELST) WINDOWPOSITION (XCOORD YCOORD) \TEDIT.COPYTEXTSTREAM.PIECEMAPFN (PNEW POBJ) +\NOIMAGE.DSPFONT (IMAGEDATA) \CREATECHARSET.IP (CHARSETDESCENT CHARSETASCENT YWIDTHS) INITGC (FREEPTR +NEXTFREE) \TEDIT.NEWREGIONFN (XCOORD YCOORD) CL:MAKE-SYNONYM-STREAM (DEVICE ACCESS F1 LINELENGTH +OUTCHARFN OPENFILELST) \VFMGetPageGroup (fileID filePage type volumePage nextFilePage) TTDELETELINE ( +END LASTCOL) BRV/OFFSET (NODEPOSITION XCOORD YCOORD) \SPP.CREATE.STREAMS (SPPINPUTSTREAM +SPP.CONNECTION STRMBOUTFN SPPOUTPUTSTREAM DEVICEINFO) CL:MAKE-TWO-WAY-STREAM (DEVICE ACCESS F1 F2 +LINELENGTH OUTCHARFN OPENFILELST) \TFBRAVO.READ.PARALOOKS (TABSPEC FMTUSERINFO LEFTMAR 1STLEFTMAR +RIGHTMAR LINELEAD LEADAFTER LEADBEFORE FMTSPECIALX FMTSPECIALY QUAD FMTPARATYPE) \TEDIT-OPEN-FONT-FILE + (LINELENGTH) CHANGE.NODEFONT.SIZE (XCOORD YCOORD NODELABELBITMAP NODEFONT) FB.FASTSEECOMMAND ( +SEEWINDOW) \PROCESS.APPLY1 (PROCEVAPPLYRESULT) \TEDIT.LCASE.SEL (THACTION) \TEDIT.RESTARTFN (\WINDOW +\DIRTY ACCESSBITS) \TEDIT.SET.WINDOW (\WINDOW) \TFBRAVO.FONT.FROM.CHARLOOKS (CLFONT) PROCESS.APPLY ( +PROCEVAPPLYRESULT) FONTCLASS (FONTCLASSNAME PRETTYFONT# DISPLAYFD PRESSFD INTERPRESSFD OTHERFDS) +\ALLOCHEIGHTTOGROUPEDWINDOW (ATYSIZE) \NSFILING.CONNECT (NSHDIRECTORYPATH NSHDATUM) SPY.TREE (PACKAGE +READTABLE PRINT-CASE CUMULATIVE THRESHOLD MERGETYPE DEPTH) TB.USERDATA (TBUSERDATA) PROMPTFORWORD ( +XCOORD YCOORD) GETFRAMEVAR.IP (IPNEXTFRAMEVAR) \LEAF.WHENCLOSED (LEAFCACHEDFILE LEAFABORTBUTTONWINDOW +LEAFSTATUS SEQINPUTQLENGTH PFSLEAFSEQUIN) \VFMMerge1 (used key) \LINEBLT (PBTDEST PBTSOURCE +PBTGRAYOFFSET PBTDESTBIT PBTSOURCEBIT PBTWIDTH) \SPP.ESTABLISH (SPPATTENTIONFN SPPWHENCLOSEDFN +SPPERRORHANDLER SPPDESTID SPPSYSPKT SPPESTABLISHEDP SPPSTATE SPPDESTINATIONKNOWN) MSINTERPRET (TENSE +REP MSVERB OTHERSET ROOT MODIFIER) DEFAULT.INSPECTW.PROPCOMMANDFN (ITEMS) MOVENODE (XCOORD YCOORD) +BROWSE/LAYOUT/LATTICE (GRAPHNODES SIDESFLG DIRECTEDFLG) TTYIN1RESTART (END NEXTLINE) +\TEDIT.FIXCHANGEDLINE (DESC YBOT YBASE NEXTLINE) PUTSEQUIN (SEQCONTROL SEQSTATE) \CURSORBITSPERPIXEL ( +CUIMAGE CUMASK) MAKE-COMPILED-CLOSURE (FNHEADER ENVIRONMENT) COPYIMAGEOBJ (OBJECTDATUM IMAGEOBJPLIST +IMAGEOBJFNS) \CREATE.TITLEMENU (ITEMS) LOOKUP.NS.SERVER (NSSOCKET) \TFBRAVO.READ.CHARLOOKS (CLUSERINFO + CLSIZE CLNAME CLOFFSET CLSTRIKE CLULINE CLBOLD CLITAL CLINVISIBLE) \BSP.FLUSH.SOCKET.QUEUES (CBUFSIZE + BSPCURRENTPUP CPPTR) SELECT.ATOM.ASPECT (ITEMS TITLE CENTERFLG) INITDATATYPENAMES (DTDNAME DTDPTRS +DTDFINALIZABLE) TEDIT.CURSOROUTFN (MOUSEREGION) \SHIFT.DOCUMENT (PPARALOOKS 1STLEFTMAR LEFTMAR +RIGHTMAR TABSPEC) \SPP.SKIPBYTES (COFFSET) TRANSLATEREG (LEFT BOTTOM WIDTH HEIGHT) \TFBRAVO.PARSE.PARA + (PARALOOKS RUNS RUNLENGTH RUNLOOKS) \CURSORDESTINATION (NEWMOUSEX NEWMOUSEY NEWMOUSESTATE +PBTSOURCEBPL PBTDESTBPL) FW-INIT-PROPS (XCOORD YCOORD) \TEDIT.WORDDELETE (CH# CHLIM DCH) +\TEDITOUTCHARFN (CHARPOSITION) MSQUOTED (QUOTED) \CLOSEFILE (ACCESS) \UNQUEUE.EVENT (EVLOCKQUEUETAIL +PROCEVENTLINK PROCEVENTORLOCK) SEDIT::CHANGE-QUOTE (SEDIT::UNASSIGNED) DINFO.READ.KOTO.GRAPH (NODELST +TOPNODEID TEXTPROPS LOOKUPFN MENUFN NAME DEFAULTHOST DEFAULTDEVICE DEFAULTDIR) CHAT.INIT (RUNNING? +CHATINEMACS INSTREAM OUTSTREAM WINDOW DSP TEXTSTREAM ENDOFSTREAMOP) SEDIT::STRING-OFFSET ( +SEDIT::SELECT-END-X SEDIT::POINT-X) \ENQUEUE.EVENT/LOCK (PROCEVENTORLOCK PROCEVENTLINK EVLOCKQUEUETAIL +) FB.SHAPECOMMAND (WIDTH HEIGHT LEFT) GRAPHADDNODE (GRAPHNODES) MAKEIBMFORMAT (NAME INCCODEFN +PEEKCCODEFN BACKCCODEFN OUTCHARFN) SPY.FIND.TREE (NAME COUNT) \MAKESPACEFORLOCKEDPAGE ( +LastLockedFilePage) \TEDIT.BLTCHAR (PBTDESTBIT PBTWIDTH PBTSOURCEBIT) \SPP.CREATE.WATCHER ( +SPPINPUTEVENT SPPLOCK SPPROUNDTRIPTIME SPPPROCESS) TB.MAKE.BROWSER (TBWINDOW TBFONT TBLOCK +TB#LINESPERITEM TBBASELINE TBCOLUMNS TBPRINTFN TBCOPYFN TBCLOSEFN TBAFTERCLOSEFN TBUSERDATA +TBHEADINGWINDOW TBLINETHICKNESS TBITEMHEIGHT TBHEIGHTEXPLICIT TBREADY) \SPP.HANDLE.DATA (QLINK +SYSQUEUEHEAD SPPSTATE ACCESS STRMBOUTFN SPPTERMINATEDP SPPACKNO) \MOVETO.PSC (POSTSCRIPTX POSTSCRIPTY +POSTSCRIPTMOVEFLG) FB.MAYBE.WIDEN.NAMES (INFOSTART) CHAT (ITEMS TITLE) OBTAIN.MONITORLOCK (MLOCKOWNER +MLOCKLINK PROCOWNEDLOCKS) DISPLAYAFTERENTRY (BITMAPBASE) \CREATE.SETABLEMENU (ITEMS) +\HARDCURSORPOSITION (NEWMOUSEX NEWMOUSEY NEWMOUSESTATE) \DEVICEEVENT (REVALIDATEFLG) +\QUEUE.OUTPUT.IOCB (DLFOROUTPUTUSE DLIOCBLENGTH DLNEXTIOCB DLRETRANSMISSIONMASK DLIOCBSTATUS +DLIOCBBUFFER DLFIRSTOCB DLLASTOCB D0IOCBLENGTH D0NEXTIOCB D0RETRANSMISSIONMASK D0IOCBSTATUS +D0IOCBBUFFER D0FIRSTOCB D0LASTOCB) INSPECT/BITMAP (ITEMS) CLOSEHASHFILE (File) SYSOUT (TOTALTIME) +ICONPOSITION.FROM.WINDOW (XCOORD YCOORD) \SETUFNENTRY (FNINDEX NEXTRA NARGS) FB.ADJUST.DATE.WIDTH ( +INFOWIDTH) SEDIT::SET-POINT-NOWHERE (SEDIT::POINT-NODE SEDIT::POINT-TYPE) \RTP.HANDLE.RFC (NET +PUPLENGTH TYPEWORD EPREQUEUE) \SOFTCURSORUP (PBTDESTBPL PBTDEST PBTSOURCE PBTSOURCEBPL PBTWIDTH +PBTHEIGHT) DOICONWINDOWCOM (ITEMS CHANGEOFFSETFLG MENUOFFSET XCOORD YCOORD WHENHELDFN WHENUNHELDFN +CENTERFLG) \NEWEPHEMERALPAGE (MISCSTACKFN MISCSTACKARG1 MISCSTACKARG2) \PFPurgeRootDirectory (fileID +volNum type size) \TEDIT.TEXTBIN.NEW.PAGE (COFFSET CPPTR CPAGE CBUFSIZE CHARSLEFT) +\SOFTCURSORUPCURRENT (PBTDEST PBTDESTBIT PBTSOURCE PBTSOURCEBIT PBTWIDTH PBTHEIGHT) +\DONEWEPHEMERALPAGE (VP FILEPAGE PAGE#) RELEASE.MONITORLOCK (MLOCKOWNER PROCOWNEDLOCKS MLOCKLINK +MLOCKQUEUETAIL PROCEVENTLINK PROCEVENTORLOCK) BITMAPCREATE (BITMAPRASTERWIDTH BITMAPWIDTH BITMAPHEIGHT + BITMAPBITSPERPIXEL BITMAPBASE) FW-AFTERMOVEFN (XCOORD YCOORD) OPT.PRATTACH (NXT PREV) TEDIT.REDO.MOVE + (CH# CHLIM DCH SET) OPENPRSTREAM (PRPAGEREGION PDSTREAM ELSTREAM PRDOCNAME OUTCHARFN IMAGEOPS +IMAGEDATA PRHEADING) DISCARDPUPS (INQUEUELENGTH) CREATE.MONITORLOCK (MLOCKPERPROCESS MLOCKNAME) +\NSFILING.OPENFILE (OPENFILELST) DOATTACHEDWINDOWCOM (ITEMS CHANGEOFFSETFLG MENUOFFSET XCOORD YCOORD +WHENHELDFN WHENUNHELDFN CENTERFLG) TERM.SET.TAB (TERM.TAB.STOPS) UNIONREGIONS (LEFT BOTTOM WIDTH +HEIGHT) SI::MONITOR-UNWIND (MLOCKOWNER PROCOWNEDLOCKS MLOCKLINK MLOCKQUEUETAIL PROCEVENTLINK +PROCEVENTORLOCK) \FM.3STATE-SETUPOFFBITMAP (FM.HIGHLIGHT) SEDIT::NOTE-CHANGE-IN-SIMPLE (STRING SEDIT::WIDTH + SEDIT::INLINE-WIDTH SEDIT::PREFERRED-WIDTH SEDIT::ACTUAL-WIDTH SEDIT::ACTUAL-LLENGTH SEDIT::CHANGED?) + \SEND.ACK (ACKPENDING ACKBYTESPERPUP ACKPUPS ACKBYTES SENTZEROALLOC) CALLSCCODE (LNCALLED CALLED +BOUND USEDFREE GLOBALS) MSSETPHRASE (DET TYPE REP KNOWN) SEDIT::RELINEARIZE (SEDIT::WINDOW-LEFT +SEDIT::WINDOW-BOTTOM SEDIT::WINDOW-RIGHT SEDIT::WINDOW-TOP SEDIT::RELINEARIZATION-TIME-STAMP SEDIT::SHIFT-Y + SEDIT::SHIFT-DOWN SEDIT::BELOW? SEDIT::MATCHING? SEDIT::CURRENT-BLOCK SEDIT::VISIBLE? SEDIT::BLOCK-START + SEDIT::BLOCK-X SEDIT::BLOCK-NEW-X SEDIT::BITS? SEDIT::BLOCK-WIDTH SEDIT::BLOCK-BASE-LINE +SEDIT::BLOCK-ASCENT SEDIT::BLOCK-DESCENT SEDIT::REPAINT-X SEDIT::REPAINT-LINE SEDIT::REPAINT-START +SEDIT::CACHED-ASCENT SEDIT::CACHED-DESCENT SEDIT::CACHED-Y SEDIT::CACHE-TIME SEDIT::LINE-ASCENT +SEDIT::LINE-DESCENT SEDIT::CURRENT-X SEDIT::CURRENT-NODE SEDIT::CURRENT-LINE SEDIT::LINEAR-POINTER +SEDIT::LINEAR-PREV SEDIT::LAST-LINEARIZED-SUB-NODE-INDEX SEDIT::ACTUAL-WIDTH SEDIT::ACTUAL-LLENGTH +SEDIT::LAST-LINE SEDIT::CHANGED? SEDIT::LINE-LENGTH SEDIT::NEXT-LINE BOTTOM HEIGHT) SEDIT::DETACH-NODE + (SEDIT::LINEAR-THREAD) TEDIT.FORMATTEXTBOX (PAGEFOOTNOTELINES PAGELINECACHE CACHE LTEXTOBJ LEFTMARGIN + RIGHTMARGIN STATE REQUIREDREGIONTYPE YBOT YBASE) COPYTEXTSTREAM (CH# CHLIM DCH TEXTLEN MENUFLG) +FB.DEPTHCOMMAND (ITEMS CENTERFLG FBDEPTH) \LFVersions (DIRPTR CHARLIST) \CREATE.INSPECTABLEMENU (ITEMS +) TERM.SETMARGINS (TOPMARGIN BOTTOMMARGIN) TTYINBUFFERBACKPTR (TTYINPUT) INSPECT/ATOM (ITEMS) +\SEQUIN.PUT (PUPTYPE PUPDEST PUPDESTSOCKET RECEIVESEQ SENDSEQ MYSENDSEQ %#SEQTURNOVERS EPREQUEUE +%#UNACKEDSEQS ALLOCATE) SEDIT::FORMAT-FROM-INDENT (SEDIT::LIST-FORMATS SEDIT::LIST-SUBLISTS +SEDIT::LIST-INLINE? SEDIT::LIST-PFORMAT SEDIT::LIST-MFORMAT) ONEDINSPECT.ADJUSTSELECTION (ELTBOTTOM +ELTWIDTH ELTLEFT PROP) \TEMPLOCKPAGES (MISCSTACKFN MISCSTACKARG1 MISCSTACKARG2) \SPP.CREATE.CON ( +SPPXIPLENGTH SPPXIPTYPE SPPSOURCEID SPPMYNSOCKET SPPSOURCESKT# SPPACCEPTNO) \TEDIT.LOOKS (XCOORD +YCOORD TITLE ITEMS CENTERFLG) \LEAF.IDLE (LEAFCLOSING) DEFAULT.BACKGROUND.COPYFN (ITEMS +CHANGEOFFSETFLG MENUOFFSET XCOORD YCOORD CENTERFLG) \DSPFONT.PSC (POSTSCRIPTFONT POSTSCRIPTSPACEWIDTH +POSTSCRIPTNATURALSPACEWIDTH POSTSCRIPTACCENTED POSTSCRIPTFONTCHANGEDFLG) \FM.3STATE-SETUP (FM.MESSAGE +FM.SYSDOWNFN FM.SYSMOVEDFN FM.SYSSELECTEDFN) PARSE-NSADDRESS (NSSOCKET NSHNM2 NSHNM1 NSHNM0 NSNETLO +NSNETHI) POSTSCRIPT.FONTCREATE (IL-FONTID OTHERDEVICEFONTPROPS FONTSCALE FONTDEVICE FONTFAMILY +FONTSIZE FONTFACE ROTATION \SFHeight \SFAscent \SFDescent FONTDEVICESPEC) \SPP.RELEASE.ACKED.PACKETS ( +SPPACKEDSEQNO SPPRETRANSMITTING) CL:VALUES (PC) \RELEASE.ETHERPACKET (EPREQUEUE EPUSERFIELD EPNETWORK +EPPLIST EPSOCKET) TOPW.ADJUSTSELECTION (ELTBOTTOM ELTWIDTH ELTLEFT PROP) \SIMULATE.UNBIND (NEXTBLOCK +FASTP) COMPOSEREGS (LEFT BOTTOM) CL:VALUES-LIST (PC) MAKEISOFORMAT (NAME INCCODEFN PEEKCCODEFN +BACKCCODEFN OUTCHARFN) DOBACKGROUNDCOM (ITEMS CHANGEOFFSETFLG MENUOFFSET XCOORD YCOORD WHENHELDFN +WHENUNHELDFN CENTERFLG) FB.INFOMENU.WHENSELECTEDFN (INFOMENUCHOICES) \DISPLAYINIT (WSDESTINATION +WSREGION LEFT BOTTOM WIDTH HEIGHT IMAGETYPE IMFONT IMLEFTMARGIN IMRIGHTMARGIN IMLINEFEED IMXPOSITION +IMYPOSITION IMCLOSEFN IMDRAWCURVE IMFILLCIRCLE IMDRAWLINE IMDRAWELLIPSE IMDRAWCIRCLE IMFILLPOLYGON +IMBITBLT IMSCALEDBITBLT IMBLTSHADE IMNEWPAGE IMSCALE IMSPACEFACTOR IMFONTCREATE IMCOLOR IMBACKCOLOR +IMOPERATION IMSTRINGWIDTH IMCHARWIDTH IMCLIPPINGREGION IMRESET IMDRAWARC IMDRAWPOLYGON IMDRAWPOINT +IMBLTCHAR IMXOFFSET IMYOFFSET DEVICENAME RESETABLE RANDOMACCESSP PAGEMAPPED CLOSEFILE DELETEFILE +GETFILEINFO OPENFILE READPAGES SETFILEINFO GENERATEFILES TRUNCATEFILE WRITEPAGES GETFILENAME +REOPENFILE EVENTFN DIRECTORYNAMEP HOSTNAMEP BIN BOUT PEEKBIN BACKFILEPTR BLOCKIN BLOCKOUT WINDOWOPS +WINDOWDATA DEVICEINFO) CREATE-SHELL-STREAM (ACCESS DEVICE OPENFILELST) FB.SETNEWPATTERN (PATTERN +PREPAREDPATTERN PATTERNPARSED? NSPATTERN?) \MAKE.PROCESS1 (PROCFX ACLINK) \TEDIT.COPY.LINEDESCRIPTOR ( +LEFTMARGIN RIGHTMARGIN LXLIM SPACELEFT LHEIGHT CHAR1 CHARLIM CHARTOP DIRTY CR\END LDOBJ LHASPROT +LFMTSPEC LTRUEDESCENT LTRUEASCENT ASCENT DESCENT LHASTABS LMARK 1STLN LSTLN) TB.REDISPLAY.ITEMS ( +TBMAXXPOS) DELETEMENU (WHENSELECTEDFN) \RTP.FILTER (FRNNET) \DOFLUSHVM (MISCSTACKRESULT CurrentFXP) +\TEXTSETEOF (EPAGE EOFFSET) \RELEASEWORKINGSET (EMPTY) \PROCESS.MOVEFRAME (RESIDUAL IVAR NEXTBLOCK +BLINK NAMETABLO MiscFXP) \MATCHPCS (PTREENODE UPWARD) UPDATE/MENU/IMAGE (MENUFONT MENUBORDERSIZE +MENUOUTLINESIZE ITEMWIDTH ITEMHEIGHT ITEMS MENUCOLUMNS MENUROWS LEFT BOTTOM WIDTH HEIGHT MENUOFFSET +XCOORD YCOORD SAVE IMAGE WBORDER) \DSPLEFTMARGIN.PSC (POSTSCRIPTLEFTMARGIN) OPENHASHFILE (ByteStream +%#Entries Size ValueType ItemLength Write? File Stream) \FLUSHVM (MISCSTACKFN MISCSTACKARG1 +MISCSTACKARG2) \NSFILING.DESERIALIZE (NSHDATUM) CL::VALUES-UFN (HIBYTE LOBYTE NEXTBLOCK PC) +\TEDIT.SELECT.CHARACTER (SELOBJ X0 Y0 LEFT BOTTOM WIDTH HEIGHT SET) TTYINBUFFERDEVICE (DEVICENAME +RANDOMACCESSP NODIRECTORIES CLOSEFILE DELETEFILE OPENFILE REOPENFILE BIN BOUT PEEKBIN READP +BACKFILEPTR EOFP RENAMEFILE GETFILENAME EVENTFN BLOCKIN BLOCKOUT GENERATEFILES GETFILEPTR GETEOFPTR +SETFILEPTR GETFILEINFO SETFILEINFO SETEOFPTR) \10MBSENDPACKET (EPNETWORK EPTYPE) CL::VALUES-LIST-UFN ( +HIBYTE LOBYTE NEXTBLOCK PC) \PUTONSCREENW (XCOORD YCOORD) \LEAF.OPENFILE (LEAFCACHEHITS +LEAFCACHEMISSES %#SEQRESTARTS %#SEQTIMEOUTS %#SEQDUPLICATES CBUFSIZE CBUFPTR EOLCONVENTION) \OPENFILE +(ACCESS CPAGE COFFSET) \SPPCONNECTION (SPPDESTINATIONKNOWN) SEDIT::INSERT-COMMENT-CHARS (STRING +CL:STRUCTURE SEDIT::SUB-NODE-INDEX SEDIT::SUPER-NODE SEDIT::DEPTH) TEDIT.FORMATFOLIO (CACHE LTEXTOBJ +LEFTMARGIN RIGHTMARGIN YBOT YBASE) \DO.PARAMS.AT.OPEN (EOLCONVENTION) \PAGEDBACKFILEPTR (COFFSET +CBUFDIRTY CBUFSIZE CBUFPTR CPAGE CHARPOSITION) \CLEARSYSBUF (READ PROCTYPEAHEAD) \CREATECHARSET ( +\SFAscent \SFDescent \SFHeight) \PFRemoveRootDirEntry (countEntries) \GETKEY (PROCTYPEAHEAD) SENDPUP ( +EPTYPE PUPTCONTROL PUPSOURCESOCKETHI PUPSOURCESOCKETLO) TB.DO.ITEM.SELECTION (TISELECTED +TBFIRSTSELECTEDITEM TBLASTSELECTEDITEM) \NSFILING.CLOSE.CONNECTIONS (NSFILING.CONNECTION) +CLOSEPUPSOCKET (PUPSOCEVENT) WHO-LINE-SAVE-VMEM (TITLE CENTERFLG ITEMS) \ENQUEUE.TIMER (PROCTIMERLINK) + \DRAWPOLYGON.DISPLAY (BRUSHSHAPE) PAINTW.READCOMMAND (ITEMS) \DSPPRINTCHAR (CHARPOSITION) +TEDIT.FORMATHEADING (TEXTLEN CACHE LTEXTOBJ LEFTMARGIN RIGHTMARGIN YBOT YBASE) NEAREST/PT/ON/GRID ( +XCOORD YCOORD) SETFILEINFO (EOLCONVENTION ENDOFSTREAMOP MAXBUFFERS) ICMLARRAY.GETMENUWGROUP (XCOORD +YCOORD) SWAPPUPPORTS (PUPSOURCE PUPSOURCESOCKETHI PUPSOURCESOCKETLO) \RTP.CLEANUP (BSPUSERSTATE +BSPINPUTSTREAM) \FTPINIT (DEVICENAME OPENFILE REOPENFILE CLOSEFILE DIRECTORYNAMEP GETFILENAME +GETFILEINFO RENAMEFILE DELETEFILE GENERATEFILES EVENTFN OPENP REGISTERFILE UNREGISTERFILE) +INITDATATYPES (DTDTYPEENTRY DTDSUPERTYPE DTDSIZE) MENUWRESHAPEFN (ITEMWIDTH ITEMHEIGHT XCOORD YCOORD) +UNIX.SETDISPLAYTYPE (HELD) \DSPCLIPPINGREGION.DISPLAY (DDClippingRegion DDCHARSET DDCHARSETASCENT) +\GETSYSBUF (READ) \SPP.PREPARE.OUTPUT (SPPOUTPKT CBUFPTR COFFSET CBUFMAXSIZE) \DSPRIGHTMARGIN.PSC ( +POSTSCRIPTRIGHTMARGIN) SEDIT::SCAN-FOR-BOUNDS (SEDIT::FIRST-LINE SEDIT::PREV-LINE SEDIT::NEXT-LINE +SEDIT::LAST-LINE SEDIT::LINE-ASCENT SEDIT::LINE-DESCENT) PAINTW.READMODE (ITEMS) \SAVESYSBUF ( +PROCTYPEAHEAD) HASHFILEPROP (ItemCopyFn) \ASSIGNDATATYPE1 (DTDDESCRS DTDSUPERTYPE DTDTYPESPECS +DTDOBSOLETE DTDTYPEENTRY DTDNAME DTDFREE DTDSIZE DTDPTRS) SEDIT::INSERT-COMMENT (SEDIT::OPEN-NODE-CHANGED? +) \CH.FIND.ORG.SERVER (DCDOMAIN DCKNOWNSERVERS OCORGANIZATION OCALLSERVERS OCDOMAINS NSOBJECT NSDOMAIN + NSORGANIZATION) \DSPOPERATION.DISPLAY (DDOPERATION PBTOPERATION PBTSOURCETYPE) \IMAGEUSERPROP ( +IMAGEOBJPLIST) \FORMATBYTESTREAM (EOLCONVENTION) TERM.RIGHT (XPOS) \SFFixY.HCPYMODE (PBTDEST PBTSOURCE + DDCHARHEIGHTDELTA PBTHEIGHT DDCHARSETDESCENT) \LEAF.WRITEPAGES (REVALIDATEFLG OPWORD HANDLE +FILEADDRESS PAGE OFFSET DATALENGTH EOFBIT LEAFLENGTH) DINFO.GET.GRAPH.WINDOW (GRAPH.WINDOW) +\BACKCOLOR.DISPLAY (DDTexture) \FM.TOGGLE-CHANGESTATE (FM.STATE FM.BITMAP FM.REGION) \BSP.SKIPBYTES ( +COFFSET) \PROCESS.INIT (DEVICENAME EVENTFN DIRECTORYNAMEP HOSTNAMEP) SEDIT::PARENTHESIZE-CURRENT-SELECTION + (SEDIT::POINT-NODE SEDIT::POINT-TYPE SEDIT::POINT-INDEX) \KEYBOARDINIT (READ WRITE) COMP.DECLARE1 ( +OPNAME) \UNQUEUE.TIMER (PROCTIMERLINK PROCTIMERSET) \DSPOPERATION.IP (IPOPERATION) \ENQUEUE ( +SYSQUEUEHEAD QLINK SYSQUEUETAIL) \BLTSHADE.DISPLAY (PBTWIDTH PBTHEIGHT) \SETLOCALNSNUMBERS (NSHOST0 +NSHOST1 NSHOST2 NSHNM0 NSHNM1 NSHNM2) ICONW (LEFT BOTTOM WIDTH HEIGHT) \DSPLINEFEED.PSC ( +POSTSCRIPTLINESPACING) SETFONTCLASSCOMPONENT (DISPLAYFD INTERPRESSFD PRESSFD OTHERFDS) +\HANDLE.RAW.10TO3 (TRANSPUPHOST TRANSOPERATION EPREQUEUE) \FIXLINELENGTH.PSC (LINELENGTH) +EDITBMBUTTONFN (ITEMS CENTERFLG LEFT BOTTOM MENUROWS WIDTH HEIGHT TITLE) \REVALIDATEFILE (F1 F2 F3 F4 +F5 FW6 FW7 VALIDATION EPAGE EOFFSET) \BITBLT.DISPLAY (PBTWIDTH PBTHEIGHT) ICMLARRAY.GETREGIONFN ( +XCOORD YCOORD) GETPUP (INQUEUELENGTH) PRINTERDEVICE (OPENFILE CLOSEFILE ACCESS) \SPLITTREE (COUNT +UPWARD TOTLEN) TEDIT.CURSORMOVEDFN (BOTTOM HEIGHT MOUSEREGION LEFT WIDTH) \VFMInsert1 (used) +OPENPUPSOCKET (PSOCKETHI PSOCKETLO PUPSOCEVENT) DELETE.LONG.SEGMENT1 (NEXTLINE LASTCOL END) +\SEQUIN.PROCESS (SEQLASTRESTART SEQTIMEOUT) TEDIT.FORMATPAGE (STATE CHNO NEWPAGELAYOUT PAGE# FIRSTPAGE + PAGE#TEXT PAGE#GENERATOR PAGECOUNT) FB.DISPLAY.COUNTERS (COUNTERPOSITIONS COUNTERPAGESTRING) +FB.NEWINFOCOMMAND (ITEMS MENUROWS TITLE CENTERFLG MENUFONT WHENSELECTEDFN XCOORD YCOORD INFOMENUW) +TEDIT.REDO (CH# CHLIM DCH POINT \INSERTPCVALID) COMP.DECLARE (OPNAME) \PAGED.REVALIDATEFILELST (ACCESS +) \DRAWLINE.DISPLAY (BRUSHCOLOR) SEDIT::CHECK-SELECTION (SEDIT::POINT-NODE) +BROWSE/LAYOUT/HORIZ/COMPACTLY (NODELABEL NODEID TONODES NODEWIDTH NODEHEIGHT FROMNODES GRAPHNODES +SIDESFLG DIRECTEDFLG) \TEDIT.APPLY.PAGEFORMATTING (\DIRTY) \TEDIT.GET.CHARLOOKS (PNEW PFATP PLOOKS +PLEN PFPOS) \FILLCIRCLE.DISPLAY (PBTFLAGS PBTDESTBPL PBTSOURCEBPL PBTUSEGRAY PBTGRAYWIDTHLESSONE +PBTGRAYHEIGHTLESSONE PBTDISJOINT PBTOPERATION PBTSOURCETYPE PBTHEIGHT) \TEXTINIT (IMAGETYPE +IMXPOSITION IMYPOSITION IMLEFTMARGIN IMRIGHTMARGIN IMFONT IMCLOSEFN IMFONTCREATE IMLINEFEED +IMCHARWIDTH IMSTRINGWIDTH DEVICENAME RESETABLE RANDOMACCESSP PAGEMAPPED GETFILENAME BIN BOUT CLOSEFILE + OPENFILE DELETEFILE DIRECTORYNAMEP EVENTFN GENERATEFILES GETFILEINFO HOSTNAMEP READPAGES REOPENFILE +ACCESS SETFILEINFO BACKFILEPTR SETFILEPTR PEEKBIN GETEOFPTR GETFILEPTR EOFP FDBINABLE FDBOUTABLE +FDEXTENDABLE TRUNCATEFILE WRITEPAGES BINABLE BOUTABLE USERCLOSEABLE USERVISIBLE DEVICE F1 F2 F3 F5 FW6 + FW7 MAXBUFFERS IMAGEOPS IMAGEDATA OUTCHARFN) INSPECTW.REDISPLAY (SELECTABLEITEMREGION COMMANDFN +ITEMINFO ITEMINFOTYPE LEFT BOTTOM WIDTH HEIGHT) \LFDirectorySearch (DIRHOLEPTR DIRPTR) FORGETPAGES ( +BUFFERNEXT BUFFS) \PFCreateRootDirectory (fileID volNum type size filePage nextFilePage) \XCCSOUTCHAR +(CHARSET CHARPOSITION) SEDIT::DEGRADE-COMMENT (SEDIT::UNASSIGNED) NEW/INSTANCE/OF/GRAPHNODE (NODEID +NODELABEL NODEFONT NODEWIDTH NODEHEIGHT NODEBORDER NODELABELSHADE) FILEPKGTYPE (DESCRIPTION) MSPRED ( +REP NEGATED MSVERB OTHERSET) RESTOREMAP (BUFFERNEXT BUFFS) \DSPYPOSITION.DISPLAY (DDYPOSITION +DDCHARSET DDCHARSETASCENT) \SEQUIN.CLOSE (SEQSTATE) \CHANGECHARSET.HCPYMODE (DDWIDTHSCACHE +DDOFFSETSCACHE DDCHARIMAGEWIDTHS DDCHARSET PBTSOURCEBPL OTHERDEVICEFONTPROPS PBTSOURCE) +\LEAF.TRUNCATEFILE (OPWORD HANDLE FILEADDRESS PAGE OFFSET EOFBIT DATALENGTH LEAFLENGTH) +\PAGED.REVALIDATEFILE (F1 F2 F3 F4 F5 FW6 FW7 VALIDATION EPAGE EOFFSET) \DSPXPOSITION.DISPLAY ( +DDXPOSITION CHARPOSITION) \TEDIT.FILL.IN.CHARLOOKS.MENU (SET) \UNWIND.UFN (NEXTBLOCK NOPUSH) +\DSPLINEFEED.DISPLAY (DDLINEFEED) \XCCSFORMATBYTESTREAM (CHARSET) COMP.LOOKUPVAR (COMP.VARTYPE VARNAME +) \TEDIT.FORMAT.FOUNDBOX? (STATE) \GETREGION.CHECKOPPT (XCOORD YCOORD) \PAGED.REVALIDATEFILES (ACCESS) + \DSPRIGHTMARGIN.DISPLAY (DDRightMargin) ICMLARRAY (XCOORD YCOORD) \CREATE.XCCS.EXTERNALFORMAT (NAME +INCCODEFN PEEKCCODEFN BACKCCODEFN OUTCHARFN FORMATBYTESTREAMFN EOL EOLVALID) FB.CREATE.FILEBUCKET ( +STARTOFPNAME VERSIONLESSNAME SUBDIREND STARTOFNAME HASDIRPREFIX DIRECTORYFILEP FILEDEPTH FILENAME +VERSION FILEINFO SIZE SORTVALUE) \TEDIT.CONVERT.FOREIGN.FORMAT (TXTPAGEFRAMES) TEDIT.STYLESHEET ( +TXTSTYLESHEET) \PUPERROR (ERRORPUPCODE ERRORPUPARG PUPLENGTH PUPTYPE EPREQUEUE) LOADPOLY (A B C D) +\PROC.AFTER.WINDOWWORLD (PROCWINDOW) TEDIT.PARSE.PAGEFRAMES (REGIONFILLMETHOD REGIONTYPE +REGIONLOCALINFO REGIONSPEC REGIONSUBBOXES) FB.ALLOW.ABORT (UPDATEPROC) EDITADDNODE (XCOORD YCOORD) +\BUFFERED.REVALIDATEFILE (F1 F2 F3 F4 F5 FW6 FW7 VALIDATION EPAGE EOFFSET) \DSPFONT.DISPLAY (DDFONT +DDLINEFEED DDSPACEWIDTH) \DELETECH (\INSERTLEN PLEN \INSERTNEXTCH THLEN \INSERTPCVALID THACTION THCH# +THFIRSTPIECE NEXTPIECE PREVPIECE TEXTLEN \DIRTY) SPP.CLEARATTENTION (SPPEOFP CBUFSIZE) \HTFIND (HIBITS + CNT STKBIT EMPTY NEXTFREE FREEPTR NXTPTR CONTENTS LINKPTR) \BUFFERED.REVALIDATEFILELST (ACCESS) +\DRAWLINE.PSC (POSTSCRIPTX POSTSCRIPTY POSTSCRIPTMOVEFLG) \DSPLEFTMARGIN.DISPLAY (DDLeftMargin) +DUMPINITPAGES (NxtPMAddr NActivePages NDirtyPages filePnPMP0 filePnPMT0 LVersion MinBVersion +MinRVersion Key) \PFAddRootDirEntry (type file countEntries) DINFO.LOOKUP (LOOKUP.STRING) +\FM.TOGGLE-SETUP (FM.MESSAGE FM.SYSDOWNFN FM.SYSMOVEDFN FM.SYSSELECTEDFN) SEDIT::SET-SELECTION-NOWHERE + (SEDIT::SELECT-NODE) \BSP.PREPARE.OUTPUT (BSPCURRENTPUP TYPEWORD CPPTR COFFSET CBUFMAXSIZE) +\SETGLOBALVAL.UFN (VALUE) CREATEHASHFILE (ByteStream File Stream Size %#Entries Write? ValueType +ItemCopyFn ItemLength) \FONTFACE (WEIGHT SLOPE EXPANSION) DINFO.FIND (FIND.STRING) ADDFILE0 (LOADTYPE +FILEPROP COMSNAME FILEDATES FILEDATE DATEFILENAME TOBEDUMPED) \TEDIT.ABBREV.EXPAND (\INSERTPCVALID) +\RPLACA.UFN (CAR CARFIELD) \GENERATENOFILES (NEXTFILEFN FILEINFOFN GENFILESTATE NOFILETYPE +NOFILEPATTERN) \TURN.ON.PROCESSES (PROCFX) %%SET-ARRAY-TYPE-NUMBER (TYPE-NUMBER) SEDIT::DELETE-COMMENT + (SEDIT::OPEN-NODE-CHANGED?) BROWSE/LAYOUT/HORIZ (GRAPHNODES SIDESFLG DIRECTEDFLG) \RPLACD.UFN (CDR +FULLCARFIELD CDRCODE NEXTCELL CNT) \DOVMEMFULLINTERRUPT (VMEMFULL) \NULLFILEGENERATOR (NEXTFILEFN) +TEDIT.CREATEW (HEIGHT) \NSFILING.AFTER.LOGIN (FSLOGINCHANGED) INITSEQUIN (SEQSOCKET SEQSTATE SEQLOCK +SEQEVENT MYSENDSEQ MYRECEIVESEQ LASTACKEDSEQ SEQOUTALLOC %#UNACKEDSEQS %#SEQRESTARTS %#SEQDUPLICATES +%#SEQTIMEOUTS %#SEQRETRANSMITS %#SEQTURNOVERS SEQPROCESS) TERM.NEWLINE (XPOS) \CONS.UFN (CAR CDR PAGE# + NEXTCELL CNT FULLCARFIELD CDRCODE NEXTFREE) \TRANSLATE.10TO3 (EPTYPE TRANSOPERATION +TRANSSENDERPUPHOST EPREQUEUE) %%SET-ARRAY-OFFSET (OFFSET) SPP.FLUSH.TO.EOF (COFFSET SPPEOFP) +SEDIT::INSTALL-SPECIAL-FORMATS (SEDIT::LIST-FORMATS SEDIT::LIST-INLINE? SEDIT::LIST-PFORMAT +SEDIT::LIST-MFORMAT) NEWDEFC (FNHEADER) PAINTW.READBRUSHSIZE (ITEMS) \NOTE.10TO3 (NDBTRANSLATIONS) +PAINTW.READBRUSHSHAPE (ITEMS) \RESETKEYBOARD (W0 W1 W2 W3 W4 W5 WU LOCK 1SHIFT 2SHIFT CTRL META FONT +USERMODE1 USERMODE2 USERMODE3 MOUSESTATE READ) TEDIT.PARALOOKS (TABKIND TABX PPARALOOKS 1STLEFTMAR +LEFTMAR RIGHTMAR LEADBEFORE LEADAFTER FMTBASETOBASE LINELEAD TABSPEC QUAD FMTPARATYPE FMTPARASUBTYPE +FMTSPECIALX FMTSPECIALY FMTNEWPAGEBEFORE FMTNEWPAGEAFTER FMTHEADINGKEEP FMTKEEP FMTHARDCOPY +FMTUSERINFO FMTREVISED FMTSTYLE FMTCHARSTYLES FMTCOLUMN \DIRTY THACTION THLEN THCH# THFIRSTPIECE +THOLDINFO THAUXINFO) PAINTW (CUIMAGE CUMASK CUHOTSPOTX CUHOTSPOTY CUDATA) TEDIT.NEXT (CH# CHLIM DCH +POINT BLUEPENDINGDELETE CARETLOOKS) \PFPutRootDirectory (fileID volNum type size) SETUPPUP (PUPLENGTH +TYPEWORD PUPID PUPDEST PUPDESTSOCKET EPREQUEUE) \NOFILESNEXTFILEFN (NOFILETYPE NOFILENAME) +INSPECT/HUNK (ITEMS CENTERFLG) \LOOKUPPUPNUMBER (XIPTYPE XIPLENGTH) TEDIT.SUBSTITUTE (TEXTLEN +CARETLOOKS CHLIM CH# DCH) SETINTERRUPT (INTERRUPTLIST) \4DISPLAYINIT (IMAGETYPE IMFONT IMLEFTMARGIN +IMRIGHTMARGIN IMLINEFEED IMXPOSITION IMYPOSITION IMCLOSEFN IMDRAWCURVE IMFILLCIRCLE IMDRAWLINE +IMDRAWELLIPSE IMDRAWCIRCLE IMBITBLT IMBLTSHADE IMNEWPAGE IMSCALE IMSPACEFACTOR IMFONTCREATE IMCOLOR +IMBACKCOLOR IMOPERATION IMSTRINGWIDTH IMCHARWIDTH IMCLIPPINGREGION IMRESET IMDRAWARC IMDRAWPOLYGON +IMDRAWPOINT IMBLTCHAR IMXOFFSET IMYOFFSET DEVICENAME RESETABLE RANDOMACCESSP PAGEMAPPED CLOSEFILE +DELETEFILE GETFILEINFO OPENFILE READPAGES SETFILEINFO GENERATEFILES TRUNCATEFILE WRITEPAGES +GETFILENAME REOPENFILE EVENTFN DIRECTORYNAMEP HOSTNAMEP BIN BOUT PEEKBIN BACKFILEPTR BLOCKIN BLOCKOUT +DEVICEINFO WINDOWOPS) SEDIT::CREATE-PRETTY-PRINT-ENV (SEDIT::DEFAULT-FONT SEDIT::ITALIC-FONT +SEDIT::KEYWORD-FONT SEDIT::COMMENT-FONT SEDIT::BROKEN-ATOM-FONT SEDIT::SPACE-WIDTH SEDIT::DEFAULT-LINE-SKIP + SEDIT::INDENT-BASE SEDIT::INDENT-STEP SEDIT::EM-WIDTH SEDIT::MAX-WIDTH) IMAGEOBJCREATE (OBJECTDATUM +IMAGEOBJPLIST IMAGEOBJFNS) GRAPHADDLINK (FROMNODES TONODES) SEDIT::CREATE-STRING-ITEM (STRING SEDIT::WIDTH + SEDIT::FONT SEDIT::PRIN-2?) \PFNewPages (filePage volumePage nextFilePage size) MSINTERPRETSET (REP +HTABLES OSET DET TYPE QUOTED ID NEGATED SET1 MSVERB TENSE VPART OTHERSET SET2 MSPATHOPTIONS FROM TO +TOPFLG INVERTED HTABLE BADMARKS) TEDIT.BUILD.PCTB0 (PFILE PFPOS PLEN PREVPIECE PPARALOOKS NEXTPIECE +PPARALAST FORMATTEDP) GETGRIDBOXREGION (LEFT BOTTOM WIDTH HEIGHT) \PRESSCURVE2 (VECMOVINGRIGHT +VECWASDISPLAYING VECSEGCHARS VECCURX VECCURY) \10MBGETPACKET (EPTYPE) \DSPBACKCOLOR.DISPLAY (DDCOLOR) +\DSPCOLOR.DISPLAY (DDCOLOR) PFI.PRINT.BITMAP (OUTCHARFN) LLBREAK (FNHEADER) \MISCN.UFN (IVAR NEXTBLOCK +) TEDIT.SCAN.LINE (SET SELKIND Y0 X0 DX CH# XLIM CHLIM YLIM POINT DCH SELOBJ \TEXTOBJ) +SEDIT::CREATE-NEW-COMMENT (SEDIT::NODE-TYPE CL:STRUCTURE SEDIT::DEPTH SEDIT::INLINE-WIDTH +SEDIT::PREFERRED-WIDTH SEDIT::UNASSIGNED SEDIT::SUB-NODES SEDIT::LINEAR-FORM) BRHL/MOVE/RIGHT (XCOORD) + \RPLCONS (NEXTCELL CNT FULLCARFIELD CDRCODE) \FIXDLINES (DIRTY TXTNEEDSUPDATE CHAR1 CHARLIM CHARTOP +NEXTLINE PREVLINE DELETED) MSNEXTWORD (MODIFIER) \PFGetRootDirectory (fileID volNum type size) +UTF16BE.OUTCHARFN (CHARPOSITION) \INSERTTREE (PTREENODE UPWARD TOTLEN COUNT) TEDIT.FORMAT.HARDCOPY ( +PAGE# FIRSTPAGE STATE MINPAGE# MAXPAGE# CHNO PAGEHEADINGS PAGE#GENERATOR PAGE#TEXT PRESSREGION +REQUIREDREGIONTYPE PAGECOUNT) \ENVCALL.UFN (MISCSTACKFN MISCSTACKARG1 MISCSTACKARG2) +SET-CONNECTED-DIRECTORY-INTERACTIVELY (TITLE ITEMS) \EP.PUT.AUX (EPPLIST) \MAIKO.CONSOLE-LOG-PRINT ( +LOGMSGSPENDING) PUTDEFN (DEFPOINTER ARGTYPE FASTP CCODEP PSEUDOCODEP) SETHASHSTATUS (Valid?) +\MAIKO.IO-INTERRUPT (IOINTERRUPT) MSNEGATESET (REP NEGATED) PPROCEXTENT (LEFT BOTTOM WIDTH HEIGHT) +\PROCESS.MAKEFRAME (MISCSTACKFN MISCSTACKARG1 MISCSTACKARG2 PROCFX) OPT.FRAMEVAR (VARS NNILS NVALS) +DINFO.ADD.FMENU (FMENU.WINDOW) SEDIT::SET-SELECTION-ME (SEDIT::SELECT-NODE SEDIT::SELECT-START +SEDIT::SELECT-END SEDIT::SELECT-START-X SEDIT::SELECT-TYPE) \UNBOXFLOAT3 (NEXTBLOCK) +SEDIT::CREATE-PRELINEARIZED-NODE (SEDIT::SUPER-NODE SEDIT::DEPTH SEDIT::SUB-NODE-INDEX) RESETKEYACTION + (INTERRUPTLIST) COMP.COND (OPNAME TAG) RESHAPEBYREPAINTFN (LEFT BOTTOM WIDTH HEIGHT) \8DISPLAYINIT ( +IMAGETYPE IMFONT IMLEFTMARGIN IMRIGHTMARGIN IMLINEFEED IMXPOSITION IMYPOSITION IMCLOSEFN IMDRAWCURVE +IMFILLCIRCLE IMDRAWLINE IMDRAWELLIPSE IMDRAWCIRCLE IMBITBLT IMBLTSHADE IMNEWPAGE IMSCALE IMSPACEFACTOR + IMFONTCREATE IMCOLOR IMBACKCOLOR IMOPERATION IMSTRINGWIDTH IMCHARWIDTH IMCLIPPINGREGION IMRESET +IMDRAWARC IMDRAWPOLYGON IMDRAWPOINT IMBLTCHAR IMXOFFSET IMYOFFSET DEVICENAME RESETABLE RANDOMACCESSP +PAGEMAPPED CLOSEFILE DELETEFILE GETFILEINFO OPENFILE READPAGES SETFILEINFO GENERATEFILES TRUNCATEFILE +WRITEPAGES GETFILENAME REOPENFILE EVENTFN DIRECTORYNAMEP HOSTNAMEP BIN BOUT PEEKBIN BACKFILEPTR +BLOCKIN BLOCKOUT DEVICEINFO WINDOWOPS) \SELECTPROCESS (ITEMS TITLE CENTERFLG MENUFONT) +\TRANSLATE.3TO10 (EPTYPE TRANSOPERATION TRANSPUPHOST TRANSSENDERPUPHOST EPREQUEUE) \ABORT.BULK.DATA ( +COFFSET) SEDIT::COPY-STRUCTURE-COMMENT (CL:STRUCTURE) BRHL/LAYOUT (FROMNODES NODEPOSITION XCOORD +YCOORD) MakeMenuOfImageTypes (ITEMS TITLE) \DO.PROGV.SETUP.FRAME.AND.EXECUTE (FRAMENAME NTSIZE +NAMETABLE) MAKEWITHINREGION (LEFT BOTTOM) \TEDIT.UPDATETREE (TOTLEN) \TEDIT.DELETE (THPOINT CH# CHLIM +POINT DCH DX) CREATE.NEW.NODEPOSITION (XCOORD YCOORD) \CORE.CLOSEFILE (IOEPAGE IOEOFFSET CBUFPTR +CBUFSIZE) \DRAWLINE.UFN (BITS) DINFO.INVERT.NODE (LAST.INVERTED.NODE NODELABELSHADE) +PROCESS.STATUS.WINDOW (ITEMS WHENSELECTEDFN MENUFONT CENTERFLG MENUCOLUMNS LEFT BOTTOM WIDTH HEIGHT +XCOORD YCOORD) DINFO.DEFAULT.MENU (DINFO.MENU ITEMS CENTERFLG MENUFONT) \FM.MOMENTARY-SETUP ( +FM.MESSAGE FM.SYSDOWNFN FM.SYSMOVEDFN FM.SYSSELECTEDFN) \CORE.RELEASEPAGES (PAGEPOINTER) +MB.NWAYBUTTON.SELFN (LEFT BOTTOM WIDTH HEIGHT) UPDATEFILES (CHANGED) \PARAS.IN.SEL (CH# DCH) +\MAPPNAME.INTERNAL (OUTCHARFN STRMBOUTFN) \CORE.UPDATEOF (CPAGE COFFSET CBUFPTR EPAGE EOFFSET CBUFSIZE +) RIGHTW.ADJUSTSELECTION (ELTBOTTOM ELTWIDTH ELTLEFT PROP) \GETREGION.CHECKBASEPT (XCOORD YCOORD) +SHADEITEM (WIDTH) \NSFILING.GETFILE (NSHATTRIBUTES NSFILING.NEW.ATTRIBUTES NSHDATUM NSHACCESS +FULLFILENAME NSFILING.CONNECTION NSFILING.HANDLE DEVICE NSHBUSYCOUNT) \LFMakeLeaderPage (TYPE +TimeCreate TimeWrite FileID AllocatedPages EofPage EOffSet fileName author version) SHOW.IP ( +IPCORRECTSTARTX) FILES.PUTDEF (TOBEDUMPED FILEDATES) SPAWN.MOUSE (PROCSYSTEMP) \PFTransferPage ( +DISKADDRESS BUFFER RUNLENGTH LABEL MODE MISCSTACKFN MISCSTACKARG1 MISCSTACKARG2) +\TEDIT.UNIQUIFY.CHARLOOKS (TXTCHARLOOKSLIST) \TEDIT.ADJUST.LINES (YBOT YBASE) FW-INIT-MENUS (TITLE +CENTERFLG MENUOFFSET CHANGEOFFSETFLG ITEMS) CHECK/MENU/IMAGE (IMAGE) SEDIT::CREATE-NODE (SEDIT::NODE-TYPE + SEDIT::SUPER-NODE CL:STRUCTURE SEDIT::SUB-NODES SEDIT::DEPTH SEDIT::SUB-NODE-INDEX SEDIT::LINEAR-FORM +) \LFMakeDirEntry (DIRINFO) ENDPREAMBLE.IP (IPPREAMBLEFONTS IPPREAMBLENEXTFRAMEVAR IPPAGESTATE) +\CORE.DELETEFILE (IOFILEPAGES PAGENUMBER) \SHOWTEXT (YBOT CHAR1 CHARLIM SPACELEFT RIGHTMARGIN NEXTLINE + CHARTOP LHEIGHT LXLIM CR\END ASCENT DESCENT LTRUEASCENT LFMTSPEC) ADDMENU (XCOORD YCOORD LEFT BOTTOM +WHENSELECTEDFN) CLEARFILEPKG (FILEPROP FILECHANGES) OPT.FRAMEDEL (OPNAME OPARG FRAME LEVEL EXTCALL +PARENT) \TEDITPAGEMENU.CREATE (MBSTRING MBFONT) \CORE.GETINFOBLOCK (IOFILEFULLNAME) +MB.MARGINBAR.TABTRACK (TABX) DINFO.LAYOUTGRAPH (NODEID NODELABEL NODELABELSHADE TONODES +LAST.INVERTED.NODE) DINFO.SELECT.GRAPH (CENTERFLG TITLE ITEMS) BKSYSCHARCODE (READ) +MB.MARGINBAR.SIZEFN (XSIZE YSIZE YDESC XKERN) SEDIT::CREATE-GAP-NODE (SEDIT::NODE-TYPE CL:STRUCTURE +SEDIT::SUB-NODES SEDIT::INLINE-WIDTH SEDIT::PREFERRED-WIDTH SEDIT::ACTUAL-LLENGTH SEDIT::ACTUAL-WIDTH +SEDIT::LINEAR-FORM) \MAIKO.ETHER-INTERRUPT (ETHERINTERRUPT 10MBLENGTH EPNETWORK EPTYPE DLFIRSTICB) +\CORE.FINDPAGE (PAGEPOINTER PAGENUMBER COREPAGECACHE) GC-FILING-DIRECTORY (FSCACHEDHANDLES) +SPP.SENDATTENTION (FIRSTSPPDATABYTE XIPLENGTH) TEDIT.SELECT.LINE.SCANNER (SET \TEXTOBJ SELOBJ SELKIND +NEXTLINE PREVLINE CH# CHLIM POINT DCH Y0 YLIM X0 XLIM DX) SEDIT::COPY-STRUCTURE-COMMENT-WORD ( +CL:STRUCTURE STRING) \CORE.GENERATEFILES (NEXTFILEFN FILEINFOFN GENFILESTATE COREFILELST) +\PROCESS.GO.TO.SLEEP (EVENTWAKEUPPENDING PROCSTATUS PQLAST PQNEXT NEXTPROCHANDLE PROCTIMERSET +PROCWAKEUPTIMER PROCFX) PARAMETRICSPLINE (%#KNOTS SPLINEX SPLINEY SPLINEDX SPLINEDY SPLINEDDX +SPLINEDDY SPLINEDDDX SPLINEDDDY) FILL.INCY (PBTDEST ADDR) TEDIT.RESET.EXTEND.PENDING.DELETE ( +BLUEPENDINGDELETE) \MAIKO.10MBTURNONETHER (NDBCSB DLFIRSTOCB DLFIRSTICB DLOUTPUTMASK DLINPUTMASK +DLMISSEDPACKETS DLLASTICB DLLASTOCB) \LEAF.REOPENFILE (VALIDATION) FB.SORTCOMMAND (SORTVALUE +STARTOFPNAME NOSUBDIRECTORIES SORTBY SORTATTRIBUTE SORTINDEX SORTBYDATE) FONTCOPY (WEIGHT SLOPE +EXPANSION BACKCOLOR FORECOLOR) TOGGLE/DIRECTEDFLG (DIRECTEDFLG) TOGGLE/SIDESFLG (SIDESFLG) +\HANDLE.NS.ROUTING.INFO (RTNET# RTTIMER RTGATEWAY# RTNDB RTHOPCOUNT RTRECENT) RESET.INTERRUPTS ( +INTERRUPTLIST) TEDIT.BUILD.PCTB1 (TXTPAGEFRAMES PPARALAST FORMATTEDP PFILE PFPOS PLEN PREVPIECE +PPARALOOKS NEXTPIECE PLOOKS) BRHL/LAYOUT/DAUGHTERS (FROMNODES) SETBSPUSERINFO (BSPUSERSTATE) +\CORE.NEXTFILEFN (COREFILELST) FB.EXPUNGE?.MENU (ITEMS MENUROWS CENTERFLG TITLE MENUFONT) +\24DISPLAYINIT (IMAGETYPE IMFONT IMLEFTMARGIN IMRIGHTMARGIN IMLINEFEED IMXPOSITION IMYPOSITION +IMCLOSEFN IMDRAWCURVE IMFILLCIRCLE IMDRAWLINE IMDRAWELLIPSE IMDRAWCIRCLE IMBITBLT IMBLTSHADE IMNEWPAGE + IMSCALE IMSPACEFACTOR IMFONTCREATE IMCOLOR IMBACKCOLOR IMOPERATION IMSTRINGWIDTH IMCHARWIDTH +IMCLIPPINGREGION IMRESET IMDRAWARC IMDRAWPOLYGON IMDRAWPOINT IMBLTCHAR IMXOFFSET IMYOFFSET DEVICENAME +RESETABLE RANDOMACCESSP PAGEMAPPED CLOSEFILE DELETEFILE GETFILEINFO OPENFILE READPAGES SETFILEINFO +GENERATEFILES TRUNCATEFILE WRITEPAGES GETFILENAME REOPENFILE EVENTFN DIRECTORYNAMEP HOSTNAMEP BIN BOUT + PEEKBIN BACKFILEPTR BLOCKIN BLOCKOUT DEVICEINFO WINDOWOPS) SEDIT::CREATE-ENVIRONMENTS (SEDIT::PARSE-INFO + SEDIT::PARSE-INFO-UNKNOWN SEDIT::DEFAULT-FONT SEDIT::ITALIC-FONT SEDIT::KEYWORD-FONT SEDIT::COMMENT-FONT + SEDIT::BROKEN-ATOM-FONT SEDIT::SPACE-WIDTH SEDIT::DEFAULT-LINE-SKIP SEDIT::COMMAND-TABLE SEDIT::HELP-MENU + SEDIT::DEFAULT-CHAR-HANDLER SEDIT::EM-WIDTH SEDIT::INDENT-BASE SEDIT::INDENT-STEP SEDIT::MAX-WIDTH +SEDIT::COMMENT-WIDTH-PERCENT SEDIT::INIT-COMMENT-SEPARATION) DINFO.SHOWGRAPH (LEFT BOTTOM HEIGHT WIDTH +) OPT.FRAMELOCAL (OPNAME) \PSWOP.SELECTED (ITEMS TITLE CENTERFLG) DEFINEFONT.IP (IPPAGEFONTS) +\CORE.GETFILEINFO.FROM.INFOBLOCK (PAGE OFFSET) \GCRECLAIMCELL (FULLLINKFIELD CDRCODE OFFSETCODE +DTDFREE) FB.GET.SORT.MENU (SORTMENU ITEMS) FB.INSERT.SUBDIRECTORIES (SUBDIREND) \CORE.GETFILEHANDLE ( +IOEOFFSET IOEPAGE IOFILEPAGES PAGENUMBER DEVICE INFOBLK FULLFILENAME EOFFSET EPAGE EOLCONVENTION +CBUFMAXSIZE) CREATESCREEN (SCONOFF SCDESTINATION SCWIDTH SCHEIGHT SCDEPTH SCTOPW SCTITLEDS CREATEWFN +OPENWFN CLOSEWFN MOVEWFN RELMOVEWFN SHRINKWFN EXPANDWFN SHAPEWFN REDISPLAYFN BURYWFN TOTOPWFN +DSPCREATEFN GETWINDOWPROPFN PUTWINDOWPROPFN SETCURSORFN WINIMAGEOPS WINFDEV BBTTOWIN BBTFROMWIN +BBTWINWIN SCCARETFLASH SCGETSCREENPOSITION SCGETBOXSCREENPOSITION SCGETSCREENREGION) \RETCALL ( +MISCSTACKFN MISCSTACKARG1 MISCSTACKARG2) CHANGE-TTY-PROCESS-INTERACTIVELY (TITLE CENTERFLG ITEMS) +TEDIT.BUILD.PCTB2 (TXTPAGEFRAMES PCTB TXTCHARLOOKSLIST TXTPARALOOKSLIST PPARALAST FORMATTEDP PFILE +PFPOS PLEN PREVPIECE PPARALOOKS NEXTPIECE PLOOKS) \TEDIT.UNIQUIFY.PARALOOKS (TXTPARALOOKSLIST) GNCCODE + (OFFST LENGTH) TRANSGRAPH (GRAPHNODES NODEPOSITION XCOORD YCOORD) \FDEVINSTANCE (DEVICEINFO CLOSEFILE + GETFILEINFO OPENFILE READPAGES SETFILEINFO TRUNCATEFILE WRITEPAGES REOPENFILE BIN BOUT PEEKBIN +BACKFILEPTR SETFILEPTR GETFILEPTR GETEOFPTR EOFP BLOCKIN BLOCKOUT FORCEOUTPUT) GLCCODE (FILL-POINTER-P + FILL-POINTER) MSVERBED (MSVERB OTHERSET DET) \POP.N.UFN (NEXTBLOCK NOPUSH) \PRINTFPTOVP (PAGE#) +INSERTHASHKEY (%#Entries) TEDIT (TXTEDITING) FW-RE-INIT (NAMEWIDTH) MSADDANALYZE (SETNAME GETDEF-FN +MARKCHANGED-FN FILEPKGNAME) ENDPAGE.IP (IPPAGESTATE) \NSFILING.GENERATEFILES (NEXTFILEFN FILEINFOFN +GENFILESTATE NSGENERATOR NSFILTER NSCONNECTION NSIGNOREDIRECTORIES NSBULKSTREAM) \LEAF.EVENTFN ( +PFSLOOKUPFILESOCKET PFSLOOKUPFILELOCK) \VFMGet1 (key volumePage nextKey) \HANDLE.RAW.3TO10 ( +TRANSOPERATION EPREQUEUE) \NSFILING.COPY/RENAME (FSCACHEDHANDLES NSHBUSYCOUNT NSHDATUM NSHATTRIBUTES +NSHNAME) EDITBM (BITMAPBITSPERPIXEL BITMAPWIDTH) HEADINGOP.IP (IPHEADINGOPVAR) UNMARKASCHANGED ( +TOBEDUMPED) SETTOPVAL (VALUE) %%MAKE-STRING-ARRAY-FAT (BASE TYPE-NUMBER) \MAKEPCTB (COUNT TOTLEN DOWN1 + DLEN1 DOWN2 DLEN2 PTREENODE) \TEDIT.TEXTBIN.STRINGSETUP (CPPTR CPAGE COFFSET PCSTARTPG PCSTARTCH +CBUFSIZE EPAGE CHARSLEFT REALFILE BINABLE FATSTREAMP) \PUTBASEBYTE (HIBYTE LOBYTE) OPENRTPSOCKET ( +RTPSTATE CONNID BSPINPUTHANDLER BSPOTHERPUPFN PUPSOC LCLPORT LCLSOCKET BSPFAILURESTRING FRNPORT +FRNSOCKET LISTENING BSPINITTIMER) \CREATEDISPLAYFONT (FONTDEVICE FONTFAMILY FONTSIZE FONTFACE +\SFAscent \SFDescent \SFHeight ROTATION FONTDEVICESPEC) TEDIT.PUT (DESC TXTFILE \DIRTY PFPOS PFILE +PSTR \INSERTPCVALID \INSERTPC THACTION THCH# THLEN THFIRSTPIECE) FB.FINISH.COMMAND (UPDATEPROC +ABORTING) TEDIT.PUT.PCTB2 (PFILE DEFAULTCHARLOOKS CARETLOOKS FMTSPEC) SETPROPLIST (PROPLIST) +\TFBRAVO.INIT.PARALOOKS (LEFTMAR 1STLEFTMAR LINELEAD LEADBEFORE RIGHTMAR LEADAFTER TABSPEC FMTSPECIALX + FMTSPECIALY) \TEDIT.DIFFUSE.PARALOOKS (PPARALOOKS) \NSRANDOM.CLOSEFILE (ACCESS) +\CREATE-REAL-CHARSET.DISPLAY (WEIGHT SLOPE) SEDIT::BUILD-WINDOW (SEDIT::DISPLAY-WINDOW SEDIT::WINDOW-LEFT + SEDIT::WINDOW-BOTTOM SEDIT::WINDOW-RIGHT SEDIT::WINDOW-TOP) SEDIT::COMPUTE-POINT-POSITION-COMMENT ( +SEDIT::POINT-X SEDIT::POINT-LINE) RAISE/TRANSITION/CHAIN (YCOORD) XIPAPPEND.STRING (XIPLENGTH) +PROCESS.BACKTRACE (LEFT BOTTOM WIDTH HEIGHT) KILLSEGMENT (OLDTAIL) \TEDIT.COPY.PIECEMAPFN (PNEW POBJ +PLOOKS CLPROTECTED CLSELHERE) TERM.GODOWN (YPOS) UNMAKEHARDCOPYMODESTREAM (IMAGEOPS STRMBOUTFN +OUTCHARFN) SEDIT::SELECT-NODE (SEDIT::PENDING-DELETE?) INSERTLINE (NEXTLINE START END FIRSTCOL LASTCOL + ROW) \SFMAKEITALIC (CHARSETBITMAP) CHAT.RECONNECT (ITEMS) TEDIT.GET.OBJECT0 (POBJ PFILE PSTR PLOOKS) +SEDIT::UNDO (SEDIT::UNDO-LIST SEDIT::UNDO-UNDO-LIST) SEDIT::CREATE-CONSTANT-STRINGS (SEDIT::LPAREN-STRING + SEDIT::RPAREN-STRING SEDIT::DOT-STRING SEDIT::QUOTE-STRING SEDIT::COMMENT-STRING) SEDIT::CFV-CLISP ( +SEDIT::INLINE-WIDTH SEDIT::PREFERRED-WIDTH) TEDIT.UNDO.REPLACE (THOLDINFO THACTION CH# CHLIM DCH POINT + THPOINT) \BUILDSLUGCSINFO (CHARSETASCENT CHARSETDESCENT IMAGEWIDTHS OFFSETS CHARSETBITMAP) \UNQUEUE ( +SYSQUEUEHEAD SYSQUEUETAIL QLINK) SEDIT::REUSE-LINEAR-FORM (SEDIT::START-X SEDIT::FIRST-LINE +SEDIT::PREV-LINE SEDIT::LINE-LENGTH SEDIT::INDENT SEDIT::BLOCK-START SEDIT::CURRENT-LINE SEDIT::SHIFT-Y + SEDIT::BLOCK-X SEDIT::BLOCK-NEW-X SEDIT::BLOCK-ASCENT SEDIT::BLOCK-DESCENT SEDIT::BLOCK-BASE-LINE +SEDIT::BITS? SEDIT::YCOORD SEDIT::CURRENT-X SEDIT::LINEAR-POINTER SEDIT::LINEAR-PREV) +ADD/AND/DISPLAY/LINK (XCOORD YCOORD) \CORE.OPENFILE (IOEOFFSET IOEPAGE IOFILEPAGES PAGENUMBER DEVICE +INFOBLK FULLFILENAME EOFFSET EPAGE EOLCONVENTION CBUFMAXSIZE) FW-RESET (OFDSTATUS) BITMAPTEDITOBJ ( +BITMAP BMOBJSCALEFACTOR BMOBJROTATION BMOBJDESCENT) DIRECTORY (PATTERN FILEGENERATORS) TEDIT.UNDO.MOVE + (CH# CHLIM DCH POINT TEXTLEN THACTION THTEXTOBJ THAUXINFO THOLDINFO THCH#) \CORE.SETACCESSTIME ( +ReadTime WriteTime) MARKASCHANGED (CHANGED) \SETPUPCHECKSUM (PUPCHECKSUM) DSPSCROLL (DDScroll) +\SFROTATECSINFO (CHARSETBITMAP OFFSETS) POSTSCRIPT.HARDCOPYW (WIDTH HEIGHT LEFT BOTTOM) +\VFMGetInterval (key volumePage nextKey) \COREFILE.SETPARAMETERS (EOLCONVENTION COREEOLC IOFIBType +IOFIBCreationTime) \LEAF.DIRECTORYNAMEP (PFSKNOWNDIRS) SCRATCHCONS (OLDTAIL) GETPROMPTWINDOW (LEFT +BOTTOM WIDTH HEIGHT) SEDIT::UNDO-ATOM-CHANGE (CL:STRUCTURE) \BSP.PREPARE.INPUT (BSPCURRENTPUP COFFSET +MARKPENDING CBUFSIZE CPPTR) \TEDIT.FIXINSSEL (CH# CHLIM) \DOHARDRETURN1 (ALINK SIZE RESIDUAL NEXTBLOCK + BLINK USECNT NAMETABLO FASTP ACLINK) COMP.STTAG (LEVEL FRAME) MB.NB.SIZEFN (XSIZE YSIZE YDESC XKERN) +SEDIT::COMPUTE-COMMENT-COLUMN (SEDIT::COMMENT-WIDTH SEDIT::COMMENT-SEPARATION) +SEDIT::COMPUTE-SELECTION-POSITION-COMMENT (SEDIT::SELECT-START-LINE SEDIT::SELECT-START-X +SEDIT::SELECT-END-LINE SEDIT::SELECT-END-X) BRHC/OFFSET (NODEPOSITION YCOORD) \TEDIT.TEXTBIN.FILESETUP + (PCSTARTPG PCSTARTCH CPPTR CPAGE COFFSET EPAGE CBUFSIZE CHARSLEFT REALFILE FATSTREAMP BINABLE) +\TEDIT.FIXDELSEL (CH# CHLIM DCH) \CREATE.SYMBOL (VALUE PNAMEBASE PNAMELENGTH FATPNAMEP) DOWINDOWCOM ( +ITEMS CHANGEOFFSETFLG MENUOFFSET XCOORD YCOORD WHENHELDFN WHENUNHELDFN CENTERFLG) \GCSCANSTACK (SIZE) +SEDIT::COPY-NODE (SEDIT::NODE-TYPE CL:STRUCTURE SEDIT::SUB-NODE-INDEX SEDIT::CHANGED? SEDIT::INLINE-WIDTH + SEDIT::PREFERRED-WIDTH SEDIT::UNASSIGNED SEDIT::SUB-NODES SEDIT::SUPER-NODE SEDIT::LINEAR-FORM +SEDIT::ACTUAL-WIDTH SEDIT::ACTUAL-LLENGTH) \CORE.SETFILEPTR (CBUFSIZE CBUFPTR CPAGE COFFSET) +OPT.FRAMEMERGE (VARS NNILS NVALS OPNAME OPARG) \TEDIT.MARK.LINES.DIRTY (DIRTY TXTNEEDSUPDATE) +\LFGenFileID (lastIDAllocated) SEDIT::CLOSE-NODE-COMMENT (SEDIT::OPEN-NODE) \CORE.BACKFILEPTR (COFFSET + CBUFSIZE CBUFPTR CPAGE CHARPOSITION) SEDIT::SHIFT-BLOCK (SEDIT::REPAINT-START SEDIT::REPAINT-LINE +SEDIT::REPAINT-X) \ORIGREADTABLE (READMACROFLG ESCAPEFLG NUMBERBASE USESILPACKAGE ESCAPECHAR +PACKAGECHAR HASHMACROCHAR) \CORE.SETEOFPTR (EPAGE EOFFSET CBUFSIZE CBUFPTR) \FM.CHANGELABEL (FM.LABEL +FM.REGION FM.MAXREGION FM.BITMAP FM.HIGHLIGHT) \DECUSECOUNT (USECNT) CHAT.PROMPT.FOR.INPUT (LEFT +BOTTOM WIDTH HEIGHT) \CORE.SETFILEINFO (IOFIBType COREEOLC) \SPP.HANDLE.INPUT (SPPRETRANSMITTING +SPPTERMINATEDP SPPOUTPUTALLOCNO SPPACKPENDING SPPROUNDTRIPTIME SPPACKREQUESTED) \INCUSECOUNT (USECNT +FASTP) COMP.STJUMP (OPNAME TAG JT FRAME LEVEL) MENUWINDOW (ITEMS CENTERFLG MENUCOLUMNS MENUROWS +MENUOUTLINESIZE) \DOSTACKOVERFLOW (SubovFXP) FB.MAYBE.INSERT.FILE (TIDATA TISELECTED) +\CORE.GETNEXTBUFFER (CBUFSIZE CBUFPTR COFFSET CPAGE EPAGE EOFFSET) \CREATE.TEDIT.FACE.MENU (ITEMS +CENTERFLG TITLE) INSPECT/AS/BLOCKRECORD (ITEMS WHENHELDFN) \MOVEFRAME (SIZE FLAGWORD RESIDUAL +NEXTBLOCK BLINK NAMETABLO) XIPAPPEND.WORD (XIPLENGTH) \TEDIT.SHOW.CHARLOOKS (SET) WINDOWWORLD (SCTOPW +SCONOFF PROMPTW) \BSP.CLEANUP.INPUT (BSPFILEPTRLO BSPFILEPTRHI FW6 BSPCURRENTPUP CBUFSIZE CPPTR +%#UNREADPUPS) \ALLOCBLOCK (INUSE GCTYPE) \NSFILING.PARSE.FILENAME (NSDIRECTORIES NSROOTNAME NSVERSION +NSDIRECTORYP NSHASPERIOD) \SETUPUSERSTACK (EndOfStack) \NSFILING.NEXTFILE (CURRENTINFO) +TEDIT.GET.CHARLOOKS0 (PLOOKS PNEW CLSTYLE CLUSERINFO CLBOLD CLITAL CLULINE CLOLINE CLSTRIKE CLSMALLCAP + CLPROTECTED CLINVISIBLE CLSELHERE CLCANCOPY CLSIZE CLOFFSET CLFONT) HRULE.IMAGEBOXFN (XSIZE YSIZE +YDESC XKERN) \GATHER-CLEANUP-FORMS (PROCHARDRESETINFO) SEDIT::REDO (SEDIT::UNDO-UNDO-LIST) +\CREATECHARSET.PSC (OFFSETS IMAGEWIDTHS) FW-MOVEW (OFDLEFT OFDBOTTOM) \MKATOM.FULL (STORAGEFULL) +\CREATECOREDEVICE (FDBINABLE FDBOUTABLE FDEXTENDABLE DEVICENAME RESETABLE RANDOMACCESSP PAGEMAPPED +NODIRECTORIES BUFFERED CLOSEFILE DELETEFILE GETFILEINFO OPENFILE READPAGES SETFILEINFO TRUNCATEFILE +WRITEPAGES GETFILENAME REOPENFILE GENERATEFILES EVENTFN DEVICEINFO DIRECTORYNAMEP HOSTNAMEP READP BIN +BOUT PEEKBIN BACKFILEPTR SETFILEPTR GETFILEPTR GETEOFPTR SETEOFPTR EOFP BLOCKIN BLOCKOUT FORCEOUTPUT +GETNEXTBUFFER OPENP REGISTERFILE UNREGISTERFILE) COPYGRAPH (GRAPHNODES NODEPOSITION NODELABEL) +SEDIT::COMPUTE-SELECTION-POSITION-DEFAULT (SEDIT::SELECT-START-X SEDIT::SELECT-START-LINE +SEDIT::SELECT-END-X SEDIT::SELECT-END-LINE) MB.NB.WHENOPERATEDFN (SET) \LEAF.FLUSH.CACHE ( +LEAFCACHEDFILE) \SMASHBSPSTREAM (BSPOUTPUTSTREAM BSPCURRENTPUP MARKPENDING CBUFSIZE CPPTR COFFSET +ACCESS BSPSOC BSPINPUTSTREAM) MAPATOMS (PAGE#) \EXTENDSTACK (STACKOVERFLOW EndOfStack) +BMOBJ.IMAGEBOXFN (XSIZE YSIZE YDESC XKERN) EXTEND/TRANSITION/CHAIN (YCOORD) \MAIKO.INPUT.INTERRUPT ( +10MBLENGTH EPNETWORK EPTYPE DLFIRSTICB) \RELEASE.IOCB (D0NEXTIOCB) %%EXTEND-ARRAY (BASE READ-ONLY-P +TYPE-NUMBER TOTAL-SIZE BOUND0 BOUND1 DISPLACED-P FILL-POINTER-P OFFSET FILL-POINTER) +\AGE.ROUTING.TABLE (RTRECENT) REMWINDOWPROP (USERDATA) CREATE-PROCESS-STREAM (ACCESS DEVICE +EOLCONVENTION OPENFILELST) \INIT.KEYBOARD.STREAM (DEVICENAME CLOSEFILE EVENTFN BIN PEEKBIN READP EOFP +GETFILENAME USERCLOSEABLE USERVISIBLE FULLFILENAME DEVICE ACCESS) TEDIT.GET.PARALOOKS0 (PPARALOOKS +1STLEFTMAR LEFTMAR RIGHTMAR LEADBEFORE LEADAFTER LINELEAD TABSPEC QUAD TABX TABKIND) ED (ITEMS TITLE) +\UNBOXFLOAT2 (NEXTBLOCK) SEDIT::UNDO-EXTRACT (SEDIT::SUPER-NODE SEDIT::SUB-NODE-INDEX) +%%ALTER-AS-DISPLACED-TO-BASE-ARRAY (STORAGE INDIRECT-P DISPLACED-P FILL-POINTER-P TYPE-NUMBER OFFSET +FILL-POINTER TOTAL-SIZE DIMS) CREATEMENUEDWINDOW (ITEMS CENTERFLG TITLE MENUROWS WIDTH HEIGHT BOTTOM +LEFT) MBUTTON.FIND.NEXT.FIELD (CH# CHLIM DCH SELOBJ POINT SELKIND) \UNBOXFLOAT1 (NEXTBLOCK HIWORD +LOWORD) \HANDLE.RAW.PUP (TYPEWORD EPREQUEUE PUPDESTNET NDBPUPNET# PUPNET# PUPHOST# RTNET# RTHOPCOUNT +RTGATEWAY# RTNDB RTRECENT INQUEUELENGTH) \BUFFERED.COPYBYTES (COFFSET) \FONTFACE.COLOR (WEIGHT SLOPE +EXPANSION BACKCOLOR FORECOLOR COLOR) INSPECT/AS/RECORD (ITEMS WHENHELDFN) SEDIT::GETKEY (PROCTYPEAHEAD +) \GENERIC-UNREGISTER-STREAM (OPENFILELST) \DSPSCALE.PSC (POSTSCRIPTSCALE) FW-SHAPEW (LEFT OFDLEFT +BOTTOM OFDBOTTOM WIDTH OFDWIDTH HEIGHT OFDHEIGHT) INSTALLBRUSH (BRUSHARRAY CREATEMETHOD) CURSOR.INIT ( +PBTSOURCEBPL PBTDISJOINT PBTSOURCETYPE PBTOPERATION PBTDESTBIT PBTSOURCEBIT PBTDESTBPL) +\ADD-OPEN-STREAM (OPENFILELST) %%ALTER-AS-DISPLACED-ARRAY (STORAGE READ-ONLY-P INDIRECT-P DISPLACED-P +FILL-POINTER-P OFFSET FILL-POINTER TOTAL-SIZE DIMS) \SETUPGUARDBLOCK (FLAGWORD SIZE) \VFMGet (key +volumePage nextKey) \TEDIT.NEUTRALIZE.CHARLOOKS (SET) FW-FORGET-CMD (TITLE ITEMS) BEGINPREAMBLE.IP ( +IPPAGESTATE) \PAGEDGETEOFPTR (PAGE OFFSET) \CREATE.TEDIT.DEFAULT.FMTSPEC (QUAD 1STLEFTMAR LEFTMAR +RIGHTMAR LEADBEFORE LEADAFTER LINELEAD TABSPEC) \COMPUTE.ARC.POINTS (XCOORD YCOORD) \SFLHASHLOOKUP ( +HASHPAGE#) POSTSCRIPT.ENDPAGE (POSTSCRIPTPENDINGXFORM POSTSCRIPTFONTSUSED) \PAGEDGETFILEPTR (PAGE +OFFSET) GET.EDIT.BITMAP.MENU (TITLE ITEMS CENTERFLG CHANGEOFFSETFLG) \NSRANDOM.READPAGES ( +NSFILING.LAST.REQUEST) BREAKLINE (END LASTCOL) \SPP.RETRANSMIT.NEXT (SENDACK SPPRETRANSMITTING) +\IRM.WILD.REF (ITEMS CENTERFLG TITLE) SET-READTABLE-INTERACTIVELY (TITLE ITEMS CENTERFLG) +PUTCURSORPROP (CUDATA) \NODIRCORE.OPENFILE (DEVICE INFOBLK FULLFILENAME EOFFSET EPAGE EOLCONVENTION +CBUFMAXSIZE) \TEDIT.WINDOW.OPS (LEFT BOTTOM WIDTH HEIGHT) \NSRANDOM.SESSION.WATCHER (NSWATCHERPROC) +SI::NON-LOCAL-GO (PC) SEDIT::CFV-COMMENT (SEDIT::INLINE-WIDTH SEDIT::PREFERRED-WIDTH) +\CREATE.TEDIT.SIZE.MENU (ITEMS CENTERFLG MENUROWS TITLE) \MAIKO.10MBSENDPACKET (EPNETWORK EPTYPE) +XIPAPPEND.BYTE (XIPLENGTH) \RENAMEDFN (FNHEADER) MB.MARGINBAR.DISPLAYFN (LEFT BOTTOM WIDTH HEIGHT) +SI::UNWIND-TO-BLIP (PC) \NODIRCOREFDEV (READP) \INIT-MISCN-TABLE (MISCN-MVS) \PUTD (PSEUDOCODEP CCODEP + ARGTYPE FASTP DEFPOINTER DEFCELLFLAGS) GETD (FNHEADER) \CREATEPIECEORSTREAM (PSTR PFILE PLEN +PPARALAST PPARALOOKS PFATP PLOOKS) POSTSCRIPT.PUTCOMMAND (POSTSCRIPTPAGEBLANK) SPYOBJ.IMAGEBOX (XSIZE +YSIZE YDESC XKERN) \CHANGE-VISIBLE-REGION.IP (IPVISLEFT IPVISRIGHT IPVISTOP IPVISBOTTOM +IPVISIBLEREGION IPMAXVISIBLEBASELINE IPMINVISIBLEBASELINE IPCHARVISIBLEP IPMINCHARRIGHT) +PRETTYFILEINDEX (ACCESS) SEDIT::OUTPUT-STRING (STRING SEDIT::WIDTH SEDIT::FONT SEDIT::PRIN-2? +SEDIT::LINEAR-POINTER SEDIT::LINEAR-FORM SEDIT::LINEAR-PREV SEDIT::LINE-ASCENT SEDIT::LINE-DESCENT +SEDIT::CURRENT-X) %%MAKE-ONED-ARRAY (BASE READ-ONLY-P BIT-P STRING-P DISPLACED-P FILL-POINTER-P +EXTENDABLE-P TYPE-NUMBER OFFSET FILL-POINTER TOTAL-SIZE) \PFFindPageAddr (PAGEGROUP) DELETEHASHKEY ( +%#Entries) TEDIT.SUBLOOKS (\DIRTY PLOOKS) MB.MARGINBAR.SELFN (LEFT BOTTOM WIDTH HEIGHT MARTABS TABKIND + TABX MARL1 MARLN MARR) FB.COPY/RENAME.MANY (DEFAULTDIR) \HCPYMODEDSPPRINTCHAR (CHARPOSITION) +\TEDIT.CHARLOOKSMENU.CREATE (MBLABEL MBBUTTONEVENTFN MBSTRING) XIPAPPEND.CELL (XIPLENGTH) DIRFILENAME +(LITERALNAME) SEDIT::VERIFY-STRUCTURE (SEDIT::CURRENT-NODE SEDIT::\X SEDIT::SUB-NODES) COMP.BOOL ( +OPNAME TAG) \TTY.CREATING.DISPLAYSTREAM (OUTCHARFN FULLFILENAME) \MEDW.GETSCREENREGION (XCOORD YCOORD +SCREEN LEFT BOTTOM WIDTH HEIGHT) \DSPCOLOR.PSC (POSTSCRIPTCOLOR) SEDIT::OUTPUT-SPACE (SEDIT::LINEAR-POINTER + SEDIT::LINEAR-FORM SEDIT::LINEAR-PREV SEDIT::CURRENT-X) ARRAY (TYP LENGTH ORIG OFFST BASE HIBYTE +LOBYTE) TEDIT.OBJECT.CHANGED (\DIRTY) \CREATE.TEDIT.MOVESELECTION (HASCARET HOWHEIGHT) +FB.GET.NEW.FILE.SPEC (DEFAULTDIR) BRHC/LAYOUT/DAUGHTERS (XCOORD YCOORD) \MAIKO.10MBSTARTDRIVER (NDBTQ +DLFIRSTICB) \INIT.RTPPROCESS (RTPPROCESS RTPEVENT BSPLOCK) \DELETETREE (TOTLEN COUNT) +TEDIT.DO.BLUEPENDINGDELETE (CHLIM DCH POINT) \HDCPYDISPLAYINIT (IMAGETYPE IMFONT IMRIGHTMARGIN +IMXPOSITION IMYPOSITION IMSTRINGWIDTH IMCHARWIDTH) \TEDIT.CARET (TCCARET) SEDIT::SET-SELECTION-STRING +(SEDIT::SELECT-NODE SEDIT::SELECT-STRING SEDIT::SELECT-START) \TEDIT.REOPEN.STREAM (PFILE TXTFILE) +TEDIT.GET.OBJECT1 (POBJ PFILE PSTR PLOOKS) SEDIT::COMPUTE-ALL-FORMATS (SEDIT::DONT-COLLECT-CHANGES?) +CURSORCREATE (CUIMAGE CUMASK CUHOTSPOTX CUHOTSPOTY CUDATA) OPT.COMPINIT (OPNAME) \READSTRIKEFONTFILE ( +CHARSETASCENT CHARSETDESCENT CHARSETBITMAP IMAGEWIDTHS) BEGINPAGE.IP (IPPAGESTATE) \TEDIT.CHANGE.LOOKS + (\DIRTY PLOOKS CLFONT CLBOLD CLITAL CLPROTECTED CLSELHERE CLULINE CLOLINE CLSTRIKE CLINVISIBLE +CLOFFSET CLSTYLE CLUSERINFO CLINVERTED CLSIZE CARETLOOKS \INSERTPCVALID) \READACFONTFILE (IMAGEWIDTHS +LEFTKERN CHARSETDESCENT CHARSETASCENT CHARSETBITMAP) \VFMReadNext (key volumePage) \LOCATE.PUPNET ( +RTNET# RTHOPCOUNT RTTIMER) OPT.NOTJUMP (OPNAME OPARG) \INFER.FILE.TYPE (ENDOFSTREAMOP) +FW-ADJUST-PLACEMENT (BOTTOM OFDSTATUS) SEDIT::CREATE-NULL-LIST (SEDIT::NODE-TYPE CL:STRUCTURE +SEDIT::SUB-NODES SEDIT::INLINE-WIDTH SEDIT::PREFERRED-WIDTH SEDIT::LINEAR-FORM) TEDIT.UNDO.PARALOOKS ( +PPARALOOKS THOLDINFO) ASSURE.PUP.READY (NDBPUPHOST# PUPNET# PUPHOST#) TEDIT.LOOKS (THACTION THLEN +THCH# THFIRSTPIECE THOLDINFO THAUXINFO) \NSRANDOM.WRITEPAGES (NSFILING.SERVER.LENGTH +NSFILING.LAST.REQUEST) \VFMGetBufferFor (VOLUME VOLPAGENUM PAGE DIRTY) \TEDIT.FLUSH.UNUSED.LOOKS ( +CLMARK FMTMARK TXTCHARLOOKSLIST TXTPARALOOKSLIST) %%DO-LOGICAL-OP (PBTHEIGHT PBTDISJOINT PBTSOURCE +PBTSOURCEBIT PBTDEST PBTDESTBIT PBTDESTBPL PBTSOURCEBPL PBTWIDTH PBTSOURCETYPE PBTOPERATION) +\VECFONTINIT (FONTDEVICE FONTFAMILY FONTSIZE FONTFACE ROTATION FONTAVGCHARWIDTH WIDTHS) +\NSFILING.OPEN.HANDLE (NSHDATUM NSHACCESS) \DISCARDFRAME (ACLINK USECNT) TEDIT.PUT.PCTB (LINELENGTH +PFILE DEFAULTCHARLOOKS CARETLOOKS FMTSPEC) \TEDIT.GET.PARALOOKS1 (1STLEFTMAR LEFTMAR RIGHTMAR +LEADBEFORE LEADAFTER LINELEAD TABSPEC QUAD TABX TABKIND FMTSPECIALX FMTSPECIALY FMTUSERINFO +FMTPARATYPE FMTPARASUBTYPE FMTSTYLE FMTCHARSTYLES FMTNEWPAGEBEFORE FMTNEWPAGEAFTER) TERM.CLEAR.TAB ( +TERM.TAB.STOPS) \NSRANDOM.TRUNCATEFILE (PAGE OFFSET NSFILING.SERVER.LENGTH) SETFILEPTR (CHARPOSITION) +\CREATE.TEDIT.DELETESELECTION (HOW HASCARET HOWHEIGHT) BUTTONPANEL (ITEMS CENTERFLG WHENSELECTEDFN +WHENHELDFN) \DELETEPIECE (PREVPIECE NEXTPIECE) MakeMenuOfPrinters (ITEMS TITLE WHENSELECTEDFN) +\RTP.ACTION (BSPINITTIMER RTPSTATE RTPTIMEOUT) \SETUPGETCH (FATSTREAMP PIECE COFFSET CPAGE PCSTARTPG +PCSTARTCH PCOFFSET BINABLE CHARSLEFT CBUFSIZE CURRENTPARALOOKS CURRENTLOOKS) TEDIT.SELECTED.PIECES ( +\INSERTPC) MAKEHARDCOPYMODESTREAM (IMAGEOPS STRMBOUTFN OUTCHARFN) \TEDIT.SET.SEL.LOOKS (HOW HOWHEIGHT +HASCARET) SEDIT::CFV-DOTLIST (SEDIT::INLINE-WIDTH SEDIT::PREFERRED-WIDTH) \TELERAIDBREAK (FAULTFXP +TELERAIDFXP) GRAPHOBJ.IMAGEBOXFN (XSIZE YSIZE YDESC XKERN) \CURSORPOSITION (NEWMOUSEX NEWMOUSEY +NEWMOUSESTATE) \BASEBYTES.BLOCKIO (COFFSET) SCROLL.HANDLER (VERTSCROLLWINDOW HORIZSCROLLWINDOW) +\SPP.NOT.RESPONDING (SPPINACTIVECOUNT SPPTERMINATEDP SPPROUNDTRIPTIME) \TERPRI.PSC (CHARPOSITION) +SEDIT::OUTPUT-BITMAP (SEDIT::LINEAR-PREV SEDIT::LINE-ASCENT SEDIT::LINE-DESCENT) PROCESSPROP ( +PROCWINDOW RESTARTABLE PROCINFOHOOK PROCAFTEREXIT PROCBEFOREEXIT PROCTTYENTRYFN PROCTTYEXITFN +PROCUSERDATA PROCRESTARTFORM) SEDIT::SET-SELECTION-LITATOM (SEDIT::SELECT-NODE SEDIT::SELECT-STRING +SEDIT::SELECT-START) ROTATE-BITMAP (PBTDISJOINT PBTDEST PBTSOURCE PBTDESTBPL PBTSOURCEBPL PBTSOURCEBIT + PBTDESTBIT PBTFLAGS PBTHEIGHT PBTWIDTH) \FM.PUTITEMPROP (FM.LABEL FM.ID FM.GROUPID FM.STATE +FM.INITSTATE FM.FONT FM.BITMAP FM.HIGHLIGHT FM.REGION FM.MAXREGION FM.MESSAGE FM.LINKS FM.SYSDOWNFN +FM.SYSMOVEDFN FM.SYSSELECTEDFN FM.DOWNFN FM.HELDFN FM.MOVEDFN FM.SELECTEDFN) SEDIT::SET-POINT-STRING ( +SEDIT::POINT-NODE SEDIT::POINT-STRING) \BASEBYTES.IO.INIT (DEVICENAME RESETABLE RANDOMACCESSP +PAGEMAPPED FDBINABLE FDBOUTABLE FDEXTENDABLE CLOSEFILE DELETEFILE DIRECTORYNAMEP EVENTFN GENERATEFILES + GETFILEINFO GETFILENAME HOSTNAMEP OPENFILE READPAGES REOPENFILE SETFILEINFO TRUNCATEFILE WRITEPAGES +BIN BOUT PEEKBIN READP BACKFILEPTR BBSNCHARS SETFILEPTR GETFILEPTR GETEOFPTR EOFP BLOCKIN BLOCKOUT +RENAMEFILE) SEDIT::BUILD-NODE (SEDIT::CURRENT-NODE SEDIT::\X) SEDIT::BACKSPACE-COMMENT (SEDIT::POINT-NODE + SEDIT::POINT-INDEX SEDIT::POINT-TYPE) TWODINSPECT.SELECTCOLUMNPROP (ELTWIDTH ELTLEFT ELTBOTTOM PROP) +CLEARSTK (PAGE# EDFXP) \BASEBYTES.SETFILEPTR (COFFSET BBSNCHARS) BRHC/LAYOUT/TERMINAL (XCOORD YCOORD) +CHAT.CHOOSE.PHONE.NUMBER (ITEMS TITLE) ROTATE-BITMAP-LEFT (PBTDISJOINT PBTDEST PBTSOURCE PBTDESTBPL +PBTSOURCEBPL PBTSOURCEBIT PBTDESTBIT PBTFLAGS PBTHEIGHT PBTWIDTH) \BIGNUM.LSH (ELEMENTS) +CURSORPOSITION (XCOORD YCOORD) \IRM.CHOOSE.REF (CENTERFLG TITLE ITEMS) \SFMAKECOLOR (CHARSETBITMAP) +\DSPTOPMARGIN.PSC (POSTSCRIPTTOPMARGIN) \RESETTERMINAL (LPARCOUNT LBRKCOUNT INSTRINGP PEEKEDCHAR) +FW-CREATEW (OFDWINDOW LEFT OFDLEFT BOTTOM OFDBOTTOM WIDTH OFDWIDTH HEIGHT OFDHEIGHT) \BASEBYTES.BOUT ( +COFFSET) STRIKECSINFO (WIDTHS OFFSETS IMAGEWIDTHS CHARSETBITMAP YWIDTHS CHARSETASCENT CHARSETDESCENT) +\BASEBYTES.BIN (COFFSET) UPDATEWFROMIMAGE (LEFT BOTTOM WIDTH HEIGHT) CH.FINDSERVER (NSOBJECT NSDOMAIN +NSORGANIZATION) CLOSERTPSOCKET (BSPINITTIMER RTPPROCESS) \TEDIT.PRESS.HARDCOPY (EDITOPACTIVE) +OPT.CHECKTAG (LEVEL) UTF8.OUTCHARFN (CHARPOSITION) %%FAST-COPY-BASE (PBTDISJOINT PBTSOURCETYPE +PBTOPERATION PBTSOURCE PBTSOURCEBIT PBTDEST PBTDESTBIT PBTDESTBPL PBTSOURCEBPL PBTWIDTH PBTHEIGHT) +\CREATE.TEDIT.SHIFTEDSELECTION (HASCARET) \FILLINXIP (EPTYPE XIPTCONTROL XIPTYPE XIPSOURCENSADDRESS +XIPSOURCESOCKET XIPLENGTH XIPDESTNSADDRESS XIPDESTNET XIPDESTSOCKET XIPDESTHOST) \SETUPSTACK1 ( +FLAGWORD PADDING IVAR FLAGBYTE USECNT %#BLINK %#ALINK %#CLINK FNHEADER PC NEXTBLOCK) +\TEDIT.CLOSEUPLINES (YBOT YBASE NEXTLINE PREVLINE) \CHANGECHARSET.HDCPYDISPLAY (DDCHARIMAGEWIDTHS) +\OPENLEAFCONNECTION (SEQNAME SEQFRNPORT SEQACKED SEQINPUT SEQBROKEN SEQABORTED SEQTIMEDOUT SEQTIMEDIN +SEQCLOSED SEQIDLEFN SEQIDLETIMEOUTCOMPUTER SEQOPENERRORHANDLER SEQDONEQ LEAFCACHETIMER +SEQIGNOREDUPLICATES LEAFOPENCLOSELOCK LEAFCACHEHITS LEAFCACHEMISSES LEAFOPCODE LEAFLENGTH PUPLENGTH +EPUSERFIELD LEAFFLAGS LEAFPCONNTIMEOUT LEAFPLOCKTIMEOUT) TTMAKECOMPLEXCHAR (CPXREALCHAR CPXWIDTH +CPXNCHARS CPXPRINTCHARS) \10MBRAWENCAPSULATE (10MBLENGTH) \LEAF.LOOKUPCACHE (LEAFPAGECACHE) +DELETE.TO.END (NEXTLINE END LASTCOL) \MEDW.GETBOXSCREENPOSITION (SCREEN XCOORD YCOORD) DINFO ( +MONITORLOCK) \RESETSTACK0 (FAULTFXP HardReturnFXP TELERAIDFXP KbdFXP GCFXP SubovFXP MiscFXP StackBase +ResetFXP) \MAKEBASEBYTESTREAM (ACCESS DEVICE USERCLOSEABLE USERVISIBLE BYTESIZE CPAGE EPAGE CBUFPTR +COFFSET BIASOFFST CBUFSIZE EOFFSET FULLFILENAME OUTCHARFN LINELENGTH CHARPOSITION WRITEXTENSIONFN +BBSNCHARS) TEDIT.UNDO.LOOKS (PLOOKS CARETLOOKS THOLDINFO) POSTSCRIPT.GETFONTID (FONTIDNAME FONTXFACTOR + FONTOBLIQUEFACTOR) \ROUTE.PUP (EPNETWORK PUPDESTNET PUPSOURCENET PUPSOURCEHOST) \MBS.OUTCHARFN ( +BBSNCHARS FW7) \TEDIT.INSERT.PIECES (\INSERTPCVALID PFILE PFPOS PLOOKS PPARALOOKS) +\NSRANDOM.CREATE.STREAM (NSHACCESS NSFILING.HANDLE EPAGE EOFFSET MULTIBUFFERHINT CPAGE COFFSET +NSFILING.SERVER.LENGTH) \BASEBYTES.TRUNCATEFN (EOFFSET) \FBITMAPBIT.UFN (BITS) CARET (CURSOR) +CONTINUEDIT (FILECHANGES FILEDATES FILEDATE DATEFILENAME) OPENSTRINGSTREAM (CHARSET USERCLOSEABLE +USERVISIBLE F2 STRMBINFN) FW-CREATE-OFD-WINDOWS (OFDSTREAM) \PFInitFileDescriptors (fileID) +\OUTCHARFN.PRESS (CHARPOSITION CHARWASDISPLAYING PRXPOS) \RTP.SHOW.FAILURE (BSPFAILURESTRING +BSPFAILUREREASON) SET-PACKAGE-INTERACTIVELY (TITLE ITEMS CENTERFLG) \PUSHSTATE.IP (XPOS YPOS) +%%MAKE-TWOD-ARRAY (BASE READ-ONLY-P BIT-P EXTENDABLE-P TYPE-NUMBER BOUND0 BOUND1 TOTAL-SIZE) +\NSFILING.FULLNAME (NSHNAME) CURSORHOTSPOT (XCOORD YCOORD) \DSPBOTTOMMARGIN.PSC ( +POSTSCRIPTBOTTOMMARGIN) SEDIT::NEW-BLOCK (SEDIT::BLOCK-START SEDIT::BITS?) PFI.MAKE.LPT.STREAM (LEFT) +\TEDIT.GET.CHARLOOKS1 (PLOOKS PNEW CLSTYLE CLUSERINFO CLBOLD CLITAL CLULINE CLOLINE CLSTRIKE +CLSMALLCAP CLPROTECTED CLINVISIBLE CLSELHERE CLCANCOPY CLSIZE CLOFFSET CLFONT) FSETVAL (VALUE) +CHARLOOKS.FROM.FONT (CLFONT CLBOLD CLITAL CLSIZE CLOFFSET) BRHC/LAYOUT (FROMNODES NODEPOSITION XCOORD +YCOORD) \ROUTE.XIP (EPNETWORK XIPDESTNET XIPSOURCENET) \HDCPYBLTCHAR (DDMICAXPOS DDXPOSITION +PBTDESTBIT PBTWIDTH PBTSOURCEBIT) OPT.RETMERGE (FRAME LEVEL TAG) CRITSECT (LX RX) SEDIT::SET-POINT-LITATOM + (SEDIT::POINT-NODE SEDIT::POINT-STRING SEDIT::POINT-INDEX SEDIT::POINT-TYPE) \BSP.HANDLE.INPUT ( +ACKPENDING) MSVERB (ROOT TENSE MODIFIER) MAKEXYPT (X Y) GETBOXSCREENREGION (SCREEN LEFT BOTTOM WIDTH +HEIGHT) SEDIT::BUILD-LINEAR-FORM (SEDIT::CURRENT-X SEDIT::CURRENT-NODE +SEDIT::LAST-LINEARIZED-SUB-NODE-INDEX SEDIT::LINEAR-FORM SEDIT::PREV-LINE SEDIT::NODE SEDIT::LINE-SKIP + SEDIT::LINE-ASCENT SEDIT::LINE-DESCENT SEDIT::INDENT SEDIT::YCOORD SEDIT::LINEAR-PREV SEDIT::CURRENT-LINE + SEDIT::FIRST-LINE SEDIT::LINEAR-POINTER SEDIT::FIRST-BLOCK SEDIT::BLOCK-NEW-X SEDIT::BLOCK-START +SEDIT::CURRENT-BLOCK SEDIT::RELINEARIZATION-TIME-STAMP SEDIT::BELOW? SEDIT::LINE-LENGTH +SEDIT::ACTUAL-LLENGTH SEDIT::ACTUAL-WIDTH SEDIT::LAST-LINE) BEEPON (DLBEEPFREQ DLBEEPCMD) \SETPOS.PSC +(POSTSCRIPTMOVEFLG) \TEDIT.RESHAPEFN (WTOP WRIGHT WBOTTOM WLEFT YBOT NEXTLINE PREVLINE YBASE) \TTW1 ( +NEXTW SCTOPW) COMP.LAM1 (OPNAME) \STRINGSTREAM.INIT (DEVICENAME CLOSEFILE DELETEFILE DIRECTORYNAMEP +EVENTFN GENERATEFILES GETFILEINFO GETFILENAME HOSTNAMEP OPENFILE READPAGES REOPENFILE SETFILEINFO +TRUNCATEFILE WRITEPAGES BIN F2 F1 PEEKBIN READP BACKFILEPTR EOFP) TEDIT.RAW.INCLUDE ( +TXTRAWINCLUDESTREAM PFILE PFPOS PLEN PREVPIECE NEXTPIECE PLOOKS PPARALAST PPARALOOKS TEXTLEN CHLIM CH# + DCH DX POINT SELKIND SELOBJ \DIRTY PC PCOFF PCNO) \DSPSPACEFACTOR.PSC (POSTSCRIPTSPACEFACTOR +POSTSCRIPTSPACEWIDTH) \CreateCursorBitMap (BITMAPRASTERWIDTH BITMAPWIDTH BITMAPHEIGHT BITMAPBASE) +INTERRUPTED (IN-PROGRESS P-ETHERINTERRUPT P-LOGMSGSPENDING P-IOINTERRUPT P-STORAGEFULL P-STACKOVERFLOW + P-VMEMFULL P-GCDISABLED INTCHARCODE WAITINGINTERRUPT P-WAITINGINTERRUPT) BEEPOFF (DLBEEPCMD) +%%MAKE-GENERAL-ARRAY (STORAGE READ-ONLY-P INDIRECT-P BIT-P STRING-P ADJUSTABLE-P DISPLACED-P +FILL-POINTER-P EXTENDABLE-P TYPE-NUMBER OFFSET FILL-POINTER TOTAL-SIZE DIMS) \TEDIT.CUMULATE.EVENTS ( +THLEN NEXTPIECE PREVPIECE) \DOMISCAPPLY1 (MISCSTACKRESULT) MAKE-UNICODE-FORMATS (NAME EOL INCCODEFN +PEEKCCODEFN BACKCCODEFN OUTCHARFN) UPDATEPCNODES (TOTLEN) SELECT.LIST.INSPECTOR (ITEMS CENTERFLG) +COMP.CALL (EXTCALL) HLSTORGB (RED GREEN BLUE) SPP.BACKFILEPTR (COFFSET) \DISPLAYLINE (LEFT BOTTOM +WIDTH HEIGHT DDXPOSITION) IRM.CREF.BUTTONEVENTFN (HEIGHT WIDTH LEFT BOTTOM) \FM.EDIT-WORDDELETE ( +FM.LABEL) MBUTTON.CREATE (XSIZE YSIZE YDESC XKERN) \MEDW.GETSCREENPOSITION (SCREEN XCOORD YCOORD) +\DISABLEGC1 (NOREFCNT GCDISABLED) SEDIT::BUILD-INTERNAL-STRUCTURE (SEDIT::NODE-TYPE SEDIT::DEPTH +SEDIT::SUB-NODES SEDIT::LINEAR-FORM SEDIT::START-X SEDIT::ACTUAL-WIDTH SEDIT::ROOT SEDIT::CARET-POINT +SEDIT::SELECTION SEDIT::CURRENT-NODE SEDIT::\X SEDIT::OPEN-NODE SEDIT::OPEN-NODE-INFO SEDIT::BUFFER-STRING + SEDIT::SUBSTRING) SEDIT::CLOSE-NODE (SEDIT::OPEN-NODE-CHANGED?) \FM.EDIT-DELETE (FM.LABEL) +SEDIT::LINE-FINISHED (SEDIT::BLOCK-WIDTH SEDIT::BLOCK-START SEDIT::NEXT-BLOCK SEDIT::REPAINT-START +SEDIT::REPAINT-LINE SEDIT::REPAINT-X) ETHERHOSTNAME (PUPNET# PUPHOST# PUPLENGTH NETHOST SOCKET) +\GC.MODIFY.BIGREFCNT (OVFLCNTLO OVFLCNTHI CNT OVFLPTR STKBIT) \MAKE.PROCESS0 (MISCSTACKFN +MISCSTACKARG1 MISCSTACKARG2 PROCRESULT PROCFINISHED) \LEAF.REQUESTPAGE (LEAFCACHECNT FW6 OPWORD HANDLE + FILEADDRESS PAGE OFFSET READWRITEMODE DATALENGTH LEAFLENGTH) CHAT.TYPESCRIPT1 (TYPESCRIPTSTREAM) +\TEDIT.HISTORYADD (TXTHISTORY) \SLOWHDCPYBLTCHAR (DDXPOSITION PBTDESTBIT PBTWIDTH PBTSOURCEBIT) +DSPDESTINATION (DEVICE IMAGEOPS DDDestination) \GC.ENTER.BIGREFCNT (OVFLCNTHI OVFLCNTLO OVFLPTR CNT) +\LFFileSpec (VERSION EXPANDEDNAME FSDIRPTR) \SETDAYTIME0 (LONUM HINUM DLPROCESSOR2 DLPROCESSOR1 +DLPROCESSORCMD DLTODVALID) CLEARHASHFILES (Valid?) \VFMGenerateFileIDs (filePage) \BLTSHADE.BITMAP ( +PBTWIDTH PBTHEIGHT) \BITBLT.BITMAP (PBTWIDTH PBTHEIGHT) \HANDLE.PUP.ROUTING.INFO (RTNET# RTTIMER +RTGATEWAY# RTNDB RTHOPCOUNT RTRECENT) \FTP.FIX.BROKEN.INPUT (FTPIN FTPOUT) \TEXTMENU.START (LEFT +BOTTOM WIDTH HEIGHT MENUFLG) \FORMATLINE (RIGHTMARGIN YBOT LOOKSUPDATEFN CHARLIM DIRTY CHAR1 CR\END +LHASTABS PC PCOFF PCNO LHASPROT DISPLAYHCPYDS LMARK 1STLN LEFTMARGIN LSTLN PTTABX LHEIGHT ASCENT +DESCENT CHARTOP LXLIM SPACELEFT DESC LEN LFMTSPEC) CHAT.TYPEOUT (TERM.STATE) \HARDRESET-CLEANUP ( +PROCHARDRESETINFO) \FM.EDIT-BACKUP (FM.LABEL) CL:VECTOR-POP (FILL-POINTER) \HARDRESET-CLEANUP1 ( +%#FRAMENAME NTSIZE NAMETABLE PVVALUE BOUND) \NSRANDOM.DESTROY.STREAM (CBUFDIRTY CBUFSIZE CBUFPTR +NSFILING.SERVER.LENGTH) IMAGEFNSCREATE (DISPLAYFN IMAGEBOXFN PUTFN GETFN COPYFN BUTTONEVENTINFN +COPYBUTTONEVENTINFN WHENMOVEDFN WHENINSERTEDFN WHENDELETEDFN WHENCOPIEDFN WHENOPERATEDONFN PREPRINTFN) + ICONTITLE (ICREGION ICFONT ICJUST) TB.UNDELETE.ITEM (TIDELETED TB#DELETED) \CREATEPRESSFONT ( +FONTDEVICE FONTFAMILY FONTSIZE FONTFACE \SFFACECODE ROTATION FONTSCALE \SFHeight \SFAscent \SFDescent) + SEDIT::SELECT-SEGMENT-DEFAULT (SEDIT::SELECT-NODE SEDIT::SELECT-START SEDIT::SELECT-END +SEDIT::SELECT-START-X SEDIT::SELECT-TYPE) FB.UPDATEBROWSERITEMS (INFODISPLAYED INFOWIDTH FBREADY +BROWSERFONT DELETEDFILES DELETEDPAGES TOTALPAGES TOTALFILES SORTMENU PATTERNPARSED? SIZEINDEX +PAGECOUNT? NOSUBDIRECTORIES SORTATTRIBUTE SORTBY) \RELEASE.FTPCONNECTION (FTPBUSY) +TWODINSPECT.SELECTROWPROP (ELTWIDTH ELTLEFT ELTBOTTOM PROP) PFI.SETUP.TRANSLATIONS (OUTCHARFN) +SPP.FORCEOUTPUT (XIPLENGTH SPPFILEPTRLO SPPFILEPTRHI FW6 SPPOUTPKT CBUFMAXSIZE COFFSET CBUFPTR +ENDOFMESSAGE SPPOUTPUTABORTEDP) \GCMAPSCAN (NXTPTR LINKPTR CONTENTS FREEPTR EMPTY) +\FTP.OPEN.CONNECTION (FTPIN FTPOUT FTPHOST FTPBUSY) OPT.JFIXPASS (JU) SEDIT::ATOM-CHANGE-RELINEARIZE ( +SEDIT::CHANGED?) \10MBRAWRECEIVE (10MBLENGTH EPTYPE) \HCPYMODEDISPLAYINIT (IMAGETYPE IMFONT +IMRIGHTMARGIN IMLEFTMARGIN IMLINEFEED IMDRAWLINE IMDRAWCURVE IMDRAWCIRCLE IMDRAWELLIPSE IMFILLCIRCLE +IMBLTSHADE IMBITBLT IMXPOSITION IMYPOSITION IMMOVETO IMSTRINGWIDTH IMCHARWIDTH IMFONTCREATE IMSCALE +IMNEWPAGE IMSPACEFACTOR) TB.NTH.ITEM (TBTAILHINT) GRAPHOBJ.BUTTONEVENTINFN (ITEMS) \PUTFIXP (HINUM +LONUM) \DORETCALL (MiscFXP) REGIONONSCREEN (LEFT BOTTOM WIDTH HEIGHT) \FREELISTCELL (CDRCODE NEXTCELL +CNT NEXTPAGE DTDNEXTPAGE) \PUTSWAPPEDFIXP (LONUM HINUM) TEDIT.MAKESEL (CH# CHLIM DCH POINT \TEXTOBJ +SET) FW-FORGET-STREAM (OFDSTATUS) SEDIT:SEDIT (SEDIT::CHANGED-STRUCTURE?) TEDIT.FORMATBOX (LEFT BOTTOM + REGIONSPEC PAGELINECACHE LTEXTOBJ CHNO) \NSFILING.FILLIN.ATTRIBUTES (NSHATTRIBUTES NSHPATHNAME +NSHFILEID NSHDIRECTORYP) \GETBRUSHBBT (PBTDESTBPL PBTSOURCEBPL PBTFLAGS PBTDISJOINT PBTOPERATION +PBTSOURCETYPE) SEDIT::SCAN-STRING (SEDIT::POINT-INDEX SEDIT::POINT-TYPE SEDIT::POINT-LINE SEDIT::POINT-X + SEDIT::SELECT-START SEDIT::SELECT-END SEDIT::SELECT-TYPE SEDIT::SELECT-START-LINE SEDIT::SELECT-END-LINE + SEDIT::SELECT-END-X SEDIT::SELECT-START-X) \DOSTACKFULLINTERRUPT (STACKOVERFLOW) +\PFCreateFileDescriptors (volNum type size fileID) \BACKFORMAT (YBOT YBASE PREVLINE NEXTLINE) \VECPUT +(VECMOVINGRIGHT VECCURX VECCURY VECWASDISPLAYING VECSEGCHARS) NIL +REFFREE \FREELISTCELL (\CONSPAGE.LAST) COMPILE-FILE-SCAN-FIRST (DFNFLG) MSSTOREDATA (MSCHANGEDARRAY +MSDATABASELST NODUMPRELATIONS) \UFS.RECOGNIZE.FILE (\DSKtopMonitor \UFStopMonitor MAX-PATHNAME-LEN +\FIXP RECOG-OLD RECOG-OLDEST RECOG-NEW RECOG-NEW-OLD RECOG-NON) FASL:OPEN-FASL-HANDLE (FASL:SIGNATURE +FASL:CURRENT-VERSION :STREAM) \GETFTPCONNECTION (\FTPCONNECTIONS FTPDEBUGLOG UPPERCASEARRAY +PROMPTWINDOW) \TYPENUMBERFROMNAME (\MaxTypeNumber \DTDSpaceBase) FASL:MAKE-OPTABLE (FASL::END-MARK) +\DEVICE.OUTPUT (MISC2) \COURIER.CHECK.ERRORS (COMMENTFLG) \ALLOCPAGEBLOCK (WORDSPERPAGE) +\TEDIT.COMMAND.LOOP (\SCRATCHLEN TEDIT.READTABLE %#CURRENTRDTBL# \PRIMTERMSA \MAXTHINCHAR +CHARDELETE.TTC WORDDELETE.TTC DELETE.TTC UNDO.TTC REDO.TTC FUNCTIONCALL.TTC NEXT.TTC EXPAND.TTC +CHARDELETE.TC WORDDELETE.TC LINEDELETE.TC) \DISPLAYLINE (WHITESHADE LMInvisibleRun LMLooksChange +BLACKSHADE) \BITBLTSUB (SUBRCALL) \ALLOCVIRTUALPAGEBLOCK (\NxtArrayPage \GUARDSTORAGEFULL \NxtMDSPage +\PagesPerMDSUnit \STORAGEFULLSTATE \SFS.SWITCHABLE \SFS.ARRAYSWITCHED \SecondArrayPage \SecondMDSPage) + \DSPSPACEFACTOR.IP (AMPLIFYSPACE) FLIPCURSOR (\EM.CURSORBITMAP HARDCURSORHEIGHT HARDCURSORWIDTH +\MACHINETYPE \DAYBREAK \MAIKO) GETNSPRINTER (PROMPTWINDOW) \SET.STORAGE.STATE (\MACHINETYPE \DOLPHIN +\DANDELION \InterfacePage \SFS.SWITCHABLE \SFS.NOTSWITCHABLE) COPYFILES (DWIMWAIT) +FASL:UNIMPLEMENTED-OPCODE (:OPNAME) SETUPFONTS.PRESS (DEFAULTFONT) \READNUMBER.OUTLINEREGION ( +BLACKSHADE) VRULE.CREATE (VRULE.IMAGEFNS VRULE.DEFAULT.HEIGHT TEXTOBJ) SPYOBJ (LABEL SPYOBJ.IMAGEFNS) +TEDIT.DISPLAYTEXT (WHITESHADE) PFI.PROCESS.FILE (*PFI-PREVIEWERS* *STANDARD-INPUT*) CL::%%EXP-FLOAT ( +CL::%%LOG-BASE2-E CL::%%EXP-TABLE CL::%%EXP-POLY) UNIX-USERNAME (\MACHINETYPE \MAIKO) +\HANDLE.RAW.OTHER (XIPTRACEFILE) FB.UPDATEBROWSERITEMS (FB.BROWSERFONT FB.INFO.FIELDS UPPERCASEARRAY) +SUBSTRING (\ST.POS16 \ST.BYTE) SEDIT::SET-POINT-LIST (SEDIT::TYPE-DOTLIST) XCL::IMPLICIT-KEY-MAP-HASH +(XCL::*DELETED-IMPLICIT-HASH-SLOT*) MAKETITLEBARICON (MinWindowWidth) RECLAIMMIN (MAX.SMALL.INTEGER) +ALLOCSTRING (\MaxArrayLen \MAXTHINCHAR \ST.POS16 \ST.BYTE) \FTP.PRINTPLIST (\MAXTHINCHAR FTPDEBUGLOG) +*WHO-LINE-ENTRY-REGISTRY* (*WHO-LINE-USER-ENTRY* *WHO-LINE-HOST-NAME-ENTRY* *WHO-LINE-PACKAGE-ENTRY* +*WHO-LINE-READTABLE-ENTRY* *WHO-LINE-TTY-PROC-ENTRY* *WHO-LINE-DIRECTORY-ENTRY* *WHO-LINE-VMEM-ENTRY* +*WHO-LINE-SYMBOL-SPACE-ENTRY* *WHO-LINE-TIME-ENTRY* *WHO-LINE-SHOW-ACTIVE-ENTRY* +*WHO-LINE-PROFILE-ENTRY* *WHO-LINE-TTY-STATE-ENTRY*) MAKEFILESCOMS (LOADOPTIONS) PRINTPUP ( +PUPTRACEFILE PUPPRINTMACROS \PUPOVLEN PUPTYPES) MAKE-PACKAGE-HASHTABLE (HASHTABLE-SIZE-LIMIT +PACKAGE-REHASH-THRESHOLD) \SPP.CLEANUP (RESETSTATE) \LEAF.ABORT.FROMMENU (GRAYSHADE) IDLE.SET.OPTION ( +PROMPTWINDOW IDLE.PROFILE IDLE.FUNCTIONS) GETHOSTINFO (NETWORKOSTYPES \IP.HOSTNAMES NETWORKLOGINFO) +UNIX-FULLNAME (\MACHINETYPE \MAIKO) PFI.COLLECT.DEFINERS (FILEPKGTYPES *PFI-DEFINER-PROPS*) GCTRP ( +\RECLAIM.COUNTDOWN) \INITMDSPAGE (WORDSPERPAGE \MDSIncrement) TEDIT.GET.OBJECT (DEFAULTFONT) +\CH.UPDATE.CACHE (PROMPTWINDOW) \STARTPAGE.PRESS (MICASPERINCH) SEDIT::INITIALIZE-LISTS (SEDIT::TYPE-ROOT +) MAKE-PRIME-HASHTABLE-SIZE (PACKAGE-REHASH-THRESHOLD) \SETXIPCHECKSUM (\NULLCHECKSUM) +SEDIT::MENU-INIT-STATE (*PACKAGE* *PRINT-BASE*) \LFScavVersion (MAX.SMALLP) MKSTRING (\ST.POS16 +\ST.BYTE *PRINT-BASE* *READTABLE*) \DOGCDISABLEDINTERRUPT (SCREENHEIGHT) CL::STRUCTURE-FUNCTION-P ( +CL::*PARSED-DEFSTRUCTS*) \COURIER.CHECK.PROCEDURES (COMMENTFLG) \LEAF.SETCREATIONDATE (\LEAFOP.WRITE +\OPCODE.SHIFT \BYTES.PER.TRIDENT.PAGE \LEN.DATE \LEN.FILEREQUEST) BRH/LAYOUT/DAUGHTERS (NODELST) +UNIX-GETPARM (\MACHINETYPE \MAIKO) COMPILER::COMPILE-DEFINER-PROCESS-FUNCTION (COMPILER::*ENVIRONMENT* + COMPILER::*HOST-ARCHITECTURE*) BITMAPBIT (MINIMUMCOLOR BITMASKARRAY 4BITMASKARRAY \CURSORDESTINATION +\EM.DISPINTERRUPT \TOPWDS \SCREENBITMAPS) DBG::ATTACH-BACKTRACE-MENU (*SHORT-BACKTRACE-FILTER* +BACKTRACEFONT MaxBkMenuWidth :LEFT) \SEARCH.OUTPUTQ (\PT.INTERRUPT) IDLE.BOUNCING.BOX ( +IDLE.BOUNCING.BOX) SPY.MERGE.CALLEES (SPY.HASH) XCL::PPRINT-DEFINER (SPACEWIDTH +:DEFINITION-PRINT-TEMPLATE COMMENTFLG *STANDARD-OUTPUT* :BODY) STRPOS (\TRANSPARENT \ST.BYTE \ST.POS16 +) SHRKFY (FORM CLISPIFYFN) ANTILOG (UBFLOAT3 \ANTILOGCARRAY) COURIER.WRITE.NSADDRESS (\#WDS.NSADDRESS) + EDITGETDEF (SEDIT::CONTEXTS) COMP.EVALFORM (COMPILE.CONTEXT MAXARGS) CREATEW (MinWindowWidth +MinWindowHeight \CURSORSCREEN) IRM.GET.CREF (\IRM.CREF.IMAGEFNS) \NSFILING.SET.CONTINUANCE (MAX.SMALLP +) ASKUSER (DEFAULTKEYLST ASKUSERTTBL READBUF) \GENERIC.CURSOR (\CURRENTCURSOR \SCREENS) +\FILLPOLYGON.PSC (:EOL FILL.WRULE POSTSCRIPT.TEXTURE.SCALE) COERCETEXTOBJ (ReadBit) AIN (\ST.BYTE +\ST.CODE \ST.POS16 \ST.INT32 \ST.FLOAT \ST.BIT) CLISPDEC (CLISPRECORDTYPES CLISPARITHCLASSLST +CLISPARITHOPLST DECLWORDS) \TERMINATESPP (\SPS.CLOSED \SPS.ABORTED \SPS.INIT \SPS.LISTENING \SPS.OPEN +\SPPHEAD.CC.ACKNOWLEDGE \SPPHEAD.CC.EOM \SPPDSTYPE.END \SPS.ENDSENT) AOUT (\ST.BYTE \ST.CODE \ST.POS16 + \ST.INT32 \ST.FLOAT) \BLTCHAR (SUBRCALL) \EXTENDEDVMEMINIT (\InterfacePage \SWAPDSK1 \SWAPDSK2 +\MAINDISK) PFI.PRINT.INDEX (*PFI-PAGE-COUNT* :INDEX *PFI-TITLE* *PFI-LOCATIONS*) \MAYBEPEEKPUP ( +PUPTRACEFILE) \PROCESS.AFTER.EXIT (\PROCESS.AFTEREXIT.EVENT) MSEDITF (MSFNTYPES) \SPP.SETFILEPTR ( +ReadBit) \DRAWPOLYGON.PSC (:EOL) \MAIKO.SET.STORAGE.STATE (\InterfacePage \SFS.NOTSWITCHABLE +\SFS.SWITCHABLE) \PRESSINIT (MICASPERINCH) \USEREVENT (AROUNDEXITFNS) TWODINSPECT.SELECTITEM ( +INSPECTPRINTLEVEL) \PROCESS.BEFORE.LOGOUT (\PROCESSES) D-ASSEM:ASSEMBLE-FUNCTION (:FUNCTION) +\MEDW.CURSOR (\CURRENTCURSOR DEFAULTCURSOR \SOFTCURSORP) FEQP (\FIXP MAX.POS.HINUM MAX.SMALL.INTEGER +\SMALLP \EXPONENT.BIAS \8BITS \SIGNBIT \MAX.EXPONENT \HIDDENBIT) \DEVICE.INPUT (MISC1) \OPENLINEBUF ( +\DEFAULTLINEBUF) \SPP.RESETCLOSE (RESETSTATE) D-ASSEM:INTERN-DCODE (WORDSPERQUAD BYTESPERWORD +CELLSPERQUAD BYTESPERCELL GCREF :CLOSURE :FUNCTION) SEDIT::REPLACE-LIST (SEDIT::TYPE-DOTLIST +SEDIT::TYPE-LIST) \DSPPRINTCR/LF (\CURSORDESTINATION \EM.DISPINTERRUPT \TOPWDS \SCREENBITMAPS) +TTYIN.LASTINPUT (TTYINBUFFER) TEDIT.DEFAULT.MENUFN (TEDIT.DEFAULT.MENU WAITINGCURSOR +TEDIT.EXPANDED.PAGEMENU) SEPRCASE (FILERDTBL CLISPCHARS) %%LIT-SIZE-TO-SIZE (%%LIT-ARRAY-SIZES) +SHOWBITMAP.IP (BYTESPERCELL MAXLONGSEQUENCEBYTES) XCL::MAKE-IMPLICIT-KEY-HASH-TABLE (:FIRST :BASE +PTRBLOCK.GCT :LAST-INDEX :NUM-SLOTS :NUM-KEYS :NULL-SLOTS :KEY-ACCESSOR) \BSP.CLOSE.OPEN.SOCKETS ( +\BSPSOCKETS \STATE.CLOSED \STATE.LISTENING \STATE.ABORTED) DWIMIFYFNS (NOFIXFNSLST NOFIXVARSLST +FILELST) D-ASSEM:FIXUP-PTR-NO-REF (:4-BYTE COMPILER::*HOST-ARCHITECTURE* :3-BYTE) \SFFixY ( +MAX.SMALL.INTEGER) \SLOWBLTCHAR (\CURSORDESTINATION \EM.DISPINTERRUPT \TOPWDS \SCREENBITMAPS) +D-ASSEM:FIXUP-SYMBOL (:4-BYTE COMPILER::*HOST-ARCHITECTURE* :3-BYTE) %%GET-TYPE-TABLE-ENTRY ( +%%ARRAY-TYPE-TABLE) PFI.PRINT.FILECREATED (ITALICFONT LAMBDAFONT :READTABLE :PACKAGE *PRINT-BASE* +:BASE) D-ASSEM:ALLOCATE-CODE-BLOCK (BYTESPERQUAD BYTESPERCELL CELLSPERQUAD) \CARET.FLASH.AGAIN ( +\CARET.UP) D-ASSEM:FIXUP-PTR (GCREF :4-BYTE COMPILER::*HOST-ARCHITECTURE* :3-BYTE) \PEEKPUP ( +\LOCALNDBS GCONST PROMPTWINDOW \LOCALPUPNETHOST) TTYINBUFFERSTREAM (TTYINBUFFERDEVICE \ENDBUFFER) +\LEAF.STREAM.IN.QUEUE (\LEAFOP.WRITE \LEAFOP.TRUNCATE \LEAFOP.CLOSE AppendBit WriteBit) +PFI.PRINT.MULTI.INDEX (:CONSECUTIVE :ENVIRONMENT *STANDARD-OUTPUT* *PFI-PAGE-COUNT* BOLDFONT +DEFAULTFONT :PACKAGE :READTABLE) ARRAYTYP (\ST.BYTE \ST.PTR2 \ST.PTR \ST.POS16 \ST.CODE \ST.INT32 +\ST.FLOAT \ST.BIT) CL:MAKE-PACKAGE (:NAME :NAMESYMBOL :EXTERNAL-ONLY :INTERNAL-SYMBOLS +:EXTERNAL-SYMBOLS :INDEX *PACKAGE-FROM-NAME* *PACKAGE-FROM-INDEX*) REPLACEFIELD (\FIXP \SMALLP \FLOATP +) BRH/OFFSET (NODELST) \SHOWSEL (BLACKSHADE) \MAYBEPEEKNS (XIPTRACEFILE) BOXCOUNT (\DTDSpaceBase \FIXP +) USERNAME (\InterfacePage GCONST \USERNAME) DASSEM.CANSHAREBINDING (FRAMES FRAME) +\POSTSCRIPT.OUTCHARFN (\POSTSCRIPT.CHARTYPE *POSTSCRIPT-NS-HASH*) SETD (\ST.PTR2) CONSCOUNT (\LISTP) +CL:USE-PACKAGE (*PACKAGE*) FTPGETMARK (FTPDEBUGLOG) ELTD (\ST.PTR2) SETUSERNAME (\InterfacePage GCONST +) CLISPFORERR1 (I.S. I.S.PTRS) %%LIT-TYPE-TO-TYPE (%%LIT-ARRAY-TYPES) \INDICATESTRING (\MAXTHINCHAR) +SEDIT::PARSE--LIST-INTERNAL (SEDIT::TYPE-LIST) \COERCEFONTDESC (\DISPLAYSTREAMTYPES DEFAULTFONT) +BSPREADP (\PT.MARK \PT.AMARK) HASHARRAY (\MaxArrayNCells PTRBLOCK.GCT) STKNTHNAME (MYALINK) +ICMLARRAY.SETVALUE (INSPECTPRINTLEVEL XCL:*EVAL-FUNCTION*) COMPILER:ENV-BOUNDP (:SPECIAL :GLOBAL) +CHARMACRO? (\READING LISPXID) IMPORT (*PACKAGE*) INVERT.TEXTURE.BITMAP (BITSPERWORD WORDMASK) +TB.SHOW.SELECTION (TB.SELECTION.BITMAP) DO.CHAT.OPTION (PROMPTWINDOW) CL:SHADOWING-IMPORT (*PACKAGE*) +LRSH (\FIXP \SMALLP \FLOATP \SIGNBIT) CLISPFORVARS (LEFT.ARROWS.BITTABLE LEFT.ARROW) +ONEDINSPECT.SETELT (INSPECTPRINTLEVEL XCL:*EVAL-FUNCTION*) \LEAF.SETFILETYPE (\LEAFOP.WRITE +\OPCODE.SHIFT \OFFSET.FILETYPE \BYTES.PER.TRIDENT.PAGE \LEN.FILETYPE&SIZE \FT.TEXT \FT.UNKNOWN +\FT.BINARY \LEN.FILEREQUEST) CL:SHADOW (*PACKAGE*) \NSGATELISTENER (\NS.WKS.RoutingInformation +:PROTOCOL \NSROUTER.PROBETIMER \NS.ROUTING.TABLE \RT.AGEINTERVAL \XIPT.ROUTINGINFO +BROADCASTNSHOSTNUMBER \XIPOVLEN BYTESPERWORD \NS.ROUTINGINFO.WORDS \XROUTINGINFO.OP.REQUEST +\RT.INFINITY \NSROUTER.PROBEINTERVAL) \INSTANCE-P (\LITATOM \NEW-ATOM) \SENDSPP (\SPP.RETRANSMITQ.SIZE + \SPPDSTYPE.ENDREPLY) EXPORT (*PACKAGE*) GETSUPERTYPE (\DTDSpaceBase) SEDIT::PRETTY-PRINT ( +SEDIT::PRETTY-PRINT-ENV MICASPERPT SEDIT::TYPE-ROOT) MAXIMUMSHADE (BLACKSHADE) INFILECOMTAIL ( +COMMENTFLG) \TYPENAMEFROMNUMBER (\MaxTypeNumber \DTDSpaceBase) CHECKBUFFERREFVAL (GCREF) +REMOVE-COMMENTS (*REMOVE-INTERLISP-COMMENTS*) \FTP.HANDLE.NO (\NO.FILE.NOT.FOUND FTPDEBUGLOG +\NO.BAD.TRANSFER.PARMS \NO.BAD.EOLCONVENTION \NO.FILE.PROTECTED \NO.ILLEGAL.CONNECTPASSWORD +PROMPTWINDOW \NO.ILLEGAL.USERNAME \NO.ILLEGAL.USERPASSWORD \NO.ILLEGAL.NAME.ERRORS \NO.STORAGE.FULL) +%%COPY-STRING-TO-ARRAY (%%THIN-CHAR-TYPENUMBER) GETFIELDSPECS (\DTDSpaceBase) \HCPYMODEBLTCHAR ( +MICASPERPT \CURSORDESTINATION \EM.DISPINTERRUPT \TOPWDS \SCREENBITMAPS) CLEARMAP (\OPENFILES) +IRM.CREF.BOX (IRM.CREF.FONT) COMPILER:COPY-ENV-WITH-FUNCTION (:FUNCTION) \DRAWARC.PSC (:EOL) +\LEAF.TIMEDOUT.EXCESSIVE (LEAFABORTREGION \LEAFOP.WRITE \LEAFOP.CLOSE \LEAFOP.TRUNCATE AppendBit +WriteBit MENUFONT) > (CL::%%>) COMPILER:ASSEMBLER-ERROR (:FORMAT-STRING :FORMAT-ARGUMENTS) +COMPILER::START-COMPILATION (COMPILER::*FASL-HANDLE* COMPILER::*INPUT-STREAM* COMPILER::*INPUT-FILENAME* +) COMPILER:OPTIMIZE-AND-MACROEXPAND-1 (COMPILER::*ENVIRONMENT* COMPILER::*CONTEXT*) FB.THINP ( +*COMPILED-EXTENSIONS*) \CLEARMAP (AppendBit WriteBit) INVERT.TEXTURE (BLACKSHADE) PRINTPROPS ( +USERWORDS) FILING.CALL (PROMPTWINDOW :CLOSED \FIXP WORDSPERCELL) MARGINBAR.CREATE (MARGINBARIMAGEFNS) +PUP.ECHOSERVER (\PUPSOCKET.ECHO \PT.ECHOME \PT.IAMECHO) < (CL::%%<) \CH.CHECK.CLEARINGHOUSE ( +PROMPTWINDOW) \MEDW.BITBLT (\TOPWDS \SCREENBITMAPS) RESOLVE-USE-PACKAGE-CONFLICT (:PACKAGE :SYMBOLS +:USED-PACKAGE) SETY.PRESS (SPRUCEPAPERBOTTOMMICAS SPRUCEPAPERTOPMICAS SetYCode) UNDOSAVE (LISPXHIST +UNDOSAVES DWIMWAIT) XCL::PROFILE-VARIABLES (XCL:*PROFILE*) \ENDVECRUN (MicasPerScan +SPRUCEPAPERLEFTSCANS SPRUCEPAPERBOTTOMSCANS SPRUCEPAPERTOPSCANS SPRUCEPAPERRIGHTSCANS) CL:READ-CHAR ( +*STANDARD-INPUT*) COMPILER:COPY-ENV-WITH-VARIABLE (:LEXICAL) SEDIT::TRACK-SELECT (LASTMOUSEBUTTONS +SEDIT::SCRATCH-SELECTION SEDIT::PENDING-SELECTION SEDIT::PENDING-CARET) TTYINFIX (LISPXREADFN +TTYINFIXLIMIT HISTSTR0 LISPXID) TEDIT.WORDSET (\MAXTHINCHAR TEDIT.WORDBOUND.READTABLE PUNCT.TTC +WHITESPACE.TTC TEXT.TTC) COMP.MAP (ALLVARS SPECVARS LOCALVARS DONOTHING) COURIER.READ.NSADDRESS ( +\#WDS.NSADDRESS) \ACTONDISKPAGES (\SYSDISK \MAINDISK \MISCSTATS \DISKREQUESTBLOCK \EMUDISKBUFFERS +\EMUSCRATCH \DC.WRITEHLD \DC.WRITELD \DC.WRITED WORDSPERPAGE \EMUDISKBUFEND WORDSPERCELL \MiscFXP +BYTESPERPAGE) SEDIT::SMART-TTYFN (L) DATATYPES (\MaxTypeNumber \MaxSysTypeNum) FILEBROWSER ( +WindowTitleDisplayStream FB.BROWSERFONT FB.MENU.ITEMS *KEYWORD-PACKAGE* FB.INFO.MENU.ITEMS DIRCOMMANDS + FB.DEFAULT.INFO FB.MENUFONT FB.PROMPTLINES FB.PROMPTFONT FB.DEFAULT.NAME.WIDTH TB.LEFT.MARGIN) +\DISKERROR (\DSK.HARD.ERROR \MAINDISK \DSK.FULL.ERROR) CLOSEBSPSTREAM (\RTP.DEFAULTTIMEOUT \STATE.OPEN + \STATE.ENDRECEIVED) %%COPY-ONED-ARRAY (PTRBLOCK.GCT) \FTP.WHENCLOSED (FTPDEBUGLOG) +\SLOWHCPYMODEBLTCHAR (\CURSORDESTINATION \EM.DISPINTERRUPT \TOPWDS \SCREENBITMAPS) \FTP.OPENFILE ( +DEFAULTFILETYPE) CL:UNINTERN (*PACKAGE*) \GENERIC.DSPCREATE (ScreenBitMap \SCREENS \DISPLAYIMAGEOPS +DisplayFDEV DEFAULTFONT SCREENWIDTH) MAPHASH (\HASH.NULL.VALUE) CL:RENAME-PACKAGE (*PACKAGE-FROM-NAME* +) DATATYPEP (\DTDSpaceBase \MaxTypeNumber) \IDLER (\LASTUSERACTION IDLE.PROFILE \IDLING.OVER +IDLE.SUSPEND.PROCESS.NAMES IDLE.RESETVARS PROMPTWINDOW WHOLESCREEN WHITESHADE BLACKSHADE SAVINGCURSOR) + FINDPTRSBUFFER (SYSTEMBUFFERLIST) CLISPIFYMATCHUP (CLISPISNOISEWORDS) \DOACTONDISKPAGES (\EOFDA +\DC.NOOP \FILLINDA \DSK.HARD.ERROR) FB.SEEFULLFN (FB.MORE.BORDER) PUP.ECHOUSER (PROMPTWINDOW +\PUPSOCKET.ECHO \PT.ECHOME BYTESPERWORD \PT.IAMBADECHO \PT.IAMECHO \PT.ERROR) IRM.DISPLAY.CREF ( +IRM.CREF.FONT) \SEARCHINTERPRESSFONTS (INTERPRESSFONTDIRECTORIES INTERPRESSFONTEXTENSIONS) +\BITBLT.MERGE (BITSPERWORD) \TEDIT2 (BothBits) SEDIT::TRACK-EXTEND (SEDIT::PENDING-CARET +SEDIT::PENDING-SELECTION SEDIT::INITIAL-SELECTION LASTMOUSEBUTTONS SEDIT::SCRATCH-SELECTION) +CL:UNUSE-PACKAGE (*PACKAGE*) OPENBSPSTREAM (\STATE.OPEN \STATE.ENDRECEIVED \BSP.INITIAL.ADATATIMEOUT +\BSP.INITIAL.MAXPUPALLOC \BSPFDEV BothBits \BSP.INACTIVITY.TIMEOUT) TEDIT.WORDGET (\MAXTHINCHAR +TEDIT.WORDBOUND.READTABLE) SETX.PRESS (SPRUCEPAPERLEFTMICAS SPRUCEPAPERRIGHTMICAS SetXCode) +\WRITEDISKPAGES (\SYSDISK \MAINDISK \MISCSTATS \DISKREQUESTBLOCK \EMUDISKBUFFERS \EMUSCRATCH +\DC.WRITED \DC.WRITEHLD \DC.WRITELD WORDSPERPAGE \EMUDISKBUFEND WORDSPERCELL BITSPERWORD BYTESPERPAGE +\MiscFXP) PRINTXIP (XIPTRACEFILE XIPPRINTMACROS \XIPOVLEN XIPTYPES) DELETE-PACKAGE ( +*PACKAGE-FROM-NAME* *PACKAGE-FROM-INDEX*) \HASHACCESS (\HASH.NULL.VALUE SYSHASHARRAY) +MB.MARGINBAR.SHOWTAB (\TEDIT.LEFTTAB \TEDIT.CENTERTAB \TEDIT.RIGHTTAB \TEDIT.DECIMALTAB +\TEDIT.DOTTED.LEFTTAB \TEDIT.DOTTED.CENTERTAB \TEDIT.DOTTED.RIGHTTAB \TEDIT.DOTTED.DECIMALTAB) +CLISPFORERR (FAULTFN) \DOWRITEDISKPAGES (\FILLINDA \EOFDA \DC.WRITED \SPAREDISKWRITEBUFFER \DC.READLD +BYTESPERPAGE \DC.WRITELD \DSK.HARD.ERROR \DSK.FULL.ERROR) \MEDW.DSPCREATE (ScreenBitMap DEFAULTFONT +SCREENWIDTH) TTADJUSTWIDTH (\ARROW) \SPP.SEND.ENDREPLY (\SPPHEAD.CC.EOM \SPPHEAD.CC.ACKNOWLEDGE +\SPPDSTYPE.ENDREPLY) M44.SIGNAL.DISK.ERROR (\DSK.HARD.ERROR \DSK.FULL.ERROR) MAPBUFFERCOUNT ( +SYSTEMBUFFERLIST) RESOLVE-EXPORT-CONFLICT (:PACKAGE :SYMBOLS :EXPORTED-SYMBOLS :PACKAGES) ADD-SYMBOL ( +HASHTABLE-SIZE-LIMIT PACKAGE-REHASH-THRESHOLD) RESOLVE-EXPORT-MISSING (:PACKAGE :SYMBOLS) +INSURE.B&W.TEXTURE (WHITESHADE BLACKSHADE) TEDIT.UNDO.DELETION (INSPC#) COURIER.VERSION# ( +COURIER.VERSION#) \LISPERROR (\INTERRUPTABLE \MP.UNINTERRUPTABLE) RAISE-SIGNAL ( +*CONDITION-HANDLER-BINDINGS* :MULTIPLE-HANDLER-BINDINGS) TURN.ON.ETHER (\NSFLG) PRINTDEF (DEFAULTFONT) + \STRINGWIDTH.HCPYMODE (IHALFMICASPERPT IMICASPERPT) \MAPPAGE (GCREF AppendBit WriteBit) +\ACTONVMEMPAGES (\SWAPREQUESTBLOCK) \SWITCHFONTS.PSC (*POSTSCRIPT-UNACCENTED-FONTS* :EOL) IDLE ( +IDLE.PROFILE) \SETEOF (BYTESPERPAGE) \WRITEVMEMPAGES (\DISKREQUESTBLOCK WORDSPERCELL BYTESPERPAGE) +MAPWORD (BYTESPERPAGE) CL:UNEXPORT (*PACKAGE*) STORAGE (\FIXP \MaxTypeNumber \DTDSpaceBase +\STORAGEFULLSTATE \SFS.FULLYSWITCHED \SFS.ARRAYSWITCHED \LeastMDSPage \FirstArrayPage \NxtArrayPage +\SecondArrayPage \AtomFrLst \LastAtomPage) \LEVELTEXTURE (BLACKSHADE16 DARKGRAY16 MEDIUMGRAY16 +LIGHTGRAY16 WHITESHADE16) SHOWRECTANGLE.PRESS (ShowRectangleCode) DWIMIFY1A (CLISPCONTEXT FAULTFN) +TEDIT.REDO.INSERTION (START-OF-PIECE) LOG (2^-126 \EXPONENT.BIAS UBFLOAT3 LN2) XCL::SETF-FIND-PROFILE +(XCL::*PROFILES*) CL:LIST-ALL-PACKAGES (*PACKAGE-FROM-NAME*) SPY.MAKE.TREE (SPY.ICON) CL:STRING= ( +SLEN1 SLEN2 BASE1 TYPENUMBER1 BASE2 TYPENUMBER2) \COURIER.BROADCAST.ON.NET (PROMPTWINDOW) STORAGE.LEFT + (\STORAGEFULLSTATE \SFS.ARRAYSWITCHED \SecondMDSPage \NxtMDSPage \NxtArrayPage \PagesPerMDSUnit +\SFS.SWITCHABLE \SecondArrayPage \LeastMDSPage \MDSFREELISTPAGE \LastAtomPage \FirstMDSPage +\FirstArrayPage \SFS.NOTSWITCHABLE) \HASHTABLE.DEFPRINT (*READTABLE*) SETUPFONTS.IP (DEFAULTFONT) +\STORAGE.TYPE (\DTDSpaceBase CDRCODING \MDSIncrement \PagesPerMDSUnit HUNKSTATS \LISTP \LISTPDTD) +DASSEM.DPRINTLAP (LSTFIL) SEDIT::TTYFN (EDITCHANGES L :NAME :TYPE :COMPLETION-FN) \BITBLT.BITMAP.SLOW +(BLACKSHADE) DO.MOUSE (LASTMOUSEBUTTONS \DSP) \STORAGE.HUNKTYPE (UNBOXEDBLOCK.GCT PTRBLOCK.GCT +CODEBLOCK.GCT HUNKSTATS) UNDONLSETQ (LISPXHIST) BSPOPENP (\STATE.OPEN \STATE.ENDRECEIVED +\STATE.ENDSENT) TEXTUREOFCOLOR (BLACKSHADE16) \VFMBlankInterval (\VFMvolumeHandle \VFMintervals +treeDepth) XCL:LIST-ALL-PROFILES (XCL::*PROFILES*) ONEDINSPECT.SELECTPROP (INSPECTPRINTLEVEL) +\PUNT.BITBLT.BITMAP (BLACKSHADE) XCL:PROFILE-NAME (XCL:*PROFILE*) SEDIT::LINEARIZE-LIST ( +SEDIT::TYPE-COMMENT) \PUNT.BLTSHADE.BITMAP (WHITESHADE BLACKSHADE) FAKE-COMPILE-FILE (NLAML NLAMA LAMS + LAMA *INTERLISP-PACKAGE* SYSLOCALVARS *COMMON-LISP-READ-ENVIRONMENT* COMPILE.EXT) \DODISKCOMMAND ( +\FILLINDA \DC.READHLD \IDC.READHLD \DC.READLD \IDC.READLD \DC.READD \IDC.READD \DC.WRITEHLD +\IDC.WRITEHLD \DC.WRITELD \IDC.WRITELD \DC.WRITED \IDC.WRITED \DC.SEEKONLY \IDC.SEEKONLY \DC.RESTORE +GCONST \CBS.GOODMASK \CBS.ERRORBITS \CB.PENDING \MISCSTATS) SETREADFN (\DisplayStarted) BRH/LAYOUT ( +PERSONALD MOTHERD) WHO-LINE-WHAT-IS-RUNNING (*WHO-LINE-STATE-UNINTERESTING-FNS*) XCL:FIND-PROFILE ( +XCL::*PROFILES*) \FTPERROR (FTPDEBUGLOG) XCL:COPY-PROFILE (XCL:*PROFILE*) \IFS.LOOKUPFILE ( +\SOCKET.LOOKUPFILE \PT.LOOKUPFILE \MAXETHERTRIES \PT.LOOKUPFILEREPLY \PT.LOOKUPFILEERROR \PT.ERROR +\PUPE.NOSOCKET PUPTRACEFILE) COMP.SELECTQ (CODE SELECTVARTYPES COMPILE.CONTEXT) \CLEANUPDISKQUEUE ( +GCONST \CB.PENDING \CBS.FAKEERROR \CBS.GOODMASK \CBS.GOOD MAX.SMALL.INTEGER \CBS.CHECKERROR +BITSPERWORD \DC.RESTORE \FILLINDA) \CODEARRAY (\ST.CODE CODEBLOCK.GCT CELLSPERQUAD) XCL:RESTORE-PROFILE + (XCL:*PROFILE*) SEDIT::SHRINKFN (:CLOSE-ON-COMPLETION :SHRINK) \NSFILING.GDATE (MIN.FIXP) +CLISPIFYRPLAC (CLTYP0 PARENT) \XIPERROR (\XIPT.ERROR \XIPOVLEN) INCORNER.REGION (LASTMOUSEX +MODERN-WINDOW-MARGIN LASTMOUSEY) XCL:SAVE-PROFILE (XCL:*PROFILE*) \PAGED.GETNEXTBUFFER (NoBits +BYTESPERPAGE) \CREATEINTERPRESSFONT (\ASCIITONS ASCIITONSTRANSLATIONS \ASCIITOSTAR) +\NSFILING.GET.ATTRIBUTES (DESIREDPROPS) \MAKE.EXPEDITED.STREAM (\BASEBYTESDEVICE \XIPOVLEN +\MAX.XIPDATALENGTH) FB.NAMES.DECREASING.VERSION (UPPERCASEARRAY) \PAGED.FORCEOUTPUT (AppendBit +WriteBit) \FIXCODEPTR (GCREF) COMPILE-FILE? (*DEFAULT-CLEANUP-COMPILER*) DASSEM.DSTOREFNDEF ( +WORDSPERQUAD BYTESPERQUAD CELLSPERQUAD \LITATOM \NEW-ATOM LOADTIMECONSTANTMARKER PVARCODE FVARCODE +IVARCODE) RESOLVE-UNINTERN-CONFLICT (:SYMBOL :SYMBOLS :PACKAGE) POSTSCRIPT.STARTPAGE (:EOL \PS.SCALE0) + FASL::DUMP-INTEGER (FASL::+SMALLEST-FOUR-BYTE-INTEGER+ FASL::+LARGEST-FOUR-BYTE-INTEGER+) +\PAGED.SETEOFPTR (WriteBit BYTESPERPAGE AppendBit) \REALDISKDA (\EOFDA) \CARET.FLASH (\CARET.OFF.RATE) + WHO-LINE-TTY-STATE (*WHO-LINE-STATE-UNINTERESTING-FNS*) \VFMAtLoad (lastPageNumber) +\TFBRAVO.GET.NAMEDTAB (\NAMEDTAB.IMAGEFNS) DSPCREATE (ScreenBitMap \DISPLAYIMAGEOPS DisplayFDEV +DEFAULTFONT SCREENWIDTH) RESOLVE-IMPORT-CONFLICT (:PACKAGE :SYMBOLS) SYSRECLOOK1 (SYSTEMRECLST) +\PAGEDREADP (EOL.TC \MAXTHINCHAR \PRIMTERMSA) CLISPIFYMAPS (FORM) \CHECKARRAYBLOCK ( +\ArrayBlockPassword \MinArrayBlockSize \FREEBLOCKBUCKETS \MAXBUCKETINDEX \MP.BADARRAYBLOCK) +XCL:OPEN-STREAM-P (NoBits) \FM.EDIT-SETUP (\FM.EDIT-TTBL) \CHECKFREEPAGE (BITSPERWORD \FILLINDA) +\ALLOCBLOCK.OLD (\MAXBUCKETINDEX \FREEBLOCKBUCKETS \ArrayBlockPassword \MP.BADARRAYBLOCK +\MAX.CELLSPERHUNK \ArrayBlockOverheadCells \ArrayBlockHeaderWords) TTYINREADP (HISTSTR0 \LINEBUF.OFD) +NS.ECHOUSER (\NS.WKS.Echo \XIPT.ECHO \XECHO.OP.REQUEST \XIPOVLEN BYTESPERWORD \XECHO.OP.REPLY +\XIPT.ERROR) TWODINSPECT.REDISPLAY (INSPECTPRINTLEVEL WHITESHADE) TEDIT.SETSYNTAX (\MAXTHINCHAR +TEDIT.READTABLE CHARDELETE.TTC WORDDELETE.TTC DELETE.TTC UNDO.TTC REDO.TTC CMD.TTC FUNCTIONCALL.TTC +NEXT.TTC EXPAND.TTC NONE.TTC) \ALLOCBLOCK.NEW (\ArrayFrLst \NxtMDSPage \GUARDSTORAGEFULL \NxtArrayPage + \VAL.HI) SWAPXIPADDRESSES (\#WDS.NSADDRESS \MY.NSHOSTNUMBER) SEDIT::INPUT-STRINGDELIM (SEDIT::TYPE-STRING +) \FM.NUMBER-SETUP (\FM.EDIT-TTBL) \ALLOCHUNK (\MAX.CELLSPERHUNK UNBOXEDBLOCK.GCT \HUNK.UNBOXEDSIZES +PTRBLOCK.GCT \HUNK.PTRSIZES CODEBLOCK.GCT CELLSPERQUAD \UNBOXEDHUNK.TYPENUM.TABLE +\CODEHUNK.TYPENUM.TABLE \PTRHUNK.TYPENUM.TABLE \DTDSpaceBase CELLSPERPAGE GCREF) SEDIT::INPUT-TOKENDELIM + (SEDIT::TYPE-COMMENT) NSNETDAYTIME0 (BROADCASTNSHOSTNUMBER \TIMESOCKET \EXTYPE.TIME +\TIMEOP.TIMEREQUEST \TIMEVERSION \MAXETHERTRIES \TIMEOP.TIMERESPONSE) TOPW.REPAINTFN ( +INSPECTPRINTLEVEL) NEARESTCORNER (LASTMOUSEX LASTMOUSEY) \SFFixDestination (MAX.SMALLP) +\HANDLE.RAW.XIP (\EPT.XIP MASKWORD1'S \NSOCKETS XIPTRACEFILE \XIPT.ECHO \NS.WKS.Echo \XECHO.OP.REQUEST + \XIPE.CHECKSUM \XECHO.OP.REPLY \XIPE.NOSOCKET \XIPE.SOCKETFULL \NS.ROUTING.TABLE) \LEAF.READFILEPROP +(\LEAFOP.READ \OPCODE.SHIFT \BYTES.PER.TRIDENT.PAGE \LEN.FILEREQUEST NOFILEPROPERROR \LEAF.GOODSTATUS +\LEN.READANSWER) TTPRINSPACE (\RMARG \DSP) FIND-SYMBOL* (\FIXP) \MAIKO.ALLOCBLOCK ( +\ArrayBlockLinkingCells \MaxArrayNCells UNBOXEDBLOCK.GCT PTRBLOCK.GCT CELLSPERPAGE \MAX.CELLSPERHUNK +\ArrayBlockOverheadCells \ArrayBlockHeaderWords GCREF) \BSP.HANDLE.DATA (\PUPOVLEN) CLISPIFYCROPS ( +PARENT CLISPCHARS FORM CAR/CDRSTRING) \TEDIT.WORDBOUND.READTABLE (\MAXTHINCHAR PUNCT.TTC TEXT.TTC +WHITESPACE.TTC MSPACE NSPACE THINSPACE FIGSPACE) COMP.NUMBERTEST (DONOTHING COMPILE.CONTEXT CODE) +\IDLERKEYACTION (IDLE.KEYACTIONTABLE) SEDIT::COMPLETION (:ABORT) \MAKEFREEARRAYBLOCK ( +\FreeArrayFlagWord) \TEDIT.INTERRUPT.SETUP (TEDIT.INTERRUPTS) \CLEARCB (\LENSHORTCB \CB.FREE) +DWIMARKASCHANGED (LISPXHIST) \MERGEFORWARD (\ArrayFrLst \ArrayFrLst2) \VFMCreateIntervals ( +maxLogicalVolumes) \FTP.SENDVERSION (\FTP.VERSION) DBG::FIND-DEBUGGER-STACK-FRAME (LASTPOS) \LINKBLOCK + (\MinArrayBlockSize \MAXBUCKETINDEX) \SETETHERFLAGS (\MACHINETYPE \DANDELION \DAYBREAK \MAIKO +BYTESPERPAGE \DORADO \InterfacePage) \MERGEBACKWARD (\ARRAYSPACE \ARRAYSPACE2 \ArrayBlockTrailerWords) + \VANILLADISKINIT (UPPERCASEARRAY \MAXCHAR) COMP.VAL (LEVEL CODE AC) TTPRIN1COMMENT (\COMMENTFONT) +\LEAF.GETFILEINFO.OPEN (\OFFSET.FILETYPE \LEN.FILETYPE&SIZE \FT.UNKNOWN \FT.TEXT \FT.BINARY +\OFFSET.AUTHOR \LEN.AUTHOR \OFFSET.BACKUPDATE \LEN.DATE) \DELETEBLOCK? (\MinArrayBlockSize +\FREEBLOCKBUCKETS \MAXBUCKETINDEX \MP.BADDELETEBLOCK) BSPPUTMARK (\PT.MARK) RECREDECLARE2 (RECNAME +RECFIELDS) TEDIT.GETSYNTAX (\MAXTHINCHAR TEDIT.READTABLE WORDDELETE.TTC CHARDELETE.TTC DELETE.TTC +UNDO.TTC REDO.TTC FUNCTIONCALL.TTC CMD.TTC NEXT.TTC EXPAND.TTC) \SPPGETERROR (XIPTRACEFILE) +\VIRTUALDISKDA (\EOFDA) \SFFixClippingRegion (MAX.SMALL.INTEGER) \PREFIXALIGNMENT? ( +\ArrayBlockHeaderWords CELLSPERPAGE CODEBLOCK.GCT \ArrayBlockOverheadCells CELLSPERSEGMENT) +IRM.LOAD-GRAPH (IRM.HOST&DIR) \FM.EDIT-INSERT (CHCODE WINDOW FONT \FM.EDIT-BLOCKSIZE STREAM BOXOFFSET +\FM.EDIT-CONTROLCHARS ECHOCHAR \FM.EDIT-CONTROLCHARSECHO DISPLAYLEFT DISPLAYBOTTOM LEFT) INTEGERLENGTH + (\SMALLP \FIXP MAX.POS.HINUM \SIGNBIT BITS.PER.FIXP MAX.SMALL.INTEGER BITSPERWORD) \BSP.HANDLE.ACK ( +\BSP.MIN.ADATA.TIMEOUT \BSP.MAX.ADATA.TIMEOUT \PT.INTERRUPT \PUPOVLEN \BSP.ALLOCHYSTERESIS +\BSP.MAXPUPALLOC \MAX.PUPLENGTH) SCALE.FONT (DECREASING.FONT.LIST) CL:FIND-ALL-SYMBOLS ( +*PACKAGE-FROM-NAME*) \UPDATE-SYNONYM-STREAM-LINELENGTH-FIELD (%%ECHO-STREAM-DEVICE +%%TWO-WAY-STREAM-DEVICE %%SYNONYM-STREAM-DEVICE) \LOCATE.NSNET (\NS.ROUTING.TABLE \ROUTING.TABLE.MASK +\RT.INFINITY) \DSKOpenDevice (\DSKtopMonitor) INITPUPLEVEL1 (\MACHINETYPE \DANDELION) \NEW2PAGE ( +WORDSPERPAGE) CLISPNOTVARP (VARS NOFIXVARSLST0 NOFIXVARSLST FAULTPOS GLOBALVARS LOCALVARS SPECVARS) +CL:FRESH-LINE (*STANDARD-OUTPUT*) \SFFIXLINELENGTH (MAX.SMALLP) \CHECKFORSTORAGEFULL (\NxtMDSPage +\NxtArrayPage \PagesPerMDSUnit \GUARDSTORAGEFULL \STORAGEFULLSTATE \SFS.NOTSWITCHABLE +\SFS.FULLYSWITCHED \MP.MDSFULL \GUARD1STORAGEFULL \MP.MDSFULLWARNING \SFS.SWITCHABLE \LeastMDSPage +\SecondMDSPage \SecondArrayPage \SFS.ARRAYSWITCHED) \LFOpenDevice (\LFtopMonitor \LFdevice) +DASSEM.DWRITEFN (LAPFLG CODEINDICATOR *READTABLE* FILERDTBL CODERDTBL LOADTIMECONSTANTMARKER) +\NSFILING.GETFILEINFO.FROM.PLIST (\LISP.TO.NSFILING.ATTRIBUTES) EDITFROMFILE (FILELST DWIMWAIT +FILEPKGTYPES) ICMLARRAY.DOWINDOWCOMFN (WindowMenu) CLISPDSUBST (BODY I.V. CLISPARRAY) \UFSOpenDevice ( +\UFStopMonitor) \NSFILING.GETEOFPTR (AppendBit WriteBit) EXPRCHECK (USERWORDS) TEXTICON ( +DEFAULTTEXTICON) SEDIT::DELETE-QUOTE (SEDIT::BASIC-GAP) UALPHORDER (UPPERCASEARRAY) +XCL::PROFILE-ENTRY-VALUE-NAME (XCL:*PROFILE*) DBG::FIND-NAMED-STACK-POSITION (NOSPELLFLG) ALPHORDER ( +\TRANSPARENT \ST.POS16) COURIER.OPEN (\NS.WKS.Courier \SPPDSTYPE.COURIER COURIERTRACEFILE +COURIER.VERSION#) \SFFixFont (MAX.SMALLP) BLOCK (\MP.PROCERROR \HIGHEST.PRIORITY.QUEUE +\MP.STACKRELEASED MYALINK MAX.FIXP BACKGROUNDFNS) \CREATESTARFONT (\DEFAULTCHARSET \ASCIITONS) +\SETBRUSH.IP (MICASPERPOINT STROKEWIDTH ROUND SQUARE BUTT STROKEEND) BKLINBUF (*READTABLE* +\LINEBUF.OFD \MAXTHINCHAR) \TEDIT.SEARCH.CODETABLE (\AlphaNumericFlag \AlphaFlag \OneCharPattern +\AnyStringPattern \OneAlphaPattern \OneNonAlphaPattern \AnyAlphaPattern \AnyNonAlphaPattern +\LeftBracketPattern \RightBracketPattern) \ARRAYBLOCKMERGER (\MaxArrayBlockSize +\ArrayBlockOverheadCells \MAX.CELLSPERHUNK \MinArrayBlockSize) SEDIT::OUTPUT-CR (MICASPERPT) +\PRIMARYTEXTURE (REDTEXTURE BLUETEXTURE GREENTEXTURE) DWIMUNSAVEDEF (COMMENTFLG LISPXHIST) \CLOSELINE +(READING.LBS) CHECK-SYMBOL-NAMESTRING (:EXTERNAL) \INCPARENCOUNT (STRINGDELIM.RC LEFTPAREN.RC +RIGHTPAREN.RC LEFTBRACKET.RC RIGHTBRACKET.RC) \SWAPDISKERROR (\DSK.HARD.ERROR \MAINDISK \SWAPDSK1) +CLISPIFYCROPS0 (FORM) PACKC (\PNAMELIMIT \MAXTHINCHAR \FATPNAMESTRINGP) UnixPrintCommand ( +UNIXPRINTSWITCHES) \LOOKUPFMAP (\ISFMAPOFFSET \ISFMAP \FILLINDA) \GR.GETDEFFN (GLOBAL.RESOURCES) +\FTP.EOL.FROM.PLIST (LF.EOLC CRLF.EOLC CR.EOLC) TB.UPDATE.DISPLAY (WHITESHADE) INVERT.SEGMENT (\ARROW +\TTPAGELENGTH \LOC.ROW.0 \CHARHEIGHT \BMARG \DESCENT BLACKSHADE DOTSHADE \DSP) \RESETLINE (FILLING.LBS +) \WHICHPART (\XVmemFmapHighBase) BRECOMPILE (NLAMA NLAML LAMS LAMA DWIMIFYCOMPFLG NOFIXFNSLST +NOFIXVARSLST SYSLOCALVARS RECOMPILEDEFAULT COMPILE.EXT DWIMWAIT BCOMPL.SCRATCH) \COPYARRAYBLOCK ( +\ArrayBlockHeaderWords \ArrayBlockPassword \ArrayBlockOverheadCells PTRBLOCK.GCT WORDSPERCELL +CODEBLOCK.GCT) CLEARBUF (\LINEBUF.OFD *STANDARD-INPUT* \DEFAULTLINEBUF) DASSEM.DASSEM (CONSTOPS +TOPFRAME :4-BYTE *BC-MACRO-ENVIRONMENT* :3-BYTE NARGMAX NLOCALMAX NFREEMAX OPNIL OPPOP) +RESOLVE-MISSING-PACKAGE (:PACKAGE-NAME :SYMBOL-NAME :EXTERNAL) \NEW.READ.SYMBOL (*READTABLE* FILERDTBL + CODERDTBL *KEYWORD-PACKAGE* *PACKAGE*) \COPYCODEBLOCK (GCREF) PACK (\FATPNAMESTRINGP \PNAMELIMIT) +COMP.GETBASEBITS (COMPILE.CONTEXT EXP CODE) DBG::DEBUGGER-MENU-HELP (PROMPTWINDOW +*DEBUGGER-COMMAND-TABLE*) COPYALL (DONTCOPYDATATYPES) NEARTOP (LASTMOUSEY LASTMOUSEX) \PACK.ITEM ( +\PNAMELIMIT \PNAMESTRING) FIND-DEBUGGER-ENTRY-FRAME (*DEBUGGER-ENTRY-POINTS*) \3MB.CREATENDB ( +\3MBTYPE.PUP) OPEN (:INPUT :DEFAULT :FILE-STREAM-P) \SAVELINEBUF (\LINEBUF.OFD FILLING.LBS +RETYPING.LBS) COMPILER::PRINT-NODE (COMPILER::*NODE-HASH* COMPILER::*INDENT-INCREMENT*) +\ADVANCE.ARRAY.SEGMENTS (\VAL.HI \NxtArrayPage \ArrayFrLst CELLSPERPAGE \MinArrayBlockSize +\LeastMDSPage) TTY.PROCESS (TTY.PROCESS.DEFAULT \PROCESSES \DEFAULTKEYACTION \TTY.PROCESS.EVENT) +\LFINITCASEARRAY (\DISKNAMECASEARRAY) \FM.EDIT-PREPARETOEDIT (WINDOW TIMEOUT) COMPILER::GENCODE-UNWIND-PROTECT + (:ARGUMENT) CL:ARRAY-DIMENSION-LIMIT (CL:ARRAY-TOTAL-SIZE-LIMIT) \PFTransferFilePage (\PhysVolumePage +) \NEW.MKATOM (\MAXTHINCHAR *INTERLISP-PACKAGE*) \BYTELT (\ST.BYTE \ST.CODE) SETDISPLAYHEIGHT ( +\MACHINETYPE \DOLPHIN \DORADO \DisplayStarted BITSPERWORD SCREENHEIGHT) COMP.DELFIX (CODE) +RESOLVE-MISSING-EXTERNAL-SYMBOL (:NAME :PACKAGE) \BYTESETA (\ST.BYTE \ST.CODE) PRINTBELLS (BELLS) +INVERTW (BLACKSHADE) \CARET.FLASH? (\CARET.TIMER \CARET.DEFAULT \CARET.ON.RATE) FB.ANALYZE.PATTERN ( +UPPERCASEARRAY) \WORDELT (\ST.POS16) XCL:PACK (*PACKAGE*) COMP.STFIX (CODE NUMBERFNS) +ONEDINSPECT.SELECTITEM (INSPECTPRINTLEVEL) TTNTHLINE (\FIRSTLINE) \MEDW.SHRINKW (DEFAULTICONFN) +\ARRAYTYPENAME (\ST.CODE) \NSINIT (\NSOCKETS \LOCALNDBS \NS.READY.EVENT) CL:INTERN (*PACKAGE*) +INTERPRESSBITMAP (MICASPERINCH DEFAULT.INTERPRESS.BITMAP.ROTATION) CLISPACKUP (CLISPCHARS CLISPCHARRAY +) INTERN-LITATOM (:INTERNAL *KEYWORD-PACKAGE*) TB.PRINT.LINE (TB.LEFT.MARGIN) OLDFAULT1 (:NAME +:ARGUMENTS) SPY.LEGEND (SPY.BORDERS SPY.FONT) PAGEFULLFN (\LINEBUF.OFD \STOPSCROLLMESSAGE +ERASECHARCODE) COMPILER::GENCODE-THROW (:ARGUMENT) RESOLVE-READER-CONFLICT (:EXTERNAL +*PREFERRED-READING-SYMBOLS*) SPY.MAKEGRAPHNODES (SPY.BORDERS TOPCOUNT SPY.FONT) MAKEBITTABLE ( +\MAXTHINCHAR \MAXCHAR) COMP.FMEMB (COMPILE.CONTEXT CODE DONOTHING EXP) \3MBWATCHER (\MAXWATCHERGETS) +EXCHANGEXIPS (\ETHERTIMEOUT) DBG::DEBUGGER-BUTTON-EVENT (*DEBUGGER-MENU-ITEMS* LASTMOUSEBUTTONS) +\BLOCKDATAP (\DTDSpaceBase) SETLINELENGTH (\TERM.OFD) COMP.EXPR (CODE COMPILETYPELST F +COMPILERMACROPROPS *BC-MACRO-ENVIRONMENT* :MACRO PIFN) \NSFILING.HOSTNAMEP (\SPP.BULKDATA.DEVICE) +OPENPOSTSCRIPTSTREAM (\POSTSCRIPTIMAGEOPS USERNAME \POSTSCRIPT.JOB.SETUP POSTSCRIPT.PAGETYPE +POSTSCRIPT.PAGEREGIONS POSTSCRIPT.IMAGESIZEFACTOR \PS.SCALE0 DEFAULTFONT \POSTSCRIPT.ORIENTATION.MENU) + DISPLAYSTREAMP (\DISPLAYSTREAMTYPES) \LEAF.REPAIR.BROKEN.PUP (\LEAFOP.READ \LEAFOP.WRITE +\LEAFOP.TRUNCATE \LEAFOP.DELETE \LEAFOP.CLOSE \LEAF.BROKEN.STATUS) CONCOCT-SYMBOL (CMLSYMBOLS.SHARED +*INTERLISP-PACKAGE* *LISP-PACKAGE*) \BSP.HANDLE.INTERRUPT (\PT.INTERRUPTREPLY \PUPOVLEN) +\SETFATSYNCODE (\MAXTHINCHAR \NSCHARHASHKEYS \NSCHARHASHOVERFLOW) TERMCHARWIDTH (\CHARMASK) +PACKAGE-ENABLE (*INTERLISP-PACKAGE*) \SPP.DUPLICATE.REQUEST (\SPPDEVICE) COMPILER::PRINT-TREE (:UPCASE +) PLAYTUNE (\MACHINETYPE \DAYBREAK \MAIKO \DANDELION \RCLKMILLISECOND \DLION.RCLKMILLISECOND) +\SHOW.ARRAY.FREELISTS (STORAGE.ARRAYSIZES MAX.SMALLP UNBOXEDBLOCK.GCT \MAXBUCKETINDEX +\FREEBLOCKBUCKETS WORDSPERCELL) FILEPOS (\ST.BYTE \TRANSPARENT FILEPOS.SEGMENT.SIZE) +CL:LEAST-NEGATIVE-LONG-FLOAT (CL:LEAST-NEGATIVE-SINGLE-FLOAT) \LFCreateDirectories (maxLogicalVolumes) + \M44DOEXTENDVMEMFILE (\SPAREDISKWRITEBUFFER \ISFSCRATCHDAS \ISFMAP \ISFCHUNKSIZE \EOFDA \FILLINDA +\MAINDISK \DC.READD \SWAPREQUESTBLOCK BYTESPERPAGE \ISFSCRATCHCAS \DC.WRITED) SHRIEKIFY (FORM) +CL:DOUBLE-FLOAT-EPSILON (CL:SINGLE-FLOAT-EPSILON) C.FLOATUNBOX (COMPILE.CONTEXT) CLISPFORVARS1 ( +LEFT.ARROW.BITTABLE) \STREAMCHARWIDTH (\CHARMASK \UNITWIDTHSVECTOR \MAXTHINCHAR \PRIMTERMTABLE +INDICATE.CCE SIMULATE.CCE REAL.CCE ERASECHARCODE IGNORE.CCE) \PFPutFileMapPage (\PFFileMapFileD) +PACKAGE-HIERARCHY-INIT (*INTERLISP-PACKAGE* :EXTERNAL) \NSFILING.CLOSE.BULKSTREAM (RESETSTATE) +\VFMCorrectBufferP (\VFMvolumeHandle) EDITDATE (COMMENTFLG) NSNAME.TO.STRING (CH.DEFAULT.ORGANIZATION +CH.DEFAULT.DOMAIN) XCL::PROFILE-ENTRY-VALUE (XCL:*PROFILE*) FTPPRINTCODE (FTPDEBUGLOG FTPNOCODES) +\PARSEARRAYSPACE (\ArrayFrLst2 \ARRAYSPACE2 \ARRAYSPACE \ArrayFrLst) CL:LEAST-NEGATIVE-SHORT-FLOAT ( +CL:LEAST-NEGATIVE-SINGLE-FLOAT) FFILEPOS (\MAX.PATTERN.SIZE \MIN.PATTERN.SIZE \MIN.SEARCH.LENGTH +\ST.BYTE \TRANSPARENT FILEPOS.SEGMENT.SIZE \MAXCHAR) CL:LEAST-NEGATIVE-DOUBLE-FLOAT ( +CL:LEAST-NEGATIVE-SINGLE-FLOAT) XCL::SHOW-CLOSURE-CACHE (SI::*CLOSURE-CACHE*) \FM.EDIT-ITEM ( +\FM.EDIT-TTBL \FM.EDIT-TIMEOUT LASTMOUSEBUTTONS) \SETUP.FFILEPOS (BITSPERBYTE \MAXCHAR) +COMP.NUMBERCALL (EXP COMPILE.CONTEXT COMP.UNBOXED.TAG ALLDECLS CODE) CL:LEAST-POSITIVE-LONG-FLOAT ( +CL:LEAST-POSITIVE-SINGLE-FLOAT) C.FLOATBOX (COMPILE.CONTEXT) TEDIT.SETFUNCTION (TEDIT.READTABLE +\MAXTHINCHAR FUNCTIONCALL.TTC NONE.TTC) CHANGEBACKGROUNDBORDER (\MACHINETYPE \DANDELION \DAYBREAK) +FASL::DUMP-ARRAY (:OBJECT) \MAKE.COURIER.REP.STREAM (BothBits) COMP.GETD (COMPILE.CONTEXT EXP) \CHDEL1 + (\LINEBUF.OFD) \BSP.HANDLE.ERROR (\PUPE.SOCKETFULL \PUPE.GATEWAYFULL \PUPE.NOSOCKET \EVENT.ABORT) +DBG::NEAR-BY-REGION (\CURSORDESTWIDTH \CURSORDESTHEIGHT) UnixTempFile (FISTempDir) POSTINITARRAYS ( +\MAXBUCKETINDEX \ArrayFrLst \MaxArrayBlockSize \MinArrayBlockSize \VAL.HI \NxtArrayPage \ARRAYSPACE +\MDSIncrement) \NSFILING.ERRORHANDLER (NSFILING.SHOW.STATUS PROMPTWINDOW) \ECHOCHAR (\PRIMTERMTABLE +\TERM.OFD) \INITIALIZESWAPDISK (\MAINDISK \NWORDS.DSKOBJ \XVmemFmapBase) +COMPILER::COMPILE-SCAN-DEFINE-FILE-INFO (COMPILER::*INPUT-STREAM*) TB.CLOSE/SHRINK (PROMPTWINDOW) +EXPANDING-PAGEFULLFN (\#DISPLAYLINES) \SETRTPPORTS (WORDSPERPORT) \DECPARENCOUNT (STRINGDELIM.RC +LEFTPAREN.RC RIGHTPAREN.RC LEFTBRACKET.RC RIGHTBRACKET.RC) CLREMPARS (CLISPCHARRAY) +CL:LONG-FLOAT-NEGATIVE-EPSILON (CL:SINGLE-FLOAT-NEGATIVE-EPSILON) COMP.STCOPY (LEVEL OPCOPY) +CL::%%NOT-NUMBER-ERROR (:EXPECTED-TYPE :NAME :VALUE) \INTERPRETER1 (MYALINK \STACKHI WORDSPERQUAD +\LITATOM \NEW-ATOM IVARCODE PVARCODE \STACKSPACE) CARETRATE (\CARET.TIMER DEFAULTCARETRATE) +\BSP.TIMERFN (\STATE.OPEN \STATE.ENDSENT \STATE.ENDRECEIVED \EVENT.FORCECLOSE \PT.ADATA \PUPOVLEN) +SEDIT::ICON-COPYFN (:name) CL:MOST-NEGATIVE-DOUBLE-FLOAT (CL:MOST-NEGATIVE-SINGLE-FLOAT) +TEDIT.GETFUNCTION (TEDIT.READTABLE FUNCTIONCALL.TTC \MAXTHINCHAR) CL::%%NOT-RATIONAL-ERROR ( +:EXPECTED-TYPE :VALUE :NAME) \SMASHLINK (MYALINK) COMP.NUMERIC (EXP COMPILE.CONTEXT COMP.UNBOXED.TAG +ALLDECLS CODE) \GETCHAR (\LINEBUF.OFD \PRIMTERMTABLE) \STACKARGPTR (MYALINK \MAXSAFEUSECOUNT) +CL:LEAST-POSITIVE-SHORT-FLOAT (CL:LEAST-POSITIVE-SINGLE-FLOAT) \COURIER.WHENCLOSED (COURIERTRACEFILE) +\FILLBUFFER (*READTABLE* \PRIMTERMTABLE READC.FT \MAXTHINCHAR \PRIMTERMSA RETYPE.TC \TERM.OFD +RETYPING.LBS FILLING.LBS CHARDELETE.TC LINEDELETE.TC WORDDELETE.TC CTRLV.TC EOL.TC ESCAPE.RC +RATOM/RSTRING.FT READ.FT LEFTPAREN.RC LEFTBRACKET.RC STRINGDELIM.RC IMMEDIATE.RMW) BCOMPL (NLAML NLAMA + LAMS LAMA DWIMIFYCOMPFLG NOFIXVARSLST NOFIXFNSLST) TWODINSPECT.DOWINDOWCOMFN (WindowMenu) +\STARTDISPLAY (SCREENWIDTH SCREENHEIGHT WINDOWBACKGROUNDSHADE) SEDIT::EDIT-HELP (PROMPTWINDOW) +COMPILER::COMPILE-SCAN-DECLARE%: (DFNFLG COMPILER::*EVAL-WHEN-COMPILE*) \FILLBUFFER.WORDSEPRP ( +WORDSEPR.TC \MAXTHINCHAR \PRIMTERMSA OTHER.RC RTBLSA) CL::%%RATIO-PRINT (*READTABLE*) \MEDW.MOVEW ( +LAMBDASPLST \CURSORDESTINATION \EM.DISPINTERRUPT \TOPWDS \SCREENBITMAPS) \INTERPRETER-LAMBDA (\STACKHI + MYALINK) \TIME.NOT.SET (PROMPTWINDOW) FB.HANDLE.ABORT.BUTTON (FB.ITEMSELECTEDSHADE) +\FILLBUFFER.BACKUP (\TERM.OFD) UPDATE/SCROLL/REG (SCROLLBARWIDTH) DESCRIBE-VIRTUAL-MEMORY ( +\MACHINETYPE \DORADO \InterfacePage \ISFMAP \LASTVMEMFILEPAGE) SEDIT::COMPUTE-POINT-POSITION-LIST ( +SEDIT::TYPE-COMMENT) CL:DOUBLE-FLOAT-NEGATIVE-EPSILON (CL:SINGLE-FLOAT-NEGATIVE-EPSILON) VMEMSIZE ( +\InterfacePage) FAULTAPPLY (LAMBDASPLST LAMBDATRANFNS) COMP.COMPARENUM (COMPILE.CONTEXT) ASKUSERLOOKUP + (OPTIONS OPTIONSLST) COMPILER::TEST-ALPHA-2 (COMPILER::*NULL-CONTEXT* SYSLOCALVARS GLOBALVARS) +\TFBRAVO.GET.FONTSIZE (USER.CM.ALIST) UPDATESCREENDIMENSIONS (\MACHINETYPE \DOLPHIN \DORADO \DANDELION + \DAYBREAK \MAIKO) \UNPACKDATE (\DayLightSavings MIN.FIXP \TimeZoneComp \4YearsDays) +CL:MOST-POSITIVE-LONG-FLOAT (CL:MOST-POSITIVE-SINGLE-FLOAT) InstallUnixPrinter (PRINTERTYPES) +CL::%%COMPLEX-PRINT (*READTABLE*) \CreateScreenBitMap (\DISPLAYREGION) CL:MOST-NEGATIVE-SHORT-FLOAT ( +CL:MOST-NEGATIVE-SINGLE-FLOAT) \ENTITYEND.PRESS (NopCode LISPENTITYTYPE) VIDEOCOLOR (\MACHINETYPE +\MAIKO \DANDELION MAX.SMALLP \DAYBREAK \DoveDisplay.XorCursor) CL::%%NOT-FLOAT-ERROR (:EXPECTED-TYPE +:NAME :VALUE) \3MBENCAPSULATE (\3MBENCAPSULATION.WORDS) \SETUP-COMPILED-CLOSURE-CALL (WORDSPERCELL +\STACKHI \STACKSPACE \STK.BF \STK.FX) SI::CLEAR-CLOSURE-CACHE (GCREF SI::*CLOSURE-CACHE*) \STOPSCROLL? + (\#DISPLAYLINES) \PRINTFMAP (\XVmemFmapBase \ISFMAPOFFSET) \FILLINSPP (\EPT.XIP \#WDS.SPPINFO) +\CoerceToDisplayDevice (LastCreatedDisplayDevice) CL:MOST-POSITIVE-SHORT-FLOAT ( +CL:MOST-POSITIVE-SINGLE-FLOAT) \LEAF.USE.NEW.CONNECTION (\LEAFOP.READ \LEAFOP.WRITE \LEAFOP.TRUNCATE +\LEAFOP.DELETE \LEAFOP.CLOSE AppendBit WriteBit \LEAFOP.OPEN \LEAF.BROKEN.STATUS) RECREDECLARE1 ( +CLISPARRAY) SPY.MERGEINFO (SPY.MERGEINFO) CL::%%NOT-NONCOMPLEX-NUMBER-ERROR (:EXPECTED-TYPE :NAME +:VALUE) CL:SHORT-FLOAT-EPSILON (CL:SINGLE-FLOAT-EPSILON) COMPILER::GENCODE-TAGBODY-INLINE ( +COMPILER::*CURRENT-FRAME*) \FIXP.FROM.FLOATP (\FIXP MAX.POS.HINUM MAX.SMALL.INTEGER \SMALLP +\EXPONENT.BIAS \8BITS \SIGNBIT \MAX.EXPONENT \HIDDENBIT) CL:MOST-POSITIVE-DOUBLE-FLOAT ( +CL:MOST-POSITIVE-SINGLE-FLOAT) CL:SHORT-FLOAT-NEGATIVE-EPSILON (CL:SINGLE-FLOAT-NEGATIVE-EPSILON) +PROMPTPRINT (PROMPTWINDOW) SHOW.PRESS (FontCode ShowCharactersShortCode ShowCharactersCode) +\NSFILING.WHENCLOSED (\NSFILING.ACTIVE.SESSIONS) \PACKDATE (\TimeZoneComp) CL:LONG-FLOAT-EPSILON ( +CL:SINGLE-FLOAT-EPSILON) MAKEFILES (FILEPKGTYPES FILELST) \NSFILING.DIRECTORYNAMEP (:ASK) +CL:MOST-NEGATIVE-LONG-FLOAT (CL:MOST-NEGATIVE-SINGLE-FLOAT) \IDATESCANTOKEN (*STR*) \FILLRTPPUP ( +\PUPOVLEN) \DSCCOUT (\MAXTHINCHAR \PRIMTERMSA INDICATE.CCE SIMULATE.CCE REAL.CCE IGNORE.CCE) +\FM.EDIT-FINDNEXT (EDITITEM WINDOW) \DSPFONT.IP (SETFONT \DEFAULTCHARSET MICASPERINCH POINTSPERINCH) +FW-UPDATE-OFD-WINDOWS (FW-OFDList) \PROMPTWINDOW.SET.HEIGHT (SCREENHEIGHT) \MAKEFREEBLOCK ( +\STK.FSB.WORD) WFROMDS (\DEFAULTTTYDISPLAYSTREAM) FB.EDITLISPFILE (PROMPTWINDOW) COMP.SHIFT (CODE EXP) + INTERPRESS.BITMAPSCALE (POINTSPERINCH) CLISP-SIMPLE-FUNCTION-P (COMPILERMACROPROPS) \FREESTACKBLOCK ( +\StackAreaSize \MinExtraStackWords \InterfacePage \STK.FSB \STK.GUARD \STK.FX WORDSPERCELL +\MP.STACKFULL WORDSPERQUAD) ONEDINSPECT.REDISPLAY (INSPECTPRINTLEVEL WHITESHADE) CLEANUP ( +CLEANUPOPTIONS NOTLISTEDFILES NOTCOMPILEDFILES) \MEDW.CLOSEW (\CURSORDESTINATION \EM.DISPINTERRUPT +\SCREENBITMAPS) \STKNAME (\STACKSPACE WORDSPERCELL) COMPILER::TRANSFORM-GET/PUT-BASE (:FN :BYTES :ARGS + :META-P :GET) CLISPELL (LISPXHIST) \TFBRAVO.GET.FONTSTYLE (USER.CM.ALIST) \SETUP-ENVIRONMENT-CALL ( +\STACKHI WORDSPERCELL \STK.BF.WORD \STK.FX \STK.FLAGS.SHIFT \#ALINK.OFFSET) PAINTW.SHADE.LABEL ( +MENUFONT) RECOMP? (CHANGES EXPRSLST) TB.SHOW.DELETION (BLACKSHADE TB.LEFT.MARGIN) DISPLAYSTREAMINIT ( +ScreenBitMap SCREENHEIGHT SCREENWIDTH) \LFExtendFile (\LFrunSize) TEDIT.INSERT.OBJECT (TEDIT.SELECTION +) \PFGetFileMapPage (\PFFileMapFileD) COMPILER::GENCODE-SETQ (:ARGUMENT) SEDIT::GET-MENU ( +SEDIT::MENU-DESCRIPTION) CL:LEAST-POSITIVE-DOUBLE-FLOAT (CL:LEAST-POSITIVE-SINGLE-FLOAT) DRIBBLEFILE ( +*DRIBBLE-OUTPUT*) \START.PROCESSES (\HIGHEST.PRIORITY.QUEUE \MP.STACKRELEASED MYALINK \MP.PROCERROR +%#SCHEDULER#) FTPPRINTMARK (FTPDEBUGLOG FTPMARKTYPES) \EVALOTHER (\DEFEVALFNS) \GETMISCNSOCKET ( +\NSOCKETS) \POSTSCRIPT.NSHASH (*POSTSCRIPT-NS-HASH*) COURIERPROGRAM.PRETTYPRINT (SPACEWIDTH) CLISP3A ( +PARENT) PROCESSWORLD (\TopLevelTtyWindow PSTAT.QUIT \HIGHEST.PRIORITY.QUEUE) CLISPCOND1 (NOVALFLG) +SEDIT::PARSE--LIST (SEDIT::LIST-PARSE-INFO) \SETUP.DEFAULT.LINEBUF (READING.LBS \LINEBUF.OFD) +\COERCEASCIITONSFONT (PROMPTWINDOW) ADD.PROCESS (PROC.DEFAULT.PRIORITY \PSTAT.WAITING) \MEDW.OPENW ( +\CURSORDESTINATION \EM.DISPINTERRUPT \SCREENBITMAPS) CHANGEBACKGROUND (WINDOWBACKGROUNDSHADE +\CURSORSCREEN) COMPILEUSERFN1 (COREFLG FN NOSPELLFLG ARGS OTHERVARS DEF) PUTPROPS.PRETTYPRINT ( +MACROPROPS FNSLST *STANDARD-OUTPUT*) MAYBE.PRETTYPRINT.BOLD (DEFAULTFONT) \RUN.PROCESS (\PSTAT.RUNNING + \PSTAT.DELETED) SEDIT::CFV-LIST (SEDIT::TYPE-COMMENT) \CARET.CREATE (DEFAULTCARET) NEWPAGE.IP ( +METERSPERMICA ENCODING DOSAVE MICASPERINCH SETCORRECTTOLERANCE AMPLIFYSPACE) \3MBSENDPACKET ( +\3MBENCAPSULATION.WORDS *MAXIMUM-PACKET-SIZE* \MISCSTATS \EPT.PUP PUPTRACEFILE XIPTRACEFILE) +\LINEBUF.PEEKBIN (\RefillBufferFn) \3MBGETPACKET (\MISCSTATS \3MBLOCALNDB) \RPLPTR (GCREF) SEDIT::SEDITE + (:NAME :TYPE :COMPLETION-FN :ROOT-CHANGED-FN) \MOVE.WINDOWS.ONTO.SCREEN (SCREENWIDTH SCREENHEIGHT +\OLDSCREENWIDTH \OLDSCREENHEIGHT) CROPMARK.DISPLAYFN (CROPMARK.IMAGE) CLISPFOR1 (FIRSTI.V. DUMMYVARS +I.S.OPRSLST) \RELEASE.PROCESS (\PROCESS.NAME.TABLE \PSTAT.DELETED \PSTAT.WAITING) +\FTP.OPENFILE.FROM.PLIST (\FTPFDEV) FAULTEVAL (COMPILERMACROPROPS *MACROEXPAND-HOOK* LAMBDASPLST) +FILEARRAYBASE (\ARRAYSPACE MKI.CODESTARTOFFSET MKI.FirstDataByte) \ADDLEAFSTRING (BYTESPERWORD +\MAX.PUPLENGTH) \LEAF.READFILENAME (\OFFSET.FILENAME \MAXLEN.FILENAME) \FILLBSPPUP (\PUPOVLEN) +CHAT.HOLD (LASTMOUSEBUTTONS) SPY.UPDATE.TITLE (LASTMOUSEBUTTONS) COMPILEFILES0 (NOTCOMPILEDFILES +FILELST) COMP.RPLACD (OPNIL COMPILE.CONTEXT) OPENWINDOWS (\SCREENS) CL:BOOLE (CL:BOOLE-CLR CL:BOOLE-SET + CL:BOOLE-1 CL:BOOLE-2 CL:BOOLE-C1 CL:BOOLE-C2 CL:BOOLE-AND CL:BOOLE-IOR CL:BOOLE-XOR CL:BOOLE-EQV +CL:BOOLE-NAND CL:BOOLE-NOR CL:BOOLE-ANDC1 CL:BOOLE-ANDC2 CL:BOOLE-ORC1 CL:BOOLE-ORC2) COMPEM (COUTFILE +) \LONUM (\FIXP \SMALLP \FLOATP) SETXY.PRESS (SPRUCEPAPERLEFTMICAS SPRUCEPAPERRIGHTMICAS SetXCode +SPRUCEPAPERBOTTOMMICAS SPRUCEPAPERTOPMICAS SetYCode) SEDIT::UNDO-COMMENT-CHANGE (SEDIT::TYPE-COMMENT-WORD +) \PFPutAllocationMapPage (\PFAllocationMapFileD) \HINUM (\FIXP \SMALLP \FLOATP) CL:CLEAR-INPUT ( +*STANDARD-INPUT*) BLOCKCOMPILE1 (FREEVARS COUTFILE) \NEW4PAGE (WORDSPERPAGE) XCL::MAKE-PROTOTYPE ( +XCL::*DEFINITION-PROTOTYPES*) TTNEXTPOS (\ENDBUFFER) \CREATELINEBUFFER (READING.LBS \KEYBOARD.STREAM +\RefillBufferFn CR.EOLC) \PROMISCUOUS.ON (\LOCALNDBS GCONST BROADCASTNSHOSTNUMBER) CONS (CONS) +SEDIT::EXTRACT-CURRENT-SELECTION (SEDIT::TYPE-COMMENT) LINEBUFFER-SKIPSEPRS (\LINEBUF.OFD) +\NEXTCONSPAGE (WORDSPERPAGE) COMPILER::COMPILE-FILE-PROCESS-FUNCTION (:FUNCTION) \CKAPPLYARGS (MYALINK + \STACKHI WORDSPERCELL) \INSPECT/CODE/REPAINTFN (INSPECTPRINTLEVEL) CHAT.MENU (LASTMOUSEBUTTONS +CHATMENUITEMS CHAT.DRIVERTYPES) LINEBUFFER-EOFP (\LINEBUF.OFD) DBG::SET-UP-DEBUGGER-WINDOW (BRKPOS +LASTPOS) CLISP4 (CLISPARRAY VARS CLISPCHARRAY CLISPIFYFN FORM) XCL::PROTOTYPE-DEFINERS-FOR-TYPE ( +XCL::*DEFINITION-PROTOTYPES*) CHAT.EMACS.MOVE (CHAT.EMACSCOMMANDS) RECORDTRAN (PATGENSYMVARS EXPR +FAULTFN RECORDWORDS CLISPRECORDWORDS LAMBDASPLST) \OUTTERMP (\TERM.OFD) COMPILER::*COMPILE-SCAN-CONTEXT* + (:SETF-SYMBOL-FUNCTION-FN :DEFINEQ-FN :DEFCONSTANT-FN :DECLARE%:-FN :DEFINE-FILE-INFO-FN +:PACKAGE-FORM-FN :PROCLAIM-FN :COMPILER-LET-FN :MACROLET-FN :DEFINER-FN :NAMED-PROGN-FN +:PROCESS-FUNCTION-FN :PROCESS-LOOSE-FORM-FN :PROCESS-OUTSTANDING-LOOSE-FORMS-FN) +XCL::PROTOTYPE-DEFN-TYPES (XCL::*DEFINITION-PROTOTYPES*) PRINTLINE (TEXTOBJ) +\PERIODICALLY-WHO-LINE-SHOW-ACTIVE (*WHO-LINE* *WHO-LINE-ACTIVE-PERIOD*) \INTERMP (\LINEBUF.OFD) +TTGIVEHELP1 (SPELLSTR1 SPELLSTR2 \FIX) \MAIKO.CONS.UFN (CDRCODING \LISTP GCREF \LISTPDTD \CDR.ONPAGE +\CDR.NIL \CDR.INDIRECT) \IRM.GET.REF (\IRM.HASHFILE) \UPDATE-WHO-LINE-ACTIVE-FLAG (BLACKSHADE) EDITFNS + (FILELST) CL:CLOSE (AppendBit WriteBit) SEDIT::START-PROCESS (SEDIT::EDITOR-NAME) CAR (CAR) +COMPILER::GENCODE-RETURN (COMPILER::*CURRENT-FRAME*) \STOPDISPLAY (ScreenBitMap) \TEDIT.READTABLE ( +CHARDELETE.TTC WORDDELETE.TTC DELETE.TTC UNDO.TTC NEXT.TTC CMD.TTC REDO.TTC \MAXTHINCHAR) +\SETSPACE.PRESS (SetSpaceXShortCode SetSpaceXCode) COMPILER::IS-CALL-TO (:GLOBAL :FUNCTION) +\TIMER.PROCESS (\TIMERQHEAD PSTAT.TIMEDOUT) CDR (CDR) \SPP.SYSPKT (\SPPHEAD.CC.SYSTEM) +POSTSCRIPT.FONTSAVAILABLE (POSTSCRIPT.FONT.ALIST POSTSCRIPTFONTDIRECTORIES +\POSTSCRIPT.MAX.WILD.FONTSIZE) DISPLAY/NUMBER/READER/TOTAL (WHITESHADE) COMPILER::ESTABLISH-MACRO-IN-COMPILER + (COMPILER::*ENVIRONMENT* :MACRO) COURIER.ABORT.BULKDATA (:BULKDATA :ABORT) \ISDST? (\BeginDST \EndDST +) IRM.GET.DINFOGRAPH (IRM.DINFOGRAPH) DBG::CREATE-DEBUGGER-WINDOW (\TERM.OFD BREAKREGIONSPEC +DEFAULTTTYREGION) \BACKGROUND.PROCESS (BACKGROUNDFNS) RPLACA (RPLACA) MSCOLLECTDATA (TABLE.TO.NOTICED +FNDATA) \SETVAR (\STACKHI) CL:FLOOR (XCL::SFLOOR) CL:CEILING (XCL::SCEILING) EXEC ( +*EXEC-COMMAND-TABLE* *PER-EXEC-VARIABLES*) BRECOMPILE1 (CFILE COUTFILE LCFIL FILEMAPLST) RPLACD ( +RPLACD) \LFExtendFileIfNecessary (\LFtopMonitor) SEDIT::CREATE-COMMENT-WORD-NODE (SEDIT::TYPE-COMMENT-WORD +) \PFGetAllocationMapPage (\PFAllocationMapFileD) TWOD.TRACKCURSOR (LASTMOUSEBUTTONS) \SETFVARSLOT ( +MYALINK FVARCODE \STACKHI) NSOCKETFROMNUMBER (\NSOCKETS) TB.SHOW.COPY.SELECTION (GRAYSHADE +TB.LEFT.MARGIN) CL:DECODE-FLOAT (\EXPONENT.BIAS) PROG (WORDSPERQUAD CELLSPERQUAD) COMPILEUSERFN ( +LAMBDASPLST) EDITCOMS (L) \TEDIT.SHRINK.ICONCREATE (TEDIT.TITLED.ICON.TEMPLATE TEDIT.ICON.FONT) +CL:DECODE-UNIVERSAL-TIME (\TimeZoneComp \DayLightSavings) FW-RECALL-CMD (FW-OFDList) +SEDIT::ASSIGN-FORMAT-QUOTE (:DATA) \PROG0 (MYALINK \STACKHI WORDSPERQUAD \STACKSPACE WORDSPERCELL +\LITATOM \NEW-ATOM PVARCODE) SEDIT::SEDITL (TYPE :NAME :TYPE) INTERPRESSFILEP (FILETYPE.INTERPRESS +NOVERSIONENCODINGSTRING) COMP.LABELS (ALLVARS SUBFNFREEVARS COMPILE.CONTEXT) \PROC.REPEATEDLYEVALQT ( +\TopLevelTtyWindow) COMPILER::*COMPILE-DEFINER-CONTEXT* (:SETF-SYMBOL-FUNCTION-FN :DEFINEQ-FN +:DEFCONSTANT-FN :DECLARE%:-FN :DEFINE-FILE-INFO-FN :PACKAGE-FORM-FN :PROCLAIM-FN :COMPILER-LET-FN +:MACROLET-FN :DEFINER-FN :NAMED-PROGN-FN :PROCESS-FUNCTION-FN :PROCESS-LOOSE-FORM-FN +:PROCESS-OUTSTANDING-LOOSE-FORMS-FN) %%TYPE-SIZE-TO-TYPENUMBER (%%LIT-ARRAY-TYPES %%LIT-ARRAY-SIZES) +\FIXPASSWORD (\IFSERROR.PROTECTION \IFSERROR.PASSWORD \IFSERROR.USERNAME \IFSERROR.NEED.USERNAME +\IFSERROR.CONNECTPASSWORD \IFSERROR.CONNECTNAME \IFSERROR.NO.LOGIN) \INITCONSPAGE (CDRCODING) +IRM.DISPLAY.REF (WINDOW) GREETFILENAME (\MACHINETYPE \MAIKO *COMPILED-EXTENSIONS* USERGREETFILES) +PRINT-CIRCLE-LABEL-P (*PRINT-CIRCLE-HASHTABLE*) \ALLOCMDSPAGE (\MP.BADMDSFREELIST \NxtMDSPage +\MDSIncrement WORDSPERPAGE) \NSFILING.EVENTFN (:TEST :ABORT AppendBit WriteBit) TTY/EDITL (EDITCALLS +LISPXHISTORY) CLISPFOR (DWIMIFYING VARS NOFIXFNSLST NOFIXVARSLST LISPXHIST) \INVALIDATE.PROCESS.WINDOW + (LIGHTGRAYSHADE) CreateCursorBitMap (WORDMASK) DELETE/AND/DISPLAY/LINK (PROMPTWINDOW) CL:COPY-READTABLE + (*READTABLE*) *WHO-LINE-ACTIVE-TIMER* (*WHO-LINE-ACTIVE-PERIOD*) COMPILER::*COMPILE-FILE-CONTEXT* ( +:SETF-SYMBOL-FUNCTION-FN :DEFINEQ-FN :DEFCONSTANT-FN :DECLARE%:-FN :DEFINE-FILE-INFO-FN +:PACKAGE-FORM-FN :PROCLAIM-FN :COMPILER-LET-FN :MACROLET-FN :DEFINER-FN :NAMED-PROGN-FN +:PROCESS-FUNCTION-FN :PROCESS-LOOSE-FORM-FN :PROCESS-OUTSTANDING-LOOSE-FORMS-FN) \SMASHRETURN (MYALINK + *CURRENT-PROCESS*) DRAWMARGINSCALE (WHITESHADE BLACKSHADE) \PROMISCUOUS.OFF (\LOCALNDBS GCONST) +DBG::REUSE-CURRENT-WINDOW (PROMPTWINDOW) GO (MYALINK \STACKHI WORDSPERCELL) SEDIT::SET-PROPS ( +:COMPLETION-FN :ROOT-CHANGED-FN :ENVIRONMENT SEDIT::LISP-EDIT-ENVIRONMENT :PROFILE :EVAL-IN-PROCESS +:EVAL-FN) EVALA (WORDSPERQUAD CELLSPERQUAD) \SET.PROCESS.NAME (\PROCESS.NAME.TABLE) CLISP3C ( +FUNNYATOMLST) \EVALA (MYALINK \STACKHI WORDSPERQUAD \STACKSPACE \LITATOM \NEW-ATOM PVARCODE +WORDSPERCELL) NUMBERPAD.READER.HANDLE.CHAR (RNUMBER.ABORT.BITMAP RNUMBER.CLEAR.BITMAP) +NUMBERPAD.READER.DECODE (TEDIT.READTABLE) CHECKCONSPAGES (CDRCODING \LISTPDTD \LISTP) BSP.PUTINTERRUPT + (\PT.INTERRUPT \PUPOVLEN BYTESPERWORD) CL:DESCRIBE (CL::*DESCRIBE-PRINT-LENGTH* +CL::*DESCRIBE-PRINT-LEVEL*) \MAPMDS (\STORAGEFULLSTATE \SFS.FULLYSWITCHED \DefaultSecondArrayPage +\MaxMDSPage \NxtMDSPage \LeastMDSPage \SMALLP) MSNLAMBDACHECK (MSDATABASELST) \DSPYPOSITION.HCPYMODE ( +MAX.SMALLP) \CHECKCONSPAGE (WORDSPERCELL) UPDATECHANGED1 (MSDATABASELST MSCHANGEDARRAY) +DASSEM.CLEANFNTEST (CONDITIONALS VCONDITIONALS NUMBERFNS CLEANFNLIST NOFREEVARFNS NOSIDEFNS) +CL:ENCODE-UNIVERSAL-TIME (\TimeZoneComp) FTP.BREAKCONNECTION (\FTPCONNECTIONS) \MAYBEPRINTPACKET ( +\EPT.PUP PUPTRACEFLG XIPTRACEFLG PUPTRACEFILE XIPTRACEFILE) CURSOR (\CURRENTCURSOR DEFAULTCURSOR +\SOFTCURSORP) CL:DISASSEMBLE (*STANDARD-OUTPUT*) COMPILER::GENCODE-PROGN (:RETURN :EFFECT) +\ETHEREVENTFN (\DTDSpaceBase \MACHINETYPE \DANDELION \IOPAGE \DAYBREAK RESTARTETHERFNS) +SEDIT::ASSIGN-FORMAT-LIST (SEDIT::TYPE-COMMENT) ERRORSET (SI::NLSETQ-PROCEED-CASE *PROCEED-CASES* +*CONDITION-HANDLER-BINDINGS* :NORMAL) TITLEDICONW (DEFAULTICONFONT WBorder DEFAULTICONWIDTH BLACKSHADE + WHITESHADE) OPT.OPTCHECK (CODE CL:LABELS FRAMES TOPFRAME) CL::%%RATIONAL-FLOAT (\EXPONENT.BIAS) +SI::NLSETQ-PROCEED-CASE (:NAME :SELECTOR :TEST :REPORT) SPP.OPEN (SPP.USER.TIMEOUT) +\PRINT-USING-DEFPRINT (\DEFPRINTFNS) \TEST.PARAGRAPH.LOOKS (not legal after a paragraph look) +CL::%%RATIONALIZE-FLOAT (\EXPONENT.BIAS \8BITS) \KEYHANDLER1 (ALLUP \DLMOUSE.UP \MISCSTATS \KbdFXP +\PERIODIC.INTERRUPT.FREQUENCY \EM.MOUSEX \EM.MOUSEY \EM.REALUTILIN \DLMOUSE.WAITING \DLMOUSE.NORMAL +\EM.UTILIN \EM.KBDAD0 \EM.KBDAD1 \EM.KBDAD2 \EM.KBDAD3 \EM.KBDAD4 \EM.KBDAD5 \InterfacePage +\KEYBOARDEVENT.LAST \KEYBOARDEVENT.FIRST \KEYBOARDEVENT.SIZE \MACHINETYPE \MAIKO \RCLKSECOND) MSUPDATE + (DWIMIFYCOMPFLG CLISPIFYPRETTYFLG COMMENTFLG MSPRINTFLG ANALYZEUSERFNS MSERRORFN) \PRINSTACKP ( +\PNAME.HI *READTABLE*) COMP.STFN (INTERNALBLKFNS) \UNWIND.PROCESS (\PROC.KILLME) DINFO.CREATE.FMENU ( +MENUFONT) MAKE-FILL-POINTER-OUTPUT-STREAM (\FILL-POINTER-STREAM-DEVICE) \PRINSTRING (*READTABLE*) +MAKEFILE (PRETTYFLG *PRINT-BASE* DWIMWAIT MAKEFILEFORMS MAKEFILEOPTIONS) DOFILESLOAD (:COMPILED +*STANDARD-INPUT* DIRECTORIES LDFLG *COMPILED-EXTENSIONS* LOADOPTIONS) COMP.TAGBODY (FRAME +COMPILE.CONTEXT CODE) \SPY.INTERRUPT (MYALINK SPY.NEXT SPY.BUFFER.THRESHOLD) LET (WORDSPERQUAD +CELLSPERQUAD) FB.HARDCOPY.DIRECTORY (MAX.SMALLP FB.HARDCOPY.FONT FB.HARDCOPY.DIRECTORY.FONT ITALICFONT +) LOADUP (SYSFILES) CLISP3 (SUBPARENT TAIL) \LET0 (MYALINK \STACKHI WORDSPERQUAD \STACKSPACE +WORDSPERCELL \LITATOM \NEW-ATOM PVARCODE) CL:FCEILING (XCL::SCEILING) WRITEIMAGEOBJ (HPRINTRDTBL) +SEDIT::QUERY-THROW-AWAY-CHANGES (:DISPLAY) \AB.BACK (\ArrayFrLst \ArrayBlockPassword) CL:DIRECTORY ( +\MACHINETYPE \MAIKO) TTRACKMOUSE (LASTMOUSEBUTTONS \DSP \TTPAGELENGTH \LOC.ROW.0 \BMARG \CHARHEIGHT +\LMARG \RMARG \FONT) \LITPRIN (*READTABLE* *KEYWORD-PACKAGE* \PNAME.HI *PRINT-CASE* :CAPITALIZE) +MAP.PROCESSES (\PROCESSES) \LET* (MYALINK \STACKHI WORDSPERQUAD \LITATOM \NEW-ATOM PVARCODE +\STACKSPACE WORDSPERCELL) SEDIT::PARSE-INDENT-GROUPS (:VERTICAL) COMP.STPOP (OPPOP) +\DSKDISPLAY.REPAINTFN (\DSKDISPLAY.FONT \DSKDISPLAY.BOLD) LET* (WORDSPERQUAD CELLSPERQUAD) +\ELIDE.ELEMENT.CHAR (*READTABLE*) SPP.DESTADDRESS (\#WDS.NSADDRESS) \CONVERTTOFRACTION (BITSPERINTEGER + INTEGERBITS \FIXP) COMP.RETURN-FROM (FRAME COMFN LEVEL CODE) MSUPDATEFN1 (MSDATABASELST) +\DURATIONTRAN (DURATIONCLISPWORDS) CL:FFLOOR (XCL::SFLOOR) \ELIDE.TAIL.STRING (*READTABLE*) +\PFCreateFreePage (\PFFreeFileD) RESTART.PROCESS (\PROC.RESTARTME) \LEAF.ERROR ( +\IFSERROR.FILE.NOT.FOUND \IFSERROR.MALFORMED \IFSERROR.ALLOCATION \IFSERROR.BAD.HANDLE \IFSERROR.BUSY +\IFS.ERROR.BROKEN.LEAF \SHORT.ERROR.PUPLEN \LEAFOP.OPEN PROMPTWINDOW) INSPECT.FLIPSELECTION (GRAYSHADE +) CL:FINISH-OUTPUT (*STANDARD-OUTPUT*) MSSHOWUSE (MSFNTYPES) CLISPIF (DWIMIFYING VARS BREAKFLG EXPR +NOFIXFNSLST NOFIXVARSLST LISPXHIST) WAKE.PROCESS (\PSTAT.RUNNING PSTAT.WAKEUP) ENDLOADUP (USERRECLST +SYSTEMINITVARS MEDLEY-INIT-VARS FILEPKGTYPES) EDITL1 (EDITRDTBL L ATM) \SUSPEND.PROCESS ( +\PSTAT.RUNNING \PSTAT.WAITING \MP.PROCERROR) DINFO.ICONFN (WINDOW TEDIT.TITLED.ICON.TEMPLATE +TEDIT.ICON.FONT) CL::BOA-ARG-LIST-WITH-INITIAL-VALUES (CL:LAMBDA-LIST-KEYWORDS) FIND-EXTERNAL-SYMBOL ( +\FIXP) SPP.DSTYPE (ReadBit) TB.SET.FONT (MAX.SMALLP) CURSORBITMAP (CursorBitMap) CL:ENOUGH-NAMESTRING +(*DEFAULT-PATHNAME-DEFAULTS*) COMP.RETURN (FRAME PROGCONTEXT LEVEL COMFN CODE RETURNLABEL) +WHO-LINE-SHOW-ACTIVE (*WHO-LINE* *WHO-LINE-ACTIVE-PERIOD*) PERIODICALLYRECLAIM (\LASTUSERACTION +RECLAIMWAIT \LASTRECLAIM) INSTALL-PROTOTYPE-DEFN (:NEW) \LITPRIN.INTERNAL (\PNAME.HI UPPERCASEARRAY +*PRINT-CASE* \MAXTHINCHAR :CAPITALIZE) \SEND.ANSWERING.RFC (\STATE.LISTENING WORDSPERPORT \PT.RFC +\PUPOVLEN) BACKSPACEDEL (ERASECHARCODE) SEDIT::SCALE-INDENT (SEDIT::LISP-EDIT-ENVIRONMENT) +\DSPXPOSITION.HCPYMODE (MICASPERPT) CL:FLOAT-PRECISION (\HIDDENBIT) \SPPWATCHER (SPP.USER.TIMEOUT +\SPPHEAD.CC.ACKNOWLEDGE) FB.ICONFN (FB.ICONSPEC FB.ICONFONT) \CURVE (BRUSHWIDTH BRUSHHEIGHT +\CURSORDESTINATION \EM.DISPINTERRUPT \TOPWDS \SCREENBITMAPS LEFTMINUSBRUSH RIGHTPLUS1 BOTTOMMINUSBRUSH + TOP DESTINATIONBASE OPERATION HEIGHTMINUS1 RASTERWIDTH LEFT NBITSRIGHTPLUS1 TOPMINUSBRUSH +DestinationBitMap BRUSHBASE BRUSHRASTERWIDTH COLORBRUSHBASE NBITS DASHLST) \VFMSplit1 (page +\VFMinterval nullVolumePage \VFMlowPtr keyStone \VFMlow) \FTP.NEXTFILE (\FTP.IDLE.TIMEOUT) CLISP3B ( +CLTYP0 TAIL) CROPMARK.CREATE (CROPMARK.IMAGEFNS CROPMARK.DEFAULT.PAGESIZE TEXTOBJ) CL:FTRUNCATE ( +XCL::STRUNCATE) READIMAGEOBJ (IMAGEOBJGETFNS) \KEYBOARDOFF (\EM.DISPINTERRUPT \LispKeyMask +\MACHINETYPE \MAIKO) SEDIT::FINALIZE-MOUSE-SELECTION (SEDIT::PENDING-SELECTION SEDIT::PENDING-LAST-X +SEDIT::PENDING-LAST-Y SEDIT::PENDING-TYPE SEDIT::PENDING-CARET) TB.RECONSIDERRANGE (LASTVISIBLE# +FIRSTVISIBLE# BROWSER) TERM.RESET.DISPLAY.PARMS (CHAT.FONT) \FUNCT1 (MYALINK \STACKHI WORDSPERQUAD +WORDSPERCELL \LITATOM \NEW-ATOM PVARCODE) \DOMOUSECHORDING (\MOUSE.ALLBITS \DLMOUSE.UP +\DLMOUSE.WAITING \MOUSE.LRBIT ALLUP \MOUSE.MIDDLEBIT \DLMOUSE.MIDDLE \MISCSTATS \MOUSE.LEFTBIT +\DLMOUSE.MIDDLE&RIGHT \MOUSE.RIGHTBIT \DLMOUSE.MIDDLE&LEFT \EM.UTILIN) COMP.GO (CODE FRAME LEVEL) +CL:FORCE-OUTPUT (*STANDARD-OUTPUT*) MSNOTICEFILE (FILELST DWIMWAIT) \MAKESTACKP (\STACKP \STACKHI) +\PFTrimHelper (nullVolumePage) \TRACKCURSOR (\LASTUSERACTION \MISCSTATS WORDSPERCELL \CURSORDESTWIDTH +\CURSORHOTSPOTX \MACHINETYPE \DANDELION BITSPERWORD \CURSORDESTHEIGHT HARDCURSORHEIGHT \CURSORHOTSPOTY + \DAYBREAK \MAIKO \EM.MOUSEX \EM.MOUSEY \EM.CURSORX \EM.CURSORY) PROMPTINWINDOW (LASTMOUSEX LASTMOUSEY + WindowTitleDisplayStream) CL:FROUND (XCL::SROUND) FIX89A (LPARKEY CHARLST) \DEFPRINT.BY.NAME ( +*READTABLE*) TB.CONSIDERRANGE (LASTVISIBLE# FIRSTVISIBLE# BROWSER) \SYMBOL.ESCAPE.COUNT ( +UPPERCASEARRAY \MAXTHINCHAR \PNAME.HI *READ-BASE*) COMPILER::GENCODE-MV-CALL (:ARGUMENT) +\MAKEFUNARGFRAME (WORDSPERQUAD CELLSPERQUAD) \TEDIT.BRAVOFILE? (TEXTOBJ) INSPECT.INVERTREGION ( +BLACKSHADE) \OUTCHAR (\DEFAULTOUTCHAR) \DOBUFFEREDTRANSITIONS (\KEYBOARDEVENT.LAST +\KEYBOARDEVENT.FIRST \KEYBOARDEVENT.SIZE) \NUMERIC.PNAMEP (*READTABLE* *READ-BASE*) \PRINTADDR ( +\ADDRMASK) SEDIT::GET-CONTEXT (SEDIT::EDITOR-NAME) THIS.PROCESS (\RUNNING.PROCESS) +\TEXTMENU.TOGGLE.SHOWSELFN (BLACKSHADE) CALLS (GLOBALVARS NOPACKCALLSFLG LAMBDASPLST +MS.VERB.TO.NOTICED) \SOUT (\DISPLAYSTREAMTYPES *DRIBBLE-OUTPUT* \PRIMTERMSA \TERM.OFD) SI::UNWIND ( +MYALINK \STACKHI) FRESHLINE (WriteBit AppendBit) \AB.NEXT (\ArrayFrLst \ArrayBlockPassword) +BRACKET.CURRENT.WORD (\MAXTHINCHAR \PRIMTERMSA WORDSEPR.TC \RDTBLSA) PROCESS.TTY (\TERM.OFD) +CL::ARGUMENT-NAMES (CL:LAMBDA-LIST-KEYWORDS :REQUIRED-ARG) PRINTERRORXIP (XIPERRORMESSAGES) +TEDIT.CHARWIDTH (\MAXTHINCHAR INDICATE.CCE SIMULATE.CCE REAL.CCE IGNORE.CCE) PNAMESTREAMP ( +\PNAMEDEVICE) COMPILER::ALPHA-UNWIND-PROTECT (:STMT COMPILER::*CONTEXT* :CLEANUP COMPILER::*EFFECT-CONTEXT* +) TTRUBOUT (\ARROW \CURSOR \BUFFER) TWODINSPECT.MAKEREGIONS (INSPECTPRINTLEVEL) \CARET.DOWN ( +\CARET.FORCED.OFF.RATE \CARET.TIMER) \STREAM.DEFPRINT (ReadBit OutputBits BothBits AppendBit) +CLISPIFY2D (CLISPCHARS VARS NOFIXVARSLST GLOBALVARS) COPYVM (\InterfacePage \IFPValidKey) +CL:STRING-CAPITALIZE (SLEN) BLIPVAL (MYALINK \STACKSPACE WORDSPERCELL) MSCHECKEMPTY (DWIMWAIT) FIX89 ( +LPARKEY FAULTX EXPR) GIVE.TTY.PROCESS (LASTMOUSEBUTTONS) \VAROFFSET (IVARCODE PVARCODE \STACKHI +FVARCODE) TB.UNDOSELECTION (FIRSTVISIBLE# LASTVISIBLE# TS.IDLE) SETBLIPVAL (MYALINK \STACKSPACE +WORDSPERCELL) \DSKDISPLAY.BUTTONEVENTFN (LASTMOUSEBUTTONS) \SAVEVMBACKGROUND (SAVEVMMAX \InterfacePage + \IFPValidKey SAVEVMWAIT \LASTUSERACTION) SPP.SENDEOM (WriteBit AppendBit) BLIPSCAN (MYALINK +\STACKSPACE) SPY.END (SPY.BUTTON SPY.CLOSED) \DRAWPOINT.IP (MICASPERPT) \GETACCESS (NoBits ReadBit +AppendBit OutputBits BothBits) CH.CHANGE.ITEM (\CH.BROADCAST.SOCKET) EDITBF (MAXLEVEL) GETVARS ( +FAULTPOS) \TEDIT.PEEKBIN.NEW.PAGE (NoBits) \DSPFONT.PRESS (FontCode MicasPerPoint) \RTP.ERROR ( +PUPTRACEFILE RTPEVENTS RTPSTATES) \FTP.CLOSEFILE (\FTPCONNECTIONS FTPDEBUGLOG PROMPTWINDOW +\NO.STORAGE.FULL \BSPFDEV) \NSFILING.LOGIN (\NSFILING.PROGRAM.NAME PROMPTWINDOW \COURIERPROGRAM \FIXP) + INSPECT (INSPECTMACROS \DTDSpaceBase PROMPTWINDOW) \INTERPRESSINIT (MICASPERINCH POINTSPERINCH) +UPDATEFN (MSCHANGEDARRAY MSDATABASELST) \REALFRAMEP (\INTERNAL OPENFNS BRKINFOLST) +\PERIODIC.INTERRUPTFRAME (\PERIODIC.INTERRUPT) PRINTNUM-TO-STRING (NILNUMPRINTFLG) \SPP.PREPARE.INPUT +(\SPPFLAG.ATTENTION \SPPDSTYPE.END \SPPDSTYPE.ENDREPLY \SPPDSTYPE.BULKDATA \XIPOVLEN \SPPHEAD.LENGTH) +INPUT (\LINEBUF.OFD) EDITQF (CLISPTRANFLG) \IPCURVE2 (\SPLINESTEP.IP MICASPERPOINT UBFLOAT3 +MAXSEGSPERTRAJECTORY) LISPERROR (\ERRORMESSAGELIST) MSGETDEF (MSFNTYPES MSDATABASELST) \STKARG ( +IVARCODE PVARCODE \STACKHI) %%TWO-WAY-STREAM-DEVICE-CLOSEFILE (%%TWO-WAY-STREAM-DEVICE +%%ECHO-STREAM-DEVICE) CL::DEFINE-CONSTRUCTORS (:CONSTRUCTOR) \SETACCESS (NoBits ReadBit AppendBit +OutputBits BothBits) MODERNWINDOW.BUTTONEVENTFN (LASTMOUSEBUTTONS LASTKEYBOARD +WindowTitleDisplayStream MODERN-WINDOW-MARGIN) TEDIT.INSERT.UPDATESCREEN (TEDIT.SELECTION) +\SOFTCURSORPOSITION (\EM.DISPINTERRUPT \EM.CURSORX \EM.CURSORY) CL:ISQRT (:EXPECTED-TYPE :NAME :VALUE +:MESSAGE) POSTSCRIPT.INIT (FONTDEFS *POSTSCRIPT-NS-TRANSLATIONS*) WHO-LINE-SET-TIME ( +*WHO-LINE-OLD-TIME*) \SPP.CREATE.STREAMS (\SPPDEVICE) \SEND.ENDREPLY (\PT.ENDREPLY \PUPOVLEN) +\LEAF.FIX.BROKEN.SEQUIN (\SS.OPENING \LEAFOP.RESET \SS.OPEN \SS.CLOSING PROMPTWINDOW +\LEAF.RECOVERY.TIMEOUT) CL:INTEGER-DECODE-FLOAT (\EXPONENT.BIAS) XCL::WHERE-IS-DEFAULT-DEFINE-TYPES ( +FILEPKGTYPES) CLISPIFY2 (CLISPCHARS) VIDEORATE (\MACHINETYPE \DOLPHIN \DORADO \DANDELION) +FB.SET.DEFAULT.NAME.WIDTH (FB.DEFAULT.NAME.WIDTH) COMP.PROG (ALLVARS ALLDECLS LOCALVARS SPECVARS +COMPILE.CONTEXT FRAME CODE OPPOP) ONED.TRACKCURSOR (LASTMOUSEBUTTONS) DISMISS (MAX.FIXP) COMPILER::GENCODE-LET + (COMPILER::*SPECIAL-VENV* :LEXICAL :ARGUMENT) \NSFILING.CLOSEFILE (AppendBit WriteBit) +\SETUP.TYPENUM.TABLE (\MAX.CELLSPERHUNK UNBOXEDBLOCK.GCT INITIALDTDCONTENTS \DTDSpaceBase) +\GC.HANDLEOVERFLOW (\HTOVERFLOW WORDSPERCELL \DTDSpaceBase \LISTP \FIXP \SMALLP \FLOATP +MAX.SMALL.INTEGER) SPP.CLOSE (NoBits) COMPILER::ALPHA-TAGBODY (COMPILER::*TAGBODY-STACK*) +\TFBRAVO.HANDLE.HEADING (IN USER.CM.PARALOOKS MAX.FIXP) PAINTW.READBRUSHSHADE (PAINTW.SHADES) RECLOOK +(USERRECLST) \DRAWLINE.IP (MICASPERPOINT DOSAVESIMPLEBODY { }) \DTEST.UFN (\DTDSpaceBase \FIXP \SMALLP + \FLOATP) MENU.HANDLER (LASTMOUSEBUTTONS MENUHELDWAIT LASTMOUSEX LASTMOUSEY) MKATOM (\PNAMELIMIT) +PFI.MERGE.INDICES (UPPERCASEARRAY) MSOUTPUT (FILELINELENGTH) RECORDFIELD? (USERRECLST) +CL:LISP-IMPLEMENTATION-VERSION (MAKESYSNAME LISP-RELEASE-VERSION MAKESYSDATE) SEDIT::EXPANDREGIONFN ( +:EXPAND DEFAULTFONT) DBG::PRINT-ENTRY-MESSAGE (BRKCOND) \NSFILING.DISCARD.SESSION (:CLOSED) SETUPSTACK + (\STACKSPACE \InitStackSize WordsPerPage WORDSPERCELL \StackAreaSize RESETPC RESETPTR) \MAKENUMBER ( +\SmallNegHi) TTCRLF.ACCOUNT (\TTPAGELENGTH \DSP \LMARG) \SPP.CREATE.STREAM (\SPPDEVICE) +ICONBUTTONEVENTFN (LASTMOUSEBUTTONS WAITINGCURSOR) \LEAF.HANDLE.INPUT (\LEAFOP.ERROR \LEAFOP.CLOSE +\IFSERROR.BAD.HANDLE) \FTP.GENERATEFILES (\FTP.IDLE.TIMEOUT) \PROC.RESUME (MYALINK) +CREATE.NUMBERPAD.READER (BOLDFONT DEFAULTFONT RNUMBER.ABORT.BITMAP RNUMBER.CLEAR.BITMAP) COMP.LAMBDA ( +CODE DONOTHING ALLVARS ALLDECLS LOCALVARS SPECVARS COMPILE.CONTEXT) \GET.EXTERNALFORMAT.FROM.NAME ( +*EXTERNALFORMATS*) \HUNKFIT? (\MDSIncrement CELLSPERPAGE) \PFI.DO.HARDCOPY (\PFI.PROCESSLOCK) EDIT%: ( +L COPYFLG) SCREENBITMAP (ScreenBitMap) \GCMAPTABLE (\HTOVERFLOW WORDSPERCELL \DTDSpaceBase \FIXP +\SMALLP \FLOATP MAX.SMALL.INTEGER \MaxTypeNumber) DEFAULT.INSPECTW.PROPCOMMANDFN (XCL:*EVAL-FUNCTION*) + \INSERTCH (\MAXTHINCHAR) \TIMER.INTERRUPTFRAME (\PERIODIC.INTERRUPT.FREQUENCY \RCLKSECOND \MISCSTATS) + \DSPRIGHTMARGIN.HCPYMODE (MICASPERPT) \INTERPRETER (\MiscFXP WORDSPERQUAD CELLSPERQUAD) \LFFindInfo ( +tLispFile) FILEPATCHBLOCK (OUTX \FreeArrayFlagWord \ArrayBlockHeaderCells \ArrayBlockOverheadCells) +INVERT.BITMAP.B/W (BLACKSHADE) WINDOW.MOUSE.HANDLER (LASTMOUSEX LASTMOUSEY LASTMOUSEBUTTONS +\CURSORSCREEN \CURSORDESTWIDTH) SMALLP (\SMALLP) \PFGetFreePage (\PFFreeFileD) \COERCE.NS.SOCKET ( +\#WDS.NSADDRESS) SEDIT::CONVERT-COMMENT-STRUCTURE (COMMENTFLG SEDIT::LEVEL-3-COMMENT SEDIT:CONVERT-UPGRADE + SEDIT::LEVEL-2-COMMENT SEDIT::LEVEL-1-COMMENT) FIXP (\TT.FIXP) \SPP.DEFAULT.ERRORHANDLER ( +\SPPDSTYPE.BULKDATA) DOAROUNDEXITFORMS (BEFORELOGOUTFORMS AFTERLOGOUTFORMS BEFORESYSOUTFORMS +AFTERSYSOUTFORMS BEFOREMAKESYSFORMS AFTERMAKESYSFORMS) CL::%%ATAN-FLOAT (CL::%%PI/2 CL:PI +CL::%%INV-2-SQRT3 CL::%%PI/3 CL::%%SQRT3 CL::%%2-SQRT3 CL::%%PI/6) \BSP.SENDBUFFER (\PUPOVLEN +MAX.SMALL.INTEGER) TB.DECONSIDERRANGE (LASTVISIBLE# FIRSTVISIBLE# BROWSER) FLOATP (\FLOATP) +\SPP.ESTABLISH (\#WDS.NSADDRESS \SPS.OPEN) \CREATE.THROUGH.EXTERNALFORMAT (:THROUGH CR.EOLC) +\TEDIT.COMMAND.RESET.SETUP (DEFAULTTTYREGION) \TEXTMENU.TOGGLE.CREATE (\TOGGLEIMAGEFNS) LITATOM (COPY +TYPEMASK.N EQ) \PRINTFRAME (PVARCODE \STACKHI FVARCODE \VALSPACE WORDSPERCELL) ONFILE (MSFNTYPES +FILELST) FB.FASTSEECOMMAND (:NEXT) FIXCONTINUE1 (OKREEVALST) LISTP (\LISTP CDRCODING) VIRGINFN ( +*TERMINAL-IO*) PRINTXIPDATA (\XIPOVLEN) \PRINTBF (IVARCODE \STACKSPACE) SPY.START (SPY.BUTTON SPY.OPEN + SPY.FREQUENCY) ARRAYP (\ARRAYP) INSPECTW.CREATE (INSPECTPRINTLEVEL MaxInspectorPropertyValueWidth +MaxInspectorWindowHeight) EDITCALLERS (FILELST SYSFILES DWIMIFYCOMPFLG) FB.MAKEHEADINGWINDOW ( +BLACKSHADE) HASH-TABLE-FOR-DOC-TYPE (*DOCUMENTATION-HASH-TABLE*) \TFBRAVO.FIND.LAST.TRAILER ( +BRAVO.TRAILER.CHARS) BCPLVERSION (\InterfacePage) INTERPRESS.OUTCHARFN (\MAXTHINCHAR NSCHARSETSHIFT) +\DECODETRANSITION (\LASTUSERACTION \MISCSTATS WORDSPERCELL \NKEYS \LASTKEYSTATE \CURRENTKEYACTION +IGNORE.TF LOCKSHIFT.TF NOLOCKSHIFT.TF EVENT.TF 1SHIFTUP.TF 1SHIFTDOWN.TF 2SHIFTUP.TF 2SHIFTDOWN.TF +LOCKUP.TF LOCKDOWN.TF LOCKTOGGLE.TF CTRLUP.TF CTRLDOWN.TF METAUP.TF METADOWN.TF FONTUP.TF FONTDOWN.TF +FONTTOGGLE.TF USERMODE1UP.TF USERMODE1DOWN.TF USERMODE1TOGGLE.TF USERMODE2UP.TF USERMODE2DOWN.TF +USERMODE2TOGGLE.TF USERMODE3UP.TF USERMODE3DOWN.TF USERMODE3TOGGLE.TF \COMMANDKEYACTION \CTRLMASK +\KEYBOARD.META) STACKP (\STACKP) TTPRIN1 (\LMARG \DSP \RMARG) COMPILER::COMPILE-FILE-PROCLAMATION ( +COMPILER::*ENVIRONMENT*) \SCANFORNTENTRY (\AtomHI) \LEAF.TIMEDOUT (\SEQUIN.BROKEN \MAXLEAFTRIES +\SS.OPENING :OPEN PROMPTWINDOW \SS.OPEN PUPTRACEFILE \SS.CLOSING) CL:MACHINE-TYPE (\MACHINETYPE +\DANDELION \DORADO \DAYBREAK \MAIKO) TTYDISPLAYSTREAM (\DEFAULTTTYDISPLAYSTREAM \DISPLAYSTREAMTYPES) +CLISPIFY1 (FORM) \PRINTSTK (.I7 \STACKSPACE) PROCESS.EVAL (\PSTAT.NORESULT) PP (*TERMINAL-IO*) +COMP.SETQ (ALLDECLS COMPILE.CONTEXT) CHARACTER (\MAXTHINCHAR \FATPNAMESTRINGP \PNAMELIMIT +\OneCharAtomBase) REALMEMORYSIZE (\InterfacePage) \PROCESS.EVAL1 (:ABORTED \PSTAT.RUNNING) +\SETXFORM.PSC (:EOL) \COMPUTE.HUNK.TYPEDECLS (CODEBLOCK.GCT \MAX.CELLSPERHUNK PTRBLOCK.GCT) +SHOWPRESSBITMAPREGION (PRESSBITMAPREGION) CL:MACHINE-INSTANCE (\MACHINETYPE \MAIKO \MY.NSHOSTNUMBER) +\PFPutMarkerPage (\PFMarkerFileD \PhysVolumePage) \LEAF.RECONNECT (\LEAFCONNECTIONLOCK \SS.OPEN) PRIN2 + (PLVLFILEFLG *PRINT-LEVEL* *PRINT-LENGTH* *INTERLISP-PACKAGE* *PACKAGE* \LINELENGTH MAX.SMALLP) +TWODINSPECT.ADJUSTSELECTION (INSPECTPRINTLEVEL) \DSPLEFTMARGIN.HCPYMODE (MICASPERPT) COMPILER::ALPHA-SETQ + (:VAR COMPILER::*ENVIRONMENT* :VALUE :STMTS) SET (\STACKHI) \CHANGE.ETHER.TRACING (LASTMOUSEBUTTONS) +\NSADDRESS.DEFPRINT (*NSADDRESS-FORMAT* :DECIMAL) CL:MAKE-RANDOM-STATE (*RANDOM-STATE* :I :J :ARRAY) +CLISPFUNCTION? (NOFIXFNSLST0 NOFIXFNSLST CLISPCHARRAY SPELLINGS2) SAVEONSYSRECLST (COMMENTFLG) +CL::%%MAKE-SMALL-FIXP-ACCESSOR (MAX.SMALLFIXP \SmallNegHi) \GETINTEGERPART (BITSPERWORD INTEGERBITS) +COMPILER::ALPHA-RETURN-FROM (COMPILER::*BLOCK-STACK* :BLOCK :VALUE) %## (L LASTAIL MARKLST UNFIND) +SPP.CLEAREOM (\SPPFLAG.EOM) CL:MAKE-BROADCAST-STREAM (%%BROADCAST-STREAM-DEVICE) REQUIREVERSION ( +\InterfacePage) \DSKDISPLAY.CREATE.WINDOW (\DSKDISPLAY.FONT WBorder WindowTitleDisplayStream) +\FAX.PARSE.NAME (FAXADDRESSES DEFAULTFAXHOST) CL:COMPILED-FUNCTION-P (\ST.CODE) MSINTERPRET ( +MSPRINTFLG MSFNTYPES MSBLIP MSCHANGEDARRAY MSDATABASELST) \PUTSYSBUF (\SYSBUFFER.LAST \SYSBUFFER.FIRST +) CLISPATOM (CLISPFLG FAULTXX WTFIXCHCONLST LPARKEY RPARKEY FAULTX FAULTPOS) PARSERELATION ( +MSDATABASELST) U-CASE (*INTERLISP-PACKAGE* \PNAMELIMIT \FATPNAMESTRINGP) TITLEW.BUTTONEVENTFN ( +INSPECTPRINTLEVEL) \CREATECHARSET.IP (INTERPRESSFONTDIRECTORIES INTERPRESSFONTEXTENSIONS noInfoCode +\MAXTHINCHAR) INITGC (\HTMAIN \HTMAINSIZE \HTOVERFLOW \HTBIGCOUNT WORDSPERPAGE \HTCOLLSIZE) +\GETMISCSOCKET (\PUPSOCKETS) \TEDIT.RESTARTFN (BothBits) CL:LONG-SITE-NAME (XCL:*LONG-SITE-NAME* +XCL:*SHORT-SITE-NAME*) \SEND.ABORT (\PT.ABORT BYTESPERWORD \PUPOVLEN \STATE.SENTRFC) +DO.SHIFTED.SELECTION (LASTMOUSEBUTTONS \DSP \CURSOR \ENDBUFFER \ARROW) \SETBSPTIMEOUT ( +\BSP.OUTSTANDINGDATATIMEOUT \BSP.IDLETIMEOUT) SPY.TOGGLE (\PERIODIC.INTERRUPT WAITINGCURSOR) +SETSYNONYM (MSWORDS) COMPILER::ALPHA-THROW (:TAG :VALUE COMPILER::*NULL-CONTEXT*) \PROCESS.APPLY1 ( +:ABORTED \PSTAT.RUNNING) \SEND.RFC (WORDSPERPORT \PUPOVLEN \PT.RFC) TB.COPYBUTTONEVENTFN ( +LASTMOUSEBUTTONS) FB.HARDCOPY.TOFILE (PRINTFILETYPES) \DRAWCURVE.IP (DOSAVESIMPLEBODY { }) FIXCONTINUE + (DWIMWAIT DWIMKEYLST) PROCESS.APPLY (\PSTAT.NORESULT) DEFAULT.ADDNODEFN (DEFAULT.GRAPH.NODEFONT +DEFAULTFONT) APROPOS (UPPERCASEARRAY) SPY.TREE (*PACKAGE* *READTABLE* *PRINT-CASE* SPY.SHOW.THRESHOLD) + SCANFORWARD (\ARROW) COMPILER::COMPILE-FILE-DEFINE-FILE-INFO (COMPILER::*INPUT-STREAM*) +WRITEPRINTERPORT (WRITEPRINTERPORT) \LEAF.WHENCLOSED (\SS.NOSOCKET \LEAF.NEVER.OPENED +\LEAF.BROKEN.STATUS) \VFMMerge1 (\VFMinterval leftInterval mergeLevel treeDepth \VFMlowPtr \VFMlow) +CL:MERGE-PATHNAMES (*DEFAULT-PATHNAME-DEFAULTS* :NEWEST) \SPPSENDERROR (XIPTRACEFILE) +\GETDEVICEFROMHOSTNAME (\DEVICENAMETODEVICE \FILEDEVICES) MICROCODEVERSION (\InterfacePage) +READPRINTERPORT (READPRINTERPORT) \SEND.END (\PT.END \PUPOVLEN) \HARDCURSORUP (\CURSORDESTINATION +CursorBitMap HARDCURSORHEIGHT HARDCURSORWIDTH \MACHINETYPE \DAYBREAK \MAIKO) \TEDIT.WORDDELETE ( +TEDIT.WORDBOUND.READTABLE \MAXTHINCHAR TEXT.TTC) SEDIT::PARSE--COMMENT-WORD (SEDIT::TYPE-COMMENT-WORD) + NEXTSIZEFONT (DECREASING.FONT.LIST) XCL::WHERE-IS-NOTICE (XCL::*WHERE-IS-HASH-FILE-SIZE* :DIRECTION +:IO) SEDIT::PARSE-INDENT (:VERTICAL) INITDATATYPENAMES (\EndTypeNumber INITIALDTDCONTENTS +\DTDSpaceBase \LITATOM \NEW-ATOM) EDIT4E (CHCONLST2 EDITQUIETFLG CLISPTRANFLG) COMPILER::GENCODE-IF ( +:ARGUMENT :RETURN) CLISPERROR (FAULTFN PARENT TAIL FAULTX) FB.MAKERIGIDWINDOW (SCREENWIDTH) +UPDATECHANGED (MSCHANGEDARRAY) COMPILER::ALPHA-PROGV (:SYMS-EXPR :VALS-EXPR :STMT) \TFBRAVO.PARSE.PARA + (DefaultParagraphLooks USER.CM.CHARLOOKS) FNCHECK (USERWORDS SPELLINGS2) \CURSORDESTINATION ( +\CURRENTCURSOR \MACHINETYPE \DAYBREAK \MAIKO \DANDELION \EM.MOUSEX \EM.MOUSEY \EM.CURSORX \EM.CURSORY +\VAL.HI) FW-INIT-PROPS (FW-Properties PROMPTWINDOW SCREENWIDTH SCREENHEIGHT) \CCODEARGLIST ( +WORDSPERQUAD WORDSPERCELL :INTERLISP) PRESS.BITMAPSCALE (PRESSBITMAPREGION PointsPerMica) +WHO-LINE-SYMBOL-SPACE (\LastAtomPage \AtomFrLst *WHO-LINE-SYMBOL-SPACE*) \CLOSEFILE (ReadBit) +\UNQUEUE.EVENT (\MP.PROCERROR) SEDIT::CHANGE-QUOTE (SEDIT::QUOTE-WRAPPER-LIST) \SHIFT.DOCUMENT ( +\FirstPieceOffset TEXTOBJ) DOICONWINDOWCOM (IconWindowMenuCommands) EDITFPAT (CHCONLST1) +FB.MAYBE.WIDEN.NAMES (FB.OVERFLOW.MAXFRAC FB.OVERFLOW.MAXABSOLUTE) PACK* (\FATPNAMESTRINGP \PNAMELIMIT +) BSPPRINTPUP (\PUPOVLEN \PT.AMARK \PT.MARK) COMP.NOT (COMPILE.CONTEXT) CL:PARSE-NAMESTRING (:TYPE +:DIRECTORY :PATH :SUBDIRECTORY :RELATIVE :WILD :NEWEST) \ADD.CONNECTED.DIR (\CONNECTED.DIRECTORY) +\WWCHANGESCREENSIZE (WINDOWBACKGROUNDSHADE) \CCODEIVARSCAN (\AtomHI BITSPERBYTE IVARCODE) DWIMLOADFNS? + (FAULTX LISPXHIST) \LEAF.IDLE? (\LEAF.CACHETIMEOUT \LEAF.IDLETIMEOUT) \SPP.HANDLE.DATA ( +\SPPDSTYPE.END \SPS.ENDRECEIVED \SPS.DALLYING \SPPDSTYPE.ENDREPLY \SPS.ENDSENT \SPS.CLOSED) +COMPILER::ALPHA-PROGN (:STMTS COMPILER::*CONTEXT* COMPILER::*EFFECT-CONTEXT*) PFI.ENQUEUE ( +\PFI.PROCESSLOCK) \TRANSMIT.STRATEGY (\PT.DATA \PT.ADATA \PT.MARK \PT.AMARK) EDITMBD (EDITEMBEDTOKEN) +HPRINT.IMAGEOBJ (HPRINTRDTBL) OBTAIN.MONITORLOCK (\INTERRUPTABLE) POSTSCRIPT.FONTCREATE (\MAXTHINCHAR +*POSTSCRIPT-NS-HASH*) EDITSW (L) \HARDCURSORPOSITION (\CURSORDESTHEIGHT \CURSORDESTWIDTH +\CURSORHOTSPOTX BITSPERWORD \CURSORHOTSPOTY \MACHINETYPE \DANDELION \DAYBREAK \MAIKO \EM.MOUSEX +\EM.MOUSEY \EM.CURSORX \EM.CURSORY) COMPILER::GENCODE-GO (COMPILER::*CURRENT-FRAME*) \DEVICEEVENT ( +\FILEDEVICES) ICONW.SHADE (WHITESHADE) INITATOMS (\AtomHashTable \AtomHTpages \PNAMELIMIT \ATOMSPACE +\LITATOM \NEW-ATOM) SEDIT::SETF-OF-GET-FORMAT (SEDIT::*FSPEC-TABLE*) CL:PEEK-CHAR (*STANDARD-INPUT*) +DELFROMFILES (FILELST) TIME.SINCE.PACKET (\FIXP WORDSPERCELL \RCLKMILLISECOND) \CLEARBM (WHITESHADE) +CL:PHASE (CL:PI) ONEDINSPECT.MAKEREGIONS (INSPECTPRINTLEVEL) \TFBRAVO.ADD.NAMEDTAB (\NAMEDTAB.IMAGEFNS +) \RTP.HANDLE.RFC (\STATE.LISTENING \STATE.SENTRFC \STATE.OPEN \STATE.ENDSENT \EVENT.RFC \PUPOVLEN +BYTESPERWORD \PT.ABORT) FILES? (FILELST FILEPKGTYPES NOTCOMPILEDFILES NOTLISTEDFILES) +\SPP.CREATE.WATCHER (\SPP.INITIAL.ROUNDTRIP) \STORENSADDRESS (\#WDS.NSADDRESS) FULLPRESSBITMAP ( +PRESSBITMAPREGION MicasPerPoint) \SOFTCURSORUPCURRENT (\EM.DISPINTERRUPT \SOFTCURSORWIDTH +\SOFTCURSORHEIGHT \CURSORDESTWIDTH \CURSORDESTHEIGHT \CURSORDESTRASTERWIDTH \VAL.HI +\CURSORDESTLINEBASE \CURRENTCURSOR \SOFTCURSORUPBM \SOFTCURSORDOWNBM \SOFTCURSORBBT2 \SOFTCURSORBBT3 +\SOFTCURSORBBT4) FIXATOM (FAULTPOS ONLYSPELLFLG PARENT GLOBALVARS SPELLINGS3 CLISPCONTEXT +CLISPIFWORDSPLST :RESPELL CLISPFORWORDSPLST CLISPISWORDSPLST WTFIXCHCONLST CLISPINFIXSPLST +WTFIXCHCONLST1) RELEASE.MONITORLOCK (OLDVALUE \MP.PROCERROR) \PUT.FILING.ATTRIBUTE ( +\NSFILING.ATTRIBUTES) BITMAPCREATE (\MaxBitMapWidth \MaxBitMapHeight \MaxBitMapWords) CH.RETRIEVE.ITEM + (\CH.BROADCAST.SOCKET) OPENPRSTREAM (DEFAULTPAGEREGION \NOIMAGEOPS \PRESSIMAGEOPS) +\NSPRINT.UNSUPPORTED (PROMPTWINDOW) FIXATOM1 (NEWTAIL PARENT TAIL FAULTFN) CL:PPRINT ( +*STANDARD-OUTPUT*) ADDTOCOM1 (COMSNAME) RECORDECLARATIONS (USERRECLST CLISPTRANFLG CLISPRECORDTYPES) +MACROEXPANSION (LAMBDASPLST) DOATTACHEDWINDOWCOM (WindowMenuCommands) PUPSOCKETFROMNUMBER (\PUPSOCKETS +) \PRINTNSADDRESS (\LINELENGTH MAX.SMALLP) SI::MONITOR-UNWIND (SI::*LOCKED-MONITOR* \MP.PROCERROR) +\TEDIT.TEXTBIN.NEW.PAGE (NoBits) CL::%%ASIN-FLOAT (CL::%%ASIN-EPSILON CL::%%ASIN-PPOLY CL::%%ASIN-QPOLY + CL::%%PI/2) \SEND.ACK (\BSP.MAXPUPS \PT.ACK \PUPOVLEN \MAX.PUPLENGTH) FB.HEADINGW.DISPLAY (BLACKSHADE + TB.LEFT.MARGIN) COMPILER:OPTIMIZE-AND-MACROEXPAND (COMPILER::*ENVIRONMENT* COMPILER::*CONTEXT*) +PRINTPUPQUEUE (\PUPOVLEN) COMP.CARCDR (COMPILE.CONTEXT EXP) CL:RANDOM (*RANDOM-STATE*) TB.MAKE.BROWSER + (TB.DELETEDLINEHEIGHT TB.LEFT.MARGIN) FASL::FAT-STRING-P (\ST.POS16) SEDIT::PARSE--COMMENT ( +SEDIT::COMMENT-LEVEL-TABLE) \TAN.OLD (CL:PI PI/180 PI/2 -PI/2 PI/4 -PI/4 UBFLOAT3) \TURN.ON.HUNKING ( +\HUNK.UNBOXEDSIZES UNBOXEDBLOCK.GCT \HUNK.CODESIZES CODEBLOCK.GCT \HUNK.PTRSIZES PTRBLOCK.GCT) +ONEDINSPECT.ADJUSTSELECTION (INSPECTPRINTLEVEL) SEDIT::DEFAULT-EDIT-FN (:DISPLAY :DONTWAIT) SCANBACK ( +\ARROW) COMPILER::COMPILE-FILE-DECLARE%: (COMPILER::*EVAL-WHEN-COMPILE*) \TEDIT.LOOKS ( +TEDIT.KNOWN.FONTS TEDIT.FACE.MENU TEDIT.SIZE.MENU) EDIT4F (CLISPTRANFLG MAXLEVEL LASTAIL) +\SPP.RELEASE.ACKED.PACKETS (\SPP.RETRANSMITQ.SIZE) COMPILER::ALPHA-MV-PROG1 (COMPILER::*CONTEXT* +:STMTS COMPILER::*EFFECT-CONTEXT*) VRULE.DISPLAYFN (BLACKSHADE) \BLTSHADE.IP (PRINTSERVICE +\INTERPRESSSCALE) COURIER.SKIP (BYTESPERWORD) PARSE-NSADDRESS (MASKWORD1'S) ERRORSTRING ( +\ERRORMESSAGELIST) MSTRYSPELLTYPE (SPELLING S MSWORDS) CL:VALUES (MYALINK \AtomHI) CL::TIME-FORMAT ( +:EXEC) TOPW.ADJUSTSELECTION (INSPECTPRINTLEVEL) OPT.DELCODE (FRAMES CL:LABELS) \SIMULATE.UNBIND ( +\STACKHI WORDSPERCELL MYALINK) \LEAF.IDLE (\SEQUIN.NOOP) %%ARRAY-TYPE-TABLE (%%LIT-ARRAY-TABLE +%%LIT-ARRAY-TYPES %%LIT-ARRAY-SIZES) \PFGetMarkerPage (\PFMarkerFileD \PhysVolumePage) CL:VALUES-LIST +(MYALINK \AtomHI) MSHASHLIST1 (MSBLIP BADMARKS) COMPILER::GENCODE-BLOCK (COMPILER::*CURRENT-FRAME*) +MULTIFILEINDEX1 (:CONSECUTIVE :FIRSTPAGE :PART :DONTPRINT EMPRESS#SIDES) \LOADNSADDRESS ( +\#WDS.NSADDRESS) PACKFILENAME (\FILENAME.SYNTAX) SEDIT::PRINT-STRING (*READTABLE*) \MAKE.PROCESS1 ( +MYALINK) COMPILER::GENCODE-CATCH (:ARGUMENT) XCL::DEL-WHERE-IS-DATABASE (XCL::*WHERE-IS-CASH-FILES*) +\PROCESS.MOVEFRAME (WORDSPERCELL PROC.FREESPACESIZE WORDSPERQUAD \STACKHI) PREINITARRAYS (\VAL.HI +\FirstArraySegment \ARRAYSPACE2 \ArrayFrLst) \SOFTCURSORDOWN (\EM.DISPINTERRUPT \SOFTCURSORBBT6) +TB.DO.ITEM.SELECTION (TS.IDLE LASTMOUSEBUTTONS TS.REPLACING TS.ADDING TS.REMOVING TS.EXTENDING.HI +TS.EXTENDING.LO TS.SHRINKING.HI TS.SHRINKING.LO) CL::VALUES-UFN (MYALINK \AtomHI) +SEDIT::INSERT-COMMENT-CHARS (SEDIT::TYPE-COMMENT-WORD) \RELEASE.ETHERPACKET (\FREE.PACKET.QUEUE) +CL:READ-LINE (READ-LINE-RDTBL) \LFCASEARRAYFETCH (\LFCASEARRAY) CL::VALUES-LIST-UFN (MYALINK \AtomHI) +PRINTPACKET (\PACKET.PRINTERS XIPTRACEFILE) \LEAF.OPENFILE (CR.EOLC LF.EOLC CRLF.EOLC DEFAULTFILETYPE) + \WRITEPRESSBITMAP (ShowDotsCode) EDITMV (L LASTAIL) \LEAF.OPENERRORHANDLER (\PUPE.NOSOCKET +PROMPTWINDOW \SS.NOSOCKET \PUPE.NOROUTE) RECORD.REMOVE.COMMENTS (COMMENTFLG) \SPP.HANDLE.ATTN ( +LAMBDASPLST PROMPTWINDOW) \DO.PARAMS.AT.OPEN (:DEFAULT CR.EOLC LF.EOLC CRLF.EOLC STREAM-AFTER-OPEN-FNS +) \CLEARSYSBUF (\PROCESSES) MENUWRESHAPEFN (BLACKSHADE) CL::SET-PARSED-STRUCTURE ( +CL::*PARSED-DEFSTRUCTS*) \GETKEY (\MISCSTATS \FIXP) FIXAPPLY (FAULTX CLISPCHARRAY CHARLST FAULTARGS +FAULTPOS NOSPELLFLG FAULTXX HISTENTRY LPARKEY SPELLINGS1 SPELLINGS2) CL:ROOM (\LASTVMEMFILEPAGE) +\SPP.CREATE.CON (\XIPOVLEN \SPPHEAD.LENGTH \XIPT.SPP \SPP.INITIAL.ALLOCATION \MY.NSADDRESS +\#WDS.NSADDRESS) SORT.NSADDRESSES.BY.DISTANCE (\ETHERTIMEOUT) \RTP.HANDLE.PUP (\PT.RFC \PT.END +\EVENT.END \PT.ENDREPLY \EVENT.ENDREPLY \PT.ABORT \EVENT.ABORT BYTESPERWORD \PT.ERROR \PUPE.NOSOCKET) +\WAIT.FOR.TTY (\TTY.PROCESS.EVENT) \ENQUEUE.TIMER (\TIMERQHEAD \PROCTIMER.SCRATCH) \TTYBACKGROUND ( +\LINEBUF.OFD \KEYBOARD.STREAM TTYBACKGROUNDFNS) \COS.OLD (2PI PI/180 PI/2 -PI/2 3PI/2 CL:PI PI/4 +UBFLOAT3 4/PI) CHARSET (NSCHARSETSHIFT \MAXCHARSET) SEDIT::RELINEARIZE (WHITESHADE) \GETSYSBUF ( +\SYSBUFFER.LAST \SYSBUFFER.FIRST) CL:SHORT-SITE-NAME (XCL:*SHORT-SITE-NAME*) SETFILEINFO (CR.EOLC +CRLF.EOLC LF.EOLC ANY.EOLC) ICMLARRAY.GETMENUWGROUP (MAX.SMALLP) WAIT.FOR.TTY (\TTY.PROCESS.EVENT) +FIX89TYPEIN (FAULTPOS FAULTX) \SPPCONNECTION (\#WDS.NSADDRESS) \RTP.CLEANUP (\EVENT.FORCECLOSE) +\FTPINIT (\BSPFDEV) WHO-LINE-VMEM (\LASTVMEMFILEPAGE \InterfacePage \IFPValidKey) INITDATATYPES ( +INITIALDTDCONTENTS \DTDSpaceBase WORDSPERPAGE \DTDSize \TT.NUMBERP \TT.ATOM \TT.FIXP \TT.NOREF +\TT.SYMBOLP \LITATOM CDRCODING \VAL.HI \LISTP) CHANGECALLERS (DEFAULTRENAMEMETHOD FILELST) \ONSCREENW +(HARDCURSORWIDTH) \NSYSBUFCHARS (\LONGSYSBUF \SYSBUFFER \SYSBUFSIZE) \RECLAIMCODEBLOCK ( +SI::*CLOSURE-CACHE* GCREF) COMPILER::ALPHA-MACROLET (COMPILER::*ENVIRONMENT* :MACRO) +\TYPEGLOBALVARIABLE (\BUILT-IN-SYSTEM-TYPES GLOBALVARS) \SAVESYSBUF (\SAVEDSYSBUFFER) +COURIER.WRITE.SEQUENCE.UNSPECIFIED (BITSPERWORD) \ASSIGNDATATYPE1 (\DTDSpaceBase \MaxSysTypeNum +\EndTypeNumber \DTDSize WORDSPERPAGE \TT.TYPEMASK GCREF) BITBLT.INSERT (\DSP \RMARG \CHARHEIGHT) +\ADD.ROUTING.TABLE.ENTRY (\ROUTING.TABLE.TYPENUM :CULPRIT :EXPECTED-TYPE \ROUTING.TABLE.MASK) +\PFPutLogicalVolumePage (\PFLogicalVolumeFileD) PRINT10TO3 (XIPIGNORETYPES XIPTRACEFILE +\TRANS.OP.REQUEST \TRANS.OP.RESPONSE) CREATEHASHFILE (HASHFILEDEFAULTSIZE HFGROWTHFACTOR HASH.KEY.SIZE +) \SYSBUFP (\LONGSYSBUF \SYSBUFFER) \SFFixY.HCPYMODE (MAX.SMALL.INTEGER) \LEAF.WRITEPAGES ( +\LEAFOP.WRITE \OPCODE.SHIFT BYTESPERPAGE \LEN.FILEREQUEST) \PROC.CODEFORTFRAME (\MP.TOPUNWOUND) +COMPILER::MAYBE-REMOVE-COMMENTS (FORM) BESTNSADDRESS (\RT.INFINITY \NS.ROUTING.TABLE.RADIUS +\ETHERTIMEOUT) \PEEKSYSBUF (\SYSBUFFER) ADDTOFILES? (DWIMWAIT FILEPKGTYPES READBUF ADDTOFILEKEYLST +FILELST) MSSETWORDTYPE (MSWORDS) \KEYBOARDINIT (\SYSBUFFER.LAST \SYSBUFFER.FIRST \SYSBUFSIZE +\MISCSTATS \KEYBOARDEVENT.LAST \KEYBOARDEVENT.SIZE \KEYBOARDEVENT.FIRST \MOUSECHORDMILLISECONDS) +COMP.DECLARE1 (FRAME) \UNQUEUE.TIMER (\TIMERQHEAD) \READNUMBER.FLASHAREA (BLACKSHADE) +\HANDLE.RAW.10TO3 (\EPT.10TO3 \TRANS.OP.REQUEST \MY.NSADDRESS \3MBENCAPSULATION.WORDS +\TRANS.DATALENGTH \TRANS.OP.RESPONSE XIPIGNORETYPES XIPTRACEFILE) CL::ESTABLISH-SETFS-AND-OPTIMIZERS ( +CL::*DEFSTRUCT-INFO-CACHE* :ONLY :ACCESSOR) \SETLOCALNSNUMBERS (\InterfacePage) MOUSECHORDWAIT ( +MAX.SMALLP \RCLKMILLISECOND) %%CANONICAL-CML-TYPES (%%ARRAY-TYPE-TABLE) \PROCESS.EVENTFN (\PROCESSES +\PROCESS.AFTEREXIT.EVENT) EDITMOVESUBTREE (PROMPTWINDOW LASTMOUSEBUTTONS) PAINTW.READBRUSHTEXTURE ( +\CURSORDESTINATION) \ALLOCLOCKED (CELLSPERPAGE) CL:SOFTWARE-VERSION (MAKEINITDATES) \PUTBASEBITS ( +BITSPERWORD) KEYACTIONTABLE (\ORIGKEYACTIONS KEYBOARD.APPLICATION-SPECIFIC-KEYACTIONS) FIXLAMBDA ( +LAMBDASPLST) \DRAWCURVE.PRESS (ScansPerMica) \RTP.INFO.HOOK (BSPSOCKET) \GET.FILING.ATTRIBUTE ( +\NSFILING.ATTRIBUTES) \SETUP.HUNK.TYPENUMBERS (\BUILT-IN-SYSTEM-TYPES \HUNK.PTRSIZES PTRBLOCK.GCT +\HUNK.UNBOXEDSIZES UNBOXEDBLOCK.GCT \HUNK.CODESIZES CODEBLOCK.GCT) \LEAF.READPAGES (\ETHERTIMEOUT +\LEAF.BROKEN.STATUS \LEAFOP.ERROR \LEN.READANSWER ReadBit BYTESPERPAGE) DELETE.LONG.SEGMENT1 (\RMARG) +\RECLAIMARRAYBLOCK (\ArrayBlockHeaderWords \FirstArraySegment \ArrayBlockPassword \MP.BADARRAYRECLAIM +PTRBLOCK.GCT WORDSPERCELL CODEBLOCK.GCT) FB.DISPLAY.COUNTERS (MAX.SMALLP WHITESHADE) +PFI.NEW.LISTFILES1 (:PATHNAME) TEDIT.REDO (WAITINGCURSOR) COMP.DECLARE (SYSSPECVARS SYSLOCALVARS FRAME + COMP.UNBOXED.TAG) \UNKNOWN.UFN (\MP.UNKNOWN.UFN) PPSOC (\STATE.LISTENING RTPSTATES) \PFVolumeNumber ( +\DFSLogicalVolumeHash) \CAR.UFN (CDRCODING \CDR.INDIRECT CAR/CDRERR) CHECKSYNONYM (MSWORDS SPELLING) +SEDIT::INSTALL-SPECIAL-FORMATS (:CLISP :DOTLIST) \CDR.UFN (CDRCODING \CDR.NIL \CDR.ONPAGE +\CDR.INDIRECT CAR/CDRERR) COMPSET (COMPSETKEYLST) \TURN.ON.PROCESSES (\PROCESSES RESETVARSLST) +\KEYBOARDEVENTFN (\MACHINETYPE \InterfacePage \COMMANDKEYACTION \DEFAULTKEYACTION \ORIGKEYACTIONS) +NTYPX (\MDSTypeTable \TT.TYPEMASK) MSPRED (LASTPARSED) \PROC.AFTER.WINDOWWORLD (\TopLevelTtyWindow) +CL:STRING-NOT-EQUAL (BASE1 TYPENUMBER1 BASE2 TYPENUMBER2 SLEN1 SLEN2 OFFSET1) TWODINSPECT.REPAINTFN ( +INSPECTPRINTLEVEL) \TEDIT.CREATEW.FROM.REGION (TEDIT.PROMPTWINDOW.HEIGHT TEDIT.PROMPT.FONT) KEYACTION +(\CURRENTKEYACTION \NKEYS) CL:STRING-GREATERP (BASE1 TYPENUMBER1 BASE2 TYPENUMBER2 SLEN2 SLEN1 OFFSET1 +) SEDIT::DEGRADE-COMMENT (SEDIT::COMMENT-MARKERS) \VFMInsert1 (maxReadPtr \VFMlowPtr \VFMhighPtr +insertKey \VFMhigh insertLevel insertVolumePage) CL::%%TAN-FLOAT (CL:PI CL::%%PI/2 CL::%%TAN-EPSILON +CL::%%TAN-PPOLY CL::%%TAN-QPOLY) \KEYBOARD.MACHINE-SPECIFIC-KEYACTIONS (\SUN.TYPE3KEYBOARD +\InterfacePage \MAIKOKEYACTIONS \SUN.TYPE4KEYBOARD \MAIKOKEYACTIONST4 \SUN.JLEKEYBOARD +\MAIKO-JLE-KEYACTIONS \TOSHIBA.JIS \TOSHIBA-KEYACTIONS) \UNWIND.UFN (MYALINK WORDSPERCELL \STACKHI) +PFI.PRINT.BITMAP (*STANDARD-OUTPUT*) CL::ESTABLISH-PREDICATE (CL::*DEFSTRUCT-INFO-CACHE* :ONLY) +COMPILER::FIND-COPIED-VARIABLE (:LEXICAL COMPILER::*COPY-NODE-TABLE*) COMP.COMMENT (COMPILE.CONTEXT +EXP) CL:STRING-LESSP (BASE1 TYPENUMBER1 BASE2 TYPENUMBER2 SLEN1 SLEN2 OFFSET1) MSINTERPA (OTHERSET) +TOPW.BUTTONEVENTFN (INSPECTPRINTLEVEL LASTMOUSEBUTTONS) RETDWIM (SIDES LISPXHIST FAULTFN FAULTX PARENT + CLISPCHARRAY CHARLST FAULTPOS) \HARDRETURN (\HardReturnFXP) CL:STRING-LEFT-TRIM (SLEN) +*WHO-LINE-LAST-DIRECTORY* (*DEFAULT-PATHNAME-DEFAULTS*) CREATEMDSTYPETABLE (\MDSTypeTable \MDSTTsize +\TT.NOREF \SmallPosHi \SmallNegHi PAGESPERSEGMENT \TT.FIXP \TT.NUMBERP \TT.ATOM \SMALLP \MDSIncrement +\CHARHI \CHARACTERP \MISCSTATS \FIXP) CL:STRING-DOWNCASE (SLEN) \RPLPTR.UFN (GCREF) \LOOKUPPUPNUMBER ( +BROADCASTNSHOSTNUMBER \NS.WKS.PUPLOOKUP \EXTYPE.REQUEST \XIPT.PUPLOOKUP \#WDS.NSHOSTNUMBER +\MAXETHERTRIES \ETHERTIMEOUT \EXTYPE.RESPONSE XIPTRACEFILE \EXTYPE.NEGATIVE \XIPOVLEN) CL::TIME-CALL ( +*TRACE-OUTPUT*) \HTFIND (\MDSTypeTable \HTMAIN \ADDREFCASE \DELREFCASE \SCANREFCASE \MAXHTCNT +\MP.DELREF0 \UNSCANREFCASE \HTCOLLTHRESHOLD \HTCOLLMAX) \GET.COURIER.DEFINITION (\COURIERPROGRAM) MENU + (LASTMOUSEBUTTONS) \GETBRUSHFONT.PRESS (\VecFontDir PointsPerMica) FILEPKGTYPE (FILEPKGTYPEPROPS) +XCL::GET-WHERE-IS-ENTRIES (XCL::*WHERE-IS-CASH-FILES*) CL:STRING< (BASE1 TYPENUMBER1 BASE2 TYPENUMBER2 + SLEN1 SLEN2 OFFSET1) MOVE.TO.START.OF.WORD (\ARROW \CURSOR) \TEDIT.DEFAULTSSEL ( +TEDIT.DEFAULT.CHARLOOKS) \LEAF.TRUNCATEFILE (\LEAFOP.WRITE \OPCODE.SHIFT \LEN.FILEREQUEST) CL:STRING<= + (BASE1 TYPENUMBER1 BASE2 TYPENUMBER2 OFFSET1 SLEN2) CLRPROMPT (PROMPTWINDOW) ADDTOFILE (FILELST) +SI::INTERNAL-THROW (:TAG) COMPILER::COPY-VARIABLE (COMPILER::*COPY-NODE-TABLE* :NAME :SCOPE :KIND +:BINDER) COMP.QUOTE (EXP) \RPLACA.UFN (CDRCODING GCREF \CDR.INDIRECT) OPT.DELETEFRAMECHECK (CODE) +\BSP.PREPARE.OUTPUT (\PT.DATA) FONTNAME.IP (INTERPRESSPRINTWHEELFAMILIES INTERPRESSFAMILYALIASES +CHARACTERCODEVERSION) BITBLT.DELETE (\RMARG \DSP \CHARHEIGHT) SPLITKEY (HASHBITTABLE) \RPLACD.UFN ( +CDRCODING GCREF \CDR.INDIRECT \CDR.MAXINDIRECT \CDR.NIL \CDR.ONPAGE) \PFGetLogicalVolumePage ( +\PFLogicalVolumeFileD) \PROCESS.MAKEFRAME0 (\MP.PROCNOFRAME) TEDIT.CREATEW (PROMPTWINDOW +TEDIT.PROMPTWINDOW.HEIGHT TEDIT.PROMPT.FONT) TEDIT.UNDO (WAITINGCURSOR TEDIT.HISTORY.TYPELST) +\CONS.UFN (CDRCODING \LISTP GCREF \LISTPDTD \CDR.ONPAGE) \TRANSLATE.10TO3 (\EPT.10TO3 +\TRANS.OP.REQUEST \MY.NSADDRESS \TRANS.DATALENGTH) SEDIT::GET-INDENT (SEDIT:*INDENT-ALIST*) \SIN.OLD ( +2PI PI/180 -PI/2 3PI/2 PI/2 CL:PI PI/4 UBFLOAT3 4/PI) CLISPFOR0 (CLISPDUMMYFORVARS VARS NOFIXFNSLST +NOFIXVARSLST HISTENTRY LISPXHIST) TWODINSPECT.BUTTONEVENTFN (INSPECTPRINTLEVEL LASTMOUSEBUTTONS) +ADDSPELL2 (SPELLSTR2) \RESETKEYBOARD (\MACHINETYPE \DANDELION \DAYBREAK \MAIKO \EM.UTILIN ALLUP +\LASTKEYSTATE \EM.KBDAD0 \EM.KBDAD1 \EM.KBDAD2 \EM.KBDAD3 \EM.KBDAD4 \EM.KBDAD5 \EM.REALUTILIN +\DLMOUSE.UP \LASTUSERACTION) CL:STRING> (BASE1 TYPENUMBER1 BASE2 TYPENUMBER2 SLEN2 SLEN1 OFFSET1) +PPROC (\HIGHEST.PRIORITY.QUEUE \TIMERQHEAD \PROCESSES) CL::GET-PS-FROM-ACCESSOR (CL::*PARSED-DEFSTRUCTS* +) MSGETBLOCKDEC (FILELST) RETDWIM1 (CLISPCHARS) CL:STRING>= (BASE1 TYPENUMBER1 BASE2 TYPENUMBER2 SLEN2 + OFFSET1) \DRAWCURVE.PRESS.LINE (SPRUCEPAPERLEFTMICAS SPRUCEPAPERRIGHTMICAS SPRUCEPAPERBOTTOMMICAS +SPRUCEPAPERTOPMICAS) CL:STRING/= (BASE1 TYPENUMBER1 BASE2 TYPENUMBER2 SLEN1 SLEN2 OFFSET1) +\FINDKEY.UFN (MYALINK \STACKHI WORDSPERCELL) \TEXTOPENF-SUBTREE (NoBits STREAM) CL:STRING-UPCASE (SLEN +) \CREATECELL (CDRCODING \LISTP) PPROC1 (\PSTAT.RUNNING) INTCHAR (\SYSTEMINTERRUPTS) NEWDEFC (SVFLG +*ERROR-OUTPUT*) CLISPCAR/CDR (ENDTAIL) GETWINDOWPROP (VALUE) CL::GET-PS-FROM-PREDICATE ( +CL::*PARSED-DEFSTRUCTS*) MSINTERPRETSET (MSBLIP FILELST MSDATABASELST) SETINTERRUPT (\CURRENTKEYACTION + \SYSTEMINTERRUPTS) WTFIX0 (FAULTPOS) GETINTERRUPT (\CURRENTKEYACTION \SYSTEMINTERRUPTS) \PRESSCURVE2 +(ResetSpaceCode MicasPerScan UBFLOAT3) \KEYACTION1 (IGNORE.TF LOCKSHIFT.TF NOLOCKSHIFT.TF EVENT.TF +CTRLDOWN.TF CTRLUP.TF DEADKEY.TF \NKEYS 1SHIFTDOWN.TF 1SHIFTUP.TF 2SHIFTDOWN.TF 2SHIFTUP.TF +LOCKDOWN.TF LOCKUP.TF LOCKTOGGLE.TF METADOWN.TF METAUP.TF FONTUP.TF FONTDOWN.TF FONTTOGGLE.TF +USERMODE1UP.TF USERMODE1DOWN.TF USERMODE1TOGGLE.TF USERMODE2UP.TF USERMODE2DOWN.TF USERMODE2TOGGLE.TF +USERMODE3UP.TF USERMODE3DOWN.TF USERMODE3TOGGLE.TF ALTGRUP.TF ALTGRDOWN.TF ALTGRTOGGLE.TF) +CL:UNREAD-CHAR (*STANDARD-INPUT*) PACKFILENAME.STRING (\FILENAME.SYNTAX) COMPILER::COMPILE-ONE-LAMBDA +(COMPILER::*NULL-CONTEXT*) CL::SUBTYPEP-TYPE-EXPAND (CL::*COMMON-LISP-BASE-TYPES*) \KEYNAMETONUMBER ( +\KEYNAMES) GRAPHBUTTONEVENTFN (LASTMOUSEBUTTONS LASTMOUSEX LASTMOUSEY) \RESTLIST.UFN (MYALINK \STACKHI + WORDSPERCELL) CLISPIFY2B (TAIL PARENT SUBPARENT CLISPTRANFLG CLISPCHARS LAMBDASPLST CLISPARRAY) +RECORDALLOCATIONS (USERRECLST) CL::CACHE-SETF-INFO (CL::*DEFSTRUCT-INFO-CACHE*) PFI.PASS.COMMENT ( +COMMENTFONT *STANDARD-INPUT* *STANDARD-OUTPUT* DEFAULTFONT) \MISCN.UFN (MYALINK) RCOMP3 (COUTFILE) +\TEDIT.DEFAULTS.CARET (TEDIT.DEFAULT.CHARLOOKS) SEDIT::CREATE-NEW-COMMENT (SEDIT::TYPE-COMMENT) +\RPLCONS (CDRCODING \CDR.MAXINDIRECT GCREF \LISTPDTD \CDR.ONPAGE) CL:WRITE-TO-STRING (*PRINT-ESCAPE* +*PRINT-RADIX* *PRINT-BASE* *PRINT-CIRCLE* *PRINT-PRETTY* *PRINT-LEVEL* *PRINT-LENGTH* *PRINT-CASE* +*PRINT-ARRAY* *PRINT-GENSYM*) PPROCREPAINTFN (LASTMOUSEBUTTONS) BCOMPL3 (COUTFILE) GETFILEINFO (NoBits + CR.EOLC LF.EOLC CRLF.EOLC ANY.EOLC) CL:USER-HOMEDIR-PATHNAME (:DSK LOGINHOST/DIR +*DEFAULT-PATHNAME-DEFAULTS*) CL::PRINT-STRUCTURE-INSTANCE (CL::%%DEFAULT-PRINT-FUNCTION) \ENVCALL.UFN +(\MiscFXP) CL:STRING-NOT-LESSP (BASE1 TYPENUMBER1 BASE2 TYPENUMBER2 SLEN2 OFFSET1) CH.DELETE.PROPERTY +(\CH.BROADCAST.SOCKET) CL:TYPE-OF (\DTDSpaceBase) WTFIXLOADEF (DWIMIFYING FASL.EXT COMPILE.EXT +DWIMWAIT DWIMKEYLST) \TYPECHECK.UFN (\DTDSpaceBase) COMPILER::ALPHA-LAMBDA-LIST (:REQUIRED) SEDIT::MAP-FONT + (DEFAULTFONT CLISPFONT ITALICFONT COMMENTFONT BOLDFONT) ICONW.PRINT-JUSTIFIED (BLACKSHADE WHITESHADE) + \STKSCAN (MYALINK \LITATOM \NEW-ATOM BITSPERBYTE IVARCODE \STACKHI PVARCODE FVARCODE) PUTDEFN ( +LOCKEDFNS OUTX) \MAIKO.IO-INTERRUPT (\MAIKO.IO-INTERRUPT-VECTOR \MAIKO.IO-INTERRUPT-FLAGS) PPROCEXTENT + (\PROCESSES) \PROCESS.MAKEFRAME (\MP.PROCERROR \MiscFXP \PSTAT.RUNNING) OPT.FRAMEVAR (CODE OPPOP +OPNIL EQCONSTFN) SET-CONNECTED-DIRECTORY-INTERACTIVELY (*WHO-LINE-DIRECTORIES* PROMPTWINDOW) +CL::CACHE-SLOT-INFO (CL::*DEFSTRUCT-INFO-CACHE*) NSNET.DISTANCE (\ETHERTIMEOUT) \READBINARYBITMAP ( +BYTESPERWORD) \LFMakeDirHole (BYTESPERPAGE) \UNBOXFLOAT3 (MYALINK \STACKSPACE WORDSPERCELL) +CL::BASE-SUBTYPEP (CL::*COMMON-LISP-BASE-TYPES* CL::*BASE-TYPE-LATTICE*) RESETKEYACTION ( +\DEFAULTKEYACTION) COMP.COND (COMPILE.CONTEXT CODE OPTIMIZATIONSOFF) \TYPEMASK.UFN (\MDSTypeTable) +COMPILER::COMPILE-AND-DUMP (:FUNCTION) FIND.PROCESS (\PROCESS.NAME.TABLE) CONTROL-T (PROMPTWINDOW +\CONTROL-T.DEPTH \MISCSTATS) COMPILER::ALPHA-LABELS (:NAME :SCOPE :LEXICAL :KIND :FUNCTION :BINDER) +TWODINSPECT.COPYBUTTONFN (INSPECTPRINTLEVEL) CL:WRITE-STRING (*STANDARD-OUTPUT*) \SELECTPROCESS ( +\PROCESSES INTERRUPTMENUFONT) CL:WRITE-LINE (*STANDARD-OUTPUT*) PFI.INDEX.BREAK (*STANDARD-OUTPUT*) +\EP.PUT.AUX (\FIXP) TTYIN.READ?=ARGS (null \?TAIL \BUFFER) \HANDLE.NS.ROUTING.INFO ( +\XROUTINGINFO.OP.RESPONSE \XIPOVLEN \NS.ROUTING.TABLE \ROUTING.TABLE.MASK \NS.ROUTING.TABLE.RADIUS +\NS.ROUTINGINFO.WORDS \RT.INFINITY WORDSPERCELL \RT.TIMEOUTINTERVAL) \PRINDATUM (\LITATOM \NEW-ATOM +\LISTP \SMALLP \FIXP *PRINT-BASE* *READTABLE* \FLOATP \FLOATFORMAT \STACKP) \DRAWLINE.UFN ( +BITMASKARRAY WORDMASK) DINFO.INVERT.NODE (BLACKSHADE WHITESHADE) PROCESS.STATUS.WINDOW (\PROCESSES +SCREENHEIGHT SELECTIONSHADE MAX.SMALLP) MSNEXTWORD (SENTENCE MSWORDS PARSED) CL:TERPRI ( +*STANDARD-OUTPUT*) \STORE.N.UFN (\STACKSPACE MYALINK WORDSPERCELL) UPDATEFILES (FILEPKGTYPES FILELST) +BRKDWNRESULTS1 (BRKDWNTOTLST) COMPILER::COPY-NODE-VAR-REF (:VARIABLE) \COPY.N.UFN (\STACKSPACE MYALINK + WORDSPERCELL) OPT.FRAMEDEL (CODE OPCOPY CL:LABELS OPNIL OPPOP FRAMES) SHADEITEM (WHITESHADE +MENUSUBITEMMARK) \PRINTBINARYBITMAP (BYTESPERWORD) GETDESCRIPTORS (\DTDSpaceBase) \LFMakeLeaderPage ( +DEFAULTFILETYPE lispFileVersion) \MAIKO.CONSOLE-LOG-PRINT (PROMPTWINDOW) CLISPATOMARE2 (TAIL PARENT) +\RETURN (MYALINK) \PFTransferPage (\MiscFXP) \CURVE2 (\TOPWDS \SCREENBITMAPS \CURSORDESTINATION +\EM.DISPINTERRUPT UBFLOAT3) \ARG0 (MYALINK \STACKSPACE) FIND.SYMBOL (; :INTERNAL :EXTERNAL :INHERITED) + CHECK/MENU/IMAGE (LASTSCREEN) MASTERSCOPEXEC (CLISPCHARRAY) EDIT4E1 (EDITQUIETFLG) CLISPATOMIS2 ( +CLISPLASTSUB) \MYARGCOUNT (MYALINK) ADDMENU (LASTMOUSEX LASTMOUSEY LASTSCREEN) \SETRECLAIMMIN ( +\TERM.OFD) XCL::%%DEFINE-TYPE-GETDEF (*DEFINITION-HASH-TABLE*) TWODINSPECT.DEFAULT.VALUECOMMANDFN (;) +AWAIT.EVENT (MAX.FIXP) \DRAWPOLYGON.IP (MICASPERPOINT DOSAVESIMPLEBODY { MAXSEGSPERTRAJECTORY }) +WIDTHIFWINDOW (WBorder) \FTP.CLEANUP (\FTP.IDLE.TIMEOUT \FTPCONNECTIONS) PRIN3 (*READTABLE* +PLVLFILEFLG *PRINT-LEVEL* *PRINT-LENGTH* *INTERLISP-PRIN1-CASE* *PRINT-CASE*) CL::%%SIN-FLOAT ( +CL::%%PI/2 CL::%%2PI CL:PI CL::%%SIN-EPSILON CL::%%SIN-PPOLY CL::%%SIN-QPOLY) ERROR! (MYALINK +\PROC.RESETME) CL:STRING-NOT-GREATERP (BASE1 TYPENUMBER1 BASE2 TYPENUMBER2 OFFSET1 SLEN2) +MONITOR.AWAIT.EVENT (MAX.FIXP) PRINT-CIRCLE-LOOKUP (*PRINT-CIRCLE-HASHTABLE*) +COMPILER::COPY-NODE-UNWIND-PROTECT (:STMT :CLEANUP) \MAIKO.ETHER-INTERRUPT (\MAIKO.10MB.NDB +\ETHERtopMonitor \ES.PENDING \10MBTYPE.TRANSLATIONS) \CLOSEF.PRESS (BITSPERWORD USERNAME) BCOMPL2 ( +GLOBALVARS RETFNS BLKLIBRARY NOLINKFNS LINKFNS DONTCOMPILEFNS SPECVARS LOCALVARS FNS BLOCKS) +\PRINT-USING-ADDRESS (*READTABLE*) RIGHTW.ADJUSTSELECTION (INSPECTPRINTLEVEL) \PROCESS.GO.TO.SLEEP ( +\PSTAT.WAITING \MP.PROCERROR \HIGHEST.PRIORITY.QUEUE \MP.STACKRELEASED MYALINK) DASHES (LL) +HEIGHTIFWINDOW (WBorder) \SETPRINTLEVEL (\TERM.OFD) CL::%%NSUBST-IF (CL::TREE-FORM) INTERRUPT ( +:CONDITION :FUNCTION) CURRENTINTERRUPTS (\CURRENTKEYACTION) \MAIKO.10MBTURNONETHER (\IOPAGE +\InterfacePage \#WDS.NSHOSTNUMBER) DO.INSERT.LINE (\DSP \DESCENT \RMARG \LMARG \TTPAGELENGTH +\CHARHEIGHT \BMARG) CL::%%COMPLEX-NSUBST (CL::TREE-FORM) XCL::%%DEFINE-TYPE-DELDEF ( +*DEFINITION-HASH-TABLE*) FW-INIT-MENUS (FW-Commands) COMPILE-IN-CORE (SYSSPECVARS FREEVARS) +COMPILER::ALPHA-IL-FUNCTION (COMPILER::*ENVIRONMENT* :FN :ARGS) MSPATHS4 (SEEN MSDATABASELST) +RESET.INTERRUPTS (\SYSTEMINTERRUPTS) DINFO.SHOWGRAPH (SCREENHEIGHT SCREENWIDTH) COMPILE1 (FREEVARS) +CL::%%SIMPLE-NSUBST (CL::TREE-FORM) \READPRINTERPORT.UFN (\MACHINETYPE \DANDELION) COMPILER::COPY-NODE-THROW + (:TAG :VALUE) REPLACEHASHKEY (HASHFILERDTBL) CL::\OPENSTREAM-WITH-DEFAULT ( +*DEFAULT-PATHNAME-DEFAULTS* LOADPARAMETERS) RIGHTW.BUTTONEVENTFN (INSPECTPRINTLEVEL LASTMOUSEBUTTONS) +FIND.PACKAGE (READSYS.PACKAGE.FROM.NAME \HASH.NULL.VALUE) XCL::%%DEFINE-TYPE-FILE-DEFINITIONS (:NAME +:TYPE) CL::%%NSUBST-IF-NOT (CL::TREE-FORM) DEFINEFONT.IP (MAKEVEC FINDFONT MICASPERPOINT MODIFYFONT) +COMP.GENFN (COMFN) OPT.CLEANFRAME (FRAMES) \GCRECLAIMCELL (\LISTP CDRCODING \CDR.INDIRECT GCREF +\CDR.MAXINDIRECT \FINALIZATION.FUNCTIONS \DTDSpaceBase) MSVERBED (LASTPARSED) +TWODINSPECT.DEFAULT.TITLECOMMANDFN (LASTMOUSEBUTTONS ;) MAKE-KEYWORD (*KEYWORD-PACKAGE*) SPAWN.MOUSE ( +PROCESS.MAXMOUSE MAX.SMALLP) \GCSCAN1 (\HTMAIN) PRINT-BITMAPS-NICELY (*PRINT-LENGTH*) \PSW.SELECTED ( +WHITESHADE SELECTIONSHADE) SPLIT89 (L SKORLST3) FB.MAKE.BROWSER.BUSY (FB.ITEMSELECTEDSHADE) \GCSCAN2 ( +\HTSTKBIT \HTMAIN) COMPILER::ALPHA-IF (:PRED COMPILER::*PREDICATE-CONTEXT* :THEN :ELSE) +\WRITEPRINTERPORT.UFN (\MACHINETYPE \DANDELION) CHARCODEP (\MAXNSCHAR) PRESSBITMAP (PRESSBITMAPREGION +MicasPerPoint) FASL::DUMMY-HANDLE (:STREAM :OUTPUT :STATE :BLOCK :HASH) FB.GREATEST.PREFIX ( +UPPERCASEARRAY) \RETCALL (\MiscFXP) CHANGE-TTY-PROCESS-INTERACTIVELY (\PROCESSES) DINFO.LAYOUTGRAPH ( +MENUFONT BLACKSHADE) HASTTYWINDOWP (\DEFAULTTTYDISPLAYSTREAM) BRKDWNCOMPILE2 (LOCALVARS SYSLOCALVARS) +MAKE-UNICODE-TRANSLATION-TABLES (N-TRANSLATION-SEGMENTS MISSINGCODE TRANSLATION-MASK TRANSLATION-SHIFT + MAX-ALIST-LENGTH TRANSLATION-SEGMENT-SIZE) DO?CMD.ERRORHANDLER (\?TAIL) OPT.FRAMELOCAL (SYSSPECVARS) +\POP.N.UFN (MYALINK \STACKSPACE) SEDIT::COPY-SELECTION-COMMENT (SEDIT::TYPE-STRING) NCREATE2 ( +\DTDSpaceBase GCREF) COMPILER::CONSTANT-EXPRESSION-P (:NONE) \FTP.RENAMEFILE (\NO.UNIMPLEMENTED +FTPDEBUGLOG) \ATOMCELL (\LITATOM \NEW-ATOM \DEF.HI \VAL.HI \PLIST.HI \PNAME.HI \NEWATOM-DEFOFFSET +\NEWATOM-VALOFFSET \NEWATOM-PLISTOFFSET \NEWATOM-PNAMEOFFSET \OLDATOMSPACE) FW-RE-INIT (FW-Font +WBorder FW-OFDList) CLISPATOMARE1 (CLISPLASTSUB) \NSFILING.GENERATEFILES (\LISP.TO.NSFILING.ATTRIBUTES + PROMPTWINDOW) CL::PROCESS-ACCESSORS (:ONLY) \VFMGet1 (getLevel \VFMlow \VFMhigh) MASTERSCOPE1 ( +MASTERSCOPEDATE LISPXHISTORY) \HANDLE.RAW.3TO10 (\EPT.3TO10 \TRANS.OP.REQUEST \10MBENCAPSULATION.WORDS + \TRANS.DATALENGTH \MY.NSADDRESS \TRANS.OP.RESPONSE \10MBTYPE.3TO10 XIPIGNORETYPES XIPTRACEFILE) +EDITFINDP (MAXLEVEL) MAKEHASHKEY (HASH.HEADER.SIZE HASHSCRATCHLST HASH.KEY.SIZE) HEADINGOP.IP ( +MAKESIMPLECO { HEADINGFONTNUMBER MICASPERINCH }) UNMARKASCHANGED (FILELST) FB.EXPUNGE?.MENU ( +FB.CLOSE.MENU.ITEMS FB.BROWSERFONT) FB.MERGE.DIRECTORIES (\FILENAME.SYNTAX) CLISPCAR/CDR2 (FAULTPOS) +\PUTBASEBYTE (BITSPERBYTE BYTESPERWORD) \LEAF.EVENTFN (\SS.ABORT) INSERTHASHKEY (HASHLOADFACTOR) +\PSWOP.SELECTED (PROCMENU LAMBDASPLST PROCESS.STATUS.WINDOW) OPENRTPSOCKET (\STATE.CLOSED +\LOCALPUPNETHOST \EVENT.OPEN \EVENT.OPENLISTENING \EVENT.OPENIMMEDIATE \RTP.DEFAULTTIMEOUT \STATE.OPEN + \STATE.ENDRECEIVED) \CLEAR.ROUTING.TABLE (\ROUTING.TABLE.TYPENUM \ROUTING.TABLE.MASK WORDSPERCELL) +PRINTROUTINGTABLE (\NS.ROUTING.TABLE \PUP.ROUTING.TABLE \ROUTING.TABLE.TYPENUM :CULPRIT :EXPECTED-TYPE + \ROUTING.TABLE.MASK WORDSPERCELL *NSADDRESS-FORMAT* :DECIMAL :HOPS) FB.FINISH.COMMAND ( +FB.ITEMUNSELECTEDSHADE) ATAN (UBFLOAT3 PI/2 CL:PI 2PI 180/PI) COMPILE.FILE.APPLY (COMPILED.FILE) +DIRECTORYNAME (\CONNECTED.DIRECTORY LOGINHOST/DIR) SEDIT::SHIFT-BLOCK (WHITESHADE) ADDSPELL1 ( +SPELLSTR1) KEYDOWNP (BITSPERBYTE \LASTKEYSTATE) ADDTOVAR (DFNFLG) LOOKUP-SYMBOL (;) KEYNUMBERP (\NKEYS +) SPYOBJ.DISPLAY (SPY.FONT) UNTRACE (XCL::*TRACED-FNS* :IN) XIPAPPEND.STRING (\XIPOVLEN BYTESPERWORD +\MAX.XIPDATALENGTH) PROCESS.BACKTRACE (PROCESS.STATUS.WINDOW PROCBACKTRACEHEIGHT BACKTRACEFONT) +CLIPBOARD-COPY-STREAM (CLIPBOARD-FORMAT) TTYINFOSTREAM (\DEFAULTTTYDISPLAYSTREAM PROMPTWINDOW) +UNMAKEHARDCOPYMODESTREAM (\DISPLAYIMAGEOPS) \ADDBASE (\FIXP \SMALLP \FLOATP MAX.SMALL.INTEGER +MAX.POS.HINUM) \UPDATE.PROCESS.WINDOW (\PROCESSES LIGHTGRAYSHADE PROCESS.STATUS.WINDOW) MSPATHS1 (SEEN + MSBLIP MSDATABASELST LL) LEAF.ASSURE.FINISHED (\ETHERTIMEOUT) \VAG2 (BITSPERBYTE) OPT.MERGEFRAMEP ( +MERGEFRAMETYPES SYSSPECVARS FRAMES FREEVARS MERGEFRAMEFLG) COMPILER::COPY-NODE-TAGBODY ( +COMPILER::*COPY-NODE-TABLE* :TAGS :STMTS) BAKTRACE (BREAKDELIMITER) MAKE-VECTOR ( +CL:ARRAY-TOTAL-SIZE-LIMIT) \DUMP.COURIERPROGRAMS (\COURIERPROGRAM PRETTYCOMFONT DEFAULTFONT) +COMPILER::ALPHA-FUNCTIONAL-FORM (COMPILER::*CONTEXT*) CREATETEXTUREFROMBITMAP (BITMASKARRAY) +EDITFERROR (EDITCOMS DWIMWAIT DUMMY-EDIT-FUNCTION-BODY) EXEC-FORMAT (*CURRENT-EVENT*) MOUSECONFIRM ( +PROMPTWINDOW MOUSECONFIRMCURSOR LASTMOUSEBUTTONS) DIRECTORY (FILEINFOTYPES DIRCOMMANDS \MACHINETYPE +\MAIKO ASKUSERTTBL) METASHIFT (\ORIGKEYACTIONS) MARKASCHANGED (MARKASCHANGEDFNS) \CHARWIDTH.PRESS ( +\CHARMASK) CL:ELT (:NAME :INDEX) \VFMGetInterval (\VFMvolumeHandle \VFMintervals treeDepth \VFMnullKey +) EDITF2 (LISPXHIST) \SLOWIPLUS2 (\FIXP \SMALLP \FLOATP MAX.POS.HINUM MAX.SMALL.INTEGER) EDITF ( +LASTWORD) \SLOWIDIFFERENCE (\FIXP \SMALLP \FLOATP MAX.SMALL.INTEGER MAX.POS.HINUM \SIGNBIT) +ATTACHEDWINDOWS (*ATTACHED-WINDOW-COMMAND-SYNONYMS*) COMPILER::COPY-NODE-SETQ (:VAR :VALUE) SHIFTDOWNP + (\LASTKEYSTATE) COMP.PUNT (EXP) \SLOWITIMES2 (\FIXP \SMALLP \FLOATP MAX.POS.HINUM MIN.FIXP +MAX.SMALL.INTEGER) OLD.FIND.SYMBOL (\MAXTHINCHAR \ORIGREADTABLE \AtomHashTable \ATOMSPACE \LITATOM +\NEW-ATOM) GETPROBE (PROBELST) \SLOWIQUOTIENT (\FIXP \SMALLP \FLOATP MAX.POS.HINUM MAX.SMALL.INTEGER +\SIGNBIT \OVERFLOW) MSPATHS2 (SEEN MSBLIP MSDATABASELST) DIRECTORYNAMEP (\CONNECTED.DIRECTORY) BRKDWN1 + (BRKDWNLST) DOWINDOWCOM (WindowMenuCommands) PUTHASHFILE (HASHTEXTCHAR) SEDIT:*INDENT-ALIST* ( +:VERTICAL :KEYWORD-ARG :HORIZONTAL :HORIZONTAL-ATOM :SQUASH :DATA :BINDING :BINDING-LIST :COND-CLAUSE +:LAMBDA-LIST) IREMAINDER (\FIXP \SMALLP \FLOATP MAX.POS.HINUM MAX.SMALL.INTEGER \SIGNBIT \OVERFLOW) +SYMBOL.PACKAGE (\PNPSPACE \OLDATOMSPACE \NEWATOM-PNAMEOFFSET *UNINTERNED-PACKAGE-INDEX* +READSYS.PACKAGE.FROM.INDEX) HOSTNAMEP (\FILEDEVICENAMES \FILEDEVICES) EDITDEF.FNS (*ERROR-OUTPUT*) +GETHASHKEY (HASHFILERDTBL HASH.HEADER.SIZE HASH.KEY.SIZE) COMPILER::ALPHA-GO (COMPILER::*TAGBODY-STACK* + :TAGBODY :TAG) XIPAPPEND.WORD (BYTESPERWORD \XIPOVLEN \MAX.XIPDATALENGTH) FW-RESET (FW-OFDList) +APPENDTOVAR (DFNFLG) SEDIT:GET-FORMAT (SEDIT::*FSPEC-TABLE*) GETHASHFILE (HASHTEXTCHAR) \SLOWLLSH1 ( +\FIXP \SMALLP \FLOATP) \BSP.PREPARE.INPUT (\PT.MARK \PT.AMARK \PUPOVLEN) SUBATOM (\PNAMELIMIT) +UNSAVEBLOCK? (FILELST DWIMWAIT) RECORDACCESS (USERRECLST) \SLOWLLSH8 (\FIXP \SMALLP \FLOATP) +\SPP.HANDLE.INPUT (\XIPT.SPP \XIPT.ERROR \XIPE.NOSOCKET \XIPOVLEN \SPPHEAD.LENGTH +\SPP.RETRANSMITQ.SIZE SPP.MIN.TIMEOUT SPP.USER.TIMEOUT) COMPILER::COPY-NODE-RETURN ( +COMPILER::*COPY-NODE-TABLE* :BLOCK :VALUE) COMP.AC (EXP DONOTHING) \SLOWLRSH1 (\FIXP \SMALLP \FLOATP) +TRACE (XCL::*TRACED-FNS*) CH.DELETE.ALIAS (\CH.BROADCAST.SOCKET) EDITDEFAULT1 (SPELLSTATS1) +CLISPATOM2D (TAIL CLISPARRAY TYP) \SLOWLRSH8 (\FIXP \SMALLP \FLOATP) SAVESET (DFNFLG UNDOSIDE0) <= ( +CL::%%<=) \VFMKillBuffer (\VFMbufferPool) EDITH (EDITRDTBL HISTSTR0 P.A.STATS) \SLOWLOGOR2 (\FIXP +\SMALLP \FLOATP) PUPNET.DISTANCE (\ETHERTIMEOUT) WINDOWADDFNPROP (LAMBDASPLST) +\NSFILING.PARSE.FILENAME (MAX.SMALLP) TB.BROWSER.BUSY (TB.CROSSCURSOR) \SLOWLOGAND2 (\FIXP \SMALLP +\FLOATP) \COURIER.GETDEF (\COURIERPROGRAM) COMPILER::ALPHA-FUNCTION (COMPILER::*CONTEXT* +COMPILER::*NULL-CONTEXT*) SEDIT::RECOMPUTE-FORMAT-VALUES (SEDIT::TYPE-LITATOM) %%SETELT (:NAME :INDEX) + SETUP.OFFICE.KEYBOARD (\DLIONOSDKEYACTIONS \DOVEOSDKEYACTIONS) UnixPrint (UnixPrinterName) +\SLOWLOGXOR2 (\FIXP \SMALLP \FLOATP) SETUP-WHOLINE-TIMER (*WHO-LINE*) FIND.START.OF.WORD (\ENDBUFFER +\MAXTHINCHAR \PRIMTERMSA WORDSEPR.TC \RDTBLSA) CL::%%SQRT-FLOAT (\EXPONENT.BIAS) +\FM.EDIT-UPDATEAFTERDELETE (WHITESHADE BITMAP BOXOFFSET ITEMWIDTH FONT WINDOW DISPLAYLEFT +DISPLAYBOTTOM MAXWIDTH) WRITE-UNICODE-INCLUDED (XCCS-SET-NAMES) LSH (MAX.FIXP) \SPP.INFO.HOOK (SPPCON) + \BSP.CLEANUP.INPUT (\PUPOVLEN MAX.SMALL.INTEGER) COMPILER::COPY-NODE-PROGV (:SYMS-EXPR :VALS-EXPR +:STMT) TWODINSPECT.SETELT (INSPECTPRINTLEVEL XCL:*EVAL-FUNCTION*) SYMBOL.PNAME (\PNAMELIMIT \PNPSPACE +\ATOM.HI \NEWATOM-PNAMEOFFSET) TTYIN.PRINTARGS (*PRINT-CASE* :UPCASE *READTABLE* :ALLOW-OTHER-KEYS +\CURSORCOL \LMARG) MAKETEDITFORM (TEDITSUPPORT TEDITSYSTEMDATE) \PFFindFileSize (MAX.FIXP) EDITRAN ( +EDITOPS) \MAIKO.INPUT.INTERRUPT (\ES.PENDING \10MBTYPE.TRANSLATIONS) \VFMGet (treeDepth \VFMnullKey +\VFMvolumeHandle \VFMmaxKey \VFMinterval) ADD/AND/DISPLAY/LINK (PROMPTWINDOW) OPT.FRAMEMERGE ( +MERGEFRAMEMAX OPPOP OPNIL) SEDIT:RESET-FORMATS (SEDIT::*FSPEC-TABLE*) ONEDINSPECT.REPAINTFN ( +INSPECTPRINTLEVEL) \DEFAULTSTATE.IP (CURRENTTRANS) EDITDEFAULT (EDITOPS HISTORYCOMS EDITCOMSA +EDITCOMSL EDITRDTBL COMS LPARKEY HISTSTR0) \TEDIT.WINDOW.OPS (LASTMOUSEBUTTONS \TEDIT.MAKESPLITCURSOR +\TEDIT.MOVESPLITCURSOR \TEDIT.UNSPLITCURSOR \TEDIT.SPLITCURSOR) SPYOBJ.HEIGHT (SPY.MAXLINES) ARCTAN2 ( +-PI CL:PI 180/PI) COMPILE.FILE.DEFINEQ (DONTCOMPILEFNS) COMPILER::ALPHA-FLET (COMPILER::*ENVIRONMENT*) + SEDIT::PAINT-TO-END-OF-LINE (WHITESHADE) \PAPERSIZE.IP (DEFAULTINTERPRESSMEDIUM KNOWN.MEDIA.SIZES +MICASPERMILLIMETER) EDITCOM (EDITRACEFN) TTSETCURSOR (\TTPAGELENGTH \CHARHEIGHT \BMARG \DSP) +\UNBOXFLOAT2 (MYALINK \STACKSPACE WORDSPERCELL) CL:ADJUST-ARRAY (CL:ARRAY-RANK-LIMIT +CL:ARRAY-TOTAL-SIZE-LIMIT) \MAP.ROUTING.TABLE (\ROUTING.TABLE.TYPENUM :CULPRIT :EXPECTED-TYPE +\ROUTING.TABLE.MASK WORDSPERCELL) CREATEMENUEDWINDOW (WindowTitleDisplayStream WBorder) UNSAVEFNS ( +MSFNTYPES RECOMPILEDEFAULT FILELST) CLISPCAR/CDR1 (VAR1) \UNBOXFLOAT1 (MYALINK \STACKSPACE +WORDSPERCELL) INSPECT/AS/RECORD (USERRECLST) \COURIER.PUTDEF (\COURIERPROGRAM DFNFLG) EDUP (LASTAIL +CLISPTRANFLG) \POPSTATE.IP (} SETXY) RANDACCESSP (\LINEBUF.OFD) CURSOR.INIT (ScreenBitMap) CLISPLOOKUP + (EXPR FAULTFN) BRKDWNSETUP (BRKDWNARGS BRKDWNLABELS) \LEAF.FLUSH.CACHE (:CACHE) ARCTAN (-PI/2 PI/2 +UBFLOAT3 180/PI) EDIT!UNDO (P.A.STATS UNDOLST) \SLOWIGREATERP (\FIXP \SMALLP \FLOATP \SIGNBIT) +\GETSTREAM (*STANDARD-INPUT* \DEFAULTLINEBUF \KEYBOARD.STREAM \LINEBUF.OFD *STANDARD-OUTPUT* \TERM.OFD +) CHANGERECORD (MSRECORDTRANFLG) EDITCOMA (USERMACROS EDITMACROS COM0 L0 EDITESTATS EDITRDTBL) +CLISPATOM2C (TYP TAIL) \SLOWFGREATERP (\SIGNBIT \FIXP MAX.POS.HINUM MAX.SMALL.INTEGER \SMALLP +\EXPONENT.BIAS \8BITS \MAX.EXPONENT \HIDDENBIT) COPYCHARS (CR.EOLC CRLF.EOLC LF.EOLC) +\MAIKO.10MBWATCHER (\MAXWATCHERGETS) EDITCOML (EDITMACROS EDITISTATS CLISPTRANFLG) \RTP.HANDLE.INPUT ( +\EVENT.TIMEOUT) SPYOBJ.IMAGEBOX (SPY.FONT) \INCHAR (LF.EOLC ANY.EOLC CR.EOLC CRLF.EOLC \DEFAULTINCCODE +) EDITCOM1 (LISPXHIST) RECORD.FIELD.VALUE (FIELDS.IN.CREATE USINGEXPR USINGTYPE) EQUAL (\FLOATP +\SMALLP \FIXP \IMAX.FLOAT \IMIN.FLOAT MAX.SMALLP \STACKP \COMPILED-CLOSURE) \SPP.RETRANSMIT.NEXT ( +\SPP.RETRANSMITQ.SIZE) WRITE-UNICODE-MAPPING-FILENAME (UNICODEDIRECTORIES) \CURVEEND ( +\CURSORDESTINATION \EM.DISPINTERRUPT \TOPWDS \SCREENBITMAPS LEFTMINUSBRUSH RIGHTPLUS1 BOTTOMMINUSBRUSH + TOP DESTINATIONBASE OPERATION HEIGHTMINUS1 RASTERWIDTH LEFT BRUSHWIDTH NBITSRIGHTPLUS1 TOPMINUSBRUSH +DestinationBitMap BRUSHHEIGHT BRUSHBASE BRUSHRASTERWIDTH COLORBRUSHBASE NBITS DISPLAYDATA DASHLST) +EDITSAVE (DONTSAVEHISTORYCOMS COMPACTHISTORYCOMS EDITHISTORY HISTSTR0 HISTORYCOMS) \BOXIPLUS (\FIXP +\SMALLP \FLOATP MAX.SMALL.INTEGER) BRKDWNFBOXES (BDLST) BCOMPL1A (DFNFLG COUTFILE COMMENTFLG) +\BOXIDIFFERENCE (\FIXP \SMALLP \FLOATP MAX.SMALL.INTEGER) XIPAPPEND.BYTE (\XIPOVLEN \MAX.XIPDATALENGTH +) TEDIT.PROMPTPRINT (STREAM PROMPTWINDOW) UNDOEDITCOM1 (EDITUNDOSTATS) \HCPYMODEDSPPRINTCHAR ( +\MAXTHINCHAR \PRIMTERMSA INDICATE.CCE SIMULATE.CCE REAL.CCE ERASECHARCODE IGNORE.CCE) +SI::CANONICALIZE-ADVICE-SYMBOL (:IN) \COPYOPENFILE (\MACHINETYPE \MAIKO) XIPAPPEND.CELL (BYTESPERWORD +\XIPOVLEN BYTESPERCELL \MAX.XIPDATALENGTH) EDITSMASH1 (L ATM) FW-FORGET-CMD (FW-OFDList) +\LFDirectoryScrambled (PROMPTWINDOW) IDIFFERENCE (IDIFFERENCE) \MAIKO.10MBSENDPACKET (\MY.NSADDRESS +\10MBTYPE.TRANSLATIONS) ONEDINSPECT.BUTTONEVENTFN (INSPECTPRINTLEVEL LASTMOUSEBUTTONS) +\CREATEPIECEORSTREAM (NoBits DEFAULTFONT TEDIT.DEFAULT.FMTSPEC) BITMAPTEDITOBJ (BITMAPIMAGEFNS) +IGREATERP (IGREATERP) EDITSAVE1 (HISTSTR3) SHOWSHADE.IP (DOSAVESIMPLEBODY { MASKRECTANGLE }) +COMPILE.CHECK.ARGTYPE (ARGTYPE.VARS COUTFILE) CL::STEP-PRINT-VALUES (CL::*STEP-IO*) SEDIT::OUTPUT-STRING + (SEDIT::STRINGWIDTH) IQUOTIENT (IQUOTIENT) FIXPRINTIN (LISPXHIST) IDLE.BITMAP (DEFAULTFONT) +SYMBOL.VALUE (\ATOM.HI \NEWATOM-VALOFFSET) CLOSEF (\LINEBUF.OFD \TERM.OFD) BRKDWNFORM (BRKDWNTYPES) +EDIT2F (L CLISPTRANFLG) MSSEEKTYPE (MSWORDS SPELLING) GET-TWOD-DISPLAYW (MAX.SMALLP) PFI.SORT.INDICES +(*PFI-INDEX-ORDER*) EDIT4F1 (L CLISPTRANFLG C3) CL::%%LOG-FLOAT (\EXPONENT.BIAS CL::%%LOG-PPOLY +CL::%%LOG-QPOLY CL::%%LOG2) PRETTYFILEINDEX (*STANDARD-OUTPUT* *STANDARD-INPUT* EMPRESS#SIDES +*PFI-TYPES* *PFI-MAX-WASTED-LINES* :COMMON *COMMON-LISP-READ-ENVIRONMENT* :DONTPRINT :NONE :FIRSTPAGE +:PART) FB.COMPILECOMMAND (*DEFAULT-CLEANUP-COMPILER*) COMPILER::COPY-NODE-PROGN (:STMTS) EDIT1F ( +CLISPTRANFLG) COMP.BOOL (COMPILE.CONTEXT) \10MBSETUPRECEIVER (\TELERAIDIOCB \10MBPACKETLENGTH) +DIFFERENCE (DIFFERENCE) DEBUGGER (DBG::*IN-THE-DEBUGGER* \LINEBUF.OFD \TERM.OFD *STANDARD-INPUT* +*STANDARD-OUTPUT* \#DISPLAYLINES \PRIMTERMTABLE \PRIMTERMSA *NOT-YET-EVALUATED* +DBG::*DEBUGGER-TERMINAL-TABLE* AUTOBACKTRACEFLG :READ *DEBUGGER-COMMAND-TABLE* *EXEC-COMMAND-TABLE* +XCL:*DEBUGGER-PROMPT*) ARGTYPE.STATE (ARGTYPE.VARS) CL::STEP-PRINT (CL::*STEP-PRINT-LEVEL* +CL::*STEP-PRINT-LENGTH* CL::*STEP-IO* CL::*STEP-INDENTATION-LEVEL* CL::*STEP-MAX-INDENTATION*) +SEDIT::OUTPUT-SPACE (DEFAULTFONT) \BIGNUM.COMPARE (MIN.INTEGER MAX.INTEGER) EDITBELOW (C) +PFI.LOOKUP.NAME (*PFI-INDEX-ALIST*) EXEC-EVAL (LISPXHISTORY LISPXHIST) EDITSMASH (L EDITUNDOSAVES +CLISPTRANFLG) EDIT4F2 (EDITQUIETFLG) ADD-EXEC (XCL:*PROFILE*) HISTORYFIND1 (LST Z CHCONLST1) +TEDIT.PUT.PCTB (*TEDIT-FILE-READTABLE* MAX.SMALLP TEDIT.DEFAULT.CHARLOOKS LF.EOLC +TEDIT.DEFAULT.FMTSPEC) \HDCPYDISPLAYINIT (\DISPLAYIMAGEOPS) ENTER-DEBUGGER-P (HELPCLOCK HELPTIME) +MAKEFILE1 (:SAVE) \NSFILING.CONFLICTP (AppendBit WriteBit) BPNT (L) TAN (PI/180) COMPILER::COPY-NODE-OPCODES + (:BYTES) EDIT.RI (L) ONEDINSPECT.COPYBUTTONFN (INSPECTPRINTLEVEL) \SPP.PROBE (\SPPHEAD.CC.ACKNOWLEDGE +) OPT.DEFREFS (CL:LABELS) \UFStoOtherCopyMess (DEFAULTFILETYPELIST DEFAULTFILETYPE) TRANS.IP ( +TRANS.IPOP) CHANGEVAR (COMPILE.TIME.CONSTANTS) EDITBF1 (CLISPTRANFLG) MSSEEK-WORD (SPELLING) STKPOS ( +MYALINK) \VFMReadNext (\VFMbuffer \VFMold \VFMlow \VFMmaxKey nullVolumePage) \CURSORUP ( +\CURSORDESTINATION HARDCURSORWIDTH HARDCURSORHEIGHT ScreenBitMap \CURSORHOTSPOTX \CURSORHOTSPOTY) +SET-READTABLE-INTERACTIVELY (\READTABLEHASH) UNCOPYATOM (READSYS.PACKAGE.FROM.NAME) \TEDIT.CARET ( +BXCARET) CLISPBROADSCOPE1 (CLISPCONTEXT) COMPILER::ALPHA-EVAL-WHEN (COMPILER::*LITERALLY-NIL*) MSWORD? + (MSWORDS) \VFMGetBufferFor (\VFMvolumeHandle \VFMbufferSize) SORT.PUPHOSTS.BY.DISTANCE (\ETHERTIMEOUT +) EDITNTH (CLISPTRANFLG) UNBREAK (BROKENFNS :IN) CL::%%RANDOM (CL:MOST-POSITIVE-FIXNUM CL::%%RANDOM-SIZE +) \NSFILING.OPEN.HANDLE (\NSFILING.NULL.HANDLE) \FM.EDIT-MOVECARET (EDITITEM FONT LEFT MOUSEX WINDOW +BOXOFFSET STREAM) \TAN-FLOAT (CL:PI PI/2 -PI/4 -PI/2 PI/4 \TAN-EPSILON UBFLOAT3) \COURIER.DELDEF ( +\COURIERPROGRAM) COMPILER::COPY-NODE-MV-PROG1 (:STMTS) DEFAULTMAKENEWCOM (FILEPKGCOMSPLST) +COMP.PICOUNT (ARGVARS) \LOCATE.PUPNET (\PUP.READY \PUP.ROUTING.TABLE \ROUTING.TABLE.MASK \RT.INFINITY) + SEDIT::SUBNODE-CHANGED-LIST (SEDIT::TYPE-DOTLIST) \BIGNUM.QUOTIENT (MAX.INTEGER MIN.INTEGER) +LISPXFIND0 (TYPE LINE) \RTP.ACTION (\EVENT.OPEN \STATE.CLOSED \STATE.SENTRFC \EVENT.OPENLISTENING +\STATE.LISTENING \EVENT.OPENIMMEDIATE \STATE.OPEN \EVENT.CLOSE \STATE.ABORTED \STATE.ENDSENT +\STATE.ENDRECEIVED \STATE.DALLYING \EVENT.FORCECLOSE \EVENT.RFC WORDSPERPORT \EVENT.ABORT \EVENT.END +\EVENT.ENDREPLY \EVENT.TIMEOUT \RTP.DALLY.TIMEOUT \RFC.TIMEOUT) ADJUSTCURSORPOSITION (\CURSORHOTSPOTX +\CURSORDESTHEIGHT \CURSORHOTSPOTY) GET-TOPW (MAX.SMALLP) OPT.CODEFRAME (TOPFRAME) FIND.LINE ( +\FIRSTLINE) NU\TOTOPWDS (\SCREENBITMAPS) \CURSORPOSITION (\CURSORDESTHEIGHT \CURSORDESTWIDTH +\CURSORHOTSPOTX BITSPERWORD \CURSORHOTSPOTY \MACHINETYPE \DANDELION \DAYBREAK \MAIKO \EM.MOUSEX +\EM.MOUSEY \EM.CURSORX \EM.CURSORY) \SPP.NOT.RESPONDING (SPP.MAX.FAILED.PROBES SPP.INACTIVITY.TIMEOUT +SPP.USER.TIMEOUT PROMPTWINDOW) COMPILER::ALPHA-COMBINATION (COMPILER::*ENVIRONMENT* :FN COMPILER::*CONTEXT* + :ARGS :NOT-INLINE NLAMA NLAML) HRULE.DISPLAYFN (BLACKSHADE) WRITE-UNICODE-MAPPING (XCCS-SET-NAMES) +\PUTBASEFIXP.UFN (\SMALLP MASKWORD1'S \FIXP) CLIPBOARD-PASTE-STREAM (CLIPBOARD-FORMAT) BREAK-FUNCTION +(*ERROR-OUTPUT* :IN :NO-ERROR :NAME :UPCASE) \FLUSH.OPEN.STREAMS (AppendBit WriteBit) +COMPILER::COPY-NODE-MV-CALL (:FN :ARG-EXPRS) BCOMPL.BODY (SYSLOCALVARS COMPILE.EXT BCOMPL.SCRATCH +NLAMA NLAML LAMS) TWODINSPECT.SELECTCOLUMNPROP (INSPECTPRINTLEVEL) COPYATOM (*INTERLISP-PACKAGE* +*KEYWORD-PACKAGE* *LISP-PACKAGE* \SCRATCHSTRING \LITATOM \NEW-ATOM) MSSPLST (MSWORDS) \BIGNUM.LSH ( +MIN.INTEGER MAX.INTEGER) CURSORPOSITION (\CURSORHOTSPOTX \CURSORDESTHEIGHT \CURSORHOTSPOTY) +ONEDINSPECT.DEFAULT.VALUECOMMANDFN (;) GTHASHFILE (SYSHASHFILE) \RSH (\FIXP \SMALLP \FLOATP) +GETLOCALDEC (LAMBDASPLST COMMENTFLG FAULTFN) CURSORSCREEN (\CURRENTCURSOR) CL::STEP-FORM ( +CL::*STEP-INDENTATION-INCREMENT* CL::*STEP-INDENTATION-LEVEL*) NUMBERPAD.HELDFN (RNUMBER.ABORT.BITMAP +RNUMBER.CLEAR.BITMAP) FROM.SCREEN.BITMAP (PROMPTWINDOW) DEFMACRO-ARG-TEST (%%MIN-ARGS %%ARG-COUNT) +\TELERAIDBREAK (\TELERAIDBLOCK \STACKHI \MP.INVALIDADDR \MP.INVALIDVP \MP.MOB \MP.RESIDENT \EM.KBDAD0 +\EM.KBDAD1 \EM.KBDAD2 \EM.KBDAD3 \EM.UTILIN \EM.KBDAD4 \EM.KBDAD5) MAKEHARDCOPYMODESTREAM ( +\HCPYMODEDISPLAYIMAGEOPS.PRESS \HCPYMODEDISPLAYIMAGEOPS.INTERPRESS MICASPERPT) \TEDIT.SET.SEL.LOOKS ( +BLACKSHADE COPYSELSHADE COPYLOOKSSELSHADE EDITMOVESHADE) POSTSCRIPT.GETFONTID (GOLDEN.RATIO) +COMPILER::ALPHA-CATCH (:TAG :STMT) *WHO-LINE-COLOR* (:WHITE) CLOSERTPSOCKET (\RTP.DEFAULTTIMEOUT +\EVENT.CLOSE \STATE.CLOSED \STATE.ABORTED \EVENT.FORCECLOSE) EDIT.BITMAP.REAL (PROMPTWINDOW) +\MAIKO.10MBSTARTDRIVER (\RCLKSECOND \10MB.EXPECTED.RECEIVE.INTERVAL \ES.PENDING) %%FAST-COPY-BASE ( +PTRBLOCK.GCT) TRANSLATE.IP (TRANSLATE) EDITGETD (CLISPARRAY) \FILLINXIP (\EPT.XIP \XIPOVLEN +\MY.NSADDRESS) \TEDIT.CLOSEUPLINES (WHITESHADE) \CHANGECHARSET.HDCPYDISPLAY (MICASPERPT \MAXTHINCHAR) +\OPENLEAFCONNECTION (NONLEAFHOSTS \LEAF.NEVER.OPENED PROMPTWINDOW \SOCKET.LEAF \LEAFCONNECTIONLOCK +\FIXP \LEN.RESETLEAF \LEAFOP.RESET \PUPOVLEN \LF.ALLOWERRORS \LF.WANTANSWER \SS.OPENING \SS.OPEN +\ETHERTIMEOUT \LEAF.BROKEN.STATUS \LEAFOP.ERROR \PASSWORD.ERRORS \LEAF.IDLETIMEOUT \LEN.LEAFPARAMS +\LEAFOP.PARAMS) \TYPE.FROM.FILETYPE (FILING.TYPES) \10MBRAWENCAPSULATE (\10MBENCAPSULATION.WORDS +\InterfacePage) \LEAF.LOOKUPCACHE (\LEAF.MAXCACHE) CLISPIFYFNS (FILELST) \FILETYPE.FROM.TYPE ( +FILING.TYPES) CLISPATOM2A (DWIMIFYING CLISPCONTEXT NOFIXFNSLST NOFIXVARSLST TYP VAR1 FAULTPOS +GLOBALVARS SPELLINGS3 CLISPCHARS) \VFMLower (\VFMmaxKey) CURSOREXIT (LASTSCREEN LASTMOUSEX LASTMOUSEY +\MAINSCREEN \COLORSCREEN) \LOOKUPCOLORNAME (COLORNAMES) \ROUTE.PUP (\LOCALNDBS BROADCASTNSHOSTNUMBER) +CL::%%MAKE-RANDOM-ARRAY (CL::%%RANDOM-SIZE CL:MOST-POSITIVE-FIXNUM) \NSRANDOM.CREATE.STREAM ( +BYTESPERPAGE) LASTMOUSEY (LASTMOUSEY) ARCCOS (PI/2) CL::%%NOT-INTEGER-ERROR (:EXPECTED-TYPE :NAME +:VALUE) LASTMOUSEX (LASTMOUSEX) WRITE-UNICODE-MAPPING-HEADER (UNICODE-MAPPING-HEADER) +SI::ADVISE-CONTENTS (:IN) SEDIT::STRINGIFY-LIST (SEDIT::TYPE-DOTLIST) CLISPATOM1B (UNDOSIDE UNDOSIDE0 +CLISPARRAY) LISPXSTATE (LISPXHIST) \RTP.SHOW.FAILURE (PROMPTWINDOW) \MACPEEKCCODEFN (*MACTOXEROXMAP*) +DO.LF (\DSP) \PUPGATELISTENER (\PUPSOCKET.ROUTING :PROTOCOL \PUPROUTER.PROBETIMER \PUP.ROUTING.TABLE +\RT.AGEINTERVAL \PT.GATEWAYREQUEST \PUPROUTER.PROBEINTERVAL) SETTERMCHARS (EDITRDTBL) COMPILEMODE ( +COMPILEMODELST) \PUSHSTATE.IP (DOSAVESIMPLEBODY {) PRINTPUPDATA (\PUPOVLEN) +\TFBRAVO.PARSE.PROFILE.PARA (NEXTPARAPTR PROFILE.PARA.RDTBL PTSPERINCH) \SIN-FLOAT (PI/2 2PI CL:PI +\SIN-EPSILON UBFLOAT3) GETMOUSESTATE (\CURSORHOTSPOTX \CURSORDESTHEIGHT \CURSORHOTSPOTY \LASTKEYSTATE +\MOUSE.ALLBITS \CURSORSCREEN) HASHFILEP (SYSHASHFILELST) \ROUTE.XIP (\10MBLOCALNDB \3MBLOCALNDB +\EPT.XIP) COURIERTRACE (LASTMOUSEBUTTONS) SEDIT::FIND-OBJ (SEDIT:*WRAP-SEARCH*) \HDCPYBLTCHAR ( +IHALFMICASPERPT IMICASPERPT \CURSORDESTINATION \EM.DISPINTERRUPT \TOPWDS \SCREENBITMAPS) TTSKIPSEPR ( +\ENDBUFFER) \10MBRAWTRANSMIT (\TELERAIDIOCB \10MB.MINPACKETLENGTH \ES.PENDING) \FM.EDIT-DELETE ( +BOXOFFSET DISPLAYBOTTOM FONT DISPLAYLEFT WINDOW LASTMOUSEBUTTONS LEFT BITMAP MAXWIDTH BLACKSHADE +STREAM) FW-CREATE-OFD-WINDOWS (FW-OFDList FW-Font) COMPILER::COPY-NODE-LITERAL (:VALUE) BEEPON ( +\MACHINETYPE \DANDELION \DAYBREAK \MAIKO) COMP.CPI (FRAME TOPFRAME ARGVARS LEVEL TOPLAB) +ONEDINSPECT.DEFAULT.TITLECOMMANDFN (LASTMOUSEBUTTONS ;) \TTW1 (\CURSORDESTINATION \EM.DISPINTERRUPT +\SCREENBITMAPS) CLISPDEC0 (COMMENTFLG) ARCSIN (PI/2 180/PI) COMPILER::ALPHA-ATOM (COMPILER::*ENVIRONMENT* +) SPYOBJ.SAVE (FILERDTBL) BEEPOFF (\MACHINETYPE \DANDELION \DAYBREAK \MAIKO) SHOWBITMAP1.IP ( +BITSPERCELL DOSAVESIMPLEBODY { SEQPACKEDPIXELVECTOR BYTESPERCELL MAKEPIXELARRAY MASKPIXEL }) +MSMARKCHANGED (MSFNTYPES) CLISPATOM2 (PARENT BRACKETCNT BRACKET CLISPCONTEXT CLISPIFWORDSPLST :RESPELL + CLISPINFIXSPLST SUBPARENT LASTWORD CLISPLASTSUB) CHANGESLICE (LISPXHIST) CL:CHAR-NAME (CHARACTERNAMES + CHARACTERSETNAMES) \HANDLE.PUP.ROUTING.INFO (\PT.GATEWAYRESPONSE \PUPOVLEN \PUP.ROUTING.TABLE +\ROUTING.TABLE.MASK \PUP.ROUTING.TABLE.RADIUS \PUP.ROUTINGINFO.WORDS \RT.INFINITY WORDSPERCELL +\RT.TIMEOUTINTERVAL) \FTP.OPEN.CONNECTION (PROMPTWINDOW \PUPSOCKET.FTP) \FTP.FIX.BROKEN.INPUT ( +PROMPTWINDOW \FTPCONNECTIONS) \FM.EDIT-WORDDELETE (BOXOFFSET \FM.EDIT-WORDDELIMCHARS FONT BITMAP LEFT +WINDOW STREAM) CHAT.LOGIN (PROMPTWINDOW CHAT.WAIT.TIME) CL:ERROR (HELPDEPTH *ERROR-OUTPUT* :CONDITION +:AT) SPYOBJ.GET (FILERDTBL SPYOBJ.IMAGEFNS) COMPILER::COPY-NODE-LAMBDA (:NAME :ARG-TYPE +:NO-SPREAD-NAME :ALLOW-OTHER-KEYS) \GETINTERNALCLOCK (\MISCSTATS WORDSPERCELL) COMP.NOSIDEEFFECTP ( +*NO-SIDE-EFFECT-FNS*) ETHERHOSTNAME (\PUP.READY \LOCALPUPNETHOST \PUPSOCKET.MISCSERVICES +\PT.ADDRLOOKUP \MAXETHERTRIES \PT.ADDRRESPONSE \PT.NAME/ADDRERROR PUPTRACEFILE) \LFPutDirectory ( +\LFdirectories) CL:CODE-CHAR (\SmallPosHi) CL::PROCESS-TYPE (:PREDICATE) SCAVENGEDSKDIRECTORY ( +\LFtopMonitor tLispDirectory tLispFile) \SLOWHDCPYBLTCHAR (\CURSORDESTINATION \EM.DISPINTERRUPT +\TOPWDS \SCREENBITMAPS) TWODINSPECT.SELECTROWPROP (INSPECTPRINTLEVEL) \LEAF.REQUESTPAGE ( +\LEAF.MAXLOOKAHEAD \LEAFOP.READ \OPCODE.SHIFT \LEAFMODE.DONTEXTEND BYTESPERPAGE \LEN.FILEREQUEST) +CURRENT-TTY-PACKAGE (*WHO-LINE-PACKAGE-NAME-CACHE*) COMPILER::ALPHA-BLOCK (:NAME :CONTEXT COMPILER::*CONTEXT* +) \SETDAYTIME0 (\MISCSTATS WORDSPERCELL MAX.SMALLP BITSPERWORD \MACHINETYPE \DANDELION +\DL.PROCESSORBUSY \DL.SETTOD) \VFMGenerateFileIDs (\VFMmonitor MAX.FIXP \VFMmaxID) +\PROCESS.RESET.TIMERS (\SYSTEMTIMERVARS \PROCESSES \PSTAT.WAITING) IDATE (TIME.ZONES) \CLEARXIPHEADER +(\XIPOVLEN) CL::%%EXPT-INTEGER (MIN.INTEGER MAX.INTEGER) \FM.EDIT-BACKUP (FONT WINDOW STREAM BITMAP +BOXOFFSET) \FTP.RECOGNIZEFILE (\NO.ILLEGAL.DIRECTORY FTPDEBUGLOG \NO.FILE.NOT.FOUND) COMP.ANONP ( +LOCALVARS SPECVARS LOCALFREEVARS) RAND (MAX.SMALLP) \SECONDSCLOCKGREATERP (\MISCSTATS WORDSPERCELL) +DASSEM.DSTOREFN (:4-BYTE *BC-MACRO-ENVIRONMENT* :3-BYTE) \BSP.HANDLE.INPUT (\PT.MARK \PT.DATA +\PT.AMARK \PT.ADATA \PT.ACK \PT.INTERRUPT \PT.INTERRUPTREPLY \PT.ERROR \EVENT.TIMEOUT) INITUFNTABLE ( +\UFNTable \UFNTableSize \OPCODES) \MACINCCODEFN (*MACTOXEROXMAP*) NONSYSPROPNAMES (SYSPROPS) +\CLOCKGREATERP (\MISCSTATS) WALK-FORM-INTERNAL (XCL::*WALK-FUNCTION* XCL::*ENVIRONMENT*) SMARTARGLIST +(COMPILERMACROPROPS) WRITE-STRING* (*STANDARD-OUTPUT*) CHECK-PARAMETER-NAME (CL:LAMBDA-LIST-KEYWORDS +:TEST) COMPILER::ALPHA-ARGUMENT-FORM (COMPILER::*ARGUMENT-CONTEXT*) REGIONONSCREEN (LASTMOUSEX +LASTMOUSEY SCREENWIDTH SCREENHEIGHT) CHARACTER.PRINT (*READTABLE*) \D0.STARTIO (MISC1) \10MBRAWRECEIVE + (\MACHINETYPE \DAYBREAK \TELERAIDIOCB DoveEther.outputIOCBType \ES.PENDING \ES.GOOD.PACKET) +\HCPYMODEDISPLAYINIT (\DISPLAYIMAGEOPS MICASPERINCH) MODERN-MENUBUTTONFN (LASTMOUSEBUTTONS +LASTKEYBOARD WindowTitleDisplayStream) \PUTFIXP (\FIXP \SMALLP \FLOATP) BREAKCONNECTION (\FILEDEVICES) + \PUTSWAPPEDFIXP (\FIXP \SMALLP \FLOATP) SWAPPEDCOND (L CLISPARRAY) PRINT-READER-ENVIRONMENT ( +*OLD-INTERLISP-READ-ENVIRONMENT* *INTERLISP-PACKAGE* FILERDTBL) SEDIT:SEDIT (SEDIT::BASIC-GAP :NAME +:TYPE :EXPRESSION) \STRINGWIDTH.HCPYDISPLAYAUX (*PRINT-LEVEL* *PRINT-LENGTH*) +\NSFILING.FILLIN.ATTRIBUTES (\NSFILING.USEFUL.ATTRIBUTE.TYPES) WORD.MATCHES.BUFFER (\MAXTHINCHAR +\RDTBLSA ESCAPE.RC MULTIPLE-ESCAPE.RC) XCL::IMPLICIT-KEY-REHASH (XCL::*DELETED-IMPLICIT-HASH-SLOT*) +CLISPATOM1A (PARENT) FMAX (MIN.FLOAT) \TITLEICONMINSIZE (MinWindowWidth) GETSCREENPOSITION ( +\CURSORSCREEN) CLUNARYMINUS? (CURRTAIL SUBPARENT TYPE-IN?) \VAMUpdateVAM (BITSPERPAGE BITSPERWORD) +SETY.IP (SETYREL SETXY) \INSERT.FIRST.PIECE (DEFAULTFONT TEDIT.DEFAULT.FMTSPEC) \GS.INITBUF (\GS.BUF) +\BACKCCODE (\DEFAULTBACKCCODE) \VECPUT (SPRUCEPAPERBOTTOMSCANS SPRUCEPAPERTOPSCANS +SPRUCEPAPERLEFTSCANS SPRUCEPAPERRIGHTSCANS MicasPerScan) EDITTOGGLELABEL (PROMPTWINDOW) \INCCODE ( +\DEFAULTINCCODE) FMIN (MAX.FLOAT) LOAD? (LOADEDFILELST COMPILE.EXT) \COURIER.ATTENTIONFN ( +\SPPDSTYPE.BULKDATA WriteBit AppendBit PROMPTWINDOW) GETHASH (\HASH.NULL.VALUE) SCALE/TONODES ( +ScalableLinkParameters) SI::ADVICE-HASDEF (SI::*ADVICE-HASH-TABLE*) PFI.CENTER.PRINT (BOLDFONT +*STANDARD-OUTPUT* DEFAULTFONT) RECLISPLOOKUP (LISPXFNS) MAKE-NETWORK-TRACE-WINDOW (LASTMOUSEBUTTONS) +HRULE.CREATE (HRULE.IMAGEFNS HRULE.DEFAULT.WIDTH TEXTOBJ) \PEEKCCODE (LF.EOLC ANY.EOLC CR.EOLC +CRLF.EOLC \DEFAULTPEEKCCODE) DUMPDATABASE1 (DUMPTABLE) CLISPRECORD (EXPR FAULTFN) +\INSPECTW.REDISPLAYPROP (INSPECTPRINTLEVEL) PREVWORD (\ARROW \MAXTHINCHAR \PRIMTERMSA WORDSEPR.TC +\RDTBLSA) MSCOMMAND (LASTPARSED) CHAT.CLOSE (CHATWINDOW HIGHLIGHTSHADE) \FM.MENUHANDLER (MENUHELDWAIT +PROMPTWINDOW LASTMOUSEBUTTONS) FW-FILTERED-FILE? (FW-Filters) ADD.BORDER.TO.BITMAP (WHITESHADE) +COMPILER::COPY-NODE-IF (:PRED :THEN :ELSE) IMAX (MIN.INTEGER) COMP.LINKCALLP (NOLINKFNS BLKDEFS +BLKLIBRARY LINKFNS) VALUEOF (LISPXHISTORY) OPT.RETPOP (TOPFRAME) TEDIT.SET.SEL.LOOKS (BLACKSHADE +COPYSELSHADE COPYLOOKSSELSHADE EDITMOVESHADE) IMIN (MAX.INTEGER) SI::ADVICE-DELDEF ( +SI::*ADVICE-HASH-TABLE*) PFI.CONDENSE.INDEX (*PFI-FILTERS* UPPERCASEARRAY) APPENDNUMBER.IP (SEQINTEGER +) PRINT-LOADED-FILE-INFORMATION (LOADEDFILELST) CLBINARYMINUS? (TAIL PARENT) GETBOXSCREENPOSITION ( +\CURSORSCREEN) READATABASE (MSDATABASELST MSCHANGEDARRAY) SETYREL.IP (SETYREL) \NSFILING.HANDLE.ERROR +(PROMPTWINDOW UPPERCASEARRAY :PATHNAME) MENUBUTTONFN (LASTMOUSEBUTTONS) SEDIT::REPLACE-CHARS ( +*READTABLE* SEDIT::TYPE-STRING) MAX (MIN.INTEGER) ADJUSTLINE (TTYJUSTLENGTH \RMARG \CHARWIDTH \LMARG +\ARROW \CURSORCOL) \LFGetDirectory (\LFdirectories) BRKDWNRESULTS (BRKDWNTOTLST BRKDWNLST BRKDWNFLTFMT + BRKDWNLABELS BRKDWNTYPES) \UPDATE.PBT.RASTERWIDTHS (\MDSIncrement \VP.DISPLAY SCREENWIDTH) +COMPILER::COPY-NODE-GO (COMPILER::*COPY-NODE-TABLE* :TAGBODY :TAG) MIN (MAX.INTEGER) COMP.CLEANFNOP ( +CLEANFNTEST) \MACOUTCHARFN (*XEROXTOMACMAP*) CONSFN (DECLST) OPT.RETFIND (OPRETURN) \PAGED.INCFILEPTR +(BYTESPERPAGE) FILL/GRAPHNODE/LABEL (BLACKSHADE WHITESHADE) FW-SORT-FN (FW-Anchor FW-SortFn) +FIND.NEXT.WORD (\ARROW \MAXTHINCHAR \PRIMTERMSA WORDSEPR.TC \RDTBLSA) SCALE/GRAPHNODE/BORDER ( +NODEBORDERWIDTH) \LEAF.DEVICEP (UPPERCASEARRAY \MACHINETYPE \MAIKO \FTPFDEV) FINDFIELDUSAGE ( +FIELDS.IN.CREATE) SEDIT::SETUP-WINDOW-CONTEXT-DEPENDENCIES (:ChangedStructure? :package *PACKAGE* +:name) \10MB.CREATENDB (\10MBTYPE.PUP \EPT.PUP \10MBTYPE.3TO10 \EPT.3TO10 \MACHINETYPE \DOLPHIN) +FORMAT-EXPONENT-MARKER (*READ-DEFAULT-FLOAT-FORMAT*) \LEAF.DELETEFILE (\LEAFOP.DELETE \OPCODE.SHIFT +\LEN.CLOSEREQUEST) SEDIT::MAKE-FUNCTION-PROTOTYPE (SEDIT::ARGS-GAP SEDIT::BODY-GAP) EDITCOLUMN ( +\LASTCHAR \CURSORCOL) FIND.CHAT.PROTOCOL (CHAT.PROTOCOLTYPES) FQUOTIENT (FQUOTIENT) \TELERAIDEXIT ( +\TELERAIDBLOCK) DIRECTORY.MATCH1 (UPPERCASEARRAY \MAXTHINCHAR) COMPILER::COPY-NODE-CATCH (:TAG :STMT) +FDIFFERENCE (FDIFFERENCE) COMP.CLEANFNP (CLEANFNTEST) CLRPLNODE (UNDOSIDE UNDOSIDE0) +FW-CREATE-OFD-LIST (FW-OpenFiles) FGREATERP (FGREATERP) SETXY.IP (SETXY) \CANONICAL.HOSTNAME ( +\HOSTNAMES) UNSET (SPELLINGS3) WRITE (*STANDARD-OUTPUT* *PRINT-ESCAPE* *PRINT-RADIX* *PRINT-BASE* +*PRINT-LEVEL* *PRINT-LENGTH* *PRINT-CASE* *PRINT-GENSYM* *PRINT-ARRAY* *PRINT-PRETTY* *PRINT-CIRCLE*) +FABS (UBFLOAT1) LOCALVARS (SYSSPECVARS) OPT.RETOPT (CODE) \BOXFPLUSDIF (\FIXP MAX.POS.HINUM +MAX.SMALL.INTEGER \SMALLP \EXPONENT.BIAS \8BITS \SIGNBIT \MAX.EXPONENT \HIDDENBIT) TTYIN.BALANCE ( +\BUFFER \ENDBUFFER \MAXTHINCHAR \RDTBLSA RIGHTBRACKET.RC \CURSOR) \LFPurgeDirectory (tLispDirectory) +\BOXFTIMES2 (\FIXP MAX.POS.HINUM MAX.SMALL.INTEGER \SMALLP \EXPONENT.BIAS \8BITS \SIGNBIT +\MAX.EXPONENT \HIDDENBIT) SI::ADVICE-PUTDEF (SI::*ADVICE-HASH-TABLE* :BEFORE :AFTER :AROUND) +PFI.PRINT.INDICES (*STANDARD-OUTPUT*) TTLASTLINE (\FIRSTLINE) \MOVEBYTES (BYTESPERWORD) \BOXFQUOTIENT +(\FIXP MAX.POS.HINUM MAX.SMALL.INTEGER \SMALLP \EXPONENT.BIAS \8BITS \SIGNBIT \MAX.EXPONENT \HIDDENBIT + \OVERFLOW) \TELEBLTCURSOR (\EM.CURSORBITMAP \#WORDS.CURSOR \MACHINETYPE \DAYBREAK) \LFOpenOldFile ( +\LFdevice BYTESPERPAGE) \HDCPYDISPLAY.FIX.YPOS (MICASPERPT) SEDIT::SETUP-WINDOW-AND-PROCESS ( +SEDIT::TERMINAL-TABLE \CURRENTKEYACTION PROMPTWINDOW) COMPILER::COPY-NODE-CALL (:FN :ARGS) +SEDIT::SETUP-PROFILE (*PRINT-BASE*) \LFDirectoryP (tLispDirectory lispFileVersion MAX.SMALLP) CCCSCAN +(\AtomHI BITSPERBYTE) \CENTICLOCK (\CENTICLOCKBOX WORDSPERCELL \RCLKMILLISECOND) RPTPUT (HPFINALCHAR) +SEDIT::PARSE--STRING (SEDIT::TYPE-STRING) MARK/GRAPH/NODE (BORDER.FOR.MARKING LABELSHADE.FOR.MARKING) +COMPILER::EFFECTS-ANALYZE-VAR-REF (:NONE) VALUOF (LISPXHISTORY) \STRINGWIDTH.HDCPYDISPLAY ( +IHALFMICASPERPT IMICASPERPT) \FLOAT (\FIXP MAX.POS.HINUM MAX.SMALL.INTEGER \EXPONENT.BIAS \SMALLP +:EXPECTED-TYPE :NAME :VALUE :MESSAGE) \GETSPP (SPP.USER.TIMEOUT) \LEAF.GETFILE (\LEN.OPENREQUEST +\LEAFOP.OPEN \LEAF.READBIT \LEAF.WRITEBIT \LEAF.EXTENDBIT \LEAF.DEFAULT.HIGHEST \LEAF.CREATEBIT +\LEAF.DEFAULT.NEXT \LEAF.DEFAULT.LOWEST \LEAF.EXPLICIT.ANY \LEAF.GOODSTATUS \PASSWORD.ERRORS +\CONNECT.PASSWORD.ERRORS \IFSERROR.INVALID.DIRECTORY \IFSERROR.MALFORMED \LEAF.BROKEN.STATUS +\IFSERROR.PROTECTION \IFSERROR.FILE.NOT.FOUND) \PFPilotVolumeP (nonPilotVolume) \MAKEFLOAT (\SIGNBIT +MAX.POS.HINUM \UNDERFLOW \EXPONENT.BIAS \8BITS MAX.SMALL.INTEGER \HIDDENBIT \MAX.HI.FRAC \MAX.EXPONENT + \OVERFLOW) SI::ADVICE-GETDEF (SI::*ADVICE-HASH-TABLE*) CL:FIND-PACKAGE (*PACKAGE-FROM-NAME*) +STOPSCAN? (BRACKETCNT BRACKET) FW-OFD-EXISTS? (FW-OFDList) %%CML-TYPE-TO-TYPENUMBER ( +%%FAT-CHAR-TYPENUMBER) FILEGETDEF.MACROS (MACROPROPS) CLISPIF0 (LISPXHIST COMMENTFLG) +\CANONICALIZE.PUP.HOSTNAME (FIXSPELLREL) AT.END.OF.TEXT (\ENDBUFFER) BREAKDOWN (BDLST BRKDWNLENGTH +BDSINK) MB.SHOWSELFN (BLACKSHADE) FIXSPELL (DWIM.GIVE.UP.TIME DWIM.GIVE.UP.INTERVAL FIXSPELLREL +SPELLINGS1 SPELLINGS2 SPELLINGS3 LASTWORD LISPXHIST SPELLSTR1) SETUPTIMER (\RCLKMILLISECOND +\RCLKSECOND) \LOAD-STREAM (*PACKAGE* FILERDTBL DFNFLG BUILDMAPFLG ADDSPELLFLG LISPXHIST +*OLD-INTERLISP-READ-ENVIRONMENT* FASL:SIGNATURE) \TEDIT.REFRESH.SHOWSEL (TEDIT.SELECTION +TEDIT.SHIFTEDSELECTION TEDIT.MOVESELECTION TEDIT.DELETESELECTION TEDIT.COPYLOOKSSELECTION) +FILEWATCHPROP (FW-Properties) APPENDLARGEVECTOR.IP (SEQLARGEVECTOR) SEDIT::CREATE-QUOTED-GAP ( +SEDIT::TYPE-QUOTE SEDIT::QUOTE-WRAPPER-LIST) CLISPATOM0 (LISPXHIST WTFIXCHCONLST WTFIXCHCONLST1) +\VFMPutNext (\VFMold \VFMbuffer) SETX.IP (SETXREL SETXY) FW-LOOP (FW-Interval) DWIMDEF (DWIMIFYCOMPFLG + CLISPIFYPRETTYFLG) SETXYREL.IP (SETXYREL) TTNTH (\ARROW) \BRUSHBITMAP (\BrushAList) \TELERAIDENTRY ( +\TELERAIDBLOCK \EM.CURSORBITMAP \#WORDS.CURSOR \TELERAIDPACKET) TTNLEFT (\ARROW) +COMPILER::META-CALL-LAMBDA-SUBSTITUTE (:LEXICAL) \TEDIT.WORD.BOUND (TEDIT.WORDBOUND.READTABLE +\MAXTHINCHAR) \INFINITY (\MAX.EXPONENT \MAX.HI.FRAC) TIMEREXPIRED? (\TIMEREXPIRED.BOX) FIXFIELDORDER ( +BINDINGS) NTHTOPLEVELELT (MAXINSPECTCDRLEVEL) SETCORNER (UpperRightCursor LowerRightCursor +UpperLeftCursor LowerLeftCursor) EDITTOGGLEBORDER (PROMPTWINDOW) LAYOUTLATTICE (DEFAULTFONT) +DUMPDATABASE (MSDATABASELST NODUMPRELATIONS) LOAD (LOADOPTIONS LOADPARAMETERS) USEREXEC (LISPXHISTORY) + HASDEF (MACROPROPS LISPXMACROS LISPXHISTORYMACROS USERMACROS FILEPKGCOMSPLST FILEPKGTYPES) TIME.UNTIL + (\TIMEREXPIRED.BOX) FIXEDITDATE (LAMBDASPLST COMMENTFLG) SCALEPAGEUNITS (TEDIT.PAPER.SIZES) \ARGPTR ( +MYALINK) IMAGESTREAMP (\TERM.OFD *STANDARD-OUTPUT*) SETARG (\STACKSPACE) \UPDATE.EXTENT.IMAGE ( +BLACKSHADE SCROLLBARSHADE) DELDEF (MACROPROPS LISPXMACROS LISPXHISTORYMACROS) \ARG (\STACKSPACE) +CCCSUBFN? (OLDREF) FNS.PUTDEF (LAMBDASPLST) \SLOWRETURN (MYALINK) \SETARG (\STACKSPACE) STKNTH ( +MYALINK) UNSAFE.TO.MODIFY (UNSAFE.TO.MODIFY.FNS DWIMWAIT) MSSEEKPHRASE (SEEKING CONJUNCTABLE) +COMPILER::CONSTRUCT-LIST (COMPILER::*LITERALLY-NIL* :FN :ARGS) TEDITCHAT.MENUFN (LASTMOUSEBUTTONS +TEDITCHAT.MENUITEMS) \FM.WINDOWENTRYFN (LASTMOUSEBUTTONS) EDITV (LASTWORD) \LFCreateFile (tLispFile +\LFdevice \LFrunSize) COMPILER::COPY-NODE-BLOCK (:NAME COMPILER::*COPY-NODE-TABLE*) +SEDIT::SETUP-NEW-CONTEXT (SEDIT::EDITOR-NAME) SETSTKNAME (\STACKHI) U/L-CASE (\ARROW) SETTAIL? ( +\BUFFER \ENDBUFFER \CURSOR \ARROW \CURSORCOL) \TELERAIDSEND (\PUPSOC.TELERAID \NULLCHECKSUM +\3MBENCAPSULATION.WORDS) \COPYFNHEADER (WORDSPERQUAD GCREF) FILEMAP (FILECREATEDLST) EDITP (USERWORDS) + PRINTPACKETDATA (BYTESPERWORD) CL:GET-DISPATCH-MACRO-CHARACTER (*READTABLE*) SEDIT::PARSE--LITATOM ( +SEDIT::TYPE-LITATOM) STKSCAN (MYALINK) DINFO.UPDATE.FMENU (FASSOC) RPTEND (RPTCNT RPTLAST HPFINALCHAR) + OPENIMAGESTREAM (DEFAULTPRINTINGHOST IMAGESTREAMTYPES PRINTFILETYPES) CREATEWFROMIMAGE ( +MinWindowWidth) CL:SET-SYNTAX-FROM-CHAR (*READTABLE* CMLRDTBL) GET-ONED-DISPLAYW (MAX.SMALLP) +\FRAMESCAN (IVARCODE PVARCODE \STACKHI FVARCODE) INSIDE? (LASTMOUSEX LASTMOUSEY) MSSETREP (LASTPARSED +SPELLING) COMPILER::META-CALL-LAMBDA-SIMPLIFY-PARAMETERS (COMPILER::*LITERALLY-NIL*) SEDIT::COMPLETE ( +:CLOSE :ABORT :CLOSE-ON-COMPLETION :SHRINK :DONE) \LFGetStreamForFile (\LFdevice :PATHNAME tLispFile +MAX.SMALLP PROMPTWINDOW) PRINTERPROP (PRINTERTYPES) CL:GET-MACRO-CHARACTER (*READTABLE*) +\LFMakeVolumeDirectory (tLispDirectory directorySize) OPT.COMMONBACK (FRAME) PUTFILEMAP ( +*FILEMAP-HASH*) SHRIEKER (NCONCLKUP NCONC1LKUP) PRINTERTYPE (PRINTERTYPES DEFAULTPRINTERTYPE +DEFAULTPRINTINGHOST) \VAMEnoughSpace (tVolumeFileMap) SETSPACE.IP (SPACE) ADDSPELL (%#USERWORDS +%#SPELLINGS2 %#SPELLINGS3) GETDEFFROMFILE (FILELST) FW-CREATE-OFD (FW-Font) FLOATP.TO.BCPL ( +MAX.SMALL.INTEGER) XCL::UNDOABLY-SET-SYMBOL (\STACKHI) RESUME (MYALINK) OPT.JUMPREV (OPPOP OPCOPY +VCONDITIONALS CONDITIONALS OPNIL) DRAWGRAYBOX (\SOFTCURSORUPP \EM.DISPINTERRUPT) %%ONED-ARRAY-P ( +%%ONED-ARRAY) CL:SET-MACRO-CHARACTER (*READTABLE*) PRINTFILETYPE.FROM.EXTENSION (PRINTFILETYPES) +\RESUME (MYALINK) \DO-DEFINE-FILE-INFO (*INTERLISP-PACKAGE* FILERDTBL :XCCS :PACKAGE :READTABLE :BASE +:FORMAT) EXEC-READ-LINE (*READTABLE*) GETDEFSAVED (SAVEDDEFS) BCPL.TO.FLOATP (MAX.SMALL.INTEGER) +ADDFILE (FILEPKGTYPES USERWORDS) MOVEBOX (\SOFTCURSORUPP \EM.DISPINTERRUPT) %%GENERAL-ARRAY-P ( +%%GENERAL-ARRAY) CHAT.BUTTONFN (LASTMOUSEBUTTONS) MSVERBTYPE (MSWORDS) SEDIT::OPEN-LITATOM ( +SEDIT::TYPE-STRING) UPDATEFILEMAP (DFNFLG) HPRINTEND (HPFORWRDCDRCHR HPFORWRDCHR HPFINALCHAR) +%%TWOD-ARRAY-P (%%TWOD-ARRAY) \TEDIT.LOOKS.UPDATE (LOOKS LMInvisibleRun ASCENT DESCENT DEVICE +LMLooksChange) SETXREL.IP (SETXREL) COMP.STBIND (CODE) \SPREADFRAMEP (\STACKSPACE) SETNTHTOPLEVELELT ( +MAXINSPECTCDRLEVEL) PUTPUPSTRING (\PUPOVLEN) DINFO.UPDATE.MENU.DISPLAY (\DINFO.MAX.MENU.LEN MENUFONT) +\INTERPFRAMENT (\STACKHI) CL:SET-DISPATCH-MACRO-CHARACTER (*READTABLE*) SHOWSHADEDITEMS ( +MENUSUBITEMMARK) \SENDLEAF (\LF.ALLOWERRORS \LF.WANTANSWER \PUPOVLEN \ETHERTIMEOUT \LEAF.BROKEN.STATUS + \LEAFOP.ERROR \LEAF.GOODSTATUS) SETSTKARG (IVARCODE PVARCODE \STACKHI) SKIP/ZAP (\CURSOR \ARROW) +\FILLPOLYGON.IP (DOSAVESIMPLEBODY { MAKEOUTLINE MAKEOUTLINEODD MASKFILL }) COMPILER::META-CALL-LAMBDA +(:SPECIAL) STKARGNAME (\AtomHI IVARCODE \STACKHI PVARCODE) \CML-LOAD (CMLRDTBL) GREET (PREGREETFORMS +POSTGREETFORMS) SI::INSERT-ADVICE-FORM (:FIRST :LAST) SETSTKARGNAME (\AtomHI IVARCODE PVARCODE +\LITATOM \NEW-ATOM) MB.DEFAULTBUTTON.ACTIONFN (TEDIT.EXPANDED.PAGEMENU) \TEDIT.TRY.ABBREV ( +TEDIT.ABBREVS) COMPILER::META-EVAL-VAR-REF (:EFFECT COMPILER::*LITERALLY-NIL*) CL:VECTOR-PUSH-EXTEND ( +*DEFAULT-PUSH-EXTENSION-SIZE*) \POSTSCRIPT.ACCENTPAIR (ACCENT) LISPXPUT (LISPXHISTORY) +%%DEFPRINT-ARRAY (*READTABLE*) LISPXEVAL (LISPXHISTORY) PRETTYDEF (%#RPARS +*OLD-INTERLISP-READ-ENVIRONMENT* *NEW-INTERLISP-MAKEFILE-ENVIRONMENT* *DEFAULT-MAKEFILE-ENVIRONMENT* +:FORMAT) COMPILER::EFFECTS-ANALYZE-THROW (:ANY) OPT.LABELNTHPR (FRAME) FILEPKGCHANGES (FILEPKGTYPES) +HPRINT1 (HPRINTHASHARRAY HPFILLSTRING HPFILLCHAR HPRINTMACROS HPBAKCHAR HPFINALCHAR \MAXTHINCHAR) +CL:MAKE-DISPATCH-MACRO-CHARACTER (*READTABLE*) TTECHO.TO.FILE (\FIRSTLINE OPTIONS \PROMPT2 \ENDBUFFER) + LISPXREADBUF (HISTSTR0 HISTSTR3 HISTSTR2) %%DEFPRINT-VECTOR (*READTABLE*) \HDCPYDISPLAY.FIX.XPOS ( +MICASPERPT) %%DEFPRINT-GENERIC-ARRAY (*READTABLE*) \IBMPEEKCCODEFN (*IBMTOXEROXMAP*) PRINTCOPYRIGHT ( +DWIMWAIT COPYRIGHTOWNERS DEFAULTCOPYRIGHTOWNER DEFAULTCOPYRIGHTKEYLST) SI::SET-ADVICE-MIDDLE-MAN ( +SI::*ADVICE-HASH-TABLE*) %%DEFPRINT-STRING (*READTABLE*) %%DEFPRINT-BITVECTOR (*READTABLE*) +PRINTCOPYRIGHT1 (*READTABLE*) HASH-B (*READTABLE*) RESHADEITEM (BLACKSHADE) CHECKDEFS ( +RECORDEXPRESSION) FIXR (\FIXP MAX.POS.HINUM MAX.SMALL.INTEGER \SMALLP \EXPONENT.BIAS \8BITS \SIGNBIT +\MAX.EXPONENT \HIDDENBIT \OVERFLOW MAX.FIXP MIN.FIXP) \FM.COLLECTNWAYS (\FM.GROUPSPEC) SAVECOPYRIGHT ( +COPYRIGHTFLG) HASH-BACKSLASH (CL:CHAR-FONT-LIMIT) READFROMBUF (\ARROW \CURSOR EOLCHARCODE) FLTSTR ( +\FIXP MAX.POS.HINUM MAX.SMALL.INTEGER \SMALLP \EXPONENT.BIAS \8BITS \SIGNBIT \MAX.EXPONENT \HIDDENBIT) + \TELERAIDGET (\EPT.PUP \PUPSOC.TELERAID \EPT.3TO10 \TRANS.OP.REQUEST \InterfacePage +\TRANS.OP.RESPONSE \TRANS.DATALENGTH) TTGIVEHELP (\DSP) EDITBMTEXTURE (DARKBITSHADE WHITESHADE) +SPY.INIT (SPY.BUFFER.SIZE) HASH-COLON (*READTABLE*) APPENDSEQUENCEDESCRIPTOR.IP (SHORTSEQUENCE +LONGSEQUENCE) \TRACKWITHBOX (\CURSORDESTINATION LASTMOUSEBUTTONS FORCEPS LASTMOUSEX LASTMOUSEY) DWMFY2 + (PARENT DWIMEQUIVLST CLISPCONTEXT CLISPCHARRAY FAULTFN COMMENTFLG) TIMESPOW10 (EXTPOWERS) +TRANSLATE.DATATYPE (:4-BYTE-TEMP COMPILER::*TARGET-ARCHITECTURE* :4-BYTE BITSPERCELL BITSPERBYTE +BITSPERWORD WORDSPERCELL \MDSIncrement) GETPUPSTREAM (\PUPOVLEN) PRINT-DOCUMENTATION (*TERMINAL-IO*) +\LEAF.CLOSEFILE (\SS.OPEN AppendBit WriteBit \LEAFOP.CLOSE \OPCODE.SHIFT \LEN.CLOSEREQUEST :CACHE) +INTTOEXT (\EXPONENT.BIAS \FIXP \SMALLP \FLOATP \SIGNBIT MAX.POS.HINUM) SEDIT::PARSE--BROKEN-ATOM ( +SEDIT::TYPE-LITATOM) LINELENGTH (MAX.SMALLP) EXTTOINT (\EXPONENT.BIAS \SIGNBIT) COURIER.BROADCAST.CALL + (\COURIERPROGRAM BROADCASTNSHOSTNUMBER \EXTYPE.EXPEDITED.COURIER PROMPTWINDOW \NS.ROUTING.TABLE) +SAVE.CURSOR (\CURSORROW \CURSORCOL) FLTINTLOG (EXTPOWERS) \UPDATEXYANDBOX (\CURSORDESTINATION BASEPT +OPPT) DWMFY0 (DWIMIFYING TAIL PARENT CLISPCONTEXT SUBPARENT ONEFLG) FW-CLOSEFN (FW-OFDList) +RPLCHARCODE (\MAXTHINCHAR) \REUSETO (FD) DWIMIFY2? (DWIMIFYING NOFIXFNSLST NOFIXVARSLST) FILECREATED1 +(PRETTYHEADER) DO-EVENT (ADDSPELLFLG PRINTOUTFONT *THIS-EXEC-COMMANDS* *CURRENT-EVENT* VALUEFONT) +%%REDUCE-INTEGER (MAX.FIXP) HASH-DOUBLEQUOTE (*READTABLE*) READLINE (LISPXREADFN HISTSTR4 HISTSTR0) +FB.NAMES.INCREASING.VERSION (UPPERCASEARRAY) HASH-DOT (*READTABLE*) SI::GET-ADVICE-MIDDLE-MAN ( +SI::*ADVICE-HASH-TABLE*) PFI.HANDLE.* (*STANDARD-OUTPUT*) TOPPATHS (DECLST USERRECLST) PRODUCE ( +COMVAR##) %%MAKE-PATHNAME (:HOST :DEVICE :DIRECTORY :NAME :TYPE :VERSION) HASH-COMMA (:FORM +*READTABLE*) DIGITSBDP (\FIXP MAX.POS.HINUM MAX.SMALL.INTEGER \SMALLP \EXPONENT.BIAS \8BITS \SIGNBIT +\MAX.EXPONENT \HIDDENBIT) EDITLOADFNS? (FILELST *TERMINAL-IO* DWIMWAIT) DO.EDIT.PP (\FIRSTLINE RDTBL +\BUFFER \CURSORCOL HISTSTR1) CONCATT.IP (CONCATT) COMPILER::META-EVAL-UNWIND-PROTECT (:ARGUMENT) +SEDIT::DOT-THIS-LIST (SEDIT::TYPE-DOTLIST) HASH-R (*READTABLE*) TEMPLATE (USERTEMPLATES MSTEMPLATES) +TTYINSTRING (\ENDBUFFER \MAXTHINCHAR) READHOTSPOT (LASTMOUSEBUTTONS) CHAT.ICONFN (TTYKBD TTYKBDMASK +TTYKBDICONSPECREGION) GETFILEDEF (FILELST) COMP.STSETQ (LEVEL) RESETBUFS (READBUF) TTDELETECHAR ( +\CURSOR \BUFFER \ARROW) \FM.MAKELINKS (\FM.GROUPSPEC) TITLEW.REPAINTFN (BLACKSHADE) +\NSRANDOM.WRITE.SEGMENT (BYTESPERPAGE) FLONUM-TO-STRING (*DIGIT-STRING*) \EXTFTIMES (\8BITS +\EXPONENT.BIAS) SI::DELETE-ADVICE (SI::*ADVICE-HASH-TABLE*) APPENDIDENTIFIER.IP (SEQIDENTIFIER) DWMFY1 + (DWIMEQUIVLST ; VARS) MSPATHOPTIONS (LASTPARSED) SEDIT::INSERT-LITATOM (*PRINT-CASE* :UPCASE) HASH-X +(*READTABLE*) \LISP.TO.NSFILING.ATTRIBUTE (\NSFILING.TYPE.BINARY \LISP.TO.NSFILING.ATTRIBUTES +\NSFILING.ATTRIBUTES) PRETTYPRINT3 (CLISPIFYPRETTYFLG CHANGES COMMENTFLG DEFAULTFONT FNSLST) +GETPUPSTRING (\PUPOVLEN) GETDEFCURRENT (MACROPROPS) %%INITIALIZE-DEFAULT-PATHNAME (:NEWEST) HASH-VBAR +(*READ-SUPPRESS* *READTABLE*) \TEDIT.HCPYLOOKS.UPDATE (LOOKS LMInvisibleRun DEVICE ASCENT DESCENT +LMLooksChange) COMPARENCHARS (*READTABLE*) SETFONT.IP (SETFONT) SCALE.IP (SCALE.OP) COMPILER::META-EVAL-THROW + (:ARGUMENT :MV) HASH-NUMBER-SIGN (*CIRCLE-READ-LIST*) \TELERAIDCOMMAND (\EM.KBDAD0 \EM.KBDAD1 +\EM.KBDAD2 \EM.KBDAD3 \EM.UTILIN \EM.KBDAD4 \EM.KBDAD5 \TELERAIDBLOCK \MACHINETYPE \DANDELION +\DAYBREAK) TTRATOM (\ENDBUFFER null) WBOX (BLACKSHADE) HASH-O (*READTABLE*) \IBMINCCODEFN ( +*IBMTOXEROXMAP*) ALLPATHS (AVOID) UNSAVED1 (DFNFLG) OPT.UBDEL (FRAMES) HASH-STRUCTURE-LOOKUP ( +*CIRCLE-READ-LIST*) PRETTYPRINT (PRTTYFILE REPRINTFNS USERWORDS) TERM.PRINTCHAR (BLACKSHADE +CHAT.UNDERLINE.DESCENT) \VAMFilePageNumber (tLispFile tLispDirectory tVolumeFileMap tRootDirectory +tDiagnosticMicrocode) FIELDLOOK (USERRECLST) \SEARCHPRESSFONTS (PRESSFONTWIDTHSFILES) +DINFO.UPDATE.HISTORY (DINFO.HISTORY.LENGTH MENUFONT) SPY.ADD.ENTRY (SPY.BUFFER SPY.BUFFER.SIZE) +\FM.READUSERDATA (\FM.DESCRIPTION-PROPS) \EXTNORMALIZE (\SIGNBIT MAX.POS.HINUM MAX.SMALL.INTEGER) +FW-INTERACT (FW-InteractMenu) SQRT (\EXPONENT.BIAS \MAX.EXPONENT) COPYALLBYTES (PFDEFAULT) +\EXTFQUOTIENT (\MAX.EXPONENT \SIGNBIT MAX.POS.HINUM MAX.SMALL.INTEGER \EXPONENT.BIAS) +\POSTSCRIPT.PRINTSLUG (BLACKSHADE) CLISPEXPANSION (CLISPARRAY) CL::ENSURE-CONSISTENT-PS ( +CL::%%DEFAULT-DEFSTRUCT-TYPE CL::%%NO-CONSTRUCTOR CL::%%NO-PREDICATE CL::%%NO-COPIER +CL::%%DEFAULT-PRINT-FUNCTION) SEDIT::HASFAT (\MAXTHINCHAR) INIT-CML-READTABLES (\MAXTHINCHAR) SETLASTC + (\LINEBUF.OFD) GRAYBOXAREA (BLACKSHADE) \DSPRIGHTMARGIN.HDCPYDISPLAY (MICASPERPT) \DSKEventFn ( +\DSKtopMonitor \UFS.GFS.TABLE) \CONVERT.FLOATING.NUMBER (\FLOATFORMAT) COMP.LOOKUPCONST (OPNIL) +OPENIPSTREAM (DEFAULTLANDPAGEREGION DEFAULTPAGEREGION \NOIMAGEOPS \IPIMAGEOPS ENCODING SERVER) +\GETREGION.PACKPTS (BASEX BASEY OPPX OPPY) \VFMMarkBufferDirty (\VFMbufferPool) \VAMBufferSave ( +\VAMbufferVolumePage \VAMbufferVolume \VAMbuffer) CL:TRUNCATE (XCL::STRUNCATE) DWIMIFY0? (DWIMIFYFLG +NOFIXFNSLST NOFIXVARSLST) XCL::SETF-GET-PROCESS-PROFILE (XCL:*PROFILE*) NODECREATE ( +DEFAULT.GRAPH.NODEFONT DEFAULTFONT) FASL-FILEDATE (FASL:SIGNATURE) EDITMOVENODE (PROMPTWINDOW +LASTMOUSEBUTTONS) \TEDIT.PARSE.CHARLOOKS.LIST (TEDIT.DEFAULT.CHARLOOKS) CL:MAKE-ARRAY ( +CL:ARRAY-RANK-LIMIT CL:ARRAY-TOTAL-SIZE-LIMIT) SKOR (SPELLCASEARRAY) \DSKCloseDevice (\DSKtopMonitor +\DSKdevice) RESTOREBUF (\CURSOR \ARROW \CURSORCOL) CL::%%COPY-TIME-STATS (SWAPWAITTIME GCTIME +PAGEFAULTS SWAPWRITES TOTALTIME DISKIOTIME NETIOTIME DISKOPS) SI::ADD-ADVICE (SI::*ADVICE-HASH-TABLE*) + SHEDSCAN (ORIG DIFF) COMPILER::META-EVAL-SETQ (:ARGUMENT) \FM.MAKEBITMAP (WHITESHADE) +\MAIKO.BITBLTSUB (SUBRCALL) TTREADLIST (\BUFFER \ENDBUFFER) MERGLIST (MAX.INTEGER) +GLOBAL-MACRO-FUNCTION (COMPILERMACROPROPS) \UFS.UNREGISTER.GFS (\UFS.GFS.TABLE) PARSE.NSNAME ( +CH.DEFAULT.DOMAIN CH.DEFAULT.ORGANIZATION) \CHECKSUM (MASKWORD1'S) PRETTYCOM (PRTTYFILE USERWORDS +DECLARETAGSLST PRETTYPRINTMACROS SYSPROPS COMMENTFLG DEFAULTFONT FILEPKGCOMSPLST) +\UNVISIBLE.FLUSH.OPEN.STREAMS (AppendBit WriteBit) ADIEU (COMVAR##) \MAIKO.PUNTBLTCHAR ( +\CURSORDESTINATION \EM.DISPINTERRUPT \TOPWDS \SCREENBITMAPS SUBRCALL) FW-OPENP (\FILEDEVICES +FW-OpenP-ScratchList) GET-ENVIRONMENT-AND-FILEMAP (*FILEMAP-HASH*) \INIT.ETHER.BUFFER.POOL ( +\InterfacePage WORDSPERQUAD \MACHINETYPE \DAYBREAK \DoveEther.IOIOCBLength \IOCB.LENGTH \MAXIOCBS +\10MB.MAX.INPUT.LENGTH) COMPILER::EFFECTS-ANALYZE-OPCODES (:NONE) \MAIKO.BLTCHAR (SUBRCALL) +READ-AFM-FILE (WeightMenuItems SlopeMenuItems *POSTSCRIPT-EXTRA-CHARACTERS*) MINIMUMWINDOWSIZE ( +MinWindowWidth) GRAPHEDITCOMMANDFN (EDITGRAPHMENUCOMMANDS) MB.CREATE.NWAYBUTTON (NWAYBUTTONIMAGEFNS) +\SHADEBITS (DARKBITSHADE WHITESHADE LASTMOUSEBUTTONS) PRINTFNS (PRTTYFILE FNSLST) \BULK.DATA.CLOSE ( +WriteBit AppendBit) COMPILER::PRINT-CONTEXT (:UNKNOWN) GETEXPRESSIONFROMEVENTSPEC (LISPXHISTORY +HISTSTR0) \INIT.POWERS.OF.TEN (\EXPONENT.BIAS) PFI.HANDLE.PUTPROPS (MACROPROPS *PFI-PROPERTIES*) +\GETREGIONTRACKWITHBOX (\CURSORDESTINATION DASHEDSHADE LASTMOUSEBUTTONS FORCEPS LASTMOUSEX LASTMOUSEY +NEWREGFNS) AU-REVOIR (COMVAR##) SEDIT:DEFAULT-COMMANDS (SEDIT::DEFAULT-COMMAND-TABLE-SPEC) +\DSKDISPLAY.UPDATE (\DSKDISPLAY.STATE \DSKDISPLAY.WINDOW) CL:COMPILE-FILE (*ERROR-OUTPUT* :PARENT +SYSLOCALVARS GLOBALVARS NLAMA NLAML LAMA DONTCOMPILEFNS :ABORT :INPUT :NEWEST FILERDTBL) MB.DISPLAY ( +BLACKSHADE) PRETTYDEF1 (PRTTYCOMS LAM?LST) FW-CLOSE-OLD-OFD-WINDOWS (FW-OFDList) +\TEDIT.PARSE.PARALOOKS.LIST (TEXTOBJ TEDIT.DEFAULT.FMTSPEC) \FILING.ATTRIBUTE.TYPE ( +\NSFILING.ATTRIBUTES) TTDELETEWORD (\CURSOR \BUFFER \ARROW) \10MB.TURNONETHER (\IOPAGE \InterfacePage +\#WDS.NSHOSTNUMBER) \FAULTINIT (\MAIKO \MP.OBSOLETEVMEM \DORADO \DANDELION \DAYBREAK \MP.32MBINUSE +\LASTVMEMFILEPAGE \GUARDVMEMFULL \KBDSTACKBASE \StackAreaSize \MISCSTACKBASE) \UFSEventFn ( +\UFStopMonitor \UFS.GFS.TABLE) \FM.GETBITMAPS (BLACKSHADE) \BN.FROM.FIXP (MIN.FIXP \BIGNUM.THETA) +\CHARWIDTH.HDCPYDISPLAY (IHALFMICASPERPT IMICASPERPT) \DSPFONT.HDCPYDISPLAY (MICASPERPT \MAXTHINCHAR) +CH.ISMEMBER (\CH.BROADCAST.SOCKET \CH.NULL.PROPERTY) \BN.TO.FIXP (MAX.FIXP MIN.FIXP MAX.INTEGER +MIN.INTEGER) LISPINTERRUPTS.WHEELSCROLL (WHEELSCROLLINTERRUPTS) \SET.VMEM.FULL.STATE (\InterfacePage +\LASTVMEMFILEPAGE \IFPValidKey) \VFMDelete1 (\VFMlowPtr \VFMhighPtr \VFMinterval nextKey \VFMhigh) +\UFSDirectoryNameP (\DSK.DEFAULT.DIRECTORY \UFS.DEFAULT.DIRECTORY MAX-PATHNAME-LEN) +LOOKUP-ENVIRONMENT-AND-FILEMAP (*FILEMAP-HASH* UPPERCASEARRAY) FW-RESIZE-OFD (FW-WindowNoNameWidth +FW-WindowHeight FW-Anchor FW-Position FW-WindowBottom FW-CurPosTab FW-EofPosTab FW-PercentTab +FW-AccessTab FW-PercentWidth FW-PercentHeight) SETRGB.IP (MAKEVEC DO COLOR.IMVAR) CLEARPUP ( +\MAX.PUPLENGTH) \TEXTTTYBOUT (ERASECHARCODE IGNORE.CCE \MAXTHINCHAR \PRIMTERMSA) \BN.INTEGERLENGTH ( +\BIGNUM.BETA MAX.INTEGER) CL:MACROEXPAND-1 (*MACROEXPAND-HOOK*) \SETIOPOINTERS (\InterfacePage +\DOLPHIN \DORADO GCONST ALLUP \DANDELION \MAIKO \IOPAGE \DAYBREAK) \UFSOpenFile (\DSKtopMonitor +\UFStopMonitor ACCESS-INPUT ACCESS-OUTPUT ACCESS-BOTH ACCESS-APPEND ACCESS-OTHER RECOG-OLD +RECOG-OLDEST RECOG-NEW RECOG-NEW-OLD RECOG-OTHER \FIXP AppendBit WriteBit :PATHNAME BYTESPERPAGE) +\TELERAIDINIT (\TELERAIDBITMAPS) SIZE/GRAPH/WINDOW (DEFAULT.GRAPH.WINDOWSIZE SCREENWIDTH SCREENHEIGHT) + \D01.FAULTINIT (\MISCSTATS GCONST \ALTO.RCLKMILLISECOND \VAL.HI \ALTO.RCLKSECOND \MACHINETYPE \DORADO +) \UFSGenerateFiles (\DSKtopMonitor \UFStopMonitor) ENTEREVALQT (RESETFORMS) \DOVE.FAULTINIT ( +\VP.IOCBS \InterfacePage \IFPValidKey \MP.INVALIDVMEM \DOVE.RCLKMILLISECOND \VAL.HI \MISCSTATS +\DOVE.RCLKSECOND) \UFSSetFileInfo (\DSKtopMonitor \UFStopMonitor \FIXP ATTR-WDATE ATTR-PROTECTION) +DO.DELETE.LINES (\DSP \BMARG \CHARHEIGHT \RMARG \LMARG \DESCENT) INFINITEP (MAX.INTEGER MIN.INTEGER) +PRETTYDEFCOMS (%#RPARS) \DL.FAULTINIT (\VP.IOCBS \IFPValidKey \MP.INVALIDVMEM \DLION.RCLKMILLISECOND +\DLION.RCLKSECOND \MISCSTATS \DL.PROCESSORBUSY \DL.READPID) \UFSWritePages (\FIXP :MESSAGE) +\TEDIT.UPDATE.SHOWSEL (BLACKSHADE) \LFDeleteFile (\LFtopMonitor) \MP.ERROR (\MACHINETYPE \DANDELION +\DAYBREAK RAID) \IBMOUTCHARFN (*XEROXTOIBMMAP*) \10MB.LOADINPUTQ (\10MBPACKETLENGTH) PRINTDATE1 ( +DEFAULTFONT LAMBDAFONT) \MAIKO.FAULTINIT (\VP.IOCBS \MISCSTATS) SEDIT:RESET-COMMANDS ( +SEDIT::COMMAND-TABLE-SPEC) \UFSReadPages (\FIXP :MESSAGE BYTESPERPAGE WORDSPERPAGE) +XCL::WALK-MULTIPLE-VALUE-BIND (XCL::*DECLARATIONS* XCL::*LEXICAL-VARIABLES*) FB.DELVERCOMMAND ( +FB.VERSION.MENU.ITEMS :NUMBER) SNAPW (WBorder :SNAP) \UFSTruncateFile (\FIXP ATTR-WDATE) +CL::DEFSTRUCT-PARSE-OPTIONS (:NAME :CONC-NAME) \BN.TIMES2 (\BIGNUM.BETA) \UFSGetFileInfo ( +\DSKtopMonitor \UFStopMonitor \FIXP ATTR-LENGTH ATTR-WDATE ATTR-RDATE MAX-UNAME-LEN ATTR-AUTHOR +ATTR-PROTECTION ATTR-ALL) \BN.DIVIDE (\BIG.0 \BIGNUM.BETA \BIGNUM.BETA1) OPT.JUMPTHRU (OPNIL COMFN +OPRETURN VCONDITIONALS OPCOPY OPPOP) \VFMSaveBuffer (\VFMbufferPool) \UFSDeleteFile (\DSKtopMonitor +\UFStopMonitor \FIXP) \FILEMAP-HASHOVERFLOW (*FILEMAP-LIMIT* FILELST *FILEMAP-VERSIONS*) \BN.FLOAT ( +\BIGNUM.BETA) \ARBIN (*TEDIT-FILE-READTABLE*) \DUMMYKEYHANDLER (\KbdFXP) COMPILER::LOCAL-CONSTANT-P ( +COMPILER::*CONSTANTS-HASH-TABLE*) \UFSRenameFile (\MACHINETYPE \MAIKO \FIXP) FINITEP (MAX.INTEGER +MIN.INTEGER) \TEDITMENU.CREATE (TEDIT.EXPANDEDMENU.SPEC) COMPILER::MAKE-CHILD-ENV (:PARENT) SPECVARP ( +MSDATABASELST LOCALVARS SPECVARS LOCALFREEVARS GLOBALVARS) SEDIT::GET-BUTTON-STRING (SEDIT::TYPE-STRING +) D-ASSEM::TYPE-NAME-FROM-SIZE (\HUNK.PTRSIZES) \BIGNUM.TO.INT (\BIGNUM.BETA) D-ASSEM::FIXUP-NTENTRY ( +:3-BYTE COMPILER::*HOST-ARCHITECTURE*) \LFRenameFile (\LFtopMonitor) FLUSHFILEMAPS (*FILEMAP-HASH*) +\UFSCloseFile (\FIXP AppendBit WriteBit) SEDIT:REPLACE-SELECTION (:SUB-LIST) \BN.2TH (\BIGNUM.THETA) +COMP.MACRO (COMPILE.CONTEXT) TRACKW (CROSSHAIRS LASTMOUSEBUTTONS LOCKEDSPOT LASTMOUSEX LASTMOUSEY) +FW-UPDATE-OFD-WINDOW (FW-PercentWidth FW-PercentHeight BLACKSHADE FW-Shade) \BN.QRS (\BIGNUM.BETA) +PRETTYCOM1 (COMMENTFLG) EDITSHADE (LASTMOUSEBUTTONS LASTMOUSEX LASTMOUSEY DARKBITSHADE WHITESHADE +BLACKSHADE) PSCFONTFROMCACHE.SPELLFILE (POSTSCRIPT.FONT.ALIST POSTSCRIPTFONTCACHE) SI::FINISH-ADVISING + (:UPCASE) \GTREADTABLE1 (\READTABLEHASH) MAKEACCESS1 (RECORDEXPRESSION NEWVALUE DECLST) \UFSeol ( +PROMPTWINDOW LF.EOLC \UFS.DEFAULT.EOLC) \GTTERMTABLE (\PRIMTERMTABLE \ORIGTERMTABLE) +\INSPECTW.COMMAND.HANDLER (INSPECTPRINTLEVEL LASTMOUSEBUTTONS) \UFSCloseDevice (\UFStopMonitor +\UFSdevice) READVARS-FROM-STREAM (HPRINTRDTBL) \SMASHMENUIMAGEONRESET (RESETSTATE) \TERMCLASSTOCODE ( +EOL.TC NONE.TC CHARDELETE.TC WORDDELETE.TC WORDSEPR.TC LINEDELETE.TC RETYPE.TC CTRLV.TC) +\D01.ASSIGNBUFFERS (\InterfacePage WORDSPERPAGE \MAXSWAPBUFFERS) \UFSError (:MESSAGE :PATHNAME) +UNECCSPEC (MSDATABASELST) XCL::PPRINT-DEFINER-FITP (COMMENTFLG *STANDARD-OUTPUT*) \READCLASSTOCODE ( +ESCAPEBIT STOPATOMBIT BREAKBIT INNERESCAPEBIT SEPRCHAR.RC) \LFTruncateFile (BYTESPERPAGE) +\CHAIN.UP.RPT (\RPTSIZE \RPTENTRYLENGTH \PAGETABLESTOPFLG) SI::DESCRIBE-INTERNAL (CL::*DESCRIBE-DEPTH* +) \UFS.FULLNAME (*DSK-HOST-NAME* *UFS-HOST-NAME*) DIRECTORY.FILL.PATTERN (\CONNECTED.DIRECTORY) +XCL::PPRINT-DEFINER-RECURSE (*STANDARD-OUTPUT*) COMP.PROG1 (COMPILE.CONTEXT) \GETREADSYNTAX ( +\MAXTHINCHAR) OPT.JUMPOPT (CL:LABELS) \VFMFreeVPage (\VFMvolumeHandle \PFFileMapFileD) \PFRoomForFile +(tVolumeFileMap) SEDIT:GET-SELECTION (:SUB-LIST :CHARACTERS) TTYINENTRYFN (LASTMOUSEBUTTONS) +\GETTERMSYNTAX (\MAXTHINCHAR) ENABLEWHEELSCROLL (\CURRENTKEYACTION \COMMANDKEYACTION \DEFAULTKEYACTION + WHEELSCROLLINTERRUPTS) PRETTYVAR1 (PRETTYPRINTMACROS DEFAULTFONT) MAKEDEFLIST (MACROPROPS) +OPT.XVARSCAN1 (TOPFRAME) \VFMDelete2 (nextKey \VFMlow \VFMold \VFMoldPtr \VFMhighPtr deleteLevel) +SEDIT:ADD-COMMAND (SEDIT::COMMAND-TABLE-SPEC) XCL::WALK-LET/LET* (XCL::*DECLARATIONS* +XCL::*LEXICAL-VARIABLES*) DWIMIFY1? (DWIMIFYING NOFIXFNSLST NOFIXVARSLST) FIX-FORM (TTYINFIXLIMIT +:CLOSE-ON-COMPLETION *CURRENT-EVENT* INPUTFONT *READ-BASE*) PRINTDEF1 (PRTTYFILE FNSLST) PRETTYVAR ( +COMMENTFLG) COMPILER::META-EVAL-PROGV (:ARGUMENT) \TEDIT.PAPERHEIGHT (TEDIT.PAPER.SIZES) +COMPILER::META-EVAL-PROGN (:EFFECT COMPILER::*LITERALLY-NIL*) NECCSPEC (U) COMPILER::EFFECTS-ANALYZE-LITERAL + (:ANY :NONE) EDITGRAPH2 (PROMPTWINDOW LASTMOUSEBUTTONS) \LFGetFileInfo (\LFtopMonitor BYTESPERPAGE) +\FM.CHECKPROPS (\FM.FORMAT-TYPES) EDITSHADEREPAINTFN (BLACKSHADE) D-ASSEM::FETCH-HUNK (D-ASSEM::*HUNK-MAP* +) XCL::%%DEFINE-TYPE-SAVE-DEFN (*DEFINITION-HASH-TABLE*) COMP.VAR (COMPILE.CONTEXT ALLDECLS) +SEDIT::REPLACE-NODE (SEDIT::TEMP-POINT SEDIT::TEMP-SELECTION) MKACCESSFN (RECORDEXPRESSION DECLST) +\M44ACTONVMEMFILE (\ISFSCRATCHDAS \ISFSCRATCHCAS \XVmemFmapBase \ISFCHUNKSIZE \XVmemFmapHighBase +WORDSPERPAGE \FILLINDA \SWAPREQUESTBLOCK WORDSPERCELL \XVmemDiskBase \DC.WRITED \DC.READD \ISFMAP +\MAINDISK) \TEXTDSPYPOSITION (\CURRENTDISPLAYLINE) SEDIT::DELETE-LITATOM (SEDIT::TYPE-STRING) +SUPERPRINTEQ (PRETTYEQUIVLST) \ITEM.WINDOW.SELECTION.HANDLER (LASTMOUSEBUTTONS LASTMOUSEX LASTMOUSEY) +\UFS.REMOVE.HOST.FIELD (:PATHNAME \DSK.DEFAULT.DIRECTORY \UFS.DEFAULT.DIRECTORY) MENUTITLEFONT ( +LASTSCREEN) \SEQUIN.COMPARE (\SC.EQUAL \SC.PREVIOUS \SC.DUPLICATE \SC.AHEAD \SC.OUTOFRANGE) +COMPAREPRINT1 (COMMENTFLG **COMMENT**FLG) \RESHOWBORDER1 (\CURSORDESTINATION \EM.DISPINTERRUPT \TOPWDS + \SCREENBITMAPS) LVLPRIN (FILE) ADDNAKEDCHAR (\CURSOR \ENDBUFFER EOLCHARCODE) SEDIT::ATOM-CHAR-ESCAPED + (*READTABLE* \MAXTHINCHAR) ACCEPT-UNIX-SOCKET-STREAM (*NEW-SHELL-DEVICE* LF.EOLC *SHELL-DEVICE*) +\REMOVE-DECLS (*SPECIAL-BINDING-MARK*) SETCOLORLV.IP (SEQLARGEVECTOR MAKEPIXELARRAY MAKESAMPLEDBLACK +COLOR.IMVAR) FORMAT-ERROR (:ARGS *FORMAT-CONTROL-STRING* *FORMAT-INDEX*) +DEFAULT.INSPECTW.VALUECOMMANDFN (PROMPTWINDOW LASTMOUSEBUTTONS) UNMAKEHARDCOPYSTREAM (\DISPLAYIMAGEOPS +) \LFGetFileName (\LFtopMonitor) \INITBFS (\MAINDISK WORDSPERPAGE \InterfacePage \LENSHORTCB \LENFP +WORDSPERCELL) COMPILER::GENCODE-CALL (:RETURN :FUNCTION COMPILER::*CURRENT-FRAME* +COMPILER::*TAIL-RECURSION-THRESHOLD* :ARGUMENT :GLOBAL) TEDIT.BUILD.PCTB (*TEDIT-FILE-READTABLE* +TEDIT.DEFAULT.FMTSPEC DEFAULTFONT LF.EOLC TEDIT.INPUT.FORMATS \PieceDescriptorPAGEFRAME +\PieceDescriptorCHARLOOKSLIST \PieceDescriptorPARALOOKSLIST \PieceDescriptorPARA \PieceDescriptorLOOKS + \PieceDescriptorOBJECT) COMP.CONST (COMPILE.CONTEXT) OPT.XVARSCAN (CODE FRAMES TOPFRAME) +SETCOLOR16.IP (SEQPACKEDPIXELVECTOR MAKEPIXELARRAY MAKESAMPLEDBLACK COLOR.IMVAR) READVARS (HPRINTRDTBL +) COMPILER::EFFECTS-ANALYZE-LAMBDA (:NONE) \TELERAIDSERVER (\LOCALNDBS \TELERAIDPACKET TR.GIVEPAGE +WORDSPERPAGE \TELERAIDBUFFER BYTESPERPAGE \PUPOVLEN TR.HEREISPAGE TR.STORE TR.STOREDONE TR.GO TR.GOACK + TR.GOREPLY MAX.SMALL.INTEGER \EM.KBDAD0 \EM.KBDAD1 \EM.KBDAD2 \EM.KBDAD3 \EM.UTILIN \EM.KBDAD4 +\EM.KBDAD5 \TELERAIDBLOCK \ResetFXP \MISCSTATS \RCLKSECOND TR.ERROR) PFI.PRINT.LAMBDA (*PFI-FNSLST*) +\UFS.DIRECTORY.NAME (\DSKtopMonitor \UFStopMonitor \FIXP) \TEDIT.PAPERWIDTH (TEDIT.PAPER.SIZES) +LVLPRIN0 (CLISPTRANFLG FILE COMMENTFLG) PPSPP (\SPPDSTYPE.COURIER \SPPDSTYPE.BULKDATA +\SPP.RETRANSMITQ.SIZE) INVERTED/SHADE/FOR/GRAPHER (BLACKSHADE) PRINTPARA1 (RMARG FILE LMARG) +XCL::%%EXPAND-DEFINER (:DEFINITION-EXPANDER) \TEDIT.GET.INSERT.CHARLOOKS (DEFAULTFONT) \BN.IGNN ( +\BIGNUM.BETA) CREATE-UNIX-SOCKET-STREAM (*NEW-SHELL-DEVICE* LF.EOLC *SHELL-DEVICE*) \SETTERMSYNTAX ( +\MAXTHINCHAR) D-ASSEM::DCODE-FROM-DLAMBDA (:FRAME-NAME :CLOSURE-P :CLOSURE D-ASSEM::*LOCAL-FN-FIXUPS*) + \SETREADSYNTAX (\MAXTHINCHAR) PFI.PRINT.LAMBDA.BODY (LAMBDAFONT BOLDFONT DEFAULTFONT) +MB.THREESTATE.SHOWSELFN (BLACKSHADE) SPECVARS (SYSLOCALVARS) \FM.CHECKDESCRIPTION (\FM.ITEM-TYPES +\FM.HJUSTIFY-SPECS \FM.VJUSTIFY-SPECS BLACKSHADE \FM.BOXSPACE) SYNTAXP (\MAXTHINCHAR) +\QUEUE.INPUT.IOCB (\MACHINETYPE \DANDELION \ES.PENDING \DL.ENABLE.INPUT \DL.ETHERINPUTREG \DAYBREAK +\DOLPHIN \D0.ENABLE.10MBINPUT \D0.INPUTSTATE) PRINT3TO10 (XIPIGNORETYPES XIPTRACEFILE +\TRANS.OP.REQUEST \TRANS.OP.RESPONSE) \10MB.STARTDRIVER (\RCLKSECOND \10MB.EXPECTED.RECEIVE.INTERVAL +\ES.PENDING) \ITEMW.FLIPITEM (BLACKSHADE) \COPYSYNTAX (\MAXTHINCHAR \NSCHARHASHKEYS +\NSCHARHASHOVERFLOW) CHECK.MARGIN (\RMARG) \BITMAPFROMTEXTURE (BITMASKARRAY) +SI::UNADVISE-FROM-RESTORE-CALLS (ADVISEDFNS *TERMINAL-IO*) XCL::%%DEFINER-NAME (:DEFINITION-NAME) +SPY.BUFFER.ENTRY (SPY.BUFFER.SIZE SPY.BUFFER) KILL.LINES (\ENDBUFFER) \READBMDIMENSIONS ( +\CURSORDESTINATION) \MAPCHARTABLE (\MAXTHINCHAR) \VFMFind (\VFMinterval nullVolumePage \VFMold \VFMlow + \VFMmaxKey) D-ASSEM::DETERMINE-LOCAL-FN-LEXICAL-LEVEL (D-ASSEM::*LOCAL-FN-FIXUPS* D-ASSEM::*DVAR-ENV* +) \VAMRecomputeFreePageCount (\VAMmonitor) DWIMIFY0 (LISPXHIST ATM DWIMEQUIVLST DFNFLG) CLISPNOEVAL ( +DWIMEQUIVLST NLAMA NLAML MACROPROPS) XCL::EXEC-TITLE-FUNCTION (*READTABLE*) BIGNUM.DEFPRINT ( +*READTABLE* MIN.INTEGER *PRINT-BASE* \BIGNUM.BETA) \MAIKO.NEWFAULTINIT (\DLBUFFERPAGES \VP.BUFFERS) +\UFStoOtherRenameMess (DEFAULTFILETYPELIST DEFAULTFILETYPE) MSCHECKVARS1 (ENTRIES V U MSDATABASELST +BLKAPPLYFNS BLKAPPLYCALLERS SEEN BLKFNS) \MAIKO.DO.MOVDS (\MAIKO.MOVDS) FW-CLOSE-CMD (FW-OFDList) +D-ASSEM::DIGEST-FUNCTION (:FUNCTION D-ASSEM::*DCODE* :ARGUMENT) \TEDIT.WINDOW.SETUP ( +TEDIT.PROMPTWINDOW.HEIGHT TEDIT.PROMPT.FONT) \VFMDeletePageGroup (\VFMmonitor nullVolumePage) +\NSRANDOM.HANDLE.ERROR (:PATHNAME PROMPTWINDOW) \INVERTITEM (BLACKSHADE) \MAIKO.ASSIGNBUFFERS ( +WORDSPERPAGE) TYPESOF (FILEPKGTYPES SHADOW-TYPES FILELST) D-ASSEM::INSTALL-LOCAL (:LOCAL +D-ASSEM::*PVAR-COUNT*) \POSITION.MENU.IMAGE (LASTSCREEN LASTMOUSEX LASTMOUSEY) \BN.ISUM0 (\BIGNUM.BETA +) EDITDELETENODE (PROMPTWINDOW) D-ASSEM::STORE-DIGEST-INFO (D-ASSEM::*FREE-VARS* D-ASSEM::*BOUND-SPECIALS* + D-ASSEM::*PVAR-COUNT* D-ASSEM:+FVAR-CODE+ D-ASSEM::*DCODE*) GLOBALVARP (GLOBALVARS) PRINTSPP ( +\SPPDSTYPE.COURIER \SPPDSTYPE.BULKDATA \SPPDSTYPE.END \SPPDSTYPE.ENDREPLY \XIPOVLEN \SPPHEAD.LENGTH) +ROTATE.IP (ROTATE) D-ASSEM::DVAR-FROM-LAP-VAR (D-ASSEM::*DVAR-ENV*) SUPERPRINTGETPROP (PRETTYEQUIVLST) + COMPILER::META-EVALUATE (:ARGUMENT) \M-VMEMSAVE (\EMUSWAPBUFFERS \IFPValidKey WORDSPERPAGE) +D-ASSEM::INTERN-TAG (D-ASSEM::*DTAG-ENV*) GETCFILE (DWIMWAIT) PRINENDLINE (*STANDARD-OUTPUT* +DEFAULTFONT SPACEWIDTH) FB.UPDATE.COUNTERS (WHITESHADE) PRINTFILEPROP (PRINTFILETYPES) \DOCOMPRESSVMEM + (\RP.GCTABLE \FPTOVP \NO.VMEM.PAGE) FIXLISPX/ (VARS) D-ASSEM::EASY-ENTRY-P (:IGNORED) +MAKEHARDCOPYSTREAM (\HDCPYDISPLAYIMAGEOPS) \SEQUIN.CLEANUP (RESETSTATE \SS.OPEN \SEQUIN.BROKEN +\SS.ABORT) POLYSHADE.SCAN.IP (DOSAVESIMPLEBODY { FILL.WRULE }) OPT.SCANOPT (CODE CONSTFNS +VCONDITIONALS CONDITIONALS CONST.FNS OPPOP FRAMES OPCOPY) DELETELINE (\FIRSTLINE \PROMPT1 \PROMPT2 +\BUFFER) \LFReadPages (BYTESPERPAGE WORDSPERPAGE) RESETGRID.NEW (WHITESHADE DARKBITSHADE) D-ASSEM::INTERN-VAR + (D-ASSEM::*DVAR-ENV*) SUBPRINT/ENDLINE (COMMENTFLG LEFT) COMP.USERFN (CL:LAMBDA-LIST-KEYWORDS TOPFN +ALLVARS COMPILEUSERFN) EQP (\STACKP \COMPILED-CLOSURE) FITP (*STANDARD-OUTPUT* %#CAREFULCOLUMNS +RMARGIN AVERAGEVARLENGTH) \IDLE.PROMPT.WATCHER (\LASTUSERACTION) DELFROMCOM (COMSNAME) +\UFS.HANDLE.RELATIVEDIRECTORY (\DSK.DEFAULT.DIRECTORY \UFS.DEFAULT.DIRECTORY) SUPERPRINT ( +PRETTYPRINTYPEMACROS LEFT RMARGIN *STANDARD-OUTPUT* FIRSTPOS COMMENTFLG CLISPARRAY) DECODEBUTTONS ( +LASTMOUSEBUTTONS) D-ASSEM::GENERATE-EASY-ENTRY (D-ASSEM:+LAMBDA-SPREAD+ D-ASSEM::*DCODE* +D-ASSEM:+NLAMBDA-SPREAD+ D-ASSEM:+LAMBDA-NO-SPREAD+ D-ASSEM:+NLAMBDA-NO-SPREAD+) SCALE2.IP (SCALE2) +UTOXCODE (*UNICODETOXCCS* TRANSLATION-SHIFT TRANSLATION-MASK) SI::UNBREAK-FROM-RESTORE-CALLS ( +BROKENFNS *TERMINAL-IO*) D-ASSEM::GENERATE-HARD-ENTRY (D-ASSEM::*DCODE* D-ASSEM:+LAMBDA-NO-SPREAD+) +PRETTYPRINT2 (OLDFILEMAP SOURCEFILE PRTTYFILE) CHAT.SET.EMULATOR (CHAT.DISPLAYTYPES) \BN.D2TH ( +\BIGNUM.THETA) ECHOCHAR (\MAXTHINCHAR REAL.CCE IGNORE.CCE SIMULATE.CCE INDICATE.CCE) \LFSetFileInfo ( +\LFtopMonitor) \10MB.INPUT.INTERRUPT (\ES.PENDING \ES.GOOD.PACKET \10MB.GETGARBAGE \MACHINETYPE +\DANDELION \DAYBREAK \MIN2PAGEBUFLENGTH WORDSPERPAGE \10MB.RAWPACKETQ \10MBPACKETLENGTH +\10MB.INPUT.TIMEOUT \10MB.INPUT.TIMER) BITMAPOBJ.SNAPW (DEFAULT.BITMAP.SCALE) GETFILEPKGTYPE ( +FILEPKGTYPES FILEPKGCOMSPLST) OPT.SETUPOPT (CODE) SETMAINTPANEL (\MACHINETYPE \DANDELION \DOLPHIN +MISC1 \DAYBREAK DOVEMISC) \COURIER.EXPEDITED.OVERFLOW (PROMPTWINDOW) MARGINBAR (WHITESHADE BLACKSHADE +EDITGRAY TEDIT.EXTENDEDRIGHTMARK) COMPILER::META-EVAL-MV-CALL (:ARGUMENT) \UFSGetFileType ( +DEFAULTFILETYPELIST DEFAULTFILETYPE) \HDCPYDSPPRINTCHAR (\MAXTHINCHAR \PRIMTERMSA INDICATE.CCE +SIMULATE.CCE REAL.CCE ERASECHARCODE IGNORE.CCE) \BN.ICANON (\BIGNUM.BETA) SUBDECLARATIONS (DECLST +CLISPTRANFLG) D-ASSEM::STACK-ANALYZE-CODE (D-ASSEM::*LEVEL* D-ASSEM::*ENDING-DEPTH*) GETXIP (\EPT.XIP +XIPTRACEFILE) \IDLE.IS.PREVIOUS (\IDLE.PASSWORD.SET \InterfacePage) IOCBQLENGTH (\IOCBFREELIST) +FIXAPPLY1 (LISPXHISTORY EXPR) \HANDLE.RAW.PACKET (\PACKET.FILTERS) XCL::UNDOABLY-MAKUNBOUND ( +COMPVARMACROHASH) ECHOCONTROL (\MAXTHINCHAR) \DL.NEWFAULTINIT (\InterfacePage \RP.STARTBUFFERS +\VP.INITSCRATCH \DLBUFFERPAGES \FPTOVP \VMAP.VACANT \MACHINETYPE \DAYBREAK \VP.IOCBS \MP.IOCBPAGE +\VMAP.CLEAN \IOCBPAGE WORDSPERPAGE \VP.IFPAGE \FP.IFPAGE \RP.IOPAGE \DANDELION 2MBPAGES +PAGESPERSEGMENT \NP.DISPLAY \MaxScreenPage \RP.DISPLAY \VP.DISPLAY \DOVEIORGNSIZE \VP.DOVEIORGN +\RP.DOVEIORGN \VP.RPT \WIDEDOVEDISPLAYWIDTH \RP.AFTERDOVEDISPLAY \RP.AFTERDISPLAY \VP.BUFFERS +\SmallNegHi \RPTENTRYLENGTH \RP.TEMPDISPLAY) POLYSHADE.BLT (FILL.WRULE) CL::%%DEFSTRUCT-CONSP-OPTIONS +(CL::%%DEFSTRUCT-OPTIONS) COMPILER::EFFECTS-ANALYZE-GO (:NONE) UPDATE/BM/DISPLAY/SELECTED/REGION ( +BLACKSHADE) SEDIT::COMPUTE-SELECTION-POSITION-LITATOM (SEDIT::TYPE-STRING) BRUSHP (KNOWN.BRUSHES) +SEDIT::PARSE--UNKNOWN (SEDIT::TYPE-UNKNOWN) PFI.HANDLE.DEFDEFINER (:NAME MAKESYSNAME :LYRIC :TEMPLATE +:DEFINITION-PRINT-TEMPLATE) FW-CHANGE-POSITION (FW-OFDList PROMPTWINDOW) \UFSSetFileType ( +DEFAULTFILETYPELIST DEFAULTFILETYPE) GETCP.IP (GETCP) TEDIT.GET (PROMPTWINDOW WAITINGCURSOR) +GETCLEARINGHOUSE (LOCAL.CLEARINGHOUSE \CH.MAINLOCK \CH.BROADCAST.SOCKET CH.NET.HINT) COMPILER::GENERATE-CODE + (:ARGUMENT) ADDTOCOM (COMSNAME MACROPROPS) \BN.MADD (\BIGNUM.BETA) COMPAREPRINT (*COMPARE-LEVEL* +*COMPARE-LENGTH*) MSCHECKBLOCKBASIC (BLKLIBRARY MSDATABASELST) OPT.POSTOPT (TOPFRAME) MOVE.BACK.TO ( +\CURSORCOL) UNIX-STREAM-CLOSE (*SHELL-DEVICE*) DELFROMCOM1 (COMSNAME) XCL::WALK-DO/DO* ( +XCL::*DECLARATIONS* XCL::*LEXICAL-VARIABLES*) READ-UNICODE-MAPPING-FILENAMES (UNICODEDIRECTORIES +XCCS-SET-NAMES) POLYSHADE.IP (;) SEDIT::COMPUTE-POINT-POSITION-LITATOM (SEDIT::TYPE-STRING) \BN.TH2B ( +\BIGNUM.THETA) \LFOpenFile (\LFtopMonitor :PATHNAME) \FM.LAYOUTGRID (\FM.PROPSPEC BLACKSHADE +\FM.BOXSPACE \FM.GROUPSPEC) D-ASSEM::STACK-ANALYZE (D-ASSEM::*LEVEL*) \UFS.REGISTER.GFS ( +\UFS.GFS.TABLE) SEDIT::PARSE--GAP (SEDIT::TYPE-GAP) COMP.UNBIND.VARS (COMPILE.CONTEXT CODE FRAME) +ACCESSDEF (DECLST USERRECLST) SENDXIP (\EPT.XIP \NS.READY.EVENT XIPTRACEFILE) \CH.PRINT.BLURB ( +PROMPTWINDOW) D-ASSEM::RESOLVE-JUMPS (D-ASSEM::*DCODE*) TIMEALL (:OUTPUT :TIMED-FORM :DATA-TYPES +:REPEAT) \INITBIGNUMS (\TT.FIXP \TT.NUMBERP \TT.ATOM) \TERMCODETOCLASS (EOL.TC NONE.TC CHARDELETE.TC +WORDDELETE.TC WORDSEPR.TC LINEDELETE.TC RETYPE.TC CTRLV.TC) \EVAL-INVOKE-LAMBDA (\STACKHI MYALINK) +\UFS.NEXTFILEFN (*DSK-HOST-NAME* *UFS-HOST-NAME*) MSCHECKBOUNDFREE (MSDATABASELST LOCALFREEVARS BLKFNS + LOCALVARS SPECVARS) \SETTYPEMASK (\DTDSpaceBase \MDSTypeTable) COMP.EQ (COMPILE.CONTEXT CODE EXP) +\ORIGTERMTABLE (\NSCHARHASHOVERFLOW ERASECHARCODE \MAXTHINCHAR) CHOOZ (SPELLSTR1 SPELLSTR2 SKORLST2) +D-ASSEM::CONVERT-TO-BINARY (D-ASSEM::*DCODE* CELLSPERQUAD) COMPILER::META-SUBST-VAR-REF (COMPILER::*SUBST-VAR* + COMPILER::*SUBST-EXPR*) \INTERPRET-ARGUMENTS (:CALLEE :ACTUAL :MAXIMUM &BODY &INTERLISP &AUX) +D-ASSEM::COMPUTE-JUMP-SIZE (D-ASSEM::+JUMP-RANGE-SIZE-MAP+) \VAMFreePageGroup (\VAMmonitor) COMP.UNBOX + (CODE) MASKSTROKE.IP (MASKSTROKE) XTOUCODE (*XCCSTOUNICODE* TRANSLATION-SHIFT TRANSLATION-MASK) +COMPILER::META-EVAL-LAMBDA (:RETURN) D-ASSEM::PRETTY-JUMPS (D-ASSEM::*JUMP-LIST*) +POSTSCRIPT.PUTBITMAPBYTES (PS.BITMAPARRAY) COMPAREFAIL (COMPARETRANSFORMS) +D-ASSEM::START-PC-FROM-NT-COUNT-LOCAL (:3-BYTE COMPILER::*ENVIRONMENT* :3-BYTE-INIT WORDSPERQUAD +WORDSPERCELL BYTESPERWORD) MSCHECKFNINBLOCK (ENTRIES BLKLIBRARY MSDATABASELST BLKFNS RETFNS +BLKAPPLYFNS) \IDLE.AUTHENTICATE (CH.DEFAULT.DOMAIN) \ARBOUT (*TEDIT-FILE-READTABLE*) D-ASSEM::SPLICE-IN-JUMPS + (D-ASSEM::+JUMP-CHOICES+) TEDIT.MINIMAL.WINDOW.SETUP (TEDIT.SELECTION) FINDFN (BRKTYPE) +D-ASSEM::COMPUTE-DEBUGGING-INFO (D-ASSEM::*DCODE*) \PEEKREFILL (\PRIMTERMTABLE) CLISP% (CLISPTRANFLG) + ISET.IP (ISET) \LOOKUPPORT (\PUPSOCKET.MISCSERVICES \PT.NAMELOOKUP \MAXETHERTRIES \PT.NAMERESPONSE +\PUPOVLEN \PORTIDLEN PUPTRACEFILE \PT.NAME/ADDRERROR) D-ASSEM::START-PC-FROM-NT-COUNT (WORDSPERQUAD +WORDSPERCELL BYTESPERWORD) PARSERELATION1 (MSWORDS) \TEDIT.APPLY.STYLES (TEDIT.STYLES) +FORWARD.DELETE.TO (\CURSOR \CURSORCOL) \POLYSHADE.YSCAN.IP (MIN.INTEGER MAX.INTEGER) PROMPTFOREVALED ( +LASTMOUSEX LASTMOUSEY) DIRECTORY.PARSE (DEFAULTEXT DEFAULTVERS DESIREDPROPS) PRINCOPY (VPRINTLEVEL) +EDITMODE (*EDITMODE* *DISPLAY-EDITOR*) ALLFIELDS (DECLST) RATOM (*INTERLISP-PACKAGE* *PACKAGE* +RATOM.RT UPPERCASEARRAY \PNAMELIMIT \FATPNAMESTRINGP) LATTICE/BREAK/CYCLES (NODELST) +FW-CHANGE-JUSTIFICATION (PROMPTWINDOW) \DL.ASSIGNBUFFERS (WORDSPERPAGE) \10MBWATCHER (\MAXWATCHERGETS) + \SUBREAD (READ.RT RATOM.RT \MAXTHINCHAR SEPRCHAR.RC OTHER.RC PACKAGEDELIM.RC *KEYWORD-PACKAGE* +FIRST.RMC ALONE.RMC *READTABLE* ESCAPE.RC MULTIPLE-ESCAPE.RC \PNAMELIMIT \FATPNAMESTRINGP +*INTERLISP-PACKAGE* LEFTPAREN.RC PROPRB.RT NOPROPRB.RT LEFTBRACKET.RC RIGHTPAREN.RC RIGHTBRACKET.RC +STRINGDELIM.RC BREAKCHAR.RC) \DL.MARK.PAGES.UNAVAILABLE (\RPOFFSET \RPTENTRYLENGTH) VKBD.FIX.FONT ( +VKBD.CONFIGURATIONS) WHATIS (FILELST) SI::PRINT-TRACE-EXIT-INFO (*TRACE-DEPTH* BOLDFONT DEFAULTFONT) +\PS.BOUTFIXP (\PS.TEMPARRAYLEN) FIND-READTABLE (\READTABLEHASH) \DL.UNMAPPAGES (\FPTOVP \VMAP.VACANT) +\RATOM/RSTRING-REFILL (\LINEBUF.OFD RATOM/RSTRING.FT) COMP.UBFLOAT2 (COMPILE.CONTEXT) HARDCOPYGRAPH ( +GRAPH/HARDCOPY/FORMAT) \10MB.OUTPUT.INTERRUPT (\ES.PENDING) \TOP-LEVEL-READ (*READTABLE* +*INTERLISP-PACKAGE* *PACKAGE* READ.RT UPPERCASEARRAY \PNAMELIMIT \FATPNAMESTRINGP) COMPILER::META-EVAL-IF + (:ARGUMENT) \TEDITPARAMENU.CREATE (TEDIT.PARAMENU.SPEC) \LFGenerateFiles (\LFtopMonitor) \DO.PROGV ( +WORDSPERQUAD CELLSPERQUAD) \READCREFILL (\LINEBUF.OFD READC.FT) COMP.BIND.VARS (CODE OPNIL MAXBVALS +EXP FRAME) \8859PEEKCCODEFN (*ISO8859TOXEROXMAP*) \CREATEW1 (WBorder) FIND.MATCHING.QUOTE ( +\MAXTHINCHAR \RDTBLSA STRINGDELIM.RC ESCAPE.RC) FILLRECTANGLE.IP (MicasToDev MASKRECTANGLE) +\UFS.ABORT.DIRECTORY (FILEGROUP) FIND-EDIT-LOCATION (*REMOVE-INTERLISP-COMMENTS*) \FM.LAYOUTCOLUMN ( +\FM.PROPSPEC BLACKSHADE \FM.BOXSPACE \FM.GROUPSPEC) EDITBMRESHAPEFN (GRIDTHICKNESS NORMALGRIDSQUARE +MINGRIDSQUARE) GRAPHOBJ.PUTALIGN (FILERDTBL) SHOWSTACKBLOCKS (\InterfacePage \STK.FSB \STK.GUARD +\STK.FX \STK.NOTFLAG WORDSPERCELL .I7) MENUDESELECT (WHITESHADE) SUBFIELDCREATE (RECORD.TRAN RNAME +MSBLIP FIELDS.IN.CREATE) \UFS.ABORT.CL-DIRECTORY (GENERATOR) PURGEHISTORY (LISPXHISTORY EDITHISTORY +LASTHISTORY ARCHIVELST LISPXCOMS) READTABLEPROP (\READTABLEHASH) SEDIT::EDIT-SELECTION (SEDIT:*EDIT-FN* +) SI::PRINT-TRACE-ENTRY-INFO (*TRACE-DEPTH* BOLDFONT DEFAULTFONT) LAYOUTGRAPH (DEFAULT.GRAPH.NODEFONT +DEFAULTFONT) SKIPSEPRCODES (SEPRCHAR.RC \MAXTHINCHAR) \GTREADTABLE (*READTABLE*) +\UFS.CLEANUP.GFS.TABLE (\UFS.GFS.TABLE) MSCHECKBLOCKS (SYSLOCALVARS FILELST MSFNTYPES DONTCOMPILEFNS) +MB.CREATE.THREESTATEBUTTON (THREESTATEIMAGEFNS) COMPARE1 (COMMENTFLG LOOSEMATCH) \FM.LAYOUTROW ( +\FM.PROPSPEC BLACKSHADE \FM.BOXSPACE \FM.GROUPSPEC) XCL::WALK-DECLARATIONS (XCL::*ENVIRONMENT*) +COMP.FLOATUNBOX (CODE) \VFMCreateVPage (\VFMvolumeHandle \PFFileMapFileD) \VAMAllocPageGroup ( +\VAMmonitor) INITIALIZECOLOR.IP (MAKEVEC FINDCOLORMODELOPERATOR DO) INSPECT/TOP/LEVEL/LIST ( +MAXINSPECTCDRLEVEL PROMPTWINDOW) FOREST/BREAK/CYCLES (NODELST) \FAULTHANDLER (\InterfacePage \FAULTFXP +) \UFSMakeUnixFormatName (\UFSDefaultDelimiter) SEDIT::CLOSE-NODE-LITATOM (SEDIT::TYPE-STRING) +\SEQUIN.HANDLE.INPUT (\PT.SEQUIN \SEQUIN.BROKEN \SC.OUTOFRANGE \SC.AHEAD \SEQUIN.RESTART \SC.DUPLICATE + \SC.PREVIOUS \SEQUIN.DALLYING \SEQUIN.DATA \SS.OPENING \SS.OPEN \SS.CLOSING \SEQUIN.QUIT \SS.CLOSED +\SEQUIN.DESTROY \SS.DALLYING) SKREAD (\MAXTHINCHAR RIGHTPAREN.RC RIGHTBRACKET.RC) \LFEventFn ( +\LFtopMonitor) \NSRANDOM.READ.SEGMENT (BYTESPERPAGE AppendBit WriteBit) DMCHAT.HANDLECHARACTER ( +\MACHINETYPE \DORADO INVERTWINDOWFN) INFILECOMSMACRO (ONFILETYPE MACROPROPS) CL:MAKE-CONCATENATED-STREAM + (%%CONCATENATED-STREAM-DEVICE) MSDWIMTRAN (FNNAME FNDEF) I.S.OPR (DFNFLG I.S.OPRLST) +\UFSParse-Directory (\UFSDefaultDelimiterChar \UFSDefaultDelimiter \DSK.DEFAULT.DIRECTORY +\UFS.DEFAULT.DIRECTORY) MSCHECKBLOCK (SPECVARS LOCALVARS GLOBALVARS RETFNS BLKLIBRARY NOLINKFNS +LINKFNS DONTCOMPILEFNS SYSSPECVARS SYSLOCALVARS MSDATABASELST) COMPILER::REMOVE-EFFECT (:NONE :ANY) +\LFDirectoryNameP (\LFtopMonitor) \8859INCCODEFN (*ISO8859TOXEROXMAP*) MAKEHASHLINKS (USINGEXPR +USINGTYPE) LISPXREAD (LISPXREADFN) CL:READ (*STANDARD-INPUT* *READTABLE* READ.RT UPPERCASEARRAY +\PNAMELIMIT \FATPNAMESTRINGP) CONDITIONS::%%RESTART-PRINTER (CL::%%DEFAULT-PRINT-FUNCTION) +\SETNEWTIME0 (PROMPTWINDOW) \ASSURE.FPTOVP.PAGE (\InterfacePage WORDSPERPAGE \FPTOVP) +CL:READ-PRESERVING-WHITESPACE (*STANDARD-INPUT* *READTABLE* READ.RT UPPERCASEARRAY \PNAMELIMIT +\FATPNAMESTRINGP) \TEDIT.HARDCOPY.DISPLAYLINE (LMInvisibleRun LMLooksChange) CREATEW1 (WBorder +MinWindowWidth MinWindowHeight \CURSORSCREEN) SETCOLOR.IP (BLACKSHADE SETGRAY WHITESHADE PRINTSERVICE) + CL:READ-DELIMITED-LIST (*STANDARD-INPUT* *READTABLE* READ.RT UPPERCASEARRAY \PNAMELIMIT +\FATPNAMESTRINGP) BACKWARD.DELETE.TO (\CURSOR) \INVALIDADDR (\MP.INVALIDADDR) \UFS.PARSE.BODY ( +\UFSBeforeType \UFSBeforeVersion) SHOWSTACKBLOCK1 (.I7) CL:PARSE-INTEGER (CMLRDTBL \MAXTHINCHAR +SEPRCHAR.RC) MENUSELECT (MENUSELECTSHADE) MSPRGDWIM (VARS) \LOOKUPPAGEMAP (\PageMapTBL \EMPTYPMTENTRY +\PAGEMAP) COMPILER::META-EVAL-CALL (:ARGUMENT :EFFECT :NONE :STMTS :VALUE :FORM :FN :ARGS) +COMPILER::EFFECTS-UNION (:NONE :ANY) PRIN2-LONG-STRING (*READTABLE* \MAXTHINCHAR SEPRCHAR.RC) +\FM.FORMATEXPLICIT (\FM.GROUPSPEC) \FM.FORMATBYGRID (\FM.GROUPSPEC) COMP.TOPLEVEL.COMPILE (LOCALVARS +SPECVARS *BC-MACRO-ENVIRONMENT* :PARENT OPCODEPROP LAPFLG LSTFIL BYTEASSEMFN TOPFN) +COMP.LOOKFORDECLARE (COMMENTFLG) PFI.ESTIMATE.SIZE1 (*PFI-MAX-WASTED-LINES*) \IDLE.OUT (IDLE.PROFILE +\LASTUSERACTION) CMLRDTBL (\MAXTHINCHAR) COMPILER::ALPHA-LAMBDA (COMPILER::*NULL-CONTEXT*) \INVALIDVP +(\MP.INVALIDVP) FINDATOM (EXPR) COMPILER::META-EVAL-CATCH (:ARGUMENT) DUMPGRAPH (FILERDTBL) +RIGHTW.REPAINTFN (INSPECTPRINTLEVEL) CL:KEYWORDP (*KEYWORD-PACKAGE*) INIT/NODES/FOR/LAYOUT (NODELST) +PFI.ESTIMATE.SIZE (:DEFINITION-PRINT-TEMPLATE :BODY) LOWERCASE (LCASEFLG) \AUTHENTICATION.FIND.SERVER +(\AUTHENTICATION.SOCKET AUTHENTICATION.NET.HINT) LISPXUNREAD (HISTSTR3 HISTSTR0) CH.LIST.PROPERTIES ( +\CH.BROADCAST.SOCKET) CHDIR (\UFStopMonitor) GETFIELDFORCREATE (RECORD.TRAN FIELDS.IN.CREATE MSBLIP +USINGTYPE) PURGEHISTORY1 (EDITHISTORY) RSTRING (\PNAMELIMIT \FATPNAMESTRINGP) +ExtensionForPrintFileType (PRINTFILETYPES) \FLUSHPAGE (\MP.WRITING.LOCKED.PAGE \LASTVMEMFILEPAGE +\GUARDVMEMFULL \PAGEMAP \PageMapTBL \FPTOVP \NO.VMEM.PAGE \IFPValidKey \FirstVmemBlock \RPOFFSET) +\RSTRING2 (\MAXTHINCHAR CRLF.EOLC ANY.EOLC OTHER.RC ESCAPE.RC *READTABLE* LF.EOLC CR.EOLC +STRINGDELIM.RC SEPRCHAR.RC \PNAMELIMIT) \TRANSFERPAGE (\VMAP.DIRTY \EMBUFBASE WORDSPERPAGE +\VMAP.VACANT \EMBUFVP \RPOFFSET \EMBUFRP \MISCSTATS) \POLYSHADE.XSCAN.IP (MIN.INTEGER MAX.INTEGER) +\UFSGetFileTypeConfirm (FileTypeMenu) LISPX (LISPXMACROS LISPXHIST HELPFLAG LISPXHISTORY +LISPXHISTORYMACROS MACROPROPS HISTSTR2 HISTSTR0) \PUTBASEFIXP (\SMALLP MASKWORD1'S \FIXP) +\UFSGetPrintFileType (DEFAULTFILETYPELIST) READOCT (RAIDIX) READ-EXTENDED-TOKEN (UPPERCASEARRAY +\MAXTHINCHAR ESCAPE.RC MULTIPLE-ESCAPE.RC \PNAMELIMIT \FATPNAMESTRINGP) \SETMACROSYNTAX (\MAXTHINCHAR +ALWAYS.RMC ESC.RME NONIMMEDIATE.RMW) \SEQUIN.FLUSH.CONNECTION (\SS.ABORT) \VFMInsertPageGroup ( +\VFMmonitor nullVolumePage) \SMASHSTRING (\MAXTHINCHAR) \NSRANDOM.PREPARE.CACHE ( +*NSFILING-PAGE-CACHE-LIMIT*) \READTABLEP.DEFPRINT (*READTABLE*) ADDCHAR (\RMARG) DELETETO (\BUFFER +\DSP) IFCDECLARE (DECLARETAGSLST) \ATBLSET (:XCCS) FW-CHANGE-ANCHOR (PROMPTWINDOW) BREAK1 (:FORM +:ENVIRONMENT :STACK-POSITION :CONDITION :FUNCTION) ERASE.TO.END.OF.PAGE (\DSP \BMARG \LMARG \DESCENT +\RMARG) MSINIT (MSDATABASEINIT USERTEMPLATES) AS.DELETE.PASSWORDS (AS.WELL.KNOWN.NAME) EDITBMREPAINTFN + (NOTINUSEGRAY GRIDTHICKNESS) BITBLT.ERASE (\TEXTURE \DSP) PRINTLEAF (\PUPOVLEN \SEQUIN.DATA SEQUINOPS + \LEAFOP.OPEN \LEAFOP.CLOSE \LEAFOP.READ \LEAFOP.WRITE \LEAFOP.ERROR LEAFOPCODES \LEAFOP.RESET +BYTESPERPAGE BITSPERWORD) ERRORMESS1 (*STANDARD-OUTPUT*) \NSFILING.ADD.TO.CACHE (FILING.CACHE.LIMIT) +BRKDWNBOXES (BDLST) SI::COMPILED-FUNCTION-DEBUGGING-INFO (WORDSPERQUAD BYTESPERWORD BYTESPERCELL) +DOUSERFNS2 (LAMBDASPLST) DO.CRLF (\CHARHEIGHT \DSP) COS (PI/180) \CLIPANDDRAWLINE1 (\CURSORDESTINATION + \EM.DISPINTERRUPT \TOPWDS \SCREENBITMAPS) PRINDOTP (RMARGIN *STANDARD-OUTPUT* FIRSTPOS) +TWODINSPECT.ARRANGEWINDOWS (MAX.SMALLP) \MOVEREALPAGE (\EMBUFVP \RPOFFSET \EMBUFBASE WORDSPERPAGE +\EMBUFRP) SIN (PI/180) XCL::WALK-BINDINGS-1 (XCL::*LEXICAL-VARIABLES*) READ/NODE (LASTMOUSEBUTTONS) +COMP.BOX (CODE) \SPECIALRP (\VP.STACK \RP.STACK \VP.DISPLAY \RP.DISPLAY) CREATE.PACKET.EXCHANGE.XIP ( +\XIPT.EXCHANGE \XIPOVLEN) SI::CLEAN-UP-CL-ARGLIST (:REQUIRED) TEDIT.PUT.PAGEFRAMES ( +*TEDIT-FILE-READTABLE*) STRING-EQUAL (SLEN1 SLEN2 BASE1 TYPENUMBER1 BASE2 TYPENUMBER2) +ERASE.TO.END.OF.LINE (\DSP \DESCENT \RMARG \CHARHEIGHT) \SELECTREALPAGE (\MAXCLEANPROBES \MINSHORTSEEK + \REALPAGETABLE \PAGETABLESTOPFLG \MP.CHAIN.UNAVAIL \RPOFFSET \RP.STACK \MACHINETYPE \DANDELION +\DAYBREAK \VMEM.FULL.STATE \LASTVMEMFILEPAGE \MAXSHORTSEEK \MP.FLUSHLOCKED \PAGEMAP \MP.MAPNOTLOCKED +\VMAP.VACANT \MP.SELECTLOOP) \10MBENCAPSULATE (\10MBHOST.WORDS \MY.NSADDRESS \10MBENCAPSULATION.WORDS) + SUPERPRINT/WRAPPER (*STANDARD-OUTPUT* RMARGIN LEFT) NLAMBDAFNP (NLAMA NLAML) \UPDATECHAIN ( +\REALPAGETABLE \PAGETABLESTOPFLG \PAGEMAP \MP.MAPNOTLOCKED \RPOFFSET \VMAP.REF) POSITION ( +*STANDARD-OUTPUT*) SI::COMPILED-FUNCTION-INTERLISP? (:INTERLISP) READBQUOTECOMMA (*READTABLE*) +\MAIKO.DISPLAYLINE (WHITESHADE LMInvisibleRun LMLooksChange BLACKSHADE) INIT.CURSOR (\DSP +\TTPAGELENGTH \CHARHEIGHT) PRINTVA (.I2) COMPPRINT (COUTFILE) MAKEDOTPTAIL (\DEDITDPHASH) DOUSERFNS ( +LAMBDASPLST) OVERFLOW? (\CURSORCOL \RMARG \ARROW \CURSOR) MAKE-READER-ENVIRONMENT (*PACKAGE* +*READTABLE* *PRINT-BASE* *DEFAULT-EXTERNALFORMAT*) \NSRANDOM.STREAM.CHANGED (AppendBit WriteBit +BYTESPERPAGE) \IDLE.WAIT (\IDLING.OVER) PFI.ADD.TO.INDEX (:NONE *PFI-PAGE-COUNT*) GETVERBTABLES ( +MSDATABASELST) CANONICAL.HOSTNAME (\DEVICENAMETODEVICE \HOSTNAMES) SI::PARSE-CL-ARGLIST (:REQUIRED) +INITIALIZEMASTER.IP (NOVERSIONENCODINGSTRING INTERPRESSVERSION) UNSAVEDEF (DFNFLG) HISTORYSAVE ( +HISTSTR3 HISTSTR2 REDOCNT %#REDOCNT EDITHISTORY EDITSTATS LISPXSTATS) BESTPUPADDRESS (\PUP.READY +\LOCALPUPNETHOST \ETHERPORTS \RT.INFINITY \PUP.ROUTING.TABLE.RADIUS \ETHERTIMEOUT) IFCPROPSCAN ( +ONFILETYPE SYSPROPS) PRIN2STRING (*DIVIDE-LONG-STRINGS* RMARGIN *STANDARD-OUTPUT* FIRSTPOS) ADDTO ( +MSFNDATA INCLISP) BACKSKREAD (\BUFFER \MAXTHINCHAR \RDTBLSA LEFTPAREN.RC LEFTBRACKET.RC ESCAPE.RC +STRINGDELIM.RC MULTIPLE-ESCAPE.RC OTHER.RC RDTBL) DECLARERECORD (RECORDTRANHASH DFNFLG) +SEDIT::ASSIGN-FORMAT-LITATOM (:KEYWORD) \READREFILL (\LINEBUF.OFD READ.FT) COMP.PROGN (COMPILE.CONTEXT + CODE OPPOP) \TEDITMENU.SELSCREENER (TEDIT.SCRATCHSELECTION) LISPXFIND (ARCHIVELST HISTSTR0) +SHOWWFRAME (BLACKSHADE WHITESHADE) GRAPHOBJ.GETALIGN (FILERDTBL) FW-REPAINTFN (FW-OFDList) +COMP.TRANSFORM (COMPILE.CONTEXT *BC-MACRO-ENVIRONMENT* COMPILERMACROPROPS) EDITCHANGEFONT ( +PROMPTWINDOW) MAKECREATELST1 (MSBLIP USINGTYPE COMMENTFLG) OPENNSOCKET (\MISCSTATS) +\NSFILING.MAYBE.CREATE (:ASKED DWIMWAIT) COMP.ASET (ALLDECLS COMPILE.CONTEXT) +ONEDINSPECT.ARRANGEWINDOWS (MAX.SMALLP) FONTCREATE (\DEFAULTCHARSET IMAGESTREAMTYPES) +SEDIT::ATOM-POINT-TYPE (*READTABLE*) COMP.AREF (ALLDECLS COMPILE.CONTEXT) TTBITWIDTH (\FONT) +\SEND.EXPEDITED.XIP (\MAXETHERTRIES \ETHERTIMEOUT \XIPT.EXCHANGE \COURIERMSG.RETURN \COURIERMSG.REJECT + \COURIERMSG.ABORT \XIPT.ERROR \XIPE.NOSOCKET) \APPLYREADMACRO (*READTABLE*) \PFEnsureInitialized ( +\PhysVolumePage) FILEBLOCKTRAILER (OUTX \UsedArrayFlagWord) \INTERNAL/SETPASSWORD (\GETPASSWORD.LOCK +LOGINPASSWORDS \InterfacePage UPPERCASEARRAY \AFTERLOGINFNS) UNDOLISPX2 (UNDOSTATS) INSPECTW.REPAINTFN + (INSPECTPRINTLEVEL) INTERSECTREGIONS (MIN.FIXP MAX.FIXP) LLSH (\FIXP \SMALLP \FLOATP MAX.POS.HINUM) +\POLYSHADE.DISPLAY (MIN.SMALLP MAX.SMALLP) CHAT.CHOOSE.EMULATOR (CHAT.DISPLAYTYPES) \SUBREADCONCAT ( +\FATPNAMESTRINGP) FILL.INITTBLE (\TOPWDS \SCREENBITMAPS) \PFVersionOK (pilotVersion) EDITBMSCROLLFN ( +SCREENWIDTH SCREENHEIGHT WHITESHADE) TTBIN (EDITPREFIXCHAR \DSP) RAIDROOTFRAME (VMEMFILE +\InterfacePage) \INVALID.SYMBOL (:NAME *KEYWORD-PACKAGE* \FATPNAMESTRINGP) TTWAITFORINPUT (\DSP +LASTMOUSEBUTTONS \CHARHEIGHT LASTMOUSEX LASTMOUSEY \BUFFER \ENDBUFFER \BMARG \TTPAGELENGTH \LOC.ROW.0 +\TTYINSTATE) SI::CONSTRUCT-MIDDLE-MAN (:UPCASE) SHOWWTITLE (WINDOWTITLESHADE BLACKSHADE +WINDOWTITLEPRINTLEVEL) ETHERPORT (\ETHERPORTS) COMP.BLOCK (COMPILE.CONTEXT) FSET.IP (FSET) +TEDIT.FORMATTEDFILEP (TEDIT.DEFAULT.CHARLOOKS) \TFBRAVO.READ.PARALOOKS (USER.CM.PARALOOKS) TTYIN ( +TTYINFILLDEFAULT TTYINRAISEFLG \PRIMTERMTABLE TYPEAHEADFLG TTYINWORDRDTBL DEFAULTPROMPT) +INFILECOMSPROP (ONFILETYPE) \TEDIT.HARDCOPY.FORMATLINE (FORMATTINGSTATE TEDIT.DONT.LAST.CHARS +TEDIT.DONT.BREAK.CHARS DEFAULTFONT) MAKEINITBFS (\NWORDS.DSKOBJ \FIXEDLENDISKREQUEST +\DEFAULTDASTORAGELENGTH \LENCB BITSPERWORD) EDITCHANGELABEL (PROMPTWINDOW) \INTERNAL/GETPASSWORD ( +LOGINPASSWORDS) TTSKREAD (\ENDBUFFER \MAXTHINCHAR \RDTBLSA LEFTPAREN.RC LEFTBRACKET.RC RIGHTPAREN.RC +RIGHTBRACKET.RC STRINGDELIM.RC ESCAPE.RC MULTIPLE-ESCAPE.RC OTHER.RC RDTBL) \FM.FORMAT (\FM.PROPSPEC +BLACKSHADE \FM.BOXSPACE) READGRAPH (FILERDTBL) CLOSEPOSTSCRIPTSTREAM (:EOL) MSPRGLAMBDA (VARS +CL:LAMBDA-LIST-KEYWORDS FNNAME MSCHANGEDARRAY LAMBDATRANFNS) TTYIN.READ (\ENDBUFFER \MAXTHINCHAR +\RDTBLSA RIGHTPAREN.RC RIGHTBRACKET.RC ESCAPE.RC \NORUNCODE \LINEBUF.OFD READING.LBS) SEDIT::INITIALIZE + (SEDIT::GAP-BITMAP SEDIT::ARGS-BITMAP SEDIT::BODY-BITMAP) COMPILER::CONSTRUCT-PROG1-TREE (:VARIABLE +:REQUIRED :BODY :STMTS :FN :ARGS) GETCHATWINDOW (CHAT.WINDOW.SIZE CHAT.WINDOW.REGION) BRV/OFFSET ( +NODELST TERMY) TTYIN.SETUP (\DSP \SCREENBITMAPS) CH.NUMBER.TO.PROPERTY (CH.PROPERTIES) PRINTADDRS (.I7 + .I5) HISTORYFIND (LINE LISPXFINDSPLST HISTORY TYPE BACKUP QUIETFLG) COMP.ATTEMPT.COMPILE (COUTFILE +BYTECOMPFLG SPECVARS LOCALFREEVARS) MAKEMACFORMAT (:MACINTOSH) \BUILD.EXPEDITED.XIP (\COURIERMSG.CALL +\XIPOVLEN) PRINTFILETYPE (PRINTFILETYPES) TTYIN.FINISH (RDTBL \ARROW \MAXTHINCHAR \RDTBLSA ESCAPE.RC +ECHOTOFILE \BUFFER TTYINCOMMENTCHAR \LINEBUF.OFD TTYINRESPONSES) EQUAL-READER-ENVIRONMENT (:XCCS) +\IMAGEIOINIT (\CURRENTDISPLAYLINE NSCHARSETSHIFT) UNDOLISPX (LISPXHISTORY) \ITEM.WINDOW.COPY.HANDLER ( +LASTMOUSEBUTTONS) DCODERD (*READTABLE* FILERDTBL CODERDTBL WORDSPERQUAD BYTESPERQUAD CELLSPERQUAD +\NT.PVARCODE \NT.FVARCODE \NT.IVARCODE) TTYINREAD (\LINEBUF.OFD LISPXID HISTSTR0) \SEQUIN.CONTROL ( +\PUPOVLEN) \MEDW.BLTCHAR (\CURSORDESTINATION \EM.DISPINTERRUPT \TOPWDS \SCREENBITMAPS) UNBREAK0 (:IN) +XCL::WALK-ARGLIST (CL:LAMBDA-LIST-KEYWORDS) TTYIN1 (\FONT \DSP \LMARG \CURSORCOL \CHARWIDTH OPTIONS +HISTSTR1 HISTSTR0 RDTBL TTYINREADMACROS \BUFFER \ENDBUFFER \MAXTHINCHAR \PRIMTERMSA CHARDELETE.TC +LINEDELETE.TC WORDDELETE.TC RETYPE.TC \FIRSTLINE DISPLAYTERMFLG \RDTBLSA IMMEDIATE.RMW RIGHTPAREN.RC +RIGHTBRACKET.RC USERWORDS LASTWORD DIDESCAPECODE \PROMPTFORWORD STOPATOMBIT EOLCHARCODE +TTYINCOMMENTCHAR DORADO.RESTORE.BUF.CODES TTYIN.RESTORE.BUF.CODES) WTFIX1 (NOSPELLFLG +DWIM.GIVE.UP.TIME DWIM.GIVE.UP.INTERVAL EXPR LISPXHIST LISPXHISTORY WTFIXCHCONLST LPARKEY CLISPCHARRAY + CLISPCHARS WTFIXCHCONLST1 COMMENTFLG DWIMUSERFORMS FAULTARGS SPELLINGS2 CLISPCONTEXT CLISPISWORDSPLST + TAIL PARENT CLISPINFIXSPLST :RESPELL) \MEDW.YOFFSET (MAX.SMALLP) \VFMGetPageGroup (\VFMmonitor) +DCODESKIP (*READTABLE* FILERDTBL CODERDTBL CODEINDICATOR) TTYIN1RESTART (\LINEBUF.OFD \TTYINSTATE) +SETINITIALS (INITIALSLST) \NOIMAGE.DSPFONT (FONTESCAPECHAR) MAXMENUITEMWIDTH (:ESCAPE MENUSUBITEMMARK) + IFCPROPS (TYPE) PRIN4 (PLVLFILEFLG *PRINT-LEVEL* *PRINT-LENGTH* *INTERLISP-PACKAGE* *PACKAGE*) +TTDELETELINE (\BUFFER) \ORIG-INVALID.SYMBOL (*KEYWORD-PACKAGE*) FW-BUTTONEVENTFN (LASTMOUSEBUTTONS) +\PUPINIT (\MACHINETYPE \MAIKO) EXEC-PRINT (*TERMINAL-IO*) \ALLOC.CODE.BLOCK (CODEBLOCK.GCT +CELLSPERQUAD) FLIPCURSORBAR (\EM.CURSORBITMAP MAX.SMALLP \MACHINETYPE \DAYBREAK \MAIKO) FW-AFTERMOVEFN + (FW-OFDList SCREENWIDTH SCREENHEIGHT) ETHERHOSTNUMBER (\PUP.READY \LOCALPUPNETHOST) INFILECOMSVAL ( +ONFILETYPE TYPE) \TEDIT-OPEN-FONT-FILE (MAX.SMALLP) \NSFILING.CONNECT (\NSFILING.NULL.HANDLE) CL:GENTEMP + (*PACKAGE* CL::*GENTEMP-COUNTER*) \LINEWITHBRUSH (\TOPWDS \SCREENBITMAPS \CURSORDESTINATION +\EM.DISPINTERRUPT) GO.TO.ADDRESSING (\LOC.ROW.0) RAIDSTACKCMD (\InterfacePage WORDSPERPAGE .I7 ALINKS? + RAIDIX) RECORD.FIELD.VALUE0 (USINGEXPR USINGTYPE) PROVIDE.PROMPTING.WINDOW (TTYREGIONOFFSETS +UNSCHEDULEDPROMPTREGION) ERASEPROPS (SMASHPROPSLST SMASHPROPSMENU) AT.END.OF.SCREEN (\ARROW \CURSOR +\CURSORCOL \CHARWIDTH \RMARG) BROWSE/LAYOUT/LATTICE (NODELST) RESTORE.CURSOR (\HOMECOL \HOMEROW) +\ALLOCATE.ETHERPACKET (\FREE.PACKET.QUEUE \XIPOVLEN) PRINTHISTORY (EDITHISTORY) ROUND (XCL::SROUND) +AS.CREATE.PASSWORDS (AS.WELL.KNOWN.NAME) PRINTHISTORY1 (HISTSTR2 HISTSTR0) BRKDWNCONSES (BDLST) +\CCLOSURE.DEFPRINT (*READTABLE*) \TFBRAVO.READ.CHARLOOKS (USER.CM.CHARLOOKS) HELPSYS (MACROPROPS +IRMWINDOW) POSTSCRIPT.BITMAPSCALE (POSTSCRIPT.BITMAP.SCALE POSTSCRIPT.PAGETYPE POSTSCRIPT.PAGEREGIONS +POSTSCRIPT.PREFER.LANDSCAPE \POSTSCRIPT.ORIENTATION.MENU) TB.CLEAR.LINE (WHITESHADE) +SUPERPRINT/COMMENT (RMARGIN COMMENTFLG COMMENTCOL LEFT COMMENTFONT TAIL) RINGBELLS (\MACHINETYPE +\DAYBREAK \DANDELION \MAIKO RINGBELLS.L1 RINGBELLS.L2) UNIX.SETDISPLAYTYPE (UNIXCHAT.TSET.DELAY) +\IDLE.PROMPTING.WINDOW (PROMPTWINDOW) PFI.DEFAULT.HANDLER (*PFI-DEFINER-PROPS* +:DEFINITION-PRINT-TEMPLATE *PFI-TYPES* :NAME *PFI-PAGE-COUNT*) PUTSEQUIN (\SS.OPEN \SEQUIN.DATA +\SS.UNOPENED \SS.OPENING \SEQUIN.OPEN \ETHERTIMEOUT) STRINGWIDTH (DEFAULTFONT) HREAD (HPRINTRDTBL) +MSPRGTEMPLATE (VARS MSMACROPROPS) CHAT.INIT (CHAT.IN.EMACS?) SEDIT::STRING-OFFSET (*READTABLE*) +FB.SHAPECOMMAND (SCREENWIDTH SCROLLBARWIDTH) BYTEBLOCKCOMPILE2 (RETFNS NOLINKFNS BLKAPPLYFNS) +MAKEIBMFORMAT (:IBM) \MAKESPACEFORLOCKEDPAGE (\VP.STACK \RP.STACK \VP.DISPLAY \RP.TEMPDISPLAY +\VP.FPTOVP \RP.FPTOVP \InterfacePage \RP.MISCLOCKED \FPTOVP) RAIDCOMMAND (RAIDIX \STACKHI .I2 \LITATOM + \NEW-ATOM \InterfacePage .I7 VMEMFILE BYTESPERPAGE) SETUPPAGEMAP (\PAGEMAP \PageMapTBL \NumPMTpages +\EmptyPMTEntry \NumPageMapPages \PMblockSize \FirstVmemBlock \LOCKEDPAGETABLE \NumLPTPages) +WORDSPERNAMEENTRY (:3-BYTE COMPILER::*TARGET-ARCHITECTURE* :3-BYTE-INIT) INSPECT/ARRAY ( +MAXINSPECTARRAYLEVEL PROMPTWINDOW) CL:RETURN-FROM (:TAG) DISPLAYAFTERENTRY (\EM.CURSORBITMAP +\VideoColor) COMPSETREAD (DWIMWAIT COMPSETDEFAULTKEYLST HISTSTR0) DISPLAYBEFOREEXIT (\DisplayStarted) +CLOSEHASHFILE (SYSHASHFILE) SUPERPRINT/SPACE (RMARGIN SPACEWIDTH LEFT) MSPRGTEMPLATE1 (PARENT FNNAME +FNDEF PARENTCONTEXT VARS TOPVARS) CMLREAD.FEATURE.PARSER (*FEATURES*) TEDIT.MODIFYLOOKS (BLACKSHADE) +\SETUFNENTRY (\UFNTable \LITATOM \NEW-ATOM) SEDIT::FORMAT-VALUES-CHANGED (SEDIT::TYPE-LITATOM) +\GETUFNENTRY (\UFNTable) \NEWEPHEMERALPAGE (\MiscFXP) \PFPurgeRootDirectory (tRootDirectory +tUnassigned) \DONEWEPHEMERALPAGE (\PageMapTBL \EMPTYPMTENTRY \PAGEMAP \MP.NEWPAGE \UPDATECHAINFREQ +\RPT.UNAVAILABLE \RPOFFSET \VMAP.DIRTY WORDSPERPAGE \MISCSTATS) MAKESYS (MAKESYSNAME HERALDSTRING) +FORMAT-NEWLINE (*STANDARD-OUTPUT*) CHARACTER.READ (\MAXTHINCHAR *READTABLE*) INFILECOM (TYPE +COMMENTFLG NAME MACROPROPS) GRID (BLACKSHADE WHITESHADE) \VFMClearIntervals (maxLogicalVolumes +\VFMintervals) \8859OUTCHARFN (*XEROXTOISO8859MAP*) SUBPRINT/WRAPPERTAIL (*STANDARD-OUTPUT* RMARGIN +LEFT) PURGENSFONTS (NSFONTFAMILIES) INFILECOMSVALS (COMMENTFLG) FORMAT-EAT-WHITESPACE ( +*FORMAT-CONTROL-STRING*) \PICK.EVALQT (\TopLevelTtyWindow XCL:*PROFILE*) MSPRGERR (MSERRORFN) FLIPNODE + (BLACKSHADE) \TEDIT.MARK.REVISION (BLACKSHADE) CALLSCCODE (IGNOREFNS \AtomHI BITSPERBYTE :4-BYTE +COMPILER::*HOST-ARCHITECTURE* :3-BYTE) EXCHANGEPUPS (\ETHERTIMEOUT) FB.DEPTHCOMMAND ( +FB.DEPTH.MENU.ITEMS :NUMBER) BREAK.NSFILING.CONNECTION (\FILEDEVICES) COMPILER::CLOSURE-ANNOTATE-VAR-REF + (:LEXICAL) FILLTRAJECTORY.IP (MAKEOUTLINE MASKFILL) MAKEISOFORMAT (:ISO8859/1) \SHOWMENULABEL ( +MENUSUBITEMMARK :ESCAPE) INSPECT/ATOM (PROMPTWINDOW) \SEQUIN.PUT (\PT.SEQUIN) \INSPECTW.VALUE.MARGIN ( +MinSpaceBetweenProperyAndValue PropertyLeftMargin MaxValueLeftMargin) \CODEBLOCKP (\FirstArraySegment +\ArrayBlockHeaderWords \ArrayBlockPassword CODEBLOCK.GCT \DTDSpaceBase) DEFAULT.BACKGROUND.COPYFN ( +LASTMOUSEBUTTONS) \TEMPLOCKPAGES (\MiscFXP) TTPROMPTCHAR (\FIRSTLINE \PROMPT1 \PROMPT2) +ADJUSTLINE.AND.RESTORE (\HOMECOL \ARROW \CURSOR) NSDISPLAYSIZE (DISPLAYFONTEXTENSIONS NSFONTFAMILIES +INTERPRESSFONTEXTENSIONS) RAIDSHOWFRAME (ROOTFRAME RAIDIX) READPAGEMAPBLOCK (\PMblockSize VMEMFILE) +PFI.PRETTYPRINT (*PFI-FNSLST*) \DSPFONT.PSC (*POSTSCRIPT-UNACCENTED-FONTS*) \QUEUE.OUTPUT.IOCB ( +\MACHINETYPE \DANDELION \ES.PENDING \DL.ENABLE.OUTPUT \DL.ETHEROUTPUTREG \DAYBREAK \DOLPHIN +\D0.ENABLE.10MBOUTPUT \D0.OUTPUTSTATE) \DFSFreeDiskPages (\LFtopMonitor) HELP (:FORMAT-STRING +:FORMAT-ARGUMENTS) SEDIT::DEFAULT-PACKAGE (*PACKAGE*) COMP.SPREAD (CL:CALL-ARGUMENTS-LIMIT) +\PROMPTFORWORDRETYPE (DONTECHOTYPEIN.FLG CHARBUFFER ECHO.CHANNEL) \NSFILING.OPENFILE (NoBits) +FILECODEBLOCK (\ArrayBlockOverheadCells CELLSPERQUAD CODEBLOCK.GCT OUTX \CodeArrayFlagWord) DWIM ( +DWIMODELST) \PROMPTFORWORDERASE (X0Y0 ECHO.CHANNEL) FB.INFOMENU.WHENSELECTEDFN (WHITESHADE +FB.INFOSHADE) \PROMPTFORWORDBIN (\LINEBUF.OFD \KEYBOARD.STREAM TERMINCHARS.LST) CREATE-SHELL-STREAM ( +*NEW-SHELL-DEVICE* *SHELL-DEVICE*) FM.CHANGELABEL (\FM.GROUPSPEC) READPAGEMAP (\InterfacePage \PAGEMAP + PAGESPERSEGMENT \PMblockSize \NumPMTpages \PageMapTBL \EmptyPMTEntry) TEDIT.FORMATFOLIO ( +TEDIT.DEFAULT.FOLIO.LOOKS) \DOFLUSHVM (\EMUSWAPBUFFERS) CHAT (CHAT.ALLHOSTS) \RELEASEWORKINGSET ( +\RPTSIZE \RPOFFSET \VMAP.VACANT) \PROMPTFORWORDBS (DONTECHOTYPEIN.FLG ECHO.CHANNEL) UPDATE/MENU/IMAGE +(LASTSCREEN MENUSUBITEMMARK BLACKSHADE WHITESHADE MAX.SMALLP) OPENHASHFILE (HASHACCESSTYPES +SYSHASHFILELST) \FLUSHVM (\MiscFXP \FAULTFXP \SYSTEMCACHEVARS) \NSFILING.DESERIALIZE (:PATHNAME) +COURIER.EXECUTE.EXPEDITED.CALL (\EXTYPE.EXPEDITED.COURIER) \10MBSENDPACKET (\MY.NSADDRESS +\10MBTYPE.TRANSLATIONS) LISPXFIX (HISTSTR0) XCL::SET-CONSTANTP (COMPVARMACROHASH) CHARCODE.DECODE ( +CHARACTERNAMES CHARACTERSETNAMES) TTYIN.PPTOFILE (\RMARG \INITPOS \DSP) DSKDISPLAY (\DSKDISPLAY.WINDOW +) \PAGEDBACKFILEPTR (AppendBit BYTESPERPAGE) MAPHASHFILE (HASH.HEADER.SIZE HASHFILERDTBL HASH.KEY.SIZE +) STRPOSL (\MAXTHINCHAR) \MATCHPCS (\WORDSINBTREEMAIN) SET-SYMBOL (*SPECIAL-BINDING-MARK* \STACKHI) +\CREATECHARSET (\MAXCHARSET \DISPLAYSTREAMTYPES IMAGESTREAMTYPES) COMPUTE-MACRO-ARGS (*MACRO-FORM* +*MACRO-DEFAULT*) CHANGECCODE (GCREF) SENDPUP (\EPT.PUP \PUP.READY PUPTRACEFILE) +\NSFILING.CLOSE.CONNECTIONS (:ABORT) MACROS.GETDEF (MACROPROPS) TRACKCURSOR (LASTMOUSEBUTTONS) +MSPRGRECORD (MSFNDATA) DEFAULTFONT (\GUARANTEEDDISPLAYFONT) EXPANDMACRO (CLISPARRAY COMPILERMACROPROPS +) \COURIER.HANDLE.ERROR (PROMPTWINDOW) \DSPPRINTCHAR (\MAXTHINCHAR \PRIMTERMSA REAL.CCE ERASECHARCODE +INDICATE.CCE SIMULATE.CCE \MACHINETYPE \DANDELION \DAYBREAK \MAIKO IGNORE.CCE) MSUSERVBTABLES ( +MSUSERVBTABLES) AS.REPLACE.PASSWORDS (AS.WELL.KNOWN.NAME) SUPERPRINT/COMMENT2 (TAIL *STANDARD-OUTPUT*) + \STRINGWIDTH.GENERIC (*PRINT-LEVEL* *PRINT-LENGTH*) PRINT-EVENT (INPUTFONT HISTSTR0 PRINTOUTFONT +VALUEFONT) SUPERPRINT/COMMENT1 (COMMENTFONT *STANDARD-OUTPUT* SPACEWIDTH COMMENTCOLUMN) +\DSPCLIPPINGREGION.DISPLAY (MAX.SMALLP) \PEEKCCODE.NOEOLC (\DEFAULTPEEKCCODE) \SPP.PREPARE.OUTPUT ( +\MAX.XIPDATALENGTH \SPPHEAD.LENGTH) MAPPAGES (\InterfacePage) INSPECT/TYPELESS (\ArrayBlockHeaderWords + \ArrayBlockPassword \ArrayBlockOverheadWords) \CLIPANDDRAWLINE (BLACKSHADE \CURSORDESTINATION +\EM.DISPINTERRUPT \TOPWDS \SCREENBITMAPS) \INCCODE.EOLC (LF.EOLC ANY.EOLC CR.EOLC CRLF.EOLC +\DEFAULTINCCODE) PopUpWindowAndGetAtom (LASTMOUSEX SCREENWIDTH LASTMOUSEY) COMPILER::CLOSURE-ANNOTATE-TAGBODY + (:SCOPE :LEXICAL :KIND :VARIABLE :NAME :BINDER :CLOSED-OVER) MSBINDVAR (INVISIBLEVARS PARENT) +\BACKCOLOR.DISPLAY (WORDMASK) PRINTCOMSTRAN (PRINTOUTTOKENS VARS FAULTFN) \FIXLINELENGTH.PSC ( +MAX.SMALLP) PREVLINE (\FIRSTLINE) \UNCOPY (\SMALLP \SmallPosHi \FIXP \FLOATP \LITATOM \STRINGP +\CHARACTERP \CHARHI %%ONED-ARRAY PTRBLOCK.GCT \LISTP) FB.INFOMENU.SHADEINITIALSELECTIONS (FB.INFOSHADE +) COMP.GETBASE (COMPILE.CONTEXT EXP CODE) \BLTSHADE.DISPLAY (\TOPWDS \SCREENBITMAPS \CURSORDESTINATION + \EM.DISPINTERRUPT) \OK.TO.IDLE? (\GETPASSWORD.LOCK) PRINTCODE (BITSPERBYTE BYTESPERWORD BYTESPERQUAD +BYTESPERCELL \PRINTCODE.LEVEL \PRINTCODE.STKSTATE \AtomHI \INITSUBRS \USER-SUBR-LIST) +TEDIT.CURSORMOVEDFN (\TEDIT.SPLITCURSOR TEDIT.LINECURSOR) MAKEROOMFORPME (\PageMapTBL \EmptyPMTEntry +WORDSPERPAGE \PAGEMAP \PMblockSize) PFI.HANDLE.EXPR (COMMENTFLG *PFI-HANDLERS*) TEDIT.FORMATPAGE ( +:SEARCHING-FOR-EQUIVALENT-PAGE :NEW-PAGE-LAYOUT) EDITBMBUTTONFN (LASTMOUSEBUTTONS \CURRENTCURSOR +\CURSORDESTINATION WHITESHADE BLACKSHADE SCREENWIDTH SCREENHEIGHT) \BITBLT.DISPLAY (\CURSORDESTINATION + \EM.DISPINTERRUPT \TOPWDS \SCREENBITMAPS) \PFCreateRootDirectory (tRootDirectory) PRINTCODENT (OUTF +I4 CODEBASE \AtomHI BITSPERBYTE IVARCODE PVARCODE) GETPUP (\EPT.PUP PUPTRACEFILE) DELETETO1 ( +\ENDBUFFER TTYINBSFLG) POLYSHADE.DISPLAY (FILL.WRULE) \SPLITTREE (\WORDSINBTREEMAIN +\BTREETOPHALFOFFSET \BTREEMAXENTRIES \BTREEWORDSPERENTRY) PRINT-EVENT-PROMPT (PROMPTFONT +XCL:*EXEC-PROMPT*) TYPEP (CL::*TYPEP-HASH-TABLE*) \DRAWCIRCLE.DISPLAY (\TOPWDS \SCREENBITMAPS +\CURSORDESTINATION \EM.DISPINTERRUPT) \SEQUIN.PROCESS (\PT.SEQUIN \PT.ERROR PUPTRACEFLG \SS.OPENING +\PUPE.NOSOCKET \SS.ABORT \SS.CLOSING PSTAT.TIMEDOUT \SEQUIN.TIMEOUTMAX \SEQUIN.DESTROY \SEQUIN.NOOP) +CODEWRAPPER.PRETTYPRINT (FNSLST) UNIXCHAT.OPEN (\MACHINETYPE \MAIKO) \DRAWELLIPSE.DISPLAY (\TOPWDS +\SCREENBITMAPS \CURSORDESTINATION \EM.DISPINTERRUPT) COMPILER::*LITERALLY-T* (:VALUE) \XCCSINCCODE ( +NSCHARSETSHIFT \NORUNCODE) SEQUENTIAL.PRETTYPRINT (*STANDARD-OUTPUT* *BACKQUOTE-WRAPPERS*) CSUBST ( +SPECIALFIELDS CREATEINFO USINGEXPR ARGS BODY FIELDNAMES SUBSTYPE RECORD.TRAN RECORDEXPRESSION +CLISPARRAY DECLST) 32MBADDRESSABLE (\MACHINETYPE \DORADO \DOLPHIN \DAYBREAK \InterfacePage) +\DRAWLINE.DISPLAY (\TOPWDS \SCREENBITMAPS) BROWSE/LAYOUT/HORIZ/COMPACTLY (MOTHERD) +\TEDIT.APPLY.PAGEFORMATTING (TEDIT.PAGE.FRAMES) \TEDIT.CLEAR.SCREEN.BELOW.LINE (WHITESHADE) CLISPDEC1 +(CLISPRECORDTYPES DECLWORDS SKORLST1) \FILLCIRCLE.DISPLAY (\TOPWDS \SCREENBITMAPS \CURSORDESTINATION +\EM.DISPINTERRUPT) FILL.XPER (\CURSORDESTINATION \EM.DISPINTERRUPT \TOPWDS \SCREENBITMAPS) +INSPECTW.REDISPLAY (INSPECTPRINTLEVEL PropertyLeftMargin MinSpaceBetweenProperyAndValue) MAKECREATE1 ( +USINGTYPE MSBLIP FIELDINFO FIELDS.IN.CREATE RECORDEXPRESSION DECLST RECORD.TRAN) EDITDATE? (COMMENTFLG + INITIALS) \XCCSOUTCHAR (\NORUNCODE NSCHARSETSHIFT) CASE.PRETTYPRINT (*STANDARD-OUTPUT* +*BACKQUOTE-WRAPPERS*) \SET.LASTVMEMFILEPAGE (\InterfacePage \GUARDVMEMFULL) \DSPYPOSITION.DISPLAY ( +MAX.SMALLP) \SEQUIN.CLOSE (\SS.OPEN \SS.CLOSING \SEQUIN.DESTROY) PFI.MAYBE.NEW.PAGE (*STANDARD-OUTPUT* + *PFI-MAX-WASTED-LINES*) INDENTATION.FROM.HERE (*STANDARD-OUTPUT*) \PFCurrentVol (\PhysVolumePage) +MAKEINITLAST (MKI.PLHA MKI.TVHA BYTESPERPAGE WORDSPERPAGE \FirstArrayPage MKI.CODESTARTOFFSET +INITVALUES INITPTRS \LITATOM \NEW-ATOM MKI.VALUES MKI.PTRS LOCKEDVARS MKI.ATOMARRAY) COMPILER::*LITERALLY-NIL* + (:VALUE) COMP.LOOKUPVAR (ALLVARS) PROG1.PRETTYPRINT (*STANDARD-OUTPUT*) \GETREGION.CHECKOPPT ( +NEWREGIONFNARG) DODIRCOMMANDS (UPPERCASEARRAY FILEINFOTYPES) \CREATE.XCCS.EXTERNALFORMAT (:XCCS +LF.EOLC) FGET.IP (FGET) \NSFILING.AFTER.LOGIN (\NSFILING.ACTIVE.SESSIONS) SUPERPRINT0 ( +PRETTYPRINTMACROS %#RPARS RMARGIN *STANDARD-OUTPUT*) ENDREAD? (\CURSOR \BUFFER \ENDBUFFER \READING +\PROMPT1 \MAXTHINCHAR \RDTBLSA SEPRCHAR.RC LEFTPAREN.RC LEFTBRACKET.RC ESCAPE.RC MULTIPLE-ESCAPE.RC) +\LOOKUPFONT (\FONTSINCORE) \MAKEBRUSH.ROUND (BLACKSHADE) PROGV.PRETTYPRINT (*STANDARD-OUTPUT*) HPRINT +(HPRINTRDTBL) \DRAWLINE.PSC (:EOL) INSPECT/DATATYPE (\DTDSpaceBase PROMPTWINDOW) \10MBGETPACKET ( +\10MB.RAWPACKETQ \10MBTYPE.TRANSLATIONS) DUMPINITPAGES (\MAXVMPAGE NEXTPM NEXTVMEM \PAGEMAP +\PageMapTBL \IFPValidKey MKI.Page0Byte) DO.PRETTYPRINT (*STANDARD-OUTPUT* SPACEWIDTH) MSPRGE ( +INVISIBLEVARS VARS TOPVARS PARENT USERTEMPLATES MSTEMPLATES MSRECORDTRANFLG) +XCL::VARIABLE-LEXICALLY-BOUNDP (:UNSURE XCL::*LEXICAL-VARIABLES*) FREEMENU (\FM.DEFAULTFORMAT +DEFAULTFONT \FM.ROWSPACE \FM.COLUMNSPACE) UNIX.HOST.FILTER (\MACHINETYPE \MAIKO) \COPY (\SMALLNEGSPACE + \SMALLPOSPSPACE \FIXP \FLOATP \CHARHI) DIRPRINTNAME (\MAXTHINCHAR UPPERCASEARRAY) CH.PROPERTY ( +CH.PROPERTIES) CREATEFIELDS (FIELDS.IN.CREATE) COURIER.EXPEDITED.CALL (\COURIERPROGRAM) SUBPRINT ( +FORMFLG *BACKQUOTE-WRAPPERS* CLISPFONT FONTWORDS USERFONT FNSLST FONTFNS SYSTEMFONT CLISPCHARS +FUNNYATOMLST PRETTYEQUIVLST *STANDARD-OUTPUT* SPACEWIDTH COMMENTFLG) \DOVMEMFULLINTERRUPT ( +\InterfacePage \LASTVMEMFILEPAGE) CLISPLOOKUP1 (CLASS WORD CLISPRECORDTYPES VAR1 VAR2 CLASSDEF) +FB.NEWINFOCOMMAND (FB.INFO.MENU.ITEMS FB.MENUFONT) \PUPERROR (\PT.ERROR PUPTRACEFILE PUPERRORMESSAGES +\PUPHEADERLEN \PUPOVLEN BYTESPERWORD) INITSEQUIN (\SS.UNOPENED) \MAP-CODE-POINTERS ( +\ArrayBlockHeaderWords \DTDSpaceBase CODEBLOCK.GCT BITSPERBYTE) TTLOADBUF (HISTSTR1 HISTSTR0 +\ENDBUFFER \READING RDTBL) UTF16BE.PEEKCCODEFN (*UNICODETOXCCS* TRANSLATION-SHIFT TRANSLATION-MASK) +SPP.CLEARATTENTION (\SPPFLAG.ATTENTION) LISP-TO-UNIX-TERMTYPE (CHAT.TO.UNIX.TERMINALS) +\MAP-CODE-LITERALS (\ArrayBlockHeaderWords \DTDSpaceBase CODEBLOCK.GCT \AtomHI BITSPERBYTE) +\DRAWCURVE.PSC (:EOL) \FONT.COMPARESYMBOL (*PACKAGE-FROM-INDEX* \PNAME.HI *INTERLISP-PACKAGE*) +CHECKIFPAGE (\IFPValidKey \InterfacePage) FIND-LEXICAL-ENVIRONMENT (LASTPOS) DSFIT1 (ENDTAIL CAREFUL +*STANDARD-OUTPUT* AVERAGEVARLENGTH SPACEWIDTH) PAINTW (PROMPTWINDOW BLACKSHADE LASTMOUSEX LASTMOUSEY +LASTMOUSEBUTTONS) LISPXUSE (HISTSTR0) \PFPutRootDirectory (tRootDirectory) PRINTSQ (LEFT COMMENTFLG) +SETUPPUP (\PUP.READY \PUPOVLEN) INSPECT/HUNK (CODEBLOCK.GCT PTRBLOCK.GCT INSPECT.HUNK.COMMANDS +MAXINSPECTARRAYLEVEL) BRKDWNTIME (BDLST) DBG::COLLECT-ACTIVE-ESCAPES (XCL:*EVAL-FUNCTION*) +XCL::VARIABLE-SPECIAL-P (:UNSURE) \MAKEBRUSH.SQUARE (BLACKSHADE) EDITADDNODE (PROMPTWINDOW) CACHEMACRO + (:MACRO CLISPARRAY) XCL::VARIABLE-LEXICAL-P (:UNSURE XCL::*LEXICAL-VARIABLES*) SI::*CLOSURE-CACHE* ( +:FIRST) MSADDTYPE (MSWORDS) \PFGetRootDirectory (tRootDirectory) DSFIT2 (COMMENTFLG *STANDARD-OUTPUT* +CAREFUL AVERAGEFNLENGTH SPACEWIDTH AVERAGEVARLENGTH) GETSEQUIN (\SS.OPEN) \IDLE.EXIT? (PROMPTWINDOW +IDLE.PROFILE \GETPASSWORD.LOCK) HISTORY-NTH (*CURRENT-EVENT*) SEGMENT.BIT.LENGTH (\FONT) COMPILE! ( +LOCALVARS SYSLOCALVARS NLAMA NLAML LAMS LAMA NOFIXFNSLST NOFIXVARSLST) SPP.FLUSH.TO.EOF (\SPPFLAG.EOM +\SPPFLAG.ATTENTION \SPPFLAG.END) SHOW.MATCHING.PAREN (\LOC.ROW.0 SHOWPARENFLG \DSP) \ACTONVMEMFILE ( +\MACHINETYPE \DANDELION \DAYBREAK) MAKEINITFIRST (\InterfacePage) TEDIT.BUILD.PCTB0 ( +TEDIT.DEFAULT.FMTSPEC \FirstPieceOffset \PieceDescriptorLOOKS \PieceDescriptorOBJECT +\PieceDescriptorPARA \EltsPerPiece) TEDIT.SCAN.LINE (LMInvisibleRun LMLooksChange) MISSPELLED? ( +SPELLSTATS1 LASTWORD) PopUpWindowAndGetList (LASTMOUSEX SCREENWIDTH LASTMOUSEY TTYINWORDRDTBL) +TEDIT.PROMPTFLASH (PROMPTWINDOW) SEDIT::CREATE-PRETTY-PRINT-ENV (SEDIT::LISP-EDIT-ENVIRONMENT +DEFAULTFONT ITALICFONT CLISPFONT COMMENTFONT MICASPERPT) \PRINDATUM.TO.STRING (\FIXP \SMALLP \FLOATP +*PRINT-BASE* *READTABLE* \MAXTHINCHAR) BROKENDEF (CELLSPERQUAD GCREF) XCL::PUT-IMPLICIT-KEY-HASH ( +XCL::*DELETED-IMPLICIT-HASH-SLOT*) UTF16BE.OUTCHARFN (*XCCSTOUNICODE* TRANSLATION-SHIFT +TRANSLATION-MASK) \INSERTTREE (\WORDSINBTREEMAIN \BTREEMAXCOUNT) TEDIT.FORMAT.HARDCOPY ( +TEDIT.PAGE.FRAMES TEDIT.DEFAULTPAGEREGION :NEW-PAGE-LAYOUT :SEARCHING-FOR-EQUIVALENT-PAGE) +BRHL/MOVE/RIGHT (MOTHERD NODELST) \STREAM.FROM.PACKET (\XIPOVLEN) \DRAWCIRCLE.PSC (:EOL) ADDPME ( +\PageMapTBL \EmptyPMTEntry WORDSPERPAGE \PAGEMAP \PMblockSize \LOCKEDPAGETABLE BITSPERWORD) +BROWSE/LAYOUT/HORIZ (NODELST) PFI.PRINT.TO.TAB (ITALICFONT DEFAULTFONT) CLOSESEQUIN (\ETHERTIMEOUT +\SS.CLOSED \SS.CLOSING) \TEDITPAGEMENU.CREATE (TEDIT.PAGEMENU.SPEC TEDIT.MENUDIVIDER.SPEC +TEDIT.CHARLOOKSMENU.SPEC) SAVEPUT (DFNFLG) MSINITFNDATA (MSFNDATA) PRIN1 (*READTABLE* PLVLFILEFLG +*PRINT-LEVEL* *PRINT-LENGTH* *INTERLISP-PRIN1-CASE* *PRINT-CASE* \LINELENGTH MAX.SMALLP) FONTSET ( +FONTDEFS DEFAULTFONT FONTVARS FONTPROFILE) MAINSCREEN (\MAINSCREEN) SPACES (\LINELENGTH MAX.SMALLP) +FIND.MATCHING.WORD (\CURSOR) PRINTNUM (NILNUMPRINTFLG) \DRAWELLIPSE.PSC (:EOL) PRINTOPCODES (\OPCODES) + \TRANSLATE.3TO10 (\EPT.3TO10 \TRANS.OP.REQUEST \MY.NSADDRESS BROADCASTNSHOSTNUMBER \TRANS.DATALENGTH +\10MBTYPE.3TO10) \ABORT.BULK.DATA (SPP.USER.TIMEOUT) BRHL/LAYOUT (PERSONALD MOTHERD) +MakeMenuOfImageTypes (IMAGESTREAMTYPES \DISPLAYSTREAMTYPES) \DO.PROGV.SETUP.FRAME.AND.EXECUTE (MYALINK + \STACKHI WORDSPERQUAD \STACKSPACE \LITATOM \NEW-ATOM PVARCODE WORDSPERCELL) MAKEWITHINREGION ( +WHOLEDISPLAY) ALLCALLS (MSFNDATA) \MAKEBRUSH.HORIZONTAL (BLACKSHADE) \PFGetVols (\PhysVolumePage) +\COURIER.TRACE (COURIERTRACEFILE COURIERTRACEFLG COURIERPRINTLEVEL) \MAPPNAME.INTERNAL (\PNAMEDEVICE +OutputBits MAX.SMALLP \STREAM.DEFAULT.MAXBUFFERS \NOIMAGEOPS LF.EOLC) COMP.EXP1 (COMPILE.CONTEXT) +\CORE.UPDATEOF (BYTESPERPAGE) OUTPUT (\TERM.OFD) MSADDMODIFIER (MSWORDS MSUSERVBTABLES) SHOW.IP ( +SETCORRECTMEASURE CORRECT { SEQSTRING SHOW }) TEDIT.BUILD.PCTB2 (TEDIT.DEFAULT.FMTSPEC DEFAULTFONT +\FirstPieceOffset \PieceDescriptorPAGEFRAME \EltsPerPiece \PieceDescriptorCHARLOOKSLIST +\PieceDescriptorPARALOOKSLIST \PieceDescriptorPARA \PieceDescriptorLOOKS \PieceDescriptorOBJECT) +\TEDIT.ADJUST.LINES (WHITESHADE) VARSBOUNDINFORM (LAMBDASPLST COMPILERMACROPROPS) \DUMPEXPORTS ( +BEGINEXPORTDEFSTRING ENDEXPORTDEFFORM) GO.TO.RELATIVE (\TTPAGELENGTH \LOC.ROW.0 \CHARHEIGHT \BMARG +\DSP) GET-NEXT-HISTORY-EVENT (:ID) WINDOWTITLEFONT (WindowTitleDisplayStream) CL:GENSYM ( +CL::*GENSYM-PREFIX*) COMPILER::SET-CONSTANT-VALUE (COMPILER::*CONSTANTS-HASH-TABLE*) +PFI.PRINT.ENVIRONMENT (*INTERLISP-PACKAGE* *READTABLE* *PACKAGE*) ENDPREAMBLE.IP (ENDPREAMBLE) +SEDIT::START-COMMENT (SEDIT::TYPE-QUOTE) \SHOWTEXT (WHITESHADE WAITINGCURSOR TEDIT.DEFAULT.FMTSPEC) +MB.MARGINBAR.TABTRACK (LASTMOUSEBUTTONS) EDITAPPLYTOLINK (PROMPTWINDOW) CHAT.STARTUP ( +CHAT.PROTOCOL.ABBREVS CHAT.PROTOCOLTYPES CHAT.OSTYPES CHAT.HOSTINFO CHAT.INTERRUPTS :INTERRUPTS +CHAT.KEYACTIONS :KEYACTIONS PROMPTWINDOW) BKSYSCHARCODE (\SYSBUFFER.LAST \SYSBUFFER.FIRST) FM.EDITITEM + (\FM.GROUPSPEC) \VAMGetVAMPageFor (\VAMbuffer) \GETREGION.CHECKBASEPT (NEWREGIONFNARG) BKSYSBUF ( +*READTABLE* *PACKAGE*) COMP.STRETURN (OPRETURN) \CORE.FINDPAGE (WORDSPERPAGE) NEGATE (NEGATIONS) +SHOWCHARS (CODE) \MAKEBRUSH.VERTICAL (BLACKSHADE) \MAPPNAME (*READTABLE* *INTERLISP-PACKAGE* *PACKAGE* + *PRINT-BASE* *PRINT-RADIX*) FONTPROFILE.ADDDEVICE (FONTDEFS FONTNAME) CHECKFPTOVP1 (\RPOFFSET) +PROCESS.EVALV (MYALINK) DBG::ESCAPE-FROM-DEBUGGER (BRKCOND *DEBUG-IO*) \BITMAPTOSCREEN (\SCREENS) +CHECKFPTOVP (\InterfacePage \FPTOVP) DIRECTORY.MATCH.SETUP (\MAXTHINCHAR) \FILLCIRCLE.PSC (:EOL +POSTSCRIPT.TEXTURE.SCALE) CH.DELETE.MEMBER.FROM.DOMAIN.ACL (\CH.BROADCAST.SOCKET) TEDIT.BUILD.PCTB1 ( +TEDIT.DEFAULT.FMTSPEC DEFAULTFONT \FirstPieceOffset \PieceDescriptorPAGEFRAME \EltsPerPiece +\PieceDescriptorPARA \PieceDescriptorLOOKS \PieceDescriptorOBJECT) FONTSAVAILABLE (IMAGESTREAMTYPES) +SEDIT::CREATE-GAP-NODE (SEDIT::TYPE-GAP) SEDIT::STRINGWIDTH (*READTABLE*) LISPDIRECTORYP ( +\LFtopMonitor) SEDIT::CREATE-ENVIRONMENTS (SEDIT::COMMAND-TABLE-SPEC DEFAULTFONT ITALICFONT CLISPFONT +COMMENTFONT) EQUALALL (ORIGTERMSYNTAX ORIGDELETECONTROL) GAINSPACE (GAINSPACEFORMS DWIMWAIT) +COMPILER::CONSTANT-VALUE (COMPILER::*CONSTANTS-HASH-TABLE*) \CORE.GETFILEINFO.FROM.INFOBLOCK (CR.EOLC +LF.EOLC CRLF.EOLC) WARNUSER (PROGVARS EXP) \LOOKUPFONTSINCORE (\FONTSINCORE) MB.THREESTATE.DISPLAY ( +BLACKSHADE) FB.ALPHABETIC.ATTR (UPPERCASEARRAY) \CORE.GETFILEHANDLE (:PATHNAME BYTESPERPAGE) +CREATESCREEN (WINDOWTITLEFONT MAX.SMALLP \DISPLAYIMAGEOPS DisplayFDEV) BRHL/LAYOUT/DAUGHTERS (NODELST) + SPP.SENDATTENTION (\SPPHEAD.CC.ATTENTION) COMPILE (NLAMA NLAML LAMS LAMA NOFIXFNSLST NOFIXVARSLST +SPECVARS LOCALVARS FILERDTBL) CURRENT.WORD (\ARROW \CURSOR TTYINCOMMENTCHAR \MAXTHINCHAR \RDTBLSA +OTHER.RC ESCAPE.RC MULTIPLE-ESCAPE.RC) \RPLCHARCODE (\MAXTHINCHAR) \BLTSHADE.PSC (BLACKSHADE +WHITESHADE :EOL POSTSCRIPT.TEXTURE.SCALE) \TFBRAVO.READ.USER.CM (USER.CM.RDTBL) \CORE.GETFILEINFO ( +NoBits) RECORD (CLISPRECORDTYPES) DBG::INVOKE-ESCAPE-FROM-MENU (BRKCOND *DEBUG-IO*) NUMBERP ( +\TT.NUMBERP) LISPX/1 (LISPXFNS VARS) \PRINTFPTOVP (\InterfacePage \FPTOVP \NO.VMEM.PAGE \PNAME.HI +\DEF.HI \VAL.HI \PLIST.HI \STACKHI \HTMAIN \HTOVERFLOW) CL:LOAD (*LOAD-VERBOSE* *LOAD-PRINT-STUFF* +:ERROR *TERMINAL-IO*) TTDOTABS (\CURSOR \ENDBUFFER \CHARWIDTH \CURSORCOL) TYPENAME (\ARRAYP +\DTDSpaceBase) DWIMIFY (NOFIXFNSLST NOFIXVARSLST) TEDIT (TEDIT.STARTUP.MONITORLOCK TEDIT.DEFAULT.PROPS +) MSADDANALYZE (MSWORDS) CLISPIFY (LASTAIL ATM) \VAMInit (\VAMmonitor) L-CASE (*INTERLISP-PACKAGE* +\PNAMELIMIT \FATPNAMESTRINGP) ENDPAGE.IP (ENDPAGE) FILEPKGCOMS.PUTDEF (FILEPKGTYPEPROPS) GATHEREXPORTS + (*DEFAULT-MAKEFILE-ENVIRONMENT* *OLD-INTERLISP-READ-ENVIRONMENT*) EXEC-PRIN1 (*TERMINAL-IO*) +\UNITWIDTHSVECTOR (\MAXCHAR) \NSFILING.COPY/RENAME (:PATHNAME PROMPTWINDOW) EDITBM (CursorBitMap +\CURSORDESTINATION \CURSORDESTWIDTH GRIDTHICKNESS \CURSORDESTHEIGHT NORMALGRIDSQUARE MINGRIDSQUARE) +TEDIT.PUT (CR.EOLC) LOADFNS (*INTERLISP-PACKAGE* DFNFLG BUILDMAPFLG ADDSPELLFLG LISPXHIST LOADOPTIONS) + SI::ARGUMENT-ERROR (:CALLEE :MINIMUM :ACTUAL :MAXIMUM) %%MAKE-STRING-ARRAY-FAT (%%FAT-CHAR-TYPENUMBER +) CONCAT.IP (CONCAT) POSTEDITALISTS (FILEPKGFLG) COMP.FLOATBOX (CODE) LIST-ALL-BLOCKRECORDS ( +USERRECLST) NEW/FN (CHCONLST) FB.PROMPTW.FORMAT (:UPCASE) \#BLOCKDATACELLS (\ArrayBlockHeaderWords +\ArrayBlockOverheadCells \DTDSpaceBase) GETPROPLIST (\PLIST.HI) \CORE.PACKFILENAME (ROOT EXT VERS) +\ROUTINGTABLE.INFOHOOK (:PROTOCOL :WINDOW \NS.ROUTING.TABLE \PUP.ROUTING.TABLE \ROUTING.TABLE.TYPENUM +:CULPRIT :EXPECTED-TYPE \ROUTING.TABLE.MASK WORDSPERCELL :NAME) >= (CL::%%>=) TEDIT.GET.OBJECT0 ( +DEFAULTFONT) \TFBRAVO.INIT.PARALOOKS (TEDIT.DEFAULT.FMTSPEC HardwareRightMargin HardwareLeftMargin +DefaultRightMargin) SPELLFILE (DIRECTORIES NOSPELLFLG \FILEDEVICENAMES) FW-ADJUST-REGION (FW-OFDList +FW-Position FW-WindowHeight WBorder FW-Anchor) COMPILER::CHECK-GLOBAL-CONSTANT (COMPVARMACROHASH) +\CREATE-REAL-CHARSET.DISPLAY (MISSINGCHARSETDISPLAYFONTCOERCIONS MISSINGDISPLAYFONTCOERCIONS) +SEDIT::BUILD-WINDOW (:CREATE DEFAULTFONT SEDIT::EDITOR-NAME) CONSTANTEXPRESSIONP ( +*BC-MACRO-ENVIRONMENT* CONSTANTFOLDFNS COMPILERMACROPROPS) \PUTBASESTRING (\MAXTHINCHAR) +\CORE.UNPACKFILENAME (:PATHNAME) INSERTLINE (\ENDBUFFER \CURSORCOL) \SFMAKEITALIC (\MAXTHINCHAR) +CHAT.RECONNECT (LASTMOUSEBUTTONS) AUTOCR? (\CURSORCOL TTYINAUTOFILLMARGIN \RMARG \ARROW \CURSOR) +\TEXTMENU.TOGGLE.DISPLAY (BLACKSHADE) GENSYM (\GS.BUFSIZE MAX.FIXP) BMOBJ.GETFN5 (FILERDTBL) FM.SHADE +(\FM.GROUPSPEC) HCOPYALL1 (DONTCOPYDATATYPES HPRINTHASHARRAY) \CREATECHARSET.DISPLAY ( +DISPLAYFONTCOERCIONS) \BUILDSLUGCSINFO (\MAXTHINCHAR BLACKSHADE) \IFSERRORSTRING (\CONNECTED.HOST) +COURIER.WRITE (BITSPERWORD) GetBcplString (\PNAMELIMIT) COMPILE1A (COUTFILE NOSPELLFLG) \CORE.OPENFILE + (BYTESPERPAGE CR.EOLC LF.EOLC CRLF.EOLC) \NSRANDOM.CLOSEFILE (AppendBit WriteBit) DRAWAREABOX ( +BLACKSHADE) \READDISPLAYFONTFILE (DISPLAYFONTEXTENSIONS DISPLAYFONTDIRECTORIES) \VFMInit (\VFMmonitor) + ENDMASTER.IP (ENDMASTER) \TEDIT.TEXTBIN.FILESETUP (NoBits) CLISPATOM1 (FAULTX LPARKEY RPARKEY +CLISPCHARS SUBPARENT NOFIXVARSLST0) \SETPUPCHECKSUM (\NULLCHECKSUM) \NSRANDOM.OPENFILE (NoBits) +POSTSCRIPT.HARDCOPYW (POSTSCRIPT.BITMAP.SCALE) \SETARG0 (MYALINK \STACKHI) BQUOTIFY (*BQUOTE-COMMA* +*BQUOTE-COMMA-ATSIGN* *BQUOTE-COMMA-DOT*) \COREFILE.SETPARAMETERS (CR.EOLC LF.EOLC CRLF.EOLC +DEFAULTFILETYPE) MISCN-NUMBER (\MISCN-TABLE-LIST) AS.CHANGE.OWN.PASSWORDS (AS.WELL.KNOWN.NAME) +TEDIT.PUT.PCTB2 (\FirstPieceOffset TEDIT.DEFAULT.CHARLOOKS CR.EOLC TEDIT.DEFAULT.FMTSPEC) +CHAT.PROMPT.FOR.INPUT (LASTMOUSEX LASTMOUSEY) \DOHARDRETURN (\InterfacePage \HardReturnFXP) TTADDTAB ( +\CURSORCOL \ARROW \CHARWIDTH) \DOHARDRETURN1 (\STACKHI \MinExtraStackWords WORDSPERCELL WORDSPERQUAD) +EXPANDBM (WHITESHADE) GETSETQ (CLISPCHARRAY) TEDIT.UNDO.MOVE (TEDIT.SELECTION) \MKATOM (\MAXTHINCHAR +\ORIGREADTABLE \AtomHashTable \ATOMSPACE \LITATOM \NEW-ATOM) BRHC/OFFSET (NODELST) \CREATE.SYMBOL ( +\MaxAtomFrLst \NEW-ATOM \MDSIncrement \TT.NOREF \TT.SYMBOLP \TT.ATOM \LITATOM GCREF \ATOMSPACE) +\GCSCANSTACK (\InterfacePage \STK.FX GCREF \STACKHI WORDSPERCELL \STK.GUARD \STK.FSB) TTDELSECTION ( +\DSP \DESCENT) \CORE.SETFILEPTR (AppendBit) UNCLISPTRAN (CLISPTRANFLG) EVENTS-INPUT (HISTSTR0) +DBG::PRINT-BACKTRACE (:ALINK) \PARSE.NUMBER (*READTABLE* \ORIGREADTABLE *READ-BASE* +MAX.DIGITS.ACCURACY) \DOGC (\GCFXP) \CORE.BACKFILEPTR (AppendBit BYTESPERPAGE) DEFAULTPRINTER ( +DEFAULTPRINTINGHOST) CL:COMPILE (:PARENT :TARGET-ARCHITECTURE COMPILER::*HOST-ARCHITECTURE*) +\EXPECTED.FILE.TYPE (\MACHINETYPE \MAIKO) ADDTEMPLATEWORD (MSFNDATA MSDATABASELST MSDATABASEINIT) +\CORE.SETEOFPTR (WriteBit BYTESPERPAGE) \SEARCHFONTFILES (*OLD-FONT-EXTENSIONS*) \DECUSECOUNT ( +\STACKHI WORDSPERCELL) \CORE.SETFILEINFO (CR.EOLC LF.EOLC CRLF.EOLC) PURGEDSKDIRECTORY (\LFtopMonitor +PROMPTWINDOW) FM.REDISPLAYITEM (\FM.GROUPSPEC) \SEARCHDISPLAYFONTFILES (DISPLAYFONTDIRECTORIES +DISPLAYFONTEXTENSIONS) \INCUSECOUNT (\STACKHI \MAXSAFEUSECOUNT \MP.USECOUNTOVERFLOW \STK.NOTFLAG +WORDSPERCELL \STK.BF) SCANEXP (VARLST ADR LDFLG) \COPYDATATYPE (\DTDSpaceBase GCREF) COMP.STJUMP (CODE +) DO?CMD (RDTBL \BUFFER null \CURSOR) \INITATOMPAGE (\PNPSPACE \DEFSPACE \PLISTSPACE \VALSPACE +CELLSPERPAGE WORDSPERCELL \OLDATOMSPACE WORDSPERPAGE \NEWATOM-VALOFFSET) \DOSTACKOVERFLOW (\SubovFXP) +\CORE.GETNEXTBUFFER (NoBits BYTESPERPAGE) CH.ADD.MEMBER.TO.DOMAIN.ACL (\CH.BROADCAST.SOCKET) +SIMPLETEXTEDIT (TTYINEDITPROMPT) \MAKEMDSENTRY (\MDSTypeTable \GCDISABLED \TT.NOREF) \MOVEFRAME ( +\InterfacePage \GuardStackAddr WORDSPERCELL \STACKHI WORDSPERQUAD \STK.FSB.WORD) WINDOWWORLD ( +WINDOWBACKGROUNDSHADE WINDOWBACKGROUNDBORDER INITIAL-EXEC-REGION INITIAL-PROMPT-REGION BLACKSHADE +WINDOWUSERFORMS) \ALLOCBLOCK (\ArrayBlockLinkingCells \MaxArrayNCells UNBOXEDBLOCK.GCT PTRBLOCK.GCT +CELLSPERPAGE \MAX.CELLSPERHUNK \ArrayBlockOverheadCells \ArrayBlockHeaderWords GCREF) \SETUPUSERSTACK +(\InitStackSize \STACKHI \MAIKO \FAULTFXP \RECLAIMMIN) BMOBJ.PUTFN (FILERDTBL) SEDIT::ASSIGN-FORMAT-CLISP + (:KEYWORD) \GATHER-CLEANUP-FORMS (\PROCESSES \RUNNING.PROCESS \SAVED.USER.CONTEXT) IDLE.SHOW.OPTIONS +(PROMPTWINDOW IDLE.PROFILE) COMPILER::NULL-EFFECTS-INTERSECTION-EXCEPT-CONS (:NONE :ANY) +COMPILER::RESOLVE-VARIABLE-BINDING (:LEXICAL COMPILER::*NEW-GLOBALS* GLOBALVARS COMPILER::*NEW-SPECIALS* + LOCALFREEVARS SPECVARS LOCALVARS :SPECIAL) \FONTINFOFROMFILENAME (UPPERCASEARRAY) \FONTFILENAME.OLD ( +*DISPLAY-FONT-NAME-MAP*) TTYIN.SHOW.?ALTERNATIVES (\MAXTHINCHAR \RDTBLSA MULTIPLE-ESCAPE.RC ESCAPE.RC +SPLST USERWORDS \LASTCHAR DIDESCAPECODE *PRINT-CASE* :UPCASE RDTBL) \PFGetVol (\DFSLogicalVolumes) +ERROR (HELPFLAG *LAST-CONDITION*) CONDITIONS:INVOKE-RESTART (:NAME) SPELLFILEDIR (NAME EXTENSION +VERSION DIRHOSTS) RECDEC? (CLISPTRANFLG CLISPRECORDTYPES) \AGE.ROUTING.TABLE (\ROUTING.TABLE.TYPENUM +:CULPRIT :EXPECTED-TYPE \ROUTING.TABLE.MASK \RT.TIMEOUTINTERVAL WORDSPERCELL) +COMPILER::RESOLVE-VARIABLE-REFERENCE (:VARIABLE) MAPATOMS (\DTDSpaceBase \NEW-ATOM \AtomFrLst +WORDSPERPAGE \PagesPerMDSUnit \MDSIncrement \MAXVMPAGE \MDSTypeTable \TT.TYPEMASK) \EXTENDSTACK ( +\LastStackAddr \GuardStackAddr \STACKHI WORDSPERPAGE) CL:PRINT (*STANDARD-OUTPUT*) LISPVERSION ( +\InterfacePage) MOVETO.IP (MOVETO) CONDITIONS:COMPUTE-RESTARTS (*PROCEED-CASES*) SCANDEFINEQ (VARS +LDFLG) INSPECT/AS/BLOCKRECORD (PROMPTWINDOW) ATOMHASH#PROBES (\MAXTHINCHAR \PNAMELIMIT \AtomHashTable +\OLDATOMSPACE) CREATE-PROCESS-STREAM (*NEW-SHELL-DEVICE* *SHELL-DEVICE* LF.EOLC) ONEDINSPECTW.CREATE ( +INSPECTORFONT WindowTitleDisplayStream INSPECTPRINTLEVEL) GRAPHOBJ.FINDGRAPH (BLACKSHADE LASTMOUSEX +LASTMOUSEY LASTMOUSEBUTTONS) LISPFORM.SIMPLIFY (COMPILERMACROPROPS CLISPARRAY) APPENDINTEGER.IP ( +SEQINTEGER) \SCALEDBITBLT.PSC (POSTSCRIPT.BITMAP.SCALE :EOL) MSPRINTHELPFILE (MSHELPFILE) +CLIPRECTANGLE.IP (CLIPRECTANGLE) CLISPTRAN (CLISPTRANFLG) TEDITFROMBRAVO (MAX.FIXP) \HANDLE.RAW.PUP ( +\EPT.PUP \PUPSOCKETS PUPTRACEFILE \PT.ECHOME \PUPSOCKET.ECHO MASKWORD1'S \PT.IAMBADECHO \PT.IAMECHO +\PUPE.NOSOCKET \PUPE.SOCKETFULL \PUPE.CHECKSUM \PUP.ROUTING.TABLE) \FONTFACE.COLOR ( +\COLORDISPLAYSTREAMTYPES) POSTSCRIPT.ENDPAGE (:EOL) \ITEMW.FLIPCOPY (GRAYSHADE) DO-HISTORY-SEARCH ( +*CURRENT-EVENT*) DBG::MAKE-FRAME-INSPECT-WINDOW (:TOP) SCANDECLARECOLON (VARLST FNLST LDFLG) +\DSPSCALE.PSC (:EOL) \FINDFONTFILE (*OLD-FONT-EXTENSIONS*) CONDITIONS:INVOKE-RESTART-INTERACTIVELY ( +:NAME) \COURIER.RESULTS (\COURIERMSG.RETURN \COURIERMSG.ABORT \COURIERPROGRAM \COURIERMSG.REJECT) +\SETUPGUARDBLOCK (\STK.GUARD.WORD) CONDITIONS:INVOKE-DEBUGGER (:CONDITION) SEDIT::TRANSLATE-CHARS ( +*READTABLE*) SEDIT::UNDO-ATOM-CHANGE (SEDIT::TYPE-STRING) NO.SIDEEFFECTS.FNP (NOSIDEFNS) +BEGINPREAMBLE.IP (BEGINPREAMBLE) POSTEDITPROPS (FILEPKGFLG) \FIND.LOCALPUPHOSTNUMBER (\MY.NSHOSTNUMBER + PUPTRACEFILE \OLDPUPHOST#) \NSRANDOM.READPAGES (BYTESPERPAGE WORDSPERPAGE +*NSFILING-PAGE-CACHE-INCREMENT* AppendBit WriteBit) \TEDIT.APPLY.PARASTYLES (TEDIT.STYLES) ED ( +:DISPLAY :CURRENT :NEW PROMPTWINDOW) FIXSPELL1 (READBUF FAULTFN FIXSPELLDEFAULT DWIMKEYLST +FIXSPELLKEYLST VETOSTATS COMMENTFLG SPELLSTATS SPELLSTATS1 RUNONSTATS) SEDIT::ASSIGN-FORMAT-DOTLIST ( +:DATA) \POLYSHADE.BLT (MIN.INTEGER MAX.INTEGER) BREAKLINE (\CURSORCOL) OPT.CFRPTQ (COMPILE.CONTEXT) +GRAPHEROBJ (GRAPHERIMAGEFNS) \NODIRCORE.OPENFILE (BYTESPERPAGE) \PUTD (\ST.CODE) FIXDATUM ( +CLISPCHARRAY RECORDEXPRESSION COMPILERMACROPROPS) BLTPATTERN.REPLACEDISPLAY (WHITESHADE) \GET-MY-BF ( +MYALINK) \RENAMEDFN (CELLSPERQUAD) LINETO.IP (LINETO) SI::UNWIND-TO-BLIP (MYALINK \STACKHI +WORDSPERCELL) \INIT-MISCN-TABLE (\MISCN-TABLE-LIST) SCALEBM (WHITESHADE) EVALUABLE.CONSTANTP ( +CONSTANTFOLDFNS \WALKABLE.SPECIALFORMS) BLOCKCOMPILE (NLAMA NLAML LAMS LAMA NOFIXFNSLST NOFIXVARSLST +SYSSPECVARS FILERDTBL) CL:SYMBOL-NAME (:EXPECTED-TYPE :CULPRIT) SI::GET-CACHE-CLOSURE ( +SI::*CLOSURE-CACHE*) POSTSCRIPT.PUTCOMMAND (:EOL) CLOSEALL (\OPENFILES) \NSFILING.SETFILEINFO ( +PROMPTWINDOW) \VARNOTUSED (\QUOTIFYING.NLS \WALKABLE.SPECIALFORMS) \DSPSCALE2.PSC (:EOL) +PFI.AFTER.NEW.PAGE (DEFAULTFONT :INDEX *PFI-PAGE-PREFIX* BOLDFONT ITALICFONT) BUTTONPANEL/SELECTION/FN + (WHITESHADE MENUSELECTSHADE) \NSRANDOM.SESSION.WATCHER (AppendBit WriteBit *NSFILING-SESSION-TIMEOUT* + \FIXP) \PFInitializeVols (\PhysVolumePage) EOFCLOSEF (DEFAULTEOFCLOSE) CL:SYMBOL-VALUE ( +:EXPECTED-TYPE :CULPRIT) \NSFILING.GETFILEINFO (\NSFILING.ALL.ATTRIBUTE.TYPES +\LISP.TO.NSFILING.ATTRIBUTES AppendBit WriteBit \NSFILING.USEFUL.ATTRIBUTE.TYPES) CL:FORMAT ( +*STANDARD-OUTPUT*) \FINDOP (\OPCODES) \TEDIT.CHARLOOKSMENU.CREATE (TEDIT.CHARLOOKSMENU.SPEC) +\PAGEDEOFP (ReadBit) SEDIT::LINEARIZE-CLISP (SEDIT::TYPE-COMMENT :KEYWORD SEDIT::CLISP-PROGRAM-WORDS +SEDIT::CLISP-INDENT-WORDS) \GET-COMPILED-CODE-BASE (\COMPILED-CLOSURE) \DECL.COMNT.PROCESS (COMMENTFLG +) SEDIT::SPLIT-LITATOM (SEDIT::TYPE-STRING) OPENP (\FILEDEVICES) SPY.BUTTON (SPY.CLOSED +LASTMOUSEBUTTONS) TWODINSPECTW.CREATE (INSPECTORFONT WindowTitleDisplayStream INSPECTPRINTLEVEL) SETA +(\ST.PTR \ST.PTR2 \ST.INT32 \ST.BYTE \ST.CODE \ST.POS16 \ST.BIT BITSPERWORD \ST.FLOAT) \DSPCOLOR.PSC ( +:EOL) COMP.ARGTYPE (LAMA LAMS NLAML NLAMA BLKDEFS BLKLIBRARY NOFIXFNSLST) PFCOPYBYTES (ANY.EOLC +FONTESCAPECHAR) CHECKRECORDNAME (DECL) ARRAY (\MaxArrayLen \ST.BYTE \ST.POS16 PTRBLOCK.GCT \ST.PTR +\ST.PTR2 \ST.INT32 \ST.FLOAT \ST.BIT WORDSPERCELL MASKWORD1'S) ERRORMESS (*LAST-CONDITION* +*ERROR-OUTPUT*) COPY.WINDOW.TO.BITMAP (\CURSORDESTINATION \EM.DISPINTERRUPT \TOPWDS \SCREENBITMAPS) +\10MB.GETPACKETSTATUS (\MACHINETYPE \DANDELION \ES.PENDING \ES.PACKET.TOO.LONG \DL.BAD.ALIGNMENT +\DL.OVERRUN \DL.BAD.CRC \ES.GOOD.PACKET \ES.OVERRUN \DL.ODDLENGTH \ES.BAD.CRC \ES.BAD.CRC&ALIGNMENT +\ES.BAD.ALIGNMENT \ES.OTHER.ERROR \ES.TOO.MANY.COLLISIONS \DL.COLLISION \DL.UNDERRUN \ES.UNDERRUN +\DAYBREAK \DOLPHIN \D0.GOOD.PACKET \D0.LATE.COLLISION \ES.LATE.COLLISION \D0.TOO.MANY.COLLISIONS +\D0.PACKET.TOO.LONG \D0.BAD.ALIGNMENT \D0.INPUT.BAD.CRC \D0.INPUT.OVERRUN \D0.OUTPUT.UNDERRUN) +\DELETETREE (\BTREELASTREALOFFSET) SI::INTERNAL-THROW-VALUES (:TAG) SCANCOMPILEDFN (LDFLG VARS) +\TEDIT.EXPANDED.MENU (TEDIT.EXPANDED.MENU) ARGS.COMMUTABLEP (\QUOTIFYING.NLS \WALKABLE.SPECIALFORMS) +ERASE/GRAPHNODE (WHITESHADE) CALLS3 (INVISIBLEVARS) SEDIT::SET-SELECTION-STRING (SEDIT::BUTTON-STRING) + COMPILER::NULL-EFFECTS-INTERSECTION (:NONE :ANY) USER-SUBR-NUMBER (\USER-SUBR-LIST) TEDIT.GET.OBJECT1 + (DEFAULTFONT) HPINITRDTBL (HPFORWRDCHR HPFORWRDCDRCHR HPBAKCHAR HPFILLCHAR HPFINALCHAR) MSDESCRIBE ( +MSDATABASELST BOLDFONT DEFAULTFONT GLOBALVARS DESCRIBELST) \READSTRIKEFONTFILE (\MAXTHINCHAR) +SI::PVAR-VALUE-IN-FRAME (PVARCODE \STACKHI) BEGINPAGE.IP (BEGINPAGE) MAKEUSERMACROSCOMS (USERMACROS +EDITMACROS) MOVE.FORWARD.TO (\CURSORCOL \ARROW) \READACFONTFILE (\MAXTHINCHAR BLACKSHADE) +SI::VARIABLE-NAME-IN-FRAME (\AtomHI) \LFCloseDevice (\LFtopMonitor \LFdevice) COMPILER::EFFECTLESS-EXCEPT-CONS + (:NONE) FW-ADJUST-PLACEMENT (FW-WindowBottomDelta) SEDIT::CREATE-NULL-LIST (SEDIT::TYPE-LIST) +SHOW.CLEARINGHOUSE (\CH.CACHE) ASSURE.PUP.READY (\PUP.READY.LOCK \LOCALNDBS \PUP.READY.EVENT) +MB.MARGINBAR.SELFN (LASTMOUSEBUTTONS WHITESHADE) FASL::FASL-END-OF-BLOCK (FASL::*BLOCK-LEVEL* :STREAM) + \MEDW.GETSCREENREGION (EXPANDINGBOX GRAYSHADE \CURSORDESTINATION LASTMOUSEX LASTMOUSEY +\CURSORDESTWIDTH \CURSORDESTHEIGHT LASTMOUSEBUTTONS CLICKWAITTIME FORCEPS \CURSORSCREEN) RETURN ( +MYALINK) LOOKUPHASHFILE (MAX.INTEGER HASHTEXTCHAR HASHFILERDTBL) \DISCARDFRAME (WORDSPERCELL \STACKHI) + MBUTTON.FIND.BUTTON (PCNO) \INIT-USER-SUBR-TABLE (\USER-SUBR-LIST) SEDIT::COMPILE-STRUCTURE ( +PROMPTWINDOW SEDIT:*COMPILE-FN*) COLLECTFNDATA (CALLSDATA) PF (*COMPILED-EXTENSIONS*) COMPILER::ANALYZE-TREE + (:ONCE) CL:FIND-SYMBOL (*PACKAGE*) CHANGETRAN1 (DECLST) \CREATE.TEDIT.DELETESELECTION (BLACKSHADE) +MakeMenuOfPrinters (DEFAULTPRINTINGHOST) BRHC/LAYOUT/DAUGHTERS (MOTHERD NODELST FAMILYD) +CL:SYMBOL-FUNCTION (:NAME) FASL::SETESCAPE (FASL::FASL-EXTENDED) \NSRANDOM.WRITEPAGES (BYTESPERPAGE) +PMORE (LASTFNDEF) SCROLL.HANDLER (LASTMOUSEX LASTMOUSEY SCROLLWAITTIME VertScrollCursor ScrollUpCursor + ScrollDownCursor VertThumbCursor HorizScrollCursor ScrollLeftCursor HorizThumbCursor +ScrollRightCursor LASTMOUSEBUTTONS WAITBETWEENSCROLLTIME WAITBEFORESCROLLTIME) ELT (\ST.PTR \ST.PTR2 +\ST.INT32 \ST.BYTE \ST.CODE \ST.POS16 \ST.BIT BITSPERWORD \ST.FLOAT) UNDOLISPX3 (UNDOSTATS LISPXHIST) +\SFROTATECSINFOOFFSETS (\MAXTHINCHAR \MAXCHAR) PRINTFNDEF (PFDEFAULT) \FONTRESETCHARWIDTHS (\MAXCHAR) +SEDIT::SET-POINT-STRING (SEDIT::BUTTON-STRING) \STARTPUP (\PUPSOCKETS) FM.CHANGESTATE (\FM.GROUPSPEC) +HVRPTREAD (HPRPTSTRING) CLEARSTK (\STACKP \STACKHI WORDSPERCELL \MDSIncrement) UNICODE.UNMAPPED ( +N-TRANSLATION-SEGMENTS) \IRM.GET.HASHFILE (IRM.HASHFILE.NAME IRM.HOST&DIR) HARDRESET (\ResetFXP) +SEDIT::CFV-DOTLIST (SEDIT::TYPE-DOTLIST) FASL:CLOSE-FASL-HANDLE (FASL::END-OF-DATA-MARK :CLOSED) +HVFWDREAD (HPBAKCHAR) FASL::CLEAR-TABLE (FASL::*VALUE-TABLE*) FM.RESETSTATE (\FM.GROUPSPEC) +\RESETTERMINAL (\VideoColor) MULTIFILEINDEX (:PATHNAME) \KEYBOARDON (\EM.DISPINTERRUPT \LispKeyMask +\MACHINETYPE \MAIKO) %#BITSON (BITSPERSHADE) FASL:PROCESS-BLOCK (FASL:*DEFAULT-OPTABLE*) +WRITESTRIKEFONTFILE (\MAXCHARSET) FASL::NEW-VALUE-TABLE (FASL::INITIAL-VALUE-TABLE-SIZE) DWIMIFYREC ( +DECL VARS FAULTFN) \COURIER.OUTPUT.ABORTED (AppendBit WriteBit :BULKDATA :ABORT) UTF8.OUTCHARFN ( +LF.EOLC CR.EOLC CRLF.EOLC *XCCSTOUNICODE* TRANSLATION-SHIFT TRANSLATION-MASK) TTUNREADBUF (\CURSOR +\ENDBUFFER) \SETUPSTACK1 (WORDSPERQUAD \STACKHI WORDSPERCELL \STACKSPACE \STK.BF.WORD \#ALINK.OFFSET) +\TEDIT.EXPANDEDCHARLOOKS.MENU (TEDIT.CHARLOOKS.MENU) SEDIT::SET-LIST-FORMAT (SEDIT::LIST-FORMATS-TABLE +) FASL::FETCH-VALUE (FASL::*VALUE-TABLE*) FASL::STORE-VALUE (FASL::*VALUE-TABLE* +FASL::VALUE-TABLE-INCREMENT) SEDIT::SET-SELECTION-LITATOM (SEDIT::BUTTON-STRING) DELETE.TO.END ( +\CURSOR \CURSORCOL) \MEDW.GETBOXSCREENPOSITION (BOXCURSOR LASTMOUSEBUTTONS LASTMOUSEX LASTMOUSEY +GRAYSHADE CROSSHAIRS LASTSCREEN) STRIKECSINFO (\MAXTHINCHAR) \RESETSTACK (\ResetFXP) +ICMLARRAY.VALUECOMMANDFN (;) PAGEFAULTS (\MISCSTATS) \PFCreateVols (maxLogicalVolumes) \RESETSTACK0 ( +\StackAreaSize \FAULTFXP \ResetFXP) BEGINMASTER.IP (BEGINMASTER) \MAKEBASEBYTESTREAM (\BASEBYTESDEVICE + BITSPERBYTE) SUBRNUMBER (\INITSUBRS) \SETTOTALTIME (\MISCSTATS) \DUMMYTELERAID (\TeleRaidFXP) +CLOCKDIFFERENCE (\MISCSTATS) FASL::DO-OP (FASL::*BLOCK-LEVEL* FASL::*CURRENT-OPTABLE*) \DOTELERAID ( +\TeleRaidFXP) \SERIALNUMBER (\InterfacePage) CARET (DEFAULTCARET) OPENSTRINGSTREAM (\NORUNCODE) +\FBITMAPBIT.UFN (BITMASKARRAY NOTBITMASKARRAY) COMPILER::EFFECTLESS (:NONE) \PFInitFileDescriptors ( +\PhysVolumePage \PFLogicalVolumeFileD \PFMarkerFileD) APPENDOP.IP (SHORTOP LONGOP) MAKELISPXMACROSCOMS + (LISPXHISTORYMACROS LISPXMACROS LISPXCOMS HISTORYCOMS) COMP.SETARG (COMTYPE ARGVARS CODE) TTYINEDIT ( +TTYINPRINTFN TTYINEDITPROMPT HISTSTR1) INITBITMASKS (WORDMASK) SCANFILE1 (FNLST LDFLG VARS) SPP.EOFP ( +ReadBit) COURIER.CALL (\COURIERPROGRAM) EVALQT (LISPXHISTORY) PRESSFILEP (BYTESPERRECORD) +PFI.MAKE.LPT.STREAM (DEFAULTPRINTINGHOST *PFI-PRINTOPTIONS*) RECORDECL1 (DECLARATIONCHAIN +CLISPRECORDTYPES) STRING.EQUAL (\ST.BYTE \MAXTHINCHAR) SEDIT::NEW-FUNCTION-BODY (SEDIT::ARGS-GAP +SEDIT::BODY-GAP) BRHC/LAYOUT (PERSONALD) GetImageFile (PRINTFILETYPES) SPP.READP (ReadBit) +\CAUSEINTERRUPT (\InterfacePage) TTINSERTSECTION (\DSP \DESCENT) SEDIT::SET-POINT-LITATOM ( +SEDIT::BUTTON-STRING) SCANFILE0 (FILECREATEDLOC) CREATEDSKDIRECTORY (\LFtopMonitor) FM.HIGHLIGHTITEM ( +\FM.GROUPSPEC) RECORDECLTAIL (CLISPRECORDTYPES COMMENTFLG) HVREADEND (HPFINALCHAR) CH.LOOKUP.OBJECT ( +\CH.BROADCAST.SOCKET) \InitCurveBrushes (\BrushNames) TEDIT.RAW.INCLUDE (DEFAULTFONT +TEDIT.DEFAULT.FMTSPEC) \CreateCursorBitMap (\EM.CURSORBITMAP) INTERRUPTED (\CURRENTKEYACTION) +PFI.SETUP.TRANSLATIONS (*PFI-CHARACTER-TRANSLATIONS*) COMPERRM (COUTFILE) \DOMISCAPPLY1 (\MiscFXP) +ARCTO.IP (ARCTO) COMP.ARG (COMPILE.CONTEXT COMTYPE ARGVARS CODE) MAKE-UNICODE-FORMATS (LF.EOLC CR.EOLC + CRLF.EOLC :UTF16BE :UTF16BE-RAW :UTF8-RAW :UTF8) \ZEROWORDS (WORDSPERSEGMENT) \CONTEXTAPPLY (MYALINK +\InterfacePage) FASL:OPCODE-SEQUENCE (FASL:*DEFAULT-OPTABLE* FASL::FASL-EXTENDED) +IRM.CREF.BUTTONEVENTFN (BLACKSHADE LASTMOUSEBUTTONS) \GATHER-CLEANUP-FORMS1 (\InterfacePage \STACKHI) +DO.EDIT.COMMAND (\BUFFER \ENDBUFFER \ARROW \FIRSTLINE \LOC.ROW.0 \CURSORROW \TTYINSTATE \MAXTHINCHAR +\PRIMTERMSA WORDSEPR.TC \RDTBLSA EDITPREFIXCHAR EOLCHARCODE) MBUTTON.CREATE (DEFAULTFONT +MBUTTONIMAGEFNS) \MEDW.GETSCREENPOSITION (CROSSHAIRS LASTMOUSEBUTTONS \CURSORSCREEN LASTSCREEN +LASTMOUSEX LASTMOUSEY) \DISABLEGC1 (\MDSTypeTable \MDSTTsize) \GATHER-SPECIAL-BINDINGS (FVARCODE +\AtomHI *HARDRESET-IGNORE-VARS* IVARCODE PVARCODE \STACKHI) HVREADCHECKGETFN (UNDERREADIMAGEOBJ +HPRINTREADFNS IMAGEOBJGETFNS) RECORDECLBLOCK (COMMENTFLG DATATYPEFIELDTYPES DATATYPEFIELDCOERCIONS +STRUCNAME) RECORDERROR (DWIMIFYFLG FAULTFN) \GC.MODIFY.BIGREFCNT (\HTBIGCOUNT \HTBIGENTRYSIZE +\ADDREFCASE MAX.SMALLP \DELREFCASE \MAXHTCNT \SCANREFCASE \UNSCANREFCASE) \MAKE.PROCESS0 ( +\DEFAULTLINEBUF \LINEBUF.OFD *READTABLE* \PRIMTERMTABLE \PRIMTERMSA \DEFAULTTTYDISPLAYSTREAM \MiscFXP +*DRIBBLE-OUTPUT* \PROC.RESETME \PROC.KILLME \PROC.RESTARTME PROMPTWINDOW) XCL:COMPILE-FORM (:PARENT +SPECVARS LOCALVARS GLOBALVARS) \10MB.GETPACKETLENGTH (\MACHINETYPE \DANDELION \DAYBREAK \DOLPHIN) +\GCERROR (\GCDISABLED) FILLNGON.IP (MAXSEGSPERTRAJECTORY DOSAVESIMPLEBODY { MAKEOUTLINE MASKFILL }) +RETRYSCAN (FILE *FILEMAP-HASH*) BITBLT (\CURSORDESTINATION \EM.DISPINTERRUPT \TOPWDS \SCREENBITMAPS) +CHECKSAMEDIR (MIGRATIONS :TEST SAMEDIRWAIT SAMEDIRDEFAULT) \GC.ENTER.BIGREFCNT (\HTBIGCOUNT +\HTBIGENTRYSIZE WORDSPERPAGE \MP.BIGREFCNTALREADYPRESENT \MAXHTCNT) COMPILER::CLOSURE-ANNOTATE-BLOCK ( +:SCOPE :LEXICAL :KIND :VARIABLE :NAME :BINDER :CLOSED-OVER) TTCOMPLETEWORD (\CURSOR \BUFFER SPLST +\MAXTHINCHAR \RDTBLSA MULTIPLE-ESCAPE.RC ESCAPE.RC *PACKAGE* \CURSORCOL SPELLSTR1 USERWORDS) +\NSRANDOM.SETEOFPTR (WriteBit AppendBit) \BLTSHADE.BITMAP (WHITESHADE BLACKSHADE) FORMAT-FIND-COMMAND +(*FORMAT-INDEX*) \BITBLT.BITMAP (BLACKSHADE) \SEARCHOPENFILES (\OPENFILES) \CREATE.TTYDISPLAYSTREAM ( +TTYREGIONOFFSETS DEFAULTTTYREGION \DEFAULTTTYDISPLAYSTREAM) ARG (\STACKSPACE) CHAT.TYPEOUT ( +CHAT.DRIVERTYPES \SYSBUFFER) SEDIT::SCAN-STRING (*READTABLE*) COMP.GLOBALVARP (GLOBALVARS) +\LFCloseFile (\LFtopMonitor) UNDONLSETQ1 (UNDOSTATS) \HARDRESET-CLEANUP1 (MYALINK \STACKHI +WORDSPERQUAD WORDSPERCELL \LITATOM \NEW-ATOM PVARCODE) COMP.EFFECT (LEVEL CODE AC) HVBAKREAD ( +HPRPTSTRING FILERDTBL BACKREFS BACKREFCNT) \HARDRESET-CLEANUP (WORDSPERQUAD CELLSPERQUAD) +XCL:UNADVISE-FUNCTION (:IN :NO-ERROR) SEDIT::BUILD-INTERNAL-STRUCTURE (SEDIT::TYPE-ROOT) +GRAPHOBJ.GETFN (FILERDTBL) \GC.BIGREFCNT.MISSING (\MP.BIGREFCNTMISSING) /LISPXPUT (LISPXHISTORY) +SI::BQUOTE-NCONC (SI::*BACKQUOTE-LEVEL*) ASKUSERSETUP (OPTIONSLST FILE) \INSURESCREEN (\CURSORSCREEN) +COMP.LAM1 (ALLVARS SUBFNFREEVARS) \GC.LOOKUP.BIGREFCNT (\HTBIGCOUNT \MAXHTCNT \HTBIGENTRYSIZE) +SEDIT::SELECT-SEGMENT-LITATOM (SEDIT::TYPE-STRING) \FORMATLINE (LMInvisibleRun TEDIT.DONT.LAST.CHARS +TEDIT.DONT.BREAK.CHARS DEFAULTFONT) \GCMAPSCAN (\HTMAINSIZE \HTMAIN GCREF) XCL:ADVISE-FUNCTION ( +:BEFORE :LAST *ERROR-OUTPUT* :NAME :IN :NO-ERROR ADVISEDFNS) END.DELETE.MODE (TTYINBSFLG) +PFI.LINES.REMAINING (*STANDARD-OUTPUT*) COMPILER::TEST-ANALYSIS (:ALL) \TEDIT.EXPANDEDPARA.MENU ( +TEDIT.EXPANDEDPARA.MENU) \GCMAPUNSCAN (\HTMAINSIZE \HTMAIN) IDLE.SHOW.OPTION (IDLE.PROFILE +PROMPTWINDOW) FIND.NON.SPACE (\ENDBUFFER) GETSCREENREGION (\CURSORSCREEN) \DORETCALL (\STACKHI) +RECORDECL0 (CLISPRECORDTYPES RECORDTRANHASH) XCL:COMPILE-DEFINER (:PARENT) FW-FORGET-STREAM ( +FW-OFDList) \CLEANUP.STACKFULL (AUTOHARDRESETFLG RESETSTATE) TEDIT.FORMATBOX (:NEW-PAGE-LAYOUT) +SI::BQUOTE-APPEND (SI::*BACKQUOTE-LEVEL*) SEDIT::ATOM-CHANGE-RELINEARIZE (SEDIT::TYPE-LITATOM) +XCL:REBREAK-FUNCTION (XCL::*BREAK-HASH-TABLE* *ERROR-OUTPUT*) MACHINETYPE (\InterfacePage \DORADO +\DANDELION \DAYBREAK \MAIKO) \REFCNT (\MDSTypeTable \HTMAIN \MAXHTCNT \HTCOLL) XCL:TRACE-FUNCTION ( +:NAME *ERROR-OUTPUT* :IN :NO-ERROR :UPCASE) FASL:PROCESS-SEGMENT (FASL:*DEFAULT-OPTABLE*) +MSMARKCHANGE1 (MSCHANGEDARRAY) \EQREFCNT1 (\MDSTypeTable \HTMAIN \HTCOLL) \PFCreateFileDescriptors ( +maxLogicalVolumes tLogicalVolumeRootPage tSubVolumeMarkerPage tFreePage tVolumeAllocationMap +tVolumeFileMap) RESET (MYALINK \PROC.RESETME PROMPTWINDOW) APPENDRATIONAL.IP (SEQRATIONAL) FASL:BEGIN-TEXT + (:TEXT) \SET.FINALIZATION.FUNCTION (\MaxTypeNumber \FINALIZATION.FUNCTIONS) XCL:CREATE-TRACE-WINDOW ( +TRACEREGION) \COPYSYS (\CONNECTED.DIRECTORY \LASTUSERACTION) NIL +REF LOADVARS (FILE LDFLG VARS) FNTYP (FN #:G2 #:G3) TEDIT.COPY.LOOKS (STREAM DEST TEXTOBJ) COMP.APPLY* + (A) \UFS.RECOGNIZE.FILE (DEV #:G101 FILENAME RECOG NAMEAREA ERRNO) \GETFTPCONNECTION (HOST H) +\TYPENUMBERFROMNAME (INDEX) GETNSPRINTER (HOST) \TFBRAVO.APPLY.PARALOOKS (MARGIN.CANDIDATE TEXTOBJ +PARALOOKS LENGTH) CL::MAYBE-MAKE-BINDING-FORM (CL::NEWVAR CL::SETTER CL::NEWVAL-FORM) +\TEDIT.COMMAND.LOOP (STREAM TEDITSA TEDITFNHASH BLANKSEEN CRSEEN) LOADFNS-MAKELIST (Y) +ANALYZE-PARAMETER (PARAM ERRLOC NEW-WHOLE) XCL::CLEAR-IMPLICIT-KEY-HASH (XCL::IK-HASH-TABLE XCL::BASE +XCL::LAST-INDEX) \DSPSPACEFACTOR.IP (STREAM) CH.DOMAINS.SERVED (CHADDRESS) \TEDIT.CONVERT.TO.FORMATTED + (START END TEXTLEN START-OF-PIECE PCNO CRSTRING) \GETPILOTBBTSCRATCHBM (WIDTH HEIGHT) +SEDIT::MENU-PACKAGE-SELECTEDFN (SEDIT::ITEM SEDIT::PACKAGE-NAME-ITEM CL:PACKAGE-NAME SEDIT::BUTTONS +SEDIT::WINDOW $$OUTPUT) RECREDECLARE (RECNAME RECFIELDS OLDFLG) SPYOBJ (NAME PERCENT) +TEDIT.DISPLAYTEXT (TEXTOBJ XPOINT LINE LOOKS DS CH FONT) \DSPRESET.PSC (IMAGEDATA) WHILEDOUNTIL ($FORM +) OPT.JLENPASS (JL PROP) \INSUREBITSPERPIXEL (NBITS) CL::SETF-ERROR (CL::FN) ANALYZE-KEY (TEMP) +XCL::IMPLICIT-KEY-MAP-HASH (XCL::IK-HASH-TABLE XCL::BASE XCL::LAST-INDEX) \DSPTOPMARGIN.IP (IPSTREAM) +LASTCHPOS (STR CH) COMP.PUSHCALL (N CHK LEV FR LP FORM) \UPF.TEMPFILEP (FILENAME START) +TEDITCHAT.CHARFN (CHAT.STATE TEXTSTREAM CH SEL) \FTP.PRINTPLIST (STREAM PLIST PAIR) \UPF.NEXTPOS ( +STRING CHAR) \SPP.CLEANUP (INSTREAM F) GCGAG (MESSAGE) RECORDECL (DEC) GETHOSTINFO (ATTRIBUTE) +\DSPCLIPPINGREGION.PSC (STREAM OLDCLIP) XCL::PPRINT-DEFINER (XCL::DEFINE-EXPRESSION TAIL) +\CH.UPDATE.CACHE (OBJECT ADDRESS DOMAINS.SERVED) TEXTPROP (X) DISABLEGC (NOERROR) SET.TTYINEDIT.WINDOW + (OFFSET) UNPACKPATHNAME.STRING (RESULT FILE) \FIXILINES (SEL DCH OTEXTLEN) SEDIT::MENU-INIT-STATE ( +SEDIT::PRINT-BASE SEDIT::MENU CL:PACKAGE-NAME) \DOGCDISABLEDINTERRUPT (W) TTYINMETA (FLG) +BRH/LAYOUT/DAUGHTERS (DS Y X MOMLST) FLASHWINDOW (SHADE) HASHFILENAME (HASHFILE) IDLE.SET.OPTION ( +OPTION X) \LEAF.SETCREATIONDATE (STREAM DATE OPUP FILEDATE) BITMAPBIT (X Y) \SEARCH.OUTPUTQ (SOCKET) +EDITREC (L) SPY.MERGE.CALLEES (NEWORIGINAL OLDCOPY SPYDATA PARENTS) \FILLPOLYGON.PSC (KNOTS STREAM K +LASTPOINT) SHRKFY (LOOKAT WORKFLAG) ANTILOG (X XX) SEDIT::MENU-FIND-SELECTEDFN (SEDIT::ITEM SEDIT::WINDOW + SEDIT::FIND-ITEM SEDIT::BUTTONS) LINE.LESSP (ARG1 ARG2) \DSPCLIPTRANSFORMX (X DD TX) COMP.EVALFORM ( +LP DONE) \IGR.MAKEPRETTYCOMSL (NAME) CREATEW (BORDERSIZE NOOPENFLG PROPS) DWIMIFY2A ($TAIL $TYP Y X) +\DSPCLIPTRANSFORMY (Y DD TY) IDLE.BOUNCING.BOX (WINDOW MAXX MAXY) \GENERIC.CURSOR (SCREEN INVERTFLG) +CL::GET-SHARED-SETF-METHOD (CL::ARG CL::G CL::FORM CL::NEW-VAR) COERCETEXTOBJ (STREAM TEXTOBJ TYPE +PCTB) \BBTCURVEPT (Y TOPMINUSBRUSH BRUSHHEIGHT BRUSHBASE BOTTOMMINUSBRUSH TOP BRUSHRASTERWIDTH +DESTINATIONBASE RASTERWIDTH DestinationBitMap LEFT NBITS BRUSHWIDTH LEFTMINUSBRUSH NBITSRIGHTPLUS1 +SourceTypeA0618 DISPLAYDATA SourceTypeA0620 RIGHTPLUS1) CREATEREGION (LEFT BOTTOM WIDTH HEIGHT) AIN ( +APTR INDEX FILE) \DSPLINEFEED.IP (IPSTREAM) \TERMINATESPP (TIMEOUT TIMER) AOUT (APTR INDEX FILE) +CHAT.RECONNECT.OFF (WINDOW FN) \DRAWPOLYGON.PSC (POINTS STREAM BRUSH IMAGEDATA DASHING D P LASTPOINT) +SHRKFY2 (LOOKAT WORKFLAG STAGEFLAG) BLTCHAR (CHARCODE DISPLAYSTREAM) \FTP.PACKFILENAME (PLIST PAIR +HOST) \USEREVENT (EVENT FN) TWODINSPECT.SELECTITEM (WINDOW ROWPROPS COLUMNPROPS VERTMARKS FETCHFN +DATUM HORZMARKS) TEDIT.UPDATE.SCREEN (STARTINGLINE INCREMENTAL? NEXTCARETCH#) SEDIT::MENU-CLOSEFN (SEDIT::W +) \MEDW.CURSOR (INVERTFLG) \SLOWBLTCHAR (CHARCODE DISPLAYSTREAM) \TEXTCLOSEF (STREAM TEXTOBJ) +\DSPPRINTCR/LF (DISPLAY-STREAM DD CHARCODE CLIPREG) BMOBJ.COPYFN (IMAGEOBJ BMOBJ) \DSPRIGHTMARGIN.IP ( +IPSTREAM) SEPRCASE (Y X) FASL::DUMP-BITMAP (FASL::VALUE FASL::HANDLE) COMP.PUSHNILS (N CHK LEV FR LP +FN) XCL::MAKE-IMPLICIT-KEY-HASH-TABLE (XCL::NUM-SLOTS XCL::LOGICAL-SLOTS XCL::KEY-ACCESSOR) +\BSP.CLOSE.OPEN.SOCKETS (SOC) DWIMIFYFNS (FNS X) \SFFixY (Y CSINFO) PRINTWORDS (NWORDS BASE) +\DSPLEFTMARGIN.IP (IPSTREAM) \CARET.FLASH.AGAIN (X Y) \LEAF.CREATIONDATE (STREAM) TTYINBUFFERSTREAM ( +BUF END EOFACTION) ARRAYSIZE (X) SYNONYM (NAME&FIELDS) SPY.ORIGINAL (TREES X) \STRINGWIDTH.PSC (STREAM + STR IMAGEDATA RDTBL) CLISPIFYLOOKUP (WORD VAR1 VAR2) ARRAYTYP (ARRAY) ARRAYORIG (ARRAY) CHARMACRO? ( +MACRO) BRH/OFFSET (NODEIDS YINC) \CHANGECHARSET.DISPLAY (CHARSET CSINFO) \SHOWSEL (TEXTOBJ SHADEHEIGHT + SHADE) COPYARRAY (ARRAY NHARRAY SIZE TYPE ORIG) USERNAME (STRPTR PRESERVECASE) SETD (A N BASEA0290 +BASE V) FASL::DUMP-STRUCTURE (FASL::VALUE) \TEXTSTREAMBOUT (BYTE LOOKS) BSPREADP (STREAM) FTPGETMARK ( +STREAM) ELTD (A N BASEA0289 BASE) SETUSERNAME (ADDR) \MEDW.PUTWINDOWPROP (PROP) REHASH (OLDAR APTR1 +BASEA0301 N BASE NEWAR) \COPYHARRAYP (SOURCE) HASHARRAY (OVERFLOW MINKEYS IDEALSIZE PHYSLOTS +RECLAIMABLE HASHBITSFN EQUIVFN) HARRAYSIZE (HARRAY) SEDIT::JOIN (SEDIT::CONTEXT SEDIT::SELECTION +SEDIT::PROMPTWINDOW SEDIT::POINT) FTPPUTCODE (STREAM CODE NOCODEP) HARRAYP (X) DO.CHAT.OPTION ( +CHAT.STATE) INVERT.TEXTURE (TEXTURE SCRATCHBM) COMP.MLLVAR (X) \LEAF.SETFILETYPE (OPUP STREAM) %. ( +MASTERSCOPECOMMAND) \MEDW.GETWINDOWPROP (PROP) READBITMAP (FILE STRM WIDTH HEIGHT) \NAMEDTABSIZE ( +TABOBJECT MODE PTSIZE CURRENTX) CL::GET-SIMPLE-SETF-METHOD (CL::ARG CL::G CL::FORM CL::NEW-VAR) +SPY.DELETE (TREES NAMES) \NSGATELISTENER (NSOC TIMER) \DRAWARC.PSC (STREAM BRUSH IMAGEDATA DASHING D +CENTERX CENTERY RADIUS STARTANGLE NDEGREES) CLMAPS2 (VAR) SUBARRAY (X N M LEN ORIG OLD) MAXIMUMSHADE ( +BITSPERPIXEL) FASL::DUMP-FLOAT32 (FASL::HANDLE CL:NUMBER) TTYINFIX (INPUT) TXTFILE (TEXTOBJ) TEXTUREP +(OBJECT) \FTP.HANDLE.NO (CONNECTION INSTREAM FLUSHER HOST $$OUTPUT PAIR) HARRAY (MINKEYS) +%%COPY-STRING-TO-ARRAY (LOCAL-STRING SIZE) \HCPYMODEBLTCHAR (CHARCODE DISPLAYSTREAM CHAR8CODE) +CLEARMAP (FILE STREAM PAGES) XCL::PROFILE-VALUES (XCL::PROFILE XCL::X) \FTP.ERRORHANDLER (ERRCODE) = ( +CL::ARGS CL::FIRST-ARG) INVERT.TEXTURE.BITMAP (BM SCRATCHBM NEWBM LASTBASE) OPPOSITESHADE ( +BITSPERPIXEL SHADE) \PNC (LEN OFFST CH) COMP.MLL (LL X P S F V) > (CL::ARGS) READATOM ( +SI::$PROG1-FIRST-EXPRESSION$) \GR.CONTENTS (TYPE) OPPOSITECOLOR (BITSPERPIXEL COLOR) PRINTPROPS (AT TL +) SEDIT::INSPECT-SELECTION (SEDIT::CONTEXT $$OUTPUT) < (CL::ARGS) \CH.CHECK.CLEARINGHOUSE (ADDRESSES) +OVERFLOW (FLG) \WRITEPAGES (STREAM FIRSTPAGE BUFFERLIST) \MEDW.BITBLT (SOURCE DESTINATION DSTWIN +SOURCELEFT SOURCEBOTTOM DESTINATIONLEFT DESTINATIONBOTTOM WIDTH HEIGHT SOURCETYPE OPERATION TEXTURE +CLIPPINGREGION DD SRCWIN SOURCELEFTTRANSFORMED SOURCEBOTTOMTRANSFORMED) HASHFILESPLST (XWORD) +SEDIT::INSERT-SPECIAL-CHARACTER (SEDIT::CONTEXT CL:CHAR SEDIT::POINT STRING) XCL::PROFILE-VARIABLES ( +XCL::PROFILE XCL::X) HARRAYPROP (NARGS PROP) \FTP.WHENCLOSED (INSTREAM) FINISH-READING-BITMAP (STREAM) + TEDIT.WORDSET (CHAR TABLE CODE CHARCODE CLASS) COMP.MAP (L XARG ENDLP LP OUT) \READPAGES (STREAM +FIRSTPAGE BUFFERLIST) CLRHASH (HARRAY BASEA0291 N BASE LASTSLOT) DOPMAP (STREAM PAGE# VMEMPAGE) +CL:READ-CHAR (STREAM EOF-VALUE) \BSP.GETFILEPTR (STREAM) CLOSEBSPSTREAM (STREAM SOCKET INPUTSTREAM) +%%COPY-ONED-ARRAY (LOCAL-ARRAY OFFSET SIZE TYPENUMBER BASE) CHAT.TAKE.INPUT1 (WINDOW PWINDOW +*LAST-CONDITION*) \SLOWHCPYMODEBLTCHAR (CHARCODE DISPLAYSTREAM CHAR8CODE) \FTP.OPENFILE (ACCESS RECOG +FILENAME OTHERINFO) TTADJUSTWIDTH (DELTA END) \GENERIC.DSPCREATE (OLDDSP) MAPHASH (HARRAY HA BASEA0292 + N BASE MAPHFN NULLVALUE LASTSLOT) LOG (X) HASHLINK (NAME&FIELDS) FINDPTRSBUFFER (PTR) \CHARWIDTH.PSC +(CHARCODE STREAM FONTDESCA0728) TEDIT.UNDO.DELETION (CH# PCTB START-OF-PIECE LEN OTEXTLEN) +\ICONW.FORMAT.TITLE1 (TITLE TITLELEN FONT MAXWIDTH BREAKCHARS) \BITBLT.MERGE (OPERATION SOURCEBITMAP +DESTBITMAP PILOTBBT SLX STY DLX DTY HEIGHT TEXTURE WIDTH SCRATCHLEFT SCRATCHTOP) \TEDIT2 (WINDOW) +OPENBSPSTREAM (FAILURESTRING OTHERPUPHANDLER ERRORHANDLER IOTIMEOUT IOTIMEOUTFN WHENCLOSEDFN) +SETTEMPLATE (FN TEMPLATE OLD NOSAVEFLG) BITMAPBIT.EXPANDER (ARGS) TEDIT.WORDGET (CHAR TABLE CH) +LOCKMAP (PTR) PUTHASH (KEY HARRAY) \HASHACCESS (ITEM BASEA0299 BASEA0300 VAL) \FIXLINELENGTH.IP ( +IPDATA) SEDIT::INSERT-MULTI-ESCAPE (SEDIT::CONTEXT TYPE CL:CHAR) \MEDW.DSPCREATE (OLDSTREAM SCREEN +DESTINATION DSTRM) \SPP.SEND.ENDREPLY (CON) MAPAFTERCLOSE (STREAM) CL::PUTHASH (KEY EXTRA VALUE +CL:HASH-TABLE) \IDLER (TIMEOUT START.TIME) FASL::DUMP-DCODE (FASL::HANDLE) \BSP.SETFILEPTR (STREAM +INDX) \FTPERROR (CONNECTION ERRARG) MAPPAGE (FILE STREAM PAGE# READONLY) REMHASH (KEY HARRAY) PRINTDEF + (FILE *STANDARD-OUTPUT* EXPR FIRSTPOS SPACEWIDTH TAIL) \HASHRECLAIM (HARRAY BASEA0298 N BASE LASTSLOT +) \STRINGWIDTH.HCPYMODE (STREAM STR WIDTHSBASE RDTBL) \MAPPAGE (FILEPAGE#) HASHOVERFLOW (HARRAY +OLDARRAY) RECORDINIT (X) SAVESETQ (SETQX) \DSPROTATE.PSC (STREAM OROT) CLMAPS1 (FN) MAPWORD (FILEADR +FILE) UNDONLSETQ (UNDOFORM UNDOFN) \LEVELTEXTURE (LEVEL) DWIMIFY1A (PARENT) IDLE (FROMTIMEOUT) +TEDIT.REDO.INSERTION (CH# PCTB LEN OTEXTLEN) SPY.MAKE.TREE (SPYDATA TREES WINDOW) UNLOCKMAP (PTR) +\HASHTABLE.DEFPRINT (STREAM CL:HASH-TABLE) \DSPBOTTOMMARGIN.IP (IPSTREAM) FINDCALLERS (ATOMS FILES X) +\BITBLT.BITMAP.SLOW (DESTBITMAP SOURCEBITMAP DESTINATIONLEFT DESTINATIONBOTTOM SOURCELEFT SOURCEBOTTOM + CLIPPEDSOURCELEFT CLIPPEDSOURCEBOTTOM OPERATION) CLISPFORINITVAR (EXP VAR) \COLLECTDIRTYBUFS ( +FIRSTPAGE) \BSPBACKFILEPTR (STREAM) BSPOPENP (STREAM) TEXTUREOFCOLOR (COLOR NOERRORFLG TEX) +WORDCONTENTS (PTR) XCL::SETF-PROFILE-ENTRY-VALUE-NAME (CL:VARIABLE XCL::NAME) \MEDW.TOTOPW ( +NOCALLTOTOPFNFLG) \PUNT.BITBLT.BITMAP (DESTBITMAP SOURCEBITMAP DESTINATIONLEFT DESTINATIONBOTTOM +SOURCELEFT SOURCEBOTTOM CLIPPEDSOURCELEFT CLIPPEDSOURCEBOTTOM OPERATION) \SETIODIRTY (STREAM +PAGENUMBER) \STRINGHASHBITS-UFN (ARG-PTR STRING) /SETWORDCONTENTS (PTR N) COURIER.NSNAME.LENGTH (TYPE +NSNAME) \STRING-EQUAL-HASHBITS-UFN (ARG-PTR STRING) SEDIT::OUTPUT-CONSTANT-STRING (SEDIT::STRINGITEM +SEDIT::LINEAR) SETWORDCONTENTS (PTR N) EXPANDBITMAP (BITMAP) SEDIT::INPUT-TOKENDELIM (SEDIT::CONTEXT +SEDIT::POINT SEDIT::CHARCODE SEDIT::POINTNODE) \MAKE.PMAP.DEVICE (DEVICE) \CODEARRAY (NBYTES +INITONPAGE) COMPILER::TEST-GENCODE (COMPILER::FN) RECORDACCESSFORM (FIELD DATUM NEWVALUE) WORDOFFSET ( +PTR N) \DRAWPOINT.PSC (BRUSH STREAM X WIDTH Y HEIGHT OPERATION) \PUNT.BLTSHADE.BITMAP ( +DESTINATIONBITMAP OPERATION) TEDIT.SETSYNTAX (TABLE CODE CLASS) \PAGED.GETNEXTBUFFER (WHATFOR) +XCL::SETF-PROFILE-NAME (XCL::PROFILE XCL::NAME) \MEDW.BURYW (OVERLAPPINGWINDOWS W) \FIXCODENUM (CA +BASE NUM) \TFBRAVO.GET.NAMEDTAB (CHARSTREAM) \PAGED.FORCEOUTPUT (Y X) DSPSOURCETYPE (DISPLAYSTREAM +Operation SourceType) \FIXCODEPTR (CA PTR BASE BN LO) \CLIPLINE (WIDTH CLIPREG HALFWIDTH) +\PAGEDSETFILEPTR (INDX NEWPAGE NEWOFF) BRH/LAYOUT (MOMLST X W Y N) DSPYOFFSET (YOFFSET) FASL::DUMP-INTEGER + (FASL::VALUE FASL::HANDLE FASL::MINBITS FASL::NBYTES) \CLISPKEYWORDPROCESS (WORDLST) \PAGED.SETEOFPTR + (NBYTES STREAM NEWEP NEWEO) ARGINFO-MUNG (LST THING) DSPXOFFSET (XOFFSET) TEDIT.UNDO.INSERTION (CH# +LEN) \UPDATEOF (STREAM) \IFS.LOOKUPFILE (NAME HOSTNAME RECOG ATTRIBUTE) SYSRECLOOK1 (RECNAME) +\PAGEDREADP (STREAM CHAR TABLE) \CARET.FLASH (STREAM X Y RATE UNLESSOCCLUDED) CLISPIFYMAPS (OPR IN-ON) + \CHECKARRAYBLOCK (BASE N FBL) TEDIT.GETSYNTAX (CHAR TABLE CH) COURIER.WRITE.NSNAME (STREAM NAME TYPE) + \BSPWRITEBLOCK (STREAM BASE OFF NBYTES) \ALLOCBLOCK.OLD (GCTYPE 1STBLOCK.IN.FREECHAIN) TTYINREADP ( +FLG) TWODINSPECT.REDISPLAY (WINDOW FETCHFN DATUM RPROP CPROP COLUMNPROPS COLUMNWIDTHS HORZMARKS +ROWPROPS VERTMARKS FHEIGHT FDESCENT) \ALLOCBLOCK.NEW (ARLEN GCTYPE) SEDIT::INPUT-STRINGDELIM ( +SEDIT::CONTEXT SEDIT::POINT) EP (ATOM) \ALLOCHUNK (GCTYPE TYPENUM.TABLE) DECREASING.FONT.LIST (SIZE) +TOPW.REPAINTFN (WINDOW DISPLAYW LEFT RIGHT BOTTOM) \SFFixDestination (BM DISPLAYSTREAM) FTPPUTMARK ( +STREAM MARK) \LEAF.READFILEPROP (STREAM OPUP OFFSET LEN CONNECTION) BSPPUTMARK (MARKBYTE) +\MAIKO.ALLOCBLOCK (ARLEN) \BSP.HANDLE.DATA (SOCKET) CHAT.TYPESCRIPT (STATE) \NEWLENGTHIS (STREAM PGE +OFF) \DSPPOPSTATE.PSC (STREAM XFORM) CLISPIFYCROPS (X PARENT0) DSPTEXTURE (TEXTURE DISPLAYSTREAM) +\TEDIT.WORDBOUND.READTABLE (CHAR TABLE CODE RTBL) COMP.NUMBERTEST (FORM X TEST) BSPOUTPUTSTREAM ( +BSPSTREAM) \MAKEFREEARRAYBLOCK (LENGTH) FASL::DUMP-COMPLEX (FASL::HANDLE FASL::VALUE) +\TEDIT.INTERRUPT.SETUP (PROC) CLISPFORF/L (EXP) INSURE.RGB.COLOR (COLOR) \BSP.GETNEXTBUFFER (WHATFOR) +\DISPLAYSTREAMINCRXPOSITION (DD N) \MERGEFORWARD (N) CLISPIFYRPLAC (X TYP PARENT0) SPY.NEXT.TREE (TREE + FN) XCL::PROFILE-VALUE-TYPE-CHECK (XCL::DEFINITION) \MEDW.REDISPLAYW (WINDOW DSP) \LINKBLOCK (N FBL) +TEXTOBJ (STREAM) PUTHASHTEXT (SRCFIL START END KEY) \MERGEBACKWARD (N) SPY.SUM (Y) \CLIPCURVELINE.IP ( +LEFT RIGHT TOP BOTTOM PT1VISP IPSTREAM) \VANILLADISKINIT (ARR) TTPRIN1COMMENT (STR DOWNCASE) +\LEAF.GETFILEINFO.OPEN (ATTRIBUTE STREAM) \DELETEBLOCK? (BASE N FBL) \BSP.HANDLE.ACK (PUP) +RECREDECLARE2 (FORM) PPBUFS (BUF0) \DSPPUSHSTATE.PSC (STREAM IMAGEDATA) \SFFixClippingRegion (CLIPREG +BM) \PREFIXALIGNMENT? (BASE GCTYPE ARLEN) GET.OBJ.FROM.USER (TEXTOBJ) CHAT.CLEAR.FROM.MENU (WINDOW +STATE) COURIER.READ.NSNAME (STREAM TYPE) SPY.MERGETREE (PARENTS NEWORIGINAL SPYDATA DEPTH) +DWIMARKASCHANGED (FN $SIDES) \FTP.SENDVERSION (CONNECTION OUTS INS ECHOSTREAM) \VANILLAHOSTNAMEP (NAME +) \SFFixFont (BITSPERPIXEL FONT DISPLAYSTREAM) CLISPIFYCROPS1 (CROPFN) SEDIT::INPUT-QUOTE (SEDIT::CONTEXT + SEDIT::QUOTE-TYPE SEDIT::SELECTION SEDIT::CHARCODE SEDIT::POINT SEDIT::NODE) \DSKOpenDevice (DEV) +XCL::SETF-PROFILE-ENTRY-VALUE (CL:VARIABLE XCL::VALUE) \MEDW.SHAPEW (OLDSIZE) \NEW2PAGE (BASE) +\DSPTRANSLATE.PSC (STREAM TX TY MDX MDY REG) \UPDATE-SYNONYM-STREAM-LINELENGTH-FIELD (DISPLAYSTREAM +NEWLENGTH) \SFFIXLINELENGTH (DD) CROPMARK.PUTFN (HRULE OUTPUT.STREAM) SCALE.FONT (WID STR) +FASL::DUMP-RATIONAL (FASL::HANDLE FASL::VALUE) COMP.SPREADFN (ARGS 2FN) \UFSOpenDevice (DEV) +BSPFORCEOUTPUT (DEMANDINGLY) \CARET.FLASH? (OFFRATE X Y ONRATE) COPYHASHFILE (NEWNAME VALUETYPE ACCESS + KEY NEWHASHFILE FN) \BSP.DECLARE.FILEPTR (ADR) \VANILLAEVENTFN (EVENT FDEV) +XCL::PROFILE-ENTRY-VALUE-NAME (CL:VARIABLE XCL::PROFILE) \DISPLAY.PILOTBITBLT (PILOTBBT N) +CHAT.SWITCH.EMACS (WINDOW) BLOCK (TOFX FN) \SETBRUSH.IP (BRUSH IPSTREAM OPERATION) BKLINBUF (STR SA) +\ARRAYBLOCKMERGER (BASE NBASE) SEDIT::OUTPUT-CR (SEDIT::LINESKIP SEDIT::INDENT SEDIT::NEW-LPTR) +CLISPFOR4 (X) \PRIMARYTEXTURE (PRIMARY LEVEL TEXTURE) DWIMUNSAVEDEF (FN) CHAT.TAKE.INPUT (WINDOW) +TEXTSTREAMP (STREAM) COMPILER::GENCODE-VAR-REF (COMPILER::NODE) \INCPARENCOUNT (RSNX) CLISPIFYCROPS0 ( +CROPSLST) PAGEHEIGHT (N) \GR.GETDEFFN (NAME) \FTP.EOL.FROM.PLIST (PLIST) INVERT.SEGMENT (NOSWAP LEFT +BOTTOM WIDTH) CROPMARK.COPYFN (IMAGEOBJ TOSTREAM) \COPYARRAYBLOCK (HEADER LEN TYP) CLEARBUF (FILE STRM +) \COPYCODEBLOCK (NEWCA OLDCA NWORDS) COMP.GETBASEBITS (A) COPYALL (VAL TN Y NH SIZE TYPE IM) +\MEDW.EXPANDW (ICONW) WXOFFSET (WINDOW DS DX) \TFBRAVO.PUT.NAMEDTAB (OBJ CHARSTREAM) \SAVELINEBUF ( +NBYTES STR) \ADVANCE.ARRAY.SEGMENTS (NXTPAGE) TTY.PROCESS (KEYACTION) COMPILER::GENCODE-UNWIND-PROTECT + (COMPILER::NODE) \BYTELT (J) COPYHASHITEM (KEY HASHFILE NEWHASHFILE) SETDISPLAYHEIGHT (MAGICADDR) +\BYTESETA (J V) \BSP.HANDLE.INTERRUPT (PUP DIF #:G118) INVERTW (WIN SHADE) WYOFFSET (WINDOW DS DY) +\WORDELT (J) \TEDIT.PROCEXITFN (THISP) \LEAF.STRIP.QUOTES (NAME) \MEDW.SHRINKW (REG) \ARRAYTYPENAME (X +) SPY.LEGEND (X) SPY.MAKEGRAPHNODES (TREE SPYDATA STATUS LABEL COUNT THRESHOLD) COMPILER::GENCODE-THROW + (COMPILER::NODE) CLISPIFYNOT (FORM) CCODEP (FN) PAGEFULLFN (KEYSTREAM STREAM) FASL::WRITE-INTEGER-BYTES + (FASL::HANDLE) SEDIT::MAKE-COMMENT-STRING (SEDIT::NODE CL:LENGTH) \SETRTPPORTS (PUP SOCKET) +\BLOCKDATAP (X TYPENO) CROPMARK.GETFN (INPUT.STREAM PAGESIZE) SETLINELENGTH (N) +\BSP.HANDLE.INTERRUPTREPLY (PUP) DISPLAYSTREAMP (X STYPE) TEDIT.SETFUNCTION (CHAR TABLE CODE) +\CARET.SHOW (CARET UNLESSOCCLUDED) \TEDIT.PROCENTRYFN (NEWPROCESS) COMP.FIX (A) TERMCHARWIDTH ( +CHARCODE STREAM TTBL) CLISPFOR3 (X) CROPMARK.IMAGEBOXFN (IMAGE.STREAM) PLAYTUNE (TUNEPAIRS X +\DurationLimit) \SHOW.ARRAY.FREELISTS (N) SEDIT::INPUT-DOT (SEDIT::CONTEXT SEDIT::POINT) +TERMINAL-INPUT (U STREAM) NSNAME.TO.STRING (DOM COLON ORG) SHRIEKIFY (LOOKAT) EDITDATE (INITLS NEWDATE +) CLISPFORVARS1 (L FLG) \STREAMCHARWIDTH (STREAM TABLEA0498 TTBL SPACEWIDTH) XCL::SHOW-CLOSURE-CACHE ( +STREAM XCL::KEY XCL::VAL) SEDIT::HELPMENU (SEDIT::CONTEXT) TERMINAL-OUTPUT (U STREAM) +XCL::PROFILE-ENTRY-VALUE (XCL::PROFILE CL:VARIABLE) FTPPRINTCODE (CODE) \PARSEARRAYSPACE (FN) +\GR.WITHRESOURCEMAC (X) \BSP.HANDLE.ERROR (PUP #:G117) \FTP.GETFILEINFO.FROM.PROPS (ATTRIBUTE PROPS) +\TEDIT.GET.TERMSA.WIDTHS (A J V NWIDTHS FONT TERMSA) \PARSEARRAYSPACE1 (START END BASE N) +\TEDIT.COPYINSERTFN (WW INSERTIONS TEXTSTREAM SEL) COMP.NUMBERCALL (COERSIONS) CHANGEBACKGROUNDBORDER +(SHADE) EDITDEF.FILES (NAME SOURCE EDITCOMS OPTIONS) SEDIT::VERIFY-COMMENT (SEDIT::NODE STRING) +COMP.GETD (A) \FILLRTPPUP (LENGTH TYPE SOCKET) POSTINITARRAYS (CODESTARTPAGE EXTRACELLS AFTERCODEPTR +CODENEXTPAGE) \TEDIT.UNPARSE.PARALOOKS.LIST (FMTSPEC) \MEDW.RELMOVEW (WINDOW WINREG POS) +COURIERPROGRAM.PRETTYPRINT (TAB1 TAB2) \TFBRAVO.COPY.NAMEDTAB (OBJ) \DECPARENCOUNT (RSNX) CLREMPARS (X +) ICONW.TITLE (ICONW) SPY.MERGE (SPYDATA X) DINFO.TITLEMENUFN (DINFOW GRAPH MENUFN) \INTERPRETER1 (DEF + NNILS NPVARARGS NTSIZE NACTUAL FN) FASL::DUMP-ARRAY (CL:ARRAY FASL::HANDLE FASL::REMEMBER) +TEDIT.GETFUNCTION (TABLEA0736) \SMASHLINK (OLDCLINK OLDALINK) COMP.NUMERIC (FN COERSIONS ZERO) +\GETCHAR (C) \NSNAME.DEFPRINT (NAME) CLISPANGLEBRACKETS (LST) \STACKARGPTR (FRAME) \FILLBUFFER ( +FILLTYPE STRM KEYSTREAM TABLE RTBLSA ILB ISP ILP) TWODINSPECT.DOWINDOWCOMFN (TWODWINDOW) \STARTDISPLAY + (W) SEDIT::EDIT-HELP (SEDIT::CONTEXT SEDIT::POINT SEDIT::PROMPTWINDOW) \FILLBUFFER.WORDSEPRP (CHAR) +\MEDW.MOVEW (OLDREGION Y) \DSPTRANSFORMREGION (REGION DS) \FILLBUFFER.BACKUP (CHAR) +COMPILER::GENCODE-TAGBODY-INLINE (COMPILER::NODE COMPILER::STK-NUM) CHARWIDTH (CHARCODE FONT +FONTDESCA0491) FAULTAPPLY (FAULTFN ARGLISTA0614 CNT FAULTARGS) \TEDIT.READTABLE (CHAR TABLE CODE RTBL) + COMP.COMPARENUM (A TYPE FN) DSPBACKUP (WIDTH DD) TEDIT.GET.PARALOOKS (TEXTSTREAM SELORCH# TEXTOBJ) +\CreateScreenBitMap (WIDTH RASTERWIDTH HEIGHT) \OFFSETCLIPPINGREGION (DD CREG) VIDEOCOLOR (NARGS) +COMPILER::GENCODE-TAGBODY (COMPILER::NODE COMPILER:CONTEXT) \SETUP-COMPILED-CLOSURE-CALL (CLOSURE +INTERPFRAME CODE NEWSTACK START) FW-PERCENTAGE (X Y) \PARSE.REMOTE.FILENAME (DEVICE FILENAME OSTYPE) +\FILLINSPP (CON) \CoerceToDisplayDevice (NameOrDevice DEV) RECREDECLARE1 (ORIG) SPY.MERGEINFO (SPYDATA + NAME PARENT-NAME) \POSTSCRIPT.NSHASH (MAPPING-LIST CHARCODE) CLISPAND1 ($FORM CLAUSE) MAKEKEYLST (LST + KEY AUTOCOMPLETEFLG) \3MBSENDPACKET (NWORDS) \PROMPTWINDOW.OPENFN (WINDOW) FASL::DUMP-GENERAL-ARRAY ( +CL:ARRAY FASL::HANDLE FASL::NELTS FASL::ELT-TYPE) \CURSOR.DEFPRINT (STREAM CURSOR) \3MBENCAPSULATE ( +PDH NDB LENGTH TYPE) SPY.MAX (TREES X) \DSCCOUT (CHARCODE) ARGLIST (FN SMARTP) CL:/= (CL::ARGS) +\PROMPTWINDOW.SET.HEIGHT (PWINDOW OBSCUREDHEIGHT HEIGHT) \MAKEFREEBLOCK (SIZE) \CREATEDISPLAY ( +DISPLAYNAME NAME) FASL::DUMP-BIT-ARRAY (CL:ARRAY) CLISPFOR0A ($I.S.OPR LASTPTR) CL:1- (CL:NUMBER) +COMP.SHIFT (A) CLISP-SIMPLE-FUNCTION-P (CARFORM) \FREESTACKBLOCK (N) FW-UPDATE-OFD-WINDOWS (OFD) +XCL::IN-PROFILE (XCL::PROFILE) COMPILER::GENCODE-SETQ (COMPILER::NODE) \STKNAME (POS NAME BFLINK) +GETWINDOWUSERPROP (WINDOW USERPROP) COMPILER::TRANSFORM-GET/PUT-BASE (COMPILER::NODE COMPILER::ARGS +COMPILER::OFFSET COMPILER::USE COMPILER:CONTEXT) \FTP.UNPACKFILENAME (FILENAME FIELDS TAIL) +\SETUP-ENVIRONMENT-CALL (UFNFX UFNBF CALLNEXT ALINK) \ICONW.FORMAT.TITLE (TITLE FONT MAXWIDTH +BREAKCHARS) CL:ASH (INTEGER CL:COUNT) DISPLAYSTREAMINIT (TTYFONT N) MAYBE.PRETTYPRINT.BOLD (VAR) +DELETE.LONG.SEGMENT (START END) RPAQX.PRETTYPRINT (EXPR) \3MB.BROADCASTP (PACKET) COLLECTKEYS ( +HASHFILE KEY1 KEY2 KEY) SEDIT::GET-MENU (SEDIT::CONTEXT) \LEAF.READFILENAME (STREAM DEVINFO) +DINFO.GET.FILENAME (NODE GRAPH) FTPPRINTMARK (MARK) \EVALOTHER (X) BSP.PUTINTERRUPT (STREAM TIMER CODE + STRING) CHAT.EMACS.MOVE (CHAT.STATE CLOC) CL:ACOSH (CL:NUMBER CL::FX) CLISPCOND1 (L) \EVALVAR (VP) +CL:ATANH (CL:NUMBER CL::FX) CHANGEBACKGROUND (W) PUTPROPS.PRETTYPRINT (TEM) CL:ATOM (X) +SEDIT::CREATE-COMMENT-WORD-NODES (SEDIT::CHARS SEDIT::ENVIRONMENT) \CARET.CREATE (CURSOR) +\ICONW.SHOW.TITLE (ICONW BITS JUST FONT REG OPERATION TEXT NEWFLG) \SPP.SYSPKT (CCBITS) +\LINEBUF.PEEKBIN (STREAM) \PROMPTWINDOW.PAGEFULLFN (WINDOW PWINDOWPROP) \MOVE.WINDOWS.ONTO.SCREEN ( +WINDOWS) CROPMARK.DISPLAYFN (CROPMARK PAGESIZE IMAGE.STREAM SCALE THICK HEIGHT WIDTH) CLISPFOR1 ( +OPRTAIL END END1) CL:ATAN (CL::Y CL::R CL::I) \FTP.OPENFILE.FROM.PLIST (HOST ACCESS DESIREDPLIST) +FAULTEVAL (FAULTX) \ADDLEAFSTRING (PUP) DINFO.OPENTEXTSTREAM (WINDOW FILE FROM TO THIS.TEXT PROPS) +FTPDEBUG (REGION WINDOW) CL:ASINH (CL:NUMBER CL::FX) \FILLBSPPUP (LENGTH TYPE ID REQUEUE SOCKET) +CHAT.HOLD (WINDOW) \LINEBUF.READP (STREAM FLG) COMP.RPLACD (A) CLISPAND (FORM) XCL::ADD-PROTOTYPE-FN ( +TYPE XCL:DEFINER XCL::PROTOTYPE-FN) CL:BOOLE (CL::OP CL::INTEGER1 CL::INTEGER2) \EVALFORMASLAMBDA ( +FAULTX) SEDIT::UNDO-COMMENT-CHANGE (SEDIT::CONTEXT SEDIT::NODE SEDIT::OLD-VALUE SEDIT::COMMENT-WORDS) +\LINEBUF.EOFP (STREAM STRM) APPLY (U V CNT) XCL::MAKE-PROTOTYPE (XCL:DEFINER TYPE XCL::NAME) TTNEXTPOS + (COL) SEDIT::STRINGIFY-COMMENT (SEDIT::NODE) CL:CLEAR-INPUT (STREAM) APPLY* (U ARGLIST CNT FN) /CNDIR + (HOST/DIR) SEDIT::EXTRACT-CURRENT-SELECTION (SEDIT::CONTEXT SEDIT::SELECTION SEDIT::PROMPTWINDOW SEDIT::S +) INVERT.BITMAP.VERTICALLY (BITMAP HEIGHT WIDTH NEW.BITMAP X2) LINEBUFFER-SKIPSEPRS (STREAM RDTBL S +*READTABLE*) DINFO.SHOWSEL (SEL TEXTSTREAM) TTGIVEHELP1 (NO.INTRO) \CKAPPLYARGS (FRAME) +SPY.UPDATE.TITLE (W) CHAT.MENU (WINDOW) LINEBUFFER-EOFP (STREAM S) EQFMTSPEC (PARALOOK1 PARALOOK2) +CLISP4 (EXP SUBPARENT $TAIL) DEFEVAL (TYPE) RECORDTRAN (RECORDEXPRESSION WORDTYPE SETQPART SETQTAIL X) + \OUTTERMP (OFD) \PROMPTWINDOW.EXPAND (%#LINES PWINDOW HEIGHT) CL:CEILING (CL:NUMBER CL::DIVISOR) +CLISPIF2 (X) \INTERMP (OFD) EVALV (VAR) CL:CLOSE (STREAM) TRIM.BITMAP (BITMAP WIDTH HEIGHT) +\MEDW.CREATEW (SCREEN DSP REGION TITLE BORDERSIZE R TWICEBORDER) RELSTK (FX) +XCL::PROTOTYPE-DEFINERS-FOR-TYPE (TYPE) XCL::PROTOTYPE-DEFN-TYPES (XCL::X) CL:COMMONP (CL::OBJECT) +\FIXPASSWORD (CONNECTION ERRCODE DIRECTORY) \EVALV1 (VAR) CL:COSH (CL:NUMBER CL::Z) \WRITE1 (OBJECT +STREAM) FILES.WHENCHANGED (NAME REASON) FASL::DUMP-SIMPLE-VECTOR (CL:VECTOR) CL:COUNT (SEQUENCE LENGTH + ITEM START KEY TEST-NOT TEST) \LEAF.DIRECTORYNAMEONLY (FILENAME DIR) CLISPCOND (CLAUSE CPYFLG) +\SETVAR (VP) COMP.LABELS (DEF FUNCTIONS Z) \PRINTCCODE (FILE CHARCODE) CL:CIS (CL::RADIANS) +\DEFINEDISPLAYINFO (DISPLAYINFO) TTBEFOREPOS (X Y) PRINTCCODE (FILE CHARCODE) TWOD.TRACKCURSOR (WINDOW + VERTMARKS ROWPROPS HORZMARKS COLUMNPROPS NEW-ITEM-FN HIGHLIGHT-FN HEIGHT) \SETFVARSLOT (FX VAR ATOM# +NEWBINDING) SEDIT::EXPAND (SEDIT::CONTEXT SEDIT::SELECTION SEDIT::PROMPTWINDOW) \MOVETO.HCPYMODE ( +STREAM X Y) CL:DECODE-FLOAT (CL::SIGN CL:EXP CL::HI CL::LO) PROG (U VARLST) \TEST.PARAGRAPH.LOOKS ( +FILE) CL:DECODE-UNIVERSAL-TIME (UNIVERSAL-TIME TIME-ZONE) SEDIT::CREATE-COMMENT-WORD-NODE (SEDIT::CHARS + SEDIT::ENVIRONMENT) COMPILER::GENCODE-RETURN (COMPILER::NODE CL:BLOCK) \PROG0 (NNILS NVARS NTSIZE X) +CL:COUNT-IF (SEQUENCE LENGTH TEST START KEY) REATTACHPROMPTWINDOW (PWINDOW MAINWINDOW +OLDPASSTOMAINCOMS) FINDFILE-WITH-EXTENSIONS (FIELDS TAIL EXTENSIONS) MAINWINDOW (WINDOW) CLISPIF3 ( +ORIGWORDPAIR CLAUSE) CL:COUNT-IF-NOT (SEQUENCE LENGTH TEST START KEY) INVERT.BITMAP.HORIZONTALLY ( +BITMAP WIDTH HEIGHT NEW.BITMAP X2) TEDIT.SHOWSEL (STREAM TEXTOBJ ONFLG) PRINT-CIRCLE-LABEL-P (OBJECT +TABLEENTRY) \GR.METHODEXPANDER (X NAME METHOD) PFI.MAYBE.PP.DEFINITION (OUTSTREAM INSTREAM START END) +CL:DELETE-IF (SEQUENCE LENGTH TEST START FROM-END KEY) CL:DELETE-IF-NOT (SEQUENCE LENGTH TEST START +FROM-END KEY) CreateCursorBitMap (BM ARRAY) CL:ARRAY-RANK (ARRAY) \SMASHRETURN (MYCALLER FRAME) +COMPILER::ENSURE-EFFECT-CONTEXT (COMPILER::CTXT COMPILER::FORM COMPILER::SUBST-INDICES COMPILER::NAME) + CLISPIF1 (L0 L FORM) CL:DELETE-FILE (FILE) GO (U LABEL) TTGIVEHELP2 (HELPKEY) \SPP.SENDPKT (EPKT ACK# + ALLOC#) EVALA (A VAR X) CL:DELETE-DUPLICATES (SEQUENCE LENGTH START FROM-END KEY TEST-NOT TEST) +CL:ARRAY-TOTAL-SIZE (ARRAY) CLISP3C (L3) \EVALA (NNILS NVARS ALIST NTSIZE X FORM) CL:DEPOSIT-FIELD ( +CL::BYTESPEC CL::SIZE CL:POSITION CL::NEWBYTE CL::MASK INTEGER) COMPILER::IS-CALL-TO (COMPILER::NODE +COMPILER::FN COMPILER::VAR COMPILER::NAME) SET-DOCUMENTATION (NAME DOC-TYPE NEW-STRING) +INVERT.LONG.SEGMENT (MODE) SEDIT::COPY-HASH-TABLE (SEDIT::KEY SEDIT::NEW-TABLE SEDIT::VALUE +SEDIT::OLD-TABLE) \DSPYPOSITION.HCPYMODE (HARDCOPYSTREAM OLD-POS) DPB (CL::BYTESPEC CL::NEWBYTE CL::SIZE + CL:POSITION INTEGER) FASL::DUMP-SYMBOL (CL:SYMBOL) PUTTEXTPROP (PROP VALUE) DASSEM.CLEANFNTEST (TYPE) + CL:ENCODE-UNIVERSAL-TIME (MONTH DATE SECOND MINUTE) FTP.BREAKCONNECTION (HOST STREAM) +SMASHFILECOMSLST (COMS COM) CL:DISASSEMBLE (NAME-OR-COMPILED-FUNCTION LEVEL-P RADIX OUTPUT FIRST-BYTE +MARKED-PC) COMPILER::GENCODE-PROGN (COMPILER:CONTEXT COMPILER::NODE COMPILER::TAIL) +\TEST.CHARACTER.LOOKS (FILE) CL:GETHASH (CL::KEY CL::HASHTABLE CL::DEFAULT) ERRORSET (*PROCEED-CASES* +FORM) TITLEDICONW (TITLE TITLEWIDTH BORDER POSITION JUST NOOPENFLG) XCL::WHERE-IS-GET-WRITE-DATE ( +CL:NAMESTRING HASH-FILE:HASH-FILE) LOADUP (FILES X) CL::STRUCTURE-POINTER-SLOTS (CL::PS) +\PRINT-USING-DEFPRINT (X TYPE CPL STREAM) SI::NLSETQHANDLER (C) CL:DIRECTORY (PATHNAME) \PRINSTACKP ( +STREAM) MAKE-FILL-POINTER-OUTPUT-STREAM (STRING) FILE-STREAM-POSITION (STREAM) \PRINSTRING (X ESC +STREAM) \UPDATE-WHO-LINE-ACTIVE-FLAG (WINDOW) SI::ERRORSET-PRINT-FUNCTION (STREAM) COMP.TAGBODY (A) +\CKPOSBOUT (STREAM X) \SPP.OTHER.BOUT (STREAM BYTE) LET (U VARLST) %%BROADCAST-STREAM-DEVICE-BOUT ( +STREAM S BYTE) \CKPOSSOUT (X STREAM) CLISP3 (X) \LET0 (NNILS NVARS NTSIZE X) CL:FILE-AUTHOR (CL::FILE) + XCL::WHERE-IS-SET-WRITE-DATE (CL:NAMESTRING PATHNAME HASH-FILE:HASH-FILE) CL:FCEILING (CL:NUMBER +CL::DIVISOR) LET* (U VARLST) FASL::DUMP-CHARACTER (CL:CHAR FASL::HANDLE FASL::CODE STREAM) +CL:DOCUMENTATION (NAME DOC-TYPE) CL:FILE-LENGTH (FILE-STREAM) \LITPRIN (X RDTBL STREAM) \BSPEVENTFN ( +EVENT DEV) \LET* (NNILS NVARS NTSIZE X) SEDIT::PARSE-INDENT-GROUPS (SEDIT::INDENTS SEDIT::TAGBODY?) +CL:FILE-WRITE-DATE (FILE) %%BROADCAST-STREAM-DEVICE-OUTCHARFN (S CHARCODE) COND (U) TTRACKMOUSE (END) +CL:FILL (SEQUENCE LENGTH) \ADJUSTABLE-STRING-STREAM-OUTCHARFN (CHAR) %%CONCATENATED-STREAM-DEVICE-BIN +(STREAM) COMP.RETURN-FROM (A) CL:FILE-NAMESTRING (PATHNAME PATH RESULT) \DURATIONTRAN (FORM +EXPIREDFORM) PROG1 (U) CL:DESCRIBE (CL::OBJECT) CL:FFLOOR (CL:NUMBER CL::DIVISOR) CL:FILE-POSITION ( +CL::FILE-STREAM) ENDLOADUP (R FILE TYPE) %%BROADCAST-STREAM-DEVICE-FORCEOUTPUT (stream s +waitForFinish?) HASHBEFORECLOSE (FILE) SEDIT::DO-MUTATION (SEDIT::MUTATOR SEDIT::NODE) CL:FINISH-OUTPUT + (OUTPUT-STREAM) %%NEW-FILE (FILENAME) %%CONCATENATED-STREAM-DEVICE-PEEKBIN (stream) CLISPIF (FORM +FNSLST0 VARSLST0) CL:FLOAT-DIGITS (FLOAT) SEDIT::SET-SELECTION-COMMENT-WORD (SEDIT::NODE SEDIT::OFFSET + SEDIT::CONTEXT) \TEDIT.PUT.CHARLOOKS (LOOKS FILE CHLIM CH1 STREAM W LOOKSHARRAY) PUTDQ? (FN DEF) +PREDICT-NAME (PATHNAME) SEDIT::DELETE-WORD (SEDIT::CONTEXT SEDIT::POINT) +%%CONCATENATED-STREAM-DEVICE-CLOSEFILE (s) %%CONCATENATED-STREAM-DEVICE-BACKFILEPTR (stream) +CL:FIND-IF-NOT (SEQUENCE LENGTH TEST START FROM-END KEY) GETTEXTPROP (PROP TEXTOBJ) +%%CONCATENATED-STREAM-DEVICE-EOFP (stream) CL:ENOUGH-NAMESTRING (PATHNAME DEFAULTS PATH RESULT) +COMP.RETURN (A) PACKAGE-NAME-AS-SYMBOL (PACKAGE) \LEAF.ERROR (PUP DATA FILENAME CONNECTION) ENVEVAL ( +FORM) FASL::DUMP-VALUE-FETCH (FASL::HANDLE FASL::INDEX) SEDIT::SIMPLE-STRING-OFFSET (SEDIT::INDEX +SEDIT::STRINGITEM) PUTDQ (X Y) \LITPRIN.INTERNAL (SYMBOL RDTBL MULTESCAPE PNAMELENGTH A STREAM ESCAPE) + SEDIT::EVAL-SELECTION (SEDIT::CONTEXT SEDIT::PROMPTWINDOW SEDIT::PROCESS) DEFINEDP (A) +ROTATE.BITMAP.RIGHT (BITMAP HEIGHT WIDTH X1) BACKSPACEDEL (TTBL) SEDIT::SCALE-INDENT (SEDIT::INDENT +SEDIT::INDENT-BASE SEDIT::INDENT-STEP LEFT RIGHT) \DSPXPOSITION.HCPYMODE (HARDCOPYSTREAM) +CL:FLOAT-PRECISION (FLOAT CL::SIGN CL:EXP CL::HI CL::LO) DOFILESLOAD (FILES INPUTNAME) \SPPWATCHER ( +SOCEVENT ACKINTERVAL) ENVAPPLY (FN ARGS CNT) CL:EVERY (PREDICATE FIRST-SEQUENCE) DSPEOLFN ( +DISPLAYSTREAM) ENSURE.RGB (COLOR) TERM.RESET.DISPLAY.PARMS (DSP FONT FONTHEIGHT FONTWIDTH FONTDESCENT +WINDOW TTYHEIGHT) SEDIT::SIMPLE-STRING-SCAN (SEDIT::STRINGITEM STRING SEDIT::FONT) CLISP3B (CLTYP) +%%ECHO-STREAM-DEVICE-BIN (STREAM BYTE) CL:FIND-IF (SEQUENCE LENGTH TEST START FROM-END KEY) CL:FTRUNCATE + (CL:NUMBER CL::DIVISOR) \DSPCOLOR.IP (IPSTREAM RGB) RECORDPRIORITY (RECNAME PRIORITY) FUNCTION (FN) +%%SYNONYM-STREAM-DEVICE-GET-INDIRECT-STREAM (SYNONYM-STREAM) CL:GCD (CL::ARGS) \FTP.FILEINFOFN ( +GENSTATE ATTRIBUTE) CHAT.DID.RESHAPE (CHAT.STATE) \FUNCT1 (NNILS NVARS VARLST NTSIZE) +%%BROADCAST-STREAM-DEVICE-CHARSETFN (STREAM NEWVALUE) COMP.GO (A) CL:FORCE-OUTPUT (OUTPUT-STREAM) +\MAKESTACKP (FX OLDFX) %%SYNONYM-STREAM-DEVICE-EOFP (STRM STREAM) CL:FROUND (CL:NUMBER CL::DIVISOR) +FIX89A (N) TWODINSPECT.MAKEREGIONS (WINDOW ROWPROPS COLUMNPROPS WINDOWHEIGHT LF SPACE) +%%SYNONYM-STREAM-DEVICE-OUTCHARFN (OTHER-STREAM CHARCODE) SEDIT::DELETE-SELECTION (SEDIT::CONTEXT +SEDIT::SELECTION) \SYMBOL.ESCAPE.COUNT (SYMBOL RDTBL SA ESCAPE LEN) COMPILER::GENCODE-MV-CALL (COMPILER::NODE + COMPILER::FN) \MAKEFUNARGFRAME (VAR) \TEDIT.BRAVOFILE? (FILE ORIGINAL.FILE.POSITION) +%%SYNONYM-STREAM-DEVICE-BOUT (STREAM BYTE) CTEXTPROP (FORMTAIL PROP) INVERT.BITMAP.DIAGONALLY (BITMAP +HEIGHT WIDTH) STKEVAL (POS FORM) \CONVERTTOFRACTION (FLOAT) CL:FLOAT-SIGN (CL::FLOAT1 CL::NEW-SIGN-BIT +) XCL::WHERE-IS-NAMESTRING (PATHNAME) \NUMERIC.PNAMEP (RADIX EFFECTIVE-RADIX SYMBOL) STKAPPLY (POS FN +ARGS CNT) FASL::SAVE-VALUE (FASL::HANDLE) CGETTEXTPROP (PROP) CROPMARK.CREATE (CROPMARK WIDTH) +\SEND.ENDREPLY (SOCKET) \FTP.REOPENFILE (ACCESS STREAM) SI::UNWIND (TARGET) +%%SYNONYM-STREAM-DEVICE-BIN (STREAM) RETEVAL (POS FX FORM) TEDIT.COPY (CROSSCOPY) CL:FLOATP (CL::X) +%%SYNONYM-STREAM-DEVICE-PEEKBIN (STREAM NOERRORFLG?) CL:HASH-TABLE-COUNT (CL:HASH-TABLE) +BRACKET.CURRENT.WORD (LINE ENDLINE X CH COL) SEDIT::SET-SELECTION-COMMENT (SEDIT::ITEM SEDIT::SELECTION + SEDIT::CONTEXT SEDIT::NODE) INTERACT&SHIFT.BITMAP.LEFT (BITMAP) RETAPPLY (POS FX FN ARGS CNT) +%%SYNONYM-STREAM-DEVICE-CHARSETFN (STREAM NEWVALUE) \DSPSPACEFACTOR.HCPYMODE (DISPLAYSTREAM FACTOR) +PNAMESTREAMP (STRM) TTRUBOUT (PREVL) %%SYNONYM-STREAM-DEVICE-BACKFILEPTR (STREAM) +%%SYNONYM-STREAM-DEVICE-READP (STREAM FLG) CL:GET-SETF-METHOD-MULTIPLE-VALUE (CL::FORM CL::ENVIRONMENT +) %%CONCATENATED-STREAM-DEVICE-CHARSETFN (STREAM NEWVALUE) CLISPIFY2D (FORM) COPYVM (FILE) +%%TWO-WAY-STREAM-DEVICE-BIN (stream) BLIPVAL (BLIPTYP A) TEDIT.CHARWIDTH (FONT) CL:GET-SETF-METHOD ( +CL::FORM CL::ENVIRONMENT) CL:INPUT-STREAM-P (STREAM) \TEDIT.GET.PARALOOKS (N WIDTH LOOKS# PARAHASH) +ROTATE.BITMAP.LEFT (BITMAP HEIGHT WIDTH Y1) \VAROFFSET (FRAME NT ATN) \CHECKFLTFMT (FORMAT) +\SEND.ANSWERING.RFC (IPUP) SETBLIPVAL (BLIPTYP A VAL) %%SYNONYM-STREAM-DEVICE-GETFILEINFO (STREAM +ATTRIBUTE) \MAPCHARS (\MAPCHARFN CHAR X FLG RDTBL) BLIPSCAN (BLIPTYP) \DRAWPOINT.IP (IPSTREAM BRUSH X +WIDTH Y HEIGHT OPERATION) READIMAGEOBJ (OBJ STREAM) %%TWO-WAY-STREAM-DEVICE-READP (STREAM FLG) +FASL::LOOKUP-VALUE (FASL::HANDLE FASL::VALUE) %%TWO-WAY-STREAM-DEVICE-OUTPUTSTREAM (STREAM) FIX89 (N +FORM C) \RTP.ERROR (EVENT SOCKET) \FTP.CLOSEFILE (ACCESS FILENAME) %%TWO-WAY-STREAM-DEVICE-BACKFILEPTR + (STREAM) PFI.MAYBE.SEE.PRETTY (TOFILE FROMFILE) INSPECT (WHERE ITEMTYPE DTD) +%%SYNONYM-STREAM-DEVICE-SETFILEINFO (STREAM ATTRIBUTE VALUE) \REALFRAMEP (FRAME NAME INTERPFLG) +%%TWO-WAY-STREAM-DEVICE-OUTCHARFN (CHARCODE) PRINTNUM-TO-STRING (FORMAT FMT \NUMSTR \NUMSTR1) +%%SYNONYM-STREAM-DEVICE-FORCEOUTPUT (STREAM WAITFORFINISH) EXPRP (FN) \IPCURVE2 (SPLINE BRUSH DASHING +IPSTREAM %#KNOTS XPOLY X'POLY X''' X'' X' X YPOLY Y'POLY Y''' Y'' Y' Y) LISPERROR (X CONTINUEOKFLG) +WHO-LINE-TIME (NOW) \STRING-STREAM-OUTCHARFN (CHAR) \SETUP.TYPENUM.TABLE (SIZELST PREFIX GCTYPE TABLE) + CL:INTEGERP (X) CL:HASH-TABLE-P (CL::OBJECT) CL:LDB-TEST (CL::BYTESPEC INTEGER) \NET.SETTIME (RETFLG) + ALISTS.GETDEF (NAME) \DSPLINEFEED.HCPYMODE (DISPLAYSTREAM) CL:IDENTITY (CL::THING) POSTSCRIPT.INIT ( +FD) %%TWO-WAY-STREAM-DEVICE-FORCEOUTPUT (stream waitForFinish?) \TRANSMIT.STRATEGY (PUPALLOC) +%%TWO-WAY-STREAM-DEVICE-BOUT (STREAM BYTE) CL:LCM (CL::ARGS) SELECTQ (SELCQ) COMP.PROG (VARS VALS +PROGCONTEXT RETURNLABEL) \EVALFORM (ARGLIST CNT FN) COMPILER::GENCODE-LET (COMPILER::FN COMPILER::ARGS +) LDB (CL::BYTESPEC INTEGER CL:POSITION CL::SIZE) \GC.HANDLEOVERFLOW (X LX ARG) VRULE.PUTFN (HRULE +OUTPUT.STREAM) CL:LISTEN (STREAM) \DRAWLINE.IP (X1 Y1 X2 Y2 WIDTH OPERATION IPSTREAM COLOR IPDATA W) +\DTEST.UFN (TYPEN) %%TWO-WAY-STREAM-DEVICE-EOFP (STRM stream) %%FILL-POINTER-STREAM-DEVICE-GETFILEPTR +(STREAM) CL:INTEGER-DECODE-FLOAT (CL::SIGN CL:EXP CL::HI CL::LO) DUMMYDEF (LST) XCL::WHERE-IS-FILES ( +XCL::PATTERN XCL::FILES) %%TWO-WAY-STREAM-DEVICE-INPUTSTREAM (stream) \FTP.DIRECTORYNAMEP (HOST/DIR +DEV) \BACKTRACE (SI::$PROG1-FIRST-EXPRESSION$ .I7 PRINTFN EPOS) SETUPSTACK (INITFLG) SPY.START (FILE) +\FTP.ADD.QUOTES (NAME) CL:ISQRT (INTEGER CL::ILENGTH CL::LOW) LAPRD (FN) \STKARG (N FRAME NOSUCH +DEFAULT) CLISPIFY2C (FORM SUBPARENT) BACKTRACE (FILE IPOS EPOS PRINTFN) VRULE.COPYFN (IMAGEOBJ) +COMP.LAMBDA (FN X) \SETFVAR.UFN (V) \HUNKFIT? (N) %%TWO-WAY-STREAM-DEVICE-PEEKBIN (stream noErrorFlg?) + \GCMAPTABLE (ARG XA0287 LX XA0288) PRINTFN (FN FROMFILE LOC TOFILE) RADIX (R) +SEDIT::PARSE-INDENT-GROUP-BODY (SEDIT::GROUP) \DSPRIGHTMARGIN.HCPYMODE (DISPLAYSTREAM) \INTERPRETER (N + FN X NACTUAL CNT) FILEPATCHBLOCK (ARLEN) TTYINBUFFERPEEK (STREAM BUF CH) SMALLP (X) SAVEDEF (NAME I) +CL:LOGNOR (CL::INTEGER1 CL::INTEGER2) COLLECTDESCENDENTS (Node Graph) TWODINSPECT.PRINTELEMENT (RIGHT +ELT WINDOW BOTTOM FDESCENT) SEDIT::CONVERT-COMMENT-STRUCTURE (SEDIT::EXPR) \DSPFONT.HCPYMODE ( +HDCPYDSTREAM FONTDESC CHARCODE) FIXP (X) CL:LOGNAND (CL::INTEGER1 CL::INTEGER2) +\SPP.DEFAULT.ERRORHANDLER (CONDITION STREAM) DOAROUNDEXITFORMS (EVENT $$FORM) CL::%%ATAN-FLOAT (CL::Y +CL::FY) \BSP.SENDBUFFER (NBYTES SOCKET) FLOATP (X) \FTP.FROM.LISP.ATTRIBUTE (ATTR) SEDIT::PARSE-INDENT-NAME + (SEDIT::NAME SEDIT::INDENTS) \FTP.GENERATEFILES (PATTERN DESIREDPROPS PROP CODE OPTIONS) COMP.SETN (A +) CL:LOGORC2 (CL::INTEGER1 CL::INTEGER2) TEDIT.NEW.FONT (TEXTOBJ) \PRINTFRAME (FRAME USECNT ALINK +FNHEADER NEXTBLOCK NAMETABLE BLINK NMT PRINTFN) CL:LOGANDC1 (CL::INTEGER1 CL::INTEGER2) LISTP (X) +CGETD (X) SEDIT::SET-POINT-COMMENT (SEDIT::NODE) \FTP.GETFILENAME (RECOG NAME DEV) \PRINTBF (BL NMT +PRINTFN) \SPP.CREATE.STREAM (ACCESS) ARRAYP (X) INSPECTW.CREATE (PROFILE DATUM IWFONT FETCHFN WHERE +TITLE STOREFN PROPCOMMANDFN VALUECOMMANDFN TITLECOMMANDFN SELECTIONFN) SEDIT::PARSE-STRING-INTO-WORDS +(SEDIT::CHARS) PFI.CHOOSE.BEST (LST) \TEDIT.COMMAND.RESET.SETUP (TEXT&WIND WINDOW WW) CL:LOGANDC2 ( +CL::INTEGER1 CL::INTEGER2) STRINGP (OBJECT) CL:LOGIOR (CL::ARGS) VRULE.IMAGEBOXFN (IMAGE.STREAM) +\DRAWARC.IP (STREAM CENTERX CENTERY RADIUS STARTANGLE NDEGREES BRUSH DASHING) STACKP (X) CL:LOGEQV ( +CL::ARGS) \SCANFORNTENTRY (NMT NTENTRY) VARS (FN USEDATABASE) \RECLAIMSTACKP (PTR FX) NCONC (N) +MAKENEWCOM (FILE) DECODE/WINDOW/OR/DISPLAYSTREAM (WINDOWVAR WINDOW) \PRINTSTK (I) TTPRIN1 (STR) +CLISPIFY1 (CLTYP0) COMP.SETQ (A) CHARACTER (BASEA0354 \PNAMESTRING) INVERT.BITMAP.B/W (BITMAP +NEW.BITMAP WIDTH HEIGHT) MERGE (COMPAREFN) %%TWO-WAY-STREAM-DEVICE-CHARSETFN (STREAM NEWVALUE) +\COMPUTE.HUNK.TYPEDECLS (SIZELST GCTYPE PREFIX FINAL) PRINTTIMER (LABEL TIMER DIF) TTYINBUFFERBIN (BUF + CH) CL:MACHINE-INSTANCE (CL::HOST) \SETXFORM.PSC (STREAM CLIP) %%SYNONYM-STREAM-DEVICE-GET-STREAM ( +stream) \LEAF.RECONNECT (DEVICE) PRIN2 (FILE STRM L X) DF (FN ARGS) \DSPLEFTMARGIN.HCPYMODE ( +DISPLAYSTREAM) CL:MAKE-PATHNAME (HOST DEVICE NAME TYPE VERSION) COMPILER::GENCODE-LABELS (COMPILER::INNER-CODE +) LIST* (NARGS) SORT1 (DATA END COMPAREFN) CL:LOGTEST (CL::INTEGER1 CL::INTEGER2) \SEND.ABORT (SOCKET +PUP) \GETINTEGERPART (FRACT ROUNDER) VIRGINFN (FN) \TEDIT.RESTARTFN (WINDOW PROPS ODIRTY) +\DRAWCURVE.IP (IPSTREAM BRUSH CLOSED) CL:MAKE-BROADCAST-STREAM (STREAMS STREAM) CL:COMPILED-FUNCTION-P + (CL::FN) SEDIT::SELECT-SEGMENT-COMMENT (SEDIT::SELECTION) COLLECT.CHILD.NODES (Node Graph GraphNodes) + CLISPATOM (CLST PARENT) CL:MAKE-ECHO-STREAM (CL::INPUT-STREAM CL::OUTPUT-STREAM STREAM) \SEND.END ( +SOCKET) SEDIT::DEFAULT-EDIT-FN (SEDIT::OBJ SEDIT::OPTIONS) CHANGENAME1A (NEW DEF OLD) FASSOC (KEY) +CHANGENAME1 (Y X) CL:MAKE-SYNONYM-STREAM (CL:SYMBOL STREAM) CL:MAKE-TWO-WAY-STREAM (CL::INPUT-STREAM +CL::OUTPUT-STREAM STREAM) SAVEONSYSRECLST (NAMES) SEDIT::CONVERT-COMMENT (SEDIT::CONTEXT SEDIT::SELECTION + SEDIT::DEPTH SEDIT::PROMPTWINDOW SEDIT::NUMBER-OF-COMMENTS) INTERACT&SHIFT.BITMAP.DOWN (BITMAP) +\CHANGE.ETHER.TRACING (WINDOW FLGNAME) \CLOSEIPSTREAM (IPSTREAM) CDDR (X) VRULE.GETFN (INPUT.STREAM) +INTERACT&SHIFT.BITMAP.UP (BITMAP) XCL::WHERE-IS-NOTICE (XCL::DATABASE-FILE XCL::FILE XCL::HASH-FILE-SIZE + HASH-FILE:HASH-FILE PATHNAME) FIXCONTINUE (FN) MAP (MAPFN1) CL:LOGORC1 (CL::INTEGER1 CL::INTEGER2) +APROPOS (STRING ATOM CASEARRAY) CADR (X) LOGNOT (INTEGER) SEDIT::PARSE-INDENT-BODY (SEDIT::OFFSET +CL:FIRST SEDIT::INDENTS SEDIT::REPEAT) CDAR (X) CL:MAKE-STRING (SIZE FATP STRING INITIAL-ELEMENT) +CL:MAKE-RANDOM-STATE (CL::STATE) CLDISABLE (OP X) TEXTSTREAM (STREAM) CHAT.TYPEOUT.CLOSE (WINDOW +OUTSTREAM MSG NEWSTATE) \FTP.GETFILEINFO (STREAM DEV ATTRIBUTE) CDDDR (X) APROPRINT (FILE STRING VALUE +) TTYINBUFFERREADP (STRM) CAAR (X) DO.SHIFTED.SELECTION (STARTBUF ENDBUF) \GET-NEXT-RUN (MAX OFFSET +RUN-LENGTH) SEDIT::PARSE-INDENT (SEDIT::ISPEC) \DRAWELLIPSE.HCPYMODE (STREAM ORIENTATION BRUSH DASHING +) CDADR (X) \FLOATTOBYTE.UFN (CNT DBASE SBASE) FASL::ELEMENTS-IDENTICAL-P (CL:ARRAY FASL::SEQ FASL::X +FASL::TESTELT) EQCLOOKS (CLOOK1 CLOOK2) CDDAR (X) CL:NSTRING-DOWNCASE (STRING START END) +\FTP.DELETEFILE (FILENAME NAME DEVICE PROP) ARGTYPE (FN) INITDATATYPENAMES (X) +RECURSIVE.COLLECTDESCENDENTS (Node Graph) CADDR (X) CL:NSTRING-CAPITALIZE (STRING START END) +COMPILER::GENCODE-IF (COMPILER::NODE COMPILER:CONTEXT) \BLKFABSMAX.UFN (BASE CNT) \SHIFT.DOCUMENT ( +BASEA0775 NO ARR PCTB DELTAX ELEMENT) \BSP.FLUSH.SOCKET.QUEUES (SOCKET) CDAAR (X) \LINEBLT (LEFT RIGHT + Y TOP BOTTOM DESTINATIONBASE RASTERWIDTH GRAYBASE GRAYHEIGHT NBITS GRAYWIDTH) \BLKFABSMIN.UFN (BASE +CNT) CAADR (X) ESUBST (OLD NEW CHARFLG UNDOLST1) \CCODEARGLIST (FNHD N) TWODINSPECT.ADJUSTSELECTION ( +WINDOW ROWPROPS VERTMARKS SELROWPROP FETCHFN DATUM SELCOLPROP COLUMNPROPS HORZMARKS) CADAR (X) +CL:MASK-FIELD (CL::BYTESPEC INTEGER CL::SIZE CL:POSITION) CL:MERGE-PATHNAMES (PATHNAME DEFAULTS PATH +DEFAULT-PATH HOST DEVICE DEFAULT-VERSION) SEDIT::SET-POINT-COMMENT-WORD (SEDIT::NODE SEDIT::OFFSET) +GETPROP (ATM PROP) DEFAULT.INSPECTW.PROPCOMMANDFN (PROPERTY INSPECTW OLDVALUEITEM PWINDOW) CDDDDR (X) +FNCHECK (SPELLFLG TAIL) CL:MERGE (RESULT-TYPE SEQUENCE1 SEQUENCE2 PREDICATE KEY RESULT) \FTP.MAKEPLIST + (HOST INFO FILENAME DESIREDPROPS) \BLKSMALLP2FLOAT.UFN (CNT DEST SOURCE) SEDIT::PARSE--COMMENT-WORD ( +CL:STRUCTURE SEDIT::CONTEXT) CAAAR (X) CL:NOTANY (PREDICATE FIRST-SEQUENCE) PACK* (U \PNAMESTRING BASE + LEN FATP PREFIX-LENGTH) BSPPRINTPUP (PUP) COMP.NOT (A) CDDDAR (X) CL:MISMATCH (SEQUENCE1 SEQUENCE2 +LENGTH1 LENGTH2 START1 START2 KEY TEST-NOT TEST INDEX SUBLEN1 SUBLEN2) \WWCHANGESCREENSIZE (W) +\CCODEIVARSCAN (START X CODEBASE OFFSET FNHD DEF LC SIZE) \TFBRAVO.ADD.NAMEDTAB (TABNO PARALOOKS +TEXTOBJ) CAAAAR (X) CL:PATHNAME-NAME (PATHNAME) \BLKMAG.UFN (CNT COMPLEX-ARRAY MAGNITUDE-ARRAY) +COMPILER::GENCODE-GO (COMPILER::NODE CL:TAGBODY) CDDAAR (X) \BLKEXPONENT.UFN (CNT DEST SOURCE) +CL:PARSE-NAMESTRING (THING START END PATH-LIST VERSION) ICONW.SHADE (WINDOW) TTYINBUFFEREOFP (STRM) +CDDADR (X) TIME.SINCE.PACKET (CLK0 PACKET CLK1) \RTP.HANDLE.RFC (BSPSOCKET) \FTPEVENTFN (EVENT DEV) +INTERACT&SHIFT.BITMAP.RIGHT (BITMAP) SEDIT::SETF-OF-GET-FORMAT (SEDIT::NAME) \DRAWCURVE.HCPYMODE ( +STREAM KNOTS CLOSED BRUSH DASHING) CADADR (X) CL:MAP (FUNCTION SEQUENCE) SCANFORWARD (CH CHAR) +\BLKFDIFF.UFN (COUNT DEST SOURCE1 SOURCE2) BSPBOUT (STREAM BYTE) CDAAAR (X) CL:OUTPUT-STREAM-P (STREAM +) CL:NSUBSTITUTE-IF-NOT (SEQUENCE LENGTH NEWITEM TEST START FROM-END KEY) \TEDIT.MAKEFILENAME (STRING) + CONSTANTS (VARS X) \LEAF.GETFILEINFO (ATTRIBUTE DEV) PPSOC.CURRENT (PUP STREAM) COMP.STCROP (X) +CDADAR (X) \BLKFLOATP2COMP.UFN (CNT DEST $$BASE SOURCE) CL:NSUBSTITUTE-IF (SEQUENCE LENGTH NEWITEM +TEST START FROM-END KEY) MENUWMINSIZEFN (MENUW MENU TITLE?) \BLKPERM.UFN (CNT DEST ORIG PERMUTATIONS) +SEDIT::LINEARIZE-COMMENT (SEDIT::NODE SEDIT::CONTEXT SEDIT::ENVIRONMENT SEDIT::LEVEL SEDIT::PREFIX) +\BLKFMIN.UFN (BASE CNT) FIXATOM (DWIMUSERFORM) CDADDR (X) \SPP.CREATE.WATCHER (NAME) \BLKFPLUS.UFN ( +COUNT DEST SOURCE1 SOURCE2) \BLKFMAX.UFN (BASE CNT) SPY.FIND.TREE (FN) CDAADR (X) CL:NUMBERP (CL::X) +SPY.TREE (THRESHOLD MERGETYPE DEPTHLIMIT SPYDATA) FIXATOM1 (POS) CAADDR (X) CL:PHASE (CL:NUMBER) +CL:PPRINT (OUTPUT-STREAM OBJECT) RECORDECLARATIONS (DECS) \BLKFTIMES.UFN (COUNT DEST SOURCE1 SOURCE2) +SEDIT::CHANGE-PACKAGE (SEDIT::CONTEXT SEDIT::PROMPTWINDOW) CADDDR (X) \BLKSEP.UFN (CNT DEST SOURCE1 +SOURCE2) CL:POSITION-IF-NOT (SEQUENCE LENGTH TEST START FROM-END KEY) GETMACROPROP (PROPS FN) +CL::%%ASIN-FLOAT (CL::X CL::R2) MACROEXPANSION (EXPR COMPILE.CONTEXT) CHAT.OPTIONMENU (INSTREAM FN) +CAADAR (X) INFILECOMS? (ONFILETYPE LITERALS) PATHNAME (THING) \MISC5.UFN (ALPHA) CL::%%PRINT-TIMING-ITEM + (CL::NUM STREAM STRING) PRINTPUPQUEUE (QUEUE HEADER) COMP.CARCDR (A X) CADDAR (X) CL:NSTRING-UPCASE ( +STRING START END) SEDIT::CHANGE-QUOTE (SEDIT::QUOTE-TYPE SEDIT::CONTEXT) FASL::FAT-STRING-P (STRING) +SEDIT::PARSE--COMMENT (CL:STRUCTURE) CADAAR (X) CL:PLUSP (CL:NUMBER) ADDTOCOM1 (NAME) \FTP.REGISTER ( +STREAM) \MISC6.UFN (ALPHA ARG1 ARG2 ARG3 ARG4 ARG5 ARG6) SEDIT::FORMAT-FROM-INDENT (SEDIT::ARGS +SEDIT::SUBLISTS SEDIT::INLINE? SEDIT::INDENTS) \DRAWCIRCLE.HCPYMODE (STREAM BRUSH DASHING) CL:PROBE-FILE + (FILE) PRINTCURSOR (VAR) CL:PEEK-CHAR (STREAM PEEK-TYPE EOF-VALUE NOERROR DESIREDCHAR) +\UPDATECACHEDFIELDS (DS) SEDIT::CHANGE-PRINTBASE (SEDIT::CONTEXT SEDIT::PROMPTWINDOW +SEDIT::NEW-PRINTBASE-STRING) \CHARWIDTH.IP (CHARCODE STREAM FONTDESCA0733) BLOCKRECORD (NAME&FIELDS) +CAAADR (X) CL:POSITION-IF (SEQUENCE LENGTH TEST START FROM-END KEY) VRULE.DISPLAYFN (HRULE +IMAGE.STREAM SCALE RULEHEIGHT WIDTHS Y REALHEIGHT) \BLTSHADE.IP (STREAM DESTINATIONLEFT +DESTINATIONBOTTOM WIDTH HEIGHT TEXTURE) XCL::SAME-WHERE-IS-DATABASE (XCL::X XCL::Y XCL::PATHNAME-X +XCL::PATHNAME-Y) DINFO.CREATE.GRAPH.WINDOW (GRAPH DINFOW DINFOREGION REGION LEFT BOTTOM) +\FTP.DIRECTORYNAMEONLY (DIRNAME) IBLT1 (BitmapAddr Kount TextureArray ValueArray ValHeight XCoord +ValWidth BitmapWidth) COMPILER:OPTIMIZE-AND-MACROEXPAND (COMPILER::FORM COMPILER::ENVIRONMENT COMPILER:CONTEXT +) ERRORSTRING (X) CL:READ-BYTE (BINARY-INPUT-STREAM STREAM EOF-VALUE) \TAN.OLD (X) CL:VALUES ( +IMMEDIATE-CALLER CODE X ARGS N WIDTH JUMPBASE) CL::TIME-FORMAT (STREAM) TEDIT.FLASHCARET (CARETS) +IBLT2 (BitmapAddr Kount TextureArray ValueArray ValHeight XCoord ValWidth BitmapWidth) +\SIMULATE.UNBIND (NEXT N PVAR0BASE RETURNER) %%STRING-BASE-COMPARE (START1 START2) CL:PATHNAME-VERSION + (PATHNAME) CL:VALUES-LIST (IMMEDIATE-CALLER CODE X CL:VALUES N WIDTH JUMPBASE) SEDIT::BACKSPACE ( +SEDIT::CONTEXT SEDIT::POINT) ERRM-TO-CONDITION (NUM) CL:PATHNAME-TYPE (PATHNAME) \PUTONSCREENW (W) +%%STRING-DOWNCASE (STRING START END OFFSET) SETERRORN (NUM MESS) \TEDIT.LOOKS (TEXTOBJ REGION SEL POS) + SCANBACK (BUF CH CHAR) COMPILER::GENCODE-CATCH (COMPILER::NODE COMPILER:CONTEXT) +XCL::DEL-WHERE-IS-DATABASE (XCL::DATABASE XCL::ELEMENT) \ARG.NOT.LITATOM (X) CL:RANDOM (CL:NUMBER +CL::STATE) \SEND.ACK (PUP %#PUPS) %%STRING-BASE-COMPARE-EQUAL (START1 START2) STRICTLY/BETWEEN (VAL +LOWER HIGHER) CL:READ-FROM-STRING (STRING STREAM EOF-ERROR-P EOF-VALUE) \RTP.HANDLE.PUP (BSPSOCKET +#:G116) \FTP.UNREGISTER (STREAM DEVICE) %%STRING-UPCASE (STRING START END OFFSET) CL::VALUES-UFN (CODE + X CL::ARGCOUNT CL::ARG-PTR N WIDTH JUMPBASE) XCL::SETF-PACKAGE-PREFIX (XCL::PREFIX) +SEDIT::INSERT-COMMENT-CHARS (SEDIT::CONTEXT CL:LENGTH SEDIT::STRING-LENGTH SEDIT::FONT SEDIT::NODE +SEDIT::NEW-SUBNODE SEDIT::WORDS SEDIT::DEPTH) CL:REMOVE-IF (SEQUENCE LENGTH TEST START FROM-END KEY) +CL::VALUES-LIST-UFN (CL::ARG-PTR CODE X CL:VALUES N WIDTH JUMPBASE) COMPILER::GENCODE-BLOCK (COMPILER::NODE + COMPILER::END-TAG COMPILER::STK-NUM COMPILER:CONTEXT) \DRAWLINE.HCPYMODE (STREAM OPERATION COLOR) +CL:REDUCE (SEQUENCE LENGTH FUNCTION START INITIAL-VALUE) MULTIFILEINDEX1 (FILES *STANDARD-OUTPUT*) +CL:REMOVE-DUPLICATES (SEQUENCE LENGTH START FROM-END KEY TEST-NOT TEST) \SPPCONNECTION (SKT# NAME) +RECORD.REMOVE.COMMENTS (X A D) CL:REM (CL:NUMBER CL::DIVISOR CL::FY) MERGEINSERT1 (X Y) +MOVEDESCENDENTS (Node Graph deltaX deltaY DisplayStream) ACCESSFNS (NAME&FIELDS) MENUWRESHAPEFN ( +WINDOW) CL::SET-PARSED-STRUCTURE (CL::NAME CL::PS) \TEDIT.UNPARSE.CHARLOOKS.LIST (LOOKS A) FIXAPPLY ( +DWIMUSERFORM) CL:ROOM (CL::STORAGE-LEFT CL::ONE-PERCENT-VMEM CL::DATA-REMAINING CL::SYMBOLS-REMAINING +CL::VMEM-PERCENT) CL:READ-CHAR-NO-HANG (STREAM EOF-VALUE RECURSIVE-P) CL:NSUBSTITUTE (SEQUENCE LENGTH +NEWITEM OLDITEM START FROM-END KEY TEST-NOT TEST) CL:REMOVE-IF-NOT (SEQUENCE LENGTH TEST START +FROM-END KEY) INTERACT&ADD.BORDER.TO.BITMAP (BITMAP) CL:READ-LINE (EOF-VALUE RESULT) \TEXTSETEOF ( +EOFPTR) \RTP.FILTER (PUP) XCL::WHERE-IS-NOTICE-INTERNAL (XCL::NAME HASH-FILE:HASH-FILE TYPE XCL::ALIST + XCL::OLD-ENTRY) CL:RENAME-FILE (NEW-NAME OLD-PATHNAME) PRINTPACKET (PACKET TYPE DOFILTER) +FW-INIT-PROPS (XMAX YMIN XMIN YMAX FN) \LEAF.OPENFILE (DEV OTHERINFO ACCESS DEVINFO RECOG) +\TEXTOUTCHARFN (CH STREAM) FIX89TYPEIN (X CLST) CL:SIGNUM (CL:NUMBER) WHO-LINE-VMEM (ONE-PERCENT-VMEM +VMEM-PERCENT) INITDATATYPES (NSYSTYPES) CL:SCALE-FLOAT (CL::SIGN CL:EXP CL::HI CL::LO INTEGER +CL::OLD-BOX) \ONSCREENW (W) SI::%%STRUCTURE-DECLARE-DATATYPE (CL::NAME CL::WORD-LENGTH +CL::FIELD-DESCRIPTORS) \RECLAIMCODEBLOCK (CODEBASE PTR) \TYPEGLOBALVARIABLE (TYPENAME VAR) +\ICONW.REPAINTFN (WINDOW IMAGEBM) XCL::ADD-WHERE-IS-DATABASES (XCL::PATHNAMES) CL:SLEEP (CL::SECONDS) +\ASSIGNDATATYPE1 (NAME PTRFIELDS DESCRIPTORS SUPERTYPENUMBER PAGE NEWTYPEENTRY SPECS) BITBLT.INSERT (X + Y WIDTH) EDITMOVESUBTREE (WINDOW DS) \COS.OLD (X) CL:SEARCH (SEQUENCE1 SEQUENCE2 LENGTH1 LENGTH2 +START1 START2) PRINT10TO3 (EPKT CALLER) CREATEHASHFILE (SMASH COPYFN) SEDIT::ADD-MENU (SEDIT::CONTEXT +SEDIT::WINDOW SEDIT::PROMPTWINDOW) \SFFixY.HCPYMODE (Y FONT CSINFO) \LEAF.WRITEPAGES (BUFFERLIST +FIRSTPAGE OPUP) DINFO.GET.GRAPH.WINDOW (REGION) PROPERTAILP (Y) PFI.CONSTANTNAMES (EXPR X) ADDTOFILES? + (VARSCHANGES F FL X I) CL::%%SIMPLE-TREE-EQUAL (CL::X CL::Y) PPSOC (FILE SOC STATE LOCALPORT) +COMP.DECLARE1 (VAL OTHERVAR SYSOTHERVAR) COMPILER::STOP-UNBINDS-AT-FRAME-BOUNDARY (CONDITIONS:RESTART) + CL::ESTABLISH-SETFS-AND-OPTIMIZERS (CL::PS CL::SLOT CL:INLINE) CL:SQRT (CL:NUMBER) REMPROP (ATM PROP) + CL::%%COMPLEX-TREE-EQUAL (CL::X CL::Y CL::TEST) PUTPROP (ATM PROP VAL) \HANDLE.RAW.10TO3 (TYPE XA0719 + NDB) FIXLAMBDA (DEF) CL:SOME (PREDICATE FIRST-SEQUENCE) \RTP.INFO.HOOK (PROC BUTTON) +SETF-MACRO-FUNCTION (X BODY) PRINTPACKETQUEUE (QUEUE CALLER FILE) CL:STREAM-EXTERNAL-FORMAT (STREAM) +CL:TREE-EQUAL (CL::X CL::Y) CL::SET-SHARED-SETF-INVERSE (CL::NAME CL::SHARED-UPDATE-FN) +\RECLAIMARRAYBLOCK (B TRAILER) CL:SINH (CL:NUMBER CL::Z) CL:LIST-LENGTH (LIST) \TEDIT.ACTIVE.WINDOWP ( +W) COMP.DECLARE (A B) PFI.VARNAME (EXPR NAME) TEDIT.UNDO (TEXTOBJ SEL) SEDIT::SPLIT-COMMENT (SEDIT::CONTEXT + SEDIT::NODE SEDIT::COMMENT SEDIT::START CL:LENGTH SEDIT::POINT) SEDIT::GET-INDENT (SEDIT::NAME) +TWODINSPECT.TOTALWIDTH (COLUMNWIDTHS SPACE FONT) SEDIT::COMMENT-OUT-SELECTION (SEDIT::CONTEXT +SEDIT::SELECTION) \CHARWIDTH.HCPYMODE (STREAM CHARCODE) \CDR.UFN (Q) \PUTBASEBITS (POSITION ADDR VAL +NA0617 POSA0616) SEDIT::DEGRADE-COMMENT (SEDIT::NODE SEDIT::CONTEXT) NTYPX (X) TWODINSPECT.REPAINTFN ( +WINDOW VERTMARKS ROWPROPS TOP BOTTOM HORZMARKS COLUMNPROPS LEFT RIGHT FETCHFN DATUM FDESCENT) +CL:STRING-NOT-EQUAL (STRING1 STRING2 START1 END1 START2 END2 INDEX) \TEDIT.CREATEW.FROM.REGION (PROPS +PROMPT REGION FILE) GETBOXPOSITION.FROMINITIALREGION (Region Window DisplayStream) +\CHANGECHARSET.HCPYMODE (CHARSET CSINFO CSDINFO) \TYPEP.UFN (X N) L-CASECODE (CHAR) CL:NTH (CL::N LIST +) CL::%%TAN-FLOAT (CL::X CL::SIGN CL::R2) CL:STRING-LESSP (STRING1 STRING2 START1 END1 START2 END2 +INDEX REL-INDEX) \UNWIND.UFN (NEXT N.KEEP PVAR0BASE) \SPP.CREATE.CON (SKT# NSOC CON) +CL::ESTABLISH-PREDICATE (CL::PS CL::PREDICATE) COMPILER::FIND-COPIED-VARIABLE (COMPILER::VAR) +TEDIT.NEXT (STREAM) COMP.COMMENT (A) \CHECKAPPLY* (FN) RETDWIM (ARGS) \HARDRETURN (VAL) +CL:STRING-LEFT-TRIM (STRING LEFT-END) *WHO-LINE-LAST-DIRECTORY* (NAMESTRING) CREATEMDSTYPETABLE ( +SEGMENT) CL:STRING-DOWNCASE (STRING START END) \RPLPTR.UFN (OBJ OFFSET SLOT VAL) OVERLAPPINGWINDOWS ( +WINDOW X) DELETE.LONG.SEGMENT1 (STARTCOL ENDCOL) \LEAF.READPAGES (BUFFERLIST FIRSTPAGE STREAM) \HTFIND + (PTR PROBE CASE GCCNT) PRINTBITMAP (BITMAP FILE) \SCALEDBITBLT.IP (DESTINATION DESTINATION-LEFT OLDX +DESTINATION-BOTTOM OLDY SCALE STREAM-SCALE WIDTH HEIGHT CLIPPEDSOURCELEFT CLIPPEDSOURCEBOTTOM +SOURCEBITMAP) ASSOC (KEY) CL:STRING-GREATERP (STRING1 STRING2 START1 END1 START2 END2 INDEX REL-INDEX) + \BSP.FLUSHINPUT (STREAM) \SETGLOBALVAL.UFN (V) CL:STRING<= (STRING1 STRING2 START1 END1 START2 END2 +INDEX REL-INDEX) SI::INTERNAL-THROW (TAG&VALUES) COMPILER::COPY-VARIABLE (COMPILER::BINDER) ADDTOFILE +(NAME NEAR LISTNAME F) COMP.QUOTE (A) CL:STRING-UPCASE (STRING START END) GETDEFN (A) +\BSP.PREPARE.OUTPUT (TIMER) CL::%%GET-TIMING-INFO (CL::TIME-BEFORE CL::TIME-AFTER) CL:STRING< (STRING1 + STRING2 START1 END1 START2 END2 INDEX REL-INDEX) \RPLACD.UFN (RP.Q A D) TWODINSPECT.BUTTONEVENTFN ( +WINDOW W RP CP DATUM SELECTEDROWPROP SELECTEDCOLUMNPROP) TEDIT.CREATEW (PROMPT PROPS FILE) SHOWREGION +(REGION STREAM) \TEDIT.ABBREV.EXPAND (STREAM) SEDIT::STRUCTURE-FROM-SELECTION (SEDIT::SELECTION SEDIT::NODE +) \CONS.UFN (X A LO CDROFFSET) \LEAF.TRUNCATEFILE (OPUP STREAM LASTOFF) CL::TIME-CALL (CL::TIME-BEFORE + CL::TIME-DO-NOTHING CL::TIME-AFTER CL::OUTPUT CL::REPEAT CL::TIMED-FORM CL::DATA-TYPES) GROW/REGION ( +REGION) CL:MAPHASH (CL:HASH-TABLE CL::FN CL::KEY CL::VALUE) CL::%%SIMPLE-ASSOC (CL::ITEM CL::A-LIST) +NEWDEFC (NM DF) CL:STRING/= (STRING1 STRING2 START1 END1 START2 END2 INDEX) CL::SYMBOL-TYPE (CL:SYMBOL +) BSPPEEKBIN (STREAM NOERRORFLG) CL:STRING-TRIM (STRING LEFT-END RIGHT-END) FMEMB (X) BITBLT.DELETE (X + WIDTH Y MOVEDWIDTH) CL::GET-PS-FROM-ACCESSOR (CL::VALUE CL::ACCESSOR) CL:STRING-RIGHT-TRIM (STRING +RIGHT-END) RETDWIM1 (L $TAIL $CURRTAIL X) CL::%%SIMPLE-MEMBER (CL::ITEM LIST) CHAT.SENDSCREENPARAMS ( +INSTREAM HEIGHT WIDTH) SPY.COPYBUTTON (WINDOW) TEDIT.SUBSTITUTE (TEXTSTREAM REPLACEMENT CONFIRM? +YESLIST) \FINDKEY.UFN (CALLER BLINK IVAR NARGS ARGN KEY) \LEAF.SETFILEINFO (ATTRIBUTE DEV) CL::BIGNUMP + (CL::X) SEDIT::INSERT-COMMENT (SEDIT::WHERE SEDIT::NODE SEDIT::POINT) \CREATECELL (TYP) INTCHAR ( +TABLE LST) \TRANSLATE.10TO3 (NDB X Y NSADDR) \TEDIT.GET.CHARLOOKS (FILE FLAGS LOOKSARRAY N WIDTH) +CL:TANH (CL:NUMBER CL::FY) \DSPYPOSITION.IP (IPSTREAM) CL:SUBSTITUTE-IF-NOT (SEQUENCE LENGTH NEWITEM +TEST START FROM-END KEY) CL::ARRAY-TYPE (CL:ARRAY CL::RANK CL::SIZE CL::ELT-TYPE) +CL::GET-PS-FROM-PREDICATE (CL::PREDICATE CL::VALUE) SETINTERRUPT (HARDFLG) \BOUT (BYTE) CL::%%TYPEP-PRED + (TYPE) CL:STRING-NOT-LESSP (STRING1 STRING2 START1 END1 START2 END2 INDEX REL-INDEX) INTERRUPTCHAR ( +CHAR TYP/FORM HARDFLG TABLE VAL) REHASHFILE (NEWNAME VALUETYPE ACCESS) CL::GET-SLOT-DESCRIPTOR-FROM-PS + (CL::ACCESSOR) \NOTE.10TO3 (NDB PUPADDRESS X Y NSADDR HOST BOX) CL:STRING-NOT-GREATERP (STRING1 +STRING2 START1 END1 START2 END2 INDEX REL-INDEX) \RESTLIST.UFN (CALLER BLINK IVAR FIRSTN LASTN BASE) +XCL::GET-WHERE-IS-ENTRIES (XCL::TAIL) GETINTERRUPT (CHAR) CL::CACHE-SETF-INFO (CL::SLOT CL::PS) +SEDIT::DELETE-COMMENT (SEDIT::NODE SEDIT::START SEDIT::END) CL:SUBSTITUTE-IF (SEQUENCE LENGTH NEWITEM +TEST START FROM-END KEY) \MISCN.UFN (ALPHA-BETA MY-IVAR ARG-COUNT RESULT-IVAR INDEX UFN-ENTRY +MY-PARMS-PTR) CL::%%RANGE-TYPE (CL::LOW CL::HIGH CL::BASE-TYPE) CL::%%APPEND (CL::LIST1 CL::LIST2) +CL:SUBSTITUTE (SEQUENCE LENGTH NEWITEM OLDITEM START FROM-END KEY TEST-NOT TEST) \RPLCONS (A LO) +CL:SUBTYPEP (CL::TYPE1 CL::TYPE2) \BRUSHCONVERT.HCPYMODE (BRUSH BB) LISTGET (PROP) CL:COPY-TREE ( +CL::OBJECT) \EVAL (FORM) \RTP.SOCKET.PROCESS (BSPSOCKET) CL:ZEROP (CL:NUMBER) +CL::PRINT-STRUCTURE-INSTANCE (CL::OBJECT STREAM CL::DEPTH) \FTP.FLUSH.TO.MARK (INSTREAM) \INSUREWINDOW + (WINDOW) FIND.PROCESS (PROC) \SIN.OLD (X) CL:COPY-ALIST (LIST) CL:NRECONC (CL::X CL::Y) +CL:WRITE-TO-STRING (OBJECT) \TYPECHECK.UFN (OBJ TYPEN) CL::COMPLETE-META-EXPRESSION-DEFAULTS (TYPE) +CL:REVAPPEND (CL::X CL::Y) CL:STRING>= (STRING1 STRING2 START1 END1 START2 END2 INDEX REL-INDEX) +\STKSCAN (VAR ATOM# CODEBASE OFFSET) PUTDEFN (FN SIZE CA BASE BLOCKINFO) CL:NBUTLAST (CL::N LIST +CL:LENGTH CL::INDEX) CL:STRING> (STRING1 STRING2 START1 END1 START2 END2 INDEX REL-INDEX) +TWODINSPECT.COPYBUTTONFN (WINDOW W RP CP) \DOINTERRUPTHERE (CLASS) CL:BUTLAST (CL::N LIST CL:LENGTH) +\MISC8.UFN (ALPHA ARG1 ARG2 ARG3 ARG4 ARG5 ARG6 ARG7 ARG8) CL::EQUAL-DIMENSIONS (CL::DIMS1 CL::DIMS2) +CL:LDIFF (LIST CL::SUBLIST) CL:UNREAD-CHAR (INPUT-STREAM) WHICHW (X Y) \UNBOXFLOAT3 (OP) SI::DATATYPE-P + (SI::NAME) CL::BASE-SUBTYPEP (CL::TYPE1 CL::TYPE2 CL::SYMBOL-TYPE1 CL::SYMBOL-TYPE2) COMPILER::COPY-NODE-LIST + (COMPILER::NODES COMPILER::NODE) CL:WRITE-LINE (STRING STREAM CL::START CL::END) COMP.COND (HERE +CONTEXT END) \TYPEMASK.UFN (N X) CL::SUBTYPEP-TYPE-EXPAND (TYPE) TOPWP (WINDOW) +CL::DEFAULT-STRUCTURE-PRINTER (CL::STRUC STREAM) \INBETWEENP (X LFT RGHT) CL:WRITE-BYTE ( +BINARY-OUTPUT-STREAM INTEGER) \LEAF.GENERATEFILES (DEVICE PATTERN DESIREDPROPS OPTIONS) CL:WRITE-STRING + (STRING STREAM CL::START CL::END) CL::STEP-SLEEP (CL::FUNCTIONS) \SELECTPROCESS (TTYNAME ME MOUSEITEM + TITLE) RECORDALLOCATIONS (DECS X) CL:TYPE-OF (CL::X) CL::USEFUL-TYPE-EXPANSION-P (CL::EXPANSION) +\ELIDE.PRINT.TAIL (STREAM) TTYIN.READ?=ARGS (TTSCRATCHFILE) EQL (X Y) \FTP.FLUSH.TO.EOC (INSTREAM) +\PRINDATUM (OBJECT STREAM R \NUMSTR \NUMSTR1 CPL) ICONW.PRINT-JUSTIFIED (REG STREAM FONT REAL-FONT +OPERATION TEXT BREAKCHARS JUST LEFTOVER MAXCHAR OLDCLIP) CL:TRUENAME (PATHNAME RESULT) +\BITBLT.HCPYMODE (SOURCEBITMAP SOURCELEFT SOURCEBOTTOM DESTSTRM WIDTH HEIGHT SOURCETYPE OPERATION +TEXTURE CLIPPINGREGION CLIPPEDSOURCELEFT CLIPPEDSOURCEBOTTOM) \DRAWLINE.UFN (FIRSTBIT XDELTA YDELTA +OPERATIONCODE PIXELSINX PIXELSINY YINCR) \LEAF.GETFILENAME (DEV DEVINFO NAME RECOG) PFI.INDEX.BREAK ( +OLDY Y NOTERPRI) FETCHFIELD (DESCRIPTOR OFFSET FT OFF N WIDTH) \PROCESS.MAKEFRAME (FN ARGS FRAME +FN&ARGS) CHAT.LOGINFO (INSTREAM HOST NAME) \STORE.N.UFN (ALPHA VAL) \MISC7.UFN (ALPHA ARG1 ARG2 ARG3 +ARG4 ARG5 ARG6 ARG7) CL::%%COMPLEX-SUBST (CL::TEST CL::OLD CL::TREE CL::NEW) COMPILER::COPY-NODE-VAR-REF + (COMPILER::NODE) \COPY.N.UFN (ALPHA) CL::%%SIMPLE-SUBST (CL::OLD CL::TREE CL::NEW) GETDESCRIPTORS ( +TYPENAME) \MAIKO.CONSOLE-LOG-PRINT (MESSAGE-BUFFER) CLISPATOMARE2 (L) TWODINSPECT.CLOSEFN (WINDOW) +CL::STRUCTURE-SLOT-NAMES (CL::PS) EDITMOVEREGION (Window) \ARG0 (N BFLINK) FIND.SYMBOL (STRING LENGTH +HASH PACKAGE EHASH HEAD A0348 A0350 A0346) CL::EQUAL-ELEMENT-TYPE (CL::ELEMENT-TYPE-2 CL::ELEMENT-TYPE-1 +) CL:SUBST-IF-NOT (CL::NEW CL::TEST CL::TREE CL::KEY) CLISPATOMIS2 ($TYP) +TWODINSPECT.DEFAULT.VALUECOMMANDFN (SETMENU INSPECTMENU ROWPROP COLUMNPROP WINDOW) INTERRUPT (INTFN) +\ELIDE.PRINT.ELEMENT (STREAM) SEDIT::SUBSTITUTE-OBJ (SEDIT::CONTEXT SEDIT::SELECTION) AWAIT.EVENT ( +EVENT) CREATE.NEW.NODEPOSITION (Node deltaX OldPos deltaY) CL::%%SUBST-IF (CL::TEST CL::TREE CL::NEW) +PRIN3 (FILE STRM X) CL::%%SIN-FLOAT (CL::X CL::SIGN CL::R2) CREATEBSPSTREAM (SOCKET OTHERPUPHANDLER +ERRORHANDLER IOTIMEOUT IOTIMEOUTFN WHENCLOSEDFN) CHAT.FLUSH&WAIT (INSTREAM) MONITOR.AWAIT.EVENT ( +RELEASELOCK EVENT) CL:SUBST-IF (CL::NEW CL::TEST CL::TREE CL::KEY) PRINT-CIRCLE-LOOKUP (OBJECT) +COMPILER::COPY-NODE-UNWIND-PROTECT (COMPILER::NODE) UPDATEFILES (PRLST FLST PREVITEMS) \MOVETO.IP ( +IPSTREAM X Y) CL:TERPRI (OUTPUT-STREAM) CL:PRIN1 (OBJECT OUTPUT-STREAM) \PRINT-USING-ADDRESS (X STREAM +) SEDIT::COPY-STRUCTURE-COMMENT-WORD (SEDIT::NEW-STRING) \TEDIT.SUBST.FN2 (TRIALSTART# END# TEXTOBJ) +\PROCESS.GO.TO.SLEEP (TOFX) LISTFILES1 (FILE PRINTOPTIONS) CL::%%NSUBST-IF (CL::TEST CL::NEW) +SEDIT::CREATE-NEW-COMMENT (SEDIT::CONTEXT SEDIT::WIDTH) XCL::%%DEFINE-TYPE-GETDEF (TYPE XCL::NAME +XCL::DEFN) CURRENTINTERRUPTS (TABLE) GETDEF (NAME NOERROR) CL::RANGE<= (CL::TYPE1 CL::TYPE2) +CL::%%SIMPLE-NSUBST (CL::OLD CL::NEW) CL:NSUBST-IF (CL::NEW CL::TEST CL::TREE CL::KEY) +DINFO.INVERT.NODE (WINDOW DINFO.NODE) WHO-LINE-CURRENT-DIRECTORY (CONNECTED-DIRECTORY DIR-NAME) +COMPILE-IN-CORE (fn-type fn-name) CL:PRINC (OBJECT OUTPUT-STREAM) CL:NSUBST (CL::NEW CL::OLD CL::TREE +CL::TEST-NOT CL::TEST CL::KEY) BRKDWNRESULTS1 (NLST PTR N) RESET.INTERRUPTS (TRIPLE) DINFO.SHOWGRAPH ( +GRAPHER.GRAPH DINFO.GRAPH GRAPH.REGION GRAPH.WINDOW WINDOW.REGION LEFT BOTTOM HEIGHT WIDTH) CL:COPY-LIST + (LIST) \FTP.CLEANUP (INTERVAL TIMER PROC) SETBSPUSERINFO (STREAM VALUE) DINFO.LAYOUTGRAPH (NODE ID +NODELST CHILDREN CHILD GRAPHER.NODE PARENT SIBLINGS SIBLING PARENT.GRAPHER.NODE SIBLING.GRAPHER.NODES +CHILD.GRAPHER.NODES FONT) \MISC1.UFN (ALPHA) PRINT-BITMAPS-NICELY (BITMAP WIDTH BITS-PER-PIXEL HEIGHT) + CL:NSUBST-IF-NOT (CL::NEW CL::TEST CL::TREE CL::KEY) COMPILER::COPY-NODE-THROW (COMPILER::NODE) +INTERRUPTABLE (FLAG) FIND.PACKAGE (NAME ITEM HA BASEA0286) CL::%%COMPLEX-NSUBST (CL::TEST CL::OLD +CL::NEW) CL::%%NSUBST-IF-NOT (CL::TEST CL::NEW) CL::%%COMPLEX-SUBLIS (CL::TREE CL::A-LIST CL::TEST +CL::TEST-NOT-P CL::NEW-CAR CL::NEW-CDR) XCL::HASH-FILE-WHERE-IS (TYPE XCL::ENTRY XCL::NAME) +\GCRECLAIMCELL (CELL) TWODINSPECT.DEFAULT.TITLECOMMANDFN (WINDOW TITLEMENU DATUM) MAKE-KEYWORD ( +CL:SYMBOL) WHO-LINE-COPY-INSERT (X TTY-WINDOW) \CONTROL-T.PRINTRATIO (N STREAM TOTAL LABEL) +\WRITEBITMAP (BITMAP FILE OFD W) CL::%%STATS-OBJECT-DIFFERENCE (CL::BEFORE CL::AFTER +CL::AFTER-TIME-BLOCK CL::BEFORE-TIME-BLOCK) COMPILER::MAKE-LAP-VAR (COMPILER::VAR) +CL::STRUCTURE-CONSTRUCTOR (CL::STRUCTURE-NAME CL::PS CL::CONSTRUCTOR) FW-WIPE (OFD) \PRINTBINARYBITMAP + (STREAM BITMAP W) COMPILE.FILE.RESET (ROOTNAME) CL::%%SUBST-IF-NOT (CL::TEST CL::TREE CL::NEW) +\WRITEPRINTERPORT.UFN (DATUM) CL::%%COMPLEX-ASSOC (CL::TEST CL::ITEM CL::A-LIST) CL::%%SIMPLE-SUBLIS ( +CL::TREE CL::A-LIST CL::NEW-CAR CL::NEW-CDR) BSPINPUTSTREAM (STREAM) PROCESS.NAME (PROC) +XCL::%%DEFINE-TYPE-FILE-DEFINITIONS (XCL::NAME TYPE XCL::NAMES) CL:SUBST (CL::NEW CL::OLD CL::TREE +CL::TEST-NOT CL::TEST CL::KEY) PUTDEF (NAME DEFINITION REASON) CL::%%COMPLEX-NSUBLIS (CL::TREE +CL::A-LIST CL::TEST CL::TEST-NOT-P) BRKDWNRESULTS2 (X NAME TEM NCALLS TOT) \RETCALL (NARGS) +CL::SET-SETF-METHOD-EXPANDER (CL::NAME CL::EXPANDER) %%AREF1 (ARRAY INDEX BASE-ARRAY) BRKDWNCOMPILE2 ( +FN DEF) CHARCODEP (CHCODE) \MAIKO.ETHER-INTERRUPT (NDB TYPE) XCL::%%DEFINE-TYPE-FILEGETDEF (XCL::SOURCE + XCL::VAL XCL::NOTFOUND) %%ASET1 (ARRAY INDEX BASE-ARRAY NEWVALUE TYPE-NUMBER ROW-MAJOR-INDEX) +\MISC2.UFN (ALPHA ARG1 ARG2) CL:NSUBLIS (CL::A-LIST CL::TREE CL::TEST-NOT CL::TEST CL::KEY) CL:SUBLIS +(CL::A-LIST CL::TREE CL::TEST-NOT CL::TEST CL::KEY) \DASHINGCONVERT.HCPYMODE (DASHING) \POP.N.UFN (N) +DO?CMD.ERRORHANDLER (CONDITION) OPENWP (WINDOW) CL::%%EQCODEP (CL::TESTFN CL::KNOWNFN) TRANSGRAPH ( +GRAPH N X Y) \ATOMCELL (X ATOMNO N LOC OFFSET) HASTTYWINDOWP (PROCESS) SEDIT::COPY-SELECTION-COMMENT ( +SEDIT::SELECTION SEDIT::CONTEXT SEDIT::NODE SEDIT::POINT STREAM SEDIT::PROMPTWINDOW) \GETBASEBYTE (N +PTR) CL::%%COMPLEX-MEMBER (CL::TEST CL::ITEM LIST) \LEAF.REOPENFILE (ACCESS FDEV NAME RECOG) +CLISPATOMARE1 (X FLG) \INSTANCEP.UFN (OBJ) BSPBIN (STREAM) ADD.CHAT.MESSAGE (STREAM MSG) +CL::SET-SETF-INVERSE (CL::NAME CL::UPDATE-FN) CL::%%SIMPLE-NSUBLIS (CL::TREE CL::A-LIST) HRULE.COPYFN +(IMAGEOBJ TOSTREAM) \BLT (NWORDS NN DBASE SBASE) XCL::%%DEFINE-TYPE-PUTDEF (XCL::NAME TYPE) +XCL::%%DEFINE-TYPE-DELDEF (TYPE XCL::NAME) \MISC10.UFN (ALPHA ARG1 ARG2 ARG3 ARG4 ARG5 ARG6 ARG7 ARG8 +ARG9 ARG10) COERCETOBITMAP (BMSPEC) \P-MISC2.UFN (ALPHA ARG1 ARG2) CL:CONCATENATE (RESULT-TYPE) +CLISPCAR/CDR2 (X) \PUTBASEBYTE (PTR) OPENRTPSOCKET (CONNID TIMEOUT) VECTOR-LENGTH (VECTOR) +\FDIFS/FROM/DERIVS (NSTEPS DZ RAD DDZ DDDZ) CGETWINDOWPROP (WINFORM PROP) \PUTBASE.UFN (X D V) +COMPILE.FILE.APPLY (FORM PROP) DO.INSERT.LINE (WIDTH) CHANGE-TTY-PROCESS-INTERACTIVELY (PROC X Y) +\BITBLT.IP (DESTINATION DESTINATIONLEFT OLDX DESTINATIONBOTTOM OLDY STREAMSCALE WIDTH HEIGHT DESTWIDTH + DESTHEIGHT CLIPPEDSOURCELEFT CLIPPEDSOURCEBOTTOM SOURCEBITMAP) \PUTBASEPTR.UFN (X D V) LOOKUP-SYMBOL +(TABLE VEC SXHASH LEN HASH ENTRY-HASH SYMBOL-NAME STRING H2) XCL::INTERESTING-FRAME-P (XCL::POS XCL::NAME +) MAKE-SEQUENCE-OF-TYPE (BROAD-TYPE LENGTH TYPE) TTYIN.PRINTARGS (FN EQUALS ARGTYPE) \LEAF.EVENTFN ( +FDEV EVENT-TYPE) \PUTBITS.UFN (V N.FD FIRST WIDTH NV) CL:UNION (CL::TEST-NOT CL::TEST CL::LIST2) +UNMAKEHARDCOPYMODESTREAM (DISPLAYSTREAM) \ADDBASE (X) COMPILER::COLLECT-CODE (COMPILER::NODE COMPILER:CONTEXT +) CL:VECTOR (ARGS VECTOR) GETBSPUSERINFO (STREAM) \VAG2 (H L) CL:COPY-SEQ (SEQUENCE) +COMPILER::COPY-NODE-TAGBODY (COMPILER::NODE COMPILER::NEW-TAGBODY COMPILER::SEGMENT) COMP.FUNCTION (A) + /DREMOVE (X) CWINDOWPROP (FORMTAIL) MAKE-VECTOR (SIZE ELEMENT-TYPE FATP VECTOR INITIAL-ELEMENT) UNION + (X Y) COMPILE-FILE-EX/IMPORT (FORM LCFIL RDTBL) CL:ARRAY-ELEMENT-TYPE (ARRAY) CL:SET-DIFFERENCE ( +CL::TEST-NOT CL::TEST CL::RESULT) CREATETEXTUREFROMBITMAP (BITMAP W H) HRULE.PUTFN (HRULE +OUTPUT.STREAM) EXEC-FORMAT (FORMAT-STRING ARGS) PRINTROUTINGTABLE (TB X Y ENTRY) CL:NSET-EXCLUSIVE-OR +(CL::TEST-NOT CL::TEST) CLISPATOMIS1 (SUBJ X OBJ ALST) MARKASCHANGED (NAME LST) CL:ELT (INDEX SEQUENCE +) \TEDIT.FIND.WC1 (TRIALEND# TEXTOBJ END#) \LEAF.DIRECTORYNAMEP (HOST/DIR DEV) ENDBSPSTREAM (STREAM +TIMEOUT) GETPROMPTWINDOW (MAINWINDOW STRWIDTH MAINWIDTH) \BSP.PREPARE.INPUT (TIMER) +CHAT.CLOSE.CONNECTION (INSTREAM OUTSTREAM) CL:SUBSETP (CL::TEST-NOT CL::TEST) CL:INTERSECTION ( +CL::TEST-NOT CL::TEST CL::RESULT) CL::%%PRINT-TIMING-INFO (CL::STATS-OBJECT STREAM CL::TIME-BLOCK) +COMP.PUNT (EM) SIGNAL (XCL::DATUM XCL::ARGS XCL:*CURRENT-CONDITION*) OLD.FIND.SYMBOL (OFFST LEN BASE +NEWATOM) ADD1VAR (ADD1X) GETDEF.I.S.OPR (Y) CL:MAKE-SEQUENCE (TYPE LENGTH INITIAL-ELEMENT VECTOR) +CL:NUNION (CL::LIST2) ADDTOVAR (X VAR) BRKDWN1 (LST BLOCK A) CL:MAKE-LIST (CL::SIZE) PUTHASHFILE (KEY1 + KEY HASHFILE) CL:SET-EXCLUSIVE-OR (CL::TEST-NOT CL::TEST CL::RESULT) \BLTSHADE.HCPYMODE (TEXTURE +STREAM WIDTH HEIGHT OPERATION CLIPPINGREGION) APPENDTOVAR (X VAR PAIR) SYMBOL.PACKAGE (N INDEX) +SETUP-WHOLINE-TIMER (OLD-TIMER) DUMPI.S.OPRS (X Y) SEDIT::CLOSE-NODE-COMMENT (SEDIT::NODE) +TWODINSPECT.ROWPROPWIDTH (ROWPROPS FONT) \FIRSTNODE (TREE) GETHASHFILE (KEY1 KEY HASHFILE) +COMPILER::COPY-NODE-SETQ (COMPILER::NODE) \LEAF.FORCEOUTPUT (STREAM) SEDIT:GET-FORMAT (SEDIT::FNAME) +\TEDIT.MARK.LINES.DIRTY (CH1 CHLIM CHLIM# CH#) \FTP.ADD.USERINFO (HOST INFO) CL::%%SQRT-COMPLEX (CL::Z + ABS CL:PHASE) \BSP.CLEANUP.INPUT (PUP SOCKET) RECORDACCESS (X NEWVALUE) LDIFFERENCE (X Y) RESULTS ( +RETURNVALUESFLG) CL:SUBSEQ (SEQUENCE LENGTH) COMPILER::COPY-NODE-RETURN (COMPILER::NODE) +\READBINARYBITMAP (BMW BMH BPP) /SET (NAME VALUE) CL:NTHCDR (CL::N LIST) \FINDPIECE (PC PCTB NODE) +SEDIT::COMPUTE-POINT-POSITION-COMMENT (SEDIT::CONTEXT SEDIT::NODE) ATTACH (X) SAVESET (X) <= (CL::ARGS +) CL:PAIRLIS (CL::KEYS CL::DATA CL::A-LIST) BRKDWNFORM (LST STAT X SETFORM PTR) CHANGEPROP (X PROP1 +PROP2) SEDIT::GET-USER-STRING (SEDIT::CONTEXT SEDIT::PROMPTWINDOW SEDIT::PROMPT SEDIT::DEFAULT) +CHAT.DEACTIVATE.WINDOW (WINDOW TITLE) WINDOWADDFNPROP (WINDOW PROP ITEMTOADD) SPYOBJ.DISPLAY (STREAM +OBJ HEIGHT) COMPILE-FILE-SETF-SYMBOL-FUNCTION (FORM LCFIL) DINFO.HISTORIC.UPDATE (ITEM MENU WINDOW ID +GRAPH $$OUTPUT SEL) %%SETELT (INDEX SEQUENCE) BMOBJ.DISPLAYFN (IMAGEOBJ IMAGE.STREAM STREAM-SCALE +DESCENT STREAMTYPE CACHE BITMAP) UnixPrint (HOST PRINTOPTIONS PRINTER) DEFINE (X) ADDTOCOMS (COMSNAME +NAME NEAR LISTNAME) CL::%%SET-NTH (CL::N) CL::%%SQRT-FLOAT (CL::SIGN CL:EXP CL::HI CL::LO) FTPGETCODE +(STREAM NOCODEP) LSH (N) CL::TYPE-EXPAND (CL::FORM) DEFINEQ (X) COMPILER::COPY-NODE-PROGV (COMPILER::NODE +) COMP.APPLYFNP (X) \SLOWFPLUS2 (X Y) SYMBOL.PNAME (N) POSTSCRIPTSEND (HOST FILE PRINTOPTIONS) +CL::TYPE-EXPANDER (CL::SYMBOL-TYPE TYPE CL::DEFTYPE-FORM) DWIM-SYMBOL-PACKAGE (SYM) CL:RASSOC (CL::ITEM + CL::A-LIST CL::TEST-NOT CL::TEST CL::KEY) TRACE (CL::FN) \SLOWFDIFFERENCE (X Y) +TWODINSPECT.COLUMNWIDTHS (COLUMNPROPS DATUM ROWPROPS COLUMNPROP FETCHFN FONT) BSPHELP (MSG) +DOWINDOWCOM (ARGS) \SLOWFTIMES2 (X Y) UNTRACE (CL::ENTRY CL::FN) REMWINDOWPROP (PROP) CL:PRIN1-TO-STRING + (OBJECT) \LEAF.RENAMEFILE (OLD-DEVICE OLDFILE NEW-DEVICE NEWFILE) \SLOWFQUOTIENT (X Y) +COMPILE.FILE.DEFINEQ (FORM) CL::%%LIST-MAP-OPTIMIZER (CL::FN CL::COLLECT-P CL::NCONC-P CL::LISTS) +DEFLIST (PROP) BRKDWNSETUP (DEF PTR N BDEF FN) FIND.START.OF.WORD (X CH) \UNBOXFLOAT2 (OP) +SEDIT:RESET-FORMATS (SEDIT::DONT-REPARSE?) MBUTTON.FIND.NEXT.FIELD (TEXTOBJ CH# PCTB) CLISPCAR/CDR1 (N +) \UNBOXFLOAT1 (OP) SET-READTABLE-INTERACTIVELY (NAME VALUE X Y READTABLE) BITMAPTEDITOBJ (BITMAP +SCALEFACTOR ROTATION DESCENT) GETLIS (X PROPS) SPYOBJ.LABEL (OBJ DATUM) %%ASET2 (ARRAY I J BASE-ARRAY +NEWVALUE TYPE-NUMBER ROW-MAJOR-INDEX) DSUBST (NEW) SEDIT::COMMENT-LENGTH (SEDIT::NODE +SEDIT::NUMBER-OF-SUBNODES) %%AREF2 (ARRAY I J BASE-ARRAY ROW-MAJOR-INDEX) TCONC (X) ARCTAN (X) +ATTACHMENU (MENU EDGE MAINWINDOW POSITIONONEDGE NOOPENFLG) CLISPATOM2C (Y X) INTERSECTION (Y) +HRULE.IMAGEBOXFN (IMAGE.STREAM HRULE RIGHT.MARGIN CURRENT.X WIDTHS SCALE) \RTP.HANDLE.INPUT (BSPSOCKET + PUPSOC) GREATERP (X Y) SPYOBJ.HEIGHT (OBJ STREAM DATUM FH) MEMBER (X) EVERY (EVERYFN1) TTSETCURSOR ( +COL ROW) \BOXIPLUS (X LX) BRKDWNFBOXES (PTRA0716 VALA0715 BDX BDEXP PTRA0718 VALA0717) SHOWSHADE.IP ( +IPSTREAM SHADE OPERATION SCALE ANGLE REGION) SEDIT::CFV-COMMENT (SEDIT::CONTEXT SEDIT::WIDTH) +\BOXIDIFFERENCE (X LX) \TEDIT.REOPEN.STREAM (PIECESTREAM TEXTSTREAM PCTB NEWSTREAM) \CURVESLOPE (KNOTS + %#KNOTS) \HCPYMODEDSPPRINTCHAR (CHARCODE DD SPACEWIDTH) LISTPUT1 (LST PROP VAL) \CURVEEND (A +NEWXA0633 NEWYA0632 DX DY) CL:REPLACE (SEQUENCE1 SEQUENCE2 LENGTH1 LENGTH2 START1 START2 SUBLEN1 +SUBLEN2) \CREATEPIECEORSTREAM (PARALOOKS LOOKS) LISTGET1 (PROP) \LEAF.BREAKCONNECTION (DEVICE S) +HRULE.GETFN (INPUT.STREAM) \MISC3.UFN (ALPHA ARG1 ARG2 ARG3) RECORD.FIELD.VALUE (FIELDNAME) +INSURE.WINDOW (WIN?) CL:MAPCAR (CL:FUNCTION LIST) \TFBRAVO.PARSE.PROFILE.VALUE (INCHES POINTSPERINCH) +SAMECLOOKS (FEATURES CLOOK1 CLOOK2) LSUBST (OLD NEW) COMPILE.CHECK.ARGTYPE (AT X ATYPEPAIR) +CL::%%MAPCAR-MULTIPLE (CL::LISTS) BMOBJ.IMAGEBOXFN (IMAGEOBJ BITMAPOBJ IMAGE.STREAM BITMAP STREAMTYPE +SCALE DESCENT) IDLE.BITMAP (REGION WIDTH HEIGHT FONT) SYMBOL.VALUE (SYMBOL LOC) +SEDIT::COMPUTE-SELECTION-POSITION-COMMENT (SEDIT::CONTEXT SEDIT::NODE SEDIT::START SEDIT::START-SUBNODE + SEDIT::END-SUBNODE) IPLUS (N) GET-TWOD-DISPLAYW (WHERE DISPLAYWINDOW FONT DATUM FETCHFN STOREFN +VALUECOMMANDFN ROWPROPCOMMANDFN COLUMNPROPCOMMANDFN TITLECOMMANDFN ROWPROPS COLUMNPROPS PROFILE) +\BIGNUM.PLUS (X Y) \MISC4.UFN (ALPHA ARG1 ARG2 ARG3 ARG4) TEDIT.SUBLOOKS (OLDLOOKSLIST NEWLOOKSLIST +TEXTSTREAM TEXTOBJ PCTB A SEL FIRSTPC OLDLOOKS FEATURELIST) MAP2C (MAPFN1) PLUS (N) CL::%%LOG-FLOAT ( +CL::SIGN CL::HI CL::LO CL::Z CL::Z2) \FM.EDIT-STRINSERT (STRING N CHAR) \FTP.PACK.DIRECTORYNAMEP ( +PLIST CONNECTION DEVICE DIRECTORY) SPYOBJ.IMAGEBOX (OBJ HEIGHT) \BIGNUM.DIFFERENCE (X Y) +COMPILER::COPY-NODE-PROGN (COMPILER::NODE) COMP.BOOL (END) MAPC (MAPFN1) \10MBSETUPRECEIVER (NDB +PACKET) PFI.LOOKUP.NAME (NAME TYPE) \TFBRAVO.ASSERT (X Y) PFI.SORT.INDICES (Y ROWDIF) MAP2CAR (MAPFN1) + ARGTYPE.STATE (X) CL::STEP-PRINT (CL::FORM) \BIGNUM.COMPARE (X Y) DEBUGGER (\TERM.OFD BRKCOND BRKENV +XCL::INPUT XCL::ENV) MAPCON (MAPFN1) TEDIT.OBJECT.CHANGED (STREAM OBJ PC OBJECT) LOGAND (N) MAPCAR ( +MAPFN1) \INIT.RTPPROCESS (PROC) TEDIT.PUT.PCTB (TEDIT.PUT.FINISHEDFORMS FORM) \BIGNUM.LOGAND (X Y) +MAPLIST (MAPFN1) CL::%%PRINT-RANDOM-STATE (CL::STATE STREAM CL::PRINT-LEVEL) LOGOR (N) +\FM.EDIT-STRDELETE (STRING N M) MAPCONC (MAPFN1) \BIGNUM.LOGOR (X Y) CL::%%MAPLIST-MULTIPLE (CL::LISTS +) \TEDIT.SET.SEL.LOOKS (OPERATION) CL::%%MAPC-MULTIPLE (CL::LISTS) MAKE.LOCAL.ATOM (ATM.NAME PKG.NAME) + LOGXOR (N) CLISPBROADSCOPE (CONTEXT $TYP) NLEFT (L TAIL) GET-TOPW (DISPLAYWINDOW TOPWINDOW FONT) +\BIGNUM.LOGXOR (X Y) GTHASHFILE (WRITE) \TEDIT.PARSE.SEARCHSTRING (TEDIT.WILDCARD.CHARACTERS) +UNCOPYATOM (N) ITIMES (N) ADD-EXEC (XCL::REGION XCL::HANDLE) CLISPBROADSCOPE1 (CONTEXT) \CURVESTART (X + Y) GET-CORNERW (DISPLAYWINDOW FONT CORNERWINDOW) SPYOBJ.COPY (OBJ) \BIGNUM.TIMES (X Y) +SEDIT::FIND-SELECTION-BACKWARDS (SEDIT::CONTEXT SEDIT::SELECTION SEDIT::NODE SEDIT::PROMPTWINDOW) +ENTER-DEBUGGER-P (CONDITION) NOTEVERY (EVERYX EVERYFN1 EVERYFN2) CL::%%RANDOM (CL::STATE CL:ARRAY) +\TEDIT.FLUSH.UNUSED.LOOKS (CHARLOOKS PARALOOKS) TIMES (N) \BSP.OTHERBOUT (STREAM BYTE) NOTANY (SOMEX +SOMEFN1 SOMEFN2) TEDIT.LOOKS (STREAM TEXTOBJ LEN NEWLOOKS) CL::%%MAPCAN-MULTIPLE (CL::LISTS) +COMPILER::COPY-NODE-MV-PROG1 (COMPILER::NODE) RATOMS (FILE RDTBL A) \BIGNUM.QUOTIENT (Y X) CL:MAPC ( +CL:FUNCTION LIST) CL:MAPLIST (CL:FUNCTION LIST) PUTASSOC (ALST KEY VAL) \RTP.ACTION (EVENT PUP) +\SETUPGETCH (TEXTOBJ CH# PCTB START-OF-PIECE) QUOTIENT (X Y) EXEC-EVAL (ID PROMPT) \MAP.ROUTING.TABLE +(TABLE MAPFN ENTRY) \TAN-FLOAT (X) SPYOBJ.GET (STREAM) COMP.EVQ (X) FIND.LINE (BUF) NU\TOTOPWDS (DS +NOTOTOPFNFLG) CL:MAPCON (CL:FUNCTION LIST) TAN (X XX) COMPILE-FILE-WALK-FUNCTION (FORM) +CL::%%MAPCON-MULTIPLE (CL::LISTS) DINFO.UPDATE.FROM.MENU (MENU ITEM) CL:CONSP (X) \PUTBASEFIXP.UFN ( +BASE OFFST) \FM.EDIT-GETPOINTERINFO (LEFT STRING FONT) CHAT.BIN (OUTSTREAM) RPT (RPTF) CL:MAPCAN ( +CL:FUNCTION LIST) COMPILER::COPY-NODE-MV-CALL (COMPILER::NODE) UNBREAK (XCL::ENTRY XCL::FN) +CL::%%EVERY-MAP-OPTIMIZER (CL::FN) FRPTQ (RPTZ) COPYATOM (N BASE OFFST) COMP.CPI1 (ARGS N) +\BIGNUM.REMAINDER (X Y) COMPILER::COPY-NODE-OPCODES (COMPILER::NODE) RPTQ (RPTZ) TWODINSPECT.RESHAPEFN + (WINDOW) WHITESPACE-CHAR-P (CH) SEDIT::FIND-SELECTION (SEDIT::CONTEXT SEDIT::SELECTION SEDIT::NODE +SEDIT::PROMPTWINDOW) CL::%%MAPL-MULTIPLE (CL::LISTS) TRANSMIT.ETHERPACKET (NDB PACKET) +\TEDIT.CHANGE.LOOKS (STREAM CH# LEN START-OF-PIECE PCNO1 PCNON NLOOKSAVE) RECURSIVELY-ANALYZE (ARGLIST + PATH ERRLOC WHOLE) INTERLISP-NLAMBDA-FUNCTION-P (X) CL:MAPL (CL:FUNCTION LIST) RSH (X N) +HRULE.DISPLAYFN (HRULE RULEWIDTH IMAGE.STREAM WIDTHS SCALE X) \TELERAIDBREAK (KEYNUMBER) +CENTERPRINTINREGION (STREAM EXP PRIN2FLG) MINUSP (CL:NUMBER) SEDIT::BACKSPACE-COMMENT (SEDIT::CONTEXT +SEDIT::NODE) CLOSERTPSOCKET (TIMEOUT) ILESSP (Y X) IMINUS (X) BREAK-FUNCTION (XCL::FN-TO-BREAK +XCL::REBREAK? XCL::FN XCL::WHEN-EXPR XCL::ORIGINAL XCL::ORIGINAL-DEF XCL::MIDDLE-MAN) SUB1 (X) +\CHANGECHARSET.HDCPYDISPLAY (CHARSET HDCPYDSTREAM FD CSINFO) SELECT1 (M) \10MBRAWENCAPSULATE (LENGTH) +ZEROP (X) SELECT (.SELEC.) DINFO (WINDOW.OR.REGION GRAPH.OR.FILE W NO.FREEMENU? SETUP.ONLY?) ADD1 (X) +SELECTC (M SELCQ) \CHTOPCNO (PCTB CH#) CLISPATOM2A (PARENT) PFI.COMPUTE.INDEX.SHAPE (INDEXPAIRS P +INDEXNOWIDTH INDEXLEN) GCD (N2 N1) \TEDIT.SUBST.FN1 (TEXTOBJ TARGETLIST START# END#) +\OPENLEAFCONNECTION (HOST SEQUIN TIMEOUT) SOME (SOMEFN1) CL::%%MAKE-RANDOM-ARRAY (CL::SEED1 CL::SEED2 +CL::X CL::RANDOM-LIST) IEQP (X Y) SETQQ (X Y) CL::%%NOT-INTEGER-ERROR (CL::OBJECT) \BITMAPSIZE.IP ( +DIMENSION BITMAP) XCL::ADJUST-IMPLICIT-KEY-HASH (XCL::OLD-IK-TABLE XCL::NEW-IK-TABLE) +\BIGNUM.INTEGERLENGTH (X) CLISPATOM1B (L1) STRMEMB (X) \RTP.SHOW.FAILURE (REASON) SPYOBJ.SAVE (OBJ +STREAM) SET-PACKAGE-INTERACTIVELY (X Y) SUBSET (MAPFN1) \TFBRAVO.PARSE.PROFILE.PARA (IN PARAEND +TEXTOBJ) ANALYZE-REST (ARGLIST CL:KEYWORD PATH ERRLOC BODY DECLS) SUB1VAR (SUB1X) CL::STEP-FORM ( +CL::RESULTS) CL::STEP-EVAL (CL::RESULTS) SPY.PRINT (X) FSETVAL (VAL) COMPILEMODE (X) +CHARLOOKS.FROM.FONT (FONT) TEDIT.SCANSEL (STREAM TEXTOBJ) TOPW.RESHAPEFN (WINDOW) CHARPOS (STREAM) +SEDIT::FIND-OBJ (SEDIT::CONTEXT SEDIT::SELECTION SEDIT::WRAP?) \HDCPYBLTCHAR (CHARCODE DISPLAYSTREAM +CHAR8CODE) INTERLISP-FORMAT-P (STREAM) TTSKIPSEPR (END CH) \10MBRAWTRANSMIT (NDB PACKET) FLOAT ( +CL:NUMBER) \FM.EDIT-DELETE (REGION PIVOT BOTTOM HEIGHT SI::$PROG1-FIRST-EXPRESSION$) CHAT.SCREENPARAMS + (WINDOW A HEIGHT WIDTH TITLE CHAT.STATE) ERSETQ (ERSETX) COMPILER::COPY-NODE-LITERAL (COMPILER::NODE) + COMP.CPI (ARGS FN) ENCAPSULATE.ETHERPACKET (NDB PACKET PDH NBYTES ETYPE) CL::%%/ (CL::X CL::Y) +PUSH-KEYWORD-BINDING (VARIABLE ERRLOC) NLSETQ (NLSETX) CL::STEP-COMMAND (CL::FORM CL::ENVIRONMENT +CL::VALUE) REMAINDER (X Y) ARCSIN (X) SHOWBITMAP1.IP (XBYTES YPIXELS XPIXELS BITMAP HEIGHT +REGIONBOTTOM FIRSTROW IPSTREAM SCALEFACTOR TOTALBYTES LEFT SCRATCHBM) FREMAINDER (X Y) CLISPATOM2 (X +CLISPCLASS) LESSP (Y X) \SIN-FLOAT (X) \TEDIT.FIND.WC (TEXTOBJ TARGETLIST START# END#) WALK-TEMPLATE ( +XCL::TEMPLATE) COPY.SEGMENT (START END) \FTP.FIX.BROKEN.INPUT (INSTREAM FULLNAME POS PROPS) MINUS (X) +CL::%%EXPT-FLOAT-INTEGER (CL::POWER CL::BASE) ARCCOS (X XX) CHAT.LOGIN (HOST WINDOW STATE OPTION +OSTYPE X) XNLSETQ (XNLSETQX XNLSETFLG XNLSETFN) WINDOWADDPROP (WINDOW PROP ITEMTOADD) FMINUS (X) +COMPILER::COPY-NODE-LAMBDA (COMPILER::NODE COMPILER::NEW-LAMBDA COMPILER::VAR COMPILER::OPT-VAR +COMPILER::KEY-VAR) CL:CHAR-NAME (CHAR) RESETLST (RESETX) \ATMIN (N WIDTH LEN STREAM) RANDSET (N Z) +WALK-FORM-INTERNAL (XCL::FORM XCL::CONTEXT) CL:INT-CHAR (INTEGER) SEDIT::FIND-NODE-SUBSTRUCTURE-BACKWARDS + (SEDIT::NODE SEDIT::SUBNODES SEDIT::SUBLENGTH) \SLOWHDCPYBLTCHAR (CHARCODE DISPLAYSTREAM CHAR8CODE) +CURRENT-TTY-PACKAGE (PACKAGE) IDATE (*STR* UCHAR START) RESETSAVE (RESETX FORM) DASSEM.ASMAJ (OP) +SEDIT::FIND-NODE-SUBSTRUCTURE (SEDIT::NODE SEDIT::END SEDIT::SUBNODES) \FM.EDIT-WORDDELETE (STRING +SI::$PROG1-FIRST-EXPRESSION$) RESETFORM (RESETZ) \TEDIT.FONTCOPY (FONT TEXTOBJ OLDFAMILY OLDSIZE) +BSPFRNADDRESS (STREAM) CL::%%EXPT-INTEGER (CL::POWER CL::BASE) \FM.EDIT-BACKUP ( +SI::$PROG1-FIRST-EXPRESSION$) \FTP.RECOGNIZEFILE (NAME OPTION RECOG DESIREDPROPS) COMPILER::COPY-NODE-LABELS + (COMPILER::NEW-LABELS COMPILER::NODE) TEDIT.COPY.PARALOOKS (STREAM DEST TEXTOBJ) COMP.ANONP (E) +RESETVARS (RESETX) MERGEINSERT (NEW X) DASSEM.DSTOREFN (X) \BSP.HANDLE.INPUT (PUPSOC LOCK) +INITUFNTABLE (OP) IMOD (N) CL:CODE-CHAR (BITS FONT CODE) COMP.NOSIDEEFFECTP (EXP) CL:CHAR-CODE (CHAR) +WRITE-STRING* (STRING END START STREAM) CHECK-PARAMETER-NAME (ERRLOC) \BSP.DEFAULT.ERROR.HANDLER ( +ERRCODE SOCKET) CL:CHAR-INT (CHAR) CHARACTER.PRINT (CHAR STREAM) \TELERAIDRELEASE (NDB PACKET) +\FTP.OPEN.CONNECTION (HOST FAILURESTRING ECHOSTREAM) \10MBRAWRECEIVE (NDB METADEBUGGING STATUS) +PutUnboxed (PTR NUM) \HCPYMODEDISPLAYINIT (STREAM) RESETVAR (RESETX RESETY RESETZ) CL:CHAR-BIT (NAME) +CL:CHAR-BITS (CHAR) CL:CHAR-FONT (CHAR) WORD.MATCHES.BUFFER (START BUFTAIL TABLE CH WORD) +PRINT-READER-ENVIRONMENT (ENV STREAM) POWEROFTWOP (X) SEDIT:SEDIT (SEDIT::PROPS SEDIT::NAME TYPE +SEDIT::OPTIONS) \STRINGWIDTH.HCPYDISPLAYAUX (STR FONT SPACEWIDTH CHARCODE CC) CL:GRAPHIC-CHAR-P (CHAR) + CL:MOD (CL:NUMBER CL::DIVISOR CL::FX CL::FY) XCL::IMPLICIT-KEY-REHASH (XCL::FROM-TABLE XCL::TO-TABLE +XCL::FROM-BASE XCL::FROM-LAST-INDEX) CL:NAME-CHAR (NAME) CLISPATOM1A (TAIL) GETSCREENPOSITION (CURSOR) + DUMPDATABASE1 (VALUE) CH.RETRIEVE.DOMAIN.ACL (WHICH.LIST AUTH) ERRORX (ERRORPOS) SETY.IP (IPSTREAM Y) + TEDIT.MAKESEL (STREAM CH# LEN POINT TEXTOBJ) \GS.INITBUF (BUF BUFSIZE) RPLNODE (A D) +\NSRANDOM.RELEASE.LOCK (SESSION) CL:SET-CHAR-BIT (NAME) ODDP (INTEGER) EDITTOGGLELABEL (W GRAPH DS) +PASTEFROMCLIPBOARD (STR) FMIN (K) LOAD? (ROOT LDFLG PRINTFLG) CL:DIGIT-CHAR (FONT WEIGHT RADIX) +TEDIT.SELECT (TEXTOBJ X Y WINDOW REGION WORDSELFLG SELOPERATION EXTENDING TEXTLEN) +COMPILER::ENV-PROCLAIMED-SPECIAL-P (COMPILER::NAME COMPILER:ENV) CL:MAKE-CHAR (BITS FONT CHAR) +SI::ADVICE-HASDEF (SI::NAME) PRINT-LOADED-FILE-INFORMATION (STRING FILE) LOADCOMP? (FILE FULLNAME +LDFLG) FILESLOAD (FILES) GEQ (X Y) TEDIT.SUBPARALOOKS (OLDLOOKSLIST NEWLOOKSLIST TEXTSTREAM TEXTOBJ +PCTB A SEL FIRSTPC OLDLOOKS FEATURELIST) \TEDIT.FINDAGAIN (TEXTSTREAM TEXTOBJ SEL) LOADCOMP (FILE NAME + VAL FULLNAME LDFLG) \ITEMW.CLEARSELECTION (INSPECTW) IGEQ (X Y) \INSPECTW.REDISPLAYPROP (WINDOW +PROPERTY DATUM NEWVALUE) FLESSP (Y X) \COURIER.ATTENTIONFN (BYTE DSTYPE) \CIRCSHADE.XSCAN.IP (STREAM +TEXTURE OPERATION R CX CY) CL::ASSIGN-STRUCTURE-REPRESENTATION (CL::PS) SCALE/TONODES (NODE SCALE) +ILEQ (X Y) \3MBRAWTRANSMIT (PBI) GENSYM? (X) ADD.BORDER.TO.BITMAP (BITMAP NBITS WIDTH REAL.NBITS +HEIGHT TEXTURE) COMPILER::COPY-NODE-IF (COMPILER::NODE) IMAX (K) COMP.LINKCALLP (FN) RPAQQ (X Y) +CL:ALPHANUMERICP (CHAR) TB.MAP.ITEMS (BROWSER MAPFN ITEM) SETATOMVAL (X Y) TEDIT.SET.SEL.LOOKS ( +OPERATION WASON) COMPILER::ENV-PROCLAIM-SPECIAL (COMPILER::NAME COMPILER:ENV) IMIN (K) SI::ADVICE-DELDEF + (SI::NAME) COMPLEX-COMPARE-BACKWARD (END1 END2 LEN1 LEN2) GETBOXSCREENPOSITION (BOXWIDTH BOXHEIGHT +ORGX ORGY WINDOW PROMPTMSG) VALUEOF (LINE) CL:BOTH-CASE-P (CHAR) SEDIT::REPLACE-STRING (SEDIT::CONTEXT + SEDIT::NODE STRING SEDIT::CHARS SEDIT::END SEDIT::START SEDIT::POINT TYPE) CLBINARYMINUS? ($TAIL) ROT + (N FIELDSIZE NA0615 N.B X) SI::GET-DESCRIBERS (TYPE) BRKDWNRESULTS (LABEL TOT TERP) LEQ (X Y) RPAQ? ( +RPAQX RPAQY) LOADFROM (FILE LDFLG) \GETBRUSH (BRUSH) SETYREL.IP (IPSTREAM) MAX (K) +\NSFILING.HANDLE.ERROR (SESSION LOCK FILENAME) ADJUSTLINE (IDEALLENGTH) RPAQ (RPAQX RPAQY) +CL:DIGIT-CHAR-P (CHAR CODE RADIX) COMPILER::COPY-NODE-GO (COMPILER::NODE) MIN (K) COMP.CLEANFNOP (FN +TYPE) \MACOUTCHARFN (CHARCODE STREAM) PRINT-LISP-INFORMATION (FILE STRING) FILL/GRAPHNODE/LABEL ( +STREAM LEFT NBW BOTTOM WIDTH HEIGHT) \PUTBASEFLOATP (BASE OFFST VAL) FB.UNDELETEALLCOMMAND (BROWSER) +OCTALSTRING (N \NUMSTR \NUMSTR1) READ-FILECREATED (STREAM) BREAKDOWN (X BLOCK) FORMAT-EXP-AUX (NUMBER) + \GETBASEFLOATP (BASE OFFST) INSPECTW.REPLACE (INSPECTW STOREFN DATUM PROPERTY NEWVALUE) COMPILER::CHECK-ARG + (COMPILER::VAR) DMPHASH (L ARRAYNAME A ITEM VAL) MAKE-NETWORK-TRACE-WINDOW (STREAMVAR REGION TITLE +FLGVAR WINDOW FLG) FTIMES (N) \UPDATE.PBT.RASTERWIDTHS (PAGENO) FEXPT (A N) REPLACESTKARG (WHICHSPEC +FRAMESPEC NEWVALUE) SEDIT::COPY-SELECTION (SEDIT::POINT SEDIT::SELECTION $$OUTPUT SEDIT::CONTEXT) +FORMAT-EXPONENT-MARKER (CL:NUMBER) FPLUS (N) HVFWDCDREAD (FILE RDTBL) MOVD (FROM TO FROMCELL NEWFLG) +CL:CHAR-LESSP (N) CL::COERCE-TYPE (CL::ELEMENT-TYPE) DIRECTORY.MATCH1 (TESTNAME NAMELIMIT CASEBASE) +\CIRCSHADE.DISPLAY (STREAM TEXTURE OPERATION R CY CX) DINFO.SPECIAL.UPDATE (GRAPH TYPE CURRENT.NODE +$$OUTPUT DINFOW) CL:CHAR-EQUAL (N) MSTRYSPELL (WORD) COMPILER::COPY-NODE-CATCH (COMPILER::NODE) +CL:CHAR-GREATERP (N) COMP.CLEANFNP (X TYPE) MOVD? (TO FROM DONTCOPY) CLRPLNODE (A D) CL:ALPHA-CHAR-P ( +CHAR CODE) CL:CHAR-NOT-GREATERP (N) SETXY.IP (IPSTREAM X Y) TEDIT.INCLUDE (FILE START-OF-PIECE INSPC#) + CL:CHARACTERP (OBJECT) \TELERAIDEXIT (RESET) \PS.SCALEHACK (STREAM SCALEFACTOR OLDSCALE) +CL:CHAR-NOT-EQUAL (N) \DelShade (KEY) HPRINTSP (X) NCONC1 (LST X) \BOXFPLUSDIF (BOX) DMATCH (TESTNAME) + SELECTQ1 (M) \GETSPP (CON TIMER) \TEDIT.SEL.CHANGED? (OLDSEL OLDSELOP NEWSELOP) +COMPILER::ENV-INLINE-DISALLOWED (COMPILER::NAME COMPILER:ENV COMPILER::PARENT) \BOXFTIMES2 (BOX) +SI::ADVICE-PUTDEF (SI::DEFINITION SI::NAME SI::CURRENT-ADVICE SI::CANONICAL-DEFN) CL:STRING-CHAR-P ( +CHAR) PROPNAMES (ATM) \CIRCSHADE.IP (STREAM TEXTURE OPERATION R CX CY) SEDIT::PARSE--STRING ( +CL:STRUCTURE SEDIT::CONTEXT) \BOXFQUOTIENT (BOX) \TELEBLTCURSOR (CURSOR) CL:UPPER-CASE-P (CHAR) FMAX ( +K) SEDIT::REPLACE-CHARS (SEDIT::CHARS SEDIT::END SEDIT::START SEDIT::DELTA-LENGTH TYPE SEDIT::STRING-ITEM + SEDIT::FONT SEDIT::PRIN-2? CL:LENGTH SEDIT::NODE SEDIT::POINT SEDIT::DELTA-WIDTH) \TEDIT.FIND ( +TEXTSTREAM) \LFPurgeDirectory (vol) COMPILER::COPY-NODE-CALL (COMPILER::NODE) CL:CHAR< (N) +COMP.CLEANEXPP (X TYPE) CL:LOWER-CASE-P (CHAR) CCCSCAN (DEF CA OLDREF X SUBMAPS LC CODEBASE OFFSET) +CHANGENAME (FN FROM TO) CL:CHAR> (N) CL:STANDARD-CHAR-P (CHAR) ADDPROP (PROP) CL:CHAR<= (N) +\PRESSFAMILYCODELST (WSTRM) \FLOAT (X) RPTPUT (CNT ITEM) RESET/NODE/LABELSHADE (TRANS SHADE) /REMPROP +(ATM PROP) HPERR (A1 A2) \BIGNUM.TO.FLOAT (X) ONEDINSPECT.VALUEWIDTH (PROPS FETCHFN DATUM FONT) +CL:CHAR-NOT-LESSP (N) TEDIT.EXTEND.SEL (NEWSEL X Y TEXTOBJ OSEL SELOPERATION SELWINDOW TEXTLEN A) +COMPILER::ENV-INLINE-ALLOWED (COMPILER::NAME COMPILER:ENV COMPILER::PARENT) \MAKEFLOAT (SIGN) +SI::ADVICE-GETDEF (SI::NAME SI::ENTRY) COMPILER::EFFECTS-ANALYZE-VAR-REF (COMPILER::NODE) +CL:FIND-PACKAGE (NAME) STOPSCAN? (OPR) SETXYREL.IP (IPSTREAM) CL:CHAR= (N) \CANONICALIZE.PUP.HOSTNAME +(NAME) CIRCSHADE.BLT (CENTERX CENTERY RADIUS STREAM TEXTURE OPERATION) %%MAP-FOR-EFFECT (FUNCTION +SEQUENCE) \ItemNumber (ALLITEMS ITEM) CL:CHAR/= (N) FIXSPELL (SPLST FLG) BLTVLINE (SHADE DESTINATION X + YA YB A) \LEAF.GETFILE (DEVICE FILENAME DEVINFO ACCESS OPTION RECOG) MSERASE (ATOMS AT) \LOAD-STREAM +(STREAM LDFLG PRINTFLG PACKAGE) \TEDIT.REFRESH.SHOWSEL (OLDOP NEWOP NEWSEL TEXTOBJ) \LFDirectoryP (vol +) %%MAP-SINGLE-FOR-EFFECT (FUNCTION SEQUENCE) FILEWATCHPROP (FILEWATCH#ARGS PROPNAME PROPVALUE +OLDPROPVALUE) BLTHLINE (SHADE DESTINATION XA XB Y A) CLISPATOM0 (PARENT TAIL NOFIXVARSLST1 FAULTX) NOT + (X) SETX.IP (IPSTREAM X) \VFMPutNext (key volumePage level) %%MAP-FOR-RESULT-MULTIPLE (SEQUENCES +RESULT-TYPE MIN-LENGTH) \TEDIT.FIND.PROTECTED.START (LIMITCH# TEXTOBJ CH# PCTB OURLIMIT) +%%MAP-FOR-RESULT-SINGLE (SEQUENCE RESULT-TYPE LENGTH RESULT) \LEAF.DELETEFILE (DEV FILENAME OPUP) +HRULE.CREATE (HRULE) \CIRCSHADE.BLT (STREAM R TEXTURE CX CY) \BRUSHBITMAP (BRUSHSHAPE BRUSHWIDTH +NEWBRUSHBM) %%MAP-TO-LIST (FUNCTION SEQUENCE) \TELERAIDENTRY (METADEBUGGING) TTNLEFT (BUF) CL:CHAR>= ( +N) \PFPilotVolumeP (vol) \INFINITY (SIGN) SEDIT::SELECT-SEGMENT (SEDIT::NODE SEDIT::CONTEXT SEDIT::SUBNODE + SEDIT::INDEX SEDIT::OFFSET SEDIT::ITEM) \LEAF.DEVICEP (HOST) SETCORNER (X2 X1 Y2 Y1) EDITTOGGLEBORDER + (W GRAPH DS) %%MAP-SINGLE-TO-LIST (FUNCTION SEQUENCE) DUMPDATABASE (FN) LOAD (FILE PRINTFLG) +%%MAP-SINGLE-TO-SIMPLE (RESULT-TYPE FUNCTION SEQUENCE) INSPECTW.PROPERTIES (INSPECTW) +\TEDIT.FORMAT.FOOTNOTE (PRSTREAM TEXTOBJ FORMATTINGSTATE REGION) HASDEF (NAME NODEF OPTS) +%%EVERY-MULTIPLE (SEQUENCES) IMAGEOBJP (X) \TFBRAVO.GETPARAMS (LIS NAMES) FIXEDITDATE (EXPR) +\POSTSCRIPTTAB (POSTSCRIPTDATA TABSPACE) %%NOTANY-MULTIPLE (SEQUENCES) SEDIT::GROW-SELECTION ( +SEDIT::SELECTION SEDIT::CONTEXT) XCL::UNDOABLY-SETF-SYMBOL-FUNCTION (CL:SYMBOL) MAKEFLOATNUMBER (N0 N1 +) FB.UNDELETECOMMAND (BROWSER) DELDEF (LST FIELD P) %%SOME-MULTIPLE (SEQUENCES) COMPILER::ENV-DISALLOW-INLINES + (COMPILER:ENV COMPILER::NAMES) PutFloat (PTR N) SI::MAKE-AROUND-BODY (SI::NEXT-AROUND-FORM +SI::AROUND-FORMS SI::CALLING-FORM) IMODLESSP (Y X MODULUS) EQUALN (X Y) FNS.PUTDEF (NAME REASON) +FB.UNDELETE.FILE (ITEM TBROWSER FBROWSER) TEDIT.COMPOUND.PAGEFORMAT (FIRST VERSO RECTO) +%%MAP-TO-SIMPLE (RESULT-TYPE FUNCTION SEQUENCE) FORMAT-FIXED-AUX (NUMBER) \MATMULT441 (ABASE BBASE +CBASE) UNSAFE.TO.MODIFY (FN OPTION) MSSEEKPHRASE (SOUGHT SEEKING SK MARKER OS OLA OC OP ORS) +SEDIT::PARSE--LITATOM (CL:STRUCTURE SEDIT::CONTEXT) DINFO.UPDATE.FMENU (GRAPH NEW.NODE NODELST W NODE) + \MATMULT144 (ABASE BBASE CBASE) %%SOME-SINGLE (SEQUENCE) EQMEMB (X Y) COMPILER::COPY-NODE-BLOCK ( +COMPILER::NODE COMPILER::NEW-BLOCK) \MATMULT331 (ABASE BBASE CBASE) CL::INSERT-INCLUDED-SLOT ( +CL::NEW-SLOT CL::SUPER-SLOTS CL::PS CL::OLD-SLOT) %%MAP-FOR-EFFECT-MULTIPLE (SEQUENCES) \MATMULT133 ( +ABASE BBASE CBASE) \TELERAIDSEND (NDB) GET-ONED-DISPLAYW (WHERE DISPLAYWINDOW FONT DATUM FETCHFN +STOREFN VALUECOMMANDFN PROPCOMMANDFN TITLECOMMANDFN PROPS PROFILE) FILEMAP (FILEMAP) +COMPILER::ENV-ALLOW-INLINES (COMPILER:ENV COMPILER::NAMES) \MATMULT444 (ABASE BBASE CBASE) +TEDIT.HARDCOPY-COLUMN-END (TEXTOBJ FORCENEXTPAGE CHNO FORMATTINGSTATE REGION) PRINTPACKETDATA (FILE +LENGTH BASE STREAM) NSLOGIN (HOST MSG) MSTRYPARSE (FN ARGS) \MATMULT333 (ABASE BBASE CBASE) +IMAGEOBJPROP (NARGS PROP VAL) HASH-LEFT-PAD-INITIAL-CONTENTS (SIZE IVAL-LIST PADLENGTH) +CL:SET-SYNTAX-FROM-CHAR (TO-CHAR FROM-CHAR FROM-READTABLE TO-READTABLE) \AddShade (ITEM SHADE) +CL:GET-DISPATCH-MACRO-CHARACTER (SUB-CHAR DISP-CHAR READTABLE) INSIDE? (X BOX Y) MSSETREP (X PAT VAL) +SEDIT::PARSE--BROKEN-ATOM (CL:STRUCTURE SEDIT::CONTEXT) \TEDIT.NEUTRALIZE.PARALOOKS.MENU (SEL TEXTOBJ) + FIND-MACRO-FUNCTION (FORM) LCSKIP (FN FLG) %%NOTEVERY-MULTIPLE (SEQUENCES) SEDIT::INSERT (SEDIT::POINT + SEDIT::CONTEXT SEDIT::SELECTION) CL:GET-MACRO-CHARACTER (CHAR READTABLE) COUNTDOWN (X N) RUNION (L1) +PUTFILEMAP (FILE FROMFILE?) BUILDTESTRELQ (X VAR R) DO-DISPATCH-MACRO (RDTBL CHAR STREAM +DISP-CHARACTER *READTABLE*) SETSPACE.IP (IPSTREAM SPACEWIDTH) ADDSPELL (X N) PRINTANDBOX (STREAM STRM +LFTMARGIN MINSPACE EXP) CL:MAKE-DISPATCH-MACRO-CHARACTER (CHAR READTABLE) +COMPILER::EFFECTS-ANALYZE-UNWIND-PROTECT (COMPILER::NODE) DRAWGRAYBOX (Y1 X1 X2 DESTINATION SHADE Y2) +CLISPRESPELL (TL WORDS FLG) CL:SET-MACRO-CHARACTER (CHAR READTABLE) SETXREL.IP (IPSTREAM) +\DO-DEFINE-FILE-INFO (ARGS TAIL P R) DMCHAT.HANDLE.WRAP (CHAT.STATE) FORMAT-PRINT-RADIX-AUX (CL:NUMBER +) CL:SET-DISPATCH-MACRO-CHARACTER (DISP-CHAR READTABLE NEWTABLE FUNCTION) +\TEDITMENU.RECORD.UNFORMATTED (NEWSTATE TEXTSTREAM TEXTOBJ FLG) ADDFILE (FILE ROOTNAME PRLST) +FILECOMSLST (FLG TYPE FILE) STRINGREGION (STREAM STR PRIN2FLG RDTBL) RESET/NODE/BORDER (BORDER ONBW) +IL-UNWRAP-MACRO (FORM) SEDIT::OPEN-LITATOM (SEDIT::NODE STRING SEDIT::STRING-LENGTH) +FB.HARDCOPY.PRINT.TITLE (LMARG RMARG TITLE IMAGESTREAM) UPDATEFILEMAP (DECLARESTRING FILEMAP) +HPRINTEND (Y Z HERE) SEDIT::SET-SELECTION (SEDIT::NODE SEDIT::CONTEXT SEDIT::INDEX SEDIT::OFFSET +SEDIT::ITEM TYPE) \TEDIT.LOOKS.UPDATE (TEXTOBJ BASEA0761 N ARR VAL BASEA0762 BASEA0763 BASEA0764 +BASEA0765 BASEA0766) ALLATTACHEDWINDOWS (MAINW ATW) TERM.MOVETO (CX FONTWIDTH CY) ROOTFILENAME (NAME) +READPLIST (TAB1 STREAM READTABLES NOERRORFLG) DINFO.UPDATE.MENU.DISPLAY (NODE NODELST LENGTH DINFOW +CHILD MENU BITS) \MAXWIDTHOFGROUP (ATWINFOS) SMASHFILECOMS (FILE) ITEM.WINDOW.SET.STACK.ARG (FRAME +VARNAME WINDOW OLDVALUEITEM) SI::DESCRIBE-USING-RECORD-DECL (SI::DEPTH SI::FIELD-NAME SI::OBJECT DECL) + COMP.STBIND (X) MENUITEMREGION (IMENU ITEMS ITEM GRIDSPEC BORDER) \TEDIT.FIND.PROTECTED.END (LIMITCH# + TEXTOBJ CH# OURLIMIT) FASL:PROCESS-FILE (FASL::TEXT STREAM) \FILLPOLYGON.IP (STREAM TEXTURE OPERATION + POINTS TRAJECTORY WINDNUMBER) CL::MERGE-SLOTS (CL::SUPER-SLOTS) CL-MACRO-WRAPPED-P (FORM) GET-TITLEW +(DISPLAYWINDOW TITLEWINDOW TITLEFONT TITLE DATUM) MAPRINT (LSPXPRNTFLG FILE) TB.DELETE.ITEM (BROWSER) +COMPILER::ENV-DECL-P (COMPILER::SPECIFIER COMPILER:ENV COMPILER::PARENT) ENUM-STRING (OUTSTR \NUMSTR +\NUMSTR1) SI::INSERT-ADVICE-FORM (SI::PRIORITY SI::FORM SI::ENTRY) RPTPRINT (X) +MB.DEFAULTBUTTON.ACTIONFN (OBJ) PROMPTCHAR (X) MSFIXUPTYPES (PRSD X NS) SEDIT::INSERT-STRING (SEDIT::WHERE + SEDIT::NODE SEDIT::CONTEXT SEDIT::CHARS SEDIT::POINT) DINFO.UPDATE.TEXT.DISPLAY (NODE WINDOW PROPS +FROM TO SEL OLD.TEXTSTREAM) CL:VECTOR-PUSH-EXTEND (NEW-ELEMENT EXTENSION-SIZE) \TEDIT.FIND.LAST.LINE ( +TEXTOBJ) LISPXPUT (PROP L) PUTPUPSTRING (STR) COMPILER::COPY-CODE (COMPILER::TREE) \CONVERTNUMBER (N +MAGNITUDE NS R DIGIT NSB) DINFO.UPDATE.GRAPH.DISPLAY (NODE LOCATION) COMPILER::EFFECTS-ANALYZE-THROW ( +COMPILER::NODE) NLIST (N) FILEPKGCHANGES (N) SET-FILL-POINTER (NEWVALUE) HASH-LEFTPAREN (STREAM XCL-USER::T0 + VEC) COERCE (CL::OBJECT CL::RESULT-TYPE CL::SUBTYPE) TTECHO.TO.FILE (FILE STREAM CHAR) \CML-LOAD ( +PACKAGE STREAM EOF-MARK FULL) HPRINT1 (SIZE K PR Y) HASH-A (STREAM PARAM CONTENTS) +ONEDINSPECT.RESHAPEFN (WINDOW) FILECREATED (X FILEDATE) CL-UNWRAP-MACRO (FORM) FORMAT-PRINT-RADIX ( +CL:NUMBER COLON ATSIGN) COMPILER::ENV-ADD-DECLS (COMPILER:ENV COMPILER::SPECIFIERS) FNUM-STRING ( +MANTSTR DIGITS INTEXP OUTSTR POINTPLACE) SI::SET-ADVICE-MIDDLE-MAN (SI::NAME SI::MIDDLE-MAN) +COMPILER::EFFECTS-ANALYZE-SETQ (COMPILER::NODE) CL:VECTOR-PUSH (VECTOR) COPIEDTOSPEC (SPEC) +DEFINE-FILE-INFO (ARGS) SI::DESCRIBE-USING-INSPECT-MACRO (SI::MACRO SI::DEPTH SI::FIELD-NAME SI::FETCHFN + SI::OBJECT SI::FIELDS) HASH-B (STREAM CHAR PARAM) RESHADEITEM (NEWSHADE ITEMREGION DSP MENU ITEM) +HASH-C (STREAM CHAR PARAM) \IBMPEEKCCODEFN (STRM NOERROR) HASH-BACKSLASH (STREAM) FILLTRIANGLE ( +TEMPLIST X1 Y1 X2 Y2 X3 Y3 STREAM TEXTURE OPERATION) CL::RESOLVE-SLOTS (CL::LOCAL-SLOT-DESCRIPTIONS +CL::PS CL::SUPER-SLOTS CL::LOCAL-SLOTS) FLTSTR (\NUMSTR \NUMSTR1) MOVEBOX (Y1 X2 X3 DESTINATION SHADE +X1 Y2 Y3) GREET (X) RAISEP (TTBL) \TELERAIDGET (RECEIVER NDB) TTGIVEHELP (HELPKEY) GLC (X) +\TRACKWITHBOX (SHADE) \MAXHEIGHTOFGROUP (ATWINFOS) LISPXREADP (FLG) FW-INTERACT (W) \TEDIT.WORD.BOUND +(TEXTOBJ PREVCH CH READSA) \SENDLEAF (SEQUIN FILENAME DONTWAIT) GETPUPSTREAM (LENGTH ACCESS +WRITEXTENSIONFN) \LFMakeVolumeDirectory (vol directoryID) HASH-COLON (STREAM CHAR PARAM) HASH-COMMA ( +STREAM CHAR PARAM FORM) EDITBMTEXTURE (BM X Y) FILEDATE (CFLG) HASH-DOT (STREAM CHAR PARAM) GREET0 ( +DATE) FLTINTLOG (TEXP THI TLO RESULT) /PUT (PROP VAL) DWMFY0 (DWIMIFYCHANGE) RPLCHARCODE (X CHAR LEN +BASEA0356 OFFSETA0355) FILECREATED1 (X FILE) \LEAF.CLOSEFILE (INTERNAL) HASH-DOUBLEQUOTE (STREAM CHAR +PARAM) SEDIT::SET-POINT (SEDIT::NODE SEDIT::POINT SEDIT::CONTEXT SEDIT::INDEX SEDIT::OFFSET SEDIT::ITEM + TYPE SEDIT::COMPUTE-LOCATION?) EDITE (COMS ATM TYPE IFCHANGEDFN OPTIONS) \LIMITBYMAX (N) +\UPDATEXYANDBOX (DESTINATION SHADE) HASH-MINUS (STREAM CHAR PARAM) RIGHTW.RESHAPEFN (WINDOW) +PRETTYCOMPRINT (X) TRACKNODE (W) HASH-ILLEGAL-HASH-CHAR (CHAR) HASH-LEFTANGLE (CHAR PARAM STREAM) +SI::GET-ADVICE-MIDDLE-MAN (SI::NAME) PUTPROPS (X Y) READLINE (FL RDTBL) HASH-PLUS (STREAM CHAR PARAM) +BOOTSTRAP-NAMEFIELD (FILE) DMCHAT.ADDRESS (CHAR ADDRESSING NEXTPOS CHAT.STATE) COMPILER::ENV-BIND-VARIABLE + (COMPILER::NAME COMPILER::STRUCT COMPILER:ENV) %%PRINT-PATHNAME (STREAM S) HASH-O (STREAM CHAR PARAM) + CONCATT.IP (IPSTREAM) %%PRINT-DIRECTORY-COMPONENT (S STREAM) DINFO.UPDATE.HISTORY (OLDITEMS DINFOW +HISTORYW) HASH-R (STREAM) TEMPLATE (FN TEMPLATE) TTYINSTRING (BUF CH) DECLARE%: (X) COMPILER::RELEASE-VAR-REF + (COMPILER::NODE) HASH-QUOTE (STREAM CHAR PARAM) COMP.STSETQ (VREF) PUTPUPBYTE (BYTE# VALUE) RESETBUFS + (FORMS) BUILDGETRELQ (X VAR REL) HASH-STAR (STREAM CONTENTS LEN BITARRAY) TITLEW.REPAINTFN (WINDOW) +FILE-NAME (FILE NAME) COMPILER::PRINT-ENV (STREAM COMPILER::STRUCT) \EXTFTIMES (EXPX EXPY) +SI::DELETE-ADVICE (SI::NAME) GETBOXREGION (WIDTH HEIGHT ORGX ORGY WINDOW PROMPTMSG) DWMFY1 (FORM) +\LIMITBYMIN (N) INSIDEP (REGION POSORX Y) HASH-X (STREAM CHAR PARAM) COPYINSERT (TTYW IMAGEOBJ) +\STRINGIN (SETLEN N WIDTH LEN STREAM) REMPROPLIST (ATM PROPS) NODELST/AS/MENU (NODELST POS Y X) +SETFONT.IP (IPSTREAM FONTNUM) %%NUMERIC-STRING-P (STRING) HASH-VBAR (CHAR PARAM STREAM) +FB.HARDCOPY.MAXWIDTH (FONT FILES ATTRINDEX) COMPARENCHARS (X) ENDFILE (FILE) SCALE.IP (IPSTREAM S) +CL::ASSIGN-SLOT-OFFSET (CL::PS) READHOTSPOT (GRIDSPEC DS BM GRIDINTERIOR) HASH-NUMBER-SIGN (PARAM +CIRCLE-PART) \TELERAIDCOMMAND (KEYNUMBER NDB) TTRATOM (STRM) WBOX (DS REG TEXTURE) \ITEMW.DESELECTITEM + (WINDOW) FORMAT-PRINT-HEXADECIMAL (COLON ATSIGN PARMS) HASH-S (STREAM CHAR PARAM) HASH-EQUAL (NEWNODE + STREAM) COMP.STVAR (VREF) SI::INSPECT-MACRO-USABLE-BY-DESCRIBE? (SI::MACRO) HASH-STRUCTURE-LOOKUP ( +SLOTCONTENTS) GETPUPSTRING (NC) FB.SORT.VERSIONS (SORTFN) FORMAT-PRINT-OCTAL (COLON ATSIGN PARMS) +\SEARCHPRESSFONTS (FAMILY PSIZE FACE ROTATION) COMPILER::ALPHA-FORM (COMPILER::FORM) +COMPILER::EFFECTS-ANALYZE-RETURN (COMPILER::NODE) CMLREADSEMI (STREAM) TERM.ADDLINE (CHAT.STATE ATYPOS + DSP FONTHEIGHT TTYWIDTH Y) FORMAT-PRINT-BINARY (COLON ATSIGN PARMS) \EXTFQUOTIENT (EXPX EXPY) +CLISPEXPANSION (X) MSJOINSET (SET2) CL::ENSURE-CONSISTENT-PS (CL::PS) INIT-CML-READTABLES (FILETBL) +TYPERECORD (NAME&FIELDS) SETLASTC (CHAR) SEDIT::HASFAT (SEDIT::STR) GRAYBOXAREA (TEXTURE DS X Y WIDTH +HEIGHT) PARSE-NAMESTRING1 (START) COMPILER::EFFECTS-ANALYZE-PROGN (COMPILER::NODE) +\CONVERT.FLOATING.NUMBER (OUTSTR OSINDEX OUTSTRPTR \CFNSTRING) COMP.LOOKUPCONST (Y) EDITMOVENODE ( +WINDOW DS) \VFMMarkBufferDirty (BUFFERPAGE) TERM.PRINTCHAR (DSP DISPLAYDATA CHAR XPOS) CL:TRUNCATE ( +CL:NUMBER CL::DIVISOR) \TEDIT.SCALE (VALUE SCALEFACTOR) PUTPUPWORD (WORD# VALUE) +%%DIRECTORY-COMPONENT-EQUAL (COMPONENT1 COMPONENT2) \IBMINCCODEFN (STRM) CL:LOG (CL:NUMBER) +COMPAREPRINTN (N STREAM) FASL-FILEDATE (STREAM X CFLG) CL:MAKE-ARRAY (RANK NELTS DISPLACED-TO +ELEMENT-TYPE DISPLACED-INDEX-OFFSET FATP INITIAL-CONTENTS INITIAL-ELEMENT) SEDIT::INSERT-LITATOM ( +SEDIT::NODE SEDIT::CONTEXT SEDIT::WHERE SEDIT::POINT) SKOR (X Y) COMPILER::PRINT-CONTEXT (COMPILER::STRUCT + COMPILER::TL COMPILER::VALS COMPILER::PRED COMPILER::APP STREAM) CL::%%COPY-TIME-STATS ( +CL::DESTINATION-BLOCK CL::REFERENCE-BLOCK) SI::ADD-ADVICE (SI::NAME) CL:SPECIAL-FORM-P (CL::X) MSFAIL +(FLG) CL::PS-NUMBER-OF-SLOTS (CL::PS) COMPILER::EFFECTS-ANALYZE-OPCODES (COMPILER::NODE) TTREADLIST ( +STRM) MB.CREATE.NWAYBUTTON (BUTTONS OBJECT INITSTATE) GLOBAL-MACRO-FUNCTION (ENV X) %%MAKE-PATHNAME ( +HOST DEVICE DIRECTORY NAME TYPE VERSION) COMPILER::RELEASE-TAGBODY (COMPILER::NODE COMPILER::SEGMENT +COMPILER::STMT) \CHECKSUM (BASE NWORDS) \PFReplaceString (maxLength LENGTH startLoc lengthLoc) +\IBMOUTCHARFN (CHARCODE STREAM) COMPILER::EFFECTS-ANALYZE-PROGV (COMPILER::NODE) +SEDIT::GROW-SELECTION-LITATOM (SEDIT::SELECTION SEDIT::CONTEXT SEDIT::NODE) \MAIKO.PUNTBLTCHAR ( +CHARCODE DISPLAYSTREAM) COMPILER::RELEASE-THROW (COMPILER::NODE) GET-ENVIRONMENT-AND-FILEMAP (FULL) +TERM.DOWN (YPOS BOTTOM XPOS FONTHEIGHT NLINES DSP) FB.IS.NOT.SUBDIRECTORY.ITEM (ITEM) +FORMAT-PRINT-DECIMAL (COLON ATSIGN PARMS) \GETPRESSFONTNAMES (FACE WSTRM PSIZE FAMILYCODELST FAMILY +MICASIZE ROTATION) GRAPHEDITCOMMANDFN (GRAPHWINDOW) \SHADEBITS (BM COLOR BITSWIDE W GRIDSPEC BITSHIGH +GRIDINTERIOR) \FLOATINGSCALE (INTEXP TEXP THI TLO BOX) COMPILER::RELEASE-UNWIND-PROTECT (COMPILER::NODE +) GETEXPRESSIONFROMEVENTSPEC (LINE) \INIT.POWERS.OF.TEN (TEXP THI TLO) COMPILER:ENV-FBOUNDP (COMPILER:ENV +) GET-FILEMAP-FROM-FILECREATED (STREAM) \SETGROUPMIN (GROUPSIZE) CL:COMPILE-FILE (CL:LOAD +COMPILER::*LAP-STREAM* COMPILER::INPUT-FILE) IMAGEBOX (OBJ STREAM MODE) EXTENDREGIONTOP (OLDTOP NEWTOP +) SI::DESCRIBE-USING-DESCRIBERS (SI::DESCRIBER SI::OBJECT SI::DEPTH SI::DESCRIBERS) +LOOKUP-ENVIRONMENT-AND-FILEMAP (FULL KEY ENTRY) \DRAWLINE1 (BITMAPBASE Y0 RASTERWIDTH X0 DX YINC DY +MODE CDL XLIMIT YLIMIT) \MAKEFRAME (FN ST ALINK CLINK END DEF ARGS ARGLOCN) CL:MACRO-FUNCTION (CL::X +CL::ENV) \VFMSmartBLT (SBASE DBASE XA0721 NWORDS) GETREGION (MINWIDTH MINHEIGHT INITREGION NEWREGIONFN + NEWREGIONFNARG INITCORNERS) \BN.DIFFERENCE (U V) SETRGB.IP (IPSTREAM RED GREEN BLUE COLORMODEL.FVAR) +\GETBASEFIXP (\NewBaseAddr BASE OFFST) \FILING.ATTRIBUTE.TYPE.SEQUENCE (ATTRIBUTETYPES ATTR) +\TEXTTTYBOUT (BYTE TEXTOBJ TABLEA0735) NODECREATE (ID POS LABEL FONT TONODEIDS FROMNODEIDS BORDER +LABELSHADE) \SETIOPOINTERS (KBDBASE) CL::DEFSTRUCT-PARSE-OPTIONS (CL::NAME&OPTIONS CL::NAME CL::PS) +ARRAYBLOCK (NAME&FIELDS) SIZE/GRAPH/WINDOW (GRAPH WINDOW/TITLE GRAPHREG) TB.FINISH.CLOSE (BROWSER +CLOSEFLG DONTCLOSE) \D01.FAULTINIT (WIDTH) FW-RESIZE-OFD (MAXNAMEWIDTH NAMEWIDTH) COMPILER::LOCAL-CONSTANT-P + (CL:SYMBOL) ENTEREVALQT (X) INFINITEP (CL:NUMBER) \DL.FAULTINIT (BASE) IN/ITEM? (POS ITEMS XPOS YPOS) + \SEQUIN.HANDLE.ACK (QUEUE ACKSEQ) \MP.ERROR (STRING ARG1 ARG2) \TEXTMARK (TEXTOBJ STREAM) +FW-UPDATE-OFD-WINDOW (FILESTREAM OLDEOFPOS OFDSTREAM OLDCURPOS OLDPCTPOS BOXBORDER) \TEDIT.PAPERWIDTH +(PAPERSIZE) \FILING.ATTRIBUTE.TYPE (ATTR NOERRORFLG) GETPUPBYTE (BYTE#) CL:MACROEXPAND (CL::ENV) +\SPP.CHECK.INPUT.QUEUE (CON INQ ACKNO) PARSE-DEFMACRO (ARGUMENT-LIST) \TELERAIDINIT (FN VAR) +\BULK.DATA.CLOSE (CONTINUATION) \BN.DIVIDE (FLG) SI::FINISH-UNADVISING (SI::ADVICE-NAME) +COMPILER::ENV-BIND-FUNCTION (COMPILER::NAME COMPILER::KIND COMPILER::EXPN-OR-VAR COMPILER:ENV) +\FILEMAP-HASHOVERFLOW (HARRAY VAL ROOT KEY) READVARS-FROM-STREAM (SYMBOL VALUE SYMBOLS STREAM) +SEDIT::LINEARIZE (SEDIT::NEW-LPTR SEDIT::RIGHT-MARGIN SEDIT::ME) WALK-FORM (XCL::X XCL::FORM XCL::RESULT +) FB.DELVER.FILES (FILES NVERSIONS TBROWSER) FB.DELVERCOMMAND (FBROWSER ITEM) FINITEP (CL:NUMBER) +COMPILER::MAKE-CHILD-ENV (COMPILER::PARENT) MS-SMASH-PACKAGE (PACKAGE CARPART CDRPART) +SEDIT::GET-BUTTON-STRING (SEDIT::NODE) DINFO.SETUP.WINDOW (WINDOW) \BIGNUM.TO.INT (X) FLUSHFILEMAPS ( +ROOTNAME ME FULLNAME) COMPILER::RELEASE-SETQ (COMPILER::NODE) FB.CLOSE&EXPUNGE (TBROWSER WINDOW +BROWSER FLG) COMP.MACRO (MAC EXP EXPANSION) HASHRECORD (NAME&FIELDS) CL::ENSURE-VALID-TYPE ( +CL::TYPE-FORM) \BN.QRS (I) PPSPPSTREAM (FILE) EDITSHADE ($$OUTPUT) \ARBIN (N WIDTH LEN STREAM) \BN.ABS + (U) SI::FINISH-ADVISING (SI::FN-TO-ADVISE SI::ORIGINAL SI::ADVICE-NAME) \TEDIT.HCPYFMTSPEC ( +IMAGESTREAM SPEC SCALEFACTOR TAB) \TEXTDSPXPOSITION (STREAM) LISPSOURCEFILEP (HERE) +\INSPECTW.COMMAND.HANDLER (INSPECTW) SI::DESCRIBE-INTERNAL (SI::DEPTH SI::OBJECT TYPE SI::TYPE-NAME) +COMPILER::EFFECTS-ANALYZE-MV-PROG1 (COMPILER::NODE) EDITSHADEREPAINTFN (WIN) LVLPRINT (X FILE CARLVL +CDRLVL TAIL) SEDIT::DETRANSLATE-CHARS (SEDIT::STR) COMPILER::CRACK-DEFMACRO (COMPILER::FORM) +XCL::PPRINT-DEFINER-FITP (XCL::ITEM) ENTRY# (HIST) COURIER.READ.BULKDATA (STREAM PROGRAM TYPE +DONTCLOSE) DIRECTORY.FILL.PATTERN (PATTERN DEFAULTVERS DEFAULTEXT) COMP.PROG1 (A) CL:BIT-VECTOR-P ( +VECTOR) \VFMFreeVPage (volumePage vfmFileD group) SETCOLORLV.IP (DIM SHADE IPSTREAM ANGLE) +\TEDIT.PAPERHEIGHT (PAPERSIZE) %%PATHNAME-EQUAL (PATHNAME1 PATHNAME2) TERM.DELCHAR (CHAT.STATE DSP +XPOS FONTWIDTH Y TTYWIDTH FONTHEIGHT) EQMEMBHASH (V X H) HPRINT0 (VARS X) SETCOLOR16.IP (DIM SHADE +IPSTREAM OPERATION) CL::SIMPLE-STRING= (STRING1 STRING2 BASE1 OFFSET1 TYPENUMBER1 BASE2 OFFSET2 +TYPENUMBER2) TERM.LEFT (XPOS NCHARS) FORMAT-PRINT-ORDINAL (N) CL:ARRAY-DIMENSIONS (ARRAY) +SEDIT::DELETE-LITATOM (SEDIT::NODE SEDIT::START SEDIT::END STRING SEDIT::CONTEXT SEDIT::SET-POINT?) +COMPILER::EFFECTS-ANALYZE-LITERAL (COMPILER::NODE) LVLPRIN1 (X CARLVL CDRLVL TAIL) +MB.THREESTATE.WHENOPERATEDFN (OPERATION OBJ DS) %%FLATTEN-ARRAY (ARRAY) \TEDIT.NSCHAR.RUN (STREAM CHNO + PCTB START-OF-PIECE) REDISPLAYGRAPH (WINDOW REGION) COMPILER::RELEASE-PROGV (COMPILER::NODE) +XCL::%%DEFINE-TYPE-SAVE-DEFN (XCL::NAME CL:HASH-TABLE) COMP.VAR (DECL) \MAKERECODEMAP (CODEMAP CSMAP +MAPARRAY) \M44ACTONVMEMFILE (FIRSTPAGE BUFFER CAs DAs LASTPAGE) COMPILER::RELEASE-RETURN (COMPILER::NODE +) LVLPRIN2 (X CARLVL CDRLVL TAIL) \TEXTDSPYPOSITION (STREAM) \TEDIT.FORMATTABS (TABSPEC DFLTTABX +MARGINXOFFSET GRAIN CHBASE WBASE) SUPERPRINTEQ (X) \ITEM.WINDOW.SELECTION.HANDLER (WINDOW) GETPOSITION + (WINDOW CURSOR) SCALEPAGEXUNITS (FACTOR PAPERSIZE LANDSCAPE?) \SEQUIN.COMPARE (X Y DIF) COMPAREPRINT1 + (A B STREAM) LVLPRIN (X CARLVL CDRLVL) CL::PARSE-SLOT (CL::DESCRIPTION CL::SLOT) \TELERAIDSERVER (NDB + IDLO IDHI KEYNUMBER EXCESS) \REMOVE-DECLS (CL:DECLARATION CL::NAME CL::ENVIRONMENT CL::NEW-FORM CL::VAR +) PTPLUS (PT1 PT2) SI::UNADVISE-FROM-RESTORE-CALLS (SI::ENTRY SI::FROM SI::FN SI::TO) MSREHASH (HA) +SEDIT::COPY-STRUCTURE-STRING (SEDIT::FONT SEDIT::PRIN-2?) COMPILER::EFFECTS-ANALYZE-LAMBDA (COMPILER::NODE + COMPILER::EFFECTS COMPILER::AFFECTED) \LEASTPTAT (DA DB THISB) MB.THREESTATE.SHOWSELFN (OBJ DS +IMAGEBOX SEL) PRINTPARA (FILE LIST) EXTENDREGIONRIGHT (OLDRIGHT NEWRIGHT) COMPILER::RELEASE-PROGN ( +COMPILER::NODE) \PFFetchString (lengthLoc maxLength STR startLoc) ENABLEWHEELSCROLL (K KAT I) READVARS + (VARS) TERM.ERASE.TO.EOL (CHAT.STATE XPOS) \BN.IDIVIDE (A B) \EVAL-PROGN (BODY ENVIRONMENT) +XCL::%%DELETE-DEFINER (XCL::NAME) PPSPP (CON NEXT) COMMON-LISP (COMMON-LISP-FORMS) XCL::%%EXPAND-DEFINER + (XCL:DEFINER XCL::DEFINITION-WITHOUT-COMMENTS XCL::ENV) READVISE (ENTRY) \TRANSLATE-CL%:LAMBDA (EXPR) + \TEXTLEFTMARGIN (STREAM) COMPILER::EFFECTS-ANALYZE-MV-CALL (COMPILER::NODE) SCALEPAGEYUNITS (FACTOR +PAPERSIZE LANDSCAPE?) XCL::GET-DEFINER-NAME (STRING XCL:DEFINER) EDITGRAPH2 (W) SUBLIS (EXPR A D ALST) + SPECVARS (A) XCL::%%REMOVE-SPECIAL-FORM (XCL::X) \TEDIT.PURGE.SPACES (BASEA0744 CHLIST BASEA0745) +DSUBLIS (ALST FLG A D) \ITEMW.FLIPITEM (ITEM DS REG) CL::RECORD-DOCUMENTATION (CL::PS) +XCL::%%DEFINER-NAME (XCL:DEFINER XCL::DEFINITION-WITHOUT-COMMENTS) HISTORYMATCH (INPUT PAT) +FB.DELETE.FILE (ITEM TBROWSER FBROWSER) PTDIFFERENCE (PT1 PT2) \VFMFind (key level proc) PRINTPARA1 ( +CLOSECOUNT) TEDIT.PARSE.PAGEFRAMES1 (VAL ALIST FRAMESPEC) BIGNUM.DEFPRINT (BIGN R STREAM C) +\MAIKO.NEWFAULTINIT (NBUFFERS) \BN.TH2D (TH MAXFACTOR) \MAIKO.DO.MOVDS (PAIR FROMCELL) \INVALID.RADIX +(N) \BITMAPFROMTEXTURE (FIXP SHADE) \ATWGROUPSIZE (ATW) PARSE-BODY (XCL::BODY XCL::TAIL XCL::DECLS +XCL::DOC) ROTATE.IP (IPSTREAM S) \TEXTRIGHTMARGIN (STREAM TEXTOBJ RIGHTMAR) FB.UPDATE.COUNTERS ( +FBROWSER COUNTERW TOTAL DEL TOTALPAGES DELPAGES TYPE XPOSPAIRS PAGESTRING HEIGHT) NESTED.SUBMENU.POS ( +IMENU STREAM ITEMS ITEM GRIDSPEC BORDER DD) TB.MAP.SELECTED.ITEMS (BROWSER LASTITEM# MAPFN) +EXTENDREGIONLEFT (OLDLEFT NEWLEFT) \BN.NZEROS (N) CONSTANTOK (X) PRINTSPP (EPKT BASE FILE COMMA) +ADDHASH (ITEM ARRAY VAL) \TEXTSTREAM.FILENAME (TEXTSTREAM TEXTOBJ) TEDIT.HARDCOPYFN (WINDOW +IMAGESTREAM) PRINT3TO10 (EPKT CALLER) PRINENDLINE (NEWXPOSITION NS) FIXLISPX/ (X FN) +FORMAT-PRINT-CARDINAL (N) CHANGEFONT (FILE) ITEMW.REPAINTFN (WINDOW REGION) EDITDELETENODE (W GRAPH DS + TOND FROMND) POLYSHADE.SCAN.IP (SCANDIRECTION MicasToDev I STREAM TEXTURE OPERATION) +CL::ASSIGN-SLOT-ACCESSOR (CL::SLOT CL::CONC-NAME) \TEDIT.APPLY.PARALOOKS (SEL W TEXTOBJ TAB A B +MAINTEXT) COMPILER::EFFECTS-ANALYZE-LABELS (COMPILER::NODE) \GREATESTPTAT (DA DB THISB) +MB.THREESTATEBUTTON.FN (OBJ TEXTOBJ) RESETGRID.NEW (WINDOW WIDTH HEIGHT BM) BITMAPOBJ.SNAPW (REG SCALE +) SUBPRINT/ENDLINE (FILE N) COMP.USERFN (X) EDITGRAPH (G W) FITP (SPACEWIDTH LSTCOL N X) +\TEDIT.BUTTONEVENTFN (W) SUPERPRINT (E TAIL TEM BRFLG) MAKEHASH (N) SUBHASH (ITEM ARRAY VAL) +SEMI-COLON-COMMENT-P (E) MAKEHVPRETTYCOMS (VARS X) \TEXTDSPFONT (STREAM TEXTOBJ WIN) SCALE2.IP ( +IPSTREAM X Y) SEDIT::COPY-SELECTION-LITATOM (SEDIT::SELECTION SEDIT::NODE STRING SEDIT::END TYPE +SEDIT::CHARS SEDIT::CONTEXT SEDIT::POINT SEDIT::DELETE?) FB.DELETECOMMAND (BROWSER) \MENU.ITEM.SELECT +(MENU COLUMN ROW) CL::REMOVE-DOCUMENTATION (CL::SLOT-DESCRIPTIONS CL::DOC? CL::PS) DINFO.READ.GRAPH ( +QUIETFLG FILE FULLFILENAME DATA) COMPILER::EFFECTS-ANALYZE-IF (COMPILER::NODE) \SEQUIN.CLEANUP (SEQUIN +) \CLIPCODE (X LEFT Y TOP BOTTOM RIGHT) DMCHAT.CLEAR (DM2500.STATE) COMPILER::RELEASE-MV-PROG1 (COMPILER::NODE +) GETFILEPKGTYPE (TYPE ONLY) COMP.TRYUSERFN (EXP) SETMAINTPANEL (N) SPY.DRAWBOX (BITMAP BORDERWIDTH +HEIGHT TEXTURE WIDTH) \NOTE.3TO10 (PUPHOST NDB NSADDR) TERM.ADDCHAR (CHAT.STATE DSP XPOS Y FONTWIDTH +FONTHEIGHT) \BN.ICANON (SIGN U0) PRINTATBOX (OLDBOX WINDOW EXP) COMPILER::GENERATE-CODE (COMPILER::TREE + COMPILER::*CODE*) \DOFORMATTING (FMTSPEC QUAD SPACELEFT TEXTOBJ BASEA0746 CHLIST BASEA0747 BASEA0748 +BASEA0749 WLIST BASEA0750 BASEA0751 N ARR VAL BASEA0752) \TEDIT.PARABOUNDS (TEXTOBJ CH# PCTB) +FIXAPPLY1 (POS OLD NEW *FORM*BLIP X) XCL::UNDOABLY-MAKUNBOUND (CL:SYMBOL) FB.HEADINGW.REDISPLAYFN ( +WINDOW) \TEXTMENU.DOC.CREATE (MENUPROPS MENUDESC) \DL.NEWFAULTINIT (NREALPAGES SCRATCHVP SCRATCHBASE +LASTREALPAGE NBUFFERS) POLYSHADE.BLT (POINTS STREAM TEXTURE OPERATION) +SEDIT::COMPUTE-SELECTION-POSITION-LITATOM (SEDIT::NODE SEDIT::STRING-ITEM) XCL::MAKE-UNDOABLE (XCL::FORM +) KEYWORD-TEST (ARGS TAIL) COMPILER::EFFECTS-ANALYZE-GO (COMPILER::NODE) +UPDATE/BM/DISPLAY/SELECTED/REGION (W) COMPILER::RELEASE-MV-CALL (COMPILER::NODE) COMP.PROGLST (CONTEXT +) MAPRELATION (MAPFN RELATION MAPW MAPFN2 MAPX HT2 MAPZ Z) SHAPEW.POP (WINDOW) GETCP.IP (IPSTREAM) +\TEXTDSPLINEFEED (STREAM) DMCHAT.RIGHT (XPOS DM2500.STATE) \NSFILING.REMOVEQUOTES (NAME) \BN.MADD (A B +) COMPAREPRINT (X Y STREAM) CL:IF (CL::TEST CL::THEN CL::ELSE) COMPILER::META-EVALUATE (COMPILER:CONTEXT +) TEXTMENU.CLOSEFN (W) POLYSHADE.IP (STREAM POINTS TEXTURE OPERATION WINDNUMBER) +SEDIT::COMPUTE-POINT-POSITION-LITATOM (SEDIT::NODE) COMPILER::EFFECTS-ANALYZE-CATCH (COMPILER::NODE) +HASHLINKS (TRAN) SHOWBUTTON (BUTTON BLOCK DS) PROMPTFOREVALED (FONT MSG MINWIDTH MINHEIGHT) +FB.COUNTER.STRING (FBROWSER NFILES NPAGES) COMP.UNBIND.VARS (F) COMPILER::ANNOTATE-TREE (COMPILER::TREE +) \TEDIT.BASICFIND (CHLIM STRING SEL TEXTLIM TEXTSTREAM CH#1) LEVELEDFORM (EXP CARLEV CDRLEV) +FORMAT-WRITE-FIELD (STRING STRLEN MINPAD MINCOL COLINC) FB.HEADINGW.RESHAPEFN (WINDOW FBROWSER) +\SETTYPEMASK (NTYPX DTD BITS) CL:EVAL (CL::HOOKFN CL::EXPRESSION CL::ENVIRONMENT) CHOOZ (X NCXWORD0 +FROMDWIM) \INTERPRET-ARGUMENTS (\LENGTH \FN-NAME \ARGUMENT-BLOCK \ENVIRONMENT) TESTRELATION (RELATION +ITEM TABLE) LASTC (FILE LASTCCODE) MASKSTROKE.IP (IPSTREAM) \TEXTDSPCHARWIDTH (CHARCODE STREAM) +TERM.DELETELINE (CHAT.STATE DSP BOTTOMMARGIN FONTHEIGHT TTYWIDTH ATYPOS) POSTSCRIPT.PUTBITMAPBYTES ( +BITMAP WIDTH STREAM HEIGHT BYTEOFFSETPERROW BYTESPERROW BMBASE PS.BITMAPARRAYBASE PRVBM PRVBASE) +COMPAREFAIL (FN X Y) EXTENDREGIONBOTTOM (OLDBOTTOM NEWBOTTOM) PEEKC (FILE STREAM) +TEDIT.MINIMAL.WINDOW.SETUP (PROPS TEXTSTREAM SEL) PEEKCCODE (FILE NOERROR) PARSERELATION1 (ROOT MOD) +CLISP% (CLISPX) ISET.IP (IPSTREAM IVAR) TEXTSTREAM.TITLE (STREAM TEXTOBJ) \LOOKUPPORT (OPUP SOC) +BRKDWNINIT (BLOCK) \CHECKEOLC.CRLF (STREAM BYTECOUNTVAR BYTECOUNTVAL) /DSUBST (NEW) +\POLYSHADE.YSCAN.IP (STRM FILL.SHADE FILL.FRULE ALIST FILL.WRULE) \NSIN.24BITENCODING.ERROR (STREAM) +/NCONC (L) BMOBJ.GETFN4 (STREAM SCALE ROT DESCENT) COMPILER::PEEPHOLE-OPTIMIZE (COMPILER::LAP-FN) +RATOM (FILE *READTABLE* \PNAMESTRING) SMASH.THE.DAMNED.CONST.IN.ATTACHWINDOW (TEMPWINDOW) /ATTACH (X) +\SUBREAD (READTYPE EOF-VALUE TABLE SA PBASE \RBFLG) TEDIT.GET (FILE UNFORMATTED? +TEDIT.GET.FINISHEDFORMS FORM) \DL.MARK.PAGES.UNAVAILABLE (LASTRP FIRSTRP) \TEXTDSPSTRINGWIDTH (STRING +STREAM) /SETPROPLIST (ATM LST) TREEGRAPHNODE (TREE DEPTH) \PS.BOUTFIXP (STREAM BASE c) UPPERCASEARRAY +(CA) \FDECODE/BUTTON (BUTTONSTATE) COMPAREMAX (X Y) \DL.UNMAPPAGES (LASTFP FIRSTFP) +FIND-EDIT-LOCATION-TAIL (X OTHERS EXPRESSION) ONEDINSPECT.SCROLLFN (WINDOW DY RIGHTWINDOW FLG DX) +/NCONC1 (LST X) SHOWPRIN2 (X FILE RDTBL) UPDATE/SHADE/DISPLAY (WIN BOTTOM BM) /PUTHASH (ITEM ARRAY VAL +) TERM.UP (YPOS HOMEPOS NLINES) \TOP-LEVEL-READ (OLD-EOS-OP EOF-VALUE \PNAMESTRING PRESERVE-WHITESPACE + RESULT) CHECK-BINDABLE (VAR) SEDIT::CLOSE-NODE-LITATOM (SEDIT::OLD-STRING) READC (RDTBL) +MB.CREATE.THREESTATEBUTTON (TEXT FONT BOX OBJ STATECHANGEFN INITSTATE) \DO.PROGV (VARS VAR VALUES +FNTOCALL) COMPILER::RELEASE-LAMBDA (COMPILER::NODE COMPILER::VAR COMPILER::OPT-VAR COMPILER::KEY-VAR) +COMP.BIND.VARS (ARGS VARNAME DECLARATIONS TYPE) \8859PEEKCCODEFN (STRM NOERROR) GRAPHDELETENODE (NODE +WINDOW) FILLRECTANGLE.IP (IPSTREAM IPDATA SCALED-VISRIGHT SCALED-VISLEFT SCALED-VISTOP +SCALED-VISBOTTOM) READCCODE (RDTBL CODE) CACCESSFNS (NAME&FIELDS) GET-RIGHTW (DISPLAYWINDOW +RIGHTWINDOW FONT) EDITBMRESHAPEFN (BMEDITWINDOW BM TEMPBM.W TEMPBM.H ZEROBMFLG) MOVETOP (X) +BMOBJ.GETFN2 (STREAM SCALE ROT) READP (FILE STREAM DEVICE FLG) SEDIT::EDIT-SELECTION (SEDIT::CONTEXT +SEDIT::OPTIONS) \LOADNSHOSTNUMBER (BASE) FIND-EDIT-LOCATION (SEEN DEFINITION) +\10MB.PRINT.ENCAPSULATION (STREAM PACKET) \TEXTOPENF (STREAM TEXTOBJ) LAYOUTGRAPH (ROOTIDS NODELST +FORMAT N) POSTSCRIPT.SHOWACCUM (STREAM) SKIPSEPRCODES (FILE RDTBL CHAR TABLE SA) +\TEDIT.MENU.WHENHELDFN (ITEM) /PUTASSOC (ALST KEY VAL) SEDIT::BACKSPACE-UNKNOWN (SEDIT::CONTEXT SEDIT::NODE +) SKIPSEPRS (FILE RDTBL) SHOWPRINT (X FILE RDTBL) COMPILER::RELEASE-LABELS (COMPILER::NODE COMPILER::BINDING +) FB.COUNTERW.REDISPLAYFN (COUNTERWINDOW BROWSER) COMP.CHECK.VAR (X) MOUSESTATE-NAME (KEYNAME) +\VFMCreateVPage (vfmFileD group) \SIMPLIFY.CL.ARGLIST (LST) CLOSE.WINDOWS.IN.REGION (W) +INITIALIZECOLOR.IP (IPSTREAM COLORMODELOP.FVAR) MBUTTON.SET.FIELD (TEXTSTREAM TEXTOBJ FIELD VALUE) +\SETNEWTIME0 (NEWTIME A OLDTIME) TERM.MODIFY.ATTRIBUTES (CHAT.STATE ATTRIBUTES) COMPILER::EFFECTS-ANALYZE-CALL + (COMPILER::NODE) FORMAT-PRINT-NAMED-CHARACTER (CHAR CH) \PAGEFAULT (X) SKREAD (RDTBL FILE TABLEA0343 +*READTABLE*) TEDITMENU.STREAM (TEXTSTREAM MAINWINDOW) DMCHAT.HANDLECHARACTER (CHAR) +CL:MAKE-CONCATENATED-STREAM (STREAMS STREAM) I.S.OPR (NAME UC EXP) SEDIT::BACKSPACE-LITATOM (SEDIT::CONTEXT + SEDIT::NODE STRING SEDIT::SUPER-NODE SEDIT::START SEDIT::END) \TEDIT.APPLY.SLOPE (BUTTON NEWLOOKS) +CL:MAKE-STRING-INPUT-STREAM (CL::START STRING) EXTENDREGION (INCLUDEREGION) COMPILER::REMOVE-EFFECT ( +COMPILER::EFFECTS-REP COMPILER::EFFECT) COMPILER::RELEASE-IF (COMPILER::NODE) TOTOPW.MODERNIZE (WINDOW +) COMP.BINDLIST (VARS VAR) EDITDELETELINK (W) LISPXREAD (FILE RDTBL) CL:READ (INPUT-STREAM +\PNAMESTRING EOF-VALUE) \8859INCCODEFN (STRM) \ASSURE.FPTOVP.PAGE (FILEPAGE) \INSPECT.STORE.FATCHAR ( +INSTANCE FIELD NEWVALUE) POSTSCRIPT.CLOSESTRING (STREAM) CL:READ-PRESERVING-WHITESPACE (STREAM +\PNAMESTRING EOF-VALUE) MAKE-INSPECTOR-PROFILE (NAME P-NAME) FREEVARS (FN USEDATABASE) SETCOLOR.IP ( +IPSTREAM SCALE ANGLE) CL:READ-DELIMITED-LIST (CHAR INPUT-STREAM \PNAMESTRING) TWODINSPECT.SCROLLFN ( +WINDOW DX TOPWINDOW FLG DY RIGHTWINDOW) \INVALIDADDR (ADDR) BMOBJ.GETFN3 (STREAM SCALE DESC) +CL:PARSE-INTEGER (STRING R OFFST LEN TABLE SA BASE) SHAPEW.AND.SAVE (WINDOW NEWREGION) \LOOKUPPAGEMAP +(VP PRIMENTRY) SEDIT::BACKSPACE-GAP (SEDIT::CONTEXT SEDIT::NODE) \TEDIT.APPLY.ULINE (BUTTON NEWLOOKS) +\MKINTEGER (END BASE RADIX) LISPX/ (X) COMPILER::EFFECTS-ANALYZE-BLOCK (COMPILER::NODE) COMPILER::RELEASE-GO + (COMPILER::NODE) COMP.TOPLEVEL.COMPILE (COMFN RECNAME CODE FREEVARS OUTER-ALLVARS OUTER-VARS +USES-LIST NLAMS1) GRAPHCHANGELABEL (GRAPH W NODE) CMLRDTBL (TBL) NS\FONTFILENAME.OLD (FAMILY SIZE FACE + EXTENSION CHARACTERSET) EDIT-IN-FUNCTION (DEF SEEN NAME) \INVALIDVP (VP) FINDATOM (ATOM POS X) +EDIT-IN-FNS (DEF SEEN NAME) RIGHTW.REPAINTFN (WINDOW DISPLAYW VERTMARKS ROWPROPS TOP BOTTOM +ROWPROPWIDTH FDESCENT) CL:KEYWORDP (CL::OBJECT) COMPILER::EFFECTS-UNION (COMPILER::ONE COMPILER::TWO) +DECLARED-SPECIAL (VAR) LISPXUNREAD (LST) FILEPKGCOM (N) \INSPECT.STORE.CHAR (INSTANCE FIELD NEWVALUE) +CL:APPLY (CL::N ARGLIST CNT FN) RSTRING (RDTBL FILE *READTABLE* RSFLG \PNAMESTRING) \FLUSHPAGE ( +RPTINDEX IFVP) \RSTRING2 (PNSTR RSFLG CHAR TABLE SA EOLC BASEA0345 OFFSETA0344 PBASE) +\TEDIT.MENU.WHENSELECTEDFN (ITEM MENU BUTTON) \TRANSFERPAGE (VP RPTINDEX FILEPAGE) \POLYSHADE.XSCAN.IP + (STRM FILL.SHADE FILL.FRULE ALIST I FILL.WRULE) SPY.TITLE (X TOPCOUNT) PROPRECORD (NAME&FIELDS) LISPX + (LISPXID X TAIL) SI::CREATE-CONDITION-CASE-LITERALS (SI::CATCH-TAG SI::TYPE-LIST SI::CONDITION) +\PUTBASEFIXP (BASE OFFST) BMOBJ.GETFN (STREAM BITMAP FIELDS) READ-EXTENDED-TOKEN (\PNAMESTRING STRM SA + PBASE) MOUSESTATE-EXPR (EXPR MOUSEBUTTONMASK X OPT) STORETABLE (KEY TABLST VALUE Z OLDREL) +\SEQUIN.FLUSH.CONNECTION (FINALSTATE REASON) \SMASHSTRING (SOURCE DEST DBASE) PRINTNSHOSTNUMBER ( +NSHOSTNUMBER FILE) \EDITBMHOWMUCH (BM EDITWIDTH EDITHEIGHT TITLEQ) CL:COMPILER-LET ( +$$COMPILER-LET-TAIL X) \NSFILING.LOOKUP.CACHE (ID PATHLENGTH) BRKDWNCLEAR (N PTR) CONCATLIST (L) +ADVISEWDS (WINDOW) BREAK0 (FN WHEN X) ADDCHAR (CHAR WIDTH PC OVFL) BREAK1 (BRKWHEN BRKFN POS BRKEXP +CONDITION) LOWERCASE (X) BOTTOMOFGRIDCOORD (GRIDSPEC GRIDY) MSINIT (DATABASE) +SI::COMPILED-FUNCTION-ARGLIST (SI::FN SI::X) EDITBMREPAINTFN (WIN BM GRIDSPEC EDITAREABITWIDTH +EDITAREABITHEIGHT) BITBLT.ERASE (LEFT BOTTOM WIDTH HEIGHT) COMP.COMPILER-LET (\A X) \INSPECT.STORE.32 +(INSTANCE FIELD NEWVALUE) BRKDWNBOXES (PTRA0712 VALA0711 BDX BDEXP PTRA0714 VALA0713) +SI::COMPILED-FUNCTION-DEBUGGING-INFO (SI::FN SI::FNHEADER SI::SIZE SI::NAME-TABLE-WORDS SI::START-PC +SI::PAST-NAME-TABLE-IN-WORDS) SUBREGIONP (SMALLREGION LARGEREGION) \CLIPANDDRAWLINE1 (BITMAP LEFT +RIGHT BOTTOM TOP DS BMRASTERWIDTH OPERATION COLOR) TWODINSPECT.ARRANGEWINDOWS (DISPLAYWINDOW +TITLEWINDOW ROWPROPS RIGHTWINDOW TOPWINDOW ROWPROPSPACE COLUMNWIDTHS COLUMNPROPSPACE TOPRIGHT REGION +CORNERWINDOW) ERASE.TO.END.OF.PAGE (BELOW) \MOVEREALPAGE (SOURCERPT SOURCEVP DESTINDEX SOURCEFLAGS) +\TEXTSETFILEPTR (STREAM TEXTOBJ FILEPOS) TEDIT.WINDOW.SETUP (TEXTOBJ WINDOW PROPS TEXTSTREAM +AFTERWINDOW) RETFROM (POS VAL) FB.SUBITEMP (ITEM SUBITEM) READ/NODE (DS CR NODES) \SPECIALRP (VP) +DISPTREE (TREE DEPTH G X) SI::CLEAN-UP-CL-ARGLIST (SI::ARG-LIST) \TEDIT.PUT.PARALOOKS (PC FILE STREAM +W LOOKS PARAHASH) \SELECTREALPAGE (A DONTMOVETOPFLG) SI::GET-STORED-ARGLIST (SI::NAME) +\ITEM.WINDOW.BUTTON.HANDLER (WINDOW) HISTORYSAVE (INPUT3 ID PROPS MOD SIZE) FILL.LINE (TBLE) +SEDIT::ATOM-POINT-TYPE (SEDIT::INDEX SEDIT::STR SEDIT::ESC-CHAR SEDIT::MULT-ESC-CHAR) +\TEDIT.APPLY.STRIKEOUT (BUTTON NEWLOOKS) SI::COMPILED-FUNCTION-INTERLISP? (SI::FN) ASSOCRECORD ( +NAME&FIELDS) ERASE.TO.END.OF.LINE (X) \TEDITMENU.SELSCREENER (TEXTOBJ MAINW SEL) TILEAREA (SRCBM WIN +LFT BTM WDTH HGHT) SCALED.BITMAP.GETFN (INPUT.STREAM) COMPILER::RELEASE-CATCH (COMPILER::NODE) +SI::FUNCTION-WRAPPER-INFO (SI::WRAPPED-FN SI::DEFN SI::FN-TO-CALL) COMPPRINT (X) EDITCHANGELABEL (W +GRAPH DS TRANS) OVERFLOW? (WIDTH OLDLINE) FB.COMMANDSELECTEDFN (MENU WINDOW FBROWSER REALITEM PWINDOW +KEY) ONEDINSPECT.ARRANGEWINDOWS (DISPLAYWINDOW TITLEWINDOW ROWPROPSPACE RIGHTWINDOW ROWPROPS +VALUEWIDTH VALUESPACE TOPRIGHT REGION) REALSTKNTH (POS N INTERPFLG OLDPOS) SI::CHANGE-CALLS-IN-CCODE ( +SI::FROM SI::CCODE SI::REFMAP SI::BASE SI::LOC) COMPILER::FIND-TAG-DUPLICATION (COMPILER::CODE +COMPILER::FIND-P) SHADEGRIDBOX (GRIDBORDER SHADE DS X GRIDSPEC BORDER Y OPERATION) GETVERBTABLES (ROOT + MODIFIER Y) SI::PARSE-CL-ARGLIST (SI::ARG-LIST SI::PARAM SI::REQUIRED SI::OPTIONAL CL:REST SI::KEY +SI::KEY-APPEARED? SI::ALLOW-OTHER-KEYS) INITIALIZEMASTER.IP (IPSTREAM) \TEXTGETEOFPTR (STREAM) +SI::CHANGE-CALLS (SI::FN SI::REAL-FN-SYMBOL) MOVETOUPPERLEFT (STREAM ASCENT) \INSPECT.STORE.16 ( +INSTANCE FIELD NEWVALUE) SI::HAS-CALLS (SI::CALLER SI::REAL-CALLER SI::CALLEE) DECLARERECORD (X) +SEDIT::ASSIGN-FORMAT-LITATOM (SEDIT::NODE SEDIT::CONTEXT SEDIT::ENVIRONMENT CL:FORMAT) +COMPILER::ENV-ANALYZE-VAR-REF (COMPILER::NODE) ATOMRECORD (NAME&FIELDS) DELETETO (TAIL N) LISPXFIND ( +QUIETFLG TYPE MOD X) CL:NOTEVERY (PREDICATE FIRST-SEQUENCE) COMPILER::RELEASE-CALL (COMPILER::NODE) +SI::RESTORE-CALLS (SI::FN) COMP.TRANSFORM (FORM *BC-MACRO-ENVIRONMENT* VAL) EDITCHANGEFONT (W GRAPH +HOW DS) REGIONP (X) BESTPUPADDRESS (HOST PAIR) CL:EVAL-WHEN (OPTIONS.BODY) SI::ADD-CHANGED-CALL ( +SI::BODY SI::TO SI::FROM SI::WCC-FORM) \NSFILING.ADD.TO.CACHE (HANDLE NOERRORFLG) \VALIDADDRESSP (BASE +) \NSFILING.MAYBE.CREATE (SESSION DIRLST DIR) \APPLYREADMACRO (MACDEF STREAM ANSCELL) FILEBLOCKTRAILER + (BLOCKINFO) UNDOLISPX2 (PROP X DWIMCHANGE) INSPECTW.REPAINTFN (WINDOW WREG) INTERSECTREGIONS (REGIONS +) SHOWWTITLE (WINDOW BORDER BM TITLE) \POLYSHADE.DISPLAY (STRM FILL.SHADE FILL.FRULE ALIST I +FILL.WRULE) \SUBREADCONCAT (J) FILL.INITTBLE (DISPLAYSTREAM DISPLAYDATA) EDITBMSCROLLFN (W DX DY) +TTBITWIDTH (CHAR) COMPILER::RELEASE-BLOCK (COMPILER::NODE) \INVALID.SYMBOL (XCL::BASE XCL::LEN) +COMP.RETFROM.POINT (COMFN DEF RECNAME) \LET*-RECURSION (VARS $$LET*-ENV $$LET*-SPECIALS $$LET*-BODY) +SI::CONSTRUCT-MIDDLE-MAN (SI::OBJECT-FN SI::IN-FN) TEDIT.REDO.REPLACE (TEXTOBJ CH#) ERRORMESS1 (MESS3) + \GETBASESTRING (NCHARS BASE BYTEOFFSET STR) FSET.IP (IPSTREAM FINDEX) \TEXTGETFILEPTR (STREAM +CHARSLEFT OFFSET LIMIT) \EDITBM/PUTUP/DISPLAY (BM GRIDSPEC BITSWIDE BITSHIGH WINDOW) TTYIN (OPTIONS +UNREADBUF \BUFFER) \INSPECT.STORE.8 (INSTANCE FIELD NEWVALUE) FB.OPTIONSCOMMAND (BROWSER) +\FIND.PACKAGE.INTERNAL (BASE OFFSET LEN FATP) COMPILER::ENV-ANALYZE-UNWIND-PROTECT (COMPILER::NODE) +GRAPHADDNODE (W) TTSKREAD (CHAR TABLE CH) \RECODECCODE (MAPARRAY CODE) COMPILER::FIND-REACHABLE-TAGS ( +COMPILER::CODE) \TEDIT.TABTYPE.SET (SEL OBJ TEXTOBJ CH# FNARG PC) REMOVE (L X) ETHERPORT (NAME) +COMPILER::ENV-ANALYZE-THROW (COMPILER::NODE) ARRAYRECORD (NAME&FIELDS) EDITBMCLOSEFN (BMW) FILDIR ( +FILEGROUP) COMP.ATTEMPT.COMPILE (TOPFN DEF RECNAME COMFNS) MAKEMACFORMAT (XEROXTOMAC) TTYIN.CLEANUP ( +\TTYINSTATE) RELEASE.PUP (PUP) TTYIN.FINISH (FINALCHAR START CHAR TABLE CH \COMMAND LINE) GRIDYCOORD ( +YPOS GRIDSPEC GY) UNDOLISPX (X) \ITEM.WINDOW.COPY.HANDLER (WINDOW) \TEDIT.CREATEMENU (ITEMS) +DEFAULT.INSPECTW.TITLECOMMANDFN (INSPECTW DATUM) TTYINREAD (FILE RDTBL) HISTORYFIND (LST INDEX MOD +TAIL X0) TERM.TAB (XPOS FONTWIDTH CURSORX) TEDIT.FORMATTEDFILEP (STREAM TEXTOBJ) \SEQUIN.CONTROL ( +CONTROL SEQUIN) UNBREAK0 (FN) TEDIT.CURSOROUTFN (W) LEFTOFGRIDCOORD (GRIDSPEC GRIDX) WTFIX1 (BREAKFLG +FAULTFN DWIMUSERFORM RESULT) TTYIN.READ (CHAR CH FINALCHAR TABLE) \ORIG-READ.SYMBOL (BASE OFFSET LEN +FATP) GETFRAMEVAR.IP (IPSTREAM FV) \TEXTEOFP (STREAM) \INSPECT.FETCH.FATCHAR (INSTANCE FIELD) +BRKDWNCONSES (PTRA0708 VALA0707 BDX BDEXP PTRA0710 VALA0709) TB.USERDATA (NEWDATA) \LETtran (LETTAIL +BINDENTRY VARS VALS) \ORIG-INVALID.SYMBOL (NCOLONS EXTRASEGMENTS BASE LEN) \TFBRAVO.READ.PARALOOKS ( +OLDLOOKS FILE MICASPERPOINT) \TEDIT.FIND.OVERLAPPING.LINE (Y) TB.REMOVE.ITEM (ITEM ITEM# LASTITEM#) +FLIPCURSORBAR (N) \ALLOCHEIGHTTOGROUPEDWINDOW (WGROUPINFO WHEREONEDGE EXTBUCKET TOTALXTRA TOTALNOWSIZE +) \TEDIT.LCASE.SEL (STREAM SEL STR POS LEN POINT TEXTOBJ) TRAJECTORY.IP (IPSTREAM POINTS P) +\TEDIT.SET.WINDOW (TOWIND) \ALLOCWIDTHTOGROUPEDWINDOW (WGROUPINFO WHEREONEDGE EXTBUCKET TOTALXTRA +TOTALNOWSIZE) GETPUPWORD (WORD#) REGIONSINTERSECTP (REGION1 REGION2) \NSFILING.CONNECT (SESSION +DIRPATH DIR CREATE?) \VFMDelete (deleteKey deleteLevel volumePage nextKey) COMP.BLOCK (A CTX BLOCKEND) + NS\FONTFILENAME (FAMILY SIZE FACE EXTENSION CHARACTERSET) \LINEWITHBRUSH (DASHLST DISPLAYSTREAM BRUSH + DISPLAYDATA) GRIDXCOORD (XPOS GRIDSPEC GX) INIT.CURSOR (YBOT COL) SHOWWFRAME (WIN BORDER SAVEIMAGE +DSP) GO.TO.ADDRESSING (ROW COL ABSROW) TRANSLATEREG (INNER OUTER) MOVENODE (OLDPOS POS NODE STREAM +GRAPH) INREADMACROP (NM) TTYIN1 (TTSCRATCHFILE START TABLE CH) MAPDL (MAPDLFN) \TEDITOUTCHARFN ( +CHARCODE) \TFBRAVO.READ.CHARLOOKS (FILE) \INSPECT.FETCH.CHAR (INSTANCE FIELD) POSTSCRIPT.BITMAPSCALE ( +PAGEREGION LONGEDGE SHORTEDGE MINDIML MINDIMP) TB.CLEAR.LINE (BROWSER LEFT ITEM WIDTH) \VFMInsert ( +insertKey insertLevel) READQUOTE (FILE) READVBAR (STREAM RDTBL) PRINTHISTORY (HISTORY FILE EVENT) +READHASHMACRO (RDTBL CHAR STREAM READFN CONTENTS) HREAD (FILE) TERM.SMOOTHSCROLL (CHAT.STATE +FONTHEIGHT DSP TTYWIDTH TTYHEIGHT) UNADVISE (ENTRY) READBQUOTE (FILE) CHARCODE.UNDECODE (CODE) +BYTEBLOCKCOMPILE2 (BLKNAME BLKDEFS ENTRIES INTERNALBLKFNS) MAKEIBMFORMAT (XEROXTOIBM) +\MAKESPACEFORLOCKEDPAGE (VP FILEPAGE) SKIP.HASH.COMMENT (STREAM RDTBL) \SW2BM (P Q CL CB XP XQ YP YQ) +GENERATE (HANDLE VAL) \8859OUTCHARFN (CHARCODE STREAM) CMLREAD.FEATURE.PARSER (EXPR) CL:RETURN-FROM ( +CL::RETVALUES) ESTIMATE-DIMENSIONALITY (CONTENTS) INSPECT/BITMAP (BITMAP WHERE) \INSPECT.FETCH.32 ( +INSTANCE FIELD) READNUMBERINBASE (STREAM BODY RADIX) \INSPECT.COMPUTE.TITLE (DATUM WINDOW) NODEREGION +(NODE) LISPXUSEC (HISTORY) CL:MAKE-SYMBOL (BASE OFFST LEN FATP) MBUTTON.SET.NEXT.FIELD (TEXTOBJ CH# +SCRATCHSEL) COURIER.SIGNAL.ERROR (ERRORFORM PROGRAM PROCEDURE) FILL-VECTOR (VECTOR TOTAL-SIZE START) +MAKEISOFORMAT (XEROXTOISO) \NEWEPHEMERALPAGE (BASE NOERROR) \DONEWEPHEMERALPAGE (BASE VP) +BREAK.NSFILING.CONNECTION (HOST DEVICE) CHARACTER.READ (STREAM TABLEA0348 NEXTCHAR) TERM.SETMARGINS ( +HOMEPOS TOP FONTHEIGHT BOTTOM) SEARCHPDL (SRCHFN) GRID (GRIDSPEC GRIDSHADE HEIGHT SQHEIGHT DS X0 Y0 +WIDTH SQWIDTH) TEDIT.REDO.MOVE (TEXTOBJ EVENT OLDCH# LEN SEL) FILLTRAJECTORY.IP (IPSTREAM POINTS) +DIRCONJ (CONJ) \NSFILING.OPENFILE (DEVICE FILENAME ACCESS RECOG PARAMETERS PAIR) TERM.SET.TAB ( +TERMINAL.X) COMPILER::ENV-ANALYZE-TAGBODY (COMPILER::NODE COMPILER::SEGMENT COMPILER::STMT) +UNIONREGIONS (REGIONS) COMPILER::ENV-ANALYZE-RETURN (COMPILER::NODE) RETVALUES (POS VALUES) +DEFMACRO-LAMBDA-LIST-KEYWORD-P (S) COURIER.READ (TYPE STREAM N WIDTH PROGRAM ITEM BASETYPE NAMEANDTYPE + WHICH) REALFRAMEP (POS INTERPFLG) FLIPNODE (DS NODE) FB.DEPTHCOMMAND (OLDDEPTH) CL:FUNCTION (CL::FN) +INSPECT/ATOM (ATM ALWAYSASKFLG OFFER-INSPECT-CODE? PROFILE WHERE) \INSPECT.FETCH.8 (INSTANCE FIELD) +MAKEEPSFILE (IMAGEOBJ IMAGEBOX FILENAME) LISPXSTOREVALUE (VALUE VALUES) \INSPECTW.VALUE.MARGIN (PROPS +FONT) \TEMPLOCKPAGES (BASE NPAGES) TTPROMPTCHAR (LINE) COMPOSEREGS (OUTER INNER) EXCHANGEPUPS (SOC +OUTPUP TIMEOUT EVENT TIMER) \TEDIT.NEUTRALIZE.CHARLOOKS.MENU (TEXTOBJ) COMPILER::ENV-ANALYZE-PROGV ( +COMPILER::NODE) HELP (MESS1 MESS2) DODIR (LISPXLINE NOP DEFAULTEXT DEFAULTVERS) COMP.MLLIST (FN CC) +COMP.SPREAD (L LSTCHECK LEV FR LP X ARG VAR FN) DIGITBASEP (RADIX) FILECODEBLOCK (NCELLS ARLEN +INITONPAGE) CL:FUNCTIONP (CL::FN) NSDISPLAYSIZE (EXTENSION FAMILY SIZE) TERM.SCROLLDOWN (CHAT.STATE +BOTTOMMARGIN FONTHEIGHT DSP NEARBOTTOM TTYWIDTH TOP) COMPILER::ENV-ANALYZE-SETQ (COMPILER::NODE) +\SEQUIN.PUT (SENDSEQ) MAPHASHFILE (MAPFN) FM.CHANGELABEL (WINDOW NEWLABEL OLDREGION) TEDIT.FORMATFOLIO + (REGIONSPEC PRSTREAM VALUE FOLIOINFO FORMATTINGSTATE REGION) FB.SHAPECOMMAND (BROWSER WINDOW EXTENT) +FB.INFOMENU.WHENSELECTEDFN (ITEM MENU WINDOW INFO) \MATCHPCS (PCNODE) POSTSCRIPTFILEP (FILE) +OPENHASHFILE (FILE SMASH) \FLUSHVM (MAIKO.SYSOUTFILE VAR) \NSFILING.DESERIALIZE (FILENAME DEVICE +SERIALSTREAM) INSPECT/LISTP (LST WHERE) LISPXFIX (INPUT COMS) DECODE.WINDOW.ARG (WHERESPEC WIDTH +HEIGHT BORDER TITLE NOOPENFLG) XCL::SET-CONSTANTP (CL:SYMBOL) TEDIT.FORMATTEXTBOX (CH# PAGEREGION +PRSTREAM VALUE REGION TEXTOBJ) CHARCODE.DECODE (STR) TTYIN.PPTOFILE (STREAM RDTBL *STANDARD-OUTPUT* +EXPRS) DSKDISPLAY (newState oldState) CL:APPLYHOOK (CL::EVALHOOKFN CL::APPLYHOOKFN) STRPOSL ( +\STRPOSLARRAY CHAR TABLE) SET-SYMBOL (CL:SYMBOL VALUE) COMPUTE-MACRO-ARGS (MACRO-CALL-BODY CL:KEYWORD +DEFAULT-VALUE CONTEXT BINDING) \NSFILING.CLOSE.CONNECTIONS (DEVICE ABORT? DEVINFO) MACROS.GETDEF (NAME +) \WRITEDIRTYPAGE1 (RPTR RP) EXPANDMACRO (COMPILE.CONTEXT) \COURIER.HANDLE.ERROR (PROGRAM PROCEDURE +ERRORARGS) EXPAND-DEFMACRO (FORM DEFAULT-VALUE DEF *MACRO-VARS* *MACRO-VALS* VAL) TEDIT.FORMATHEADING +(PAGEREGION PRSTREAM VALUE LOCALINFO FORMATTINGSTATE PC REGION) NEAREST/PT/ON/GRID (GRIDN) +MSUSERVBTABLES (VERB MOD) CL:EVALHOOK (CL::EVALHOOKFN CL::APPLYHOOKFN CL::FORM CL::ENV) SWAPPUPPORTS ( +PUP) \INSPECT.STORE.PTR (INSTANCE FIELD NEWVALUE) CSELECT (L SELECTOR) HASHFILEPROP (HASHFILE PROP) +\AREAINREGIONP (LFT REGION BTM RGHT TOP) COPIEDFILENAME (COPIEDTOSPEC FROMCHARS COPIEDFROMSPEC) +\PEEKCCODE.NOEOLC (STREAM NOERROR) \SPP.PREPARE.OUTPUT (EPKT) NSPRINT (FILE DATASTREAM) \LASTNODE ( +TREE COUNT) \INCCODE.EOLC (EOLCA0804 CHA0805 STREAM BYTECOUNTVAR BYTECOUNTVAL EOLC) \CLIPANDDRAWLINE ( +BITMAP DS WIDTH OPERATION RIGHT LEFT TOP BOTTOM A) COMP.GETBASE (OPCODE) \ILLEGAL.ARG (X) +\FORMATBYTESTREAM (STREAM FORMAT EOLC) TERM.RIGHT (XPOS FONTWIDTH TTYWIDTH NCHARS) PRINTCOMSTRAN ( +MACROS FORM) PREVLINE (LINE) MBUTTON.NEXT.FIELD.AS.ATOM (TEXTOBJ CH# STR) \UNCOPY (X LENGTH PTR SIZE +OFFSET TYPENUMBER BASE) FB.INFOMENU.SHADEINITIALSELECTIONS (MENUWINDOW MENU INITIALSELECTIONS +SELECTION MENUITEMS) TRACKCURSOR (ND DS GRAPH) ICONW (ICON ICONW MASK NOOPENFLG) TEDIT.CURSORMOVEDFN ( +W X Y) COMPILER::PEEPHOLE-OPTIMIZE-CODE (COMPILER::CODE COMPILER::CHANGED-P) TEDIT.FORMATPAGE (CH# +REGION PRSTREAM TEXTOBJ PAGEPROPS PAGEREGION PRE-EXISTING-FONT) EDITBMBUTTONFN (W REG) +\INSPECT.FETCH.PTR (INSTANCE FIELD) TEDIT.UNPARSE.PAGEFRAMES (PAGEFRAME FRAME SUBREGION) LISPXUSE0 ( +GENLST X) COMPILER::ENV-ANALYZE-MV-PROG1 (COMPILER::NODE COMPILER::STMT) TTLOADBUF (STREAM) +MBUTTON.NEXT.FIELD.AS.TEXT (TEXTOBJ CH#) VMEM.PURE.STATE (FLG) \XCCSINCCODE (STREAM BYTECOUNTVAL) +FREEMENU (TITLE BACKGROUND BORDER WINDOW) \TEDIT.APPLY.PAGEFORMATTING (SEL W TEXTOBJ) CLISPDEC1 (X) +\XCCSPEEKCCODE (STREAM NOERROR) INSPECTW.REDISPLAY (WINDOW PROPERTIES DATUM PROPCOMMANDFN FETCHFN +VALUECOMMANDFN NOWEXTENT SELITEM) ADVISE (ARGS WHAT X) \XCCSOUTCHAR (CHARCODE) \SET.LASTVMEMFILEPAGE ( +N) CLISPLOOKUP2 (X) COMPILER::ENV-ANALYZE-PROGN (COMPILER::NODE COMPILER::STMT) +\TEDIT.FILL.IN.CHARLOOKS.MENU (TEXTOBJ) ENDREAD? (CHAR TABLE CH) MBUTTON.NEXT.FIELD.AS.PIECES (TEXTOBJ + CH#) CL:CATCH (\CATCH-FORMS) MAKEINITLAST (P AFL PTR VERSIONS) UNIXCHAT.OPEN (TERMTYPE STR) +\XCCSFORMATBYTESTREAM (STREAM) COMP.LOOKUPVAR (V) \TEDIT.FORMAT.FOUNDBOX? (PAGEREGION) +\GETREGION.CHECKOPPT (BASEPT BASEX MINWID BASEY MINHGHT NEWREGFNS FN) DODIRCOMMANDS (COMMANDS +FILEGROUP COMDATE FILENAME) COMPILE! (X) FGET.IP (IPSTREAM FINDEX) \TEDIT.CONVERT.FOREIGN.FORMAT ( +CONVERSIONFN FILE PREDICATERESULT) CL:CERROR (CL::DATUM CL::ARGUMENTS) TEDIT.PARSE.PAGEFRAMES (ALIST +FRAMESPEC) FB.ALLOW.ABORT (BROWSER W) CONCAT (N) \MAKEBRUSH.ROUND (SIZE) CL:UNWIND-PROTECT ( +\UNWIND-FORMS) COMPILER::ENV-ANALYZE-MV-CALL (COMPILER::NODE COMPILER::ARG) MOVE.TO.LINE (NEWLINE) +MBUTTON.NEXT.FIELD.AS.NUMBER (TEXTOBJ CH#) CL:TAGBODY (TAIL TL) \COPY (X VAL) %%SET-ARRAY-OFFSET ( +NEWVALUE) %%SET-ARRAY-TYPE-NUMBER (NEWVALUE) FB.NEWINFOCOMMAND (WINDOW) HPRINT (FILE EXPR STREAM) +INITSEQUIN (PROCNAME) \REGIONOVERLAPAREAP (REG RGHT LFT TOP BTM) DIRPRINTNAME (FILEGROUP FULLNAME +LASTNAME STREAM) \INVALID.DOTTED.SYMBOL (BASE START LEN FATP) \MVLIST (X) \INVALID.INTEGER (SIGN BASE +START END RADIX) UNIX.HOST.FILTER (HOST) GETGRIDBOXREGION (GRIDINTERIOR WINDOW GRIDREGION BASEPT +RAWREGION GRIDSPEC) LISPXUSE (HISTORY LSPXHST) SETUPPUP (TYPE ID DESTSOCKET) INSPECT/MAKE/CCODEP (CODE +) BRKDWNTIME (PTRA0704 VALA0703 BDX BDEXP PTRA0706 VALA0705) \AREAVISIBLE? (WIN LFT BTM RGHT TOP) +\MAKEBRUSH.SQUARE (SIZE) EDITADDNODE (W GRAPH NewPosition Stream $$OUTPUT MSGW) CACHEMACRO (BODY) +\PUPERROR (ERRCODE MSG) XCL::SET-GLOBALLY-NOTINLINE-P (XCL::FN XCL::VAL) FB.NEWPATTERNCOMMAND (BROWSER +) TEDIT.BUILD.PCTB0 (START PCCOUNT TEXT END N WIDTH TEXTSTREAM) MSADDTYPE (TYPE) POSTSCRIPT.TEXT (FILE + PSCFILE FONTS HEADING TABS) DSPXSCREENTOWINDOW (X DS) \ACTONVMEMFILE (FILEPAGE BUFFER NPAGES +WRITEFLAG) \NSGC.COLLECT.DIRECTORIES (DEVICE DIRPATH) \PRINDATUM.TO.STRING (X \NUMSTR \NUMSTR1 STR +CODE VAL KEY) GETSEQUIN (SEQUIN) \TFBRAVO.SPREAD.LOOKS (RUN INSTR LOOKS) \INSERTTREE (OLD PREV OLDLEN) + TEDIT.FORMAT.HARDCOPY (STREAM FIRSTPG# STARTPG ENDPG TEXTOBJ PRINTOPTIONS TEXTSTREAM SERVER DONTSEND) + FB.YES-OR-NO-P (PROMPT DEFAULT FBROWSER) \STREAM.FROM.PACKET (EPKT) XCL::DECL-SPECIFIER-P (CL:SYMBOL) + XCL::SET-DECL-SPECIFIER-P (XCL::SPEC XCL::VAL) \NSFILING.LOGOUT (SESSION) SHOW.MATCHING.PAREN (BUF +MATCHING) FORMAT-ROUND-COLUMNS (WIDTH MINCOL COLINC) TERPRI (FILE) \TEDIT.APPLY.OLINE (BUTTON NEWLOOKS +) PRIN1 (FILE STRM L X) SPACES (FILE STREAM L N) FIND.MATCHING.WORD (WORDS X START) PRINTNUM (FORMAT +FMT \NUMSTR \NUMSTR1 FILE) CLOSESEQUIN (SEQUIN) \FATTENSTRING (STR) TAB (FILE MINSPACES POS) MAPFILES +(X FN DEFAULTEXT DEFAULTVERS ATTRIBUTES INCLUDE-DIRECTORIES) \PRINTVP (STREAM VP) \TEDIT.UPDATETREE ( +DELTA) \DO.PROGV.SETUP.FRAME.AND.EXECUTE (NNILS NVARS VARS NTSIZE) MB.MARGINBAR.SIZEFN (OBJ BOX) +GETSTREAM (FILE ACCESS NOERROR) POSTSCRIPT.TEDIT (PFILE) SPPSTREAMP (STREAM) \MAKEBRUSH.HORIZONTAL ( +SIZE) \TRANSLATE.3TO10 (PUPHOSTNUMBER NDB MYPUPHOSTNUMBER) \COURIER.TRACE (EVENT PROGRAM PROCEDURE) +\MAPPNAME.INTERNAL (FN X) COMP.EXP1 (E) \GETREGION.CHECKBASEPT (NEWREGFNS) UPIQUOTIENT (N DIVISOR) +SHOW.IP (IPSTREAM) TEDIT.BUILD.PCTB2 (START PCCOUNT TEXT END N WIDTH TEXTSTREAM) FIX (N) +VARSBOUNDINFORM (FORM FN X) \VAMGetVAMPageFor (vol VAMPage# volumePage) RPLSTRING (X Y OLDSTRING N) +ENDPREAMBLE.IP (IPSTREAM) XCL::GLOBALLY-NOTINLINE-P (XCL::FN) MB.MARGINBAR.TABTRACK (OBJ STREAM CLIP +UNIT) EDITAPPLYTOLINK (GRAPH DS ABORTMSG FN MSG) \TEDIT.APPLY.BOLDNESS (BUTTON NEWLOOKS) BKSYSCHARCODE + (CHAR R) MSADDMODIFIER (RELATION table) DSPYSCREENTOWINDOW (Y DS) BKSYSBUF (X CODE) +GC-FILING-DIRECTORY (DEVICE PARSE HANDLE) CL:LOAD (FILENAME STREAM LOADFLG *LOAD-PRINT-STUFF* PACKAGE) + \MAPPNAME (RDTBL *READTABLE* FN X) \TFBRAVO.EOLS (N TEXTOBJ) CHECKFPTOVP1 (VP FP2 FP RPTINDEX) +FB.SORTCOMMAND (TBROWSER) PROCESS.EVALV (PROC VAR P) \IRM.GET.KEYWORDS ($$OUTPUT WINDOW) +\MAKEBRUSH.VERTICAL (SIZE) MSADDRELATION (RELATION ROOT TABLES) CURRENT.WORD (CHAR TABLE CH) +LISPXGETINPUT (INPUT) MDESCALE (UNIT VAL) TEDIT.BUILD.PCTB1 (START PCCOUNT TEXT END N WIDTH TEXTSTREAM +) COMPILER::ENV-ANALYZE-LABELS (COMPILER::NODE COMPILER::FUN) \TEDIT.APPLY.CHARLOOKS (SEL W TEXTOBJ +MAINTEXT) COMPILER::ENV-ANALYZE-IF (COMPILER::NODE) MB.THREESTATE.DISPLAY (OBJ STREAM FONT CURX CURY) +FB.ALPHABETIC.ATTR (X Y) GAINSPACE (X ATM) EDITADDLINK (W) COROUTINE (COROUTFORM## ENDFORM##) WARNUSER + (X VAR) FB.INSERT.SUBDIRECTORIES (FILES FD1 FD2 BROWSER) SHOWCHARS (FONT TOCHAR FROMCHAR) +\SMASHABLESTRING (STR) TERM.IDENTIFY.SELF (CHAT.STATE) \TEDIT.PARSE.CHARLOOKS.MENU (TEXTOBJ) +COMPILER::ENV-ANALYZE-LAMBDA (COMPILER::NODE COMPILER::OPT-VAR COMPILER::KEY-VAR) FB.PROMPTFORINPUT ( +BROWSER PWINDOW PROMPTWIDTH DEFAULT WINDOWWIDTH EXCESSWIDTH) \RPLCHARCODE (X N CHAR BASEA0359 +OFFSETA0358) NTHCHAR (X N FLG RDTBL) COMPARE (NAME1 TYPE NAME2 DEF1 DEF2) \IRM.WILDCARD (WILDATOM LIST + WILDLIST SCRATCH) \TFBRAVO.READ.USER.CM (RDTBL) GNC (X) CL::%%DO-TRANSLATE (CL::X CL::VARS) GNCCODE ( +LEN OFFST) GLCCODE (LEN) DWIMIFY (X) STREQUAL (X Y BASEX BASEY) TYPENAME (X) CL:SYMBOL-PACKAGE ( +CL:SYMBOL) CLISPIFY (X) COMPILE (X) L-CASE (X \PNAMESTRING) ENDPAGE.IP (IPSTREAM) \DWIN (FILE) U-CASEP + (X) \LOCKCODE (CODEBLOCK) \MAKEWRITABLESTRING (STR) \LOCKCELL (X NPGS) SPPOUTPUTSTREAM ( +SPPINPUTSTREAM) RECORD (NAME&FIELDS) CL:1+ (CL:NUMBER) TEDIT.UNDO.REPLACE (TEXTOBJ LEN CH# FIRSTPIECE) + %%MAKE-STRING-ARRAY-FAT (ARRAY) CONCAT.IP (IPSTREAM) \TEDIT.TEXTBIN.STRINGSETUP (PS CHOFFSET +CHARSLEFT) \TFBRAVO.INIT.PARALOOKS (USER.CM.LOOKS MICASPERPOINT) \LOCKWORDS (BASE) +%%MAKE-ARRAY-WRITEABLE (ARRAY) FIX-SUBR-NAME (NAME) ZEROD.FETCHFN (SLICE) \ROUTINGTABLE.INFOHOOK (PROC + TYPE FONT BUTTON) >= (CL::ARGS) TEDIT.GET.OBJECT0 (STREAM FILE CURCH# TEXTOBJ) \#BLOCKDATACELLS ( +DATAWORD TYPENO) \LOCKVAR (VAR) \TEDIT.GET.CHARLOOKS.LIST (N WIDTH FILE) SPELLFILE (FILE) FONTPROFILE +(PROFILE X) FORMAT-DO-ITERATION (*ORIGINAL-ARGUMENTS*) \PUTBASESTRING (BASE BYTEOFFSET) TERM.GODOWN ( +YPOS BOTTOM NLINES) FB.PROMPTW.FORMAT (BROWSER) \FORWARD.PUP (PUP) \TEDIT.SHOW.CHARLOOKS (W MAINTEXT +TEXTOBJ MAINCH#) \PUTBASESTRINGFAT (SBASE SOFFSET DBASE DBYTEOFFSET LEN) HOST&DIRECTORYFIELD (FILENAME +) \TEXTMENU.TOGGLE.DISPLAY (OBJ STREAM FONT CURX CURY) BQUOTIFY (FN X DEFAULT) LOADFNS (FNS VARS) +SCANFILE2 (X) \BrushFromWidth (W) \MAKEBRUSH.DIAGONAL (SIZE) COURIER.WRITE (TYPE STREAM W FIXP PROGRAM + KEY SIZE BASETYPE WHICH) GetBcplString (BASE L) CLEAR-CLISPARRAY (REASON) DRAWAREABOX (W BOXLEFT +BOXBOTTOM BORDER BOXHEIGHT OP BOXWIDTH) AS.CHANGE.OWN.PASSWORDS (USERINFO) SetBcplString (STR L BASE) +ENDMASTER.IP (IPSTREAM) \TEDIT.TEXTBIN.FILESETUP (CHARSLEFT CHOFFSET PC BYTEOFFSET OPERATION +NOERRORFLG BYTESLEFT) \NSRANDOM.OPENFILE (ACCESS RECOG PARAMETERS DEVICE) POSTSCRIPT.HARDCOPYW (FILE +TITLE Landscape? SCALEFACTOR STREAM IMAGEDATA BITMAP SCLIP) \SETARG0 (N BFLINK VAL) +FB.INCREASING.NUMERIC.ATTR (X Y XVAL YVAL) MSADDANALYZE (PLURAL SINGLE word GETDEF-FN MARKCHANGED-FN) +MISCN-NUMBER (NAME) ZEROD.STOREFN (NEWVALUE SLICE) \TEDIT.NEUTRALIZE.CHARLOOKS (W TEXTOBJ CH#) +COMPILER::ENV-ANALYZE-CATCH (COMPILER::NODE) MB.MARGINBAR.DISPLAYFN (OBJ STREAM MODE IMAGEBOX OBJDATUM +) SCANDECLARECOLON (VARLST) ADDTEMPLATEWORD (WORD) TEDIT.UNDO.MOVE (TOOBJ FROMOBJ CH# LEN SOURCECH#) +TEDIT.GET.PAGEFRAMES (FILE) INSPECTW.FETCH (INSPECTW PROPERTY) \GCSCANSTACK (EASP) QUOTE (U) +\IRM.WILD.REF (WINDOW KEYWORD $$OUTPUT MATCH) CL:COMPILE (SPECVARS LOCALVARS GLOBALVARS COMPILER::LAP +COMPILER::DEFN COMPILER::COMPILED-DEFN) TERM.ERASE.IN.DISPLAY (CHAT.STATE PARAM TTYWIDTH YPOS +FONTDESCENT FONTHEIGHT XPOS) COMPILER::ENV-ANALYZE-CALL (COMPILER::NODE COMPILER::ARG) DO?CMD (CMD +\?TAIL FNEND FNSTART FN *READTABLE*) MB.NB.DISPLAYFN (OBJ STREAM OBJBOX BUTTONIMAGES BUTTONY BUTTONX +BUTTONLIST) PTON10GRID (FIXEDPT) BMOBJ.PUTFN (BMOBJ BITMAPOBJ STREAM) \INCUSECOUNT (FRAME) SCANEXP ( +EXP1 EXP2 X) XCCSSTRING (CODE) GETSELECTEDITEMS (WMENU) \TEDIT.APPLY.PARASTYLES (PARALOOKS TEXTOBJ +STYLE-SHEET PC) \PROMPT.FOR.PUP.NUMBER (DEFAULT) INSPECT/AS/BLOCKRECORD (INSTANCE ITEM WHERE) +\MOVEFRAME (OLDFRAME) BMOBJ.GETFN5 (INPUT.STREAM) CONDITIONS::%%RESTART-DEFAULT-REPORTER (CONDITIONS:RESTART + STREAM) CONDITIONS:INVOKE-RESTART-INTERACTIVELY (CONDITIONS:RESTART) SLICESET (ARGS SLICE NEWVALUE +OFFSETCONSTANT OFFSETS) \COURIER.HANDLE.BULKDATA (DATASTREAM) TEDIT.GET.CHARLOOKS0 (N WIDTH FILE) +MBUTTON.FIND.NEXT.BUTTON (TEXTOBJ CH# PCTB) ERROR (MESS1 MESS2) CONDITIONS:INVOKE-RESTART (CONDITIONS:RESTART + CONDITIONS::ARGUMENTS) FB.DECREASING.NUMERIC.ATTR (X Y XVAL YVAL) \EXTENDSTACK (EASP) CL:PRINT ( +OUTPUT-STREAM OBJECT) CONDITIONS:INVOKE-DEBUGGER (CONDITION) \NSFILING.SETFILEINFO (ATTRIBUTE VALUE +NAME.OR.STREAM DEVICE HANDLE SESSION) \RELEASE.IOCB (USE) ONEDINSPECTW.CREATE (PROFILE DATUM WHERE +FETCHFN STOREFN VALUECOMMANDFN PROPCOMMANDFN TITLECOMMANDFN FONT TITLE TITLEFONT TOPRIGHT) +TEDIT.GET.PARALOOKS0 (N WIDTH FILE) LISPFORM.SIMPLIFY (FN) \VAMCheckEndOfVol (volPage# vol) +NEAREST/MULTIPLE (X N) CLIPRECTANGLE.IP (IPSTREAM X Y W H) COMPILER::ENV-ANALYZE-BLOCK (COMPILER::NODE +) TEDITFROMBRAVO (FILIN TEXTSTREAM NEWSTREAM USER.CM) \HANDLE.RAW.PUP (TYPE SOCLO SOCHI) +\NSFILING.GETFILEINFO (ATTRIBUTE DEVICE STREAM) POSTSCRIPT.ENDPAGE (STREAM) GETNODEFROMID (ID NODELST) + CODE.SUBPAIR (L1 L2 FORM) \COURIER.RESULTS (STREAM PROCDEF PROGRAM TYPE PGMDEF NUMBER PROCEDURE +NOERRORFLG) TEDIT.GET.PAGEFRAMES1 (FILE) \SETUPGUARDBLOCK (LEN) FB.DIRECTORYP (FILE) FMAPRINT (FILE) +BEGINPREAMBLE.IP (IPSTREAM) \FIND.LOCALPUPHOSTNUMBER (NDB EVENT) \NSRANDOM.READPAGES (BUFFERS +FIRSTPAGE# EP EO) CODE.SUBST (X Y FORM) INSTALLBRUSH (BRUSHNAME) \POLYSHADE.BLT (ALIST FILL.WRULE +FILL.SHADE STRM FILL.FRULE) XCL::ADD-WHERE-IS-DATABASE (PATHNAME XCL::NEW-PATHNAME) +ARGS.COMMUTABLEP.LIST (L X Y) BREAKLINE (USECR OLDEND OLDLINE) VAR.NOT.USED (FORM SETQONLY?) +CL:MAKUNBOUND (CL:SYMBOL) \NSRANDOM.SESSION.WATCHER (DEVICE) SI::NON-LOCAL-GO (BLIP PC) FROMLINKS ( +NODE) SI::UNWIND-TO-BLIP (BLIP) TEDIT.HARDCOPY (STREAM FILE DONTSEND BREAKPAGETITLE PRINTOPTIONS) +\INIT-MISCN-TABLE (MISCN-ENTRY N) BUTTONPANEL/SELECTION/FN (ITEM MENU WINDOW) BOUNDP (CL::VAR) +SETTTBLPROP (PROP TTBL) POSTSCRIPT.PUTCOMMAND (S.STRS STREAM) EVALUABLE.CONSTANT.FIXP (X) GETMENUITEM +(MENU YGRID XGRID) ED (CL::TYPES-WITH-DEFNS) SI::NON-LOCAL-RETURN (BLIP&VALUES) SLICEDIMENSION ( +SELECTION DIM) DRAW/GRAPHNODE/BORDER (BORDER LEFT BOTTOM WIDTH HEIGHT STREAM) \VARNOTUSED.LIST (L FORM + X SETQONLY?) CL:SYMBOL-NAME (CL:SYMBOL) \UNDEFINED-MISCN-UFN (INDEX ARG-COUNT ARG-PTR) +\WALKOVER.SPECIALFORMS (CLZ PRED REST1 REST2 REST3 L) \VARNOTUSED (FORM VAR) MISCN-COLLECT (ARG-COUNT +ARG-PTR) SI::NON-LOCAL-RETURN-VALUES (BLIP) MB.MARGINBAR.SELFN (OBJ STREAM IMAGEBOX SELWINDOW UNIT +RELX RELY CLIP RIGHTLIM A SCALEDTABS) GET (CL:SYMBOL CL::INDICATOR CL::DEFAULT) +\TEDIT.GET.PARALOOKS.LIST (N WIDTH FILE TEXTOBJ) %%MAKE-ONED-ARRAY (ELEMENT-TYPE FATP DISPLACED-TO +TOTAL-SIZE TYPE-NUMBER READ-ONLY-P FILL-POINTER EXTENDABLE-P DISPLACED-INDEX-OFFSET) +\DECL.COMNT.PROCESS (FORMS) SPY.BUTTON (REG) TWODINSPECTW.CREATE (DATUM PROFILE WHERE FETCHFN STOREFN +VALUECOMMANDFN ROWPROPCOMMANDFN COLUMNPROPCOMMANDFN TITLECOMMANDFN FONT TITLE TITLEFONT TOPRIGHT) SETA + (N BASE V) \CANONICAL.NSHOSTNAME (HOST) CL:THROW (THROW-TAG THROW-VALUE) ARRAY (TYPE ORIG ALIGN BASE +NWORDS) MKCONS (CARPART) AS.MAKE.CONVERSATION (RECIPIENT NONCE) \WALKOVER.FUNCTION (PRED REST1 REST2 +REST3) \10MB.GETPACKETSTATUS (IOCB) \SELITEM.FROM.PROPERTY (INSPECTW PROPERTY) \DELETETREE (OLD OLDLEN +) SI::INTERNAL-THROW-VALUES (TAG) SCANCOMPILEDFN (X FNAME) \TEDIT.EXPANDED.MENU (STREAM) +\MEDW.GETSCREENREGION (NEWREGIONFN A) CL:FMAKUNBOUND (CL:SYMBOL) FB.FETCHFILENAME (ITEM) +USER-SUBR-NUMBER (NAME) TEDIT.GET.OBJECT1 (STREAM FILE CURCH# TEXTOBJ) MSDESCRIBE (FN SN) +SI::PVAR-VALUE-IN-FRAME (FRAME NT ATOM#) BEGINPAGE.IP (IPSTREAM) SETF-SYMBOL-FUNCTION (CL:SYMBOL) +\NSRANDOM.TRUNCATEFILE (LO HANDLE) SI::VARIABLE-NAME-IN-FRAME (FRAME NT CODE) TERM.CLEAR.TAB ( +CHAT.STATE TERMINAL.X) MSDESCRIBE1 (STR) ASSURE.PUP.READY (QUIET) CL:FORMAT (CL::FORMAT-ARGUMENTS +CL::CONTROL-STRING) \WALKOVER.SF.LIST (L PRED X REST1 REST2 REST3) ADD-USER-SUBR (USER-SUBR-NAME +USER-SUBR-INDEX USER-SUBR-UFN) CL:SYMBOL-VALUE (CL:SYMBOL) LOOKUPHASHFILE (KEY1 KEY X Y CALLTYPE INDEX + VALUE) \DISCARDFRAME (OLDALINK ALINK SIZE BLINK) MBUTTON.FIND.BUTTON (LABEL TEXTSTREAM CH# PCTB +LABELATOM) \INIT-USER-SUBR-TABLE (SUBR-ENTRY) \TEDIT.GET.PARALOOKS1 (N WIDTH FILE) +FB.CANONICALIZE.PATTERN (SAMPLE PATTERN PATHOSTEND) CL:FBOUNDP (CL::FN) CL:REMOVE (SEQUENCE LENGTH +ITEM START FROM-END KEY TEST-NOT TEST) NUTF8STRINGBYTES (STRING) BUTTONPANEL (LABELLST LABEL) +\DELETEPIECE (PC) CL:FIND (SEQUENCE LENGTH ITEM START FROM-END KEY TEST-NOT TEST) ITEMOFPROPERTYVALUE +(WINDOW PROPERTY) COMPILER::ANALYZE-TREE (COMPILER::TREE) TEDIT-BOOK (FILES DOC DIRECTORY FILE +PRINT-FILE DONT-SEND) TB.COLLECT.ITEMS (BROWSER) DEFAULTWHENSELECTEDFN (ITEM) ASKUSER1 (CHAR) +CL:SYMBOL-FUNCTION (CL:SYMBOL) \NSRANDOM.WRITEPAGES (BUFFERS FIRSTPAGE# EP HANDLE FIRSTBYTE) SLICEREF +(ARGS SLICE LINEARIZEDARRAY OFFSETCONSTANT OFFSETS) ELT (A N) UNDOLISPX3 (DWIMCHANGE EVENT COMS) +PROCESSPROP (ARGS PROP) \IRM.CHOOSE.REF (REFS KEYWORD REF TYPE) \STARTPUP (SOC EVENT) +MBUTTON.CHANGENAME (OBJ NEWNAME TEXTOBJ) \UNDEFINED-USER-SUBR-UFN (USER-SUBR-INDEX ARG-COUNT ARG-PTR) +EQ-TO-CADR (ITEM LIST) CLEARSTK (PAGE FLG) TERM.ERASEBITS (CHAT.STATE DSP LEFT BOTTOM WIDTH HEIGHT) +\MEDW.CARET.SHOW (CARET) CL:COPY-SYMBOL (CL::SYM CL::NEW-SYM) RELSTKP (X FRAME) SPP.EOFP (STREAM +CONDITION) NUTF8CODEBYTES (N) %#BITSON (N) FASL:CLOSE-FASL-HANDLE (FASL::HANDLE) EQ-TO-CAR (ITEM LIST) + GETTTBLPROP (PROP TTBL) \TEDIT.PRESS.HARDCOPY (PFILE) FB.PROMPTWPRINT (U WINDOW) ASKUSER$ (KEYLST NC +CHAR) \USER-SUBR-UFN (ARG-PTR USER-SUBR-INDEX ARG-COUNT) DWIMIFYREC (NEWVARS PARENT ONEFLG FAULTFN) +COMP.UNWIND-PROTECT (CLEANUPFN) \RANGELIMIT (MIN MAX VAL) LIST (N) \ITEMW.SELECTITEM (WINDOW) +\SETUPSTACK1 (STKEND DEFPTR NARGS ALINK CLINK PC) \TEDIT.EXPANDEDCHARLOOKS.MENU (STREAM) +TEDIT.HCPYFILE (FILE STREAM IMAGETYPE BREAKPAGETITLE) FINDPCNODE (PC) COMP.CATCH (ARG) ERASE/GRAPHNODE + (STREAM NODE) CL:SYMBOLP (X) COMP.GLOBALVARP (X) BEGINMASTER.IP (IPSTREAM) SUBRNUMBER (NAME) +\NSRANDOM.SETEOFPTR (NBYTES STREAM NEWEP NEWEO) TTUNREADBUF (CH) \TEDIT.GET.CHARLOOKS1 (FILE N WIDTH) +\BUILDATWSTRUCTURE (SIDE MAINW ATTACHEDWINDOWS EDGEBUCKETLIST) UTF8HEXSTRING (CHARCODE) +MOST/VISIBLE/OPERATION (SHADE) SETSYNTAXPROP (CH CLASS RDTBL) FB.SELECTEDFILES (BROWSER) +ERASEMENUIMAGE (W MENU) ASKUSERPRIN1 (NODOFLG X) CL:WARN (CL::DATUM CL::ARGUMENTS) FM.GETITEM (WINDOW +ITEMS ID) \UPCASEBASE (OFFSET LENGTH BASE CODE) COURIER.CALL (ARGS PROGRAM PROCEDURE) +XCL::GET-WALKER-TEMPLATE (XCL::X) \RESETSTACK0 (OLDBASE) RECORDBIND (VAL) \CONTEXTAPPLY (CNTXT FN ARG +MYALINK) CL:ASSOC (CL::ITEM CL::A-LIST CL::TEST-NOT CL::TEST CL::KEY) INSPECTW.SELECTITEM (INSPECTW) +\CAUSEINTERRUPT (CNTXT FN) \TEXTMENU.START (TITLE HEIGHT MENU) SPP.READP (STREAM) TTCOMPLETEWORD (CHAR + TABLE X) APPENDOP.IP (OP STREAM) TB.NTH.ITEM (N) \InitCurveBrushes (BRUSHNAME) +ICMLARRAY.TITLECOMMANDFN (WINDOW) /RAISE (TTBL) INTERRUPTED (CH HARDFLG CLASS) WINDOWSIZE (WINDOW EXT) + AS.NEXT.VERIFIER (ADDR BL CONVKEY E) XCL:COMPILE-FORM (COMPILER::LAP) ARCTO.IP (IPSTREAM X1 Y1 X2 Y2) + GETSYNTAXPROP (CH RDTBL) COMP.CALL (F TYP) CRITSECT (SCANY) CREATEPAGES (N VA LOCKFLG BLANKFLG) +FASL:OPCODE-SEQUENCE (FASL::OPNAME) \DISPLAYLINE (TEXTOBJ WINDOW LINE HCPYDS OLDCACHE DS TEXTLEN +THISLINE BASEA0753 LOOKS BASEA0754 CHLIST BASEA0755 WLIST BASEA0756 LEADERFONT DOTWIDTH WINDOWDS) +IRM.CREF.BUTTONEVENTFN (IMAGEOBJ BOUNDBOX HEIGHT WIDTH WINDOW WSTREAM REGION ITEM) +\GATHER-CLEANUP-FORMS1 (EOS BOS) FB.TABLEBROWSER (BROWSER) DO.EDIT.COMMAND (CH) MBUTTON.CREATE (MBFONT + IMAGEFNS MBTEXT REAL-FONT OBJ MBFN) \MEDW.GETSCREENPOSITION (CURSOR) UPDATEPCNODES (DELTA) +CHECKSAMEDIR (DATES) \GATHER-SPECIAL-BINDINGS (NT IVAR FRAME) \MAKE.PROCESS0 (FORM \LINEBUF.OFD) +SPP.BACKFILEPTR (STREAM) CHAT.TYPESCRIPT1 (PWINDOW) COMP.LAM1 (FN DEF) SUB-FORMAT (START END) +\TEDIT.EXPANDEDPARA.MENU (STREAM) GETBOXSCREENREGION (WIDTH HEIGHT ORGX ORGY WINDOW PROMPTMSG) +TEDIT.UNPARSE.PAGEFORMAT (PAGEREGION PAPER REGIONS REGION PAPERWIDTH PAPERHEIGHT UNITS HDG) +ICMLARRAY.VALUECOMMANDFN (ARGS SETABLEMENU INSPECTABLEMENU) SI::BQUOTE-EXPANDER (SI::LEVEL SI::FORM) +\FORMATLINE (OLINE BASEA0737 N ARR VAL BASEA0738 BASEA0739 BASEA0740 DS BASEA0741 BASEA0742 FONTDESC +CHARCODE BASEA0743) \TEDIT.CUMULATE.EVENTS (EVENT1 EVENT2 OLDLEN REALEVENT) \HARDRESET-CLEANUP ( +BINDINGS VARIABLES X PAIR) MB.PUTFN (OBJ FILE TEXT MBFN FONT STREAM W ATTR) UNDONLSETQ1 (TAIL) +\HARDRESET-CLEANUP1 (NNILS NVARS VARIABLES NTSIZE TABLE MASTERLIST) COMP.EFFECT (LV E) HASH.PASSWORD ( +PASSWORD) XCL:UNADVISE-FUNCTION (XCL::FN-TO-UNADVISE XCL::FN XCL::ADVICE-NAME) \BQUOTE.BREAKRESET (FLG +) RDTBL\NONOTHERCODES (RT RESULT) XCL:READVISE-FUNCTION (XCL::FN-TO-READVISE XCL::FN XCL::IN-FN) +ASKUSERSETUP (ENTRY) XCL:REINSTALL-ADVICE (XCL::BEFORE XCL::AFTER XCL::AROUND) SPP.FORCEOUTPUT (NBYTES +) XCL:ADVISE-FUNCTION (XCL::FN-TO-ADVISE XCL::FN CL:WHEN XCL::PRIORITY XCL::ADVICE-NAME) QUOTE.WRAPPER + (SYN) \10MB.GETPACKETLENGTH (IOCB) GETSCREENREGION (MINWIDTH MINHEIGHT INITREGION NEWREGIONFN +NEWREGIONFNARG INITCORNERS) CL::COUNT-OCCURRENCES (CL::FORM CL:SYMBOL) \DORETCALL (RCFRAME RETURNER +FNHEADER PC NARGS RETURNEE FN START ARGLOC) XCL:COMPILE-DEFINER (COMPILER::NAME TYPE) +SI::COMMA-ERROR-EXPANDER (SI::FORM) TEDIT.FORMATBOX (REGION TEXTOBJ PRSTREAM CH# REGIONSPEC) +FASL:BEGIN-TEXT (FASL::HANDLE) \CARET.FLASH.MULTIPLE (STREAMS CARETS ONRATE OFFRATE) XCL:REBREAK-FUNCTION + (XCL::FN-TO-REBREAK XCL::FN XCL::NAME) \TEDIT.PUT.PARALOOKS.LIST2 (FILE STREAM W LOOKSLIST LOOKSHASH) + XCL:TRACE-FUNCTION (XCL::FN-TO-TRACE XCL::FN XCL::ORIGINAL XCL::MIDDLE-MAN XCL::ENTRY) +FASL:PROCESS-SEGMENT (STREAM FASL::ITEM-FN FASL::OPTABLE) \ALLOCMINIMUMSIZES (INTMINWIDTH INTMINHEIGHT + ATW) BQUOTE.WRAPPER (E) APPENDRATIONAL.IP (N D STREAM I) CHARCODE (CHAR) FIND.NON.SPACE (CH) +XCL:CREATE-TRACE-WINDOW (XCL::REGION XCL::TITLE XCL::WINDOW) DASSEM.DASMBIND (NV NN K) +COMPILE-FILE-SCAN-FIRST (FIRSTFLG DOCOPY EVAL@COMPILE FORM COMPILED.FILE) MSSTOREDATA (FNNAME KWN) +FB.COUNT.FILE.CHANGE (FLG ITEM SIGN) DBG::REGION-NEXT-TO (REGION RWIDTH RHEIGHT NLFT NBTM) +SI::BQUOTE-PROCESS-LIST (LIST) FASL:MAKE-OPTABLE (FASL::TABLE CL:VECTOR) VARIABLES (POS) +\COURIER.CHECK.ERRORS (DEFS) \ALLOCPAGEBLOCK (NPAGES) SEDIT::SET-POINT-QUOTE (SEDIT::POINT SEDIT::CONTEXT + SEDIT::NODE TYPE SEDIT::COMPUTE-LOCATION? SEDIT::ITEM) ICONTITLE (ICONW MSG) MAKEFILESCOMS (FILES) +MSMARKCHANGE1 (FNS) \GETBRUSHBBT (BRUSHBM DISPLAYDATA Operation SourceType) \ATMOUT (STREAM W) +SETUPFONTS.PRESS (FONTS PRSTREAM) SI::BQUOTE-CONS (SI::BCAR) CL::STRUCTURES.HASDEF (CL::NAME) +FASL:UNIMPLEMENTED-OPCODE (FASL::OPCODE) MODERN-SNAPW (W) \READNUMBER.OUTLINEREGION (OUTLINESIZE WIN +REG N) COPYFILES (OPTIONS SOURCE BACKUP COPYFILESTOSPEC FILENAME DT1 STR) FASL:CHECK-VERSION (STREAM +FASL::VERSION) VRULE.CREATE (VRULE DASHING) \FM.EDIT-FINDFIRST (WINDOW) FASL:OPEN-FASL-HANDLE (STREAM) + TB.UNSELECT.ALL.ITEMS (START END) MAKEBRES (X0 Y0 DX DY) SEDIT::SET-POINT-UNKNOWN (SEDIT::POINT +SEDIT::CONTEXT SEDIT::NODE SEDIT::OFFSET SEDIT::COMPUTE-LOCATION?) CL::%%EXP-FLOAT (CL::X CL::M CL::R +CL::N) UNIX-USERNAME (UNIXSTRING) \NSRANDOM.REESTABLISH (STREAM) \HANDLE.RAW.OTHER (PACKET) +\ADVANCE.STORAGE.STATE (FLG) SUBSTRING (X N M) SEDIT::SET-POINT-LIST (SEDIT::NODE SEDIT::ITEM +SEDIT::NUMBER-SUBNODES SEDIT::CONTEXT SEDIT::COMPUTE-LOCATION?) MAKETITLEBARICON (WINDOW SCREEN) +CL:POSITION (SEQUENCE LENGTH ITEM START FROM-END KEY TEST-NOT TEST) COMPILE-FILE-EXPRESSION ( +COMPILED.FILE DEFER FORCE-OUTPUT-P DEFINITION BODY X VARS VALS INNER-FORM) SLICERANK (SELECTION) +\VECENCODE (DY DX) ALLOCSTRING (FATFLG) %%GET-TYPE-TABLE-ENTRY (TYPENUMBER) CLOSEATTACHEDWINDOWS ( +WINDOW ATTACHEDWINDOW) PRINTPUP (PACKET TYPE CALLER) BREAK.MSG.INTO.LINES (MSG MSGSTR FONT WIDTH) +MAKE-PACKAGE-HASHTABLE (SIZE RES N) VRULE.GETFN2 (INPUT.STREAM) \LEAF.ABORT.FROMMENU (MENU) \SPP.BOUTS + (STREAM BASE OFF NBYTES) UNIX-FULLNAME (UNIXSTRING) \SPP.GETNEXTBUFFER (WHATFOR STREAM) +TB.DESELECTRANGE (FIRSTSEL LASTSEL) \INITMDSPAGE (SIZE SLOP) FM.ITEMPROP (ARGPTR) \LFScavFileName ( +NAME&VERSION) UNIX-GETENV (UNIXSTRING X) \STARTPAGE.PRESS (PRSTREAM) PFI.COLLECT.DEFINERS (BYPROP +KNOWNTYPES NAMEPROP) CL::STRUCTURES.EDITDEF (CL::NAME CL::SOURCE CL::EDITCOMS CL::OPTIONS TYPE) +FB.UPDATEBROWSERITEMS (WANTED FONT TBROWSER) NTHCHARCODE (N X RDTBL CODE) FB.MAKE.SUBDIRECTORY.ITEM ( +DATAWITHSUBDIR FBROWSER SUBDIRECTORY DIRSTART) \LFScavVersion (NAME&VERSION FILEID) MKSTRING (X R +RDTBL BASE) \LFUnpackName (name PARSEDNAME) SEDIT::PRINT-GAP (STREAM SEDIT::GAP) +CL::STRUCTURE-FUNCTION-P (CL::PS CL:SYMBOL CL::KEY) CL::PRINT-PACKAGE (STREAM PACKAGE) TEDIT.\INSERT ( +STREAM TEXTOBJ CH CH# OTEXTLEN XPOINT) \TEDIT.REPAINTFN (W TEXTOBJ WREG) \COURIER.CHECK.PROCEDURES ( +DEFS) MSPARSE (SENTENCE) UNIX-GETPARM (UNIXSTRING) COMPILER::COMPILE-DEFINER-PROCESS-FUNCTION (COMPILER::NAME + COMPILER::*ENVIRONMENT* COMPILER::DEFINITION) \FM.EDIT-MESSAGE (BUTTONS) MAKE-PRIME-HASHTABLE-SIZE (N +) TB.UNSELECT.ITEM (ITEM BROWSER N) \SPP.SETFILEPTR (STREAM INDX) STRPOS (CAOFFST CHAR CASIZE CABASE +CAFAT LASTI JMAX JSTART) PFI.PRINT.FILECREATED (STR FONT TABSTOP ENV SPEC) SETF-SYMBOL-PACKAGE (VALUE) + COMPILER::FUNCTION-P (COMPILER::FORM) TWODINSPECT.REPLACE (WINDOW STOREFN NEWVALUE DATUM ROWPROP +COLUMNPROP) SEDIT::MAKE-GAP (SEDIT::ITEM) BAKTRACE1 (IPOS) IRM.GET.CREF (FILE IMAGEOBJ DATA) +\NSFILING.SET.CONTINUANCE (SECONDS) CENTERINWIDTH (RELATIVETOREGION WIDTHTOCENTER) ASKUSER (WAIT EOL +SPACE OPTIONSLST OPTIONS ORIGKEYLST ORIGDEFAULT) \FLUSH.NDB.QUEUE (QUEUE EVENT USE) SEDIT::REPLACE-QUOTE + (SEDIT::SUBNODES SEDIT::CONTEXT SEDIT::NODE) CLISPDEC (X) DISPLAYLINK/BT (PARAMS TRANS GNB GNT WIDTH +OPERATION STREAM) COURIER.WRITE.NSADDRESS (STREAM ADDR) TEDIT.GET.OBJECT (STREAM FILE CURCH# TEXTOBJ) +\SPP.GETFILEPTR (STREAM) PFI.PRINT.INDEX (LASTPAGE CRDATE INDICES LINESPERPAGE) \MAYBEPEEKPUP (PUP) +CREATECELL (TYP) DBG::ATTACH-BACKTRACE-MENU (TTYREGION) \DWOUT (FILE NUMBER) CL::PRINT-PACKAGE-HASHTABLE + (STREAM CL::TABLE) \PRESSINIT (STREAM) SHOWBITMAP.IP (IPSTREAM BITMAP MAXYPIXELSPERCHUNK ROTATION +HEIGHT) TEDIT.GETPOINT (SEL STREAM TSEL) D-ASSEM:ASSEMBLE-FUNCTION (D-ASSEM::TAG D-ASSEM::*DTAG-ENV* +D-ASSEM::LAP-FN D-ASSEM:DCODE) TEDIT.DEFAULT.MENUFN (W) \COURIER.CHECKDEF (DEF NAME TAIL) +BitFieldShiftedMask (FD) EDITGETDEF (TYPE) \SPP.RESETCLOSE (STREAM) D-ASSEM:INTERN-DCODE (D-ASSEM:DCODE + D-ASSEM::NAME-TABLE D-ASSEM::NAME-TABLE-SIZE D-ASSEM::NTSIZE D-ASSEM::OVERHEADBYTES D-ASSEM::NTWORDS +D-ASSEM::FRAME-NAME D-ASSEM::FVAROFFSET) SEDIT::REPLACE-LIST (SEDIT::START SEDIT::END SEDIT::S +SEDIT::DELTA-LENGTH SEDIT::DEPTH SEDIT::CONTEXT SEDIT::POINT) COLLECT-CASE-SELECTORS (CLAUSES CLAUSE +NAME) BitFieldMask (FD) SEDIT::PRINT-BROKEN-ATOM (STREAM SEDIT::BROKEN-ATOM) ONEDINSPECT.REPLACE ( +WINDOW STOREFN NEWVALUE DATUM PROP) BitFieldShift (FD) IRM.PUT.CREF (IMAGEOBJ STREAM) %%SUFFIX-SYMBOL +(SYMBOL SUFFIX PACKAGE) BitFieldWidth (FD) %%LIT-SIZE-TO-SIZE (LIT-SIZE) D-ASSEM:FIXUP-PTR-NO-REF ( +D-ASSEM::PTR D-ASSEM::BASE D-ASSEM::OFFSET D-ASSEM::LOW) \TEDIT.PROMPT.PAGEFULLFN ( +PROMPT-DISPLAY-STREAM PROMPT-WINDOW OLDREGION MAINWINDOW %#LINES ATTACHEDMENUS OLDBOTTOM OLDTOP) +COURIERPROGRAM (X) \DTEST (OBJ TYPE) COURIER.EXECUTE.CALL (PROGRAM PROCEDURE ARGLIST STREAM OUTSTREAM +W FIXP PGMDEF PROCDEF ARGTYPES NOERRORFLG) D-ASSEM:FIXUP-SYMBOL (CL:SYMBOL D-ASSEM::BASE D-ASSEM::OFFSET + D-ASSEM::HIBYTE D-ASSEM::WORD) DISPLAYLINK/RL (PARAMS TRANS GNR GNL WIDTH OPERATION STREAM) +SI::SPLIT-PROCEED-CLAUSES (SI::CLAUSES SI::CASES SI::BODIES) TB.INSERT.ITEM (LASTITEM#) +D-ASSEM:ALLOCATE-CODE-BLOCK (D-ASSEM::NT-COUNT D-ASSEM::START-PC D-ASSEM::CODE-LEN D-ASSEM::TOTAL-SIZE + D-ASSEM::CODE-BASE) COMPILER::SCAN-ONE-FORM (COMPILER::FORM) TB.SELECTRANGE (LAST# FIRST# FIRSTSEL +LASTSEL) FB.THINCOMMAND (FBROWSER) INTERNAL-SYMBOL-COUNT (PACKAGE) CHECK-*CASE-SELECTOR (SELECTOR NAME +) SI::EXPAND-CONDITION-CASE (SI::FORM) CONDITIONS::CONVERT-RESTART-CASES (CONDITIONS::CASES CONDITIONS::BODIES + CONDITIONS::ANY-ARGLISTS?) \SPP.EVENTFN (EVENT DEVICE STREAM) PFI.PRINT.MULTI.INDEX (PRINTOPTIONS +INDEXENTRIES INDEXITEM FATSPACE DIGITSWIDTH RANGEWIDTH LEFT MAXWIDTH LINEWIDTH) \LEAF.STREAM.IN.QUEUE +(SEQUIN) TEDIT.PUT.OBJECT (PIECE FONTFILE OBJECT OFILE FONTCH# CURCH#) \TESTPARTITION (NUM HERE) +MSEDITF (ARGCOUNT FNAME FEDITCOMS) REPLACEFIELD (DESCRIPTOR FT OFFSET X) D-ASSEM:RELEASE-DCODE (D-ASSEM:DCODE +) MODERN-ADD-EXEC (U PROC) \MAYBEPEEKNS (X XIP XA0722 XA0723) BOXCOUNT (N) ENCAPSULATEDOBJ.IMAGEBOXFN +(STREAM OBJ FONT GETFN) SEDIT::MAKE-BROKEN-ATOM (STRING) ICMLARRAY.SETVALUE (DISPLAYWINDOW MAINW +SLICERANK ROW COLUMN) CL:MAKE-PACKAGE (CL::INTERNAL-SYMBOLS CL::EXTERNAL-SYMBOLS CL::%%PACKAGE-INDEX +CL::USE PACKAGE CL::NICKNAMES) CONSCOUNT (N) MSEDITE (ARGCOUNT FPTYPE FNAME FEDITCOMS FNDEF) +IRM.CREF.BOX (STREAM TYPE IMAGEOBJ) \TYPECHECK (OBJ TYPE) D-ASSEM:FIXUP-PTR (D-ASSEM::PTR D-ASSEM::BASE + D-ASSEM::OFFSET D-ASSEM::LOW) D-ASSEM:FIXUP-WORD (D-ASSEM::BASE D-ASSEM::OFFSET D-ASSEM::WORD) +TEDIT.STRINGWIDTH (STR FONT) SEDIT::PARSE--LIST-INTERNAL (CL:STRUCTURE SEDIT::CONTEXT) +CONDITIONS::PARSE-RESTART-CASE (CONDITIONS::CLAUSE CONDITIONS::FILTER CONDITIONS::REPORT CONDITIONS::INTERACTIVE +) MSFIND (IN X) DEFPACKAGE (OPTION KEY CL:VALUES SYMBOL CL:SYMBOL SYMBOLS-TO-SHADOW FORM) STKNTHNAME ( +N) COMPILER:ENV-BOUNDP (COMPILER::NAME COMPILER:ENV COMPILER::SCOPE-OR-STRUCT COMPILER::PARENT) +DISPLAYLINK/TB (PARAMS TRANS GNT GNB WIDTH OPERATION STREAM) %%LIT-TYPE-TO-TYPE (LIT-TYPE) TERMTABLEP +(TTBL) MARGINBAR.CREATE (MARL1 MARLN MARR MARTABS MARUNIT MARTABTYPE BOX) ONEDINSPECT.SETELT (WINDOW +PROP PRTWINDOW) COMPILER:COPY-ENV-WITH-FUNCTION (COMPILER::NEW-ENV COMPILER::FN COMPILER::KIND +COMPILER::EXP-FN) DASSEM.CANSHAREBINDING (V1 V2 Y) \INSTANCE-P (OBJECT TYPE) ULREDISPLAYBITMAP (BITMAP + WNEW DSP) CLISPFORERR1 (Z Y) SEDIT::OUTPUT-CR-OR-SPACE (SEDIT::CONTEXT SEDIT::SPACE-WIDTH SEDIT::INDENT +) TB.SHOW.SELECTION (BROWSER BM BASELINE ITEM OPERATION) GETSUPERTYPE (TYPENAME N) DASSEM.COUNTVARS ( +VARS) SEDIT::PRETTY-PRINT (STREAM SEDIT::ROOT CL:STRUCTURE SEDIT::RIGHT-MARGIN) \TYPENAMEFROMNUMBER (N +) CL::STRUCTURE-OBJECT-INSPECT-STOREFN (CL::PROPERTY CL::OBJECT CL::NEWVALUE) REMOVE-COMMENTS (XCL::X +XCL::A XCL::D) %%LLARRAY-MAKE-SETTOR-EXPR (TYPENUMBER ENTRY) INSPECTW.GETHASH (ITEM HARRAY) +\TEDIT.MOVE.PIECEMAPFN (TOOBJ FROMOBJ) GETFIELDSPECS (TYPENAME) %%LLARRAY-MAKE-ACCESSOR-EXPR ( +TYPENUMBER ENTRY) COMPAREDEFS (NAME FILE DP S1 S2) COMPILER::RAW-COMPILE (COMPILER::NAME COMPILER::DEFINITION + COMPILER::COMPILED-DEFN) SEDIT::UNDERLINE-SELECTION (SEDIT::SELECTION SEDIT::WINDOW SEDIT::SHADE) +FB.INSERT.DIRECTORY (TBROWSER FBROWSER DATAWITHSUBDIR BEFOREITEM) \POSTSCRIPT.OUTCHARFN (STREAM XPOS +OLDFONT) \LEAF.TIMEDOUT.EXCESSIVE (W N WIDTH WINDOW) NCREATE (TYPE OLDOBJ) MSCALE (VAL UNIT) +COMPILER:ASSEMBLER-ERROR (STRING COMPILER::ARGUMENTS) COMPILER::START-COMPILATION (COMPILER::FASL-STREAM + COMPILER::FILECREATED) TB.SELECT.ITEM (ITEM BROWSER N) COMPILER:OPTIMIZE-AND-MACROEXPAND-1 (COMPILER::FORM + COMPILER::ENVIRONMENT) REPLACEFIELDVAL (DESCRIPTOR DATUM NEWVALUE) \ENDVECRUN (PRSTREAM HALFVECWIDTH +CH) FILING.CALL (ARGS) CENTERINHEIGHT (RELATIVETOREGION HEIGHTTOCENTER) PUTBASEPTRX (DATUM OFFSET +NEWVALUE) TEDIT.FIND.OBJECT.SUBTREE (OBJ) RESOLVE-USE-PACKAGE-CONFLICT (PACKAGE XCL::USED-PACKAGE) +/REPLACEFIELD (DESCRIPTOR DATUM NEWVALUE) CL:IN-PACKAGE (NAME USE NICKNAMES) GN/TOP (NODE) FB.THINP ( +FILENAME EXT AGE ONEDAY DELTATIMESTAMP) PUP.ECHOUSER (HOST SOC PORT OPUP TIMER) \SEARCHINTERPRESSFONTS + (FAMILY PSIZE FACE ROTATION) DINFO.TOGGLE.GRAPH (WINDOW ITEM GRAPH) COMPILER:COPY-ENV-WITH-VARIABLE ( +COMPILER::NEW-ENV COMPILER::VAR COMPILER::KIND) TYPENAMEP (TYPE DATUM) SEDIT::TRACK-SELECT (SEDIT::CONTEXT + SEDIT::WINDOW SEDIT::POINT-TYPE SEDIT::POINT? SEDIT::BAR-X SEDIT::BAR-LINE) FB.ADD.FILE (ITEM +FBROWSER TBROWSER BEFOREITEM) \CREATE.SPP.DEVICE (NAME CLOSEFN) PUP.ECHOSERVER (SOC) GN/BOTTOM (NODE) +SETY.PRESS (PRSTREAM Y ELSTREAM) COURIER.READ.NSADDRESS (STREAM ADDR) \ACTONDISKPAGES (FIRSTPAGE +LASTPAGE ACTION HINTLASTPAGE ReturnOnCheckError WIDTH) \PS.SCALEREGION (SCALE REGION) CONDITION-PARENT + (TYPE PARENT) FB.SEEFULLFN (DSP WINDOW) CL::STRUCTURE-OBJECT-PROPCOMMANDFN (CL::DATUM CL::PROPERTY +CL::INSPECTOR-WINDOW) \DISKERROR (ERRCODE) IRM.DISPLAY.CREF (STREAM IMAGEOBJ STRING STRINGREGION LEFT +BOTTOM REGION TOP RIGHT) INSPECTW.PUTHASH (ITEM VALUE HARRAY) PRINTXIP (XIP TYPE CALLER) FILEBROWSER ( +TAIL VALUE TITLEFONT BROWSERFONTHEIGHT) CL:UNINTERN (CL:SYMBOL) CL:RENAME-PACKAGE (NICKNAMES) +DATATYPEP (DATATYPESPEC DTD) CLISPIFYMATCHUP ($VARS) \DOACTONDISKPAGES (DAS CLEANUPFN FIRSTPAGE +LASTPAGE BUFFER CAS) SEDIT::NEXT-NODE-TYPE (SEDIT::NODE) DEFAULT-PROCEED-REPORTER (STREAM PC) +DINFO.TOGGLE.MENU (WINDOW ITEM GRAPH SUBNODE.MENU.WINDOW) %%PRINT-CONDITION (STREAM CONDITION) +TB.BOTTOM.OF.ITEM (BROWSER ITEM) SEDIT::TRACK-EXTEND (SEDIT::CONTEXT SEDIT::$$SOURCE SEDIT::WINDOW) +CONDITIONS::DEFAULT-RESTART-REPORTER (STREAM CONDITIONS:RESTART) \LEAF.NOT.RESPONDING (OUTSTREAM +SEQUIN REASON) SETX.PRESS (PRSTREAM X ELSTREAM) \WRITEDISKPAGES (FIRSTPAGE LASTPAGE LASTACTION +HINTLASTPAGE LASTNUMCHARS WIDTH) TEDIT.QUIT (VALUE) CL:MEMBER (CL::ITEM LIST CL::TEST-NOT CL::TEST +CL::KEY) MB.MARGINBAR.SHOWTAB (TAB UNIT W TABX MODE) SI::CONDITION-CASE-ERROR (SI::REAL-SELECTOR +SI::POSSIBILITIES) \DOWRITEDISKPAGES (DAS LASTPAGE BUFFER CAS) SI::INVOKE-ACTUAL-RESTART (SI::RESTART +SI::ARGUMENTS) FB.MENU.WHENSELECTEDFN (ITEM) SCROLLBITMAP (WINDOW BITMAP DSP YDELTA XDELTA) +M44.SIGNAL.DISK.ERROR (EC FILENAME) REDISPLAYBITMAP (BITMAP WINDOW DSP) POSTSCRIPT.OUTSTR (STREAM) +DASSEM.EQCONSTANTP (ARG) TEST-PROCEED-CASE (PC) ADD-SYMBOL (TABLE CL:SYMBOL SIZE LEN) +SEDIT::LINEARIZE-QUOTE (SEDIT::CONTEXT SEDIT::X) FB.FASTSEE.ONEFILE (FILE BROWSER WINDOW) +DBG::STKPTR-CCODE (DBG::STKPTR) DINFO.UPDATE (NEW.NODE WINDOW NODE MONITORLOCK SEL STATUS FORCE?) +HARRAYKEYS (HARRAY HASHITEM) \TFBRAVO.INSTALL.PAGEFORMAT (VAR PAGENUMBERX PAGENUMBERY TOPMARGIN +BOTTOMMARGIN NUMBEROFCOLUMNS BETWEENCOLUMNS) TEDIT.FIND.OBJECT (OBJ) \LISPERROR (N X CONTINUEOKFLG) +RAISE-SIGNAL (CONDITION) SEDIT::LOCATE-NODE-FROM-EDITCHAIN (SEDIT::ROOT) +CL::STRUCTURE-OBJECT-INSPECT-PROPPRINTFN (CL::PROPERTY) \FORWARD.XIP (XIP) \ACTONVMEMPAGES (DAorigin +BUFFERS DAs FIRSTPAGE LASTPAGE HINTLASTPAGE ACTION DSK) RESOLVE-EXPORT-MISSING (PACKAGE) +RESOLVE-EXPORT-CONFLICT (XCL::A XCL::B PACKAGE XCL::EXPORTED-SYMBOLS) \SWITCHFONTS.PSC (FONT FONTID +STREAM) \WRITEVMEMPAGES (DAorigin BUFFERS DAs FID FIRSTPAGE LASTPAGE HINTLASTPAGE LASTNUMCHARS DSK) +STORAGE (FREE TOTALALLOCMDS PAGE-THRESHOLD IN-USE-THRESHOLD TOTALHUNKS) SHOWRECTANGLE.PRESS (PRSTREAM +ELSTREAM WIDTH HEIGHT) CL:DELETE (SEQUENCE LENGTH ITEM START FROM-END KEY TEST-NOT TEST) +ATTACHEDWINDOWREGION (MAINW COM ATWIN) \STLINP (STR ALLOC TOT) CL:LIST-ALL-PACKAGES (V) CL:STRING= ( +STRING1 STRING2) \COURIER.BROADCAST.ON.NET (NET NSOC PROGRAM PGMDEF PROCEDURE PROCDEF %#TRIES) +STORAGE.LEFT (MDSFREE) SETUPFONTS.IP (IPSTREAM FONTS) \STORAGE.TYPE (TYPE TOTALALLOCMDS PAGE-THRESHOLD + FREE) DASSEM.DPRINTLAP (FN OUTSTREAM NAMETABLE ARGTYPE CD) COMPARELST (X Y) \STORAGE.HUNKTYPE ( +GCTYPE.NAME TOTAL) \STRINGWIDTH.PRESS (STREAM STRING PRFONT WIDTHSBASE) +DBG::FIND-ORIGINAL-NAME-AND-DEFINITION (DBG::STKPTR DBG::NAME CL:SYMBOL) REMOVEWINDOW (WINDOW) +XCL:LIST-ALL-PROFILES (XCL::VALUE XCL::PROFILE) ONEDINSPECT.SELECTPROP (WINDOW RIGHTWINDOW ROWPROPS +PROP VERTMARKS ROWPROPSPACE) \NSFILING.GET/SETINFO (STREAM INFOFN DEVICE) XCL:PROFILE-NAME (XCL::PROFILE +) BITMAPSCROLLFN (WINDOW XDELTA YDELTA) SEDIT::LINEARIZE-LIST (SEDIT::NODE SEDIT::CONTEXT +SEDIT::ENVIRONMENT SEDIT::LPAREN SEDIT::STARTX SEDIT::PAREN-WIDTH SEDIT::RIGHT-MARGIN +SEDIT::COMMENT-SEPARATION SEDIT::SUBNODE SEDIT::COMMENT-START SEDIT::SPACE-WIDTH) PUSH-IP-STACK ( +IPSTREAM OBJECT) FAKE-COMPILE-FILE (COMPILER-OUTPUT COMPILE.FILE.AFTER) \FM.NUMBER-CHANGESTATE ( +SI::$PROG1-FIRST-EXPRESSION$) COURIER.REP.LENGTH (TYPE PROGRAM BASETYPE WHICH) \DODISKCOMMAND (BUFFER +PAGENO VDA ACTION) CL:AREF (ARGS) SEDIT::TTYFN (SEDIT::EVENT SEDIT::ATM TYPE SEDIT::COMPLETION-FN +SEDIT::CONTEXT) \STMDSTYPE (NAME NPAGESALLOCATED ALLOC FREE INUSE BOXCOUNT) TEDIT.EDIT.OBJECT (STREAM) + CL::INSPECT-STRUCTURE-OBJECT (CL:STRUCTURE CL::WHERE) XCL:FIND-PROFILE (XCL::NAME) \XIPERROR (X +ERRCODE) XCL:COPY-PROFILE (XCL::PROFILE) COMP.SELECTQ (C END Y) \CLEANUPDISKQUEUE (CB) \SEL.LIMIT (SEL +) RESOLVE-IMPORT-CONFLICT (PACKAGE) TB.NORMALIZE.ITEM (BROWSER ITEM WINDOW CLIP BOT) SEDIT::SHRINKFN ( +SEDIT::WINDOW SEDIT::CONTEXT $$OUTPUT SEDIT::LOCK) GN/LEFT (NODE) \INDEXATOMPNAME (X) TB.EXPANDFN ( +WINDOW) \VFMBlankInterval (volNum intervalCache) INCORNER.REGION (A MAINREGION TOPMARGIN) +XCL:SAVE-PROFILE (XCL::PROFILE XCL::X) \CREATEINTERPRESSFONT (FAMILY SIZE FONTFACE ROTATION DEVICE) +\NSFILING.GET.ATTRIBUTES (SESSION HANDLE) \MAKE.EXPEDITED.STREAM (OSTREAM ACCESS XIP) SEDIT::INSERT-LIST + (SEDIT::WHERE SEDIT::NODE SEDIT::CONTEXT SEDIT::SUBNODES SEDIT::POINT) \DSPCLIPPINGREGION.IP (STREAM) + COMPILE-FILE? (FILE TYPE) DASSEM.DSTOREFNDEF (FN LC CD NTBYTESIZE ARGTYPE NARGS NLOCALS NFREEVARS) +RESOLVE-UNINTERN-CONFLICT (CL:SYMBOL PACKAGE) POSTSCRIPT.STARTPAGE (STREAM FONT) ICMLARRAY.INDICES ( +DISPLAYWINDOW MAINW PRTWINDOW CURRENTLEVELS COLUMN ROW) DINFO.TOGGLE.TEXT (WINDOW DINFOW GRAPH +MONITORLOCK ITEM) \STMDS.APPROX (N) \REALDISKDA (DSK NSECTORS NHEADS NTRACKS) XCL:PROFILE-P (XCL::OBJECT +) REPOSITIONATTACHEDWINDOWS (WINDOW ATTW) COMP.PREDP (CTX) COMPARELISTS (X Y TAIL PAIR) \SEL.LINEDESC +(SEL) DINFO.TOGGLE.HISTORY (WINDOW ITEM GRAPH HISTORY.MENU.WINDOW) \LEAF.RESENDPUPS (SEQUIN) +SEDIT::RESHAPEFN (SEDIT::WINDOW SEDIT::NEW-REGION SEDIT::OLD-IMAGE-REGION SEDIT::CONTEXT SEDIT::OLD-IMAGE + SEDIT::OLD-BOTTOM) DELFROMCOMS (COMSNAME NAME) TB.FIND.PREVIOUS.TAIL (BROWSER ITEM#) XCL:OPEN-STREAM-P + (STREAM) \FM.EDIT-SETUP (SI::$PROG1-FIRST-EXPRESSION$) \COURIER.REP.BOUT (BYTE) \CHECKFREEPAGE (CB +DSK) \PARTEND.PRESS (PRSTREAM PARTTYPE STREAM W) XCL:ECHO-STREAM-INPUT-STREAM (STREAM) +CL::STRUCTURE-OBJECT-INSPECT-FETCHFN (CL::PROPERTY CL::OBJECT) NS.ECHOUSER (ECHOHOST ECHOADDRESS TIMER +) XCL:MAKE-PROFILE (XCL:PROFILE-NAME XCL::PROFILE) SWAPXIPADDRESSES (DESTSOCKET NDB) +XCL:ECHO-STREAM-OUTPUT-STREAM (STREAM) \FM.NUMBER-SETUP (SI::$PROG1-FIRST-EXPRESSION$) FILENAMEFROMID +(volumename stream highhalf lowhalf version) XCL:TWO-WAY-STREAM-OUTPUT-STREAM (STREAM) +POSTSCRIPT.SET-FAKE-LANDSCAPE (STREAM OLAND) NSNETDAYTIME0 (SOC) MAKE-DO-SYMBOLS-CODE (VARS) +NEARESTCORNER (REGION) \HANDLE.RAW.XIP (TYPE MYADDR SOCNUM) XCL:ECHO-STREAM-P (STREAM) FIND-SYMBOL* ( +SYM WHERE) %%MAKE-ARRAY-TYPE-TABLE (TYPE-ENTRY LIT-TYPE SIZE-ENTRY LIT-TABLE) XCL:TWO-WAY-STREAM-P ( +STREAM) SEDIT::REPAINTFN (SEDIT::WINDOW) DISPLAYLINK/LR (PARAMS TRANS GNL GNR WIDTH OPERATION STREAM) +FINDATS (X L) TB.SHRINKFN (WINDOW) XCL:TWO-WAY-STREAM-INPUT-STREAM (STREAM) ENCAPSULATEDOBJ.DISPLAYFN +(STREAM FONT OBJ OBJBOX CURX CURY GETFN XSIZE YSIZE OLDFONT) SEDIT::COMPLETION (TYPE CL:STRUCTURE +CL:ATOM) ICMLARRAY.DETACHDISPLAY (STATUSGROUP DISPLAYGROUP) CHCON (X CODE RDTBL) GN/RIGHT (NODE) +DBG::FIND-DEBUGGER-STACK-FRAME (DBG::LSTPOS) XCL:CONCATENATED-STREAM-P (STREAM) +XCL:CONCATENATED-STREAM-STREAMS (STREAM) CHANGETRAN (X) \NSFILING.GETEOFPTR (STREAM) UNPACK (X RDTBL) +WTODSY (WY WINDOW) TB.FLUSH.WINDOW (WINDOW) TEDIT.MOVE (CROSSCOPY) CLISPLOOKUP0 (WORD LISPFN) +XCL:BROADCAST-STREAM-STREAMS (STREAM) COMP.VAL (X LV) COMPILER::COMPILE-SCAN-LOOSE-FORM (COMPILER::FORM +) \TEDIT.STRIKEOUT.CARET.OFF (TEXTOBJ TEXTSTREAM SEL) XCL:SYNONYM-STREAM-SYMBOL (STREAM) +SEDIT::PUNT-SET-SELECTION (SEDIT::SELECTION SEDIT::CONTEXT SEDIT::NODE) \SPPGETERROR (TRIALPKT) +\VIRTUALDISKDA (REALDA DSK) XCL:BROADCAST-STREAM-P (STREAM) DBG::FIND-NAMED-STACK-POSITION (DBG::FN +DBG::N DBG::LSTPOS) XCL:FOLLOW-SYNONYM-STREAMS (STREAM) \FM.EDIT-INSERT (SI::$PROG1-FIRST-EXPRESSION$) + \CWSU.DEFAULT (STREAM ITEM PROGRAM TYPE) BRIEFLY-DESCRIBE-SYMBOL (CL:SYMBOL) COMPILER::NODE-TYPE-NAME + (COMPILER::TRUE-NAME) XCL:SET-DEFAULT-EXEC-TYPE (TYPE) CL::STRUCTURE-OBJECT-P (CL::OBJECT) +CL:FIND-ALL-SYMBOLS (STRING-OR-SYMBOL STRING V A0429 RES) TCOMPL (FILES) \LOCATE.NSNET (NET BUCKET) +DCHCON (X CODE RDTBL L2 SCRATCHLIST) CLEARCLISPARRAY (TYPE NAME FORM) \NSFILING.GETFILEINFO.FROM.PLIST + (ATTRIBUTE ENTRY) \FLUSHNDBS (EVENT) CLISPNOTVARP (X) CL:FRESH-LINE (OUTPUT-STREAM) SEDIT::DELETE-QUOTE + (SEDIT::START SEDIT::NODE SEDIT::CONTEXT SEDIT::SUBNODE SEDIT::GAP-NODE) XCL:SET-EXEC-TYPE (TYPE) +ENCAPSULATEDOBJ.PUTFN (IMAGEOBJ DATANBYTES) CL:APROPOS-LIST (STRING BASE OFFSET LENGTH FATP LIST) +EDITFROMFILE (EDITPATTERN) ICMLARRAY.DOWINDOWCOMFN (WINDOW CENTRAL DISPLAYGROUP PASSTOMAINCOMS) +DUNPACK (X CODE RDTBL L2 SCRATCHLIST) \TEDIT.SEARCH.CODETABLE (CODETBL) CL:APROPOS (BASE OFFSET LENGTH + FATP) RECOMPILE (PFILE CFILE FNS) TEXTICON (WINDOW ICON REG) %%MAKE-CML-TYPE-TABLE (TYPE-ENTRY +CMLTYPE ARRAY-TABLE) UALPHORDER (ARG1 B) TB.RENUMBER.TAIL (TAIL FIRST#) \FLUSH.PACKET.QUEUE (QUEUE) +DASSEM.DWRITEFN (ARGS LOCALS NLOCALS ARGTYPE FN FRAMENAME OUTSTREAM LC NFREEVARS NARGS *READTABLE*) +\TEDIT.STRIKEOUT.CARET.ON (TEXTOBJ TEXTSTREAM SEL) ALPHORDER (A B CHAR CASIZE CAFAT) COURIER.OPEN ( +HOSTNAME NAME W) CASEARRAY (AR) TB.UPDATE.DISPLAY (BROWSER FROMITEM# TYPE ITEMHEIGHT WINDOW ITEMBOTTOM +) RETURN-FIRST-OF-THREE (ONE) DBG::DEBUGGER-EVAL (CL:VALUES) NEARTOP (MAINREGION TOPMARGIN LEFT WIDTH) + XCL:SYNONYM-STREAM-P (STREAM) \NSFILING.RELEASE.BULKSTREAM (STREAM) FREEATTACHEDWINDOW (WINDOW +MAINWINDOW REGION EDGE ATWINS BOTTOM HEIGHT) CHECK-SYMBOL-NAMESTRING (BASE OFFSET LEN FATP CLAUSE +PREFIX PREFIX-LENGTH WHERE) \TEDIT.UNDERLINE.CARET.ON (TEXTOBJ TEXTSTREAM SEL) CONCATCODES (CHARCODES +STR) \SWAPDISKERROR (ERRCODE DISK) \ACCHARWIDTHLIST (BOXLIST FBBOX) PACKC (X \PNAMESTRING PBASE) +COURIER.WRITE.REP (STREAM VALUE PROGRAM TYPE) \LOOKUPFMAP (PAGE) ERROR-MISSING-EXTERNAL-SYMBOL (NAME +PACKAGE) \READACFONTBOXES (FILE ENDCHAR STARTCHAR N WIDTH) CL::BUILD-COPIER-TYPE-CHECK (CL::PS) +\WHICHPART (PAGE) \GETFBB (BOXLIST BOX) \ACCHARIMAGELIST (BOXLIST BOX) DASSEM.DASSEM (CC FN ARGTYPE +VARCOUNT FRAME VARS Y N F) RESOLVE-MISSING-PACKAGE (CL:PACKAGE-NAME CL:SYMBOL-NAME XCL::EXTERNALP) +\NEW.READ.SYMBOL (BASE OFFSET LEN FATP) \COPYSEL (FROM) PACK (\PNAMESTRING) DINFO.FMENU.HANDLER ( +WINDOW ITEM TYPE GRAPH BUTTONS) DBG::DEBUGGER-MENU-HELP (DBG::COMMAND) TEDIT.FIND (END#) \PACK.ITEM ( +BASEA0364 OFFSETA0363 CODE ITEM) \NSFILING.GETFILENAME (DEVICE NAME RECOG) OPEN (FILENAME DIRECTION +ELEMENT-TYPE STREAM) UnixPrintCommand (COPIES NAME TMPNAME) WTODSX (WX WINDOW) COMPILER::PRINT-NODE ( +COMPILER::NODE COMPILER::INDENT) SEDIT::DELETE-LIST (SEDIT::NODE SEDIT::CONTEXT SEDIT::START SEDIT::END + SEDIT::SET-POINT?) \ACROTATECHAR (BITMAP) \FM.EDIT-PREPARETOEDIT (SI::$PROG1-FIRST-EXPRESSION$ REGION +) \LFINITCASEARRAY (CASEARRAY) LITATOM.EXISTS (STRING) SEDIT::VAR-CHANGED (CL:ATOM CL:STRUCTURE) +\PAGEPAD.PRESS (STRM P) \CREATESTARFONT (CHARSET PSIZE DEVICE FAMILY FACE ROTATION FD CS) +\PFTransferFilePage (file filePageNumber index volumePageNumber frame operation noBreak) \NEW.MKATOM ( +BASE OFFST LEN FIRSTCHAR FATCHARSEENP) TB.CLOSEFN (WINDOW) COMP.DELFIX (TYPE) CONVERT-LITATOM (ATOM +BASE LEN FATP CLAUSE PREFIX PREFIX-LENGTH WHERE) RESOLVE-MISSING-EXTERNAL-SYMBOL (NAME PACKAGE) +\FM.EDITSTART-SELECTEDFN (WINDOW EDITITEM SI::$PROG1-FIRST-EXPRESSION$ BUTTONS) \FAMILYCODE (WSTRM +FAMILY NCHARS) SEDIT::PLACE-CARET-AND-SELECTION (SEDIT::CONTEXT SEDIT::Y SEDIT::SELECTION TYPE) +FB.ANALYZE.PATTERN (SAMPLE) \FACECODE (FACE) XCL:PACK (NAMES PACKAGE) ONEDINSPECT.SELECTITEM (WINDOW +ROWPROPS VERTMARKS FETCHFN DATUM) \LITATOM.EATCHARS (LITATOM N LEN) \TEDIT.SUPERSCRIPT.CARET (TEXTOBJ +TEXTSTREAM SEL) \NSINIT (SOC) CL:INTERN (BASE OFFSET LENGTH FATP) INTERPRESSBITMAP (OUTPUTFILE BITMAP) + CLISPACKUP (L) INTERN-LITATOM (WHERE PACKAGE ATOM) \ACCHARPOSLIST (FILE ENDCHAR STARTCHAR +DIRECTORYSTART) OLDFAULT1 (FAULTX FAULTARGS) XCL:PACK* (NAMES) C.FLOATUNBOX (A) SEDIT::PROPLST-CHANGED + (CL:ATOM CL:STRUCTURE) BRECOMPILE (STREAM DESCR DEFQ FORM NLAMA NLAML LAMS) MAKEBITTABLE (L CHAR +TABLE CODE X) CL::DEFINE-COPIERS (CL::PS) EXCHANGEXIPS (SOC OUTXIP TIMER) IRM.RESET (W) TEDIT.SETSEL ( +STREAM CH# LEN POINT OPERATION) TB.PRINT.LINE (BROWSER ITEM WINDOW PRINTFN) COMP.EXPR (COMPILE.CONTEXT +) TRANSFER-SYMBOL (TO FROM) \FM.EDITSTART-MESSAGE (BUTTONS) \DSKDISPLAY.RESHAPEFN (W REG) +\NSFILING.HOSTNAMEP (HOST) SEDIT::OUTLINE-SELECTION (SEDIT::SELECTION SEDIT::ENDLINE SEDIT::FN +SEDIT::WINDOW SEDIT::SHADE) \SPP.CLOSE.IF.ERROR (STREAM) CONCOCT-SYMBOL (STRING SYM) NEWPAGE?.IP ( +IPSTREAM) \SETFATSYNCODE (CHAR CODE) \FM.EDIT-ITEM (EDITITEM WINDOW STARTFLG TIMEOUT) PACKAGE-ENABLE ( +PACKAGE) \BCPLSOUT.PRESS (X STRM NC) SCANX (DX DY X0 Y0) WINDOWWORLDP (SCREEN) PACKAGE-INIT (CONVERT?) + \NSFILING.ERRORHANDLER (ERRCODE) DETACHALLWINDOWS (MAINWINDOW W) FILEPOS (FILE STREAM CA SKIPCHAR) +\M44DOEXTENDVMEMFILE (DAs SCRATCHBUF CAs) PRINTDISPLAYNODE (NODE) SHOW.PRESS (PRSTREAM CURBYTE) +UnixShellQuote (STRING X) OPENPOSTSCRIPTSTREAM (FILE OPTIONS X) FB.CHECK.NAME.LENGTH (FILEDATA +PRINTLENGTH SPACING) \PFPutFileMapPage (volumePageNumber frame) \EXTENDISFMAP (PAGE DA LASTOFFSET) +RESOLVE-READER-CONFLICT (CLSYMWHERE ILSYM CLSYM) \VFMCorrectBufferP (BUFFER VOLPAGENUM) COMP.STCONST ( +X) SHOULDNT (MESS) \FM.EDITSTART-SETUP (SI::$PROG1-FIRST-EXPRESSION$) FFILEPOS (FILE STREAM \FFDELTA1 +\FFDELTA2 \FFPATCHAR PATCHAR DELTA1 DELTA2 CASE MAXPATINDEX) SEDIT::LESS-PROMPT-WINDOW (SEDIT::REGION +SEDIT::FONT) SEDIT::LINEAR-ITEM-WIDTH (SEDIT::ITEM) \SETUP.FFILEPOS (PATLEN DELTA1 PATLEN,PATLEN +MAXPATINDEX PATCHAR CASE PATBASE PATOFFSET DELTA2) C.FLOATBOX (A) SEDIT::PROP-CHANGED (CL:ATOM +CL:STRUCTURE) \MAKE.COURIER.REP.STREAM (LIST.OF.WORDS) CL::BUILD-COPIER-SLOT-SETFS (CL::SLOTS) +XTOUSTRING (XCCSSTRING RAWFLG USTR) DBG::NEAR-BY-REGION (DBG::REGIONTEMPLATE DBG::REGION DBG::WIDTH +DBG::HEIGHT) UnixTempFile (host Prefix dir str) TEDIT.MAPPIECES (TEXTOBJ PCTB FN FNARG) +\LEAF.REPAIR.BROKEN.PUP (OLDSEQUIN) \INITIALIZESWAPDISK (ISFindex) COMPILER::COMPILE-SCAN-DEFINE-FILE-INFO + (COMPILER::FORM) TB.CLOSE/SHRINK (WINDOW BROWSER FLG) \NSFILING.CLOSE.BULKSTREAM (CONNECTION) +EXPANDING-PAGEFULLFN (W OLDREGION INCREMENT CURRENTHEIGHT) INTERPRESS.BITMAPSCALE (WIDTH HEIGHT RATIO) + PACKAGE-HIERARCHY-INIT (ATOM) IRM.SMART.LOOKUP (KEYWORD GRAPH) SEDIT::COPY-STRUCTURE-LIST (SEDIT::SUBNODE +) CL::%%NOT-NUMBER-ERROR (CL::OBJECT) \FM.DISPLAY-SETUP (SI::$PROG1-FIRST-EXPRESSION$) +\NSFILING.RENAMEFILE (NEWDEVICE DEVICE OLDNAME NEWNAME) TB.FIND.SELECTED.ITEM (LAST# BROWSER FIRST#) +SEDIT::ICON-COPYFN (WINDOW) TB.SHOW.DELETION (BROWSER WINDOW BASELINE THICKNESS ITEM OPERATION) +CL::%%NOT-RATIONAL-ERROR (CL::OBJECT) PSCFONT.READFONT (FONTFILENAME S) \SPP.DUPLICATE.REQUEST (XIP +SOURCEID) \ENTITYEND.PRESS (PRSTREAM PRDATA ETYPE STREAM W XOFFSET YOFFSET) COMPILER::PRINT-TREE ( +COMPILER::TREE) BCOMPL (CFILE NOBLOCKSFLG OPTIONSSET) \TFBRAVO.INIT.PAGEFORMAT (TEXTOBJ) SCALE/GRAPH ( +STREAM GRAPH SCALE) TB.PROCESS (FORM NAME RESTARTABLE) \TEDIT.UNDERLINE.CARET.OFF (TEXTOBJ TEXTSTREAM +SEL) CL::%%RATIO-PRINT (CL:NUMBER STREAM CL::TOP CL::BOTTOM) FB.HANDLE.ABORT.BUTTON (MENU ITEM) +UPDATE/SCROLL/REG (IMAGEREG) DESCRIBE-VIRTUAL-MEMORY (NOBCPL VMSIZE) SEDIT::COMPUTE-POINT-POSITION-LIST + (SEDIT::NODE) NEWFAULT1 (FAULTX FAULTARGS) DATE (FORMAT) CL:ADJOIN (CL::ITEM LIST CL::TEST-NOT CL::TEST +) SEDIT::FN-CHANGED (CL:ATOM CL:STRUCTURE) ICMLARRAY.DISPLAYSLICE (CMLARRAY LEVELS SLICE WHERE +TOPRIGHT) ASKUSERLOOKUP (FIELD) CL::%%BUILD-RATIO (CL::X CL::Y CL:REM) DBG::RELEASE-DEBUGGER-WINDOW ( +DBG::W) DINFOGRAPH (X) BRECOMPILE3 (FN FILEMAPLST) CL::%%COMPLEX-PRINT (CL:NUMBER CL:REALPART +CL:IMAGPART STREAM) FM.SKIPNEXT (WINDOW FM.PROCESS CLEARFLG) DATEFORMAT (FORMAT) +CL::DEFAULT-CONSTRUCTOR-NAME (CL::STRUCTURE-NAME) CL::%%NOT-FLOAT-ERROR (CL::OBJECT) CL::%%COMPLEX-+ ( +CL::IMAG-1 CL::REAL-1 CL::REAL-2 CL::IMAG-2) \TEDIT.PRIMARYW (TEXTSTREAM) GDATE (DATE FORMAT STRPTR) +\TEDIT.FORMATTEDP1 (FILE N WIDTH) ID (X) \TEDIT.SUBSCRIPT.CARET (TEXTOBJ TEXTSTREAM SEL) +DISPLAYNODELINKS (G NODE NODELST NODEHASHTABLE TRANS STREAM LINEWIDTH TOSONLY) +\LEAF.USE.NEW.CONNECTION (SEQUIN) COMPILER::TEST-ALPHA-2 (COMPILER::FN) \TFBRAVO.GET.FONTSIZE (FONT) +TERMX (DX DY X0 Y0) CL::%%NOT-NONCOMPLEX-NUMBER-ERROR (CL::OBJECT) NEW/EDITDATE (OLDATE INITLS) +\FIXP.FROM.FLOATP (VAL) COURIER.READ.REP (LIST.OF.WORDS PROGRAM TEMPLATE) \DSPTOPMARGIN.PRESS ( +PRSTREAM) SEARCHPRETTYTYPELST (TYPE) CL::%%COMPLEX-/ (CL::IMAG-1 CL::REAL-2 CL::IMAG-2 CL::REAL-1 +CL::MODULUS) \GETBASE (X D) \NSFILING.WHENCLOSED (STREAM) DOMAINWINDOWCOMFN (ATTACHEDW) \PACKDATE ( +TIMEZONE) \PUTBASE (X D V) \NSFILING.DIRECTORYNAMEP (DEVICE HOST/DIR) \IDATESCANTOKEN (CHAR UCHAR) +CL::%%COMPLEX-ABS (CL::Z CL::Y) \DSPFONT.IP (IPSTREAM) \IDATE-PARSE-MONTH (MONTH) DP (ATOM ARGS) +CL::DEFECT-FROM-IL-TO-XCL (CL::NAME) COMPILER::COMPILER-ERROR (COMPILER::COMPILER-CONTEXT COMPILER::ARGS +) ICMLARRAY.ATTACHDISPLAY (DISPLAYGROUP STATUSGROUP W DISPLAYEDLEVELS) \TEDIT.SHRINKFN (W) +FB.EDITLISPFILE (FILE BROWSER) ASKUSEREXPLAIN (KEYLST ENTRY OPTIONS PREV KEY OPTIONSLST DELIMITER X) +CL::%%RATIO-PLUS (CL::DENOMINATOR-1 CL::DENOMINATOR-2 CL::GCD-D CL::NUMERATOR-1 CL::NUMERATOR-2 +CL::D1/GCD-D CL::TOP CL::D2/GCD-TOP) CONDITIONS::DEFECT-FROM-XCL-TO-CONDITIONS (CONDITIONS::NAME) +InstallUnixPrinter (PrinterTypes) PROMPTPRINT (N) EVENP (INTEGER) \NSFILING.DELETEFILE (DEVICE +FILENAME HANDLE) FB.COPYFN (ITEM) CL::%%RATIO-TIMES (CL::NUMERATOR-1 CL::DENOMINATOR-2 CL::NUMERATOR-2 + CL::DENOMINATOR-1 CL::K CL::H) \GETBASEPTR (X D) SEDIT::CFV-QUOTE (SEDIT::SUBNODE SEDIT::QUOTE-WIDTH) + CHECKTRAN (X) MAKEALISTCOMS (X PR) CL::%%COMPLEX-- (CL::IMAG-1 CL::REAL-1 CL::REAL-2 CL::IMAG-2) +RECOMP? (FNS X) \PUTBASEPTR (X D V) \LFExtendFile (stream vol fileDesc minBackingFileSize) \RPLRIGHT ( +S AT N MINDIGITS) \ENTITYSTART.PRESS (PRSTREAM STRM) CL::BUILD-CONSTRUCTOR-SLOT-SETFS (CL::PS +CL::ARGUMENT-LIST CL::SLOT CL::ARGUMENT CL::SLOTS) CL::%%< (CL::Y CL::X) \HILOC (X) +TEDIT.INSERT.OBJECT (STREAM OBJECT START-OF-PIECE) TEDIT.MAPLINES (TEXTOBJ FN TOP BOT) \OUTDATE-STRING + (S N STRING) COMP.ST (DL X) \LOLOC (X) \TEDIT.SELECT.ALL (TEXTSTREAM TEXTOBJ) \FM.NUMBER-SELECTEDFN ( +ITEM WINDOW BUTTONS) \PFGetFileMapPage (volumePageNumber frame) SEDIT::HIGHLIGHT-SELECTION ( +SEDIT::SELECTION SEDIT::WINDOW SEDIT::SHADE) CL::%%COMPLEX-* (CL::IMAG-1 CL::REAL-1 CL::REAL-2 +CL::IMAG-2) PROCESSWORLD (FLG RESULT) SEDIT::PARSE--LIST (CL:STRUCTURE) \COERCEASCIITONSFONT ( +ASCIITONSFIXARRAY ASCIITONSMAPARRAY NSFAMILY SIZE FONTFACE ROTATION DEVICE ASCIITONSMAP ASCIIFAMILY +WIDTHS) ADD.PROCESS (ARGS) \DSPSPACEFACTOR.PRESS (STREAM) COMPILEUSERFN1 (Y) FB.CLOSEFN (TBROWSER FLG) + \START.PROCESSES (TOFX) \RUN.PROCESS (REASON) SEDIT::CFV-LIST (SEDIT::ENVIRONMENT SEDIT::SUBNODE +SEDIT::INDENT SEDIT::SPACE-WIDTH SEDIT::TWO-PARENS) NEWPAGE.IP (IPSTREAM) DISPLAYGRAPH (N CLIP/REG) +BYTE (CL::SIZE CL:POSITION) SEDIT::SEDITL (CL:ATOM SEDIT::EDITEXPR SEDIT::MESSAGE SEDIT::EDITCHANGES) +\RPLPTR (OBJ VAL) SEDIT::SEDITE (SEDIT::CONTEXT CL:STRUCTURE SEDIT::CHANGED? SEDIT::IFCHANGEDFN +SEDIT::OLD-PROPS SEDIT::EVENT SEDIT::OPTIONS SEDIT::COMPLETION-FN) ICMLARRAY.MENUW.SHOW (MENUWINDOW +DISPLAYEDLEVELS CMLARRAY) CLISPELL (X FORM) EQ (X Y) \IRM.SMART.REF (WINDOW) \INSPECT/CODE/REPAINTFN ( +WIN UPPERLEFT) UNMAKEMAINWINDOW (MAINWINDOW) OPT.CALLP (OP) LOC (X) \DSPLINEFEED.PRESS (PRSTREAM) +\FM.NUMBER-MESSAGE (BUTTONS) TB.FIRST.VISIBLE.ITEM# (BROWSER REGION) DBG::CLOSE-DEBUGGER-WINDOW (DBG::W + DBG::PROCESS) VAG (LOC) SEDIT::INPUT-NORMAL-CHAR ($$OUTPUT SEDIT::POINT-TYPE SEDIT::POINT) +TB.REV.FIND.SELECTED.ITEM (FIRST# LAST# BROWSER) CL::%%LCM (CL:GCD) COMPEM (X) KNOTLOOP (KNOTS) +SETXY.PRESS (PRSTREAM X Y) INITX (DX DY X0 Y0) CL::BOA-CONSTRUCTOR-P (CL::CONSTRUCTOR) CL::%%RECIPROCOL + (CL:NUMBER) CL::%%GCD (CL::K) \TEDIT.ITALIC.CARET.ON (TEXTOBJ TEXTSTREAM SEL) BLOCKCOMPILE1 (BLKNAME +X) \NEW4PAGE (PTR) EDITPROP (NAME) UPDATECHANGED1 (KEY) PUTWINDOWPROP (PROP VALUE) CREATE.EVENT (NAME) + XCL::SFLOOR (CL:NUMBER CL::RESULT) NSOCKETNUMBER (NSOC) PAINTW.SHADE.LABEL (FILLING BM) COMPILEFILES0 + (FILES OPTIONS) \NEXTCONSPAGE (N) FILLWITHBACKGROUND (REG WIN) \FM.NWAY-CHANGESTATE (COLLECTION +WINDOW NWAY) \NSFILING.COURIER.OPEN (ADDRESS NAME) \PFPutAllocationMapPage (volumePageNumber frame) +SEDIT::GRAY (SEDIT::WINDOW) COMPILER::TEST-ALPHA (COMPILER::FN COMPILER::TREE) TB.FIND.ITEM (BROWSER +LO HI) SEDIT::CREATE-COMMAND-TABLE (SEDIT::DESCRIPTION SEDIT::COMMAND SEDIT::KEY SEDIT::TABLE +SEDIT::MENU-ITEMS SEDIT::MENU-LEFT SEDIT::MENU-RIGHT) DRAWMARGINSCALE (W WREG UNIT OLDOP) EDITFNS (Y) +SEDIT::START-PROCESS (SEDIT::CONTEXT SEDIT::EVENT) ICMLARRAY.MENUW.APPLY (MENUWINDOW CMLARRAY LEVELS +$$OUTPUT) BULKDATA.GENERATE.NEXT (STREAM) \MAIKO.CONS.UFN (X A LO D) \IRM.GET.REF (WINDOW) +\TEDIT.INSPECTCODE (CODEPRINTER FN LVFLG RADIX WHERE) ONEDINSPECT.REDISPLAY (WINDOW FETCHFN DATUM +ROWPROPS VERTMARKS ELTPROP VALUEWIDTH FHEIGHT FDESCENT) POSTSCRIPT.FONTSAVAILABLE (FAMILY SIZE FACE +PAIR DIRECTORY PATTERN FILE DEVICE RAWNAME INVERSE.ALIST NFD) \BACKGROUND.PROCESS (FN) +\TEDIT.SHRINK.ICONCREATE (W SHRINKFN ICON-POSITION) \SETSPACE.PRESS (PRSTREAM S STREAM W) +\TIMER.PROCESS (HEAD) XCL::SROUND (CL:NUMBER) SEDIT::BACKSPACE-LIST (SEDIT::CONTEXT) +VARSBOUNDINEDITCHAIN (EDITCHAIN) \DTSCAN (X) COMPILER::ESTABLISH-MACRO-IN-COMPILER (COMPILER::NAME +COMPILER::EXPN-FN) \FM.NWAY-SELECTEDFN (BUTTONS ITEM WINDOW) NUMBERPAD.READER.DECODE (CHAR) \ISDST? ( +HOUR WDAY) %%TYPE-SIZE-TO-TYPENUMBER (LIT-TYPE LIT-SIZE) CL::%%INTEGER-COERCE-OPTIMIZER (CL::CONTEXT +CL::FORM) XCL::SCEILING (CL:NUMBER CL::RESULT) COMPILER::COMPILE-FILE-PROCESS-FUNCTION (COMPILER::NAME + COMPILER::DEFINITION) PRINTLINE (LN) CL:FLOOR (CL:NUMBER CL::DIVISOR) \TEXTMENU.SET.TOGGLE (TEXT +TEXTSTREAM VALUE) EXEC (XCL::ID XCL::X) BRECOMPILE1 (FN/BLOCK LST NAME ADRLST0) CL::%%LOGICAL-OPTIMIZER + (CL:IDENTITY) \DSPRIGHTMARGIN.PRESS (PRSTREAM) \LFExtendFileIfNecessary (buffers streamFirstPage +runLength stream) INTERPRESSFILEP (FILE) CL::BUILD-CONSTRUCTOR-ARGLIST (CL::SLOT CL::SLOTS) +\PFGetAllocationMapPage (vol volumePageNumber frame) CL::%%LOGIOR (CL::X CL::Y) UNMODERNWINDOW (WINDOW +) NSOCKETFROMNUMBER (SOC#) TB.SHOW.COPY.SELECTION (BROWSER ITEM) DOCOLLECT (ITEM) +\NSFILING.CHILDLESS-P (SESSION HANDLE) COMPILEUSERFN (Y) FB.AFTERCLOSEFN (WINDOW TBROWSER) CL::%%LLSH1 + (CL::X) ENDCOLLECT (Y) SEDIT::ASSIGN-FORMAT-QUOTE (SEDIT::NODE SEDIT::CONTEXT CL:FORMAT) +PAINTW.CACHE.SHADE (SHADE) LINKPARAMETERS (TOND FROMND) \REQUEUE.ETHERPACKET (REQUEUE) +CL::%%BIGNUM-LOGCOUNT (BIGNUM) SEDIT::SET-PROPS (SEDIT::PROPS SEDIT::PROCESS SEDIT::PROCFORM) +ICMLARRAY.MENUW.GETLEVEL (ITEM MENUWINDOW CMLARRAY DIM LEVMENU PRTWINDOW $$OUTPUT) MAKEINTERPRESS ( +FILE IPFILE FONTS HEADING TABS OPTIONS) CL::%%LRSH8 (CL::X) \INITCONSPAGE (LINK) IRM.DISPLAY.REF (REF +GRAPH $$OUTPUT) \INSPECT/CODE/RESHAPEFN (WIN FONT) \TEDIT.STRIKEOUT.SEL.ON (TEXTSTREAM SEL) +\ALLOCMDSPAGE (TYP) \NSFILING.EVENTFN (EVENT DEVICE) DC (FILE ARGS) TTY/EDITL (X MESS) CLISPFOR (FORM) + DISPLAY/NUMBER/READER/TOTAL (WIN TOTALREG TOTSTR) \CLOSELEAFCONNECTION (CONN) DELETE/AND/DISPLAY/LINK + (G TMP WIN LPARAMS) GRAPHDELETELINK (GRAPH WINDOW) EDITFB (FN) \TEDIT.STRIKEOUT.SEL.OFF (TEXTSTREAM +SEL) LASTN (N) MSCOLLECTDATA (TNAME) \DSPLEFTMARGIN.PRESS (PRSTREAM) DBG::SET-UP-DEBUGGER-WINDOW (DBG::W +) \TFBRAVO.WRITE.PARAGRAPH (PARA INFILE TEXTOBJ MARGIN.CANDIDATE) CL::%%LLSH8 (CL::X) +\GET.PRIORITY.QUEUE (PRIORITY) \NSFILING.GET.NEW.SESSION (DEVICE OLDSESSION NOLOCK) \CHECKDSTCHANGE ( +YDAY DSTDAY WDAY HOUR) NUMBERPAD.READER.HANDLE.CHAR (WIN DIGIT TOTSTR) COMPILER::COMPILE-FILE-LOOSE-FORM + (COMPILER::FORM) \SET.PROCESS.NAME (FIRSTNAME) \TEDIT.UNDERLINE.SEL.ON (TEXTSTREAM SEL) +TB.DISPLAY.LINES (LAST# FIRST# WINDOW PRINTFN) BULKDATA.GENERATOR (STREAM PROGRAM TYPE) +CL::%%CONSTANT-BYTESPEC-P (CL::BYTESPEC) SPP.OPEN (SOCKET NAME PROPS TIMER TAIL) \MAPMDS (FN) +COURIER.WRITE.BULKDATA (ITEMLIST STREAM W PROGRAM TYPE) \CHECKCONSPAGE (PN PTR) SEDIT::SET-OPTIONS ( +SEDIT::OPTIONS) DISPLAY/NAME (ND) CL::%%LRSH1 (CL::X) \MAYBEPRINTPACKET (PACKET TYPE CALLER FILE +PRE.NOTE) CURSOR (INVERTFLG) TEDIT.DEACTIVATE.WINDOW (W PANE) INSPECT.FLIPSELECTION (WINDOW LEFT +BOTTOM WIDTH HEIGHT) \ETHEREVENTFN (EVENT FN) \TFBRAVO.GET.FONTSTYLE (FONT) EDITL0 (L MESS) +\FIXLINELENGTH.PRESS (PRDATA) COMPILER::EXPAND-OPENLAMBDA-CALL (COMPILER::ARG COMPILER::UNSUBBED-PARAMS +) SEDIT::ASSIGN-FORMAT-LIST (CL:FORMAT SEDIT::CONTEXT SEDIT::SUBNODE SEDIT::LAST-FORMAT) +DINFO.FMW.CLOSEFN (W DINFOW) OPT.OPTCHECK (X Y) CL::%%RATIONAL-FLOAT (CL:NUMBER CL::SIGN CL::HI CL::LO +) \LFRemoveDirEntry (dirStream stream ENTRYSIZE) UNDOEDITL (ULST ULST0 L) MSUPDATE (FNNAME FNDEF F) +\PFCreatePage (file filePageNumber volumePageNumber frame runLength noBreak) CL::%%RATIONALIZE-FLOAT ( +CL::X CL::BIT-SIGN CL:EXP) \KEYHANDLER1 (MOUSETEMP MOUSETIMER R W EXCESS) SEEFILE (ST ND) COMP.STFN (N + FN) DINFO.CREATE.FMENU (GRAPH FM) \FM.NWAY-MOVEDFN (ITEM WINDOW NWAY BUTTONS) MODERNWINDOW.UNSETUP ( +ORIGFN PKGNAME) SEDIT::FIND-NODE (SEDIT::X) SETQ (U) CL::%%FLOAT (CL::HIWORD CL::LOWORD) NEQ (X Y) +\TEDIT.UCASE.SEL (STREAM SEL STR POS LEN POINT TEXTOBJ) FB.HARDCOPY.DIRECTORY (WINDOW IMAGESTREAM +FBROWSER LMARG RMARG SCALE TBROWSER NAMERIGHTMARG DIRFONT) XYSECT (DU DY DX DV X0 Y0 U0 V0) AND (U) +WRITEIMAGEOBJ (IMAGEOBJ STREAM) PROCESSP (PROC) SEDIT::QUERY-THROW-AWAY-CHANGES (SEDIT::OPTIONS SEDIT::NAME +) CL::OPTIMIZE-BYTE (CL::SIZE CL:POSITION) TB.LAST.VISIBLE.ITEM# (BROWSER REGION) DEL.PROCESS (PROC) +CL::BOA-ARG-LIST-WITH-INITIAL-VALUES (CL::ARG-LIST CL::PS CL::NEW-ARG-LIST CL::OPTIONAL CL::SLOTS) +MAP.PROCESSES (MAPFN) TEDIT.CARETLOOKS (STREAM LOOKS) COMP.STPOP (N) STREAMPROP (X) \FM.NWAY-DOWNFN ( +ITEM WINDOW NWAY BUTTONS) \DSKDISPLAY.REPAINTFN (W vol) RELPROCESSP (PROCHANDLE) SEDIT::FIND-LINE-START + (SEDIT::CONTEXT SEDIT::Y) SPP.DESTADDRESS (STREAM ADDRESS CON) GETSTREAMPROP (PROP STREAM) +\DSPXPOSITION.IP (IPSTREAM) MSUPDATEFN1 (FN EACHTIME) PUTSTREAMPROP (PROP) MAKEFILE (X) +CHECKFORCHANGED (SET NEEDUPDATE X) PROCESS.RETURN (VALUE) \PFCreateFreePage (vol volumePageNumber +frame runLength noBreak) RESTART.PROCESS (PROC) \GETFILINGCONNECTION (DEVICE DEVINFO) +TB.RECONSIDERRANGE (LAST# FIRST#) INSTALL-PROTOTYPE-DEFN (NAME ARGS MENU) OPT.CCHECK (X) +\EXTERNALFORMAT (STREAM) TB.REPLACE.ITEMS (NEWITEMS REGION) MSSOLVE (FN X) WAKE.PROCESS (PROC STATUS) +SCALEREGION (SCALE REGION) \FM.NWAY-MESSAGE (ITEM WINDOW BUTTONS) SEDIT::FINALIZE-MOUSE-SELECTION ( +SEDIT::SELECTION) \DSPCLIPPINGREGION.PRESS (STREAM) SPP.DSTYPE (STREAM) SUSPEND.PROCESS (P) +PROMPTINWINDOW (BORDERSIZE PROMPTWBORDER PROMPTSTR WHICHCORNER X Y) \TEXTMENU.TOGGLE.WHENOPERATEDFN ( +OPERATION OBJ DS) PLCHAIN (LN) PROCESS.RESULT (EVENT) \POSTSCRIPT.SPECIALFONT.SCALEDWIDTHS (FD TYPE +ROTATION DEVICE) COMPILER::COMPLETELY-EXPAND (COMPILER::FORM) CL::BOA-SLOT-SETFS (CL::PS) +SELECT.FNS.EDITOR (FN) LISTPUT (PROP VAL) \TEDIT.UNDERLINE.SEL.OFF (TEXTSTREAM SEL) FB.ICONFN (OLDICON + WINDOW POSITION) \CURVE (N X0 Y0 DISPLAYDATA A NEWXA0625 NEWYA0624 X1 Y1 NEWXA0627 NEWYA0626 +NEWXA0629 NEWYA0628 NEWXA0631 NEWYA0630) \SPP.STREAM.LOST (STREAM) STREAMP (X) \FM.NWAY-SETUP ( +SI::$PROG1-FIRST-EXPRESSION$ REGIONS) TB.SCROLLFN (WINDOW BROWSER DX DY CONTINUOUSFLG) +FB.SET.DEFAULT.NAME.WIDTH (FONT) \LFReturnInfo (GENERATED PROP) \LFFindNextFile (directory SEARCHSTATE + HOST&DIRNAME) \PFTrimHelper (targetFileSize vol) TB.SET.FONT (WINDOW HWIDTH) \DEFPRINT.BY.NAME ( +TYPENAME STREAM OBJECT) TB.CONSIDERRANGE (LAST# FIRST#) INSPECT.INVERTREGION (WINDOW LEFT BOTTOM WIDTH + HEIGHT) NCHARS (X RDTBL ESC) FB.GET.NEWPATTERN (BROWSER) FAX.HOSTNAMEP (PRINTERNAME) \OUTCHAR (STREAM + CODE) \PRINTADDR (STREAM X \NUMSTR \NUMSTR1) SEDIT::GET-CONTEXT (TYPE) MSSHOWUSE (SHOWFN SHOWSET +SHOWEDIT SHOWTYPE ITEM SS PRNT SE) \TEXTMENU.TOGGLE.SHOWSELFN (OBJ DS IMAGEBOX SEL) CALLS (VAR) \SOUT +(STREAM X) EDITL2 (FILE ATM) MSNLAMBDACHECK (FN2) CL::ARGUMENT-NAMES (CL::ARG CL::ARG-LIST) +PRINTERRORXIP (FILE ERRCODE ERRARG) READTABLEP (RDTBL) \INSERTCR (CH CH#) TTY.PROCESSP (PROC) +\TEDIT.SUPERSCRIPTSEL (TEXTSTREAM SEL) \LEAF.ACKED (SEQUIN PUP) WBREAK (ON) YSECT (DU DY DX DV X0 Y0 +U0 V0) \STREAM.DEFPRINT (STRM OUTSTREAM TYPE) CL:STRING-CAPITALIZE (STRING START END NEW-STRING) +WINDOWP (X) \DSPBOTTOMMARGIN.PRESS (PRSTREAM) GIVE.TTY.PROCESS (WINDOW) \NSFILING.LOGIN (FILESERVER +PROCNAME DEVICE) NSMAP (ZERODEFAULT TABLE MAP X) \CARET.DOWN (UNLESSOCCLUDED INTERVAL) +\DSKDISPLAY.BUTTONEVENTFN (W) SPP.SENDEOM (CON) \FDEV.DEFPRINT (DEV STREAM) NEWLINE.IP (IPSTREAM +IPDATA) GETTEMPLATE (FN) \GETACCESS (STREAM) CH.CHANGE.ITEM (PROPERTY NEWVALUE) VERBNOTICELIST (VPART) + EDITBF (FF) \NSFILING.UPDATE.ATTRIBUTES (NEWATTRS) \DSPFONT.PRESS (PRSTREAM) +DBG::SIMPLE-REPORT-CONDITION (STREAM) \INTERPRESSINIT (MAPPINGS) APPEND (L) MENU.HANDLER (MENU DSP +MGRIDSPEC NROWS NCOLUMNS MOVEDLEFT LOCALMENUHELDWAIT) FAX.PROPERTIES (HOST) \SPP.PREPARE.INPUT (NBYTES +) COMPILER::ALPHA-THROW (COMPILER::TAG COMPILER::VALUE) EDITQF (PAT) OPT.DS1 (VAR) \PFSaveBuffers (VOL +) \LFSortFiles (A B) \SETACCESS (ACCESS DEVICE) WINDOW.BITMAP (W REGION) TEDIT.INSERT.UPDATESCREEN ( +CHARS CH#) \SOFTCURSORPOSITION (X Y) MSGETDEF (NAME SOURCE OPTIONS TYPE) \STREAM.NOT.OPEN (STREAM) +\TEDIT.SMALLER.CARET (TEXTOBJ TEXTSTREAM SEL) \FM.STATE-CHANGESTATE (NEWSTATE +SI::$PROG1-FIRST-EXPRESSION$ WINDOW) CLOSEMAINWINDOW (ICONWIN) \LEAF.FIX.BROKEN.SEQUIN (STATE DEVICE +\DurationLimit) CL::DEFINE-CONSTRUCTORS (CL::PS CL::CONSTRUCTORS CL::EXPORTNAME CL::CONSTRUCTOR +CL::SLOTS CL::ARGUMENT-LIST) MODERNWINDOW.BUTTONEVENTFN (WINDOW MAINREGION ATTACHEDREGION +STARTINGREGION TITLEPROPORTION) XSECT (DU DY DX DV X0 Y0 U0 V0) PROCESS.WINDOW (PROC) BPNT0 (X FILE +CARLVL CDRLVL TAIL) ONED.TRACKCURSOR (WINDOW MARKS PROPS NEW-ITEM-FN HIGHLIGHT-FN HEIGHT) +\INSTALL.EXTERNALFORMAT (EXTFORMAT/NAME) \NSFILING.CLOSEFILE (OPTIONS FILESTREAM) +\NSADDRESS.PRINT.DECIMAL (ZERO STREAM) FB.INFO.ITEM.NAMED (ITEMS TAG) OPENW (USEROPENFN) +SEDIT::EXPANDREGIONFN (SEDIT::WINDOW SEDIT::CONTEXT) TB.CONTIGUOUS.SELP (LAST# FIRST# BROWSER) +COMPILER::ALPHA-TAGBODY (COMPILER::BODY CL:TAGBODY) \TFBRAVO.HANDLE.HEADING (TEXTOBJ) +PAINTW.READBRUSHSHADE (FILLPAT) RECLOOK (LOCALDEC DEC PARENT) ENCAPSULATEDIMAGEFNS (GETFN IMAGEFNS) +MKATOM (X LEN) GET.MENU.LIST (CMLARRAY RANK) FB.BROWSECOMMAND (BROWSER NAMETAIL) RECORDFIELD? (FIELD +DECLARATIONS) TB.REPAINTFN (WINDOW BROWSER REGION) \DEFINEFONT.PRESS (PRSTREAM FONT) +\NSFILING.DISCARD.SESSION (DEVICE) CREATE.NUMBERPAD.READER (DIGITFONT MSGFONT WPOSITION +NUMBER/READER/MAXDIGITS LINE) \TEDIT.SUBSCRIPTSEL (TEXTSTREAM SEL) \FM.STATE-SELECTEDFN (ITEM WINDOW +BUTTONS) ICONBUTTONEVENTFN (ICONW) \LEAF.HANDLE.INPUT (SEQUIN PUPDATA) SEDIT::EXPANDFN (SEDIT::WINDOW) + TB.BUTTONEVENTFN (WINDOW) LINEY (DX DY Y0 X0) DREMOVE (X) DINFO.CLOSEFN (W GRAPH) \TEXTMENU.TOGGLEFN +(OBJ TEXTOBJ) OPT.DEADSETQP (VAR CD) \WAITFORSYSBUFP (N \DISMISSTIMER NOW) FB.DATE (DT) EDIT%: (TYPE) +\PROC.RESUME (FRAME) CL::DEFINE-BOA-CONSTRUCTOR (CL::NAME&ARGLIST CL::ARGLIST CL::PS CL::RESULT-ARG +CL::NEW-ARGUMENT-LIST) MSSETUP (V X A Y AS F SYN TYPES L OTHERS) WAITFORINPUT (\DISMISSTIMER NOW N-100 + STREAM) UPDATEFN (TYPE IFCANT) \INSERTCH (CH LEN CH# \INEXTCH IMARKPC IMARKCH \INLEFT \INLEN +START-OF-PIECE FATP) TB.DECONSIDERRANGE (LAST# FIRST#) TITLEW.BUTTONEVENTFN (TITLEWINDOW MAINWINDOW) +\LFFindInfo (PROPS FILES DIRECTORY BACKWARDPROPS ATTRIBUTE) EVAL.IN.TTY.PROCESS (FORM WAITFORRESULT) +TB.NUMBER.OF.ITEMS (TYPE) \LFWriteLeaderPage (stream fileDesc) CL::%%MAKE-SMALL-FIXP-ACCESSOR ( +CL::OBJECT CL::OFFSET A0611 A0612) \PFGetFreePage (vol volumePageNumber frame runLength noBreak) +EVAL.AS.PROCESS (FORM) \COERCE.NS.SOCKET (COPYADDR) \DOTRANSITIONS (OLD NEW KEYBASE) NEXTSIZEFONT ( +NOWFONT WHICHDIR NOWSIZE) \TK.DESCRIBEFONT (FONT) \FM.STATE-SETUP (SI::$PROG1-FIRST-EXPRESSION$ +MENU.ITEMS MENU.FONT) CLOSEICONWINDOW (MAINWIN) TB.COPYBUTTONEVENTFN (WINDOW BROWSER) SEDIT::DRAW-UNDERLINE + (LAST SEDIT::SHADE SEDIT::WINDOW SEDIT::ENDX) \SPP.ESTABLISH (INITCON XIP) PROCESS.EVAL (PROC P FORM) + SEDIT::REPAINT (SEDIT::CONTEXT SEDIT::X SEDIT::Y SEDIT::DSP) \LFHighestVersions (FILELIST) +DEFAULT.ADDNODEFN (GRAPH WINDOW BOXED) \THROUGHOUTCHARFN (CHARCODE OUTSTREAM) CH.ADD.ITEM.PROPERTY ( +STREAM PROPERTY VALUE) ONFILE (FT) FAX.STATUS (HOST) \CREATECHARSET.IP (PSIZE FAMILY FACE CHARSET +NSMICASIZE FONTDESC N WIDTH) \PEEKBIN (STREAM NOERRORFLG) FB.FASTSEECOMMAND (W WINDOW TAIL UNFORMATTED +) \TEDIT1 (WINDOW PROPS) CLISPRPLNODE (A D) \THROUGHIN (STREAM) \TFBRAVO.FIND.LAST.TRAILER (FILE +STREAM) \NSPRINT.COURIER.OPEN (PRINTER) INTERPRESS.OUTCHARFN (IPSTREAM CHARCODE NSCODE OLD-CSET) +\DECODETRANSITION (KEYNUMBER TI) PROCESS.READ (OLDTTY) COMPILER::COMPILE-FILE-PROCLAMATION (COMPILER::FORM +) \FM.3STATE-CHANGESTATE (NEWSTATE SI::$PROG1-FIRST-EXPRESSION$) \NOTENEWICONPOSITION (NEWPOS) +\LEAF.TIMEDOUT (CNT STATE) SEDIT::DRAW-OUTLINE (SEDIT::Y-1 SEDIT::Y-2 SEDIT::X-1 SEDIT::X-2 SEDIT::SHADE + SEDIT::WINDOW SEDIT::X-3) TTYDISPLAYSTREAM (A) PRINTXIPDATA (XIP OFFSET MACRO FILE) EDITCALLERS (FILE + PATTERN COMS) PP (X NAME TYPE) MB.NWAYBUTTON.ADDITEM (NEWBUTTON OBJECT BUTTONS) OPT.EQVALUE (V) +\PROCESS.EVAL1 (..PEV-FORM..) COURIER.SKIP.SEQUENCE (STREAM PROGRAM BASETYPE) SHOWPRESSBITMAPREGION ( +STR) \TEXTMENU.TOGGLE.CREATE (TEXT FONT BOX OBJ STATECHANGEFN INITSTATE) CL::%%MAKE-FLOAT-ACCESSOR ( +CL::OBJECT CL::OFFSET) \PFPutMarkerPage (index frame) PRESSWINDOW (W BITMAP PRSTREAM PTSTOMICAS) +COMPILER::ALPHA-SETQ (COMPILER::FORMS COMPILER::TAIL COMPILER::SETQS) SET (VP) +\NSRANDOM.ENSURE.WATCHER (DEVICE) \NSADDRESS.DEFPRINT (BASE SOCKET NET STREAM SHARP) \UNCOMMA (X TAIL +BCAR BCDR) \FAX.PARSE.NAME (PLACE CHAR) CLISPFUNCTION? (TYPE Y FN2) \BACKFILEPTR (STREAM) +\NSPRINT.MEDIUM.CHECK (MEDIUM MEDIA PRINTER) COMPILER::ALPHA-RETURN-FROM (COMPILER::NAME COMPILER::DEST + COMPILER::FORM) %## (L) \TEDIT.NEWREGIONFN (FIXEDPOINT) \DSKDISPLAY.CREATE.WINDOW (W REG POS) +CREATEARRAYSLICE (CMLARRAY DIMS SCANDIMS LEVELS) RECORDFIELDNAMES (RECORDNAME DECL TRAN S X) +\PUTSYSBUF (R W CHAR) PARSERELATION (RELATION Y) NEWPAGE.PRESS (PRSTREAM) U-CASE (X \PNAMESTRING +OFFSET CODE) \VALID.FILING.CONNECTIONP (SESSION) FB.GETALLFILEINFO (ATTRIBUTES GENERATOR BROWSER) +DISPLAYNODE (NODE TRANS STREAM G TOSONLY) FB.MAKECOUNTERWINDOW (HEIGHT WIDTH TITLE COUNTERW FONT +BROWSERWINDOW) DINFO.SHRINKFN (W) MEASUREGRAPHNODE (NODE RESETFLG) FILES?PRINTLST (LST STR) +FB.ADD.FILEGROUP (FBROWSER FIRSTDATA TBROWSER D ITEM) \PROCESS.APPLY1 (..PEV-FN.. ..PEV-ARGS..) +FB.MAKEHEADINGWINDOW (WIDTH HEIGHT FONT HEADINGW BROWSERWINDOW) FB.HARDCOPY.TOFILE (FILES BROWSER +CONVERTERS) NEWLINE.PRESS (PRSTREAM PRDATA) PROCESS.APPLY (PROC P FN ARGS) \PUT.SESSION.HANDLE (ITEM +STREAM) ATTACHEDWINDOWTOTOPFN (WINDOW ROOT) PUPSOCKETEVENT (PUPSOC) \GETDEVICEFROMNAME (NAME HOST +DONTCREATE) COMPILER::COMPILE-FILE-DEFINE-FILE-INFO (COMPILER::FORM) \LEAF.WHENCLOSED (REASON CODE) +MSECT (DUDY X0 DXDV U0 DX DU V0 Y0) \SPPSENDERROR (MSG EPKT) \HARDCURSORUP (NEWCURSOR) MSINTERPRET ( +COMMAND SET FN EDITCOMS NEEDUPDATE EDIT KEY AT SUBROUTINE) \TEDIT.WORDDELETE (TEXTOBJ INSCH# STREAM +READSA) FILENAMEFIELD (FILE FIELDNAME) CHANGE.NODEFONT.SIZE (HOW WINDOW GRAPH) CL::%%MAKE-FIXP-ACCESSOR + (CL::OBJECT CL::OFFSET) \TEDIT.LARGER.CARET (TEXTOBJ TEXTSTREAM SEL) FIXVERBSETTYPE (SETPHRSE) +\CURSORBITSPERPIXEL (NEWBITSPERPIXEL) COPYIMAGEOBJ (FROM) \TEDIT.SMALLERSEL (TEXTSTREAM TEXTOBJ SEL) +FB.HARDCOPYCOMMAND (BROWSER OPTION ITEM) \REMOVEDEVICE (DEV) SELECT.ATOM.ASPECT (ATOM) EDIT4E ( +CHANGEFLG) CHECKPATHS (OPTIONS) CLISPERROR (TYPE) FB.MAKERIGIDWINDOW (WINDOW HEIGHT) +\REMOVEDEVICE.NAMES (DEV) \TFBRAVO.PARSE.PARA (FILE OLDPLOOKS) \NSPRINT.UNSUPPORTED (PRINTER FEATURE +VALUE) \CURSORDESTINATION (DESTINATION) OPT.EQOP (OP1 OP2) \PFPutPage (file filePageNumber +volumePageNumber frame) \CLOSEFILE (DEVICE ABORTFLG) DINFO.EXPANDFN (W GRAPH GRAPHW) \EVENT.DEFPRINT ( +EVENT STREAM) DINFO.READ.KOTO.GRAPH (QUIETFLG FILE FULLFILENAME DATA) \FM.3STATE-SELECTEDFN (ITEM) +DOICONWINDOWCOM (WINDOW) EDITFPAT (PAT X) SEDIT::DRAW-HIGHLIGHT (SEDIT::SHADE SEDIT::WINDOW SEDIT::X-2 + SEDIT::H-1 SEDIT::X-1 SEDIT::H-2) EDLOCL (COMS L) PRESS.BITMAPSCALE (HEIGHT WIDTH) +ONEDINSPECT.MAKEREGIONS (WINDOW ROWPROPS WINDOWHEIGHT LF VALUESPACE) \ADD.CONNECTED.DIR (FILENAME) +\TEDIT.ITALIC.SEL.ON (TEXTSTREAM SEL) DWIMLOADFNS? (FN) EDITXTR (LC L) MODERNWINDOW (WINDOW) +FAX.SEND.FILE (HOST HOST&OPTIONS FILE PRINTOPTIONS) \SPP.HANDLE.DATA (ACKNO) INTERLISP-NAMESTRING ( +PATHNAME) \TFBRAVO.WRITE.RUNS (PARA INFILE PARALOOKS TEXTOBJ) COMPILER::ALPHA-PROGV (COMPILER::SYMS-EXPR + COMPILER::VALS-EXPR COMPILER::BODY-FORMS) EDITMBD (X) HPRINT.IMAGEOBJ (IMAGEOBJ STREAM) +OBTAIN.MONITORLOCK (UNWINDSAVE WASINTERRUPTABLE) POSTSCRIPT.FONTCREATE (FACE SIZE FAMILY ROTATION +DEVICE WEIGHT SLOPE EXPANSION) EDITSW (M N Y Z) EDITMV (L0 L COM0) CL::%%MAKE-FLAG-ACCESSOR (CL::OBJECT + CL::OFFSET CL::WORD-OFFSET) \NSNET.CLOSERP (X Y) \DEVICEEVENT (EVENT D) PARSE-NSADDRESS (BASE +MAXDIGIT DEFAULTSOCKET) FB.MAYBE.WIDEN.NAMES (CURRENTSTART) DELFROMFILES (FILES NAME FN) +\FM.3STATE-DOWNFN (ITEM WINDOW) ICONPOSITION.FROM.WINDOW (WINDOW WREG ICONREGION) \CLEARBM (TXT BM REG +) FB.ADJUST.DATE.WIDTH (INFOWANTED BROWSER FONT) COMPILER::ALPHA-PROGN (COMPILER::FORMS COMPILER::TAIL + COMPILER::OLD-CONTEXT) \SOFTCURSORUP (NEWCURSOR) OPT.JUMPCOPYTEST (VL) \STORENSADDRESS (BASE A) +\LEAF.IDLE? (SEQUIN) \SOFTCURSORUPCURRENT (N) TEDIT.ADD.STYLESHEET (SHEET) MSSETPHRASE (KNOWN TYPE) +\PUT.FILING.ATTRIBUTE (ITEM STREAM VALUE PROGRAM) BITMAPCREATE (WIDTH HEIGHT) OPT.PRATTACH (ITEM) +CH.RETRIEVE.ITEM (PROPERTY) OPENPRSTREAM (PRFILE OPTIONS) MSTRYSPELLTYPE (TYPE INTERP WORD) +CREATE.MONITORLOCK (NAME) \TEDIT.EXPANDFN (W) \GET.SESSION.HANDLE (STREAM) TB.DO.ITEM.SELECTION ( +WINDOW) \PRINTNSADDRESS (L BASE) PFI.ENQUEUE (FORM) FULLPRESSBITMAP (FILE PRSTREAM BITMAP +PRESSPAGEWIDTH PRESSPAGEHEIGHT) \FM.3STATE-SETUPOFFBITMAP (FONT SI::$PROG1-FIRST-EXPRESSION$ BOX +STREAM) PUPSOCKETNUMBER (PUPSOC) SEDIT::CONFLICTING-SELECTION? (SEDIT::CONTEXT) FB.HEADINGW.DISPLAY ( +WINDOW CLIP BORDER FBROWSER STREAM DEPTH RMARG) SEDIT::RELINEARIZE (SEDIT::DISPLAY-WINDOW-REGION +SEDIT::WIDTH SEDIT::BOTTOM-Y SEDIT::Y-1 SEDIT::Y-2 SEDIT::OLD-ACTUAL-WIDTH) FILES?1 (TYPE) +\GENERATEFILES (FDEV DESIREDPROPS OPTIONS) \LFVersions (UNPACKEDNAME STREAM TLIST A B) TB.MAKE.BROWSER + (PROPS WINDOWSPEC TITLE FONT LINESPERITEM BASELINE COLUMNS PRINTFN COPYFN CLOSEFN AFTERCLOSEFN +USERDATA HEADINGWINDOW LINETHICKNESS ITEMS FN) CL::%%MAKE-WORD-ACCESSOR (CL::OBJECT CL::OFFSET) +XIPTRACE (REGION FLG) IRM.LOOKUP (GRAPH KEYWORD TYPE WINDOW MONITORLOCK) \MONITORLOCK.DEFPRINT (LOCK +STREAM) MSHASHLIST (HTABLE PREVVALUE) ONEDINSPECT.ADJUSTSELECTION (WINDOW ROWPROPS VERTMARKS SELPROP +FETCHFN DATUM) MSHASHLIST1 (VAL KEY) \TEDIT.LARGERSEL (TEXTSTREAM TEXTOBJ SEL) EDIT4F (FF PAT0) XPROD +(X0 Y0 DX DY) \GENERATENEXTFILE (GENOBJ NAMEONLY) \TFBRAVO.WRITE.RUN (RUN TEXTOBJ PARALOOKS IN LOOKS) +COURIER.SKIP (TYPE STREAM PROGRAM BASETYPE NAMEANDTYPE WHICH) \FM.3STATE-SETUP ( +SI::$PROG1-FIRST-EXPRESSION$ REGIONS) SEDIT::CLOSEFN (SEDIT::WINDOW) \GENERATEFILEINFO (GENOBJ +ATTRIBUTE) COMPILER::ALPHA-MV-PROG1 (COMPILER::FORMS COMPILER::VALS-USED) MAYBE.PRETTYFILEINDEX ( +FILENAME PRINTOPTIONS) TOPW.ADJUSTSELECTION (WINDOW MAINWINDOW SELCOLPROP COLUMNPROPS HORZMARKS) +\LFCASEARRAYFETCH (CHARCODE) \PROCESS.RELEASE.LOCKS (P) \WRITEPRESSBITMAP (BM PRSTREAM PRDATA XPOS +YPOS STREAM W WW HT) EDITCONT (FLG LC2) \PFGetMarkerPage (index frame) \GETFILENAME (RECOG) +\SPP.RELEASE.ACKED.PACKETS (ACKNO MAXACKNO POOL) TB.DO.UNLESS.BUSY (WINDOW BROWSER FN) +\GENERIC.OUTFILEP (DEV NAME) \LOADNSADDRESS (A BASE) FB.SETNEWPATTERN (PATTERN) PACKFILENAME (N X BLIP +) SEDIT::PRINT-STRING (SEDIT::WINDOW SEDIT::STR STREAM SEDIT::ESC-CHAR) \MAKE.PROCESS1 (TOP) REBREAK ( +FN) FB.STARTUP (BROWSER COMMANDMENU FN) \PROCESS.MOVEFRAME (OLDFRAME) COURIER.WRITE.FAT.STRING (STRING + CORE STREAM W) CL::%%MAKE-BIT-ACCESSOR (CL::OBJECT CL::SIZE CL::OFFSET CL::WORD-OFFSET) +CALL.MOVENODEFN (GRAPH NODE NEWPOS WINDOW OLDPOS) \TEDIT.MAINW (TEXTSTREAM TEXTOBJ) +\READNUMBER.FLASHAREA (WIN LFT BTM WDTH HGHT) \OPENFILE (ACCESS PARAMETERS RECOG STREAM-FDEV) +COMPILER::COMPILE-FILE-DEFINEQ (COMPILER::DEFN COMPILER::FORM) \LEAF.OPENERRORHANDLER (PUP SEQUIN) +\SPP.HANDLE.ATTN (CON XIP BYTE DSTYPE) \DO.PARAMS.AT.OPEN (PARAMETERS FN ACCESS) \IOMODEP (STREAM +NOERROR) CH.DELETE.SELF (STREAM PROPERTY) MSLISTSET (SET TYPE) \GETKEY (\KEYBOARDWAITBOX) +TEDIT.PUSH.STYLESHEET (SHEET) \PROCESS.DEFPRINT (PROC STREAM) \ENQUEUE.TIMER (TIMER) +TB.REDISPLAY.ITEMS (REGION) \TTYBACKGROUND (X) MAKEMAINWINDOW (MAINWINDOW) PRETTY-TYPE-NAME (TYPESPEC +OTHER NAME X) \DRAWELLIPSE.PRESS (PRSTREAM CENTERX COSOR SEMIMAJORRADIUS CENTERY SINOR SEMIMINORRADIUS + BRUSH DASHING) \GETSYSBUF (R) \IMAGEUSERPROP (PROP VAL) SETFILEINFO (ATTRIB VALUE) GETRELATION ( +RELATION ITEM TABLE) ICMLARRAY.GETMENUWGROUP (FONT CMLARRAY DISPLAYEDLEVELS BFONT DIMS PHEIGHT) +LISTHARD (SET TABLE) \DRAWLINE.PRESS (X1 Y1 X2 Y2 WIDTH OPERATION PRSTREAM COLOR) \VFMSplit (splitKey +splitLevel keyStone page) \TEDIT.ITALIC.CARET.OFF (TEXTOBJ TEXTSTREAM SEL) \STRINGWIDTH.IP (STRING +STREAM RDTBL) CHANGECALLERS (AS-TYPES OLD NEW) \NSRANDOM.RELEASE.IF.ERROR (SESSION HANDLE) +\NSYSBUFCHARS (R W) \COURIER.RECORDTRAN (ARGS OP FIELD) COMPILER::ALPHA-MACROLET (COMPILER::BINDINGS +COMPILER::NEW-ENV COMPILER::MACRO) SEDIT::SCAN-FOR-BOUNDS (SEDIT::LINE) CHOOZ1 (NC1 NC2 SC) +\SAVESYSBUF (CH) OPT.SKIPPUSH (CD) CL::%%MAKE-ARRAY-ACCESSOR (CL:VECTOR CL::OFFSET) +\PFPutLogicalVolumePage (vol frame) COURIER.WRITE.SEQUENCE.UNSPECIFIED (TYPE STREAM W FIXP PROGRAM) +HARDCOPYW (WINDOW/BITMAP/REGION HARDCOPYTITLE) BESTNSADDRESS (ADDR) MSSETWORDTYPE (WORD TYPE SYN) +COMPILER::MAYBE-REMOVE-COMMENTS (COMPILER::FORM) \FM.TOGGLE-CHANGESTATE (SI::$PROG1-FIRST-EXPRESSION$) + \PROCESS.INIT (DONTRESET) INSPECT.INVERTSELECTION (WINDOW) \DSPOPERATION.IP (IPSTREAM) +\ADD.ROUTING.TABLE.ENTRY (ENTRY) %%DESTRUCTIVE-RESULT-VECTOR (VECTOR RESULT START) MOUSECHORDWAIT ( +MSECS) \RENAMEFILE (NEW-DEVICE) FB.SET.BROWSER.TITLE (BROWSER) \TEDIT.SETDEFAULT.FROM.SEL (TEXTSTREAM +SEL LOOKS) FIXSPELL2 (X) \ALLOCLOCKED (NCELLS BLOCK) FILEPKGTYPE (N) ICMLARRAY.GETREGIONFN (WINDOW +STATE) MSMEMBSET (SET ITEM) KEYACTIONTABLE (X) \DRAWCURVE.PRESS (PRSTREAM BRUSH KNOT CLOSED) +\GET.FILING.ATTRIBUTE (STREAM ATTR PROGRAM) MOVEATTACHEDWINDOWTOPLACE (MAINW ATWIN) OPENPUPSOCKET ( +SKT# IFCLASH) \NUMBERPAD.READER.CLOSEFN (WINDOW) CH.ADD.SELF (STREAM PROPERTY) +COMPILER::COMPILE-FILE-SETF-SYMBOL-FUNCTION (COMPILER::FORM COMPILER::NAME-FORM COMPILER::FUNCTION-FORM +) \FM.TOGGLE-SELECTEDFN (ITEM) SEDIT::BUTTONEVENTFN (WINDOW) FB.DISPLAY.COUNTERS (COUNTERW +COUNTERWIDTH SECTIONWIDTH COUNTERFONT TOTAL DEL TOTALPAGES DELPAGES THRESHOLDWIDTH HEIGHT) +\PROCESS.EVENTFN (EVENTNAME) \TEDIT.ITALIC.SEL.OFF (TEXTSTREAM TEXTOBJ SEL) PFI.NEW.LISTFILES1 ( +FILENAME PRINTOPTIONS) TOPW.BUTTONEVENTFN (WINDOW MAINWINDOW P) \PAGED.REVALIDATEFILELST (DEVICE FN) +FB.COPY/RENAME.COMMAND (FBROWSER CMD MOVEFN OLDNAME) \PFVolumeNumber (vol) CL::%%MAKE-POINTER-ACCESSOR + (CL::OBJECT CL::OFFSET) CHECKSYNONYM (X) \PRINT-REVALIDATION-RESULT (STREAM RESULT) OPT.ONLYMEMB (X) +\LFFindDirHole (UNAME DIRSTREAM BYTES) \KEYBOARDEVENTFN (EVENT X) CL::%%MAKE-ACCESSOR-CLOSURE (CL::SLOT +) RESTOREMAP (STREAM) \DELETECH (CHLIM CH# \INFIRSTCH LEN TEXTLEN PCNON) KEYACTION (KEYNAME TABLE NUMB +) FB.COPYTEXTCOMMAND (BROWSER) BREAK.PROCESS (PROC P) \TEDIT.SHOWCARETLOOKS (TEXTOBJ TEXTSTREAM LOOKS) + \FM.TOGGLE-DOWNFN (ITEM WINDOW) \KEYBOARD.MACHINE-SPECIFIC-KEYACTIONS (CAPS-LOCK-ACTIONS) +PFI.PRINT.BITMAP (BM) SEDIT::FIND-NTH-STRUCTURE (SEDIT::CONTEXT) \PAGED.REVALIDATEFILES (LIST FN +DEVICE) ICMLARRAY (CMLARRAY RANK LESS1RANK DISPLAYEDLEVELS WHERE FONT) MSINTERPA (KEY) +FB.CREATE.FILEBUCKET (BROWSER NAMELENGTH CHAR FILEINFO) TEDIT.STYLESHEET (SHEET) COPY (VAL) LOADPOLY ( +A B C D) \LFDirectorySearch (CHARLIST KINDOFMATCH) \GETBRUSHFONT.PRESS (LIST1) +ONEDINSPECT.PRINTELEMENT (BOTTOM SUB1DESCENT WINDOW ELT) DEFAULTMENUHELDFN (ITEM) +\GET.COURIER.DEFINITION (NAME TYPE PROGRAM) \BUFFERED.REVALIDATEFILELST (DEVICE FN) SETSPELLCASE (X Y) + MEMBTONODES (TONODES TOND) NUMBERPAD.READ (NUMBERPAD/READER) \TRUNCATEFILE (STREAM LASTPAGE +LASTOFFSET) COMPILER::PROCESS-FORMS (COMPILER::PROCESS-ENTIRE-FILE) \FM.TOGGLE-SETUP ( +SI::$PROG1-FIRST-EXPRESSION$ REGIONS) \FILE-CONFLICT (NAME DEVICE FILENAME ACCESS EXISTING-ACCESS-MODE +) MENU (MENU POSITION) SEDIT::SHOW-CARET (SEDIT::CONTEXT) MB.NWAYMENU.NEWBUTTON (OLDBUTTON BUTTON +ARBITRATOR TEXTOBJ CH#) OPT.DELETEFRAMECHECK (F) /RPLNODE (A D) FONTNAME.IP (FONTDESC) \PFNewPages ( +group vol startSize) COURIER.WRITE.SEQUENCE (TYPE STREAM PROGRAM W X) CL::%%MAKE-LIST-ACCESSOR ( +CL::OFFSET LIST) \PFGetLogicalVolumePage (vol frame) \PROCESS.MAKEFRAME0 (FN&ARGS FRAME FN ARGS) +TB.ITEM.FROM.YCOORD (BROWSER YPOS N) ALISTS.WHENCHANGED (NAME VARTYPE NEWFLG) \LOOKUPPUPNUMBER (SOC +NSNUMBER) ShowIntervals (vol intervalCache Number Start) FB.COPYBINARYCOMMAND (BROWSER) CLISPFOR0 (EXP + LC PTRS UNDOLST) TEDIT.PARALOOKS (SEL LEN SPEC) \TEDIT.DEFAULTSSEL (TEXTSTREAM SEL) ADDSPELL2 (WORD +SPLST) \RESETKEYBOARD (KEYNUMBER) IMAGEOBJCREATE (IMAGEFNS OBJECTDATUM) \NOFILESINFOFN (GENSTATE +ATTRIBUTE) FILEPKGCOMPROPS (PROPS Y) MSGETBLOCKDEC (FILES TYPE) FB.INSERT.FILE (BROWSER FILE TBROWSER +ITEM FBSORTFN FD1 FD2 MYDATA) TOLINKS (NODE) \ENDPAGE.PRESS (PRSTREAM ELSTREAM) \FILINGHANDLE.DEFPRINT + (HANDLE STREAM) \DRAWCURVE.PRESS.LINE (BRUSH X1 X2 Y1 Y2 PRSTREAM) FLUSHRIGHT (FILE X MIN) DINFO.FIND + (DINFOW BUTTONS TEXTSTREAM) PPROC1 (PROC FILE) PPROC (FILE NOW) BCOMPL3 (FILES) GRAPHADDLINK (GRAPH +FROM TO WINDOW) GETWINDOWPROP (PROP) CH.DELETE.PROPERTY (PROPERTY) MSINTERPRETSET (OP OTHERSET HTABS X + FILE Y MSVERB OS) INFILEP (FILE) \PRESSCURVE2 (BRUSHFONT PRSTREAM PRDATA SPLINE DASHING X0 Y0 %#KNOTS + XPOLY X'POLY X''' X'' X' X YPOLY Y'POLY Y''' Y'' Y' Y) \KEYACTION1 (TABLE TI ACTION X PAIR) +PACKFILENAME.STRING (N X BLIP) COMPILER::COMPILE-ONE-LAMBDA (COMPILER::DEFN COMPILER::NAME COMPILER::TREE +) \KEYNAMETONUMBER (KEYNAME) GRAPHBUTTONEVENTFN (WINDOW GRAPH LEFTFNOFNODE MIDDLEFNOFNODE NODELST DS) +CLISPIFY2B (X) FULLNAME (X) PPROCRESHAPEFN (WINDOW OLDCONTENTS REGION) \TEDIT.DEFAULTS.CARET ( +TEXTSTREAM TEXTOBJ SEL) RCOMP3 (DEF FN) SCROLLBYREPAINTFN (WINDOW DSP EXTENTUSE) CL::CACHE-SLOT-INFO ( +CL::ACCESSOR CL::PS) \CANONICALIZE.NSADDRESS (NSADDR) \FIXDLINES (CH#LIM CH#1 CH#1L DCH) KEYBOARDTYPE +(MT) MSPATHSPRINTFN (FN) MAKE-UNICODE-TRANSLATION-TABLES (MAPPING LTORARRAY P RTOLARRAY) IMAGEFNSP (X) + PPROCREPAINTFN (WINDOW) SASSOC (KEY) COURIER.WRITE.STRING (STREAM LENGTH) GETFILEINFO (FILE ATTRIB) +\COURIER.TYPE.ERROR (TYPE ITEM) SPLITKEY (KEY) \FILE.NOT.OPEN (X) \EP.PUT.AUX (PKT KEY PLIST CELL) +FEDITFINDP (AT LST) \FILE.WONT.OPEN (X) SEDIT::MAP-FONT (SEDIT::FONT SEDIT::ENV) OPT.FRAMEVAR (F X) +\ILLEGAL.DEVICEOP (N) \LFFileName (UNPACKEDNAME CHARLIST VERSION) DINFO.LOOKUP (DINFOW BUTTONS) +\IS.NOT.RANDACCESSP (N THING) PPROCEXTENT (WINDOW H) \LFMakeDirHole (DIRSTREAM DIRSIZE WHERE HOLESIZE) + HARDCOPYIMAGEW.TOPRINTER (W IMAGETYPE) TB.ITEM.VISIBLE? (BROWSER ITEM BOT CLIP) DINFO.ADD.FMENU ( +WINDOW) DSPFILL (STREAM TEXTURE OPERATION) MB.NWAYBUTTON.SELFN (SEL OBJ BUTTONIMAGES BUTTONWIDTHS +BUTTONY BUTTONX BUTTONLIST BUTTONHEIGHT MOUSEX MOUSEY W OLDSTATE) SHIFT.BITMAP.UP (BITMAP WIDTH HEIGHT + NBITS) SETHASHSTATUS (HASHFILE) RESHAPEBYREPAINTFN (WINDOW IMAGEREGION DSP OLDWIDTH OLDHEIGHT +NEWSCREENREGION OLDIMAGE) COMPILER::COMPILE-AND-DUMP (COMPILER::NAME COMPILER::KIND COMPILER::DEFN) +\NSPRINT.FULL.REQUEST.STATUS (ID) COMPILER::ALPHA-LABELS (COMPILER::*ENVIRONMENT* COMPILER::BINDING +CL:LABELS COMPILER::STRUCT COMPILER::BINDINGS) COMPILER::ALPHA-LAMBDA-LIST (COMPILER::BINDER COMPILER::AUX +) COMPILE1 (FN COREFLG) \FM.MOMENTARY-SELECTEDFN (ITEM WINDOW) CL::ESTABLISH-ACCESSORS (CL::PS CL::SLOT +) \HANDLE.NS.ROUTING.INFO (XIP HOSTBASE TABLE MASK RADIUS) \TEDIT.DELETE (STREAM TEXTOBJ CH# CHLIM) +PROCESS.STATUS.WINDOW (P PROCS WINDOW) DINFO.DEFAULT.MENU (DINFOW) \FM.MOMENTARY-SETUP ( +SI::$PROG1-FIRST-EXPRESSION$) \PARAS.IN.SEL (TEXTOBJ PC) MB.NB.PACKITEMS (WIDTH SPACING) +RIGHTW.ADJUSTSELECTION (WINDOW MAINWINDOW ROWPROPS VERTMARKS SELROWPROP ROWPROPSPACE) OPT.FRAMEDEL (F +FRM X VR F2) SHADEITEM (SHADE MENU NEWSHADE) \NSFILING.GETFILE (DEVICE FILENAME PARAMETERS RECOG LOCK) + \LFMakeLeaderPage (Info TYPE CurrentTime file fileName Author) REPLACEHASHKEY (HASHFILE HASHKEY INDEX + VALUE) \PFTransferPage (buffer label absoluteDiskAddress mode) \CURVE2 (DASHLST DISPLAYSTREAM BRUSH +SPLINE DISPLAYDATA A XPOLY X/PRIME/POLY YPOLY Y/PRIME/POLY D3XFACTOR D3YFACTOR DDDX/PER/SEG +DDDY/PER/SEG) HARDCOPYIMAGEW.TOFILE (W) \GETCHARCODE (C X) OPT.CLEANFRAME (FRAME AVOIDING) +\LFMakeDirEntry (UNAME NC DirStream POS STREAM W C) EDIT4E1 (X) MAKEHASHKEY (KEY RANGE) ADDMENU ( +DONTOPENFLG) \FILINGSESSION.DEFPRINT (STREAM SESSION) HARDCOPYIMAGEW (W) TB.RESHAPEFN (WINDOW BROWSER +OLDIMAGEBM OLDREGION REGION) \DRAWPOLYGON.IP (IPSTREAM POINTS BRUSH IPDATA HALFWIDTH) WIDTHIFWINDOW ( +INTERIORWIDTH BORDER) \FM.CLEARITEM (WINDOW ITEM) \GET.COURIER.TYPE (PROGRAMNAME TYPENAME) +GETBOXPOSITION (BOXWIDTH BOXHEIGHT ORGX ORGY WINDOW PROMPTMSG) DEFINEFONT.IP (IPSTREAM FONT IPDATA) +SKOR0 (TWORD NCTWORD NCXWORD NDBLS LST) \CLOSEF.PRESS (PRSTREAM PRDATA STREAM W DDFILEPTR) BCOMPL2 ( +DONTCOMPILEFNS ENTRIES) FB.CANONICAL.DIRECTORY (FBROWSER PWINDOW OLDTTYPROC OLDTTYSTREAM DIRNAME CMD) +CL::DEFINE-ACCESSORS (CL::PS CL::SLOT) DASHES (MARKER) HEIGHTIFWINDOW (INTERIORHEIGHT BORDER) +\DRAWARC.PRESS (STREAM CENTERX CENTERY RADIUS STARTANGLE NDEGREES BRUSH DASHING) STANDARDEDITE (EXPR +COMS ATM TYPE IFCHANGEDFN) TEDIT.INSERT (TEXTOBJ) COMPILER::COMPILE-AND-DUMP-1 (COMPILER::NAME COMPILER::DEFN +) \CREATECHARSET.PRESS (CHARSET) FB.EDITCOMMAND (BROWSER OPTION ITEM MENU KEY) COMPILER::ALPHA-IL-FUNCTION + (COMPILER::FN) MSPATHS4 (FROM Y) \FM.INSUREVISIBLE (WINDOW ITEM) \TEDIT.CENTER.SEL.REV (SEL TEXTOBJ +TEXTSTREAM PARA SAVECH# SAVEDCH) CL::\OPENSTREAM-WITH-DEFAULT (CL::FILENAME) RIGHTW.BUTTONEVENTFN ( +WINDOW MAINWINDOW P) OPT.FRAMELOCAL (F) \PSWOP.SELECTED (ITEM P BUTTON MENU \DurationLimit) +\NSFILING.CLOSE.HANDLE (SESSION HANDLE) \LFDWIN (FILE) \PFGetPhysicalVolumePage (buffer) \PSW.SELECTED + (ITEM MENU) MASTERSCOPEXEC (X) SPLIT89 (N) FB.MAKE.BROWSER.BUSY (BROWSER DONTWAIT MENU) COMPILER::ALPHA-IF + (COMPILER::PRED-FORM COMPILER::THEN-FORM COMPILER::ELSE-FORM) SEDIT::TRY-REUSING-BITS (CL:BLOCK +SEDIT::CONTEXT SEDIT::WIDTH SEDIT::END SEDIT::ASCENT SEDIT::DESCENT SEDIT::NEW-X) PRESSBITMAP (FILE +PRSTREAM BITMAP PRESSPAGEWIDTH PRESSPAGEHEIGHT) CL::PROCESS-ACCESSORS (CL::PS) XIPAPPEND.IFSSTRING ( +XIP STRING OFFST) \FDEVINSTANCE (FDEV STREAM ATTRIB CDNAME ACCESS RECOG OTHERINFO FIRSTPAGE BUFFERLIST + ATTRIBUTE VALUE LASTPAGE LASTOFFSET NAME OLDSTREAM BYTE NOERRORFLG INDX BASE OFFSET NBYTES) +SHIFT.BITMAP.DOWN (BITMAP WIDTH HEIGHT NBITS) NCREATE2 (NTYPX OLDOBJ NEW DTD) COMPILER::CONSTANT-EXPRESSION-P + (COMPILER::FORM COMPILER::FN COMPILER::S-E-DATA) \FTP.RENAMEFILE (OLD-DEVICE NEW-DEVICE OLDFILE) +\PRESS.CONVERT.NSCHARACTER (CHARCODE) \NSFILING.GENERATEFILES (PATTERN DEVICE DESIREDPROPS SCOPE +INFINITE.DEPTH OPTIONS) \DRAWCIRCLE.PRESS (RADIUS CENTERX CENTERY R2RAD BRUSH DASHING STREAM) ESUBST1 +(X) CNDIR (NEW-DEFAULTS TEMP-DEFAULTS) EDITFINDP (X) CL:PATHNAME-DIRECTORY (PATHNAME) HEADINGOP.IP ( +IPSTREAM) UNMARKASCHANGED (NAME CHANGED) CL:PATHNAME-DEVICE (PATHNAME) EDITL (L COMS ATM MESS +EDITCHANGES) \BITMAPSIZE.PRESS (DIMENSION BITMAP) CL:PATHNAME-HOST (PATHNAME) DEDITE (EXPR) +INSERTHASHKEY (HASHFILE HASHKEY INDEX VALUE) \HLSVALUEFN (MIN MAX) ONEDINSPECT.PROPWIDTH (PROPS FONT) +\HANDLE.RAW.3TO10 (TYPE) WFROMMENU (MENU) MSONPATH (SETREP X SEEN TOPFLG) FIXATOM2 (X) EDITFA (TYPE +DEF) DWIMIFY1 (FORM) DIRECTORYNAME (HOST CREATE?) SEDIT::SHIFT-BLOCK (SEDIT::CURRENT-LINE SEDIT::Y +SEDIT::DESCENT SEDIT::CURRENT-LINE-BOTTOM SEDIT::REPAINT-START SEDIT::START SEDIT::NEW-X SEDIT::X +SEDIT::END SEDIT::WIDTH) ADDSPELL1 (WORD) KEYDOWNP (\BitMask BASE \ByteNo OFFST POSITIONA0374 KEYNAME) + TWODINSPECT.COLUMNWIDTH (COLUMNPROP FONT ROWPROPS FETCHFN DATUM) OPT.MERGEFRAMEP (PARENT VARS FR) +KEYNUMBERP (X) HASHFILESPLST1 (HASHFILE KEY) CL::SETF-NAME (CL::ACCESSOR-NAME) XIPAPPEND.STRING (EPKT) + PROCESS.BACKTRACE (PROC FX CMD) CLIPBOARD-COPY-STREAM (OST) \TEDIT.COPY.PIECEMAPFN (FROMOBJ TOOBJ +TEXTOBJ) TTYINFOSTREAM (PROCESS) SEDIT::SELECT-NODE (SEDIT::CONTEXT SEDIT::NODE) PREEDITFN (TYPE ATM X + EDITCHANGES) \UPDATE.PROCESS.WINDOW (WINDOW) MSMATCHRATING (X Y CONJ) \FM.ENDEDIT (WINDOW FM.PROCESS +WAITFLG) LEAF.ASSURE.FINISHED (SEQUIN) MSPATHS1 (FROM FN X) FB.EXPUNGECOMMAND (FBROWSER TBROWSER ITEM) + \TEDIT.FOREIGN.COPY? (SEL SOURCE.TEXTOBJ) SEDIT::UNDO (SEDIT::PROMPTWINDOW) \DSPSCALE2.IP (IPSTREAM +Sx Sy) BAKTRACE (IPOS SKIPFN FLAGS EPOS) MODIFY.KEYACTIONS (KeyActions ITEM action table) +\DUMP.COURIERPROGRAMS (NAMES TAIL) CL:NAMESTRING (PATHNAME) SEDIT::REUSE-LINEAR-FORM (SEDIT::DELTA-X +SEDIT::DELTA-Y) SHIFT.BITMAP.LEFT (BITMAP WIDTH NBITS HEIGHT) EDITFERROR (FN FLG) EDITDEF.FNS (NAME +EDITCOMS OPTIONS) DIRECTORY (FILES) METASHIFT (FLG METASTATUS) \CHARWIDTH.PRESS (STREAM FONTDESC) +DSPSCROLL (DISPLAYSTREAM) RESHAPEALLWINDOWS (MAINW NEWREGION NEWWIDTH NEWHEIGHT) EDITF2 (EXPR ATM) +SHIFT.BITMAP.RIGHT (BITMAP WIDTH NBITS HEIGHT) COMPILER::SET-UP-BLOCK-DECLS (CL:HASH-TABLE) +\FM.CHANGESTATE (X WINDOW NEWSTATE) DISPLAYLINK (G TOND FRND TRANS LINEWIDTH STREAM PARAMS) CLISPIFY2A + (FORM) ATTACHEDWINDOWS (WINDOW AWS) SHIFTDOWNP (SHIFT) MB.NB.SIZEFN (OBJ RIGHTMARGIN SLACK MAXWIDTH +MINHEIGHT BUTTONWIDTHS SPACING MINWIDTH MAXHEIGHT BUTTONHEIGHT) OPT.NONILVAR (CD FR V) GETPROBE (KEY) +FB.MAYBE.EXPUNGE (BROWSER COMMAND) MSPATHS2 (FN) DIRECTORYNAMEP (DIRNAME DN) TEDIT.DELETE (STREAM LEN +LEAVECARETLOOKS TEXTOBJ) EDITDEF (NAME EDITCOMS OPTIONS) OPT.FRAMEMERGE (F) HOSTNAMEP (NAME) +\LFGenFileID (vol) EDITF1 (EXPR COMS ATM TYPE IFCHANGEDFN) GETHASHKEY (HASHFILE INDEX HKEY RANGE) +CL::CACHE-PREDICATE-INFO (CL::PREDICATE) \VFMContextSet (vol) MEMB (X) \DSPTRANSLATE.IP (IPSTREAM Tx +Ty) FB.FINISH.COMMAND (W MENU) \VFMGetInterval (volNum intervalArray) DINFO.WRITE.GRAPH (GRAPH FILE) +ATTACHWINDOW (MAINWINDOW WINDOWTOATTACH WINDOWCOMACTION) SUBATOM (N M X) EXPRESSIONS.WHENCHANGED (EXPR + X) UNSAVEBLOCK? (FILE BLOCK FN X) SEDIT::NORMALIZE-SELECTION (SEDIT::CONTEXT SEDIT::SELECTION) +COMPILER::ALPHA-FUNCTIONAL-FORM (COMPILER::FORM) CHCON1 (X) TTY/EDITE (IFCHANGEDFN COMS ECHOFILE) +LOADDEF (NAME TYPE SOURCE) WRITE-UNICODE-INCLUDED (INCLUDECHARSETS MAPPING) UNPACKFILENAME.STRING ( +DIRFLG STA0395 ENDA0394 LEN DSTSTRING DSTBASE STA0397 ENDA0396 ST NAM CHAR STA0399 ENDA0398 STA0401 +ENDA0400) MSNEEDUNSAVE (MSG) EDITDEFAULT1 (X) \BLTSHADE.PRESS (DESTINATIONLEFT DESTINATIONBOTTOM WIDTH + HEIGHT REGION TEXTURE STREAM OPERATION) \BACKPEEKBIN (STREAM) DECODE-NS-STRING (STR OFFSET LENGTH +LASTOFFSET BASE FATSTR) \VFMKillBuffer (VOLPAGENUM) EDITH (C) PRINTBINDINGS (AT) \BACKBIN (STREAM) +PUPNET.DISTANCE (NET#) RETDWIM3 (X M1 N1) EDIT* (L N X) ADD/AND/DISPLAY/LINK (TOND FROMND G WIN) +\DRAWARC.GENERIC (NDEGREES CENTERX CENTERY RADIUS STARTANGLE BRUSH DASHING STREAM) \COURIER.GETDEF ( +TYPE NAME) BIN (STREAM) SEDIT::RECOMPUTE-FORMAT-VALUES (SEDIT::NODE SEDIT::SUBNODE SEDIT::CONTEXT) +\NSPRINT.WATCH.JOB (PRINTRESULTS PRINTER JOBNAME) APPLYTOSELECTEDNODE (WINDOW) COMPILER::ALPHA-GO ( +COMPILER::TAG COMPILER::DEST) SHRINKW (TOWHAT ICONPOSITION EXPANDFN) \BINS (BASE OFF NBYTES) +\FM.HIGHLIGHTITEM (WINDOW ITEM) EDLOC (EDX OLDL OLDF) FB.MAYBE.INSERT.FILE (FBROWSER ATTR CMD) +\SPP.INFO.HOOK (BUTTON PROC) BOUT (BYTE STREAM) SEDIT::WALK-UP-TREE (SEDIT::FN SEDIT::NODE SEDIT::CONTEXT +) \FM.CHANGELABEL (NEWLABEL NEWDESC LEFT BOTTOM FONT SI::$PROG1-FIRST-EXPRESSION$) EDOR (L) +MB.NB.WHENOPERATEDFN (OPERATION OBJ STATE DS) TWODINSPECT.SETELT (WINDOW ROWPROP COLUMNPROP PRTWINDOW) + MOVEW (WINDOW POSorX Y FORCE) \BOUTS (BASE OFF NBYTES) XIPAPPEND.WORD (WORD) \PFFindFileSize (file) +EDITRAN (C X Y %#1 %#2 %#3 L0) FIND1STPRIME (N) \MAIKO.INPUT.INTERRUPT (NDB TYPE) \VFMGet (getLevel +getKey) %%EXTEND-ARRAY (NEW-ARRAY DIMENSIONS BASE TYPE-NUMBER TOTAL-SIZE FILL-POINTER) \LFCheckBang ( +DIRSTREAM) EDITTO (LC2 L FLG) ONEDINSPECT.REPAINTFN (WINDOW VERTMARKS ROWPROPS TOP BOTTOM FETCHFN +DATUM DESCENT) \DEFAULTSTATE.IP (IPSTREAM) %%ARRAY-CONTENT-INITIALIZE (ARRAY INITIAL-CONTENTS DIMS) +\QUEUELENGTH (Q) \INIT.KEYBOARD.STREAM (MODE) \ONQUEUE (Q ITEM) COMPILER::ALPHA-FUNCTION (COMPILER::FORM +) \COURIER.PUTDEF (TYPE DEFINITION) COPYBYTES (SRCFIL DSTFIL START SRC DST) SEDIT::PAINT-TO-END-OF-LINE + (SEDIT::CONTEXT SEDIT::THIS-LINE SEDIT::BLANK-FROM SEDIT::LINEAR-END) \PAPERSIZE.IP (PSIZE) EDITCOM ( +C) \ADD.PACKET.FILTER (FILTER) CL:ADJUST-ARRAY (ADJUSTABLE-ARRAY RANK NELTS +ADJUSTABLE-ARRAY-ELEMENT-TYPE DISPLACED-TO DISPLACED-INDEX-OFFSET DISPLACED-TO-BASE FATP NEW-ARRAY +INITIAL-CONTENTS INITIAL-ELEMENT) \GETEOFPTR (STREAM) SEDIT::UNDO-REPLACE-QUOTE (SEDIT::NODE SEDIT::CONTEXT + SEDIT::OLD-VALUE) DEFAULT.EDITDEF (NAME TYPE) EDRPT (EDRX) \MAIKO.10MBWATCHER (MESSAGE-BUFFER NDB) +\SCALEDBITBLT.PRESS (DESTINATION DESTINATIONLEFT OLDX DESTINATIONBOTTOM OLDY SOURCEBITMAP SCALE +CLIPPEDSOURCELEFT CLIPPEDSOURCEBOTTOM WIDTH HEIGHT) \BUFFERED.COPYBYTES (DST DEV NOERRORFLG) EDITELT ( +LC) \NSFILING.PARSE.FILENAME (FILENAME NC) \DEL.PACKET.FILTER (FILTER) \POPSTATE.IP (IPSTREAM State) +RANDACCESSP (FILE STREAM) \NSFILING.COMPOSE.PATHNAME (DIRPATH DIR) EDITMAC (C) FB.PRINTFN (TBROWSER +ITEM WINDOW FDATA STREAM FILENAME END BASE FBROWSER FONT) DREAD (PROMPT) CLISPLOOKUP (WORD $VAR1 $VAR2 + $LISPFN) \SETFILEPTR (STREAM INDX) INSPECT/AS/RECORD (INSTANCE WHERE) EDIT!UNDO (PRINTFLG) +%%ALTER-AS-DISPLACED-TO-BASE-ARRAY (DIMENSIONS ELEMENT-TYPE FATP DISPLACED-TO-BASE FILL-POINTER +TYPE-NUMBER DISPLACED-INDEX-OFFSET TOTAL-SIZE) CL:ADJUSTABLE-ARRAY-P (ARRAY) CHANGERECORD (RNAME +RFIELDS F) EDITCOMA (UNDOLST UF) DPRIN1 (STR) \DSPXPOSITION.PRESS (PRSTREAM) COPYCHARS (SRCFIL DSTFIL +SRCSTRM DSTSTRM CNT) CURSORPROP (X) \INCHAR (EOLCA0806 CHA0807 STREAM BYTECOUNTVAR BYTECOUNTVAL EOLC) +POP-IP-STACK (IPSTREAM) GETCURSORPROP (CURSOR PROP) WRITE-UNICODE-MAPPING-FILENAME (FILE CSETINFO +RANGES) PUTCURSORPROP (PROP) EDITSAVE (COM) FUNCTIONSMSMC (NAME TYPE REASON) UNDOEDITCOM (X) +CL::DEFAULT-PREDICATE-NAME (CL::STRUCTURE-NAME) XIPAPPEND.BYTE (WHERE BYTE) EDITCOM1 (LST X) +TEDIT.PROMPTPRINT (MSG) UNDOEDITCOM1 (X) FB.UPDATECOMMAND (BROWSER) EXTENDABLE-ARRAY-P (ARRAY) +SI::CANONICALIZE-ADVICE-SYMBOL (CL:SYMBOL) \COPYOPENFILE (DESTPARAMETERS INSTREAM NEWNAME) +SEDIT::UNDO-LIST-REPLACE (SEDIT::NODE SEDIT::CONTEXT SEDIT::BOUNDS SEDIT::REDOT?) TB.WINDOW (BROWSER) +\CURSORMASKPROPNAME (BITSPERPIXEL) OPENSTREAM (ACCESS RECOG OBSOLETE) OPT.FRAMEOPT (X F TRYXVAR) +\MAIKO.10MBSENDPACKET (X Y NDB TYPE) \CURSORIMAGEPROPNAME (BITSPERPIXEL) \CHANGE-VISIBLE-REGION.IP ( +VISIBLE-REGION FONT) %%COPY-TO-NEW-ARRAY (OLD-DIMS NEW-DIMS OLD-ARRAY OLD-OFFSET NEW-ARRAY NEW-OFFSET +SIZE) CL:ARRAY-HAS-FILL-POINTER-P (ARRAY) RETDWIM2 (X $TAIL) EDITSAVE1 (X) %%ALTER-AS-DISPLACED-ARRAY +(DISPLACED-TO DIMENSIONS FILL-POINTER TOTAL-SIZE) COMPILER::ALPHA-EVAL-WHEN (COMPILER::TIMES COMPILER::FORMS +) SEDIT::OUTPUT-STRING (SEDIT::NEW-LPTR) EDITSMASH (A D) CL:FILL-POINTER (VECTOR) OPT.SETDEFREFS (D V) + CLOSEF (FILE STREAM FN) \TEDIT.WINDOW.OPS (TEXTOBJ WINDOWTOSPLIT WINDOWOPREGION) \PFFindPageAddr ( +filePage) EDIT2F (N) DELETEHASHKEY (HASHFILE HASHKEY) MSSEEKTYPE (TYPE) PROGN (U) FUNCTIONSMSGETDEF ( +NAME SOURCE OPTIONS) EDIT4F1 (PAT) ARRAY-NEEDS-INDIRECTION-P (ARRAY) \FM.DISPLAYITEM (WINDOW ITEM) +EDITAPPEND (X) XIPAPPEND.CELL (CELL) DIRFILENAME (NAME) \LFDWOUT (FILE NUMBER) BITSPERPIXEL (BITMAP) +FB.REMOVE.FILE (ITEM TBROWSER FD1 FD2 FBROWSER) EDIT1F (C L) \TEDIT.BOLD.CARET.ON (TEXTOBJ TEXTSTREAM +SEL) EDITCOML (X UF) EDITFPAT1 (X NC) \COMPUTE.ARC.POINTS (NDEGREES ANGLESIZE RADIUS STARTANGLE +CENTERX CENTERY) \SPP.PROBE (CON) COPYFILE (DESTPARAMETERS) SEDIT::OUTPUT-SPACE (SEDIT::X SEDIT::NEW-LPTR +) SEDIT::VERIFY-STRUCTURE (CL:STRUCTURE SEDIT::CHECK-STRUCTURE) EDITBELOW (PLACE L) +SI::ADD-OLD-STYLE-ADVICE (SI::OLD-ADVICE) UNPACKFILENAME (FILE ONEFIELDFLG OSTYPE) +SEDIT::SUBNODE-CHANGED-QUOTE (SEDIT::NODE SEDIT::SUBNODE) EDITNCONC (Y) EDIT4F2 (NODE MATCH X) +\MAIKO.10MBSTARTDRIVER (MYNSNUMBER) %%DO-LOGICAL-OP (SOURCE DEST SOURCE-BASE SOURCE-OFFSET DEST-BASE +DEST-OFFSET SOURCE-SIZE SOURCE-OP LOG-OP) CLIPBOARD-PASTE-STREAM (OST) INSPECT/TYPERECORD (X WHERE) +TEDIT.DO.BLUEPENDINGDELETE (TEXTOBJ) EDIT4F3 (X) CL:ARRAY-DIMENSION (ARRAY DIMENSION DIMS RANK) +\FM.CPUTITEMPROP (PROP ITEM VALUE) BPNT (X) FB.COMPILECOMMAND (BROWSER COMPILEOP) BIT-ARRAY-P (ARRAY) +SEDIT::UPDATE (SEDIT::CONTEXT SEDIT::SELECTION SEDIT::WINDOW SEDIT::SCROLL?) TRANS.IP (IPSTREAM) +CURSORCREATE (IMAGE DATA) EDIT.RI (X M N) COPYDEF (OLD SOURCE OPTIONS NEW) OPT.DEFREFS (D) +\UFStoOtherCopyMess (INSTREAM OUTSTREAM EXTENSION) DIRGETFILEINFO (FILEGROUP ATTRIBUTE) \PFGetPage ( +file filePageNumber volumePageNumber frame runLength noBreak) \PUPNET.CLOSERP (X Y) \BITBLT.PRESS ( +DESTINATION DESTINATIONLEFT OLDX DESTINATIONBOTTOM OLDY SOURCEBITMAP CLIPPEDSOURCELEFT +CLIPPEDSOURCEBOTTOM WIDTH HEIGHT) STKPOS (N FRAMENAME OPOS) MAKEFILE1 (FILE COMPILER ROOTNAME +OTHERFILES OPTIONS) \VECFONTINIT (BRUSH WIDTHS) \CURSORUP (NEWCURSOR INVERTFLG) OPT.CODEFRAME (CD) +\INFER.FILE.TYPE (OLDEOF) FB.OPERATE.ON.FILES (FILELIST) CH.CREATE.ALIAS (ALIAS) \LFDirectoryScrambled + (DIRSTREAM) EDIT.LO (N) FB.COPY/RENAME.MANY (CMD FD1 FD2 MOVEFN) TEDIT.UNDO.PARALOOKS (TEXTOBJ +OLDLOOKSLIST CH# SEL) PRINTCONSTANT (VAR FILE CONSTANTLIST) \VFMGetBufferFor (VOLPAGENUM) +\CURSOR-VALID-P (CURSOR IMAGE HOTSPOT-X HOTSPOT-Y) BCOMPL.BODY (OPTIONSSET CFILE FILES STREAM DEFS X) +IP-TOS (IPSTREAM) COMPILER::ALPHA-COMPILER-LET (COMPILER::BINDINGS COMPILER::BINDING COMPILER::BODY) +\COURIER.DELDEF (TYPE NAME) \NSFILING.CONFLICTP (DEVICE SESSION HANDLE NAME ACCESS) +SEDIT::UNDO-REPLACE-ROOT (SEDIT::NODE SEDIT::CONTEXT SEDIT::OLD-VALUE) TRANSLATE.IP (IPSTREAM X Y) +EDIT.LI (N) \LOCATE.PUPNET (NET BUCKET) READVISE1 (FN NAME) SETFILEPTR (FILE ADR) +SEDIT::SUBNODE-CHANGED-LIST (SEDIT::NODE SEDIT::SUBNODE SEDIT::CONTEXT) CURSORP (X) MSSEEK-WORD (LST +WORD) CL::PS-NAME-SLOT-POSITION (CL::PS CL::SUPER-SLOTS) LISPXFIND0 (LST INDEX MOD) CHANGEVAR (NAME) +ASSOCGET (KEY ALST) TEDIT.SELECTED.PIECES (SEL PCTB CHLIM CH1 INSERTPC FNARG1 FNARG2) +ADJUSTCURSORPOSITION (DELTAX N WIDTH DELTAY) ONEDINSPECT.CLOSEFN (WINDOW) \TEDIT.CARET (CARETS) EOFP ( +STRM FILE) \TEDIT.CENTER.SEL (SEL TEXTOBJ TEXTSTREAM PARA SAVECH# SAVEDCH) EDIT.BO (N) +NSPRINTREQUEST.STATUS (PRINTER REQUESTID) COMPILER::ALPHA-COMBINATION (COMPILER::FN COMPILER::ARGS) +SEDIT::OUTPUT-BITMAP (SEDIT::BITMAP) CONVERT-AFM-FILES (FILE-LIST FNAME) WRITE-UNICODE-MAPPING ( +INCLUDECHARSETS) \TEDIT.SHOWSELS (TEXTOBJ SELN HOW ON) FORCEOUTPUT (WAITFORFINISH) \FM.PUTITEMPROP ( +PROP VALUE) ONEDINSPECT.BUTTONEVENTFN (WINDOW W P DATUM SELECTEDPROP) FB.GET.NEW.FILE.SPEC (CMD +OLDNAME) \FLUSH.OPEN.STREAMS (FDEV) EQUAL-DIMENSIONS-P (ARRAY-1 ARRAY-2 DIMS) ONEDINSPECT.COPYBUTTONFN + (WINDOW W P) DEFAULTMAKENEWCOM (TYPE NAME) EDIT.BI (M) OPT.CODELEV (CD LEV) \DSPYPOSITION.PRESS ( +PRSTREAM) MSSPLST (MEANING WORD) ACCESS-CHARSET (STREAM NEWVALUE) CHANGEI.S. (REASON NAME) +CURSORPOSITION (DISPLAYSTREAM N WIDTH) ONEDINSPECT.DEFAULT.VALUECOMMANDFN (SETMENU INSPECTMENU PROP +WINDOW) GETEOFPTR (FILE STREAM) GETLOCALDEC (EXPR FN) CURSORSCREEN (SCREEN) NSPRINTER.PROPERTIES ( +PRINTER) NUMBERPAD.HELDFN (ITEM) \DSPUNTRANSFORMY (Y DD) CL:CHAR (STRING INDEX) SI::ADVICE-ADDTOCOM ( +TYPE SI::COM SI::NAME) SEDIT::STRINGIFY-QUOTE (SEDIT::NODE SEDIT::ENVIRONMENT) COMPILER::ALPHA-CATCH ( +COMPILER::TAG COMPILER::FORMS) \DSPUNTRANSFORMX (X DD) /ASSOCPUT (KEY VAL ALST) MSWORD? (X) +VARIABLESMSGETDEF (NAME SOURCE OPTIONS) %%FAST-COPY-BASE (FROM-TYPENUMBER TO-TYPENUMBER FROM-BASE +BITS-PER-ELEMENT FROM-OFFSET TO-BASE TO-OFFSET CNT) EDITGETD (X FN EDITCHAIN) CL::PREDICATE-BODY (CL::PS +) \FILLINXIP (TYPE DESTHOST) COPY-ARRAY (FROM-ARRAY FROM-TYPE-NUMBER TO-TYPE-NUMBER) MSPATHS (FROM X +SEEN) \TEDIT.INSERT.PIECES (CH# TOPCTB TOLEN START-OF-PIECE) \TEDIT.CLOSEUPLINES (TEXTOBJ WINDOW +WWIDTH) \PFRemoveDirectoryID (vol rootDir type) SEDIT::UNDO-EVENT (SEDIT::CONTEXT SEDIT::SUBEVENT) +\TEDIT.BOLD.SEL.ON (TEXTSTREAM TEXTOBJ SEL) CL:BIT-NOT (BIT-ARRAY) \LEAF.LOOKUPCACHE (PAGE#) +CLISPIFYFNS (FNS X) COPY-VECTOR (FROM-VECTOR TO-VECTOR FROM-LENGTH TO-LENGTH START1 START2 +FROM-TYPE-NUMBER TO-TYPE-NUMBER SUBLEN1 SUBLEN2) \FILETYPE.FROM.TYPE (TYPE) CH.DELETE.OBJECT (STREAM) +CHANGEMACRO (REASON NAME TYPE) HASHFILEDATA (HASHFILE) TEDIT.UNDO.LOOKS (OLDLOOKSLIST \INPC CH# SEL) +GETFILEPTR (FILE STREAM) EDIT.BITMAP.REAL (BITMAP) \VFMLower (A B AFILE BFILE APAGE BPAGE) +\LOOKUPCOLORNAME (COLORNAME) DISPLACED-ARRAY-P (ARRAY) \ROUTE.PUP (NET HOST) \SETCLOSEDFILELENGTH ( +FILENAME STREAM NBYTES) TB.MAP.DELETED.ITEMS (BROWSER MAPFN) \NSRANDOM.CREATE.STREAM (OLDACCESS ACCESS + SESSION ATTRS LEN OLDATTRS) LASTMOUSEY (DS) FB.LOADCOMMAND (BROWSER LOADOP) \SETEOFPTR (STREAM LEN) +LASTMOUSEX (DS) WRITE-UNICODE-MAPPING-HEADER (STREAM LINE CSETINFO RANGES R) SI::ADVISE-CONTENTS (TYPE + SI::COM) SEDIT::STRINGIFY-LIST (SEDIT::NODE SEDIT::ENVIRONMENT) CH.CREATE.OBJECT (STREAM) +\FM.CGETITEMPROP (PROP) /ECHOCONTROL (CHAR) TEDIT.REDO.LOOKS (TEXTOBJ EVENT SEL NEWLOOKS) LISPXSTATE ( +NAME STATE) BOUT16 (STREAM N) \MACPEEKCCODEFN (STRM NOERROR) \VECSKIP (PRSTREAM DX DY) /SETSYNTAX ( +CLASS CH) PUPTRACE (REGION FLG) \PUSHSTATE.IP (IPSTREAM XVar# YVar#) BIN16 (STREAM) SIMPLE-COMPARE ( +START1 START2 LEN1 LEN2) CURSORHOTSPOT (NEWPOSITION) \NSPRINT.ENQUIRE (OP) \GENERIC.BINS (NBYTES BASE +STREAM) SEDIT::NEW-BLOCK (SEDIT::CONTEXT) GETMOUSESTATE (N WIDTH) OPT.RETMERGE (TEST TARGET END) +\GENERIC.BOUTS (NBYTES STREAM BASE) POSTSCRIPT.GETFONTID (FID SLOPE WEIGHT EXPANSION) +CL::ASSIGN-FIELD-DESCRIPTORS (CL::PS) SCAVENGEVOLUME (volName) %%MAKE-DISPLACED-ARRAY (DISPLACED-TO +DISPLACED-INDEX-OFFSET DIMENSIONS TOTALSIZE ELEMENT-TYPE FILL-POINTER READ-ONLY-P EXTENDABLE) +COURIERTRACE (REGION WINDOW) TB.ITEM.DELETED? (ITEM) %%GET-CANONICAL-CML-TYPE (ELEMENT-TYPE) +\ROUTE.XIP (NET X) \TEDIT.BOLD.SEL.OFF (TEXTSTREAM TEXTOBJ SEL) \FM.GETITEMPROP (PROP ITEM) MSVERB ( +TENSE) FB.SEEBUTTONFN (MENU MENUW ITEM WINDOW) SEDIT::TYPE-OF-INPUT (SEDIT::CONTEXT) BEEPON (FREQ) +\PFFindDirectoryID (vol rootDir type) ONEDINSPECT.DEFAULT.TITLECOMMANDFN (WINDOW TITLEMENU DATUM) +\NSFILING.CHECK.ACCESS (SESSION HANDLE RESULT TYPE) CLISPDEC0 (FN) NSPRINTER.STATUS (PRINTER) +READ-ONLY-ARRAY-P (ARRAY) SEDIT::LINE-FINISHED (SEDIT::THIS-LINE SEDIT::X) +TWODINSPECT.SELECTCOLUMNPROP (WINDOW TOPWINDOW COLUMNPROPS COLUMNPROP HORZMARKS) FIRSTATOM (X) +CHARMACRO (X) \PUPGATELISTENER (SOCKET TIMER) SEDIT::SET-SELECTION-QUOTE (SEDIT::INDEX TYPE SEDIT::ITEM + SEDIT::SELECTION SEDIT::CONTEXT SEDIT::NODE) FILL-ARRAY (ARRAY) MSMARKCHANGED (REASON NAME) +FB.COPYCOMMAND (BROWSER) TEDIT.REDO.PARALOOKS (TEXTOBJ EVENT SEL NEWLOOKS) CHANGESLICE (N) +SELECT.LIST.INSPECTOR (LST) \VFMMerge (leftInterval mergeKey mergeLevel rightInterval) +WITHOUT-INTERRUPTS (FORM) \TEDIT.BOLD.CARET.OFF (TEXTOBJ TEXTSTREAM SEL) DISPLAYDOWN (NSCANLINES FORM) + CL:SCHAR (SIMPLE-STRING INDEX) SEDIT::SUBNODE-CHANGED-ROOT (SEDIT::CONTEXT) \GETINTERNALCLOCK (BOX +CLOCKOFFSET) ETHERHOSTNAME (OPUP SOC) OPT.RETTEST (TEST TARGET) CL:SIMPLE-VECTOR-P (VECTOR) CL:ERROR ( +CL::DATUM CL::ARGS XCL:*CURRENT-CONDITION* ERRORPOS) \CREATEPRESSFONT (DEVICE FAMILY PSIZE FACE +ROTATION FD) \LEAF.REQUESTPAGE (PAGE#) SCAVENGEDSKDIRECTORY (volName vol) CL:SIMPLE-BIT-VECTOR-P ( +VECTOR) COURIER.READ.STRING (STREAM LENGTH STRING BASE OFFSET) \TEDIT.HISTORYADD (EVENT OETYPE ETYPE +OSTART NSTART OLDEND NEWEND) TB.ITEM.SELECTED? (ITEM) TWODINSPECT.SELECTROWPROP (WINDOW RIGHTWINDOW +ROWPROPS ROWPROP VERTMARKS ROWPROPSPACE) OPT.RETOPT1 (L X Y) CL:SVREF (CL:SIMPLE-VECTOR INDEX) +%%MAKE-GENERAL-ARRAY (ELEMENT-TYPE FATP DISPLACED-TO TOTAL-SIZE TYPE-NUMBER READ-ONLY-P DIMENSIONS +ADJUSTABLE-P FILL-POINTER EXTENDABLE-P DISPLACED-INDEX-OFFSET) \LFFileSpec (NAME RECOG) MAKEFN (FORM +BODY X) \VFMGenerateFileIDs (vol desiredType) %%MAKE-TWOD-ARRAY (DIMENSIONS ELEMENT-TYPE FATP +TOTAL-SIZE TYPE-NUMBER READ-ONLY-P EXTENDABLE-P BOUND0 BOUND1) BIT.IN.ROW (BITMAP ROW) PP* (X) +DATATYPE (NAME&FIELDS) COMPILER::ALPHA-ATOM (COMPILER::FORM) PRINTERRORPUP (FILE PUP) IMAGEFNSCREATE ( +DISPLAYFN IMAGEBOXFN PUTFN COPYFN BUTTONEVENTINFN COPYBUTTONEVENTINFN WHENMOVEDFN WHENINSERTEDFN +WHENDELETEDFN WHENCOPIEDFN WHENOPERATEDONFN PREPRINTFN) %%AREF0 (ARRAY BASE-ARRAY INDEX) +SEDIT::SET-SELECTION-LIST (SEDIT::ITEM TYPE SEDIT::SELECTION SEDIT::CONTEXT SEDIT::NODE) +\SECONDSCLOCKGREATERP (OLDCLOCK SECONDS) MSOBJTYPE (MSVERB) REMEMBER (LINE) FB.RENAMECOMMAND (BROWSER) + \MACINCCODEFN (STRM) NONSYSPROPNAMES (ATM) \CLOCKGREATERP (OLDCLOCK MSECS) \SETDAYTIME0 (TMP) +SMARTARGLIST (TAIL) CL:ARRAY-ROW-MAJOR-INDEX (ARGS ARRAY) GETHASHTEXT (KEY HASHFILE HASHTEXTPTR DSTFIL +) \RCLOCK0 (BOX) NSPRINTER.HOSTNAMEP (PRINTERNAME) COMPILER::ALPHA-BLOCK (COMPILER::NAME COMPILER::NEW-BLOCK + COMPILER::*BLOCK-STACK* COMPILER::BODY) CL:ARRAY-IN-BOUNDS-P (ARGS ARRAY) SEDIT::LAST-LINE-LINEAR ( +SEDIT::CONTEXT) CH.LIST.OBJECTS (PROPERTY) CL::PROCESS-TYPE (CL::PS CL::EXPORTNAME) EDITGETD-LET (FORM +) SI::ADVICE-NEWCOM (SI::NAME SI::LISTNAME SI::FILE) HLSTORGB (HLS L S H) TB.UNDELETE.ITEM (BROWSER +WINDOW) %%ASET0 (ARRAY BASE-ARRAY NEWVALUE TYPE-NUMBER INDEX) \NSFILING.FULLNAME (HANDLE.OR.PARSE +CONNECTION PAIR NC DIR) COND.TO.IF (CONDCLAUSES X) PATH.LESSP (PATH1 PATH2) ASET (ARGS) +MODERN-MENUBUTTONFN (WINDOW) BREAKCONNECTION (FAST) EDITGETD-LAMBDA (BODY) REGIONONSCREEN (POS WIDTH +HEIGHT) COURIER.READ.SEQUENCE (STREAM PROGRAM BASETYPE) CL::ROW-MAJOR-ASET (INDEX ARRAY BASE-ARRAY +NEWVALUE TYPE-NUMBER ROW-MAJOR-INDEX) SWAPPEDCOND (CND C1 C2) MSSUBJTYPE (MSVERB) +CL::%%STRUCTURE-TYPE-TO-FIELDSPEC (CL::ELEMENT-TYPE CL::COERCED-TYPE) PRINTXIPROUTE (FILE PACKET +CONTROL) XCL:ROW-MAJOR-AREF (INDEX ARRAY BASE-ARRAY) \TEDIT.WINDOW.TITLE (TEXTSTREAM TEXTOBJ) +\PFInsertDirectoryID (vol rootDir type directoryID) \DSPROTATE.IP (IPSTREAM ROTATION) +\GENERIC.RENAMEFILE (OLDDEVICE) COMPILER::ALPHA-ARGUMENT-FORM (COMPILER::FORM) \GENERIC.OPENP (DEVICE) + \LFPutDirectory (vol directory) COMPLEX-COMPARE-FORWARD (START1 START2 LEN1 LEN2) +\HANDLE.PUP.ROUTING.INFO (PUP NDB TABLE MASK RADIUS) CL::SIMPLE-STRING-EQUAL (STRING1 STRING2 BASE1 +OFFSET1 TYPENUMBER1 BASE2 OFFSET2 TYPENUMBER2) SAMEPARALOOKS (FEATURES PARALOOK1 PARALOOK2) +\NSFILING.FILLIN.ATTRIBUTES (SESSION ATTRS X) PRINTPUPROUTE (FILE PACKET CONTROL) \TITLEICONMINSIZE ( +WINDOW) \TOTALFIXEDHEIGHT (ATWSINFO) \VAMUpdateVAM (page vol VAMPage# VAMWord# POSITIONA0720 VAMBit# +allocOrFree) PRINTPUPDATA (PUP OFFSET MACRO FILE) FILEGETDEF.VARS (SOURCE NAME) COPY-CIRCLE (X) +\BACKCCODE (STREAM) /DEFINE (X) SEDIT::STRINGIFY (SEDIT::NODE SEDIT::ENVIRONMENT) \STRINGWIDTHGUESS (X + FONT) \INCCODE (STREAM BYTECOUNTVAL) \LEAF.ADD.QUOTES (NAME OSTYPE) \TEDIT.GET.SINGLE.PARALOOKS2 (N +WIDTH FILE) GETHASH (HARRAY HA ITEM BASEA0293 DEFAULT BASEA0294) PARSE-FORMAT-OPERATION (CH COLON +ATSIGN) ALTO.TO.LISP.DATE (DATE) RECLISPLOOKUP (WORD VAR1 VAR2) \PEEKCCODE (EOL CHA0349 STREAM NOERROR +) HARDCOPY.SOMEHOW (WINDOW FILE PRINTERTYPE) SEDIT::FIND-AND-DISPLAY-SUBSTRUCTURE-BACKWARDS (SEDIT::CONTEXT + SEDIT::STR SEDIT::SCOPE SEDIT::TOP SEDIT::PROMPTWINDOW) LISP.TO.ALTO.DATE (DATE) VALUOF-EVENT (Y X) +\NSFILING.OPEN.HANDLE (SESSION PNAME.OR.PROPS NOERRORFLG RESULT) INSPECT/PROPLIST (ATOM WHERE) +PREVWORD (BUF CH) SEDIT::FIRST-LINE-LINEAR (SEDIT::CONTEXT) CHAT.CLOSE (WINDOW ABORTED) +\FM.MENUHANDLER (WINDOW TIMER $$OUTPUT) \VECPUT (PRSTREAM DX HALFVECWIDTH DY) IMLTLIST (KLIST PT M11 +M12 M13 M21 M22 M23) START.NEW.LINE (USECR) SHORTEN (STRING LEN) SEDIT::SHIFT-LINEAR-FORM ( +SEDIT::RIGHT-SHIFT) SEDIT::ASSIGN-FORMAT-NIL (SEDIT::NODE SEDIT::SUBNODE SEDIT::CONTEXT) +\LFFullFileName (UNPACKEDNAME) \MAP-OPEN-STREAMS (DEVICES ACCESS FN STREAM) \TEDIT.PUT.CHARLOOKS.LIST2 + (FILE STREAM W LOOKSLIST LOOKSHASH) \NCONC2 (X Y) NS.MAKE.SIMPLE.CREDENTIALS (NAME/PASS) +PFI.CENTER.PRINT (LMAR STR TAIL) PFI.CONDENSE.INDEX (TRIPLES TRIP X Y LASTPAGE) \TOTALFIXEDWIDTH ( +ATWSINFO) \EOF.ACTION (STREAM) \VAMAdjustGroup (groupPtr) MB.COPYFN (OBJ) FILEGETDEF.FNS (OPTIONS NAME +) TYPEINMENU (LST) NUMBER.READER.HANDLER (DIGIT MENU) \EOSERROR (STREAM) /DEFINEQ (X) +\SETUPTIMERmacrofn (X FORM) SEDIT::GENERATE-LINEAR-FORM (SEDIT::CURRENT-X SEDIT::RIGHT-MARGIN) STKARGS + (POS) \FM.DOSELECTION (WINDOW ITEM BUTTONS) \PSC.SYMBOLS (STREAM OLDFONT IMAGEDATA CHAR) SUBST (OLD +NEW) XYPT.LESSP (PT1 PT2) FW-FILTERED-FILE? (FULLNAME) \INCFILEPTR (STREAM AMOUNT) +SEDIT::SETUP-WINDOW-CONTEXT-DEPENDENCIES (SEDIT::CONTEXT SEDIT::ROOT SEDIT::WINDOW SEDIT::HEIGHT) +\CanonicalizeTimerUnits (X) CONSFN (X Y) OPT.RETFIND (C) \PAGED.INCFILEPTR (AMOUNT) +\COURIER.UNKNOWN.TYPE (TYPE) SEDIT::FIND-AND-DISPLAY-SUBSTRUCTURE (SEDIT::CONTEXT SEDIT::STR SEDIT::SCOPE + SEDIT::TOP SEDIT::PROMPTWINDOW) COMPILER::META-SUBSTITUTE (COMPILER::TREE) GRAPHOBJ.COPYBUTTONEVENTFN + (GROBJ WINDOW) FIND.NEXT.WORD (END X CH) \FIXPOUT (STRM N) BIT.IN.COLUMN (BITMAP COLUMN) TEDIT.GETSEL + (STREAM) OPT.RETOPT (RL C X Z) \LFGetDirectory (vol) \FIXPIN (STRM) +SEDIT::FIND-AND-DISPLAY-STRUCTURE-BACKWARDS (SEDIT::CONTEXT SEDIT::STR SEDIT::SCOPE SEDIT::TOP +SEDIT::PROMPTWINDOW) LOOKIN (PAT X) INTCHECK (CHAR) MENUBUTTONFN (W) USERLISPXPRINT (POS X FILE Z) +\HDCPYDISPLAY.FIX.YPOS (HARDCOPYSTREAM) MAKESCAN (SELF) SEDIT::RELINEARIZE-PRELINEARIZED-NODE (SEDIT::NODE +) APPENDNUMBER.IP (STREAMA0732 NUMA0731 STREAM LEN) READ (RDTBL FLG FILE) FIND.CHAT.PROTOCOL (NAME) +\FM.RIGHTBUTTONFN (WINDOW) \PSC.SPACEWID (CHAR FONTDESC) \LFReadFileID (directory position) FW-SORT-FN + (OFD2 OFD1) \BUFFERED.PEEKBIN (STREAM NOERRORFLG) SCALE/GRAPHNODE/BORDER (SCALE) +SEDIT::SETUP-WINDOW-AND-PROCESS (SEDIT::CONTEXT SEDIT::WINDOW SEDIT::PROCESS TABLE) \SHAREOFXTRAY ( +TOTALOLDSIZE WINFO TOTALNEWSIZE) \BUFFERED.BOUT (BYTE) FILEGETDEF.PROPS (SOURCE NAME) UNREADITEM (ITEM +) OPT.JSIZE (OP FN D) WRITE (OBJECT) MENUREPAINTFN (WINDOW MENU DSP) COMPILER::FRAME-ANNOTATE-THROW ( +COMPILER::SELF) COMPILER::META-CALL-LABELS (COMPILER::NODE COMPILER:CONTEXT) EF (FN) +\TEDIT.PUT.SINGLE.PARALOOKS2 (STREAM W FILE LOOKS TAB) TTYIN.BALANCE (ADDPARENS CHAR TABLE CH) +\BUFFERED.BINS (NBYTES DBASE NOERRORFLG) LAYOUTSEXPR1 (TREE D) EV (VAR) +SEDIT::CLEAN-UP-AFTER-RELINEARIZATION (SEDIT::CONTEXT SEDIT::WINDOW SEDIT::LEFT SEDIT::NODE) \SETCARET + (DS Y CLIPREGION X TEXTOBJ CARET) \MOVEBYTES (SBASE SBYTE DBASE DBYTE) \FM.BUTTONEVENTFN (WINDOW) +DELFROMLIST (VAL VAR X) \LFOpenOldFile (fullFileName directoryPointer leaderPage) DOSLINKER (FILES +STREAM OLDDIR FILE) SEDIT::SETUP-PROFILE (SEDIT::CONTEXT SEDIT::PROFILE) LOCALVARS (A) EMBEDPROG (DEF +BINDVARS BINDVALS) \BUFFERED.BOUTS (SBASE DEV) SEDIT::FIND-AND-DISPLAY-STRUCTURE (SEDIT::CONTEXT SEDIT::STR + SEDIT::SCOPE SEDIT::TOP SEDIT::PROMPTWINDOW) TEDIT.GET.LOOKS (TEXTOBJ) \STRINGWIDTH.HDCPYDISPLAY ( +STREAM STR HARDCOPYFD RDTBL FONT CHARCODE) PFI.PRINT.INDICES (LINESPERPAGE HALFPAGE) MB.GETFN (OBJ +FILE TEXT MBFN FONT STREAM W ATTR) \SCROLL.HANDLER.DOIT (WINDOW WBORDER SCROLLREGION DIRECTION BUTTON +XPOS SIZEOFORIGIN YPOS CONTINUOUS?) \TEDIT.PUT.SINGLE.CHARLOOKS2 (LOOKS FONT FILE STREAM W) +%%CHECK-SEQUENCE-DIMENSIONS (DIM-LST SEQUENCE) MKPROGN1 (L) \SHAREOFXTRAX (WINFO TOTALNEWSIZE +TOTALOLDSIZE) OPT.FINDEND (STOP) TEDIT.STREAMCHANGEDP (STREAM) \NULLDEVICE (STREAM) +%%FILL-ARRAY-FROM-SEQUENCE (DIMS) NEGL (L) HEXSTRING (WIDTH STR) CIRCLAR-COPYER (INPUT) +TEDIT.SEL.AS.STRING (SEL TEXTOBJ) SAVESETQQ (SETQX SETQY) \PSC.SPACEDISP (STREAM WIDTH) +FILEGETDEF.MACROS (SOURCE X) NEGLST (L) \10MB.CREATENDB (ETHERTASK#) TEDIT.ADD.MENUITEM (ITEM) +MB.SHOWSELFN (OBJ DS OBJBOX) FW-OFD-EXISTS? (FULLNAME FILESTREAM) BACKGROUNDWHENSELECTEDFN (ITEM) +\NULL.OPENFILE (OLDSTREAM ACCESS DEVICE) COMPILER::FRAME-ANNOTATE-UNWIND-PROTECT (COMPILER::SELF) +\TOTALPROPOSEDSIZE (ATW RESTATWS PWIDTH PHEIGHT) SEDIT::CREATE-QUOTED-GAP (SEDIT::GAP SEDIT::QUOTE-TYPE + SEDIT::CONTEXT) NULL (X) FW-CREATE-OFD-LIST (OFD) SETUPTIMER.DATE (DTS OldTimer?) DWIMDEF (DEF SOURCE +) \TEDIT.SCALEREGION (REGION SCALEFACTOR) XCL::UNDOABLY-SETQ (XCL::VARVALUE) COMPILER::FRAME-ANNOTATE-TAGBODY + (COMPILER::SELF COMPILER::SEGMENT COMPILER::STMT COMPILER::*REFERENCES* COMPILER::REQUESTOR +COMPILER::REFERENCE) CRIT.LESSP (SCAN1 SCAN2) TTNTH (END) MOVE.TO.WHEREVER (BUF) +%%CML-TYPE-TO-TYPENUMBER (ELEMENT-TYPE CANONICAL-TYPE) TIMEREXPIRED? (TIMER ClockValue.or.timerUnits) +FIXFIELDORDER (EXPRESSION) NTHTOPLEVELELT (N LST) POSSIBILITYFN (FN) LAYOUTLATTICE (ROOTIDS NODELST +FORMAT) PRINTER.BITMAPSCALE (PRINTERTYPE WIDTH HEIGHT HOST) NARGS (FN N) \DSPYPOSITION.HDCPYDISPLAY ( +HARDCOPYSTREAM) FILEGETDEF.RECORDS (SOURCE VAL NOTFOUND) \TEDIT.GET.CHARLOOKS.LIST2 (N WIDTH FILE) +USEREXEC (LISPXID LISPXXMACROS LISPXXUSERFN) TIME.UNTIL (TIMER UNITS) BLTMENUIMAGE (MENU WIN DSTWIN +SRC BORDER CR) SCALEPAGEUNITS (FACTOR PAPERSIZE OTHEREDGE) \ARGPTR (VAR INTERPDEF A N) +APPENDLARGEVECTOR.IP (ARRAY ASIZE AORIG STREAM) IMAGESTREAMP (NARGS STREAM) SETARG (VAR M X) +\UPDATE.EXTENT.IMAGE (SCROLLBARW SCROLLINGW EXTENT DIRECTION EXHEIGHT SCROLLREGION WINREGION EXWIDTH) +IMAGESTREAMTYPE (STREAM) COMPILER::META-CALL-LAMBDA-SUBSTITUTE (COMPILER::NODE COMPILER::FN +COMPILER::REQUIRED-ARGS) \ARG (VAR M) OPT.DELTAGREF (REF TAG) IMAGESTREAMTYPEP (STREAM S STYPE) +AT.END.OF.TEXT (BUF CH) \SETARG (VAR M X) \CH.GUESS.NEW.PROPERTIES (DOMAIN) STKNTH (N OPOS) +%%MAKE-ARRAY-STORAGE (NELTS BITS-PER-ELEMENT GC-TYPE INIT-ON-PAGE ALIGNMENT) TEDITCHAT.MENUFN (WINDOW) + \FM.WINDOWENTRYFN (WINDOW) COMPILER::CONSTRUCT-LIST (COMPILER::ARGS COMPILER::ARG) STKNAME (POS) +\LFCreateFile (fileName vol info) \FM.STARTEDIT (WINDOW ITEM CLEARFLG) SEDIT::SETUP-NEW-CONTEXT ( +SEDIT::LOCK) PRINT-ARGLIST (FILE) SETSTKNAME (POS NAME) U/L-CASE (N NEXTWD) UNIX-STREAM-IN (STREAM) +\COPYFNHEADER (FNHD) LISPXEVAL (LISPXFORM) PFI.PREVIEW.DECLARE (FN) \TEXTBOUT (TEXTOBJ CH# BYTE) NOTE +(VAL) MB.SIZEFN (OBJ STREAM) STKSCAN (VAR A OPOS) SEDIT::SET-INITIAL-SELECTION (SEDIT::CONTEXT) +OPENIMAGESTREAM (DEFPRINTER OPTIONS STREAM) /TCONC (X) \FRAMESCAN (FRAME NT ATOM#) +COMPILER::META-CALL-LAMBDA-SIMPLIFY-PARAMETERS (COMPILER::NODE COMPILER::FN COMPILER::PARAM) +CHAT.RESHAPEWINDOW (WINDOW OLDIMAGE IMAGEREGION CHAT.PROC) SEDIT::COMPLETE (SEDIT::CONTEXT SEDIT::REASON + SEDIT::OPTIONS) RETTO (POS P VAL) \LFGetStreamForFile (NAME RECOG FULLNAME ACCESS OTHERINFO) +\FM.CREATEW (GROUPS REGION BORDER TITLE WINDOW BACKGROUND) PRINTERPROP (PRINTERTYPE PROP) +SEDIT::SETUP-CONTEXT-WINDOW-DEPENDENCIES (SEDIT::CONTEXT SEDIT::WINDOW) \SETWINFOXSIZE (PROPOSEDSIZE) +OPT.COMMONBACK (REF) APPENDINT.IP (LENGTH STREAM NUM) FW-CREATE-OFD (FILESTREAM FULLNAME) +\VAMEnoughSpace (filePtr RUNLENGTH vol) FILEGETDEF.LISPXMACROS (SOURCE NAME) GETDEFFROMFILE (NAME TYPE + OPTIONS NOTFOUND VAL) PFI.PREVIEW.DEFINEQ (FN) XCL::UNDOABLY-SET-SYMBOL (CL:SYMBOL XCL::VP XCL::VALUE +) RESUME (TOFX FROMFX VAL) \ALLOCSPACETOGROUPEDWINDOWS (WGROUPINFO) %%ONED-ARRAY-P (ARRAY) +SEDIT::EQUALIZE-STRING-WIDTHS (SEDIT::STRING-LIST SEDIT::FONT SEDIT::PRIN2?) +PRINTFILETYPE.FROM.EXTENSION (FILE EXT) \RESUME (FRAME) CREATEWFROMIMAGE (SCREEN IMAGE) EXEC-READ-LINE + (BUFFER-STRING) SHRINK-VECTOR (NEW-SIZE) XCL::GET-UNDOABLE-SETF-METHOD (XCL::FORM XCL::ENVIRONMENT) +STKARG (VAL) %%GENERAL-ARRAY-P (ARRAY) CHAT.BUTTONFN (WINDOW) \TEDIT.SET.WINDOW.EXTENT (WINDOWS) +\POSTSCRIPT.ACCENTFN (STREAM CHAR) \LFUpdateLeaderPage (time) \FM.SETATTACHPOINT (ITEMS ITEM MAXREGION + WIDTH HEIGHT SI::$PROG1-FIRST-EXPRESSION$) %%TWOD-ARRAY-P (ARRAY) COMPILER::FRAME-ANNOTATE-RETURN ( +COMPILER::SELF) \SPREADFRAMEP (FRAME) NOTOKSWAP (EXPR1 EXPR2) TRYNEXT1 (MSG##) +SWITCH/NODE/HEIGHT/WIDTH (NL N) \INTERPFRAMENT (FX) CENTERPRINTINAREA (EXP X WIDTH STRWIDTH Y HEIGHT +PFN) CH.DELETE.MEMBER (DONTCHECK PROPERTY) SHOWSHADEDITEMS (MENU ALLITEMS DSP) SETSTKARG (POS N FRAME +VAL) SETNTHTOPLEVELELT (N LST NEWVALUE) UNIX-STREAM-PEEK (STREAM NO-ERROR) COMPILER::META-CALL-LAMBDA +(COMPILER::FN COMPILER::NEW-PROG1) STKARGNAME (POS N FRAME X) FILEGETDEF.ALISTS (SOURCE NAME) +SETSTKARGNAME (POS N X NAME) PRINTER.BITMAPFILE (PRINTERTYPE) \TEDIT.TRY.ABBREV (ABBREV STREAM) +%%PRINT-ARRAY-CONTENTS (DIMENSIONS NELTS STREAM) CHAT.CLOSEFN (WINDOW) \FM.UPDATEWINDOWEXTENT (WINDOW +EXTENT) GETDEFSAVED (TYPE NAME OPTIONS) \FM.COLLECTNWAYS (WINDOW ITEM) SEDIT::SETUP-CONTEXT (SEDIT::CONTEXT +) %%DEFPRINT-ARRAY (ARRAY STREAM) PRETTYDEF (CHANGES) STKNARGS (POS FRAME) OPT.LABELNTHPR (CODE DL +LEVEL) CL:PRINC-TO-STRING (OBJECT) FRAMESCAN (POS FX ATOM) CL:WRITE-CHAR (OUTPUT-STREAM CHARACTER) +PFI.HANDLE.PACKAGE (EXPR) OPT.JUMPREV (OPT.DEFREFS TAG LEVEL APD) %%DEFPRINT-VECTOR (VECTOR STREAM +SIZE) UNIX-STREAM-EOFP (STREAM CH) \HDCPYDISPLAY.FIX.XPOS (HARDCOPYSTREAM) PRINTCOPYRIGHT (FILENAME X +CURRENTYEAR) \GOOD.DASHLST (DASHING BRUSH BRUSHSIZE) %%DEFPRINT-STRING (STRING) CENTEREDPRIN1 (LEFT +WIDTH EXP DS Y) \APPEND2 (L2 VAL) PRINTCOPYRIGHT1 (OWNER LINE) CHECKDEFS (X FIELDS) %%ARRAY-READ (BASE + TYPE-NUMBER INDEX) %%DEFPRINT-BITVECTOR (CL:BIT-VECTOR SIZE) SAVECOPYRIGHT (FILENAME) BITMAPWIDTH ( +BITMAP) \DSPXPOSITION.HDCPYDISPLAY (HARDCOPYSTREAM) COMPILER::FRAME-ANNOTATE-SETQ (COMPILER::SELF) +DECLAREDATATYPE (SUPERSPECS) READFROMBUF (END) %%ARRAY-WRITE (NEWVALUE BASE TYPE-NUMBER INDEX) +\TEDIT.GET.PARALOOKS.LIST2 (N WIDTH FILE) MB.WHENOPERATEDFN (OPERATION OBJ SEL DS) MENUREGION (MENU) +\SETWINFOYSIZE (PROPOSEDSIZE) \VAMFindFreePages (vol filePtr) COMPILER::META-EVAL-VAR-REF (COMPILER:CONTEXT + COMPILER::NODE) \EDIT.DOWNCARET (DS X Y) TRANSLATE.DATATYPE (FIELDSPECS UNUSED) PRINT-DOCUMENTATION ( +NAME TYPE) %%SLOW-ARRAY-WRITE (NEWVALUE) COMPILER::FRAME-ANNOTATE-PROGV (COMPILER::SELF) +\POSTSCRIPT.ACCENTPAIR (STREAM IMAGEDATA CHAR ACCENTS UNDER-ACCENTS FONT) LINELENGTH (FILE) +BITMAPHEIGHT (BITMAP) \NSRANDOM.UPDATE.VALIDATION (SESSION HANDLE NEWATTRS) CLEANPOSLST (PLST X) +XCL::WALK-UNEXPECTED-DECLARE (XCL::FORM) \RESHAPEATTACHEDWINDOWSAROUNDMAINW (MAINW MAINWEXTENT +ATWINSINFO) SEDIT::DOT-THIS-LIST (SEDIT::CONTEXT SEDIT::POINT SEDIT::INDEX SEDIT::NUM-SUBNODES) +%%REDUCE-MOD (ELEMENT-TYPE MODNUM) GETDEFERR (OPTIONS TYPE NAME) APPENDSEQUENCEDESCRIPTOR.IP (TYPE +LENGTH STREAM) GETFILEDEF (FILENAME) MAXSTRINGWIDTH (L FONT PRIN2FLG RDTBL) READ-UNICODE-MAPPING ( +FILESPEC) DO-EVENT (ORIGINAL-INPUT TABLE X) %%REDUCE-INTEGER (ELEMENT-TYPE BOUND) EXTENDEXTENT (WINDOW + INCLUDEREGION) MakeBitField (FIRST WIDTH) %%GET-ENCLOSING-UNSIGNED-BYTE (ELEMENT-TYPE NBITS) +\NSRANDOM.WROTE.HANDLE (SESSION) \TEDIT.PUT.SINGLE.PARALOOKS (FILE STREAM W LOOKS TAB FILEPOS) +%%GET-ENCLOSING-SIGNED-BYTE (ELEMENT-TYPE NBITS) XCL::WALK-TAGBODY (XCL::FORM XCL::CONTEXT) +FLONUM-TO-STRING (X ROUND POINTPLACE) PFI.HANDLE.* (EXPR LINEGUESS) TOPPATHS (FIELD DECS LST TL) +PRODUCE (VAL) REFLECT/GRAPH/VERTICALLY (GRAPH H) EQUAL.CH.NAMES (NAME1 NAME2) PRINTHISTORY2 (INPUT +FILE X FL NOVALUES) EDITLOADFNS? (FILES) DO.EDIT.PP (\BUFFER TTSCRATCHFILE) COURIER.BROADCAST.CALL ( +PROGRAM PROCEDURE PGMDEF DESTSOCKET# ARGS RESULTFN RT HOPS) COMPILER::META-EVAL-UNWIND-PROTECT (COMPILER::NODE + A0679 A0678 A0681 A0680 COMPILER:CONTEXT) CHAT.ICONFN (WINDOW OLDICON) \FM.WINDOWEXTENT (WINDOW +EXTENT) \POSTSCRIPT.SPECIALOUTCHARFN (STREAM CHAR) MMLTLIST (KLIST PT M11 M12 M13 M21 M22 M23) +\FM.MAKELINKS (WINDOW ITEM) COPY.TEXT.TO.IMAGE (IMAGESTREAM FONTS FONTARRAY INFILE MAXFONT LEFTMARGIN +CURRENT.X TAB.WIDTH CURRENT.STOP) TTDELETECHAR (PREV) SEDIT::SET-DEPTH (SEDIT::DEPTH SEDIT::X) +TYPE-VARIABLE-FROM-TYPE-NAME (TYPE-NAME BASE LEN FATP PREFIX PREFIX-LENGTH) GETDEFCOM0 (COM Y X) +REMOVEDUPS (LST) DISPLAYP (STREAM) \NSRANDOM.WRITE.SEGMENT (SESSION HANDLE FIRSTBYTE BYTESTOSTORE +BUFFERS BULKSTREAM) GLOBALVARS (A) XCL::WALK-TAGBODY-1 (XCL::CONTEXT) \BREAKAPARTATWSTRUCTURE (ATWLST +ATW) \VAMFilePageNumber (fileType filePageNumber volumePageNumber) BitFieldFirst (FD) OPT.LBDEL (TAG +DEF) GETDEFCURRENT (TYPE NAME OPTIONS COMS) /SETSEPR (RDTBL LST FLG) SET/LABEL/SIZE (STREAM LAB SCALE) + XCL::UNDOABLY-SETF-MACRO-FUNCTION (XCL::X) COMPILER::FRAME-ANNOTATE-PROGN (COMPILER::SELF COMPILER::STMT +) SCAN.LESSP (SCAN1 SCAN2) COMPILER::META-EVAL-THROW (COMPILER::NODE A0675 A0674 A0677 A0676 COMPILER:CONTEXT +) \FM.UPDATEGROUPEXTENT (GROUPS ID SUBID ITEM) \POSTSCRIPT.PRINTSLUG (STREAM IMAGEDATA CHAR) +COMPILEDFETCHFIELD (X DESCRIPTOR FT OFF) \LFCloseDirectory (vol) \FM.READUSERDATA (DESCRIPTION X ITEM) + SEDIT::SELECT-NEXT-GAP (SEDIT::INDEX SEDIT::CONTEXT) ALLPATHS (LST PR) DRAWDASHEDLINE (WIDTH X2 Y2 +ADJACENT OPPOSITE DASHING OPERATION STREAM COLOR) GENERATEFN (FN) OPT.UBDEL (CD) PRETTYPRINT (FNS) +CANONICAL.CH.NAME (NAME) DRAWLINE (X1 Y1 X2 Y2 WIDTH OPERATION COLOR DASHING) PRETTYPRINT3 (FN) +COMPILEDREPLACEFIELD (X DESCRIPTOR FT OFFSET NEWVALUE) RECORDCHAIN (LST) REFLECT/GRAPH/HORIZONTALLY ( +GRAPH W) MOVETO (X Y) AU-REVOIR (VAL##) MSFINDP (SUB) LAYOUTFOREST (NODELST ROOTIDS FORMAT BOXING FONT + MOTHERD PERSONALD) SEND.FILE.TO.PRINTER (STRM PRINTOPTIONS) SI::PRINT-TRACED-CL-ARGLIST ( +SI::SMALL-INDENT) SQRT (N X) \CHARWIDTH.HDCPYDISPLAY (FONTA0700 CHARCODE STREAM) CL::SXHASH-PATHNAME ( +PATHNAME) \FM.TRANSPOSEVERT (WINDOW NEWHEIGHT OLDHEIGHT) APPENDIDENTIFIER.IP (STREAM STRING) +BYTESININT.IP (N) \FM.MAKEBITMAP (ID WIDTH HEIGHT BOXOFFSET BITMAP LABEL FONT STREAM) +\DSPRIGHTMARGIN.HDCPYDISPLAY (DISPLAYSTREAM) DSPBACKCOLOR (COLOR) OPENIPSTREAM (IPFILE OPTIONS +MARGINREGION FILE) FIELDLOOK (FIELDNAME) CL::%%SXHASH (CL::OBJECT) MB.SELFN (FN OBJ TSEL W) +MB.SETIMAGE (OBJ MBTEXT MBFONT) XCL::SETF-GET-PROCESS-PROFILE (XCL::PROCESS) /SETD (A N V) +TEDIT.HARDCOPY.PAGEHEADING (TEXTSTREAM IMAGESTREAM PARALOOKS TEXTOBJ HEADINGTYPE CHNO FORMATTINGSTATE) + COMPILEDNCREATE (X) DSPBOTTOMMARGIN (YPOSITION) COMPILER::META-EVAL-TAGBODY (COMPILER::NODE COMPILER:CONTEXT +) UNIX-READ (STREAM CH) \TEDIT.HCPYLOOKS.UPDATE (TEXTOBJ BASEA0795 N ARR VAL BASEA0796 BASEA0797 +BASEA0798 BASEA0799 BASEA0800 BASEA0801 BASEA0802 BASEA0803) READ-AFM-FILE (FILE PSCFONT IFILE +BOLDNESS ITALICNESS A W) XCL::WALK-PROG (XCL::FORM XCL::CONTEXT) DSPCOLOR (COLOR) \UFS.CREATE.DEVICE ( +NAME EVENTFN) \FM.TRANSPOSEHORZ (WINDOW NEWWIDTH OLDWIDTH) \TEDIT.PARSE.CHARLOOKS.LIST (TEXTOBJ) +\LFDeleteFile (fileName stream dev) \FM.GETBITMAPS (ID ITEMREGION FONT WIDTH HEIGHT HIGHLIGHTREGION +BOXSHADE BOX) COMPILER::FRAME-ANNOTATE-MV-CALL (COMPILER::SELF COMPILER::ARG) SEDIT::REVIVE-NODE ( +SEDIT::SUBNODE) PRETTYCOM (PRTTYX ATM) RECLOOK1 (DECS DEC AVOIDDECS RECNAME) +\UNVISIBLE.FLUSH.OPEN.STREAMS (FDEV) ADIEU (VAL##) SEDIT:RESET-COMMANDS (SEDIT::COMMANDS) FW-OPENP ( +FNAME L2) CH.ADD.MEMBER (DONTCHECK PROPERTY) LISPXREPRINT (X) \DSPFONT.HDCPYDISPLAY (HDCPYDSTREAM +CSINFO) MINIMUMWINDOWSIZE (WINDOW) EQLENGTH (N) UNIX-BACKFILEPTR (STREAM) PARSE.NSNAME (%#PARTS) +\UNVISIBLE.PAGED.REVALIDATEFILELST (DEVICE FN) \DSKEventFn (Event Dev VAL) SUBPAIR (EXPR A D) +SEDIT::AWAKE-COMMAND-PROCESS (SEDIT::CONTEXT) OPT.LBMERGE (FROM REFS X) COMPILER::META-EVAL-SETQ ( +COMPILER::NODE A0673 A0672 COMPILER:CONTEXT) FW-CLOSE-OLD-OFD-WINDOWS (OFD) MB.DISPLAY (STREAM OBJ X +OBJBOX FONT TEXT) PRETTYDEF1 (X) FW-CLOSEFN (W) \TEDIT.PARSE.PARALOOKS.LIST (SPEC) /SETBRK (RDTBL LST +FLG) TEDIT.SKIP.SPECIALCOND (TEXTSTREAM IMAGESTREAM PARALOOKS HEADINGTYPE CHNO) FILEFNSLST (FILE) +\UFSEventFn (Event Dev VAL) SET/LAYOUT/POSITION (NODE POS) \TEDIT.GET.SINGLE.PARALOOKS (FILE N WIDTH +FILEPOS LOOKSLEN TEXTOBJ) DSPFONT (FONT) FILEPKG.CHANGEDFNS (CHANGES) FILECHANGES (FCEXPR) +SEDIT::MAP-COMMENT-INDEX (SEDIT::NODE SEDIT::START SEDIT::OPEN-NODE) \UFSDirectoryNameP (DIRSPEC DEV +#:G105) \VFMSaveBuffer (notAll) TRANSLATE.LOCF (ARGS) COMPILER::FRAME-ANNOTATE-MV-PROG1 (COMPILER::SELF + COMPILER::STMT) XCL::SAVE-CURRENT-EXEC-PROFILE (XCL::PROFILE) PSCFONT.WRITEFONT (FONTFILENAME PF S +STREAM W) CL:MACROEXPAND-1 (CL::ENV) DO.DELETE.LINES (%#LINES TOTALHEIGHT BOTTOM WIDTH) DSPLEFTMARGIN +(XPOSITION) U-CASECODE (CHAR) MKPROGN (X) UNIQLIST (LIST PT) PFI.HANDLE.PUTPROPS (EXPR NAME PROP) +\UFSGenerateFiles (FDEV #:G108) RECFIELDLOOK (RECLST Y X FIELD) APPENDBYTE.IP (STREAM BYTE) +\UFSSetFileInfo (DEVICE #:G107 STREAM ATTRIBUTE ERRNO) \UFSOpenFile (FDEV #:G100 ACCESS RECOG FILE +FULLNAME REC ACC ERRNO OTHERINFO) \TEDIT.UPDATE.SHOWSEL (TEXTOBJ SHADEHEIGHT SHADE) PRETTYDEFCOMS ( +PRTTYCOMS L) CH.NAME.TO.STRING (NSNAME FULLNAMEFLG) DSPLINEFEED (DELTAY) PRINTDATE (OUTSTREAM DAT) +TEDIT.BUILD.PCTB (N WIDTH TEXTSTREAM CHARLOOKSLIST PARALOOKSLIST) TRYNEXT (PLST## VAL## ENDFORM##) +\UFSGetFileName (FILENAME RECOG DEV) \UFSWritePages (stream ESIZE CSIZE buffers streamFirstPage fileID + ERRNO) D-ASSEM::EMIT-BYTE (BYTE) PRINTDATE1 (OUTSTREAM DAT TERMINATING.STRING) CH.ADD.GROUP.PROPERTY +(DONTCHECK X PROPERTY DATASTREAM) XCL::WALK-PROG* (XCL::FORM XCL::CONTEXT) DSPOPERATION (OPERATION) +PRETTYDEF0 (MADEFILE) \10MB.LOADINPUTQ (NDB) FILEPKG.MERGECHANGES (C2 C1) \UFSTruncateFile (needSize +curEof FILEPTR ERRNO DT) HARDCOPYSTREAMTYPE (IMAGESTREAM) DSPRIGHTMARGIN (XPOSITION) D-ASSEM::FIXUP-NTENTRY + (CL:SYMBOL D-ASSEM::BASE D-ASSEM::OFFSET D-ASSEM::HIBYTE D-ASSEM::WORD) SCALE-EXPONENT (X) +PFI.HANDLE.PUTDEF (EXPR) OPT.JUMPTHRU (OPT.DEFREFS TAG DEF LEVEL) \UFSDeleteFile (DEV #:G104 FILENAME +ERRNO) SEDIT:REPLACE-SELECTION (SEDIT::CONTEXT SEDIT::SELECTION SEDIT::SELECTION-TYPE SEDIT::S +CL:STRUCTURE SEDIT::POINT) CH.ISMEMBER (PROPERTY NAME) TTDELETEWORD (N TAIL) DSPTOPMARGIN (YPOSITION) +SPECVARP (X FN) COMPILER::META-EVAL-RETURN (COMPILER::NODE A0671 A0670 COMPILER:CONTEXT) +D-ASSEM::TYPE-NAME-FROM-SIZE (D-ASSEM::LEN) \FM.INITCORNERSFN (WINDOW LEFT BOTTOM) \LFRenameFile ( +OLD-DEVICE NEW-DEVICE dir FILESPEC oldPtr) \FM.GETREGIONS (ID FONT HL HIGHLIGHTWIDTH HIGHLIGHTHEIGHT +MAXWIDTH MAXHEIGHT LEFT BOTTOM) \UFSCloseFile (DEVICE ERRNO) SEDIT::REPLACE-ROOT (SEDIT::CONTEXT +SEDIT::ROOT SEDIT::SUBNODES) TRACKW (DX DY) DSPSCALE (SCALE) \UFSRenameFile (OLD-DEVICE NEW-DEVICE +OLD-NAME NEW-NAME NEWUNIXNAME ERRNO) TTYINENTRYFN (WINDOW) GETSYNTAX (TABLE VAL KEY DEF C) +PSCFONTFROMCACHE.SPELLFILE (FAMILY SIZE FACE) /SETA (A N V) \GTREADTABLE1 (X) MAKEACCESS1 (TYPE +RECTYPE NEWVAL BODY) \TEDIT.CARETLOOKS.VERIFY (TEXTOBJ NEWLOOKS) \UFSeol (RECOG FILENAME) EMPRESS ( +FILE HOST PRINTOPTIONS) INVERTED/SHADE/FOR/GRAPHER (NB) /PUTDQ (X Y) D-ASSEM::COPY-LAP-FN (D-ASSEM::FN +) \DOFORMATTING.HARDCOPY (FMTSPEC QUAD SPACELEFT TEXTOBJ BASEA0787 CHLIST BASEA0788 BASEA0789 +BASEA0790 WLIST BASEA0791 BASEA0792 BASEA0793 N ARR VAL BASEA0794) \TERMCLASSTOCODE (CLASS) \UFSError +(ERRNO NO) UNECCSPEC (VAR FN) \FM.FILLWINDOW (WINDOW REGION SHADE) \READCLASSTOCODE (CLASS) +\LFTruncateFile (needPages curPages curEof FILEPTR) \FM.CREATEITEM (ID FONTDEFAULT FONT REGIONS TYPE +LABEL GROUPID BITMAPS ITEM) DSPXPOSITION (XPOSITION) PSCFONTFROMCACHE.COERCEFILE (EXPANSION FAMILY +SIZE WEIGHT SLOPE ROTATION DEVICE) \UFSGetFileInfo (DEVICE #:G106 STREAM ATTRIBUTE ERRNO) +\GETREADSYNTAX (C TABLEA0392 TBL B E) OPT.JUMPOPT (X) SEDIT::CHARCODE (CL:CHAR) \UFS.ADD.HOST.FIELD ( +DEV) \PFRoomForFile (groupPtr filePtr vol) SEDIT:GET-SELECTION (SEDIT::CONTEXT SEDIT::SELECTION TYPE +STRING SEDIT::END SEDIT::CHARS) \GETTERMSYNTAX (C TABLEA0389 TBL) PRETTYVAR1 (VAR DEF LASTCOL) +DSPYPOSITION (YPOSITION) \UFSReadPages (buffers streamFirstPage stream fileID) MAKEDEFLIST (X PROP) +OPT.XVARSCAN1 (CD A) D-ASSEM::REF-VAR (D-ASSEM::VAR) %%SORT-SUBLIST (START END MID PRED) GETDEFCOM (X +Y) DWIMIFY1? (FORM) FIX-FORM (INPUT) \UFS.FULLNAME (DEV) \UFS.OPENP (DEV COMPAREFN UNIXNAME) +COMPILER::FRAME-ANNOTATE-LAMBDA (COMPILER::SELF COMPILER::OPT-VAR COMPILER::KEY-VAR COMPILER::*REFERENCES* + COMPILER::REFERENCE COMPILER::REQUESTS) D-ASSEM::EMIT-BYTE-LIST (D-ASSEM::L BYTE) DSPROTATE (ROTATION +) CHAT.SETDISPLAYTYPE (INSTREAM CODE NAME) \FM.RESETCLIPPINGREGION (WINDOW) BLOCK%: (X) \LFGetFileInfo + (attribute infoPage) \FM.CHECKPROPS (PROPS PROP) D-ASSEM::FETCH-HUNK (D-ASSEM::LEVEL D-ASSEM::MAP-ENTRY +) SEDIT::REPLACE-NODE (SEDIT::CONTEXT SEDIT::POINT SEDIT::NODE SEDIT::NEW-NODE) MKACCESSFN (TYPE FIELD + ARGS) D-ASSEM::COPY-LAP-CODE (D-ASSEM::CODE) POSSIBILITIES (FORM##) \SHOWSEL.HILIGHT (DS X0 SEL XLIM +SHADEHEIGHT SHADE LINES TEXTOBJ) COMPILER::META-EVAL-PROGV (COMPILER::NODE A0665 A0664 A0667 A0666 +A0669 COMPILER:CONTEXT A0668) \UFS.REMOVE.HOST.FIELD (FILE PARSE-LIST DEV #:G111) /PRINTLEVEL (RESULT +CARVAL CDRVAL) PRETTYCOM1 (PRTYCOM X) \RESHOWBORDER1 (NEWBORDER OLDBORDER REGION OLDSAVE) D-ASSEM::MAX-ARG + (D-ASSEM::OPCODE D-ASSEM::RANGE) WINDOWDELPROP (WINDOW PROP CURRENT ITEMTODELETE) ADDNAKEDCHAR (CHAR) + ACCEPT-UNIX-SOCKET-STREAM (SOCKSTREAM NEWSTREAM) RELDSPYOFFSET (DY DISPLAYSTREAM) D-ASSEM::CHOOSE-OP +(D-ASSEM::ARG D-ASSEM::CHOICES) D-ASSEM::PUSH-INTEGER (D-ASSEM::N) FORMAT-ERROR (COMPLAINT FORMAT-ARGS +) PFI.PRINT.LAMBDA (DEF *PFI-ITEM*) COMPILER::FRAME-ANNOTATE-LABELS (COMPILER::SELF COMPILER::PAIR) +COMPILER::META-EVAL-OPCODES (COMPILER::NODE COMPILER:CONTEXT) PRINTDEF1 (EXPR) +SEDIT::RELINEARIZE-WHERE-NECESSARY (SEDIT::CONTEXT) \LFGetFileName (FileName Recog) +\FM.CHECKDESCRIPTION (ID TYPE PROP) TEDIT.PAGEFORMAT (STREAM FORMAT) SEDIT::RECOMPUTE-WIDTH (SEDIT::STARTX +) OPT.XVARSCAN (X) XYSECTLSEG (X0 DX Y0 DY U0 DU V0 DV) NECCSPEC (VAR BINDER) PRINTARRAY-TO-LIST (V) +PSCFONT.COERCEFILE (EXPANSION FAMILY SIZE WEIGHT SLOPE ROTATION DEVICE) MENUTITLEFONT (MENU) +READARRAY-FROM-LIST (SIZE TYPE ORIG A) RESHOWBORDER (BORDER WINDOW) COMPILER::META-EVAL-PROGN ( +COMPILER:CONTEXT A0659 A0661 A0663 A0662) NESTED.SUBMENU (MENU SUBITEMS SUBMENULST) DSPSCALE2 (Sx Sy) +CREATE-UNIX-SOCKET-STREAM (STR) SEDIT:ADD-COMMAND (SEDIT::FORM SEDIT::SCROLL? SEDIT::KEY-CODE +SEDIT::COMMAND-NAME) RELDSPXOFFSET (DX DISPLAYSTREAM) COMPILER::GENCODE-CALL (COMPILER::NODE COMPILER::ARGS + COMPILER:CONTEXT COMPILER::FN COMPILER::VAR COMPILER::NUM-ARGS COMPILER::FN-VAR COMPILER::PARAMETER-NAME + COMPILER::*CODE* COMPILER::INNER-CODE COMPILER::LV) PFI.HANDLE.DEFINEQ (EXPR DEF) +\TEDIT.GET.INSERT.CHARLOOKS (TEXTOBJ SEL CH# PCTB) \INSPECT.DATATYPE.RAW.FETCH (DESCRS FIELD INSTANCE) + \FM.UNSCROLLWINDOW (WINDOW) \SETTERMSYNTAX (CHAR TABLE CODE TBL C TABLEA0391 CLASS) +SEDIT::ATOM-CHAR-ESCAPED (CL:CHAR TABLEA0702) MB.BUTTONEVENTINFN (OBJ RELX RELY OBJBOX) +\UFS.DIRECTORY.NAME (DIRSTRING NAMEAREA DEV #:G102 #:G103) D-ASSEM::DCODE-FROM-DLAMBDA (D-ASSEM::DLAMBDA + D-ASSEM::LEVEL D-ASSEM::*DCODE*) /MOVD (TO FROM NEWFLG) \SETREADSYNTAX (C TABLEA0393 TBL OLDSYNTAX +CHAR TABLE CODE) MAKEACCESS (TYPE BODY NEWVAL) DSPTRANSLATE (Tx Ty) SYNTAXP (CLASS CODE TABLEA0378 +TABLE TABLEA0379 TABLEA0381 TABLEA0383 TABLEA0385 TABLEA0387) XCL::GET-PROCESS-PROFILE (XCL::PROCESS) +\UFSDeleteFile-C (FDEV) \COPYSYNTAX (A) UNMAKEHARDCOPYSTREAM (DISPLAYSTREAM) CHECK.MARGIN (LINE BUF) +SHOWDEF (NAME TYPE) BREAK (X) \MAPCHARTABLE (FN CHARTBL) SEDIT::BACKSPACE-QUOTE (SEDIT::CONTEXT +SEDIT::ATOM-NODE) D-ASSEM::DETERMINE-LOCAL-FN-LEXICAL-LEVEL (D-ASSEM::FN D-ASSEM::DLAMBDA D-ASSEM::ID +D-ASSEM::DVAR D-ASSEM::PENDING A0808) DWIMIFY0 (X SIDES) XCL::EXEC-TITLE-FUNCTION (XCL::WINDOW EXEC-ID +) D-ASSEM::DIGEST-CODE (D-ASSEM::LAP-CODE D-ASSEM::TAIL) COMPILER::FRAME-ANNOTATE-IF (COMPILER::SELF) +\UFStoOtherRenameMess (NEW-DEVICE OLD-NAME EXTENSION NEW-NAME) MSCHECKVARS1 (FN X) FINDRECDECL (DATUM) + PPT (X) \NSRANDOM.HANDLE.ERROR (ERROR STREAM DEVICE SESSION PROCEDURE) \UFSRenameFile-C (FDEV) +XCL::WALK-LET* (XCL::FORM XCL::CONTEXT) COMPILER::TEST-META-EVAL (COMPILER::FN COMPILER::TREE) +\TEDIT.WINDOW.SETUP (WINDOW TEXTSTREAM PROPS ICONFN) DRAWBETWEEN (PT1 PT2 WIDTH OPERATION COLOR +DASHING) \VFMDeletePageGroup (filePtr vol interval fileSize previousKey) \QUEUE.INPUT.IOCB (NDB LENGTH + BUFFER) DELETECONTROL (TTBL TYPE) \INVERTITEM (COLUMN ROW MENU DSP) READ-UNICODE-MAPPING-FILENAMES ( +FILESPEC) D-ASSEM::DIGEST-FUNCTION (D-ASSEM::DLAMBDA D-ASSEM::FN-PAIR D-ASSEM::CLOSED-OVER D-ASSEM::DVAR + D-ASSEM::TAIL D-ASSEM::OPT-VAR) POSITIONP (X) /MAPCONC (MAPFN1) \LITCHECK (X) \SHAPEW2 (REGION +OLDREGION WBORDER OLDCLIPREG) D-ASSEM::STORE-DIGEST-INFO (D-ASSEM::FREE-VAR-ALIST D-ASSEM::FREE-VAR-COUNT + D-ASSEM::DVAR) GLOBALVARP (X) \STRINGOUT (STRING STREAM) D-ASSEM::DVAR-FROM-LAP-VAR (D-ASSEM::LAP-VAR +) SUPERPRINTGETPROP (ATM PROP) FIELDNAMESIN (DECS X) D-ASSEM::INTERN-TAG (D-ASSEM::ID) GETCFILE (FILES +) LAYOUT/POSITION (NODE) PRINTFILEPROP (PRINTFILETYPE PROP) REMOVEITEM (X LST Y) D-ASSEM::EASY-ENTRY-P + (D-ASSEM::DLAMBDA) MAKEHARDCOPYSTREAM (IMAGETYPE) DRAWCIRCLE (RADIUS CENTERX CENTERY BRUSH DASHING) +TYPESOF (SOURCE POSSIBLETYPES IMPOSSIBLETYPES NAME) \FM.RESHAPEFN (WINDOW OLDREGION OLDWIDTH MINWIDTH +NEWWIDTH OLDHEIGHT MINHEIGHT NEWHEIGHT) PRINTARRAY (V) SEDIT::PUNT-SET-POINT (SEDIT::POINT SEDIT::CONTEXT + SEDIT::NODE SEDIT::WHICH-END SEDIT::COMPUTE-LOCATION?) \FM.PUSHGROUP (GROUPS DIR ITEM AMOUNT) +INSURE.BRUSH (STREAM) SEDIT::PROPAGATE-WIDTH-CHANGE (SEDIT::NODE SEDIT::WIDTH SEDIT::OLD-WIDTH +SEDIT::CONTEXT) SHAPEW1 (REGION OLDREGION WBORDER OLDCLIPREG) COMPILER::META-EVAL-MV-PROG1 (COMPILER::NODE + COMPILER::STMTS COMPILER:CONTEXT A0655 A0657) EQP (X Y) PRINTERROR (LL) \LFReadPages (stream +streamFirstPage buffers file) \IDLE.PROMPT.WATCHER (TIMEOUT PROC) EXTENDPASTVERTBOUNDARIES (VIEW +EXTENT) XCL::EXEC-SHRINKFN (XCL::WINDOW XCL::PROCESS) D-ASSEM::INTERN-VAR (D-ASSEM::VAR) +\UFS.HANDLE.RELATIVEDIRECTORY (DEV #:G112) XCL::WALK-LET (XCL::FORM XCL::CONTEXT) +D-ASSEM::GENERATE-EASY-ENTRY (D-ASSEM::DLAMBDA D-ASSEM::ARG-TYPE) UTOXCODE (UNICODE) +XCL::SETUP-EXEC-WINDOW (XCL::WINDOW) D-ASSEM::GENERATE-HARD-ENTRY (D-ASSEM::DLAMBDA D-ASSEM::NUM-REQUIRED + D-ASSEM::NUM-OPTIONAL) GETDELETECONTROL (TTBL TYPE) BUFTAILP (TAIL END) DRAWARC (CENTERX CENTERY +RADIUS STARTANGLE NDEGREES BRUSH DASHING) CHAT.SET.EMULATOR (TYPEOUTPROC WINDOW OLDTITLE) +\FM.REDISPLAYMENU (WINDOW ITEM) ECHOCHAR (CHARCODE X TTBL SA CHAR TABLE CODE) \LFSetFileInfo ( +attribute value) LISPXUSE1 (VARS ARGS EXPRS) D-ASSEM::GATHER-ROOTS (D-ASSEM::CODE D-ASSEM::TAG-LIST) +READARRAY (SIZE TYPE ORIG A) ACCESSDEF4 (LST TRAN SUBDEC) PFI.PRINT.LAMBDA.BODY (DEF FNSLST) +INSPECTABLEFIELDNAMES (DECL) FINDSYSRECDECL (DATUM) SEDIT::DECOMPOSE-PSEUDO-SELECTION (SEDIT::PSEL) +\TEDIT.FIXSELS (TEXTOBJ EXCEPT) MARGINBAR (W UNIT UPDATE RIGHTLIM OLDOP TABS TAB) NSOCKETEVENT (NSOC) +D-ASSEM::GENERATE-ARG-CHECK (D-ASSEM::DLAMBDA D-ASSEM::MIN-ARGS) \UFSGetFileType (FILENAME) +\HDCPYDSPPRINTCHAR (CHARCODE DD SPACEWIDTH) \POSITION.MENU.IMAGE (MENU) SUBDECLARATIONS (TRAN TEM) +D-ASSEM::STACK-ANALYZE-CODE (D-ASSEM::INIT-DEPTH D-ASSEM::INIT-BINDING-DEPTH) COMPILE.FILECHECK (FILE) + COMPILER::FRAME-ANNOTATE-CATCH (COMPILER::*REFERENCES* COMPILER::SELF COMPILER::REQUESTOR COMPILER::REFERENCE +) \FM.JUSTIFYGROUPS (GROUPS DAUGHTER) SEDIT::SHIFT-STRING (CL:LENGTH) SI::FINISH-UNBREAKING (SI::ENTRY +) D-ASSEM::INSTALL-LOCAL (D-ASSEM::CLOSED-OVER D-ASSEM::DVAR) PRETTYPRINT2 (FN) D-ASSEM::ASSEMBLE ( +D-ASSEM::LAP-CODE) ECHOCONTROL (CHAR MODE TTBL) D-ASSEM::GATHER-TAGS (D-ASSEM::TAGS-FOUND) DRAWCURVE ( +BRUSH KNOTS CLOSED DASHING) \FM.OPENFN (WINDOW) \LFWritePages (streamFirstPage buffers file) +\FM.JUSTIFYITEMS (GROUPS) BRUSHP (BRUSH?) NOSUCHATOM (ATM) SEDIT::PARSE--UNKNOWN (CL:STRUCTURE +SEDIT::CONTEXT) GETECHOMODE (TTBL) COMPILER::META-SUBST-ANY-CALL (COMPILER::NODE) FW-CHANGE-POSITION ( +OLDPOS) \UFSSetFileType (FILENAME EXTENSION) %%SORT-VECTOR (VECTOR PRED LOWER UPPER) GETCONTROL (TTBL) + PUTMENUPROP (PROPERTY VALUE) ADDTOCOM (TYPE COM NAME) /MAPCON (MAPFN1) \TEDIT.HARDCOPY.MODIFYLOOKS ( +PRSTREAM LOOKS STARTX LINE CURX RULEWIDTH STREAMSCALE CURY) GETTERMTABLE (TTBL) RELMOVEW (POS) +D-ASSEM::ASSEMBLE-CODE (D-ASSEM::DEPTH) MSCHECKBLOCKBASIC (BLKNAME BLOCK X) ALISTP (LST) MOVE.BACK.TO +(BUFTAIL) INTERSECT/REGIONP/LBWH (HOW REG B H L W) SEDIT::PARSE-NEW (SEDIT::EXPRESSION) DELFROMCOM1 ( +NAME FLG) COMPILER::META-EVAL-LITERAL (COMPILER::NODE COMPILER:CONTEXT) DRAWELLIPSE (CENTERX CENTERY +SEMIMINORRADIUS SEMIMAJORRADIUS ORIENTATION BRUSH DASHING) UNIX-STREAM-CLOSE (STREAM) GETRAISE (TTBL) +D-ASSEM::REDUCE-UNCERTAINTY (D-ASSEM::JUMP-LIST D-ASSEM::CUMULATIVE-UNCERTAINTY +D-ASSEM::DECREASE-IN-UNCERTAINTY) CLOSE.PROCESS.MENU (WINDOW) \IDLE.ISMEMBER (GROUP NAME) +RESETTERMTABLE (FROM TTBL FR) DELFROMCOM (COM NAME TYPE) D-ASSEM::GENERATE-KEY (D-ASSEM::NUM-REQUIRED +D-ASSEM::NUM-OPTIONAL D-ASSEM::DLAMBDA) D-ASSEM::STACK-ANALYZE (D-ASSEM::CODE D-ASSEM::*ENDING-DEPTH*) + \UFS.REGISTER.GFS (GENFILESTATE) SEDIT::PARSE--GAP (CL:STRUCTURE SEDIT::CONTEXT SEDIT::WIDTH) +ACCESSDEF (DEC) EXTENDPASTHORIZBOUNDARIES (VIEW EXTENT) COMPILER::META-SUBST-UNWIND-PROTECT (COMPILER::NODE + A0699 A0698) COMPILER::META-EVAL-MV-CALL (COMPILER::NODE A0653 A0652 COMPILER:CONTEXT) SETTERMTABLE ( +TBL) UNIX-STREAM-OUT (STREAM CHAR) \CH.PRINT.BLURB (MSG ORGANIZATION) DRAWPOLYGON (POINTS CLOSED BRUSH + DASHING) TIMEALL (TIMEFORM DATATYPES) \TERMCODETOCLASS (CODE) \ONSCREENCLIPPINGREGION (WIN) +\UFS.NEXTFILEFN (FINFOID DEV DIR FILEGROUP) MSCHECKBOUNDFREE (BOUNDFREE V USERS SEEN BINDERS U LF) +\10MB.INPUT.INTERRUPT (NDB LENGTH) GETXIP (NSOC NSOCQ) \ORIGTERMTABLE (TBL) IN/SCROLL/BAR? (WINDOW X Y +) OPT.POSTOPT (TAG) DRAWPOINT (X Y BRUSH OPERATION) COMPILER::META-SUBST-VAR-REF (COMPILER::NODE +COMPILER::NEW-CODE) D-ASSEM::COMPUTE-JUMP-SIZE (D-ASSEM::KIND D-ASSEM::PAIRS D-ASSEM::DISTANCE) +\VAMFreePageGroup (groupPtr group filePtr \DFSVAMjunkPage RUNLENGTH \DFSVAMpage) %%STABLE-SORT-VECTOR +(VECTOR PRED LENGTH) SEDIT::PSEUDO-SELECTION-FROM-SELECTION (SEDIT::SEL) SEDIT::BUILD-PRELINEARIZED-NODE + (CL:STRUCTURE SEDIT::NODE-TYPE STRING SEDIT::PRIN-2? SEDIT::FONT) XTOUCODE (XCCSCODE) +CL::EQLHASHBITSFN-UFN (ARG-PTR) /LISTPUT1 (LST PROP VAL) COMPILER::FRAME-ANNOTATE-CALL (COMPILER::SELF + COMPILER::ARG) COMPILER::FRAME-ANNOTATE-BLOCK (COMPILER::SELF COMPILER::*REFERENCES* COMPILER::REQUESTOR + COMPILER::REFERENCE) D-ASSEM::START-PC-FROM-NT-COUNT-LOCAL (D-ASSEM::NT-COUNT D-ASSEM::NT-SIZE +D-ASSEM::NT-WORDS) MSCHECKFNINBLOCK (FN FN2 BLOCKS BLOCK) WAKE.MY.PROCESS (WINDOW) \FM.LAYOUTGRID ( +PROP MOTHER GRIDTAIL AMOUNT ITEMDESC) UNIX-STREAM-EOFP-NEW (STREAM) XCL::EXEC-CLOSEFN (XCL::WINDOW +XCL::PROCESS) \UFS.FILEINFOFN (GENFILESTATE ATTRIBUTE) FILLPOLYGON (POINTS TEXTURE OPERATION) +XCL::WALK-DO* (XCL::FORM XCL::CONTEXT) COMPILER::META-SUBST-THROW (COMPILER::NODE A0697 A0696) +SEDIT::SELECT-NODE-SEGMENT (SEDIT::CONTEXT SEDIT::NODE SEDIT::START SEDIT::END SEDIT::POINT) +SI::UNBREAK-FROM-RESTORE-CALLS (SI::ENTRY SI::FROM SI::FN SI::TO) ACCESSFN (NAME&FIELDS) +SI::PRINT-TRACED-ARGUMENT (SI::INDENT SI::NAME SI::VALUE) ADDNEWCOM (NAME TYPE LISTNAME FILE COMSNAME) + INSPECT/ALIST (ALST X WHERE) D-ASSEM::START-PC-FROM-NT-COUNT (D-ASSEM::NT-COUNT D-ASSEM::NT-SIZE +D-ASSEM::NT-WORDS) CL::SXHASH-UFN (ARG-PTR) XCL::UNDOHOOK (XCL::FORM XCL::ENV) \IDLE.AUTHENTICATE ( +TYPE OUTPUT NAME PWD IFALLDOWN) PRETTYDEFMACROS (ARGS X) FORWARD.DELETE.TO (BUFTAIL DELETEDWIDTH) +PFI.HANDLE.RPAQQ (EXPR NAME *MAINFILECOMS*) TEDIT.DELETELINE (LINE TEXTOBJ WINDOW) D-ASSEM::CONVERT-TO-BINARY + (D-ASSEM::BYTE-LIST D-ASSEM::CODELEN D-ASSEM::CODE-ARRAY D-ASSEM::PUSH-TAG-FIXUPS) DRAWTO (X Y WIDTH +OPERATION COLOR DASHING) PRINCOPY (X) \TEDIT.LINE.LIST (TEXTOBJ WINDOW) ALLFIELDS (TRAN) +COMPILER::META-EVAL-LAMBDA (COMPILER::NODE A0651 A0650 COMPILER:CONTEXT) RELEASE.XIP (XIP) +COMPILER::FRAME-ANNOTATE-GO (COMPILER::SELF) COPYREADTABLE (RDTBL) CONVERT.FILE.TO.TYPE.FOR.PRINTER ( +FILE PRINTERTYPE SCRATCH PRINTOPTIONS HEADING) \UFS.VALID.PROPP (DESIREDPROPS PROP) +LATTICE/BREAK/CYCLES (STACK) FILLCIRCLE (CENTERX CENTERY RADIUS TEXTURE) \BLTSHADE.GENERICPRINTER ( +DESTINATIONLEFT DESTINATIONBOTTOM WIDTH HEIGHT STREAM SHADESCALE TEXTURE OPERATION) COMP.UNBOX (TYPE) +INTERPRET/MARK/FORMAT (FORMAT) \LFOpenFile (RECOG ACCESS) \10MB.STARTDRIVER (MYNSNUMBER) +D-ASSEM::PERFORM-LOCAL-FN-FIXUPS (D-ASSEM:DCODE) D-ASSEM::SPLICE-IN-JUMPS (D-ASSEM::JUMP-LIST D-ASSEM::JUMP + D-ASSEM::TAG D-ASSEM::KIND D-ASSEM::DISTANCE) SI::PRINT-TRACE-EXIT-INFO (SI::TRACED-FN SI::FN-VALUES +SI::VALUE) /LISTPUT (PROP VAL) FIND-READTABLE (NAME) PPROMPT3 (ITEM) \TEDIT.APPLY.STYLES (LOOKS +TEXTOBJ STYLE-SHEET PC) \10MBWATCHER (MESSAGE-BUFFER NDB) \TEDIT.FIND.FIRST.LINE (TEXTOBJ TEXTSTREAM +WHEIGHT) CREATESCROLLINGW (TITLE BORDER) FW-CHANGE-JUSTIFICATION (OLDJUST?) IN-READTABLE (RDTBL) +COMP.UBFLOAT2 (OP) HARDCOPYGRAPH (IMAGETYPE PSTREAM GRAPH/WINDOW GRAPH GRAPH-REGION +SCREENPOINTS-PER-INCH ORIGINAL-CLIPREGION PSCALE RIGHT-MARGIN UPPER-MARGIN GRAPH-WIDTH PAGE-WIDTH +GRAPH-HEIGHT PAGE-HEIGHT TRANS CLIPREGION NUMBER-OF-Y-PAGES NUMBER-OF-X-PAGES LEFT-CENTERING-OFFSET +GRAPH-LEFT GRAPH-BOTTOM SCALED-GRAPH N PTRANS) ESCAPE (FLG) D-ASSEM::RESOLVE-JUMPS (D-ASSEM::JUMP-LIST + D-ASSEM::START-PC) \IDLE.IS.PREVIOUS (PASSWORDADDR PWD NULLOK) GETBRK (RDTBL) COMPILER::META-EVAL-IF +(COMPILER::NODE A0643 A0642 A0645 COMPILER:CONTEXT A0644 A0647 A0646) GETREADTABLE (RDTBL) +\LFGenerateFiles (PATTERN DESIREDPROPS) \FM.LAYOUTCOLUMN (PROP MOTHER ITEMDESC GROUPBOTTOM) +SEDIT::COMPOSE-PSEUDO-SELECTION (SEDIT::NODE) SEDIT::PARSE (SEDIT::PARSER SEDIT::ENVIRONMENT +CL:STRUCTURE SEDIT::DATA SEDIT::REUSE-NODES) GETSEPR (RDTBL) \CREATEW1 (BORDERSIZE REGION SCREEN TITLE + PROPS OLDWINDOW) FIND.MATCHING.QUOTE (END CHAR TABLE CH) RELDRAWTO (STREAM DX DY STRM WIDTH OPERATION + COLOR DASHING) GETMENUPROP (MENU PROPERTY) ADJUSTOFFSETS (WINDOW YDELTA DSP XDELTA) \FZEROP (X) +SHOWSTACKBLOCKS (ORIG EASP) READMACROS (FLG) SUBFIELDCREATE (X) \UFS.ABORT.CL-DIRECTORY (GFS) +PURGEHISTORY (COM) READTABLEPROP (ARGS) CAN.PRINT.DIRECTLY (FILETYPE PRINTERTYPE) +SI::PRINT-TRACE-ENTRY-INFO (SI::TRACED-FN) GENERATOR (FORM##) \GTREADTABLE (X FLG) +PFI.HANDLE.DEFDEFINER (EXPR) BITMAPIMAGESIZE (STREAM BITMAP DIMENSION) MSCHECKBLOCKS (FL FT) +\LFEventFn (Event) \FM.LAYOUTROW (PROP MOTHER ITEMDESC GROUPLEFT) XCL::WALK-DECLARATIONS (XCL::BODY +XCL::FN XCL::OLD-BODY) COMPILER::META-SUBST-SETQ (COMPILER::NODE A0695 A0694) DETACHWINDOW ( +WINDOWTODETACH MAINWINDOW MAINW WHEREAT) \VAMAllocPageGroup (filePtr \DFSVAMjunkPage \DFSVAMpage) +INSPECT/TOP/LEVEL/LIST (LST WHERE) \UFS.CLEANUP.GFS.TABLE (VAL NOTICETOCP) \UFSMakeUnixFormatName ( +FILE OLDFILE LEN NEWINDEX NEWFILE) UNIX-BACKFILEPTR-NEW (STREAM) COMP.DECLARETYPE (X) \UFS.ADJUST.HOST + (FIELDS) \10MB.OUTPUT.INTERRUPT (NDB) DV (VAR ARGS) INFILEPAIRS (LST LL) \UFSParseNameString (FILE +OLDFILE NEWFILE) COMPILER::META-EVAL-GO (COMPILER::NODE COMPILER:CONTEXT) XCL::UNDOABLY-FMAKUNBOUND ( +CL:SYMBOL) MSDWIMTRAN (EXPR) \UFSParse-Directory (PARSE DEV #:G109 #:G110) MSCHECKBLOCK (BLOCK FNS +BLOCKS SHOULDBESPECVARS LOCALFREEVARS GLOBALVARS) \LFDirectoryNameP (DirSpec) \FM.FORMATEXPLICIT (LEFT + BOTTOM PROPS DESCRIPTION ITEMDESC FONT ROWSPACE COLUMNSPACE ID EXTENT) XCL::WALK-DO (XCL::FORM +XCL::CONTEXT) COMPILER::META-SUBST-TAGBODY (COMPILER::NODE) INSPECT/PLIST (PLST X WHERE) +SHOULD-BE-DWIMIFIED? (LAMBDA-FORM) CONDITIONS::%%RESTART-PRINTER (CONDITIONS:RESTART STREAM CONDITIONS::LEVEL + CONDITIONS::REPORTER) \10MB.BROADCASTP (PACKET) \TEDIT.HARDCOPY.DISPLAYLINE (LINE THISLINE TEXTOBJ +PRSTREAM TEXTLEN REGION BASEA0776 LOOKS LEFTMARGIN STREAMSCALE BASEA0777 CHLIST BASEA0778 BASEA0779 +WLIST X Y BASEA0780 DOTWIDTH BASEA0781 NO ARR) CREATEW1 (BORDERSIZE PROPS OLDWINDOW) +BACKWARD.DELETE.TO (BUF) MIN/BOTTOM (NODES) OPENDISPLAYSTREAM (OPTIONS FILE) COMPILER::META-EVAL-CATCH + (COMPILER::NODE A0639 A0638 A0641 COMPILER:CONTEXT A0640) SCALEDBITBLT (DESTINATION SOURCE SOURCELEFT + SOURCEBOTTOM DESTINATIONLEFT DESTINATIONBOTTOM WIDTH HEIGHT SOURCETYPE OPERATION TEXTURE SCALE) +SHOWSTACKBLOCK1 (PTR GOODFLG STR) \IDLE.OUT (TIMEOUT) SETBRK (LST RDTBL X FLG) MSPRGDWIM (FILEPKGFLG +NOSPELLFLG X FN DEF) MENUDESELECT (ITEM) \DRAWPOINT.GENERIC (X Y BRUSH OPERATION STREAM) +\HANDLE.RAW.PACKET (PACKET TYPE) CH.LIST.ORGANIZATIONS (ORGANIZATIONPATTERN) PRIN2-LONG-STRING (STREAM + ESC STRING RMARG TAIL LMARG HASH SA) \UFS.PARSE.BODY (PARSEDNAME) \FM.FORMATBYGRID (LEFT BOTTOM +DESCRIPTION FONT ROWSPACE COLUMNSPACE ID EXTENT PROPS) SEDIT::LINEARIZE-ROOT (SEDIT::NODE SEDIT::CONTEXT +) SETREADTABLE (RDTBL) COMP.LOOKFORDECLARE (Z) MENUSELECT (ITEM) \DRAWPOLYGON.GENERIC (BRUSH STREAM +COLOR DASHING) DUMPGRAPH (STREAM GRAPH) SETSEPR (LST RDTBL X FLG) INIT/NODES/FOR/LAYOUT (NS ROOTIDS +FONT FORMAT R) \USERFNISDON'T (USERFN) \DRAWCIRCLE.GENERIC (RADIUS CENTERX CENTERY R2RAD BRUSH DASHING + STREAM) \NSRANDOM.READ.SEGMENT (STREAM NEXTRA FIRSTPAGE# EP EO BUFFERS BULKSTREAM) PRINOPEN (TAIL +FILE PAREN) CREATEPOSITION (XCOORD YCOORD) PFI.ESTIMATE.SIZE1 (EXPR) PFI.ESTIMATE.SIZE (EXPR) +\NSRANDOM.PREPARE.CACHE (NPAGES OLDSIZE) DIR (ARGS) CHDIR (PATHNAME) /ECHOMODE (TTBL) +GETFIELDFORCREATE (RNAME DEFAULTS USEUNIVDEFAULT TOPDEFAULTS) MIN/LEFT (NODES) PURGEHISTORY1 (ENTRY) +INFILECOMSMACRO (ATS X PROPS PROP) ExtensionForPrintFileType (TYPE) \STORENSHOSTNUMBER (NSHNM BASE) +PRINSHUT (FILE) \UFSGetFileTypeConfirm (FILENAME) \UFSGetPrintFileType (FILENAME) \SETMACROSYNTAX ( +CLASS C CHAR TABLE CODE) FW-CHANGE-ANCHOR (OLDANCHOR) \VFMInsertPageGroup (filePtr groupPtr vol +interval) \READTABLEP.DEFPRINT (RDTBL STREAM) \UPDATE.PSC (IMAGEDATA STREAM) \TEDIT.CREATE.LINECACHE ( +%#CACHES CACHES CACHE) COMPILER::META-EVAL-CALL (A0637 A0636 COMPILER::FN COMPILER:CONTEXT COMPILER::EFFECTS + COMPILER::VALUE) SETFONT (FILE OLDFONT) PRIN1S (TAIL FILE STR) TEDIT.PUT.PAGEFRAMES (FILE PAGEFRAMES) + PRIN2S (TAIL FILE STR) \NSRANDOM.FETCH.CACHE (STREAM PAGENO) \GetRootDirectoryType (vol) +SET-DEFAULT-HASHMACRO-SETTINGS (RDTBL) COMPILER::META-SUBST-RETURN (COMPILER::NODE A0693 A0692) +\DRAWELLIPSE.GENERIC (COSOR SEMIMAJORRADIUS SINOR SEMIMINORRADIUS ROOT2DIV2 CENTERX CENTERY BRUSH +DASHING STREAM) DOUSERFNS2 (WINDOW ARG1 ARG2 ARG3 USERFN) COS (X XX) PRINDOTP (E FILE DOT MAXPOS) +\NSRANDOM.STREAM.CHANGED (NEWHANDLE LEN) SIN (X XX) XCL::WALK-BINDINGS-1 (XCL::BINDING +XCL::OLD-DECLARATIONS XCL::OLD-LEXICAL-VARIABLES XCL::CONTEXT) INSPECT/AS/FUNCTION (ATM STKP +EDITORARGS) SMASHPAT1 (PATTERN XV) CREATE.PACKET.EXCHANGE.XIP (NSOCKET DESTHOST DESTSOCKET TYPE) +STRING-EQUAL (STRING1 STRING2) CH.RETRIEVE.MEMBERS (STREAM) \COURIER.EXPEDITED.ARGS (ARGTYPES ARGLIST +STREAM PROGRAM) \10MBENCAPSULATE (PDH LENGTH TYPE) SUPERPRINT/WRAPPER (E BODY FILE MACRO TAIL X Y +BRFLG) PRINTLEAF (PUP LENGTH N WIDTH) COMPILER::META-EVAL-BLOCK (COMPILER::NODE COMPILER:CONTEXT A0635 + A0634) \MAIKO.DISPLAYLINE (TEXTOBJ WINDOW LINE HCPYDS OLDCACHE DS TEXTLEN THISLINE BASEA0757 LOOKS +BASEA0758 CHLIST BASEA0759 WLIST BASEA0760 LEADERFONT DOTWIDTH WINDOWDS) READBQUOTECOMMA (FILE CH) +\LFParseFileName (FULLNAME) \FM.FORMATBYCOLUMN (LEFT BOTTOM DESCRIPTION COL FONT ROWSPACE COLUMNSPACE +ID EXTENT COLID HEIGHT PROPS) PRINTVA (X) SEDIT::KILL-NODE (SEDIT::X) MAKEDOTPTAIL (B V) DOUSERFNS ( +WINDOW) \ARBOUT (STREAM W SIZE) LOGIN (HOST FLG DIRECTORY MSG) MAX/RIGHT (NODES) +MAKE-READER-ENVIRONMENT (R FORMAT) IFCEXPRTYPE (COM FN) \TEDIT.PUT.PARALOOKS.LIST (FILE STREAM W +LOOKSLIST LOOKSHASH) XCL::WALK-BINDINGS-2 (XCL::WALKED-BINDINGS XCL::BINDING XCL::WALKED-BINDING +XCL::CONTEXT) COMP.BOX (TYPE) COMPILER::META-SUBST-PROGV (COMPILER::NODE A0691 A0690) \UNIMPIMAGEOP ( +STREAM OP) \PFPutRootDirectoryType (directoryID) UNSAVEDEF (NAME X) \INTERNAL/GETPASSWORD (INFO MSG +DEFAULTNAME) /DELETECONTROL (TYPE) EQUAL-READER-ENVIRONMENT (ENV1 ENV2) ADDTO (RELATION WHAT PRNT) +BACKSKREAD (BUF CHAR TABLE CH) READGRAPH (STREAM F X) CHAT.TTYENTRYFN (PROCESS) SEDIT::ADJUST-WIDTH ( +SEDIT::NEW-WIDTH) MIDDX (DX DY X0 Y0) \FM.FORMATBYROW (LEFT BOTTOM ROW FONT ROWSPACE COLUMNSPACE ID +EXTENT PROPS) GRAPHOBJ.GETALIGN (STREAM GRAPH) SEDIT::INSERT-CHANGED (SEDIT::NODE SEDIT::DEPTH) +SET-READER-ENVIRONMENT (ENV) MAKECREATELST1 (AU DU A D) COMPILER::META-SUBST-PROGN (COMPILER::NODE) +SETPASSWORD (PASSWORD) PURGEHISTORY2 (ENTRY) COMP.ASET (A) GRAPHOBJ.PUTALIGN (ALIGN GRAPH STREAM) +OPENNSOCKET (SOCNUM IFCLASH) FONTCREATE (CHARSET CHSET) \TEDIT.CHARDELETE (PCTB) MAKECREATELST ( +TEMPLATE USING NEEDACELL) GRAPHREGION (GRAPH N) \SEND.EXPEDITED.XIP (%#TRIES NSOC XIP TIMER EVENT ID X + PROGRAM PGMDEF PROCEDURE PROCDEF NOERRORFLG) OPT.INITHASH (X H) \MENUSUBITEMS (MENU ITEM) PRIN2STRING + (FILE STR TAIL LMARG RMARG COMMENTP TEM) \INTERNAL/SETPASSWORD (MSG FN) MSPRGLST (L X PARNT CNTX) +CHAT.CHOOSE.EMULATOR (HOST) SEDIT::CREATE-SIMPLE-NODE (STRING SEDIT::FONT SEDIT::PRIN-2? SEDIT::NODETYPE + CL:STRUCTURE SEDIT::WIDTH) \FM.FORMAT (PROP MOTHER) XCL::HASH-FILE-TYPES-OF (XCL::NAME XCL::TYPES) +SEDIT::INITIALIZE (SEDIT::CLASS SEDIT::C) MINIMUMMAINWINDOWSIZE (WINDOW) MAX/TOP (NODES) +\PFPatchRootDirEntries (rootDir) \TEDIT.PUT.SINGLE.CHARLOOKS (FILE LOOKS FONT STREAM W FILEPOS) +OPT.RESOLVEJUMPS (PROP FN) CH.NUMBER.TO.PROPERTY (PNUM) INFILECOMSPROP (AT PROP) /CONTROL (TTBL) +\TEDIT.HARDCOPY.FORMATLINE (TEXTOBJ CH#1 IMAGESTREAM BASEA0782 N ARR VAL BASEA0783 BASEA0784 BASEA0785 + DEVICE NEWDESCENT FONTDESC CHARCODE BASEA0786) \INTERACTIVE.CLOSEW (WINDOW CLOSEFN) \ENCRYPT.PWD (STR +) IFCPROPSCAN (ATOMS PROPNAMES) \DSPUNTRANSFORMREGION (REGION DISPLAYDATA) COMP.AREF (A) +CLOSEPOSTSCRIPTSTREAM (STREAM) \TEDIT.PUT.CHARLOOKS.LIST (FILE STREAM W LOOKSLIST LOOKSHASH) +XCL::RELIST*-INTERNAL (XCL::ARGS XCL::X) COMPILER::FIND-SEGMENT (CL:TAGBODY COMPILER::TAG) +COMPILER::META-SUBST-MV-PROG1 (COMPILER::NODE) MSPRGLAMBDA (EXPR TYPE FLG) SEGMENT.LENGTH (END) +\LOGIN.READ (OSTYPE DEFAULTNAME TERMINATIONS) GETCHATWINDOW (DPYTYPE HOST TITLE SIZE) +SEDIT::COPY-SELECTION-DEFAULT (SEDIT::SELECTION SEDIT::NODE SEDIT::END) \DECODE.EXTENT.USE (EXTENTUSE) + \LFNormalizeVolumeName (volName) \ADJUST.USERNAME (OSTYPE) PRINTADDRS (X BASE CNT LB) +SEDIT::HANDLE-COMPLETION (SEDIT::CONTEXT) SMASHPATTERN (X PATTERN CARVAL EFF) \DECRYPT.PWD (STR) +\BUILD.EXPEDITED.XIP (PGMDEF PROCDEF PROGRAM) FW-REPAINTFN (W) \TEDIT.FIXCHANGEDLINE (PREVYBOT TEXTOBJ + WHEIGHT WINDOW) \IMAGEIOINIT (STREAM OPOS STR RDTBL CHARSET) DCODERD (INSTREAM FN CODELEN NTBYTESIZE +ARGTYPE NARGS NLOCALS NFREEVARS) \OKTOCLOSEW (WINDOW) \MEDW.BLTCHAR (CHARCODE DISPLAYSTREAM) +UNIX.SENDSCREENPARAMS (STREAM WIDTH HEIGHT) DEFC (NM DF PROP) \DSPXPOSITION.PSC (STREAM IMAGEDATA) +XCL::WALK-ARGLIST (XCL::CONTEXT) COMPILER::META-SUBST-OPCODES (COMPILER::NODE) WINDOWPOSITION (WINDOW +REG) \TEDIT.COPYTEXTSTREAM.PIECEMAPFN (FROMOBJ TOOBJ TEXTOBJ) \TEDIT.OBJECT.SHOWSEL (SEL SELWINDOW +WWIDTH WHEIGHT X OBJ XOFFSET YOFFSET WIDTH TEXTOBJ) FW-BUTTONEVENTFN (W) \VFMGetPageGroup (filePtr +filePage vol interval key) DCODESKIP (INSTREAM RDTBL FN) OPT.COMPILERERROR (MESS1 MESS2) +PFI.ADD.TO.INDEX (TYPE/ENTRY TYPE NAME) \NOIMAGE.DSPFONT (OLDFONT FONT) MAXMENUITEMWIDTH (MENU FONT +P2FLG) IFCPROPS (COM PAIR) PRIN4 (FILE STRM X) \TEDIT.LINECACHE (BITMAP WIDTH HEIGHT) EXEC-PRINT ( +VALUE) XCL::RELIST* (XCL::X XCL::ARGS) \ALLOC.CODE.BLOCK (NBYTES INITONPAGE) MAXIMUMMAINWINDOWSIZE ( +WINDOW) FW-AFTERMOVEFN (W) \PFFindRootDirEntryNum (rootDir directories index type) \REALNAMEP (X) +FONTCLASS (FONTLIST NAME FSPEC CREATEFORDEVICES) PRINTHISTORY1 (EVENT FILE X FL NOVALUES) +PROMPTFORWORD (TTBL X) GRAPHERPROP (PROPLIST PROP) BKBUFS (BUFS) RAIDSTACKCMD (CMD) +RECORD.FIELD.VALUE0 (FIELDNAME) PROVIDE.PROMPTING.WINDOW (TITLE W WINDOW) ERASEPROPS (RESPONSE X) +BROWSE/LAYOUT/LATTICE (NS) COMPILER::CONSTRUCT-PROG1-TREE (COMPILER::PROG1-VAR CL:REST COMPILER::PROG1-VAR-REF + COMPILER::NEW-LAMBDA CL:FIRST) CLBUFS (BUF) TEXTTOIMAGEFILE (FILE IMAGEFILE IMAGETYPE HEADING TABS +FONTS OPTIONS) LISPXSUBST (X Y Z) MAKE-COMPILED-CLOSURE (CODEBASE ENVIRONMENT) +GRAPHER/CENTERPRINTINAREA (EXP X WIDTH STRWIDTH Y HEIGHT) \POSSIBLECOLOR (COLOR?) GETOSTYPE (HOST) +COMPILER::META-SUBST-MV-CALL (COMPILER::NODE) \CCLOSURE.DEFPRINT (CLOSURE STREAM TYPE) ROUND (CL:NUMBER + CL::DIVISOR) HELPSYS (PROPS FN) \DEFINEDP (A) \MENUITEMLABEL (ITEM) SUPERPRINT/COMMENT (FILE L +DSLMARG INDENT HERE) UNIX.SETDISPLAYTYPE (STREAM TIMER BS) \DSPYPOSITION.PSC (STREAM IMAGEDATA) +PFI.DEFAULT.HANDLER (EXPR CAR-OF-FORM PAIR NAME) INFILECOMSVAL (X) STRINGWIDTH (STR RDTBL FONTDESC +CHARCODE) RELMOVETO (DX DY) MSPRGTEMPLATE (TEMPLATE PARENT) CHAT.INIT (STREAMS DISPLAYTYPE OUTSTREAM +WINDOW DPYNAME) SEDIT::STRING-OFFSET (SEDIT::END STRING SEDIT::ESC SEDIT::FONT SEDIT::STARTX) +\PFGetLVPage (lvName) CH.DELETE.MEMBER.FROM.PROPERTY.ACL (DONTCHECK PROPERTY WHICH.LIST AUTH) NEGSHADE + (SHADE) SEDIT::GET-SELECTED-STRUCTURE (SEDIT::CONTEXT SEDIT::SELECTION) RGBP (X) WINDOWPROP (X) +\TEDIT.BLTCHAR (CHARCODE DISPLAYDATA CURX CLIPRIGHT) DASHINGP (DASHING) TTYINWORDRDTBL (TBL BREAKS) +OP# (X) YMAPLIST (I) \MOVETO.PSC (STREAM X Y) \DisplayEventFn (EVENT) RAIDCOMMAND (X ATM A D VA PAGE) +SETUPPAGEMAP (PAGEMAPKEY) PFI.MAYBE.NEW.PAGE (MINLINES EXPR) COPY1 (X) COMPSETREAD (DEFAULT KEYLST) +\MAKE.ITEMS.VERT.ORDER (%#ROWS ITEMS %#COLUMNS ROWS EMPTY.STRING ROW) HLSP (X) DISPLAYBEFOREEXIT ( +EXITFN) MAXMENUITEMHEIGHT (MENU ITEM) SUPERPRINT/SPACE (FILE) MSPRGTEMPLATE1 (TEMPLATE EXPR LEGAL-KEYS +) SYSOUT (FILE TOTALTIMESAVE) SEDIT::SUBNODE-CHANGED (SEDIT::NODE SEDIT::CONTEXT) \SETUFNENTRY (FN +NEXTRA NARGS) XCL::WALK-TEMPLATE-HANDLE-REPEAT-1 (XCL::STOP-FORM XCL::TEMPLATE XCL::CONTEXT) +\GETUFNENTRY (BASE N OP INDEX) \PFPurgeRootDirectory (vol fileD) INSPECT/ARRAY (ARRAY BEGINOFFSET +FIRSTELT WHERE) MAKESYS (NAME FILE NEWFILE) INFILECOM (COM COMNAME Z) MAXIMUMWINDOWSIZE (WINDOW) +SEDIT::FORMAT-VALUES-CHANGED (SEDIT::NODE SEDIT::CONTEXT SEDIT::OLD-INLINE-WIDTH SEDIT::OLD-PREFERRED-WIDTH +) SEARCH-FOR-EVENT-NUMBER (ID SPEC HISTORY) SUBPRINT/WRAPPERTAIL (TAIL BODY DOT MACRO BRFLG) +\TEDIT.COPY.LINEDESCRIPTOR (FROMLINE) LOGOUT (FAST) MSPRGERR (EXPR) SEDIT::NOTE-CHANGE-IN-SIMPLE ( +SEDIT::CONTEXT) CALLSCCODE (DEF OPTION CODEBASE X OFFSET FNAPPLY) COMPILER::EXPAND-NESTED-PROGNS ( +COMPILER::NODE-LIST COMPILER::NODE) COPIEDFILEMATCH (SEMI*) COMPILER::META-SUBST-LAMBDA (COMPILER::NODE +) COMPILER::META-SUBST-LITERAL (COMPILER::NODE) \APPLYINSPECTMACRO (ARGLST DATUM WHERE) +COMPILER::CLOSURE-ANNOTATE-VAR-REF (COMPILER::NODE COMPILER::VAR) COMPSETY (A) \SUBFNDEF (X) +\SHOWMENULABEL (ITEM MENU DSP ITEMREGION LABEL) CH.ADD.MEMBER.TO.PROPERTY.ACL (DONTCHECK PROPERTY +WHICH.LIST AUTH) COMPILER::TEST-ANNOTATION (COMPILER::FN COMPILER::TREE) \CODEBLOCKP (PTR) +ADJUSTLINE.AND.RESTORE (JUSTIFYING) \DSPFONT.PSC (STREAM OLDFONT) RAIDSHOWFRAME (N) READPAGEMAPBLOCK ( +VP) INFILECOMSVALS (X FLG) PFI.PRETTYPRINT (NAME EXPR FORMFLG) MSPRGRECORD (PRNT CNTXT WITHSLOT Y) +BRV/OFFSET (N GN D) XCL::RECONS (XCL::X CAR CDR) \QUEUE.OUTPUT.IOCB (NDB LENGTH BUFFER) RECORDWORD ( +WORDTYPE) \DFSFreeDiskPages (volName vol recompute) \GET.IOCB (USE) \PROMPTFORWORDRETYPE (CHAR) +TEDIT.MODIFYLOOKS (DS LOOKS STARTX CURY LINE CURX FONT LINEBASEY) \PROMPTFORWORDERASE (0X 0Y Y) +\DISPLAYINIT (NAME) CREATE-SHELL-STREAM (TERMTYPE COMMAND SHELL-DEV STR) GRAPHEDITEVENTFN (GRWINDOW) +\DSPLEFTMARGIN.PSC (STREAM) \DSPMOVELR (CHAR TTBL DD FONT YPRIME HEIGHT) COPYTEXTSTREAM (ORIGINAL +TEXTOBJ CROSSCOPY) DELETEMENU (FROMWINDOW W) USEDFREE (A) \PROMPTFORWORDBS (CH) \PROMPTFORWORDBIN ( +KEYSTREAM) RECONS (X C Y) COMPSETF (A) \TEDIT.SELECT.CHARACTER (TXB LINE SELWINDOW DS OBJBOX TEXTOBJ X + Y SELOPERATION) COMPILER::CLOSURE-ANNOTATE-UNWIND-PROTECT (COMPILER::NODE COMPILER::IN-LOOP-P) +FILL.CONT (STRM TEXT YMAX YMIN) OVERFLOWLINE? (LINE) GRAPHOBJ.CHECKALIGN (GRAPH) \TEDIT.MARK.REVISION +(IMAGESTREAM LINE SCALE) \CREATECHARSET (CHARSET CREATEFN NOSLUG? N WIDTH) \PFRemoveRootDirEntry (type + rootDir directories index) CHANGECCODE (FN SEAL NEWREF MAP LC) INFILECOMS (COMS X) PROCESS-EXEC-ID ( +PROCESS NAME) DEFAULTFONT (DEVICE) INSPECT/HARRAYP (HARRAY WHERE) CHARWIDTHY (CHARCODE FONT) +XCL::WALK-TEMPLATE-HANDLE-REPEAT (XCL::FORM XCL::STOP-FORM XCL::TEMPLATE XCL::CONTEXT) \DSPPRINTCHAR ( +CHARCODE DD SPACEWIDTH) COMPILER::META-SUBST-LABELS (COMPILER::NODE A0689 A0688) \DRAWPOLYGON.DISPLAY +(BRUSH PTBRUSH POINTS STREAM DASHING) \DRAWARC.DISPLAY (STREAM CENTERX CENTERY RADIUS STARTANGLE +NDEGREES BRUSH DASHING) \PFAddRootDirEntry (index type directoryID entryNum) SUPERPRINT/COMMENT2 (CMT +COMMENT-MIDPOINT COMMENT-RMARGIN COMMENT-LMARGIN) \DRAWPOINT.DISPLAY (BRUSH BRUSHBM DISPLAYSTREAM X Y +OPERATION) \STRINGWIDTH.GENERIC (STR FONT SPACEWIDTH FONTDESC CHARCODE CC) PRINT-EVENT (EVENT FILE +POSITION X) SUPERPRINT/COMMENT1 (CF RMARGIN FILE FONT) \PROTECTED.APPLY (FN WINDOW) DSPCLEOL (DD YPOS +HEIGHT) \DSPCLIPPINGREGION.DISPLAY (DISPLAYSTREAM) \DSPRIGHTMARGIN.PSC (STREAM) \CHARWIDTH.DISPLAY ( +FONTDESCA0492 CHARCODE STREAM) MAPPAGES (BOT TOP IVP FN) COMPILER::META-SUBST-GO (COMPILER::NODE) +REBINDP (OB) \STRINGWIDTH.DISPLAY (STREAM STR DD RDTBL) SEDIT::CLEAR-ALL-LINEAR-FORMS (SEDIT::CONTEXT) + PopUpWindowAndGetAtom (PROMPTSTRING FONT WIDTH PROMPTW) \CH.FIND.ORG.SERVER (ORGANIZATION ORG) +\DSPOPERATION.DISPLAY (DISPLAYSTREAM SourceTypeA0499) PRINTERDEVICE (NAME ACCESS RECOG PARAMETERS FDEV + OLDSTREAM STRM SDEV PRINTOPTIONS) MSBINDVAR (TYPE EXPR) \10MBSENDPACKET (X Y NDB TYPE) \DEVICESYMBOL +(ElseReturnXFlg) \FIXLINELENGTH.PSC (IMAGEDATA TMP) \PFFreeDiskPages (vol) \NEWPAGE.DISPLAY (STREAM) +\BACKCOLOR.DISPLAY (DISPLAYSTREAM) SEDIT::DEFAULT-GETDEF-FN (SEDIT::NAME TYPE SEDIT::NEW-DEF SEDIT::OLD-DEF +) COURIER.EXECUTE.EXPEDITED.CALL (PROGRAM PROCEDURE ARGLIST NSOC ADDRESS SOCKET# PGMDEF PROCDEF +ARGTYPES NOERRORFLG) \BLTSHADE.DISPLAY (STREAM OPERATION) PRINTCODE (FN SI::$PROG1-FIRST-EXPRESSION$ +I4 OUTF I6 CODEBASE OFFSET IVARS PVARS FVARS NNILS NVALS) \NSFILING.DESERIALIZE1 (SERIALSESSION +DIRHANDLE NEWATTRS BULKSTREAM SERIALSTREAM) \DSPLINEFEED.PSC (STREAM) SETFONTCLASSCOMPONENT (FONT +NEWFONT) MAKEROOMFORPME (VP) SETUPHASHARRAY (ARRAYNAME SIZE) \TEXTINIT (CONDITION) \BITBLT.DISPLAY ( +DESTINATION DS SOURCETYPE) \PFCreateRootDirectory (vol fileD rootDir) INSPECT/TYPELESS (ITEM WHERE) +PRINTCODENT (START1 STR CODEBASE OFFSET X) \UTF16.BACKCHARFN (STREAM BYTECOUNTVAL) DELETETO1 (TAIL) +POLYSHADE.DISPLAY (POINTS STREAM TEXTURE OPERATION) LISPXPRINTDEF0 (FILE EXPR LEFT DEF TAIL) TYPEP ( +TYPE CL::SYMBOL-TYPE CL::OBJECT) MSPRGCALL (CONTEXT FN PRNT) NTH.COLUMN.OF (LINE N) FONTUNPARSE (FONT) + CODEWRAPPER.PRETTYPRINT (HERE) FONTCLASSUNPARSE (FONTCLASS X) \DSPRESET.DISPLAY (WINDOW DD) +SEQUENTIAL.PRETTYPRINT (LEFT) INSPECTCODE (FN WHERE LVFLG RADIX PC CODEPRINTER WINDOW) FONTPROP (PROP) + SEDIT::CHECK-SELECTION (SEDIT::SELECTION) SEDIT::PARENTHESIZE-CURRENT-SELECTION (SEDIT::CONTEXT +SEDIT::SELECTION SEDIT::END) \CH.LOCATE.SERVERS (ORGANIZATION CHSERVER NOERRORFLG SERVERGROUP) +FONTCLASSCOMPONENT (FONTCLASS DEVICE NOERRORFLG) \SCALEDBITBLT.DISPLAY (SOURCEBITMAP DESTINATION +SOURCELEFT SOURCEBOTTOM SOURCETYPE OPERATION TEXTURE CLIPPINGREGION) \FILLCIRCLE.DISPLAY ( +DISPLAYSTREAM \BRUSHBBT CENTERX CENTERY) COMPILER::CLOSURE-ANNOTATE-THROW (COMPILER::NODE COMPILER::IN-LOOP-P +) \TEDIT.CLEAR.SCREEN.BELOW.LINE (WINDOW TEXTOBJ LINE) MAKECREATE1 (TYPE CREATEINFO SPECIALFIELDS +FIELD.USAGE) PRINT-EVENT-PROMPT (TERM EVENT) EDITDATE? (COMMENT INITIALS?) \DRAWLINE.DISPLAY ( +OPERATION DISPLAYSTREAM X1 Y1 X2 Y2 \BRUSHBBT DD) NEW/INSTANCE/OF/GRAPHNODE (GN NEW) FILL.XPER (STRM +TEXT YMAX YMIN) \DSPYPOSITION.DISPLAY (DISPLAYSTREAM) FILL.TEST (STRM TEXT YMAX YMIN) +\DRAWELLIPSE.DISPLAY (CENTERX CENTERY SEMIMINORRADIUS SEMIMAJORRADIUS DISPLAYSTREAM BRUSH \BRUSHBBT +DISPLAYDATA SEMIMAJORRADIUSSQUARED cosOrientation SEMIMINORRADIUSSQUARED sinOrientation X Y) +MSPRGMACRO (FORM MACDEF ME CONTEXT) COMPILER::CLOSURE-ANNOTATE-TAGBODY (COMPILER::NODE COMPILER::SEGMENTS + COMPILER::COULD-BE-A-LOOP COMPILER::*NEED-STORAGE*) \DRAWCIRCLE.DISPLAY (CENTERX CENTERY BRUSH +DISPLAYSTREAM \BRUSHBBT XA0622 XA0623) PREPLOOP (I) \DSPLINEFEED.DISPLAY (DISPLAYSTREAM) +SEDIT::CREATE-STRING-ITEM (STRING SEDIT::FONT) BROWSE/LAYOUT/HORIZ/COMPACTLY (ROOTS) PROG1.PRETTYPRINT + (LEFT) CH.RETRIEVE.PROPERTY.ACL (PROPERTY WHICH.LIST AUTH) \AVGCHARWIDTH (FONT) CH.PROPERTY (PROP) +SETFONTDESCRIPTOR (SIZE) PRINT-HISTORY (HISTORY EVENTS X NOVALUES) SUPERPRINT0 (FN FILE TAIL LEFT) +\LOOKUPFONT (ROTATION FACE SIZE FAMILY DEVICE X) PROGV.PRETTYPRINT (HERE) COMPILER::META-SUBST-IF ( +COMPILER::NODE A0687 A0686) \DRAWLINE.PSC (STREAM X2 X1 Y2 Y1 OPERATION COLOR DASHING D) \FONTSYMBOL ( +X) \DSPFONT.DISPLAY (DISPLAYSTREAM FONTDESC CHARCODE) DUMPINITPAGES (CODENEXTPAGE CODEFIRSTPAGE VPAGE) + DO.PRETTYPRINT (EXPR HEAD LEFT START) MSPRGE (Z SUPEXPR EVALCONTEXT ME) NTH.RELATIVE.COLUMN.OF (LINE +END) XCL::VARIABLE-LEXICALLY-BOUNDP (XCL::VAR) PRINTPROG (FILE FORMLEFT BRFLG LABELL) +COMPILER::META-SUBST-CALL (COMPILER::NODE) \FONTFACE (DEV OLDFACE) \DSPLEFTMARGIN.DISPLAY ( +DISPLAYSTREAM) PRINTPROGVARS (TAIL BRFLG FILE) CREATEFIELDS (FIELDS) \FONT.SYMBOLMEMB (LIST USERINPUT) + COURIER.EXPEDITED.CALL (ARGS PROGRAM PROCEDURE ADDRESS SOCKET#) \DSPRIGHTMARGIN.DISPLAY ( +DISPLAYSTREAM) SUBPRINT (FILE TAIL0 BRFLG CLW0) FIND-LEXICAL-ENVIRONMENT (STACKPOS) LISPXPRINTDEF ( +EXPR FILE LEFT DEF TAIL) \PFCurrentVol (index) \MAP-CODE-POINTERS (CODEBLOCK TYPENO MAPFN CODEBASE +OFFSET) UTF16BE.PEEKCCODEFN (STREAM) \FONT.SYMBOLASSOC (LIST USERINPUT NC) LISP-TO-UNIX-TERMTYPE ( +TERMTYPE) \MAP-CODE-LITERALS (CODEBLOCK TYPENO MAPFN X CODEBASE OFFSET DEF LC) \DRAWCURVE.PSC (STREAM +BRUSH IMAGEDATA DASHING D KNOTS CLOSED) \FONT.COMPARESYMBOL (USERINPUT KEY INPUTNC A0493) +XCL::VARIABLE-SPECIAL-P (XCL::VAR) PFI.HANDLE.EXPR (EXPR) DSFIT1 (LST N FILE N1) \IDLE.TIME ( +START.TIME ONEDAY) SEDIT::DELETE-NODES (SEDIT::NODE SEDIT::CONTEXT SEDIT::END SEDIT::SET-POINT? STRING +) \PFPutRootDirectory (vol fileD rootDir) \DRAWCURVE.DISPLAY (\BRUSHBBT DASHING BRUSH KNOTS +DISPLAYSTREAM DASHLST BBT CLOSED) INSPECT/DATATYPE (DATUM WHERE) PRINTSQ (FILE KEYL HERE BRFLG) +CH.IS.IN.DOMAIN.ACL (WHICH PROPERTY NAME AUTH) INSPECT/HUNK (GCTYPE DATUM WHERE SIZE) +COMPILER::CLOSURE-ANNOTATE-SETQ (COMPILER::NODE COMPILER::IN-LOOP-P) FIND-HISTORY-EVENTS (HISTORY SPEC + ORIGINAL-EVENT-SPEC) BACKARROWP (X) UTF16BE.INCCODEFN (STREAM BYTECOUNTVAL) \4DISPLAYINIT (NAME) +RPARS (NP E) DBG::COLLECT-ACTIVE-ESCAPES (DBG::ESCAPE-1 DBG::ESCAPE-2) XCL::VARIABLE-LEXICAL-P (XCL::VAR +) COMPILER::META-SUBST-BLOCK (COMPILER::NODE A0683 A0682) /PUT-1 (ATM PROP) FIND.LINE.BREAK (END) +FONTHEIGHT (FONTSPEC) \PFGetRootDirectory (vol fileD rootDir) DSFIT2 (X FILE) COMPILER::META-SUBST-CATCH + (COMPILER::NODE A0685 A0684) FONTDESCENT (FONTSPEC) HISTORY-NTH (ID) XCL::GET-IMPLICIT-KEY-HASH ( +XCL::IK-HASH-TABLE) SEGMENT.BIT.LENGTH (END) \DSPBACKCOLOR.DISPLAY (STREAM) SUBPRINT1 (LST END) +\DSPCOLOR.DISPLAY (STREAM) LLBREAK (FN WHEN) MAKECREATE0 (RECORD.TRAN NEEDACELL) BROWSE/LAYOUT/HORIZ ( +ROOTIDS) \IDLE.EXIT? (GROUP) TEDIT.SCAN.LINE (THISLINE TEXTOBJ LINE BASEA0768 LLIST BASEA0769 CHLIST +BASEA0770 BASEA0771 BASEA0772 BASEA0773 SELOPERATION Y WINDOW EXTENDING BASEA0774 WLIST TEXTLEN) /PUTD + (FN DEF FLG TEM) PopUpWindowAndGetList (PROMPTSTRING FONT WIDTH PROMPTW CANDIDATE RESPONSE) +TEDIT.PROMPTFLASH (TEXTSTREAM) COMPILER::CLOSURE-ANNOTATE-PROGV (COMPILER::NODE COMPILER::IN-LOOP-P) +FONTASCENT (FONTSPEC) BROKENDEF (DEF CA WHEN CODEBASE OFFSET NEWVALUE) MISSPELLED? (SPLST REL FLG TAIL +) /PUTPROP (PROP VAL) UTF16BE.OUTCHARFN (STREAM CHARCODE) UNDOLISPX1 (EVENT) COMPILER::CLOSURE-ANNOTATE-RETURN + (COMPILER::NODE COMPILER::IN-LOOP-P) BRHL/MOVE/RIGHT (GN STACK X W NEWX NSTACK) /ADDPROP (PROP) +\DRAWCIRCLE.PSC (STREAM BRUSH IMAGEDATA DASHING D CENTERX CENTERY RADIUS) ADDPME (VP NEWPAGEOK) +PFI.PRINT.TO.TAB (TABSTOP WIDTH STR) FM.TOPGROUPID (WINDOW) SAVEPUT (ATM PROP VAL) RENAME (TYPES OLD +NEW FILES METHOD) COMPILER::META-EVAL-LABELS (A0649 COMPILER:CONTEXT A0648) SEDIT::SET-SELECTION-ME ( +SEDIT::NODE) VOLUMESIZE (volName vol) FM.WHICHITEM (Y) SEDIT::CREATE-PRELINEARIZED-NODE (CL:STRUCTURE +SEDIT::ENVIRONMENT SEDIT::NODETYPE STRING SEDIT::PRIN-2? SEDIT::FONT SEDIT::SUPER-NODE) FONTSET (TEM) +\10MBGETPACKET (TYPE) \8DISPLAYINIT (NAME) XCL:UNBREAK-FUNCTION (XCL::BROKEN-FN XCL::FN XCL::MIDDLE-MAN +) \DRAWELLIPSE.PSC (STREAM BRUSH IMAGEDATA DASHING D CENTERX CENTERY MAJORRADIUS MINORRADIUS +ORIENTATION) PRINTOPCODES (X OP) SIMPLEP (Z) GETCHARBITMAP (FONT FONTDESC) BRHL/LAYOUT (MOMLST X W Y N +) MakeMenuOfImageTypes (MENUTITLE) \UTF8.BACKCHARFN (C) TTYINPROMPTFORWORD (CANDIDATE.STR +GENERATE?LIST.FN URGENCY.OPTION) TOGGLE/SIDESFLG (WIN) XCL::PUT-IMPLICIT-KEY-HASH (XCL::IK-HASH-TABLE +XCL::ITEM XCL::BITS XCL::LIMIT XCL::DELETED-INDICATOR) ALLCALLS (FNDEF) \CORE.RELEASEPAGES (STREAM) +FM.ENDEDIT (WINDOW WAITFLG) SEDIT::CREATE-NODE (SEDIT::NODETYPE CL:STRUCTURE) TOPATTACHEDWINDOWS ( +WINDOW ATTACHEDWINDOW) SEDIT::START-COMMENT (SEDIT::CONTEXT SEDIT::CARET-POINT SEDIT::POINT-TYPE) +PUTCHARBITMAP (NEWCHARBITMAP) FILES.PUTDEF (DEFINITION REASON) \TEDIT.ADJUST.LINES (DY LINETOP TEXTOBJ + WINDOW) \DUMPEXPORTS (COMS TAIL) \NSFILING.COPYFILE (NEWDEVICE DEVICE FROMFILE TOFILE) +GET-NEXT-HISTORY-EVENT (ID PROMPT) WINDOWTITLEFONT (FONT) COMPILER::SET-CONSTANT-VALUE (CL:SYMBOL +COMPILER::VALUE) \FAST4BIT (A N B MAP) SEDIT::TTYEXITFN (SEDIT::OLDPROC) \CORE.DELETEFILE (FILENAME +DEV) \SHOWTEXT (TEXTOBJ) CLEARFILEPKG (FLG) HISTORY-ADD-TO-SPELLING-LISTS (INPUT) \CORE.GETINFOBLOCK ( +NAME FD RECOG) CHAT.STARTUP (LOGOPTION TAIL PROC KEY OSINFO HOSTINFO INTERRUPTS KEYACTIONS INITSTREAM +$$OUTPUT) REDISPLAYW (WINDOW REGION ALWAYSFLG) VOLUMES (vol) FM.EDITITEM (WINDOW) MAPFILES1 (FILESPEC +FILEGROUP FN) XCL::VARIABLE-GLOBALLY-SPECIAL-P (CL:SYMBOL) \CORE.FINDPAGE (PN) RECORDBINDVAL (VAL) +MOVECHARBITMAP (SRCEFONT DESTFONT SRCECODE SRCEDESC DESTDESC DESTCODE) SPP.SENDATTENTION (STREAM CON +CC ATTENTIONBYTE) TEDIT.SELECT.LINE.SCANNER (TEXTOBJ WINDOW LINE.LIST WREG Y REGION THISLINE X +SELOPERATION EXTENDING TEXTLEN) \TEDIT.UNIQUIFY.CHARLOOKS (TEXTOBJ NEWLOOKS) \CORE.GENERATEFILES ( +PATTERN FDEV NAME FILTER VERS) COMP.VALN (L) CH.DELETE.MEMBER.FROM.DOMAIN.ACL (DONTCHECK WHICH.LIST +AUTH) COMPILER::CLOSURE-ANNOTATE-PROGN (COMPILER::NODE COMPILER::IN-LOOP-P) FILL.INCY (TBLE) +DIRECTORY.MATCH (TESTNAME PATTERN) \BITMAPTOSCREEN (BITMAP) TYPE.BUFFER (END PC) FONTCOPY (FONTSPECS J +) DIRECTORY.MATCH.SETUP (BASE) PFI.PRINT.ENVIRONMENT (SPEC KEYWORD VALUE) \FILLCIRCLE.PSC (STREAM +CENTERX CENTERY RADIUS) \CHTOPC (PCTB CH#) TOGGLE/DIRECTEDFLG (WIN) \CORE.FILEINFOFN (GENFILESTATE +ATTRIBUTE) FONTSAVAILABLE (DEVICE SIZE FACE EXTANTDEV) FONTPROFILE.ADDDEVICE (FD) SEDIT::STRINGWIDTH ( +SEDIT::STR SEDIT::FONT SEDIT::READ-TABLE SEDIT::ESCAPE) LISPDIRECTORYP (volumeName) FM.EDITP (WINDOW) +\24DISPLAYINIT (NAME) SEDIT::CREATE-ENVIRONMENTS (SEDIT::COMMANDS) NAMEFIELD (FILE STR) +\TEDIT.PROCIDLEFN (WINDOW) COMPILER::CONSTANT-VALUE (CL:SYMBOL COMPILER::VALUE) SEDIT::UPDATE-TITLE ( +SEDIT::WINDOW SEDIT::CONTEXT) \CORE.GETFILEINFO.FROM.INFOBLOCK (ATTRIBUTE) \LOOKUPFONTSINCORE (FAMILY +SIZE FACE ROTATION DEVICE) \CORE.GETFILEHANDLE (NAME RECOG FD ACCESS) CREATESCREEN (DESTINATION) +BRHL/LAYOUT/DAUGHTERS (DS Y X MOMLST) UTF8.PEEKCCODEFN (STREAM NOERROR) EQUALHASH (AR1 AR2 KEY VAL Y) +\BLTSHADE.PSC (DESTINATIONLEFT DESTINATIONBOTTOM STREAM IMAGEDATA) FONTFILEFORMAT (LEAVEOPEN) +\DISPLAYSTREAMTYPEBPP (DISPLAYSTREAMTYPE) COMP.VAL1 (L) NLISTP (X) \TFBRAVO.LCASER (WORD LST) +\CORE.GETFILEINFO (STREAM ATTRIBUTE DEV) RECEVAL (DATUM NEWVALUE FIELDNAME) VARS.PUTDEF (NAME +DEFINITION) FONTP (X) NUMBERP (X) COMPILER::CLOSURE-ANNOTATE-MV-PROG1 (COMPILER::NODE COMPILER::IN-LOOP-P +) SHAPEW (OLDSIZE MAINONLYFLG) SEDIT::CREATE-GAP-NODE (SEDIT::GAP SEDIT::WIDTH) OR (U) SHRINKBITMAP ( +BITMAP WIDTHFACTOR HEIGHTFACTOR WIDTH HEIGHT HFACTOR BITSPP DESTINATIONBITMAP WFACTOR DESTINATION +SCRATCH) OPENATTACHEDWINDOWS (WINDOW ATTACHEDWINDOW) CL:BLOCK (CL::TAIL) FILEPKGCOMS.PUTDEF ( +DEFINITION I NAME PROP) EXEC-PRIN1 (VALUE) GETTOPVAL (X) EQUALALL (X Y Z) \NSFILING.COPY/RENAME ( +FROMFILE TOFILE DEVICE NEWDEVICE N) \TEDIT.UNIQUIFY.PARALOOKS (TEXTOBJ NEWLOOKS) WINDOWREGION (WINDOW +COM) MOVEATTACHEDWINDOWS (NEWPOS WINDOW ATTACHEDWINDOW DELTA) \PFFindRootDirEntry (type rootDir index) + EDITCHAR (FONT CHARCODE FONTDESC) TEDIT.PUT (STREAM) POSTEDITALISTS (EDITCHANGES OLDTOKENS NEWENTRIES + NEWENTRY) CH.CANONICAL.NAME (NAME PARSED) \CREATEDISPLAYFONT (DEVICE FAMILY SIZE FACE ROTATION +FONTDESC CHARSET) \TFBRAVO.PARAMNAMEP (LIS NAME WORD) \CORE.GETFILENAME (NAME FD CREATEFLG RECOG) +\CREATE.TTY.OUTCHARFN (CHAR) SI::ARGUMENT-ERROR (SI::FRAME SI::NUM-ARGS SI::MIN-ARGS SI::FRAME-NAME) +GETPROPLIST (ATM) \CORE.PACKFILENAME (DEVICE FULLNAME) TEDIT.PUT.PCTB2 (BASEA0767 NO ARR +TEDIT.PUT.FINISHEDFORMS FORM) \BITBLT.PSC (SOURCEBITMAP SOURCELEFT SOURCEBOTTOM STREAM DESTINATIONLEFT + DESTINATIONBOTTOM WIDTH HEIGHT SOURCETYPE OPERATION TEXTURE CLIPPINGREGION CLIPPEDSOURCELEFT +CLIPPEDSOURCEBOTTOM) SETPROPLIST (LST) \CORE.NAMESEGMENT (NAME) \TEDIT.DIFFUSE.PARALOOKS (PPLOOKS) +FW-ADJUST-REGION (OFD) COMPILER::CHECK-GLOBAL-CONSTANT (CL:SYMBOL COMPILER::VALUE-EXPR COMPILER::VALUE +) \CREATE-REAL-CHARSET.DISPLAY (ROTATION FAMILY SIZE FACE DEVICE FONTDESC) SEDIT::BUILD-WINDOW ( +SEDIT::DISPLAY-WINDOW SEDIT::ENVIRONMENT) \CORE.NAMESCAN (NAME) FetchDefaultPrinter (P) +\TEDIT.FIXINSSEL (TEXTOBJ CH#1 DCH) \CREATECHARSET.DISPLAY (FAMILY SIZE CHARSET FACE ROTATION DEVICE +FONTDESC NOSLUG?) \CORE.UNPACKFILENAME (NAME START END) INSERTLINE (ROW) \SFMAKEITALIC (CSINFO ASCENT +DESCENT OLDBITMAP OFFSETS WIDTHS) CHAT.RECONNECT (WINDOW MAINW) FM.SHADE (WINDOW X SHADE) +ALIGNMENTNODE (NODESPEC GRAPH) SEDIT::CREATE-CONSTANT-STRINGS (SEDIT::FONT SEDIT::PREFIX) SEDIT::CFV-CLISP + (SEDIT::ENVIRONMENT SEDIT::PAREN-WIDTH) HCOPYALL1 (X SIZE TYP Y FIELD) TILE (SRC DST) +BLTPATTERN.GENERIC (SRCE DW DX SX SY DEST OPER) \BUILDSLUGCSINFO (ASCENT DESCENT WIDTH) +\IFSERRORSTRING (ERR-FILE-NAME EOL CODE) TEDIT (PROPS) \TEDIT.PUTRESET (PROC&VALUE) \SCALEDBITBLT.PSC +(STREAM IMAGEDATA SCALE1 SOURCEBITMAP BITMAPWIDTH BITMAPHEIGHT SOURCELEFT SOURCEBOTTOM SOURCETYPE +SCALE2 OPERATION) COMPILE1A (DEF FN) \CORE.OPENFILE (ACCESS FDEV RECOG PARAMETERS) +SHRINKATTACHEDWINDOWS (WINDOW ATTACHEDWINDOW) \READDISPLAYFONTFILE (FAMILY SIZE FACE ROTATION DEVICE +CHARSET) \CORE.SETACCESSTIME (ACCESS DT) CLISPATOM1 (X) \SFROTATECSINFO (CSINFO ROTATION) +RAISE/TRANSITION/CHAIN (TC RAISE) EVENTS-INPUT (EVENTS EVENT INPUT) \COREFILE.SETPARAMETERS ( +PARAMETERS) TTDELSECTION (WIDTH) CHAT.PROMPT.FOR.INPUT (PROMPT FONT MINLENGTH) SEDIT::UNDO-ATOM-CHANGE + (SEDIT::CONTEXT SEDIT::OLD-VALUE) LAYOUTSEXPR (RESULT FORMAT FONT MOTHERD PERSONALD FAMILYD) +FM.REDISPLAYMENU (WINDOW) SEDIT::COPY-NODE (SEDIT::NODE SEDIT::CONTEXT) HCOPYALL (X) GETSETQ (OKVARS +NVARS PARENT INDECL) COMPILER::VALUE-FOLDABLE-P (COMPILER::VALUE) \MKATOM (OFFST LEN BASE NEWATOM) +SEDIT::COMPUTE-COMMENT-COLUMN (SEDIT::WINDOW SEDIT::ENVIRONMENT) BRHC/OFFSET (N GN D) +GetNewPrinterFromUser (PROMPTSTRING) \TEDIT.FIXDELSEL (TEXTOBJ CH#LIM DCH CH#1) \CREATE.SYMBOL (LEN PN + BASE OFFSET) SEDIT::ASSIGN-FORMAT-CLISP (SEDIT::NODE SEDIT::SUBNODES SEDIT::CONTEXT SEDIT::SUBNODE +SEDIT::CLISP-TYPE) \CORE.SETFILEPTR (INDX NEWPAGE NEWOFF) BKSYSBUF.GENERAL (TYPE) PROPS.WHENCHANGED ( +NAME NEWFLG) \PARSE.NUMBER (BN LEN END BASE) SEDIT::REDO (SEDIT::PROMPTWINDOW) SHOWGRAPH ( +TOPJUSTIFYFLG CENTERFLG COPYBUTTONEVENTFN LEFTBUTTONFN MIDDLEBUTTONFN) COMPILER::CLOSURE-ANNOTATE-MV-CALL + (COMPILER::NODE COMPILER::IN-LOOP-P) \ORIGREADTABLE (TBL) \EXPECTED.FILE.TYPE (FILE HOST) +\CORE.SETEOFPTR (NBYTES NEWBYTES NEWEP NEWEO) \SEARCHFONTFILES (EXTLST DIRLST SIZE FILEPATTERN) +EXPANDBM (SRCEBM DESTX DESTY XSCALE XSPACE YSCALE YSPACE DESTBM) \CREATECHARSET.PSC (WIDTHS) +\CORE.SETFILEINFO (STREAM DEV ATTRIBUTE) PURGEDSKDIRECTORY (volName vol diskDevice F) FM.REDISPLAYITEM + (WINDOW) \SEARCHDISPLAYFONTFILES (FAMILY SIZE FACE ROTATION DEVICE) SEDIT::CONTAINS? (SEDIT::SELECTION-1 + SEDIT::SELECTION-2) \COPYDATATYPE (X NTYP DTD NEW P) SEDIT::SKIP-TO-GAP (SEDIT::CONTEXT SEDIT::SELECTION + SEDIT::POINT SEDIT::PROMPTWINDOW) \INITATOMPAGE (PN OFFSET) DBG::PRINT-BACKTRACE (DBG::FROM DBG::TO +DBG::X DBG::OUTPUT) \CORE.GETNEXTBUFFER (WHATFOR) CH.ADD.MEMBER.TO.DOMAIN.ACL (DONTCHECK WHICH.LIST +AUTH) SIMPLETEXTEDIT (WINDOW TTSCRATCHFILE) \MAKEMDSENTRY (VP V) DO-APPLY-EVENT (TODO) SPELLFILE1 (ARR + FIELDS) \ALLOCBLOCK (ARLEN SI::$PROG1-FIRST-EXPRESSION$) COMPILER::COLLECT-NONLOCAL-VAR-EFFECTS ( +COMPILER::VARS) \NSFILING.NEXTFILE (GENERATOR SESSION) \NEWPAGE.PSC (STREAM) IDLE.SHOW.OPTIONS (TAIL) +BYTECOMPILE2 (FN DEF) COREDEVICE (NAME NODIRFLG) INSERT.TEXT (END ENDOFLINE START) +\FONTINFOFROMFILENAME (FONTFILE FILENAMELIST) \FONTFILENAME.OLD (FAMILY SIZE CHARSET EXTENSION) +SEDIT::STRINGIFY-ATOM (SEDIT::NODE) \CREATECOREDEVICE (NAME OLDSTREAM) \PFGetVol (volNum) +FM.RESETGROUPS (WINDOW GROUPLIST) \FONTFILENAME (SIZE FACESPEC CSETNAME FAMILY SIZEPATT EXTENSION) +SEDIT::COMPUTE-SELECTION-POSITION-DEFAULT (SEDIT::START) SPELLFILEDIR (DIR) RECDEC? (X) +COMPILER::RESOLVE-VARIABLE-REFERENCE (COMPILER::OBJ) MAPATOMS (FN DTD FIRSTFREE SIZE LASTFREE +LASTFREE2) DBG::%%RELEASE-STACK-DATUM (DBG::W DBG::ST) EXTEND/TRANSITION/CHAIN (LTC RTC) NewPrinter ( +PRINTER PRINTER-NAME ENTRY) COMPILER::CLOSURE-ANNOTATE-LAMBDA (COMPILER::NODE) MOVETO.IP (IPSTREAM X Y +) SPELLFILE.SPELL (HOST DIRECTORY NAME ROOTNAME RELATIVEDIRECTORY SUBDIRECTORY) BLTPATTERN (DEST DX DY + DW DH) SEDIT::TRANSLATE-CHARS (SEDIT::CHARS SEDIT::ESC SEDIT::MULT-ESC SEDIT::POINT-TYPE) +GRAPHOBJ.FINDGRAPH (WINDOW DS REG) \DSPSCALE.PSC (STREAM SCALE OSCALE) %%ARRAY-BASE (ARRAY) BITMAPP (X +) APPENDINTEGER.IP (N STREAMA0730 NUMA0729 STREAM LEN) COMPILER::PASSABLE (COMPILER::NODE-1 COMPILER::NODE-2 +) MAXATTACHEDWINDOWEXTENT (MAINW) COMPILER::SIDE-EFFECTS (COMPILER::NAME) %%ARRAY-OFFSET (ARRAY) +BLTSHADE (DESTINATION TEXTURE DESTINATIONLEFT DESTINATIONBOTTOM WIDTH HEIGHT OPERATION CLIPPINGREGION +STREAM) %%ARRAY-TYPE-NUMBER (ARRAY) UNDOSET (NAME VALUE) \ITEMW.FLIPCOPY (ITEM DS REG) +DO-HISTORY-SEARCH (SPEC) \GENERIC-UNREGISTER-STREAM (STREAM) COMPILER::RESOLVE-VARIABLE-BINDING ( +CL:SYMBOL COMPILER:ENV) FINDFILE (FILE NSFLG) DBG::MAKE-FRAME-INSPECT-WINDOW (DBG::TTYWINDOW DBG::W) +\ADD-OPEN-STREAM (STREAM DEVICE) \COERCETODS (X) \NSFILING.FILEINFOFN (GENFILESTATE ATTRIBUTE) +SEDIT::UNDO-EXTRACT (SEDIT::NODE SEDIT::SUBNODES SEDIT::CONTEXT) \PAGEDEOFP (STREAM CURPAGE) +MINATTACHEDWINDOWEXTENT (MAINW) SEDIT::SELECTED-FN-NAME (SEDIT::CONTEXT SEDIT::POINT) \PAGEDGETEOFPTR +(STREAM) \SFLHASHLOOKUP (HASHTABLE PAGE# MASK) \PAGEDGETFILEPTR (STREAM) SEDIT::ASSIGN-FORMAT-DOTLIST +(SEDIT::NODE SEDIT::SUBNODE SEDIT::CONTEXT) SEDIT::GETKEY (SEDIT::CONTEXT) REMOVETONODES (TONODES TOND +) OPT.CFRPTQ (L ST END) PUTD (FN) \NODIRCORE.OPENFILE (ACCESS FDEV INFOBLK RECOG PARAMETERS) +DECLSUBFIELD (SUBDECL DEC) \FINDFONTFILE (EXTLST FAMILY SIZE FACE CHARSET DIRLST) \PUTD (FN DEF) +FIXDATUM (FORM DECLST N Y) HPRINSP (X) PRINTERS.WHENSELECTEDFN (ITEM) COPYGRAPH (GRAPH) \RENAMEDFN ( +DEF CODEBASE WORDSIZE NEWCA FN) LINETO.IP (IPSTREAM X Y) \NODIRCOREFDEV (NAME) MAXIMUMCOLOR ( +BITSPERPIXEL) GETD (A DEF) COMPILER::CLOSURE-ANNOTATE-IF (COMPILER::NODE COMPILER::IN-LOOP-P) +SI::GET-CACHE-CLOSURE (XCL::CODE-BLOCK XCL::CLOSURE XCL::NEW-CLOSURE) DBG::STACK-FRAME-PROPERTY ( +DBG::PROP DBG::DATUM) SCALEBM (DESTBM SRCEBM XSCALE YSCALE SRCEX SRCEY DESTX DESTY) SCROLLW (WINDOW DX + DY CONTINUOUSFLG) GRAPHEROBJ (GRAPH HALIGN VALIGN OBJ REG) \DSPSCALE2.PSC (STREAM IMAGEDATA Y-SCALE) +PRINT (FILE X STRM RDTBL) SPELLFILE.SPELL1 (SPELLFILE HOST DIRECTORY RELATIVEDIRECTORY SUBDIRECTORY +NAME EXTENSION VERSION ROOTNAME) CREATE-PROCESS-STREAM (SHELL-DEV COMM STR) FIXSPELL1 (WORD DEFAULT) +EOFCLOSEF (FILE STREAM) BLTPATTERN.REPLACEDISPLAY (DW DH DEST DX DY SRCE SX SY) POSTEDITPROPS ( +EDITCHANGES OLDPROPS) \FINDOP (X OPNAME) SEDIT::SPLIT-LITATOM (STRING SEDIT::NODE SEDIT::START SEDIT::END + CL:LENGTH SEDIT::CONTEXT SEDIT::POINT) SEDIT::LINEARIZE-CLISP (SEDIT::NODE SEDIT::CONTEXT +SEDIT::PAREN-WIDTH SEDIT::SPACE-WIDTH SEDIT::ITEM #:G115 SEDIT::MIN-INDENT) FM.RESETSHAPE (WINDOW) +\FONTFILENAME.NEW (SIZE FAMILY EXTENSION) SEDIT::COMPUTE-FORMATS-AND-FORMAT-VALUES (SEDIT::NODE +SEDIT::CONTEXT SEDIT::SUBNODE) UTF8.INCCODEFN (STREAM CODE) OPENP (ACCESS) SEDIT::LINEARIZE-DOTLIST ( +SEDIT::CONTEXT) HVREADERR (M1 M2) EVQ (X) IRNDLIST (PATH I) \DSPCOLOR.PSC (STREAM) GRAPHOBJ.IMAGEBOXFN + (GROBJ STREAM DATUM SCALE) \LFFindDirectoryVol (volumes currentVol) COMP.ARGTYPE (FN) WHENCLOSE ( +NARGS STREAM) \GETFONTDESC (SPEC DEVICE NOERRORFLG) STREAMADDPROP (STREAM PROP VAL) +COPY.WINDOW.TO.BITMAP (WINDOW) TEDITWINDOWP (TEXTOBJ) \FONTINFOFROMFILENAME.OLD (FONTFILE FILENAMELIST + DEVICE) UNDOPRINT (X) COMPILER::CLOSURE-ANNOTATE-LABELS (COMPILER::NODE COMPILER::*NEED-STORAGE*) +DBG::STACK-FRAME-VALUE-COMMAND (DBG::PROP DBG::VALUE DBG::DATUM DBG::WINDOW) COLLECTFNDATA (LST X) +FASL::TABLE-STATS (FASL::TABLE) SEDIT::SET-SELECTION-STRING (TYPE SEDIT::CONTEXT SEDIT::NODE SEDIT::ITEM + SEDIT::OFFSET) \LFCloseDevice (VOL) FM.RESETMENU (WINDOW ITEM NWAY) HPINITRDTBL (RDTBL) OPT.COMPINIT +(X) SEDIT::QUOTE-CURRENT-SELECTION (SEDIT::CONTEXT SEDIT::SELECTION) COMPILER::ENV-DECLARE-A-GLOBAL ( +COMPILER::VAR COMPILER:ENV) \READSTRIKEFONTFILE (STRM N WIDTH) SPELLFILE.MATCHINGDIRS (DIRS) +SHOW.CLEARINGHOUSE (ORG DOM) \READACFONTFILE (WID) PFCOPYBYTES (SRCFIL DSTFIL DSTRM SSTRM) SEDIT::REDISPLAY + (SEDIT::CONTEXT) COMPILER::ENV-DECLARE-A-SPECIAL (COMPILER::VAR COMPILER:ENV) FASL::ADD-OP-TRANSLATION + (FASL::NAME FASL::TABLE FASL::OPCODE) SEDIT::CREATE-NULL-LIST (SEDIT::CONTEXT SEDIT::WIDTH) +MOVETOFILE (NAME TOFILE) PFI.AFTER.NEW.PAGE (STREAM OLDFONT) FASL::FASL-END-OF-BLOCK (STREAM) +\TEDIT.NEXT.LINE.BOTTOM (LINE CURYBOT PREVLINE) PF* (FN) RETURN (MV) SEDIT::SET-SELECTION-LITATOM ( +TYPE SEDIT::CONTEXT SEDIT::NODE SEDIT::ITEM SEDIT::OFFSET) FM.RESETSTATE (WINDOW X INITSTATE) +FASL::DEFINE-SINGLE-OPCODE (FASL::TABLE FASL::OPCODE FASL::NAME FASL::TRANS-NAME) SEDIT::COMPILE-STRUCTURE + (SEDIT::CONTEXT SEDIT::NAME TYPE SEDIT::BODY SEDIT::PW) HVFWDREAD (FILE RDTBL) CHANGETRAN1 ( +RECORDEXPRESSION CHANGEWORD) COMPILER::CLOSURE-ANNOTATE-CATCH (COMPILER::NODE COMPILER::VAR +COMPILER::*NEED-STORAGE* COMPILER::IN-LOOP-P) BRHC/LAYOUT/TERMINAL (X/SW GN) PPROMPT2 (ITEM) ERRORMESS + (CONDITION) FINDFNDEF (FROMFILE FN) TRAPLOOP (LOOP) SEDIT::CFV-DOTLIST (SEDIT::ENVIRONMENT +SEDIT::NUMBER-OF-SUBNODES SEDIT::SPACE-WIDTH SEDIT::SUBNODES SEDIT::WIDTH-OF-DOT) FASL::SETESCAPE ( +FASL::TABLE) \BASEBYTES.BLOCKIO (DIRECTION) NORMLOOP (LIST) \TERPRI.PSC (IMAGEDATA NEWY) +\SFROTATECSINFOOFFSETS (ROTATION CSINFO BITMAPHEIGHT OFFSETS WIDTHS) PRINTFNDEF (TYPE START END) +\FONTRESETCHARWIDTHS (FIRSTCHAR LASTCHAR CSINFO offsets maxcharcode mincharcode widths) \GETLEAFSTRING + (ADDR LEN) ROTATE-BITMAP (SOURCE SOURCE-HEIGHT DESTINATION SOURCE-WORD-WIDTH) SEDIT::SET-POINT-STRING + (TYPE SEDIT::CONTEXT SEDIT::NODE SEDIT::OFFSET SEDIT::ITEM SEDIT::COMPUTE-LOCATION?) +\BASEBYTES.IO.INIT (BASE OFFST N) FM.CHANGESTATE (WINDOW) GRAPHOBJ.DISPLAYFN (GROBJ STREAM SCALE GRAPH +) SEDIT::BUILD-NODE (CL:STRUCTURE SEDIT::NODE-TYPE) HVRPTREAD (FILE RDTBL) DBG::STACK-FRAME-STOREFN ( +DBG::WHICHSPEC DBG::FRAMESPEC DBG::PLIST DBG::NEWVALUE) COMPILER::ENV-DECLARE-GLOBALS (COMPILER:ENV +COMPILER::GLOBALS) SEDIT::MARKASCHANGEDFN (SEDIT::FORM SEDIT::NAME TYPE) MakeMenuOfPrinters (MENUTITLE +) \BASEBYTES.SETFILEPTR (I) ROTATE-BITMAP-LEFT (SOURCE SOURCE-WIDTH DESTINATION DEST-WORD-WIDTH) +\BASEBYTES.READP (STREAM CO FLG) \SFMAKECOLOR (BWCSINFO) \BASEBYTES.PEEKBIN (STREAM CO) +\DSPTOPMARGIN.PSC (STREAM) FASL::STORE-VALUE (FASL::OBJ) FASL::DEFINE-OPCODE-RANGE (FASL::NAME) +UNICODE.UNMAPPED (TRANSLATION-TABLE CODE FORWARD) \BASEBYTES.BOUT (BYTE) STRIKECSINFO (CSINFO) +IMPORTFILE (RETURNFLG) \BASEBYTES.BIN (STREAM) UPDATEWFROMIMAGE (WINDOW IMAGE) CH.FINDSERVER ( +ORGANIZATION DOMAIN) WRITESTRIKEFONTFILE (FONT FILENAME W) OPT.NOTJUMP (X) \BASEBYTES.OPENFN (NAME +ACCESS) LOADFILEMAP (FILE) DBG::STACK-FRAME-FETCHFN (DBG::WHICHSPEC DBG::FRAMESPEC) BRECOMPILE2 (FN X +NX CHAR) COMP.NAMEDLET (ARGS FN X) \BASEBYTES.NAME.FROM.STREAM (STREAM) EVAL (U) FILLCIRCLE.IP (STREAM + RADIUS CENTERX CENTERY TEXTURE OPERATION) FASL::DO-OP (STREAM FASL::OP) UTF8.OUTCHARFN (CHARCODE) +TTMAKECOMPLEXCHAR (PRINTCHARS C REALCHAR) FASL::FETCH-VALUE (FASL::TABLE FASL::INDEX) FASL::COLLECT-LIST + (FASL::NELTS STREAM FASL::RESULT) FASL::CLEAR-TABLE (FASL::TABLE) PRESSFILEP (LEN) SEDIT::MUTATE ( +SEDIT::CONTEXT SEDIT::SELECTION SEDIT::PROMPTWINDOW) MULTIFILEINDEX (FL PRINTOPTIONS) \FBITMAPBIT ( +BASE X Y OPERATION HEIGHTMINUS1 RASTERWIDTH) BRHC/LAYOUT/DAUGHTERS (DS X/SW X MOMLST) RNUMBER (MSG +POSITION MSGFONT DIGITFONT INCLUDEABORTFLG FLOATINGPTFLG POSITIVEONLYFLG ACCEPTTYPEINFLG) +\MAKEBASEBYTESTREAM (BASE OFFST WRITEXTENSIONFN) \MBS.OUTCHARFN (CHAR) CLOCKDIFFERENCE (OLDCLOCK) +\BASEBYTES.TRUNCATEFN (BO I EO) \FBITMAPBIT.UFN (BASE HEIGHTMINUS1 Y RASTERWIDTH X BITMASK WORDBASE +OPERATION) OPENSTRINGSTREAM (STR ACCESS) FASL::CONVERT-FASL-DATE (DATESTRING DATE-POS BEGIN-POS +END-POS SHORT-DATE-STRING) SEDIT::MENU-SELECTEDFN (SEDIT::WINDOW SEDIT::CONTEXT SEDIT::COMMAND SEDIT::ITEM + SEDIT::EXTRA-ARGS) \PFInitFileDescriptors (lastVolNum index) MAKELISPXMACROSCOMS (X Z) COMP.SETARG (A + ARG) TTYINEDIT (PROMPT EXPRS \DSP RDTBL TTSCRATCHFILE) DBG::STACK-FRAME-PROPERTIES (DBG::POS DBG::FNNAME +) SCANFILE1 (DICT) MAKEPROPSCOMS (X PAIR) \DSPBOTTOMMARGIN.PSC (STREAM) PFI.MAKE.LPT.STREAM (IMAGETYPE + DEFAULTOPTIONS) RECORDECL1 (STRUCNAME FIELD Y ARRAYDESC PARENT) COMPILER::ENV-DECLARE-SPECIALS (COMPILER:ENV + COMPILER::SPECIALS) SEDIT::NEW-FUNCTION-BODY (SEDIT::DUMMY-BODY) BRHC/LAYOUT (H X W MOMLST N) +GetImageFile (W) \TEDIT.RESHAPEFN (W OLDREGION NEWWHEIGHT NEWWWIDTH NEWBOTTOM NEWLEFT) FIX/SCALE ( +PARAMVALUE V SCALE) CIRCSHADE.IP (STREAM RADIUS CENTERX CENTERY TEXTURE OPERATION) SEDIT::SET-LIST-FORMAT + (SEDIT::FN) TTINSERTSECTION (WIDTH) \MOVEWORDS (DBASE DOFFSET SBASE SOFFSET NWORDS) +COMPILER::CLOSURE-ANNOTATE-CALL (COMPILER::NODE COMPILER::IN-LOOP-P) \SETPOS.PSC (STREAM) MAKEXYPT (IX + IY) FM.HIGHLIGHTITEM (WINDOW) \COURIER.OUTPUT.ABORTED (STREAM) GRAPHOBJ.COPYFN (GROBJ DATUM NEW) +RECORDECLTAIL (FIELDNAMES TRANSLATION DEC LOCALVARS TYPES SETQPART SETQTAIL) HVREADEND (FILE RDTBL) +LOADFNSCAN (DICT) CREATEDSKDIRECTORY (volName vol) TEDIT.RAW.INCLUDE (STREAM HOLDING.FILE +START-OF-PIECE) \DSPSPACEFACTOR.PSC (STREAM FACTOR OLDFACTOR) \ZEROBYTES (BASE FIRST LAST) \ADDOFD ( +STREAM) EXPANDATTACHEDWINDOWS (WINDOW ATTACHEDWINDOW) SEDIT::MENU-SUBSTITUTE-SELECTEDFN (SEDIT::ITEM +SEDIT::WINDOW SEDIT::FIND-ITEM SEDIT::SUBITEM SEDIT::BUTTONS) TOTOPW (WINDOW NOCALLTOTOPFNFLG) +SEDIT::SET-POINT-LITATOM (TYPE SEDIT::CONTEXT SEDIT::NODE SEDIT::ITEM SEDIT::COMPUTE-LOCATION?) +COMP.ARG (X OP) MAKE-UNICODE-FORMATS (STREAM BYTECOUNTVAR BYTECOUNTVAL NOERROR CHARCODE) \ZEROWORDS ( +ENDBASE DIF) /PUT+1 (ATM PROP TAIL) OPT.CHLEV (N) DBG::BACKTRACE-ITEM-SELECTED (DBG::ITEM DBG::MENU +DBG::TTYWINDOW DBG::FRAMESPECFN DBG::BKPOS DBG::POS) SEDIT::SELECT-SEGMENT-LITATOM (SEDIT::SELECTION +SEDIT::NODE SEDIT::ITEM SEDIT::OFFSET) \DELETEOFD (OFD) FM.GETSTATE (WINDOW NWAY ITEM) FONTNAMELIST ( +FONTDESC) GRAPHOBJ.GETFN (STREAM GRAPH) SEDIT::BUILD-INTERNAL-STRUCTURE (SEDIT::ROOT STRING CL:STRUCTURE +) HVREADCHECKGETFN (FN) RECORDECLBLOCK (DEC FIELDS DLIST) COMPILER::ENV-PROCLAIMED-GLOBAL-P (COMPILER::NAME + COMPILER:ENV) \GC.MODIFY.BIGREFCNT (CASE) SEDIT::SELECT-SEGMENT-DEFAULT (SEDIT::NODE) TMPSUBFN (FN X) + \SAFE.FIRST (LIST.OR.ATOM) WOVERLAPP (W1 W2) FILLNGON.IP (IPSTREAM TEXTURE OPERATION CENTERX CENTERY +RADIUS) DOATTACHEDWINDOWCOM2 (ATTACHEDW) PRINTERSTATUS (PRINTER) BITBLT (SOURCETYPE DESTINATION +OPERATION CLIPPINGREGION SOURCE DS) COMPILER::ENV-PROCLAIM-GLOBAL (COMPILER::NAME COMPILER:ENV) +COMPILER::CLOSURE-ANNOTATE-BLOCK (COMPILER::NODE COMPILER::VAR COMPILER::*NEED-STORAGE*) \BACKFORMAT ( +TEXTOBJ WHEIGHT) \BLTSHADE.BITMAP (DESTINATIONBITMAP OPERATION) \BITBLT.BITMAP (DESTBITMAP +SOURCEBITMAP DESTINATIONLEFT DESTINATIONBOTTOM SOURCELEFT SOURCEBOTTOM CLIPPEDSOURCELEFT +CLIPPEDSOURCEBOTTOM OPERATION) OPT.JUMPCHECK (C) \SEARCHOPENFILES (NAME) \LEAF.MAYBE.FLUSH.CACHE ( +SEQUIN) COMPILER::TEST-ANALYSIS (COMPILER::FN COMPILER::TREE) CHAT.TYPEOUT (DPYNAME WINDOW INSTREAM +OUTSTREAM HANDLECHARFN TYPEIN.PROCESS) SEDIT::SCAN-STRING (STRING SEDIT::READ-TABLE CL:LENGTH SEDIT::FONT + SEDIT::ESC-CHAR SEDIT::NODE) INFILE (FILE) \LFCloseFile (STREAM) SEDIT::ATOM-CHANGE-RELINEARIZE ( +SEDIT::CONTEXT CL:STRUCTURE) OPENFILE (FILE ACCESS RECOG PARAMETERS OPTIONAL) IMPORTEVAL (FORM Z) +IOFILE (FILE) \GC.BIGREFCNT.MISSING (PTR ENTRY) /LISPXPUT (PROP L) LOADFNS-FINDFILE (FN) +COMPILER::SUBSTITUTABLE-P (COMPILER::VAR COMPILER::ARG) \GC.LOOKUP.BIGREFCNT (ENTRY) GRAPHOBJ.PUTFN ( +GROBJ STREAM DATUM OBJORIGIN) IDLE.SHOW.OPTION (OPTION VALUE) LOADBLOCK (FN LDFLG) ARG (VAR M) OUTFILE + (FILE) GRAPHOBJ.BUTTONEVENTINFN (GROBJ WINDOW DATUM) OUTFILEP (FILE) RECORDECL0 (DEC PARENT +TRANSLATION) DBG::BACKTRACE-MENU-BUTTONEVENTFN (DBG::WINDOW) GETBLOCKDEC (FN) CIRCSHADE.DISPLAY ( +CENTERX CENTERY RADIUS STREAM TEXTURE OPERATION) HVBAKREAD (FILE RDTBL X CH RPTCNT) SIMPLE.FINDFILE ( +DIRLST FILE) \REFCNT (PTR) MAKEPRESS (FILE PFILE FONTS HEADING TABS PRINTOPTIONS) +SEDIT::MENU-PRINTBASE-SELECTEDFN (SEDIT::ITEM SEDIT::PRINTBASE-VALUE-ITEM SEDIT::BUTTONS SEDIT::WINDOW + $$OUTPUT) \EQREFCNT1 (PTR) LOADEFS (FNS FILE) \SET.FINALIZATION.FUNCTION (TYPE FN) OPT.JFIXPASS (JL +FN) NIL +SETFREE SAVEDEF (SAVEDDEFS) DASSEM.DASMBIND (CD CODELOC) DUMPDATABASE1 (DUMPEDFLG) +COMPILE-FILE-SCAN-FIRST (FIRSTFORMS) MSSTOREDATA (MSDBEMPTY) WINDOW.MOUSE.HANDLER (\LastInWindow +\LastWindowButtons) \LEAFINIT (\LEAFCONNECTIONLOCK) \GS.INITBUF (\GS.NUMLEN) TEDIT.NEW.FONT ( +TEDIT.KNOWN.FONTS) \INSTALL.EXTERNALFORMAT (*EXTERNALFORMATS*) GETNSPRINTER (NS.DEFAULT.PRINTER) +MSPRGDWIM (DWIMESSGAG) *WHO-LINE-HOST-NAME-ENTRY* (*WHO-LINE-HOST-NAME-ENTRY*) \FM.FORMAT ( +\FM.GROUP-ID-COUNTER) FASL:*DEFAULT-OPTABLE* (FASL:*DEFAULT-OPTABLE*) RAIDROOTFRAME (ROOTFRAME) +SEDIT::INITIALIZE (MARKASCHANGEDFNS SEDIT::TYPES SEDIT::TYPE-ROOT SEDIT::TYPE-UNKNOWN SEDIT::TYPE-GAP +SEDIT::TERMINAL-TABLE SEDIT::BASIC-GAP SEDIT::ARGS-GAP SEDIT::BODY-GAP SEDIT::PENDING-SELECTION +SEDIT::INITIAL-SELECTION SEDIT::SCRATCH-SELECTION SEDIT::PENDING-CARET SEDIT::SELECTION-PENDING? +SEDIT::TEMP-POINT SEDIT::TEMP-SELECTION) HASHBEFORECLOSE (SYSHASHFILE SYSHASHFILELST) TTWAITFORINPUT ( +\PFW.FIRSTTIME \RMARG) FASL:CURRENT-VERSION (FASL:CURRENT-VERSION) HVFWDCDREAD (BACKREFCNT BACKREFS) +\SET.STORAGE.STATE (\STORAGEFULLSTATE \SYSTEMCACHEVARS) GRAPHERIMAGEFNS (GRAPHERIMAGEFNS) TTYIN ( +TTYINBUFFER CTRLUFLG) INFILECOMSPROP (VAL) \GETPILOTBBTSCRATCHBM (\PILOTBBTSCRATCHBM) +*WHO-LINE-SYMBOL-SPACE-ENTRY* (*WHO-LINE-SYMBOL-SPACE-ENTRY*) \TEDIT.COMMAND.LOOP (TEDIT.COPY.PENDING +TEDIT.COPYLOOKS.PENDING TEDIT.MOVE.PENDING TEDIT.DEL.PENDING) MAKEINITBFS (\MAINDISK \SWAPDSK1 +\SWAPDSK2 \SWAPREQUESTBLOCK \DISKREQUESTBLOCK \FREEPAGEFID) MSCOMMAND (S) *WHO-LINE-ANCHOR* ( +*WHO-LINE-ANCHOR*) CHAT.CLOSE (CHATWINDOWLST) ANALYZE-PARAMETER (%%LET-LIST) +%%INITIALIZE-STANDARD-STREAMS (*QUERY-IO* *DEBUG-IO* *TERMINAL-IO* *ERROR-OUTPUT*) TEDIT.DISPLAYTEXT ( +\PRIMTERMSA) START.NEW.LINE (\CURSOR \ARROW) \DECODETRANSITION (PENDINGINTERRUPT) TTYIN.READ (\BUFFER) + UNIX-USERNAME (\UNIXSTRING.GLOBALRESOURCE) CL::%%DEFAULT-DEFSTRUCT-TYPE (CL::%%DEFAULT-DEFSTRUCT-TYPE +) GETCHATWINDOW (CHATWINDOW CHATWINDOWLST) CL::%%INV-2-SQRT3 (CL::%%INV-2-SQRT3) +\ADVANCE.STORAGE.STATE (\STORAGEFULLSTATE \SYSTEMCACHEVARS) LOADFROM (LASTWORD) TTYDISPLAYSTREAM ( +*STANDARD-OUTPUT* \TERM.OFD \LINEBUF.OFD *STANDARD-INPUT* TtyDisplayStream) \FTP.OPEN.CONNECTION ( +\FTPCONNECTIONS) HISTORYFIND (LASTHISTORY HISTORYFLG) WHO-LINE-HOST-NAME (*WHO-LINE-HOST-NAME*) +MAKEMACFORMAT (*XEROXTOMACMAP* *MACTOXEROXMAP*) CHARACTER (\\PNAMESTRING.GLOBALRESOURCE) TTYIN.CLEANUP + (TTYINBUFFER) \DSKDISPLAY.DESTROY.WINDOW (\DSKDISPLAY.WINDOW) RECLAIMMIN (\RECLAIM.COUNTDOWN +\RECLAIMMIN) ANALYZE-KEY (%%LET-LIST) COMP.PUSHCALL (LEVEL FRAME) TTPRIN1 (\CURSORCOL) TTYIN.FINISH ( +\ENDBUFFER \CURRENTDISPLAYLINE) DEFAULT.INSPECTW.TITLECOMMANDFN (ItemWCommandMenu IT) \IMAGEIOINIT ( +\NOIMAGEOPS) \TEDIT.HARDCOPY.FORMATLINE (*TEDIT-CURRENTPARA-CACHE* *TEDIT-CACHED-FMTSPEC*) +LOOKUP.NS.SERVER (NS.SERVER.NAMES.TO.ADDRESSES) READATABASE (MSDBEMPTY) VALUOF-EVENT (LINE) +COMPILER::GENCODE-LABELS (COMPILER::*CODE*) GCGAG (GCMESS) \DSKDISPLAY.CREATE.WINDOW ( +\DSKDISPLAY.WINDOW DSKDISPLAY.POSITION) \FM.EDIT-SETUPTTBL (\FM.EDIT-TTBL) UNIX-FULLNAME ( +\UNIXSTRING.GLOBALRESOURCE) TTYIN.SETUP (\CHARWIDTH \FONT \COMMENTFONT \TTYIN.LAST.COMMENTFONT +\TTYIN.LAST.FONT \CHARHEIGHT \DESCENT \TEXTURE \TTPAGELENGTH \LMARG \RMARG \INITPOS) +SEDIT::INITIALIZE-LISTS (SEDIT::TYPES SEDIT::TYPE-LIST SEDIT::TYPE-DOTLIST SEDIT::TYPE-QUOTE) +SEDIT::INTERNAL-WRAPPERS (SEDIT::INTERNAL-WRAPPERS) CL::%%EXP-TABLE (CL::%%EXP-TABLE) FW-INIT-PROPS ( +FW-AllFiles? FW-Anchor FW-Filters FW-Font FW-Interval FW-Justified? FW-Position FW-Shade FW-SortFn) +TTYIN1 (\INITPOS \LASTAIL \PROMPT1 TABS UNREADBUF \TTSCRATCHFILE.GLOBALRESOURCE \FIRSTTIME \LASTCHAR +\PFW.FIRSTTIME \CURSOR CTRLVFLG \RESTOREBUFCODES) \DEFINEDEVICE (\DEVICENAMETODEVICE \FILEDEVICENAMES +\FILEDEVICES) DEFAULT.INSPECTW.PROPCOMMANDFN (SetPropertyMenu) PACKAGE-REHASH-THRESHOLD ( +PACKAGE-REHASH-THRESHOLD) TTCRLF.ACCOUNT (\CURSORROW \LOC.ROW.0 \BMARG \CURSORCOL) CLISPATOM (CHARLST) + TTYIN1RESTART (\ARROW \FIRSTLINE \CURSOR \BUFFER \ENDBUFFER \DELETING) U-CASE ( +\\PNAMESTRING.GLOBALRESOURCE) BRKDWNCONSES (BDPTR) \VFMMerge1 (\VFMxtraBuffer mergeFlag) +\GETMISCSOCKET (\MISC.SOCKET) SPY.OVERFLOW (SPY.NEXT SPY.OVERFLOWED) FINDFIELDUSAGE (FIELD.USAGE) +MOVE.TO.NEXT.LINE (\ARROW \CURSOR) UNIX-GETENV (\UNIXSTRING.GLOBALRESOURCE) LAYOUTSEXPR1 (RESULT) +\10MB.CREATENDB (\10MBTYPE.TRANSLATIONS) *DOCUMENTATION-HASH-TABLE* (*DOCUMENTATION-HASH-TABLE*) +\CHANGE.ETHER.TRACING (\RAWTRACING) EDITCOLUMN (\HOMECOL) UNIX-GETPARM (\UNIXSTRING.GLOBALRESOURCE) +COMPILER::COMPILE-DEFINER-PROCESS-FUNCTION (COMPILER::*PROCESSED-FUNCTIONS* COMPILER::*UNKNOWN-FUNCTIONS* +) MSTRYSPELL (SPELLING) SEDIT::REPLACE-CHARS (SEDIT::BUTTON-STRING-NODE SEDIT::BUTTON-STRING) +TTYINREAD (READBUF) INFILECOMSVAL (LITERALS VAL) SEDIT::INITIALIZE-COMMENTS (SEDIT::TYPES +SEDIT::TYPE-COMMENT SEDIT::TYPE-COMMENT-WORD) WTFIX1 (FAULTPOS CLEARSTKLST FAULTFN VARS FAULTX +LCASEFLG CLISPFLG CLISPCHANGE) CL::%%EXP-POLY (CL::%%EXP-POLY) \PFEnsureInitialized (\PFInitialized) +PROMPTFORWORD (\PROMPTFORWORDTTBL) BREAKDOWN (BRKDWNLST BDPTR) CLEARHASHFILES (SYSHASHFILELST +SYSHASHFILE) GO.TO.ADDRESSING (\CURSORROW \CURSORCOL) CHNGNM (NOLINKMESS) D-ASSEM:+IVAR-CODE+ ( +D-ASSEM:+IVAR-CODE+) CLDISABLE (NOFIXFNSLST0 NOFIXVARSLST0 CLISPCHARS CLISPCHARRAY) RAIDSTACKCMD ( +FRAME# ROOTFRAME) SET.TTYINEDIT.WINDOW (TTYINEDITWINDOW) \HARDCURSORUP (\SOFTCURSORP \CURRENTCURSOR) +LOCALVARS (LOCALVARS SPECVARS) RECORD.FIELD.VALUE0 (FIELD.USAGE) OPT.RETOPT (ANY) +PROVIDE.PROMPTING.WINDOW (\TTYREGIONOFFSETSPTR) ERASEPROPS (SMASHPROPSLST1) \NAMEDTAB.INIT ( +\NAMEDTAB.IMAGEFNS) FW-CREATE-OFD-LIST (FW-OFDList) *WHO-LINE-NAME-FONT* (*WHO-LINE-NAME-FONT*) CLBUFS + (READBUF CTRLUFLG) \ALLOCATE.ETHERPACKET (\NEWPACKETCOUNTER) SETINITIALS (INITIALS FIRSTNAME) +D-ASSEM:+LAMBDA-SPREAD+ (D-ASSEM:+LAMBDA-SPREAD+) %%LIT-ARRAY-SIZES (%%LIT-ARRAY-SIZES) \REMOVEDEVICE +(\FILEDEVICENAMES \DEVICENAMETODEVICE \FILEDEVICES) MSINTERPRET (MSTHOSE) INITDATATYPENAMES ( +\FINALIZATION.FUNCTIONS) COMP.EVALFORM (LEVEL) CL::%%LOG-BASE2-E (CL::%%LOG-BASE2-E) +\PROCESS.AFTER.EXIT (\PROC.READY) \CENTICLOCK (\CENTICLOCKFACTOR) D-ASSEM:+PVAR-CODE+ (D-ASSEM:+PVAR-CODE+ +) COMPILER::GENCODE-IF (COMPILER::*TAG-NUMBER*) TTDELETELINE (\CURSOR \ENDBUFFER) +\MAIKO.SET.STORAGE.STATE (\STORAGEFULLSTATE \SYSTEMCACHEVARS) \PRESSINIT (\PRESSIMAGEOPS) +\CH.UPDATE.CACHE (\CH.CACHE) *WHO-LINE-ENTRIES* (*WHO-LINE-ENTRIES*) D-ASSEM:+FVAR-CODE+ (D-ASSEM:+FVAR-CODE+ +) SEDIT::*FORMAT-ALIAS-DEPTH-LIMIT* (SEDIT::*FORMAT-ALIAS-DEPTH-LIMIT*) \IDLE.PROMPTING.WINDOW ( +\IDLE.PASSWORD.SET) \CURSORDESTINATION (\CURSORDESTLINE \CURSORDESTWIDTH \CURSORDESTHEIGHT +\CURSORDESTRASTERWIDTH \CURSORDESTINATION) XCL::*WHERE-IS-CASH-SIZE* (XCL::*WHERE-IS-CASH-SIZE*) +INSTALL-WHEELSCROLL (WHEELSCROLLINTERRUPTS) \MEDW.CURSOR (\CURSORHOTSPOTX \CURSORHOTSPOTY) +*WHO-LINE-SYMBOL-SPACE* (*WHO-LINE-SYMBOL-SPACE*) \OPENLINEBUF (\LINEBUF.OFD *STANDARD-INPUT*) +*WHO-LINE-USER-ENTRY* (*WHO-LINE-USER-ENTRY*) *WHO-LINE-ENTRY-REGISTRY* (*WHO-LINE-ENTRY-REGISTRY*) +SEPRCASE (CLISPCASEARRAYS SEPRCASEARRAYS) EMBEDPROG (BINDINGS) D-ASSEM:+LAMBDA-NO-SPREAD+ ( +D-ASSEM:+LAMBDA-NO-SPREAD+) \EXTENDEDVMEMINIT (\XVmemFmapBase \XVmemFmapHighBase \XVmemDiskBase +\LASTVMEMFILEPAGE \XVmem) COMP.PUSHNILS (LEVEL FRAME) HERALD (HERALDSTRING) \CANONICALIZE.PUP.HOSTNAME + (\HOSTNAMES) D-ASSEM:+NLAMBDA-NO-SPREAD+ (D-ASSEM:+NLAMBDA-NO-SPREAD+) DWIMIFYFNS (NOFIXFNSLST0 +NOFIXVARSLST0) PACK* (\\PNAMESTRING.GLOBALRESOURCE) SEDIT::MENU-CLOSEFN (SEDIT::MENUS) EDLOCL (L) +MAKEIBMFORMAT (*XEROXTOIBMMAP* *IBMTOXEROXMAP*) SPY.FIND.TREE (SPY.TREE) FIXSPELL (EDITQUIETFLG) +COMPILER::GENCODE-GO (COMPILER::*NON-LOCALS*) \TEDIT.PROMPT.PAGEFULLFN (\CURRENTDISPLAYLINE NEWTOP) +DWIMLOADFNS? (SIDES) EDITXTR (L) %%ONED-ARRAY (%%ONED-ARRAY) MSERASE (MSCHANGEDARRAY MSDATABASELST +MSFILETABLE MSARGTABLE MSDBEMPTY) \LOAD-STREAM (LOADEDFILELST SYSFILES) SEDIT::SETUP-PROFILE ( +*READ-BASE* *READ-SUPPRESS* *PACKAGE* *PRINT-ESCAPE* *PRINT-PRETTY* *PRINT-CIRCLE* *PRINT-RADIX* +*PRINT-GENSYM* *PRINT-ARRAY* XCL:*PRINT-STRUCTURE*) \TEDIT.REFRESH.SHOWSEL (GLOBALSEL) RAIDCOMMAND ( +FRAME# VPRINTLEVEL ALINKS?) \REMOVEDEVICE.NAMES (\DEVICENAMETODEVICE \FILEDEVICENAMES) EDITMBD (L) +CHAT (CHAT.HOSTMENU) OBTAIN.MONITORLOCK (SI::*LOCKED-MONITOR*) DISPLAYAFTERENTRY ( +\DisplayStoppedForLogout) COMPSETREAD (READBUF REREADFLG) CLISPATOM0 (SUBPARENT %#UNDOSAVES +NOFIXVARSLST0 CLISPCHANGE) EDITMV (COM UNFIND) \VFMPutNext (\VFMoldPtr \VFMlowPtr) INSPECT/BITMAP ( +InspectBitmapMenu) DISPLAYBEFOREEXIT (\DisplayStoppedForLogout) *WHO-LINE-VMEM-ENTRY* ( +*WHO-LINE-VMEM-ENTRY*) INITATOMS (\SCRATCHSTRING \OneCharAtomBase) \PEEKPUP (\PEEKPUPNUMBER +PUPTRACEFILE PUPTRACEFLG) COMPILER::FRAME-ANNOTATE-TAGBODY (COMPILER::*REFERENCES*) +CL:LAMBDA-PARAMETERS-LIMIT (CL:LAMBDA-PARAMETERS-LIMIT) TTYINBUFFERSTREAM (\TTYINBUFFERSTREAM) FW-LOOP + (FW-OpenFiles FW-ReInit?) CL::%%SQRT3 (CL::%%SQRT3) \INDICATESTRING (PRXFLT) PFI.DEFAULT.HANDLER ( +*PFI-LOCATIONS*) \SOFTCURSORUP (\SOFTCURSORWIDTH \SOFTCURSORHEIGHT \SOFTCURSORUPBM \SOFTCURSORDOWNBM +\CURRENTCURSOR \SOFTCURSORP) DOICONWINDOWCOM (IconWindowMenu) FIXFIELDORDER (FIELDS.IN.CREATE) +CL::%%2-SQRT3 (CL::%%2-SQRT3) SEDIT:*EDIT-FN* (SEDIT:*EDIT-FN*) \SOFTCURSORUPCURRENT (\SOFTCURSORUPP +\CURSORDESTLINE) FIXATOM (TAIL CHARLST FAULTX) STOPSCAN? (CLTYP) \DONEWEPHEMERALPAGE ( +\PAGEFAULTCOUNTER) *PACKAGE-FROM-NAME* (*PACKAGE-FROM-NAME*) MAKESYS (MAKESYSDATE) INFILECOM (VAL) +SPY.START (\PERIODIC.INTERRUPT.FREQUENCY \PERIODIC.INTERRUPT) SETUPPAGEMAP (NEXTPM NEXTVMEM) +FILEWATCHPROP (FW-ReInit?) MSHASHLIST1 (PREVVALUE) USEREXEC (READBUF READBUFSOURCE REREADFLG) FIXATOM1 + (FAULTPOS) TEDIT.ADD.STYLESHEET (*TEDIT-PARASTYLE-CACHE* TEDIT.STYLES *TEDIT-STYLESHEET-SAVE-LIST*) +*SHORT-BACKTRACE-FILTER* (*SHORT-BACKTRACE-FILTER*) D-ASSEM:+NLAMBDA-SPREAD+ (D-ASSEM:+NLAMBDA-SPREAD+ +) FORMAT-EAT-WHITESPACE (*FORMAT-INDEX*) DOATTACHEDWINDOWCOM (WindowMenu) SEDIT::CHANGE-PACKAGE ( +*PACKAGE*) SETUSERNAME (USERNAME \USERNAME) CONSTANTS (COMPVARMACROHASH) CLOSENSOCKET (\NSOCKETS) +PURGENSFONTS (\FONTSINCORE) \VFMClearBuffers (\VFMbufferPool) CCCSUBFN? (ALL-CODE-BASES SUBMAPS) +MaxBkMenuWidth (MaxBkMenuWidth) INSPECT/ATOM (InspectPropsMenu) \GET.IOCB (\IOCB.INPUT.ALLOC +\IOCB.OUTPUT.ALLOC \IOCBFREELIST) *WHO-LINE-LAST-VMEM* (*WHO-LINE-LAST-VMEM*) \TURN.ON.HUNKING ( +\UNBOXEDHUNK.TYPENUM.TABLE \CODEHUNK.TYPENUM.TABLE \PTRHUNK.TYPENUM.TABLE \HUNKING?) +DEFAULT.BACKGROUND.COPYFN (BackgroundCopyMenu) OPT.DELTAGREF (CL:LABELS) MSSEEKPHRASE (LASTPARSED S +PARSED CONJUNCTIONS LASTADVERB RESETS) COMPILER::GENCODE-CATCH (COMPILER::*TAG-NUMBER* +COMPILER::*STACK-NUMBER*) TEDITCHAT.MENUFN (TEDITCHAT.MENU) SEDIT::CHANGE-PRINTBASE (*PRINT-BASE* +*PRINT-RADIX*) EDIT4F (L UNFIND COM) TTPROMPTCHAR (\LOC.ROW.0 \INITCRLFS \CURSORROW) \ALLOCMAPBUFFER ( +SYSTEMBUFFERLIST) MSPRGERR (ERRORS) INFILECOMTAIL (DWIMLOADFNSFLG) MAYBE.PRETTYFILEINDEX ( +NOTLISTEDFILES) \LFCreateDevice (\LFdevice) CLISPFORVARS (FIRSTI.V. I.V. MAKEPROGFLG VARS IVINITFLG +INITVARS UNDOLST I.S.TYPE) U/L-CASE (\CURSOR) \NSGATELISTENER (\NSROUTER.PROBECOUNT) CHAT.OSTYPES ( +CHAT.OSTYPES) DWIMERRORRETURN (CLISPERTYPE) TTYIN.SCRATCHFILE (TTYINEDIT.SCRATCH) NWAYBUTTON.INIT ( +NWAYBUTTONIMAGEFNS) DASSEM.COUNTVARS (VARCOUNT) CL::%%ASIN-QPOLY (CL::%%ASIN-QPOLY) NOTE (POSSLIST##) +FW-AFTERMOVEFN (FW-Dormant?) EDITCONT (L) PFI.ENQUEUE (\PFI.PROCESS \PFI.PROCESS.COMMANDS) DWIM ( +DWIMFLG ADDSPELLFLG) COMP.SPREAD (LEVEL FRAME) PFI.SETUP.TRANSLATIONS (*PFI-FUNNY-CHARS*) +*WHO-LINE-TTY-STATE-ENTRY* (*WHO-LINE-TTY-STATE-ENTRY*) MAKEISOFORMAT (*XEROXTOISO8859MAP* +*ISO8859TOXEROXMAP*) DOBACKGROUNDCOM (BackgroundMenu) MSSETREP (EDITQUIETFLG S) \DISPLAYINIT ( +\DisplayDeviceMethods \DisplayDeviceData \DISPLAYIMAGEOPS DisplayFDEV) SETERRORN (*LAST-CONDITION*) +CL:PROVIDE (*MODULES*) COMP.STUNBIND (LEVEL FRAME) SHRIEKER (WORKFLAG) *FEATURES* (*FEATURES*) +%%ARRAY-TYPE-TABLE (%%ARRAY-TYPE-TABLE) USEDFREE (FREEVARS) ADDSPELL (USERWORDS SPELLINGS2 LASTWORD +SPELLINGS1 SPELLINGS3) SETTAIL? (\LASTAIL \LASTAILCOL \LASTAILROW) \PROMPTFORWORDBS (CHARBUFFER +RUBBING?) UPDATE/MENU/IMAGE (MENUFONT) \SHIFT.DOCUMENT (TAB.OBJECT) \SOFTCURSORDOWN (\SOFTCURSORUPP) +COMPILER::FRAME-ANNOTATE-RETURN (COMPILER::*REFERENCES*) CL:CHAR-SUPER-BIT (CL:CHAR-SUPER-BIT) +\FLUSHVM (\DOFAULTINIT) \CH.CHECK.CLEARINGHOUSE (CH.DEFAULT.DOMAIN CH.DEFAULT.ORGANIZATION +LOCAL.CLEARINGHOUSE) OVERFLOW (\OVERFLOW) \TEDIT.SELECT.CHARACTER (WORDSELFLG) CL:CHAR-META-BIT ( +CL:CHAR-META-BIT) READPLIST (\READPLIST.READTABLES) CL:IN-PACKAGE (*PACKAGE*) COMPILER::GENCODE-BLOCK +(COMPILER::*TAG-NUMBER* COMPILER::*STACK-NUMBER*) TEDIT.FORMATTEXTBOX (IGNORE) \TEDIT.LOOKS.UPDATE ( +LOOKNO TLEN CHLIST WLIST CHNO INVISIBLERUNS FONT NEWASCENT NEWDESCENT) SEDIT:*COMPILE-FN* ( +SEDIT:*COMPILE-FN*) SEDIT::TRACK-SELECT (SEDIT::PENDING-LAST-X SEDIT::PENDING-LAST-Y SEDIT::PENDING-TYPE +) \RELEASEBUFFER (MAPEMPTYBUFFERLIST) \PROMPTFORWORDBIN (TIMELIMITEXPIRED? BELLBEENHEARD?) RPTPRINT ( +RPTCNT RPTLAST) DSKDISPLAY (\DSKDISPLAY.STATE) CL::*PARSED-DEFSTRUCTS* (CL::*PARSED-DEFSTRUCTS*) +STRPOSL (\\STRPOSLARRAY.GLOBALRESOURCE) \CLEARSYSBUF (\LONGSYSBUF) COMP.MAP (LEVEL FRAME) +XCL::*UNSAFE-TO-DELETE-PACKAGE-NAMES* (XCL::*UNSAFE-TO-DELETE-PACKAGE-NAMES*) COMPUTE-MACRO-ARGS ( +*MACRO-VARS* *MACRO-VALS*) \GETKEY (\\KEYBOARDWAITBOX.GLOBALRESOURCE) FIXAPPLY (TYPE-IN? FAULTFN) +BYTEBLOCKCOMPILE2 (BYTECOMPFLG COMP.GENFN.NUM) TEDIT.PUSH.STYLESHEET (*TEDIT-PARASTYLE-CACHE* +TEDIT.STYLES *TEDIT-STYLESHEET-SAVE-LIST*) ITEM.WINDOW.SET.STACK.ARG (SetStackMenu) +*WHO-LINE-STATE-UNINTERESTING-FNS* (*WHO-LINE-STATE-UNINTERESTING-FNS*) COMP.STBIND (FRAME LEVEL) +CLOSEPUPSOCKET (\PUPSOCKETS) XCL::*DELETED-IMPLICIT-HASH-SLOT* (XCL::*DELETED-IMPLICIT-HASH-SLOT*) +DEFAULTFONT (DEFAULTFONT) WHO-LINE-USERNAME (*WHO-LINE-CURRENT-USER*) \IDLER (\IDLE.PASSWORD.SET +\AFTERLOGINFNS) SPY.DUMP.BUFFER (SPY.NEXT) MAPRINT (LISPXPRINTFLG) MSEAT (S) ENUM-STRING ( +\\NUMSTR.GLOBALRESOURCE \\NUMSTR1.GLOBALRESOURCE) \GETSYSBUF (\LONGSYSBUF) \GETMAPBUFFER ( +MAPEMPTYBUFFERLIST) PROMPTCHAR (READBUF) OPT.DELCODE (ANY) ICMLARRAY.GETMENUWGROUP (*PRINT-ARRAY*) +EXEC-READ-LINE (CTRLUFLG) WAIT.FOR.TTY (\OLDTTY) FIX89TYPEIN (FAULTARGS) %%THIN-CHAR-TYPENUMBER ( +%%THIN-CHAR-TYPENUMBER) \RTP.CLEANUP (\BSPSOCKETS) \FTPINIT (\FTPFDEV \FTPAVAILABLE) INITDATATYPES ( +\MaxSysTypeNum \MaxTypeNumber) COMP.DELPOP (LEVEL CODE) SUPERPRINT/COMMENT1 (COMMENTCOL) CHAT.AUTOCRLF + (CHAT.AUTOCRLF) PAINTW.READCOMMAND (PAINTCOMMANDMENU) HPRINT1 (BACKREFS CELLCOUNT DATATYPESEEN) +%%LIT-ARRAY-TYPES (%%LIT-ARRAY-TYPES) \FTP.WHENCLOSED (\FTPCONNECTIONS) PAINTW.READMODE (PAINTMODEMENU +) FILEPKGTYPE (FILEPKGTYPES) LISPXREADBUF (REDOCNT) COMPILER::*PREDICATE-CONTEXT* ( +COMPILER::*PREDICATE-CONTEXT*) \ASSIGNDATATYPE1 (\MaxTypeNumber) MAPAFTERCLOSE (DEFAULTMAPFILE) +FILECREATED (FILECREATEDLST) GREET (USERNAME) COMPILER::CLOSURE-ANNOTATE-TAGBODY (COMPILER::*NEED-STORAGE* +) SEDIT::TRACK-EXTEND (SEDIT::PENDING-TYPE) MSBINDVAR (VARS) \PROC.CODEFORTFRAME (\RUNNING.PROCESS) +CHAT.TAKE.INPUT1 (STREAM) CL::*DEFSTRUCT-INFO-CACHE* (CL::*DEFSTRUCT-INFO-CACHE*) CL::%%ASIN-PPOLY ( +CL::%%ASIN-PPOLY) COMPILER:PASS (COMPILER:PASS) ADDTOFILES? (LASTFILE) DEFINE-FILE-INFO ( +FILECREATEDLOC) SEDIT::*IGNORE-CHANGES-ON-COMPLETION* (SEDIT::*IGNORE-CHANGES-ON-COMPLETION*) +\KEYBOARDINIT (\CURRENTKEYACTION \DEFAULTKEYACTION \COMMANDKEYACTION \INTERRUPTSTATE \SYSBUFFER +\SAVEDSYSBUFFER \LASTUSERACTION \KEYBOARDEVENTQUEUE \LASTKEYSTATE \SHIFTSTATE \MOUSETIMERTEMP) +\SETLOCALNSNUMBERS (\MY.NSHOSTNUMBER \MY.NSNETNUMBER \MY.NSADDRESS) MOUSECHORDWAIT (\MOUSECHORDTICKS +\MOUSECHORDMILLISECONDS) %%CANONICAL-CML-TYPES (%%CANONICAL-CML-TYPES) INSTALL-WHO-LINE-OPTIONS ( +*WHO-LINE*) \TEDIT.SETDEFAULT.FROM.SEL (TEDIT.DEFAULT.CHARLOOKS) MAKEROOMFORPME (NEXTPM) +\CH.FIND.ORG.SERVER (\CH.CACHE) UNDONLSETQ (%#UNDOSAVES) EDITBMBUTTONFN (COLOR EDITBMWINDOWMENU +EDITBMMENU GRIDSIZEMENU) \BITBLT.DISPLAY (\BBSCRATCHTEXTURE) FLTSTR (\\NUMSTR.GLOBALRESOURCE +\\NUMSTR1.GLOBALRESOURCE) PRINTCODENT (IVARS PVARS FVARS) TEDIT.POP.STYLESHEET ( +*TEDIT-PARASTYLE-CACHE* TEDIT.STYLES) \INITSPP (\SPPDEVICE \SPP.BULKDATA.DEVICE) DELETETO1 (\DELETING +\CURSORCOL) TEDIT.FORMATPAGE (*TEDIT-PAGE-BREAKS*) SPY.INIT (SPY.BUFFER SPY.BUFFER.THRESHOLD SPY.NEXT +SPY.TREE) \SETUP.HUNK.TYPENUMBERS (INITIALDTDCONTENTS) OPENPUPSOCKET (\PUPSOCKETS) FIND-STACK-FRAME ( +LASTPOS) \TRACKWITHBOX (ORGX BOXWIDTH ORGY BOXHEIGHT) DWMFY2 (SUBPARENT FORMSFLG NOFIXVARSLST0 TAIL) +\DRAWCIRCLE.DISPLAY (\\BRUSHBBT.GLOBALRESOURCE) LISPXREADP (READBUF) TIMESPOW10 (TEXP THI TLO) +\GR.DELDEFFN (GLOBAL.RESOURCES) VMEM.PURE.STATE (\VMEM.PURE.LIMIT) \DRAWELLIPSE.DISPLAY ( +\\BRUSHBBT.GLOBALRESOURCE) RECORDINIT (RECORDINIT) DODIRCOMMANDS (VALUE) XCL:*PROFILE* (XCL:*PROFILE*) + COMP.DECLARE (ALLDECLS) COMPILER::*NULL-CONTEXT* (COMPILER::*NULL-CONTEXT*) \DRAWLINE.DISPLAY ( +\\BRUSHBBT.GLOBALRESOURCE) FASL::RESET-DUMPER-STATS (FASL::*TABLE-ATTEMPTS* FASL::*TABLE-HITS*) +BROWSE/LAYOUT/HORIZ/COMPACTLY (NODELST) CHECKSYNONYM (S) \FILLCIRCLE.DISPLAY ( +\\BRUSHBBT.GLOBALRESOURCE) SAVE.CURSOR (\HOMEROW \HOMECOL) CHAT.UNDERLINE.DESCENT ( +CHAT.UNDERLINE.DESCENT) MAKECREATE1 (USINGEXPR) \UPDATEXYANDBOX (BASEX BASEY OPPX OPPY) +COMPILER::*EFFECT-CONTEXT* (COMPILER::*EFFECT-CONTEXT*) \DRAWCURVE.DISPLAY (\\BRUSHBBT.GLOBALRESOURCE) + \BITBLT.BITMAP.SLOW (\BBSCRATCHTEXTURE) \KEYBOARDEVENTFN (\KEYBOARD.BEFORETYPE \MAIKO.BEFOREKEYTYPE +\MAIKO.XBEFORE?) CLISPFORINITVAR (PROGVARS INITVARS) DWIMIFY2? (NOFIXFNSLST0 NOFIXVARSLST0) +\SET.LASTVMEMFILEPAGE (\LASTVMEMFILEPAGE \VMEM.FULL.STATE) DO-EVENT (LISPXHIST CL:+++ CL:++ + - CL:/// + CL:// /) \TEDIT.CREATEW.FROM.REGION (TEDIT.DEFAULT.WINDOW) FILEWATCH (FW-Running?) ORDINAL-TENS ( +ORDINAL-TENS) SEDIT::*FSPEC-TABLE* (SEDIT::*FSPEC-TABLE*) CL:MULTIPLE-VALUES-LIMIT ( +CL:MULTIPLE-VALUES-LIMIT) \PUNT.BITBLT.BITMAP (\BBSCRATCHTEXTURE) INITIALIZE-SHELL-DEVICE ( +*SHELL-DEVICE*) IDLE (\IDLING) READLINE (CTRLUFLG REREADFLG READBUF) MAKEINITLAST (MKI.CODELASTPAGE) +COMPILER::*LITERALLY-NIL* (COMPILER::*LITERALLY-NIL*) FAKE-COMPILE-FILE (COUTFILE STRF SVFLG LAPFLG +LCFIL) PFI.HANDLE.* (*PFI-PENDING-COMMENTS*) OPT.LBDEL (CL:LABELS) *WHO-LINE-DIRECTORY-ENTRY* ( +*WHO-LINE-DIRECTORY-ENTRY*) COMPILER::*LITERALLY-T* (COMPILER::*LITERALLY-T*) FASL::*TABLE-HITS* ( +FASL::*TABLE-HITS*) SETREADFN (LISPXREADFN) RETDWIM (HELPCLOCK DWIMIFY0CHANGE DWIMIFYCHANGE LASTWORD +ATTEMPTFLG CLISPCHANGE) COMP.LOOKUPVAR (FREEVARS) SPY.MAKE.TREE (SPY.FONT SPY.NODES SPY.TOPNODES TITLE + SPY.WINDOW) SETFONTDESCRIPTOR (\FONTSINCORE) INTTOEXT (TEXP THI TLO) TEDIT.STYLESHEET ( +*TEDIT-PARASTYLE-CACHE* TEDIT.STYLES *TEDIT-STYLESHEET-SAVE-LIST*) GLOBALVARS (GLOBALVARS) DO.EDIT.PP +(\ENDBUFFER \CURSOR \TTSCRATCHFILE.GLOBALRESOURCE) CHAT.ICONFN (TTYKBDICONSPEC) SPY.ADD.ENTRY ( +SPY.NEXT) HPRINT (HPRINTHASHARRAY) CLISPIFYRPLAC (SEG) \REUSETO (UNUSED BIT OFFSET) SETSPELLCASE ( +SPELLCASEARRAY) CL::%%ASIN-EPSILON (CL::%%ASIN-EPSILON) CL::*TYPEP-HASH-TABLE* (CL::*TYPEP-HASH-TABLE* +) CL::%%TAN-QPOLY (CL::%%TAN-QPOLY) XCL:*DEBUGGER-PROMPT* (XCL:*DEBUGGER-PROMPT*) MOVE.TO.LINE ( +\CURSOR \ARROW) COMPILER::*TAIL-RECURSION-POLICY* (COMPILER::*TAIL-RECURSION-POLICY*) \VFMInsert1 ( +splitFlag) CLISPCAR/CDR (VAR2 VAR1) DIRPRINTNAME (LASTHOST&DIR I NAMEPRINTED) *DIGITS* (*DIGITS*) +INTPOWERS (INTPOWERS) DASSEM.DSTOREFNDEF (DFNFLG) DWMFY1 (NOFIXFNSLST0 NOFIXVARSLST0) +SEDIT::FIRST-ADD-COMMAND (SEDIT::FIRST-ADD-COMMAND) PAINTW.READBRUSHSIZE (PAINTSIZEMENU) +%%INITIALIZE-DEFAULT-PATHNAME (\CONNECTED.DIRECTORY *DEFAULT-PATHNAME-DEFAULTS*) XCL:*EVAL-FUNCTION* ( +XCL:*EVAL-FUNCTION*) SUBPRINT (LEFT) \GR.PUTDEFFN (GLOBAL.RESOURCES) \DOVMEMFULLINTERRUPT ( +\PENDINGINTERRUPT \EXTENDINGVMEMFILE) ORDINAL-ONES (ORDINAL-ONES) ADDFILE0 (FILELST) \CONS.UFN ( +\RECLAIM.COUNTDOWN) SI::RESETUNWIND (SI::*RESETFORMS*) SEDIT::INITIALIZE-ATOMIC (SEDIT::TYPES +SEDIT::TYPE-LITATOM SEDIT::TYPE-STRING) FW-CLOSEFN (FW-OpenFiles FW-Reset?) TTRATOM (\BUFFER) +CLISPFOR0 (NOFIXFNSLST0 NOFIXVARSLST0) \CARET.FLASH (\CARET.UP) TEDIT.CREATEW (TEDIT.DEFAULT.WINDOW) +HASH-EQUAL (*CIRCLE-READ-LIST*) \RESETKEYBOARD (\KEYBUFFERING \TIMER.INTERRUPT.PENDING \LONGSYSBUF) +CL::%%2/PI (CL::%%2/PI) MSINTERPA (V) PAINTW (PAINTCOMMANDMODE PAINTCOMMANDSHADE PAINTCOMMANDBRUSH +PAINTWCURSOR) BELOWMARKER (BELOWCNT) \DSKCreateDevice (\DSKdevice) PAINTW.READBRUSHSHAPE ( +PAINTSHAPEMENU) FASL::*TABLE-ATTEMPTS* (FASL::*TABLE-ATTEMPTS*) PRETTYPRINT (NLAMLST LAMALST NLAMALST +LAM?LST PRTTYSPELLFLG) FILEPKGCOMPROPS (SYSPROPS) SETUPPUP (\PUPCOUNTER) \CHECK.PQUEUE ( +\RUNNING.PROCESS) COMPILER::*ARGUMENT-CONTEXT* (COMPILER::*ARGUMENT-CONTEXT*) BRKDWNTIME (BDPTR) +\TEXTINIT (\TEXTIMAGEOPS \TEXTFDEV \TEXTOFD) SEDIT::FIRST-ADD-COMMAND-MENU-ENTRY ( +SEDIT::FIRST-ADD-COMMAND-MENU-ENTRY) CL:CHAR-CODE-LIMIT (CL:CHAR-CODE-LIMIT) COMPSET (LSTFIL LAPFLG +STRF SVFLG LSTFIL1 LCFIL) \4DISPLAYINIT (\4DISPLAYIMAGEOPS \4DISPLAYFDEV) \ALLOCHUNK (\HUNKREJECTS) +\EXTNORMALIZE (TEXP THI TLO) %%BIT-TYPE (%%BIT-TYPE) FW-INTERACT (FW-Running?) \TEDIT.HCPYLOOKS.UPDATE + (LOOKNO TLEN CHLIST WLIST CHNO INVISIBLERUNS FONT NEWASCENT NEWDESCENT KERN) CL::%%NO-SUPER-TYPE ( +CL::%%NO-SUPER-TYPE) \EXTFQUOTIENT (TEXP THI TLO) SI::*CLOSURE-CACHE* (SI::*CLOSURE-CACHE*) +TTPRINSPACE (\CURSORCOL) \MAIKO.ALLOCBLOCK (\RECLAIM.COUNTDOWN) INIT-CML-READTABLES (CMLRDTBL +*COMMON-LISP-READ-ENVIRONMENT* READ-LINE-RDTBL) TEDIT.BUILD.PCTB0 (DEFAULTPARALOOKS) CL::SXHASH-MAX ( +CL::SXHASH-MAX) \VFMAtLoad (\VFMmaxID \VFMmaxKey \VFMnullKey \VFMvolumeHandle \VFMinterval \VFMold +\VFMlow \VFMhigh \VFMoldPtr \VFMlowPtr \VFMhighPtr \VFMmonitor) \CONVERT.FLOATING.NUMBER ( +\\CFNSTRING.GLOBALRESOURCE) COMP.LOOKUPCONST (CONSTS) CL::%%PI/6 (CL::%%PI/6) +*WHO-LINE-LAST-DIRECTORY* (*WHO-LINE-LAST-DIRECTORY*) \VAMBufferSave (\VAMbufferDirty) DWIMIFY0? ( +NOFIXFNSLST0 NOFIXVARSLST0) CLISPIFY2B (CLTYP0 NEGFLG VARS) \VFMCreateIntervals (\VFMintervals) +PFI.PRINT.BITMAP (*PFI-BITMAP-BASELINE*) LLBREAK (BROKENFNS) FASL-FILEDATE (VALUE) \IDLE.EXIT? ( +\IDLE.PASSWORD.SET) ASSURE.ETHER.ON (\NSFLG) CL::*COMMON-LISP-BASE-TYPES* (CL::*COMMON-LISP-BASE-TYPES* +) \SETETHERFLAGS (\10MBFLG \3MBFLG *MAXIMUM-PACKET-SIZE*) \RPLCONS (\RECLAIM.COUNTDOWN) SKOR (NCXWORD) + AU-REVOIR (POSSLIST##) CL::*BASE-TYPE-LATTICE* (CL::*BASE-TYPE-LATTICE*) \PRINDATUM.TO.STRING ( +\\NUMSTR.GLOBALRESOURCE \\NUMSTR1.GLOBALRESOURCE) *DIGIT-STRING* (*DIGIT-STRING*) MSNEXTWORD (S +NEXTWORD RESETS LASTADVERB) \VANILLADISKINIT (\DISKNAMECASEARRAY) CHAT.TTY.PROCESS (CHAT.TTY.PROCESS) +COMPILER::COMPILE-SCAN-LOOSE-FORM (COMPILER::*DEFERRED-FORMS*) BCOMPL3 (NOTCOMPILEDFILES) +*LOAD-VERBOSE* (*LOAD-VERBOSE*) EDITFROMFILE (EDITLOADFNSFLG) RCOMP3 (NLAML NLAMA LAMS) CLISPIFYCROPS +(SEG) PRETTYCOM (PRTTYSPELLFLG) \FM.EDIT-INSERT (CHARWIDTH BITMAP ITEMWIDTH STRINGPTR TAILPTR) NEWDEFC + (COMPILE.FILE.AFTER) ADIEU (POSSLIST##) WTFIXLOADEF (FAULTFN) XCL:SET-DEFAULT-EXEC-TYPE (XCL:*PROFILE* +) XCL:UNBREAK-FUNCTION (BROKENFNS XCL::*TRACED-FNS* XCL::*UNBROKEN-FNS*) \VANILLAHOSTNAMEP (\PSEUDODSK +) CL::STEP-SLEEP (CL::*STEP-STATE* *EVALHOOK* CL::*STEP-INDENTATION-LEVEL*) \INIT.ETHER.BUFFER.POOL ( +\IOCBFREELIST \IOCBTOTAL \TELERAIDIOCB \IOCB.INPUT.ALLOC \IOCB.INPUT.TOTAL \IOCB.OUTPUT.ALLOC +\IOCB.OUTPUT.TOTAL \10MB.IDEAL.INPUT.LENGTH) ADDPME (NEXTPM NEXTVMEM) READ-AFM-FILE (WeightMenu +SlopeMenu CWIDTH CNAME) *RANDOM-STATE* (*RANDOM-STATE*) PUTDEFN (RESETPTR RESETPC) RESTOREBUF ( +\LASTAIL \LASTAILCOL \LASTAILROW) DOERROR (ERRORS) \FLUSHNDBS (\LOCALNDBS) SETHASHSTATUS ( +SYSHASHFILELST SYSHASHFILE) *READ-DEFAULT-FLOAT-FORMAT* (*READ-DEFAULT-FLOAT-FORMAT*) +%%UNBOUNDED-ARG-COUNT (%%UNBOUNDED-ARG-COUNT) \DOINTERRUPTHERE (\PENDINGINTERRUPT) XCL:*PRINT-STRUCTURE* + (XCL:*PRINT-STRUCTURE*) \INIT.POWERS.OF.TEN (\POWERS.OF.TEN EXTPOWERS) SI::*ADVICE-HASH-TABLE* ( +SI::*ADVICE-HASH-TABLE*) RETDWIM1 (NOFIXVARSLST0 NEXTAIL) SEDIT::CREATE-PRETTY-PRINT-ENV ( +SEDIT::PRETTY-PRINT-ENV) \UFSCreateDevice (\UFSdevice) %%CHAR-TYPE (%%CHAR-TYPE) CL::%%TAN-PPOLY ( +CL::%%TAN-PPOLY) UPDATEFILES (NOTLISTEDFILES NOTCOMPILEDFILES) NEW/INSTANCE/OF/GRAPHNODE (NODELST) +CL::%%-PI/4 (CL::%%-PI/4) FONTSET (FONTNAME) \DOHELPINTERRUPT (\PENDINGINTERRUPT) \FAULTINIT ( +\MACHINETYPE \LASTDIRTYSCANPTR \DOFAULTINIT) \8DISPLAYINIT (\8DISPLAYIMAGEOPS \8DISPLAYFDEV) +COMPILER::CONTEXT-TEST-FORM (COMPILER::CONTEXT-TEST-FORM) CONTROL-T (LAST^TTIMEBOX LAST^TDISKIOTIME +LAST^TNETIOTIME LAST^TGCTIME LAST^TSWAPTIME) PRINTNUM (\\NUMSTR.GLOBALRESOURCE +\\NUMSTR1.GLOBALRESOURCE) CL::*STEP-PRINT-LENGTH* (CL::*STEP-PRINT-LENGTH*) BLOCK (\RUNNING.PROCESS) +BRECOMPILE (READBUF LCFIL) NETWORKLOGINFO (NETWORKLOGINFO) \SET.VMEM.FULL.STATE (\PENDINGINTERRUPT +\VMEM.FULL.STATE) \VFMDelete1 (firstFlag lastFlag volumePage) MSINTERPRETSET (NEEDUPDATE) +CARDINAL-PERIODS (CARDINAL-PERIODS) XCL:*EXEC-PROMPT* (XCL:*EXEC-PROMPT*) TTYIN.READ?=ARGS (\?PARAMS +\TTSCRATCHFILE.GLOBALRESOURCE) CLISPFOR4 (TERMINATEFLG MAKEPROGFLG) *TRACE-OUTPUT* (*TRACE-OUTPUT*) +\HANDLE.NS.ROUTING.INFO (\NSROUTER.PROBECOUNT) \HANDLE.RAW.XIP (\MY.NSNETNUMBER) \CHECKFORSTORAGEFULL +(\STORAGEFULL \PENDINGINTERRUPT) \PRINDATUM (\\NUMSTR.GLOBALRESOURCE \\NUMSTR1.GLOBALRESOURCE) +\TEDIT.UPDATETREE (ITEM#) CL:BOOLE-1 (CL:BOOLE-1) \SETIOPOINTERS (\MACHINETYPE \EM.MOUSEX \EM.MOUSEY +\EM.CURSORX \EM.CURSORY \EM.REALUTILIN \EM.KBDAD0 \EM.KBDAD1 \EM.KBDAD2 \EM.KBDAD3 \EM.KBDAD4 +\EM.KBDAD5 \EM.DISPINTERRUPT \EM.CURSORBITMAP \EM.DISPLAYHEAD SCREENWIDTH \EM.UTILIN) +PROCESS.STATUS.WINDOW (PROCOPMENU PROCESS.STATUS.WINDOW PROCMENU SELECTEDPROC) D-ASSEM::EMIT-BYTE ( +D-ASSEM::*BYTES* D-ASSEM::*BYTE-COUNT*) CL::%%TAN-EPSILON (CL::%%TAN-EPSILON) \TELERAIDINIT ( +\TELERAIDPACKET \TELERAIDBLOCK) \TFBRAVO.SPREAD.LOOKS (OVERSTRIKE) CL:BOOLE-2 (CL:BOOLE-2) +\D01.FAULTINIT (\VMEMACCESSFN \REALPAGETABLE \RPOFFSET \RPTSIZE \RCLKMILLISECOND) SEDIT:DEFAULT-COMMANDS + (SEDIT::COMMAND-TABLE-SPEC SEDIT::FIRST-ADD-COMMAND-MENU-ENTRY) \MAIKO.ETHER-INTERRUPT ( +\MAIKO.INPUT.PACKET) PAGEHEIGHT (\#DISPLAYLINES \CURRENTDISPLAYLINE) \MAPPNAME.INTERNAL ( +\\MAPPNAMESTREAM.GLOBALRESOURCE) PACKC (\\PNAMESTRING.GLOBALRESOURCE) \SETPRINTLEVEL (\TCARPRINTLEVEL +\TCDRPRINTLEVEL \SYSBUF \LINBUF) OUTPUT (*STANDARD-OUTPUT*) CL::%%DEFAULT-PRINT-FUNCTION ( +CL::%%DEFAULT-PRINT-FUNCTION) DWIMUNSAVEDEF (SIDES) MIN.SMALLFIXP (MIN.SMALLFIXP) CLISPATOMARE2 (DEST) + \RESETLINE (\CURRENTDISPLAYLINE) \DL.FAULTINIT (\VMEMACCESSFN \IOCBPAGE \RCLKMILLISECOND \RCLKSECOND +\LASTVMEMFILEPAGE) GO.TO.RELATIVE (\CURSORROW \CURSORCOL) CARDINAL-TEENS (CARDINAL-TEENS) CLEARBUF ( +\LINBUF \SYSBUF) CL:GENSYM (CL::*GENSYM-COUNTER*) \VAMGetVAMPageFor (\VAMbufferVolume +\VAMbufferVolumePage) \CLOSELINE (\CURRENTDISPLAYLINE) MASTERSCOPEXEC (LISPXVALUE) CL:BOOLE-ANDC2 ( +CL:BOOLE-ANDC2) PRINTDATE1 (MAPADR) CL:BOOLE-C1 (CL:BOOLE-C1) \MAIKO.FAULTINIT (\VMEMACCESSFN +\IOCBPAGE \RCLKMILLISECOND \RCLKSECOND) TWODINSPECT.DEFAULT.VALUECOMMANDFN (IT) CLEARFILEPKG (FILELST +LOADEDFILELST) CARDINAL-TENS (CARDINAL-TENS) \SETRECLAIMMIN (\SYSBUF \LINBUF) FONTMAPARRAY ( +\FONTMAPCACHE) LINBUF (\LINBUF) FASL::+LARGEST-FOUR-BYTE-INTEGER+ (FASL::+LARGEST-FOUR-BYTE-INTEGER+) +\DOVE.FAULTINIT (\VMEMACCESSFN \IOCBPAGE \RCLKMILLISECOND \LASTVMEMFILEPAGE \VMEM.FULL.STATE) +BKSYSCHARCODE (\LONGSYSBUF) FW-INIT-MENUS (FW-InteractMenu BackgroundMenuCommands BackgroundMenu) +CL:BOOLE-ANDC1 (CL:BOOLE-ANDC1) \GETREGIONTRACKWITHBOX (OPPX BASEX OPPY BASEY) \VAMMarkBufferDirty ( +\VAMbufferDirty) SEDIT::LIST-FORMATS-TABLE (SEDIT::LIST-FORMATS-TABLE) SI::FINISH-UNADVISING ( +ADVISEDFNS SI::*UNADVISED-FNS*) COMPILER::*SUBST-OCCURRED* (COMPILER::*SUBST-OCCURRED*) CL:BOOLE-EQV ( +CL:BOOLE-EQV) BCOMPL2 (DEFS BLKFNS) CL:BOOLE-AND (CL:BOOLE-AND) *MACROEXPAND-HOOK* (*MACROEXPAND-HOOK* +) FASL::+SMALLEST-FOUR-BYTE-INTEGER+ (FASL::+SMALLEST-FOUR-BYTE-INTEGER+) CL:ARRAY-DIMENSION-LIMIT ( +CL:ARRAY-DIMENSION-LIMIT) \PROCESS.GO.TO.SLEEP (\RUNNING.PROCESS) \FM.EDIT-PREPARETOEDIT (BOXOFFSET +FONT BITMAP ITEMWIDTH MAXWIDTH LIMITCHARS SYSLIMITCHARS ECHOCHAR STREAM DISPLAYLEFT DISPLAYBOTTOM LEFT + STRINGPTR TAILPTR) PACK (\\PNAMESTRING.GLOBALRESOURCE) *WHO-LINE-TTY-PROC-ENTRY* ( +*WHO-LINE-TTY-PROC-ENTRY*) COMP.STRETURN (LEVEL FRAME) SEDIT::INPUT-ESCAPE (SEDIT::THIS-CHAR-ESCAPED) +CL:BOOLE-C2 (CL:BOOLE-C2) TYPE.BUFFER (\CURSORCOL) DO.INSERT.LINE (\LOC.ROW.0) SEDIT::GET-BUTTON-STRING + (SEDIT::BUTTON-STRING-NODE SEDIT::BUTTON-STRING) \PFTransferFilePage (\label.GLOBALRESOURCE) \BSPINIT + (\BSPFDEV) CL:BOOLE-CLR (CL:BOOLE-CLR) COMPILE-IN-CORE (NLAMA NLAML LAMS LAMA NOFIXFNSLST +NOFIXVARSLST COUTFILE NULLFILE) LITATOM-PACKAGE-CONVERSION-TABLE (LITATOM-PACKAGE-CONVERSION-TABLE) +\PACK.ITEM (PACK.INDEX) SPY.MERGE (SPY.HASH) CL::%%PI/4 (CL::%%PI/4) CL:BOOLE-ORC1 (CL:BOOLE-ORC1) +TEDIT.BUILD.PCTB1 (DEFAULTPARALOOKS) TEDIT.RESET.EXTEND.PENDING.DELETE (TEDIT.PENDINGDEL) +D-ASSEM::+CONSTANT-OPCODES+ (D-ASSEM::+CONSTANT-OPCODES+) CL::%%SIN-QPOLY (CL::%%SIN-QPOLY) +%%FAT-CHAR-TYPENUMBER (%%FAT-CHAR-TYPENUMBER) PRETTYCOM1 (DWIMLOADFNSFLG) CL:BOOLE-ORC2 (CL:BOOLE-ORC2 +) FB.EXPUNGE?.MENU (FB.EXPUNGE?MENU) \24DISPLAYINIT (\24DISPLAYIMAGEOPS \24DISPLAYFDEV) +SEDIT::CREATE-ENVIRONMENTS (SEDIT::LISP-EDIT-ENVIRONMENT) SI::FINISH-ADVISING (SI::*UNADVISED-FNS* +ADVISEDFNS) CL:CHAR-BITS-LIMIT (CL:CHAR-BITS-LIMIT) INTERRUPTABLE (\INTERRUPTABLE) GAINSPACE ( +SMASHPROPSLST1) CMLSYMBOLS.SHARED (CMLSYMBOLS.SHARED) CL:BOOLE-IOR (CL:BOOLE-IOR) COMP.GENFN ( +COMP.GENFN.NUM) \CHTOPC (START-OF-PIECE) *WHO-LINE-PROFILE-ENTRY* (*WHO-LINE-PROFILE-ENTRY*) +CL:BOOLE-NOR (CL:BOOLE-NOR) DBG::DEBUGGER-BUTTON-EVENT (*DEBUGGER-MENU*) TEDIT.UNDO (UNDOFN) +CARDINAL-ONES (CARDINAL-ONES) \IRM.GET.KEYWORDS (\IRM.KEYWORDS) CL:DOUBLE-FLOAT-EPSILON ( +CL:DOUBLE-FLOAT-EPSILON) \D01.ASSIGNBUFFERS (\EMBUFVP \EMBUFBASE \EMBUFRP \TELERAIDBUFFER \EMUBUFFERS +\#EMUBUFFERS \#SWAPBUFFERS \#DISKBUFFERS \EMUDISKBUFFERS \EMUDISKBUFEND \EMUSWAPBUFFERS) \PSW.SELECTED + (SELECTEDPROC) CL:BOOLE-NAND (CL:BOOLE-NAND) TTY.PROCESS (\TTY.PROCESS \CURRENTKEYACTION) +\DSKDISPLAY.RESHAPEFN (DSKDISPLAY.POSITION) CL:DOUBLE-FLOAT-NEGATIVE-EPSILON ( +CL:DOUBLE-FLOAT-NEGATIVE-EPSILON) \CHAIN.UP.RPT (\RPTLAST) CL::*STEP-MAX-INDENTATION* ( +CL::*STEP-MAX-INDENTATION*) XCL::PPRINT-DEFINER-RECURSE (TAIL) SPLIT89 (SPLIT89FLG) CL::%%PI/3 ( +CL::%%PI/3) CL:BOOLE-SET (CL:BOOLE-SET) TWODINSPECT.DEFAULT.TITLECOMMANDFN (IT) PACKAGE-ENABLE ( +*PER-EXEC-VARIABLES* *DEFAULT-MAKEFILE-ENVIRONMENT* *PACKAGE*) D-ASSEM::*BYTE-COUNT* (D-ASSEM::*BYTE-COUNT* +) \TEDITPAGEMENU.CREATE (TEDIT.EXPANDED.PAGEMENU) FASL::DUMMY-HANDLE (FASL::DUMMY-HANDLE) +\TEDITMENU.CREATE (TEDIT.EXPANDED.MENU) CHAT.UNDERLINE.METHOD (CHAT.UNDERLINE.METHOD) SYSBUF (\SYSBUF) + ENABLEWHEELSCROLL (WHEELSCROLLENABLED) OPT.JUMPOPT (ANY) \SHOW.ARRAY.FREELISTS (\ABSTORAGETABLE) +CREATESCREEN (\SCREENS) CHAT.WAIT.TIME (CHAT.WAIT.TIME) TERMINAL-INPUT (*STANDARD-INPUT* \LINEBUF.OFD) + BRKDWNCOMPILE2 (NLAMA NLAML LAMS LAMA NOFIXFNSLST NOFIXVARSLST) \M44DOEXTENDVMEMFILE ( +\LASTVMEMFILEPAGE) CL:CALL-ARGUMENTS-LIMIT (CL:CALL-ARGUMENTS-LIMIT) *WHO-LINE-DIRECTORIES* ( +*WHO-LINE-DIRECTORIES*) CLISPIFYNOT (NEGFLG) DWIMIFY1? (NOFIXFNSLST0 NOFIXVARSLST0) SPY.MAKEGRAPHNODES + (SPY.NODES) CL:LEAST-NEGATIVE-LONG-FLOAT (CL:LEAST-NEGATIVE-LONG-FLOAT) COMPILER::PRINT-NODE ( +COMPILER::*NODE-NUMBER*) %%TWOD-ARRAY (%%TWOD-ARRAY) COMPILE.FILE.RESET (NOTCOMPILEDFILES) +COMPILER::FRAME-ANNOTATE-LAMBDA (COMPILER::*REFERENCES*) TERMINAL-OUTPUT (*STANDARD-OUTPUT* +TtyDisplayStream \TERM.OFD) \PSWOP.SELECTED (PROCOP.WAKEMENU) NECCSPEC (SFLG SHOULDBESPECVARS) +*REMOVE-INTERLISP-COMMENTS* (*REMOVE-INTERLISP-COMMENTS*) FFILEPOS (\\FFDELTA1.GLOBALRESOURCE +\\FFDELTA2.GLOBALRESOURCE \\FFPATCHAR.GLOBALRESOURCE) BLOCK%: (BLOCKS) CL:LEAST-NEGATIVE-DOUBLE-FLOAT +(CL:LEAST-NEGATIVE-DOUBLE-FLOAT) \VFMDelete2 (\VFMlowPtr) PACKAGE-CLEAR (*PACKAGE* *LISP-PACKAGE* +*KEYWORD-PACKAGE* *INTERLISP-PACKAGE*) DWIMIFY (NOFIXFNSLST0 NOFIXVARSLST0 PRETTYTRANFLG) CL::%%-PI/2 +(CL::%%-PI/2) CL:LEAST-POSITIVE-LONG-FLOAT (CL:LEAST-POSITIVE-LONG-FLOAT) \MAKE.COURIER.REP.STREAM ( +\COURIER.REP.DEVICE) CL:LEAST-NEGATIVE-SHORT-FLOAT (CL:LEAST-NEGATIVE-SHORT-FLOAT) FW-ADJUST-REGION ( +FW-WindowBottom FW-WindowBottomDelta) CHANGEBACKGROUNDBORDER (\CURRENTBACKGROUNDBORDER) L-CASE ( +\\PNAMESTRING.GLOBALRESOURCE) \LFCreateDirectories (\LFdirectories \PFInitialized) %%GENERAL-ARRAY ( +%%GENERAL-ARRAY) CL:LEAST-POSITIVE-SHORT-FLOAT (CL:LEAST-POSITIVE-SHORT-FLOAT) PACKAGE-MAKE ( +*INTERLISP-PACKAGE* *LISP-PACKAGE* *KEYWORD-PACKAGE*) %%LIT-ARRAY-TABLE (%%LIT-ARRAY-TABLE) +COMPILER::GENCODE-CALL (COMPILER::*FRAME-NAME* COMPILER::*CODE* COMPILER::*OTHERS* +COMPILER::*AVAILABLE-LEXICAL-NAMES*) *WHO-LINE-SHOW-ACTIVE-ENTRY* (*WHO-LINE-SHOW-ACTIVE-ENTRY*) +POSTINITARRAYS (\FREEBLOCKBUCKETS) %%MAXTHINCHAR (%%MAXTHINCHAR) *REPLACE-OLD-EDIT-DATES* ( +*REPLACE-OLD-EDIT-DATES*) CL:LEAST-NEGATIVE-SINGLE-FLOAT (CL:LEAST-NEGATIVE-SINGLE-FLOAT) +*SPECIAL-BINDING-MARK* (*SPECIAL-BINDING-MARK*) CNDIR (\CONNECTED.DIRECTORY +*DEFAULT-PATHNAME-DEFAULTS*) \UNITWIDTHSVECTOR (\UNITWIDTHSVECTOR) MBUTTON.INIT (MBUTTONIMAGEFNS) +CL:BOOLE-XOR (CL:BOOLE-XOR) EXPANDING-PAGEFULLFN (\CURRENTDISPLAYLINE) CL:LEAST-POSITIVE-DOUBLE-FLOAT +(CL:LEAST-POSITIVE-DOUBLE-FLOAT) SPY.POINTERS (SPY.POINTERS) XCL::*WALK-FUNCTION* (XCL::*WALK-FUNCTION* +) KILLSEGMENT (\ENDBUFFER \LASTAIL) DEFAULT.INSPECTW.VALUECOMMANDFN (InspectMenu) +CL:LONG-FLOAT-NEGATIVE-EPSILON (CL:LONG-FLOAT-NEGATIVE-EPSILON) CMLSYMBOLS.DECLARATORS ( +CMLSYMBOLS.DECLARATORS) D-ASSEM::*DCODE* (D-ASSEM::*DCODE*) CARETRATE (\CARET.ON.RATE \CARET.OFF.RATE) + TEDIT.MOVE (TEDIT.MOVE.PENDING) CL:MOST-NEGATIVE-DOUBLE-FLOAT (CL:MOST-NEGATIVE-DOUBLE-FLOAT) +\INITBFS (\SPAREDISKWRITEBUFFER \SYSDISK \EMUSCRATCH \MAXDISKDAs \ISFMAP \ISFSCRATCHCAS \ISFSCRATCHDAS + \ISFCHUNKSIZE) CMLSYMBOLS.FNNAMES (CMLSYMBOLS.FNNAMES) D-ASSEM::*LEVEL* (D-ASSEM::*LEVEL*) NEW/FN ( +/FNS LISPXFNS) FW-INIT (FW-Dormant? FW-Running?) DBG::EXIT-DEBUGGER (BRKVALUES) +CL:LEAST-POSITIVE-SINGLE-FLOAT (CL:LEAST-POSITIVE-SINGLE-FLOAT) OPENRTPSOCKET (\BSPSOCKETS) +CMLSYMBOLS.TYPENAMES (CMLSYMBOLS.TYPENAMES) GRAPHEDITCOMMANDFN (EDITGRAPHMENU) CL:LONG-FLOAT-EPSILON ( +CL:LONG-FLOAT-EPSILON) COMPILE.FILE.APPLY (DEFERRED.EXPRESSIONS) CMLSYMBOLS.LAMBDA.LIST.KEYWORDS ( +CMLSYMBOLS.LAMBDA.LIST.KEYWORDS) \STARTDISPLAY (ScreenBitMap \DisplayStarted WHOLESCREEN WHOLEDISPLAY +\CURSORDESTINATION \CURSORDESTWIDTH \CURSORDESTHEIGHT \CURSORDESTRASTERWIDTH \OLDSCREENHEIGHT +\OLDSCREENWIDTH) XCL::*LEXICAL-VARIABLES* (XCL::*LEXICAL-VARIABLES*) CMLSYMBOLS.VARS (CMLSYMBOLS.VARS) + BRKDWN1 (BRKDWNLENGTH BRKDWNLABELS BRKDWNTOTLST BDLST BDSINK BRKDWNTYPE) CMLSYMBOLS.SPECIALFORMS ( +CMLSYMBOLS.SPECIALFORMS) D-ASSEM::*HUNK-SIZE* (D-ASSEM::*HUNK-SIZE*) SPECVARS (SPECVARS LOCALVARS) +CL:MOST-NEGATIVE-SINGLE-FLOAT (CL:MOST-NEGATIVE-SINGLE-FLOAT) PSCFONT.READFONT (POSTSCRIPTFONTCACHE) +CMLSYMBOLS.MACROS (CMLSYMBOLS.MACROS) D-ASSEM::*PVAR-COUNT* (D-ASSEM::*PVAR-COUNT*) +\TEDIT.FOREIGN.COPY? (TEDIT.COPY.PENDING) \CORE.UNPACKFILENAME (ROOT EXT VERS) CL:MOST-NEGATIVE-FIXNUM + (CL:MOST-NEGATIVE-FIXNUM) CL::*STEP-PRINT-LEVEL* (CL::*STEP-PRINT-LEVEL*) \TFBRAVO.INIT.PARALOOKS ( +HardwareWidth DefaultParagraphLooks) MSPATHS1 (LINENUM TABS NAMED) CHAT.RECONNECT (CHAT.REOPENMENU) +CL::%%SIN-PPOLY (CL::%%SIN-PPOLY) CL:MOST-NEGATIVE-LONG-FLOAT (CL:MOST-NEGATIVE-LONG-FLOAT) GENSYM ( +\GS.BUF GENNUM \GS.NUMLEN \GS.OGENNUM \GS.STR) *PER-EXEC-VARIABLES* (*PER-EXEC-VARIABLES*) +UPDATESCREENDIMENSIONS (SCREENWIDTH SCREENHEIGHT) SCANFILE2 (DONELST FNLST) \IFSERRORSTRING ( +\IFSERRORFILENAME) CL:MOST-POSITIVE-LONG-FLOAT (CL:MOST-POSITIVE-LONG-FLOAT) BAKTRACE (CLEARSTKLST) +D-ASSEM::+MAX-ALLOWABLE-PVAR-COUNT+ (D-ASSEM::+MAX-ALLOWABLE-PVAR-COUNT+) \CreateScreenBitMap ( +\MaxScreenPage) CL:MOST-NEGATIVE-SHORT-FLOAT (CL:MOST-NEGATIVE-SHORT-FLOAT) MODIFY.KEYACTIONS ( +\MODIFIED.KEYACTIONS) VIDEOCOLOR (\VideoColor) XCL::*BREAK-HASH-TABLE* (XCL::*BREAK-HASH-TABLE*) +CL::*STEP-INDENTATION-LEVEL* (CL::*STEP-INDENTATION-LEVEL*) D-ASSEM::+MAX-ALLOWABLE-SPECIAL-COUNT+ ( +D-ASSEM::+MAX-ALLOWABLE-SPECIAL-COUNT+) XCL::*WALK-FORM* (XCL::*WALK-FORM*) COMPILE1A (NOFIXFNSLST0 +NOFIXVARSLST0 NOFIXFNSLST NOFIXVARSLST) \STOPSCROLL? (\CURRENTDISPLAYLINE) DIRECTORY (COMTAIL) +CL:MOST-POSITIVE-SHORT-FLOAT (CL:MOST-POSITIVE-SHORT-FLOAT) \LOCATE.NSNET (\NSROUTER.PROBECOUNT +\NSROUTER.PROBETIMER) CLISPATOM1 (89FLG PARENT CURRTAIL CHARLST NEXTAIL NEWTAIL CLISPCHANGES +CLISPCHANGE) ALLOCHASH (ALLOCATIONS) *WHO-LINE-READTABLE-ENTRY* (*WHO-LINE-READTABLE-ENTRY*) +\VFMGetInterval (\VFMbuffer) THREESTATE.INIT (THREESTATEIMAGEFNS) CL:SHORT-FLOAT-EPSILON ( +CL:SHORT-FLOAT-EPSILON) COMPILER::GENCODE-TAGBODY-INLINE (COMPILER::*STACK-NUMBER* COMPILER::*TAG-NUMBER* +) SCRATCHCONS (\LASTAIL) CL:MOST-POSITIVE-DOUBLE-FLOAT (CL:MOST-POSITIVE-DOUBLE-FLOAT) FW-RE-INIT ( +FW-SeprWidth FW-AccessWidth FW-FieldWidth FW-PercentWidth FW-PercentHeight FW-CurPosTab FW-EofPosTab +FW-PercentTab FW-AccessTab FW-WindowNoNameWidth FW-WindowBottom FW-WindowHeight) SEARCHPRETTYTYPELST ( +PRETTYTYPELST) \NSINIT (\NS.ROUTING.TABLE \NSADDRESS.CACHE \NSROUTER.PROBECOUNT \NSROUTER.PROBETIMER +\NSFLG \NS.READY) SCANDECLARECOLON (ADR DONELST) COMP.STTAG (LEVEL FRAME CODE) HCOPYALL ( +HPRINTHASHARRAY) \INITBCPLDISPLAY (\BCPLDISPLAY \TERM.OFD *STANDARD-OUTPUT*) +XCL::MAKE-VARIABLE-DEFINITION (XCL::*PROFILE-VARIABLES*) MAKEFILES (%#UNDOSAVES) D-ASSEM::+SLOW-FVAR-SLOT+ + (D-ASSEM::+SLOW-FVAR-SLOT+) MSCHECKVARS1 (LF LF1) CL:MOST-POSITIVE-FIXNUM (CL:MOST-POSITIVE-FIXNUM) +\IDATESCANTOKEN (*POS*) PPT (PRETTYTRANFLG) CL:PI (CL:PI) \CREATE.SYMBOL (\AtomFrLst) DOWINDOWCOM ( +WindowMenu) \GCSCANSTACK (NV) SEDIT:*INDENT-ALIST* (SEDIT:*INDENT-ALIST*) BKSYSBUF.GENERAL (PRXFLG) +BCOMPL1A (CHANGES FIRST DESTINATIONENV DEFS NOFIXVARSLST OTHERS) SI::DISABLE-CLOSURE-CACHE ( +SI::*CLOSURE-CACHE-ENABLED*) CLISPFOR0A (I.S.OPRSLST) \MAIKO.ASSIGNBUFFERS (\EMBUFBASE \EMBUFVP +\EMBUFRP \TELERAIDBUFFER \#SWAPBUFFERS \#EMUBUFFERS \#DISKBUFFERS \EMUSWAPBUFFERS \EMUBUFFERS) +D-ASSEM::DIGEST-FUNCTION (D-ASSEM::*LOCAL-FN-FIXUPS*) COMPILER::CLOSURE-ANNOTATE-LABELS ( +COMPILER::*NEED-STORAGE*) *WHO-LINE-ACTIVE-PERIOD* (*WHO-LINE-ACTIVE-PERIOD*) CL::%%SIN-EPSILON ( +CL::%%SIN-EPSILON) COMPILER::FRAME-ANNOTATE-CATCH (COMPILER::*REFERENCES*) CL:SINGLE-FLOAT-EPSILON ( +CL:SINGLE-FLOAT-EPSILON) XCL::IN-PROFILE (XCL:*PROFILE*) FW-WIPE (FW-AllFiles? FW-Anchor FW-CurPosTab +FW-EofPosTab FW-FieldWidth FW-Filters FW-Font FW-FullNameWidth FW-Interval FW-Justified? FW-OFDList +FW-OpenFiles FW-PercentHeight FW-PercentWidth FW-PercentTab FW-Position FW-ReInit? FW-Reset? +FW-Running? FW-SeprWidth FW-Shade FW-SortFn FW-WindowBottom FW-WindowBottomDelta FW-WindowHeight +FW-WindowNoNameWidth) \MEDW.CLOSEW (\TOPWDS) CL:SHORT-FLOAT-NEGATIVE-EPSILON ( +CL:SHORT-FLOAT-NEGATIVE-EPSILON) GETSETQ (SETQTAIL SETQPART) CL:SINGLE-FLOAT-NEGATIVE-EPSILON ( +CL:SINGLE-FLOAT-NEGATIVE-EPSILON) PACKAGE-DISABLE (*PACKAGE*) DREAD (I) MAX.SMALLFIXP (MAX.SMALLFIXP) +SCANEXP (NOFIXVARSLST FILECREATEDLST DONELST) CONDITIONS::*FUTURE-CITIZENS-OF-CONDITIONS* ( +CONDITIONS::*FUTURE-CITIZENS-OF-CONDITIONS*) COMP.AC (AC) OPT.SCANOPT (ANY) \M-VMEMSAVE ( +\VMEM.PURE.LIMIT) DISPLAYSTREAMINIT (TtyDisplayStream \TopLevelTtyWindow \DEFAULTTTYDISPLAYSTREAM +\LastTTYLines) \DOSTACKOVERFLOW (\RECLAIM.COUNTDOWN) CLISPATOM2D (PARENT) \DOCOMPRESSVMEM ( +\VMEM.INHIBIT.WRITE) CL::FUTURE-CITIZENS-OF-XCL (CL::FUTURE-CITIZENS-OF-XCL) SIGNAL (*LAST-CONDITION*) + EDITH (COM READBUF LISPXHISTORY EDITHIST) WINDOWWORLD (\TOPWDS \SCREENBITMAPS \SCREENS +WindowTitleDisplayStream \DEFAULTTTYDISPLAYSTREAM \TopLevelTtyWindow PROMPTWINDOW \LastInWindow +\LastWindowButtons \LastCursorPosition) COMP.ST (CODE LEVEL) \START.PROCESSES (\RUNNING.PROCESS) +\ALLOCBLOCK (\RECLAIM.COUNTDOWN) \SETUPUSERSTACK (\NEED.HARDRESET.CLEANUP \RECLAIM.COUNTDOWN) EDIT* (L + LASTAIL) DELETELINE (\ENDBUFFER \ARROW \CURSOR) DRIBBLE (*DRIBBLE-OUTPUT*) CLISP3A (SEG) CL::%%PI/2 ( +CL::%%PI/2) COMP.STJUMP (FRAME LEVEL) SUBPRINT/ENDLINE (TAIL) EDITDEFAULT (READBUF COM) +XCL::*DECLARATIONS* (XCL::*DECLARATIONS*) MSNEEDUNSAVE (MSNEEDUNSAVE) SIMPLETEXTEDIT ( +\TTSCRATCHFILE.GLOBALRESOURCE) ADD.PROCESS (\PROCESSES) \MKATOM.FULL (\STORAGEFULL \PENDINGINTERRUPT) +BYTECOMPILE2 (COMP.GENFN.NUM) COMPILEUSERFN1 (NOFIXFNSLST0 NOFIXVARSLST0 NOFIXFNSLST NOFIXVARSLST) +EDLOC (UNFIND L) SI::FINISH-UNBREAKING (BROKENFNS XCL::*TRACED-FNS* XCL::*UNBROKEN-FNS*) DPRIN1 (I) +BMOBJ.INIT (BITMAPIMAGEFNS) CHAT.STARTUP (CHAT.ALLHOSTS CHAT.HOSTMENU CHAT.HOST.TO.PROTOCOL +\CURRENTKEYACTION) SCANDEFINEQ (DICT0 FNADRLST ADR NOFIXFNSLST DONELST FNLST) EDOR (L) +CL:LAMBDA-LIST-KEYWORDS (CL:LAMBDA-LIST-KEYWORDS) SI::INSTALL-CLOSURE-CACHE (SI::*CLOSURE-CACHE-ENABLED* +) \MEDW.OPENW (\TOPWDS) COMP.APPLYFNP (ALAMS1) \VFMContextSet (\VFMvolumeHandle) \EXTENDSTACK ( +\STACKOVERFLOW \PENDINGINTERRUPT) EDITRAN (L) CL::%%FUNCTION-DEFINING-FORM-KEYWORDS ( +CL::%%FUNCTION-DEFINING-FORM-KEYWORDS) PROCESSWORLD (\TTY.PROCESS \RUNNING.PROCESS %#SCHEDULER# +\STACKOVERFLOW \TTY.PROCESS.EVENT \PROCESS.AFTEREXIT.EVENT \PROCESSES \TIMERQHEAD) \RELEASE.PROCESS ( +\PROCESSES) COMPILER::CLOSURE-ANNOTATE-LAMBDA (COMPILER::*NEED-STORAGE*) +\PERIODICALLY-WHO-LINE-SHOW-ACTIVE (*WHO-LINE-ACTIVE-TIMER*) *FORMAT-DISPATCH-TABLE* ( +*FORMAT-DISPATCH-TABLE*) EDITTO (L COM TOFLG) COMPILER::FRAME-ANNOTATE-GO (COMPILER::*REFERENCES*) +\DEL.PACKET.FILTER (\PACKET.FILTERS) \RELEASE.IOCB (\IOCB.INPUT.ALLOC \IOCB.OUTPUT.ALLOC \IOCBFREELIST +) MSCLOSEFILES (MSOPENFILES) \INIT.KEYBOARD.STREAM (\KEYBOARD.DEVICE \KEYBOARD.STREAM) +*WHO-LINE-ACTIVE-TIMER* (*WHO-LINE-ACTIVE-TIMER*) GETCFILE (READBUF) CLISPFOR1 (I.V. MAKEPROGFLG +UNDOLST I.S.TYPE1 I.S.TYPE) XCL::ADD-PROTOTYPE-FN (XCL::*DEFINITION-PROTOTYPES*) XCL::*ENVIRONMENT* ( +XCL::*ENVIRONMENT*) EDITCOM (COM FINDFLAG L) CL::%%PI (CL::%%PI) OPT.SETUPOPT (CL:LABELS FRAMES) +DEFAULT.EDITDEF (RETRY) CL::%%2PI/3 (CL::%%2PI/3) EDRPT (MAXLOOP L) CLISPTRAN (CLISPARRAY %#CLISPARRAY +) COMPILER::*NODE-NUMBER* (COMPILER::*NODE-NUMBER*) SET-READTABLE-INTERACTIVELY (*READTABLE*) +COMP.RPLACD (CODE) EDUP (COM L) OPT.POSTOPT (TAGS) DO-HISTORY-SEARCH (*EVENTS*) LISTFILES ( +NOTLISTEDFILES) SEDIT::GET-MENU (SEDIT::MENUS) INSTALLBRUSH (\BrushAList KNOWN.BRUSHES) CURSOR.INIT ( +\CURSORDESTINATION \SOFTCURSORUPBM \SOFTCURSORDOWNBM \CURSORDESTLINE \CURSORDESTLINEBASE +\CURSORDESTWIDTH \CURSORDESTHEIGHT \CURSORDESTRASTERWIDTH \SOFTCURSORBBT1 \SOFTCURSORBBT2 +\SOFTCURSORBBT3 \SOFTCURSORBBT4 \SOFTCURSORBBT5 \SOFTCURSORBBT6) SPELLFILE.MATCHINGDIRS (DIRHOSTS) +\10MB.STARTDRIVER (\10MB.RAWPACKETQ \10MB.INPUT.TIMEOUT \MAIKO.INPUT.PACKET) FIXAPPLY1 (PARENT) +\NSPRINT.WATCHDOG (*PRINT-JOBS-IN-PROGRESS*) /CNDIR (/LAST.CONNECTED.DIRECTORY) OPT.FRAMEOPT (FRAMES) +CL:MOST-POSITIVE-SINGLE-FLOAT (CL:MOST-POSITIVE-SINGLE-FLOAT) \DL.NEWFAULTINIT (\RPOFFSET +\REALPAGETABLE \RPTSIZE) DRAWCURVE (\SYSTEMBRUSHES) DP (*LAST-DP*) IRM.RESET (IRM.DINFOGRAPH +\IRM.HASHFILE \IRM.KEYWORDS) EDITCOMA (UNDOLST UNDOLST1 COM L EDITLISPFLG LASTP2 LASTP1 UNFIND MARKLST + FINDFLAG) CLISPATOM2C (ENDTAIL TENTATIVE) \CURVEEND (DASHCNT DASHON DASHTAIL \OLDERX \OLDERY \OLDX +\OLDY \CURX \CURY) BITMAPOBJ.SNAPW (*INSERT-BITMAP*) CL::%%DEFSTRUCT-CONSP-OPTIONS ( +CL::%%DEFSTRUCT-CONSP-OPTIONS) DEFEVAL (\DEFEVALFNS) \TEDIT.APPLY.PARASTYLES (*TEDIT-PARASTYLE-CACHE*) + EDITCOML (UNFIND L EDITLISPFLG LASTP2 LASTP1 COM USERMACROS) FIXSPELL1 (RESPELLS SIDES) +GET.EDIT.BITMAP.MENU (EDIT.BITMAP.MENU) NewPrinter (DEFAULTPRINTINGHOST) D-ASSEM::+JUMP-CHOICES+ ( +D-ASSEM::+JUMP-CHOICES+) EDITCOM1 (EDITLISPFLG UNDOLST1) BREAKLINE (\ARROW \CURSOR) +CL::*STEP-INDENTATION-INCREMENT* (CL::*STEP-INDENTATION-INCREMENT*) \MAIKO.CONS.UFN ( +\RECLAIM.COUNTDOWN) D-ASSEM::+JUMP-RANGE-SIZE-MAP+ (D-ASSEM::+JUMP-RANGE-SIZE-MAP+) +XCL::ADD-WHERE-IS-DATABASE (XCL::*WHERE-IS-CASH-FILES*) EDITSAVE (EDITHIST EDITLISPFLG) +COMPILER::FRAME-ANNOTATE-BLOCK (COMPILER::*REFERENCES*) XCL::*PROFILES* (XCL::*PROFILES*) +CLISPCAR/CDR1 (VAR2) COMPILER::GENCODE-RETURN (COMPILER::*NON-LOCALS*) \STOPDISPLAY (\MaxScreenPage +\DisplayStarted) \TEDIT.APPLY.STYLES (*TEDIT-CURRENTPARA-CACHE* *TEDIT-PARASTYLE-CACHE*) UNDOEDITCOM ( +COM L) MSCHECKBLOCKBASIC (ENTRIES BLKFNS BLKAPPLYCALLERS) COMPILER::*COMPILE-SCAN-CONTEXT* ( +COMPILER::*COMPILE-SCAN-CONTEXT*) RECORDTRAN (CLISPCHANGE) SEDIT:RESET-FORMATS (SEDIT::*FSPEC-TABLE-COPY* +) \VFMFind (\VFMbuffer \VFMoldPtr \VFMlowPtr \VFMhighPtr) \TEDIT.MENU.INIT (TEDIT.MENUDIVIDER.SPEC +TEDIT.EXPANDEDMENU.SPEC TEDIT.CHARLOOKSMENU.SPEC TEDIT.PARAMENU.SPEC TEDIT.PAGEMENU.SPEC) UNSAVEFNS ( +MSDATABASELST NOTCOMPILEDFILES MSNEEDUNSAVE) *EDIT-INPUT-WITH-TTYIN* (*EDIT-INPUT-WITH-TTYIN*) +\MAIKO.INPUT.INTERRUPT (\MAIKO.INPUT.PACKET) CL::%%DEFSTRUCT-EXPORT-OPTIONS ( +CL::%%DEFSTRUCT-EXPORT-OPTIONS) \NSPRINT.WATCH.JOB (*PRINT-JOBS-IN-PROGRESS*) \GETMISCNSOCKET ( +\MISC.NSOCKET) EDITSMASH1 (UNDOLST1) *WHO-LINE-UPDATE-INTERVAL* (*WHO-LINE-UPDATE-INTERVAL*) +\FM.LAYOUTGRID (FORMAT LEFT \FM.GROUP-ID-COUNTER) CLISPCOND (SEG) \ADD.PACKET.FILTER (\PACKET.FILTERS) + CL::%%E (CL::%%E) *DEFINITION-HASH-TABLE* (*DEFINITION-HASH-TABLE*) BRECOMPILE1 (BLKFNS ADRLST) +D-ASSEM::+JUMP-SIZES+ (D-ASSEM::+JUMP-SIZES+) \DEFINEDISPLAYINFO (\DISPLAYINFOALIST) +*TOTAL-PACKAGES-LIMIT* (*TOTAL-PACKAGES-LIMIT*) SETTERMTABLE (\PRIMTERMSA \PRIMTERMTABLE) FTPDEBUG ( +FTPDEBUGLOG FTPDEBUGFLG) STOPNS (\NSFLG) CL::%%2PI (CL::%%2PI) MOVE.BACK.TO (\CURSOR) MSADDANALYZE ( +MSFNTYPES) \INITBIGNUMS (\BIG.0 \BIG.1 MIN.INTEGER MAX.INTEGER) *UNINTERNED-PACKAGE-INDEX* ( +*UNINTERNED-PACKAGE-INDEX*) PFI.AFTER.NEW.PAGE (*PFI-PAGE-COUNT* *PFI-ITEM*) OPT.SETDEFREFS (CL:LABELS +) CLOSEF (*STANDARD-INPUT* *STANDARD-OUTPUT*) MSCHECKBOUNDFREE (MSCRATCHASH) HASHTABLE-SIZE-LIMIT ( +HASHTABLE-SIZE-LIMIT) COMPILEUSERFN (OTHERVARS) *EXEC-MAKE-UNDOABLE-P* (*EXEC-MAKE-UNDOABLE-P*) CL:EVAL + (CL::*SKIP-EVALHOOK*) COMPILER::*INDENT-INCREMENT* (COMPILER::*INDENT-INCREMENT*) \STKMIN ( +\OPSTACKEFFECT \OPLENGTH) INITIALIZEDISPLAYSTREAMS (WHOLEDISPLAY \SYSPILOTBBT \SYSBBTEXTURE +\GUARANTEEDDISPLAYFONT DEFAULTFONT) PRIME-HASHTABLE-SIZES (PRIME-HASHTABLE-SIZES) EDIT4F1 (N LASTAIL) +COMPILER::META-SUBST-VAR-REF (COMPILER::*SUBST-OCCURRED*) DC (*LAST-DC*) EDIT2F (COM) \FINDOP ( +\OPCODEARRAY) \VAMFreePageGroup (\\DFSVAMjunkPage.GLOBALRESOURCE \\DFSVAMpage.GLOBALRESOURCE) +ACCESSDEF (NOTRANFLG) PAINTW.CACHE.SHADE (PAINTW.SHADES) PRINTLEVEL (*PRINT-LEVEL* *PRINT-LENGTH*) +DIRFILENAME (FILE FILENAME) \INIT-MISCN-TABLE (\MISCN-TABLE) WHO-LINE-SHOW-ACTIVE ( +*WHO-LINE-ACTIVE-TIMER*) SCANCOMPILEDFN (DICT0 FNADRLST DONELST ADR FNLST) EDIT1F (COM LASTAIL) +COMPAREFAIL (LOOSEMATCH DIFFERENCES) ED (XCL::ED-LAST-INFO) XCL::*PROFILE-VARIABLES* ( +XCL::*PROFILE-VARIABLES*) \ALLOCMDSPAGE (\MDSFREELISTPAGE) COMPILER::*UNKNOWN-FUNCTIONS* ( +COMPILER::*UNKNOWN-FUNCTIONS*) SPY.BUTTON (SPY.BUTTON) ANALYZE-TESTS (ANALYZE-TESTS) MOVE.FORWARD.TO ( +\CURSOR) CLISPFOR (ATTEMPTFLG CLISPCHANGE NOFIXFNSLST0 NOFIXVARSLST0 %#UNDOSAVES) +COMPILER::*COMPILE-DEFINER-CONTEXT* (COMPILER::*COMPILE-DEFINER-CONTEXT*) FASL::END-MARK (FASL::END-MARK +) MSSEEKTYPE (LASTPARSED S) \HANDLE.RAW.PUP (\LOCALPUPNETHOST) EDITBELOW (COM UNFIND L) FW-RECALL-CMD +(FW-Reset?) CHECKRECORDNAME (STRUCNAME NAME TAIL CREATEINFO) EDITSMASH (UNDOLST1) FINDFN (EXPR +BREAKFLG TYPE-IN? TAIL) COMPILER::*COMPILE-FILE-CONTEXT* (COMPILER::*COMPILE-FILE-CONTEXT*) +BLOCKCOMPILE1 (LINKEDFNS EXPRSLST) EDIT4F2 (NEWFLG) BRHC/LAYOUT/DAUGHTERS (RETURNTTC RETURNBTC) +\MAIKO.10MBSTARTDRIVER (\10MB.RAWPACKETQ \10MB.INPUT.TIMEOUT \MAIKO.10MB.NDB \MAIKO.INPUT.PACKET) +HISTORYFIND1 (L HISTORYFLG) \GET.PRIORITY.QUEUE (\HIGHEST.PRIORITY.QUEUE) FASL::CHECK-TABLE-SIZE ( +FASL::CHECK-TABLE-SIZE) BRKDWNINIT (BRKDWNLENGTH BDLST BDSINK BDPTR) \TEDIT.CHARLOOKSMENU.CREATE ( +TEDIT.CHARLOOKS.MENU) EDITL0 (LISPXBUFS) \HDCPYDISPLAYINIT (\HDCPYDISPLAYIMAGEOPS) FORWARD.DELETE.TO ( +\ENDBUFFER) MAKEFILE1 (NOTCOMPILEDFILES) CL::%%NO-COPIER (CL::%%NO-COPIER) \IRM.GET.HASHFILE ( +\IRM.HASHFILE) CL::%%LOG-QPOLY (CL::%%LOG-QPOLY) CHAT.DISPLAYTYPES (CHAT.DISPLAYTYPES) TTY/EDITL ( +READBUF EDITIME) *DEBUGGER-ENTRY-POINTS* (*DEBUGGER-ENTRY-POINTS*) DIRECTORY.PARSE (FILEGROUP) +COMPILER::COMPILE-FILE-LOOSE-FORM (COMPILER::*OUTSTANDING-LOOSE-FORMS*) HPINITRDTBL (HPRINTRDTBL) +COMP.DELFN (LEVEL CODE) FASL::END-OF-DATA-MARK (FASL::END-OF-DATA-MARK) SEDIT::SPLIT-LITATOM ( +SEDIT::BUTTON-STRING-NODE SEDIT::BUTTON-STRING) RATOM (\\PNAMESTRING.GLOBALRESOURCE) EDITBF1 (LASTAIL) + VKBD.FIX.FONT (DEFAULTKEYBOARDDISPLAYFONT) *DEBUGGER-MENU-ITEMS* (*DEBUGGER-MENU-ITEMS*) +\DL.ASSIGNBUFFERS (\EMBUFBASE \EMBUFVP \EMBUFRP \TELERAIDBUFFER \#SWAPBUFFERS \#EMUBUFFERS +\#DISKBUFFERS \EMUSWAPBUFFERS \EMUBUFFERS) FASL::VERSION-RANGE (FASL::VERSION-RANGE) \SUBREAD (\RBFLG +\\PNAMESTRING.GLOBALRESOURCE) *DEBUGGER-COMMAND-TABLE* (*DEBUGGER-COMMAND-TABLE*) +COMPILER::*INPUT-FILECOMS-VARIABLE* (COMPILER::*INPUT-FILECOMS-VARIABLE*) *TRACE-DEPTH* (*TRACE-DEPTH* +) *WHO-LINE-PACKAGE-ENTRY* (*WHO-LINE-PACKAGE-ENTRY*) FW-ADJUST-PLACEMENT (FW-WindowBottom) +XCL::*WHERE-IS-HASH-FILE-SIZE* (XCL::*WHERE-IS-HASH-FILE-SIZE*) *WHO-LINE-BORDER* (*WHO-LINE-BORDER*) +SHOW.CLEARINGHOUSE (CLEARINGHOUSE.STRUCTURE.WINDOW) \CURVESTART (\OLDERX \OLDX \CURX \OLDERY \OLDY +\CURY) ASSURE.PUP.READY (\PUP.ROUTING.TABLE \PUP.READY \LOCALPUPNETHOST \OLDPUPHOST# +\PUPROUTER.PROBECOUNT \PUPROUTER.PROBETIMER) PFI.HANDLE.DEFDEFINER (*PFI-TYPES* PRETTYPRINTMACROS) +UPPERCASEARRAY (UPPERCASEARRAY) CURSOR (\CURSORHOTSPOTX \CURSORHOTSPOTY) EDIT4F3 (FLG) COMP.EVQ ( +COMPVARMACROHASH) ADD-USER-SUBR (\USER-SUBR-LIST) CL::%%LOG-PPOLY (CL::%%LOG-PPOLY) \FM.EDIT-MOVECARET + (POINTER STRINGPTR TAILPTR) *WHO-LINE-TIME-ENTRY* (*WHO-LINE-TIME-ENTRY*) CLISP3C (PRXFLG) +\INIT-USER-SUBR-TABLE (\USER-SUBR-TABLE) TEDIT.BUILD.PCTB2 (DEFAULTPARALOOKS) PFI.HANDLE.RPAQQ ( +*PFI-FNSLST*) OPT.COMPINIT (DONOTHING) IN-READTABLE (*READTABLE*) CL::*GENSYM-COUNTER* ( +CL::*GENSYM-COUNTER*) MSUPDATE (MSPRINTCNT) MSPATHS (MSCRATCHASH MSPRINTFLG) +FASL::INITIAL-VALUE-TABLE-SIZE (FASL::INITIAL-VALUE-TABLE-SIZE) SI::NLSETQ-PROCEED-CASE ( +SI::NLSETQ-PROCEED-CASE) BRHC/LAYOUT/TERMINAL (RETURNTTC RETURNBTC) BRKDWNFBOXES (BDPTR) +CL::*GENTEMP-COUNTER* (CL::*GENTEMP-COUNTER*) FASL::VALUE-TABLE-INCREMENT (FASL::VALUE-TABLE-INCREMENT +) *WHO-LINE-PACKAGE-NAME-CACHE* (*WHO-LINE-PACKAGE-NAME-CACHE*) \TOP-LEVEL-READ ( +\\PNAMESTRING.GLOBALRESOURCE) \KEYHANDLER1 (\KEYBUFFERING \PENDINGINTERRUPT \TIMER.INTERRUPT.PENDING) +CL::*GENSYM-PREFIX* (CL::*GENSYM-PREFIX*) \VFMGetBufferFor (\VFMbufferPool) EDITNTH (COM) +*PREFERRED-READING-SYMBOLS* (*PREFERRED-READING-SYMBOLS*) COMPILER::*CURRENT-FUNCTION* ( +COMPILER::*CURRENT-FUNCTION*) \TEDITPARAMENU.CREATE (TEDIT.EXPANDEDPARA.MENU) \VFMReadNext (\VFMoldPtr + \VFMlowPtr \VFMhighPtr) \PEEKNS (\PEEKNSNUMBER XIPTRACEFILE XIPTRACEFLG) SCROLL.HANDLER ( +\LastInWindow) \FM.LAYOUTCOLUMN (FORMAT \FM.GROUP-ID-COUNTER) MAKEFILE (PRETTYTRANFLG %#UNDOSAVES +CLISPIFYPRETTYFLG LASTFILE NOTLISTEDFILES NOTCOMPILEDFILES) SEDIT::COMMAND-TABLE-SPEC ( +SEDIT::COMMAND-TABLE-SPEC) MSSEEK-WORD (LASTPARSED S) PF (LASTWORD) \LOCATE.PUPNET ( +\PUPROUTER.PROBECOUNT \PUPROUTER.PROBETIMER) CL::%%NO-CONSTRUCTOR (CL::%%NO-CONSTRUCTOR) CL::%%SQRT2 ( +CL::%%SQRT2) BREAK-FUNCTION (BROKENFNS XCL::*UNBROKEN-FNS*) \BASEBYTES.IO.INIT (\BASEBYTESDEVICE) DV ( +*LAST-DV*) \VECFONTINIT (\VecFontDir) CLISP3 (NEGFLG SEG) EXEC-EVAL (IT) \SPY.INTERRUPT ( +\PERIODIC.INTERRUPT) CL:CHAR-HYPER-BIT (CL:CHAR-HYPER-BIT) OPT.CHECKTAG (LEVEL) PURGEHISTORY ( +ARCHIVEFLG) TEDIT.UNDO.PARALOOKS (TEDIT.PENDINGDEL) MSSPLST (MSSPLST) BREAKREGIONSPEC (BREAKREGIONSPEC +) FASL::*BLOCK-LEVEL* (FASL::*BLOCK-LEVEL*) *WHO-LINE-OLD-TIME* (*WHO-LINE-OLD-TIME*) UNDOLISPX3 ( +EDITQUIETFLG MAXLEVEL CLISPTRANFLG) ONEDINSPECT.DEFAULT.VALUECOMMANDFN (IT) HVFWDREAD (BACKREFCNT +BACKREFS) COMPILER::*TAIL-RECURSION-THRESHOLD* (COMPILER::*TAIL-RECURSION-THRESHOLD*) +CHAT.CHOOSE.PHONE.NUMBER (CHAT.PHONE.NUMBER.MENU CHAT.PHONE.NUMBERS) CURSORSCREEN (\CURSORSCREEN) +CL:CHAR-CONTROL-BIT (CL:CHAR-CONTROL-BIT) \FM.LAYOUTROW (FORMAT \FM.GROUP-ID-COUNTER) +XCL::*WHERE-IS-IGNORE-DEFINE-TYPES* (XCL::*WHERE-IS-IGNORE-DEFINE-TYPES*) CL::STOP-STEPPING ( +CL::*STEP-STATE* *EVALHOOK*) COMPILER::*VAR-NUMBER* (COMPILER::*VAR-NUMBER*) PF* (**COMMENT**FLG) +CL::*DESCRIBE-PRINT-LEVEL* (CL::*DESCRIBE-PRINT-LEVEL*) CL:CHAR-FONT-LIMIT (CL:CHAR-FONT-LIMIT) +\TEXTMENU.TOGGLE.INIT (\TOGGLEIMAGEFNS) \VAMAllocPageGroup (\\DFSVAMjunkPage.GLOBALRESOURCE +\\DFSVAMpage.GLOBALRESOURCE) INITIALEVALQT (BOOTFILES) *ATTACHED-WINDOW-COMMAND-SYNONYMS* ( +*ATTACHED-WINDOW-COMMAND-SYNONYMS*) ASKUSER$ (KEY) HVRPTREAD (RPTCNT RPTVAL) COMP.DELPUSH (LEVEL CODE) + MSSOLVE (MSTHOSE) CHAT.EMACSCOMMANDS (CHAT.EMACSCOMMANDS) CLISPIF (ATTEMPTFLG CLISPCHANGE +NOFIXFNSLST0 NOFIXVARSLST0 %#UNDOSAVES) \CURVE (DASHCNT DASHON DASHTAIL \OLDERX \OLDERY \OLDX \OLDY +\CURX \CURY) INTERPRET/MARK/FORMAT (BOX.BOTH.FLG BOX.LEAVES.FLG BORDER.FOR.MARKING +LABELSHADE.FOR.MARKING) \VFMSplit1 (\VFMxtraBuffer \VFMhighPtr) EDITL1 (FINDFLAG COM L0 COM0 UNDOLST +EDITHIST0 LISPXBUFS) COMPILER::*PROCESSED-FUNCTIONS* (COMPILER::*PROCESSED-FUNCTIONS*) DELETE.TO.END ( +\ENDBUFFER) RESETUNDO (LISPXHIST) ICMLARRAY.VALUECOMMANDFN (IT) LISPXREAD (READBUF REREADFLG CTRLUFLG) + HRULE.DISPLAYFN (WIDTH) \PFCreateVols (\DFSLogicalVolumes \DFSLogicalVolumeHash \PFInitialized) +\RESETSTACK0 (\SAVED.USER.CONTEXT \KBDSTACKBASE \MISCSTACKBASE \NEED.HARDRESET.CLEANUP) CLISPATOM2A ( +NOFIXFNSLST0 NOFIXVARSLST0 TENTATIVE) FIX89A (ATTEMPTFLG) \ASSURE.FPTOVP.PAGE (\NEWVMEMPAGEADDED) +DBG::*DEBUGGER-TERMINAL-TABLE* (DBG::*DEBUGGER-TERMINAL-TABLE*) TEDIT.COPY (TEDIT.COPY.PENDING) +*WHO-LINE-TIMER* (*WHO-LINE-TIMER*) CL:READ-PRESERVING-WHITESPACE (\\PNAMESTRING.GLOBALRESOURCE) +*EXEC-COMMAND-TABLE* (*EXEC-COMMAND-TABLE*) TEDIT.UNDO.LOOKS (TEDIT.PENDINGDEL) CL::%%NO-PREDICATE ( +CL::%%NO-PREDICATE) CL:READ-DELIMITED-LIST (\\PNAMESTRING.GLOBALRESOURCE) TB.UNDOSELECTION ( +SELECTIONSTATE) INITIALIZE-NEW-SHELL-DEVICE (*NEW-SHELL-DEVICE*) LISPX (IT EDITQUIETFLG LISPXCOMS +HISTORYCOMS REDOCNT READBUF) CARET (\CARET.DEFAULT) RECORDECLTAIL (ALLOCATIONS) SEDIT::MUTATE ( +SEDIT::MUTATE-CANDIDATE) CL::*DESCRIBE-PRINT-LENGTH* (CL::*DESCRIBE-PRINT-LENGTH*) COMPILEMODE ( +COMPILEMODE) *PACKAGE-FROM-INDEX* (*PACKAGE-FROM-INDEX*) TTYINEDIT (\TTSCRATCHFILE.GLOBALRESOURCE) +BCOMPL.BODY (NOFIXFNSLST) *NOT-YET-EVALUATED* (*NOT-YET-EVALUATED*) SETREADTABLE (*READTABLE*) +MSNOTICEFILE (LOADDBFLG MSFILELST) INITBITMASKS (BITMASKARRAY NOTBITMASKARRAY 4BITMASKARRAY +NOT4BITMASKARRAY) CURSORHOTSPOT (\CURSORHOTSPOTX \CURSORHOTSPOTY) SCANFILE1 (NOFIXFNSLST) CL:READ ( +\\PNAMESTRING.GLOBALRESOURCE) LISPXUNREAD (READBUF) FINDATOM (PARENT SUBPARENT FORMSFLG) EVALQT ( +TOPLISPXBUFS) GETMOUSESTATE (LASTMOUSEX LASTMOUSEY LASTMOUSEBUTTONS LASTKEYBOARD LASTSCREEN) COMPERRM +(EMFLAG) STRING.EQUAL (UPPERCASEARRAY) RECORDBIND (BINDINGS) *WHO-LINE-DISPLAY-NAMES?* ( +*WHO-LINE-DISPLAY-NAMES?*) *WHO-LINE-COLOR* (*WHO-LINE-COLOR*) PRINOPEN (MAKEMAP) MSVERB (S LASTADVERB +) GETDUMMYVAR (DUMMYVARS VARS PROGVARS) COURIERTRACE (COURIERTRACEFILE COURIERTRACEFLG) +\DOBUFFEREDTRANSITIONS (\KEYBUFFERING \PENDINGINTERRUPT) ANALYZE-REST (%%UNBOUNDED-ARG-COUNT +%%LET-LIST) COMPILER::*TAG-NUMBER* (COMPILER::*TAG-NUMBER*) LOWERCASE (CHCONLST) \PRINTADDR ( +\\NUMSTR.GLOBALRESOURCE \\NUMSTR1.GLOBALRESOURCE) SEDIT::GET-CONTEXT (SEDIT::CONTEXTS) CL::%%LOG2 ( +CL::%%LOG2) \FM.EDIT-DELETE (MOUSEX MOUSEY STRINGPTR TAILPTR ITEMWIDTH) SCANFILE0 (DICT ADR) +FILEPKGCOM (FILEPKGCOMSPLST) WBREAK (WBREAK) \SAVEVMBACKGROUND (\DIRTYPAGEHINT) PRESSFILEP ( +PRESS-STREAM) OPT.CHLEV (LEVEL) ONEDINSPECT.DEFAULT.TITLECOMMANDFN (IT) CL::%%RANDOM-SIZE ( +CL::%%RANDOM-SIZE) \TTW1 (\TOPWDS) \InitCurveBrushes (\SingleBitBitmap) PUSH-KEYWORD-BINDING ( +%%LET-LIST) \STRINGSTREAM.INIT (\STRINGSTREAM.FDEV) \FLUSHPAGE (\NEWVMEMPAGEADDED \DIRTYPAGEHINT) +INTERRUPTED (\PENDINGINTERRUPT) PRINSHUT (MAKEMAP) \PUPGATELISTENER (\PUPROUTER.PROBECOUNT) +\TRANSFERPAGE (\LASTACCESSEDVMEMPAGE) \VAMBufferInit (\VAMbuffer \VAMbufferVolume \VAMbufferVolumePage + \VAMbufferDirty) CL::%%DEFSTRUCT-OPTIONS (CL::%%DEFSTRUCT-OPTIONS) CL::*DESCRIBE-INDENT* ( +CL::*DESCRIBE-INDENT*) \CARET.DOWN (\CARET.UP) RSTRING (\\PNAMESTRING.GLOBALRESOURCE) ADDCHAR (\CURSOR + \CURSORCOL) POSTSCRIPT.INIT (POSTSCRIPTFONTCACHE \POSTSCRIPT.CHARTYPE \POSTSCRIPTIMAGEOPS +*POSTSCRIPT-NS-HASH*) COPYVM (\VMEM.INHIBIT.WRITE) READ-EXTENDED-TOKEN (\\PNAMESTRING.GLOBALRESOURCE) +\HANDLE.PUP.ROUTING.INFO (\PUPROUTER.PROBECOUNT) \INTERRUPTED (\PENDINGINTERRUPT) END.DELETE.MODE ( +\DELETING) COMP.CALL (NLAMS1 ALAMS1) \FM.EDIT-WORDDELETE (ITEMWIDTH STRINGPTR TAILPTR) FIX89 (89CHANGE +) DELETETO (\DELETING \CURSORCOL \CURSOR \ENDBUFFER) CL:ERROR (*LAST-CONDITION*) \DISABLEGC1 ( +\RECLAIM.COUNTDOWN \RECLAIMMIN \PENDINGINTERRUPT \GCDISABLED) \NSFILING.LOGIN ( +\NSFILING.ACTIVE.SESSIONS) *ED-OFFERS-PROPERTY-LIST* (*ED-OFFERS-PROPERTY-LIST*) SETFONT (\DEDITFONT# +SPACEWIDTH) CLISPATOM2 (TAIL ENDTAIL CLISPCHANGE BACKUPFLG TYP TENTATIVE CLTYP) COMP.TOPLEVEL.COMPILE +(FREELST SUBFNFREEVARS COMFNS) \BITBLT.BITMAP (\BBSCRATCHTEXTURE) RANDSET (RANDSTATE) \VECSKIP ( +VecCurX VecCurY) \ATBLSET (\READTABLEHASH \ORIGREADTABLE %#CURRENTRDTBL# FILERDTBL +*OLD-INTERLISP-READ-ENVIRONMENT* *READTABLE* \ORIGTERMTABLE \PRIMTERMTABLE \PRIMTERMSA) +COMPILER::CLOSURE-ANNOTATE-BLOCK (COMPILER::*NEED-STORAGE*) \AUTHENTICATION.FIND.SERVER ( +\AUTHENTICATION.SERVER.CACHE) SPY.END (\PERIODIC.INTERRUPT) RECORDECLBLOCK (ALLOCATIONS) \ADDOFD ( +\OPENFILES) OPT.RETOPT1 (ANY) MSINIT (MSDATABASELST MARKASCHANGEDFNS MSCHANGEDARRAY MSDBEMPTY +MSFILETABLE MSARGTABLE) SI::*BACKQUOTE-LEVEL* (SI::*BACKQUOTE-LEVEL*) EDITBF (COM UNFIND L) FLTFMT ( +\FLOATFORMAT) DEFPRINT (\DEFPRINTFNS) START.CLEARINGHOUSE (\NS.ROUTING.TABLE.RADIUS +NS.SERVER.NAMES.TO.ADDRESSES \CH.CACHE LOCAL.CLEARINGHOUSE) TRACEREGION (TRACEREGION) +\DRAWELLIPSE.GENERIC (EXTRAXOFFSET EXTRAYOFFSET VERSOXOFFSET VERSOYOFFSET) BRKDWNBOXES (BDPTR) +RESETSAVE (SI::*RESETFORMS*) \CREATE.TTYDISPLAYSTREAM (\TTYREGIONOFFSETSPTR \TTYWINDOW +*STANDARD-OUTPUT*) UPDATEFN (DEF) \FORMATLINE (*TEDIT-CURRENTPARA-CACHE* *TEDIT-CACHED-FMTSPEC*) +\FM.EDIT-BACKUP (STRINGPTR CHARWIDTH ITEMWIDTH TAILPTR) WHO-LINE-TIME (*WHO-LINE-TIMER* +*WHO-LINE-OLD-TIME*) PRINTNUM-TO-STRING (\\NUMSTR.GLOBALRESOURCE \\NUMSTR1.GLOBALRESOURCE) \DELETEOFD +(\OPENFILES) INPUT (*STANDARD-INPUT*) \BQUOTE.BREAKRESET (\INBQUOTE) EDITQF (L LASTAIL) HVBAKREAD ( +DATATYPESEEN) FASL:SIGNATURE (FASL:SIGNATURE) IMAGEFNSCREATE (IMAGEOBJGETFNS) CL::*DESCRIBE-DEPTH* ( +CL::*DESCRIBE-DEPTH*) \UFSPrintTypeMenu (FileTypeMenu) MAKECOM (COM) DASSEM.DSTOREFN (CD CODELOC) +OPT.DS1 (TAGS ICNT) LISPXFIND (EDITQUIETFLG) *DEFAULT-PUSH-EXTENSION-SIZE* ( +*DEFAULT-PUSH-EXTENSION-SIZE*) TTSKIPSEPR (\BUFFER) DO.CRLF (\CURRENTDISPLAYLINE) ASKUSERSETUP (KEY +PROMPTSTRING OPTIONS CONFIRMFLG NOECHOFLG NOCASEFLG) MARGINBAR.INIT (MARGINBARIMAGEFNS) \UPDATECHAIN ( +\RPTLAST \DIRTYPAGECOUNTER \PAGEFAULTCOUNTER) CL::%%DEFAULT-SLOT-TYPE (CL::%%DEFAULT-SLOT-TYPE) +*WHO-LINE-VALUE-FONT* (*WHO-LINE-VALUE-FONT*) CALLS (MSRECORDTRANFLG) CREATE.PACKET.EXCHANGE.XIP ( +\PACKET.EXCHANGE.CNTR) INIT.CURSOR (\LOC.ROW.0 \BMARG \CURSORROW \CURSORCOL) \ETHEREVENTFN (\PUP.READY + \NS.READY \IP.READY \3MBLOCALNDB \LOCALNDBS \10MBLOCALNDB) \PFI.DO.HARDCOPY (\PFI.PROCESS +\PFI.PROCESS.COMMANDS) VIDEORATE (\VIDEORATE) BRHC/LAYOUT (RETURNTTC RETURNBTC) BPNT0 (COM) +INSERT.NODE (\ENDBUFFER) DISMISS (\\DISMISSTIMER.GLOBALRESOURCE) COMPILER::GENCODE-LET ( +COMPILER::*STACK-NUMBER* COMPILER::*AVAILABLE-LEXICAL-NAMES*) XCL:*TRACE-VERBOSE* (XCL:*TRACE-VERBOSE* +) \CHARHI (\CHARHI) \HCPYMODEDISPLAYINIT (\HCPYMODEDISPLAYIMAGEOPS.PRESS +\HCPYMODEDISPLAYIMAGEOPS.INTERPRESS) \GC.HANDLEOVERFLOW (\RECLAIM.COUNTDOWN) \REMOVE.EXTERNALFORMAT ( +*EXTERNALFORMATS*) \TFBRAVO.HANDLE.HEADING (HEADINGPARA NEXTPARAPTR) PFI.ADD.TO.INDEX (*PFI-LOCATIONS* +) ENCAPSULATEDIMAGEFNS (ENCAPSULATEDIMAGEFNS) RECORDGENSYM (PATGENSYMVARS) PRINTFN (LASTFNDEF) +\PFCreatePhysicalVolume (\PFInitialized \PhysVolumePage) CL:ARRAY-RANK-LIMIT (CL:ARRAY-RANK-LIMIT) +DO.EDIT.COMMAND (\CURSORCOL \CURSOR \LASTCHAR) \NSFILING.DISCARD.SESSION (\NSFILING.ACTIVE.SESSIONS) +\CLEANUP.STACKFULL (\STACKOVERFLOW) XCL:UNADVISE-FUNCTION (SI::*UNADVISED-FNS* ADVISEDFNS) +DECLARERECORD (USERRECLST) CL::%%DEFAULT-STRUCTURE-INCLUDE (CL::%%DEFAULT-STRUCTURE-INCLUDE) +%%INITIALIZE-CLSTREAM-TYPES (%%BROADCAST-STREAM-DEVICE %%CONCATENATED-STREAM-DEVICE +%%TWO-WAY-STREAM-DEVICE %%ECHO-STREAM-DEVICE %%SYNONYM-STREAM-DEVICE \FILL-POINTER-STREAM-DEVICE) +CL:ARRAY-TOTAL-SIZE-LIMIT (CL:ARRAY-TOTAL-SIZE-LIMIT) \SELECTREALPAGE (\VMEM.INHIBIT.WRITE \RPTLAST) +OCTALSTRING (\\NUMSTR.GLOBALRESOURCE \\NUMSTR1.GLOBALRESOURCE) XCL:TRACE-FUNCTION (BROKENFNS +XCL::*TRACED-FNS* XCL::*UNBROKEN-FNS*) SET-READER-ENVIRONMENT (*PACKAGE* *READTABLE* *READ-BASE* +*PRINT-BASE*) DF (*LAST-DF*) \WAITFORSYSBUFP (\\DISMISSTIMER.GLOBALRESOURCE) \PFCreateFileDescriptors +(\PFInitialized \PFLogicalVolumeFileD \PFMarkerFileD \PFFreeFileD \PFAllocationMapFileD +\PFFileMapFileD) DO.SHIFTED.SELECTION (\LAST.DELETION) CLISPATOM1A (TENTATIVE) \GCMAPTABLE ( +\RECLAIM.COUNTDOWN) MSSETUP (MSWORDS) WAITFORINPUT (\\DISMISSTIMER.GLOBALRESOURCE) RADIX (*PRINT-BASE* +) OPENNSOCKET (\NSOCKETS) \TIMER.INTERRUPTFRAME (\TIMER.INTERRUPT.PENDING) \INTERPRESSINIT ( +\IPIMAGEOPS \ASCIITONS \ASCIITOSTAR) NIL +SET LOADFNS-MAKELIST (F) FNTYP (DEF) MSSTOREDATA (TAB NEWREL) TEDIT.COPY.LOOKS (LOOKS LEN) COMP.APPLY* + (FN) \UFS.RECOGNIZE.FILE (LEN) DBG::REGION-NEXT-TO (WIDTH HEIGHT) \GETFTPCONNECTION (TRYHARD +CONNECTION CONN) \TYPENUMBERFROMNAME (I) CENTRALWINDOW (MAINW WINDOW) GETNSPRINTER (INFO NAME) +\COURIER.CHECK.ERRORS (ERRDEF INFO) \ALLOCPAGEBLOCK (BASE) \TEDIT.COMMAND.LOOP (SEL WINDOW LINES +IPASSSTRING RTBL WW CH TCH FN) TEDIT.DISPLAYTEXT (CHAR) \ALLOCVIRTUALPAGEBLOCK (FIRSTPAGE NPAGES) +MSMARKCHANGE1 (FLG FN) \TEDIT.PUT.PARALOOKS.LIST2 (LOOKS I) \ATMOUT (CH) FLIPCURSOR (ADDR) +SETUPFONTS.PRESS (F FLG) BRHC/INTERTREE/SPACE (OP TTC NP BTC DIST RAISE) \TEDIT.CONVERT.TO.FORMATTED ( +PC PCTB NEXTCR) SEDIT::MENU-PACKAGE-SELECTEDFN (PACKAGE) COPYFILES (TOSPEC FROMSPEC X COPYFILESOUTPUT +COPYFILESTERSE COPYFILESFN COPYFILESALWAYS COPYFILES.WHENTOSKIP COPYFILESVERSIONS COPYFILESASK +COPYFILESPURGE COPYFILESPURGESOURCE COPYFILESREPLACE COPYFILESASKDEFAULT DONTCOPY SECONDARYSPEC +FULLDST DST COPYFILESSKIPFN BK COPYFILESFROMSPEC NEWFILENAME NF DT2 CF) BITMAPCOPY (BITMAP NEWBITMAP) +TB.UNSELECT.ALL.ITEMS (ITEM I) MAKEBRES (SELF PX PY PXY) WHILEDOUNTIL (FX PL FX1 CONDX TGO DO WHILE +TEM) CL::%%EXP-FLOAT (CL::FX CL::ANSWER) \NSRANDOM.REESTABLISH (HANDLE) \COURIER.CHECK.PROCEDURES ( +FNDEF INFO N ARGS RESULTS ERRORS) \FM.EDIT-FINDFIRST (I) SUBSTRING (BASE LEN FATP OFFST OLDSTRING +START END OLDPTR) SEDIT::SET-POINT-LIST (SEDIT::OFFSET SEDIT::INDEX TYPE) MAKETITLEBARICON (TEXT POS +REG W) LASTCHPOS (START NC RESULT) CL:POSITION (END) COMPILE-FILE-EXPRESSION (FORM) PFI.PROCESS.FILE ( +CH FN EXPR) ALLOCSTRING (N INITCHAR STRINGBASE OLD I) \FTP.PRINTPLIST (ITEM BEFORE CH ISPASSWORD) +MAKEFILESCOMS (FILE) PRINTPUP (FILE MACRO LENGTH) \UPF.NEXTPOS (NCH POS) BREAK.MSG.INTO.LINES (STRLST +CHARWIDTH CHARCODE THISLINE BEGIN LASTSPACE NL I) \SPP.CLEANUP (FN) \FM.EDIT-SETUPTTBL (CC) +\LEAF.ABORT.FROMMENU (SEQUIN) RECORDECL (TEM) GETHOSTINFO (HOST NSFLG INFO VAL) \TEDIT.REPAINTFN ( +WHEIGHT LINES LINE FIRSTCH#) \SPP.GETNEXTBUFFER (ERRCODE CON) XCL::PPRINT-DEFINER (XCL::TOP-LEVEL-P +LEFT XCL::TEMPLATE XCL::NEXT XCL::NEWLINEP TYPE) TB.DESELECTRANGE (FIRST# LAST# I) \INITMDSPAGE ( +NPAGES LIMIT DISP PREV BASE) \LFScavFileName (C A0493) UNIX-GETENV (I) \LFFindDirectory (VOL) +SET.TTYINEDIT.WINDOW (WINDOW) UNPACKPATHNAME.STRING (ONEFIELDFLG COMPONENT) NTHCHARCODE (BASE LEN +OFFST FATP M) \FIXILINES (CH#1 L1 WW LINES CHAR1 CHARLIM LINE) OPT.JLENPASS (X DEC U DEF MIN SMAX SMIN + ML INC U1 CU) MSEDITE (X FPNAME) TEDIT.GET.OBJECT (NBYTES GETFN FILEPTRSAVE OBJ) \LFUnpackName (VOL +charList char A0493 version) BRH/LAYOUT/DAUGHTERS (D FLOOR) \STARTPAGE.PRESS (CFONT SPACEFACTOR HFONT) + FLASHWINDOW (N FLASHINTERVAL WIN? I COLORP) \LEAF.SETCREATIONDATE (DATA) MSPARSE (VAL OUTPUTFILE POSS + Y SPELLING X RESPELL NEXTWORD LASTADVERB PARSED CONJUNCTIONS RESETS LASTPARSED SEEKING S) +UNIX-GETPARM (LEN) COMPILER::COMPILE-DEFINER-PROCESS-FUNCTION (COMPILER::COMPILED-DEFN) BITMAPBIT ( +NBITS HEIGHT bitmapbase WORDX oldword BITX OLDVALUE DD BITMAP TX TY SOFTCURSORUP DISPINTERRUPT) +DBG::ATTACH-BACKTRACE-MENU (TTYWINDOW BKMENU NAME POS N BTW ATW) \SEARCH.OUTPUTQ (LASTPUP PUP) +IDLE.BOUNCING.BOX (WAIT BOX TAIL ORIGBOX BITMAP X Y) SPY.MERGE.CALLEES (ORIGCALLEE COPYCALLEE) +\SPP.SETFILEPTR (SKIPBYTES) STRPOS (PATBASE PATOFFST PATLEN PATFAT PAT STRINGBASE STRINGOFFST +STRINGLEN STRFAT STRING MAXI START SKIP CASEARRAY 1stPATchar OFFST.I jthPATchar J K) SHRKFY (CARLOOKAT + CAARLOOKAT CDARLOOKAT CDDARLOOKAT CARFLAG CDRLOOKAT OPFLG STAGEFLAG FIRSTARGFLG RESULTR OP2FLG +APPSINGFLG CARSAFEFLAG OP3FLG RESULTQ) ANTILOG (YY FRAC IP SSUM) PFI.COLLECT.DEFINERS (TYPE DEFINER +ENTRY) LINE.LESSP (Y1 Y2 DY1 DY2) EDITGETDEF (SEDIT::CONTEXT) \CH.UPDATE.CACHE (NAME.AND.ADDRESS +DOMAIN ORGANIZATION DOMAINSTRING ORGANIZATION.INFO X DOMAIN.INFO) \IGR.MAKEPRETTYCOMSL (L) CREATEW ( +REGION SCREEN REG) BAKTRACE1 (POS TEM N X LST) \FTP.PACKFILENAME (DIR DEVICE NAMEBODY VERSION +SERVERNAME NAME FIELDS I) ASKUSER (KEYLST FILE OLDTTBL TYPEAHEAD BUFS MESS DEFAULT CHAR ECHOEDFLG +KEYLST1 ENTRY TEM ANSWER PRINTLST NC X KEY) \FLUSH.NDB.QUEUE (PACKET IOCB) CL::GET-SHARED-SETF-METHOD +(CL::ARGS CL::VALS CL::VARS CL::SHARED-SETF-INVERSE-FORM CL::GET-FORM) COERCETEXTOBJ (PC DELTA CH# +PFILE C I STR OFILE FMTFILE) \BBTCURVEPT (CLIPPEDTOP STY X) AIN (BASE LENGTH OFFST TYP ORIG STBYTE N) +\MAYBEPEEKPUP (HOST DIRECTION) AOUT (BASE LENGTH OFFST TYP ORIG STBYTE N) STRIP-KEYWORDS (ARGS) +\DRAWPOLYGON.PSC (WIDTH SHAPE COLOR) SHRKFY2 (RESULTP) COMP.MLLFN (FN X) \FILLPOLYGON.PSC (WINDNUMBER +TEXTURE TEXTUREBM TEXTUREWIDTH) MSEDITF (X FPTYPE FPNAME) TB.INSERT.ITEM (BROWSER NEWITEM BEFORE# TAIL + N) PFI.PRINT.FILECREATED (EXPR STRINGS STRWIDTHS) CLISPDEC (DECLST TEM CLASSDEF LST) +TEDIT.UPDATE.SCREEN (TEXTOBJ WW LINE NLINE) \PROCESS.BEFORE.LOGOUT (PROC W) \MEDW.CURSOR (OLDCURSOR +NEWCURSOR) FEQP (X HX LX SIGNX EXPX Y HY LY SIGNY EXPY) \TEXTCLOSEF (PCTB PC) TEDIT.DEFAULT.MENUFN ( +PCTB THISMENU WMENU ITEM OFILE SEL CH) D-ASSEM:INTERN-DCODE (D-ASSEM::RAW-CODE D-ASSEM::RESULT) +SEDIT::REPLACE-LIST (SEDIT::NEW-SUBNODE-COUNT SEDIT::DEAD-NODE SEDIT::UNDO-STRUCTURE SEDIT::DEAD-NODES + SEDIT::UNDO-BOUNDS CL:STRUCTURE SEDIT::X SEDIT::I SEDIT::TRAILING-STRUCTURE SEDIT::CONVERTED? +SEDIT::DOT-LIST?) \DSPPRINTCR/LF (ROTATION Y X AMOUNT/BELOW LFT DBITMAP BTM HGHT WDTH BKGRND +SOFTCURSORUP DISPINTERRUPT KEPTWIDTH) TB.SELECTRANGE (ITEM I) SEPRCASE (RDTBL I CA) +TWODINSPECT.SELECTITEM (SELECTEDROWPROP RPROP SELECTEDCOLUMNPROP CPROP SELECTEDELTBOTTOM VMARK +SELECTEDELTWIDTH XCL:*PROFILE* SELECTEDELTLEFT HMARK) SHOWBITMAP.IP (REGION XPIXELS YPIXELS XBYTES +SCALE LEFT BOTTOM NEXTROW) \BSP.CLOSE.OPEN.SOCKETS (S) DWIMIFYFNS (TEM) \CHANGECHARSET.DISPLAY (BM) +\SFFixY (CHARTOP BM TOP) PRINTWORDS (I) \SLOWBLTCHAR (CHAR8CODE DD ROTATION CURX NEWX LEFT RIGHT +PILOTBBT DESTBIT WIDTH SOURCEBIT SOFTCURSORUP DISPINTERRUPT YPOS HEIGHTMOVED CSINFO) EXPANDW (ICONW) +SI::SPLIT-PROCEED-CLAUSES (SI::CLAUSE SI::SELECTOR) MAKELINE (X0 Y0 DX DY DIR) FB.THINCOMMAND (FILES +TBROWSER NOW ONEDAY SORT# NDELETED TAIL FILE DATA TIMESTAMP CREATIONDATE THISNAME %#DELETED LASTNAME +LASTTIMESTAMP) \GR.MAKEPRETTYCOMSL (L Y NAME DEF) \CARET.FLASH.AGAIN (STREAM OC) \PEEKPUP (L H NETHOST +) \LEAF.STREAM.IN.QUEUE (FIRSTTIME PUP X DEFAULT) \TEDIT.PROMPT.PAGEFULLFN (WINDOW) CLISPIFYLOOKUP ( +CLASS CLASSDEF TEM) \INDICATESTRING (CHARCODE) TEDIT.PUT.OBJECT (LEN) CL:MAKE-PACKAGE (CL::NAME +CL::PREFIX-NAME) REPLACEFIELD (DATUM MASK SHIFT HI LO NEWVALUE) BRH/OFFSET (N) \SHOWSEL (L1 LN DS +LINES CARET) COPYARRAY (NEWARRAY INDEX) \MAYBEPEEKNS (DIRECTION) USERNAME (NAME ADDR) +ENCAPSULATEDOBJ.IMAGEBOXFN (HEIGHT WIDTH) \POSTSCRIPT.OUTCHARFN (CHARWID NEWXPOS MAPPING CHAR) SETD ( +N0) \TEXTSTREAMBOUT (TEXTLEN WINDOW SEL CH# CURLINE FONT L1 LN PS PC OFFST) CL:USE-PACKAGE (PACKAGE) +FTPGETMARK (MARK) ELTD (N0) \MEDW.PUTWINDOWPROP (WINDOW CURREGION OLDDATA OLDVALUE TAIL) REHASH (SLOT +LASTSLOT V) CLISPFORERR1 (TEM X) MODERN-ADD-EXEC (N) PFI.PRINT.MULTI.INDEX (LINESPERPAGE PAIR +NAMES&DATES FILEINFO MAXNAME MAXDATE MAXPAGE# E TEM BESTPACKAGE BESTREADTABLE PREFIX INDEX MASTERENTRY + MASTERINDICES I TAB1 TAB2 TAB3 N&D LASTPAGE) TEDIT.STRINGWIDTH (CH) COURIER.EXECUTE.CALL (VALUE TYPE +SOURCEFLG BULKDATAFN SINKFLG DATASTREAM) \COERCEFONTDESC (FONT DEVICE) BSPREADP (SOCKET) DEFPACKAGE ( +ARGS PACKAGE POST-MAKE-FORMS) HASHARRAY (REHASH-THRESHOLD I J NCELLS LOGSLOTS) STKNTHNAME (CFLAG I +FRAME) ICMLARRAY.SETVALUE (PRTWINDOW XCL:*PROFILE* NEWVALUE) SEDIT::JOIN (TYPE SEDIT::SUBNODES +SEDIT::NEW-STRUCTURE SEDIT::SUBNODE SEDIT::INDEX SEDIT::COMMENT-LEVEL SEDIT::NEW-NODE) IMPORT (PACKAGE +) INVERT.TEXTURE.BITMAP (BASE1 BASE2) CLOSENSOCKET (NSOC) CL:SHADOWING-IMPORT (PACKAGE) LRSH (XHI XLO +X N) CLISPFORVARS (L1 LST0 LST TEM X OLDFLG IV VARLST) ONEDINSPECT.SETELT (XCL:*PROFILE* NEWVALUE) +\LEAF.SETFILETYPE (DATA BYTESIZE TYPE) CL:SHADOW (PACKAGE) \MEDW.GETWINDOWPROP (WINDOW) READBITMAP ( +BITSPERPIXEL W BM BASE) CL::GET-SIMPLE-SETF-METHOD (CL::ARGS CL::VALS CL::VARS CL::SETF-INVERSE-FORM +CL::GET-FORM) SPY.DELETE (X) ULREDISPLAYBITMAP (REGION) EXPORT (PACKAGE) CLMAPS2 (WORD Y X TEM) +SUBARRAY (N1 M1) \NSGATELISTENER (EVENT XIP BASE) \SENDSPP (SEQNO) POSTSCRIPT.OUTSTR (c X) +INFILECOMTAIL (COM X) TTYINFIX (TAIL X) BSPEOFP (STREAM) \FTP.HANDLE.NO (CODE INFO CNAME NEWNAME CPASS + ECHOSTREAM) %%COPY-STRING-TO-ARRAY (REMOTE-BASE REMOTE-ARRAY I) MARGINBAR.CREATE (OBJ OBJDATUM BITMAP + DS) \HCPYMODEBLTCHAR (CURX CHARWIDTH MICARIGHT LOCAL1 RIGHT LEFT SOFTCURSORUP DISPINTERRUPT) +\DRAWARC.PSC (WIDTH COLOR) COMPAREDEFS (TYPE SOURCES SRCS SRC DEF DEFS) DASSEM.CANSHAREBINDING (FR V3 +X) \FTP.ERRORHANDLER (OUTSTREAM TMP) \LEAF.TIMEDOUT.EXCESSIVE (FIRSTTIME PUP X FULLNAME PAGE DATA +ENTRY WRITEFILES READFILES) COMP.MLL (N NN) RESOLVE-USE-PACKAGE-CONFLICT (XCL::SYMBOLS) \CLEARMAP ( +BUFFER PREVBUFFER) LOG (EXP SX SSUM) FILING.CALL (SESSION PGMDEF PROCDEF PROGRAM PROCEDURE NARGS +ARGTYPES NOERRORFLG ABSOLUTELY-NO-ERROR KEEPSTREAM ARGLIST I STREAM FAILED RESULT) PUP.ECHOSERVER (FLG + EVENT PUP ISGOOD) \CH.CHECK.CLEARINGHOUSE (DOMAINS DEFAULT) HASHFILESPLST (HASHFILE) UNDOSAVE ( +HISTENTRY Y N) \ENDVECRUN (XPOS YPOS ORIGXPOS ORIGYPOS ORIGWASDISPLAYING WASDISPLAYING) HARRAYPROP (HA + NEWVALUE HARRAY) \FTP.WHENCLOSED (C) \TEDIT.MOVE.PIECEMAPFN (PC OBJ MOVEFN) +SEDIT::INSERT-SPECIAL-CHARACTER (WHERE SEDIT::NODE) COMP.MAP (DOF BINDVALS BOUNDVARS FROMFORM BYF +WHILEF VAL F NXT) DASSEM.MATCHVARS (VAR X VARS TAIL) \ACTONDISKPAGES (DSK STREAM FID EMBUFS EMBLOCK +DAs CAs DAorigin EMDAs EMCAs BUFFERS BUF FIXEDBUF N EMFIXEDCA RESULT LASTNC CA) CLRHASH (SLOT) +DATATYPES (N I) FILEBROWSER (REGION OPTIONS TITLE MENU-TITLE MENU-ITEMS DEPTH KEY ATTRIBUTES X PAIR +COMMANDMENU COMMANDMENUWIDTH PROMPTWHEIGHT COUNTERHEIGHT BROWSERWINDOW BROWSERWIDTH BROWSER +HEADINGWINDOW COMMANDMENUWINDOW W OLDCOMS FILESPEC) CL:RENAME-PACKAGE (PACKAGE NAME PREFIX-NAME) +CLOSEBSPSTREAM (TIMEOUT TIMER) %%COPY-ONED-ARRAY (NCELLS REMOTE-ARRAY REMOTE-BASE I) CHAT.TAKE.INPUT1 +(FILE) \SLOWHCPYMODEBLTCHAR (ROTATION NEWX CURX LEFT RIGHT PILOTBBT DESTBIT WIDTH SOURCEBIT +SOFTCURSORUP DISPINTERRUPT YPOS HEIGHTMOVED CSINFO) \FTP.OPENFILE (HOST DESIREDPLIST PAIR TYPE +BYTESIZE EOLCONVENTION) \GR.CONTENTS (COM X) \CLEARBYTES (OFFST NBYTES BASE) \GENERIC.DSPCREATE ( +DESTINATION SCREEN SC DSTRM) MAPHASH (SLOT V) CLISPFORERR (TEM X Y) DATATYPEP (NAME I) \IDLER (X PROC +W SAVEVM.TIMER IDLE.PROCESS NO.ERROR EXIT? INTERRUPTED.STRING) FINDPTRSBUFFER (B) CLISPIFYMATCHUP (TEM + ALST PAT $LST) \DOACTONDISKPAGES (HINTLASTPAGE CURRENTPAGE CB RESULT THISACTION NEXTCB PAGENO) +FB.SEEFULLFN (PROP BUTTONS EVENT) COMP.MLLVAR (N) \ICONW.FORMAT.TITLE1 (DONE CH NCH WIDTHSOFAR CHWIDTH + LASTBREAKPOS LASTBREAKWIDTH) \GETMAPBUFFER (BUF PREV) \BITBLT.MERGE (SCRATCH) CL:UNINTERN (PACKAGE) +PRINTXIP (FILE MACRO LENGTH) SETTEMPLATE (VAL) BITMAPBIT.EXPANDER (NEWVALUE) CL:UNUSE-PACKAGE (PACKAGE +) OPENBSPSTREAM (SOCKET INSTREAM OUTSTREAM SOCKETPROC) \WRITEDISKPAGES (DSK STREAM FID RESULT EMBUFS +EMBLOCK DAs CAs DAorigin EMDAs EMCAs BUFFERS BUF FIXEDBUF N EMFIXEDCA) TEDIT.QUIT (STREAM MAINW) +DELETE-PACKAGE (PACKAGE) \HASHACCESS (BITS HASHBITSFN INDEX ABASE SLOT SKEY EQFN DELSLOT FIRSTINDEX +REPROBE LIMIT HARRAY HA) \FIXLINELENGTH.IP (LLEN) SEDIT::INSERT-MULTI-ESCAPE (SEDIT::NODE WHERE) +\DOWRITEDISKPAGES (FIRSTNEWPAGE FIRSTPAGE NEXTNEWPAGE LASTVDA J I CURRENTPAGE CB LAB PAGENO) +NUKE-SYMBOL (STRING) RESTART.ETHER (PROC) SCROLLBITMAP (REGION) M44.SIGNAL.DISK.ERROR (ERRCODE) +REDISPLAYBITMAP (WREGION) MAPBUFFERCOUNT (B) SPY.DUMP.BUFFER (NEXTI K TREE J NAME I) TEST-PROCEED-CASE + (FILTER) ADD-SYMBOL (VEC HASH) RESOLVE-EXPORT-MISSING (XCL::SYMBOLS) HARRAYKEYS (ITEMLST) +\TFBRAVO.INSTALL.PAGEFORMAT (PAGEFRAMES) \COURIER.REP.BIN (X) CL:UNEXPORT (PACKAGE) +RESOLVE-EXPORT-CONFLICT (XCL::SYMBOLS XCL::PACKAGES) SEDIT::LOCATE-NODE-FROM-EDITCHAIN (SEDIT::SUBNODE +) PRINTDEF (LEFT) \HASHRECLAIM (SLOT KEY NUMDELETED) \MAPPAGE (BUF %#IOBUFFS PREV MOREBUFS PREVAVAIL) +DO.MOUSE (ROW/COL NEWPOS BUF LINE COL) HASHOVERFLOW (OVACTION NEWOVFLW OLDNUMKEYS NEWSIZE NEWARRAY) +\SETEOF (EP EO) PUP.ECHOUSER (INTERVAL NTIMES ECHOSTREAM I ECHOPUPLENGTH EVENT IPUP) UNDONLSETQ ( +UNDOSIDE UNDOSIDE0 LISPXHIST UNDOTEM) TEDIT.FIND.OBJECT (TEXTOBJ CH PC) STORAGE (TYPE DOBLOCKSFLG HFLG + I) CL:DELETE (END) ATTACHEDWINDOWREGION (REG) TEDIT.REDO.INSERTION (ORIGFIRSTPC NPC INSPC OBJ COPYFN +TL FIRSTPIECE) XCL::SETF-FIND-PROFILE (XCL::NAME XCL::PROFILE) CL:LIST-ALL-PACKAGES (RES) +\BSP.SETFILEPTR (SKIPBYTES) \COURIER.BROADCAST.ON.NET (RESULT) STORAGE.LEFT (FREE MDSFRAC) +TEDIT.UNDO.DELETION (INSPC NEWPIECE OBJECT INSERTFN TL FIRSTPIECE NPC) SETUPFONTS.IP (F IPDATA) +\STORAGE.TYPE (DTD NAME HUNKP SIZE ITEMSPERMDS ALLOCMDS NPAGESALLOCATED STAT LSTPAG PTR INUSE ALLOC) +COMPARELST (LOOSEMATCH) \BITBLT.BITMAP.SLOW (top DESTINATIONNBITS left bottom SOURCENBITS right stodx +stody TEXTURE HEIGHT WIDTH DTY DLX STY SLX DBOT DLFT) \STORAGE.HUNKTYPE (STAT NPAGESALLOCATED) +\COLLECTDIRTYBUFS (NEXTBUF B LASTPAGE) \STRINGWIDTH.PRESS (C TOTAL ESC ESCWIDTH CC TOTALWIDTH) +WHO-LINE-WHAT-IS-RUNNING (POS) \VFMBlankInterval (level) XCL:LIST-ALL-PROFILES (XCL:PROFILES) +ONEDINSPECT.SELECTPROP (SELECTEDPROP PRP SELECTEDELTBOTTOM VMARK SELECTEDELTWIDTH XCL:*PROFILE* +SELECTEDELTLEFT) XCL::SETF-PROFILE-ENTRY-VALUE-NAME (XCL::PROFILE) \MEDW.TOTOPW (WINDOW) +\PUNT.BITBLT.BITMAP (top DESTINATIONNBITS left bottom SOURCENBITS right stodx stody TEXTURE HEIGHT +WIDTH DTY DLX STY SLX DBOT DLFT) \SETIODIRTY (BUF) SEDIT::LINEARIZE-LIST (SEDIT::P SEDIT::LAST-SUBNODE + SEDIT::INFO SEDIT::LAST-INFO SEDIT::SEPR-INFO SEDIT::SET-INDENT? SEDIT::INDENT-BASE SEDIT::BREAK? +SEDIT::INDENT SEDIT::ALREADY-INDENTED? SEDIT::PREV-TYPE SEDIT::PREV-INLINE SEDIT::NEXT-TYPE CL:FIRST +SEDIT::SUBNODES) \STRINGHASHBITS-UFN (C HASHBITS) FAKE-COMPILE-FILE (STREAM ENV FORM INTERLISP-FORMAT +PROCESS-ENTIRE-FILE LSTFIL FILENAME OUTPUT-FILE COMPILE.FILE.VALUE) COURIER.REP.LENGTH (ITEM X +NAMEANDTYPE VALUE NAMEANDVALUE) \DODISKCOMMAND (LA LASTCB NEXT STATUS) \STRING-EQUAL-HASHBITS-UFN (C +HASHBITS) \STMDSTYPE (COL) TEDIT.EDIT.OBJECT (CH# SEL SELOBJ OBJ EDITFN LINE) BRH/LAYOUT (DHEIGHT +YHEIGHT) SPY.MAKE.TREE (TOPCOUNT X THRSH) \GETDISKCB (CB) EXPANDBITMAP (WIDTHFACTOR HEIGHTFACTOR +HEIGHT WIDTH BITSPERPIXEL NEWWIDTH NEWHEIGHT NEWBITMAP) \XIPERROR (LENGTH) NTH (X N) \IFS.LOOKUPFILE ( +START LOCK PUPSOC ROOTNAME SEMI DOT DIREND REMOTENAME OSTYPE OPUP IPUP RESULT) COMP.SELECTQ (A VAR +THISLABEL TEST CLAUSE NEXT) \CLEANUPDISKQUEUE (SHORTCB FREE LABEL LVDA) RESOLVE-IMPORT-CONFLICT ( +XCL::SYMBOLS) XCL:RESTORE-PROFILE (XCL::PROFILE) RECORDACCESSFORM (EXP) SPY.NEXT.TREE (X) FILEWATCH ( +COMMAND FW-PROC) \PUNT.BLTSHADE.BITMAP (left bottom top right DESTINATIONNBITS DESTINATIONLEFT +DESTINATIONBOTTOM TEXTURE HEIGHT) TEDIT.SETSYNTAX (CHAR) \PAGED.GETNEXTBUFFER (COFF CPAGE# EPAGE# BUF) + \CREATEINTERPRESSFONT (TRANSL NEWFONT) COMPARELISTS (STREAM) \MEDW.BURYW (WINDOW ABOVEWINDOWS ATWINS) + \FIXCODENUM (BN) \MAKE.EXPEDITED.STREAM (END) FB.NAMES.DECREASING.VERSION (X Y) \PAGED.FORCEOUTPUT ( +STREAM B N BUFFERS) SEDIT::INSERT-LIST (SEDIT::START SEDIT::END) DSPXOFFSET (DISPLAYSTREAM) +COMPILE-FILE? (X UNKNOWN) \CLIPLINE (LEFT RIGHT BOTTOM TOP CA1 X1 X2 Y1 Y2 DX DY CA2) +DASSEM.DSTOREFNDEF (FRAMENAME NAMETABLE LOCALARGS NTSIZE NTWORDS STARTPC STARTLOCALS LOCALSIZE +REALSIZE CA X LOC FVAROFFSET NT1 NT) RESOLVE-UNINTERN-CONFLICT (XCL::SYMBOLS) POSTSCRIPT.STARTPAGE ( +NEW-PAGE) DSPYOFFSET (DISPLAYSTREAM) TB.EXPANDFN (REGION) \CLISPKEYWORDPROCESS (TMP X) \GR.PUTDEFFN ( +DEF TYPE) \REALDISKDA (VDA) \CARET.FLASH (CURSOR ANSWER) DSPCREATE (DESTINATION DSTRM) +\LEAF.RESENDPUPS (PUPS) SYSRECLOOK1 (D) SPY.SUM (X) DELFROMCOMS (COMS TYPE DONE) CLISPIFYMAPS (FN1 FN2 + VAR TEM) \CHECKARRAYBLOCK (ERROR TRAILER ROVER) SORT (COMPAREFN) \COURIER.REP.BOUT (X TAIL) +\CHECKFREEPAGE (FID) \ALLOCBLOCK.OLD (ABLOCK PREFIXLEN USABLELEN REMAINDERLEN ARLEN BKTI) +\PARTEND.PRESS (PDSTREAM START) SEDIT::OUTPUT-CR (SEDIT::Y SEDIT::THIS-LINE) NS.ECHOUSER (NSOC OXIP +OXIPBASE I ECHOXIPLENGTH INTERVAL NTIMES ECHOSTREAM EVENT IXIP XIPBASE) TWODINSPECT.REDISPLAY ( +ELTROWPROPS ELTCOLUMNPROPS ELTS ELTCOLUMNWIDTHS COLWIDTH COLPROP ELTRIGHTS HMARK ELTBOTTOMS VMARK +ROWPROP XCL:*PROFILE* ELT COLUMNWIDTH RIGHT BOTTOM) WHO-LINE-TTY-STATE (FRAMENAME I) \ALLOCBLOCK.NEW ( +PREFIXLEN FINALWORD NEXTFREEBLOCK FINALPAGE) SWAPXIPADDRESSES (XIP) SEDIT::INPUT-STRINGDELIM ( +SEDIT::NEW-STRING) TB.FIND.PREVIOUS.TAIL (TAIL TAILN) FILENAMEFROMID (start length name) +\NSFILING.GET/SETINFO (SESSION RESULT) \ALLOCHUNK (X DTNUMBER HUNKSIZE NCELLS HUNK ONPAGE STRADDLERS +FAILCNT) POSTSCRIPT.SET-FAKE-LANDSCAPE (LAND C0 P0 C P ML MB MR MT) NSNETDAYTIME0 (OXIP IXIP) +TOPW.REPAINTFN (WINDOWREGION HORZMARKS COLUMNPROPS COLUMNPROP MARK STARTCOLUMNPROPS STARTHORZMARKS +LASTCOLUMNPROP XCL:*PROFILE* HMARK) ICMLARRAY.INDICES (LEVEL FIRSTFLG) \HANDLE.RAW.XIP (DESTADDR NDB +MYNET DESTNET NSOC SOC XIPBASE CSUM) \LEAF.READFILEPROP (DATA IPUP) TTPRINSPACE (N) +DBG::FIND-NAMED-STACK-POSITION (DBG::TEM) \MAIKO.ALLOCBLOCK (NCELLS GCTYPE ALIGN ABLOCK) +\BSP.HANDLE.DATA (DATALENGTH NEWID THISID INQUEUE PREVPUP NEXTPUP DIF PUP) \NEWLENGTHIS (TMP) +CLISPIFYCROPS (TEM1 OPR0 CLTYP0 CROPSLST TEM2 PARENT) PUTHASHTEXT (HASHFILE HASHTEXTPTR) +\TEDIT.WORDBOUND.READTABLE (CH) COMP.NUMBERTEST (A EXIT) BSPPUTMARK (STREAM ERRCODE PUP) CHCON (BASE +OFFST FATP LEN I \CHCONLSTAIL \CHCONLST) INSURE.RGB.COLOR (LEVELS) \BSP.GETNEXTBUFFER (ERRCODE STREAM) + DWIMARKASCHANGED (L) \MERGEFORWARD (NBASE NBINUSE) CLISPIFYRPLAC (LFT RGHT TYP0 TEM CROPS PARENT) +\MEDW.REDISPLAYW (REPAINTFN CLIPREG REGION) \LINKBLOCK (FREEBLOCK) UNPACK (BASE OFFST FATP LEN I CODE +\CHCONLSTAIL \CHCONLST) \MERGEBACKWARD (PTRAILER PBASE) CLISPLOOKUP0 (CLASSDEF VAR1 VAR2 TEM) TCOMPL ( +FILE) \CLIPCURVELINE.IP (CA1 X1 X2 Y1 Y2 SWAPPED DX DY CA2) \VANILLADISKINIT (I) +\LEAF.GETFILEINFO.OPEN (FT BYTESIZE DT) \BSP.HANDLE.ACK (THISID OUTQUEUE INTERRUPTPUP OLDPUP +ADATACOUNT NEXTPUP ACKDATA) SEDIT::PUNT-SET-SELECTION (SEDIT::I SEDIT::X) PPBUFS (B) EDITFROMFILE ( +EDITCOMS FILES FILE TYPE FNS NAME SEEN) CLISPIFYCROPS1 (TEM Y X TAILSTATE N $LST) \PREFIXALIGNMENT? ( +FUDGE ADJUSTMENT DAT) INTEGERLENGTH (X HX LX) SCALE.FONT (FONT) \LOCATE.NSNET (DATA) DCHCON ( +!SCRATCHTAIL BASE OFFST FATP LEN I) XCL::SETF-PROFILE-ENTRY-VALUE (XCL::PROFILE) \MEDW.SHAPEW (WINDOW +NEWSIZE) \NSFILING.GETFILEINFO.FROM.PLIST (PROT) \FLUSHNDBS (NDB QUEUE) FLAST (X Y) TEDIT.MOVE (PCLST +REPLACING TOPCTB EVENT LEN TOLEN INSERTCH#) \CHECKFORSTORAGEFULL (PAGESLEFT) \LFOpenDevice (VOL) +DASSEM.DWRITEFN (X NAMETABLE I LOCALVARINFO FNFIX ATOMFIX PTRFIX LOC) DUNPACK (!SCRATCHTAIL BASE OFFST + FATP LEN I) CLISPDSUBST (TEM) \TEDIT.SEARCH.CODETABLE (I CH CODE) CL:APROPOS (STRING) EXPRCHECK (D X) + TEXTICON (TEXT) TB.RENUMBER.TAIL (ITEM I) \FLUSH.PACKET.QUEUE (PACKET CNT) ALPHORDER (ABASE AOFFSET +ALEN AFATP BBASE BOFFSET BLEN BFATP CABASE CASEARRAY C1 C2 I) COURIER.OPEN (ADDRESS STREAM LOW.VERSION + HIGH.VERSION) BLOCK (PQUEUE PROC FROMFX) CASEARRAY (I) \SETBRUSH.IP (SHAPE WIDTH COLOR) BKLINBUF (C J +) \ARRAYBLOCKMERGER (SECONDBITE ARLEN NARLEN MINBLOCKSIZE SHAVEBACK) COPYHASHFILE (HASHFILE) +\NSFILING.RELEASE.BULKSTREAM (PAIR) FREEATTACHEDWINDOW (ATWIN) CONCATCODES (X I) SPY.MERGE (TREES +NEWNODE OLDNODE Z VAL) \ACCHARWIDTHLIST (BOX BBOX BBOY BBDX BBDY) PACKC (C NN HASFAT N) \LOOKUPFMAP ( +ISFMAP HI MID LO) BSPFORCEOUTPUT (STREAM) \FTP.EOL.FROM.PLIST (PAIR) TB.UPDATE.DISPLAY (DELTA CLIP +EXTENTBOTTOM WBOTTOM LAST#) \READACFONTBOXES (X) FIND-DEBUGGER-ENTRY-FRAME (POS NAME INBRK) \GETFBB ( +MINBBOX MINBBOY MAXBBOX MAXBBOY MAXSUMBBOXBBDX MAXSUMBBOYBBDY BBOX BBOY BBDX BBDY BBLIST) +\COPYARRAYBLOCK (NEW OLD) CLEARBUF (LINBUF SYSBUF) DASSEM.DASSEM (CODE ARGS NARGS A X D LL FRAMENAME +VAR LOCALS FRAMES FREELST FREEVARS NLOCALS NFREEVARS CD CODELOC OP JL) OPENPOSTSCRIPTSTREAM (PAPER +IMAGESIZEFACTOR CLIP REG) PACK (ITEM PACK.INDEX X) COMP.GETBASEBITS (OFF) COPYALL (TAIL X NEW ORIG) +\MEDW.EXPANDW (MAINWINDOW IW USEREXPANDFN EXPANDREGION) WXOFFSET (CR) \ACCHARPOSLIST (HIWORD LOWORD X) + \SAVELINEBUF (NC) SET-PROFILE-INTERACTIVELY (PROFILE) \ADVANCE.ARRAY.SEGMENTS (NCELLSLEFT) +TTY.PROCESS (NEWTTY OTHER P TYPEAHEAD C FN) \LFINITCASEARRAY (C) \FM.EDIT-PREPARETOEDIT (POINTER) +\PAGEPAD.PRESS (PADDING) BRECOMPILE (FNS FILES TEM FILE FILE.COM CFILE DESTINATIONENV MSG AUXFILECOM +SCRATCHFILE COREOK X FILEMAPLST FNLST NOFIXFNSLST) \PFTransferFilePage (runLength PAGE-OFFSET +PAGES-LEFT) \NEW.MKATOM (TEMP) INVERT.SEGMENT (LINE MODE START END) \BYTELT (A) COPYHASHITEM (VALUE) +SETDISPLAYHEIGHT (NSCANLINES) \BYTESETA (A) \FAMILYCODE (TYPE LENGTH NEXT CODE I) +SEDIT::PLACE-CARET-AND-SELECTION (SEDIT::LINE SEDIT::LINEAR SEDIT::NODE SEDIT::INDEX SEDIT::I SEDIT::X + SEDIT::OFFSET) \CARET.FLASH? (CARET STREAM) FB.ANALYZE.PATTERN (SAMPLEHOSTEND PATHOSTEND N LASTPATDIR + STARTOFNAME PATTERN) WYOFFSET (CR) \WORDELT (A) COMP.STFIX (TYPE) \LEAF.STRIP.QUOTES (TAIL) +\LITATOM.EATCHARS (I J) \MEDW.SHRINKW (WINDOW ICONW TOWHAT ICONISBITMAP FN ICONPOSITION) CL:INTERN ( +NAME PACKAGE) INTERPRESSBITMAP (IPSTREAM W H ROTATION) CLISPACKUP (L-1 LL L1 TEM OPRFLG L2) +\3MBWATCHER (PACKET CNTR) CLISPIFYNOT (TEM1 TEM2) TTNTHLINE (N LINE) UnixShellQuote (C CT FLG) +SCALE/GRAPH (WIDTH HEIGHT N) MAKEBITTABLE (A I) COMP.FMEMB (A) EXCHANGEXIPS (TIMEOUT INXIP) +TEDIT.SETSEL (SEL TEXTLEN) COMP.EXPR (V M EXP X) SPY.MAKEGRAPHNODES (BORDER X VAL) \NSFILING.HOSTNAMEP + (FULLHOSTNAME FILINGNAME DEVICE) ONEDINSPECT.SELECTITEM (SELECTEDPROP PRP SELECTEDELTBOTTOM VMARK +SELECTEDELTWIDTH XCL:*PROFILE*) TB.ITEM.UPDATABLE? (ITEM) SEDIT::OUTLINE-SELECTION (SEDIT::MAXX SEDIT::LINE + SEDIT::MINX) \LEAF.REPAIR.BROKEN.PUP (NEWCONNECTION DATA) \CARET.SHOW (DS) \SETFATSYNCODE (TABLE) +\FM.EDIT-ITEM (BUTTONS MOUSEX MOUSEY ITEM REGION CHCODE) \BCPLSOUT.PRESS (N I) SCANX (Y YDX2 DY2 XL XR +) CLISPFOR3 (TEM) FB.CHECK.NAME.LENGTH (TAIL PREVTAIL) \SHOW.ARRAY.FREELISTS (SIZESLST TABLE FBL +ABLOCK TOTAL ARLEN X SAFENTRY BKTI) FILEPOS (STRBASE STRINDEX PATLEN STR STARTBYTE ORGFILEPTR ENDBYTE +LASTINDEX FIRSTCHAR STARTSEG ENDSEG BIGENDBYTE PATINDEX CHAR) \FM.EDIT-FINDNEXT (I) +\M44DOEXTENDVMEMFILE (NP I LASTPAGEREAD LASTPAGEOFFSET LASTFULLPAGE EXTENDED) SHRIEKIFY (CARTEST +RESULTP) SHOW.PRESS (ELSTREAM CNT) XTOUSTRING (CHARCODE SINDEX I) CLISPFORVARS1 ($TAIL) +\STREAMCHARWIDTH (CHARCODE WIDTHSVECTOR CC TABWIDTH NEWXPOSITON) \PFPutFileMapPage (vol) \EXTENDISFMAP + (LASTMAP LASTPAGE) REMOVEPROMPTWINDOW (PWINDOW MAINWINDOW) \TEDIT.UNPARSE.PARALOOKS.LIST (PROP +PROPNAME METHOD NEWLOOKS) TEDIT.SETFUNCTION (RTBL CHARCODE) NSNAME.TO.STRING (NSNAME) +\NSFILING.ERRORHANDLER (FULLNAME POS HANDLE OLDPTR NEWSTREAM CON FAILCNT) FFILEPOS (PATBASE PATOFFSET +PATLEN PATTERN ORGFILEPTR STARTOFFSET EOF ENDOFFSET STARTSEG ENDSEG BIGENDOFFSET LASTCHAR CHAR INC +CURPATINDEX) \FTP.GETFILEINFO.FROM.PROPS (TMP) \TEDIT.GET.TERMSA.WIDTHS (I) \PARSEARRAYSPACE1 (ROVER) +\SETUP.FFILEPOS (I CHAR LASTD2 LASTMATCHPOS J P) COMP.NUMBERCALL (TMP TYPE 2FN A N) UnixTempFile (file + unix i) \SPP.DUPLICATE.REQUEST (INSTREAM CONNECTION) TEDIT.GETFUNCTION (TABLE CHARCODE) +PSCFONT.READFONT (FID W C) \FILLRTPPUP (PUP) TEDIT.NORMALIZECARET (TEXTOBJ) POSTINITARRAYS (VP) +\ECHOCHAR (C) COMPILER::GENCODE-TAGBODY-INLINE (COMPILER::SEGMENT) TB.CLOSE/SHRINK (HOW?) +TEDIT.MAPPIECES (PC CH# I) SPY.MAX (MAX) \TEDIT.COPYINSERTFN (INSERTION) \INTERPRETER1 (HEADER NT +NILSTART ARG ARG# NT1 NT2 *TAIL*) \BSP.TIMERFN (PUP) TEDIT.FIND (TARGETSTRING SEL START# TARGETLIST X +RESULT1 RESULT) SEARCHPRETTYTYPELST (X FLG) \SMASHLINK (CALLER ALINK CLINK BLINK) COMP.NUMERIC (2FN +TMP TYPE A N V) MSCLOSEFILES (X) \STACKARGPTR (P FX) \ENTITYEND.PRESS (ELSTREAM DLLENGTH) \FILLBUFFER +(CHAR PEEKEDECHOED RAISEDCHAR TCLASS RSNX) BCOMPL (FILES) TWODINSPECT.DOWINDOWCOMFN (COM) +\STARTDISPLAY (OLDWINDOWS) SEDIT::EDIT-HELP (SEDIT::ARGS) CL::%%RATIO-PRINT (CL::PR) \MEDW.MOVEW ( +WINDOW OLDSCREEN OLDCLIPREGION OLDLEFT OLDBOTTOM OLDWIDTH OLDHEIGHT POS FN REG LFT BTM OPEN? MFN +NEWREGION SOFTCURSORUP DISPINTERRUPT NEWCLIPPINGREGION NCB OCB OCW NCW OCH NCH NCL OCL OCR NCR OCT NCT +) \INTERPRETER-LAMBDA (ENV) COURIERPROGRAM.PRETTYPRINT (EXPR) FB.HANDLE.ABORT.BUTTON (PROC) +TB.FIND.SELECTED.ITEM (I) SEDIT::COMPUTE-POINT-POSITION-LIST (SEDIT::SUBNODE SEDIT::ITEM) NEWFAULT1 ( +FAULTZ) CHARWIDTH (TEMP) ICMLARRAY.DISPLAYSLICE (I) FAULTAPPLY (%%LEXICAL-ENVIRONMENT%% DEF TRAN +TRANFN) COMP.COMPARENUM (V1) DSPBACKUP (DISPLAYSTREAM BLTWIDTH XPOS FONT ROTATION) \UNPACKDATE (D SEC +MIN ZONE FRAC HR DQ TOTALDAYS DAY4 YEAR4 YDAY WDAY DLS CHECKDLS MONTH) BRECOMPILE3 (DEF FILEDESCR +STREAM Y) PROMPTPRINT (I) \CreateScreenBitMap (MAXPAGE# I) \SETUP-COMPILED-CLOSURE-CALL (OLDBF +INTERPBF INTERPIVAR INTERPALINK SLOWP INTERPCLINK STKEND NACTUALS NA NEWFX SP NPVARS ENV) +\TEDIT.PRIMARYW (WINDOWS WINDOW) \TEDIT.FORMATTEDP1 (LEN DESCPTR NPIECES PASSWORD) \STOPSCROLL? ( +WINDOWFN) \PRINTFMAP (ISFMAP START END VDA OFF) \FILLINSPP (BASE) DISPLAYNODELINKS (TONODEID TONODE +FROMNDID FROMND) \LEAF.USE.NEW.CONNECTION (PUP UNSENTPUPS OPCODE DATA OLDSTREAM AFFECTEDFILES +BUSYFILES GOODPUPS BADPUPS STREAM RESENDPUPS) SPY.MERGEINFO (X) TERMX (Y X) \POSTSCRIPT.NSHASH ( +MAPPING) MAKEKEYLST (TEM X KEYSTRING I) \3MBSENDPACKET (PACKET S) \FIXP.FROM.FLOATP (X HI LO SIGN EXP) + \PROMPTWINDOW.OPENFN (MAINW PWINDOWPROP) \PARSE.REMOTE.FILENAME (FIELDS QUOTEP TAIL VALUE HOST DEV +DIR NAME EXT VERSION) InstallUnixPrinter (type x) CLISPFOR2 (LST) \TEDIT.READTABLE (CH CL FN) +CL::%%COMPLEX-ABS (CL::X) \NSFILING.WHENCLOSED (SESSION STREAMPAIRS PAIR DEV) DOMAINWINDOWCOMFN (MAINW +) \PACKDATE (DAYSSINCEDAY0 YDAY YR HR) XCL::MAKE-VARIABLE-DEFINITION (XCL::DEFINITION) MAKEFILES (TYPE + FLG OPTIONS FILE) \IDATESCANTOKEN (CH RESULT) \DSCCOUT (CC) ARGLIST (DEF) \DSPFONT.IP (OLDFONT FONT +FRAMEVAR) \CREATEDISPLAY (FDEV) WFROMDS (DD DS HINTW WINDOW) FB.EDITLISPFILE (ROOT) CLISPFOR0A (I.S.) +ASKUSEREXPLAIN (TEM) COMP.SHIFT (FNS N) \FTP.UNPACKFILENAME (HOST DIR DEVICE NAME EXT PLIST) +\FREESTACKBLOCK (SCANPTR EASP FREEPTR FREESIZE WANTEDSIZE) ONEDINSPECT.REDISPLAY (ELTPROPS ELTS +ELTBOTTOMS VMARK PROP XCL:*PROFILE* ELTWIDTH ELT BOTTOM) CLEANUP (FILES OPTIONS TEM1 TEM2) +\MEDW.CLOSEW (SOFTCURSORUP DISPINTERRUPT NEXTW) COMPILER::TRANSFORM-GET/PUT-BASE ( +COMPILER::LITERAL-OFFSET-VALUE COMPILER::COMPUTED-OFFSET-TREE COMPILER::REAL-BASE) CLISPELL ( +RESPELLTAIL TEM VAL) \SETUP-ENVIRONMENT-CALL (LOCNARGS NACTUALS ENV CODE NA NEEDEDSIZE ARGSTART +UFNIVAR FREESIZE SZ UFNNEXT STKEND NEWSTACK SLOWP IVAR SP NPVARS) MAKEALISTCOMS (ALISTNAME ATNAME +ENTRY) TEDIT.INSERT.OBJECT (CH# TEXTLEN PC NEWPC SUBSTREAM INSERTFN PCTB PREVPC) DISPLAYSTREAMINIT ( +TTYFONTHEIGHT TTYHEIGHT) SEDIT::CREATE-COMMENT-WORD-NODES (SEDIT::I SEDIT::OK? SEDIT::SUBNODES SEDIT::END +) \PFGetFileMapPage (vol) TEDIT.MAPLINES (LINE) \OUTDATE-STRING (I) \LEAF.READFILENAME (REMOTENAME) +\START.PROCESSES (PQUEUE PROC FROMFX) \NSFILING.GET.STREAM (PAIR STREAMPAIR) BSP.PUTINTERRUPT (PUP) +CHAT.EMACS.MOVE (DROW CCOLUMN) DRIBBLE (NEW-DRIBBLE-STREAM) CLISP3A (L) PROCESSWORLD (PQ P EXECPROC +BACKGROUNDPROC) CLISPCOND1 (TEM) \EVALVAR (VAL) CL:ATANH (CL::BOX) \COERCEASCIITONSFONT (CHARSETDIR +NSCODE CS I CHARSETINFO) ADD.PROCESS (FORM NAME VALUE PROP WINDOW PRIORITY AFTEREXIT BEFOREEXIT +TTYENTRYFN TTYEXITFN INFOHOOK RESTARTFORM RESTARTFLG CREATENOW SUSPENDIT USERPROPS I SYSTEMP PROC) +\MEDW.OPENW (DD SOFTCURSORUP DISPINTERRUPT) CHANGEBACKGROUND (SHADE SCREEN WINDOWS) +PUTPROPS.PRETTYPRINT (EXPR PROP) TRIM.BITMAP (LEFT X RIGHT BOTTOM TOP NEW.BITMAP) \RUN.PROCESS (PREV +NEXT) SEDIT::CFV-LIST (SEDIT::LAST-INFO SEDIT::INFO SEDIT::P SEDIT::LAST-SUBNODE SEDIT::IWIDTH +SEDIT::PWIDTH SEDIT::PREV-TYPE SEDIT::NEXT-TYPE FIRST SEDIT::SEPR-INFO SEDIT::SET-INDENT? +SEDIT::INDENT-BASE SEDIT::BREAK? SEDIT::X SEDIT::SUBNODES) \OPENW1 (WINDOW) NEWPAGE.IP (CFONT ROTATION + XOFFSET YOFFSET HFONT) DISPLAYGRAPH (TRANS STREAM SCALE GRAPH LINEWIDTH NNODES NODEHASHTABLE) +\SPP.SYSPKT (XIP BASE) CL:ASINH (CL::BOX) \3MBGETPACKET (PACKET) SEDIT::SEDITE (SEDIT::NEW-EXPR) +\MOVE.WINDOWS.ONTO.SCREEN (W XFACTOR YFACTOR REG) KNOTLOOP (I PREVX PREVY CURRX CURRY ALINE ALIST) +CLISPFOR1 (BODYTAIL TEM Z LSTFLG BODY LST LST1) CL:ATAN (CL::Z) SEDIT::GET-MENU (SEDIT::MENU) +\RELEASE.PROCESS (FX OTHER WINDOW) \FTP.OPENFILE.FROM.PLIST (CONNECTION INS OUTS REMOTEPLIST FULLNAME) + FAULTEVAL (TEM TEM2) \ADDLEAFSTRING (LEAFLEN STRLEN STRBASE STROFF STRING NEWLENGTH PUPSTRBASE I) +CL::%%LCM (CL::X CL::Y) \FILLBSPPUP (PUP) COMPILEFILES0 (X OPTS RCFLG) PUTWINDOWPROP (WINDOW) CLISPAND + (TEM) OPENWINDOWS (WINDOWS SCREEN WINDOW) \ICONW.FORMAT.TITLE (LINE WASTED EXCESS I RESULT) COMPEM ( +FL) \LONUM (HI LO NUM) CL:ACOSH (CL::BOX) INITX (Y X) \PFPutAllocationMapPage (vol) \HINUM (HI LO NUM) + COMP.RPLACD (NEED-POP) SEDIT::INPUT-NORMAL-CHAR (CL:CHAR WHERE SEDIT::NODE) COLLECTKEYS (KEYLST) +BLOCKCOMPILE1 (ENTRIES TEM FN DEF COREFLG BLOCKLIST CALLTAGS TAGNUM BLKFNS) TB.REV.FIND.SELECTED.ITEM +(I) APPLY (DEF) ICMLARRAY.MENUW.SHOW (LEVEL LEVEL-ITEM I) TTNEXTPOS (LINE) \CREATELINEBUFFER ( +EOFMETHOD DEV) INVERT.BITMAP.VERTICALLY (Y X1) APPLY* (DEF I) \CLOSEW1 (WINDOW) LINEBUFFER-SKIPSEPRS ( +CH) \NEXTCONSPAGE (PG) \CKAPPLYARGS (ACNT PTR VAL) \INSPECT/CODE/REPAINTFN (XCL:*PROFILE*) CHAT.MENU ( +COMMAND) CL::%%GCD (CL::X CL::Y) TB.FIND.ITEM (I END INCREMENT PREDFN ITEM) CLISP4 (N FLG POS) +SEDIT::CREATE-COMMAND-TABLE (SEDIT::FN SEDIT::ENTRY) RECORDTRAN (DEF DECLST EXPRESSIONTYPE TAIL +FIELDNAMES TRAN DEC TEM2 USINGTYPE USING TL FIELDS.IN.CREATE USINGEXPR UNUSED TEM RECORD.TRAN) EDITFNS + (X) \MOUSE.PROCESS (OTHERMOUSE \OLDTTY) POSTSCRIPT.FONTSAVAILABLE (FONTSAVAILABLE FD S NF) +ICMLARRAY.MENUW.APPLY (I LEVEL DISPLAYGROUP) BULKDATA.GENERATE.NEXT (CNT) CLISPIF2 (TEM1 TEM2 TEM3) +\GR.METHODEXPANDER (DEF RVAR) TTGIVEHELP1 (X) \MAIKO.CONS.UFN (CNS.PAGE) \IRM.GET.REF (KEYWORD REFS +SAMEFLG REF) \TEDIT.INSPECTCODE (STREAM WINDOW SEL) SEDIT::EXTRACT-CURRENT-SELECTION (SEDIT::SUBNODES) + UPDATECHANGED1 (VAL) \DEQUEUE (Q) \MEDW.CREATEW (DISPLAYDATA WINDOW) \TEDIT.SHRINK.ICONCREATE ( +ICONTITLE) \SETSPACE.PRESS (ELSTREAM) \TIMER.PROCESS (PROC) SEDIT::BACKSPACE-LIST (SEDIT::NODE) +MAINWINDOW (MAINW WIN) INTERPRESSFILEP (STRM I) \DTSCAN (L) CL:COSH (CL::FZ) \LEAF.DIRECTORYNAMEONLY ( +N) \ISDST? (YDAY) SEDIT::GET-DESTINATION-CONTEXT (SEDIT::DESTINATION) CL:COUNT (END) SETXY.PRESS ( +ELSTREAM) CLISPCOND (TEM1 TEM2) COMP.LABELS (X) CL:COPY-READTABLE (FROM-READTABLE) BRECOMPILE1 (X ADR +Y) \DEFINEDISPLAYINFO (BUCKET) \LFExtendFileIfNecessary (minBackingFileSize) +INVERT.BITMAP.HORIZONTALLY (Y X1) \IRM.SMART.REF (POS KEYWORD TAIL) TWOD.TRACKCURSOR (SELECTEDROWPROP +SELECTEDCOLUMNPROP SELECTEDELTBOTTOM SELECTEDELTLEFT SELECTEDELTWIDTH X Y ROWPROP VERTMARK NEWROWPROP +BOTTOM COLUMNPROP HORZMARK NEWCOLUMNPROP NEWHORZMARK WIDTH LEFT SELECTION) \SETFVARSLOT (NT NTSIZE A +VARINFO) NSOCKETFROMNUMBER (SOC) CL:DECODE-FLOAT (FLOAT) DOCOLLECT (LST) PROG (VAR NVARS NNILS NTSIZE) + COMPILEUSERFN (TEM) EDITCOMS (COMS) CL:DECODE-UNIVERSAL-TIME (CHECKDLS TIME SEC MIN TOTALDAYS HR +LEAP400 DAYS LEAP100 LEAP4 YEAR YDAY WDAY DLS MONTH) TB.DISPLAY.LINES (ITEM HERE MAXXPOS EXTENTCHANGED + ITEM# EXTENT HWINDOW) FW-RECALL-CMD (FORGOTTEN-OFDS OFD RECALL-OFD) \TFBRAVO.WRITE.PARAGRAPH (LENGTH) + \PROG0 (HEADER NT NILSTART VAR VALUEOFF VAR# NT1 NT2 *TAIL*) PAINTW.CACHE.SHADE (ENTRY) +LINKPARAMETERS (TOPARAMS) CL:COUNT-IF (END) FINDFILE-WITH-EXTENSIONS (HASEXTENSION HASDIRECTORY EXT +VAL DIR DIR&FIELDS) PRINTLEVEL (CDRVAL CARVAL) \INITCONSPAGE (CELL J) GREETFILENAME (FILE USER D) +\UPDATE-WHO-LINE-ACTIVE-FLAG (ENTRY) CL:DELETE-IF (END) \ALLOCMDSPAGE (VP VPTR) \NSFILING.EVENTFN (S) +ICMLARRAY.MENUW.GETLEVEL (LEVEL I NEWVALUE) TTY/EDITL (COMS EDITHIST0 EDITIME0 TEM2 TEM1 L MARKLST +UNDOLST UNDOLST0 UNFIND) CL:DELETE-IF-NOT (END) CLISPFOR (UNDOSIDE UNDOSIDE0 LISPXHIST UNDOTEM TEM) +\INVALIDATE.PROCESS.WINDOW (OLDBUTTONFN) \EVPROG1 (*TAIL*) DELETE/AND/DISPLAY/LINK (FROMND TOND) +SEDIT::UNDO-COMMENT-CHANGE (SEDIT::WORD SEDIT::SUBNODES SEDIT::SUB-NODE-INDEX) CL:DELETE-DUPLICATES ( +END) LASTN (X Y L) \SMASHRETURN (CALLER FX DESTPROC) \INSPECT/CODE/RESHAPEFN (WHEIGHT BOTTOM) +TEDIT.DEACTIVATE.WINDOW (MENUW) CreateCursorBitMap (BASE I) DSPRUBOUTCHAR (STREAM CHAR TTBL X Y) +\FIXLINELENGTH.PRESS (LLEN) \GET.PRIORITY.QUEUE (HEAD PREV PQ) GO (GOTAIL FIRSTARG FRAME) EDITL0 ( +COPYFLG) CL:DIRECTORY (GENERATOR FILE) \SPP.SENDPKT (SEQNO) EVALA (TMP NVARS NNILS NTSIZE) +\TEXTMENU.SET.TOGGLE (OBJ PC WINDOW) PFI.MAYBE.PP.DEFINITION (ENV) \SET.PROCESS.NAME (NEWNAME I) +CLISP3C (TEM) \EVALA (HEADER NT NILSTART PAIR VAR# NT1 NT2 VALUEOFF) NUMBERPAD.READER.HANDLE.CHAR ( +TOTAL POWER) DISPLAY/NUMBER/READER/TOTAL (NCHARS DECPOS NAFTERDEC STR I) CHECKCONSPAGES (CPAGE) +CL:COUNT-IF-NOT (END) INVERT.LONG.SEGMENT (START END ROW COL) \PEEKNS (HOST) \MAPMDS (TYPE TYP VP I) +COURIER.WRITE.BULKDATA (SEGMENTLENGTH TAIL LEN) \CHECKCONSPAGE (CNT NXT) EDITFB (FL) +DASSEM.CLEANFNTEST (FN) FTP.BREAKCONNECTION (CONN HOSTS) SMASHFILECOMSLST (NAME) CURSOR (OLDCURSOR +NEWCURSOR) DRAWMARGINSCALE (X NOMX) \ETHEREVENTFN (NDB DB TURNOFFNS TIMESET) CL:ENCODE-UNIVERSAL-TIME +(YEAR YDAY DAYSSINCEDAY0 I HOUR) MODERNWINDOW.UNSETUP (RENAMEDORIG) COMPILER::EXPAND-OPENLAMBDA-CALL ( +COMPILER::SUBST-ALIST COMPILER::UNSUBBED-ARGS) SEDIT::ASSIGN-FORMAT-LIST (SEDIT::P SEDIT::LAST-SUBNODE + SEDIT::FORMATS SEDIT::SUBNODES) ERRORSET (SI::NLSETQ-VALUE) TITLEDICONW (BREAKCHARS FONT OPERATION +BITS REG MASK FORMATTED WIDTH X HEIGHT ICONW TITLESPEC) PRINTLINE (CH CHNO) OPT.OPTCHECK (B P CD) +CL::%%RATIONAL-FLOAT (CL::MANT CL:EXP) \LFRemoveDirEntry (NEWENTRYSIZE) UNDOEDITL (X) +SEDIT::SIMPLE-STRING-SCAN (CL:LENGTH SEDIT::INDEX SEDIT::CWIDTH SEDIT::OFFSET) \PRINT-USING-DEFPRINT ( +FN) \TEST.PARAGRAPH.LOOKS (CHAR VALUE NONEMPTY PROPERTY) CL::%%RATIONALIZE-FLOAT (CL::XNUM CL:EXPT +CL::SIGN CL::HI CL::LO CL::R CL::XDEN) \KEYHANDLER1 (PERIODCNT CURSORX CURSORY MOUSESTATE OLDU OLD2 +WPTR OLD0 OLD1 OLD3 OLD4 OLD5 OLDFAKEU LOOPCNT) COMPILER::ENSURE-EFFECT-CONTEXT (COMPILER::A +COMPILER::CALL-ARGS COMPILER::LAMBDA-PARAMS COMPILER::LAMBDA-ARGS COMPILER::N) \PRINSTACKP (X) +MSUPDATE (TEM PRFLG DATA ERS) SEDIT::FIND-NODE (SEDIT::LINEAR-ITEM SEDIT::CURRENT-X SEDIT::LINEAR-POINTER + SEDIT::NEXTX) \PRINSTRING (C) SETQ (*TAIL*) \TEST.CHARACTER.LOOKS (CHAR VALUE VALFLAG PROPERTY TEM) +DOFILESLOAD (DIRS LOADOPTIONSFLG FILE FULL FN EXT WORD FORCEDEXT? NOERRORFLG) COMP.TAGBODY (F TAGS X) +\SPY.INTERRUPT (FRAME) LET (VAR NVARS NNILS NTSIZE) FB.HARDCOPY.DIRECTORY (MAINFONT TITLE PAD FILES +ITEM FDATA MAXNAMEWIDTH COLUMNSPECS SPEC PROTO DATEWIDTH INDEX INFOLMARG PAIR LABEL W FIRSTINFOCOLUMN +FILEINFO HERE NEXT INFO) \CKPOSSOUT (I) XYSECT (DUDY DXDV X Y) AND (*TAIL*) CLISP3 (L TEM FLG OPR) +\LET0 (HEADER NT NILSTART VAR VALUEOFF VAR# NT1 NT2 *TAIL*) \AB.BACK (ABHI ABLO PW ABADDR SIZE) +\LEAF.ERROR (ERRCODE MSG) TTRACKMOUSE (OLDROW OLDCOL CURSORPOS ROW OLDY OLDX COL WIDTH CH BUF) +MAKEFILE (OPTIONS FILE ROOTNAME FILEPROP CHANGES FILEDATES FILETYPE SOURCEFILE REPRINTFNS Z TAIL OPT) +\LITPRIN (PKG PKGSEPR C WAS-ALPHA) MAP.PROCESSES (P) \LET* (HEADER NT NILSTART VAR VAR# VALUEOFF NT1 +NT2 *TAIL*) TEDIT.CARETLOOKS (CHARLOOKS) SEDIT::PARSE-INDENT-GROUPS (SEDIT::CURIN) COND (VAL *TAIL*) +SEEFILE (FILE CH I) LET* (VAR NVARS NNILS NTSIZE) CL:FILL (END) SEDIT::FIND-LINE-START (SEDIT::NEXT-LINE + SEDIT::LINE) TB.REPLACE.ITEMS (BROWSER N ITEM FIRSTSEL) \EVPROGN (*TAIL*) COMP.RETURN-FROM (DATA +BLOCKFRAME CTX) MSUPDATEFN1 (X DEF) PUTSTREAMPROP (OLDVALUE TAIL) \DURATIONTRAN (BODY Z L RESOURCENAME + USINGTIMER TEMP TIMERUNITSLST FORDURATION SETUPFORM EXPANSION OLDTIMER Y) PROG1 (*TAIL*) +CHECKFORCHANGED (UPDATEALL) FIX89A (X POS) ROTATE.BITMAP.RIGHT (NEW.BITMAP Y X) ENDLOADUP (X) FGETD ( +FN) TB.RECONSIDERRANGE (ITEM I) INSTALL-PROTOTYPE-DEFN (PROTOTYPE-TYPE) \LFReturnInfo (ATTRIB INFOVAL) + MSSOLVE (REP ND OSET QT) CLISPIF (UNDOSIDE UNDOSIDE0 LISPXHIST UNDOTEM TEM) INVERT.BITMAP.DIAGONALLY +(NEW.BITMAP Y X) \CURVE (OLDX OLDY SOFTCURSORUP DISPINTERRUPT X Y DX DY DDX DDY DDDX DDDY OOLDX OOLDY +DELTAX DELTAY DELTA TX TY I) EDITL1 (EDITHIST UNDOLST1) CL:FIND-IF (END) \SUSPEND.PROCESS (PQHEAD PREV + LAST NEXT OLDEVENT EVENT) RECORDPRIORITY (TRAN PREV) FIND-EXTERNAL-SYMBOL (STRING) SPP.DSTYPE (EPKT +CONDITION) TB.SET.FONT (FONT HEIGHT ASCENT ORIGIN TOTALHEIGHT HW EXTENT FN) PROMPTINWINDOW (HGHT WDTH +PREVTTY READSTR) COMP.RETURN (PROGFRAME) PROCESS.RESULT (PROCESS) \POSTSCRIPT.SPECIALFONT.SCALEDWIDTHS + (TYPEFONT FONTFILE) COMPILER::COMPLETELY-EXPAND (COMPILER::NEW-FORM COMPILER::CHANGED-P) +ROTATE.BITMAP.LEFT (NEW.BITMAP X Y) \LITPRIN.INTERNAL (NESCAPES FIRSTESCAPE USEMULTESCAPE CHECKESCAPE +C CASEBASE SA WAS-ALPHA SYN FIRSTFLG) SEDIT::EVAL-SELECTION (SEDIT::VALUE) +%%BROADCAST-STREAM-DEVICE-CHARSETFN (S) TEDIT.COPY (PCLST REPLACING TOLEN INSERTCH# UNDOCHAIN LEN PC +OBJ AFTERCOPYFN EVENT) TEDIT.KILL (STREAM TEDW TEDPROC) \LEAF.GETFILEDATES (INFOBLK START) LISTPUT (X +X0) \SPPWATCHER (ACTIVITY TIMER) ENVAPPLY (DEF) CL:FIND-IF-NOT (END) ENSURE.RGB (RGB) KNOTLINE (I +PREVX PREVY KNOTS CURRX CURRY ALINE ALIST) PROCESS-STATUS (STKI) \CONVERTTOFRACTION (RESULT BOX) +TB.SCROLLFN (HW) \FTP.NEXTFILE (INS PLIST NAME) \FUNCT1 (HEADER NT NILSTART VAR VALUEOFF VAR# NT1 NT2) + \GETFILINGCONNECTION (SESSION OLDSTREAM) \DOMOUSECHORDING (LRSTATE STATE REALUTILIN) GETDUMMYVAR (VAR +) \LFFindNextFile (ANOTHERENTRY ENTRYSTART VERSION NAMELEN CHARS FILENAME) PROCESS.FINISHEDP (PROCESS) + \MAKESTACKP (ED) \TRACKCURSOR (CURSORX CURSORY) COMP.GO (D) TWODINSPECT.MAKEREGIONS (COLUMNWIDTHS +XCL:*PROFILE* VERTMARKS I MARK HORZMARKS COLUMNWIDTH) TERM.RESET.DISPLAY.PARMS (TERM.STATE) +TB.CONSIDERRANGE (ITEM I) \SYMBOL.ESCAPE.COUNT (MULTESCAPE C SYN RESULT NESCAPES FIRSTFLG) NCHARS (C +NCHARCNT) \MAKEFUNARGFRAME (NVARS ENV NNILS NTSIZE) \TEDIT.BRAVOFILE? (PLOOKS ENDCONDITION NAME DIRS) +NOTIFY.EVENT (EVENT TAIL PROC SUCCESS) \DOBUFFEREDTRANSITIONS (R RPTR) \NUMERIC.PNAMEP (C LASTCHARTYPE + SEENALPHADIGITS SEEN-ILLEGAL-SYNTAX MAXALPHADIGIT SEENDECPT SEENDIGITS SEENTIGHTLETTERS SEENEXPONENT) + PROCESS.TTY (PROC) SEDIT::GET-CONTEXT (SEDIT::CONTEXT) STKAPPLY (DEF) MSSHOWUSE (DEF REALDEF ANYFOUND +) CALLS (FREES GLOBALS FNDEF EXPR FLG LAMFLG CALLSDATA) \SOUT (I) SI::UNWIND (RESETSTATE UNWINDER +CLEANUPFN FRAME) FRESHLINE (STREAM) \AB.NEXT (ABHI ABLO PW ABADDR SIZE.WORDS SIZE) +BRACKET.CURRENT.WORD (INSPACES LASTCOL WSTART FIRSTCOL BUF) RETEVAL (RETURNEE) +INTERACT&SHIFT.BITMAP.LEFT (NBITS) PRINTERRORXIP (XIP) TEDIT.CHARWIDTH (CH) RETAPPLY (RETURNEE DEF) +\INSERTCR (INPC) CL:GET-SETF-METHOD (CL::TEMP) TTRUBOUT (START) CL::BOA-ARG-LIST-WITH-INITIAL-VALUES ( +CL::ARG-TAIL) MENU.HANDLER (BOXY BOXX SUBMENUWINDOW OLDBOXX OLDBOXY ITEM MOUSEDOWN SUBMENURESULT +HELDSTATE HOLDTIMER LASTBUTTONSTATE) CL:GET-SETF-METHOD-MULTIPLE-VALUE (CL::TEMP) YSECT (DUDY DXDV X Y +) POSTSCRIPT.INIT (CLASS COPYFD OLDPSCFD x) CLISPIFY2D (TEM) BLIPVAL (I FLG P FRAME) MSCHECKEMPTY (CF +Q) GIVE.TTY.PROCESS (FN) \VAROFFSET (NAME TMP OFFSET) NSMAP (I) SETBLIPVAL (N I P FRAME) +\NSFILING.LOGIN (SERVERNAME SERVERNSNAME ADDRESS CREDENTIALS NEEDLOGIN STREAM PROBLEM LOGINNAME +SESSIONHANDLE PROGRAM OLDPROBLEM SESSION RANDEVICE) SPP.SENDEOM (STREAM) BLIPSCAN (A OFF FRAME) +PAINTW.READ.AND.SAVE.SHADE (SHADE) MSNOTICEFILE (TEM COMS FULL FILE) CL:INTEGER-LENGTH (INTEGER) +CH.CHANGE.ITEM (OBJECTNAME) EDITBF (PAT X LL Y) GETVARS (POS TEM L X) \TEDIT.PEEKBIN.NEW.PAGE (FILE CH +) \DSPFONT.PRESS (OLDFONT FONT CSINFO FDENTRY) \FTP.CLOSEFILE (C SUCCESS INS) PFI.MAYBE.SEE.PRETTY ( +OUTSTREAM INSTREAM) INSPECT (IWINDOW INSPECTINFO IMACRO) APPEND (N VAL) PRINTNUM-TO-STRING (WIDTH STR +RAD TEMP PAD) \SPP.PREPARE.INPUT (EPKT CONDITION NEW.DSTYPE OLD.DSTYPE SPPDSTYPECHANGEFN) +\NSFILING.UPDATE.ATTRIBUTES (X) EXPRP (DEF) EDITQF (Q1) \IPCURVE2 (SPLINESTEP HALFWIDTH SPLINEDIFF +DASHON DASHLST DASHCNT SEG# IPDATA LEFT RIGHT BOTTOM TOP VISIBLEP TT DELTA IX IY XT YT DUPLICATEKNOT +X'T Y'T DX DY XWALLDT YWALLDT NEWT NEWXT NEWYT XDIFF YDIFF PREVX IPXPOS PREVY IPYPOS KNOT#) LISPERROR +(MSG N I) OPT.DS1 (A CD) \STKARG (NT INDEX NARGS BLINK NTSIZE) WINDOW.BITMAP (BM) SEDIT::SET-POINT-COMMENT + (SEDIT::INDEX SEDIT::ITEM) MSGETDEF (TABLEFPTYPE FPTYPE RESULT REALDEF) INSPECTW.CREATE (XCL:*PROFILE* + VALUEMARGIN MAXVALUEWIDTH PROP WINDOW) MODERNWINDOW.BUTTONEVENTFN (TOPMARGIN CORNER ORIGFUNCTION) +TEDIT.INSERT.UPDATESCREEN (L1LIST LNLIST WW L1 LN SELINE) \SOFTCURSORPOSITION (DISPINTERRUPT) +\FTP.GENERATEFILES (TAIL HOST DIRECTORY NAME EXTENSION VERSION WANTDEVICE DEVICE OSTYPE FILTERNEEDED +DESIREDPLIST NAMEBODY INFO CONNECTION INS OUTS) NEWLINE.IP (NEWYPOS) \LEAF.FIX.BROKEN.SEQUIN ( +UNANSWEREDPUPS AFFECTEDFILES STREAM NEWCONNECTION STRM) CL:INTEGER-DECODE-FLOAT (FLOAT) XSECT (DUDY +DXDV X Y) PROCESS.WINDOW (WINDOW) CLISPIFY2 (POS) COMP.PROG (F A TAGS X FLG) \EVALFORM (TEMP *FORM*) +DISMISS (DTIMER NOBLOCK) COMPILER::GENCODE-LET (COMPILER::ARG COMPILER::PARAM COMPILER::NULL-PARAMS +COMPILER::NON-NULL-PARAMS) \NSFILING.CLOSEFILE (SESSION NEWHANDLE HANDLE INFO) +\NSADDRESS.PRINT.DECIMAL (NUM REM PIECES) FB.INFO.ITEM.NAMED (ITEM) \SETUP.TYPENUM.TABLE (HUNKSIZE +SIZEL TNAME DTNUMBER TYPE DTD I) \GC.HANDLEOVERFLOW (PTR CELL HY LY Y HX) SPP.CLOSE (CON SUBSTREAM +ABORT?) \REMOVE.EXTERNALFORMAT (NAME/EXTFORMAT EF) \TFBRAVO.HANDLE.HEADING (AFTERHEADINGPTR PARALOOKS +HEADINGDESC) PAINTW.READBRUSHSHADE (SHADE) RECLOOK (TEM X) \DRAWLINE.IP (HALFWIDTH) \DTEST.UFN (N HI +LO OBJ) WINDOW.MOUSE.HANDLER (\MHWINDOW \MHCOM \MHPROCESS) PFI.MERGE.INDICES (NEWINDEX MASTER) +GET.MENU.LIST (DIM) MSOUTPUT (FILE) FB.BROWSECOMMAND (FILE NAME TAIL INTERESTING FIELDS MAINDIR SUBDIR +) DUMMYDEF (X) \PFI.DO.HARDCOPY (FORM) TB.CONTIGUOUS.SELP (ITEM I) \BACKTRACE (RADIX CNT NAME BLINK +IPOS) \MAKENUMBER (N1 N0) \FTP.ADD.QUOTES (I PIECES N) \LEAF.HANDLE.INPUT (DONEPUP OPCODE ERROR +DONEPUPDATA STREAM) \INSTALL.EXTERNALFORMAT (NAME EXTERNALFORMAT) CL:LOGCOUNT (INTEGER) LINEY (X) +DREMOVE (Z L) CLISPIFY2C (X) BACKTRACE (FLAGS) CREATE.NUMBERPAD.READER (NUMBERPAD FONTHEIGHT WIN +READERWIDTH PADLEFT TOTALWIDTH MSGLINES TOTALREGION) COMP.LAMBDA (VALS SUBOLD VARS SUBNEW V VAR EXPS F +) \LFHighestVersions (FILES) \GET.EXTERNALFORMAT.FROM.NAME (NAME EF) EDIT%: (X LC) TB.NUMBER.OF.ITEMS +(BROWSER I) \GCMAPTABLE (PTR CELL HY LY N HX DTD I) GETVARS1 (X) DEFAULT.INSPECTW.PROPCOMMANDFN ( +NEWVALUE) OPENW (WINDOW) \INSERTCH (CHAR \INPC \INSTRING NEWPC NEWFLAG PC PLOOKS NLOOKS PCTB PREVPC +EVENT REPLACING TEXTLEN) SEDIT::CONVERT-COMMENT-TAIL (SEDIT::NSPACES X SEDIT::TAIL) \INTERPRETER (DEF +ENV ARGLIST NNILS NEXTRA NA NTSIZE I) OPT.DELCOPYFN (Z_P P X) TWODINSPECT.ADJUSTSELECTION (SELBOTTOM +ROWPROP VMARK SELWIDTH XCL:*PROFILE* SELLEFT COLPROP HMARK) PRESSWINDOW (WIDTH HEIGHT) +SEDIT::PARSE-STRING-INTO-WORDS (SEDIT::I SEDIT::OK? SEDIT::RESULT SEDIT::END) \TEDIT1 (TEXT) SAVEDEF ( +TYPE DEFINITION) \TEXTMENU.TOGGLEFN (NEWSTATE) COLLECTDESCENDENTS (Descendents) \DOTRANSITIONS ( +BITMASK I) \DSPFONT.HCPYMODE (OLDFONT XFONT) RECORDFIELD? (TEM X) SEDIT::CONVERT-COMMENT-STRUCTURE ( +SEDIT::COMTAIL SEDIT::2-STARS SEDIT::COMCHAR) \BSP.SENDBUFFER (NEWLO) LAPRD (X Y) VIRGINFN (REAL-DEFN) + \SPP.ESTABLISH (CON NAME INSTREAM) FB.GETALLFILEINFO (ATTR VALUE TREESIZE) SEDIT::REPAINT (SEDIT::MIN-Y + SEDIT::END SEDIT::LINEAR-START SEDIT::ITEM SEDIT::TEMP) \TEDIT.COMMAND.RESET.SETUP (OWINDOW +OTTYEXITFN OTTYENTRYFN TTYWINDOW OTTYWINDOW) \TEXTMENU.TOGGLE.CREATE (X Y BITMAP DS) DEFAULT.ADDNODEFN + (NODELABEL NODENAME) \PRINTFRAME (NLOCALS I TMP J FT) ONFILE (TYPES FILE TYPE X VAL F) +FB.FASTSEECOMMAND (FILELIST SEEWINDOW FILE) FIXCONTINUE1 (X) NCONC (J X L) TITLEW.BUTTONEVENTFN ( +TITLECOMMANDFN XCL:*PROFILE*) \LFFindInfo (FILE ENTRYSTART STREAM) \PRINTBF (NM I J) +TB.DECONSIDERRANGE (I) CH.ADD.ITEM.PROPERTY (OBJECTNAME) EDITCALLERS (EDITPATTERN ATOMS FULL +FILESTREAM ENV MAP TOP RDTBL CA PATTERNS FFILEPOSPATTERNS ATOM I PRINTFLG NOMAPFLG X Z FNS OTHERSFILES +) ONED.TRACKCURSOR (SELECTEDELTBOTTOM SELECTEDELTLEFT SELECTEDELTWIDTH SELECTEDPROP X Y PROP MARK +WIDTH BOTTOM NEWPROP LEFT SELECTION) COLLECT.CHILD.NODES (NodeID) SORT1 (L A TM) +HASH-TABLE-FOR-DOC-TYPE (DOC-TYPE) INTERPRESS.OUTCHARFN (CHAR-WIDTH NEWXPOS) \DECODETRANSITION ( +SHIFTED ASCIICODE) MERGE (A B ATAIL BTAIL) PROCESS.READ (OLDW) \SCANFORNTENTRY (NM NT1 NT2) +\NOTENEWICONPOSITION (ICONW) \LEAF.TIMEDOUT (PUP) SEDIT::DRAW-OUTLINE (SEDIT::H-1 SEDIT::H-2 SEDIT::W) + MAKENEWCOM (TYPE NAME TEM) SAVEONSYSRECLST (N DECL FIELD) TTYDISPLAYSTREAM (DISPLAYSTREAM WIN DD) +CLISPIFY1 (SUBPARENT PREVEXP NOVALFLG LST TEM TAIL0 TAIL SEG) TTPRIN1 (DOWNCASE WIDTH CH I CRLFCOUNT) +CL::%%ATAN-FLOAT (CL::FARG CL::FX CL::CONSTANT CL::ADD-FLAG CL::CONSTANT-FLAG) CHARACTER (N) +OPT.EQVALUE (CD) \PROCESS.EVAL1 (..PEV-RESULT..) \COMPUTE.HUNK.TYPEDECLS (HUNKSIZE I) +TB.COPYBUTTONEVENTFN (COPYFN SELECTIONREGION NEWITEM LASTX LASTY CURRENTITEM) COMP.SETQ (VAR DECL) +DO.SHIFTED.SELECTION (NEWMODE SAVE BUF NEWPOS COL NEWSTART NEWROW NEWEND WORDLEVEL START END MODE +EXTENDING INITMODE) \PFPutMarkerPage (vol) \LEAF.RECONNECT (SEQUIN) PRIN2 (RDTBL \THISFILELINELENGTH) +LOOKUP.NS.SERVER (NAME ENTRY NAME&VALUE ADDRESSES) SEDIT::CONVERT-COMMENT (SEDIT::NODE SEDIT::SELECT-END + SEDIT::NEXT-NODE) RELEASINGVMEMPAGE (PTR) \CREATECHARSET.IP (WIDTHS WFILE WSTRM RELFLAG FAMCODE TYPE +LENGTH NEXT FILEFAM FILEFACE FIRSTCHAR LASTCHAR SIZE FBBOX CHARSETHEIGHT FIXEDFLAGS TEM I WIDTHSY) +\TEDIT.NEWREGIONFN (XDELTA YDELTA) \NSADDRESS.DEFPRINT (HOST) LIST* (VAL I) CLISPFUNCTION? (CHRLST TEM +) \FAX.PARSE.NAME (AT PERSON DESTINATION CH PHONE INFO HOST MSG) \GETINTEGERPART (HIPART) +RECORDFIELDNAMES (VAL) \DRAWCURVE.IP (KNOTS K) CL:MAKE-BROADCAST-STREAM (STREAM?) REQUIREVERSION (TYPE + NEEDED) \DEFINEDEVICE (NAME TEMP DEV) CREATEARRAYSLICE (DIM RESULT PROD LEVEL SCANDIM SELECTIONDIMS +OFFSETS OFFSETCONSTANT) INTERACT&SHIFT.BITMAP.UP (NBITS) \NSPRINT.MEDIUM.CHECK (X) CLISPATOM (TEM) +\LINEBLT (X XRIGHT) U-CASE (C CHANGEFLG I NEWSTRING BASE) \VALID.FILING.CONNECTIONP (PAIR) \VFMMerge1 +(xtraBufferUsed) CHANGENAME1A (X Y) \TEDIT.RESTARTFN (TEXT) NEXTSIZEFONT (FONTTAIL FONT) CLEARW ( +WINDOW) CHANGENAME1 (DEF) COUNT (N X) RECURSIVE.COLLECTDESCENDENTS (NodeId ChildNode ChildNodeID) +\NSFILING.DISCARD.SESSION (PAIR KEPT) \PROCESS.APPLY1 (..PEV-RESULT..) MSSETUP (P) SEDIT::DRAW-UNDERLINE + (CL:FIRST SEDIT::STARTX) FIXCONTINUE (X) MAP (MAPX) NEWLINE.PRESS (NEWYPOS) APROPOS (OUTPUT +BLOCKCOUNT RESULT VAL) MB.NWAYBUTTON.ADDITEM (FONT HEIGHT DESCENT WIDTHS IMAGES WIDTH BUTTON SPACING +SIDEEFFECTFNS DS IMAGE) SCANFORWARD (N END BUF) \LEAF.WHENCLOSED (PUP DEV) ESUBST (EXPR) +\GETDEVICEFROMHOSTNAME (HOSTN D TEMP) CLDISABLE (OP1 BRACKET TEM FLG) \HARDCURSORUP (IMAGE) +MSINTERPRET (VAL MT REL REP SHOWSET MSPRED SUBJECT TYPE UPDATEALL DONE X FROMFOUND TEM) +\TEDIT.WORDDELETE (CH CHNO) FB.HARDCOPY.TOFILE (HCOPYFIELDS TAIL I MSG HCOPYTAIL FORE AFT EXT +HAVEDIRECTORY HOST PRINTFILETYPE TYPE ITEM FILETYPE FN NAME FIELDS) INTERACT&ADD.BORDER.TO.BITMAP ( +NBITS TEXTURE) MSNLAMBDACHECK (FN) MOVEDESCENDENTS (Child NewPos MovedNodes) +INTERACT&SHIFT.BITMAP.RIGHT (NBITS) \CURSORBITSPERPIXEL (OLDBITSPERPIXEL OLDIMAGE OLDMASK NEWIMAGE +NEWMASK WHITE BLACK) \FLOATTOBYTE.UFN (I) FB.HARDCOPYCOMMAND (PRINTOPTIONS) \REMOVEDEVICE (TEMP PAIR) +\FTP.DELETEFILE (HOST DESIREDPLIST CONNECTION INS OUTS REMOTEPLIST RESULT) INITDATATYPENAMES (D NTYPX) + EDIT4E (PAT X) INTERACT&SHIFT.BITMAP.DOWN (NBITS) CL:MISMATCH (END1 END2) \PUT.SESSION.HANDLE (HANDLE +) CHECKPATHS (PR VAL) \BSP.FLUSH.SOCKET.QUEUES (STREAM) \BLKFABSMAX.UFN (IDX MX I) CLISPERROR (TEM AT +IN) \REMOVEDEVICE.NAMES (TAIL CHANGED) \TFBRAVO.PARSE.PARA (ORIGPTR LEN PLOOKS RUNS) \BLKFABSMIN.UFN ( +IDX MN I) \CURSORDESTINATION (DESTBPL) CL:NSUBSTITUTE-IF (END) FW-INIT-PROPS (FILTER X Y) +\CCODEARGLIST (SIZE LOCALSIZE ENDT IVARS X I) CL:NSUBSTITUTE-IF-NOT (END) \UNQUEUE.EVENT (NEXT TAIL) +GETPROP (PLIST) SETSYNONYM (OLDPHRASE NEWPHRASE KEYLST NXT) FNCHECK (X FN FL FILE BLOCK B BLOCK/FN) +\SHIFT.DOCUMENT (PARALOOKS TSPEC LASTPARALOOKS PC) \FTP.MAKEPLIST (PROP) \BLKSMALLP2FLOAT.UFN (I) +DOICONWINDOWCOM (COM) EDITFPAT (TEM ND CHAR) SEDIT::DRAW-HIGHLIGHT (SEDIT::X-3 SEDIT::W SEDIT::Y-1 +SEDIT::Y-2) INFILECOMS? (TYPE COMS VAL) \DELETEFILE (FILENAME DEV) PACK* (ITEM PACK.INDEX M) COMP.NOT +(TMP) ONEDINSPECT.MAKEREGIONS (XCL:*PROFILE* VALUEWIDTH VERTMARKS I MARK) \WWCHANGESCREENSIZE (SCREEN +WINDOWS) \CCODEIVARSCAN (NM NUMBER I CODE IVARS NTOFFSET) DWIMLOADFNS? (TEM) EDITXTR (X) +\LEAF.GETFILEINFO (SEQUIN DEVINFO RESULT STREAM) \TFBRAVO.WRITE.RUNS (RUN LENGTH RUNS) \BLKMAG.UFN ( +COMPLEX-CNT REAL IMAG MAGNITUDE) \ENQUEUE.EVENT/LOCK (TAIL) EDITMBD (Y) \BLKEXPONENT.UFN (X) +OBTAIN.MONITORLOCK (LOCK) POSTSCRIPT.FONTCREATE (PSCFD FACECHANGED FULLNAME ASCENT DESCENT UNITFONT +SCALEFONTP FD WIDTHSBLOCK FIXPWIDTHS CH PSCWIDTHSBLOCK) ICONW.SHADE (SHADEBM IMAGEBM ERASEBM) +\HARDCURSORPOSITION (YPOS XPOS) \NSNET.CLOSERP (ROUTEY) \DEVICEEVENT (STREAM) SPY.FIND.TREE (X) +INITATOMS (C) CL:PEEK-CHAR (CL:CHAR) REVERSE (U L) \BLKFDIFF.UFN (INDEX) ICONPOSITION.FROM.WINDOW ( +SCREEN) ADDTOCOM1 (COM NEAR) CL:NSUBSTITUTE (END) \SPP.HANDLE.DATA (CURRENT PKTNO NEXT XIP XIPNO) +\BLKSEP.UFN (BETAINDEX GAMMAINDEX DELTAINDEX ALPHAINDEX) DELFROMFILES (TYPE FILE COMS) \SOFTCURSORUP ( +IMAGE MASK WIDTH HEIGHT CURSORBITSPERPIXEL UPBMBASE DOWNBMBASE CURSORBPL BWIDTH) \BLTSHADE.IP ( +DESTREGION OPERATION) MERGEINSERT1 (C1 C2 N) \BLKFLOATP2COMP.UFN (I) MENUWMINSIZEFN (BORDERSIZE +OUTLINESIZE MINWIDTH TITLERELATEDVAR) \BLKPERM.UFN (X) FILES? (FILE CHANGES PRINTED CH TB TYPE FLG +FILES) \SOFTCURSORUPCURRENT (DISPINTERRUPT X Y XBASE YBASE WIDTH HEIGHT MINUSDESTRASTERWIDTH +BITSPERPIXEL DEST DESTBIT SOURCEOFFSET UPBMSOURCE DOWNBMSOURCE SOURCEBIT) FIXATOM (X TAIL0 Y) +FB.ADJUST.DATE.WIDTH (TAIL SPEC ITEM RESULT INDEX) RELEASE.MONITORLOCK (LOCK PREV TAIL NEXTPROC) +\BLKFPLUS.UFN (INDEX) BITMAPCREATE (BITSPERPIXEL RW) CL:POSITION-IF-NOT (END) CH.RETRIEVE.ITEM ( +OBJECTPATTERN NAME&VALUE) OPENPRSTREAM (PRDATA OPT) FB.MAYBE.WIDEN.NAMES (THRESHOLD PAIR) FIXATOM1 ( +OLDTAIL X OLDFN) RECORDECLARATIONS (TEM DEC NAM) \TAN.OLD (XX Y FLIPPED X2) OPT.JUMPCOPYTEST (CDFROM) +\BLKFTIMES.UFN (INDEX) HARDCOPYREGION.TOPRINTER (PRINTERTYPE PRINTERCHOICE REGION) PUPSOCKETFROMNUMBER + (SOCHI SOC#orSOCLO SOC) \PRINTNSADDRESS (FILE) MACROEXPANSION (MACRODEF) SI::MONITOR-UNWIND (LOCK +PREV TAIL NEXTPROC) GETMACROPROP (X VAL) EDITMV (LC X OP L1 L2) \SEND.ACK (DATA) CL:POSITION-IF (END) +FB.HEADINGW.DISPLAY (SPEC FORMAT NEXTPOS) \BLKFMIN.UFN (IDX MN I) PRINTCURSOR (CUR IMAGE MASK) FILES?1 + (STR LST) DINFO.READ.KOTO.GRAPH (FIELD N) \GENERATEFILES (PATTERN) \LFVersions (FIXEDVERSION HMIN PTR + version RESULT) TB.MAKE.BROWSER (USERPROPS WINDOW BROWSER PROP OLDP TAIL) \PUT.FILING.ATTRIBUTE (X +ATTR VALUETYPE) \BLKFMAX.UFN (IDX MX I) MSSETPHRASE (VAL SETDET NOTYP SETTYPE REP) \TRANSMIT.STRATEGY +(MAKEA?) ONEDINSPECT.ADJUSTSELECTION (PROP VMARK XCL:*PROFILE*) COMPILER:OPTIMIZE-AND-MACROEXPAND ( +COMPILER::NEW-FORM COMPILER::CHANGED-P) CL::%%ASIN-FLOAT (CL::FX) SEDIT::LINEARIZE-COMMENT (SEDIT::SUBNODE + FIRST) PRINTPUPQUEUE (LASTPUP PUP GAP) EDIT4F (PAT LL N TOPLVL C3 X TAIL) CL:PROVIDE (CL::MODULE-NAME +) XPROD (X Y) \TFBRAVO.WRITE.RUN (NAMEDTABNUMBER END START) VRULE.DISPLAYFN (THICKNESS WIDTH X RULING) + EDITSW (TEM) IBLT1 (TEXTURE BITMAPOFFSET X val) PARSE-NSADDRESS (STR CH VAL NET HOST NSHOST PREV10 +ADDR) \SPP.RELEASE.ACKED.PACKETS (XIP OLDACKNO) CL:VALUES (BYTE PREVFRAME CALLER I PC NUNBINDS) +GETRELATION (VAL) TEDIT.FLASHCARET (CARET FIRSTTIME) TOPW.ADJUSTSELECTION (SELBOTTOM SELWIDTH +XCL:*PROFILE* SELLEFT COLPROP HMARK) IBLT2 (TEXTURE BITMAPOFFSET X val) \TEDIT.TEXTBIN.NEW.PAGE (FILE +CH) \SIMULATE.UNBIND (SP LASTPVAR) \LEAF.IDLE (STREAM) EDITCONT (LC1 L) \PFGetMarkerPage (vol) +\GETFILENAME (NAME FDEV) CL:VALUES-LIST (BYTE PREVFRAME CALLER PC NUNBINDS) HARDCOPYREGION.TOFILE ( +REGION) CL:READ-LINE (STREAM) PRINTPACKET (FN FILE) MULTIFILEINDEX1 (PRINTOPTIONS TAIL OPTIONS INDICES + NOTPRINTED I) FB.SETNEWPATTERN (ICON) FULLPRESSBITMAP (PRDATA SCALEFACTOR WIDTH HEIGHT XPOS YPOS) +PACKFILENAME (VAR VAL I HOST DEVICE DIRECTORY SUBDIRECTORY RELATIVEDIRECTORY NAME EXTENSION VERSION +TEMPORARY TEMP) SEDIT::PRINT-STRING (SEDIT::DISPLAY-DATA SEDIT::C) \TEDIT.LOOKS (FONT FACE SIZE +NEWLOOKS) \MAKE.PROCESS1 (MP0CALLER) PRINTPACKETQUEUE (PACKET) REBREAK (FNS) \PROCESS.MOVEFRAME (BLINK + FRAMESIZE FXSIZE BFSIZE RESIDUAL NEW FREESIZE NXT INITSIZE) COURIER.SKIP (X DEF) \SOFTCURSORDOWN ( +DISPINTERRUPT) COURIER.WRITE.FAT.STRING (LENGTH) TB.DO.ITEM.SELECTION (SELECTIONREGION LAST# FIRST# +FIRSTVISIBLE# LASTVISIBLE# LASTX LASTY OLDSELECTION OLDSEL# I NEWSELECTION SELECTIONSTATE SEL# +CTRLDOWN OLDLASTMOUSEBUTTONS) CL::VALUES-UFN (BYTE PREVFRAME CALLER VALS I PC NUNBINDS) +SEDIT::INSERT-COMMENT-CHARS (SEDIT::CHARS STRING SEDIT::SUBNODES SEDIT::SUBNODE SEDIT::NEW-STRING SEDIT::N + SEDIT::NEXT-SUBNODE) CL:REMOVE-IF (END) CL:REMOVE-DUPLICATES (END) OPT.DELCODE (X LB FLG CD) +CL::VALUES-LIST-UFN (BYTE PREVFRAME CALLER VALS PC NUNBINDS) \FM.3STATE-SETUPOFFBITMAP (ID OFFREGION +OFFBITMAP) CL:REDUCE (END) SEDIT::PARSE-INDENT (SEDIT::INDENTS) \OPENFILE (CDNAME FDEV STREAM NAME) +\SPPCONNECTION (HOST) CL:REM (CL::FX) \SPP.HANDLE.ATTN (FN) \DO.PARAMS.AT.OPEN (X ATTR VAL) +PRETTY-TYPE-NAME (DOC) MENUWRESHAPEFN (BORDER USABLEWIDTH INTREGION USABLEHEIGHT XTRWIDTH NCOLUMNS +XTRHEIGHT NROWS) \GETKEY (C) FIXAPPLY (X TEM) SCANBACK (START %#HITS X) \LEAF.OPENFILE (FILENAME +OLDHANDLE X TYPE BYTESIZE CRDATE STREAM EOL PROPS SEQUIN) SORT.NSADDRESSES.BY.DISTANCE (PAIR) +\RTP.HANDLE.PUP (PUP) CLOSEPUPSOCKET (PUPSOC) CL:REMOVE-IF-NOT (END) CH.DELETE.SELF (GROUPNAME) +\ENQUEUE.TIMER (NEXT PREV) TB.REDISPLAY.ITEMS (FIRSTITEM LASTITEM) CL:RENAME-FILE (CL::NEW-FULLNAME +FILE) \TEDIT.UNPARSE.CHARLOOKS.LIST (PROP PROPNAME NEWLOOKS) CHARSET (STREAM NEWVALUE OLDVAL) +SEDIT::RELINEARIZE (SEDIT::FIRST-LINE-LINEAR SEDIT::FROM-TOP SEDIT::OLD-ACTUALLLENGTH SEDIT::OLD-LAST-LINE + SEDIT::LINE SEDIT::NODE SEDIT::SUPER-NODE SEDIT::FOLLOWING-LINE) SETFILEINFO (DEV FULLNAME) +ICMLARRAY.GETMENUWGROUP (SWINDOW DIM PWINDOW) LISTHARD (TYPE VAL) WAIT.FOR.TTY (WINDOW TIMER) +FIX89TYPEIN (TEM) \TEDIT.MAINW (WINDOWS WINDOW) INITDATATYPES (D DTD TYPENO) \WRITEPRESSBITMAP (BITMAP + ELSTREAM CURX CURY SCALEFACTOR TOTCOUNT) CL:SCALE-FLOAT (FLOAT) CHANGECALLERS (METHOD EDITCOMS TEM +TYPE REL FNS FILE FILES X) PRINT10TO3 (FILE) CL:SEARCH (END1 END2) \COURIER.RECORDTRAN (TYPEDEF REST +PROGRAM FORM X TAIL) SEDIT::SCAN-FOR-BOUNDS (SEDIT::MAX-ASCENT SEDIT::MAX-DESCENT SEDIT::ITEM +SEDIT::ITEM-NODE SEDIT::START SEDIT::X) \TYPEGLOBALVARIABLE (ENTRY I) CHOOZ1 (TEM) \SAVESYSBUF (TA NC +BUF J I) OPT.SKIPPUSH (N) \ASSIGNDATATYPE1 (DTD REDECLARED NEWTYPENUM NEWDTD FOUNDSOME NTYPX) +SEDIT::INSERT-COMMENT (SEDIT::START) \ADD.ROUTING.TABLE.ENTRY (TABLE) \COS.OLD (XX X2) +COURIER.WRITE.SEQUENCE.UNSPECIFIED (ITEM X FN) HARDCOPYW (PRINTHOST BITMAP REGION SCREENREGION HOST +PRINTERTYPE SCALEFACTOR ROTATION FULLFILE) SEDIT::ADD-MENU (SEDIT::MENU) \SFFixY.HCPYMODE (CHARTOP BM +TOP) \LEAF.WRITEPAGES (BUF DATA LEN PAGE#) DINFO.GET.GRAPH.WINDOW (W) BESTNSADDRESS (ADDRESSES +HOSTNAME MSG BESTHOPS NOTLOOKEDUP BESTADDR ROUTE HOPS TRY) \ICONW.REPAINTFN (WIDTH HEIGHT) \PEEKSYSBUF + (R) ADDTOFILES? (BUFS TYPE STR LST NAME TEM FILE PLACE COMSNAME NEAR LISTNAME) PPSOC (STREAM PUP) +COMP.DECLARE1 (VAR VTAG) \UNQUEUE.TIMER (PREV) \ENQUEUE (Q TAILEND JUNK NEXTITEM THISITEM) +ORDERFROMBOTTOMTOTOP (WPTR ANS) \RENAMEFILE (OLDFILE NEWFILE) EDITMOVESUBTREE (NODELST NEAR OLDPOS NOW +) REMPROP (VAL X X0) CLOSEW (WINDOW) FILEPKGTYPE (FIELD TEM TEM2 I) PUTPROP (X X0) KEYACTIONTABLE (OLD +) \DRAWCURVE.PRESS (KNOTS LASTKNOT) \RTP.INFO.HOOK (WINDOW) \GET.FILING.ATTRIBUTE (X) +MOVEATTACHEDWINDOWTOPLACE (EDGE POSONEDGE ATMINHEIGHT ATMINWIDTH MAINWEXTENT TL TC TR RT RC RB BR BC +BL LB LC LT ATW ATWREG ATWHGHT ATWDTH ATPOSONEDGE ATWHERE EXTENT) OPENPUPSOCKET (PUPSOC SOC SOCHI +SOCLO CLASHP) \LEAF.READPAGES (BUF LEN OPUP I NEWPAGE# IPUP DATA PAGE#) DELETE.LONG.SEGMENT1 (NROWS +FIRSTLINE NEXTLINE) \RECLAIMARRAYBLOCK (P RECLAIM-P) FB.DISPLAY.COUNTERS (LABELS MAXWIDTH PAGESTRING +LAB HERE NEXTPOS) \PROCESS.EVENTFN (PROC ACTION) PRINTBITMAP (BM) TEDIT.REDO (EVENT SEL CH) +TOPW.BUTTONEVENTFN (XCL:*PROFILE*) \PAGED.REVALIDATEFILELST (STREAM REASON PAGES) \BSP.SKIPBYTES ( +ERRCODE BYTESLEFT NBYTES) CHECKSYNONYM (KEYLST STAIL NXT CNT) TWODINSPECT.TOTALWIDTH (COLUMN) +CREATEHASHFILE (SIZE STREAM VALUETYPE ITEMLENGTH FILE HASHFILE) OPT.ONLYMEMB (Y) FORGETPAGES (REFFED +BUFFER PREVBUFFER) \LFFindDirHole (TYPE ENTRYLENGTH PTR) GRAPHBUTTONEVENTFN (BUTTON NEAR OLDPOS NOW) +MSPRED (FLG) RESTOREMAP (P REFFED BUFFER PREVBUFFER) TWODINSPECT.REPAINTFN (WINDOWREGION ROWPROP MARK +STARTROWPROPS STARTVERTMARKS LASTROWPROP COLUMNPROP STARTCOLUMNPROPS STARTHORZMARKS LASTCOLUMNPROP +XCL:*PROFILE* VMARK HMARK) \TEDIT.CREATEW.FROM.REGION (PHEIGHT) \DELETECH (PC1 PCN START-OF-PIECE HIPC + PCTB PCLST PC) \CHANGECHARSET.HCPYMODE (BM) \LEAF.TRUNCATEFILE (DATA) CH.ADD.SELF (GROUPNAME) +ICMLARRAY.GETREGIONFN (WINDOWREGION) CL::%%TAN-FLOAT (CL::FX) \UNWIND.UFN (OLDTOS SP LASTPVAR +DESIREDSP) PFI.PRINT.BITMAP (HEIGHT WIDTH BMARG RATIO SCALE MINX CURX CURY BELOWBASELINE NLINESDOWN +LINEHEIGHT BOTTOM IMSTREAM) CL::TIME-CALL (CL:VALUES) CL:SINH (CL::FZ) \CHECKAPPLY* (DEF) +\PAGED.REVALIDATEFILES (STREAM REASON PAGES NEWLIST) ICMLARRAY (I DIM DISPLAYGROUP TOPLEFT MENUGROUP) +MSINTERPA (Z) FB.CREATE.FILEBUCKET (FILENAME LASTNAMECHAR CH VERSION DEC NEWFILEDATA N PREVDIR LASTDIR + DEPTH DIRP HASDIRPREFIX STARTOFSHORTNAME STARTOFNAME ATTR TEM) RETDWIM (X POS) TEDIT.UNDO (EVENT LEN +CH# FIRSTPIECE) COPY (TAIL X) CLISPCAR/CDR (TAILFLG LST N TEM VAL) COMPSET (FILE) CREATEMDSTYPETABLE ( +VP PAGE) \PUTBASEBITS (SIZE) \LOOKUPPUPNUMBER (OXIP TIMER INXIP RESULT) OVERLAPPINGWINDOWS (WPTR +OVERLAPS OVERLAPPED ADDS DONTS) \GETBRUSHFONT.PRESS (BRUSH) \HTFIND (ENTRY LINK PREV) +\GET.COURIER.DEFINITION (PGMDEF OTHERPROGRAM) \BUFFERED.REVALIDATEFILELST (STREAM REASON) SETSPELLCASE + (I) MEMBTONODES (Z) \SCALEDBITBLT.IP (DESTINATION-REGION SOURCE-REGION) ASSOC (ALST) +\BSP.PREPARE.OUTPUT (PUP SOCKET TIMEOUT ERRCODE) ADDTOFILE (TYPE FILE COMSNAME) \TEXTOPENF-SUBTREE (PC +) \LEAF.SETFILEINFO (VALUE STREAM) SI::INTERNAL-THROW (I) CL::%%GET-TIMING-INFO (CL:VALUES) +\TEDIT.ABBREV.EXPAND (SEL CH# CH EXPANSION OLDLOOKS) OPT.DELETEFRAMECHECK (VARS CD) \GENERATENOFILES ( +PATTERN) FONTNAME.IP (FACE NAME) \LFDirectorySearch (TARGETLENGTH PTR TYP ENTRYLENGTH NEXT HMIN FILEID + VERSION THISNAMELENGTH MATCH C) \RPLACD.UFN (RP.PAGE) NSNET.DISTANCE (NET# ROUTE) \PROCESS.MAKEFRAME0 + (NXT NXTEND FREE) TEDIT.CREATEW (PHEIGHT REGION) MENU (IMAGE DSP SELVAL MVAL) TEDIT.NEXT (SEL TARGET +FIELDSEL OPTION) \CONS.UFN (CNS.PAGE CELL PRIOR OFFSET PRIORPRIOR CPG PG) GROW/REGION (AMOUNT) +ShowIntervals (interval I level) CL:SUBSTITUTE-IF (END) CLISPFOR0 (OPR CLISPWORD I.S. I.S.OPR LASTPTR +I.S.TYPE1 I.S.TYPE FOR FROM IN ON TO BY TERMINATEFLG FIRSTI.V. I.V. AS BIND DECLARELST RETPREDS +AFTERPREDS EXCEPTPREDS FINALLY EACHTIME FIRST TEM I.S.PTRS PROGVARS I.S.BODY VARS RETEXP LSTVAR TERM +MAKEPROGFLG ITER IVINITFLG INITVARS LSTVARS OUTEXP X) TWODINSPECT.BUTTONEVENTFN (XCL:*PROFILE*) +\NOTE.10TO3 (TRANS) ADDSPELL2 (TEM) TEDIT.PARALOOKS (TEXTOBJ CH# CHLIM PCTB PC OLDSTART PC1 NLOOKSAVE +D REPLACEALLFIELDS 1STLEFT LEFT RIGHT LEADB LEADA LLEAD BLEAD BLEADSET QUADD TYPESET TYPE SUBTYPESET +SUBTYPE SPECIALX SPECIALY NEWBEFORESET NEWBEFORE NEWAFTERSET NEWAFTER HEADINGKEEP KEEP KEEPSET +BASETOBASE BASESET HCPYMODE HCPYSET USERINFO USERSET REVISED REVISEDSET TABSPECC STYLE STYLESET +CHARSTYLES CHARSTYLESSET COLUMN COLUMNSET OLDLOOKSLIST LASTLOOKS NEWLOOKS NCHLIM START-OF-PIECE NPC) +FMEMB (Y) PPROC (P1 DONE P PQ) CL::GET-PS-FROM-ACCESSOR (CL::SLOT #:G5) MSGETBLOCKDEC (FILE BLOCK VAL +Y) FB.INSERT.FILE (NEXTITEM N PREVITEM OTHERDATA) RETDWIM1 (TEM FLG) \NOFILESNEXTFILEFN (TYPE FILE VER +) \DRAWCURVE.PRESS.LINE (WIDTH SHAPE BACKOFF LEFT LB TR DIST BOTTOM) TEDIT.SUBSTITUTE (SEARCHSTRING +REPLACESTRING REPLACE-LEN PC CRSEEN CONFIRMFLG SEL BEGINCHAR# STARTCHAR# ENDCHAR# RANGE PENDING.SEL +CHOICE ABORTFLG REPLACEDFLG PC# ACHAR NCH#) \FINDKEY.UFN (I BASE) FLUSHRIGHT (POS) DINFO.FIND (PAIR) +INTCHAR (VAL CHAR OLDINT SYSDEF HARDFLG) PPROC1 (TIMELEFT NOW EVLOCK NAME) SETINTERRUPT (TABLE TEM) +\TRANSLATE.10TO3 (TRANS) CL:TANH (CL::FX) \BIN (STREAM) GETWINDOWPROP (WINDOW) MSINTERPRETSET (TYPE +SET2VAL V R Z H TEM S1 S2 REP VAL VALUE TABLES) NUMBERPAD.READ (FINISHVAL) \BOUT (STREAM) PPROCWINDOW +(W) \CHECK.PQUEUE (P X PREV) \PRESSCURVE2 (HALFVECWIDTH DASHON DASHLST DASHCNT TT DELTA IX IY XT YT +DUPLICATEKNOT X'T Y'T DX DY XWALLDT YWALLDT NEWT PUTDX EXTRADX PUTDY EXTRADY NEWXT NEWYT XDIFF YDIFF +KNOT#) \KEYACTION1 (DEAD CODE SHIFTDEAD SHIFTCODE ACT ALTGRCODE) \LEAF.GETFILENAME (SEQUIN RESULT) +PACKFILENAME.STRING (VAR VAL I HOST DEVICE DIRECTORY SUBDIRECTORY RELATIVEDIRECTORY NAME EXTENSION +VERSION TEMPORARY TEMP) COMPILER::COMPILE-ONE-LAMBDA (COMPILER::LAP-CODE) \KEYNAMETONUMBER (X I N Y) +\RESTLIST.UFN (TAIL I) CLISPIFY2B (TEM1 TEM2 L VAL PARENT SUBPARENT FORM TEM3) FULLNAME (RECOG) +GETINTERRUPT (TABLE X) PFI.PASS.COMMENT (CH) COURIER.WRITE.SEQUENCE (BASETYPE) \SIN.OLD (XX X2) +\PROCESS.MAKEFRAME (NEWFRAME) RCOMP3 (TYPE TEM1 TEM2) SCROLLBYREPAINTFN (X CRLEFT CRBOTTOM CRWIDTH +CRHEIGHT XEXTENTUSE YEXTENTUSE NEWX OLDX XDELTA NEWY OLDY YDELTA ONSCREENREG ONSLEFT ONSBOTTOM +ONSWIDTH ONSHEIGHT) CL:SUBSTITUTE (END) \RPLCONS (CELL ITEM) \CANONICALIZE.NSADDRESS (TAIL HOST +PREVTAIL) \FIXDLINES (WW LINES CHARLIM CHAR1 NL PL NLINES LINE) MSNEXTWORD (TEM ADV X) LISTGET (LST) +SASSOC (ALST) BCOMPL3 (FILE) GETFILEINFO (DEV FULLNAME) WHICHW (SCREEN WINDOW) \FTP.FLUSH.TO.MARK (CH) + REHASHFILE (HASHFILE NAME) CH.DELETE.PROPERTY (OBJECTNAME) CL:TYPE-OF (CL::TYPENAME) WTFIXLOADEF ( +FAULTEM2 FAULTEM1 FAULTEM3) \TYPECHECK.UFN (N) SET-CONNECTED-DIRECTORY-INTERACTIVELY (NEW-DIRECTORY) +ICONW.PRINT-JUSTIFIED (LMARG FONTHEIGHT MAXHEIGHT MAXWIDTH FORMATTEDLINES MAXLINES TITLEHEIGHT LINE CH + NCH) \STKSCAN (NT NTSIZE A NUMBER I VARINFO PVAROFFSET FVAR FX) CL:SUBSTITUTE-IF-NOT (END) +\ILLEGAL.DEVICEOP (I) \LFFileName (CHARLISTLENGTH NAME CHAR I) \MAIKO.IO-INTERRUPT (INFO) +TWODINSPECT.COPYBUTTONFN (XCL:*PROFILE* SELECTION) DSPFILL (STRM REGION) OPT.FRAMEVAR (VARS NNILS +NVALS V CD I ANY VAL) HARDCOPYIMAGEW.TOPRINTER (PRINTERTYPE) \READBINARYBITMAP (STREAM BITMAP) +CL::RANGE<= (CL::LOW1 CL::HIGH1 CL::LOW2 CL::HIGH2) \UNBOXFLOAT3 (NEXT DEGREE COEFFICIENTS X RESULT I +MATRIX2 MATRIX1) RESETKEYACTION (FROM) COMP.COND (TEST CLAUSE NEXT X COMPVAL ENDF A) \DOHELPINTERRUPT +(PROC) RESHAPEBYREPAINTFN (WREGION OLDCRLFT OLDCRBTM NEWWID DELTAWID NEWHGHT DELTAHGHT NEWCRLFT +NEWCRBTM YPOS NEWPTOP OLDPTOP NEWPRIGHT OLDPRIGHT) \PARAS.IN.SEL (PCS PARAENDED PARAS POS) CONTROL-T ( +OUT POS TEMP STKI CNT TOTALDELTA SWAPDELTA DISKIODELTA NETIODELTA GCDELTA) \MAIKO.CONSOLE-LOG-PRINT ( +MESSAGE-LENGTH) DINFO.ADD.FMENU (FM.WINDOW) \SELECTPROCESS (PROCNAMES PROC NAME) BRKDWNRESULTS1 (VAL +LST TOT I) \EP.PUT.AUX (A VAL) \TEXTCLOSEF-SUBTREE (PC) \DOHELPINTERRUPT1 (OLDTTY) +\HANDLE.NS.ROUTING.INFO (HOST HOPS NET BUCKET ENTRY RN OLDHOPS NEWTIMER LENGTH BASE) \FTP.FLUSH.TO.EOC + (CH) \TEDIT.DELETE (LEN OLINE1 OLINEN TEXTLEN TOPLINE THISW LINES\DELETED) \PROC.FINDREALFRAME (I) +DINFO.INVERT.NODE (NODE) PROCESS.STATUS.WINDOW (PMENU HEIGHT WIDTH REG LEFT BOTTOM WHERE) FETCHFIELD ( +DATUM) MB.NWAYBUTTON.SELFN (BUTTON X Y WIDTH IMAGE STATE) UPDATEFILES (TYPE CHANGED LST FOUND FILE +PCHANGES COMS FILEPROP TYPEDPROP Y) \WRITEBITMAP (LIM BASE) MB.NB.PACKITEMS (ITEM ITEMWIDTHS LINES +CURLINE CURLINEITEMS CURX) \SETPRINTLEVEL (OLB OSB CH N CARN BUF) OPT.FRAMEDEL (VARS FLV DOXVAR PARENT + TMP CD OP) SHADEITEM (ITEMREGION DSP ITEM) \NSFILING.GETFILE (SESSION ACCESS SERIALIZE SEQUENTIAL +RANDEVICE HANDLE FILE.ID PARSE DIRPATH EXPLICIT-VERSION ROOTNAME HAVELOCK OLDHANDLE VERSION FILESTREAM + FULLNAME) PRESSBITMAP (PRDATA WIDTH HEIGHT XPOS YPOS CLIPPINGREGION) CLISPATOMARE2 (X X1) \RETURN (X) + \PFTransferPage (runLength DOB STATUS) \CURVE2 (BOTTOM TOP RIGHTPLUS1 LEFT DestinationBitMap +OPERATION NBITS BRUSHBM COLOR COLORBRUSHBASE RASTERWIDTH DESTINATIONBASE BBT BRUSHBASE +BRUSHRASTERWIDTH HEIGHTMINUS1 BRUSHWIDTH BRUSHHEIGHT LEFTMINUSBRUSH BOTTOMMINUSBRUSH TOPMINUSBRUSH +NBITSRIGHTPLUS1 X0 Y0 X1 Y1 DX DY DDX DDY DDDX DDDY NPOINTS NSEGS POINTSPERSEG D1 D2 D3 D3X D3Y D2X +D2Y SOFTCURSORUP DISPINTERRUPT PERSEG TT I KNOT) CL::STRUCTURE-SLOT-NAMES (CL::NAMES) +COURIER.WRITE.STRING (STRING) ERROR! (NFX FX) FIND.SYMBOL (SYM WHERE DONE PREV TABLE) CHECK/MENU/IMAGE + (IMAGE SCREEN DSP) GETDEF (OPTIONS NOCOPY TYPE SOURCE DEF) \LFMakeDirEntry (SIZE) EDIT4E1 (LST LST1 +PAT MATCH PAT1 LST2) CLISPATOMIS2 (X) \SETRECLAIMMIN (OLB OSB CH N BUF) PARAMETRICSPLINE (KNOTS +%#KNOTS DX DDX DDDX DY DDY DDDY X Y KNOT I A BX BY C R SX SY D2X D2Y SPLINE) \DRAWLINE.UFN ( +INITIALBUCKET NY FIRSTADDR MASK PT NX) COMPILE1 (DEF) TEDIT.INSERT (STREAM TEXT CH#ORSEL OTEXTLEN CH# +XPOINT CHARS ACHAR CRSEEN BLANKSEEN NCH#) SEDIT::SUBSTITUTE-OBJ (SEDIT::SCOPE) AWAIT.EVENT (TIMEOUT) +\DRAWPOLYGON.IP (CLOSED LEFT RIGHT BOTTOM TOP IPXPOS IPYPOS VISIBLEP PTS SEG# PREVX PREVY) +\FTP.CLEANUP (CONNS FAIL) CL::%%COMPLEX-NSUBST (CL::TEST-RESULT) CL::%%SIN-FLOAT (CL::THETA) +SHIFT.BITMAP.UP (NEW.BITMAP) MONITOR.AWAIT.EVENT (TIMEOUT) DEFINEFONT.IP (ID N FRAMEVAR) SKOR0 (SC TEM +) \CLOSEF.PRESS (PDSTREAM FDE DESCR I DDRECORD) BCOMPL2 (X TEM TEM2 LST BLOCK) \TEDIT.SUBST.FN2 ( +SUB-FIND-RESULT) XCL::%%DEFINE-TYPE-PUTDEF (XCL::DEFINITION) RIGHTW.ADJUSTSELECTION (SELBOTTOM ROWPROP + VMARK SELWIDTH XCL:*PROFILE* SELLEFT) \PROCESS.GO.TO.SLEEP (HEAD PREV PQUEUE PROC FROMFX) +HEIGHTIFWINDOW (SCREEN) SPAWN.MOUSE (NAME I) OPT.CLEANFRAME (F) \PRINTBINARYBITMAP (BMH) +\MAIKO.10MBTURNONETHER (CSB) \LEAF.REOPENFILE (NEWSTREAM OLDINFO NEWINFO OLDDATES) +\NSPRINT.FULL.REQUEST.STATUS (PRINTER RESULT STATUS) DO.INSERT.LINE (DY) \GETWINDOWWIDTH (WINDOW) +MASTERSCOPEXEC (MASTERSCOPECOMMAND) FB.EDITCOMMAND (FILE) FW-INIT-MENUS (ITEMS) COMPILE-IN-CORE ( +fn-expr) PUTDEF (TYPE) MSPATHS4 (TEM) RESET.INTERRUPTS (PermittedInterrupts) ADDMENU (IMAGEWIDTH +IMAGEHEIGHT POSITION SCREEN W) RIGHTW.BUTTONEVENTFN (XCL:*PROFILE*) FIND.PACKAGE (BITS INDEX ABASE +FIRSTINDEX REPROBE LIMIT SLOT VALUE SKEY) \PSWOP.SELECTED (VALUE) \FM.CLEARITEM (REGION) +MAKE-UNICODE-TRANSLATION-TABLES (M RCODES RBASE LEFTC CSA I RCOMBINERS PREV) \GCRECLAIMCELL (TYPE CODE + PTR INDEX VAL DONEXT FINAL DTD PTRFIELDS) \GCSCAN1 (ENT PROBE) MAKEHASHKEY (CHARCODE INDEX) +\GETWINDOWHEIGHT (WINDOW) SPLIT89 (X Y Z) \GCSCAN2 (PROBE) SEDIT::TRY-REUSING-BITS (SEDIT::SHIFTED-Y +SEDIT::SHIFTED-X SEDIT::LEFT-CLIP SEDIT::START) MASTERSCOPE1 (X) CL::%%COMPLEX-NSUBLIS (CL::PAIR) +FB.GREATEST.PREFIX (C LASTDIR I) CL::%%SIMPLE-NSUBLIS (CL::PAIR) TB.RESHAPEFN (ITEM#) +\TEDIT.CENTER.SEL.REV (LOOKS OLDQUAD NEWQUAD PARASEL NEWQUADS) \MAIKO.ETHER-INTERRUPT (LENGTH PAIR +PACKET) SEDIT::COPY-SELECTION-COMMENT (SEDIT::END SEDIT::COMMENT SEDIT::INSERT SEDIT::OBJ) MSONPATH ( +INVERTED FROM TO TEM) FB.INCREASING.VERSION (Y X) OPT.FRAMELOCAL (VARS X ANY) \POP.N.UFN (NEXT VAL LEN +) COERCETOBITMAP (BM CR) \FTP.RENAMEFILE (OLDPLIST HOST NEWPLIST CONNECTION INS OUTS CODE) +CH.LIST.ALIASES.OF (OBJECTPATTERN) CLISPATOMARE1 (L TEM) \NSFILING.GENERATEFILES (SESSION FILING5 +DIRPATH TAIL N DIR PATHREQUIRED FILTERNEEDED D NAME HANDLE RETURNPROPS PROP FILTERLIST VERSION +VERSIONFILTER SCOPELIST BULKSTREAM RESULT) \LEAF.EVENTFN (CONNECTION SOC) \BLT (I) \HANDLE.RAW.3TO10 ( +ADDR) EDITFINDP (PAT) UNMARKASCHANGED (TYPE TAIL ANYFLG F TYPEDPROP PROP) \MAKEPCTB (PLEN) +CLISPCAR/CDR2 (NODE N) \PUTBASEBYTE (BYTE DISP) OPENRTPSOCKET (FRNPORT SOCKET# PUPSOC SOCKET MODE +INITSTATE) \FDIFS/FROM/DERIVS (S SS SSS) \HLSVALUEFN (HUE) WFROMMENU (WINDOW) PRINTROUTINGTABLE (TABLE + FILE I BASE NET GATE) FB.FINISH.COMMAND (M) ATAN (Y X ATAN.Y ATAN.X T. R D TT) DIRECTORYNAME (DIRNAME + DN FDEV) ADDSPELL1 (SPLST L3 M L1 L2) EDITDEF.FNS (DEF) \BITBLT.IP (DESTINATIONREGION SOURCE-REGION) +ADDTOVAR (TYPE PAIR VAL ADDED-NONLIST? OP) LOOKUP-SYMBOL (EHASH SYMBOL-NUMBER INDEX-VAR) +TTYIN.PRINTARGS (DOWNCASE ACTUALS ARGS NEXTARG KEY USEDKEYS DOSPACE TYPE) \PUTBITS.UFN (SHIFT MASK X) +XIPAPPEND.STRING (STRING WHERE LEN) PROCESS.BACKTRACE (WINDOW REGION DSP PLACE STKP) +CLIPBOARD-COPY-STREAM (STRM) TWODINSPECT.COLUMNWIDTH (ROWPROP) OPT.MERGEFRAMEP (V F V2) +\TEDIT.COPY.PIECEMAPFN (PC OBJ COPYFN NEWOBJ) \ADDBASE (NH NL D XH XL) \UPDATE.PROCESS.WINDOW (P NAME +OLDBUTTONFN) MSPATHS1 (THISLINE POS TEM NEXTLEVEL Y TABS FIRST) LEAF.ASSURE.FINISHED (STREAM PUP) +TRACE (CL::FNS) FB.EXPUNGECOMMAND (FILES FILENAME NDELETED FAILED) \TEDIT.FOREIGN.COPY? (DEST.TEDIT? +PROCW DEST.TEXTOBJ STREAM CH I) COMP.FUNCTION (FN) \SLOWPLUS2 (X Y) BAKTRACE (FILE FN POS N) \UNQUEUE +(NEXT PREV) TTY/EDITE (EDITCHANGES TEM EXPR) \SLOWDIFFERENCE (X Y) \DUMP.COURIERPROGRAMS (PROGRAM +PGMDEF) SHIFT.BITMAP.DOWN (NEW.BITMAP) SEDIT::REUSE-LINEAR-FORM (SEDIT::CURRENT-X SEDIT::TEMP +SEDIT::CURRENT-LINE) CREATETEXTUREFROMBITMAP (TEXTURE Y X) UNION (ELT TAIL HEAD) BRKDWN1 (Y LEN I) +\SLOWTIMES2 (X Y) MOUSECONFIRM (PROMPTSTRING WINDOW PWINDOW DON'TCLEAR/MAINW LEFTDOWN) DIRECTORY ( +COMMANDS COM PFLG PRINTFLG COMTAIL DESIREDPROPS VALUES-WANTED VALUE HEADINGS PROMPTFLG NAMEFLG COLUMNS + OUTFILE DELETEDONLY TEM FILEGROUP SEENP PREVTAIL X I) METASHIFT (OLDSETTING) CLISPATOMIS1 (EXP) +\SLOWQUOTIENT (X Y) \CHARWIDTH.PRESS (CHARCODE) /DREMOVE (Z Y) RESHAPEALLWINDOWS (TOTALNOWSIZE +ATWINSINFO EXPANSIONWIDTH FIXEDVAR NEWEXPANDABLEWIDTH EXPANSIONHEIGHT NEWEXPANDABLEHEIGHT ATWINFO +EXCESS NOW MWYOFF MWXOFF) \TEDIT.FIND.WC1 (RESULT RESULT1) \SLOWIPLUS2 (HX LX X HY LY Y SIGNX) +GETPROMPTWINDOW (FONT PAGEFULLFN %#LINES PWINDOW HEIGHT) EDITF (EDITFX FNTYPE) \SLOWIDIFFERENCE (HX LX + X HY LY Y SIGNX) CLISPIFY2A (TEM) ATTACHEDWINDOWS (ATTW) SAVESET (OLDVAL PTR FLG TEM NEWFLG) +MB.NB.SIZEFN (WIDTH HEIGHT BUTTONX ITEM CURX BUTTONY CURY BUTTONINFO LINE BOX) \SLOWITIMES2 (HX LX X +HY LY Y SIGN LR CARRY HR) OLD.FIND.SYMBOL (I HASH FIRSTBYTE FIRSTCHAR HASHENT CHAR# PNBASE ATM# B1 B2 +REPROBE) UNTRACE (CL::FNS) GETDEF.I.S.OPR (TEM BODY EVALFLG) \SLOWIQUOTIENT (HX LX X HY LY Y +SIGNQUOTIENT SIGNREMAINDER LZ CNT HZ) MSPATHS2 (Y) DIRECTORYNAMEP (FDEV) DOWINDOWCOM ($$VAR) +TEDIT.DELETE (SEL) EDITDEF (TYPE) CH.LIST.ALIASES (OBJECTNAMEPATTERN) IREMAINDER (HX LX X HY LY Y +SIGNQUOTIENT SIGNREMAINDER LZ CNT HZ) OPT.FRAMEMERGE (VARS P P2 VAR CD N V) HOSTNAMEP (N D) +\TEDIT.MARK.LINES.DIRTY (WW LL) BMOBJ.DISPLAYFN (FACTOR SHRUNK.BITMAP) SHIFT.BITMAP.LEFT (NEW.BITMAP) +\MAIKO.10MBWATCHER (MESSAGE-LENGTH PACKET CNTR) XIPAPPEND.WORD (XIP WHERE LENGTH) MEMB (Y) \FIRSTNODE +(CHILD) APPENDTOVAR (TYPE VAL ADDED-NONLIST? OP) \VFMGetInterval (BTreePageNum level) \SLOWLLSH1 (HI +LO X) TWODINSPECT.ROWPROPWIDTH (ROWPROP) SUBATOM (BASE OFFST FATP LEN N1 M1) \FTP.ADD.USERINFO (PLIST) + UNSAVEBLOCK? (ENTRIES) MARKASCHANGED (REASON TYPE FN L) \SLOWLLSH8 (HI LO X) \SPP.HANDLE.INPUT (XIP +SPPBASE ADDRESSEDID PKTSEQNO ACTIVE? ATTN ACKED NEWALLOCNO MAXALLOCNO ALLOCINCREASED ACKRECEIVED) +CL:SUBSEQ (END) UnixPrint (NAME F) \SLOWLRSH1 (HI LO X) SHIFT.BITMAP.RIGHT (NEW.BITMAP) +UNPACKFILENAME.STRING (FILE TEM VAL POS OSTYPE HOSTP END TYPE START SRCPOS CODE NEXTPOS DSTPOS +FIRSTDOT SECONDDOT CH I BEYONDEXT BEYONDNAME) MENUWINDOW (MENU WINDOW) CH.DELETE.ALIAS (ALIAS) +MSNEEDUNSAVE (FNS FN) FB.MAYBE.INSERT.FILE (N NEWDATA FILEINFO FULLNAME FILE-UNCERTAIN VERSION CRDATE +CRDATE2 NEWNAME NEWITEM TAIL SPEC) CLISPATOM2D (X Y) \SLOWLRSH8 (HI LO X) PRINTBINDINGS (FL POS VAL +EPOS) DECODE-NS-STRING (BYTEINC I FATLENGTH CH CSET FATBASE) LDIFFERENCE (Z) EDITH (X LINE COMS TEM Y) + \VFMKillBuffer (PREV CURRENT) \SLOWLOGOR2 (XH XL X YH YL Y) BURYW (WINDOW) RECORDACCESS (FIELD DEF +RECS TEM TYPE) \MAP.ROUTING.TABLE (I BASE) PUPNET.DISTANCE (ROUTE) \ONQUEUE (X) EDIT* (TEM) +\SLOWLOGAND2 (XH XL X YH YL Y) \LEAF.DIRECTORYNAMEP (INFO) SEDIT::RECOMPUTE-FORMAT-VALUES (SEDIT::CHANGED? +) \BSP.PREPARE.INPUT (SOCKET TIMEOUT ERRCODE PUP) EDITDEFAULT (EDITY EDITX EDITZ) \SLOWLOGXOR2 (XH XL +X YH YL Y) \BINS (STREAM) \SMASHBSPSTREAM (OLDSTREAM OPENSTREAM) CL::%%SQRT-FLOAT (CL::X CL::V) EDLOC +(EDL) ONEDINSPECT.PROPWIDTH (PROP) LSH (X) \SPP.INFO.HOOK (WINDOW) \BSP.CLEANUP.INPUT (NEWLO) +\CURVESLOPE (PARAMS DX DY) EDOR (COMS) SHRINKW (WINDOW) DSUBST (B EXPR) SYMBOL.PNAME (BUFFER ADDR LEN +I) \BOUTS (STREAM) WRITE-UNICODE-INCLUDED (ICSETS C KNOWN N POS I IMAPPING M CSI CSETINFO RANGES CTAIL + START END R LAST STR) DWIM-SYMBOL-PACKAGE (OTHERS X CHOICE) EDITRAN (DEF WORDS C1 TEM) ADDTOCOMS ( +TYPE TAIL) DEFLIST (L) XIPAPPEND.CELL (XIP WHERE LENGTH) BCOMPL1A (TEM COMPCOPYFLG0 X FIRSTFLG0 +COMPEVALFLG0 DFNFLG COMPCOPYFLG) GETHASHKEY (HASHKEY DELETED? PROBE) ONEDINSPECT.REPAINTFN ( +WINDOWREGION PROP MARK STARTPROP STARTVERTMARKS LASTPROP XCL:*PROFILE* VMARK) REMWINDOWPROP (WINDOW +DATA TAIL PREV) \QUEUELENGTH (X CNT) EDITELT (Y L) ARCTAN2 (Y X ANGLE) COMPILE.FILE.DEFINEQ (DEF) +COPYBYTES (NBYTES) BRKDWNFORM (I) CHANGEPROP (Z) \COURIER.PUTDEF (OLDINFO NAME) FIND.START.OF.WORD ( +END BUF) \UNBOXFLOAT2 (NEXT Y X) CL:ADJUST-ARRAY (DIMENSIONS ELEMENT-TYPE FILL-POINTER) \PAPERSIZE.IP +(MEDIUM) CREATEMENUEDWINDOW (LOCATION MENU MENUW MINTOTALWIDTH MENUWIDTH MINTOTALHEIGHT MENUHEIGHT +WHOLEREGION WINDOW) MBUTTON.FIND.NEXT.FIELD (PC START-OF-PIECE CH1 LEN) UNSAVEFNS (FNS FN FNTYPE FNREC + FL) EDRPT (EDRL EDRPTCNT) CLISPCAR/CDR1 (TEM) \UNBOXFLOAT1 (NEXT X) \BUFFERED.COPYBYTES (BUF NB END +STARTOFFSET NBYTES) INSPECT/AS/RECORD (RECORD RECDEC) SEDIT::COMPUTE-POINT-POSITION-COMMENT (SEDIT::SUBNODE +) EDUP (C-EXP L1 X) \NSFILING.PARSE.FILENAME (LASTHOST CH I START SEMI DOTSEEN DIRS END NAME VERSION) +GETLIS (Z) LISTFILES (FILES FILE OPTIONS FULLNAME) CURSOR.INIT (DESTBPL) FB.PRINTFN (OLDFONT OFF C +NEXTPOS SPEC INFO XPOS FORMAT ACTUALNEXT) %%ASET2 (BOUND0 BOUND1 OFFSET) CLISPLOOKUP (CLASS CLASSDEF +TEM) %%ALTER-AS-DISPLACED-ARRAY (DISPLACED-INDEX-OFFSET BASE NEED-INDIRECTION-P OFFSET) +SEDIT::COMMENT-LENGTH (SEDIT::SUBNODE SEDIT::I) %%AREF2 (BOUND0 BOUND1 OFFSET) EDIT!UNDO (FLG LST) +ATTACHWINDOW (MAINW ATTACHW EDGE POSITIONONEDGE) \SLOWIGREATERP (HX LX X HY LY Y) ARCTAN (FLIPPED XX +X2 SSUM) ATTACHMENU (MENUWINDOW) MB.NB.WHENOPERATEDFN (BUTTON SIDEFN) EDITCOMA (TEM LST TEM1 C L) +CLISPATOM2C (TAIL0) \SLOWFGREATERP (SIGNX X HX LX EXPX Y HY LY SIGNY EXPY) COPYCHARS (SRCEOLC DSTEOLC +SAMEEXTFORM RAP EOF ACTUALSTART ACTUALEND CH I) EDITCOML (C2 C3 TEM C COPYFLG L) \RTP.HANDLE.INPUT ( +PUP TIMER) \LEAF.BREAKCONNECTION (DEVINFO CONNECTION FILES) EDITCOM1 (TEM LISPXHIST) +RECORD.FIELD.VALUE (TMP) EQUAL (X Y) \SPP.RETRANSMIT.NEXT (XIP SEQNO) WRITE-UNICODE-MAPPING-FILENAME ( +RTAIL R) INTERSECTION (S X) PUTCURSORPROP (OLDDATA OLDVALUE TAIL) \BOXIPLUS (HY LY Y HX) EDITMAC (X Y +LST) EDITSAVE (X) UNDOEDITCOM (C) \BOXIDIFFERENCE (HY LY Y HX) XIPAPPEND.BYTE (XIP) +\TEDIT.REOPEN.STREAM (PC) CLEAR.LEAF.CACHE (HOST DEVINFO CONNECTION) TEDIT.PROMPTPRINT (MAINTEXTOBJ +WINDOW) \FM.CHANGELABEL (REGIONS BITMAPS) LISTPUT1 (X) \COPYOPENFILE (X PROPS TYPE OUTSTREAM) +SEDIT::UNDO-LIST-REPLACE (SEDIT::SUBNODE) CL:REPLACE (END1 END2) EDITSMASH1 (L0 X) LISTGET1 (LST) +OPENSTREAM (REC PARAMETERS STREAM FILE OLDSTREAM) OPT.FRAMEOPT (ANY) MEMBER (Y) EDITNCONC (X) +HRULE.IMAGEBOXFN (THICKNESS) ONEDINSPECT.BUTTONEVENTFN (XCL:*PROFILE*) \COMPUTE.ARC.POINTS (ANGLEINCR +ANGLE) PFI.SORT.INDICES (X PRIORITY RESULT INDICES) RETDWIM2 (N M) EDITSAVE1 (TEM) \CURVEEND ( +SOFTCURSORUP DISPINTERRUPT X Y I) SEDIT::OUTPUT-STRING (SEDIT::THIS-ITEM SEDIT::WIDTH STRING SEDIT::FONT +) \CREATEPIECEORSTREAM (PC STRING) BMOBJ.IMAGEBOXFN (WIDTH HEIGHT FACTOR) IDLE.BITMAP (BITMAP BOX DSP) + \TEDIT.WINDOW.OPS (Y OPERATION) IPLUS (R J) \PFFindPageAddr (PAGEGROUP) EDIT2F (X TEM CL) TCONC (XX) +PROGN (*TAIL*) LCONC (XX) EDIT4F1 (L XX TAIL X TEM LVL) MAP2C (MAPX MAPY) FB.COPY/RENAME.MANY (PREFIX +FIELDS HOST DIR DEVICE FIRSTDATA ITEM SUBDIR RETAIN FILELIST OLDNAME) \HCPYMODEDSPPRINTCHAR (CC +TABWIDTH) PLUS (J R) CL::%%LOG-FLOAT (CL::X CL:EXP CL::R CL::ANSWER) \MAIKO.10MBSENDPACKET (PAIR) +MSRESPELL (SPLST) SPYOBJ.IMAGEBOX (FONTSOURCE) FB.REMOVE.FILE (PREVITEM NEXTITEM NEXTNEXTITEM N) +EDIT1F (TEM) COMP.BOOL (P A) MAPC (MAPX) SEDIT::NORMALIZE-SELECTION (SEDIT::FIRST-LINE) +\PUPNET.CLOSERP (ROUTEY) EDITFPAT1 (VAL N) TWODINSPECT.SETELT (XCL:*PROFILE* NEWVALUE) MAP2CAR (MAPE +CL:MAPL MAPY MAPX) COPYFILE (TOFILE FROMFILE) SEDIT::OUTPUT-SPACE (SEDIT::I) \CLEAR.ROUTING.TABLE (I +BASE) SAMECLOOKS (F) EDITBELOW (DEPTH L1 L0) DEBUGGER (LASTPOS BRKPOS XCL::DEBUGGER-WINDOW BRKFN) +MAPCON (MAPY CL:MAPL MAPE MAPX) BCOMPL.BODY (UNPACKFILE FILEROOT SCRATCHFILE) TEDIT.OBJECT.CHANGED ( +PCINFO CHANGEDCH#) LOGAND (R J) EDIT4F2 (FORMAT) MAPCAR (MAPE CL:MAPL MAPX) HISTORYFIND1 (PAT1 PAT2 +TEM) \INIT.RTPPROCESS (NAME) TEDIT.PUT.PCTB (PC OLDLOOKS TRUEFILE OFILE CURCH# OLDCH# FONTFILE PCCOUNT + PARAHASH PARALOOKSSEEN LOOKSHASH PREVFATP PFILE PSTR CH I CH#S PREVPREVPC PREVPC) EDIT4F3 (FORMAT LST + MATCH) PRETTYFILEINDEX (*STANDARD-INPUT* WASOPEN FILENAME ENV FILECREATED *PFI-TITLE* +*STANDARD-OUTPUT* PRINTOPTIONS *PFI-MAX-WASTED-LINES* *PFI-TYPES* *PFI-LOCATIONS* *PFI-FILEVARS* +CRDATE *PFI-PAGE-COUNT* FIRSTPAGE PART# *PFI-PAGE-PREFIX*) MAPLIST (MAPE CL:MAPL MAPX) FW-FORGET-CMD ( +CURRENT-OFDS OFD FORGET-OFD) LOGOR (R J) BPNT (Y Z N) EVERY (EVERYX) MAPCONC (MAPY CL:MAPL MAPE MAPX) +LDIFF (V Z X) BRKDWNFBOXES (BDZ BDY BDN) \MAIKO.INPUT.INTERRUPT (LENGTH PAIR) MSPATHS (FIRST NAMED TEM + UNDONE) CURSORCREATE (HOTSPOTY HOTSPOTX MASK CURSOR) EDIT.RI (A B) COPYDEF (TYPE DEF X TEM) +\UFStoOtherCopyMess (PAIR) LOGXOR (R J) EDITBF1 (XX X Y TAIL LVL) CLISPBROADSCOPE (BRACKETCNT L0 L) +NLEFT (X N Y) \TFBRAVO.PARSE.PROFILE.VALUE (VALUE) STKPOS (FLAG I FX) MAKEFILE1 (GROUP X) \VECFONTINIT + (FMLY FD CSINFO) EDITNTH (X N TEM) CHANGERECORD (FNLIST) UNCOPYATOM (ATOM.NAME PACKAGE.NAME) +\INFER.FILE.TYPE (TYPE) FB.OPERATE.ON.FILES (LDFLG FN FORMS) ITIMES (R J) \NSFILING.CONFLICTP (S) +EDIT.LO (X) CLISPBROADSCOPE1 (TEM) TEDIT.UNDO.PARALOOKS (OLDLOOKS NEWLOOKSLIST PC) PRINTCONSTANT (X) +\VFMGetBufferFor (BUFFER FLUSH LAST) EDIT.BI (N B A X) SEDIT::FIND-SELECTION-BACKWARDS (SEDIT::END) +CL::%%RANDOM (CL::RV CL::I CL::J) \TEDIT.FLUSH.UNUSED.LOOKS (FIRSTPC LOOKS) TIMES (J R) EDIT.RO (X N) +TEDIT.SUBLOOKS (CHANGEMADE CH# PC) \TAN-FLOAT (R SIGN RECIPFLG ANSWER R2) TEDIT.LOOKS (TSEL +CHANGERESULT) \TEDIT.CARET (CARET) EDIT.LI (X) COMP.PICOUNT (N ND VARS ARGS) RATOMS (X L) +RESETOPENFILES (FILES F) CONVERT-AFM-FILES (FL AFM-FILE WEIGHT SLOPE FONT FILENAME) \CHTOPCNO (CHNUM +INDEX TREE) MSSEEK-WORD (FND) PUTASSOC (X) LISPXFIND0 (LINE0 TEM L1 THRUFLG L2) \RTP.ACTION (NEWSTATE +STREAM STATE TIMEOUT) \SETUPGETCH (PC CHOFFSET CHARSLEFT PS PF SUBSTREAM) CENTERPRINTINREGION (REGION) + EXEC-EVAL (VALUES) MAKEHARDCOPYMODESTREAM (IMAGETYPE) TEDIT.SELECTED.PIECES (PCLST PC NODE NPCCH PCCH + NPC I) \LOCATE.PUPNET (DATA) FIND.LINE (LINE) \TELERAIDBREAK (USERFRAME FRAME NXT NXTEND NEWFRAME +FREE) PFI.COMPUTE.INDEX.SHAPE (WIDTH PAIR NCOLUMNS NROWS) \CURSORPOSITION (YPOS XPOS) EDITSMASH (TEM L +) COMPILER::ALPHA-COMPILER-LET (COMPILER::VARS COMPILER::VALS) HRULE.DISPLAYFN (THICKNESS Y RULING) +WRITE-UNICODE-MAPPING (CSI F IMAPPING CSETINFO RANGES) FORCEOUTPUT (STREAM) \PUTBASEFIXP.UFN (LO HI +VAL) CLIPBOARD-PASTE-STREAM (STRM) \FM.EDIT-GETPOINTERINFO (MOUSEX WIDTH PTR N) CHAT.BIN (FIRSTTIME) +RPT (RPTV RPTN) \FLUSH.OPEN.STREAMS (STREAM) EQDEFP (CA1 CA2 I) ONEDINSPECT.COPYBUTTONFN (XCL:*PROFILE* + SELECTION) UNBREAK (XCL::FNS) EDIT.BO (X) FRPTQ (RPTV RPTN) COPYATOM (X I) RPTQ (RPTV RPTN) MSSPLST ( +Y) \BIGNUM.LSH (X N) CURSORPOSITION (DD OLDPOSITION) SET-READTABLE-INTERACTIVELY (READTABLES) +GTHASHFILE (HASHFILE) \RSH (XHI XLO X N) GETLOCALDEC (X TL Y) CURSORSCREEN (XCOORD YCOORD DESTINATION) + SAVEDEF1 (X) SEDIT::NEXT-LINEAR-ITEM (SEDIT::LINEAR) \TEDIT.CENTER.SEL (LOOKS OLDQUAD NEWQUAD PARASEL + NEWQUADS) FROM.SCREEN.BITMAP (SCREENREGION SCREEN REGION NEW.BITMAP) CL:BIT-NOT (RESULT-BIT-ARRAY) +SORT.PUPHOSTS.BY.DISTANCE (PAIR) POSTSCRIPT.GETFONTID (FONTID) FIND1STPRIME (I P) CLOSERTPSOCKET ( +SUCCESS) EDIT.BITMAP.REAL (NEW.BITMAP COMMAND.MENU COMMAND DONE PREVIOUS.BITMAP) SEDIT::FIND-SELECTION + (SEDIT::START) FB.GET.NEW.FILE.SPEC (NEWNAME NAMEFIELD FIELDS TAIL PREVTAIL DIR) CH.CREATE.ALIAS ( +OBJECTNAME) EDITGETD (DEF) \FILLINXIP (EPKT LENGTH) COPY-ARRAY (TO-ARRAY) \TEDIT.INSERT.PIECES (INSPC +PREVPC FIRSTPIECE UNDOCHAIN SRCPFILE NPC OBJ AFTERFN CURCH# LEN PC) \TEDIT.CLOSEUPLINES (DY NYBOT +LOWESTY LINE) TWODINSPECT.SELECTCOLUMNPROP (SELECTEDCOLUMNPROP CPROP SELECTEDELTBOTTOM +SELECTEDELTWIDTH XCL:*PROFILE* SELECTEDELTLEFT HMARK) SELECT1 (C L A) \CHANGECHARSET.HDCPYDISPLAY ( +OLDWIDTH W SCALE I) \TYPE.FROM.FILETYPE (PAIR) \LEAF.LOOKUPCACHE (CACHE PREV I) CLISPIFYFNS (TEM CLK) +COPY-VECTOR (END1 END2) SELECTC (C L TL) CH.DELETE.OBJECT (OBJECTNAME) CLISPATOM2A (TEM CLISPCONTEXT) +TEDIT.UNDO.LOOKS (OLDLOOKS NEWLOOKSLIST PC) \VFMLower (word) CURSOREXIT (SCREEN XCOORD YCOORD SCREEN2 +XCOORD2 YCOORD2) \ROUTE.PUP (NDB ROUTE PDH) SOME (SOMEX) DEFAULTMAKENEWCOM (LISTNAME) +TB.MAP.DELETED.ITEMS (ITEM) \NSRANDOM.CREATE.STREAM (ERROR S EOF) SETTERMCHARS (NEXTCHAR LASTCHAR +2CHAR BKCHAR UNQUOTECHAR PPCHAR) CONTINUEDIT (STREAM FILE ENV FC FL TEM) FW-CREATE-OFD-WINDOWS (OFD +OFDWINDOW OFDSTREAM) SEDIT::STRINGIFY-LIST (SEDIT::SUBNODE SEDIT::STRINGS SEDIT::DOT) CH.CREATE.OBJECT + (OBJECTNAME) \NSFILING.OPEN.HANDLE (HANDLE) /ECHOCONTROL (TTBL) CLISPATOM1B (L LST) STRMEMB (Y N C) +LISPXSTATE (X Y) SET-PACKAGE-INTERACTIVELY (PACKAGE PACKAGE-NAME) /SETSYNTAX (TABLE OLDCLASS OLDCH) +\TEDIT.SUBST.FN1 (RESULT) SUBSET (RESULT TAIL MAPX) SIMPLE-COMPARE (END1 END2) +\TFBRAVO.PARSE.PROFILE.PARA (TOKENS TOKEN) ANALYZE-REST (REST-ARG) \SIN-FLOAT (R SIGN R2 ANSWER) DINFO + (GRAPH MONITORLOCK) \GENERIC.BINS (OFF) COMPILEFILES (FILES) OPT.RETMERGE (LEV FEQ VEQ G L1 L2) +\GENERIC.BOUTS (OFF) TEDIT.SCANSEL (SEL) HASHFILEP (HASHFILE) TAILP (Y) \ROUTE.XIP (NDB ROUTE PDH) +%%MAKE-DISPLACED-ARRAY (BASE NEED-INDIRECTION-P OFFSET) \OPENLEAFCONNECTION (PROTOCOLS IFSPORT +NAME/PASS CONN OPUP DATA RESULT) \HDCPYBLTCHAR (CURX MICARIGHT RIGHT LOCAL1 LEFT SOFTCURSORUP +DISPINTERRUPT) CL::%%MAKE-RANDOM-ARRAY (CL::RANDOM-CONST-A CL::RANDOM-CONST-B) +\TEDIT.ORIGINAL.WINDOW.TITLE (TITLE) \FM.EDIT-DELETE (OLDPOINTER POINTER MOVEDOFF END) +CHAT.SCREENPARAMS (TITLEMIDDLE EMACSMODE) MERGEINSERT (LST1 TEM PLACE N LST) MSVERB (ROOT) COMP.CPI (F +) \TTW1 (SCREEN SOFTCURSORUP DISPINTERRUPT ISECT) \NSFILING.CHECK.ACCESS (A) ARCSIN (NEGP XX REDUCED Z + Q1 Q2 SSUM) SEDIT::LINE-FINISHED (CL:BLOCK) COURIER.READ.STRING (I) \NSPRINT.ENQUIRE (PRINTER) +\PUPGATELISTENER (EVENT PUP) SHOWBITMAP1.IP (ROTATION Y) MSMARKCHANGED (ATYPEREC MSMCFN) CLISPATOM2 ( +TEM ENDTAIL-1 Z UNARYFLG LISPFN NEGFLG VAR2 VAR1) CHANGESLICE (L) CL:CHAR-NAME (X CSET CODE) +WITHOUT-INTERRUPTS (VAL) \FTP.OPEN.CONNECTION (INSTREAM) COPY.SEGMENT (TAIL) \FTP.FIX.BROKEN.INPUT ( +NEWSTREAM PAIR CONN) \FM.EDIT-WORDDELETE (END ENDTAILPTR) CHAT.LOGIN (INSTREAM COM NAME/PASS LOGINFO +OUTSTREAM) CONVEXP (PT ORIGX0 ORIGY0 TANGX0 TANGY0 ORIGDX ORIGDY LASTX LASTY TANGDX TANGDY CURRX0 +CURRY0 CURRDX CURRDY NEGSGN PATH RESULT X Y TSGN CSGN OSGN) BIT.IN.ROW (X) ETHERHOSTNAME (NETHOST +SOCKET# BUF IPUP RESULT C) DASSEM.ASMAJ (Y S D P) OPT.RETTEST (F1 F2 L1 L2 ONLYIFSAMEFRAME) \ATMIN (I) + RANDSET (RS1 RS2 RS X I) WALK-FORM-INTERNAL (XCL::NEWFORM XCL::WALK-NO-MORE-P XCL::TEMPLATE XCL::FN +XCL::NEWNEWFORM XCL::MACROP) SCAVENGEDSKDIRECTORY (LISPDIRECTORY LISPFILES) FNTH (N X) +\TEDIT.HISTORYADD (REALEVENT) SEDIT::FIND-NODE-SUBSTRUCTURE-BACKWARDS (SEDIT::END) \SLOWHDCPYBLTCHAR ( +ROTATION NEWX CURX LEFT RIGHT PILOTBBT DESTBIT WIDTH SOURCEBIT SOFTCURSORUP DISPINTERRUPT YPOS +HEIGHTMOVED CSINFO) TWODINSPECT.SELECTROWPROP (SELECTEDROWPROP RPROP SELECTEDELTBOTTOM VMARK +SELECTEDELTWIDTH XCL:*PROFILE* SELECTEDELTLEFT) OPT.RETOPT1 (Y1 END) IDATE (N1 *POS* N2 YEAR DAY MONTH + CH SECONDS MINUTES DEFAULTTIME HOUR TIMEZONE ZONE DST) \LFFileSpec (DIRSTREAM versionList version +dirPtr) MAKEFN (ARGLIST A ACTUAL DEF) \LEAF.REQUESTPAGE (DATA OPUP) EDIT.BITMAP (BM NEW.OBJECT) +\PROCESS.RESET.TIMERS (TIMER UNITS PROC) SEDIT::FIND-NODE-SUBSTRUCTURE (SEDIT::START) \CLEARXIPHEADER +(XIP) \TEDIT.FIND.WC (RESULT RESULT1) \FTP.RECOGNIZEFILE (HOST DESIREDPLIST V DEVICEWANTED CONNECTION +INS OUTS CODE RESULT REMOTEPLIST BESTVERSION BESTPLIST) CL:VECTOR-POP (FILL-POINTER) +COMPILER::COPY-NODE-LABELS (COMPILER::FUN COMPILER::NEW-VAR) TEDIT.COPY.PARALOOKS (LOOKS LEN) +RESETVARS (V) RAND (I J UPPER LOWER) \OUTCHARFN.PRESS (XPOS CHARCODE NEWXPOS CLIPPINGREGION) MAKECOM ( +ARGNAMES VAR I ARG FORM LST) \BSP.HANDLE.INPUT (EVENT PUP TIMER) INITUFNTABLE (I X) IMOD (X) +\TEDIT.CHANGE.LOOKS (PCTB \INPC FONT NEWLOOKS FAMILY FACE SIZE PROT SELHERE ULINE OLINE INVERSEVIDEO +STRIKE INVISIBLE SUPER SUB WEIGHT SLOPE EXPANSION SIZEINC OFFSETINC STYLE STYLESET USERINFO UISET +FOOLOOKS CHLIM PC1 PCN OLDLOOKSLIST NEWPCLOOKS NEWFONT PC) SMARTARGLIST (TEM DEF OTHERDEF FN) +\SETDAYTIME0 (BOX) \INTERNALTOTOPW (W1 SCREEN SCREENTOPW) EXPT (V N A) NONSYSPROPNAMES (PROP) +SEDIT::LAST-LINE-LINEAR (SEDIT::NODE) CH.LIST.OBJECTS (OBJECTPATTERN) HLSTORGB (Max Min) +\NSFILING.FULLNAME (INFO FULLNAME HANDLE DIRECTORYFLG VERSION PATHNAME CH VERS I DIRLST START DOTSEEN +PREVDOT FUNNYCHAR FILENAME QUOTEDDIRS ALREADYQUOTED) \LEAF.ADD.QUOTES (I PIECES N) +\HCPYMODEDISPLAYINIT (WINDOWFN) PATH.LESSP (PT1 PT2 Y1 Y2 X1 X2 U1 U2) MODERN-MENUBUTTONFN (MENU) +\PUTFIXP (HI LO NUM) BREAKCONNECTION (DEV BREAKFN DEVICE HOST) REGIONONSCREEN (LEFT BOTTOM) +\PUTSWAPPEDFIXP (HI LO NUM) WORD.MATCHES.BUFFER (BUFCH BTAIL CHAR I) PRINTXIPROUTE (CSECS) +\TEDIT.WINDOW.TITLE (W) SEDIT:SEDIT (CL:STRUCTURE) \STRINGWIDTH.HCPYDISPLAYAUX (C CSET WIDTHSBASE +TOTAL ESC ESCWIDTH TOTALWIDTH) PRINTPUPROUTE (CSECS) CL:GRAPHIC-CHAR-P (CSET CODE) \GENERIC.OPENP ( +STREAM S) CL:MOD (CL:REM) \GENERIC.RENAMEFILE (OLDFILE NEWFILE) \HANDLE.PUP.ROUTING.INFO (HOST HOPS +NET BUCKET ENTRY OLDHOPS NEWTIMER LENGTH BASE) CL::SIMPLE-STRING-EQUAL (END1 END2) CLISPATOM1A (ISFLG +BRACKETCNT BRACKET ENDTAIL CLTYP0 CLTYP BROADSCOPE OPRFLAG TYP) SAMEPARALOOKS (F) +COMPLEX-COMPARE-FORWARD (END1 END2) FMAX (J Y X) \VECPUT (XPOS YPOS) \TOTALFIXEDHEIGHT (ATW +THISMINHEIGHT) GETSCREENPOSITION (WINDOW) CH.RETRIEVE.DOMAIN.ACL (DOMAIN) \VAMUpdateVAM (VAMPage +VAMWord VAMBit result) SCALE/TONODES (NODEID prop val) FILEGETDEF.VARS (X) \GS.INITBUF (N NUMLEN) +COPY-CIRCLE (SCANBUF VAL REST BODY NEW ID AUX) EDITTOGGLELABEL (NODE) PASTEFROMCLIPBOARD (C) FMIN (J Y + X) LOAD? (FULL FILE) \COURIER.ATTENTIONFN (CON STREAM) GETHASH (BITS INDEX ABASE SLOT VALUE SKEY EQFN + FIRSTINDEX REPROBE LIMIT) PARSE-FORMAT-OPERATION (PARMS) PFI.CENTER.PRINT (GAP X) RECLISPLOOKUP ( +CLASSDEF LISPFN) MAKE-NETWORK-TRACE-WINDOW (W DS) TEDIT.SELECT (SEL PREVLINE) TEDIT.SUBPARALOOKS ( +CHANGEMADE CH# PC) LOADCOMP (ROOT) \INSPECTW.REDISPLAYPROP (XCL:*PROFILE* ITEMSELECTED? NEWVALUEREGION +) \TEDIT.WORD.BOUND (SYN1 SYN2) PREVWORD (START NEW %#HITS X N) \CIRCSHADE.XSCAN.IP (Y X U V E X0 Y0) +SEDIT::FIRST-LINE-LINEAR (SEDIT::NODE) CHAT.CLOSE (FILE PROC KEEP ICON) \FM.MENUHANDLER (BUTTONS +LASTITEM ITEM REGION PROMPTFLG) \3MBRAWTRANSMIT (PACKET) IMLTLIST (NLIST X Y U V) CHECKIMPORTS (FILES +FILE FULLFILENAME DATE) ADD.BORDER.TO.BITMAP (NEW.BITMAP) IMAX (J X) FILL/GRAPHNODE/LABEL (NS) +OPT.RETPOP (RET VAL TAGS ANY) \MAP-OPEN-STREAMS (DEVICE) \TEDIT.PUT.CHARLOOKS.LIST2 (LOOKS I) +SEDIT::SHIFT-LINEAR-FORM (SEDIT::X) \INSERT.FIRST.PIECE (PC) IMIN (J X) COMPLEX-COMPARE-BACKWARD ( +START1 START2) \TOTALFIXEDWIDTH (ATW THISMINWIDTH) PRINT-LOADED-FILE-INFORMATION (X) READATABASE (NAME + FN TAB NEWREL) MSCOMMAND (TEM SET) SETYREL.IP (DY) FILEGETDEF.FNS (ENV MAP PAIR MAPLOC SOURCE) +OPT.JSIZE (Z) MENUBUTTONFN (MENU SELECTION) \SETUPTIMERmacrofn (TimerUnits IntervalUnits CLOCKFNNAME +INTERVALFORM TIMERFORM) NORMSECT (D X0 DX DDX DDY XL XR) STKARGS (I) MAX (J Y X) ADJUSTLINE (LINE ROW +NEXTLINE OVFL %#BITS USECR BREAK START NEWENDLINE OLDENDLINE JUSTIFYING LASTCOL) XYPT.LESSP (V1 V2) +BRKDWNRESULTS (CL:VALUES I) \UPDATE.PBT.RASTERWIDTHS (PBT) \TEDIT.GET.SINGLE.PARALOOKS2 (TABSPEC +TABFLG DEFAULTTAB TABCOUNT TABS TAB#) MIN (J Y X) \CanonicalizeTimerUnits (Y CONVERTEDP) OPT.RETFIND ( +L1 R) APPENDNUMBER.IP (I R) \PAGED.INCFILEPTR (NEWPAGE NEWOFF) \TEDIT.FIND (W SEL CH) FIND.NEXT.WORD ( +BUFTAIL BACKUPFLG N) BIT.IN.COLUMN (X) \LEAF.DEVICEP (I NAME DEVICE SEQUIN CONN) \PRESSFAMILYCODELST ( +TYPE NEXT PAIRS I) OPT.RETOPT (TESTL TARGL) DMPHASH (AP) FTIMES (R J) INTCHECK (CHR NCHR) +TEDIT.SEL.AS.STRING (STREAM TSEL LEN RESULT I) \BUFFERED.BIN (OFF X) FPLUS (R J) \DECODEPRESSFACEBYTE +(EXP FACECODE WEIGHT SLOPE) \CIRCSHADE.DISPLAY (table Y X U V E X0 Y0) FIND.CHAT.PROTOCOL (PAIR RESULT +) \FM.RIGHTBUTTONFN (ITEM REGION) SEDIT::REPLACE-CHARS (STRING) DIRECTORY.MATCH1 (PATTERN OKCHARS +PATCHAR PAT FIRSTCHAR TESTCHAR) MSTRYSPELL (PTR) \BUFFERED.PEEKBIN (OFF X) FW-FILTERED-FILE? (FILTER) +\LFPurgeDirectory (file) CLRPLNODE (L) \BUFFERED.BOUT (OFF) BREAKDOWN (FNS N I) FILEGETDEF.PROPS (X +TAIL) CHNGNM (FN OLD DEF NEW Z Y X) UNSET (X TEM NAME) WRITE (STREAM *PRINT-CIRCLE-HASHTABLE*) +\PS.SCALEHACK (FACTOR) FB.UNDELETE.FILE (SIZE) SEDIT::INSERT (SEDIT::WHERE SEDIT::PENDING-DELETE? +SEDIT::NODE) \BOXFPLUSDIF (Y HY LY SIGNY EXPY X HX LX SIGNX EXPX EXPDIFF CARRY PLEASENORMALIZE) +FW-CREATE-OFD-LIST (FILESTREAM FULLNAME) SELECTQ1 (C L) TTYIN.BALANCE (X) \BUFFERED.BINS (IBASE START +CNT END OFFSET BYTESLEFT X) \BOXFTIMES2 (X HX LX SIGNX EXPX Y HY LY SIGNY EXPY SAVEHY SAVELY CARRY LZ +HZ HHZ HHY) SI::ADVICE-PUTDEF (SI::ENTRY) PFI.PRINT.INDICES (ITEM INDICES FREECHOICE X LINESREMAINING) + TTLASTLINE (L LINE) \CIRCSHADE.IP (Y X U V E X0 Y0) \MOVEBYTES (SBN DBN DB SB NBYTES NWORDS) +\BOXFQUOTIENT (X HX LX SIGNX EXPX Y HY LY SIGNY EXPY HZ LZ) USERLISPXPRINT (FN) \LEAF.DELETEFILE (DATA + IPUP) \LFOpenOldFile (SIZE LASTPAGE OFFSET) NS.AUTHENTICATE (SIMPLE.CREDENTIALS RESULT) +\TEDIT.PUT.SINGLE.PARALOOKS2 (DEFAULTTAB TABSPECS) PFI.CONDENSE.INDEX (INDEX *PFI-INDEX-ALIST* OLDNAME + TYPEPAIR FILTERS FILTER PAIR F) \LFDirectoryP (directoryID stream) CCCSCAN (CODELOC NAME NAMELOCS NT1 + B TAG DEFLOCS CONSTLOCS PTRLOCS) \BUFFERED.BOUTS (DBASE START CNT END NBYTES OFFSET) +MSTYPEMATCHRATING (X Y) ADDPROP (NEW X X0) VALUOF (Y) \FLOAT (HI LO SIGN) TEDIT.INCLUDE (STREAM NFILE +WASOPEN NNFILE START END TEXTLEN NSTREAM PCTB INSERTCH# INSPC PCLST LEN) \TEDIT.FIND.PROTECTED.START ( +PC START-OF-PIECE) /REMPROP (VAL X X0) NEGC (X) \SCROLL.HANDLER.DOIT (LFT TOP) \LEAF.GETFILE (HOST +REMOTENAME CONNECTION OUTCOME CACHEDSTREAM NAME/PASS OPUP DATA IPUP FILELENGTH LEAFHANDLE OLDSTREAM +CONNECTNAME/PASS) TEDIT.EXTEND.SEL (NPOINT SETOSELFLG FIXUPNEEDED) \MAKEFLOAT (BOX HI LO EXP +ROUNDINGBITS) EMBEDPROG (X LE LL) SEDIT::CLEAN-UP-AFTER-RELINEARIZATION (SEDIT::DELTA) FW-OFD-EXISTS? +(OFD) LAYOUTSEXPR1 (R) COMPILER::META-CALL-LAMBDA-SUBSTITUTE (COMPILER::TAIL COMPILER::VAR) +FILEGETDEF.MACROS (TAIL) CLISPIF0 (L Y PRED X L-1 L0 $SIDES CLAUSE TEM LF LY FIRSTP) +\CANONICALIZE.PUP.HOSTNAME (OFFICIALNAME) CIRCLAR-COPYER (SCANBUF VAL REST BODY NEW ID CIRCLAR-FLAG +AUX) \ItemNumber (SOMEITEM ITEMNUM) FIXSPELL (REL TLST Z X FIXSPELLTEM APPROVALFLG L NDBLS) +TEDIT.GET.LOOKS (LOOKS NLOOKS) SETUPTIMER (INTERVAL OldTimer? timerUnits intervalUnits) \LOAD-STREAM ( +DFNFLG ADDSPELLFLG BUILDMAPFLG FILEPKGFLG LISPXHIST LOADA TEM ROOTNAME MAYBEWANTFILEMAP) +\TEDIT.REFRESH.SHOWSEL (NOSEL OLDSEL) \TOTALPROPOSEDSIZE (THISMINWIDTH THISMINHEIGHT THISWID +THISHEIGHT) CLISPATOM0 (UNDOSIDE UNDOSIDE0 LISPXHIST UNDOTEM TEM CHARLST CURRTAIL) HEXSTRING (LEFT I +CHAR N) FW-LOOP (OPENFILES) \CANONICAL.HOSTNAME (NAME) SETXYREL.IP (DX DY) ONEDINSPECT.VALUEWIDTH ( +PROP) COMPILER::FRAME-ANNOTATE-TAGBODY (COMPILER::REQUESTS COMPILER::OUTER-REFERENCES) TTNTH (BUF N) +\CIRCSHADE.BLT (OPERATION Y X U V E X0 Y0) EDITTOGGLEBORDER (NODE) TTNLEFT (START X N B) +TEDIT.ADD.MENUITEM (OLDITM) \INFINITY (BOX) AT.END.OF.TEXT (X) FIXFIELDORDER (UNUSEDFIELDS TEM +FIELD.USAGE X REVFIELDS TL LASTFIELDTAIL USE1 USE2 PLACE2 PLACE1) APPENDLARGEVECTOR.IP (INTSIZE I) +SETCORNER (NEWCURSOR OLDCURSOR) POSSIBILITYFN (COMVAR##) LAYOUTLATTICE (R FONT FAMILYD MOTHERD +PERSONALD) DUMPDATABASE (DUMPTABLE DUMPEDFLG) LOAD (TEM LDFLG PACKAGE STREAM) NARGS (DEF) +\TEDIT.FORMAT.FOOTNOTE (LINES LINE THISLINE FMTSPEC CHNO PREVLINE) HASDEF (TYPE TY SOURCE) +\TEDIT.GET.CHARLOOKS.LIST2 (I) PRINT-ARGLIST (LEFT ARGS ACTUALS MODE) \TFBRAVO.GETPARAMS (TEST REST +ALIST L) FIXEDITDATE (E) SCALEPAGEUNITS (TVAL) \ARGPTR (DEF P BFLINK NARGS FRAME) IMAGESTREAMP (STYPE +X) OPT.FINDEND (C) \UPDATE.EXTENT.IMAGE (SCROLLWIDTH SCROLLHEIGHT WINHEIGHT GRAYHEIGHT GRAYBOTTOM +WINWIDTH GRAYWIDTH GRAYLEFT) DELDEF (TYPE TEM) EQUALN (DEPTH) IMAGESTREAMTYPEP (X) \GETSPP (EPKT) +\CH.GUESS.NEW.PROPERTIES (PATTERN MINPROPERTYID MAXPROPERTYID OBJECTS ID) \MATMULT441 (PRODUCT I J K) +STKNTH (CFLAG I FRAME) OPT.DELTAGREF (X) \TEXTBIN (PO SUBSTREAM OPC PC NPC PS PF) COMPILER::CONSTRUCT-LIST + (COMPILER::NODE) TEDITCHAT.MENUFN (COMMAND) \MATMULT144 (PRODUCT I J K) EDITV (EDITVX VAR) +\LFCreateFile (stream DIRINDEX) \FM.WINDOWENTRYFN (ITEM REGION) \MATMULT331 (PRODUCT I J K) SETSTKNAME + (FNH) U/L-CASE (OLDLENGTH CHAR CAPFLG BUF NEEDADJUST) \MATMULT133 (PRODUCT I J K) \COPYFNHEADER ( +HEADWORDS NEWFNHD) \MATMULT444 (PRODUCT I J K BSTART ASTART) LISPXEVAL (LISPXID LISPXHIST) +PFI.PREVIEW.DECLARE (NEXT STARTOFLINE) TEDIT.HARDCOPY-COLUMN-END (ORIGINAL-LINES LINE FINAL-CHNO +LASTLINE LINES REMOVED-LINES YBOT) PRINTPACKETDATA (OFFSET MACRO DATATYPE TMP TILOFFSET REPEATMACRO +SEPR FINALPRINT CHAR) \MATMULT333 (PRODUCT I J K BSTART ASTART) IMAGEOBJPROP (IMAGEFNS) STKSCAN (FX) +OPENIMAGESTREAM (FILE LPTP POS LPTNAME IMAGETYPE P) /TCONC (XX) \AddShade (SHADEDITEM SHADEDITEMS) +\FRAMESCAN (NAME TMP OFFSET) FNTYP1 (X) COMPILER::META-CALL-LAMBDA-SIMPLIFY-PARAMETERS (COMPILER::TAIL +) \TEDIT.NEUTRALIZE.PARALOOKS.MENU (SCRATCHSEL) \LFGetStreamForFile (DIRPTR volNum) LCSKIP (LA LEN) +PRINTERPROP (X) CL:GET-MACRO-CHARACTER (NON-TERMINATING-P TABENTRY) \LFMakeVolumeDirectory (file) +RUNION (X L2) MOVEBOX (SOFTCURSORUP DISPINTERRUPT) SHRIEKER (CARTEST LOOKAT RESULTP) OPT.COMMONBACK ( +BDEF FLG LEVEL FRAME BREF G) APPENDINT.IP (I) DO-DISPATCH-MACRO (NEXTCHAR INDEX) PRINTERTYPE (HOST X +TYPE FN PRINTER) FILEGETDEF.LISPXMACROS (X) MSSEEKPHRASE (THIS OLDS C TEM X) PUTPUPSTRING (PUP) +UNIX-STREAM-IN (CH) GETDEFFROMFILE (FILE SOURCE DEF TEM2) PRINTANDBOX (PREVRM PREVLM YSTART YEND HGHT) + FLOATP.TO.BCPL (FLONUM EXP FRAC RESULT) OPT.JUMPREV (R PR BD ABD BR ABR OABR OAR TMP ANY END FLG CD +LB DR) DRAWGRAYBOX (SOFTCURSORUP DISPINTERRUPT) \MAXWIDTHOFGROUP (WHEREONEDGE ATW) HPRINTEND (X I) +PRINTFILETYPE.FROM.EXTENSION (TYPE) FILEGETDEF.ALISTS (X) \DO-DEFINE-FILE-INFO (VALUE PACKAGE +READTABLE BASE FORMAT) EXEC-READ-LINE (LINE SPACEFLG CHRCODE) GETDEFSAVED (X) EDITP (EDITPX ATM) +BCPL.TO.FLOATP (BCPLNUM SIGN EXP FRAC) XCL::GET-UNDOABLE-SETF-METHOD (XCL::TEMP) ADDFILE (VAL FCLST +LOADTYPE X FLST TYPE CHANGED) RESET/NODE/BORDER (TRANS GRAPH) COMPILER::META-CALL-LAMBDA (COMPILER::PARAM + COMPILER::ARG COMPILER::NEW-PARAMS COMPILER::NEW-ARGS COMPILER::CURRENT-PROG1-TAIL COMPILER::*MADE-CHANGES* + COMPILER::CURRENT-PROGN COMPILER::NODE) CHAT.BUTTONFN (CHAT.STATE CHAT.PROC) \TEDIT.SET.WINDOW.EXTENT + (WINDOW) SEDIT::OPEN-LITATOM (SEDIT::SUB-STRING) \LFUpdateLeaderPage (createDate) UPDATEFILEMAP (TEM +FILEMAPADR FILEMAPLOCADR FILEMAPLOCLEN FULLNAME STREAM) \TEDIT.FIND.LAST.LINE (LINES OLINE LINE) +\TEDIT.LOOKS.UPDATE (PARALOOKS TLOOKS PREVPC ORIGPC NEWPC) SETXREL.IP (DX) MSVERBTYPE (OBJECT SUBJECT +TYPE) \SPREADFRAMEP (BFLINK NARGS) READPLIST (TAB2 CH) DINFO.UPDATE.MENU.DISPLAY (ID WINDOW) TRYNEXT1 +(PL1## PLST##) COPIEDFROMSPEC (FROMSPEC I CAN) CENTERPRINTINAREA (STREAM XPOS) SMASHFILECOMS (X) +CL:SET-DISPATCH-MACRO-CHARACTER (SUB-CHAR DISP-CONS) SHOWSHADEDITEMS (ANYSUBITEMS ITEM ITEMDESCR SHADE + ITEMREGION) IL-MACRO-WRAPPED-P (FORM) MENUITEMREGION (ITEMNUMBER ITEMTAIL) SETSTKARG (NT INDEX NTSIZE + NARGS BLINK) SKIP/ZAP (CHAR CMD N) \FILLPOLYGON.IP (NUMPATHS) \TEXTBOUT (TEXTLEN WINDOW PS PC OFFST) +CREATEWFROMIMAGE (WINDOW) STKARGNAME (NT NTENTRY NARGS NM NT1 NT2) BUILDTESTRELQ (FORM) MAPRINT (PFN +SEP LST) ENUM-STRING (POINTPLACE EXPOFFSET INTEXP MANTSTR DIGITS) SI::INSERT-ADVICE-FORM (SI::ENTRY-LIST +) SETSTKARGNAME (NT NTENTRY NARGS NM NT1 NT2) MB.DEFAULTBUTTON.ACTIONFN (OFILE CH PRINTHOST %#COPIES +PRINTOPTIONS %#SIDES MSG) PROMPTCHAR (PROMPTSTR N MOD) CH.DELETE.MEMBER (OLDMEMBER GROUPNAME) +%%PRINT-ARRAY-CONTENTS (ELIDED FINAL.INDEX) DINFO.UPDATE.TEXT.DISPLAY (FULLFILENAME TEXTSTREAM) +HASH-LEFTPAREN (CONTENTS I) \POSTSCRIPT.ACCENTPAIR (CH ACCENT) LISPXPUT (LST Y) \CONVERTNUMBER (SIGN +COMMONLISPY END DIDQ POS X) PRETTYDEF (ROOTNAME SOURCEFILE DESTINATIONENV SOURCEFILENV OLDFILEMAP +SOURCEFC REPRINTFNS PRTTYFILE FCLOCATION) STKNARGS (NA INTERPNT) OPT.LABELNTHPR (CD CNT G) NLIST (V I) + FILEPKGCHANGES (X TEM Y Z) HPRINT1 (TYPE LASTSEEN HERE CN TYP INDEX I SIZ VALS PROP) PRINTCOPYRIGHT1 +(PRIVATE DATES Y START END NEXT) FORMAT-PRINT-RADIX (PARMS) TTECHO.TO.FILE (X FIRSTIME END CH LINE) +LISPXREADBUF (RDBUF TEM XX) \CML-LOAD (EXPR) %%DEFPRINT-VECTOR (END.INDEX) \POSTSCRIPT.ACCENTFN (CH) +ITEM.WINDOW.SET.STACK.ARG (NEWVALUE) FB.HARDCOPY.MAXWIDTH (DATEP ITEM INFO WIDTH MAXWIDTH) GREET (FILE +) FNUM-STRING (PLACESOUT) \TEDIT.FIND.PROTECTED.END (PC START-OF-PIECE) MB.SIZEFN (FONT BOX) +\GOOD.DASHLST (DASHLST NDASH NOWOFF) SEDIT::INSERT-STRING (SEDIT::START SEDIT::END STRING TYPE) +\APPEND2 (TAIL L1) FB.NAMES.INCREASING.VERSION (X Y) CHECKDEFS (D R FOUND DEFS) FIXR (X HI LO SIGN EXP + ROUNDINGBITS) %%DEFPRINT-BITVECTOR (END.INDEX) SAVECOPYRIGHT (X) PRINTCOPYRIGHT (OWNER) +\LEAF.CLOSEFILE (CONNECTION STREAM LEAFHANDLE OPUP DATA) DECLAREDATATYPE (FIELDSPECS DLIST LENGTH P) +READFROMBUF (BUF FIXUP CH START) \TEDIT.GET.PARALOOKS.LIST2 (I) FLTSTR (outstring F FHI FLO SIGNF FEXP + FLOG10 EXP MANT TLO THI TEXP ROUNDINGBITS LOCALK MANTSTRING ENDPOINTER) EDITBMTEXTURE (COLOR SHADE) +GREET0 (DIGIT TEM HOUR) \TRACKWITHBOX (MLMASK DESTINATION ORGLEFTMIDDLE NOERROR OLDCURSOR) DWMFY2 ( +CARPARENT CLISPCHANGE 89CHANGE NEXTAIL X FNFLG TEM NOTOKFLG) \VAMFindFreePages (volPage# filePage#) +TIMESPOW10 (CURPOWER TABENTRY EXP HI LO POWER) TRANSLATE.DATATYPE (DLIST N S FD X Y BIT OFFSET LEN +REUSE) GETPUPSTREAM (PUP OFFSET) GETDEFERR (TEM O) INTTOEXT (HI LO N EXP) FILEDATE (STREAM OLDPTR +VALUE) \TEDIT.TRY.ABBREV (EXPANSION CH) EXTTOINT (EXP LO HI ROUNDFLAG) COURIER.BROADCAST.CALL (PROCDEF + SKT EPKT RESULT NET NEARBYNETS TAIL PAIR) REFLECT/GRAPH/DIAGONALLY (N) FLTINTLOG (FEXP FHI FLO +TABENTRY I) \FM.COLLECTNWAYS (NWAYPROPS ITEMPTR GROUPID ITEMID) \RESHAPEATTACHEDWINDOWSAROUNDMAINW (TL + TC TR RT RC RB BR BC BL LB LC LT ATWINFO EXTENT ATW ATWHGHT ATWDTH ATWHERE TEMP) /PUT (TEM X X0) +FW-CLOSEFN (OFD) \TEDIT.PUT.SINGLE.PARALOOKS (DEFAULTTAB TABSPECS LEN) RPLCHARCODE (N) \REUSETO (N) +MAXSTRINGWIDTH (I M) PUTPUPBYTE (PUP) DO-EVENT (INPUT TODO STR COM VALUES) %%REDUCE-INTEGER (LOW HIGH) + FB.DECREASING.VERSION (Y X) \MAXHEIGHTOFGROUP (WHEREONEDGE ATW) \UPDATEXYANDBOX (TEMPX TEMPY) +READLINE (SPACEFLG CHRCODE TEM LINE START) FW-INTERACT (MENUCMD) FLONUM-TO-STRING (MANTSTR INTEXP +DIGITS DECPNT) OPT.LBDEL (B) COPY.TEXT.TO.IMAGE (C FC DEFAULTTAB) REFLECT/GRAPH/VERTICALLY (N) +BOOTSTRAP-NAMEFIELD (POS START END) CL:CHARACTER (OBJECT) SEE* (LINE) DIGITSBDP (F FHI FLO SIGNF FEXP) + EDITLOADFNS? (LST FILE DATES FD) DECLARE%:1 (EVALFLG X) DO.EDIT.PP (LEFTOVER EXPRS) +%%NUMERIC-STRING-P (CHAR) TEMPLATE (OLD) TTYINSTRING (TAIL FATP NC X RESULT I) MMLTLIST (NLIST X Y U V +) READHOTSPOT (NOWCURSOR XPIXEL YPIXEL CURSORBM DOWNYET?) MSMSGPRINT (MSG) GETFILEDEF (FILE) +EDITMOVENODE (NODELST NEAR OLDPOS NOW) \FM.WINDOWEXTENT (ITEM REGION) \FM.MAKELINKS (LINKTAIL ITEMPTR +GROUPID ITEMID) \NSRANDOM.WRITE.SEGMENT (BUF BYTESLEFT CNT OFFSET) TTDELETECHAR (DODELETE) \EXTFTIMES +(HX HY LX LY HHZ HZ LZ) PFI.HANDLE./DECLAREDATATYPE (EXPR) APPENDIDENTIFIER.IP (C) DWMFY1 (TEM CARFORM + CARISOKFLG CLISPCHANGE 89CHANGE X) MSVBTABLES (MOD VERB) COPYINSERT (INSERTFN IMOBJ) PRETTYPRINT3 ( +TEM DEF) REMPROPLIST (LST1 LST TEM) NODELST/AS/MENU (N T1 T2) GETDEFCURRENT (DEF X) \STRINGIN (STR I) +PRINTHISTORY2 (TEM) \TEDIT.HCPYLOOKS.UPDATE (PARALOOKS TLOOKS PREVPC PC NEWPC OFFSET NEWKERN) +COMPARENCHARS (COMPARECNT) SETFONT.IP (X) TTNEXTLINE (L LINE N) MSBLOCK (TYPES FNS FILES) GETPUPSTRING + (PUP OFFSET) \FM.UPDATEGROUPEXTENT (GROUPLIST GROUP REGION DAUGHTERS BOXOFFSET) COMPILEDFETCHFIELD ( +TYPENAME DATUM) CLOSE-AND-MAYBE-DELETE (STREAM) PARSE-NAMESTRING1 (FILE TEM POS HOSTP END TYPE CODE +TEM2 SUBDIREND) SEDIT::SELECT-NEXT-GAP (SEDIT::NODE) \LISP.TO.NSFILING.ATTRIBUTE (ATTRIBUTE VALUE X +COERCEDVALUE ENTRY ACCESS TL) ALLPATHS (DEFS DEC TRAN ANY TL) UNSAVED1 (DEF PROP FN) DRAWDASHEDLINE ( +LINELENGTH DASHLST NDASH DASHTAIL SINE COSINE DASHCNT LENGTHDRAWN NEWX NEWY DASHON X1 Y1) GENERATEFN ( +COMVAR##) BUILDGETRELQ (F1 FORM) SET/LABEL/SIZE (WIDTH HEIGHT NBW FONT) PRETTYPRINT (LST CLK FN DEF +TEM) TERM.PRINTCHAR (IMAGEWIDTH CHARWIDTH) DRAWLINE (STREAM) REFLECT/GRAPH/HORIZONTALLY (N) GETDEFCOM0 + (TEM) \SEARCHPRESSFONTS (F WSTRM FONTSFOUND) COMPILEDREPLACEFIELD (DATUM) DINFO.UPDATE.HISTORY (ITEM +I) MOVETO (STREAM) CH.ADD.MEMBER (NEWMEMBER GROUPNAME) \EXTNORMALIZE (EXP HI LO ROUNDINGBITS) MSFINDP +(STRUC) SEND.FILE.TO.PRINTER (FULLFILE PFILE FILETYPE HOST X PRINTERTYPE) FB.SORT.VERSIONS (THISNAME +NEXTTAIL NEWTAIL TAIL ITEMS PREVTAIL) SQRT (V) COPYALLBYTES (INF OUTF) \EXTFQUOTIENT (LX HX LY HY HZ +LZ) CLISPEXPANSION (COP) MSJOINSET (C TYPE) CL::SXHASH-PATHNAME (CL::HASH) CL::ENSURE-CONSISTENT-PS ( +CL::EXPORTNAMES) INIT-CML-READTABLES (I) SEDIT::HASFAT (SEDIT::C) GRAYBOXAREA (OUTLINESIZE) +DSPBACKCOLOR (STREAM) \CONVERT.FLOATING.NUMBER (FORMAT F) COMP.LOOKUPCONST (X) OPENIPSTREAM (OPTION +POS) \TEDIT.PARSE.CHARLOOKS.LIST (FONT FAMILY FACE SIZE PROT SELHERE ULINE OLINE INVERSEVIDEO STRIKE +INVISIBLE SUPER SUB WEIGHT SLOPE EXPANSION OFFSETINC SIZEINC STYLE STYLESET USERINFO UISET NLOOKS +NEWLOOKS NEWPCLOOKS NEWFONT) \VFMMarkBufferDirty (BUF) FW-OPENP (!SCRATCHTAIL FD OPENPFN S) WBOX (THCK +) FW-UPDATE-OFD-WINDOW (NEWCURPOS NEWEOFPOS NEWPCTPOS X Y) MB.SETIMAGE (BOX BITMAP DS) PUTPUPWORD (PUP +) XCL::SETF-GET-PROCESS-PROFILE (XCL::PROFILE) FB.DELVER.FILES (FILE THISNAME %#SEENSOFAR %#DELETED +LASTNAME) TEDIT.HARDCOPY.PAGEHEADING (NPC PIECES PC LEN) COMPAREPRINTN (SPACE) DSPBOTTOMMARGIN (STREAM +) SHORTLST (N) CL:MAKE-ARRAY (DIMENSIONS FILL-POINTER ARRAY) SKOR (XC TC XWORD TWORD NCX NCT X-1 N +NTRANS T2 T1 X2 X1) \FM.TRANSPOSEVERT (ITEM REGION) PARSE.NSNAME (NAME I FIRSTPART SECONDPART J +THIRDPART) SHEDSCAN (TAIL EDGE X0 Y0 DX DY BRES YDIR) EDITNUMBERP (CHAR) MSFAIL (POS) DSPCOLOR (STREAM +) \FM.MAKEBITMAP (CLIPPINGREGION) \FM.TRANSPOSEHORZ (ITEM REGION) MERGLIST (CURR1 CURR2 Y1 Y2 IMAP +PATH1 PATH2) GLOBAL-MACRO-FUNCTION (PROP MD) TB.FINISH.CLOSE (WINDOW) READ-AFM-FILE (TOKEN WEIGHT +SLOPE FBBOX HEIGHT CMCOUNT CCODE FCHAR LCHAR CC) \CHECKSUM (CHECKSUM ADDR CNT) \PFReplaceString ( +newString CHAR POS) PRETTYCOM (PRTTYTEM PRTTYCOM LST X) SPY.ADD.ENTRY (NAME) +\UNVISIBLE.FLUSH.OPEN.STREAMS (STREAM) \MAIKO.PUNTBLTCHAR (CHAR8CODE CURX RIGHT LOCAL1 LEFT +SOFTCURSORUP DISPINTERRUPT) GET-ENVIRONMENT-AND-FILEMAP (MAPENTRY MAP STREAM OLDPOS) DSPCLIPPINGREGION + (STREAM) SEE (LINE) \GETPRESSFONTNAMES (TYPE NEXT XFAMILY XFACE SPEC XFIELD XSIZE XROTATION +FONTSFOUND) MINIMUMWINDOWSIZE (EXT) EQLENGTH (X) \SHADEBITS (BITSPERPIXEL OTHERCOLOR SHADE OTHERSHADE +XPIXEL X YPIXEL Y USECOLOR USESHADE COORDWIN) \FLOATINGSCALE (INTMANT SIGN) PRINTFNS (FNADRLST) +\BULK.DATA.CLOSE (ABORTFLG) \UNVISIBLE.PAGED.REVALIDATEFILELST (STREAM REASON PAGES) +GETEXPRESSIONFROMEVENTSPEC (LL NEXT INPUTLINES) \INIT.POWERS.OF.TEN (POWTEN I POW10 ENOW EEXP EHI ELO) + SUBPAIR (OLD NEW) GET-FILEMAP-FROM-FILECREATED (MAPADDR) \SETGROUPMIN (ATW THISMAX TMAX CMAX BMAX +LMAX RMAX) DSPRESET (STREAM) \TEDIT.PARSE.PARALOOKS.LIST (1STLEFT LEFT RIGHT LEADB LEADA LLEAD TYPESET + TYPE SUBTYPESET SUBTYPE NEWBEFORESET NEWBEFORE NEWAFTERSET NEWAFTER HEADINGKEEP KEEP KEEPSET +BASETOBASE BASESET REVISED REVISEDSET QUADD COLUMN COLUMNSET USERINFO USERINFOSET SPECIALX SPECXSET +SPECIALY SPECYSET STYLE STYLESET CHARSTYLES CHARSTYLESSET TABSPECC NEWLOOKS) CL:COMPILE-FILE ( +COMPILER::*INPUT-FILENAME* COMPILER::*INPUT-STREAM* COMPILER::FASL-PATHNAME COMPILER::*FASL-HANDLE* +*ERROR-OUTPUT* COMPILER::FILE-MANAGER-FORMAT COMPILER::PROCESS-ENTIRE-FILE) MB.DISPLAY (BITMAP Y +OLOOKS) PRETTYDEF1 (PRTTYTEM PRTTYCOM PRTTYNEW) GETPUPBYTE (PUP) \FILING.ATTRIBUTE.TYPE (X) +TTDELETEWORD (PREVL START) \BN.COMPAREN (SU SV S ST V U) TEDIT.SKIP.SPECIALCOND (NPC PIECES PC LEN) +LOOKUP-ENVIRONMENT-AND-FILEMAP (V MAPENTRY HIGHEST-VERSION) PSCFONT.WRITEFONT (C) LISPXREPRINT (FILE) +\TEDIT.GET.SINGLE.PARALOOKS (TABSPEC TABFLG QUAD DEFAULTTAB TABCOUNT TABS TABTYPE TAB#) RESTOREBUF ( +TAIL) DSPFONT (STREAM) SEDIT::REVIVE-NODE (SEDIT::DEPTH) FILECHANGES (STREAM OLDPTR CHANGES FNS) +SEDIT::MAP-COMMENT-INDEX (SEDIT::SUBNODES SEDIT::SUBNODE CL:LENGTH SEDIT::INDEX) DOERROR (MSG AT) +\UFSDirectoryNameP (NAMEAREA LEN) \GETREGIONTRACKWITHBOX (WIDTH HEIGHT DESTINATION MAXX MAXY NOERROR +THRUONCE OLDCURSOR OLDMOUSEX OLDMOUSEY XTEMP YTEMP) TRANSLATE.LOCF (FORM OFFSET SPEC NEWFORM) +\SENDLEAF (RESULT) CLEARPUP (PUP) \ARBIN (USERSTR) CL:MACROEXPAND-1 (CL::FORM) CL:MACROEXPAND (CL::FORM + CL::FLAG) DSPLEFTMARGIN (STREAM) \BN.LOGAND (B B1) TTADJUSTWORD (X) UNIQLIST (Y NEWLIST V) +\D01.FAULTINIT (N I) CH.ISMEMBER (GROUPNAME) \BN.LOGANDC2 (B B1) READ-UNICODE-MAPPING (FILE) +\UFSSetFileInfo (VALUE) \UFSOpenFile (CASE.CORRECT.NAME STRM OTHER CASE.CORRECT.FULLFILENAME CDATE +BYTESIZE FILEID EOF-FN CINFO) \TEDIT.UPDATE.SHOWSEL (CARET OSEL NSEL EXCHFLG NEWL1 OLDL1 LINES DS +OLDLN NEWLN TSEL L1 LN) \10MB.TURNONETHER (CSB) PRETTYDEFCOMS (%#RPARS) \DL.FAULTINIT (TMP) +\DSPFONT.HDCPYDISPLAY (W OLDWIDTH SCALE I) DSPLINEFEED (STREAM) PRINTDATE (CHANGES FILEDATES PREVPAIR) + \SEQUIN.HANDLE.ACK (PUP NEWACKSEQ) \FM.GETBITMAPS (BITMAP HLBITMAP HIGHLIGHT) TEDIT.BUILD.PCTB ( +DEFAULTPARALOOKS DEFAULTLOOKS TEXT CACHE? CACHE START END PCCOUNT PCTB USERFILEFORMAT FILETYPE +USERTEMP PC PIECEINFOCH# PCLEN TYPECODE PCN LOOKSHASH LOOKS I PARAHASH OLDPARALOOKS CURFILECH# CURCH# +OLDPC) TRYNEXT (PL1##) \UFSWritePages (REALPAGE REALOFFSET buffer size PageNumber) PFI.HANDLE.PUTPROPS + (TYPE PAIR) DO.DELETE.LINES (DELHEIGHT) CH.ADD.GROUP.PROPERTY (MEMBERS OBJECTNAME) DSPOPERATION ( +STREAM) \TEDIT.PAPERWIDTH (CANONICAL-PAPERSIZE) \BN.PLUS2 (L U V) FILEPKG.MERGECHANGES (E1 E2 TEMP X +VAL) SNAPW (SCREENREGION SCREEN REGION NEWWINDOW) \UFSTruncateFile (PAGE# OFFSET) \BN.TIMES2 (TAIL L W + I W1 U1 W2 C AP BP V) \10MB.LOADINPUTQ (PACKETS CNT) \SPP.CHECK.INPUT.QUEUE (CURRENT N1 NEXT N2) +DSPRIGHTMARGIN (STREAM) \BN.DIVIDE (BIP M N K SA U i C ST D W A B L1 I L2 B2 B1 A3 A2 A1 QHAT IP R1 R2 + V C1 E X Q) OPT.JUMPTHRU (APD PD ALST INFO REF BR Y PDN N B ANY DR) \VFMSaveBuffer (whichBuffers BUF) + D-ASSEM::TYPE-NAME-FROM-SIZE (D-ASSEM::HUNK-SIZE) \FILEMAP-HASHOVERFLOW (TEM ENTRIES GROUP ONFILELST +NFLUSH TAIL PAIR DATES NUMENTRIES I) SEDIT:REPLACE-SELECTION (SEDIT::NEW-NODES) MB.CREATE.NWAYBUTTON ( +FONT HEIGHT DESCENT WIDTHS IMAGES WIDTH BUTTON SPACING SIDEEFFECTFNS DS IMAGE TWIDTHS I) DSPTOPMARGIN +(STREAM) FB.DELVERCOMMAND (NVERSIONS FILES TBROWSER NDELETED) SIZE/GRAPH/WINDOW (WINDOW TITLE) +\VFMSmartBLT (i) \LFRenameFile (NEW-NAME OLD-NAME) \FM.GETREGIONS (WIDTH HEIGHT) \UFSCloseFile (CDATE) + \BN.2TH (L A B) \INIT.ETHER.BUFFER.POOL (ZONELENGTH ZONE) TRACKW (WINDOW) DSPSCALE (STREAM) +\UFSGetFileInfo (BUFFER NAMESIZE) \BN.QRS (B C1 C2 CP D) GETSYNTAX (CH TEM CHARTBL RESULT LST) +EDITSHADE (SHADEBM QUITREGION SHOWREGION SHADEREGION SEDW BMWIDTH BMHEIGHT BOXSIZE GRIDSPEC X Y +GRIDINTERIOR XPIXEL YPIXEL) IN/ITEM? (ITEM) ENTRY# (X) SI::FINISH-ADVISING (SI::MIDDLE-MAN) PRINTDEF1 +(STARTPOS ENDPOS) MAKEACCESS1 (DAT) \TEDIT.CARETLOOKS.VERIFY (LOOKS) \UFSeol (TYPE) LISPSOURCEFILEP ( +FILE) \INSPECTW.COMMAND.HANDLER (XCL:*PROFILE* COMMANDFN INFO) DSPSPACEFACTOR (STREAM) +\SEQUIN.FLUSH.RETRANSMIT (REPUP) \DOFORMATTING.HARDCOPY (LINELEAD EXTRASP OPREVSP PREVSP %#BLANKS SP +EXISTINGSPACE) EDITSHADEREPAINTFN (GRIDSPEC SHADE BMWIDTH BMHEIGHT) \D01.ASSIGNBUFFERS (EMLEN EMBUF +EXTRALEN NPAGES) MSSETSETTYPE (REP SET) \UFSError (PATHNAME) PRETTYVAR (VAL VAR TEM) \LFTruncateFile ( +PAGE# OFFSET) \CHAIN.UP.RPT (FIRSTUSED RPTBASE LASTEMPTY LASTUSED I) SI::DESCRIBE-INTERNAL ( +SI::DESCRIBERS SI::INSPECT-MACRO SI::SUPER-DESCRIBERS DECL) DSPXPOSITION (STREAM) FB.CLOSE&EXPUNGE (W +MENU ITEM) \GETREADSYNTAX (KEY) \UFS.ADD.HOST.FIELD (NAME) SETCOLORLV.IP (SCRATCHBM OPERATION SCALE X +Y) PRETTYVAR1 (TEM OP E) D-ASSEM::COPY-LAP-CODE (D-ASSEM::INST) DSPYPOSITION (STREAM) \UFSReadPages ( +lastStreamPage ERRNO buffer offset streamPageNumber) MAKEDEFLIST (Z TEM) OPT.XVARSCAN1 (FR) +\DEVICEFILE.EOSERROR (BUF VMEMBUF DATASIZE) \FM.CREATEITEM (LEFT BOTTOM) CL::SIMPLE-STRING= (END1 END2 +) \UFS.FULLNAME (NAME) \UFS.OPENP (S) COMPILER::FRAME-ANNOTATE-LAMBDA (COMPILER::OUTER-REQUESTS +COMPILER::OUTER-REFERENCES) DSPROTATE (STREAM) SEDIT::ATOM-CHAR-ESCAPED (SEDIT::READ-TABLE) EDITGRAPH2 + (VAL) \LFGetFileInfo (stream) SETCOLOR16.IP (SCALE ANGLE NBYTES SCRATCHBM BMBASE) \TEDIT.NSCHAR.RUN ( +PC OFFSET PLEN CH PS PF PFPOS NEXTCH NEWPLEN CHARSET TFILE I) D-ASSEM::FETCH-HUNK (D-ASSEM::ENTRY) +XCL::%%DEFINE-TYPE-SAVE-DEFN (TYPE) COMP.VAR (VAR) \MAKERECODEMAP (M) MKACCESSFN (FN) +\M44ACTONVMEMFILE (ISFMAP WHICHPART CHUNK DISKRELATIVEPAGE BUF I RESULT NPAGES PAGE) DSPPUSHSTATE ( +STREAM) POSSIBILITIES (COMVAR##) \SHOWSEL.HILIGHT (RIGHT LL LEFT) NESTED.SUBMENU (SUBMENU) +COURIER.READ.BULKDATA (LASTSEGMENT?) \ITEM.WINDOW.SELECTION.HANDLER (BUTTON REG NOW OLDPOS PREVIOUS) +\UFS.REMOVE.HOST.FIELD (VERSION DEVICE PACKED-NAME) MENUTITLEFONT (SCREEN TITLEFONT) PRETTYCOM1 (PRTYX +) COMPAREPRINT1 (TAILX TAILY X Y K N SPACE DOTFLAG) \RESHOWBORDER1 (DELTA NUWIDTH NUHEIGHT NUSAV +SOFTCURSORUP DISPINTERRUPT) RENUMBER.LINES (ROW LINE) DSPPOPSTATE (STREAM) ACCEPT-UNIX-SOCKET-STREAM ( +NEWCHAN) \TELERAIDSERVER (RECEIVER VP PTR FILEPAGE BODY) XYSECTLSEG (XT YT UT VT XMIN XMAX UMIN UMAX +PT Y) \REMOVE-DECLS (CL::FORM CL::SPECIALS) COMPILER::META-EVAL-PROGN (COMPILER::TAIL COMPILER::NODE) +\TEDIT.FORMATTABS (TABWIDTH CURTX DEFAULTTAB NEXTTAB TAB NEXTTABTYPE NEXTTABX) DSPDEFAULTSTATE (STREAM +) SEDIT::COLLECT-UNDO-BLOCK (SEDIT::BLOCK-END) \INITBFS (BASE NWORDS DD CB CBSTART) SEDIT::RECOMPUTE-WIDTH + (SEDIT::WIDTH SEDIT::LINE) \PFFetchString (POS) OPT.XVARSCAN (A CD) READVARS (VAR) PRINTARRAY-TO-LIST + (A N TYPE ORIG DOUBLEFLG M RESULT FLG) \NSFILING.ADDQUOTES (NAME CH QUOTED LASTCH NAMECHARS) +SEDIT::COPY-STRUCTURE-STRING (CL:STRUCTURE) READARRAY-FROM-LIST (M DELTA ELEMENTS) DSPSCALE2 (STREAM) +FLENGTH (Y X N) LVLPRIN0 (X CDRLVL) PPSPP (FILE N I STR) PRINTPARA1 (L CC POS OPENCOUNT LEN LIST) +READVISE (FNS) SETSYNTAX (CHAR TBL CLASS) \TRANSLATE-CL%:LAMBDA (BINDING VARTYP VRBLS CNT MIN MAX +SIMPLEP RESTFORM AUXLIST SVAR KEYVARS OPTVARS BODY DECLS) \BN.IGNN (Y U) \TEDIT.GET.INSERT.CHARLOOKS ( +PIECE LOOKS) D-ASSEM::DCODE-FROM-DLAMBDA (D-ASSEM::*BYTES*) SCALEPAGEYUNITS (OTHEREDGE TVAL) +TB.MAP.SELECTED.ITEMS (ITEM# ITEM) \SETREADSYNTAX (CLASS TEM) FINDRECDECL (DECL TYPENAME) DSPTRANSLATE + (STREAM) SYNTAXP (D) COMPILER::GENCODE-CALL (COMPILER::IL-LAMBDA COMPILER::ARG) PRINT3TO10 (FILE) +DSPNEWPAGE (STREAM) SPY.BUFFER.ENTRY (N) SHOWDEF (FL) SEDIT::RELINEARIZE-WHERE-NECESSARY (SEDIT::NODE +SEDIT::SUPER-NODE SEDIT::CHANGED-NODES SEDIT::NODES-TO-RELINEARIZE) \READBMDIMENSIONS (WIDTH HEIGHT) +KILL.LINES (FIRSTLINE) SCALEPAGEXUNITS (OTHEREDGE TVAL) \MAPCHARTABLE (I) PRINTPARA (LMARG RMARG) +SEDIT::BACKSPACE-QUOTE (SEDIT::NODE) \VFMFind (word) D-ASSEM::DETERMINE-LOCAL-FN-LEXICAL-LEVEL ( +D-ASSEM::LEVEL) \VAMRecomputeFreePageCount (firstFree page) SEditicide (W) DWIMIFY0 (FAULTFN VARS EXPR + TEM FN) CLISPNOEVAL (TEM FN) BIGNUM.DEFPRINT (NEWTH TH L ELS B CHARS RADIX) CONTROL (TTBL) CONSTANTOK + (DEPTH) \UFStoOtherRenameMess (PAIR) MSCHECKVARS1 (CALLERS VAL) \BN.TH2D (RADIX AI DIGIT RESULT M) +\TEDIT.PURGE.SPACES (OPREVSP PREVSP) COPYTERMTABLE (TTBL) \NSRANDOM.HANDLE.ERROR (S) FW-CLOSE-CMD (OFD + OPEN-STREAMS STREAM-TO-CLOSE) D-ASSEM::DIGEST-FUNCTION (D-ASSEM::IVAR-COUNT) \BITMAPFROMTEXTURE (Y X) + \TEDIT.WINDOW.SETUP (W TEDITPROMPTWINDOW) \ATWGROUPSIZE (EXTREGION) DRAWBETWEEN (STREAM) +\VFMDeletePageGroup (word) \BN.ISUM1 (C S RES U V) DELETECONTROL (VAL) \MAIKO.ASSIGNBUFFERS (BASE +NPAGES) TYPESOF (TYPE X FOUND NOTFOUND FILE NEWTYPES) DELFROMCOM (TEM VAR NEW X PROP) /MAPCONC (MAPY +CL:MAPL MAPE MAPX) \BN.ISUM0 (BP CARRY RES U V) NESTED.SUBMENU.POS (ITEMNUMBER ITEMTAIL) +COMPILER::FRAME-ANNOTATE-CATCH (COMPILER::OUTER-REFERENCES) \SHAPEW2 (WINDOW SCREEN NUSAV) +EDITDELETENODE (NODE NODELABEL) D-ASSEM::STORE-DIGEST-INFO (D-ASSEM::PAIR D-ASSEM::SLOT) \BN.NZEROS (I +) EDITGRAPH1 (GRAPH WINDOW) PRINTSPP (SEPR SYSTEMP DS LENGTH) FB.DELETE.FILE (SIZE) \STRINGOUT (LEN CH + I) TEDIT.PARSE.PAGEFRAMES1 (FRAMETYPE PAGELIST PAGEFRAME) PFI.HANDLE.DEFDEFINER (OPTIONS DEFINER +ENTRY) INSPECTABLEFIELDNAMES (FIELDNAME) GETCFILE (X STR CFILE) PRINENDLINE (FILE) PORTSTRING (SOCKET +NETHOST) PRINTFILEPROP (X) \DOCOMPRESSVMEM (VP LASTFP EMPTYFP) D-ASSEM::EASY-ENTRY-P (D-ASSEM::OPT-VAR +) \TEXTSTREAM.FILENAME (OFILE) ITEMW.REPAINTFN (SELITEM SELECTABLEITEMREGION) POLYSHADE.SCAN.IP (XTOX +XTOY POINTS ILIST LLIST WINDNUMBER) DRAWCIRCLE (STREAM) \TEDIT.APPLY.PARALOOKS (CH# SCRATCHSEL +NEWLOOKS NEXTB BUTTON QUAD LINELEAD PARALEAD SPECIALX SPECIALY DEFAULTTAB BUTTONDATA L1 LN R) +OPT.SCANOPT (B A X P CD) PRINTARRAY (A N TYPE ORIG DOUBLEFLG M FLG) \LFReadPages (lastStreamPage +buffer offset streamPageNumber backingFilePageNumber) \FM.PUSHGROUP (GROUPID) DELETELINE (PREVLINE +OLDSTART NEWSTART LINE) BITMAPOBJ.SNAPW (BM) SEDIT::PROPAGATE-WIDTH-CHANGE (SEDIT::SUPER-WIDTH +SEDIT::NEW-WIDTH) FB.UPDATE.COUNTERS (LABELS LAB PAIR HERE) SHAPEW1 (WINDOW SCREEN NUSAV NOWOPEN?) +PRINTERROR (MSG X PRL PR ERR NEWPRS POS POS2 POS3) FITP (FILE) \TEDIT.LINE.LIST (WW LINES) LISPXUSE1 ( +L TEM V VFLG A AFLG E EFLG) SUPERPRINT (FILE) PFI.HANDLE.EVAL-WHEN (EXPR) DECODEBUTTONS (BUTTONSTATE) +D-ASSEM::GENERATE-EASY-ENTRY (D-ASSEM::DVAR D-ASSEM::IVAR-COUNT) COMPILER::META-EVALUATE (COMPILER::TREE +) Inspecticide (w) \DOFORMATTING (LINELEAD EXTRASP OPREVSP PREVSP %#BLANKS EXISTINGSPACE SPACEOFLOW) +D-ASSEM::GENERATE-HARD-ENTRY (D-ASSEM::DVAR D-ASSEM::IVAR-COUNT) GETDELETECONTROL (TBL VAL) BUFTAILP ( +START) DRAWARC (STREAM) CHAT.SET.EMULATOR (INSTREAM TRIPLE) \BN.D2TH (S U V BI M AI B) RESETGRID.NEW ( +XSCALE YSCALE ORIGX ORIGY XOFFSET YOFFSET MAXX MAXY TEMPBM GRIDSPEC) ECHOCHAR (B) \LFSetFileInfo ( +stream) \FM.JUSTIFYGROUPS (GROUPID HJUST VJUST MOTHER MOTHEREXTENT EXTENT) READARRAY (M DELTA) +COMP.TRYUSERFN (M) ACCESSDEF4 (TEM TL SUBDECS) MARGINBAR (L1 LN R FLOATINGRIGHT SCALEDR EXTENDEDRIGHT +UNSETL1 SCALEDL1 UNSETLN SCALEDLN) FINDSYSRECDECL (TYPENAME DECL) \FM.REDISPLAYMENU (GROUP BOX REGION +BACKGROUND) \TEDIT.FIXSELS (SELN) OPT.SETUPOPT (B P C) \UFSGetFileType (TYPE) \HDCPYDSPPRINTCHAR (CC +TABWIDTH) \BN.ICANON (B CARRY U1 U) \POSITION.MENU.IMAGE (POSITION SCREEN MX MY IMAGE) SUBDECLARATIONS + (Y) READ-UNICODE-MAPPING-FILENAMES (F CSI N) GETXIP (EPKT TIMER) \IDLE.IS.PREVIOUS (OLDPWD +PREVIOUS.USERNAME NAME) SEDIT::SHIFT-STRING (STRING SEDIT::FROM SEDIT::TO) \10MB.INPUT.INTERRUPT ( +STATUS IOCB ACCEPTPACKET PACKET) IOCBQLENGTH (FIRSTIOCB) PRETTYPRINT2 (X TEM FROM TO) +\HANDLE.RAW.PACKET (FILTER) DREVERSE (Y L Z) ECHOCONTROL (C) \TEXTMENU.DOC.CREATE (MENUTEXT DESC CH# +OBJ CH#1) \DL.NEWFAULTINIT (VP I FPBASE FIRSTBUFFERRP FIRSTUSEFULRP IOCBRP IFPAGERP NEXTBANK0 +NDISPLAYPAGES FIRSTRP RPSIZE RPTPAGES FIRSTVP RPTBASE) POLYSHADE.BLT (ILIST LLIST WINDNUMBER) +DRAWCURVE (VALIDBRUSH STREAM) SEDIT::BUILD-PRELINEARIZED-NODE (SEDIT::SUBNODES SEDIT::TAIL) ECHOMODE ( +TTBL) \LFWritePages (buffer backingFilePageNumber) \FM.JUSTIFYITEMS (GROUPID ITEM THISGROUP EXTENT +MOTHER EXTENTLEFT EXTENTBOTTOM ITEMREGION ITEMMAXREGION ITEMWIDTH ITEMHEIGHT) SEDIT::CONS-ATOM ( +SEDIT::RESULT) COMP.PROGLST (VAL LST N) FW-CHANGE-POSITION (OFD R BOX NEWPOS) \UFSSetFileType (TYPE +PAIR) GETFILEPKGTYPE (X NAME) TEDIT.GET (OFILE WINDOW PCTB LINES FIRSTLINE LINE TITLE MENUSTREAM +FILENAME) FIXAPPLY1 (N LST XTAIL) ADDTOCOM (TEM PROP) /MAPCON (MAPY CL:MAPL MAPE MAPX) \BN.MADD (TT H +IP IPP C TTT) \TEDIT.HARDCOPY.MODIFYLOOKS (YOFFSET) COMPILER::FRAME-ANNOTATE-BLOCK (COMPILER::REQUESTS + COMPILER::OUTER-REFERENCES) RELMOVEW (WINDOW) MSCHECKBLOCKBASIC (FN Y) ALISTP (ELT) RAISE (TTBL) +DELFROMCOM1 (TEM VAL) DRAWELLIPSE (STREAM) MB.THREESTATEBUTTON.FN (NEWSTATE) \TEDIT.PARABOUNDS (PC +PIECE OPC OLDSTART START-OF-PIECE END BEGIN) \BN.TH2B (AI U B) \IDLE.ISMEMBER (X) \LFOpenFile (DATE +OTHERINFO IDATE FILE STREAM) \FM.LAYOUTGRID (PROPS FONT BOTTOM ROWSPACE COLUMNSPACE ID OLDCORNER +BOXOFFSET GRIDLEN TAIL ITEMNUM LEFT X GROUPREGION NEXTLEFT) PFI.HANDLE.DECLARE (TAIL STARTOFLINE NEXT +EXPR) PROMPTFOREVALED (WIN NEWVALUE) ACCESSDEF (FIELD RECS TEM CHRLST V1 DOTTAIL FIELDLST R) SENDXIP ( +XIP NDB) TEXTMENU.CLOSEFN (TEXTOBJ) \TEDIT.BASICFIND (CH1 ANCHOR CH OANCHOR FOUND PCH#) HASHLINKS (DEC + DEC1) DRAWPOLYGON (STREAM) TIMEALL (X NAME NUMBEROFTIMES) \EVAL-INVOKE-LAMBDA (N) \UFS.NEXTFILEFN ( +FILENAME NAMELEN NAME NEWNAME FILEID SUBGEN) MSCHECKBOUNDFREE (LF1 X) \SETTYPEMASK (PAGE) COMP.EQ (A C +) \ORIGTERMTABLE (C) CHOOZ (XWORD NDBLS TEM ALTFLG TWORD SPLST TWORD1 TWORD2 NCTWORD NCXWORD SC VAL +REL) DRAWPOINT (STREAM) \IDLE.AUTHENTICATE (GV UNIX NS CODE) PFI.HANDLE.RPAQQ (PAIR VARS VALUES FV) +\INTERPRET-ARGUMENTS (\VAR \ARGLIST \VAL \INDEX I \ARGTYPE \BODY) D-ASSEM::COMPUTE-JUMP-SIZE (D-ASSEM::PAIR +) \VAMFreePageGroup (volumePageNumber) SMASH.THE.DAMNED.CONST.IN.ATTACHWINDOW (MAINWINDOW) +\FIXLOCALNET (NET) INTERPRET/MARK/FORMAT (PL) ADDNEWCOM (NEWCOM TAIL OLDCOM) /LISTPUT1 (X) +MSCHECKFNINBLOCK (MACRODEF ISCALLEDP INDIRECTCALLERS OTHERBLOCK) \NSRANDOM.FETCH.CACHE (TAIL PREV PAIR +) D-ASSEM::CONVERT-TO-BINARY (BYTE D-ASSEM::CODE-INDEX) FILLPOLYGON (WINDNUMBER STREAM) FINDFN (POS +NAME TOKEN TEM) FW-CHANGE-JUSTIFICATION (NEWJUST?) \PEEKREFILL (C) CLISP% (CLISPTEM) TEXTSTREAM.TITLE + (TXTFILE) \LOOKUPPORT (IPUP LEN RESULT PTR) WHATIS (TEM UCASE) BRKDWNINIT (I) \CHECKEOLC.CRLF (CH) +OPT.POSTOPT (C CODE VAL ANY PASS) /DSUBST (B EXPR) \POLYSHADE.YSCAN.IP (fulllist currlist currcrit +scany scan fullcrit count ix tx ex clist ty crity) \PARSE.PORTCONSTANT (STR CH VAL NET HOST) +POSTSCRIPT.PUTBITMAPBYTES (POS BYTE B BYTEOFFSET R ROWOFFSET REPC BB BO PO PRVO) PARSERELATION1 (TAIL) + TEDIT.MINIMAL.WINDOW.SETUP (DS OLDWINDOWS PROP LINES LINE WINDOW) /NCONC (TEM N X VAL) DRAWTO (STREAM +) ALLFIELDS (Y) RATOM (RDTBL) PROPLISTP (LSTPTR) FORWARD.DELETE.TO (L) \DL.ASSIGNBUFFERS (BASE NPAGES) + LATTICE/BREAK/CYCLES (DTAIL GN D) FILLCIRCLE (STREAM) \BLTSHADE.GENERICPRINTER (FINALREGION BMWIDTH +BMHEIGHT SCRATCHBM) \SUBREAD (EOF-POSSIBILITY J EXTRASEGMENTS INVALIDFLG ESCAPEFLG PACKAGE NCOLONS SNX + CH DOTLOC ESCFLG LASTC AT-EOF ELT END LST PNSTR) RESETREADTABLE (RDTBL FROM) +\DL.MARK.PAGES.UNAVAILABLE (I RPTBASE) VKBD.FIX.FONT (NEWFONT) CONVERT.FILE.TO.TYPE.FOR.PRINTER ( +FILETYPE CANPRINT CONVERTER) DIRECTORY.PARSE (FG TEMP) \CLEARWORDS (BASE NWORDS) TREEGRAPHNODE ( +THISNODE NEWDEPTH NODEID LONODES HINODES BFNODE BFNODEID RANKNODE RANKNODEID) /LISTPUT (X X0) +UPPERCASEARRAY (I) \DL.UNMAPPAGES (FP FPBASE) \TEDIT.APPLY.STYLES (STYLE NOSTYLE CHARSTYLES CHARSTYLE +IN-PARA) \10MBWATCHER (MESSAGE-LENGTH PACKET CNTR) \TEDIT.FIND.FIRST.LINE (CHNO CH CH# LINE LINES) +DETACHWINDOW (OLDFN) COMP.UBFLOAT2 (A N) HARDCOPYGRAPH (BOTTOM-CENTERING-OFFSET TRAN X-PAGE-NUMBER +Y-PAGE-NUMBER) ESCAPE (RDTBL) D-ASSEM::RESOLVE-JUMPS (D-ASSEM::JUMP-OR-TAG) SEDIT::CLOSE-NODE-LITATOM +(SEDIT::NEW-STRING) READC (FILE) \LFGenerateFiles (PARSED DIRECTORYSTREAM SEARCHSTATE C A0493 +GENFILTER STR HOST&DIRNAME NEXTFILE FILELIST) \DO.PROGV (NVARS NNILS NTSIZE) DIRECTORY.NEXTFILE (TEM) +COMP.BIND.VARS (VAR X VAL VALS DECLS VLV VLN NNILS NVALS) \CREATEW1 (WINDOW) FIND.MATCHING.QUOTE (BUF) + \PS.BOUTFIXP (N i) RELDRAWTO (ORIGX ORIGY) READCCODE (STREAM) \ARBOUT (FPTR) SEDIT::PARSE ( +SEDIT::THIS-NODE) EDITBMRESHAPEFN (MINCOMMANDAREAWIDTH BITMAPWIDTH BITMAPHEIGHT BMWINTERIORWIDTH +BMWINTERIORHEIGHT GRIDSQUARE EDITAREABITWIDTH EDITAREABITHEIGHT BMDISPLAYBOTTOM BMDISPLAYWIDTH +GRIDINTERIOR BMDISPLAYHEIGHT EXTENTHEIGHT EXTENTWIDTH TEMPBM) MOVETOP (Z Y) GRAPHOBJ.PUTALIGN (N I) +SHOWSTACKBLOCKS (SCANPTR IVAR) READMACROS (RDTBL) SUBFIELDCREATE (HL DEC TEM SUBDECL SUBTRAN VAL) +\SEQUIN.HANDLE.INPUT (ALLOC NEWACKSEQ) PURGEHISTORY (TYPE) \FM.LAYOUTCOLUMN (PROPS FONT LEFT BOTTOM +ROWSPACE COLUMNSPACE ID OLDCORNER BOXOFFSET X) FIND-EDIT-LOCATION (EXPRS FOUND) \TEXTOPENF (PCTB) +GENERATOR (COMVAR##) POSTSCRIPT.SHOWACCUM (KERN) SKIPSEPRCODES (C PREVC) COMPARE1 (X Y) /PUTASSOC (X) +MSCHECKBLOCKS (FILES BLOCKS TEM FNS NOBLOCKFNS FN BLOCK) SKIPSEPRS (C) \NSFILING.REMOVEQUOTES (CH I) +\SIMPLIFY.CL.ARGLIST (X) \FM.LAYOUTROW (PROPS FONT LEFT BOTTOM ROWSPACE COLUMNSPACE ID OLDCORNER +BOXOFFSET X) FILLRECTANGLE.IP (RIGHT LEFT TOP BOTTOM WIDTH HEIGHT) XCL::WALK-DECLARATIONS (XCL::NEW-FORM + XCL::MACROP) COMP.FLOATUNBOX (NUM) \VAMAllocPageGroup (RUNLENGTH) LAYOUTGRAPH (R FONT MOTHERD +PERSONALD FAMILYD G) INSPECT/TOP/LEVEL/LIST (X I) \UFS.ABORT.DIRECTORY (GEN GFS) +TERM.MODIFY.ATTRIBUTES (A) \UFSMakeUnixFormatName (I) SKREAD (STRM CH) \10MB.OUTPUT.INTERRUPT (IOCB +STATUS) \LFEventFn (vol) INFILEPAIRS (X Y) INFILECOMSMACRO (AT) CL:MAKE-CONCATENATED-STREAM (STREAM?) +I.S.OPR (LC NEWFLG NEWPROP OLDPROP) MSCHECKBLOCK (BLKNAME LOCALVARS SPECVARS TEM TEM2 BLKFNS +BLKLIBRARY BOUNDFREE FREEVARS VAR FN DEC X ERRORS) MB.CREATE.THREESTATEBUTTON (X Y BITMAP DS) +\LFDirectoryNameP (PARSED DIR SUBDIREND) SEDIT::NEXT-NODE (SEDIT::INDEX SEDIT::NODE) MAKEHASHLINKS ( +TEM2 RECORD.TRAN TEM DEF) LISPXREAD (X) SHOULD-BE-DWIMIFIED? (FORM) \NSRANDOM.READ.SEGMENT (SESSION +BUF PAGE BYTES-TIL-EOF BYTESTOFETCH TOTALBYTES PAGENO PAIR) RESETUNDO (UNDOSIDE UNDOSIDE0) +TEDITMENU.STREAM (MENUW W) MIN/LEFT (NODE) /LCONC (XX) FB.SUBITEMP (I) \TEDIT.HARDCOPY.DISPLAYLINE ( +OLOOKS FIRST-SCALED-CHAR CURRENTY OFONT KERN LOOKSTARTX LINELEN CH DX LOOKNO TTX TX I) CREATEW1 ( +REGION SCREEN REG WINDOW) SETCOLOR.IP (SHADE OPERATION) MIN/BOTTOM (NODE) LISPX (LISPXXMACROS +LISPXXUSERFN LISPXLINE LISPXX LISPXTEM LISPXOP LISPXLISTFLG LISPY DONTSAVEFLG LISPXHIST HELPFLAG +LISPXVALUE LISPXVALUES LISPZ) FOREST/BREAK/CYCLES (DTAIL DN) DUMPGRAPH (N IDS %#IDS TEMP SHADES +%#SHADES FONTS %#FONTS BORDERS %#BORDERS X POS) CL:PARSE-INTEGER (RADIX INDEX STOP MAXDIGITCODE +MAXALPHACODE ERR CHAR STARTINT SIGN ENDINT) PFI.ESTIMATE.SIZE1 (INITSUM TAIL) COMPILER::META-EVAL-CALL + (COMPILER::NODE COMPILER::ARGS COMPILER::ARG COMPILER::LIST-OF-VALUES COMPILER::TRANSFORM) \MKINTEGER + (LOOPVAL I CH START VAL RADIX3 RADIX2) PRIN2-LONG-STRING (FONT ESCWIDTH SPACEWIDTH CLOSEWIDTH +SEMIWIDTH SEMISTRING SEMICLOSE C LASTSPACE POS I HERE MAPX1 MAPY1 SINGLELEFT ESCAPESEPRS J NEXTC) +\FM.FORMATEXPLICIT (X) \FM.FORMATBYGRID (GROUPS ROWBOTTOM GROUPLIST ROWIDS GRID ROWID ROWDESC +ROWREGION ROWITEMS ROWDAUGHTERS ITEMDESC GRIDPOS ALIGNREGION BOX) COMP.TOPLEVEL.COMPILE (COMTYPE ARGS +DEF PIFN FRAME TOPFRAME ARGVARS ALLVARS TOPLAB CI X ALAMS1) GRAPHCHANGELABEL (CHANGEFN) +COMP.LOOKFORDECLARE (EXPS Y DECLS) \DRAWPOLYGON.GENERIC (PTAIL) CMLRDTBL (I) \TEXTBACKFILEPTR (PC PS +PF REALFILE) FINDATOM (XTAIL NAME REALPOS TEM) CLOSE.WINDOWS.IN.REGION (R) RIGHTW.REPAINTFN ( +WINDOWREGION ROWPROP MARK STARTROWPROPS STARTVERTMARKS LASTROWPROP XCL:*PROFILE* VERTMARK) +DECLARED-SPECIAL (DEC) \AUTHENTICATION.FIND.SERVER (ADDR INFO) \NSRANDOM.PREPARE.CACHE (CACHE I +FREETAIL PREV NAVAIL MORETAIL PREVFREE NCREATED NNEEDED) \TEDIT.CREATE.LINECACHE (I) FILEPKGCOM (FIELD + TEM COM TEM2 I) CHDIR (HOST PATH) /ECHOMODE (FLG) GETFIELDFORCREATE (USINGEXPR VALUE TEM DEFFLG) +CL:APPLY (CL::AV CL::I) \COURIER.EXPEDITED.ARGS (VALUE TYPE) CH.LIST.PROPERTIES (OBJECTNAMEPATTERN) +\FLUSHPAGE (VP FP NEWFP) LISPXTYPEAHEAD (X L) \RSTRING2 (CH SNX SKIPPING LASTC J ANSTAIL ANSLIST +FATSEEN) \TRANSFERPAGE (NEWFLAGS) \POLYSHADE.XSCAN.IP (fulllist currlist currcrit scany scan fullcrit +count ix tx ex clist ty crity) LOWERCASE (FN TEM) \PUTBASEFIXP (LO HI VAL) \UFSGetPrintFileType (TYPE) + READOCT (STR CHAR N) READ-EXTENDED-TOKEN (RDTBL CH SNX ESCAPE-APPEARED ESCAPING J ANSTAIL ANSLIST +FATSEEN) \SETMACROSYNTAX (LST CONTEXT WAKEUP ESCAPE A) MOUSESTATE-EXPR (NAMEMASK MOUSEONLYFLG) +FW-CHANGE-ANCHOR (NEWANCHOR) \VFMInsertPageGroup (word) \SMASHSTRING (NC POS C DESTCH# SRCH#) +IFCDECLARE (TAIL) BRKDWNCLEAR (I) CONCATLIST (STR X FATP I) ADVISEWDS (R D WBORDERSIZE TWICEBORDER +CLIPREG PROC) COMP.PROGN (A) \ATBLSET (TRDTBL NEW-IL-RDTBL I) \NSRANDOM.CHECK.CACHE (X EMPTY) DEFPRINT + (TYPE) MSINIT (X) AS.DELETE.PASSWORDS (NAME) Filebrowsericide (W) IMAPLIST (CURR1 CURR2 NEXT1 NEXT2 +Y1 V1 ADVANCE U1 X0 Y0 X1 DX DY U0 V0 DU DV PT IMAP PATH2 PATH1) PRINTLEAF (DATA OP START MACRO HI LO +NBYTES) ETHERPORT (VAL) IFCEXPRTYPE (SUBCOM) /DREVERSE (Y X Z) FB.COMMANDSELECTEDFN (ITEM I EXTRA FN) +READ/NODE (NEAR OLDPOS NOW) \CLIPANDDRAWLINE1 (HALFDX X1 X2 Y1 Y2 DX HALFDY DY YMOVEUP SOFTCURSORUP +DISPINTERRUPT CX1 CY1 CA1 CX2 CY2 CA2) TWODINSPECT.ARRANGEWINDOWS (TITLEHEIGHT ROWPROPWIDTH TWHEIGHT +RWWIDTH DWHEIGHT TOTALHEIGHT DWWIDTH TOTALWIDTH TOTALRIGHT TOTALTOP DWLEFT DWBOTTOM) \TEXTPEEKBIN (PC +PS PO PF) \TEDIT.PUT.SINGLE.CHARLOOKS (LEN) TEDIT.WINDOW.SETUP (PROP) RETFROM (P) MBUTTON.SET.FIELD ( +PCTB PCNO FIELD.SEL NEW-STRING) INSPECT/AS/FUNCTION (FRAME CODEBASE) INTERSECTREGIONS (REG LFT RGHT +BTTM TP I) SI::CLEAN-UP-CL-ARGLIST (SI::PARAM SI::STATE) BRKDWNBOXES (BDZ BDY BDN) +\NSFILING.LOOKUP.CACHE (ENTRY NAME X) \SELECTREALPAGE (PREVRPT RPTINDEX RPTBASE FLAGS FP CNTR DISTANCE + PREVINDEX TRIES) GRAPHREGION (LEFTOFFSET BOTTOMOFFSET) NLAMBDAFNP (FN) \UPDATECHAIN (HEAD1 RPTR VP +FLAGS CHAIN1 CHAIN0 RPTINDEX) FILL.LINE (Y XL XR) SEDIT::ATOM-POINT-TYPE (SEDIT::I SEDIT::C SEDIT::ESCAPED + SEDIT::RESULT) \MAIKO.DISPLAYLINE (LHEIGHT SCALE CACHE DISPLAYDATA DDPILOTBBT XOFFSET CLIPLEFT +CLIPRIGHT OFONT OLOOKS DDWIDTHCACHE DDOFFSETCACHE LOOKSTARTX CH DX LOOKNO TTX CURY TX I) +\LFParseFileName (TAIL DIRECTORY NAME EXT VERSION ENDVOLNAME STR) \FM.FORMATBYCOLUMN (GROUPS +COLUMNLEFT GROUPLIST COLHEIGHT) SCALED.BITMAP.GETFN (BITMAP FACTOR) EDITCHANGELABEL (MSGW NODE +NEWLABEL) DOUSERFNS (USERFN) EDITCHANGEFONT (NODE) \NSFILING.ADD.TO.CACHE (ID OLDHANDLE H CACHE) +ONEDINSPECT.ARRANGEWINDOWS (TITLEHEIGHT ROWPROPWIDTH RWWIDTH DWHEIGHT TOTALHEIGHT DWWIDTH TOTALWIDTH +TOTALRIGHT TOTALTOP DWLEFT DWBOTTOM) \DRAWELLIPSE.GENERIC (MAJORXOFFSET MAJORYOFFSET MINORXOFFSET +MINORYOFFSET) REALSTKNTH (FX K) COMPILER::FIND-TAG-DUPLICATION (COMPILER::TAIL COMPILER::INST) +LISPXFIND1 (X) CANONICAL.HOSTNAME (HOSTNAME) SI::PARSE-CL-ARGLIST (SI::STATE) INITIALIZEMASTER.IP (I) +UNSAVEDEF (DEF TYPE) HISTORYSAVE (X TEM Y INDEX N L) BESTPUPADDRESS (PORT MSG NET BESTHOPS NOTLOOKEDUP + BESTPORT ROUTE HOPS TRY) IFCPROPSCAN (AT PROP) /DELETECONTROL (TTBL) ADDTO (PTR) BACKSKREAD (X B +INNERMOSTLIST BRACKETFLG ESCAPED) DECLARERECORD (TEM TRANSLATION DEC RECNAME OLDTRAN OLDFLG Y) +SEDIT::ASSIGN-FORMAT-LITATOM (CL:ATOM) CHAT.TTYENTRYFN (STATE) CH.RETRIEVE.MEMBERS (OBJECTPATTERN) +MIDDX (Y) SHOWWFRAME (WINHGHT WINWDTH BLACKPART WHITEPART) GRAPHOBJ.GETALIGN (ALIGN) SEDIT::INSERT-CHANGED + (SEDIT::NEXT LIST) MAKECREATELST1 (TEMPLATE) PURGEHISTORY2 (TEM) \NSFILING.MAYBE.CREATE (CREATE? +OLDHANDLE TAIL NEW.DIR) COMP.ASET (DECL) OPENNSOCKET (NSOC SOC SKT# CLASHP) FONTCREATE (FONTX ROTATION + DEV FONTFACE FAMILY) \TEDIT.CHARDELETE (TEXTOBJ TLEN INSCH# INSPC TLOOKS START-OF-PIECE) +\TEDIT.PIECE-CHNO (CHARCOUNT OFST PC PCNODE) COMP.AREF (DECL) MAX/RIGHT (NODE) \SEND.EXPEDITED.XIP ( +IXIP) OPT.DREV (Y L Z) \INTERNAL/GETPASSWORD (HOST OSTYPE NAME/PASS DIRECTORY) \INTERNAL/SETPASSWORD ( +RESULT INFO NEWNAME/PASS NAME/PASS OSTYPE PASSWORDADDR NSINFO DISKNAME INFOCHANGED DEFAULTNAME PWD +NEWNAME) UNDOLISPX2 (TEM VAL Y) INSPECTW.REPAINTFN (XCL:*PROFILE* LINEBASE SELITEMS +SELECTABLEITEMREGION PROPPRINTFN) READGRAPH (TEMP NUM IDS I BORDERS FONTS SHADES) LLSH (XHI XLO X N) +\POLYSHADE.DISPLAY (table fulllist currlist currcrit scany scan fullcrit count ex clist ty crity D X0 +DX DDX DDY XL XR) \SUBREADCONCAT (PBASE) \TEDITMENU.SELSCREENER (MAINTEXT) INIT.CURSOR (INITY) +\PFVersionOK (vol) EDITBMSCROLLFN (GRIDSPEC REG WHEIGHT WWIDTH GRIDINTERIOR EBMXOFFSET EBMYOFFSET BM +BITMAPWIDTH BITMAPHEIGHT BITSWIDE BITSHIGH DXOFFSET DYOFFSET EBMXLIMIT EBMYLIMIT GILEFT GIBOTTOM +GIHEIGHT GWIDTH GHEIGHT EXTENT EXTENTWIDTH EXTENTHEIGHT DXGRID DYGRID) SHOWWTITLE (TITLEDS FONT +BLACKPART TITLESHADE BOTTOM HEIGHT BMWIDTH LEFTMARGIN X) TTBIN (CHAR) ESPATTERN (X) +MINIMUMMAINWINDOWSIZE (EXT) \LET*-RECURSION ($$LET*-TAIL VAR VALUE) \ALLOCWIDTHTOGROUPEDWINDOW (ATW +WIDTHS MAXWIDTH ATWS WIDTH XTRA SHARE NOWSIZE MAXSIZE NEWSIZE) TEDIT.REDO.REPLACE (OLDEVENT) +COMP.BLOCK (F) LISPXFIND (LST INDEX VAL LINE0 TEM) OPT.RESOLVEJUMPS (Z CU NEW JL) TTYIN (\TTYINSTATE +SPLST OP \NOFIXSPELL \DONTCOMPLETE \NOVALUE \STRINGVALUE \COMMAND \REPEAT \RAISEINPUT \AUTOFILL \FIX +\READING TYPEAHEAD \LISPXREADING \FILLINGBUFFER \FIRSTTIME \PROMPTFORWORD \PFW.FIRSTTIME \RDTBLSA +RDTBL \PROMPT1 \PROMPT2 PROMPT VALUE) INFILECOMSPROP (X) /CONTROL (FLG) \TEDIT.HARDCOPY.FORMATLINE ( +ORIGCHLIST CHLIST ORIGWLIST WLIST LOOKS TEXTSTREAM TERMSA CLOOKS LOOKNO PC INVISIBLERUNS TLEN CHNO +ASCENTB DESCENTB FONT FMTSPEC 1STLN TX WIDTH TXB1 CH DX BOX ASCENT DESCENT GATHERBLANK CH#B NEWASCENT +PREVSP PREVHYPH PREVDHYPH T1SPACE TXB DXB LOOK#B INVISIBLERUNSB %#BLANKS FORCEEND CTRL\L\SEEN +TABPENDING TEXTLEN) MAX/TOP (NODE) MAKEINITBFS (PREV I) \ENCRYPT.PWD (I) TTSKREAD (END X BUF) +\FM.FORMAT (PROPS FORMAT FONT LEFT BOTTOM ROWSPACE COLUMNSPACE ID OLDCORNER BOXOFFSET GROUPS EXTENT) +\TEDIT.PUT.CHARLOOKS.LIST (LOOKS I) COMPILER::FIND-SEGMENT (COMPILER::SEGMENT) \TEDIT.TABTYPE.SET ( +STATE DOTTEDBUTTON) TTYIN.READ (BUTLASTC LASTC TERM) SEDIT::CREATE-SIMPLE-NODE (SEDIT::NEW-NODE) +\LOGIN.READ (PROMPT HELPFN NAME) GETCHATWINDOW (WINDOW STATE DSP) SEDIT::COPY-SELECTION-DEFAULT (SEDIT::X + SEDIT::BLANK-BEFORE SEDIT::I) \FM.FORMATBYROW (GROUPS ROWBOTTOM) \TEDIT.PUT.PARALOOKS.LIST (LOOKS I) +\ADJUST.USERNAME (NAME POS) PRINTADDRS (I NB) HISTORYFIND (Z L ALLFLG EVENTADDRESS =FLG _FLG TEM +PREDFLG VAL) COMP.ATTEMPT.COMPILE (FLG) TEDIT.REMOVE.MENUITEM (X ITEM ITEMLIST) \BUILD.EXPEDITED.XIP ( +STREAM) FW-REPAINTFN (OFD) PRINTFILETYPE (FILE TYPE) TTYIN.FINISH (TAIL X ORIGBUFFER RESULT WORD +RESPONSE TL) \PUPINIT (FN NEWFN) PRINTHISTORY1 (TEM Y INPUT) CH.NUMBER.TO.PROPERTY (M) UNDOLISPX ( +DWIMCHANGES LINE UNDONEFLG) \ITEM.WINDOW.COPY.HANDLER (NEWITEM SMASHPOS CURRENTITEM) DCODERD ( +FRAMENAME NAMETABLE LOCALARGS NTSIZE NTWORDS STARTPC STARTLOCALS LOCALSIZE REALSIZE CA X FVAROFFSET +NT1 NT) TTYINREAD (X) \SEQUIN.CONTROL (PUP) \MEDW.BLTCHAR (CHAR8CODE CURX RIGHT LOCAL1 LEFT +SOFTCURSORUP DISPINTERRUPT) TERM.TAB (NEXT.STOP CX) \TEXTGETFILEPTR (PLEN) \TEDIT-OPEN-FONT-FILE ( +EXISTING-FONTFILE-IF-ANY) \DSPXPOSITION.PSC (OLDX) XCL::WALK-ARGLIST (XCL::ARG) TTYIN1 (CHAR X RESULT +TMP WASEDITCHAR SNX STARTOFWORD MATCHED TAIL) WTFIX1 (TYPE-IN? FIXCLK FAULTEM1 SIDES HISTENTRY FAULTXX + CHARLST NOSPELLFLG0) DCODESKIP (START CODELEN) MSPRGLAMBDA (ARG ARGS KEYS? KEYLIST EVALCOUNT EC +OLDTEMP TEM CLISP) SETINITIALS (POS USER TRIPLE) IFCPROPS (ATNAME) MAXMENUITEMWIDTH (I LABEL SUBITEMS +ANSWER) PRIN4 (RDTBL) \LETtran (BODY DECLS VAR VAL) \TEDIT.LINECACHE (CW CH) +\TEDIT.COPYTEXTSTREAM.PIECEMAPFN (PC OBJ COPYFN NEWOBJ) \LINEWITHBRUSH (BOTTOM TOP RIGHTPLUS1 LEFT +DestinationBitMap OPERATION NBITS BRUSHBM COLOR COLORBRUSHBASE RASTERWIDTH DESTINATIONBASE BBT +BRUSHBASE BRUSHRASTERWIDTH HEIGHTMINUS1 BRUSHWIDTH BRUSHHEIGHT LEFTMINUSBRUSH BOTTOMMINUSBRUSH +TOPMINUSBRUSH NBITSRIGHTPLUS1 X1 HALFBRUSHWIDTH X2 Y1 HALFBRUSHHEIGHT Y2 DX DY YINC CDL DASHCNT DASHON + DASHTAIL SOFTCURSORUP DISPINTERRUPT) \TFBRAVO.READ.PARALOOKS (CHAR VALUE LMFLAG FLLMFLAG TEM TABINDEX + PROPERTY) \TEDIT.FIND.OVERLAPPING.LINE (LINES) TB.REMOVE.ITEM (TAIL N) MAXIMUMMAINWINDOWSIZE (EXT) +\TEDIT.SET-TOTLEN (I ITEM#) \ALLOCHEIGHTTOGROUPEDWINDOW (ATW HEIGHTS MAXHEIGHT ATWS HEIGHT XTRA SHARE +NOWSIZE MAXSIZE NEWSIZE) TTWAITFORINPUT (X Y ABSY W FN NEWMARG REG) \PFFindRootDirEntryNum (entryNum) +GETPUPWORD (PUP) FONTCLASS (FL FC F D) \NSFILING.CONNECT (NEW.HANDLE NSPATHNAME) BRKDWNCONSES (BDZ BDY + BDN) PROMPTFORWORD (CHAR ECHO.CHANNEL TTYD DONTECHOTYPEIN.FLG TERMINCHARS.LST C CONVERTIBLEP +KEYBD.CHANNEL TIMER X0Y0 BEGUNTYPING? RUBBING? CHARBUFFER SPACEP ?HELPMSGLIST ?HELPMSGTRIEDP) +TEDIT.FORMATTEDFILEP (OLDPARALOOKS TENTATIVE PC OLDLOOKS FONTFILE PREVPC) \TEXTEOFP (PC) BKBUFS (L S) +RAIDSTACKCMD (FRAME) PROVIDE.PROMPTING.WINDOW (REGION PROC STR) FILL.INITTBLE (FCBBT TOPP BOTTOM LEFT +RIGHT OPERATION DestinationBitMap NBITS TEXTUREBM TEXTURE GRAYBASE pattern DESTINATIONBASE RASTERWIDTH + GRAYWIDTH GRAYHEIGHT CX CY FILLTBLE) BROWSE/LAYOUT/LATTICE (N Y) CLBUFS (LBUF SBUF) TEXTTOIMAGEFILE ( +INPUT-STREAM INPUT-FILENAME IMAGESTREAM) INREADMACROP (TEM \READDEPTH) GRAPHER/CENTERPRINTINAREA ( +STREAM XPOS) AS.CREATE.PASSWORDS (NAME) BRV/OFFSET (ABSX P) MAPDL (MAPDLPOS) \CCLOSURE.DEFPRINT (NAME) + \TFBRAVO.READ.CHARLOOKS (CHAR VALUE VALFLAG PROPERTY TEM) CH.DELETE.MEMBER.FROM.PROPERTY.ACL ( +OLDMEMBER OBJECT) HELPSYS (MACRO.TYPE) POSTSCRIPT.BITMAPSCALE (HEIGHT WIDTH MINDIM OTHERDIM SF1 SF2) +\GET-COMPILED-DEFINITION (X) RINGBELLS (N) UNADVISE (FNS) \SPP.SKIPBYTES (CONDITION BYTESLEFT NBYTES) +\DSPYPOSITION.PSC (OLDY) \TEDIT.FIXCHANGEDLINE (CHARLIM OCHLIM OLHEIGHT NEWLINE YBOT LINES OFLOWFN) +PFI.DEFAULT.HANDLER (TEMPLATE ENTRY PAT TESTFN ITEMNAME MAINITEM) PRINTHISTORY (NOVALUES LST) +STRINGWIDTH (TEMP) \TEDIT.OBJECT.SHOWSEL (IMAGEBOX Y) READHASHMACRO (NEXTCHAR INDEX) FW-AFTERMOVEFN ( +OFD OLDPOS REGION DELTAX NEWX DELTAY NEWY) RELMOVETO (STREAM) SEGMENT.LENGTH (N START) +TERM.SMOOTHSCROLL (I) MSPRGTEMPLATE (TEM) SEDIT::STRING-OFFSET (SEDIT::K SEDIT::OFFSET SEDIT::J) +\PFGetLVPage (vol) FB.SHAPECOMMAND (WWIDTH EXCESSHEIGHT MENUW) RGBP (TMP) \MAKESPACEFORLOCKEDPAGE ( +DESIREDFP FPBASE OLDVP) \TEDIT.BLTCHAR (IMAGEWIDTH NEWX LEFT RIGHT) DASHINGP (X) SEARCHPDL (SRCHPOS +SRCHX) SUPERPRINT/COMMENT (BODY SEMIP RIGHTFLG COMMENT-LMARGIN COMMENT-RMARGIN HALFLINE) YMAPLIST (Y +PATH1 PATH2 CURRPT NEXTPT X0 Y0 DX DY X YMAP) \SW2BM (PL PB PH PW QL QB QW QH CW CH) RAIDCOMMAND (CMD) + SETUPPAGEMAP (I) CHAT (HOST HOSTS PROC RESULT SUCCESS) INSPECT/ARRAY (I) CL:RETURN-FROM (CL::FRAME) +COMPSETREAD (X) ESTIMATE-DIMENSIONALITY (D) \MAKE.ITEMS.VERT.ORDER (I C ITEM.POINTER) +MAXMENUITEMHEIGHT (FONTHEIGHT ANSWER LABEL) READNUMBERINBASE (CH SIGN BASE VAL NUMERATOR I) +\INSPECT.COMPUTE.TITLE (VALUE) MSPRGTEMPLATE1 (Y X KEYSUSED?) LISPXUSEC (LISPXIN LINE LISPY LISPZ +LISPX1 LISPX2 LISPXTEM) SYSOUT (NEWFILE) CL:MAKE-SYMBOL (PRINT-NAME) \SETUFNENTRY (INDEX) +COURIER.SIGNAL.ERROR (ARGS) CLOSEHASHFILE (HASHFILE) FILL-VECTOR (END) UNIX.SETDISPLAYTYPE (OLDTYPE +WINDOW) \DONEWEPHEMERALPAGE (MAPBASE RPTINDEX RPTR) INFILECOM (CFN TEM TAIL X) CHARACTER.READ (CH) +SEARCH-FOR-EVENT-NUMBER (EVENTS) MAXIMUMWINDOWSIZE (EXT) GRID (TOTALHEIGHT TWICEBORDER X LINELENGTH Y +TEMPBM GRIDBM MAXIMUMCOLOR) \VFMClearIntervals (volume) PFI.MAYBE.NEW.PAGE (REMAINING) DISCARDPUPS ( +SOC) INFILECOMSVALS (Y) BYTEBLOCKCOMPILE2 (X) GRAPHADDNODE (NODE ADDFN) UNIONREGIONS (REG LFT RGHT +BTTM TP I) SEDIT::NOTE-CHANGE-IN-SIMPLE (SEDIT::NEW-WIDTH) CALLSCCODE (NTSIZE NAME NUMBER I TYPE BOUND + USEDFREE NT1 NT2 B CODELOC B1 LEN TAG B2 B3 B4 B5 FN IGNOREFNS GLOBALS CALLED LNCALLED) RETVALUES (P) + COPIEDFILEMATCH (FRPAT X CHARS) COURIER.READ (X DEF) BREAK.NSFILING.CONNECTION (DEV) +\APPLYINSPECTMACRO (ARGS) COPYTEXTSTREAM (PCTB TSEL NEWSTREAM NEWTEXTOBJ PCLST) FB.DEPTHCOMMAND ( +NEWDEPTH) \SUBFNDEF (C I) CH.ADD.MEMBER.TO.PROPERTY.ACL (NEWMEMBER OBJECT) INSPECT/ATOM (ASPECTS +TYPETOINSPECT) PURGENSFONTS (ENTRY BADTYPES SIZES TMP FACE ROT DEV) MAKEEPSFILE (STREAM) MAPHASHFILE ( +HASHFILE HASHKEY KEY VALUE ADR) \CODEBLOCKP (TEM) \NSFILING.OPENFILE (STREAM SEQUENTIAL ATVAL OTHER +ATTRIBUTES) TTPROMPTCHAR (CRLFS) \DSPFONT.PSC (NEWFONT FONTID) EXCHANGEPUPS (INPUP) RAIDSHOWFRAME ( +FRAME) READPAGEMAPBLOCK (P B) MSPRGRECORD (Z X) RECORDWORD (NEWORD WORD) DODIR (CONJ FILE TAIL) +COMP.SPREAD (APPLYTOEACH N) DIGITBASEP (CODE) FILECODEBLOCK (PREFIXLEN) DWIM (X) DOBACKGROUNDCOM (FORM +) FB.INFOMENU.WHENSELECTEDFN (CHOSEN) \PROMPTFORWORDBIN (TIMER READABLE CHAR TTYWAITLIMIT +WAITINTERVAL.secs) FM.CHANGELABEL (ITEM GROUPID ITEMID) \DSPMOVELR (X Y DS) READPAGEMAP (I VP J FP D) +DELETEMENU (OTHERMENUS) TEDIT.FORMATFOLIO (PARALOOKS CHARLOOKS NOFIRSTPAGE INFOLIST FOLIOFORMAT +PRETEXT POSTTEXT PAGE# FOLIOTEXTOBJ FOLIOSTREAM THISLINE FORCENEXTPAGE LINE CHNO YBOT) COPIEDFILENAME +(FILENAME) \RELEASEWORKINGSET (RPTR RPTINDEX) \PROMPTFORWORDBS (C) UPDATE/MENU/IMAGE (SCREEN MENUITEMS + CENTER? FONT TITLE TITLEFONT TITLEHEIGHT TITLEWIDTH NITEMS NUMCOLS NUMROWS BORDER OUTLINE +ANYSUBITEMS? I COLWIDTH ROWHEIGHT WIDTH HEIGHT NITEMSTOFIT BITSPERPIXEL BLK DSP ITEMREGION MAJOR# +WINDOW) OPENHASHFILE (ACCESS ENTRY HASHFILE) \NSFILING.DESERIALIZE (SESSION DIRHANDLE HANDLE) +COURIER.EXECUTE.EXPEDITED.CALL (XIP RESULT STREAM) \TEDIT.SELECT.CHARACTER (SELRES) \10MBSENDPACKET ( +PAIR) FILL.CONT (OPER TBLE I) TEDIT.FORMATTEXTBOX (LINE FOOTNOTELINES PAGEFOOTNOTES FOOTNOTE-REMNANTS +KEPT-ONE-LINE COLUMNBOTTOM LINES THISLINE FORCENEXTPAGE CHNO REST FINAL-CHNO FMTSPEC SPECIALYPOS YBOT +LHEIGHT ORPHAN NEWPAGETYPE BREAKAFTERLASTPARA PRIOR-COLUMN-YBOT COLUMN-YBASE FIRSTLINE PREVLINE) +CHARCODE.DECODE (C X CH CSET POS PAIR) GRAPHOBJ.CHECKALIGN (ALIGNSPEC) STRPOSL (A BASE LEN OFFST +STRFAT STRING START NEG I LASTI) \MATCHPCS (PC OFFSET I) SET-SYMBOL (ENVIRONMENT) \CREATECHARSET ( +CSINFO) \PFRemoveRootDirEntry (entryNum) COMPUTE-MACRO-ARGS (ARGUMENT-LIST SUPPLIED-P-VARIABLE +KEYWORD-VARIABLE FM) CHANGECCODE (DEF OLDREF) SENDPUP (PUP PUPSOC NDB) DSPCLEOL (DISPLAYSTREAM XPOS) +MACROS.GETDEF (X) PROCESS-EXEC-ID (ID) TRACKCURSOR (ORIGPOS OLDPOS DOWNFLG) EXPANDMACRO (EXP MACRODEF) + CHARWIDTHY (WY TEMP) \DSPPRINTCHAR (STR I TABWIDTH) TEDIT.FORMATHEADING (PRECONDITIONS FORM HEADING +HEADINGTEXTOBJ HEADINGSTREAM LINES THISLINE FORCENEXTPAGE LINE YBOT CHNO) \DRAWPOLYGON.DISPLAY (COLOR +PTAIL) MSUSERVBTABLES (modifier) AS.REPLACE.PASSWORDS (NAME) SUPERPRINT/COMMENT2 (FILE TAIL THISITEM +LASTITEM) CH.RETRIEVE.PROPERTY.ACL (NAME) \STRINGWIDTH.GENERIC (C CSET WIDTHSBASE TOTAL ESC ESCWIDTH +TOTALWIDTH) PRINT-EVENT (TEM Y INPUT) SUPERPRINT/COMMENT1 (MINLEFT DEFAULT LM) EXPANDOPENLAMBDA (A +SUBSTPAIRS VAL TMP ARGS VALS FORMALS ACTUALS OPENLAM) NSPRINT (PRINTER INSTREAM DOCUMENT.NAME JOBNAME +OPTIONS PRINTRESULTS) \LASTNODE (CHILD ITEM#) MAPPAGES (VP) \NSFILING.CLOSE.CONNECTIONS (SESSION PAIR) + INSPECT/TYPELESS (HDR TRLR) \CLIPANDDRAWLINE (COLOR SOFTCURSORUP DISPINTERRUPT X1 X2 MIN MAX Y1 Y2 +HALFWIDTH I J) \CH.FIND.ORG.SERVER (ORGINFO KNOWNDOMAINS ALLSERVERS) COMPILER::CLOSURE-ANNOTATE-TAGBODY + (COMPILER::NON-LOCALS COMPILER::SEGMENT COMPILER::STMT COMPILER::OUTER-NEED-STORAGE) PRINTERDEVICE ( +POS POS2) START.OF.PARAGRAPH? (LINE) \BACKCOLOR.DISPLAY (DD BITSPERPIXEL) \IRM.WILD.MATCH (TAIL) +PRINTCOMSTRAN (ARG TYPE WIDTH POINT VARS FORMATLIST FILEFORM TAIL TEMP RESETOUT) PREVLINE (X N L) +\UNCOPY (STR I OFFST NCELLS LOCAL-ARRAY LOCAL-BASE) \DSPRESET.DISPLAY (DISPLAYSTREAM CREG FONT +FONTASCENT X) COMP.GETBASE (A OFF) \BLTSHADE.DISPLAY (DESTDD DESTINATIONLEFT DESTINATIONBOTTOM left +bottom right top CRLEFT CRBOTTOM DESTINATIONBITMAP DESTINATIONNBITS TEXTURE SOFTCURSORUP DISPINTERRUPT + HEIGHT) UNIX-WRITE (LENGTH-WRITTEN) PRINTCODE (RADIX I NTSIZE STARTPC TEMP PC LEVEL STK TAG CODELOC +LEVADJ LEN B B1 B2 B3 B4 B5 OP# N X) ICONW (POSITION) SETFONTCLASSCOMPONENT (DEVICE) \IDLE.TIME (GONE) + COMPILER::PEEPHOLE-OPTIMIZE-CODE (COMPILER::TAIL COMPILER::INST) SETUPHASHARRAY (TEM) +TEDIT.FORMATPAGE (TEXTLEN THISLINE NEWPARALOOKS PC TPAGE PAGE# STARTING-FILEPTR LINE CHNO SUBREGION +END-OF-PAGE-MARKER) EDITBMBUTTONFN (GRIDSPEC GRIDINTERIOR BM BITSWIDE BITSHIGH WREGION XOFFSET YOFFSET + DXOFFSET DYOFFSET DISPLAYREGION EXTENT GRIDX0 GRIDY0 BITMAPWIDTH BITMAPHEIGHT BITSPERPIXEL POS +CURSORBM ORIGBM COORDWIN NEWGRIDSIZE PAINTW) \BITBLT.DISPLAY (SOURCELEFT SOURCEBOTTOM +CLIPPEDSOURCELEFT CLIPPEDSOURCEBOTTOM WIDTH HEIGHT SOURCEDD SOURCE SOURCEBITMAP TEXTURE SOFTCURSORUP +DISPINTERRUPT DESTSTRM SCRATCHBM DESTDD DESTBITMAP DESTINATIONLEFT DESTINATIONBOTTOM left bottom right + top CRLEFT CRBOTTOM DESTINATIONNBITS SOURCENBITS stodx stody OPERATION MAXSHADE DTY DLX STY SLX) +PRINTCODENT (START2 I NAME TAG NUMBER NT1 NT2) GETPUP (PUPSOC PUP TIMER) DELETETO1 (CH) +POLYSHADE.DISPLAY (ILIST LLIST WINDNUMBER) \SPLITTREE (NEW1 OFST UPPEROFST COUNT NEW2) EDITDATE? (I) +FONTUNPARSE (SPEC FACE) LISPXUSE0 (EXPR VARS ARGS VAL) CODEWRAPPER.PRETTYPRINT (FORM) +\DRAWELLIPSE.DISPLAY (ORIENTATION CX CY BOTTOM TOP RIGHTPLUS1 LEFT DestinationBitMap OPERATION NBITS +BRUSHBM COLOR COLORBRUSHBASE RASTERWIDTH DESTINATIONBASE BBT BRUSHBASE BRUSHRASTERWIDTH HEIGHTMINUS1 +BRUSHWIDTH BRUSHHEIGHT LEFTMINUSBRUSH BOTTOMMINUSBRUSH TOPMINUSBRUSH NBITSRIGHTPLUS1 A B G yOffset +CYPlusOffset CYMinusOffset U V K x1 y1 y2 k1 k2 k3 b a d x y SOFTCURSORUP DISPINTERRUPT w x2) NOHOST ( +UP) \XCCSINCCODE (CSET CHAR NUMBYTES) SEQUENTIAL.PRETTYPRINT (TEM TAIL) CSUBST (TEM TEM2 X) FREEMENU ( +DESCRIPTION) FONTPROP (FONT) SEDIT::PARENTHESIZE-CURRENT-SELECTION (SEDIT::NODES SEDIT::SUBNODES SEDIT::I + SEDIT::NEW-NODE SEDIT::N) \TEDIT.APPLY.PAGEFORMATTING (SCRATCHSEL CH# NEXTB PAGEID STARTINGPAGE# +PAPERSIZE LANDSCAPE? PAGENOS PX PY BUTTON FOLIOFORMAT ALIGNMENT FOLIOPRETEXT FOLIOPOSTTEXT LEFT RIGHT +TOP BOTTOM COLS COLWIDTH INTERCOL HEADINGS HEADINGTYPE HEADINGX HEADINGY HEADINGINVALID HEADING# PFONT + PAGEOPTIONS NPAGEFORMAT OPAGEFRAMES NFPAGEFORMAT) \CH.LOCATE.SERVERS (STREAM CHNAMES CHLIST CH INFO +PAIR NOROUTE CHDOMAINS DOM) FONTCLASSCOMPONENT (FONT) \FILLCIRCLE.DISPLAY (RADIUS DISPLAYDATA X Y D +FCBBT LEFT BOTTOM TOP RIGHT OPERATION DestinationBitMap NBITS TEXTUREBM TEXTURE GRAYBASE pattern +DESTINATIONBASE RASTERWIDTH GRAYWIDTH GRAYHEIGHT CX CY SOFTCURSORUP DISPINTERRUPT) INSPECTW.REDISPLAY +(XCL:*PROFILE* PROPERTY-PNAMES VALUEMARGIN SELITEMS PROP PROPNAME VALUE) MAKECREATE1 (NEEDACELL DEF +SMASHFIELDS FIELD VAL CKVALFLG X TEM TEM3) ADVISE (FN WHEN WHERE) FILL.XPER (OPER TBLE SOFTCURSORUP +DISPINTERRUPT I) FIND-STACK-FRAME (POS) CASE.PRETTYPRINT (EXPR HERE TAIL INNERLEFT LEFT CASE) +\10MBGETPACKET (PACKET PAIR) FILL.TEST (OPER TBLE I) TEDIT.CURSORMOVEDFN (LINE LINES WINDOW LEFT) +FIND.LINE.BREAK (START) \TEDIT.FILL.IN.CHARLOOKS.MENU (NEWLOOKS SCRATCHSEL NEXTB CH# BUTTON ITEM +OFFSET) \DRAWCIRCLE.DISPLAY (RADIUS X Y D BBT DISPLAYDATA USERFN CX CY BOTTOM TOP RIGHTPLUS1 LEFT +DestinationBitMap OPERATION NBITS BRUSHBM COLOR COLORBRUSHBASE RASTERWIDTH DESTINATIONBASE BRUSHBASE +BRUSHRASTERWIDTH HEIGHTMINUS1 BRUSHWIDTH BRUSHHEIGHT LEFTMINUSBRUSH BOTTOMMINUSBRUSH TOPMINUSBRUSH +NBITSRIGHTPLUS1 SOFTCURSORUP DISPINTERRUPT) ENDREAD? (X ESCAPED) PREPLOOP (PathOrPathList NLIST TLIST +ILIST) MAKEINITLAST (GAG AL X A) COPIEDFILEPATTERN (FRPAT CHARS TOPAT X) COMP.LOOKUPVAR (X VAR) +PROG1.PRETTYPRINT (E EXPR HERE) \GETREGION.CHECKOPPT (OPPX OPPY USERPT) \AVGCHARWIDTH (W) +DODIRCOMMANDS (I COM COMTAIL DT ATTRVALUE) \TEDIT.CONVERT.FOREIGN.FORMAT (WORKINGSTREAM TSTREAM) +SETFONTDESCRIPTOR (DEVICE FONT FAMILY FACE ROTATION X) TEDIT.PARSE.PAGEFRAMES (FRAMETYPE PAGELIST +PAGEFRAME) \SCALEDBITBLT.DISPLAY (SCALE REGION WIDTH HEIGHT DESTINATIONBOTTOM DESTINATIONLEFT BITMAP) +SUPERPRINT0 (MACRO E) CONCAT (NM FATSEENP LEN J S POS) \DSPFONT.DISPLAY (DD OLDFONT XFONT) +\MAKEBRUSH.ROUND (RADIUS BITMAP BASE) PROGV.PRETTYPRINT (EXPR) BROWSE/LAYOUT/HORIZ/COMPACTLY (TOPNODE +N GN) \DRAWLINE.PSC (WIDTH) INSPECT/DATATYPE (DEC SYSREC I) \DSPRIGHTMARGIN.DISPLAY (OLDRM) +DUMPINITPAGES (I FILE) DO.PRETTYPRINT (TAIL) MSPRGE (CALLED TEM Y CLISP X) NTH.RELATIVE.COLUMN.OF ( +WIDTH CH N BUF) PRINTPROG (TAIL) \COPY (V R) DIRPRINTNAME (THISCHAR DIRECTORYEND LASTCHAR DIFFERENT I) + CH.PROPERTY (PAIR) CREATEFIELDS (X) \SEQUIN.PROCESS (SOCEVENT PUP REASON TIMEOUT CNT +RETRANSMITINCREMENT) \FONT.SYMBOLMEMB (X) COURIER.EXPEDITED.CALL (PGMDEF PROCDEF %#ARGS ARGTYPES TYPE +NOERRORFLG ARGLIST I) SUBPRINT (OLDY CURRENT TEM CLISPWORD FORMFLG TAIL NEXT DOCRFLG END LEFT LEFT0 +CEND) CLISPLOOKUP1 (TEM VAL LST) FB.NEWINFOCOMMAND (INFOMENUW REG W) \NSFILING.AFTER.LOGIN (SESSION) +ADDFILE0 (COMS FILEPROP ROOTNAME FULLNAME FLG) \MAP-CODE-POINTERS (TAG CODELOC) SI::RESETUNWIND ( +RESETZ OLDVALUE) \NSFILING.DESERIALIZE1 (EXPLICIT-RESULT BULKRESULT) \FONT.SYMBOLASSOC (FIRSTC X) +MOVE.TO.LINE (RELATIVE.POSITION BUFTAIL) \MAP-CODE-LITERALS (NUMBER I NT1 TAG CODELOC) \DRAWCURVE.PSC +(WIDTH SHAPE COLOR PSPLINE N XA YA DXA DYA PREVX PREVY PREV-DX3 PREV-DY3 C) \FONT.COMPARESYMBOL ( +INPUTFIRSTC A0494 A0495 A0496 CHAR1 CHAR2) \IDLE.EXIT? (PWD WATCHER NAME) DSFIT1 (L M) +GETGRIDBOXREGION (NEWREGION) LISPXUSE (STATE VARS TEM LST ARGS GENLST LINE EXPR USE-ARGS) +\PFPutRootDirectory (where) UTF16BE.PEEKCCODEFN (BYTE1 BYTE2 CODE) PRINTSQ (FOLD LEFT TAIL REST) +SETUPPUP (PUP DESTHOST SOC) INSPECT/HUNK (ELTSPEC BLOCKRECS I) \FONTFACE (UNKNOWN WEIGHT SLOPE +EXPANSION FACE) FIND-HISTORY-EVENTS (*EVENTS* X EVENT-SPEC VAL VALUE-P PRED-P) CH.IS.IN.DOMAIN.ACL ( +DOMAIN) \AREAVISIBLE? (WPTR) UTF16BE.INCCODEFN (BYTE1 BYTE2 COUNT CODE) SUBPRINT1 (L TMP) +\MAKEBRUSH.SQUARE (BM) EDITADDNODE (NODE ORIGPOS) CACHEMACRO (FN) /PUT-1 (X X0) FB.NEWPATTERNCOMMAND ( +PATTERN) \PFGetRootDirectory (where) DSFIT2 (N NC) GETSEQUIN (PACKET) MSADDTYPE (HOWUSED SYNONYMS +TABLES typeWord oldWordDef) PAINTW (WINDOW BRUSH DS BITSPERPIXEL MASKSHADE HOTX HOTY MASK PREVX PREVY +PREVBUT) HISTORY-NTH (EVENT N LST) SEGMENT.BIT.LENGTH (N START) \DSPBACKCOLOR.DISPLAY (DD COLORCELL +DESTINATION BITSPERPIXEL COLOR) \PFCurrentVol (vol) SHOW.MATCHING.PAREN (LINE ROW COL) +\DSPCOLOR.DISPLAY (DD COLORCELL DESTINATION BITSPERPIXEL COLOR) LLBREAK (DEF NUFN) TEDIT.BUILD.PCTB0 ( +PCTB PIECEINFOCH# PC PCLEN TYPECODE CURFILECH# OLDPC CURCH# I PCN) \NSGC.COLLECT.DIRECTORIES (HANDLE +BULKSTREAM SCOPELIST GENERATOR ID INFO PAIR) TEDIT.SCAN.LINE (X OTX TXB TX CHB CLOOKS PREVCH PCLOOKS +CH CHNO LOOKNO I L L1 LN WW CHOBJB DX) BRHL/MOVE/RIGHT (D) TEDIT.PROMPTFLASH (MAINTEXTOBJ WINDOW) +\PRINDATUM.TO.STRING (*PRINT-CIRCLE-HASHTABLE* FATSTRINGP STRINGLEN *PRINT-CIRCLE-NUMBER* STRINGPTR +STRINDEX) BROKENDEF (FIRSTBYTE BEFORE AFTER SIZE NEWCA OP) RENAME (TYPE) /PUTPROP (TEM X X0) +UTF16BE.OUTCHARFN (C) BRKDWNTIME (BDZ BDY BDN) \INSERTTREE (NODE-COUNT ITEM# BB NEWLEN I) UNDOLISPX1 ( +TEM X Y) /ADDPROP (TEM NEW X X0) \DRAWCIRCLE.PSC (WIDTH COLOR) TTLOADBUF (BUF CHAR NEXTCH START END) +ADDPME (PMP PX LOCKBASE) BROWSE/LAYOUT/HORIZ (N Y) TEDIT.FORMAT.HARDCOPY (PAGEFRAMES THISLINE +BREAKPAGETITLE BEFOREFN SCRATCHFILE AFTERFN WASOPEN PRSTREAM IMAGETYPE REGION) SAVEPUT (TEM OLDFLG X +X0) XCL::PUT-IMPLICIT-KEY-HASH (XCL::INDEX XCL::VALUE XCL::DELETED-SLOT-INDEX XCL::FIRST-INDEX +XCL::REPROBE) COMPILER::META-EVAL-LABELS (COMPILER::NODE) PRIN1 (\THISFILELINELENGTH) FM.WHICHITEM ( +WINDOW ITEM REGION) FONTSET (X SEEN FONTS BASICCLASSES) SPACES (\THISFILELINELENGTH) +FIND.MATCHING.WORD (BUFTAIL TAIL) PRINTNUM (WIDTH STR RAD TEMP PAD) \DRAWELLIPSE.PSC (WIDTH COLOR) +\FAST4BIT (AW I J) SIMPLEP (N X) TAB (X) GETCHARBITMAP (CHARCODE CSINFO CBM CWDTH CHGHT) MAPFILES ( +FILESPEC) BRHL/LAYOUT (YHEIGHT) MakeMenuOfImageTypes (IMAGETYPE IMAGETYPENAME) +\DO.PROGV.SETUP.FRAME.AND.EXECUTE (HEADER NT NILSTART VAR VALUES VAR# NT1 NT2 VALUEOFF) +MAKEWITHINREGION (X) \TEDIT.UPDATETREE (I PCNODE UPWARD) \TRANSLATE.3TO10 (PACKET) ALLCALLS (X) +POSTSCRIPT.TEDIT (FILE) \TEDIT.PARSE.CHARLOOKS.MENU (SCRATCHSEL NEXTB NEWLOOKS CH# BUTTON TEXT NAME +SIZE SUPER OFFSET) \MAKEBRUSH.HORIZONTAL (BM) \CORE.RELEASEPAGES (LP P) \PFGetVols (volNum) +\COURIER.TRACE (X FIRSTTIME) FB.INSERT.SUBDIRECTORIES (TAIL LASTDATA) \CORE.UPDATEOF (OFF) +\GETREGION.CHECKBASEPT (FN USERPT) MSADDMODIFIER (TABLES MODIFIERS adverb oldWordDef) PUTCHARBITMAP ( +CHARCODE) SHOW.IP (SHOWSTREAM LEN) TEDIT.BUILD.PCTB2 (DEFAULTLOOKS PCTB PIECEINFOCH# PC PCLEN TYPECODE + PCN LOOKSHASH LOOKS I PARAHASH OLDPARALOOKS CURFILECH# CURCH# OLDPC) \TEDIT.ADJUST.LINES (OYBOT +OFLOWFN OFLOW PREVLINE LL) VARSBOUNDINFORM (TEM INVAR TAIL ELT VAL) TTYINPROMPTFORWORD (TYPE C +ECHO.CHANNEL) SEDIT::START-COMMENT (SEDIT::NEW-NODE) CL:MAKE-HASH-TABLE (CL::TEST) +GET-NEXT-HISTORY-EVENT (EVENT) RPLSTRING (OLEN RBASE ROFFST RLEN RFAT REP POS OBASE FIRSTNEW I J) +\CORE.DELETEFILE (NAMETAIL EXTTAIL VERSTAIL) \SHOWTEXT (WINDOW LINES) \CORE.GETINFOBLOCK (SCR ROOT EXT + INFOBLOCK I VERS) MB.MARGINBAR.TABTRACK (X OLDX) EDITAPPLYTOLINK (MSGW FROM TO) CHAT.STARTUP (SLASH +PROTOCOL OPENFN RESULT HOST PAIR DISPLAYTYPE STREAMS WINDOW) BKSYSCHARCODE (C) FM.EDITITEM (ITEM +GROUPID ITEMID CLEARFLG) MAPFILES1 (ATTRIBUTES NAME LEN) BKSYSBUF (C *READTABLE* TTY *PACKAGE*) +\CORE.FINDPAGE (PAGETAIL PE PAGEPTR PREVTAIL) \CHTOPC (TBASE-CH# FOUND BASE-CH# I OFST TREE) NEGATE (Y +) MOVECHARBITMAP (CHARBITMAP SRCEASCENT DESTASCENT SRCEDESCENT DESTDESCENT NEWASCENT NEWDESCENT +TEMPBITMAP) \MAKEBRUSH.VERTICAL (BM) TEDIT.SELECT.LINE.SCANNER (L TL1 TLN WW L1 LN PARABOUNDS +PARASTART PARAEND LL PREVLINE LINE) \TEDIT.UNIQUIFY.CHARLOOKS (LOOK) \CORE.GENERATEFILES ( +MATCHINGFILES EXT) \TFBRAVO.EOLS (I) CH.DELETE.MEMBER.FROM.DOMAIN.ACL (OLDMEMBER DOMAIN) +COMPILER::CLOSURE-ANNOTATE-PROGN (COMPILER::STMT) PROCESS.EVALV (ME) DIRECTORY.MATCH (FIRSTCHAR) +\BITMAPTOSCREEN (SCREEN) CHECKFPTOVP (FP FPBASE) FB.SORTCOMMAND (SORTATTR REVERSED SORTFN DATETYPE +BYNAME ALLFILES SORT# ITEM DATA VALUE) FONTCOPY (OLDFONT I FAMILY SIZE FACE ROTATION DEVICE VAL +NOERROR ERROR) DIRECTORY.MATCH.SETUP (FILENAME TAIL) \FILLCIRCLE.PSC (TEXTURE TEXTUREBM TEXTUREWIDTH) +TRAPMAKE (UNFINISHED CURRY PTR ALIST LIST1 LIST2 PT1 PT2 PT4 PT3 TRAP TRAPLIST EDGELIST) TYPE.BUFFER ( +WIDTH CH START) TEDIT.BUILD.PCTB1 (DEFAULTLOOKS PCTB PIECEINFOCH# PC PCLEN TYPECODE PCN OLDPARALOOKS +CURFILECH# EXLOOK LOOK EXISTINGCHARLOOKS EXISTINGFMTSPECS CURCH# OLDPC I) FONTSAVAILABLE (DEV FONTX +FONTFACE FAMILY ROTATION) FONTMAPARRAY (F PRETTYFONT# MAXFONT MINFONT FA I) SEDIT::STRINGWIDTH (SEDIT::C + CL:LENGTH) \CORE.NEXTFILEFN (FILE) MB.THREESTATE.DISPLAY (OBJBOX X Y BITMAP DS) NAMEFIELD (SUFFIXFLG) + GAINSPACE (RESPONSE) COROUTINE (CALLPTR## COROUTPTR##) \LOOKUPFONTSINCORE (FAMBUCKET SIZEBUCKET +FACEBUCKET ROTBUCKET DEVBUCKET) GC-FILING-DIRECTORY (DIRNAME CANDIDATES TOPID HOST DIRINDEX ID PAIR +PARENT ERROR NDELETED) \TEDIT.APPLY.CHARLOOKS (CH# NEWLOOKS) CREATESCREEN (TITLEDS SCREEN) +FONTPROFILE.ADDDEVICE (NEWDEVICE OLDDEVICE FC) SPP.SENDATTENTION (EPKT) CURRENT.WORD (SNX NEW X) +EQUALHASH (UNMATCHED) \BLTSHADE.PSC (RGN LEFT BOTTOM WIDTH HEIGHT TEXTURE TEXTUREBM TEXTUREWIDTH) +FONTFILEFORMAT (STRM) GO.TO.RELATIVE (COL ROW) UTF8.PEEKCCODEFN (BYTE1 CODE BYTE4 BYTE3 BYTE2) +\IRM.WILDCARD (ATOM) \TFBRAVO.READ.USER.CM (FILE LINE ALIST) CH.LIST.DOMAINS (DOMAINPATTERN) +\TEDIT.UNIQUIFY.PARALOOKS (LOOK) CL::%%DO-TRANSLATE (CL::SUBSEQUENT-VALUES) EQUALALL (TEM J I TY FIELD +) SEDIT::TTYEXITFN (SEDIT::NEWPROC) \TFBRAVO.LCASER (Z) LISPX/1 (TEM1 TEM2 TEM3) SHAPEW (WINDOW +NEWSIZE) \PRINTFPTOVP (STREAM FIRSTPAGE NWORDS NEXTFP NEXTVP BASE NEXTLOCKED NEXTTYPE FIRSTFP FIRSTVP +LASTVP LOCKEDP TYPE) STREQUAL (LEN BNX BNY) TTDOTABS (TB SPACES) TYPENAME (N) OR (*TAIL*) DWIMIFY (VAL +) SHRINKBITMAP (Y X) CLISPIFY (EXPR PARENT TEM TAIL CLISPIFYFN VARS FORM DECLST) L-CASE (C FLG +CHANGEFLG I NEWSTRING BASE) FILEPKGCOMS.PUTDEF (COM TYP) \LOCKFN (FN) GATHEREXPORTS (TOFILE ENV) +U-CASEP (C) \UNITWIDTHSVECTOR (I) \MAKEBRUSH.DIAGONAL (BM X) BRHL/LAYOUT/DAUGHTERS (DTAIL GN D NP +FLOOR) \NSFILING.COPY/RENAME (SESSION HANDLE NEWSESSION NEWDIR VERSION DEST-UNIQUE-P NAME OLDDIR DIR +SAME-DIR-P NEWATTRS NEWPARENT OLDHANDLE RESULT SERIALSTREAM NEWHANDLE) RECORD (NAM N) WINDOWREGION (FN +) LOADFNS (DFNFLG TEM LDFLG ADDSPELLFLG BUILDMAPFLG FILEPKGFLG LISPXHIST FNLST FILE RESETSAVER +INSTREAM ROOTNAME FILENV FILEMAP FILECREATEDLOC FILECREATEDLST VARLST FILEMAPEND) EDITBM (BMSPEC +ORIGBM BM CR BPP ORIGBPP ORIGWIDTH WIDTH HEIGHT GRIDSQUARE BMWWIDTH BMWHEIGHT BMW) TEDIT.PUT (OFILE +PUTFN CACHE FONTFILEUSED CH#S PC TITLE MENUSTREAM FILENAME) %%MAKE-STRING-ARRAY-FAT (OFFSET LIMIT +NEW-BASE) POSTEDITALISTS (X FOUNDCHANGE OV) \TFBRAVO.INIT.PARALOOKS (LM 1LM VALUE) +LIST-ALL-BLOCKRECORDS (RECDEC) NEW/FN (FN1 FN) \TFBRAVO.PARAMNAMEP (L) \CORE.GETFILENAME (ROOT SCR EXT + VERS) FONTPROFILE (SEEN FONTS BASICCLASSES) FB.PROMPTFORINPUT (PROMPT I RESULT) +\ROUTINGTABLE.INFOHOOK (NUMENTRIES TABLE I BASE WINDOW STREAM) SPELLFILE (NAME VERSION EXTENSION +DIRECTORY RELATIVEDIRECTORY SUBDIRECTORY HOST DIRS DEVICE FIELDS VAL ROOTNAME FILEDATES SPELLVAL X DIR + APPFLG) TEDIT.GET.OBJECT0 (GETFN FILEPTRSAVE OBJ) DRAWAREABOX (TEXTURE) \TEDIT.DIFFUSE.PARALOOKS (PC) + FW-ADJUST-REGION (NAMEWIDTH MAXNAMEWIDTH) \TEDIT.TEXTBIN.STRINGSETUP (OFFST) +\CREATE-REAL-CHARSET.DISPLAY (XFONT CSINFO TRANSL UFONT REALFONT NEWCSINFO) TEDIT (TEXT +TEDITCREATEDWINDOW WINDOW PROC) \CORE.NAMESCAN (NEXTNAME NAMELST NEWSEG) \TEDIT.FIXINSSEL (CH# CHLIM) +CONSTANTEXPRESSIONP (FORM VALUE X) \PUTBASESTRING (CH OFFSET SOURCE) \CORE.UNPACKFILENAME (DOT SEMI) +INSERTLINE (OLDEND NEWLINE X) \SFMAKEITALIC (HEIGHT NEWBITMAP UNKNOWNOFFSET UNKNOWNWIDTH N M OFFSET +WIDTH R XN XX YN YX J I) \TEDIT.SHOW.CHARLOOKS (CH# PC NEWLOOKS) \PUTBASESTRINGFAT (I DOFF) SLITLOOP ( +KLST LAST PREV CURR PREVSGN CURRLIST SECTLIST CURRSGN) GENSYM (PREFIXLEN PREFIX CHARCODE BUFSIZE +OSTRBUFFER BUF NUMLEN CNT C I BEG.I ATOM) ALIGNMENTNODE (N) \TEDIT.GET.CHARLOOKS.LIST (I) FM.SHADE ( +GROUPID ITEMID) HCOPYALL1 (TYPE NEW ORIG SEEN) TILE (X Y W H DSTW DSTH) \CREATECHARSET.DISPLAY (TRANSL + UFONT REALFONT NEWCSINFO) \BUILDSLUGCSINFO (SCALE WIDTHS I OFFSETS BITMAP) BLTPATTERN.GENERIC (SW SH +H RW RX W DH DY) SHOWCHARS (C) \IFSERRORSTRING (START LEN RESULT I) COURIER.WRITE (X NAMEANDTYPE VALUE + NAMEANDVALUE) SEDIT::CFV-CLISP (SEDIT::INDENT SEDIT::SUBNODE SEDIT::PWIDTH SEDIT::FIRST-SUBNODE) +GetBcplString (S) \CORE.OPENFILE (INFOBLK STREAM EOL) \READDISPLAYFONTFILE (EXT FONTFILE STRM CSINFO) +\TEDIT.TEXTBIN.FILESETUP (PF FPOS CH) CLISPATOM1 (CLTYP1 ATMS TEM OPRFLAG NOTFLG BRACKETCNT BRACKET +ENDTAIL L TAIL CURRTAIL-1 LST0 TENTATIVE CLTYP TYP BROADSCOPE ISFLG BACKUPFLG) LENGTH (N X) +\NSRANDOM.OPENFILE (FILENAME) POSTSCRIPT.HARDCOPYW (REGION SCALE) \TEXTMENU.TOGGLE.DISPLAY (OBJBOX X Y + BITMAP DS) BQUOTIFY (TAIL BQCAR TL) \COREFILE.SETPARAMETERS (PAIR TYPEFLG) TEDIT.UNDO.MOVE (TOTEXTLEN +) TEDIT.PUT.PCTB2 (PC OLDLOOKS TRUEFILE OFILE CURCH# OLDCH# FONTFILE PCCOUNT PARAHASH PARALOOKSSEEN +LOOKSHASH PREVFATP PFILE PSTR CH I CH#S PREVPREVPC PREVPC) CHAT.PROMPT.FOR.INPUT (WINDOW) +MB.MARGINBAR.DISPLAYFN (WASON BITMAP DS) \DOHARDRETURN1 (HRFRAME RETURNEE AX NEW SIZE +NAMETABLE-ON-STACK RETBF) EXPANDBM (SRCEX SRCEY SRCEW SRCEH DESTW DESTH I POWER J) GETSETQ (TL) +\MKATOM (I HASH FIRSTBYTE FIRSTCHAR HASHENT CHAR# PNBASE ATM# B1 B2 REPROBE) BRHC/OFFSET (ABSY) +RAISE/TRANSITION/CHAIN (P) SHOWGRAPH (WINDOW GRAPH) \CREATE.SYMBOL (ATM I J) \GCSCANSTACK (SCANBASE Q +NEXT NTEND SCANPTR) SEDIT::COPY-NODE (SEDIT::SUBNODE) BKSYSBUF.GENERAL (SEPR OBJECT) \SCALEDBITBLT.PSC + (SCALE DESTINATIONLEFT DESTINATIONBOTTOM WIDTH HEIGHT DESTREGION TEMPBM) COMPILER::CLOSURE-ANNOTATE-MV-CALL + (COMPILER::ARG) \PARSE.NUMBER (RDTBL RADIX MAXALPHADIGIT MAXDIGIT COMMONLISPY ENDFRAC NEGFRAC EXP10 +STATE C SIGN DECPT SEENBOGUSDIGITS J SIGDIGITS START EXPSTART SEENALPHADIGITS I) SPP.OPENP (CON) +\IRM.WILD.REF (SAMEFLG) COMPILER::CLOSURE-ANNOTATE-LABELS (COMPILER::NON-LOCALS COMPILER::FUN +COMPILER::OUTER-NEED-STORAGE) APPENDINTEGER.IP (I) LAYOUTSEXPR (BOXING) \SEARCHFONTFILES (FAMILY +DEVICE FACE E DIR FONTFILE THISFONT THISFACE FONTSFOUND) \DECUSECOUNT (ALINK BLINK CLINK SIZE FRAME) +\CORE.SETFILEINFO (VALUE) PURGEDSKDIRECTORY (S) FM.REDISPLAYITEM (ITEM GROUPID ITEMID) \INCUSECOUNT ( +SCANPTR) SCANEXP (EXP) BLTPATTERN (SW SH OPER TW TH SRCE SX SY) COMP.STJUMP (TAG JT OP NV) DO?CMD ( +SAVE) \INITATOMPAGE (VALBASE I OFF) GETSELECTEDITEMS (ITEM) \CORE.GETNEXTBUFFER (COFF CPAGE# EPAGE# +COREBUF) \PROMPT.FOR.PUP.NUMBER (NEWNUMBER) SIMPLETEXTEDIT (INSTREAM MAINOUTPUT) +INSPECT/AS/BLOCKRECORD (CHOICES RECNAME) MB.NB.DISPLAYFN (BITMAP DS X Y IMAGE STATE BXVAL BYVAL BUTTON +) \MOVEFRAME (NEW FREESIZE AT-EOS OLDSIZE NAMETABLE-ON-STACK) SPELLFILE1 (FL NAME1 EXT1 VERS#1) +WINDOWWORLD (SCREEN) \ALLOCBLOCK (NCELLS GCTYPE ALIGN ABLOCK) \SETUPUSERSTACK (BASE) SLICESET (OFFSET +I) \NSFILING.NEXTFILE (INFO NAME) TEDIT.GET.CHARLOOKS0 (NAMELEN NAME I SIZE SUPER SUB STYLESTR USERSTR + PROPS) \GATHER-CLEANUP-FORMS (PROC FRAME) SEDIT::CONTAINS? (SEDIT::START-1 SEDIT::END-1 SEDIT::NODE-1 + SEDIT::START-2 SEDIT::END-2 SEDIT::NODE-2) SEDIT::LINEARIZE-CLISP (SEDIT::INDEX SEDIT::INDENT +SEDIT::COMMENT-START-X SEDIT::COMMENT-INDENT SEDIT::SUBNODE SEDIT::COMMENT? SEDIT::OK SEDIT::KEYWORD? +SEDIT::PROGRAM-WORD? SEDIT::SECOND-SUBNODE) \FONTINFOFROMFILENAME (NAME SIZEBEG CH CH# FAMILY SIZEND +SIZE FACE EXT) \FONTFILENAME.OLD (FACE) TTYIN.SHOW.?ALTERNATIVES (STARTOFWORD X MATCHED DOWNCASE) +MBUTTON.FIND.NEXT.BUTTON (PC OBJ START-OF-PIECE) \FONTFILENAME (FACE TAIL) SCANDEFINEQ (TAIL FNAME) +SPELLFILEDIR (H) \AGE.ROUTING.TABLE (BUCKET ENTRY PURGED TAIL TABLE I) MAPATOMS (A LASTPAGE LIMIT +FIRSTPAGE DISP FREE ATOM# DATUMBASE N MDSPAGE#) \EXTENDSTACK (SCANPTR) EXTEND/TRANSITION/CHAIN (LX RX +LTAIL RTAIL) COMPILER::CLOSURE-ANNOTATE-LAMBDA (COMPILER::NON-LOCALS COMPILER::OPT-VAR COMPILER::KEY-VAR + COMPILER::*NEED-STORAGE* COMPILER::VAR COMPILER::OUTER-NEED-STORAGE) SPELLFILE.SPELL (VERSION) +COMPILER::CLOSURE-ANNOTATE-MV-PROG1 (COMPILER::STMT) \NSFILING.SETFILEINFO (RESULT) ATOMHASH#PROBES ( +BASE OFFST LEN FATP FATCHARSEENP DESIREDATOM# STRING C FIRSTCHAR FIRSTBYTE HASH CHAR# HASHENT PNBASE +B1 B2 REPROBE PROBES) ONEDINSPECTW.CREATE (XCL:*PROFILE* PROPS DISPLAYWINDOW RIGHTWINDOW TITLEWINDOW +GLEFT GBOTTOM GWIDTH GHEIGHT WINDOWGROUP) CH.ADD.MEMBER.TO.DOMAIN.ACL (NEWMEMBER DOMAIN) +TEDIT.GET.PARALOOKS0 (TABSPEC TABFLG DEFAULTTAB TABCOUNT TABS TAB#) LISPFORM.SIMPLIFY (Y X) +MAXATTACHEDWINDOWEXTENT (EXTENT TL TC TR RT RC RB BR BC BL LB LC LT ATW ATWDTH ATWHGHT WHERECODE +ATWHERE) SEDIT::UNDO-EXTRACT (SEDIT::SUBNODE SEDIT::INDEX) MSPRINTHELPFILE (FL) +\TEDIT.GET.PARALOOKS.LIST (I) SEDIT::SKIP-TO-GAP (SEDIT::NODE) \HANDLE.RAW.PUP (DESTNET MYNET PUPSOC +SOC CSUM) \FONTFACE.COLOR (DEV ANSWER FACE POS BWFACE OLDPOS BITSPERPIXEL BACKCOLOR FORECOLOR) UNDOSET + (TEM) DO-HISTORY-SEARCH (PAT2) DBG::MAKE-FRAME-INSPECT-WINDOW (DBG::BTWINDOW DBG::ATW DBG::TTYREGION) + SCANDECLARECOLON (TEM EVALFLG) \DSPSCALE.PSC (NSCALE) \FINDFONTFILE (EXT FONTFILE) INSTALLBRUSH ( +OLDENTRY BRUSHARRAY X) SPELLFILE.MATCHINGDIRS (DIR UDIR DHOST) \COURIER.RESULTS (RESULT MSGTYPE +ERRORDEF OTHER ERR) \PAGEDEOFP (CUROFFSET) SEDIT::TRANSLATE-CHARS (SEDIT::C SEDIT::R) FMAPRINT (SEP +LST) \PFInitializeVols (volNum) POSTEDITPROPS (NEWPROP OLDPROP OV FOUNDCHANGE) +\FIND.LOCALPUPHOSTNUMBER (NEWNUMBER) \SFLHASHLOOKUP (PROBE HASHENT) \TEDIT.APPLY.PARASTYLES (NOSTYLE +STYLE) ED (CL::NAME CL::OPTIONS X TYPE) FIXSPELL1 (MESSFLG TEM APPROVALFLG BUFS VAL X) \POLYSHADE.BLT +(fulllist currlist currcrit scany scan fullcrit count ex clist ty crity) \NSRANDOM.READPAGES (CACHE +NMORE I EXTRABUFFERS) PUTD (DEF) VAR.NOT.USED (VAR) \NODIRCORE.OPENFILE (NAME) DECLSUBFIELD (SUBTRAN +SUBNAME) \PUTD (CODEBASE DVAL) FIXDATUM (X TEM VAL) BLTPATTERN.REPLACEDISPLAY (W H RX RW SW RY RH SH) +PRINTERS.WHENSELECTEDFN (PRINTERCHOICE) COPYGRAPH (N) SI::UNWIND-TO-BLIP (UNWINDER TARGET PC) +TEDIT.HARDCOPY (IMAGETYPE) \INIT-MISCN-TABLE (BASE) SCALEBM (SRCEWIDTH SRCEHEIGHT DESTWIDTH DESTHEIGHT + TEMPBM) EVALUABLE.CONSTANTP (X Z VALS) BLOCKCOMPILE (BLKFNS BLKNAME) \NSFILING.GETFILEINFO ( +DESIREDPROPS INFO HANDLE) POSTSCRIPT.PUTCOMMAND (S#S STR#) CLOSEALL (STREAM) REMOVETONODES (Z) +SI::NON-LOCAL-RETURN (I) ARGS.COMMUTABLEP (X Y FN) PFI.AFTER.NEW.PAGE (RIGHT LEFT) +SEDIT::COMPUTE-SELECTION-POSITION-DEFAULT (SEDIT::END) COMPILER::FIND-TOP-ENVIRONMENT (COMPILER:ENV) +\WALKOVER.SPECIALFORMS (LL FORM) TEDITFROMBRAVO (TEXTOBJ USER.CM.ALIST OLDPLOOKS USER.CM.PARALOOKS +USER.CM.CHARLOOKS START CURRENT.PARAGRAPH NEXTPARAPTR SMALLEST.MARGIN) MISCN-COLLECT (I) +MINATTACHEDWINDOWEXTENT (TL TC TR RT RC RB BR BC BL LB LC LT ATW EXTENT ATWDTH ATWHGHT WHERECODE +ATWHERE) \STKMIN (LEVADJ I CODE MAX OP STKE DEPTH PC) MB.MARGINBAR.SELFN (OL1 OLN OR L1 LN R TAB TABX +TABS) \FINDOP (I) \LFFindDirectoryVol (VOL nextVolumes vols vol) \GET-COMPILED-CODE-BASE (X) +\DECL.COMNT.PROCESS (L Y COMNTS DECLS) UTF8.INCCODEFN (BYTE1) ROMANNUMERALS (CHARS NUMBER) +\FONTFILENAME.NEW (FACE SIZEPATT) TWODINSPECTW.CREATE (ROWPROPS COLUMNPROPS XCL:*PROFILE* +DISPLAYWINDOW TOPWINDOW RIGHTWINDOW CORNERWINDOW TITLEWINDOW GLEFT GBOTTOM GWIDTH GHEIGHT WINDOWGROUP) + IRNDLIST (X Y) SETA (A N0) CALLS3 (FLG) GRAPHOBJ.IMAGEBOXFN (GRAPH HALIGN VALIGN REGION ALNODE) +WHENCLOSE (FN I) ARRAY (SIZE TYP NCELLS GCTYPE INITVAL AP LASTWORD2BASE P) AS.MAKE.CONVERSATION ( +USERINFO ADDR STREAM CRED.PACK) \WALKOVER.FUNCTION (FN) BRHC/LAYOUT/DAUGHTERS (D GN LST/DCENTER +1ST/DCENTER TTC BTC OFFSET) COPY.WINDOW.TO.BITMAP (REGION SCREEN LEFT BOTTOM WIDTH HEIGHT BITMAP +SOFTCURSORUP DISPINTERRUPT) \10MB.GETPACKETSTATUS (STATUS) \SELITEM.FROM.PROPERTY (SELITEM) +\FONTINFOFROMFILENAME.OLD (NAME SIZEBEG CH# FAMILY SIZEND SIZE) ASKUSERCHAR (C1 C2) MOVE.FORWARD.TO ( +BUFTAIL) \MEDW.CARET.SHOW (DS DD CARETWIN CBMX CBMY CURSOR CARETBM CWX CWY CARETBMWIDTH CARETBMHEIGHT +CLIPREG CLIPVAR) \TEDIT.EXPANDED.MENU (CHARMENUTEXTSTREAM) \DELETETREE (NODE-COUNT ITEM# BB I NEWLEN) +\NSFILING.GENERATE.STARS (N NAME) TEDIT.GET.OBJECT1 (GETFN FILEPTRSAVE OBJ) MSDESCRIBE (ARGS LINE VAR +GLOBALS FREES D L) \READSTRIKEFONTFILE (CSINFO FIRSTCHAR LASTCHAR RW HEIGHT BITMAP NUMBCODES OFFSETS I + J WIDTHS) SI::PVAR-VALUE-IN-FRAME (NAME TMP OFFSET) MAKEUSERMACROSCOMS (X VAR TEM Y LST) +SHOW.CLEARINGHOUSE (SEXPR) \READACFONTFILE (STRM STARTCHAR ENDCHAR BBOXLIST FBBLIST CHARWIDTHLIST +CHARIMAGEWIDTHLIST DUMMYWIDTH LEFTKERNS BOX I IMAGEWIDTHS WIDTHS Y X CHARBITMAP DUMMYCHAROFFSET +OFFSETS STARTWORDLIST BBLIST STARTWORD CHARWIDTH DESTLEFT RASTERINFO BBOX BBBITMAP BBBMBASE NTHCHAR) +SI::VARIABLE-NAME-IN-FRAME (NAME NTBASE NT2BASE) COLLECTFNDATA (VAL) PFCOPYBYTES (FONTARRAY MAXFONT +%#CHARS START CHARCODE) MSDESCRIBE1 (LL P LST) MOVETOFILE (TYPE) ASSURE.PUP.READY (MYHOST# NDB) +IMPORTFILE (FILE) \MEDW.GETSCREENREGION (BASEPT OPPT MINWIDTH MINHEIGHT NEWREGFNS SHADE NOTTIMEDOUT +DESTINATION X BASEX BASEY OPPX OPPY INITLEFT INITRIGHT INITBOTTOM INITTOP BEGCLOCK DOWNFLG OLDMOUSEX +OLDMOUSEY) RETURN (FRAME) LOOKUPHASHFILE (HASHFILE Z KEYVAL RETFLG RETVAL) \DISCARDFRAME (NEWCLINK +OLDUSECOUNT) MBUTTON.FIND.BUTTON (PC OBJ START-OF-PIECE) FM.RESETSTATE (GROUPID ITEMID) +\TEDIT.GET.PARALOOKS1 (TABSPEC TABFLG DEFAULTTAB TABCOUNT TABS TAB#) \TEDIT.NEXT.LINE.BOTTOM ( +BASETOBASE PARALOOKS NEWYBOT PARALEADING) FB.CANONICALIZE.PATTERN (SAMPLEHOSTEND LASTPATDIR) PF (FN +OTHERARGS IFILES OUT FILE) LISTRECORDEFS (CROPS TL) CL:FIND-SYMBOL (NAME PACKAGE) NUTF8STRINGBYTES (C +I) CHANGETRAN1 (ARGS VAR1 FORM TEM ELT EXP) TEDITWINDOWP (WINDOW) MakeMenuOfPrinters (P) CL:FIND (END) + TB.COLLECT.ITEMS (PREDFN ITEM) FINDFNDEF (FULL MAP GROUP VALUE) TRAPLOOP (PT.LESSP PLIST PATH KNOTS +LEN CLIST IPATH JPATH XPATH KPATH TEMP K J I) CL:SYMBOL-FUNCTION (CL::DEF) \NSRANDOM.WRITEPAGES (BUF P + SESSION BYTESTOSTORE LASTPAGE BYTES-TIL-EOF CURRENTEOF ERROR ATTRS) \BASEBYTES.BLOCKIO (SBASE CO EO +OFFST N BASE) SCROLL.HANDLER (SCROLLREG SCROLLW DIRECTION SCROLLCURSOR LEFTCURSOR RIGHTCURSOR +MIDDLECURSOR TIMEIN CONTINUOUSSCROLL? BUTTON TIMEDOWN) ELT (N0 BASE) UNDOLISPX3 (TEM L MARKER L1 L2) +\SFROTATECSINFOOFFSETS (NEWOFFSETS CHARCODE) PROCESSPROP (P OLDVALUE OLDDATA NEWVALUE TAIL) PRINTFNDEF + (TEM DSTFIL SRCFIL) \FONTRESETCHARWIDTHS (dummycharoffset dummycharwidth left right charcode) +ROTATE-BITMAP (I) \NSRANDOM.TRUNCATEFILE (CURRENTEOF NEWEOF SESSION ERROR ATTRS) NORMLOOP (LOOP LAST +Y1 Y2 PREVSGN HEAD ANTISGN) FM.CHANGESTATE (NEWSTATE GROUPID ITEMID X) GRAPHOBJ.DISPLAYFN (BOX REG) +SEDIT::BUILD-NODE (SEDIT::SUBNODES SEDIT::TAIL) SEDIT::CFV-DOTLIST (SEDIT::PAREN-WIDTH SEDIT::SUBNODE +MAX) DBG::STACK-FRAME-STOREFN (DBG::FN) CLEARSTK (FX LST I PTR) \BASEBYTES.SETFILEPTR (I') +CHAT.CHOOSE.PHONE.NUMBER (NUMBER NEWNUMBER CHAR) ROTATE-BITMAP-LEFT (I) \NSRANDOM.SESSION.WATCHER ( +SESSION S WRITING? TIMEOUT BASICTIMER CONTINUANCE) \BASEBYTES.READP (%#LEFT) ASKUSER1 (ENTRY TEM) +HVFWDREAD (CH VAL) \SFMAKECOLOR (BACKCOLOR FORECOLOR BITSPERPIXEL CHARACTERBITMAP COLORCSINFO) +ICMLARRAY.VALUECOMMANDFN (INDEX SLICE DISPLAYWINDOW ROW COLUMN SLICERANK) /SETTERMTABLE (TTBL) +CH.GETAUTHENTICATOR (INFO) \BASEBYTES.BOUT (CO) STRIKECSINFO (WIDTHS IMWIDTHS OFFSETS OLDBM +DUMMYOFFSET BMHEIGHT BMWIDTH I NEWOFFSETS NEWBM NEWOFFSET OLDOFFSET NEWWIDTH) %#BITSON (NBITS MASK I) +CH.FINDSERVER (DOMAINPATTERN ORGANIZATION.INFO DOMAIN.INFO) INITIALEVALQT (FL RL L) +\TEDIT.PRESS.HARDCOPY (FILE) FB.PROMPTWPRINT (THING ITEM) ASKUSER$ (ENTRY KEY0 NC0 I TEM) +WRITESTRIKEFONTFILE (MAXCODE DUMMYINDEX CHARSET CSINFO WIDTHS OFFSETS IMWIDTHS DUMMYOFFSET FIRSTCHAR I + LASTCHAR DUMMYCHAR STREAM MAXWIDTH RASTERWIDTH LENGTH CODE OFFSET WIDTH) DBG::STACK-FRAME-FETCHFN ( +DBG::FN) INTERPRET.REM.CM (FILE COM I) BRECOMPILE2 (N) UNICODE.UNMAPPED (INVERSE NEXTCODE) +UTF8.OUTCHARFN (C) LIST (L J) COMPILER::CLOSURE-ANNOTATE-CALL (COMPILER::ARG) \SETUPSTACK1 (ARGSLENGTH + SP ARGS STKP) TTMAKECOMPLEXCHAR (WIDTH NC) SIMPLEPRINT (I N X) \MEDW.GETBOXSCREENPOSITION (ORGX +BOXWIDTH ORGY BOXHEIGHT SHADE MOUSEDOWNFLG) FASL::DO-OP (FASL::VAL) GRAPHOBJ.PUTFN (GRAPH) CL:REMOVE ( +END) PRESSFILEP (FILE) SEDIT::MUTATE (SEDIT::MUTATOR-STRING SEDIT::MUTATOR) MULTIFILEINDEX (FILES F) +\PFCreateVols (vol volNum) \RESETSTACK0 (TMP I BASE) \MAKEBASEBYTESTREAM (LEN ACCESS OSTREAM) +SUBRNUMBER (NUMBER) COMPERRM (FL) \MBS.OUTCHARFN (STREAM) SLICEREF (OFFSET I) \BASEBYTES.TRUNCATEFN ( +I') \TEDIT.GET.CHARLOOKS1 (NAME SIZE SUPER SUB PROPS) OPENSTRINGSTREAM (FATP STREAM) +\BUILDATWSTRUCTURE (WHEREAT ATWIN EDGEBUCKET ATWINFO WHEREONEDGE PLACEHOLDERATW) +\PFInitFileDescriptors (volNum) MAKELISPXMACROSCOMS (TEM TEM2) TTYINEDIT (PRINTFN \PROMPT1) +INITBITMASKS (MASK I) SEDIT::MARKASCHANGEDFN (SEDIT::CONTEXT) SCANFILE1 (LST X FNAME TEM Y DEFUNFLG +DICTTAIL) \UPCASEBASE (I) /SETREADTABLE (RDTBL) \CLEARCELLS (BASE NCELLS) EVALQT (LISPXID) +COURIER.CALL (PGMDEF PROCDEF NARGS ARGTYPES NOERRORFLG ARGLIST I) RECORDECL1 (DECL FIELDINF TYPECHECK +CREATEINFO CNT X CL TEM1 NAME TAIL CREATETYPE DEFL FIELDNAMES TRANSLATION) STRING.EQUAL (LEN BASEX +OFFSETX FATPX X BASEY OFFSETY FATPY Y CABASE I C1 C2 BNX BNY) UNDONLSETQ1 (TEM LST1) BRHC/LAYOUT (H/2 +X/SW YCENTER) GetImageFile (FILE FILETYPEMENU PRINTFILETYPE) FM.GETITEM (ITEM) \CAUSEINTERRUPT (NXT +FRAME) \TEXTMENU.START (WW MENUW WREG MENUTEXT) CRITSECT (IX1 TX1) TEDIT.HCPYFILE (FILENM TEXTOBJ +TXTFILE) SCANFILE0 (FNADRLST DICT0 NXT1 NXT2 NXT) FM.HIGHLIGHTITEM (ITEM GROUPID ITEMID) +\COURIER.OUTPUT.ABORTED (CONTINUATION RESULT FILENAME) LAST (XX X) TB.NTH.ITEM (TAIL TAILN) +RECORDECLTAIL (TL) HVREADEND (CHAR) CH.LOOKUP.OBJECT (OBJECTPATTERN) CREATEPAGES (I) TTUNREADBUF (X) +\InitCurveBrushes (BARRAY CREATIONMETHOD SIZE) TEDIT.RAW.INCLUDE (INFILE WASOPEN HOLDSTART HOLDLEN +START END TEXTLEN PCTB INSERTCH# INSPC INSPC# PCLST LEN) /RAISE (FLG) INTERRUPTED (MP) +PFI.SETUP.TRANSLATIONS (FONT PAIR) \TEDIT.CUMULATE.EVENTS (CHCOUNT PC) XCL:COMPILE-FORM (COMPILER::VALUE +) \TEDIT.RESHAPEFN (WHEIGHT LINES LINE FIRSTCH#) DEFAULTSUBITEMFN (ITEM) MAKE-UNICODE-FORMATS ( +EXTERNALEOL) \ZEROWORDS (BASE) /PUT+1 (X) COMP.CALL (N A) GETBOXSCREENREGION (SCREENPOS) +FASL:OPCODE-SEQUENCE (FASL::ENTRY) DSPDESTINATION (DD DISPLAYSTREAM) IRM.CREF.BUTTONEVENTFN (N) +\GATHER-CLEANUP-FORMS1 (NT IVAR B BINDINGS FOUND-UNWIND R FRAME) DO.EDIT.COMMAND (EDITARG EDITMINUS +CHAR X LASTSKIP L) \MEDW.GETSCREENPOSITION (WINDOW) UPDATEPCNODES (PC UPWARD I ITEM) \DISABLEGC1 ( +TYPEBASE) \GATHER-SPECIAL-BINDINGS (NAME CODE TMP BINDINGS OFFSET) RECORDECLBLOCK (SPEC FNAME DEFAULTS + Z I TMP RPT FIELDNAMES SPECS FI X Y) RECORDERROR (MESSAGE AT IN TEM) \GC.MODIFY.BIGREFCNT (PTR TMP +OVENTRY) \MAKE.PROCESS0 (*STANDARD-OUTPUT* \TERM.OFD *STANDARD-INPUT* \INTERRUPTABLE TMP RESULT +%#FORM#) CHECKSAMEDIR (FILE OKHOST/DIRS HOST/DIR OLDFILE NEWV) TMPSUBFN (NX C I N) CHAT.TYPESCRIPT1 ( +FILE) COMPILER::CLOSURE-ANNOTATE-BLOCK (COMPILER::NON-LOCALS COMPILER::OUTER-NEED-STORAGE) FILLNGON.IP + (NPOINTS BASEANGLE ANGLE X Y I) COMP.ARG (A) BITBLT (DESTINATIONLEFT DESTINATIONBOTTOM SOURCELEFT +SOURCEBOTTOM SOURCEBM CLIPPEDSOURCELEFT CLIPPEDSOURCEBOTTOM WIDTH HEIGHT SOURCEDD TEXTURE SOFTCURSORUP + DISPINTERRUPT STREAM SCRATCHBM) PFI.MAKE.LPT.STREAM (TEMPS SCALE REG PRINTOPTIONS S) +\GC.ENTER.BIGREFCNT (PTR TMP OVENTRY) TEDIT.UNPARSE.PAGEFORMAT (PAGENOS PX PY SPECS PFONT PQUAD +HEADINGS COLS COLWIDTH RIGHT INTERCOL OLDRIGHT LEFT TOP BOTTOM SCALEFACTOR) TTCOMPLETEWORD (START +FIRSTMATCH NEXTCHAR TAIL LASTCHAR MUST.BE.UNIQUE UNIQUE WORD SUFFIXCHARS FIRSTMATCHCHARS I REFERENCE +CH RETYPELENGTH RETYPEBUF RETYPETARGET ESCAPED BUF J OLDLENGTH NEEDADJUST) \BLTSHADE.BITMAP (left +bottom top right DESTINATIONNBITS DESTINATIONLEFT DESTINATIONBOTTOM TEXTURE HEIGHT) \BITBLT.BITMAP ( +top DESTINATIONNBITS left bottom SOURCENBITS right stodx stody TEXTURE HEIGHT WIDTH DTY DLX STY SLX +DBOT DLFT) \SEARCHOPENFILES (STREAM) \FORMATLINE (CH#1 ORIGCHLIST CHLIST ORIGWLIST WLIST LOOKS +TEXTSTREAM TERMSA CLOOKS LOOKNO PC INVISIBLERUNS TLEN CHNO ORIGFMTSPEC FMTSPEC HARDCOPYMODE DEVICE +SCALE DEFAULTTAB LEFTEDGE TABSPEC FONT ASCENTB NEWASCENT DESCENTB NEWDESCENT 1STLN TX WIDTH TXB1 CH DX + BOX GATHERBLANK CH#B PREVSP T1SPACE PREVDHYPH PREVHYPH TXB DXB LOOK#B ASCENT DESCENT INVISIBLERUNSB +%#BLANKS FORCEEND TABPENDING TEXTLEN) CHAT.TYPEOUT (TERM.STATE CH MSG TYPESCRIPTSTREAM CRPENDING CNT) +SEDIT::SCAN-STRING (SEDIT::INDEX SEDIT::CWIDTH SEDIT::C SEDIT::OFFSET SEDIT::X SEDIT::IN-MULTI-ESC) +COMP.LAM1 (X) \HARDRESET-CLEANUP1 (HEADER NT NILSTART VAR0CODE PVARBASE VAR VAR# NT1 NT2 OP +ERRORS-SEEN INFO SLOT NEXT) HVBAKREAD (HV READVAL HV1 HV2 HV3 I) \HARDRESET-CLEANUP (TABLE VARTAIL +MASTERLIST LINEARBINDINGS VALUE OLDVAL VAR INDEX NVARS NNILS NTSIZE) SEDIT::SELECT-SEGMENT-DEFAULT ( +SEDIT::START SEDIT::END SEDIT::INDEX SEDIT::LINEAR-ITEM SEDIT::LINEAR-INDEX) HASH.PASSWORD (CHAR HASH) + GETBLOCKDEC (FILE BLOCK) GRAPHOBJ.GETFN (IMAGEOBJ) /LISPXPUT (LST Y) VARIABLES (N L) ASKUSERSETUP ( +TEM) \GC.LOOKUP.BIGREFCNT (PTR TMP OVENTRY) SPP.FORCEOUTPUT (EPKT STREAM) /RADIX (N) \GCMAPSCAN (ENTRY + PROBE PREV LINK PTR) SI::BQUOTE-CONS (SI::CONSTA SI::CONSTD) LOADBLOCK (FILE TEM) \BACKFORMAT (CH1 +CHNO CH NLINE LINES) \GCMAPUNSCAN (ENTRY PROBE LNK PREV) FIND.NON.SPACE (END BUF) \IRND (N D) +GRAPHOBJ.BUTTONEVENTINFN (W) FB.COUNT.FILE.CHANGE (SIZE) STACK.FULL.WARNING (FLG) RENAMEFILE (OLDFILE +NEWFILE) FW-FORGET-STREAM (STREAM OFD) \DISPLAYLINE (LHEIGHT SCALE CACHE DISPLAYDATA DDPILOTBBT +XOFFSET CLIPLEFT CLIPRIGHT OFONT OLOOKS DDWIDTHCACHE DDOFFSETCACHE LOOKSTARTX CH DX LOOKNO TTX CURY TX + I) TEDIT.FORMATBOX (LINES LAST-CHNO SUBREGION SUBREGIONSPEC LINE CHNO) FB.UPDATEBROWSERITEMS (PATTERN + INFOWANTED SPEC PROTO W INDEX FILEGENERATOR CONDITION NOW FILENAME NEWFILEDATA OTHERFILES +PREVGROUPDATA LASTFILEDATA WIDENED) \CARET.FLASH.MULTIPLE (STR CARET) SIMPLE.FINDFILE (DIR) \REFCNT ( +ENTRY CNT LINK) \ALLOCMINIMUMSIZES (RESTATWS WININFO THISMINHEIGHT NOWHEIGHT NOWWIDTH THISMINWIDTH +WINDOWPILE NEWWIDTH EXTSIZE NEWHEIGHT EXPANSIONWIDTH FIXEDVAR NEWEXPANDABLEWIDTH EXPANSIONHEIGHT +NEWEXPANDABLEHEIGHT) \EQREFCNT1 (ENTRY LINK) \PFCreateFileDescriptors (volNum) RESET (FX) OPT.JFIXPASS + (X) \COPYSYS (FILE HOST FULLNAME VAL) NIL +SMASHFREE \GETMAPBUFFER (MAPEMPTYBUFFERLIST) COMPILE-FILE-SCAN-FIRST (FIRSTFORMS) COMP.APPLY* (FRAME) +\INTERPRETER (\InterfacePage) \RTP.CLEANUP (\BSPSOCKETS) WHO-LINE-VMEM (*WHO-LINE-LAST-VMEM*) +RESET.INTERRUPTS (\CURRENTKEYACTION) SI::FINISH-ADVISING (SI::*UNADVISED-FNS* ADVISEDFNS) PRINTDEF1 ( +NEWFILEMAP) TEDIT.NEW.FONT (TEDIT.KNOWN.FONTS) \WRITEDISKPAGES (\InterfacePage) PFI.SETUP.TRANSLATIONS + (*STANDARD-OUTPUT*) \PEEKREFILL (\LINEBUF.OFD) \TEDIT.COMMAND.LOOP (TEDIT.SHIFTEDSELECTION +TEDIT.COPYLOOKSSELECTION TEDIT.MOVESELECTION TEDIT.DELETESELECTION) \ALLOCVIRTUALPAGEBLOCK ( +\InterfacePage) XCL:TRACE-FUNCTION (XCL::*UNBROKEN-FNS*) FORWARD.DELETE.TO (\ARROW) \MEDW.DSPCREATE ( +IMAGEDATA) COMP.EXPR (FRAME) FILECREATED (FILECREATEDLST) MAKEINITBFS (\MAINDISK) PACKAGE-ENABLE ( +*OLD-INTERLISP-READ-ENVIRONMENT*) CHAT.CLOSE (CHATWINDOWLST) EDITBF1 (FF) \RETCALL (\InterfacePage) +\DL.ASSIGNBUFFERS (\InterfacePage) \CH.FIND.ORG.SERVER (\CH.CACHE) \VFMReadNext (\VFMhigh) +\DECODETRANSITION (\INTERRUPTSTATE) TEDIT.GET (TEDIT.SELECTION TEDIT.SHIFTEDSELECTION) \VFMDelete2 ( +\VFMhigh \VFMbuffer) \BLTSHADE.DISPLAY (\SYSPILOTBBT) \ADVANCE.STORAGE.STATE (\InterfacePage +\SYSTEMCACHEVARS) TTYIN.SETUP (\TTYINSTATE) \EXTENDISFMAP (\ISFMAP) \DOSTORAGEFULLINTERRUPT ( +\INTERRUPTSTATE) COMPILER::FRAME-ANNOTATE-LAMBDA (COMPILER::*REFERENCES*) TEDIT.FORMATPAGE ( +*TEDIT-PAGE-BREAKS*) KILLSEGMENT (\TTYINSTATE \ENDBUFFER) MSDOES (LASTPARSED) \KEYBOARDINIT ( +\SYSBUFFER \KEYBOARDEVENTQUEUE) \ETHEREVENTFN (\LOCALNDBS) BLOCK%: (BLOCKS) BREAK-FUNCTION ( +XCL::*UNBROKEN-FNS*) TTYIN.FINISH (\TTYINSTATE) TTDELETELINE (\ARROW) \VFMInsert1 (\VFMbuffer) +HVFWDREAD (BACKREFS) \MAKE.COURIER.REP.STREAM (\COURIER.REP.DEVICE) DWMFY2 (TAIL) \SPP.CLEANUP ( +\SPPDEVICE) CHANGEBACKGROUNDBORDER (\IOPAGE) MB.THREESTATE.WHENOPERATEDFN (TEDIT.SELECTION) +\CHAIN.UP.RPT (\REALPAGETABLE) DODIRCOMMANDS (VALUE) \KEYHANDLER1 (\KEYBOARDEVENTQUEUE) TTYIN1 ( +\LINEBUF.OFD \ARROW) \DEFINEDEVICE (\DEVICENAMETODEVICE \FILEDEVICENAMES \FILEDEVICES) \TELERAIDBREAK +(\InterfacePage) \CURSORPOSITION (\IOPAGE) BROWSE/LAYOUT/HORIZ/COMPACTLY (NODELST) CL:MAKE-ECHO-STREAM + (%%ECHO-STREAM-DEVICE) TTYIN1RESTART (\ARROW) BREAKDOWN (BRKDWNLST) \BITBLT.DISPLAY (\SYSPILOTBBT) +INITGC (\HTCOLL) CL:MAKE-SYNONYM-STREAM (%%SYNONYM-STREAM-DEVICE) \DOGCDISABLEDINTERRUPT ( +\INTERRUPTSTATE) \DOSTACKFULLINTERRUPT (\INTERRUPTSTATE) CLISPFORINITVAR (INITVARS) +CL:MAKE-TWO-WAY-STREAM (%%TWO-WAY-STREAM-DEVICE) \INITBFS (\SWAPREQUESTBLOCK) \BITBLT.BITMAP.SLOW ( +\SYSPILOTBBT) NEW/FN (/FNS LISPXFNS) \VFMMerge1 (\VFMxtraBuffer \VFMbuffer rightInterval) +\PUNT.BITBLT.BITMAP (\SYSPILOTBBT) \PUTSYSBUF (\SYSBUFFER) \FILLBUFFER (\LINEBUF.OFD) SHRKFY (RESULTP) + \STARTDISPLAY (\MAINSCREEN) WTFIX1 (FAULTX) PFI.HANDLE.* (*PFI-PENDING-COMMENTS*) OPT.LBDEL (CL:LABELS +) FW-CREATE-OFD-LIST (FW-OFDList) \CH.UPDATE.CACHE (\CH.CACHE) RETDWIM (HISTENTRY TAIL) MSPATHS1 ( +NAMED) \RESETTERMINAL (\LINEBUF.OFD) DO.EDIT.PP (\ARROW) ERASEPROPS (SMASHPROPSLST1) \DECPARENCOUNT ( +\LINEBUF.OFD) COMP.COMPARENUM (CODE) \HTFIND (\HTCOLL) \PUNT.BLTSHADE.BITMAP (\SYSPILOTBBT) +DUMPINITPAGES (\InterfacePage) \CreateScreenBitMap (ScreenBitMap) VIDEOCOLOR (\IOPAGE) \REMOVEDEVICE ( +\FILEDEVICENAMES \DEVICENAMETODEVICE \FILEDEVICES) \SETUP-COMPILED-CLOSURE-CALL (\InterfacePage) +\VFMSplit1 (\VFMhigh \VFMxtraBuffer \VFMbuffer) \INITSPP (\SPPDEVICE) EMBEDPROG (BINDINGS) I.S.OPR ( +CLISPFORWORDSPLST) DELETE.TO.END (\ARROW) CLISPATOM1 (CURRTAIL) \DOVMEMFULLINTERRUPT (\INTERRUPTSTATE) + PACKAGE-DISABLE (*OLD-INTERLISP-READ-ENVIRONMENT*) \CURSORDESTINATION (\IOPAGE \SOFTCURSORBBT1 +\SOFTCURSORBBT5 \SOFTCURSORBBT6) \TEXTMENU.TOGGLE.WHENOPERATEDFN (TEDIT.SELECTION) SCRATCHCONS ( +\TTYINSTATE \ENDBUFFER) \RESETSTACK0 (\InterfacePage) \RESETKEYBOARD (\KEYBOARDEVENTQUEUE \SYSBUFFER) +PAINTW (PAINTCOMMANDBRUSH) HASHBEFORECLOSE (SYSHASHFILELST) LISPX (ARCHIVELST) SCANFILE2 (FNLST) +BCOMPL1A (FIRST OTHERS) %%SYNONYM-STREAM-DEVICE-CLOSEFILE (%%SYNONYM-STREAM-DEVICE) +\MAIKO.ASSIGNBUFFERS (\InterfacePage) SI::FINISH-UNBREAKING (BROKENFNS XCL::*TRACED-FNS*) PFI.ENQUEUE +(\PFI.PROCESS.COMMANDS) \REMOVEDEVICE.NAMES (\DEVICENAMETODEVICE \FILEDEVICENAMES) GETDUMMYVAR ( +DUMMYVARS) \VFMPutNext (\VFMlow) DISPLAYAFTERENTRY (CursorBitMap) SPLITKEY (HASHSCRATCHCONSCELL) +RESTOREBUF (\ENDBUFFER \TTYINSTATE) \TRACKCURSOR (\IOPAGE) \VFMFind (\VFMhigh) \SETUP-ENVIRONMENT-CALL + (\InterfacePage) SCANEXP (FILECREATEDLST) COMP.LOOKUPCONST (CONSTS) COMPILER::FRAME-ANNOTATE-TAGBODY +(COMPILER::*REFERENCES*) \M-VMEMSAVE (\InterfacePage) \LOAD-STREAM (SYSFILES) SYSOUT (\MISCSTATS) +\DOSTACKOVERFLOW (\InterfacePage) CLISPATOM2D (CLISPLASTSUB) \DOCOMPRESSVMEM (\InterfacePage) +\DOBUFFEREDTRANSITIONS (\LASTKEYSTATE \KEYBOARDEVENTQUEUE \SHIFTSTATE) \PROCESS.MAKEFRAME ( +\InterfacePage) \NEWEPHEMERALPAGE (\InterfacePage) \ADD.PACKET.FILTER (\PACKET.FILTERS) \SOFTCURSORUP +(\SOFTCURSORBBT1 \SOFTCURSORBBT2 \SOFTCURSORBBT3 \SOFTCURSORBBT4 \SOFTCURSORBBT5 \SOFTCURSORBBT6) +\FM.EDIT-DELETE (EDITITEM) SCANFILE0 (DICT) \NSPRINT.WATCHDOG (*PRINT-JOBS-IN-PROGRESS*) +\CANONICALIZE.NSADDRESS (\NSADDRESS.CACHE) PROCESSWORLD (%#SCHEDULER#) \HANDLE.RAW.XIP (\MY.NSADDRESS) + BEEPON (\IOPAGE) \MKATOM.FULL (\INTERRUPTSTATE) TTYIN.SHOW.?ALTERNATIVES (\ENDBUFFER) \FLUSHPAGE ( +\InterfacePage) COMPILER::FRAME-ANNOTATE-CATCH (COMPILER::*REFERENCES*) INTERRUPTED (\INTERRUPTSTATE) +BEEPOFF (\IOPAGE) PRINSHUT (MAKEMAP) \ENVCALL.UFN (\InterfacePage) EDITDEFAULT (EDITHISTORY) +CLOSENSOCKET (\NSOCKETS) \GETREGION.PACKPTS (BASEPT OPPT) \SOFTCURSORUPCURRENT (\SOFTCURSORBBT1 +\SOFTCURSORBBT5 \SOFTCURSORBBT6) \CARET.DOWN (\CARET.UP) \VANILLAHOSTNAMEP (\PSEUDODSK) ADDCHAR ( +\CURSOR \ARROW) \RELEASE.PROCESS (\PROCESSES) COMP.CALL (FRAME) \EXTENDSTACK (\INTERRUPTSTATE +\InterfacePage) \DOMISCAPPLY1 (\InterfacePage) \DEL.PACKET.FILTER (\PACKET.FILTERS) +\FM.EDIT-WORDDELETE (EDITITEM) DO.EDIT.COMMAND (USERWORDS) \MAIKO.IO-INTERRUPT (\INTERRUPTSTATE) +DELETETO (\ARROW) \DISABLEGC1 (\INTERRUPTSTATE) \CHECKFORSTORAGEFULL (\INTERRUPTSTATE) +DWIM-SYMBOL-PACKAGE (FAULTX) SCANDEFINEQ (FNADRLST DICT FNLST) SETMAINTPANEL (\IOPAGE) \BITBLT.BITMAP +(\SYSPILOTBBT) \MAKE.PROCESS0 (\InterfacePage) FIXATOM (TAIL) PRETTYDEF1 (PRETTYCOMSLST) +\MAIKO.ETHER-INTERRUPT (\INTERRUPTSTATE) PRINTFNS (NEWFILEMAP) DEFPRINT (\DEFPRINTFNS) \DELETEOFD ( +\OPENFILES) \FAULTINIT (\InterfacePage) OPT.DELTAGREF (CL:LABELS) \FM.EDIT-INSERT (EDITITEM) +XCL:UNBREAK-FUNCTION (BROKENFNS XCL::*TRACED-FNS*) \SETDAYTIME0 (\IOPAGE) \SETUPUSERSTACK ( +\InterfacePage) \BLTSHADE.BITMAP (\SYSPILOTBBT) \DL.NEWFAULTINIT (\IOPAGE) \NEXTCONSPAGE (\LISTPDTD) +\VFMDelete1 (\VFMbuffer) \HARDCURSORPOSITION (\IOPAGE) EDITCOMA (EDITHIST) \SET.VMEM.FULL.STATE ( +\INTERRUPTSTATE) \TEMPLOCKPAGES (\InterfacePage) DEFEVAL (\DEFEVALFNS) EDITCOML (EDITCOMSA EDITCOMSL) +\CLOSELINE (\LINEBUF.OFD) SEDIT:RESET-COMMANDS (SEDIT::LISP-EDIT-ENVIRONMENT) RAND (RANDSTATE) +XCL:UNADVISE-FUNCTION (ADVISEDFNS) BREAKLINE (\ARROW) \INCPARENCOUNT (\LINEBUF.OFD) \SELECTREALPAGE ( +\RPTLAST) COMPILER::FRAME-ANNOTATE-BLOCK (COMPILER::*REFERENCES*) HISTORYSAVE (ARCHIVELST) +WHO-LINE-CURRENT-DIRECTORY (*WHO-LINE-LAST-DIRECTORY* *WHO-LINE-DIRECTORIES*) MSCHECKBLOCKBASIC ( +BLKFNS) \MAIKO.CONSOLE-LOG-PRINT (\INTERRUPTSTATE) \GETREGIONTRACKWITHBOX (BASEPT) \RESETLINE ( +\LINEBUF.OFD) \DL.FAULTINIT (\IOPAGE \InterfacePage) \PROCESS.MOVEFRAME (\InterfacePage) \GCMAPSCAN ( +\HTCOLL) \FLUSHVM (\InterfacePage) \GCMAPUNSCAN (\HTCOLL) HPRINTEND (BACKREFS) SUPERPRINT/WRAPPER ( +MAKEMAP) \REMOVE.EXTERNALFORMAT (*EXTERNALFORMATS*) CLEARFILEPKG (SYSFILES) \PFTransferPage ( +\InterfacePage) \DORETCALL (\InterfacePage) BRECOMPILE1 (ADRLST) WINDOW.MOUSE.HANDLER ( +\LastCursorPosition) \FREELISTCELL (\LISTPDTD) \DOVE.FAULTINIT (\RCLKSECOND) BKSYSCHARCODE (\SYSBUFFER +) \TEDIT.LOOKS.UPDATE (LINE) \FTP.WHENCLOSED (\FTPCONNECTIONS) \DOFLUSHVM (\InterfacePage) +\NSFILING.DISCARD.SESSION (\NSFILING.ACTIVE.SESSIONS) SETUPSTACK (\InterfacePage) \CLEARSYSBUF ( +\SYSBUFFER) TTY.PROCESS (\CURRENTKEYACTION) \FM.EDIT-BACKUP (EDITITEM) \ACTONDISKPAGES (\InterfacePage +) \D01.FAULTINIT (\RCLKSECOND \InterfacePage) \DEFINEDISPLAYINFO (\DISPLAYINFOALIST) +SI::FINISH-UNADVISING (ADVISEDFNS) BCOMPL2 (DEFS) PAINTW.CACHE.SHADE (PAINTW.SHADES) EDIT4F1 (FF) +PFI.HANDLE.RPAQQ (*PFI-FILEVARS*) SKIP/ZAP (\TTYINSTATE) MASTERSCOPEXEC (LISPXHIST) CLOSEPUPSOCKET ( +\PUPSOCKETS) SCANCOMPILEDFN (DICT FNLST) \GETSYSBUF (\SYSBUFFER) COMPAREFAIL (DIFFERENCES) NIL +SMASH SETY.IP (IPDATA) \INSERT.FIRST.PIECE (TEXTOBJ PC) RPLNODE (X) \GETFTPCONNECTION (CONN) +\COURIER.CHECK.ERRORS (ERRDEF) \TEDIT.COMMAND.LOOP (TEXTOBJ ISCRSTRING) \TEDIT.GET.SINGLE.PARALOOKS2 ( +LOOKS TABSPEC) \COURIER.ATTENTIONFN (CON) TEDIT.SELECT (SEL) \DSPSPACEFACTOR.IP (IPDATA) OPT.RETPOP (X +) HVFWDCDREAD (TCONCPTR) \NSRANDOM.RELEASE.LOCK (HANDLE) TEDIT.SUBPARALOOKS (PC) CLISPRECORD (E) +\TEDIT.CONVERT.TO.FORMATTED (PC TEXTOBJ) DISCARDXIPS (NSOC) \INSPECTW.REDISPLAYPROP (OLDVALUEITEM) +\GENERIC.CHARSET (STREAM) TB.UNSELECT.ALL.ITEMS (ITEM BROWSER) FB.COUNT.FILE.CHANGE (FBROWSER) +\DSPRESET.PSC (STREAM) SEDIT::SHIFT-LINEAR-FORM (SEDIT::NODE) OPT.JLENPASS (J) COPY-CIRCLE (VAL NEW) +SUBSTRING (OLDPTR) SEDIT::SET-POINT-LIST (SEDIT::POINT) \UPDATE.PBT.RASTERWIDTHS (PBT) +PFI.CONDENSE.INDEX (OLDNAME INDEX TYPEPAIR) CLBINARYMINUS? (MINUSTAIL) \VAMAdjustGroup (group) +SETYREL.IP (IPDATA) ALLOCSTRING (OLD) BRKDWNRESULTS (X) BREAK.MSG.INTO.LINES (STRLST) +SEDIT::GENERATE-LINEAR-FORM (SEDIT::NODE SEDIT::CONTEXT) \SPP.CLEANUP (CON) \LEAF.ABORT.FROMMENU ( +SEQUIN) ADJUSTLINE (OLDENDLINE LINE NEXTLINE BREAK) \COURIER.CHECK.PROCEDURES (FNDEF) TB.DESELECTRANGE + (BROWSER) NORMSECT (GEOM SELF) \PAGED.INCFILEPTR (STREAM) \STARTPAGE.PRESS (PRDATA) \TEDIT.FIND (SEL +TEXTOBJ) MAKETITLEBARICON (REG) \FIXILINES (LINE TEXTOBJ) \SETXIPCHECKSUM (XIP) FINDFIELDUSAGE ( +EXPRESSION) TEDIT.SET.SEL.LOOKS (SEL) \LFScavFileName (A0493) \LFUnpackName (A0493) \BUFFERED.BIN ( +STREAM) \HDCPYDISPLAY.FIX.YPOS (DD) \LEAF.DELETEFILE (DATA STREAM) MAKESCAN (EDGELIST) MOVD (TOCELL) +MSTRYSPELL (PTR) TEDIT.GET.OBJECT (PIECE) \DSPCLIPPINGREGION.PSC (IMAGEDATA) SEDIT::REPLACE-CHARS ( +SEDIT::OPEN-STRING SEDIT::CONTEXT) IDLE.BOUNCING.BOX (TAIL) TB.INSERT.ITEM (BROWSER TAIL) +\3MBRAWRECEIVE (PACKET) \LFPurgeDirectory (file) \LEAF.SETCREATIONDATE (DATA INFOBLK) +SETF-SYMBOL-PACKAGE (OBJ) \BUFFERED.BOUT (STREAM) SETXY.IP (IPDATA) TEDIT.INCLUDE (STREAM SEL) MSPARSE + (CONJUNCTIONS RESPELL) \NSFILING.SET.CONTINUANCE (SESSION) ASKUSER (ANSWER PRINTLST BUFS) \BBTCURVEPT + (BBT BBTA0619 BBTA0621) \BUFFERED.BINS (STREAM) CLISPDEC (LST) \DSPLINEFEED.IP (IPDATA) +SEDIT::CLEAN-UP-AFTER-RELINEARIZATION (SEDIT::FOLLOWING-LINE SEDIT::EXTENT) \TERMINATESPP (CON) +TB.SELECTRANGE (ITEM BROWSER) \LFOpenOldFile (fileDesc STREAM) \LFDirectoryP (stream) \CENTICLOCK (CLK +) \BUFFERED.BOUTS (STREAM) CLRPLNODE (X) SEDIT::REPLACE-QUOTE (SEDIT::SUBNODE) MARK/GRAPH/NODE (NODE) +TEDIT.ADD.MENUITEM (OLDITM MENU) \LEAF.GETFILE (CACHEDSTREAM CONNECTION DATA OLDSTREAM) +RESET/NODE/LABELSHADE (NODE) \SLOWBLTCHAR (DD PILOTBBT) \PS.SCALEHACK (REG IMAGEDATA) D-ASSEM:INTERN-DCODE + (D-ASSEM::RAW-CODE) SEDIT::REPLACE-LIST (SEDIT::X SEDIT::INSERT-AFTER SEDIT::NODE SEDIT::CARET +SEDIT::SELECTION) \CARET.FLASH.AGAIN (CARET) \MAKEFLOAT (BOX) TEDIT.DEFAULT.MENUFN (TEXTOBJ SEL) +\DSPRIGHTMARGIN.IP (IPDATA) FW-OFD-EXISTS? (OFD) SETXYREL.IP (IPDATA) CLISPIF0 (Y X FORM CLAUSE L) +CIRCLAR-COPYER (VAL NEW) PFI.PRINT.INDICES (INDICES) \CHANGECHARSET.DISPLAY (DISPLAYDATA PBT) +SEDIT::SELECT-SEGMENT (SEDIT::SELECTION) FIXSPELL (TAIL) \SFFixY (DISPLAYDATA PBT) +\TEDIT.REFRESH.SHOWSEL (OLDSEL) SEDIT::CREATE-QUOTED-GAP (SEDIT::GAP-NODE SEDIT::QUOTE-NODE) +\BRUSHBITMAP (BRUSHES&METHOD) SETX.IP (IPDATA) \TEXTSTREAMBOUT (SEL TEXTOBJ STREAM) +COMPILER::FRAME-ANNOTATE-TAGBODY (COMPILER::OUTER-REFERENCES) SEDIT::CLEAR-LINEAR-FORM (SEDIT::NODE) +TTYINBUFFERSTREAM (STRM) TEDIT.EXTEND.SEL (NSEL) PFI.PRINT.MULTI.INDEX (TEM MASTERENTRY TYPEPAIR) +\INFINITY (BOX) FIXFIELDORDER (X LASTFIELDTAIL USE1 USE2) \EDIT.UPCARET (CARET) \SHOWSEL (SEL) +BOXCOUNT (DTD) \TEDIT.FORMAT.FOOTNOTE (LINE LINES) \TEXTBIN (STREAM) \POSTSCRIPT.OUTCHARFN (IMAGEDATA) + \TFBRAVO.GETPARAMS (WORDL) FIXEDITDATE (E) TB.DELETE.ITEM (ITEM) \MEDW.PUTWINDOWPROP (WINDOW TAIL) +MAKEFLOATNUMBER (VAL) DELDEF (NAME) \COPYHARRAYP (TARGET) OPT.DELTAGREF (X) CLOSENSOCKET (NSOC) +TERM.MOVETO (CHAT.STATE) MSSEEKPHRASE (THIS X) TEDITCHAT.MENUFN (STATE) SEDIT::THROW-AWAY-CHANGES ( +SEDIT::CONTEXT) \LFCreateFile (stream) LOG (SX) SEDIT::SETUP-NEW-CONTEXT (SEDIT::CONTEXT) SETSTKNAME ( +FRAME FNH) \LEAF.SETFILETYPE (DATA) U/L-CASE (BUF) CL::INSERT-INCLUDED-SLOT (CL::TAIL) FB.THINCOMMAND +(FILES) \LEAF.TIMEDOUT.EXCESSIVE (SEQUIN ENTRY) \COPYFNHEADER (NEWFNHD) \NSGATELISTENER (XIP BASE) +\SENDSPP (CON EPKT) TEDIT.HARDCOPY-COLUMN-END (ORIGINAL-LINES LINES LINE) DASSEM.COUNTVARS (VAR) +SEDIT::PRETTY-PRINT (SEDIT::CONTEXT) IMAGEOBJPROP (IMAGEOBJ IMAGEFNS) CHECKBUFFERREFVAL (BUFF) +\FTP.HANDLE.NO (BADPLIST) /TCONC (PTR) \TELERAIDSEND (PACKET) \AddShade (SHADEDITEM MENU) +\HCPYMODEBLTCHAR (DISPLAYDATA LOCAL1) COMPAREDEFS (DEFS) DINFO.UPDATE.GRAPH.DISPLAY (DINFO.GRAPH) \PNC + (STR) SEDIT::SET-SELECTION (SEDIT::SELECTION) \SETWINFOXSIZE (WINFO) PUTFILEMAP (NEWENTRY) \TEXTBOUT +(STREAM) \CLEARMAP (STREAM PREVBUFFER) \ENDVECRUN (PRDATA) FILING.CALL (SESSION STREAM) CLISPFORVARS ( +LST0 VARLST TEM PTRS) RESUME (FROMPTR TOPTR) OPT.JUMPREV (BD BR D PR END ABR R ABD DR) SETXREL.IP ( +IPDATA) EXEC-READ-LINE (LINE) SHRINK-VECTOR (VECTOR) CL:SET-DISPATCH-MACRO-CHARACTER (DISP-TABLE) +UNDOSAVE (Y) ADDFILE (TYPE) RESET/NODE/BORDER (NODE) COMPILER::META-CALL-LAMBDA (COMPILER::CURRENT-PROG1-TAIL +) HARRAYPROP (HARRAY HA) MSVERBTYPE (MSVERB) SEDIT::OPEN-LITATOM (SEDIT::CONTEXT SEDIT::STRING-ITEM +SEDIT::OPEN-STRING SEDIT::SUB-STRING) \TEDIT2 (TEXT) \RELEASEBUFFER (BUFFER) \TEDIT.LOOKS.UPDATE ( +STREAM) \TEDIT.MOVE.PIECEMAPFN (PC) PUP.ECHOSERVER (PUP) COMP.STBIND (F) \FIXLINELENGTH.IP (IPSTREAM) +\WRITEOUTBUFFERS (BUF STREAM BUFFER) \ACTONDISKPAGES (REQUEST LASTNUMCHARSCONS) DASSEM.MATCHVARS (TAIL +) CLRHASH (SLOT HA) DMCHAT.HANDLE.WRAP (DM2500.STATE) \TEDIT.MARKINACTIVE (TEXTOBJ) FILEBROWSER ( +BROWSER) \EDIT.DOWNCARET (CARET) SHOWSHADEDITEMS (ITEMREGION) TEDIT.QUIT (STREAM) PRINTCOPYRIGHT ( +OWNER) REOPENTEXTSTREAM (STREAM) DINFO.UPDATE.MENU.DISPLAY (GRAPH) SPY.DUMP.BUFFER (TREE) +CLISPIFYMATCHUP (ALST) \DOACTONDISKPAGES (DSK REQUEST CB) \POSTSCRIPT.ACCENTFN (IMAGEDATA) +SETSTKARGNAME (FRAME) \GETMAPBUFFER (PREV BUF) \LFUpdateLeaderPage (leaderPage stream) +DINFO.UPDATE.TEXT.DISPLAY (GRAPH) CL:VECTOR-PUSH-EXTEND (VECTOR) OPENBSPSTREAM (SOCKET INSTREAM +OUTSTREAM) \FM.COLLECTNWAYS (NWAYIDS NWAYS) /RPLNODE2 (X) TERM.HOME (CHAT.STATE) OPT.LABELNTHPR (G) +\WRITEDISKPAGES (REQUEST) MB.DEFAULTBUTTON.ACTIONFN (MAINTEXT MAINSEL TEXTOBJ SEL) SET-FILL-POINTER ( +VECTOR) \HASHACCESS (SLOT) \SLOWHCPYMODEBLTCHAR (DD PILOTBBT) \DOWRITEDISKPAGES (REQUEST DSK LAB CB) +HPRINT1 (LASTSEEN) LISPXPUT (Y) \HDCPYDISPLAY.FIX.XPOS (DD) ADD-SYMBOL (VEC HASH) +\TFBRAVO.INSTALL.PAGEFORMAT (TEXTOBJ PAGEFRAMES) \SWITCHFONTS.PSC (POSTSCRIPTDATA) \TEDIT.MARKACTIVE ( +TEXTOBJ) \APPEND2 (TAIL) TEDIT.UNDO.DELETION (TEXTOBJ EVENT SEL) \COURIER.REP.BIN (STREAM) +COURIER.BROADCAST.CALL (TAIL NEARBYNETS) REFLECT/GRAPH/DIAGONALLY (GRAPH N) \HASHRECLAIM (SLOT HA) +\LEAF.CLOSEFILE (STREAM CONNECTION DATA) \MAPPAGE (BUF PREVAVAIL PREV STREAM) FILLTRIANGLE (PT1 PT2 +PT3) DINFO.UPDATE (GRAPH) FLTSTR (MANTSTRING) \TELERAIDGET (PACKET) \SETEOF (STREAM) \WRITEVMEMPAGES ( +REQUEST) \SETWINFOYSIZE (WINFO) DWMFY2 (TAIL0) \VAMFindFreePages (groupPtr) TRANSLATE.DATATYPE (FD) +TEDIT.REDO.INSERTION (EVENT TEXTOBJ FIRSTPIECE SEL) LINELENGTH (STREAM) SEDIT::INSERT-MULTI-ESCAPE ( +SEDIT::POINT) \NSRANDOM.UPDATE.VALIDATION (STREAM) SETUPFONTS.IP (IPDATA) SEDIT::DOT-THIS-LIST (SEDIT::TAIL + SEDIT::NODE) \ACTONVMEMPAGES (REQUEST) MB.SELFN (SEL) \COURIER.BROADCAST.ON.NET (XIP) \SETIODIRTY ( +BUF) READLINE (LINE) WHO-LINE-WHAT-IS-RUNNING (POS-HOLDER) \FM.NUMBER-CHANGESTATE (ITEM) +TEDIT.EDIT.OBJECT (SEL LINE TEXTOBJ) \DODISKCOMMAND (SHORTCB LA CB DSK) DSPSOURCETYPE (DD BBT) +\DSPROTATE.PSC (IMAGEDATA) SEDIT::OUTPUT-CONSTANT-STRING (SEDIT::CONTEXT) REFLECT/GRAPH/VERTICALLY (N) + BRH/LAYOUT (GN) \GETDISKCB (DSK) SET/LABEL/SIZE (NODE) \XIPERROR (XIP) TB.EXPANDFN (BROWSER) +\IFS.LOOKUPFILE (DEVINFO) \CLEANUPDISKQUEUE (SHORTCB DSK) DINFO.UPDATE.HISTORY (GRAPH) +\FM.WINDOWEXTENT (REGION) \IDLERKEYACTION (TABLE) \FM.MAKELINKS (LINKTAIL) COPY.TEXT.TO.IMAGE (INSTRM) + PARSE-NAMESTRING1 (VAL) \PAGED.GETNEXTBUFFER (STREAM) \NSRANDOM.WROTE.HANDLE (HANDLE) +POSTSCRIPT.SET-FAKE-LANDSCAPE (C IMAGEDATA) \PAGED.FORCEOUTPUT (STREAM B) \CARET.FLASH (CARET) +\DSPCLIPPINGREGION.IP (IPDATA) \PAGEDSETFILEPTR (STREAM) DASSEM.DSTOREFNDEF (CA) POSTSCRIPT.STARTPAGE +(IMAGEDATA) SETFONT.IP (IPDATA) \GR.PUTDEFFN (TYPE) REMPROPLIST (LST1) SEDIT::SET-DEPTH (SEDIT::NODE) +FB.SORT.VERSIONS (PREVTAIL) TEDIT.UNDO.INSERTION (TEXTOBJ EVENT) \SENDLEAF (PUP RESULT) DMCHAT.ADDRESS + (DM2500.STATE) \FM.UPDATEGROUPEXTENT (REGION) SPY.SUM (TREE) DELFROMCOMS (COMS) +\MAKE.EXPEDITED.STREAM (STREAM) \FM.EDIT-SETUP (ITEM) \COURIER.REP.BOUT (STREAM TAIL) GENERATEFN ( +COMVAR##) \PARTEND.PRESS (PRDATA) SEDIT::OUTPUT-CR (SEDIT::CURRENT-NODE SEDIT::THIS-LINE SEDIT::CONTEXT + SEDIT::LAST-LINE CL:BLOCK) PRETTYPRINT (NEWADRLST LST TEM) NS.ECHOUSER (OXIP) TERM.PRINTCHAR ( +CHAT.STATE) REFLECT/GRAPH/HORIZONTALLY (N) SWAPXIPADDRESSES (XIP) OPT.PRDEL (B P X) NSNETDAYTIME0 ( +OXIP) \10MB.TURNONETHER (NDB CSB) \SFFixDestination (PBT DISPLAYDATA) \HANDLE.RAW.XIP (XIP NDB ENTRY) +TB.FLUSH.WINDOW (BROWSER) \LEAF.READFILEPROP (DATA) MSJOINSET (SET1) \DSPTRANSLATE.PSC (IMAGEDATA) +\MAIKO.ALLOCBLOCK (ABLOCK) \FM.TRANSPOSEVERT (REGION) \BSP.HANDLE.DATA (INQUEUE PREVPUP PUP) +\DSPPOPSTATE.PSC (IMAGEDATA) CLISPIFYCROPS (TEM1 TEM2) OPENIPSTREAM (IPSTREAM IPDATA PAPERSIZE) +CHAT.SWITCH.EMACS (CHATSTATE) \FM.NUMBER-SETUP (ITEM) \MAKEFREEARRAYBLOCK (BLOCK) FW-UPDATE-OFD-WINDOW + (OFD PCTREGION) CHCON (\CHCONLSTAIL) \CLEARCB (CB) \BSP.DECLARE.FILEPTR (STREAM) \SFFixFont ( +DISPLAYDATA) TEDIT.HARDCOPY.PAGEHEADING (LINE) SEDIT::LINEARIZE (SEDIT::CONTEXT SEDIT::NODE +SEDIT::SUPER-NODE) EXTENDREGIONTOP (REG) \LINKBLOCK (BASE FREEBLOCK) UNPACK (\CHCONLSTAIL) +\TEDIT.HCPYLOOKS.UPDATE (STREAM) CHAT.ENDOFSTREAMOP (STREAM) \CARET.FLASH? (CARET) SHEDSCAN (SELF) +BSPGETMARK (STREAM) \DELETEBLOCK? (F B) \FM.TRANSPOSEHORZ (REGION) \BSP.HANDLE.ACK (SOCKET OUTQUEUE +INTERRUPTPUP OLDPUP) \TEDIT.PARSE.CHARLOOKS.LIST (NEWPCLOOKS) SPY.MERGETREE (OLDCOPY) +\UFS.UNREGISTER.GFS (GENFILESTATE) \UPDATE-SYNONYM-STREAM-LINELENGTH-FIELD (X Y) SEDIT::REVIVE-NODE ( +SEDIT::NODE) OPT.LBMERGE (TO) CLISPIFYCROPS1 (X) \MAIKO.PUNTBLTCHAR (DISPLAYDATA) FW-OPENP ( +!SCRATCHTAIL !SCRATCHLIST) GET-ENVIRONMENT-AND-FILEMAP (MAPENTRY) TERM.DOWN (CHAT.STATE) +\INIT.ETHER.BUFFER.POOL (ZONE) \DSPFONT.HDCPYDISPLAY (DD) DCHCON (!SCRATCHTAIL !SCRATCHLIST) DOERROR ( +L AT) \FLUSHNDBS (NDB) PRINTFNS (FNADRLST) \BULK.DATA.CLOSE (CON STREAM STRM COURIERSTREAM) +\UNVISIBLE.PAGED.REVALIDATEFILELST (STREAM) DASSEM.DWRITEFN (CD NAMETABLE) \SFFixClippingRegion ( +DISPLAYDATA) \TEDIT.PARSE.PARALOOKS.LIST (NEWLOOKS) DUNPACK (!SCRATCHTAIL !SCRATCHLIST) PRETTYDEF1 ( +PRTTYTEM) FW-CLOSEFN (OFD) TEDIT.SKIP.SPECIALCOND (LINE) TB.RENUMBER.TAIL (ITEM BROWSER) +LOOKUP-ENVIRONMENT-AND-FILEMAP (MAPENTRY) COURIER.OPEN (STREAM) BLOCK (PROC PQUEUE OLDPROC) +TB.UPDATE.DISPLAY (EXTENT) SEDIT::MAP-COMMENT-INDEX (SEDIT::CONTEXT) \SETGROUPMIN (GROUPATWINFO) +\VFMSaveBuffer (BUF) FW-RESIZE-OFD (OFD) PRINTDATE (ROOTNAME) CLEARPUP (PUP) TEDIT.MOVE (FROM TOOBJ +FROMOBJ TO) \NSFILING.RELEASE.BULKSTREAM (CONNECTION STREAMS PAIR) \LEAF.SETVALIDATION (STREAM) +\SFFIXLINELENGTH (DISPLAYSTREAM) \UFSOpenFile (STRM) SPY.MERGE (VAL) \FILEMAP-HASHOVERFLOW (TEM) +CLISPDSUBST (X) \COPYSEL (TO) \TEDIT.UPDATE.SHOWSEL (NSEL) \SEQUIN.HANDLE.ACK (SEQUIN) DASSEM.DASSEM ( +ARGS LL VAR FREELST X) OPENPOSTSCRIPTSTREAM (STREAM IMAGEDATA) \TEDIT.GET.SINGLE.PARALOOKS (LOOKS +TABSPEC) COPYALL (TAIL) FB.DELVERCOMMAND (FILES) \TEDIT.INTEGER.IMAGEBOX (OLDBOX) FILEPKG.MERGECHANGES + (VAL) \UFSTruncateFile (STREAM) WXOFFSET (CR) \BN.TIMES2 (W2 TAIL) \UFSGetFileInfo (ALIST) \BN.DIVIDE + (U X) OPT.JUMPTHRU (REF DR) \FM.EDIT-PREPARETOEDIT (EDITITEM) \TEXTTTYBOUT (STREAM) +\PFTransferFilePage (label) DMCHAT.NEWLINE (CHAT.STATE DM2500.STATE) \FM.EDITSTART-SELECTEDFN (ITEM) +\BSP.HANDLE.INTERRUPT (SOCKET) \LFRenameFile (stream) FB.ANALYZE.PATTERN (BROWSER) \UFSCloseFile ( +STREAMFILE) SEDIT::REPLACE-ROOT (SEDIT::TOP-NODE SEDIT::POINT) \LITATOM.EATCHARS (PNBASE) TTY.PROCESS +(NEWTTY OLDTTY) \LEAF.REPAIR.BROKEN.PUP (DATA PUP) CLISPACKUP (LL) SEDIT::COPY-STRUCTURE-QUOTE (SEDIT::NODE +) UnixShellQuote (CT) TEDIT.SETFUNCTION (RTBL) DINFO.SETUP.WINDOW (GRAPH) TEDIT.SETSEL (SEL TEXTOBJ) +\SEQUIN.FLUSH.RETRANSMIT (SEQUIN) \SMASHMENUIMAGEONRESET (MENU) EXTENDREGIONRIGHT (REG) MSSETSETTYPE ( +SET) \TEDIT.NSCHAR.RUN (TEXTOBJ) \BSP.HANDLE.INTERRUPTREPLY (SOCKET) TEDIT.BUILD.PCTB (TEXTOBJ CACHE +TEXT PC OLDPC) \LFTruncateFile (STREAM) \CHAIN.UP.RPT (LASTEMPTY RPTBASE LASTUSED) TEDIT.FIND (TEXTOBJ +) TB.ITEM.UPDATABLE? (BROWSER) SEDIT::REPLACE-NODE (SEDIT::SELECTION) \SETFATSYNCODE (TABLE) CLISPFOR3 + (LST) FB.CHECK.NAME.LENGTH (BROWSER PREVTAIL) \NSFILING.ADDQUOTES (NAMECHARS) \NSFILING.ERRORHANDLER +(CON STREAM) EDITDATE (OLDATE) \DEVICEFILE.EOSERROR (STREAM BUF) SHOW.PRESS (PRDATA) +\DOFORMATTING.HARDCOPY (LINE THISLINE) SHRIEKIFY (RESULTP) COMPILER::FRAME-ANNOTATE-LAMBDA ( +COMPILER::OUTER-REFERENCES) COMPILER::META-EVAL-PROGN (A0658 A0660) \FM.EDITSTART-SETUP (ITEM) +\BSP.HANDLE.ERROR (BSPSOCKET) MB.THREESTATE.WHENOPERATEDFN (SEL) SEDIT::RELINEARIZE-WHERE-NECESSARY ( +SEDIT::NODES-TO-RELINEARIZE SEDIT::SUPER-NODE) \MAKE.COURIER.REP.STREAM (STREAM) PSCFONT.READFONT (PF) + TERM.LEFT (CHAT.STATE) \FILLRTPPUP (PUP) \QUEUE.INPUT.IOCB (IOCB CSB) UNMAKEHARDCOPYSTREAM (DS) +\RESHOWBORDER1 (WINDOW) RENUMBER.LINES (LINE) \INITIALIZESWAPDISK (DISK) \SPP.SYSPKT (CON BASE) +OPT.XVARSCAN1 (FR) \TELERAIDSERVER (PACKET) SEDIT::COPY-STRUCTURE-LIST (SEDIT::NODE) MSKNOWN (SET) +SEDIT::COPY-STRUCTURE-STRING (SEDIT::NODE) \INTERPRETER1 (NT INTERPFRAME) SEDIT::COLLECT-UNDO-BLOCK ( +SEDIT::CONTEXT SEDIT::BLOCK-END) \BSP.TIMERFN (PUP SOCKET) \INITBFS (CB DSK) TEDIT.PAGEFORMAT (TEXTOBJ +) \SMASHLINK (CALLER) SEDIT::RECOMPUTE-WIDTH (SEDIT::NODE) \MEDW.MOVEW (WINDOW) \OFFSETCLIPPINGREGION +(OLDREGION) \FM.DISPLAY-SETUP (ITEM) FB.HANDLE.ABORT.BUTTON (BROWSER) UPDATE/SCROLL/REG (WINDOW) +SEDIT::COMPUTE-POINT-POSITION-LIST (SEDIT::POINT) MB.BUTTONEVENTINFN (SEL) COMP.COMPARENUM (V1) +DSUBLIS (EXPR) \3MBENCAPSULATE (PACKET) \10MB.STARTDRIVER (NDB) \SETUP-COMPILED-CLOSURE-CALL (INTERPBF + NEWFX) \COPYSYNTAX (B) \FILLINSPP (EPKT BASE) \LEAF.USE.NEW.CONNECTION (PUP AFFECTEDFILES) KILL.LINES + (FIRSTLINE) \VAMRecomputeFreePageCount (vol) CLISPFOR2 (LST X) \DSPSPACEFACTOR.PRESS (PRDATA) +\NSFILING.WHENCLOSED (SESSION STREAMPAIRS) BIGNUM.DEFPRINT (CHARS) CONTROL (TTBL) \DSCCOUT (STREAM) +\MAIKO.DO.MOVDS (TOCELL) \DSPFONT.IP (IPDATA) \TEDIT.WINDOW.SETUP (TEXTOBJ) ADDHASH (OV) +\MAKEFREEBLOCK (STK) \BN.ISUM1 (RES) \NSRANDOM.HANDLE.ERROR (S) DELETECONTROL (TBL) \DSPLINEFEED.PRESS + (PRDATA) DELFROMCOM (TEM BLOCK X) /MAPCONC (MAPE) COMPILER::FRAME-ANNOTATE-CATCH (COMPILER::OUTER-REFERENCES +) \SHAPEW2 (WINDOW) EXTENDREGIONLEFT (REG) \MEDW.CLOSEW (SCREEN WINDOW) \NSFILING.DELETEFILE (SESSION) + CLISPELL (RESPELLTAIL) TEDIT.PARSE.PAGEFRAMES1 (PAGEFRAME) SEDIT::CFV-QUOTE (SEDIT::X) +\SETUP-ENVIRONMENT-CALL (CALLER NEWSTACK) OPT.SCANOPT (CD A B) \M-VMEMSAVE (SCRATCHBUF) +\ENTITYSTART.PRESS (PRDATA) TEDIT.INSERT.OBJECT (TEXTOBJ NEWPC SEL) DMCHAT.CLEAR (CHAT.STATE) +LISPXUSE1 (E) MAKEHARDCOPYSTREAM (DS) \START.PROCESSES (PROC OLDPROC) COMPILER::META-EVAL-MV-PROG1 ( +A0654 A0656) \VFMDeletePageGroup (groupPtr key) BSP.PUTINTERRUPT (SOCKET) DELETELINE (LINE NEXTLINE) +DRIBBLE (OLD-DRIBBLE-STREAM NEW-DRIBBLE-STREAM) RESETGRID.NEW (GRIDSPEC) PROCESSWORLD (PQ P) +INSURE.BRUSH (SYSTEMBRUSH) SEDIT::PROPAGATE-WIDTH-CHANGE (SEDIT::SUPER) \SETUP.DEFAULT.LINEBUF (DEV +STREAM) \COERCEASCIITONSFONT (FD) ADD.PROCESS (PROC) \MEDW.OPENW (WINDOW SCREEN) CHANGEBACKGROUND ( +WINDOWS) TEDIT.HARDCOPYFN (TEXTOBJ) \RUN.PROCESS (PQUEUE PROC NEXT PREV) SEDIT::CFV-LIST (SEDIT::NODE) + NEWPAGE.IP (IPDATA) \ICONW.SHOW.TITLE (TITLESPEC) \3MBGETPACKET (PACKET) SUBHASH (OV) SEDIT::SEDITE ( +SEDIT::EXPR) CLISPFOR1 (BODYTAIL Z PTRS LST1) \RELEASE.PROCESS (PROC OTHER) DELFROMCOM1 (COM) +\NSFILING.GET.STREAM (STREAMPAIR CONNECTION PAIR) \ADDLEAFSTRING (PUPBASE) CHAT.SET.EMULATOR ( +CHAT.STATE) MB.THREESTATEBUTTON.FN (SEL) \FILLBSPPUP (PUP) CHAT.HOLD (STATE) \LFSetFileInfo (infoPage) + \10MB.INPUT.INTERRUPT (PACKET) OPENWINDOWS (WINDOWS) SEDIT::PARSE-NEW (SEDIT::CONTEXT) OPT.SETUPOPT ( +B C) SHAPEW1 (WINDOW) SEDIT::UNDO-COMMENT-CHANGE (SEDIT::SUBNODES) \FTP.OPENFILE.FROM.PLIST (INS OUTS) + \HDCPYDSPPRINTCHAR (STREAM) \BN.ICANON (U U1) SEDIT::INPUT-NORMAL-CHAR (SEDIT::CONTEXT) OPT.POSTOPT ( +CODE) BLOCKCOMPILE1 (CALLTAGS) SETXY.PRESS (PRDATA) \CREATELINEBUFFER (STREAM DEV) FIXAPPLY1 (XTAIL) +DREVERSE (Y) SEDIT::EXTRACT-CURRENT-SELECTION (SEDIT::POINT) \DL.NEWFAULTINIT (RPTBASE) +SEDIT::COMPUTE-SELECTION-POSITION-LITATOM (SEDIT::SELECTION) SEDIT::BUILD-PRELINEARIZED-NODE ( +SEDIT::CONTEXT) ECHOMODE (TTBL) \LFWritePages (stream) \FM.JUSTIFYITEMS (ITEMREGION ITEMMAXREGION) +RECORDTRAN (UNUSED) FW-RECALL-CMD (RECALL-OFD) \PROMPTWINDOW.EXPAND (PWINDOWPROP) +BULKDATA.GENERATE.NEXT (GENSTATE) CLISPIF2 (TEM2 TEM1) PUTMENUPROP (MENU) DMCHAT.RIGHT (CHAT.STATE) +\MAIKO.CONS.UFN (CELL PAGE .MK.NEWCELL CNS.PAGE) /MAPCON (MAPE) \BN.MADD (TT TTT) +COMPILER::FRAME-ANNOTATE-BLOCK (COMPILER::OUTER-REFERENCES) POSTSCRIPT.FONTSAVAILABLE (RAWFD) \DEQUEUE + (Q ITEM) \MEDW.CREATEW (WINDOW DISPLAYDATA) RELSTK (POS) \SETSPACE.PRESS (PRDATA) RAISE (TTBL) +SEDIT::BACKSPACE-LIST (SEDIT::POINT) CHAT.MENU (STATE) GRAPHDELETELINK (FROM TO) +\SEQUIN.RETRANSMITNEXT (NEXTPUP SEQUIN) SEDIT::COMPUTE-POINT-POSITION-LITATOM (SEDIT::POINT) +TEDIT.DELETELINE (PREV NEXT) \CLOSELEAFCONNECTION (DEVICE) RESETTERMTABLE (TT) \LFOpenFile (STREAM) +\FM.LAYOUTGRID (ROW GRID TAIL SUBGROUPIDS ITEMLIST GROUPLIST EXTENT) SEDIT::PARSE--GAP (SEDIT::NEW-NODE +) COMP.LABELS (X) ACCESSDEF (TL R) SENDXIP (XIP) \TEDIT.BASICFIND (TEXTOBJ) \TFBRAVO.INIT.CHARLOOKS ( +LOOKS) TWOD.TRACKCURSOR (SELECTION) \10MB.OUTPUT.INTERRUPT (NEXTPACKET) TEDIT.DEACTIVATE.WINDOW ( +TEXTOBJ) GRAPHDELETENODE (GRAPH) DOCOLLECT (LST) \UFS.NEXTFILEFN (GENFILESTATE SUBGEN) FB.AFTERCLOSEFN + (FBROWSER) \REQUEUE.ETHERPACKET (PACKET) ENDCOLLECT (X) \PROG0 (NT PROGFRAME) PFI.HANDLE.RPAQQ ( +COMSINFO) CLISP% (CLISPTEM) SEDIT::SET-PROPS (SEDIT::CONTEXT) \VAMFreePageGroup (vol) \DOFORMATTING ( +LINE THISLINE) DINFO.READ.GRAPH (GRAPH) \FIXLOCALNET (PORT) \INITCONSPAGE (BASE CELL) ADDNEWCOM (TAIL) + /LISTPUT1 (X) TEDIT.SHOWSEL (SEL) EXTENDREGIONBOTTOM (REG) \SET.PROCESS.NAME (PROC) \NSFILING.EVENTFN + (RANDEVICE) PRINTERROR (ERR PR) SPP.OPEN (CON) TEDIT.MINIMAL.WINDOW.SETUP (TEXTOBJ OLDWINDOWS) +TB.DISPLAY.LINES (BROWSER) TEDIT.GET (TEXTOBJ FIRSTLINE SEL) SEDIT::SELECT-NODE-SEGMENT (SEDIT::SELECTION +) LASTN (Y) \FIXLINELENGTH.PRESS (PRSTREAM) \GET.PRIORITY.QUEUE (PREV) /DSUBST (EXPR) +\POLYSHADE.YSCAN.IP (fulllist currlist) \SPP.SENDPKT (BASE CON) VKBD.FIX.FONT (X) CHOOZ (VAL) CLISP3C +(L2 L1) \EVALA (NT CALLER) LATTICE/BREAK/CYCLES (NODE DTAIL) FORWARD.DELETE.TO (L) /ATTACH (LST) +\SUBREAD (STRM END DOTLOC) RESETREADTABLE (RDTBL) \DL.MARK.PAGES.UNAVAILABLE (RPTBASE) SEDIT::SET-OPTIONS + (SEDIT::CONTEXT) PUTTEXTPROP (TEXTOBJ) \TEDIT.FIND.FIRST.LINE (LINES LINE) /LISTPUT (LST) /RPLACD ( +LST) /RPLACA (LST) SEDIT::ASSIGN-FORMAT-LIST (SEDIT::NODE) DINFO.FMW.CLOSEFN (GRAPH) +\ADJUSTABLE-STRING-STREAM-OUTCHARFN (STREAM) ESCAPE (RDTBL) \SEQUIN.HANDLE.INPUT (PUP SEQUIN) TERM.UP +(CHAT.STATE) \TOP-LEVEL-READ (STREAM) \UNWIND.PROCESS (P) SEDIT::CLOSE-NODE-LITATOM (SEDIT::CONTEXT +SEDIT::NODE SEDIT::STRING-ITEM) MAKE-FILL-POINTER-OUTPUT-STREAM (STREAM) SEDIT::FIND-NODE (SEDIT::CONTEXT +) \LFGenerateFiles (A0493) \FM.LAYOUTCOLUMN (COLUMN SUBGROUPIDS ITEMLIST GROUPLIST EXTENT) DEL.PROCESS + (P) \STRING-STREAM-OUTCHARFN (STREAM) SEDIT::PARSE (SEDIT::CONTEXT) COMP.BIND.VARS (VAR) COMP.TAGBODY + (X F) FB.HARDCOPY.DIRECTORY (PAIR) \NSRANDOM.FETCH.CACHE (PREV TAIL CACHE PAIR) MOVETOP (Z Y L) \LET0 + (NT PROGFRAME) /DWIMCHECKTRAN (X) READMACROS (RDTBL) TTRACKMOUSE (OLDROW/COL) READTABLEPROP (RDTBL) +GENERATOR (COMVAR##) \LET* (NT PROGFRAME) SKIPSEPRCODES (STRM) /PUTASSOC (X) +%%BROADCAST-STREAM-DEVICE-OUTCHARFN (STREAM) \NSRANDOM.RELEASE.HANDLE (STREAM HANDLE) +SEDIT::SET-SELECTION-COMMENT-WORD (SEDIT::SELECTION) DIRECTORY.NEXTFILE (FG) \FM.LAYOUTROW (ROW +SUBGROUPIDS ITEMLIST GROUPLIST EXTENT) TB.REPLACE.ITEMS (BROWSER) RECORDPRIORITY (DECL) \DSPCOLOR.IP ( +IPDATA) \DSPYPOSITION.HCPYMODE (DD) PUTSTREAMPROP (STREAM TAIL) \DURATIONTRAN (X) MAKEFILE (FILEPROP) +LAYOUTGRAPH (G) INITIALIZECOLOR.IP (IPDATA) \VAMAllocPageGroup (vol groupPtr) DSPEOLFN (DD) +\DSPCLIPPINGREGION.PRESS (PRDATA) RESTART.PROCESS (P) POSTSCRIPT.SHOWACCUM (IMAGEDATA) +\SEQUIN.RETRANSMIT (SEQUIN QUEUE) MSSHOWUSE (X) MSSOLVE (SET REP QT) \LOADNSHOSTNUMBER (OLDBOX) +\LFEventFn (Dev) \LFReturnNextFile (GENERATED) WAKE.PROCESS (P) EDITL1 (EDITHIST) \SUSPEND.PROCESS ( +PROC PREV PQHEAD) %%CONCATENATED-STREAM-DEVICE-CLOSEFILE (stream) SEDIT::FINALIZE-MOUSE-SELECTION ( +SEDIT::CONTEXT) EXTENDREGION (REGION) RESETUNDO (UNDOSIDE X) TB.SET.FONT (BROWSER EXTENT) +\TEXTMENU.TOGGLE.WHENOPERATEDFN (SEL) CL:FLOAT-SIGN (CL::OLD-BOX) PROCESS.RESULT (PROCESS) +\TEDIT.INSERTLINE (NEWLINE BEFORELINE PREVLINE) \TEXTBACKFILEPTR (STREAM REALFILE) \FTP.NEXTFILE ( +GENSTATE) \SEND.ANSWERING.RFC (SOCKET OPUP) TEDIT.COPY (FROM TOOBJ TO FROMOBJ) /LCONC (PTR) +\SEQUIN.FLUSH.CONNECTION (SEQUIN) \LEAF.GETFILEDATES (STREAM) LISTPUT (LST) \SPPWATCHER (SPPCON) +MSCHECKBLOCK (ERRORS) TEDIT.KILL (STREAM) LISPX (LISPXHIST) FOREST/BREAK/CYCLES (NODE DTAIL) DUMPGRAPH + (IDS FONTS BORDERS SHADES) MENUSELECT (MENU) MENUDESELECT (MENU) %%SYNONYM-STREAM-DEVICE-CLOSEFILE ( +STREAM) \NSRANDOM.READ.SEGMENT (PAIR HANDLE) PRIN2-LONG-STRING (ENTRY) \FM.FORMATEXPLICIT (SUBGROUPIDS + ITEMLIST GROUPLIST) \FM.FORMATBYGRID (ROWIDS ITEMLIST GROUPLIST ALIGNREGION) TERM.RESET.DISPLAY.PARMS + (CHAT.STATE) \FUNCT1 (NT FUNCTFRAME) TEDIT.CARETLOOKS (TEXTOBJ) \MAKESTACKP (ED) \PFTrimHelper ( +filePtr group) SPP.DSTYPE (EPKT CON) %%BROADCAST-STREAM-DEVICE-CLOSEFILE (STREAM) +%%SYNONYM-STREAM-DEVICE-OUTCHARFN (STREAM) DMCHAT.HANDLECHARACTER (DM2500.STATE CHAT.STATE) +NOTIFY.EVENT (EVENT TAIL PROC) \FM.NWAY-SETUP (ITEM) CL:GET-OUTPUT-STREAM-STRING (STRING-OUTPUT-STREAM +) INIT/NODES/FOR/LAYOUT (GN) DMCHAT.CLEARMODES (DM2500.STATE CHAT.STATE) \NSRANDOM.PREPARE.CACHE ( +STREAM PREV PREVFREE CACHE HEAD) FILEPKGCOM (TEM2 COM) PURGEHISTORY1 (LST) \FLUSHPAGE (RPTR) \RSTRING2 + (ANSTAIL STRM) \DSPSPACEFACTOR.HCPYMODE (DDATA) \POLYSHADE.XSCAN.IP (fulllist currlist) CALLS (X) +POSTSCRIPT.INIT (OLDPSCFD FP) READGRAPH (GRAPH) READ-EXTENDED-TOKEN (ANSTAIL) \SETMACROSYNTAX (TBL) +POSTSCRIPT.CLOSESTRING (IMAGEDATA) \VFMInsertPageGroup (key) \NSFILING.LOOKUP.CACHE (CONNECTION CACHE) + %%TWO-WAY-STREAM-DEVICE-OUTCHARFN (STREAM) EDITCHANGELABEL (NODE) \NSFILING.UPDATE.ATTRIBUTES (HANDLE +) \NSFILING.LOGIN (DEVINFO RANDEVICE) \INSERTCR (INPC TEXTOBJ) \TEDIT.PEEKBIN.NEW.PAGE (FILE STREAM) +\TEXTPEEKBIN (PS STREAM) \DSPFONT.PRESS (PRDATA) \FTP.CLOSEFILE (STREAM) /DREVERSE (Y) +FB.SET.DEFAULT.NAME.WIDTH (BROWSER) %%TWO-WAY-STREAM-DEVICE-CLOSEFILE (stream STREAMDEVICE) +\NSRANDOM.STREAM.CHANGED (OLDSTREAM) \LFSortFiles (FILES) \SETUP.TYPENUM.TABLE (DTD) +SEDIT::SET-POINT-COMMENT (SEDIT::POINT) \MOVEREALPAGE (DESTRPT) \SELECTREALPAGE (RPTBASE PREVRPT) +\SETACCESS (STREAM) \10MBENCAPSULATE (PACKET) %%FILL-POINTER-STREAM-DEVICE-CLOSEFILE (STREAM) +TEDIT.INSERT.UPDATESCREEN (SEL TEXTOBJ) \FTP.GENERATEFILES (CONNECTION) \UPDATECHAIN (CHAIN0 CHAIN1) +POSITION (STRM) \FM.STATE-CHANGESTATE (ITEM) \MAIKO.DISPLAYLINE (DISPLAYDATA) \LEAF.FIX.BROKEN.SEQUIN +(ACKEDQ SEQUIN UNANSWEREDPUPS RETRANSQ) CREATE.PACKET.EXCHANGE.XIP (XIP) \FM.FORMATBYCOLUMN (COLUMNIDS + ITEMLIST GROUPLIST) PROCESS.WINDOW (P) SEDIT::KILL-NODE (SEDIT::NODE) COMP.PROG (X F) +ONED.TRACKCURSOR (SELECTION) \INSTALL.EXTERNALFORMAT (EXTERNALFORMAT) \NSFILING.ADD.TO.CACHE (CACHE +SESSION) \GC.HANDLEOVERFLOW (CELL PTR) \TFBRAVO.HANDLE.HEADING (PARALOOKS) \PFPutRootDirectoryType ( +vol markerPage) \SPP.PREPARE.INPUT (STREAM CON) \DEFINEFONT.PRESS (PRDATA) \NSFILING.DISCARD.SESSION ( +SESSION) ADDTO (PTR) DECLARERECORD (TEM) \FTP.ADD.QUOTES (PIECES) CHAT.TTYENTRYFN (STATE) +SEDIT::ADJUST-WIDTH (SEDIT::STRING-ITEM SEDIT::NODE) \SETBSPTIMEOUT (SOCKET) CHAT.TYPEOUT.CLOSE ( +CHAT.STATE) \LEAF.HANDLE.INPUT (PUP STREAM DONEPUP) \FM.FORMATBYROW (DESCRIPTION ROWIDS ITEMLIST +GROUPLIST) DREMOVE (L) SEDIT::INSERT-CHANGED (LIST) \TEXTMENU.TOGGLEFN (SEL) \TEDIT.CHARDELETE ( +SCRATCHSTRING SEL) OPENNSOCKET (NSOC) SEDIT::SET-POINT-COMMENT-WORD (SEDIT::POINT) \GCMAPTABLE (CELL +DTD) DMCHAT.STATE (CHAT.STATE) FONTCREATE (FONTX) \INSERTCH (\INPC TEXTOBJ NEWPC) +SEDIT::CONVERT-COMMENT-TAIL (STREAM) TEDIT.REMOVE.MENUITEM (MENU) \LFFindInfo (FILE STREAM) OPT.DREV ( +Y) SETSYNONYM (KEYLST) \INTERNAL/SETPASSWORD (NAME/PASS INFO) UNDOLISPX2 (TEM Y) \DSPFONT.HCPYMODE (DD +) \POLYSHADE.DISPLAY (fulllist currlist GEOM scan) \FM.STATE-SETUP (ITEM) SEDIT::CREATE-SIMPLE-NODE ( +SEDIT::NEW-NODE) \LEAF.TIMEDIN (SEQUIN) FILL.INITTBLE (FCBBT) \TRANSMIT.STRATEGY (SOCKET PUP) +EDITBMSCROLLFN (EXTENT) PROCESS.EVAL (ME) ESPATTERN (Y) \SPP.CREATE.STREAMS (CON INSTREAM OUTSTREAM) +\TEDIT.COMMAND.RESET.SETUP (TEXTOBJ) \ALLOCWIDTHTOGROUPEDWINDOW (ATW) TEDIT.REDO.REPLACE (SEL EVENT +OLDEVENT) COMP.BLOCK (F) HISTORYSAVE (TEM X HISTORY L Y) \SETFVAR.UFN (VCELL) OPT.RESOLVEJUMPS (X) +TTYIN (\TTYINSTATE \ENDBUFFER) \SEND.RFC (PUP SOCKET) \TEDIT.SET-TOTLEN (PCNODE) \FLUSHPUPSOCQUEUE ( +PUPSOC) MAKEINITBFS (FIRSTCB) EDITCALLERS (FNS) \FLUSHNSOCQUEUE (NSOC) \BSP.SENDBUFFER (PUP STREAM) +SORT1 (TM L A) CLISPRPLNODE (X) \FM.FORMAT (DESCRIPTION EXTENT) INTERPRESS.OUTCHARFN (IPDATA) +\DECODETRANSITION (KEYSTATE) MERGE (ATAIL B) TTYIN.READ (STREAM) \FM.3STATE-CHANGESTATE (ITEM) +\TEDIT.HARDCOPY.FORMATLINE (TEXTSTREAM LINE THISLINE) \LEAF.TIMEDOUT (SEQUIN) \LEAF.RECONNECT (INFO) +\SETXFORM.PSC (IMAGEDATA) CLISPIFY1 (LST) HISTORYFIND (VAL) \PROCESS.EVAL1 (..PEV-PROC..) +FB.FASTSEECOMMAND (BROWSER) \BUILD.EXPEDITED.XIP (XIP) TTYINBUFFERBIN (STRM) DO.SHIFTED.SELECTION ( +NEWSTART) TTYIN.FINISH (TL) GRAPHADDNODE (GRAPH) \TEDIT.RESTARTFN (TEXT) \SEQUIN.CONTROL (PUP) +TERM.TAB (CHAT.STATE) DCODERD (CA) RELEASINGVMEMPAGE (PTR) TB.REMOVE.ITEM (BROWSER) \MEDW.BLTCHAR ( +DISPLAYDATA LOCAL1) \NSRANDOM.ENSURE.WATCHER (DEVINFO) CLISPFUNCTION? (TL) SPP.CLEAREOM (STREAM) +\MEDW.XOFFSET (DD) \TEDIT.COPYTEXTSTREAM.PIECEMAPFN (PC) WTFIX1 (HISTENTRY) \MEDW.YOFFSET (DD) +CREATEARRAYSLICE (SELECTIONDIMS OFFSETS) MSINTERPRET (REL VAL) FB.HARDCOPY.TOFILE (HCOPYTAIL) +CLISPATOM (TAIL) \LINEBLT (BBT) \TEDIT.FIXCHANGEDLINE (THISLINE NEWLINE LINES) \NOIMAGE.DSPFONT ( +STREAM) \CREATECHARSET.IP (CSINFO) TB.USERDATA (BROWSER) \TEDIT.NEWREGIONFN (MOVINGPOINT) +\TEDIT.LINECACHE (CACHE) BRV/OFFSET (P) \TFBRAVO.READ.PARALOOKS (TEDITPARALOOKS) \TEDIT-OPEN-FONT-FILE + (EXISTING-FONTFILE-IF-ANY) CHANGE.NODEFONT.SIZE (NODE) \PROCESS.APPLY1 (..PEV-PROC..) +\TFBRAVO.FONT.FROM.CHARLOOKS (CHARLOOKS) PROCESS.APPLY (ME) \ALLOCHEIGHTTOGROUPEDWINDOW (ATW) +TEDIT.CURSOROUTFN (TEXTOBJ) PROMPTFORWORD (CHARBUFFER) GRAPHERPROP (GRAPH) \LEAF.WHENCLOSED (SEQUIN +PUP DEV) \SPP.ESTABLISH (CON) \TEDIT.WORDDELETE (SEL) PUTSEQUIN (OPUP SEQUIN) \CURSORBITSPERPIXEL ( +CURSOR) COPYIMAGEOBJ (TO) LOOKUP.NS.SERVER (ADDR) \TFBRAVO.READ.CHARLOOKS (TEDITCHARLOOKS) +\BSP.FLUSH.SOCKET.QUEUES (STREAM) INITDATATYPENAMES (DTD) \SHIFT.DOCUMENT (PC PARALOOKS) +\SPP.SKIPBYTES (STREAM) \REMOVEDEVICE.NAMES (TAIL) \TFBRAVO.PARSE.PARA (RUNS) \TEDITOUTCHARFN (STREAM) + \CLOSEFILE (STREAM) \UNQUEUE.EVENT (EVENT TAIL PROC) SEDIT::CHANGE-QUOTE (SEDIT::QUOTE-NODE) +DINFO.READ.KOTO.GRAPH (GRAPH) CHAT.INIT (STATE INSTREAM) SEDIT::STRING-OFFSET (SEDIT::POINT-OR-SELECTION +) INFILECOMS? (VAL) \ENQUEUE.EVENT/LOCK (PROC TAIL EVLOCK) FB.SHAPECOMMAND (WREG) \TEDIT.BLTCHAR ( +DDPILOTBBT) \SPP.CREATE.WATCHER (CON) TB.MAKE.BROWSER (BROWSER TAIL OLDP) \SPP.HANDLE.DATA (XIP INQ +CURRENT CON OUTSTREAM) \MOVETO.PSC (IMAGEDATA) FB.MAYBE.WIDEN.NAMES (BROWSER) OBTAIN.MONITORLOCK (LOCK + PROC) POSTSCRIPT.FONTCREATE (PSCFD FD) \TEDIT.TEXTBIN.NEW.PAGE (FILE STREAM) \MAKE.ITEMS.VERT.ORDER ( +R) \DEVICEEVENT (STREAM) \QUEUE.OUTPUT.IOCB (IOCB CSB) PARSE-NSADDRESS (ADDR) ADDTOCOM1 (NEAR COM) +FB.ADJUST.DATE.WIDTH (SPEC) SEDIT::SET-POINT-NOWHERE (SEDIT::POINT) \RTP.HANDLE.RFC (DATA PUP) +UNIX.SETDISPLAYTYPE (WINDOW) \LFVersions (RESULT) \DONEWEPHEMERALPAGE (RPTR) RELEASE.MONITORLOCK (LOCK + OWNER PREV TAIL NEXTPROC) TERM.SETMARGINS (CHAT.STATE) OPT.PRATTACH (NEW BEFORE AFTER) +TEDIT.REDO.MOVE (MOVESEL) OPENPRSTREAM (PRSTREAM PRDATA) DISCARDPUPS (SOC) TERM.SET.TAB (CHAT.STATE) +SI::MONITOR-UNWIND (LOCK OWNER PREV TAIL NEXTPROC) \FM.3STATE-SETUPOFFBITMAP (ITEM) +SEDIT::NOTE-CHANGE-IN-SIMPLE (SEDIT::TEMP SEDIT::NODE) \SEND.ACK (SOCKET DATA) SEDIT::RELINEARIZE ( +SEDIT::CONTEXT CL:BLOCK SEDIT::FIRST-LINE SEDIT::SUPER-NODE SEDIT::EXTENT) SEDIT::DETACH-NODE (SEDIT::NODE +) TEDIT.FORMATTEXTBOX (PAGEFOOTNOTES FORMATTINGSTATE LINE LINES) COPYTEXTSTREAM (TSEL NEWTEXTOBJ) +FB.DEPTHCOMMAND (FBROWSER) TTYINBUFFERBACKPTR (STRM) \RTP.FILTER (SOCKET) \SEQUIN.PUT (PUP SEQUIN) +TB.DO.ITEM.SELECTION (OLDSELECTION BROWSER) \LEAF.IDLE (SEQUIN) \SPP.RELEASE.ACKED.PACKETS (CON) +\DSPFONT.PSC (IMAGEDATA) MSPRGRECORD (X) \FM.3STATE-SETUP (ITEM) RECORDWORD (TL) TB.REDISPLAY.ITEMS ( +BROWSER) CL:VALUES (CALLER) \RELEASE.ETHERPACKET (EPKT) \SIMULATE.UNBIND (FRAME) CL:VALUES-LIST ( +CALLER) FB.INFOMENU.WHENSELECTEDFN (BROWSER) FB.SETNEWPATTERN (FBROWSER) \MAKE.PROCESS1 (PROC MP0) +\TEDIT.COPY.LINEDESCRIPTOR (TOLINE) DELETEMENU (OTHERMENUS MENU) TEDIT.FORMATFOLIO (LINE) \TEXTSETEOF +(STREAM) \RELEASEWORKINGSET (RPTR) \PROCESS.MOVEFRAME (NEW) \MATCHPCS (PC) UPDATE/MENU/IMAGE (MNU +ITEMREGION WINDOW) \DSPLEFTMARGIN.PSC (IMAGEDATA) CL::VALUES-UFN (IMMEDIATE-CALLER CALLER) +\TEDIT.SELECT.CHARACTER (SEL) SEDIT::INSERT-COMMENT-CHARS (SEDIT::SUBNODE SEDIT::SUBNODES) +SORT.NSADDRESSES.BY.DISTANCE (HOSTLIST) \10MBSENDPACKET (COPYPACKET PACKET) CL::VALUES-LIST-UFN ( +IMMEDIATE-CALLER CALLER) \LEAF.OPENFILE (SEQUIN STREAM) \OPENFILE (STREAM) \SPPCONNECTION (CON) +\UNQUEUE.TIMER (PREV PROC) \PAGEDBACKFILEPTR (STREAM) \CLEARSYSBUF (PROC) SET-SYMBOL (ENVIRONMENT) +PRETTY-TYPE-NAME (TYPES) \DSPPRINTCHAR (STREAM) SENDPUP (PUP) \NSFILING.CLOSE.CONNECTIONS (STREAM) +CLOSEPUPSOCKET (PUPSOC) \ENQUEUE.TIMER (PROC PREV) \CREATECHARSET (FONT) TEDIT.FORMATHEADING (LINE) +NEAREST/PT/ON/GRID (PT) SETFILEINFO (FILE) \PFAddRootDirEntry (rootDir) \RTP.CLEANUP (SOCKET) +INITDATATYPES (DTD) MENUWRESHAPEFN (MENU) \DSPCLIPPINGREGION.DISPLAY (DD) \SPP.PREPARE.OUTPUT (CON +STREAM) \COURIER.RECORDTRAN (REST) \DSPRIGHTMARGIN.PSC (IMAGEDATA) SEDIT::SCAN-FOR-BOUNDS (SEDIT::ITEM-NODE + SEDIT::ITEM SEDIT::LINE-START SEDIT::START) FILEPKGTYPE (TEM2 TYPE) \ASSIGNDATATYPE1 (DTD NEWDTD) +SEDIT::INSERT-COMMENT (SEDIT::CONTEXT) \DSPOPERATION.DISPLAY (DD BBTA0500) PRINTERDEVICE (DEV STREAM) +\FORMATBYTESTREAM (BYTESTREAM) TERM.RIGHT (CHAT.STATE) \SFFixY.HCPYMODE (PBT DISPLAYDATA) +\LEAF.WRITEPAGES (STREAM DATA) DINFO.GET.GRAPH.WINDOW (GRAPH) \BACKCOLOR.DISPLAY (DD) +\FM.TOGGLE-CHANGESTATE (ITEM) \BSP.SKIPBYTES (STREAM) SEDIT::PARENTHESIZE-CURRENT-SELECTION (SEDIT::POINT +) COMP.DECLARE1 (V) \DO.PARAMS.AT.OPEN (STREAM) \DSPOPERATION.IP (IPDATA) \ENQUEUE (Q TAILEND THISITEM + ITEM) \HANDLE.RAW.10TO3 (PACKET) SETFONTCLASSCOMPONENT (FONTCLASS) \FIXLINELENGTH.PSC (STREAM) +EDITBMBUTTONFN (EXTENT) \REVALIDATEFILE (STREAM) ICMLARRAY.GETREGIONFN (INFO MOVINGPOINT) +\IMAGEUSERPROP (IMAGEOBJ) \SPLITTREE (NEW1 PCNODE NEW2) TEDIT.CURSORMOVEDFN (CURSORREG TEXTOBJ) +OPENPUPSOCKET (PUPSOC) DELETE.LONG.SEGMENT1 (STARTLINE ENDLINE) \SEQUIN.PROCESS (SEQUIN) +TEDIT.FORMATPAGE (FORMATTINGSTATE) FB.DISPLAY.COUNTERS (LAB FBROWSER) FB.NEWINFOCOMMAND (BROWSER W) +TEDIT.REDO (SEL TEXTOBJ) COMP.DECLARE (V) CSUBST (VAL) \PAGED.REVALIDATEFILELST (STREAM) +\DRAWLINE.DISPLAY (BRUSH) SEDIT::CHECK-SELECTION (SEDIT::POINT) \TEDIT.APPLY.PAGEFORMATTING ( +OPAGEFRAMES MAINTEXT) \TEDIT.GET.CHARLOOKS (PC) \FILLCIRCLE.DISPLAY (FCBBT) \TEXTINIT (STREAM) +LISPXUSE (VARS ARGS LST) MAKECREATE1 (TEM DECLST) \LFDirectorySearch (DIRSTREAM TLIST) FORGETPAGES ( +PREVBUFFER STREAM) \XCCSOUTCHAR (STREAM) RESTOREMAP (PREVBUFFER STRM) \DSPYPOSITION.DISPLAY (DD) +\SEQUIN.CLOSE (SEQUIN) \CHANGECHARSET.HCPYMODE (DISPLAYDATA PBT) \LEAF.TRUNCATEFILE (DATA) +\PAGED.REVALIDATEFILE (STREAM) \DSPXPOSITION.DISPLAY (DD DISPLAYSTREAM) \TEDIT.FILL.IN.CHARLOOKS.MENU +(SCRATCHSEL) /RPLNODE (X) \UNWIND.UFN (CALLER) MAKEINITLAST (V) \XCCSFORMATBYTESTREAM (BYTESTREAM) +TEDIT.NEXT (SEL TEXTOBJ) \TEDIT.FORMAT.FOUNDBOX? (FORMATTINGSTATE) \GETREGION.CHECKOPPT (OPPT) +\PAGED.REVALIDATEFILES (STREAM NEWLIST) \DSPRIGHTMARGIN.DISPLAY (DD) FB.CREATE.FILEBUCKET (NEWFILEDATA +) \TEDIT.CONVERT.FOREIGN.FORMAT (TEXTOBJ) TEDIT.STYLESHEET (TEXTOBJ) \PUPERROR (PUP) COPY (TAIL) +LOADPOLY (POLY POLYPRIME) TEDIT.PARSE.PAGEFRAMES (PAGEFRAME) \BUFFERED.REVALIDATEFILE (STREAM) +\DSPFONT.DISPLAY (DD) \DELETECH (TEXTOBJ PC1 HIPC) SPP.CLEARATTENTION (STREAM) \HTFIND (ENTRY PREV +LINK) \BUFFERED.REVALIDATEFILELST (STREAM) \DRAWLINE.PSC (IMAGEDATA) SETFONTDESCRIPTOR (X) +DINFO.LOOKUP (GRAPH) \FM.TOGGLE-SETUP (ITEM) SEDIT::SET-SELECTION-NOWHERE (SEDIT::SELECTION) +\BSP.PREPARE.OUTPUT (STREAM PUP) \SETGLOBALVAL.UFN (A) \LOOKUPPUPNUMBER (OXIP) \PROC.AFTER.WINDOWWORLD + (EXECPROC) \DSPLEFTMARGIN.DISPLAY (DD) \TEDIT.ABBREV.EXPAND (TEXTOBJ) INTPOWERS (AR) \RPLACA.UFN (X) +\TURN.ON.PROCESSES (P) %%SET-ARRAY-TYPE-NUMBER (ARRAY) SEDIT::DELETE-COMMENT (SEDIT::CONTEXT) +\RPLACD.UFN (X RP.PAGE .MK.NEWCELL PAGE) \NSFILING.AFTER.LOGIN (SESSION) \DSPLINEFEED.DISPLAY (DD) +TERM.NEWLINE (CHAT.STATE) \CONS.UFN (CELL CNS.PAGE .MK.NEWCELL PGA0282 PGA0283) \TRANSLATE.10TO3 ( +PACKET) %%SET-ARRAY-OFFSET (ARRAY) SPP.FLUSH.TO.EOF (INSTREAM) CLISPFOR0 (I.S. LASTPTR I.S.TYPE OPR +I.S.PTRS RETPREDS TERM ITER TEM INITVARS DECLARELST X) INITSEQUIN (SEQUIN) TEDIT.PARALOOKS ( +OLDLOOKSLIST NPC NEWLOOKS TEXTOBJ) ADDSPELL2 (TEM) ADDFILE0 (FILEPROP ROOTNAME) GETGRIDBOXREGION ( +NEWREGION) /PUT-1 (X0) SETUPPUP (PUP) \NOFILESNEXTFILEFN (GENFILESTATE TYPE) PFI.PRINT.BITMAP (STREAM) + FIND-HISTORY-EVENTS (VAL) DBG::COLLECT-ACTIVE-ESCAPES (DBG::ESCAPES) SETINTERRUPT (TEM) DINFO.FIND ( +GRAPH) \PFNewPages (currentGroup file) MSINTERPRETSET (SET REP) TEDIT.BUILD.PCTB0 (OLDPC PC TEXTOBJ) +\10MBGETPACKET (PACKET) \DSPBACKCOLOR.DISPLAY (COLORCELL DD) \DSPCOLOR.DISPLAY (COLORCELL DD) +\MISCN.UFN (MY-BF CALLER) TEDIT.SUBSTITUTE (TEXTOBJ SEL) TEDIT.SCAN.LINE (L L1 LN) +SEDIT::CREATE-NEW-COMMENT (SEDIT::COMMENT) BRHL/MOVE/RIGHT (NP) \RPLCONS (CPAGE .MK.NEWCELL LST) +\CANONICALIZE.NSADDRESS (PREVTAIL TAIL) \FIXDLINES (LINE TEXTOBJ PL NL) +MAKE-UNICODE-TRANSLATION-TABLES (PREV) \INSERTTREE (NEW PCNODE) TEDIT.FORMAT.HARDCOPY (FORMATTINGSTATE +) \EP.PUT.AUX (A) PUTDEFN (DCELL) MSNEGATESET (X) \PROCESS.MAKEFRAME (PROC) OPT.FRAMEVAR (V CD FR) +MSINITFNDATA (Y) DINFO.ADD.FMENU (GRAPH) SEDIT::SET-SELECTION-ME (SEDIT::SELECTION) \UNBOXFLOAT3 (AL) +SEDIT::CREATE-PRELINEARIZED-NODE (SEDIT::NEW-NODE) RESETKEYACTION (TABLE) \PARAS.IN.SEL (SEL PARAS) +\SELECTPROCESS (PROCNAMES) \TRANSLATE.3TO10 (PACKET) \ABORT.BULK.DATA (STREAM) +SEDIT::COPY-STRUCTURE-COMMENT (SEDIT::NODE) BRHL/LAYOUT (GN) \DO.PROGV.SETUP.FRAME.AND.EXECUTE (NT +CALLER) MAKEWITHINREGION (REGION) \TEDIT.DELETE (SEL) \CORE.CLOSEFILE (STREAM) \DRAWLINE.UFN ( +FIRSTADDR) DINFO.INVERT.NODE (DINFO.GRAPH NODE LAST.NODE) DINFO.DEFAULT.MENU (GRAPH) +\FM.MOMENTARY-SETUP (ITEM) \CORE.RELEASEPAGES (P) UPDATEFILES (TYPE FILEPROP TYPEDPROP) BRKDWNRESULTS1 + (TOT LST) \MAPPNAME.INTERNAL (\MAPPNAMESTREAM) \CORE.UPDATEOF (STREAM) RIGHTW.ADJUSTSELECTION ( +SELECTION) OPT.FRAMEDEL (CD PARENT) SHADEITEM (ITEMREGION) \NSFILING.GETFILE (HANDLE FILESTREAM) +MB.NB.PACKITEMS (LINES CURLINE) \LFMakeLeaderPage (LeaderPage) SHOW.IP (IPDATA) FILES.PUTDEF (NAME) +SPAWN.MOUSE (MOUSEPROC) \TEDIT.ADJUST.LINES (LL) FIND.SYMBOL (A0347 A0349 A0351) CHECK/MENU/IMAGE ( +MENU) RPLNODE2 (X) \LFMakeDirEntry (stream) ENDPREAMBLE.IP (IPDATA) \CORE.DELETEFILE (VERSTAIL EXTTAIL + NAMETAIL INFOBLOCK) ADDMENU (ADDEDMENU) CLEARFILEPKG (FILE) \HANDLE.NS.ROUTING.INFO (ENTRY) +\CORE.GETINFOBLOCK (I SCR) MB.MARGINBAR.TABTRACK (TAB) DINFO.LAYOUTGRAPH (DINFO.GRAPH) CHAT.STARTUP ( +TEM) SEDIT::CREATE-NODE (SEDIT::NEW-NODE) \GETREGION.CHECKBASEPT (BASEPT) SEDIT::CREATE-GAP-NODE ( +SEDIT::GAP-NODE) \MAIKO.ETHER-INTERRUPT (PACKET) \CORE.FINDPAGE (PE PREVTAIL STREAM) BCOMPL2 (LST) +GC-FILING-DIRECTORY (SESSION) TEDIT.BUILD.PCTB1 (TEXTOBJ OLDPC PC) TEDIT.SELECT.LINE.SCANNER (L L1 LN +LL) SEDIT::COPY-STRUCTURE-COMMENT-WORD (SEDIT::NODE) BRHL/LAYOUT/DAUGHTERS (DTAIL) +\PROCESS.GO.TO.SLEEP (EVLOCK PROC HEAD PREV OLDPROC) \MAIKO.10MBTURNONETHER (NDB CSB) TRAPMAKE ( +EDGELIST) FB.SORTCOMMAND (DATA ALLFILES BROWSER) \TEDIT.CENTER.SEL.REV (NEWQUADS) +DIRECTORY.MATCH.SETUP (TAIL) SPP.SENDATTENTION (EPKT) \CORE.NEXTFILEFN (GENFILESTATE) OPT.FRAMELOCAL ( +X) \GCRECLAIMCELL (PTR DTD) FB.GET.SORT.MENU (BROWSER) FB.INSERT.SUBDIRECTORIES (TAIL) +\CORE.GETFILEHANDLE (INFOBLOCK) \LEAF.REOPENFILE (STREAM) TEDIT.BUILD.PCTB2 (TEXTOBJ OLDPC PC) +\TFBRAVO.LCASER (L) GNCCODE (X) GLCCODE (X) \POP.N.UFN (AL) KILLSEGMENT (START END) TTNEXTNODE (BUF) +FW-RE-INIT (OFD) MSADDANALYZE (oldEntry) CLISPATOMARE1 (TEM) \NSFILING.GENERATEFILES (TAIL SCOPELIST) +\LEAF.EVENTFN (DEVINFO) \VFMGet1 (interval) \HANDLE.RAW.3TO10 (PACKET) \NSFILING.COPY/RENAME ( +NEWSESSION HANDLE) EDITBM (BM) HEADINGOP.IP (IPDATA) UNMARKASCHANGED (TAIL TYPEDPROP PROP) LOADFNS ( +DONELST) SETTOPVAL (ATM) %%MAKE-STRING-ARRAY-FAT (BASE-ARRAY) \MAKEPCTB (PCTB PC1) +\TEDIT.TEXTBIN.STRINGSETUP (STREAM) TEDIT.PUT (TEXTOBJ PC) OPENRTPSOCKET (SOCKET) \NSRANDOM.CLOSEFILE +(STREAM) PRINTROUTINGTABLE (ENTRIES) FB.FINISH.COMMAND (BROWSER) TEDIT.PUT.PCTB2 (PC TEXTOBJ) +SETPROPLIST (ATM) ADDSPELL1 (L2 L3 L1) ADDTOVAR (VAL) BRKDWN1 (FNS) TEDIT.GET.OBJECT0 (PIECE) CL:NUNION + (CL::LIST1-EXTRAS-TAIL) SEDIT::BUILD-WINDOW (SEDIT::CONTEXT) SEDIT::COMPUTE-POINT-POSITION-COMMENT ( +SEDIT::POINT) \CORE.NAMESCAN (NAMELST) \TEDIT.FIXINSSEL (SELTOFIX) CL:UNION (CL::LIST1-EXTRAS-TAIL) +\TEDIT.COPY.PIECEMAPFN (PC) TERM.GODOWN (CHAT.STATE) UNMAKEHARDCOPYMODESTREAM (DS) INSERTLINE (OLDEND +OLDLINE) \TFBRAVO.INIT.PARALOOKS (INITPARALOOKS) MSPATHS1 (TEM) CL:NINTERSECTION (CL::RESULT-TAIL) +SLITLOOP (CURRLIST) SEDIT::CREATE-CONSTANT-STRINGS (SEDIT::ENV) SEDIT::CFV-CLISP (SEDIT::X) /DREMOVE ( +Y) TEDIT.UNDO.REPLACE (OLDEVENT EVENT SEL) RAISE/TRANSITION/CHAIN (P) \BUILDSLUGCSINFO (CSINFO) +CL:NSET-DIFFERENCE (CL::RESULT-TAIL) \UNQUEUE (QUEUE PREV ITEM) UNION (TAIL) SEDIT::REUSE-LINEAR-FORM +(SEDIT::NODE CL:BLOCK SEDIT::CONTEXT SEDIT::TEMP) SEDIT::UNDO (SEDIT::CONTEXT) \CORE.OPENFILE (INFOBLK + NAME STREAM) FW-RESET (OFD) DIRECTORY (COMTAIL PREVTAIL SEENP) TEDIT.UNDO.MOVE (EVENT) +CL:NSET-EXCLUSIVE-OR (CL::RESULT-TAIL) \CORE.SETACCESSTIME (STREAM) MARKASCHANGED (L) \SETPUPCHECKSUM +(PUP) \TEDIT.DIFFUSE.PARALOOKS (PC) POSTSCRIPT.HARDCOPYW (REGION) \TEDIT.SHOW.CHARLOOKS (SEL) +\COREFILE.SETPARAMETERS (STREAM INFOBLK) \TEDIT.TEXTBIN.FILESETUP (STREAM) \TEDIT.NEUTRALIZE.CHARLOOKS + (SEL) SEDIT::UNDO-ATOM-CHANGE (SEDIT::NODE) \BSP.PREPARE.INPUT (STREAM) \DOHARDRETURN1 (RETURNER NEW +RETURNEE) COMP.STTAG (TAG) GETSETQ (TL) BRKDWNFORM (LST1 LST2) SEDIT::COMPUTE-COMMENT-COLUMN ( +SEDIT::CONTEXT) SEDIT::COMPUTE-SELECTION-POSITION-COMMENT (SEDIT::SELECTION) \TEDIT.FIXDELSEL ( +SELTOFIX) \CREATE.SYMBOL (ATM PNBASE) CLISPATOM1 (ATMS L TEM) SEDIT::COPY-NODE (SEDIT::NEW-NODE +SEDIT::SUBNODE) \CORE.SETFILEPTR (STREAM) APPENDTOVAR (VAL) OPT.FRAMEMERGE (P FR) +\TEDIT.MARK.LINES.DIRTY (LL TEXTOBJ) SEDIT::REDO (SEDIT::CONTEXT) SEDIT::CLOSE-NODE-COMMENT (SEDIT::CONTEXT +) \CORE.BACKFILEPTR (STREAM) SEDIT::SHIFT-BLOCK (SEDIT::CONTEXT) \CORE.SETEOFPTR (STREAM) DSPSCROLL ( +DD) \FM.CHANGELABEL (ITEM) UNSAVEBLOCK? (ENTRIES) \CORE.SETFILEINFO (INFOBLOCK) \SPP.HANDLE.INPUT (CON +) \INCUSECOUNT (SCANPTR) COMP.STJUMP (TAG) WRITE-UNICODE-INCLUDED (CSETINFO) UNPACKFILENAME.STRING ( +VAL) MENUWINDOW (MENU) FB.MAYBE.INSERT.FILE (TAIL NEWITEM) \CORE.GETNEXTBUFFER (STREAM) ATTACH (L) +\VFMKillBuffer (PREV) MBUTTON.FIND.NEXT.FIELD (SCRATCHSEL) CHANGEPROP (Z) \BSP.CLEANUP.INPUT (STREAM) +\ALLOCBLOCK (ABLOCK) \NSFILING.PARSE.FILENAME (DIRS) SLICESET (LINEARIZEDARRAY) \NSFILING.NEXTFILE ( +GENFILESTATE) TEDIT.GET.CHARLOOKS0 (PC LOOKS) \GATHER-CLEANUP-FORMS (PROC) EDITDEFAULT (EDITX) +\CREATECHARSET.PSC (CSINFO) FW-MOVEW (OFD) \SMASHBSPSTREAM (OLDSTREAM OUTSTREAM SOCKET) WINDOWWORLD ( +SCREEN) \FONTFILENAME (TAIL) SEDIT::COMPUTE-SELECTION-POSITION-DEFAULT (SEDIT::SELECTION) +MB.NB.WHENOPERATEDFN (SEL) DSUBST (EXPR) BRKDWNSETUP (TEM) XIPAPPEND.WORD (XIP) +EXTEND/TRANSITION/CHAIN (LTAIL) \MAIKO.INPUT.INTERRUPT (PACKET) \RELEASE.IOCB (IOCB) %%EXTEND-ARRAY ( +EXTENDABLE-ARRAY) \MOVEFRAME (NXT NEW) REMWINDOWPROP (TAIL WINDOW) \AGE.ROUTING.TABLE (ENTRY TAIL +BUCKET) \UNBOXFLOAT2 (AL) SEDIT::UNDO-EXTRACT (SEDIT::SUBNODE) %%ALTER-AS-DISPLACED-TO-BASE-ARRAY ( +ADJUSTABLE-ARRAY) CREATEMENUEDWINDOW (MENU WHOLEREGION) CLISPTRAN (X) \UNBOXFLOAT1 (AL VAL) +\HANDLE.RAW.PUP (PACKET NDB ENTRY) \BUFFERED.COPYBYTES (SRC) \FONTFACE.COLOR (ANSWER) +POSTSCRIPT.ENDPAGE (IMAGEDATA) \GENERIC-UNREGISTER-STREAM (DEVICE OPENFILELST) \DSPSCALE.PSC ( +IMAGEDATA) FW-SHAPEW (OFD) %%ALTER-AS-DISPLACED-ARRAY (ADJUSTABLE-ARRAY) \LEAF.FLUSH.CACHE (SEQUIN) +\SETUPGUARDBLOCK (STKP) XIPAPPEND.CELL (XIP) TCONC (PTR) CLISPATOM2C (TAIL0) INTERSECTION (R) +\SFLHASHLOOKUP (HASHENT) EDITCOML (TEM) FIXSPELL1 (TEM) \POLYSHADE.BLT (fulllist currlist) +\NSRANDOM.READPAGES (STREAM) WRITE-UNICODE-MAPPING-FILENAME (R) SET-READTABLE-INTERACTIVELY ( +READTABLES) PUTCURSORPROP (CURSOR TAIL) \NODIRCORE.OPENFILE (NAME) LDIFF (V) EDITSAVE (X) +CLISPCAR/CDR1 (X) \PUTD (DCELL) SI::NON-LOCAL-GO (TARGET) SEDIT::CFV-COMMENT (SEDIT::NODE) UNCLISPTRAN + (EXPRESSION) LCONC (PTR) \TEDIT.REOPEN.STREAM (PC TEXTOBJ) SI::UNWIND-TO-BLIP (TARGET) \NODIRCOREFDEV + (FDEV) LISTPUT1 (X) \SPP.RETRANSMIT.NEXT (XIP CON) MSRESPELL (TAIL) \CREATEPIECEORSTREAM (PC) +DECLSUBFIELD (TRANSLATION) POSTSCRIPT.PUTCOMMAND (IMAGEDATA) \MAIKO.10MBSENDPACKET (COPYPACKET PACKET) + \CHANGE-VISIBLE-REGION.IP (IPDATA) PRETTYFILEINDEX (STREAM) PFI.SORT.INDICES (RESULT INDICES) +\TFBRAVO.PARSE.PROFILE.VALUE (TOKENLIST) TEDIT.GET.PARALOOKS0 (PC LOOKS TABSPEC) SEDIT::OUTPUT-STRING +(SEDIT::THIS-ITEM SEDIT::CONTEXT) EDITSMASH (OLD) \NSRANDOM.SESSION.WATCHER (DEVINFO) \PFFindPageAddr +(file) TEDIT.SUBLOOKS (PC) MB.MARGINBAR.SELFN (OBJDATUM TAB) IDLE.BITMAP (BOX) \HCPYMODEDSPPRINTCHAR ( +STREAM) DIRFILENAME (FILEGROUP) SEDIT::VERIFY-STRUCTURE (SEDIT::CONTEXT SEDIT::ROOT) CALLS3 (X LST) +\TTY.CREATING.DISPLAYSTREAM (DS) EDITFPAT1 (VAL) MAP2CAR (MAPE) \MEDW.GETSCREENREGION (OPPT) +SEDIT::OUTPUT-SPACE (SEDIT::CONTEXT) EDITBELOW (L0 L1) MAPCON (MAPE) \TEDIT.CLOSEUPLINES (LINE) +TEDIT.OBJECT.CHANGED (TEXTOBJ) FB.GET.NEW.FILE.SPEC (BROWSER) MAPCAR (MAPE) %%DO-LOGICAL-OP (GBBT) +\DELETETREE (PCNODE) FB.COPY/RENAME.MANY (FBROWSER FILELIST) TEDIT.DO.BLUEPENDINGDELETE (SEL) EDIT4F3 +(LST) MAPLIST (MAPE) \TEDIT.CARET (CARET) SEDIT::SET-SELECTION-STRING (SEDIT::SELECTION) MAPCONC (MAPE +) TEDIT.GET.OBJECT1 (PIECE) SEDIT::COMPUTE-ALL-FORMATS (SEDIT::CONTEXT) COPYDEF (X DEF) +\INIT.RTPPROCESS (SOCKET) TEDIT.PUT.PCTB (OFILE PC TEXTOBJ) \READSTRIKEFONTFILE (CSINFO) +\TEDIT.CHANGE.LOOKS (TEXTOBJ OLDLOOKSLIST PC NEWPCLOOKS) \READACFONTFILE (CSINFO) \INFER.FILE.TYPE ( +STREAM) FW-ADJUST-PLACEMENT (OFD) SEDIT::CREATE-NULL-LIST (SEDIT::NODE) CLISPBROADSCOPE1 (X) +TEDIT.UNDO.PARALOOKS (NEWLOOKSLIST PC EVENT) ASSURE.PUP.READY (NDB) \NSRANDOM.WRITEPAGES (STREAM) +\VFMGetBufferFor (LAST) SORT.PUPHOSTS.BY.DISTANCE (HOSTLIST) \MAIKO.10MBSTARTDRIVER (NDB) +\TEDIT.FLUSH.UNUSED.LOOKS (LOOKS TEXTOBJ) \DISCARDFRAME (CHILD OLDCLINK) \TEDIT.GET.PARALOOKS1 (LOOKS +TABSPEC) RATOMS (L) SETFILEPTR (STREAM) SEDIT::BACKSPACE-COMMENT (SEDIT::POINT) \DELETEPIECE (NEXT +PREV) PUTASSOC (X) \RTP.ACTION (SOCKET) \SETUPGETCH (STREAM) TEDIT.SELECTED.PIECES (TEXTOBJ PCLST) +MAKEHARDCOPYMODESTREAM (DS) TRAPLOOP (KNOTS) SEDIT::CFV-DOTLIST (SEDIT::X) \TEDIT.CENTER.SEL (NEWQUADS +) \BASEBYTES.BLOCKIO (STREAM) SCROLL.HANDLER (WINDOW) \SPP.NOT.RESPONDING (CON) \TERPRI.PSC (STREAM) +SEDIT::OUTPUT-BITMAP (SEDIT::CONTEXT) PROCESSPROP (P TAIL) NORMLOOP (LAST LOOP) +SEDIT::SET-SELECTION-LITATOM (SEDIT::SELECTION) ROTATE-BITMAP (ROTATE-BBT) \FM.PUTITEMPROP (ITEM) +\NSRANDOM.TRUNCATEFILE (STREAM) \BASEBYTES.IO.INIT (STREAM) SEDIT::BUILD-NODE (SEDIT::CONTEXT) +OPT.CHECKTAG (TAG) \TEDIT.SET.SEL.LOOKS (SEL) CLEARSTK (PTR) \BASEBYTES.SETFILEPTR (STREAM) +ROTATE-BITMAP-LEFT (ROTATE-BBT) CURSORPOSITION (OLDPOSITION) UNDOLISPX3 (L) FASL::STORE-VALUE (FASL::TABLE +) FW-CREATEW (OFD) \BASEBYTES.BOUT (STREAM) POSTSCRIPT.GETFONTID (FONTID) UPDATEWFROMIMAGE (REGION) +UTF8.OUTCHARFN (STREAM) CLOSERTPSOCKET (SOCKET) SEDIT::SET-POINT-STRING (SEDIT::POINT) +%%FAST-COPY-BASE (PBBT) \FILLINXIP (EPKT) \SETUPSTACK1 (SP STKP) \CHANGECHARSET.HDCPYDISPLAY ( +DISPLAYDATA) \OPENLEAFCONNECTION (CONN DATA OPUP) \10MBRAWENCAPSULATE (PACKET) \LEAF.LOOKUPCACHE (PREV + STREAM) DINFO (GRAPH) \MAKEBASEBYTESTREAM (OSTREAM) TEDIT.UNDO.LOOKS (NEWLOOKSLIST PC TEXTOBJ EVENT) +\ROUTE.PUP (PUP) \MBS.OUTCHARFN (STREAM) \TEDIT.INSERT.PIECES (TEXTOBJ PC) \NSRANDOM.CREATE.STREAM ( +HANDLE S) \BASEBYTES.TRUNCATEFN (STREAM) \TEDIT.GET.CHARLOOKS1 (PC LOOKS) CONTINUEDIT (FL) +OPENSTRINGSTREAM (STREAM) FW-CREATE-OFD-WINDOWS (OFD) \BUILDATWSTRUCTURE (EDGEBUCKET) \OUTCHARFN.PRESS + (PRSTREAM PRDATA) \RTP.SHOW.FAILURE (SOCKET) SUBSET (TAIL) \PUSHSTATE.IP (State) \NSFILING.FULLNAME ( +HANDLE) SEDIT::NEW-BLOCK (CL:BLOCK) RECORDECL1 (CL) FSETVAL (ATM) CHARLOOKS.FROM.FONT (LOOKS) +UNDONLSETQ1 (LST) BRHC/LAYOUT (GN) \ROUTE.XIP (XIP) \HDCPYBLTCHAR (DISPLAYDATA LOCAL1) OPT.RETMERGE (G + L1) CRITSECT (SELF) SEDIT::SET-POINT-LITATOM (SEDIT::POINT) \SETPOS.PSC (IMAGEDATA) TTCOMPLETEWORD ( +BUF) MERGEINSERT (LST) SEDIT::BUILD-LINEAR-FORM (SEDIT::CONTEXT SEDIT::ROOT) \TEDIT.RESHAPEFN (TEXTOBJ + LINE LINES) \TTW1 (WS WINDOW SCREEN) CLISPDEC0 (X) \STRINGSTREAM.INIT (STREAM) TEDIT.RAW.INCLUDE ( +TEXTOBJ SEL) \DSPSPACEFACTOR.PSC (IMAGEDATA) SEDIT::LINE-FINISHED (SEDIT::CONTEXT) SEDIT::CLOSE-NODE ( +SEDIT::CONTEXT) AS.NEXT.VERIFIER (L) DASSEM.ASMAJ (P) CHANGESLICE (L) /PUT+1 (X) +\HANDLE.PUP.ROUTING.INFO (ENTRY) COMP.LAM1 (X) DSPDESTINATION (DISPLAYSTREAM DD) \LEAF.REQUESTPAGE ( +STREAM DATA CACHE) DO.EDIT.COMMAND (L) FM.GETSTATE (STATELIST) \DISABLEGC1 (TYPEBASE) +SEDIT::BUILD-INTERNAL-STRUCTURE (SEDIT::CONTEXT) ETHERHOSTNAME (BUF) RECORDECLBLOCK (FIELDNAMES SPECS) + \GC.MODIFY.BIGREFCNT (OVENTRY ENTRY) \MAKE.PROCESS0 (HANDLE) CHAT.TYPESCRIPT1 (CHAT.STATE) +\TEDIT.HISTORYADD (TEXTOBJ) \SLOWHDCPYBLTCHAR (DD PILOTBBT) OPT.JFIXPASS (J) \GC.ENTER.BIGREFCNT ( +OVENTRY ENTRY) \LFFileSpec (UNPACKEDNAME) \TEDIT.CUMULATE.EVENTS (PC NEWPC1) TEDIT.UNPARSE.PAGEFORMAT +(HEADINGS) \BACKFORMAT (NLINE LINES LINE1) SEDIT::SELECT-SEGMENT-DEFAULT (SEDIT::SELECTION) +\FTP.FIX.BROKEN.INPUT (CONN) \FORMATLINE (TEXTSTREAM LINE TEXTOBJ THISLINE) CHAT.TYPEOUT (CHAT.STATE) +\HARDRESET-CLEANUP (PROCESS OLDVAL VARTAIL) CL:VECTOR-POP (VECTOR) \HARDRESET-CLEANUP1 (NT CALLER INFO + SLOT) HVBAKREAD (BKRF) \NSRANDOM.DESTROY.STREAM (STREAM) ICONTITLE (TITLESPEC) RAND (I) MAKECOM (LST) + \BSP.HANDLE.INPUT (BSPSOCKET) /LISPXPUT (Y) FB.UPDATEBROWSERITEMS (BROWSER SPEC) +\RELEASE.FTPCONNECTION (CONN) TB.UNDELETE.ITEM (ITEM) \VFMGenerateFileIDs (currentKey) SPP.FORCEOUTPUT + (STREAM CON EPKT) \GCMAPSCAN (PREV ENTRY LINK) SEDIT::ATOM-CHANGE-RELINEARIZE (SEDIT::NODE) +INSERT.NODE (BUF) \GCMAPUNSCAN (PREV ENTRY LNK) \LEAF.ADD.QUOTES (PIECES) TB.NTH.ITEM (BROWSER) +\PUTFIXP (PTR) \10MBRAWRECEIVE (PACKET) \FREELISTCELL (X BASE) \PUTSWAPPEDFIXP (PTR) TEDIT.MAKESEL ( +SEL) FW-FORGET-STREAM (OFD) \DISPLAYLINE (DISPLAYDATA) SEDIT:SEDIT (SEDIT::CONTEXT) TEDIT.FORMATBOX ( +LINE FORMATTINGSTATE) \NSFILING.FILLIN.ATTRIBUTES (HANDLE) \GETBRUSHBBT (BBT) SEDIT::SCAN-STRING ( +SEDIT::POINT-OR-SEL) \VECPUT (PRDATA) NIL +PROP CLISPACKUP (CLISPBRACKET UNARYOP CLISPTYPE) CLISPIFYNOT (CLISPINFIX CLISPTYPE) SI::FINISH-ADVISING + (ADVISED) VIRGINFN (BROKEN ADVISED NAMESCHANGED EXPR) LOAD? (FILEDATES FILE) RECLISPLOOKUP (LISPFN +CLISPCLASSDEF CLISPCLASS) \LET*-RECURSION (GLOBALLY-SPECIAL) CL::STRUCTURE-CONSTRUCTOR ( +STRUCTURE-CONSTRUCTOR) COMP.EXPR (MACRO-FN) FIXCONTINUE1 (CROPS CLISPCLASS CLISPCLASSDEF) +SI::RESTORE-CALLS (NAMESCHANGED) LOADCOMP (LOADCOMP) VALUOF-EVENT (*GROUP* LISPXVALUES) +SEDIT::MENU-PACKAGE-SELECTEDFN (EDIT) \FM.EDIT-ITEM (INFINITEWIDTH) MSCOMMAND (CLISPWORD) +\FM.MENUHANDLER (INFINITEWIDTH) CHECKIMPORTS (IMPORTDATE) \FM.FORMAT (FORMAT FONT LEFT BOTTOM ROWSPACE + COLUMNSPACE ID MOTHER BOX BOXSHADE BOXSPACE REGION) CL::SET-SETF-METHOD-EXPANDER (SETF-INVERSE +:SETF-INVERSE :SHARED-SETF-INVERSE :SETF-METHOD-EXPANDER) SHRIEKIFY (CLISPTYPE CLISPWORD) +\FM.3STATE-CHANGESTATE (OFFREGION ONREGION UNHIGHLIGHT NEUTRALREGION) \FM.CREATEITEM (LEFT BOTTOM TYPE + LABEL FONT ID INITSTATE MESSAGE LINKS DOWNFN HELDFN MOVEDFN SELECTEDFN) LISPX/1 (INFO) CLISPIFY1 ( +UNARYOP) PRINT-LOADED-FILE-INFORMATION (FILEDATES) LOADCOMP? (LOADCOMP) COMPILE-FILE-EXPRESSION ( +COMPILE-FILE-EXPRESSION COMPILE.FILE.EXPRESSION) \FM.CHECKPROPS (FORMAT) PRINTHISTORY1 (*FIRSTPRINT* +*HISTORY* *REDOCNT* *LISPXPRINT* *PRINT* LISPXVALUES) TEDIT (LEAVETTY) MKACCESSFN (STANDARD UNDOABLE +FAST) SEDIT::PROP-CHANGED (EXPR) SI::GET-DESCRIBERS (SI::DESCRIBERS) FILEPKGCOMS.PUTDEF (CONTENTS +CONTAIN) GETHOSTINFO (OSTYPE) CLISPFUNCTION? (CLISPWORD) \UFS.REMOVE.HOST.FIELD (DIRECTORY VERSION +HOST DEVICE NAME) CL::SET-SETF-INVERSE (SETF-METHOD-EXPANDER :SETF-METHOD-EXPANDER :SETF-INVERSE) +DINFO.EXPANDFN (GRAPH) FW-INIT-PROPS (ALL-FILES? ANCHOR FILTERS FONT INTERVAL JUSTIFIED? POSITION +SHADE SORTFN) WTFIX1 (SIDE CLISPTYPE UNARYOP CLISPWORD EXPR CODE FILEDEF) FB.HARDCOPY.TOFILE (NAME) +CLISPATOM (CLISPTYPE) EDITL (Definition-for-EDITL) \FM.CHECKDESCRIPTION (LABEL TYPE HJUSTIFY VJUSTIFY +HIGHLIGHT BOX BOXSHADE BOXOFFSET BOXSPACE OFF CHANGESTATE MENUITEMS COLLECTION) \FM.STATE-SETUP ( +MENUITEMS MENUFONT CHANGESTATE MENUTITLE) COMPILER::CONSTANT-EXPRESSION-P (COMPILER::SIDE-EFFECTS-DATA +) \FM.RIGHTBUTTONFN (INFINITEWIDTH) SPELLFILE (DIRECTORIES FILEDATES HOST FILE) SEDIT::MENU-FIND-SELECTEDFN + (EDIT) EDITDEF.FNS (ADVISED BROKEN EXPR) ADDTOVAR (VALUE VARTYPE ALIST) CLISPATOM1A (CLISPCLASS +CLISPBRACKET CLISPTYPE BROADSCOPE CLISPWORD) XCL::%%DELETE-DEFINER (:DEFINER-FOR DEFINER-FOR +:DEFINITION-NAME DEFINITION-NAME :DEFINITION-EXPANDER) PREEDITFN (VARTYPE) CHNGNM (ADVISED BROKEN +NAMESCHANGED ALIAS) CLDISABLE (CLISPBRACKET I.S.OPR SEPARATOR) ASKUSER (CLASS) SAVESET (VALUE SIDE) +SEDIT::FN-CHANGED (EXPR) IDLE.SET.OPTION (AUTHENTICATE) FM.SHADE (REGION) CLISPDEC (LISPFN CLISPINFIX +CLISPCLASSDEF CLISPCLASS) DISPLAYLINK/BT (DRAWLINKFN LINEWIDTH COLOR DASHING) XCL::%%REMOVE-SPECIAL-FORM + (SPECIAL-FORM) COURIER.WRITE (COURIERDEF) PROPS.WHENCHANGED (PROPTYPE) CLISPATOM1 (CLISPTYPE +CLISPBRACKET SEPARATOR BROADSCOPE LISPFN CLISPCLASS UNARYOP CLISPWORD) FNCHECK (EXPR FILEGROUP) +TYPESOF (FILE) MAKEKEYLST (KEYSTRING) SEDIT::ASSIGN-FORMAT-CLISP (CLISPWORD) READHASHMACRO ( +HASHREADMACRO) DWIMIFY0 (SIDE) CLISPNOEVAL (MACRO-FN INFO) NEW/EDITDATE (Definition-for-EDITDATE) +DISPLAYLINK/RL (DRAWLINKFN LINEWIDTH COLOR DASHING) STOPSCAN? (UNARYOP) GETDEF.I.S.OPR (CLISPWORD +I.S.OPR) CLISPIF0 (SIDE) DWIMIFYFNS (FILE) ARGLIST (EXPR) HELPSYS (CLISPWORD) APPENDTOVAR (VALUE +VARTYPE ALIST) FIXSPELL (RESPELLS) COMPILER::RESOLVE-VARIABLE-BINDING (GLOBALVAR GLOBALLY-SPECIAL) +DWIMLOADFNS? (SIDE) FB.EDITLISPFILE (FILEDATES FILE) \LOAD-STREAM (FILEDATES) DELFROMCOM (PROPTYPE) +DISPLAYLINK/TB (DRAWLINKFN LINEWIDTH COLOR DASHING) COURIER.SKIP (COURIERDEF) CL:PARSE-NAMESTRING ( +HOST DEVICE DIRECTORY SUBDIRECTORY RELATIVEDIRECTORY VERSION) COMPILER::SIDE-EFFECTS ( +COMPILER::SIDE-EFFECTS-DATA) \FM.CHANGELABEL (UNHIGHLIGHT) CLISPATOM0 (SIDE) UNSAVEBLOCK? (BROKEN +ADVISED) FM.REDISPLAYITEM (BACKGROUND) CLISP-SIMPLE-FUNCTION-P (EXPR CLISPWORD) DWIMDEF (FILETYPE) +UnixPrint (%#COPIES DOCUMENT.NAME %#SIDES) RECOMP? (ADVISED BROKEN) \FM.3STATE-DOWNFN (BACKGROUND +UNHIGHLIGHT) MSNEEDUNSAVE (BROKEN ADVISED) CLISPIFYLOOKUP (CLISPCLASS CLISPCLASSDEF LISPFN) +\FONTINFOFROMFILENAME (NAME EXTENSION) GLOBALVARP (GLOBALVAR) \TEDIT.WINDOW.SETUP (TITLEMENUFN +PROMPTWINDOW READONLY PROMPTWINDOWHEIGHT) FIXATOM (GLOBALVAR) CLISP3A (INFO) INFILECOM (VARTYPE) +HASDEF (CLISPWORD I.S.OPR EXPR) \FM.HIGHLIGHTITEM (BACKGROUND) OPENPRSTREAM (REGION DOCUMENT.NAME +HEADING FONTS) \FM.PUSHGROUP (ITEMS REGION) PFI.PRINT.MULTI.INDEX (MULTIFILEINDEX) +POSTSCRIPT.FONTCREATE (PSCFONT) CL::TYPE-EXPANDER (:TYPE-EXPANDER TYPE-EXPANDER) CLISPELL (RESPELLS +CLISPWORD) CLISPFOR1 (CLISPWORD I.S.OPR) DELDEF (EXPR) COURIER.READ (COURIERDEF) FAULTEVAL (MACRO-FN) +COMP.CARCDR (CROPS) TEDIT.FORMATTEXTBOX (FOOTNOTE) DINFO.READ.GRAPH (TOPNODEID TEXTPROPS LOOKUPFN +MENUFN FREEMENUITEMS NODELST USERDATA) \FM.REDISPLAYMENU (BOX REGION BOXSHADE BACKGROUND) +\FM.JUSTIFYGROUPS (HJUSTIFY VJUSTIFY MOTHER REGION DAUGHTERS) ED (EDITDEF PROPTYPE) \FM.WINDOWENTRYFN +(INFINITEWIDTH) \DSPFONT.PSC (PSCFONT) DO-HISTORY-SEARCH (LISPXVALUES) MSPRGRECORD (CLISPWORD) +\FM.3STATE-SETUP (UNHIGHLIGHT NEUTRALREGION ONREGION) RECORDWORD (CLISPWORD) CLISPLOOKUP (CLISPCLASS +CLISPCLASSDEF LISPFN) XCL::UNDOABLY-MAKUNBOUND (GLOBALLY-SPECIAL GLOBALVAR) UNSAVEFNS (BROKEN ADVISED +FILE) \FM.3STATE-SETUPOFFBITMAP (OFF BOX HIGHLIGHT NEUTRALREGION OFFREGION) \FM.NWAY-CHANGESTATE ( +STATE) NO.SIDEEFFECTS.FNP (CROPS) EDITCOMA (EDIT-SAVE LASTVALUE) CLISPATOM2C (UNARYOP) +\FM.JUSTIFYITEMS (ITEMS HJUSTIFY VJUSTIFY CL:FORMAT REGION MOTHER) CLISP4 (INFO CLISPTYPE) EDITFNS ( +FILE) \UFSSetFileType (EXTENSION) MULTIFILEINDEX1 (%#SIDES) EDITCOM1 (SIDE) FM.CHANGELABEL ( +CHANGELABELUPDATE BACKGROUND) \FM.CREATEW (REGION ITEMS) PRETTYFILEINDEX (%#SIDES DOCUMENT.NAME) +COMP.MLL (MLSYM) TEDIT.FORMATFOLIO (PARALOOKS CHARLOOKS NOFIRSTPAGE FORMATINFO) PRINTERTYPE ( +PRINTERTYPE) MSCHECKBLOCKBASIC (BLKLIBRARYDEF) GETDEFFROMFILE (DEFINERS) FIXDATUM (SETFN CROPS) +SPELLFILE.MATCHINGDIRS (HOST DIRECTORY) \FM.NWAY-SELECTEDFN (COLLECTION DESELECT) FB.COPY/RENAME.MANY +(HOST DIRECTORY DEVICE NAME EXTENSION VERSION RELATIVEDIRECTORY) \FM.LAYOUTGRID (FORMAT FONT LEFT +BOTTOM ROWSPACE COLUMNSPACE ID MOTHER BOX BOXSHADE BOXSPACE ITEMS REGION DAUGHTERS) GETDEFSAVED (EXPR) + XCL::GET-UNDOABLE-SETF-METHOD (:UNDOABLE-SETF-INVERSE) ACCESSDEF (ACCESSFN SETFN) +INTERPRET/MARK/FORMAT (BORDER LABELSHADE) \FM.SETATTACHPOINT (ATTACHPOINT) NSPRINT (DOCUMENT.NAME +DOCUMENT.CREATION.DATE NO.WATCHER) LCSKIP (CODEREADER) COMPILEUSERFN (CLISPWORD) FIXAPPLY (EXPR CODE +FILEDEF) PRINTCOPYRIGHT (COPYRIGHT) POLYSHADE.IP (PRINTERMODE P.SCAN.DIRECTION) \FINDOP (DOPCODE) +\FM.DISPLAYITEM (BACKGROUND) COMP.UNBOX (BOX) \IDLER (FORGET TIMEOUT SAVEVM DISPLAYFN DISPLAY.DATA) +SEDIT::LINEARIZE-CLISP (CLISPWORD) CLISPIFYMATCHUP (CLISPCLASS CLISPISPROP) PRETTYDEF ( +MAKEFILE-ENVIRONMENT) EXEC-VALUE-OF (LISPXVALUES) MSCHECKFNINBLOCK (MACRO) TTY/EDITL (LASTVALUE +EDIT-SAVE) CLISPFOR (SIDE) TEDIT.MINIMAL.WINDOW.SETUP (REGION) PRINT-EVENT (*HISTORY* *LISPXPRINT* +LISPXVALUES) EDITFB (EXPR) FINDFN (BROKEN ALIAS) FB.GET.NEW.FILE.SPEC (NAME EXTENSION) HISTORYFIND1 ( +*HISTORY*) \FONTINFOFROMFILENAME.OLD (NAME EXTENSION) \TYPEGLOBALVARIABLE (GLOBALVAR) +COURIER.WRITE.SEQUENCE.UNSPECIFIED (COURIERDEF) MAKEFILE1 (FILEGROUP) FILECREATED (FILEDATES) +\SFFixY.HCPYMODE (ASCENT DESCENT) MSDESCRIBE (GLOBALVAR) \SWITCHFONTS.PSC (PSCFONT) +\FM.TOGGLE-CHANGESTATE (ONREGION UNHIGHLIGHT OFFREGION) TEDIT.FORMATHEADING (PRECONDITIONS HEADINGTYPE +) CLISPBROADSCOPE (CLISPTYPE) CONVERT.FILE.TO.TYPE.FOR.PRINTER (FONTS) \TEDIT.CHANGE.LOOKS (FONT +FAMILY FACE SIZE PROTECTED SELECTPOINT UNDERLINE OVERLINE INVERTED STRIKEOUT INVISIBLE SUPERSCRIPT +SUBSCRIPT WEIGHT SLOPE EXPANSION SIZEINCREMENT OFFSETINCREMENT STYLE USERINFO) HARDCOPYGRAPH (MODE +PAGENUMBERS RIGHTMARGIN UPPERMARGIN TRANS) COMP.ARGTYPE (BLKLIBRARYDEF BROKEN EXPR) +CL::ESTABLISH-SETFS-AND-OPTIMIZERS (COMPILER:OPTIMIZER-LIST) PRINTCODE (CODE) DASSEM.CLEANFNTEST ( +CROPS) UNDONLSETQ (SIDE) DINFO.UPDATE (GRAPH MENU TEXT HISTORY) IDLE (DISPLAYFN) BREAK-FUNCTION ( +BROKEN) FM.RESETSTATE (INITSTATE) TEDIT.FORMATPAGE (NEWPAGELAYOUT STARTINGPAGE# LANDSCAPE? PRINTERMODE +) SETF-MACRO-FUNCTION (MACRO-FN) CL:FMAKUNBOUND (SPECIAL-FORM CODE EXPR) READVISE1 (READVICE) DWMFY2 ( +INFO CLISPWORD CLISPTYPE) CHANGETRAN1 (CHANGEWORD) SPP.OPEN (SERVER.FUNCTION) \GR.DELDEFFN (GET) +LISPXFIND0 (*HISTORY*) GETDEFERR (SPELL) SEQUENTIAL.PRETTYPRINT (PRETTYWRAPPER) CSUBST (CLISPWORD) +\TEDIT.CENTER.SEL (QUAD) \FM.NWAY-MOVEDFN (COLLECTION STATE BACKGROUND DESELECT) +\TEDIT.APPLY.PAGEFORMATTING (STARTINGPAGE#) \FM.LAYOUTCOLUMN (FORMAT FONT LEFT BOTTOM ROWSPACE +COLUMNSPACE ID MOTHER BOX BOXSHADE BOXSPACE ITEMS REGION DAUGHTERS) MAKEFILE (FILETYPE) DOFILESLOAD ( +FILEDATES) \FM.COLLECTNWAYS (COLLECTION NWAYPROPS STATE INITSTATE) FM.CHANGESTATE (STATE BACKGROUND) +DBG::FIND-ORIGINAL-NAME-AND-DEFINITION (ADVISED BROKEN) CLISP3 (BROADSCOPE CLISPIFYISPROP CLISPNEG +UNARYOP LISPFN CLISPWORD) \TEDIT.CREATEW.FROM.REGION (PROMPTWINDOW PROMPTWINDOWHEIGHT) EDITE ( +Definition-for-EDITE) CL::SET-SHARED-SETF-INVERSE (SETF-METHOD-EXPANDER :SETF-METHOD-EXPANDER +:SETF-INVERSE :SHARED-SETF-INVERSE) PURGEHISTORY (*HISTORY*) CL::ESTABLISH-PREDICATE (COMPILER:OPTIMIZER-LIST +) DISPLAYLINK/LR (DRAWLINKFN LINEWIDTH COLOR DASHING) UNDOLISPX3 (*LISPXPRINT*) COURIER.REP.LENGTH ( +COURIERDEF) \FM.NWAY-DOWNFN (COLLECTION STATE BACKGROUND UNHIGHLIGHT DESELECT) RETDWIM (SIDE) +\FM.LAYOUTROW (FORMAT FONT LEFT BOTTOM ROWSPACE COLUMNSPACE ID MOTHER BOX BOXSHADE BOXSPACE ITEMS +REGION DAUGHTERS) CLISPCAR/CDR (ACCESSFN) READIMAGEOBJ (FILE) SUPERPRINT0 (PRETTYWRAPPER) +SAVECOPYRIGHT (COPYRIGHT) \DURATIONTRAN (NEW CLISPWORD) \FM.WINDOWEXTENT (REGION INFINITEWIDTH) +MSCHECKBLOCKS (FILEGROUP) \GET.COURIER.DEFINITION (INHERITS) CLISPIFYRPLAC (CLISPTYPE NARGS CROPS) +MSPRGE (BROKEN CLISPWORD) MSSHOWUSE (EXPR) \FM.TOGGLE-SETUP (UNHIGHLIGHT OFFREGION ONREGION) EDITGETD +(EDITGETD MACRO-FN CLISPWORD) CLISPIF (SIDE) EDITLOADFNS? (FILEDATES FILE) COMPILE-FILE? (FILETYPE) +I.S.OPR (CLISPWORD I.S.OPR) DWMFY1 (INFO) \UFSParse-Directory (DIRECTORY) \FM.NWAY-MESSAGE (COLLECTION + DESELECT) SUBPRINT (PRETTYWRAPPER CLISPWORD) \GR.PUTDEFFN (NEW) CLISPIFYFNS (FILE) CLISPLOOKUP1 ( +CLISPCLASS) TEDIT.CREATEW (PROMPTWINDOW PROMPTWINDOWHEIGHT) WHO-LINE-TTY-STATE (WHO-LINE-STATE) +\TEDIT.HCPYLOOKS.UPDATE (KERN) SUBPRINT1 (CLISPWORD) ALISTS.WHENCHANGED (VARTYPE) +\FM.UPDATEGROUPEXTENT (REGION ITEMS DAUGHTERS BOX BOXSPACE) CLISPATOM2A (GLOBALVAR CLISPTYPE) +RESETUNDO (SIDE) NEWDEFC (CODE) TEDIT.PARALOOKS (1STLEFTMARGIN LEFTMARGIN RIGHTMARGIN PARALEADING +POSTPARALEADING LINELEADING BASETOBASE QUAD TYPE SUBTYPE SPECIALX SPECIALY NEWPAGEBEFORE NEWPAGEAFTER +HEADINGKEEP KEEP HARDCOPY USERINFO REVISED TABS STYLE CHARSTYLES COLUMN) CLISPFOR0 (CLISPWORD I.S.OPR +\DURATIONTRAN BIND SIDE) \IDLE.EXIT? (ALLOWED.LOGINS AUTHENTICATE LOGIN.TIMEOUT FORGET) +FILEPKGCOMPROPS (PROPTYPE) \FM.EDIT-SETUP (BOX MAXWIDTH BOXOFFSET LABELMAXWIDTH INFINITEWIDTH) +PRETTYPRINT (EXPR) LISPX (*HISTORY* EXPR FILEDEF CLISPWORD STATE ...ARGS USE-ARGS) OPENDISPLAYSTREAM ( +REGION) \UFS.PARSE.BODY (NAME EXTENSION VERSION) \IDLE.OUT (TIMEOUT) \FM.NUMBER-SETUP (BOX MAXWIDTH +BOXOFFSET LABELMAXWIDTH INFINITEWIDTH NUMBERTYPE SYSLIMITCHARS) COMPILER::META-EVAL-CALL (COMPILER::TRANSFORM +) \FM.NWAY-SETUP (UNHIGHLIGHT OFFREGION ONREGION) XCL::UNDOABLY-FMAKUNBOUND (MACRO-FN SPECIAL-FORM +CODE EXPR) SEND.FILE.TO.PRINTER (HEADING) LISPX/ (INFO) COMP.TOPLEVEL.COMPILE (GLOBALLY-SPECIAL) +CLISPEXPANSION (CLISPWORD) \FM.TOGGLE-DOWNFN (BACKGROUND UNHIGHLIGHT) MSINTERPRETSET (CLISPWORD) +SCANFILE1 (CODEREADER) MSCHECKBLOCK (GLOBALVAR GLOBALLY-SPECIAL) CLISPIFYCROPS (CLISPTYPE) +XCL::SET-GLOBALLY-NOTINLINE-P (SI::GLOBALLY-NOTINLINE) RECORDECL1 (USERRECORDTYPE) +\TEDIT.PARSE.CHARLOOKS.LIST (FONT FAMILY FACE SIZE PROTECTED SELECTPOINT UNDERLINE OVERLINE INVERTED +STRIKEOUT INVISIBLE SUPERSCRIPT SUBSCRIPT WEIGHT SLOPE EXPANSION OFFSETINCREMENT SIZEINCREMENT STYLE +USERINFO) CLISPIFY2B (CLISPWORD CLISPTYPE INFO CROPS CLISPCLASS CLISPCLASSDEF LISPFN CLISPINFIX +CLISPFORM CLISPBRACKET CLISPIFY UNARYOP SEPARATOR SETFN ACCESSFN CLMAPS) DWIMARKASCHANGED (SIDE +*LISPXPRINT*) LLBREAK (BROKEN) LISPXSTATE (STATE *HISTORY*) LOWERCASE (CLMAPS CLISPINFIX) FM.GETITEM ( +ITEMS) OPENIPSTREAM (REGION LANDSCAPE DOCUMENT.NAME CLIP.INCLUSIVE MEDIUM HEADING FONTS COLOR SERVER) +\FM.EDIT-DELETE (INFINITEWIDTH) \FM.FORMATEXPLICIT (COORDINATES ITEMS REGION DAUGHTERS) CALLS ( +GLOBALVAR BROKEN EXPR) CLISPLOOKUP0 (CLISPCLASSDEF LISPFN) PFI.MAKE.LPT.STREAM (SERVER HOST LANDSCAPE +REGION) CL:SPECIAL-FORM-P (SPECIAL-FORM) \FM.MAKEBITMAP (BOX BOXOFFSET BOXSHADE) RECREDECLARE2 ( +CLISPWORD) \FM.FORMATBYGRID (ITEMS REGION DAUGHTERS BOX BOXSPACE) GLOBAL-MACRO-FUNCTION (MACRO-FN +CLISPWORD) TEDIT.FORMAT.HARDCOPY (DOCUMENT.NAME) CL:GET-SETF-METHOD (:SETF-INVERSE SETF-INVERSE SETFN +:SHARED-SETF-INVERSE :SETF-METHOD-EXPANDER SETF-METHOD-EXPANDER) SEDIT::MENU-SUBSTITUTE-SELECTEDFN ( +SEDIT::FINDITEM EDIT) \TEDIT.HARDCOPY.DISPLAYLINE (KERN) CL:TYPE-OF (CL::CMLTYPE +CL::CMLSUBTYPE-DESCRIMINATOR) CHECKSAMEDIR (FILEDATES) XCL:UNBREAK-FUNCTION (BROKEN) +CL:GET-SETF-METHOD-MULTIPLE-VALUE (:SETF-INVERSE SETF-INVERSE SETFN :SHARED-SETF-INVERSE +:SETF-METHOD-EXPANDER SETF-METHOD-EXPANDER) XCL::DECL-SPECIFIER-P (SI::DECLARATION-SPECIFIER) +CLISPIFY2D (CLISPTYPE UNARYOP GLOBALVAR) XCL::SET-DECL-SPECIFIER-P (SI::DECLARATION-SPECIFIER) +CLEARCLISPARRAY (CLISPWORD) CLISPNOTVARP (GLOBALVAR) \TFBRAVO.SPREAD.LOOKS (WEIGHT SIZE FAMILY SLOPE +UNDERLINE SUBSCRIPT SUPERSCRIPT) CLISPATOM2 (UNARYOP LISPFN CLISPCLASS CLISPBRACKET CLISPTYPE DWIMIFY +SEPARATOR SETFN) XCL::GLOBALLY-NOTINLINE-P (SI::GLOBALLY-NOTINLINE) \TEDIT.PARSE.PARALOOKS.LIST ( +1STLEFTMARGIN LEFTMARGIN RIGHTMARGIN PARALEADING POSTPARALEADING LINELEADING TYPE SUBTYPE +NEWPAGEBEFORE NEWPAGEAFTER HEADINGKEEP KEEP BASETOBASE REVISED QUAD COLUMN USERINFO SPECIALY STYLE +CHARSTYLES TABS) CLISPDSUBST (CLISPWORD) FM.WHICHITEM (INFINITEWIDTH) MSNOTICEFILE (FILEDATES FILE) +FM.GETSTATE (STATE) SPECVARP (GLOBALVAR) TEDIT.UNPARSE.PAGEFORMAT (CHARLOOKS PARALOOKS HEADINGTYPE) +DASSEM.ASMAJ (MOPVAL) SCALE/GRAPH (FORMAT) \TEDIT.FONTCOPY (FAMILY SIZE FACE) SIMPLEP (CROPS) +COMP.GLOBALVARP (GLOBALVAR) TEDIT.WINDOW.SETUP (MENU) COMP.ANONP (GLOBALLY-SPECIAL) COMP.BOX (BOX) +XCL:UNADVISE-FUNCTION (ADVISED) LISPXFIND (*HISTORY*) SI::GET-STORED-ARGLIST (ARGNAMES) SMARTARGLIST ( +BROKEN ARGNAMES ADVISED EXPR CODE) NLAMBDAFNP (INFO BROKEN EXPR CODE) HISTORYSAVE (*ARCHIVE*) +DWIMUNSAVEDEF (*LISPXPRINT*) \FM.FORMATBYCOLUMN (ITEMS REGION DAUGHTERS) VARSBOUNDINFORM (INFO +CLISPWORD) BRECOMPILE (FILEDATES FILE) \FM.GETBITMAPS (BOX BOXSHADE HIGHLIGHT LABEL) DASSEM.DASSEM ( +DOPVAL AJSIZES) OPENPOSTSCRIPTSTREAM (BOUNDINGBOX DOCUMENT.NAME PAGETYPE PAPERTYPE IMAGESIZEFACTOR +REGION FONTS HEADING HEADINGFONT LANDSCAPE ROTATION) SI::CHANGE-CALLS (ADVISED BROKEN) +\FM.STATE-CHANGESTATE (DISPLAY) \FM.CLEARITEM (INFINITEWIDTH BACKGROUND) FB.BROWSECOMMAND (DIRECTORY +HOST) XCL::VARIABLE-GLOBALLY-SPECIAL-P (GLOBALLY-SPECIAL) \FM.EDIT-PREPARETOEDIT (BOXOFFSET MAXWIDTH +LIMITCHARS SYSLIMITCHARS ECHOCHAR) \FILEMAP-HASHOVERFLOW (FILEDATES) \FM.STATE-SELECTEDFN (CHANGESTATE +) LAPRD (CODEREADER) \FM.FORMATBYROW (ITEMS REGION DAUGHTERS) CLISPIFY2C (INFO) XCL:TRACE-FUNCTION ( +BROKEN) COMP.TRANSFORM (MACRO-FN) SEDIT::MENU-PRINTBASE-SELECTEDFN (EDIT) \TEDIT.CENTER.SEL.REV (QUAD) + \FM.EDITSTART-SELECTEDFN (EDIT) PURGEHISTORY2 (*GROUP* *HISTORY*) \FM.GETREGIONS (LABEL HIGHLIGHT +MAXWIDTH MAXHEIGHT BOXOFFSET) FONTCOPY (DEVICE) SI::HAS-CALLS (ADVISED BROKEN) NIL +TEST \GCMAPUNSCAN (PREV) COMPILE-FILE-SCAN-FIRST (FORCE-OUTPUT-P) FNTYP (DEF) \GETFTPCONNECTION ( +TRYHARD UNWINDSAVE) \TYPENUMBERFROMNAME (TYPE) GETNSPRINTER (NAME) SI::BQUOTE-NCONC (SI::HEAD SI::TAIL +) \COURIER.CHECK.ERRORS (X) \ALLOCPAGEBLOCK (RESULT) \TEDIT.COMMAND.LOOP (LOOPFN CHARFN CH TERMSA) +SEDIT::SET-POINT-QUOTE (SEDIT::INDEX SEDIT::OFFSET) TEDIT.DISPLAYTEXT (TERMSA) \DSPSPACEFACTOR.IP ( +FACTOR) FASL:PROCESS-SEGMENT (FASL::TEXT-FN) \ATMOUT (ATOM) SETUPFONTS.PRESS (FLG) SI::BQUOTE-CONS ( +SI::BCDR) \LOGOUT0 (FAST) \TEDIT.CONVERT.TO.FORMATTED (NEXTCR) CL::MAYBE-MAKE-BINDING-FORM (CL::DUMMIES +) COPYFILES (COPYFILESASK COPYFILESOUTPUT DONTCOPY COPYFILESALWAYS DT2 COPYFILESPURGESOURCE +COPYFILESREPLACE NF COPYFILESTERSE COPYFILESVERSIONS COPYFILESPURGE) VRULE.CREATE (WIDTH HEIGHT) +TB.UNSELECT.ALL.ITEMS (UPDATABLE) \SPP.GETNEXTBUFFER (NOERRORFLG) WHILEDOUNTIL (FX DO) +SEDIT::SET-POINT-UNKNOWN (SEDIT::INDEX) CL::%%EXP-FLOAT (CL::RECIPFLG) \NSRANDOM.REESTABLISH (ID) +\HANDLE.RAW.OTHER (RAWTYPE) SUBSTRING (END FATP) SEDIT::SET-POINT-LIST (SEDIT::OFFSET SEDIT::DOTTED?) +MAKETITLEBARICON (TEXT) \DSPTOPMARGIN.IP (YPOSITION) BRHC/INTERTREE/SPACE (BTC TTC) CL:POSITION (END) +COMPILE-FILE-EXPRESSION (LOAD.SPECIFIED COMPILE.SPECIFIED COMPILE.TIME.TOO EVAL.SPECIFIED PROP) +RECLAIMMIN (N) SI::BQUOTE-APPEND (SI::HEAD SI::TAIL) ALLOCSTRING (INITCHAR FATP) \FTP.PRINTPLIST ( +ISPASSWORD) PRINTPUP (DOFILTER PRE.NOTE) BREAK.MSG.INTO.LINES (LASTSPACE) \LEAF.ABORT.FROMMENU (WINDOW +) RECORDECL (ALLOCATIONS) GETHOSTINFO (INFO) \SPP.BOUTS (CON) \COURIER.CHECK.PROCEDURES (X INFO) +WHILEDO1 (X) \LFScavFileName (A0493 NAME) \LFFindDirectory (VOL) UNPACKPATHNAME.STRING (ONEFIELDFLG +ATOMFLG) NTHCHARCODE (FLG FATP) \FIXILINES (LINE) OPT.JLENPASS (X) MKSTRING (FLG) \LFUnpackName (A0493 +) FLASHWINDOW (WHOLEP) TEDIT.\INSERT (SEL) \TEDIT.REPAINTFN (LINE) CL::STRUCTURES.EDITDEF ( +CL::STRUCTURE-NAME) UNIX-GETPARM (LEN) EDITGETDEF (NAME) BITMAPBIT (NEWVALUE TX TY SOFTCURSORUP +SI::*OR-GENTEMP*) DBG::ATTACH-BACKTRACE-MENU (SKIP) \SEARCH.OUTPUTQ (PUP LOOKFORINTERRUPT LASTPUP) +SPY.MERGE.CALLEES (DEPTH) STRPOS (START BACKWARDSFLG TAIL SKIP CASEARRAY ANCHOR PATFAT STRFAT) SHRKFY +(STAGEFLAG CDRLOOKAT CARLOOKAT FIRSTARGFLG CDARLOOKAT CDDARLOOKAT RESULTQ CARSAFEFLAG APPSINGFLG +RESULTR) PFI.PROCESS.FILE (DONTINDEX) CREATEW (REGION TITLE) BAKTRACE1 (LST) \FTP.PACKFILENAME ( +DEVICEWANTED NAMEBODY VERSION DIR DEVICE SERVERNAME PRESERVECASE) ASKUSER (KEYLST FILE TYPEAHEAD MESS +DEFAULT TEM NOECHOFLG PROMPTSTRING KEYLST1 ANSWER ORIGMESS CONFIRMFLG LISPXPRNTFLG BUFS) +\NSPRINT.INTERNAL (COURIERSTREAM) \GENERIC.CURSOR (NEWCURSOR) \FILLPOLYGON.PSC (TEXTURE TEXTUREBM) +COERCETEXTOBJ (PC OUTPUTSTREAM) \BBTCURVEPT (COLORBRUSHBASE) CLISPDEC (DECLST LST) \DSPLINEFEED.IP ( +DELTAY) \DSPCLIPPINGREGION.PSC (REGION) MSPARSE (LASTADVERB CONJUNCTIONS POSS SPELLING OUTPUTFILE) +\RESOLVE.TYPENUMBER (TYPENAME) \DRAWPOLYGON.PSC (CLOSED) TB.INSERT.ITEM (BEFOREITEM) TTYIN.LASTINPUT ( +BUF) TWODINSPECT.SELECTITEM (ROWPROP COLUMNPROP) TEDIT.UPDATE.SCREEN (NLINE) IDLE.SET.OPTION (MINS +GROUP OLD.OPTION) \PROCESS.BEFORE.LOGOUT (W) \MEDW.CURSOR (NEWCURSOR) \SLOWBLTCHAR (SOFTCURSORUP +SI::*OR-GENTEMP*) \TEXTCLOSEF (PC) TEDIT.DEFAULT.MENUFN (OFILE CH) D-ASSEM:INTERN-DCODE (D-ASSEM::COPY-P +) SEDIT::REPLACE-LIST (SEDIT::SUBNODES SEDIT::DOT-LIST? SEDIT::TRAILING-SUBNODES SEDIT::REDOT? +SEDIT::CONVERTED?) \DSPPRINTCR/LF (SOFTCURSORUP SI::*OR-GENTEMP*) TB.SELECTRANGE (EVENIFDELETED) +\DSPRIGHTMARGIN.IP (XPOSITION) SEPRCASE (CLFLG) SHOWBITMAP.IP (REGION SCALE) HERALD (STR) +COURIER.EXECUTE.CALL (SOURCEFLG SINKFLG BULKDATAFN) \DSPLEFTMARGIN.IP (XPOSITION) FB.THINCOMMAND ( +LASTTIMESTAMP TIMESTAMP) \GR.MAKEPRETTYCOMSL (NAME) \CARET.FLASH.AGAIN (OCARET CARET OC) +SI::EXPAND-CONDITION-CASE (SI::CLAUSES SI::NO-ERROR-CLAUSE SI::OPTIMIZE? SI::CTX) +CONDITIONS::CONVERT-RESTART-CASES (CONDITIONS::ALL-CONSTANT?) CLISPIFYLOOKUP (CLASS) +\LEAF.STREAM.IN.QUEUE (PUP FIRSTTIME IMPORTANT) CONDITIONS::EXPAND-RESTART-CASE (CONDITIONS::OPTIMIZE? + CONDITIONS::CTX) CL:MAKE-PACKAGE (CL::EXTERNAL-ONLY) REPLACEFIELD (TN NEWVALUE) \SHOWSEL (ON L1 LN) +TEDIT.STRINGWIDTH (TERMSA) BOXCOUNT (TYPE) USERNAME (FLG NAME) PFI.PRINT.MULTI.INDEX (ENV CONSECUTIVE +TAB1 TAB2 TAB3) \TEXTSTREAMBOUT (WINDOW L1 LN) SI::EXPAND-PROCEED-CASE (SI::OPTIMIZE? SI::CTX) +SETUSERNAME (NAME) \MEDW.PUTWINDOWPROP (VALUE OLDDATA OLDVALUE) \PEEKPUP (HOST NETHOST FILE) +\COERCEFONTDESC (STREAM FONT NOERRORFLG SPEC) HASHARRAY (REHASH-THRESHOLD) STKNTHNAME (POS CFLAG) +COMPILER:ENV-BOUNDP (COMPILER::LOOKUP) SEDIT::JOIN (SEDIT::NODE SEDIT::START SEDIT::END) IMPORT ( +CL::CSET) DO.CHAT.OPTION (MENU) CLOSENSOCKET (NOERRORFLG) INFILECOMTAIL (FLG) CLISPFORVARS (IV TEM +OLDFLG) COMPILER:COPY-ENV-WITH-FUNCTION (COMPILER:ENV) \SENDSPP (IGNOREALLOC) DWIMERRORRETURN (ARG) +\LEAF.TIMEDOUT.EXCESSIVE (PUP FIRSTTIME FULLNAME) CLMAPS2 (DEF) SUBARRAY (M1) GETSUPERTYPE (NX) +TEDIT.FIND.OBJECT.SUBTREE (PCTB) TTYINFIX (COMS) COMPILER:COPY-ENV-WITH-VARIABLE (COMPILER:ENV) +\FTP.HANDLE.NO (LEAVEMARK DESTPLIST CPASS NOERRORFLG) \HCPYMODEBLTCHAR (SOFTCURSORUP SI::*OR-GENTEMP*) + COMPAREDEFS (SOURCES SRCS) \FTP.ERRORHANDLER (INSTREAM) FB.THINP (OLDESTVERSION?) \CLEARMAP (PAGES +BUFFER USERFLG PREVBUFFER) \ENDVECRUN (WASDISPLAYING) FILING.CALL (ABSOLUTELY-NO-ERROR KEEPSTREAM) +PUP.ECHOSERVER (ECHOWINDOW ISGOOD) \CH.CHECK.CLEARINGHOUSE (ADDR) \MEDW.BITBLT (SI::*OR-GENTEMP*) +CL:IN-PACKAGE (PACKAGE) UNDOSAVE (HISTENTRY UNDOFORM) HARRAYPROP (NEWVALP HARRAY) \FTP.WHENCLOSED ( +CONN) CL:Y-OR-N-P (FORMAT-STRING) COMP.MAP (CARFLG BYF WHILEF COLLECT PRED NEG) \ACTONDISKPAGES (CAs +BUF SI::*OR-GENTEMP* BUFFERS LASTACTION LASTNUMCHARSCONS) DATATYPES (USERSFLG) FILEBROWSER (ATTRIBUTES + REGION FILESPEC) CL:READ-CHAR (EOF-ERRORP RECURSIVE-P) \DISKERROR (STREAM) FB.SEEFULLFN (BUTTONS +EVENT) CHAT.TAKE.INPUT1 (FILE) \SLOWHCPYMODEBLTCHAR (SOFTCURSORUP SI::*OR-GENTEMP*) \GR.CONTENTS (COM +NAME) \GENERIC.DSPCREATE (DESTINATION SCREEN) CLISPFORERR (TYPE X Y) \IDLER (FROMTIMEOUT IDLE.PROCESS +SAVEVM.TIMER NO.ERROR EXIT? INTERRUPTED.STRING) FINDPTRSBUFFER (B NOERRORFLG) \DOACTONDISKPAGES ( +HINTLASTPAGE RETURNONCHECKERROR) CLSTOPSCAN? (CLTYPX CLTYP) SEDIT::INSPECT-SELECTION (CL:STRUCTURE) +\ICONW.FORMAT.TITLE1 (DONE LASTBREAKPOS MINWIDTH) \TEDIT2 (UNSPAWNED) OPENBSPSTREAM (SOCKET) /RPLNODE2 + (Y) \WRITEDISKPAGES (CAs BUF SI::*OR-GENTEMP* BUFFERS) PUTHASH (VAL) \HASHACCESS (EQFN DELSLOT REMOVE +) PRINTXIP (DOFILTER PRE.NOTE) \SPP.SEND.ENDREPLY (NOACK) M44.SIGNAL.DISK.ERROR (ERRCODE) +SEDIT::LINEARIZE-QUOTE (SEDIT::INDEX) MAPBUFFERCOUNT (B AVAILFLG) SEDIT::LOCATE-NODE-FROM-EDITCHAIN ( +SEDIT::CHAIN) INSURE.B&W.TEXTURE (TEXTURE NOERRORFLG) TEDIT.UNDO.DELETION (NPC) +\TFBRAVO.INSTALL.PAGEFORMAT (PAGENUMBERS PAGENUMBER.NOTONFIRSTPAGE HEADINGDESC HEADING.NOTONFIRSTPAGE +ODDHEADINGDESC ODDHEADING.NOTONFIRSTPAGE EVENHEADINGDESC EVENHEADING.NOTONFIRSTPAGE) \COURIER.REP.BIN +(X) RAISE-SIGNAL (*CONDITION-HANDLER-BINDINGS* BINDING) PRINTDEF (LEFT TAILFLG) \MAPPAGE (BUF USERFLG +PREVAVAIL STREAM) \ACTONVMEMPAGES (CAs LASTACTION) DINFO.UPDATE (FMENU.WINDOW) \WRITEVMEMPAGES (CAs) +UNDONLSETQ (LISPXHIST UNDOTEM) TEDIT.FIND.OBJECT (PC) STORAGE (TYPES HFLG DOBLOCKSFLG) \GR.DELDEFFN ( +NAME DEF) CL:DELETE (END COUNT) DWIMIFY1A (FN TAIL) TEDIT.REDO.INSERTION (OBJ NPC) \DSPROTATE.PSC ( +ROTATION) CL:STRING= (START1 END1 START2 END2) \COURIER.BROADCAST.ON.NET (MESSAGE RESULT RESULTFN) +STORAGE.LEFT (FREE) SETUPFONTS.IP (IPDATA) \STORAGE.TYPE (LSTPAG PTR IN-USE-THRESHOLD) +\DSPBOTTOMMARGIN.IP (YPOSITION) POSTSCRIPT.SET-FAKE-LANDSCAPE (ROTATION LAND) \BITBLT.BITMAP.SLOW ( +CLIPPINGREGION WIDTH HEIGHT TEXTURE SOURCETYPE) \STORAGE.HUNKTYPE (PAGE-THRESHOLD IN-USE-THRESHOLD) +\COLLECTDIRTYBUFS (B STREAM) \STRINGWIDTH.PRESS (RDTBL) BSPOPENP (SOCKET TYPE) TEXTUREOFCOLOR (RGB) +\PUNT.BITBLT.BITMAP (CLIPPINGREGION WIDTH HEIGHT TEXTURE SOURCETYPE) \SETIODIRTY (BUF) +SEDIT::LINEARIZE-LIST (SEDIT::INLINE? SEDIT::SUBNODES SEDIT::INDEX SEDIT::ALREADY-INDENTED? SEDIT::INFO + CL:FIRST SEDIT::PREV-TYPE SEDIT::PREV-INLINE SEDIT::SET-INDENT? SEDIT::BREAK?) \PUNT.BLTSHADE.BITMAP +(CLIPPINGREGION WIDTH HEIGHT DESTINATIONNBITS TEXTURE) FAKE-COMPILE-FILE (SAVE-EXPRS REDEFINE ENV LAP +OUTPUT-FILE) COURIER.REP.LENGTH (N) \DODISKCOMMAND (NEXTCB) DSPSOURCETYPE (SOURCETYPE) SETREADFN (FLG) + TEDIT.EDIT.OBJECT (OBJ CH# EDITFN) BRH/LAYOUT (DS) WHO-LINE-WHAT-IS-RUNNING (POS) \FTPERROR (ERRMSG) +TB.EXPANDFN (FIRSTCHANGEDITEM#) \IFS.LOOKUPFILE (DIREND SEMI DOT IPUP) COMP.SELECTQ (THISLABEL VAR) +\CLEANUPDISKQUEUE (FREE) RECORDACCESSFORM (TYPE) \NSFILING.GDATE (DATE) CLISPIFYRPLAC (CLTYP0 %:FLG +CLTYP00) \PAGED.GETNEXTBUFFER (NOERRORFLG) FB.ADD.FILE (SIZE) \PAGED.FORCEOUTPUT (B BUFFERS) +\DSPCLIPPINGREGION.IP (REGION) COMPILE-FILE? (UNKNOWN) DASSEM.DSTOREFNDEF (NAMETABLE LOCALARGS) +ICMLARRAY.INDICES (FIRSTFLG) \CLISPKEYWORDPROCESS (FORM TMP) \GR.PUTDEFFN (NAME DEF) IRM.LOAD-GRAPH ( +FILE) WHO-LINE-TTY-STATE (PROC) COMPARELISTS (DIFFERENCES) DSPCREATE (DESTINATION) \LEAF.RESENDPUPS ( +PUPS) \PAGEDREADP (FLG) CLISPIFYMAPS (FN2 VAR) \CHECKARRAYBLOCK (FREE ONFREELIST) SORT (DATA) +\COURIER.REP.BOUT (X) \ALLOCBLOCK.OLD (ALIGN INITONPAGE) TB.FIND.PREVIOUS.TAIL (TAIL) +TWODINSPECT.REDISPLAY (ELTROWPROPS ELTCOLUMNPROPS ELTS) \ALLOCBLOCK.NEW (INITONPAGE ALIGN) +FILENAMEFROMID (name) \ALLOCHUNK (ALIGN INITONPAGE STRADDLERS) TOPW.REPAINTFN (WINDOWREGION +STARTCOLUMNPROPS) TEDIT.MOVE (FROM TO REPLACING) TB.FLUSH.WINDOW (FN) BSPPUTMARK (PUP) +\MAIKO.ALLOCBLOCK (ALIGN INITONPAGE) \BSP.HANDLE.DATA (PREVPUP PUP) CHAT.TYPESCRIPT (PROC) +CLISPIFYCROPS (Y CROPFN) FILEWATCH (FW-PROC COMMAND) SEDIT::COMPLETION (SEDIT::CHANGED? SEDIT::IFCHANGEDFN +) CHCON (FLG FATP \CHCONLSTAIL) INSURE.RGB.COLOR (NOERRFLG) DBG::FIND-DEBUGGER-STACK-FRAME (DBG::PLACE +) DWIMARKASCHANGED (L) \MERGEFORWARD (BASE NBINUSE) \MEDW.REDISPLAYW (ALWAYSFLG REGION) \LINKBLOCK ( +FREEBLOCK) UNPACK (FLG FATP \CHCONLSTAIL) \MERGEBACKWARD (BASE) CLISPLOOKUP0 (DECLST CLASS) +\CLIPCURVELINE.IP (SWAPPED) \LEAF.GETFILEINFO.OPEN (BASE) \TEDIT.STRIKEOUT.CARET.ON (LOOKS) +\TEDIT.STRIKEOUT.CARET.OFF (LOOKS) \BSP.HANDLE.ACK (INTERRUPTPUP OLDPUP ADATACOUNT) PPBUFS (B) +\SPPGETERROR (MOREMSG) EDITFROMFILE (ONLYTYPES SEEN DEF) CLISPIFYCROPS1 ($LST Y TAILSTATE TEM) +\PREFIXALIGNMENT? (ALIGN INITONPAGE) \BSP.GETNEXTBUFFER (NOERRORFLG) NEARTOP (TITLEPROPORTION) +\LOCATE.NSNET (DONTPROBE) DCHCON (FLG FATP) INITPUPLEVEL1 (FLG) \MEDW.SHAPEW (NEWREGION) +ASSURE.ETHER.ON (USENS) FLAST (Y) SPY.MERGETREE (RECURSIVE) SEDIT::DELETE-QUOTE (SEDIT::END) +\CHECKFORSTORAGEFULL (NPAGES) XCL:SET-EXEC-TYPE (XCL::EXECA-FRAME) \TEDIT.INTERRUPT.SETUP (FORCEOFF +TEXTOBJ) DASSEM.DWRITEFN (FREEVARS LOCALVARINFO) CL:APROPOS-LIST (PACKAGE EXTERNAL-ONLY) +ICMLARRAY.DOWINDOWCOMFN (COM) DUNPACK (FLG FATP) \NSFILING.GETFILEINFO.FROM.PLIST (PLIST LENGTH CHNAME + PROT) CL:APROPOS (PACKAGE EXTERNAL-ONLY) \CARET.FLASH? (CARET) COPYHASHFILE (LEAVEOPEN) ALPHORDER ( +AFATP BFATP) COURIER.OPEN (NOERRORFLG) BLOCK (MSECSWAIT TIMER OLDPROC) CASEARRAY (OLDAR) \SETBRUSH.IP +(COLOR) SEDIT::INPUT-QUOTE (SEDIT::SUPER-NODE) DWIMUNSAVEDEF (FLG) \NSFILING.RELEASE.BULKSTREAM ( +ABORT?) CHECK-SYMBOL-NAMESTRING (CL:PACKAGE-NAME) \TEDIT.UNDERLINE.CARET.ON (LOOKS) PACKC (HASFAT) +UnixPrintCommand (PRINTER) \LOOKUPFMAP (ISFMAP) BSPFORCEOUTPUT (PUP) FIND-DEBUGGER-ENTRY-FRAME ( +SKIP-FAKE? INBRK) BRECOMPILE (CFILE FNS NOBLOCKSFLG) CLEARBUF (FLG LINBUF SYSBUF) DASSEM.DASSEM (ARGS +LL LOCALS A) \NEW.READ.SYMBOL (NONNUMERICP PACKAGE EXTERNALP) PACK (X) COMP.GETBASEBITS (STFLG) +COPYALL (X) LINBUF (FLG) \MEDW.EXPANDW (MAINWINDOW) COMPILER::PRINT-NODE (CL:NUMBER) +SET-PROFILE-INTERACTIVELY (PROFILE) TTY.PROCESS (PROC OLDTTY INTERRUPTLIST NEWINTERRUPTS) +\FM.EDIT-PREPARETOEDIT (STARTFLG) \3MBFLUSH (ASPROC) SCALE/GRAPH (LAYOUT-IS-VERTICAL) \NEW.MKATOM ( +FATP) COPYHASHITEM (USERFN) SETDISPLAYHEIGHT (NSCANLINES) CONVERT-LITATOM (CL:PACKAGE-NAME) +FB.ANALYZE.PATTERN (LASTPATDIR) TEDIT.FIND (TARGETSTRING WILDCARDS? START# REAL-END# RESULT) +ONEDINSPECT.SELECTITEM (PROP) \MEDW.SHRINKW (EXPANDFN ICONISBITMAP) \LEAF.STRIP.QUOTES (TAIL) CL:INTERN + (PACKAGE) INTERPRESSBITMAP (REGION TITLE SCALEFACTOR) CLISPACKUP (OPRFLG L1 L-1 LL) OLDFAULT1 ( +FAULTAPPLYFLG) UnixShellQuote (FLG) RESOLVE-READER-CONFLICT (ILPREFERRED CLPREFERRED) MAKEBITTABLE ( +NEG) CL::DEFINE-COPIERS (CL::COPIER) EXCHANGEXIPS (IDFILTER) TEDIT.SETSEL (PENDINGDELFLG +LEAVECARETLOOKS) \NSFILING.HOSTNAMEP (SERVER) TB.ITEM.UPDATABLE? (ONLYIFVISIBLE OLDN) +\LEAF.REPAIR.BROKEN.PUP (STREAM) \TEDIT.SUPERSCRIPT.CARET (LOOKS) \FM.EDIT-ITEM (DONEFN ITEM) SYSBUF ( +FLG) \DSPTOPMARGIN.PRESS (YPOSITION) \SHOW.ARRAY.FREELISTS (SIZESLST X) FILEPOS (SKIP CASEARRAY START +END TAIL) XCL::SHOW-CLOSURE-CACHE (XCL::LONG-P) \M44DOEXTENDVMEMFILE (LASTPAGE EXTENDED) CLISPFORVARS1 + ($TAIL) FB.CHECK.NAME.LENGTH (OVERFLOW) \BSP.HANDLE.INTERRUPTREPLY (INTPUP) PACKAGE-HIERARCHY-INIT ( +CONVERT?) \NSFILING.CLOSE.BULKSTREAM (STREAM) \TEDIT.UNPARSE.PARALOOKS.LIST (PROP) TEDIT.SETFUNCTION ( +FN) NSNAME.TO.STRING (OBJ FULLNAMEFLG) FTPPRINTCODE (NOCODEP) \NSFILING.ERRORHANDLER (PRINTFLG ID) +FFILEPOS (SKIP START END CASEARRAY TAIL) \PARSEARRAYSPACE1 (FN) COMP.NUMBERCALL (A) UnixTempFile ( +DontOpen) TEDIT.GETFUNCTION (TABLE) \NSINIT (MINI PROC) TEDIT.MAPPIECES (PC) +\TEDIT.UNDERLINE.CARET.OFF (LOOKS) COURIERPROGRAM.PRETTYPRINT (EXPR) SPY.MAX (COUNTP) SEDIT::INPUT-DOT + (SEDIT::NODE) ICONW.TITLE (TITLESPEC TITLE) \INTERPRETER1 (ARGLIST) CARETRATE (ONRATE OFFRATE) +SEDIT::ICON-COPYFN (SEDIT::NAME) SEARCHPRETTYTYPELST (FLG) \SMASHLINK (ALINK CLINK) COMP.NUMERIC (A V) + FM.SKIPNEXT (EDITITEM) \STACKARGPTR (POS) \FILLBUFFER (CONTROLTON CHAR PEEKEDECHOED) \STARTDISPLAY ( +OLDWINDOWS) SEDIT::EDIT-HELP (SEDIT::FNAME) CL::%%RATIO-PRINT (CL::PR) \MEDW.MOVEW (POSorX OPEN? +USERMOVEFN SOFTCURSORUP SI::*OR-GENTEMP* OLDCLIPREGION) FB.HANDLE.ABORT.BUTTON (BROWSER) NEWFAULT1 ( +FAULTAPPLYFLG FAULTZ) CL:ADJOIN (CL::KEY) FAULTAPPLY (%%LEXICAL-ENVIRONMENT%%) COMP.COMPARENUM (OFN V1 +) \UNPACKDATE (FRAC CHECKDLS) BRECOMPILE3 (COREOK) \OFFSETCLIPPINGREGION (OLDREGION) +\SETUP-COMPILED-CLOSURE-CALL (SLOWP) \STOPSCROLL? (W) \FILLINSPP (CCONTROL DSTYPE) +\LEAF.USE.NEW.CONNECTION (UNSENTPUPS AFFECTEDFILES RESENDPUPS) TB.PROCESS (ALLOWLOGOUT) MAKEKEYLST ( +LCASFLG DEFAULTKEY) \3MBSENDPACKET (PBI) \PARSE.REMOTE.FILENAME (QUOTEP NOERROR HOST DEV DIR EXT +VERSION) CLISPFOR2 (FLG) \DSPSPACEFACTOR.PRESS (FACTOR) \PACKDATE (YR MONTH DAY HR MIN SEC) MAKEFILES +(FILES FLG) \NSFILING.DIRECTORYNAMEP (CREATE?) \IDATESCANTOKEN (CH) ARGLIST (DEF) \DSPFONT.IP (FONT) +SEDIT::SEDITL (SEDIT::EDITCOMS) WFROMDS (DONTCREATE) ASKUSEREXPLAIN (NOECHOFLG PROMPTSTRING) +\DSPLINEFEED.PRESS (DELTAY) \TEDIT.SUBSCRIPT.CARET (LOOKS) \FTP.UNPACKFILENAME (HOST EXT DIR DEVICE +NOLOGIN) \FREESTACKBLOCK (START ALIGN) ONEDINSPECT.REDISPLAY (ELTPROPS ELTS) EVENP (CL::MODULUS) +\MEDW.CLOSEW (SOFTCURSORUP SI::*OR-GENTEMP* NEXTW) COMPILER::TRANSFORM-GET/PUT-BASE ( +COMPILER::COMPUTED-OFFSET-TREE COMPILER::ADDBASE-CALL) CLISPELL (TYPE) \SETUP-ENVIRONMENT-CALL (SLOWP +ENV) \ICONW.FORMAT.TITLE (MAXLINES) TEDIT.INSERT.OBJECT (CH# PREVPC) SEDIT::CREATE-COMMENT-WORD-NODES +(SEDIT::OK?) CL::BUILD-CONSTRUCTOR-SLOT-SETFS (CL::INITIAL-VALUE-FORM) CL::%%COMPARISON-OPTIMIZER ( +CL::SECOND-NUMBER CL::THIRD-NUMBER) TEDIT.MAPLINES (LINE) \OUTDATE-STRING (SHORTP) \LEAF.READFILENAME +(NAMEBASE REMOTENAME) DINFO.GET.FILENAME (FILE) \START.PROCESSES (OLDPROC) \NSFILING.GET.STREAM ( +STREAMPAIR KEEPSTREAM) BSP.PUTINTERRUPT (TIMEOUT) DRIBBLE (OLD-DRIBBLE-STREAM FILE APPENDFLG) +PROCESSWORLD (FIRSTTIME PQ EXECPROC) CLISPCOND1 (CPYFLG) \EVALVAR (VAR) ADD.PROCESS (CREATENOW WINDOW) + \MEDW.OPENW (SOFTCURSORUP SI::*OR-GENTEMP*) CHANGEBACKGROUND (SHADE) COMPILEUSERFN1 (FLG) +PUTPROPS.PRETTYPRINT (EXPR) CLEANUP (FILES) \RUN.PROCESS (BRUTALLY EVENT PREV) SEDIT::CFV-LIST ( +SEDIT::SUBNODES FIRST SEDIT::BREAK? SEDIT::SUB-IWIDTH SEDIT::IWIDTH) \ICONW.SHOW.TITLE (MASK) +\SPP.SYSPKT (XIP) EDITPROP (PROP) \3MBGETPACKET (PBI) \PROMPTWINDOW.PAGEFULLFN (%#LINES) +ICMLARRAY.MENUW.SHOW (LEVEL-ITEM) COLLECTKEYS (DOUBLE MKSTRING?) CLISPFOR1 (FLG NXTOPRTAIL LSTFLG) +CL:ATAN (CL::X) \DSPRIGHTMARGIN.PRESS (XPOSITION) \RELEASE.PROCESS (EVENT KILLIT RESTARTFLG) +\IRM.SMART.REF (POS CORRECTED) \ADDLEAFSTRING (STRING DECODE) OPT.CALLP (N FN) \TEDIT.ITALIC.CARET.ON +(LOOKS) \LINEBUF.READP (KEYSTREAM) COMP.RPLACD (NEED-POP) XCL::ADD-PROTOTYPE-FN (XCL::TYPE-ALIST +XCL::DEFINER-ALIST) COMPEM (FL ERRORFLG Y) BLOCKCOMPILE1 (ENTRIES) XCL::STRUNCATE (CL::DIVISOR) APPLY +(DEF) XCL::MAKE-PROTOTYPE (XCL::PROTOTYPE-FN) COURIER.ABORT.BULKDATA (ERROR) \CREATELINEBUFFER ( +TERMINAL.STREAM) SEDIT::SEDITE (CL:ATOM TYPE SEDIT::COMS SEDIT::ROOT-CHANGED-FN) +SEDIT::EXTRACT-CURRENT-SELECTION (SEDIT::NODE) TRIM.BITMAP (LEFT RIGHT BOTTOM) DINFO.SHOWSEL (CHAR#) +TTGIVEHELP1 (NO.OTHER) \FM.NWAY-CHANGESTATE (STATE NEWSTATE) OPENWINDOWS (WINDOW) CHAT.MENU (STATE) +TB.FIND.ITEM (FIRST# LAST# BACKWARDSFLG) CLISP4 (FLG) DEFEVAL (F FN) RECORDTRAN (TL USING USINGTYPE +BINDINGS NOTRANFLG) FW-RECALL-CMD (FORGOTTEN-OFDS RECALL-OFD MANY?) \MOUSE.PROCESS (OTHERMOUSE) +SEDIT::START-PROCESS (SEDIT::NAME) MSCOLLECTDATA (FLG) EXEC (XCL::WINDOW) \MAIKO.CONS.UFN (Y) +DINFO.OPENTEXTSTREAM (TEXTSTREAM) EVALV (POS RELFLG) CL:CLOSE (ABORT ABORTABLE) XCL::SCEILING ( +CL::DIVISOR) \MEDW.CREATEW (OLDWINDOW NOOPENFLG) \TEDIT.SHRINK.ICONCREATE (ICONTITLE ICON) +\TEDIT.INSPECTCODE (PC) CL::%%INTEGER-COERCE-OPTIMIZER (CL::FLOAT-RESULT) XCL::SROUND (CL::DIVISOR) +SEDIT::BACKSPACE-LIST (SEDIT::INDEX) MAINWINDOW (RECURSEFLG) INTERPRESSFILEP (NOOPEN) GRAPHDELETELINK +(DELFN) DISPLAY/NUMBER/READER/TOTAL (DECIMALPLACES STR) SPY.UPDATE.TITLE (NODE) DINFO.FMW.CLOSEFN ( +GRAPH) TB.DISPLAY.LINES (EXTENTCHANGED) SEDIT::GET-DESTINATION-CONTEXT (SEDIT::DESTINATION) +DBG::CREATE-DEBUGGER-WINDOW (POS) \DEQUEUE (ITEM) CLISPCOND (VAL) \SETVAR (VAR VALUE) +\TEXTMENU.SET.TOGGLE (PCNO) CL:COPY-READTABLE (FROM-READTABLE TO-READTABLE) BRECOMPILE1 (NOBLOCKSFLG X +) CL::%%LOGICAL-OPTIMIZER (CL::FIRST-INTEGER CL::SECOND-INTEGER CL::MORE-INTEGERS) \DEFINEDISPLAYINFO +(BUCKET) CL:COUNT (END) CL::BUILD-CONSTRUCTOR-ARGLIST (CL::INIT-FORM) TWOD.TRACKCURSOR (SELECTION +NEWROWPROP NEWCOLUMNPROP SELECTEDROWPROP SELECTEDCOLUMNPROP) TEDIT.DEACTIVATE.WINDOW (TEXTOBJ FORCEFLG + DISCONNECTONLYFLG) SEDIT::EXPAND (SEDIT::NODE) \TEST.PARAGRAPH.LOOKS (NONEMPTY) EDITCOMS (COMS) +\IRM.GET.REF (REFS TYPE REF) XCL::SFLOOR (CL::DIVISOR) ENDCOLLECT (X) \PROG0 (VARLST) CL:COUNT-IF (END +) FINDFILE-WITH-EXTENSIONS (FILE HASDIRECTORY HASEXTENSION DIRLST) CLISPIF3 (FIRSTCLAUSEFLG) +PRINTLEVEL (CARVAL CDRVAL) \DSPLEFTMARGIN.PRESS (XPOSITION) IRM.DISPLAY.REF (NODE) GREETFILENAME (POS) + TEDIT.SHOWSEL (SEL) CL:DELETE-IF (END COUNT) \ALLOCMDSPAGE (NXT) \NSFILING.EVENTFN (RANDEVICE) +TTY/EDITL (ATM COMS UNDOLST1 EDITIME0) CL:DELETE-IF-NOT (END COUNT) CLISPFOR (LISPXHIST) +CL:DELETE-DUPLICATES (END) \SMASHRETURN (STKP) CL:DECODE-UNIVERSAL-TIME (CHECKDLS) CLISPIF1 (PRED) +CL:DELETE-FILE (TN) \GET.PRIORITY.QUEUE (HEAD PREV) EDITL0 (COMS) TTGIVEHELP2 (MIXED) \SPP.SENDPKT ( +RETRANSMITP) \SET.PROCESS.NAME (INTERNAL NEWNAME OLDNAME) CLISP3C (L1) CHECKCONSPAGES (CPAGE) +CL:COUNT-IF-NOT (END) SEDIT::SIMPLE-STRING-SCAN (SEDIT::POINT?) \PEEKNS (HOST FILE) \MAPMDS (TYPE) +COURIER.WRITE.BULKDATA (TAIL) \DSPYPOSITION.HCPYMODE (YPOSITION) \CHECKCONSPAGE (SI::*OR-GENTEMP*) +MAKE-CONCATENATED-STRING-INPUT-STREAM (STRINGS) FASL::DUMP-SYMBOL (PACKAGE) CL:ENCODE-UNIVERSAL-TIME ( +TIME-ZONE) FTP.BREAKCONNECTION (IDLEONLY) SMASHFILECOMSLST (NAME) CURSOR (NEWCURSOR) \ETHEREVENTFN (DB + TURNOFFNS) COMPILER::EXPAND-OPENLAMBDA-CALL (COMPILER::EXTRA-ARGS COMPILER::UNSUBBED-ARGS) +SEDIT::ASSIGN-FORMAT-LIST (SEDIT::SUBNODES) ERRORSET (FLAG) TITLEDICONW (BREAKCHARS ICON) OPT.OPTCHECK + (CD) UNDOEDITL (UNDOLST1) SPP.OPEN (HOST SERVERFN PROBEP) \PRINT-USING-DEFPRINT (FN) SEDIT::EVAL-SELECTION + (CL:STRUCTURE SEDIT::VALUE) MSUPDATE (EACHTIME ERS PRFLG) \MAYBEPRINTPACKET (NDB) \FM.NWAY-MOVEDFN ( +STATE) CL:EVERY (MORE-SEQUENCES) DEL.PROCESS (P) \TEST.CHARACTER.LOOKS (PROPERTY VALFLAG) DOFILESLOAD +(FORCEDEXT? NOERRORFLG) CL:FILE-AUTHOR (CL::AUTHOR) FB.HARDCOPY.DIRECTORY (MAINFONT COLUMNSPECS INFO) +CLISP3 (CLTYP FLG BROADSCOPE) \LET0 (VARLST) \AB.BACK (ABLO) MAKEFILE (FILEDATES SOURCEFILE) \LITPRIN +(PKG DOWNCASE WAS-ALPHA) \LET* (VARLST) SEDIT::PARSE-INDENT-GROUPS (SEDIT::GROUPS) COND (*TAIL*) +PREDICT-NAME (PATH) CL:FILL (END) \FM.NWAY-DOWNFN (STATE) READIMAGEOBJ (GETFN ENTRY SUPPORTFILE +NOERROR DATANBYTES) \NSRANDOM.RELEASE.HANDLE (HANDLE SESSION) \DSPCOLOR.IP (COLOR) MSUPDATEFN1 ( +DOSUBFNS) PUTSTREAMPROP (VALUE OLDDATA OLDVALUE) \DURATIONTRAN (USINGBOX RESOURCENAME TIMERUNITS +UNTILDATE FORDURATION) CHECKFORCHANGED (NOTTHISONE UPDATEALL) \DSPXPOSITION.IP (XPOSITION) +\DSPCLIPPINGREGION.PRESS (REGION) RESTART.PROCESS (P) \GETFILINGCONNECTION (OLDSTREAM SESSION NOLOCK) +HASHBEFORECLOSE (ENTRY) INSTALL-PROTOTYPE-DEFN (REQUESTED-TYPES NEW-DEFN-FLG TYPES-WITH-PROTOTYPES +DEFINER) MSSHOWUSE (FILE ANYFOUND INCLISP EDITCOMS) %%CONCATENATED-STREAM-DEVICE-PEEKBIN (noErrorFlg?) + CLISPIF (LISPXHIST) WAKE.PROCESS (P) EDITL1 (UNDOLST1 EDITHIST) \SUSPEND.PROCESS (EVENT) +CL::BOA-ARG-LIST-WITH-INITIAL-VALUES (CL::INTIAL-VALUE-FORM) CL:FIND-IF-NOT (END) SPP.DSTYPE (DSTYPE +NOBLOCK) SUSPEND.PROCESS (PROC) PROMPTINWINDOW (POSITION READSTR) ENSURE.RGB (NOERRORFLG?) CL:FLOAT-SIGN + (CL::FLOAT2) PROCESS.RESULT (WAITFORRESULT) ENVEVAL (APOS CPOS AFLG CFLG) CL:FIND-IF (END) +\LITPRIN.INTERNAL (CHECKLENGTH PKGNAME PKGSEPR USEMULTESCAPE FIRSTESCAPE CHECKESCAPE CASEBASE FIRSTFLG + DOWNCASE WAS-ALPHA) TEDIT.COPY (FROM TO REPLACING) \DSPXPOSITION.HCPYMODE (XPOSITION) +\LEAF.GETFILEDATES (INFOBLK FLG) \TEDIT.PUT.CHARLOOKS (EDITSTENTATIVE OLDPC) LISTPUT (X) \SPPWATCHER ( +ACTIVITY) %%CONCATENATED-STREAM-DEVICE-CHARSETFN (STREAMS) \CURVE (USERFN SOFTCURSORUP SI::*OR-GENTEMP* + BBT DISPLAYSTREAM ENDING) \FTP.NEXTFILE (FTPCONNECTION NAMEONLY FILTER) PROCESS-STATUS (POS) +CROPMARK.CREATE (HEIGHT) FUNCTION (ENV) TERM.RESET.DISPLAY.PARMS (CLEARMODEFN) GETDUMMYVAR (BINDITFLG) + \LFFindNextFile (ANOTHERENTRY FILTER) TB.SET.FONT (FONTGIVEN) \DEFPRINT.BY.NAME (NAME) +TB.CONSIDERRANGE (EVENIFDELETED) \SYMBOL.ESCAPE.COUNT (CASEBASE FIRSTFLG MULTESCAPE INEXACTOK) NCHARS +(FLG) FB.GET.NEWPATTERN (OLDPATTERN PATTERN) ENVAPPLY (APOS CPOS AFLG CFLG DEF) NOTIFY.EVENT (SUCCESS +TAIL ONCEONLY) \DOBUFFEREDTRANSITIONS (PENDINGINTERRUPT) \NUMERIC.PNAMEP (SEENALPHADIGITS +SEENTIGHTLETTERS SEENDECPT SEENEXPONENT SEEN-ILLEGAL-SYNTAX SEENDIGITS) PROCESS.TTY (PROC) +SEDIT::GET-CONTEXT (SEDIT::NAME CL:STRUCTURE SEDIT::SEARCH-ONLY?) STKAPPLY (FLG DEF) DSPEOLFN (EOLFN) +TWODINSPECT.MAKEREGIONS (COLUMNWIDTHS) \TEXTMENU.TOGGLE.SHOWSELFN (ON) CALLS (USEDATABASE VARSFLG +FNDEF) \CARET.DOWN (STREAM) SI::UNWIND (USECNTARGET CLEANUPFN) EDITL2 (FLG) FRESHLINE (SI::*OR-GENTEMP* +) \AB.NEXT (ABLO) BRACKET.CURRENT.WORD (FIRSTCOL) RETEVAL (FLG) MSNOTICEFILE (FULL) TEDIT.CHARWIDTH ( +TERMSA) RETAPPLY (FLG DEF) \INSERTCR (INPC) STKEVAL (FLG) ALISTS.GETDEF (ASSOCIATION) BLIPVAL (IPOS) +MSCHECKEMPTY (CF) FIX89 (POS SPLIT89FLG) \DSPBOTTOMMARGIN.PRESS (YPOSITION) GIVE.TTY.PROCESS (PROC) +\NSFILING.LOGIN (STREAM NEEDLOGIN SESSIONHANDLE PROBLEM OLDPROBLEM) \CHECKFLTFMT (X) MASTERSCOPE ( +MASTERSCOPECOMMAND TOPFLG) SETBLIPVAL (IPOS N) SPP.SENDEOM (SI::*OR-GENTEMP*) BLIPSCAN (IPOS) +PAINTW.READ.AND.SAVE.SHADE (16X16FLG) FLTFMT (FORMAT) CH.CHANGE.ITEM (INTERPRETATION) FASL::LOOKUP-VALUE + (CL:HASH-TABLE) EDITBF (N) \TEDIT.PEEKBIN.NEW.PAGE (NOERRORFLG) \DSPFONT.PRESS (FONT) \FTP.CLOSEFILE +(SUCCESS CONN) INSPECT (ASTYPE ITEM) UPDATEFN (FN EVENIFVALID) MENU.HANDLER (MOUSEDOWN +KEEPCONTROLIFOUTFLG OLDBOXX SUBMENUWINDOW SUBMENU HELDSTATE HELDFN NESTEDFLG BOXX CHANGEOFFSETFLG) +\PERIODIC.INTERRUPTFRAME (FN) PRINTNUM-TO-STRING (NUMBER FLOATFLAG RAD WIDTH) \SPP.PREPARE.INPUT (EPKT + TIMEOUT) INPUT (FILE) \IPCURVE2 (VISIBLEP DUPLICATEKNOT) \STKARG (NT) SEDIT::SET-POINT-COMMENT ( +SEDIT::INDEX SEDIT::OFFSET) CL::DEFINE-CONSTRUCTORS (CL::ALL-BOAS?) INSPECTW.CREATE (PROPERTIES +PROPPRINTFN PROPERTIESLST) MODERNWINDOW.BUTTONEVENTFN (CORNER ANYWHERE ORIGFUNCTION) +TEDIT.INSERT.UPDATESCREEN (INCREMENTAL WINDOW DONTSCROLL L1 LN SELINE) \DSPLINEFEED.HCPYMODE (DELTAY) +\FTP.GENERATEFILES (EXTENSION VERSION DIRECTORY WANTDEVICE DEVICE FILTERNEEDED RESULT) +\TEDIT.SMALLER.CARET (LOOKS) \FM.STATE-CHANGESTATE (DISPLAYITEM) CLOSEMAINWINDOW (MAINWIN) +\LEAF.FIX.BROKEN.SEQUIN (PUP UNANSWEREDPUPS AFFECTEDFILES) SEDIT::EXPANDREGIONFN (SEDIT::REGION) +PROCESS.WINDOW (P WINDOW) CLISPIFY2 (FORM) VIDEORATE (TYPE) COMP.PROG (TAGS FLG) +\INSTALL.EXTERNALFORMAT (EXTERNALFORMAT) \NSFILING.CLOSEFILE (ABORTFLG HANDLE NEWHANDLE) +\NSADDRESS.PRINT.DECIMAL (PIECES) PFI.MERGE.INDICES (NEWINDEX MASTER) CL:LISTP (X) SPP.CLOSE (STREAM +ABORT?) RECLOOK (RECNAME ERROR TL) \DRAWLINE.IP (DASHING) \DTEST.UFN (OBJ) WINDOW.MOUSE.HANDLER ( +\MHWINDOW SI::*OR-GENTEMP*) FB.BROWSECOMMAND (INTERESTING MAINDIR) TWODINSPECT.ADJUSTSELECTION ( +SELECTION) SCREENBITMAP (SCREEN) \BACKTRACE (CNT JUNK VARS LOCALS NAMES ALINKS) +CREATE.NUMBERPAD.READER (FLOATINGPTFLG POSITIVEONLYFLG INCLUDEABORTFLG MSG) XCL::WHERE-IS-FILES ( +PATHNAME) \FTP.ADD.QUOTES (PIECES) \FM.STATE-SELECTEDFN (NEWSTATE) \LEAF.HANDLE.INPUT (DONEPUP ERROR) +DISMISS (MSECSWAIT TIMER) \PROC.RESUME (OLDFX) COMP.LAMBDA (VARS V) \TEDIT1 (UNSPAWNED) EDIT%: (LC X) +\TEXTMENU.TOGGLEFN (STATECHANGEFN) MSSETUP (INITFLG) WAITFORINPUT (N) RADIX (N) \INSERTCH (INSERTMARK +\INPC PLOOKS NLOOKS REPLACING) SEDIT::CONVERT-COMMENT-TAIL (SEDIT::TAIL) \DSPRIGHTMARGIN.HCPYMODE ( +XPOSITION) \INTERPRETER (ARGLIST) TTYINBUFFERPEEK (NOERRORFLG) CL::%%MAKE-SMALL-FIXP-ACCESSOR (TYPE) +SAVEDEF (TYPE DEFINITION) TEDIT.NEW.FONT (NAME) \COERCE.NS.SOCKET (ADDR DEFAULTSOCKET) +SEDIT::CONVERT-COMMENT-STRUCTURE (SEDIT::2-STARS) \DSPFONT.HCPYMODE (FONT) \SPP.DEFAULT.ERRORHANDLER ( +CON) SEDIT::PARSE-STRING-INTO-WORDS (SEDIT::OK?) \BSP.SENDBUFFER (DEMANDINGLY) +\NSFILING.DISCARD.SESSION (KEEPSTREAM KEPT) VIRGINFN (MAKE-VIRGIN? BROKEN-DEFN ADVISED-DEFN +CHANGED-NAMES EXPR-DEFN) \SPP.ESTABLISH (NAME) PROCESS.EVAL (WAITFORRESULT) \TEDIT.COMMAND.RESET.SETUP + (STARTING) \PRINTFRAME (VARSONLY FAST INCALL VALIDNAMETABLE NOPUSH SLOWP) ONFILE (FNSONLY FINDITEMS +VAL FILES) FB.FASTSEECOMMAND (BUTTONS) DO.SHIFTED.SELECTION (START INITMODE EXTENDING) +TITLEW.BUTTONEVENTFN (TITLECOMMANDFN) \PRINTBF (VARSONLY) CH.ADD.ITEM.PROPERTY (INTERPRETATION) +EDITCALLERS (FILES ENV I PRINTFLG FNS OTHERSFILES) ONED.TRACKCURSOR (SELECTION HORIZONTAL-P PROP +SELECTEDPROP NEWPROP) \TEDIT.MAKEFILENAME (FIRSTNONSPACE LASTNONSPACE) \DECODETRANSITION (DOWNFLG +SHIFTED) MERGE (B A) PROCESS.READ (WINDOW CLEAR? PROMPT OLDW) DINFO.EXPANDFN (FMENU) \LEAF.TIMEDOUT ( +TRIES) MAKENEWCOM (LISTNAME) DECODE/WINDOW/OR/DISPLAYSTREAM (TITLE BORDER DSORW) TTYDISPLAYSTREAM ( +DISPLAYSTREAM WIN) CLISPIFY1 (SUBPARENT TAIL LST TAIL0 OPR0 NOVALFLG SEG) \SETXFORM.PSC (NORESTORE) +PRINTTIMER (TIMEOUT) CL::%%ATAN-FLOAT (CL::X CL::CONSTANT-FLAG CL::ADD-FLAG CL::NEGATE-FLAG) FASSOC ( +ALST) \PROCESS.EVAL1 (..PEV-PROC..) TB.COPYBUTTONEVENTFN (CURRENTITEM SI::*OR-GENTEMP*) +CL::%%MAKE-FLOAT-ACCESSOR (TYPE) \LEAF.RECONNECT (OLDONLY) PRIN2 (OBEY-PRINT-LEVEL) LOOKUP.NS.SERVER ( +TYPE FULLFLG) SEDIT::CONVERT-COMMENT (SEDIT::NODE SEDIT::START) \DSPLEFTMARGIN.HCPYMODE (XPOSITION) +CL:MAKE-PATHNAME (DEFAULTS DIRECTORY) SET (VAR VALUE) TTPRIN1 (DOWNCASE INITP) \TEDIT.NEWREGIONFN ( +MOVINGPOINT) \NSADDRESS.DEFPRINT (HOST) \FAX.PARSE.NAME (HOST) CLISPFUNCTION? (FN1 TEM) SPP.CLEAREOM ( +NOERRORFLG) CHAT.TYPEOUT.CLOSE (CHATPROC) SETSYNONYM (NEWPHRASE KEYLST) FB.ADD.FILEGROUP (PREVDATA +OTHERDATA) %## (COMS) \DRAWCURVE.IP (DASHING) ESUBST (ERRORFLG) REQUIREVERSION (LISP MICROCODE BCPL) +\DEFINEDEVICE (DEV TEMP NAME) RECORDFIELDNAMES (FLG) FB.HARDCOPY.TOFILE (HCOPYFILE HOST HAVEDIRECTORY) + CLISPATOM (TAIL NOFIX89) U-CASE (FATP CHANGEFLG) \CREATECHARSET.IP (NOSLUG? RELFLAG) CHANGENAME1A ( +MAP Y) SEDIT::PARSE-INDENT-BODY (SEDIT::TAGBODY?) COMPILER::GENCODE-LABELS (COMPILER::CLOSED-OVER) +CLOSEICONWINDOW (ICONW) \PROCESS.APPLY1 (..PEV-PROC..) XCL::WHERE-IS-NOTICE (XCL::TEMP-FILE XCL::NEW) +MAP (MAPFN2) PROCESS.APPLY (WAITFORRESULT) APROPOS (ALLFLG QUIETFLG CASEXACT FILTERFN) SPY.TREE ( +INDIVIDUALP) \GETDEVICEFROMNAME (NOERROR) \TEDIT.LARGER.CARET (LOOKS) CL:MERGE-PATHNAMES (DIR +DEFAULT-DIR NAME) \GETDEVICEFROMHOSTNAME (DONTCREATE) CLDISABLE (BRACKET FLG) \HARDCURSORUP (INVERTFLG +) MSINTERPRET (SETTYPE MSPRED UPDATEALL FROMFOUND INVERTED) CL:MAP (RESULT-TYPE MORE-SEQUENCES) +CHANGE.NODEFONT.SIZE (NEWFONT CHNGFN) CL::%%MAKE-FIXP-ACCESSOR (TYPE) MODERNWINDOW (ANYWHERE +TITLEPROPORTION) FB.HARDCOPYCOMMAND (FILES) INITDATATYPENAMES (FINAL) CL:MISMATCH (END1 END2 FROM-END) + CLISPERROR (FLG IN) CL:NOTANY (MORE-SEQUENCES) \REMOVEDEVICE.NAMES (CHANGED NAMES) +\TFBRAVO.PARSE.PARA (LEN) FNCHECK (PROPFLG NOERRORFLG) CL:NSUBSTITUTE-IF (END COUNT) \CCODEARGLIST ( +SMARTP) CL:NSUBSTITUTE-IF-NOT (END COUNT) \UNQUEUE.EVENT (TAIL) SELECT.ATOM.ASPECT (ASPECTS +ALWAYSASKFLG OFFER-INSPECT-CODE?) \SHIFT.DOCUMENT (PC) EDITFPAT (FLG) CL:NSUBSTITUTE (END COUNT) +\DELETEFILE (DEV) PACK* (CLAUSE) BSPPRINTPUP (VERBOSE) CL:PARSE-NAMESTRING (CL:DIRECTORY +CL::SUBDIRECTORY CL::RELATIVEDIRECTORY) EDITXTR (TOFLG) \TRANSMIT.STRATEGY (MAKEA?) EDITMBD (LC TOFLG) + OBTAIN.MONITORLOCK (DONTWAIT) POSTSCRIPT.FONTCREATE (PSCFD FACECHANGED SCALEFONTP FULLNAME UNITFONT +TMP) ICONW.SHADE (SHADE) EDITMV (LC X TOFLG) CL::%%MAKE-FLAG-ACCESSOR (TYPE) \NSNET.CLOSERP (ROUTEX) +\DEVICEEVENT (BEFOREP) PARSE-NSADDRESS (VAL NET NSHOST PREV10 HOST) SEDIT::SETF-OF-GET-FORMAT (SEDIT::SPEC +) CL:PEEK-CHAR (EOF-ERRORP CL:CHAR) ADDTOCOM1 (LISTNAME NEAR) ONEDINSPECT.MAKEREGIONS (VALUEWIDTH) +FILES? (PRINTED TB FLG) \BLTSHADE.IP (DESTREGION CLIPPINGREGION) \LFVersions (FIXEDVERSION HMIN) +MENUWMINSIZEFN (TITLERELATEDVAR) SEDIT::LINEARIZE-COMMENT (SEDIT::INDEX FIRST) FIXATOM (TAIL0) +MSSETPHRASE (NOTYP NEG) RELEASE.MONITORLOCK (OWNER EVENIFNOTMINE PREV) \PUT.FILING.ATTRIBUTE ( +VALUETYPE) SEDIT::CHANGE-PRINTBASE (SEDIT::NEW-PRINTBASE) CL:POSITION-IF-NOT (END) OPT.PRATTACH (AFTER +) CH.RETRIEVE.ITEM (ADDRESS INTERPRETATION) FB.MAYBE.WIDEN.NAMES (OVERFLOW) \TAN.OLD (RADIANSFLG +FLIPPED) CREATE.MONITORLOCK (EXCLUSIVE) MACROEXPANSION (COMPFLG) DOATTACHEDWINDOWCOM (ATTACHEDW) +SEDIT::CHANGE-PACKAGE (SEDIT::NEW-PACKAGE SEDIT::NEW-PACKAGE-NAME) SI::MONITOR-UNWIND (LOCK OWNER PREV +) \FM.3STATE-SETUPOFFBITMAP (OFF) CL::%%ASIN-FLOAT (CL::REDUCED CL::NEGATIVE CL::ACOS-FLG) +CHAT.OPTIONMENU (MENU) CL:POSITION-IF (END) COMPILER:OPTIMIZE-AND-MACROEXPAND (COMPILER::CHANGED-P) +CL::%%PRINT-TIMING-ITEM (CL::ALWAYS-P CL::TIME-P) FILES?1 (FIRST) TB.MAKE.BROWSER (ITEMHEIGHT OLDP) +CL::%%MAKE-WORD-ACCESSOR (TYPE) \RTP.FILTER (CHECKFRNPORT CHECKID) IRM.LOOKUP (SMARTFLG REF) +FULLPRESSBITMAP (SCALEFACTOR CLIPPINGREGION) CL:PROBE-FILE (NAMESTRING-IF-EXISTS INFILEP) SCANBACK (N) + PRINTPACKETQUEUE (PACKET) PRINTPUPQUEUE (PUP VERBOSE) EDIT4F (C3 CHANGEFLG CHARFLG TOPLVL NEWFLG) +\TFBRAVO.WRITE.RUN (NAMEDTABNUMBER) VRULE.DISPLAYFN (RULING) \FTP.DIRECTORYNAMEONLY (N) CL:READ-BYTE ( +EOF-ERRORP) ONEDINSPECT.ADJUSTSELECTION (SELECTION) TB.REDISPLAY.ITEMS (FIRSTITEM LASTITEM) +GETRELATION (INVERTED) TEDIT.FLASHCARET (FIRSTTIME) TOPW.ADJUSTSELECTION (SELECTION) SEDIT::RELINEARIZE + (SEDIT::SUPER-NODE SEDIT::FROM-TOP) \TEDIT.TEXTBIN.NEW.PAGE (SPLITCHAR) CALL.MOVENODEFN (MOVEFN) +HARDCOPYREGION.TOPRINTER (PRINTERCHOICE) \GETFILENAME (FDEV) PUPSOCKETFROMNUMBER (SOCHI) +HARDCOPYREGION.TOFILE (FILE&TYPE) SEDIT::BACKSPACE (SEDIT::NODE) CL:READ-LINE (EOF-ERRORP RECURSIVE-P) + \GENERIC.OUTFILEP (V) PRINTPACKET (PRE.NOTE CALLER) MULTIFILEINDEX1 (CONSECUTIVE INDICES NOTPRINTED) +PACKFILENAME (RELATIVEDIRECTORY DIRECTORY VAL HOST DEVICE SUBDIRECTORY NAME EXTENSION VERSION) +SEDIT::PRINT-STRING (SEDIT::PRIN-2?) \TEDIT.LOOKS (FONT FACE SIZE NEWLOOKS) REBREAK (FNS) +CL:READ-CHAR-NO-HANG (EOF-ERRORP) CL:READ-FROM-STRING (END START PRESERVE-WHITESPACE) +\PROCESS.MOVEFRAME (RESIDUAL) CL:REMOVE-DUPLICATES (END) COURIER.WRITE.FAT.STRING (UNSPECIFIED) +TB.DO.ITEM.SELECTION (OLDSELECTION) SEDIT::INSERT-COMMENT-CHARS (SEDIT::SUBNODE SEDIT::INDEX +SEDIT::SUBNODES) CL:REMOVE-IF (END COUNT) \TEDIT.MAINW (WINDOWS) CL:REDUCE (END FROM-END) +\WRITEPRESSBITMAP (CLIPPINGREGION SCALEFACTOR) \SPPCONNECTION (HOST) \SPP.HANDLE.ATTN (ATTENTIONFN) +\UNQUEUE.TIMER (NOERROR) \CLEARSYSBUF (ALLFLG) \IOMODEP (ACCESS) MSLISTSET (TRYHARD) +\TEDIT.UNPARSE.CHARLOOKS.LIST (VAL) CL::%%MAKE-BIT-ACCESSOR (TYPE) MAKEMAINWINDOW (OLDMINSIZE +OLDMAXSIZE) CLOSEPUPSOCKET (NOERRORFLG) CL:REMOVE-IF-NOT (END COUNT) \ENQUEUE.TIMER (NEXT) +\DRAWELLIPSE.PRESS (ORIENTATION) CL:RENAME-FILE (CL::NEW-FULLNAME) CHARSET (NEWVALUE) \IMAGEUSERPROP ( +SET? PLIST) \LEAF.OPENFILE (CRDATE TYPE) ICMLARRAY.GETMENUWGROUP (TOPLEFT PWINDOW) WAIT.FOR.TTY ( +NEEDWINDOW MSECS TIMER) FIX89TYPEIN (APPLYFLG) \DRAWLINE.PRESS (DASHING) \RTP.CLEANUP (FN) +WHO-LINE-VMEM (VMEM-CONSISTENT?) \TEDIT.ITALIC.CARET.OFF (LOOKS) CHANGECALLERS (REL FILES) PRINT10TO3 +(DOFILTER PRE.NOTE) CL:SEARCH (END1 END2 FROM-END) \COURIER.RECORDTRAN (TYPEDEF TAIL) +SEDIT::SCAN-FOR-BOUNDS (SEDIT::INITIALIZE) \TYPEGLOBALVARIABLE (VARFLG) FILEPKGTYPE (TEM) +\RTP.HANDLE.PUP (PUP) OPT.SKIPPUSH (LEVOPFLG VL) \ASSIGNDATATYPE1 (SUPERTYPE NTYPX SIZE REDECLARED +FOUNDSOME) SEDIT::INSERT-COMMENT (SEDIT::CHARS) EDITMOVESUBTREE (GRAPH NOW NEAR) \COS.OLD (RADIANSFLG) + \TEDIT.ACTIVE.WINDOWP (TEXTOBJ) BESTNSADDRESS (ERRORSTREAM BESTADDR NOTLOOKEDUP ADDRESSES) HARDCOPYW +(PRINTERTYPE PRINTHOST FILE SCALEFACTOR REGION HOST) PROPERTAILP (X) \ICONW.REPAINTFN (ERASEBM SHADEBM +) \FM.TOGGLE-CHANGESTATE (NEWSTATE) COURIER.WRITE.SEQUENCE.UNSPECIFIED (ITEM LENGTH) ADDTOFILES? ( +NOASKSTR BUFS NAME FILE) FB.SET.BROWSER.TITLE (TIME) PPSOC (VERBOSE) INSPECT.INVERTSELECTION ( +SELECTION) \DSPOPERATION.IP (OPERATION) \ENQUEUE (THISITEM JUNK) ORDERFROMBOTTOMTOTOP (WLST WPTR) +CL::ESTABLISH-SETFS-AND-OPTIMIZERS (CL::ACCESSOR) FB.COPY/RENAME.COMMAND (FILELIST NEWNAME) +\RENAMEFILE (OLD-DEVICE) REMPROP (X0) FIXSPELL2 (FLG) \REVALIDATEFILE (NEWSTREAM) +CL::%%COMPLEX-TREE-EQUAL (CL::TEST-NOT-P) PUTPROP (X X0) KEYACTIONTABLE (OLD) CL:SOME (MORE-SEQUENCES) + \DRAWCURVE.PRESS (DASHING) \RTP.INFO.HOOK (WINDOW) MOVEATTACHEDWINDOWTOPLACE (EDGE) OPENPUPSOCKET ( +ID#EXPLICIT? CLASHP) CL:TREE-EQUAL (CL::TEST CL::TEST-NOT) \RECLAIMARRAYBLOCK (RECLAIM-P) +PFI.NEW.LISTFILES1 (FULL) TEDIT.REDO (CH) TOPW.BUTTONEVENTFN (COLUMNPROPCOMMANDFN SELECTION) +SEDIT::CHECK-SELECTION-SHIFT (SEDIT::LET-GO SEDIT::NEW-SHIFT) \TEXTOPENF-SUBTREE (PCTREE) \CAR.UFN (X) + \TEDIT.GET.CHARLOOKS (PREVPC) CREATEHASHFILE (%#ENTRIES) SEDIT::COMMENT-OUT-SELECTION (SEDIT::NODE +SEDIT::START) \CDR.UFN (X) COMPSET (FILE FLG) FORGETPAGES (TOPAGE FROMPAGE BUFFER PREVBUFFER) +GRAPHBUTTONEVENTFN (NOW NEAR) MSPRED (FLG) RESTOREMAP (BUFFER PAGES PREVBUFFER) TWODINSPECT.REPAINTFN +(WINDOWREGION STARTROWPROPS STARTCOLUMNPROPS) \DELETECH (DONTDIRTY PC1 PC HIPC) KEYACTION (ACTIONS) +\LEAF.TRUNCATEFILE (LASTPAGE) \PAGED.REVALIDATEFILE (NEWSTREAM) SEDIT::STRUCTURE-FROM-STRING (SEDIT::STR +) CL::%%TAN-FLOAT (CL::RECIPFLG) \UNWIND.UFN (PUSHP) PFI.PRINT.BITMAP (CURX CURY UNITS LINEHEIGHT +BMARG POS) CL::%%MAKE-POINTER-ACCESSOR (TYPE) ICMLARRAY (DISPLAYGROUP) MSINTERPA (VAL) +FB.CREATE.FILEBUCKET (LASTFILEDATA LASTDIR LASTNAMECHAR ATTR) RETDWIM (POS X APPLYFLG) +TEDIT.STYLESHEET (TEXTSTREAM TEXTOBJ) COPY (X) \PROC.AFTER.WINDOWWORLD (EXECPROC) \LFDirectorySearch ( +HMIN MATCH) CL:ENDP (CL::OBJECT) \BUFFERED.REVALIDATEFILE (NEWSTREAM) OVERLAPPINGWINDOWS (WPTR) +\HTFIND (PREV) MENU (RELEASECONTROLFLG NESTEDFLG SELVAL) FONTNAME.IP (FACE) \SCALEDBITBLT.IP ( +CLIPPINGREGION DESTINATION-REGION) \LEAF.SETFILEINFO (WASOPEN) DINFO.LOOKUP (LOOKUPFN OLD.STRING +STRING) \BSP.PREPARE.OUTPUT (TIMEOUT) CHAT.SENDSCREENPARAMS (FN) ADDTOFILE (FILE) \FILE-CONFLICT ( +STREAMS-FOR-THIS-FILE) \LOOKUPPUPNUMBER (RESULT) CL::%%VALID-TYPE-P (TYPE) COMPILER::COPY-VARIABLE ( +COMPILER::VAR) \TEDIT.ABBREV.EXPAND (EXPANSION) \RPLACA.UFN (X Y) OPT.DELETEFRAMECHECK (CD VARS) +\GENERATENOFILES (STAR ESC) COURIER.WRITE.SEQUENCE (ITEMLIST) \RPLACD.UFN (X Y) NSNET.DISTANCE (ROUTE) + TWODINSPECT.BUTTONEVENTFN (SELECTION) TEDIT.NEXT (TARGET FIELDSEL SEL) SEDIT::STRUCTURE-FROM-SELECTION + (SEDIT::START) \CONS.UFN (Y PRIOR PRIORPRIOR) CL:SUBSTITUTE-IF (END COUNT) CLISPFOR0 (LASTPTR I.S.OPR + I.S.TYPE FOR FROM IN ON TO AS I.S. I.S.PTRS I.V. RETPREDS AFTERPREDS TERMINATEFLG INITVARS +MAKEPROGFLG FINALLY FIRST EACHTIME EXCEPTPREDS BY I.S.TYPE1 IVINITFLG DECLARELST) TEDIT.PARALOOKS ( +TABSPECC REPLACEALLFIELDS NPC 1STLEFT LEFT RIGHT LEADB LEADA BLEADSET LLEAD QUADD TYPESET SUBTYPESET +SPECIALX SPECIALY NEWBEFORESET NEWAFTERSET HEADINGKEEP KEEPSET BASESET HCPYSET USERSET REVISEDSET +STYLESET CHARSTYLESSET COLUMNSET) CLISPCAR/CDR (LST SETQFLG TAILFLG) FMEMB (Y) PPROC (PROC) +CL::GET-PS-FROM-ACCESSOR (CL::NO-ERROR-P) MSGETBLOCKDEC (FNSET) FB.INSERT.FILE (NEXTITEM NOSUBDIRS) +\NOFILESNEXTFILEFN (FILE) TEDIT.SUBSTITUTE (REPLACESTRING PATTERN ABORTFLG CONFIRMFLG CRSEEN) +SETINTERRUPT (CHAR CLASS) FLUSHRIGHT (CENTERFLAG P2FLAG) DINFO.FIND (STRING) INTCHAR (CHAR TYP/FORM +OLDINT SYSDEF) \CHECK.PQUEUE (PREV NEXT THISP X) CLRPROMPT (P) GRAPHADDLINK (ADDFN) \DSPYPOSITION.IP ( +YPOSITION) CL:SUBSTITUTE-IF-NOT (END COUNT) ICMLARRAY.GETREGIONFN (MOVINGPOINT) +CL::GET-PS-FROM-PREDICATE (CL::NO-ERROR-P) MSINTERPRETSET (REP INVERTED ARG) NUMBERPAD.READ ( +ACCEPTTYPEINFLG) CL::%%TYPEP-PRED (CL::EXPANDER) \PRESSCURVE2 (DUPLICATEKNOT) \KEYACTION1 (ALTGRCODE) +PACKFILENAME.STRING (RELATIVEDIRECTORY DIRECTORY VAL HOST DEVICE SUBDIRECTORY NAME EXTENSION VERSION) +CL::GET-SLOT-DESCRIPTOR-FROM-PS (CL::NO-ERROR-P) \RESTLIST.UFN (TAIL) CLISPIFY2B (TEM1) +CL::CACHE-SETF-INFO (CL::ACCESSOR) \SIN.OLD (RADIANSFLG) \PROCESS.MAKEFRAME (FLG) SCROLLBYREPAINTFN ( +EXTENT CONTINUOUSFLG) CL:SUBSTITUTE (END COUNT) CL::CACHE-SLOT-INFO (CL::FAST-ACCESSORS) DOTABS (LST) +\FIXDLINES (LINE PL NL) WHICHW (WINDOW) PPROCREPAINTFN (REGION) NOT.TRACKCURSOR (Node) BCOMPL3 ( +SCRATCHFILE CFILE) GETFILEINFO (LEN) CL:USER-HOMEDIR-PATHNAME (HOST) \FTP.FLUSH.TO.MARK (ECHOSTREAM +STREAM) FIND.PROCESS (ERRORFLG) SPLITKEY (PTR) \FILE.NOT.OPEN (NOERROR) +SET-CONNECTED-DIRECTORY-INTERACTIVELY (NEW-DIRECTORY) CL:TYPE-OF (CL::D) WTFIXLOADEF (FAULTEM3) +ICONW.PRINT-JUSTIFIED (NEWFLG) OPT.FRAMEVAR (CD ANY) TWODINSPECT.COPYBUTTONFN (SI::*OR-GENTEMP* +SELECTION) MAKE-UNICODE-TRANSLATION-TABLES (RCOMBINERS PREV) CL::USEFUL-TYPE-EXPANSION-P (CL::EXPANDED +) HARDCOPYIMAGEW.TOPRINTER (PRINTERCHOICE) DINFO.UPDATE.FROM.GRAPH (GRAPHER.NODE) BSPINPUTSTREAM (SOC) + UPDATEFILES (PCHANGES) RESETKEYACTION (RESETINTERRUPTS) COMP.COND (X MORE ENDF) RESHAPEBYREPAINTFN ( +OLDSCREENREGION EXTENT) COMPILER::COMPILE-AND-DUMP (COMPILER::BD-LIST) \NSPRINT.FULL.REQUEST.STATUS ( +STREAM) TEDIT.INSERT (CH#ORSEL LOOKS DONTSCROLL) \ELIDE.PRINT.TAIL (NOSPACEP) \TEXTCLOSEF-SUBTREE ( +PCTREE) \DOHELPINTERRUPT1 (OLDTTY) \HANDLE.NS.ROUTING.INFO (NDB NEWTIMER) \FTP.FLUSH.TO.EOC ( +ECHOSTREAM STREAM) \TEDIT.DELETE (WINDOW LINES OLINE1 OLINEN) \PROC.FINDREALFRAME (POS) +DINFO.DEFAULT.MENU (TYPE) CL::%%SUBST-IF (CL::KEY) CHAT.LOGINFO (FN) CL::%%COMPLEX-SUBST (CL::KEY +CL::TEST-NOT-P CL::TEST-RESULT) MB.NB.PACKITEMS (ITEMWIDTHS CURLINE MAXITEMS/LINE) \SETPRINTLEVEL ( +CARN) PACKAGE.NAME (RMPKG) SHADEITEM (DS/W) \NSFILING.GETFILE (SEQUENTIAL OPTION DIRPATH DIROK HANDLE +FILE.ID RANDEVICE EXPLICIT-VERSION OLDHANDLE OLDSTREAM HAVELOCK) PRESSBITMAP (SCALEFACTOR +CLIPPINGREGION) CLISPATOMARE2 (Z X1) SPAWN.MOUSE (INTERNAL MOUSEPROC) \PFTransferPage (runLength +noBreak) \CURVE2 (USERFN BBT SI::*OR-GENTEMP* SOFTCURSORUP) CL::%%SUBST-IF-NOT (CL::KEY) +HARDCOPYIMAGEW.TOFILE (FILE&TYPE) \TEDIT.PACK.TARGETLIST (TARGETLIST) FIND.SYMBOL (INDEX DONE TABLE) +CHECK/MENU/IMAGE (IMAGE MAKEWINDOWFLG) MASTERSCOPEXEC (LINE) EDIT4E1 (PAT LST PAT1 LST1 CHANGEFLG LST2 +) PARAMETRICSPLINE (CLOSEDFLG) TWODINSPECT.DEFAULT.VALUECOMMANDFN (VALUE) XCL::%%DEFINE-TYPE-GETDEF ( +CL:HASH-TABLE) SEDIT::SUBSTITUTE-OBJ (SEDIT::REMOVE?) AWAIT.EVENT (TIMEOUT TIMERP) \DRAWPOLYGON.IP ( +DASHING CLOSED VISIBLEP) FETCHFIELD (TN) CL::%%COMPLEX-NSUBST (CL::KEY CL::TEST-NOT-P CL::TEST-RESULT) + CL::%%SIN-FLOAT (CL::COS-FLG) CHAT.FLUSH&WAIT (FN) MONITOR.AWAIT.EVENT (TIMEOUT TIMERP) +PRINT-BITMAPS-NICELY (STREAM) \TEDIT.SUBST.FN2 (TARGETLIST) MSJOINDETS (X Y) BRKDWNRESULTS2 (TERP) +\PRINT-USING-ADDRESS (TYPE) RIGHTW.ADJUSTSELECTION (SELECTION) OPT.FRAMEDEL (VARS TRYXVAR DOXVAR FLV) +\PROCESS.GO.TO.SLEEP (EVLOCK TIMEOUT TIMERP OLDPROC DELETEFLG) HEIGHTIFWINDOW (TITLEFLG) ADDMENU (W) +BCOMPL2 (BLKNAME FILEMAPLST COREOK LST) TEDIT.RESET.EXTEND.PENDING.DELETE (SEL) \MAIKO.10MBTURNONETHER + (NSHOSTNUMBER OUTINTERRUPT ININTERRUPT) \LEAF.REOPENFILE (OLDDATES) PRIN3 (OBEY-PRINT-LEVEL) +XCL::%%DEFINE-TYPE-DELDEF (XCL::HT) COMPILE-IN-CORE (PRINTLAP NOREDEFINE NOSAVE) COMPILER::ALPHA-IL-FUNCTION + (COMPILER::CLOSE-P-FORM) PUTDEF (PUTDEF.METHOD) \PARAS.IN.SEL (PARAENDED) MSPATHS4 (TOP) +RESET.INTERRUPTS (PermittedInterrupts SaveCurrent?) DINFO.SELECT.GRAPH (GRAPH) RIGHTW.BUTTONEVENTFN ( +ROWPROPCOMMANDFN SELECTION) XCL::%%DEFINE-TYPE-FILE-DEFINITIONS (XCL::DEF) CL::%%NSUBST-IF-NOT (CL::KEY +) CL::%%COMPLEX-SUBLIS (CL::KEY CL::PAIR) \GCRECLAIMCELL (INDEX PTRFIELDS VAL DONEXT) +CL::%%SIMPLE-SUBLIS (CL::PAIR) \CONTROL-T.PRINTRATIO (NEWLINE) SPLIT89 (POS Y) FB.MAKE.BROWSER.BUSY ( +ITEM) COMPILE.FILE.RESET (COMPILED.FILE SOURCEFILE) CL::STRUCTURE-SLOT-NAMES (CL::DONT-COPY) +CL::%%COMPLEX-ASSOC (CL::TEST-NOT-P CL::KEY) PROCESS.NAME (P NAME) CL::%%COMPLEX-NSUBLIS (CL::KEY) +FB.GREATEST.PREFIX (DIR FILENAME LASTDIR) CL::%%NSUBST-IF (CL::KEY) CHANGE-TTY-PROCESS-INTERACTIVELY ( +NEW-PROC) XCL::%%DEFINE-TYPE-PUTDEF (XCL::DEFINITION) SEDIT::COPY-SELECTION-COMMENT (SEDIT::START +SEDIT::DESTINATION SEDIT::INSERT) MSONPATH (FROM) \FTP.RENAMEFILE (NEWFILE) CL::%%COMPLEX-MEMBER ( +CL::TEST-NOT-P CL::KEY) \NSFILING.GENERATEFILES (PARSE SESSION FILING5 PATHREQUIRED NAME DIRPATH +FILTERLIST VERSIONFILTER VERSION FILTERNEEDED RESULT) \VFMGet1 (interval) CNDIR (HOST/DIR) EDITFINDP ( +FLG) HEADINGOP.IP (HEADING) UNMARKASCHANGED (ANYFLG) \MAKEPCTB (PC1) CLISPCAR/CDR2 (NODE) +OPENRTPSOCKET (FRNPORT PUPSOC MODE FAILURESTRING) \HANDLE.RAW.3TO10 (NDB) \CLEAR.ROUTING.TABLE ( +OLDTABLE) PRINTROUTINGTABLE (SORTFLG DECP) FB.FINISH.COMMAND (ITEM) ATAN (Y.NEGP X.NEGP RADIANSFLG) +COMPILE.FILE.APPLY (FORCE-OUTPUT-P DEFER) DIRECTORYNAME (STRPTR) ADDSPELL1 (SPLST L2 L3 N M) +\BITBLT.IP (CLIPPINGREGION DESTINATIONREGION) ADDTOVAR (OLDENTRY ADDED-NONLIST? VAL) +\TEDIT.FOREIGN.COPY? (DEST.TEDIT? PROCW DEST.TEXTOBJ) MAKE-SEQUENCE-OF-TYPE (ELEMENT-TYPE EXPANDER) +TTYIN.PRINTARGS (ARGS ACTUALS ALLOW-OTHER-KEYS DOSPACE) HASHFILESPLST1 (XWORD) UNTRACE (CL::FNS) +XIPAPPEND.STRING (IFSP OFFST) PROCESS.BACKTRACE (STKP) CL:UNION (CL::LIST1-EXTRAS) +\TEDIT.COPY.PIECEMAPFN (NEWOBJ OBJ) TTYINFOSTREAM (STREAM) SAVESET (NAME VALUE TOPFLG PTR) +FB.MERGE.DIRECTORIES (PREFIX RETAIN) MSPATHS1 (FIRST LAST XT TEM) CL:NINTERSECTION (CL::RESULT) +LEAF.ASSURE.FINISHED (PUP) TRACE (CL::FNS) FB.EXPUNGECOMMAND (FAILED CMD) CL::%%PRINT-TIMING-INFO ( +CL::DATA-TYPE-INFO) BAKTRACE (SKIPFNS) CL:NSET-DIFFERENCE (CL::RESULT) \UNQUEUE (NEXT PREV NOERRORFLG) + MODIFY.KEYACTIONS (SaveCurrent?) UNION (TAIL) SEDIT::REUSE-LINEAR-FORM (SEDIT::BELOW?) SEDIT::UNDO ( +SEDIT::UNDO-LIST) MOUSECONFIRM (HELPSTRING PROMPTSTRING HELPSTR PWINDOW DON'TCLEAR/MAINW) DIRECTORY ( +PRINTFLG OUTFILE PROMPTFLG PFLG SEENP HEADINGS VALUES-WANTED) CL:NSET-EXCLUSIVE-OR (CL::RESULT) +FB.REMOVE.FILE (NEXTITEM) CLISPATOMIS1 (NEGATE) DSPSCROLL (SWITCHSETTING) RESHAPEALLWINDOWS (ATWINS +MAINONLYFLG) \TEDIT.FIND.WC1 (TARGETLIST RESULT1) DINFO.HISTORIC.UPDATE (NODE) GETPROMPTWINDOW ( +DONTCREATE FONT %#LINES PWINDOWPROP PAGEFULLFN) EDITF (EDITFX) \SLOWIDIFFERENCE (SIGNX) CLISPIFY2A ( +SEG FLG) ATTACHEDWINDOWS (COM) MB.NB.SIZEFN (MAXITEMS/LINE OLDBOX) \SLOWITIMES2 (SIGN) OLD.FIND.SYMBOL + (FATP NONNUMERICP FATCHARSEENP) GETDEF.I.S.OPR (EVALFLG) CL:NUNION (CL::LIST1-EXTRAS) \SLOWIQUOTIENT +(SIGNQUOTIENT SIGNREMAINDER) MSSIMPLESET (X) DIRECTORYNAMEP (HOSTNAME) DOWINDOWCOM (WINDOW) +PUTHASHFILE (KEY2 VALUE) EDITDEF (SOURCE) IREMAINDER (SIGNQUOTIENT SIGNREMAINDER) OPT.FRAMEMERGE (V) +\TEDIT.MARK.LINES.DIRTY (LL) GETHASHKEY (DELOK? DELETED? PROBE) \MAIKO.10MBWATCHER (PACKET) +XIPAPPEND.WORD (OFFSET) APPENDTOVAR (OLDENTRY ADDED-NONLIST? VAL) MSPATHS2 (FLG) GETHASHFILE (KEY2) +EDITF2 (CHANGES TYPE IFCHANGEDFN) SUBATOM (M1) UNSAVEBLOCK? (ENTRIES) RECORDACCESS (DEC DEF) ADDTOCOMS + (COMS) \SPP.HANDLE.INPUT (XIP ACKRECEIVED ALLOCINCREASED ATTN) CL:SUBSEQ (END) COMPILER::COPY-NODE-RETURN + (CL:BLOCK) WRITE-UNICODE-INCLUDED (CTAIL) UNPACKFILENAME.STRING (FILE ONEFIELDFLG PACKFLG CLFLG HOSTP + OLDDIR FATP NEWDIR TEM BEYONDNAME FIRSTDOT SECONDDOT OSTYPE BEYONDEXT CODE) MENUWINDOW (VERTFLG) +MSNEEDUNSAVE (MARKCHANGEFLG) EDITDEFAULT1 (Y) CLISPATOM2D (X) ATTACH (L) \BLTSHADE.PRESS ( +CLIPPINGREGION) \RTP.HANDLE.INPUT (TIMER) EDITH (X) PUPNET.DISTANCE (ROUTE) WINDOWADDFNPROP (CURRENT) +\NSFILING.PARSE.FILENAME (CH SEMI PATTERNP NAME) RETDWIM3 ($TAIL) \BSP.PREPARE.INPUT (TIMEOUT) +EDITDEFAULT (EDITY) UnixPrint (NAME) DEFINE (TYPE-IN) CL:ADJUST-ARRAY (FILL-POINTER EXTENDABLE-P) +EDLOC (FLG) FB.MAYBE.INSERT.FILE (OLDITEM FILE-UNCERTAIN) \SPP.INFO.HOOK (WINDOW) CL::TYPE-EXPAND ( +CL::EXPANDER) \CURVESLOPE (ENDFLG) EDOR (COMS) MB.NB.WHENOPERATEDFN (SIDEFN) DSUBST (OLD) OPT.FRAMEOPT + (TRYLOCAL TRYMERGE) SEDIT::COMPUTE-POINT-POSITION-COMMENT (SEDIT::SUBNODE) MSJOIN (Y X) +CL::TYPE-EXPANDER (CL::EXPANDER) EDITRAN (DEF TEM) MSPATHS (INVERTED NOTRACE NAMED UNDONE) BCOMPL1A ( +FIRSTFLG COMPEVALFLG) EDITTO (LC1) ONEDINSPECT.REPAINTFN (WINDOWREGION STARTPROP) REMWINDOWPROP (PREV) + FB.PRINTFN (FATP INFO OLDFONT) \ONQUEUE (X) ARCTAN2 (RADIANSFLG) \COURIER.PUTDEF (OLDINFO) COPYBYTES +(END NBYTES) POP-IP-STACK (STACK) CL::%%LIST-MAP-OPTIMIZER (CL::INC-FN CL::CONSTANT-FN +CL::CONSTANT-INC-FN CL::RESULT-P CL::NIL-RESULT-P) EDITCOM (TYPEIN) EVERY (EVERYFN2) DEFAULT.EDITDEF ( +SOURCE FILES) TTY/EDITE (ATM TEM TYPE) CREATEMENUEDWINDOW (LOCATION WINDOWTITLE VERTFLG WINDOWSPEC) +MBUTTON.FIND.NEXT.FIELD (PC DON'TFIX) UNSAVEFNS (FN FNS) EDRPT (QUIET) CLISPCAR/CDR1 (SETQFLG TAILFLG) + \SCALEDBITBLT.PRESS (CLIPPINGREGION) \BUFFERED.COPYBYTES (NBYTES) \NSFILING.COMPOSE.PATHNAME (NAME +VERSION) EDITMAC (LST FLG) ARCTAN (FLIPPED RADIANSFLG) CLISPLOOKUP (CLASSDEF) +%%ALTER-AS-DISPLACED-ARRAY (DISPLACED-INDEX-OFFSET DISPLACED-TO-READ-ONLY-P) \LEAF.FLUSH.CACHE (CACHE) + EDIT!UNDO (LST !UNDOFLG FLG) TCONC (PTR) \GETSTREAM (X NOERROR ACCESS) CHANGERECORD (OLDFLG) EDITCOMA + (LST TEM) \CURVEEND (SOFTCURSORUP SI::*OR-GENTEMP*) \DSPXPOSITION.PRESS (XPOSITION) COPYCHARS (END +START RAP SAMEEXTFORM) EDITCOML (COPYFLG) KWOTE (X) EDITCOM1 (FLG) PRETTYFILEINDEX (FILECREATED +WASOPEN OUTSTREAM NOPRINT DONTINDEX *PFI-TWO-SIDED*) SI::CANONICALIZE-ADVICE-WHEN-SPEC (SI::SPEC) +FW-FORGET-CMD (W MANY? CURRENT-OFDS FORGET-OFD) PUTCURSORPROP (OLDDATA VALUE OLDVALUE) LDIFF (Y Z X) +UNDOEDITCOM (FLG C) LCONC (X PTR) XIPAPPEND.BYTE (OFFSET) \TEDIT.REOPEN.STREAM (PC) CLEAR.LEAF.CACHE ( +HOST DEVICE) TEDIT.PROMPTPRINT (TEXTSTREAM TEXTOBJ MAINTEXTOBJ WINDOW CLEAR?) +SI::CANONICALIZE-ADVICE-SYMBOL (SI::IN-POS) SEDIT::UNDO-LIST-REPLACE (SEDIT::OLD-SUBNODES) CL:REPLACE +(END1 END2) EDITSMASH1 (L0) OPENSTREAM (PARAMETERS FILE) VARIABLESMSGETDEF (BODY) +\LEAF.BREAKCONNECTION (FAST) EDITNCONC (X) ONEDINSPECT.BUTTONEVENTFN (SELECTION) INSURE.WINDOW ( +NOERRORFLG) CL:MAPCAR (CL::MORE-LISTS) RETDWIM2 (N M) EDITSAVE1 (REPLACEFLG) LSUBST (EXPR) +COMPILE.CHECK.ARGTYPE (VAL) SEDIT::OUTPUT-STRING (SEDIT::PRIN-2?) \CREATEPIECEORSTREAM (STRING) +FIXPRINTIN (FN FLG) EDITSMASH (L) LISTFILES (FILES FULLNAME) \PFFindPageAddr (PAGEGROUP) EDIT2F (X) +FUNCTIONSMSGETDEF (BODY) PFI.SORT.INDICES (RESULT) EDIT4F1 (TAIL X LVL XX) MAP2C (MAPFN2) +FB.COPY/RENAME.MANY (RETAIN) CL:MAPLIST (CL::MORE-LISTS) XIPAPPEND.CELL (OFFSET) FB.COMPILECOMMAND ( +FILES) SEDIT::VERIFY-STRUCTURE (SEDIT::CLEAR-LINEAR-FORMS? SEDIT::REDISPLAY-ALWAYS?) COMP.BOOL (A FLAG +) MAPC (MAPFN2) \TEDIT.BOLD.CARET.ON (LOOKS) \PUPNET.CLOSERP (ROUTEX) MAP2CAR (CL:MAPL MAPFN2) +EDITBELOW (DEPTH L0) DEBUGGER (BRKPOS XCL::DEBUGGER-WINDOW) MAPCON (MAPE MAPFN2) \TEDIT.CLOSEUPLINES ( +PREVLINE NEXTLINE LINE DONTFILLFLG) CL:MAPC (CL::MORE-LISTS) EDIT4F2 (CDRFLG FLG) MAPCAR (CL:MAPL +MAPFN2) HISTORYFIND1 (PAT2 PAT1) TEDIT.PUT.PCTB (PARALOOKSSEEN FORMATTINGLEVEL PC FONTFILE PREVPC +UNFORMATTED? FN EDITSTENTATIVE PREVFATP CACHE TRUEFILE SEPARATEFORMAT) MAPLIST (CL:MAPL MAPFN2) +\NSFILING.CONFLICTP (OPENFILES) MAPCONC (MAPE MAPFN2) SEDIT::UPDATE (SEDIT::RELINEARIZE) MSRESPELL ( +WORD) CURSORCREATE (MASK) EDIT.RI (A B) CL:MAPL (CL::MORE-LISTS) EDITBF1 (LVL ...PAT PAT XX TAIL) +CLISPBROADSCOPE (L) \BITBLT.PRESS (CLIPPINGREGION) STKPOS (IPOS FLAG) MAKEFILE1 (REDEFINE? +FORGET-EXPRS? GROUP RECOMPFLG) GTHASHFILE (HASHFILE) \LOCATE.PUPNET (DONTPROBE) EDIT.LO (X) +CLISPBROADSCOPE1 (FLG) PRINTCONSTANT (PREFIX) \VFMGetBufferFor (BUFFER) \CURSOR-VALID-P (SOFT?) +SEDIT::FIND-SELECTION-BACKWARDS (SEDIT::END SEDIT::WRAP?) \TEDIT.FLUSH.UNUSED.LOOKS (FIRSTPC) CL:MAPCAN + (CL::MORE-LISTS) EDIT.RO (X) TEDIT.SUBLOOKS (PC CHANGEMADE) \TAN-FLOAT (RECIPFLG) TEDIT.LOOKS ( +SELORCH#) DELFILE (FILE) ADD-EXEC (XCL::TTY) EDIT.LI (X) COMP.PICOUNT (VARS) WRITE-UNICODE-MAPPING ( +FILE MAPPING IMAPPING EMPTYOK) READVISE1 (OLD-ADVICE) SEDIT::BACKSPACE-COMMENT (SEDIT::INDEX) +CL::PS-NAME-SLOT-POSITION (CL::INCLUDE) LISPXFIND0 (L1 THRUFLG L2 HISTORYFLG) \RTP.ACTION (NEWSTATE) +EXEC-EVAL (*CURRENT-EVENT*) EDIT.BI (A) TEDIT.SELECTED.PIECES (PC PIECEMAPFN) \TELERAIDBREAK ( +USERFRAME) CL:MAPCON (CL::MORE-LISTS) TAN (RADIANSFLG) HRULE.DISPLAYFN (RULING) +CL::%%EVERY-MAP-OPTIMIZER (CL::INC-FN CL::CONSTANT-FN CL::CONSTANT-INC-FN) \FM.EDIT-GETPOINTERINFO ( +PTR) CHAT.BIN (FIRSTTIME) FB.GET.NEW.FILE.SPEC (FIELDS) CL:BIT-NOT (RESULT-BIT-ARRAY) SEDIT::UNDO-EVENT + (SEDIT::EVENT) ONEDINSPECT.COPYBUTTONFN (SI::*OR-GENTEMP* SELECTION) COMP.CPI1 (VARS) COPYATOM (PKG) +\DSPYPOSITION.PRESS (YPOSITION) BREAK-FUNCTION (XCL::TRACE? XCL::IN-FN) CURSORPOSITION (NEWPOSITION) +ONEDINSPECT.DEFAULT.VALUECOMMANDFN (VALUE) \TEDIT.CHANGE.LOOKS (FAMILY FONT WEIGHT SLOPE EXPANSION +FACE SIZE SIZEINC NEWLOOKS PC PROT SELHERE ULINE OLINE STRIKE INVISIBLE SUPER SUB STYLESET UISET +OFFSETINC INVERSEVIDEO) GETLOCALDEC (TL) CURSORSCREEN (XCOORD YCOORD) SAVEDEF1 (DF) UNBREAK (XCL::FNS) + SEDIT::FIND-SELECTION (SEDIT::START SEDIT::WRAP?) SI::ADVICE-ADDTOCOM (SI::NEAR) \CHTOPCNO (TREE) +EDIT.BITMAP.REAL (DONE PREVIOUS.BITMAP) DEFAULTMAKENEWCOM (LISTNAME FILE) \FILLINXIP (EPKT +SOURCENSOCKET DESTNET DESTSOCKET#) COPY-ARRAY (TO-ARRAY) \TEDIT.INSERT.PIECES (DONTDIRTY PC %#CHARS +CROSSCOPY FIRSTPIECE COPYING) IP-TOS (STACK) \TEDIT.PARSE.SEARCHSTRING (LST RESULT) +\TYPE.FROM.FILETYPE (FILETYPE) FB.LOADCOMMAND (FILES) \LEAF.LOOKUPCACHE (CACHE DELETE PREV) +COPY-VECTOR (END1 END2) CLISPATOM2A (TAIL DWIMIFYING) PFI.COMPUTE.INDEX.SHAPE (MAXINDEXNO) \ROUTE.PUP +(ROUTE READONLY) SOME (SOMEFN2) MAKEHARDCOPYMODESTREAM (DISPLAYSTREAM) \NSRANDOM.CREATE.STREAM ( +GOTCONTROLS CHECKACCESS ERROR OLDSTREAM) ARCCOS (RADIANSFLG) SI::ADVISE-CONTENTS (SI::NAME) +SEDIT::STRINGIFY-LIST (SEDIT::DOT) \NSFILING.OPEN.HANDLE (PARENT CONTROLS) /ECHOCONTROL (MODE) +COMPILEMODE (MODE) SET-PACKAGE-INTERACTIVELY (PACKAGE) /SETSYNTAX (TABLE) \RTP.SHOW.FAILURE (PUP +FAILURESTRING) SUBSET (RESULT MAPFN2) \NSFILING.FULLNAME (VERS DIRECTORYFLG DOTSEEN FUNNYCHAR HANDLE +ATOMFLG) \TFBRAVO.PARSE.PROFILE.PARA (TOKENS) \SIN-FLOAT (COS-FLAG) OPT.RETMERGE (FEQ VEQ) HASHFILEP ( +HASHFILE WRITE) TAILP (X) \ROUTE.XIP (ROUTE READONLY) %%MAKE-DISPLACED-ARRAY (DISPLACE-TO-READ-ONLY-P +NEED-INDIRECTION-P ADJUSTABLE) COURIERTRACE (FLG) SEDIT::FIND-OBJ (SEDIT::FIND-STRING SEDIT::BACKWARDS? +) \HDCPYBLTCHAR (SOFTCURSORUP SI::*OR-GENTEMP*) \TEDIT.ORIGINAL.WINDOW.TITLE (FILE DIRTY?) +TB.MAP.DELETED.ITEMS (NULLFN) \FM.EDIT-DELETE (INFINITEWIDTH MOVEDOFF) MSVERB (ROOT) MERGEINSERT ( +ONEFLG LST1 PLACE) \TTW1 (SOFTCURSORUP SI::*OR-GENTEMP* ISECT) ARCSIN (REDUCED NEGP RADIANSFLG) +SEDIT::LINE-FINISHED (SEDIT::LINEAR) \NSPRINT.ENQUIRE (STREAM) \TEDIT.SUBST.FN1 (RESULT) MSMARKCHANGED + (TYPE) CLISPATOM2 (UNARYFLG TEM PARENT NEGFLG LISPFN Z VAR2) CHANGESLICE (HISTORY L) +SELECT.LIST.INSPECTOR (RECDEC) \VFMMerge (mergeFlag) \HANDLE.PUP.ROUTING.INFO (NEWTIMER) EDIT.BITMAP ( +OBJECT) \TEDIT.BOLD.CARET.OFF (LOOKS) \LEAF.REQUESTPAGE (IMMEDIATE CACHE) CHAT.LOGIN (NAME/PASS) +CONVEXP (PATH) CL:ERROR (PRINTMSG) ETHERHOSTNAME (PORT IPUP USE.OCTAL.DEFAULT) CHAT.SCREENPARAMS ( +INSTREAM TITLEMIDDLE EMACSMODE) OPT.RETTEST (ONLYIFSAMEFRAME) RANDSET (X) WALK-FORM-INTERNAL ( +XCL::WALK-NO-MORE-P XCL::MACROP) SCAVENGEDSKDIRECTORY (LISPDIRECTORY LISPFILES SILENT) FNTH (X) +\TEDIT.HISTORYADD (OLDEVENT) \SLOWHDCPYBLTCHAR (SOFTCURSORUP SI::*OR-GENTEMP*) IDATE (STR DEFAULTTIME +CH SECONDS) MAKEFN (ARGLIST) CLEARHASHFILES (CLOSE) \TEDIT.FONTCOPY (NEWSPECS) CL::PROCESS-TYPE ( +CL::PREDICATE) WINDOWADDPROP (CURRENT FIRSTFLG) BSPFRNADDRESS (SOC) \FTP.RECOGNIZEFILE (BESTVERSION) +IMAGEFNSCREATE (GETFN) RAND (UPPER LOWER) MAKECOM (VALS) \BSP.HANDLE.INPUT (TIMER) SMARTARGLIST ( +EXPLAINFLG DEF) \INTERNALTOTOPW (SCREENTOPW RPT) CHECK-PARAMETER-NAME (NAME) HRULE.CREATE (WIDTH) +\FTP.OPEN.CONNECTION (PORT) CLOSEF? (FL) \LEAF.ADD.QUOTES (PIECES) \HCPYMODEDISPLAYINIT (WINDOW) +EDITGETD-LAMBDA (ARGS DONE VALS) SWAPPEDCOND (CTAIL) PRINTXIPROUTE (CALLER) \TEDIT.WINDOW.TITLE ( +NEW.TITLE) SEDIT:SEDIT (SEDIT::WINDOW) \STRINGWIDTH.HCPYDISPLAYAUX (RDTBL) PRINTPUPROUTE (CALLER) ODDP + (CL::MODULUS) \GENERIC.OPENP (FILENAME OPENFILES ACCESS) CHARACTER.PRINT (PNAME) CL:NAME-CHAR (CODE) +CLISPATOM1A (ENDTAIL BRACKET OPRFLAG BROADSCOPE) \NSFILING.FILLIN.ATTRIBUTES (NOERRORFLG) +GETSCREENPOSITION (WINDOW) CLUNARYMINUS? (OPRFLAG) ERRORX (ERXM) \INSERT.FIRST.PIECE (TEXTOBJ) +WORD.MATCHES.BUFFER (CHAR) COPY-CIRCLE (BODY) \BACKCCODE (BYTECOUNTVAR) TB.MAP.ITEMS (ITEMS NULLFN) +SEDIT::COPY-SELECTION (SEDIT::DESTINATION-CONTEXT SEDIT::DELETE?) \INCCODE (BYTECOUNTVAR) +PASTEFROMCLIPBOARD (WINDOW) DUMPDATABASE1 (FN) LOAD? (DATES FILEPROP) \COURIER.ATTENTIONFN ( +SI::*OR-GENTEMP*) GETHASH (RETURNMVS EQFN) PFI.CENTER.PRINT (BOLDFLG) RECLISPLOOKUP (DECS) LOADCOMP? ( +LOADED FOUND) HARDCOPY.SOMEHOW (HARDCOPYFN) SEDIT::FIND-AND-DISPLAY-SUBSTRUCTURE-BACKWARDS (SEDIT::TARGET + SEDIT::WRAP? SEDIT::END) TEDIT.SUBPARALOOKS (PC CHANGEMADE) CLISPRECORD (SETQFLG FIELD DECLST) +\INSPECTW.REDISPLAYPROP (ITEMSELECTED?) NLAMBDA.ARGS (X) PREVWORD (NEW N) \GENERIC.CHARSET (NEWVALUE) +CHAT.CLOSE (CHATSTATE ACTIVE? CLOSING PROC) \FM.MENUHANDLER (ITEM LASTITEM PROMPTFLG SAMEPROCESS) +CHECKIMPORTS (NOASKFLG) DIRECTORY.MATCH1 (PATTERN) \LFEntryPoint (noVolName volName dontDefault vol) +FILL/GRAPHNODE/LABEL (SHADE) INSPECT/PROPLIST (ALLPROPSFLG PROPS) LOADFROM (FNS) CLBINARYMINUS? ( +MINUSTAIL) OPT.RETPOP (VAL) MSCOMMAND (TEM KNOWN TYPE) FILEGETDEF.FNS (MAP) \NSFILING.HANDLE.ERROR ( +ERROR) BRKDWNRESULTS (RETURNVALUESFLG) CL:DIGIT-CHAR-P (VAL) \SETUPTIMERmacrofn (TimerUnits +IntervalUnits NOERRORCHKS) DINFO.SPECIAL.UPDATE (NEW.NODE) \ITEMW.CLEARSELECTION (CURRENTITEM) +\3MBRAWRECEIVE (PBI) SUBST (EXPR) COMPILER::COPY-NODE-GO (CL:TAGBODY) \CanonicalizeTimerUnits ( +CONVERTEDP) SEDIT::GENERATE-LINEAR-FORM (SEDIT::LINEARIZE) \COURIER.UNKNOWN.TYPE (PROGRAM) +SEDIT::FIND-AND-DISPLAY-SUBSTRUCTURE (SEDIT::TARGET SEDIT::WRAP? SEDIT::START) +GRAPHOBJ.COPYBUTTONEVENTFN (CBEFN) \TEDIT.FIND (TARGET CH) FIND.NEXT.WORD (BACKUPFLG N) +SCALE/GRAPHNODE/BORDER (BORDER) FORMAT-EXP-AUX (W D) \LEAF.DEVICEP (LEAFDEV) +SEDIT::FIND-AND-DISPLAY-STRUCTURE-BACKWARDS (SEDIT::TARGET SEDIT::WRAP? SEDIT::END) INTCHECK (CHR) +USERLISPXPRINT (NODOFLG) \LEAF.DELETEFILE (STREAM) MOVD (DONTCOPY COPYFLG) MSTRYSPELL (TAIL) +COMPILER::META-CALL-LABELS (COMPILER::*MADE-CHANGES*) TTYIN.BALANCE (ERRORFLG) \TELERAIDEXIT (NDB) +DMATCH (PAT) ADJUSTLINE (JUSTIFYING OVFL BREAK USECR NEXTLINE LINE) MOVD? (COPYFLG) BREAKDOWN (DEF FNS +) TEDIT.INCLUDE (NFILE SAFE) CHNGNM (FLG DEF) WRITE (*PRINT-CIRCLE* THERE-ARE-CIRCLES) +\LFPurgeDirectory (directoryID) \DelShade (LIST) TEDIT.EXTRACTTOCLIPBOARD (TEXTSTREAM) \BOXFPLUSDIF ( +SUBTRACT) \TEDIT.PUT.SINGLE.PARALOOKS2 (DEFAULTTAB TABSPECS) \GETSPP (PEEKFLG TIMEOUT) +\TEDIT.SEL.CHANGED? (NEWSEL) PFI.PRINT.INDICES (INDICES FREECHOICE) SEDIT::CLEAN-UP-AFTER-RELINEARIZATION + (SEDIT::FOLLOWING-LINE) MSTYPEMATCHRATING (X Y) %%CML-TYPE-TO-TYPENUMBER (FATP) NS.AUTHENTICATE (ADDR +) \CENTICLOCK (PACKET) RPTPUT (FLAG) ADDPROP (ATM X X0 FLG) VALUOF (LINE BACKUP) \LEAF.GETFILE ( +OLDSTREAM REALLYOPEN NOERROR) \TEDIT.FIND.PROTECTED.START (PC) RESET/NODE/LABELSHADE (STREAM) /REMPROP + (X0) TEDIT.COPYTOCLIPBOARD (TEXTSTREAM) NEGC (X) TEDIT.EXTEND.SEL (NSEL FIXUPNEEDED SETOSELFLG) +\MAKEFLOAT (NORMALIZE) SI::ADVICE-GETDEF (SI::ADVICE) TEDIT.STREAMCHANGEDP (RESET?) STOPSCAN? (CLTYP2 +CLTYP1 OPRFLAG) \NULLDEVICE (NOERRORFLG) MB.SHOWSELFN (ON) \CANONICALIZE.PUP.HOSTNAME (PORT) +CIRCLAR-COPYER (BODY) %%MAP-FOR-EFFECT (MORE-SEQUENCES) FIXSPELL (FROMDWIM REL XWORD FN X GENFN +GENERATOR L TIEFLG TAIL DONTMOVETOPFLG) TEDIT.GET.LOOKS (CH#ORCHARLOOKS) SETUPTIMER (intervalUnits) +\LOAD-STREAM (LOAD-VERBOSE-STREAM FILE LISPXHIST MANAGED-FILE-P FILEPKGFLG BUILDMAPFLG) +\TEDIT.REFRESH.SHOWSEL (EXTENDING) \TOTALPROPOSEDSIZE (ATWSINFO) CLISPATOM0 (LISPXHIST 89FLG TEM) +DWIMDEF (FN) COMPILER::FRAME-ANNOTATE-TAGBODY (COMPILER::REQUESTS) \CIRCSHADE.BLT (OPERATION) +%%MAP-TO-LIST (MORE-SEQUENCES) \TELERAIDENTRY (NDB) TTNLEFT (X) %%MAP-TO-SIMPLE (MORE-SEQUENCES) +FIXFIELDORDER (FIELD.USAGE REVFIELDS) DUMPDATABASE (FILE FNLST DUMPEDFLG) LOAD (PACKAGE) +\DSPYPOSITION.HDCPYDISPLAY (YPOSITION) INSPECTW.PROPERTIES (PROPERTIES) \TEDIT.FORMAT.FOOTNOTE ( +PREVLINE) HASDEF (SOURCE TM SYMBOL TEM SPELLFLG) SEDIT::FIND-AND-DISPLAY-STRUCTURE (SEDIT::TARGET +SEDIT::WRAP? SEDIT::START) PRINT-ARGLIST (ARGS ACTUALS) \TFBRAVO.GETPARAMS (L) BLTMENUIMAGE (DONTOPEN) + SCALEPAGEUNITS (VALUE) XCL::UNDOABLY-SETF-SYMBOL-FUNCTION (XCL::DEFINITION) IMAGESTREAMP (STYPE) +CCCSUBFN? (BASE) EQUALN (DEPTH) FNS.PUTDEF (DEFINITION) FORMAT-FIXED-AUX (W D K) STKNTH (IPOS CFLAG) +MSSEEKPHRASE (FORCONJUNCTION) TEDITCHAT.MENUFN (STATE) EDITV (VAR FRAME) U/L-CASE (CAPFLG NEEDADJUST) +CL::INSERT-INCLUDED-SLOT (CL::TAIL) SETTAIL? (EVEN.IF.NOT.THERE) PFI.PREVIEW.DECLARE (STARTOFLINE) +JOINDEF (DEF DEFLST) PRINTPACKETDATA (MACRO SEPR FINALPRINT) TEDIT.HARDCOPY-COLUMN-END (LINES +FINAL-CHNO ORPHAN LASTLINE FOOTNOTELINES ORIGINAL-LINES DONT-KEEP-SINGLE-LINE REMOVED-LINES) NOTE ( +LSTFLG) IMAGEOBJPROP (SET?) STKSCAN (IPOS) OPENIMAGESTREAM (FILE IMAGETYPE LPTNAME LPTP) /TCONC (PTR) +\AddShade (INDEX) \FRAMESCAN (INTERPNT) MSSETREP (LISTOKFLG NEG) +COMPILER::META-CALL-LAMBDA-SIMPLIFY-PARAMETERS (COMPILER::ARGS) CHAT.RESHAPEWINDOW (CHAT.STATE) +SEDIT::COMPLETE (SEDIT::COMPILE-SUCCEEDED?) RETTO (FLG) \LFGetStreamForFile (FILESPEC OLDSTREAM +CREATEFLG) FB.HARDCOPY.MAXWIDTH (DATEP) COMP.STUNBIND (D) OPT.COMMONBACK (FLG) PUTFILEMAP (FILEMAP +OLDENTRY ENV FCLOCATION FILCREATEDLST) SHRIEKER (LOOKAT RESULTP) PRINTERTYPE (HOST) DO-DISPATCH-MACRO +(DISP-TABLE DISP-FUNCTION) PRINTERNAME (PRINTER-SPEC) ADDSPELL (SPLST) OPT.JUMPREV (FLG) /SETTOPVAL ( +ATM VAL) \TEDIT.TRY.ABBREV (EXPANSION) EXEC-READ-LINE (SPACEFLG) FORMAT-PRINT-RADIX-AUX (ATSIGN COLON) + ADDFILE (FCLST LOADTYPE) DRAWGRAYBOX (SOFTCURSORUP) COMPILER::META-CALL-LAMBDA (COMPILER::NEW-ARGS +COMPILER::CURRENT-PROG1-TAIL) RESET/NODE/BORDER (STREAM) \TEDIT.LOOKS.UPDATE (PC ORIGPC) +\LFUpdateLeaderPage (access) DINFO.UPDATE.MENU.DISPLAY (WINDOW CHILDREN SCROLLABLE) RPTPRINT (FLAG) +\TEDIT.FIND.LAST.LINE (LINE) COMPILER::COPY-NODES (COMPILER::TREE) ALLATTACHEDWINDOWS (ATWS) +ROOTFILENAME (COMPFLG) TRYNEXT1 (PLST##) COPIEDFROMSPEC (DIREND) CENTERPRINTINAREA (PRIN2FLG) +SHOWSHADEDITEMS (ANYSUBITEMS) \SENDLEAF (NOERROR NOREPLY) \ITEMW.DESELECTITEM (ITEM) SETSTKARG (NT) +SKIP/ZAP (MINUS) MOVEBOX (SOFTCURSORUP) \TEXTBOUT (WINDOW) STKARGNAME (NT) MAPRINT (PFN SEP LEFT RIGHT +) ENUM-STRING (DECPLACES EXPWIDTH) SI::INSERT-ADVICE-FORM (SI::ENTRY-LIST) SETSTKARGNAME (NT) +MB.DEFAULTBUTTON.ACTIONFN (OFILE CH PRINTHOST %#COPIES %#SIDES MSG) PROMPTCHAR (FLG HISTORY PROMPTSTR +ID) %%PRINT-ARRAY-CONTENTS (ELIDED) DINFO.UPDATE.TEXT.DISPLAY (OFF? FILENAME) CL:VECTOR-PUSH-EXTEND ( +NEW-INDEX) LISPXPUT (LST ADDFLG) \CONVERTNUMBER (RDTBL SIGN DIDQ COMMONLISPY) PRETTYDEF (REPRINTFNS +SOURCEFILE SOURCEFILENV OLDFILEMAP DESTINATIONENV FORMAT) STKNARGS (INCLUDEPVARS) NLIST (V) MKLIST (X) + LISPXTERPRI (X NODOFLG) PRINTCOPYRIGHT1 (SEMICOLON PRIVATE) LISPXPRIN1 (Z Y X NODOFLG) HPRINT1 ( +CDRFLG X NOSPFLG NOMACROSFLG VALS) TTECHO.TO.FILE (DRIBBLING FIRSTIME LINE) \CML-LOAD (PRINTFLG +LOAD-VERBOSE-STREAM) UNIX-STREAM-EOFP (CONN) FILECREATED (FILE) GREET (NAME) FORMAT-PRINT-RADIX (PARMS +) \LFMakeVolumeDirectory (DONTOPEN) FNUM-STRING (DECPLACES) \TEDIT.FIND.PROTECTED.END (PC) +\GOOD.DASHLST (DASHLST NOWOFF) \TEXTBIN (OPC PC NPC SUBSTREAM) COMPERROR (X) /DECLAREDATATYPE ( +TYPENAME) CHECKDEFS (RECS FOUND MUST DEFS) DINFO.UPDATE.GRAPH.DISPLAY (FORCE?) COURIER.BROADCAST.CALL +(MESSAGE NETHINT RESULT) LISPXPRINT (Z Y X NODOFLG) HASH-LEFTPAREN (INDEX) PRINTCOPYRIGHT (OWNER) +HASH-BACKSLASH (PARAM) DECLAREDATATYPE (SUPERTYPE FIELDSPECS DLIST LENGTH TYPENAME) READFROMBUF (FIXUP +) CL::RESOLVE-SLOTS (CL::INCLUDES CL::INCLUDED-SLOTS) FLTSTR (K) INSURE.DASHING (DASHING NOERRORFLG) +GLC (CODE) \TRACKWITHBOX (NOERROR) DWMFY2 (NOTOKFLG FNFLG 89CHANGE ATTEMPTFLG NEXTAIL) +TRANSLATE.DATATYPE (TYPENAME) PRINT-DOCUMENTATION (DOC) GETDEFERR (MSG) \LEAF.CLOSEFILE (STREAM FORCE +CACHE) FILEDATE (FILE OLDPTR) LINELENGTH (N) EXTTOINT (ROUNDFLAG) /PUT (ATM X X0) \LIMITBYMAX (MAX) +\NSRANDOM.UPDATE.VALIDATION (ERROR) RPLCHARCODE (FATPA0357) MB.SELFN (BUTTONFN) \REUSETO (FLG) +DO-EVENT (ADD-TO-SPELLING-LIST) \DSPXPOSITION.HDCPYDISPLAY (XPOSITION) EXTENDEXTENT (EXTENT) +\TEDIT.PUT.SINGLE.PARALOOKS (DEFAULTTAB TABSPECS) EDITE (EXPR) BUILDGETRELQ (FORM) \UPDATEXYANDBOX ( +BASEPTCHANGE?) READLINE (LINE SPACEFLG LISPXFLG START) FLONUM-TO-STRING (DECPLACES FMIN REALDP WIDTH +SCALE) PFI.HANDLE.* (NSEMIS) \LISP.TO.NSFILING.ATTRIBUTE (VALUE TL) BOOTSTRAP-NAMEFIELD (SUFFIXFLG) +SET/LABEL/SIZE (RESET/FLG FONT) EDITLOADFNS? (FN DATES ASKFLG STR) DECLARE%:1 (EVALFLG) MSPATHOPTIONS +(FLG) SEDIT::INSERT-LITATOM (CL:CHAR) DO.EDIT.PP (EXPRS LEFTOVER) HASH-R (PARAM) +\POSTSCRIPT.SPECIALOUTCHARFN (FAMILY) READHOTSPOT (DOWNYET?) MSMSGPRINT (MSG) TTDELETECHAR (DODELETE) +TYPE-VARIABLE-FROM-TYPE-NAME (CLAUSE) RESETBUFS ($$BUFS) \NSRANDOM.WROTE.HANDLE (NEWINFO ATTR) +HASH-STAR (PARAM) DISPLAYP (STRM) XCL::WALK-TAGBODY-1 (XCL::FORM) DWMFY1 (CLISPCHANGE 89CHANGE +ATTEMPTFLG CARISOKFLG) \LIMITBYMIN (MIN) EDITMOVENODE (GRAPH NOW NEAR) PRETTYPRINT3 (PRETTYDEFLG) +GETDEFCURRENT (COM TYP) FB.SORT.VERSIONS (NEXTTAIL PREVTAIL) \TEDIT.HCPYLOOKS.UPDATE (PC NLOOKS +NEWKERN) COMPILEDFETCHFIELD (FASTFLG) COPY.TEXT.TO.IMAGE (RIGHTMAR TABS) PARSE-NAMESTRING1 (FILE HOSTP + BEYONDNAME SUBDIREND CODE DIRFLG) HASH-EQUAL (PARAM) ALLPATHS (DECLS ANY TL) UNSAVED1 (TYP) +DRAWDASHEDLINE (DASHON DASHTAIL) PRETTYPRINT (FILEFLG NEWADRLST PRETTYDEFLG DEF FN) TERM.PRINTCHAR ( +WRAPFN) \DSPRIGHTMARGIN.HDCPYDISPLAY (XPOSITION) COMPILEDREPLACEFIELD (FASTFLG TYPENAME) OPT.PRDEL (B +P) DINFO.UPDATE.HISTORY (SEL NODE NEWITEM OLDWINDOW DISPLAY? ITEMS) SEND.FILE.TO.PRINTER (HOST +FILETYPE) \10MB.TURNONETHER (NSHOSTNUMBER OUTINTERRUPT ININTERRUPT) COPYALLBYTES (FROMFILE TOFILE +BYTESIZE) CL::ENSURE-CONSISTENT-PS (CL::INCLUDED-PSTRUCTURE CL::INCLUDE CL::EXPORTNAMES) GRAYBOXAREA ( +OUTLINESIZE) COMP.LOOKUPCONST (X) \TEDIT.PARSE.CHARLOOKS.LIST (FAMILY FONT WEIGHT SLOPE EXPANSION FACE + SIZE OLOOKS SIZEINC PROT SELHERE ULINE OLINE STRIKE INVISIBLE INVERSEVIDEO SUPER SUB STYLESET UISET +OFFSETINC) TEMPLATE (FLG OLD) SEDIT::SELECT-NEXT-GAP (SEDIT::NODE) CL:LOG (CL::BASE) +TEDIT.HARDCOPY.PAGEHEADING (PC NPC) COMPAREPRINTN (SPACE FLG) SHORTLST (X) CL:MAKE-ARRAY (FILL-POINTER + ADJUSTABLE EXTENDABLE READ-ONLY-P DISPLACED-TO-BASE) SKOR (XWORD TWORD SI::*OR-GENTEMP* T2 T1 X2 X1) +UNIX-READ (CONN NO-ERROR) PARSE.NSNAME (NAME DEFAULTDOMAIN THIRDPART) SI::ADD-ADVICE (SI::OLD-ADVICE) +SHEDSCAN (TAIL) READ-AFM-FILE (CCODE) \FM.MAKEBITMAP (BOX) MERGLIST (PATH1 PATH2) \FM.GETBITMAPS ( +HIGHLIGHT) \UFS.UNREGISTER.GFS (NOTICETOCP) \CHECKSUM (INITSUM) COMP.VARTYPE (VAR) PRETTYCOM (PRTTYCOM + PRTTYFLG PRETTYCOMSTAIL PRTTYSPELLFLG) \MAIKO.PUNTBLTCHAR (SOFTCURSORUP SI::*OR-GENTEMP*) +GET-ENVIRONMENT-AND-FILEMAP (MAPENTRY MAP) DSPCLIPPINGREGION (REGION STREAM) \DSPFONT.HDCPYDISPLAY ( +FONT FD) \GETPRESSFONTNAMES (XFACECODE) MINIMUMWINDOWSIZE (EXT) MB.CREATE.NWAYBUTTON (MAXITEMS/LINE) +DOERROR (QUESTIONABLE ARG) PRINTFNS (X PRETTYDEFLG FNADRLST) \BULK.DATA.CLOSE (SI::*OR-GENTEMP* +ABORTFLG) CH.ISMEMBER (SECONDARYPROPERTY) SUBPAIR (FLG OLD) \GETREGIONTRACKWITHBOX (THRUONCE NOERROR) +\VFMSmartBLT (SI::*OR-GENTEMP*) \TEDIT.PARSE.PARALOOKS.LIST (TABSPECC OLDLOOKS 1STLEFT LEFT RIGHT +LEADB LEADA LLEAD QUADD TYPESET SUBTYPESET NEWBEFORESET NEWAFTERSET HEADINGKEEP KEEPSET BASESET +REVISEDSET COLUMNSET SPECXSET SPECYSET STYLESET CHARSTYLESSET USERINFOSET) CL:COMPILE-FILE ( +COMPILER::*FASL-HANDLE* COMPILER::PATH COMPILER::OUTPUT-FILE COMPILER::ERRORS-TO-TERMINAL +COMPILER::ERROR-FILE-STREAM) LOCAL-MACRO-FUNCTION (ENV) \BN.COMPAREN (U V) TEDIT.SKIP.SPECIALCOND (PC +NPC) LOOKUP-ENVIRONMENT-AND-FILEMAP (ROOTNAMEP MAPENTRY) \BN.FROM.FIXP (U) LOCAL-SYMBOL-FUNCTION (ENV) + \BN.TO.FIXP (X) FILECHANGES (FILE TYPE FNS) \UFSDirectoryNameP (DIRECTORY) \VFMSaveBuffer ( +evenIfNotDirty) TRANSLATE.LOCF (INDEXONLY) \BN.INTEGERLENGTH (X) CL:MACROEXPAND-1 (CL::DEF) +CL:MACROEXPAND (CL::FLAG) \UFSOpenFile (CASE.CORRECT.NAME OLDSTREAM STRM) \BN.LOGAND (B1 B2 B) +TTADJUSTWORD (WORD) \FILEMAP-HASHOVERFLOW (ONFILELST) \BN.LOGANDC2 (B1 B2 B) RECFIELDLOOK (VAR +EDITRECFLG) \UFSSetFileInfo (FILENAME) TRYNEXT (PL1##) \TEDIT.UPDATE.SHOWSEL (EXCHFLG L1 LN) +SIZE/GRAPH/WINDOW (WINDOW CENTERFLG TOPJUSTIFYFLG) \10MB.LOADINPUTQ (PACKETS) PRINTDATE (ROOTNAME) +\BN.LOGOR (B1 B2) WALK-FORM (XCL::*WALK-COPY*) \BN.LOGXOR (B1 B2) PRINTDATE1 (CHANGES PREVDATE PREVERS +) FW-UPDATE-OFD-WINDOW (NEW? R W) HARDCOPYSTREAMTYPE (STREAM) \TEDIT.PAPERWIDTH (LANDSCAPE?) \BN.PLUS2 + (U V) \BN.TIMES2 (U V U1) \SPP.CHECK.INPUT.QUEUE (CURRENT) \UFSGetFileInfo (FILENAME) \BN.DIVIDE (A B + V Q L1) OPT.JUMPTHRU (Y) \UFSDeleteFile (NAME) \BN.FLOAT (X) DMCHAT.NEWLINE (EXPLICIT) \UFSRenameFile + (FILE OLDUNIXNAME) FB.DELVERCOMMAND (NVERSIONS) MS-SMASH-PACKAGE (THING) TEDIT.BUILD.PCTB (TEXTOBJ +START END CACHE? PCCOUNT CLEARGET? PC OLDPC DEFAULTLOOKS TEXT) \LFRenameFile (newPtr) \FM.GETREGIONS ( +HIGHLIGHT BOXOFFSET) \UFSCloseFile (UNIXNAME) \BN.2TH (A) \BN.QRS (B D) GETSYNTAX (A) EDITSHADE (SHADE +) PSCFONTFROMCACHE.SPELLFILE (CACHE) SEDIT::REPLACE-ROOT (SEDIT::POINT) SI::FINISH-ADVISING (SI::IN-FN + SI::ALREADY-ADVISED?) \GTREADTABLE1 (FLG) MAKEACCESS1 (SPEC) \TEDIT.CARETLOOKS.VERIFY (CARETFN LOOKS) + \BN.MINUS (U) \GTTERMTABLE (TTBL FLG) EMPRESS (HEADING %#COPIES %#SIDES) \INSPECTW.COMMAND.HANDLER ( +SELITEM) DSPSPACEFACTOR (FACTOR) \TEDIT.PAPERHEIGHT (LANDSCAPE?) \BN.SIGN (U) \DOFORMATTING.HARDCOPY ( +1STLN) \TEXTDSPXPOSITION (WINDOW) EDITGRAPH2 (VAL) MSSETSETTYPE (SET TYPE) \UFSError (DEV) +\SEQUIN.FLUSH.RETRANSMIT (REPUP) PRETTYVAR (VAL) COURIER.READ.BULKDATA (LASTSEGMENT?) \UFS.FULLNAME ( +NAME ATOMP) SEDIT::REPLACE-NODE (SEDIT::SELECT-NODE) \UFS.ADD.HOST.FIELD (NAME) SEDIT:GET-SELECTION ( +SEDIT::NODE SEDIT::START SEDIT::NOT-ALL-SELECTED) TTYINENTRYFN (STATE) PRETTYVAR1 (TAILFLG) +ENABLEWHEELSCROLL (ON EXCLUDEHORIZONTAL) FIX-FORM (CIRCLE-FLAG) \NSFILING.ADDQUOTES (QUOTED +ALREADYQUOTED) MAKEDEFLIST (FLG) PPSPPSTREAM (STREAM) DINFO.SETUP.WINDOW (NO.FREEMENU?) %%SORT-SUBLIST + (KEY) INVERTED/SHADE/FOR/GRAPHER (SHADE) COMPILER::FRAME-ANNOTATE-LAMBDA (COMPILER::FUNCTIONAL-POSITION-P +) COMPILER::META-EVAL-PROGN (COMPILER::NEW-STMTS) CHAT.SETDISPLAYTYPE (FN) \TEDIT.NSCHAR.RUN (NEXTCH) +SEDIT::RELINEARIZE-WHERE-NECESSARY (SEDIT::CHANGED-NODES) MKACCESSFN (FN) \M44ACTONVMEMFILE (WRITEFLG) + \SHOWSEL.HILIGHT (L1 LN LL) \TEXTDSPYPOSITION (WINDOW) \TEDIT.FORMATTABS (PRIORTAB NEXTTAB CLEANINGUP +) SUPERPRINTEQ (Y) \ITEM.WINDOW.SELECTION.HANDLER (SELECTABLEITEMS NOW) \UFS.REMOVE.HOST.FIELD ( +RELATIVEDIRECTORY DIRECTORY DEVICE) MENUTITLEFONT (SCREEN) PRETTYCOM1 (PRTYFLG REMOVECOMMENTS) +COMPAREPRINT1 (DOTFLAG SPACE K) \RESHOWBORDER1 (SOFTCURSORUP SI::*OR-GENTEMP*) LVLPRIN (TAIL) +ADDNAKEDCHAR (NOAUTOFILL) RENUMBER.LINES (LINE) \REMOVE-DECLS (CL::BODY CL::SPECIALS) +DEFAULT.INSPECTW.VALUECOMMANDFN (VALUE) PRINTDEF1 (FORMFLG STARTPOS) \LFGetFileName (fileSpec) +\INITBFS (AFTER) COMPILER::GENCODE-CALL (COMPILER::IL-LAMBDA COMPILER::CLOSED-OVER) COMP.CONST (X) +PRINTARRAY-TO-LIST (DOUBLEFLG FLG) \TELERAIDSERVER (RECEIVER METADEBUGGING) FLENGTH (Y) PRINTPARA ( +LMARG PARENFLAG) PPSPP (DETAILS) READVISE (FNS) \TRANSLATE-CL%:LAMBDA (SVAR MAX SIMPLEP) \BN.IGNN (U) +\TEDIT.GET.INSERT.CHARLOOKS (PIECE) D-ASSEM::DCODE-FROM-DLAMBDA (D-ASSEM::EASY-ENTRY) /MOVD (FLG) +TB.MAP.SELECTED.ITEMS (NULLFN) MAKEACCESS (ACCESS) SUBLIS (FLG Y) MB.THREESTATE.SHOWSELFN (ON) +\FM.CHECKDESCRIPTION (LABEL) CREATE-UNIX-SOCKET-STREAM (CHAN) PRINT3TO10 (DOFILTER PRE.NOTE) +INVERTED/GRAPHNODE/BORDER (BORDER) LVLPRIN0 (CDRLVL0 CARLVL CDRLVL) SHOWDEF (FILE) +CL::RECORD-DOCUMENTATION (CL::PARSED-DOCSTRING) KILL.LINES (FIRSTLINE) SCALEPAGEXUNITS (VALUE) TYPESOF + (FILTER NOTFOUND) SEDIT::BACKSPACE-QUOTE (SEDIT::INDEX) FW-CLOSE-CMD (W MANY? OPEN-STREAMS +STREAM-TO-CLOSE) \VAMRecomputeFreePageCount (free firstFree) SCALEPAGEYUNITS (VALUE) DWIMIFY0 (Y EXPR +DWIMIFY0CHANGE) CLISPNOEVAL (DEFAULT) REMOVEITEM (FLG) BIGNUM.DEFPRINT (ELS) CONTROL (MODE) \BN.TH2D ( +A RESULT) D-ASSEM::DIGEST-FUNCTION (D-ASSEM::EASY-ENTRY) \TEDIT.WINDOW.SETUP (AFTERWINDOW) +\ATWGROUPSIZE (ATWS) \BN.ISUM1 (V) DELETECONTROL (MESSAGE) PORTSTRING (SOCKET) D-ASSEM::INSTALL-LOCAL +(D-ASSEM::VAR) /MAPCONC (MAPE MAPFN2) \BN.ISUM0 (V) SEDIT::COLLECT-UNDO-BLOCK (SEDIT::BLOCK-START) +ADDHASH (OV) INSPECTABLEFIELDNAMES (TOPONLYFLG FIELDNAME) GETCFILE (X) FB.UPDATE.COUNTERS (LAB) +\DOCOMPRESSVMEM (OLDVIW) DMCHAT.CLEAR (SETROLL) LISPXUSE1 (A V EFLG VFLG AFLG) MAKEHARDCOPYSTREAM ( +DISPLAYSTREAM) CHANGEFONT (FONTCLASS) D-ASSEM::INSTALL-VAR (D-ASSEM::VAR) OPT.SCANOPT (P B) PRINTARRAY + (DOUBLEFLG) MB.THREESTATEBUTTON.FN (STATECHANGEFN) RESETGRID.NEW (ORIGX ORIGY DOCLEARFLG) DELETELINE +(NEXTLINE EMPTYLINE?) INSURE.BRUSH (BRUSH NOERRORFLG) SEDIT::PROPAGATE-WIDTH-CHANGE (SEDIT::SUPER) +SHAPEW1 (NOWOPEN?) D-ASSEM::GENERATE-ARG-CHECK (D-ASSEM::MAX-ARGS) PRINTERROR (VALS NEWPRS) FITP ( +TAILFLG) D-ASSEM::INTERN-VAR (D-ASSEM::DVAR) \UFS.HANDLE.RELATIVEDIRECTORY (DIR) SUPERPRINT (MACRO) +SUBHASH (OV) FW-CHANGE-POSITION (BOX) \TEXTDSPFONT (NEWFONT) UTOXCODE (X) SEDIT::COPY-SELECTION-LITATOM + (SEDIT::DESTINATION SEDIT::NOT-ALL-SELECTED SEDIT::START) BUFTAILP (START) SEDIT::CONS-ATOM (SEDIT::ATOM? + SEDIT::CHARS) CHAT.SET.EMULATOR (NEWEMULATOR) \BN.D2TH (U) ECHOCHAR (MODE) \FM.JUSTIFYGROUPS (HJUST +VJUST) BITMAPOBJ.SNAPW (SAVE) GETFILEPKGTYPE (NAME NOERROR) ACCESSDEF4 (TL TEM) MARGINBAR (UNSETL1 +UNSETLN FLOATINGRIGHT EXTENDEDRIGHT) OPT.SETUPOPT (C) \NOTE.3TO10 (A) OPT.POSTOPT (CODE ANY) +\DOFORMATTING (1STLN) GETXIP (EPKT WAIT TIMER) SEDIT::COMPOSE-PSEUDO-SELECTION (SEDIT::START SEDIT::END +) \IDLE.IS.PREVIOUS (OLDPWD) \TEDIT.PARABOUNDS (PIECE) \10MB.INPUT.INTERRUPT (PACKET) IOCBQLENGTH ( +FIRSTIOCB) \TEXTMENU.DOC.CREATE (CH#1) ECHOMODE (FLG) COMP.PROGLST (LST) %%SORT-VECTOR (KEY) TEDIT.GET + (OFILE GETFN MENUSTREAM) PUTMENUPROP (NOWDATA) \PARSE.PORTCONSTANT (VAL NET HOST) ADDTOCOM (NEAR +LISTNAME) /MAPCON (MAPE MAPFN2) \BN.MADD (TT) COMPILER::FRAME-ANNOTATE-BLOCK (COMPILER::REQUESTS) +\TEDIT.APPLY.STYLES (STYLE IN-PARA) RAISE (FLG) PFI.HANDLE.DECLARE (TAIL STARTOFLINE) \BN.TH2B (U) +\LFOpenFile (OLDSTREAM IDATE STREAM) \FM.LAYOUTGRID (BOXOFFSET) PROMPTFOREVALED (WHERE) +COMP.UNBIND.VARS (TOPFLG) ACCESSDEF (CFLG TEM) \TEDIT.BASICFIND (CH# FOUND) \CH.PRINT.BLURB (DOMAIN) +\10MB.OUTPUT.INTERRUPT (NEXTPACKET IOCB) FORMAT-WRITE-FIELD (PADLEFT) \UFS.NEXTFILEFN (SUBGEN FILENAME + NAME ATOMP NAMEONLY) MSCHECKBOUNDFREE (SFLG BLKNAME) IN/SCROLL/BAR? (EXTENT EXTENTUSE) CHOOZ (NDBLS +GENFN GENERATOR SPLST ALTFLG FN TAIL VAL TIEFLG) \IDLE.AUTHENTICATE (UNIX NS GV) PFI.HANDLE.RPAQQ ( +COMSINFO) \INTERPRET-ARGUMENTS (\ARGLIST) TESTRELATION (ITEM2 INVERTED) %%STABLE-SORT-VECTOR (KEY) +TEDIT.DELETELINE (PREV NEXT) XTOUCODE (X) SI::PRINT-TRACED-ARGUMENT (SI::PRIN1-THE-NAME?) +POSTSCRIPT.PUTBITMAPBYTES (DELIMFLG) COMPAREFAIL (OLD) MSCHECKFNINBLOCK (ISCALLEDP) TIMEALL (TIMEWHAT) + \NSRANDOM.FETCH.CACHE (CACHE KEEP) TEDIT.MINIMAL.WINDOW.SETUP (AFTERWINDOW WINDOW LINES) FINDFN (POS +FLG) GRAPHDELETENODE (DELFN) PARSERELATION1 (TAIL) \LOOKUPPORT (NAME IPUP) COMP.UNBOX (BOXER) WHATIS ( +USERINPUT ONLY) \CHECKEOLC.CRLF (PEEKBINFLG) /DSUBST (OLD) \POLYSHADE.YSCAN.IP (currlist fulllist) +PROPLISTP (LST LSTPTR) /ATTACH (LST) \10MBWATCHER (PACKET) \BLTSHADE.GENERICPRINTER (CLIPPINGREGION) +\SUBREAD (TOPLEVELP EOF-SUPPRESS ESCFLG CASEBASE EOF-POSSIBILITY INVALIDFLG EXTRASEGMENTS PACKAGE +ESCAPEFLG NCOLONS AT-EOF LST PRESERVE-WHITESPACE DOTLOC CHAR ELT) RESETREADTABLE (RDEFS FDEFS) /RPLACD + (LST Y) \TEDIT.FIND.FIRST.LINE (WINDOW) TREEGRAPHNODE (PARENT) /LISTPUT (X) HARDCOPYGRAPH (FILE +LANDSCAPE-FLAG) /RPLACA (LST Y) COMP.UBFLOAT2 (A) \LOADNSHOSTNUMBER (OLDBOX) \TOP-LEVEL-READ ( +EOF-SUPPRESS CHAR *CIRCLE-READ-LIST*) LISPXTAB (Z Y X NODOFLG) \LFGenerateFiles (A0493 STR) +\FM.LAYOUTCOLUMN (BOXOFFSET) SEDIT::PARSE (SEDIT::SUPER-NODE) COMP.BIND.VARS (VAL) \CREATEW1 ( +NOOPENFLG) FIND-EDIT-LOCATION (EXPRS) \ARBOUT (ITEM) EDITBMRESHAPEFN (TEMPBM) MOVETOP (Y) +SHOWSTACKBLOCKS (WAITFLG) SUBFIELDCREATE (SUBDECL DFLT SUBTRAN HL) SEDIT::EDIT-SELECTION (CL:STRUCTURE +) PURGEHISTORY (TYPE) READTABLEPROP (NEWVALUEP OLDNAME NEWVALUE) \10MB.PRINT.ENCAPSULATION (CALLER) +GENERATOR (COMVAR##) POSTSCRIPT.SHOWACCUM (KERN) SKIPSEPRCODES (PREVC) SEDIT::BACKSPACE-UNKNOWN ( +SEDIT::INDEX) MSCHECKBLOCKS (FILES BLOCKS) \FM.LAYOUTROW (BOXOFFSET) XCL::WALK-DECLARATIONS ( +XCL::DOC-STRING-P XCL::DECLARATIONS XCL::FORM XCL::MACROP) COMP.CHECK.VAR (BIND) MOUSESTATE-NAME ( +MOUSEONLYFLG) INSPECT/TOP/LEVEL/LIST (X) \TEDIT.INSERTLINE (PREVLINE) FORMAT-PRINT-NAMED-CHARACTER ( +NAME) SKREAD (REREADSTRING \RBFLG) TEDITMENU.STREAM (MENUW) \NSRANDOM.READ.SEGMENT (EXTRABUFFERS ERROR + ATTR) COMPILER::FRAME-ANNOTATE (COMPILER::NODE) I.S.OPR (FORM OTHERS EVALFLG NEWFLG) +\UFSParse-Directory (DIRECTORY) MSCHECKBLOCK (BLKNAME BLKAPPLYFNS ERRORS) CL:MAKE-STRING-INPUT-STREAM +(CL::END) SEDIT::BACKSPACE-LITATOM (SEDIT::INDEX) CHECK-KEYWORDS (BADKEYWORD) SEDIT::NEXT-NODE ( +SEDIT::INDEX SEDIT::NODE) MAKEHASHLINKS (TRANS) CL:READ (RECURSIVE-P EOF-ERROR-P) \TEXTBACKFILEPTR (PC +) RESETUNDO (X STOPFLG) /LCONC (X PTR) CL:READ-PRESERVING-WHITESPACE (RECURSIVEP EOF-ERRORP) CREATEW1 +(REGION TITLE NOOPENFLG) SETCOLOR.IP (OPERATION) CL:READ-DELIMITED-LIST (RECURSIVE-P ENDCODE) LISPX ( +LISPXXMACROS LISPXXUSERFN LISPXX LISPXLISTFLG LISPXLINE DONTSAVEFLG LISPY LISPXVALUES LISPXHIST LISPZ +LISPXTEM LISPXFLG) SCALEDBITBLT (CLIPPINGREGION) CL:PARSE-INTEGER (START END FATP JUNK-ALLOWED SIGN +STARTINT MAXALPHACODE) COMPILER::META-EVAL-CALL (COMPILER::EVAL-WHEN-LOAD?) \MKINTEGER (FATP NEG) +PRIN2-LONG-STRING (P2FLG USE-SEMI-COLONS SEMISTRING SEMICLOSE LASTSPACE COMMENTP ESCAPESEPRS C +SINGLELEFT) \UFS.PARSE.BODY (TYPE VERSION) LISPX/ (FN) SEDIT::LINEARIZE-ROOT (SEDIT::INDEX) +COMP.TOPLEVEL.COMPILE (ARGS) \DRAWPOLYGON.GENERIC (POINTS CLOSED) DUMPGRAPH (BORDERS SHADES) +EDIT-IN-FUNCTION (LOC) LISPXUNREAD (EVENT) FINDATOM (BLIP) FORMAT-PRIN1 (PARMS ARG COLON) EDIT-IN-FNS +(LOC) RIGHTW.REPAINTFN (WINDOWREGION STARTROWPROPS) EDITBMREPAINTFN (ZEROBM) SEDIT::BACKSPACE-GAP ( +SEDIT::INDEX) PFI.ESTIMATE.SIZE (TEMPLATE) DECLARED-SPECIAL (DECLS) \FM.FORMATEXPLICIT (LOCAL) +FILEPKGCOM (TEM) CHDIR (PATH) GETFIELDFORCREATE (USETYPE COMPOSEWITHUSING NOPOSTPROCESSING) ADVISEWDS +(OLDREG MOVEONLYFLG) PURGEHISTORY1 (FLG) \FLUSHPAGE (FROMFLUSHVM) \RSTRING2 (SKIPPING ANSLIST FATSEEN +LASTC) PRINSHUT (PAREN) \TRANSFERPAGE (WRITE? NEWPAGE?) \POLYSHADE.XSCAN.IP (currlist fulllist) +LOWERCASE (FLG) ADDCHAR (ENDP) READOCT (PROMPT) READ-EXTENDED-TOKEN (ESCAPE-ALLOWED-P ESCAPING +CASEBASE ANSLIST FATSEEN ESCAPE-APPEARED) \SETMACROSYNTAX (CONTEXT WAKEUP ESCAPE A) MOUSESTATE-EXPR ( +MOUSEONLYFLG) \SEQUIN.FLUSH.CONNECTION (PROC) \NSRANDOM.PREPARE.CACHE (CACHE FREETAIL) +\READTABLEP.DEFPRINT (NAME) IFCDECLARE (WANTDECLARE) SI::NAMED-FUNCTION-WRAPPER-INFO (SI::NAME) +SETFONT (FONT) COMP.PROGN (FLG) FW-CHANGE-ANCHOR (NEWANCHOR) \NSRANDOM.CHECK.CACHE (CACHE CHECKORDER +EMPTY) MBUTTON.SET.FIELD (PCNO FIELD.SEL) DEFPRINT (F FN) SI::COMPILED-FUNCTION-ARGLIST ( +SI::DEBUGGING-INFO SI::INTERLISP?) \TEXTPEEKBIN (PC NOERRORFLG SUBSTREAM) ERRORMESS1 (MESS1 MESS2) +\DRAWELLIPSE.GENERIC (ORIENTATION) DOUSERFNS2 (FNLST) READ/NODE (NOW NEAR) COS (RADIANSFLG) +\CLIPANDDRAWLINE1 (YMOVEUP SOFTCURSORUP SI::*OR-GENTEMP*) TWODINSPECT.ARRANGEWINDOWS (TOTALHEIGHT +TOTALWIDTH TOTALLEFT TOTALBOTTOM) CLEAR.LINE? (FLG) SIN (RADIANSFLG) XCL::WALK-BINDINGS-1 (XCL::BINDINGS + XCL::SEQUENTIALP) FB.SUBITEMP (SUB) INSPECT/AS/FUNCTION (EDITOR WINDOW PROC) SMASHPAT1 (EFF) +STRING-EQUAL (START1 END1 START2 END2) RETFROM (FLG) \SELECTREALPAGE (LOCK? SI::*OR-GENTEMP* NEWFP) +GRAPHREGION (NODELST) FORMAT-PRINC (PARMS ARG COLON) SI::GET-STORED-ARGLIST (SI::ARGNAMES) HISTORYSAVE + (INPUT1 INPUT2) POSITION (FILE N) SI::COMPILED-FUNCTION-INTERLISP? (SI::DEBUGGING-INFO) COMP.BOX ( +BOXER) \LFParseFileName (DIRECTORY ENDVOLNAME STR) \MAIKO.DISPLAYLINE (HARDCOPYMODE TERMSA) +SI::FUNCTION-WRAPPER-INFO (SI::NAME) \RECODECCODE (CSMAP) DOUSERFNS (CHECKFORDON'TFLG FNLST) +TEDIT.WINDOW.SETUP (PROP) \NSFILING.ADD.TO.CACHE (ID OLDHANDLE) MAKE-READER-ENVIRONMENT (PACKAGE +READTABLE BASE) CH.RETRIEVE.MEMBERS (PROPERTY) XCL::WALK-BINDINGS-2 (XCL::BINDINGS) CANONICAL.HOSTNAME + (DEV) SEDIT::ATOM-POINT-TYPE (SEDIT::ESCAPED) MOVETOUPPERLEFT (REGION) \INTERNAL/GETPASSWORD (HOST +OSTYPE ALWAYSASK DIRECTORY) /DELETECONTROL (MESSAGE) ADDTO (FLG) BACKSKREAD (NOTIFQUOTED ESCAPED X) +FILL.INITTBLE (OPERATION TEXTURE SI::*OR-GENTEMP*) SEDIT::ASSIGN-FORMAT-LITATOM (SEDIT::BROKEN?) +CHAT.TTYENTRYFN (WINDOW) \NSFILING.LOOKUP.CACHE (FILENAME) ETHERPORT (ERRORFLG MULTFLG) LISPXFIND ( +HISTORY BACKUP LINE VAL) CL:NOTEVERY (MORE-SEQUENCES) COMP.TRANSFORM (MACROPROP EXPN-FN) +MAKECREATELST1 (TEMPLATE NEEDACELL CARFLG USING) SETPASSWORD (HOST DIRECTORY USER) OPENNSOCKET ( +ID#EXPLICIT? CLASHP) \TEDIT.CHARDELETE (INSPC) FW-MOVE-OFD-WINDOWS (WHAT) ONEDINSPECT.ARRANGEWINDOWS ( +TOTALHEIGHT TOTALWIDTH TOTALLEFT TOTALBOTTOM) FONTCREATE (FAMILY SIZE FACE ROTATION DEVICE NOERRORFLG) + \TEDIT.PIECE-CHNO (PCNODE) \TEDIT.OBJECT.SHOWSEL (FIRSTLINE IMAGEFN ON) BESTPUPADDRESS (ERRORSTREAM +BESTPORT NOTLOOKEDUP) \PFEnsureInitialized (FORCEINITIALIZATION) \INTERNAL/SETPASSWORD (DIRECTORY INFO + NEWNAME/PASS ALWAYSASK HOST NSINFO DEFAULTNAME DISKNAME PASSWORDADDR INFOCHANGED NEWNAME) UNDOLISPX2 +(FORGETFLG DWIMCHANGES) INSPECTW.REPAINTFN (REGION SELITEMS) SHOWWTITLE (CENTERFLG) \POLYSHADE.DISPLAY + (currlist fulllist count) \SUBREADCONCAT (EXTRASEGMENTS) EDITBMSCROLLFN (GRIDSPEC) TTBIN (NOMETA) +\INVALID.SYMBOL (PACKAGE) MINIMUMMAINWINDOWSIZE (EXT) TTWAITFORINPUT (MSECS RETKEYFLG TIMER) +\ALLOCWIDTHTOGROUPEDWINDOW (ATWS MAXSIZE) \GETBASESTRING (FATP) \TEXTGETFILEPTR (PC) SHOWWFRAME (TITLE +) TTYIN (SPLST \READING RDTBL PROMPT \LISPXREADING \PROMPTFORWORD \REPEAT TYPEAHEAD VALUE \CURSORCOL) +\TEDIT.HARDCOPY.FORMATLINE (PC 1STLN DOINGHEADING? KERN GATHERBLANK NEWASCENT TABPENDING PREVDHYPH +PREVHYPH T1SPACE FORCEEND) TTSKREAD (PARENCOUNT) \FM.FORMAT (BOXOFFSET) GRAPHERPROP (NEWVALUE) +MSPRGLAMBDA (ARGS KEYS? KEYLIST OLDTEMP) TTYIN.READ (DONTREAD BUTLASTC) \LOGIN.READ (HOST CONNECTFLG +MSG) SEDIT::COPY-SELECTION-DEFAULT (SEDIT::DESTINATION SEDIT::START SEDIT::BLANK-BEFORE) TTYIN.SETUP ( +WINDOW) OPT.RESOLVEJUMPS (NEW) \ADJUST.USERNAME (NAME) PRINTADDRS (SI::*OR-GENTEMP*) HISTORYFIND ( +LISPXFINDFLG _FLG =FLG L ALLFLG) COMP.ATTEMPT.COMPILE (EMFLAG FLG) TTYIN.CLEANUP (WINDOW) +\BUILD.EXPEDITED.XIP (ARGLIST) PRINTFILETYPE (TYPE DONTOPEN) TTYIN.FINISH (DRIBFL RESULT WORD X) +\IMAGEIOINIT (POS N DY) UNDOLISPX (LINE UNDONEFLG DWIMCHANGES) \ITEM.WINDOW.COPY.HANDLER ( +SELECTABLEITEMS CURRENTITEM SI::*OR-GENTEMP*) DCODERD (NAMETABLE LOCALARGS) \SEQUIN.CONTROL (PUP) +\MEDW.BLTCHAR (SOFTCURSORUP SI::*OR-GENTEMP*) UNIX.SENDSCREENPARAMS (CONN ASK) TEDIT.FORMATTEDFILEP ( +PC PREVPC TENTATIVE) \TEDIT-OPEN-FONT-FILE (EXISTING-FONTFILE-IF-ANY) \DSPXPOSITION.PSC (XPOSITION) +\MEDW.XOFFSET (DISPLAYSTREAM XOFFSET) XCL::WALK-ARGLIST (XCL:ARGLIST XCL::DESTRUCTURINGP) +\TEDIT.COPYTEXTSTREAM.PIECEMAPFN (NEWOBJ OBJ) WTFIX1 (TYPE-IN? CHARLST X NOSPELLFLG0 CLISPCHANGES +CLISPERTYPE) \MEDW.YOFFSET (DISPLAYSTREAM YOFFSET) \ORIG-READ.SYMBOL (PACKAGE EXTERNALP NONNUMERICP) +DCODESKIP (FLG) TTYIN1RESTART (MORELINES) \TEDIT.FIXCHANGEDLINE (NEXTCARETCH#) \NOIMAGE.DSPFONT (FONTN +) MAXMENUITEMWIDTH (NOSUBITEMMARK SUBITEMS) PRINTHISTORY1 (INPUT Y) PRIN4 (OBEY-PRINT-LEVEL) \LETtran +(SEQUENTIALP) \ORIG-INVALID.SYMBOL (PACKAGE) \TFBRAVO.READ.PARALOOKS (LMFLAG FLLMFLAG) +\TEDIT.FIND.OVERLAPPING.LINE (LINES) MAXIMUMMAINWINDOWSIZE (EXT) \ALLOCHEIGHTTOGROUPEDWINDOW (ATWS +MAXSIZE) \VFMInsert (splitFlag) TTYIN1 (CHAR MATCHED WASEDITCHAR DRIBFL) INFILECOMSVAL (FLG) +SETINITIALS (POS) \NSFILING.CONNECT (NEW.HANDLE NSPATHNAME) GRAPHNODE/BORDER/WIDTH (BORDER) +\LINEWITHBRUSH (USERFN BBT SI::*OR-GENTEMP* DASHON DASHTAIL SOFTCURSORUP) PROMPTFORWORD (CANDIDATE.STR + DONTECHOTYPEIN.FLG TERMINCHARS.LST CONVERTIBLEP KEYBD.CHANNEL URGENCY.OPTION PROMPT.STR TTYD +CHARBUFFER SPACEP RUBBING? GENERATE?LIST.FN ?HELPMSGTRIEDP BEGUNTYPING? TIMELIMITEXPIRED?) \TEXTEOFP ( +PC) BKBUFS (S L ID) CLBUFS (NOCLEARFLG NOTYPEFLG SBUF LBUF) PRINTHISTORY (LINE SKIPFN NOVALUES) +LISPXSUBST (CHARFLG) \ALLOCATE.ETHERPACKET (PACKET) MAPDL (MAPDLPOS) \CCLOSURE.DEFPRINT (NAME) +\VFMDelete (firstFlag lastFlag) POSTSCRIPT.BITMAPSCALE (PPL) SUPERPRINT/COMMENT (SEMIP RIGHTFLG +HALFLINE) UNADVISE (FNS) \TFBRAVO.READ.CHARLOOKS (PROPERTY VALFLAG) \DSPYPOSITION.PSC (YPOSITION) +ETHERHOSTNUMBER (NAME) PFI.DEFAULT.HANDLER (TESTFN TEMPLATE ITEMNAME) PUTSEQUIN (DONTWAIT) STRINGWIDTH + (FLG FONT) READHASHMACRO (INDEX) FORMAT-PLURAL (ATSIGN) SEDIT::STRING-OFFSET (SEDIT::STRING? SEDIT::START +) CHARCODE.UNDECODE (NAME) SEDIT::GET-SELECTED-STRUCTURE (SEDIT::NODE) SEARCHPDL (SRCHPOS) YMAPLIST ( +PATH1) \SW2BM (PR QR) RAIDCOMMAND (T5) CHAT (HOST FROMMENU HOSTS WINDOW SUCCESS) CL:RETURN-FROM ( +CL::FRAME CL::RETFROM-TAG) COMPSETREAD (MESS) ESTIMATE-DIMENSIONALITY (RANK) READNUMBERINBASE ( +NUMERATOR VAL SIGN) \INSPECT.COMPUTE.TITLE (TITLE) MSPRGTEMPLATE1 (X ALLOW-OTHER-KEYS KEYSUSED?) +LISPXUSEC (LISPY LISPZ LINE) CLOSEHASHFILE (REOPEN) MBUTTON.SET.NEXT.FIELD (NEWVALUE) FILL-VECTOR (END +) UNIX.SETDISPLAYTYPE (NAME ASK OLDTYPE WINDOW) \DONEWEPHEMERALPAGE (NOERROR) INFILECOM (X CFN) +FORMAT-NEWLINE (COLON ATSIGN) SEARCH-FOR-EVENT-NUMBER (EVENTS) MAXIMUMWINDOWSIZE (EXT) GRID (BORDER +GRIDBM) XCL::WALK-TEMPLATE-HANDLE-REPEAT-1 (XCL::FORM XCL::REPEAT-TEMPLATE) FB.SHAPECOMMAND ( +EXCESSHEIGHT) PURGENSFONTS (TYPES) FORMAT-EAT-WHITESPACE (NEXT-NON-WHITE) TERM.SET.TAB (TERM.TAB.STOPS +) CALLSCCODE (RESULT) RETVALUES (FLG) COPIEDFILEMATCH (FRPAT CHARS) FB.DEPTHCOMMAND (NEWDEPTH) +BREAK.NSFILING.CONNECTION (DEV) CSUBSTLST (X) \SHOWMENULABEL (CENTER?) INSPECT/ATOM (ASPECTS) +LISPXSTOREVALUE (EVENT) MAPHASHFILE (DOUBLE BOTH) DEFAULT.BACKGROUND.COPYFN (FORM) TTPROMPTCHAR ( +PROMPT) \APPLYINSPECTMACRO (ARGS) \DSPFONT.PSC (FONT) EXCHANGEPUPS (IDFILTER) MSPRGRECORD (Z OF?) +RECORDWORD (TL NEWORD) DODIR (EXTRACOMS) DWIM (X) \SEQUIN.PUT (ISDATA) \PROMPTFORWORDBIN ( +URGENCY.OPTION BROADURGENCY? INSTREAM DISPLAYECHOSTREAM TIMER READABLE) CREATE-SHELL-STREAM (CHAN) +FM.CHANGELABEL (UPDATEFLG) \DSPLEFTMARGIN.PSC (XPOSITION) \DSPMOVELR (X Y WIDTH RIGHTWARDSFLG ERASEFLG + DEFAULTPOS?) DELETEMENU (CLOSEFLG) TEDIT.FORMATFOLIO (PRETEXT POSTTEXT NOFIRSTPAGE FORCENEXTPAGE YBOT +) COPIEDFILENAME (PRESERVEVERSION) UPDATE/MENU/IMAGE (SCREEN ANYSUBITEMS? TITLE MENUITEMS) +OPENHASHFILE (ITEMLENGTH %#ENTRIES HASHFILE) INSPECT/HARRAYP (PROPS) SEDIT::DEFAULT-PACKAGE (SEDIT::NAME +) \NSFILING.DESERIALIZE (PARSE) \TEDIT.SELECT.CHARACTER (PREVCH EXTENDING SELRES) XCL::SET-CONSTANTP ( +XCL::FLAG) TEDIT.FORMATTEXTBOX (KEPT-ONE-LINE FORCENEXTPAGE FIRSTLINE COLUMN-YBASE YBOT SPECIALYPOS +PRIOR-COLUMN-YBOT) CHARCODE.DECODE (C NOERROR POS) TTYIN.PPTOFILE (PRINTFN) GRAPHOBJ.CHECKALIGN ( +ALIGNSPEC) STRPOSL (START BACKWARDSFLG NEG STRFAT) SET-SYMBOL (ENVIRONMENT) \PFRemoveRootDirEntry ( +nuke) COMPUTE-MACRO-ARGS (ARGUMENT-LIST SUPPLIED-P-VARIABLE FOUND-VALUE) SENDPUP (PUPSOC) TRACKCURSOR +(DOWNFLG) DEFAULTFONT (FONT NOERRORFLG) EXPANDMACRO (ALLFLG QUIETFLG) CHARWIDTHY (WY) +\DRAWPOLYGON.DISPLAY (CLOSED) TEDIT.FORMATHEADING (FORCENEXTPAGE YBOT) +SEDIT::PARENTHESIZE-CURRENT-SELECTION (SEDIT::NODE SEDIT::START SEDIT::POINT-AFTER?) +SUPERPRINT/COMMENT2 (TAIL) \STRINGWIDTH.GENERIC (RDTBL) CSELECT (CLAUSES) PRINT-EVENT (INPUT Y RNT +NOVALUES) SUPERPRINT/COMMENT1 (EDITDATEP) \DSPCLIPPINGREGION.DISPLAY (REGION) EXPANDOPENLAMBDA (VALS +SUBSTPAIRS ARGS) \DSPRIGHTMARGIN.PSC (XPOSITION) REBINDP (EXP) \CLIPANDDRAWLINE (SOFTCURSORUP +SI::*OR-GENTEMP*) HASHFILEPROP (VALUE) COMP.GETBASE (STFLG) PopUpWindowAndGetAtom (CANDIDATE RESPONSE) + \CH.FIND.ORG.SERVER (DONTPROBEFLG NOERRORFLG) \DSPOPERATION.DISPLAY (OPERATION) LISPXUSE0 (VARS) +MSBINDVAR (VAR) \DEVICESYMBOL (STRM X) \IRM.WILD.MATCH (WILDLIST LIST) PRINTCOMSTRAN (FROMDWIM +FILEFORM TAIL RESETOUT) PREVLINE (X) \PFFreeDiskPages (recompute) \UNCOPY (CARLVL CDRLVL) +\BACKCOLOR.DISPLAY (TEXTURE) \BLTSHADE.DISPLAY (SI::*OR-GENTEMP* CLIPPINGREGION WIDTH HEIGHT TEXTURE +SOFTCURSORUP) UNIX-WRITE (LENGTH-WRITTEN) PRINTCODE (FN.IS.CODEBASE LVFLG LEVEL PC FIRSTBYTE TEMP +SI::*OR-GENTEMP* LEVADJ) \NSFILING.DESERIALIZE1 (CLOSEFN) \DSPLINEFEED.PSC (LINELEADING) +\SCALEDBITBLT.DISPLAY (SCALE WIDTH HEIGHT) COMPILER::CLOSURE-ANNOTATE-TAGBODY (COMPILER::IN-LOOP-P) +TEDIT.FORMATPAGE (PAGE# END-OF-PAGE-FN) EDITBMBUTTONFN (COORDWIN) \BITBLT.DISPLAY (WIDTH HEIGHT +SOFTCURSORUP SOURCE SI::*OR-GENTEMP* CLIPPINGREGION TEXTURE) GETPUP (PUP WAIT TIMER) \SPLITTREE ( +UPWARD) TEDIT.CURSORMOVEDFN (LINE) TYPEP (CL::FN) FONTUNPARSE (FACE) \SEQUIN.PROCESS (SOC TIMEOUT) +\DRAWELLIPSE.DISPLAY (ORIENTATION DASHING USERFN BBT SI::*OR-GENTEMP* SOFTCURSORUP) \DSPRESET.DISPLAY +(X) SEQUENTIAL.PRETTYPRINT (TAIL) \DRAWLINE.DISPLAY (SI::*OR-GENTEMP* DASHING COLOR WIDTH) +SEDIT::CHECK-SELECTION (SEDIT::NODE) \TEDIT.APPLY.PAGEFORMATTING (PAGENOS PX HEADINGX HEADINGINVALID +STARTINGPAGE# LANDSCAPE?) \CH.LOCATE.SERVERS (DOMAIN NOROUTE) FONTCLASSCOMPONENT (FONT) +\FILLCIRCLE.DISPLAY (TEXTURE SI::*OR-GENTEMP* SOFTCURSORUP) INSPECTW.REDISPLAY (PROPS PROPPRINTFN +PROPNAME SELITEMS) MAKECREATE1 (CKVALFLG USINGTYPE TEM NEEDACELL SMASHFIELDS) FILL.XPER (SOFTCURSORUP +SI::*OR-GENTEMP*) FIND-STACK-FRAME (FRAME-SPEC) CASE.PRETTYPRINT (TAIL) \DSPYPOSITION.DISPLAY ( +YPOSITION) NSPRINT (INSTREAM PRINTRESULTS) FIND.LINE.BREAK (USELAST) \DSPXPOSITION.DISPLAY (XPOSITION) + \TEDIT.FILL.IN.CHARLOOKS.MENU (PROP OFFSET) ENDREAD? (ESCAPED) MAKEINITLAST (SI::*OR-GENTEMP*) +COPIEDFILEPATTERN (FRPAT CHARS TOPAT) COMP.LOOKUPVAR (FORVALUE) \UTF16.BACKCHARFN (BYTECOUNTVAR) +\DSPRIGHTMARGIN.DISPLAY (XPOSITION) \XCCSINCCODE (BYTECOUNTVAR) COMPILE! (PRINTLAP NOREDEFINE NOSAVE) +\TEDIT.CONVERT.FOREIGN.FORMAT (TEXTOBJ) UTF16BE.PEEKCCODEFN (BYTE1 BYTE2 RAW X NOERROR) +SETFONTDESCRIPTOR (FONT) PRINT-HISTORY (EVENT-SPECS) SUPERPRINT0 (BRFLG NEWBR) EDITADDNODE ( +NODELABELFN) \DSPFONT.DISPLAY (FONT) UNIX-KILL (CONN) SPP.CLEARATTENTION (NOERRORFLG) HPRINT ( +UNCIRCULAR) \FONTSYMBOL (ElseReturnXFlg) \DSPLEFTMARGIN.DISPLAY (XPOSITION) DUMPINITPAGES (VERSIONS) +MSPRGE (EXPR CLISP TEM) FIND-LEXICAL-ENVIRONMENT (POS) PRINTPROG (TAIL) \FONTFACE (FACE NOERRORFLG) +ADDFILE0 (LOADTYPE FLG DAT) SUBPRINT (TAIL FORMFLG0 END FORMFLG CLISPWORD DOCRFLG) CLISPLOOKUP1 (LST) +DODIRCOMMANDS (COMTAIL TYPE) \NSFILING.AFTER.LOGIN (HOST) \DSPLINEFEED.DISPLAY (DELTAY) SUBPRINT1 (X) +\DRAWCIRCLE.DISPLAY (DASHING USERFN BBT SI::*OR-GENTEMP* SOFTCURSORUP) DIRPRINTNAME (DIFFERENT +DIRECTORYEND FLG) \FONT.COMPARESYMBOL (INPUTFIRSTC A0496) \INVALID.INTEGER (FATP) DSFIT1 (M) +GETGRIDBOXREGION (OPPT) LISPXUSE (LINE LST ARGS EXPR USE-ARGS) SEDIT::DELETE-NODES (SEDIT::START) +INSPECT/DATATYPE (TYPE DEC SYSREC) /PUT-1 (X0) SETUPPUP (REQUEUE) LISPXPRINTDEF (NODOFLG) +FIND-HISTORY-EVENTS (AND-SPEC *EVENTS* ALL-P) DBG::COLLECT-ACTIVE-ESCAPES (DBG::ALL) MOVE.TO.LINE ( +BUFTAIL) UTF16BE.INCCODEFN (BYTECOUNTVAR) \IDLE.EXIT? (NAME TIMEOUT WATCHER PWD AUTHTYPE) CACHEMACRO ( +ENV) MSADDTYPE (oldWordDef) XCL::PUT-IMPLICIT-KEY-HASH (XCL::VALUE XCL::DELETED-SLOT-INDEX XCL::NEW-VALUE +) HISTORY-NTH (LST) \DSPBACKCOLOR.DISPLAY (COLOR COLORCELL) TEDIT.BUILD.PCTB0 (TEXTOBJ OLDPC) +\DSPCOLOR.DISPLAY (COLOR COLORCELL) \NSGC.COLLECT.DIRECTORIES (SESSION NOCHILDREN) TEDIT.SCAN.LINE ( +WORDSELFLG L) MISSPELLED? (XWORD FN) TEDIT.PROMPTFLASH (TEXTOBJ MAINTEXTOBJ) \PRINDATUM.TO.STRING ( +THERE-ARE-CIRCLES *PRINT-CIRCLE-HASHTABLE*) BROKENDEF (BEFORE AFTER) LISPXPRIN2 (Z Y X NODOFLG) +UTF16BE.OUTCHARFN (RAW X) \INSERTTREE (NEW-PREVLEN NEW-OLDLEN) UNDOLISPX1 (FLG TEM DWIMCHANGES) +FB.YES-OR-NO-P (ANSWER) LISPXSPACES (Y X NODOFLG) /ADDPROP (ATM X X0 FLG) TEDIT.FORMAT.HARDCOPY ( +BEFOREFN AFTERFN FILE WASOPEN) SAVEPUT (X X0 OLDFLG) PRIN1 (OBEY-PRINT-LEVEL) FM.WHICHITEM (POSorX) +FONTSET (NAME BASICCLASSES) SPACES (\THISFILELINELENGTH) /SETATOMVAL (ATM VAL) PRINTNUM (NUMBER +FLOATFLAG RAD WIDTH) PRINTOPCODES (SINGLE) MAPFILES (ENUMERATE-FIRST) BRHL/LAYOUT (DS) +\DO.PROGV.SETUP.FRAME.AND.EXECUTE (VALUES) MAKEWITHINREGION (LIMITREGION) \TEDIT.UPDATETREE (UPWARD) +ALLCALLS (LAMFLG INTERNALFLG) \TEDIT.PARSE.CHARLOOKS.MENU (BUTTON SIZE) COMPILE (FLG) RPLNODE2 (Y) +\COURIER.TRACE (ARGUMENTS FIRSTTIME) CL:LOAD (IF-DOES-NOT-EXIST *LOAD-VERBOSE*) TOPATTACHEDWINDOWS ( +RECURSIVE) OUTPUT (FILE) MSADDMODIFIER (oldWordDef) SHOW.IP (MOVING?) TEDIT.BUILD.PCTB2 (TEXTOBJ OLDPC + PC) \TEDIT.ADJUST.LINES (FIRSTLINE LL OFLOW PREVLINE) VARSBOUNDINFORM (INVAR) TTYINPROMPTFORWORD ( +DONTECHOTYPEIN.FLG KEYBD.CHANNEL TERMINCHARS.LST ECHO.CHANNEL PROMPT.STR) SEDIT::START-COMMENT ( +SEDIT::POINT-NODE) GET-NEXT-HISTORY-EVENT (FIRST-ONLY HISTORY) /PUTPROP (ATM X X0) SEDIT::CREATE-NODE +(SEDIT::SUPER-NODE) RPLSTRING (RFAT) \CORE.DELETEFILE (EVENIFOPEN INFOBLOCK) \CORE.GETINFOBLOCK (VERS +CREATEFLG) EDITAPPLYTOLINK (NODELABELFN) CHAT.STARTUP (FROMMENU OPENFN PROTOCOL TEM WINDOW) +\CORE.DIRECTORYNAMEP (DIRNAME DIR) FM.EDITITEM (CLEARFLG) MAPFILES1 (INCLUDE-DIRECTORIES) BKSYSBUF ( +FLG RDTBL) XCL:UNBREAK-FUNCTION (XCL::IN-FN XCL::ORIGINAL XCL::ENTRY) \CORE.FINDPAGE (CACHE) \CHTOPC ( +TELL-PC-START?) NEGATE (X) MOVECHARBITMAP (CLIP) FB.SORTCOMMAND (REVERSED BYNAME HADNOSUBDIRS VALUE +DATETYPE NAMESTART SORT#) \MAPPNAME (FLG) \CORE.GENERATEFILES (DESIREDVERSION) UTF8.PEEKCCODEFN (BYTE4 + BYTE3 BYTE2) PROCESS.EVALV (ME) DBG::ESCAPE-FROM-DEBUGGER (DBG::SHADOW? DBG::ESCAPES) TRAPMAKE ( +UNFINISHED) FONTCOPY (NOERROR ERROR) FORK-SHELL (COMMAND) CURRENT.WORD (NEW) \FILLCIRCLE.PSC (TEXTURE +TEXTUREBM) TEDIT.BUILD.PCTB1 (TEXTOBJ OLDPC PC) FONTSAVAILABLE (FAMILY ROTATION CHECKFILESTOO?) +FONTMAPARRAY (FONTCLASSES) SEDIT::STRINGWIDTH (SEDIT::PRIN-2?) \CORE.NEXTFILEFN (NAMEONLY) +LISPDIRECTORYP (vol) NAMEFIELD (SUFFIXFLG DIRFLG) \CORE.GETFILEINFO.FROM.INFOBLOCK (INFOBLOCK) +GC-FILING-DIRECTORY (DIRNAME CANDIDATES CONFIRM?) \SMASHABLESTRING (FATP) \CORE.GETFILEHANDLE ( +INFOBLOCK) TEDIT.SELECT.LINE.SCANNER (LINE WORDSELFLG) SPP.OPENP (STREAM) \RPLCHARCODE (FATPA0360) +SHAPEW (NEWREGION) \BLTSHADE.PSC (CLIPPINGREGION RGN TEXTURE TEXTUREBM) NTHCHAR (CODE) COMPARE ( +SOURCE1 SOURCE2) GO.TO.RELATIVE (COL ROW) \TFBRAVO.READ.USER.CM (LINE) GNC (CODE) +DBG::INVOKE-ESCAPE-FROM-MENU (DBG::MENU) RECEVAL (FORM) CL::%%DO-TRANSLATE (CL::SUBSEQUENT-VALUES +CL::SEQUENTIALP) \PFFindRootDirEntry (entryNum) LISPX/1 (X TAILFLG TEM3) \PRINTFPTOVP (TYPEFLG +NEXTTYPE FIRSTFP VPRAWFLG LOCKEDP TYPE) STREQUAL (FATPX FATPY) TTDOTABS (TABS) CLISPIFY (EDITCHAIN +CLISPIFYFN FORM) FB.PROMPTFORINPUT (DONTCLEAR RESULT ABORTFLG) DWIMIFY (L QUIETFLG) TEDIT (TEXT WINDOW + TEDITCREATEDWINDOW DONTSPAWN) MSADDANALYZE (oldDef FILETYPE oldEntry) L-CASE (FLG FATP CHANGEFLG) +GATHEREXPORTS (ENV) SI::ARGUMENT-ERROR (SI::MAX-ARGS) \MAKEWRITABLESTRING (NEWFATP) +\NSFILING.COPY/RENAME (OLDPARSE COPYFLG NEWPARSE VERSION SAME-DIR-P DEST-UNIQUE-P OLDHANDLE) +SPPOUTPUTSTREAM (CON) RECORD (NAM) TEDIT.PUT (FILE FORCENEW OFILE PUTFN UNFORMATTED? OLDFORMAT? CACHE +PC CH#S MENUSTREAM) LOADFNS (LISPXHIST FILE FILEMAP BUILDMAPFLG) EDITBM (ORIGBM BMSPEC) SETTOPVAL (VAL +) POSTEDITALISTS (FOUNDCHANGE) \LOCKWORDS (NWORDS) \NSRANDOM.CLOSEFILE (SESSION) \CORE.GETFILENAME ( +VERS) FONTPROFILE (NAME BASICCLASSES) \ROUTINGTABLE.INFOHOOK (WINDOW TEDITP) SPELLFILE (FIELDS DEVICE +DIRECTORY HOST NSFLG RELATIVEDIRECTORY SUBDIRECTORY VERSION DIRLST NOPRINTFLG) ALLOCHASH (SIZE FLAG +HASHTABLENAME) COMPILER::CHECK-GLOBAL-CONSTANT (COMPILER::LOOKUP) \CREATE-REAL-CHARSET.DISPLAY ( +CHARSET NOSLUG?) \CORE.NAMESCAN (CREATEFLG) LAYOUTSEXPR (TREE) CONSTANTEXPRESSIONP (FORM VALUE MAC) +FORMAT-DO-ITERATION (ATSIGN) \PUTBASESTRING (FATP) \CORE.UNPACKFILENAME (DOT) INSERTLINE (USECR) +CHAT.RECONNECT (STATE) \PUTBASESTRINGFAT (FATP) GENSYM (PREFIX NUMSUFFIX OSTRBUFFER CHARCODE) +\TEDIT.DIFFUSE.PARALOOKS (PRIORPC PC SUCCEEDINGPC) FM.SHADE (REGION) BLTPATTERN.GENERIC (SW SH) +\IFSERRORSTRING (FILENAME CONNECTION ERR-MSG-STREAM) COURIER.WRITE (ITEM) SEDIT::CFV-CLISP (SEDIT::IWIDTH +) GetBcplString (ATOMFLG) COMPILE1A (COREFLG) \CORE.OPENFILE (OLDSTREAM) PROPS.WHENCHANGED (PROPTYPE) +CLISPATOM1 (L TYP LST0 BRACKET OPRFLAG BROADSCOPE TAIL Y NOTFLG BACKUPFLG TENTATIVE) +POSTSCRIPT.HARDCOPYW (REGION) \IRM.WILD.REF (MATCHES CHOICE) EVENTS-INPUT (TAIL) DBG::PRINT-BACKTRACE +(DBG::TEST DBG::PRINT-VARIABLES DBG::PRINT-JUNK) \TEDIT.TEXTBIN.FILESETUP (FATP) TEDIT.PUT.PCTB2 ( +PARALOOKSSEEN FORMATTINGLEVEL PC FONTFILE PREVPC EDITSTENTATIVE PREVFATP CACHE TRUEFILE UNFORMATTED? +SEPARATEFORMAT) CHAT.PROMPT.FOR.INPUT (WINDOW) \DOHARDRETURN1 (NAMETABLE-ON-STACK) COMP.STTAG (NLV NF) + GETSETQ (TL VARSPLST OKFNS) \MKATOM (FATP NONNUMERICP FATCHARSEENP) SHOWGRAPH (GRAPH ALLOWEDITFLG) +\CREATE.SYMBOL (FATCHARSEENP FATP) \GCSCANSTACK (NTEND) BKSYSBUF.GENERAL (OBJECT) \SCALEDBITBLT.PSC ( +DESTINATIONLEFT DESTINATIONBOTTOM WIDTH HEIGHT DESTREGION CLIPPINGREGION) \PARSE.NUMBER (RDTBL RADIX +COMMONLISP START SEENBOGUSDIGITS SIGDIGITS ENDFRAC EXPSTART FATP SIGN SEENALPHADIGITS COMMONLISPY +MAXALPHADIGIT DECPT) SEDIT::REDO (SEDIT::UNDO-UNDO-LIST) CL:COMPILE (COMPILER::NAME) +COMPILER::CLOSURE-ANNOTATE-LABELS (COMPILER::IN-LOOP-P) FORMAT-CONDITION (COLON ATSIGN) +SEDIT::TRANSLATE-CHARS (SEDIT::UPCASE?) \CORE.SETFILEINFO (INFOBLOCK) PURGEDSKDIRECTORY ( +dontDeleteFiles) PTON10GRID (MOVINGPT) SCANEXP (EXP EVALFLG) SCANDECLARECOLON (DONTCOPIES EVALFLG) +\COPYDATATYPE (PTRS) COMP.STJUMP (TAG F NV V) DO?CMD (SPTAIL) \CORE.GETNEXTBUFFER (NOERRORFLG) +BQUOTIFY (BQCAR TL FORM) SIMPLETEXTEDIT (FILE INSTREAM) INSPECT/AS/BLOCKRECORD (CHOICES) \MOVEFRAME ( +AT-EOS NAMETABLE-ON-STACK) SPELLFILE1 (VERS#1) WINDOWWORLD (ONOFF MAINFLG) \ALLOCBLOCK (INITONPAGE +ALIGN) CONDITIONS:INVOKE-RESTART-INTERACTIVELY (CONDITIONS::R CONDITIONS::I-FN) \NSFILING.NEXTFILE ( +IGNOREDIRS FILTER NAMEONLY) TEDIT.GET.CHARLOOKS0 (NAME) SEDIT::CONTAINS? (SEDIT::START-1 SEDIT::END-1 +SEDIT::START-2 SEDIT::END-2) COMPILER::NULL-EFFECTS-INTERSECTION-EXCEPT-CONS (COMPILER::EFFECTS-1 +COMPILER::EFFECTS-2) SEDIT::LINEARIZE-CLISP (SEDIT::INDEX SEDIT::OK SEDIT::COULD-INLINE? SEDIT::IF?) +\FONTINFOFROMFILENAME (CH DEVICE) \CREATECOREDEVICE (NODIRFLG) MBUTTON.FIND.NEXT.BUTTON (PC OBJ) ERROR + (NOBREAK) \FONTFILENAME (CHARSET) CONDITIONS:INVOKE-RESTART (CONDITIONS::R) \AGE.ROUTING.TABLE (TAIL +PURGED) COMPILER::RESOLVE-VARIABLE-REFERENCE (COMPILER::SETQ-P) MAPATOMS (FREE) NewPrinter (MEMBER? +NEW-DEFAULT?) \RELEASE.IOCB (IOCB) COMPILER::CLOSURE-ANNOTATE-LAMBDA (COMPILER::NEW-FRAME-P +COMPILER::IN-LOOP-P) SPELLFILE.SPELL (VERSION EXTENSION) SCANDEFINEQ (CONTINUEFLG) +\NSFILING.SETFILEINFO (ATTR/VAL) ATOMHASH#PROBES (FATP DESIREDATOM# FATCHARSEENP) BLTPATTERN (SW SH +OPER TEMPBM) ONEDINSPECTW.CREATE (REGION) FINDFILE (DIRLST) LISPFORM.SIMPLIFY (EVALFLG CE) +MAXATTACHEDWINDOWEXTENT (ATWS EXTENT) CLISPTRAN (TRAN) \HANDLE.RAW.PUP (NDB) \FONTFACE.COLOR (POS +NOERRORFLG) UNDOSET (PTR) DO-HISTORY-SEARCH (PRED-P PAT1 VALUE-P) GETNODEFROMID (NODEHASHTABLE) +INSTALLBRUSH (OLDENTRY BRUSHARRAY BRUSHFN) SPELLFILE.MATCHINGDIRS (HOST) \COURIER.RESULTS (RESULTTYPES + EXPEDITEDFLG) COMPILER::NULL-EFFECTS-INTERSECTION (COMPILER::EFFECTS-1 COMPILER::EFFECTS-2) +MINATTACHEDWINDOWEXTENT (ATWS) FMAPRINT (LEFT LST RIGHT) NO.SIDEEFFECTS.FNP (X) POSTEDITPROPS ( +FOUNDCHANGE) \FIND.LOCALPUPHOSTNUMBER (QUIET) \SFLHASHLOOKUP (INSERT) ED (CL::NAME CL::GIVEN-TYPES +CL::FROM-DISPLAY CL::POSSIBLE-TYPES) FIXSPELL1 (FROMDWIM MESSFLG FLG BUFS LISPXHIST) +\NSFILING.GETFILEINFO (LEN) BREAKLINE (STAY) PUTD (DEF FLG) SCALEBM (TEMPBM) CREATE-PROCESS-STREAM ( +CHAN) \CANONICAL.NSHOSTNAME (INFO) FM.RESETGROUPS (REDISPLAYFLG) FIXDATUM (TEM) SI::NON-LOCAL-GO ( +TARGET) SI::UNWIND-TO-BLIP (THROWP PC) \NODIRCOREFDEV (READPFN) GRAPHEROBJ (LEFTBUTTONFN +MIDDLEBUTTONFN COPYBUTTONEVENTFN) EVALUABLE.CONSTANTP (X VALS) BLOCKCOMPILE (BLKFNS ENTRIES FLG) +SETTTBLPROP (NEWVALUE) CLOSEALL (ALLFLG) \VARNOTUSED (SETQONLY?) \DSPSCALE2.PSC (X-SCALE) +ARGS.COMMUTABLEP (X) PFI.AFTER.NEW.PAGE (LEFT RIGHT) \POLYSHADE.BLT (currlist fulllist) TEDIT.HARDCOPY + (SERVER) \STKMIN (CODEISBLOCK PRINT) SI::NON-LOCAL-RETURN-VALUES (VALUES) CALLS3 (FLG) CL:FORMAT ( +CL::DESTINATION) \FINDOP (FLG) \LFFindDirectoryVol (VOL) FM.RESETSHAPE (ALWAYSFLG) \FONTFILENAME.NEW ( +CHARSET) OPENP (FILE) ROMANNUMERALS (UCFLG) SPY.BUTTON (POS) TWODINSPECTW.CREATE (REGION) +\MEDW.GETSCREENREGION (INITCORNERS INITREGION NOTTIMEDOUT DOWNFLG) \DSPCOLOR.PSC (COLOR) WHENCLOSE (FN +) CHECKRECORDNAME (OKSTRUCDIFF NEEDSNAME 3MUSTLISTP) ARRAY (INITVAL) MKCONS (CDRPART) +AS.MAKE.CONVERSATION (KEEPSTREAM) ERRORMESS (U) COPY.WINDOW.TO.BITMAP (SOFTCURSORUP SI::*OR-GENTEMP*) +TEDITWINDOWP (CHECKED-WINDOW) SI::INTERNAL-THROW-VALUES (VALUES) ASKUSERCHAR (C2) \MEDW.CARET.SHOW ( +UNLESSOCCLUDED) COMPILER::EFFECTLESS-EXCEPT-CONS (COMPILER::EFFECTS) MAKEUSERMACROSCOMS (X) +SETF-SYMBOL-FUNCTION (CL::DEFINITION) \READACFONTFILE (PAD.LEFT DONT.PAD.RIGHT STARTWORD) PFCOPYBYTES +(END) MSDESCRIBE1 (LST) FASL::ADD-OP-TRANSLATION (FASL::PAIR) MOVETOFILE (FROMFILE) ASSURE.PUP.READY ( +NDB PROC MYHOST#) MB.MARGINBAR.SELFN (TAB) \NSRANDOM.WRITEPAGES (ERROR) SHOW.CLEARINGHOUSE ( +ENTIRE.CLEARINGHOUSE? DONT.GRAPH) LOOKUPHASHFILE (KEY2 RETFLG KEYVAL) MBUTTON.FIND.BUTTON (PC OBJ) +FB.CANONICALIZE.PATTERN (CANONICAL) PF (FN) LISTRECORDEFS (FORMAT) CL:REMOVE (END COUNT) +NUTF8STRINGBYTES (RAWFLG) \DELETEPIECE (NEXT PREV) BRHC/LAYOUT/DAUGHTERS (TTC) TB.COLLECT.ITEMS ( +PREDFN) ASKUSER1 (TEM) SCROLL.HANDLER (TIMEIN BUTTON CONTINUOUSSCROLL?) UNDOLISPX3 (L) PROCESSPROP ( +NEWVALUE OLDDATA) CH.GETAUTHENTICATOR (NONTRIVIAL INFO) SEDIT::SET-POINT-STRING (SEDIT::INDEX) +FM.CHANGESTATE (NEWSTATE OLDSTATE) OPT.CHECKTAG (TAGFLAG) \NSRANDOM.SESSION.WATCHER (WRITING? TIMEOUT +REALTIMER) ERASE/GRAPHNODE (TRANS) CL:FIND (END) COMPILER::NULL-INTERSECTION (COMPILER::LIST-1 +COMPILER::LIST-2) \BASEBYTES.PEEKBIN (NOERRORFLG) \NSRANDOM.TRUNCATEFILE (LP ERROR) CH.FINDSERVER ( +DONTPROBEFLG NOERRORFLG) WRITESTRIKEFONTFILE (CHARSET CSINFO) FW-ADJUST-PLACEMENT (OFDLIST) ASKUSER$ ( +KEY0 NC0 TEM) RECORDECLTAIL (NAME TL RUNTIMEDECL) DWIMIFYREC (DWIMTAIL INDECL) INTERPRET.REM.CM ( +RETFLG COM) UTF8.OUTCHARFN (RAW X) \ITEMW.SELECTITEM (ITEM) \SETUPSTACK1 (INITFLG ARGSLENGTH ARGS) +SEDIT::SET-LIST-FORMAT (CL:FORMAT) \DSPTOPMARGIN.PSC (YPOSITION) \MEDW.GETBOXSCREENPOSITION (PROMPTMSG + MOUSEDOWNFLG WINDOW) FASL::COLLECT-LIST (FASL::DOTTED) ICMLARRAY.VALUECOMMANDFN (VALUE) SEDIT::MUTATE + (SEDIT::NODE SEDIT::MUTATOR) \RESETSTACK0 (RPROC) COMPERRM (FL X) FASL::CONVERT-FASL-DATE (CFLG) +\TEDIT.GET.CHARLOOKS1 (NAME) CARET (NEWCARET) OPENSTRINGSTREAM (FATP) COMPILER::EFFECTLESS (COMPILER::EFFECTS +) TTYINEDIT (PRINTFN WINDOW) FB.SELECTEDFILES (NOERRORFLG) SCANFILE1 (LST DEFUNFLG) \UPCASEBASE (FATP) + COURIER.CALL (STREAM) EVALQT (LISPXID) PFI.MAKE.LPT.STREAM (PRINTER) RECORDECL1 (CL TAIL) +STRING.EQUAL (FATPX FATPY) BRHC/LAYOUT (DS) GetImageFile (PRINTFILETYPE) FM.GETITEM (GROUP) +INSPECTW.SELECTITEM (PREVIOUS PROPERTY VALUEFLG) \TEXTMENU.START (MAINWINDOW) SEDIT::SET-POINT-LITATOM + (SEDIT::INDEX SEDIT::OFFSET) SCANFILE0 (NXT) CREATEDSKDIRECTORY (smashDirectory) \DSPBOTTOMMARGIN.PSC + (YPOSITION) CH.LOOKUP.OBJECT (ADDRESS) \STRINGSTREAM.INIT (NOERRORFLG) TEDIT.RAW.INCLUDE (END WASOPEN + START) INTERRUPTED (INTERRUPT THISPROC W INTERRUPTED.PROC) PFI.SETUP.TRANSLATIONS (CHARPAIRS FONT) +XCL:COMPILE-FORM (COMPILER::*OUTSTANDING-LOOSE-FORMS*) \TEDIT.RESHAPEFN (LINE FIRSTCH#) BITBLT (WIDTH +HEIGHT SOFTCURSORUP) COMP.CALL (A) DBG::BACKTRACE-ITEM-SELECTED (DBG::LP) TTCOMPLETEWORD (START +CAUTIOUS FIRSTMATCH MUST.BE.UNIQUE CH RETYPEBUF ESCAPED NEEDADJUST UNIQUE FIRSTMATCHCHARS) +FASL:OPCODE-SEQUENCE (FASL::TABLE) DSPDESTINATION (DESTINATION) IRM.CREF.BUTTONEVENTFN (TYPE) +\GATHER-CLEANUP-FORMS1 (FOUND-UNWIND) DO.EDIT.COMMAND (EDITARG EDITMINUS) \MEDW.GETSCREENPOSITION ( +WINDOW) UPDATEPCNODES (UPWARD) \DISABLEGC1 (NOERROR) FB.COUNT.FILE.CHANGE (DELETEDP SIZE) RECORDERROR +(IN AT CDRFLG) \GC.MODIFY.BIGREFCNT (TMP) \MAKE.PROCESS0 (TtyDisplayStream SI::*RESETFORMS* EVENT) +TMPSUBFN (N) CHAT.TYPESCRIPT1 (FILE) \GCERROR (FLG REASON) PRINTERSTATUS (STATUSFN) \BITBLT.BITMAP ( +CLIPPINGREGION WIDTH HEIGHT TEXTURE SOURCETYPE) COMPILER::CLOSURE-ANNOTATE-BLOCK (COMPILER::IN-LOOP-P) + TEDIT.UNPARSE.PAGEFORMAT (OLDRIGHT SCALEFACTOR PX PY LEFT RIGHT TOP BOTTOM COLWIDTH INTERCOL) +\BACKFORMAT (LINE1) \BLTSHADE.BITMAP (CLIPPINGREGION WIDTH HEIGHT DESTINATIONNBITS TEXTURE) +\SEARCHOPENFILES (ACCESS) \FORMATLINE (PC HARDCOPYMODE 1STLN GATHERBLANK NEWASCENT TABPENDING +PREVDHYPH PREVHYPH T1SPACE FORCEEND) CHAT.TYPEOUT (TERM.STATE CRPENDING) \HARDRESET-CLEANUP ( +LINEARBINDINGS OLDVAL) SEDIT::SELECT-SEGMENT-DEFAULT (SEDIT::SUBNODE SEDIT::INDEX) \HARDRESET-CLEANUP1 + (INFO ERRORS-SEEN) HVBAKREAD (BKRF) TEDIT.FORMATBOX (LINE LAST-CHNO CHNO) FILECOMS (FILE X) +XCL:UNADVISE-FUNCTION (XCL::IN-FN XCL::ORIGINAL XCL::MIDDLE-MAN) GETBLOCKDEC (FNSONLY) /LISPXPUT (LST +ADDFLG) FB.UPDATEBROWSERITEMS (INDEX CONDITION LASTFILEDATA WIDENED) \INSURESCREEN (SCREEN) +\GC.LOOKUP.BIGREFCNT (TMP) /RADIX (N) \GCMAPSCAN (PREV) XCL:ADVISE-FUNCTION (XCL::FORM XCL::IN-FN) +PFI.LINES.REMAINING (BOTTOM) START.CLEARINGHOUSE (RESTARTFLG) IDLE.SHOW.OPTION (STRING SEPR) +IMPORTEVAL (RETURNFLG) GRAPHOBJ.BUTTONEVENTINFN (LEFT MIDDLE) STACK.FULL.WARNING (FLG) RENAMEFILE ( +OLDFILE NEWFILE) COMPILER::CLOSURE-ANNOTATE (COMPILER::NODE) \DISPLAYLINE (HARDCOPYMODE TERMSA) +ICONTITLE (TITLESPEC REG FONT JUST) XCL:REBREAK-FUNCTION (XCL::IN-FN XCL::INFO) LOADFNS-MAKELIST (LST +FNSFLG) SEDIT::SCAN-STRING (SEDIT::STRING? SEDIT::IN-MULTI-ESC SEDIT::POINT?) XCL:TRACE-FUNCTION ( +XCL::IN-FN) SEDIT::MENU-PRINTBASE-SELECTEDFN (SEDIT::PRINT-BASE) \ALLOCMINIMUMSIZES (ATWSINFO) +\SET.FINALIZATION.FUNCTION (TYPENO) XCL:CREATE-TRACE-WINDOW (XCL::OPEN?) \COPYSYS (UNIXVAR VAL) NIL +TESTFREE OPT.DELCOPYFN (Z) CLUNARYMINUS? (TYP CLISPHELPFLG) \PFEnsureInitialized (\PFInitialized) +\GETFTPCONNECTION (*FTP-IGNORE-SERVER-FULL* FTPDEBUGFLG) CHAT.CHOOSE.EMULATOR (CHAT.EMULATORTYPE) +DUMPDATABASE1 (DUMPEDFLG) \TEDIT.COMMAND.LOOP (TEDIT.SELPENDING TEDIT.COPY.PENDING +TEDIT.COPYLOOKS.PENDING TEDIT.MOVE.PENDING TEDIT.DEL.PENDING) \TRANSMIT.STRATEGY ( +\BSP.OVERLAP.DATA.WITH.ACK) TTBIN (\CARET.UP) \COURIER.ATTENTIONFN (NSWIZARDFLG) OPT.RETPOP (XVARFLG) +TTWAITFORINPUT (\WINDOWWORLD) FLIPCURSOR (\SOFTCURSORP \CURRENTCURSOR) ONFILE (MSHASHFILE) LOADCOMP ( +RESETSTATE) CLISPRECORD (LCASEFLG) INFILECOMSPROP (NAME) /CONTROL (LISPXHIST) TTDELETELINE ( +DISPLAYTERMFLG) CHAT.CLOSE (\CARET.UP CLOSECHATWINDOWFLG) RECREDECLARE (RECORDCHANGEFN CLISPARRAY) +CLISPRPLNODE (LISPXHIST) HASH-TABLE-FOR-DOC-TYPE (FILEPKGFLG) PFI.PROCESS.FILE (*PFI-PENDING-COMMENTS* +) COMP.LINKCALLP (BLKFLG) MSPRGLAMBDA (INCLISP EACHTIME DWIMFLG) UNIX-USERNAME ( +\UNIXSTRING.GLOBALRESOURCE) \LOGIN.READ (DEFAULTREGISTRY) GETCHATWINDOW (CHATWINDOWLST) +\HANDLE.RAW.OTHER (XIPTRACEFLG) \LEAF.TIMEDOUT (PUPTRACEFLG) LOADFROM (DWIMFLG) TTYDISPLAYSTREAM ( +\TERM.OFD \CARET.UP) \ADJUST.USERNAME (DEFAULTREGISTRY CH.DEFAULT.DOMAIN CH.DEFAULT.ORGANIZATION) +HISTORYFIND (DWIMFLG) COMP.ATTEMPT.COMPILE (BLKFLG) CHARACTER (\\PNAMESTRING.GLOBALRESOURCE) +CLBINARYMINUS? (TYPE-IN? CLISPHELPFLG) WHO-LINE-HOST-NAME (*WHO-LINE-HOST-NAME*) RECLAIMMIN ( +\GCDISABLED) CL:MACHINE-INSTANCE (\PUP.READY) TTYIN.FINISH (\PROMPTFORWORD HELP \NOVALUE \REPEAT +\READING \FILLINGBUFFER \STRINGVALUE \COMMAND SPLST \FIX TTYINUSERFN) TTYIN (TTYINERRORSETFLG CTRLUFLG + TTYINMAILFLG) \IMAGEIOINIT (\#DISPLAYLINES) LOOKUP.NS.SERVER (*ASSUME-ZERO-NSSOCKETS*) PRINTPUP ( +PUPONLYTYPES PUPIGNORETYPES) TTYINREAD (TTYINDEBUGFLG \INSIDE.TTYIN) \MEDW.BLTCHAR (\SOFTCURSORP +\SOFTCURSORUPP) \NSADDRESS.DEFPRINT (\THISFILELINELENGTH) DEFC (DFNFLG) GETHOSTINFO (\IPFLG +DEFAULT.OSTYPE) CLISPFUNCTION? (DWIMIFYFLG NOSPELLFLG TYPE-IN? CLISPHELPFLG) UNIX-FULLNAME ( +\UNIXSTRING.GLOBALRESOURCE) TTYIN.SETUP (\READING) XCL::PPRINT-DEFINER (FORMFLG) ESUBST (LISPXHIST) +TTYIN1 (\PROMPT1 \FIRSTTIME UNREADBUF \TTSCRATCHFILE.GLOBALRESOURCE \FILLINGBUFFER \PFW.FIRSTTIME +\DONTCOMPLETE SHOWPARENFLG SPLST TTYINCOMPLETEFLG \LISPXREADING \REPEAT \READING \PROMPT2 \COMMAND +TTYINMAILFLG \RAISEINPUT) UNIX-GETENV (\UNIXSTRING.GLOBALRESOURCE) \FTP.PRINTPLIST (FTPDEBUGFLG) +CLISPATOM (ONLYSPELLFLG CLISPCHANGES TYPE-IN? NOSPELLFLG) MSPARSE (NOSPELLFLG) U-CASE ( +\\PNAMESTRING.GLOBALRESOURCE) \LEAF.DEVICEP (\FTPAVAILABLE) \GETMISCSOCKET (\MISC.SOCKET) MKSTRING ( +PRXFLG) CL:POSITION (TEST-P TEST-NOT-P FROM-END-P KEY-P) USERLISPXPRINT (LISPXPRINTFLG LISPXHIST) +XCL::RELIST* (XCL::*WALK-COPY*) IDLE.SET.OPTION (CH.DEFAULT.DOMAIN DEFAULTREGISTRY) CL:MAKE-STRING ( +INITIAL-ELEMENT-P) MOVD (FILEPKGFLG) UNIX-GETPARM (\UNIXSTRING.GLOBALRESOURCE) BITMAPBIT (\SOFTCURSORP + \SOFTCURSORUPP) FIXCONTINUE (CLISPARRAY) FLIPCURSORBAR (\SOFTCURSORP \CURRENTCURSOR) INFILECOMSVAL ( +NAME) SETINITIALS (DEFAULTREGISTRY DEFAULTINITIALS) ADJUSTLINE (\AUTOFILL) CL:MERGE (KEY-P) MOVD? ( +FILEPKGFLG) \LINEWITHBRUSH (\SOFTCURSORP \SOFTCURSORUPP) PROMPTFORWORD (\PROMPTFORWORD.CURSOR) +BREAKDOWN (BRKDWNTYPE) CL:MERGE-PATHNAMES (CL::VERSION-SPECIFIED-P) \SPPSENDERROR (XIPTRACEFLG +NSWIZARDFLG) UNSET (DWIMFLG) WRITE (*PRINT-CIRCLE-HASHTABLE*) \MAYBEPEEKPUP (\PEEKPUPNUMBER +PUPTRACEFLG) CHANGENAME (FILEPKGFLG) PROVIDE.PROMPTING.WINDOW (\PROC.READY \WINDOWWORLD) +FW-CREATE-OFD-LIST (FW-OFDList FW-SortFn) \SETXIPCHECKSUM (\NS.CHECKSUMFLG) \CHANGE.ETHER.TRACING ( +\RAWTRACING) PUTSEQUIN (LEAFDEBUGFLG) MAPDL (SPAGHETTIFLG) \CCLOSURE.DEFPRINT (\THISFILELINELENGTH) +WTFIX1 (DWIMFLG DWIMIFYFLG FAULTAPPLYFLG CLISPFLG LCASEFLG FILEPKGFLG CLISPARRAY NOFIXFNSLST0) +SPY.TREE (SPY.TREE) HELPSYS (IRM.HOST&DIR) PFI.PRINT.INDEX (*PFI-TWO-SIDED*) SUPERPRINT/COMMENT ( +**COMMENT**FLG FILEFLG MAKEMAP *PRINT-SEMICOLON-COMMENTS*) CL:MISMATCH (TEST-P TEST-NOT-P KEY-P) +CLISPERROR (DWIMESSGAG TYPE-IN?) \FTP.PACKFILENAME (*UPPER-CASE-FILE-NAMES*) \CH.UPDATE.CACHE ( +CLEARINGHOUSE.STRUCTURE.WINDOW) /REMPROP (LISPXHIST) FNCHECK (DWIMFLG ADDSPELLFLG) CL:NSUBSTITUTE-IF ( +FROM-END-P KEY-P) UNADVISE (ADVISEDFNS) \SLOWBLTCHAR (\SOFTCURSORP \SOFTCURSORUPP) CL:NSUBSTITUTE-IF-NOT + (FROM-END-P KEY-P) \DSPPRINTCR/LF (\CARET.UP \SOFTCURSORP \SOFTCURSORUPP) SEPRCASE (*PACKAGE*) +EMBEDPROG (BINDINGS) STOPSCAN? (BROADSCOPE) FW-OFD-EXISTS? (FW-ReInit?) CLISPIF0 (CLISPIFTRANFLG) +\CANONICALIZE.PUP.HOSTNAME (\HOSTNAMES) DWIMIFYFNS (DWIMFLG) PACK* (*PACKAGE* +\\PNAMESTRING.GLOBALRESOURCE) FIXSPELL (NOSPELLFLG TYPE-IN? FIXSPELL.UPPERCASE.QUIET) SEARCHPDL ( +SPAGHETTIFLG) CLRPLNODE (NOSAVEFLG) \LOAD-STREAM (FILEPKGFLG) PFI.ENQUEUE (\PFI.PROCESS) RAIDCOMMAND ( +FRAME#) WORDSPERNAMEENTRY (CROSSCOMPILING) TB.USERDATA (NEWP) CLISPATOM0 (SUBPARENT DWIMIFYFLG) +DISPLAYAFTERENTRY (\DisplayStoppedForLogout) COMPSETREAD (DWIMFLG READBUF REREADFLG LISPXHISTORY) +FW-LOOP (FW-Running? FW-Dormant? FW-Reset? FW-ReInit?) READNUMBERINBASE (*READ-SUPPRESS*) +SI::EXPAND-CONDITION-CASE (*BYTECOMPILER-IS-EXPANDING*) LISPXUSEC (EDITQUIETFLG) \TELERAIDENTRY ( +\PUP.READY) CL:NSUBSTITUTE (TEST-P TEST-NOT-P FROM-END-P KEY-P) CLISPIFYLOOKUP (DECLST) +CONDITIONS::EXPAND-RESTART-CASE (*BYTECOMPILER-IS-EXPANDING*) DWIMLOADFNS? (FAULTAPPLYFLG +DWIMLOADFNSFLG DWIMIFYFLG DWIMIFYING TYPE-IN?) SI::EXPAND-PROCEED-CASE (*BYTECOMPILER-IS-EXPANDING*) +FIXATOM (TAIL DWIMUSERFORMS NOSPELLFLG TYPE-IN? VARS DWIMIFYFLG NOFIXVARSLST0 CLISPFLG CLISPCHANGES +CLISPERTYPE NEWTAIL) FNS.PUTDEF (DFNFLG ADDSPELLFLG FILEPKGFLG) INFILECOM (ONFILETYPE ORIGFLG) +CHARACTER.READ (*READ-SUPPRESS*) BITMAPCREATE (WINDFLG) CL:POSITION-IF-NOT (FROM-END-P KEY-P) +PFI.PRINT.MULTI.INDEX (*PFI-TWO-SIDED*) MSHASHLIST1 (OTHERSET) CHAT (CHAT.HOSTMENU DEFAULTCHATHOST) +FIXATOM1 (TYPE-IN?) FIXEDITDATE (INITIALS) FAX.SEND.FILE (FAX.NO.WATCHER) FTPGETMARK (FTPDEBUGFLG) +SI::MONITOR-UNWIND (SI::*RESETFORMS*) CLOSENSOCKET (\NSOCKETS) CL:POSITION-IF (FROM-END-P KEY-P) +DELDEF (MSDATABASELST) \DONEWEPHEMERALPAGE (\NEWVMEMPAGEADDED) COURIER.EXECUTE.CALL (COURIERTRACEFLG) +XCL::RECONS (XCL::*WALK-COPY*) \NSFILING.OPENFILE (DEFAULTFILETYPE) LOAD (DWIMFLG PRETTYHEADER) +\GET.IOCB (\IOCBFREELIST) EDITP (DWIMFLG) DEFAULT.BACKGROUND.COPYFN (BackgroundCopyMenuCommands) +TEDITCHAT.MENUFN (\CARET.UP) EDIT4F (UPFINDFLG) \MAYBEPEEKNS (\PEEKNSNUMBER XIPTRACEFLG) +\SPP.RELEASE.ACKED.PACKETS (XIPTRACEFLG) NSDISPLAYSIZE (*SMALLSCREEN*) RAIDSHOWFRAME (ALINKS?) +CLISPFORVARS (CLISPFLG I.S.TYPE I.V.) MSPRGRECORD (EACHTIME) SETTAIL? (\DELETING \LASTAIL) +TTYIN.SCRATCHFILE (TTYINEDIT.SCRATCH) CLMAPS2 (LCASEFLG) \PROMPTFORWORDERASE (TTYD) \HCPYMODEBLTCHAR ( +\SOFTCURSORP \SOFTCURSORUPP) DOBACKGROUNDCOM (BackgroundMenu BackgroundMenuCommands) FNTYP1 ( +CLISPARRAY) MSSETREP (S SETDET SETTYPE) \PROMPTFORWORDBIN (BELLBEENHEARD?) \DSPMOVELR (\CARET.UP) +REBREAK (XCL::*UNBROKEN-FNS*) PUTFILEMAP (BUILDMAPFLG) SHRIEKER (WORKFLAG) DO-DISPATCH-MACRO ( +*READ-SUPPRESS*) \FTP.HANDLE.NO (FTPDEBUGFLG) \PROMPTFORWORDBS (TTYD RUBBING?) CL:REMOVE-DUPLICATES ( +TEST-P TEST-NOT-P FROM-END-P KEY-P) /SETTOPVAL (LISPXHIST) CLISPRESPELL (NOSPELLFLG TYPE-IN?) +COURIER.EXECUTE.EXPEDITED.CALL (COURIERTRACEFLG) \CH.CHECK.CLEARINGHOUSE (CH.DEFAULT.DOMAIN +CH.DEFAULT.ORGANIZATION) /REPLACEFIELD (LISPXHIST) CL:REMOVE-IF (FROM-END-P KEY-P) EXEC-READ-LINE ( +CTRLUFLG) \10MBSENDPACKET (\RAWTRACING) UNDOSAVE (%#UNDOSAVES DWIMFLG) CL:REDUCE (INITIAL-VALUE-P) +ADDFILE (ADDSPELLFLG) \MAYBEBLOCK (\INTERRUPTABLE) \LEAF.OPENERRORHANDLER (\FTPAVAILABLE) +TTYIN.PPTOFILE (\PROMPT1) \SPP.HANDLE.ATTN (NSWIZARDFLG) STRPOSL (\\STRPOSLARRAY.GLOBALRESOURCE) +NSPRINT (NSPRINT.WATCHERFLG) \DSPPRINTCHAR (\CARET.UP) DMCHAT.HANDLE.WRAP (CHAT.AUTOCRLF) \GETKEY ( +\\KEYBOARDWAITBOX.GLOBALRESOURCE) FIXAPPLY (FILEPKGFLG TYPE-IN? CLISPFLG DWIMUSERFORMS FAULTAPPLYFLG) +CL:ROOM (CL::SP) SEDIT::SMART-TTYFN (TTYEDITFN) DSPCLEOL (\CARET.UP) PRINTXIP (XIPONLYTYPES +XIPIGNORETYPES) CLOSEPUPSOCKET (\PUPSOCKETS) PRINTCOPYRIGHT (COPYRIGHTFLG) CL:REMOVE-IF-NOT ( +FROM-END-P KEY-P) FASL:PROCESS-FILE (*LOAD-VERBOSE*) %%PRINT-CONDITION (*PRINT-ESCAPE*) MOVEBOX ( +\SOFTCURSORP) DRAWGRAYBOX (\SOFTCURSORP) CLISPFORERR (DWIMESSGAG) TTECHO.TO.FILE (\PROMPT1 +\PROMPTFORWORD) \COURIER.HANDLE.ERROR (NSWIZARDFLG) ENUM-STRING (\\NUMSTR.GLOBALRESOURCE +\\NUMSTR1.GLOBALRESOURCE) \GETSYSBUF (\LONGSYSBUF) PRETTYDEF (BUILDMAPFLG) \GETMAPBUFFER ( +MAPEMPTYBUFFERLIST) PROMPTCHAR (READBUF PROMPT#FLG PROMPTCHARFORMS) \LEAF.OPENFILE (\FTPAVAILABLE +UNIXFTPFLG) %%PRINT-ARRAY-CONTENTS (*PRINT-LENGTH* *PRINT-LEVEL*) HASH-LEFTPAREN (*READ-SUPPRESS* +\INBQUOTE) WAIT.FOR.TTY (\WINDOWWORLD) FIX89TYPEIN (FAULTARGS) SETTEMPLATE (LISPXHIST) +%%DEFPRINT-ARRAY (*PRINT-ARRAY* *PRINT-LEVEL*) SEDIT::TRACK-SELECT (SEDIT::PENDING-SHIFT) +CHANGECALLERS (MSDATABASELST) LISPXTERPRI (LISPXPRINTFLG LISPXHIST) HPRINT1 (U) PRINTCOPYRIGHT1 ( +COPYRIGHTSRESERVED) \RECLAIMCODEBLOCK (SI::*CLOSURE-CACHE-ENABLED*) LISPXPRIN1 (LISPXPRINTFLG +LISPXHIST) CL:MEMBER (CL::TEST-P CL::TEST-NOT-P CL::KEY-P) \FTP.WHENCLOSED (FTPDEBUGFLG) +\SLOWHCPYMODEBLTCHAR (\SOFTCURSORP \SOFTCURSORUPP) OPT.SKIPPUSH (NEWOPTFLG) \CLIPANDDRAWLINE ( +\SOFTCURSORP \SOFTCURSORUPP) %%DEFPRINT-VECTOR (*PRINT-ARRAY* *PRINT-LEVEL*) \ASSIGNDATATYPE1 ( +CROSSCOMPILING) HASH-A (*READ-SUPPRESS*) MAPAFTERCLOSE (DEFAULTMAPFILE) FILECREATED ( +LOAD-VERBOSE-STREAM) CL::PUTHASH (EXTRA-P) HARDCOPYW (DEFAULTPRINTINGHOST) \IDLER (\VMEM.INHIBIT.WRITE + \IDLE.PASSWORD.SET) \PEEKSYSBUF (\LONGSYSBUF) LISPXREADP (READBUF) HASH-B (*READ-SUPPRESS*) CL:SEARCH + (TEST-P TEST-NOT-P KEY-P) /DECLAREDATATYPE (LISPXHIST) \BLTSHADE.DISPLAY (\SOFTCURSORP \SOFTCURSORUPP +) RECORDWORD (LCASEFLG) HASH-C (*READ-SUPPRESS*) MOUSECHORDWAIT (\MOUSECHORDTICKS) LISPXPRINT ( +LISPXPRINTFLG LISPXHIST) PRINTDEF (%#RPARS FONTCHANGEFLG PRETTYFLG) CHAT.TAKE.INPUT1 (STREAM) SENDPUP +(PUPTRACEFLG) \HANDLE.RAW.10TO3 (XIPTRACEFLG) HASH-BACKSLASH (*READ-SUPPRESS*) PFI.HANDLE.EXPR ( +*PFI-PENDING-COMMENTS*) TEDIT.FORMATPAGE (*TEDIT-PAGE-BREAKS*) \TEXTINIT ( +*TEDIT-OLD-STREAM-ERROR-HANDLER*) DO.MOUSE (\CARET.UP) \BITBLT.DISPLAY (\SOFTCURSORP \SOFTCURSORUPP) +FLTSTR (\\NUMSTR.GLOBALRESOURCE \\NUMSTR1.GLOBALRESOURCE) IDLE (\IDLING) GETPUP (PUPTRACEFLG) +PRINTERDEVICE (RESETSTATE) HASH-COLON (*READ-SUPPRESS*) PRINT-EVENT-PROMPT (LISPXHISTORY) EDITDATE? ( +*REPLACE-OLD-EDIT-DATES*) MSPRGCALL (TOPVARS) \TRACKWITHBOX (BACKGROUNDCURSOREXITFN) DWMFY2 (TAIL +FORMSFLG DWIMCHECKPROGLABELSFLG NOSPELLFLG ONLYSPELLFLG TYPE-IN? CLISPFLG ONEFLG) \DRAWCIRCLE.DISPLAY +(\SOFTCURSORP \SOFTCURSORUPP \\BRUSHBBT.GLOBALRESOURCE) VMEM.PURE.STATE (\VMEM.PURE.LIMIT) CL:DELETE ( +TEST-P TEST-NOT-P FROM-END-P KEY-P) DWIMIFY1A (DWIMESSGAG DWIMIFYFLG DWIMIFYING) GREET0 (GREETDATES +FIRSTNAME) HASH-COMMA (*READ-SUPPRESS* COMPILER::*COMPILER-IS-READING*) PFI.NEW.LISTFILES1 ( +*PFI-DONT-SPAWN*) \DRAWLINE.DISPLAY (\\BRUSHBBT.GLOBALRESOURCE) \FTPERROR (FTPDEBUGFLG) HASH-DOT ( +*READ-SUPPRESS*) \FILLCIRCLE.DISPLAY (\SOFTCURSORP \SOFTCURSORUPP \\BRUSHBBT.GLOBALRESOURCE) +\HASHTABLE.DEFPRINT (\THISFILELINELENGTH) \COURIER.RECORDTRAN (LCASEFLG) MAKECREATE1 (HASHLINKS +USINGEXPR) /PUT (LISPXHIST) \TURN.ON.PROCESSES (AUTOPROCESSFLG) FILL.XPER (\SOFTCURSORP \SOFTCURSORUPP +) \REUSETO (TYPENAME) DWIMIFY2? (DWIMIFYFLG) \PROC.AFTER.WINDOWWORLD (\WINDOWWORLD) \10MBGETPACKET ( +\RAWTRACING) HASH-DOUBLEQUOTE (*READ-SUPPRESS*) MSPRGMACRO (INCLISP EACHTIME) +\NSRANDOM.RELEASE.IF.ERROR (RESETSTATE) DWMFY0 (DWIMIFYFLG FORMSFLG) HASH-MINUS (*READ-SUPPRESS*) +/RPLNODE (LISPXHIST) PRETTYCOMPRINT (LOAD-VERBOSE-STREAM) PFI.PRINT.BITMAP (*PRINT-ARRAY* +*PRINT-PRETTY-BITMAPS* *PFI-FUNNY-CHARS* *PFI-BITMAP-BASELINE*) CL::TIME-CALL (CL::TIMED-FORM-P) +FAKE-COMPILE-FILE (PEFP) PFI.HANDLE.* (*PFI-PENDING-COMMENTS*) /SETWORDCONTENTS (LISPXHIST) +COMP.LOOKUPVAR (GLOBALVARFLG) READLINE (CTRLUFLG READBUF) HASH-PLUS (*READ-SUPPRESS*) SETREADFN ( +TTYINBSFLG) RETDWIM (FIXCLK HELPCLOCK DWIMIFYFLG DWIMIFYING TYPE-IN? HISTENTRY CLISPFLG FORMSFLG +NOSPELLFLG CLISPCHANGES CLISPERTYPE) \PUPERROR (\PEEKPUPNUMBER PUPTRACEFLG) ADDFILE0 (DWIMFLG) COMPSET + (LAPFLG) HASH-O (*READ-SUPPRESS*) SUPERPRINT0 (MAKEMAP) \IFS.LOOKUPFILE (*UPPER-CASE-FILE-NAMES* +PUPTRACEFLG) DO.EDIT.PP (\READING \TTSCRATCHFILE.GLOBALRESOURCE) \CLEANUPDISKQUEUE (\DISKDEBUG) HASH-R + (*READ-SUPPRESS*) TEMPLATE (FILEPKGFLG MSDATABASELST) \HTFIND (\GCDISABLED) \TEDIT.SELECT.CHARACTER ( +WORDSELFLG) CLISPIFYRPLAC (CLISPFLG CL%:FLG) \DRAWCURVE.DISPLAY (\\BRUSHBBT.GLOBALRESOURCE) HASH-QUOTE + (*READ-SUPPRESS*) \WRITEDIRTYPAGE1 (\NEWVMEMPAGEADDED) TYPE-VARIABLE-FROM-TYPE-NAME (*PACKAGE*) +\DRAWELLIPSE.DISPLAY (\SOFTCURSORP \SOFTCURSORUPP \\BRUSHBBT.GLOBALRESOURCE) PRINTHISTORY2 (%#RPARS) +HASH-STAR (*READ-SUPPRESS*) WHO-LINE-USERNAME (*WHO-LINE-CURRENT-USER*) \LOOKUPPUPNUMBER (XIPTRACEFLG) + CLISPCAR/CDR (VAR2) HASH-S (*READ-SUPPRESS*) DASSEM.DSTOREFNDEF (SVFLG) DWMFY1 (CLISPRETRANFLG +DWIMCHECK#ARGSFLG FORMSFLG) HASH-X (*READ-SUPPRESS*) SUBPRINT (MAKEMAP CLISPFLG CLISPIFYPACKFLG) +\DOVMEMFULLINTERRUPT (\EXTENDINGVMEMFILE) CLISPLOOKUP1 (CLISPTRANFLG) DODIRCOMMANDS (COLUMNS NAMEFLG) +/SETSEPR (LISPXHIST) REHASHFILE (REHASHGAG) \CONS.UFN (\RECLAIM.COUNTDOWN) \TRANSLATE.10TO3 ( +XIPTRACEFLG) DIRPRINTNAME (NAMEPRINTED) HASH-NUMBER-SIGN (*READ-SUPPRESS*) CL:SUBSTITUTE-IF ( +FROM-END-P KEY-P) CLOSE-AND-MAYBE-DELETE (RESETSTATE) COMP.SELECTQ (SELECTQFMEMB) CLISPIFYMAPS ( +LCASEFLG) \CHECKARRAYBLOCK (ARRAYBLOCKCHECKING) HASH-EQUAL (*READ-SUPPRESS*) DSFIT1 (TAILFLG) UNSAVED1 + (ADDSPELLFLG) CLISPFOR0 (DWIMIFYFLG LCASEFLG DWIMESSGAG) \ALLOCBLOCK.OLD (\HUNKING?) TTYINREADP ( +READBUF) PRETTYPRINT (ADDSPELLFLG SOURCEFILE SOURCEFILENV DWIMFLG LISPXHISTORY) MSPRGE (DWIMFLG +INCLISP EACHTIME MSMACROPROPS) PRETTYPRINT3 (LAMBDAFONT FONTCHANGEFLG) NEW/INSTANCE/OF/GRAPHNODE ( +BOX.LEAVES.FLG BOX.BOTH.FLG) SPY.ADD.ENTRY (SPY.POINTERS) \ALLOCHUNK (\IN.MAKEINIT) EDITLOADFNS? ( +FILEPKGFLG) SEND.FILE.TO.PRINTER (DEFAULTPRINTINGHOST) CACHEMACRO (*IN-COMPILER-LET*) CL:SUBSTITUTE ( +TEST-P TEST-NOT-P FROM-END-P KEY-P) NEWDEFC (DFNFLG) \HANDLE.RAW.XIP (\NS.READY XIPTRACEFLG +\NS.CHECKSUMFLG) CL:SUBSTITUTE-IF-NOT (FROM-END-P KEY-P) DBG::FIND-NAMED-STACK-POSITION (DWIMFLG) +\MAIKO.ALLOCBLOCK (\HUNKING? \RECLAIM.COUNTDOWN) RESTOREBUF (\LASTAIL \LAST.DELETION) WTFIX0 ( +DWIMIFYFLG DWIMIFYING) CLISPIFYCROPS (CLISPFLG CL%:FLG SEG OPR0) \CONVERT.FLOATING.NUMBER ( +\\CFNSTRING.GLOBALRESOURCE) INTERRUPTCHAR (LISPXHIST) COMPILE! (BYTECOMPFLG) \VAMBufferSave ( +\VAMbufferDirty) SHOW.MATCHING.PAREN (\CARET.UP) CLISPIFY2B (LCASEFLG CL%:FLG NOVALFLG CLISPFLG NEGFLG + OPR0 CLTYP0 CLISPIFYUSERFN) \MERGEFORWARD (\ARRAYMERGING) \MISCN.UFN (\MISCN-TABLE) INSPECT/DATATYPE +(INSPECTALLFIELDSFLG) ASSURE.ETHER.ON (\LOCALNDBS \NSFLG) \LINKBLOCK (\FREEBLOCKBUCKETS) CL:MAKE-ARRAY + (DISPLACED-TO-P INITIAL-ELEMENT-P INITIAL-CONTENTS-P DISPLACED-TO-BASE-P DISPLACED-INDEX-OFFSET-P) +/PUTD (LISPXHIST) \RPLCONS (\RECLAIM.COUNTDOWN) SKOR (ALTFLG FASTYPEFLG) \CARET.FLASH? (\CARET.UP) +\PRINDATUM.TO.STRING (*PRINT-RADIX* \\NUMSTR.GLOBALRESOURCE \\NUMSTR1.GLOBALRESOURCE *PRINT-CIRCLE*) +LISPXPRINTDEF (LISPXPRINTFLG LISPXHIST) MSNEXTWORD (LASTADVERB) FW-OPENP (FW-AllFiles?) LISPXPRIN2 ( +LISPXPRINTFLG LISPXHIST) \SPPGETERROR (XIPTRACEFLG) EDITFROMFILE (EDITLOADFNSFLG) /SETD (LISPXHIST) +PRETTYCOM (LISPXPRINTFLG DWIMFLG ORIGFLG FILEFLG FONTCHANGEFLG LAMBDAFONT) \FM.EDIT-INSERT (LIMITCHARS + SYSLIMITCHARS MAXWIDTH) \MAIKO.PUNTBLTCHAR (\SOFTCURSORP \SOFTCURSORUPP) /ADDPROP (LISPXHIST) +\VANILLAHOSTNAMEP (\PSEUDODSK) GET-ENVIRONMENT-AND-FILEMAP (USEMAPFLG) CLEARCLISPARRAY (CLISPARRAY) +PRINTFNS (NEWFILEMAP) CLISPNOTVARP (DWIMIFYFLG DWIMIFYING SHALLOWFLG) \BULK.DATA.CLOSE ( +COURIERTRACEFLG RESETSTATE) \DOINTERRUPTHERE (\INTERRUPTABLE) \CHECKFORSTORAGEFULL (\STORAGEFULL) +SAVEPUT (LISPXHIST ADDSPELLFLG) RETDWIM1 (TREATASCLISPFLG DWIMIFYFLG DWIMIFYING TYPE-IN? CLISPHELPFLG +LCASEFLG) MSPATHSPRINTFN (MARKING) CL:COMPILE-FILE (COMPILER::F-M-F-GIVEN COMPILER::P-E-F-GIVEN) +PRETTYDEF1 (NLAMALST NLAMLST LAMALST) \MAIKO.ETHER-INTERRUPT (\RAWTRACING) \MERGEBACKWARD ( +\ARRAYMERGING) /SETBRK (LISPXHIST) \LEAF.GENERATEFILES (\FTPAVAILABLE) BCOMPL3 (RESETSTATE LCFIL +LSTFIL LSTFIL1) COMPILER::COMPILE-AND-DUMP (COMPILER::*BLOCK-HASH-TABLE*) /PUTPROP (LISPXHIST) +CONTROL-T (LAST^TSWAPTIME) PRINTNUM (\\NUMSTR.GLOBALRESOURCE \\NUMSTR1.GLOBALRESOURCE) BLOCK ( +\WINDOWWORLD) SIMPLEP (CLISPARRAY) COMPILE1 (BYTECOMPFLG) \VFMDelete1 (firstFlag lastFlag) +CL::DEFAULT-STRUCTURE-PRINTER (XCL:*PRINT-STRUCTURE*) \SET.VMEM.FULL.STATE (\VMEM.FULL.STATE) +TTYIN.READ?=ARGS (\TTSCRATCHFILE.GLOBALRESOURCE) PRINTDATE (FILEPKGFLG) \DOHELPINTERRUPT1 ( +\INTERRUPTABLE) MSPATHS4 (INVERTED) TTYINPROMPTFORWORD (TTYIN.USE.EXACT.CHARS) DWIMUNSAVEDEF (TYPE-IN? +) \PRINDATUM (*PRINT-RADIX* *PRINT-ESCAPE* \\NUMSTR.GLOBALRESOURCE \\NUMSTR1.GLOBALRESOURCE PRXFLG) +PROCESS.STATUS.WINDOW (SELECTEDPROC) \NSFILING.GETFILE (*NSFILING-RANDOM-ACCESS* +*UPPER-CASE-FILE-NAMES*) COMPILE (LCFIL LAPFLG LSTFIL) TTADJUSTWORD (SPLST \NOFIXSPELL \FIX HELP) +SPY.MERGE (SPY.HASH) DASSEM.DWRITEFN (LCFIL STRF) \ARRAYBLOCKMERGER (\HUNKING?) \MAPPNAME.INTERNAL ( +\\MAPPNAMESTREAM.GLOBALRESOURCE) PACKC (\\PNAMESTRING.GLOBALRESOURCE) OUTPUT ( +MULTIPLE.STREAMS.PER.FILE.ALLOWED) \NEW.READ.SYMBOL (LITATOM-PACKAGE-CONVERSION-ENABLED) EXPRCHECK ( +DWIMFLG ADDSPELLFLG) \GETREGIONTRACKWITHBOX (BACKGROUNDCURSOREXITFN) LISPXSPACES (LISPXPRINTFLG +LISPXHIST) \CURVE2 (\SOFTCURSORP \SOFTCURSORUPP) \TRANSLATE.3TO10 (XIPTRACEFLG) DASSEM.DASSEM ( +OPTIMIZATIONSOFF IPLUSNFLG) OPENPOSTSCRIPTSTREAM (POSTSCRIPT.PREFER.LANDSCAPE) \FORWARD.XIP ( +\GATEWAYFLG \PEEKNSNUMBER XIPTRACEFLG) PACK (\\PNAMESTRING.GLOBALRESOURCE) PRINTDATE1 (BUILDMAPFLG +FILEPKGFLG) /SETA (LISPXHIST) FONTMAPARRAY (\FONTMAPCACHE) LINBUF (\LINBUF) WTFIXLOADEF (DWIMIFYFLG) +CHAT.STARTUP (CHAT.TTY.PROCESS) CL:GENSYM (CL::X-P) COURIER.OPEN (COURIERTRACEFLG) OPT.JUMPTHRU ( +NEWOPTFLG) \PRINT-USING-ADDRESS (\THISFILELINELENGTH) \MAPPNAME (PRXFLG) \PFTransferFilePage ( +\label.GLOBALRESOURCE) \NEW.MKATOM (\OneCharAtomBase) \UFSRenameFile (FileTypeConfirmFlg) /SETATOMVAL +(LISPXHIST) SETDISPLAYHEIGHT (\EM.DISPLAYHEAD) CL:SUBST (CL::TEST-P CL::TEST-NOT-P CL::KEY-P) +CLISPATOMARE2 (DEST) CURRENT.WORD (\COMMAND) COMPILE-IN-CORE (BYTECOMPFLG) CL:NSUBST (CL::TEST-P +CL::TEST-NOT-P CL::KEY-P) GETFILEMAP (USEMAPFLG) TTY.PROCESS (\CARET.UP) \NSINIT (\3MBLOCALNDB +\GATEWAYFLG) CLISPACKUP (FUNNYATOMLST) PRINT-BITMAPS-NICELY (*PRINT-ARRAY*) CLISPIFYNOT (NEGFLG +CLISPFLG) \TEDIT.CENTER.SEL.REV (TEDIT.FNKEY.VERBOSE) PRINTDEF1 (NEWFILEMAP) GAINSPACE (SMASHPROPSLST1 +) \PSWOP.SELECTED (SELECTEDPROC) XCL::%%DEFINE-TYPE-PUTDEF (LISPXHIST) \FILINGSESSION.DEFPRINT ( +COURIERTRACEFILE) COMP.EXPR (FRAME) \PSW.SELECTED (SELECTEDPROC) CL:SUBLIS (CL::TEST-P CL::TEST-NOT-P +CL::KEY-P) COMPILE.FILE.RESET (RESETSTATE) \UFS.FULLNAME (*DSK-UPPER-CASE-FILE-NAMES*) +\SPP.CLOSE.IF.ERROR (RESETSTATE) PRETTYVAR1 (FONTCHANGEFLG PRETTYCOMFONT) SYSBUF (\SYSBUF) FIX-FORM ( +*EDIT-INPUT-WITH-TTYIN*) \ROUTINGTABLE.INFOHOOK (\10MBLOCALNDB) DINFO.SELECT.GRAPH (DINFO.GRAPHS) +DO?CMD.ERRORHANDLER (\STARTED) DWIMIFY1? (DWIMIFYFLG) LISPX/1 (CLISPARRAY) CL:NSUBLIS (CL::TEST-P +CL::TEST-NOT-P CL::KEY-P) DWIMIFY (DWIMFLG) FTPPRINTCODE (FTPDEBUGFLG) COLORDISPLAYP ( +ColorScreenBitMap) FFILEPOS (\\FFDELTA1.GLOBALRESOURCE \\FFDELTA2.GLOBALRESOURCE +\\FFPATCHAR.GLOBALRESOURCE) CLISPIFY (FILEPKGFLG) COMP.NUMBERCALL (OPTIMIZATIONSOFF) \M44ACTONVMEMFILE + (\XVmem) FW-ADJUST-REGION (FW-Justified?) L-CASE (\\PNAMESTRING.GLOBALRESOURCE) \TEXTDSPYPOSITION ( +\#DISPLAYLINES) COMPILER::GENCODE-CALL (COMPILER::*TAIL-RECURSION-POLICY* COMPILER::*SPECIAL-LOCALS-BOUND* + COMPILER::*AVAILABLE-LEXICAL-NAMES*) \NSFILING.GENERATEFILES (FILING.ENUMERATION.DEPTH) +CL::PROCESS-ACCESSORS (COMPILER::*NEW-COMPILER-IS-EXPANDING*) \RESHOWBORDER1 (\SOFTCURSORP +\SOFTCURSORUPP) LVLPRIN (PRIN2FLG) \HANDLE.RAW.3TO10 (XIPTRACEFLG) \3MBSENDPACKET (\RAWTRACING +\ETHERLIGHTNING PUPTRACEFLG XIPTRACEFLG) NECCSPEC (SFLG) LVLPRIN0 (PRIN2FLG **COMMENT**FLG) CLREMPARS +(CLREMPARSFLG) LOADFNS (FILEPKGFLG DWIMFLG) TEDIT (TEDIT.DEFAULT.WINDOW) \BSP.TIMERFN ( +\BSP.NO.INACTIVITY.TIMEOUT) POSTEDITALISTS (CLISPARRAY) \FORWARD.PUP (\PEEKPUPNUMBER \GATEWAYFLG +PUPTRACEFLG) COMP.CONST (OPTIMIZATIONSOFF) COMP.NUMERIC (OPTIMIZATIONSOFF) \#BLOCKDATACELLS (\HUNKING? +) PRINTROUTINGTABLE (\10MBLOCALNDB) \COURIER.WHENCLOSED (COURIERTRACEFLG) \CORE.PACKFILENAME ( +*UPPER-CASE-FILE-NAMES*) \FILLBUFFER (*READ-NEWLINE-SUPPRESS*) SPELLFILE (DWIMFLG) \STARTDISPLAY ( +\WINDOWWORLD \MAINSCREEN) ADDSPELL1 (LISPXHIST) CL::%%RATIO-PRINT (*PRINT-RADIX* \THISFILELINELENGTH) +\MEDW.MOVEW (\SOFTCURSORP \SOFTCURSORUPP) CL:NUNION (CL::TEST-P CL::TEST-NOT-P CL::KEY-P) PREEDITFN ( +FILEPKGFLG CLISPARRAY) PRINTPARA1 (P2FLAG) CONSTANTEXPRESSIONP (COMPVARMACROHASH) CL:UNION (CL::TEST-P + CL::TEST-NOT-P CL::KEY-P) READVISE (SI::*UNADVISED-FNS*) SAVESET (ADDSPELLFLG LISPXHIST) +\TRANSLATE-CL%:LAMBDA (*CHECK-ARGUMENT-COUNTS*) CL:ADJOIN (CL::TEST-P CL::TEST-NOT-P CL::KEY-P) +MSPATHS1 (TABS INVERTED SEPARATE) CL:NINTERSECTION (CL::TEST-P CL::TEST-NOT-P CL::KEY-P) FAULTAPPLY ( +CLISPARRAY DWIMFLG) AUTOCR? (\AUTOFILL) DSPBACKUP (\CARET.UP) CL:INTERSECTION (CL::TEST-P CL::TEST-NOT-P + CL::KEY-P) CL::%%COMPLEX-PRINT (\THISFILELINELENGTH) MAKE-VECTOR (INITIAL-ELEMENT-P) /MOVD ( +ADDSPELLFLG) TTY/EDITE (ADDSPELLFLG) VIDEOCOLOR (\VideoColor) CL:SET-DIFFERENCE (CL::TEST-P +CL::TEST-NOT-P CL::KEY-P) CL:NSET-DIFFERENCE (CL::TEST-P CL::TEST-NOT-P CL::KEY-P) COMPILE1A ( +DWIMIFYCOMPFLG FILEPKGFLG CLISPTRANFLG CLISPARRAY) \STOPSCROLL? (\WINDOWWORLD) FB.FINISH.COMMAND ( +RESETSTATE) CL:NSET-EXCLUSIVE-OR (CL::TEST-P CL::TEST-NOT-P CL::KEY-P) SPY.BUFFER.ENTRY (SPY.POINTERS) + MARKASCHANGED (FILEPKGFLG LISPXHIST) \SETPUPCHECKSUM (\PUP.CHECKSUMFLG) CL:SET-EXCLUSIVE-OR (CL::TEST-P + CL::TEST-NOT-P CL::KEY-P) EDITF2 (RESETSTATE) SI::DISABLE-CLOSURE-CACHE (SI::*CLOSURE-CACHE-ENABLED*) + CLISPNOEVAL (DWIMINMACROSFLG) CL:SUBSETP (CL::TEST-P CL::TEST-NOT-P CL::KEY-P) BIGNUM.DEFPRINT ( +*PRINT-RADIX* \THISFILELINELENGTH) \PACKDATE (\DayLightSavings) COMP.PUNT (MACEXP) OLD.FIND.SYMBOL ( +\OneCharAtomBase) \MKATOM (\OneCharAtomBase) CL:MAKE-SEQUENCE (INITIAL-ELEMENT-P) MSCHECKVARS1 (LF1) +MSPATHS2 (AVOIDING NOTRACE TO INVERTED) \CREATE.SYMBOL (\IN.MAKEINIT) DOWINDOWCOM (\CARET.UP) +CLISPATOM1 (89FLG CURRTAIL TYPE-IN? NOSPELLFLG DWIMIFYFLG ONEFLG CLISPCONTEXT FORMSFLG PARENT) +UNCLISPTRAN (CLISPARRAY) OPT.FRAMEMERGE (MERGEFRAMEFLG) BMOBJ.DISPLAYFN (*SMALLSCREEN* +*SMALLSCREENFACTOR*) \FTP.RENAMEFILE (FTPDEBUGFLG) \EXPECTED.FILE.TYPE (FileTypeConfirmFlg) +\MEDW.CLOSEW (\SOFTCURSORP \SOFTCURSORUPP) CL:ASSOC-IF (CL::KEY-P) \CURSOR.DEFPRINT (*PRINT-ARRAY*) +\DSPFONT.IP (*INTERPRESS-PRINTER-DSPFONT-PATCH*) PRINTSPP (PRINTSPPDATAFLG) CHECKTRAN (CLISPARRAY +CLISPTRANFLG) COMP.STJUMP (LEVEL) PFI.HANDLE.DEFDEFINER (*PFI-TYPES*) OPT.SCANOPT ( +COMPILE.DUNBIND.POP.MERGE.FLG NEWOPTFLG) \M-VMEMSAVE (\VMEM.PURE.LIMIT VMEM.COMPRESS.FLG) +\DOSTACKOVERFLOW (\NEED.HARDRESET.CLEANUP) \CORE.GETNEXTBUFFER (\INTERRUPTABLE) \GETMISCNSOCKET ( +\MISC.NSOCKET) FIXLISPX/ (TYPE-IN?) LISPXUSE1 (GENLST) CL:ASSOC-IF-NOT (CL::KEY-P) \MOVEFRAME ( +\STACKOVERFLOW) EDITH (READBUF EDITHISTORY) SPELLFILE1 (VERSION) \LEAF.READFILENAME ( +*UPPER-CASE-FILE-NAMES*) COMP.ST (LEVEL) \ALLOCBLOCK (\HUNKING? \RECLAIM.COUNTDOWN) \SETUPUSERSTACK ( +\DOFAULTINIT) MAYBE.PRETTYPRINT.BOLD (FONTCHANGEFLG PRETTYCOMFONT) DELETELINE (DISPLAYTERMFLG) +PROCESSWORLD (%#SCHEDULER# \RUNNING.PROCESS \WINDOWWORLD) SUBPRINT/ENDLINE (FORMFLG) EDITDEFAULT ( +LCFLG EDITHISTORY TYPEIN EDITUSERFN REREADFLG EDITHIST DWIMFLG) MSNEEDUNSAVE (CHECKUNSAVEFLG) +SIMPLETEXTEDIT (\TTSCRATCHFILE.GLOBALRESOURCE) CL:ADJUST-ARRAY (ELEMENT-TYPE-P FILL-POINTER-P +DISPLACED-TO-P INITIAL-ELEMENT-P INITIAL-CONTENTS-P DISPLACED-TO-BASE-P DISPLACED-INDEX-OFFSET-P) +\MKATOM.FULL (\STORAGEFULL) CL:RASSOC (CL::TEST-P CL::TEST-NOT-P CL::KEY-P) COMPILEUSERFN1 (FILEPKGFLG +) TTYIN.SHOW.?ALTERNATIVES (?ACTIVATEFLG) \RUN.PROCESS (\PROC.RUN.NEXT.FLG) \FONTFILENAME ( +*USEOLDFONTDIRECTORIES*) SUPERPRINT (MAKEMAP FORMFLG PRETTYTRANFLG) SPELLFILEDIR (HOST) +SI::INSTALL-CLOSURE-CACHE (SI::*CLOSURE-CACHE-ENABLED*) \MEDW.OPENW (\SOFTCURSORP \SOFTCURSORUPP) +CLISPATOM2D (ENDTAIL FORMSFLG PARENT) SEDIT::SEDITE (FILEPKGFLG) CL:RASSOC-IF-NOT (CL::KEY-P) +\EXTENDSTACK (\STACKOVERFLOW) EDITRAN (TYPEIN) \3MBGETPACKET (\RAWTRACING) MSPATHS (MSCRATCHASH) +BCOMPL1A (DESTINATIONENV) CL:RASSOC-IF (CL::KEY-P) SCANDEFINEQ (DICT0 BUILDMAPFLG FNADRLST FNLST +VARLST DICT) PRETTYPRINT2 (SOURCEFILENV) CHANGEFONT (FONTCHANGEFLG) \LEAF.RENAMEFILE (\FTPAVAILABLE +UNIXFTPFLG) COMP.USERFN (COMPVARMACROHASH) CLISPFOR1 (I.S.TYPE) \AGE.ROUTING.TABLE (\RT.PURGEFLG) ED ( +*ED-OFFERS-PROPERTY-LIST*) EDITCOM (FINDFLAG) DP (*LAST-DP*) SEDIT:RESET-FORMATS (SEDIT::*FSPEC-TABLE-COPY* +) \COURIER.EXPEDITED.OVERFLOW (NSWIZARDFLG) FAULTEVAL (CLISPARRAY DWIMFLG) EDRPT (MAXLOOP) CLISPTRAN ( +CLISPARRAY %#CLISPARRAY) \HANDLE.RAW.PUP (\PUP.READY PUPTRACEFLG \PUP.CHECKSUMFLG) UNDOSET (LISPXHIST +SPAGHETTIFLG) DO-HISTORY-SEARCH (*EVENTS*) \GENERIC-UNREGISTER-STREAM (*ISSUE-CLOSE-WARNINGS*) +OPT.POSTOPT (OPTIMIZATIONSOFF XVARFLG MERGEFRAMEFLG) BLOCKCOMPILE1 (BLKAPPLYFNS BYTECOMPFLG STRF) +GETXIP (XIPTRACEFLG) \HDCPYDSPPRINTCHAR (\CARET.UP) PRINENDLINE (MAKEMAP) \10MB.INPUT.INTERRUPT ( +\10MB.COLLECTSTATS) FIXAPPLY1 (TYPE-IN?) BRKDWNSETUP (BRKDWNCOMPFLG) BMOBJ.IMAGEBOXFN (*SMALLSCREEN* +*SMALLSCREENFACTOR*) /CNDIR (LISPXHIST) EDIT!UNDO (EDITHISTORY) \GETSTREAM (\DEFAULTTTYDISPLAYSTREAM) +COMPILER::COMPILE-FILE-PROCESS-FUNCTION (COMPILER::*COMPILING-DEFINER*) CHANGERECORD (MSDATABASELST) +EDITCOMA (ORIGFLG UNDOLST1 EDITHIST EDITCHANGES EDITLFLG LISPXHIST ATM TYPEIN LCFLG EDITHISTORY +MARKLST UNFIND LASTP1 LASTP2 COMS) POSTEDITPROPS (CLISPARRAY) \CURVEEND (DASHON \SOFTCURSORP +\SOFTCURSORUPP BBT DASHTAIL) \FIND.LOCALPUPHOSTNUMBER (PUPTRACEFLG) \IRM.SMART.REF (\IRM.KEYWORDS) +CLISP4 (CLISPFLG) FB.PRINTFN (FB.BROWSER.DIRECTORY.FONT) EDITCOML (LCFLG ORIGFLG TYPEIN) FIXSPELL1 ( +LISPXHIST REREADFLG TYPE-IN? APPROVEFLG CLISPCHANGES DWIMWAIT) EDITFNS (DWIMFLG) FTPPRINTMARK ( +FTPDEBUGFLG) \MOUSE.PROCESS (\WINDOWWORLD) EDITCOM1 (TYPEIN) TTGIVEHELP1 (SPLST) \MAIKO.CONS.UFN ( +\RECLAIM.COUNTDOWN) COMP.EQ (OPTIMIZATIONSOFF) EDITSAVE (EDITLISPFLG) \NSFILING.GET.STREAM (RESETSTATE +) CLISPCAR/CDR1 (DWIMIFYFLG CHECKCARATOMFLG VAR2) BLOCKCOMPILE (LCFIL LSTFIL) MSCHECKBLOCKBASIC ( +ENTRIES BLKAPPLYFNS) \NSRANDOM.READPAGES (\NSRANDOM.CHECK.CACHE) \COURIER.RESULTS (COURIERTRACEFLG) +DWIM-SYMBOL-PACKAGE (FAULTAPPLYFLG) COMP.STTAG (LEVEL FRAME) \IDLE.ISMEMBER (DEFAULTREGISTRY +CH.DEFAULT.DOMAIN) \HCPYMODEDSPPRINTCHAR (\CARET.UP) \COPYOPENFILE (FileTypeConfirmFlg) GETD ( +SI::*CLOSURE-CACHE-ENABLED*) \WRITE1 (*PRINT-PRETTY* *PRINT-CIRCLE* *PRINT-CIRCLE-HASHTABLE* +*PRINT-ESCAPE*) EDITSMASH1 (CHANGESARRAY) CL:COUNT (TEST-P TEST-NOT-P KEY-P) OPENSTREAM ( +MULTIPLE.STREAMS.PER.FILE.ALLOWED) CLISPCOND (LCASEFLG SEG) \MAIKO.10MBSENDPACKET (\RAWTRACING) +EDITNCONC (CHANGESARRAY) CLOSEALL (MULTIPLE.STREAMS.PER.FILE.ALLOWED) CHAT.MENU (\CARET.UP) +BRECOMPILE1 (BYTECOMPFLG) SENDXIP (\NS.READY XIPTRACEFLG) EDITSAVE1 (EDITHIST EDITHISTORY REREADFLG) +SCROLLW (\CARET.UP) POLYSHADE.IP (*) \10MB.OUTPUT.INTERRUPT (\10MB.COLLECTSTATS) FIXPRINTIN ( +DWIMIFYFLG DWIMIFYING FAULTAPPLYFLG LCASEFLG) EDITSMASH (EDITSMASHUSERFN EDITCHANGES EDITHISTORY +CLISPARRAY) PFI.AFTER.NEW.PAGE (*PFI-TITLE* *PFI-TWO-SIDED* *PFI-ITEM*) CLOSEF ( +MULTIPLE.STREAMS.PER.FILE.ALLOWED) \UFS.NEXTFILEFN (RESETSTATE *DSK-UPPER-CASE-FILE-NAMES*) +COMP.TRYUSERFN (COMPILEUSERFN) COMPILEUSERFN (DWIMFLG CLISPARRAY CLISPTRANFLG DWIMESSGAG) EDIT2F ( +COPYFLG CHANGESARRAY) CL:DECODE-UNIVERSAL-TIME (TIME-ZONE-SUPPLIEDP) CL:EVAL (*EVALHOOK* +CL::*SKIP-EVALHOOK*) CHOOZ (DWIM.GIVE.UP.TIME RUNONFLG) \STKMIN (\OPSTACKEFFECT) PAINTW.CACHE.SHADE ( +PAINTW.SHADES) EDIT4F1 (CHANGEFLG UPFINDFLG TOPLVL FF) CL:COUNT-IF (KEY-P) CLISP% (CLISPARRAY +%#CLISPARRAY) FINDFILE-WITH-EXTENSIONS (DIRECTORIES) \VAMFreePageGroup ( +\\DFSVAMjunkPage.GLOBALRESOURCE \\DFSVAMpage.GLOBALRESOURCE) CLISPIF3 (LCASEFLG) CL:COUNT-IF-NOT ( +KEY-P) \FIXLOCALNET (\LOCALNDBS) DIRFILENAME (*UPPER-CASE-FILE-NAMES*) GREETFILENAME (DEFAULTREGISTRY) + SCANCOMPILEDFN (DICT0 BUILDMAPFLG FNLST FNADRLST VARLST DICT) COMPAREFAIL (LOOSEMATCH) CL:DELETE-IF ( +FROM-END-P KEY-P) D-ASSEM::START-PC-FROM-NT-COUNT-LOCAL (CROSSCOMPILING) DC (*LAST-DC*) TTY/EDITL ( +EDITHISTORY LISPXHIST) CL:DELETE-IF-NOT (FROM-END-P KEY-P) CLISPFOR (DWIMIFYFLG) +\INVALIDATE.PROCESS.WINDOW (PROCESS.STATUS.WINDOW) COMP.ARGTYPE (BLKFLG) DEBUGGER (WBREAK +XCL::BRKFUN-PROVIDED) CHECKRECORDNAME (NAME) BCOMPL.BODY (LCFIL) ERRORMESS (LISPXHISTORY) +COPY.WINDOW.TO.BITMAP (\SOFTCURSORP \SOFTCURSORUPP) HISTORYFIND1 (_FLG PREDFLG =FLG REREADFLG L) +BRKDWNINIT (BDPTR) GETCLEARINGHOUSE (CH.DEFAULT.DOMAIN CH.DEFAULT.ORGANIZATION) ASKUSERCHAR (NOCASEFLG +) \MEDW.GETSCREENREGION (BACKGROUNDCURSOREXITFN) \NSIN.24BITENCODING.ERROR ( +*SIGNAL-24BIT-NSENCODING-ERROR*) PFI.MAYBE.PP.DEFINITION (*PRINT-PRETTY-FROM-FILES*) +CL:DELETE-DUPLICATES (TEST-P TEST-NOT-P FROM-END-P KEY-P) \LOOKUPPORT (PUPTRACEFLG) \UFS.FILEINFOFN ( +RESETSTATE) CLISP3C (CLISPIFYPACKFLG SEG) \MAIKO.INPUT.INTERRUPT (\RAWTRACING) SET-DOCUMENTATION ( +LISPXHIST) RATOM (\\PNAMESTRING.GLOBALRESOURCE) EDITBF1 (UPFINDFLG) \IDLE.AUTHENTICATE ( +DEFAULTREGISTRY) MSCHECKBOUNDFREE (MSCRATCHASH) \SUBREAD (*READ-SUPPRESS* \\PNAMESTRING.GLOBALRESOURCE +) /RPLACD (LISPXHIST) CHANGEI.S. (MSDATABASELST) \CURSORDOWN (\SOFTCURSORP) CLISPBROADSCOPE1 ( +DWIMIFYFLG) CL:ENCODE-UNIVERSAL-TIME (\DayLightSavings) /SETPROPLIST (LISPXHIST) TEDIT.HARDCOPY ( +DEFAULTPRINTINGHOST) ENTER-DEBUGGER-P (HELPFLAG) CHANGEVAR (MSDATABASELST) ADD-USER-SUBR ( +\USER-SUBR-TABLE) COMPILER::GENCODE-PROGN (COMPILER::*POP-SUPPRESSION-POLICY*) \ETHEREVENTFN (\3MBFLG +\10MBFLG \LOCALNDBS \NSFLG \GATEWAYFLG) /RPLACA (LISPXHIST) DEFAULTMAKENEWCOM (DEFAULTCOMHASFILEFLG) +COMP.UBFLOAT2 (OPTIMIZATIONSOFF) SHOWPRIN2 (SYSPRETTYFLG) UNDOEDITL (LISPXHIST) \PRINT-USING-DEFPRINT +(*PRINT-LEVEL*) /PUTHASH (LISPXHIST) SI::NLSETQHANDLER (SI::*NLSETQFLAG* NLSETQGAG) \TOP-LEVEL-READ ( +\\PNAMESTRING.GLOBALRESOURCE) \KEYHANDLER1 (\PERIODIC.INTERRUPT \KEYBUFFERING \PENDINGINTERRUPT +\TIMER.INTERRUPT.PENDING) MSUPDATE (ANYFOUND) \PRINSTACKP (\THISFILELINELENGTH) LISPXTAB ( +LISPXPRINTFLG LISPXHIST) \TEDIT.CENTER.SEL (TEDIT.FNKEY.VERBOSE) \CURSORPOSITION (\SOFTCURSORP) +ASSURE.PUP.READY (\PUP.READY \10MBFLG \GATEWAYFLG) \PRINSTRING (*PRINT-ESCAPE* \THISFILELINELENGTH) +SHOWPRINT (SYSPRETTYFLG) MAKEFILE (MAKEFILEREMAKEFLG) EDITFB (EDITLOADFNSFLG) TRAPLOOP (TRAP.DEBUG) +\CKPOSBOUT (\THISFILELINELENGTH) \HANDLE.RAW.PACKET (\ETHERLIGHTNING) \CKPOSSOUT (\THISFILELINELENGTH) + CLISP3 (CLISPFLG NEGFLG CLISPIFYENGLSHFLG PARENT OPR0 CLTYP0 CLISPIFYPACKFLG) /DWIMCHECKTRAN ( +CLISPARRAY CLISPTRANFLG %#CLISPARRAY) \SPY.INTERRUPT (SPY.POINTERS \INTERRUPTABLE) OPT.CHECKTAG (LEVEL +) PURGEHISTORY (ARCHIVEFLG) \LITPRIN (*PRINT-ESCAPE* *PACKAGE* *PRINT-GENSYM* \THISFILELINELENGTH) +COMP.STFN (BLKFLG) CL:REMOVE (TEST-P TEST-NOT-P FROM-END-P KEY-P) /SETTERMTABLE (LISPXHIST) +DEFMACRO-ARG-TEST (%%UNBOUNDED-ARG-COUNT) \DURATIONTRAN (LCASEFLG) \VAMAllocPageGroup ( +\\DFSVAMjunkPage.GLOBALRESOURCE \\DFSVAMpage.GLOBALRESOURCE) FIX89A (TYPE-IN? DWIMIFYFLG) +CL:FILE-POSITION (CL::POSITIONP) \FAULTHANDLER (\DOFAULTINIT) ASKUSER$ (NOECHOFLG) MULTIFILEINDEX ( +*PFI-DONT-SPAWN*) \USER-SUBR-UFN (\USER-SUBR-TABLE) MSSOLVE (MSTHOSE) CLISPIF (DWIMIFYFLG) \CURVE ( +DASHON \SOFTCURSORP \SOFTCURSORUPP DASHTAIL) EDITL1 (EDITHISTORY EDITHIST0 COM) CL:FIND-IF (FROM-END-P + KEY-P) I.S.OPR (CLISPARRAY FILEPKGFLG) DELETE.TO.END (DISPLAYTERMFLG) CL:FIND-IF-NOT (FROM-END-P +KEY-P) RESETUNDO (LISPXHIST) LISPXREAD (READBUF CTRLUFLG) PERIODICALLYRECLAIM (\RECLAIM.COUNTDOWN) +CL:READ (\\PNAMESTRING.GLOBALRESOURCE) CONDITIONS::%%RESTART-PRINTER (*PRINT-ESCAPE*) +\LITPRIN.INTERNAL (\THISFILELINELENGTH) CL:READ-PRESERVING-WHITESPACE (\\PNAMESTRING.GLOBALRESOURCE) +\OPENLEAFCONNECTION (RESETSTATE) CHANGEMACRO (MSDATABASELST) PFI.MAYBE.SEE.PRETTY ( +*PRINT-PRETTY-FROM-FILES*) CL:READ-DELIMITED-LIST (\\PNAMESTRING.GLOBALRESOURCE) MSDWIMTRAN (DWIMFLG +CLISPARRAY CLISPTRANFLG) LISPX (LISPXUSERFN REREADFLG ARCHIVELST ADDSPELLFLG DWIMFLG) CLISP3B (OPR0 +LST) CARET (\CARET.DEFAULT \CARET.UP) MSPRGDWIM (DWIMFLG) /ECHOCONTROL (LISPXHIST) PRIN2-LONG-STRING ( +MAKEMAP) COMP.SETARG (COMPILE.ARG.FAST.FLG) LISPX/ (LISPXFNS LISPXHISTORY) TTYINEDIT ( +TTYINAUTOCLOSEFLG \TTSCRATCHFILE.GLOBALRESOURCE) \DOMOUSECHORDING (\MOUSECHORDTICKS) ASKUSERPRIN1 ( +LISPXPRNTFLG) CLISPATOM2A (BROADSCOPE DWIMIFYFLG NOSPELLFLG TYPE-IN? VARS TENTATIVE) MSNOTICEFILE ( +MSHASHFILE) \IDLE.OUT (\IDLING) \NSFILING.FULLNAME (*UPPER-CASE-FILE-NAMES*) CMLRDTBL (*PACKAGE*) +\TRACKCURSOR (\SOFTCURSORUPP) CL:ASSOC (CL::TEST-P CL::TEST-NOT-P CL::KEY-P) \DEFPRINT.BY.NAME ( +\THISFILELINELENGTH) \FTP.NEXTFILE (FTPDEBUGFLG) /SETREADTABLE (LISPXHIST) OPT.CHLEV (LEVEL) PRINOPEN +(MAKEMAP) MSVERB (LASTADVERB) \DOBUFFEREDTRANSITIONS (\PENDINGINTERRUPT) /SETSYNTAX (LISPXHIST) +LOWERCASE (CHCONLST) CRITSECT (\FILL.DEBUG) \AUTHENTICATION.FIND.SERVER (\AUTHENTICATION.SERVER.CACHE) + FINDATOM (PARENT) SCANFILE0 (DICT BUILDMAPFLG FNLST VARLST) SEDIT::FINALIZE-MOUSE-SELECTION ( +SEDIT::PENDING-SHIFT) WBREAK (ONP) /ECHOMODE (LISPXHIST) \INTERRUPTFRAME (WINDFLG) +COMP.TOPLEVEL.COMPILE (COMPILEUSERFN LAMBDANOBIND) \TTW1 (\SOFTCURSORP \SOFTCURSORUPP) \INTERRUPTED ( +\INTERRUPTABLE) \PRINTADDR (\\NUMSTR.GLOBALRESOURCE \\NUMSTR1.GLOBALRESOURCE) \PFTrimHelper ( +\PFDebugFlag) \FLUSHPAGE (\VMEM.PURE.LIMIT) CL::STEP-COMMAND (CL::*STEP-STATE*) \RSTRING2 ( +*READ-SUPPRESS*) PRINSHUT (MAKEMAP) \HDCPYBLTCHAR (\SOFTCURSORP \SOFTCURSORUPP) COMPERRM (EMFLAG) +MSMARKCHANGED (MSDATABASELST) CLISPATOM2 (ENDTAIL FORMSFLG DWIMIFYFLG BROADSCOPE CLISPCHANGE TENTATIVE + TYPE-IN?) RSTRING (\\PNAMESTRING.GLOBALRESOURCE) ADDCHAR (\AUTOFILL) \RESETSTACK0 (\RUNNING.PROCESS +\NEED.HARDRESET.CLEANUP) /PUT+1 (LISPXHIST) READ-EXTENDED-TOKEN (\\PNAMESTRING.GLOBALRESOURCE) /RAISE +(LISPXHIST) INTERRUPTED (\INTERRUPTABLE \MOUSEBUSY) END.DELETE.MODE (\DELETING) \NET.SETTIME ( +\LOCALNDBS \PUP.READY) MSCHECKEMPTY (MSDBEMPTY FILELST) \NSRANDOM.PREPARE.CACHE (\NSRANDOM.CHECK.CACHE +) DO.EDIT.COMMAND (\REPEAT \READING TTYINCOMPLETEFLG) \MEDW.GETSCREENPOSITION (BACKGROUNDCURSOREXITFN) + \DISABLEGC1 (\GCDISABLED) \NSFILING.LOGIN (RESETSTATE) SETFONT (MAKEMAP SPACEWIDTH) SEDIT:RESET ( +SEDIT::CONTEXTS) COMP.PROGN (OPTIMIZATIONSOFF) ETHERHOSTNAME (PUPTRACEFLG) \CARET.DOWN (\CARET.UP) +\MAKE.PROCESS0 (HELPFLAG) \SAVEVMBACKGROUND (SAVINGCURSOR) \READTABLEP.DEFPRINT (\THISFILELINELENGTH) +PRIN1S (MAKEMAP) CL:FIND (TEST-P TEST-NOT-P FROM-END-P KEY-P) CLISPIFYFNS (DWIMFLG) PRIN2S (MAKEMAP) +BITBLT (\SOFTCURSORP \SOFTCURSORUPP) MSINIT (MSDATABASELST) DV (*LAST-DV*) CLEARHASHFILES ( +SYSHASHFILELST) FIX89 (TAIL DWIMIFYFLG) START.CLEARINGHOUSE (LOCAL.CLEARINGHOUSE) \RTP.ERROR ( +PUPTRACEFLG) \FTP.CLOSEFILE (FTPDEBUGFLG) CHANGESLICE (LISPXHISTORY EDITHISTORY) +\CREATE.TTYDISPLAYSTREAM (\WINDOWWORLD) UPDATEFN (DEF) CHAT.TYPEOUT (\CARET.UP CHATDEBUGFLG +\LONGSYSBUF) \CLIPANDDRAWLINE1 (\SOFTCURSORP \SOFTCURSORUPP) CALLS (COMPILEUSERFN) PRINDOTP (MAKEMAP) +PRINTNUM-TO-STRING (\\NUMSTR.GLOBALRESOURCE \\NUMSTR1.GLOBALRESOURCE) INPUT ( +MULTIPLE.STREAMS.PER.FILE.ALLOWED) EDITQF (UPFINDFLG) OPENFILE (MULTIPLE.STREAMS.PER.FILE.ALLOWED) +PFI.MAKE.LPT.STREAM (*PFI-TWO-SIDED*) COMP.ARG (COMPILE.ARG.FAST.FLG) DELETETO (DISPLAYTERMFLG +\DELETING TTYINBSFLG) \SELECTREALPAGE (\VMEM.PURE.LIMIT DOLOCKCHECKS \VMEM.INHIBIT.WRITE) +\SOFTCURSORPOSITION (\SOFTCURSORUPP) ASKUSERSETUP (ECHOEDFLG) COMP.ANONP (BLKFLG) \UPDATECHAIN ( +DOLOCKCHECKS) \LEAF.FIX.BROKEN.SEQUIN (\WINDOWWORLD) READBQUOTECOMMA (\INBQUOTE) /RADIX (LISPXHIST) +CLISPIFY2 (OPR0 CLTYP0) CHARACTER.PRINT (*PRINT-ESCAPE* \THISFILELINELENGTH) COMP.PROG ( +OPTIMIZATIONSOFF) \EVALFORM (CLISPARRAY) OVERFLOW? (\AUTOFILL DISPLAYTERMFLG) DISMISS ( +\\DISMISSTIMER.GLOBALRESOURCE) \10MBRAWRECEIVE (\10MB.GETGARBAGE) \HCPYMODEDISPLAYINIT (\WINDOWWORLD) +SUPERPRINT/WRAPPER (MAKEMAP) \FTP.RECOGNIZEFILE (FTPDEBUGFLG) \IDLE.WAIT (\IDLING) \DTEST.UFN ( +SYSHASHARRAY) WINDOW.MOUSE.HANDLER (\INTERRUPTABLE \LastInWindow BACKGROUNDCURSOROUTFN +BACKGROUNDCURSORINFN BACKGROUNDCOPYRIGHTBUTTONEVENTFN BACKGROUNDCOPYBUTTONEVENTFN +BACKGROUNDBUTTONEVENTFN BACKGROUNDCURSORMOVEDFN BACKGROUNDCURSOREXITFN) CANONICAL.HOSTNAME (\IP.READY) + \GC.HANDLEOVERFLOW (\RECLAIM.COUNTDOWN) HISTORYSAVE (REREADFLG ARCHIVELST ARCHIVEFN HISTORYSAVEFORMS) + PRINTXIPROUTE (XIPTRACETIME) IFCPROPSCAN (NAME) /DELETECONTROL (LISPXHIST) ADDTO (ONLYRELS EACHTIME) +\SLOWHDCPYBLTCHAR (\SOFTCURSORP \SOFTCURSORUPP) DECLARERECORD (FILEPKGFLG) \LEAF.HANDLE.INPUT ( +LEAFDEBUGFLG) \FTP.GENERATEFILES (RESETSTATE) LISPXFIND (REREADFLG ARCHIVEFLG) OCTALSTRING ( +\\NUMSTR.GLOBALRESOURCE \\NUMSTR1.GLOBALRESOURCE) PRINTPUPROUTE (PUPTRACETIME) DF (*LAST-DF*) +\WAITFORSYSBUFP (\\DISMISSTIMER.GLOBALRESOURCE) \PFI.DO.HARDCOPY (\PFI.PROCESS.COMMANDS) +DO.SHIFTED.SELECTION (\CARET.UP) CLISPATOM1A (DWIMIFYFLG CLISPCONTEXT ONEFLG TENTATIVE) \GCMAPTABLE ( +\RECLAIM.COUNTDOWN) WAITFORINPUT (\\DISMISSTIMER.GLOBALRESOURCE) \TIMER.INTERRUPTFRAME ( +\PERIODIC.INTERRUPT) RECORDECL0 (CLISPARRAY) NIL +PREDICATE SIMPLE.FINDFILE (MEMB) DASSEM.DASMBIND (IGREATERP) SI::BQUOTE-CONS (CL:LISTP) FNTYP (LITATOM + TYPEP) MSSTOREDATA (FMEMB) \UFS.RECOGNIZE.FILE (FIXP) \GETFTPCONNECTION (LITATOM BSPOPENP STRINGP +STRPOS) \TYPENUMBERFROMNAME (GREATERP) GETNSPRINTER (TYPENAMEP) VARIABLES (ZEROP) +\COURIER.CHECK.ERRORS (FIXP NULLORLISTP) \ALLOCPAGEBLOCK (GREATERP) \TEDIT.COMMAND.LOOP (TTY.PROCESSP +\SYSBUFP IGREATERP) ANALYZE-PARAMETER (CL:SYMBOLP CL:ATOM) XCL::CLEAR-IMPLICIT-KEY-HASH (TYPEP) +\ALLOCVIRTUALPAGEBLOCK (ILEQ ILESSP) \ATMOUT (IGREATERP) \SET.STORAGE.STATE (SELECTC) +BRHC/INTERTREE/SPACE (IGREATERP IEQP ILESSP) \TEDIT.CONVERT.TO.FORMATTED (IGREATERP IEQP) +\GETPILOTBBTSCRATCHBM (ILEQ) CL::MAYBE-MAKE-BINDING-FORM (>) SEDIT::MENU-PACKAGE-SELECTEDFN (EQUAL) +VRULE.CREATE (EVERY) SI::BQUOTE-PROCESS-LIST (CL:ATOM) MAKEBRES (IGREATERP ILESSP IGEQ) WHILEDOUNTIL ( +ATOM EDITFINDP) OPT.JLENPASS (IGREATERP ILESSP) \TEDIT.REPAINTFN (ILESSP) \COURIER.CHECK.PROCEDURES ( +LITATOM) SI::BQUOTE-NCONC (CL:ZEROP) SUBSTRING (ILESSP IGREATERP ILEQ) SEDIT::SET-POINT-LIST (STREQUAL + ILEQ) XCL::IMPLICIT-KEY-MAP-HASH (TYPEP) TB.UNSELECT.ALL.ITEMS (<= GREATERP) LASTCHPOS (EQMEMB) +\SPP.GETNEXTBUFFER (\SPP.PREPARE.OUTPUT) COMPILE-FILE-EXPRESSION (CL:SPECIAL-FORM-P +INTERLISP-NLAMBDA-FUNCTION-P EQUAL) TEDIT.DISPLAYTEXT (STRINGP IGREATERP) \DISPLAYLINE (ZEROP ILEQ +IGEQ GREATERP IEQP IGREATERP SMALLP) \VECENCODE (ILESSP) ALLOCSTRING (ILESSP SMALLP STRINGP GREATERP) +\FTP.PRINTPLIST (STRINGP LITATOM IGREATERP ILEQ) PRINTPUP (FMEMB IGREATERP) \UPF.NEXTPOS (EQMEMB) +BREAK.MSG.INTO.LINES (GREATERP) MAKE-PACKAGE-HASHTABLE (EQL) \FM.EDIT-SETUPTTBL (GREATERP) +TB.DESELECTRANGE (< > <= GREATERP) IDLE.SET.OPTION (FGETD SMALLP GREATERP STREQUAL STRPOS +CH.LOOKUP.OBJECT) GETHOSTINFO (BOUNDP LITATOM) PFI.COLLECT.DEFINERS (LITATOM EQMEMB) XCL::PPRINT-DEFINER + (CL:ATOM CL:CONSP CL:LISTP SEMI-COLON-COMMENT-P) \INITMDSPAGE (ILESSP GREATERP IGREATERP) FM.ITEMPROP + (ILESSP) \LFScavFileName (IGREATERP EQL ZEROP) UNIX-GETENV (FMEMB) TEXTPROP (IGREATERP) +FB.MAKE.SUBDIRECTORY.ITEM (<=) UNPACKPATHNAME.STRING (CL:CONSP) FB.UPDATEBROWSERITEMS (MEMB STRPOS +FB.ADJUST.DATE.WIDTH) NTHCHARCODE (STRINGP LITATOM ILESSP IGREATERP) \FIXILINES (IGEQ IGREATERP IEQP) +MSEDITE (GREATERP) MKSTRING (STRINGP LITATOM CL:CHARACTERP SMALLP ILESSP IGREATERP) \LFUnpackName ( +IGREATERP FMEMB) FLASHWINDOW (WINDOWP DISPLAYSTREAMP GREATERP) SEDIT::MENU-FIND-SELECTEDFN (EQUAL) +MSPARSE (MSNEXTWORD) UNIX-GETPARM (SMALLP >) TEDIT.GET.OBJECT (IMAGEOBJPROP) BITMAPBIT (IGREATERP IGEQ + ILEQ FMEMB) DBG::ATTACH-BACKTRACE-MENU (CL:FUNCALL IGREATERP) TB.UNSELECT.ITEM (TB.ITEM.UPDATABLE?) +IDLE.BOUNCING.BOX (WINDOWP) SPY.MERGE.CALLEES (ILEQ) \SPP.SETFILEPTR (IGEQ) STRPOS (LITATOM IGEQ +ILESSP IGREATERP ILEQ ARRAYP GREATERP) SHRKFY (LITATOM FNTYP BOUNDP) ANTILOG (GREATERP LESSP FGREATERP +) \DSPCLIPTRANSFORMX (IGREATERP) \CH.UPDATE.CACHE (STRING-EQUAL MEMB) PFI.PROCESS.FILE (SYNTAXP +LITATOM) CREATEW (DISPLAYSTREAMP) BAKTRACE1 (DUMMYFRAMEP CL:SOME) \FTP.PACKFILENAME (STREQUAL) +\DSPCLIPTRANSFORMY (IGREATERP) ASKUSER (NUMBERP WAITFORINPUT STRINGP ASKUSERCHAR ASKUSER1 MEMB SYNTAXP + SELECTC APPLY* ILESSP IGREATERP) \FILLPOLYGON.PSC (ZEROP EQL FIXP FLOATP TEXTUREP BITMAPP) +COERCETEXTOBJ (ILEQ ATOM GREATERP) \BBTCURVEPT (ILEQ ILESSP) \NSFILING.SET.CONTINUANCE (FIXP) AIN ( +STRINGP ARRAYP IGREATERP ILESSP) CLISPDEC (ATOM FMEMB) \DSPLINEFEED.IP (NUMBERP) +\DSPCLIPPINGREGION.PSC (EQP) \TERMINATESPP (TIMEREXPIRED?) AOUT (STRINGP ARRAYP IGREATERP ILESSP) +\RESOLVE.TYPENUMBER (LITATOM) \DRAWPOLYGON.PSC (NUMBERP ZEROP FLOATP) PFI.PRINT.INDEX (ODDP) BLTCHAR ( +\CHARCODEP SMALLP) COMP.MLLFN (LITATOM ZEROP) MSEDITF (GREATERP HASDEF) TB.INSERT.ITEM (> < >=) +PFI.PRINT.FILECREATED (FIXP) EDITGETDEF (CL:EQUAL) TWODINSPECT.SELECTITEM (EQUAL) \MEDW.CURSOR ( +\CURSOR-VALID-P) FEQP (FLOATP IGREATERP SMALLPOSP SMALLP ILEQ) \COURIER.CHECKDEF (FIXP) +COLLECT-CASE-SELECTORS (CL:CONSP FMEMB) D-ASSEM:INTERN-DCODE (CL:ZEROP) SEDIT::REPLACE-LIST ( +SEDIT::DEAD-NODE? IGEQ IGREATERP <= ILESSP) \DSPPRINTCR/LF (IGREATERP SHOULDNT FMEMB) STRIP-KEYWORDS ( +CL:KEYWORDP) SEPRCASE (GREATERP) SHOWBITMAP.IP (IGREATERP ZEROP ILEQ) \BSP.CLOSE.OPEN.SOCKETS (SELECTC +) DWIMIFYFNS (GETPROP) D-ASSEM:FIXUP-PTR-NO-REF (FMEMB) \TEDIT.PROMPT.PAGEFULLFN (>=) PRINTWORDS ( +GREATERP) \SLOWBLTCHAR (IGREATERP ILESSP FMEMB) D-ASSEM:FIXUP-SYMBOL (CL:SYMBOLP FMEMB) +SI::SPLIT-PROCEED-CLAUSES (EQL CL:EVERY) MAKELINE (ILESSP) TB.SELECTRANGE (GREATERP > <) +FB.THINCOMMAND (STRING-EQUAL ILESSP FB.THINP FB.DELETE.FILE) \CARET.FLASH.AGAIN (DISPLAYSTREAMP +\CARET.FLASH) INTERNAL-SYMBOL-COUNT (CL::%%PACKAGE-EXTERNAL-ONLY) CONDITIONS::CONVERT-RESTART-CASES ( +CL:REST) SAVEVM (\FLUSHVM) CLISPIFYLOOKUP (FLOATP) \INDICATESTRING (IGREATERP ILESSP) +\LEAF.STREAM.IN.QUEUE (SELECTC DIRTYABLE) TEDIT.PUT.OBJECT (RANDACCESSP) CL:MAKE-PACKAGE (STREQUAL) +REPLACEFIELD (IGREATERP ILEQ TYPENAMEP CL:INTEGERP) \SHOWSEL (IGEQ) COPYARRAY (HARRAYP) \MAYBEPEEKNS ( +EQNSHOSTNUMBER) BOXCOUNT (NUMBERP) USERNAME (STRINGP) DASSEM.CANSHAREBINDING (EQUAL PARENTP) +\POSTSCRIPT.OUTCHARFN (ILEQ CL:AREF IGREATERP ILESSP IGEQ) SETD (IGREATERP IGEQ) COMPILER::SCAN-ONE-FORM + (CL:ATOM) BSPREADP (ILESSP IGREATERP) ELTD (IGREATERP IGEQ) \MEDW.PUTWINDOWPROP (DISPLAYSTREAMP +NUMBERP) D-ASSEM:FIXUP-PTR (FMEMB) MODERN-ADD-EXEC (GREATERP) PFI.PRINT.MULTI.INDEX (ODDP < TYPENAMEP +CL:PACKAGEP READTABLEP) TEDIT.STRINGWIDTH (IGREATERP) CONDITIONS::PARSE-RESTART-CASE (CL:KEYWORDP) +\COERCEFONTDESC (IMAGESTREAMP LITATOM FMEMB EQUAL) DEFPACKAGE (CL:PACKAGEP CL:KEYWORDP +CL::%%PACKAGE-EXTERNAL-ONLY LITATOM STRINGP MEMB) HASHARRAY (FIXP ILESSP ZEROP MINUSP LESSP GREATERP +IGREATERP) STKNTHNAME (ILESSP) ICMLARRAY.SETVALUE (EQL) COMPILER:ENV-BOUNDP (COMPILER::VARIABLE-P +CL:MEMBER COMPILER::ENV-P) SEDIT::JOIN (FMEMB GREATERP) IMPORT (CL::%%PACKAGE-EXTERNAL-ONLY) +\TEXTSTREAMBOUT (IEQP IGREATERP ILEQ IGEQ) INVERT.TEXTURE.BITMAP (IGREATERP) CLOSENSOCKET (FMEMB) +CL:SHADOWING-IMPORT (CL::%%PACKAGE-EXTERNAL-ONLY) LRSH (IGREATERP ILEQ TYPENAMEP CL:INTEGERP) +CLISPFORVARS (LITATOM STRPOSL FMEMB SELECTQ) ONEDINSPECT.SETELT (ILESSP) CL:SHADOW ( +CL::%%PACKAGE-EXTERNAL-ONLY) \MEDW.GETWINDOWPROP (DISPLAYSTREAMP) WHO-LINE-CHANGE-USER (MENU) +\NAMEDTABSIZE (STKPOS) \LEAF.TIMEDOUT.EXCESSIVE (WINDOWWORLDP SELECTC IGREATERP DIRTYABLE FMEMB) +SPY.DELETE (EQMEMB) \NSGATELISTENER (> TIMEREXPIRED?) COMPILER:OPTIMIZE-AND-MACROEXPAND-1 (CL:ATOM +CL:SYMBOLP) CLMAPS2 (FNTYP FMEMB CLREMPARS) SUBARRAY (IGREATERP IGEQ ILEQ) \SENDSPP (SEQ.GEQ) +TEDIT.FIND.OBJECT.SUBTREE (ATOM) POSTSCRIPT.OUTSTR (FIXP STRINGP IGREATERP LITATOM ZEROP TYPEP) +INFILECOMTAIL (LITATOM) \TYPENAMEFROMNUMBER (ILESSP) CL::STRUCTURE-OBJECT-INSPECT-STOREFN ( +CL::PSLOT-ACCESSOR) SEDIT::SHIFT-DOWN (KEYDOWNP SHIFTDOWNP) \FTP.HANDLE.NO (STRING-EQUAL APPLY*) +%%COPY-STRING-TO-ARRAY (GREATERP) GETFIELDSPECS (LITATOM) \HCPYMODEBLTCHAR (IEQP IGREATERP ILESSP +FMEMB) \DRAWARC.PSC (NUMBERP ZEROP FLOATP) COMPAREDEFS (PRIN1) TB.SELECT.ITEM (TB.ITEM.UPDATABLE?) +\FTP.ERRORHANDLER (BSPOPENP) = (CL::%%< CL:NUMBERP) TTYINFIX (>=) COMP.MLL (ZEROP ILESSP IGREATERP) +\WRITEOUTBUFFERS (CPBUFFERP) BSPEOFP (ILESSP) SEDIT::OUTPUT-CR-OR-SPACE (IGREATERP) \CLEARMAP ( +DIRTYABLE FMEMB) INVERT.TEXTURE (FIXP) FILING.CALL (< GREATERP TYPENAMEP) TEDIT.UNDO.DELETION ( +IGREATERP IGEQ) \CH.CHECK.CLEARINGHOUSE (STREQUAL) \MEDW.BITBLT (BITMAPP FMEMB) SETX.PRESS (IGEQ ILEQ +IEQP) SETY.PRESS (IGEQ ILEQ IEQP) FB.THINP (FMEMB ILESSP) UNDOSAVE (IGREATERP MINUSP) \ENDVECRUN (IGEQ +) DINFO.TOGGLE.GRAPH (FM.ITEMPROP) CL:READ-CHAR (\EOFP) REMOVE-COMMENTS (CL:CONSP CL:MEMBER) +SEDIT::TRACK-SELECT (LASTMOUSESTATE MOUSESTATE) \PNC (ZEROP) TEDIT.WORDSET (ILEQ) COMP.MAP ( +COMP.APPLYFNP COMP.CLEANFNP) DASSEM.MATCHVARS (EQUAL DASSEM.CANSHAREBINDING) \ACTONDISKPAGES ( +EMADDRESSP DISKWRITEACTION? PTRGTP IGEQ DISKREADACTION?) SEDIT::SMART-TTYFN (BOUNDP) DATATYPES ( +GREATERP) CL::STRUCTURE-OBJECT-PROPCOMMANDFN (TYPEP CL::PSLOT-READ-ONLY) CLOSEBSPSTREAM (SELECTC +TIMEREXPIRED?) %%COPY-ONED-ARRAY (GREATERP) CHAT.TAKE.INPUT1 (NLSETQ) \SLOWHCPYMODEBLTCHAR (IGREATERP +ILESSP FMEMB) \FTP.OPENFILE (SELECTQ) \GR.CONTENTS (LITATOM) \CLEARBYTES (IGREATERP ODDP) FB.SEEFULLFN + (GREATERP) CLISPFORERR (FIXPRINTIN LISPXPRINT TAILP) DATATYPEP (SMALLP LITATOM FMEMB GREATERP) \IDLER + (\OK.TO.IDLE? SMALLP \SECONDSCLOCKGREATERP VIDEOCOLOR \FLUSHVMOK? READP \SAVEVMBACKGROUND KEYDOWNP +PROCESSP TIMEREXPIRED?) SPY.DUMP.BUFFER (IGEQ ILEQ) CLISPIFYMATCHUP (FMEMB EQUAL) \DOACTONDISKPAGES ( +ILESSP IGREATERP GREATERP ILEQ) CLSTOPSCAN? (ILESSP ATOM) PUP.ECHOUSER (SELECTC PRIN1 IEQP +TIMEREXPIRED? IGREATERP) \ICONW.FORMAT.TITLE1 (>= IGREATERP FMEMB) FILEBROWSER (SMALLP EQLENGTH EVERY +CL:KEYWORDP STRING-EQUAL TTY.PROCESSP) \TEDIT2 (STRINGP) SEDIT::TRACK-EXTEND (MOUSESTATE) +TEDIT.WORDGET (IGREATERP) \WRITEDISKPAGES (ILESSP EMADDRESSP DISKWRITEACTION? PTRGTP) PRINTXIP (FMEMB +IGREATERP) \FIXLINELENGTH.IP (IGREATERP) TEDIT.QUIT (PROCESS.FINISHEDP) \DOWRITEDISKPAGES (ILESSP ILEQ + GREATERP IGREATERP) SI::INVOKE-ACTUAL-RESTART (CONDITIONS::RESTART-FUNCTION) DINFO.TOGGLE.MENU ( +FM.ITEMPROP) TTADJUSTWIDTH (ILESSP) ADD-SYMBOL (<= >=) DASSEM.EQCONSTANTP (FIXP IGEQ) +TEST-PROCEED-CASE (CONDITIONS:RESTART-NAME) LOG (FGREATERP FLESSP) FB.FASTSEE.ONEFILE (DIRECTORYNAMEP) + \BSP.SETFILEPTR (IGEQ) DINFO.UPDATE (OBTAIN.MONITORLOCK) MAPPAGE (ILEQ) TEDIT.FIND.OBJECT (ATOM) +\LISPERROR (SMALLP) PRINTDEF (SYNTAXP IMAGESTREAMP NUMBERP GREATERP) INSTALL-WHO-LINE-OPTIONS (BOUNDP +WINDOWP) \HASHRECLAIM (\EQREFCNT1) \MAPPAGE (ILEQ DIRTYABLE DIRTYP CPBUFFERP) DO.MOUSE (KEYDOWNP +LASTMOUSESTATE >) HASHOVERFLOW (FLOATP FIXP FNTYP NUMBERP) \SETEOF (IGEQ IGREATERP) CLMAPS1 (FGETD +EVERY) STORAGE (GREATERP FIXP < > ERROR =) \GR.DELDEFFN (LITATOM LISTGET) DWIMIFY1A (FIXPRINTIN +NUMBERP) TEDIT.REDO.INSERTION (IEQP IGEQ) SPY.MAKE.TREE (WINDOWP) \NSFILING.GDATE (EQUAL) +\HASHTABLE.DEFPRINT (IGREATERP) \STORAGE.TYPE (< >=) POSTSCRIPT.SET-FAKE-LANDSCAPE (ZEROP) +\BITBLT.BITMAP.SLOW (ILEQ FIXP) \STORAGE.HUNKTYPE (>=) \COLLECTDIRTYBUFS (DIRTYP CPBUFFERP) +\STRINGWIDTH.PRESS (LITATOM IGREATERP STRINGP) DBG::FIND-ORIGINAL-NAME-AND-DEFINITION (CL:SYMBOLP +CL:ATOM CL:MEMBER) TEXTUREOFCOLOR (IGREATERP) \VFMBlankInterval (GREATERP) ONEDINSPECT.SELECTPROP ( +EQUAL) \LEVELTEXTURE (ILESSP) \PUNT.BITBLT.BITMAP (ILEQ FIXP) SEDIT::LINEARIZE-LIST (IGREATERP FMEMB) +\STRINGHASHBITS-UFN (STRINGP LITATOM IGREATERP) XCL:PROFILE-P (CL:CONSP CL:SYMBOLP EVENP) +\FM.NUMBER-CHANGESTATE (EQUAL) COURIER.REP.LENGTH (LITATOM) CL:AREF (<) \STRING-EQUAL-HASHBITS-UFN ( +STRINGP LITATOM IGREATERP) \BSPBACKFILEPTR (IGREATERP) \STMDSTYPE (>= < >) TEDIT.EDIT.OBJECT ( +IMAGEOBJP APPLY*) BRH/LAYOUT (IGREATERP) \GETDISKCB (\CLEANUPDISKQUEUE) INCORNER.REGION (ILEQ IGEQ +NEARTOP) \XIPERROR (EQNSHOSTNUMBER) NTH (IGREATERP) \IFS.LOOKUPFILE (GREATERP >) COMP.SELECTQ (FMEMB +COMP.PREDP) \CLEANUPDISKQUEUE (IGREATERP) DINFO.TOGGLE.TEXT (OBTAIN.MONITORLOCK FM.ITEMPROP) +\CODEARRAY (IGREATERP) \MEDW.TOTOPW (OPENWP OPENW) TB.NORMALIZE.ITEM (> <) SEDIT::SHRINKFN (EQMEMB +OBTAIN.MONITORLOCK) WHO-LINE-WHAT-IS-RUNNING (MEMB) \DRAWPOINT.PSC (BITMAPP) \PUNT.BLTSHADE.BITMAP ( +ILEQ FIXP) TEDIT.SETSYNTAX (LITATOM STRINGP ILEQ) \PAGED.GETNEXTBUFFER (OPENED ILESSP IGEQ IEQP) +\CREATEINTERPRESSFONT (LITATOM) TURN.OFF.ETHER (GETD) \PAGED.FORCEOUTPUT (DIRTYABLE DIRTYP CPBUFFERP) +SETREADFN (DISPLAYTERMP FGETD DISPLAYSTARTEDP) \CARET.FLASH (\CARET.SHOW) \CLIPLINE (GREATERP) +\PAGEDSETFILEPTR (>) DASSEM.DSTOREFNDEF (FIXP IGEQ ILEQ) FASL::DUMP-INTEGER (<= <) FILEWATCH (LITATOM +STRINGP) \PAGED.SETEOFPTR (OVERWRITEABLE APPENDABLE) ARGINFO-MUNG (CL:CONSP) SEDIT::INPUT-TOKENDELIM ( +SEDIT::EQ-POINT-TYPE) \UPDATEOF (IGREATERP) COMPARELISTS (COMPARELST) DINFO.TOGGLE.HISTORY ( +FM.ITEMPROP) TB.FIND.PREVIOUS.TAIL (<) \PAGEDREADP (\PAGEDEOFP IGREATERP) DELFROMCOMS (LITATOM) +CLISPIFYMAPS (EDITFINDP CLREMPARS) \CHECKARRAYBLOCK (UNLESSRDSYS ILESSP EQPTR) XCL:OPEN-STREAM-P ( +STREAMP) SEDIT::OUTPUT-CONSTANT-STRING (SEDIT::NEXT-LINEAR) \GR.PUTDEFFN (LITATOM LISTGET EQUAL) +\ALLOCBLOCK.OLD (GREATERP ILESSP IGREATERP) XCL:ECHO-STREAM-INPUT-STREAM (XCL:ECHO-STREAM-P) +NS.ECHOUSER (SELECTC = PRIN1 TIMEREXPIRED? >) TWODINSPECT.REDISPLAY (EQUAL IGREATERP) +WHO-LINE-TTY-STATE (PROCESS.FINISHEDP MEMB) \ALLOCBLOCK.NEW (IGREATERP) XCL:ECHO-STREAM-OUTPUT-STREAM +(XCL:ECHO-STREAM-P) \FM.NUMBER-SETUP (FMEMB) FILENAMEFROMID (EOFP EQL GREATERP) \ALLOCHUNK (IGREATERP +FMEMB ILEQ POWEROFTWOP ILESSP) XCL:TWO-WAY-STREAM-OUTPUT-STREAM (XCL:TWO-WAY-STREAM-P) NSNETDAYTIME0 ( +GREATERP) TOPW.REPAINTFN (IGREATERP) NEARESTCORNER (ILESSP) \HANDLE.RAW.XIP (SMALLP IGEQ) TTPRINSPACE +(>=) \DSPTRANSLATE.PSC (ZEROP) \MAIKO.ALLOCBLOCK (ILESSP IGREATERP ILEQ) \BSP.HANDLE.DATA (\RTP.FILTER + ILEQ IGREATERP ILESSP IEQP) \NEWLENGTHIS (ILESSP) CLISPIFYCROPS (LITATOM FMEMB SOME APPLY* +CLISPNOEVAL CLISP3B) XCL:TWO-WAY-STREAM-INPUT-STREAM (XCL:TWO-WAY-STREAM-P) COMP.NUMBERTEST ( +COMP.PREDP FMEMB) CHCON (LITATOM STRINGP GREATERP) INSURE.RGB.COLOR (FIXP LITATOM HLSP RGBP) +TTYINREADP (LINEBUFFER-EOFP) \MERGEFORWARD (\CHECKARRAYBLOCK) CLISPIFYRPLAC (SUBRP) +XCL:CONCATENATED-STREAM-STREAMS (XCL:CONCATENATED-STREAM-P) \MEDW.REDISPLAYW (SUBREGIONP) \LINKBLOCK ( +ILESSP) \SETETHERFLAGS (>=) UNPACK (LITATOM STRINGP GREATERP) TEXTOBJ (PROCESSP WINDOWP DISPLAYSTREAMP +) \TEDIT.WORDBOUND.READTABLE (GREATERP ILEQ) \CARET.FLASH? (TIMEREXPIRED? DISPLAYSTREAMP +IMAGESTREAMTYPEP \CARET.FLASH) XCL:BROADCAST-STREAM-STREAMS (XCL:BROADCAST-STREAM-P) \CLIPCURVELINE.IP + (> GREATERP) \VANILLADISKINIT (GREATERP) \DELETEBLOCK? (IGEQ) XCL:SYNONYM-STREAM-SYMBOL ( +XCL:SYNONYM-STREAM-P) TEDIT.GETSYNTAX (IGREATERP LITATOM STRINGP) EDITFROMFILE (FMEMB LITATOM MEMBER +LOOKIN ERSETQ) CLISPIFYCROPS1 (MINUSP NUMBERP IGREATERP) \PREFIXALIGNMENT? (IGREATERP) +XCL:FOLLOW-SYNONYM-STREAMS (XCL:SYNONYM-STREAM-P) \FM.EDIT-INSERT (FMEMB ATOM APPLY* ILEQ IGREATERP) +BRIEFLY-DESCRIBE-SYMBOL (CL:FBOUNDP) INTEGERLENGTH (NBITS.OR.LESS IGREATERP TYPENAMEP) \BSP.HANDLE.ACK + (\RTP.FILTER ILESSP IGEQ IGREATERP ILEQ) \VANILLAHOSTNAMEP (GETD) \VFMCreateIntervals (BOUNDP ZEROP +EQL) \LOCATE.NSNET (= <) DCHCON (LITATOM STRINGP GREATERP) \NSFILING.GETEOFPTR (DIRTYABLE) +\MEDW.SHAPEW (\USERFNISDON'T LESSP EQUAL) \NSFILING.GETFILEINFO.FROM.PLIST (SMALLP) CLISPNOTVARP ( +BOUNDP FMEMB RELSTK GETPROP) \SFFIXLINELENGTH (BOUNDP) \CHECKFORSTORAGEFULL (ILESSP ILEQ IGREATERP +IGEQ) \LFOpenDevice (\PFVersionOK \LFDirectoryP) DASSEM.DWRITEFN (DASSEM.SAVELOCALVARS FIXP IGEQ ILEQ) + SCALE.FONT (GREATERP) ICMLARRAY.DOWINDOWCOMFN (MEMB) DUNPACK (LITATOM STRINGP GREATERP) +\TEDIT.SEARCH.CODETABLE (GREATERP) EXPRCHECK (LITATOM GETD) DWIMARKASCHANGED (LITATOM FASSOC) +ALPHORDER (LITATOM STRINGP NUMBERP GREATERP IGEQ ILEQ ILESSP) COURIER.OPEN (ILEQ) BLOCK (FIXP) +CASEARRAY (GREATERP) \SETBRUSH.IP (NUMBERP <=) BKLINBUF (STRINGP IGREATERP) \ARRAYBLOCKMERGER ( +IGREATERP ILESSP) \TEDIT.INTERRUPT.SETUP (WINDOWPROP) SEDIT::INPUT-QUOTE (FMEMB) TEDIT.MOVE (ZEROP) +FREEATTACHEDWINDOW (ILEQ IGEQ) TEXTSTREAMP (STREAMP) \ACCHARWIDTHLIST (ZEROP) PAGEHEIGHT (NUMBERP) +PACKC (IGREATERP ILEQ LESSP) UnixPrintCommand (FIXP) \LOOKUPFMAP (IGEQ ILEQ) TB.UPDATE.DISPLAY (>= <= +TB.ITEM.UPDATABLE? >) \READACFONTBOXES (GREATERP IGREATERP) CL::BUILD-COPIER-TYPE-CHECK ( +CL::PS-PREDICATE) \WHICHPART (ILEQ) \GETFBB (IEQP IGREATERP ILESSP) \COPYARRAYBLOCK (IEQ) +DASSEM.DASSEM (IGEQ ILEQ FIXP ILESSP IGREATERP FMEMB LITATOM) \NEW.READ.SYMBOL (STRINGP) PACK (STRINGP + LITATOM IGREATERP) COMP.GETBASEBITS (OPT.CALLP ILESSP IGREATERP) COPYALL (LITATOM SMALLP CL:CHARACTERP + FMEMB) \MEDW.EXPANDW (OPENWP \USERFNISDON'T) WXOFFSET (NUMBERP) OPEN (CL:MEMBER) \SAVELINEBUF ( +\PAGEDEOFP >) COMPILER::PRINT-NODE (COMPILER::LITERAL-P) \ADVANCE.ARRAY.SEGMENTS (IGEQ) TTY.PROCESS ( +OPENWP HASTTYWINDOWP) \LFINITCASEARRAY (GREATERP) LITATOM.EXISTS (ATOMHASH#PROBES) \3MBFLUSH ( +\READRAWPBI) \PAGEPAD.PRESS (IGREATERP) \CREATESTARFONT (\GETCHARSETINFO) \PFTransferFilePage (FIXP) +\NEW.MKATOM (ILEQ IGREATERP IGEQ) FIND-DEBUGGER-ENTRY-FRAME (FMEMB GENSYM?) SETDISPLAYHEIGHT (SMALLP +IGREATERP) COMP.DELFIX (OPT.CALLP) \FAMILYCODE (GREATERP) SEDIT::PLACE-CARET-AND-SELECTION (INSIDEP) +FB.ANALYZE.PATTERN (STREQUAL) WYOFFSET (NUMBERP) PLAYTUNE (TIMEREXPIRED?) \TEDIT.PROCEXITFN ( +WINDOWPROP) COMP.STFIX (NUMBERP) ONEDINSPECT.SELECTITEM (EQUAL) \LITATOM.EATCHARS (GREATERP) +\MEDW.SHRINKW (OPENWP WINDOWP STRINGP) OPENPOSTSCRIPTSTREAM (CL:PLUSP EQL MENU) CL:INTERN (STRINGP +CL:STRINGP) SPY.MAKEGRAPHNODES (ZEROP ILESSP) CLISPACKUP (ATOM FMEMB LITATOM STRPOSL FRPLACA NUMBERP +MINUSP) \3MBWATCHER (ILESSP) \ACCHARPOSLIST (GREATERP IEQP) CCODEP (LITATOM) PAGEFULLFN ( +DISPLAYSTREAMP TTY.PROCESSP) UnixShellQuote (<= FMEMB) BRECOMPILE (RANDACCESSP NLSETQ) MAKEBITTABLE ( +ILEQ GREATERP IGREATERP) TTNTHLINE (ILEQ) CL::DEFINE-COPIERS (CL::PS-TEMPLATE) EXCHANGEXIPS ( +TIMEREXPIRED? IEQP) DBG::DEBUGGER-BUTTON-EVENT (LASTMOUSESTATE) TEDIT.SETSEL (IGREATERP) COMP.EXPR ( +COMP.PREDP COMP.NOSIDEEFFECTP LITATOM NUMBERP GET) \NSFILING.HOSTNAMEP (STRPOS) +\BSP.HANDLE.INTERRUPTREPLY (\RTP.FILTER IEQP) DISPLAYSTREAMP (SOME) \LEAF.REPAIR.BROKEN.PUP (SELECTC) +CONCOCT-SYMBOL (CL:MEMBER CL:FIND-SYMBOL) \BSP.HANDLE.INTERRUPT (\RTP.FILTER) TB.ITEM.UPDATABLE? ( +TB.ITEM.VISIBLE? <) NEWPAGE?.IP (LESSP) \SETFATSYNCODE (ILEQ) \FM.EDIT-ITEM (MOUSESTATE ZEROP READP +TIMEREXPIRED? TTY.PROCESSP LASTMOUSESTATE \FM.ONITEM IGEQ) \BCPLSOUT.PRESS (GREATERP) SCANX (IGREATERP + ILESSP) FB.CHECK.NAME.LENGTH (>= > <) \SHOW.ARRAY.FREELISTS (\BLOCKDATAP IGEQ GREATERP IGREATERP) +COMP.FMEMB (COMP.PREDP FMEMB) FILEPOS (ARRAYP LITATOM FIXP IGEQ IGREATERP SMALLP) TERMINAL-INPUT (IGEQ +) \LFCreateDirectories (BOUNDP ZEROP EQL) \M44DOEXTENDVMEMFILE (GREATERP ILESSP ILEQ) SHRIEKIFY ( +LITATOM FNTYP BOUNDP EDITFINDP) EDITDATE (EQMEMB) XTOUSTRING (ILESSP) CLISPFORVARS1 (STRPOSL LITATOM) +\STREAMCHARWIDTH (DISPLAYSTREAMP IGREATERP IGEQ ILESSP) NSNAME.TO.STRING (STRING-EQUAL) +\TEDIT.GET.TERMSA.WIDTHS (GREATERP) \NSFILING.CLOSE.BULKSTREAM (OPENP) TEDIT.SETFUNCTION (ILEQ LITATOM + STRINGP) TERMINAL-OUTPUT (IGEQ) \NSFILING.ERRORHANDLER (NLSETQ GREATERP) FFILEPOS (LITATOM IGREATERP +ILESSP FIXP IGEQ ARRAYP SMALLP) \FTP.GETFILEINFO.FROM.PROPS (FIXP) \PARSEARRAYSPACE1 (EQPTR) +\SETUP.FFILEPOS (GREATERP LESSP IGEQ) COMP.NUMBERCALL (FMEMB) UnixTempFile (BOUNDP STRING-EQUAL +GREATERP INFILEP) CHANGEBACKGROUNDBORDER (SMALLP) FASL::DUMP-ARRAY (DISPLACED-ARRAY-P +CL:ADJUSTABLE-ARRAY-P TYPEP) SHOW.PRESS (IGREATERP ILESSP ILEQ) COMP.GETD (COMP.PREDP) \CHDEL1 ( +\BACKCCODE) \BSP.HANDLE.ERROR (IGREATERP) POSTINITARRAYS (IGREATERP IGEQ ZEROP MINUSP LESSP GREATERP) +\ECHOCHAR (IGEQ ILEQ) COMPILER::GENCODE-TAGBODY-INLINE (COMPILER::TAGBODY-CLOSED-OVER-P +COMPILER::SEGMENT-CLOSED-OVER-P) TB.CLOSE/SHRINK (OBTAIN.MONITORLOCK) PSCFONT.READFONT (GREATERP) +INTERPRESS.BITMAPSCALE (GEQ) \TEDIT.COPYINSERTFN (STRINGP IMAGEOBJP) CLREMPARS (ATOM FGETD STRPOSL) +ICONW.TITLE (OPENWP) DINFO.TITLEMENUFN (OBTAIN.MONITORLOCK FGETD) \INTERPRETER1 (<) \BSP.TIMERFN ( +SELECTC TIMEREXPIRED?) TEDIT.FIND (STRINGP LEQ LITATOM GREATERP) TEDIT.GETFUNCTION (LITATOM IEQP +IGREATERP) SEARCHPRETTYTYPELST (LITATOM) COMP.NUMERIC (FMEMB OPT.CALLP NUMBERP IGREATERP EQL MINUSP) +\GETCHAR (IGEQ ILEQ) MSCLOSEFILES (OPENP) \STACKARGPTR (STACKP TYPENAMEP NUMBERP IGREATERP EQMEMB IGEQ +) SEDIT::LINEAR-ITEM-WIDTH (FIXP) \FILLBUFFER (IGEQ ILEQ IGREATERP \FILLBUFFER.WORDSEPRP SELECTC +\INCPARENCOUNT) FW-PERCENTAGE (IGEQ IGREATERP) \STARTDISPLAY (LESSP) SEDIT::EDIT-HELP (ILEQ) +\FILLBUFFER.WORDSEPRP (IGREATERP) CL::%%RATIO-PRINT (IGREATERP) \MEDW.MOVEW (FMEMB SUBREGIONP +POSITIONP NUMBERP REGIONP ILESSP IGREATERP) TB.FIND.SELECTED.ITEM (GREATERP) +SEDIT::COMPUTE-POINT-POSITION-LIST (SMALLP) NEWFAULT1 (LITATOM) CHARWIDTH (SMALLP) CL:ADJOIN ( +CL::%%COMPLEX-MEMBER CL::%%SIMPLE-MEMBER) SEDIT::FN-CHANGED (CCODEP) ICMLARRAY.DISPLAYSLICE (GREATERP) + FAULTAPPLY (CCODEP CL:SYMBOLP TYPEP) COMP.COMPARENUM (SELECTQ FMEMB) DSPBACKUP (DISPLAYSTREAMP +IGREATERP) CL::%%BUILD-RATIO (MINUSP) DBG::RELEASE-DEBUGGER-WINDOW (WINDOWP) DINFOGRAPH (WINDOWP) +\UNPACKDATE (FIXP >) BRECOMPILE3 (EXPRP) CL::%%COMPLEX-PRINT (IGREATERP) \CreateScreenBitMap ( +IGREATERP GREATERP BITMAPP) FM.SKIPNEXT (FM.EDITP PROCESSPROP) \ENTITYEND.PRESS (ODDP) VIDEOCOLOR (ARG +) CL::%%COMPLEX-+ (=) \SETUP-COMPILED-CLOSURE-CALL (ILESSP GREATERP) \TEDIT.FORMATTEDP1 (ILEQ +IGREATERP IEQP) \STOPSCROLL? (SMALLP) \PRINTFMAP (SMALLP GREATERP) \LEAF.USE.NEW.CONNECTION (FMEMB +DIRTYABLE) RECREDECLARE1 (RECREDECLARE2) SPY.MERGEINFO (FMEMB STRPOS) TERMX (IGREATERP ILESSP) +CL::%%NOT-NONCOMPLEX-NUMBER-ERROR (CL:NUMBERP) CLISPAND1 (LITATOM) MAKEKEYLST (EQUAL) \3MBSENDPACKET ( +> UNINTERRUPTABLY) \FIXP.FROM.FLOATP (FLOATP IGREATERP SMALLPOSP SMALLP ILEQ ILESSP) COMPILER::TEST-ALPHA-2 + (CL:CONSP) CL::%%COMPLEX-/ (=) \PACKDATE (> < \ISDST?) COMPILER::GENCODE-TAGBODY ( +COMPILER::TAGBODY-NEW-FRAME-P COMPILER::TAGBODY-CLOSED-OVER-VARS) \PUTBASE (SMALLPOSP SMALLP) +\IDATESCANTOKEN (DIGITCHARP IGEQ ALPHACHARP) \DSCCOUT (IGREATERP ILESSP) CL::%%COMPLEX-* (=) ARGLIST ( +LITATOM TYPEP) \DSPFONT.IP (>=) CL:/= (CL::%%<) BYTE (<) \PROMPTWINDOW.SET.HEIGHT (ILESSP) WFROMDS ( +WINDOWP IMAGESTREAMP IMAGESTREAMTYPEP) FB.EDITLISPFILE (STRING-EQUAL GET BOUNDP MOUSECONFIRM) +COMP.SHIFT (IGREATERP) CL::%%COMPLEX-- (=) DBG::CLOSE-DEBUGGER-WINDOW (PROCESSP PROCESS.EVALV) +CLISP-SIMPLE-FUNCTION-P (FGETD GET CL:MACRO-FUNCTION GETLIS) \FREESTACKBLOCK (ILESSP SELECTC IGEQ) +PROMPTPRINT (GREATERP) \MEDW.CLOSEW (FMEMB) COMPILER::TRANSFORM-GET/PUT-BASE (COMPILER::LITERAL-P +CL:INTEGERP) CL::%%RATIO-TIMES (MINUSP) \SETUP-ENVIRONMENT-CALL (> >=) \ICONW.FORMAT.TITLE (GEQ LEQ +LESSP) MAKEFILES (FILES?1) TEDIT.INSERT.OBJECT (ILEQ IGREATERP IEQP) DISPLAYSTREAMINIT (NUMBERP +IGREATERP) \RPLRIGHT (IGREATERP IGEQ) \FTP.UNPACKFILENAME (> U-CASEP) SEDIT::SEDITL (BOUNDP) +TEDIT.MAPLINES (ILESSP) \OUTDATE-STRING (GREATERP) InstallUnixPrinter (EQMEMB) COMP.ST (FIXP) +\GETMISCNSOCKET (FMEMB) CHAT.EMACS.MOVE (IGEQ ILESSP IGREATERP) CL:ACOSH (CL:COMPLEXP <) CLISP3A ( +SELECTQ EQMEMB) PROCESSWORLD (TYPENAMEP MEMB) CLISPCOND1 (CLREMPARS) SEDIT::PARSE--LIST (LITATOM) +CL:ATANH (CL:COMPLEXP > CL:ZEROP =) \COERCEASCIITONSFONT (GREATERP) ADD.PROCESS (GREATERP FMEMB) +\MEDW.OPENW (FMEMB) CHANGEBACKGROUND (TEXTUREP BITMAPP) COMPILEUSERFN1 (TAILP) FB.CLOSEFN ( +OBTAIN.MONITORLOCK) PUTPROPS.PRETTYPRINT (FITP) TRIM.BITMAP (GREATERP BIT.IN.COLUMN LESSP BIT.IN.ROW) +CL::%%RECIPROCOL (CL:FLOATP) SEDIT::CFV-LIST (FMEMB ILESSP) NEWPAGE.IP (ZEROP EQP) DISPLAYGRAPH ( +DISPLAYSTREAMP IGREATERP) \TEDIT.READTABLE (ILEQ) CL:ASINH (CL:COMPLEXP) \3MBGETPACKET ( +UNINTERRUPTABLY) SEDIT::SEDITE (CL:CONSP) \MOVE.WINDOWS.ONTO.SCREEN (GREATERP) CLISPFOR1 (FNTYP FMEMB +EVERY) CL:ATAN (CL:COMPLEXP CL:ZEROP =) \FTP.OPENFILE.FROM.PLIST (\FTP.HANDLE.NO BSPOPENP) FAULTEVAL ( +LITATOM EQUAL FMEMB) \ADDLEAFSTRING (LITATOM IGREATERP GREATERP) DINFO.OPENTEXTSTREAM (EQUAL) +\DSPLINEFEED.PRESS (NUMBERP) CHAT.HOLD (MOUSESTATE) SPY.UPDATE.TITLE (INSIDE? MOUSESTATE) +PUTWINDOWPROP (DISPLAYSTREAMP) SEDIT::INPUT-NORMAL-CHAR (IGREATERP ILESSP) TB.REV.FIND.SELECTED.ITEM ( +LESSP) \LONUM (ILEQ TYPENAMEP CL:INTEGERP) SETXY.PRESS (IGEQ ILEQ) INITX (IGREATERP ILESSP) \HINUM ( +ILEQ TYPENAMEP CL:INTEGERP) COMP.RPLACD (OPT.CALLP) \LINEBUF.EOFP (\PAGEDEOFP) BLOCKCOMPILE1 (MEMB +ASSOC EXPRP FMEMB) APPLY (LITATOM) ICMLARRAY.MENUW.SHOW (GREATERP) INVERT.BITMAP.VERTICALLY (GREATERP) + XCL::SFLOOR (= <) APPLY* (IGREATERP LITATOM CCODEP GREATERP) SEDIT::EXTRACT-CURRENT-SELECTION (NLSETQ +) LINEBUFFER-SKIPSEPRS (\PAGEDEOFP SYNTAXP) DINFO.SHOWSEL (STRINGP) CHAT.MENU (LASTMOUSESTATE) CL:CIS +(TYPEP) CL::%%GCD (EQL) TB.FIND.ITEM (<= CL:FUNCALL) CLISP4 (EQMEMB GETHASH SOME LITATOM BOUNDP FMEMB +FGETD) SEDIT::CREATE-COMMAND-TABLE (CL:CONSP) RECORDTRAN (GETSETQ FMEMB) EDITFNS (GETPROP) +\MOUSE.PROCESS (PROCESS.EVALV TTY.PROCESSP) POSTSCRIPT.FONTSAVAILABLE (EQUAL MEMBER GREATERP) +ICMLARRAY.MENUW.APPLY (GREATERP IGREATERP) PRINTLINE (IGEQ ILEQ GREATERP SMALLP) +\PERIODICALLY-WHO-LINE-SHOW-ACTIVE (TIMEREXPIRED? OPENWP TOPWP) \SETSPACE.PRESS (ILEQ) \MAIKO.CONS.UFN + (ZEROP IGREATERP) \TEDIT.INSPECTCODE (LITATOM CCODEP DEFINEDP) ONEDINSPECT.REDISPLAY (EQUAL IGREATERP +) CL:CLOSE (STREAMP OPENP DIRTYABLE APPENDONLY) XCL::SCEILING (= <) COMPILER::GENCODE-RETURN ( +COMPILER::BLOCK-NEW-FRAME-P) RELSTK (STACKP) COMPILER::IS-CALL-TO (COMPILER::CALL-P COMPILER::VAR-REF-P +) \TIMER.PROCESS (TIMEREXPIRED?) XCL::SROUND (CL:FLOATP) \EVALV1 (\DTEST) INTERPRESSFILEP (GREATERP +EOFP) \DTSCAN (IGREATERP) CL:COSH (CL:COMPLEXP) \FM.NWAY-SELECTEDFN (\FM.NWAYPROP) EQFMTSPEC (EQP +EQUAL) \ISDST? (\CHECKDSTCHANGE) SEDIT::GET-DESTINATION-CONTEXT (PROCESS.EVAL) +DBG::CREATE-DEBUGGER-WINDOW (HASTTYWINDOWP) CLISPCOND (CLREMPARS) COMP.LABELS (FMEMB) \PRINTCCODE ( +\CHARCODEP SMALLP) BRECOMPILE1 (LITATOM MEMB ATOM BRECOMPILE2) \GR.METHODEXPANDER (FNTYP) +\TEDIT.SHRINK.ICONCREATE (IGREATERP FMEMB EQUAL) PRINTCCODE (\CHARCODEP SMALLP) TWOD.TRACKCURSOR ( +MOUSESTATE ILESSP IGREATERP) \SETFVARSLOT (NULL-NTENTRY EQP) TEDIT.DEACTIVATE.WINDOW (PROCESSP OPENWP +\TEDIT.WINDOW.TITLE) CL:DECODE-FLOAT (=) PROG (\DTEST) COMPILEUSERFN (FMEMB) CL:DECODE-UNIVERSAL-TIME +(>) \CLOSELEAFCONNECTION (CLOSESEQUIN) FW-RECALL-CMD (OPENP) PAINTW.CACHE.SHADE (EQUAL) +ICMLARRAY.MENUW.GETLEVEL (ILESSP GREATERP STRINGP STREQUAL FIXP GEQ LESSP) PRINTLEVEL (IGEQ) +\INITCONSPAGE (ZEROP IGREATERP) GREETFILENAME (STREQUAL MEMB) PRINT-CIRCLE-LABEL-P (CL:INTEGERP) +\ALLOCMDSPAGE (SMALLP) \NSFILING.EVENTFN (DIRTYABLE) PFI.MAYBE.PP.DEFINITION (DISPLAYP) TTY/EDITL ( +SOME NLSETQ) CLISPFOR (CLISPELL) \INVALIDATE.PROCESS.WINDOW (ACTIVEWP) CreateCursorBitMap (GREATERP) +DELETE/AND/DISPLAY/LINK (MEMBTONODES) INVERT.BITMAP.HORIZONTALLY (GREATERP) CL:ARRAY-RANK ( +%%ONED-ARRAY-P %%TWOD-ARRAY-P %%GENERAL-ARRAY-P) COMPILER::ENSURE-EFFECT-CONTEXT (EQL CL:MEMBER) +DSPRUBOUTCHAR (DISPLAYSTREAMP) \FIXLINELENGTH.PRESS (IGREATERP) \GET.PRIORITY.QUEUE (IGREATERP) +\CHECKDSTCHANGE (ILESSP) TTGIVEHELP2 (LITATOM STRINGP STRPOS DISPLAYHELP) \SET.PROCESS.NAME ( +FIND.PROCESS) CLISP3C (BOUNDP FNTYP FMEMB NUMBERP) NUMBERPAD.READER.HANDLE.CHAR (NUMBERP GEQ) +DISPLAY/NUMBER/READER/TOTAL (GEQ GREATERP) CHECKCONSPAGES (ZEROP) BSP.PUTINTERRUPT (BSPOPENP +TIMEREXPIRED?) INVERT.LONG.SEGMENT (EQPOS) \LFExtendFileIfNecessary (WITH.MONITOR GREATERP) SPP.OPEN ( +TIMEREXPIRED? FNTYP) \MAPMDS (GREATERP) COURIER.WRITE.BULKDATA (IGREATERP GREATERP) +\DSPYPOSITION.HCPYMODE (NUMBERP) \CHECKCONSPAGE (IGREATERP) SEDIT::SET-OPTIONS (CL:LISTP) +MAKE-CONCATENATED-STRING-INPUT-STREAM (CL:REST) CL::%%CONSTANT-BYTESPEC-P (TYPEP CL:CONSP CL:INTEGERP) + DASSEM.CLEANFNTEST (LITATOM) FTP.BREAKCONNECTION (FMEMB) SMASHFILECOMSLST (LITATOM) CURSOR ( +\CURSOR-VALID-P) CL:DISASSEMBLE (CCODEP CL:SYMBOLP) TB.DISPLAY.LINES (GREATERP <) +\TEST.CHARACTER.LOOKS (NUMBERP) CL::OPTIMIZE-BYTE (TYPEP) COMPILER::EXPAND-OPENLAMBDA-CALL (CL:NOTEVERY + CL:SYMBOLP CL:MEMBER) TITLEDICONW (GREATERP) MSUPDATE (FIXP IGREATERP) CL::%%RATIONAL-FLOAT (= <) +\ADJUSTABLE-STRING-STREAM-OUTCHARFN (IEQP) \LFRemoveDirEntry (\EOFP CL:ZEROP ILESSP) +CL:ENCODE-UNIVERSAL-TIME (< > GREATERP = \ISDST?) SEDIT::SIMPLE-STRING-SCAN (IGREATERP ILESSP) +\TEST.PARAGRAPH.LOOKS (NUMBERP SELECTQ IGREATERP) CL::%%RATIONALIZE-FLOAT (= <) \KEYHANDLER1 ( +IGREATERP \CAUSEINTERRUPT IGEQ ILEQ \UPDATETIMERS ILESSP) \PRINSTACKP (IGREATERP RELSTKP LITATOM) +COMP.STFN (LITATOM) MAKE-FILL-POINTER-OUTPUT-STREAM (CL:ARRAY-HAS-FILL-POINTER-P EXTENDABLE-ARRAY-P) +SEDIT::FIND-NODE (IGREATERP) \PRINSTRING (IGREATERP) MAKEFILE (EQMEMB EQUAL STRING-EQUAL INFILECOMS? +FMEMB FIXSPELL) DOFILESLOAD (BOUNDP LITATOM STRINGP GETPROP SELCHARQ FMEMB) EDITFB (GETPROP) +COMP.TAGBODY (LITATOM OPT.JUMPCHECK) \CKPOSBOUT (IGREATERP) LET (\DTEST) FB.HARDCOPY.DIRECTORY (< >) +\FM.NWAY-MOVEDFN (OPENWP) \CKPOSSOUT (IGREATERP) XYSECT (IGEQ) COMPILER::COMPLETELY-EXPAND (CL:ATOM +CL:MEMBER) CLISP3 (NUMBERP MINUSP SOME CLISPNOEVAL LITATOM FGETD CLISP3B) \SPY.INTERRUPT (IGEQ) +PROCESSP (DEADPROCP) SEDIT::QUERY-THROW-AWAY-CHANGES (EQMEMB) \AB.BACK (FIXP SELECTQ IGREATERP ODDP) +CL:DIRECTORY (EQL) TTRACKMOUSE (MOUSESTATE >= < COMPLEXCHARP) CL:FILE-LENGTH (STREAMP OPENP) \LITPRIN +(FIND-EXACT-SYMBOL IGREATERP >=) MAP.PROCESSES (DEADPROCP) STREAMPROP (IGREATERP) DEFINEDP (LITATOM) +\DSKDISPLAY.REPAINTFN (\LFDirectoryP) LET* (\DTEST) FASL::DUMP-CHARACTER (<) SEDIT::FIND-LINE-START ( +IGEQ) \FM.NWAY-DOWNFN (OPENWP) %%CONCATENATED-STREAM-DEVICE-BIN (EOFP) \DSPXPOSITION.IP (EQP) +COMP.RETURN-FROM (OPT.JUMPCHECK) \DURATIONTRAN (LITATOM \TIMER.TIMERP) \STRING-STREAM-OUTCHARFN (IEQP) + CL:FILE-POSITION (RANDACCESSP) ENDLOADUP (ASSOC) \MAYBEPRINTPACKET (BROADCASTP) FGETD (SMALLP) +\TEDIT.GET.PARALOOKS (IGREATERP ZEROP) SEDIT::EVAL-SELECTION (NUMBERP ATOM) MSSHOWUSE ( +CL:MULTIPLE-VALUE-SETQ) %%CONCATENATED-STREAM-DEVICE-PEEKBIN (EOFP) DRAWMARGINSCALE (GREATERP ZEROP) +CLISPIF (CLISPELL) CL:FLOAT-DIGITS (CL:FLOATP) INVERT.BITMAP.DIAGONALLY (GREATERP) \CURVE (IGEQ +IGREATERP FMEMB ILEQ GREATERP) PUTDQ? (GETD) \VFMSplit1 (IGREATERP) EDITL1 (CL:CATCH) \FM.NWAY-MESSAGE + (\FM.NWAYPROP) CL::BOA-ARG-LIST-WITH-INITIAL-VALUES (CL:SYMBOLP CL:CONSP) \DSPCOLOR.IP (STREAMPROP) +SPP.DSTYPE (READABLE) ROTATE.BITMAP.RIGHT (GREATERP) %%CONCATENATED-STREAM-DEVICE-EOFP (EOFP) +PROMPTINWINDOW (MEMB) COMP.RETURN (OPT.JUMPCHECK) CL:FLOAT-SIGN (CL:FLOATP) PROCESS.RESULT (DEADPROCP) + \LEAF.ERROR (IGREATERP) PERIODICALLYRECLAIM (\SECONDSCLOCKGREATERP) SEDIT::SIMPLE-STRING-OFFSET ( +IGREATERP) \LITPRIN.INTERNAL (< IGREATERP IGEQ ILEQ >=) TEDIT.COPY (ZEROP) SELECT.FNS.EDITOR (CCODEP) +TEDIT.KILL (WINDOWP PROCESSP DEL.PROCESS) SEDIT::SCALE-INDENT (CL:NUMBERP = CL:CONSP EQL) +CL:FLOAT-PRECISION (CL:FLOATP = <) \SPPWATCHER (\CLOCKGREATERP TIMEREXPIRED? SEQ.GREATERP) ENVAPPLY ( +LITATOM) DSPEOLFN (LITATOM) ENSURE.RGB (LITATOM HLSP RGBP) \FTP.NEXTFILE (\EOFP BSPOPENP +DIRECTORY.MATCH) PROCESS-STATUS (LITATOM STRINGP) CLISP3B (ATOM) CROPMARK.CREATE (EVERY) +\CONVERTTOFRACTION (SMALLP) \FM.NWAY-SETUP (EQUAL) TB.SCROLLFN (OBTAIN.MONITORLOCK) ROTATE.BITMAP.LEFT + (GREATERP) TB.RECONSIDERRANGE (GREATERP) COMP.GO (OPT.JUMPCHECK ZEROP) \LFFindNextFile (GREATERP +DIRECTORY.MATCH) PROCESS.FINISHEDP (DEADPROCP) \MAKESTACKP (STACKP TYPENAMEP) \PFTrimHelper (EQL +IGREATERP ZEROP) \TRACKCURSOR (IGEQ IGREATERP ILESSP) CL:FLOATP (FLOATP) FIX89A (FIXSPELL1) +\DEFPRINT.BY.NAME (IGREATERP) TB.CONSIDERRANGE (GREATERP) \SYMBOL.ESCAPE.COUNT (IGREATERP ILEQ > +\NUMERIC.PNAMEP) NCHARS (LITATOM STRINGP IGREATERP) COMPILER::GENCODE-MV-CALL (COMPILER::GLOBAL-FUNCTION-P +) \MAKEFUNARGFRAME (\DTEST) \TEDIT.BRAVOFILE? (\TFBRAVO.FIND.LAST.TRAILER \TEST.CHARACTER.LOOKS +LITATOM) CL:GET-OUTPUT-STREAM-STRING (STREAMPROP) READIMAGEOBJ (GETD MOUSECONFIRM) +\DOBUFFEREDTRANSITIONS (IGEQ \GETBASEPTR) XCL::WHERE-IS-NAMESTRING (CL:EQUAL) \NUMERIC.PNAMEP (STRINGP + LITATOM IGREATERP < <= > >= FMEMB) SEDIT::GET-CONTEXT (CL:EQUAL) STKAPPLY (LITATOM) +TWODINSPECT.MAKEREGIONS (GREATERP) CALLS (LITATOM FMEMB SUBRP CCODEP EXPRP) \SOUT (FMEMB IGREATERP) +\SAVEVMBACKGROUND (ILESSP FIXP \SECONDSCLOCKGREATERP \FLUSHVMOK? GETD) FRESHLINE (WRITEABLE APPENDABLE +) \AB.NEXT (FIXP SELECTQ IGREATERP ODDP) BRACKET.CURRENT.WORD (IGREATERP COMPLEXCHARP) MSNOTICEFILE ( +FMEMB) TEDIT.CHARWIDTH (IGREATERP ILESSP) RETAPPLY (LITATOM) \INSERTCR (IEQP) \DSPSPACEFACTOR.HCPYMODE + (NUMBERP) PNAMESTREAMP (TYPENAMEP) TTRUBOUT (AT.START.OF.LINE AT.START.OF.BUF) FAX.HOSTNAMEP (STRPOS) + \CARET.DOWN (UNINTERRUPTABLY \CARET.SHOW) CL:GET-SETF-METHOD-MULTIPLE-VALUE (CL:SYMBOLP CL:CONSP) +YSECT (IGEQ) POSTSCRIPT.INIT (BOUNDP TYPEP GREATERP FMEMB) CLISPIFY2D (LITATOM GETPROP MEMB BOUNDP) +BLIPVAL (IGREATERP ILESSP) MSCHECKEMPTY (FIXP) CL:GET-SETF-METHOD (CL:SYMBOLP CL:CONSP) +CL:INPUT-STREAM-P (\IOMODEP) GIVE.TTY.PROCESS (DEADPROCP LASTMOUSESTATE) \VAROFFSET (NULL-NTENTRY) +\CHECKFLTFMT (EVERY) NSMAP (GREATERP) SETBLIPVAL (ILESSP IGREATERP) \DSKDISPLAY.BUTTONEVENTFN ( +MOUSESTATE) WHO-LINE-SET-TIME (SHIFTDOWNP MENU) SPP.SENDEOM (APPENDABLE) BLIPSCAN (GETBASEPTR) +NEWLINE.IP (LESSP) SPY.END (OPENWP) \DRAWPOINT.IP (BITMAPP) FLTFMT (\CHECKFLTFMT) EDITBF (EDITBF1) +CL:INTEGER-LENGTH (< CL::BITS-OR-LESS-P) GETVARS (LITATOM) \TEDIT.PEEKBIN.NEW.PAGE (IEQP \EOFP) +\FTP.CLOSEFILE (BSPOPENP \EOFP) WHO-LINE-TIME (TIMEREXPIRED?) INSPECT (ERROR) APPEND (ILEQ) +\REALFRAMEP (CL:SYMBOLP LITATOM FMEMB) CL:INTEGERP (FIXP) PRINTNUM-TO-STRING (IGEQ) \SPP.PREPARE.INPUT + (ILESSP) \NSFILING.UPDATE.ATTRIBUTES (MEMB ASSOC) EXPRP (LITATOM) RECORDFIELD? (RECLOOK FMEMB) +\IPCURVE2 (NUMBERP IGEQ GREATERP IEQP GEQ FGREATERP FLESSP FGTP IGREATERP \CLIPCURVELINE.IP ILESSP) +LISPERROR (STRINGP CL:EQUAL) OPT.DS1 (COMP.CLEANFNOP FMEMB ZEROP) \SETUP.TYPENUM.TABLE (GREATERP +IGREATERP) %%TWO-WAY-STREAM-DEVICE-CLOSEFILE (XCL:TWO-WAY-STREAM-P) CL::DEFINE-CONSTRUCTORS ( +CL::PS-TEMPLATE CL:MEMBER) FIX89 (ATOM FIX89A) INSPECTW.CREATE (GREATERP) MODERNWINDOW.BUTTONEVENTFN ( +MOUSESTATE MEMB NEARTOP) TEDIT.INSERT.UPDATESCREEN (\SYSBUFP TEXTPROP ILEQ IGEQ ILESSP) ALISTS.GETDEF +(CL:SYMBOLP) \DSPLINEFEED.HCPYMODE (NUMBERP) CL:ISQRT (CL:INTEGERP >= ODDP) CLOSEMAINWINDOW ( +\OKTOCLOSEW OPENWP) \LEAF.FIX.BROKEN.SEQUIN (\CLOCKGREATERP HASTTYWINDOWP TIMEREXPIRED?) +CL:INTEGER-DECODE-FLOAT (=) XSECT (IGEQ) CLISPIFY2 (LITATOM FMEMB) MSGETDEF (CL:MULTIPLE-VALUE-SETQ) +BPNT0 (NLSETQ) COMP.PROG (LITATOM OPT.JUMPCHECK) \EVALFORM (LITATOM) DISMISS (THIS.PROCESS +TIMEREXPIRED?) COMPILER::GENCODE-LET (COMPILER::LITERAL-P COMPILER::VARIABLE-CLOSED-OVER) +\NSFILING.CLOSEFILE (DIRTYABLE) \NSADDRESS.PRINT.DECIMAL (> <) FB.INFO.ITEM.NAMED (STRING-EQUAL) +\STKARG (LITATOM ILESSP \SPREADFRAMEP IGREATERP IGEQ NULL-NTENTRY) \GC.HANDLEOVERFLOW (IGREATERP ILEQ +TYPENAMEP CL:INTEGERP) SPP.CLOSE (OPENED) RECLOOK (RECDEC?) \DRAWLINE.IP (NUMBERP < BRUSHP +\CLIPCURVELINE.IP) \DTEST.UFN (TYPENAMEP ILEQ CL:INTEGERP) MENU.HANDLER (STRICTLY/BETWEEN MOUSESTATE +INSIDE? IGEQ TIMEREXPIRED? IGREATERP ILESSP) MKATOM (STRINGP IGREATERP LITATOM NUMBERP) GET.MENU.LIST +(IGREATERP) MSOUTPUT (OPENP) FB.BROWSECOMMAND (FB.DIRECTORYP STRPOS) NEXTSIZEFONT (IGEQ ILESSP LESSP) +SCREENBITMAP (WINDOWP) TB.CONTIGUOUS.SELP (GREATERP) \MAKENUMBER (SMALLPOSP SMALLP) XCL::WHERE-IS-FILES + (CL:LISTP) \FTP.ADD.QUOTES (<=) ICONBUTTONEVENTFN (LASTMOUSESTATE) \SETBSPTIMEOUT (IGREATERP ILEQ) +ONED.TRACKCURSOR (MOUSESTATE ILESSP IGREATERP) CL:LOGCOUNT (MINUSP TYPENAMEP) TB.REPAINTFN ( +OBTAIN.MONITORLOCK) TB.NUMBER.OF.ITEMS (GREATERP) CLISPIFY2C (EQMEMB) CREATE.NUMBERPAD.READER ( +IGREATERP ILESSP) \LFHighestVersions (STREQUAL) \WAITFORSYSBUFP (FIXP \SYSBUFP TTY.PROCESSP +\CLOCKGREATERP) EDIT%: (MEMB) DEFAULT.ADDNODEFN (FASSOC) \GCMAPTABLE (ILEQ TYPENAMEP CL:INTEGERP +IGREATERP GREATERP) WAITFORINPUT (FIXP READP \CLOCKGREATERP) RADIX (SMALLP ILESSP IGREATERP) \INSERTCH + (ZEROP IGEQ) SEDIT::CONVERT-COMMENT-TAIL (STRINGP) \INTERPRETER (LITATOM TYPEP \DTEST IGREATERP +GREATERP) OPT.DELCOPYFN (OPT.CALLP OPT.EQOP COMP.CLEANFNOP SELECTQ) EVAL.IN.TTY.PROCESS (TTY.PROCESSP) + FILEPATCHBLOCK (IGREATERP) TTYINBUFFERPEEK (COMPLEXCHARP) WINDOW.MOUSE.HANDLER (LISPWINDOWP +IN/SCROLL/BAR? SCROLL.HANDLER GETD LASTMOUSESTATE .COPYKEYDOWNP. ZEROP TTY.PROCESSP) +CHAT.TYPEOUT.CLOSE (OPENWP TTY.PROCESSP) SAVEDEF (SUBRP EXPRP CCODEP) EVAL.AS.PROCESS (THIS.PROCESS) +\DOTRANSITIONS (GREATERP) CGETD (LITATOM) CL::%%ATAN-FLOAT (= > UFGEQ UFGREATERP UFLESSP) +\BSP.SENDBUFFER (IGREATERP) LAPRD (LITATOM) VIRGINFN (EXPRP) \SPP.ESTABLISH (\SPP.DUPLICATE.REQUEST) +FB.GETALLFILEINFO (FMEMB) SEDIT::CONVERT-COMMENT-STRUCTURE (FMEMB STRINGP IGEQ) \FTP.GENERATEFILES ( +IGREATERP U-CASEP \FTP.HANDLE.NO BSPOPENP EQMEMB) \TEDIT1 (STRINGP) \THROUGHOUTCHARFN (>) \PRINTFRAME +(IGEQ ILESSP) ONFILE (MEMB INFILECOMS? TESTRELATION) FB.FASTSEECOMMAND (WINDOWP UNPACKFILENAME) +FIXCONTINUE1 (FMEMB EDITFINDP FIXCONTINUE1) \PRINTBF (GREATERP IGEQ) SPY.START (OPENWP) +TB.DECONSIDERRANGE (GREATERP) OPENW (OPENWP \USERFNISDON'T) EDITCALLERS (ILESSP IGREATERP) +\DSKDISPLAY.DESTROY.WINDOW (WINDOWP WINDOWPROP) WHO-LINE-SHOW-ACTIVE (TIMEREXPIRED?) +SEDIT::PARSE-INDENT-GROUP-BODY (CL:NUMBERP CL:LISTP) \TFBRAVO.FIND.LAST.TRAILER (IGREATERP ILEQ FMEMB) + INTERPRESS.OUTCHARFN (\FATCHARCODEP SMALLP <= > < >=) \DECODETRANSITION (IGREATERP ILESSP ASSOC) +TTPRIN1 (U-CASEP >= >) COMPILER::COMPILE-FILE-PROCLAMATION (CL:ATOM) \SCANFORNTENTRY (NULL-NTENTRY +IEQP FIXP SMALLP) \LEAF.TIMEDOUT (>=) DECODE/WINDOW/OR/DISPLAYSTREAM (WINDOWP EQUAL) TTYDISPLAYSTREAM +(GETD FMEMB IGEQ) CLISPIFY1 (GETPROP LITATOM) \TEDIT.COMMAND.RESET.SETUP (WINDOWPROP) \SEND.RFC ( +\ROUTE.PUP) PRINTTIMER (ILESSP) MB.NWAYBUTTON.ADDITEM (GREATERP) CHARACTER (SMALLP IGREATERP) +SEDIT::REPAINT (FIXP STRINGP) COURIER.SKIP.SEQUENCE (GREATERP) \COMPUTE.HUNK.TYPEDECLS (> GREATERP) +TB.COPYBUTTONEVENTFN (INSIDEP .COPYKEYDOWNP. MOUSESTATE) TTYINBUFFERBIN (COMPLEXCHARP) +DO.SHIFTED.SELECTION (KEYDOWNP LASTMOUSESTATE ZEROP BEFOREBUF NEQPOS EQPOS TTBEFOREPOS) \SETXFORM.PSC +(EQP ZEROP) REQUIREVERSION (LESSP) LOOKUP.NS.SERVER (EQUAL.CH.NAMES) CL:MAKE-PATHNAME (STRINGP) +\CHANGE.ETHER.TRACING (LASTMOUSESTATE) \TEDIT.NEWREGIONFN (IGEQ) \NSADDRESS.DEFPRINT (IGREATERP <) +UPDATEFN (GETHASH) LIST* (ILEQ) SORT1 (SELECTQ ALPHORDER APPLY*) CLISPFUNCTION? (LITATOM CLISPNOTVARP +CLISP-SIMPLE-FUNCTION-P FMEMB STRPOSL FIXSPELL1) SPP.CLEAREOM (\SPP.PREPARE.INPUT) \GETINTEGERPART ( +IGREATERP) \FAX.PARSE.NAME (IGREATERP DIGITCHARP IGEQ) \TEDIT.SMALLERSEL (SHIFTDOWNP) +CL:MAKE-BROADCAST-STREAM (STREAMP) \NSPRINT.MEDIUM.CHECK (EQUAL STRPOS) \DEFINEDEVICE (FMEMB LITATOM) +CL:COMPILED-FUNCTION-P (ARRAYP) MSINTERPRET (GETHASH FMEMB) FB.HARDCOPY.TOFILE (FMEMB) CLISPATOM ( +GETPROP FIX89 ATOM) \LINEBLT (ILESSP IGREATERP) U-CASE (LITATOM IGREATERP IGEQ ILEQ STRINGP) +TEXTSTREAM (PROCESSP WINDOWP DISPLAYSTREAMP \ILLEGAL.ARG) \VALID.FILING.CONNECTIONP (STRING-EQUAL +\SECONDSCLOCKGREATERP \NSFILING.SET.CONTINUANCE) \VFMMerge1 (EQL IGEQ) \GETMISCSOCKET (FMEMB) +\DSKDISPLAY.CREATE.WINDOW (WINDOWP) SEEFILE (GREATERP ILEQ) CHANGENAME1 (EXPRP CCODEP LITATOM) +CL:MAKE-RANDOM-STATE (CL:RANDOM-STATE-P) RECURSIVE.COLLECTDESCENDENTS (NC.GraphNodeIDGetProp) +FB.ADD.FILEGROUP (EQ.DIRECTORYP NULL.DIRECTORYP) \CREATECHARSET.IP (RANDACCESSP IEQP LESSP IGREATERP +GREATERP ILESSP) \EVENTKEYS (KEYDOWNP) FIXCONTINUE (FIXCONTINUE1) NEWLINE.PRESS (ILESSP) APROPOS ( +FNTYP) ATTACHEDWINDOWTOTOPFN (WINDOWP) CL:MERGE (CL:LISTP CL:VECTORP) \GETDEVICEFROMNAME (LITATOM +STRINGP) ESUBST (NLSETQ) CLDISABLE (/REMPROP MEMB) APROPRINT (IMAGESTREAMP) +INTERACT&ADD.BORDER.TO.BITMAP (GREATERP) MSNLAMBDACHECK (TEMPLATE NLAMBDAFNP FMEMB) MOVEDESCENDENTS ( +MEMBER) SEDIT::PARSE-INDENT (CL:KEYWORDP CL:LISTP) \FLOATTOBYTE.UFN (GREATERP) FB.HARDCOPYCOMMAND ( +SELECTQ) \TEDIT.WORDDELETE (IGREATERP LESSP SELECTC FIXP ILESSP) \FTP.DELETEFILE (\FTP.HANDLE.NO +BSPOPENP) SCANFORWARD (COMPLEXCHARP) EDIT4E (NUMBERP STRINGP STREQUAL LITATOM SKOR0 PRIN1 NLSETQ) +CL:MISMATCH (EQL) CHECKPATHS (FMEMB MSINTERPRETSET FASSOC) \BLKFABSMAX.UFN (GREATERP) CLISPERROR (ATOM +) \REMOVEDEVICE.NAMES (EQMEMB) \BLKFABSMIN.UFN (GREATERP LESSP) \CURSORDESTINATION (ILESSP) +FW-INIT-PROPS (STRINGP LITATOM IGEQ ILEQ GETD) \CCODEARGLIST (< > LISTGET STRINGP GREATERP) \CLOSEFILE + (READONLY) GETPROP (LITATOM) DINFO.EXPANDFN (LISTGET) FNCHECK (LITATOM MEMB RELSTK) +DINFO.READ.KOTO.GRAPH (GREATERP) \BLKSMALLP2FLOAT.UFN (GREATERP) DOICONWINDOWCOM (TYPENAMEP) EDITFPAT +(STRPOS) INFILECOMS? (LITATOM) PACK* (IGREATERP LITATOM STRINGP) COMP.NOT (COMP.PREDP) +CL:PARSE-NAMESTRING (CL:EQUAL) \ADD.CONNECTED.DIR (LITATOM STRINGP UNPACKFILENAME.STRING) +\WWCHANGESCREENSIZE (\ONSCREENW) \CCODEIVARSCAN (FIXP SMALLP GREATERP EQP) DWIMLOADFNS? (LITATOM FGETD +) EDITXTR (TAILP) \LEAF.GETFILEINFO (FMEMB) PFI.ENQUEUE (FIND.PROCESS) \BLKMAG.UFN (GREATERP) +FB.MAYBE.WIDEN.NAMES (ILEQ LESSP) EDITMBD (FEDITFINDP TAILP) CL:NUMBERP (NUMBERP) \BLKEXPONENT.UFN ( +GREATERP) POSTSCRIPT.FONTCREATE (GREATERP) ICONW.SHADE (WINDOWP OPENWP) \HARDCURSORPOSITION (ILESSP +IGEQ IGREATERP) CL:OUTPUT-STREAM-P (\IOMODEP) \RTP.HANDLE.RFC (SELECTC \RTP.FILTER) INITATOMS ( +GREATERP IGEQ ILEQ) CL:PEEK-CHAR (CL:CHARACTERP) DELFROMFILES (DELFROMCOMS INFILECOMS?) \BLKFDIFF.UFN +(GREATERP) ICONPOSITION.FROM.WINDOW (ILESSP) CL:PHASE (= CL:COMPLEXP MINUSP) ONEDINSPECT.MAKEREGIONS ( +GREATERP) \SPP.HANDLE.DATA (SEQ.GREATERP) \BLKSEP.UFN (GREATERP) FB.ADJUST.DATE.WIDTH (TB.FIND.ITEM) +FILES? (FILES?1) \BLTSHADE.IP (>) \BLKFLOATP2COMP.UFN (GREATERP) \BLKPERM.UFN (GREATERP) +SEDIT::LINEARIZE-COMMENT (ILEQ) \SOFTCURSORUPCURRENT (IGREATERP ILESSP) FIXATOM (LITATOM FMEMB GETPROP + CL:THROW NUMBERP FIXSPELL1) \BLKFPLUS.UFN (GREATERP) \BLKFMAX.UFN (GREATERP) MSHASHLIST1 (EQMEMB +FMEMB MSMEMBSET) FIXATOM1 (ATOM ZEROP) RECORDECLARATIONS (LITATOM FMEMB) ADDTOCOM1 (LITATOM) +OPT.JUMPCOPYTEST (OPT.EQVALUE OPT.CALLP COMP.CLEANFNP) \FM.3STATE-DOWNFN (OPENWP) \BLKFTIMES.UFN ( +GREATERP) DOATTACHEDWINDOWCOM (WINDOWP) SEDIT::CHANGE-PACKAGE (CL:MEMBER) MACROEXPANSION (LITATOM +FMEMB) PARSE-NSADDRESS (STRINGP STRPOS IGREATERP >= <=) \FM.3STATE-SETUPOFFBITMAP (ATOM TEXTUREP +STRINGP BITMAPP EQUAL) BITMAPCREATE (IGEQ IGREATERP) CHAT.OPTIONMENU (FNTYP) FB.HEADINGW.DISPLAY (< >) + \BLKFMIN.UFN (GREATERP LESSP) CL::%%PRINT-TIMING-ITEM (>) FILES?1 (LITATOM) CL:RANDOM (>) \LFVersions + (\LFDirectorySearch) TB.MAKE.BROWSER (STRPOS) FASL::FAT-STRING-P (STRINGP) \PUT.FILING.ATTRIBUTE ( +FIXP) \TAN.OLD (FGREATERP FLESSP) IRM.LOOKUP (OBTAIN.MONITORLOCK) FULLPRESSBITMAP (ILESSP) CL:PROBE-FILE + (STREAMP OPENP) CL::%%ASIN-FLOAT (< > UFGREATERP) COMPILER::GENCODE-CATCH (COMPILER::BLIPPER-NEW-FRAME-P +) \TEDIT.LOOKS (IGREATERP) EDIT4F (NUMBERP TAILP EDIT4E ZEROP EDIT4F1) CL:PROVIDE (CL:SYMBOLP) +\SPP.RELEASE.ACKED.PACKETS (SEQ.GREATERP) COMPILER::ALPHA-MV-PROG1 (CL:NUMBERP <) \TFBRAVO.WRITE.RUN ( +ILEQ EQUAL) VRULE.DISPLAYFN (>=) DINFO.CREATE.GRAPH.WINDOW (GEQ) COURIER.SKIP (LITATOM GREATERP IEQP) +IBLT1 (LESSP GREATERP) CL:READ-BYTE (\EOFP) TB.REDISPLAY.ITEMS (>= TB.ITEM.UPDATABLE?) MSTRYSPELLTYPE +(LITATOM MSWORD?) CL:VALUES (FIXP SMALLP GREATERP >= IGREATERP <= IGEQ) GETRELATION (LITATOM) +\TEDIT.LARGERSEL (SHIFTDOWNP) IBLT2 (LESSP GREATERP) \TEDIT.TEXTBIN.NEW.PAGE (IEQP) \SIMULATE.UNBIND ( +GREATERP) EDITCONT (EDIT4F NLSETQ EDIT4E) CL:VALUES-LIST (FIXP SMALLP >= IGREATERP <=) +TB.DO.UNLESS.BUSY (OBTAIN.MONITORLOCK) ERRM-TO-CONDITION (TYPEP) MAYBE.PRETTYFILEINDEX ( +PRETTYFILEINDEX PFI.ORIGINAL.LISTFILES1) COMPILER::GENCODE-BLOCK (COMPILER::BLOCK-NEW-FRAME-P +COMPILER::BLOCK-CLOSED-OVER-P COMPILER::BLOCK-CLOSED-OVER-VARS) PACKFILENAME (<= STREQUAL EQMEMB FIXP) + SEDIT::PRINT-STRING (IGREATERP ILESSP) REBREAK (EQUAL) CL:READ-CHAR-NO-HANG (READP EOFP) +\FM.3STATE-SETUP (EQUAL) \PROCESS.MOVEFRAME (EVENP) \FTP.UNREGISTER (FMEMB) WHO-LINE-SAVE-VMEM (MENU) +COURIER.WRITE.FAT.STRING (ODDP) TB.DO.ITEM.SELECTION (INSIDEP LASTMOUSESTATE GREATERP > < >= <= +TB.CONTIGUOUS.SELP) CL::VALUES-UFN (FIXP SMALLP GREATERP >= IGREATERP <= IGEQ) XCL::SETF-PACKAGE-PREFIX + (CL:SYMBOLP CL:STRINGP) CL:READ-LINE (\EOFP) CL::VALUES-LIST-UFN (FIXP SMALLP >= IGREATERP <=) +\LEAF.OPENFILE (IGREATERP) \OPENFILE (\IOMODEP) EDITMV (MEMB TAILP) CL:REM (CL:INTEGERP CL:FLOATP) +\SPP.HANDLE.ATTN (MEMB APPLY*) \CLEARSYSBUF (TTY.PROCESSP) \IOMODEP (FMEMB) +\TEDIT.UNPARSE.CHARLOOKS.LIST (IGEQ IGREATERP ILESSP) FIXAPPLY (LITATOM DWIMUNSAVEDEF WTFIXLOADEF +STRPOSL SOME) SCANBACK (COMPLEXCHARP) PRETTY-TYPE-NAME (SOME EQUAL CL:SYMBOLP) \WAIT.FOR.TTY ( +TTY.PROCESSP) \ENQUEUE.TIMER (ILEQ) CLOSEPUPSOCKET (FMEMB) CL:RENAME-FILE (STREAMP OPENP) CHARSET (>= +<) ICMLARRAY.GETMENUWGROUP (GREATERP) WAIT.FOR.TTY (TIMEREXPIRED?) CL:SIGNUM (CL:ZEROP) WHO-LINE-VMEM +(EQP) CL:SCALE-FLOAT (=) CHANGECALLERS (EQMEMB FMEMB ADDTOFILE DELFROMFILES) PRINT10TO3 (MEMB) +SI::%%STRUCTURE-DECLARE-DATATYPE (CL:SYMBOLP SMALLPOSP SMALLP) \NSYSBUFCHARS (IGREATERP) +\COURIER.RECORDTRAN (\COURIER.QUALIFIED.NAMEP) SEDIT::SCAN-FOR-BOUNDS (FIXP) \TYPEGLOBALVARIABLE ( +FMEMB GETPROP) \SAVESYSBUF (TTY.PROCESSP IGREATERP GREATERP) \RTP.HANDLE.PUP (\RTP.FILTER) +OPT.SKIPPUSH (ILESSP ZEROP IGEQ COMP.CLEANFNOP) \ASSIGNDATATYPE1 (EQUAL IGREATERP IGEQ) +EDITMOVESUBTREE (LASTMOUSESTATE ZEROP) \COS.OLD (FGEQ FLESSP FLEQ FGREATERP) +COURIER.WRITE.SEQUENCE.UNSPECIFIED (LITATOM FIXP) HARDCOPYW (WINDOWP BITMAPP) \SYSBUFP (TTY.PROCESSP) +BESTNSADDRESS (GREATERP IGEQ ILESSP ILEQ IGREATERP) \PEEKSYSBUF (\SYSBUFP TTY.PROCESSP) ADDTOFILES? ( +LITATOM SOME UNDONLSETQ) \PROCESS.INIT (CCODEP) CL::%%SIMPLE-TREE-EQUAL (CL:CONSP) \DSPOPERATION.IP ( +FMEMB) \ENQUEUE (GREATERP) ORDERFROMBOTTOMTOTOP (FMEMB) %%DESTRUCTIVE-RESULT-VECTOR ( +CL:ARRAY-HAS-FILL-POINTER-P) MOUSECHORDWAIT (IGREATERP) CL:SQRT (=) \PROCESS.EVENTFN (ALIVEPROCP +DEADPROCP) REMPROP (LITATOM) FIXSPELL2 (STRINGP) \REVALIDATEFILE (EQUAL) CL::%%COMPLEX-TREE-EQUAL ( +CL:CONSP) PUTPROP (LITATOM) \HANDLE.RAW.10TO3 (EQNSADDRESS.HOST >= MEMB) FIXLAMBDA (LITATOM FMEMB) +\DRAWCURVE.PRESS (EVERY \DRAWCURVE.PRESS.LINE) SETF-MACRO-FUNCTION (GETD) MOVEATTACHEDWINDOWTOPLACE ( +OPENWP) \LEAF.READPAGES (.PAGE.IS.AFTER.EOF. IGEQ IEQP GREATERP READABLE <) DELETE.LONG.SEGMENT1 ( +ILESSP) COMPILER::COMPILE-FILE-SETF-SYMBOL-FUNCTION (CL:CONSTANTP CL:SYMBOLP COMPILER::FUNCTION-P) +\FM.TOGGLE-SELECTEDFN (\FM.ITEMPROP) \RECLAIMARRAYBLOCK (< IEQ \RECLAIMCODEBLOCK) FB.DISPLAY.COUNTERS +(IGREATERP) CL:SINH (CL:COMPLEXP) PRINTBITMAP (LITATOM) COMP.DECLARE (FMEMB) TOPW.BUTTONEVENTFN ( +MOUSESTATE) PFI.VARNAME (LITATOM FMEMB) CL:ENDP (CL:CONSP) \CAR.UFN (ZEROP LITATOM STRINGP) +CHECKSYNONYM (EQUAL MSWORD?) \TEDIT.GET.CHARLOOKS (ZEROP IGREATERP) CREATEHASHFILE (NUMBERP GREATERP) +\CDR.UFN (ZEROP IGREATERP LITATOM STRINGP) \LFDirectorySearch (\EOFP CL:ZEROP ILEQ EQL IGEQ) +FORGETPAGES (IGEQ ILEQ BUFFERINUSEP) \LFFindDirHole (\EOFP CL:ZEROP ILEQ IGEQ) FILEPKGTYPE (GREATERP) +RESTOREMAP (BUFFERINUSEP) CL:STRING-LESSP (< CL:CHAR-LESSP) TWODINSPECT.REPAINTFN (ILESSP IGREATERP) +\DELETECH (IEQP IGEQ ZEROP ILEQ IGREATERP ATOM ILESSP) SEDIT::STRUCTURE-FROM-STRING (CL:STRINGP) +CL:STRING-GREATERP (> CL:CHAR-GREATERP) \PAGED.REVALIDATEFILE (EQUAL) ICMLARRAY.GETREGIONFN (IGREATERP +) \FM.TOGGLE-DOWNFN (OPENWP) CL::%%TAN-FLOAT (UFGEQ UFGREATERP UFLESSP) +\KEYBOARD.MACHINE-SPECIFIC-KEYACTIONS (EQUAL) \UNWIND.UFN (GREATERP) PFI.PRINT.BITMAP (IMAGESTREAMP +DISPLAYSTREAMP < > GREATERP PNAMESTREAMP) SEDIT::ADD-MENU (WINDOWPROP) TEDIT.NEXT (IGREATERP) +\CHECKAPPLY* (LITATOM TYPEP) ICMLARRAY (GREATERP ILESSP IGREATERP) MSINTERPA (FMEMB MSINTERPRETSET) +FB.CREATE.FILEBUCKET (STRINGP DIGITCHARP IGEQ STRING-EQUAL) RETDWIM (NCONC1 EXPRP ATOM STRPOSL +DWIMIFY2A RETDWIM1) \PROC.AFTER.WINDOWWORLD (TYPENAMEP) BELOWMARKER (ILESSP) CREATEMDSTYPETABLE (ZEROP + MINUSP LESSP GREATERP) CL:STRING-NOT-GREATERP (CL:CHAR-NOT-GREATERP) \PUTBASEBITS (GREATERP) +\BUFFERED.REVALIDATEFILE (EQUAL) OVERLAPPINGWINDOWS (MEMB SOME) \HTFIND (.MODENTRY. IGEQ) +\GET.COURIER.DEFINITION (\COURIER.QUALIFIED.NAMEP) SETSPELLCASE (GREATERP) CL:STRING< (< CL:CHAR<) +MOVE.TO.START.OF.WORD (AT.END.OF.LINE SELCHARQ) DINFO.LOOKUP (OBTAIN.MONITORLOCK FMEMB) +\FM.TOGGLE-SETUP (EQUAL) \BSP.PREPARE.OUTPUT (BSPOPENP IGREATERP TIMEREXPIRED? IGEQ) \BSP.FLUSHINPUT ( +\BSP.PREPARE.INPUT) CL:STRING<= (CL:CHAR<=) ADDTOFILE (FMEMB) SI::INTERNAL-THROW (SI::UNWIND-TO-BLIP +GREATERP) \TEDIT.ABBREV.EXPAND (ZEROP) \RPLACA.UFN (ZEROP) COURIER.WRITE.STRING (ODDP) +CL::%%VALID-TYPE-P (CL:CONSP CL::TYPE-EXPANDER) FONTNAME.IP (MEMB) \PFNewPages (EQL \VAMAllocPageGroup +) \RPLACD.UFN (ZEROP ILEQ IGREATERP) NSNET.DISTANCE (GREATERP) TWODINSPECT.BUTTONEVENTFN (MOUSESTATE) +TB.ITEM.FROM.YCOORD (<=) \CONS.UFN (ZEROP ILEQ IGEQ) \TRANSLATE.10TO3 (EQNSADDRESS.HOST) CL::ARRAY-TYPE + (SIMPLE-ARRAY-P CL:SIMPLE-STRING-P CL:SIMPLE-BIT-VECTOR-P CL:STRINGP CL:BIT-VECTOR-P) ShowIntervals ( +GREATERP) CL::%%SIMPLE-ASSOC (CL:SYMBOLP TYPEP CL:CHARACTERP) CLISPFOR0 (LITATOM EQUAL CLISPFOR4 +EDITFINDP NUMBERP MINUSP FIXP ILESSP) CL:STRING-NOT-LESSP (CL:CHAR-NOT-LESSP) CL::SYMBOL-TYPE ( +CL:KEYWORDP) CLISPCAR/CDR (NUMBERP ILESSP IGREATERP) TEDIT.PARALOOKS (FIXP IGREATERP ZEROP IGEQ) +CL:STRING> (> CL:CHAR>) PPROC (FMEMB) MSGETBLOCKDEC (SOME LITATOM FMEMB EQMEMB) FB.INSERT.FILE ( +EQ.DIRECTORYP NULL.DIRECTORYP) RETDWIM1 (TAILP FMEMB FIXSPELL1) CL::%%SIMPLE-MEMBER (CL:SYMBOLP TYPEP +CL:CHARACTERP) \ENDPAGE.PRESS (ODDP) \NOFILESNEXTFILEFN (IGREATERP) CLOSEW (OPENWP \OKTOCLOSEW) +TEDIT.SUBSTITUTE (STRINGP EQUAL IGREATERP ZEROP) \FINDKEY.UFN (GREATERP) FLUSHRIGHT (MINUSP ZEROP) +DINFO.FIND (OBTAIN.MONITORLOCK FMEMB) INTCHAR (FIXP \SYSTEMINTERRUPTP LITATOM) PPROC1 (DEADPROCP IGEQ) + SETINTERRUPT (\SYSTEMINTERRUPTP) NEWDEFC (GETD ARRAYP) CL:TANH (CL:COMPLEXP) GETWINDOWPROP ( +DISPLAYSTREAMP) MSINTERPRETSET (EQMEMB GETD GETP) \LOOKUPPUPNUMBER (GREATERP IEQP EQUAL TIMEREXPIRED?) + \BOUT (NUMBERP GREATERP) CL::%%TYPEP-PRED (CL:CONSP) \PRESSCURVE2 (IGREATERP GREATERP IEQP FGTP +FLESSP ILESSP) \KEYACTION1 (IEQP \CHARCODEP SMALLP SELECTQ \PUTBASEBYTE) PACKFILENAME.STRING (<= +STREQUAL EQMEMB FIXP) CL::SUBTYPEP-TYPE-EXPAND (CL:MEMBER CL:CONSP) \NOTE.10TO3 (EQNSADDRESS.HOST) +\KEYNAMETONUMBER (EQMEMB) GRAPHBUTTONEVENTFN (LASTMOUSESTATE INSIDE?) \RESTLIST.UFN (LESSP) CLISPIFY2B + (NUMBERP EQLENGTH FMEMB EQMEMB CLISPIFY2D MEMB LITATOM FGETD CLISPNOEVAL GETHASH) \BSP.SKIPBYTES ( +IGREATERP) GETINTERRUPT (\SYSTEMINTERRUPTP NUMBERP) SI::DATATYPE-P (\TYPENUMBERFROMNAME) +PFI.PASS.COMMENT (MEMB) \SIN.OLD (FGEQ FLESSP FLEQ FGREATERP) \MISCN.UFN (BOUNDP) RCOMP3 (MEMB) +SCROLLBYREPAINTFN (FLOATP IGREATERP SUBREGIONP) CL::%%APPEND (CL:ATOM) \RPLCONS (IGREATERP) +\VFMInsert1 (ILESSP) \FIXDLINES (ILESSP IGEQ ILEQ IEQP) KEYBOARDTYPE (STREQUAL) \BRUSHCONVERT.HCPYMODE + (NUMBERP) WHICHW (POSITIONP INSIDE?) NUMBERPAD.READ (HASTTYWINDOWP READP MEMBER) PPROCREPAINTFN ( +LASTMOUSESTATE ZEROP) CL:COPY-TREE (CL:CONSP) SASSOC (EQUAL) \EVAL (LITATOM NUMBERP) GETFILEINFO ( +OPENED RANDACCESSP) CL:USER-HOMEDIR-PATHNAME (MACHINETYPE CL:STRING-NOT-EQUAL) CL:COPY-ALIST (CL:CONSP +) \INSUREWINDOW (DISPLAYSTREAMP) FIND.PROCESS (LITATOM STRINGP) CL:SUBTYPEP (CL:EQUAL) +CL::COMPLETE-META-EXPRESSION-DEFAULTS (CL:LISTP) CL:NRECONC (CL:CONSP) WTFIXLOADEF (ATOM STRINGP +FIXSPELL1) WHO-LINE-REDISPLAY-INTERRUPT (BOUNDP) \DOINTERRUPTHERE (LITATOM) \DRAWCURVE.PRESS.LINE (EQP + ILESSP) SET-CONNECTED-DIRECTORY-INTERACTIVELY (SHIFTDOWNP STRING-EQUAL) CL:REVAPPEND (CL:CONSP) +CL:STRING>= (CL:CHAR>=) \CANONICALIZE.NSADDRESS (EQNSADDRESS.HOST) \STKSCAN (EQP GREATERP) PUTDEFN ( +FMEMB) \ILLEGAL.DEVICEOP (GREATERP) CL:NBUTLAST (<) \MAIKO.IO-INTERRUPT (ZEROP) +TWODINSPECT.COPYBUTTONFN (.COPYKEYDOWNP.) CL:TRUENAME (STREAMP XCL:SYNONYM-STREAM-P) CL:BUTLAST (< <=) + MSNEXTWORD (SOME CHECKSYNONYM FMEMB) CL::EQUAL-DIMENSIONS (CL:EQUAL) CL::RANGE<= (CL:CONSP <= <) +OPT.FRAMEVAR (LESSP ZEROP NOTANY APPLY*) \UNBOXFLOAT3 (GREATERP) CL::BASE-SUBTYPEP (CL:CONSP CL:EQUAL +CL:MEMBER) COMP.COND (COMP.PREDP EVERY) RESHAPEBYREPAINTFN (IGREATERP \INBETWEENP ILESSP) +COMPILER::COMPILE-AND-DUMP (CL:SYMBOLP) \INBETWEENP (GEQ) CONTROL-T (HASTTYWINDOWP OPENWP STACKP +XCL::INTERESTING-FRAME-P) TEDIT.INSERT (FIXP LITATOM STRINGP ZEROP IGREATERP) DINFO.ADD.FMENU (FMEMB) +\LFMakeDirHole (ILEQ \LFExtendFile GREATERP) \SELECTPROCESS (FMEMB) CL::USEFUL-TYPE-EXPANSION-P ( +CL:CONSP) MB.NWAYBUTTON.SELFN (INSIDE?) \TEXTCLOSEF-SUBTREE (ATOM) EQL (CL:NUMBERP TYPEP CL:FLOATP +CL:INTEGERP) \HANDLE.NS.ROUTING.INFO (>= TYPENAMEP <= <) \PRINDATUM (SMALLP ILESSP IGREATERP +PNAMESTREAMP STRINGP TYPENAMEP) ICONW.PRINT-JUSTIFIED (EQMEMB IGREATERP GREATERP FMEMB) \DRAWLINE.UFN +(IGEQ GREATERP IGREATERP) PROCESS.STATUS.WINDOW (WINDOWP > FMEMB) FETCHFIELD (IGREATERP) +MSPATHSPRINTFN (MSMEMBSET) \PROCESS.MAKEFRAME (ILESSP) UPDATEFILES (FMEMB MEMBER) \PARAS.IN.SEL (ZEROP +) MB.NB.PACKITEMS (ILESSP IGEQ) OPT.FRAMEDEL (SOME OASSOC OPT.DELETEFRAMECHECK ZEROP) SHADEITEM ( +\MENUSUBITEMS) \NSFILING.GETFILE (\NSFILING.CONFLICTP EQUAL) GETDESCRIPTORS (LITATOM) PRESSBITMAP ( +EQUAL ILESSP) SPAWN.MOUSE (GREATERP) \CURVE2 (LITATOM FMEMB GREATERP IGEQ ZEROP ILEQ) \GETCHARCODE ( +NUMBERP \CHARCODEP SMALLP LITATOM) \ARG0 (IGREATERP) FIND.SYMBOL (EQL) MASTERSCOPEXEC (LITATOM STRPOSL + FGETD) PARAMETRICSPLINE (GREATERP IGEQ LESSP) TWODINSPECT.DEFAULT.VALUECOMMANDFN (NUMBERP) +\FILINGSESSION.DEFPRINT (TYPENAMEP) \NSPRINT.FULL.REQUEST.STATUS (STREQUAL) AWAIT.EVENT (TYPENAMEP) +\DRAWPOLYGON.IP (NUMBERP IGEQ IGREATERP \CLIPCURVELINE.IP) \FTP.CLEANUP (TIMEREXPIRED? FIXP) +\FM.CLEARITEM (OPENWP) CL::%%SIN-FLOAT (UFGREATERP UFGEQ UFLESSP) MONITOR.AWAIT.EVENT (TYPENAMEP) +\TEDIT.SUBST.FN2 (IGREATERP LITATOM) SKOR0 (ILESSP NUMBERP) BCOMPL2 (RECOMP? NOTANY EXPRP MEMB) +\PRINT-USING-ADDRESS (IGREATERP) ADDMENU (WINDOWP SUBREGIONP) OPT.CLEANFRAME (OPT.CLEANFRAME) +\LEAF.REOPENFILE (IEQP) \TEDIT.PACK.TARGETLIST (MEMBER STRINGP) FB.EDITCOMMAND (DIRECTORYNAMEP GETD) +EDITMOVEREGION (WINDOWP) WHO-LINE-CURRENT-DIRECTORY (CL:MEMBER) COMPILE-IN-CORE (BOUNDP STREAMP OPENP) + COMPILER::ALPHA-IL-FUNCTION (CL:SYMBOLP COMPILER:ENV-FBOUNDP) MSPATHS4 (MSPATHS2) RESET.INTERRUPTS ( +CHARCODEP) DINFO.SHOWGRAPH (GEQ) CL:COPY-LIST (CL:CONSP) WHO-LINE-COPY-INSERT (IMAGEOBJP WINDOWP +WINDOWPROP) \TEDIT.DELETE (IGREATERP IGEQ ZEROP ILESSP) COMP.GENFN (IGEQ) RIGHTW.BUTTONEVENTFN ( +MOUSESTATE) FIND.PACKAGE (STREQUAL) \PSWOP.SELECTED (FMEMB MOUSECONFIRM TIMEREXPIRED?) DISPLAYLINK ( +IGREATERP) CL::%%COMPLEX-SUBLIS (CL:ATOM) MAKE-UNICODE-TRANSLATION-TABLES (IGEQ GREATERP ILEQ +IGREATERP) \GCRECLAIMCELL (ILEQ CL:FUNCALL) MSVERBED (EQUAL) TWODINSPECT.DEFAULT.TITLECOMMANDFN ( +MOUSESTATE) CL::%%SIMPLE-SUBLIS (CL:ATOM) \GCSCAN1 (ILEQ) COMPILER::MAKE-LAP-VAR (COMPILER::VARIABLE-P +) FB.MAKE.BROWSER.BUSY (OBTAIN.MONITORLOCK) \GCSCAN2 (ILEQ) COMPILE.FILE.RESET (OPENP) +CL::%%COMPLEX-ASSOC (CL::%%EQCODEP) CHARCODEP (SMALLP IGEQ) CL::\OPENSTREAM-WITH-DEFAULT (CL:PATHNAMEP + CL:PATHNAME-HOST FILENAMEFIELD) FB.GREATEST.PREFIX (STRPOS) XCL::INTERESTING-FRAME-P (STACKP CL:SYMBOLP +) TB.RESHAPEFN (OBTAIN.MONITORLOCK) %%AREF1 (>= <) COERCETOBITMAP (LITATOM REGIONP WINDOWP) %%ASET1 ( +>= <) \CONTROL-T.PRINTRATIO (IGREATERP ILESSP) OPT.FRAMELOCAL (OASSOC OPT.CLEANFRAME FMEMB) +\LEAF.EVENTFN (FDEVOP) INSERTHASHKEY (GREATERP) COMPILER::CONSTANT-EXPRESSION-P (CL:CONSP) CL::%%EQCODEP + (TYPEP) \FM.INSUREVISIBLE (SUBREGIONP) \ATOMCELL (FIXP) \GETBASEBYTE (EVENP) CL::%%COMPLEX-MEMBER ( +CL::%%EQCODEP) \NSFILING.GENERATEFILES (STREQUAL EQUAL STREAMP EQMEMB) \BLT (GREATERP LESSP) +CLISPCAR/CDR2 (ZEROP) \PUTBASEBYTE (SMALLPOSP SMALLP ILESSP EVENP) OPENRTPSOCKET (FIXP EQMEMB) +\HLSVALUEFN (ILESSP) \HANDLE.RAW.3TO10 (>= MEMB) WFROMMENU (MEMB) PRINTROUTINGTABLE (GREATERP FIXP +TIMEREXPIRED?) EDITFA (EXPRP SUBRP) \PUTBASE.UFN (SMALLPOSP SMALLP) DIRECTORYNAME (CL:PATHNAMEP) +ADDSPELL1 (IGREATERP) EDITDEF.FNS (EXPRP LITATOM EDITFB) ADDTOVAR (EQUAL) LOOKUP-SYMBOL (EQL LOCAL) +KEYNUMBERP (SMALLP IGEQ ILESSP) \PUTBITS.UFN (SMALLPOSP SMALLP) XIPAPPEND.STRING (ILESSP) +PROCESS.BACKTRACE (WINDOWP ILESSP) CLIPBOARD-COPY-STREAM (STRPOS) TWODINSPECT.COLUMNWIDTH (GREATERP) +OPT.MERGEFRAMEP (FMEMB OASSOC OPT.CLEANFRAME) UNMAKEHARDCOPYMODESTREAM (WINDOWP FMEMB) \ADDBASE (ILEQ +TYPENAMEP CL:INTEGERP IGREATERP) PREEDITFN (EQMEMB) MSMATCHRATING (EQUAL MSSIMPLESET) \FM.ENDEDIT ( +FM.EDITP PROCESSPROP) \VAG2 (SMALLPOSP SMALLP ILESSP) FB.EXPUNGECOMMAND (DELFILE) \TEDIT.FOREIGN.COPY? + (TEXTPROP ZEROP IGREATERP GREATERP FIXP) MSPATHS1 (NUMBERP MINUSP MSPATHS2 SOME) \SLOWPLUS2 (FLOATP +FIXP) BAKTRACE (EQP) MAKE-VECTOR (< >=) \SLOWDIFFERENCE (FLOATP FIXP) COMPILER::ALPHA-FUNCTIONAL-FORM +(CL:CONSP CL:SYMBOLP) CREATETEXTUREFROMBITMAP (GREATERP ILESSP ZEROP MINUSP LESSP) EDITFERROR (HASDEF +BOUNDP STRINGP \DEFINEDP GETD) \SLOWTIMES2 (FLOATP FIXP) MOUSECONFIRM (WINDOWP MOUSESTATE) UNION ( +LITATOM FMEMB MEMBER) METASHIFT (IGREATERP EQUAL) ATAN (FGEQ) \SLOWQUOTIENT (FLOATP FIXP) CL:ELT (<) +RESHAPEALLWINDOWS (EQP) \TEDIT.FIND.WC1 (STRINGP LITATOM MEMBER EQUAL) \SLOWIPLUS2 (ILEQ TYPENAMEP +CL:INTEGERP) DINFO.HISTORIC.UPDATE (OBTAIN.MONITORLOCK) GETPROMPTWINDOW (STRINGP OPENWP IGREATERP) +EDITF (HASDEF) CHAT.CLOSE.CONNECTION (OPENP) \SLOWIDIFFERENCE (ILEQ TYPENAMEP CL:INTEGERP ZEROP) +ATTACHEDWINDOWS (FMEMB) \FM.CHANGESTATE (ASSOC) MB.NB.SIZEFN (IGEQ ILEQ GREATERP IEQP) \SLOWITIMES2 ( +ILEQ TYPENAMEP CL:INTEGERP IGREATERP EQUAL ODDP ZEROP IGEQ) OLD.FIND.SYMBOL (GREATERP IGREATERP ILEQ +IGEQ) UNTRACE (CL:EQUAL CL:CONSP) \SLOWIQUOTIENT (ILEQ TYPENAMEP CL:INTEGERP IGREATERP ILESSP IGEQ) +MSPATHS2 (MSMEMBSET MSPATHS2 GETD) DIRECTORYNAMEP (FDEVOP) BRKDWN1 (IGREATERP GREATERP) CL:MAKE-LIST ( +<) TEDIT.DELETE (FIXP) IREMAINDER (ILEQ TYPENAMEP CL:INTEGERP IGREATERP ILESSP IGEQ) OPT.FRAMEMERGE ( +OPT.MERGEFRAMEP IGREATERP ZEROP MINUSP) HOSTNAMEP (LITATOM STRINGP MEMB FDEVOP) +\TEDIT.MARK.LINES.DIRTY (IEQP ILEQ IGEQ) BMOBJ.DISPLAYFN (GREATERP LEQ) \FTP.RENAMEFILE (STRING-EQUAL +SELECTC \FTP.HANDLE.NO BSPOPENP \FTP.FLUSH.TO.EOC \FTPERROR) \MAIKO.10MBWATCHER (ILESSP) +XIPAPPEND.WORD (IGREATERP) TWODINSPECT.ROWPROPWIDTH (GREATERP) APPENDTOVAR (EQUAL) OPT.NONILVAR ( +SELECTQ COMP.CLEANFNOP) \SLOWLLSH1 (ILEQ TYPENAMEP CL:INTEGERP IGREATERP) DIRECTORY (FNTYP FMEMB +NUMBERP STRINGP FIXSPELL EQL DIRECTORY.NEXTFILE) SUBATOM (LITATOM IGREATERP ILEQ) UNSAVEBLOCK? (FMEMB +EXPRP) MARKASCHANGED (EQUAL) \SLOWLLSH8 (ILEQ TYPENAMEP CL:INTEGERP) \SPP.HANDLE.INPUT (SEQ.GREATERP +IGREATERP SEQ.GEQ) CHCON1 (STRINGP LITATOM) UnixPrint (STRPOS) \SLOWLRSH1 (ILEQ TYPENAMEP CL:INTEGERP) + UNPACKFILENAME.STRING (TYPEP STREAMP EQMEMB STREQUAL > GREATERP DIGITCHARP IGEQ) MENUWINDOW (NUMBERP) + CL:NTHCDR (<) MSNEEDUNSAVE (EXPRP FMEMB) EDITDEFAULT1 (STRINGP) CLISPATOM2D (NUMBERP) \SLOWLRSH8 ( +ILEQ TYPENAMEP CL:INTEGERP) \BACKPEEKBIN (\BACKFILEPTR) DECODE-NS-STRING (<) CL:PAIRLIS (CL:ENDP EQL) +\VFMKillBuffer (\VFMCorrectBufferP) \SLOWLOGOR2 (ILEQ TYPENAMEP CL:INTEGERP) PRINTBINDINGS (REALFRAMEP +) \BACKBIN (\BACKFILEPTR) WINDOWADDFNPROP (FMEMB) PUPNET.DISTANCE (GREATERP) RETDWIM3 (ILESSP +IGREATERP) EDIT* (MINUSP) ADD/AND/DISPLAY/LINK (MEMBTONODES) \SLOWLOGAND2 (ILEQ TYPENAMEP CL:INTEGERP) + COMPILE-FILE-SETF-SYMBOL-FUNCTION (FMEMB CL:CONSP) COMPILER::ALPHA-FUNCTION (CL:SYMBOLP) %%SETELT (<) + EDITDEFAULT (FMEMB U-CASEP FNTYP GLC SELECTQ NUMBERP EDITSMASH ATOM) \DRAWARC.GENERIC (GREATERP LESSP +) \SLOWLOGXOR2 (ILEQ TYPENAMEP CL:INTEGERP) LDIFFERENCE (MEMBER) CL::%%SET-NTH (<) CL::%%SQRT-FLOAT ( +<=) EDLOC (NLSETQ EQUAL) ONEDINSPECT.PROPWIDTH (GREATERP) LSH (ILEQ IGREATERP) BOUT (NUMBERP GREATERP) + \BSP.CLEANUP.INPUT (IGREATERP) EDOR (ERSETQ) COMP.APPLYFNP (FMEMB) DSUBST (EQUAL) SYMBOL.PNAME ( +GREATERP) TTYIN.PRINTARGS (READTABLEPROP CL:CHARACTERP CL:KEYWORDP) CL::TYPE-EXPANDER (CL:SYMBOLP +SI::DATATYPE-P CL:FBOUNDP) DWIM-SYMBOL-PACKAGE (LITATOM CL:KEYWORDP BOUNDP CL:FBOUNDP FIXSPELL1) +EDITRAN (ATOM MEMB TAILP) ADDTOCOMS (LITATOM ADDTOCOM) \VFMGet (GREATERP EQL \VFMLower) %%EXTEND-ARRAY + (%%TWOD-ARRAY-P) FB.MAYBE.INSERT.FILE (DIRECTORY.MATCH GEQ STRING-EQUAL NULL.VERSIONP = SELECTQ) +EDITTO (NUMBERP IGREATERP) ONEDINSPECT.REPAINTFN (ILESSP) EXEC-FORMAT (CL:STRINGP) +%%ARRAY-CONTENT-INITIALIZE (%%CHECK-SEQUENCE-DIMENSIONS) REMWINDOWPROP (DISPLAYSTREAMP) +\NSFILING.PARSE.FILENAME (<= GEQ >) SAVESET (LITATOM TAILP) RECORDACCESS (RECDEC?) +COMPILE.FILE.DEFINEQ (FMEMB) COPYBYTES (EQUAL RANDACCESSP ILESSP \EOFP) CL::%%LIST-MAP-OPTIMIZER ( +CL:CONSTANTP CL:CONSP) CHANGEPROP (LITATOM) EDITCOM (NUMBERP ATOM) FIND.START.OF.WORD (WORDSEPRP +IGREATERP COMPLEXCHARP) \VFMGetInterval (LESSP) CL:ADJUST-ARRAY (EXTENDABLE-ARRAY-P CL:LISTP +CL:ADJUSTABLE-ARRAY-P >= EQUAL CL:ARRAY-HAS-FILL-POINTER-P > <= <) \MAP.ROUTING.TABLE (GREATERP) +\COURIER.PUTDEF (EQUAL) DEFAULT.EDITDEF (CL:ENDP CL:Y-OR-N-P) UNSAVEFNS (HASDEF FGETD FMEMB) EDRPT ( +IGREATERP NLSETQ) CLISPCAR/CDR1 (ZEROP IGREATERP) \RTP.HANDLE.INPUT (TIMEREXPIRED?) +\BUFFERED.COPYBYTES (IGREATERP FDEVOP) WRITE-UNICODE-INCLUDED (GREATERP) INSPECT/AS/RECORD (FMEMB) +EDUP (TAILP) \TEDIT.WINDOW.OPS (MOUSESTATE INSIDE?) GETLIS (LITATOM FMEMB) CL:FILL-POINTER ( +%%ONED-ARRAY-P %%GENERAL-ARRAY-P) FB.PRINTFN (< FIXP) %%ASET2 (%%TWOD-ARRAY-P <) CLISPLOOKUP (FLOATP) +TRACE (CL:CONSP) %%AREF2 (%%TWOD-ARRAY-P <) OPT.FRAMEOPT (OPT.FRAMELOCAL OPT.FRAMEVAR OPT.FRAMEMERGE +OPT.FRAMEDEL) \DEL.PACKET.FILTER (FMEMB) \SLOWIGREATERP (ILEQ TYPENAMEP CL:INTEGERP) \GETSTREAM ( +LITATOM) ATTACHMENU (OPENWP) \LEAF.DIRECTORYNAMEP (UNPACKFILENAME.STRING CL:MEMBER \LEAF.GETFILE) +EDITCOMA (LITATOM EVALV TAILP LISPXREADP) CLISPATOM2C (LITATOM GETPROP CLISPFUNCTION?) \SLOWFGREATERP +(FLOATP SMALLPOSP SMALLP ILEQ) COPYCHARS (\EOFP LESSP ILEQ) ARCTAN (FLESSP FGREATERP) CURSORPROP ( +IGREATERP) SAMECLOOKS (SELECTQ EQUAL ERROR) GREATERP (FIXP) EXTENDABLE-ARRAY-P (STRINGP) EQUAL ( +LITATOM NUMBERP GREATERP LESSP ILESSP STRINGP) PRETTYFILEINDEX (TYPENAMEP DISPLAYSTREAMP FIXP) +INTERSECTION (LITATOM FMEMB MEMBER) EDITSAVE (FMEMB NUMBERP) \BOXIPLUS (ILEQ TYPENAMEP CL:INTEGERP +IGREATERP) LISTFILES (LISTFILES1) ARCTAN2 (FLESSP) GETHASHKEY (SELCHARQ EQUAL) UNDOEDITCOM (PRIN1 +NUMBERP) \BOXIDIFFERENCE (ILEQ TYPENAMEP CL:INTEGERP IGREATERP) XIPAPPEND.BYTE (IGEQ) +MBUTTON.FIND.NEXT.FIELD (IGREATERP) \BSP.PREPARE.INPUT (IGREATERP BSPOPENP TIMEREXPIRED? IGEQ) +\FM.HIGHLIGHTITEM (OPENWP) \COPYOPENFILE (STKPOS) SEDIT::UNDO-LIST-REPLACE (SEDIT::DEAD-NODE?) +CL:REPLACE (<) EDITSMASH1 (FMEMB) OPENSTREAM (TYPEP) KWOTE (NUMBERP) ATTACHWINDOW (MEMB OPENWP) +\CHANGE-VISIBLE-REGION.IP (>=) ONEDINSPECT.BUTTONEVENTFN (MOUSESTATE) INSURE.WINDOW (DISPLAYSTREAMP) +\CURVEEND (GREATERP IGEQ IGREATERP FMEMB ILEQ) LSUBST (EQUAL) COMPILER::ALPHA-EVAL-WHEN (CL:MEMBER) +\CREATEPIECEORSTREAM (STRINGP ATOM STREAMP) SEDIT::COMMENT-LENGTH (GREATERP) IDLE.BITMAP (WINDOWP +STRINGP LITATOM) TEDIT.PROMPTPRINT (TEXTPROP WINDOWP) CLOSEF (\OUTTERMP) IPLUS (ILEQ) \PFFindPageAddr +(FIXP ILESSP IGEQ ZEROP) EDIT2F (IGREATERP TAILP) ARRAY-NEEDS-INDIRECTION-P (%%ONED-ARRAY-P +%%TWOD-ARRAY-P %%GENERAL-ARRAY-P) EDIT4F1 (IGREATERP ZEROP EDIT4F1) CL:ARRAY-DIMENSION (%%ONED-ARRAY-P + %%TWOD-ARRAY-P %%GENERAL-ARRAY-P <) MEMBER (LITATOM EQUAL) PLUS (FIXP FLOATP) CL::%%LOG-FLOAT (<=) +FB.UPDATECOMMAND (FB.MAYBE.EXPUNGE) \MAIKO.10MBSENDPACKET (EQNSADDRESS.HOST) XIPAPPEND.CELL (IGREATERP +) DIRFILENAME (U-CASEP) BITSPERPIXEL (ARRAYP) FB.REMOVE.FILE (NULL.DIRECTORYP EQ.DIRECTORYP) EDIT1F ( +IGREATERP) COMP.BOOL (COMP.PREDP) ONEDINSPECT.COPYBUTTONFN (.COPYKEYDOWNP.) EDITCOML (NUMBERP ATOM +EDIT4E) EDITFPAT1 (LITATOM STRINGP IGREATERP) COPYFILE (DIRECTORYNAMEP) SEDIT::OUTPUT-SPACE (SMALLP +GREATERP) \CLEAR.ROUTING.TABLE (GREATERP) \FM.DISPLAYITEM (OPENWP) EDITBELOW (MINUSP ZEROP TAILP) +DEBUGGER (IMAGESTREAMP TYPEP FMEMB) GET-TWOD-DISPLAYW (WINDOWP) EQUAL-DIMENSIONS-P (%%ONED-ARRAY-P +%%TWOD-ARRAY-P %%GENERAL-ARRAY-P) BMOBJ.IMAGEBOXFN (GREATERP LEQ) LOGAND (ILEQ) HISTORYFIND1 (ATOM +APPLY* EDIT4E HISTORYMATCH FMEMB) TEDIT.PUT.PCTB (IGREATERP EQFMTSPEC ZEROP EQCLOOKS IEQP GREATERP +RANDACCESSP) \BIGNUM.LOGAND (INFINITEP LESSP) TEDIT.DO.BLUEPENDINGDELETE (ZEROP) EDIT4F3 (STRINGP) +ENTER-DEBUGGER-P (TYPEP FIXP IGREATERP) LOGOR (ILEQ) \HCPYMODEDSPPRINTCHAR (IGREATERP ILESSP) BPNT ( +ZEROP NUMBERP MINUSP) \BIGNUM.LOGOR (INFINITEP GREATERP) MSRESPELL (LITATOM) CURSORCREATE (POSITIONP +IGREATERP) COPYDEF (LITATOM) CREATEMENUEDWINDOW (FMEMB REGIONP) \UFStoOtherCopyMess (EQUAL) +FB.FINISH.COMMAND (OPENWP) LOGXOR (ILEQ) CHANGEVAR (FMEMB) EDITBF1 (IGREATERP EDIT4E EDITBF1) +CLISPBROADSCOPE (GETP ZEROP) MSSEEK-WORD (MSWORD?) STKPOS (IGREATERP ILEQ) \BIGNUM.LOGXOR (INFINITEP +LESSP) \VFMReadNext (ILESSP) \CURSORUP (ILEQ) \COMPUTE.ARC.POINTS (GREATERP ZEROP MINUSP LESSP FGTP) +SET-READTABLE-INTERACTIVELY (READTABLEP) UNCOPYATOM (READSYS.HAS.PACKAGES) \INFER.FILE.TYPE ( +RANDACCESSP IGREATERP) FIND1STPRIME (ILESSP ZEROP) ITIMES (ILEQ) \NSFILING.CONFLICTP (STRING-EQUAL) +FB.COPY/RENAME.MANY (STRPOS EQ.DIRECTORYP) MAKEFILE1 (FILEFNSLST MEMB) \CURSOR-VALID-P (CURSORP >= <=) + NOTEVERY (EVERY) TIMES (FIXP FLOATP) PRINTCONSTANT (STRPOS) TEDIT.SUBLOOKS (SAMECLOOKS) NOTANY (SOME) + DEFAULTMAKENEWCOM (FMEMB SAVESET) COMP.PICOUNT (LITATOM COMP.CLEANEXPP) EDITNTH (NUMBERP ZEROP MINUSP +) \BIGNUM.QUOTIENT (INFINITEP IGREATERP) SEDIT::BACKSPACE-COMMENT (IGREATERP) LISPXFIND0 (TAILP) +\RTP.ACTION (ILESSP IGREATERP TIMEREXPIRED?) \SETUPGETCH (ATOM IGREATERP) QUOTIENT (FIXP FLOATP) +TEDIT.SELECTED.PIECES (ZEROP IGEQ ILEQ ILESSP) ADJUSTCURSORPOSITION (POSITIONP IGREATERP) EDIT.BI ( +TAILP) MSWORD? (LITATOM) \LOCATE.PUPNET (EQL <) FIND.LINE (OVERFLOWLINE? BUFTAILP) NU\TOTOPWDS (FMEMB) + PFI.COMPUTE.INDEX.SHAPE (< STRINGP GREATERP) \CURSORPOSITION (IGEQ IGREATERP ILESSP) EDITSMASH ( +GETHASH) COMPILER::ALPHA-COMPILER-LET (CL:CONSP) COMPILER::ALPHA-COMBINATION (CL:CONSP CL:SYMBOLP +COMPILER:ENV-FBOUNDP CL:MEMBER) \PUTBASEFIXP.UFN (IGEQ) CLIPBOARD-PASTE-STREAM (STRPOS) \TAN-FLOAT (< +>) CHAT.BIN (\SYSBUFP) RPT (IGREATERP) \FLUSH.OPEN.STREAMS (DIRTYABLE) EQDEFP (TYPEP GREATERP) UNBREAK + (CL:EQUAL CL:CONSP) CL::%%EVERY-MAP-OPTIMIZER (CL:CONSTANTP CL:CONSP) FRPTQ (IGREATERP) +\PFRemoveDirectoryID (\PFGetRootDirectory ILEQ) COMP.CPI1 (IGREATERP LITATOM) \BIGNUM.REMAINDER ( +INFINITEP) MSPATHS (MSMEMBSET) RPTQ (IGREATERP) CHANGEI.S. (GETD U-CASEP) \BIGNUM.LSH (INFINITEP +IGREATERP IGEQ >= <=) BREAK-FUNCTION (CL:CONSP UNSAFE.TO.MODIFY SI::HAS-CALLS) CURSORPOSITION ( +IGREATERP) ONEDINSPECT.DEFAULT.VALUECOMMANDFN (NUMBERP) \FM.EDIT-GETPOINTERINFO (GREATERP IGREATERP) +GTHASHFILE (HASHFILEP LITATOM) \RSH (IGREATERP ILEQ TYPENAMEP CL:INTEGERP) GETLOCALDEC (FMEMB) +\SPP.NOT.RESPONDING (>= \CLOCKGREATERP) SAVEDEF1 (EXPRP) INTERLISP-NLAMBDA-FUNCTION-P (LITATOM FMEMB +CL:SPECIAL-FORM-P) DEFMACRO-ARG-TEST (ZEROP =) COPYATOM (CL:STRING= GREATERP) MAKEHARDCOPYMODESTREAM ( +WINDOWP) \CHTOPCNO (IEQP IGREATERP ILESSP) EDITGETD (LITATOM GETPROP) COPY-ARRAY (EQUAL-DIMENSIONS-P) +\TEDIT.INSERT.PIECES (IGREATERP IEQP ZEROP IGEQ OPENP) \TEDIT.CLOSEUPLINES (ILEQ ILESSP IGEQ) +TWODINSPECT.SELECTCOLUMNPROP (EQUAL) \CHANGECHARSET.HDCPYDISPLAY (EQP GREATERP) +\TEDIT.PARSE.SEARCHSTRING (MEMBER EQUAL) ZEROP (FLOATP) \LEAF.LOOKUPCACHE (IEQP IGREATERP) CLISPIFYFNS + (GETPROP IGREATERP) COPY-VECTOR (<=) SELECTC (FMEMB) CLISPATOM2A (FMEMB BOUNDP STKSCAN GETPROP +LITATOM DWIMIFY2) GCD (MINUSP) \VFMLower (GEQ EQL) \TEDIT.SUBST.FN1 (IGEQ) \OPENLEAFCONNECTION (MEMB +SELECTC) \NSRANDOM.CREATE.STREAM (SHOULDNT EQUAL) CL:BIT-NOT (BIT-ARRAY-P EQUAL-DIMENSIONS-P) +SI::ADVISE-CONTENTS (CL:SYMBOLP = CL:MEMBER) DINFO (REGIONP) \NSFILING.OPEN.HANDLE (TYPENAMEP) STRMEMB + (GNC) \OUTCHARFN.PRESS (IGEQ ILEQ) /SETSYNTAX (NUMBERP) SET-PACKAGE-INTERACTIVELY (SHIFTDOWNP) +SIMPLE-COMPARE (>) \TFBRAVO.PARSE.PROFILE.PARA (IGEQ) CURSORHOTSPOT (POSITIONP) \SIN-FLOAT (> <) +GETMOUSESTATE (IGREATERP) \PFFindDirectoryID (\PFGetRootDirectory) %%GET-CANONICAL-CML-TYPE (CL:CONSP) + HASHFILEP (LITATOM) \ROUTE.XIP (EQNSHOSTNUMBER) %%MAKE-DISPLACED-ARRAY (>) COURIERTRACE (ACTIVEWP) +ANALYZE-REST (CL:ATOM CL:CONSP >) COURIER.READ.STRING (ODDP GREATERP) TTSKIPSEPR (SPACEP COMPLEXCHARP) + \TEDIT.ORIGINAL.WINDOW.TITLE (STRINGP ZEROP WINDOWP) \FM.EDIT-DELETE (MOUSESTATE ZEROP \FM.ONITEM +IGEQ EQUAL IGREATERP) CHAT.SCREENPARAMS (IGEQ FIXP) MERGEINSERT (MEMBER IGREATERP ALPHORDER) BEEPON ( +ILESSP) COMP.CPI (SELECTQ OASSOC) ONEDINSPECT.DEFAULT.TITLECOMMANDFN (MOUSESTATE) \TTW1 (FMEMB) CL::%%/ + (SMALLP) MSVERB (FMEMB) ARCSIN (FLESSP FGREATERP) SEDIT::LINE-FINISHED (ILESSP) REMAINDER (FIXP) +BEEPOFF (ILESSP) CL::STEP-COMMAND (CL:CONSP CL:MEMBER CL:SYMBOLP CL:CONSTANTP) \HDCPYBLTCHAR ( +IGREATERP ILESSP FMEMB) SHOWBITMAP1.IP (GREATERP) MSMARKCHANGED (APPLY*) CLISPATOM2 (MINUSP +CLISPRESPELL ATOM NUMBERP CLISPNOEVAL FMEMB LITATOM EQUAL) CHANGESLICE (ILESSP) SELECT.LIST.INSPECTOR +(ALISTP PROPLISTP) \HANDLE.PUP.ROUTING.INFO (>= <= <) WALK-TEMPLATE (CL:ATOM) \FTP.FIX.BROKEN.INPUT ( +FMEMB) MINUS (FLOATP) CL::%%EXPT-FLOAT-INTEGER (MINUSP) \FM.EDIT-WORDDELETE (FMEMB ILESSP) +\TELERAIDBREAK (ILESSP IGREATERP SELECTC XKEYDOWNP \TELEKBDWAIT) CONVEXP (ILEQ IGREATERP ILESSP) +CL:ERROR (ENTER-DEBUGGER-P) BIT.IN.ROW (GREATERP) LESSP (FIXP) ETHERHOSTNAME (GREATERP IGREATERP +ILESSP IGEQ) OPT.RETTEST (OPT.EQOP EQUAL) CL:SIMPLE-VECTOR-P (%%ONED-ARRAY-P) \ATMIN (IGREATERP ZEROP +GREATERP) RANDSET (EVERY GREATERP) WALK-FORM-INTERNAL (CL:CONSP CL:SYMBOLP CL:FBOUNDP CL:SPECIAL-FORM-P +) SCAVENGEDSKDIRECTORY (\PFPilotVolumeP) CL:SIMPLE-BIT-VECTOR-P (%%ONED-ARRAY-P) FNTH (IGREATERP) +\TEDIT.HISTORYADD (IEQP) EDIT.BITMAP (LITATOM BITMAPP CURSORP) \SLOWHDCPYBLTCHAR (IGREATERP ILESSP +FMEMB) TWODINSPECT.SELECTROWPROP (EQUAL) \PFInsertDirectoryID (\PFGetRootDirectory) CL:CHAR-NAME ( +CL:GRAPHIC-CHAR-P <=) IDATE (< > EVENP FMEMB ALPHACHARP IGEQ STRING-EQUAL) MAKEFN (FNTYP FMEMB) +RESETSAVE (LITATOM) DASSEM.ASMAJ (ILESSP IGREATERP) \LEAF.REQUESTPAGE (ILESSP \SENDLEAF) +\PROCESS.RESET.TIMERS (LITATOM) HLSTORGB (FGREATERP) WINDOWADDPROP (FMEMB) \PUPGATELISTENER (> +TIMEREXPIRED?) COMPILER::ALPHA-ATOM (CL:SYMBOLP) CL::%%EXPT-INTEGER (MINUSP CL:INTEGERP < EVENP >) +\FM.EDIT-BACKUP (IGREATERP ILESSP) \FTP.RECOGNIZEFILE (\FTP.HANDLE.NO BSPOPENP < >) CL:VECTOR-POP ( +%%ONED-ARRAY-P %%GENERAL-ARRAY-P <=) COMP.ANONP (VARIABLE-GLOBALLY-SPECIAL-P) RAND (ZEROP FIXP) +CL::PROCESS-TYPE (CL::PS-TEMPLATE CL:MEMBER) DASSEM.DSTOREFN (FMEMB) \BSP.HANDLE.INPUT (TIMEREXPIRED?) + INITUFNTABLE (GREATERP) IMOD (IGEQ) \TEDIT.CHANGE.LOOKS (IGREATERP ZEROP FONTP IEQP) SMARTARGLIST ( +LITATOM EXPRP CCODEP) \SETDAYTIME0 (ILESSP) \VFMGenerateFileIDs (EQL) CL:ARRAY-ROW-MAJOR-INDEX (<) +EXPT (FIXP IGREATERP ODDP FEQP ILESSP) NONSYSPROPNAMES (FMEMB) CHECK-PARAMETER-NAME (CL:KEYWORDP +MEMBER) NSPRINTER.HOSTNAMEP (STRPOS) CHAT.LOGIN (FMEMB CHAT.FLUSH&WAIT) CL:ARRAY-IN-BOUNDS-P (<) +REGIONONSCREEN (POSITIONP IGREATERP) FEXPT (EQP) \FTP.OPEN.CONNECTION (TYPENAMEP LITATOM +\FTP.SENDVERSION) BIT.IN.COLUMN (GREATERP) TB.UNDELETE.ITEM (TB.ITEM.UPDATABLE?) CL:CHAR-BITS ( +CL:CHARACTERP) \NSFILING.FULLNAME (<=) \LEAF.ADD.QUOTES (<=) ASET (<) MODERN-MENUBUTTONFN (MOUSESTATE +NEARTOP) \PUTFIXP (ILEQ TYPENAMEP CL:INTEGERP) BREAKCONNECTION (CL:FUNCALL) EDITGETD-LAMBDA (CL:CONSP) + COURIER.READ.SEQUENCE (GREATERP) CL::ROW-MAJOR-ASET (>= <) \PUTSWAPPEDFIXP (ILEQ TYPENAMEP CL:INTEGERP +) WORD.MATCHES.BUFFER (SELECTC IGREATERP COMPLEXCHARP IGEQ ILEQ) CL::%%STRUCTURE-TYPE-TO-FIELDSPEC ( +CL:CONSP) XCL:ROW-MAJOR-AREF (>= <) POWEROFTWOP (SMALLP FIXP IGREATERP) \TEDIT.WINDOW.TITLE (TEXTPROP) + SEDIT:SEDIT (OPENWP PROCESSP) \STRINGWIDTH.HCPYDISPLAYAUX (LITATOM IGREATERP STRINGP) +\GENERIC.RENAMEFILE (FDEVOP \DELETEFILE) ODDP (CL:ZEROP) \GENERIC.OPENP (STRING-EQUAL \IOMODEP) CL:MOD + (CL:FLOATP UFEQP UFGREATERP CL:ZEROP MINUSP CL:PLUSP) CHARACTER.PRINT (IGREATERP) +XCL::IMPLICIT-KEY-REHASH (TYPEP <) CLISPATOM1A (STOPSCAN? ZEROP) SAMEPARALOOKS (SELECTQ EQUAL IEQP +ERROR) COMPLEX-COMPARE-FORWARD (>) \VECPUT (ILESSP IGEQ) \TOTALFIXEDHEIGHT (FMEMB) CLUNARYMINUS? ( +FNTYP CLISPNOTVARP) \VAMUpdateVAM (BITTEST) ERRORX (TYPEP) PRINT-READER-ENVIRONMENT ( +EQUAL-READER-ENVIRONMENT) \GS.INITBUF (ILESSP) CL:CHAR-FONT (CL:CHARACTERP) SEDIT::COPY-SELECTION ( +SEDIT::CONTAINS?) PASTEFROMCLIPBOARD (WINDOWPROP) FMIN (FGREATERP) LOAD? (FMEMB EQUAL) CL:DIGIT-CHAR ( +<) TEDIT.SELECT (IGREATERP) CLOSEF? (OPENP) CL:MAKE-CHAR (EQL) SI::ADVICE-HASDEF (CL:GETHASH) +RECLISPLOOKUP (MEMB) LOADCOMP? (STRING-EQUAL) HRULE.CREATE (EVERY) GEQ (LESSP) TEDIT.SUBPARALOOKS ( +SAMEPARALOOKS) CLISPRECORD (RECORDFIELD?) IGEQ (ILESSP) FMAX (FGREATERP) \COURIER.ATTENTIONFN ( +WRITEABLE APPENDABLE) PREVWORD (WORDSEPRP IGREATERP COMPLEXCHARP ILESSP) \CIRCSHADE.XSCAN.IP (IGEQ +MINUSP EQUAL IGREATERP) SETY.IP (NUMBERP >=) ILEQ (IGREATERP) FW-FILTERED-FILE? (DIRECTORY.MATCH) +GENSYM? (LITATOM FIXP) \FM.MENUHANDLER (\FM.ONITEM IGEQ TIMEREXPIRED? STRINGP MOUSESTATE) IMAX (ILESSP +) COMP.LINKCALLP (FMEMB FASSOC) OPT.RETPOP (SELECTQ FMEMB) CL:ALPHANUMERICP (CL:DIGIT-CHAR-P) LOADFROM + (ATOM) IMIN (IGREATERP) COMPLEX-COMPARE-BACKWARD (>) \TOTALFIXEDWIDTH (FMEMB) +PRINT-LOADED-FILE-INFORMATION (STRPOS) CLBINARYMINUS? (NUMBERP LITATOM CLISPNOTVARP CLISPFUNCTION? +FIXSPELL1) \VAMAdjustGroup (ZEROP) SETYREL.IP (>=) FILEGETDEF.FNS (EQMEMB) OPT.JSIZE (ILESSP) LOOKIN ( +EVERY LITATOM STRPOS) MENUBUTTONFN (LASTMOUSESTATE) LEQ (GREATERP) NORMSECT (IGEQ ILEQ ILESSP) +CHECKIMPORTS (IEQP SELECTQ) STKARGS (GREATERP) DINFO.SPECIAL.UPDATE (OBTAIN.MONITORLOCK) MAX (GREATERP +) \3MBRAWRECEIVE (UNINTERRUPTABLY) SUBST (EQUAL) CL:DIGIT-CHAR-P (<= <) \TEDIT.GET.SINGLE.PARALOOKS2 ( +IGREATERP GREATERP) MIN (GREATERP) \TEDIT.WORD.BOUND (FIXP IGREATERP) \MACOUTCHARFN (IGREATERP) +\NSFILING.HANDLE.ERROR (STRPOS) SEDIT::GENERATE-LINEAR-FORM (ILEQ IGEQ) \PAGED.INCFILEPTR (>= < <=) +FIND.NEXT.WORD (WORDSEPRP IGREATERP COMPLEXCHARP) SCALE/GRAPHNODE/BORDER (FIXP) PARSE-FORMAT-OPERATION + (CL:DIGIT-CHAR-P CL:MEMBER) CL:STANDARD-CHAR-P (CL:MEMBER) \PRESSFAMILYCODELST (GREATERP) +FINDFIELDUSAGE (FMEMB) MAKE-NETWORK-TRACE-WINDOW (WINDOWP DISPLAYSTREAMP) CL:CHAR-EQUAL (<) INTCHECK ( +IGREATERP GETINTERRUPT) \SETCARET (ILESSP IGEQ) \BUFFERED.BIN (IGEQ) FORMAT-EXPONENT-MARKER (TYPEP) +\DECODEPRESSFACEBYTE (ILESSP IGEQ) CL:GRAPHIC-CHAR-P (>) MOVD (EXPRP) \CIRCSHADE.DISPLAY (IGEQ MINUSP +EQUAL IGREATERP) \PSC.SYMBOLS (EQUAL) CL:CHAR-LESSP (<) CL::COERCE-TYPE (CL:CONSP) DIRECTORY.MATCH1 ( +IGREATERP MEMB STRPOS DIRECTORY.MATCH1 LEQ SELCHARQ) \BUFFERED.PEEKBIN (IGEQ) \LFEntryPoint ( +\PFVersionOK) CL:CHAR-GREATERP (<) ADJUSTLINE (> < EMPTY.LINE START.OF.PARAGRAPH? SMALLP) MOVD? (EXPRP +) COMPILER::CHECK-ARG (CL:SYMBOLP CL:KEYWORDP) \BUFFERED.BOUT (ILESSP) CL:CHAR-NOT-GREATERP (<) +SETXY.IP (>=) TEDIT.INCLUDE (INFILEP OPENP \TEDIT.FORMATTEDP1 IGREATERP) CHNGNM (STKPOS MEMB) +\LEAF.DEVICEP (STRPOS GREATERP SMALLP EQL) DELFROMLIST (FMEMB) \PS.SCALEHACK (NUMBERP EQP) +CL:CHAR-NOT-EQUAL (<) CHANGENAME (CHANGENAME1 EXPRP) APPENDNUMBER.IP (FIXP ILEQ LESSP) \BOXFPLUSDIF ( +FLOATP IGREATERP SMALLPOSP SMALLP ILEQ ILESSP) FW-CREATE-OFD-LIST (FW-FILTERED-FILE? FW-OFD-EXISTS?) +SELECTQ1 (FMEMB) \FM.RIGHTBUTTONFN (INSIDEP \FM.CHECKREGION \FM.ONITEM IGEQ) \BUFFERED.BINS (IGREATERP +) COMP.CLEANFNP (LITATOM) \BOXFTIMES2 (FLOATP IGREATERP SMALLPOSP SMALLP ILEQ) SI::ADVICE-PUTDEF ( +CL:CONSP) PFI.PRINT.INDICES (<= >) \CIRCSHADE.IP (IGEQ MINUSP EQUAL IGREATERP) \MOVEBYTES (IGREATERP) +\BOXFQUOTIENT (FLOATP IGREATERP SMALLPOSP SMALLP ILEQ) USERLISPXPRINT (STRPOS) CIRCSHADE.BLT (NUMBERP +STREAMP TEXTUREP) SEDIT::REPLACE-CHARS (ILEQ) CL:CHAR< (<) COMP.CLEANEXPP (COMP.CLEANFNP) CCCSCAN ( +LITATOM FIXP SMALLP EQP) BLTVLINE (IGEQ) \BUFFERED.BOUTS (IGREATERP ILEQ) CL:CHAR> (<) ADDPROP ( +LITATOM) CL:CHAR<= (<) \FLOAT (IGREATERP IGEQ TYPENAMEP TYPEP) RPTPUT (ILESSP LITATOM SMALLP) /REMPROP + (LITATOM) \TEDIT.SEL.CHANGED? (EQUAL IEQP) ONEDINSPECT.VALUEWIDTH (GREATERP) \SCROLL.HANDLER.DOIT ( +IGREATERP) COMPILER::ENV-INLINE-DISALLOWED (CL:MEMBER COMPILER::ENV-P) CL:CHAR= (<) TEDIT.EXTEND.SEL ( +ZEROP IGEQ ILEQ IGREATERP) COMPILER::ENV-INLINE-ALLOWED (CL:MEMBER COMPILER::ENV-P) \MAKEFLOAT ( +IGREATERP ILEQ ILESSP IGEQ) \TEDIT.FIND.PROTECTED.START (LITATOM ILEQ) EMBEDPROG (REBINDP) STOPSCAN? ( +GETPROP ILESSP ATOM) FW-OFD-EXISTS? (OPENP) COMPILER::META-CALL-LAMBDA-SUBSTITUTE (COMPILER::SUBSTITUTABLE-P +) FILEGETDEF.MACROS (FMEMB) CLISPIF0 (FNTYP EQUAL) \CANONICALIZE.PUP.HOSTNAME (LITATOM) AT.END.OF.TEXT + (SPACEP COMPLEXCHARP) BREAKDOWN (EXPRP EQP MEMB NUMBERP GREATERP) CL:CHAR/= (<) FIXSPELL (ARRAYP +LITATOM STRINGP STACKP U-CASEP CL:FUNCALL CL:FBOUNDP BOUNDP FMEMB SOME EDIT4E1 IGREATERP) +TEDIT.GET.LOOKS (ZEROP FIXP) TTYIN.BALANCE (IGREATERP COMPLEXCHARP FIXP) SETUPTIMER (\TIMER.TIMERP) +\LOAD-STREAM (MEMB RANDACCESSP) HEXSTRING (ILESSP) \LFDirectoryP (\PFPilotVolumeP EQL) FILEWATCHPROP ( +EQUAL) \GETSPP (SEQ.GREATERP TIMEREXPIRED?) BLTHLINE (IGEQ) CLISPATOM0 (CLISPELL LITATOM) OPT.RETOPT ( +OPT.RETPOP OPT.RETTEST) SETX.IP (NUMBERP >=) CL:CHAR-NOT-LESSP (<) FW-LOOP (EQUAL) DWIMDEF (SELECTQ +LITATOM EQMEMB) SETXYREL.IP (>=) COMPILER::FRAME-ANNOTATE-TAGBODY (COMPILER::BLIPPER-CLOSED-OVER-P) +\CIRCSHADE.BLT (IGEQ MINUSP EQUAL IGREATERP) \BRUSHBITMAP (GREATERP ILESSP) CL:CHAR>= (<) +TEDIT.ADD.MENUITEM (MEMBER) TIMEREXPIRED? (\TIMER.TIMERP) FIXFIELDORDER (CONSTANTEXPRESSIONP NOTOKSWAP + MEMB) APPENDLARGEVECTOR.IP (GREATERP) SETCORNER (IGREATERP) \TEDIT.PUT.SINGLE.CHARLOOKS2 (ZEROP) +LAYOUTLATTICE (FASSOC) DUMPDATABASE (MEMB) LOAD (CL:PACKAGEP) \LFOpenOldFile (EQL) NARGS (LITATOM +ILESSP TYPEP) \TEDIT.FORMAT.FOOTNOTE (IGREATERP) HASDEF (MEMBER APPLY* LITATOM BOUNDP GETTEMPLATE +GETLIS FASSOC CL:KEYWORDP RECLOOK EXPRP GET RECORDFIELD? FMEMB) \TEDIT.GET.CHARLOOKS.LIST2 (IGREATERP +GREATERP) TIME.UNTIL (\TIMER.TIMERP) \TFBRAVO.GETPARAMS (LITATOM) FIXEDITDATE (FMEMB EDITDATE?) +PFI.CONDENSE.INDEX (PFI.LOOKUP.NAME CL:FUNCALL) BLTMENUIMAGE (WINDOWP OPENWP) TB.DELETE.ITEM ( +TB.ITEM.UPDATABLE?) SCALEPAGEUNITS (ILESSP) \ARGPTR (> <=) XCL::UNDOABLY-SETF-SYMBOL-FUNCTION (CL:CONSP + CL:SYMBOLP) IMAGESTREAMP (IGREATERP EQMEMB) OPT.FINDEND (OPT.JUMPCHECK) DELDEF (EXPRP) CCCSUBFN? ( +FMEMB) EQUALN (NUMBERP STRINGP STACKP ILESSP) FNS.PUTDEF (FMEMB UNSAFE.TO.MODIFY HASDEF GETD) +IMAGESTREAMTYPEP (EQMEMB) \CH.GUESS.NEW.PROPERTIES (GREATERP) FORMAT-FIXED-AUX (>= <=) \MATMULT441 ( +GREATERP) STKNTH (ILESSP) UNSAFE.TO.MODIFY (FMEMB GETD) \TEXTBIN (ILESSP ZEROP EQCLOOKS) +TEDITCHAT.MENUFN (LASTMOUSESTATE) \MATMULT144 (GREATERP) \LFCreateFile (\PFNewPages) EQMEMB (FMEMB) +\FM.WINDOWENTRYFN (LASTMOUSESTATE INSIDEP \FM.CHECKREGION \FM.ONITEM IGEQ) \MATMULT331 (GREATERP) +\LFCreateDevice (BOUNDP) U/L-CASE (AT.END.OF.LINE COMPLEXCHARP >=) CL::INSERT-INCLUDED-SLOT ( +CL::PSLOT-READ-ONLY) \MATMULT133 (GREATERP) GET-ONED-DISPLAYW (WINDOWP) \MATMULT444 (GREATERP) +TEDIT.HARDCOPY-COLUMN-END (ILESSP ILEQ) PRINTPACKETDATA (IGEQ ILESSP FIXP IGREATERP) \MATMULT333 ( +GREATERP) IMAGEOBJPROP (IGREATERP IMAGEOBJP) STKSCAN (LITATOM \FRAMESCAN) +HASH-LEFT-PAD-INITIAL-CONTENTS (>) PRINTANDBOX (FIXP IGREATERP) \FRAMESCAN (NULL-NTENTRY) INSIDE? ( +IGEQ) MSSETREP (NOTANY) CHAT.RESHAPEWINDOW (PROCESSP RELPROCESSP) FIND-MACRO-FUNCTION ( +CL-MACRO-WRAPPED-P CL:FUNCTIONP) SI::A-OR-AN (SI::VOWEL-P) \LFGetStreamForFile (\FILE-CONFLICT +IGREATERP) PRINTERPROP (EQMEMB) CL:GET-MACRO-CHARACTER (CL:CONSP FMEMB) COUNTDOWN (IGREATERP) +OPT.COMMONBACK (OPT.EQOP) APPENDINT.IP (LESSP) SHRIEKER (ATOM) PRINTERTYPE (EQMEMB APPLY* STRING-EQUAL +) DO-DISPATCH-MACRO (DIGITCHARP IGEQ) FW-CREATE-OFD (RANDACCESSP OPENP) FILEGETDEF.LISPXMACROS ( +SELECTQ MEMB) MSSEEKPHRASE (FMEMB) ADDSPELL (LITATOM) SETTAIL? (EMPTY.BUFFER ILESSP ILEQ) +GETDEFFROMFILE (LITATOM) FLOATP.TO.BCPL (FEQP IGREATERP) OPT.JUMPREV (OPT.EQOP OPT.DELCODE FMEMB +OPT.CALLP OPT.JUMPCHECK OPT.EQVALUE) /SETTOPVAL (LITATOM) CLISPRESPELL (LITATOM +CLISP-SIMPLE-FUNCTION-P CLISPNOTVARP) PRINTFILETYPE.FROM.EXTENSION (FMEMB) \DO-DEFINE-FILE-INFO (TYPEP + SMALLP ILESSP IGREATERP) EXEC-READ-LINE (READP SYNTAXP READ) SHRINK-VECTOR (< >) +FORMAT-PRINT-RADIX-AUX (TYPEP) BCPL.TO.FLOATP (ILESSP IEQP SMALLP) XCL::GET-UNDOABLE-SETF-METHOD ( +CL:SYMBOLP CL:CONSP) SEDIT::COMPLETE (CL:MEMBER) RUNION (FMEMB) ADDFILE (LITATOM) COMPILER::META-CALL-LAMBDA + (COMPILER::VARIABLE-READ-REFS COMPILER::VARIABLE-WRITE-REFS COMPILER::NODE-SUBST-P) CHAT.BUTTONFN ( +LASTMOUSESTATE) \MAXWIDTHOFGROUP (GREATERP) \POSTSCRIPT.ACCENTFN (IGREATERP) RESET/NODE/BORDER ( +WINDOWP) MSVERBTYPE (EQMEMB) UPDATEFILEMAP (SYNTAXP FIXP ILEQ) HPRINTEND (MINUSP) +\TEDIT.FIND.LAST.LINE (ILESSP) \TEDIT.LOOKS.UPDATE (ZEROP EQCLOOKS) SETXREL.IP (>=) COMP.STBIND (EVERY +) TEDIT.SEL.AS.STRING (ZEROP GREATERP) NOTOKSWAP (ARGS.COMMUTABLEP) ROOTFILENAME (TYPEP) +TTYIN.SCRATCHFILE (OPENP) TRYNEXT1 (STACKP) COPIEDFROMSPEC (LESSP FMEMB) CENTERPRINTINAREA (IGREATERP) + SMASHFILECOMS (LITATOM) CL:SET-DISPATCH-MACRO-CHARACTER (CL:DIGIT-CHAR-P) SHOWSHADEDITEMS ( +\MENUSUBITEMS) \PFDsplyVolumes (DEFINEDP) SETSTKARG (LITATOM ILESSP IGEQ NULL-NTENTRY ILEQ) +FASL:PROCESS-FILE (<) SKIP/ZAP (AT.END.OF.LINE) CL-MACRO-WRAPPED-P (CL:CONSP CL:EQUAL) STKARGNAME ( +LITATOM \SPREADFRAMEP IGREATERP ILESSP FIXP SMALLP ILEQ NULL-NTENTRY EQP) BUILDTESTRELQ (LITATOM) +COMPILER::ENV-DECL-P (COMPILER::ENV-P) ENUM-STRING (MINUSP) SETSTKARGNAME (LITATOM IGREATERP ILESSP +FIXP SMALLP ILEQ NULL-NTENTRY EQP) MB.DEFAULTBUTTON.ACTIONFN (ZEROP \TEDIT.QUIT) PROMPTCHAR ( +LISPXREADP IGREATERP) \TEDIT.TRY.ABBREV (STRINGP SMALLP LITATOM GETD) %%PRINT-ARRAY-CONTENTS (>) +CL:VECTOR-PUSH-EXTEND (>) \POSTSCRIPT.ACCENTPAIR (IGREATERP ILESSP) \FM.COLLECTNWAYS (FMEMB) +%%DEFPRINT-ARRAY (<=) \CONVERTNUMBER (>= > <) PRINTCOPYRIGHT (/PUTPROP) STKNARGS (\SPREADFRAMEP +IGREATERP NULL-NTENTRY) OPT.LABELNTHPR (IGREATERP) FILEPKGCHANGES (LITATOM FMEMB CL:EQUAL) +SET-FILL-POINTER (%%ONED-ARRAY-P %%GENERAL-ARRAY-P <=) FRAMESCAN (LITATOM) LISPXPRIN1 (STRINGP) +DINFO.UPDATE.MENU.DISPLAY (ILESSP) HPRINT1 (ILEQ FIXP EQP GREATERP ILESSP EQUAL GETCONTROL GETECHOMODE +) COERCE (TYPEP CL:MEMBER CL:CONSP CL:COMPLEXP) TTECHO.TO.FILE (EQMEMB COMPLEXCHARP) LISPXREADBUF ( +NUMBERP IGREATERP EVAL) %%DEFPRINT-VECTOR (CL:STRINGP <= CL:BIT-VECTOR-P) RPTPRINT (EQP) +FB.HARDCOPY.MAXWIDTH (>) GREET (GETD) \TEDIT.GET.PARALOOKS.LIST2 (IGREATERP GREATERP) PRETTYDEF ( +\DTEST NLSETQ RANDACCESSP EQUAL-READER-ENVIRONMENT) FNUM-STRING (CL:PLUSP MINUSP) +\TEDIT.FIND.PROTECTED.END (IGREATERP) MB.SIZEFN (DISPLAYSTREAMP) \GOOD.DASHLST (LITATOM BITMAPP +NUMBERP GREATERP ODDP) CL:VECTOR-PUSH (%%ONED-ARRAY-P %%GENERAL-ARRAY-P) COPIEDTOSPEC (STRPOS +UNPACKFILENAME.STRING) \CANONICAL.HOSTNAME (NUMBERP SMALLP < LITATOM) LISPXREADP (READP) +SI::DESCRIBE-USING-INSPECT-MACRO (CL:CONSP) PRINTCOPYRIGHT1 (READTABLEPROP) RESHADEITEM (FONTP) +CHECKDEFS (SOME EQUAL) FIXR (FLOATP IGREATERP SMALLPOSP SMALLP ILEQ ILESSP ODDP) CLEANPOSLST (STACKP) +HASH-LEFTPAREN (<= >=) HASH-BACKSLASH (TYPEP >= <) DECLAREDATATYPE (SELECTQ) READFROMBUF ( +AT.END.OF.LINE COMPLEXCHARP AT.END.OF.TEXT) FLTSTR (= FLOATP IGREATERP SMALLPOSP SMALLP ILEQ > <) +\TELERAIDGET (CL:FUNCALL) RAISEP (RAISE) GREET0 (FIXP EVENP ILESSP) APPENDSEQUENCEDESCRIPTOR.IP ( +ILESSP IGREATERP) \TRACKWITHBOX (LASTMOUSESTATE MOUSESTATE IGREATERP IEQP) DWMFY2 (LITATOM EQMEMB +FMEMB STRPOSL FIXPRINTIN CLISPNOTVARP DWIMIFY2A WTFIX0 FGETD EXPRP FIXSPELL1) \VAMFindFreePages (IGEQ +ZEROP EQL) TIMESPOW10 (> < IGEQ) TRANSLATE.DATATYPE (LITATOM FMEMB IGEQ IGREATERP ODDP ILEQ) +\LEAF.CLOSEFILE (WITH.MONITOR DIRTYABLE) INTTOEXT (ILEQ TYPENAMEP CL:INTEGERP IGREATERP) FILEDATE ( +RANDACCESSP) LINELENGTH (NUMBERP ILESSP) EXTTOINT (<) DINFO.UPDATE.GRAPH.DISPLAY (EQUAL) +\TEDIT.PUT.SINGLE.PARALOOKS (IGREATERP) COURIER.BROADCAST.CALL (FIXP) FLTINTLOG (> LESSP >=) /PUT ( +LITATOM) %%REDUCE-MOD (CL:INTEGERP <=) GETDEFERR (EQMEMB STRINGP) RPLCHARCODE (STRINGP SMALLP ILESSP) +GETFILEDEF (FMEMB STRPOS) FILECREATED1 (STRINGP) DO-EVENT (STRINGP CL:SYMBOLP SOME) %%REDUCE-INTEGER ( +CL:CONSP CL:INTEGERP >= < <=) FILE-NAME (STREAMP) EDITE (SELECTQ STRINGP) +%%GET-ENCLOSING-UNSIGNED-BYTE (CL:INTEGERP <=) \UPDATEXYANDBOX (IEQP) READLINE (READP SYNTAXP +IMAGESTREAMTYPEP NLSETQ) %%GET-ENCLOSING-SIGNED-BYTE (CL:INTEGERP <=) FLONUM-TO-STRING (ZEROP CL:PLUSP + CL:CHAR= MINUSP) PFI.HANDLE.* (<) OPT.LBDEL (OPT.JUMPCHECK) IL-MACRO-WRAPPED-P (CL:CONSP EQUAL) +\FM.UPDATEWINDOWEXTENT (IGREATERP) CL:CHARACTER (TYPEP EQL) DIGITSBDP (FLOATP IGREATERP SMALLPOSP +SMALLP ILEQ) EDITLOADFNS? (FMEMB EQUAL) DO.EDIT.PP (TTYIN.BALANCE) MSPATHOPTIONS (MSSEEKTYPE) +SEDIT::DOT-THIS-LIST (IGREATERP IGEQ) %%NUMERIC-STRING-P (CL:STRINGP IGREATERP ILESSP) +\POSTSCRIPT.SPECIALOUTCHARFN (ILESSP IGEQ) TTYINSTRING (\FATCHARCODEP SMALLP COMPLEXCHARP) READHOTSPOT + (MOUSESTATE INSIDE?) COPY.TEXT.TO.IMAGE (EOFP > \EOFP >=) \FM.WINDOWEXTENT (WINDOWP BITMAPP) INSIDEP +(WINDOWP NUMBERP POSITIONP) CHAT.ICONFN (TTY.PROCESSP FNTYP) TTDELETECHAR (AT.START.OF.BUF +AT.END.OF.LINE AT.START.OF.LINE) PRINTHISTORY2 (ATOM) HASH-STAR (>) APPENDIDENTIFIER.IP (IGREATERP) +DWMFY1 (CHECKTRAN LITATOM CLISP-SIMPLE-FUNCTION-P EQMEMB CLISPNOEVAL) EDITMOVENODE (LASTMOUSESTATE +ZEROP) %%INITIALIZE-DEFAULT-PATHNAME (BOUNDP) COPYINSERT (IMAGEOBJP) PRETTYPRINT3 (SELECTQ EXPRP MEMB +SUPERPRINTEQ) REMPROPLIST (FMEMB) NODELST/AS/MENU (ILESSP) GETDEFCURRENT (LITATOM EXPRP EQMEMB FMEMB +WHEREIS) \STRINGIN (IGREATERP GREATERP) FB.SORT.VERSIONS (STRING-EQUAL) XCL::UNDOABLY-SETF-MACRO-FUNCTION + (GETD) \SENDLEAF (PUTSEQUIN) DMCHAT.ADDRESS (<) GETPUPSTRING (IGREATERP) \TELERAIDCOMMAND (XKEYDOWNP) + CLOSE-AND-MAYBE-DELETE (OPENP) PARSE-NAMESTRING1 (FIXP) HASH-EQUAL (CL:ASSOC) +\LISP.TO.NSFILING.ATTRIBUTE (MEMB) ALLPATHS (FMEMB) UNSAVED1 (LITATOM GETD GETPROPLIST) DRAWDASHEDLINE + (IGEQ) \DSKCreateDevice (BOUNDP) HASH-STRUCTURE-LOOKUP (CL:CONSP) SET/LABEL/SIZE (BITMAPP IMAGEOBJP) +PRETTYPRINT (DISPLAYP ATOM IGREATERP BOUNDP EXPRP SELECTQ FMEMB PRETTYPRINT1 GETPROP) TERM.PRINTCHAR ( +>=) GENERATEFN (STACKP) \SEARCHPRESSFONTS (INFILEP) COMPILER::ALPHA-FORM (CL:ATOM) +DINFO.UPDATE.HISTORY (EQUAL GREATERP) SPY.ADD.ENTRY (IGEQ) \FM.READUSERDATA (FMEMB) \EXTNORMALIZE ( +IGREATERP) SEND.FILE.TO.PRINTER (MEMB CAN.PRINT.DIRECTLY) MSMSGPRINT (STRINGP CL:CONSP) SQRT (FLESSP +FGREATERP) XCL::WALK-TAGBODY-1 (CL:SYMBOLP) \EXTFQUOTIENT (IGREATERP IGEQ ILEQ) CLISPEXPANSION ( +GETPROP CL:EQUAL) MSJOINSET (LITATOM) CL::ENSURE-CONSISTENT-PS (CL::PS-TEMPLATE CL:LISTP) SEDIT::HASFAT + (IGREATERP) INIT-CML-READTABLES (GREATERP) \FM.MAKEBITMAP (BITMAPP) CMLREADSEMI (FMEMB) +\CONVERT.FLOATING.NUMBER (CL:CONSP MINUSP) OPENIPSTREAM (BOUNDP) \TEDIT.PARSE.CHARLOOKS.LIST (FONTP) +\VFMMarkBufferDirty (EQL) CL::%%SXHASH (CL:SYMBOLP CL:LISTP CL:NUMBERP CL:STRINGP CL:BIT-VECTOR-P +CL:PATHNAMEP) \VAMBufferSave (FIXP) TEMPLATE (EQUAL) \MAXHEIGHTOFGROUP (GREATERP) +%%DIRECTORY-COMPONENT-EQUAL (%%DIRECTORY-COMPONENT-P) FB.DELVER.FILES (STRING-EQUAL GREATERP +FB.DELETE.FILE) COMPAREPRINTN (ILESSP) FASL-FILEDATE (EQL) SHORTLST (IGREATERP ZEROP) CL:MAKE-ARRAY ( +CL:LISTP >= EQUAL > <=) \TEDIT.HCPYLOOKS.UPDATE (ZEROP EQCLOOKS) SKOR (SPELLEQ < IGREATERP) AU-REVOIR +(ZEROP) RESTOREBUF (AT.END.OF.BUF IGEQ IGREATERP) PARSE.NSNAME (STRINGP LITATOM) EDITNUMBERP (MINUSP +IGREATERP) READ-AFM-FILE (STRING-EQUAL BOUNDP IGEQ GREATERP CL:PLUSP ILESSP IGREATERP) TTDELETEWORD ( +AT.START.OF.BUF) TTREADLIST (SKIPSEPRS) MERGLIST (ILEQ) GLOBAL-MACRO-FUNCTION (TYPEP CL:SPECIAL-FORM-P + FMEMB LITATOM GETD) COPYALLBYTES (DISPLAYP) \CHECKSUM (ILEQ IGREATERP) COMP.VARTYPE (COMP.ANONP) +PRETTYCOM (LITATOM BOUNDP MEMB ASSOC) RECLOOK1 (FMEMB) \UNVISIBLE.FLUSH.OPEN.STREAMS (DIRTYABLE) ADIEU + (ZEROP) \MAIKO.PUNTBLTCHAR (IGREATERP ILESSP FMEMB) BUILDGETRELQ (LITATOM) +GET-ENVIRONMENT-AND-FILEMAP (STREAMP RANDACCESSP) TERM.DOWN (>) LISPXREPRINT (STRINGP CL:STRINGP) +\DSPFONT.HDCPYDISPLAY (EQP GREATERP) \GETPRESSFONTNAMES (MEMB ILESSP EQUAL) MINIMUMWINDOWSIZE (LITATOM +) EQLENGTH (ILESSP) \SHADEBITS (MOUSESTATE INSIDE? LASTMOUSESTATE) \FLOATINGSCALE (MINUSP) +\BULK.DATA.CLOSE (WRITEABLE APPENDABLE) \PFReplaceString (IGREATERP GREATERP) \IBMOUTCHARFN (IGREATERP +) \INIT.POWERS.OF.TEN (GREATERP) PFI.HANDLE.PUTPROPS (LITATOM MEMB) GET-FILEMAP-FROM-FILECREATED (FIXP + LESSP) \SETGROUPMIN (GREATERP) \UFSCreateDevice (BOUNDP) \DSKDISPLAY.UPDATE (WINDOWP) CL:COMPILE-FILE + (STREAMP) PRETTYDEF1 (SOME EQUAL) \TEDIT.PARSE.PARALOOKS.LIST (BOUNDP) DOERROR (FMEMB) \BN.COMPAREN ( +IGREATERP ILESSP) MB.CREATE.NWAYBUTTON (GREATERP) \FAULTINIT (SELECTC IGREATERP) \LFDeleteFile (FDEVOP +) \INIT.ETHER.BUFFER.POOL (GREATERP) \BN.FROM.FIXP (ILESSP EQUAL) \SET.VMEM.FULL.STATE (ILESSP +.VMEM.CONSISTENTP.) \UFSDirectoryNameP (FIXP) CL:MACRO-FUNCTION (CL:SYMBOLP LOCAL-SYMBOL-FUNCTION) +TRANSLATE.LOCF (FIXP SELECTQ) EXTENDREGIONTOP (ILESSP) PSCFONT.WRITEFONT (GREATERP) \BN.INTEGERLENGTH +(INFINITEP) CL:MACROEXPAND-1 (CL:CONSP CL:SYMBOLP) DO.DELETE.LINES (>) \UFSOpenFile (DIRTYABLE DSKP +DIRECTORYNAMEP =) \TELERAIDINIT (TYPENAMEP) TTADJUSTWORD (FMEMB LITATOM) \D01.FAULTINIT (IGREATERP +ILEQ GREATERP BITTEST) D-ASSEM::FIXUP-NTENTRY (CL:SYMBOLP FMEMB) RECFIELDLOOK (FMEMB) \DOVE.FAULTINIT +(.VMEM.CONSISTENTP.) \UFSSetFileInfo (STRINGP FIXP) D-ASSEM::EMIT-BYTE (CL:CONSP) +\TEDIT.UPDATE.SHOWSEL (ILESSP) PRETTYDEFCOMS (SYNTAXP LITATOM) \DL.FAULTINIT (.VMEM.CONSISTENTP. +ILESSP) IN/ITEM? (INSIDE?) \UFSWritePages (IGREATERP) \SEQUIN.HANDLE.ACK (UNINTERRUPTABLY) +\FM.GETBITMAPS (ATOM TEXTUREP STRINGP BITMAPP) \TEXTTTYBOUT (IGREATERP) XCL::SAVE-CURRENT-EXEC-PROFILE + (XCL:PROFILE-P) \TEDIT.GET.SINGLE.PARALOOKS (IGREATERP GREATERP ILESSP) PRINTDATE1 (DISPLAYP) +FW-UPDATE-OFD-WINDOW (OPENP FIXP ILESSP EQUAL) \UFSReadPages (LEQ) PRETTYDEF0 (OPENP) \BN.PLUS2 ( +ILESSP IGREATERP) FILEPKG.MERGECHANGES (MEMBER) \UFSTruncateFile (> GREATERP \UFSGetFileInfo-C) +CL::DEFSTRUCT-PARSE-OPTIONS (CL:LISTP) \BN.TIMES2 (GREATERP) NODECREATE (IMAGEOBJP) +SEDIT::MAP-COMMENT-INDEX (IGREATERP) \GETREGIONTRACKWITHBOX (MOUSESTATE LASTMOUSESTATE IGREATERP IEQP) + \SPP.CHECK.INPUT.QUEUE (SEQ.GREATERP) \BN.DIVIDE (ILESSP GREATERP IGEQ IGREATERP) OPT.JUMPTHRU ( +OPT.EQVALUE OPT.CALLP COMP.CLEANFNOP OPT.EQOP) \UFSDeleteFile (\UFS.OPENP \UFSDeleteFile-C) +\FILEMAP-HASHOVERFLOW (> <= STRING.EQUAL) \ARBIN (IGREATERP ZEROP) \UFSRenameFile (\UFS.OPENP +\UFSRenameFile-C EQL) FB.DELVERCOMMAND (FIXP) DIRECTORY.FILL.PATTERN (FILENAMEFIELD) MS-SMASH-PACKAGE +(CL:CONSP CL:SYMBOLP) SIZE/GRAPH/WINDOW (WINDOWP) D-ASSEM::TYPE-NAME-FROM-SIZE (<=) \VFMSmartBLT ( +PTRGTP GREATERP) \LFRenameFile (EQUAL) \FM.GETREGIONS (ATOM TEXTUREP) \UFSCloseFile (DIRTYABLE +\UFSCloseFile-C) SEDIT::REPLACE-ROOT (CL:REST) TRACKW (MOUSESTATE) TTYINENTRYFN (LASTMOUSESTATE) +GETSYNTAX (FIXP FMEMB) EDITSHADE (BITMAPP FIXP MOUSESTATE LASTMOUSESTATE INSIDE? STRICTLY/BETWEEN +NUMBERP) \BN.ABS (ILESSP) MAKEACCESS1 (FMEMB) LISPSOURCEFILEP (STREAMP RANDACCESSP) +\INSPECTW.COMMAND.HANDLER (INSIDEP STRINGP MOUSESTATE) SI::DESCRIBE-INTERNAL (< CL:CONSP +SI::INSPECT-MACRO-USABLE-BY-DESCRIBE?) \BN.SIGN (ATOM IGREATERP ILESSP) \SMASHMENUIMAGEONRESET (FMEMB) + WINDOWDELPROP (FMEMB) \D01.ASSIGNBUFFERS (ILESSP) \TEDIT.NSCHAR.RUN (IEQP ZEROP GREATERP) +XCL::PPRINT-DEFINER-FITP (CL:CONSP) ENTRY# (IGREATERP) PRETTYVAR (LITATOM NUMBERP) \LFTruncateFile ( +IGREATERP GREATERP) \CHAIN.UP.RPT (GREATERP) \UFS.FULLNAME (DSKP) FB.CLOSE&EXPUNGE (FB.EXPUNGECOMMAND) + SEDIT::REPLACE-NODE (SEDIT::DEAD-NODE?) \GETREADSYNTAX (IGREATERP) OPT.JUMPOPT (OPT.JUMPTHRU +OPT.JUMPREV) \PFRoomForFile (EQL) SETCOLORLV.IP (BITMAPP LESSP GREATERP) \GETTERMSYNTAX (IGREATERP) +%%PATHNAME-EQUAL (%%DIRECTORY-COMPONENT-EQUAL) PRETTYVAR1 (MEMB ASSOC FITP) \NSFILING.ADDQUOTES ( +IGREATERP) MAKEDEFLIST (LITATOM) OPT.XVARSCAN1 (FMEMB) D-ASSEM::REF-VAR (D-ASSEM::DVAR-P CL:CONSP) +SETCOLOR16.IP (NUMBERP) FIX-FORM (IMAGESTREAMP EQUAL CL:CONSP =) TERM.LEFT (>) \UFS.OPENP (CL:FUNCALL) + CL:ARRAY-DIMENSIONS (%%ONED-ARRAY-P %%TWOD-ARRAY-P %%GENERAL-ARRAY-P) D-ASSEM::CHOOSE-OP (<=) +NECCSPEC (SPECVARP) COMPILER::EFFECTS-ANALYZE-LITERAL (COMPILER::EVAL-WHEN-LOAD-P) \LEASTPTAT ( +IGREATERP) \FM.CHECKPROPS (FMEMB FIXP TEXTUREP) \TEDIT.FORMATTABS (ILEQ) D-ASSEM::FETCH-HUNK (CL:ZEROP + <=) SEDIT::RELINEARIZE-WHERE-NECESSARY (SEDIT::DEAD-NODE?) MKACCESSFN (FMEMB) \M44ACTONVMEMFILE (ILEQ + IGREATERP GREATERP ILESSP IGEQ) \SHOWSEL.HILIGHT (IGEQ ILESSP) \ITEM.WINDOW.SELECTION.HANDLER ( +LASTMOUSESTATE INSIDE?) \UFS.REMOVE.HOST.FIELD (DSKP STREQUAL) UNMAKEHARDCOPYSTREAM (WINDOWP) +PRETTYCOM1 (LITATOM ERSETQ) COMPAREPRINT1 (LITATOM) \RESHOWBORDER1 (FMEMB) LVLPRIN (MEMB TAILP) +CL::PARSE-SLOT (CL:CONSP) \DOFORMATTING.HARDCOPY (ILESSP ZEROP IGEQ IEQP ILEQ IGREATERP) ADDNAKEDCHAR +(IGREATERP AT.END.OF.BUF) SEDIT::ATOM-CHAR-ESCAPED (IGEQ ILEQ IGREATERP) XYSECTLSEG (MINUSP ILEQ) +\REMOVE-DECLS (CL:ATOM CL:SYMBOLP CL:SPECIAL-FORM-P CL:CONSP) COMPILER::META-EVAL-PROGN (COMPILER::LITERAL-P +) D-ASSEM::PUSH-INTEGER (CL:ZEROP = <=) \IDLE.EXIT.ABORT (RELSTK) DEFAULT.INSPECTW.VALUECOMMANDFN ( +MOUSESTATE) SEDIT::COPY-STRUCTURE-STRING (STRINGP) PRINTPARA (MINUSP ILEQ) EXTENDREGIONRIGHT (ILESSP) +TEDIT.BUILD.PCTB (STREAMP RANDACCESSP GREATERP IGREATERP ZEROP FMEMB) COMP.CONST (COMP.PREDP SELECTQ +SHOULDNT) OPT.XVARSCAN (FMEMB) READVARS (LITATOM) PRINTARRAY-TO-LIST (ARRAYP IGREATERP) +\TELERAIDSERVER (\TELERAIDGET EVENP GREATERP XKEYDOWNP IGEQ ILESSP) \TEDIT.PURGE.SPACES (ILEQ) +READARRAY-FROM-LIST (IGREATERP NUMBERP) \UFS.DIRECTORY.NAME (STREQUAL) XCL::%%DELETE-DEFINER (CL:SYMBOLP +) LVLPRIN0 (SUPERPRINTEQ MINUSP) PPSPP (SEQ.GREATERP) INVERTED/SHADE/FOR/GRAPHER (FIXP BITMAPP) +PRINTPARA1 (ILESSP IGREATERP) READVISE (EQUAL) SETSYNTAX (\TERMCLASSTOCODE SELECTQ) +\TEDIT.GET.INSERT.CHARLOOKS (ATOM ZEROP) \BN.IGNN (ILESSP) MB.BUTTONEVENTINFN (IGEQ ILEQ) +\SETTERMSYNTAX (ILEQ IGREATERP) BREAK (LITATOM STRING.EQUAL) D-ASSEM::DCODE-FROM-DLAMBDA (>) /MOVD ( +EXPRP) TB.MAP.SELECTED.ITEMS (< >) \SETREADSYNTAX (IGREATERP ILEQ) FINDRECDECL (TYPENAMEP) +\PFFetchString (GREATERP) \FM.CHECKDESCRIPTION (FMEMB ATOM STRINGP BITMAPP FIXP TEXTUREP) SYNTAXP ( +IGREATERP FMEMB) COMPILER::GENCODE-CALL (COMPILER::CALLER-NOT-INLINE COMPILER::VAR-REF-P CL:EQUAL <= +COMPILER::LAMBDA-REST = COMPILER::LAMBDA-KEYWORD COMPILER::GLOBAL-FUNCTION-P CL:MEMBER COMPILER::LITERAL-P + COMPILER::LAMBDA-P COMPILER::LAMBDA-NEW-FRAME-P COMPILER::OPCODES-P COMPILER::PASSABLE) PRINT3TO10 ( +MEMB) INVERTED/GRAPHNODE/BORDER (FIXP) \BITMAPFROMTEXTURE (GREATERP) SPY.BUFFER.ENTRY (ILEQ) +\READBMDIMENSIONS (NUMBERP ILESSP) SCALEPAGEXUNITS (ILESSP) \MAPCHARTABLE (GREATERP) SEDIT::BACKSPACE-QUOTE + (FMEMB) \VFMFind (\VFMLower ILEQ MESAEQUAL GREATERP) D-ASSEM::DETERMINE-LOCAL-FN-LEXICAL-LEVEL ( +CL:MEMBER) \VAMRecomputeFreePageCount (GREATERP) SCALEPAGEYUNITS (ILESSP) DWIMIFY0 (TAILP FGETD EXPRP) + CLISPNOEVAL (SELECTQ FMEMB GETLIS) REMOVEITEM (MEMBER SOME) BIGNUM.DEFPRINT (INFINITEP SMALLP ILESSP +IGREATERP LEQ IGEQ) CONSTANTOK (SMALLP STRINGP FLOATP FIXP LITATOM IGREATERP) \UFStoOtherRenameMess ( +EQUAL) MSCHECKVARS1 (FMEMB) \BN.TH2D (GEQ IGREATERP) \NSRANDOM.HANDLE.ERROR (\NSFILING.GET.NEW.SESSION +) FW-CLOSE-CMD (MOUSECONFIRM) \VFMDeletePageGroup (ZEROP EQL MESAEQUAL GREATERP) \BN.ISUM1 (ILESSP) +DELETECONTROL (STRINGP) TYPESOF (FMEMB LITATOM EQMEMB CL:FUNCALL HASDEF GETD) POSITIONP (NUMBERP) +\LITCHECK (LITATOM STRINGP) \SHAPEW2 (OPENWP) EXTENDREGIONLEFT (IGREATERP) \BN.NZEROS (GREATERP) +\GREATESTPTAT (IGREATERP) \SEQUIN.COMPARE (IGEQ ILEQ) \STRINGOUT (IGREATERP GREATERP) \TEXTRIGHTMARGIN + (ZEROP) \IDLE.PROMPT.WATCHER (\SECONDSCLOCKGREATERP) PFI.HANDLE.DEFDEFINER (LITATOM EQMEMB GET) +OPT.SCANOPT (FMEMB SOME OPT.DEADSETQP COMP.CLEANFNOP EQUAL SELECTQ RPLACA OPT.EQVALUE) \M-VMEMSAVE ( +.VMEM.CONSISTENTP.) GETCFILE (NLSETQ RANDACCESSP) PRINENDLINE (SELECTQ DRIBBLEFILE) PRINTFILEPROP ( +EQMEMB) \DOCOMPRESSVMEM (IGEQ) EDITGRAPH2 (MOUSESTATE LASTMOUSESTATE) D-ASSEM::EASY-ENTRY-P ( +D-ASSEM::DLAMBDA-KEY CL:EQUAL CL:THIRD) FORMAT-PRINT-CARDINAL (MINUSP ZEROP) ITEMW.REPAINTFN ( +REGIONSINTERSECTP) POLYSHADE.SCAN.IP (NUMBERP) DRAWCIRCLE (LESSP EQP) \TEDIT.APPLY.PARALOOKS (IGEQ) +\FM.RESHAPEFN (IGEQ IGREATERP ILEQ ILESSP) PRINTARRAY (LITATOM ARRAYP IGREATERP PRINT) \LFReadPages ( +CL:ZEROP ILEQ EQL) RESETGRID.NEW (= NUMBERP) INSURE.BRUSH (NUMBERP) SUBPRINT/ENDLINE (SUPERPRINTEQ) +COMP.USERFN (CL:KEYWORDP INTERSECTION LITATOM) DELETELINE (ON.FIRST.LINE) EQP (FIXP FLOATP NUMBERP) +PRINTERROR (EQUAL ILESSP IGREATERP) FITP (>) SEDIT::PROPAGATE-WIDTH-CHANGE (IGEQ) SEditicide (STRPOS) +XCL::EXEC-SHRINKFN (TTY.PROCESSP) D-ASSEM::INTERN-VAR (CL:CONSP) \UFS.HANDLE.RELATIVEDIRECTORY ( +SELCHARQ NCHARS EQMEMB) SUPERPRINT (ATOM STRINGP ILESSP IGREATERP SUPERPRINTEQ SEMI-COLON-COMMENT-P +ARGTYPE) D-ASSEM::GENERATE-EASY-ENTRY (=) Inspecticide (STRPOS) MAKEHVPRETTYCOMS (LITATOM) +\DOFORMATTING (ILESSP ZEROP IGEQ IEQP ILEQ IGREATERP) DELFROMCOM1 (LITATOM) MAKEHARDCOPYSTREAM ( +WINDOWP) GETDELETECONTROL (STRINGP) CL::REMOVE-DOCUMENTATION (CL:STRINGP) \BN.D2TH (IGEQ) ECHOCHAR ( +IGREATERP ILEQ) \LFSetFileInfo (SELECTQ) LISPXUSE1 (STRPOS) READARRAY (IGREATERP NUMBERP) ACCESSDEF4 ( +FMEMB) MARGINBAR (ILESSP ILEQ IGREATERP) SEDIT::DECOMPOSE-PSEUDO-SELECTION (CL:LISTP) +\FM.REDISPLAYMENU (OPENWP) \CLIPCODE (LESSP GREATERP) FINDSYSRECDECL (TYPENAMEP) +INTERSECT/REGIONP/LBWH (IGREATERP ILESSP) \HDCPYDSPPRINTCHAR (IGREATERP ILESSP) \BN.ICANON (IGREATERP +ILESSP) OPT.POSTOPT (FMEMB OPT.FRAMEOPT) GETXIP (TIMEREXPIRED?) SEDIT::COMPOSE-PSEUDO-SELECTION ( +CL:LISTP) \IDLE.IS.PREVIOUS (ZEROP >) SEDIT::SHIFT-STRING (ILESSP IGREATERP GREATERP) +\10MB.INPUT.INTERRUPT (IGREATERP TIMEREXPIRED?) DELFROMCOM (LITATOM MEMB EQMEMB) FIXAPPLY1 (ZEROP SOME +) \HANDLE.RAW.PACKET (APPLY*) ECHOCONTROL (\THINCHARCODEP SMALLP IGEQ) \TEXTMENU.DOC.CREATE (IMAGEOBJP +) \DL.NEWFAULTINIT (GREATERP \LOCKEDPAGEP > < <=) DRAWCURVE (BRUSHP) \FM.OPENFN (WINDOWP WINDOWPROP +STKPOS) UPDATE/BM/DISPLAY/SELECTED/REGION (IGREATERP) SEDIT::CONS-ATOM (SEDIT::HASFAT) BRUSHP (LITATOM + \DEFINEDP MEMB NUMBERP \POSSIBLECOLOR) COMP.PROGLST (ILEQ) FW-CHANGE-POSITION (EQUAL) \UFSSetFileType + (EQUAL) GETFILEPKGTYPE (LITATOM <= STRPOS) TEDIT.GET (MOUSECONFIRM INFILEP STREAMP) +\PARSE.PORTCONSTANT (IGREATERP IGEQ ILEQ) SHAPEW1 (OPENWP) ADDTOCOM (INFILECOMS? LITATOM EQMEMB +GETPROP) COMP.EQ (LITATOM) COMPAREPRINT (EQUAL) D-ASSEM::GENERATE-ARG-CHECK (D-ASSEM::DLAMBDA-REST +D-ASSEM::DLAMBDA-KEY D-ASSEM::DLAMBDA-ALLOW-OTHER-KEYS) MSCHECKBLOCKBASIC (FMEMB GETPROP) +\TEDIT.APPLY.STYLES (LITATOM DEFINEDP) \IDLE.ISMEMBER (STRING-EQUAL STRPOS EQUAL.CH.NAMES SELECTQ) +\TEDIT.PARABOUNDS (ZEROP ATOM) D-ASSEM::REDUCE-UNCERTAINTY (CL:ZEROP) HASHLINKS (SELECTQ) \LFOpenFile +(FMEMB TYPEP) \FM.LAYOUTGRID (IGREATERP) COMPILER::FRAME-ANNOTATE-BLOCK (COMPILER::BLOCK-CLOSED-OVER-P +) \UFS.REGISTER.GFS (>) COMP.UNBIND.VARS (OPT.JUMPCHECK) COMP.UNBOX (LITATOM OPT.CALLP) +\TEDIT.BASICFIND (IGREATERP GREATERP) \UFS.VALID.PROPP (SOME) \UFS.NEXTFILEFN (> < DSKP = ILESSP IEQP +DIRECTORY.PARSE) MSCHECKBOUNDFREE (SPECVARP) UNIX-STREAM-EOFP-NEW (< UNIX-GET-NEXT-BUFFER) +\ORIGTERMTABLE (GREATERP) IN/SCROLL/BAR? (INSIDE?) CHOOZ (ARRAYP STACKP TIMEREXPIRED? IGREATERP ILESSP + CL:FUNCALL STRINGP ZEROP) \UFS.FILEINFOFN (>) \IDLE.AUTHENTICATE (STRPOS) COMPILER::META-SUBST-VAR-REF + (CL:MEMBER) \INTERPRET-ARGUMENTS (< >= CL:CONSP) TESTRELATION (SOME) D-ASSEM::COMPUTE-JUMP-SIZE (<) +\VAMFreePageGroup (IGEQ GREATERP) LASTC (IEQP) \FIXLOCALNET (ILESSP) XCL::EXEC-CLOSEFN (PROCESSP +TTY.PROCESSP) POSTSCRIPT.PUTBITMAPBYTES (LESSP GREATERP IGEQ IGREATERP CL:PLUSP FMEMB) COMPAREFAIL ( +NUMBERP EVERY) EXTENDREGIONBOTTOM (IGREATERP) D-ASSEM::START-PC-FROM-NT-COUNT-LOCAL (FMEMB CL:ZEROP) +MSCHECKFNINBLOCK (MSFIND MEMB) DMCHAT.RIGHT (<) PROMPTFOREVALED (REGIONP) ADDNEWCOM (SELECTQ FMEMB) +FILLPOLYGON (EQUAL) FINDFN (LITATOM EXPRP EVALV) \PEEKREFILL (IGREATERP IGEQ ILEQ) \LOOKUPPORT ( +GREATERP >) D-ASSEM::START-PC-FROM-NT-COUNT (CL:ZEROP) BRKDWNINIT (GREATERP) INTERPRET/MARK/FORMAT ( +EQMEMB FMEMB) XCL::UNDOHOOK (CL:ATOM) COMPILER::FRAME-ANNOTATE-CALL (COMPILER::LAMBDA-P) /DSUBST ( +LITATOM EQUAL) \POLYSHADE.YSCAN.IP (IEQP ODDP ILEQ IGEQ) PFI.HANDLE.RPAQQ (BOUNDP) BMOBJ.GETFN4 (IEQP) + EDITMODE (DISPLAYSTREAMP) PROPLISTP (LITATOM) LATTICE/BREAK/CYCLES (FMEMB) FORWARD.DELETE.TO ( +OVERFLOWLINE?) D-ASSEM::RESOLVE-JUMPS (D-ASSEM::REDUCE-UNCERTAINTY D-ASSEM::DTAG-P) \10MBWATCHER ( +ILESSP) \BLTSHADE.GENERICPRINTER (ZEROP) \SUBREAD (\INTERMP SKIPSEPRCODES IGREATERP ILEQ PROPRB +RBCONTEXT) \DL.MARK.PAGES.UNAVAILABLE (GREATERP) WHATIS (FMEMB) \CLEARWORDS (ILEQ IGREATERP) +TREEGRAPHNODE (ATOM NUMBERP >=) \PS.BOUTFIXP (MINUSP LESSP) UPPERCASEARRAY (GREATERP) \DL.UNMAPPAGES ( +GREATERP) FIND-EDIT-LOCATION-TAIL (EQUAL) ONEDINSPECT.SCROLLFN (EQP FLOATP) /RPLACD (LITATOM) /RPLACA +(LITATOM) DETACHWINDOW (ATTACHEDWINDOWS) HARDCOPYGRAPH (OPENP WINDOWP GREATERP) \TEDIT.FIND.FIRST.LINE + (ZEROP IGREATERP LESSP ILEQ IEQP) \SEQUIN.HANDLE.INPUT (ILESSP IGREATERP) TERM.UP (<) +SEDIT::CLOSE-NODE-LITATOM (STRINGP) \LFGenerateFiles (IGREATERP SELCHARQ CL:ZEROP) DIRECTORY.NEXTFILE +(STRINGP LITATOM U-CASEP) COMP.BIND.VARS (IGREATERP) \CREATEW1 (NUMBERP IGREATERP) FIND.MATCHING.QUOTE + (IGREATERP COMPLEXCHARP) FILLRECTANGLE.IP (>) RELDRAWTO (ZEROP) D-ASSEM::SPLICE-IN-JUMPS (D-ASSEM::DTAG-P +) EDITBMRESHAPEFN (<) GRAPHOBJ.PUTALIGN (MEMB) SHOWSTACKBLOCKS (IGREATERP) SUBFIELDCREATE (SOME) +\UFS.ABORT.CL-DIRECTORY (>) PURGEHISTORY (LITATOM) READTABLEPROP (LESSP GREATERP) SEDIT::EDIT-SELECTION + (CL:FUNCALL) GENERATOR (STACKP) POSTSCRIPT.SHOWACCUM (EQP) SKIPSEPRCODES (IGREATERP) COMPARE1 ( +COMPARE1) EXTENDREGION (IGREATERP) MSCHECKBLOCKS (MEMB) \NSFILING.REMOVEQUOTES (STRPOS) \LFEventFn ( +DEFINEDP \LFDirectoryP) \NSRANDOM.READ.SEGMENT (< DIRTYABLE >) XCL::WALK-DECLARATIONS (CL:STRINGP +CL:LISTP XCL::GET-WALKER-TEMPLATE) COMP.CHECK.VAR (COMP.GLOBALVARP LITATOM) COMP.FLOATUNBOX (OPT.CALLP + NUMBERP EQUAL) \TEDIT.MENU.WHENHELDFN (ATOM) \VAMAllocPageGroup (\VAMEnoughSpace) LAYOUTGRAPH (FASSOC +) INSPECT/TOP/LEVEL/LIST (GREATERP) \UFS.ABORT.DIRECTORY (>) \SETNEWTIME0 (IGREATERP IGEQ) +\UFSMakeUnixFormatName (GREATERP) FORMAT-PRINT-NAMED-CHARACTER (<=) UNIX-BACKFILEPTR-NEW (>) SKREAD ( +IGREATERP) TEDITMENU.STREAM (EQUAL) MIN/BOTTOM (LESSP) DMCHAT.HANDLECHARACTER (DMCHAT.ADDRESS >= <) +INFILECOMSMACRO (EVERY FMEMB SOME) CL:MAKE-CONCATENATED-STREAM (STREAMP) I.S.OPR (ATOM EQUAL) +\UFSParse-Directory (>) MSCHECKBLOCK (MEMB SPECVARP GETPROP CL:CONSTANTP GET BOUNDP) +CL:MAKE-STRING-INPUT-STREAM (CL:ZEROP) MBUTTON.SET.FIELD (ZEROP) LISPXREAD (IMAGESTREAMTYPEP NLSETQ) +CONDITIONS::%%RESTART-PRINTER (CL:STRINGP) \ASSURE.FPTOVP.PAGE (IGREATERP) \INSPECT.STORE.FATCHAR ( +CONFIRM-SET) FB.SUBITEMP (FB.SUBITEMP) \TEDIT.HARDCOPY.DISPLAYLINE (ILEQ ZEROP GREATERP IEQP IGREATERP + SMALLP IGEQ) CREATEW1 (NUMBERP DISPLAYSTREAMP IGREATERP) SETCOLOR.IP (STREAMPROP RGBP LITATOM EQUAL) +TWODINSPECT.SCROLLFN (EQP FLOATP) INIT/NODES/FOR/LAYOUT (FMEMB EQMEMB) CL:KEYWORDP (CL:SYMBOLP) +\UFS.PARSE.BODY (>) CL:PARSE-INTEGER (CL:STRINGP SMALLP ILESSP IGREATERP < > >= <=) PFI.ESTIMATE.SIZE1 + (>) MSPRGDWIM (LITATOM) COMPILER::META-EVAL-CALL (COMPILER::LAMBDA-P COMPILER::CALLER-NOT-INLINE +COMPILER::GLOBAL-FUNCTION-P CL:EQUAL CL:LISTP COMPILER::LITERAL-P) \MKINTEGER (IGEQ) PRIN2-LONG-STRING + (< IGREATERP > >=) \IDLE.OUT (SMALLP GREATERP \SECONDSCLOCKGREATERP) LISPX/ (SELECTQ EQMEMB) +COMP.TOPLEVEL.COMPILE (GETPROP VARIABLE-GLOBALLY-SPECIAL-P FMEMB) CMLRDTBL (GREATERP) \TEXTBACKFILEPTR + (IEQP ZEROP) FINDATOM (EXPRP LITATOM) CLOSE.WINDOWS.IN.REGION (INTERSECTREGIONS) DUMPGRAPH (FONTP) +MIN/LEFT (LESSP) RIGHTW.REPAINTFN (ILESSP) LISPX (FGETD SYNTAXP LITATOM BOUNDP GETLIS CL:FUNCALL +HISTORYMATCH GETD SOME FNCHECK) PFI.ESTIMATE.SIZE (LITATOM MEMB) DECLARED-SPECIAL (FMEMB) +\AUTHENTICATION.FIND.SERVER (SELECTQ) \NSRANDOM.PREPARE.CACHE (GREATERP <= <) \TEDIT.CREATE.LINECACHE +(GREATERP) FILEPKGCOM (GREATERP) CHDIR (\UFSCHDIR-C) CL:APPLY (LESSP) \FLUSHPAGE (ILEQ IGREATERP +.VMEM.CONSISTENTP.) LISPXTYPEAHEAD (READP) \RSTRING2 (IGREATERP \EOFP) \POLYSHADE.XSCAN.IP (IEQP ODDP +ILEQ IGEQ) BMOBJ.GETFN3 (IEQP) ADVISEWDS (ILESSP IGREATERP) \PUTBASEFIXP (IGEQ) READGRAPH (GREATERP) +READOCT (READP EQUAL IGEQ ILEQ) READ-EXTENDED-TOKEN (\EOFP IGREATERP ILEQ) \SETMACROSYNTAX (FMEMB ILEQ +) MOUSESTATE-EXPR (EVERY ATOM) STORETABLE (FMEMB) \VFMInsertPageGroup (MESAEQUAL GREATERP EQL) +\SMASHSTRING (IGREATERP GREATERP) \READTABLEP.DEFPRINT (IGREATERP) \EDITBMHOWMUCH (IGREATERP) +CL:COMPILER-LET (CL:CONSP) IFCDECLARE (\STKSCAN FMEMB) CONCATLIST (STRINGP LITATOM) BREAK0 ( +STRING.EQUAL) \ATBLSET (BOUNDP GREATERP) \TEXTSETFILEPTR (IEQP ILESSP IGREATERP) DEFPRINT (FIXP) +ERASE.TO.END.OF.PAGE (>) MSINIT (FMEMB FIXP) FW-REPAINTFN (OPENP) SI::COMPILED-FUNCTION-ARGLIST ( +CL:STRINGP) ADDCHAR (COMPLEXCHARP IGREATERP) IMAPLIST (ILEQ) PRINTLEAF (IGREATERP EVENP IGEQ) +COMP.COMPILER-LET (CL:CONSP) \INSPECT.STORE.32 (CONFIRM-SET) SI::COMPILED-FUNCTION-DEBUGGING-INFO ( +CL:ZEROP =) DOUSERFNS2 (FMEMB) READ/NODE (MOUSESTATE INSIDEP) \CLIPANDDRAWLINE1 (IGREATERP IGEQ FMEMB) + PRINDOTP (> >=) TWODINSPECT.ARRANGEWINDOWS (POSITIONP ILESSP LESSP) \NSRANDOM.STREAM.CHANGED ( +DIRTYABLE) XCL::WALK-BINDINGS-1 (CL:SYMBOLP) INSPECT/AS/FUNCTION (STACKP) COMP.BOX (LITATOM OPT.CALLP) + INTERSECTREGIONS (GREATERP IGREATERP ILESSP IGEQ) SI::CLEAN-UP-CL-ARGLIST (CL:MEMBER CL:CONSP) +ERRORMESS1 (ATOM STRINGP) \SELECTREALPAGE (.LOCKABLERP. SELECTQ ILEQ IGREATERP ILESSP IGEQ) +SI::GET-STORED-ARGLIST (CL:ATOM) SUPERPRINT/WRAPPER (>) NLAMBDAFNP (EQMEMB FGETD) HISTORYSAVE (ILESSP +IGREATERP ARCHIVEFN LISTGET1) POSITION (IGREATERP) \MAIKO.DISPLAYLINE (ZEROP ILEQ IGEQ GREATERP IEQP +IGREATERP SMALLP) READBQUOTECOMMA (SYNTAXP) \LFParseFileName (CL:ZEROP) \TEXTPEEKBIN (ILESSP \EOFP +ZEROP) SI::FUNCTION-WRAPPER-INFO (CL:SYMBOLP) DOUSERFNS (FMEMB) OVERFLOW? (ILESSP AT.END.OF.LINE) +\INSPECT.STORE.CHAR (CONFIRM-SET) LOGIN (STRPOS) MAKE-READER-ENVIRONMENT (SMALLP ILESSP IGREATERP) +\TEDIT.PUT.SINGLE.CHARLOOKS (ZEROP) REALSTKNTH (ILESSP IGREATERP \REALFRAMEP ILEQ) XCL::WALK-BINDINGS-2 + (CL:SYMBOLP) CANONICAL.HOSTNAME (STRPOS NUMBERP SMALLP < LITATOM) SI::PARSE-CL-ARGLIST (CL:MEMBER) +ONEDINSPECT.ARRANGEWINDOWS (POSITIONP ILESSP LESSP) MOVETOUPPERLEFT (\ILLEGAL.ARG) +\INTERNAL/GETPASSWORD (LITATOM STRPOS STRINGP) FB.COMMANDSELECTEDFN (MEMBER FB.SUBITEMP +FB.MAKE.BROWSER.BUSY OPENWP) PRIN2STRING (SELECTQ IMAGESTREAMP ILESSP IGREATERP) ADDTO (EQMEMB) +BACKSKREAD (IGREATERP COMPLEXCHARP READTABLEPROP) DECLARERECORD (FMEMB) \NSFILING.LOOKUP.CACHE (EQUAL +STRING-EQUAL) ETHERPORT (FIXP) \INSPECT.STORE.16 (CONFIRM-SET) GRAPHOBJ.GETALIGN (MEMB) +SI::RESTORE-CALLS (REMPROP) COMP.TRANSFORM (COMP.PREDP) \8859OUTCHARFN (IGREATERP) MAKECREATELST1 ( +SMALLP GREATERP) COMP.ASET (LITATOM EQUAL FMEMB) CL:EVAL-WHEN (FMEMB) FONTCREATE (IMAGESTREAMP FIXP +STRINGP) SI::ADD-CHANGED-CALL (CL:REST CL:MEMBER) \TEDIT.CHARDELETE (ZEROP ILEQ) +\NSFILING.ADD.TO.CACHE (EQUAL GREATERP) COMP.AREF (LITATOM EQUAL FMEMB) MAX/RIGHT (GREATERP) +\SEND.EXPEDITED.XIP (GREATERP TIMEREXPIRED? IEQP ILEQ IGEQ SELECTC EQNSHOSTNUMBER) BESTPUPADDRESS ( +FIXP GREATERP IGEQ ILESSP ILEQ IGREATERP) MIDDX (IGREATERP ILESSP) IFCPROPSCAN (LITATOM ASSOC FMEMB) +\INTERNAL/SETPASSWORD (IGREATERP GETD) UNDOLISPX2 (MAPC) INSPECTW.REPAINTFN (IGREATERP +REGIONSINTERSECTP) LLSH (IGREATERP ILEQ TYPENAMEP CL:INTEGERP) \POLYSHADE.DISPLAY (IEQP ILEQ IGEQ +ILESSP) CHAT.CHOOSE.EMULATOR (FIXP) MAX/TOP (GREATERP) FILL.INITTBLE (FIXP FMEMB) EDITBMSCROLLFN ( +FLOATP ILESSP IGREATERP) SHOWWTITLE (ZEROP) TTBIN (METACHARP) RAIDROOTFRAME (ALLOCAL) SEDIT::INITIALIZE + (FMEMB) MINIMUMMAINWINDOWSIZE (LITATOM) \LET*-RECURSION (CL:CONSP FMEMB VARIABLE-GLOBALLY-SPECIAL-P) +\INVALID.SYMBOL (CL:STRINGP) SEDIT::INSERT-CHANGED (ILEQ) \PFEnsureInitialized (\PFVersionOK) +TEDIT.FORMATTEDFILEP (ATOM EQFMTSPEC EQCLOOKS) TEDIT.REMOVE.MENUITEM (LITATOM STRINGP EQUAL MEMBER) +TTYIN (STRINGP LITATOM < > GUESTUSER?) \INSPECT.STORE.8 (CONFIRM-SET) \TEDIT.HARDCOPY.FORMATLINE (ILEQ + ZEROP ODDP EVENP GREATERP IGREATERP SMALLP FIXP MEMBER IGEQ ILESSP) \INTERACTIVE.CLOSEW (FMEMB) +MAKEINITBFS (GREATERP) TTSKREAD (IGREATERP COMPLEXCHARP FIXP READTABLEPROP) COMPILER::FIND-SEGMENT ( +CL:MEMBER) MSPRGLAMBDA (CL:SYMBOLP FMEMB CL:CONSP CL:ZEROP CL:SET-DIFFERENCE CL:PLUSP MSFINDP) REMOVE +(EQUAL) \LOGIN.READ (SELECTQ STRPOS) GETCHATWINDOW (WINDOWP) OPT.INITHASH (HARRAYP) SEDIT::ATOM-POINT-TYPE + (IGREATERP GREATERP) \LFNormalizeVolumeName (STRPOS) TTYIN.SETUP (IMAGESTREAMTYPEP FMEMB) PRINTADDRS +(GREATERP EVENP PTRGTP) HISTORYFIND (EQUAL NUMBERP ILESSP IGREATERP SOME FMEMB) COMP.ATTEMPT.COMPILE ( +GETD) SMASHPATTERN (LITATOM) PRINTFILETYPE (IMAGESTREAMP STRINGP OPENP RANDACCESSP) TTYIN.FINISH ( +IGREATERP COMPLEXCHARP EMPTY.BUFFER FIND.MATCHING.WORD EQMEMB LITATOM) GRIDYCOORD (IGEQ) +GRAPHNODE/BORDER/WIDTH (FIXP IGEQ) \ALLOCWIDTHTOGROUPEDWINDOW (LESSP) \ITEM.WINDOW.COPY.HANDLER ( +.COPYKEYDOWNP. MOUSESTATE) TTYINREAD (DISPLAYSTREAMP LINEBUFFER-SKIPSEPRS) TB.REMOVE.ITEM (>=) +\MEDW.BLTCHAR (IGREATERP ILESSP FMEMB) TERM.TAB (IGEQ) ESPATTERN (FMEMB) DEFC (GETD) \DSPXPOSITION.PSC + (EQUAL) \MEDW.XOFFSET (NUMBERP) XCL::WALK-ARGLIST (CL:SYMBOLP CL:CONSP) TTYIN1 (>= < SMALLP > FIXP +EQMEMB EMPTY.BUFFER METACHARP SELECTC IGREATERP ON.FIRST.LINE EMPTY.LINE ENDREAD? TYPEAHEAD? DEFINEDP +BREAK.OR.SEPRP COMPLEXCHARP DO?CMD AT.END.OF.BUF ON.LAST.LINE TTSKREAD TTYIN.BALANCE GUESTUSER? MEMB) +WTFIX1 (EQUAL STRPOSL CLISPNOTVARP EVERY MEMB CLISPFUNCTION? FIXLAMBDA DWIMUNSAVEDEF WTFIXLOADEF +NUMBERP MINUSP CLBINARYMINUS? GETHASH SOME FGETD) \MEDW.YOFFSET (NUMBERP) \VFMGetPageGroup (EQL) +\TEXTEOFP (IEQP ZEROP) SETINITIALS (STRING-EQUAL) MAXMENUITEMWIDTH (BITMAPP) FW-BUTTONEVENTFN ( +MOUSESTATE) REGIONSINTERSECTP (IGREATERP) SEDIT::COPY-SELECTION-DEFAULT (GREATERP) TTDELETELINE ( +EMPTY.BUFFER EMPTY.LINE AT.END.OF.BUF AT.END.OF.LINE) \ORIG-INVALID.SYMBOL (STRINGP) +\TFBRAVO.READ.PARALOOKS (NUMBERP IGREATERP IEQP) \TEDIT.FIND.OVERLAPPING.LINE (ILEQ) TTYIN.READ ( +COMPLEXCHARP SELCHARQ SELECTC IGREATERP \RUNCODED SKIPSEPRS) MAXIMUMMAINWINDOWSIZE (LITATOM) +GRIDXCOORD (IGEQ) \ALLOCHEIGHTTOGROUPEDWINDOW (LESSP) TTWAITFORINPUT (\SYSBUFP LASTMOUSESTATE >= < +EMPTY.BUFFER > TIMEREXPIRED?) \PFFindRootDirEntryNum (GREATERP EQL) MOVENODE (EQUAL) FONTCLASS (ATOM) +UNIX.SENDSCREENPARAMS (UNIX.PARAMS.CONFIRM STREAMPROP) \LINEWITHBRUSH (LITATOM FMEMB IGREATERP IGEQ +ILESSP ILEQ) PROMPTFORWORD (TERMTABLEP GREATERP EQMEMB CHARCODEP LITATOM FMEMB DSPRUBOUTCHAR) BKBUFS ( +READP) RAIDSTACKCMD (ILESSP) PROVIDE.PROMPTING.WINDOW (TTY.PROCESSP DISPLAYSTREAMP HASTTYWINDOWP +OPENWP WAIT.FOR.TTY) ERASEPROPS (SOME LITATOM MEMB) CLBUFS (READP STREQUAL) \TEDIT.FIXCHANGEDLINE ( +IEQP ILESSP IGEQ ILEQ APPLY* IGREATERP) PUTSEQUIN (SELECTC ILESSP ILEQ) INFILECOMSVAL (MEMBER LITATOM +EQUAL) \TEDIT.LINECACHE (IGEQ) \ALLOCATE.ETHERPACKET (ILESSP) \POSSIBLECOLOR (IGEQ ILEQ) +\TEDIT.SET-TOTLEN (GREATERP) \CCLOSURE.DEFPRINT (IGREATERP STRINGP) \TFBRAVO.READ.CHARLOOKS (NUMBERP +IGREATERP) HELPSYS (FGETD) \DEFINEDP (LITATOM) POSTSCRIPT.BITMAPSCALE (GREATERP LESSP) +\GET-COMPILED-DEFINITION (LITATOM) RINGBELLS (GREATERP) UNADVISE (EQUAL) \SPP.SKIPBYTES (IGREATERP) +\DSPYPOSITION.PSC (EQUAL) PFI.DEFAULT.HANDLER (MEMB LITATOM STRINGP) HLSP (NUMBERP IGREATERP FLOATP) +\TEDIT.OBJECT.SHOWSEL (INSIDE?) READHASHMACRO (DIGITCHARP IGEQ MEMQ CMLREAD.FEATURE.PARSER) +FW-AFTERMOVEFN (ILESSP IGREATERP) RGBP (SMALLP IGREATERP) FORMAT-PLURAL (EQL) TERM.SMOOTHSCROLL ( +GREATERP) SEDIT::STRING-OFFSET (GREATERP ILESSP) \PFGetLVPage (STRING-EQUAL) NEGSHADE (NUMBERP <) +FB.SHAPECOMMAND (>) WINDOWPROP (IGREATERP) \MAKESPACEFORLOCKEDPAGE (ILEQ IGREATERP) \TEDIT.BLTCHAR ( +ILESSP) DASHINGP (NUMBERP) SEARCHPDL (APPLY*) SUPERPRINT/COMMENT (> STRINGP SUPERPRINTEQ IMAGESTREAMP +<) YMAPLIST (ILESSP) \MOVETO.PSC (EQP) RAIDCOMMAND (ILEQ FIXP GETD RECLOOK) SETUPPAGEMAP (GREATERP) +WORDSPERNAMEENTRY (FMEMB) INSPECT/ARRAY (ARRAYP GREATERP) DISPLAYAFTERENTRY (GETD) +ESTIMATE-DIMENSIONALITY (GREATERP) \MAKE.ITEMS.VERT.ORDER (GREATERP) DISPLAYBEFOREEXIT ( +DISPLAYSTARTEDP) MAXMENUITEMHEIGHT (BITMAPP) LISPXUSEC (NUMBERP STRPOS PRIN2 PRIN1 LITATOM STRINGP +NLSETQ EDITFINDP) \INSPECT.COMPUTE.TITLE (LITATOM) SUPERPRINT/SPACE (<) MSPRGTEMPLATE1 (APPLY* +CL:KEYWORDP) CMLREAD.FEATURE.PARSER (CL:CONSP FMEMB) COMPILER::EXPAND-NESTED-PROGNS (COMPILER::PROGN-P +) CL:MAKE-SYMBOL (CL:STRINGP) SUBPRINT/WRAPPERTAIL (< FITP) FILL-VECTOR (<=) \GETUFNENTRY (LITATOM) +\DONEWEPHEMERALPAGE (IGREATERP) INFILECOM (CL:SYMBOLP LITATOM FMEMB EQMEMB) CHARACTER.READ (IGREATERP) + SEARCH-FOR-EVENT-NUMBER (EQL) MAXIMUMWINDOWSIZE (LITATOM) GRID (ZEROP NUMBERP MINUSP LESSP GREATERP +WINDOWP) \VFMClearIntervals (GREATERP) CHAT (CL:MEMBER PROCESSP PROCESSPROP WINDOWPROP) PURGENSFONTS ( +MEMB EQMEMB >) \NSFILING.OPENFILE (OPENED EQUAL) BYTEBLOCKCOMPILE2 (FMEMB) UNIONREGIONS (GREATERP +LESSP) CALLSCCODE (FIXP SMALLP GREATERP FMEMB ILESSP) EXCHANGEPUPS (IEQP TIMEREXPIRED?) +COPIEDFILEMATCH (COPIEDFILEMATCH) DEFMACRO-LAMBDA-LIST-KEYWORD-P (FMEMB) SEGMENT.LENGTH (COMPLEXCHARP) + COURIER.READ (LITATOM IGREATERP IEQP GREATERP) GRAPHEDITEVENTFN (INSIDE? SHIFTDOWNP) \SUBFNDEF ( +LITATOM GREATERP ILESSP IGREATERP) \SHOWMENULABEL (\MENUSUBITEMS BITMAPP) CL:FUNCTION (CL:SYMBOLP) +INSPECT/ATOM (NONSYSPROPNAMES GETPROPLIST MEMB LITATOM EQUAL) \GET.IOCB (IGREATERP) MAPHASHFILE ( +GREATERP READSTBYTE) \CODEBLOCKP (>= \VALIDADDRESSP) DEFAULT.BACKGROUND.COPYFN (MOUSESTATE ZEROP) +CL:FUNCTIONP (CL:SYMBOLP CL:COMPILED-FUNCTION-P CL:CONSP CLOSURE-P) ADJUSTLINE.AND.RESTORE (IGREATERP) + NSDISPLAYSIZE (CL:MEMBER STRING-EQUAL) \DSPFONT.PSC (MEMB) MSPRGRECORD (FMEMB) UNIX.SETDISPLAYTYPE ( +UNIX.PARAMS.CONFIRM READP TIMEREXPIRED?) SEDIT::DEFAULT-PACKAGE (CL:SYMBOLP CL:KEYWORDP) COMP.SPREAD ( +FMEMB LITATOM CL:SYMBOLP) DIGITBASEP (GEQ LESSP GREATERP LEQ) TEDIT.FORMATTEXTBOX (IGREATERP LISTGET +ZEROP ILESSP) \PROMPTFORWORDERASE (IEQP) FB.INFOMENU.WHENSELECTEDFN (FMEMB) \PROMPTFORWORDBIN (FIXP +READP \EOFP TIMEREXPIRED? TTY.PROCESSP) FM.CHANGELABEL (WINDOWP OPENWP) \DSPMOVELR (CHARCODEP +IGREATERP ILESSP) READPAGEMAP (GREATERP) TEDIT.FORMATFOLIO (IGREATERP ILESSP) PFI.MAYBE.NEW.PAGE ( +DISPLAYSTREAMP > >=) \RELEASEWORKINGSET (\FLUSHVM GREATERP) \PROMPTFORWORDBS (DSPRUBOUTCHAR) +UPDATE/MENU/IMAGE (\MENUSUBITEMS IGREATERP ILESSP) OPENHASHFILE (MEMB) \TEDIT.SELECT.CHARACTER (SMALLP + FMEMB) \10MBSENDPACKET (EQNSADDRESS.HOST) FILL.CONT (GREATERP) DECODE.WINDOW.ARG (WINDOWP REGIONP +NUMBERP POSITIONP) CHARCODE.DECODE (ATOM STRINGP STRING.EQUAL < >= FIXP) DSKDISPLAY ( +\PFEnsureInitialized) \PAGEDBACKFILEPTR (APPENDONLY) STRPOSL (LITATOM ILESSP IGREATERP) \MATCHPCS ( +GREATERP) \CREATECHARSET (IGREATERP FMEMB) \PFRemoveRootDirEntry (GREATERP) COMPUTE-MACRO-ARGS (CL:ATOM + CL:CONSP) \NSFILING.CLOSE.CONNECTIONS (SELECTQ \SECONDSCLOCKGREATERP) MACROS.GETDEF (FMEMB) +PROCESS-EXEC-ID (STRPOS) TRACKCURSOR (EQUAL) \CLIPANDDRAWLINE (IGREATERP FMEMB IGEQ GREATERP) +CHARWIDTHY (SMALLP) \DSPPRINTCHAR (IGREATERP) TEDIT.FORMATHEADING (EVAL IGEQ) +SEDIT::PARENTHESIZE-CURRENT-SELECTION (GREATERP SEDIT::DEAD-NODE?) MSUSERVBTABLES (BOUNDP HASHARRAYP +EQMEMB) SUPERPRINT/COMMENT2 (IGEQ LITATOM SELCHARQ SELECTQ STRINGP) \STRINGWIDTH.GENERIC (LITATOM +IGREATERP STRINGP) EXPANDOPENLAMBDA (ATOM) \INSPECT.STORE.PTR (CONFIRM-SET) MAPPAGES (IGREATERP IEQ) +INSPECT/TYPELESS (\VALIDADDRESSP) GRAPHOBJ.CHECKALIGN (SELECTQ GETNODEFROMID) COMP.GETBASE (OPT.CALLP +FIXP ILESSP IGREATERP) \CH.FIND.ORG.SERVER (STRING-EQUAL) COMPILER::CLOSURE-ANNOTATE-TAGBODY ( +COMPILER::SEGMENT-TAGS COMPILER::TAGBODY-CLOSED-OVER-P COMPILER::TAGBODY-NEW-FRAME-P) TERM.RIGHT (<) +MSBINDVAR (LITATOM FMEMB) START.OF.PARAGRAPH? (COMPLEXCHARP) \BACKCOLOR.DISPLAY (BITMAPP ILEQ FIXP) +PRINTCOMSTRAN (LITATOM SELCHARQ FIXP MINUSP) \FIXLINELENGTH.PSC (GREATERP) MBUTTON.NEXT.FIELD.AS.ATOM +(ZEROP) \UNCOPY (GREATERP) \LASTNODE (LESSP) \BLTSHADE.DISPLAY (FMEMB ILEQ) UNIX-WRITE (IEQP) +PRINTCODE (LITATOM IGREATERP IGEQ GREATERP IEQP EQUAL NUMBERP FIXP SMALLP) \NSFILING.DESERIALIZE1 ( +TYPENAMEP) \SCALEDBITBLT.DISPLAY (WINDOWP BITMAPP) MAKEROOMFORPME (IEQ EVENP) PFI.HANDLE.EXPR (LITATOM +) TEDIT.FORMATPAGE (ILEQ IGREATERP IGEQ ILESSP) EDITBMBUTTONFN (INSIDE? ILESSP IGREATERP +LASTMOUSESTATE MOUSESTATE COLORDISPLAYP SELECTQ REGIONP TYPENAMEP) \BITBLT.DISPLAY (IGEQ WINDOWP FMEMB + WFROMDS WOVERLAPP ILEQ FIXP) PRINTCODENT (ILESSP IGEQ GREATERP FIXP SMALLP) GETPUP (TIMEREXPIRED?) +DELETETO1 (COMPLEXCHARP) \SPLITTREE (GREATERP ZEROP MINUSP LESSP) TEDIT.CURSORMOVEDFN (INSIDE? IGEQ +ILESSP) PRINT-EVENT-PROMPT (CL:CONSP) TYPEP (CL:CONSP) FONTUNPARSE (EQUAL LITATOM) \SEQUIN.PROCESS ( +\SEQUIN.HANDLE.INPUT \CLOCKGREATERP ILESSP) TTLOADBUF (< >=) VMEM.PURE.STATE (IGREATERP ARG) +\DRAWELLIPSE.DISPLAY (ILESSP NUMBERP < LITATOM FMEMB ILEQ IGEQ) DODIRCOMMANDS (ILESSP EVAL STRPOS +DELFILE STRING.EQUAL FIXP) SEQUENTIAL.PRETTYPRINT (<= FMEMB) CSUBST (SIMPLEP FMEMB RECORDWORD) +\DRAWLINE.DISPLAY (FMEMB BRUSHP BIGBITMAPP) \TEDIT.APPLY.PAGEFORMATTING (GREATERP) \CH.LOCATE.SERVERS +(\LOCATE.NSNET STRING-EQUAL) CLISPDEC1 (FMEMB FIXSPELL) \FILLCIRCLE.DISPLAY (NUMBERP ILESSP FIXP FMEMB + IGREATERP) FILL.XPER (GREATERP FMEMB) LISPXUSE (SELECTQ MEMBER) INSPECTW.REDISPLAY (NLSETQ) +INSPECT/DATATYPE (GREATERP) ADVISE (STRING.EQUAL) EDITDATE? (EQMEMB STRINGP LITATOM GREATERP STRPOS) +\XCCSOUTCHAR (\RUNCODED) INSPECTCODE (GETD CCODEP) CASE.PRETTYPRINT (>= FITP SEMI-COLON-COMMENT-P +FMEMB <= <) \SET.LASTVMEMFILEPAGE (IGREATERP) \DSPYPOSITION.DISPLAY (NUMBERP) FILL.TEST (GREATERP) +MSPRGMACRO (EQUAL MSFINDP) \DSPXPOSITION.DISPLAY (NUMBERP) \TEDIT.FILL.IN.CHARLOOKS.MENU (STRING-EQUAL + FONTP ZEROP ILESSP IGREATERP IGEQ) ENDREAD? (AT.END.OF.TEXT SELCHARQ IGREATERP COMPLEXCHARP) PREPLOOP + (NUMBERP) MAKEINITLAST (FIXP IGEQ GETHASH) COPIEDFILEPATTERN (EQUAL) COMP.LOOKUPVAR (COMP.GLOBALVARP) + PROG1.PRETTYPRINT (>= FITP) \TEDIT.FORMAT.FOUNDBOX? (IEQP) \GETREGION.CHECKOPPT (IGREATERP ILESSP +POSITIONP) \DSPRIGHTMARGIN.DISPLAY (NUMBERP) FB.NEWINFOCOMMAND (OPENWP LESSP) COMPILE! (LITATOM +ARGTYPE) CH.PROPERTY (LITATOM) SETFONTDESCRIPTOR (FIXP) FB.ALLOW.ABORT (OPENWP) \DRAWCIRCLE.DISPLAY ( +NUMBERP ILESSP LITATOM FMEMB ILEQ IGEQ IGREATERP) SUPERPRINT0 (CL:SYMBOLP FIXP ILESSP) CONCAT (STRINGP + LITATOM) PROGV.PRETTYPRINT (FITP) HPRINT (HARRAYP RANDACCESSP) \DRAWLINE.PSC (NUMBERP ZEROP LESSP) +\FONTSYMBOL (LITATOM STRINGP) \DSPLEFTMARGIN.DISPLAY (NUMBERP) DUMPINITPAGES (GREATERP RANDACCESSP) +MSPRGE (LITATOM FMEMB SOME FGETD MSFINDP EQUAL NLAMBDAFNP MSPRGMACRO) NTH.RELATIVE.COLUMN.OF ( +IGREATERP ILESSP COMPLEXCHARP) \UTF16.BACKCHARFN (\BACKFILEPTR) XCL::VARIABLE-LEXICALLY-BOUNDP (BOUNDP +) PRINTPROG (LITATOM ILEQ ILESSP) FM.TOPGROUPID (WINDOWP) \FONTFACE (\FONT.COMPARESYMBOL LITATOM +STRINGP STRPOS) %%SET-ARRAY-OFFSET (%%ONED-ARRAY-P %%TWOD-ARRAY-P %%GENERAL-ARRAY-P) CREATEFIELDS ( +ASSOC FMEMB) \FONT.SYMBOLMEMB (\FONT.COMPARESYMBOL) COURIER.EXPEDITED.CALL (GREATERP) +%%SET-ARRAY-TYPE-NUMBER (%%ONED-ARRAY-P %%TWOD-ARRAY-P %%GENERAL-ARRAY-P) SUBPRINT (LITATOM FMEMB +SUPERPRINTEQ FGETD ATOM BOUNDP BACKARROWP FITP) \DOVMEMFULLINTERRUPT (>=) CLISPLOOKUP1 (FMEMB ATOM) +\NSFILING.AFTER.LOGIN (STRING-EQUAL) \DSPLINEFEED.DISPLAY (NUMBERP) \PFCurrentVol (EQL) SUBPRINT1 ( +LITATOM) \REGIONOVERLAPAREAP (IGREATERP) \FONT.SYMBOLASSOC (IGEQ ILEQ \FONT.COMPARESYMBOL) +DIRPRINTNAME (> <= GREATERP) \MAP-CODE-LITERALS (FIXP SMALLP GREATERP) \DRAWCURVE.PSC (NUMBERP ZEROP +FLOATP GREATERP) \FONT.COMPARESYMBOL (LITATOM IGEQ ILEQ IGREATERP) CHECKIFPAGE (EQUAL) DSFIT1 (ILESSP +DSFIT2) PAINTW (IEQP LASTMOUSESTATE INSIDE?) \IDLE.TIME (ILESSP GREATERP) PRINTSQ (IGEQ EQMEMB) +SETUPPUP (IGEQ) INSPECT/HUNK (GREATERP) UTF16BE.INCCODEFN (SMALLP) FIND-HISTORY-EVENTS (FMEMB) +BACKARROWP (STRPOS) \AREAVISIBLE? (\AREAINREGIONP \REGIONOVERLAPAREAP) UNIX.HOST.FILTER (STRING.EQUAL) + XCL::VARIABLE-SPECIAL-P (BOUNDP) EDITADDNODE (POSITIONP) CACHEMACRO (TYPEP) XCL::VARIABLE-LEXICAL-P ( +BOUNDP) SPP.CLEARATTENTION (\SPP.PREPARE.INPUT) FB.NEWPATTERNCOMMAND (FB.MAYBE.EXPUNGE) DSFIT2 ( +SUPERPRINTEQ ILESSP DSFIT2 ILEQ) \IDLE.EXIT? (MEMB \IDLE.IS.PREVIOUS \IDLE.ISMEMBER \IDLE.AUTHENTICATE +) HISTORY-NTH (<= EXEC-EVENT-INPUT STRINGP) XCL::GET-IMPLICIT-KEY-HASH (TYPEP) SEGMENT.BIT.LENGTH ( +COMPLEXCHARP) SPP.FLUSH.TO.EOF (\SPP.PREPARE.INPUT) SHOW.MATCHING.PAREN (< TYPEAHEAD? FIXP) LLBREAK ( +GETPROP) TEDIT.BUILD.PCTB0 (GREATERP IGREATERP) \NSGC.COLLECT.DIRECTORIES (EQUAL STREAMP SELECTQ) +TEDIT.SCAN.LINE (GREATERP ILESSP SMALLP \TEDIT.WORD.BOUND IGEQ) MISSPELLED? (FMEMB APPLY*) +\PRINDATUM.TO.STRING (FLOATP) RENAME (HASDEF) LISPXPRIN2 (STRINGP) \TFBRAVO.SPREAD.LOOKS (IGREATERP) +\INSERTTREE (GREATERP ZEROP IEQP) UNDOLISPX1 (PRIN1) FB.YES-OR-NO-P (STRING-EQUAL) /SETATOMVAL ( +LITATOM) BRHL/MOVE/RIGHT (FMEMB ILESSP) /ADDPROP (LITATOM) \DRAWCIRCLE.PSC (NUMBERP ZEROP FLOATP) +ADDPME (IEQ EVENP LOCKEDPAGEP) TEDIT.FORMAT.HARDCOPY (OPENP IMAGESTREAMTYPE IGREATERP) +FORMAT-ROUND-COLUMNS (>) SAVEPUT (LITATOM) XCL::PUT-IMPLICIT-KEY-HASH (TYPEP) FM.WHICHITEM (WINDOWP +POSITIONP \FM.ONITEM IGEQ) FONTSET (CL:SYMBOLP MEMB LITATOM) SPACES (IGREATERP) /PUTPROP (LITATOM) +FIND.MATCHING.WORD (WORD.MATCHES.BUFFER) PRINTNUM (IGEQ) \DRAWELLIPSE.PSC (NUMBERP ZEROP FLOATP) +SIMPLEP (CONSTANTEXPRESSIONP MINUSP EVERY) TAB (IGREATERP) GETCHARBITMAP (CHARCODEP STRINGP LITATOM +TYPEP) \ABORT.BULK.DATA (\SPP.PREPARE.INPUT) MAPFILES (STRPOS FMEMB) MakeMenuOfImageTypes (ASSOC FMEMB +) MAKEWITHINREGION (ILESSP IGREATERP) \TEDIT.UPDATETREE (GREATERP) POSTSCRIPT.TEDIT (STRINGP) +\TEDIT.PARSE.CHARLOOKS.MENU (FMEMB) \CORE.RELEASEPAGES (IGEQ) \PFGetVols (GREATERP) FM.ENDEDIT ( +WINDOWP WINDOWPROP) FB.INSERT.SUBDIRECTORIES (EQ.DIRECTORYP) \CORE.UPDATEOF (IGREATERP IGEQ) +TOPATTACHEDWINDOWS (WINDOWPROP) \GETREGION.CHECKBASEPT (POSITIONP) PUTCHARBITMAP (STRINGP LITATOM) +SHOW.IP (IGREATERP IEQP) TEDIT.BUILD.PCTB2 (GREATERP IGREATERP ZEROP) \TEDIT.ADJUST.LINES (ZEROP +ILESSP APPLY* IGREATERP IGEQ) VARSBOUNDINFORM (LITATOM FMEMB EQMEMB EQUAL) TTYINPROMPTFORWORD ( +DISPLAYSTREAMP TTY.PROCESSP FIXP) CL:MAKE-HASH-TABLE (CL:SYMBOLP CL::%%EQCODEP) \VAMGetVAMPageFor ( +FIXP EQL) RPLSTRING (LITATOM > GREATERP) \CORE.DELETEFILE (FDEVOP) CLEARFILEPKG (SELECTQ ASKUSER) +HISTORY-ADD-TO-SPELLING-LISTS (LITATOM FGETD CL:CONSP CL:FBOUNDP CL:SPECIAL-FORM-P CL:SYMBOLP BOUNDP) +\CORE.GETINFOBLOCK (ILEQ) MB.MARGINBAR.TABTRACK (MOUSESTATE INSIDE? IEQP) CHAT.STARTUP (CL:MEMBER <=) +FM.EDITITEM (WINDOWP WINDOWPROP OPENWP) MAPFILES1 (>= STRING-EQUAL FMEMB) BKSYSBUF (LITATOM IGREATERP +STRINGP) XCL:UNBREAK-FUNCTION (CL:CONSP) \CORE.FINDPAGE (LEQ LESSP IGREATERP) RECORDBINDVAL (SIMPLEP) +NEGATE (NUMBERP STRINGP) GC-FILING-DIRECTORY (EQUAL) TEDIT.BUILD.PCTB1 (GREATERP IGREATERP ZEROP +EQCLOOKS EQFMTSPEC) TEDIT.SELECT.LINE.SCANNER (ILESSP ILEQ IGEQ IGREATERP IEQP ZEROP) +\TEDIT.UNIQUIFY.CHARLOOKS (EQCLOOKS) \CORE.GENERATEFILES (FIXP DIRECTORY.MATCH) \TFBRAVO.EOLS ( +GREATERP) CHECKFPTOVP1 (UNLESSRDSYS) PROCESS.EVALV (\DTEST) TRAPMAKE (ILESSP IGREATERP) CHECKFPTOVP ( +GREATERP) FONTCOPY (GREATERP) DIRECTORY.MATCH.SETUP (LEQ) \FILLCIRCLE.PSC (FIXP ZEROP EQL FLOATP +TEXTUREP BITMAPP) \CHTOPC (GREATERP IGREATERP) TYPE.BUFFER (COMPLEXCHARP) MDESCALE (IEQP) +FONTSAVAILABLE (IMAGESTREAMP FIXP) FONTPROFILE.ADDDEVICE (LITATOM) SEDIT::STRINGWIDTH (STRINGP +IGREATERP ILESSP) LISPDIRECTORYP (\LFDirectoryP) FM.EDITP (WINDOWP) NAMEFIELD (>) \TEDIT.PROCIDLEFN ( +INSIDE? SHIFTDOWNP KEYDOWNP PROCESSP) WARNUSER (EDITFINDP) \LOOKUPFONTSINCORE (EQUAL) SHOWCHARS ( +GREATERP IGEQ ILEQ) \IRM.WILDCARD (\IRM.WILD.MATCH) \CORE.GETFILEHANDLE (\FILE-CONFLICT) +UTF8.PEEKCCODEFN (ILESSP IGEQ) CURRENT.WORD (AT.START.OF.LINE IGREATERP COMPLEXCHARP SELECTC) +\RPLCHARCODE (STRINGP ILEQ IGREATERP \CHARCODEP SMALLP) SHAPEW (\USERFNISDON'T LESSP EQUAL) +\BLTSHADE.PSC (FIXP FLOATP <= TEXTUREP BITMAPP) COMPARE (COMPARELST) \TFBRAVO.READ.USER.CM (FILEPOS +NLSETQ NUMBERP) FONTMAPARRAY (EQUAL IGREATERP ILESSP GREATERP) \TFBRAVO.LCASER (IGREATERP ILESSP) +\CORE.GETFILEINFO (OPENED SELECTQ) \TEDIT.UNIQUIFY.PARALOOKS (EQFMTSPEC) RECORD (FMEMB) EQUALALL ( +GREATERP CL:ARRAY-HAS-FILL-POINTER-P) GNCCODE (STRINGP) LISPX/1 (ATOM FMEMB FGETD) GLCCODE (STRINGP) +\PRINTFPTOVP (ILESSP IGEQ) STREQUAL (STRINGP) TTDOTABS (AT.END.OF.BUF SMALLP ILEQ GREATERP) +FB.PROMPTFORINPUT (> LESSP) CLISPIFY (TAILP GETD) SHRINKBITMAP (EQP GREATERP) FW-ADJUST-REGION ( +IGREATERP) L-CASE (LITATOM IGREATERP IGEQ ILEQ STRINGP) U-CASEP (LITATOM IGREATERP IGEQ ILEQ STRINGP) +\UNITWIDTHSVECTOR (GREATERP) \MAKEBRUSH.DIAGONAL (GREATERP) \NSFILING.COPY/RENAME (\NSFILING.CONFLICTP + STRING-EQUAL \NSFILING.CHILDLESS-P TYPENAMEP) EDITBM (BITMAPP LITATOM REGIONP WINDOWP) SPP.OPENP ( +SPPSTREAMP) MOVEATTACHEDWINDOWS (OPENWP) LOADFNS (MEMB RANDACCESSP) SI::ARGUMENT-ERROR (< >) TEDIT.PUT + (TEDIT.FORMATTEDFILEP EQL IGREATERP RANDACCESSP) POSTEDITALISTS (FASSOC) COMP.FLOATBOX (OPT.CALLP) +CH.CANONICAL.NAME (STRPOS) \CREATEDISPLAYFONT (\GETCHARSETINFO) \TFBRAVO.PARAMNAMEP (EVERY) +\CORE.GETFILENAME (FASSOC) FONTPROFILE (MEMB LITATOM) \ROUTINGTABLE.INFOHOOK (GREATERP) SPELLFILE ( +STREQUAL DIRECTORYNAMEP FMEMB LITATOM FIXSPELL1) ALLOCHASH (NUMBERP LITATOM) COMPILER::CHECK-GLOBAL-CONSTANT + (BOUNDP CL:ATOM) \CREATE-REAL-CHARSET.DISPLAY (EQL) TEDIT (ATOM \TEDIT.ACTIVE.WINDOWP LISTGET) +\CORE.NAMESCAN (STRING-EQUAL UALPHORDER) \TEDIT.FIXINSSEL (IGEQ IGREATERP) CONSTANTEXPRESSIONP ( +LITATOM FMEMB GETD EQUAL NUMBERP) \PUTBASESTRING (STRINGP IGREATERP ILEQ LITATOM) TERM.GODOWN (>) +\CORE.UNPACKFILENAME (<) SEDIT::CFV-CLISP (ILESSP) \SFMAKEITALIC (GREATERP IGREATERP) CHAT.RECONNECT ( +LASTMOUSESTATE MENU) \PUTBASESTRINGFAT (GREATERP) AUTOCR? (IGREATERP AT.END.OF.LINE) SLITLOOP ( +IGREATERP ILESSP) GENSYM (IGREATERP ILESSP IEQP IGEQ GREATERP ILEQ NUMBERP) ALIGNMENTNODE (GREATERP +LESSP) \TEDIT.GET.CHARLOOKS.LIST (IGREATERP GREATERP) FM.SHADE (WINDOWP OPENWP) HCOPYALL1 (LITATOM +SMALLP FMEMB) TILE (IGEQ) BLTPATTERN.GENERIC (>) \BUILDSLUGCSINFO (GREATERP) \IFSERRORSTRING ( +STRING.EQUAL GREATERP) COURIER.WRITE (LITATOM STREQUAL IEQP) GetBcplString (ILEQ) COMPILE1A (EXPRP +SHOULD-BE-DWIMIFIED? TAILP) \CORE.OPENFILE (\IOMODEP) \NSRANDOM.CLOSEFILE (DIRTYABLE) ADDTEMPLATEWORD +(ASSOC) SetBcplString (IGREATERP) \TEDIT.TEXTBIN.FILESETUP (IEQP ZEROP ILESSP) CLISPATOM1 (FIX89A +FIX89 CLUNARYMINUS? ZEROP LITATOM NUMBERP MINUSP CLBINARYMINUS? CLISPNOTVARP CLISPFUNCTION? STOPSCAN? +FLOATP) \NSRANDOM.OPENFILE (OPENED) POSTSCRIPT.HARDCOPYW (<) \SETARG0 (IGREATERP) BQUOTIFY (NUMBERP +STRINGP) TEDIT.PUT.PCTB2 (IGREATERP EQFMTSPEC ZEROP EQCLOOKS IEQP GREATERP RANDACCESSP) TTADDTAB ( +GREATERP) FM.REDISPLAYMENU (WINDOWP WINDOWPROP) \DOHARDRETURN1 (ILEQ) HCOPYALL (HARRAYP) GETSETQ ( +LITATOM STRPOSL DWIMIFYREC) \MKATOM (GREATERP IGREATERP ILEQ IGEQ) \TEDIT.FIXDELSEL (IGEQ IGREATERP +IEQP) \CREATE.SYMBOL (IGEQ EVENP GREATERP FIXP) \GCSCANSTACK (IGEQ) \CORE.SETFILEPTR (APPENDONLY +ILESSP) BKSYSBUF.GENERAL (NUMBERP) \SCALEDBITBLT.PSC (GREATERP REGIONSINTERSECTP EQP) EXPANDBM (LESSP +<= MINUSP GREATERP) \PARSE.NUMBER (GREATERP IGREATERP ILESSP IGEQ ILEQ > FMEMB) \TEDIT.SHOW.CHARLOOKS +(<=) \CORE.BACKFILEPTR (APPENDONLY) \EXPECTED.FILE.TYPE (STRING-EQUAL) \CORE.SETEOFPTR (OVERWRITEABLE +ILESSP) \SEARCHFONTFILES (FMEMB MEMBER EQUAL) SEDIT::TRANSLATE-CHARS (IGREATERP SEDIT::ATOM-CHAR-ESCAPED + ILESSP) PURGEDSKDIRECTORY (\PFPilotVolumeP) FM.REDISPLAYITEM (WINDOWP WINDOWPROP OPENWP) +GRAPHOBJ.FINDGRAPH (INSIDE? LASTMOUSESTATE) \INCUSECOUNT (IGREATERP) SCANEXP (FMEMB FNTYP SOME) +BLTPATTERN (<= >= BITMAPP WINDOWP) COMP.STJUMP (OPT.JUMPCHECK) \INITATOMPAGE (GREATERP) +\CORE.GETNEXTBUFFER (OPENED ILESSP IGEQ) \PROMPT.FOR.PUP.NUMBER (FIXP ILEQ IGEQ) SIMPLETEXTEDIT ( +CL:Y-OR-N-P NLSETQ) \MAKEMDSENTRY (\GCDISABLED) \MOVEFRAME (> \EXTENDSTACK) DO-APPLY-EVENT ( +CL:MACRO-FUNCTION) DBG::%%RELEASE-STACK-DATUM (STACKP CL:LISTP) \ALLOCBLOCK (ILESSP IGREATERP ILEQ) +\SETUPUSERSTACK (IGREATERP) SLICESET (ILESSP) \NSFILING.NEXTFILE (DIRECTORY.MATCH) +TEDIT.GET.CHARLOOKS0 (IGREATERP GREATERP) APPENDINTEGER.IP (ILEQ LESSP) SEDIT::CONTAINS? (ILESSP ILEQ) + COMPILER::RESOLVE-VARIABLE-BINDING (COMPILER::LOCAL-CONSTANT-P CL:CONSTANTP CL:MEMBER +COMPILER::ENV-PROCLAIMED-GLOBAL-P VARIABLE-GLOBAL-P COMPILER::ENV-PROCLAIMED-SPECIAL-P +VARIABLE-GLOBALLY-SPECIAL-P) SPELLFILE.SPELL (FIXP IGREATERP) \FONTFILENAME.OLD (FIXP <) +TTYIN.SHOW.?ALTERNATIVES (SELECTC IGREATERP READTABLEPROP) MBUTTON.FIND.NEXT.BUTTON (ATOM) +NEAREST/MULTIPLE (IGREATERP) \FONTFILENAME (FIXP <) SCANDEFINEQ (IEQP MEMB FMEMB) +BLTPATTERN.REPLACEDISPLAY (>) \FONTINFOFROMFILENAME (NUMBERP STRPOS STREAMP LITATOM) +COMPILER::RESOLVE-VARIABLE-REFERENCE (COMPILER::VARIABLE-P) MAPATOMS (GREATERP IGREATERP +.ALLOCATED.PER.PAGE. IGEQ <= IEQP) \EXTENDSTACK (ILESSP IGREATERP) EXTEND/TRANSITION/CHAIN (IEQP +ILESSP) \RELEASE.IOCB (EMADDRESSP) COMPILER::CLOSURE-ANNOTATE-LAMBDA (COMPILER::VARIABLE-CLOSED-OVER) +\AGE.ROUTING.TABLE (GREATERP TIMEREXPIRED?) DRAW/GRAPHNODE/BORDER (FIXP) \TEDIT.APPLY.PARASTYLES ( +LITATOM DEFINEDP) ATOMHASH#PROBES (LITATOM IGREATERP GREATERP) ONEDINSPECTW.CREATE (LITATOM POSITIONP +WINDOWP REGIONP) %%ARRAY-BASE (%%ONED-ARRAY-P %%TWOD-ARRAY-P %%GENERAL-ARRAY-P) LISPFORM.SIMPLIFY ( +LITATOM GETD DWIMIFY0?) COMPILER::PASSABLE (COMPILER::NULL-EFFECTS-INTERSECTION) +MAXATTACHEDWINDOWEXTENT (GREATERP) \VAMCheckEndOfVol (IGEQ) %%ARRAY-OFFSET (%%ONED-ARRAY-P +%%TWOD-ARRAY-P %%GENERAL-ARRAY-P) \TEDIT.GET.PARALOOKS.LIST (IGREATERP GREATERP) \HANDLE.RAW.PUP (IGEQ +) %%ARRAY-TYPE-NUMBER (%%ONED-ARRAY-P %%TWOD-ARRAY-P %%GENERAL-ARRAY-P) DO-HISTORY-SEARCH (APPLY* +EDIT4E EDITFINDP) \GENERIC-UNREGISTER-STREAM (STREAMP FMEMB) \DSPSCALE.PSC (NUMBERP CL:PLUSP) +\FONTFACE.COLOR (LITATOM FMEMB) INSTALLBRUSH (ARRAYP GREATERP) \ADD-OPEN-STREAM (STREAMP FMEMB) +\COURIER.RESULTS (IEQP) \PAGEDEOFP (IEQP IGREATERP ILESSP IGEQ) MINATTACHEDWINDOWEXTENT (GREATERP) +\PFInitializeVols (GREATERP) NO.SIDEEFFECTS.FNP (NNLITATOM) FINDFILE (UNPACKFILENAME.STRING) +\SFLHASHLOOKUP (IEQP) ED (CL:SYMBOLP GET) FIXSPELL1 (STRPOS STREQUAL ILESSP IGREATERP) \POLYSHADE.BLT +(IEQP ODDP ILEQ IGEQ) BREAKLINE (OVERFLOWLINE?) \NSRANDOM.READPAGES (> >= DIRTYABLE GREATERP) PUTD ( +LITATOM TYPEP ARRAYP) VAR.NOT.USED (LITATOM MEMB) CL:MAKUNBOUND (CL:CONSTANTP) \PUTD (TYPEP ARRAYP) +FIXDATUM (LITATOM STRPOSL CLISPNOTVARP FIXP EQUAL CONSTANTEXPRESSIONP) SEDIT::LINEARIZE-CLISP (IGEQ +ATOM IGREATERP) LINETO.IP (FLOATP) SI::UNWIND-TO-BLIP (SELECTQ) SPELLFILE.MATCHINGDIRS (MEMB) GETD ( +LITATOM) EVALUABLE.CONSTANTP (FMEMB NNLITATOM \WALKABLE.SPECIALFORMP \WALKOVER.SPECIALFORMS +NO.SIDEEFFECTS.FNP) ROMANNUMERALS (ZEROP IGEQ) BOUNDP (CL:SYMBOLP) SETTTBLPROP (NUMBERP FMEMB) +POSTSCRIPT.PUTCOMMAND (GREATERP) CLOSEALL (\IOMODEP STREAMPROP) SI::NON-LOCAL-RETURN (SI::UNWIND-TO-BLIP + GREATERP) TEDIT.GET.PARALOOKS0 (IGREATERP GREATERP) \DSPSCALE2.PSC (NUMBERP CL:PLUSP) CL:SYMBOL-NAME +(CL:SYMBOLP) PFI.AFTER.NEW.PAGE (EVENP) \FINDFONTFILE (FMEMB) COMPILER::FIND-TOP-ENVIRONMENT (COMPILER::ENV-P +) \VARNOTUSED (\WALKABLE.SPECIALFORMP NO.SIDEEFFECTS.FNP) FM.RESETGROUPS (WINDOWP) MISCN-COLLECT ( +GREATERP) \STKMIN (GREATERP) SI::NON-LOCAL-RETURN-VALUES (SI::UNWIND-TO-BLIP) \NSFILING.GETFILEINFO ( +DIRTYABLE MEMB) CL:FORMAT (CL:STRINGP) \FINDOP (GREATERP LITATOM FIXP) \LFFindDirectoryVol (FIXP ATOM +STRINGP \LFDirectoryP) FM.RESETSHAPE (WINDOWP ILESSP) \GET-COMPILED-CODE-BASE (LITATOM) SCANCOMPILEDFN + (EQP MEMB) ARGS.COMMUTABLEP (NNLITATOM \VARNOTUSED \WALKABLE.SPECIALFORMP NO.SIDEEFFECTS.FNP) +\FONTFILENAME.NEW (FIXP < EQUAL) TWODINSPECTW.CREATE (LITATOM POSITIONP WINDOWP REGIONP) IRNDLIST ( +FIXP) SETA (ILESSP IGEQ) \DSPCOLOR.PSC (NUMBERP <=) GRAPHOBJ.IMAGEBOXFN (NUMBERP) COMP.ARGTYPE ( +LITATOM FMEMB GETD) WHENCLOSE (IGREATERP GREATERP) CHECKRECORDNAME (LITATOM) ARRAY (IGREATERP) +AS.MAKE.CONVERSATION (NLSETQ IEQP) \WALKOVER.FUNCTION (MEMB) ERRORMESS (TYPEP) COPY.WINDOW.TO.BITMAP ( +OPENWP FMEMB) TEDITWINDOWP (DISPLAYSTREAMP MEMBER) \FONTINFOFROMFILENAME.OLD (NUMBERP STRPOS) +SI::INTERNAL-THROW-VALUES (SI::UNWIND-TO-BLIP) CL:SYMBOL-VALUE (CL:SYMBOLP) ASKUSERCHAR (IGEQ ILEQ) +\MEDW.GETSCREENREGION (ILESSP IGEQ LASTMOUSESTATE ERSETQ \CLOCKGREATERP MOUSESTATE) \MEDW.CARET.SHOW ( +IGREATERP ILESSP OPENWP) \TEDIT.EXPANDED.MENU (TEXTPROP) CALLS3 (FMEMB) \DELETETREE (GREATERP IEQP) +\LFCloseDevice (\PFVersionOK) CL:FBOUNDP (CL:SYMBOLP ARGTYPE CL:MACRO-FUNCTION CL:SPECIAL-FORM-P) +HPINITRDTBL (READTABLEP) MSDESCRIBE (GETD HARRAYP SMALLP EQMEMB FMEMB GETPROP) \READSTRIKEFONTFILE ( +IGREATERP GREATERP) SI::PVAR-VALUE-IN-FRAME (NULL-NTENTRY EQP) SETF-SYMBOL-FUNCTION (CL:CONSP CL:SYMBOLP +) \READACFONTFILE (RANDACCESSP EVERY REMOVE GREATERP) SI::VARIABLE-NAME-IN-FRAME (NULL-NTENTRY EQP +FIXP SMALLP) FM.RESETMENU (WINDOWP) MSDESCRIBE1 (IGREATERP) MB.MARGINBAR.SELFN (INSIDE? MOUSESTATE +\TEDIT.MOUSESTATE EQUAL ZEROP IGEQ LESSP ILEQ EQP) FASL::FASL-END-OF-BLOCK (CL:ZEROP) ADD-USER-SUBR ( +BOUNDP CL:CERROR SETA CL:FIND) \FONTRESETCHARWIDTHS (GREATERP ILESSP IGREATERP) LOOKUPHASHFILE (MINUSP +) MBUTTON.FIND.BUTTON (ATOM) FM.RESETSTATE (WINDOWP) \TEDIT.GET.PARALOOKS1 (IGREATERP GREATERP) +SEDIT::COMPILE-STRUCTURE (ERSETQ) PF (MEMB) LISTRECORDEFS (SMALLP GREATERP) +DBG::STACK-FRAME-VALUE-COMMAND (CL:LISTP CL:SYMBOLP CL:CONSP) COMPILER::CLOSURE-ANNOTATE-CATCH ( +COMPILER::BLIPPER-NEW-FRAME-P) DBG::STACK-FRAME-PROPERTY (CL:CONSP) UNICODE.UNMAPPED (ILEQ IGEQ) +TB.COLLECT.ITEMS (CL:FUNCALL) ASKUSER1 (ASKUSER1) TRAPLOOP (NUMBERP IGREATERP GREATERP) PFCOPYBYTES ( +IMAGESTREAMP ILEQ) \NSRANDOM.WRITEPAGES (<) \BASEBYTES.BLOCKIO (ILEQ IGREATERP) SCROLL.HANDLER ( +INSIDE? TIMEREXPIRED? LASTMOUSESTATE \CLOCKGREATERP) ELT (IGREATERP IGEQ) UNDOLISPX3 (NLSETQ TAILP) +\SFROTATECSINFOOFFSETS (GREATERP) PROCESSPROP (>) PRINTFNDEF (DISPLAYP) \GETLEAFSTRING (IGREATERP) +ROTATE-BITMAP (GREATERP) \TERPRI.PSC (LESSP) \NSRANDOM.TRUNCATEFILE (=) NORMLOOP (IGREATERP ILESSP) +FM.CHANGESTATE (WINDOWP OPENWP FMEMB) GRAPHOBJ.DISPLAYFN (EQP) HVRPTREAD (IGREATERP) SEDIT::MARKASCHANGEDFN + (SEDIT::GET-CONTEXT) \BASEBYTES.SETFILEPTR (IGREATERP) CHAT.CHOOSE.PHONE.NUMBER (ILESSP IGREATERP) +ROTATE-BITMAP-LEFT (GREATERP) SEDIT::CFV-DOTLIST (ATOM) ERASE/GRAPHNODE (WINDOWP IMAGESTREAMTYPEP) +SLICEREF (ILESSP) \SFMAKECOLOR (IMAGESTREAMP NUMBERP) RELSTKP (STACKP) \BASEBYTES.PEEKBIN (IGEQ) +\BASEBYTES.BOUT (IGEQ) STRIKECSINFO (GREATERP IEQP) %#BITSON (ZEROP) CH.FINDSERVER (STRING-EQUAL) +WRITESTRIKEFONTFILE (FONTP IGEQ ILESSP GREATERP LESSP IEQP) \TEDIT.PRESS.HARDCOPY (STRINGP) +FB.PROMPTWPRINT (< GREATERP) ASKUSER$ (GREATERP ILESSP MEMB) RECORDECLTAIL (RECDEC? GETSETQ) +\USER-SUBR-UFN (BOUNDP) INTERPRET.REM.CM (IGREATERP GREATERP FMEMB) BRECOMPILE2 (STRPOS GREATERP +DIGITCHARP IGEQ) UTF8.OUTCHARFN (ILESSP) TTUNREADBUF (COMPLEXCHARP) \SETUPSTACK1 (IGREATERP ODDP) +MULTIFILEINDEX (STRPOS) SIMPLEPRINT (LITATOM STRINGP GREATERP SMALLPOSP SMALLP) +\MEDW.GETBOXSCREENPOSITION (FIXP IGREATERP LASTMOUSESTATE) FASL::COLLECT-LIST (EQL GREATERP) +GETTTBLPROP (NUMBERP FMEMB) SEDIT::MUTATE (STRINGP SEDIT::DO-MUTATION) \PFCreateVols (BOUNDP ZEROP EQL + HASHARRAYP GREATERP) \RESETSTACK0 (GREATERP <) SUBRNUMBER (FIXP) \BASEBYTES.TRUNCATEFN (ILESSP +IGREATERP) \FBITMAPBIT.UFN (ZEROP) \NSRANDOM.SESSION.WATCHER (DIRTYABLE \SECONDSCLOCKGREATERP +FILING.CALL) CARET (CURSORP) \COURIER.OUTPUT.ABORTED (DIRTYABLE) UTF8HEXSTRING (ILESSP) +\PFInitFileDescriptors (GREATERP) MOST/VISIBLE/OPERATION (IGREATERP) COMP.SETARG (FIXP IGREATERP ILEQ) + TTYINEDIT (STRINGP) NUTF8CODEBYTES (ILESSP) DBG::STACK-FRAME-PROPERTIES (CL:SYMBOLP GETD) +INITBITMASKS (GREATERP) SCANFILE1 (MEMB SOME GETPROP FMEMB) \UPCASEBASE (GREATERP) COURIER.CALL ( +GREATERP) \CLEARCELLS (ILESSP IGREATERP) EVALQT (ERSETQ) PRESSFILEP (ZEROP EVENP RESETLST) +XCL::GET-WALKER-TEMPLATE (CL:SYMBOLP CL:LISTP) RECORDECL1 (FMEMB SMALLP RECDEC? NUMBERP LITATOM +FIXSPELL ASSOC) STRING.EQUAL (LITATOM STRINGP GREATERP IGREATERP) FM.GETITEM (WINDOWP EQUAL) +\CAUSEINTERRUPT (ILESSP) \TEXTMENU.START (EQUAL) SPP.READP (READABLE ILESSP \SPP.PREPARE.INPUT) +SCANFILE0 (SYNTAXP LITATOM) CREATEDSKDIRECTORY (\PFPilotVolumeP \LFDirectoryP) FM.HIGHLIGHTITEM ( +WINDOWP WINDOWPROP) TB.NTH.ITEM (> >= <) \TEDIT.RESHAPEFN (ILESSP) CREATEPAGES (GREATERP) COMP.LAM1 ( +FMEMB) TEDIT.RAW.INCLUDE (OPENP IGREATERP) \DSPSPACEFACTOR.PSC (NUMBERP EQUAL) INTERRUPTED ( +PROCESS.EVALV GETD \PROCESS.MAKEFRAME) COMPILER::SUBSTITUTABLE-P (COMPILER::VARIABLE-WRITE-REFS +COMPILER::VARIABLE-READ-REFS COMPILER::LITERAL-P COMPILER::EVAL-WHEN-LOAD-P) +SEDIT::MENU-SUBSTITUTE-SELECTEDFN (EQUAL) ICMLARRAY.VALUECOMMANDFN (EQL NUMBERP) +\TEDIT.CUMULATE.EVENTS (<) \PFCreatePhysicalVolume (BOUNDP) \NSRANDOM.SETEOFPTR (OVERWRITEABLE +APPENDABLE) ARCTO.IP (FLOATP) COMP.ARG (FIXP IGREATERP ILEQ) \ZEROWORDS (ILEQ IGEQ) COMP.CALL (FMEMB) +\InitCurveBrushes (GREATERP) END.DELETE.MODE (IGREATERP) IRM.CREF.BUTTONEVENTFN (MOUSESTATE INSIDEP) +\GATHER-CLEANUP-FORMS1 (< > \VALIDADDRESSP >=) DO.EDIT.COMMAND (MINUSP EMPTY.BUFFER ON.LAST.LINE +AT.END.OF.BUF AT.END.OF.SCREEN AT.START.OF.BUF AT.START.OF.LINE ON.FIRST.LINE AT.END.OF.LINE WORDSEPRP + IGREATERP COMPLEXCHARP SPACEP LITATOM) \MEDW.GETSCREENPOSITION (MOUSESTATE) APPENDOP.IP (ILESSP +IGREATERP ILEQ) CHECKSAMEDIR (CL:MEMBER STRING-EQUAL) \GATHER-SPECIAL-BINDINGS (NULL-NTENTRY EQP FMEMB + FIXP SMALLP ASSOC) HVREADCHECKGETFN (BOUNDP MEMB ASSOC GETD MOUSECONFIRM) RECORDECLBLOCK (ZEROP FIXP +FIXSPELL) \GC.MODIFY.BIGREFCNT (ODDP ILESSP IGEQ) UPDATEPCNODES (GREATERP) SEDIT::SELECT-SEGMENT-DEFAULT + (ILESSP IGREATERP) TMPSUBFN (GREATERP IGEQ ILEQ) CHAT.TYPESCRIPT1 (STRING-EQUAL NLSETQ) \GCERROR ( +\GCDISABLED RAID) FILLNGON.IP (IGREATERP GREATERP) RETRYSCAN (GETHASH) \BITBLT.BITMAP (ILEQ FIXP) +\GC.ENTER.BIGREFCNT (ODDP EVENP) COMPILER::CLOSURE-ANNOTATE-BLOCK (COMPILER::BLOCK-NEW-FRAME-P +COMPILER::BLOCK-CLOSED-OVER-P) TTCOMPLETEWORD (AT.START.OF.BUF IGREATERP COMPLEXCHARP GREATERP IGEQ +ILEQ LITATOM MEMB >) \BLTSHADE.BITMAP (ILEQ FIXP) SI::BQUOTE-EXPANDER (CL:ATOM) \TEDIT.GET.CHARLOOKS1 +(IGREATERP) \CREATE.TTYDISPLAYSTREAM (HASTTYWINDOWP) \FORMATLINE (ILEQ ZEROP GREATERP IGREATERP SMALLP + IGEQ FIXP MEMBER ILESSP) CHAT.TYPEOUT (ILESSP SELCHARQ IGREATERP TTY.PROCESSP OPENWP) SEDIT::SCAN-STRING + (IGREATERP ILESSP) FM.GETSTATE (WINDOWP) \HARDRESET-CLEANUP1 (\HARDRESET-CLEANUP-RUN) HVBAKREAD (FIXP + IEQP GREATERP SMALLP) \HARDRESET-CLEANUP (MEMB) \LEAF.MAYBE.FLUSH.CACHE (OBTAIN.MONITORLOCK) +HASH.PASSWORD (IGREATERP) XCL:UNADVISE-FUNCTION (CL:CONSP) GETBLOCKDEC (MEMB) XCL:READVISE-FUNCTION ( +CL:CONSP) ASKUSERSETUP (STRINGP READP) \GC.LOOKUP.BIGREFCNT (ODDP) CL::COUNT-OCCURRENCES (CL:CONSP) +SPP.FORCEOUTPUT (ILESSP \SENDSPP) XCL:ADVISE-FUNCTION (CL:CONSP UNSAFE.TO.MODIFY SI::HAS-CALLS GETD) +LOADBLOCK (EXPRP) IDLE.SHOW.OPTION (SMALLP GREATERP) SPP.EOFP (READABLE ILESSP) FIND.NON.SPACE (SPACEP + COMPLEXCHARP) \IRND (MINUSP) BITBLT (IGEQ WINDOWP FMEMB WOVERLAPP) GRAPHOBJ.BUTTONEVENTINFN (MENU) +BQUOTE.WRAPPER (MEMB) RECORDECL0 (FMEMB) \FREELISTCELL (IGREATERP) CIRCSHADE.DISPLAY (NUMBERP STREAMP +TEXTUREP) \CLEANUP.STACKFULL (SELECTQ) TEDIT.FORMATBOX (\TEDIT.FORMAT.FOUNDBOX? IGREATERP IGEQ) +SI::BQUOTE-APPEND (CL:ZEROP) \CARET.FLASH.MULTIPLE (\CARET.FLASH?) XCL:REBREAK-FUNCTION (CL:CONSP) +LOADFNS-MAKELIST (LITATOM) \REFCNT (ILESSP) XCL:TRACE-FUNCTION (CL:CONSP UNSAFE.TO.MODIFY SI::HAS-CALLS +) SEDIT::MENU-PRINTBASE-SELECTEDFN (IGREATERP ILEQ) \ALLOCMINIMUMSIZES (FMEMB) +\PFCreateFileDescriptors (BOUNDP GREATERP) RESET (SELECTQ) \BACKFORMAT (ILEQ LESSP IGREATERP) +\SET.FINALIZATION.FUNCTION (<= FNTYP) \COPYSYS (SMALLP IGREATERP) NIL +EFFECT HVBAKREAD (FRPLACA FRPTQ HVREADEND SETA SETD ERROR MAPC CONTROL ECHOMODE ECHOCHAR DELETECONTROL + RAISE FRPLACD) COMPILE-FILE-SCAN-FIRST (SELECTQ PRINT) FNTYP (DECLARE) MSSTOREDATA (PUTHASH +STORETABLE PUTTABLE) TEDIT.COPY.LOOKS (\LISPERROR TEDIT.LOOKS) COMP.APPLY* (SELECTQ) +\UFS.RECOGNIZE.FILE (DECLARE OBTAIN.MONITORLOCK SI::MONITOR-UNWIND) FASL:OPEN-FASL-HANDLE (BOUT BOUT16 +) \GETFTPCONNECTION (RESETSAVE BLOCK CL:FORMAT) GETNSPRINTER (printout TAB) FB.UPDATEBROWSERITEMS ( +FB.ALLOW.ABORT FB.SETNEWPATTERN RPLACA FRPLACD FB.SET.BROWSER.TITLE CLEARW TB.REPLACE.ITEMS +TB.SET.FONT FB.SET.DEFAULT.NAME.WIDTH CL:MULTIPLE-VALUE-SETQ FB.PROMPTW.FORMAT FB.HEADINGW.DISPLAY +FB.ADD.FILEGROUP FB.PROMPTWPRINT TB.REDISPLAY.ITEMS FB.DISPLAY.COUNTERS) RECLAIM (\DORECLAIM) +\COURIER.CHECK.ERRORS (DECLARE /RPLACD ERROR) \ALLOCPAGEBLOCK (\NEWPAGE) \TEDIT.COMMAND.LOOP ( +WINDOWPROP DISMISS RESETLST ERSETQ \WAITFORSYSBUFP TEDIT.FLASHCARET BLOCK \SHOWSEL TEDIT.UPDATE.SCREEN + \FIXSEL \COPYSEL TEDIT.DO.BLUEPENDINGDELETE \TEDIT.SET.SEL.LOOKS \TEDIT.DELETE UNINTERRUPTABLY +SELECTC CHECK \TEDIT.CHARDELETE TEDIT.RESET.EXTEND.PENDING.DELETE \TEDIT.WORDDELETE TEDIT.UNDO +TEDIT.REDO TEDIT.NEXT \TEDIT.ABBREV.EXPAND TEDIT.\INSERT) ANALYZE-PARAMETER (CHECK-PARAMETER-NAME) +XCL::CLEAR-IMPLICIT-KEY-HASH (UNINTERRUPTABLY) \ALLOCVIRTUALPAGEBLOCK (\PUTBASEFIXP) +\DSPSPACEFACTOR.IP (SHOW.IP APPENDNUMBER.IP ISET.IP) \GETBRUSHBBT (\SETPBTFUNCTION DECLARE) \ATMOUT ( +\SMALLPOUT DECLARE) FLIPCURSOR (FRPTQ SELECTC \DoveDisplay.SetCursorShape) SETUPFONTS.PRESS ( +\DEFINEFONT.PRESS \DSPFONT.PRESS \ENTITYEND.PRESS) COPYFILES (DECLARE ERROR MAPFILES printout PRIN1 +COPYFILES TAB) \TEDIT.CONVERT.TO.FORMATTED (\SPLITPIECE \TEDIT.MARK.LINES.DIRTY) \GETPILOTBBTSCRATCHBM + (DECLARE) DISCARDXIPS (\FLUSH.PACKET.QUEUE) SEDIT::MENU-PACKAGE-SELECTEDFN (printout DECLARE TERPRI) +\READNUMBER.OUTLINEREGION (BITBLT) VRULE.CREATE (IMAGEOBJPROP TEDIT.PROMPTPRINT) BITMAPCOPY (BITBLT) +TB.UNSELECT.ALL.ITEMS (TB.SHOW.SELECTION) RECREDECLARE (DECLARE APPLY*) TEDIT.DISPLAYTEXT (MOVETO +RESETLST DECLARE BLTCHAR) PFI.PROCESS.FILE (PFI.PASS.COMMENT READCCODE PFI.PRINT.COMMENTS CL:FUNCALL +PFI.HANDLE.EXPR BLOCK) CL::%%EXP-FLOAT (DECLARE CL::%%UFTRUNCATE) MODERN-SNAPW (WINDOWPROP) +UNIX-USERNAME (FREERESOURCE DECLARE) \NSRANDOM.REESTABLISH (\NSRANDOM.PROCEEDABLE.ERROR) +\HANDLE.RAW.OTHER (printout PRINTNUM) WHO-LINE-HOST-NAME (DECLARE) SUBSTRING (UNINTERRUPTABLY) +SEDIT::SET-POINT-LIST (SEDIT::SET-POINT SEDIT::SET-POINT-NOWHERE) TEDITCHAT.CHARFN (\CARET.DOWN +\TEDIT.CHARDELETE) \DOSTORAGEFULLINTERRUPT (LISPERROR) CL:POSITION (CL:ERROR) COMPILE-FILE-EXPRESSION +(DECLARE CL:EVAL PRINT) \TFBRAVO.APPLY.PARALOOKS (TEDIT.PARALOOKS TEDIT.SETSEL) +\TEDIT.PUT.PARALOOKS.LIST2 (\DWOUT \SMALLPOUT DECLARE \TEDIT.PUT.SINGLE.PARALOOKS2 PUTHASH) +COMP.PUSHCALL (COMP.VAL COMP.STJUMP COMP.STTAG COMP.STCONST COMP.STFN COMP.STCOPY COMP.STPOP) +ALLOCSTRING (LISPERROR UNINTERRUPTABLY \PUTBASEFAT \PUTBASETHIN) \FTP.PRINTPLIST (MAPC DECLARE +SELCHARQ SELECTQ PRIN2) MAKEFILESCOMS (SELECTQ PRINT) PRINTPUP (\DTEST PRINTPUPROUTE printout PRIN2 +PRINTCONSTANT PRINTPACKETDATA) \DFSCurrentVolume (\LFEntryPoint) MAKE-PACKAGE-HASHTABLE (DECLARE) +\SPP.CLEANUP (DECLARE OBTAIN.MONITORLOCK NOTIFY.EVENT MAPC CLOSENSOCKET SI::MONITOR-UNWIND) GCGAG ( +DECLARE) \BACKFORMAT (\SETUPGETCH) \LEAF.ABORT.FROMMENU (SHADEITEM NOTIFY.EVENT) RECORDECL ( +SET.RECORD.ALLOCATIONS) \FM.EDIT-SETUPTTBL (ECHOMODE ECHOCONTROL) UNIX-FULLNAME (FREERESOURCE DECLARE) + PFI.COLLECT.DEFINERS (FRPLACD) XCL::PPRINT-DEFINER (PRIN1 PRIN2 SUBPRINT/ENDLINE SPACES) \INITMDSPAGE + (\PUTBASEPTR) \LFScavFileName (DECLARE FRPLACD) UNIX-GETENV (FREERESOURCE DECLARE) \STARTPAGE.PRESS ( +\ENTITYSTART.PRESS \DSPFONT.PRESS SETXY.PRESS PRIN3 SHOW.PRESS SETX.PRESS NEWLINE.PRESS) +SET.TTYINEDIT.WINDOW (CLEARW RELMOVETO RESETSAVE) MSPARSE (MSFIXUPTYPES MAPC FRPLACD MSFAIL printout +LISPXPRIN2 LISPXPRIN1 LISPXSPACES LISPXPRINT FRPLNODE FRPLACA) MSMARKCHANGE1 (PUTHASH) NTHCHARCODE ( +\MAPPNAME) \FIXILINES (\DTEST) OPT.JLENPASS (MAPC OPT.COMPILERERROR) MSEDITE (FRPLACD APPLY EDITE) +MKSTRING (DECLARE) \DOGCDISABLEDINTERRUPT (printout TERPRI FLASHWINDOW) \LFUnpackName (DECLARE FRPLACD +) BRH/LAYOUT/DAUGHTERS (DECLARE) FLASHWINDOW (UNINTERRUPTABLY DISMISS BLOCK) TEDIT.\INSERT (DECLARE +TEDIT.PROMPTPRINT TEDIT.NORMALIZECARET \SHOWSEL SELCHARQ \INSERTCR \INSERTCH \FIXILINES +TEDIT.INSERT.UPDATESCREEN) IDLE.SET.OPTION (CLEARW LISTPUT PRINTOUT) \COURIER.CHECK.PROCEDURES ( +DECLARE SELECTQ /RPLACD ERROR) \LEAF.SETCREATIONDATE (\SENDLEAF \LEAF.SETVALIDATION) UNIX-GETPARM ( +FREERESOURCE DECLARE) TEDIT.GET.OBJECT (SETFILEPTR TEDIT.PROMPTPRINT) BITMAPBIT (\ILLEGAL.ARG \PUTBASE + \PUTBASE24 .WHILE.TOP.DS. \SOFTCURSORDOWN \INSURETOPWDS DECLARE \SOFTCURSORUPCURRENT) +DBG::ATTACH-BACKTRACE-MENU (FRPLACD DELETEMENU CLEARW ATTACHWINDOW ADDMENU) TB.UNSELECT.ITEM ( +TB.DESELECTRANGE) IDLE.BOUNCING.BOX (RPLACA BITBLT BLOCK) SPY.MERGE.CALLEES (SPY.MERGE1) STRPOS ( +DECLARE \ILLEGAL.ARG ERROR) SHRKFY (SELECTQ NCONC DWIMIFY1A) ANTILOG (DECLARE ERROR) +SEDIT::MENU-FIND-SELECTEDFN (SEDIT::MENU-SELECTEDFN) LINE.LESSP (\GETLINEORIGY \GETLINEDIFFY) +TWODINSPECT.REPLACE (APPLY* TWODINSPECT.REDISPLAY) \CH.UPDATE.CACHE (printout TAB SHOW.CLEARINGHOUSE) +COMP.EVALFORM (SHOULDNT COMP.STCONST COMP.STTAG COMP.VAL COMP.STJUMP COMP.EFFECT COMP.STFN) CREATEW ( +PROMPTPRINT HELP ERROR) \FTP.PACKFILENAME (MAPC) ASKUSER (DECLARE RESETSAVE LINBUF SYSBUF DOBE +PRINTBELLS CLEARBUF MAPRINT ASKUSERSETUP FRPLACD TERPRI MAPC ERROR! BKBUFS NOTCHECKED RPLACD) +\NSPRINT.INTERNAL (SPP.CLOSE) \GENERIC.CURSOR (MAPC) \FLUSH.NDB.QUEUE (\RELEASE.IOCB +\RELEASE.ETHERPACKET) IRM.GET.CREF (DECLARE IMAGEOBJPROP) COERCETEXTOBJ (\ILLEGAL.ARG RPLSTRING +SETFILEPTR RPLCHARCODE ERROR \SETUPGETCH CLOSEF) \BBTCURVEPT (\SETPBTFUNCTION DECLARE) SEDIT::REPLACE-QUOTE + (SEDIT::UNDO-BY SEDIT::KILL-NODE RPLACA SEDIT::SET-DEPTH SEDIT::NOTE-CHANGE) AIN (\BINS) CLISPDEC ( +EVAL MAPC /REMPROP /RPLNODE ERROR) \DSPLINEFEED.IP (\ILLEGAL.ARG) \DSPCLIPPINGREGION.PSC ( +POSTSCRIPT.SHOWACCUM \FIXLINELENGTH.PSC) \TERMINATESPP (DECLARE OBTAIN.MONITORLOCK SELECTC \SENDSPP +MONITOR.AWAIT.EVENT DEL.PROCESS SI::MONITOR-UNWIND) AOUT (\BOUTS) STRIP-KEYWORDS (FRPLACD) +\EXTENDEDVMEMINIT (\INITIALIZESWAPDISK \PUTBASEPTR \M44DOEXTENDVMEMFILE) SHRKFY2 (SHRKFY) +\MAYBEPEEKPUP (PRINTPUP) COMP.MLLFN (SPACES) \PROCESS.AFTER.EXIT (NOTIFY.EVENT) MSEDITF (FRPLACD APPLY + EDITE) \DRAWPOLYGON.PSC (printout PRIN1 POSTSCRIPT.OUTSTR MAPC) PFI.PRINT.FILECREATED (CHANGEFONT +PFI.PRINT.TO.TAB PRINTOUT PRIN1 PRINTDEF FRPLACD) CLOSEATTACHEDWINDOWS (CLOSEW) \USEREVENT (DECLARE) +TWODINSPECT.SELECTITEM (INSPECT.INVERTSELECTION INSPECT.INVERTREGION) TEDIT.UPDATE.SCREEN (\FILLWINDOW +) \PROCESS.BEFORE.LOGOUT (ALLOW.BUTTON.EVENTS RESETSAVE printout PRIN1 PROCESS.RESULT) +D-ASSEM:ASSEMBLE-FUNCTION (CL:MAPHASH) \MEDW.CURSOR (DECLARE \CURSORDOWN \CURSORUP \ILLEGAL.ARG) FEQP +(.FLOATUNBOX. SELECTC .NEGATE. .LLSH8. .LLSH1. .LRSH8.) \TEXTCLOSEF (CLOSEF?) \OPENLINEBUF (DECLARE +\RESETTERMINAL) TEDIT.DEFAULT.MENUFN (TEDIT.PROMPTPRINT ERSETQ \SHOWSEL +TEDIT.RESET.EXTEND.PENDING.DELETE \FIXSEL TEDIT.NORMALIZECARET) D-ASSEM:INTERN-DCODE (UNINTERRUPTABLY +\ADDREF D-ASSEM:FIXUP-PTR D-ASSEM::PERFORM-LOCAL-FN-FIXUPS) SEDIT::REPLACE-LIST (MAPC RPLACA +SEDIT::KILL-NODE SEDIT::SET-DEPTH FRPLACD RPLACD SEDIT::SUBNODE-CHANGED RPLNODE2 +SEDIT::SET-SELECTION-NOWHERE SEDIT::NOTE-CHANGE SEDIT::UNDO-BY) \DSPPRINTCR/LF (\STOPSCROLL? +\CHECKCARET APPLY* DSPYPOSITION .WHILE.TOP.DS. \PUTBASE \SOFTCURSORDOWN \INSURETOPWDS DECLARE BITBLT +\SOFTCURSORUPCURRENT DSPXPOSITION) \DSPRIGHTMARGIN.IP (\FIXLINELENGTH.IP) CL:MULTIPLE-VALUE-CALL ( +DECLARE) ONEDINSPECT.REPLACE (APPLY* ONEDINSPECT.REDISPLAY) PFI.PRINT.INDEX (DSPNEWPAGE +PFI.CENTER.PRINT PFI.PRINT.INDICES) COMP.PUSHNILS (COMP.EXPR COMP.STJUMP COMP.STTAG COMP.STCONST +COMP.STFN COMP.STCOPY COMP.STPOP COMP.VAL) \BSP.CLOSE.OPEN.SOCKETS (FRPLACD WAKE.PROCESS +CLOSERTPSOCKET) \TEDIT.REPAINTFN (\SHOWSEL \DISPLAYLINE \FILLWINDOW \FIXSEL) D-ASSEM:FIXUP-PTR-NO-REF +(UNINTERRUPTABLY) \TEDIT.PROMPT.PAGEFULLFN (GETPROMPTWINDOW RELMOVEW) PRINTWORDS (printout PRIN2 PRIN1 +) \SLOWBLTCHAR (\DSPPRINTCR/LF SELECTQ SHOULDNT .WHILE.TOP.DS. \PUTBASE \SOFTCURSORDOWN \INSURETOPWDS +DECLARE \PILOTBITBLT \SOFTCURSORUPCURRENT \DSPYPOSITION.DISPLAY BITBLT ERROR) D-ASSEM:FIXUP-SYMBOL ( +UNINTERRUPTABLY) \DSPLEFTMARGIN.IP (\FIXLINELENGTH.IP) TB.INSERT.ITEM (\ILLEGAL.ARG RPLACD +TB.RENUMBER.TAIL FREPLACEFIELD) \PRESSINIT (DECLARE) FB.THINCOMMAND (FB.UPDATE.COUNTERS) +\GR.MAKEPRETTYCOMSL (ERROR FRPLACD) \CARET.FLASH.AGAIN (SHOULDNT) D-ASSEM:FIXUP-PTR (UNINTERRUPTABLY +\ADDREF) SI::EXPAND-CONDITION-CASE (DECLARE) SEPRCASE (MAPC) SAVEVM (\DEVICEEVENT \RESETKEYBOARD +\PROCESS.AFTER.EXIT) PFI.PRINT.MULTI.INDEX (STREAMPROP DSPNEWPAGE PFI.CENTER.PRINT TERPRI CHANGEFONT +MAPC DSPXPOSITION PRIN3 RELMOVETO) CONDITIONS::EXPAND-RESTART-CASE (DECLARE) SHOWBITMAP.IP (SHOW.IP +ERROR SHOWBITMAP1.IP) CL:MAKE-PACKAGE (CL:USE-PACKAGE ENTER-NEW-NICKNAMES PUTHASH) REPLACEFIELD ( +\PUTFIXP \PUTSWAPPEDFIXP .UNBOX. SELECTC \ILLEGAL.ARG CL::%%NOT-NONCOMPLEX-NUMBER-ERROR +UNINTERRUPTABLY) BRH/OFFSET (DECLARE) \CHANGECHARSET.DISPLAY (UNINTERRUPTABLY) SEDIT::MENU-INIT-STATE +(FM.CHANGESTATE FM.CHANGELABEL) COPYARRAY (\COPYHARRAYP FRPTQ SELECTQ) \MAYBEPEEKNS (DECLARE PRINTXIP) + TEDIT.PUT.OBJECT (\DWOUT \SMALLPOUT \ATMOUT APPLY* SETFILEPTR) \POSTSCRIPT.OUTCHARFN (DECLARE +\TERPRI.PSC BOUT SELECTQ \POSTSCRIPT.SPECIALOUTCHARFN \POSTSCRIPT.ACCENTFN \POSTSCRIPT.ACCENTPAIR +POSTSCRIPT.SHOWACCUM \UPDATE.PSC APPLY* POSTSCRIPT.OUTSTR \ILLEGAL.ARG DSPNEWPAGE \MOVETO.PSC +\POSTSCRIPT.PRINTSLUG) SETD (\DTEST LISPERROR \RPLPTR DECLARE) \TEXTSTREAMBOUT ( +\TEDIT.MARK.LINES.DIRTY \INSERTCR \INSERTCH FREPLACEFIELD DSPFONT TEDIT.UPDATE.SCREEN \FIXSEL SCROLLW +TEDIT.DISPLAYTEXT) FTPGETMARK (\FTP.FLUSH.TO.MARK) ELTD (\DTEST LISPERROR DECLARE) +SI::EXPAND-PROCEED-CASE (DECLARE) SETUSERNAME (SetBcplString) \MEDW.PUTWINDOWPROP (\ILLEGAL.ARG +UPDATE/SCROLL/REG MOVEW SHAPEW RESHOWTITLE RESHOWBORDER LISTPUT FRPLACD) REHASH (CLRHASH DECLARE +PUTHASH) CLISPFORERR1 (LISPXPRIN1 LISPXPRIN2 LISPXSPACES) \FILLPOLYGON.PSC (DECLARE BLTSHADE BITBLT +MAPC POSTSCRIPT.PUTBITMAPBYTES) TEDIT.STRINGWIDTH (DECLARE) COURIER.EXECUTE.CALL (\COURIER.TRACE +PUTWORD PUTLONG DECLARE SELECTQ COURIER.WRITE CHECK) \PEEKPUP (SELECTQ \PUTBASE RPTQ BLOCK FRPLACD) +\COERCEFONTDESC (DECLARE) DEFPACKAGE (MAPC) CLOSENSOCKET (\FLUSHNSOCQUEUE) ICMLARRAY.SETVALUE ( +WITH-INSPECTOR-ENV TERPRI TWODINSPECT.REPLACE ONEDINSPECT.REPLACE) CHARMACRO? (DECLARE) SEDIT::JOIN ( +SEDIT::CLOSE-OPEN-NODE printout TERPRI SEDIT::PENDING-DELETE SEDIT::START-UNDO-BLOCK SELECTQ FRPLACD +SEDIT::SET-POINT SEDIT::DELETE-NODES SEDIT::INSERT SEDIT::END-UNDO-BLOCK) MODERN-ADD-EXEC (FRPLACD +DISMISS MODERNWINDOW) INVERT.TEXTURE.BITMAP (\ILLEGAL.ARG \PUTBASE) \SHOWSEL (\TEDIT.OBJECT.SHOWSEL +\SHOWSEL.HILIGHT \SETCARET MOVETO SELECTQ \EDIT.UPCARET) DO.CHAT.OPTION (MENU printout) INFILECOMTAIL +(DECLARE NLSETQ SI::RESETUNWIND) LRSH (.UNBOX. SELECTC \ILLEGAL.ARG CL::%%NOT-NONCOMPLEX-NUMBER-ERROR +FRPTQ) CLISPFORVARS (RPLACA RPLACD FRPLACA CLISPFORVARS1 CLISPFORERR FRPLACD SHOULDNT /RPLNODE) +ONEDINSPECT.SETELT (WITH-INSPECTOR-ENV REMOVEPROMPTWINDOW ONEDINSPECT.REPLACE) \LEAF.SETFILETYPE ( +\SENDLEAF) COMPILER:COPY-ENV-WITH-FUNCTION (COMPILER::ENV-BIND-FUNCTION) \MEDW.GETWINDOWPROP ( +\ILLEGAL.ARG) READBITMAP (ERROR) \LEAF.TIMEDOUT.EXCESSIVE (MAPC MAPRINT ADDMENU) SPY.DELETE (FRPLACD) +ULREDISPLAYBITMAP (ERROR) \DRAWARC.PSC (printout PRIN1 POSTSCRIPT.OUTSTR MAPC) SUBARRAY (\DTEST) +\NSGATELISTENER (PROCESSPROP \HANDLE.NS.ROUTING.INFO BLOCK \AGE.ROUTING.TABLE SENDXIP) +DASSEM.COUNTVARS (ADD1VAR) \SENDSPP (CHECK DECLARE OBTAIN.MONITORLOCK \BLT UNINTERRUPTABLY +\SPP.SENDPKT MONITOR.AWAIT.EVENT SI::MONITOR-UNWIND) SEDIT::PRETTY-PRINT (SEDIT::CREATE-PRETTY-PRINT-ENV + SEDIT::PARSE SEDIT::COMPUTE-ALL-FORMATS) \PNC (ERROR UNINTERRUPTABLY \PUTBASEBYTE) CHECKBUFFERREFVAL +(\DELREF) REMOVE-COMMENTS (CL:WARN) \FTP.HANDLE.NO (SELECTC RPLACA NCONC1 printout DECLARE TERPRI MAPC + \FTPERROR) %%COPY-STRING-TO-ARRAY (\PUTBASEBYTE) MARGINBAR.CREATE (IMAGEOBJPROP DSPXOFFSET DSPYOFFSET + MARGINBAR) \HCPYMODEBLTCHAR (DECLARE \CHANGECHARSET.HCPYMODE \DSPPRINTCR/LF .WHILE.TOP.DS. \PUTBASE +\SOFTCURSORDOWN \INSURETOPWDS \PILOTBITBLT \SOFTCURSORUPCURRENT) CLEARMAP (ERROR) COMPAREDEFS ( +PRINTOUT FRPLACD PRIN2) TB.SELECT.ITEM (TB.SELECTRANGE) = (CL:ERROR CL::%%NOT-NUMBER-ERROR) COMP.MLL ( +MAPC PRIN2 SPACES SELECTQ COMP.MLLFN) \WRITEOUTBUFFERS (\WRITEPAGES) READATOM (DECLARE READC) +COMPILER::START-COMPILATION (PRINTOUT DECLARE PRIN1 PRIN3 SI::RESETUNWIND FASL:BEGIN-BLOCK) SETY.PRESS + (\WOUT) REPLACEFIELDVAL (REPLACEFIELD) \CLEARMAP (FDEVOP UNINTERRUPTABLY \RELEASEBUFFER) LOG (DECLARE + ERROR) PRINTPROPS (PRIN2 PRIN1) FILING.CALL (FRPLACD DECLARE OBTAIN.MONITORLOCK PRINTOUT TERPRI \BLT +\DAYTIME0 RPLACD SI::MONITOR-UNWIND) PUTBASEPTRX (PUTBASE) \CH.CHECK.CLEARINGHOUSE (printout TERPRI +\CH.UPDATE.CACHE) \MEDW.BITBLT (SHOULDNT WINDOWOP \INSURETOPWDS DECLARE) SETX.PRESS (\WOUT) +/REPLACEFIELD (UNDOSAVE) \WRITEPAGES (\UPDATEOF) CL:IN-PACKAGE (CL:USE-PACKAGE ENTER-NEW-NICKNAMES) +HASHFILESPLST (DECLARE) UNDOSAVE (LISPXWATCH NCONC FRPLACA FRPLACD) \SEARCHINTERPRESSFONTS (DECLARE) +\ENDVECRUN (SHOW.PRESS SETXY.PRESS MAPC \BOUT) DINFO.TOGGLE.GRAPH (DINFO.UPDATE.GRAPH.DISPLAY CLOSEW) +HARRAYPROP (RPLACD LISTPUT ERROR) COMPILER:COPY-ENV-WITH-VARIABLE (COMPILER::ENV-BIND-VARIABLE) +SEDIT::TRACK-SELECT (SEDIT::SMASH-USING SEDIT::PLACE-CARET-AND-SELECTION SEDIT::TRACK-BAR-IN-TRACK-SELECT + SEDIT::CHECK-SELECTION-SHIFT BLOCK GETMOUSESTATE) CL:Y-OR-N-P (CL:FRESH-LINE) +SEDIT::INSERT-SPECIAL-CHARACTER (SEDIT::INSERT-STRING SEDIT::SET-SELECTION-NOWHERE SEDIT::INSERT) +TEDIT.WORDSET (CHECK) COMP.MAP (COMP.PROGLST COMP.STBIND COMP.EFFECT COMP.VAL OPT.CCHECK COMP.STJUMP +COMP.STTAG COMP.STCOPY COMP.EXPR SHOULDNT COMP.STPOP) DASSEM.MATCHVARS (DASSEM.COUNTVARS) +\ACTONDISKPAGES (UNINTERRUPTABLY .SETUPDISKBUFFERS. \BLT \PUTBASE \CLEARWORDS DECLARE ERROR +\CONTEXTSWITCH \CLEARBYTES \BOXIPLUS \DISKERROR RPLACA) COURIER.READ.NSADDRESS (\BINS) CLRHASH ( +UNINTERRUPTABLY DECLARE) DATATYPES (FRPLACD) DOPMAP (\READPAGES) \DISKERROR (SELECTC RAID) +CLOSEBSPSTREAM (WITH.MONITOR DECLARE OBTAIN.MONITORLOCK BSPFORCEOUTPUT \BSP.FLUSHINPUT +MONITOR.AWAIT.EVENT SI::MONITOR-UNWIND BLOCK) %%COPY-ONED-ARRAY (ERROR \PUTBASE) \FTP.WHENCLOSED ( +printout PRIN1) \SLOWHCPYMODEBLTCHAR (\DSPPRINTCR/LF SELECTQ SHOULDNT .WHILE.TOP.DS. \PUTBASE +\SOFTCURSORDOWN \INSURETOPWDS DECLARE \PILOTBITBLT \SOFTCURSORUPCURRENT \DSPYPOSITION.DISPLAY BITBLT +ERROR) FILEBROWSER (MAP SELECTQ FRPLACD PROMPTPRINT CLRPROMPT TTY.PROCESS ALLOW.BUTTON.EVENTS +FB.MAKECOUNTERWINDOW ATTACHWINDOW TOTOPW FB.SETNEWPATTERN ADD.PROCESS) \CLEARBYTES (\PUTBASEBYTE) +\GENERIC.DSPCREATE (\DTEST DSPFONT DSPDESTINATION DSPRIGHTMARGIN DSPSOURCETYPE DSPOPERATION) MAPHASH ( +DECLARE APPLY*) CL:RENAME-PACKAGE (REMHASH PUTHASH ENTER-NEW-NICKNAMES) \LEAF.NOT.RESPONDING (TERPRI +SELECTQ) \IDLER (RESETLST \USEREVENT \DEVICEEVENT PROCESS.EVAL SETPASSWORD CLEARW OPENW DSPOPERATION +DSPTEXTURE BLOCK \DIRTYBACKGROUND SUSPEND.PROCESS PRINTOUT WAKE.PROCESS RESETFORM CLEARBUF CLOSEW +FRESHLINE) SPY.DUMP.BUFFER (FREPLACEFIELD) REDISPLAYBITMAP (ERROR) \DOACTONDISKPAGES (\DODISKCOMMAND +RAID SELECTQ) FB.SEEFULLFN (ATTACHWINDOW TOTOPW AWAIT.EVENT) PUP.ECHOSERVER (RESETSAVE SELECTQ PRIN1 +PRINTPUP SWAPPUPPORTS SENDPUP RELEASE.PUP BLOCK AWAIT.EVENT) COMP.MLLVAR (PRIN1) \ICONW.FORMAT.TITLE1 +(FRPLACD) IRM.DISPLAY.CREF (DSPFONT CENTERPRINTINREGION) DINFO.TOGGLE.MENU (DETACHWINDOW) +SEDIT::TRACK-EXTEND (SEDIT::SET-POINT-NOWHERE SEDIT::SMASH-USING UNTILMOUSESTATE GETMOUSESTATE +\BACKGROUND SEDIT::EXTEND-SELECTION SEDIT::CHECK-SELECTION-SHIFT BLOCK) SETTEMPLATE (UNDOSAVE) +CLISPFORERR (SPACES LISPXPRIN1 LISPXPRIN2 CLISPFORERR1 LISPXSPACES TERPRI) OPENBSPSTREAM (SELECTC +\BSP.FLUSH.SOCKET.QUEUES SETUPTIMER BLOCK WAKE.PROCESS) TEDIT.WORDGET (DECLARE CHECK) TERM.HOME ( +\DTEST) \WRITEDISKPAGES (\OPENDISKDESCRIPTOR UNINTERRUPTABLY .SETUPDISKBUFFERS. \BLT \PUTBASE +\CLEARWORDS DECLARE ERROR \CONTEXTSWITCH \BOXIPLUS \DISKERROR) PUTHASH (\HASHACCESS) FB.ADD.FILE ( +FREPLACEFIELD) \TEDIT.MOVE.PIECEMAPFN (APPLY*) \HASHACCESS (DECLARE UNINTERRUPTABLY \HASHRECLAIM) +SEDIT::INSERT-MULTI-ESCAPE (SEDIT::INSERT FREPLACEFIELD SEDIT::SET-SELECTION-NOWHERE) PRINTXIP ( +printout TERPRI PRINTXIPROUTE PRIN2 PRINTCONSTANT PRINTXIPDATA) \DOWRITEDISKPAGES (\M44MARKPAGEFREE +\PUTBASE \DODISKCOMMAND SELECTQ) \MEDW.DSPCREATE (DSPFONT DSPDESTINATION DSPRIGHTMARGIN DSPSOURCETYPE +DSPOPERATION) INSTALL-WHO-LINE-OPTIONS (WINDOWPROP) TTADJUSTWIDTH (TTDELSECTION TTINSERTSECTION) +RESTART.ETHER (SUSPEND.PROCESS) MAPAFTERCLOSE (\CLEARMAP) SCROLLBITMAP (WYOFFSET WXOFFSET BITBLT) +M44.SIGNAL.DISK.ERROR (SELECTC LISPERROR ERROR) SEDIT::LINEARIZE-QUOTE (SEDIT::OUTPUT-CONSTANT-STRING) + TEDIT.QUIT (\ILLEGAL.ARG DISMISS) ADD-SYMBOL (DECLARE MAKE-PACKAGE-HASHTABLE) +\TFBRAVO.INSTALL.PAGEFORMAT (MAPC) FASL::DUMP-DCODE (CL:MACROLET) FB.FASTSEE.ONEFILE (CLEARW +WINDOWPROP) RESOLVE-EXPORT-MISSING (MAKE-CONDITION) \FTPERROR (printout PRIN1 HELP CLOSEBSPSTREAM) +HARRAYKEYS (MAPHASH) MAPPAGE (\SETEOF) \LISPERROR (DECLARE SELECTQ \MP.ERROR) RAISE-SIGNAL (CL:FLET +DEFAULT-HANDLE-CONDITION TRY-TO-HANDLE) \SWITCHFONTS.PSC (POSTSCRIPT.PUTCOMMAND) PRINTDEF (DECLARE +RESETLST TERPRI) CHAT.TAKE.INPUT1 (DECLARE CLEARW printout) \HASHRECLAIM (UNINTERRUPTABLY DECLARE) +\FORWARD.XIP (PRINTXIP) \MAPPAGE (CHECKBUFFERREF \DELREF \WRITEOUTBUFFERS) DO.MOUSE (\CHECKCARET +MOVE.TO.LINE) HASHOVERFLOW (ERRORX HASHOVERFLOW.UPDATEARRAY) RECORDINIT (MAPC) \SETEOF (\RELEASECPAGE +\SETIODIRTY) \WRITEVMEMPAGES (CHECK \BLT) CLSMARTEN (DECLARE) MB.MARGINBAR.SHOWTAB (SELECTQ BITBLT) +WHO-LINE-USERNAME (DECLARE) POSTSCRIPT.OUTSTR (DECLARE) \TEDIT2 (\TEDIT.COMMAND.LOOP CLOSEW +\TEXTCLOSEF APPLY*) UNDONLSETQ (LISTPUT1 DECLARE SI::RESETUNWIND UNDOSAVE UNDONLSETQ1) STORAGE ( +FRPLACD DECLARE printout PRIN1 TAB \STORAGE.TYPE \STORAGE.HUNKTYPE PRINTNUM \STLINP +\SHOW.ARRAY.FREELISTS) \GR.DELDEFFN (ERRORX MARKASCHANGED /SETTOPVAL) SHOWRECTANGLE.PRESS (\WOUT) +CL:DELETE (CL:ERROR) DWIMIFY1A (LISPXSPACES) IDLE (LISTPUT \CARET.DOWN) ATTACHEDWINDOWREGION (MAPC) +\STLINP (PRIN1 TAB PRINTNUM) \CHARWIDTH.PSC (DECLARE) CL:LIST-ALL-PACKAGES (CL:MAPHASH) \DSPROTATE.PSC + (POSTSCRIPT.SHOWACCUM \DSPRESET.PSC) \COURIER.BROADCAST.ON.NET (printout SPACES PRINTNUM) +SEDIT::INSPECT-SELECTION (SEDIT::SET-SELECTION-NOWHERE SEDIT::SET-POINT-NOWHERE printout DECLARE +TERPRI) \HASHTABLE.DEFPRINT (.SPACECHECK. \OUTCHAR \SOUT \PRINTADDR) SETUPFONTS.IP (DEFINEFONT.IP) +\STORAGE.TYPE (DECLARE CHECK \MAPMDS \BOXIPLUS \PUTBASEFIXP \STMDSTYPE) DASSEM.DPRINTLAP (PRIN2 PRIN1 +MAPRINT) COMPARELST (DECLARE) \BITBLT.BITMAP.SLOW (DECLARE SELECTQ UNINTERRUPTABLY \BITBLT.MERGE +\BITBLTSUB ERROR \BWTOCOLORBLT SHOULDNT) \STORAGE.HUNKTYPE (DECLARE MAPC \BOXIPLUS) \COLLECTDIRTYBUFS +(FRPLACD) \STRINGWIDTH.PRESS (DECLARE \MAPPNAME) PUP.ECHOUSER (RESETSAVE SETUPPUP PUTPUPWORD +FREPLACEFIELD PUTPUPSTRING SENDPUP PRINTERRORPUP RELEASE.PUP AWAIT.EVENT) TEXTUREOFCOLOR (BITBLT) +REMOVEWINDOW (CLOSEW) XCL:LIST-ALL-PROFILES (CL:MAPHASH) WORDCONTENTS (CHECK) \MEDW.TOTOPW (DOUSERFNS +\INTERNALTOTOPW ERROR) \PUNT.BITBLT.BITMAP (DECLARE SELECTQ UNINTERRUPTABLY \BITBLT.MERGE \BITBLTSUB +ERROR \BWTOCOLORBLT SHOULDNT) \SETIODIRTY (SHOULDNT) SEDIT::LINEARIZE-LIST (SEDIT::OUTPUT-CR-OR-SPACE +SEDIT::OUTPUT-CR SEDIT::OUTPUT-SPACE) \STRINGHASHBITS-UFN (DECLARE) FAKE-COMPILE-FILE (DECLARE +RESETLST CL:MULTIPLE-VALUE-SETQ PRINT-COMPILE-HEADER MAPC) DINFO.UPDATE (OPENW WINDOWPROP ERROR +RESETLST FLASHWINDOW DINFO.UPDATE.FMENU DINFO.UPDATE.GRAPH.DISPLAY DINFO.UPDATE.MENU.DISPLAY) +/SETWORDCONTENTS (UNDOSAVE) TEDIT.EDIT.OBJECT (\FIXSEL TEDIT.PROMPTPRINT TEDIT.UPDATE.SCREEN) +\DODISKCOMMAND (\BLT EMPUTBASE \BOXIPLUS) CL:AREF (CL:ERROR) \STRING-EQUAL-HASHBITS-UFN (DECLARE) +\STMDSTYPE (PRIN2 SPACES \STMDS.APPROX) SETWORDCONTENTS (ERROR) \FM.NUMBER-CHANGESTATE (DECLARE) +\GETDISKCB (\CLEARCB) INCORNER.REGION (DECLARE) EXPANDBITMAP (EXPANDBM) \XIPERROR (DECLARE \BLT +SWAPXIPADDRESSES SENDXIP) SEDIT::INPUT-TOKENDELIM (SELECTQ SEDIT::INSERT SEDIT::SET-SELECTION-NOWHERE +SHOULDNT) \IFS.LOOKUPFILE (WITH.MONITOR DECLARE OBTAIN.MONITORLOCK SETUPPUP \PUTPUPSTRING SELECTC +PRINTERRORPUP CLOSEPUPSOCKET RELEASE.PUP SI::MONITOR-UNWIND) COMP.SELECTQ (COMP.VAL COMP.DELPUSH +COMP.STPOP COMP.STTAG COMP.STVAR COMP.STCOPY COMP.STCONST COMP.STFN MAP) \CLEANUPDISKQUEUE (EMPUTBASE +\DODISKCOMMAND APPLY*) DINFO.TOGGLE.TEXT (FLASHWINDOW DINFO.UPDATE.TEXT.DISPLAY) \CODEARRAY (LISPERROR +) TURN.OFF.ETHER (BREAKCONNECTION DEL.PROCESS CLOSEPUPSOCKET CLOSENSOCKET) \IDLERKEYACTION (KEYACTION) + WORDOFFSET (CHECK) WHO-LINE-WHAT-IS-RUNNING (DECLARE RELSTK) TEDIT.UNDO.DELETION (\INSERTPIECE APPLY* + \FIXILINES TEDIT.UPDATE.SCREEN \TEDIT.SET.SEL.LOOKS \FIXSEL) \PUNT.BLTSHADE.BITMAP (DECLARE +UNINTERRUPTABLY \BITBLTSUB) TEDIT.SETSYNTAX (\SETSYNCODE CHECK) \PAGED.GETNEXTBUFFER (LISPERROR +UNINTERRUPTABLY \RELEASECPAGE \SETIODIRTY SHOULDNT) \CREATEINTERPRESSFONT (DECLARE) \MEDW.BURYW (MAPC) + \FIXCODENUM (DECLARE \PUTBASEBYTE) SEDIT::TTYFN (DECLARE WITH.MONITOR OBTAIN.MONITORLOCK +SI::MONITOR-UNWIND) \PAGED.FORCEOUTPUT (\UPDATEOF UNINTERRUPTABLY \SETIODIRTY FRPLACD \WRITEOUTBUFFERS + RPLACD \TRUNCATEFILE) DSPSOURCETYPE (LISPERROR UNINTERRUPTABLY DECLARE) \FIXCODEPTR (DECLARE +UNINTERRUPTABLY \ADDREF) \DSPCLIPPINGREGION.IP (UNINTERRUPTABLY \CHANGE-VISIBLE-REGION.IP) +COMPILE-FILE? (SELECTQ CL:FORMAT) \PAGEDSETFILEPTR (\UPDATEOF UNINTERRUPTABLY \RELEASECPAGE +\SETIODIRTY) DASSEM.DSTOREFNDEF (MAP CODESETA \FIXCODESYM DECLARE \FIXCODEPTR SETSTKNTOFFSET DPUTCODE +SI::RESETUNWIND) POSTSCRIPT.STARTPAGE (POSTSCRIPT.PUTCOMMAND \SETXFORM.PSC POSTSCRIPT.OUTSTR RELMOVETO + \TERPRI.PSC) ICMLARRAY.INDICES (PRINTOUT TERPRI) FASL::DUMP-INTEGER (FASL::WRITE-OP FASL:DUMP-VALUE) +\STMDS.APPROX (SPACES PRIN1) \CLISPKEYWORDPROCESS (SET) \PAGED.SETEOFPTR (FORGETPAGES \SETEOF +\CLEARBYTES \SETIODIRTY \TRUNCATEFILE) DBG::FIND-NAMED-STACK-POSITION (RELSTK PRIN1 PRINT) +\CARET.FLASH (UNINTERRUPTABLY) \FIXCODESYM (DECLARE) REPOSITIONATTACHEDWINDOWS ( +MOVEATTACHEDWINDOWTOPLACE) TEDIT.UNDO.INSERTION (\DELETECH \FIXDLINES TEDIT.UPDATE.SCREEN \FIXSEL) +SPY.MAKE.TREE (WINDOWPROP) SEDIT::SHRINKFN (printout DECLARE TERPRI RELEASE.MONITORLOCK +SEDIT::AWAKE-COMMAND-PROCESS SEDIT:SAVE-WINDOW-REGION) TB.EXPANDFN (DECLARE OBTAIN.MONITORLOCK +WINDOWADDPROP TB.DISPLAY.LINES SI::MONITOR-UNWIND) COMPARELISTS (DECLARE COMPAREPRINT MAP CL:FORMAT +TERPRI) DSPCREATE (\DTEST DSPFONT DSPDESTINATION DSPRIGHTMARGIN DSPSOURCETYPE DSPOPERATION) +DINFO.TOGGLE.HISTORY (DETACHWINDOW) \LEAF.RESENDPUPS (PUTSEQUIN) SYSRECLOOK1 (DECLARE) \PAGEDREADP ( +DECLARE CHECK \INCHAR \BACKCCODE) DELFROMCOMS (DECLARE SELECTQ /RPLNODE2) \NSFILING.GET.ATTRIBUTES ( +DECLARE) \CHECKARRAYBLOCK (DECLARE \CHECKARRAYBLOCK) TEDIT.GETSYNTAX (DECLARE CHECK) SORT (DECLARE +FRPLACD) SEDIT::RESHAPEFN (WYOFFSET SEDIT::COMPUTE-COMMENT-COLUMN DECLARE OBTAIN.MONITORLOCK BITBLT +SI::MONITOR-UNWIND) \CHECKFREEPAGE (FRPTQ \PUTBASE) \GR.PUTDEFFN (ERRORX ERROR \GR.DELDEFFN +MARKASCHANGED EVAL /RPLACD /SETTOPVAL) \ALLOCBLOCK.OLD (\CHECKARRAYBLOCK \DELETEBLOCK? \MERGEBACKWARD +\MERGEFORWARD \CLEARCELLS) \PARTEND.PRESS (\WOUT DECLARE SETFILEPTR) ONEDINSPECT.SELECTPROP ( +INSPECT.INVERTSELECTION INSPECT.INVERTREGION) NS.ECHOUSER (RESETSAVE \PUTBASE printout SENDXIP +PRINTERRORXIP RELEASE.XIP AWAIT.EVENT) TWODINSPECT.REDISPLAY (WITH-INSPECTOR-ENV BITBLT +TWODINSPECT.PRINTELEMENT TWODINSPECT.ADJUSTSELECTION TWODINSPECT.MAKEREGIONS DSPRESET +TWODINSPECT.REPAINTFN TOPW.REPAINTFN) \ALLOCBLOCK.NEW (DECLARE \MERGEBACKWARD SELECTQ \MAKEMDSENTRY +\NEW2PAGE UNLESSINEW SETQ.NOREF) SWAPXIPADDRESSES (\BLT) SEDIT::INPUT-STRINGDELIM (SEDIT::INSERT) +TB.FIND.PREVIOUS.TAIL (HELP) \FM.NUMBER-SETUP (\FM.EDIT-SETUPTTBL DECLARE LISTPUT) FILENAMEFROMID ( +SETFILEPTR \LFCheckBang FRPLACD) \NSFILING.GET/SETINFO (\NSRANDOM.REESTABLISH) \FM.EDIT-SETUP ( +\FM.EDIT-SETUPTTBL DECLARE LISTPUT) \ALLOCHUNK (FRPLACD ERROR HELP \ADDREF) +POSTSCRIPT.SET-FAKE-LANDSCAPE (POSTSCRIPT.SHOWACCUM \DSPTRANSLATE.PSC \DSPRESET.PSC) NSNETDAYTIME0 ( +FREPLACEFIELD SELECTC) TOPW.REPAINTFN (WITH-INSPECTOR-ENV MOVETO PRIN2 INSPECT.INVERTSELECTION) +\SFFixDestination (\SFFixClippingRegion \INVALIDATEDISPLAYCACHE \SFFixFont) \HANDLE.RAW.XIP (DECLARE +PRIN1 \XIPERROR \PUTBASE SWAPXIPADDRESSES SENDXIP UNINTERRUPTABLY \ENQUEUE FREPLACEFIELD) +TB.FLUSH.WINDOW (WINDOWDELPROP ERSETQ) TTPRINSPACE (RPTQ TTBOUT) BSPPUTMARK (DECLARE +OBTAIN.MONITORLOCK \BSP.SENDBUFFER \PUTBASEBYTE FREPLACEFIELD SI::MONITOR-UNWIND) \MAIKO.ALLOCBLOCK ( +DECLARE \ILLEGAL.ARG \LISPERROR SELECTQ ERROR UNINTERRUPTABLY FRPTQ \CHECKARRAYBLOCK +.CHECK.ALLOCATION.COUNT. \DELREF LISPERROR) SEDIT::OUTPUT-CONSTANT-STRING (SEDIT::STEP-LINEAR RPLACD +SEDIT::ADVANCE TEDIT.INSERT) \BSP.HANDLE.DATA (RELEASE.PUP \ENQUEUE FREPLACEFIELD NOTIFY.EVENT +SETUPTIMER) CHAT.TYPESCRIPT (PROCESS.APPLY) \NEWLENGTHIS (\UPDATEOF) \DSPPOPSTATE.PSC (FREPLACEFIELD) +CLISPIFYCROPS (RETEVAL FRPLACD SHOULDNT) \VFMAtLoad (\VFMCreateIntervals) \TEDIT.WORDBOUND.READTABLE ( +CHECK MAPC) COMP.NUMBERTEST (COMP.STVAR COMP.STJUMP COMP.STCOPY COMP.STPOP COMP.STCONST) +ENCAPSULATEDOBJ.DISPLAYFN (RELMOVETO MOVETO printout RELDRAWTO) TEDIT.REDO.INSERTION ( +TEDIT.PROMPTPRINT RETFROM \INSERTPIECE \TEDIT.DIFFUSE.PARALOOKS \FIXILINES TEDIT.UPDATE.SCREEN +\TEDIT.SET.SEL.LOOKS \FIXSEL) SEDIT::COMPLETION (FIXEDITDATE PUTDEF CL:FUNCALL MARKASCHANGED) +ICMLARRAY.DETACHDISPLAY (DETACHWINDOW CLOSEW) CHCON (FRPLACD \MAPPNAME) BRH/LAYOUT (DECLARE BRH/OFFSET +) \CLEARCB (\CLEARWORDS) DWIMARKASCHANGED (SELECTQ) \MERGEFORWARD (DECLARE \DELETEBLOCK? +\ARRAYBLOCKMERGER) CLISPIFYRPLAC (CLISP4) SPY.NEXT.TREE (FREPLACEFIELD) \FTP.SENDVERSION (BOUT PRIN3 +.EOC.) DBG::FIND-DEBUGGER-STACK-FRAME (ERROR STKNTH RELSTK) \LINKBLOCK (\CHECKARRAYBLOCK DECLARE +\PUTBASEPTR) UNPACK (FRPLACD \MAPPNAME) \MERGEBACKWARD (DECLARE \CHECKARRAYBLOCK \DELETEBLOCK?) +CLISPLOOKUP0 (SHOULDNT) TCOMPL (COMPSET FRPLACD) \CLIPCURVELINE.IP (MOVETO.IP LINETO.IP) +\VANILLADISKINIT (SETCASEARRAY) COMP.VAL (OPT.CCHECK) TTPRIN1COMMENT (TTPRIN1) \LEAF.GETFILEINFO.OPEN +(RELEASE.PUP) \DELETEBLOCK? (DECLARE \PUTBASEPTR \MP.ERROR) BSPGETMARK (\BSP.CLEANUP.INPUT) +\BSP.HANDLE.ACK (RELEASE.PUP UNINTERRUPTABLY SENDPUP \ENQUEUE FREPLACEFIELD \TRANSMIT.STRATEGY +NOTIFY.EVENT \SETBSPTIMEOUT SETUPTIMER) CHAT.CLEAR.FROM.MENU (CLEARW TERM.RESET.DISPLAY.PARMS) PPBUFS +(TERPRI printout) \SPPGETERROR (printout PRINTPACKET TAB) EDITFROMFILE (DECLARE LOADFROM FRPLACD +LISPXPRIN1 LISPXSPACES LISPXPRIN2 LISPXTERPRI SI::RESETUNWIND) CLISPIFYCROPS1 (SELECTQ) IRM.LOAD-GRAPH + (CL:WARN) FILEWATCH (DECLARE FILEWATCH BLOCK FW-INTERACT) \FM.EDIT-INSERT (RELMOVETO SCROLLW DECLARE +BITBLT DSPDESTINATION PRIN1 \CARET.DOWN) \BSP.GETNEXTBUFFER (BSP.OUTPUT.ERROR) INTEGERLENGTH (.NEGATE. +) \VANILLAHOSTNAMEP (COREDEVICE \DEFINEDEVICE) CL:FIND-ALL-SYMBOLS (DECLARE CL:MAPHASH) \SFFixFont ( +\INVALIDATEDISPLAYCACHE) \LOCATE.NSNET (\RPLPTR WAKE.PROCESS BLOCK) DCHCON (DECLARE ADDTOSCRATCHLIST +RPLACD) \DSKOpenDevice (DECLARE OBTAIN.MONITORLOCK \DEFINEDEVICE SI::MONITOR-UNWIND) CLEARCLISPARRAY ( +DECLARE) \MEDW.SHAPEW (PROMPTPRINT) \MEDW.REDISPLAYW (PROMPTPRINT) \FLUSHNDBS (CL:FUNCALL DEL.PROCESS +\FLUSH.NDB.QUEUE) INITPUPLEVEL1 (TURN.OFF.ETHER DEL.PROCESS SELECTC \PUPLEVEL1STATE ASSURE.ETHER.ON) +SPY.MERGETREE (FREPLACEFIELD SPY.MERGE.CALLEES) \SFFIXLINELENGTH ( +\UPDATE-SYNONYM-STREAM-LINELENGTH-FIELD) \CHECKFORSTORAGEFULL (DECLARE \MP.ERROR \DORECLAIM +\PUTBASEFIXP \ADVANCE.STORAGE.STATE) \LFOpenDevice (DECLARE OBTAIN.MONITORLOCK \PFEnsureInitialized +\LFCloseDirectory SI::MONITOR-UNWIND) DASSEM.DWRITEFN (DASSEM.DPRINTLAP PRIN3 TERPRI \BOUT MAPC SPACES + BOUT DASSEM.DSTOREFNDEF) CL:APROPOS-LIST (\UPCASEBASE) ICMLARRAY.DOWINDOWCOMFN (SHAPEW APPLY*) +\TEDIT.STRIKEOUT.CARET.OFF (TEDIT.CARETLOOKS \TEDIT.SHOWCARETLOOKS) DUNPACK (DECLARE ADDTOSCRATCHLIST +RPLACD) CLISPDSUBST (MAP PUTHASH DWIMIFY1) \UFSOpenDevice (DECLARE OBTAIN.MONITORLOCK \DEFINEDEVICE +SI::MONITOR-UNWIND) CL:APROPOS (\UPCASEBASE) EXPRCHECK (ERROR ADDSPELL) COPYHASHFILE (DECLARE +MAPHASHFILE) SEDIT::DELETE-QUOTE (SEDIT::REPLACE-NODE) \FLUSH.PACKET.QUEUE (\RELEASE.ETHERPACKET) +\TEDIT.STRIKEOUT.CARET.ON (TEDIT.CARETLOOKS \TEDIT.SHOWCARETLOOKS) ALPHORDER (DECLARE) COURIER.OPEN ( +RESETSAVE SPP.DSTYPE printout TERPRI PUTWORD DECLARE SPP.SENDEOM SPP.CLOSE SPP.CLEAREOM) BLOCK ( +\MP.ERROR \PROC.RESUME \DECUSECOUNT DISMISS WINDOW.MOUSE.HANDLER MAPC) CASEARRAY (SETA) \SETBRUSH.IP ( +APPENDNUMBER.IP ISET.IP SETCOLOR.IP) BKLINBUF (\RESETLINE \OUTCHAR \INCPARENCOUNT CHECK \CLOSELINE) +\TEDIT.SEARCH.CODETABLE (MAPC) SPY.SUM (SORT) SEDIT::OUTPUT-CR (SEDIT::SET-LINEAR DECLARE SELECTQ +SEDIT::LINE-FINISHED SEDIT::REPAINT-NEW-LINE TEDIT.INSERT TEDIT.PARALOOKS) \PRIMARYTEXTURE (BITBLT) +TEDIT.MOVE (\DELETECH \FIXDLINES \TEDIT.INSERT.PIECES \TEDIT.HISTORYADD \FIXILINES +\TEDIT.CONVERT.TO.FORMATTED TEDIT.UPDATE.SCREEN \FIXSEL) DWIMUNSAVEDEF (LISPXPRIN2 LISPXPRIN1 +LISPXTERPRI) \NSFILING.RELEASE.BULKSTREAM (SPP.CLOSE RPLACD) FREEATTACHEDWINDOW (DETACHWINDOW RELMOVEW +) \CLOSELINE (\SETFILEPTR) \TEDIT.UNDERLINE.CARET.ON (TEDIT.CARETLOOKS \TEDIT.SHOWCARETLOOKS) +CONCATCODES (RPLCHARCODE) SPY.MERGE (CLRHASH MAPC) \SWAPDISKERROR (SELECTC RAID) \ACCHARWIDTHLIST ( +FRPLACD) PACKC (LISPERROR \PUTBASEFAT \PUTBASETHIN FREERESOURCE DECLARE) COURIER.WRITE.REP ( +COURIER.WRITE \BOUT) BSPFORCEOUTPUT (DECLARE OBTAIN.MONITORLOCK \BSP.SENDBUFFER SI::MONITOR-UNWIND) +SEDIT::INPUT-QUOTE (SEDIT::CLOSE-OPEN-NODE SEDIT::INSERT-QUOTED-GAP SEDIT::SET-SELECTION-ME +SEDIT::QUOTE-CURRENT-SELECTION SEDIT::SET-SELECTION-NOWHERE SEDIT::SET-POINT SEDIT::PENDING-DELETE +SEDIT::START-UNDO-BLOCK SEDIT::REPLACE-STRING SEDIT::END-UNDO-BLOCK) \READACFONTBOXES (SETFILEPTR +FRPLACD) \DSPTRANSLATE.PSC (POSTSCRIPT.SHOWACCUM MAPC) \RESETLINE (UNINTERRUPTABLY \SETFILEPTR) +\CARET.FLASH? (\CARET.DOWN SETUPTIMER) \GETFBB (MAPC) \COPYARRAYBLOCK (SELECTC FRPTQ \COPYCODEBLOCK +\BLT) CLEARBUF (\CLEARSYSBUF \RESETTERMINAL) DASSEM.DASSEM (DECLARE DASSEM.COUNTVARS RPLACA RPLNODE2 +RPLACD DASSEM.MATCHVARS RPLNODE FRPLACA CHECKRANGE OPT.RESOLVEJUMPS OPT.COMPILERERROR FRPTQ +DASSEM.DSTOREFN DASSEM.DASMBIND SHOULDNT HELP DASSEM.DWRITEFN) OPENPOSTSCRIPTSTREAM (printout DECLARE +PRIN1 PRINTOUT SI::RESETUNWIND MAPC POSTSCRIPT.OUTSTR \DSPFONT.PSC \SWITCHFONTS.PSC +POSTSCRIPT.SET-FAKE-LANDSCAPE \EXTERNALFORMAT POSTSCRIPT.STARTPAGE) \COPYCODEBLOCK (\BLT +\MAP-CODE-POINTERS \ADDREF) PACK (\ILLEGAL.ARG DECLARE RPLSTRING LISPERROR \PACK.ITEM FREERESOURCE) +COMP.GETBASEBITS (COMP.DELFN COMP.DELPUSH COMP.STCONST) DBG::DEBUGGER-MENU-HELP (TERPRI) COPYALL ( +RPLACD DECLARE MAPHASH FRPTQ) \PACK.ITEM (DECLARE) \MEDW.EXPANDW (\SHAPEW2 \OPENW1 \CLOSEW1 +WINDOWDELPROP DOUSERFNS) CLISPIFYCROPS0 (CLISP4) OPEN (STREAMPROP) \SAVELINEBUF (SELECTC \CLOSELINE +\SETFILEPTR \BINS) TB.UPDATE.DISPLAY (FREPLACEFIELD BITBLT TB.DISPLAY.LINES BLTSHADE) SEDIT::DELETE-LIST + (SEDIT::REPLACE-LIST) \ADVANCE.ARRAY.SEGMENTS (\MERGEBACKWARD) \TEDIT.INTERRUPT.SETUP ( +UNINTERRUPTABLY) TTY.PROCESS (\CHECKCARET FRPLACD UNINTERRUPTABLY CL:FUNCALL) \LFINITCASEARRAY ( +\PUTBASEBYTE) \FM.EDIT-PREPARETOEDIT (DECLARE WINDOWPROP DSPXPOSITION DSPYPOSITION) \3MBFLUSH (BLOCK) +\BSPINIT (DECLARE) \CREATESTARFONT (DECLARE) \PFTransferFilePage (WITH-RESOURCE MESASETQ ERROR +FREERESOURCE DECLARE \CLEARWORDS) \NEW.MKATOM (DECLARE) \READFONTWDFILE (DECLARE) \BYTELT (LISPERROR) +COPYHASHITEM (LOOKUPHASHFILE) SETDISPLAYHEIGHT (DECLARE HELP \ILLEGAL.ARG \PUTBASE) COMP.DELFIX ( +COMP.DELFN) CONVERT-LITATOM (\LITATOM.EATCHARS INTERN-LITATOM) \PAGEPAD.PRESS (SETFILEPTR \BOUT) +\BYTESETA (LISPERROR) \FAMILYCODE (SETFILEPTR SELECTQ) SEDIT::PLACE-CARET-AND-SELECTION ( +SEDIT::SET-SELECTION) INVERTW (DSPFILL) SET-PROFILE-INTERACTIVELY (FRPLACD) FB.ANALYZE.PATTERN ( +SELCHARQ FB.SETNEWPATTERN FB.SET.BROWSER.TITLE) TEDIT.FIND (\TEDIT.HISTORYADD FRPLACD) \WORDELT ( +LISPERROR) COMP.STFIX (COMP.DELPUSH) ONEDINSPECT.SELECTITEM (INSPECT.INVERTSELECTION +INSPECT.INVERTREGION) \LITATOM.EATCHARS (ERROR \PUTBASETHIN) \MEDW.SHRINKW (WINDOWADDFNPROP MOVEW +TOTOPW \CLOSEW1 OPENW) \LEAF.STRIP.QUOTES (FRPLACD) \LEAF.REPAIR.BROKEN.PUP (ERROR) INTERPRESSBITMAP ( +RELMOVETO PRIN1 SELECTQ ERROR \MOVETO.IP SHOWBITMAP.IP) CLISPACKUP (FRPLACD) \3MBWATCHER ( +\HANDLE.RAW.PACKET BLOCK) \FM.EDITSTART-SELECTEDFN (\FM.DISPLAYITEM DECLARE \FM.INSUREVISIBLE) +OLDFAULT1 (CL:CERROR) PAGEFULLFN (PRIN1 FRPTQ) UnixShellQuote (DECLARE RPLNODE) BRECOMPILE (DECLARE +RESETSAVE FRPLACD SELECTQ RETFROM PRIN1 COMPSET SETFILEPTR printout) MAKEBITTABLE (\ZEROBYTES CLRHASH +MAPC CHECK) TTNTHLINE (DECLARE) EXCHANGEXIPS (DISCARDXIPS SENDXIP \BACKGROUND) IRM.RESET (OPENW CLOSEW + CLOSEHASHFILE) TEDIT.SETSEL (\SHOWSEL \COPYSEL \TEDIT.SET.SEL.LOOKS TEDIT.RESET.EXTEND.PENDING.DELETE + \FIXSEL) INVERT.SEGMENT (DECLARE BLTSHADE) COMP.EXPR (DECLARE OPT.COMPILERERROR COMP.VAL COMP.STPOP +COMP.STRETURN COMP.STJUMP COMP.UNBOX) \NSFILING.HOSTNAMEP (\DEFINEDEVICE) \DSKDISPLAY.RESHAPEFN ( +\DSKDISPLAY.REPAINTFN) \NSINIT (MAPC \ADD.PACKET.FILTER \DEL.PACKET.FILTER DEL.PROCESS RESTART.PROCESS + ADD.PROCESS) SEDIT::OUTLINE-SELECTION (CL:FUNCALL) ASSURE.ETHER.ON (ERROR) TEDIT.SETFUNCTION ( +\SETSYNCODE CHECK) COMP.FMEMB (COMP.EXPR COMP.VAL1 COMP.DELPUSH) \BSP.HANDLE.INTERRUPT (FREPLACEFIELD +BSP.OTHERFN DECLARE SENDPUP) COMP.FIX (COMP.VAL1) \FM.EDIT-ITEM (DECLARE FM.CHANGELABEL GETMOUSESTATE +\TTYBACKGROUND SELECTQ \FM.EDIT-MOVECARET \FM.EDIT-DELETE \CARET.DOWN \FM.MENUHANDLER BLOCK +FM.SKIPNEXT \FM.EDIT-BACKUP \FM.EDIT-WORDDELETE \FM.EDIT-INSERT) \BCPLSOUT.PRESS (\BOUT) +FB.CHECK.NAME.LENGTH (RPLACD) PLAYTUNE (CL:UNWIND-PROTECT BEEPON BEEPOFF BLOCK) \SHOW.ARRAY.FREELISTS +(\CLEARCELLS FREPLACEFIELD printout TAB PRINTNUM) DETACHALLWINDOWS (REMOVEPROMPTWINDOW DETACHWINDOW) +FILEPOS (LISPERROR \SETFILEPTR) \ACCHARPOSLIST (SETFILEPTR FRPLACD) \M44DOEXTENDVMEMFILE (SHOULDNT +\PUTBASE \DISKERROR \EXTENDISFMAP) SHRIEKIFY (SELECTQ CLISP4 SHRKFY) SHOW.PRESS (\BOUT) XTOUSTRING ( +RPLCHARCODE SHOULDNT) CLISPFORVARS1 (CLISPFORVARS1) \STREAMCHARWIDTH (DECLARE CHECK) +\BSP.HANDLE.INTERRUPTREPLY (FREPLACEFIELD NOTIFY.EVENT BSPHELP) \EXTENDISFMAP (\PUTBASE) +\NSFILING.CLOSE.BULKSTREAM (CLOSEF) REMOVEPROMPTWINDOW (WINDOWDELPROP DETACHWINDOW) +\TEDIT.UNPARSE.PARALOOKS.LIST (SELECTQ SHOULDNT) \TEDIT.SUPERSCRIPT.CARET (TEDIT.CARETLOOKS +\TEDIT.SHOWCARETLOOKS) FTPPRINTCODE (PRIN1 PRINTCONSTANT PRINTNUM) \FM.EDITSTART-SETUP (DECLARE) +\NSFILING.ERRORHANDLER (BLOCK RETFROM printout TERPRI UNINTERRUPTABLY) FFILEPOS (LISPERROR \SETFILEPTR + \SETUP.FFILEPOS \DECFILEPTR FREERESOURCE DECLARE) \COURIER.WHENCLOSED (TAB PRIN1) \PARSEARRAYSPACE1 ( +\CHECKARRAYBLOCK APPLY* DECLARE) \SETUP.FFILEPOS (PUTBASE PUTBASEBYTE) COMP.NUMBERCALL (COMP.EXPR +FRPTQ COMP.VAL COMP.DELFIX COMP.STCONST COMP.DELPUSH) C.FLOATBOX (COMP.VAL1) CHANGEBACKGROUNDBORDER ( +SELECTC \DoveDisplay.SetBorderPattern) SI::CLEAR-CLOSURE-CACHE (XCL::IMPLICIT-KEY-MAP-HASH) +TEDIT.GETFUNCTION (DECLARE CHECK) COMP.GETD (COMP.VAL1 COMP.STPOP) \CHDEL1 (\SETEOFPTR) +\BSP.HANDLE.ERROR (SELECTC FREPLACEFIELD \RTP.ACTION DECLARE) \FILLRTPPUP (\SETRTPPORTS) +POSTINITARRAYS (printout PRIN1 TAB HELP \LINKBLOCK SETQ.NOREF \MAKEMDSENTRY) SCALE/GRAPH ( +SET/LABEL/SIZE) \ECHOCHAR (\OUTCHAR) \INITIALIZESWAPDISK (\BLT \PUTBASEPTR) +COMPILER::COMPILE-SCAN-DEFINE-FILE-INFO (DECLARE) TB.PRINT.LINE (MOVETO POSITION CL:FUNCALL +TB.SHOW.SELECTION) PSCFONT.READFONT (SETA CLOSEF) EXPANDING-PAGEFULLFN (SHAPEW) +\TEDIT.GET.TERMSA.WIDTHS (\WORDSETA DECLARE CHECK) SPY.MAX (MAPC) SEDIT::INPUT-DOT (SEDIT::DOT-THIS-LIST +) ICONW.TITLE (\ICONW.SHOW.TITLE \ICONW.REPAINTFN) COMP.STCOPY (OPT.CCHECK) \INTERPRETER1 ( +UNINTERRUPTABLY SETSTKNAME-RAW SETSTKNTOFFSET-RAW \PUTBASEPTR) CARETRATE (SETUPTIMER) \BSP.TIMERFN ( +\SEND.ACK SENDPUP SETUPTIMER FREPLACEFIELD) SEARCHPRETTYTYPELST (/SETTOPVAL) DINFO.TITLEMENUFN ( +DINFO.ADD.FMENU FLASHWINDOW) \SMASHLINK (\INCUSECOUNT \DECUSECOUNT) COMP.NUMERIC (SELECTQ COMP.EXPR +FRPTQ COMP.DELFIX COMP.DELFN COMP.DELPUSH COMP.STFIX) \GETCHAR (\ECHOCHAR) MSCLOSEFILES (CLOSEF) +\TEDIT.COPYINSERTFN (TEDIT.INSERT TEDIT.INSERT.OBJECT) \ENTITYEND.PRESS (\FIXPOUT \WOUT DECLARE) +\FILLBUFFER (DECLARE \RESETLINE \ECHOCHAR \LINEBUFBOUT CHECK \OUTCHAR \SETEOFPTR UNINTERRUPTABLY +\SETFILEPTR \FILLBUFFER.BACKUP \CLOSELINE SHOULDNT) BCOMPL (DECLARE) TWODINSPECT.DOWINDOWCOMFN ( +SELECTQ SHAPEW APPLY*) \STARTDISPLAY (UPDATESCREENDIMENSIONS \MOVE.WINDOWS.ONTO.SCREEN MAPC +\UPDATE.PBT.RASTERWIDTHS UNINTERRUPTABLY SHOWDISPLAY CHANGEBACKGROUND) SEDIT::EDIT-HELP ( +SEDIT::CLOSE-OPEN-NODE printout TERPRI) \FILLBUFFER.WORDSEPRP (CHECK) \TEDIT.UNDERLINE.CARET.OFF ( +TEDIT.CARETLOOKS \TEDIT.SHOWCARETLOOKS) CL::%%RATIO-PRINT (PRIN1 .SPACECHECK. DECLARE \SOUT) +\MEDW.MOVEW (PROMPTPRINT TOTOPW UNINTERRUPTABLY .WHILE.TOP.DS. \PUTBASE \SOFTCURSORDOWN \INSURETOPWDS +DECLARE \SW2BM \SOFTCURSORUPCURRENT REDISPLAYW DOUSERFNS) \INTERPRETER-LAMBDA (DECLARE) +\FM.DISPLAY-SETUP (DECLARE) \TIME.NOT.SET (TERPRI) UPDATE/SCROLL/REG (CLOSEW) DESCRIBE-VIRTUAL-MEMORY +(printout CL:FORMAT) FB.HANDLE.ABORT.BUTTON (SHADEITEM) NEWFAULT1 (RETAPPLY RETEVAL) CHARWIDTH ( +\ILLEGAL.ARG DECLARE) ICMLARRAY.DISPLAYSLICE (FRPLACD) FAULTAPPLY (DECLARE PUTD PUTHASH) +COMP.COMPARENUM (COMP.EXPR COMP.DELFIX COMP.DELPUSH COMP.VAL1 COMP.VAL) DSPBACKUP (\CHECKCARET +DSPXPOSITION BITBLT) COMPILER::TEST-ALPHA-2 (DECLARE) DBG::RELEASE-DEBUGGER-WINDOW (RELSTK \CARET.DOWN + WINDOWDELPROP) \UNPACKDATE (CL:MULTIPLE-VALUE-SETQ) BRECOMPILE3 (SETFILEPTR ERROR) CL::%%COMPLEX-PRINT + (.SPACECHECK. \OUTCHAR \PRINDATUM) \CreateScreenBitMap (DECLARE \NEWPAGE) TB.CLOSE/SHRINK (TB.PROCESS + TB.FINISH.CLOSE printout TERPRI) VIDEOCOLOR (DECLARE SELECTC DOVE.XOR.CURSOR SETSCREENCOLOR) +\SETUP-COMPILED-CLOSURE-CALL (\BLT FREPLACEFIELD \MAKEFREEBLOCK FRPTQ \PUTBASE CHECK RPTQ) +\TEDIT.FORMATTEDP1 (SETFILEPTR) \STOPSCROLL? (DECLARE) \PRINTFMAP (CL:FORMAT) \FILLINSPP (\BLT) +\CoerceToDisplayDevice (DECLARE) \LEAF.USE.NEW.CONNECTION (SELECTC printout PRIN1 MAPC ADD.PROCESS) +\POSTSCRIPT.NSHASH (PUTHASH) MAKEKEYLST (FRPLACD) \MEDW.RELMOVEW (MOVEW) \FIXP.FROM.FLOATP ( +.FLOATUNBOX. SELECTC .NEGATE. .LLSH8. .LLSH1. .LRSH8. FRPTQ) FASL::DUMP-GENERAL-ARRAY (FASL::WRITE-OP +FASL::DUMP-ARRAY-DESCRIPTOR FASL:DUMP-VALUE) CLISPFOR2 (MAP) \CURSOR.DEFPRINT (PRIN4) PROMPTPRINT ( +CLRPROMPT PRIN1) CL::%%COMPLEX-ABS (DECLARE) \NSFILING.WHENCLOSED (\NSRANDOM.ENSURE.WATCHER) MAKEFILES + (DECLARE UPDATEFILES ADDTOFILES? LISPXPRIN2 LISPXPRIN1 LISPXTERPRI FRPLACD SI::RESETUNWIND) +\IDATESCANTOKEN (DECLARE FRPLACD) \DSCCOUT (CHECK RPTQ) ARGLIST (ERROR) \DSPFONT.IP (SHOW.IP +APPENDINTEGER.IP APPENDOP.IP \CHANGECHARSET.IP \FIXLINELENGTH.IP \MOVETO.IP) CL:/= (CL:ERROR) +\PROMPTWINDOW.SET.HEIGHT (RELMOVEW) \CREATEDISPLAY (\DEFINEDEVICE) WFROMDS (DECLARE +\CREATE.TTYDISPLAYSTREAM) FB.EDITLISPFILE (FB.PROMPTW.FORMAT EXEC-EVAL RESETFORM) CLISPFOR0A (DECLARE) + ASKUSEREXPLAIN (ASKUSERSETUP ASKUSEREXPLAIN) \DSPLINEFEED.PRESS (\ILLEGAL.ARG) COMP.SHIFT (COMP.VAL +COMP.DELFIX COMPERROR COMP.DELPUSH) \FTP.UNPACKFILENAME (MAP) \FREESTACKBLOCK (CHECK \MP.ERROR +\MAKEFREEBLOCK) DISPLAYNODELINKS (DISPLAYLINK) ONEDINSPECT.REDISPLAY (WITH-INSPECTOR-ENV BITBLT +ONEDINSPECT.PRINTELEMENT ONEDINSPECT.ADJUSTSELECTION ONEDINSPECT.MAKEREGIONS DSPRESET +ONEDINSPECT.REPAINTFN) CLEANUP (COMPILEFILES0) \MEDW.CLOSEW (\PUTBASE \SOFTCURSORDOWN \INSURETOPWDS +DECLARE \SW2BM \SOFTCURSORUPCURRENT) FW-UPDATE-OFD-WINDOWS (DECLARE) STOPNS (\DEL.PACKET.FILTER +DEL.PROCESS CLOSENSOCKET) COMPILER::GENCODE-TAGBODY-INLINE (COMPILER::SET-UP-RETURN-TO MAPC +COMPILER::TAKE-DOWN-RETURN-TO) CLISPELL (MAPC /RPLNODE) COMPILER::TEST-ALPHA (COMPILER::RELEASE-TREE) +\SETUP-ENVIRONMENT-CALL (\MAKEFREEBLOCK \BLT RPTQ \PUTBASEPTR \PUTBASE CHECK) CHECKTRAN (DECLARE) +MAKEALISTCOMS (LISPXPRINT FRPLACD) TEDIT.INSERT.OBJECT (TEDIT.DO.BLUEPENDINGDELETE \SHOWSEL +\INSERTPIECE APPLY* \TEDIT.HISTORYADD \FIXILINES TEDIT.UPDATE.SCREEN \FIXSEL \COPYSEL) \PUTBASEPTR ( +\PUTBASE) DISPLAYSTREAMINIT (DECLARE \STARTDISPLAY DSPDESTINATION TERMINAL-OUTPUT DSPYOFFSET +DSPYPOSITION DSPXOFFSET DSPCLIPPINGREGION DSPRIGHTMARGIN) ICMLARRAY.ATTACHDISPLAY (ATTACHWINDOW MAPC) +\RPLRIGHT (RPLCHARCODE) \LFExtendFile (UNINTERRUPTABLY \UPDATEOF) \ENTITYSTART.PRESS (DECLARE +SETXY.PRESS) SEDIT::SEDITL (DECLARE SEDIT:SEDIT) COLLECTKEYS (DECLARE MAPHASHFILE) \OUTDATE-STRING ( +RPLCHARCODE) \LEAF.READFILENAME (RELEASE.PUP) COMP.ST (OPT.CCHECK) \START.PROCESSES (\MP.ERROR +\PROC.RESUME \DECUSECOUNT) FTPPRINTMARK (printout TERPRI) COMPILER::TRANSFORM-GET/PUT-BASE ( +COMPILER::RELEASE-TREE) BSP.PUTINTERRUPT (DECLARE OBTAIN.MONITORLOCK \FILLBSPPUP \PUTBASE PUTPUPSTRING + SENDPUP \SETBSPTIMEOUT MONITOR.AWAIT.EVENT SI::MONITOR-UNWIND) CHAT.EMACS.MOVE (BOUT PRIN3 +FORCEOUTPUT) DRIBBLE (CLOSEF UNINTERRUPTABLY) DBG::CLOSE-DEBUGGER-WINDOW (\CARET.DOWN PROCESS.APPLY) +PROCESSWORLD (MAPC WINDOWPROP CURSOR FRPLACD \MAKE.PROCESS0 RETFROM RAID) CL:ATANH (DECLARE) +\COERCEASCIITONSFONT (FRESHLINE printout PRINTNUM SPACES \FSETWIDTH) ADD.PROCESS (\SET.PROCESS.NAME +UNINTERRUPTABLY \INVALIDATE.PROCESS.WINDOW \MAKE.PROCESS0 WINDOWPROP) \MEDW.OPENW (\PUTBASE +\SOFTCURSORDOWN \INSURETOPWDS DECLARE \SW2BM \SOFTCURSORUPCURRENT) CHANGEBACKGROUND (\ILLEGAL.ARG MAPC + BLTSHADE TILE) COMPILEUSERFN1 (DWIMIFY0) FB.CLOSEFN (PROMPTPRINT) PUTPROPS.PRETTYPRINT (PRIN2 PRIN1 +SPACES MAYBE.PRETTYPRINT.BOLD TERPRI) TRIM.BITMAP (HELP BITBLT) \RUN.PROCESS (ERROR UNINTERRUPTABLY +\UNQUEUE.EVENT \UNQUEUE.TIMER) NEWPAGE.IP (SELECTQ ENDPAGE.IP ENDPREAMBLE.IP BEGINPAGE.IP SCALE.IP +CONCATT.IP ROTATE.IP TRANSLATE.IP \DSPFONT.IP PRIN3 FGET.IP APPENDOP.IP SETXY.IP DSPFONT RELMOVETO +NEWLINE.IP SHOULDNT SETYREL.IP APPENDINTEGER.IP APPENDNUMBER.IP ISET.IP) \ICONW.SHOW.TITLE ( +ICONW.PRINT-JUSTIFIED BITBLT) SI::DISABLE-CLOSURE-CACHE (SI::CLEAR-CLOSURE-CACHE) CL:ASINH (DECLARE) +\3MBGETPACKET (\BLT HELP \BOXIPLUS \RCLK \MAYBEPRINTPACKET) \RPLPTR (\ADDREF \DELREF \PUTBASEBYTE +\PUTBASE) SEDIT::SEDITE (SEDIT:SEDIT) \MOVE.WINDOWS.ONTO.SCREEN (MOVEW) InstallUnixPrinter (DECLARE +PUTASSOC) KNOTLOOP (MAPC) CLISPFOR1 (SELECTQ CLISPFORERR /RPLNODE DWIMIFY2 DWIMIFY1 CLISPRPLNODE +RPLACD CLISPFOR4 FRPLACA CLISPDSUBST) SEDIT::GET-MENU (FM.RESETMENU WINDOWADDPROP WINDOWPROP +SEDIT::MENU-INIT-STATE) \RELEASE.PROCESS (CHECK \DECUSECOUNT \UNQUEUE.EVENT \UNQUEUE.TIMER REMHASH +\INVALIDATE.PROCESS.WINDOW WINDOWPROP) \FTP.OPENFILE.FROM.PLIST (\FTP.PRINTPLIST .EOC. SELECTC +\RELEASE.FTPCONNECTION FTPPUTCODE CLOSEBSPSTREAM \BSP.DECLARE.FILEPTR) FAULTEVAL (DECLARE PUTHASH) +UNMAKEMAINWINDOW (WINDOWDELPROP) \NSFILING.GET.STREAM (RPLACD FREPLACEFIELD RESETSAVE) \ADDLEAFSTRING +(ERROR \PUTBASE \PUTBASEBYTE \MOVEBYTES) DINFO.OPENTEXTSTREAM (TEDIT.KILL CLEARW RESETSAVE PRINTOUT) +FTPDEBUG (DSPFONT DSPSCROLL) \FILLBSPPUP (\SETRTPPORTS) CHAT.HOLD (TOTOPW UNINTERRUPTABLY +GETMOUSESTATE \BACKGROUND) SPY.UPDATE.TITLE (TOTOPW GETMOUSESTATE \BACKGROUND) COMPILEFILES0 ( +MAKEFILE1) PUTWINDOWPROP (\ILLEGAL.ARG) CLISPAND (CLISP4) SEDIT::INPUT-NORMAL-CHAR (printout DECLARE +TERPRI SELECTQ SEDIT::INSERT SEDIT::INSERT-STRING SHOULDNT) COMPEM (PRIN1 SPACES TERPRI) \LONUM ( +.UNBOX. SELECTC \ILLEGAL.ARG CL::%%NOT-NONCOMPLEX-NUMBER-ERROR) \EVALFORMASLAMBDA (DECLARE) CL:ACOSH ( +DECLARE) SEDIT::UNDO-COMMENT-CHANGE (SEDIT::UNDO-BY RPLACA SEDIT::NOTE-CHANGE-IN-SIMPLE NCONC1 RPLACD) + \DSPSPACEFACTOR.PRESS (SHOW.PRESS \SETSPACE.PRESS) DISPLAYGRAPH (DSPRIGHTMARGIN MAPC) \HINUM (.UNBOX. + SELECTC \ILLEGAL.ARG CL::%%NOT-NONCOMPLEX-NUMBER-ERROR) COMP.RPLACD (COMP.EXPR FRPTQ COMP.DELFN +COMP.STCONST COMP.VAL1 COMP.STCOPY COMP.ST) \TEDIT.ITALIC.CARET.ON (TEDIT.CARETLOOKS +\TEDIT.SHOWCARETLOOKS) \LINEBUF.EOFP (DECLARE) BLOCKCOMPILE1 (COMPEM TERPRI MAPC SAVEDEF /PUTD) APPLY +(DECLARE SELECTQ) ICMLARRAY.MENUW.SHOW (FM.CHANGELABEL) \3MBSENDPACKET (\MAYBEPRINTPACKET CL:CERROR +\BLT \WRITERAWPBI PRIN1 \REQUEUE.ETHERPACKET) APPLY* (DECLARE FRPLACD) /CNDIR (UNDOSAVE /SET) +SEDIT::EXTRACT-CURRENT-SELECTION (SEDIT::CLOSE-OPEN-NODE printout TERPRI SEDIT::PENDING-DELETE +SEDIT::INSERT CL:FORMAT RPLACD SEDIT::START-UNDO-BLOCK SEDIT::UNDO-BY SEDIT::END-UNDO-BLOCK) +PAINTW.SHADE.LABEL (BLTSHADE) LINEBUFFER-SKIPSEPRS (READCCODE) \NEXTCONSPAGE (CHECK) \CKAPPLYARGS ( +CHECK FRPTQ) \INSPECT/CODE/REPAINTFN (MOVETO PRINTCODE) \DSPRIGHTMARGIN.PRESS (\FIXLINELENGTH.PRESS) +CHAT.MENU (DECLARE \CHECKCARET SELECTQ APPLY*) TB.FIND.ITEM (\DTEST SELECTQ) CLISP4 (RETFROM RETEVAL) +RECORDTRAN (DWIMIFYREC DWIMIFY0? DECLARE CLISPTRAN) EDITFNS (SPACES) \MOUSE.PROCESS (DECLARE +PROCESS.RETURN \SET.PROCESS.NAME DEL.PROCESS WINDOW.MOUSE.HANDLER TTY.PROCESS BLOCK) +\PROMPTWINDOW.EXPAND (SHAPEW RPLACD) ICMLARRAY.MENUW.APPLY (FRPLACD DECLARE TERPRI +ICMLARRAY.DETACHDISPLAY) PRINTLINE (printout \SETUPGETCH PRINT) CLISPIF2 (/RPLNODE) SETXY.PRESS (\WOUT +) TTGIVEHELP1 (PRIN1 DECLARE) \MAIKO.CONS.UFN (RAID \ADDREF \StatsAdd1 DECLARE \PUTBASE +.CHECK.ALLOCATION.COUNT. CHECK FREPLACEFIELD \DELREF) \IRM.GET.REF (\IRM.GET.HASHFILE CLEARW PRINTOUT) + EVALV (\SMASHLINK RELSTK) \TEDIT.SUBSCRIPT.CARET (TEDIT.CARETLOOKS \TEDIT.SHOWCARETLOOKS) CL:CLOSE ( +CLOSEF) SEDIT::START-PROCESS (ADD.PROCESS) \BACKGROUND.PROCESS (MAPC BLOCK) \MEDW.CREATEW (DSPXOFFSET +DSPYOFFSET DSPCLIPPINGREGION ADVISEWDS MOVETOUPPERLEFT SHOWWFRAME OPENW) RELSTK (UNINTERRUPTABLY +\DECUSECOUNT) \TEDIT.INSPECTCODE (APPLY* TEDIT.SETSEL TEDIT.NORMALIZECARET WINDOWPROP) \SETSPACE.PRESS + (\WOUT DECLARE) POSTSCRIPT.FONTSAVAILABLE (FRPLACD) \TIMER.PROCESS (\RUN.PROCESS BLOCK) \SPP.SYSPKT ( +BLOCK) GRAPHDELETELINK (APPLY*) CL:COSH (DECLARE) COMP.DELPUSH (SUB1VAR) DINFO.FMW.CLOSEFN ( +DETACHWINDOW CLOSEW) \WRITE1 (DECLARE) \FM.NWAY-CHANGESTATE (\FM.TOGGLE-CHANGESTATE LISTPUT) +TB.DISPLAY.LINES (TB.PRINT.LINE) CL:COUNT (CL:ERROR) COURIERPROGRAM.PRETTYPRINT (PRIN1 PRIN2 SPACES +MAYBE.PRETTYPRINT.BOLD PRINENDLINE PRINTDEF) \SETVAR (\PUTBASEPTR \RPLPTR) COMP.LABELS (MAPC) +CL:COPY-READTABLE (RESETREADTABLE) BRECOMPILE1 (BRECOMPILE1 PRIN2 PRIN1 OUTPUT COMPEM COMPILE1) +\DEFINEDISPLAYINFO (DREMOVE) \LFExtendFileIfNecessary (DECLARE OBTAIN.MONITORLOCK SI::MONITOR-UNWIND +LISPERROR) INTERPRESSFILEP (RESETSAVE SETFILEPTR) DBG::CREATE-DEBUGGER-WINDOW (RELSTK) \IRM.SMART.REF +(FRPLACD PRINTOUT TERPRI) TWOD.TRACKCURSOR (TOTOPW GETMOUSESTATE) \SETFVARSLOT (ERROR) +TEDIT.DEACTIVATE.WINDOW (TEDIT.PROMPTPRINT CLEARW \SHOWSEL MAPC CLOSEF? WINDOWDELPROP +\TEDIT.INTERRUPT.SETUP GIVE.TTY.PROCESS DISMISS) SEDIT::EXPAND (printout TERPRI) \MOVETO.HCPYMODE ( +\DSPXPOSITION.HCPYMODE) CL:DECODE-FLOAT (CL::%%FLOAT-UNBOX) \REQUEUE.ETHERPACKET (SELECTQ +\RELEASE.ETHERPACKET UNINTERRUPTABLY \ENQUEUE) PROG (MAPC LISPERROR) COMPILEUSERFN (COMPILEUSERFN1 +PRIN1 PRINT) EDITCOMS (EDITCOM) \TEDIT.SHRINK.ICONCREATE (ICONTITLE) CL:DECODE-UNIVERSAL-TIME ( +CL:MULTIPLE-VALUE-SETQ) ENDCOLLECT (RPLACD) \TFBRAVO.WRITE.PARAGRAPH (\TFBRAVO.PARSE.PROFILE.PARA +\TFBRAVO.EOLS) \PROG0 (DECLARE PUTBASEPTR UNINTERRUPTABLY SETSTKNAME-RAW SETSTKNTOFFSET-RAW \EVAL) +UPDATECHANGED1 (printout PRIN1) \PROC.REPEATEDLYEVALQT (DECLARE \CALLME INITIALEVALQT TTYDISPLAYSTREAM + OUTPUT INPUT \RESETSYSTEMSTATE EVALQT) REATTACHPROMPTWINDOW (ATTACHWINDOW) FINDFILE-WITH-EXTENSIONS ( +MAP) \DSPLEFTMARGIN.PRESS (\FIXLINELENGTH.PRESS) DBG::REUSE-CURRENT-WINDOW (TERPRI) IRM.DISPLAY.REF ( +DECLARE TERPRI) GREETFILENAME (DECLARE) TEDIT.SHOWSEL (\FIXSEL \SHOWSEL) \ALLOCMDSPAGE (\MP.ERROR +\CHECKFORSTORAGEFULL UNLESSINEW \MAKEMDSENTRY) \NSFILING.EVENTFN (\CLEARMAP MAPC PRINTOUT PRIN1) +ICMLARRAY.MENUW.GETLEVEL (FRPLACD PRINTOUT RESETFORM DECLARE) TTY/EDITL (LISPXWATCH UNDOSAVE +SETATOMVAL ERROR!) CLISPFOR (SELECTQ DECLARE LISTPUT1 SI::RESETUNWIND UNDOSAVE UNDONLSETQ1) +\INVALIDATE.PROCESS.WINDOW (DSPFILL) \PERIODICALLY-WHO-LINE-SHOW-ACTIVE (DECLARE +\UPDATE-WHO-LINE-ACTIVE-FLAG) \EVPROG1 (DECLARE) DELETE/AND/DISPLAY/LINK (printout PRIN1 +GRAPHDELETELINK DISPLAYLINK) FW-RECALL-CMD (DECLARE FRPLACD PROMPTPRINT FW-UPDATE-OFD-WINDOW) +CL:DELETE-DUPLICATES (CL:ERROR) LASTN (DECLARE) \SMASHRETURN (\SMASHLINK) \INSPECT/CODE/RESHAPEFN ( +\INSPECT/CODE/REPAINTFN) \STOPDISPLAY (DECLARE UNINTERRUPTABLY SHOWDISPLAY \UNLOCKPAGES) +CreateCursorBitMap (\PUTBASE) DSPRUBOUTCHAR (\GETDISPLAYDATA) \TEDIT.READTABLE (\SETSYNCODE CHECK +TEDIT.SETFUNCTION) GO (STACKPUTBASEPTR \SMASHRETURN LISPERROR) EDITL0 (EDITCOMS TERPRI PRIN1 EDITL1) +CL:DIRECTORY (DECLARE FRPLACD) COMPILER::GENCODE-RETURN (COMPILER::GENCODE) \SPP.SENDPKT (HELP SENDXIP +) EVALA (MAPC LISPERROR) \TEXTMENU.SET.TOGGLE (ERROR IMAGEOBJPROP \TEDIT.REPAINTFN) \SET.PROCESS.NAME +(SELECTQ REMHASH PUTHASH) CLISP3C (DECLARE SI::RESETUNWIND FRPLACA) \EVALA (UNINTERRUPTABLY PUTBASEPTR + SETSTKNAME-RAW DECLARE SETSTKNTOFFSET-RAW) NUMBERPAD.READER.HANDLE.CHAR (\READNUMBER.FLASHAREA +DISPLAY/NUMBER/READER/TOTAL) DISPLAY/NUMBER/READER/TOTAL (DSPFILL RESETFORM) CHECKCONSPAGES (HELP) +WHO-LINE-SHOW-ACTIVE (DECLARE \UPDATE-WHO-LINE-ACTIVE-FLAG) INVERT.LONG.SEGMENT (INVERT.SEGMENT) +\PEEKNS (\PROMISCUOUS.OFF RPTQ BLOCK \PROMISCUOUS.ON) \MAPMDS (CHECK SPREADAPPLY*) +COURIER.WRITE.BULKDATA (PUTWORD DECLARE COURIER.WRITE) \DSPYPOSITION.HCPYMODE (UNINTERRUPTABLY +\INVALIDATEDISPLAYCACHE \ILLEGAL.ARG) \CHECKCONSPAGE (!CHECK DECLARE) PUTTEXTPROP (LISTPUT) EDITFB ( +LOADFNS LOADFROM PRINTOUT PRIN1) DASSEM.CLEANFNTEST (DECLARE) FTP.BREAKCONNECTION (MAPC FRPLACD) +SMASHFILECOMSLST (SELECTQ SMASHFILECOMSLST SET) CURSOR (DECLARE \CURSORDOWN \CURSORUP \ILLEGAL.ARG) +DRAWMARGINSCALE (DSPFILL SELECTQ BITBLT MOVETO PRIN1 RELDRAWTO) \ETHEREVENTFN (\SETETHERFLAGS +\SETLOCALNSNUMBERS \FLUSHNDBS \LOCKWORDS \NSINIT \STARTPUP \TIME.NOT.SET STOPNS \INIT.GATEWAY MAPC +\STASH.PASSWORDS) SEDIT::ASSIGN-FORMAT-LIST (SEDIT::SET-FORMAT) ERRORSET (DECLARE) TITLEDICONW ( +SELECTQ \ILLEGAL.ARG BLTSHADE WINDOWPROP \ICONW.SHOW.TITLE OPENW) OPT.OPTCHECK (MAPC SELECTQ) +CL::%%RATIONAL-FLOAT (CL::%%FLOAT-UNBOX) LOADUP (PRINTOUT PRIN1 DOFILESLOAD) \LFRemoveDirEntry ( +UNINTERRUPTABLY \SETFILEPTR \LFCheckBang) UNDOEDITL (MAP PRINT EDITSMASH UNDOSAVE) SPP.OPEN ( +OBTAIN.MONITORLOCK RESETSAVE MONITOR.AWAIT.EVENT \SPP.PROBE RELEASE.MONITORLOCK WAKE.PROCESS BLOCK MAP +) \PRINT-USING-DEFPRINT (DECLARE) CL::%%RATIONALIZE-FLOAT (CL::%%FLOAT-UNBOX .LLSH8.) \KEYHANDLER1 ( +\CONTEXTSWITCH \TRACKCURSOR FREPLACEFIELD \KEYBOARDOFF \BOXIPLUS) MSUPDATE (MSNLAMBDACHECK DECLARE +MSPRGDWIM PRIN1 MAPC SELECTQ MSSTOREDATA) \PRINSTACKP (.SPACECHECK. \SOUT \PRINTADDR \LITPRIN) +\MAYBEPRINTPACKET (PRIN1 PRINTPACKET BLOCK) DINFO.CREATE.FMENU (WINDOWPROP) \FM.NWAY-MOVEDFN (BLTSHADE +) CL:DESCRIBE (SI::DESCRIBE-INTERNAL) \PRINSTRING (.SPACECHECK. DECLARE) SETQ (DECLARE) +\TEST.CHARACTER.LOOKS (SETFILEPTR) SI::ERRORSET-PRINT-FUNCTION (DECLARE) COMP.TAGBODY (COMP.STBIND +MAPC COMP.EXPR) \CKPOSBOUT (.SPACECHECK.) \TEDIT.UCASE.SEL (TEDIT.DELETE TEDIT.INSERT TEDIT.SETSEL +TEDIT.NORMALIZECARET) LET (DECLARE MAPC LISPERROR) \ETHERINIT (MOVD) FB.HARDCOPY.DIRECTORY ( +ALLOW.BUTTON.EVENTS FB.MAKE.BROWSER.BUSY FB.ALLOW.ABORT FB.PROMPTWPRINT FB.HARDCOPY.PRINT.TITLE +FRPLACD MAPC PRIN3 TERPRI BLOCK) %%BROADCAST-STREAM-DEVICE-BOUT (MAPC) \CKPOSSOUT (.SPACECHECK. +DECLARE \OUTCHAR) AND (DECLARE) CLISP3 (CLISP4) \LET0 (DECLARE PUTBASEPTR UNINTERRUPTABLY +SETSTKNAME-RAW SETSTKNTOFFSET-RAW) /DWIMCHECKTRAN (DECLARE CLISPTRAN /RPLNODE) \SPY.INTERRUPT ( +SPY.DUMP.BUFFER SPY.START.ENTRY SPY.ADD.ENTRY SPY.END.ENTRY) WRITEIMAGEOBJ (HELP PRIN2 APPLY*) +\AB.BACK (ERROR) FASL::DUMP-CHARACTER (FASL::WRITE-OP) TTRACKMOUSE (DECLARE GETMOUSESTATE +\TTYBACKGROUND) %%BROADCAST-STREAM-DEVICE-OUTCHARFN (MAPC) \LITPRIN (DECLARE RPLCHARCODE .SPACECHECK. +\OUTCHAR) MAP.PROCESSES (APPLY*) \LET* (DECLARE UNINTERRUPTABLY SETSTKNAME-RAW SETSTKNTOFFSET-RAW +PUTBASE PUTBASEPTR) SEDIT::PARSE-INDENT-GROUPS (CL:CERROR) COND (DECLARE) \DSKDISPLAY.REPAINTFN ( +CLEARW CHANGEFONT PRIN1 FLUSHRIGHT) LET* (DECLARE MAPC LISPERROR) SPP.DESTADDRESS (\BLT) +\ADJUSTABLE-STRING-STREAM-OUTCHARFN (FREPLACEFIELD) \EVPROGN (DECLARE) \FM.NWAY-DOWNFN (BLTSHADE) +COMP.RETURN-FROM (SELECTQ COMPERROR COMP.STPOP COMP.PROGLST COMP.STUNBIND OPT.COMPILERERROR +COMP.STJUMP) MSUPDATEFN1 (MSUPDATE MSUPDATEFN1) PUTSTREAMPROP (LISTPUT FRPLACD) \DURATIONTRAN (DECLARE + SETERRORN ERRORX ERROR MAP /RPLACA) PROG1 (DECLARE) CHECKFORCHANGED (MAPC UPDATECHANGED MSCHECKEMPTY) + DOFILESLOAD (DECLARE CHECKIMPORTS) CL:FILE-POSITION (SETFILEPTR) \DSPCLIPPINGREGION.PRESS (ERROR +UNINTERRUPTABLY) RESTART.PROCESS (\PROCESS.MAKEFRAME) \LEAF.ERROR (printout PRIN1) TB.RECONSIDERRANGE +(DECLARE TB.SHOW.SELECTION) CL:FINISH-OUTPUT (FORCEOUTPUT) MSSHOWUSE (LOADFNS MSUPDATEFN1 printout +PRIN1 MAPC PRINT) \EXTERNALFORMAT (\DTEST) \DSPXPOSITION.IP (SHOW.IP SETXY.IP) +%%CONCATENATED-STREAM-DEVICE-PEEKBIN (CLOSEF FREPLACEFIELD \EOF.ACTION) MSSOLVE (MAPC PRIN2 PRIN1 +FRPLACA) CLISPIF (SELECTQ DECLARE LISTPUT1 SI::RESETUNWIND UNDOSAVE UNDONLSETQ1 RETDWIM) WAKE.PROCESS +(DECLARE UNINTERRUPTABLY) ENDLOADUP (MAPC MEDLEY-INIT-VARS SETTOPVAL PRIN1) EDITL1 (FRESHLINE +PROMPTCHAR EDITSAVE FRPLACA LISPXPUT TERPRI PRIN1 PRIN2) DEL.PROCESS (\PROCESS.MAKEFRAME +\UNWIND.PROCESS) \SUSPEND.PROCESS (\MP.ERROR \UNQUEUE.TIMER \UNQUEUE.EVENT \ENQUEUE.EVENT/LOCK) +%%CONCATENATED-STREAM-DEVICE-CLOSEFILE (MAPC) %%CONCATENATED-STREAM-DEVICE-BIN (CLOSEF FREPLACEFIELD +\EOF.ACTION) SUSPEND.PROCESS (\PROCESS.GO.TO.SLEEP \SUSPEND.PROCESS) %%CONCATENATED-STREAM-DEVICE-EOFP + (CLOSEF FREPLACEFIELD) TB.REPLACE.ITEMS (MAPC TB.SET.FONT) COMP.RETURN (COMP.STPOP SELECTQ COMPERROR +COMP.PROGLST OPT.CCHECK COMP.STUNBIND OPT.COMPILERERROR COMP.STJUMP) CL:FLOAT-SIGN (\PUTBASEFLOATP) +PLCHAIN (PRINTLINE) PROCESS.RESULT (AWAIT.EVENT) ENVEVAL (\CALLME \SMASHLINK RELSTK) CTEXTPROP ( +printout PRIN1 SELECTQ) PUTDQ (PUTD) \LITPRIN.INTERNAL (.SPACECHECK. DECLARE \LITPRIN.INTERNAL \SOUT +CHECK) SEDIT::DELETE-WORD (SEDIT::CLOSE-OPEN-NODE) \SEND.ANSWERING.RFC (\BLT \FILLRTPPUP SENDPUP) +TEDIT.COPY (\TEDIT.CONVERT.TO.FORMATTED APPLY* \TEDIT.HISTORYADD \FIXILINES TEDIT.UPDATE.SCREEN +\FIXSEL) BACKSPACEDEL (DELETECONTROL) TEDIT.KILL (\ILLEGAL.ARG TEDIT.DEACTIVATE.WINDOW) MAKEFILE ( +DECLARE UPDATEFILES LISPXPRIN2 LISPXPRIN1 LOADFROM LOADVARS RESETLST MAKEFILE1 APPLY ERROR) +\DSPXPOSITION.HCPYMODE (\DSPXPOSITION.DISPLAY) CL:FLOAT-PRECISION (CL::%%FLOAT-UNBOX) +\TEDIT.PUT.CHARLOOKS (\DWOUT \SMALLPOUT DECLARE) LISTPUT (FRPLACA FRPLACD FRPLNODE) \SPPWATCHER ( +DECLARE RESETSAVE PROCESSPROP OBTAIN.MONITORLOCK MONITOR.AWAIT.EVENT \SPP.RETRANSMIT.NEXT \SPP.SENDPKT + \SPP.NOT.RESPONDING \SPP.PROBE SI::MONITOR-UNWIND) ENVAPPLY (\CALLME \SMASHLINK RELSTK SELECTQ +DECLARE) DSPEOLFN (\ILLEGAL.ARG) \VFMSplit1 (\VFMReadNext MESASETQ \VFMMarkBufferDirty) KNOTLINE (MAPC +) PROCESS-STATUS (SELECTQ) %%ECHO-STREAM-DEVICE-BIN (\BOUT) RECORDPRIORITY (/DREMOVE +SET.RECORD.PRIORITY /NCONC1) \FM.NWAY-SETUP (DECLARE LISTPUT) \KEYBOARDOFF (\PUTBASE) +PERIODICALLYRECLAIM (DECLARE RECLAIM) SEDIT::FINALIZE-MOUSE-SELECTION (SEDIT::SMASH-USING) +CHAT.DID.RESHAPE (DECLARE) \FTP.NEXTFILE (DECLARE SETUPTIMER SELECTC \RELEASE.FTPCONNECTION) \FUNCT1 ( +\PUTBASEPTR UNINTERRUPTABLY SETSTKNAME-RAW SETSTKNTOFFSET-RAW) \GETFILINGCONNECTION (DECLARE +OBTAIN.MONITORLOCK SI::MONITOR-UNWIND) \DOMOUSECHORDING (SELECTC \BOXIPLUS \PUTBASE) COMP.GO (SELECTQ +COMP.STPOP COMP.STJUMP COMPERROR COMP.STUNBIND) CL:FORCE-OUTPUT (FORCEOUTPUT) COMPILER::COMPLETELY-EXPAND + (CL:MULTIPLE-VALUE-SETQ) SEDIT::EVAL-SELECTION (TERPRI printout) \MAKESTACKP (UNINTERRUPTABLY +\INCUSECOUNT \DECUSECOUNT) \PFTrimHelper (HELP \VFMDeletePageGroup \VAMFreePageGroup BLOCK) +\TRACKCURSOR (DECLARE .NOTELASTUSERACTION \SETMOUSEXY SELECTC \DoveMisc.SetMousePosition +\SOFTCURSORPOSITION \DoveDisplay.SetCursorPosition) %%SYNONYM-STREAM-DEVICE-EOFP (DECLARE) +\TEXTMENU.TOGGLE.WHENOPERATEDFN (\TEXTMENU.TOGGLEFN) \DEFPRINT.BY.NAME (.SPACECHECK. \OUTCHAR \SOUT +\PRINTADDR) %%SYNONYM-STREAM-DEVICE-OUTCHARFN (\OUTCHAR) SEDIT::DELETE-SELECTION (SEDIT::DELETE-NODES) + \SYMBOL.ESCAPE.COUNT (DECLARE CHECK) NCHARS (DECLARE \MAPPNAME) COMPILER::GENCODE-MV-CALL ( +COMPILER::GENERATE-VALUES COMPILER::GENCODE) \MAKEFUNARGFRAME (\CALLME MAPC LISPERROR \SMASHLINK) +\TEDIT.BRAVOFILE? (SETFILEPTR BIN) FB.GET.NEWPATTERN (FB.ALLOW.ABORT) NOTIFY.EVENT (UNINTERRUPTABLY +\RUN.PROCESS) ENSURE.RGB (HLSTORGB) STKEVAL (\SMASHLINK RELSTK) \CONVERTTOFRACTION (PutUnboxed) +\DOBUFFEREDTRANSITIONS (DECLARE \DOTRANSITIONS) \NUMERIC.PNAMEP (DECLARE SELECTQ) \PRINTADDR ( +\CKPOSBOUT FREERESOURCE DECLARE) STKAPPLY (\CALLME \SMASHLINK RELSTK SELECTQ DECLARE) +INSTALL-PROTOTYPE-DEFN (MAKE-AND-INSTALL) TWODINSPECT.MAKEREGIONS (FRPLACD) \TEXTMENU.TOGGLE.SHOWSELFN + (SELECTQ BITBLT) CALLS (UPDATEFN MAP CALLS3 DECLARE MSPRGDWIM SELECTQ SI::RESETUNWIND) \SOUT (DECLARE + \OUTCHAR) SI::UNWIND (DECLARE CL:FUNCALL) EDITL2 (LISPXPRIN2) FRESHLINE (DECLARE \OUTCHAR) \AB.NEXT ( +ERROR) BRACKET.CURRENT.WORD (DECLARE CHECK HELP) RETEVAL (\CALLME LISPERROR \SMASHRETURN RELSTK +SI::UNWIND) \LFFindNextFile (\LFCheckBang \LFDirectoryScrambled \LFDWIN FRPLACD) PRINTERRORXIP ( +printout TERPRI) TEDIT.CHARWIDTH (CHECK) RETAPPLY (\CALLME LISPERROR \SMASHRETURN RELSTK SELECTQ +DECLARE SI::UNWIND) \INSERTCR (\TEDIT.CONVERT.TO.FORMATTED \INSERTCH) \DSPSPACEFACTOR.HCPYMODE ( +\ILLEGAL.ARG) PROMPTINWINDOW (DSPLEFTMARGIN MOVETOUPPERLEFT CLOSEW) \CURVE (DECLARE \CURVESMOOTH +APPLY* .WHILE.TOP.DS. \PUTBASE \SOFTCURSORDOWN \INSURETOPWDS \CURVEPT \SOFTCURSORUPCURRENT \BOXIPLUS +MOVETO) TTRUBOUT (DELETE.LONG.SEGMENT1) TB.SET.FONT (CLEARW DSPRIGHTMARGIN LINELENGTH) \LEAF.ACKED ( +\ENQUEUE) MENU.HANDLER (DECLARE GETMOUSESTATE DOWINDOWCOM \BOXITEM OPENW \MENU.ITEM.DESELECT +MENU.HELDSTATE.RESET APPLY* SELECTQ) READIMAGEOBJ (DECLARE DOFILESLOAD IMAGEOBJPROP SETFILEPTR) +POSTSCRIPT.INIT (DECLARE FONTPROFILE.ADDDEVICE) COPYVM (DECLARE SI::RESETUNWIND) \LEAF.GETFILEDATES ( +\BLT RELEASE.PUP \CLEARBYTES \LEAF.SETVALIDATION) BLIPVAL (SELECTQ CHECK) MSCHECKEMPTY (printout PRIN1 + UPDATEFILES MASTERSCOPE ERROR!) FIX89 (EDITE EXEC-FORMAT) TB.SCROLLFN (SCROLLBYREPAINTFN) +GIVE.TTY.PROCESS (\ILLEGAL.ARG TTY.PROCESS APPLY*) \VAROFFSET (SELECTC RAID) NSMAP (MAPC) +CROPMARK.CREATE (IMAGEOBJPROP TEDIT.PROMPTPRINT) SETBLIPVAL (SELECTQ \ILLEGAL.ARG CHECK) +\DSKDISPLAY.BUTTONEVENTFN (GETMOUSESTATE) \NSFILING.LOGIN (SPP.CLOSE CL:CERROR PRINTOUT TERPRI DISMISS + \NSFILING.SET.CONTINUANCE) \MAPCHARS (DECLARE) SPP.SENDEOM (DECLARE SPP.FORCEOUTPUT) +PAINTW.READ.AND.SAVE.SHADE (PAINTW.CACHE.SHADE) SPY.END (SPY.DUMP.BUFFER) \DRAWPOINT.IP (SHOW.IP +BITBLT \DRAWLINE.IP) VERBNOTICELIST (printout PRIN1 SPACES) EDITBF (ERROR!) GETVARS (RELSTK) +\TEDIT.PEEKBIN.NEW.PAGE (\PAGEDBACKFILEPTR) \DSPFONT.PRESS (SHOW.PRESS \ENTITYEND.PRESS +\ENTITYSTART.PRESS \BOUT \SETSPACE.PRESS \FIXLINELENGTH.PRESS) \RTP.ERROR (PRINTCONSTANT) +\FTP.CLOSEFILE (SELECTQ \BSP.FLUSHINPUT ERROR FTPPUTCODE .EOC. CL:FORMAT \RELEASE.FTPCONNECTION +CLOSEBSPSTREAM) WHO-LINE-TIME (DECLARE) PFI.MAYBE.SEE.PRETTY (RESETSAVE) INSPECT (DECLARE printout +TERPRI) \INTERPRESSINIT (DECLARE) OPENW (\OPENW1 DOUSERFNS) \REALFRAMEP (\SMASHLINK) +\PERIODIC.INTERRUPTFRAME (DECLARE) SETTIME (\PROCESS.RESET.TIMERS) PRINTNUM-TO-STRING (DECLARE +\ILLEGAL.ARG FREERESOURCE) \SPP.PREPARE.INPUT (UNINTERRUPTABLY \SPPINCFILEPTR DECLARE RELEASE.XIP +SELECTC CL:FUNCALL) \NSFILING.UPDATE.ATTRIBUTES (FRPLACD) TB.UNDOSELECTION (DECLARE TB.RECONSIDERRANGE +) %%TWO-WAY-STREAM-DEVICE-EOFP (DECLARE) EDITQF (EDIT4F) \IPCURVE2 (MOVETO.IP LOADPOLY \IMAGEPATH.IP +\SETBRUSH.IP LINETO.IP) OPT.DS1 (SELECTQ OPT.COMPILERERROR) \SETUP.TYPENUM.TABLE (HELP \PUTBASEBYTE) +\PFSaveBuffers (\PFPutLogicalVolumePage \VAMBufferSave) %%TWO-WAY-STREAM-DEVICE-CLOSEFILE (CLOSEF?) +CL::DEFINE-CONSTRUCTORS (EXPORT) \SETACCESS (UNINTERRUPTABLY SELECTQ RAID) WINDOW.BITMAP (CLOSEW +BITBLT OPENW) TEDIT.INSERT.UPDATESCREEN (TEDIT.UPDATE.SCREEN \FIXSEL \SHOWSEL \COPYSEL +\TEDIT.SET.WINDOW.EXTENT SCROLLW) \SOFTCURSORPOSITION (\PUTBASE \SOFTCURSORDOWN \SOFTCURSORUPCURRENT) +\DSPLINEFEED.HCPYMODE (\ILLEGAL.ARG) \FTP.GENERATEFILES (SELECTQ \FTP.PRINTPLIST .EOC. SELECTC +\RELEASE.FTPCONNECTION \FTPERROR RESETSAVE \FTP.ASSURE.CLEANUP) MASTERSCOPE (PRIN1) +\SPP.CREATE.STREAMS (FREPLACEFIELD) \FM.STATE-CHANGESTATE (DECLARE) CLOSEMAINWINDOW (\CLOSEW1) +\LEAF.FIX.BROKEN.SEQUIN (\SEQUIN.FLUSH.RETRANSMIT SELECTC CLOSEPUPSOCKET \SEQUIN.FLUSH.CONNECTION +printout FRPLACD WINDOWPROP \PAGED.REVALIDATEFILELST DECLARE AWAIT.EVENT ERROR) CL:INTEGER-DECODE-FLOAT + (CL::%%FLOAT-UNBOX) MODERNWINDOW.BUTTONEVENTFN (GETMOUSESTATE TOTOPW SHAPEW NEARESTCORNER MOVEW) +PROCESS.WINDOW (WINDOWPROP) CLISPIFY2 (RETEVAL) VIDEORATE (DECLARE \DSPRATE \DEVICE.OUTPUT) +\LFSortFiles (SORT) COMP.PROG (COMP.STBIND MAPC COMP.EFFECT COMP.DELPOP COMP.EXPR) \EVALFORM (DECLARE +SELECTQ) \INSTALL.EXTERNALFORMAT (\REMOVE.EXTERNALFORMAT) COMPILER::GENCODE-LET (COMPILER::GENCODE) +\NSFILING.CLOSEFILE (\GENERIC-UNREGISTER-STREAM \NSFILING.RELEASE.BULKSTREAM \NSRANDOM.RELEASE.HANDLE +ERROR \NSFILING.UPDATE.ATTRIBUTES FILING.CALL) \NSADDRESS.PRINT.DECIMAL (CL:MULTIPLE-VALUE-SETQ PRIN3) + TB.REPAINTFN (RESETLST) \GC.HANDLEOVERFLOW (\HTFIND .INCREMENT.ALLOCATION.COUNT. DECLARE .BOXIPLUS. +.UNBOX. SELECTC \ILLEGAL.ARG CL::%%NOT-NONCOMPLEX-NUMBER-ERROR \PUTBASE) SPP.CLOSE (\BULK.DATA.CLOSE +SPP.FORCEOUTPUT) COMPILER::ALPHA-TAGBODY (MAPC) \TFBRAVO.HANDLE.HEADING (DECLARE%: SETFILEPTR +\TFBRAVO.WRITE.PARAGRAPH) PAINTW.READBRUSHSHADE (SELECTQ) RECLOOK (RECORDERROR) \DRAWLINE.IP (SHOW.IP +APPENDOP.IP MOVETO.IP LINETO.IP \IMAGEPATH.IP \SETBRUSH.IP) \DTEST.UFN (DECLARE .UNBOX. SELECTC +\ILLEGAL.ARG CL::%%NOT-NONCOMPLEX-NUMBER-ERROR) WINDOW.MOUSE.HANDLER (GETMOUSESTATE DECLARE +\PROTECTED.APPLY ERSETQ DOWINDOWCOM) PFI.MERGE.INDICES (RPLACA FRPLACD) PRINTFN (PRINTFNDEF printout +PRIN1) MSOUTPUT (OUTFILE RESETSAVE) FB.BROWSECOMMAND (FB.ALLOW.ABORT RPLACA LISTPUT ADD.PROCESS +FB.PROMPTW.FORMAT) DUMMYDEF (PUTD) \PFI.DO.HARDCOPY (DECLARE OBTAIN.MONITORLOCK RELEASE.MONITORLOCK +APPLY SI::MONITOR-UNWIND) MSGETDEF (PUTTABLE) DBG::PRINT-ENTRY-MESSAGE (CL:PRIN1 CL:TERPRI) \BACKTRACE + (DECLARE printout PRINTNUM TERPRI \PRINTBF APPLY* \PRINTFRAME) SETUPSTACK (CREATEPAGES) +CREATE.NUMBERPAD.READER (DSPFONT MOVETOUPPERLEFT MAPC PRIN3 OPENW ADDMENU WINDOWPROP +\READNUMBER.OUTLINEREGION DISPLAY/NUMBER/READER/TOTAL CLOSEW) SEEFILE (SETFILEPTR printout PRIN1 TAB) +\FM.STATE-SELECTEDFN (RESETSAVE) ICONBUTTONEVENTFN (EXPANDW) \LEAF.HANDLE.INPUT (FREPLACEFIELD HELP +ADD.PROCESS) DISMISS (DECLARE \PROCESS.GO.TO.SLEEP FREERESOURCE) DINFO.CLOSEFN (CLOSEW) NEWLINE.IP ( +SHOW.IP DSPNEWPAGE SETXY.IP) DREMOVE (FRPLACA FRPLACD DECLARE) %%TWO-WAY-STREAM-DEVICE-OUTCHARFN ( +\OUTCHAR) COMP.LAMBDA (COMP.VAL COMP.DELPUSH MAPC COMP.STPOP COMPERROR COMP.STBIND COMP.VALN) +OPT.DEADSETQP (DECLARE) \WAITFORSYSBUFP (\WAIT.FOR.TTY BLOCK FREERESOURCE DECLARE) \HUNKFIT? (printout + PRIN1 TAB) EDIT%: (EDLOC EDUP SELECTQ EDIT2F EDITCOML ERROR!) \SEND.ABORT (\FILLRTPPUP \PUTBASE +PUTPUPSTRING SENDPUP) \GCMAPTABLE (DECLARE \HTFIND .BOXIPLUS. .UNBOX. SELECTC \ILLEGAL.ARG +CL::%%NOT-NONCOMPLEX-NUMBER-ERROR \PUTBASE .INCREMENT.ALLOCATION.COUNT.) WAITFORINPUT (\TTYBACKGROUND +FREERESOURCE DECLARE) UPDATEFN (MSINIT ERROR printout PRIN1 PRIN2 MSERASE PUTHASH MSUPDATEFN1) +\FLUSHNSOCQUEUE (\FLUSH.PACKET.QUEUE) \TIMER.INTERRUPTFRAME (APPLY* SETUPTIMER) +\DSPRIGHTMARGIN.HCPYMODE (\DSPRIGHTMARGIN.DISPLAY) \INTERPRETER (CHECK \CONTEXTSWITCH MAPC \SMASHLINK +DECLARE FRPLACD) OPT.DELCOPYFN (OPT.PRDEL) TB.CONSIDERRANGE (DECLARE TB.SHOW.SELECTION) FILEPATCHBLOCK + (LOCAL) \LFWriteLeaderPage (\PFPutPage) TTYINBUFFERPEEK (DECLARE) \SETBSPTIMEOUT (WAKE.PROCESS) +\LFHighestVersions (FRPLACD) SAVEDEF (SELECTQ /PUT /PUTASSOC) TWODINSPECT.PRINTELEMENT (MOVETO) +\COERCE.NS.SOCKET (\BLT) \DOTRANSITIONS (\DECODETRANSITION) \DSPFONT.HCPYMODE (UNINTERRUPTABLY DECLARE + \SFFixFont) \TEXTMENU.TOGGLEFN (APPLY*) \FM.STATE-SETUP (DECLARE LISTPUT) CL::%%ATAN-FLOAT (DECLARE +CL:ERROR) \LEAF.TIMEDIN (CLOSEW) \NSFILING.DISCARD.SESSION (CLOSEF RELEASE.MONITORLOCK) VIRGINFN ( +XCL:UNBREAK-FUNCTION CL:FORMAT APPLY SI::RESTORE-CALLS MAPC) \SPP.ESTABLISH (\BLT \SPP.CREATE.WATCHER +WITH.MONITOR DECLARE OBTAIN.MONITORLOCK SI::MONITOR-UNWIND ADD.PROCESS NOTIFY.EVENT) PROCESS.EVAL ( +DECLARE \PROCESS.MAKEFRAME \PROCESS.GO.TO.SLEEP) SEDIT::REPAINT (MOVETO RELMOVETO SEDIT::PRINT-STRING +PRIN2 PRIN1 BITBLT SHOULDNT) \TEDIT.COMMAND.RESET.SETUP (\TEDIT.INTERRUPT.SETUP CLOSEF?) COMP.SETN ( +COMPERRM) \PRINTFRAME (\PRINTSTK DECLARE SELECTQ printout SPACES PSTK PRINTSTKFIELDS PRIN2 APPLY*) +ONFILE (MSNOTICEFILE MAPC) FB.FASTSEECOMMAND (FB.ALLOW.ABORT DSPSCROLL WINDOWPROP WINDOWADDPROP +RESETSAVE TTYDISPLAYSTREAM MAP) DO.SHIFTED.SELECTION (\CHECKCARET INVERT.LONG.SEGMENT READFROMBUF +MOVE.TO.LINE DELETE.LONG.SEGMENT MOVE.TO.WHEREVER \TTYBACKGROUND) NCONC (FRPLACD) TITLEW.BUTTONEVENTFN + (WITH-INSPECTOR-ENV) \PRINTBF (\PRINTSTK PRIN2 APPLY* printout PRIN1) \FLUSHPUPSOCQUEUE ( +\FLUSH.PACKET.QUEUE) TB.DECONSIDERRANGE (DECLARE TB.SHOW.SELECTION) INSPECTW.CREATE (DSPFONT +DSPRIGHTMARGIN WINDOWPROP) EDITCALLERS (MAPC RESETSAVE CL:FORMAT CL:MULTIPLE-VALUE-SETQ SETFILEPTR +LISPXPRIN1 LISPXSPACES LISPXTERPRI TERPRI EDITFROMFILE) \INSERTCH (DECLARE \INSERT.FIRST.PIECE +RPLSTRING RPLCHARCODE \TEDIT.HISTORYADD UPDATEPCNODES) ONED.TRACKCURSOR (GETMOUSESTATE) \TEDIT1 ( +\TEDIT.COMMAND.LOOP CLOSEW APPLY*) DEFAULT.INSPECTW.PROPCOMMANDFN (RESETLST REMOVEPROMPTWINDOW) SORT1 +(DECLARE FRPLACA FRPLACD FRPLNODE2) CLISPRPLNODE (UNDOSAVE FRPLACA) \TFBRAVO.FIND.LAST.TRAILER ( +SETFILEPTR) INTERPRESS.OUTCHARFN (\CHANGECHARSET.IP \BOUT SHOW.IP SETX.IP) \DECODETRANSITION ( +.NOTELASTUSERACTION SELECTC SHOULDNT \PUTSYSBUF) MERGE (ERRORX) PROCESS.READ (CLEARW PRIN1) +DINFO.EXPANDFN (OPENW TOTOPW) \FM.3STATE-CHANGESTATE (DECLARE) \LEAF.TIMEDOUT (\SEQUIN.CONTROL SELECTC + \LEAF.NOT.RESPONDING TERPRI printout \LEAF.TIMEDOUT.EXCESSIVE) \RECLAIMSTACKP (\DECUSECOUNT) +SAVEONSYSRECLST (MAPRINT CL:FORMAT PRETTYVAR1 FRPLACD PRINTDEF) TTYDISPLAYSTREAM (DECLARE \ILLEGAL.ARG + UNINTERRUPTABLY \CHECKCARET DSPSCROLL PAGEHEIGHT) DECODE/WINDOW/OR/DISPLAYSTREAM (OPENW WINDOWPROP) +\PRINTSTK (PRINTNUM PRIN1) TTPRIN1 (TTCRLF TTBOUT) PP (DECLARE CL:FORMAT) COMP.SETQ (COMP.PROGLST +COMP.STSETQ COMP.BOX) CHARACTER (\PNAMESTRINGPUTCHAR DECLARE FREERESOURCE) CLISPIFY1 (FRPLACD) +\PROCESS.EVAL1 (\RUN.PROCESS) \LFFindInfo (MAPC) \COMPUTE.HUNK.TYPEDECLS (FRPLACD) PRINTTIMER (PRIN1 +printout) TTYINBUFFERBIN (DECLARE) RECURSIVE.COLLECTDESCENDENTS (NC.GraphNodeIDPutProp) +\PFPutMarkerPage (ERROR) \LEAF.RECONNECT (DECLARE OBTAIN.MONITORLOCK SI::MONITOR-UNWIND) PRIN2 ( +DECLARE \PRINDATUM) LOOKUP.NS.SERVER (MAPC) SEDIT::CONVERT-COMMENT (SEDIT::START-UNDO-BLOCK +SEDIT::END-UNDO-BLOCK printout TERPRI) \SETXFORM.PSC (POSTSCRIPT.OUTSTR POSTSCRIPT.PUTCOMMAND) +INVERT.BITMAP.B/W (BITBLT) SET (\PUTBASEPTR \RPLPTR) \CHANGE.ETHER.TRACING (TAB SET) +\NSADDRESS.DEFPRINT (.SPACECHECK. PRIN3 \NSADDRESS.PRINT.DECIMAL) FB.MAKECOUNTERWINDOW ( +FB.MAKERIGIDWINDOW DSPFONT ATTACHWINDOW) \FAX.PARSE.NAME (DECLARE ERROR) CLISPFUNCTION? (/RPLNODE) +CHAT.TYPEOUT.CLOSE (printout PRIN1) \NSPRINT.MEDIUM.CHECK (\NSPRINT.UNSUPPORTED) FB.ADD.FILEGROUP ( +FB.INSERT.DIRECTORY) RECORDFIELDNAMES (MAPC MAPCAR) \DSKDISPLAY.DESTROY.WINDOW (CLOSEW) +CL:MAKE-BROADCAST-STREAM (STREAMPROP) REQUIREVERSION (ERROR) \DEFINEDEVICE (DECLARE UNINTERRUPTABLY) +\BSP.SENDBUFFER (\SETRTPPORTS UNINTERRUPTABLY FREPLACEFIELD \BSPINCFILEPTR \TRANSMIT.STRATEGY +\SETBSPTIMEOUT) APROPRINT (printout TAB PRIN1 RESETLST) MEASUREGRAPHNODE (SET/LABEL/SIZE) \PUTSYSBUF ( +\PUTBASEFAT) CLISPATOM (/RPLNODE RETDWIM FIX89TYPEIN) CL:MAKE-ECHO-STREAM (STREAMPROP) NEWPAGE.PRESS ( +\ENDPAGE.PRESS) U-CASE (DECLARE \PUTBASECHAR FREERESOURCE) COURIER.SKIP.SEQUENCE (COURIER.SKIP) INITGC + (CREATEPAGES) CHANGENAME1A (CHANGECCODE UNDOSAVE) \TEDIT.RESTARTFN (\TEDIT.COMMAND.LOOP CLOSEW +\TEXTCLOSEF APPLY*) UPDATECHANGED (MSINIT MAPHASH) DISPLAYNODE (DISPLAYNODELINKS) \TEDIT.SMALLER.CARET + (TEDIT.CARETLOOKS \TEDIT.SHOWCARETLOOKS) CL:MAKE-TWO-WAY-STREAM (STREAMPROP) CL:MAKE-SYNONYM-STREAM ( +STREAMPROP) PRESSWINDOW (DSPXPOSITION DSPYPOSITION \WRITEPRESSBITMAP) \TEXTMENU.TOGGLE.CREATE ( +DSPXOFFSET DSPYOFFSET DSPFONT MOVETO PRIN1) CHANGE.NODEFONT.SIZE (DISPLAYNODE APPLY* MEASUREGRAPHNODE) + CLOSEICONWINDOW (WINDOWDELPROP CLOSEW DOUSERFNS) CL:MAKE-STRING (FILL-ARRAY) +\VALID.FILING.CONNECTIONP (\NSFILING.LOGOUT BLOCK) \PROCESS.APPLY1 (\RUN.PROCESS) \SEND.RFC (\BLT +SENDPUP) TB.COPYBUTTONEVENTFN (TB.SHOW.COPY.SELECTION BLOCK DECLARE CL:FUNCALL GETMOUSESTATE) +\CREATECHARSET.IP (DECLARE RESETSAVE SETFILEPTR COPYBYTES SELECTQ \FSETWIDTH \BINS) \CLOSEIPSTREAM ( +SELECTQ ENDPAGE.IP ENDPREAMBLE.IP) FIXCONTINUE (FIXPRINTIN) NEWLINE.PRESS (NEWPAGE.PRESS SHOW.PRESS +SETXY.PRESS) PROCESS.APPLY (DECLARE \PROCESS.MAKEFRAME \PROCESS.GO.TO.SLEEP) APROPOS (DECLARE +RESETFORM) MB.NWAYBUTTON.ADDITEM (FRPLACD DSPXOFFSET DSPYOFFSET DSPFONT DSPRIGHTMARGIN DSPDESTINATION +MOVETO PRIN1) SPY.TREE (SPY.MAKE.TREE) SCANFORWARD (DECLARE) COMPILER::COMPILE-FILE-DEFINE-FILE-INFO ( +DECLARE) PARSERELATION (MSINIT) \LEAF.WHENCLOSED (CLOSEW) \VFMMerge1 (MESASETQ \VFMSmartBLT +\VFMReadNext \VFMMarkBufferDirty) ESUBST (UNDOSAVE ERROR ERROR!) \GETDEVICEFROMHOSTNAME (DECLARE +\DEFINEDEVICE) CLDISABLE (DECLARE DWIMIFY0 SI::RESETUNWIND MAPC CLDISABLE) \SPPSENDERROR (printout +PRIN1 PRINTPACKET) \HARDCURSORUP (\CURSORBITSPERPIXEL BITBLT SELECTC \DoveDisplay.SetCursorShape) +MSINTERPRET (MSOUTPUT MAPRINT MSERASE MSINIT PRINTOUT PRIN1 CHECKFORCHANGED DECLARE PRIN2 MAPHASH +MSCHECKEMPTY TAB FRPLACD UPDATECHANGED RESETSAVE FRPLACA) \TEDIT.WORDDELETE (\SETUPGETCH CHECK +\SHOWSEL \FIXSEL) FB.MAKEHEADINGWINDOW (DSPFONT FB.MAKERIGIDWINDOW ATTACHWINDOW WINDOWPROP DSPTEXTURE +DSPOPERATION DSPFILL) FB.GETALLFILEINFO (FRPLACD) FB.HARDCOPY.TOFILE (SELECTQ FB.PROMPTWPRINT +FB.PROMPTW.FORMAT RPLACA FB.MAYBE.INSERT.FILE) COLLECT.CHILD.NODES (FRPLACD) +INTERACT&ADD.BORDER.TO.BITMAP (PROMPTPRINT) MOVEDESCENDENTS (MOVENODE EXTENDEXTENT CALL.MOVENODEFN) +\TEDIT.LARGER.CARET (TEDIT.CARETLOOKS \TEDIT.SHOWCARETLOOKS) \GET-NEXT-RUN (CL:ERROR) \DRAWCURVE.IP ( +\DRAWLINE.IP SHOW.IP APPENDOP.IP \IPCURVE2 SETXY.IP) SEDIT::PARSE-INDENT (CL:CERROR) SPY.TOGGLE ( +SPY.END) \FLOATTOBYTE.UFN (\PUTBASE) FB.HARDCOPYCOMMAND (FB.ALLOW.ABORT FB.HARDCOPY.TOFILE) +MSNOTICEFILE (DECLARE ERROR LOADFROM SI::RESETUNWIND ERROR! LOADVARS /RPLACD) \REMOVEDEVICE (DECLARE +UNINTERRUPTABLY) \FTP.DELETEFILE (MAPC CLEAR.LEAF.CACHE \FTP.PRINTPLIST .EOC. SELECTC +\RELEASE.FTPCONNECTION FTPPUTCODE CLOSEBSPSTREAM FTPGETCODE \FTP.FLUSH.TO.MARK) INITDATATYPENAMES ( +DECLARE) EDIT4E (PRINT EDLOCL) SHOWPRESSBITMAPREGION (SHOWREGION) CL:MISMATCH (CL:ERROR) +\PUT.SESSION.HANDLE (COURIER.WRITE) COMPILER::GENCODE-IF (COMPILER::GENCODE) CLISPERROR (EVQ +FIXPRINTIN LISPXSPACES LISPXPRIN1 LISPXPRIN2 LISPXTERPRI LISPXPRINT MAPRINT) \BSP.FLUSH.SOCKET.QUEUES +(\FLUSH.PACKET.QUEUE RELEASE.PUP) \REMOVEDEVICE.NAMES (DECLARE RPLACA) \TFBRAVO.PARSE.PARA (BIN) +FNCHECK (ADDSPELL) \CURSORDESTINATION (UNINTERRUPTABLY \CURSORBITSPERPIXEL \SETMOUSEXY SELECTC +\DoveMisc.SetMousePosition SETQ.NOREF) OPT.EQOP (OPT.CCHECK) SEDIT::CONVERT-COMMENT-TAIL (TCONC LCONC +SEDIT::CONVERT-COMMENT-TAIL SELECTQ SELCHARQ) \CCODEARGLIST (FRPLACD) \CLOSEFILE (IMAGEOP) +\UNQUEUE.EVENT (\MP.ERROR) SEDIT::CHANGE-QUOTE (RPLACA) SETSYNONYM (ERRORX MSSETWORDTYPE SHOULDNT +FRPLACA FRPLACD) SPY.START (BITBLT SPY.INIT) \SHIFT.DOCUMENT (DECLARE IMAGEOBJPROP) \FTP.MAKEPLIST ( +FRPLACD) \BLKSMALLP2FLOAT.UFN (\PUTBASEFLOATP) DOICONWINDOWCOM (TOTOPW APPLY*) EDITFPAT (FRPLACD MAPC) + INFILECOMS? (SELECTQ INFILECOMSVAL INFILECOMS) PACK* (DECLARE RPLSTRING LISPERROR \PACK.ITEM +FREERESOURCE) EDLOCL (EDLOC) ONEDINSPECT.MAKEREGIONS (WITH-INSPECTOR-ENV FRPLACD) \WWCHANGESCREENSIZE +(MAPC \STARTDISPLAY \CLEARBM \PUTONSCREENW) \CCODEIVARSCAN (DECLARE) \STORENSADDRESS (\MOVENSADDRESSES +) EDITXTR (EDLOC EDUP EDIT2F) \LEAF.GETFILEINFO (\LEAF.CLOSEFILE) \LINEBLT (SELECTQ SHOULDNT +\PILOTBITBLT) \BLKMAG.UFN (DECLARE \PUTBASEFLOATP) \TRANSMIT.STRATEGY (SETUPTIMER FREPLACEFIELD) +EDITMBD (EDLOC EDUP EDIT2F) \BLKEXPONENT.UFN (\PUTBASE) OBTAIN.MONITORLOCK (SELECTQ RESETSAVE +\PROCESS.GO.TO.SLEEP) POSTSCRIPT.FONTCREATE (\FSETWIDTH MAPHASH) ICONW.SHADE (BLTSHADE BITBLT +\ICONW.REPAINTFN) \HARDCURSORPOSITION (DECLARE \SETMOUSEXY SELECTC \DoveMisc.SetMousePosition) +TIME.SINCE.PACKET (\BLT) \DEVICEEVENT (DECLARE) \FTPEVENTFN (SELECTQ FTP.BREAKCONNECTION) INITATOMS ( +CREATEPAGES COPYATOM) \TFBRAVO.ADD.NAMEDTAB (BIN TEDIT.INSERT.OBJECT) CL:PEEK-CHAR (READCCODE) REVERSE + (DECLARE) \BLKFDIFF.UFN (\PUTBASEFLOATP) ADDTOCOM1 (/RPLACD MARKASCHANGED) CL:NSUBSTITUTE (CL:ERROR) +\SPP.HANDLE.DATA (CHECK RELEASE.XIP \ENQUEUE SELECTC \SPP.SEND.ENDREPLY \SPPSENDERROR NOTIFY.EVENT) +CONSTANTS (MAPC) DELFROMFILES (printout PRIN1 MAPC FRPLACD) \SOFTCURSORUP (\TEMPLOCKPAGES +\SOFTCURSORUPCURRENT) \BLTSHADE.IP (SHOWSHADE.IP \BLTSHADE.GENERICPRINTER) \FM.3STATE-DOWNFN (BLTSHADE +) XCL::WHERE-IS-NOTICE (CL:UNWIND-PROTECT HASH-FILE:CLOSE-HASH-FILE) \BLKPERM.UFN (\PUTBASE) FILES? ( +UPDATEFILES LISPXPRIN1 LISPXPRIN2 LISPXTAB FILES?PRINTLST LISPXSPACES LISPXTERPRI ADDTOFILES?) +\SOFTCURSORUPCURRENT (\PUTBASE SETQ.NOREF \PILOTBITBLT \SOFTCURSORPILOTBITBLT) FIXATOM (RELSTK RETDWIM + /RPLNODE) MSSETPHRASE (MSCANT MSNEGATESET) RELEASE.MONITORLOCK (\RUN.PROCESS) \BLKFPLUS.UFN ( +\PUTBASEFLOATP) BITMAPCREATE (\ILLEGAL.ARG) \RTP.HANDLE.RFC (SWAPPUPPORTS \PUTBASE PUTPUPSTRING) +OPT.PRATTACH (FRPLACA) CH.RETRIEVE.ITEM (RPLACA) OPENPRSTREAM (DECLARE ERROR SETUPFONTS.PRESS +\STARTPAGE.PRESS) FIXATOM1 (SETBLIPVAL FIXCONTINUE RELSTK ERROR) RECORDECLARATIONS (PRIN1 MAPRINT MAPC + PRINTDEF) \TAN.OLD (DECLARE) HPRINT.IMAGEOBJ (PRIN2 APPLY*) \BLKFTIMES.UFN (\PUTBASEFLOATP) +DOATTACHEDWINDOWCOM (TOTOPW) SEDIT::CHANGE-PACKAGE (SEDIT::CLOSE-OPEN-NODE CL:FORMAT XCL:SAVE-PROFILE +SEDIT::VERIFY-STRUCTURE printout TERPRI) \PRINTNSADDRESS (DECLARE \NSADDRESS.DEFPRINT) MACROEXPANSION +(DECLARE CL:WARN) SI::MONITOR-UNWIND (SI::RESETUNWIND \RUN.PROCESS) \FM.3STATE-SETUPOFFBITMAP (LISTPUT + DECLARE BLTSHADE DRAWLINE) EDITMV (EDLOC EDUP PRIN1 ERROR! EDITCOML EDITCOMA) \SEND.ACK (\FILLBSPPUP +SENDPUP) FB.HEADINGW.DISPLAY (DSPFILL DSPRIGHTMARGIN DSPXPOSITION PRIN3 CL:FORMAT) PRINTCURSOR ( +printout PRIN1 \CURSORBITSPERPIXEL PRINT) FILES?1 (LISPXPRIN1 FILES?PRINTLST LISPXTERPRI) +\CHARWIDTH.IP (DECLARE) \LFVersions (\LFCheckBang \LFDirectoryScrambled \LFDWIN) TB.MAKE.BROWSER ( +DECLARE MAP DSPLEFTMARGIN TB.REPLACE.ITEMS NCONC1) \BLKFLOATP2COMP.UFN (\PUTBASEFLOATP) MSTRYSPELLTYPE + (DECLARE MAPHASH) IRM.LOOKUP (OPENW) FULLPRESSBITMAP (printout PRIN1 ERROR \WRITEPRESSBITMAP) +COMPILER:OPTIMIZE-AND-MACROEXPAND (CL:MULTIPLE-VALUE-SETQ) CL::%%ASIN-FLOAT (DECLARE) COMPILER::GENCODE-CATCH + (COMPILER::GENCODE COMPILER::SET-UP-RETURN-TO) \TFBRAVO.WRITE.RUNS (DECLARE \TFBRAVO.WRITE.RUN) +SEDIT::CHANGE-PRINTBASE (SEDIT::CLOSE-OPEN-NODE XCL:SAVE-PROFILE SEDIT::VERIFY-STRUCTURE printout +TERPRI) EDIT4F (PRIN1 ERROR!) \SPP.RELEASE.ACKED.PACKETS (CHECK UNINTERRUPTABLY SETA RELEASE.XIP) +DINFO.READ.KOTO.GRAPH (printout TERPRI SELECTQ SHOULDNT) \PUT.FILING.ATTRIBUTE (ERROR COURIER.WRITE +COURIER.WRITE.SEQUENCE.UNSPECIFIED COURIER.WRITE.SEQUENCE) PPSOC.CURRENT (PRIN1) EDITSW (EDITSMASH +EDITSMASH1) IBLT1 (\PUTBASEBITS) PARSE-NSADDRESS (DECLARE) TB.REDISPLAY.ITEMS (CLEARW) CL:VALUES ( +SELECTC SELECTQ DECLARE UNINTERRUPTABLY \SIMULATE.UNBIND FRPLACD) \RELEASE.ETHERPACKET (\DTEST +\ENQUEUE) TEDIT.FLASHCARET (\CARET.FLASH? \CARET.FLASH.AGAIN) IBLT2 (\PUTBASEBITS) +\PROCESS.RELEASE.LOCKS (RELEASE.MONITORLOCK) \SIMULATE.UNBIND (\PUTBASE \MAKEFREEBLOCK) +\WRITEPRESSBITMAP (SHOW.PRESS \ENTITYEND.PRESS \ENTITYSTART.PRESS SETXY.PRESS \WOUT DECLARE \BOUTS +\FIXPOUT) EDITCONT (ERROR!) HARDCOPYREGION.TOPRINTER (SPAWN.MOUSE PROMPTPRINT CLRPROMPT HARDCOPYW) +\PFGetMarkerPage (ERROR) \TEDIT.UNPARSE.CHARLOOKS.LIST (DECLARE) \BLKSEP.UFN (\PUTBASEFLOATP) +CL:VALUES-LIST (SELECTC SELECTQ DECLARE UNINTERRUPTABLY \SIMULATE.UNBIND) HARDCOPYREGION.TOFILE ( +SPAWN.MOUSE PROMPTPRINT CLRPROMPT HARDCOPYW) SEDIT::BACKSPACE (CL:FUNCALL) CL:READ-LINE (READCCODE) +\TFBRAVO.WRITE.RUN (\TFBRAVO.ADD.NAMEDTAB TEDIT.RAW.INCLUDE TEDIT.LOOKS) COMPILER::GENCODE-BLOCK ( +COMPILER::GENCODE) %%STRING-DOWNCASE (%%ADJUST-FOR-OFFSET) \LOADNSADDRESS (\MOVENSADDRESSES) +FB.SETNEWPATTERN (ICONW.TITLE) MSHASHLIST (MAPTABLE) PACKFILENAME (DECLARE \ILLEGAL.ARG MAP) +SEDIT::PRINT-STRING (DECLARE \BLTCHAR) \TEDIT.LOOKS (CURSORPOSITION) \MAKE.PROCESS1 (\DECUSECOUNT +\INCUSECOUNT \RESUME) PRINTPACKETQUEUE (PRINTPACKET) \FM.3STATE-SETUP (DECLARE LISTPUT) +CL:READ-FROM-STRING (SETFILEPTR) \PROCESS.MOVEFRAME (FLIPCURSORBAR \MAKEFREEBLOCK \BLT CHECK +FREPLACEFIELD) %%STRING-UPCASE (%%ADJUST-FOR-OFFSET) PREINITARRAYS (DECLARE) \SOFTCURSORDOWN (\PUTBASE + \SOFTCURSORPILOTBITBLT) CL:REMOVE-DUPLICATES (CL:ERROR) COURIER.WRITE.FAT.STRING (PRIN3 PUTWORD +DECLARE COPYBYTES) TB.DO.ITEM.SELECTION (DECLARE GETMOUSESTATE TB.UNDOSELECTION BLOCK SELECTC +TB.SELECTRANGE TB.DESELECTRANGE TB.SHOW.SELECTION TB.DECONSIDERRANGE TB.CONSIDERRANGE +TB.RECONSIDERRANGE) CL::VALUES-UFN (SELECTC SELECTQ DECLARE FRPLACD UNINTERRUPTABLY \SIMULATE.UNBIND +SI::UNWIND) SEDIT::INSERT-COMMENT-CHARS (RPLACD RPLACA) GETRELATION (MAPC ERROR) +SORT.NSADDRESSES.BY.DISTANCE (MAPC BLOCK) OPT.DELCODE (SELECTQ RPLACA MAPC DREMOVE OPT.DELTAGREF) +CL::VALUES-LIST-UFN (SELECTC SELECTQ DECLARE UNINTERRUPTABLY \SIMULATE.UNBIND SI::UNWIND) PRINTPACKET +(printout) SEDIT::LINEARIZE-COMMENT (SEDIT::OUTPUT-CONSTANT-STRING SEDIT::LINEARIZE SEDIT::OUTPUT-CR) +PRINTPUPQUEUE (BSPPRINTPUP printout TERPRI) \OPENFILE (\DO.PARAMS.AT.OPEN) \SPPCONNECTION (\BLT +\SPP.CREATE.WATCHER) \LEAF.OPENERRORHANDLER (printout TERPRI) CL:REM (DECLARE) \SPP.HANDLE.ATTN ( +printout TAB) \DO.PARAMS.AT.OPEN (DECLARE \EXTERNALFORMAT SETFILEINFO CHARSET CONVHANKAKU) PFI.ENQUEUE + (DECLARE OBTAIN.MONITORLOCK SI::MONITOR-UNWIND) \CLEARSYSBUF (DECLARE) MENUWRESHAPEFN (DELETEMENU +UPDATE/MENU/IMAGE DSPFILL ADDMENU SHOWSHADEDITEMS) \GETKEY (DECLARE FREPLACEFIELD WAIT.FOR.TTY \CLOCK0 + \BOXIPLUS \TTYBACKGROUND \WAIT.FOR.TTY FREERESOURCE) FIXAPPLY (MARKASCHANGED RETDWIM FIX89TYPEIN +FIXAPPLY1) CL:ROOM (CL:FORMAT) \LEAF.OPENFILE (\LEAF.CLOSEFILE \LEAF.SETCREATIONDATE +\LEAF.GETFILEDATES \LEAF.SETFILETYPE) MAKEMAINWINDOW (WINDOWADDPROP) \WAIT.FOR.TTY (AWAIT.EVENT) +\ENQUEUE.TIMER (\BOXIPLUS) CLOSEPUPSOCKET (\FLUSHPUPSOCQUEUE) \TTYBACKGROUND (WAIT.FOR.TTY MAPC) +\DRAWELLIPSE.PRESS (\DRAWCURVE.PRESS MOVETO) \COS.OLD (DECLARE) CHARSET (\ILLEGAL.ARG IMAGEOP) +SEDIT::RELINEARIZE (BLTSHADE SEDIT::COMPUTE-ALL-FORMATS SEDIT::GENERATE-LINEAR-FORM CL:FUNCALL SELECTQ + SEDIT::LINE-FINISHED SEDIT::REPAINT-NEW-LINE DECLARE SHOULDNT FREPLACEFIELD +SEDIT::CLEAN-UP-AFTER-RELINEARIZATION) MULTIFILEINDEX1 (RPLACA CLOSEF) FW-INIT-PROPS (DECLARE printout + PRIN1 SELECTQ SHOULDNT) \IMAGEUSERPROP (LISTPUT) SETFILEINFO (\EXTERNALFORMAT) CALL.MOVENODEFN ( +APPLY*) ICMLARRAY.GETMENUWGROUP (DSPSCROLL DSPFONT MOVEW REDISPLAYW ATTACHWINDOW) LISTHARD (MAPC) +WAIT.FOR.TTY (SPAWN.MOUSE \GETSTREAM OPENW AWAIT.EVENT) FIX89TYPEIN (PRIN1 RETDWIM) \DRAWLINE.PRESS ( +DRAWDASHEDLINE \DRAWCURVE.PRESS) \RTP.CLEANUP (\RTP.ACTION CLOSEPUPSOCKET APPLY* +\BSP.FLUSH.SOCKET.QUEUES) WHO-LINE-VMEM (DECLARE) INITDATATYPES (CREATEPAGES SETQ.NOREF) +\TEDIT.ITALIC.CARET.OFF (TEDIT.CARETLOOKS \TEDIT.SHOWCARETLOOKS) CL:SCALE-FLOAT (CL::%%FLOAT-UNBOX) +CHANGECALLERS (MAPC UPDATEFILES FRPLACD ERROR EDITFROMFILE UPDATECHANGED) PRINT10TO3 (FRESHLINE +PRINTNSHOSTNUMBER) \RECLAIMCODEBLOCK (\DELREF \MAP-CODE-POINTERS) \COURIER.RECORDTRAN (/RPLACA FRPLACD + ERROR) COMPILER::ALPHA-MACROLET (MAPC) VRULE.DISPLAYFN (SELECTQ BITBLT DRAWLINE) \TYPEGLOBALVARIABLE +(PUTPROP) \SAVESYSBUF (DECLARE MAPC) \RTP.HANDLE.PUP (SELECTC \RTP.HANDLE.RFC \RTP.ACTION +\RTP.SHOW.FAILURE BSP.OTHERFN DECLARE) COURIER.WRITE.SEQUENCE.UNSPECIFIED (SELECTQ PUTWORD DECLARE +PUTLONG COURIER.WRITE.FAT.STRING COURIER.WRITE.STRING COURIER.WRITE.SEQUENCE.UNSPECIFIED \CWSU.DEFAULT + COURIER.WRITE \COURIER.UNKNOWN.TYPE) SCANBACK (DECLARE ADD1VAR) \ASSIGNDATATYPE1 (LISPERROR +UNINTERRUPTABLY \NEWPAGE \MAPMDS \BLT \ADDREF) BITBLT.INSERT (BITBLT) \ADD.ROUTING.TABLE.ENTRY ( +\CHECK.ROUTING.TABLE \RPLPTR) BESTNSADDRESS (MAPC BLOCK ERROR printout TERPRI) CL:SEARCH (CL:ERROR) +HARDCOPYW (ERROR ADD.PROCESS) SEDIT::ADD-MENU (printout TERPRI ATTACHWINDOW WINDOWADDPROP) +\LEAF.WRITEPAGES (\LEAF.SETCREATIONDATE \LEAF.LOOKUPCACHE \BLT \SENDLEAF) DINFO.GET.GRAPH.WINDOW ( +WINDOWPROP) \PROC.CODEFORTFRAME (\CALLME CLEARSTK \KEYBOARDON \MP.ERROR INITIALEVALQT +\REPEATEDLYEVALQT) \ICONW.REPAINTFN (TOTOPW BITBLT) \FM.TOGGLE-CHANGESTATE (DECLARE) \PEEKSYSBUF ( +BLOCK) ADDTOFILES? (PRIN1 SELECTQ LINBUF SYSBUF printout PRIN2 SPACES SELCHARQ SHOWDEF PRINT ADDNEWCOM + SAVESET ADDFILE BKBUFS UPDATEFILES) \PROCESS.INIT (\DEFINEDEVICE \LOCKFN /PUTD MOVD) \KEYBOARDINIT ( +DECLARE MOUSECHORDWAIT) COMP.DECLARE1 (SET) \UNQUEUE.TIMER (ERROR) \DSPOPERATION.IP (\ILLEGAL.ARG) +\ENQUEUE (UNINTERRUPTABLY FRPLACD ERROR) \HANDLE.RAW.10TO3 (\MAYBEPRINTPACKET SELECTC DECLARE +\NOTE.10TO3 ENCAPSULATE.ETHERPACKET PRINT10TO3 TRANSMIT.ETHERPACKET printout PRIN1 +\RELEASE.ETHERPACKET) MOUSECHORDWAIT (DECLARE) \PROCESS.EVENTFN (DEL.PROCESS SUSPEND.PROCESS +\SUSPEND.PROCESS) EDITMOVESUBTREE (printout TERPRI FLIPNODE GETMOUSESTATE NOT.TRACKCURSOR) REMPROP ( +ERRORX FRPLACD SETPROPLIST) FIXSPELL2 (MAPRINT LISPXPRIN1 LISPXPRIN2) \ALLOCLOCKED (\LOCKCELL) CLOSEW +(WINDOWOP) FILEPKGTYPE (/SETTOPVAL /RPLACD /PUTPROP /REMPROP) PUTPROP (ERRORX FRPLACD FRPLACA +SETPROPLIST) KEYACTIONTABLE (\ILLEGAL.ARG MAPC) \DRAWCURVE.PRESS (SHOW.PRESS \PRESSCURVE2 SETXY.PRESS) + \RTP.INFO.HOOK (DECLARE DSPFONT CLEARW PPSOC) \VFMSplit (DECLARE \VFMFind \VFMInsert) +SETF-MACRO-FUNCTION (SELECTQ PUTD) MOVEATTACHEDWINDOWTOPLACE (SHOULDNT SHAPEW MOVEW) OPENPUPSOCKET ( +\FLUSHPUPSOCQUEUE DECLARE ERROR UNINTERRUPTABLY SELECTQ) \SPP.CREATE.CON (\BLT) \LEAF.READPAGES ( +AWAIT.EVENT RELEASE.PUP \BLT \LEAF.ERROR HELP \CLEARBYTES) DELETE.LONG.SEGMENT1 (MOVE.TO.LINE +FORWARD.DELETE.TO DO.DELETE.LINES RENUMBER.LINES KILLSEGMENT KILL.LINES ERASE.TO.END.OF.LINE +TYPE.BUFFER ADJUSTLINE) \TEDIT.ITALIC.SEL.OFF (\TEDIT.ITALIC.CARET.OFF) \RECLAIMARRAYBLOCK (\MP.ERROR +SELECTC \RPLPTR \MERGEFORWARD) FB.DISPLAY.COUNTERS (DSPRIGHTMARGIN LINELENGTH MAPC PRIN3 BLTSHADE +FRPLACD) CL:SINH (DECLARE) PRINTBITMAP (DECLARE printout PRIN1 SPACES \WRITEBITMAP) PFI.NEW.LISTFILES1 + (PFI.ENQUEUE) TEDIT.REDO (RESETLST \FIXSEL TEDIT.NORMALIZECARET) TOPW.BUTTONEVENTFN (TOTOPW +GETMOUSESTATE) \PAGED.REVALIDATEFILELST (SELECTQ MAPC SHOULDNT \PRINT-REVALIDATION-RESULT) +\BSP.SKIPBYTES (\BSP.CLEANUP.INPUT FREPLACEFIELD) SEDIT::SPLIT-COMMENT (SEDIT::CLOSE-OPEN-NODE +SEDIT::SET-POINT) \CAR.UFN (\CALLME) CHECKSYNONYM (MAPC) \TEDIT.GET.CHARLOOKS (FREPLACEFIELD) +\READNUMBER.FLASHAREA (DISMISS) \CDR.UFN (\CALLME) COMPSET (SELECTQ PRIN1) FORGETPAGES (\RELEASEBUFFER +) \LFFindDirHole (\SETFILEPTR \LFCheckBang UNINTERRUPTABLY) \KEYBOARDEVENTFN (DECLARE MAPC) +GRAPHBUTTONEVENTFN (TOTOPW FLIPNODE GETMOUSESTATE) RESTOREMAP (DOPMAP \RELEASEBUFFER) +TWODINSPECT.REPAINTFN (WITH-INSPECTOR-ENV TWODINSPECT.PRINTELEMENT INSPECT.INVERTSELECTION) +\TEDIT.CREATEW.FROM.REGION (WINDOWPROP GETPROMPTWINDOW) \DELETECH (\TEDIT.CHECK \DELETEPIECE +UPDATEPCNODES HELP FRPLACD \TEDIT.HISTORYADD MAPC APPLY* \TEDIT.DIFFUSE.PARALOOKS) KEYACTION ( +\ILLEGAL.ARG) \CHANGECHARSET.HCPYMODE (UNINTERRUPTABLY) \LEAF.TRUNCATEFILE (\SENDLEAF) BREAK.PROCESS ( +\DOHELPINTERRUPT1 \PROCESS.MAKEFRAME) ICMLARRAY.GETREGIONFN (RPLACD) \FM.TOGGLE-DOWNFN (BLTSHADE) +CL::%%TAN-FLOAT (DECLARE) /RPLNODE (UNDOSAVE FRPLACA) \UNWIND.UFN (\PUTBASE \MAKEFREEBLOCK \SLOWRETURN +) PFI.PRINT.BITMAP (TERPRI DSPNEWPAGE SCALEDBITBLT MOVETO RPTQ \OUTCHAR) CL::ESTABLISH-PREDICATE ( +REMHASH) CL::TIME-CALL (CL::%%GET-TIMING-INFO CL::%%STATS-OBJECT-DIFFERENCE CL::TIME-FORMAT +CL::%%PRINT-TIMING-ITEM CL::%%PRINT-TIMING-INFO) TEDIT.NEXT (SELECTQ \SHOWSEL \TEDIT.SET.SEL.LOOKS +\FIXSEL TEDIT.NORMALIZECARET TEDIT.PROMPTPRINT SHOULDNT) COMP.COMMENT (COMPERRM) \CHECKAPPLY* (\PUTD) +\PAGED.REVALIDATEFILES (SELECTQ MAPC FDEVOP SHOULDNT \PRINT-REVALIDATION-RESULT) ICMLARRAY (FRPLACD +ICMLARRAY.ATTACHDISPLAY) FB.CREATE.FILEBUCKET (FB.ANALYZE.PATTERN SELCHARQ FB.CHECK.NAME.LENGTH) +RETDWIM (LISPXPUT DWIMARKASCHANGED CL:THROW RETEVAL RETAPPLY RELSTK ERROR! MAPC CLISPERROR) +\HARDRETURN (\CONTEXTSWITCH) COPY (FRPLACD) \TURN.ON.PROCESSES (MAPC RESETRESTORE PROCESSWORLD) +\LFDirectorySearch (\SETFILEPTR \LFCheckBang) CREATEMDSTYPETABLE (CREATEPAGES FRPTQ MAPC) \RPLPTR.UFN +(\ADDREF \DELREF \PUTBASEBYTE \PUTBASE) \PUTBASEBITS (DECLARE) \LOOKUPPUPNUMBER (FREPLACEFIELD +\STORENSHOSTNUMBER DISCARDXIPS SENDXIP BLOCK SELECTC printout PRIN1 RELEASE.XIP) \NOTE.10TO3 (DECLARE +\BLT FREPLACEFIELD) \GETBRUSHFONT.PRESS (\VECFONTINIT) \HTFIND (CHECK DECLARE \GC.ENTER.BIGREFCNT +\MP.ERROR \GC.MODIFY.BIGREFCNT .GETLINK. \DISABLEGC1 .DELLINK.) \BUFFERED.REVALIDATEFILELST (SELECTQ +MAPC \PRINT-REVALIDATION-RESULT SHOULDNT) FONTNAME.IP (DECLARE) \SCALEDBITBLT.IP (\MOVETO.IP +SHOWBITMAP.IP) \LEAF.SETFILEINFO (\LEAF.CLOSEFILE) INSPECT.INVERTSELECTION (INSPECT.INVERTREGION) +MOVE.TO.START.OF.WORD (MOVE.BACK.TO) DINFO.LOOKUP (CLEARW TERPRI FLASHWINDOW) \FM.TOGGLE-SETUP ( +DECLARE LISTPUT) \BSP.PREPARE.OUTPUT (DECLARE OBTAIN.MONITORLOCK MONITOR.AWAIT.EVENT \BSP.SENDBUFFER +SI::MONITOR-UNWIND) SEDIT::DEGRADE-COMMENT (RPLACA SEDIT::NOTE-CHANGE) ADDTOFILE (ADDNEWCOM MAPC +ADDFILE) CREATEHASHFILE (PRINTPTR) \TEXTOPENF-SUBTREE (\TEDIT.REOPEN.STREAM) ONEDINSPECT.PRINTELEMENT +(MOVETO) SI::INTERNAL-THROW (FRPLACD) CL::%%GET-TIMING-INFO (CL::%%CAPTURE-BEFORE-STATS +CL::%%CAPTURE-AFTER-STATS CL::%%STATS-OBJECT-DIFFERENCE) \TEDIT.ABBREV.EXPAND (\SETUPGETCH +TEDIT.SETSEL TEDIT.DELETE TEDIT.INSERT) COMP.QUOTE (COMPERRM) \RPLACA.UFN (\DELREF \ADDREF) BCOMPL3 ( +COPYBYTES CLOSEF? DELFILE /SETATOMVAL) \BSP.FLUSHINPUT (\BSP.CLEANUP.INPUT) \PFNewPages (\PFTrimHelper + \VFMInsertPageGroup BLOCK \PFDsplyVolumes) BITBLT.DELETE (BITBLT BITBLT.ERASE) COURIER.WRITE.SEQUENCE + (\COURIER.TYPE.ERROR COURIER.WRITE.SEQUENCE.UNSPECIFIED PUTWORD DECLARE MAPC) \RPLACD.UFN (\DELREF +\ADDREF CHECK FREPLACEFIELD DECLARE) NSNET.DISTANCE (BLOCK) \PROCESS.MAKEFRAME0 (CHECK) TEDIT.CREATEW +(CLRPROMPT printout PRIN1 FREPLACEFIELD GETPROMPTWINDOW) MENU (DECLARE \DTEST TOTOPW GETMOUSESTATE) +PPSOC (printout PRINTCONSTANT PRINTNUM PRINTTIMER PPSOC.CURRENT TAB BSPPRINTPUP PRINTPUPQUEUE) +\CONS.UFN (RAID \ADDREF \StatsAdd1 DECLARE \PUTBASE .INCREMENT.ALLOCATION.COUNT. CHECK FREPLACEFIELD +\PUTBASEPTR \DELREF) ALISTS.WHENCHANGED (RETFROM) \TRANSLATE.10TO3 (DECLARE \BLT +ENCAPSULATE.ETHERPACKET \MAYBEPRINTPACKET TRANSMIT.ETHERPACKET) ShowIntervals (\VFMContextSet printout + DISPLAYWORDS) \SIN.OLD (DECLARE) CLISPFOR0 (DECLARE /RPLNODE CLISPFORERR FRPLACD PRIN1 PEEKC +ERRORMESS ERROR! ERRORMESS1 MAP PRINT RPLACA MAPC CLISPTRAN) TWODINSPECT.BUTTONEVENTFN (TOTOPW +WITH-INSPECTOR-ENV GETMOUSESTATE) TEDIT.PARALOOKS (\TEDIT.CONVERT.TO.FORMATTED \SHOWSEL +\TEDIT.MARK.LINES.DIRTY \TEDIT.HISTORYADD TEDIT.RESET.EXTEND.PENDING.DELETE TEDIT.UPDATE.SCREEN +\FIXSEL) ADDSPELL2 (/RPLACA) \RESETKEYBOARD (\SETIOPOINTERS \PUTBASE DECLARE \DAYTIME0) IMAGEOBJCREATE + (\ILLEGAL.ARG) PPROC (printout PRIN1 FLUSHRIGHT TAB) SEDIT::DELETE-COMMENT (SEDIT::MAP-COMMENT-INDEX) + MB.NWAYMENU.NEWBUTTON (TEDIT.INSERT.OBJECT TEDIT.INSERT TEDIT.LOOKS) FB.INSERT.FILE (DECLARE +TB.INSERT.ITEM FB.INSERT.DIRECTORY) \ENDPAGE.PRESS (SHOW.PRESS \ENTITYEND.PRESS \WOUT COPYBYTES +\PARTEND.PRESS) \NOFILESNEXTFILEFN (SELECTQ RPLACA) \DRAWCURVE.PRESS.LINE (SELECTQ SETXY.PRESS +SHOWRECTANGLE.PRESS) TEDIT.SUBSTITUTE (TEDIT.PROMPTPRINT \SHOWSEL TEDIT.RESET.EXTEND.PENDING.DELETE +TEDIT.NORMALIZECARET TEDIT.SHOWSEL TEDIT.DELETE \TEDIT.INSERT.PIECES FREPLACEFIELD TEDIT.INSERT +\FIXDLINES \FIXILINES DECLARE SELCHARQ \INSERTCR \INSERTCH \TEDIT.MARK.LINES.DIRTY TEDIT.UPDATE.SCREEN + \FIXSEL) FLUSHRIGHT (TAB) \TEDIT.SHOWCARETLOOKS (TEDIT.PROMPTPRINT) SEDIT::INSERT-COMMENT ( +SEDIT::DELETE-COMMENT SEDIT::MAP-COMMENT-INDEX SEDIT::INSERT-COMMENT-CHARS SEDIT::NOTE-CHANGE) +\CREATECELL (RAID) PPROC1 (printout TAB TERPRI) INTCHAR (SELECTQ UNINTERRUPTABLY MAPC SETINTERRUPT) +NEWDEFC (VIRGINFN CL:FORMAT SAVEDEF /PUTD /PUTPROP) \PROC.AFTER.WINDOWWORLD (WINDOWPROP ADD.PROCESS) +\DSPYPOSITION.IP (SHOW.IP SETY.IP) CL:TANH (DECLARE) GETWINDOWPROP (\ILLEGAL.ARG) MSINTERPRETSET ( +printout PRIN1) NUMBERPAD.READ (SPAWN.MOUSE WINDOWADDPROP TOTOPW NUMBERPAD.READER.HANDLE.CHAR DISMISS +WINDOWDELPROP) \BOUT (\ILLEGAL.ARG) PPROCWINDOW (DSPRIGHTMARGIN) \CHECK.PQUEUE (printout PRIN1 DECLARE + SI::RESETUNWIND) \PRESSCURVE2 (\ENTITYEND.PRESS \ENTITYSTART.PRESS SETXY.PRESS LOADPOLY \VECPUT +\ENDVECRUN) \KEYACTION1 (DECLARE \PUTBASE \RPLPTR \ILLEGAL.ARG) INTERRUPTCHAR (UNDOSAVE) SHOWREGION ( +MOVETO RELDRAWTO) PACKFILENAME.STRING (DECLARE \ILLEGAL.ARG MAP) COMPILER::COMPILE-ONE-LAMBDA ( +CL:UNWIND-PROTECT COMPILER::RELEASE-TREE) \KEYNAMETONUMBER (DECLARE) FB.COPY/RENAME.COMMAND ( +FB.ALLOW.ABORT) \RESTLIST.UFN (\GC.HANDLEOVERFLOW) CLISPIFY2B (CLISP4 PUTHASH) FULLNAME (SELECTQ +\ILLEGAL.ARG) PPROCRESHAPEFN (DSPRIGHTMARGIN) \TEDIT.DEFAULTS.CARET (TEDIT.CARETLOOKS) +PFI.PASS.COMMENT (TERPRI \OUTCHAR) CLISPCAR/CDR (NCONC DWIMIFY2? CLISPTRAN DWIMERRORRETURN) \MISCN.UFN + (DECLARE \INIT-MISCN-TABLE) RCOMP3 (SELECTQ HELP /SET PRIN1 PRIN2 PRINT) SCROLLBYREPAINTFN (BITBLT +REDISPLAYW) GRAPHADDLINK (APPLY*) CL:SUBSTITUTE (CL:ERROR) \RPLCONS (\ADDREF \DELREF CHECK +FREPLACEFIELD \StatsAdd1 DECLARE \PUTBASE .INCREMENT.ALLOCATION.COUNT. RPLACD) \VFMInsert1 ( +\VFMSmartBLT \VFMPutNext \VFMMarkBufferDirty) \FIXDLINES (\TEDIT.FIXDELSEL) GETINTERRUPT (FRPLACD) +MSNEXTWORD (SELECTQ MSSETWORDTYPE) MAKE-UNICODE-TRANSLATION-TABLES (MAPC RPLACD) PPROCREPAINTFN ( +MOVETO DSPFILL PPROC CLEARW) COURIER.WRITE.STRING (PUTWORD \BOUTS) GETFILEINFO (DECLARE) +\FTP.FLUSH.TO.MARK (\OUTCHAR) \CANONICALIZE.NSADDRESS (RPLACD \BLT) \RTP.SOCKET.PROCESS (DECLARE +OBTAIN.MONITORLOCK RESETSAVE PROCESSPROP SPREADAPPLY*) \ENVCALL.UFN (\CONTEXTSWITCH) +SET-CONNECTED-DIRECTORY-INTERACTIVELY (DECLARE CLEARW ALLOW.BUTTON.EVENTS) WTFIXLOADEF (LOAD LOADFNS) +\DOINTERRUPTHERE (DECLARE SETERRORN FLASHWINDOW) ICONW.PRINT-JUSTIFIED (DSPFONT DSPOPERATION +LINELENGTH DSPLEFTMARGIN DSPRIGHTMARGIN DSPFILL MOVETO RELMOVETO \OUTCHAR TERPRI) DOTABS (DOTABS TAB) +\STKSCAN (DECLARE SELECTC) PUTDEFN (\LOCKCELL AOUT BOUTZEROS FILEBLOCKTRAILER) \ILLEGAL.DEVICEOP ( +FRPLACD) CL:NBUTLAST (RPLACD) \LFFileName (RPLCHARCODE) REHASHFILE (SPACES CLOSEHASHFILE) +\MAIKO.IO-INTERRUPT (CL:FUNCALL) TWODINSPECT.COPYBUTTONFN (TOTOPW DECLARE INSPECT.FLIPSELECTION +BKSYSBUF.GENERAL BLOCK) CL:WRITE-LINE (CL:TERPRI) OPT.FRAMEVAR (OPT.PRATTACH OPT.PRDEL RPLACA FRPLACA) + MSPATHSPRINTFN (PRIN1 PRIN2) \READBINARYBITMAP (\BINS) \LFMakeDirHole (UNINTERRUPTABLY \SETFILEPTR +\BOUT FORCEOUTPUT) \UNBOXFLOAT3 (\SLOWRETURN DECLARE \MAKEFREEBLOCK) TEDIT.UNDO (RESETLST +TEDIT.UNDO.MOVE) RESETKEYACTION (DECLARE \ILLEGAL.ARG \BLT) COMP.COND (COMP.STJUMP COMP.STTAG) +\DOHELPINTERRUPT (FLASHWINDOW \DOHELPINTERRUPT1) RESHAPEBYREPAINTFN (WXOFFSET WYOFFSET REDISPLAYW +BITBLT) \PARAS.IN.SEL (\FIXSEL MAPC) CONTROL-T (FLASHWINDOW PRINTOUT printout SELECTQ PRIN2 +\CONTROL-T.PRINTRATIO TERPRI) \MAIKO.CONSOLE-LOG-PRINT (FRESHLINE PRIN1) DINFO.ADD.FMENU ( +REMOVEPROMPTWINDOW ATTACHWINDOW WINDOWDELPROP WINDOWADDPROP) \SELECTPROCESS (FRPLACD NCONC RPLACA +SPAWN.MOUSE) BRKDWNRESULTS1 (RPLACA RPLACD ADD1VAR) PFI.INDEX.BREAK (DRAWLINE) \ELIDE.PRINT.TAIL ( +\OUTCHAR) TTYIN.READ?=ARGS (FREERESOURCE DECLARE) \DOHELPINTERRUPT1 (SPAWN.MOUSE CLEARBUF INTERRUPT) +\HANDLE.NS.ROUTING.INFO (\ADD.ROUTING.TABLE.ENTRY \BLT) \FTP.FLUSH.TO.EOC (\OUTCHAR) \PRINDATUM ( +DECLARE FREERESOURCE) \TEDIT.DELETE (TEDIT.NORMALIZECARET \FIXDLINES \DELETECH TEDIT.UPDATE.SCREEN +\FIXSEL) \PROC.FINDREALFRAME (SELECTQ) PROCESS.STATUS.WINDOW (CLOSEW ADDMENU SHADEITEM) +DINFO.DEFAULT.MENU (CLEARW PROCESSPROP DINFO.ADD.FMENU) \FM.MOMENTARY-SETUP (DECLARE) +\PROCESS.MAKEFRAME (\CONTEXTSWITCH \RUN.PROCESS) MB.NWAYBUTTON.SELFN (BITBLT) UPDATEFILES (/SETTOPVAL +/NCONC1) \WRITEBITMAP (FRPTQ) \SETPRINTLEVEL (DECLARE \BOUT CLEARBUF PRIN3 SELCHARQ PRINTLEVEL +BKSYSBUF) OPT.FRAMEDEL (OPT.PRDEL MAPC) SHADEITEM (\AddShade RESHADEITEM) \NSFILING.GETFILE ( +\ILLEGAL.ARG FREPLACEFIELD \NSRANDOM.RELEASE.LOCK DECLARE RELEASE.MONITORLOCK OBTAIN.MONITORLOCK) +\LFMakeLeaderPage (DECLARE \PFPutPage) CLISPATOMARE2 (DWIMERRORRETURN FRPLACA FRPLACD) \RETURN ( +DECLARE RAID \SMASHLINK) \PFTransferPage (SwapIn&Dirty UNINTERRUPTABLY \MISCAPPLY* \CONTEXTSWITCH +DiskError LISPERROR) \CURVE2 (DECLARE \CURVESTART .SETUP.FOR.\BBTCURVEPT. \INSURETOPWDS \CURVE +.WHILE.TOP.DS. \PUTBASE \SOFTCURSORDOWN \SOFTCURSORUPCURRENT LOADPOLY) \GETCHARCODE (DECLARE) \ARG0 ( +CHECK) FIND.SYMBOL (PRINT CL:FORMAT) CHECK/MENU/IMAGE (\ILLEGAL.ARG UPDATE/MENU/IMAGE UPDATEWFROMIMAGE + DSPXOFFSET DSPYOFFSET) GETDEF (DECLARE SELECTQ DWIMDEF) \LFMakeDirEntry (\SETFILEPTR \LFCheckBang +\LFDirectoryScrambled UNINTERRUPTABLY \LFDWOUT \WOUT DECLARE MAPC FORCEOUTPUT) EDIT4E1 (PRIN2 PRIN1 +PRINT) CLISPATOMIS2 (CLRPLNODE CLISPATOMIS2) \SETRECLAIMMIN (\BOUT CLEARBUF PRIN3 SELCHARQ RECLAIMMIN +BKSYSBUF) PARAMETRICSPLINE (ERROR) ERROR! (SELECTQ \SMASHLINK ABORT) +TWODINSPECT.DEFAULT.VALUECOMMANDFN (SELECTQ INSPECT PROMPTPRINT TWODINSPECT.SETELT) TEDIT.INSERT ( +TEDIT.SETSEL TEDIT.DO.BLUEPENDINGDELETE TEDIT.CARETLOOKS TEDIT.NORMALIZECARET \SHOWSEL DECLARE +SELCHARQ \INSERTCR \INSERTCH \FIXILINES TEDIT.INSERT.UPDATESCREEN) \NSPRINT.FULL.REQUEST.STATUS ( +RESETSAVE) \TEXTCLOSEF-SUBTREE (CLOSEF?) \DRAWPOLYGON.IP (SHOW.IP APPENDOP.IP MOVETO.IP \IMAGEPATH.IP +\SETBRUSH.IP LINETO.IP SETXY.IP) \EP.PUT.AUX (PutUnboxed FREPLACEFIELD RPLACD) PRIN3 (DECLARE +\PRINDATUM) CL::%%SIN-FLOAT (DECLARE) SHIFT.BITMAP.UP (BITBLT) MONITOR.AWAIT.EVENT ( +RELEASE.MONITORLOCK OBTAIN.MONITORLOCK) PRINT-BITMAPS-NICELY (PRINTOUT CL:MACROLET) DEFINEFONT.IP ( +APPENDIDENTIFIER.IP APPENDINTEGER.IP APPENDOP.IP SCALE.IP FSET.IP) \MAIKO.ETHER-INTERRUPT ( +UNINTERRUPTABLY DECLARE OBTAIN.MONITORLOCK \RCLK \MAYBEPRINTPACKET \HANDLE.RAW.PACKET SI::MONITOR-UNWIND +) \CLOSEF.PRESS (\ENDPAGE.PRESS \WOUT \BCPLSOUT.PRESS DECLARE \PARTEND.PRESS COPYBYTES \PAGEPAD.PRESS +\SIGNEDWOUT \FIXPOUT SETFILEPTR) BCOMPL2 (DECLARE SPECVARS LOCALVARS SELECTQ SET COMPEM COMPILE1 +BRECOMPILE1 BLOCKCOMPILE1) \PRINT-USING-ADDRESS (.SPACECHECK. \OUTCHAR \LITPRIN \CKPOSSOUT) +FB.CANONICAL.DIRECTORY (WINDOWPROP) \PROCESS.GO.TO.SLEEP (\ENQUEUE.EVENT/LOCK \ENQUEUE.TIMER +\PROC.RESUME \DECUSECOUNT \RELEASE.PROCESS) DASHES (TERPRI FRPTQ) SPAWN.MOUSE (\SET.PROCESS.NAME +ADD.PROCESS) \FTP.CLEANUP (DECLARE BLOCK MAP.PROCESSES CLOSEBSPSTREAM) +TEDIT.RESET.EXTEND.PENDING.DELETE (\TEDIT.SET.SEL.LOOKS) \MAIKO.10MBTURNONETHER (\MAIKO.ETHERSUSPEND +\BLT \STORENSHOSTNUMBER) \LEAF.REOPENFILE (\LEAF.CLOSEFILE \LEAF.SETCREATIONDATE) DO.INSERT.LINE ( +MOVETO BITBLT BITBLT.ERASE) COMPILER::COMPILE-AND-DUMP-1 (CL:PRINC BLOCK) XCL::%%DEFINE-TYPE-DELDEF ( +/PUTHASH) \DRAWLINE.UFN (DECLARE .DRAWLINEX. .DRAWLINEY.) EDITMOVEREGION (PROMPTPRINT) +WHO-LINE-CURRENT-DIRECTORY (DECLARE MERGEINSERT) COMPILE-IN-CORE (DECLARE SI::RESETUNWIND) +COMPILER::ALPHA-IL-FUNCTION (COMPILER::CHECK-FOR-UNKNOWN-FUNCTION) PUTDEF (SELECTQ FNS.PUTDEF +VARS.PUTDEF FILES.PUTDEF FILEPKGCOMS.PUTDEF EVAL) MSPATHS4 (PUTHASH MAPC) RESET.INTERRUPTS (DECLARE) +DINFO.SHOWGRAPH (SHAPEW) FW-INIT-MENUS (DECLARE MAPC) \MOVETO.IP (SHOW.IP) \PRINTBINARYBITMAP ( +\ILLEGAL.ARG \WOUT DECLARE \BOUTS) ADDMENU (\ILLEGAL.ARG BLTMENUIMAGE MOVEW SHOWSHADEDITEMS OPENW +WINDOWADDPROP EXTENDEXTENT) RIGHTW.BUTTONEVENTFN (TOTOPW GETMOUSESTATE) FIND.PACKAGE (DECLARE SHOULDNT +) \PSWOP.SELECTED (PROCESS.BACKTRACE PROCESS.EVAL PROCESS.APPLY DEL.PROCESS DECLARE BLOCK +PROCESS.STATUS.WINDOW ERROR! RESTART.PROCESS WAKE.PROCESS BREAK.PROCESS \SUSPEND.PROCESS) +FB.EDITCOMMAND (FB.ALLOW.ABORT FB.BROWSECOMMAND FB.EDITCOMMAND.ONEFILE FB.FASTSEECOMMAND) +\GCRECLAIMCELL (CHECK SELECTC \FREELISTCELL \PUTBASEPTR \ADDREF) TWODINSPECT.DEFAULT.TITLECOMMANDFN ( +GETMOUSESTATE SELECTQ TWODINSPECT.REDISPLAY PROMPTPRINT) TWODINSPECT.CLOSEFN (DETACHALLWINDOWS) +\CONTROL-T.PRINTRATIO (TERPRI) \PSW.SELECTED (SHADEITEM) \CREATECHARSET.PRESS (DECLARE ERROR) +\TEDIT.CENTER.SEL.REV (MAPC LISTPUT TEDIT.PARALOOKS TEDIT.PROMPTPRINT) FB.MAKE.BROWSER.BUSY (RESETSAVE + SHADEITEM PUTMENUPROP) COMPILE.FILE.RESET (CLOSE-AND-MAYBE-DELETE CLOSEF? /SETATOMVAL) +SEDIT::TRY-REUSING-BITS (SEDIT::SHIFT-BLOCK) PROCESS.NAME (\SET.PROCESS.NAME) PRESSBITMAP (ERROR +printout PRIN1 \WRITEPRESSBITMAP) FB.GREATEST.PREFIX (SELCHARQ) BRKDWNRESULTS2 (LISPXPRIN2 LISPXTAB +LISPXTERPRI) \RETCALL (\CONTEXTSWITCH) CHANGE-TTY-PROCESS-INTERACTIVELY (DECLARE) TB.RESHAPEFN ( +ALLOW.BUTTON.EVENTS TB.SET.FONT WYOFFSET TB.DISPLAY.LINES) BRKDWNCOMPILE2 (DECLARE SI::RESETUNWIND) +DINFO.SELECT.GRAPH (DECLARE ALLOW.BUTTON.EVENTS) DO?CMD.ERRORHANDLER (SAVE.CURSOR GO.TO.FREELINE +TTPRIN1COMMENT RESTORE.CURSOR BACKWARD.DELETE.TO) MSONPATH (MAPC) \POP.N.UFN (\SLOWRETURN +\MAKEFREEBLOCK) SEDIT::COPY-SELECTION-COMMENT (FRPLACD TERPRI) NCREATE2 (UNINTERRUPTABLY \BLT) +\FTP.RENAMEFILE (CLEAR.LEAF.CACHE \FTP.PRINTPLIST .EOC. \RELEASE.FTPCONNECTION) DINFO.FIND ( +FLASHWINDOW PRINTOUT printout) COERCETOBITMAP (BITBLT TOTOPW) FW-RE-INIT (DECLARE FW-INIT-PROPS +DSPFONT) FW-WIPE (DECLARE MAPC) \NSFILING.GENERATEFILES (RESETLST RPLACA FRPLACD PRINTOUT TERPRI +MAPRINT RESETSAVE) \LEAF.EVENTFN (SELECTQ \FLUSH.OPEN.STREAMS \CLOSELEAFCONNECTION +\SEQUIN.FLUSH.CONNECTION \REMOVEDEVICE CLOSEPUPSOCKET \PAGED.REVALIDATEFILELST) \DRAWCIRCLE.PRESS ( +DRAWCURVE) MASTERSCOPE1 (printout PRIN1 ERSETQ PROMPTCHAR) \BLT (\PUTBASE) CNDIR (DECLARE) +HEADINGOP.IP (APPENDOP.IP SETXY.IP SETFONT.IP PRIN3 SHOW.IP RELMOVETO TERPRI FSET.IP) UNMARKASCHANGED +(/RPLACA /RPLACD) FW-INIT (DECLARE FW-WIPE FW-RE-INIT FW-RESET) MASTERSCOPEXEC (SELECTQ RETFROM +FRPLACA) CLISPCAR/CDR2 (DWIMERRORRETURN) \PUTBASEBYTE (\PUTBASE) OPENRTPSOCKET (\INIT.RTPPROCESS +OBTAIN.MONITORLOCK RESETSAVE ERROR \RTP.ACTION \ILLEGAL.ARG MONITOR.AWAIT.EVENT CLOSERTPSOCKET +\RTP.SHOW.FAILURE) SHIFT.BITMAP.DOWN (BITBLT) \HANDLE.RAW.3TO10 (\MAYBEPRINTPACKET SELECTC \BLT +\NOTE.3TO10 ENCAPSULATE.ETHERPACKET PRINT3TO10 TRANSMIT.ETHERPACKET \RELEASE.ETHERPACKET) +\CLEAR.ROUTING.TABLE (\RPLPTR) COMPILER::COLLECT-CODE (COMPILER::GENCODE) EDITFA (PRIN1 SPACES PRIN2) +ATAN (DECLARE) DIRECTORYNAME (DECLARE) SEDIT::SHIFT-BLOCK (BLTSHADE SEDIT::REPAINT) ADDSPELL1 (FRPLACD + ADD1VAR NCONC1 RPLNODE UNDOSAVE) KEYDOWNP (DECLARE) \BITBLT.IP (\MOVETO.IP SHOWBITMAP.IP) +\PUTBASEPTR.UFN (\PUTBASE) LOOKUP-SYMBOL (DECLARE CL:FORMAT) CL:NUNION (RPLACD) PREEDITFN (CLISPTRAN +MAPC) SPYOBJ.DISPLAY (DSPFONT RELMOVETO) \PUTBITS.UFN (\PUTBASE) XIPAPPEND.STRING (\PUTBASE +FREPLACEFIELD) PROCESS.BACKTRACE (ATTACHWINDOW DSPSCROLL DSPFONT DSPRESET BAKTRACE RELSTK) +CLIPBOARD-COPY-STREAM (\EXTERNALFORMAT) CL:UNION (RPLACD) \TEDIT.COPY.PIECEMAPFN (TEDIT.PROMPTPRINT +RETFROM) TTYINFOSTREAM (DECLARE) UNMAKEHARDCOPYMODESTREAM (DECLARE DSPXPOSITION DSPYPOSITION +DSPRIGHTMARGIN) \ADDBASE (.UNBOX. SELECTC \ILLEGAL.ARG CL::%%NOT-NONCOMPLEX-NUMBER-ERROR) +\UPDATE.PROCESS.WINDOW (PROCESS.STATUS.WINDOW DSPFILL APPLY*) MSPATHS1 (TERPRI PRIN1 DOTABS TAB +SHOULDNT FRPLACA FRPLACD MAP MSPATHS1) CL:NINTERSECTION (RPLACD) LEAF.ASSURE.FINISHED (WITH.MONITOR +DECLARE OBTAIN.MONITORLOCK MONITOR.AWAIT.EVENT SI::MONITOR-UNWIND ERROR) FB.EXPUNGECOMMAND ( +FB.PROMPTWPRINT FB.ALLOW.ABORT MAPC FB.REMOVE.FILE FB.UPDATE.COUNTERS FB.PROMPTW.FORMAT) +\TEDIT.FOREIGN.COPY? (\SETUPGETCH BKSYSBUF COPYINSERT \SHOWSEL) CL::%%PRINT-TIMING-INFO ( +CL::%%PRINT-TIMING-ITEM) \SLOWPLUS2 (\CALLME) \DSPSCALE2.IP (SCALE2.IP) BAKTRACE (BACKTRACE PRIN2 +PRIN1 RELSTK TERPRI) CWINDOWPROP (printout PRIN1) MAKE-VECTOR (FILL-ARRAY) TTY/EDITE (ERROR RESETSAVE +PREEDITFN ERSETQ ERROR! PUTDEF SAVESET /SETPROPLIST PRIN1 ADDSPELL) \SLOWDIFFERENCE (\CALLME) +COMPILE-FILE-EX/IMPORT (PRINT) SEDIT::REUSE-LINEAR-FORM (FREPLACEFIELD) ADDTOVAR (EXEC-FORMAT +MARKASCHANGED SAVESET /SET DECLARE) EDITFERROR (PRINTOUT PRIN1 EDITDEF ERROR PUTDEF) +CREATETEXTUREFROMBITMAP (\ILLEGAL.ARG BITBLT) \SLOWTIMES2 (\CALLME) EDITDEF.FNS (EDITE CL:FORMAT ERROR +) UNION (DECLARE RPLACD) HASHFILESPLST1 (DECLARE) CL:NSET-EXCLUSIVE-OR (RPLACD) CL:NSET-DIFFERENCE ( +RPLACD) \SLOWQUOTIENT (\CALLME) \CHARWIDTH.PRESS (DECLARE) /DREMOVE (/RPLNODE /RPLACD) +RESHAPEALLWINDOWS (\ALLOCMINIMUMSIZES MAPC \ALLOCSPACETOGROUPEDWINDOWS) EDITF2 (FIXEDITDATE APPLY* +MARKASCHANGED) \SLOWIPLUS2 (\CALLME .UNBOX. SELECTC CL::%%NOT-NONCOMPLEX-NUMBER-ERROR) +DINFO.HISTORIC.UPDATE (FLASHWINDOW DECLARE TERPRI) SCRATCHCONS (FRPLACD) GETPROMPTWINDOW (\ILLEGAL.ARG + REATTACHPROMPTWINDOW \PROMPTWINDOW.EXPAND DSPSCROLL \PROMPTWINDOW.SET.HEIGHT OPENW) \FM.ENDEDIT ( +\CARET.DOWN SETUPTIMER) \SLOWIDIFFERENCE (\CALLME .UNBOX. SELECTC CL::%%NOT-NONCOMPLEX-NUMBER-ERROR +.NEGATE.) ATTACHEDWINDOWS (DECLARE FRPLACD) MARKASCHANGED (MAPC /RPLACA DELFROMFILES UNDOSAVE) +\DUMP.COURIERPROGRAMS (TERPRI printout PRIN1 SPACES CHANGEFONT MAP TAB CL:FORMAT) COMP.PUNT (COMPERROR +) \SLOWITIMES2 (\CALLME .UNBOX. SELECTC CL::%%NOT-NONCOMPLEX-NUMBER-ERROR .NEGATE. .LLSH1.) +OLD.FIND.SYMBOL (COMPUTE.ATOM.HASH) MB.NB.SIZEFN (FRPLACD) GETDEF.I.S.OPR (SHOULDNT) +SEDIT::COMPUTE-SELECTION-POSITION-COMMENT (SEDIT::MAP-COMMENT-INDEX) \SLOWIQUOTIENT (\CALLME \IQUOTREM + .UNBOX. SELECTC CL::%%NOT-NONCOMPLEX-NUMBER-ERROR .NEGATE. .LLSH1. .LRSH1. SELECTQ ERROR) MSPATHS2 ( +UPDATEFN) SHIFT.BITMAP.RIGHT (BITBLT) BRKDWN1 (BRKDWNCOMPILE2 MAPC SETA RPLACD RPLACA) DOWINDOWCOM ( +\CHECKCARET TOTOPW) TEDIT.DELETE (TEDIT.SETSEL \TEDIT.DELETE) EDITDEF (DECLARE EDITDEF.FNS +DEFAULT.EDITDEF) FB.MAYBE.EXPUNGE (FB.PROMPTWPRINT) IREMAINDER (\IQUOTREM .UNBOX. SELECTC +CL::%%NOT-NONCOMPLEX-NUMBER-ERROR .NEGATE. .LLSH1. .LRSH1. SELECTQ ERROR) BCOMPL1A (SELECTQ BCOMPL1A +CL:FORMAT) HOSTNAMEP (DECLARE) DUMPI.S.OPRS (LISPXPRINT) EDITF1 (PRIN1) EDITF (PRIN1) MOUSECONFIRM ( +DECLARE FRESHLINE printout SPACES GETMOUSESTATE CLOSEW CLEARW) XIPAPPEND.WORD (ERROR \PUTBASE) +FW-RESET (DECLARE) \DSPTRANSLATE.IP (TRANSLATE.IP) APPENDTOVAR (MAPC EXEC-FORMAT MARKASCHANGED SAVESET + /SET DECLARE) DECODE-NS-STRING (\PUTBASE) PRINTROUTINGTABLE (SELECTQ \CHECK.ROUTING.TABLE PRIN1 +FLUSHRIGHT TAB MAPC SPACES \NSADDRESS.PRINT.DECIMAL PRIN3) \SLOWLLSH1 (.UNBOX. SELECTC \ILLEGAL.ARG +CL::%%NOT-NONCOMPLEX-NUMBER-ERROR) DIRECTORY (DECLARE SELECTQ RPLACD RPLACA RPLNODE ERROR FRPLNODE2 +RESETLST TERPRI PRIN1 DODIRCOMMANDS) \FM.CHANGELABEL (ERROR DECLARE LISTPUT) CL::%%SQRT-COMPLEX ( +DECLARE) UNSAVEBLOCK? (MAPRINT) RECORDACCESS (DECLARE UNCLISPTRAN) \SLOWLLSH8 (.UNBOX. SELECTC +\ILLEGAL.ARG CL::%%NOT-NONCOMPLEX-NUMBER-ERROR) \SPP.HANDLE.INPUT (SELECTC \RELEASE.ETHERPACKET APPLY* + \SPPSENDERROR \SPP.ESTABLISH \SPP.RELEASE.ACKED.PACKETS NOTIFY.EVENT RELEASE.XIP \SPP.HANDLE.DATA +\SPP.HANDLE.ATTN) DREAD (TAB PRIN1 SELECTQ) COMP.AC (COMP.PUNT) \SLOWLRSH1 (.UNBOX. SELECTC +\ILLEGAL.ARG CL::%%NOT-NONCOMPLEX-NUMBER-ERROR) UNPACKFILENAME.STRING (\ILLEGAL.ARG UNPACKFILE1 +DECLARE UNPACKFILE1.DIRECTORY \PUTBASETHIN \PUTBASEFAT) MENUWINDOW (ERROR UPDATE/MENU/IMAGE WINDOWPROP + WINDOWADDPROP) SEDIT::SELECT-NODE (SEDIT::SET-SELECTION-ME) MSNEEDUNSAVE (MSMARKCHANGE1 FRPLACD +printout PRIN1 PRINTPARA) EDITDEFAULT1 (PRIN1 PRIN2 SPACES TERPRI) CLISPATOM2D (CLRPLNODE CLISPTRAN +FRPLACA) \SLOWLRSH8 (.UNBOX. SELECTC \ILLEGAL.ARG CL::%%NOT-NONCOMPLEX-NUMBER-ERROR) SAVESET ( +LISPERROR /PUT ADDSPELL EXEC-FORMAT MARKASCHANGED SET RELSTK UNDOSAVE SETTOPVAL SETATOMVAL) +LDIFFERENCE (FRPLACD) EDITH (HISTORYSAVE LISPXWATCH NCONC MAPC PRIN1 RESETLST DECLARE SI::RESETUNWIND +EDITSAVE EDITCOM) \VFMKillBuffer (RPLACD) \SLOWLOGOR2 (\CALLME .UNBOX. SELECTC +CL::%%NOT-NONCOMPLEX-NUMBER-ERROR) PRINTBINDINGS (printout PRIN1 PRIN2 SHOWPRINT RELSTK) +SEDIT::CLOSE-NODE-COMMENT (SEDIT::UNDO-BY RPLACA) SEDIT::UNDO (SEDIT::CLOSE-OPEN-NODE +SEDIT::SET-SELECTION-NOWHERE SEDIT::SET-POINT-NOWHERE SEDIT::UNDO-EVENT printout TERPRI) +PUPNET.DISTANCE (BLOCK) EDIT* (EDUP EDITCOM ERROR!) ADD/AND/DISPLAY/LINK (printout PRIN1 GRAPHADDLINK +DISPLAYLINK) \SLOWLOGAND2 (\CALLME .UNBOX. SELECTC CL::%%NOT-NONCOMPLEX-NUMBER-ERROR) +\LEAF.DIRECTORYNAMEP (FREPLACEFIELD) SEDIT::RECOMPUTE-FORMAT-VALUES (MAPC SEDIT::RECOMPUTE-FORMAT-VALUES + CL:FUNCALL) \BSP.PREPARE.INPUT (DECLARE OBTAIN.MONITORLOCK BLOCK MONITOR.AWAIT.EVENT +\BSP.CLEANUP.INPUT SI::MONITOR-UNWIND) BMOBJ.DISPLAYFN (DECLARE RELMOVETO SELECTQ BITBLT SCALEDBITBLT) + EDITDEFAULT (DECLARE ERROR! EDITSAVE1 EDITDEFAULT1 GNC FRPLACA EDITSAVE) \SLOWLOGXOR2 (\CALLME +.UNBOX. SELECTC CL::%%NOT-NONCOMPLEX-NUMBER-ERROR) SHIFT.BITMAP.LEFT (BITBLT) CL:ADJUST-ARRAY ( +%%ALTER-AS-DISPLACED-ARRAY %%ALTER-AS-DISPLACED-TO-BASE-ARRAY SET-FILL-POINTER +%%ARRAY-CONTENT-INITIALIZE %%ARRAY-ELEMENT-INITIALIZE %%COPY-TO-NEW-ARRAY %%EXTEND-ARRAY) +\SMASHBSPSTREAM (UNINTERRUPTABLY) \FM.HIGHLIGHTITEM (BLTSHADE) CL::%%SQRT-FLOAT (DECLARE +CL::%%FLOAT-UNBOX) EDLOC (EDITCOM ERROR!) FB.FINISH.COMMAND (DETACHWINDOW SHADEITEM CLOSEW PUTMENUPROP +) LSH (FRPTQ) \SPP.INFO.HOOK (DECLARE DSPFONT CLEARW PPSPP) BOUT (\ILLEGAL.ARG) \BSP.CLEANUP.INPUT ( +\BSPINCFILEPTR RELEASE.PUP FREPLACEFIELD \SEND.ACK) DEFINE (ERROR) EDOR (ERROR! EDITCOMS) +MB.NB.WHENOPERATEDFN (MB.SELFN) \SLOWFPLUS2 (\CALLME) SYMBOL.PNAME (ALLOCAL) TTYIN.PRINTARGS ( +\CARET.DOWN TTPRIN1 TTPRIN2 TTCRLF TTPRINSPACE) CL::TYPE-EXPANDER (XCL:COMPILE-FORM CL:EVAL) +DWIM-SYMBOL-PACKAGE (FRPLACD) EDITRAN (ERROR! EDITSMASH) ADDTOCOMS (SELECTQ) \SLOWFDIFFERENCE (\CALLME +) \VFMGet (DECLARE DiskError LISPERROR MESASETQ \VFMFind) %%EXTEND-ARRAY (UNINTERRUPTABLY) +FUNCTIONSMSMC (CHANGEMACRO) \FM.EDIT-UPDATEAFTERDELETE (\CARET.DOWN BLTSHADE) FB.MAYBE.INSERT.FILE ( +RPLACA FB.INSERT.FILE) EDITTO (EDLOC EDUP EDIT.BI EDIT.RI EDITCOM) PUTHASHFILE (LOOKUPHASHFILE) +\SLOWFTIMES2 (\CALLME) \DEFAULTSTATE.IP (SCALE.IP) \NSPRINT.WATCHDOG (BLOCK MAP) REMWINDOWPROP ( +LISPERROR RPLACD FRPLNODE2) SEDIT::GET-USER-STRING (TERPRI) \INIT.KEYBOARD.STREAM (DECLARE +\DEFINEDEVICE) \LEAF.FORCEOUTPUT (\PAGED.FORCEOUTPUT) \SLOWFQUOTIENT (\CALLME) COMPILE.FILE.DEFINEQ ( +COMPILE.CHECK.ARGTYPE BYTECOMPILE2) COPYBYTES (\SETFILEPTR ERROR \BUFFERED.COPYBYTES FRPTQ) +SEDIT::PAINT-TO-END-OF-LINE (BLTSHADE) CHANGEPROP (FRPLACA) EDITCOM (SELECTQ PRIN1 BPNT0 APPLY TERPRI +EDITRACEFN EDITBF EDITQF EDITCOMA EDITCOML EDITDEFAULT) FIND.START.OF.WORD (DECLARE CHECK) +\UNBOXFLOAT2 (\SLOWRETURN DECLARE \MAKEFREEBLOCK) EDITELT (EDLOC) %%ALTER-AS-DISPLACED-TO-BASE-ARRAY ( +UNINTERRUPTABLY) CREATEMENUEDWINDOW (SELECTQ PROMPTPRINT CLRPROMPT ATTACHWINDOW OPENW) DEFAULT.EDITDEF + (DECLARE) UNSAVEFNS (VIRGINFN SAVEDEF SELECTQ DECLARE MARKASCHANGED SI::RESETUNWIND /SETATOMVAL +PRINTOUT PRIN1 UNSAVEDEF LOADDEF) EDRPT (PRIN1 DECLARE EDITCOMS SI::RESETUNWIND) CLISPCAR/CDR1 ( +CLISPCAR/CDR2) \UNBOXFLOAT1 (\SLOWRETURN DECLARE \MAKEFREEBLOCK) \SCALEDBITBLT.PRESS ( +\WRITEPRESSBITMAP) \BUFFERED.COPYBYTES (\BOUTS) WRITE-UNICODE-INCLUDED (FRPLACD) INSPECT/AS/RECORD ( +FRPLACD) SEDIT::COMPUTE-POINT-POSITION-COMMENT (SEDIT::MAP-COMMENT-INDEX) EDUP (ERROR! PRIN2 PRIN1) +\NSFILING.PARSE.FILENAME (CL:MULTIPLE-VALUE-SETQ) \POPSTATE.IP (SHOW.IP POP-IP-STACK FGET.IP) DEFLIST +(PUTPROP) CURSOR.INIT (\LOCKCELL) ONEDINSPECT.REPAINTFN (WITH-INSPECTOR-ENV ONEDINSPECT.PRINTELEMENT +INSPECT.INVERTSELECTION) DSUBST (FRPLACA DSUBST FRPLACD) BRKDWNSETUP (PUTD BRKDWNCOMPILE2 NCONC1 +RPLACD) \LEAF.FLUSH.CACHE (DECLARE OBTAIN.MONITORLOCK \LEAF.CLOSEFILE SI::MONITOR-UNWIND) ARCTAN ( +DECLARE) EDIT!UNDO (LISPXWATCH SELECTQ UNDOEDITCOM PRIN1) ATTACHWINDOW (ERROR SELECTQ \ILLEGAL.ARG +MAKEMAINWINDOW WINDOWADDPROP WINDOWPROP MOVEATTACHEDWINDOWTOPLACE OPENW) \SLOWIGREATERP (\CALLME +.UNBOX. SELECTC CL::%%NOT-NONCOMPLEX-NUMBER-ERROR) \COURIER.PUTDEF (MARKASCHANGED EXEC-FORMAT /PUTHASH +) \GETSTREAM (DECLARE \CREATE.TTYDISPLAYSTREAM) ATTACHMENU (ATTACHWINDOW OPENW) CHANGERECORD (MAPC) +EDITCOMA (FRPLACA REMPROP NCONC LISPXPUT ERROR RELSTK LISPXWATCH DECLARE PRINTDEF EDITSAVE1 EDITCOM) +CLISPATOM2C (/RPLNODE) \SLOWFGREATERP (.FLOATUNBOX. SELECTC .NEGATE. .LLSH8. .LLSH1. .LRSH8.) +\DSPXPOSITION.PRESS (SHOW.PRESS SETX.PRESS) COPYCHARS (ERROR LISPERROR \SETFILEPTR \OUTCHAR SELECTC +FRPTQ SHOULDNT DECLARE) \MAIKO.10MBWATCHER (PROMPTPRINT UNINTERRUPTABLY \HANDLE.RAW.PACKET BLOCK) +FB.PRINTFN (PRIN3 \OUTCHAR TB.CLEAR.LINE) EDITCOML (EDIT2F EDITCONT PRINT LISPXWATCH RPLACD NCONC1 +RPLACA) \RTP.HANDLE.INPUT (\RTP.HANDLE.PUP MONITOR.AWAIT.EVENT) \LEAF.BREAKCONNECTION (MAPC) \INCHAR ( +DECLARE) EDITCOM1 (MAPC) SIGNAL (RAISE-SIGNAL) BRKDWNFORM (MAPC HELP TCONC ADD1VAR) +\SPP.RETRANSMIT.NEXT (CHECK \SPP.SENDPKT) WRITE-UNICODE-MAPPING-FILENAME (NCONC1) INTERSECTION ( +DECLARE TCONC) PUTCURSORPROP (LISTPUT FRPLACD) \BOXIPLUS (.UNBOX. SELECTC \ILLEGAL.ARG +CL::%%NOT-NONCOMPLEX-NUMBER-ERROR \PUTBASE) EDITSAVE (NCONC1) GETHASHKEY (SETFILEPTR) SHOWSHADE.IP ( +SHOW.IP SETCOLOR.IP APPENDINTEGER.IP) UNDOEDITCOM (ERROR! UNDOEDITCOM1 EDITSMASH) \BOXIDIFFERENCE ( +.UNBOX. SELECTC \ILLEGAL.ARG CL::%%NOT-NONCOMPLEX-NUMBER-ERROR .NEGATE. \PUTBASE) XIPAPPEND.BYTE ( +FREPLACEFIELD \PUTBASEBYTE) MBUTTON.FIND.NEXT.FIELD (\FIXSEL) PERIODICALLY-UPDATE-WHO-LINE (DECLARE) +TEDIT.PROMPTPRINT (CLEARW FRESHLINE printout) UNDOEDITCOM1 (EDITSMASH) \HCPYMODEDSPPRINTCHAR ( +\CHECKCARET CHECK \HCPYMODEBLTCHAR \DSPPRINTCR/LF DSPBACKUP) LISTPUT1 (FRPLACA FRPLACD) \COPYOPENFILE +(RESETSAVE COPYCHARS COPYBYTES \UFStoOtherCopyMess) SEDIT::UNDO-LIST-REPLACE (SHOULDNT SEDIT::REPLACE-LIST +) EDITSMASH1 (PUTHASH) SEDIT::NORMALIZE-SELECTION (SEDIT::COMPUTE-SELECTION-POSITION) OPENSTREAM ( +\DO.PARAMS.AT.OPEN \CLOSEFILE LISPERROR \ADDOFD) OPT.FRAMEOPT (MAPC) \MAIKO.10MBSENDPACKET ( +\MAYBEPRINTPACKET DECLARE \BLT \HANDLE.RAW.PACKET UNINTERRUPTABLY) EDITNCONC (EDITSMASH MAPC) +ONEDINSPECT.BUTTONEVENTFN (TOTOPW GETMOUSESTATE) PFI.SORT.INDICES (FRPLACD) +\TFBRAVO.PARSE.PROFILE.VALUE (RPLNODE2) EDITSAVE1 (FRPLACA NCONC1) \CURVEEND (\CURVESMOOTH DECLARE +APPLY* .WHILE.TOP.DS. \PUTBASE \SOFTCURSORDOWN \INSURETOPWDS \CURVEPT \SOFTCURSORUPCURRENT) +%%ALTER-AS-DISPLACED-ARRAY (UNINTERRUPTABLY) COMPILE.CHECK.ARGTYPE (PRINTOUT) SEDIT::OUTPUT-STRING ( +SEDIT::SET-LINEAR DECLARE SEDIT::STEP-LINEAR TEDIT.INSERT) FIXPRINTIN (LISPXSPACES LISPXPRIN1 +LISPXPRIN2) EDITSMASH (ERROR! APPLY* FRPLACA LISPXWATCH FRPLACD /RPLNODE /RPLACA /PUTHASH) CLOSEF ( +MAPC \CLEAROFD \DELETEOFD \CLOSEFILE) \TEDIT.WINDOW.OPS (GETMOUSESTATE BLOCK CURSOR SELECTQ +\TEDIT.SPLITW \TEDIT.UNSPLITW TEDIT.PROMPTPRINT SHOULDNT) \PFFindPageAddr (DiskError LISPERROR) EDIT2F + (ERROR! EDITSMASH MAPC) TCONC (DECLARE FRPLACA) PROGN (DECLARE) FUNCTIONSMSGETDEF (SETTEMPLATE) LCONC + (DECLARE ERROR) EDIT4F1 (PRIN1 TCONC) SEDIT::UNDO-REPLACE-QUOTE (SEDIT::REPLACE-QUOTE) +\MAP.ROUTING.TABLE (\CHECK.ROUTING.TABLE MAPC) IDLE.BITMAP (TOTOPW BITBLT DSPFONT MOVETO PRIN3) +\FM.DISPLAYITEM (BLTSHADE) CL::%%LOG-FLOAT (DECLARE CL::%%FLOAT-UNBOX) \MAIKO.INPUT.INTERRUPT (\RCLK +\MAYBEPRINTPACKET) XIPAPPEND.CELL (ERROR \PUTBASE) DIRFILENAME (DECLARE) SEDIT::VERIFY-STRUCTURE ( +DECLARE OBTAIN.MONITORLOCK SEDIT::CLOSE-OPEN-NODE SEDIT::PARSE SEDIT::COMPUTE-ALL-FORMATS +SEDIT::SELECTION-DOWN SEDIT::RELINEARIZE SEDIT::SET-SELECTION-NOWHERE SEDIT::SET-POINT-NOWHERE +SEDIT::UPDATE REDISPLAYW SI::MONITOR-UNWIND) FB.REMOVE.FILE (TB.REMOVE.ITEM DECLARE) COMP.BOOL ( +COMP.STTAG) ONEDINSPECT.COPYBUTTONFN (TOTOPW DECLARE INSPECT.FLIPSELECTION BKSYSBUF.GENERAL BLOCK) +\TEDIT.BOLD.CARET.ON (TEDIT.CARETLOOKS \TEDIT.SHOWCARETLOOKS) FW-FORGET-CMD (DECLARE FRPLACD +PROMPTPRINT) TWODINSPECT.SETELT (WITH-INSPECTOR-ENV REMOVEPROMPTWINDOW TWODINSPECT.REPLACE) DEBUGGER ( +OUTPUT INPUT SETTERMTABLE RESETLST) ARGTYPE.STATE (PRIN1 SPACES) COMPILER::ALPHA-COMPILER-LET (MAPC) +SEDIT::OUTPUT-SPACE (RPLACA SEDIT::SET-LINEAR DECLARE SEDIT::STEP-LINEAR TEDIT.INSERT) DPRIN1 (DTAB) +EDITBELOW (EDITCOM ERROR! FRPLACD) LISTFILES (DECLARE printout PRIN1 FRPLACD) MAPCON (FRPLACD) +GET-TWOD-DISPLAYW (WINDOWPROP DSPRIGHTMARGIN DSPFONT) BMOBJ.IMAGEBOXFN (DECLARE) EDIT4F2 (PRIN2 PRIN1 +PRINT EDITSMASH EDITSMASH1) ADD-EXEC (TTY.PROCESS) %%DO-LOGICAL-OP (\PILOTBITBLT) TEDIT.PUT.PCTB ( +TEDIT.PUT.PAGEFRAMES \TEDIT.FLUSH.UNUSED.LOOKS \TEDIT.PUT.CHARLOOKS \TEDIT.PUT.PARALOOKS \DWOUT +\SMALLPOUT PRIN1 CHARSET \TEDIT.PUT.SINGLE.CHARLOOKS BOUT COPYBYTES DECLARE \OUTCHAR MAPC COPYCHARS +CLOSEF) FB.COPY/RENAME.MANY (FB.PROMPTWPRINT DECLARE SORT MAPC) TEDIT.DO.BLUEPENDINGDELETE (\SHOWSEL +\DELETECH \FIXDLINES TEDIT.RESET.EXTEND.PENDING.DELETE \FIXSEL) \HDCPYDISPLAYINIT (DECLARE) BPNT ( +ERROR!) MAPCONC (FRPLACD) BRKDWNFBOXES (DECLARE BRKDWNINCA BRKDWNSETA BRKDWNADDTOA SUB1VAR) SEDIT::UPDATE + (SEDIT::RELINEARIZE CL:FORMAT SEDIT::RELINEARIZE-WHERE-NECESSARY SEDIT::CHECK-SELECTION +SEDIT::COMPUTE-SELECTION-POSITION SEDIT::SELECTION-UP SEDIT::UPDATE-TITLE) MSPATHS (PRINTOUT PRIN1 +MAPC TAB DECLARE DASHES MSPATHS1 SI::RESETUNWIND CLRHASH) CURSORCREATE (\ILLEGAL.ARG) EDIT.RI (ERROR! +MAPC EDITSMASH) COPYDEF (SELECTQ MAPC SAVESET DSUBST PUTDEF) \UFStoOtherCopyMess (DECLARE) +TEDIT.SUBLOOKS (\SHOWSEL \TEDIT.MARK.LINES.DIRTY TEDIT.UPDATE.SCREEN \FIXSEL) CHANGEVAR (DECLARE) +EDITBF1 (PRIN1) CLISPBROADSCOPE (CLISPBROADSCOPE1 CLRPLNODE) NLEFT (SUB1VAR) \BITBLT.PRESS ( +\WRITEPRESSBITMAP) STKPOS (RELSTK) MAKEFILE1 (/SETTOPVAL LISPXPRIN1 LISPXPRINT LISPXUNREAD) +\VFMReadNext (DiskError LISPERROR MESASETQ) \CURSORUP (\CURSORBITSPERPIXEL \HARDCURSORUP \SOFTCURSORUP +) \COMPUTE.ARC.POINTS (FRPLACD) SET-READTABLE-INTERACTIVELY (DECLARE MAPHASH) \INFER.FILE.TYPE ( +SETFILEPTR) FB.OPERATE.ON.FILES (SELECTQ EXEC-EVAL) \LFDirectoryScrambled (printout TERPRI LISPERROR) +EDIT.LO (ERROR! EDITSMASH) TEDIT.UNDO.PARALOOKS (\TEDIT.MARK.LINES.DIRTY TEDIT.UPDATE.SCREEN +\TEDIT.SET.SEL.LOOKS \FIXSEL \SHOWSEL) PRINTCONSTANT (PRIN2) \VFMGetBufferFor (\PFGetFileMapPage +RPLACD \VFMSaveBuffer) EDIT.BI (EDITSMASH EDITSMASH1 ERROR!) COMP.EVQ (DECLARE SI::RESETUNWIND) +\TEDIT.FLUSH.UNUSED.LOOKS (MAPC FRPLACD) GET-CORNERW (DSPFONT) EDIT.RO (ERROR! EDITSMASH) \TAN-FLOAT ( +DECLARE) TEDIT.LOOKS (\TEDIT.HISTORYADD) TRANSLATE.IP (APPENDNUMBER.IP) EDIT.LI (ERROR! EDITSMASH) +\LOCATE.PUPNET (HELP ASSURE.PUP.READY \RPLPTR WAKE.PROCESS BLOCK) READVISE1 (SI::ADD-OLD-STYLE-ADVICE +REMPROP) SETFILEPTR (FDEVOP) SEDIT::SUBNODE-CHANGED-LIST (RPLACD RPLACA) SEDIT::BACKSPACE-COMMENT ( +SEDIT::CLOSE-OPEN-NODE SEDIT::DEGRADE-COMMENT SEDIT::DELETE-NODES SEDIT::DELETE-COMMENT) PUTASSOC ( +DECLARE FRPLACD) LISPXFIND0 (SELECTQ ERROR) \RTP.ACTION (\RTP.ERROR \SEND.RFC \SEND.ABORT \SEND.END +\SEND.ENDREPLY \BLT \SEND.ANSWERING.RFC ERROR NOTIFY.EVENT SETUPTIMER) \SETUPGETCH (ERROR +\TEDIT.TEXTBIN.STRINGSETUP \TEDIT.TEXTBIN.FILESETUP \SETUPGETCH) EXEC-EVAL (DECLARE) +ONEDINSPECT.CLOSEFN (DETACHALLWINDOWS) EOFP (DECLARE) \TELERAIDBREAK (\TELEBLTCURSOR FLIPCURSOR +DECLARE) PFI.COMPUTE.INDEX.SHAPE (RPLACD) \CURSORPOSITION (DECLARE \SETMOUSEXY SELECTC +\DoveMisc.SetMousePosition \SOFTCURSORPOSITION \DoveDisplay.SetCursorPosition) \SPP.NOT.RESPONDING ( +\SPP.PROBE TERPRI) SEDIT::OUTPUT-BITMAP (SEDIT::STEP-LINEAR) HRULE.DISPLAYFN (SELECTQ BITBLT DRAWLINE) + CONVERT-AFM-FILES (PSCFONT.WRITEFONT) WRITE-UNICODE-MAPPING (FRPLACD PRINTOUT CL:MULTIPLE-VALUE-SETQ) + RESETOPENFILES (RESETSAVE FRPLACD) \PUTBASEFIXP.UFN (.XUNBOX. \PUTBASE) CLIPBOARD-PASTE-STREAM ( +\EXTERNALFORMAT SETFILEINFO) BREAK-FUNCTION (XCL:UNBREAK-FUNCTION PUTD XCL:UNADVISE-FUNCTION +SI::CHANGE-CALLS) CHAT.BIN (FORCEOUTPUT \TTYBACKGROUND) RPT (DECLARE) \VECFONTINIT (DECLARE \RPLPTR +FRPLACD) \FLUSH.OPEN.STREAMS (FDEVOP) SEDIT::UNDO-EVENT (SEDIT::START-UNDO-BLOCK MAPC) +EDIT.BITMAP.REAL (CLEARW printout TERPRI) EDIT.BO (ERROR! EDITSMASH) FRPTQ (DECLARE) OPT.CODELEV ( +OPT.CCHECK) COMP.CPI1 (COMP.EFFECT COMP.VAL COMP.STSETQ) PRETTYFILEINDEX (RESETSAVE +CL:MULTIPLE-VALUE-SETQ PRINTDEF PFCOPYBYTES PRINT-READER-ENVIRONMENT COPYBYTES PFI.SETUP.TRANSLATIONS +STREAMPROP) \DSPYPOSITION.PRESS (SHOW.PRESS SETY.PRESS) RPTQ (DECLARE) MSSPLST (MAPHASH) TAN (DECLARE) + CURSORPOSITION (\CURSORPOSITION CURSORSCREEN \ILLEGAL.ARG) ONEDINSPECT.DEFAULT.VALUECOMMANDFN ( +SELECTQ INSPECT PROMPTPRINT ONEDINSPECT.SETELT) \FM.EDIT-MOVECARET (\CARET.DOWN) \RSH (.UNBOX. SELECTC + CL::%%NOT-NONCOMPLEX-NUMBER-ERROR FRPTQ) GETLOCALDEC (SELECTQ) CURSORSCREEN (\CURSORDOWN +\CURSORDESTINATION \CURSORUP \CURSORPOSITION) SAVEDEF1 (PUTPROP) \TEDIT.CENTER.SEL (MAPC LISTPUT +TEDIT.PARALOOKS TEDIT.PROMPTPRINT) FROM.SCREEN.BITMAP (printout TERPRI BITBLT) TWODINSPECT.RESHAPEFN ( +CLEARW TWODINSPECT.MAKEREGIONS TWODINSPECT.ADJUSTSELECTION TWODINSPECT.REPAINTFN) COPYATOM (ALLOCAL +MKI.DSET \PUTBASEBYTE DECLARE) MAKEHARDCOPYMODESTREAM (DECLARE SELECTQ STREAMPROP DSPXPOSITION +DSPYPOSITION DSPSPACEFACTOR) \CHTOPCNO (DECLARE) CLOSERTPSOCKET (WITH.MONITOR DECLARE +OBTAIN.MONITORLOCK MONITOR.AWAIT.EVENT SI::MONITOR-UNWIND DEL.PROCESS) \MAIKO.10MBSTARTDRIVER (ERROR +\10MB.TURNONETHER \MAIKO.ETHER-INTERRUPT) TEDIT.OBJECT.CHANGED (HELP \TEDIT.MARK.LINES.DIRTY \SHOWSEL +TEDIT.UPDATE.SCREEN \FIXSEL) %%FAST-COPY-BASE (UNINTERRUPTABLY) EDITGETD (DWIMIFY) \FILLINXIP ( +\CLEARXIPHEADER) COPY-ARRAY (%%FAST-COPY-BASE) \TEDIT.INSERT.PIECES (SETFILEPTR COPYCHARS \INSERTPIECE + APPLY* \TEDIT.DIFFUSE.PARALOOKS) BCOMPL.BODY (DECLARE COMPSET MAPC) CL::STEP-FORM ( +CL::STEP-PRINT-VALUES) SELECT1 (DECLARE) \CHANGECHARSET.HDCPYDISPLAY (\CHANGECHARSET.DISPLAY +\FSETWIDTH) SORT.PUPHOSTS.BY.DISTANCE (MAPC BLOCK) \TEDIT.BOLD.SEL.ON (\TEDIT.BOLD.CARET.ON) +\LEAF.LOOKUPCACHE (RPLACD) SELECT (DECLARE) CLISPIFYFNS (PRIN2 PRIN1) COPY-VECTOR (CL:ERROR +%%MAKE-ARRAY-WRITEABLE %%FAST-COPY-BASE) SELECTC (DECLARE) CLISPATOM2A (CLRPLNODE) TEDIT.UNDO.LOOKS ( +\TEDIT.MARK.LINES.DIRTY TEDIT.UPDATE.SCREEN \TEDIT.SET.SEL.LOOKS \FIXSEL \SHOWSEL) FIND.LINE (DECLARE +SHOULDNT) CURSOREXIT (DECLARE CURSORSCREEN) \ROUTE.PUP (ENCAPSULATE.ETHERPACKET) \SETCLOSEDFILELENGTH +(\SETEOFPTR \CLOSEFILE) \NSRANDOM.CREATE.STREAM (RESETSAVE \NSRANDOM.STREAM.CHANGED) SETTERMCHARS ( +/SETSYNTAX) FB.GET.NEW.FILE.SPEC (FB.PROMPTWPRINT) CONTINUEDIT (RESETLST LOADFROM) +WRITE-UNICODE-MAPPING-HEADER (MAPC) DINFO (OPENW RESETSAVE OBTAIN.MONITORLOCK DINFO.SETUP.WINDOW +DINFO.UPDATE) \FM.PUTITEMPROP (LISTPUT) /ECHOCONTROL (UNDOSAVE) COMPILEMODE (MAPC) STRMEMB (DECLARE) +LISPXSTATE (ERROR MAPC /PUT) BOUT16 (BOUT) SET-PACKAGE-INTERACTIVELY (FRPLACD) \TEDIT.CLOSEUPLINES ( +BITBLT \DISPLAYLINE) /SETSYNTAX (SELECTQ UNDOSAVE) \PFRemoveDirectoryID (\PFPurgeRootDirectory +\PFRemoveRootDirEntry \PFPutRootDirectory) SUBSET (DECLARE) \PUSHSTATE.IP (GETCP.IP FSET.IP SHOW.IP +PUSH-IP-STACK) \RTP.SHOW.FAILURE (printout TERPRI) \TFBRAVO.PARSE.PROFILE.PARA (DECLARE%: SELECTQ +\TFBRAVO.ASSERT) ANALYZE-REST (ANALYZE-PARAMETER CL:ERROR) \SIN-FLOAT (DECLARE) FW-CREATE-OFD-WINDOWS +(DECLARE FW-ADJUST-REGION DSPFONT) OPT.RETMERGE (SELECTQ OPT.SETDEFREFS FRPLACA DREMOVE NCONC1 +OPT.COMPILERERROR RPLACA OPT.PRDEL OPT.UBDEL) CHARLOOKS.FROM.FONT (\ILLEGAL.ARG SELECTQ) TEDIT.SCANSEL + (\SETUPGETCH) \ROUTE.XIP (DECLARE ENCAPSULATE.ETHERPACKET) TOPW.RESHAPEFN (CLEARW +TOPW.ADJUSTSELECTION) \OPENLEAFCONNECTION (DECLARE OBTAIN.MONITORLOCK INITSEQUIN RESETSAVE \CLEARBYTES + \ADDLEAFSTRING PUTSEQUIN AWAIT.EVENT RELEASE.PUP \SEQUIN.CLOSE SI::MONITOR-UNWIND) SEDIT:RESET ( +SEDIT::CREATE-ENVIRONMENTS SEDIT:RESET-FORMATS) FILL-ARRAY (%%MAKE-ARRAY-WRITEABLE) +COURIER.READ.STRING (\BINS BIN) TTSKIPSEPR (DECLARE) COURIERTRACE (CLOSEW WINDOWPROP DSPFONT DSPSCROLL + TOTOPW) \FM.EDIT-DELETE (\CARET.DOWN GETMOUSESTATE BITBLT BLTSHADE DECLARE DSPXPOSITION +\FM.EDIT-UPDATEAFTERDELETE) CHAT.SCREENPARAMS (DECLARE CHAT.SENDSCREENPARAMS) FB.SEEBUTTONFN ( +DETACHWINDOW CLOSEW) BEEPON (SELECTC BLOCK \DoveMisc.BeepOn) COMP.CPI (COMP.CPI1 COMP.STUNBIND +COMP.STPOP COMP.STJUMP COMP.CALL OPT.COMPILERERROR) ONEDINSPECT.DEFAULT.TITLECOMMANDFN (GETMOUSESTATE +SELECTQ ONEDINSPECT.REDISPLAY PROMPTPRINT) \TTW1 (.WHILE.TOP.DS. \PUTBASE \SOFTCURSORDOWN +\INSURETOPWDS DECLARE \SW2BM \TTW1 \SOFTCURSORUPCURRENT) CL::STEP-EVAL (CL::STEP-PRINT-VALUES) +CLISPDEC0 (/RPLNODE) ARCSIN (ERROR) TWODINSPECT.SELECTCOLUMNPROP (INSPECT.INVERTSELECTION +INSPECT.INVERTREGION) BEEPOFF (SELECTC BLOCK \DoveMisc.BeepOff) CL::STEP-COMMAND (CL::STEP-PRINT +CL::STEP-PRINT-VALUES) \HDCPYBLTCHAR (DECLARE \CHANGECHARSET.HDCPYDISPLAY \DSPPRINTCR/LF +.WHILE.TOP.DS. \PUTBASE \SOFTCURSORDOWN \INSURETOPWDS \PILOTBITBLT \SOFTCURSORUPCURRENT) +SHOWBITMAP1.IP (APPENDOP.IP TRANS.IP APPENDNUMBER.IP APPENDINTEGER.IP TRANSLATE.IP ROTATE.IP CONCAT.IP + ERROR SCALE.IP APPENDSEQUENCEDESCRIPTOR.IP APPENDINT.IP BITBLT \BOUTS) MSMARKCHANGED (MSERASE +MSMARKCHANGE1) TEDIT.REDO.LOOKS (TEDIT.LOOKS TEDIT.PROMPTPRINT) DASSEM.ASMAJ (FRPLACA FRPLNODE +OPT.COMPILERERROR FRPLACD) TEDIT.REDO.PARALOOKS (TEDIT.PARALOOKS TEDIT.PROMPTPRINT) CHANGESLICE (ERROR + CHANGESLICE NCONC UNDOSAVE FRPLACA FRPLACD) CL:CHAR-NAME (DECLARE) \VFMMerge (DECLARE MESASETQ +\VFMFind \VFMDelete \VFMFreeVPage \VFMInsert) WITHOUT-INTERRUPTS (\KEYBOARDOFF \KEYBOARDON) CHARMACRO +(CFOBF TERPRI) COPY.SEGMENT (FRPLACD) \FTP.FIX.BROKEN.INPUT (printout TERPRI PRIN2 FRPLACD +\SMASHBSPSTREAM \BSP.DECLARE.FILEPTR SETFILEPTR ERROR) CL::%%EXPT-FLOAT-INTEGER (DECLARE) +\FM.EDIT-WORDDELETE (BITBLT DECLARE SCROLLW) CHAT.LOGIN (printout TERPRI MAPC BOUT) +\TEDIT.BOLD.SEL.OFF (\TEDIT.BOLD.CARET.OFF) \GETINTERNALCLOCK (\BLT \BOXIDIFFERENCE) CL:ERROR ( +RAISE-SIGNAL DECLARE RESETSAVE CL:PRINC ERROR!) CLISPATOM2 (CL:THROW CLRPLNODE CLISPBROADSCOPE +CLISPBROADSCOPE1 CLISPATOM2A DWIMIFY1? PRIN1 CLISPATOM1A) OPT.RETTEST (SELECTQ) ETHERHOSTNAME ( +SETUPPUP FREPLACEFIELD SELECTC DECLARE printout PRIN1 RELEASE.PUP) \ATMIN (FRPLACD) RANDSET (ERROR +DECLARE FRPLACD) \CREATEPRESSFONT (DECLARE \GETCHARSETINFO) CL::PROCESS-TYPE (EXPORT) +SCAVENGEDSKDIRECTORY (DECLARE OBTAIN.MONITORLOCK ERROR UNINTERRUPTABLY \LFPurgeDirectory printout +PRIN1 \LFMakeVolumeDirectory \LFOpenDevice \PFDsplyVolumes SI::MONITOR-UNWIND) \NSFILING.OPEN.HANDLE ( +\NSFILING.CLOSE.HANDLE RESETSAVE) FNTH (DECLARE) \TEDIT.BOLD.CARET.OFF (TEDIT.CARETLOOKS +\TEDIT.SHOWCARETLOOKS) \OUTCHARFN.PRESS (NEWLINE.PRESS SHOW.PRESS SETXY.PRESS \BOUT) \SLOWHDCPYBLTCHAR + (\DSPPRINTCR/LF SELECTQ SHOULDNT .WHILE.TOP.DS. \PUTBASE \SOFTCURSORDOWN \INSURETOPWDS DECLARE +\PILOTBITBLT \SOFTCURSORUPCURRENT \DSPYPOSITION.DISPLAY BITBLT ERROR) TWODINSPECT.SELECTROWPROP ( +INSPECT.INVERTSELECTION INSPECT.INVERTREGION) OPT.RETOPT1 (OPT.RETMERGE) IDATE (DECLARE SELCHARQ) +MAKEFN (ERROR ERSETQ) RESETSAVE (DECLARE SETTOPVAL) \VFMGenerateFileIDs (DECLARE OBTAIN.MONITORLOCK +\VFMContextSet MESASETQ FRPLACD SI::MONITOR-UNWIND) \LEAF.REQUESTPAGE (INCLEAFSTAT RPLACD) EDIT.BITMAP + (SET) \PROCESS.RESET.TIMERS (SETUPTIMER \RUN.PROCESS) PP* (DECLARE) RESETFORM (DECLARE SI::RESETUNWIND +) \TEDIT.FONTCOPY (TEDIT.PROMPTPRINT) \PUPGATELISTENER (PROCESSPROP \HANDLE.PUP.ROUTING.INFO BLOCK +\AGE.ROUTING.TABLE SETUPPUP SENDPUP) \FM.EDIT-BACKUP (RELMOVETO SCROLLW BITBLT DECLARE) +\FTP.RECOGNIZEFILE (RPLACA MAPC \FTP.PRINTPLIST .EOC. SELECTC \FTP.FLUSH.TO.EOC \FTPERROR +\RELEASE.FTPCONNECTION) PRINTERRORPUP (PRIN1 PRIN2) COMPILER::COPY-NODE-LABELS (FRPLACD) +TEDIT.COPY.PARALOOKS (\LISPERROR TEDIT.PARALOOKS) RESETVARS (DECLARE MAPC SI::RESETUNWIND) RAND ( +RANDSET RPLNODE RPLACA) \SECONDSCLOCKGREATERP (\BLT) \BSP.HANDLE.INPUT (SELECTC \BSP.HANDLE.DATA +\BSP.HANDLE.ACK \BSP.HANDLE.INTERRUPT \BSP.HANDLE.INTERRUPTREPLY \BSP.HANDLE.ERROR \RTP.HANDLE.PUP +\SEND.ACK MONITOR.AWAIT.EVENT \RTP.ACTION \BSP.TIMERFN) INITUFNTABLE (CREATEPAGES \SETUFNENTRY) +NONSYSPROPNAMES (FRPLACD) GET-TOPW (DSPRIGHTMARGIN DSPFONT) \SETDAYTIME0 (UNINTERRUPTABLY \RCLK \BLT) +\PFInsertDirectoryID (\PFCreateRootDirectory \PFAddRootDirEntry \PFPutRootDirectory) \INTERNALTOTOPW ( +OPENW UNINTERRUPTABLY \TTW1) WRITE-STRING* (DECLARE) MAKECOM (ERROR!) REGIONONSCREEN (GETMOUSESTATE) +CHARACTER.PRINT (.SPACECHECK. \OUTCHAR WRITE-STRING*) \TELERAIDRELEASE (SELECTQ \10MBSETUPRECEIVER +FLIPCURSOR) \HANDLE.PUP.ROUTING.INFO (\ADD.ROUTING.TABLE.ENTRY \BLT) TB.UNDELETE.ITEM (FREPLACEFIELD +TB.SHOW.DELETION) \10MBRAWRECEIVE (\10MBSETUPRECEIVER) \NSFILING.FULLNAME (MAPC SELCHARQ) +\HCPYMODEDISPLAYINIT (DECLARE) RESETVAR (DECLARE SETTOPVAL SI::RESETUNWIND) ASET (CL:ERROR) +MODERN-MENUBUTTONFN (GETMOUSESTATE) \PUTFIXP (.UNBOX. SELECTC \ILLEGAL.ARG +CL::%%NOT-NONCOMPLEX-NUMBER-ERROR) BREAKCONNECTION (FRPLACD) COURIER.READ.SEQUENCE (FRPLACD) +\PUTSWAPPEDFIXP (.UNBOX. SELECTC \ILLEGAL.ARG CL::%%NOT-NONCOMPLEX-NUMBER-ERROR) SWAPPEDCOND (DWIMIFY) + SCALE/TONODES (LISTPUT) PRINTXIPROUTE (FRESHLINE printout PRINTNUM TERPRI) POWEROFTWOP (DECLARE) +SEDIT:SEDIT (SEDIT::SET-PROPS SEDIT::SET-OPTIONS SEDIT::START-PROCESS TOTOPW EXPANDW +SEDIT::DISINTEGRATE-CONTEXT) \STRINGWIDTH.HCPYDISPLAYAUX (DECLARE \MAPPNAME) +\BSP.DEFAULT.ERROR.HANDLER (DECLARE) \NSFILING.FILLIN.ATTRIBUTES (MAPC COURIER.SIGNAL.ERROR) +\GENERIC.OPENP (FRPLACD) CL:MOD (DECLARE) WORD.MATCHES.BUFFER (DECLARE CHECK) \DSPROTATE.IP (ROTATE.IP +) CL::SIMPLE-STRING-EQUAL (%%UNPACK-STRING) CLISPATOM1A (DWIMERRORRETURN CLISPATOM2) FMAX (ERRORX +ADD1VAR) \VECPUT (\ENDVECRUN SHOW.PRESS SETXY.PRESS \BOUT FREPLACEFIELD) \VAMUpdateVAM (DECLARE +SELECTQ \VAMMarkBufferDirty SHOULDNT \PUTBASE) ERRORX (DECLARE RESETSAVE) SETY.IP (APPENDINTEGER.IP +APPENDOP.IP APPENDNUMBER.IP) FILEGETDEF.VARS (SELECTQ) TEDIT.MAKESEL (\SHOWSEL \FIXSEL) \GS.INITBUF ( +RPLSTRING) RPLNODE (ERRORX RPLACA) \NSRANDOM.RELEASE.LOCK (FILING.CALL) SEDIT::COPY-SELECTION (DECLARE + TERPRI CL:FUNCALL) EDITTOGGLELABEL (PROMPTPRINT PRIN1 RESET/NODE/LABELSHADE APPLY*) +PASTEFROMCLIPBOARD (BKSYSCHARCODE) FMIN (ERRORX ADD1VAR) PRINTPUPROUTE (TAB printout PRINTNUM TERPRI) +\MAIKO.SETTIME (\PROCESS.RESET.TIMERS) \TEDIT.GET.SINGLE.PARALOOKS2 (FRPLACD RPLACA RPLACD) +\COURIER.ATTENTIONFN (DECLARE printout TAB) GETHASH (DECLARE SHOULDNT) \INSERT.FIRST.PIECE ( +\INSERTPIECE) PFI.CENTER.PRINT (CHANGEFONT DSPXPOSITION MAP PRIN3) PRINT-LOADED-FILE-INFORMATION ( +PRINTOUT PRIN1) LOADCOMP? (LOADCOMP) HRULE.CREATE (IMAGEOBJPROP TEDIT.PROMPTPRINT) \PEEKCCODE (DECLARE +) HARDCOPY.SOMEHOW (ALLOW.BUTTON.EVENTS) HVFWDCDREAD (TCONC FRPLACA) TEDIT.SELECT ( +\TEDIT.SET.SEL.LOOKS \FIXSEL) \10MBRAWTRANSMIT (\QUEUE.OUTPUT.IOCB) LOADCOMP (DECLARE RESETSAVE +/PUTPROP) \ITEMW.CLEARSELECTION (\ITEMW.DESELECTITEM) \INSPECTW.REDISPLAYPROP (ERROR +\ITEMW.DESELECTITEM DSPFILL EXTENDEXTENT \ITEMW.SELECTITEM) \TEDIT.WORD.BOUND (CHECK) INSPECT/PROPLIST + (PROMPTPRINT) \CIRCSHADE.XSCAN.IP (SETCOLOR.IP FILLRECTANGLE.IP) PREVWORD (DECLARE CHECK ADD1VAR) +CHAT.CLOSE (DECLARE DETACHALLWINDOWS DSPOPERATION DSPSCROLL DEL.PROCESS TERPRI PRIN1 PRINT \CHECKCARET + ALLOW.BUTTON.EVENTS CHAT.CLOSE.CONNECTION CHAT.DEACTIVATE.WINDOW CLOSEW ADD.PROCESS ICONW.SHADE) +\FM.MENUHANDLER (PRINTOUT DECLARE TERPRI GETMOUSESTATE \FM.DOSELECTION ADD.PROCESS) \3MBRAWTRANSMIT ( +\BLT \WRITERAWPBI) CHECKIMPORTS (FRPLACD) SEDIT::FIND-AND-DISPLAY-SUBSTRUCTURE-BACKWARDS ( +SEDIT::SELECT-PSEUDO-SEGMENT) ADD.BORDER.TO.BITMAP (BITBLT) IMAX (ADD1VAR) \LFEntryPoint (\ILLEGAL.ARG + SELECTQ ERROR \PFEnsureInitialized) FILL/GRAPHNODE/LABEL (BITBLT) OPT.RETPOP (OPT.UBDEL OPT.PRDEL +MAPC) COPY-CIRCLE (RPLACA RPLACD) \TEDIT.PUT.CHARLOOKS.LIST2 (\DWOUT \SMALLPOUT DECLARE +\TEDIT.PUT.SINGLE.CHARLOOKS2 PUTHASH) SEDIT::SHIFT-LINEAR-FORM (SEDIT::SHIFT-LINEAR-FORM) \NCONC2 ( +RPLACD) \TEDIT.CHANGE.LOOKS (TEDIT.CARETLOOKS TEDIT.PROMPTPRINT LISTPUT \TEDIT.MARK.LINES.DIRTY +\SHOWSEL TEDIT.RESET.EXTEND.PENDING.DELETE TEDIT.UPDATE.SCREEN \FIXSEL) IMIN (ADD1VAR) +PFI.CONDENSE.INDEX (MAPC) APPENDNUMBER.IP (DECLARE APPENDBYTE.IP APPENDSEQUENCEDESCRIPTOR.IP +APPENDINT.IP) MAKE-NETWORK-TRACE-WINDOW (TOTOPW DSPFONT DSPSCROLL) FW-SORT-FN (DECLARE) OCTALSTRING ( +FREERESOURCE DECLARE) SEDIT::REPLACE-STRING (SEDIT::OPEN-LITATOM) FILEGETDEF.FNS (CL:MULTIPLE-VALUE-SETQ + RESETSAVE SETFILEPTR) READATABASE (SELECTQ HELP MSINIT TEMPLATE PUTHASH STORETABLE LISPXPRINT) ROT ( +DECLARE) \NSFILING.HANDLE.ERROR (PRINTOUT TERPRI DECLARE RELEASE.MONITORLOCK OBTAIN.MONITORLOCK) +MENUBUTTONFN (TOTOPW DOSELECTEDITEM) SETYREL.IP (APPENDNUMBER.IP APPENDOP.IP) TEDIT.SUBPARALOOKS ( +\SHOWSEL \TEDIT.MARK.LINES.DIRTY TEDIT.UPDATE.SCREEN \FIXSEL) \SETUPTIMERmacrofn (DECLARE) NORMSECT ( +BRESSTEP) STKARGS (FRPLACD) DINFO.SPECIAL.UPDATE (PROCESSPROP DECLARE TERPRI FLASHWINDOW) MAX (ERRORX +ADD1VAR) \3MBRAWRECEIVE (\BLT) ADJUSTLINE (GO.TO.RELATIVE KILLSEGMENT TYPE.BUFFER DELETELINE +TTDELSECTION ERASE.TO.END.OF.LINE INSERT.TEXT ADD1VAR) BRKDWNRESULTS (CONSCOUNT MAP RESETFORM +LISPXTERPRI LISPXPRIN1 LISPXTAB) FB.UNDELETEALLCOMMAND (TB.MAP.ITEMS) GRAPHERIMAGEFNS (DECLARE) MIN ( +ERRORX ADD1VAR) PRINT-LISP-INFORMATION (DECLARE PRIN1 TERPRI SI::RESETUNWIND) MOVE.TO.NEXT.LINE ( +GO.TO.RELATIVE) \PAGED.INCFILEPTR (\UPDATEOF \RELEASECPAGE \SETIODIRTY) MB.GETFN (ERROR \STRINGOUT +\SMALLPOUT DECLARE MAPC) HPERR (PRIN1 SPACES PRINT) \TEDIT.FIND (\SHOWSEL TEDIT.PROMPTPRINT +TEDIT.RESET.EXTEND.PENDING.DELETE \FIXSEL TEDIT.NORMALIZECARET WINDOWPROP) READ-FILECREATED ( +SETFILEPTR) FIND.NEXT.WORD (DECLARE CHECK) \LEAF.DEVICEP (\DEFINEDEVICE \RELEASE.FTPCONNECTION) +INSPECTW.REPLACE (ERROR EXEC-EVAL) SEDIT::FIND-AND-DISPLAY-SUBSTRUCTURE (SEDIT::SELECT-PSEUDO-SEGMENT) + FINDFIELDUSAGE (FRPLACA) DMPHASH (DECLARE PRINT MAPHASH) SEDIT::GENERATE-LINEAR-FORM ( +SEDIT::REUSE-LINEAR-FORM CL:FUNCALL) CL:CHAR-EQUAL (CL:ERROR) INTCHECK (PRIN1 TERPRI) \SETCARET ( +MOVETO \EDIT.DOWNCARET) REPLACESTKARG (\ILLEGAL.ARG PROMPTPRINT) USERLISPXPRINT (RELSTK LISPXPUT) +\LEAF.DELETEFILE (RELEASE.PUP) MAKESCAN (SHEDSCAN) MOVD (PUTD MARKASCHANGED) \CIRCSHADE.DISPLAY ( +FILL.LINE) READ (DECLARE) \PSC.SYMBOLS (POSTSCRIPT.SHOWACCUM \UPDATE.PSC POSTSCRIPT.OUTSTR) +CL:CHAR-LESSP (CL:ERROR) SEDIT::REPLACE-CHARS (SEDIT::CLOSE-OPEN-NODE RPLSTRING SEDIT::ADJUST-WIDTH) +\LFReadFileID (\SETFILEPTR \LFCheckBang \LFDirectoryScrambled \BIN) HPRINTSP (HPRINT1) MSTRYSPELL ( +FRPLACD) TEDIT.SET.SEL.LOOKS (\SHOWSEL SELECTQ) CL:CHAR-GREATERP (CL:ERROR) \LFPurgeDirectory ( +\LFCloseDirectory \PFRemoveDirectoryID \PFTrimHelper) MOVD? (PUTD MARKASCHANGED) CLRPLNODE (/RPLNODE +FRPLACA FRPLACD) \BUFFERED.BOUT (CHECK \PUTBASEBYTE FDEVOP) \TELERAIDEXIT (SELECTQ \10MB.TURNONETHER +\TELEBLTCURSOR) CL:CHAR-NOT-GREATERP (CL:ERROR) SETXY.IP (APPENDNUMBER.IP APPENDOP.IP) TEDIT.INCLUDE ( +DECLARE TEDIT.PROMPTPRINT COPYBYTES COPYCHARS CLOSEF TEDIT.DO.BLUEPENDINGDELETE \SHOWSEL +\TEDIT.CONVERT.TO.FORMATTED \TEDIT.INSERT.PIECES \TEDIT.HISTORYADD \FIXILINES TEDIT.UPDATE.SCREEN +\FIXSEL \SETUPGETCH) CHNGNM (/PUTD /PUT /REMPROP DECLARE SI::RESETUNWIND PRINT /ADDPROP) UNSET ( +SAVESET) WRITE (PRINT-CIRCLE-SCAN) MENUREPAINTFN (MAPC) CL:CHAR-NOT-EQUAL (CL:ERROR) CHANGENAME ( +MARKASCHANGED) COMPILER::CHECK-ARG (CL:CERROR) TEDIT.EXTRACTTOCLIPBOARD (PUTCLIPBOARD) \BOXFPLUSDIF ( +.FLOATUNBOX. SELECTC .NEGATE. .LLSH8. .LLSH1. .LRSH8. FRPTQ) FW-CREATE-OFD-LIST (DECLARE CLOSEW) +\TEDIT.PUT.SINGLE.PARALOOKS2 (\SMALLPOUT DECLARE MAPC \ARBOUT \ATMOUT) \FM.RIGHTBUTTONFN (TOTOPW) +\BUFFERED.BINS (\MOVEBYTES \PUTBASEBYTE) \BOXFTIMES2 (.FLOATUNBOX. SELECTC .NEGATE. .LLSH8. .LLSH1. +.LRSH8.) SI::ADVICE-PUTDEF (FRPLACD) PFI.PRINT.INDICES (TERPRI PFI.INDEX.BREAK DSPNEWPAGE) +\CIRCSHADE.IP (SETCOLOR.IP FILLRECTANGLE.IP) \MOVEBYTES (\BLT FRPTQ) \BOXFQUOTIENT (.FLOATUNBOX. +SELECTC .NEGATE. .LLSH8. .LRSH8. .LRSH1. FRPTQ) \10MB.CREATENDB (CL:PUSHNEW) \LFOpenOldFile ( +\PFGetPage) DOSLINKER (PRIN1) SEDIT::SETUP-WINDOW-AND-PROCESS (WINDOWPROP SEDIT::UPDATE-TITLE +SETTERMTABLE PROCESSPROP SETINTERRUPT TTY.PROCESS CLEARW) CL:CHAR< (CL:ERROR) \LFDirectoryP (\OPENFILE +) FW-FILTERED-FILE? (DECLARE) CCCSCAN (DECLARE SELECTQ CCCSUBFN?) \CENTICLOCK (\BLT \RCLK) BLTVLINE ( +DECLARE) \BUFFERED.BOUTS (\MOVEBYTES FDEVOP) CL:CHAR> (CL:ERROR) MARK/GRAPH/NODE (DECLARE) ADDPROP ( +ERRORX FRPLACD FRPLACA SETPROPLIST) CL:CHAR<= (CL:ERROR) VALUOF (DECLARE) \STRINGWIDTH.HDCPYDISPLAY ( +DECLARE) \FLOAT (.NEGATE.) RPTPUT (PRIN2 HPRINTSTRING HPRINT1 HPRINTENDSTR) RESET/NODE/LABELSHADE ( +ERASE/GRAPHNODE PRINTDISPLAYNODE) /REMPROP (ERRORX UNDOSAVE FRPLACD SETPROPLIST) \GETSPP (DECLARE +OBTAIN.MONITORLOCK UNINTERRUPTABLY \DEQUEUE \SPP.SENDPKT MONITOR.AWAIT.EVENT SI::MONITOR-UNWIND) +\PS.SCALEHACK (POSTSCRIPT.SHOWACCUM MAPC FREPLACEFIELD) CL:CHAR= (CL:ERROR) TEDIT.EXTEND.SEL ( +\TEDIT.SET.SEL.LOOKS DECLARE \FIXSEL \COPYSEL) \MAKEFLOAT (.LLSH1. SELECTQ FRPTQ .LRSH8.) +SEDIT::FIND-AND-DISPLAY-STRUCTURE-BACKWARDS (SEDIT::SELECT-NODE) SETCORNER (DECLARE \CURSORPOSITION) +DUMPDATABASE (DECLARE MAPC UPDATECHANGED PRINT PRIN1 TERPRI MAPTABLE) FW-OFD-EXISTS? (DECLARE SELECTQ +SHOULDNT) \TELEBLTCURSOR (\BLT) LAYOUTSEXPR1 (DECLARE) SETXYREL.IP (APPENDNUMBER.IP APPENDOP.IP) +FILEGETDEF.MACROS (FRPLACD) CLISPIF0 (RPLACA RPLACD /RPLNODE DWIMIFY1 LISPXPRIN1 FRPLACD DWIMIFY2 +NCONC CLISPIF2 RPLNODE FRPLACA CLISPTRAN DWIMERRORRETURN) \CANONICALIZE.PUP.HOSTNAME (DECLARE) +CIRCLAR-COPYER (RPLACA RPLACD) BREAKDOWN (BRKDWNINIT BRKDWN1 CONSCOUNT SETA) MB.SHOWSELFN (MB.DISPLAY) + CL:CHAR/= (CL:ERROR) FIXSPELL (DECLARE RELSTK PRINT SI::RESETUNWIND /RPLNODE ADDSPELL MOVETOP) +\TEDIT.PUT.SINGLE.CHARLOOKS2 (\ARBOUT \ATMOUT \SMALLPOUT DECLARE) TTYIN.BALANCE (DECLARE CHECK +MOVE.TO.WHEREVER RPTQ ADDCHAR BEEP) MSERASE (DECLARE) \LOAD-STREAM (DECLARE LISPXTERPRI PRIN1 +LISPXPRIN1 FRPLACA LISPXPUT FASL:PROCESS-FILE SMASHFILECOMS ADDFILE) \PRESSFAMILYCODELST (SETFILEPTR +SELECTQ FRPLACD) FILEWATCHPROP (DECLARE LISTPUT) APPENDLARGEVECTOR.IP (APPENDSEQUENCEDESCRIPTOR.IP +APPENDINT.IP) BLTHLINE (DECLARE) CLISPATOM0 (SELECTQ DECLARE LISTPUT1 SI::RESETUNWIND UNDOSAVE +UNDONLSETQ1) OPT.RETOPT (MAPC MAP) HEXSTRING (RPLCHARCODE) \VFMPutNext (MESASETQ SETA) SETX.IP ( +APPENDINTEGER.IP APPENDOP.IP APPENDNUMBER.IP) CL:CHAR-NOT-LESSP (CL:ERROR) FW-LOOP (DECLARE FW-INIT +FW-WIPE FW-RE-INIT FW-RESET FW-CREATE-OFD-LIST FW-CREATE-OFD-WINDOWS FW-CLOSE-OLD-OFD-WINDOWS +FW-UPDATE-OFD-WINDOWS BLOCK) DWIMDEF (DECLARE) \LEAF.GETFILE (DECLARE OBTAIN.MONITORLOCK +\LEAF.GETFILEDATES \LEAF.CLOSEFILE SI::MONITOR-UNWIND \CLEARBYTES \ADDLEAFSTRING RELEASE.PUP) +SEDIT::FIND-AND-DISPLAY-STRUCTURE (SEDIT::SELECT-NODE) TTNTH (SUB1VAR) \CIRCSHADE.BLT (BLTSHADE) +\BRUSHBITMAP (DECLARE) \TELERAIDENTRY (\KEYBOARDOFF \BLT \TELEBLTCURSOR \10MB.TURNONETHER +\10MBSETUPRECEIVER) TTNLEFT (SUB1VAR) CL:CHAR>= (CL:ERROR) TEDIT.ADD.MENUITEM (RPLACD +UPDATE/MENU/IMAGE) TIMEREXPIRED? (\PUTBASEFIXP) FIXFIELDORDER (FINDFIELDUSAGE MAPC FRPLACD SHOULDNT) +SEDIT::CREATE-QUOTED-GAP (SEDIT::NOTE-CHANGE) POSSIBILITYFN (DECLARE PRODUCE APPLY*) LAYOUTLATTICE ( +DECLARE ERROR INIT/NODES/FOR/LAYOUT) LOAD (RESETSAVE) USEREXEC (DECLARE PROMPTCHAR ERSETQ +SI::RESETUNWIND) \DSPYPOSITION.HDCPYDISPLAY (\HDCPYDISPLAY.FIX.YPOS) \TEDIT.FORMAT.FOOTNOTE (BLOCK +\TEDIT.HARDCOPY.FORMATLINE FREPLACEFIELD FRPLACD) HASDEF (DECLARE) \TEDIT.GET.CHARLOOKS.LIST2 (FRPLACD +) EDITTOGGLEBORDER (PROMPTPRINT PRIN1 RESET/NODE/BORDER APPLY*) PRINT-ARGLIST (TAB PRIN1 PRIN2 SELECTQ + TERPRI SPACES) \TFBRAVO.GETPARAMS (MAP) FIXEDITDATE (SELECTQ /RPLACA /ATTACH) MSCOMMAND (MSKNOWN +MSSETSETTYPE) \EDIT.UPCARET (\CARET.DOWN) BLTMENUIMAGE (SHOWSHADEDITEMS) TB.DELETE.ITEM (FREPLACEFIELD +) LISPXEVAL (FRPLACA) FB.UNDELETECOMMAND (TB.MAP.SELECTED.ITEMS) \UPDATE.EXTENT.IMAGE (CLEARW BITBLT) +DELDEF (APPLY* SELECTQ /PUTD REMPROP MASTERSCOPE MAPC FLUSHFILEMAPS DELFROMLIST MAP PRIN1 +MARKASCHANGED) \TEDIT.REFRESH.SHOWSEL (DECLARE \TEDIT.UPDATE.SHOWSEL \COPYSEL \SHOWSEL SELECTQ +\TEDIT.SET.SEL.LOOKS) PutFloat (\PUTBASEFLOATP) PFI.PREVIEW.DEFINEQ (PRIN1 PRINT PFI.PRINT.LAMBDA +READCCODE) CCCSUBFN? (DECLARE) FNS.PUTDEF (ERROR SELECTQ FIXEDITDATE DELDEF VIRGINFN LISPXPRIN1 +LISPXPRIN2 SAVEDEF ADDSPELL MARKASCHANGED) AT.END.OF.TEXT (DECLARE) RPTEND (RPTPUT) +\CH.GUESS.NEW.PROPERTIES (FRPLACD) \MATMULT441 (DECLARE \PUTBASEFLOATP) STKNTH (RELSTK) +UNSAFE.TO.MODIFY (PRINTOUT) \TEXTBIN (DECLARE FREPLACEFIELD \SETUPGETCH \TEDIT.TEXTBIN.STRINGSETUP +\TEDIT.TEXTBIN.FILESETUP) COMPILER::CONSTRUCT-LIST (MAPC) TEDITCHAT.MENUFN (DECLARE \CHECKCARET +SELECTQ APPLY*) \MATMULT144 (DECLARE \PUTBASEFLOATP) EDITV (PRIN1) \LFCreateFile (\LFMakeDirEntry) +\MATMULT331 (DECLARE \PUTBASEFLOATP) SETSTKNAME (UNINTERRUPTABLY) U/L-CASE (DECLARE MOVE.BACK.TO +MOVE.TO.START.OF.WORD RPLACA TYPE.BUFFER ADJUSTLINE.AND.RESTORE) OPT.DELTAGREF (OPT.COMPILERERROR) +CL::INSERT-INCLUDED-SLOT (CL:ERROR) \MATMULT133 (DECLARE \PUTBASEFLOATP) \TELERAIDSEND (FREPLACEFIELD +SELECTQ \3MBRAWTRANSMIT \10MBRAWENCAPSULATE \10MBRAWTRANSMIT) \COPYFNHEADER (UNINTERRUPTABLY \BLT) +FILEMAP (DECLARE) SEDIT::SETUP-NEW-CONTEXT (DECLARE OBTAIN.MONITORLOCK SEDIT::BUILD-WINDOW +SEDIT::SETUP-CONTEXT-WINDOW-DEPENDENCIES SEDIT::BUILD-INTERNAL-STRUCTURE SI::MONITOR-UNWIND) +\MATMULT444 (DECLARE \PUTBASEFLOATP) EDITP (EDITE) PFI.PREVIEW.DECLARE (TERPRI PRIN1 PRIN2 READCCODE +SPACES PFI.HANDLE.EXPR) TEDIT.HARDCOPY-COLUMN-END (TEDIT.PROMPTPRINT) PRINTPACKETDATA (SELECTQ +printout PRIN2 \OUTCHAR) \MATMULT333 (DECLARE \PUTBASEFLOATP) STKSCAN (RELSTK) OPENIMAGESTREAM ( +DECLARE STREAMPROP) CREATEWFROMIMAGE (WINDOWPROP BITBLT) \AddShade (RPLACD) \FRAMESCAN (SELECTC RAID) +FB.UNDELETE.FILE (TB.UNDELETE.ITEM) MSSETREP (MSTRYSPELL) COMPILER::META-CALL-LAMBDA-SIMPLIFY-PARAMETERS + (CL:CERROR MAPC COMPILER::CLOSE-LAMBDA) CHAT.RESHAPEWINDOW (RESHAPEBYREPAINTFN) SEDIT::COMPLETE ( +SEDIT::CLOSE-OPEN-NODE SEDIT::HANDLE-COMPLETION CLOSEW SEDIT::DISINTEGRATE-CONTEXT DEL.PROCESS SHRINKW + TTY.PROCESS) TEDIT.SEL.AS.STRING (\SETUPGETCH RPLCHARCODE) RETTO (\SMASHRETURN) \LFGetStreamForFile ( +printout TERPRI) LCSKIP (ERROR) FB.HARDCOPY.PRINT.TITLE (DSPXPOSITION PRIN1) PRINTANDBOX (RELMOVETO +TERPRI CL:PRIN1) COMP.STUNBIND (COMP.ST) OPT.COMMONBACK (OPT.CHECKTAG SELECTQ OPT.CHLEV OPT.DELTAGREF +OPT.UBDEL OPT.COMPILERERROR OPT.PRDEL NCONC1) MOVEBOX (\PUTBASE \SOFTCURSORDOWN BLTHLINE BLTVLINE +\SOFTCURSORUPCURRENT) SHRIEKER (ATTACH) PRINTERTYPE (SELECTQ) APPENDINT.IP (APPENDBYTE.IP) +DO-DISPATCH-MACRO (READ-EXTENDED-TOKEN) SETSPACE.IP (APPENDNUMBER.IP) FILEGETDEF.LISPXMACROS (FRPLACD) + FW-CREATE-OFD (DECLARE) UNIX-STREAM-IN (BLOCK) GETDEFFROMFILE (DECLARE CL:FORMAT) RESUME (LISPERROR +UNINTERRUPTABLY \DECUSECOUNT) OPT.JUMPREV (OPT.PRDEL NCONC1 OPT.PRATTACH FRPLACA FRPLACD) /SETTOPVAL ( +UNDOSAVE) \FM.CREATEW (WINDOWPROP) HPRINTEND (SORT SETFILEPTR MAPC) SETXREL.IP (APPENDNUMBER.IP +APPENDOP.IP) FILEGETDEF.ALISTS (FRPLACD) \DO-DEFINE-FILE-INFO (MAP) EXEC-READ-LINE (READC SHOULDNT) +GET-ONED-DISPLAYW (WINDOWPROP DSPRIGHTMARGIN DSPFONT) BCPL.TO.FLOATP (ERROR) +\TEDITMENU.RECORD.UNFORMATTED (TEXTPROP) ADDFILE (SELECTQ SHOULDNT UPDATEFILES ADDSPELL) DRAWGRAYBOX ( +\PUTBASE \SOFTCURSORDOWN BLTHLINE BLTVLINE \SOFTCURSORUPCURRENT) COMPILER::META-CALL-LAMBDA ( +COMPILER::META-CALL-LAMBDA-SUBSTITUTE COMPILER::RELEASE-TREE RPLNODE) CHAT.BUTTONFN (PROCESS.APPLY +CHAT.HOLD) RESET/NODE/BORDER (ERASE/GRAPHNODE DISPLAYNODELINKS SET/LABEL/SIZE DISPLAYNODE) +SEDIT::OPEN-LITATOM (SEDIT::CLOSE-OPEN-NODE RPLSTRING) \LFUpdateLeaderPage (SELECTQ \LFWriteLeaderPage +) UPDATEFILEMAP (SKIPSEPRS READC SKREAD RESETLST) RPTPRINT (RPTPUT) MSVERBTYPE (SELECTQ MSSETSETTYPE +MSKNOWN) \TEDIT.LOOKS.UPDATE (DECLARE \EDITSETA RETFROM) SEDIT::SETUP-CONTEXT (SEDIT::SETUP-PROFILE +SEDIT::SETUP-NEW-CONTEXT SEDIT::VERIFY-STRUCTURE SEDIT::THROW-AWAY-CHANGES) COMP.STBIND (OPT.CCHECK +COMP.ST) SETNTHTOPLEVELELT (PROMPTPRINT) READPLIST (SETSEPR SETSYNTAX SETBRK READTABLEPROP FRPLACD +ERROR) TTYIN.SCRATCHFILE (DECLARE SETFILEPTR) CENTERPRINTINAREA (MOVETO RESETLST) SMASHFILECOMS ( +SETTOPVAL) CL:SET-DISPATCH-MACRO-CHARACTER (FREPLACEFIELD) SHOWSHADEDITEMS (RESHADEITEM) \SENDLEAF ( +ERROR AWAIT.EVENT RELEASE.PUP) MENUITEMREGION (CHECK/MENU/IMAGE) PRINTCOPYRIGHT (NCONC1 +PRINTCOPYRIGHT1) FASL:PROCESS-FILE (DECLARE) SKIP/ZAP (MOVE.FORWARD.TO FORWARD.DELETE.TO MOVE.BACK.TO +BEEP) \TEXTBOUT (\TEDIT.MARK.LINES.DIRTY \INSERTCH TEDIT.UPDATE.SCREEN) STKARGNAME (DECLARE) MAPRINT ( +DECLARE LISPXPRIN1 APPLY* SI::RESETUNWIND) DINFO.UPDATE.MENU.DISPLAY (FRPLACD DETACHWINDOW CLOSEW +UPDATE/MENU/IMAGE ADDMENU ATTACHWINDOW REDISPLAYW) ENUM-STRING (STRPUT FREERESOURCE DECLARE) +SETSTKARGNAME (DECLARE SETSTKNAMEENTRY UNINTERRUPTABLY) MB.DEFAULTBUTTON.ACTIONFN ( +TEDIT.RESET.EXTEND.PENDING.DELETE \FIXSEL TEDIT.NORMALIZECARET) PROMPTCHAR (DECLARE MAPC PRIN2 PRIN1) +\FM.SETATTACHPOINT (DECLARE LISTPUT) %%PRINT-ARRAY-CONTENTS (\ELIDE.PRINT.TAIL) +DINFO.UPDATE.TEXT.DISPLAY (OPENTEXTSTREAM DINFO.SHOWSEL CLOSEF?) CL:VECTOR-PUSH-EXTEND (CL:ADJUST-ARRAY +) \POSTSCRIPT.ACCENTPAIR (DECLARE POSTSCRIPT.SHOWACCUM \UPDATE.PSC BOUT POSTSCRIPT.PUTCOMMAND) +LISPXPUT (FRPLACA) %%DEFPRINT-ARRAY (\ELIDE.PRINT.ELEMENT) \CONVERTNUMBER (RPLCHARCODE SELECTQ) +PRETTYDEF (DECLARE \ILLEGAL.ARG CL:MULTIPLE-VALUE-SETQ PRIN1 SETFILEPTR HELP PRINT-READER-ENVIRONMENT) + OPT.LABELNTHPR (OPT.CHLEV SUB1VAR OPT.CHECKTAG OPT.SETDEFREFS) FILEPKGCHANGES (FRPLACD) MSFIXUPTYPES +(MSKNOWN) LISPXTERPRI (LISPXPUT) PRINTCOPYRIGHT1 (PRIN1 printout PRIN3 MAPC) LISPXPRIN1 (LISPXPUT) +PRINTER.BITMAPFILE (DECLARE) HPRINT1 (PRIN3 PUTHASH SPACES SETN HPRINTSTRING FRPTQ DECLARE RESETFORM +MAPHASH HPRINTSP MAPC PRINTBITMAP) PFI.HANDLE.PACKAGE (CL:EVAL TERPRI) GET-TITLEW (DSPFONT +DSPOPERATION) LISPXREADBUF (FRPLACD PRIN1) \CML-LOAD (PRINT CL:FORMAT) %%DEFPRINT-VECTOR ( +\ELIDE.PRINT.ELEMENT) \POSTSCRIPT.ACCENTFN (DECLARE \UPDATE.PSC BOUT) ITEM.WINDOW.SET.STACK.ARG ( +\ILLEGAL.ARG PROMPTPRINT RESETLST TERPRI) ONEDINSPECT.RESHAPEFN (CLEARW ONEDINSPECT.MAKEREGIONS +ONEDINSPECT.ADJUSTSELECTION ONEDINSPECT.REPAINTFN) FILECREATED (DECLARE PRIN1 LISPXPRIN1 LISPXTERPRI +/PUT) GREET (TAB SETUSERNAME MAPC LOAD GREET0 PRIN1) \LFMakeVolumeDirectory (DiskError LISPERROR +\PFSaveBuffers \LFMakeLeaderPage \PFInsertDirectoryID) FNUM-STRING (STRPUT) \GOOD.DASHLST (FRPLACD) +SEDIT::INSERT-STRING (SEDIT::REPLACE-STRING) CENTEREDPRIN1 (MOVETO) DEFINE-FILE-INFO (DECLARE) +\APPEND2 (FRPLACD) HASH-B (READ-EXTENDED-TOKEN HASH-NO-PARAMETER-ERROR) RESHADEITEM (DSPFILL) +/DECLAREDATATYPE (UNDOSAVE) CHECKDEFS (RECORDERROR) FIXR (.FLOATUNBOX. SELECTC .NEGATE. .LLSH8. +.LLSH1. .LRSH8. FRPTQ) HASH-C (CL:READ HASH-NO-PARAMETER-ERROR) SAVECOPYRIGHT (PRINT) +\DSPXPOSITION.HDCPYDISPLAY (\HDCPYDISPLAY.FIX.XPOS) \LEAF.CLOSEFILE (\CLEARMAP LISPERROR DECLARE +OBTAIN.MONITORLOCK SI::MONITOR-UNWIND \SENDLEAF) COMPERROR (COMPERRM) DECLAREDATATYPE (LISPERROR +FRPLACD) READFROMBUF (BREAKLINE ADDNAKEDCHAR START.NEW.LINE MOVE.TO.WHEREVER DELETE.LONG.SEGMENT1) +FILLTRIANGLE (RPLACA RPLACD) CL::RESOLVE-SLOTS (CL:ERROR) \TEDIT.GET.PARALOOKS.LIST2 (FRPLACD) FLTSTR +(WITH-RESOURCES RPLCHARCODE FREERESOURCE DECLARE .FLOATUNBOX. SELECTC .NEGATE. .LLSH8. .LLSH1. .LRSH8. + TIMESPOW10 INTTOEXT .LRSH1. \CONVERTNUMBER GLC CL:VECTOR-PUSH) \TELERAIDGET (FLIPCURSOR +\BLTLOCALHOSTNUMBER \10MBRAWENCAPSULATE \10MBRAWTRANSMIT) TTGIVEHELP (TERPRI TTGIVEHELP1 PRIN1 +TTGIVEHELP2) \FILLPOLYGON.IP (SETCOLOR.IP MAPC APPENDINTEGER.IP) HASH-COLON (HASH-NO-PARAMETER-ERROR) +APPENDSEQUENCEDESCRIPTOR.IP (ERROR) \TRACKWITHBOX (DECLARE DRAWGRAYBOX GETMOUSESTATE \CURSORPOSITION +APPLY* ERROR!) DWMFY2 (DWIMIFY1 /RPLNODE LISPXSPACES LISPXPRIN1 LISPXPRINT DWIMIFY1A) +\VAMFindFreePages (DiskError LISPERROR) TIMESPOW10 (\EXTFTIMES) TRANSLATE.DATATYPE (DECLARE MAPC +\REUSETO RPLACA) %%SLOW-ARRAY-WRITE (CL:ERROR) GREET0 (LISPXPRIN1) INTTOEXT (.UNBOX. SELECTC +\ILLEGAL.ARG CL::%%NOT-NONCOMPLEX-NUMBER-ERROR .LLSH1.) FILEDATE (RESETSAVE SETFILEPTR) LINELENGTH ( +\ILLEGAL.ARG) EXTTOINT (.LRSH1.) DINFO.UPDATE.GRAPH.DISPLAY (DINFO.INVERT.NODE DINFO.SHOWGRAPH) +COURIER.BROADCAST.CALL (DECLARE RESETSAVE printout TAB \MAP.ROUTING.TABLE SPACES) LISPXPRINT (LISPXPUT +) FLTINTLOG (TIMESPOW10) \FM.COLLECTNWAYS (MAPC TCONC LISTPUT) \RESHAPEATTACHEDWINDOWSAROUNDMAINW ( +SHAPEW) /PUT (ERRORX UNDOSAVE FRPLACD /RPLACA SETPROPLIST) DWMFY0 (DWIMIFY1 DWIMIFY2) FW-CLOSEFN ( +DECLARE) GETDEFERR (DECLARE ERROR) RPLCHARCODE (\SMASHABLESTRING LISPERROR \PUTBASECHAR DECLARE) +MB.SELFN (\COPYSEL \FIXSEL \SHOWSEL) \REUSETO (ERROR) DO-EVENT (DECLARE DSPFONT +HISTORY-ADD-TO-SPELLING-LISTS MAPC) \LISP.TO.NSFILING.ATTRIBUTE (FRPLACD) HASH-DOUBLEQUOTE (CL:READ +HASH-NO-PARAMETER-ERROR) \NSRANDOM.UPDATE.VALIDATION (\NSRANDOM.HANDLE.ERROR) TTECHO.TO.FILE (PRIN1 +FRPTQ DECLARE TERPRI) \UPDATEXYANDBOX (MOVEBOX SETCORNER DRAWGRAYBOX) HASH-MINUS ( +HASH-NO-PARAMETER-ERROR) COMPILER::META-EVAL-VAR-REF (COMPILER::RELEASE-VAR-REF COMPILER::ANALYZE-TREE +) RIGHTW.RESHAPEFN (CLEARW RIGHTW.ADJUSTSELECTION) PRETTYCOMPRINT (PRIN1) \TEDIT.PUT.SINGLE.PARALOOKS +(\SMALLPOUT DECLARE MAPC \ARBOUT \ATMOUT SETFILEPTR) HASH-DOT (HASH-NO-PARAMETER-ERROR) +FLONUM-TO-STRING (CL:MULTIPLE-VALUE-SETQ STRPUT) OPT.LBDEL (OPT.PRDEL OPT.SETDEFREFS OPT.DELCODE) +READLINE (DECLARE CLEARBUF READC PRIN1 SHOULDNT RPLACA SETFILEPTR) HASH-PLUS (HASH-NO-PARAMETER-ERROR) + DMCHAT.ADDRESS (\DTEST TERM.MOVETO) PRINTHISTORY2 (PRIN1 MAPRINT SHOWPRIN2 SPACES TERPRI) HASH-COMMA +(HASH-NO-PARAMETER-ERROR) DIGITSBDP (.FLOATUNBOX. SELECTC .NEGATE. .LLSH8. .LLSH1. .LRSH8.) +EDITLOADFNS? (PRIN2 MAPRINT /RPLACD CL:FORMAT EXEC-FORMAT) DECLARE%:1 (DECLARE%:1 SELECTQ) +MSPATHOPTIONS (printout PRIN1 FRPLACD) DO.EDIT.PP (MOVE.TO.LINE ERASE.TO.END.OF.PAGE TTYIN1RESTART +TTLOADBUF SETFILEPTR BREAKLINE READFROMBUF FREERESOURCE DECLARE) HASH-R (READ-EXTENDED-TOKEN) +\POSTSCRIPT.SPECIALOUTCHARFN (DECLARE BOUT SELCHARQ) TTYINSTRING (DECLARE RPLCHARCODE) READHOTSPOT ( +UNTILMOUSESTATE GETMOUSESTATE \BACKGROUND CURSORPOSITION BLOCK BITBLT) COPY.TEXT.TO.IMAGE (TERPRI +\OUTCHAR SELCHARQ DSPFONT BIN) \FM.WINDOWEXTENT (EXTENDREGION) HASH-QUOTE (HASH-NO-PARAMETER-ERROR) +COMP.STSETQ (OPT.CCHECK) RESETBUFS (DECLARE LINBUF SYSBUF BKBUFS) CHAT.ICONFN (DECLARE TTY.PROCESS) +TTDELETECHAR (DELETELINE MOVE.TO.LINE) \FM.MAKELINKS (RPLACA) TITLEW.REPAINTFN (BITBLT MOVETOUPPERLEFT +) \EXTFTIMES (.LLSH8.) PFI.HANDLE./DECLAREDATATYPE (PFI.MAYBE.NEW.PAGE) APPENDIDENTIFIER.IP ( +APPENDSEQUENCEDESCRIPTOR.IP DECLARE \BOUT) DWMFY1 (MAPC DWIMIFY1A DWIMIFY1) FW-INTERACT (DECLARE) +EDITMOVENODE (CLRPROMPT printout FLIPNODE GETMOUSESTATE TERPRI TRACKCURSOR) HASH-X ( +READ-EXTENDED-TOKEN HASH-NO-PARAMETER-ERROR) COPYINSERT (BKSYSBUF) PRETTYPRINT3 (PRIN1 CHANGEFONT +PRIN2 TERPRI PRINT PRINTDEF) REMPROPLIST (RPLNODE2 RPLACD SETPROPLIST) GETDEFCURRENT (GETDEFERR +UPDATEFILES) %%NUMERIC-STRING-P (DECLARE) HASH-VBAR (SKIP.HASH.COMMENT) \TEDIT.HCPYLOOKS.UPDATE ( +DECLARE \EDITSETA RETFROM) COMPARENCHARS (DECLARE \MAPPNAME.INTERNAL) SETFONT.IP (APPENDNUMBER.IP +APPENDOP.IP ERROR) ENDFILE (PRINT) SCALE.IP (APPENDNUMBER.IP) \FM.UPDATEGROUPEXTENT ( +\FM.UPDATEGROUPEXTENT) \TELERAIDCOMMAND (DECLARE SETMAINTPANEL RAID \FLUSHVM) SEDIT::DOT-THIS-LIST ( +RPLACD SEDIT::NOTE-CHANGE) \LFCloseDirectory (FORGETPAGES) \ITEMW.DESELECTITEM (\ITEMW.FLIPITEM) +\STRINGIN (RPLCHARCODE) HASH-O (READ-EXTENDED-TOKEN HASH-NO-PARAMETER-ERROR) HASH-EQUAL (CL:ERROR) +\NSRANDOM.WROTE.HANDLE (\NSFILING.UPDATE.ATTRIBUTES) UNSAVED1 (VIRGINFN /REMPROP SAVEDEF /PUTD +ADDSPELL ERROR) DRAWDASHEDLINE (FRPLACD DRAWLINE) GENERATEFN (DECLARE FRPLACA FRPLACD RESUME APPLY*) +BUILDGETRELQ (MAPC) PRETTYPRINT (PRIN2 PRIN1 TERPRI TCONC PRINTDEF ADDSPELL PRETTYPRINT3 RPLACD +LOADFNS PRINT /RPLACA FRPLACA EXEC-FORMAT LISPXPUT) TERM.PRINTCHAR (\CHANGECHARSET.DISPLAY +\BLTSHADE.DISPLAY \BLTCHAR) \POSTSCRIPT.PRINTSLUG (DECLARE \BLTSHADE.PSC) \SEARCHPRESSFONTS (DECLARE +RESETSAVE SETFILEPTR) TEMPLATE (MARKASCHANGED MSMARKCHANGED PUTHASH) DINFO.UPDATE.HISTORY (FRPLACD +DETACHWINDOW CLOSEW) SPY.ADD.ENTRY (\PUTBASEPTR \PUTBASE) AU-REVOIR (NOTE) \EXTNORMALIZE (.LLSH1.) +TTNEXTLINE (SUB1VAR) SEND.FILE.TO.PRINTER (RESETSAVE LISPXPRIN1 LISPXTERPRI) MSMSGPRINT (MSMSGPRINT) +TERM.ADDLINE (BITBLT) SQRT (DECLARE ERROR FRPTQ) SEDIT::SELECT-NEXT-GAP (SEDIT::SET-SELECTION-NOWHERE) + \EXTFQUOTIENT (.LRSH1. FRPTQ) CLISPEXPANSION (DECLARE DWIMIFY0? CL:CERROR) MSJOINSET (printout SPACES + MSSETSETTYPE MSKNOWN) INIT-CML-READTABLES (DECLARE READTABLEPROP SETSYNTAX) SEDIT::HASFAT (DECLARE) +SCANFILEHELP (PRIN1 TERPRI) GRAYBOXAREA (\ILLEGAL.ARG) \DSKEventFn (DECLARE OBTAIN.MONITORLOCK +\DSKCloseDevice \DSKOpenDevice \UNVISIBLE.PAGED.REVALIDATEFILELST \PAGED.REVALIDATEFILELST MAPHASH +\UNVISIBLE.FLUSH.OPEN.STREAMS SI::MONITOR-UNWIND) \CONVERT.FLOATING.NUMBER (FREERESOURCE) OPENIPSTREAM + (DECLARE ERROR \EXTERNALFORMAT STREAMPROP INITIALIZEMASTER.IP BEGINMASTER.IP BEGINPREAMBLE.IP SELECTQ + HEADINGOP.IP GETFRAMEVAR.IP SETUPFONTS.IP \DSPCLIPPINGREGION.IP INITIALIZECOLOR.IP PUSH-IP-STACK +NEWPAGE.IP) \TEDIT.PARSE.CHARLOOKS.LIST (LISTPUT) FW-OPENP (DECLARE MAPC RPLACD) \VAMBufferSave ( +\PFPutAllocationMapPage) FW-UPDATE-OFD-WINDOW (DECLARE DSPRESET printout GRAYBOXAREA DSPFILL) +MB.SETIMAGE (DSPXOFFSET DSPYOFFSET DSPFONT MOVETO PRIN1) FB.SORT.VERSIONS (FRPLACD RPLACD) DWIMIFY0? ( +SELECTQ) HASH-S (HASH-NO-PARAMETER-ERROR) /SETD (UNDOSAVE) TEDIT.HARDCOPY.PAGEHEADING (FRPLACD LISTPUT +) COMPAREPRINTN (SELECTQ PRIN1 TERPRI PRIN2) FASL-FILEDATE (SETFILEPTR) SHORTLST (SPACES PRIN2 PRIN1) +CL:MAKE-ARRAY (%%ARRAY-CONTENT-INITIALIZE %%ARRAY-ELEMENT-INITIALIZE) /SETSEPR (UNDOSAVE) +\DSKCloseDevice (DECLARE OBTAIN.MONITORLOCK \REMOVEDEVICE SI::MONITOR-UNWIND) RESTOREBUF ( +END.DELETE.MODE READFROMBUF FRPLNODE ADJUSTLINE.AND.RESTORE BEEP) PARSE.NSNAME (GETCLEARINGHOUSE) +SHEDSCAN (GETLINEORIG GETLINEDIFF) MSFAIL (RETFROM printout PRIN1 ERROR!) READ-AFM-FILE (PRIN1 DECLARE + RATOMS SETA CLOSEF) \FM.MAKEBITMAP (BLTSHADE BITBLT DSPFONT DSPXPOSITION DSPYPOSITION +DSPCLIPPINGREGION PRIN1) TTDELETEWORD (SETTAIL? DELETE.LONG.SEGMENT1) TTREADLIST (FRPLACD) +\LFDeleteFile (DECLARE OBTAIN.MONITORLOCK UNINTERRUPTABLY \LFRemoveDirEntry \PFTrimHelper +SI::MONITOR-UNWIND) \SHADEBITS (GETMOUSESTATE CLEARW MOVETO PRINTOUT BITMAPBIT UPDATE/BM/DISPLAY +SHADEGRIDBOX) PARSE-NAMESTRING1 (\ILLEGAL.ARG) \UFS.UNREGISTER.GFS (DECLARE \UFSFinishFileInfo-C) +INSTALL-CLIPBOARD (INTERRUPTCHAR) GETEXPRESSIONFROMEVENTSPEC (FRPLACD) COMP.VARTYPE (OPT.CCHECK) +PRETTYCOM (PRINT MAP SELECTQ PRINTFNS MAPC SPACES CL:FORMAT CL:TERPRI MAPRINT TAB DECLARE PRIN3 RPTQ +CHANGEFONT ERROR) OPT.LBMERGE (MAPC NCONC) \UNVISIBLE.FLUSH.OPEN.STREAMS (FDEVOP) ADIEU (NOTE) +\MAIKO.PUNTBLTCHAR (DECLARE \CHANGECHARSET.DISPLAY \DSPPRINTCR/LF .WHILE.TOP.DS. \PUTBASE +\SOFTCURSORDOWN \INSURETOPWDS \SOFTCURSORUPCURRENT) GET-ENVIRONMENT-AND-FILEMAP (SETFILEPTR) +\DSPFONT.HDCPYDISPLAY (\FSETWIDTH) \GETPRESSFONTNAMES (SETFILEPTR SELECTQ) GRAPHEDITCOMMANDFN (DECLARE +) SKOR (DECLARE SUB1VAR ADD1VAR) DOERROR (NCONC1 FRPLACD) \FLOATINGSCALE (DECLARE INTTOEXT TIMESPOW10) + PRINTFNS (NCONC1 PRIN1 PRINT PRETTYPRINT RPLACA TERPRI) \BULK.DATA.CLOSE (\COURIER.TRACE DECLARE +SPP.SENDATTENTION SPP.SENDEOM \ABORT.BULK.DATA RESETSAVE) \UNVISIBLE.PAGED.REVALIDATEFILELST (SELECTQ +MAPC FDEVOP SHOULDNT \PRINT-REVALIDATION-RESULT) SEDIT::LINEARIZE (SEDIT::SET-LINEAR DECLARE +SEDIT::GENERATE-LINEAR-FORM CL:FUNCALL) \INIT.POWERS.OF.TEN (SETA DECLARE INTTOEXT TIMESPOW10 +\EXTFQUOTIENT) PFI.HANDLE.PUTPROPS (PFI.MAYBE.NEW.PAGE PFI.ADD.TO.INDEX) GET-FILEMAP-FROM-FILECREATED +(SKREAD SETFILEPTR) \VFMSmartBLT (DECLARE \PUTBASE) FW-CLOSE-OLD-OFD-WINDOWS (DECLARE) +\TEDIT.PARSE.PARALOOKS.LIST (SELECTQ TEDIT.PROMPTPRINT) CL:COMPILE-FILE (DECLARE CL:ERROR CL:CLOSE +FASL:CLOSE-FASL-HANDLE) MB.DISPLAY (MB.SETIMAGE BITBLT PRIN1) PRETTYDEF1 (/NCONC1 PRETTYCOM /RPLACA) +TB.FINISH.CLOSE (DECLARE OBTAIN.MONITORLOCK WINDOWADDPROP WINDOWDELPROP SI::MONITOR-UNWIND) +\FILING.ATTRIBUTE.TYPE (ERROR) /SETBRK (UNDOSAVE) \10MB.TURNONETHER (\MAIKO.ETHERSUSPEND \BLT +\STORENSHOSTNUMBER) TEDIT.SKIP.SPECIALCOND (FRPLACD) \FAULTINIT (\MAIKO.FAULTINIT \MP.ERROR +\DL.FAULTINIT \DOVE.FAULTINIT \D01.FAULTINIT \SETIOPOINTERS \SET.VMEM.FULL.STATE) \UFSEventFn (DECLARE + OBTAIN.MONITORLOCK \UFSCloseDevice \UFSOpenDevice \UNVISIBLE.PAGED.REVALIDATEFILELST +\PAGED.REVALIDATEFILELST MAPHASH \UNVISIBLE.FLUSH.OPEN.STREAMS SI::MONITOR-UNWIND) \FM.GETBITMAPS ( +BLTSHADE BITBLT) REFLECT/GRAPH/DIAGONALLY (MAPC) \PFReplaceString (DECLARE \PUTBASEBYTE \PUTBASE) +\MAKEFRAME (CHECK) COPYALLBYTES (RESETSAVE SETFILEPTR PFCOPYBYTES COPYBYTES) FILECHANGES (SETFILEPTR +RESETSAVE) \VFMDelete1 (MESASETQ \VFMSmartBLT) \UFSDirectoryNameP (DECLARE) +LOOKUP-ENVIRONMENT-AND-FILEMAP (MAPHASH) FW-RESIZE-OFD (DECLARE) SETRGB.IP (SHOW.IP APPENDINTEGER.IP +APPENDOP.IP FGET.IP ISET.IP) TRANSLATE.LOCF (DECLARE ERROR) CLEARPUP (\ZEROWORDS) +\MAIKO.BLTSHADE.BITMAP (DECLARE) \SETIOPOINTERS (\PUTBASE RAID) \UFSOpenFile (DECLARE +OBTAIN.MONITORLOCK CL:ERROR PROMPTPRINT SI::MONITOR-UNWIND) \TELERAIDINIT (MAPC \LOCKPAGES) +TTADJUSTWORD (TTPRIN1 TTGIVEHELP TTCRLF) UNIQLIST (MAPC) \D01.FAULTINIT (\BLT SETQ.NOREF \CHAIN.UP.RPT +) \UFSGenerateFiles (DECLARE OBTAIN.MONITORLOCK SI::MONITOR-UNWIND) ENTEREVALQT (RESETRESTORE) +\DOVE.FAULTINIT (DECLARE \MP.ERROR SETMAINTPANEL \DL.NEWFAULTINIT SETQ.NOREF \RCLK \DoveMisc.ReadGMT +\DoveMisc.ReadHostID \DoveDisk.Init) \UFSSetFileInfo (DECLARE OBTAIN.MONITORLOCK SI::MONITOR-UNWIND) +TRYNEXT (SET RETEVAL) PSCFONT.WRITEFONT (PRIN3 BOUT \WOUT DECLARE CLOSEF) PRETTYDEFCOMS (DECLARE MAP) +\DL.FAULTINIT (\MP.ERROR \DL.NEWFAULTINIT \RCLK \PUTBASEPTR \PUTBASE) SIZE/GRAPH/WINDOW (CLEARW) +\UFSWritePages (CL:ERROR) PRINTDATE (PRINTDATE1) \SEQUIN.HANDLE.ACK (\SEQUIN.RETRANSMITNEXT BLOCK +\DEQUEUE FREPLACEFIELD SEQUINOP) \TEXTTTYBOUT (\TEDIT.CHARDELETE DECLARE CHECK SELCHARQ \TEXTBOUT +FREPLACEFIELD) \TEDIT.UPDATE.SHOWSEL (\EDIT.UPCARET \SHOWSEL.HILIGHT \SETCARET) D-ASSEM::FIXUP-NTENTRY + (UNINTERRUPTABLY) PRINTDATE1 (printout SPACES PRIN3 TERPRI TAB) \MAIKO.FAULTINIT (\MAIKO.DO.MOVDS +\MAIKO.NEWFAULTINIT \RCLK \PUTBASEPTR) \UFSReadPages (\UPDATEOF CL:ERROR \CLEARBYTES \CLEARWORDS) +/SETA (UNDOSAVE) \10MB.LOADINPUTQ (\TEMPLOCKPAGES \QUEUE.INPUT.IOCB) FILEPKG.MERGECHANGES (FRPLACD +NCONC) SNAPW (BITBLT WINDOWPROP OPENW MOVEW) \UFSTruncateFile (\UPDATEOF \SETFILEPTR \BOUT) +CL:MACROEXPAND (CL:MULTIPLE-VALUE-SETQ) \BN.TIMES2 (ERROR RPLACA RPLACD) \SPP.CHECK.INPUT.QUEUE ( +SHOULDNT) \GETREGIONTRACKWITHBOX (DECLARE DRAWGRAYBOX GETMOUSESTATE \CURSORPOSITION +\GETREGION.CHECKBASEPT APPLY* ERROR!) \UFSGetFileInfo (DECLARE OBTAIN.MONITORLOCK RPLACD +SI::MONITOR-UNWIND) \BN.DIVIDE (RPLACD RPLACA) PFI.HANDLE.PUTDEF (PFI.MAYBE.NEW.PAGE) OPT.JUMPTHRU ( +OPT.LBMERGE COMPERRM FRPLACA OPT.PRATTACH OPT.PRDEL NCONC1 FRPLACD) \VFMSaveBuffer (\PFPutFileMapPage) + \UFSDeleteFile (DECLARE OBTAIN.MONITORLOCK SI::MONITOR-UNWIND) \FILEMAP-HASHOVERFLOW (MAPHASH REMHASH +) READVARS-FROM-STREAM (DECLARE CL:MAPC) \ARBIN (CLOSEF?) \DUMMYKEYHANDLER (\CONTEXTAPPLY +\CONTEXTSWITCH) DMCHAT.NEWLINE (MOVETO) \UFSRenameFile (\UFStoOtherRenameMess \UFSError) +FB.DELVERCOMMAND (FB.ALLOW.ABORT FB.UPDATE.COUNTERS) DIRECTORY.FILL.PATTERN (DECLARE) +D-ASSEM::TYPE-NAME-FROM-SIZE (CL:ERROR) \LFRenameFile (WITH.MONITOR DECLARE OBTAIN.MONITORLOCK +\LFMakeDirEntry \LFRemoveDirEntry SI::MONITOR-UNWIND LISPERROR) FLUSHFILEMAPS (CLRHASH MAPHASH) +\UFSCloseFile (\CLEARMAP FDEVOP) SEDIT:REPLACE-SELECTION (CL:ERROR SEDIT::PENDING-DELETE SEDIT::INSERT +) SEDIT::REPLACE-ROOT (SEDIT::UNDO-BY SEDIT::KILL-NODE RPLACA SEDIT::SET-DEPTH SEDIT::NOTE-CHANGE +SEDIT::SUBNODE-CHANGED-ROOT SEDIT::SET-POINT-NOWHERE) COMP.MACRO (DECLARE) \TEDIT.GET.SINGLE.PARALOOKS + (FRPLACD RPLACA RPLACD TEDIT.PROMPTPRINT SETFILEPTR) TRACKW (GETMOUSESTATE MOVEW) \BN.QRS (ERROR) +GETSYNTAX (\MAPCHARTABLE MAPHASH \ILLEGAL.ARG) \CHARWIDTH.HDCPYDISPLAY (DECLARE) EDITSHADE (WINDOWPROP + EDITSHADEREPAINTFN RESETLST DSPFILL GETMOUSESTATE TOTOPW BLOCK ERSETQ SHADEGRIDBOX BITMAPBIT PRINTOUT + DECLARE TERPRI) SI::FINISH-ADVISING (PUTD MARKASCHANGED) PRINTDEF1 (PRINTDEF NCONC1) \UFSeol ( +PRINTOUT TERPRI) LISPSOURCEFILEP (SETFILEPTR) \INSPECTW.COMMAND.HANDLER (GETMOUSESTATE) DSPSPACEFACTOR + (\ILLEGAL.ARG) /PUTDQ (/PUTD) \SEQUIN.FLUSH.RETRANSMIT (\ENQUEUE) \DOFORMATTING.HARDCOPY ( +FREPLACEFIELD SELECTQ DECLARE \EDITSETA \TEDIT.PURGE.SPACES) EDITSHADEREPAINTFN (SHOWBUTTON +GRAYBOXAREA RESETGRID.NEW DSPFILL) MB.CREATE.NWAYBUTTON (FRPLACD DSPXOFFSET DSPYOFFSET DSPFONT +DSPRIGHTMARGIN DSPDESTINATION MOVETO PRIN1 IMAGEOBJPROP) \D01.ASSIGNBUFFERS (RAID \INITBFS) +MSSETSETTYPE (SELECTQ FIXVERBSETTYPE MSSETSETTYPE) \UFSError (SELECTQ ERROR CL:ERROR) DO.DELETE.LINES +(BITBLT BITBLT.ERASE) PRETTYVAR (printout PRIN1 PRIN2 PRETTYVAR1 ERROR) \LFTruncateFile (\UPDATEOF +UNINTERRUPTABLY \LFExtendFile \SETFILEPTR \BOUT \LFUpdateLeaderPage \PFSaveBuffers) \FM.CREATEITEM ( +\FM.READUSERDATA) SI::DESCRIBE-INTERNAL (SI::DESCRIBE-NEW-LINE CL:FORMAT) \UFS.FULLNAME (DECLARE) +FB.CLOSE&EXPUNGE (FB.FINISH.COMMAND) SEDIT::REPLACE-NODE (SEDIT::SET-SELECTION-ME SEDIT::PENDING-DELETE + SEDIT::INSERT) COMP.PROG1 (MAPC) \GETREADSYNTAX (DECLARE CHECK) \VFMFreeVPage (\VAMFreePageGroup) +CL::DEFSTRUCT-PARSE-OPTIONS (CL::ENSURE-CONSISTENT-PS) \GETTERMSYNTAX (DECLARE CHECK) +ENABLEWHEELSCROLL (INTERRUPTCHAR) D-ASSEM::COPY-LAP-CODE (FRPLACD) \NSFILING.ADDQUOTES (DECLARE +SELCHARQ RPLACD) PRETTYVAR1 (printout PRIN1 PRIN2 PRINTDEF CHANGEFONT MAPRINT) MAKEDEFLIST (PRETTYVAR1 + EXEC-FORMAT) OPT.XVARSCAN1 (OPT.COMPILERERROR) LVLPRIN1 (DECLARE LVLPRIN) \VFMDelete2 (MESASETQ +\VFMSmartBLT \VFMPutNext) \DEVICEFILE.EOSERROR (BLOCK UNINTERRUPTABLY) %%SORT-SUBLIST (%%SORT-SUBLIST) + SETCOLOR16.IP (BITBLT APPENDNUMBER.IP APPENDINTEGER.IP SCALE.IP APPENDSEQUENCEDESCRIPTOR.IP +APPENDINT.IP \BOUTS APPENDOP.IP ROTATE.IP CONCAT.IP ISET.IP) CL::SIMPLE-STRING= (%%UNPACK-STRING) +\UFSCloseDevice (DECLARE OBTAIN.MONITORLOCK \REMOVEDEVICE SI::MONITOR-UNWIND) COMPILER::FRAME-ANNOTATE-LAMBDA + (MAPC) REDISPLAYGRAPH (DSPFILL) COMPILER::META-EVAL-PROGN (FRPLACD) SEDIT::ATOM-CHAR-ESCAPED (DECLARE + CHECK) HPRINT0 (ERROR) FIX-FORM (EDITE PRINT-EVENT-PROMPT DSPFONT CURSOR DECLARE) LVLPRIN2 (DECLARE +LVLPRIN) SEDIT::DELETE-LITATOM (SEDIT::REPLACE-STRING) SEDIT::RELINEARIZE-WHERE-NECESSARY ( +SEDIT::RELINEARIZE CL:FUNCALL) COMP.VAR (COMP.STVAR) \MAKERECODEMAP (DECLARE) MKACCESSFN (RECORDERROR) + \M44ACTONVMEMFILE (\PUTBASE \BLT \SWAPDISKERROR) POSSIBILITIES (PRODUCE EVAL ADIEU) \SHOWSEL.HILIGHT +(BITBLT) PPSPPSTREAM (printout) TTYINENTRYFN (APPLY*) NESTED.SUBMENU (PUTMENUPROP) +COURIER.READ.BULKDATA (CLOSEF) \ITEM.WINDOW.SELECTION.HANDLER (TOTOPW \ITEMW.DESELECTITEM +\ITEMW.SELECTITEM GETMOUSESTATE APPLY*) \UFS.REMOVE.HOST.FIELD (LISTPUT CL:ERROR RPLACA DECLARE) +/PRINTLEVEL (UNDOSAVE) PRETTYCOM1 (PRETTYCOM DECLARE SI::RESETUNWIND) COMPAREPRINT1 (CL:PRIN1 ADD1VAR +COMPAREPRINTN PRIN1 SPACES COMPAREPRINT1) \RESHOWBORDER1 (.WHILE.TOP.DS. \PUTBASE \SOFTCURSORDOWN +\INSURETOPWDS DECLARE \SW2BM UPDATE/SCROLL/REG SHOWWFRAME BITBLT \SOFTCURSORUPCURRENT) LVLPRIN ( +LVLPRIN0) MB.THREESTATE.WHENOPERATEDFN (MB.THREESTATEBUTTON.FN) ACCEPT-UNIX-SOCKET-STREAM ( +FREPLACEFIELD) RENUMBER.LINES (ADD1VAR) \REMOVE-DECLS (CL:MAPC MAPC) SETCOLORLV.IP (BITBLT +APPENDNUMBER.IP APPENDINTEGER.IP SCALE.IP APPENDSEQUENCEDESCRIPTOR.IP APPENDBYTE.IP \BOUT APPENDOP.IP +ROTATE.IP CONCAT.IP ISET.IP) \TEDIT.FORMATTABS (SELECTQ \RPLPTR SHOULDNT) +SI::UNADVISE-FROM-RESTORE-CALLS (SI::FINISH-UNADVISING) DEFAULT.INSPECTW.VALUECOMMANDFN (printout +TERPRI GETMOUSESTATE) SEDIT::COPY-STRUCTURE-STRING (RPLACA) COMPILER::EFFECTS-ANALYZE-LAMBDA ( +COMPILER::EFFECTS-ANALYZE) \LFGetFileName (DECLARE OBTAIN.MONITORLOCK SI::MONITOR-UNWIND) \INITBFS ( +RAID \BLT \EXTENDEDVMEMINIT) COMPILER::GENCODE-CALL (MAPC COMPILER::GENCODE-LET COMPILER::GENCODE-LAMBDA +) LVLPRINT (LVLPRIN2 TERPRI) TEDIT.BUILD.PCTB (COPYBYTES CLOSEF COPYCHARS SELECTQ SHOULDNT SETFILEPTR +SELECTC SETA \TEDIT.GET.CHARLOOKS TEDIT.GET.OBJECT TEDIT.PROMPTPRINT \INSERTPIECE) COMP.CONST ( +COMP.STJUMP) OPT.XVARSCAN (MAPC SELECTQ OPT.XVARSCAN1) \TEDIT.NSCHAR.RUN (HELP \DELETECH +\TEDIT.INSERT.PIECES FREPLACEFIELD SETFILEPTR BOUT) READVARS (HPINITRDTBL HVREADERR SAVESET) +TERM.DELCHAR (BITBLT) \TELERAIDSERVER (DECLARE SELECTC \BLT \ACTONVMEMFILE \TELERAIDSEND \PUTBASE +\TELERAIDRELEASE \TELERAIDEXIT \TELEBLTCURSOR HARDRESET \CONTEXTSWITCH \UPDATETIMERS \BOXIPLUS) +\TEDIT.PURGE.SPACES (DECLARE \EDITSETA) UNMAKEHARDCOPYSTREAM (DECLARE STREAMPROP) READARRAY-FROM-LIST +(SETA SETD) TEDIT.PAGEFORMAT (\ILLEGAL.ARG) \UFS.DIRECTORY.NAME (RPLSTRING DECLARE OBTAIN.MONITORLOCK +SI::MONITOR-UNWIND) XCL::%%DELETE-DEFINER (/REMPROP) LVLPRIN0 (PRIN1 PRIN2 SPACES LVLPRIN0) PPSPP ( +printout PRINTNUM PPSPPSTREAM DECLARE PRINTSPP SI::RESETUNWIND) INVERTED/SHADE/FOR/GRAPHER (BLTSHADE) +PRINTPARA1 (TERPRI RPTQ PRIN3 PRIN4) PFI.PRINT.LAMBDA (PFI.MAYBE.NEW.PAGE PFI.ADD.TO.INDEX +PFI.PRINT.LAMBDA.BODY) SETSYNTAX (\ILLEGAL.ARG \SETREADSYNTAX \SETTERMSYNTAX) \TRANSLATE-CL%:LAMBDA ( +SELECTQ ERROR SHOULDNT CL:MULTIPLE-VALUE-SETQ) \LFGetFileInfo (DECLARE OBTAIN.MONITORLOCK \UPDATEOF +SI::MONITOR-UNWIND) \FM.UNSCROLLWINDOW (DSPXOFFSET DSPYOFFSET) \SETTERMSYNTAX (CHECK DECLARE) +D-ASSEM::DCODE-FROM-DLAMBDA (D-ASSEM::DIGEST-FUNCTION D-ASSEM::GENERATE-EASY-ENTRY +D-ASSEM::GENERATE-HARD-ENTRY D-ASSEM::STACK-ANALYZE D-ASSEM::ASSEMBLE D-ASSEM::EMIT-BYTE +D-ASSEM::CONVERT-TO-BINARY D-ASSEM::COMPUTE-DEBUGGING-INFO) /MOVD (LISPXPRIN1 LISPXPRIN2 /PUTD +MARKASCHANGED ADDSPELL) \SETREADSYNTAX (DECLARE CHECK \SETMACROSYNTAX UNINTERRUPTABLY REMHASH +\ILLEGAL.ARG) EDITGRAPH2 (printout GETMOUSESTATE TRACKNODE) MB.THREESTATE.SHOWSELFN (SELECTQ BITBLT +DRAWLINE) PRINTPARA (DECLARE) \PFFetchString (RPLCHARCODE) \FM.CHECKDESCRIPTION (MAPC LISTPUT) SYNTAXP + (DECLARE CHECK) \QUEUE.INPUT.IOCB (SELECTC \DEVICE.OUTPUT \DoveEther.QueueInput \NOMACHINETYPE) +DSUBLIS (RPLACA RPLACD) PFI.HANDLE.DEFINEQ (PRIN1 PRINT MAPC) \10MB.STARTDRIVER (DECLARE ERROR +\10MB.TURNONETHER) \COPYSYNTAX (CHECK \MOVEBYTES) DSPNEWPAGE (IMAGEOP) SHOWDEF (DECLARE RESETSAVE +OUTFILE PRETTYCOM) CREATE-UNIX-SOCKET-STREAM (FREPLACEFIELD) \READBMDIMENSIONS (PRIN1 TERPRI) +DINFO.SETUP.WINDOW (WINDOWPROP DETACHALLWINDOWS DINFO.ADD.FMENU DINFO.UPDATE.TEXT.DISPLAY) +\MAPCHARTABLE (APPLY*) SEDIT::BACKSPACE-QUOTE (SEDIT::SET-SELECTION-NOWHERE SEDIT::SET-SELECTION-ME +SEDIT::EXTRACT-CURRENT-SELECTION) \VFMFind (\VFMReadNext APPLY) D-ASSEM::DETERMINE-LOCAL-FN-LEXICAL-LEVEL + (MAPC) \VAMRecomputeFreePageCount (DECLARE OBTAIN.MONITORLOCK \PFPutLogicalVolumePage +SI::MONITOR-UNWIND) SEditicide (CLOSEW) PRINT3TO10 (FRESHLINE SELECTC printout PRINTNSHOSTNUMBER) +DWIMIFY0 (LISPXPUT DWIMARKASCHANGED DWIMUNSAVEDEF) BIGNUM.DEFPRINT (NCONC1 .SPACECHECK. MAPC) +\MAIKO.NEWFAULTINIT (\MAIKO.ASSIGNBUFFERS) \UFStoOtherRenameMess (DECLARE) MSCHECKVARS1 (DOERROR MAPC +NECCSPEC) PPT (DECLARE SI::RESETUNWIND) \NSRANDOM.HANDLE.ERROR (TERPRI) FW-CLOSE-CMD (DECLARE CLOSEF? +PROMPTPRINT BLOCK) D-ASSEM::DIGEST-FUNCTION (MAPC MAP D-ASSEM::DIGEST-CODE) COMPILER::TEST-META-EVAL ( +COMPILER::RELEASE-TREE) \BITMAPFROMTEXTURE (BITMAPBIT) \TEDIT.WINDOW.SETUP (\ILLEGAL.ARG +TEDIT.WINDOW.SETUP WINDOWADDPROP \TEDIT.WINDOW.TITLE) \ATWGROUPSIZE (MAPC) DRAWBETWEEN (ERROR) +\VFMDeletePageGroup (DECLARE OBTAIN.MONITORLOCK \VFMContextSet MESASETQ DiskError LISPERROR \VFMDelete + \VFMInsert SI::MONITOR-UNWIND) ROTATE.IP (APPENDNUMBER.IP) READARRAY (SETA SETD) +READ-UNICODE-MAPPING-FILENAMES (FRPLACD) TYPESOF (CL:FLET RSHADOW) DELFROMCOM (MARKASCHANGED SAVESET +/RPLACD /DREMOVE /RPLACA) /MAPCONC (/RPLACD) FB.UPDATE.COUNTERS (PRIN3 BLTSHADE) \SHAPEW2 (DECLARE +\ILLEGAL.ARG UNINTERRUPTABLY \CLOSEW1 ADVISEWDS SHOWWFRAME DOUSERFNS2) EDITDELETENODE (PROMPTPRINT +PRIN1 FLIPNODE DISPLAYNODE MAPC GRAPHDELETENODE) D-ASSEM::STORE-DIGEST-INFO (MAPC) \BN.NZEROS (FRPLACD +) EDITGRAPH1 (WINDOWPROP DSPOPERATION REDISPLAYGRAPH EDITGRAPH2) PRINTSPP (printout SPACES +PRINTPACKETDATA) SEDIT::COLLECT-UNDO-BLOCK (RPLACD RPLACA) \STRINGOUT (\SMALLPOUT DECLARE) +TEDIT.HARDCOPYFN (RESETLST) \IDLE.PROMPT.WATCHER (DISMISS PROCESS.EVAL) PFI.HANDLE.DEFDEFINER ( +PFI.MAYBE.NEW.PAGE PUT PFI.ADD.TO.INDEX) INSPECTABLEFIELDNAMES (FRPLACD) \M-VMEMSAVE (\DOCOMPRESSVMEM +\BLT) GETCFILE (CLOSEF TERPRI ERROR! PRIN1) PRINENDLINE (TERPRI RPTQ PRIN3) \DOCOMPRESSVMEM ( +\MOVEVMEMFILEPAGE) DMCHAT.CLEAR (CLEARW DMCHAT.CLEARMODES) LISPXUSE1 (ERROR RPLACA) MAKEHARDCOPYSTREAM + (DECLARE STREAMPROP DSPXPOSITION DSPYPOSITION) \SEQUIN.CLEANUP (\SEQUIN.CONTROL) ITEMW.REPAINTFN ( +PRINTATBOX) ADDHASH (NCONC1 PUTHASH) POLYSHADE.SCAN.IP (SCALE.IP CONCATT.IP \POLYSHADE.XSCAN.IP +\POLYSHADE.YSCAN.IP) COMPILER::META-EVAL-MV-PROG1 (COMPILER::MEVAL COMPILER::REMOVE-NESTED-PROGNS) +\TEDIT.APPLY.PARALOOKS (SELECTQ TEDIT.PARALOOKS \SHOWSEL TTY.PROCESS) \FM.RESHAPEFN (\FM.ENDEDIT +\FM.TRANSPOSEHORZ \FM.TRANSPOSEVERT \FM.UPDATEGROUPEXTENT \FM.UNSCROLLWINDOW) PFI.PRINT.LAMBDA.BODY ( +CHANGEFONT PRIN2 TERPRI SPACES PRINTDEF) PRINTARRAY (PRIN1 PRIN2 SPACES) \LFReadPages ( +\LFExtendFileIfNecessary \UPDATEOF \PFGetPage \CLEARBYTES \CLEARWORDS) \FM.PUSHGROUP (MAPC) DELETELINE + (MOVE.BACK.TO DO.DELETE.LINES RENUMBER.LINES KILLSEGMENT KILL.LINES GO.TO.RELATIVE) BITMAPOBJ.SNAPW ( +BITBLT COPYINSERT) SUBPRINT/ENDLINE (SUPERPRINT PRINENDLINE) COMP.USERFN (DECLARE) SHAPEW1 (DECLARE +\ILLEGAL.ARG UNINTERRUPTABLY \CLOSEW1 ADVISEWDS SHOWWFRAME DOUSERFNS2) PRINTERROR (SELECTQ PRIN2 +SPACES TERPRI FRPLACA TAB SHORTLST MAPC) FITP (DECLARE) SEDIT::PROPAGATE-WIDTH-CHANGE ( +SEDIT::RECOMPUTE-WIDTH) XCL::EXEC-SHRINKFN (ADD.PROCESS TTY.PROCESS) OPT.SCANOPT (OPT.CCHECK OPT.PRDEL + MAPC RPTQ FRPLACA) \UFS.HANDLE.RELATIVEDIRECTORY (DECLARE) SUPERPRINT (SUBPRINT/ENDLINE) +PFI.HANDLE.EVAL-WHEN (PFI.MAYBE.NEW.PAGE PRIN1 PRIN2 SPACES PRINT PFI.HANDLE.EXPR PRINTDEF) +DECODEBUTTONS (DECLARE) SUBHASH (PUTHASH) FW-CHANGE-POSITION (DECLARE CLRPROMPT printout) Inspecticide + (CLOSEW) MAKEHVPRETTYCOMS (HPINITRDTBL MAPC) SCALE2.IP (APPENDNUMBER.IP) SI::UNBREAK-FROM-RESTORE-CALLS + (SI::FINISH-UNBREAKING) D-ASSEM::GENERATE-HARD-ENTRY (D-ASSEM::GENERATE-OPT-AND-REST D-ASSEM::GENERATE-KEY +) \TEXTDSPFONT (TEDIT.CARETLOOKS MAPC) \MENU.ITEM.SELECT (DECLARE) PRETTYPRINT2 (SETFILEPTR RATOM +LISPXPRINT ERROR COPYCHARS) CHAT.SET.EMULATOR (DEL.PROCESS CLEARW) \FM.REDISPLAYMENU ( +\FM.RESETCLIPPINGREGION \FM.FILLWINDOW) RESETGRID.NEW (BLTSHADE SCALEBM) ECHOCHAR (CHECK \SETSYNCODE) +\LFSetFileInfo (DECLARE OBTAIN.MONITORLOCK \LFUpdateLeaderPage SI::MONITOR-UNWIND) \FM.JUSTIFYGROUPS ( +SELECTQ \FM.PUSHGROUP) D-ASSEM::GATHER-ROOTS (D-ASSEM::REACH-TAGS) GETFILEPKGTYPE (FRPLACD) +COMP.TRYUSERFN (COMPERRM) FB.DELETECOMMAND (TB.MAP.SELECTED.ITEMS) OPT.SETUPOPT (SELECTQ FRPLACA +NCONC1 RPLACA) KEYWORD-TEST (MAP) \COURIER.EXPEDITED.OVERFLOW (printout TERPRI) \TEDIT.FIXSELS ( +\FIXSEL) SEDIT::SHIFT-STRING (\BLT \PUTBASE) MARGINBAR (DRAWMARGINSCALE DSPFONT BITBLT MOVETO PRIN1 +DSPFILL MAPC) \NOTE.3TO10 (RPLACA FREPLACEFIELD) TERM.ADDCHAR (BITBLT) \HDCPYDSPPRINTCHAR (\CHECKCARET + CHECK \HDCPYBLTCHAR \DSPPRINTCR/LF DSPBACKUP) \BN.ICANON (RPLACA RPLACD) \POSITION.MENU.IMAGE ( +GETMOUSESTATE CHECK/MENU/IMAGE MOVEW SHOWSHADEDITEMS) COMPILER::GENERATE-CODE (COMPILER::GENCODE-LAMBDA +) SEDIT::COPY-SELECTION-LITATOM (BKSYSBUF) GETXIP (UNINTERRUPTABLY LISPERROR AWAIT.EVENT +\MAYBEPRINTPACKET printout PRIN1) \10MB.INPUT.INTERRUPT (\DEQUEUE \10MB.NOTESTAT \RCLK \PUTBASE +\TEMPUNLOCKPAGES \ENQUEUE \TEMPLOCKPAGES \QUEUE.INPUT.IOCB SETUPTIMER \10MB.RESTART.ETHER) DREVERSE ( +DECLARE) ECHOCONTROL (\ILLEGAL.ARG) \TEXTMENU.DOC.CREATE (SELECTQ TEDIT.INSERT.OBJECT TEDIT.LOOKS +TEDIT.INSERT \ILLEGAL.ARG FREPLACEFIELD) \DL.NEWFAULTINIT (\WRITEMAP \MP.ERROR \BLT \DL.UNMAPPAGES +\DoveIO.InitializeIORegionPtrs \CLEARWORDS \DL.MARK.PAGES.UNAVAILABLE \CHAIN.UP.RPT \DL.ASSIGNBUFFERS) + MB.THREESTATEBUTTON.FN (APPLY*) DRAWCURVE (IMAGEOP) \FM.OPENFN (\FM.INSUREWINDOW) \LFWritePages ( +\LFUpdateLeaderPage \LFExtendFileIfNecessary \PFPutPage) SEDIT::COMPUTE-SELECTION-POSITION-LITATOM ( +SEDIT::STRING-OFFSET) BRUSHP (DECLARE) NOSUCHATOM (printout PRIN1) COMP.PROGLST (COMPERRM SELECTQ MAPC +) MAPRELATION (DECLARE MAP) %%SORT-VECTOR (%%VECTOR-QUICK-SORT %%VECTOR-INSERTION-SORT +%%SIMPLE-VECTOR-QUICK-SORT %%SIMPLE-VECTOR-INSERTION-SORT) \SEQUIN.RETRANSMITNEXT (SENDPUP +FREPLACEFIELD) TEDIT.GET (FRESHLINE RESETLST WINDOWPROP \FILLWINDOW TEDIT.PROMPTPRINT) PUTMENUPROP ( +LISTPUT) FIXAPPLY1 (SETSTKARG /RPLNODE RELSTK) ADDTOCOM (MARKASCHANGED /RPLACA) /MAPCON (/RPLACD) +\BN.MADD (RPLACA RPLACD) \MENU.ITEM.DESELECT (DECLARE) COMPAREPRINT (PRINT PRIN1 COMPAREPRINT1 TERPRI) + MSCHECKBLOCKBASIC (MAPC FRPLACD) OPT.POSTOPT (MAPC OPT.SETUPOPT OPT.SCANOPT OPT.JUMPOPT OPT.RETOPT +OPT.CCHECK OPT.XVARSCAN BLOCK) MOVE.BACK.TO (GO.TO.RELATIVE) CL:IF (DECLARE) DRAWELLIPSE (DECLARE) +\IDLE.ISMEMBER (PRINTOUT) PFI.HANDLE.DECLARE (TERPRI PRIN1 PRINTDEF SPACES PRIN2 PFI.HANDLE.EXPR) +TEXTMENU.CLOSEFN (FREEATTACHEDWINDOW TEDIT.KILL) POLYSHADE.IP (DECLARE) D-ASSEM::REDUCE-UNCERTAINTY ( +MAPC) TEDIT.DELETELINE (\TEDIT.CLOSEUPLINES) HASHLINKS (FRPLACD) RESETTERMTABLE (\COPYSYNTAX) +\LFOpenFile (DECLARE OBTAIN.MONITORLOCK \LFUpdateLeaderPage SI::MONITOR-UNWIND) SHOWBUTTON (WBOX +CENTERPRINTINREGION) D-ASSEM::STACK-ANALYZE (D-ASSEM::STACK-ANALYZE-CODE) \UFS.REGISTER.GFS (DECLARE) +SEDIT::PARSE--GAP (SEDIT::BUILD-NODE) COMP.UNBIND.VARS (OPT.CCHECK COMP.STUNBIND) \DOFORMATTING ( +FREPLACEFIELD SELECTQ DECLARE \EDITSETA \TEDIT.PURGE.SPACES) ACCESSDEF (/RPLNODE FRPLACA) PRINTATBOX ( +DSPFILL MOVETO) \TEDIT.BASICFIND (\SETUPGETCH) \CH.PRINT.BLURB (TERPRI) +SEDIT::COMPUTE-POINT-POSITION-LITATOM (SEDIT::STRING-OFFSET) \10MB.OUTPUT.INTERRUPT (\DEQUEUE +\REQUEUE.ETHERPACKET \RELEASE.IOCB \TEMPUNLOCKPAGES \10MB.NOTESTAT) TIMEALL (printout PRIN1 DECLARE +COMPILE1) \INITBIGNUMS (\SETTYPEMASK) FB.HEADINGW.RESHAPEFN (CLEARW) \EVAL-INVOKE-LAMBDA (DECLARE) +\UFS.NEXTFILEFN (DECLARE \UFS.UNREGISTER.GFS) \TEDIT.HARDCOPY.MODIFYLOOKS (DRAWLINE) \SETTYPEMASK ( +FREPLACEFIELD \MAPMDS) COMP.EQ (COMP.VAL COMP.PROGLST COMP.DELPUSH) \ORIGTERMTABLE (MAPC ECHOCHAR) +DELFROMCOM1 (SAVESET /RPLACD MARKASCHANGED) CL:EVAL (DECLARE) CHOOZ (MAPC RELSTK) \UFS.FILEINFOFN ( +BLOCK \UFS.UNREGISTER.GFS) \IDLE.AUTHENTICATE (printout) COMPILER::META-SUBST-VAR-REF (COMPILER::RELEASE-TREE +) \INTERPRET-ARGUMENTS (CL:ERROR FRPLACD CHECK-KEYWORDS) \VAMFreePageGroup (DECLARE OBTAIN.MONITORLOCK + WITH-RESOURCE FREERESOURCE \VAMUpdateVAM FREPLACEFIELD SI::MONITOR-UNWIND) COMP.UNBOX (COMP.DELFN +COMP.FLOATUNBOX HELP COMP.DELFIX COMP.STFN) \NS.SETTIME (\PROCESS.RESET.TIMERS) TERM.DELETELINE ( +BITBLT) \FIXLOCALNET (RPLACA) XCL::EXEC-CLOSEFN (ADD.PROCESS TTY.PROCESS) ADDNEWCOM (/ATTACH /RPLACD +MARKASCHANGED) /LISTPUT1 (/RPLACA /RPLACD) \PUP.SETTIME (\PROCESS.RESET.TIMERS) GETCLEARINGHOUSE ( +DECLARE OBTAIN.MONITORLOCK SI::MONITOR-UNWIND) MSCHECKFNINBLOCK (MAPC) PEEKC (DECLARE) \FM.LAYOUTGRID +(\FM.SETUPPROPS RPLNODE2 \FM.CHECKPROPS \FM.SETFORMATPROPS \FM.UPDATEGRID TCONC LCONC EXTENDREGION +\FM.CHECKDESCRIPTION \FM.UPDATEFORBOX) \NSRANDOM.FETCH.CACHE (UNINTERRUPTABLY RPLACD RPLACA) +D-ASSEM::CONVERT-TO-BINARY (MAPC) TEDIT.MINIMAL.WINDOW.SETUP (\ILLEGAL.ARG DSPRIGHTMARGIN RPLACD +DSPOPERATION \FIXSEL TEDIT.NORMALIZECARET \SHOWSEL \TEDIT.SET.WINDOW.EXTENT \COPYSEL) PEEKCCODE ( +DECLARE) SEDIT::SELECT-NODE-SEGMENT (SEDIT::SELECT-SEGMENT) FINDFN (RELSTK) FW-CHANGE-JUSTIFICATION ( +DECLARE CLRPROMPT printout PRIN1) \PEEKREFILL (DECLARE \RESETLINE) CLISP% (RELSTK CLISPTRAN /RPLNODE) + ISET.IP (APPENDINTEGER.IP) \LOOKUPPORT (SETUPPUP PUTPUPSTRING SELECTC printout PRIN1 FRPLACD +RELEASE.PUP) BRKDWNINIT (SETA) \CHECKEOLC.CRLF (\INCCODE \BACKCCODE) \TEDIT.APPLY.STYLES (\TEDIT.CHECK +) /DSUBST (/RPLACA /DSUBST /RPLACD) \POLYSHADE.YSCAN.IP (SETCOLOR.IP \DrawScanList.YScan.IP) +\PARSE.PORTCONSTANT (DECLARE) \NSIN.24BITENCODING.ERROR (DECLARE ERROR) PROMPTFOREVALED (RESETFORM +CLOSEW) /NCONC (/RPLACD) DIRECTORY.PARSE (DECLARE) COMPILER::PEEPHOLE-OPTIMIZE (DECLARE +COMPILER::FIND-REACHABLE-TAGS) RATOM (DECLARE FREERESOURCE) SENDXIP (AWAIT.EVENT \RCLK printout +PRINTXIPROUTE \REQUEUE.ETHERPACKET \SETXIPCHECKSUM \MAYBEPRINTPACKET TRANSMIT.ETHERPACKET) +FORWARD.DELETE.TO (ERASE.TO.END.OF.LINE TTDELSECTION KILLSEGMENT ADJUSTLINE.AND.RESTORE) +\DL.ASSIGNBUFFERS (\CLEARWORDS) LATTICE/BREAK/CYCLES (RPLACA LATTICE/BREAK/CYCLES) \10MBWATCHER ( +PROMPTPRINT UNINTERRUPTABLY \HANDLE.RAW.PACKET BLOCK) \BLTSHADE.GENERICPRINTER (\BLTSHADE.BITMAP +BITBLT) \SUBREAD (DECLARE CHECK \PNAMESTRINGPUTCHAR \INVALID.SYMBOL \RDCONC \BACKCCODE FIXDOT CL:ERROR + SELECTQ FREERESOURCE SHOULDNT) RESETREADTABLE (CLRHASH REHASH \COPYSYNTAX) INTERPRET/MARK/FORMAT ( +DECLARE) /RPLACD (UNDOSAVE PRIN1) CONVERT.FILE.TO.TYPE.FOR.PRINTER (APPLY* RESETSAVE) \ARBOUT ( +\SMALLPOUT DECLARE PRIN2) \CLEARWORDS (.CLEARNWORDS. \PUTBASE \BLT) MSCHECKBOUNDFREE (CLRHASH NECCSPEC + SELECTQ UNECCSPEC) GRAPHDELETENODE (APPLY*) /LISTPUT (/RPLACA /RPLACD /RPLNODE) UPPERCASEARRAY ( +SETCASEARRAY) POSTSCRIPT.PUTBITMAPBYTES (DECLARE BOUT \MOVEBYTES) \DL.UNMAPPAGES (\WRITEMAP) +\RATOM/RSTRING-REFILL (DECLARE APPLY* \FILLBUFFER) ONEDINSPECT.SCROLLFN (APPLY* SCROLLBYREPAINTFN) +SMASH.THE.DAMNED.CONST.IN.ATTACHWINDOW (ATTACHWINDOW RPLACD) /RPLACA (UNDOSAVE PRIN1) PFI.HANDLE.RPAQQ + (PFI.MAYBE.NEW.PAGE RPLACD CL:PROGV PFI.ADD.TO.INDEX) DETACHWINDOW (WINDOWDELPROP UNMAKEMAINWINDOW +SELECTQ) COMP.UBFLOAT2 (COMP.VAL COMP.FLOATUNBOX FRPTQ COMP.FLOATBOX) SHOWPRIN2 (PRINTDEF PRIN2) +HARDCOPYGRAPH (DSPLEFTMARGIN DSPBOTTOMMARGIN DSPTOPMARGIN DSPRIGHTMARGIN MAPC) \TEDIT.FIND.FIRST.LINE +(\SETUPGETCH) \PS.BOUTFIXP (DECLARE \PUTBASEBYTE) /SETPROPLIST (UNDOSAVE) /PUTHASH (UNDOSAVE) +\TOP-LEVEL-READ (DECLARE FREERESOURCE HASH-STRUCTURE-SMASH) FB.DELETE.FILE (TB.DELETE.ITEM +FREPLACEFIELD) SEDIT::CLOSE-NODE-LITATOM (SEDIT::UNDO-BY SEDIT::RELEASE-OPEN-STRING SEDIT::SUBNODE-CHANGED + SEDIT::NOTE-CHANGE-IN-SIMPLE) READC (DECLARE) \LFGenerateFiles (DECLARE OBTAIN.MONITORLOCK FRPLACD +\LFSortFiles \LFFindInfo SI::MONITOR-UNWIND) \DO.PROGV (DECLARE MAPC CHECK-BINDABLE +.CALLAFTERPUSHINGNILS.) \READCREFILL (DECLARE APPLY* \FILLBUFFER) COMP.BIND.VARS (MAPC COMP.EXPR +COMP.VAL COMP.DELPUSH COMPERROR) \CREATEW1 (ERROR OPENW) FIND.MATCHING.QUOTE (SELECTC DECLARE CHECK) +FILLRECTANGLE.IP (APPENDINTEGER.IP) \UFS.ABORT.DIRECTORY (DECLARE) READCCODE (DECLARE) GET-RIGHTW ( +DSPFONT) SEDIT::PARSE (CL:FUNCALL) EDITBMRESHAPEFN (EDITBMREPAINTFN) MOVETOP (FRPLACD FRPLACA) +SHOWSTACKBLOCKS (SELECTC SHOWSTACKBLOCK1 PRIN2 PRIN1 PRINTNUM TERPRI READC) MENUDESELECT (SHADEITEM) +SUBFIELDCREATE (FRPLACD) \UFS.ABORT.CL-DIRECTORY (DECLARE) PURGEHISTORY (DECLARE SELECTQ TERPRI HELP +PURGEHISTORY1 MAPC SI::RESETUNWIND) READTABLEPROP (REMHASH PUTHASH \SETREADSYNTAX) LISPXTAB (LISPXPUT) + \10MB.PRINT.ENCAPSULATION (FRESHLINE printout PRINTNSHOSTNUMBER TERPRI) \TEXTOPENF ( +\TEXTOPENF-SUBTREE) GENERATOR (FRPLACA FRPLACD RESUME) POSTSCRIPT.SHOWACCUM (POSTSCRIPT.OUTSTR +\BOUTEOL) SKIPSEPRCODES (DECLARE CHECK \INCCODE) \TEDIT.MENU.WHENHELDFN (CLRPROMPT) /PUTASSOC (/RPLACD +) SEDIT::EDIT-SELECTION (SEDIT::SET-SELECTION-NOWHERE SEDIT::SET-POINT-NOWHERE CL:FORMAT) +\UFS.CLEANUP.GFS.TABLE (MAPHASH) MSCHECKBLOCKS (MAPC MSNOTICEFILE UPDATECHANGED TAB FRPLACD) +BMOBJ.GETFN4 (BIN) \FM.LAYOUTCOLUMN (\FM.SETUPPROPS RPLNODE2 \FM.CHECKPROPS \FM.SETFORMATPROPS +\FM.CHECKFORBOX TCONC LCONC EXTENDREGION \FM.CHECKDESCRIPTION \FM.UPDATEFORBOX) UPDATE/SHADE/DISPLAY ( +TILEAREA) SHOWPRINT (PRINTDEF TERPRI PRINT) \FM.LAYOUTROW (\FM.SETUPPROPS RPLNODE2 \FM.CHECKPROPS +\FM.SETFORMATPROPS \FM.CHECKFORBOX TCONC LCONC EXTENDREGION \FM.CHECKDESCRIPTION \FM.UPDATEFORBOX) +XCL::WALK-DECLARATIONS (CL:MULTIPLE-VALUE-SETQ) COMP.CHECK.VAR (COMPERRM) COMP.FLOATUNBOX (COMP.DELFIX + COMP.DELPUSH COMP.STCONST COMP.EXPR) \VFMCreateVPage (DiskError LISPERROR) \SIMPLIFY.CL.ARGLIST ( +FRPLACD) \VAMAllocPageGroup (DECLARE OBTAIN.MONITORLOCK \VAMFindFreePages FREPLACEFIELD WITH-RESOURCE +FREERESOURCE SI::MONITOR-UNWIND) LAYOUTGRAPH (DECLARE INTERPRET/MARK/FORMAT INIT/NODES/FOR/LAYOUT +SWITCH/NODE/HEIGHT/WIDTH MAPC REFLECT/GRAPH/DIAGONALLY REFLECT/GRAPH/VERTICALLY +REFLECT/GRAPH/HORIZONTALLY) INITIALIZECOLOR.IP (APPENDINTEGER.IP APPENDOP.IP APPENDIDENTIFIER.IP +FSET.IP) INSPECT/TOP/LEVEL/LIST (FRPLACD NCONC1 printout TERPRI) FOREST/BREAK/CYCLES (DECLARE RPLACA +FOREST/BREAK/CYCLES) \FAULTHANDLER (\PAGEFAULT \CONTEXTSWITCH) \UFSMakeUnixFormatName (DECLARE) +\SEQUIN.HANDLE.INPUT (RELEASE.PUP SEQUINOP SELECTC \SEQUIN.CONTROL \SEQUIN.HANDLE.ACK UNINTERRUPTABLY +INCLEAFSTAT \SEQUIN.RETRANSMIT \SEQUIN.FLUSH.CONNECTION) SKREAD (DECLARE CHECK \TOP-LEVEL-READ) +ADJUSTOFFSETS (WYOFFSET WXOFFSET) INFILEPAIRS (INFILECOMSVAL) \SEQUIN.RETRANSMIT (BLOCK +UNINTERRUPTABLY) DMCHAT.HANDLECHARACTER (\DTEST CL:FUNCALL TERM.DOWN TERM.ADDCHAR SELCHARQ +TERM.ADDLINE DMCHAT.NEWLINE TERM.DELCHAR TERM.LEFT TERM.ERASE.TO.EOL TERM.HOME DMCHAT.CLEARMODES +DMCHAT.CLEAR DMCHAT.RIGHT TERM.DELETELINE TERM.UP TERM.MODIFY.ATTRIBUTES) \UFSParseNameString (DECLARE +) CL:MAKE-CONCATENATED-STREAM (STREAMPROP) MSDWIMTRAN (MSPRGDWIM) I.S.OPR (/PUT /REMPROP ERROR +LISPXPRINT MAPHASH /NCONC1 /NCONC MARKASCHANGED) \UFSParse-Directory (DECLARE) MSCHECKBLOCK (DECLARE +MAPC SET MSCHECKBLOCKBASIC MSCHECKFNINBLOCK UNECCSPEC MSCHECKBOUNDFREE FRPLACD TERPRI MSMSGPRINT) +MB.CREATE.THREESTATEBUTTON (DSPXOFFSET DSPYOFFSET DSPFONT MOVETO PRIN1) SEDIT::BACKSPACE-LITATOM ( +SEDIT::SET-POINT-LITATOM SEDIT::DELETE-LITATOM) TOTOPW.MODERNIZE (TOTOPW) MAKEHASHLINKS (FRPLACD) +CL:READ (FREERESOURCE DECLARE) \LFEventFn (DECLARE OBTAIN.MONITORLOCK \LFCloseDevice +\PFEnsureInitialized \LFOpenDevice \REMOVEDEVICE \FLUSH.OPEN.STREAMS \PFSaveBuffers SI::MONITOR-UNWIND +) \NSRANDOM.READ.SEGMENT (\NSRANDOM.REESTABLISH \NSRANDOM.HANDLE.ERROR \CLEARBYTES) RESETUNDO (FRPLACA + FRPLACD) \ASSURE.FPTOVP.PAGE (\DONEWPAGE) \INSPECT.STORE.FATCHAR (UNDOSAVE) /LCONC (ERROR) +CL:READ-PRESERVING-WHITESPACE (FREERESOURCE DECLARE) \TEDIT.HARDCOPY.DISPLAYLINE ( +\TEDIT.HARDCOPY.FORMATLINE DECLARE DSPSPACEFACTOR MOVETO DSPFONT STREAMPROP SELECTC +\TEDIT.HARDCOPY.MODIFYLOOKS \OUTCHAR APPLY* \TEDIT.MARK.REVISION) CREATEW1 (PROMPTPRINT HELP ERROR +OPENW) BACKWARD.DELETE.TO (MOVE.BACK.TO) SETCOLOR.IP (SETRGB.IP APPENDINTEGER.IP) CL:READ-DELIMITED-LIST + (FREERESOURCE DECLARE) TWODINSPECT.SCROLLFN (APPLY* SCROLLBYREPAINTFN) LISPX (DECLARE FRPLACA ERROR! +MAPC PRINTHISTORY ERROR ADDSPELL LISPXSTOREVALUE LISPXPRIN1 SI::RESETUNWIND /PUT /REMPROP /SETATOMVAL +LISPXUNREAD LISPX) BMOBJ.GETFN3 (BIN) SHOWSTACKBLOCK1 (PRINTNUM SPACES) CL:PARSE-INTEGER (DECLARE +CHECK SELCHARQ CL:ERROR) SHAPEW.AND.SAVE (WINDOWPROP) MENUSELECT (SHADEITEM) MSPRGDWIM (DECLARE +DWIMIFY0 SI::RESETUNWIND) COMPILER::META-EVAL-CALL (COMPILER::RELEASE-TREE FRPLACD) +\TEDIT.CREATE.LINECACHE (FRPLACD MAP) \UPDATE.PSC (\SETXFORM.PSC \SWITCHFONTS.PSC) PRIN2-LONG-STRING ( +DECLARE PRIN1S PRINENDLINE \OUTCHAR SELCHARQ SHOULDNT CHECK) INFILECOMSMACRO (INFILECOMSVAL) +\FM.FORMATBYGRID (MAPC LCONC EXTENDREGION \FM.PUSHGROUP LISTPUT) SEDIT::BACKSPACE-UNKNOWN (SEDIT::SET-POINT +) COMP.TOPLEVEL.COMPILE (COMPERROR COMP.STTAG COMP.VALN COMP.UNBIND.VARS FRPLACD COMPPRINT RESETFORM) +COMP.LOOKFORDECLARE (SELECTQ MAPC) \DRAWPOLYGON.GENERIC (DRAWLINE DRAWPOINT) CMLRDTBL (SETSYNTAX +SETSEPR READTABLEPROP SET-DEFAULT-HASHMACRO-SETTINGS) \SETNEWTIME0 (\SETDAYTIME0 DECLARE printout +TERPRI) EDIT-IN-FUNCTION (EDITDEF) FINDATOM (RELSTK) DINFO.READ.GRAPH (printout TERPRI) DUMPGRAPH (TAB + HPRINT MAPC) \DRAWCIRCLE.GENERIC (DRAWCURVE) EDIT-IN-FNS (EDITDEF) RIGHTW.REPAINTFN ( +WITH-INSPECTOR-ENV MOVETO PRIN2) EDITBMREPAINTFN (CLEARW BLTSHADE UPDATE/BM/DISPLAY GRID RESETGRID.NEW +) SEDIT::BACKSPACE-GAP (SEDIT::SET-SELECTION-ME) LOWERCASE (RPAQ MAPC) DMCHAT.CLEARMODES (\DTEST +DSPFONT) \LFDirectoryNameP (DECLARE OBTAIN.MONITORLOCK SI::MONITOR-UNWIND) \FM.FORMATEXPLICIT (MAPC +TCONC \FM.CHECKDESCRIPTION LISTPUT) FILEPKGCOM (/SETTOPVAL /RPLACD) CHDIR (DECLARE OBTAIN.MONITORLOCK +SI::MONITOR-UNWIND) /ECHOMODE (UNDOSAVE) CL:APPLY (DECLARE) \COURIER.EXPEDITED.ARGS (COURIER.WRITE) +RSTRING (DECLARE FREERESOURCE) ExtensionForPrintFileType (DECLARE) \FLUSHPAGE (\MP.ERROR +\SET.VMEM.FULL.STATE \PUTBASE \TRANSFERPAGE) LISPXTYPEAHEAD (PRIN1 NLSETQ PRINT) \RSTRING2 (DECLARE +CHECK \BACKCCODE \BIN SELECTQ \PNAMESTRINGPUTCHAR SHOULDNT RPLACD) PRINSHUT (PRIN3 SHOULDNT) +\TRANSFERPAGE (FLIPCURSORBAR \BLT \ACTONVMEMFILE \WRITEMAP \CLEARWORDS \BOXIPLUS) \POLYSHADE.XSCAN.IP +(SETCOLOR.IP \DrawScanList.XScan.IP) \UFSGetFileTypeConfirm (DECLARE PROMPTPRINT \UFSPrintTypeMenu) +ADVISEWDS (DECLARE RELDSPXOFFSET RELDSPYOFFSET DSPXOFFSET DSPYOFFSET PROCESS.EVAL UPDATE/SCROLL/REG) +\PUTBASEFIXP (.XUNBOX. \PUTBASE) READGRAPH (READC MAP SETA FRPLACD) READOCT (DECLARE printout READC) +READ-EXTENDED-TOKEN (CHECK \BACKCCODE RPLACD \PNAMESTRINGPUTCHAR FREERESOURCE DECLARE) +FB.COUNTERW.REDISPLAYFN (CLEARW) \SETMACROSYNTAX (\ILLEGAL.ARG PUTHASH UNINTERRUPTABLY CHECK) +MOUSESTATE-EXPR (SHOULDNT) POSTSCRIPT.CLOSESTRING (POSTSCRIPT.OUTSTR) \SEQUIN.FLUSH.CONNECTION ( +\SEQUIN.FLUSH.RETRANSMIT NOTIFY.EVENT CLOSEPUPSOCKET SEQUINOP DEL.PROCESS) \VFMInsertPageGroup ( +DECLARE OBTAIN.MONITORLOCK \VFMContextSet MESASETQ \VFMDelete \VFMInsert SI::MONITOR-UNWIND) +\SMASHSTRING (\BLT DECLARE \PUTBASEFAT SHOULDNT \PUTBASETHIN \MOVEBYTES) \NSRANDOM.PREPARE.CACHE ( +FRPLACD \NSRANDOM.CHECK.CACHE UNINTERRUPTABLY RPLACD RPTQ) \READTABLEP.DEFPRINT (.SPACECHECK. \OUTCHAR + \SOUT \PRINTADDR) \INSPECT.STORE.CHAR (UNDOSAVE) DELETETO (SETTAIL? TTBOUT DELETETO1 END.DELETE.MODE +DSPBACKUP) \UFSPrintTypeMenu (DECLARE) BRKDWNCLEAR (SUB1VAR BRKDWNSETA) CONCATLIST (RPLSTRING) +COMP.PROGN (COMP.EFFECT COMP.DELPOP) \ATBLSET (DECLARE READTABLEPROP SETSYNTAX SETTOPVAL +SET-DEFAULT-HASHMACRO-SETTINGS DEFPRINT PUTD) PRIN1S (MAKEMAPENTRY) BREAK1 (RELSTK) \TEXTBACKFILEPTR ( +\TEDIT.TEXTBIN.STRINGSETUP \TEDIT.TEXTBIN.FILESETUP ERROR \BACKFILEPTR \PEEKBIN \PAGEDBACKFILEPTR) +PRIN2S (MAKEMAPENTRY) ERASE.TO.END.OF.PAGE (ERASE.TO.END.OF.LINE) MSINIT (FRPLACD) AS.DELETE.PASSWORDS + (DECLARE) Filebrowsericide (CLOSEW) ADDCHAR (DECLARE END.DELETE.MODE OVERFLOW? TTINSERTSECTION MAPC +INSERT.NODE ADJUSTLINE MOVE.TO.WHEREVER) SET-DEFAULT-HASHMACRO-SETTINGS (READTABLEPROP +CL:MAKE-DISPATCH-MACRO-CHARACTER CL:SET-DISPATCH-MACRO-CHARACTER) IFCDECLARE (SELECTQ INFILECOMSVAL +INFILECOM) COMP.COMPILER-LET (DECLARE) \DRAWELLIPSE.GENERIC (DRAWCURVE MOVETO) BRKDWNBOXES (DECLARE +BRKDWNINCA BRKDWNSETA BRKDWNADDTOA SUB1VAR) FB.COMMANDSELECTEDFN (CLEARW) DOUSERFNS2 (DECLARE) DO.CRLF + (DSPLINEFEED) COS (DECLARE) \CLIPANDDRAWLINE1 (\PUTBASE \SOFTCURSORDOWN \INSURETOPWDS DECLARE +\DRAWLINE1 \SOFTCURSORUPCURRENT SELECTQ \DRAWCOLORLINE1 SHOULDNT) TWODINSPECT.ARRANGEWINDOWS (SHAPEW +ATTACHWINDOW) \TEXTPEEKBIN (\PAGEDBACKFILEPTR \SETUPGETCH \TEDIT.TEXTBIN.STRINGSETUP) \MOVEREALPAGE ( +CHECK \WRITEMAP \BLT) \TEXTSETFILEPTR (\SETUPGETCH \BIN \ILLEGAL.ARG) SIN (DECLARE) RETFROM (LISPERROR + \SMASHRETURN) MBUTTON.SET.FIELD (\FIXSEL TEDIT.SETSEL TEDIT.DELETE TEDIT.INSERT) READ/NODE ( +GETMOUSESTATE FLIPNODE) COMP.BOX (COMP.DELFN COMP.STFIX COMP.STFN) FW-CHANGE-ANCHOR (DECLARE CLRPROMPT + printout) \NSFILING.REMOVEQUOTES (FRPLACD) SI::CLEAN-UP-CL-ARGLIST (FRPLACD) PRINTNSHOSTNUMBER (PRIN1 +) \TEDIT.PUT.PARALOOKS (\DWOUT \SMALLPOUT DECLARE) \INSPECT.STORE.32 (UNDOSAVE) \SELECTREALPAGE ( +\MP.ERROR DECLARE \FLUSHPAGE \WRITEMAP \UPDATECHAIN RAID) \10MBENCAPSULATE (\BLT) SUPERPRINT/WRAPPER ( +PRINENDLINE PRINOPEN MAKEMAPENTRY DECLARE PRINSHUT) \UPDATECHAIN (CHECK \MP.ERROR \WRITEMAP) +SEDIT::ATOM-POINT-TYPE (DECLARE) \MAIKO.DISPLAYLINE (DSPDESTINATION DSPCLIPPINGREGION BITBLT +\FORMATLINE MOVETO DECLARE RELMOVETO SELECTC TEDIT.MODIFYLOOKS \DSPPRINTCHAR BLTSHADE APPLY* +\TEDIT.MARK.REVISION SELECTQ) READBQUOTECOMMA (DECLARE READCCODE) PRINDOTP (PRINENDLINE PRIN3) +\FM.FORMATBYCOLUMN (MAPC TCONC LCONC EXTENDREGION LISTPUT) PRINTVA (PRINTNUM) EDITCHANGELABEL ( +PROMPTPRINT CLRPROMPT CLEARW DISPLAYNODE ERASE/GRAPHNODE MEASUREGRAPHNODE) DOUSERFNS (DECLARE) +OVERFLOW? (START.NEW.LINE ADJUSTLINE GO.TO.RELATIVE) TEDIT.WINDOW.SETUP (\ILLEGAL.ARG WINDOWPROP +TEDIT.MINIMAL.WINDOW.SETUP) TEDIT.PUT.PAGEFRAMES (\DWOUT \SMALLPOUT PRIN2) \STORENSHOSTNUMBER ( +\PUTBASE ERROR) ERRORMESS1 (PRINT PRIN1 SPACES TERPRI) \TEDIT.PUT.PARALOOKS.LIST (\DWOUT \SMALLPOUT +DECLARE \TEDIT.PUT.SINGLE.PARALOOKS PUTHASH) STORETABLE (PUTTABLE MAPC) \IDLE.WAIT (AWAIT.EVENT BLOCK) + SHADEGRIDBOX (BLTSHADE BITMAPBIT) FW-MOVE-OFD-WINDOWS (FW-CHANGE-ANCHOR FW-CHANGE-POSITION) +\PFPutRootDirectoryType (\PFPutLogicalVolumePage \PFGetMarkerPage \PFPutMarkerPage) SI::PARSE-CL-ARGLIST + (MAPC) \LFParseFileName (SELECTQ FRPLACD) UNSAVEDEF (SAVEDEF PUTDEF) HISTORYSAVE (FRPLACA NCONC +ADD1VAR MAPC LISPXWATCH ERROR!) MOVETOUPPERLEFT (MOVETO) PRINTLEAF (printout PRINTCONSTANT +PRINTPACKETDATA) IFCPROPSCAN (FRPLACD) /DELETECONTROL (UNDOSAVE) PRIN2STRING (PRINENDLINE) ADDTO ( +SHOULDNT APPLY* FRPLACD) BACKSKREAD (SELECTC DECLARE CHECK) DECLARERECORD (RECORDERROR PUTHASH +LISPXPRINT MAPC /RPLACA MARKASCHANGED RECREDECLARE) \READREFILL (DECLARE APPLY* \FILLBUFFER) +\TEDITMENU.SELSCREENER (\COPYSEL TEDIT.PROMPTPRINT) LISPXFIND (ERROR DECLARE MAPC SI::RESETUNWIND) +\EDITBM/PUTUP/DISPLAY (RESETGRID.NEW) COMP.TRANSFORM (DECLARE) EDITCHANGEFONT (PROMPTPRINT CLRPROMPT +CHANGE.NODEFONT.SIZE) MAKECREATELST1 (HELP FRPLACD) PURGEHISTORY2 (RPLACD MAPC) \INSPECT.STORE.16 ( +UNDOSAVE) COMP.ASET (HELP MAPC COMP.STFN) ONEDINSPECT.ARRANGEWINDOWS (SHAPEW ATTACHWINDOW) FONTCREATE +(DECLARE SELECTQ LISPERROR ERROR) OPENNSOCKET (DECLARE \FLUSHNSOCQUEUE UNINTERRUPTABLY SELECTQ ERROR) +\TEDIT.CHARDELETE (SELECTQ \SHOWSEL \FIXSEL \TEDIT.DELETE) \NSFILING.ADD.TO.CACHE ( +\NSFILING.CLOSE.HANDLE) COMP.AREF (HELP MAPC COMP.STFN) \NSFILING.MAYBE.CREATE (FRPLACD CL:ERROR) +\SEND.EXPEDITED.XIP (SENDXIP SELECTQ AWAIT.EVENT DECLARE RELEASE.XIP) \APPLYREADMACRO (DECLARE) +OPT.INITHASH (DECLARE) \PFEnsureInitialized (\PFGetPhysicalVolumePage \PFInitFileDescriptors +\PFInitializeVols \VAMInit \VFMInit \PFDsplyVolumes) \FM.FORMATBYROW (MAPC TCONC LCONC EXTENDREGION +LISTPUT) TTCRLF (DO.CRLF) \INTERNAL/SETPASSWORD (DECLARE OBTAIN.MONITORLOCK FRPLACA SetBcplString +SETUSERNAME CLRHASH SI::MONITOR-UNWIND MAPC) UNDOLISPX2 (/RPLNODE APPLY /ATTACH) INSPECTW.REPAINTFN ( +WITH-INSPECTOR-ENV PRINTATBOX) LLSH (.UNBOX. SELECTC \ILLEGAL.ARG CL::%%NOT-NONCOMPLEX-NUMBER-ERROR +FRPTQ) \POLYSHADE.DISPLAY (\DrawScanList.Display BRESSTEP) CHAT.CHOOSE.EMULATOR (ERROR) BESTPUPADDRESS + (MAPC BLOCK ERROR printout TERPRI) FILL.INITTBLE (\PUTBASE \SETPBTFUNCTION \INSURETOPWDS DECLARE) +EDITBMSCROLLFN (RESETGRID.NEW BLTSHADE UPDATE/BM/DISPLAY) TTBIN (\CHECKCARET) RAIDROOTFRAME (PRIN1 +TERPRI) SEDIT::INITIALIZE (CHANGENAME SEDIT::CREATE-ENVIRONMENTS SEDIT::INITIALIZE-ATOMIC +SEDIT::INITIALIZE-LISTS SEDIT::INITIALIZE-COMMENTS ECHOMODE CONTROL) GRAPHREGION (MAPC) +\LET*-RECURSION (DECLARE CHECK-BINDABLE) \ALLOCWIDTHTOGROUPEDWINDOW (FRPLACD \SETWINFOYSIZE MAPC) +SHOWWTITLE (DSPDESTINATION DSPCLIPPINGREGION MOVETO RESETFORM PRIN3 BITBLT) \PFPatchRootDirEntries ( +\PFRemoveRootDirEntry) \GETBASESTRING (\MOVEBYTES) \NSRANDOM.STREAM.CHANGED ( +\NSRANDOM.PROCEEDABLE.ERROR) DMCHAT.STATE (TERM.RESET.DISPLAY.PARMS TERM.HOME) OPT.RESOLVEJUMPS (MAPC +OPT.JFIXPASS) TTYIN (DECLARE SELECTQ TTYIN.SETUP CLEARBUF GO.TO.FREELINE RESTOREMOD ERROR! FRPLACD +POSITION MWNOTE) \INSPECT.STORE.8 (UNDOSAVE) /CONTROL (UNDOSAVE) \TEDIT.HARDCOPY.FORMATLINE (DECLARE +\SETUPGETCH \EDITSETA \TEDIT.HCPYLOOKS.UPDATE SELECTQ TEDIT.HARDCOPY.PAGEHEADING +TEDIT.SKIP.SPECIALCOND SELCHARQ \TEDIT.PURGE.SPACES \TEDIT.NSCHAR.RUN FREPLACEFIELD TEDIT.PROMPTPRINT +\DOFORMATTING.HARDCOPY) \INTERACTIVE.CLOSEW (CLOSEW) MAKEINITBFS (\LOCKWORDS \PUTBASE) \ENCRYPT.PWD ( +RPLCHARCODE) TTSKREAD (SELECTC DECLARE CHECK) \FM.FORMAT (\FM.SETUPPROPS RPLNODE2 \FM.CHECKPROPS +\FM.SETFORMATPROPS \FM.CHECKFORBOX \FM.JUSTIFYITEMS \FM.JUSTIFYGROUPS \FM.UPDATEFORBOX) +\TEDIT.PUT.CHARLOOKS.LIST (\DWOUT \SMALLPOUT DECLARE \TEDIT.PUT.SINGLE.CHARLOOKS PUTHASH) +CLOSEPOSTSCRIPTSTREAM (POSTSCRIPT.ENDPAGE POSTSCRIPT.PUTCOMMAND) SEDIT::INSERT-CHANGED (RPLACD) +\TEDIT.TABTYPE.SET (TEDIT.MAPPIECES) TTYIN.READ (BOUTCCODE DECLARE CHECK \SETFILEPTR \SETEOFPTR +FRPLACD) IFCEXPRTYPE (INFILECOMSVAL) \LOGIN.READ (PRIN1 TERPRI) GETCHATWINDOW (CHAT.CLOSE DSPSCROLL) +SEDIT::COPY-SELECTION-DEFAULT (BKSYSBUF) BRV/OFFSET (DECLARE MAPC) EDITBMCLOSEFN (DETACHWINDOW CLOSEW) + \ADJUST.USERNAME (SELECTQ) PRINTADDRS (PRINTVA TERPRI SPACES PRINTNUM TAB DECLARE) HISTORYFIND ( +SELECTQ ERROR HISTORYFIND1 RETFROM) COMP.ATTEMPT.COMPILE (LISPXPRIN1 LISPXPRINT EVAL) TTYIN.CLEANUP ( +WINDOWPROP) \NSFILING.INIT (\DEFINEDEVICE) \TEDIT.PUT.SINGLE.CHARLOOKS (\SMALLPOUT \ARBOUT \ATMOUT +DECLARE SETFILEPTR) FW-REPAINTFN (DECLARE FW-UPDATE-OFD-WINDOW) TTYIN.FINISH (TTCRLF CLEAR.LINE? +DECLARE CHECK TTECHO.TO.FILE SETLASTC TTGIVEHELP RETFROM RPLACA) TTDELETELINE (MOVE.TO.LINE TTBOUT +DO.CRLF SETTAIL? MOVE.BACK.TO) \IMAGEIOINIT (DECLARE) UNDOLISPX (MAPC SOME PRIN1) +\ITEM.WINDOW.COPY.HANDLER (TOTOPW \ITEMW.FLIPCOPY BLOCK DECLARE BKSYSBUF.GENERAL GETMOUSESTATE) +DCODERD (READC MAP AIN SETSTKNTOFFSET DPUTCODE) \8859OUTCHARFN (DECLARE) COMP.BLOCK (COMP.STBIND +COMP.RETURN-FROM COMP.STTAG) \MEDW.BLTCHAR (DECLARE \CHANGECHARSET.DISPLAY \DSPPRINTCR/LF +.WHILE.TOP.DS. \PUTBASE \SOFTCURSORDOWN \INSURETOPWDS \PILOTBITBLT \SOFTCURSORUPCURRENT) +COMPILER::FIND-REACHABLE-TAGS (COMPILER::FIND-ALL-TAGS) ESPATTERN (MAP) DEFC (VIRGINFN PRINT SAVEDEF +PUTD PUTPROP) \DSPXPOSITION.PSC (\MOVETO.PSC) \MEDW.XOFFSET (UNINTERRUPTABLY) \SEQUIN.CONTROL ( +\CLEARBYTES) TTYIN1 (DSPBACKUP TTYIN1RESTART GO.TO.ADDRESSING INIT.CURSOR TTPROMPTCHAR WITH-RESOURCES +SETFILEPTR FREERESOURCE DECLARE SELECTQ CHECK TTDELETECHAR TTDELETELINE TTDELETEWORD RETYPE.BUFFER +TTCRLF SELCHARQ MOVE.TO.LINE DELETE.TO.END ADDCHAR SHOW.MATCHING.PAREN BEEP ADDNAKEDCHAR TTADDTAB +TTYIN.SHOW.?ALTERNATIVES BREAKLINE TTUNREADBUF MOVE.FORWARD.TO START.NEW.LINE MOVE.TO.WHEREVER TTBOUT +SETTAIL? SAVE.CURSOR GO.TO.FREELINE PRIN1 PRINT MWNOTE RESTOREMOD USEREXEC RESTOREBUF) WTFIX1 (FIXATOM + SHOULDNT FIXAPPLY FIX89TYPEIN /RPLNODE ERSETQ DECLARE CLISPTRAN DWIMIFY1? SI::RESETUNWIND CLISPELL +MARKASCHANGED) \MEDW.YOFFSET (UNINTERRUPTABLY \SFFixClippingRegion) \VFMGetPageGroup (DECLARE +OBTAIN.MONITORLOCK \VFMContextSet MESASETQ SI::MONITOR-UNWIND) DCODESKIP (READC SKREAD SETFILEPTR +PRIN4 PRIN3 TERPRI COPYBYTES) OPT.COMPILERERROR (LISPXPRIN1) TTYIN1RESTART (\RESETLINE \SETEOFPTR +KILL.LINES) \TEDIT.COPYTEXTSTREAM.PIECEMAPFN (TEDIT.PROMPTPRINT RETFROM) \NOIMAGE.DSPFONT (\OUTCHAR) +MAXMENUITEMWIDTH (DECLARE) IFCPROPS (INFILECOMSVAL) PRIN4 (DECLARE \PRINDATUM) \LETtran ( +CL:MULTIPLE-VALUE-SETQ) SEDIT::HANDLE-COMPLETION (SEDIT::THROW-AWAY-CHANGES) \LINEWITHBRUSH (DECLARE +.SETUP.FOR.\BBTCURVEPT. SELECTQ SHOULDNT \INSURETOPWDS APPLY* .WHILE.TOP.DS. \PUTBASE \SOFTCURSORDOWN +\CURVEPT \SOFTCURSORUPCURRENT) FW-BUTTONEVENTFN (DECLARE GETMOUSESTATE FW-INTERACT FW-MOVE-OFD-WINDOWS + FW-REPAINTFN) \TFBRAVO.READ.PARALOOKS (RPLACA HELP RPLACD) \PUPINIT (PUTD) TB.REMOVE.ITEM (RPLACD +TB.RENUMBER.TAIL FREPLACEFIELD) TTYIN.SETUP (RESETSAVE) FLIPCURSORBAR (\PUTBASE) +\ALLOCHEIGHTTOGROUPEDWINDOW (FRPLACD \SETWINFOXSIZE MAPC) TTWAITFORINPUT (WAIT.FOR.TTY GETMOUSESTATE +DO.MOUSE \PROTECTED.APPLY DO.EDIT.PP \TTYBACKGROUND) \PFFindRootDirEntryNum (ERROR) TRAJECTORY.IP ( +MOVETO.IP) \VFMInsert (DECLARE \VFMFind \VFMSplit) TEDIT.REDO.REPLACE (\SHOWSEL \DELETECH \FIXDLINES +TEDIT.REDO.INSERTION \TEDIT.HISTORYADD) ETHERHOSTNUMBER (ASSURE.PUP.READY) FONTCLASS (ERROR) +\VFMDelete (DECLARE \VFMFind \VFMDelete \VFMFreeVPage \VFMInsert) \NSFILING.CONNECT (SELECTQ) +UNIX.SENDSCREENPARAMS (ADD.PROCESS) PRINTHISTORY1 (TAB APPLY MAPRINT TERPRI MAPC PRIN1 PRINTHISTORY2 +SPACES) PROMPTFORWORD (DECLARE SELCHARQ ECHOCHAR ECHOMODE CONTROL \ILLEGAL.ARG \PROMPTFORWORDRETYPE +\PROMPTFORWORDBS \PROMPTFORWORDERASE BOUT FRESHLINE MAPC PRIN1 \CARET.DOWN) FSET.IP (APPENDNUMBER.IP) +GO.TO.FREELINE (GO.TO.RELATIVE TTCRLF) SHOWWFRAME (BITBLT SHOWWTITLE) GO.TO.ADDRESSING (TTSETCURSOR) +\TEDIT.LCASE.SEL (TEDIT.DELETE TEDIT.INSERT TEDIT.SETSEL TEDIT.NORMALIZECARET) BKBUFS (PRINTBELLS DOBE + CLEARBUF BKSYSBUF PRIN1 BKLINBUF) RAIDSTACKCMD (DECLARE RAIDROOTFRAME PRINTNUM printout PRIN1 +FRESHLINE \BACKTRACE) MSPRGLAMBDA (ADDTO MSBINDVAR SETTEMPLATE UNMARKASCHANGED PUTHASH MSPRGLAMBDA +MSPRGERR MSPRGE) PROVIDE.PROMPTING.WINDOW (RESETSAVE WINDOWPROP RELMOVETO printout PRIN1 SELECTQ +RINGBELLS FLASHWINDOW) ERASEPROPS (TERPRI PRIN1) BROWSE/LAYOUT/LATTICE (DECLARE) CLBUFS (PRINTBELLS +DOBE CLEARBUF) TEXTTOIMAGEFILE (RESETSAVE COPY.TEXT.TO.IMAGE) INREADMACROP (DECLARE MAPDL RELSTK) +\ALLOCATE.ETHERPACKET (DECLARE \CLEARWORDS RECLAIM) GRAPHER/CENTERPRINTINAREA (MOVETO PRIN3) +AS.CREATE.PASSWORDS (DECLARE) MAPDL (APPLY*) BRKDWNCONSES (DECLARE BRKDWNINCA BRKDWNSETA BRKDWNADDTOA +SUB1VAR) \CCLOSURE.DEFPRINT (.SPACECHECK. \OUTCHAR \SOUT \PRINDATUM \PRINTADDR) +\TFBRAVO.READ.CHARLOOKS (HELP SETFILEPTR) HELPSYS (PROMPTPRINT) MOVENODE (DISPLAYNODE +SET/LAYOUT/POSITION) SUPERPRINT/COMMENT (DECLARE PRINENDLINE TERPRI RELMOVETO PRIN2-LONG-STRING +SUPERPRINT/COMMENT2) TEDIT.CURSOROUTFN (CURSOR) RINGBELLS (DECLARE PLAYTUNE) UNIX.SETDISPLAYTYPE ( +ADD.PROCESS BLOCK DISMISS CL:FORMAT) \SPP.SKIPBYTES (FREPLACEFIELD) \DSPYPOSITION.PSC (\MOVETO.PSC) +READVBAR (READCCODE) PFI.DEFAULT.HANDLER (TERPRI PFI.MAYBE.NEW.PAGE PFI.ADD.TO.INDEX) PRINTHISTORY ( +TERPRI MAPC PRIN2 PRIN1) STRINGWIDTH (DECLARE) READHASHMACRO (FRPLACD CL:READ SKIP.HASH.COMMENT) +\TEDITOUTCHARFN (\BOUT) FW-AFTERMOVEFN (DECLARE) HREAD (HPINITRDTBL) TERM.SMOOTHSCROLL (BITBLT) +MSPRGTEMPLATE (BLOCK MSPRGMACRO MSPRGTEMPLATE1) CHAT.INIT (WINDOWADDPROP STREAMPROP) READBQUOTE ( +DECLARE) SEDIT::GET-SELECTED-STRUCTURE (SEDIT::CLOSE-OPEN-NODE) BYTEBLOCKCOMPILE2 (DECLARE +SI::RESETUNWIND FRPLACD FRPLACA) \MAKESPACEFORLOCKEDPAGE (\MOVEVMEMFILEPAGE) \TEDIT.BLTCHAR (DECLARE +\CHANGECHARSET.DISPLAY UNINTERRUPTABLY) SKIP.HASH.COMMENT (SELCHARQ SKIP.HASH.COMMENT) PUTSEQUIN ( +DECLARE OBTAIN.MONITORLOCK HELP MONITOR.AWAIT.EVENT \SEQUIN.PUT SI::MONITOR-UNWIND BLOCK) YMAPLIST ( +MAPC) \SW2BM (UNINTERRUPTABLY) \MOVETO.PSC (POSTSCRIPT.SHOWACCUM) RAIDCOMMAND (DECLARE FRESHLINE +SELECTQ PRINCOPY PRINTCODE PRINTADDRS PRINTNUM printout SETTOPVAL RAIDSTACKCMD RAIDSHOWFRAME READC +\PRINTBF PRINTOUT SHOWSTACKBLOCKS \PRINTFRAME USEREXEC PUTBASE SETVMPTR \BINS SHOWREMOTESCREEN HELP) +SETUPPAGEMAP (\NEWPAGE CREATEPAGES \PUTBASE) CHAT (BLOCK REMOVEPROMPTWINDOW) INSPECT/ARRAY (FRPLACD +printout TERPRI) CL:RETURN-FROM (DECLARE CL:ERROR RETVALUES) DISPLAYAFTERENTRY (\STARTDISPLAY +VIDEOCOLOR CURSOR CHANGEBACKGROUNDBORDER) COMPSETREAD (PRIN1 READC NCONC) ESTIMATE-DIMENSIONALITY ( +FRPLACD) \MAKE.ITEMS.VERT.ORDER (FRPLACD MAPC) DISPLAYBEFOREEXIT (DSPRESET) MAXMENUITEMHEIGHT (MAPC) +READNUMBERINBASE (SELCHARQ) SUPERPRINT/SPACE (DECLARE) MSPRGTEMPLATE1 (MSPRGDWIM MSPRGERR DECLARE +FRPTQ) LISPXUSEC (PRINTHISTORY1 ERROR! SELECTQ ERROR PRINT) SYSOUT (DECLARE \USEREVENT \DEVICEEVENT +\SETTOTALTIME \PROCESS.AFTER.EXIT INTERPRET.REM.CM) CHAT.TYPEIN (DECLARE) TEDIT.MODIFYLOOKS (MOVETO +RELDRAWTO BITBLT) SUBPRINT/WRAPPERTAIL (PRINENDLINE PRIN3) MBUTTON.SET.NEXT.FIELD ( +MBUTTON.FIND.NEXT.FIELD \FIXSEL \TEDIT.DELETE TEDIT.\INSERT) FILL-VECTOR (%%MAKE-ARRAY-WRITEABLE) +\GETUFNENTRY (DECLARE) \NEWEPHEMERALPAGE (\CONTEXTSWITCH) \PFPurgeRootDirectory ( +\PFPutRootDirectoryType \PFTrimHelper) \DONEWEPHEMERALPAGE (\INVALIDVP \MP.ERROR \UPDATECHAIN +FLIPCURSORBAR \WRITEMAP \CLEARWORDS \BOXIPLUS \ASSURE.FPTOVP.PAGE) MAKESYS (DECLARE \USEREVENT HERALD +\DEVICEEVENT \PROCESS.AFTER.EXIT PRIN1 INTERPRET.REM.CM) FORMAT-NEWLINE (TERPRI) CHARACTER.READ ( +DECLARE CHECK) INFILECOM (RETFROM INFILECOMS INFILECOMSMACRO) \TEDIT.FIXCHANGEDLINE (\TEDIT.INSERTLINE + \TEDIT.COPY.LINEDESCRIPTOR \TEDIT.ADJUST.LINES \DISPLAYLINE RETFROM \TEDIT.CLEAR.SCREEN.BELOW.LINE) +GRID (BLTSHADE BLTPATTERN BITMAPBIT \ILLEGAL.ARG) TTYINWORDRDTBL (SETSEPR SETBRK SETSYNTAX +READTABLEPROP) TEDIT.REDO.MOVE (\FIXSEL \TEDIT.SET.SEL.LOOKS TEDIT.MOVE) FILLTRAJECTORY.IP ( +TRAJECTORY.IP APPENDINTEGER.IP) FB.SHAPECOMMAND (RESHAPEALLWINDOWS) DISCARDPUPS (\FLUSH.PACKET.QUEUE) +LOGOUT (\USEREVENT \FLUSHVMOK? \PROCESS.BEFORE.LOGOUT \DEVICEEVENT \SETTOTALTIME \LOGOUT0 +\RESETKEYBOARD \OPENLINEBUF \PROCESS.AFTER.EXIT INTERPRET.REM.CM) \PICK.EVALQT (INPUT OUTPUT +TTYDISPLAYSTREAM \RESETSYSTEMSTATE) CALLSCCODE (DECLARE CL:FUNCALL) RETVALUES (LISPERROR \SMASHRETURN +RELSTK) \VFMClearIntervals (SETA) BREAK.NSFILING.CONNECTION (\NSFILING.CLOSE.CONNECTIONS FRPLACD) +COURIER.READ (FRPLACD) \QUEUE.OUTPUT.IOCB (SELECTC \DEVICE.OUTPUT \DoveEther.QueueOutput +\NOMACHINETYPE) FB.DEPTHCOMMAND (FB.ALLOW.ABORT) \SHOWMENULABEL (DECLARE DSPXPOSITION DSPYPOSITION) +INSPECT/ATOM (PRINTOUT TERPRI) COMPILER::TEST-ANNOTATION (COMPILER::RELEASE-TREE) +SEDIT::FORMAT-VALUES-CHANGED (CL:FUNCALL) LISPXSTOREVALUE (FRPLACA) MAPHASHFILE (SETFILEPTR) +DEFAULT.BACKGROUND.COPYFN (GETMOUSESTATE) \TEMPLOCKPAGES (\CONTEXTSWITCH) TTPROMPTCHAR (CLEAR.LINE?) +ADJUSTLINE.AND.RESTORE (SAVE.CURSOR ADJUSTLINE) EXCHANGEPUPS (DISCARDPUPS SENDPUP AWAIT.EVENT) +RAIDSHOWFRAME (FRPTQ PRIN1 \BACKTRACE) READPAGEMAPBLOCK (FRPTQ) INFILECOMSVALS (INFILECOMSVAL) +PFI.PRETTYPRINT (PRINTDEF) \DSPFONT.PSC (POSTSCRIPT.SHOWACCUM \POSTSCRIPT.CHANGECHARSET +\DSPLINEFEED.PSC \FIXLINELENGTH.PSC) \NSFILING.OPENFILE (MAPC FREPLACEFIELD) RECORDWORD (/RPLACA) +\DFSFreeDiskPages (DECLARE OBTAIN.MONITORLOCK SI::MONITOR-UNWIND) FB.INFOMENU.WHENSELECTEDFN ( +SHADEITEM) COMP.SPREAD (COMP.EXPR COMP.STJUMP COMP.STTAG MAPC COMP.EFFECT COMP.VAL) +\PROMPTFORWORDRETYPE (DECLARE) FILECODEBLOCK (FILEPATCHBLOCK BOUT16) DWIM (/PUTD MAPC) +\PROMPTFORWORDERASE (DECLARE MOVETO DSPCLEOL) NSDISPLAYSIZE (DECLARE) TERM.SCROLLDOWN (BITBLT) +DOBACKGROUNDCOM (ERSETQ) MAKEEPSFILE (MOVETO) \SEQUIN.PUT (FREPLACEFIELD SENDPUP \CLOCK0 WAKE.PROCESS) + \DISPLAYINIT (DECLARE) \GET.IOCB (DECLARE) CREATE-SHELL-STREAM (FREPLACEFIELD STREAMPROP) +FM.CHANGELABEL (\FM.INSUREWINDOW \FM.CHANGELABEL SELECTQ \FM.TOGGLE-CHANGESTATE \FM.3STATE-CHANGESTATE + \FM.UPDATEGROUPEXTENT \FM.CLEARITEM BLTSHADE) \DSPLEFTMARGIN.PSC (\FIXLINELENGTH.PSC) \DSPMOVELR ( +SHOULDNT \CHECKCARET MOVETO BITBLT DSPXPOSITION) COPYTEXTSTREAM (\TEDIT.INSERT.PIECES) READPAGEMAP ( +LOCAL READPAGEMAPBLOCK) DELETEMENU (\ILLEGAL.ARG ERASEMENUIMAGE ERROR CLOSEW) TEDIT.FORMATFOLIO ( +FREPLACEFIELD FRPLACD) \DOFLUSHVM (CHECK) COPIEDFILENAME (RPLACD) \RELEASEWORKINGSET (\WRITEMAP) +\PROMPTFORWORDBS (DECLARE \PROMPTFORWORDERASE \PROMPTFORWORDRETYPE PRIN3 BOUT) UPDATE/MENU/IMAGE ( +CLOSEW BITBLT DSPRIGHTMARGIN DSPXOFFSET DSPYOFFSET GRID DSPOPERATION DSPFONT \SHOWMENULABEL ADVISEWDS) + \PROMPTFORWORDBIN (DECLARE \TTYBACKGROUND BLOCK SELECTQ RINGBELLS FLASHWINDOW) INSPECT/HARRAYP ( +PROMPTPRINT) \FLUSHVM (SELECTQ \CONTEXTSWITCH ERROR MAPC) COURIER.EXECUTE.EXPEDITED.CALL ( +\COURIER.TRACE RESETSAVE) \TEDIT.SELECT.CHARACTER (DECLARE RESETLST TEDIT.OBJECT.CHANGED) +\10MBSENDPACKET (\MAYBEPRINTPACKET DECLARE \BLT \HANDLE.RAW.PACKET UNINTERRUPTABLY) FILL.CONT ( +BLTSHADE) PURGENSFONTS (FRPLACD) TEDIT.FORMATTEXTBOX (CL:MULTIPLE-VALUE-SETQ BLOCK HELP FREPLACEFIELD +FRPLACD) CHARCODE.DECODE (DECLARE) GRAPHERPROP (SETPROPLIST) TTYIN.PPTOFILE (DECLARE SETFILEPTR +LINELENGTH CL:FUNCALL PRIN2 SPACES PRINTDEF) DSKDISPLAY (\DSKDISPLAY.CREATE.WINDOW WINDOWPROP +REDISPLAYW \DSKDISPLAY.DESTROY.WINDOW) \PAGEDBACKFILEPTR (LISPERROR \UPDATEOF \RELEASECPAGE +\SETIODIRTY FREPLACEFIELD) STRPOSL (DECLARE CHECK FREERESOURCE) SET-SYMBOL (RPLACA) \CREATECHARSET ( +DECLARE \ILLEGAL.ARG) \PFRemoveRootDirEntry (MESASETA ERROR FREPLACEFIELD) COMPUTE-MACRO-ARGS (MAPC +ERROR) CHANGECCODE (DECLARE ERROR \ADDREF) SENDPUP (\RCLK \REQUEUE.ETHERPACKET printout PRIN1 +PRINTPUPROUTE \SETPUPCHECKSUM \MAYBEPRINTPACKET TRANSMIT.ETHERPACKET BLOCK) DSPCLEOL (\CHECKCARET) +MACROS.GETDEF (FRPLACD) \WRITEDIRTYPAGE1 (\FLUSHPAGE) MSPRGRECORD (MSPRGTEMPLATE MSPRGE FRPLACD +MSPRGLST) EXPANDMACRO (DECLARE RESETFORM) \COURIER.HANDLE.ERROR (TAB) CHARWIDTHY (\ILLEGAL.ARG) +EXPAND-DEFMACRO (DECLARE COMPUTE-MACRO-ARGS) \DSPPRINTCHAR (\CHECKCARET SELECTC CHECK \BLTCHAR +FREPLACEFIELD \DSPPRINTCR/LF DSPBACKUP SELCHARQ PLAYTUNE FLASHWINDOW SHOULDNT) TEDIT.FORMATHEADING ( +\TEDIT.INSERT.PIECES MAPC FRPLACD) \DRAWPOLYGON.DISPLAY (\DRAWLINE.DISPLAY \DRAWPOINT.DISPLAY) +AS.REPLACE.PASSWORDS (DECLARE) \PFAddRootDirEntry (MESASETA ERROR) POSTSCRIPTFILEP (SETFILEPTR) +SUPERPRINT/COMMENT2 (PRINOPEN PRINDOTP SUPERPRINT/SPACE PRINENDLINE SUPERPRINT/COMMENT2 PRIN2STRING +PRIN2S) \STRINGWIDTH.GENERIC (DECLARE \MAPPNAME) PRINT-EVENT (FRESHLINE CL:FORMAT PRINT-EVENT-PROMPT +DSPFONT PRIN1 SPACES TERPRI MAPC) \PROTECTED.APPLY (DECLARE) \DSPCLIPPINGREGION.DISPLAY (ERROR +UNINTERRUPTABLY \SFFixClippingRegion) EXPANDOPENLAMBDA (MAPC) \SPP.PREPARE.OUTPUT (SPP.FORCEOUTPUT) +NSPRINT (\NSPRINT.WATCH.JOB CLOSEF?) \CHARWIDTH.DISPLAY (DECLARE) \INSPECT.STORE.PTR (UNDOSAVE) +MAPPAGES (APPLY*) \NSFILING.CLOSE.CONNECTIONS (DEL.PROCESS SPP.CLOSE BLOCK \NSFILING.LOGOUT +\NSFILING.DISCARD.SESSION) PFI.PRINT.COMMENTS (TERPRI) GRAPHOBJ.CHECKALIGN (ERROR) \CLIPANDDRAWLINE ( +\PUTBASE \SOFTCURSORDOWN \INSURETOPWDS DECLARE \DRAWPOINT.DISPLAY \SOFTCURSORUPCURRENT BITBLT +\CLIPANDDRAWLINE1) \INCCODE.EOLC (DECLARE) \CH.FIND.ORG.SERVER (\CH.LOCATE.SERVERS) +\DSPOPERATION.DISPLAY (LISPERROR UNINTERRUPTABLY DECLARE) PRINTERDEVICE (\DEFINEDEVICE) +\FORMATBYTESTREAM (\EXTERNALFORMAT SETFILEPTR SETFILEINFO) MSBINDVAR (ADDTO) \BACKCOLOR.DISPLAY ( +\ILLEGAL.ARG) PRINTCOMSTRAN (DECLARE DWIMIFY0? FRPLACD) PREVLINE (SUB1VAR) \PFFreeDiskPages ( +\VAMRecomputeFreePageCount \PFDsplyVolumes) \UNCOPY (FRPTQ) \DSPRESET.DISPLAY (DECLARE SELECTQ +\DSPXPOSITION.DISPLAY \DSPYPOSITION.DISPLAY ERROR BITBLT PROCESS.EVAL) SEDIT::DEFAULT-GETDEF-FN ( +CL:CERROR) COMP.GETBASE (COMP.DELFN COMP.DELPUSH COMP.EXPR COMP.STCONST MAPC) \BLTSHADE.DISPLAY ( +DECLARE \INSURETOPWDS .WHILE.TOP.DS. \PUTBASE \SOFTCURSORDOWN \BITBLTSUB \SOFTCURSORUPCURRENT) +UNIX-WRITE (BLOCK) PRINTCODE (DECLARE PRINTNUM PRINTCODEHEADERDECODE PRINTCODENT SETUPHASHARRAY +PRINTOUT TAB PCVAR PRINJUMP SPACES) ICONW (WINDOWPROP OPENW) SETFONTCLASSCOMPONENT (SELECTQ RPLACD) +MAKEROOMFORPME (\NEWPAGE \PUTBASE) SETUPHASHARRAY (SET) TEDIT.FORMATPAGE (LISTPUT NCONC DSPPUSHSTATE +DSPROTATE DSPTRANSLATE DSPCLIPPINGREGION DSPRIGHTMARGIN \TEDIT.HARDCOPY.FORMATLINE TEDIT.FORMATBOX +SHOW.IP DSPPOPSTATE DSPNEWPAGE) EDITBMBUTTONFN (DECLARE \SHADEBITS UPDATE/BM/DISPLAY RESETGRID.NEW +UPDATE/BM/DISPLAY/SELECTED/REGION RESETFORM GETMOUSESTATE DETACHWINDOW CLOSEW BLTSHADE +\EDITBM/PUTUP/DISPLAY \CLEARBM DSPFILL GRID ATTACHWINDOW EDITBMRESHAPEFN UPDATE/SHADE/DISPLAY OPENW +PAINTW READHOTSPOT) \BITBLT.DISPLAY (DECLARE \PUTBASE \SOFTCURSORDOWN \INSURETOPWDS +\SOFTCURSORUPCURRENT TOTOPW SELECTQ \BITBLT.MERGE \BITBLTSUB IMAGEOP) \PFCreateRootDirectory ( +DiskError LISPERROR \PFPutRootDirectory \PFPutRootDirectoryType) PRINTCODENT (DECLARE printout PRIN1 +PRINTNUM SPACES ALLOCAL) GETPUP (UNINTERRUPTABLY LISPERROR AWAIT.EVENT BLOCK \MAYBEPRINTPACKET +printout PRIN1) DELETETO1 (DELETETO1 SELECTQ TTBOUT ADD1VAR) \SPLITTREE (\RPLPTR \PUTBASEFIXP +\TEDIT.SET-TOTLEN \MATCHPCS \PUTBASEPTR) \DSPRIGHTMARGIN.PSC (\FIXLINELENGTH.PSC) PRINT-EVENT-PROMPT ( +FRESHLINE DSPFONT) EDITDATE? (DECLARE) \DRAWCIRCLE.DISPLAY (DECLARE .SETUP.FOR.\BBTCURVEPT. SELECTQ +SHOULDNT \INSURETOPWDS APPLY* .WHILE.TOP.DS. \PUTBASE \SOFTCURSORDOWN \SOFTCURSORUPCURRENT \CIRCLEPTS +MOVETO FREERESOURCE) LISPXUSE0 (ERROR MAPC) CODEWRAPPER.PRETTYPRINT (PRIN1 PRIN2 PRINTDEF +SEQUENTIAL.PRETTYPRINT) MBUTTON.NEXT.FIELD.AS.TEXT (MBUTTON.FIND.NEXT.FIELD) \DRAWELLIPSE.DISPLAY ( +DECLARE MOVETO \ILLEGAL.ARG \DRAWELLIPSE.GENERIC GLOBALRESOURCE .SETUP.FOR.\BBTCURVEPT. SELECTQ +SHOULDNT \INSURETOPWDS APPLY* .WHILE.TOP.DS. \PUTBASE \SOFTCURSORDOWN \CURVEPT \SOFTCURSORUPCURRENT +FREERESOURCE) TRACKCURSOR (FLIPNODE GETMOUSESTATE MOVENODE EXTENDEXTENT CALL.MOVENODEFN) \XCCSINCCODE +(\NSIN.24BITENCODING.ERROR SET) SEQUENTIAL.PRETTYPRINT (DECLARE SUBPRINT/ENDLINE SUPERPRINT) CSUBST ( +FRPLACA FRPLNODE NCONC NCONC1 DWIMIFYREC) FREEMENU (\FM.MAKELINKS \FM.COLLECTNWAYS FM.RESETMENU) +\DRAWLINE.DISPLAY (DECLARE SELECTQ \ILLEGAL.ARG \INSURETOPWDS \DRAWLINE.BIGBM.DASH GLOBALRESOURCES +FREERESOURCE \DRAWLINE.BIGBM.NODASH \CLIPANDDRAWLINE) SEDIT::CHECK-SELECTION (SHOULDNT) +SEDIT::PARENTHESIZE-CURRENT-SELECTION (SEDIT::START-UNDO-BLOCK FRPLACD SEDIT::INSERT SEDIT::SELECT-NODE + SEDIT::SET-POINT SEDIT::END-UNDO-BLOCK CL:FORMAT) \TEDIT.APPLY.PAGEFORMATTING (TEDIT.PROMPTPRINT +TEDIT.PROMPTFLASH FRPLACD LISTPUT RPLACA TEDIT.PAGEFORMAT TTY.PROCESS) \CH.LOCATE.SERVERS ( +\CH.PRINT.BLURB RESETLST FRPLACD \CH.UPDATE.CACHE) FONTCLASSCOMPONENT (SETFONTCLASSCOMPONENT) +\FILLCIRCLE.DISPLAY (\PUTBASE \SETPBTFUNCTION \INSURETOPWDS DECLARE .WHILE.TOP.DS. \SOFTCURSORDOWN +\SOFTCURSORUPCURRENT \FILLCIRCLEBLT MOVETO FREERESOURCE) INSPECTW.REDISPLAY (\ITEMW.DESELECTITEM +CLEARW MOVETOUPPERLEFT) MAKECREATE1 (FRPLACD MAPC) \DRAWCURVE.DISPLAY (SELECTQ ERROR +\DRAWPOINT.DISPLAY \LINEWITHBRUSH \CURVE2 FREERESOURCE DECLARE) FIND-STACK-FRAME (RELSTK) \XCCSOUTCHAR + (\BOUT \BOUTEOL) INSPECTCODE (ERROR WINDOWPROP) CASE.PRETTYPRINT (PRIN1 PRIN2 SPACES DECLARE +SUPERPRINT PRINENDLINE PRINTDEF SUPERPRINT/COMMENT SEQUENTIAL.PRETTYPRINT) \SET.LASTVMEMFILEPAGE ( +\SET.VMEM.FULL.STATE) FILL.XPER (.WHILE.TOP.DS. \PUTBASE \SOFTCURSORDOWN \INSURETOPWDS DECLARE +FILL.LINE \SOFTCURSORUPCURRENT) \DSPYPOSITION.DISPLAY (UNINTERRUPTABLY \ILLEGAL.ARG) FILL.TEST ( +FILL.LINE) \SEQUIN.CLOSE (DECLARE OBTAIN.MONITORLOCK \SEQUIN.CONTROL SI::MONITOR-UNWIND) +TEDIT.CURSORMOVEDFN (SELECTQ CURSOR) MSPRGMACRO (MSPRGCALL MSPRGE) BROWSE/LAYOUT/HORIZ/COMPACTLY ( +DECLARE BRHC/LAYOUT BRHC/OFFSET) \DSPXPOSITION.DISPLAY (\ILLEGAL.ARG) \TEDIT.FILL.IN.CHARLOOKS.MENU ( +MAPC MB.NWAYBUTTON.ADDITEM MBUTTON.SET.NEXT.FIELD \SHOWSEL \TEDIT.MARK.LINES.DIRTY) ENDREAD? (SELECTC +DECLARE CHECK) PREPLOOP (MAPC) NOHOST (SELECTQ) MAKEINITLAST (SETUPSTACK MAKEINITBFS SELECTQ RECLAIM +DECLARE POSTINITARRAYS PRIN1 SETUPPAGEMAP) COPIEDFILEPATTERN (FRPLACD) COMP.LOOKUPVAR (RETAPPLY +COMPERRM) PROG1.PRETTYPRINT (PRIN1 PRIN2 SPACES DECLARE SUPERPRINT SEQUENTIAL.PRETTYPRINT) +\GETREGION.CHECKOPPT (MAPC) \DSPRIGHTMARGIN.DISPLAY (UNINTERRUPTABLY \ILLEGAL.ARG) DODIRCOMMANDS ( +DECLARE SELECTQ DIRPRINTNAME READC DTAB PRIN1 DPRIN1 ERROR PRINTNUM PRINTDEF SHOULDNT) COMPILE! ( +DECLARE) FGET.IP (APPENDNUMBER.IP) \TEDIT.CONVERT.FOREIGN.FORMAT (RESETLST) \PUPERROR (printout PRIN1 +PRINTPUP \BLT SWAPPUPPORTS) MBUTTON.NEXT.FIELD.AS.PIECES (MBUTTON.FIND.NEXT.FIELD) SETFONTDESCRIPTOR ( +DECLARE \ILLEGAL.ARG RPLACD) \SCALEDBITBLT.DISPLAY (SHOULDNT) PRINT-HISTORY (MAPC PRINT-EVENT +FRESHLINE) SUPERPRINT0 (PRINOPEN SUBPRINT SUBPRINT/ENDLINE PRINSHUT) CONCAT (SETARG RPLSTRING) +\LOOKUPFONT (DECLARE) \MAKEBRUSH.ROUND (SELECTQ \PUTBASE FILLCIRCLE) PROGV.PRETTYPRINT (PRIN1 PRIN2 +SPACES DECLARE SUPERPRINT SEQUENTIAL.PRETTYPRINT) CL:UNWIND-PROTECT (\EVPROGN) \DRAWLINE.PSC ( +\DRAWLINE.PSC MAPC) INSPECT/DATATYPE (FRPLACD INSPECT/TOP/LEVEL/LIST printout TERPRI) \DSPFONT.DISPLAY + (UNINTERRUPTABLY DECLARE) DUMPINITPAGES (ADDPME MAPPAGES DECLARE ALLOCAL SETFILEPTR) DO.PRETTYPRINT ( +PRIN1 PRIN2 SPACES DECLARE SUPERPRINT SELECTQ SUBPRINT/ENDLINE SEQUENTIAL.PRETTYPRINT) MSPRGE ( +MSPRGERR MSPRGLAMBDA DECLARE MSPRGCALL) FIND-LEXICAL-ENVIRONMENT (RELSTK) PRINTPROG (SUPERPRINT SPACES + PRINTPROGVARS SUBPRINT/ENDLINE PRINDOTP PRINENDLINE) MBUTTON.NEXT.FIELD.AS.NUMBER ( +MBUTTON.FIND.NEXT.FIELD) \COPY (\PUTBASE MKI.IEEE) %%SET-ARRAY-OFFSET (CL:ERROR) INTPOWERS (ASET) +CREATEFIELDS (FRPLACD) \SEQUIN.PROCESS (DECLARE OBTAIN.MONITORLOCK RESETSAVE PROCESSPROP SELECTC +PRINTPUP RELEASE.PUP \SEQUIN.RETRANSMITNEXT INCLEAFSTAT SETUPTIMER \SEQUIN.CONTROL \SEQUIN.RETRANSMIT +BLOCK SI::MONITOR-UNWIND) COURIER.EXPEDITED.CALL (FRPLACD) %%SET-ARRAY-TYPE-NUMBER (CL:ERROR) SUBPRINT + (SUBPRINT/WRAPPERTAIL SUPERPRINT/SPACE) \DOVMEMFULLINTERRUPT (DECLARE CL:CERROR SI::RESETUNWIND) +LISPXPRINTDEF (LISPXPUT) HPRINT (RESETSAVE CLRHASH HPINITRDTBL HPRINT1 HPRINTEND CL:UNWIND-PROTECT +CL:CLOSE TERPRI) \DSPLINEFEED.DISPLAY (\ILLEGAL.ARG) \DSPLEFTMARGIN.DISPLAY (UNINTERRUPTABLY +\ILLEGAL.ARG) \MAP-CODE-POINTERS (SELECTQ CL:FUNCALL DECLARE) SI::RESETUNWIND (APPLY SETTOPVAL) +\NSFILING.DESERIALIZE1 (RELEASE.MONITORLOCK COPYBYTES OBTAIN.MONITORLOCK \NSFILING.RELEASE.BULKSTREAM) + TERM.NEWLINE (TERM.DOWN) DIRPRINTNAME (DECLARE SELCHARQ TERPRI SPACES \OUTCHAR DTAB) +\INVALID.DOTTED.SYMBOL (CL:CERROR) \MAP-CODE-LITERALS (CL:FUNCALL DECLARE SELECTQ) \DRAWCURVE.PSC ( +printout PRIN1 POSTSCRIPT.PUTCOMMAND POSTSCRIPT.OUTSTR MAPC \MOVETO.PSC) \FONT.COMPARESYMBOL (DECLARE) + CHECKIFPAGE (PRIN1) PFI.HANDLE.EXPR (PFI.PRINT.COMMENTS TERPRI PFI.MAYBE.NEW.PAGE) DSFIT1 (DECLARE) +PAINTW (printout TOTOPW CURSORCOLOR GETMOUSESTATE RPLACA DOWINDOWCOM BITBLT) LISPXUSE (ERROR HELP +NCONC) \PFPutRootDirectory (DiskError LISPERROR \PFPutPage) UTF16BE.PEEKCCODEFN (\BIN \BACKFILEPTR) +PRINTSQ (SUPERPRINT/SPACE SUPERPRINT PRINENDLINE PRINOPEN SUBPRINT PRINSHUT PRIN2S) SETUPPUP ( +ASSURE.PUP.READY) INSPECT/HUNK (SELECTC INSPECTW.CREATE FRPLACD) \FONTFACE (\ILLEGAL.ARG) +FIND-HISTORY-EVENTS (DECLARE FRPLACD ERROR) UTF16BE.INCCODEFN (SET) ADDFILE0 (/SETTOPVAL ERROR) +MOVE.TO.LINE (GO.TO.RELATIVE) \4DISPLAYINIT (DECLARE) /PUT-1 (UNDOSAVE FRPLACD SETPROPLIST) +\MAKEBRUSH.SQUARE (BITBLT) EDITADDNODE (DECLARE MEASUREGRAPHNODE MOVENODE FLIPNODE EXTENDEXTENT +CALL.MOVENODEFN printout PRINTDISPLAYNODE TRACKCURSOR) MBUTTON.NEXT.FIELD.AS.ATOM ( +MBUTTON.FIND.NEXT.FIELD) SPP.CLEARATTENTION (UNINTERRUPTABLY) FB.NEWPATTERNCOMMAND (FB.SETNEWPATTERN) +\PFGetRootDirectory (\PFGetPage) DSFIT2 (DECLARE) GETSEQUIN (BLOCK) \IDLE.EXIT? (SETPASSWORD +OBTAIN.MONITORLOCK CLEARW DEL.PROCESS DISMISS PRINTOUT PRIN1) TTLOADBUF (SETFILEPTR ADDNAKEDCHAR +FRPLACD READFROMBUF) \DSPBACKCOLOR.DISPLAY (RPLACD \SFFixFont) \INVALID.INTEGER (CL:CERROR) +SHOW.MATCHING.PAREN (SAVE.CURSOR GO.TO.ADDRESSING TTWAITFORINPUT \CHECKCARET RESTORE.CURSOR) +MAKEINITFIRST (CREATEMDSTYPETABLE \SETUP.HUNK.TYPENUMBERS INITDATATYPES PREINITARRAYS \TURN.ON.HUNKING + INITATOMS INITDATATYPENAMES INITUFNTABLE INITGC) MSADDTYPE (MSINIT PUTASSOC PUTHASH) LLBREAK (DECLARE + XCL:UNBREAK-FUNCTION ERROR /SETATOMVAL /PUTD /PUTPROP) TEDIT.BUILD.PCTB0 (SETFILEPTR SELECTC +TEDIT.GET.CHARLOOKS0 TEDIT.GET.OBJECT0 TEDIT.GET.PARALOOKS0 SHOULDNT INSERT-BRT) +\NSGC.COLLECT.DIRECTORIES (RESETSAVE FRPLACD) TEDIT.SCAN.LINE (\FORMATLINE DECLARE \TEDIT.CHECK +\TEDIT.SELECT.CHARACTER RPLACA) /PUTD (PUTD UNDOSAVE) TEDIT.PROMPTFLASH (FLASHWINDOW) +\DSPCOLOR.DISPLAY (RPLACA \SFFixFont) \PRINDATUM.TO.STRING (FREERESOURCE DECLARE PRINT-CIRCLE-SCAN +\MAPPNAME.INTERNAL CL:MAPHASH) NEW/INSTANCE/OF/GRAPHNODE (DECLARE MARK/GRAPH/NODE) BROKENDEF ( +UNLESSRDSYS UNINTERRUPTABLY \MOVEBYTES CODEBASESETA DECLARE \ADDREF SELECTQ) RENAME (COPYDEF +CHANGECALLERS DELDEF) LISPXPRIN2 (LISPXPUT) \TFBRAVO.SPREAD.LOOKS (DECLARE MAPC) FB.NEWINFOCOMMAND ( +ATTACHWINDOW MOVEW FB.INFOMENU.SHADEINITIALSELECTIONS WINDOWADDPROP) BRKDWNTIME (DECLARE BRKDWNINCA +BRKDWNSETA BRKDWNADDTOA SUB1VAR) \INSERTTREE (HELP UPDATEPCNODES \PUTBASEFIXP \RPLPTR \BLT \PUTBASEPTR + \ILLEGAL.ARG \SPLITTREE \TEDIT.UPDATETREE) TEDIT.FORMAT.HARDCOPY (TEDIT.FORMATBOX) FB.YES-OR-NO-P ( +FB.PROMPTWPRINT) LISPXSPACES (LISPXPUT) MISSPELLED? (LISPXWATCH PRIN1) FB.ALLOW.ABORT (ATTACHWINDOW) +/ADDPROP (ERRORX UNDOSAVE FRPLACD /RPLACA SETPROPLIST) \DRAWCIRCLE.PSC (printout PRIN1 +POSTSCRIPT.OUTSTR MAPC) ADDPME (HELP \NEWPAGE \PUTBASE) BRHL/MOVE/RIGHT (DECLARE ERROR BRHL/MOVE/RIGHT +) PFI.PRINT.TO.TAB (DSPXPOSITION PRIN3 RELMOVETO) SPP.FLUSH.TO.EOF (SPP.CLEARATTENTION) CLOSESEQUIN ( +\SEQUIN.CLOSE AWAIT.EVENT SELECTC) \PFCurrentVol (ERROR) SAVEPUT (ERRORX UNDOSAVE FRPLACD /RPLACA +LISPXPRINT SETPROPLIST MARKASCHANGED ADDSPELL) TERPRI (\OUTCHAR) PRIN1 (DECLARE \PRINDATUM) +UTF16BE.OUTCHARFN (FREPLACEFIELD \BOUT) SEDIT::CREATE-PRELINEARIZED-NODE (RPLACA NCONC1) +\STREAM.FROM.PACKET (CHECK) FONTSET (ERROR SETTOPVAL MAPC FONTMAPARRAY SET) \10MBGETPACKET ( +\MAYBEPRINTPACKET) SPACES (.SPACECHECK. FRPTQ) \8DISPLAYINIT (DECLARE) /SETATOMVAL (UNDOSAVE) +FIND.MATCHING.WORD (DECLARE) PRINTNUM (DECLARE \ILLEGAL.ARG FRPTQ SPACES FREERESOURCE) +\DRAWELLIPSE.PSC (printout PRIN1 POSTSCRIPT.PUTCOMMAND POSTSCRIPT.OUTSTR MAPC) BROWSE/LAYOUT/HORIZ ( +DECLARE) PRINTOPCODES (printout TAB) \TEDIT.UNIQUIFY.CHARLOOKS (FREPLACEFIELD) TAB (SPACES TERPRI) +GETCHARBITMAP (\ILLEGAL.ARG BITBLT) \ABORT.BULK.DATA (SPP.SENDATTENTION) BRHL/LAYOUT (DECLARE) +MakeMenuOfImageTypes (DECLARE FRPLACD) \DO.PROGV.SETUP.FRAME.AND.EXECUTE (DECLARE PUTBASEPTR +SETSTKNAME-RAW SETSTKNTOFFSET-RAW) MAKEWITHINREGION (DECLARE) \TEDIT.UPDATETREE (\PUTBASEFIXP +FREPLACEFIELD HELP) \TRANSLATE.3TO10 (\BLT ENCAPSULATE.ETHERPACKET \MAYBEPRINTPACKET +TRANSMIT.ETHERPACKET) XCL::PUT-IMPLICIT-KEY-HASH (UNINTERRUPTABLY) \CORE.CLOSEFILE (SELECTQ +\CORE.UPDATEOF \CORE.RELEASEPAGES UNINTERRUPTABLY) MB.MARGINBAR.SIZEFN (IMAGEOBJPROP) POSTSCRIPT.TEDIT + (TEDIT.FORMAT.HARDCOPY CLOSEF?) \TEDIT.PARSE.CHARLOOKS.MENU (MAPC SELECTQ MB.NWAYBUTTON.ADDITEM +TEDIT.DELETE TEDIT.OBJECT.CHANGED TEDIT.PROMPTPRINT MBUTTON.FIND.NEXT.FIELD) \MAKEBRUSH.HORIZONTAL ( +BITBLT) \PFGetVols (FRPLACD) FM.ENDEDIT (\FM.INSUREWINDOW) \COURIER.TRACE (TAB SPACES LVLPRIN2) +\MAPPNAME.INTERNAL (DECLARE FREERESOURCE) \CORE.UPDATEOF (FREPLACEFIELD) TOPATTACHEDWINDOWS (TOTOPW) +\GETREGION.CHECKBASEPT (ERROR) MSADDMODIFIER (MSINIT PUTASSOC PUTHASH) PUTCHARBITMAP (\ILLEGAL.ARG) +SHOW.IP (APPENDNUMBER.IP APPENDINTEGER.IP APPENDOP.IP APPENDSEQUENCEDESCRIPTOR.IP COPYBYTES +\SETFILEPTR \CHANGECHARSET.IP) FILES.PUTDEF (PUTDEF ADDFILE) \TEDIT.ADJUST.LINES (BITBLT FREPLACEFIELD + \FILLWINDOW) VARSBOUNDINFORM (DECLARE) \DUMPEXPORTS (PRIN1 PRIN2 MAP PRINT) GO.TO.RELATIVE (MOVETO) +/PUTPROP (ERRORX UNDOSAVE FRPLACD /RPLACA SETPROPLIST) \VAMGetVAMPageFor (\VAMBufferSave +UNINTERRUPTABLY) SEDIT::CREATE-NODE (NCONC1 RPLACA) RPLSTRING (LISPERROR \SMASHABLESTRING \BLT +\PUTBASEFAT \MOVEBYTES) ENDPREAMBLE.IP (APPENDOP.IP) SEDIT::START-COMMENT (SEDIT::INSERT) \SHOWTEXT ( +DSPFILL) CLEARFILEPKG (TERPRI PRIN1 UPDATEFILES PRINT SMASHFILECOMS NCONC1 CLRHASH) \CORE.GETINFOBLOCK + (DECLARE \CORE.UNPACKFILENAME SELECTQ SHOULDNT) MB.MARGINBAR.TABTRACK (GETMOUSESTATE +MB.MARGINBAR.SHOWTAB) EDITAPPLYTOLINK (CLEARW CLRPROMPT PRIN1 FLIPNODE ERROR! SPACES) CHAT.STARTUP ( +TTY.PROCESS RPLACD MAP CHAT.INIT PROCESSPROP CLEARW printout DECLARE TERPRI) BKSYSCHARCODE (FRPLACD) +ALLCALLS (DECLARE MSINITFNDATA MSPRGLAMBDA MSPRGE FRPLACD) VOLUMES (\LFEntryPoint) FM.EDITITEM ( +\FM.INSUREWINDOW \FM.ENDEDIT) MSADDRELATION (MSSETUP MSADDMODIFIER) TTYINPROMPTFORWORD (SELCHARQ) +BKSYSBUF (DECLARE BKSYSCHARCODE \MAPPNAME) XCL:UNBREAK-FUNCTION (PUTD REMPROP SI::CHANGE-CALLS +SI::FINISH-UNBREAKING) \CORE.FINDPAGE (\ILLEGAL.ARG RPLACD) MOVECHARBITMAP (BITBLT PUTCHARBITMAP) +\MAKEBRUSH.VERTICAL (BITBLT) TEDIT.SELECT.LINE.SCANNER (SELECTQ RPLACA \BACKFORMAT \FIXSEL SHOULDNT) +FONTPROFILE.ADDDEVICE (DECLARE MAPC) COMP.STRETURN (COMP.ST) CHECKFPTOVP1 (printout \PRINTVP) +FB.SORTCOMMAND (FB.PROMPTW.FORMAT FB.SET.DEFAULT.NAME.WIDTH MAPC FB.MAYBE.WIDEN.NAMES +FB.INSERT.SUBDIRECTORIES FB.HEADINGW.DISPLAY TB.REPLACE.ITEMS FB.PROMPTWPRINT) PROCESS.EVALV ( +\SMASHLINK) DIRECTORY.MATCH (SELCHARQ) TRAPMAKE (SORT printout PRIN1 DV) CHECKFPTOVP (CHECKFPTOVP1) +\IRM.GET.KEYWORDS (PRINTOUT DECLARE) FONTCOPY (MAP) DIRECTORY.MATCH.SETUP (RPLACA) \FAST4BIT (\PUTBASE +) \FILLCIRCLE.PSC (POSTSCRIPT.PUTCOMMAND BLTSHADE BITBLT POSTSCRIPT.PUTBITMAPBYTES) TYPE.BUFFER (MAPC) + TOGGLE/SIDESFLG (DSPFILL) TEDIT.BUILD.PCTB1 (SETFILEPTR SELECTC \TEDIT.GET.CHARLOOKS1 +TEDIT.GET.OBJECT1 \WIN SHOULDNT INSERT-BRT) FONTSAVAILABLE (DECLARE LISPERROR \ILLEGAL.ARG) +FONTMAPARRAY (ERROR MAPC) SEDIT::STRINGWIDTH (DECLARE) LISPDIRECTORYP (DECLARE OBTAIN.MONITORLOCK +SI::MONITOR-UNWIND) \24DISPLAYINIT (DECLARE) TOGGLE/DIRECTEDFLG (DSPFILL) UTF8.PEEKCCODEFN (\BIN +\BACKFILEPTR ERROR) GAINSPACE (MAPC TERPRI ERSETQ PRIN1 MAPATOMS) COROUTINE (RESUME EVAL) WARNUSER ( +SOME LISPXPRIN1 LISPXPRIN2 CLISPFORERR1 LISPXTERPRI) \LOOKUPFONTSINCORE (DECLARE FRPLACD) +GC-FILING-DIRECTORY (PRINTOUT PRIN1) \SMASHABLESTRING (\MAKEWRITABLESTRING \FATTENSTRING) +\TEDIT.PROCIDLEFN (GETMOUSESTATE TTY.PROCESS) \CORE.GETFILEHANDLE (CL:ERROR) CREATESCREEN ( +DSPOPERATION DSPFONT DSPRIGHTMARGIN CL:PUSHNEW) BRHL/LAYOUT/DAUGHTERS (DECLARE RPLACA BRHL/MOVE/RIGHT) + SPP.SENDATTENTION (FREPLACEFIELD) COMPILE (DECLARE COMPSET PRINT-COMPILE-HEADER PRINT CLOSEF) +CURRENT.WORD (DECLARE CHECK) \RPLCHARCODE (LISPERROR \SMASHABLESTRING \PUTBASECHAR DECLARE) EQUALHASH +(DECLARE MAPHASH) \BLTSHADE.PSC (POSTSCRIPT.PUTCOMMAND BLTSHADE BITBLT POSTSCRIPT.PUTBITMAPBYTES +\MOVETO.PSC) FONTFILEFORMAT (FRPTQ CLOSEF) PFI.PRINT.ENVIRONMENT (PRINTDEF PRIN3) COMPARE (PRIN2 PRIN1 + TERPRI COMPARELISTS) MB.THREESTATE.DISPLAY (DSPXOFFSET DSPYOFFSET DSPFONT MOVETO PRIN1 BITBLT SELECTQ + DRAWLINE) \TEDIT.APPLY.CHARLOOKS (TEDIT.LOOKS \SHOWSEL TTY.PROCESS) \TFBRAVO.READ.USER.CM (SETBRK +SETSEPR SELECTQ NCONC1) TEDIT.BUILD.PCTB2 (SETFILEPTR SELECTC SETA \TEDIT.GET.CHARLOOKS FREPLACEFIELD +TEDIT.GET.OBJECT SHOULDNT \INSERTPIECE) RECEVAL (DECLARE) RECORD (HELP) \PFFindRootDirEntry ( +\PFPatchRootDirEntries ERROR) \TFBRAVO.LCASER (MAP) GNCCODE (UNINTERRUPTABLY) LISPX/1 (SELECTQ) +GLCCODE (UNINTERRUPTABLY) SHAPEW (PROMPTPRINT) \IRM.WILDCARD (FRPLACD) \PRINTFPTOVP (printout \PRINTVP + TERPRI) CL:LOAD (CL:CLOSE) STREQUAL (DECLARE) TTDOTABS (ADDCHAR FRPLACD) CLISPIFY (DWIMUNSAVEDEF +/PUTD MARKASCHANGED) OR (DECLARE) DWIMIFY (LISPXPRIN1 RESETFORM DECLARE PRINTDEF SI::RESETUNWIND +TERPRI) SHRINKBITMAP (BITBLT BLTSHADE) OPENATTACHEDWINDOWS (WINDOWPROP MOVEATTACHEDWINDOWTOPLACE) +MSADDANALYZE (MAPC) FW-ADJUST-REGION (DECLARE MAPC) \VAMInit (DECLARE OBTAIN.MONITORLOCK +SI::MONITOR-UNWIND) L-CASE (DECLARE \PUTBASECHAR FREERESOURCE) ENDPAGE.IP (SHOW.IP APPENDOP.IP) +FILEPKGCOMS.PUTDEF (MAPC) \LOCKFN (\LOCKCELL) U-CASEP (DECLARE) \UNITWIDTHSVECTOR (\PUTBASE) +\MAKEWRITABLESTRING (%%MAKE-ARRAY-WRITEABLE %%MAKE-STRING-ARRAY-FAT) MAPFILES1 (CL:FUNCALL CL:APPLY) +\NSFILING.COPY/RENAME (CL:FORMAT FREPLACEFIELD RELEASE.MONITORLOCK OBTAIN.MONITORLOCK \BULK.DATA.CLOSE + \NSFILING.RELEASE.BULKSTREAM) EDITBM (DECLARE BITBLT TOTOPW ERROR EDITBMRESHAPEFN SPAWN.MOUSE DISMISS + CLOSEW MARKASCHANGED STKEVAL) \TEDIT.UNIQUIFY.PARALOOKS (FREPLACEFIELD) KILLSEGMENT (FRPLACD) +MOVEATTACHEDWINDOWS (MAPC MOVEW) LOADFNS (DECLARE FRPLACA LISPXPUT RESETSAVE SETFILEPTR +CL:MULTIPLE-VALUE-SETQ) TEDIT (RESETLST DECLARE OBTAIN.MONITORLOCK \TEDIT.CREATEW.FROM.REGION +SI::MONITOR-UNWIND TEXTPROP PROCESSPROP TTY.PROCESS) TEDIT.UNDO.REPLACE (\SHOWSEL TEDIT.UNDO.INSERTION + TEDIT.UNDO.DELETION \TEDIT.HISTORYADD \FIXSEL) %%MAKE-STRING-ARRAY-FAT (CL:ERROR UNINTERRUPTABLY) +POSTEDITALISTS (MARKASCHANGED MAPC PUTHASH RPLACA) TEDIT.PUT (RESETLST UNINTERRUPTABLY +\TEDIT.WINDOW.TITLE MBUTTON.SET.FIELD \TEDIT.HISTORYADD) \FORWARD.PUP (PRINTPUP) LIST-ALL-BLOCKRECORDS + (FRPLACD) %%MAKE-ARRAY-WRITEABLE (CL:ERROR UNINTERRUPTABLY) SHOWCHARS (PRINTOUT PRIN2 TAB PRIN1) +\CORE.GETFILENAME (DECLARE \CORE.UNPACKFILENAME) FONTPROFILE (MAPC ERROR /SETATOMVAL FONTMAPARRAY) +FB.PROMPTFORINPUT (FRESHLINE CLEARW PRINTOUT TERPRI) \CORE.PACKFILENAME (DECLARE) +\ROUTINGTABLE.INFOHOOK (\CHECK.ROUTING.TABLE WINDOWADDPROP CLEARW PRINTROUTINGTABLE DSPFONT) SPELLFILE + (DECLARE SELECTQ) TEDIT.GET.OBJECT0 (SETFILEPTR) \MAKEBRUSH.DIAGONAL (BITMAPBIT) ALLOCHASH (ERROR +SETUPHASHARRAY) \NSRANDOM.CLOSEFILE (RESETLST OBTAIN.MONITORLOCK \CLEARMAP \NSRANDOM.TRUNCATEFILE +\NSRANDOM.RELEASE.HANDLE \GENERIC-UNREGISTER-STREAM) \CREATE-REAL-CHARSET.DISPLAY (ERROR) +SEDIT::BUILD-WINDOW (GETPROMPTWINDOW WYOFFSET DSPLINEFEED) \CORE.NAMESCAN (RPLACD) LAYOUTSEXPR ( +DECLARE LAYOUTSEXPR1) CONSTANTEXPRESSIONP (FRPLACD) \PUTBASESTRING (DECLARE \PUTBASEBYTE ERROR +\MOVEBYTES) \CORE.UNPACKFILENAME (DECLARE) INSERTLINE (INSERT.NODE FRPLACA TTCRLF DO.INSERT.LINE +TTPROMPTCHAR RENUMBER.LINES) \SFMAKEITALIC (BITBLT) \TFBRAVO.EOLS (TEDIT.INSERT) \PUTBASESTRINGFAT ( +\MOVEBYTES \PUTBASETHIN) AUTOCR? (START.NEW.LINE BREAKLINE) SLITLOOP (MAPC ATTACH) GENSYM ( +\ILLEGAL.ARG ERROR HELP UNINTERRUPTABLY RPLCHARCODE RPLSTRING) \TEDIT.GET.CHARLOOKS.LIST (FRPLACD) +FM.SHADE (\FM.INSUREWINDOW) HCOPYALL1 (FRPTQ DECLARE MAPHASH MAPC) TILE (BITBLT) +\CREATECHARSET.DISPLAY (DECLARE) \BUILDSLUGCSINFO (\FSETWIDTH \FSETOFFSET BLTSHADE) BLTPATTERN.GENERIC + (BITBLT) \IFSERRORSTRING (SETFILEPTR RPLCHARCODE CLOSEF) COURIER.WRITE (SELECTQ PUTWORD DECLARE +PUTLONG COURIER.WRITE.STRING CL:FUNCALL \COURIER.UNKNOWN.TYPE MAPC COURIER.WRITE.SEQUENCE) COMPILE1A ( +CL:FORMAT DWIMIFY0 TERPRI) \CORE.OPENFILE (\FILE.WONT.OPEN \COREFILE.SETPARAMETERS \CORE.SETACCESSTIME +) ADDTEMPLATEWORD (MSINIT) \READDISPLAYFONTFILE (DECLARE RESETLST RESETSAVE SHOULDNT) \VFMInit ( +DECLARE OBTAIN.MONITORLOCK \VFMClearIntervals SI::MONITOR-UNWIND) SetBcplString (LISPERROR +\PUTBASEBYTE \PUTBASESTRING) \CORE.SETACCESSTIME (SELECTQ SHOULDNT) CLISPATOM1 (FIX89TYPEIN SELECTQ +FRPLACA DWIMERRORRETURN /RPLNODE CLRPLNODE CLISPATOM2) LENGTH (DECLARE SETN) POSTSCRIPT.HARDCOPYW ( +ALLOW.BUTTON.EVENTS BITBLT CLOSEF) \SETARG0 (CHECK) AS.CHANGE.OWN.PASSWORDS (DECLARE) TEDIT.PUT.PCTB2 +(DECLARE TEDIT.PUT.PAGEFRAMES \TEDIT.FLUSH.UNUSED.LOOKS \TEDIT.PUT.CHARLOOKS \TEDIT.PUT.PARALOOKS +\TEDIT.PUT.SINGLE.CHARLOOKS BOUT COPYBYTES MAPC COPYCHARS \DWOUT \SMALLPOUT CLOSEF) +CHAT.PROMPT.FOR.INPUT (CLEARW WINDOWPROP) \DOHARDRETURN (\DOHARDRETURN1 \CONTEXTSWITCH) TTADDTAB ( +FRPLACD) MB.MARGINBAR.DISPLAYFN (DSPXOFFSET DSPYOFFSET MARGINBAR BITBLT) FM.REDISPLAYMENU ( +\FM.INSUREWINDOW) \DOHARDRETURN1 (CHECK \DECUSECOUNT FREPLACEFIELD FLIPCURSORBAR \BLT \INCUSECOUNT +\SMASHLINK) COMP.STTAG (OPT.COMPILERERROR COMP.ST) HCOPYALL (CLRHASH) GETSETQ (SELECTQ /RPLNODE +RECORDERROR) TEDIT.UNDO.MOVE (\SHOWSEL \DELETECH \FIXDLINES \TEDIT.INSERT.PIECES \FIXILINES +FREPLACEFIELD TEDIT.UPDATE.SCREEN \FIXSEL \COPYSEL) \MKATOM (COMPUTE.ATOM.HASH) \DOGC1 (\GCSCANSTACK +\GCMAPSCAN \GCMAPUNSCAN) FB.INSERT.SUBDIRECTORIES (DECLARE ATTACH) \TEDIT.TEXTBIN.FILESETUP ( +SETFILEPTR \PAGEDBACKFILEPTR) SHOWGRAPH (WINDOWPROP DSPOPERATION REDISPLAYGRAPH) \CREATE.SYMBOL ( +\MKATOM.FULL \MAKEMDSENTRY \INITATOMPAGE \BLT \PUTBASETHIN \MOVEBYTES \ADDREF) \GCSCANSTACK (SELECTC +CHECK FRPTQ FREPLACEFIELD) SEDIT::COPY-NODE (CL:FUNCALL) \CORE.SETFILEPTR (\CORE.UPDATEOF +UNINTERRUPTABLY) UNCLISPTRAN (/RPLNODE2 /PUTHASH) \SCALEDBITBLT.PSC (BITBLT POSTSCRIPT.PUTCOMMAND +POSTSCRIPT.PUTBITMAPBYTES \MOVETO.PSC) EXPANDBM (BLTSHADE BITBLT) \PARSE.NUMBER (DECLARE) \DOGC ( +\DOGC1 \CONTEXTSWITCH) \TEDIT.SHOW.CHARLOOKS (\SHOWSEL) \CORE.BACKFILEPTR (LISPERROR \CORE.UPDATEOF +FREPLACEFIELD) CL:COMPILE (DECLARE COMPILER::WARN-ABOUT-UNKNOWN-FUNCTIONS) \ORIGREADTABLE (SETSEPR +\SETREADSYNTAX) APPENDINTEGER.IP (DECLARE APPENDBYTE.IP APPENDSEQUENCEDESCRIPTOR.IP APPENDINT.IP) +BRHC/OFFSET (DECLARE MAPC) TERM.ERASE.IN.DISPLAY (\DTEST TERM.ERASE.TO.EOL CLEARW) \CORE.SETEOFPTR ( +\CORE.UPDATEOF UNINTERRUPTABLY \ZEROBYTES \CORE.RELEASEPAGES) \DECUSECOUNT (CHECK FREPLACEFIELD +\MAKEFREEBLOCK \DECUSECOUNT) DO?CMD (DECLARE \CARET.DOWN SELECTQ TTRUBOUT RESTORE.CURSOR +BACKWARD.DELETE.TO MOVE.TO.WHEREVER READFROMBUF) PURGEDSKDIRECTORY (DECLARE OBTAIN.MONITORLOCK ERROR +UNINTERRUPTABLY TERPRI MAPC \LFPurgeDirectory SI::MONITOR-UNWIND) FM.REDISPLAYITEM (\FM.INSUREWINDOW +BLTSHADE) \SEARCHDISPLAYFONTFILES (DECLARE) \INCUSECOUNT (CHECK \MP.ERROR SELECTC) SCANEXP (DECLARE +SETFILEPTR RATOM SCANDECLARECOLON SELECTQ FILECREATED1 SKREAD EVAL) \COPYDATATYPE (UNINTERRUPTABLY +\BLT) COMP.STJUMP (COMP.ST OPT.CCHECK) BMOBJ.PUTFN (\PRINTBINARYBITMAP PRIN2) \INITATOMPAGE (\NEW4PAGE + FRPTQ \NEWPAGE) \DOSTACKOVERFLOW (\GATHER-CLEANUP-FORMS \CONTEXTSWITCH) GETSELECTEDITEMS (FRPLACD) +\CORE.GETNEXTBUFFER (LISPERROR SHOULDNT UNINTERRUPTABLY \ILLEGAL.ARG BLOCK) \PROMPT.FOR.PUP.NUMBER ( +printout PRIN1 CLEARBUF FLASHWINDOW) SIMPLETEXTEDIT (SET.TTYINEDIT.WINDOW RESETSAVE COPYBYTES +SETFILEPTR FREERESOURCE DECLARE) \MAKEMDSENTRY (DECLARE) MB.NB.DISPLAYFN (DSPXOFFSET DSPYOFFSET +DSPFONT BITBLT) \MOVEFRAME (FLIPCURSORBAR CHECK \BLT FREPLACEFIELD \MAKEFREEBLOCK) SPELLFILE1 (DECLARE + MAP) WINDOWWORLD (DECLARE UNINTERRUPTABLY \CLEARBM CHANGEBACKGROUNDBORDER CL:PUSHNEW TTYDISPLAYSTREAM + SETLINELENGTH DSPTEXTURE DSPOPERATION DSPSCROLL WINDOWPROP CLEARW) \ALLOCBLOCK (DECLARE \ILLEGAL.ARG +\LISPERROR SELECTQ ERROR UNINTERRUPTABLY FRPTQ \CHECKARRAYBLOCK .INCREMENT.ALLOCATION.COUNT. +\CREATEREF LISPERROR) \SETUPUSERSTACK (\UNLOCKPAGES \SETUPGUARDBLOCK \CONTEXTSWITCH) SLICESET (HELP) +\NSFILING.NEXTFILE (\NSFILING.CLOSE.BULKSTREAM) \COURIER.HANDLE.BULKDATA (\BULK.DATA.CLOSE) +TEDIT.GET.CHARLOOKS0 (FRPLACD) IDLE.SHOW.OPTIONS (FRESHLINE) BYTECOMPILE2 (COMP.ATTEMPT.COMPILE) +INSERT.TEXT (TTINSERTSECTION) BLTPATTERN (BLTPATTERN.REPLACEDISPLAY BLTPATTERN.GENERIC) \MKATOM.FULL ( +DECLARE) TTYIN.SHOW.?ALTERNATIVES (CHECK FRPLACA BEEP SAVE.CURSOR GO.TO.FREELINE TTPRIN1COMMENT +TTPRIN1 DECLARE) \NEWPAGE.PSC (POSTSCRIPT.ENDPAGE) ERROR (DECLARE SIGNAL ERRORMESS1 SETERRORN) +\FONTFILENAME (RPLACD) \TEXTMENU.TOGGLE.DISPLAY (DSPXOFFSET DSPYOFFSET DSPFONT MOVETO PRIN1 BITBLT +SELECTQ ERROR) SCANDEFINEQ (SETFILEPTR NCONC1 SELECTQ RPLACA SCANFILEHELP SKREAD RPLACD RETFROM) +SPELLFILEDIR (DECLARE) OPT.CFRPTQ (COMP.VAL COMP.STTAG COMP.STCOPY COMP.STFN COMP.STJUMP COMP.VALN) +\AGE.ROUTING.TABLE (\CHECK.ROUTING.TABLE SETUPTIMER RPLACA \RPLPTR) MAPATOMS (APPLY* HELP) +\EXTENDSTACK (\DOLOCKPAGES \MAKEFREEBLOCK \SETUPGUARDBLOCK) \TEDIT.NEUTRALIZE.CHARLOOKS (\SHOWSEL +\TEDIT.NEUTRALIZE.CHARLOOKS.MENU TEDIT.UPDATE.SCREEN) EXTEND/TRANSITION/CHAIN (RPLACD) +PROPS.WHENCHANGED (RETFROM SELECTQ CLEARCLISPARRAY) CL:PRINT (SPACES) COMPILER::CLOSURE-ANNOTATE-LAMBDA + (FRPLACD) MOVETO.IP (APPENDNUMBER.IP) CONDITIONS:COMPUTE-RESTARTS (WALK-PROCEED-CASES) \RELEASE.IOCB +(SELECTQ \ILLEGAL.ARG) INSPECT/AS/BLOCKRECORD (TERPRI) ATOMHASH#PROBES (DECLARE COMPUTE.ATOM.HASH) +CREATE-PROCESS-STREAM (FREPLACEFIELD) ONEDINSPECTW.CREATE (WITH-INSPECTOR-ENV ONEDINSPECT.RESHAPEFN +RIGHTW.RESHAPEFN TITLEW.REPAINTFN) GRAPHOBJ.FINDGRAPH (DSPFILL GETMOUSESTATE) TEDIT.GET.PARALOOKS0 ( +FRPLACD RPLACA RPLACD) ED (FRPLACD TERPRI EDITE EDITDEF) MAXATTACHEDWINDOWEXTENT (SHOULDNT) +SEDIT::UNDO-EXTRACT (RPLACD SEDIT::DETACH-NODE SEDIT::REVIVE-NODE) \VAMCheckEndOfVol (DiskError +LISPERROR) CLIPRECTANGLE.IP (APPENDNUMBER.IP) SEDIT::REDO (SEDIT::SET-SELECTION-NOWHERE +SEDIT::SET-POINT-NOWHERE SEDIT::UNDO-EVENT printout TERPRI) SEDIT::SKIP-TO-GAP (printout TERPRI) +BLTSHADE (DECLARE) BKSYSBUF.GENERAL (BKSYSBUF.GENERAL DECLARE SI::RESETUNWIND) \FONTFACE.COLOR ( +DECLARE \ILLEGAL.ARG) UNDOSET (UNDOSAVE SETTOPVAL SETSTKARG) NewPrinter (DECLARE RPLACD) +DO-HISTORY-SEARCH (DECLARE) \GENERIC-UNREGISTER-STREAM (DECLARE \ILLEGAL.ARG ERROR) +COMPILER::RESOLVE-VARIABLE-BINDING (CL:CERROR) \DSPSCALE.PSC (POSTSCRIPT.PUTCOMMAND) +DBG::MAKE-FRAME-INSPECT-WINDOW (DBG::%%RELEASE-STACK-DATUM WINDOWADDPROP) INSTALLBRUSH (DECLARE SETA) +\ADD-OPEN-STREAM (\ILLEGAL.ARG FREPLACEFIELD) \COURIER.RESULTS (\COURIER.TRACE \COURIER.HANDLE.ERROR) +\PAGEDEOFP (\UPDATEOF) SEDIT::TRANSLATE-CHARS (DECLARE) SEDIT::SELECTED-FN-NAME (SEDIT::CLOSE-OPEN-NODE +) FMAPRINT (PRIN1 PRIN2) SEDIT::UNDO-ATOM-CHANGE (SEDIT::UNDO-BY SEDIT::SUBNODE-CHANGED) +BEGINPREAMBLE.IP (APPENDOP.IP) \PAGEDGETEOFPTR (\UPDATEOF) \FIND.LOCALPUPHOSTNUMBER (printout PRIN1) +\NSRANDOM.READPAGES (\NSRANDOM.REESTABLISH \CLEARBYTES \BLT \NSRANDOM.CHECK.CACHE) POSTSCRIPT.ENDPAGE +(POSTSCRIPT.SHOWACCUM POSTSCRIPT.PUTCOMMAND) \HANDLE.RAW.PUP (RELEASE.PUP DECLARE PRIN1 SWAPPUPPORTS +SENDPUP \PUPERROR UNINTERRUPTABLY \ENQUEUE FREPLACEFIELD) FIXSPELL1 (ERROR! LISPXTERPRI TERPRI NCONC1 +PRIN2 PRIN1 FIXSPELL2 LINBUF SYSBUF FIXPRINTIN LISPXPRIN1 BKBUFS SELECTQ LISPXWATCH LISPXPUT) +MSPRINTHELPFILE (printout PRIN1 RESETSAVE COPYBYTES) \POLYSHADE.BLT (\DrawScanList.Blt) +XCL::ADD-WHERE-IS-DATABASE (XCL::DEL-WHERE-IS-DATABASE) BREAKLINE (DECLARE ERASE.TO.END.OF.LINE +SAVE.CURSOR TYPE.BUFFER ADJUSTLINE RESTORE.CURSOR) REMOVETONODES (FRPLACD) \IRM.WILD.REF (OPENW +PRINTOUT DECLARE TERPRI) PUTD (\ILLEGAL.ARG \PUTD) VAR.NOT.USED (SETERRORN) \NODIRCORE.OPENFILE ( +\FILE.WONT.OPEN SELECTQ \COREFILE.SETPARAMETERS \CORE.SETACCESSTIME) DECLSUBFIELD (RECORDERROR +SET.RECORD.NAME SET.RECORD.FIELDNAMES) CL:MAKUNBOUND (XCL::SET-CONSTANTP) FM.RESETGROUPS ( +\FM.INSUREWINDOW \FM.UPDATEGROUPEXTENT) FIXDATUM (MAPC) HPRINSP (PRIN2) PRINTERS.WHENSELECTEDFN ( +DECLARE) COPYGRAPH (FRPLACD) \RENAMEDFN (\COPYCODEBLOCK) LINETO.IP (APPENDNUMBER.IP) SI::UNWIND-TO-BLIP + (ERROR SI::UNWIND) \NODIRCOREFDEV (\DEFINEDEVICE) \INIT-MISCN-TABLE (DECLARE MAPC SETA) SCALEBM ( +BLTSHADE EXPANDBM) EVALUABLE.CONSTANTP (DECLARE FRPLACD) BLOCKCOMPILE (DECLARE ERROR COMPSET PRINT +CLOSEF) \NSFILING.GETFILEINFO (DECLARE) SI::GET-CACHE-CLOSURE (UNINTERRUPTABLY FREPLACEFIELD) +POSTSCRIPT.PUTCOMMAND (POSTSCRIPT.SHOWACCUM \SETXFORM.PSC \BOUTEOL POSTSCRIPT.OUTSTR) +\TEDIT.GET.PARALOOKS.LIST (FRPLACD) CLOSEALL (DECLARE FRPLACD) SEDIT::GETKEY (DECLARE FREPLACEFIELD +WAIT.FOR.TTY \BACKGROUND) SI::NON-LOCAL-RETURN (FRPLACD) SCROLLW (\CHECKCARET) GRAPHEROBJ ( +IMAGEOBJPROP) \DSPSCALE2.PSC (POSTSCRIPT.SHOWACCUM \UPDATE.PSC POSTSCRIPT.PUTCOMMAND) PRINT (PRIN2 +\OUTCHAR) SPELLFILE.SPELL1 (DECLARE SETA) \UNDEFINED-MISCN-UFN (PRINTOUT PRIN1) SCANDECLARECOLON ( +SELECTQ SCANDEFINEQ SETFILEPTR SCANDECLARECOLON SCANEXP SKREAD) \PFInitializeVols ( +\PFGetLogicalVolumePage) EOFCLOSEF (DECLARE APPLY*) BLTPATTERN.REPLACEDISPLAY (BLTSHADE BITBLT) +MISCN-COLLECT (FRPLACD) MINATTACHEDWINDOWEXTENT (SHOULDNT) \STKMIN (DECLARE \PUTBASEBYTE CL:FORMAT +PRIN1) POSTEDITPROPS (PUTHASH MARKASCHANGED RPLACA) MB.MARGINBAR.SELFN (GETMOUSESTATE MARGINBAR +DECLARE MB.MARGINBAR.TABTRACK DSPFILL MB.MARGINBAR.SHOWTAB) CL:FORMAT (CL::WITH-FORMAT-ESCAPES) +\FINDOP (MAPC PUTPROP) SEDIT::SPLIT-LITATOM (SEDIT::CLOSE-OPEN-NODE SEDIT::PUNT-SET-POINT) +SEDIT::LINEARIZE-CLISP (SEDIT::LINEARIZE SEDIT::SET-COMMENT-POSITIONS DECLARE SEDIT::OUTPUT-CR +SEDIT::OUTPUT-SPACE) FM.RESETSHAPE (\FM.INSUREWINDOW) BUTTONPANEL/SELECTION/FN (SHADEITEM) +SPELLFILE.MATCHINGDIRS (FRPLACD NCONC1) SEDIT::COMPUTE-FORMATS-AND-FORMAT-VALUES (MAPC) OPENP (DECLARE +) \LFFindDirectoryVol (SHOULDNT) TEDIT.HARDCOPY (ERROR) TWODINSPECTW.CREATE (WITH-INSPECTOR-ENV +TWODINSPECT.RESHAPEFN TOPW.RESHAPEFN RIGHTW.RESHAPEFN TITLEW.REPAINTFN) \MEDW.GETSCREENREGION ( +\ILLEGAL.ARG GETMOUSESTATE \CURSORPOSITION \GETREGIONTRACKWITHBOX \GETREGION.PACKPTS +\GETREGION.CHECKOPPT DRAWGRAYBOX SETCORNER DECLARE \GETREGION.CHECKBASEPT \UPDATEXYANDBOX APPLY* +ERROR!) \DSPCOLOR.PSC (POSTSCRIPT.SHOWACCUM POSTSCRIPT.PUTCOMMAND \ILLEGAL.ARG) TEDITFROMBRAVO (INFILE + DECLARE CLOSEF? SETFILEPTR \TFBRAVO.INIT.PAGEFORMAT ERSETQ CLOSEF \TFBRAVO.INSTALL.PAGEFORMAT) CL:THROW + (DECLARE) WHENCLOSE (DECLARE STREAMPROP STREAMADDPROP) ARRAY (SELECTC \PUTBASE \BLT \PUTBASEFIXP +FRPTQ \PUTBASEFLOATP SHOULDNT) AS.MAKE.CONVERSATION (RESETSAVE) ERRORMESS (LISPXPUT) +COPY.WINDOW.TO.BITMAP (.WHILE.TOP.DS. \PUTBASE \SOFTCURSORDOWN \INSURETOPWDS DECLARE BITBLT +\SOFTCURSORUPCURRENT) COMPILER::CLOSURE-ANNOTATE-CATCH (MAPC) SCANCOMPILEDFN (RETRYSCAN SETFILEPTR +NCONC1 LAPRD RPLACA RETFROM LCSKIP) \TEDIT.EXPANDED.MENU (\TEXTMENU.START \TEXTMENU.SET.TOGGLE) +MOVE.FORWARD.TO (GO.TO.RELATIVE) \MEDW.CARET.SHOW (\CURSORBITSPERPIXEL TOTOPW BITBLT) CALLS3 (MAP) +\DELETETREE (HELP \RPLPTR \PUTBASEPTR \PUTBASEFIXP \DELETETREE \TEDIT.UPDATETREE) \LFCloseDevice ( +DECLARE OBTAIN.MONITORLOCK \PFEnsureInitialized \REMOVEDEVICE MAPC SI::MONITOR-UNWIND) FM.RESETMENU ( +\FM.INSUREWINDOW \FM.ENDEDIT MAPC) TEDIT.GET.OBJECT1 (SETFILEPTR) SEDIT::COMPUTE-ALL-FORMATS ( +SEDIT::COMPUTE-FORMATS-AND-FORMAT-VALUES) HPINITRDTBL (SETSYNTAX /SETATOMVAL) OPT.COMPINIT (MAPC) +SEDIT::QUOTE-CURRENT-SELECTION (SEDIT::CLOSE-OPEN-NODE) MSDESCRIBE (DECLARE printout PRIN1 PRIN2 +FMAPRINT TAB TERPRI MSDESCRIBE1 FRPLACD MAPC) \READSTRIKEFONTFILE (SETFILEPTR \BINS \FSETOFFSET +\FSETWIDTH \FONTRESETCHARWIDTHS) BEGINPAGE.IP (APPENDOP.IP) MAKEUSERMACROSCOMS (MAPC FRPLACD) +\STARTPUP (MAPC) \READACFONTFILE (RESETSAVE COPYBYTES SETFILEPTR ERROR \FSETIMAGEWIDTH \FSETWIDTH +\FSETOFFSET \BINS BITBLT) \NSFILING.SETFILEINFO (DECLARE printout TERPRI) COLLECTFNDATA (MAPC) +PFCOPYBYTES (DECLARE RESETSAVE SETFILEPTR \OUTCHAR) MSDESCRIBE1 (SPACES PRIN1 PRIN2 TAB TERPRI) +FW-ADJUST-PLACEMENT (DECLARE FW-ADJUST-PLACEMENT SELECTQ FW-SHAPEW FW-MOVEW SHOULDNT) MOVETOFILE ( +PUTDEF MARKASCHANGED DELFROMFILES) PFI.AFTER.NEW.PAGE (DECLARE CHANGEFONT PRIN3 printout PRIN2 +DSPXPOSITION TERPRI) ASSURE.PUP.READY (DECLARE OBTAIN.MONITORLOCK CLRHASH DEL.PROCESS +\DEL.PACKET.FILTER \ADD.PACKET.FILTER RESTART.PROCESS ADD.PROCESS NOTIFY.EVENT BLOCK SI::MONITOR-UNWIND +) \NSRANDOM.WRITEPAGES (\NSRANDOM.FETCH.CACHE \NSRANDOM.REESTABLISH \NSRANDOM.TRUNCATEFILE +\NSRANDOM.HANDLE.ERROR \NSRANDOM.WROTE.HANDLE) SHOW.CLEARINGHOUSE (FILESLOAD WINDOWPROP) PF* (DECLARE +APPLY SI::RESETUNWIND) RETURN (DECLARE \SMASHRETURN LISPERROR) LOOKUPHASHFILE (INSERTHASHKEY +REPLACEHASHKEY DELETEHASHKEY) \DISCARDFRAME (\DECUSECOUNT \MAKEFREEBLOCK CHECK FREPLACEFIELD) +SPY.BUTTON (BITBLT WINDOWPROP) \INIT-USER-SUBR-TABLE (DECLARE) \TEDIT.GET.PARALOOKS1 (FRPLACD RPLACA +RPLACD) SEDIT::COMPILE-STRUCTURE (CL:FORMAT) PF (RESETSAVE PRINTFN) \NSRANDOM.TRUNCATEFILE ( +\NSRANDOM.REESTABLISH \NSRANDOM.HANDLE.ERROR \NSRANDOM.WROTE.HANDLE) CL:REMOVE (CL:ERROR) +\SFMAKEROTATEDFONT (HELP) CHANGETRAN1 (DWIMIFYREC) \DELETEPIECE (\DELETETREE) MakeMenuOfPrinters ( +DECLARE FRPLACD) CL:FIND (CL:ERROR) TEDIT-BOOK (MAPC TEDIT.SETSEL TEDIT.FORMAT.HARDCOPY) +TB.COLLECT.ITEMS (SELECTQ FRPLACD) \NSRANDOM.SESSION.WATCHER (RESETSAVE BLOCK) TRAPLOOP (MAPC DV +FRPLACD SORT) \BASEBYTES.BLOCKIO (STREAMOP BOUT \MOVEBYTES) SCROLL.HANDLER (GETMOUSESTATE DISMISS +OPENW \UPDATE.EXTENT.IMAGE CLOSEW TOTOPW \SCROLL.HANDLER.DOIT BLOCK) ELT (\DTEST) UNDOLISPX3 (DECLARE +/RPLNODE APPLY LISPXWATCH LISPXPRIN1 LISPXPUT LISPXREPRINT SI::RESETUNWIND) \SFROTATECSINFOOFFSETS ( +\FSETOFFSET) PROCESSPROP (WINDOWPROP \SET.PROCESS.NAME \INVALIDATE.PROCESS.WINDOW RPLACD LISTPUT) +PRINTFNDEF (RESETSAVE PRIN1 PRIN2) \FONTRESETCHARWIDTHS (\FSETOFFSET \FSETWIDTH) ROTATE-BITMAP ( +FREPLACEFIELD \PILOTBITBLT) \TERPRI.PSC (DSPNEWPAGE \MOVETO.PSC) GRAPHOBJ.DISPLAYFN (DISPLAYGRAPH) +NORMLOOP (RPLACD) \BASEBYTES.IO.INIT (DECLARE) MBUTTON.CHANGENAME (IMAGEOBJPROP MB.SETIMAGE +TEDIT.OBJECT.CHANGED) FM.CHANGESTATE (\FM.INSUREWINDOW \FM.CHANGESTATE BLTSHADE) HVRPTREAD (HVREADEND) + OPT.CHECKTAG (OPT.CCHECK) BRHC/LAYOUT/DAUGHTERS (DECLARE RPLACA) \SFFIXOFFSETSAFTERROTATION (HELP) +CLEARSTK (\MAPMDS) \BASEBYTES.SETFILEPTR (ERROR) BRHC/LAYOUT/TERMINAL (DECLARE) +CHAT.CHOOSE.PHONE.NUMBER (DECLARE FRPLACD) ROTATE-BITMAP-LEFT (FREPLACEFIELD \PILOTBITBLT) SLICEREF ( +HELP) HVFWDREAD (SELECTQ READC HVREADERR) \RESETSYSTEMSTATE (\KEYBOARDON) \BASEBYTES.PEEKBIN (SELECTQ) + /SETTERMTABLE (UNDOSAVE) \RESETTERMINAL (DECLARE \RESETLINE) UNICODE.UNMAPPED (PUTHASH) +\BASEBYTES.BOUT (APPLY* ERROR) \KEYBOARDON (\SETIOPOINTERS \PUTBASE) \BASEBYTES.BIN (FREPLACEFIELD) +CH.FINDSERVER (\CH.LOCATE.SERVERS) INITIALEVALQT (DECLARE \SETIOPOINTERS SIMPLEPRINT DSPBOUT EVAL +SETTOPVAL INTERPRET.REM.CM) FB.PROMPTWPRINT (SELECTQ TERPRI CLEARW FRESHLINE PRIN1) ASKUSER$ ( +ASKUSERSETUP PRIN1) WRITESTRIKEFONTFILE (LISPERROR ERROR \WOUT DECLARE \BOUTS CLOSEF) \USER-SUBR-UFN ( +DECLARE \INIT-USER-SUBR-TABLE) INTERPRET.REM.CM (DECLARE CLOSEF RPLCHARCODE BKSYSBUF) +\TEDIT.APPLY.PARASTYLES (\TEDIT.CHECK) UTF8.OUTCHARFN (FREPLACEFIELD ERROR) TTUNREADBUF (DECLARE +BKSYSCHARCODE) \ITEMW.SELECTITEM (\ITEMW.FLIPITEM) EVAL (DECLARE) \SETUPSTACK1 (\BLT FRPTQ RPTQ +\PUTBASE \MAKEFREEBLOCK) FM.RESETSTATE (\FM.INSUREWINDOW) TTMAKECOMPLEXCHAR (MAPC) SIMPLEPRINT ( +DSPBOUT) DELETE.TO.END (SETTAIL? ERASE.TO.END.OF.PAGE KILL.LINES) \MEDW.GETBOXSCREENPOSITION ( +GETMOUSESTATE \CURSORPOSITION PROMPTPRINT \TRACKWITHBOX CLRPROMPT) STRIKECSINFO (\FSETOFFSET BITBLT +\FSETWIDTH) FASL::COLLECT-LIST (FRPLACD) \RESETSTACK (\RESETSTACK0 \CONTEXTSWITCH) +ICMLARRAY.VALUECOMMANDFN (INSPECT ICMLARRAY.SETVALUE PROMPTPRINT ICMLARRAY.INDICES) SEDIT::MUTATE ( +TERPRI printout) MULTIFILEINDEX (PFI.ENQUEUE) PAGEFAULTS (DECLARE) \PFCreateVols (SETA PUTHASH) +\RESETSTACK0 (\SETUPGUARDBLOCK) \MAKEBASEBYTESTREAM (SHOULDNT \ILLEGAL.ARG CLOSEF UNINTERRUPTABLY) +\NSRANDOM.SETEOFPTR (FORGETPAGES \SETEOF \NSRANDOM.TRUNCATEFILE) \DUMMYTELERAID (\CONTEXTSWITCH) +\MBS.OUTCHARFN (BOUT) \DOTELERAID (\TELERAIDSERVER \CONTEXTSWITCH) \FBITMAPBIT.UFN (FREPLACEFIELD +DECLARE) CARET (\CHECKCARET) RECORDECLTAIL (SELECTQ RPLACD RPLACA DECLSUBFIELD APPLY +SET.RECORD.CREATEINFO SET.RECORD.TYPECHECK SET.RECORD.DECL SET.RECORD.PRIORITY RECORDERROR +SET.RECORD.DEFAULTFIELDS) GRAPHOBJ.PUTFN (PRIN1 DUMPGRAPH GRAPHOBJ.PUTALIGN SPACES HPRINT printout) +\BUILDATWSTRUCTURE (\SETGROUPMIN RPLACD NCONC1) \PFInitFileDescriptors (ERROR) \CODEFORTFRAME (\CALLME + CLEARSTK INITIALEVALQT \REPEATEDLYEVALQT) APPENDOP.IP (ERROR) LOADFNSCAN (SCANFILE0) COMP.SETARG ( +COMP.VAL COMP.DELPUSH COMP.VAL1) TTYINEDIT (CLOSEW SETFILEPTR FREERESOURCE DECLARE) FB.SELECTEDFILES ( +FB.PROMPTWPRINT) ASKUSERPRIN1 (PRIN1 LISPXPRIN1) INITBITMASKS (SETA) \REPEATEDLYEVALQT ( +\RESETSYSTEMSTATE EVALQT) SCANFILE1 (SETFILEPTR RETRYSCAN LAPRD SCANFILE2 ERROR PUTDEF EVAL DEFINE) +\UPCASEBASE (\PUTBASECHAR DECLARE) /SETREADTABLE (UNDOSAVE) \CLEARCELLS (\PUTBASE \BLT) EVALQT ( +ENTEREVALQT FRESHLINE PROMPTCHAR TERPRI) COURIER.CALL (FRPLACD RESETSAVE) RECORDECL1 (CHECKRECORDNAME +FRPLACD RECORDECLTAIL) \CONTEXTAPPLY (\SMASHLINK) BRHC/LAYOUT (DECLARE RPLACD) FM.GETITEM ( +\FM.INSUREWINDOW) INSPECTW.SELECTITEM (\ITEMW.DESELECTITEM \ITEMW.SELECTITEM) \CAUSEINTERRUPT (CHECK +\PUTBASE) \TEXTMENU.START (WINDOWADDPROP ATTACHWINDOW TEDIT TTY.PROCESS) CRITSECT (printout PRIN1 +NORMSECT SHEDSCAN) \SETPOS.PSC (POSTSCRIPT.PUTCOMMAND) SCANFILE0 (SCANFILE1 SETFILEPTR SCANDEFINEQ +READC SCANEXP RPLACA SCANCOMPILEDFN) CREATEDSKDIRECTORY (DECLARE OBTAIN.MONITORLOCK ERROR +\LFPurgeDirectory UNINTERRUPTABLY \LFCreateDevice \PFDsplyVolumes SI::MONITOR-UNWIND) FM.HIGHLIGHTITEM + (\FM.INSUREWINDOW) LAST (DECLARE) SEDIT::BUILD-LINEAR-FORM (SEDIT::LINEARIZE) HVREADEND (HVREADERR) +\TEDIT.RESHAPEFN (\SHOWSEL \DISPLAYLINE \FILLWINDOW \FIXSEL) CREATEPAGES (\NEWPAGE) \InitCurveBrushes +(DECLARE BITMAPBIT MAPC SETA) TEDIT.RAW.INCLUDE (\SHOWSEL SETFILEPTR COPYBYTES CLOSEF +\TEDIT.INSERT.PIECES \FIXILINES TEDIT.UPDATE.SCREEN \FIXSEL \SETUPGETCH) /RAISE (UNDOSAVE) INTERRUPTED + (DECLARE \MAIKO.ETHER-INTERRUPT \MAIKO.CONSOLE-LOG-PRINT \MAIKO.IO-INTERRUPT \DOSTORAGEFULLINTERRUPT +\DOSTACKFULLINTERRUPT \DOVMEMFULLINTERRUPT \DOGCDISABLEDINTERRUPT \DOINTERRUPTHERE) \ADDOFD (\CLEAROFD +) EXPANDATTACHEDWINDOWS (DOUSERFNS) SEDIT::MENU-SUBSTITUTE-SELECTEDFN (SEDIT::MENU-SELECTEDFN) +COMPERRM (LISPXTAB LISPXPRIN1 LISPXPRIN2 RESETFORM COMPERRM) \DOMISCAPPLY1 (\CONTEXTSWITCH) ARCTO.IP ( +APPENDNUMBER.IP) COMP.ARG (COMP.VAL1 COMP.DELPUSH) \ZEROWORDS (\CLEARWORDS \PUTBASE) /PUT+1 (UNDOSAVE +FRPLACD SETPROPLIST) COMP.CALL (SELECTQ COMP.STCONST COMP.VAL COMPERROR) OPT.CHLEV (OPT.CCHECK) +DBG::BACKTRACE-ITEM-SELECTED (MENUSELECT PROCESS.EVAL) XCL:COMPILE-FORM (DECLARE +COMPILER::WARN-ABOUT-UNKNOWN-FUNCTIONS) END.DELETE.MODE (SELECTQ TTBOUT DO.LF) DSPDESTINATION (DECLARE + UNINTERRUPTABLY) IRM.CREF.BUTTONEVENTFN (GETMOUSESTATE BLOCK printout TERPRI CLEARW ADD.PROCESS) +\GATHER-CLEANUP-FORMS1 (SELECTQ) DO.EDIT.COMMAND (SELCHARQ RESTOREBUF MOVE.TO.LINE BEEP +MOVE.TO.NEXT.LINE MOVE.FORWARD.TO MOVE.BACK.TO FORWARD.DELETE.TO SKIP/ZAP U/L-CASE READFROMBUF +MOVE.TO.WHEREVER TTDELETEWORD DECLARE CHECK DELETE.TO.END DELETELINE TTUNREADBUF OVERFLOW? +ADJUSTLINE.AND.RESTORE RETYPE.BUFFER GO.TO.RELATIVE FRPLACA TYPE.BUFFER BREAKLINE DREMOVE ADDSPELL +DO.EDIT.PP) MBUTTON.CREATE (IMAGEOBJPROP MB.SETIMAGE) \MEDW.GETSCREENPOSITION (GETMOUSESTATE APPLY*) +UPDATEPCNODES (\PUTBASEFIXP FREPLACEFIELD HELP) \DISABLEGC1 (FRPTQ) XCL:COMPILE-DEFINER (XCL:COMPILE-FORM +) HVREADCHECKGETFN (\LISPERROR ERROR!) RECORDECLBLOCK (SELECTQ FRPLACD) RECORDERROR (ERROR FIXPRINTIN +LISPXSPACES LISPXPRIN1 MAPRINT LISPXTERPRI LISPXPRIN2 LISPXPRINT DWIMERRORRETURN) \GC.MODIFY.BIGREFCNT + (\GC.BIGREFCNT.MISSING SELECTC FREPLACEFIELD) \MAKE.PROCESS0 (DECLARE \MISCAPPLY* \CONTEXTSWITCH +\SETFVARSLOT \MAKE.PROCESS1 printout SELECTQ SI::RESETUNWIND \PROCESS.RELEASE.LOCKS DRIBBLE +NOTIFY.EVENT \PROCESS.GO.TO.SLEEP) CHECKSAMEDIR (RESETSAVE SELECTQ ERROR! TERPRI SHOULDNT NLSETQ) +AS.NEXT.VERIFIER (RPLACA) \GCERROR (DECLARE DISABLEGC) FILLNGON.IP (APPENDOP.IP SETCOLOR.IP MOVETO.IP +LINETO.IP APPENDINTEGER.IP) RETRYSCAN (REMHASH PRIN1 PRINT) BITBLT (DECLARE \PUTBASE \SOFTCURSORDOWN +\INSURETOPWDS \SOFTCURSORUPCURRENT TOTOPW) PFI.MAKE.LPT.STREAM (CLOSEF LISTPUT) \GC.ENTER.BIGREFCNT ( +SELECTQ \NEWPAGE \MP.ERROR FREPLACEFIELD) COMPILER::CLOSURE-ANNOTATE-BLOCK (MAPC) +TEDIT.UNPARSE.PAGEFORMAT (MAPC \ILLEGAL.ARG) TTCOMPLETEWORD (DECLARE CHECK END.DELETE.MODE HELP RPLACA + GO.TO.RELATIVE TYPE.BUFFER ADJUSTLINE.AND.RESTORE FORWARD.DELETE.TO MOVE.TO.WHEREVER ADDCHAR MOVETOP) + \BLTSHADE.BITMAP (DECLARE UNINTERRUPTABLY \BITBLTSUB) \BITBLT.BITMAP (DECLARE SELECTQ UNINTERRUPTABLY + \BITBLT.MERGE \BITBLTSUB ERROR \BWTOCOLORBLT SHOULDNT) COMPILER::TEST-ANALYSIS (COMPILER::RELEASE-TREE +) CHAT.TYPEOUT (BLOCK \CHECKCARET PRIN1 PUTSTREAMPROP SPREADAPPLY* \OUTCHAR \BOUT SELECTQ +CHAT.TYPEOUT.CLOSE DEL.PROCESS) GRAPHOBJ.GETFN (ERROR READCCODE IMAGEOBJPROP RATOM) COMP.LAM1 ( +COMP.TOPLEVEL.COMPILE) FM.GETSTATE (\FM.INSUREWINDOW MAPC) \LFCloseFile (DECLARE OBTAIN.MONITORLOCK +\CLEARMAP UNINTERRUPTABLY \LFTruncateFile \PFTrimHelper \PFSaveBuffers SI::MONITOR-UNWIND) UNDONLSETQ1 + (FRPLACD FRPLACA APPLY LISPXWATCH) \HARDRESET-CLEANUP1 (UNINTERRUPTABLY \PUTBASEPTR SETSTKNAME-RAW +SETSTKNTOFFSET-RAW MAPC RPLACD REMHASH) COMP.EFFECT (OPT.CCHECK) SUB-FORMAT (DECLARE) +\GATHER-SPECIAL-BINDINGS (SELECTC) HASH.PASSWORD (DECLARE) XCL:UNADVISE-FUNCTION (XCL:UNBREAK-FUNCTION + PUTD REMPROP SI::CHANGE-CALLS SI::FINISH-UNADVISING) SEDIT::BUILD-INTERNAL-STRUCTURE (SEDIT::PARSE +SEDIT::COMPUTE-ALL-FORMATS) RDTBL\NONOTHERCODES (DECLARE \MAPCHARTABLE) /LISPXPUT (/RPLACA) +XCL:READVISE-FUNCTION (XCL:UNADVISE-FUNCTION) LOADFNS-FINDFILE (DECLARE) \GC.LOOKUP.BIGREFCNT ( +\GC.BIGREFCNT.MISSING) \DSPSPACEFACTOR.PSC (DECLARE POSTSCRIPT.SHOWACCUM) SPP.FORCEOUTPUT ( +UNINTERRUPTABLY FREPLACEFIELD \SPPINCFILEPTR DECLARE APPLY* \SPP.STREAM.LOST) /RADIX (UNDOSAVE) +\GCMAPSCAN (CHECK .DELLINK. .GCRECLAIMLP. \ADDREF) OPT.JFIXPASS (MAPC) IDLE.SHOW.OPTION (FRESHLINE) +MB.PUTFN (HELP \STRINGOUT \SMALLPOUT DECLARE MAPC) \GCMAPUNSCAN (.DELLINK.) FIND.NON.SPACE (DECLARE) +TB.NTH.ITEM (\DTEST) IMPORTEVAL (EVAL) GRAPHOBJ.BUTTONEVENTINFN (CLOSEW) \DORETCALL (CHECK +\INCUSECOUNT \DECUSECOUNT) RECORDECL0 (PUTHASH) \FREELISTCELL (CHECK) \FORMATLINE (DECLARE \SETUPGETCH + \EDITSETA SELCHARQ \TEDIT.PURGE.SPACES \TEDIT.NSCHAR.RUN FREPLACEFIELD TEDIT.PROMPTPRINT +\DOFORMATTING) STACK.FULL.WARNING (DECLARE LISPERROR) FW-FORGET-STREAM (CLOSEW) \DISPLAYLINE ( +DSPDESTINATION DSPCLIPPINGREGION BITBLT \FORMATLINE MOVETO DECLARE RELMOVETO SELECTC TEDIT.MODIFYLOOKS + \TEDIT.BLTCHAR \DSPPRINTCHAR BLTSHADE APPLY* \TEDIT.MARK.REVISION SELECTQ) TEDIT.FORMATBOX (SELECTQ +CL:MULTIPLE-VALUE-SETQ TEDIT.FORMATPAGE TEDIT.FORMATBOX SHOULDNT BLOCK \TEDIT.HARDCOPY.DISPLAYLINE) +XCL:ADVISE-FUNCTION (CL:FORMAT CL:ERROR XCL:UNBREAK-FUNCTION SI::ADD-ADVICE) \CARET.FLASH.MULTIPLE ( +\CARET.FLASH.AGAIN) SEDIT::ATOM-CHANGE-RELINEARIZE (SEDIT::CLOSE-OPEN-NODE SEDIT::SET-POINT-NOWHERE +SEDIT::SET-SELECTION-NOWHERE SEDIT::WALK-UP-TREE) XCL:REBREAK-FUNCTION (CL:FORMAT) LOADFNS-MAKELIST ( +LISPXPRIN1 FRPLACD) \REFCNT (CHECK) XCL:TRACE-FUNCTION (CL:ERROR XCL:UNBREAK-FUNCTION PUTD +SI::CHANGE-CALLS) SEDIT::MENU-PRINTBASE-SELECTEDFN (printout DECLARE TERPRI) \ALLOCMINIMUMSIZES ( +SELECTQ MAPC \SETWINFOXSIZE) \EQREFCNT1 (CHECK) \PFCreateFileDescriptors (SETA) RESET (\SMASHRETURN +TAB) APPENDRATIONAL.IP (APPENDSEQUENCEDESCRIPTOR.IP APPENDINT.IP) START.CLEARINGHOUSE ( +GETCLEARINGHOUSE) \NSRANDOM.DESTROY.STREAM (UNINTERRUPTABLY \SETIODIRTY FORGETPAGES) +XCL:CREATE-TRACE-WINDOW (DSPSCROLL) \COPYSYS (SELECTQ \DAYTIME0 LISPERROR \CLEARSYSBUF \RESETKEYBOARD) + NIL +CLISP \TOTALFIXEDHEIGHT (bind for in when sum) FW-FILTERED-FILE? (for in thereis) MSSTOREDATA (for in +when do) TEDIT.COPY.LOOKS (type?) FILEGETDEF.VARS (for in do finally) \GETFTPCONNECTION (for in when +do type?) \TYPENUMBERFROMNAME (bind for from to do) TB.MAP.ITEMS (for in do) SEDIT::COPY-SELECTION ( +type?) FB.UPDATEBROWSERITEMS (for in bind when collect while do finally) PASTEFROMCLIPBOARD (bind +while do) \COURIER.CHECK.ERRORS (for in bind unless do) \ALLOCPAGEBLOCK (to as by do) +\TEDIT.COMMAND.LOOP (type? for inside do while) LOAD? (bind until do finally) SEDIT::SET-POINT-QUOTE ( +type?) TEDIT.DISPLAYTEXT (for instring do) MAKEFILESCOMS (for in do while) MSMARKCHANGE1 (for inside +do) PRINT-LOADED-FILE-INFORMATION (for in when do) \ATMOUT (for inatom do) SETUPFONTS.PRESS (for +inside do) TEDIT.SELECT (type?) TEDIT.SUBPARALOOKS (for on by collect bind while do) COPYFILES (for +inside do bind while) \ATMIN (for from to collect) VALUOF-EVENT (for in collect) \GETPILOTBBTSCRATCHBM + (type?) PREVWORD (for by until do finally) \CIRCSHADE.XSCAN.IP (while do) \FM.EDIT-FINDFIRST (for in +thereis) \FM.MENUHANDLER (repeatuntil bind do finally) TB.UNSELECT.ALL.ITEMS (for from to bind when do +) IMLTLIST (for in collect) CHECKIMPORTS (for inside bind when collect in do) SEDIT::ASSIGN-FORMAT-NIL + (for in do) PFI.PROCESS.FILE (bind while do) DIRECTORY.MATCH1 (bind do repeatuntil) OPT.JLENPASS (for + in do) \GETBRUSH (type?) \TEDIT.GET.SINGLE.PARALOOKS2 (for from to collect) \MAP-OPEN-STREAMS (for in + when join collect) \TEDIT.REPAINTFN (while do) \COURIER.CHECK.PROCEDURES (for in bind unless do while +) \TEDIT.PUT.CHARLOOKS.LIST2 (for from as in do) SEDIT::SHIFT-LINEAR-FORM (for in when do type?) +SEDIT::SET-POINT-LIST (type?) \UPDATE.PBT.RASTERWIDTHS (to bind do) PFI.CENTER.PRINT (for in sum on do +) PFI.CONDENSE.INDEX (for in do bind when collect unless thereis) LASTCHPOS (while do) READATABASE ( +while do) COMPILE-FILE-EXPRESSION (for in do) \TEDIT.PUT.PARALOOKS.LIST2 (for from as in do) +\TEDIT.CONVERT.TO.FORMATTED (while do) FILEGETDEF.FNS (for in when do) ALLOCSTRING (for from to do) +\FTP.PRINTPLIST (for in do bind inpname) MENUBUTTONFN (bind for in when do) CLOSEATTACHEDWINDOWS (for +in do) \UPF.NEXTPOS (bind while do) BREAK.MSG.INTO.LINES (for from to do finally) STKARGS (for from to + collect) \FM.EDIT-SETUPTTBL (for from to do) FIND.NEXT.WORD (while do) TB.DESELECTRANGE (for from to +do) ADJUSTLINE (while do) PFI.COLLECT.DEFINERS (for in bind when join collect unless thereis) +XCL::PPRINT-DEFINER (while do) \INITMDSPAGE (to do for while) FM.ITEMPROP (type?) \TOTALFIXEDWIDTH ( +bind for in when sum) UNIX-GETENV (for from do) MB.GETFN (for in do) MSPARSE (for in do when collect) +BREAKDOWN (for in do from to) \FIXILINES (for inside as in do bind while) BIT.IN.COLUMN (for from to +when do) \LEAF.DEVICEP (for from to always type?) \PRESSFAMILYCODELST (bind do for from to collect) +MSEDITE (for from to collect) NORMSECT (while do) \LFUnpackName (for instring collect) \SPP.CLEANUP ( +for in do) LAYOUTSEXPR1 (for in thereis do) BRH/LAYOUT/DAUGHTERS (for in do finally) +TEDIT.SEL.AS.STRING (for from to do) FLASHWINDOW (for to bind first do) TEDIT.\INSERT (type?) +FW-FORGET-STREAM (for in when do) \CIRCSHADE.DISPLAY (while do) \LFScavFileName (for instring until +collect in thereis) BITMAPBIT (type?) DBG::ATTACH-BACKTRACE-MENU (for from bind repeatwhile eachtime +when collect in do) SIMPLE.FINDFILE (for in when do) IDLE.BOUNCING.BOX (for on unless do while) +SPY.MERGE.CALLEES (for in do when finally) STRPOS (for from to as always) PFI.PRINT.FILECREATED (for +in collect while) TEDIT.FORMATBOX (bind for in while do when) MSERASE (for in do) FW-CREATE-OFD-LIST ( +for in bind eachtime unless do join) EDITGETDEF (bind for in when do) \CH.UPDATE.CACHE (for in do find + suchthat when finally) FILEGETDEF.PROPS (for in join finally on by when) \IGR.MAKEPRETTYCOMSL (for in + collect) CREATEW (type?) \FTP.PACKFILENAME (for in do) MENUREPAINTFN (for in do) \SEARCH.OUTPUTQ ( +bind while do finally) ASKUSER (for in eachtime collect when find suchthat) SEDIT::INSERT (type?) +\GENERIC.CURSOR (for in do) \BOXFPLUSDIF (while do) COERCETEXTOBJ (type? while do for from as to) +FIND.CHAT.PROTOCOL (for in bind when do) \GETSPP (bind do) \BUFFERED.BINS (bind do) \BOXFTIMES2 (while + do) SI::ADVICE-PUTDEF (for in collect when) PFI.PRINT.INDICES (find in suchthat) \CIRCSHADE.IP (while + do) COMPILER::META-CALL-LAMBDA-SUBSTITUTE (for in as on when do) \BOXFQUOTIENT (while do) +STRIP-KEYWORDS (for old on by while collect) \TERMINATESPP (bind do repeatuntil) \FLUSH.NDB.QUEUE ( +bind while do) \TEDIT.PUT.SINGLE.PARALOOKS2 (for in do) \MAYBEPEEKPUP (for inside thereis) +\LFDirectoryP (type?) CCCSCAN (for from by do) MSEDITF (for from to collect in bind when do) +\BUFFERED.BOUTS (bind do) APPENDNUMBER.IP (for from to by do) \DRAWPOLYGON.PSC (for in do) \USEREVENT +(for in do) TEDIT.GET.LOOKS (type?) TWODINSPECT.SELECTITEM (for on thereis in as) TEDIT.UPDATE.SCREEN +(bind for inside as do) \TEDIT.FIND.PROTECTED.START (bind first while do) \PROCESS.BEFORE.LOGOUT (for +in do) PRINTWORDS (for from to do) FEQP (while do) \COURIER.CHECKDEF (for on by do) +ONEDINSPECT.VALUEWIDTH (for in largest finally) \OPENLINEBUF (type?) \PS.SCALEHACK (for in do) +SEDIT::REPLACE-LIST (for in do by bind while as from collect type?) \CARET.FLASH.AGAIN (for by do) +\MAKEFLOAT (while do) SI::ADVICE-GETDEF (for in collect) SEPRCASE (for from to do in collect) +DUMPDATABASE (for in when do) FW-OFD-EXISTS? (for in when do) DOSLINKER (for in do) FILEGETDEF.MACROS +(for in join on by when collect) HEXSTRING (for from until do finally by) AT.END.OF.TEXT (for by until + always) \ItemNumber (for in as from do finally) FIXSPELL (for in when do) +\TEDIT.PUT.SINGLE.CHARLOOKS2 (type?) \TEDIT.PROMPT.PAGEFULLFN (for in when do) \FILLPOLYGON.PSC (for +in do) COURIER.EXECUTE.CALL (for in as do) SI::SPLIT-PROCEED-CLAUSES (for in as from do) +APPENDLARGEVECTOR.IP (for from to largest do) SHOWBITMAP.IP (bind while first do) FW-LOOP (bind first +while do finally) FB.THINCOMMAND (for on bind do finally) \GR.MAKEPRETTYCOMSL (for in collect) +\TEXTSTREAMBOUT (while do) \PEEKPUP (for inside collect) COMPILER::FRAME-ANNOTATE-TAGBODY (for in join + do) TTNTH (bind while do finally) \CIRCSHADE.BLT (while do) \LEAF.STREAM.IN.QUEUE (type?) +SPY.ORIGINAL (for in join) \SPP.EVENTFN (for in do) PFI.PRINT.MULTI.INDEX (for in as from bind do +unless) FIXFIELDORDER (for in do when on) \BSP.CLOSE.OPEN.SOCKETS (for in do when collect) +LAYOUTLATTICE (for in unless do) BRH/OFFSET (for in do) NARGS (in sum) \MAYBEPEEKNS (type?) +CONDITIONS::PARSE-RESTART-CASE (while do) \TEDIT.FORMAT.FOOTNOTE (while collect) HASDEF (for in do) +\TEDIT.GET.CHARLOOKS.LIST2 (for from to collect) IMAGEOBJP (type?) PRINT-ARGLIST (bind while do) +FTPGETMARK (bind while do finally) IMAGESTREAMP (type? for inside always) MODERN-ADD-EXEC (for from to + collect) DELDEF (for in do on by) TEDIT.STRINGWIDTH (for instring sum) \TEXTCLOSEF (type? while do) +\COERCEFONTDESC (type?) PFI.PREVIEW.DEFINEQ (until do) OPT.DELTAGREF (for on when do finally) +DEFPACKAGE (for in do collect join) IMAGESTREAMTYPEP (type? for inside always) HASHARRAY (bind find +from to by suchthat for never) \MEDW.PUTWINDOWPROP (type? for on by when do) \CH.GUESS.NEW.PROPERTIES +(for from to when collect) TEXTUREP (type?) \MATMULT441 (for from to by do bind declare as finally) +SEDIT::JOIN (for from to as in collect join thereis do) \TEXTBIN (repeatwhile do) HARRAYP (type?) +\MATMULT144 (for from to by do bind declare as finally) TERMTABLEP (type?) CLOSENSOCKET (while do) +INFILECOMTAIL (for in do finally) LOG (while count) \MATMULT331 (for from to by do bind declare as +finally) \LFCreateDevice (type?) U/L-CASE (for until do) \MEDW.GETWINDOWPROP (type?) \MATMULT133 (for +from to by do bind declare as finally) \LEAF.TIMEDOUT.EXCESSIVE (for in do type? finally) SPY.DELETE ( +for in when collect) ULREDISPLAYBITMAP (type?) \DRAWARC.PSC (for in do) \SENDSPP (bind while do) +\MATMULT444 (bind for from to by do declare as finally) PFI.PREVIEW.DECLARE (bind until do finally) +TEDIT.HARDCOPY-COLUMN-END (for in when do while finally bind) DASSEM.COUNTVARS (for in do) +PRINTPACKETDATA (bind while do finally) POSTSCRIPT.OUTSTR (for infatstring do inatom in) \MATMULT333 ( +bind for from to by do declare as finally) TTYINFIX (for in thereis) SWITCH/NODE/HEIGHT/WIDTH (for in +do) OPENIMAGESTREAM (for inside when do finally) %%COPY-STRING-TO-ARRAY (for from to do) \AddShade ( +for in do finally) \FRAMESCAN (for from by bind until do) CLEARMAP (for in do) XCL::PROFILE-VALUES ( +for in by collect) COMPAREDEFS (for in when collect on do) COMPILER::META-CALL-LAMBDA-SIMPLIFY-PARAMETERS + (for on do in) DASSEM.CANSHAREBINDING (for in when do finally find suchthat) INVERT.TEXTURE.BITMAP ( +type? bind for by until do) PRINTERPROP (for in when do) FB.HARDCOPY.MAXWIDTH (for in bind when do +finally) \TEDIT.FIND.LAST.LINE (bind while do finally) COMP.MLL (for in do type?) RUNION (for in +unless do) APPENDINT.IP (for from to by do) BUILDTESTRELQ (for in collect) PRINTERTYPE (for in thereis + bind when do) DO-DISPATCH-MACRO (while do) \FTP.HANDLE.NO (for in do) FILEGETDEF.LISPXMACROS (for in +when collect) \GR.CONTENTS (find in suchthat) \ENDVECRUN (for in do) UNIX-STREAM-IN (while do) +GETDEFFROMFILE (bind for inside when do finally) FILING.CALL (for from to collect) TEDIT.UNDO.DELETION + (bind while do) OPT.JUMPREV (type?) \MAXWIDTHOFGROUP (for in largest finally when sum) HPRINTEND (for + in as from do) PRINTFILETYPE.FROM.EXTENSION (bind for in when do) FILEGETDEF.ALISTS (for in when +collect finally) \CH.CHECK.CLEARINGHOUSE (find old in suchthat) \DO-DEFINE-FILE-INFO (for on by do) +GETDEFSAVED (for on by when do finally) SEDIT::INSERT-SPECIAL-CHARACTER (type?) ADDFILE (for in when +do) MSVERBTYPE (type?) COMPILER::META-CALL-LAMBDA (for in as do) DINFO.UPDATE.MENU.DISPLAY (for in +bind collect) \TEDIT.SET.WINDOW.EXTENT (for inside do) \POSTSCRIPT.ACCENTFN (for instring do) +SEDIT::TRACK-SELECT (bind first do repeatuntil finally) UPDATEFILEMAP (do) MSSEEKPHRASE (for in when +do while) \TEDIT.LOOKS.UPDATE (while do type?) ALLATTACHEDWINDOWS (for in join) \WRITEOUTBUFFERS (for +in collect do) \ACTONDISKPAGES (type? for in as from bind do by when) DASSEM.MATCHVARS (for in as +always) CLRHASH (bind do repeatuntil) DATATYPES (bind for from to when collect) FILEBROWSER (for on by + do in collect when bind) SMASHFILECOMS (for in when do) \DISKERROR (while do) CLOSEBSPSTREAM (while +do) SHOWSHADEDITEMS (for in thereis do) %%COPY-ONED-ARRAY (for from to do) MENUITEMREGION (for on when + do) \TEDIT.FIND.PROTECTED.END (bind first while do finally) \FTP.OPENFILE (for in when do) +\FILLPOLYGON.IP (for in do) XCL::PROFILE-VARIABLES (for in by collect) MAPHASH (bind when do +repeatuntil finally) DATATYPEP (for from to thereis) STKARGNAME (for from by as until do) +FINDPTRSBUFFER (bind while do) \CML-LOAD (until do) \DOACTONDISKPAGES (for from to until do finally) +READPLIST (bind while collect finally) GREET (for in do) \ICONW.FORMAT.TITLE1 (until collect bind do) +SETSTKARGNAME (for from by as until do) \FM.SETATTACHPOINT (for in do) SEDIT::INSERT-STRING (type?) +\FTP.WHENCLOSED (find in suchthat) \POSTSCRIPT.ACCENTPAIR (for instring do inside) SEDIT::TRACK-EXTEND + (first do repeatuntil) \FM.COLLECTNWAYS (for in do) OPENBSPSTREAM (type?) \CONVERTNUMBER (repeatuntil + do) STKNARGS (do repeatwhile) OPT.LABELNTHPR (type?) FILEPKGCHANGES (for in when collect do on +thereis) \WRITEDISKPAGES (type? for in as from bind do) MSFIXUPTYPES (for in do type?) TEDIT.QUIT ( +type? until do) HPRINT1 (while do for from to in when collect unless) PRINTCOPYRIGHT1 (for on do in +while) COPIEDFROMSPEC (for from to by do) TTECHO.TO.FILE (for do repeatwhile until) LISPXREADBUF (for +in until collect) \DOWRITEDISKPAGES (do repeatuntil for from to when finally) \LEAF.NOT.RESPONDING ( +type?) ITEM.WINDOW.SET.STACK.ARG (type?) \GENERIC.DSPCREATE (for in suchthat type?) \SHOWSEL (for +inside as in do) SCROLLBITMAP (type?) M44.SIGNAL.DISK.ERROR (bind while do) REDISPLAYBITMAP (type?) +PUP.ECHOUSER (do repeatuntil finally) EQUAL.CH.NAMES (type?) \IDLER (for in bind do until) +MAPBUFFERCOUNT (bind while count) SPY.DUMP.BUFFER (bind while do first finally for from by) +\GOOD.DASHLST (bind for in collect) \TFBRAVO.INSTALL.PAGEFORMAT (for in do) FB.SEEFULLFN (do +repeatuntil) SEDIT::INSERT-MULTI-ESCAPE (type?) CHECKDEFS (bind for on as in unless do finally join) +TEDIT.FIND.OBJECT (while do) FIXR (while do) CLEANPOSLST (for in do) REFLECT/GRAPH/DIAGONALLY (for in +do) BITMAPWIDTH (type?) \HASHRECLAIM (bind when do repeatuntil finally) DECLAREDATATYPE (for in when +collect) READFROMBUF (for by until thereis do) DO.MOUSE (bind while when do) BITMAPHEIGHT (type?) +HASHOVERFLOW (do) FLTSTR (while do) SPY.MAKE.TREE (for in sum collect) \TRACKWITHBOX (until do) +\MAXHEIGHTOFGROUP (for in largest finally when sum) \VAMFindFreePages (until do repeatuntil) +TIMESPOW10 (while do) STORAGE (from to collect for inside when do finally) TRANSLATE.DATATYPE (for in +collect do find suchthat while) GETDEFERR (for inside when do finally) INTTOEXT (while do) +TEDIT.REDO.INSERTION (bind while do) NODELST/AS/MENU (for in bind thereis) TB.SELECTRANGE (for from to + do) RAISE-SIGNAL (while do finally) EXTTOINT (while do) STORAGE.LEFT (for by while sum) +SEDIT::LOCATE-NODE-FROM-EDITCHAIN (for in thereis) COURIER.BROADCAST.CALL (for in thereis while do +finally find suchthat) ATTACHEDWINDOWREGION (for in do) FLTINTLOG (for from to bind do) \STORAGE.TYPE +(for by while do) \RESHAPEATTACHEDWINDOWSAROUNDMAINW (bind for in do) SEDIT::TTYFN (until) +\BITBLT.BITMAP.SLOW (type?) \STORAGE.HUNKTYPE (for in do) GETFILEDEF (for in when do) +\COLLECTDIRTYBUFS (bind while collect find inbufs suchthat) \STRINGWIDTH.PRESS (for inatom sum +instring do) DO-EVENT (for in do) GETDEFCOM0 (for in join collect) \VFMBlankInterval (for from to do) +\TEDIT.PUT.SINGLE.PARALOOKS (for in do) ONEDINSPECT.SELECTPROP (for on thereis in as) BUILDGETRELQ ( +for in do) \PUNT.BITBLT.BITMAP (type?) \SETIODIRTY (for inbufs when do finally) SEDIT::LINEARIZE-LIST +(for on when do while) \STRINGHASHBITS-UFN (for inpname bind do finally) FLONUM-TO-STRING (while do) +COURIER.REP.LENGTH (for in bind sum finally as) \DODISKCOMMAND (while do) \STRING-EQUAL-HASHBITS-UFN ( +for inpname bind do finally) \TEDIT.GET.PARALOOKS.LIST2 (for from to collect) TEDIT.EDIT.OBJECT (type? + for inside do) BOOTSTRAP-NAMEFIELD (while do) DIGITSBDP (while do) SEDIT::INPUT-TOKENDELIM (type?) +\IFS.LOOKUPFILE (while do to when finally) \CLEANUPDISKQUEUE (repeatuntil) SEDIT::INSERT-LITATOM ( +type?) DINFO.UPDATE.HISTORY (for in as from to collect) %%NUMERIC-STRING-P (for instring do finally) +TTYINSTRING (for by until do as from) MMLTLIST (for in collect) READHOTSPOT (until when do finally) +ARGINFO-MUNG (for in join) \FM.WINDOWEXTENT (for in when do) SEDIT::SET-DEPTH (for in do) +XCL:SAVE-PROFILE (for on by do) \CREATEINTERPRESSFONT (for in bind when do) COMPARELISTS (for on do) +\MEDW.BURYW (for in do) \FM.MAKELINKS (for in do on by) \PAGED.FORCEOUTPUT (for inbufs when collect +while do bind finally) \NSRANDOM.WRITE.SEGMENT (for inside bind do repeatuntil) SEDIT::INSERT-LIST ( +type?) COMPILE-FILE? (for inside do finally) \BREAKAPARTATWSTRUCTURE (for in join) DASSEM.DSTOREFNDEF +(on by do for in as from bind) COPY.TEXT.TO.IMAGE (do) MSPATHOPTIONS (while collect) ICMLARRAY.INDICES + (bind for in do) COPYINSERT (for inside do) \STRINGIN (for from to do) SETUPFONTS.IP (for inside do) +GETDEFCURRENT (for on by when join) WHO-LINE-TTY-STATE (for from by bind while unless do) +REPOSITIONATTACHEDWINDOWS (for in do) \TEDIT.HCPYLOOKS.UPDATE (while do type?) COMPILER::FRAME-ANNOTATE-PROGN + (for in join) SETFONT.IP (for in when do finally) TTNEXTLINE (bind while do finally) MSMSGPRINT ( +while do) \FM.UPDATEGROUPEXTENT (for in do) \LEAF.RESENDPUPS (while do) SYSRECLOOK1 (for in when do) +SPY.SUM (for in sum) \FM.READUSERDATA (for on by do) \DSPTRANSLATE.PSC (for in do) +TB.FIND.PREVIOUS.TAIL (while do) \CHECKARRAYBLOCK (bind first do repeatuntil) SEDIT::SELECT-NEXT-GAP ( +while do finally) TEDIT.GETSYNTAX (type?) \LISP.TO.NSFILING.ATTRIBUTE (for in collect finally always +by while) ALLPATHS (for in when join) DRAWDASHEDLINE (bind for in collect while do finally) +\ALLOCBLOCK.OLD (for from to bind when do repeatuntil) \DSKCreateDevice (type?) SEDIT::OUTPUT-CR ( +type?) REFLECT/GRAPH/HORIZONTALLY (for in bind do) NS.ECHOUSER (do repeatuntil finally) +TWODINSPECT.REDISPLAY (for in join collect as thereis never bind do) TEDIT.SETSYNTAX (type?) +\ALLOCBLOCK.NEW (until do) MAXSTRINGWIDTH (bind for in do finally) READ-UNICODE-MAPPING (for in join) +FILENAMEFROMID (bind until do to collect) \NSFILING.GET/SETINFO (type?) \ALLOCHUNK (for in when +collect do repeatuntil) \EXTNORMALIZE (while do) SEND.FILE.TO.PRINTER (for on by when do inside) +NSNETDAYTIME0 (to when do) TOPW.REPAINTFN (for on as until finally in bind repeatuntil do) +\HANDLE.RAW.XIP (for in when do) REFLECT/GRAPH/VERTICALLY (for in bind do) CLISPEXPANSION (do) +SEDIT::HASFAT (for instring thereis) INIT-CML-READTABLES (for from to do) \BSP.HANDLE.DATA (while do +finally) FB.SORT.VERSIONS (while do until collect) PARSE-NAMESTRING1 (type?) CMLREADSEMI (until do) +\SENDLEAF (type? until do) \FTPERROR (type?) OPENIPSTREAM (type?) \TEDIT.PARSE.CHARLOOKS.LIST (type?) +\VFMMarkBufferDirty (for in thereis) FW-OPENP (for in bind do when) CHCON (for from to collect) +DECREASING.FONT.LIST (for in collect) DBG::FIND-DEBUGGER-STACK-FRAME (bind while do finally) +\SEARCHPRESSFONTS (bind for inside when do finally) \VFMCreateIntervals (type?) +TEDIT.HARDCOPY.PAGEHEADING (repeatuntil collect type?) COMPILER::FRAME-ANNOTATE-MV-CALL (for in join) +COMPILER::META-EVAL-TAGBODY (for in do) UNPACK (for from to collect) APPENDIDENTIFIER.IP (for instring + do) READ-AFM-FILE (repeatuntil do repeatwhile type? for from to) \TEDIT.WORDBOUND.READTABLE (for from + to do in) \FM.TRANSPOSEVERT (for in do) PARSE.NSNAME (type?) TCOMPL (for inside collect) +\VANILLADISKINIT (for from to do) CH.NAME.TO.STRING (type?) \FM.TRANSPOSEHORZ (for in do) +\BSP.HANDLE.ACK (while do) TTREADLIST (while collect) PPBUFS (for inbufs do finally) +GLOBAL-MACRO-FUNCTION (find in suchthat) EDITFROMFILE (for inside when collect in do unless) +TB.RENUMBER.TAIL (for in as from do) COMPILER::RELEASE-TAGBODY (for in do) \CHECKSUM (while do) +\PFReplaceString (for from to as instring do) PRETTYCOM (for on do in by unless join) +\UNVISIBLE.FLUSH.OPEN.STREAMS (for in bind when do) SCALE.FONT (for in when do finally) +DSPCLIPPINGREGION (type?) \DSPFONT.HDCPYDISPLAY (for from to do) \LOCATE.NSNET (for in when do finally +) DCHCON (for from to do) GRAPHEDITCOMMANDFN (type?) MB.CREATE.NWAYBUTTON (for in collect as do +largest from to sum) \SHADEBITS (until when do) \FLUSHNDBS (bind while do) SPY.NEXT.TREE (for in do +finally) PSCFONT.WRITEFONT (for from to do) \UNVISIBLE.PAGED.REVALIDATEFILELST (bind for in when do) +\CHECKFORSTORAGEFULL (while do) \INIT.POWERS.OF.TEN (for from to bind do) PFI.HANDLE.PUTPROPS (for in +when do finally) \LFOpenDevice (for in thereis) \GETREGIONTRACKWITHBOX (until do) \SETGROUPMIN (for in + largest finally do) \UFSCreateDevice (type?) \TEDIT.PARSE.PARALOOKS.LIST (type? for in collect) +FW-CLOSE-OLD-OFD-WINDOWS (for in do) DUNPACK (for from to do) \GETPRESSFONTNAMES (bind do for in as +always) \NSFILING.GETFILEINFO.FROM.PLIST (for in collect) SEDIT::INPUT-QUOTE (type?) +TEDIT.SKIP.SPECIALCOND (repeatuntil collect) COMPILER::FRAME-ANNOTATE-MV-PROG1 (for in join) +\FLUSH.PACKET.QUEUE (bind while do) MERGLIST (while do) DASSEM.DWRITEFN (for in as from do) +\BN.FROM.FIXP (type?) ALPHORDER (for from do) \TEDIT.GET.SINGLE.PARALOOKS (for from to collect) +GETEXPRESSIONFROMEVENTSPEC (while collect) BLOCK (type? for in do) CASEARRAY (for from to do) BKLINBUF + (for from while do) SEDIT::MAP-COMMENT-INDEX (bind for on do finally) \VFMSmartBLT (for from to do) +\VFMSaveBuffer (for inside when do) TRANSLATE.LOCF (repeatwhile) \FILING.ATTRIBUTE.TYPE.SEQUENCE (for +in collect) \NSFILING.RELEASE.BULKSTREAM (for in when do) FREEATTACHEDWINDOW (for in when do) +\UFSOpenFile (type?) \FILING.ATTRIBUTE.TYPE (for in do finally) CONCATCODES (for in as from do) +UNIQLIST (for in do) \FILEMAP-HASHOVERFLOW (for in bind do on as from) \SWAPDISKERROR (while do) +\ACCHARWIDTHLIST (for in bind collect) \INIT.ETHER.BUFFER.POOL (to do finally) PACKC (bind for from as + in do finally to by) RECFIELDLOOK (for in join) \LOOKUPFMAP (while do) \UFSSetFileInfo (type?) +\FTP.EOL.FROM.PLIST (for in when do finally) \TEDIT.UPDATE.SHOWSEL (for inside do as in) +\READACFONTBOXES (for from to collect) PRETTYDEFCOMS (for on do) \DL.FAULTINIT (bind do repeatuntil +repeatwhile) FIND-DEBUGGER-ENTRY-FRAME (bind do repeatwhile finally) \UFSWritePages (for inside as +from bind do) \SEQUIN.HANDLE.ACK (bind do) \ACCHARIMAGELIST (for in collect) DASSEM.DASSEM (for in +when do) OPENPOSTSCRIPTSTREAM (for in do) \10MB.LOADINPUTQ (bind while do finally) \GETFBB (for in do) + CH.ADD.GROUP.PROPERTY (for in collect) \UFSReadPages (for inside as from bind first sum) TEDIT.FIND ( +for in collect when) FILEPKG.MERGECHANGES (for in do finally when collect unless) \UFSTruncateFile (to + do) \BN.TIMES2 (for from to do) \ACCHARPOSLIST (bind first for from to collect) FW-CLOSEFN (for in +when do) \UFSGetFileInfo (type?) \BN.DIVIDE (for from to do) TTY.PROCESS (type? for in when do bind +while collect) \LFINITCASEARRAY (for from to do) D-ASSEM::TYPE-NAME-FROM-SIZE (for in when do finally) + \D01.FAULTINIT (for from to do finally) BRECOMPILE (for in when collect always join do) +\PFTransferFilePage (for from by as while do) FB.DELVER.FILES (for in bind do finally) COPYHASHITEM ( +type?) COMP.DELFIX (while do) TEXTSTREAMP (type?) OPT.JUMPTHRU (while do type?) +\FM.EDITSTART-SELECTEDFN (type?) \3MBFLUSH (while sum) \FAMILYCODE (bind do for from to always) +SEDIT::PLACE-CARET-AND-SELECTION (for from as by thereis type?) \LFRenameFile (type?) \LFDeleteFile ( +type?) FB.ANALYZE.PATTERN (do for) PLAYTUNE (for in do until) \BN.2TH (while do) SPY.MERGE (for in do +bind finally when) \TEDIT.SEARCH.CODETABLE (for from to do in as) \LEAF.STRIP.QUOTES (for by while +collect) \LITATOM.EATCHARS (for from to as do) \MEDW.SHRINKW (type?) \NSINIT (for in do) +\LEAF.REPAIR.BROKEN.PUP (type?) GETSYNTAX (type?) SPY.MAKEGRAPHNODES (for in when bind do finally) +EDITSHADE (do until bind finally) SEDIT::REVIVE-NODE (for in do) IN/ITEM? (for in when do) +\GTREADTABLE1 (type?) TTNTHLINE (for do) UnixShellQuote (while do) D-ASSEM::COPY-LAP-CODE (for in +collect) \TEDIT.HCPYFMTSPEC (for in collect) SCALE/GRAPH (for in collect) MAKEBITTABLE (type? for in +do from to) \GTTERMTABLE (type?) EXCHANGEXIPS (bind until do) \INSPECTW.COMMAND.HANDLER (until) +IRM.RESET (type?) \BLOCKDATAP (type?) \SEQUIN.FLUSH.RETRANSMIT (while do) \DOFORMATTING.HARDCOPY (bind + while do) COMP.EXPR (for in sum) D-ASSEM::EMIT-BYTE-LIST (for in do) ONEDINSPECT.SELECTITEM (for on +thereis in as) SET-PROFILE-INTERACTIVELY (for in bind collect) SEDIT::OUTLINE-SELECTION (bind while do + finally) DISPLAYSTREAMP (type?) \CHAIN.UP.RPT (for from to do) COURIER.READ.BULKDATA (type? bind join + repeatuntil) FB.CLOSE&EXPUNGE (find in suchthat) SPY.LEGEND (for in collect) \FM.EDIT-ITEM (do until) + TRACKW (until bind do) \SPP.DUPLICATE.REQUEST (bind for in thereis) FB.CHECK.NAME.LENGTH (for bind +when do) \NSFILING.ADDQUOTES (for instring bind do finally) \SHOW.ARRAY.FREELISTS (for from to do +repeatuntil by as in when) DETACHALLWINDOWS (for in do) SEDIT::INPUT-DOT (type?) MAKEDEFLIST (for in +bind do) \FM.EDIT-FINDNEXT (for in thereis) \M44DOEXTENDVMEMFILE (while do for from to) +\DEVICEFILE.EOSERROR (until do) HPRINT0 (for in collect) \BCPLSOUT.PRESS (for from to do) GETDEFCOM ( +for in join) COMPILER::FRAME-ANNOTATE-LABELS (for in join) \UFS.OPENP (for in bind thereis) +\TEDIT.UNPARSE.PARALOOKS.LIST (for in as do) COMPILER::FRAME-ANNOTATE-LAMBDA (for in join do) +COMPILER::META-EVAL-PROGN (for on do when collect) TEDIT.SETSEL (type?) EDITGRAPH2 (until do) +\LFGetFileInfo (type?) \FM.CHECKPROPS (for in do) \TEDIT.NSCHAR.RUN (for from to do) D-ASSEM::FETCH-HUNK + (find in suchthat) \PARSEARRAYSPACE1 (for repeatuntil do) SEDIT::RELINEARIZE-WHERE-NECESSARY (for in +bind when do while old thereis until) \SETUP.FFILEPOS (for from to do by bind repeatuntil as always) +COMP.NUMBERCALL (while do) \M44ACTONVMEMFILE (while bind do for from to) \LFTruncateFile (to do) +\SHOWSEL.HILIGHT (while until do) \LFCreateDirectories (type?) PSCFONT.READFONT (for from to do) +XTOUSTRING (for from while do) \MAKERECODEMAP (for in unless do finally) COMPILER::GENCODE-CALL (for +in do always) MENUTITLEFONT (type?) POSTINITARRAYS (for from to by do) SEDIT::PUNT-SET-SELECTION (for +from as by thereis) UnixTempFile (for from to thereis) RENUMBER.LINES (while do) +COMPILER::GENCODE-TAGBODY-INLINE (for in do when) TEXTOBJ (type?) TEDIT.SETFUNCTION (type?) +\TELERAIDSERVER (to when do) \TEDIT.GET.TERMSA.WIDTHS (for from to do) SPY.MAX (for in do) +\REMOVE-DECLS (for in do) \TELERAIDINIT (for in do) SEDIT::COPY-STRUCTURE-LIST (for in collect) +SETCOLORLV.IP (for from to by do) \TEDIT.FORMATTABS (for in when do) DEFAULT.INSPECTW.VALUECOMMANDFN ( +until type?) SEDIT::COPY-STRUCTURE-STRING (type?) \INTERPRETER1 (for in as from by do) +SEDIT::COLLECT-UNDO-BLOCK (for by while eachtime finally) TB.FIND.SELECTED.ITEM (find from to suchthat +) SHOW.PRESS (while do finally) TEDIT.MAPPIECES (for from while do) \INITBFS (do repeatuntil) +SEARCHPRETTYTYPELST (find in suchthat) TEDIT.PAGEFORMAT (type?) TEDIT.BUILD.PCTB (type? for in when do + bind while from to as finally by) \PFFetchString (for from to do) COMP.NUMERIC (while do) +OPT.XVARSCAN (for in do) MSCLOSEFILES (for in when do) ENABLEWHEELSCROLL (for in do) +\TEDIT.COPYINSERTFN (for inside do) READVARS (for in when do) BREAK (for in join) \FILLBUFFER (until +do while) DISPLAYNODELINKS (for in do) \TEDIT.PURGE.SPACES (bind while do) \STARTDISPLAY (for in do) +\MEDW.MOVEW (for in do) COURIERPROGRAM.PRETTYPRINT (while do) \BITMAPFROMTEXTURE (for from to do) +PPSPP (for by bind while do) SEDIT::COMPUTE-POINT-POSITION-LIST (type?) TEDIT.GETFUNCTION (type?) +READVISE (for in join) SETSYNTAX (type?) CHARWIDTH (type?) \TRANSLATE-CL%:LAMBDA (for in do) +ICMLARRAY.DISPLAYSLICE (for from to collect) DINFOGRAPH (type?) TB.MAP.SELECTED.ITEMS (until when do) +BRECOMPILE3 (for in when do thereis) PROMPTPRINT (for from to do) \CreateScreenBitMap (for from to do) + \FM.CHECKDESCRIPTION (for in do) PFI.HANDLE.DEFINEQ (for in do) \SETUP-COMPILED-CLOSURE-CALL (while +do type?) SEDIT::LINEAR-ITEM-WIDTH (type?) \PARSE.REMOTE.FILENAME (for on by do) \PRINTFMAP (for from +to by bind do) \CoerceToDisplayDevice (type?) \LEAF.USE.NEW.CONNECTION (while do for in when) +SPY.MERGEINFO (for in when do) \POSTSCRIPT.NSHASH (for in unless do) \MAPCHARTABLE (for from to do) +MAKEKEYLST (for in bind as from collect) \SPP.SYSPKT (while do) \FIXP.FROM.FLOATP (while do) +D-ASSEM::DETERMINE-LOCAL-FN-LEXICAL-LEVEL (for in do) \VAMRecomputeFreePageCount (bind for from to +count) SEditicide (for in when do) InstallUnixPrinter (for inside do in when) TEDIT.PARSE.PAGEFRAMES1 +(type? for in collect) \TEDIT.READTABLE (for in as do) D-ASSEM::DIGEST-CODE (for on do) +\NSFILING.WHENCLOSED (for in bind thereis when do) BIGNUM.DEFPRINT (bind while do finally for in) +MAKEFILES (for in when do finally inside collect) \UFStoOtherRenameMess (for in finally do) +MSCHECKVARS1 (for in do) \BN.TH2D (for in bind do finally by repeatuntil) \IDATESCANTOKEN (while do +collect) \MAIKO.DO.MOVDS (for in do) FW-CLOSE-CMD (for in do) D-ASSEM::DIGEST-FUNCTION (for in do on) +FW-UPDATE-OFD-WINDOWS (for in do) \ATWGROUPSIZE (for in do) ICMLARRAY.ATTACHDISPLAY (for in do) +WFROMDS (for in thereis) \NSRANDOM.HANDLE.ERROR (for in when do) \TEXTSTREAM.FILENAME (type?) +READ-UNICODE-MAPPING-FILENAMES (for inside collect find in suchthat) \PROMPTWINDOW.OPENFN (for in bind + when do) DELFROMCOM (for in do when inside always) \FREESTACKBLOCK (until do type? while) +FB.UPDATE.COUNTERS (for in as when do) NESTED.SUBMENU.POS (for on when do) COMPILER::FRAME-ANNOTATE-CATCH + (for in do) ONEDINSPECT.REDISPLAY (for in collect as thereis never bind do) EDITDELETENODE (for in do +) D-ASSEM::STORE-DIGEST-INFO (for in as from by do) \BN.NZEROS (for from to collect) \VFMFind ( +repeatuntil do) \FTP.UNPACKFILENAME (for on by do) \SETUP-ENVIRONMENT-CALL (bind while do type?) +\IDLE.PROMPT.WATCHER (do) MAKEALISTCOMS (for in join inside collect bind when) PFI.HANDLE.DEFDEFINER ( +for in thereis) INSPECTABLEFIELDNAMES (for in when collect) TEDIT.INSERT.OBJECT (type?) +MAKEHVPRETTYCOMS (for in do) SEDIT::CREATE-COMMENT-WORD-NODES (bind first while do finally) +PRINTFILEPROP (for in when do) \DOCOMPRESSVMEM (while do) D-ASSEM::EASY-ENTRY-P (for in always) +TEDIT.MAPLINES (bind while do) \OUTDATE-STRING (for from to do) POLYSHADE.SCAN.IP (for in collect) +\DOFORMATTING (bind while do) \TEDIT.APPLY.PARALOOKS (while do type? for in collect) TYPESOF (for +inside when do find in suchthat while bind) BSP.PUTINTERRUPT (bind do) \LFReadPages (for inside as +from bind first sum) KNOTLOOP (for in do) PROCESSWORLD (for in do type? by while when collect) +SUBPRINT/ENDLINE (while do) COMP.USERFN (for in collect) \COERCEASCIITONSFONT (bind for from to unless + do when) ADD.PROCESS (for from to by do) CHANGEBACKGROUND (for in do) \POSITION.MENU.IMAGE (type?) +\FM.PUSHGROUP (for in do) PUTPROPS.PRETTYPRINT (while do) TRIM.BITMAP (for from to thereis by) +D-ASSEM::GENERATE-KEY (for on do) DISPLAYGRAPH (type? for in do) PFI.HANDLE.EVAL-WHEN (while do) +D-ASSEM::GENERATE-EASY-ENTRY (for in as from do) \MOVE.WINDOWS.ONTO.SCREEN (for in thereis unless do) +COMPILER::META-EVALUATE (until do) Inspecticide (for in when do) \TEXTDSPFONT (for in do) +\RELEASE.PROCESS (for in when do) D-ASSEM::GENERATE-HARD-ENTRY (for in as from do) +TB.REV.FIND.SELECTED.ITEM (find from to by suchthat) \NSFILING.GET.STREAM (find in suchthat) +PRETTYPRINT2 (for in thereis) \ADDLEAFSTRING (for from to do) BUFTAILP (do) \TEDIT.LINE.LIST (for +inside as when do) CHAT.SET.EMULATOR (for in when do) \BN.D2TH (while do) ECHOCHAR (for in do) +\LFSetFileInfo (type?) COMPILEFILES0 (for on first do) PUTWINDOWPROP (type?) OPENWINDOWS (for in join +while do) GETFILEPKGTYPE (for in collect do bind) \ICONW.FORMAT.TITLE (for from as in do) ACCESSDEF4 ( +for in join) KEYWORD-TEST (for on by do) \STRINGOUT (for instring as from to do) MARGINBAR (for in do) + SEDIT::INPUT-NORMAL-CHAR (type?) \FM.REDISPLAYMENU (for in do) \TEDIT.FIXSELS (for in when do) +SEDIT::CFV-LIST (for on when do while) SUBDECLARATIONS (for in collect) PRINTLINE (bind for from to do +) ICMLARRAY.MENUW.SHOW (bind for from to as in do) \FM.JUSTIFYGROUPS (for in do) SEDIT::SHIFT-STRING ( +to do) IOCBQLENGTH (while sum) \HANDLE.RAW.PACKET (find in bind suchthat) APPLY* (for from to collect) + INVERT.BITMAP.VERTICALLY (for from to do bind) LINEBUFFER-SKIPSEPRS (until do) \DL.NEWFAULTINIT (do +for from to as by until bind) TTGIVEHELP1 (for on unless do) SEDIT::BUILD-PRELINEARIZED-NODE (bind +while do finally) CHAT.MENU (for in collect) \LFWritePages (for inside as from bind do) +\TEDIT.PARABOUNDS (repeatwhile do bind) SEDIT::CREATE-COMMAND-TABLE (for in do) COMP.PROGLST (while do +) PRETTYDEFMACROS (for in collect) FW-RECALL-CMD (for in when collect) FW-CHANGE-POSITION (for in when + do) \UFSSetFileType (for in bind finally do) ITEMW.REPAINTFN (for in bind do) ICMLARRAY.MENUW.APPLY ( +for from to collect in count) PRINTERROR (for inside do on in) TEDIT.GET (for inside do in as type?) +SEDIT::UNDO-COMMENT-CHANGE (for in as from do finally) SEDIT::START-PROCESS (until) ADDTOCOM (for +inside always in) \UPDATE-WHO-LINE-ACTIVE-FLAG (for in thereis finally) \TEXTMENU.DOC.CREATE (bind for + in do) COMPILER::FRAME-ANNOTATE-BLOCK (for in do) POSTSCRIPT.FONTSAVAILABLE (for in collect when join + unless from to) \BACKGROUND.PROCESS (for in do) MSCHECKBLOCKBASIC (for in do when thereis join +collect) ALISTP (for in always) RECORDTRAN (while do for in collect) \IDLE.ISMEMBER (for in thereis) +PFI.HANDLE.DECLARE (do repeatwhile) DISPLAY/NUMBER/READER/TOTAL (bind for from to do finally) +D-ASSEM::REDUCE-UNCERTAINTY (for in do) \BN.TH2B (while do) HASHLINKS (for in bind when collect) +\LFOpenFile (type?) \FM.LAYOUTGRID (for on bind do in) D-ASSEM::SPLICE-IN-JUMPS (for in do) +COMP.LABELS (for in do when) ACCESSDEF (for in join) BRECOMPILE1 (for in when do thereis) SENDXIP ( +until do) \LFExtendFileIfNecessary (until do) INTERPRESSFILEP (for from to when do finally) +\TEDIT.BASICFIND (for old from to do as) \IRM.GET.REF (for in thereis join) TB.FIND.ITEM (when do +repeatuntil) TWOD.TRACKCURSOR (bind while do finally for on as in until) D-ASSEM::RESOLVE-JUMPS (for +in do while when) TIMEALL (for inside bind join) TEDIT.DEACTIVATE.WINDOW (for in do type? when) +\REQUEUE.ETHERPACKET (type?) GETCLEARINGHOUSE (repeatuntil) PROG (for in do) \TEST.PARAGRAPH.LOOKS ( +while do) \PARSE.PORTCONSTANT (for instring bind do finally) \ORIGTERMTABLE (for in do from to) +COMPILER::ENSURE-EFFECT-CONTEXT (for in as from do) OPT.POSTOPT (while bind do finally for in) +D-ASSEM::CONVERT-TO-BINARY (for in as from do) \PROG0 (for in as from by do) PAINTW.CACHE.SHADE (for +in when do) PFI.HANDLE.RPAQQ (for in unless do) \INTERPRET-ARGUMENTS (for from while collect) +D-ASSEM::COMPUTE-JUMP-SIZE (find in suchthat finally) FINDFILE-WITH-EXTENSIONS (for on by do in when +inside) INSPECT/ALIST (for in collect) \VAMFreePageGroup (to as from do) SEDIT::ASSIGN-FORMAT-QUOTE ( +type?) D-ASSEM::PRETTY-JUMPS (for in collect) GREETFILENAME (while until finally for in when do) +COMPILER::FRAME-ANNOTATE-CALL (for in join) \SET.PROCESS.NAME (for from bind while) \NSFILING.EVENTFN +(for in when do) ICMLARRAY.MENUW.GETLEVEL (for from to collect) COURIER.WRITE.BULKDATA (do repeatwhile + to) SPP.OPEN (until do bind for on by) TEDIT.MINIMAL.WINDOW.SETUP (for in as join) CreateCursorBitMap + (for from to do) INVERT.BITMAP.HORIZONTALLY (for from to do bind) \SMASHRETURN (for when do +repeatuntil) DRAWMARGINSCALE (for from by to do as) MSCHECKBOUNDFREE (for in do when) \IRM.SMART.REF ( +while bind when do finally for on collect) \LOOKUPPORT (to when do finally from as by collect) +BRKDWNINIT (for from to do) CL:DIRECTORY (while collect) \POLYSHADE.YSCAN.IP (while do for in) EVALA ( +for in do) POSTSCRIPT.PUTBITMAPBYTES (for from to by as do while count) VKBD.FIX.FONT (for in do) +\NSFILING.REMOVEQUOTES (bind while collect) \EVALA (for in as from by do) TB.DISPLAY.LINES (for from +to bind do finally) ALLFIELDS (for in when join) CHECKCONSPAGES (for do) INVERT.LONG.SEGMENT (while do +) LATTICE/BREAK/CYCLES (for on bind do) CONVERT.FILE.TO.TYPE.FOR.PRINTER (for in bind when do) +\LOADNSHOSTNUMBER (type?) \MAPMDS (for from to bind do by) SEEFILE (for from to do) \SUBREAD ( +repeatwhile bind do) \DL.MARK.PAGES.UNAVAILABLE (for from to as by do) DASSEM.CLEANFNTEST (while do +finally) CL:ENCODE-UNIVERSAL-TIME (for from to by unless do) \CLEARWORDS (while do) +SI::PRINT-TRACE-EXIT-INFO (for in do) FTP.BREAKCONNECTION (for in do collect when) \PS.BOUTFIXP (for +old by do repeatwhile in) UPPERCASEARRAY (for from to do) \TEXTMENU.SET.TOGGLE (for inside do) +\DL.UNMAPPAGES (for from to as by when do) COMPILER::GENCODE-PROGN (for on do) \ETHEREVENTFN (for by +while do in) \TEDIT.FIND.FIRST.LINE (for old from to by repeatwhile do) COMPILER::EXPAND-OPENLAMBDA-CALL + (while do) SEDIT::ASSIGN-FORMAT-LIST (for on when do while) TITLEDICONW (for in largest) +COMP.UBFLOAT2 (while do) OPT.OPTCHECK (for in do) HARDCOPYGRAPH (type? for from to do in) LOADUP (for +in do) SEDIT::SIMPLE-STRING-SCAN (bind first while do finally) \TEST.CHARACTER.LOOKS (while do) +MSCHECKFNINBLOCK (for in do thereis) MSUPDATE (for in do) SEDIT::FIND-NODE (bind while do finally) +\PRINSTRING (for instring count do) \DO.PROGV (for in do) DEL.PROCESS (type?) DOFILESLOAD (for inside +bind first join while do) COMP.BIND.VARS (for in do) COMP.TAGBODY (for in do) FIND.MATCHING.QUOTE ( +while do) \UFS.ABORT.DIRECTORY (bind for in do type?) LET (for in do) FIND-EDIT-LOCATION (while do) +FB.HARDCOPY.DIRECTORY (for in unless do as from bind collect sum) %%BROADCAST-STREAM-DEVICE-BOUT (for +in do) \CKPOSSOUT (for instring do) COMPILER::COMPLETELY-EXPAND (until do finally) GRAPHOBJ.PUTALIGN ( +for from as in when do) SHOWSTACKBLOCKS (while do type?) SUBFIELDCREATE (for in when collect) PROCESSP + (type?) \UFS.ABORT.CL-DIRECTORY (type?) \AB.BACK (type?) TTRACKMOUSE (bind while do finally) \LET0 ( +for in as from by do) \LITPRIN (for inatom bind do) MAP.PROCESSES (for in do unless) MIN/BOTTOM (for +in smallest finally) \LET* (for in as from by do) SKIPSEPRCODES (bind declare while do finally) +RELPROCESSP (type?) %%BROADCAST-STREAM-DEVICE-CHARSETFN (for in do) \LFGenerateFiles (for instring +until collect in when while do) \FM.LAYOUTCOLUMN (for in do) LET* (for in do) \SIMPLIFY.CL.ARGLIST ( +bind for in collect) \FM.LAYOUTROW (for in do) SEDIT::FIND-LINE-START (bind first do) +\DSKDISPLAY.REPAINTFN (for in do) %%CONCATENATED-STREAM-DEVICE-BIN (while do finally) +%%BROADCAST-STREAM-DEVICE-OUTCHARFN (for in do) COMP.RETURN-FROM (until do) MSUPDATEFN1 (for in when +do) PUTSTREAMPROP (for on by when do) \SEQUIN.RETRANSMIT (while do) MAKEFILE (for in do on) +LAYOUTGRAPH (for in unless do type?) INSPECT/TOP/LEVEL/LIST (for from to as on collect finally) +SPP.DESTADDRESS (type?) \DSPCLIPPINGREGION.PRESS (type?) RESTART.PROCESS (type?) +\UFSMakeUnixFormatName (for from to do) %%BROADCAST-STREAM-DEVICE-FORCEOUTPUT (for in do) +TB.RECONSIDERRANGE (for from to bind do) INSTALL-PROTOTYPE-DEFN (for in collect) \LFReturnInfo (for in + as do) %%CONCATENATED-STREAM-DEVICE-PEEKBIN (while do finally) \NSRANDOM.FETCH.CACHE (while when do) +\LFEventFn (for in when do) INFILEPAIRS (for in do inside) INVERT.BITMAP.DIAGONALLY (for from to do) +WAKE.PROCESS (type?) INFILECOMSMACRO (for inside do) CL:MAKE-CONCATENATED-STREAM (for in always when +do) TB.REPLACE.ITEMS (for in do count) \SUSPEND.PROCESS (do) %%CONCATENATED-STREAM-DEVICE-CLOSEFILE ( +for in do) CL::BOA-ARG-LIST-WITH-INITIAL-VALUES (for on do) TEDITMENU.STREAM (for in thereis) +\FM.FORMATEXPLICIT (for in do) SUSPEND.PROCESS (type?) CHECKFORCHANGED (for in do) +%%CONCATENATED-STREAM-DEVICE-EOFP (while do finally) SEDIT::NEXT-NODE (first do repeatwhile) +COMP.BINDLIST (for in collect) ENDLOADUP (for in do when) PROCESS.RESULT (bind until do finally) +SHOULD-BE-DWIMIFIED? (for in while do finally) ROTATE.BITMAP.LEFT (for from to do bind) +COMPILER::RELEASE-LABELS (for in do) \LITPRIN.INTERNAL (for inatom do bind) ROTATE.BITMAP.RIGHT (for +from to do bind) TEDIT.KILL (type?) \TEDIT.HARDCOPY.DISPLAYLINE (while do bind for from to finally) +CREATEW1 (type?) \GETFILINGCONNECTION (bind while do finally) \SPPWATCHER (bind until do) +MAKEHASHLINKS (for in when collect) \VFMSplit1 (repeatuntil do) LISPX (for in do) STREAMP (type?) +DUMPGRAPH (for in do type?) CL:PARSE-INTEGER (while do repeatwhile) PFI.ESTIMATE.SIZE1 (until do) +COMPILER::META-EVAL-CALL (for in collect) \MKINTEGER (while do) \NSRANDOM.READ.SEGMENT (for inside as +from sum do to in) PRIN2-LONG-STRING (type? for instring as from bind do finally while) +\NSRANDOM.PREPARE.CACHE (for from to collect while when do finally bind) \FM.FORMATBYGRID (for in do +as finally) \FUNCT1 (for in as from by do) INSPECT/PLIST (for in by collect) COMP.LOOKFORDECLARE ( +while do for in bind finally) \LFFindNextFile (bind do repeatuntil finally to collect) +\DRAWPOLYGON.GENERIC (bind for on while do finally) TERM.MODIFY.ATTRIBUTES (for inside do) CMLRDTBL ( +for from to do) \TRACKCURSOR (do repeatuntil) PROCESS-STATUS (do) KNOTLINE (for in do) MENU.HANDLER ( +until do finally) FOREST/BREAK/CYCLES (for on do) TB.CONSIDERRANGE (for from to bind do) +\SYMBOL.ESCAPE.COUNT (for inatom bind first do finally) NCHARS (for instring bind count) +\MAKEFUNARGFRAME (for in do) \TEDIT.BRAVOFILE? (repeatuntil) RIGHTW.REPAINTFN (for on as until finally + in bind repeatuntil do) COMPILER::RELEASE-LAMBDA (for in do) MSCHECKBLOCKS (for in do join unless +collect thereis) INIT/NODES/FOR/LAYOUT (for in do) \DOBUFFEREDTRANSITIONS (bind until do) +\NUMERIC.PNAMEP (for inpname do finally always) DECLARED-SPECIAL (for in when do) PROCESS.TTY (type?) +SEDIT::GET-CONTEXT (bind for in when do finally type?) TWODINSPECT.MAKEREGIONS (for from to as by +collect bind in) \TEDIT.CREATE.LINECACHE (for from to collect on do) FILEPKGCOM (for in when join from + to by do) \SOUT (for instring do) SI::UNWIND (for until do) MSCHECKBLOCK (for in do unless when +collect thereis repeatuntil) COMP.TOPLEVEL.COMPILE (for in when collect unless) CL:APPLY (for from to +by do) FRESHLINE (type?) \AB.NEXT (type?) TEDIT.COPY (bind for in when do) BRACKET.CURRENT.WORD (for +by until do finally) SEDIT::SET-SELECTION-COMMENT (type?) \PFTrimHelper (bind until do) +\TEXTBACKFILEPTR (while do) READTABLEP (type?) \STORENSHOSTNUMBER (type?) \CURVE (for from to do) +\POLYSHADE.XSCAN.IP (for in collect while do) \CARET.DOWN (type? while) IMAPLIST (while do) ADDCHAR ( +for in do) POSTSCRIPT.INIT (for in join collect do from to unless) READGRAPH (bind do for on by to +while collect in) READOCT (bind while do finally) MIN/LEFT (for in smallest finally) WINDOWP (type?) +FB.SUBITEMP (for in thereis) CLOSE.WINDOWS.IN.REGION (for in do) \SMASHSTRING (bind for inthinstring +as from to do infatstring) CL:COMPILER-LET (for in collect) \NSFILING.LOOKUP.CACHE (find old in bind +suchthat for always) \VAROFFSET (for from by bind until do) CONCATLIST (for in sum as from by do) +BREAK0 (for in join) \NSFILING.UPDATE.ATTRIBUTES (for in collect unless) \ATBLSET (initrecord for from + to do) \NSRANDOM.CHECK.CACHE (for in bind do) \AUTHENTICATION.FIND.SERVER (find in suchthat) +\NSFILING.LOGIN (when do) FW-REPAINTFN (for in when do) SI::COMPILED-FUNCTION-ARGLIST (for in join) +NSMAP (for from to do in) COMP.COMPILER-LET (for in collect) IFCEXPRTYPE (for in when do) +FB.COMMANDSELECTEDFN (for in thereis) DOUSERFNS2 (for in do) READ/NODE (bind until) APPEND (bind while + do finally) CALLS (for on do) MSINIT (for in collect finally) COMP.PROGN (while do) +\TEDIT.PUT.SINGLE.CHARLOOKS (type?) TEDIT.WINDOW.SETUP (type?) RECORDFIELD? (for in when do) \IPCURVE2 + (for from to do until) LISPERROR (for in as from when do) INTERSECTREGIONS (for from thru do) +\SETUP.TYPENUM.TABLE (for from to bind do finally old as in when) SI::CLEAN-UP-CL-ARGLIST (bind for in + collect) SEDIT::SET-POINT-COMMENT (type?) INSPECT (for in when do) OPT.DS1 (never repeatwhile) +\SELECTREALPAGE (until do finally) TWODINSPECT.ADJUSTSELECTION (for in as on thereis) \10MBENCAPSULATE + (type?) TEDIT.INSERT.UPDATESCREEN (for inside as on do while) TB.CONTIGUOUS.SELP (for from to bind +always) MSGETDEF (for in bind when do finally) \FTP.GENERATEFILES (for on by do in collect) +\UPDATECHAIN (do repeatuntil) \FTP.CLOSEFILE (find in suchthat) SEDIT::ATOM-POINT-TYPE (for instring +as to bind do finally) \MAIKO.DISPLAYLINE (bind for from to do finally while) \LEAF.FIX.BROKEN.SEQUIN +(for in collect when forDuration do until type?) TEXTSTREAM (type?) \LFParseFileName (for on by do in +when collect) \FM.FORMATBYCOLUMN (for in do) PROCESS.WINDOW (type?) \PFI.DO.HARDCOPY (while bind do +finally) SEDIT::KILL-NODE (for in do) Filebrowsericide (for in when do) COMP.PROG (for in collect do +while) ONED.TRACKCURSOR (bind while do finally for on as in until) \INSTALL.EXTERNALFORMAT (type?) +COMPILER::GENCODE-LET (for in as do when) PFI.MERGE.INDICES (while collect) \NSADDRESS.PRINT.DECIMAL ( +while bind do finally) FB.INFO.ITEM.NAMED (for in when do) DUMMYDEF (for in when do) +\TEDIT.PUT.PARALOOKS.LIST (for from as in do) COMPILER::ALPHA-TAGBODY (for in do) VERBNOTICELIST ( +type?) STORETABLE (for in do) \IDLE.WAIT (while do) COMPILER::FIND-TAG-DUPLICATION (for on eachtime do +) GETVERBTABLES (for in collect) GET.MENU.LIST (for in always) SI::PARSE-CL-ARGLIST (for in do) +INITIALIZEMASTER.IP (for from do) INSPECTW.CREATE (for in collect bind largest finally) SCREENBITMAP ( +type?) BESTPUPADDRESS (for from to bind do finally in) IFCPROPSCAN (for in when unless do by collect +inside) \NSFILING.DISCARD.SESSION (for in bind do finally) \COURIER.EXPEDITED.ARGS (for in as do) +CREATE.NUMBERPAD.READER (for in do) BACKSKREAD (do) DECLARERECORD (for in do unless when) +SEDIT::ASSIGN-FORMAT-LITATOM (type?) \FM.STATE-SELECTEDFN (type?) GRAPHREGION (for in do) +\LEAF.HANDLE.INPUT (type?) DISMISS (do until) SI::CHANGE-CALLS-IN-CCODE (for in do) \FM.FORMATBYROW ( +for in do) TB.NUMBER.OF.ITEMS (for from to count) SEDIT::INSERT-CHANGED (bind while do finally) +COMP.LAMBDA (while do for in) MAKECREATELST1 (to collect) REGIONP (type?) +\GET.EXTERNALFORMAT.FROM.NAME (find in suchthat) OPENNSOCKET (type? for in when do) +\NSFILING.MAYBE.CREATE (for in join on collect while finally) DO.SHIFTED.SELECTION (bind while do +finally) DOUSERFNS (for in when do) PAINTW.READBRUSHSHADE (for in collect) +DEFAULT.INSPECTW.PROPCOMMANDFN (type?) FONTCREATE (type?) DINFO.CLOSEFN (type?) \INSERTCH (type? for +instring thereis) SEDIT::CONVERT-COMMENT-TAIL (while bind do) \NSFILING.ADD.TO.CACHE (find in suchthat + while do for when) \INTERPRETER (for in do from to collect) OPT.DELCOPYFN (while do for by always) +MAX/RIGHT (for in largest finally) \SEND.EXPEDITED.XIP (bind to do finally until when) +\TEDIT.CHARDELETE (while do) SEDIT::PARSE-STRING-INTO-WORDS (bind first while do finally) +\WAITFORSYSBUFP (until do) \FTP.ADD.QUOTES (bind while do finally) \INTERNAL/SETPASSWORD (for in do) +\DOTRANSITIONS (for from to do) NEXTSIZEFONT (for on when do in) \POLYSHADE.DISPLAY (for in collect +while do) DOAROUNDEXITFORMS (for in do) MOVETOUPPERLEFT (type?) SEDIT::DRAW-UNDERLINE (until do) +VIRGINFN (for in do) PROCESS.EVAL (type? do until) SEDIT::REPAINT (bind first while do type?) +SEDIT::INITIALIZE (for in do) \LFHighestVersions (for on when collect type?) \LET*-RECURSION (bind for + on eachtime do finally) \ALLOCWIDTHTOGROUPEDWINDOW (for in collect when sum as unless do until) +\PRINTFRAME (for old from by while as do) ONFILE (for in collect inside do find suchthat finally) +FB.FASTSEECOMMAND (for in thereis on do) TEDIT.FORMATTEDFILEP (while do) SAVEONSYSRECLST (for in do +collect unless) TTYIN (for inside do) \LFFindInfo (bind for in do) INFILECOMSPROP (find in suchthat) +\PRINTBF (bind for from by as to do finally while) \TEDIT.HARDCOPY.FORMATLINE (while do type? for old +from to as when) MAX/TOP (for in largest finally) TB.DECONSIDERRANGE (for from to do) MAKEINITBFS (to +bind first do finally for from) EDITCALLERS (for in do collect while thereis) \ENCRYPT.PWD (for from +do) WAITFORINPUT (bind until do) \GCMAPTABLE (bind for from to when do) FB.BROWSECOMMAND (for in bind +do on by finally) OPT.RESOLVEJUMPS (for in do while) COMPILER::ALPHA-SETQ (for on by collect) +\TEDIT.PUT.CHARLOOKS.LIST (for from as in do) COMPILER::FIND-SEGMENT (for in when do) \LEAF.RECONNECT +(type?) TTYIN.READ (while do bind collect) TTPRIN1 (for from while sum do) \SCANFORNTENTRY (bind for +from by as do) SEDIT::COPY-SELECTION-DEFAULT (bind for from to as on do) BRV/OFFSET (for in do) +\CREATECHARSET.IP (bind first do for from to when) CH.NUMBER.TO.PROPERTY (for in thereis) PRINTADDRS ( +for from to do repeatwhile) FB.GETALLFILEINFO (for in bind collect) PP (for in do) +MB.NWAYBUTTON.ADDITEM (for in collect as do largest sum) \REMOVE.EXTERNALFORMAT (type? find in +suchthat) COURIER.SKIP.SEQUENCE (to do) \COMPUTE.HUNK.TYPEDECLS (for from by to collect) +\TEDIT.PIECE-CHNO (while do for from by sum) PRINTFILETYPE (for in when do) TTYIN.FINISH (bind while +do for inside in when on finally) DEFAULT.INSPECTW.TITLECOMMANDFN (type?) PRINTHISTORY1 (for in do) +LOOKUP.NS.SERVER (find old in suchthat for do) SEDIT::CONVERT-COMMENT (bind while do) DCODERD (on by +do for as from bind) \TFBRAVO.FIND.LAST.TRAILER (while do) MSPRGLST (for in do) SI::RESTORE-CALLS (for + in do) TERM.TAB (for in thereis) ESPATTERN (for on do) LIST* (bind for from by until do finally) +\FAX.PARSE.NAME (for instring always) \NSPRINT.MEDIUM.CHECK (for in when do finally) FB.ADD.FILEGROUP +(for in do collect) RECORDFIELDNAMES (for in do collect) \DRAWCURVE.IP (type?) CL:MAKE-BROADCAST-STREAM + (for in always when do) \DEFINEDEVICE (type?) CREATEARRAYSLICE (bind for in do finally as) +MSINTERPRET (for in thereis do on bind finally) FB.HARDCOPY.TOFILE (for on by bind do finally in when) + \TEXTEOFP (bind while do finally) PARSERELATION (for in collect) MSPRGLAMBDA (bind while do finally) +U-CASE (for inatom as from do finally instring first) \NOIMAGE.DSPFONT (type?) MAXMENUITEMWIDTH (for +in bind do finally) \VFMMerge1 (while do) IFCPROPS (for in do inside) CHANGENAME1A (find in suchthat) +\LETtran (for in as do) \LINEWITHBRUSH (until do) \TFBRAVO.READ.PARALOOKS (while do) \PUPINIT (for in +bind unless do) \VALID.FILING.CONNECTIONP (for in thereis) \ALLOCHEIGHTTOGROUPEDWINDOW (for in collect + when sum as unless do until) FW-AFTERMOVEFN (for in when bind do) \PFFindRootDirEntryNum (bind for +from to thereis) CHECKPATHS (for in when do) TRAJECTORY.IP (for in do) PROCESS.APPLY (type? do until) +FONTCLASS (for in collect inside do) TTSKREAD (bind while do finally) SETINITIALS (find old in +suchthat) \NSFILING.CONNECT (for in join) SCANFORWARD (while do) PROMPTFORWORD (bind for from to do +finally in unless until) \TEDIT.TABTYPE.SET (type?) \LEAF.WHENCLOSED (while do) FW-INIT-PROPS (for +inside join) \GETDEVICEFROMHOSTNAME (for in when do type?) RAIDSTACKCMD (type?) +RECURSIVE.COLLECTDESCENDENTS (for in bind when join) \FTP.GETFILEINFO (type?) +\TEDIT.FIND.OVERLAPPING.LINE (while do) PROVIDE.PROMPTING.WINDOW (until do) COLLECT.CHILD.NODES (bind +for in collect) BROWSE/LAYOUT/LATTICE (for in bind do) MOVEDESCENDENTS (bind for in eachtime unless do +) PUTSEQUIN (until do finally) \FLOATTOBYTE.UFN (for from to do) EQCLOOKS (type?) +\TFBRAVO.READ.CHARLOOKS (while do) \REMOVEDEVICE (while do find in suchthat) \FTP.DELETEFILE (for in +do) TEDIT.REMOVE.MENUITEM (for in do) INITDATATYPENAMES (for in as from do) \GET-COMPILED-DEFINITION ( +type?) RINGBELLS (to do) \BLKFABSMAX.UFN (for from to do) UNADVISE (for in join) \REMOVEDEVICE.NAMES ( +for on bind when do finally) \TFBRAVO.PARSE.PARA (while do) \BLKFABSMIN.UFN (for from to do) +\CURSORDESTINATION (do repeatuntil) PFI.DEFAULT.HANDLER (for in when do) STRINGWIDTH (type?) +\CCODEARGLIST (for in unless collect from to) READHASHMACRO (while do collect) \UNQUEUE.EVENT (while +do) \BLKFMIN.UFN (for from to do) TERM.SMOOTHSCROLL (for from to do) FNCHECK (for in thereis inside +find suchthat) \SHIFT.DOCUMENT (while do for in collect) \FTP.MAKEPLIST (for inside collect) +\BLKSMALLP2FLOAT.UFN (for from to do) SEDIT::STRING-OFFSET (for from to bind first do finally) +\TEDIT.SET-TOTLEN (for from to as by sum) \PFGetLVPage (for in thereis) FB.MAYBE.WIDEN.NAMES (for in +when do) \BLKFLOATP2COMP.UFN (for from to do) HELPSYS (for in thereis) BYTEBLOCKCOMPILE2 (for in when +collect) \PFVersionOK (for in always) \LEAF.GETFILEINFO (type?) UNIX.SETDISPLAYTYPE (until do) +DASHINGP (for in always) \CCODEIVARSCAN (bind for from by while do finally to) TB.MAKE.BROWSER (for on + by do in finally) YMAPLIST (while do for in) \SPP.HANDLE.DATA (do while) COMPILER::ALPHA-PROGN (for +on collect) \TFBRAVO.WRITE.RUNS (for in old do) \BLKMAG.UFN (bind declare for from to do) SETUPPAGEMAP + (for from to do bind) \WWCHANGESCREENSIZE (for in do) CHAT (do) INSPECT/ARRAY (for from to collect) +CL:RETURN-FROM (while do finally) DOICONWINDOWCOM (type?) POSTSCRIPT.FONTCREATE (for from to do) +ESTIMATE-DIMENSIONALITY (to as by collect) \HARDCURSORPOSITION (do repeatuntil) \MAKE.ITEMS.VERT.ORDER + (for to collect do in join) \DEVICEEVENT (for in do unless) SPY.FIND.TREE (find in suchthat) +MAXMENUITEMHEIGHT (for in do) INITATOMS (for from to when do) \BLKEXPONENT.UFN (for from to do) +\DRAWCURVE.HCPYMODE (for in collect) CL:PEEK-CHAR (until do finally) DELFROMFILES (for inside when +collect in do) INSPECT/BITMAP (type?) \BLKFDIFF.UFN (for from to by do) ONEDINSPECT.MAKEREGIONS (for +from to as by collect) FB.ADJUST.DATE.WIDTH (for on as from while bind when do finally) CONSTANTS (for + in do) \SOFTCURSORUP (type?) \LFVersions (bind first do) \BLKPERM.UFN (for from to do) FILES? (for in + when do bind finally) \SOFTCURSORUPCURRENT (until do) EXCHANGEPUPS (bind do repeatuntil) +RELEASE.MONITORLOCK (do) INFILECOM (for in do when) \BLKFPLUS.UFN (for from to by do) \BLKFMAX.UFN ( +for from to do) GRID (for from to by do) \VFMClearIntervals (for from to do) DINFO.READ.KOTO.GRAPH ( +for in as from to do) SEARCH-FOR-EVENT-NUMBER (while do) \TEDIT.WORDDELETE (for old from to by while +do) PURGENSFONTS (for in bind collect when unless) COURIER.SKIP (bind to do for in) INFILECOMSVALS ( +for in when do) \BLKFTIMES.UFN (for from to by do) DOATTACHEDWINDOWCOM (type?) TB.DO.ITEM.SELECTION ( +do for from to) COMPILER::ENV-ANALYZE-TAGBODY (for in do) \BLKSEP.UFN (for from to by bind do) +SI::MONITOR-UNWIND (do) FB.HARDCOPYCOMMAND (for in do) GETMACROPROP (for in bind do) CALLSCCODE (for +from by as until do to type?) COMPILER::EXPAND-NESTED-PROGNS (for in join) UNIONREGIONS (for from thru + do) PRINTCURSOR (type?) COURIER.READ (bind for in do finally to collect) PRINTPUPQUEUE (do +repeatwhile) TEDIT.FORMATTEXTBOX (for in collect while do as on) \PUT.FILING.ATTRIBUTE (for in when do + finally) \SUBFNDEF (find from to suchthat) INSPECT/ATOM (type?) MSPRGTEMPLATE1 (for inside do while +bind finally) MAPHASHFILE (bind to as from by when do) DEFAULT.BACKGROUND.COPYFN (type?) +\NSFILING.OPENFILE (type? for in do) SCANBACK (for by until do finally) SEDIT::LINEARIZE-COMMENT (bind + for in do) IRM.LOOKUP (type?) \LEAF.IDLE (for in thereis) \SPP.RELEASE.ACKED.PACKETS (bind while do) +\DSPFONT.PSC (type?) VRULE.DISPLAYFN (bind for inside do) MSPRGRECORD (while do for in on when collect + inside) BREAK.NSFILING.CONNECTION (for in when collect) IBLT1 (for from to by do) PARSE-NSADDRESS ( +for instring do finally) ONEDINSPECT.ADJUSTSELECTION (for in as on thereis) CL:VALUES (for from to +collect) FB.HEADINGW.DISPLAY (for in until do) TEDIT.FLASHCARET (bind for inside do) +TOPW.ADJUSTSELECTION (for in as on thereis) IBLT2 (for from to by do) \PROCESS.RELEASE.LOCKS (while do +) \PROMPTFORWORDRETYPE (for in do) \SIMULATE.UNBIND (to do repeatuntil finally) CHAT.OPTIONMENU (type? +) COMP.SPREAD (while do for in) SEDIT::BACKSPACE (type?) OPENPRSTREAM (type?) DOBACKGROUNDCOM (type?) +MULTIFILEINDEX1 (for on as from do) \LOADNSADDRESS (type?) COPIEDFILEMATCH (find on suchthat) +FM.CHANGELABEL (type?) PACKFILENAME (for on by do) SEDIT::PRINT-STRING (bind for instring first do +finally) READPAGEMAP (for from to as by do) PRINTPACKETQUEUE (for by while do type?) DELETEMENU (type? +) TEDIT.FORMATFOLIO (for in collect while) REBREAK (for in join) \RELEASEWORKINGSET (for from to bind +when do) \PROCESS.MOVEFRAME (type?) \MATCHPCS (bind for from to by as do type?) UPDATE/MENU/IMAGE ( +type? for in when do) OPENHASHFILE (for in thereis finally type?) \TEDIT.UNPARSE.CHARLOOKS.LIST (for +in as do) \FLUSHVM (for in do) CL::VALUES-UFN (for from to by collect) SEDIT::INSERT-COMMENT-CHARS ( +for old on bind do finally while) GETRELATION (for in do) SORT.NSADDRESSES.BY.DISTANCE (for in do +always) OPT.DELCODE (for in when do) \10MBSENDPACKET (for in bind when do finally) FILL.CONT (for from + to do) \LEAF.OPENFILE (type? for in do) \OPENFILE (type?) CHARCODE.DECODE (for in when do finally +first) \SPP.HANDLE.ATTN (for in thereis) \DO.PARAMS.AT.OPEN (for in do) STRPOSL (type?) \CLEARSYSBUF ( +for in do) SET-SYMBOL (while do) PRETTY-TYPE-NAME (for in join) \DSPPRINTCHAR (for from do) +\PFRemoveRootDirEntry (bind for from to do) COMPUTE-MACRO-ARGS (while do for on by in) \GETKEY (bind +do) CHANGECCODE (for in do) INFILECOMS (for in do) MACROS.GETDEF (for on by when collect) +\WAIT.FOR.TTY (until do) TRACKCURSOR (until do) \ENQUEUE.TIMER (bind first while do) DEFAULTFONT ( +type?) CLOSEPUPSOCKET (while do) \TTYBACKGROUND (for in do) CHARWIDTHY (type?) PAINTW.READCOMMAND ( +type?) \DRAWPOLYGON.DISPLAY (for on while do finally) TEDIT.FORMATHEADING (for in collect inside +thereis do while) SEDIT::PARENTHESIZE-CURRENT-SELECTION (for from to as on collect in when) +SETFILEINFO (type?) ICMLARRAY.GETMENUWGROUP (for in largest always) LISTHARD (for inside do in) +WAIT.FOR.TTY (do) SUPERPRINT/COMMENT2 (for on bind do finally) \STRINGWIDTH.GENERIC (for inatom sum +instring do) \FTPINIT (type?) INITDATATYPES (for in bind as from do) PRINT-EVENT (for in do) +CHANGECALLERS (for inside do finally join when collect in) \DSPCLIPPINGREGION.DISPLAY (type?) +PFI.CONSTANTNAMES (for in collect) EXPANDOPENLAMBDA (for in do while) \COURIER.RECORDTRAN (bind first +while do finally collect) COMPILER::ALPHA-MACROLET (for in do) SEDIT::SCAN-FOR-BOUNDS (bind first do +finally type?) \TYPEGLOBALVARIABLE (for in as from when do) PAINTW.READMODE (type?) \SAVESYSBUF (for +in do from to) INSPECT/TYPELESS (type?) \CLIPANDDRAWLINE (for from to as do) SEDIT::INSERT-COMMENT ( +type?) BESTNSADDRESS (for from to bind do finally in) COMPILER::CLOSURE-ANNOTATE-TAGBODY (for in +COMPILER::UNIONING) HARDCOPYW (type? find inside suchthat) SEDIT::RELINEARIZE (while do bind for by +finally) \PROC.CODEFORTFRAME (while do) MSUSERVBTABLES (for in thereis) PRINTCOMSTRAN (for in bind +when do while collect finally) \PEEKSYSBUF (until do) ADDTOFILES? (for in do when) \UNCOPY (for from +to do) \CH.FIND.ORG.SERVER (find in suchthat for collect) FB.INFOMENU.SHADEINITIALSELECTIONS (for in +do) \LASTNODE (for from to by when do type?) \ENQUEUE (to bind while collect finally) PRINTCODE (for +from by while do to in when finally) ICONW (type?) \PROCESS.EVENTFN (for in when bind do type?) +TEDIT.CURSORMOVEDFN (for inside as when do) COMPILER::PEEPHOLE-OPTIMIZE-CODE (for on eachtime do) +TEDIT.FORMATPAGE (while do for in) EDITBMBUTTONFN (type? until) \BITBLT.DISPLAY (type?) CREATEHASHFILE + (to do type?) KEYACTIONTABLE (type? for in do) PRINTCODENT (for from by while as do to) +\DRAWCURVE.PRESS (for in collect) DELETETO1 (for inside do) \SPLITTREE (for from to by do as) +\GET.FILING.ATTRIBUTE (bind for in when do finally) MOVEATTACHEDWINDOWTOPLACE (bind for in until do) +OPENPUPSOCKET (type? for in when do) EDITDATE? (for from to always) \LEAF.READPAGES (for inside as +from bind sum to until do) FONTUNPARSE (type?) COMPILER::ENV-ANALYZE-PROGN (for in do) +COMPILER::ENV-ANALYZE-MV-PROG1 (for in do) TTLOADBUF (bind while do) \RECLAIMARRAYBLOCK (for old by +until do) TEDIT.UNPARSE.PAGEFRAMES (for in collect) FONTCLASSUNPARSE (for in collect) PRINTBITMAP ( +type?) DODIRCOMMANDS (while do) FB.DISPLAY.COUNTERS (for in do as from by collect) +\PAGED.REVALIDATEFILELST (bind for in do) BROWSE/LAYOUT/HORIZ/COMPACTLY (for in do) +\TEDIT.APPLY.PAGEFORMATTING (for from to when collect) \CH.LOCATE.SERVERS (for in bind when collect do + old thereis) TWODINSPECT.TOTALWIDTH (for in sum) FILL.XPER (for from to do) INSPECTW.REDISPLAY (for +in do collect as join) MAKECREATE1 (for in when collect do join) ADVISE (for in join) +\TURN.ON.PROCESSES (for in do) \DRAWCURVE.DISPLAY (type?) FIND-STACK-FRAME (while do) \LFFindDirHole ( +bind do) \KEYBOARDEVENTFN (for in do) CASE.PRETTYPRINT (do) FILEPKGTYPE (for in when join from to by +do) RESTOREMAP (for inside thereis) TWODINSPECT.REPAINTFN (for on as until finally in repeatuntil do +bind) FILL.TEST (for from to do) \DELETECH (bind while collect for in do) KEYACTION (type?) +FIND.LINE.BREAK (while do) BREAK.PROCESS (type?) \TEDIT.FILL.IN.CHARLOOKS.MENU (for in do finally +type?) ENDREAD? (while bind do) \UNWIND.UFN (while bind when do to) NOHOST (do) MAKEINITLAST (for in +as do) COPIEDFILEPATTERN (while do on old collect for when) COMP.LOOKUPVAR (find in suchthat) +PROG1.PRETTYPRINT (for in never) \GETREGION.CHECKOPPT (for in do) \PAGED.REVALIDATEFILES (bind for in +do) ICMLARRAY (bind for from to collect in always) MSINTERPA (find in suchthat) \LEAF.WRITEPAGES (for +inside as from do) CH.PROPERTY (for in when do) \NSFILING.AFTER.LOGIN (for in when do) +\LFDirectorySearch (bind first until do finally for in always) CREATEMDSTYPETABLE (for in do from to +by) PRINT-HISTORY (for in do) \LOOKUPPUPNUMBER (to bind do repeatuntil) OVERLAPPINGWINDOWS (for old in + thereis) \NSFILING.CLOSE.CONNECTIONS (while do for in when) \GET.COURIER.DEFINITION (for in when do) +\BUFFERED.REVALIDATEFILELST (bind for in do) PREPLOOP (for in do) \10MBGETPACKET (for in bind when do +finally) DUMPINITPAGES (for from to do) \DRAWLINE.PSC (for in do) \LEAF.SETFILEINFO (type?) +NTH.RELATIVE.COLUMN.OF (for do) COMPILER::ENV-ANALYZE-MV-CALL (for in do) \BSP.PREPARE.OUTPUT (bind do +) \BSP.FLUSHINPUT (while do) ADDTOFILE (for in do) \FILE-CONFLICT (type?) \FONTFACE (type?) +SI::INTERNAL-THROW (for from to collect) DIRPRINTNAME (for from bind do to) CREATEFIELDS (for in when +collect) BCOMPL3 (for in unless do) \FONT.SYMBOLMEMB (for on when do) SETSPELLCASE (for from to do in) + \PFNewPages (bind until do finally) COURIER.WRITE.SEQUENCE (for in do) NSNET.DISTANCE (type? to do +repeatuntil) \PROCESS.MAKEFRAME0 (while do type?) \PFCurrentVol (for in thereis) SUBPRINT1 (bind for +on until finally) \CONS.UFN (while do) SI::RESETUNWIND (while bind do) \FONT.SYMBOLASSOC (for in first + when do) ShowIntervals (bind for from to do) \MAP-CODE-LITERALS (for from by do to) MEMBTONODES (for +in do) \DRAWCURVE.PSC (for in do from to) \FONT.COMPARESYMBOL (for inatom as always) \NOTE.10TO3 (for +in bind when do finally) PAINTW.READBRUSHSHAPE (type?) TEDIT.PARALOOKS (type? for in collect bind +while do finally) DSFIT1 (bind for on until do finally) \IRM.WILD.MATCH (for on thereis) PPROC (for do + repeatuntil while in unless) FB.CREATE.FILEBUCKET (bind while do finally for) MSGETBLOCKDEC (for +inside do in when) INSPECT/DATATYPE (for to collect) RECORDALLOCATIONS (for in join) \CHECK.PQUEUE ( +type?) INSPECT/HUNK (for from to collect) PFI.PRINT.BITMAP (to do finally) FIND-HISTORY-EVENTS (for in + when collect) \FINDKEY.UFN (for from to by as when do) PAINTW.READBRUSHSIZE (type?) +COURIER.EXPEDITED.CALL (for in thereis from to collect) BROWSE/LAYOUT/HORIZ (for in bind do) INTCHAR ( +for in do while) CACHEMACRO (for in by thereis) PPROC1 (type?) CLRPROMPT (type?) GETWINDOWPROP (type?) + MSINTERPRETSET (for inside join in do find suchthat) NUMBERPAD.READ (bind until do finally) RENAME ( +for inside when do) GETINTERRUPT (for in unless collect when do) TEDIT.PARSE.PAGEFRAMES (type? for in +collect) MSADDTYPE (for in bind do) \PRESSCURVE2 (for from to do until) \KEYACTION1 (for in collect) +PACKFILENAME.STRING (for on by do) SPP.FLUSH.TO.EOF (while do finally) \KEYNAMETONUMBER (for in as +from when do finally) \RESTLIST.UFN (for from to by do finally) FULLNAME (type?) PFI.PASS.COMMENT ( +bind do) TEDIT.BUILD.PCTB0 (bind for from to as by do finally) \NSGC.COLLECT.DIRECTORIES (bind +eachtime while when collect for in always) \TRANSLATE.10TO3 (for in when do finally) MSPRGE (for in +when do) BRHL/MOVE/RIGHT (for in bind do) \CANONICALIZE.NSADDRESS (for while do finally) \FIXDLINES ( +for inside do bind while) BROKENDEF (bind do) WHICHW (for by while thereis) IMAGEFNSP (type?) +HISTORY-NTH (bind while do) TEDIT.SCAN.LINE (for from to as do on inside when) \INSUREWINDOW (type?) +UTF16BE.OUTCHARFN (for inside do) GETFILEINFO (type?) \FTP.FLUSH.TO.MARK (bind while do) +TEDIT.FORMAT.HARDCOPY (type? while do for inside) FIND.PROCESS (type?) \FILE.NOT.OPEN (type?) +XCL:UNBREAK-FUNCTION (for in join) \FILE.WONT.OPEN (type?) \TFBRAVO.SPREAD.LOOKS (for in do) +\INSERTTREE (for old from to by when do finally type? as sum) ICONW.PRINT-JUSTIFIED (bind to as in do +repeatuntil) \STKSCAN (for from to do) OPT.FRAMEVAR (for on as from to by when do repeatwhile) +\ILLEGAL.DEVICEOP (for from to collect) \LFFileName (for from as in do) \MAIKO.IO-INTERRUPT (for in +when do) \IS.NOT.RANDACCESSP (type?) MAKE-UNICODE-TRANSLATION-TABLES (for in eachtime unless do from +to when) \LFMakeDirHole (to do) MSINITFNDATA (for in do) MSNEXTWORD (for in when do) +\BRUSHCONVERT.HCPYMODE (for in collect) UPDATEFILES (for in when do first finally unless) +\DRAWCIRCLE.PSC (for in do) COMPILER::COPY-NODE-LIST (for in collect) RESETKEYACTION (type?) FONTSET ( +for in when do) \PARAS.IN.SEL (for in do) FIND.MATCHING.WORD (find on suchthat) CONTROL-T (do bind) +\DRAWELLIPSE.PSC (for in do) TWODINSPECT.COPYBUTTONFN (bind while do finally) PRINTOPCODES (for in do) + \SELECTPROCESS (for in unless collect) \ABORT.BULK.DATA (do repeatwhile while) MAPFILES (for in do) +MakeMenuOfImageTypes (for in bind collect when) \DO.PROGV.SETUP.FRAME.AND.EXECUTE (for in as from by +do) TTYINPROMPTFORWORD (for in do) \FTP.FLUSH.TO.EOC (while do) \TEDIT.UPDATETREE (while do for old +from by as to when finally) TEDIT.SUBSTITUTE (for in sum while do collect instring as from by) +\PROC.FINDREALFRAME (for from by do) DINFO.INVERT.NODE (for in thereis) PROCESS.STATUS.WINDOW (for in +collect) SPPSTREAMP (type?) COMPILER::ENV-ANALYZE-LAMBDA (for in do) \CORE.RELEASEPAGES (for in when +do) \PFGetVols (for from to collect) MB.NWAYBUTTON.SELFN (for in as do) \COURIER.TRACE (for in bind do +) \UNBOXFLOAT3 (bind declare for from to by do finally) \WRITEBITMAP (until do) +FB.INSERT.SUBDIRECTORIES (for on bind when do) MB.NB.PACKITEMS (while do) TOPATTACHEDWINDOWS (for in +do) \GETREGION.CHECKBASEPT (bind for in do) SHADEITEM (for in thereis) \NSFILING.GETFILE (type?) +COMP.COND (for by while do) \MAIKO.CONSOLE-LOG-PRINT (while do) TEDIT.BUILD.PCTB2 (bind for from to as + by do finally in) SPAWN.MOUSE (for from to unless do) \CLOSEF.PRESS (for in as from do) \CURVE2 (bind + for from to when do) \DUMPEXPORTS (for on do) \TEDIT.ADJUST.LINES (bind while do) +GET-NEXT-HISTORY-EVENT (for in do finally) FW-INIT-MENUS (type? for in do) OPT.CLEANFRAME (for in when + always) CHECK/MENU/IMAGE (type?) \FAST4BIT (bind for from do) RPLSTRING (for from to as do) +\CORE.DELETEFILE (type? for on when do) PARAMETRICSPLINE (for in as from to do type? by) +RIGHTW.ADJUSTSELECTION (for in as on thereis) OPT.FRAMEDEL (for on do) TEDIT.INSERT (type? for +instring as from by do) FONTMAPARRAY (for in do from to unless) MB.MARGINBAR.TABTRACK (while do) +\DRAWPOLYGON.IP (for on do) \FTP.CLEANUP (do until) CHAT.STARTUP (for in when do on by) BKSYSCHARCODE +(bind while collect) ALLCALLS (for in when collect) VOLUMES (for in collect) FM.EDITITEM (type?) +MSADDMODIFIER (for in bind do) MAPFILES1 (while unless do) BKSYSBUF (for inatom do instring) +\MAIKO.ETHER-INTERRUPT (for in bind when do finally) \UTF8.BACKCHARFN (bind while repeatuntil finally) + \CHTOPC (while do type? for from to as by) NEGATE (for in do) GC-FILING-DIRECTORY (for in do while +bind finally) COMPILER::ENV-ANALYZE-LABELS (for in do) TEDIT.SELECT.LINE.SCANNER (bind while do for on + as inside when finally) \TEDIT.UNIQUIFY.CHARLOOKS (for in thereis) FONTPROFILE.ADDDEVICE (for in do +unless) \PROCESS.GO.TO.SLEEP (type?) COMPILER::CLOSURE-ANNOTATE-PROGN (for in COMPILER::UNIONING) +DINFO.LAYOUTGRAPH (for in collect) PROCESS.EVALV (type?) DIRECTORY.MATCH (do) \BITMAPTOSCREEN (for in +thereis) CHECKFPTOVP (for from to as by when do) FB.SORTCOMMAND (for in bind do) FONTCOPY (type? for +from by to do on) \LFMakeDirEntry (for in do) FB.EDITCOMMAND (for in bind do) DIRECTORY.MATCH.SETUP ( +do for on bind) TRAPMAKE (while do) TYPE.BUFFER (bind while do for in) \HANDLE.NS.ROUTING.INFO (while +do when repeatwhile) RESET.INTERRUPTS (for in collect) TEDIT.BUILD.PCTB1 (bind for from to as by do +finally in thereis) FONTSAVAILABLE (type? for in join) \CORE.GETINFOBLOCK (type? for on when do) +SEDIT::STRINGWIDTH (for instring bind do finally) \TEDIT.DELETE (for inside as do) ADDMENU (type?) +EQUALALL (for from as to always in) OPT.FRAMELOCAL (for in when do) \PSWOP.SELECTED (forDuration until + do) DEFINEFONT.IP (for from as in do finally) \GCRECLAIMCELL (do repeatuntil while) FB.GET.SORT.MENU +(for in collect) \LOOKUPFONTSINCORE (for in when join collect type?) SHOWCHARS (for from to unless do) + \IRM.WILDCARD (for in when collect) \CORE.GENERATEFILES (for in join when collect) +\TEDIT.PARSE.CHARLOOKS.MENU (for in do suchthat) CURRENT.WORD (for by until bind do finally) +\TEDIT.CENTER.SEL.REV (for in do) FW-WIPE (for in do) PROCESS.NAME (type?) MSPATHS4 (for in do) FONTP +(type?) FB.GREATEST.PREFIX (for from bind do) CHANGE-TTY-PROCESS-INTERACTIVELY (for in collect) +BRHL/LAYOUT/DAUGHTERS (for on bind finally do) \CORE.GETFILEINFO (type?) \TEDIT.UNIQUIFY.PARALOOKS ( +for in thereis) \ROUTINGTABLE.INFOHOOK (for from to as by sum) SEDIT::COPY-SELECTION-COMMENT (bind +while collect) OPENWP (type?) COMPILER::CLOSURE-ANNOTATE-MV-PROG1 (for in COMPILER::UNIONING) +TRANSGRAPH (for in collect) \TFBRAVO.EOLS (for from to do) \DASHINGCONVERT.HCPYMODE (for in collect) +\PRINTFPTOVP (while do) NCREATE2 (for in do) TTDOTABS (for in bind when do to collect) +FB.PROMPTFORINPUT (for from to by bind when do) SHRINKBITMAP (for from to do) OPENATTACHEDWINDOWS (for + in do) MSADDANALYZE (for in do) FW-ADJUST-REGION (for in do) L-CASE (for inatom as from do finally +instring first) FILEPKGCOMS.PUTDEF (for in by do) \NSFILING.GENERATEFILES (for on when do finally in +collect until) U-CASEP (for inatom never instring) \BLT (for from by to do) \UNITWIDTHSVECTOR (for +from to do) \MAKEBRUSH.DIAGONAL (for from to do) \NSFILING.COPY/RENAME (for in always) EDITBM (while +do) UNMARKASCHANGED (bind while do for in when) MOVEATTACHEDWINDOWS (for in do) TEDIT.PUT (while do +type?) POSTEDITALISTS (for in when do) OPENRTPSOCKET (until do) LIST-ALL-BLOCKRECORDS (for in when +collect) FW-RE-INIT (for in do) ONEDINSPECT.PROPWIDTH (for in largest finally) \#BLOCKDATACELLS (type? +) WFROMMENU (for in thereis) PRINTROUTINGTABLE (for from to as by join in do) SPELLFILE (for in +thereis when do) MOUSECONFIRM (until bind do finally) FONTPROFILE (for in do) ADDTOVAR (for in bind do + finally find suchthat) OPT.MERGEFRAMEP (for in do when) \TEDIT.GET.CHARLOOKS.LIST (for from to +collect) \CREATE-REAL-CHARSET.DISPLAY (for in bind when do) PREEDITFN (for in do collect) +\CORE.NAMESCAN (bind while do finally) UNTRACE (for in join) MSPATHS1 (for in when collect on do) +CONSTANTEXPRESSIONP (for in collect finally) \PUTBASESTRING (for infatstring as from do infatatom) +\TEDIT.FOREIGN.COPY? (for from to do) SEDIT::CFV-CLISP (bind first for in do finally) +\UPDATE.PROCESS.WINDOW (for in as thereis) \SFMAKEITALIC (for from to do) \IRM.WILD.REF (for in +collect) \PUTBASESTRINGFAT (for from to as by do) LEAF.ASSURE.FINISHED (type? bind until do while +never) SLITLOOP (for in do) GENSYM (for to as from by do finally) TWODINSPECT.COLUMNWIDTH (for in +largest finally) ALIGNMENTNODE (for in largest smallest) SEDIT::CREATE-CONSTANT-STRINGS (for in join) +FM.SHADE (type?) HCOPYALL1 (for in do) TILE (while do) \CREATECHARSET.DISPLAY (for in bind when do) +\BUILDSLUGCSINFO (for from to do) BLTPATTERN.GENERIC (while do) MODIFY.KEYACTIONS (for in collect do) +UNION (for in bind unless do finally) \DUMP.COURIERPROGRAMS (for in bind do on by) COURIER.WRITE (find + in bind suchthat for do as) SEDIT::REUSE-LINEAR-FORM (bind first do) CREATETEXTUREFROMBITMAP (for +from to do by) EXPRESSIONS.WHENCHANGED (for in do) \CORE.OPENFILE (type?) SHRINKATTACHEDWINDOWS (for +in do) TTYIN.PRINTARGS (while do bind) DIRECTORY (bind do for in thereis while) \READDISPLAYFONTFILE ( +bind first for inside when do finally) \IFSERRORSTRING (for from to do) MAKEHASHKEY (for in bind do +finally) MARKASCHANGED (for inside do in on when) \TEDIT.DIFFUSE.PARALOOKS (bind while do) +\NSRANDOM.OPENFILE (type?) RESHAPEALLWINDOWS (for in do when repeatuntil) BQUOTIFY (for in join by +while never) \COREFILE.SETPARAMETERS (for in bind do finally) SEDIT::ASSIGN-FORMAT-CLISP (for in do) +TEDIT.PUT.PCTB2 (type? while do finally for from to as instring in) \BSP.PREPARE.INPUT (bind do) +TTADDTAB (from to collect) FB.EXPUNGECOMMAND (for in do) ATTACHEDWINDOWS (for in thereis unless +collect) SEDIT::COPY-NODE (for in collect) COMPILER::COPY-NODE-TAGBODY (for in collect) EXPANDBM (for +from to by do while) OLD.FIND.SYMBOL (for from to suchthat do as always) MB.NB.SIZEFN (bind for in +collect join largest) \MKATOM (for from to suchthat do as always) BRHC/OFFSET (for in do) +RAISE/TRANSITION/CHAIN (for in do finally) MSPATHS2 (for in when do finally) SAMECLOOKS (for in always +) \CREATE.SYMBOL (for from as to do) DOWINDOWCOM (type?) \GCSCANSTACK (while do type? until) +APPENDTOVAR (for in do find suchthat) EVENTS-INPUT (for in collect) HOSTNAMEP (find in suchthat) +\PARSE.NUMBER (for from to always) GETHASHKEY (bind first until do finally) COMPILER::CLOSURE-ANNOTATE-MV-CALL + (for in COMPILER::UNIONING) TWODINSPECT.ROWPROPWIDTH (for in largest finally) BLTSHADE (type?) +APPENDINTEGER.IP (for from to by do) \VFMGetInterval (bind for from to by do finally) +\CLEAR.ROUTING.TABLE (for from to as by do) DUMPI.S.OPRS (for in collect) \SEARCHFONTFILES (bind for +inside do finally in when) COMPILER::ENV-ANALYZE-CALL (for in do) RECORDACCESS (for in join) +LDIFFERENCE (for in when collect) FM.REDISPLAYITEM (type?) GRAPHOBJ.FINDGRAPH (bind first do) +\INCUSECOUNT (until type?) \DOHARDRETURN1 (type? while do) \COPYDATATYPE (for in do) \FIRSTNODE (type? +) \TEDIT.MARK.LINES.DIRTY (bind for inside do finally while) UNPACKFILENAME.STRING (for from to bind +first do finally while always) \INITATOMPAGE (for from to as by do) MSNEEDUNSAVE (for inside when +collect) GETSELECTEDITEMS (for in when collect) MB.NB.DISPLAYFN (for in as do when) BRKDWN1 (for from +to do) SIMPLETEXTEDIT (repeatuntil finally) DECODE-NS-STRING (bind while do) \MOVEFRAME (type? do +repeatwhile) PUPNET.DISTANCE (to do repeatuntil) SPELLFILE1 (for on by do) \VFMKillBuffer (bind for on + do) FB.MAYBE.INSERT.FILE (for in collect on as unless do) \FONTINFOFROMFILENAME (for from when do +find suchthat) \NSFILING.PARSE.FILENAME (bind first while do finally until) \ONQUEUE (for by while do +when) SLICESET (for in as from sum) \NSPRINT.WATCHDOG (bind do for on) WRITE-UNICODE-INCLUDED (for +inside join in collect find suchthat from to when on while) SEDIT::RECOMPUTE-FORMAT-VALUES (for in do) + HRULE.IMAGEBOXFN (for inside sum) \GATHER-CLEANUP-FORMS (for in bind do) IDLE.SHOW.OPTIONS (for on by + do) UnixPrint (for in when do) \UNQUEUE (bind while do) SEDIT::LINEARIZE-CLISP (bind first for in do +finally type?) ADDTOCOMS (for on do) FW-RESET (for in do) TTYIN.SHOW.?ALTERNATIVES (do) +MBUTTON.FIND.NEXT.BUTTON (bind first while do type?) \FONTFILENAME (while do) \TEXTMENU.TOGGLE.DISPLAY + (type?) SCANDEFINEQ (find on suchthat) SPELLFILEDIR (for in when do) SYMBOL.PNAME (for from to do) +MENUWINDOW (type?) MAPATOMS (for old from to do by while when as never) DWIM-SYMBOL-PACKAGE (for in +collect when do) SEDIT::COMMENT-LENGTH (for from to as in sum) TRACE (for in join) +\MAIKO.INPUT.INTERRUPT (for in bind when do finally) MSPATHS (do) TWODINSPECT.COLUMNWIDTHS (for in +collect) COMPILER::CLOSURE-ANNOTATE-LAMBDA (for in COMPILER::UNIONING when collect join) +\AGE.ROUTING.TABLE (for from to do by while bind when finally) SEDIT::CONTAINS? (while do) +ONEDINSPECT.REPAINTFN (for on as until finally in bind repeatuntil do) PURGEDSKDIRECTORY (for in when +do type?) ATOMHASH#PROBES (for infatstring when do from to until as always) \COERCETODS (type?) +\TEDIT.WINDOW.OPS (while do) SEDIT::TRANSLATE-CHARS (bind first for instring do finally) +COMPILE.FILE.DEFINEQ (for in unless do) COPYBYTES (type? until do) TEDIT.GET.PARALOOKS0 (for from to +collect) ED (for inside when bind collect find on by suchthat) FIND.START.OF.WORD (while do) +MAXATTACHEDWINDOWEXTENT (bind for in do) SEDIT::UNDO-EXTRACT (for in as from do) \MAP.ROUTING.TABLE ( +for from to as by do in) CREATEMENUEDWINDOW (type?) MBUTTON.FIND.NEXT.FIELD (while do) UNSAVEFNS (for +in when bind do unless) \TEDIT.GET.PARALOOKS.LIST (for from to collect) TEDITFROMBRAVO (first while do + finally) COMPILER::CLOSURE-ANNOTATE-LABELS (for in COMPILER::UNIONING) \BUFFERED.COPYBYTES (bind do +repeatwhile) \FONTFACE.COLOR (type?) INSPECT/AS/RECORD (for in when collect) SEDIT::GETKEY (bind do) +DBG::MAKE-FRAME-INSPECT-WINDOW (for in when do) \FINDFONTFILE (bind for inside when do) +\NSFILING.COMPOSE.PATHNAME (for in join) INSTALLBRUSH (for from to do) SPELLFILE.MATCHINGDIRS (for in +when collect unless) TEDIT.GET.CHARLOOKS0 (for from to collect) \COURIER.RESULTS (for in collect find +suchthat when do) WRITE-UNICODE-MAPPING-FILENAME (for on join) MINATTACHEDWINDOWEXTENT (bind for in do +) \GETSTREAM (type?) \PFInitializeVols (for from to do) MB.NB.WHENOPERATEDFN (for in as when do) +POSTEDITPROPS (for on by when do finally) \SLOWFGREATERP (while do) \NSFILING.SETFILEINFO (type?) +COPYCHARS (type? until do for from to by bind declare while) \SFLHASHLOOKUP (bind first do) FB.PRINTFN + (while do for in as bind) \HANDLE.RAW.PUP (for in when do) \LEAF.BREAKCONNECTION (type? for in do) +SEDIT::ASSIGN-FORMAT-DOTLIST (for in do) \POLYSHADE.BLT (while do for in) CLEAR.LEAF.CACHE (type?) +\NSRANDOM.READPAGES (for from to when do) \CURVEEND (for from to do) PUTCURSORPROP (for on by when do) + \NODIRCORE.OPENFILE (type?) LISTFILES (for in when collect) \NSRANDOM.SESSION.WATCHER (do for in when +) FIXDATUM (for in do) BLTPATTERN.REPLACEDISPLAY (while do) BKSYSBUF.GENERAL (bind do repeatuntil +finally) \MAIKO.10MBSENDPACKET (for in bind when do finally) COPYGRAPH (for in collect) +\TEDIT.REOPEN.STREAM (while do) SI::UNWIND-TO-BLIP (bind until when do) TEDIT.HARDCOPY (for in do +finally) \INIT-MISCN-TABLE (for in do) BITMAPP (type?) EVALUABLE.CONSTANTP (for in collect do finally) + \CREATEPIECEORSTREAM (type?) \NSFILING.GETFILEINFO (type?) FW-FORGET-CMD (for in when collect) +POSTSCRIPT.PUTCOMMAND (for from to do) FIND1STPRIME (find from by suchthat for never repeatuntil) +CHANGERECORD (for in do) CLOSEALL (for in when collect) REMOVETONODES (for in unless collect) +\COMPUTE.ARC.POINTS (for from to by collect) INSURE.WINDOW (type?) PFI.SORT.INDICES (for in bind when +collect) SI::NON-LOCAL-RETURN (for from to collect) COMPILE.CHECK.ARGTYPE (for in do) SEDIT::OUTPUT-STRING + (type?) COMPILER::FIND-TOP-ENVIRONMENT (until do) \WALKOVER.SPECIALFORMS (for on until do finally) +BITSPERPIXEL (type?) MISCN-COLLECT (for from to collect) \STKMIN (for from to do) TEDIT.SUBLOOKS (for +on by collect bind while do) REMWINDOWPROP (type? for on by bind do) FB.COPY/RENAME.MANY (for in +thereis repeatwhile finally do) SEDIT::UNDO-LIST-REPLACE (for in unless do) \FINDOP (for in do from to + by) \LFFindDirectoryVol (type? for on do in thereis) \DECL.COMNT.PROCESS (for on while do finally) +SEDIT::COMPUTE-FORMATS-AND-FORMAT-VALUES (for in do) OPENP (type?) ONEDINSPECT.COPYBUTTONFN (bind +while do finally) ROMANNUMERALS (while do) IRNDLIST (for in collect) ARGTYPE.STATE (for in do) +COMPILER::ALPHA-COMPILER-LET (for in do) SEDIT::OUTPUT-SPACE (for from to do) WHENCLOSE (for from to +by do) SI::ADD-OLD-STYLE-ADVICE (for in do) FB.GET.NEW.FILE.SPEC (for on by bind do) +BRHC/LAYOUT/DAUGHTERS (for in bind do finally) TEDITWINDOWP (type?) \SELITEM.FROM.PROPERTY (for in +when do) \FONTINFOFROMFILENAME.OLD (for from when do) MB.MARGINBAR.SELFN (for in collect while do as +smallest) \MEDW.GETSCREENREGION (for in always until do) MAKEFILE1 (find in suchthat) +\NSFILING.CONFLICTP (for in bind when do) \DELETETREE (for old from to by when do finally as sum) +\LFCloseDevice (for in do) FM.RESETMENU (for in do) FB.OPERATE.ON.FILES (for in collect) COPYDEF (for +in do) PRINTCONSTANT (for in when do) TEDIT.PUT.PCTB (type? while do finally for from to as instring +in) CALLS3 (for on do) \UFStoOtherCopyMess (for in finally do) \READSTRIKEFONTFILE (for from to do as) + SI::PVAR-VALUE-IN-FRAME (for from by bind until do) MAKEUSERMACROSCOMS (for in do when collect) +\STARTPUP (for in do) \TEDIT.CHANGE.LOOKS (type? bind while do finally) \READACFONTFILE (for from to +as in do sum bind) SI::VARIABLE-NAME-IN-FRAME (for by as until when do) \LOCATE.PUPNET (for in when do + finally) COLLECTFNDATA (for in do) COMPILER::CLOSURE-ANNOTATE-CATCH (for in do) \INFER.FILE.TYPE (do) + \TEDIT.CARET (for inside do) SHOW.CLEARINGHOUSE (for in collect) TEDIT.UNDO.PARALOOKS (bind for in do +) TEDIT.LOOKS (type?) \NSRANDOM.WRITEPAGES (for inside as from do old bind sum) +SORT.PUPHOSTS.BY.DISTANCE (for in do always) \TEDIT.FLUSH.UNUSED.LOOKS (for in do while when collect) +UNBREAK (for in join) \FONTRESETCHARWIDTHS (for from to do) LOOKUPHASHFILE (for in thereis) +\NSFILING.GENERATE.STARS (bind while do finally) BREAK-FUNCTION (for in join) \INIT-USER-SUBR-TABLE ( +for in do) \TEDIT.GET.PARALOOKS1 (for from to collect) EDIT.BITMAP.REAL (until do) PF (for inside +unless do) LISTRECORDEFS (to do finally) RESETOPENFILES (for inside collect) SETFILEPTR (type?) +CONVERT-AFM-FILES (for in do as) CHANGETRAN1 (for in do finally) CURSORP (type?) MakeMenuOfPrinters ( +for inside collect) CENTERPRINTINREGION (type?) TEDIT.SELECTED.PIECES (first while for from do) +FINDFNDEF (for in thereis) TRAPLOOP (for in do collect from to) SEDIT::CFV-DOTLIST (for in always sum +bind do finally) FIND.LINE (for do) \TELERAIDBREAK (while do type?) MBUTTON.FIND.BUTTON (first while +do) \CURSORPOSITION (do repeatuntil) SLICEREF (for in as from sum) NORMLOOP (while do) +\SFROTATECSINFOOFFSETS (for from to do) HRULE.DISPLAYFN (bind for inside do) PROCESSPROP (type? for on + by when do) WRITE-UNICODE-MAPPING (for in when collect) \TEDIT.SHOWSELS (for in do) FM.RESETSTATE ( +type?) ROTATE-BITMAP (for from to do) \IRM.CHOOSE.REF (for in collect) \FM.EDIT-GETPOINTERINFO (for +from to do) CHAT.BIN (until bind do) FM.CHANGESTATE (type?) \FLUSH.OPEN.STREAMS (for in when do) +EQDEFP (for from to always) SEDIT::BUILD-NODE (bind while do finally) BCOMPL.BODY (for in do) +TWODINSPECT.SELECTCOLUMNPROP (for on thereis in as) COPYATOM (for from to do) SEDIT::MARKASCHANGEDFN ( +type?) GETHASHTEXT (type?) MSSPLST (find in suchthat) CHAT.CHOOSE.PHONE.NUMBER (for in collect when) +ROTATE-BITMAP-LEFT (for from to do) \BIGNUM.LSH (while do type?) CURSORPOSITION (type?) BUTTONPANEL ( +for in collect) ASKUSER1 (thereis bind in eachtime suchthat) GTHASHFILE (type?) GETLOCALDEC (for by +while bind when do in) SEDIT::NEXT-LINEAR-ITEM (do type?) \TEDIT.CENTER.SEL (for in do) SEDIT::UNDO-EVENT + (for in do) TB.MAP.DELETED.ITEMS (for in when do) STRIKECSINFO (for from to sum do) \CHTOPCNO (while +do) CH.FINDSERVER (type? for in when do) CLOSERTPSOCKET (until do) WRITESTRIKEFONTFILE (for from to +thereis by do) FB.PROMPTWPRINT (for from to do) ASKUSER$ (for bind in eachtime when do finally from to + while) UTF8.OUTCHARFN (for inside do) \VECFONTINIT (bind for in collect) INTERPRET.REM.CM (for from +to when do) BRECOMPILE2 (from to always) TTUNREADBUF (for by until do) COMPILER::CLOSURE-ANNOTATE-CALL + (for in COMPILER::UNIONING) \TEDIT.INSERT.PIECES (bind first while do) \TEDIT.CLOSEUPLINES (bind +while do until) \CHANGECHARSET.HDCPYDISPLAY (for from to do) \OPENLEAFCONNECTION (until do) +TTMAKECOMPLEXCHAR (for in do) \TYPE.FROM.FILETYPE (find in suchthat) SIMPLEPRINT (for from to do) +\LEAF.LOOKUPCACHE (for from bind while do finally) DINFO (type?) FASL::COLLECT-LIST (to collect) +NUTF8STRINGBYTES (for from while sum) MULTIFILEINDEX (for inside join in collect) \PFCreateVols (type? + bind for from to do) \RESETSTACK0 (for from to bind when do finally type?) MSDESCRIBE (for in when +collect do) \MAKEBASEBYTESTREAM (type?) TEDIT.UNDO.LOOKS (bind for in do) PFI.COMPUTE.INDEX.SHAPE (for + in largest finally join) \FILLINXIP (type?) MAKEPROPSCOMS (for in collect) \BUILDATWSTRUCTURE (for in + collect join finally old do) SEDIT::STRINGIFY-LIST (bind for in do finally) \PFInitFileDescriptors ( +for from to do) TEDIT-BOOK (for in do) TB.COLLECT.ITEMS (for in collect when) +SET-PACKAGE-INTERACTIVELY (for in bind collect) FW-CREATE-OFD-WINDOWS (for in bind unless do) +INITBITMASKS (for from to bind do) \NSFILING.FULLNAME (type? for in do from while bind finally join) +\TFBRAVO.PARSE.PROFILE.PARA (while do) SCANFILE1 (for in do while) \UPCASEBASE (for from to do) +COURIER.CALL (for from to collect type?) \CLEARCELLS (while do) FM.GETITEM (for in thereis) +STRING.EQUAL (for from as to always) HASHFILEP (type?) \TEDIT.RESHAPEFN (while do) FIX/SCALE (for in +collect) \TEXTMENU.START (for in thereis) OPT.RETMERGE (type?) TTSKIPSEPR (while do) \10MBRAWTRANSMIT +(repeatuntil) \FM.EDIT-DELETE (while bind eachtime do finally) TTCOMPLETEWORD (for by until sum while +do finally find old from to as in suchthat) CREATEDSKDIRECTORY (type?) FM.HIGHLIGHTITEM (type?) +TB.NTH.ITEM (while do finally) BEEPON (while do) COMP.CPI (while do) HVREADEND (bind until do) +CREATEPAGES (for from to do) \TTW1 (type?) \NSFILING.CHECK.ACCESS (for in thereis) \InitCurveBrushes ( +for in do from to) SEDIT::LINE-FINISHED (for by do repeatuntil finally) BEEPOFF (while do) +SHOWBITMAP1.IP (for from to do) EXPANDATTACHEDWINDOWS (for in do) SEDIT::SET-SELECTION-QUOTE (type?) +\PFCreatePhysicalVolume (type?) CHECKSAMEDIR (for in bind never) IMPORTEVAL (for in join) CL:CHAR-NAME + (for in when do finally) COURIER.READ.STRING (for from to thereis) RECORDECL1 (for in collect join on + when) CRITSECT (while do) COMP.LAM1 (for in when do) COPY.SEGMENT (for by until collect) +\FTP.FIX.BROKEN.INPUT (for in collect when do) TEDIT.HCPYFILE (type?) \GATHER-CLEANUP-FORMS1 (bind +until do finally type?) \FM.EDIT-WORDDELETE (while do) CHAT.LOGIN (for in do) CONVEXP (while do) +UPDATEPCNODES (while do for from by as to when finally) \GATHER-SPECIAL-BINDINGS (for from by bind +until unless do finally) BIT.IN.ROW (for from to when do) ETHERHOSTNAME (to when do finally for +instring always) RECORDECLBLOCK (for in when do bind find from suchthat as collect) OPT.RETTEST (type? +) \BITBLT.BITMAP (type?) RANDSET (for in as from to collect) SEDIT::SELECT-SEGMENT-DEFAULT (type? for +in as from bind do) TMPSUBFN (for from to always) SCAVENGEDSKDIRECTORY (type? for in do) +AS.NEXT.VERIFIER (for in collect) \GCERROR (until) FILLNGON.IP (for from to do) \ZEROWORDS (while do) +IDATE (while do for in bind) COMPILER::CLOSURE-ANNOTATE-BLOCK (for in do) \SETDAYTIME0 (repeatwhile) +\TEDIT.CUMULATE.EVENTS (bind while do finally) TEDIT.UNPARSE.PAGEFORMAT (for in do collect) +\VFMGenerateFileIDs (bind until when collect) WRITE-UNICODE-MAPPING-HEADER (for in do) +\PROCESS.RESET.TIMERS (for in bind do when) \HANDLE.PUP.ROUTING.INFO (while do when repeatwhile) +COMPILER::COPY-NODE-LAMBDA (for in collect) \FORMATLINE (while do type? for old from to as when) +CHAT.TYPEOUT (bind first while do finally) \HARDRESET-CLEANUP (for in do) FM.GETSTATE (for in do) +MB.PUTFN (for in do) SEDIT::ATOM-CHANGE-RELINEARIZE (type?) TEDIT.COPY.PARALOOKS (type?) HVBAKREAD ( +for from to do in while until collect finally) \HARDRESET-CLEANUP1 (for in as from by do bind finally) + SEDIT::SET-SELECTION-LIST (type?) XCL:UNADVISE-FUNCTION (for in join) GETBLOCKDEC (for in when do) +INITUFNTABLE (for from to do in when) NONSYSPROPNAMES (for in when collect) XCL:READVISE-FUNCTION (for + in join) TWODINSPECT.SELECTROWPROP (for on thereis in as) \INSURESCREEN (type?) +PFI.SETUP.TRANSLATIONS (for in collect) XCL:REINSTALL-ADVICE (for in do) XCL:ADVISE-FUNCTION (for in +join) MSOBJTYPE (type?) OPT.JFIXPASS (for in do) \SEARCHOPENFILES (for in when do) COMPILER::COPY-NODE-LABELS + (for in as collect) \LEAF.ADD.QUOTES (bind while do finally) FIND.NON.SPACE (while do) +\FTP.RECOGNIZEFILE (for in do) BITBLT (type?) MODERN-MENUBUTTONFN (type?) BREAKCONNECTION (for in when + collect) RESETVARS (for in collect do) COURIER.READ.SEQUENCE (to collect) WORD.MATCHES.BUFFER (for as + by bind until always) \MEDW.GETSCREENPOSITION (until do) SCALE/TONODES (for in collect do) +CLEARHASHFILES (while do) IRM.CREF.BUTTONEVENTFN (bind until do finally) \DISPLAYLINE (bind for from +to do finally while) \STRINGWIDTH.HCPYDISPLAYAUX (for inatom sum instring do) HASH.PASSWORD (bind for +instring do finally) \CARET.FLASH.MULTIPLE (for in as do) \NSFILING.FILLIN.ATTRIBUTES (for in do) +XCL:REBREAK-FUNCTION (for in join) LOADFNS-MAKELIST (for in collect when) \GENERIC.OPENP (for in +collect when) SEDIT::SCAN-STRING (bind first while do finally type?) XCL:TRACE-FUNCTION (for in join) +COND.TO.IF (for in join) \ALLOCMINIMUMSIZES (for in until do sum) \PFCreateFileDescriptors (for from +to do) \BACKFORMAT (for old from to by do while) SAMEPARALOOKS (for in always) MSSUBJTYPE (type?) NIL +SPECVARS ERRORX (ERRORPOS) CL:INTERN (*PACKAGE*) PRETTYCOM1 (SI::*RESETFORMS*) \UFS.RECOGNIZE.FILE ( +SI::*LOCKED-MONITOR* SI::*RESETFORMS*) \INTERNAL/SETPASSWORD (SI::*LOCKED-MONITOR* SI::*RESETFORMS*) +CL::\OPENSTREAM-WITH-DEFAULT (LOADPARAMATERS) COPYHASHFILE (HASHFILE FN NEWHASHFILE) \SPP.ESTABLISH ( +SI::*LOCKED-MONITOR* SI::*RESETFORMS*) \UFSCloseDevice (SI::*LOCKED-MONITOR* SI::*RESETFORMS*) +MAKE-KEYWORD (*KEYWORD-PACKAGE*) \INVALID.SYMBOL (\FATPNAMESTRINGP) COMP.EXPR (*BC-MACRO-ENVIRONMENT*) + \VFMInsert (insertKey insertVolumePage insertLevel splitFlag) COPYFILES (FROMSPEC TOSPEC T HELPFLAG) +LOADCOMP (BLOCKS) CONCOCT-SYMBOL (*LISP-PACKAGE* *INTERLISP-PACKAGE* CMLSYMBOLS.SHARED) +XCL::PPRINT-DEFINER-RECURSE (TAIL) \TEDIT.HARDCOPY.FORMATLINE (LOOKS ASCENT DESCENT FONTWIDTHS FONT +INVISIBLERUNS CHNO TLEN LOOKNO CHLIST WLIST DEVICE NEWASCENT NEWDESCENT IMAGESTREAM) \FM.EDIT-ITEM ( +DONEFN EDITITEM WINDOW) PACKAGE-ENABLE (*INTERLISP-PACKAGE* *PACKAGE* *OLD-INTERLISP-READ-ENVIRONMENT* + *PER-EXEC-VARIABLES*) RECREDECLARE (RECNAME RECFIELDS) FIX-FORM (%#RPARS FONTCHANGEFLG) +LISPDIRECTORYP (SI::*LOCKED-MONITOR* SI::*RESETFORMS*) RECEVAL (NEWVALUE DATUM FIELDNAME) LVLPRIN1 ( +FILE PRIN2FLG) PACKAGE-MAKE (*LISP-PACKAGE* *KEYWORD-PACKAGE* *INTERLISP-PACKAGE* *PACKAGE* +HASHTABLE-SIZE-LIMIT) COMPILER::COMPILE-FILE-PROCLAMATION (GLOBALVARS SPECVARS LOCALVARS) +\LEAF.RECONNECT (SI::*LOCKED-MONITOR* SI::*RESETFORMS*) PACKAGE-HIERARCHY-INIT (*INTERLISP-PACKAGE* +*KEYWORD-PACKAGE* CMLSYMBOLS.LAMBDA.LIST.KEYWORDS CMLSYMBOLS.SPECIALFORMS CMLSYMBOLS.MACROS +CMLSYMBOLS.TYPENAMES CMLSYMBOLS.FNNAMES CMLSYMBOLS.DECLARATORS CMLSYMBOLS.VARS) BRKDWNCOMPILE2 (LCFIL +LAPFLG STRF SVFLG LSTFIL SPECVARS LOCALVARS SI::*RESETFORMS*) DWIMIFY (SI::*RESETFORMS*) +COMPILE-FILE-EXPRESSION (COMPILED.FILE) \LFGetFileInfo (SI::*LOCKED-MONITOR* SI::*RESETFORMS*) +LVLPRIN2 (FILE PRIN2FLG) PACKAGE-CLEAR (*PACKAGE-FROM-NAME* *PACKAGE-FROM-INDEX* *PACKAGE* +*LISP-PACKAGE* *KEYWORD-PACKAGE* *INTERLISP-PACKAGE*) OR (*TAIL*) TTYIN.FINISH (\COMMAND \BUFFER LINE) + BCOMPL (NLAML NLAMA LAMS LAMA DWIMIFYCOMPFLG EXPRSLST NOFIXVARSLST NOFIXFNSLST *PRINT-ARRAY* +*PRINT-LEVEL* *PRINT-LENGTH*) TEDIT (SI::*LOCKED-MONITOR* SI::*RESETFORMS*) \SPP.CLEANUP ( +SI::*LOCKED-MONITOR* SI::*RESETFORMS*) \VAMInit (SI::*LOCKED-MONITOR* SI::*RESETFORMS*) +XCL::PPRINT-DEFINER (FORMFLG SPACEWIDTH TAIL LEFT) PRINT-LISP-INFORMATION (SI::*RESETFORMS*) PRIN2 ( +*PRINT-ESCAPE* *READTABLE* *PRINT-LEVEL* *PRINT-LENGTH* *PACKAGE* \THISFILELINELENGTH) WTFIX1 ( +SI::*RESETFORMS*) COMPILER::COMPILE-SCAN-DEFINE-FILE-INFO (*STANDARD-INPUT* FILECREATEDLOC) +\VFMGetPageGroup (SI::*LOCKED-MONITOR* SI::*RESETFORMS*) MSINTERPRET (TYPE SHOWSET EDIT EDITCOMS DONE) + PRIN4 (*PRINT-ESCAPE* *READTABLE* *PRINT-LEVEL* *PRINT-LENGTH* *PACKAGE* \THISFILELINELENGTH) DMPHASH + (ARRAYNAME) LAYOUTSEXPR1 (RESULT) \LFGetFileName (SI::*LOCKED-MONITOR* SI::*RESETFORMS*) PRINTPARA ( +LMARG RMARG P2FLAG FILE) TTYIN (SPLST HELP OPTIONS ECHOTOFILE TABS UNREADBUF RDTBL) \CORE.GETFILENAME +(ROOT EXT VERS) READ (*READTABLE* *READ-NEWLINE-SUPPRESS*) DBG::ATTACH-BACKTRACE-MENU (\TERM.OFD +BACKTRACEFONT) \FILLBUFFER (RTBLSA) SPELLFILE (NAME EXTENSION VERSION SPELLVAL DIRHOSTS HOST) +\FILLPOLYGON.PSC (FILL.WRULE) APROPOS (RESULT FILTERFN DISPLAYSTREAM) \VFMDelete (deleteKey +deleteLevel firstFlag lastFlag volumePage nextKey) LOADFNS (FILE LDFLG VARS *PACKAGE* DFNFLG +BUILDMAPFLG FILEPKGFLG ADDSPELLFLG LISPXHIST FNLST VARLST DONELST FILECREATEDLST FILECREATEDLOC) +ADDTOVAR (DFNFLG) CL::%%RATIO-PRINT (\THISFILELINELENGTH) \UFS.DIRECTORY.NAME (SI::*LOCKED-MONITOR* +SI::*RESETFORMS*) PPSPP (SI::*RESETFORMS*) CHNGNM (SI::*RESETFORMS*) COMPILER::TEST-ALPHA-2 (SPECVARS +LOCALVARS LOCALFREEVARS GLOBALVARS) WRITE (*PRINT-ESCAPE* *PRINT-RADIX* *PRINT-BASE* *PRINT-LEVEL* +*PRINT-LENGTH* *PRINT-CASE* *PRINT-GENSYM* *PRINT-ARRAY* *PRINT-PRETTY* *PRINT-CIRCLE* +*PRINT-CIRCLE-HASHTABLE* *PRINT-CIRCLE-NUMBER* THERE-ARE-CIRCLES) ASKUSER (LISPXPRNTFLG OPTIONSLST +FILE READBUF) HASHFILESPLST1 (XWORD) LEAF.ASSURE.FINISHED (SI::*LOCKED-MONITOR* SI::*RESETFORMS*) +COMPILER::COMPILE-FILE-DEFINE-FILE-INFO (*STANDARD-INPUT* FILECREATEDLOC) \GETSPP (SI::*LOCKED-MONITOR* + SI::*RESETFORMS*) INREADMACROP (\READDEPTH) PROMPTFORWORD (TERMINCHARS.LST ECHO.CHANNEL +DONTECHOTYPEIN.FLG TTYD X0Y0 TIMELIMITEXPIRED? BELLBEENHEARD? CHARBUFFER RUBBING?) HCOPYALL1 (NH) +\TERMINATESPP (SI::*LOCKED-MONITOR* SI::*RESETFORMS*) CLDISABLE (SI::*RESETFORMS*) CCCSCAN (SUBMAPS +OLDREF) DIRECTORY (COMMANDS DEFAULTEXT DEFAULTVERS VALUE COLUMNS NAMEFLG FILEGROUP DESIREDPROPS +LASTHOST&DIR) LAYOUTSEXPR (RESULT) \VFMInit (SI::*LOCKED-MONITOR* SI::*RESETFORMS*) \PRINTNSADDRESS ( +\THISFILELINELENGTH) SHOWDEF (T) VALUOF (LINE BACKUP HISTORYFLG) \LEAF.GETFILE (SI::*LOCKED-MONITOR* +SI::*RESETFORMS*) TEDIT.INCLUDE (START-OF-PIECE) PUTSEQUIN (SI::*LOCKED-MONITOR* SI::*RESETFORMS*) +\VAMRecomputeFreePageCount (SI::*LOCKED-MONITOR* SI::*RESETFORMS*) \BSP.PREPARE.INPUT ( +SI::*LOCKED-MONITOR* SI::*RESETFORMS*) CL:FIND-PACKAGE (*PACKAGE-FROM-NAME*) MAKEFILES (SI::*RESETFORMS* +) READBQUOTE (\INBQUOTE) \IDATESCANTOKEN (*STR* *POS*) PPT (*STANDARD-OUTPUT* SI::*RESETFORMS*) PACK* +(PACK.INDEX \PNAMESTRING) EDITDEF (SOURCE) BKSYSBUF.GENERAL (SI::*RESETFORMS*) FIXSPELL ( +SI::*RESETFORMS*) COMPILER::RESOLVE-VARIABLE-BINDING (COMPILER::*NEW-GLOBALS* COMPILER::*NEW-SPECIALS* + SPECVARS LOCALVARS LOCALFREEVARS GLOBALVARS) SEDIT::SEDITL (TYPE TTYEDITFN) \VFMDeletePageGroup ( +SI::*LOCKED-MONITOR* SI::*RESETFORMS*) TB.MAKE.BROWSER (FONT PRINTFN COPYFN CLOSEFN AFTERCLOSEFN TITLE + COLUMNS USERDATA LINESPERITEM ITEMHEIGHT BASELINE HEADINGWINDOW LINETHICKNESS) CLISPFOR0A (LASTPTR) +MSERASE (ERASESET) \LOAD-STREAM (LDFLG PRINTFLG LOAD-VERBOSE-STREAM DFNFLG BUILDMAPFLG FILEPKGFLG +ADDSPELLFLG LISPXHIST FILECREATEDLST FILECREATEDENV FILECREATEDLOC FILE) PFI.ENQUEUE ( +SI::*LOCKED-MONITOR* SI::*RESETFORMS*) APPENDTOVAR (DFNFLG) CLISPATOM0 (LISPXHIST SI::*RESETFORMS*) +DUMPDATABASE (DUMPEDFLG DUMPTABLE) \LEAF.FLUSH.CACHE (SI::*LOCKED-MONITOR* SI::*RESETFORMS*) +RECORDACCESS (DATUM) PURGEDSKDIRECTORY (SI::*LOCKED-MONITOR* SI::*RESETFORMS*) DWIMDEF (NOSPELLFLG +DWIMESSGAG FILEPKGFLG LISPXHIST) SI::EXPAND-CONDITION-CASE (*BYTECOMPILER-IS-EXPANDING*) +SUPERPRINT/SPACE (RMARGIN SPACEWIDTH LEFT) CL:PEEK-CHAR (\RefillBufferFn) ENTER-NEW-NICKNAMES ( +*PACKAGE-FROM-NAME*) SYSOUT (FILE) CHAT.TYPEIN (STREAM) BYTEBLOCKCOMPILE2 (SI::*RESETFORMS*) +\NSFILING.SETFILEINFO (NAME.OR.STREAM ATTR/VAL) DO?CMD (\?TAIL \?PARAMS \BUFFER \STARTED) EDITH ( +SI::*RESETFORMS*) CL:MAKE-PACKAGE (*PACKAGE-FROM-INDEX* *PACKAGE-FROM-NAME*) CL:COMPILE (SPECVARS +LOCALVARS LOCALFREEVARS GLOBALVARS) POSSIBILITYFN (COMVAR## POSSLIST##) BSP.PUTINTERRUPT ( +SI::*LOCKED-MONITOR* SI::*RESETFORMS*) LAYOUTLATTICE (NODELST MOTHERD PERSONALD FAMILYD) +MSPRGTEMPLATE1 (EXPR) MAKESYS (FILE NAME) CONDITIONS::EXPAND-RESTART-CASE (*BYTECOMPILER-IS-EXPANDING* +) COMP.USERFN (FN OTHERVARS) HASDEF (TYPE) FITP (ENDTAIL SPACEWIDTH CAREFUL) USEREXEC (SI::*RESETFORMS* +) MSTRYSPELLTYPE (TYPE) CL:USE-PACKAGE (*PACKAGE*) MACROEXPANSION (COMPILE.CONTEXT NCF PCF VCF EFF +EXPR EXP RETF PREDF) SI::EXPAND-PROCEED-CASE (*BYTECOMPILER-IS-EXPANDING*) TB.DO.ITEM.SELECTION ( +SELECTIONSTATE BROWSER FIRSTVISIBLE# LASTVISIBLE#) COMPILER::RESOLVE-VARIABLE-REFERENCE (SPECVARS +LOCALVARS LOCALFREEVARS GLOBALVARS) DWIM-SYMBOL-PACKAGE (FAULTX FAULTAPPLYFLG) COLLECTKEYS (MKSTRING? +KEYLST) CALLSCCODE (IGNOREFNS) \VFMGet (getKey getLevel) \LFSetFileInfo (SI::*LOCKED-MONITOR* +SI::*RESETFORMS*) DEFAULT.EDITDEF (RETRY) IMPORT (*PACKAGE*) \EVALFORMASLAMBDA (*ARGVAL* *FN* *TAIL*) +UNSAVEFNS (SI::*RESETFORMS*) EDRPT (SI::*RESETFORMS*) CL:PROVIDE (*MODULES*) TEDITCHAT.MENUFN (WINDOW +STATE) INFILECOMTAIL (SI::*RESETFORMS*) \NSFILING.GETFILEINFO (DESIREDPROPS) SEDIT::SETUP-NEW-CONTEXT +(SI::*LOCKED-MONITOR* SI::*RESETFORMS*) DO-HISTORY-SEARCH (*EVENTS*) CL:SHADOW (*PACKAGE*) \SENDSPP ( +SI::*LOCKED-MONITOR* SI::*RESETFORMS*) APPLY (\INTERNAL) \DFSFreeDiskPages (SI::*LOCKED-MONITOR* +SI::*RESETFORMS*) EXPORT (*PACKAGE*) MSPATHS (SI::*RESETFORMS*) COMPILER::PROCESS-IL-DECLARATIONS ( +SPECVARS LOCALVARS GLOBALVARS) CL:SHADOWING-IMPORT (*PACKAGE*) EDITCOMA (PRETTYFLG *READTABLE*) +CHAT.MENU (WINDOW STATE) COPYCHARS (CNT) TEDITFROMBRAVO (NOUT) RECORDTRAN (LISPXHIST DWIMESSGAG +NOSPELLFLG) \MOUSE.PROCESS (\OLDTTY \MOUSEBUSY) GETCLEARINGHOUSE (SI::*LOCKED-MONITOR* SI::*RESETFORMS* +) PACKFILENAME (HOST DEVICE STRUCTURE DIRECTORY SUBDIRECTORY NAME EXTENSION VERSION TEMPORARY +PROTECTION ACCOUNT) COMPILER::START-COMPILATION (SI::*RESETFORMS*) BLOCKCOMPILE (NLAMA NLAML LAMS LAMA + NOFIXFNSLST NOFIXVARSLST EXPRSLST) DBG::CREATE-DEBUGGER-WINDOW (\TERM.OFD DEFAULTTTYREGION) +GETDEFFROMFILE (NAME LOAD-VERBOSE-STREAM) FILING.CALL (SI::*LOCKED-MONITOR* SI::*RESETFORMS*) \WRITE1 +(FONTCHANGEFLG \THISFILELINELENGTH) \LFOpenFile (SI::*LOCKED-MONITOR* SI::*RESETFORMS*) CL:IN-PACKAGE +(*PACKAGE*) HASHFILESPLST (T) \LFExtendFileIfNecessary (SI::*LOCKED-MONITOR* SI::*RESETFORMS*) +TTYIN.PPTOFILE (FONTCHANGEFLG) MAPRELATION (MAPZ MAPW MAPFN2 MAPFN) TIMEALL (STRF LCFIL) +SPELLFILE.SPELL1 (VERSION) COMPILER::UPDATE-ENVIRONMENT (COMPILER::*NEW-SPECIALS* COMPILER::*NEW-GLOBALS* + COMPILER::*NEW-INLINES* COMPILER::*NEW-NOTINLINES*) \UFS.NEXTFILEFN (FILEGROUP DEFAULTEXT +DESIREDPROPS DEFAULTVERS) SEDIT::SMART-TTYFN (L TTYEDITFN) CHANGECCODE (ALL-CODE-BASES) +PRINTER.BITMAPFILE (T) CL:RENAME-PACKAGE (*PACKAGE-FROM-NAME*) CLOSEBSPSTREAM (SI::*LOCKED-MONITOR* +SI::*RESETFORMS*) \PROG0 (*TAIL* *FIRSTTAIL*) FASL:PROCESS-FILE (FILEPKGFLG DFNFLG LISPXHIST +ADDSPELLFLG) CL:UNINTERN (*PACKAGE* *QUERY-IO*) \VAMFreePageGroup (SI::*LOCKED-MONITOR* SI::*RESETFORMS* +) EXPANDMACRO (NCF PCF VCF EFF EXP COMPILE.CONTEXT) PROGN (*TAIL*) MAPRINT (SI::*RESETFORMS*) +DELETE-PACKAGE (*PACKAGE-FROM-NAME*) SEDIT::VERIFY-STRUCTURE (SI::*LOCKED-MONITOR* SI::*RESETFORMS*) +EXPAND-DEFMACRO (*MACRO-VARS* *MACRO-VALS* *MACRO-FORM* *MACRO-DEFAULT*) PRETTYDEF (PRTTYFILE +REPRINTFNS SOURCEFILE CHANGES *PRINT-ARRAY* XCL:*PRINT-STRUCTURE* *PRINT-LEVEL* *PRINT-LENGTH* +NEWFILEMAP ORIGFLG FILEFLG NLAMALST PRTTYSPELLFLG PRETTYCOMSLST PRTTYCOMS LAM?LST FNSLST OLDFILEMAP +LAMALST MAPADR NLAMLST DESTINATIONENV SOURCEFILENV %#RPARS) PRINT-CIRCLE-LABEL-P ( +*PRINT-CIRCLE-HASHTABLE*) PROMPTCHAR (ID HISTORY PROMPTSTR) PEEKC (\RefillBufferFn) DEBUGGER (WBREAK +AUTOBACKTRACEFLG BRKEXP BRKCOND BRKENV BRKPOS BRKFN \#DISPLAYLINES \CURRENTDISPLAYLINE \INTERRUPTABLE +\INBQUOTE LASTPOS \LINEBUF.OFD \TERM.OFD *STANDARD-INPUT* *STANDARD-OUTPUT* BRKVALUES !VALUE +\PRIMTERMTABLE \PRIMTERMSA) CLISPFOR (LISPXHIST SI::*RESETFORMS*) CL:UNUSE-PACKAGE (*PACKAGE*) +\STRINGWIDTH.GENERIC (TOTALWIDTH WIDTHSBASE CSET FONT SPACEWIDTH) \EVPROG1 (*TAIL*) PEEKCCODE ( +\RefillBufferFn) PFCOPYBYTES (T) EXEC-EVAL (*CURRENT-EVENT* LISPXHIST HELPCLOCK) BCOMPL.BODY (CFILE +SPECVARS LOCALVARS CHANGES OTHERS FIRST BLOCKS BLKFNS DESTINATIONENV DEFS) HPRINT1 (VALS) +PRINT-CIRCLE-ENTER (*PRINT-CIRCLE-HASHTABLE* THERE-ARE-CIRCLES) \LFCloseDevice (SI::*LOCKED-MONITOR* +SI::*RESETFORMS*) CLISP3C (SI::*RESETFORMS*) CLSMARTEN (NOSPELLFLG) \SEQUIN.PROCESS (SEQUIN +SI::*LOCKED-MONITOR* SI::*RESETFORMS*) COMP.EVQ (SI::*RESETFORMS*) COMPILER::PEEPHOLE-OPTIMIZE ( +COMPILER::TAGS-USED) CL:REQUIRE (*MODULES* *DEFAULT-PATHNAME-DEFAULTS* DIRECTORIES +*COMPILED-EXTENSIONS*) \VFMSplit (splitKey splitLevel keyStone page) RATOM (*READTABLE* *PACKAGE* +\RefillBufferFn) \SUBREAD (\RBFLG) COMPILER::PROCESS-DECLARATIONS (COMPILER::*NEW-SPECIALS* +COMPILER::*NEW-GLOBALS* COMPILER::*NEW-INLINES* COMPILER::*NEW-NOTINLINES* SPECVARS LOCALVARS +GLOBALVARS) CL:UNEXPORT (*PACKAGE*) COURIER.BROADCAST.CALL (NEARBYNETS) PRINTCODE (OUTF CODEBASE IVARS + PVARS FVARS I4 I6) PRINTDEF (MAKEMAP SPACEWIDTH %#RPARS RMARGIN FILEFLG FIRSTPOS) ASSURE.PUP.READY ( +SI::*LOCKED-MONITOR* SI::*RESETFORMS*) SI::PRINT-TRACE-EXIT-INFO (BOLDFONT DEFAULTFONT) +\LEAF.CLOSEFILE (SI::*LOCKED-MONITOR* SI::*RESETFORMS*) PF* (SI::*RESETFORMS*) UNDONLSETQ ( +SI::*RESETFORMS*) FLTSTR (TEXP THI TLO) ERRORSET (SI::*NLSETQFLAG*) MSDESCRIBE (FN) CL:FIND-SYMBOL ( +*PACKAGE*) PRINTCOMSTRAN (VARS) STORAGE (HUNKSTATS) TRANSLATE.DATATYPE (TYPENAME UNUSED BIT OFFSET FD) + MSUPDATE (VARS) \TOP-LEVEL-READ (*PACKAGE* \RefillBufferFn *CIRCLE-READ-LIST* EOF-VALUE) CL:DIRECTORY + (GENERATOR) SEQUENTIAL.PRETTYPRINT (TAIL LEFT) CL:LIST-ALL-PACKAGES (*PACKAGE-FROM-NAME*) READC ( +*READTABLE* \RefillBufferFn) BROWSE/LAYOUT/HORIZ/COMPACTLY (RETURNTTC RETURNBTC) \LFGenerateFiles ( +SI::*LOCKED-MONITOR* SI::*RESETFORMS*) MAKEFILE (PRETTYFLG) FLTINTLOG (TEXP THI TLO) \STORAGE.TYPE ( +ALLOCMDS) \UFS.ABORT.DIRECTORY (FILEGROUP) READCCODE (*READTABLE* \RefillBufferFn) CASE.PRETTYPRINT ( +LEFT TAIL FORMFLG) RPT (RPTN) AND (*TAIL*) \LET0 (*TAIL*) \SEQUIN.CLOSE (SI::*LOCKED-MONITOR* +SI::*RESETFORMS*) SI::PRINT-TRACED-CL-ARGLIST (BOLDFONT DEFAULTFONT) \UFS.ABORT.CL-DIRECTORY ( +GENERATOR) PURGEHISTORY (SI::*RESETFORMS*) SETQ (*TAIL*) RPTQ (RPTN) READLINE (LINE LISPXFLG SPACEFLG) + SI::PRINT-TRACE-ENTRY-INFO (BOLDFONT DEFAULTFONT) LAYOUTGRAPH (NODELST MOTHERD PERSONALD FAMILYD +BOX.BOTH.FLG BOX.LEAVES.FLG BORDER.FOR.MARKING LABELSHADE.FOR.MARKING) \LET* (*TAIL*) SKIPSEPRCODES ( +\RefillBufferFn) FAKE-COMPILE-FILE (COMPILE.FILE.AFTER COMPILE.FILE.VALUE NLAML NLAMA LAMS LAMA DFNFLG + *PACKAGE* *READ-BASE* LOCALVARS SPECVARS LSTFIL) PROG1.PRETTYPRINT (LEFT) COND (*TAIL*) COMPARELST ( +LOOSEMATCH) \LFEventFn (SI::*LOCKED-MONITOR* SI::*RESETFORMS*) \EVPROGN (*TAIL*) TB.EXPANDFN ( +SI::*LOCKED-MONITOR* SI::*RESETFORMS*) FIND-LEXICAL-ENVIRONMENT (LASTPOS) \IFS.LOOKUPFILE ( +SI::*LOCKED-MONITOR* SI::*RESETFORMS*) \DURATIONTRAN (TIMERUNITS USINGTIMER USINGBOX FORDURATION +RESOURCENAME UNTILDATE) PROG1 (*TAIL*) PROGV.PRETTYPRINT (LEFT) COMPILER::ALPHA-COMBINATION (NLAMA +NLAML) \VAMAllocPageGroup (SI::*LOCKED-MONITOR* SI::*RESETFORMS*) \GETFILINGCONNECTION ( +SI::*LOCKED-MONITOR* SI::*RESETFORMS*) TB.FINISH.CLOSE (SI::*LOCKED-MONITOR* SI::*RESETFORMS*) +DO.PRETTYPRINT (LEFT TAIL) INTERN* (*KEYWORD-PACKAGE*) DO-EVENT (RETRYFLAG HELPCLOCK) UNDOLISPX3 ( +SI::*RESETFORMS*) SKREAD (*READTABLE* *READ-SUPPRESS* \RBFLG) \BSP.PREPARE.OUTPUT (SI::*LOCKED-MONITOR* + SI::*RESETFORMS*) CLISPIF (LISPXHIST SI::*RESETFORMS*) EVAL (\INTERNAL) \OPENLEAFCONNECTION ( +SI::*LOCKED-MONITOR* SI::*RESETFORMS*) DASSEM.DSTOREFNDEF (SI::*RESETFORMS*) MSCHECKBLOCK (GLOBALVARS +RETFNS BLKLIBRARY NOLINKFNS LINKFNS DONTCOMPILEFNS) READIMAGEOBJ (UNDERREADIMAGEOBJ) \LFDirectoryNameP + (SI::*LOCKED-MONITOR* SI::*RESETFORMS*) \DOVMEMFULLINTERRUPT (SI::*RESETFORMS*) DODIRCOMMANDS ( +FILENAME FILE NAMEPRINTED I) COMPARENCHARS (*READTABLE* *PRINT-ESCAPE*) COMPARELISTS (DIFFERENCES) +COMPILE! (LCFIL LAPFLG STRF SVFLG LSTFIL SPECVARS LOCALVARS NLAMA NLAML LAMS LAMA NOFIXFNSLST +NOFIXVARSLST) SEDIT::TTYFN (L EDITCHANGES SI::*LOCKED-MONITOR* SI::*RESETFORMS*) SEDIT::RESHAPEFN ( +SI::*LOCKED-MONITOR* SI::*RESETFORMS*) \FTP.NEXTFILE (FTPCONNECTION) CLISPFOR0 (EXP LASTPTR I.S.PTRS) +DELFROMCOMS (COMS) CLOSERTPSOCKET (SI::*LOCKED-MONITOR* SI::*RESETFORMS*) \SPPWATCHER (SPPCON +SI::*LOCKED-MONITOR* SI::*RESETFORMS*) GENERATEFN (COMVAR##) LISPX (HELPFLAG LISPXVALUE LISPXVALUES +SI::*RESETFORMS*) \CHECK.PQUEUE (SI::*RESETFORMS*) FIND-HISTORY-EVENTS (*EVENTS*) MSPRGDWIM ( +NOSPELLFLG SI::*RESETFORMS*) CLISPEXPANSION (NOSPELLFLG VARS LISPXHIST) BSPPUTMARK (SI::*LOCKED-MONITOR* + SI::*RESETFORMS*) MENU.HANDLER (SUBMENU MOVEDLEFT) \DSKEventFn (SI::*LOCKED-MONITOR* SI::*RESETFORMS* +) PACKFILENAME.STRING (HOST DEVICE STRUCTURE DIRECTORY SUBDIRECTORY NAME EXTENSION VERSION TEMPORARY +PROTECTION ACCOUNT) FW-OPENP (!SCRATCHLIST !SCRATCHTAIL) DBG::FIND-DEBUGGER-STACK-FRAME (LASTPOS) +\TRACKWITHBOX (ORGX ORGY BOXWIDTH BOXHEIGHT) \DOBUFFEREDTRANSITIONS (\INTERRUPTABLE PENDINGINTERRUPT) +CREATEDSKDIRECTORY (SI::*LOCKED-MONITOR* SI::*RESETFORMS*) CALLS (SI::*RESETFORMS*) \SOUT ( +*DRIBBLE-OUTPUT* \PRIMTERMSA \TERM.OFD) \DSKCloseDevice (SI::*LOCKED-MONITOR* SI::*RESETFORMS*) +SI::UNWIND (RESETSTATE) \PRINDATUM.TO.STRING (*PRINT-CIRCLE-HASHTABLE* *PRINT-CIRCLE-NUMBER* +THERE-ARE-CIRCLES) RSTRING (*READTABLE* \RefillBufferFn *READ-SUPPRESS*) CHDIR (SI::*LOCKED-MONITOR* +SI::*RESETFORMS*) \RTP.SOCKET.PROCESS (BSPSOCKET) PRETTYCOM (ORIGFLG) XCL:COMPILE-FORM (SPECVARS +LOCALVARS LOCALFREEVARS GLOBALVARS) CL:FIND-ALL-SYMBOLS (*PACKAGE-FROM-NAME*) COPYVM (SI::*RESETFORMS* +) \VFMMerge (mergeKey mergeLevel mergeFlag leftInterval rightInterval) PP* (**COMMENT**FLG +*STANDARD-OUTPUT*) DBG::BACKTRACE-ITEM-SELECTED (BRKENV) \DSKOpenDevice (SI::*LOCKED-MONITOR* +SI::*RESETFORMS*) GRAPHEDITCOMMANDFN (GRAPHWINDOW) CLEARCLISPARRAY (NAME TYPE REASON) +\VFMInsertPageGroup (SI::*LOCKED-MONITOR* SI::*RESETFORMS*) \FLOATINGSCALE (TEXP THI TLO) +\BSP.DEFAULT.ERROR.HANDLER (%#MYHANDLE#) CL:ERROR (PRINTMSG ERRORPOS) \INIT.POWERS.OF.TEN (TEXP THI +TLO) \LFOpenDevice (SI::*LOCKED-MONITOR* SI::*RESETFORMS*) EDITFROMFILE (SI::*RESETFORMS*) RANDSET ( +\OVERFLOW) \MAKE.PROCESS0 (%#FORM# HELPFLAG \CURRENTDISPLAYLINE \#DISPLAYLINES \LINEBUF.OFD +*STANDARD-INPUT* *READTABLE* \PRIMREADTABLE \PRIMTERMTABLE \PRIMTERMSA TtyDisplayStream \TERM.OFD +\TTYWINDOW *STANDARD-OUTPUT* \INTERRUPTABLE READBUF *CURRENT-PROCESS* SI::*RESETFORMS* +*DRIBBLE-OUTPUT* RESETSTATE) DUNPACK (!SCRATCHLIST !SCRATCHTAIL) \MAPCHARS (RDTBL) +SCAVENGEDSKDIRECTORY (SI::*LOCKED-MONITOR* SI::*RESETFORMS*) BSPFORCEOUTPUT (SI::*LOCKED-MONITOR* +SI::*RESETFORMS*) SUB-FORMAT (*FORMAT-INDEX* *FORMAT-LENGTH*) MSNOTICEFILE (SI::*RESETFORMS*) +\UFSEventFn (SI::*LOCKED-MONITOR* SI::*RESETFORMS*) IDATE (*STR* *POS*) \VFMGenerateFileIDs ( +SI::*LOCKED-MONITOR* SI::*RESETFORMS*) BRECOMPILE (*PRINT-ARRAY* *PRINT-LENGTH* *PRINT-LEVEL* NLAMA +NLAML LAMS LAMA DWIMIFYCOMPFLG EXPRSLST NOFIXFNSLST NOFIXVARSLST BUILDMAPFLG SPECVARS LOCALVARS +CHANGES OTHERS FIRST BLKFNS BLOCKS DESTINATIONENV ADRLST FILEMAPLST CFILE FNS FILE LDFLG VARLST +DONELST FNLST) RESETFORM (SI::*RESETFORMS*) \FORMATLINE (LOOKS CHLIST WLIST FONTWIDTHS CHNO ASCENT +DESCENT LOOKNO LINE FONT INVISIBLERUNS DEVICE SCALE NEWASCENT NEWDESCENT TLEN) \LFCloseFile ( +SI::*LOCKED-MONITOR* SI::*RESETFORMS*) DCHCON (!SCRATCHLIST !SCRATCHTAIL) PRIN1 (*PRINT-RADIX* +*PRINT-ESCAPE* *PRINT-LEVEL* *PRINT-LENGTH* *PRINT-CASE* \THISFILELINELENGTH) RESETVARS ( +SI::*RESETFORMS*) \UFSOpenFile (SI::*LOCKED-MONITOR* SI::*RESETFORMS*) COMPILE (NLAMA NLAML LAMS LAMA +NOFIXFNSLST NOFIXVARSLST SPECVARS LOCALVARS) INSPECT (WHERE) LISPXFIND (SI::*RESETFORMS*) +RDTBL\NONOTHERCODES (RESULT) \MAPPNAME.INTERNAL (\THISFILELINELENGTH) SUPERPRINT/WRAPPER (LEFT) +\NEW.READ.SYMBOL (LITATOM-PACKAGE-CONVERSION-ENABLED *READTABLE* FILERDTBL CODERDTBL *PACKAGE* +*LISP-PACKAGE* *INTERLISP-PACKAGE*) \UFSOpenDevice (SI::*LOCKED-MONITOR* SI::*RESETFORMS*) +\UFSSetFileInfo (SI::*LOCKED-MONITOR* SI::*RESETFORMS*) PRINT-CIRCLE-SCAN (*PRINT-ARRAY*) +PRETTYDEFCOMS (FNSLST *PRINT-ARRAY* XCL:*PRINT-STRUCTURE* *PRINT-LEVEL* *PRINT-LENGTH* BUILDMAPFLG +NEWFILEMAP ORIGFLG PRTTYSPELLFLG LAM?LST SOURCEFILE %#RPARS) \CURVE2 (T) ALLCALLS (NOSPELLFLG) +\LFDeleteFile (SI::*LOCKED-MONITOR* SI::*RESETFORMS*) \EVALFORM (*FORM* *ARGVAL* *FN* *TAIL*) +DASSEM.DASSEM (VARCOUNT FRAMES CD CODELOC FRAME) CL:COMPILE-FILE (SPECVARS LOCALVARS LOCALFREEVARS +GLOBALVARS NLAMA NLAML LAMA DONTCOMPILEFNS) \UFSGenerateFiles (SI::*LOCKED-MONITOR* SI::*RESETFORMS*) +PACK (PACK.INDEX \PNAMESTRING) RESETVAR (SI::*RESETFORMS*) COPYALL (NH) \CORE.GETINFOBLOCK (ROOT EXT +VERS) LOADFNS-FINDFILE (DWIMFLG FILEPKGFLG) WINDOW.MOUSE.HANDLER (\MOUSEBUSY) \FTP.CLEANUP (CONNS FAIL +) PRIN3 (*PRINT-RADIX* *PRINT-ESCAPE* *PRINT-LEVEL* *PRINT-LENGTH* \THISFILELINELENGTH) +STACK.FULL.WARNING (FLG) NAMESTRING-CONVERSION-CLAUSE (LITATOM-PACKAGE-CONVERSION-TABLE) +\PFI.DO.HARDCOPY (SI::*LOCKED-MONITOR* SI::*RESETFORMS*) PARSE-DEFMACRO (%%CTX-ARG-NAME %%ENV-ARG-NAME + *KEY-FINDER* *DEFAULT-DEFAULT*) RESOLVE-READER-CONFLICT (*PREFERRED-READING-SYMBOLS*) \UFSGetFileInfo + (SI::*LOCKED-MONITOR* SI::*RESETFORMS*) \BACKTRACE (.I7) \MAIKO.ETHER-INTERRUPT (SI::*LOCKED-MONITOR* + SI::*RESETFORMS*) EQUALHASH (AR1 AR2) BCOMPL2 (GLOBALVARS RETFNS BLKLIBRARY NOLINKFNS LINKFNS +DONTCOMPILEFNS) GETDEF (NOCOPY) \UFSDeleteFile (SI::*LOCKED-MONITOR* SI::*RESETFORMS*) +OPENPOSTSCRIPTSTREAM (SI::*RESETFORMS*) READVARS-FROM-STREAM (BACKREFS BACKREFCNT DATATYPESEEN RPTCNT +RPTVAL) \NEW.MKATOM (*INTERLISP-PACKAGE*) COMP.TRANSFORM (*BYTECOMPILER-IS-EXPANDING* +*BC-MACRO-ENVIRONMENT*) WRITE-STRING* (\THISFILELINELENGTH) \STRINGWIDTH.HCPYDISPLAYAUX (TOTALWIDTH +WIDTHSBASE CSET FONT SPACEWIDTH) OPT.DEADSETQP (ICNT) \LFRenameFile (SI::*LOCKED-MONITOR* +SI::*RESETFORMS*) COMPILE-IN-CORE (LCFIL LAPFLG STRF SVFLG LSTFIL SPECVARS LOCALVARS +DONT-TRANSFER-PUTD SI::*RESETFORMS*) COMP.MACRO (*BYTECOMPILER-IS-EXPANDING*) NIL +LOCALVARS \INTERPRETER (FN ARGLIST T) FNTYP (#:G2 #:G3) SEDIT::STRINGWIDTH ($$TEM1 $$TEM2 $$TEM3 +$$TEM4 $$TEM5) TTYINBUFFERPEEK (CH) \UFS.RECOGNIZE.FILE (#:G101) EDITSHADE ($$OUTPUT) COURIER.OPEN ( +STREAM W) \DSPFONT.HCPYMODE (FONTDESC CHARCODE) FIND.PACKAGE (BASEA0286) \PSWOP.SELECTED ( +\DurationLimit) \FM.STATE-SETUP (SI::$PROG1-FIRST-EXPRESSION$) \COURIER.CHECK.ERRORS (X) +TB.COPYBUTTONEVENTFN (SI::*OR-GENTEMP*) \SPP.PREPARE.INPUT (STREAM NBYTES) PROCESS.EVAL (T) GETHASH ( +BASEA0293 BASEA0294) TEDIT.DISPLAYTEXT ($$TEM1 $$TEM2 $$TEM3 $$TEM4 $$TEM5) HASH.PASSWORD ($$TEM1 +$$TEM2 $$TEM3 $$TEM4 $$TEM5) \DOFORMATTING.HARDCOPY (BASEA0787 BASEA0788 BASEA0789 BASEA0790 BASEA0791 + BASEA0792 ARR N VAL BASEA0793 BASEA0794) \LET*-RECURSION (T) \ATMOUT (STREAM W $$TEM1 $$TEM2 $$TEM3 +$$TEM4 $$TEM5) \PEEKCCODE (CHA0349) \PRINTFRAME (FAST INCALL VALIDNAMETABLE NOPUSH USECNT SLOWP ALINK +FNHEADER NEXTBLOCK NAMETABLE BLINK) \RPLCHARCODE (FATPA0360 BASEA0359 OFFSETA0358) +\TEDIT.PUT.SINGLE.CHARLOOKS (STREAM W) \BACKTRACE (SI::$PROG1-FIRST-EXPRESSION$) SEDIT::COPY-SELECTION + ($$OUTPUT) \GETREADSYNTAX (TABLEA0392) \COURIER.ATTENTIONFN (SI::*OR-GENTEMP*) PREVWORD (X CH) +\FM.MENUHANDLER ($$OUTPUT) \GETTERMSYNTAX (TABLEA0389) SORT1 (T) TTSKREAD (TABLE CHAR CH) +\TEDIT.PUT.CHARLOOKS.LIST (STREAM W) \NSFILING.ADDQUOTES ($$TEM1 $$TEM2 $$TEM3 $$TEM4 $$TEM5) MB.GETFN + (STREAM W) TTYIN.READ (STREAM CHAR CH TABLE) \FM.3STATE-CHANGESTATE (SI::$PROG1-FIRST-EXPRESSION$) +ROT (NA0615) UnixShellQuote (T) \STREAMCHARWIDTH (TABLEA0498) \TEDIT.PUT.CHARLOOKS.LIST2 (STREAM W) +TTYDISPLAYSTREAM (A) PRINTADDRS (SI::*OR-GENTEMP*) PP (T) CHARACTER (BASEA0354) \FM.EDITSTART-SETUP ( +SI::$PROG1-FIRST-EXPRESSION$) STREQUAL (T) TTYINBUFFERBIN (CH) \DISPLAYLINE (BASEA0753 BASEA0754 +BASEA0755 BASEA0756) TTYIN.FINISH (TABLE CHAR CH) \FTP.PRINTPLIST ($$TEM1 $$TEM2 $$TEM3 $$TEM4 $$TEM5) + \PARSEARRAYSPACE1 (BASE N) SEDIT::MENU-PACKAGE-SELECTEDFN ($$OUTPUT) \ITEM.WINDOW.COPY.HANDLER ( +SI::*OR-GENTEMP*) \SETUPTIMERmacrofn (X) \MEDW.BLTCHAR (T SI::*OR-GENTEMP*) DINFO.SPECIAL.UPDATE ( +$$OUTPUT) L-CASE ($$TEM1 $$TEM2 $$TEM3 $$TEM4 $$TEM5) \NSFILING.HANDLE.ERROR (LOCK) \FAX.PARSE.NAME ( +$$TEM1 $$TEM2 $$TEM3 $$TEM4 $$TEM5) \BSP.HANDLE.ERROR (#:G117) \COURIER.CHECK.PROCEDURES (X) +\UFS.REMOVE.HOST.FIELD (#:G111) U-CASEP ($$TEM1 $$TEM2 $$TEM3 $$TEM4 $$TEM5) \VAMUpdateVAM ( +POSITIONA0720) \RESHOWBORDER1 (SI::*OR-GENTEMP*) TTYIN1 (TABLE CHAR CH) \TEDIT.HARDCOPY.FORMATLINE ( +ARR N VAL BASEA0782 BASEA0783 BASEA0784 BASEA0785 FONTDESC CHARCODE BASEA0786) SEDIT::ATOM-CHAR-ESCAPED + (TABLEA0702) \TEDIT.GET.TERMSA.WIDTHS (A J V) U-CASE ($$TEM1 $$TEM2 $$TEM3 $$TEM4 $$TEM5 FATP BASE +OFFSET CODE) BRKDWNCONSES (T PTRA0708 VALA0707 PTRA0710 VALA0709) \SEND.EXPEDITED.XIP (X) +\LFScavFileName ($$TEM1 $$TEM2 $$TEM3 $$TEM4 $$TEM5) \TEDIT.PURGE.SPACES (BASEA0744 BASEA0745) +\FM.DISPLAY-SETUP (SI::$PROG1-FIRST-EXPRESSION$) \BULK.DATA.CLOSE (SI::*OR-GENTEMP*) TEDIT.GETFUNCTION + (TABLEA0736) FIND.NEXT.WORD (X CH) APPENDNUMBER.IP (STREAMA0732 NUMA0731) BITMAPBIT (SI::*OR-GENTEMP* +) TTYIN.BALANCE (TABLE CHAR CH) \FILLBUFFER (STRM CHAR TABLE) \TELERAIDSERVER (KEYNUMBER) +PROCESS.APPLY (T) FAULTAPPLY (ARGLISTA0614 T) KEYDOWNP (BASE OFFST \ByteNo \BitMask POSITIONA0374) +BLTVLINE (A) \LINEWITHBRUSH (T SI::*OR-GENTEMP*) \UFS.DIRECTORY.NAME (#:G102 #:G103) +\INTERPRETER-LAMBDA (T) \LFUnpackName ($$TEM1 $$TEM2 $$TEM3 $$TEM4 $$TEM5) \PUTBASESTRING ($$TEM1 +$$TEM2 $$TEM3 $$TEM4) CHARWIDTH (FONTDESCA0491) \IRM.WILD.REF ($$OUTPUT) \SETTERMSYNTAX (TABLEA0391) +\BBTCURVEPT (BBTA0619 SourceTypeA0618 BBTA0621 SourceTypeA0620) \TEDIT.PUT.SINGLE.PARALOOKS2 (STREAM W +) TEDIT.\INSERT (T) TEDIT.PUT.PCTB2 (ARR NO BASEA0767 $$TEM1 $$TEM2 $$TEM3 $$TEM4 $$TEM5) +\SETREADSYNTAX (TABLEA0393) AT.END.OF.TEXT (CH) SYNTAXP (TABLEA0378 TABLEA0379 TABLEA0381 TABLEA0383 +TABLEA0385 TABLEA0387) UNION (T) \MEDW.MOVEW (SI::*OR-GENTEMP*) INITDATATYPENAMES (X) CCCSCAN (X DEF +LC CODEBASE OFFSET) STRPOS (CABASE CASIZE CAFAT CHAR) FB.REMOVE.FILE (FD1 FD2) LENGTH (N) +\STRINGWIDTH.HDCPYDISPLAY (FONT CHARCODE) COURIER.WRITE (STREAM W FIXP) STRINGWIDTH (FONTDESC CHARCODE +) \SLOWBLTCHAR (SI::*OR-GENTEMP*) \TEDIT.PUT.SINGLE.CHARLOOKS2 (STREAM W) TEDIT.EXTEND.SEL (A) +\DSPPRINTCR/LF (SI::*OR-GENTEMP*) CL:MULTIPLE-VALUE-CALL (T) \SHIFT.DOCUMENT (ARR NO BASEA0775) +\TEDIT.BLTCHAR (T) \IDATESCANTOKEN (UCHAR) PPT (T) SCANFORWARD (CH) EDITDEF (T) CHAT.SCREENPARAMS (A) +\CCODEIVARSCAN (X CODEBASE OFFSET DEF LC) COURIER.EXECUTE.CALL (STREAM FIXP W) BLTSHADE (T) +RAIDCOMMAND (X) \CHARWIDTH.PRESS (FONTDESC CHARCODE) \SHAPEW2 (T) CL:RETURN-FROM (T) BLTHLINE (A) +\MEDW.CLOSEW (SI::*OR-GENTEMP*) \FM.CHANGELABEL (SI::$PROG1-FIRST-EXPRESSION$) SEDIT::TRANSLATE-CHARS +($$TEM1 $$TEM2 $$TEM3 $$TEM4 $$TEM5) \STRINGOUT ($$TEM1 $$TEM2 $$TEM3 $$TEM4 $$TEM5) PARSE-NSADDRESS ( +$$TEM1 $$TEM2 $$TEM3 $$TEM4 $$TEM5) UNPACKFILENAME.STRING (STA0395 ENDA0394 STA0397 ENDA0396 NAM ST +END STA0399 ENDA0398 STA0401 ENDA0400) \ENTITYSTART.PRESS (STRM) \ENTITYEND.PRESS (STREAM W) +\GETUFNENTRY (BASE N) \ALLOCBLOCK (SI::$PROG1-FIRST-EXPRESSION$) POSSIBILITYFN (FN) REVERSE (U) +DINFO.HISTORIC.UPDATE ($$OUTPUT) CHARACTER.READ (TABLEA0348) SHAPEW1 (T) SEDIT::LINEARIZE-CLISP ( +#:G115) \MEDW.OPENW (SI::*OR-GENTEMP*) SETD (BASEA0290 BASE N) TTYIN.SHOW.?ALTERNATIVES (X) +\UFS.HANDLE.RELATIVEDIRECTORY (#:G112) ELTD (BASEA0289 BASE N) FIND.START.OF.WORD (X CH) +\FM.3STATE-SETUPOFFBITMAP (SI::$PROG1-FIRST-EXPRESSION$) CALLSCCODE (X CODEBASE OFFSET) \MAYBEPEEKNS ( +X XA0722 XA0723) FAULTEVAL (T) \CHARWIDTH.IP (FONTDESCA0733) ATOMHASH#PROBES ($$TEM1 $$TEM2 $$TEM3 +$$TEM4) \POSTSCRIPT.OUTCHARFN (T) REHASH (BASE N BASEA0301) SEDIT::INPUT-NORMAL-CHAR ($$OUTPUT) +APPENDINTEGER.IP (STREAMA0730 NUMA0729) SCANBACK (CH) TEDIT.STRINGWIDTH ($$TEM1 $$TEM2 $$TEM3 $$TEM4 +$$TEM5) \HANDLE.RAW.PUP (SOCHI SOCLO) \LINEBUF.EOFP (STRM) \DOFORMATTING (BASEA0746 BASEA0747 +BASEA0748 BASEA0749 BASEA0750 ARR N VAL BASEA0751 BASEA0752) \FM.3STATE-SETUP ( +SI::$PROG1-FIRST-EXPRESSION$) APPLY (T) APPLY* (FN ARGLIST T) DREVERSE (Y Z) TCONC (XX) CL:VALUES (X) +POSTSCRIPT.OUTSTR (T $$TEM1 $$TEM2 $$TEM3 $$TEM4 $$TEM5) \WRITEPRESSBITMAP (STREAM W) INTERSECTION (R +S) \FTP.HANDLE.NO ($$OUTPUT) CL:VALUES-LIST (X) \HCPYMODEBLTCHAR (T SI::*OR-GENTEMP*) \TEXTBIN (T) +ICMLARRAY.MENUW.APPLY ($$OUTPUT) \PARSE.PORTCONSTANT ($$TEM1 $$TEM2 $$TEM3 $$TEM4 $$TEM5) +\MAIKO.CONS.UFN (A LO PAGE D) SEDIT::PRINT-STRING ($$TEM1 $$TEM2 $$TEM3 $$TEM4 $$TEM5) \CURVEEND ( +NEWXA0633 NEWYA0632 A SI::*OR-GENTEMP*) BRKDWNFBOXES (T PTRA0716 VALA0715 PTRA0718 VALA0717) +\SETSPACE.PRESS (STREAM W) LCONC (XX) CL:IF (T) \RTP.HANDLE.PUP (#:G116) DRAWELLIPSE (T) +SEDIT::INSPECT-SELECTION ($$OUTPUT) \INCHAR (CHA0807 EOLCA0806) \INIT-MISCN-TABLE (BASE N) +CL::VALUES-UFN (X) EVALUABLE.CONSTANTP (X) SEDIT::RELINEARIZE (SEDIT::LINE) \MEDW.BITBLT ( +SI::*OR-GENTEMP*) \10MBSENDPACKET (X Y) CL::VALUES-LIST-UFN (X) \MAIKO.10MBSENDPACKET (X Y) CLOSEALL ( +T) COURIER.WRITE.BULKDATA (STREAM W) \TEDIT.UNPARSE.CHARLOOKS.LIST (VAL A) \POSTSCRIPT.ACCENTFN (T +$$TEM1 $$TEM2 $$TEM3 $$TEM4 $$TEM5) TTGIVEHELP1 (X) \FM.SETATTACHPOINT (SI::$PROG1-FIRST-EXPRESSION$) +SEDIT::OUTPUT-STRING (SEDIT::CONTEXT SEDIT::NEW-LPTR) \TEDIT.LOOKS.UPDATE (ARR N VAL BASEA0761 +BASEA0762 BASEA0763 BASEA0764 BASEA0765 BASEA0766) STRPOSL (TABLE CHAR) \EVAL-INVOKE-LAMBDA (T) +READATOM (SI::$PROG1-FIRST-EXPRESSION$) CLRHASH (BASE N BASEA0291) \ACTONDISKPAGES (SI::*OR-GENTEMP*) +EOFCLOSEF (T) CL:EVAL (T) COURIER.WRITE.FAT.STRING (STREAM W) \STKMIN (T) \PROG0 (X) +\SLOWHCPYMODEBLTCHAR (SI::*OR-GENTEMP*) MB.MARGINBAR.SELFN (A) FB.COPY/RENAME.MANY (FD1 FD2) +ICMLARRAY.MENUW.GETLEVEL ($$OUTPUT) \CLIPANDDRAWLINE (SI::*OR-GENTEMP* A) TTECHO.TO.FILE (STREAM CHAR) + \CHARWIDTH.PSC (FONTDESCA0728) IRM.DISPLAY.REF ($$OUTPUT) POSTSCRIPT.PUTBITMAPBYTES (T) STKARGNAME (X +) SETSTKARGNAME (X) ONEDINSPECT.COPYBUTTONFN (SI::*OR-GENTEMP*) \MEDW.GETSCREENREGION (A) CL:THROW (T) + TEDIT.WORDGET (TABLE CHAR) WHENCLOSE (T) \PROTECTED.APPLY (T) \WRITEDISKPAGES (SI::*OR-GENTEMP*) +\PEEKREFILL (C) COPY.WINDOW.TO.BITMAP (SI::*OR-GENTEMP*) \CHARWIDTH.DISPLAY (FONTDESCA0492) +\HASHACCESS (BASEA0299 BASEA0300) \INCCODE.EOLC (CHA0805 EOLCA0804) COURIER.WRITE.SEQUENCE.UNSPECIFIED + (STREAM W FIXP) \PUTBASEBITS (NA0617 POSA0616) MAPHASH (T BASE N BASEA0292) \DSPOPERATION.DISPLAY ( +BBTA0500 SourceTypeA0499) \EVALA (X) SEDIT::OUTPUT-SPACE (SEDIT::CONTEXT SEDIT::NEW-LPTR) +\FM.TOGGLE-CHANGESTATE (SI::$PROG1-FIRST-EXPRESSION$) \POSTSCRIPT.ACCENTPAIR (T $$TEM1 $$TEM2 $$TEM3 +$$TEM4 $$TEM5) \STRINGWIDTH.GENERIC ($$TEM1 $$TEM2 $$TEM3 $$TEM4 $$TEM5 FONTDESC CHARCODE) \SUBREAD ( +TABLE CHAR) \CHECKCONSPAGE (SI::*OR-GENTEMP*) \BLTSHADE.DISPLAY (T SI::*OR-GENTEMP*) TEDIT.PUT.PCTB ( +$$TEM1 $$TEM2 $$TEM3 $$TEM4 $$TEM5) PRINTCODE (SI::$PROG1-FIRST-EXPRESSION$ CODEBASE OFFSET +SI::*OR-GENTEMP* X) \ARBOUT (STREAM W) \HASHRECLAIM (BASE N BASEA0298) RETURN (T) \HANDLE.RAW.10TO3 ( +XA0719) PRINTCODENT (CODEBASE OFFSET X) OPENPUPSOCKET (SOCHI SOCLO) EDITDATE? (T) \DRAWCIRCLE.DISPLAY +(T SI::*OR-GENTEMP* X Y XA0622 XA0623) \CHTOPCNO (T) \PS.BOUTFIXP (T) PUTASSOC (X) +\DRAWELLIPSE.DISPLAY (T SI::*OR-GENTEMP* X Y) PRINTBITMAP (T) EOFP (STRM) \DRAWLINE.DISPLAY (T +SI::*OR-GENTEMP*) TTUNREADBUF (CH) \PRINSTRING ($$TEM1 $$TEM2 $$TEM3 $$TEM4 $$TEM5) \DO.PROGV (T) +\FILLCIRCLE.DISPLAY (SI::*OR-GENTEMP*) LASTN (X Y) FIND.MATCHING.QUOTE (TABLE CHAR CH) FILL.XPER ( +SI::*OR-GENTEMP*) LET (T) RPLCHARCODE (FATPA0357 BASEA0356 OFFSETA0355) \LFGenerateFiles ($$TEM1 +$$TEM2 $$TEM3 $$TEM4 $$TEM5) \CKPOSSOUT ($$TEM1 $$TEM2 $$TEM3 $$TEM4 $$TEM5) \STRINGWIDTH.PRESS ( +$$TEM1 $$TEM2 $$TEM3 $$TEM4 $$TEM5) \BITBLT.BITMAP.SLOW (T) \LET0 (T X) RPT (RPTF RPTV) FRPTQ (T) +COPYATOM (X) LET* (T) ENDREAD? (TABLE CHAR CH) \LITPRIN ($$TEM1 $$TEM2 $$TEM3 $$TEM4 $$TEM5) +\TEDIT.PUT.SINGLE.PARALOOKS (STREAM W) MAKEINITLAST (PTR X SI::*OR-GENTEMP*) \LET* (T X) SKIPSEPRCODES + (TABLE CHAR) \FM.NUMBER-CHANGESTATE (SI::$PROG1-FIRST-EXPRESSION$) \STRING-EQUAL-HASHBITS-UFN ($$TEM1 + $$TEM2 $$TEM3 $$TEM4 $$TEM5) \BITBLT.DISPLAY (T DS SI::*OR-GENTEMP*) \PUNT.BITBLT.BITMAP (T) +COURIER.WRITE.SEQUENCE (STREAM W) \XIPERROR (X) \TELERAIDBREAK (KEYNUMBER) EDITADDNODE ($$OUTPUT) +\DSPFONT.DISPLAY (FONTDESC CHARCODE) INCORNER.REGION (A) %%NUMERIC-STRING-P ($$TEM1 $$TEM2 $$TEM3 +$$TEM4 $$TEM5) \POSTSCRIPT.SPECIALOUTCHARFN (T) SEDIT::SHRINKFN ($$OUTPUT) \HTFIND (GCCNT) +\SETNEWTIME0 (A) MENU (T) \STRINGHASHBITS-UFN ($$TEM1 $$TEM2 $$TEM3 $$TEM4 $$TEM5) DUMPINITPAGES ( +VPAGE) WRITESTRIKEFONTFILE (STREAM W) RESETBUFS (T) \FM.TOGGLE-SETUP (SI::$PROG1-FIRST-EXPRESSION$) +SKREAD (TABLEA0343) DSPSOURCETYPE (BBT SourceType Operation) SELECT1 (T) DASSEM.DSTOREFNDEF (X) +\UFSParse-Directory (#:G109 #:G110) \TEDIT.PUT.CHARLOOKS (STREAM W) \RPLACD.UFN (PAGE A D) +\PUNT.BLTSHADE.BITMAP (T) TTYINSTRING (X CH) \TEDIT.HCPYLOOKS.UPDATE (ARR N VAL BASEA0795 BASEA0796 +BASEA0797 BASEA0798 BASEA0799 BASEA0800 BASEA0801 BASEA0802 BASEA0803) \MAP-CODE-POINTERS (CODEBASE +OFFSET) SELECTC (T) \TRANSLATE.10TO3 (X Y) \TELERAIDCOMMAND (KEYNUMBER) \MAP-CODE-LITERALS (X CODEBASE + OFFSET DEF LC) \LITPRIN.INTERNAL (A $$TEM1 $$TEM2 $$TEM3 $$TEM4 $$TEM5) \FONT.COMPARESYMBOL ($$TEM1 +$$TEM2 $$TEM3 $$TEM4 $$TEM5 $$TEM6 A0493 A0494 A0495 A0496) \CHECKARRAYBLOCK (BASE N) \RESETKEYBOARD ( +KEYNUMBER) SELECT (T) SORT (T) APPENDIDENTIFIER.IP ($$TEM1 $$TEM2 $$TEM3 $$TEM4 $$TEM5) ENVAPPLY (T) +\PARTEND.PRESS (STREAM W) SEDIT::OUTPUT-CR (SEDIT::CONTEXT SEDIT::NEW-LPTR SEDIT::LINE) \CURVE (T A +SI::*OR-GENTEMP* NEWXA0625 NEWYA0624 NEWXA0627 NEWYA0626 NEWXA0629 NEWYA0628 NEWXA0631 NEWYA0630) +\POSTSCRIPT.PRINTSLUG (T) BRKDWNTIME (T PTRA0704 VALA0703 PTRA0706 VALA0705) CL:PARSE-INTEGER (TABLE +CHAR) TEDIT.SUBSTITUTE ($$TEM1 $$TEM2 $$TEM3 $$TEM4 $$TEM5) \FM.NUMBER-SETUP ( +SI::$PROG1-FIRST-EXPRESSION$) \FM.EDIT-SETUP (SI::$PROG1-FIRST-EXPRESSION$) \FM.NWAY-SETUP ( +SI::$PROG1-FIRST-EXPRESSION$) PRIN2-LONG-STRING ($$TEM1 $$TEM2 $$TEM3 $$TEM4 $$TEM5) STRMEMB (C N) +\CONS.UFN (A LO PGA0282 PGA0283) \CHARWIDTH.HDCPYDISPLAY (FONTA0700) \HANDLE.RAW.XIP (SOCNUM) SUBSET ( +T) \PAGEDREADP (TABLE CHAR) SEDIT::HASFAT ($$TEM1 $$TEM2 $$TEM3 $$TEM4 $$TEM5) +%%SYNONYM-STREAM-DEVICE-EOFP (STRM) \UPCASEBASE (FATP BASE OFFSET CODE) TEDIT.GETSYNTAX (TABLE CHAR) +\KEYACTION1 (X) \SYMBOL.ESCAPE.COUNT ($$TEM1 $$TEM2 $$TEM3 $$TEM4 $$TEM5) NCHARS ($$TEM1 $$TEM2 $$TEM3 + $$TEM4 $$TEM5) \NOTE.10TO3 (X Y) \ROUTE.XIP (X) \MERGEFORWARD (BASE N) \HDCPYBLTCHAR (T +SI::*OR-GENTEMP*) \NUMERIC.PNAMEP ($$TEM1 $$TEM2 $$TEM3 $$TEM4 $$TEM5) TTSKIPSEPR (CH) \LINKBLOCK ( +BASE N) \FM.EDIT-DELETE (SI::$PROG1-FIRST-EXPRESSION$) TTCOMPLETEWORD (TABLE CHAR CH X) \RPLCONS (A LO +) \TEDIT.HARDCOPY.DISPLAYLINE (BASEA0776 BASEA0777 BASEA0778 BASEA0779 BASEA0780 ARR NO BASEA0781) +\SOUT ($$TEM1 $$TEM2 $$TEM3 $$TEM4 $$TEM5) LAST (XX) \MERGEBACKWARD (BASE N) BROKENDEF (CODEBASE +OFFSET NEWVALUE) CL:APPLY (FN ARGLIST T) FRESHLINE (SI::*OR-GENTEMP*) \TTW1 (SI::*OR-GENTEMP*) +\DELETEBLOCK? (BASE N) BRACKET.CURRENT.WORD (X CH) GETFILEINFO (LEN) RETAPPLY (T) \RSTRING2 (TABLE +CHAR BASEA0345 OFFSETA0344) \PFReplaceString ($$TEM1 $$TEM2 $$TEM3 $$TEM4 $$TEM5) \FM.EDIT-INSERT ( +SI::$PROG1-FIRST-EXPRESSION$) TEDIT.SCAN.LINE (BASEA0768 BASEA0769 BASEA0770 BASEA0771 BASEA0772 +BASEA0773 BASEA0774) \MAIKO.PUNTBLTCHAR (T SI::*OR-GENTEMP*) ADVISEWDS (T) BITBLT (T DS) PP* (T) +\STKSCAN (CODEBASE OFFSET) SKOR (SI::*OR-GENTEMP* X Y) \SMASHSTRING ($$TEM1 $$TEM2 $$TEM3 $$TEM4) +\FM.EDIT-WORDDELETE (SI::$PROG1-FIRST-EXPRESSION$) DO.EDIT.COMMAND (X CH) TWODINSPECT.COPYBUTTONFN ( +SI::*OR-GENTEMP*) SEDIT::LINEARIZE (SEDIT::CONTEXT SEDIT::NEW-LPTR) ETHERHOSTNAME ($$TEM1 $$TEM2 +$$TEM3 $$TEM4 $$TEM5) \GETREGIONTRACKWITHBOX (T) \VFMSmartBLT (SI::*OR-GENTEMP* XA0721) \BITBLT.BITMAP + (T) \MAKE.PROCESS0 (T) \TEXTTTYBOUT (TABLEA0735) SPP.SENDEOM (SI::*OR-GENTEMP*) FNTH (X0) +\SLOWHDCPYBLTCHAR (SI::*OR-GENTEMP*) READ-AFM-FILE (A) PSCFONT.WRITEFONT (STREAM W) IDATE (UCHAR) +ALPHORDER (CABASE CASIZE CAFAT CHAR) FIND.MATCHING.WORD (X) OPT.INITHASH (T) COMP.COMPILER-LET (T) +\BLTSHADE.BITMAP (T) BRKDWNBOXES (T PTRA0712 VALA0711 PTRA0714 VALA0713) RESETSAVE (T) +\UFSDirectoryNameP (#:G105) \CLIPANDDRAWLINE1 (SI::*OR-GENTEMP*) \FM.EDIT-BACKUP ( +SI::$PROG1-FIRST-EXPRESSION$) MB.PUTFN (STREAM W) \DO.PROGV.SETUP.FRAME.AND.EXECUTE (T) +%%TWO-WAY-STREAM-DEVICE-EOFP (STRM) RESETVARS (T) \UFSOpenFile (#:G100) \FM.MOMENTARY-SETUP ( +SI::$PROG1-FIRST-EXPRESSION$) \TEDIT.PUT.PARALOOKS (STREAM W) \SELECTREALPAGE (SI::*OR-GENTEMP* A) +\UFSGenerateFiles (#:G108) TEDIT.INSERT ($$TEM1 $$TEM2 $$TEM3 $$TEM4 $$TEM5) \FORMATLINE (ARR N VAL +BASEA0737 BASEA0738 BASEA0739 BASEA0740 BASEA0741 BASEA0742 FONTDESC CHARCODE BASEA0743) +\UFSSetFileInfo (#:G107) \FM.STATE-CHANGESTATE (SI::$PROG1-FIRST-EXPRESSION$) \MAIKO.DISPLAYLINE ( +BASEA0757 BASEA0758 BASEA0759 BASEA0760) \LEAF.FIX.BROKEN.SEQUIN (\DurationLimit) SPP.FORCEOUTPUT ( +STREAM NBYTES) \RETURN (T) \CLOSEF.PRESS (STREAM W) \CURVE2 (SI::*OR-GENTEMP* A) \GETCHARCODE (X) +\EVALFORM (FN ARGLIST T) FB.INSERT.FILE (FD1 FD2) \NSFILING.GETFILE (LOCK) \LFMakeDirEntry (STREAM W) +FIND.NON.SPACE (CH) \GC.HANDLEOVERFLOW (X Y) \TEDIT.PUT.PARALOOKS.LIST (STREAM W) \DRAWLINE.UFN (T) +STKAPPLY (T) \PACK.ITEM (BASEA0364 OFFSETA0363) \PRINTBINARYBITMAP (STREAM W) WINDOW.MOUSE.HANDLER ( +SI::*OR-GENTEMP*) \MAIKO.BLTSHADE.BITMAP (T) CHAT.STARTUP ($$OUTPUT) WORD.MATCHES.BUFFER (TABLE CHAR +CH) SEDIT::ATOM-POINT-TYPE ($$TEM1 $$TEM2 $$TEM3 $$TEM4 $$TEM5) \UFSGetFileInfo (#:G106) POWEROFTWOP ( +T X) BKSYSBUF ($$TEM1 $$TEM2 $$TEM3 $$TEM4 $$TEM5) \STRINGWIDTH.HCPYDISPLAYAUX ($$TEM1 $$TEM2 $$TEM3 +$$TEM4 $$TEM5 FONT CHARCODE) \FM.EDIT-PREPARETOEDIT (SI::$PROG1-FIRST-EXPRESSION$) BACKSKREAD (TABLE +CHAR CH) FILL.INITTBLE (SI::*OR-GENTEMP*) \UFSDeleteFile (#:G104) FB.INSERT.SUBDIRECTORIES (FD1 FD2) +\GETBRUSHBBT (BBT SourceType Operation) MSPRGE (Y) \DSPSPACEFACTOR.PSC (T) DREMOVE (Z) +\TEDIT.PUT.PARALOOKS.LIST2 (STREAM W) SEDIT::MENU-PRINTBASE-SELECTEDFN ($$OUTPUT) \IRM.GET.KEYWORDS ( +$$OUTPUT) \FM.EDITSTART-SELECTEDFN (SI::$PROG1-FIRST-EXPRESSION$) \BSP.HANDLE.INTERRUPT (#:G118) +CURRENT.WORD (TABLE CHAR CH) \GCMAPTABLE (XA0287 XA0288) OPENNSOCKET (SOCNUM) \INSERTCH ($$TEM1 $$TEM2 + $$TEM3 $$TEM4 $$TEM5) NIL +APPLY \INTERPRETER (\SETUP-COMPILED-CLOSURE-CALL) \UFS.RECOGNIZE.FILE (SI::MONITOR-UNWIND +\DSKGetFileName-C \UFSGetFileName-C SHOULDNT) \INTERNAL/SETPASSWORD (SI::MONITOR-UNWIND) +\POLYSHADE.DISPLAY (CRIT.LESSP SCAN.LESSP) FB.UPDATEBROWSERITEMS (CAR FB.NAMES.DECREASING.VERSION) +\FM.STATE-SETUP (\FM.STATE-SELECTEDFN FONTCREATE) BACKTRACE (PRINT) VIRGINFN (UNADVISE) \FM.FORMAT ( +FONTCREATE) \CREATE.THROUGH.EXTERNALFORMAT (\THROUGHIN \PEEKBIN \THROUGHBACKCCODE \THROUGHOUTCHARFN) +SEDIT::INITIALIZE (SEDIT::MARKASCHANGEDFN) PARSE-FORMAT-OPERATION (CL:CHAR=) INSPECT/PROPLIST ( +PROPNAMES NONSYSPROPNAMES GETPROP /PUTPROP) TTWAITFORINPUT (DOWINDOWCOM) \ALLOCWIDTHTOGROUPEDWINDOW ( +MAX) \COURIER.ATTENTIONFN (\COURIER.OUTPUT.ABORTED) FB.FASTSEECOMMAND (FB.SEEFULLFN WINDOWPROP +DEL.PROCESS OPENWP DETACHWINDOW CLOSEW) GRAPHERIMAGEFNS (GRAPHOBJ.DISPLAYFN GRAPHOBJ.IMAGEBOXFN +GRAPHOBJ.PUTFN GRAPHOBJ.GETFN GRAPHOBJ.COPYFN GRAPHOBJ.BUTTONEVENTINFN GRAPHOBJ.COPYBUTTONEVENTFN NILL +) SAVEONSYSRECLST (PRIN2) LOADCOMP (PUTPROP) INFILECOMSPROP (INFILECOMS?) \TEDIT.HARDCOPY.FORMATLINE ( +\TEDIT.HCPYLOOKS.UPDATE) COPYFILES (ILEQ NILL TRUE EQUAL ERSETQ INFILEP COPIEDFILENAME = GETFILEINFO +PRINTOUT PRIN1 TERPRI COPYFILE DELFILE DECLARE CL:MEMBER UNPACKFILENAME.STRING printout TAB GDATE +CL:FUNCALL ASKUSER SELECTQ STRPOS UPPERCASEARRAY SUBSTRING ADD1 NCHARS) EDITCALLERS (CLOSEF?) +CHAT.CLOSE (CHAT CHAT.RECONNECT) \TEDIT.COMMAND.RESET.SETUP (WINDOWPROP \TEDIT.COPYINSERTFN) +FB.MAKEHEADINGWINDOW (FB.HEADINGW.REDISPLAYFN FB.HEADINGW.RESHAPEFN TOTOPW.MODERNIZE) RECREDECLARE ( +RECREDECLARE1) \TEDIT.OBJECT.SHOWSEL (DSPXOFFSET DSPYOFFSET DSPCLIPPINGREGION) \LEAF.RECONNECT ( +SI::MONITOR-UNWIND) MODERN-SNAPW (TOTOPW MOVEW) TTYIN.SETUP (TTYIN.CLEANUP) +CL::%%MAKE-SMALL-FIXP-ACCESSOR (\INSTANCE-P CL:ERROR \GETBASESMALL-FIXP \GETBASE > \VAG2) +\UPDATE.PBT.RASTERWIDTHS (FOLDLO LRSH GREATERP \ADDBASE PLUS) MAKEMACFORMAT (\MACINCCODEFN +\MACPEEKCCODEFN \COMMONBACKCHARFN \MACOUTCHARFN) \PROCESS.EVAL1 (\RUN.PROCESS) COMPILE-FILE-EXPRESSION + (CL:CONSP CL:EVAL COMPILE-FILE-EXPRESSION COMPILE-FILE-WALK-FUNCTION PRINT) CL::%%MAKE-FLOAT-ACCESSOR + (\INSTANCE-P CL:ERROR \GETBASEFLOATP) TTYIN.FINISH (TTYIN.FINISH) \IMAGEIOINIT (POSITION SPACES +DIFFERENCE \UNIMPIMAGEOP \NOIMAGE.DSPFONT ZERO LINELENGTH ERROR NCHARS \IOMODEP \BOUT NILL) \PRESSINIT + (\CLOSEF.PRESS \DSPXPOSITION.PRESS \DSPYPOSITION.PRESS \DSPFONT.PRESS \DSPLEFTMARGIN.PRESS +\DSPRIGHTMARGIN.PRESS \DSPLINEFEED.PRESS \DRAWLINE.PRESS \DRAWCURVE.PRESS \DRAWCIRCLE.PRESS +\DRAWELLIPSE.PRESS \UNIMPIMAGEOP \BLTSHADE.PRESS \BITBLT.PRESS CONSTANT FQUOTIENT NEWLINE.PRESS +\DSPBOTTOMMARGIN.PRESS \DSPTOPMARGIN.PRESS NEWPAGE.PRESS \DSPSPACEFACTOR.PRESS \STRINGWIDTH.PRESS +\CHARWIDTH.PRESS \BITMAPSIZE.PRESS \DSPCLIPPINGREGION.PRESS \SCALEDBITBLT.PRESS \DRAWARC.PRESS) +\NSFILING.INIT (\NSFILING.HOSTNAMEP NILL \FILINGSESSION.DEFPRINT \FILINGHANDLE.DEFPRINT) HISTORYFIND ( +LISPXFIND) \SPP.CLEANUP (SI::MONITOR-UNWIND) \NSRANDOM.ENSURE.WATCHER (\NSRANDOM.SESSION.WATCHER) +\DSKDISPLAY.CREATE.WINDOW (\DSKDISPLAY.REPAINTFN WINDOWPROP \DSKDISPLAY.BUTTONEVENTFN DSKDISPLAY) +FB.MAKECOUNTERWINDOW (FB.COUNTERW.REDISPLAYFN NILL TOTOPW.MODERNIZE) FB.UNDELETEALLCOMMAND ( +FB.UNDELETE.FILE) XCL::WALK-ARGLIST (EQ) XCL::WHERE-IS-NOTICE (HASH-FILE:CLOSE-HASH-FILE) +CL:MAKE-BROADCAST-STREAM (%%BROADCAST-STREAM-DEVICE-OUTCHARFN) \TEDIT.COPYTEXTSTREAM.PIECEMAPFN ( +TEDIT.COPY) WTFIX1 (SI::RESETUNWIND) APROPRINT (DSPLEFTMARGIN) MSINTERPRET (MSEDITF TESTRELQ TESTTABLE + FASSOC MSSHOWUSE CONS) CL:MAKE-ECHO-STREAM (%%TWO-WAY-STREAM-DEVICE-OUTCHARFN) NTHCHARCODE (SUB1 +RETFROM NTHCHARCODE) \SPP.ESTABLISH (SI::MONITOR-UNWIND) \LEAF.DEVICEP (\LEAF.CLOSEFILE +\LEAF.DELETEFILE \LEAF.GETFILEINFO \LEAF.OPENFILE \LEAF.READPAGES \LEAF.WRITEPAGES \LEAF.SETFILEINFO +\LEAF.TRUNCATEFILE \LEAF.GETFILENAME \LEAF.REOPENFILE \LEAF.GENERATEFILES \LEAF.EVENTFN +\LEAF.DIRECTORYNAMEP NILL \LEAF.RENAMEFILE \LEAF.FORCEOUTPUT \GENERIC.OPENP \ADD-OPEN-STREAM +\GENERIC-UNREGISTER-STREAM \LEAF.BREAKCONNECTION) PRINTHISTORY1 (PRIN2) CL:MAKE-SYNONYM-STREAM ( +%%SYNONYM-STREAM-DEVICE-OUTCHARFN) DMPHASH (PRINT LIST KWOTE) UPDATECHANGED (UPDATECHANGED1) +MAKE-NETWORK-TRACE-WINDOW (LASTMOUSESTATE ZEROP LOGAND \CHANGE.ETHER.TRACING WINDOWPROP) +CL:MAKE-TWO-WAY-STREAM (%%TWO-WAY-STREAM-DEVICE-OUTCHARFN) \10MB.CREATENDB (\10MBSENDPACKET +\10MBENCAPSULATE \10MB.BROADCASTP \10MB.TURNOFFETHER) FILES?PRINTLST (> + POSITION NCHARS LINELENGTH +LISPXTERPRI LISPXPRIN1 LISPXPRIN2) MAKESCAN (LINE.LESSP) PRINT-LISP-INFORMATION (SI::RESETUNWIND) +\PROCESS.APPLY1 (\RUN.PROCESS) INFILECOMSVAL (INFILECOMS?) APROPOS (DECLARE SUB1 BLOCK STRPOS APPLY* +GETD GETPROPLIST GETTOPVAL GENSYM? CHCON1 CHARCODE \SUBFNDEF CONS FRESHLINE PRINTOUT PRIN2 SPACES +APROPRINT ARGLIST) \ALLOCHEIGHTTOGROUPEDWINDOW (MAX) MSEDITE (EDITF) FW-CREATE-OFD-LIST (FW-SORT-FN) +\TEDIT.TABTYPE.SET (IGREATERP IMAGEOBJPROP) MAKETITLEBARICON (\TITLEICONMINSIZE) \VFMGetPageGroup ( +SI::MONITOR-UNWIND) CHNGNM (SI::RESETUNWIND) BAKTRACE1 (BAKTRACE1) DWIMIFY2A (SUBSTRING RETDWIM2 +CONCAT MKSTRING CONS) RAIDSTACKCMD (PRINCOPY) ASKUSER (CONCAT) CL::STRUCTURE-FUNCTION-P (CL:CONSP +CL::PS-CONSTRUCTORS CL:MEMBER CL:FUNCTION EQ CL::PS-PREDICATE CL::PS-COPIER CL:THROW) +\NSPRINT.INTERNAL (SPP.CLOSE) PROVIDE.PROMPTING.WINDOW (WINDOWPROP PROCESSP PROCESS.APPLY FUNCTION +ERROR!) CL::GET-SHARED-SETF-METHOD (CL:CONSP CL:CONSTANTP GENSYM) CL::%%MAKE-FIXP-ACCESSOR ( +\INSTANCE-P CL:ERROR \GETBASEFIXP) \GETSPP (SI::MONITOR-UNWIND) MODERNWINDOW ( +MODERNWINDOW.BUTTONEVENTFN) \TEDIT.FIXCHANGEDLINE (\TEDIT.FIXCHANGEDLINE) INREADMACROP (ADD1) +SI::ADVICE-PUTDEF (CL:REST) EV (EDITV) \TERMINATESPP (SI::MONITOR-UNWIND) \FM.BUTTONEVENTFN ( +MODERN-ORIG-\FM.BUTTONEVENTFN) CHAT.RECONNECT.OFF (TOTOPW) \VFMDelete (\VFMDelete1 \VFMDelete2) +SEDIT::SETUP-WINDOW-AND-PROCESS (SEDIT::TTYEXITFN) PFI.CONDENSE.INDEX (ALPHORDER) CLDISABLE ( +SI::RESETUNWIND) MSEDITF (EDITF) FASL::ELEMENTS-IDENTICAL-P (EQL) TYPEINMENU (UNREADITEM) +FB.ADD.FILEGROUP (FB.DECREASING.VERSION) FNCHECK (GETD) \LEAF.GETFILE (SI::MONITOR-UNWIND) +D-ASSEM:ASSEMBLE-FUNCTION (CL:MAPHASH CL:FUNCTION DECLARE D-ASSEM::DTAG-PTR) READHASHMACRO (CL:READ +READ) PFI.CHOOSE.BEST (>) DUMPDATABASE (DUMPDATABASE1) \NULLDEVICE (NILL \NULL.OPENFILE \EOF.ACTION +BIN TRUE \NULLFILEGENERATOR ZERO) CHAT.INIT (TEDITCHAT.MENUFN CHAT.RESHAPEWINDOW CHAT.BUTTONFN +CHAT.CLOSEFN CHAT.ICONFN CHAT.ENDOFSTREAMOP) DOICONWINDOWCOM (PPROMPT3 CLRPROMPT) CLISPIF0 (NCONC) +DWIMIFYFNS (DWIMIFYFNS) FB.UNDELETECOMMAND (FB.UNDELETE.FILE) BYTEBLOCKCOMPILE2 (SI::RESETUNWIND) +MAKEIBMFORMAT (\IBMINCCODEFN \IBMPEEKCCODEFN \COMMONBACKCHARFN \IBMOUTCHARFN) FIXSPELL (SI::RESETUNWIND +) \SPP.CREATE.WATCHER (\SPPWATCHER) TB.MAKE.BROWSER (TB.SCROLLFN TB.REPAINTFN TB.BUTTONEVENTFN +TB.COPYBUTTONEVENTFN) PUTSEQUIN (SI::MONITOR-UNWIND) \SPP.HANDLE.DATA (\SPP.STREAM.LOST) PFI.ENQUEUE ( +SI::MONITOR-UNWIND \PFI.DO.HARDCOPY) RAIDCOMMAND (PRINCOPY) CHAT (UALPHORDER CHAT.RECONNECT) +INSPECT/ARRAY (ELT /SETA) PFI.PRINT.FILECREATED (MAX) CLISPATOM0 (SI::RESETUNWIND) FB.THINCOMMAND ( +FB.IS.NOT.SUBDIRECTORY.ITEM FB.DECREASING.VERSION FB.NAMES.DECREASING.VERSION CAR) +CL::%%MAKE-FLAG-ACCESSOR (\INSTANCE-P CL:ERROR LDB BYTE \GETBASE) ESUBST (ESUBST1) INITATOMS ( +\EVALFORM \GC.HANDLEOVERFLOW \DTEST.UFN \OVERFLOWMAKENUMBER \MAKENUMBER \SETGLOBAL.UFN \SETFVAR.UFN +\GCMAPTABLE \INTERPRETER) \TELERAIDENTRY (\3MBRAWRECEIVE \10MBRAWRECEIVE) FB.ADJUST.DATE.WIDTH (CL:NTH + + STRINGWIDTH > NCHARS SUBSTRING) MAKEISOFORMAT (\8859INCCODEFN \8859PEEKCCODEFN \COMMONBACKCHARFN +\8859OUTCHARFN) \NEWEPHEMERALPAGE (\DONEWEPHEMERALPAGE) MSHASHLIST (MSHASHLIST1) INFILECOM ( +INFILECOMS?) \TEDIT.LOOKS (TEDIT.NEW.FONT) OPENPRSTREAM (\OUTCHARFN.PRESS) USEREXEC (SI::RESETUNWIND) +RECORDECLARATIONS (PRIN2) MSTRYSPELLTYPE (FASSOC MSTRYSPELL) \LFVersions (LESSP) FORMAT-EAT-WHITESPACE + (WHITESPACE-CHAR-P) DOATTACHEDWINDOWCOM (PPROMPT3 CLRPROMPT) MODERN-ADD-EXEC (MODERN-ORIG-ADD-EXEC) +SI::MAKE-AROUND-BODY (CL:SUBST) COPYTEXTSTREAM (\TEDIT.COPYTEXTSTREAM.PIECEMAPFN) DEFPACKAGE ( +CL:MAKE-PACKAGE) CL::%%MAKE-WORD-ACCESSOR (\INSTANCE-P CL:ERROR \GETBASE) COMPILER::TEST-ANNOTATION ( +COMPILER::RELEASE-TREE) EDITP (GETPROPLIST) \TEMPLOCKPAGES (\DOTEMPLOCKPAGES) \LEAF.IDLE ( +\LEAF.MAYBE.FLUSH.CACHE) CL:PROVIDE (CL:STRING=) \SHOWMENULABEL (PRIN4 PRIN3) INFILECOMTAIL ( +SI::RESETUNWIND) RAIDSHOWFRAME (PRINCOPY) SEDIT::SETUP-NEW-CONTEXT (SI::MONITOR-UNWIND) +\LFCreateDevice (\LFCloseFile \LFDeleteFile \LFRenameFile \LFTruncateFile \LFGetFileInfo +\LFGetFileName \LFOpenFile \LFReadPages \LFSetFileInfo \LFWritePages \LFGenerateFiles \LFEventFn +\LFDirectoryNameP NILL \GENERIC.OPENP \ADD-OPEN-STREAM \GENERIC-UNREGISTER-STREAM) +BREAK.NSFILING.CONNECTION (\NSFILING.OPENFILE) \FM.STARTEDIT (\FM.NUMBER-CHANGESTATE) +CL::INSERT-INCLUDED-SLOT (CL::SAME-SLOT) \FM.3STATE-SETUP (\FM.3STATE-DOWNFN \FM.DISPLAYITEM +\FM.3STATE-SELECTEDFN) CL::GET-SIMPLE-SETF-METHOD (CL:CONSP CL:CONSTANTP GENSYM) GET-ONED-DISPLAYW ( +ONEDINSPECT.REPAINTFN CLEARW ONEDINSPECT.SCROLLFN ONEDINSPECT.BUTTONEVENTFN ONEDINSPECT.COPYBUTTONFN +ONEDINSPECT.CLOSEFN ONEDINSPECT.DEFAULT.VALUECOMMANDFN ONEDINSPECT.DEFAULT.TITLECOMMANDFN) +\DFSFreeDiskPages (SI::MONITOR-UNWIND) \NSGATELISTENER (\ROUTINGTABLE.INFOHOOK) \SENDSPP ( +SI::MONITOR-UNWIND) COMPILER::ALPHA-MV-PROG1 (COMPILER::ALPHA-FORM) COMP.MLLIST (COMP.MLLVAR) +NWAYBUTTON.INIT (MB.NB.DISPLAYFN MB.NB.SIZEFN MB.PUTFN MB.GETFN MB.COPYFN MB.NWAYBUTTON.SELFN +MB.NB.WHENOPERATEDFN) REMOVE-COMMENTS (EQ) \FTP.HANDLE.NO (\FTP.FLUSH.TO.MARK \FTP.FLUSH.TO.EOC) +TTYIN.SCRATCHFILE (\TTYIN.RPEOF) DOBACKGROUNDCOM (PPROMPT3 CLRPROMPT) \DISPLAYINIT (\DSPFONT.DISPLAY +\DSPLEFTMARGIN.DISPLAY \DSPRIGHTMARGIN.DISPLAY \DSPLINEFEED.DISPLAY \DSPXPOSITION.DISPLAY +\DSPYPOSITION.DISPLAY NILL \DRAWCURVE.DISPLAY \DRAWLINE.DISPLAY \DRAWELLIPSE.DISPLAY +\DRAWCIRCLE.DISPLAY POLYSHADE.DISPLAY \BITBLT.DISPLAY \SCALEDBITBLT.DISPLAY \BLTSHADE.DISPLAY +\NEWPAGE.DISPLAY \BACKCOLOR.DISPLAY \DSPOPERATION.DISPLAY \STRINGWIDTH.DISPLAY \CHARWIDTH.DISPLAY +\DSPCLIPPINGREGION.DISPLAY \DSPRESET.DISPLAY \DRAWARC.DISPLAY \DRAWPOLYGON.DISPLAY \DRAWPOINT.DISPLAY +\MEDW.BLTCHAR \MEDW.XOFFSET \MEDW.YOFFSET \ILLEGAL.DEVICEOP \GENERATENOFILES \DisplayEventFn +\DSPPRINTCHAR \PAGEDBACKFILEPTR \NONPAGEDBOUTS) CHAT.RESHAPEWINDOW (CHAT.DID.RESHAPE) +CREATE-SHELL-STREAM (UNIX.SENDSCREENPARAMS UNIX.SETDISPLAYTYPE) PACKFILENAME (PACKFILENAME) +\LEAF.TIMEDOUT.EXCESSIVE (\LEAF.ABORT.FROMMENU WINDOWPROP) DELETEMENU (BACKGROUNDWHENSELECTEDFN) +RESOLVE-USE-PACKAGE-CONFLICT (CL:STRING<) COMPILER::START-COMPILATION (SI::RESETUNWIND) FILING.CALL ( +SI::MONITOR-UNWIND) \FLUSHVM (\DOFLUSHVM) COURIER.EXECUTE.EXPEDITED.CALL (\SPP.RESETCLOSE) HPRINTEND ( +ILESSP ABS) TTYINBUFFERDEVICE (NILL \NULL.OPENFILE TTYINBUFFERBIN TTYINBUFFERPEEK TTYINBUFFERREADP +TTYINBUFFERBACKPTR TTYINBUFFEREOFP \EOF.ACTION \NULLFILEGENERATOR ZERO) CL::%%MAKE-BIT-ACCESSOR ( +\INSTANCE-P CL:ERROR LDB BYTE \GETBASE) SORT.NSADDRESSES.BY.DISTANCE (\NSNET.CLOSERP) INSPECT/LISTP ( +NILL) MULTIFILEINDEX1 (CLOSEF) COMPILER::COMPILE-FILE-DEFINEQ (CL:SECOND CONS) CHAT.BUTTONFN ( +CHAT.EMACS.MOVE) \TEDIT.LOOKS.UPDATE (\BIN) DINFO.UPDATE.MENU.DISPLAY (DINFO.UPDATE.FROM.MENU) +\CREATE.SPP.DEVICE (NILL \BUFFERED.BIN \BUFFERED.BOUT SPP.EOFP SPP.READP \BUFFERED.PEEKBIN +SPP.BACKFILEPTR SPP.FORCEOUTPUT \BUFFERED.BINS \SPP.BOUTS \SPP.GETNEXTBUFFER \SPP.GETFILEPTR +\SPP.SETFILEPTR) NSPRINT (CLOSEF? DECLARE GETFILEPTR RANDACCESSP SETFILEPTR OPENSTREAM FULLNAME CLOSEF + COPYBYTES) \ACTONDISKPAGES (\DOACTONDISKPAGES) \CREATECHARSET (\CREATECHARSET.DISPLAY) FB.SEEFULLFN ( +FB.SEEBUTTONFN) CENTERPRINTINAREA (PRIN4 PRIN3) CLOSEBSPSTREAM (SI::MONITOR-UNWIND) MAKEMAINWINDOW ( +TOPATTACHEDWINDOWS CLOSEATTACHEDWINDOWS OPENATTACHEDWINDOWS SHRINKATTACHEDWINDOWS +EXPANDATTACHEDWINDOWS ATTACHEDWINDOWREGION MINATTACHEDWINDOWEXTENT MAXATTACHEDWINDOWEXTENT +MOVEATTACHEDWINDOWS RESHAPEALLWINDOWS) FASL:PROCESS-FILE (CL:PRINC CL:TERPRI) REOPENTEXTSTREAM ( +\TEXTBIN \TEXTBOUT) \GENERIC.DSPCREATE (\DSPPRINTCHAR) GET-TITLEW (TITLEW.REPAINTFN CLEARW +TITLEW.BUTTONEVENTFN) MAPRINT (SI::RESETUNWIND LISPXPRIN1) FILEBROWSER (FB.MENU.WHENSELECTEDFN +FB.NAMES.DECREASING.VERSION FB.HANDLE.ABORT.BUTTON FB.PRINTFN FB.COPYFN FB.CLOSEFN FB.AFTERCLOSEFN +FB.HARDCOPY.DIRECTORY FB.ICONFN FB.GET.NEWPATTERN) XCL::DEL-WHERE-IS-DATABASE ( +XCL::SAME-WHERE-IS-DATABASE) PRETTYDEF (PRETTYDEF0) \TEDIT.SELECT.CHARACTER (DSPXOFFSET DSPYOFFSET +DSPCLIPPINGREGION) ICMLARRAY.GETMENUWGROUP (NILL) POSTSCRIPTFILEP (STRING-EQUAL) OPENBSPSTREAM ( +\BSP.OTHERBOUT \BSP.HANDLE.INPUT RELEASE.PUP \BSP.DEFAULT.ERROR.HANDLER) \STRINGWIDTH.GENERIC (PLUS +CHARCODE \CHARSET LRSH \FGETWIDTH \GETBASE \CHAR8CODE LOGAND \GETCHARSETINFO \GETBASEPTR UNFOLD LLSH +\CREATECHARSET) \FTPINIT (\FTP.OPENFILE \FTP.REOPENFILE \FTP.CLOSEFILE \FTP.DIRECTORYNAMEP +\FTP.GETFILENAME \FTP.GETFILEINFO \FTP.RENAMEFILE \FTP.DELETEFILE \FTP.GENERATEFILES \FTPEVENTFN +\GENERIC.OPENP \FTP.REGISTER \FTP.UNREGISTER) \VFMSplit (\VFMSplit1) \WRITEDISKPAGES ( +\DOWRITEDISKPAGES) HPRINT1 (CONS) FB.COPYTEXTCOMMAND (COPYFILE) \RECLAIMCODEBLOCK (\DELREF OPCODES) +COERCE (EQ) XCL::ADD-WHERE-IS-DATABASES (XCL::ADD-WHERE-IS-DATABASE) \DOWRITEDISKPAGES (\CHECKFREEPAGE +) \MEDW.DSPCREATE (\DSPPRINTCHAR) \ASSIGNDATATYPE1 (\MAKEMDSENTRY) SEDIT::CLEAR-ALL-LINEAR-FORMS ( +SEDIT::CLEAR-LINEAR-FORM) SI::DESCRIBE-USING-RECORD-DECL (SI::DESCRIBE-NEW-LINE CL:FORMAT +SI::DESCRIBE-INTERNAL RECORDACCESS CL:1+) CL::%%MAKE-ARRAY-ACCESSOR (CL:AREF) PRINTERDEVICE ( +\CORE.OPENFILE STREAMPROP FILENAMEFIELD OPENP IGREATERP GETEOFPTR \CORE.CLOSEFILE SEND.FILE.TO.PRINTER + STRPOS ADD1 SUBATOM SUB1 APPEND FDEVOP SPREADAPPLY*) \SEQUIN.PROCESS (SI::MONITOR-UNWIND +\SEQUIN.CLEANUP INSPECT) \IDLER (NOTIFY.EVENT SETTOPVAL CLOSEW DEL.PROCESS) DINFO.GET.GRAPH.WINDOW ( +WINDOWPROP) RESOLVE-EXPORT-CONFLICT (CL:STRING< CL:PACKAGE-NAME) COMPERROR (COMP.RETFROM.POINT) +\PROCESS.INIT (\PROCESS.EVENTFN) PopUpWindowAndGetAtom (CLOSEW) HARRAYKEYS (CONS) +CL::ESTABLISH-SETFS-AND-OPTIMIZERS (CL::PSLOT-ACCESSOR CL:WHEN REMHASH CL::PSLOT-READ-ONLY +CL::SET-SHARED-SETF-INVERSE CL:MACRO-FUNCTION CL:MEMBER CL:FUNCTION EQ GET LIST REMPROP) PRINTDEF ( +DSPFONT PRIN2S) ICONW (\ICONW.REPAINTFN) FIXSPELL2 (STRINGP LISPXPRIN1 LISPXPRIN2) PFI.HANDLE.EXPR ( +PFI.DEFAULT.HANDLER) UNDONLSETQ (SI::RESETUNWIND) \TEXTINIT (\TEXTDSPXPOSITION \TEXTDSPYPOSITION +\TEXTLEFTMARGIN \TEXTRIGHTMARGIN \TEXTDSPFONT NILL \TEXTDSPLINEFEED \TEXTDSPCHARWIDTH +\TEXTDSPSTRINGWIDTH \TEXTBIN \TEXTBOUT \TEXTCLOSEF \TEXTOPENF \GENERATENOFILES \TEXTBACKFILEPTR +\TEXTSETFILEPTR \TEXTPEEKBIN \TEXTGETEOFPTR \TEXTGETFILEPTR \TEXTEOFP \TEDITOUTCHARFN +STREAM-ERROR-STREAM BOUNDP TEXTSTREAMP REOPENTEXTSTREAM APPLY*) RESOLVE-IMPORT-CONFLICT (CL:STRING<) +CL::RESOLVE-SLOTS (CL::PARSE-SLOT CL::COPY-PARSED-SLOT CL::PSLOT-NAME) SAVESETQ (PROG1) \INITSPP ( +SPP.CLOSE \SPP.EVENTFN \BULK.DATA.CLOSE) POLYSHADE.DISPLAY (KNOTLINE) \FORMATBYTESTREAM (NILL) +SEDIT::BUTTONEVENTFN (SEDIT::MODERN-ORIG-BUTTONEVENTFN) GETDEFERR (GETDEF) RESOLVE-EXPORT-MISSING ( +CL:STRING<) FB.NEWINFOCOMMAND (FB.INFOMENU.WHENSELECTEDFN WINDOWPROP MAINWINDOW) TEDIT.REDO.INSERTION +(TEDIT.COPY) PFI.NEW.LISTFILES1 (MAYBE.PRETTYFILEINDEX) INSPECTCODE (\INSPECT/CODE/REPAINTFN +\INSPECT/CODE/RESHAPEFN SCROLLBYREPAINTFN) CL:LIST-ALL-PACKAGES (CL:PUSHNEW) SPY.MAKE.TREE ( +SPY.COPYBUTTON SPY.GRAPH.EDITOR SPY.UPDATE.TITLE) CL::%%MAKE-POINTER-ACCESSOR (\INSTANCE-P CL:ERROR +\GETBASEPTR) \CH.LOCATE.SERVERS (\SPP.RESETCLOSE) COURIER.BROADCAST.CALL (ILEQ IGEQ FRPLACD CONS LIST) + \NSFILING.DESERIALIZE1 (\BULK.DATA.CLOSE \NSFILING.RELEASE.BULKSTREAM) \STORAGE.TYPE (PLUS) +MAKECREATE1 (COPYALL APPEND) DASSEM.DPRINTLAP (PRIN2) SEDIT::TTYFN (NOTIFY.EVENT SI::MONITOR-UNWIND) +\XCCSOUTCHAR (SELECTC) \STRINGWIDTH.PRESS (\PRESS.CONVERT.NSCHARACTER PLUS CHARCODE \FGETWIDTH +\GETBASE \CHAR8CODE LOGAND) DO-EVENT (EVAL-INPUT) GETDEFCOM0 (GETDEFCOM) FILEWATCH (FW-LOOP) +SI::DESCRIBE-USING-INSPECT-MACRO (SI::DESCRIBE-NEW-LINE CL:PRINC SI::DESCRIBE-INTERNAL CL:FUNCALL CL:1+ +) XCL:LIST-ALL-PROFILES (CL:PUSHNEW CL:FUNCTION EQ XCL:PROFILE-NAME) BREAK.PROCESS (\DOHELPINTERRUPT1) + SEDIT::*FSPEC-TABLE* (CL:EQUAL) MAKEINITLAST (SETPROPLIST COPY SETTOPVAL LOCAL CONS RPLACA) +FAKE-COMPILE-FILE (CLOSEF? COMPILE.FILE.RESET) /SETWORDCONTENTS (/SETWORDCONTENTS) COMP.LOOKUPVAR ( +COMP.VAL) \SEQUIN.CLOSE (SI::MONITOR-UNWIND) \CREATE.XCCS.EXTERNALFORMAT (\XCCSINCCODE \XCCSPEEKCCODE +\XCCSBACKCCODE \XCCSOUTCHAR \XCCSFORMATBYTESTREAM) TOPW.BUTTONEVENTFN (INSPECT.INVERTREGION) +\LEAF.CLOSEFILE (SI::MONITOR-UNWIND) PRINTHISTORY2 (SHOWPRIN2) SEE* (SEE) TB.EXPANDFN ( +SI::MONITOR-UNWIND TB.SHRINKFN) \MAKE.PMAP.DEVICE (\BUFFERED.BIN \BUFFERED.BOUT \BUFFERED.PEEKBIN +\PAGEDREADP \PAGEDBACKFILEPTR \PAGEDSETFILEPTR \PAGEDGETFILEPTR \PAGEDGETEOFPTR \PAGED.SETEOFPTR +\PAGEDEOFP \BUFFERED.BINS \BUFFERED.BOUTS \PAGED.GETNEXTBUFFER NILL \PAGED.FORCEOUTPUT) +DINFO.UPDATE.HISTORY (DINFO.HISTORIC.UPDATE) XCL:RESTORE-PROFILE (SET) HPRINT (CL:CLOSE) +COPY.TEXT.TO.IMAGE (ZERO MAX) DUMPINITPAGES (MAKEROOMFORPME ADDPME DUMPVP) TEDIT.SETSYNTAX (CHARCODE) +NUMBERPAD.READ (\NUMBERPAD.READER.CLOSEFN) RESETBUFS (PROGN) XCL::VARIABLE-LEXICALLY-BOUNDP (EQ) +\MAKE.EXPEDITED.STREAM (\COURIER.EOF \COURIER.EXPEDITED.OVERFLOW) \BSP.PREPARE.OUTPUT ( +SI::MONITOR-UNWIND) \PAGED.FORCEOUTPUT (IGREATERP) \NSRANDOM.WRITE.SEGMENT (IMOD > - \BOUTS) +PFI.PRINT.BITMAP (PFI.OUTCHARFN) DASSEM.DSTOREFNDEF (SI::RESETUNWIND) \GENERATENOFILES ( +\NOFILESNEXTFILEFN \NOFILESINFOFN) CL::%%MAKE-LIST-ACCESSOR (CL:NTH) \DOVMEMFULLINTERRUPT ( +SI::RESETUNWIND) \NULLFILEGENERATOR (NILL) %%MAKE-ARRAY-TYPE-TABLE (CL:MAPCAR CL:FUNCTION LIST +%%TYPE-SIZE-TO-TYPENUMBER) CL:UNWIND-PROTECT (\EVPROGN) INSPECT/HARRAYP (HARRAYKEYS INSPECTW.GETHASH +INSPECTW.PUTHASH) \TEDIT.HCPYLOOKS.UPDATE (\BIN) COMPARENCHARS (PLUS) ALISTS.WHENCHANGED ( +MARKASCHANGED) \IFS.LOOKUPFILE (SI::MONITOR-UNWIND) DSPCREATE (\DSPPRINTCHAR) FB.COPYBINARYCOMMAND ( +COPYFILE) SEDIT::RESHAPEFN (SI::MONITOR-UNWIND) SPY.SUM (IGREATERP) NEWDEFC (NEWDEFC) +TWODINSPECT.BUTTONEVENTFN (CL:FUNCALL WINDOWPROP INSPECT.INVERTREGION) TB.FINISH.CLOSE ( +SI::MONITOR-UNWIND TB.EXPANDFN TB.SHRINKFN) INSPECTW.REDISPLAY (DEFAULT.INSPECTW.PROPCOMMANDFN +DEFAULT.INSPECTW.VALUECOMMANDFN) TEDIT.GETSYNTAX (CHARCODE) SORT (ALPHORDER) GETGRIDBOXREGION (INSIDE? + CREATEPOSITION \RANGELIMIT) \DSKCreateDevice (\DSKEventFn) CL::GET-PS-FROM-ACCESSOR (CL:DOLIST +CL::PS-ALL-SLOTS CL:LOOP CL::PSLOT-ACCESSOR CL:THROW) FB.INSERT.FILE (CL:FUNCALL) PRETTYPRINT (DSPFONT +) \CHECK.PQUEUE (SI::RESETUNWIND) COMPILEDFETCHFIELD (\DTEST) DBG::COLLECT-ACTIVE-ESCAPES ( +CONDITIONS:RESTART-NAME) \FM.NUMBER-SETUP (\FM.NUMBER-MESSAGE \FM.NUMBER-SELECTEDFN) \4DISPLAYINIT ( +\DSPFONT.DISPLAY \DSPLEFTMARGIN.DISPLAY \DSPRIGHTMARGIN.DISPLAY \DSPLINEFEED.DISPLAY +\DSPXPOSITION.DISPLAY \DSPYPOSITION.DISPLAY NILL \DRAWCURVE.DISPLAY \DRAWLINE.DISPLAY +\DRAWELLIPSE.DISPLAY \DRAWCIRCLE.DISPLAY \BITBLT.DISPLAY \BLTSHADE.DISPLAY \NEWPAGE.DISPLAY +\DSPSPACEFACTOR.DISPLAY \DSPCOLOR.DISPLAY \DSPBACKCOLOR.DISPLAY \DSPOPERATION.DISPLAY +\STRINGWIDTH.DISPLAY \CHARWIDTH.DISPLAY \DSPCLIPPINGREGION.DISPLAY \DSPRESET.DISPLAY \DRAWARC.DISPLAY +\DRAWPOLYGON.DISPLAY \DRAWPOINT.DISPLAY \MEDW.BLTCHAR \MEDW.XOFFSET \MEDW.YOFFSET \ILLEGAL.DEVICEOP +\GENERATENOFILES \DSPPRINTCHAR \PAGEDBACKFILEPTR \NONPAGEDBOUTS) EP (EDITPROP) INTCHAR (CHARCODE) +\UFS.CREATE.DEVICE (\UFSCloseFile \UFSDeleteFile \UFSRenameFile \UFSTruncateFile \UFSGetFileInfo +\UFSGetFileName \UFSOpenFile \UFSReadPages \UFSSetFileInfo \UFSWritePages \UFSGenerateFiles +\UFSDirectoryNameP NILL \GENERIC.OPENP \ADD-OPEN-STREAM \GENERIC-UNREGISTER-STREAM) +COMPILEDREPLACEFIELD (\DTEST \RPLPTR PUTBASEPTRX) XCL::VARIABLE-LEXICAL-P (EQ) TB.FLUSH.WINDOW ( +TB.CLOSEFN) CL:MAPHASH (CL:FUNCALL) CL::GET-PS-FROM-PREDICATE (CL::PS-PREDICATE CL:THROW) +MSINTERPRETSET (MSINTERPA) \FM.EDIT-SETUP (\FM.EDIT-MESSAGE \FM.EDIT-ITEM) CHAT.TYPESCRIPT ( +CHAT.TYPESCRIPT1) PPROCWINDOW (PPROCREPAINTFN SCROLLBYREPAINTFN PPROCRESHAPEFN) \DSKEventFn ( +SI::MONITOR-UNWIND \UFS.UNREGISTER.GFS) OPENIPSTREAM (INTERPRESS.OUTCHARFN) PACKFILENAME.STRING ( +PACKFILENAME.STRING) COMPILER::COMPILE-ONE-LAMBDA (COMPILER::RELEASE-TREE) CL::SUBTYPEP-TYPE-EXPAND ( +EQ) CHCON (FRPLACD LIST) XCL::HASH-FILE-WHERE-IS (CL:ASSOC) CL::CACHE-SETF-INFO (CL::PSLOT-ACCESSOR +CL:WHEN REMHASH CL::PSLOT-READ-ONLY CL::SET-SHARED-SETF-INVERSE) \PROCESS.MAKEFRAME ( +\PROCESS.MAKEFRAME0) FASL-FILEDATE (RETFROM FASL:PROCESS-FILE) \MEDW.REDISPLAYW (NILL) RETDWIM1 ( +CONCAT) BSPPUTMARK (SI::MONITOR-UNWIND) UNPACK (FCHARACTER FRPLACD LIST) \DSKCloseDevice ( +SI::MONITOR-UNWIND) TEDIT.MOVE (\TEDIT.MOVE.PIECEMAPFN) \PRINDATUM.TO.STRING (GREATERP PLUS NUMBERP +CL:GETHASH CONCAT \PUTBASEFAT \PUTBASE IPLUS ILEQ \PUTBASETHIN \PUTBASEBYTE \FATTENSTRING) +\VANILLADISKINIT (NILL \VANILLAHOSTNAMEP) MSFAIL (MSTRYPARSE) \LFDeleteFile (SI::MONITOR-UNWIND) +GLOBAL-MACRO-FUNCTION (CLISPEXPANSION \INTERLISP-NLAMBDA-MACRO) EDITFROMFILE (SI::RESETUNWIND) +\RTP.SOCKET.PROCESS (\RTP.CLEANUP \RTP.INFO.HOOK) \UPDATE-SYNONYM-STREAM-LINELENGTH-FIELD (BOUNDP +CL:SYMBOL-VALUE CL:MAPC CL:FUNCTION) CLISPIFYCROPS (CLISPIFY2B) PRETTYCOM (BOUNDP PRIN2) \ENVCALL.UFN +(\SETUP-ENVIRONMENT-CALL) \FM.TOGGLE-SETUP (\FM.TOGGLE-DOWNFN \FM.DISPLAYITEM \FM.TOGGLE-SELECTEDFN) +CHAT.TAKE.INPUT (CHAT.TAKE.INPUT1) XCL:UNBREAK-FUNCTION (CL:CONSP CL:FIRST CL:SECOND) +\VANILLAHOSTNAMEP (\VANILLAEVENTFN) CL::STEP-SLEEP (CL::STEP-COMMAND) \NSGC.COLLECT.DIRECTORIES ( +\NSFILING.CLOSE.BULKSTREAM) COPYHASHFILE (COPYHASHITEM) DCHCON (ADDTOSCRATCHLIST FRPLACA FRPLACD CONS) + \DSKOpenDevice (SI::MONITOR-UNWIND) PUTDEFN (\RESETSTACK) CLEARCLISPARRAY (MEMB PUTHASH GETPROP) +RESOLVE-UNINTERN-CONFLICT (CL:STRING<) SETHASHSTATUS (HASHBEFORECLOSE) \BULK.DATA.CLOSE (FUNCTION +\COURIER.EOF SPP.CLOSE ERROR!) %%MAKE-CML-TYPE-TABLE (ARRAY-TABLE-ENTRY-CML-TYPE LIST) \LFOpenDevice ( +SI::MONITOR-UNWIND) \UFSCreateDevice (\UFSEventFn) ICMLARRAY.DOWINDOWCOMFN (ICMLARRAY.GETREGIONFN) +CL:COMPILE-FILE (STREAMP CL:CLOSE FASL:CLOSE-FASL-HANDLE) DUNPACK (ADDTOSCRATCHLIST FRPLACA FRPLACD +CONS FCHARACTER) \UFSOpenDevice (SI::MONITOR-UNWIND) BSPFORCEOUTPUT (SI::MONITOR-UNWIND) EXPRCHECK ( +GETD) CL::BASE-SUBTYPEP (EQ) \DOHELPINTERRUPT (\DOHELPINTERRUPT1) \FAULTINIT (\KEYHANDLER \DOMISCAPPLY +) \UFSEventFn (SI::MONITOR-UNWIND \UFS.UNREGISTER.GFS) \NSPRINT.FULL.REQUEST.STATUS (\SPP.RESETCLOSE) +COURIER.OPEN (\SPP.CLOSE.IF.ERROR \COURIER.EOF) COMPILER::ALPHA-LABELS (COMPILER::MAKE-VARIABLE +CL:SYMBOL-NAME COMPILER::ENV-BIND-FUNCTION) TWODINSPECT.COPYBUTTONFN (CL:FUNCALL WINDOWPROP +INSPECT.FLIPSELECTION) BRECOMPILE (BRECOMPILE) CL:FIND-ALL-SYMBOLS (CL:MULTIPLE-VALUE-BIND +CL:MULTIPLE-VALUE-LIST CL:MULTIPLE-VALUE-CALL LIST CL:FIND-SYMBOL) LOOKUP-ENVIRONMENT-AND-FILEMAP ( +STRPOS STRING-EQUAL ROOTFILENAME IGREATERP FILENAMEFIELD) CL::ESTABLISH-ACCESSORS (CL::PSLOT-ACCESSOR +CL::PS-EXPORT) WHO-LINE-CURRENT-DIRECTORY (STRING-EQUAL UALPHORDER) EDITADDLINK (ADD/AND/DISPLAY/LINK) + PROCESS.STATUS.WINDOW (\PSW.SELECTED \PSWOP.SELECTED) \UFSOpenFile (SI::MONITOR-UNWIND \EOSERROR +\DEVICEFILE.EOSERROR) SI::DESCRIBE-USING-DESCRIBERS (CL:CONSP CL:STRINGP CL:FIRST CL:FUNCALL) +MBUTTON.INIT (MB.DISPLAY MB.SIZEFN MB.PUTFN MB.GETFN MB.BUTTONEVENTINFN MB.WHENOPERATEDFN) +\D01.FAULTINIT (\M44ACTONVMEMFILE) \UFSGenerateFiles (SI::MONITOR-UNWIND) CL:LOAD (CL:CLOSE) +CHAT.ENDOFSTREAMOP (\EOSERROR) \DOVE.FAULTINIT (\DOVE.ACTONVMEMFILE) \UFSSetFileInfo (SI::MONITOR-UNWIND +) TRYNEXT (TRYNEXT) MASTERSCOPE1 (MASTERSCOPEXEC MASTERSCOPE1) \DL.FAULTINIT (\DL.ACTONVMEMFILE) +\8DISPLAYINIT (\DSPFONT.DISPLAY \DSPLEFTMARGIN.DISPLAY \DSPRIGHTMARGIN.DISPLAY \DSPLINEFEED.DISPLAY +\DSPXPOSITION.DISPLAY \DSPYPOSITION.DISPLAY NILL \DRAWCURVE.BIGBM \FILLCIRCLE.BIGBM \DRAWLINE.DISPLAY +\DRAWELLIPSE.BIGBM \DRAWCIRCLE.BIGBM \BITBLT.DISPLAY \BLTSHADE.DISPLAY \NEWPAGE.DISPLAY +\DSPSPACEFACTOR.DISPLAY \DSPCOLOR.DISPLAY \DSPBACKCOLOR.DISPLAY \DSPOPERATION.DISPLAY +\STRINGWIDTH.DISPLAY \CHARWIDTH.DISPLAY \DSPCLIPPINGREGION.DISPLAY \DSPRESET.DISPLAY \DRAWARC.DISPLAY +\DRAWPOLYGON.DISPLAY \DRAWPOINT.DISPLAY \MEDW.BLTCHAR \MEDW.XOFFSET \MEDW.YOFFSET \ILLEGAL.DEVICEOP +\GENERATENOFILES \DSPPRINTCHAR \PAGEDBACKFILEPTR \NONPAGEDBOUTS) ERROR! (\MAKE.PROCESS0) DASSEM.DASSEM + (IGREATERP DASSEM.ASMAJ) \FM.MOMENTARY-SETUP (\FM.MOMENTARY-SELECTEDFN) OPENPOSTSCRIPTSTREAM (BOUT +SI::RESETUNWIND SELECTC STRING-EQUAL \POSTSCRIPT.OUTCHARFN) \COPYCODEBLOCK (\ADDREF OPCODES) +MASTERSCOPEXEC (MASTERSCOPE1) CH.ADD.GROUP.PROPERTY (COURIER.WRITE.BULKDATA) ADDMENU (MENUBUTTONFN +MENUREPAINTFN BACKGROUNDWHENSELECTEDFN SCROLLBYREPAINTFN) COPYALL (PUTHASH COPYALL) FB.DELVERCOMMAND ( +NULL.VERSIONP FB.DECREASING.VERSION FB.NAMES.DECREASING.VERSION) \PACK.ITEM (IGREATERP LISPERROR +\PNAMESTRINGPUTCHAR \PUTBASECHAR DECLARE \PUTBASEFAT \PUTBASE \PUTBASETHIN \PUTBASEBYTE SUB1 PLUS) +\NSFILING.COPYFILE (\NSFILING.OPENFILE) \FTP.CLEANUP (PROCESS.EVALV) CHAT.STARTUP (UALPHORDER +CHAT.TTYENTRYFN) \3MB.CREATENDB (\3MBSENDPACKET \3MBENCAPSULATE \3MB.BROADCASTP NILL) \UFSGetFileInfo +(SI::MONITOR-UNWIND) \BSPINIT (BSP CLOSEBSPSTREAM NILL \IS.NOT.RANDACCESSP \GENERATENOFILES +\BSPEVENTFN \BUFFERED.BIN \BUFFERED.BOUT BSPREADP BSPEOFP \BUFFERED.PEEKBIN \BSP.GETFILEPTR +\BSP.SETFILEPTR \BSPBACKFILEPTR \BUFFERED.BINS \BSPWRITEBLOCK \BSP.GETNEXTBUFFER BSPFORCEOUTPUT +\ILLEGAL.DEVICEOP) BKSYSBUF (BKSYSCHARCODE) \MAIKO.ETHER-INTERRUPT (SI::MONITOR-UNWIND) EQUALHASH ( +LITATOM EQUALALL GETHASH RETFROM CONS SOME EQUALHASH) \FM.EDIT-PREPARETOEDIT (NILL) +GC-FILING-DIRECTORY (\NSFILING.OPENFILE FILING.CALL \FILING.ATTRIBUTE.TYPE.SEQUENCE SELECTQ SHOULDNT +PRINTOUT PRIN1 SUBSTRING \NSFILING.FULLNAME SPACES ASKUSER TERPRI PLUS DREMOVE) \FILEMAP-HASHOVERFLOW +(FASSOC CONS LIST FRPLACD FILENAMEFIELD) SEDIT:REPLACE-SELECTION (SEDIT::PARSE-NEW) +FB.CANONICAL.DIRECTORY (TTY.PROCESS TTYDISPLAYSTREAM WINDOWPROP) WALK-FORM (DECLARE) +CL::DEFINE-ACCESSORS (CL::PSLOT-ACCESSOR CL::PS-EXPORT) \DUMMYKEYHANDLER (\CAUSEINTERRUPT) +FB.SORTCOMMAND (FB.INCREASING.NUMERIC.ATTR FB.DECREASING.NUMERIC.ATTR FB.NAMES.INCREASING.VERSION +FB.NAMES.DECREASING.VERSION FB.ALPHABETIC.ATTR FB.IS.NOT.SUBDIRECTORY.ITEM CAR) MSCANT (MSTRYPARSE) +TRAPMAKE (PATH.LESSP) \PFTransferPage (\DLDISK.EXECUTE) XCL::%%DEFINE-TYPE-FILE-DEFINITIONS ( +XCL::%%DEFINE-TYPE-GETDEF CL:ERROR) \UFSDeleteFile (SI::MONITOR-UNWIND) \LFRenameFile ( +SI::MONITOR-UNWIND) FLUSHFILEMAPS (STRING-EQUAL REMHASH) PLAYTUNE (BEEPOFF) \MAIKO.FAULTINIT (NILL) +DINFO.SHOWGRAPH (DINFO.UPDATE.FROM.GRAPH) FONTSAVAILABLE (NILL) \CORE.GENERATEFILES (\CORE.NEXTFILEFN +\CORE.FILEINFOFN) TTYINENTRYFN (DOWINDOWCOM) GETSYNTAX (DECLARE CONS) LISPDIRECTORYP (SI::MONITOR-UNWIND +) \MEDW.SHRINKW (CLOSEMAINWINDOW ICONBUTTONEVENTFN CLOSEICONWINDOW \NOTENEWICONPOSITION +DOICONWINDOWCOM) \24DISPLAYINIT (\DSPFONT.DISPLAY \DSPLEFTMARGIN.DISPLAY \DSPRIGHTMARGIN.DISPLAY +\DSPLINEFEED.DISPLAY \DSPXPOSITION.DISPLAY \DSPYPOSITION.DISPLAY NILL \DRAWCURVE.DISPLAY +\DRAWLINE.DISPLAY \DRAWELLIPSE.DISPLAY \DRAWCIRCLE.DISPLAY \BITBLT.DISPLAY \BLTSHADE.DISPLAY +\NEWPAGE.DISPLAY \DSPSPACEFACTOR.DISPLAY \DSPCOLOR.DISPLAY \DSPBACKCOLOR.DISPLAY \DSPOPERATION.DISPLAY + \STRINGWIDTH.DISPLAY \CHARWIDTH.DISPLAY \DSPCLIPPINGREGION.DISPLAY \DSPRESET.DISPLAY \DRAWARC.DISPLAY + \DRAWPOLYGON.DISPLAY \DRAWPOINT.DISPLAY \MEDW.BLTCHAR \MEDW.XOFFSET \MEDW.YOFFSET \ILLEGAL.DEVICEOP +\GENERATENOFILES \DSPPRINTCHAR \PAGEDBACKFILEPTR \NONPAGEDBOUTS) SEDIT::CREATE-ENVIRONMENTS ( +SEDIT::INPUT-NORMAL-CHAR) PAGEFULLFN (INVERTW) GAINSPACE (REMPROPLIST) TEDIT.SETFUNCTION (CHARCODE) +\INSPECTW.COMMAND.HANDLER (DEFAULT.INSPECTW.TITLECOMMANDFN) \UFSCloseDevice (SI::MONITOR-UNWIND) +READVARS-FROM-STREAM (SAVESET) CREATESCREEN (\MEDW.CREATEW \MEDW.OPENW \MEDW.CLOSEW \MEDW.MOVEW +\MEDW.RELMOVEW \MEDW.SHRINKW \MEDW.EXPANDW \MEDW.SHAPEW \MEDW.REDISPLAYW \MEDW.BURYW \MEDW.TOTOPW +\MEDW.DSPCREATE \MEDW.GETWINDOWPROP \MEDW.PUTWINDOWPROP \MEDW.CURSOR \MEDW.BBTTOWIN \MEDW.BBTFROMWIN +\MEDW.BBTWINWIN \MEDW.CARET.SHOW \MEDW.GETSCREENPOSITION \MEDW.GETBOXSCREENPOSITION +\MEDW.GETSCREENREGION) \FM.EDITSTART-SELECTEDFN (NILL \FM.NUMBER-CHANGESTATE) \NSFILING.HOSTNAMEP ( +\NSFILING.OPENFILE NILL \NSFILING.CLOSEFILE \NSFILING.GETFILEINFO \NSFILING.SETFILEINFO +\NSFILING.GETEOFPTR \NSFILING.DELETEFILE \NSFILING.GETFILENAME \NSFILING.DIRECTORYNAMEP +\NSFILING.GENERATEFILES \NSFILING.RENAMEFILE \NSFILING.EVENTFN \GENERIC.OPENP +BREAK.NSFILING.CONNECTION) \NSINIT (\HANDLE.RAW.XIP \HANDLE.RAW.10TO3) SEDIT::OUTLINE-SELECTION ( +SEDIT::DRAW-OUTLINE) THREESTATE.INIT (MB.THREESTATE.DISPLAY MB.SIZEFN MB.PUTFN MB.GETFN MB.COPYFN +MB.BUTTONEVENTINFN MB.THREESTATE.WHENOPERATEDFN) \FM.CREATEITEM (FONTCREATE NILL) COMPILE-IN-CORE ( +SI::RESETUNWIND) SI::CLEAR-CLOSURE-CACHE (\ADDREF OPCODES) SEDIT::CHARCODE (CHARCODE) PRETTYVAR1 ( +PRIN2) PRETTYCOM1 (SI::RESETUNWIND) \NSFILING.ERRORHANDLER (COURIER.EXECUTE.CALL \COURIER.RESULTS +ERROR! \NSFILING.ERRORHANDLER) MAKEDEFLIST (CDDR) XCL::SHOW-CLOSURE-CACHE (CL:FORMAT CL:TERPRI) +CL::%%DO-TRANSLATE (CL:CONSP LIST) DO?CMD.ERRORHANDLER (DO?CMD) FB.MAKE.BROWSER.BUSY ( +FB.FINISH.COMMAND) \FDEVINSTANCE (FDEVOP SPREADAPPLY*) \UFS.OPENP (STRING-EQUAL STREQUAL) +REMOVEPROMPTWINDOW (\PROMPTWINDOW.OPENFN) BRKDWNCOMPILE2 (SI::RESETUNWIND) DWIMIFY (SI::RESETUNWIND) +\MAPPNAME.INTERNAL (\EOSERROR \STREAM.NOT.OPEN) \FM.EDITSTART-SETUP (\FM.EDITSTART-MESSAGE +\FM.EDITSTART-SELECTEDFN) \LFGetFileInfo (SI::MONITOR-UNWIND) \ROUTINGTABLE.INFOHOOK (PROCESSPROP +WINDOWPROP) TEDIT (SI::MONITOR-UNWIND) \MAKE.COURIER.REP.STREAM (\NONPAGEDBINS \NONPAGEDBOUTS +\COURIER.REP.BIN \COURIER.REP.BOUT \COURIER.EOF) \VAMInit (SI::MONITOR-UNWIND) TEDIT.GETFUNCTION ( +CHARCODE) GATHEREXPORTS (CLOSE-AND-MAYBE-DELETE) /PRINTLEVEL (/PRINTLEVEL) \NSFILING.GENERATEFILES ( +\NSFILING.NEXTFILE \NSFILING.FILEINFOFN \NSFILING.CLOSE.BULKSTREAM) \REMOVE-DECLS (CL:WHEN CL:CONSP +CL:WARN CL:MAPC CL:FUNCTION) EDITBM (EDITBMSCROLLFN EDITBMRESHAPEFN EDITBMREPAINTFN EDITBMBUTTONFN +EDITBMCLOSEFN EDITBM) \NSFILING.COPY/RENAME (FREPLACEFIELD PLUS FFETCHFIELD \BULK.DATA.CLOSE +\NSFILING.RELEASE.BULKSTREAM) UNMAKEHARDCOPYSTREAM (\DSPPRINTCHAR) \LFGetFileName (SI::MONITOR-UNWIND) + RIGHTW.BUTTONEVENTFN (INSPECT.INVERTREGION) COMPILER::RELEASE-PROGN (COMPILER::RELEASE-TREE) +COMP.NUMERIC (FIX) OPENRTPSOCKET (\RTP.HANDLE.INPUT RELEASE.PUP) PRINTROUTINGTABLE (<) BREAK (BREAK0) +SPELLFILE (SPELLFILEDIR RETFROM FIXSPELL) TWODINSPECT.DOWINDOWCOMFN (ICMLARRAY.GETREGIONFN) +CHANGE-TTY-PROCESS-INTERACTIVELY (ALPHORDER) \UFS.DIRECTORY.NAME (SI::MONITOR-UNWIND +\DSKDirectoryNameP-C \UFSDirectoryNameP-C SHOULDNT) SEDIT::BUILD-WINDOW (SEDIT::BUTTONEVENTFN +SEDIT::EXPANDREGIONFN SEDIT::CLOSEFN SEDIT::SHRINKFN SEDIT::EXPANDFN SEDIT::RESHAPEFN SEDIT::REPAINTFN + SCROLLBYREPAINTFN) PREEDITFN (POSTEDITPROPS POSTEDITALISTS) PPSPP (SI::RESETUNWIND) +PACKAGE-HIERARCHY-INIT (CONVERT-LITATOM INTERN-LITATOM) COMPILER::GENCODE-CALL (COMPILER::VARIABLE-LAP-VAR +) NEWFAULT1 (FAULTAPPLY FAULTEVAL) \TEDIT.COPY.PIECEMAPFN (TEDIT.COPY) UNMAKEHARDCOPYMODESTREAM ( +\DSPPRINTCHAR) HASHFILESPLST1 (STRPOS PRODUCE) ICMLARRAY.DISPLAYSLICE (ZEROD.FETCHFN ZEROD.STOREFN +ICMLARRAY.VALUECOMMANDFN ICMLARRAY.TITLECOMMANDFN SLICEREF SLICESET) LEAF.ASSURE.FINISHED ( +SI::MONITOR-UNWIND) CHAT.RECONNECT (TOTOPW) HCOPYALL1 (PUTHASH HCOPYALL1) BAKTRACE (CL:FUNCALL) +EDITFERROR (EDITF) ATTACHWINDOW (ATTACHEDWINDOWTOTOPFN DOATTACHEDWINDOWCOM DETACHWINDOW) +\READDISPLAYFONTFILE (CLOSEF) SI::UNADVISE-FROM-RESTORE-CALLS (CL:CONSP CL:FIRST CL:THIRD) +PROPS.WHENCHANGED (MARKASCHANGED) CLISPATOM1 (CONCAT RETDWIM2 MKSTRING CONS) DBG::PRINT-BACKTRACE ( +CL:FUNCALL) MAKEHASH (MSREHASH) GETPROMPTWINDOW (\PROMPTWINDOW.PAGEFULLFN \PROMPTWINDOW.OPENFN) +\BSP.PREPARE.INPUT (SI::MONITOR-UNWIND) \NSFILING.RENAMEFILE (\NSFILING.OPENFILE) \TEDIT.READTABLE ( +GET.OBJ.FROM.USER) DOMAINWINDOWCOMFN (DOWINDOWCOM) \INITBCPLDISPLAY (\DSCCOUT) EDITGRAPH1 ( +REDISPLAYGRAPH SCROLLBYREPAINTFN) MAKEFILES (SI::RESETUNWIND) \VAMRecomputeFreePageCount ( +SI::MONITOR-UNWIND) PPT (SI::RESETUNWIND) SHOWGRAPH (REDISPLAYGRAPH SCROLLBYREPAINTFN HARDCOPYGRAPH +GRAPHEDITEVENTFN GRAPHERCOPYBUTTONEVENTFN APPLYTOSELECTEDNODE) SHOWDEF (CLOSEF?) DOWINDOWCOM (PPROMPT3 + CLRPROMPT) \VFMInit (SI::MONITOR-UNWIND) COMPILER::TEST-META-EVAL (COMPILER::RELEASE-TREE) +BKSYSBUF.GENERAL (SI::RESETUNWIND) \TEDIT.WINDOW.SETUP (\TEDIT.RESHAPEFN \TEDIT.NEWREGIONFN +\TEDIT.SCROLLFN \TEDIT.REPAINTFN TEDIT.DEFAULT.MENUFN TEDIT.DEACTIVATE.WINDOW \TEDIT.PROCIDLEFN +\TEDIT.SHRINK.ICONCREATE \TEDIT.SHRINKFN \TEDIT.EXPANDFN TEXTOBJ \TEDIT.PROMPT.PAGEFULLFN) SEDIT::SEDITL + (SEDIT::TTYFN) \CREATEDISPLAY (NILL \ILLEGAL.DEVICEOP \GENERATENOFILES \DSPPRINTCHAR +\PAGEDBACKFILEPTR \NONPAGEDBOUTS) \NSFILING.GET.STREAM (SPP.CLOSE DREMOVE RPLACD) \SHAPEW2 ( +RESHAPEBYREPAINTFN) CLEANUP (LISTFILES) D-ASSEM::STORE-DIGEST-INFO (< CDR) \NSFILING.DELETEFILE ( +\NSFILING.CONFLICTP \NSFILING.CHILDLESS-P FILING.CALL DREMOVE \NSFILING.FULLNAME) STOPNS ( +\HANDLE.RAW.XIP \HANDLE.RAW.10TO3) \LEAF.FLUSH.CACHE (SI::MONITOR-UNWIND) CHAT.DEACTIVATE.WINDOW ( +CHAT.RECONNECT) PURGEDSKDIRECTORY (SI::MONITOR-UNWIND) \SPP.HANDLE.INPUT (RELEASE.XIP) COMPILER::TEST-ALPHA + (COMPILER::RELEASE-TREE) MENUWINDOW (MENUWMINSIZEFN MENUWRESHAPEFN) ICMLARRAY.ATTACHDISPLAY ( +ICMLARRAY.DOWINDOWCOMFN) CL::BUILD-CONSTRUCTOR-SLOT-SETFS (CL::PSLOT-ACCESSOR) INSPECT/AS/BLOCKRECORD +(PROMPTPRINT) MAKEHARDCOPYSTREAM (\HDCPYDSPPRINTCHAR) COLLECTKEYS (CONS MKSTRING) EDITH (SI::RESETUNWIND +) DBG::%%RELEASE-STACK-DATUM (RELSTK) WINDOWWORLD (NILL) POLYSHADE.SCAN.IP (KNOTLINE) +\FM.NUMBER-SELECTEDFN (\FM.NUMBER-CHANGESTATE) \SETUPUSERSTACK (\CODEFORTFRAME) BSP.PUTINTERRUPT ( +SI::MONITOR-UNWIND) SEDIT::HIGHLIGHT-SELECTION (SEDIT::DRAW-HIGHLIGHT) +COMPILE-FILE-SETF-SYMBOL-FUNCTION (COMPILE-FILE-WALK-FUNCTION) PROCESSWORLD (\BACKGROUND.PROCESS +\MOUSE.PROCESS \TIMER.PROCESS PROCESSWORLD) \NSPRINT.WATCH.JOB (\NSPRINT.WATCHDOG) APPLYTOSELECTEDNODE + (MODERN-ORIG-APPLYTOSELECTEDNODE) \SETUP.DEFAULT.LINEBUF (\LINEBUF.READP NILL \LINEBUF.PEEKBIN +\CREATE.TTYDISPLAYSTREAM STREAMOP SPREADAPPLY*) FB.CLOSEFN (FB.CLOSE&EXPUNGE) \CREATECOREDEVICE ( +\CORE.CLOSEFILE NILL \CORE.DELETEFILE \CORE.GETFILEINFO \NODIRCORE.OPENFILE \CORE.OPENFILE +\ILLEGAL.DEVICEOP \CORE.SETFILEINFO \CORE.RELEASEPAGES \CORE.GETFILENAME \NULLFILEGENERATOR +\CORE.GENERATEFILES \CORE.DIRECTORYNAMEP \GENERIC.READP \BUFFERED.BIN \BUFFERED.BOUT \BUFFERED.PEEKBIN + \CORE.BACKFILEPTR \CORE.SETFILEPTR \PAGEDGETFILEPTR \PAGEDGETEOFPTR \CORE.SETEOFPTR \PAGEDEOFP +\BUFFERED.BINS \BUFFERED.BOUTS \CORE.GETNEXTBUFFER \GENERIC.OPENP \ADD-OPEN-STREAM +\GENERIC-UNREGISTER-STREAM) CHAT.PROMPT.FOR.INPUT (CLEARW NILL CLOSEW) BMOBJ.INIT (BMOBJ.DISPLAYFN +BMOBJ.IMAGEBOXFN BMOBJ.PUTFN BMOBJ.GETFN5 BMOBJ.COPYFN BMOBJ.BUTTONEVENTINFN NILL) SCANDEFINEQ ( +SCANFILE0) EDITPROP (EDITP) D-ASSEM::GENERATE-EASY-ENTRY (CL:FIRST) \TEDIT.APPLY.PARALOOKS (ILEQ) +\TEDIT.MENU.INIT (\TEDITMENU.RECORD.UNFORMATTED \TEDIT.APPLY.PARALOOKS \TEDIT.SHOW.PARALOOKS +\TEDIT.NEUTRALIZE.PARALOOKS.MENU \TEDIT.RECORD.TABLEADERS) MSPATHS (SI::RESETUNWIND MSREHASH) +SI::UNBREAK-FROM-RESTORE-CALLS (CL:CONSP CL:FIRST CL:SECOND) \NSFILING.COURIER.OPEN ( +\NSFILING.WHENCLOSED \NSFILING.ERRORHANDLER) UNMAKEMAINWINDOW (TOPATTACHEDWINDOWS CLOSEATTACHEDWINDOWS + OPENATTACHEDWINDOWS SHRINKATTACHEDWINDOWS EXPANDATTACHEDWINDOWS MOVEATTACHEDWINDOWS) +\NSFILING.SETFILEINFO (DECLARE \NSFILING.CONFLICTP FILING.CALL LIST \NSFILING.UPDATE.ATTRIBUTES) +FTPDEBUG (WINDOWPROP) \INIT.KEYBOARD.STREAM (NILL \KEYBOARDEVENTFN \GETKEY \PEEKSYSBUF \SYSBUFP) +ONEDINSPECTW.CREATE (ONEDINSPECT.RESHAPEFN RIGHTW.RESHAPEFN TITLEW.REPAINTFN) \LFSetFileInfo ( +SI::MONITOR-UNWIND) ED (GET) EDITCOM (BREAK1) FB.DELETECOMMAND (FB.DELETE.FILE) +\COURIER.EXPEDITED.OVERFLOW (\COURIER.EXPEDITED.ARGS) SHAPEW1 (RESHAPEBYREPAINTFN) EDRPT ( +SI::RESETUNWIND) \NSFILING.GETFILEINFO (\NSFILING.GET.ATTRIBUTES) INSPECT/AS/RECORD (PROMPTPRINT) +DBG::MAKE-FRAME-INSPECT-WINDOW (DBG::%%RELEASE-STACK-DATUM WINDOWPROP) XCL::MAKE-PROTOTYPE (EQ) +\CREATELINEBUFFER (CL:FUNCALL) \TEDIT.BUTTONEVENTFN (MODERN-ORIG-\TEDIT.BUTTONEVENTFN) SEDIT::SEDITE ( +CL:FUNCALL CL:FUNCTION SEDIT::PROPS-COMPLETION NOTIFY.EVENT SEDIT::COMPLETION SEDIT::PROPLST-CHANGED +SEDIT::VAR-CHANGED SEDIT::FN-CHANGED) SEDIT::EXTRACT-CURRENT-SELECTION (SEDIT::PARSE-NEW) +POLYSHADE.BLT (KNOTLINE) XCL::PROTOTYPE-DEFN-TYPES (LIST) XCL::ADD-PROTOTYPE-FN (EQ) EDITCOMA (ERROR! +EDITL0) CLISPATOM2C (CONCAT RETDWIM2 SUBSTRING CONS) TB.FIND.ITEM (TB.ITEM.DELETED? TB.ITEM.SELECTED?) + CLISP4 (CLISPIFY) XCL::PROTOTYPE-DEFINERS-FOR-TYPE (CAR EQ) EDITCOML (RESETSAVE) EDITFNS (EDITF +EDITFNS) \POLYSHADE.BLT (MAKESCAN CRIT.LESSP SCAN.LESSP) COMPILER::RELEASE-MV-CALL (COMPILER::RELEASE-TREE +) UNSAVEFNS (SI::RESETUNWIND MSMARKCHANGED) GETCLEARINGHOUSE (SI::MONITOR-UNWIND +\CH.CHECK.CLEARINGHOUSE) PRETTYFILEINDEX (CLOSEF? \CORE.CLOSEFILE \GENERIC-UNREGISTER-STREAM +\CORE.DELETEFILE FULLNAME PFI.AFTER.NEW.PAGE) \TEDIT.INSPECTCODE (PRINTCODE TEXTICON) +SET-READTABLE-INTERACTIVELY (CONS LIST ALPHORDER) \COURIER.HANDLE.BULKDATA (\BULK.DATA.CLOSE) +EVALUABLE.CONSTANTP (EVALUABLE.CONSTANTP) FB.COPY/RENAME.MANY (FB.INCREASING.VERSION +FB.NAMES.INCREASING.VERSION) \VFMDeletePageGroup (SI::MONITOR-UNWIND) \FM.LAYOUTGRID (FONTCREATE) +POSTSCRIPT.PUTCOMMAND (SELECTC) COMP.LABELS (TRANSFORM) *DEFINITION-HASH-TABLE* (EQ) PFI.SORT.INDICES +(< - > LENGTH) \VARNOTUSED (\VARNOTUSED) SCROLLW (SCROLLBYREPAINTFN) MAPRELATION (SOME TESTTABLE +APPLY* MAPC GETRELATION) COMPILER::ALPHA-EVAL-WHEN (EQ) COMPILER::RELEASE-MV-PROG1 (COMPILER::RELEASE-TREE +) SPELLFILE.SPELL1 (SPELLFILE1) \UFS.NEXTFILEFN (\UFS.UNREGISTER.GFS) MSCHECKBOUNDFREE (MSREHASH) +\SETTYPEMASK (\PUTBASE FOLDLO LRSH LOGOR \GETBASE) GET-TWOD-DISPLAYW (TWODINSPECT.REPAINTFN CLEARW +TWODINSPECT.SCROLLFN TWODINSPECT.BUTTONEVENTFN TWODINSPECT.COPYBUTTONFN TWODINSPECT.CLOSEFN +TWODINSPECT.DEFAULT.VALUECOMMANDFN TWODINSPECT.DEFAULT.TITLECOMMANDFN) \UFS.FILEINFOFN (> +\UFS.UNREGISTER.GFS) SEDIT::SET-PROPS (NULL) \VAMFreePageGroup (SI::MONITOR-UNWIND) INSPECT/ALIST ( +ASSOCGET /ASSOCPUT) FB.COMPILECOMMAND (FB.OPERATE.ON.FILES) SEDIT::VERIFY-STRUCTURE (SI::MONITOR-UNWIND +) SCANCOMPILEDFN (SCANFILE0) OPENP (EVQ) \TTY.CREATING.DISPLAYSTREAM (\CREATE.TTY.OUTCHARFN) PEEKC ( +\PEEKREFILL) \LFExtendFileIfNecessary (SI::MONITOR-UNWIND) TWODINSPECTW.CREATE (TWODINSPECT.RESHAPEFN +TOPW.RESHAPEFN RIGHTW.RESHAPEFN TITLEW.REPAINTFN) DEBUGGER (EVAL-INPUT) CLISPFOR (SI::RESETUNWIND) +TEDIT.MINIMAL.WINDOW.SETUP (TEDIT.CURSORMOVEDFN TEDIT.CURSOROUTFN) PEEKCCODE (\PEEKREFILL) PFCOPYBYTES + (DSPFONT) PARSERELATION1 (LDIFFERENCE INTERSECTION UNION) CL::BUILD-CONSTRUCTOR-ARGLIST ( +CL::PSLOT-INITIAL-VALUE CL::PSLOT-NAME CL::PSLOT-ACCESSOR) \INIT.RTPPROCESS (\RTP.SOCKET.PROCESS) +CLIPBOARD-PASTE-STREAM (RETFROM READCCODE) GO (\PROG0) \HDCPYDISPLAYINIT (\DSPFONT.HDCPYDISPLAY +\DSPRIGHTMARGIN.HDCPYDISPLAY \DSPXPOSITION.HDCPYDISPLAY \DSPYPOSITION.HDCPYDISPLAY +\STRINGWIDTH.HDCPYDISPLAY \CHARWIDTH.HDCPYDISPLAY) ARGS.COMMUTABLEP (ARGS.COMMUTABLEP) +\POLYSHADE.YSCAN.IP (MAKESCAN CRIT.LESSP SCAN.LESSP) POSTSCRIPT.PUTBITMAPBYTES (SELECTC) +\LFCloseDevice (SI::MONITOR-UNWIND) CLISP3C (SI::RESETUNWIND) AS.MAKE.CONVERSATION (\SPP.RESETCLOSE) +HPINITRDTBL (HVFWDREAD HVFWDCDREAD HVBAKREAD) CL::STRUCTURE-POINTER-SLOTS (CL::PSLOT-FIELD-DESCRIPTOR) + CHECKCONSPAGES (\CHECKCONSPAGE) RATOM (\RATOM/RSTRING-REFILL) MAKEUSERMACROSCOMS (CAR) +CONVERT.FILE.TO.TYPE.FOR.PRINTER (CLOSEF? DELFILE) GET-TOPW (TOPW.REPAINTFN CLEARW TOPW.BUTTONEVENTFN +SCROLLBYREPAINTFN) \READACFONTFILE (CLOSEF?) SEDIT::COPY-HASH-TABLE (CL:GETHASH) \INFER.FILE.TYPE ( +NILL) ASSURE.PUP.READY (SI::MONITOR-UNWIND \HANDLE.RAW.PUP \HANDLE.RAW.3TO10) +ONEDINSPECT.BUTTONEVENTFN (CL:FUNCALL WINDOWPROP INSPECT.INVERTREGION) SORT.PUPHOSTS.BY.DISTANCE ( +\PUPNET.CLOSERP) PF* (SI::RESETUNWIND PF) COMP.EVQ (SI::RESETUNWIND) ADD-USER-SUBR (CL:SECOND) RETURN +(\PROG0) GET-CORNERW (CLEARW) SPY.BUTTON (LASTMOUSESTATE ZEROP LOGAND SPY.TOGGLE) ONEDINSPECT.SCROLLFN + (SCROLLBYREPAINTFN) CREATESCROLLINGW (SCROLLBYREPAINTFN) COMPILER::EXPAND-OPENLAMBDA-CALL (CL:CONSTANTP + CL:ATOM CL:SYMBOLP CL:CONSP CL:MEMBER) ONEDINSPECT.COPYBUTTONFN (CL:FUNCALL WINDOWPROP +INSPECT.FLIPSELECTION) RESETOPENFILES (MAPC CLOSEF?) BUTTONPANEL (BUTTONPANEL/SELECTION/FN PPROMPT2) +MakeMenuOfPrinters (PRINTERS.WHENSELECTEDFN) \TOP-LEVEL-READ (\READREFILL RETFROM \TOP-LEVEL-READ) +\KEYHANDLER1 (\PERIODIC.INTERRUPTFRAME \DOBUFFEREDTRANSITIONS \INTERRUPTFRAME \TIMER.INTERRUPTFRAME) +MAKEHARDCOPYMODESTREAM (\HCPYMODEDSPPRINTCHAR) \UNWIND.PROCESS (\MAKE.PROCESS0) FASL::SETESCAPE ( +FASL::FASL-EXTENDED) MAKE-FILL-POINTER-OUTPUT-STREAM (\ADJUSTABLE-STRING-STREAM-OUTCHARFN +\STRING-STREAM-OUTCHARFN \OUTCHAR) READC (\READCREFILL) TITLEDICONW (\ICONW.COPYBUTTONEVENTFN) +\LFGenerateFiles (SI::MONITOR-UNWIND \LFReturnNextFile \LFReturnInfo) \FM.LAYOUTCOLUMN (FONTCREATE) +DEL.PROCESS (\UNWIND.PROCESS) \LFOpenFile (SI::MONITOR-UNWIND) READCCODE (\READCREFILL) +\BASEBYTES.IO.INIT (NILL \GENERATENOFILES \BASEBYTES.NAME.FROM.STREAM \BASEBYTES.OPENFN +\ILLEGAL.DEVICEOP \BASEBYTES.BIN \BASEBYTES.BOUT \BASEBYTES.PEEKBIN \BASEBYTES.READP \PAGEDBACKFILEPTR + IDIFFERENCE \BASEBYTES.SETFILEPTR IGEQ \BASEBYTES.BLOCKIO) PROCESS.RETURN (\MAKE.PROCESS0) +COMPILER::ALPHA-COMBINATION (COMPILER::ALPHA-ARGUMENT-FORM COMPILER::ALPHA-LITERAL) FRPTQ (PROGN) +PURGEHISTORY (SI::RESETUNWIND) CLEARSTK (SELECTQ UNINTERRUPTABLY \DECUSECOUNT CONS IPLUS \ADDBASE) +MAKEFILE (LISTFILES) RPTQ (PROGN) MSSPLST (FMEMB CONS) POSTSCRIPT.SHOWACCUM (SELECTC) +WHITESPACE-CHAR-P (EQL) UNDOLISPX3 (SI::RESETUNWIND) TB.COLLECT.ITEMS (TB.ITEM.DELETED? +TB.ITEM.SELECTED?) \UFS.CLEANUP.GFS.TABLE (\UFS.UNREGISTER.GFS) MSCHECKBLOCKS (LOCALVARS SPECVARS +ADDTOVAR) \LFEventFn (SI::MONITOR-UNWIND NILL) GET-RIGHTW (RIGHTW.REPAINTFN CLEARW +RIGHTW.BUTTONEVENTFN) \TEXTMENU.TOGGLE.INIT (\TEXTMENU.TOGGLE.DISPLAY MB.SIZEFN MB.PUTFN MB.GETFN +MB.COPYFN MB.BUTTONEVENTINFN \TEXTMENU.TOGGLE.WHENOPERATEDFN) \TELERAIDBREAK (\DOHELPINTERRUPT1) +\VAMAllocPageGroup (SI::MONITOR-UNWIND) INSPECT/TOP/LEVEL/LIST (NTHTOPLEVELELT SETNTHTOPLEVELELT) +RESTART.PROCESS (RESTART.PROCESS \MAKE.PROCESS0) \GETFILINGCONNECTION (SI::MONITOR-UNWIND) +RECORDECLTAIL (PROGN) MSSHOWUSE (MSMEMBSET TAB PRIN2 PRIN1 CONS MSFIND FASSOC SPACES LVLPRINT OUTPUT +LVLPRIN2 MSEDITE) CLISPIF (SI::RESETUNWIND) \FM.LAYOUTROW (FONTCREATE) \NSFILING.OPEN.HANDLE ( +\NSRANDOM.RELEASE.IF.ERROR) \ETHERINIT (\ETHEREVENTFN) \OPENLEAFCONNECTION (SI::MONITOR-UNWIND +\LEAF.ACKED \LEAF.HANDLE.INPUT \LEAF.FIX.BROKEN.SEQUIN \LEAF.TIMEDOUT \LEAF.TIMEDIN \LEAF.WHENCLOSED +\LEAF.IDLE \LEAF.IDLE? \LEAF.OPENERRORHANDLER \SEQUIN.CLOSE) I.S.OPR (MEMB /PUTHASH) FB.LOADCOMMAND ( +FB.OPERATE.ON.FILES LOAD) SELECT (PROGN) CLISPIFYFNS (CLISPIFYFNS) EDITDELETELINK ( +DELETE/AND/DISPLAY/LINK) SELECTC (PROGN) MULTIFILEINDEX (MULTIFILEINDEX1) \RESETSTACK0 (\FAULTHANDLER +\DOHARDRETURN \DOTELERAID \DUMMYTELERAID \KEYHANDLER \DOGC \DOSTACKOVERFLOW \DOMISCAPPLY) +\MAKEBASEBYTESTREAM (\MBS.OUTCHARFN) SUBRNUMBER (STRING.EQUAL) DISPTREE (INSPECT) CLOSERTPSOCKET ( +SI::MONITOR-UNWIND) CL::%%MAKE-RANDOM-ARRAY (LOGAND LOGXOR + CL:*) \SPPWATCHER (\SPP.CLEANUP +\SPP.INFO.HOOK SI::MONITOR-UNWIND) \NSRANDOM.CREATE.STREAM (\NSRANDOM.RELEASE.IF.ERROR) +INITIALIZE-NEW-SHELL-DEVICE (UNIX-PTY-NEW \BUFFERED.BIN UNIX-STREAM-OUT \BUFFERED.PEEKBIN +UNIX-STREAM-CLOSE NILL UNIX-STREAM-EOFP-NEW UNIX-BACKFILEPTR-NEW UNIX-GET-NEXT-BUFFER \BUFFERED.BINS) +INSPECT/PLIST (LISTGET /LISTPUT) LISPX (SI::RESETUNWIND) OPENSTRINGSTREAM (\STRINGBIN) MSPRGDWIM ( +SI::RESETUNWIND) DMCHAT.HANDLECHARACTER (DMCHAT.HANDLE.WRAP) \NSRANDOM.READ.SEGMENT (>= \BINS - > +\CLEARBYTES PLUS GREATERP RPLACA HELP EOFP COURIER.ABORT.BULKDATA) \LFDirectoryNameP (SI::MONITOR-UNWIND +) SET-PACKAGE-INTERACTIVELY (ALPHORDER) \PUPGATELISTENER (\ROUTINGTABLE.INFOHOOK) +FW-CREATE-OFD-WINDOWS (FW-BUTTONEVENTFN FW-REPAINTFN NILL FW-CLOSEFN FW-AFTERMOVEFN) MSNOTICEFILE ( +SI::RESETUNWIND) TWODINSPECT.SCROLLFN (SCROLLBYREPAINTFN) NCHARS (PLUS) \FM.NWAY-SETUP ( +\FM.NWAY-MESSAGE \FM.NWAY-DOWNFN \FM.NWAY-MOVEDFN \FM.NWAY-SELECTEDFN) \CAUSEINTERRUPT ( +\INTERRUPTFRAME) FB.RENAMECOMMAND (RENAMEFILE) COURIERTRACE (LASTMOUSESTATE ZEROP LOGAND +\CHANGE.ETHER.TRACING WINDOWPROP) CREATEDSKDIRECTORY (SI::MONITOR-UNWIND) CALLS (SI::RESETUNWIND) +CHDIR (SI::MONITOR-UNWIND) ADVISEWDS (PAGEHEIGHT) SI::CREATE-CONDITION-CASE-LITERALS (CL:THROW) +\STRINGSTREAM.INIT (NILL \NULLFILEGENERATOR \ILLEGAL.DEVICEOP GNCCODE \EOF.ACTION CHCON1 EOFP NCHARS) +CL::ARGUMENT-NAMES (CL:CONSP LIST CL:MEMBER) LISPXTYPEAHEAD (LISPXTYPEAHEAD) INTERRUPTED ( +\DOINTERRUPTHERE) \NSPRINT.ENQUIRE (\SPP.RESETCLOSE COURIER.CALL) \POLYSHADE.XSCAN.IP (CRIT.LESSP +SCAN.LESSP) FB.COPYCOMMAND (COPYFILE) MAKE-UNICODE-FORMATS (UTF16BE.INCCODEFN UTF16BE.PEEKCCODEFN +\UTF16.BACKCHARFN UTF16BE.OUTCHARFN UTF8.INCCODEFN UTF8.PEEKCCODEFN \UTF8.BACKCHARFN UTF8.OUTCHARFN) +POSTSCRIPT.INIT (SETFONTDESCRIPTOR CLOSEPOSTSCRIPTSTREAM \DSPXPOSITION.PSC \DSPYPOSITION.PSC +\MOVETO.PSC \DSPFONT.PSC \DSPLEFTMARGIN.PSC \DSPRIGHTMARGIN.PSC \DSPLINEFEED.PSC \DRAWLINE.PSC +\DRAWCURVE.PSC \DRAWCIRCLE.PSC \DRAWELLIPSE.PSC \FILLCIRCLE.PSC \BLTSHADE.PSC \BITBLT.PSC +\SCALEDBITBLT.PSC \NEWPAGE.PSC \DSPSCALE.PSC \DSPSCALE2.PSC \DSPCOLOR.PSC \TERPRI.PSC +\DSPTOPMARGIN.PSC \DSPBOTTOMMARGIN.PSC \DSPSPACEFACTOR.PSC \DSPCLIPPINGREGION.PSC \DSPRESET.PSC +\DRAWPOLYGON.PSC \FILLPOLYGON.PSC \STRINGWIDTH.PSC \CHARWIDTH.PSC \DRAWARC.PSC \DSPROTATE.PSC +\DSPTRANSLATE.PSC \DRAWPOINT.PSC \DSPPUSHSTATE.PSC \DSPPOPSTATE.PSC) COPYVM (SI::RESETUNWIND) +\VFMMerge (\VFMMerge1) ICMLARRAY.TITLECOMMANDFN (MODERN-ORIG-ICMLARRAY.TITLECOMMANDFN) +\VFMInsertPageGroup (SI::MONITOR-UNWIND) \NSFILING.LOGIN (SPP.CLOSE \NSRANDOM.OPENFILE NILL +\NSRANDOM.CLOSEFILE \NSFILING.GETFILEINFO \NSFILING.SETFILEINFO \NSRANDOM.READPAGES +\NSRANDOM.WRITEPAGES \NSRANDOM.TRUNCATEFILE \NSRANDOM.SETEOFPTR) TEDIT.COPY (\TEDIT.COPY.PIECEMAPFN) +\MAKE.PROCESS0 (\PROCESS.MOVEFRAME) \ATBLSET (STRING-EQUAL-HASHBITS STRING-EQUAL) \MAPCHARS ( +SPREADAPPLY*) BREAK1 (RELSTK) RETRYSCAN (LOADFNSCAN) PFI.SETUP.TRANSLATIONS (PFI.OUTCHARFN) +\VFMGenerateFileIDs (SI::MONITOR-UNWIND) \FTP.OPEN.CONNECTION (\FTP.ERRORHANDLER \FTP.WHENCLOSED) +RESETFORM (SI::RESETUNWIND) \INTERPRESSINIT (\CLOSEIPSTREAM \DSPXPOSITION.IP \DSPYPOSITION.IP +\DSPFONT.IP \DSPLEFTMARGIN.IP \DSPRIGHTMARGIN.IP \DSPLINEFEED.IP \DRAWLINE.IP \DRAWCURVE.IP +\DRAWCIRCLE.GENERIC \DRAWELLIPSE.GENERIC CIRCSHADE.IP \BLTSHADE.IP \BITBLT.IP NEWPAGE.IP \MOVETO.IP +CONSTANT FQUOTIENT NEWLINE.IP \DSPBOTTOMMARGIN.IP \DSPTOPMARGIN.IP \DSPSPACEFACTOR.IP \DSPCOLOR.IP +\STRINGWIDTH.IP \CHARWIDTH.IP \SCALEDBITBLT.IP \DSPCLIPPINGREGION.IP POLYSHADE.IP \DRAWARC.IP +\PUSHSTATE.IP \POPSTATE.IP \DSPROTATE.IP \DSPSCALE2.IP \DSPTRANSLATE.IP \DEFAULTSTATE.IP +\DSPOPERATION.IP \BITMAPSIZE.IP \DRAWPOLYGON.IP \DRAWPOINT.IP) COMPILER::TEST-ANALYSIS (COMPILER::RELEASE-TREE +) \LFCloseFile (SI::MONITOR-UNWIND) TEDIT.WINDOW.SETUP (\TEDIT.BUTTONEVENTFN TEDIT.HARDCOPYFN) +HVBAKREAD (HASHARRAY) RESETVARS (SI::RESETUNWIND PROG) \LFSortFiles (SELECTQ UALPHORDER LESSP) +SCAVENGEDSKDIRECTORY (SI::MONITOR-UNWIND) CL::DEFINE-CONSTRUCTORS (CL::BOA-CONSTRUCTOR-P +CL::DEFINE-BOA-CONSTRUCTOR) LISPXFIND (SI::RESETUNWIND) \SETACCESS (\STREAM.NOT.OPEN) \FORMATLINE ( +\TEDIT.LOOKS.UPDATE) \ITEM.WINDOW.BUTTON.HANDLER (MODERN-ORIG-\ITEM.WINDOW.BUTTON.HANDLER) +\FTP.GENERATEFILES (\FTP.NEXTFILE \FTP.FILEINFOFN NILL CLOSEBSPSTREAM) \SPP.CREATE.STREAMS ( +\SPP.OTHER.BOUT) \LEAF.FIX.BROKEN.SEQUIN (EXPANDING-PAGEFULLFN) \PFI.DO.HARDCOPY (SI::MONITOR-UNWIND) +SELECTQ (PROGN) COMPILER::GENCODE-LET (COMPILER::MAKE-LAP-VAR) \HCPYMODEDISPLAYINIT (\DSPFONT.HCPYMODE + \DSPRIGHTMARGIN.HCPYMODE \DSPLEFTMARGIN.HCPYMODE \DSPLINEFEED.HCPYMODE \DRAWLINE.HCPYMODE +\DRAWCURVE.HCPYMODE \DRAWCIRCLE.HCPYMODE \DRAWELLIPSE.HCPYMODE \FILLCIRCLE.HCPYMODE \BLTSHADE.HCPYMODE + \BITBLT.HCPYMODE \DSPXPOSITION.HCPYMODE \DSPYPOSITION.HCPYMODE \MOVETO.HCPYMODE \STRINGWIDTH.HCPYMODE + \CHARWIDTH.HCPYMODE PRESSDISPLAY CONSTANT FQUOTIENT WFROMDS WINDOWPROP APPLY* PAGEFULLFN CLEARW +\DSPSPACEFACTOR.HCPYMODE INTERPRESSDISPLAY) RESETVAR (SI::RESETUNWIND) XCL::WHERE-IS-FILES ( +CL:PROBE-FILE LIST) ENCAPSULATEDIMAGEFNS (ENCAPSULATEDOBJ.DISPLAYFN ENCAPSULATEDOBJ.IMAGEBOXFN +ENCAPSULATEDOBJ.PUTFN NIL ENCAPSULATEDOBJ.BUTTONEVENTINFN NILL) INSPECTW.CREATE ( +\ITEM.WINDOW.BUTTON.HANDLER \ITEM.WINDOW.COPY.HANDLER INSPECTW.REPAINTFN SCROLLBYREPAINTFN) +\MENUSUBITEMS (DEFAULTSUBITEMFN) \STRINGWIDTH.HCPYDISPLAYAUX (PLUS CHARCODE \CHARSET LRSH +\FGETIMAGEWIDTH \GETBASE \CHAR8CODE LOGAND \GETCHARSETINFO \GETBASEPTR UNFOLD LLSH \CREATECHARSET) +CREATE.NUMBERPAD.READER (NUMBERPAD.HELDFN NUMBER.READER.HANDLER) %%INITIALIZE-CLSTREAM-TYPES (NILL +%%BROADCAST-STREAM-DEVICE-CLOSEFILE \GENERATENOFILES %%BROADCAST-STREAM-DEVICE-BOUT TRUE \GENERIC.BINS + %%BROADCAST-STREAM-DEVICE-FORCEOUTPUT %%BROADCAST-STREAM-DEVICE-CHARSETFN +%%CONCATENATED-STREAM-DEVICE-CLOSEFILE %%CONCATENATED-STREAM-DEVICE-BIN +%%CONCATENATED-STREAM-DEVICE-PEEKBIN \GENERIC.READP %%CONCATENATED-STREAM-DEVICE-BACKFILEPTR +%%CONCATENATED-STREAM-DEVICE-EOFP %%CONCATENATED-STREAM-DEVICE-CHARSETFN +%%TWO-WAY-STREAM-DEVICE-CLOSEFILE %%TWO-WAY-STREAM-DEVICE-BIN %%TWO-WAY-STREAM-DEVICE-BOUT +%%TWO-WAY-STREAM-DEVICE-PEEKBIN %%TWO-WAY-STREAM-DEVICE-READP %%TWO-WAY-STREAM-DEVICE-BACKFILEPTR +%%TWO-WAY-STREAM-DEVICE-EOFP \GENERIC.BOUTS %%TWO-WAY-STREAM-DEVICE-FORCEOUTPUT +%%TWO-WAY-STREAM-DEVICE-CHARSETFN %%TWO-WAY-STREAM-DEVICE-INPUTSTREAM +%%TWO-WAY-STREAM-DEVICE-OUTPUTSTREAM %%ECHO-STREAM-DEVICE-BIN %%SYNONYM-STREAM-DEVICE-CLOSEFILE +%%SYNONYM-STREAM-DEVICE-BIN %%SYNONYM-STREAM-DEVICE-BOUT %%SYNONYM-STREAM-DEVICE-PEEKBIN +%%SYNONYM-STREAM-DEVICE-READP %%SYNONYM-STREAM-DEVICE-BACKFILEPTR %%SYNONYM-STREAM-DEVICE-EOFP +%%SYNONYM-STREAM-DEVICE-FORCEOUTPUT %%SYNONYM-STREAM-DEVICE-GETFILEINFO +%%SYNONYM-STREAM-DEVICE-SETFILEINFO %%SYNONYM-STREAM-DEVICE-GET-INDIRECT-STREAM +%%SYNONYM-STREAM-DEVICE-CHARSETFN %%FILL-POINTER-STREAM-DEVICE-CLOSEFILE \ILLEGAL.DEVICEOP +%%FILL-POINTER-STREAM-DEVICE-GETFILEPTR) \LEAF.HANDLE.INPUT (\LEAF.ERROR) TB.BUTTONEVENTFN ( +MODERN-ORIG-TB.BUTTONEVENTFN) COMPILER::RELEASE-CALL (COMPILER::RELEASE-TREE) \DOSTACKFULLINTERRUPT ( +\CLEANUP.STACKFULL) \LEAFINIT (\LEAF.DEVICEP NILL \ILLEGAL.DEVICEOP) MSMARKCHANGE1 (MSMARKCHANGE1) +DMCHAT.STATE (DMCHAT.CLEARMODES) FONTCREATE (NILL) MARGINBAR.INIT (MB.MARGINBAR.DISPLAYFN +MB.MARGINBAR.SIZEFN MB.MARGINBAR.PUTFN MB.MARGINBAR.GETFN MB.COPYFN MB.MARGINBAR.SELFN) NIL +ERROR ONEDINSPECT.SELECTITEM (apply) FONTSAVAILABLE (apply) WINDOWREGION (apply) \APPLYREADMACRO ( +apply) MSMARKCHANGED (apply) DASSEM.DASSEM (apply) \MEDW.SHRINKW (apply) \INTERNAL/SETPASSWORD (apply) + UNDOLISPX2 (apply) INSPECTW.REPAINTFN (apply) \TEDIT.CARETLOOKS.VERIFY (apply) EDITTOGGLELABEL (apply +) SEDIT:REPLACE-SELECTION (apply) \TEDIT.COMMAND.LOOP (apply) \GCRECLAIMCELL (ppe) COROUTINE (stackfn) + \INSPECTW.COMMAND.HANDLER (apply) GETHASH (apply) \BITBLTSUB (ppe) LITATOM (ppe) COMP.EXPR (apply) +\PRINTFRAME (apply) ADDTO (apply) \DEVICE.OUTPUT (ppe) TITLEW.BUTTONEVENTFN (apply) COMP.MACRO (apply) + \PRINTBF (apply) \PROCESS.GO.TO.SLEEP (ppe) \FM.EDIT-ITEM (apply) GRAPHADDNODE (apply) +\FM.MENUHANDLER (apply) TTYINENTRYFN (apply) RECREDECLARE (apply) SORT1 (apply) MINIMUMMAINWINDOWSIZE +(apply) \NSFILING.ERRORHANDLER (stackfn) MERGE (apply) CL::%%DO-TRANSLATE (apply) \MAP-OPEN-STREAMS ( +apply) \TEDIT.HARDCOPY.FORMATLINE (apply) \FM.CREATEITEM (apply) MAKENEWCOM (apply) +PACKAGE-HIERARCHY-INIT (apply) \READREFILL (apply) XCL::WHERE-IS-DEFAULT-DEFINE-TYPES (apply) +\POP.N.UFN (ppe) NCREATE2 (ppe) COMPILE-FILE-EXPRESSION (apply) \BSP.HANDLE.ERROR (apply) +PRINTFILETYPE (apply) TTYIN.FINISH (apply) PRINTHISTORY1 (apply) \PARSEARRAYSPACE1 (apply) PRINTPUP ( +apply) COMP.NUMBERCALL (apply) MSTRYPARSE (apply) \SPP.CLEANUP (apply) \FM.DOSELECTION (apply) +CL::BUILD-COPIER-SLOT-SETFS (apply) CLISPFUNCTION? (apply) \ITEM.WINDOW.SELECTION.HANDLER (apply) +COMPILER::GENCODE-CALL (apply) TEDIT.MAPPIECES (apply) ESUBST1 (apply) +\TEDIT.COPYTEXTSTREAM.PIECEMAPFN (apply) WTFIX1 (apply) FW-SORT-FN (apply) GRAPHOBJ.COPYBUTTONEVENTFN +(apply) \REMOVE-DECLS (apply) \TEDIT.FIXCHANGEDLINE (apply) RECEVAL (apply) COMPILER::ENV-ANALYZE-VAR-REF + (ppe) \TEDIT.RESTARTFN (apply) TEDIT.PUT (apply) \INTERPRETER1 (ppe) \LINEWITHBRUSH (apply) +DINFO.TITLEMENUFN (apply) CLISPCAR/CDR2 (stackfn) CL::STRUCTURE-FUNCTION-P (apply) USERLISPXPRINT ( +apply) \SMASHLINK (ppe) CHANGE.NODEFONT.SIZE (apply) COMP.NUMERIC (apply) MAXIMUMMAINWINDOWSIZE (apply +) \PROCESS.APPLY1 (apply) PRINTROUTINGTABLE (apply) \STACKARGPTR (ppe) FQUOTIENT (ppe) MAP (apply) +COMPILE.FILE.APPLY (apply) PROCESS.APPLY (apply) APROPOS (apply) FDIFFERENCE (ppe) COMP.CLEANFNP ( +apply) TWODINSPECT.COLUMNWIDTH (apply) LOOKUP-SYMBOL (ppe) TB.USERDATA (ppe) PROMPTFORWORD (apply) +\INTERPRETER-LAMBDA (ppe) FGREATERP (ppe) CL:MERGE-PATHNAMES (ppe) TWODINSPECT.REPLACE (apply) +CONSTANTEXPRESSIONP (apply) READPRINTERPORT (ppe) FABS (ppe) ASKUSER (apply) \TEDIT.COPY.PIECEMAPFN ( +apply) \UPDATE.PROCESS.WINDOW (apply) CHAT.RECONNECT (apply) FAULTAPPLY (apply) +CL::GET-SHARED-SETF-METHOD (apply) EF (apply) ANTILOG (ppe) PRINTHISTORY (apply) COMPILER::RELEASE-PROGN + (apply) ATAN (ppe) \BLTCHAR (ppe) MAPDL (apply) \MEDW.MOVEW (apply) EDIT4E (apply) +SI::CLEAR-CLOSURE-CACHE (ppe) \STOPSCROLL? (apply) WRITEPRINTERPORT (ppe) DSPNEWPAGE (apply) +\USEREVENT (apply) TWODINSPECT.SELECTITEM (apply) \SETARG0 (ppe) EDITF2 (apply) \MAPCHARTABLE (apply) +D-ASSEM:ASSEMBLE-FUNCTION (apply) TEDIT.DEFAULT.MENUFN (apply) READHASHMACRO (apply) \DEVICE.INPUT ( +ppe) ONEDINSPECT.VALUEWIDTH (apply) \SPP.GETNEXTBUFFER (stackfn) D-ASSEM:INTERN-DCODE (ppe) +\DSPPRINTCR/LF (apply) MARKASCHANGED (apply) DISPLAYLINK/RL (apply) COMPILER::ALPHA-FUNCTIONAL-FORM ( +ppe) ONEDINSPECT.REPLACE (apply) DOICONWINDOWCOM (apply) DOMAINWINDOWCOMFN (apply) +TWODINSPECT.DOWINDOWCOMFN (apply) INSPECTW.FETCH (apply) \CREATE.SYMBOL (ppe) DOWINDOWCOM (apply) +\GCSCANSTACK (ppe) EDITDEF (apply) FIXSPELL (apply) SEARCHPDL (apply) COMP.SHIFT (apply) DELFROMCOM ( +apply) /MAPCONC (apply) DISPLAYLINK/TB (apply) ONEDINSPECT.REDISPLAY (apply) HPRINT.IMAGEOBJ (apply) +\BRUSHBITMAP (apply) D-ASSEM::STORE-DIGEST-INFO (apply) SHOWBITMAP.IP (ppe) \VFMFind (apply) +D-ASSEM:FIXUP-PTR (ppe) DISPLAYLINK/BT (apply) \SETUP-ENVIRONMENT-CALL (ppe) SCANEXP (apply) +\INSPECT.COMPUTE.TITLE (apply) \COPYDATATYPE (ppe) OPT.SCANOPT (apply) TEDIT.INSERT.OBJECT (apply) +DELFROMFILES (apply) EDITTOGGLEBORDER (apply) COMPILER::ENV-ANALYZE-SETQ (ppe) \TEDIT.APPLY.PARASTYLES + (apply) CL::BUILD-CONSTRUCTOR-SLOT-SETFS (apply) COMP.CLEANFNOP (apply) PUTSEQUIN (apply) +TEDIT.MAPLINES (apply) TEDIT.PUT.OBJECT (apply) \START.PROCESSES (ppe) \ALLOCBLOCK (ppe) POSSIBILITYFN + (apply) COPYHASHITEM (apply) PRINTER.BITMAPSCALE (apply) MSPRGTEMPLATE1 (apply) PROCESSWORLD (stackfn +) INFILECOM (apply) \BSP.PREPARE.INPUT (apply) INSPECTW.PROPERTIES (apply) USERNAME (ppe) HASDEF ( +apply) \POSTSCRIPT.OUTCHARFN (apply) FIXATOM1 (stackfn) \TAN.OLD (ppe) SI::ADVICE-PUTDEF (apply) +MACROEXPANSION (apply) SUPERPRINT (apply) \SPP.HANDLE.INPUT (apply) \ARGPTR (ppe) SETUSERNAME (ppe) +\RPLPTR (ppe) MAPATOMS (apply) EDITRAN (apply) CHAT.OPTIONMENU (apply) DELDEF (apply) \PEEKPUP (ppe) +SI::MAKE-AROUND-BODY (apply) ONEDINSPECT.REPAINTFN (apply) \SLOWRETURN (ppe) STKNTHNAME (ppe) +ONEDINSPECTW.CREATE (apply) COMP.USERFN (apply) MAPHASHFILE (apply) STKNTH (ppe) EVERY (apply) +SETMAINTPANEL (ppe) \TEXTBIN (apply) TEDITCHAT.MENUFN (apply) EDITV (stackfn) \UNBOXFLOAT1 (ppe) +MAXIMUMWINDOWSIZE (apply) D-ASSEM::GENERATE-EASY-ENTRY (apply) LOG (ppe) DO-HISTORY-SEARCH (apply) +ONEDINSPECT.SETELT (apply) INSTALLBRUSH (apply) CL::GET-SIMPLE-SETF-METHOD (apply) \COPYFNHEADER (ppe) + ARCTAN (ppe) ONEDINSPECT.ADJUSTSELECTION (apply) CONS (ppe) \HANDLE.RAW.PACKET (apply) CL:VALUES (ppe +) TWODINSPECT.SETELT (apply) SEDIT::EXTRACT-CURRENT-SELECTION (apply) \TEDIT.OBJECT.SHOWSEL (apply) +MB.THREESTATEBUTTON.FN (apply) \CKAPPLYARGS (ppe) CALL.MOVENODEFN (apply) EDITCOMA (stackfn) STKSCAN ( +ppe) CHECKBUFFERREFVAL (ppe) DINFO.UPDATE.FMENU (ppe) CLISP4 (stackfn) CL:VALUES-LIST (ppe) +\TEDIT.MOVE.PIECEMAPFN (apply) COMPILER::ALPHA-MV-PROG1 (apply) MAKEEPSFILE (apply) MAPRELATION (apply +) PRINTPACKET (apply) XCL::PROTOTYPE-DEFN-TYPES (apply) EDITCOM1 (apply) \FTP.ERRORHANDLER (stackfn) +\GR.METHODEXPANDER (apply) LCSKIP (apply) \MAIKO.CONS.UFN (ppe) ADDTOCOM (apply) /MAPCON (apply) +\UNBOXFLOAT2 (ppe) COMPILER::RELEASE-MV-CALL (apply) \MAKE.PROCESS1 (ppe) \SIMULATE.UNBIND (ppe) CAR ( +ppe) PRINTERTYPE (apply) FIXDATUM (apply) XCL::PROTOTYPE-DEFINERS-FOR-TYPE (apply) \FTP.HANDLE.NO ( +apply) \GET-MY-BF (ppe) CDR (ppe) GETDEFFROMFILE (apply) SI::UNWIND-TO-BLIP (ppe) \TEDIT.INSPECTCODE ( +apply) RESUME (ppe) CL::VALUES-UFN (ppe) EVALUABLE.CONSTANTP (apply) OPENIMAGESTREAM (apply) \RESUME ( +ppe) \TEDIT.TRY.ABBREV (apply) RPLACA (ppe) IDIFFERENCE (ppe) CHAT.MENU (apply) CL::VALUES-LIST-UFN ( +ppe) RPLACD (ppe) COMPILER::COMPILE-FILE-DEFINEQ (apply) IGREATERP (ppe) \TEDIT2 (apply) SCROLLW ( +apply) \PROMISCUOUS.OFF (ppe) \DO.PARAMS.AT.OPEN (apply) SEDIT::OUTPUT-STRING (ppe) \SETFVARSLOT (ppe) + INSPECT/LISTP (apply) EDITSMASH (apply) \EVAL-INVOKE-LAMBDA (ppe) CLOSEF (apply) \CREATECHARSET ( +apply) CL::SET-PARSED-STRUCTURE (ppe) \WALKOVER.SPECIALFORMS (apply) COMP.EQ (apply) CHANGECCODE (ppe) + CL:ROOM (ppe) CHOOZ (apply) SI::DESCRIBE-USING-RECORD-DECL (apply) \PROG0 (ppe) \WALKOVER.SF.LIST ( +apply) MAP2C (apply) MAPHASH (apply) \TTYBACKGROUND (apply) \COS.OLD (ppe) MAPRINT (apply) PRINTXIP ( +apply) TEDIT.UNDO.DELETION (apply) IQUOTIENT (ppe) MAPC (apply) EOFCLOSEF (apply) DIFFERENCE (ppe) +TWODINSPECTW.CREATE (apply) MAP2CAR (apply) \MEDW.GETSCREENREGION (apply) \SPP.HANDLE.ATTN (apply) +\RTP.CLEANUP (apply) TEDIT.GET (apply) GRAPHDELETELINK (apply) MAPCON (apply) PARSERELATION1 (apply) +\SMASHRETURN (ppe) \WALKOVER.FUNCTION (apply) GRAPHDELETENODE (apply) COMPILER::RELEASE-MV-PROG1 ( +apply) \RECLAIMCODEBLOCK (ppe) HISTORYFIND1 (apply) TEDIT.PUT.PCTB (apply) \HASHACCESS (apply) +MAPPAGES (apply) GRAPHBUTTONEVENTFN (apply) \TEDIT.APPLY.STYLES (apply) MAPLIST (apply) HPRINT1 (apply +) \ASSIGNDATATYPE1 (ppe) \MAYBEPRINTPACKET (apply) MAPCONC (apply) CL::PUTHASH (ppe) MAPCAR (apply) +CL::STRUCTURE-POINTER-SLOTS (apply) MAKE.LOCAL.ATOM (ppe) RESOLVE-EXPORT-CONFLICT (apply) +SI::%%STRUCTURE-DECLARE-DATATYPE (apply) XCL::ADD-WHERE-IS-DATABASES (apply) PRINTCOMSTRAN (apply) +SEDIT::CFV-LIST (ppe) GO (ppe) ADDTOFILES? (apply) STKPOS (ppe) \PROTECTED.APPLY (apply) +\SEQUIN.HANDLE.INPUT (apply) SEDIT::COPY-HASH-TABLE (apply) \TEDIT.SELECT.CHARACTER (apply) +CL:DECODE-UNIVERSAL-TIME (ppe) CL::ESTABLISH-SETFS-AND-OPTIMIZERS (apply) +CONVERT.FILE.TO.TYPE.FOR.PRINTER (apply) \MAPPAGE (ppe) \TEXTINIT (apply) CL::BUILD-CONSTRUCTOR-ARGLIST + (apply) RETURN (ppe) HASHOVERFLOW (apply) \RATOM/RSTRING-REFILL (apply) CL::RESOLVE-SLOTS (apply) +\EVALA (ppe) NOTANY (apply) ONEDINSPECT.SCROLLFN (apply) TEDIT.FORMATPAGE (apply) \TRACKWITHBOX (apply +) \DRAWCIRCLE.DISPLAY (apply) CHANGETRAN1 (apply) MSUPDATE (apply) \PROMISCUOUS.ON (ppe) +\DRAWELLIPSE.DISPLAY (apply) RECORDINIT (apply) TEDIT.SELECTED.PIECES (apply) DEFAULTWHENSELECTEDFN ( +stackfn) NOTEVERY (apply) TRAPLOOP (apply) \PAGED.REVALIDATEFILELST (apply) \BSP.SKIPBYTES (apply) +UNDOLISPX3 (apply) GRAPHOBJ.DISPLAYFN (apply) \READCREFILL (apply) INSPECTW.REDISPLAY (apply) +\SPY.INTERRUPT (ppe) CL:LIST-ALL-PACKAGES (apply) \TAN-FLOAT (ppe) TWODINSPECT.REPAINTFN (apply) \LET0 + (ppe) SI::DESCRIBE-USING-INSPECT-MACRO (apply) XCL:LIST-ALL-PROFILES (apply) COMPILER::ALPHA-COMBINATION + (apply) WRITEIMAGEOBJ (apply) \UNWIND.UFN (ppe) READLINE (apply) MAP.PROCESSES (apply) GENERATOR ( +stackfn) \LET* (ppe) FAKE-COMPILE-FILE (ppe) \GETREGION.CHECKOPPT (apply) \DODISKCOMMAND (ppe) +TRANSMIT.ETHERPACKET (apply) TEDIT.EDIT.OBJECT (apply) RETDWIM (stackfn apply) TEDIT.UNDO (apply) +\PAGED.REVALIDATEFILES (apply) READIMAGEOBJ (apply) \BASEBYTES.BOUT (apply) \RPLPTR.UFN (ppe) +EDITADDNODE (apply) \CLEANUPDISKQUEUE (ppe apply) \DELETECH (apply) XCL:RESTORE-PROFILE (apply) +CL:FILE-POSITION (ppe) \RTP.HANDLE.PUP (apply) \BUFFERED.REVALIDATEFILELST (apply) MB.SELFN (apply) +XCL::GET-WHERE-IS-ENTRIES (apply) \USER-SUBR-UFN (apply) DINFO.LOOKUP (apply) SUPERPRINT0 (apply) +\BSP.PREPARE.OUTPUT (apply) ADDTOFILE (apply) \CURVE (apply) \FIXCODEPTR (ppe) \TEDIT.INSERT.PIECES ( +apply) \RPLACA.UFN (ppe) SEDIT::UNDO-EVENT (apply) SEDIT::LINEARIZE-LIST (ppe) COPYINSERT (apply) +\RPLACD.UFN (ppe) \NSRANDOM.PREPARE.CACHE (ppe) GETDEFCURRENT (apply) FB.SORT.VERSIONS (apply) +\CONS.UFN (ppe) SI::RESETUNWIND (apply) CL:MAPHASH (apply) \SIN.OLD (ppe) TEDIT.COPY (apply) +\SEQUIN.FLUSH.CONNECTION (apply) \TEDIT.HARDCOPY.DISPLAYLINE (apply) SOME (apply) +CL::%%MAKE-RANDOM-ARRAY (apply) CL::GET-PS-FROM-ACCESSOR (apply) TEDIT.REDO.INSERTION (apply) +SET/LABEL/SIZE (apply) TWODINSPECT.SCROLLFN (apply) LISPX (apply) TWODINSPECT.REDISPLAY (apply) +GENERATEFN (apply stackfn) PFI.PRINT.BITMAP (stackfn) DBG::COLLECT-ACTIVE-ESCAPES (apply stackfn) +\FINDKEY.UFN (ppe) \ALLOCHUNK (ppe) *PACKAGE-FROM-INDEX* (ppe) \SEQUIN.PROCESS (apply) \FUNCT1 (ppe) +COMP.TOPLEVEL.COMPILE (apply) GRAPHCHANGELABEL (apply) SUBSET (apply) BSPPUTMARK (apply) +CL::GET-PS-FROM-PREDICATE (apply) MSINTERPRETSET (apply) LISPXREAD (apply) MENU.HANDLER (apply) +CLISPIFYCROPS (apply) \PRESSCURVE2 (ppe) RECORDECL1 (apply) \TEDIT.CONVERT.FOREIGN.FORMAT (apply) +FW-OPENP (apply) \CONTEXTAPPLY (ppe) \RESTLIST.UFN (ppe) CLISPIFY2B (apply) \BSP.GETNEXTBUFFER (apply +stackfn) \MAIKO.ALLOCBLOCK (ppe) CL::CACHE-SETF-INFO (apply) \SIN-FLOAT (ppe) \MISCN.UFN (ppe apply) +LOWERCASE (apply) GRAPHADDLINK (apply) MISSPELLED? (apply) \RPLCONS (ppe) CALLS (apply) WBREAK (ppe) +SI::UNWIND (ppe) \PRINDATUM.TO.STRING (apply) BROKENDEF (ppe) MSFAIL (stackfn) ENCAPSULATE.ETHERPACKET + (apply) BSPGETMARK (apply) \MAIKO.BITBLTSUB (ppe) CL::ARGUMENT-NAMES (apply) +\UPDATE-SYNONYM-STREAM-LINELENGTH-FIELD (apply) %%MAKE-ARRAY-TYPE-TABLE (apply) \FM.EDIT-INSERT (apply +) \UFSGetFileTypeConfirm (stackfn) ADIEU (stackfn) \MAIKO.PUNTBLTCHAR (ppe) GetImageFile (apply) +CLISPATOM2 (apply) CL:FIND-ALL-SYMBOLS (apply) LISPXREPRINT (apply) \MAIKO.BLTCHAR (ppe) \STKSCAN (ppe +) OPT.FRAMEVAR (apply) CLEARCLISPARRAY (apply) \MEDW.SHAPEW (apply) BLIPVAL (ppe) XCL::HASH-FILE-WHERE-IS + (apply) \MEDW.GETSCREENPOSITION (apply) GIVE.TTY.PROCESS (apply) \UNVISIBLE.PAGED.REVALIDATEFILELST ( +apply) XCL:SET-EXEC-TYPE (stackfn) \GETREGIONTRACKWITHBOX (apply) MINIMUMWINDOWSIZE (apply) SETBLIPVAL + (ppe) CL:COMPILE-FILE (ppe) IMAGEBOX (apply) \UNBOXFLOAT3 (ppe) TEDIT.FORMAT.HARDCOPY (apply) +\InitCurveBrushes (apply) BLIPSCAN (ppe) %%MAKE-CML-TYPE-TABLE (apply) PRINTERSTATUS (apply) +OPT.JFIXPASS (apply) \TEXTPEEKBIN (apply) COMPILER::ALPHA-LABELS (apply) ICMLARRAY.DOWINDOWCOMFN ( +apply) BLOCK (ppe) DOUSERFNS2 (apply) DISPLAYLINK/LR (apply) \FORMATLINE (apply) CL::ESTABLISH-ACCESSORS + (apply) \DO.PROGV.SETUP.FRAME.AND.EXECUTE (ppe) UNDONLSETQ1 (apply) WHO-LINE-CURRENT-DIRECTORY (apply +) \HARDRESET-CLEANUP1 (ppe) HVBAKREAD (apply) \DISPLAYLINE (apply) \SETIOPOINTERS (ppe) +SI::DESCRIBE-USING-DESCRIBERS (apply) INSPECT (apply) \STORE.N.UFN (ppe) \D01.FAULTINIT (ppe) +INSPECTW.CREATE (apply) MODERNWINDOW.BUTTONEVENTFN (apply) MSGETDEF (apply) \COPY.N.UFN (ppe) +\GETREGION.CHECKBASEPT (apply) \MAIKO.DISPLAYLINE (apply) CL::DEFINE-CONSTRUCTORS (apply) \RETURN (ppe +) \TEDIT.ADJUST.LINES (apply) \CURVE2 (ppe) \GCMAPSCAN (ppe) \SEQUIN.HANDLE.ACK (apply) \D0.STARTIO ( +ppe) DOUSERFNS (apply) CL:GENSYM (ppe) COMPILER::GENCODE-LET (apply) \COPYCODEBLOCK (ppe) VARS.PUTDEF +(ppe) \MYARGCOUNT (ppe) \ARG0 (ppe) FIND.SYMBOL (ppe) XCL::WHERE-IS-FILES (apply) \HCPYMODEDISPLAYINIT + (apply) \IPCURVE2 (ppe) WINDOW.MOUSE.HANDLER (apply) \MEDW.EXPANDW (apply) \MP.ERROR (ppe) ERROR! ( +ppe) TWODINSPECT.ADJUSTSELECTION (apply) \PFI.DO.HARDCOPY (apply) \MENUSUBITEMS (apply) FB.SORTCOMMAND + (apply) SHAPEW (apply) SPP.FORCEOUTPUT (apply) BRKDWNRESULTS2 (apply) \FM.STATE-SELECTEDFN (apply) +READVARS-FROM-STREAM (apply) EDITAPPLYTOLINK (apply) LAPRD (apply) \PROC.RESUME (ppe) +CL::DEFINE-ACCESSORS (apply) COMPILER::RELEASE-CALL (apply) PROCESS.EVALV (ppe) \TEXTMENU.TOGGLEFN ( +apply) \TEDIT1 (apply) XCL::%%DEFINE-TYPE-FILE-DEFINITIONS (apply) TEDIT.BUILD.PCTB (apply) RESET (ppe +) \BSP.HANDLE.INTERRUPT (apply) \BACKTRACE (apply) CLISPIFY2 (stackfn) FONTCREATE (apply) PUTDEF ( +apply) \TIMER.INTERRUPTFRAME (apply) COMP.STFIX (apply) NIL +LOCALFREEVARS MSPRGDWIM (FILEPKGFLG NOSPELLFLG) SEDIT::SEDITL (CL:ATOM) EQUALHASH (AR2 UNMATCHED AR1) +MSINTERPRET (TYPE SHOWSET EDIT EDITCOMS DONE) GETSYNTAX (TEM RESULT CH LST) +CL::%%MAKE-SMALL-FIXP-ACCESSOR (TYPE CL::OFFSET) \UFS.FILEINFOFN (GENFILESTATE) \STRINGWIDTH.GENERIC ( +TOTALWIDTH SPACEWIDTH CSET WIDTHSBASE FONT) MSSHOWUSE (ANYFOUND SHOWFN) CL::GET-PS-FROM-PREDICATE ( +CL::PREDICATE) HPRINT1 (VALS) \RECLAIMCODEBLOCK (CODEBASE) COMPILER::TEST-ALPHA (COMPILER::TREE) +GC-FILING-DIRECTORY (DIRINDEX CONFIRM? ID NDELETED) MSPRGTEMPLATE1 (EXPR) NCHARS (NCHARCNT) +COMPILER::COMPILE-ONE-LAMBDA (COMPILER::TREE) \ASSIGNDATATYPE1 (NEWTYPEENTRY FOUNDSOME) CHCON ( +\CHCONLSTAIL \CHCONLST) CL::%%MAKE-ARRAY-ACCESSOR (CL::OFFSET) SI::UNADVISE-FROM-RESTORE-CALLS (SI::FROM + SI::FN) \NSFILING.SETFILEINFO (NAME.OR.STREAM DEVICE ATTR/VAL) \MISCN.UFN (MY-BF RESULT-IVAR CALLER) +COPYFILES (COPYFILESFROMSPEC SECONDARYSPEC COPYFILESOUTPUT DONTCOPY COPYFILESTOSPEC COPYFILESVERSIONS +COPYFILESALWAYS COPYFILES.WHENTOSKIP COPYFILESSKIPFN COPYFILESPURGESOURCE COPYFILESASK +COPYFILESASKDEFAULT COPYFILESREPLACE COPYFILESFN COPYFILESTERSE) FB.ADJUST.DATE.WIDTH (INDEX SPEC FONT +) UNPACK (\CHCONLSTAIL \CHCONLST) \COURIER.HANDLE.BULKDATA (DATASTREAM) SI::DESCRIBE-USING-INSPECT-MACRO + (SI::DEPTH SI::FETCHFN SI::OBJECT) HARRAYKEYS (ITEMLST) \PRINDATUM.TO.STRING (FATSTRINGP STRINGLEN +*PRINT-CIRCLE-HASHTABLE* STRINDEX STRINGPTR) SEDIT::COPY-HASH-TABLE (SEDIT::NEW-TABLE) +\NSRANDOM.WRITE.SEGMENT (BUFFERS FIRSTBYTE BYTESTOSTORE) RECEVAL (DATUM NEWVALUE FIELDNAME) +CL::ESTABLISH-SETFS-AND-OPTIMIZERS (CL:INLINE) CL::%%MAKE-FLAG-ACCESSOR (TYPE CL::OFFSET CL::WORD-OFFSET +) PACKAGE-HIERARCHY-INIT (CONVERT?) \NSPRINT.INTERNAL (COURIERSTREAM) +\UPDATE-SYNONYM-STREAM-LINELENGTH-FIELD (DISPLAYSTREAM NEWLENGTH X) XCL::SHOW-CLOSURE-CACHE (XCL::LONG-P + STREAM) \PROCESS.EVAL1 (..PEV-PROC.. ..PEV-RESULT..) COMPILE-FILE-EXPRESSION (COMPILED.FILE +COMPILE.TIME.TOO DEFER FORCE-OUTPUT-P) COLLECTKEYS (KEYLST MKSTRING?) XCL:UNBREAK-FUNCTION ( +XCL::BROKEN-FN XCL::IN-FN) CL::%%MAKE-FLOAT-ACCESSOR (TYPE CL::OFFSET) CL:FIND-ALL-SYMBOLS (STRING) +DCHCON (!SCRATCHTAIL) CLEARCLISPARRAY (NAME) \SEQUIN.PROCESS (SEQUIN) XCL::HASH-FILE-WHERE-IS (TYPE) +CL::%%MAKE-WORD-ACCESSOR (TYPE CL::OFFSET) MSTRYSPELLTYPE (TYPE) SI::CREATE-CONDITION-CASE-LITERALS ( +SI::CATCH-TAG) \TOP-LEVEL-READ (STREAM OLD-EOS-OP EOF-VALUE) CL::%%MAKE-RANDOM-ARRAY (CL::RANDOM-CONST-A + CL::RANDOM-CONST-B) SET-READTABLE-INTERACTIVELY (READTABLES) CL:LIST-ALL-PACKAGES (RES) CL:COMPILE-FILE + (COMPILER::*INPUT-STREAM* COMPILER::*FASL-HANDLE* COMPILER::ERROR-FILE-STREAM COMPILER::*LAP-STREAM*) + DUNPACK (!SCRATCHTAIL) \NSFILING.LOGIN (STREAM) CL::%%MAKE-POINTER-ACCESSOR (TYPE CL::OFFSET) BREAK1 +(POS) NTHCHARCODE (M) SI::DESCRIBE-USING-DESCRIBERS (SI::OBJECT SI::DEPTH) \NSFILING.DESERIALIZE1 ( +BULKSTREAM SERIALSESSION) \STORAGE.TYPE (ALLOCMDS) DMPHASH (ARRAYNAME) SEDIT::TTYFN (SEDIT::EVENT) +CL::GET-SIMPLE-SETF-METHOD (CL::VALS CL::VARS) CL::STRUCTURE-FUNCTION-P (CL:SYMBOL) +SI::UNBREAK-FROM-RESTORE-CALLS (SI::FROM SI::FN) COMPILER::ALPHA-LABELS (CL:LABELS COMPILER::*ENVIRONMENT* +) XCL:LIST-ALL-PROFILES (XCL:PROFILES) COMPILER::TEST-ANNOTATION (COMPILER::TREE) \PROCESS.APPLY1 ( +..PEV-PROC.. ..PEV-RESULT..) COMPILER::TEST-ANALYSIS (COMPILER::TREE) LOOKUP-ENVIRONMENT-AND-FILEMAP ( +FULL HIGHEST-VERSION MAPENTRY) CLEARSTK (FLG LST) XCL::WHERE-IS-NOTICE (HASH-FILE:HASH-FILE) +\NSFILING.COPY/RENAME (HANDLE SERIALSTREAM SESSION) CL::ESTABLISH-ACCESSORS (CL::PS) +SEDIT::EXTRACT-CURRENT-SELECTION (SEDIT::CONTEXT) MAKEINITLAST (AL) APROPOS (BLOCKCOUNT FILTERFN +STRING CASEARRAY ALLFLG QUIETFLG RESULT OUTPUT) MAPRELATION (MAPFN2 MAPZ MAPFN MAPW) +\UFS.CLEANUP.GFS.TABLE (NOTICETOCP) MULTIFILEINDEX1 (*STANDARD-OUTPUT*) \REMOVE-DECLS (CL::SPECIALS) +\NSFILING.DELETEFILE (DEVICE) CL::DEFINE-CONSTRUCTORS (CL::PS) \FILEMAP-HASHOVERFLOW (ENTRIES) +BAKTRACE1 (N IPOS POS) CL:LOAD (STREAM) XCL::DEL-WHERE-IS-DATABASE (XCL::DATABASE) +COURIER.BROADCAST.CALL (NEARBYNETS) \STRINGWIDTH.PRESS (TOTALWIDTH STREAM WIDTHSBASE) +CL::GET-SHARED-SETF-METHOD (CL::VALS CL::VARS) \MAPCHARS (\MAPCHARFN) CL::%%MAKE-FIXP-ACCESSOR (TYPE +CL::OFFSET) CL:UNWIND-PROTECT (\UNWIND-FORMS) COPYHASHFILE (HASHFILE NEWHASHFILE FN) CLISPIFY2 (FORM) +INREADMACROP (\READDEPTH) HCOPYALL1 (NEW) SEDIT::SEDITE (CL:ATOM SEDIT::IFCHANGEDFN SEDIT::OLD-PROPS +SEDIT::NEW-EXPR SEDIT::EVENT TYPE) BAKTRACE (FN) FASL::ELEMENTS-IDENTICAL-P (FASL::TESTELT) +CL::%%MAKE-BIT-ACCESSOR (TYPE CL::SIZE CL::OFFSET CL::WORD-OFFSET) CH.ADD.GROUP.PROPERTY (MEMBERS) +COPYALL (NH) I.S.OPR (UC LC) \FTP.CLEANUP (CONNS FAIL) XCL::%%DEFINE-TYPE-FILE-DEFINITIONS (TYPE) +CL::%%MAKE-LIST-ACCESSOR (CL::OFFSET) %%MAKE-ARRAY-TYPE-TABLE (LIT-TYPE) HPRINT (STREAM) +HASHFILESPLST1 (XWORD) DBG::PRINT-BACKTRACE (DBG::TEST) NSPRINT (INSTREAM) D-ASSEM:ASSEMBLE-FUNCTION ( +D-ASSEM::*DTAG-ENV*) \UFS.NEXTFILEFN (GENFILESTATE) CL:MAPHASH (CL::FN) \SETTYPEMASK (BITS) +FB.CANONICAL.DIRECTORY (OLDTTYPROC OLDTTYSTREAM PWINDOW) \NSRANDOM.READ.SEGMENT (FIRSTPAGE# +BYTESTOFETCH BUFFERS EXTRABUFFERS NEXTRA) CL::DEFINE-ACCESSORS (CL::PS) SI::DESCRIBE-USING-RECORD-DECL + (SI::DEPTH SI::OBJECT DECL) COMPARENCHARS (COMPARECNT) \STRINGWIDTH.HCPYDISPLAYAUX (TOTALWIDTH +SPACEWIDTH CSET WIDTHSBASE FONT) GETGRIDBOXREGION (GRIDREGION) CL::GET-PS-FROM-ACCESSOR (CL::ACCESSOR) + FB.INSERT.FILE (FBSORTFN FILE) FLUSHFILEMAPS (ROOTNAME) SEDIT:REPLACE-SELECTION (SEDIT::CONTEXT) +COMPILER::TEST-META-EVAL (COMPILER::TREE) NIL +USERTEMPLATES \DoveIO.LockMem (CALL |..| EVAL) TTBOUT (CALL CALL |..| (IF (OR (LISTP EXPR) (AND ( +NTHCHAR EXPR 2) (NOT (ASSOC EXPR DMCHARCODES)))) EVAL NIL)) CH.PROPERTY (CALL PROP) TTBOUTN (MACRO (X + . Y) (FRPTQ X (TTBOUT . Y))) NIL +KEYACCEPT CL:DELETE-IF (:START :END :FROM-END :COUNT :KEY) DBG::PRINT-BACKTRACE (:FROM :TO :TEST +:PRINT-VARIABLES :PRINT-JUNK :OUTPUT :LINK) XCL:ADVISE-FUNCTION (:IN :WHEN :PRIORITY) CL:STRING-UPCASE + (:START :END) CL:DELETE-IF-NOT (:START :END :FROM-END :COUNT :KEY) CL:PARSE-NAMESTRING (:START :END +:JUNK-ALLOWED) INTERN-LITATOM (:WHERE) CL:NSUBST-IF-NOT (:KEY) DEBUGGER (:FORM :ENVIRONMENT :CONDITION + :STACK-POSITION :AT) CL:DELETE-DUPLICATES (:START :END :FROM-END :KEY :TEST :TEST-NOT) CL:STRING= ( +:START1 :END1 :START2 :END2) XCL:READVISE-FUNCTION (:IN) CL:ASSOC-IF (:KEY) COMPILER::ALPHA-LAMBDA ( +:CONTEXT :NAME) CL:SEARCH (:START1 :END1 :START2 :END2 :FROM-END :TEST :TEST-NOT :KEY) CL:ASSOC (:TEST + :TEST-NOT :KEY) CL:MEMBER (:TEST :TEST-NOT :KEY) CL:COMPILE (:LAP) XCL:CREATE-TRACE-WINDOW (:REGION +:OPEN? :TITLE) CL:SUBLIS (:TEST :TEST-NOT :KEY) CL:COUNT-IF (:START :END :FROM-END :KEY) +CL:STRING-NOT-GREATERP (:START1 :END1 :START2 :END2) CL:REMOVE-IF-NOT (:START :END :FROM-END :COUNT +:KEY) CL:NSUBSTITUTE-IF-NOT (:START :END :FROM-END :COUNT :KEY) CL:STRING>= (:START1 :END1 :START2 +:END2) CL:ASSOC-IF-NOT (:KEY) FILL-VECTOR (:START :END) EXEC-EVAL (:PROMPT :ID :TYPE) CL:MAKE-PACKAGE +(:USE :NICKNAMES :PREFIX-NAME :EXTERNAL-ONLY :INTERNAL-SYMBOLS :EXTERNAL-SYMBOLS) CL:MAKE-ARRAY ( +:ELEMENT-TYPE :INITIAL-ELEMENT :INITIAL-CONTENTS :DISPLACED-TO :DISPLACED-TO-BASE +:DISPLACED-INDEX-OFFSET :FILL-POINTER :ADJUSTABLE :EXTENDABLE :FATP :READ-ONLY-P) CL:WRITE-TO-STRING ( +:ESCAPE :RADIX :BASE :CIRCLE :PRETTY :LEVEL :LENGTH :CASE :ARRAY :GENSYM) CL:ADJUST-ARRAY ( +:ELEMENT-TYPE :INITIAL-ELEMENT :INITIAL-CONTENTS :DISPLACED-TO :DISPLACED-TO-BASE +:DISPLACED-INDEX-OFFSET :FILL-POINTER :FATP) CL:TREE-EQUAL (:TEST :TEST-NOT) CL:SUBSTITUTE-IF-NOT ( +:START :END :FROM-END :COUNT :KEY) CL:POSITION-IF-NOT (:START :END :FROM-END :KEY) CL:SORT (:KEY) +CL:NSUBLIS (:TEST :TEST-NOT :KEY) CL:RASSOC (:TEST :TEST-NOT :KEY) CL:DISASSEMBLE (:LEVEL-P :RADIX +:OUTPUT :FIRST-BYTE :MARKED-PC) CL:POSITION (:START :END :FROM-END :KEY :TEST :TEST-NOT) +XCL:TRACE-FUNCTION (:IN :REBREAK?) CL:RASSOC-IF-NOT (:KEY) FASL::DUMP-ARRAY-DESCRIPTOR ( +:INITIAL-ELEMENT) XCL:UNBREAK-FUNCTION (:IN :NO-ERROR) CL:WRITE-LINE (:START :END) COMPILER:ENV-FBOUNDP + (:LEXICAL-ONLY) CL:NSUBSTITUTE (:START :END :FROM-END :COUNT :KEY :TEST :TEST-NOT) CL:NSUBSTITUTE-IF +(:START :END :FROM-END :COUNT :KEY) CL:RASSOC-IF (:KEY) ADD-EXEC (:PROFILE :REGION :TTY :EXEC :ID +&ALLOW-OTHER-KEYS) CL:MAKE-LIST (:INITIAL-ELEMENT) CL:MAKE-PATHNAME (:DEFAULTS :HOST :DEVICE +:DIRECTORY :NAME :TYPE :VERSION) CL:REMOVE (:START :END :FROM-END :COUNT :KEY :TEST :TEST-NOT) +CL:STRING-CAPITALIZE (:START :END) CL:MAKE-SEQUENCE (:INITIAL-ELEMENT) CL:STRING-DOWNCASE (:START :END +) CL:FIND (:START :END :FROM-END :KEY :TEST :TEST-NOT) CL:DELETE (:START :END :FROM-END :COUNT :KEY +:TEST :TEST-NOT) XCL:COMPILE-FORM (:LAP) CL::%%LIST-MAP-OPTIMIZER (:TAIL-P :COLLECT-P :NCONC-P :INC-FN + :NIL-RESULT-P) XCL:COMPILE-DEFINER (:LAP) BREAK-FUNCTION (:IN :WHEN :TRACE? :REBREAK?) CL:STABLE-SORT + (:KEY) CL:MEMBER-IF-NOT (:KEY) CL:COMPILE-FILE (:OUTPUT-FILE :LAP-FILE :ERROR-FILE +:ERRORS-TO-TERMINAL :FILE-MANAGER-FORMAT :PROCESS-ENTIRE-FILE :LOAD) CL:POSITION-IF (:START :END +:FROM-END :KEY) CL:MEMBER-IF (:KEY) CL:STRING-LESSP (:START1 :END1 :START2 :END2) EXEC (:TOP-LEVEL-P +:WINDOW :TITLE :COMMAND-TABLES :ENVIRONMENT :PROMPT :FUNCTION :PROFILE :ID &ALLOW-OTHER-KEYS) +CL::%%EVERY-MAP-OPTIMIZER (:SOME-P :NEGATE-P) SI::COMPILED-FUNCTION-ARGLIST (:INTERLISP?) +CL:STRING-NOT-EQUAL (:START1 :END1 :START2 :END2) FASL:CLOSE-FASL-HANDLE (:ABORT &ALLOW-OTHER-KEYS) +CL:WRITE-STRING (:START :END) CL:MAKE-STRING (:INITIAL-ELEMENT :FATP) XCL::WHERE-IS-NOTICE (:FILES +:NEW :DEFINE-TYPES :HASH-FILE-SIZE :QUIET :TEMP-FILE) CL:NSTRING-UPCASE (:START :END) CL::TIME-CALL ( +:OUTPUT :TIMED-FORM :DATA-TYPES :REPEAT) FAKE-COMPILE-FILE (:LAP :REDEFINE :OUTPUT-FILE :SAVE-EXPRS +:COMPILER-OUTPUT :PROCESS-ENTIRE-FILE) CL:MERGE (:KEY) CL:NUNION (:TEST :TEST-NOT :KEY) +XCL:UNADVISE-FUNCTION (:IN :NO-ERROR) STRING-EQUAL (:START1 :END1 :START2 :END2) CL:FILL (:START :END) + WRITE (:STREAM :ESCAPE :RADIX :BASE :LEVEL :LENGTH :CASE :GENSYM :ARRAY :PRETTY :CIRCLE) CL:UNION ( +:TEST :TEST-NOT :KEY) CL:LOAD (:VERBOSE :PRINT :IF-DOES-NOT-EXIST :LOADFLG :PACKAGE) CL:CLOSE (:ABORT) + CL:ADJOIN (:TEST :TEST-NOT :KEY) CL:SUBST (:TEST :TEST-NOT :KEY) XCL:REINSTALL-ADVICE (:BEFORE :AFTER + :AROUND) CL:READ-FROM-STRING (:START :END :PRESERVE-WHITESPACE) CL:INTERSECTION (:TEST :TEST-NOT :KEY +) CL:MAKE-HASH-TABLE (:TEST :SIZE :REHASH-SIZE :REHASH-THRESHOLD) CL:STRING< (:START1 :END1 :START2 +:END2) WALK-FORM (:DECLARATIONS :LEXICAL-VARIABLES :ENVIRONMENT :COPY :WALK-FUNCTION) CL:REPLACE ( +:START1 :END1 :START2 :END2) CL:STRING-GREATERP (:START1 :END1 :START2 :END2) CL:NSTRING-DOWNCASE ( +:START :END) CL:REMOVE-IF (:START :END :FROM-END :COUNT :KEY) CL:IN-PACKAGE (:NICKNAMES :USE) +CL:STRING<= (:START1 :END1 :START2 :END2) CL:SUBST-IF (:KEY) MAKE-VECTOR (:ELEMENT-TYPE +:INITIAL-ELEMENT :FATP) CL:SET-DIFFERENCE (:TEST :TEST-NOT :KEY) CL:MISMATCH (:START1 :END1 :START2 +:END2 :FROM-END :TEST :TEST-NOT :KEY) CL:NSTRING-CAPITALIZE (:START :END) CL:SUBST-IF-NOT (:KEY) +CL:NSET-EXCLUSIVE-OR (:TEST :TEST-NOT :KEY) CL:COUNT (:START :END :FROM-END :KEY :TEST :TEST-NOT) OPEN + (:DIRECTION :ELEMENT-TYPE :IF-EXISTS :IF-DOES-NOT-EXIST :EXTERNAL-FORMAT) CL:STRING/= (:START1 :END1 +:START2 :END2) PARSE-DEFMACRO (:PATH :ENVIRONMENT :CONTEXT :ERROR-STRING :DOC-STRING-ALLOWED +:DEFAULT-DEFAULT :KEY-FINDER :REMOVE-COMMENTS) COPY-VECTOR (:START1 :END1 :START2 :END2) +CL:REMOVE-DUPLICATES (:START :END :FROM-END :KEY :TEST :TEST-NOT) CL:SET-EXCLUSIVE-OR (:TEST :TEST-NOT + :KEY) CL:NSET-DIFFERENCE (:TEST :TEST-NOT :KEY) CL:SUBSTITUTE (:START :END :FROM-END :COUNT :KEY +:TEST :TEST-NOT) XCL:REBREAK-FUNCTION (:IN) CL:FIND-IF (:START :END :FROM-END :KEY) CL:SUBSTITUTE-IF ( +:START :END :FROM-END :COUNT :KEY) CL:REDUCE (:START :END :FROM-END :INITIAL-VALUE) CL:STRING-NOT-LESSP + (:START1 :END1 :START2 :END2) CL:SUBSETP (:TEST :TEST-NOT :KEY) CL:NINTERSECTION (:TEST :TEST-NOT +:KEY) CL:STRING> (:START1 :END1 :START2 :END2) FASL:PROCESS-FILE (:TEXT-FN :ITEM-FN) CL:NSUBST-IF ( +:KEY) CL:FIND-IF-NOT (:START :END :FROM-END :KEY) CL:COUNT-IF-NOT (:START :END :FROM-END :KEY) CL:NSUBST + (:TEST :TEST-NOT :KEY) CL:PARSE-INTEGER (:START :END :RADIX :JUNK-ALLOWED) NIL +KEYSPECIFY CL:PARSE-NAMESTRING (:HOST :DEVICE :DIRECTORY :NAME :TYPE :VERSION) SI::ADVISE-CONTENTS ( +:TEST) HASH-LEFTPAREN (:INITIAL-ELEMENT :INITIAL-CONTENTS) DEBUGGER (:TITLE :COMMAND-TABLES +:ENVIRONMENT :PROMPT :FUNCTION) D-ASSEM::CONVERT-TO-BINARY (:ELEMENT-TYPE) COMPILER::FIND-SEGMENT ( +:TEST) XCL::VARIABLE-LEXICAL-P (:TEST) SI::FINISH-ADVISING (:TEST) COMPILER::FRAME-ANNOTATE-CATCH ( +:TEST) FB.REMOVE.FILE (:END1 :END2) FASL:MAKE-OPTABLE (:INITIAL-ELEMENT) D-ASSEM::STORE-DIGEST-INFO ( +:KEY) CHAT.CHOOSE.EMULATOR (:TEST) FB.THINCOMMAND (:KEY) FASL::DUMP-GENERAL-ARRAY (:DISPLACED-TO +:ELEMENT-TYPE) COMPILER::ALPHA-FUNCTIONAL-FORM (:VALUES-USED) FB.INSERT.SUBDIRECTORIES (:END1 :END2) +COMPILER::ENV-PROCLAIMED-SPECIAL-P (:TEST) \CONVERT.FLOATING.NUMBER (:ELEMENT-TYPE :FILL-POINTER +:ADJUSTABLE) SI::EXPAND-CONDITION-CASE (:TEST) COMPILER::FRAME-ANNOTATE-TAGBODY (:TEST) +XCL:REBREAK-FUNCTION (:IN) COMP.EXPR (:LEXICAL-ONLY) ADVISE (:WHEN :PRIORITY :IN) +CL::SUBTYPEP-TYPE-EXPAND (:TEST) HASH-A (:INITIAL-CONTENTS) FB.MAYBE.INSERT.FILE (:END1 :END2) +COMPILER::FRAME-ANNOTATE-LAMBDA (:TEST) CL:USER-HOMEDIR-PATHNAME (:HOST :DIRECTORY) ADD-SYMBOL ( +:ELEMENT-TYPE) COERCE (:TEST) COMPILER::*EFFECT-CONTEXT* (:VALUES-USED) MAKEFILE1 (:REDEFINE +:SAVE-EXPRS :LOAD) COMPILER::PEEPHOLE-OPTIMIZE (:TEST) COPYFILES (:TEST) PACKAGE-ENABLE (:TEST) +\NSFILING.PARSE.FILENAME (:JUNK-ALLOWED) FASL::DUMMY-HANDLE (:DIRECTION) COMPILER::ALPHA-UNWIND-PROTECT + (:CONTEXT :NAME) CONCOCT-SYMBOL (:TEST) COMPILER::*PREDICATE-CONTEXT* (:VALUES-USED :PREDICATE-P) +WHO-LINE-CURRENT-DIRECTORY (:TEST) *DIGIT-STRING* (:ELEMENT-TYPE :FILL-POINTER :ADJUSTABLE) +XCL::WHERE-IS-NOTICE-INTERNAL (:TEST) MAKE-UNICODE-TRANSLATION-TABLES (:INITIAL-ELEMENT) +COMPILER::RESOLVE-VARIABLE-BINDING (:TEST) PACKAGE-MAKE (:USE :NICKNAMES :PREFIX-NAME :EXTERNAL-ONLY +:EXTERNAL-SYMBOLS) CL::ESTABLISH-SETFS-AND-OPTIMIZERS (:TEST) CHAT (:TEST) SEDIT::CREATE-COMMAND-TABLE + (:SIZE :REHASH-SIZE) CL:PPRINT (:STREAM :ESCAPE :PRETTY) PACKAGE-HIERARCHY-INIT (:WHERE) +%%MAKE-INITIAL-STRING-STREAM-CONTENTS (:ELEMENT-TYPE :EXTENDABLE :FILL-POINTER) PARSE-FORMAT-OPERATION + (:TEST) \PICK.EVALQT (:TOP-LEVEL-P :PROFILE :WINDOW) CL::STEP-COMMAND (:TEST) MSSEEK-WORD (:TEST) +ADD-USER-SUBR (:TEST :KEY) COMPILE-FILE-EXPRESSION (:WALK-FUNCTION) WRITE-UNICODE-INCLUDED (:RADIX) +XCL:COMPILE-FORM (:TOP-LEVEL-P :VALUES-USED) XCL:UNBREAK-FUNCTION (:IN) BREAK-FUNCTION (:IN :REBREAK? +:WHEN :NO-ERROR :TEST) %%FLATTEN-ARRAY (:ELEMENT-TYPE :DISPLACED-TO) \UFSGetPrintFileType (:TEST) +SI::MAKE-AROUND-BODY (:INITIAL-VALUE) COMPILER::FRAME-ANNOTATE-GO (:TEST) CHECKSAMEDIR (:TEST) +MAKE-PACKAGE-HASHTABLE (:ELEMENT-TYPE) COMPILER::FIND-REACHABLE-TAGS (:TEST) \LEAF.DIRECTORYNAMEP ( +:TEST) COMPILER:ENV-BOUNDP (:TEST) COMPILER::COMPILE-ONE-LAMBDA (:NAME) XCL::ADD-PROTOTYPE-FN (:TEST) +EXEC-PRIN1 (:STREAM :ESCAPE) \PAPERSIZE.IP (:TEST) CL:ADJUST-ARRAY (:ELEMENT-TYPE :FATP) +COMPILER::ENV-PROCLAIMED-GLOBAL-P (:TEST) %%DESTRUCTIVE-RESULT-VECTOR (:ELEMENT-TYPE :FILL-POINTER +:END1) CL:COMPILE-FILE (:TOP-LEVEL-P :VALUES-USED :DIRECTION :TYPE :VERSION :DEFAULTS) +FORMAT-EAT-WHITESPACE (:START) POSTSCRIPT.INIT (:INITIAL-ELEMENT) CL:PROVIDE (:TEST) +FB.UPDATEBROWSERITEMS (:KEY) COMPILER::ALPHA-COMBINATION (:TEST) \UFSGetFileType (:TEST) +CL::BASE-SUBTYPEP (:TEST) NewPrinter (:TEST) EXEC-PRINT (:STREAM :ESCAPE) DBG::STACK-FRAME-STOREFN ( +:TEST) XCL::WHERE-IS-NAMESTRING (:HOST :NAME :TYPE) CL::INSERT-INCLUDED-SLOT (:TEST) XCL::MAKE-PROTOTYPE + (:TEST) HASH-LEFT-PAD-INITIAL-CONTENTS (:INITIAL-ELEMENT) CL::STRUCTURE-FUNCTION-P (:TEST) CL:BIT-NOT + (:ELEMENT-TYPE) \10MB.CREATENDB (:TEST) XCL:LIST-ALL-PROFILES (:TEST) CL:MAKE-STRING (:ELEMENT-TYPE +:FATP) COMPILER::COMPILE-DEFINER-PROCESS-FUNCTION (:KEY) \MAKERECODEMAP (:INITIAL-ELEMENT) +XCL::WALK-ARGLIST (:TEST) SEDIT::*FSPEC-TABLE* (:TEST :SIZE) XCL::PROTOTYPE-DEFINERS-FOR-TYPE (:TEST) +WHITESPACE-CHAR-P (:TEST) SI::*ADVICE-HASH-TABLE* (:TEST) HASH-TABLE-FOR-DOC-TYPE (:TEST :SIZE +:REHASH-SIZE) COMPILE-FILE-SETF-SYMBOL-FUNCTION (:WALK-FUNCTION) NSDISPLAYSIZE (:TEST) +XCL:UNADVISE-FUNCTION (:IN) FB.CREATE.FILEBUCKET (:END2) SEDIT::LIST-FORMATS-TABLE (:SIZE) BREAK0 (:IN + :WHEN) CONSTANTEXPRESSIONP (:VALUES-USED :PREDICATE-P) CL:PRINC (:STREAM :ESCAPE) XCL:READVISE-FUNCTION + (:IN :NO-ERROR) PFI.CHOOSE.BEST (:KEY) COMPILER::FRAME-ANNOTATE-BLOCK (:TEST) FB.ADD.FILEGROUP (:END1 + :END2) COMPILER::COMPLETELY-EXPAND (:TEST) TRACE (:IN) XCL::*BREAK-HASH-TABLE* (:TEST) +D-ASSEM::DCODE-FROM-DLAMBDA (:TEST :KEY) COMPILER::ENV-INLINE-DISALLOWED (:TEST) FASL-FILEDATE ( +:TEXT-FN :ITEM-FN) SI::ADVICE-PUTDEF (:IN) DBG::STACK-FRAME-FETCHFN (:TEST) FASL::NEW-VALUE-TABLE ( +:FILL-POINTER :EXTENDABLE) OPENPOSTSCRIPTSTREAM (:TEST) CL::*TYPEP-HASH-TABLE* (:TEST) HASH-STAR ( +:ELEMENT-TYPE :INITIAL-ELEMENT) FB.COPY/RENAME.MANY (:END1 :END2) COPY-ARRAY (:ELEMENT-TYPE :FATP) +XCL::VARIABLE-LEXICALLY-BOUNDP (:TEST) MAKE-SEQUENCE-OF-TYPE (:ELEMENT-TYPE) COMPILER::FRAME-ANNOTATE-RETURN + (:TEST) COMP.LABELS (:WALK-FUNCTION) *DEFINITION-HASH-TABLE* (:TEST :SIZE) COMPILER::*ARGUMENT-CONTEXT* + (:VALUES-USED) CL:PRIN1 (:STREAM :ESCAPE) CHAT.STARTUP (:TEST) REMOVE-COMMENTS (:TEST) OPEN (:TEST) +COMPILER::ALPHA-EVAL-WHEN (:TEST) MAPFILES1 (:START1) SI::FINISH-UNADVISING (:TEST) XCL:ADVISE-FUNCTION + (:IN :WHEN :PRIORITY :TEST) POSTSCRIPTFILEP (:TEST) DECLARERECORD (:TEST) +D-ASSEM::DETERMINE-LOCAL-FN-LEXICAL-LEVEL (:TEST) FB.SORTCOMMAND (:KEY) READHASHMACRO ( +:INITIAL-CONTENTS :ELEMENT-TYPE) XCL::*PROFILES* (:TEST) SI::HAS-CALLS (:TEST) SUBRNUMBER (:TEST) +D-ASSEM:ASSEMBLE-FUNCTION (:TEST) COMPILER::ENV-INLINE-ALLOWED (:TEST) XCL:TRACE-FUNCTION (:IN :TEST) +COMP.TRANSFORM (:VALUES-USED :PREDICATE-P) CHARCODE.DECODE (:START :RADIX :JUNK-ALLOWED :END) +XCL::HASH-FILE-WHERE-IS (:TEST) CL::%%MAKE-RANDOM-ARRAY (:INITIAL-CONTENTS) CONVERT-LITATOM (:WHERE) +CL:MAKE-SEQUENCE (:INITIAL-ELEMENT) FB.INSERT.FILE (:END1 :END2) RESOLVE-READER-CONFLICT (:TEST) +CANONICAL.HOSTNAME (:TEST) SI::ADD-CHANGED-CALL (:TEST) FIND-HISTORY-EVENTS (:TEST) +DBG::COLLECT-ACTIVE-ESCAPES (:FROM-END :TEST) NIL +KEYCALL CL:PARSE-NAMESTRING (CL:MAKE-PATHNAME) SI::ADVISE-CONTENTS (CL:MEMBER CL:INTERSECTION) +HASH-LEFTPAREN (CL:MAKE-ARRAY) DEBUGGER (EXEC) D-ASSEM::CONVERT-TO-BINARY (CL:MAKE-ARRAY) +COMPILER::FIND-SEGMENT (CL:MEMBER) XCL::VARIABLE-LEXICAL-P (CL:MEMBER) SI::FINISH-ADVISING (CL:MEMBER +CL:DELETE) COMPILER::FRAME-ANNOTATE-CATCH (CL:NUNION) FB.REMOVE.FILE (STRING-EQUAL) FASL:MAKE-OPTABLE +(CL:MAKE-ARRAY) D-ASSEM::STORE-DIGEST-INFO (CL:SORT) CHAT.CHOOSE.EMULATOR (CL:ASSOC) FB.THINCOMMAND ( +CL:POSITION) FASL::DUMP-GENERAL-ARRAY (CL:MAKE-ARRAY) COMPILER::ALPHA-FUNCTIONAL-FORM (COMPILER:MAKE-CONTEXT +) FB.INSERT.SUBDIRECTORIES (STRING-EQUAL) COMPILER::ENV-PROCLAIMED-SPECIAL-P (CL:MEMBER) +\CONVERT.FLOATING.NUMBER (CL:MAKE-ARRAY) SI::EXPAND-CONDITION-CASE (CL:ASSOC) COMPILER::FRAME-ANNOTATE-TAGBODY + (CL:NUNION) XCL:REBREAK-FUNCTION (XCL:REBREAK-FUNCTION) COMP.EXPR (COMPILER:ENV-FBOUNDP) ADVISE ( +XCL:ADVISE-FUNCTION) CL::SUBTYPEP-TYPE-EXPAND (CL:MEMBER) HASH-A (CL:MAKE-ARRAY) FB.MAYBE.INSERT.FILE +(STRING-EQUAL) COMPILER::FRAME-ANNOTATE-LAMBDA (CL:NUNION) CL:USER-HOMEDIR-PATHNAME (CL:MAKE-PATHNAME) + ADD-SYMBOL (CL:MAKE-ARRAY) COERCE (CL:MEMBER) COMPILER::*EFFECT-CONTEXT* (COMPILER:MAKE-CONTEXT) +MAKEFILE1 (FAKE-COMPILE-FILE CL:COMPILE-FILE) COMPILER::PEEPHOLE-OPTIMIZE (CL:MAKE-HASH-TABLE) +COPYFILES (CL:MEMBER) PACKAGE-ENABLE (CL:PUSHNEW) \NSFILING.PARSE.FILENAME (CL:PARSE-INTEGER) +FASL::DUMMY-HANDLE (OPEN) COMPILER::ALPHA-UNWIND-PROTECT (COMPILER::ALPHA-LAMBDA) CONCOCT-SYMBOL ( +CL:MEMBER) COMPILER::*PREDICATE-CONTEXT* (COMPILER:MAKE-CONTEXT) WHO-LINE-CURRENT-DIRECTORY (CL:MEMBER +) *DIGIT-STRING* (CL:MAKE-ARRAY) XCL::WHERE-IS-NOTICE-INTERNAL (CL:ASSOC) +MAKE-UNICODE-TRANSLATION-TABLES (CL:MAKE-ARRAY) COMPILER::RESOLVE-VARIABLE-BINDING (CL:MEMBER) +PACKAGE-MAKE (CL:MAKE-PACKAGE) CL::ESTABLISH-SETFS-AND-OPTIMIZERS (CL:MEMBER) CHAT (CL:MEMBER) +SEDIT::CREATE-COMMAND-TABLE (CL:MAKE-HASH-TABLE) CL:PPRINT (WRITE) PACKAGE-HIERARCHY-INIT ( +INTERN-LITATOM) %%MAKE-INITIAL-STRING-STREAM-CONTENTS (CL:MAKE-ARRAY) PARSE-FORMAT-OPERATION (CL:MEMBER +) \PICK.EVALQT (EXEC) CL::STEP-COMMAND (CL:MEMBER) MSSEEK-WORD (CL:MEMBER) ADD-USER-SUBR (CL:REMOVE +CL:FIND) COMPILE-FILE-EXPRESSION (WALK-FORM) WRITE-UNICODE-INCLUDED (CL:PARSE-INTEGER) XCL:COMPILE-FORM + (COMPILER:MAKE-CONTEXT) XCL:UNBREAK-FUNCTION (XCL:UNBREAK-FUNCTION) BREAK-FUNCTION (XCL:TRACE-FUNCTION + BREAK-FUNCTION XCL:UNADVISE-FUNCTION CL:DELETE) %%FLATTEN-ARRAY (CL:MAKE-ARRAY) \UFSGetPrintFileType +(CL:ASSOC) SI::MAKE-AROUND-BODY (CL:REDUCE) COMPILER::FRAME-ANNOTATE-GO (CL:PUSHNEW) CHECKSAMEDIR ( +CL:MEMBER) MAKE-PACKAGE-HASHTABLE (CL:MAKE-ARRAY) COMPILER::FIND-REACHABLE-TAGS (CL:MAKE-HASH-TABLE) +\LEAF.DIRECTORYNAMEP (CL:MEMBER) COMPILER:ENV-BOUNDP (CL:MEMBER) COMPILER::COMPILE-ONE-LAMBDA ( +COMPILER::ALPHA-LAMBDA) XCL::ADD-PROTOTYPE-FN (CL:ASSOC) EXEC-PRIN1 (WRITE) \PAPERSIZE.IP (CL:ASSOC) +CL:ADJUST-ARRAY (CL:MAKE-ARRAY) COMPILER::ENV-PROCLAIMED-GLOBAL-P (CL:MEMBER) +%%DESTRUCTIVE-RESULT-VECTOR (CL:MAKE-ARRAY COPY-VECTOR) CL:COMPILE-FILE (COMPILER:MAKE-CONTEXT OPEN +CL:MAKE-PATHNAME) FORMAT-EAT-WHITESPACE (CL:POSITION-IF-NOT) POSTSCRIPT.INIT (CL:MAKE-ARRAY) CL:PROVIDE + (CL:PUSHNEW) FB.UPDATEBROWSERITEMS (CL:POSITION) COMPILER::ALPHA-COMBINATION (CL:MEMBER) +\UFSGetFileType (CL:ASSOC) CL::BASE-SUBTYPEP (CL:MEMBER CL:ASSOC) NewPrinter (CL:MEMBER) EXEC-PRINT ( +WRITE) DBG::STACK-FRAME-STOREFN (CL:ASSOC) XCL::WHERE-IS-NAMESTRING (CL:MAKE-PATHNAME) +CL::INSERT-INCLUDED-SLOT (CL:MEMBER) XCL::MAKE-PROTOTYPE (CL:ASSOC) HASH-LEFT-PAD-INITIAL-CONTENTS ( +CL:MAKE-LIST) CL::STRUCTURE-FUNCTION-P (CL:MEMBER) CL:BIT-NOT (CL:MAKE-ARRAY) \10MB.CREATENDB ( +CL:PUSHNEW) XCL:LIST-ALL-PROFILES (CL:PUSHNEW) CL:MAKE-STRING (MAKE-VECTOR) +COMPILER::COMPILE-DEFINER-PROCESS-FUNCTION (CL:REMOVE) \MAKERECODEMAP (CL:MAKE-ARRAY) XCL::WALK-ARGLIST + (CL:MEMBER) SEDIT::*FSPEC-TABLE* (CL:MAKE-HASH-TABLE) XCL::PROTOTYPE-DEFINERS-FOR-TYPE (CL:ASSOC) +WHITESPACE-CHAR-P (CL:MEMBER) SI::*ADVICE-HASH-TABLE* (CL:MAKE-HASH-TABLE) HASH-TABLE-FOR-DOC-TYPE ( +CL:MAKE-HASH-TABLE) COMPILE-FILE-SETF-SYMBOL-FUNCTION (WALK-FORM) NSDISPLAYSIZE (CL:MEMBER) +XCL:UNADVISE-FUNCTION (XCL:UNADVISE-FUNCTION) FB.CREATE.FILEBUCKET (STRING-EQUAL) SEDIT::LIST-FORMATS-TABLE + (CL:MAKE-HASH-TABLE) BREAK0 (BREAK-FUNCTION) CONSTANTEXPRESSIONP (COMPILER:MAKE-CONTEXT) CL:PRINC ( +WRITE) XCL:READVISE-FUNCTION (XCL:READVISE-FUNCTION XCL:UNADVISE-FUNCTION) PFI.CHOOSE.BEST ( +CL:STABLE-SORT) COMPILER::FRAME-ANNOTATE-BLOCK (CL:NUNION) FB.ADD.FILEGROUP (STRING-EQUAL) +COMPILER::COMPLETELY-EXPAND (CL:MEMBER) TRACE (XCL:TRACE-FUNCTION) XCL::*BREAK-HASH-TABLE* ( +CL:MAKE-HASH-TABLE) D-ASSEM::DCODE-FROM-DLAMBDA (CL:FIND) COMPILER::ENV-INLINE-DISALLOWED (CL:MEMBER) +FASL-FILEDATE (FASL:PROCESS-FILE) SI::ADVICE-PUTDEF (XCL:READVISE-FUNCTION) DBG::STACK-FRAME-FETCHFN ( +CL:ASSOC) FASL::NEW-VALUE-TABLE (CL:MAKE-ARRAY) OPENPOSTSCRIPTSTREAM (CL:ASSOC) CL::*TYPEP-HASH-TABLE* + (CL:MAKE-HASH-TABLE) HASH-STAR (CL:MAKE-ARRAY) FB.COPY/RENAME.MANY (STRING-EQUAL) COPY-ARRAY ( +CL:MAKE-ARRAY) XCL::VARIABLE-LEXICALLY-BOUNDP (CL:MEMBER) MAKE-SEQUENCE-OF-TYPE (MAKE-VECTOR) +COMPILER::FRAME-ANNOTATE-RETURN (CL:PUSHNEW) COMP.LABELS (WALK-FORM) *DEFINITION-HASH-TABLE* ( +CL:MAKE-HASH-TABLE) COMPILER::*ARGUMENT-CONTEXT* (COMPILER:MAKE-CONTEXT) CL:PRIN1 (WRITE) CHAT.STARTUP + (CL:ASSOC CL:MEMBER) REMOVE-COMMENTS (CL:MEMBER) OPEN (CL:MEMBER) COMPILER::ALPHA-EVAL-WHEN (CL:MEMBER +) MAPFILES1 (STRING-EQUAL) SI::FINISH-UNADVISING (CL:DELETE) XCL:ADVISE-FUNCTION (XCL:ADVISE-FUNCTION +CL:MEMBER) POSTSCRIPTFILEP (CL:MEMBER) DECLARERECORD (CL:MEMBER) D-ASSEM::DETERMINE-LOCAL-FN-LEXICAL-LEVEL + (CL:MEMBER) FB.SORTCOMMAND (CL:POSITION) READHASHMACRO (CL:MAKE-ARRAY) XCL::*PROFILES* ( +CL:MAKE-HASH-TABLE) SI::HAS-CALLS (CL:FIND) SUBRNUMBER (CL:ASSOC) D-ASSEM:ASSEMBLE-FUNCTION ( +CL:MAKE-HASH-TABLE) COMPILER::ENV-INLINE-ALLOWED (CL:MEMBER) XCL:TRACE-FUNCTION (XCL:TRACE-FUNCTION +CL:DELETE) COMP.TRANSFORM (COMPILER:MAKE-CONTEXT) CHARCODE.DECODE (CL:PARSE-INTEGER) +XCL::HASH-FILE-WHERE-IS (CL:REMOVE-DUPLICATES) CL::%%MAKE-RANDOM-ARRAY (CL:MAKE-ARRAY) CONVERT-LITATOM + (INTERN-LITATOM) CL:MAKE-SEQUENCE (CL:MAKE-LIST) FB.INSERT.FILE (STRING-EQUAL) +RESOLVE-READER-CONFLICT (CL:MEMBER) CANONICAL.HOSTNAME (CL:ASSOC) SI::ADD-CHANGED-CALL (CL:MEMBER +CL:DELETE) FIND-HISTORY-EVENTS (CL:MEMBER) DBG::COLLECT-ACTIVE-ESCAPES (CL:DELETE-DUPLICATES) NIL +FLET D-ASSEM::STACK-ANALYZE-CODE (D-ASSEM::STACK-AMBIGUOUS-ERROR) SI::SPLIT-PROCEED-CLAUSES ( +SI::MAYBE-QUOTE) RAISE-SIGNAL (TRY-TO-HANDLE) CL::INSERT-INCLUDED-SLOT (CL::SAME-SLOT) +SI::EXPAND-CONDITION-CASE (SI::CONSTRUCT-NO-ERROR-CODE) COMPILER::GENCODE-BLOCK ( +COMPILER::GENCODE-CLOSED-OVER-BLOCK) UNTRACE (CL::UNTRACE-ENTRY) REBREAK (REBREAK-FN) READVISE ( +READVISE-ENTRY) RESOLVE-USE-PACKAGE-CONFLICT (XCL::FILTER) COMPILER::START-COMPILATION (COMPILER::DATE-STRING +) RESOLVE-UNINTERN-CONFLICT (XCL::FILTER) WALK-PROCEED-CASES (CONVERT-PROCEED-CASE) +INSTALL-PROTOTYPE-DEFN (MAKE-AND-INSTALL) RESOLVE-MISSING-PACKAGE (FILTER) RESOLVE-EXPORT-CONFLICT ( +XCL::FILTER) CONDITIONS:FIND-RESTART (CONDITIONS::SAME-RESTART) COMPILER::GENCODE-MV-CALL ( +COMPILER::GENERATE-VALUES) RESOLVE-MISSING-EXTERNAL-SYMBOL (FILTER) COMP.LABELS (TRANSFORM) UNBREAK ( +XCL::UNBREAK-ENTRY) RESOLVE-IMPORT-CONFLICT (XCL::FILTER) COMPILER::PROCESS-DECLARATIONS ( +COMPILER::CHECK-VAR-1) UNADVISE (UNADVISE-ENTRY) CL:Y-OR-N-P (CL::READ-CHAR-NOW) TYPESOF (RSHADOW) +READVISE1 (READVISE-ENTRY) WHO-LINE-CONTROL-SELECT (ENTRY-DESCRIPTION) RESOLVE-EXPORT-MISSING ( +XCL::FILTER) XCL::SAME-WHERE-IS-DATABASE (XCL::COERCE-TO-PATHAME) NIL +LABEL COMPILER::META-CALL-LAMBDA-SIMPLIFY-PARAMETERS (COMPILER::ADD-PARAM COMPILER::CLOSE-LAMBDA +COMPILER::NEW-LAMBDA COMPILER::OUTER-LAMBDA-P COMPILER::ENSURE-INNER-LAMBDA) COMPILER:ENV-FBOUNDP ( +COMPILER::FIND-FN) XCL::WALK-MACROLET (XCL::WALK-DEFINITIONS) SI::INSERT-ADVICE-FORM (SI::EQUALISH) +NIL +MACROLET CL:INTEGER-LENGTH (CL::BITS-OR-LESS-P) D-ASSEM::STACK-ANALYZE-CODE (D-ASSEM::CHECK-STACK) +\CONVERT.FLOATING.NUMBER (STRPUT) SI::EXPAND-CONDITION-CASE (SI::BOUND-TYPES) FNUM-STRING (STRPUT) +FASL::DUMP-DCODE (FASL::DUMP-SEQ) COMPILER::PRINT-CONTEXT (COMPILER::OUTPUT) COMPILER::PROCESS-DECLARATIONS + (COMPILER::CHECK-VAR) FLONUM-TO-STRING (STRPUT) COMPILER::PRINT-NODE (COMPILER::NEW-LINE +COMPILER::PRINT-BLIPPER-INFO) PRINT-BITMAPS-NICELY (ELIDE?) \INTERPRET-ARGUMENTS (RECUR WITH-BINDING) +CL:FORMAT (CL::WITH-FORMAT-ESCAPES) ENUM-STRING (STRPUT) \IDATE-PARSE-MONTH (DISCRIMINATE +DISCRIMINATE-1 DISCRIMINATE-2) NIL + +) +(DECLARE%: DONTCOPY + (FILEMAP (NIL))) +STOP diff --git a/loadups/full.dribble b/loadups/full.dribble index 907d71fb9..c8c982046 100644 --- a/loadups/full.dribble +++ b/loadups/full.dribble @@ -1,12 +1,12 @@ -Full loadup started at 30-Apr-2021 14:49:55 while connected to +Full loadup started at 9-Jul-2021 22:28:51 while connected to {DSK}kaplan>Local>medley3.5>git-medley> loading POSTSCRIPTSTREAM -{DSK}kaplan>Local>medley3.5>git-medley>library>POSTSCRIPTSTREAM.LCOM;1 -compiled on 14-May-2018 10:53:32 -File created 14-May-2018 10:52:48 +{DSK}kaplan>Local>medley3.5>git-medley>library>POSTSCRIPTSTREAM.LCOM;11 +compiled on 21-Jun-2021 20:29:51 +File created 21-Jun-2021 20:29:32 POSTSCRIPTSTREAMCOMS Loading FULL fonts... Loading CLASSIC 8 10 12 @@ -16,8 +16,8 @@ Loading FULL fonts... FULL fonts loaded loading CHAT -{DSK}kaplan>Local>medley3.5>git-medley>library>CHAT.LCOM;1 -compiled on 25-Oct-93 12:23:25 +{DSK}kaplan>Local>medley3.5>git-medley>library>CHAT.LCOM;2 +compiled on 13-Jun-2021 22:04:59 File created 20-Jan-93 13:46:52 CHATCOMS @@ -38,9 +38,9 @@ File created 5-Feb-2021 22:18:06 PRESSCOMS loading INTERPRESS -{DSK}kaplan>Local>medley3.5>git-medley>sources>INTERPRESS.LCOM;6 -compiled on 16-Apr-2018 21:56:38 -File created 16-Apr-2018 21:56:38 +{DSK}kaplan>Local>medley3.5>git-medley>sources>INTERPRESS.LCOM;9 +compiled on 27-Jun-2021 23:51:06 +File created 27-Jun-2021 23:50:51 INTERPRESSCOMS loading TEDIT @@ -50,8 +50,8 @@ File created 19-Apr-2018 12:22:03 TEDITCOMS {DSK}kaplan>Local>medley3.5>git-medley>library>TEDITDCL.LCOM;1 -compiled on 18-May-2018 09:17:04 -File created 25-Aug-94 10:53:00 +compiled on 30-Apr-2021 17:26:58 +File created 30-Apr-2021 17:26:17 TEDITDCLCOMS {DSK}kaplan>Local>medley3.5>git-medley>library>PCTREE.LCOM;1 @@ -59,9 +59,9 @@ compiled on 18-May-2018 09:19:35 File created 19-Apr-2018 12:19:49 PCTREECOMS -{DSK}kaplan>Local>medley3.5>git-medley>library>TEXTOFD.LCOM;1 -compiled on 11-Feb-2001 12:06:43 -File created 11-Feb-2001 12:06:42 +{DSK}kaplan>Local>medley3.5>git-medley>library>TEXTOFD.LCOM;2 +compiled on 14-Jun-2021 23:30:39 +File created 6-May-2021 10:18:06 TEXTOFDCOMS {DSK}kaplan>Local>medley3.5>git-medley>library>TEDITCOMMAND.LCOM;1 @@ -69,7 +69,7 @@ compiled on 18-May-2018 09:16:59 File created 20-Apr-2018 08:07:35 TEDITCOMMANDCOMS -{DSK}kaplan>Local>medley3.5>git-medley>library>TEDITSCREEN.LCOM;4 +{DSK}kaplan>Local>medley3.5>git-medley>library>TEDITSCREEN.LCOM;1 compiled on 30-Apr-2021 14:42:15 File created 30-Apr-2021 14:42:15 TEDITSCREENCOMS @@ -94,8 +94,8 @@ compiled on 18-May-2018 09:17:41 File created 29-Jan-99 17:34:39 TEDITHISTORYCOMS -{DSK}kaplan>Local>medley3.5>git-medley>library>TEDITFILE.LCOM;5 -compiled on 30-Apr-2021 14:46:41 +{DSK}kaplan>Local>medley3.5>git-medley>library>TEDITFILE.LCOM;2 +compiled on 12-Jun-2021 12:03:35 File created 30-Apr-2021 14:46:41 TEDITFILECOMS @@ -124,14 +124,14 @@ compiled on 16-Aug-95 11:18:52 File created 25-May-93 00:28:30 READNUMBERCOMS -{DSK}kaplan>Local>medley3.5>git-medley>library>TFBRAVO.LCOM;1 -compiled on 19-Apr-2018 12:19:55 -File created 19-Apr-2018 12:19:55 +{DSK}kaplan>Local>medley3.5>git-medley>library>TFBRAVO.LCOM;2 +compiled on 13-Jun-2021 09:46:34 +File created 13-Jun-2021 09:46:34 TFBRAVOCOMS -{DSK}kaplan>Local>medley3.5>git-medley>library>TEDITHCPY.LCOM;1 -compiled on 18-May-2018 09:17:32 -File created 25-Aug-94 10:54:07 +{DSK}kaplan>Local>medley3.5>git-medley>library>TEDITHCPY.LCOM;3 +compiled on 28-Jun-2021 12:35:45 +File created 28-Jun-2021 12:35:45 TEDITHCPYCOMS {DSK}kaplan>Local>medley3.5>git-medley>library>TEDITPAGE.LCOM;1 @@ -139,7 +139,7 @@ compiled on 18-May-2018 09:18:32 File created 25-Aug-94 10:55:28 TEDITPAGECOMS -{DSK}kaplan>Local>medley3.5>git-medley>library>TEDITMENU.LCOM;4 +{DSK}kaplan>Local>medley3.5>git-medley>library>TEDITMENU.LCOM;1 compiled on 29-Apr-2021 22:44:22 File created 29-Apr-2021 22:44:22 TEDITMENUCOMS @@ -164,11 +164,11 @@ loading READNUMBER loading EDITBITMAP loading FILEBROWSER -{DSK}kaplan>Local>medley3.5>git-medley>library>FILEBROWSER.LCOM;29 -compiled on 27-Feb-2021 20:08:26 +{DSK}kaplan>Local>medley3.5>git-medley>library>FILEBROWSER.LCOM;2 +compiled on 13-Jun-2021 20:53:14 File created 27-Feb-2021 20:08:26 -{DSK}kaplan>Local>medley3.5>git-medley>library>TABLEBROWSER.LCOM;3 +{DSK}kaplan>Local>medley3.5>git-medley>library>TABLEBROWSER.LCOM;1 compiled on 20-Feb-2021 23:04:42 File created 20-Feb-2021 23:02:39 TABLEBROWSERCOMS @@ -180,7 +180,7 @@ File created 1-May-92 16:49:39 THINFILESCOMS loading GRAPHER -{DSK}kaplan>Local>medley3.5>git-medley>library>GRAPHER.LCOM;2 +{DSK}kaplan>Local>medley3.5>git-medley>library>GRAPHER.LCOM;1 compiled on 14-Mar-2021 20:40:31 File created 14-Mar-2021 20:40:30 GRAPHERCOMS @@ -204,7 +204,7 @@ Source file created Monday, 11 June 1990, 16:16:54. FASL file created Friday, 26 February 1993, 11:23:40. -{DSK}kaplan>Local>medley3.5>git-medley>library>CASH-FILE.DFASL;4 +{DSK}kaplan>Local>medley3.5>git-medley>library>CASH-FILE.DFASL;5 XCL Compiler output for source file {DSK}local>lde>lispcore>library>CASH-FILE.;2 Source file created 11-Jun-90 14:33:44 FASL file created Saturday, 19 September 2020, 22:04:31 @@ -231,10 +231,10 @@ FASL file created Sunday, 28 February 1993, 23:24:50. loading MASTERSCOPE -{DSK}kaplan>Local>medley3.5>git-medley>library>MASTERSCOPE.DFASL;4 -XCL Compiler output for source file {DSK}larry>ilisp>medley>library>MASTERSCOPE.;6 -Source file created 7-Mar-2021 19:39:11 -FASL file created Sunday, 7 March 2021, 20:20:40 +{DSK}kaplan>Local>medley3.5>git-medley>library>MASTERSCOPE.DFASL;5 +XCL Compiler output for source file {DSK}kaplan>Local>medley3.5>git-medley>library>MASTERSCOPE.;6 +Source file created 13-Jun-2021 09:05:17 +FASL file created Sunday, 13 June 2021, 9:05:17 {DSK}kaplan>Local>medley3.5>git-medley>library>MSCOMMON.DFASL;1 @@ -256,15 +256,15 @@ File created 25-Apr-2018 07:31:56 UNIXCOMMCOMS loading UNICODE -{DSK}kaplan>Local>medley3.5>git-medley>library>UNICODE.LCOM;21 -compiled on 1-Feb-2021 18:00:30 -File created 1-Feb-2021 18:00:30 +{DSK}kaplan>Local>medley3.5>git-medley>library>UNICODE.LCOM;26 +compiled on 3-Jul-2021 13:37:33 +File created 3-Jul-2021 13:37:33 UNICODECOMS loading ISO8859IO -{DSK}kaplan>Local>medley3.5>git-medley>lispusers>ISO8859IO.LCOM;3 -compiled on 24-Apr-2021 17:06:43 -File created 24-Apr-2021 17:06:30 +{DSK}kaplan>Local>medley3.5>git-medley>lispusers>ISO8859IO.LCOM;13 +compiled on 23-Jun-2021 17:00:30 +File created 23-Jun-2021 17:00:30 ISO8859IOCOMS loading HELPSYS @@ -273,7 +273,7 @@ compiled on 27-Nov-2020 11:23:11 File created 27-Nov-2020 09:47:44 HELPSYSCOMS -{DSK}kaplan>Local>medley3.5>git-medley>lispusers>DINFO.LCOM;6 +{DSK}kaplan>Local>medley3.5>git-medley>lispusers>DINFO.LCOM;1 compiled on 14-Feb-2021 23:11:53 File created 14-Feb-2021 23:11:36 DINFOCOMS @@ -286,21 +286,21 @@ HASHCOMS Reading IRM graph...OK.loading DINFO loading CLIPBOARD -{DSK}kaplan>Local>medley3.5>git-medley>library>CLIPBOARD.LCOM;9 -compiled on 23-Feb-2021 22:13:09 -File created 23-Feb-2021 22:13:09 +{DSK}kaplan>Local>medley3.5>git-medley>library>CLIPBOARD.LCOM;6 +compiled on 3-Jul-2021 13:16:26 +File created 3-Jul-2021 13:16:26 CLIPBOARDCOMS loading MODERNIZE -{DSK}kaplan>Local>medley3.5>git-medley>lispusers>MODERNIZE.LCOM;14 -compiled on 14-Mar-2021 20:33:34 -File created 14-Mar-2021 20:33:34 +{DSK}kaplan>Local>medley3.5>git-medley>lispusers>MODERNIZE.LCOM;16 +compiled on 8-Jul-2021 23:33:42 +File created 8-Jul-2021 23:33:42 MODERNIZECOMS loading PRETTYFILEINDEX -{DSK}kaplan>Local>medley3.5>git-medley>lispusers>PRETTYFILEINDEX.LCOM;2 -compiled on 28-Jun-99 17:13:58 -File created 28-Jun-99 17:13:51 +{DSK}kaplan>Local>medley3.5>git-medley>lispusers>PRETTYFILEINDEX.LCOM;6 +compiled on 9-Jul-2021 21:55:15 +File created 9-Jul-2021 21:55:15 PRETTYFILEINDEXCOMS loading WHO-LINE diff --git a/loadups/full.sysout b/loadups/full.sysout index 70b6b81c6..31a5a1462 100644 Binary files a/loadups/full.sysout and b/loadups/full.sysout differ diff --git a/loadups/lisp.dribble b/loadups/lisp.dribble index 52e02fc9f..6262ac0a8 100644 --- a/loadups/lisp.dribble +++ b/loadups/lisp.dribble @@ -48,6 +48,7 @@ IOCHAR bootloaded LLDATATYPE bootloaded LLSTK bootloaded LLCHAR bootloaded +XCCS bootloaded LLREAD bootloaded LLBIGNUM bootloaded LLFLOAT bootloaded @@ -101,8 +102,8 @@ compiled on 25-Jan-98 13:15:12 File created 16-May-90 16:27:39 loading CMLARITH -{DSK}kaplan>Local>medley3.5>git-medley>sources>CMLARITH.LCOM;1 -compiled on 25-Jan-98 09:40:28 +{DSK}kaplan>Local>medley3.5>git-medley>sources>CMLARITH.LCOM;2 +compiled on 13-Jun-2021 21:16:13 File created 4-Jan-93 17:38:48 loading CONDITION-HIERARCHY @@ -134,8 +135,8 @@ File created 1-Dec-92 02:18:56 loading FASLOAD {DSK}kaplan>Local>medley3.5>git-medley>sources>FASLOAD.LCOM;1 -compiled on 31-Jan-98 09:39:23 -File created 25-Nov-92 12:35:33 +compiled on 10-Jun-2021 18:26:43 +File created 10-Jun-2021 18:26:43 loading DEFFER-RUNTIME {DSK}kaplan>Local>medley3.5>git-medley>sources>DEFFER-RUNTIME.LCOM;1 @@ -143,13 +144,13 @@ compiled on 25-Jan-98 12:24:48 File created 16-May-90 15:30:14 loading CMLPRINT -{DSK}kaplan>Local>medley3.5>git-medley>sources>CMLPRINT.LCOM;1 -compiled on 25-Jan-98 10:30:50 +{DSK}kaplan>Local>medley3.5>git-medley>sources>CMLPRINT.LCOM;2 +compiled on 13-Jun-2021 21:13:01 File created 16-May-90 14:19:58 loading CLSTREAMS -{DSK}kaplan>Local>medley3.5>git-medley>sources>CLSTREAMS.LCOM;1 -compiled on 25-Jan-98 09:36:01 +{DSK}kaplan>Local>medley3.5>git-medley>sources>CLSTREAMS.LCOM;2 +compiled on 13-Jun-2021 21:15:29 File created 3-Apr-91 15:11:53 loading CMLSTRING @@ -271,19 +272,19 @@ File created 23-Oct-91 16:39:18 WEDITCOMS loading PRETTY -{DSK}kaplan>Local>medley3.5>git-medley>sources>PRETTY.LCOM;9 -compiled on 21-Feb-2021 10:59:08 -File created 21-Feb-2021 10:59:08 +{DSK}kaplan>Local>medley3.5>git-medley>sources>PRETTY.LCOM;20 +compiled on 9-Jul-2021 14:12:19 +File created 9-Jul-2021 14:12:19 PRETTYCOMS loading DSPRINTDEF -{DSK}kaplan>Local>medley3.5>git-medley>sources>DSPRINTDEF.LCOM;1 -compiled on 25-Jan-98 12:58:43 +{DSK}kaplan>Local>medley3.5>git-medley>sources>DSPRINTDEF.LCOM;2 +compiled on 13-Jun-2021 20:56:35 File created 19-Jan-93 10:27:05 DSPRINTDEFCOMS loading NEWPRINTDEF -{DSK}kaplan>Local>medley3.5>git-medley>sources>NEWPRINTDEF.LCOM;2 +{DSK}kaplan>Local>medley3.5>git-medley>sources>NEWPRINTDEF.LCOM;3 compiled on 31-Dec-2000 11:53:35 File created 31-Dec-2000 11:53:33 NEWPRINTDEFCOMS @@ -301,29 +302,29 @@ File created 28-Apr-92 15:38:21 SPELLFILECOMS loading PRINTFN -{DSK}kaplan>Local>medley3.5>git-medley>sources>PRINTFN.LCOM;4 -compiled on 16-Apr-2018 21:40:32 -File created 16-Apr-2018 21:40:32 +{DSK}kaplan>Local>medley3.5>git-medley>sources>PRINTFN.LCOM;17 +compiled on 27-Jun-2021 23:29:20 +File created 27-Jun-2021 23:29:20 PRINTFNCOMS loading LOADFNS -{DSK}kaplan>Local>medley3.5>git-medley>sources>LOADFNS.LCOM;10 +{DSK}kaplan>Local>medley3.5>git-medley>sources>LOADFNS.LCOM;11 compiled on 16-Apr-2018 17:38:16 File created 16-Apr-2018 17:38:16 LOADFNSCOMS loading DMISC loading DIRECTORY -{DSK}kaplan>Local>medley3.5>git-medley>sources>DIRECTORY.LCOM;1 -compiled on 25-Jan-98 12:34:36 +{DSK}kaplan>Local>medley3.5>git-medley>sources>DIRECTORY.LCOM;3 +compiled on 13-Jun-2021 20:54:06 File created 30-Apr-92 15:04:56 DIRECTORYCOMS loading SPELLFILE loading FILEPKG -{DSK}kaplan>Local>medley3.5>git-medley>sources>FILEPKG.LCOM;1 -compiled on 12-Feb-2021 17:16:06 -File created 12-Feb-2021 17:16:04 +{DSK}kaplan>Local>medley3.5>git-medley>sources>FILEPKG.LCOM;5 +compiled on 3-Jul-2021 11:08:42 +File created 3-Jul-2021 11:08:42 FILEPKGCOMS loading RESOURCE @@ -449,9 +450,9 @@ compiled on 25-Jan-98 10:30:39 File created 16-May-90 14:19:02 loading CMLREAD -{DSK}kaplan>Local>medley3.5>git-medley>sources>CMLREAD.LCOM;1 -compiled on 25-Jan-98 10:32:12 -File created 19-Jan-93 10:25:51 +{DSK}kaplan>Local>medley3.5>git-medley>sources>CMLREAD.LCOM;10 +compiled on 9-Jul-2021 08:09:06 +File created 9-Jul-2021 08:09:06 loading WALKER {DSK}kaplan>Local>medley3.5>git-medley>sources>WALKER.DFASL;1 @@ -483,8 +484,8 @@ FASL file created Sunday, 25 January 1998, 12:25:14. loading CMLMISCIO -{DSK}kaplan>Local>medley3.5>git-medley>sources>CMLMISCIO.LCOM;1 -compiled on 25-Jan-98 10:24:15 +{DSK}kaplan>Local>medley3.5>git-medley>sources>CMLMISCIO.LCOM;2 +compiled on 14-Jun-2021 23:16:31 File created 16-May-90 13:33:00 loading CMLCOMPILE @@ -531,7 +532,7 @@ compiled on 25-Jan-98 10:31:47 File created 16-May-90 14:21:56 loading CMLMODULES -{DSK}kaplan>Local>medley3.5>git-medley>sources>CMLMODULES.DFASL;4 +{DSK}kaplan>Local>medley3.5>git-medley>sources>CMLMODULES.DFASL;5 XCL Compiler output for source file {DSK}kaplan>Local>medley3.5>lispcore>sources>CMLMODULES.;2 Source file created Monday, 16 April 2018, 22:46:19. FASL file created Monday, 16 April 2018, 22:46:19. @@ -584,7 +585,7 @@ File created 16-May-90 11:46:37 loading CMLPATHNAME loading HPRINT -{DSK}kaplan>Local>medley3.5>git-medley>sources>HPRINT.LCOM;3 +{DSK}kaplan>Local>medley3.5>git-medley>sources>HPRINT.LCOM;1 compiled on 26-Apr-2021 14:46:05 File created 26-Apr-2021 14:45:00 loading AARITH @@ -595,9 +596,9 @@ File created 16-May-90 11:41:16 AARITHCOMS loading ADISPLAY -{DSK}kaplan>Local>medley3.5>git-medley>sources>ADISPLAY.LCOM;1 -compiled on 28-Jan-98 10:53:47 -File created 15-Sep-94 17:07:04 +{DSK}kaplan>Local>medley3.5>git-medley>sources>ADISPLAY.LCOM;3 +compiled on 13-Jun-2021 14:03:35 +File created 13-Jun-2021 14:03:35 ADISPLAYCOMS loading HLDISPLAY @@ -618,15 +619,15 @@ File created 19-Jan-93 11:26:14 WINDOWOBJCOMS loading WINDOWSCROLL -{DSK}kaplan>Local>medley3.5>git-medley>sources>WINDOWSCROLL.LCOM;2 +{DSK}kaplan>Local>medley3.5>git-medley>sources>WINDOWSCROLL.LCOM;1 compiled on 17-Feb-2021 13:49:06 File created 17-Feb-2021 13:49:06 WINDOWSCROLLCOMS loading WINDOW -{DSK}kaplan>Local>medley3.5>git-medley>sources>WINDOW.LCOM;1 -compiled on 9-Apr-2000 17:38:50 -File created 9-Apr-2000 17:36:29 +{DSK}kaplan>Local>medley3.5>git-medley>sources>WINDOW.LCOM;2 +compiled on 13-Jun-2021 10:14:32 +File created 13-Jun-2021 10:14:32 {DSK}kaplan>Local>medley3.5>git-medley>sources>PAINTW.LCOM;1 compiled on 16-Jul-99 15:49:39 @@ -646,24 +647,24 @@ File created 28-Jun-99 17:18:50 ATTACHEDWINDOWCOMS loading XXGEOM -{DSK}kaplan>Local>medley3.5>git-medley>sources>XXGEOM.LCOM;1 -compiled on 26-Jan-98 14:03:05 -File created 19-Jan-93 11:30:54 +{DSK}kaplan>Local>medley3.5>git-medley>sources>XXGEOM.LCOM;2 +compiled on 13-Jun-2021 14:42:16 +File created 13-Jun-2021 14:39:29 XXGEOMCOMS loading XXFILL -{DSK}kaplan>Local>medley3.5>git-medley>sources>XXFILL.LCOM;1 -compiled on 26-Jan-98 14:02:40 -File created 19-Jan-93 11:29:57 +{DSK}kaplan>Local>medley3.5>git-medley>sources>XXFILL.LCOM;2 +compiled on 13-Jun-2021 14:41:45 +File created 13-Jun-2021 14:41:44 XXFILLCOMS loading DEXEC -{DSK}kaplan>Local>medley3.5>git-medley>sources>DEXEC.LCOM;12 +{DSK}kaplan>Local>medley3.5>git-medley>sources>DEXEC.LCOM;13 compiled on 13-Aug-2020 12:36:18 File created 13-Aug-2020 12:36:18 loading INSPECT -{DSK}kaplan>Local>medley3.5>git-medley>sources>INSPECT.LCOM;7 +{DSK}kaplan>Local>medley3.5>git-medley>sources>INSPECT.LCOM;8 compiled on 21-Apr-2018 08:08:07 File created 21-Apr-2018 08:08:07 INSPECTCOMS @@ -681,7 +682,7 @@ compiled on 25-Jan-98 09:53:09 File created 31-Dec-93 12:26:35 CMLARRAYINSPECTORCOMS -{DSK}kaplan>Local>medley3.5>git-medley>sources>TWODINSPECTOR.LCOM;6 +{DSK}kaplan>Local>medley3.5>git-medley>sources>TWODINSPECTOR.LCOM;2 compiled on 19-Feb-2021 14:31:33 File created 19-Feb-2021 14:31:33 TWODINSPECTORCOMS @@ -696,9 +697,9 @@ compiled on 25-Jan-98 13:12:33 File created 7-Nov-91 18:15:13 loading TTYIN -{DSK}kaplan>Local>medley3.5>git-medley>sources>TTYIN.LCOM;1 -compiled on 26-Jan-98 13:49:55 -File created 24-May-91 11:33:53 +{DSK}kaplan>Local>medley3.5>git-medley>sources>TTYIN.LCOM;3 +compiled on 13-Jun-2021 10:11:51 +File created 13-Jun-2021 10:11:51 TTYINCOMS loading BREAK-AND-TRACE @@ -731,7 +732,7 @@ Source file created Wednesday, 23 May 1990, 13:17:15. FASL file created Monday, 26 January 1998, 14:01:24. -{DSK}kaplan>Local>medley3.5>git-medley>sources>XCLC-TOP-LEVEL.DFASL;9 +{DSK}kaplan>Local>medley3.5>git-medley>sources>XCLC-TOP-LEVEL.DFASL;10 XCL Compiler output for source file {DSK}kaplan>Local>medley3.5>lispcore>sources>XCLC-TOP-LEVEL.;10 Source file created 19-Sep-2020 22:02:59 FASL file created Saturday, 19 September 2020, 22:02:59 @@ -790,20 +791,20 @@ compiled on 31-Jan-98 10:01:22 File created 25-Jan-93 16:56:13 loading BYTECOMPILER -{DSK}kaplan>Local>medley3.5>git-medley>sources>BYTECOMPILER.LCOM;1 -compiled on 25-Jan-98 09:21:09 -File created 26-Apr-91 17:25:53 +{DSK}kaplan>Local>medley3.5>git-medley>sources>BYTECOMPILER.LCOM;2 +compiled on 13-Jun-2021 09:51:42 +File created 13-Jun-2021 09:51:42 loading COMPILE -{DSK}kaplan>Local>medley3.5>git-medley>sources>COMPILE.LCOM;1 -compiled on 25-Jan-98 11:41:58 -File created 27-Jul-90 11:15:42 +{DSK}kaplan>Local>medley3.5>git-medley>sources>COMPILE.LCOM;4 +compiled on 5-Jul-2021 13:46:39 +File created 5-Jul-2021 13:46:39 COMPILECOMS loading HARDCOPY -{DSK}kaplan>Local>medley3.5>git-medley>sources>HARDCOPY.LCOM;6 -compiled on 16-Apr-2018 22:15:08 -File created 16-Apr-2018 22:15:08 +{DSK}kaplan>Local>medley3.5>git-medley>sources>HARDCOPY.LCOM;9 +compiled on 14-Jun-2021 22:43:46 +File created 5-May-2021 19:41:55 HARDCOPYCOMS loading LOGOW @@ -820,8 +821,8 @@ File created 23-Mar-92 13:38:29 IDLERCOMS loading ICONW -{DSK}kaplan>Local>medley3.5>git-medley>sources>ICONW.LCOM;1 -compiled on 25-Jan-98 14:23:21 +{DSK}kaplan>Local>medley3.5>git-medley>sources>ICONW.LCOM;2 +compiled on 13-Jun-2021 20:58:49 File created 16-May-90 18:16:27 ICONWCOMS loading FREEMENU @@ -839,7 +840,7 @@ Source file created Tuesday, 19 January 1993, 11:16:06. FASL file created Monday, 26 January 1998, 13:30:23. -{DSK}kaplan>Local>medley3.5>git-medley>sources>SEDIT-ATOMIC.DFASL;2 +{DSK}kaplan>Local>medley3.5>git-medley>sources>SEDIT-ATOMIC.DFASL;3 XCL Compiler output for source file {DSK}local>lde>lispcore>sources>SEDIT-ATOMIC.;3 Source file created 16-May-90 21:37:57 FASL file created Sunday, 20 September 2020, 21:00:28 @@ -851,7 +852,7 @@ Source file created Wednesday, 2 December 1992, 17:40:24. FASL file created Monday, 26 January 1998, 13:31:04. -{DSK}kaplan>Local>medley3.5>git-medley>sources>SEDIT-COMMANDS.DFASL;3 +{DSK}kaplan>Local>medley3.5>git-medley>sources>SEDIT-COMMANDS.DFASL;4 XCL Compiler output for source file {DSK}kaplan>Local>medley3.5>lispcore>sources>SEDIT-COMMANDS.;3 Source file created Monday, 23 April 2018, 18:12:52. FASL file created Monday, 23 April 2018, 18:13:51. @@ -905,7 +906,7 @@ Source file created Wednesday, 10 July 1991, 19:03:29. FASL file created Monday, 26 January 1998, 13:36:04. -{DSK}kaplan>Local>medley3.5>git-medley>sources>SEDIT-WINDOW.DFASL;2 +{DSK}kaplan>Local>medley3.5>git-medley>sources>SEDIT-WINDOW.DFASL;3 XCL Compiler output for source file {DSK}kaplan>Local>medley3.5>lispcore>sources>SEDIT-WINDOW.;2 Source file created Monday, 14 May 2018, 14:12:02. FASL file created Monday, 14 May 2018, 14:12:02. @@ -916,7 +917,7 @@ loading UFSCALLC loading MAIKOBITBLT loading TIME -{DSK}kaplan>Local>medley3.5>git-medley>sources>TIME.LCOM;4 +{DSK}kaplan>Local>medley3.5>git-medley>sources>TIME.LCOM;5 compiled on 16-Apr-2018 23:05:17 File created 16-Apr-2018 23:05:10 loading BRKDWN @@ -979,14 +980,14 @@ File created 19-Jan-93 10:41:31 LEAFCOMS loading LLETHER -{DSK}kaplan>Local>medley3.5>git-medley>sources>LLETHER.LCOM;1 -compiled on 25-Jan-98 15:52:04 +{DSK}kaplan>Local>medley3.5>git-medley>sources>LLETHER.LCOM;2 +compiled on 13-Jun-2021 21:03:10 File created 19-Jan-93 10:49:30 LLETHERCOMS loading DPUPFTP -{DSK}kaplan>Local>medley3.5>git-medley>sources>DPUPFTP.LCOM;1 -compiled on 25-Jan-98 12:54:18 +{DSK}kaplan>Local>medley3.5>git-medley>sources>DPUPFTP.LCOM;2 +compiled on 13-Jun-2021 21:11:45 File created 16-May-90 16:10:35 DPUPFTPCOMS loading LOCALFILE diff --git a/loadups/lisp.sysout b/loadups/lisp.sysout index 40d3f5a2d..8580dcb44 100644 Binary files a/loadups/lisp.sysout and b/loadups/lisp.sysout differ diff --git a/loadups/whereis.dribble b/loadups/whereis.dribble index fa8e743e2..0fccf5723 100644 --- a/loadups/whereis.dribble +++ b/loadups/whereis.dribble @@ -1,382 +1,384 @@ -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>10MBDECLS.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>10MBDRIVER.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>AARITH.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>ABASIC.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>ACODE.;6 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>ADDARITH.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>ADIR.;10 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>ADISPLAY.;9 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>ADVISE.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>AERROR.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>AFONT.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>AINTERRUPT.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>AOFD.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>APRINT.;4 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>APUTDQ.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>ARGLIST.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>ASKUSER.;8 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>ASTACK.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>ATBL.;10 . -Warning: Error attempting to LOADVARS (CCECHOMODES TERMCLASSES READCODEMASKS READMACROCONTEXTS READCLASSES READMACROWAKEUPS READMACROESCAPES) from {DSK}kaplan>Local>medley3.5>git-medley>sources>ATBL.;10. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>10MBDECLS.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>10MBDRIVER.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>AARITH.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>ABASIC.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>ACODE.;4 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>ADDARITH.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>ADIR.;9 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>ADISPLAY.;10 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>ADVISE.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>AERROR.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>AFONT.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>AINTERRUPT.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>AOFD.;2 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>APRINT.;3 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>APUTDQ.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>ARGLIST.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>ASKUSER.;6 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>ASTACK.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>ATBL.;11 . +Warning: Error attempting to LOADVARS (IL:CCECHOMODES IL:TERMCLASSES IL:READCODEMASKS IL:READMACROCONTEXTS IL:READCLASSES IL:READMACROWAKEUPS IL:READMACROESCAPES) from {DSK}kaplan>Local>medley3.5>git-medley>sources>ATBL.;11. .. done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>ATERM.;4 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>ATTACHEDWINDOW.;5 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>AUTHENTICATION.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>BOOTSTRAP.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>BREAK-AND-TRACE.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>BRKDWN.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>BSP.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>BYTECOMPILER.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>CL-ERROR.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>CLEARINGHOUSE.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>CLISP.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>CLISPIFY.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>CLOSURE-CACHE.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>CLSTREAMS.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>CMLARITH.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>CMLARRAY.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>CMLARRAY-SUPPORT.;2 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>CMLARRAYINSPECTOR.;4 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>CMLCHARACTER.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>CMLCOMPILE.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>CMLDEFFER.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>CMLDESTRUCT.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>CMLDOC.;3 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>ATERM.;2 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>ATTACHEDWINDOW.;4 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>AUTHENTICATION.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>BOOTSTRAP.;20 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>BREAK-AND-TRACE.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>BRKDWN.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>BSP.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>BYTECOMPILER.;2 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>CL-ERROR.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>CLEARINGHOUSE.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>CLISP.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>CLISPIFY.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>CLOSURE-CACHE.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>CLSTREAMS.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>CMLARITH.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>CMLARRAY.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>CMLARRAY-SUPPORT.;3 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>CMLARRAYINSPECTOR.;3 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>CMLCHARACTER.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>CMLCOMPILE.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>CMLDEFFER.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>CMLDESTRUCT.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>CMLDOC.;1 ... done. ;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>CMLENVIRONMENT.;1 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>CMLEVAL.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>CMLEXEC.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>CMLFILESYS.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>CMLFLOAT.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>CMLFORMAT.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>CMLHASH.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>CMLLIST.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>CMLLOAD.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>CMLMACROS.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>CMLMISCIO.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>CMLMODULES.;4 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>CMLMVS.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>CMLPACKAGE.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>CMLPARSE.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>CMLPATHNAME.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>CMLPRED.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>CMLPRINT.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>CMLPROGV.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>CMLRAND.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>CMLREAD.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>CMLREADTABLE.;6 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>CMLSEQ.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>CMLSEQBASICS.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>CMLSEQCOMMON.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>CMLSEQFINDER.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>CMLSEQMAPPERS.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>CMLSEQMODIFY.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>CMLSETF.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>CMLSMARTARGS.;2 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>CMLSORT.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>CMLSPECIALFORMS.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>CMLSTEP.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>CMLSTRING.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>CMLSYMBOL.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>CMLTIME.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>CMLTYPES.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>CMLUNDO.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>CMLWALK.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>COMMENT.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>COMMON.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>COMPARE.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>COMPATIBILITY.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>COMPILE.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>COMPILER-PACKAGE.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>CONDITION-HIERARCHY.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>CONDITION-HIERARCHY-IL.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>CONDITION-HIERARCHY-POST-SI.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>CONDITION-HIERARCHY-SI.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>CONDITION-PACKAGE.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>COREIO.;6 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>COROUTINE.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>COURIER.;2 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>D-ASSEM.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>D-ASSEM-PACKAGE.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>DEBUGEDIT.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>DEBUGGER.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>DEFFER-RUNTIME.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>DEFPACKAGE-IMPORT.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>DEFSTRUCT.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>DEFSTRUCT-RUN-TIME.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>DESCRIBE.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>DEXEC.;12 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>DFILE.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>DIRECTORY.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>DISKDLION.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>DISKVMEMDECLS.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>DLAP.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>DMISC.;3 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>CMLEVAL.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>CMLEXEC.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>CMLFILESYS.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>CMLFLOAT.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>CMLFORMAT.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>CMLHASH.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>CMLLIST.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>CMLLOAD.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>CMLMACROS.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>CMLMISCIO.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>CMLMODULES.;3 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>CMLMVS.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>CMLPACKAGE.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>CMLPARSE.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>CMLPATHNAME.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>CMLPRED.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>CMLPRINT.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>CMLPROGV.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>CMLRAND.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>CMLREAD.;9 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>CMLREADTABLE.;5 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>CMLSEQ.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>CMLSEQBASICS.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>CMLSEQCOMMON.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>CMLSEQFINDER.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>CMLSEQMAPPERS.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>CMLSEQMODIFY.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>CMLSETF.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>CMLSMARTARGS.;3 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>CMLSORT.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>CMLSPECIALFORMS.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>CMLSTEP.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>CMLSTRING.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>CMLSYMBOL.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>CMLTIME.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>CMLTYPES.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>CMLUNDO.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>CMLWALK.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>COMMENT.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>COMMON.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>COMPARE.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>COMPATIBILITY.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>COMPILE.;4 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>COMPILER-PACKAGE.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>CONDITION-HIERARCHY.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>CONDITION-HIERARCHY-IL.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>CONDITION-HIERARCHY-POST-SI.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>CONDITION-HIERARCHY-SI.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>CONDITION-PACKAGE.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>COREIO.;5 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>COROUTINE.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>COURIER.;3 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>D-ASSEM.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>D-ASSEM-PACKAGE.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>DEBUGEDIT.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>DEBUGGER.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>DEFFER-RUNTIME.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>DEFPACKAGE-IMPORT.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>DEFSTRUCT.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>DEFSTRUCT-RUN-TIME.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>DESCRIBE.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>DEXEC.;11 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>DFILE.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>DIRECTORY.;2 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>DISKDLION.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>DISKVMEMDECLS.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>DLAP.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>DMISC.;1 ... done. ;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>DOVEDECLS.;1 ... done. ;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>DOVEETHERDECLS.;1 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>DPUPFTP.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>DSK.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>DSKDISPLAY.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>DSPRINTDEF.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>DTDECLARE.;4 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>DWIM.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>DWIMIFY.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>EDIT.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>EDITINTERFACE.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>ERROR-RUNTIME.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>ERROR-RUNTIME-AFTER-FASL.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>EXEC-COMMANDS.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>FASDUMP.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>FASL-PACKAGE.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>FASL-SUPPORT.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>FASLOAD.;4 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>FILEIO.;16 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>FILEPKG.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>FILESETS.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>FONT.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>FONTPROFILE.;4 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>FONTPROFILEPATCH.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>FREEMENU.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>GAINSPACE.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>HARDCOPY.;8 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>HIST.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>HLDISPLAY.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>HPRINT.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>ICONW.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>IDLER.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>IL-ERROR-STUFF.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>IMAGEIO.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>IMPLICIT-KEY-HASH.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>INSPECT.;9 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>INSPECT-CLOSURE.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>INTERPRESS.;8 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>IOCHAR.;7 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>LEAF.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>LISP-PACKAGE.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>LLARITH.;3 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>DPUPFTP.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>DSK.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>DSKDISPLAY.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>DSPRINTDEF.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>DTDECLARE.;3 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>DWIM.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>DWIMIFY.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>EDIT.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>EDITINTERFACE.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>ERROR-RUNTIME.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>ERROR-RUNTIME-AFTER-FASL.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>EXEC-COMMANDS.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>FASDUMP.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>FASL-PACKAGE.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>FASL-SUPPORT.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>FASLOAD.;3 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>FILEIO.;58 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>FILEPKG.;5 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>FILESETS.;6 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>FONT.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>FONTPROFILE.;2 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>FONTPROFILEPATCH.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>FREEMENU.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>GAINSPACE.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>HARDCOPY.;7 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>HIST.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>HLDISPLAY.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>HPRINT.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>ICONW.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>IDLER.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>IL-ERROR-STUFF.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>IMAGEIO.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>IMPLICIT-KEY-HASH.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>INSPECT.;8 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>INSPECT-CLOSURE.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>INTERPRESS.;9 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>IOCHAR.;6 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>JAPANESE.;6 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>LEAF.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>LISP-PACKAGE.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>LLARITH.;1 ... done. ;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>LLARRAYELT.;1 ... done. ;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>LLBASIC.;1 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>LLBFS.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>LLBIGNUM.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>LLCHAR.;4 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>LLCODE.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>LLDATATYPE.;14 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>LLDISPLAY.;4 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>LLERROR.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>LLETHER.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>LLFAULT.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>LLFLOAT.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>LLGC.;5 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>LLINTERP.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>LLKEY.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>LLMVS.;4 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>LLNEW.;17 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>LLNS.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>LLNSDECLS.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>LLPACKAGE.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>LLPARAMS.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>LLREAD.;5 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>LLRESTART.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>LLSTK.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>LLSUBRS.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>LLSYMBOL.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>LLTIMER.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>LOADFNS.;9 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>LOADUP-FULL.;5 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>LOADUP-LISP.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>LOCALFILE.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>LOGOW.;5 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>MACHINEINDEPENDENT.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>MACROAUX.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>MACROAUX-OPTIMIZERS.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>MACROS.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>MAIKOBITBLT.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>MAIKOETHER.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>MAIKOINIT.;1 .Warning: Error attempting to LOADVARS (MAIKOINITCOMS) from {DSK}kaplan>Local>medley3.5>git-medley>sources>MAIKOINIT.;1. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>MAIKOLOADUPFNS.;5 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>MAKEINIT.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>MEM.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>MENU.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>MISC.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>MOD44IO.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>MODARITH.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>NEWPRINTDEF.;4 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>NSFILING.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>NSPRINT.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>PACKAGE-CONVERSION-TABLE.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>PACKAGE-STARTUP.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>PAINTW.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>PASSWORDS.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>PMAP.;4 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>POSTLOADUP.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>PRETTY.;12 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>PRINTFN.;6 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>PROC.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>PROFILE.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>PUP.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>READSYS.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>RECORD.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>RENAMEFNS.;4 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>RENAMEMACROS.;2 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>RESOURCE.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>SEDIT.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>SEDIT-ACCESS.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>SEDIT-ATOMIC.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>SEDIT-BASE.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>SEDIT-COMMANDS.;5 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>SEDIT-COMMENTS.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>SEDIT-CONVERT.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>SEDIT-DEBUG.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>SEDIT-DECLS.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>SEDIT-EXPORTS.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>SEDIT-INDENT.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>SEDIT-LINEAR.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>SEDIT-LIST-FORMATS.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>SEDIT-LISTS.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>SEDIT-TERMINAL.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>SEDIT-TOPLEVEL.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>SEDIT-WINDOW.;4 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>SETF-RUNTIME.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>SPELL.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>SPELLFILE.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>SPP.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>SPPDECLS.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>STACKFNS.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>SYSPRETTY.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>TCPHTE.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>TIME.;5 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>TRSERVER.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>TTYIN.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>TWODINSPECTOR.;8 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>UFS.;7 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>UFSCALLC.;4 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>UNDO.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>UNWINDMACROS.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>VANILLADISK.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>VMEM.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>WALKER.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>WEDIT.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>WINDOW.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>WINDOWICON.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>WINDOWOBJ.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>WINDOWSCROLL.;4 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>LLBFS.;2 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>LLBIGNUM.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>LLCHAR.;6 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>LLCODE.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>LLDATATYPE.;12 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>LLDISPLAY.;3 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>LLERROR.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>LLETHER.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>LLFAULT.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>LLFLOAT.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>LLGC.;4 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>LLINTERP.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>LLKEY.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>LLMVS.;2 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>LLNEW.;16 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>LLNS.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>LLNSDECLS.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>LLPACKAGE.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>LLPARAMS.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>LLREAD.;47 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>LLRESTART.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>LLSTK.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>LLSUBRS.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>LLSYMBOL.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>LLTIMER.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>LOADFNS.;8 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>LOADUP-FULL.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>LOADUP-LISP.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>LOCALFILE.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>LOGOW.;3 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>MACHINEINDEPENDENT.;4 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>MACROAUX.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>MACROAUX-OPTIMIZERS.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>MACROS.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>MAIKOBITBLT.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>MAIKOETHER.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>MAIKOINIT.;1 .Warning: Error attempting to LOADVARS (IL:MAIKOINITCOMS) from {DSK}kaplan>Local>medley3.5>git-medley>sources>MAIKOINIT.;1. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>MAIKOLOADUPFNS.;3 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>MAKEINIT.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>MEM.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>MENU.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>MISC.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>MOD44IO.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>MODARITH.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>NEWPRINTDEF.;3 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>NSFILING.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>NSPRINT.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>PACKAGE-CONVERSION-TABLE.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>PACKAGE-STARTUP.;2 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>PAINTW.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>PASSWORDS.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>PMAP.;6 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>POSTLOADUP.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>PRETTY.;19 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>PRINTFN.;16 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>PROC.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>PROFILE.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>PUP.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>READSYS.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>RECORD.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>RENAMEFNS.;3 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>RENAMEMACROS.;3 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>RESOURCE.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>SEDIT.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>SEDIT-ACCESS.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>SEDIT-ATOMIC.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>SEDIT-BASE.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>SEDIT-COMMANDS.;4 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>SEDIT-COMMENTS.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>SEDIT-CONVERT.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>SEDIT-DEBUG.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>SEDIT-DECLS.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>SEDIT-EXPORTS.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>SEDIT-INDENT.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>SEDIT-LINEAR.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>SEDIT-LIST-FORMATS.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>SEDIT-LISTS.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>SEDIT-TERMINAL.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>SEDIT-TOPLEVEL.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>SEDIT-WINDOW.;3 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>SETF-RUNTIME.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>SPELL.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>SPELLFILE.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>SPP.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>SPPDECLS.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>STACKFNS.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>SYSPRETTY.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>TCPHTE.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>TIME.;4 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>TRSERVER.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>TTYIN.;5 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>TWODINSPECTOR.;2 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>UFS.;3 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>UFSCALLC.;3 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>UNDO.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>UNWINDMACROS.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>VANILLADISK.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>VMEM.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>WALKER.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>WEDIT.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>WINDOW.;2 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>WINDOWICON.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>WINDOWOBJ.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>WINDOWSCROLL.;1 ... done. ;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>WRAPPERS.;1 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>WTFIX.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>XCL-COMPILER.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>XCL-EXTRAS.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>XCL-PACKAGE.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>XCLC-ALPHA.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>XCLC-ANALYZE.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>XCLC-ANNOTATE.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>XCLC-DATABASE.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>XCLC-ENV-CTXT.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>XCLC-GENCODE.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>XCLC-META-EVAL.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>XCLC-OPTIMIZERS.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>XCLC-PEEPHOLE.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>XCLC-RUNTIME.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>XCLC-TOP-LEVEL.;12 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>XCLC-TRANSFORMS.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>XCLC-TREES.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>XXFILL.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>XXGEOM.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>library>BIGBITMAPS.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>WTFIX.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>XCCS.;36 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>XCL-COMPILER.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>XCL-EXTRAS.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>XCL-PACKAGE.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>XCLC-ALPHA.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>XCLC-ANALYZE.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>XCLC-ANNOTATE.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>XCLC-DATABASE.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>XCLC-ENV-CTXT.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>XCLC-GENCODE.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>XCLC-META-EVAL.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>XCLC-OPTIMIZERS.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>XCLC-PEEPHOLE.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>XCLC-RUNTIME.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>XCLC-TOP-LEVEL.;11 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>XCLC-TRANSFORMS.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>XCLC-TREES.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>XXFILL.;2 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>sources>XXGEOM.;2 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>library>BIGBITMAPS.;5 ... done. ;;; {DSK}kaplan>Local>medley3.5>git-medley>library>BROWSER.;1 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>library>CASH-FILE.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>library>CHARCODETABLES.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>library>CHARDEVICE.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>library>CHARS.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>library>CHAT.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>library>CHATDECLS.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>library>CHATSERVER-EMACS.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>library>CHATTERMINAL.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>library>CLIPBOARD.;55 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>library>CMLFLOATARRAY.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>library>COLOR.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>library>COPYFILES.;4 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>library>DANDELIONKEYBOARDS.;2 .Warning: Error attempting to LOADVARS (DANDELIONKEYBOARDSCOMS) from {DSK}kaplan>Local>medley3.5>git-medley>library>DANDELIONKEYBOARDS.;2. -;;; {DSK}kaplan>Local>medley3.5>git-medley>library>DATABASEFNS.;4 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>library>DEDIT.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>library>DEDITPP.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>library>DES.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>library>DMCHAT.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>library>DORADOKEYBOARDS.;2 .Warning: Error attempting to LOADVARS (DORADOKEYBOARDSCOMS) from {DSK}kaplan>Local>medley3.5>git-medley>library>DORADOKEYBOARDS.;2. -;;; {DSK}kaplan>Local>medley3.5>git-medley>library>DOSPRINT.;4 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>library>DOVEKEYBOARDS.;2 .Warning: Error attempting to LOADVARS (DOVEKEYBOARDSCOMS) from {DSK}kaplan>Local>medley3.5>git-medley>library>DOVEKEYBOARDS.;2. -;;; {DSK}kaplan>Local>medley3.5>git-medley>library>DOVERS232C.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>library>EDITBITMAP.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>library>ETHERRECORDS.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>library>FILE-UPDATE.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>library>FILEBROWSER.;36 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>library>FONTSAMPLE.;3 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>library>CASH-FILE.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>library>CHARCODETABLES.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>library>CHARDEVICE.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>library>CHARS.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>library>CHAT.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>library>CHATDECLS.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>library>CHATSERVER-EMACS.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>library>CHATTERMINAL.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>library>CLIPBOARD.;6 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>library>CMLFLOATARRAY.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>library>COLOR.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>library>COPYFILES.;2 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>library>DANDELIONKEYBOARDS.;3 .Warning: Error attempting to LOADVARS (IL:DANDELIONKEYBOARDSCOMS) from {DSK}kaplan>Local>medley3.5>git-medley>library>DANDELIONKEYBOARDS.;3. +;;; {DSK}kaplan>Local>medley3.5>git-medley>library>DATABASEFNS.;3 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>library>DEDIT.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>library>DEDITPP.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>library>DES.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>library>DMCHAT.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>library>DORADOKEYBOARDS.;3 .Warning: Error attempting to LOADVARS (IL:DORADOKEYBOARDSCOMS) from {DSK}kaplan>Local>medley3.5>git-medley>library>DORADOKEYBOARDS.;3. +;;; {DSK}kaplan>Local>medley3.5>git-medley>library>DOSPRINT.;2 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>library>DOVEKEYBOARDS.;3 .Warning: Error attempting to LOADVARS (IL:DOVEKEYBOARDSCOMS) from {DSK}kaplan>Local>medley3.5>git-medley>library>DOVEKEYBOARDS.;3. +;;; {DSK}kaplan>Local>medley3.5>git-medley>library>DOVERS232C.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>library>EDITBITMAP.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>library>ETHERRECORDS.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>library>FILE-UPDATE.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>library>FILEBROWSER.;2 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>library>FONTSAMPLE.;1 ... done. ;;; {DSK}kaplan>Local>medley3.5>git-medley>library>FOREIGN-FUNCTIONS.;2 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>library>FX-80DRIVER.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>library>GCHAX.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>library>GRAPHER.;7 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>library>GRAPHZOOM.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>library>HASH.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>library>HASH-FILE.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>library>HRULE.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>library>IMAGEOBJ.;4 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>library>KEYBOARDCONFIGS.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>library>KEYBOARDEDITOR.;4 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>library>lafite> .Warning: Error attempting to LOADVARS (NILCOMS) from {DSK}kaplan>Local>medley3.5>git-medley>library>lafite>. -;;; {DSK}kaplan>Local>medley3.5>git-medley>library>LLCOLOR.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>library>LOAD-SKETCH.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>library>MAIKOCOLOR.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>library>MAIKOKEYBOARDS.;4 .Warning: Error attempting to LOADVARS (MAIKOKEYBOARDSCOMS) from {DSK}kaplan>Local>medley3.5>git-medley>library>MAIKOKEYBOARDS.;4. -;;; {DSK}kaplan>Local>medley3.5>git-medley>library>MASTERSCOPE.;7 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>library>MATCH.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>library>MATMULT.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>library>MSANALYZE.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>library>MSCOMMON.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>library>MSPARSE.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>library>NSCHAT.;3 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>library>FX-80DRIVER.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>library>GCHAX.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>library>GRAPHER.;4 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>library>GRAPHZOOM.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>library>HASH.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>library>HASH-FILE.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>library>HRULE.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>library>IMAGEOBJ.;2 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>library>KEYBOARDCONFIGS.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>library>KEYBOARDEDITOR.;2 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>library>lafite> .Warning: Error attempting to LOADVARS (IL:NILCOMS) from {DSK}kaplan>Local>medley3.5>git-medley>library>lafite>. +;;; {DSK}kaplan>Local>medley3.5>git-medley>library>LLCOLOR.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>library>LOAD-SKETCH.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>library>MAIKOCOLOR.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>library>MAIKOKEYBOARDS.;3 .Warning: Error attempting to LOADVARS (IL:MAIKOKEYBOARDSCOMS) from {DSK}kaplan>Local>medley3.5>git-medley>library>MAIKOKEYBOARDS.;3. +;;; {DSK}kaplan>Local>medley3.5>git-medley>library>MASTERSCOPE.;6 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>library>MATCH.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>library>MATMULT.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>library>MSANALYZE.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>library>MSCOMMON.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>library>MSPARSE.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>library>NSCHAT.;1 ... done. ;;; {DSK}kaplan>Local>medley3.5>git-medley>library>NSMAINTAIN.;2 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>library>patches> .Warning: Error attempting to LOADVARS (NILCOMS) from {DSK}kaplan>Local>medley3.5>git-medley>library>patches>. -;;; {DSK}kaplan>Local>medley3.5>git-medley>library>PCTREE.;6 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>library>POSTSCRIPTSTREAM.;5 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>library>PRESS.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>library>RDSYS.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>library>READNUMBER.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>library>REMOTEVMEM.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>library>SAMEDIR.;11 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>library>SCALEBITMAP.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>library>SEDIT-COMMONLISP.;4 .Warning: Error attempting to LOADVARS (SEDIT-COMMONLISPCOMS) from {DSK}kaplan>Local>medley3.5>git-medley>library>SEDIT-COMMONLISP.;4. -;;; {DSK}kaplan>Local>medley3.5>git-medley>library>SKETCH.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>library>SKETCHBMELT.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>library>SKETCHEDIT.;4 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>library>SKETCHELEMENTS.;4 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>library>SKETCHOBJ.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>library>SKETCHOPS.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>library>SKETCHSTREAM.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>library>SPY.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>library>SYSEDIT.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>library>TABLEBROWSER.;6 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>library>TABLEBROWSERDECLS.;3 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>library>patches> .Warning: Error attempting to LOADVARS (IL:NILCOMS) from {DSK}kaplan>Local>medley3.5>git-medley>library>patches>. +;;; {DSK}kaplan>Local>medley3.5>git-medley>library>PCTREE.;4 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>library>POSTSCRIPTSTREAM.;11 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>library>PRESS.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>library>RDSYS.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>library>READNUMBER.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>library>REMOTEVMEM.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>library>SAMEDIR.;10 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>library>SCALEBITMAP.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>library>SEDIT-COMMONLISP.;2 .Warning: Error attempting to LOADVARS (IL:SEDIT-COMMONLISPCOMS) from {DSK}kaplan>Local>medley3.5>git-medley>library>SEDIT-COMMONLISP.;2. +;;; {DSK}kaplan>Local>medley3.5>git-medley>library>SKETCH.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>library>SKETCHBMELT.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>library>SKETCHEDIT.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>library>SKETCHELEMENTS.;2 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>library>SKETCHOBJ.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>library>SKETCHOPS.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>library>SKETCHSTREAM.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>library>SPY.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>library>SYSEDIT.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>library>TABLEBROWSER.;3 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>library>TABLEBROWSERDECLS.;1 ... done. ;;; {DSK}kaplan>Local>medley3.5>git-medley>library>TBDECLS.;1 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>library>TEDIT.;4 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>library>TEDITABBREV.;4 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>library>TEDIT.;2 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>library>TEDITABBREV.;2 ... done. ;;; {DSK}kaplan>Local>medley3.5>git-medley>library>TEDITCHAT.;1 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>library>TEDITCOMMAND.;4 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>library>TEDITCOMMAND.;2 ... done. ;;; {DSK}kaplan>Local>medley3.5>git-medley>library>TEDITDCL.;1 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>library>TEDITFILE.;4 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>library>TEDITFIND.;4 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>library>TEDITFNKEYS.;6 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>library>TEDITHCPY.;1 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>library>TEDITHISTORY.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>library>TEDITLOOKS.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>library>TEDITMENU.;3 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>library>TEDITFILE.;2 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>library>TEDITFIND.;2 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>library>TEDITFNKEYS.;4 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>library>TEDITHCPY.;2 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>library>TEDITHISTORY.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>library>TEDITLOOKS.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>library>TEDITMENU.;1 ... done. ;;; {DSK}kaplan>Local>medley3.5>git-medley>library>TEDITPAGE.;1 ... done. ;;; {DSK}kaplan>Local>medley3.5>git-medley>library>TEDITSCREEN.;1 ... done. ;;; {DSK}kaplan>Local>medley3.5>git-medley>library>TEDITSELECTION.;1 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>library>TEDITWINDOW.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>library>TELERAID.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>library>TEXEC.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>library>TEXTMODULES.;3 . +;;; {DSK}kaplan>Local>medley3.5>git-medley>library>TEDITWINDOW.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>library>TELERAID.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>library>TEXEC.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>library>TEXTMODULES.;1 . {DSK}kaplan>Local>medley3.5>git-medley>library>SEDIT-COMMONLISP.DFASL;2 XCL Compiler output for source file {DSK}larry>ilisp>medley>SEDIT-COMMONLISP.;1 Source file created 4-Jan-2021 22:52:01 -FASL file created Monday, 4 January 2021, 22:52:13 +FASL file created Wednesday, 5 May 2021, 10:37:50 {DSK}kaplan>Local>medley3.5>git-medley>library>TEXTMODULES.DFASL;1 @@ -385,401 +387,396 @@ Source file created Wednesday, 16 January 1991, 9:07:18. FASL file created Tuesday, 12 July 1994, 12:31:02. .. done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>library>TEXTOFD.;4 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>library>TFBRAVO.;4 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>library>TTYCHAT.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>library>UNICODE.;172 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>library>UNIXCHAT.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>library>UNIXCOMM.;4 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>library>UNIXPRINT.;4 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>library>TEXTOFD.;2 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>library>TFBRAVO.;3 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>library>TTYCHAT.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>library>UNICODE.;175 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>library>UNIXCHAT.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>library>UNIXCOMM.;2 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>library>UNIXPRINT.;2 ... done. ;;; {DSK}kaplan>Local>medley3.5>git-medley>library>UNIXTELNET.;1 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>library>VIRTUALKEYBOARDS.;11 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>library>VT100KP.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>library>VTCHAT.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>library>WHERE-IS.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>library>XCCS.;4 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>ACCESS.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>ACE> .Warning: Error attempting to LOADVARS (NILCOMS) from {DSK}kaplan>Local>medley3.5>git-medley>lispusers>ACE>. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>ADDRESSBOOK.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>AIREGIONS.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>AIREGIONS-DEMO.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>AISBLT.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>ANALYZER.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>ARCHIVEBROWSER.;3 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>library>VIRTUALKEYBOARDS.;9 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>library>VT100KP.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>library>VTCHAT.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>library>WHERE-IS.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>ACCESS.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>ACE> .Warning: Error attempting to LOADVARS (IL:NILCOMS) from {DSK}kaplan>Local>medley3.5>git-medley>lispusers>ACE>. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>ADDRESSBOOK.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>AIREGIONS.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>AIREGIONS-DEMO.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>AISBLT.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>ANALYZER.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>ARCHIVEBROWSER.;1 ... done. ;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>ARCHIVETOOL.;1 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>ARMODES.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>autosamedir.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>AUXMENU.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>BACKGROUNDIMAGES.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>BACKGROUNDMENU.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>BICLOCK.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>BIGGER-FONT.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>BITMAP-GALLERY.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>bitmapfns.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>BLACKBOX.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>BLOCKS-HKB.;3 .Warning: Couldn't find BLOCKS-HKBCOMS on {DSK}kaplan>Local>medley3.5>git-medley>lispusers>BLOCKS-HKB.;3. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>BMENCODE.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>BOYERMOORE.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>BRKDWNREPORT.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>bsearch.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>BUTTONS.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>C150STREAM.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>CALENDAR.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>canvasconverter.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>CD.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>CHATEMACS.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>CHATSERVER.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>CHATSERVER-NS.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>CHATSERVER-RS232.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>CHATSERVER-TCP.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>checkset.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>circlprint.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>CL-TTYEDIT.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>COLORDEMO.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>COLORNNCC.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>COLOROBJ.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>COLORPOLYGONS.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>COMMENTHACKS.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>COMMON-MAKE.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>COMMWINDOW.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>COMPARE-PATHS.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>COMPAREDIRECTORIES.;285 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>COMPARESOURCES.;5 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>comparetext.;2 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>compilebang.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>COURIERDEFS.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>COURIEREVALSERVE.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>COURIERIMAGESTREAM.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>COURIERSERVE.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>COURIERSERVEPATCH.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>CROCK.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>DANDELIONUFO.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>DANDELIONUFO4096.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>DATATYPESPLUS.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>DATE.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>DATEFNS.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>DATEFORMAT-EDITOR.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>DATESORT.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>DEBUGGER-CONTEXT.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>DECL.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>DEDITHARDCOPY.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>DEFAULTICON.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>DEFAULTSUBITEMFN.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>DEFINERPRINT.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>DIALPHONE.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>DICOLOR.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>DICT-WINDOW-TYPES.;3 .Warning: Error attempting to LOADVARS (DICT-WINDOW-TYPESCOMS) from {DSK}kaplan>Local>medley3.5>git-medley>lispusers>DICT-WINDOW-TYPES.;3. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>DICTTOOL.;4 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>DIGEST.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>DIGI-CLOCK.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>DINFO.;7 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>DIRGRAPHER.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>DLIONFNKEYS.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>DOC-OBJECTS.;9 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>document.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>donz.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>DORADOCOLOR.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>DPUPFTPPATCH.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>DSPSCALE.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>dumper.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>DUMPLOAD.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>EDITBG.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>EDITFONT.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>EDITKEYS.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>EMACS.;11 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>ENDNOTE.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>EQUATIONFORMS.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>EQUATIONS.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>ETHERBOOT.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>EVALOBJ.;4 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>EYECON.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>FASTEDITBM.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>FILECACHE-FIX.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>FileCacheMsgWindow.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>FILENAMES.;3 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>ARMODES.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>autosamedir.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>AUXMENU.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>BACKGROUNDIMAGES.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>BACKGROUNDMENU.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>BICLOCK.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>BIGGER-FONT.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>BITMAP-GALLERY.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>bitmapfns.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>BLACKBOX.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>BLOCKS-HKB.;1 .Warning: Couldn't find IL:BLOCKS-HKBCOMS on {DSK}kaplan>Local>medley3.5>git-medley>lispusers>BLOCKS-HKB.;1. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>BMENCODE.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>BOYERMOORE.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>BRKDWNREPORT.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>bsearch.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>BUTTONS.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>C150STREAM.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>CALENDAR.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>canvasconverter.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>CD.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>CHATEMACS.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>CHATSERVER.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>CHATSERVER-NS.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>CHATSERVER-RS232.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>CHATSERVER-TCP.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>checkset.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>circlprint.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>CL-TTYEDIT.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>COLORDEMO.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>COLORNNCC.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>COLOROBJ.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>COLORPOLYGONS.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>COMMENTHACKS.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>COMMON-MAKE.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>COMMWINDOW.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>COMPARE-PATHS.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>COMPAREDIRECTORIES.;275 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>COMPARESOURCES.;4 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>comparetext.;3 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>compilebang.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>COURIERDEFS.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>COURIEREVALSERVE.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>COURIERIMAGESTREAM.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>COURIERSERVE.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>COURIERSERVEPATCH.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>CROCK.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>DANDELIONUFO.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>DANDELIONUFO4096.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>DATATYPESPLUS.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>DATE.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>DATEFNS.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>DATEFORMAT-EDITOR.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>DATESORT.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>DEBUGGER-CONTEXT.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>DECL.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>DEDITHARDCOPY.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>DEFAULTICON.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>DEFAULTSUBITEMFN.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>DEFINERPRINT.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>DIALPHONE.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>DICOLOR.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>DICT-WINDOW-TYPES.;1 .Warning: Error attempting to LOADVARS (IL:DICT-WINDOW-TYPESCOMS) from {DSK}kaplan>Local>medley3.5>git-medley>lispusers>DICT-WINDOW-TYPES.;1. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>DICTTOOL.;3 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>DIGEST.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>DIGI-CLOCK.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>DINFO.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>DIRGRAPHER.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>DLIONFNKEYS.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>DOC-OBJECTS.;8 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>document.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>donz.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>DORADOCOLOR.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>DPUPFTPPATCH.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>DSPSCALE.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>dumper.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>DUMPLOAD.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>EDITBG.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>EDITFONT.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>EDITKEYS.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>EMACS.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>ENDNOTE.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>EQUATIONFORMS.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>EQUATIONS.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>ETHERBOOT.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>EVALOBJ.;3 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>EYECON.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>FASTEDITBM.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>FILECACHE-FIX.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>FileCacheMsgWindow.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>FILENAMES.;1 ... done. ;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>FILEWATCH.;4 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>FILLREGION.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>FIND-CITATION.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>FINGER.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>FM-CREATOR.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>fm-creator-examples> .Warning: Error attempting to LOADVARS (NILCOMS) from {DSK}kaplan>Local>medley3.5>git-medley>lispusers>fm-creator-examples>. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>FONTDECLS.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>FONTSAMPLER.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>FORMACRO.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>FTPSERVERPATCH.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>GENERIC-INIT.;3 .Warning: Error attempting to LOADVARS (GENERIC-INITCOMS) from {DSK}kaplan>Local>medley3.5>git-medley>lispusers>GENERIC-INIT.;3. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>GRAPHCALLS.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>GraphGroup.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>GREP.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>GRID-ICONS.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>H-ENV.;3 .Warning: Couldn't find H-ENVCOMS on {DSK}kaplan>Local>medley3.5>git-medley>lispusers>H-ENV.;3. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>H-LOAD.;3 .Warning: Couldn't find H-LOADCOMS on {DSK}kaplan>Local>medley3.5>git-medley>lispusers>H-LOAD.;3. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>H-PATCHES.;3 .Warning: Couldn't find H-PATCHESCOMS on {DSK}kaplan>Local>medley3.5>git-medley>lispusers>H-PATCHES.;3. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>H-SOURCE.;3 .Warning: Couldn't find H-SOURCECOMS on {DSK}kaplan>Local>medley3.5>git-medley>lispusers>H-SOURCE.;3. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>HANOI.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>HARDCOPY-RETAIN.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>HASHBUFFER.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>HASHDATUM.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>HEADLINE.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>HELPSYS.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>HGRAPH.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>HISTMENU.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>HOSTUP.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>HPGL.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>HYPERDESK-INIT.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>HYPERDESK-LOG.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>IDEASKETCH.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>IDLEDRAIN.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>IDLEHAX.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>IDLESWAP.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>INDEX.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>INSPECTCODE-TEDIT.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>IPTALK.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>IRISCONSTANTS.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>IRISDEMOFNS.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>IRISIO.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>IRISLIB.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>IRISNET.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>IRISSTREAM.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>IRISVIEW.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>ISO8859IO.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>KEYOBJ.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>KINETIC.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>KOTOLOGO.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>LABEL.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>LAFITE-INDENT.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>LAFITEABBREV.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>LAFITEPRIVATEDL.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>LAFITETIMEDDELETE.;2 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>LAMBDATRAN.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>LAYOUT-SEDIT.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>LIFE.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>LISPNERD.;4 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>LOADIRIS.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>LOADMENUITEMS.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>LoadPatches.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>LOGIC.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>LOGIC-DEVEL.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>LOGIC-UNIFIER.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>LOGTIME.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>LOOKUPINFILES.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>LUPINE.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>MACINTERFACE.;81 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>MACWINDOW.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>MAGNIFIER.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>MAILSHARE.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>MAKEGRAPH.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>MANAGER.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>MANDELBROT.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>MATHSERVER.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>mathserverplot.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>MATHTONS.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>MATRIXOPS.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>MESATOLISP.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>MICROTEK.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>MICROTEKPRINT.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>MIME.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>MISSILE.;3 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>FILLREGION.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>FIND-CITATION.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>FINGER.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>FM-CREATOR.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>fm-creator-examples> .Warning: Error attempting to LOADVARS (IL:NILCOMS) from {DSK}kaplan>Local>medley3.5>git-medley>lispusers>fm-creator-examples>. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>FONTDECLS.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>FONTSAMPLER.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>FORMACRO.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>FTPSERVERPATCH.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>GENERIC-INIT.;1 .Warning: Error attempting to LOADVARS (IL:GENERIC-INITCOMS) from {DSK}kaplan>Local>medley3.5>git-medley>lispusers>GENERIC-INIT.;1. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>GRAPHCALLS.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>GraphGroup.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>GREP.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>GRID-ICONS.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>H-ENV.;1 .Warning: Couldn't find IL:H-ENVCOMS on {DSK}kaplan>Local>medley3.5>git-medley>lispusers>H-ENV.;1. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>H-LOAD.;1 .Warning: Couldn't find IL:H-LOADCOMS on {DSK}kaplan>Local>medley3.5>git-medley>lispusers>H-LOAD.;1. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>H-PATCHES.;1 .Warning: Couldn't find IL:H-PATCHESCOMS on {DSK}kaplan>Local>medley3.5>git-medley>lispusers>H-PATCHES.;1. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>H-SOURCE.;1 .Warning: Couldn't find IL:H-SOURCECOMS on {DSK}kaplan>Local>medley3.5>git-medley>lispusers>H-SOURCE.;1. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>HANOI.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>HARDCOPY-RETAIN.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>HASHBUFFER.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>HASHDATUM.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>HEADLINE.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>HELPSYS.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>HGRAPH.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>HISTMENU.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>HOSTUP.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>HPGL.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>HYPERDESK-INIT.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>HYPERDESK-LOG.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>IDEASKETCH.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>IDLEDRAIN.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>IDLEHAX.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>IDLESWAP.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>INDEX.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>INSPECTCODE-TEDIT.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>IPTALK.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>IRISCONSTANTS.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>IRISDEMOFNS.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>IRISIO.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>IRISLIB.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>IRISNET.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>IRISSTREAM.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>IRISVIEW.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>ISO8859IO.;10 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>KEYOBJ.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>KINETIC.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>KOTOLOGO.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>LABEL.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>LAFITE-INDENT.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>LAFITEABBREV.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>LAFITEPRIVATEDL.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>LAFITETIMEDDELETE.;3 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>LAMBDATRAN.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>LAYOUT-SEDIT.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>LIFE.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>LISPNERD.;3 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>LOADIRIS.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>LOADMENUITEMS.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>LoadPatches.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>LOGIC.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>LOGIC-DEVEL.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>LOGIC-UNIFIER.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>LOGTIME.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>LOOKUPINFILES.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>LUPINE.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>MACWINDOW.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>MAGNIFIER.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>MAILSHARE.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>MAKEGRAPH.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>MANAGER.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>MANDELBROT.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>MATHSERVER.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>mathserverplot.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>MATHTONS.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>MATRIXOPS.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>MESATOLISP.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>MICROTEK.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>MICROTEKPRINT.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>MIME.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>MISSILE.;1 ... done. ;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>MODERNIZE.;16 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>MONITOR.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>MTP.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>MULTIPLE-HARDCOPY.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>NEATICONS.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>NGROUP.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>NOTECARDS-4045XLPPATCH.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>NOTEPAD.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>NOTEPAD-CORESTYLES.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>NOVAFONT.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>NSALLOCATION.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>NSCOPYFILE.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>NSDISPLAYSIZES.;4 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>NSPROTECTION.;4 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>NSREADERPATCH.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>NSROUTINGHASH.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>NSTALK.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>NSTALKGAP.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>NSTHASIZE.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>OSS-LYRIC-PATCHES.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>PAC-MAN-IDLE.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>PACKED-STRUCTURE.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>PACMAN.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>PAGEHOLD.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>PARSER.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>PARSERG.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>PATCH-LARGEIPBITMAP.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>PATCH-TWOSIDED.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>PCMEMTEST.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>PHONE-DIRECTORY.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>PIECE-MENUS.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>PIXELBLT.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>PLAINTEXTSTREAM.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>PLAY.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>PLOT.;4 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>PLOTANDNC-PATCH.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>PLOTBOXPATCH.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>PLOTEXAMPLES.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>PLOTINSKETCH.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>PLOTOBJECTS.;4 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>PLOTOBJECTS1.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>PLOTOBJECTS2.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>PORT-CLFILE.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>POSTSCRIPT> .Warning: Error attempting to LOADVARS (NILCOMS) from {DSK}kaplan>Local>medley3.5>git-medley>lispusers>POSTSCRIPT>. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>POSTSCRIPT-old> .Warning: Error attempting to LOADVARS (NILCOMS) from {DSK}kaplan>Local>medley3.5>git-medley>lispusers>POSTSCRIPT-old>. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>PP-CODE-FILE.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>PREEMPTIVE.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>PRESSFROMNS.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>PRETTYFILEINDEX.;4 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>PRINTERMENU.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>PROGRAMCHAT.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>PROMPTREMINDERS.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>PROOFREADER.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>PS-PATCH.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>PS-RS232.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>PS-SEND.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>PS-SKETCH-PATCH.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>PS-TTY.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>PSCFONT-FIX-FILENAME.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>QEDIT.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>QIX.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>READAIS.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>READAPPLEFONT.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>READBRUSH.;2 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>READDATATYPE.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>READDISPLAYFONT.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>READEBCDIC.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>READINTERPRESS.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>REGION.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>REGISTER-MACHINE.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>REMOTEPSW.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>RPC.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>RPCCOMMON.;3 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>MONITOR.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>MTP.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>MULTIPLE-HARDCOPY.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>NEATICONS.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>NGROUP.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>NOTECARDS-4045XLPPATCH.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>NOTEPAD.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>NOTEPAD-CORESTYLES.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>NOVAFONT.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>NSALLOCATION.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>NSCOPYFILE.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>NSDISPLAYSIZES.;3 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>NSPROTECTION.;3 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>NSREADERPATCH.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>NSROUTINGHASH.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>NSTALK.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>NSTALKGAP.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>NSTHASIZE.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>OSS-LYRIC-PATCHES.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>PAC-MAN-IDLE.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>PACKED-STRUCTURE.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>PACMAN.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>PAGEHOLD.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>PARSER.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>PARSERG.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>PATCH-LARGEIPBITMAP.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>PATCH-TWOSIDED.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>PCMEMTEST.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>PHONE-DIRECTORY.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>PIECE-MENUS.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>PIXELBLT.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>PLAINTEXTSTREAM.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>PLAY.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>PLOT.;3 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>PLOTANDNC-PATCH.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>PLOTBOXPATCH.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>PLOTEXAMPLES.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>PLOTINSKETCH.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>PLOTOBJECTS.;3 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>PLOTOBJECTS1.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>PLOTOBJECTS2.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>PORT-CLFILE.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>POSTSCRIPT> .Warning: Error attempting to LOADVARS (IL:NILCOMS) from {DSK}kaplan>Local>medley3.5>git-medley>lispusers>POSTSCRIPT>. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>POSTSCRIPT-old> .Warning: Error attempting to LOADVARS (IL:NILCOMS) from {DSK}kaplan>Local>medley3.5>git-medley>lispusers>POSTSCRIPT-old>. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>PP-CODE-FILE.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>PREEMPTIVE.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>PRESSFROMNS.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>PRETTYFILEINDEX.;5 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>PRINTERMENU.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>PROGRAMCHAT.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>PROMPTREMINDERS.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>PROOFREADER.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>PS-PATCH.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>PS-RS232.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>PS-SEND.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>PS-SKETCH-PATCH.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>PS-TTY.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>PSCFONT-FIX-FILENAME.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>QEDIT.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>QIX.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>READAIS.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>READAPPLEFONT.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>READBRUSH.;3 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>READDATATYPE.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>READDISPLAYFONT.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>READEBCDIC.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>READINTERPRESS.;4 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>REGION.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>REGISTER-MACHINE.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>REMOTEPSW.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>RPC.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>RPCCOMMON.;1 ... done. ;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>RPCDECLS.;1 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>RPCLOWLEVEL.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>RPCOS.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>RPCPORTMAPPER.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>RPCRPC.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>RPCSTRUCT.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>RPCXDR.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>RS232CNETWORK.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>SCREENPAPER.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>SEARCHMENU.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>SEDIT-COMMONLISP.;3 .(SEDIT-COMMONLISPCOMS reset) -.. done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>SEDIT-MENU-ALWAYS.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>SEDIT-PATCHES.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>SEDIT-PROFILE.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>SETDEFAULTPRINTER.;4 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>SFFONT.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>SHOWTIME.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>SIMPLECHAT.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>SIMPLIFY.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>SINGLEFILEINDEX.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>SKETCHCOLOR.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>SKETCHTALK.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>SNAPW-ICON.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>SOLID-MOVEW.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>SOLITAIRE.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>STARBG.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>STEP-COMMAND-MENU.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>STORAGE.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>STREAMDECLS.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>STYLESHEET.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>SUPERPARENTHESES.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>SYSTATS.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>TALK.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>TALKGAP.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>TCPTIME.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>TEDIT-CLOSE-ON-SHRINK.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>TEDIT-LINE-NUMBERING.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>tedit-process-killer.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>TEDITDORADOKEYS.;4 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>TEDITKEY.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>TEDITTALK.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>TEK4010.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>TEK4010CHAT.;3 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>RPCLOWLEVEL.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>RPCOS.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>RPCPORTMAPPER.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>RPCRPC.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>RPCSTRUCT.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>RPCXDR.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>RS232CNETWORK.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>SCREENPAPER.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>SEARCHMENU.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>SEDIT-MENU-ALWAYS.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>SEDIT-PATCHES.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>SEDIT-PROFILE.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>SETDEFAULTPRINTER.;3 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>SFFONT.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>SHOWTIME.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>SIMPLECHAT.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>SIMPLIFY.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>SINGLEFILEINDEX.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>SKETCHCOLOR.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>SKETCHTALK.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>SNAPW-ICON.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>SOLID-MOVEW.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>SOLITAIRE.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>STARBG.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>STEP-COMMAND-MENU.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>STORAGE.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>STREAMDECLS.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>STYLESHEET.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>SUPERPARENTHESES.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>SYSTATS.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>TALK.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>TALKGAP.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>TCPTIME.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>TEDIT-CLOSE-ON-SHRINK.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>TEDIT-LINE-NUMBERING.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>tedit-process-killer.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>TEDITDORADOKEYS.;3 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>TEDITKEY.;2 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>TEDITTALK.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>TEK4010.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>TEK4010CHAT.;1 ... done. ;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>THINFILES.;1 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>TILED-SEDIT.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>tkdorado.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>TMAX.;4 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>TMAX-DATE.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>TMAX-ENDNOTE.;4 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>TMAX-INDEX.;4 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>TMAX-NGRAPH.;4 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>TMAX-NGROUP.;4 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>TMAX-NUMBER.;4 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>TMAX-XREF.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>tmenu.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>TRAJECTORY-FOLLOWER.;3 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>TILED-SEDIT.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>tkdorado.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>TMAX.;3 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>TMAX-DATE.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>TMAX-ENDNOTE.;3 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>TMAX-INDEX.;3 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>TMAX-NGRAPH.;3 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>TMAX-NGROUP.;3 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>TMAX-NUMBER.;3 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>TMAX-XREF.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>tmenu.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>TRAJECTORY-FOLLOWER.;1 ... done. ;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>TRANSOR.;1 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>TRANSOR-LOADTRAN.;1 .Warning: Couldn't find TRANSOR-LOADTRANCOMS on {DSK}kaplan>Local>medley3.5>git-medley>lispusers>TRANSOR-LOADTRAN.;1. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>TRICKLE.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>TSET.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>TTYTALK.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>TURBO-WINDOWS.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>TWODGRAPHICS.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>UNBOXEDOPS.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>UNDIGESTIFY.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>UNIFIER.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>UPCSTATS.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>UTILISOPRS.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>UUENCODE.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>VANILLA-INIT.;3 .Warning: Error attempting to LOADVARS (VANILLA-INITCOMS) from {DSK}kaplan>Local>medley3.5>git-medley>lispusers>VANILLA-INIT.;3. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>VSTATS.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>WALKFILES.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>WDWHACKS.;4 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>WHEELSCROLL.;46 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>WHO-LINE.;5 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>WHOCALLS.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>WINK.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>WORDNERD.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>XCL-BRIDGE.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>XORCURSORPATCH.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>XREF.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>internal>library>ABC.;2 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>TRANSOR-LOADTRAN.;1 .Warning: Couldn't find IL:TRANSOR-LOADTRANCOMS on {DSK}kaplan>Local>medley3.5>git-medley>lispusers>TRANSOR-LOADTRAN.;1. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>TRICKLE.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>TSET.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>TTYTALK.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>TURBO-WINDOWS.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>TWODGRAPHICS.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>UNBOXEDOPS.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>UNDIGESTIFY.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>UNIFIER.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>UPCSTATS.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>UTILISOPRS.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>UUENCODE.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>VANILLA-INIT.;1 .Warning: Error attempting to LOADVARS (IL:VANILLA-INITCOMS) from {DSK}kaplan>Local>medley3.5>git-medley>lispusers>VANILLA-INIT.;1. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>VSTATS.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>WALKFILES.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>WDWHACKS.;3 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>WHEELSCROLL.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>WHO-LINE.;3 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>WHOCALLS.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>WINK.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>WORDNERD.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>XCL-BRIDGE.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>XORCURSORPATCH.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>lispusers>XREF.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>internal>library>ABC.;1 ... done. ;;; {DSK}kaplan>Local>medley3.5>git-medley>internal>library>ARCLEANUP.;2 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>internal>library>AREDIT.;2 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>internal>library>ARHACK.;2 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>internal>library>ARINDEX.;2 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>internal>library>ARQUERY.;2 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>internal>library>arreport-test.;2 .Warning: Error attempting to LOADVARS (ARREPORT-TESTCOMS) from {DSK}kaplan>Local>medley3.5>git-medley>internal>library>arreport-test.;2. -;;; {DSK}kaplan>Local>medley3.5>git-medley>internal>library>ARSREPORT.;2 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>internal>library>AREDIT.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>internal>library>ARHACK.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>internal>library>ARINDEX.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>internal>library>ARQUERY.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>internal>library>arreport-test.;1 .Warning: Error attempting to LOADVARS (IL:ARREPORT-TESTCOMS) from {DSK}kaplan>Local>medley3.5>git-medley>internal>library>arreport-test.;1. +;;; {DSK}kaplan>Local>medley3.5>git-medley>internal>library>ARSREPORT.;1 ... done. ;;; {DSK}kaplan>Local>medley3.5>git-medley>internal>library>CALENDARHACKS.;4 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>internal>library>CHANGECONTROL.;2 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>internal>library>COMPTEST.;2 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>internal>library>CHANGECONTROL.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>internal>library>COMPTEST.;1 ... done. ;;; {DSK}kaplan>Local>medley3.5>git-medley>internal>library>CONDITIONGRAPH.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>internal>library>DICOLOR.;2 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>internal>library>DO-TEST.;2 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>internal>library>DUMPFILE.;2 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>internal>library>FASL-DEBUG.;2 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>internal>library>FLOAT-ARRAY-SUPPORT.;2 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>internal>library>DICOLOR.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>internal>library>DO-TEST.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>internal>library>DUMPFILE.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>internal>library>FASL-DEBUG.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>internal>library>FLOAT-ARRAY-SUPPORT.;1 ... done. ;;; {DSK}kaplan>Local>medley3.5>git-medley>internal>library>GIVE-AND-TAKE.;3 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>internal>library>MACROTEST.;2 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>internal>library>MACROTESTAUX.;2 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>internal>library>MAILCLIENT.;2 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>internal>library>MAINTAIN.;2 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>internal>library>MAKE-EXPORTS-ALL.;2 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>internal>library>MAKE-TCP-EXPORTS.;2 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>internal>library>MEDLEY-UTILS.;2 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>internal>library>MESATYPES.;2 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>internal>library>msx.;2 .Warning: Error attempting to LOADVARS (MSXCOMS) from {DSK}kaplan>Local>medley3.5>git-medley>internal>library>msx.;2. +;;; {DSK}kaplan>Local>medley3.5>git-medley>internal>library>MACROTEST.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>internal>library>MACROTESTAUX.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>internal>library>MAILCLIENT.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>internal>library>MAINTAIN.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>internal>library>MAKE-EXPORTS-ALL.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>internal>library>MAKE-TCP-EXPORTS.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>internal>library>MEDLEY-UTILS.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>internal>library>MESATYPES.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>internal>library>msx.;1 .Warning: Error attempting to LOADVARS (IL:MSXCOMS) from {DSK}kaplan>Local>medley3.5>git-medley>internal>library>msx.;1. ;;; {DSK}kaplan>Local>medley3.5>git-medley>internal>library>MULTI-COMPILE.;5 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>internal>library>NATIVE-TRANSLATOR.;2 .Warning: Error attempting to LOADVARS (NATIVE-TRANSLATORCOMS) from {DSK}kaplan>Local>medley3.5>git-medley>internal>library>NATIVE-TRANSLATOR.;2. -;;; {DSK}kaplan>Local>medley3.5>git-medley>internal>library>NATIVE-TRANSLATOR-PACKAGE.;2 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>internal>library>NSTOASCIIDISPLAYFONT.;2 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>internal>library>PEANO.;2 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>internal>library>READ-PRINT-PROFILE.;2 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>internal>library>RELEASETOOLS.;2 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>internal>library>SMART-TRICKLE.;2 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>internal>library>SPLICE.;2 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>internal>library>TAR.;2 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>internal>library>TYPEHAX.;2 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>internal>library>WHEREIS.;2 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>internal>library>XCLC-DEBUG.;2 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>greetfiles>INIT.;1 .(INITCOMS reset) -Warning: Error attempting to LOADVARS (INITCOMS) from {DSK}kaplan>Local>medley3.5>git-medley>greetfiles>INIT.;1. -;;; {DSK}kaplan>Local>medley3.5>git-medley>greetfiles>LOCAL-INIT.;45 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>internal>library>NATIVE-TRANSLATOR.;1 .Warning: Error attempting to LOADVARS (IL:NATIVE-TRANSLATORCOMS) from {DSK}kaplan>Local>medley3.5>git-medley>internal>library>NATIVE-TRANSLATOR.;1. +;;; {DSK}kaplan>Local>medley3.5>git-medley>internal>library>NATIVE-TRANSLATOR-PACKAGE.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>internal>library>NSTOASCIIDISPLAYFONT.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>internal>library>PEANO.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>internal>library>READ-PRINT-PROFILE.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>internal>library>RELEASETOOLS.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>internal>library>SMART-TRICKLE.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>internal>library>SPLICE.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>internal>library>TAR.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>internal>library>TYPEHAX.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>internal>library>WHEREIS.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>internal>library>XCLC-DEBUG.;1 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>greetfiles>INIT.;2 .Warning: Error attempting to LOADVARS (IL:INITCOMS) from {DSK}kaplan>Local>medley3.5>git-medley>greetfiles>INIT.;2. +;;; {DSK}kaplan>Local>medley3.5>git-medley>greetfiles>LOCAL-INIT.;46 ... done. ;;; {DSK}kaplan>Local>medley3.5>git-medley>greetfiles>PARC-INIT.;21 ... done. -;;; {DSK}kaplan>Local>medley3.5>git-medley>greetfiles>SIMPLE-INIT.;5 ... done. +;;; {DSK}kaplan>Local>medley3.5>git-medley>greetfiles>SIMPLE-INIT.;3 ... done. ;;; {DSK}kaplan>Local>medley3.5>git-medley>docs>Documentation Tools>IMINDEX.;1 ... done. ;;; {DSK}kaplan>Local>medley3.5>git-medley>docs>Documentation Tools>IMNAME.;1 ... done. ;;; {DSK}kaplan>Local>medley3.5>git-medley>docs>Documentation Tools>IMTEDIT.;1 ... done. diff --git a/loadups/whereis.hash b/loadups/whereis.hash index 9cbb471f5..1fbfd332a 100644 Binary files a/loadups/whereis.hash and b/loadups/whereis.hash differ diff --git a/sources/ABASIC b/sources/ABASIC index 92ac4de98..a600f82cf 100644 --- a/sources/ABASIC +++ b/sources/ABASIC @@ -1,13 +1,15 @@ (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) -(FILECREATED "16-May-90 11:43:16" {DSK}local>lde>lispcore>sources>ABASIC.;2 24522 +(FILECREATED " 9-Jun-2021 19:40:59"  +{DSK}kaplan>Local>medley3.5>git-medley>sources>ABASIC.;2 24528 - changes to%: (VARS ABASICCOMS) + changes to%: (FNS NILL ZERO) - previous date%: "10-Nov-87 13:01:39" {DSK}local>lde>lispcore>sources>ABASIC.;1) + previous date%: "16-May-90 11:43:16" +{DSK}kaplan>Local>medley3.5>git-medley>sources>ABASIC.;1) (* ; " -Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1990 by Venue & Xerox Corporation. All rights reserved. +Copyright (c) 1982-1987, 1990, 2021 by Venue & Xerox Corporation. ") (PRETTYCOMPRINT ABASICCOMS) @@ -17,8 +19,8 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1990 by Venue & Xerox Corporat (FNS NILL EVQ TRUE ZERO CL:IDENTITY DUMMYDEF NOTIMP) (P (DUMMYDEF (WINDOWWORLDP NILL))) (FNS EQUAL NEQ NULL NOT) - (COMS (* ; - "Belong on ACODE except they would clobber 10-versions in ABC") + (COMS (* ; + "Belong on ACODE except they would clobber 10-versions in ABC") (FNS LAPRD DEFC CGETD)) (FNS NCONC \NCONC2 SORT MERGE SORT1 FASSOC FLAST FLENGTH FMEMB FNTH LIST LIST* COUNT) (FNS CHANGENAME1 CHANGENAME1A) @@ -26,15 +28,15 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1990 by Venue & Xerox Corporat CDDADR CDDAAR CDAAAR CADADR CDADDR CDADAR CAADDR CDAADR CAADAR CADDDR CADAAR CADDAR CAAADR) (FNS SYSTEMTYPE) - (COMS (* ; - "Because can't have bignums in code at makeinit time") + (COMS (* ; + "Because can't have bignums in code at makeinit time") (VARS (\IMAX.FLOAT (FIX MAX.FLOAT)) (\IMIN.FLOAT (FIX MIN.FLOAT))) (GLOBALVARS \IMAX.FLOAT \IMIN.FLOAT)) (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA DUMMYDEF) (NLAML) - (LAMA LIST* LIST NCONC NOTIMP ZERO TRUE NILL]) + (LAMA LIST* LIST NCONC NOTIMP ZERO NILL]) (DEFINEQ (EVALQT @@ -62,7 +64,7 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1990 by Venue & Xerox Corporat (DEFINEQ (NILL - [LAMBDA NOBIND (* lmm " 4-OCT-83 03:05") + [LAMBDA NIL (* ; "Edited 9-Jun-2021 19:40 by rmk:") NIL]) (EVQ @@ -74,7 +76,7 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1990 by Venue & Xerox Corporat T]) (ZERO - [LAMBDA NOBIND (* lmm " 4-OCT-83 03:05") + [LAMBDA NIL (* ; "Edited 9-Jun-2021 19:40 by rmk:") 0]) (CL:IDENTITY @@ -644,7 +646,7 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1990 by Venue & Xerox Corporat (ADDTOVAR NLAML ) -(ADDTOVAR LAMA LIST* LIST NCONC NOTIMP ZERO TRUE NILL) +(ADDTOVAR LAMA LIST* LIST NCONC NOTIMP ZERO NILL) ) (PRETTYCOMPRINT ABASICCOMS) @@ -653,8 +655,8 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1990 by Venue & Xerox Corporat (FNS NILL EVQ TRUE ZERO CL:IDENTITY DUMMYDEF NOTIMP) (P (DUMMYDEF (WINDOWWORLDP NILL))) (FNS EQUAL NEQ NULL NOT) - (COMS (* ; - "Belong on ACODE except they would clobber 10-versions in ABC") + (COMS (* ; + "Belong on ACODE except they would clobber 10-versions in ABC") (FNS LAPRD DEFC CGETD)) (FNS NCONC \NCONC2 SORT MERGE SORT1 FASSOC FLAST FLENGTH FMEMB FNTH LIST LIST* COUNT) (FNS CHANGENAME1 CHANGENAME1A) @@ -662,38 +664,38 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1990 by Venue & Xerox Corporat CDDADR CDDAAR CDAAAR CADADR CDADDR CDADAR CAADDR CDAADR CAADAR CADDDR CADAAR CADDAR CAAADR) (FNS SYSTEMTYPE) - (COMS (* ; - "Because can't have bignums in code at makeinit time") + (COMS (* ; + "Because can't have bignums in code at makeinit time") (VARS (\IMAX.FLOAT (FIX MAX.FLOAT)) (\IMIN.FLOAT (FIX MIN.FLOAT))) (GLOBALVARS \IMAX.FLOAT \IMIN.FLOAT)) (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA DUMMYDEF) (NLAML) - (LAMA LIST* LIST NCONC NOTIMP ZERO NILL]) + (LAMA LIST* LIST NCONC NOTIMP]) (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDTOVAR NLAMA DUMMYDEF) (ADDTOVAR NLAML ) -(ADDTOVAR LAMA LIST* LIST NCONC NOTIMP ZERO NILL) +(ADDTOVAR LAMA LIST* LIST NCONC NOTIMP) ) -(PUTPROPS ABASIC COPYRIGHT ("Venue & Xerox Corporation" 1982 1983 1984 1985 1986 1987 1990)) +(PUTPROPS ABASIC COPYRIGHT ("Venue & Xerox Corporation" 1982 1983 1984 1985 1986 1987 1990 2021)) (DECLARE%: DONTCOPY - (FILEMAP (NIL (1772 2517 (EVALQT 1782 . 2275) (\SystemERROR 2277 . 2515)) (2518 3516 (NILL 2528 . 2634 -) (EVQ 2636 . 2737) (TRUE 2739 . 2843) (ZERO 2845 . 2949) (CL:IDENTITY 2951 . 3064) (DUMMYDEF 3066 . -3377) (NOTIMP 3379 . 3514)) (3553 8305 (EQUAL 3563 . 8173) (NEQ 8175 . 8222) (NULL 8224 . 8263) (NOT -8265 . 8303)) (8383 10259 (LAPRD 8393 . 8884) (DEFC 8886 . 10169) (CGETD 10171 . 10257)) (10260 19969 -(NCONC 10270 . 10673) (\NCONC2 10675 . 10870) (SORT 10872 . 11256) (MERGE 11258 . 14142) (SORT1 14144 - . 17315) (FASSOC 17317 . 17553) (FLAST 17555 . 17801) (FLENGTH 17803 . 18118) (FMEMB 18120 . 18479) ( -FNTH 18481 . 18963) (LIST 18965 . 19268) (LIST* 19270 . 19640) (COUNT 19642 . 19967)) (19970 20799 ( -CHANGENAME1 19980 . 20471) (CHANGENAME1A 20473 . 20797)) (20800 22254 (CDDR 20810 . 20851) (CDAR 20853 - . 20894) (CADR 20896 . 20937) (CAAR 20939 . 20980) (CDDDR 20982 . 21029) (CDDAR 21031 . 21078) (CDADR - 21080 . 21127) (CDAAR 21129 . 21176) (CADDR 21178 . 21225) (CADAR 21227 . 21274) (CAADR 21276 . 21323 -) (CAAAR 21325 . 21372) (CDDDDR 21374 . 21427) (CAAAAR 21429 . 21482) (CDDDAR 21484 . 21537) (CDDADR -21539 . 21592) (CDDAAR 21594 . 21647) (CDAAAR 21649 . 21702) (CADADR 21704 . 21757) (CDADDR 21759 . -21812) (CDADAR 21814 . 21867) (CAADDR 21869 . 21922) (CDAADR 21924 . 21977) (CAADAR 21979 . 22032) ( -CADDDR 22034 . 22087) (CADAAR 22089 . 22142) (CADDAR 22144 . 22197) (CAAADR 22199 . 22252)) (22255 -22481 (SYSTEMTYPE 22265 . 22479))))) + (FILEMAP (NIL (1762 2507 (EVALQT 1772 . 2265) (\SystemERROR 2267 . 2505)) (2508 3542 (NILL 2518 . 2642 +) (EVQ 2644 . 2745) (TRUE 2747 . 2851) (ZERO 2853 . 2975) (CL:IDENTITY 2977 . 3090) (DUMMYDEF 3092 . +3403) (NOTIMP 3405 . 3540)) (3579 8331 (EQUAL 3589 . 8199) (NEQ 8201 . 8248) (NULL 8250 . 8289) (NOT +8291 . 8329)) (8409 10285 (LAPRD 8419 . 8910) (DEFC 8912 . 10195) (CGETD 10197 . 10283)) (10286 19995 +(NCONC 10296 . 10699) (\NCONC2 10701 . 10896) (SORT 10898 . 11282) (MERGE 11284 . 14168) (SORT1 14170 + . 17341) (FASSOC 17343 . 17579) (FLAST 17581 . 17827) (FLENGTH 17829 . 18144) (FMEMB 18146 . 18505) ( +FNTH 18507 . 18989) (LIST 18991 . 19294) (LIST* 19296 . 19666) (COUNT 19668 . 19993)) (19996 20825 ( +CHANGENAME1 20006 . 20497) (CHANGENAME1A 20499 . 20823)) (20826 22280 (CDDR 20836 . 20877) (CDAR 20879 + . 20920) (CADR 20922 . 20963) (CAAR 20965 . 21006) (CDDDR 21008 . 21055) (CDDAR 21057 . 21104) (CDADR + 21106 . 21153) (CDAAR 21155 . 21202) (CADDR 21204 . 21251) (CADAR 21253 . 21300) (CAADR 21302 . 21349 +) (CAAAR 21351 . 21398) (CDDDDR 21400 . 21453) (CAAAAR 21455 . 21508) (CDDDAR 21510 . 21563) (CDDADR +21565 . 21618) (CDDAAR 21620 . 21673) (CDAAAR 21675 . 21728) (CADADR 21730 . 21783) (CDADDR 21785 . +21838) (CDADAR 21840 . 21893) (CAADDR 21895 . 21948) (CDAADR 21950 . 22003) (CAADAR 22005 . 22058) ( +CADDDR 22060 . 22113) (CADAAR 22115 . 22168) (CADDAR 22170 . 22223) (CAAADR 22225 . 22278)) (22281 +22507 (SYSTEMTYPE 22291 . 22505))))) STOP diff --git a/sources/ABASIC.LCOM b/sources/ABASIC.LCOM new file mode 100644 index 000000000..70b7ea001 Binary files /dev/null and b/sources/ABASIC.LCOM differ diff --git a/sources/ADIR b/sources/ADIR index 631cf8468..7fe32da35 100644 --- a/sources/ADIR +++ b/sources/ADIR @@ -1,10 +1,10 @@ (DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP") -(FILECREATED "21-Mar-2021 21:59:07" {DSK}larry>ilisp>medley>sources>ADIR.;30 65795 +(FILECREATED "13-Jun-2021 11:25:58" {DSK}kaplan>Local>medley3.5>git-medley>sources>ADIR.;9 65815 - changes to%: (VARS ADIRCOMS) - (FNS \FLUSHVM \LOGOUT0) + changes to%: (FNS OPENSTREAM) - previous date%: "16-Mar-2021 19:55:51" {DSK}larry>ilisp>medley>sources>ADIR.;26) + previous date%: "21-Mar-2021 21:59:07" +{DSK}kaplan>Local>medley3.5>git-medley>sources>ADIR.;8) (* ; " @@ -14,14 +14,14 @@ Copyright (c) 1981-1988, 1990-1992, 1920, 2017, 2020-2021 by Venue & Xerox Corpo (PRETTYCOMPRINT ADIRCOMS) (RPAQQ ADIRCOMS - [[COMS (* ; "user-level i/o routines") + [[COMS (* ; "user-level i/o routines") (FNS DELFILE FULLNAME INFILE INFILEP IOFILE OPENFILE OPENSTREAM OUTFILE OUTFILEP RENAMEFILE SIMPLE.FINDFILE VMEMSIZE \COPYSYS \FLUSHVM \LOGOUT0) (CONSTANTS (MULTIPLE.STREAMS.PER.FILE.ALLOWED T)) (P (MOVD? 'SIMPLE.FINDFILE 'FINDFILE NIL T)) (DECLARE%: DONTEVAL@LOAD DOCOPY (P - (* ;; "for the benefit of the call to PATHNAMEP in OPENSTREAM. PATHNAMEP (and pathnames) get defined much later in the loadup.") + (* ;; "for the benefit of the call to PATHNAMEP in OPENSTREAM. PATHNAMEP (and pathnames) get defined much later in the loadup.") (MOVD? 'NILL 'CL:PATHNAMEP] (COMS (FNS UNPACKFILENAME UNPACKFILENAME.STRING LASTCHPOS \UPF.NEXTPOS \UPF.TEMPFILEP @@ -30,8 +30,8 @@ Copyright (c) 1981-1988, 1990-1992, 1920, 2017, 2020-2021 by Venue & Xerox Corpo PACKFILENAME.ASSEMBLE UNPACKFILE1)) (VARS \FILENAME.SYNTAX) (GLOBALVARS \FILENAME.SYNTAX)) - (COMS (* ; - "saving and restoring system state") + (COMS (* ; + "saving and restoring system state") (FNS LOGOUT MAKESYS SYSOUT SAVEVM HERALD INTERPRET.REM.CM \USEREVENT) (ADDVARS (AROUNDEXITFNS)) (INITVARS (HERALDSTRING "") @@ -89,7 +89,7 @@ Copyright (c) 1981-1988, 1990-1992, 1920, 2017, 2020-2021 by Venue & Xerox Corpo OPTIONAL]) (OPENSTREAM - [LAMBDA (FILE ACCESS RECOG PARAMETERS OBSOLETE) (* hdj "28-Aug-86 14:50") + [LAMBDA (FILE ACCESS RECOG PARAMETERS OBSOLETE) (* ; "Edited 13-Jun-2021 11:25 by rmk:") (PROG (REC OLDSTREAM STREAM) (SELECTQ ACCESS ((INPUT OUTPUT BOTH APPEND)) @@ -106,7 +106,7 @@ Copyright (c) 1981-1988, 1990-1992, 1920, 2017, 2020-2021 by Venue & Xerox Corpo (AND PARAMETERS (NLISTP PARAMETERS))) then - (* ;; "used to have OPENFILE/OPENSTREAM with BYTESIZE and PARAMETERS. Now it will take PARAMETERS, and generally ignore the BYTESIZE") + (* ;; "used to have OPENFILE/OPENSTREAM with BYTESIZE and PARAMETERS. Now it will take PARAMETERS, and generally ignore the BYTESIZE") (SETQ PARAMETERS (APPEND (SELECTQ PARAMETERS (7 '((TYPE TEXT))) @@ -117,46 +117,46 @@ Copyright (c) 1981-1988, 1990-1992, 1920, 2017, 2020-2021 by Venue & Xerox Corpo ((OR (EQ FILE T) (NULL FILE)) - (* ;; "Handle T and NIL separately, cause they can return the terminal streams, for which the search isn't necessary and the \ADDOFD shouldn't be done.") + (* ;; "Handle T and NIL separately, cause they can return the terminal streams, for which the search isn't necessary and the \ADDOFD shouldn't be done.") (SETQ STREAM (\GETSTREAM FILE ACCESS)) (\DO.PARAMS.AT.OPEN STREAM ACCESS PARAMETERS) (RETURN STREAM))) - (* ;; "Explicitly test for PATHNAMEP, as PATHNAMEP will have a NILL def early in the loadup, and the tests in \CONVERT-PATHNAME won't break anything") + (* ;; "Explicitly test for PATHNAMEP, as PATHNAMEP will have a NILL def early in the loadup, and the tests in \CONVERT-PATHNAME won't break anything") - (* ;; "Pavel changed a call to (PATHNAMEP FILE) into (TYPEP FILE `PATHNAME) because PATHNAMEP didn't have a NILL defn early in the loadup and TYPEP has an optimizer on it that compiles away the call to TYPEP which also has no defn early in the loadup.") + (* ;; "Pavel changed a call to (PATHNAMEP FILE) into (TYPEP FILE `PATHNAME) because PATHNAMEP didn't have a NILL defn early in the loadup and TYPEP has an optimizer on it that compiles away the call to TYPEP which also has no defn early in the loadup.") - (* ;; "Pavel also added the call to MKSTRING below as a temporary hack to get around the fact that the Interlisp string functions can't yet handle Common Lisp simple-strings.") + (* ;; "Pavel also added the call to MKSTRING below as a temporary hack to get around the fact that the Interlisp string functions can't yet handle Common Lisp simple-strings.") (if (TYPEP FILE 'PATHNAME) then (SETQ FILE (\CONVERT-PATHNAME FILE))) - (* ;; "We open the file before looking to see whether it is already open. This guarantees that we acquire the opening rights at the time we lookup the name. We then check to see if it is currently open in Lisp. If it is, we return the previous stream, which has the file's current state. ") + (* ;; "We open the file before looking to see whether it is already open. This guarantees that we acquire the opening rights at the time we lookup the name. We then check to see if it is currently open in Lisp. If it is, we return the previous stream, which has the file's current state. ") - (* ;; "There are still potential problems: First, an interrupt can happen while we are doing the search which causes the file to be deleted or re-opened beneath us, BEFORE it gets added to \OPENFILES. Second, a network device might not allow multiple openings of the file, even by the same guy with the same mode.") + (* ;; "There are still potential problems: First, an interrupt can happen while we are doing the search which causes the file to be deleted or re-opened beneath us, BEFORE it gets added to \OPENFILES. Second, a network device might not allow multiple openings of the file, even by the same guy with the same mode.") (SETQ STREAM (\OPENFILE FILE ACCESS REC PARAMETERS)) (COND [[AND (NOT MULTIPLE.STREAMS.PER.FILE.ALLOWED) - (SETQ OLDSTREAM (\SEARCHOPENFILES (fetch FULLNAME of STREAM] + (SETQ OLDSTREAM (\SEARCHOPENFILES (fetch (STREAM FULLNAME) of STREAM] - (* ;; "There is already a stream open on the file. Check that there is no conflict. Eventually all this registration belongs in the device, so that we can have multiple streams open per file") + (* ;; "There is already a stream open on the file. Check that there is no conflict. Eventually all this registration belongs in the device, so that we can have multiple streams open per file") (COND ((AND (EQ ACCESS 'INPUT) - (EQ (fetch ACCESS of OLDSTREAM) - 'INPUT)) (* ; - "Dispose of the newly-obtained stream, This might be a noop, but a network device (LEAF) cares") + (EQ (fetch (STREAM ACCESS) of OLDSTREAM) + 'INPUT)) (* ; + "Dispose of the newly-obtained stream, This might be a noop, but a network device (LEAF) cares") (OR (EQ STREAM OLDSTREAM) (\CLOSEFILE STREAM)) (\DO.PARAMS.AT.OPEN OLDSTREAM ACCESS PARAMETERS) - (* ; "Do parameters on the old stream") + (* ; "Do parameters on the old stream") (RETURN OLDSTREAM)) (T (LISPERROR "FILE WON'T OPEN" FILE] (T (AND (NOT MULTIPLE.STREAMS.PER.FILE.ALLOWED) - (\ADDOFD STREAM)) (* ; - "Parameters done on new stream by \OPENFILE") + (\ADDOFD STREAM)) (* ; + "Parameters done on new stream by \OPENFILE") (RETURN STREAM]) (OUTFILE @@ -274,7 +274,7 @@ Copyright (c) 1981-1988, 1990-1992, 1920, 2017, 2020-2021 by Venue & Xerox Corpo (DECLARE%: DONTEVAL@LOAD DOCOPY -(* ;; "for the benefit of the call to PATHNAMEP in OPENSTREAM. PATHNAMEP (and pathnames) get defined much later in the loadup.") +(* ;; "for the benefit of the call to PATHNAMEP in OPENSTREAM. PATHNAMEP (and pathnames) get defined much later in the loadup.") (MOVD? 'NILL 'CL:PATHNAMEP) @@ -709,7 +709,7 @@ Copyright (c) 1981-1988, 1990-1992, 1920, 2017, 2020-2021 by Venue & Xerox Corpo LP (COND ((<= I N) - (* ;; "Grab the next field-name / value pair and fold it into the filename:") + (* ;; "Grab the next field-name / value pair and fold it into the filename:") (COND ((LISTP (SETQ VAR (ARG N I))) @@ -803,7 +803,7 @@ Copyright (c) 1981-1988, 1990-1992, 1920, 2017, 2020-2021 by Venue & Xerox Corpo BLIP]) (RELATIVEDIRECTORY - (* ;; "This used to set RELATIVEDIRECTORY to BLIP if DIRECTORY was already specified. It really should act as a subdirectory in that case? JDS") + (* ;; "This used to set RELATIVEDIRECTORY to BLIP if DIRECTORY was already specified. It really should act as a subdirectory in that case? JDS") (OR RELATIVEDIRECTORY (SETQ RELATIVEDIRECTORY (OR (CADR X) @@ -826,7 +826,7 @@ Copyright (c) 1981-1988, 1990-1992, 1920, 2017, 2020-2021 by Venue & Xerox Corpo (SUBDIRECTORY (OR SUBDIRECTORY (SETQ SUBDIRECTORY (OR VAL BLIP)))) (RELATIVEDIRECTORY - (* ;; "This used to set RELATIVEDIRECTORY to BLIP if DIRECTORY was already specified. It really should act as a subdirectory in that case? JDS") + (* ;; "This used to set RELATIVEDIRECTORY to BLIP if DIRECTORY was already specified. It really should act as a subdirectory in that case? JDS") (OR RELATIVEDIRECTORY (SETQ RELATIVEDIRECTORY (OR VAL BLIP)))) (DEVICE (OR DEVICE (SETQ DEVICE (OR VAL BLIP)))) @@ -913,8 +913,8 @@ Copyright (c) 1981-1988, 1990-1992, 1920, 2017, 2020-2021 by Venue & Xerox Corpo (SUBSTRING VERSION 2 -1)) VERSION]) -(PUTPROPS UNPACKFILE1 MACRO [OPENLAMBDA (NAM ST END) - (* lmm "22-APR-81 22:21") +(PUTPROPS UNPACKFILE1 MACRO [OPENLAMBDA (NAM ST END) + (* lmm "22-APR-81 22:21") (COND [(NOT ONEFIELDFLG) (SETQ VAL (CONS (COND @@ -1158,14 +1158,14 @@ Copyright (c) 1981-1988, 1990-1992, 1920, 2017, 2020-2021 by Venue & Xerox Corpo (PUTPROPS ADIR COPYRIGHT ("Venue & Xerox Corporation" 1981 1982 1983 1984 1985 1986 1987 1988 1990 1991 1992 1920 2017 2020 2021)) (DECLARE%: DONTCOPY - (FILEMAP (NIL (2745 13838 (DELFILE 2755 . 2916) (FULLNAME 2918 . 3285) (INFILE 3287 . 3435) (INFILEP -3437 . 3572) (IOFILE 3574 . 3714) (OPENFILE 3716 . 4116) (OPENSTREAM 4118 . 8426) (OUTFILE 8428 . 8579 -) (OUTFILEP 8581 . 8717) (RENAMEFILE 8719 . 9025) (SIMPLE.FINDFILE 9027 . 9437) (VMEMSIZE 9439 . 9606) - (\COPYSYS 9608 . 12557) (\FLUSHVM 12559 . 13631) (\LOGOUT0 13633 . 13836)) (14210 33801 ( -UNPACKFILENAME 14220 . 14406) (UNPACKFILENAME.STRING 14408 . 30680) (LASTCHPOS 30682 . 31376) ( -\UPF.NEXTPOS 31378 . 32023) (\UPF.TEMPFILEP 32025 . 32602) (FILENAMEFIELD 32604 . 33089) (PACKFILENAME - 33091 . 33434) (PACKFILENAME.STRING 33436 . 33799)) (56242 63422 (LOGOUT 56252 . 57169) (MAKESYS -57171 . 58800) (SYSOUT 58802 . 60354) (SAVEVM 60356 . 61156) (HERALD 61158 . 61318) (INTERPRET.REM.CM -61320 . 63045) (\USEREVENT 63047 . 63420)) (63604 65331 (USERNAME 63614 . 64570) (SETUSERNAME 64572 . -65329))))) + (FILEMAP (NIL (2733 13858 (DELFILE 2743 . 2904) (FULLNAME 2906 . 3273) (INFILE 3275 . 3423) (INFILEP +3425 . 3560) (IOFILE 3562 . 3702) (OPENFILE 3704 . 4104) (OPENSTREAM 4106 . 8446) (OUTFILE 8448 . 8599 +) (OUTFILEP 8601 . 8737) (RENAMEFILE 8739 . 9045) (SIMPLE.FINDFILE 9047 . 9457) (VMEMSIZE 9459 . 9626) + (\COPYSYS 9628 . 12577) (\FLUSHVM 12579 . 13651) (\LOGOUT0 13653 . 13856)) (14230 33821 ( +UNPACKFILENAME 14240 . 14426) (UNPACKFILENAME.STRING 14428 . 30700) (LASTCHPOS 30702 . 31396) ( +\UPF.NEXTPOS 31398 . 32043) (\UPF.TEMPFILEP 32045 . 32622) (FILENAMEFIELD 32624 . 33109) (PACKFILENAME + 33111 . 33454) (PACKFILENAME.STRING 33456 . 33819)) (56262 63442 (LOGOUT 56272 . 57189) (MAKESYS +57191 . 58820) (SYSOUT 58822 . 60374) (SAVEVM 60376 . 61176) (HERALD 61178 . 61338) (INTERPRET.REM.CM +61340 . 63065) (\USEREVENT 63067 . 63440)) (63624 65351 (USERNAME 63634 . 64590) (SETUSERNAME 64592 . +65349))))) STOP diff --git a/sources/ADIR.LCOM b/sources/ADIR.LCOM index 48f6ab380..ddc650309 100644 Binary files a/sources/ADIR.LCOM and b/sources/ADIR.LCOM differ diff --git a/sources/ADISPLAY b/sources/ADISPLAY index b5bb2a792..7e3bd10d6 100644 --- a/sources/ADISPLAY +++ b/sources/ADISPLAY @@ -1,23 +1,26 @@ (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) -(FILECREATED "15-Sep-94 17:07:04" {DSK}sources>ADISPLAY.;7 259403 +(FILECREATED "13-Jun-2021 14:03:35"  +{DSK}kaplan>Local>medley3.5>git-medley>sources>ADISPLAY.;10 248693 - changes to%: (VARS ADISPLAYCOMS) - (FNS \CURSOR.DEFPRINT) + changes to%: (FNS \DRAWLINE.DISPLAY) + (VARS ADISPLAYCOMS) - previous date%: "24-Aug-94 14:14:55" {DSK}sources>ADISPLAY.;4) + previous date%: "15-Sep-94 17:07:04" +{DSK}kaplan>Local>medley3.5>git-medley>sources>ADISPLAY.;8) (* ; " -Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1991, 1993, 1994 by Venue & Xerox Corporation. All rights reserved. +Copyright (c) 1982-1988, 1990-1991, 1993-1994, 2021 by Venue & Xerox Corporation. ") (PRETTYCOMPRINT ADISPLAYCOMS) -(RPAQQ ADISPLAYCOMS - [(COMS (* ; "COMPILE SUPPORT") +(RPAQQ ADISPLAYCOMS + [(COMS (* ; "COMPILE SUPPORT") (DECLARE%: EVAL@COMPILE DONTCOPY (FILES (LOADCOMP) WINDOW))) - (COMS (* ; "Interlisp-D dependent stuff.") + (P (MOVD? 'NILL 'BIGBITMAPP)) + (COMS (* ; "Interlisp-D dependent stuff.") (EXPORT (RECORDS REGION BITMAP BITMAPWORD POSITION CURSOR MOUSEEVENT SCREENREGION SCREENPOSITION)) (SYSRECORDS PILOTBBT \DISPLAYDATA) @@ -27,21 +30,21 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1991, 1993, 1994 b (P (DEFPRINT 'BITMAP 'PRINT-BITMAPS-NICELY)) (FNS \GETINTEGERPART \CONVERTTOFRACTION) (CONSTANTS (INTEGERBITS 12))) - [COMS (* ; - "cursor functions not on LLDISPLAY") + [COMS (* ; + "cursor functions not on LLDISPLAY") (FNS CURSORP CURSORBITMAP CreateCursorBitMap) (EXPORT (MACROS CURSORBITMAP) (CONSTANTS (HARDCURSORHEIGHT 16) (HARDCURSORWIDTH 16)) (DECLARE%: EVAL@COMPILE (ADDVARS (GLOBALVARS CursorBitMap] (COMS * CARETCOMS) - (COMS (* ; "Region functions") + (COMS (* ; "Region functions") (FNS CREATEREGION REGIONP INTERSECTREGIONS UNIONREGIONS REGIONSINTERSECTP SUBREGIONP EXTENDREGION EXTENDREGIONBOTTOM EXTENDREGIONLEFT EXTENDREGIONRIGHT EXTENDREGIONTOP INSIDEP STRINGREGION)) - (COMS (* ; "line and spline drawing.") - (COMS (* ; - "Brushes and brush initialization") + (COMS (* ; "line and spline drawing.") + (COMS (* ; + "Brushes and brush initialization") (GLOBALRESOURCES \BRUSHBBT) (FNS \BRUSHBITMAP \GETBRUSH \GETBRUSHBBT \InitCurveBrushes \BrushFromWidth) (FNS \MAKEBRUSH.DIAGONAL \MAKEBRUSH.HORIZONTAL \MAKEBRUSH.VERTICAL @@ -53,29 +56,29 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1991, 1993, 1994 b (RECORDS BRUSHITEM) (DECLARE%: DONTEVAL@LOAD DOCOPY (P (\InitCurveBrushes))) (DECLARE%: DONTCOPY (GLOBALVARS \BrushAList KNOWN.BRUSHES))) - (* ; "Lines") + (* ; "Lines") (FNS \DRAWLINE.DISPLAY RELMOVETO MOVETOUPPERLEFT) (FNS \CLIPANDDRAWLINE \CLIPANDDRAWLINE1 \CLIPCODE \LEASTPTAT \GREATESTPTAT \DRAWLINE1 \DRAWLINE.UFN) (DECLARE%: DONTCOPY (MACROS .DRAWLINEX. .DRAWLINEY.)) - (* ; "Curves") + (* ; "Curves") (FNS \DRAWCIRCLE.DISPLAY \DRAWARC.DISPLAY \DRAWARC.GENERIC \COMPUTE.ARC.POINTS \DRAWELLIPSE.DISPLAY \DRAWCURVE.DISPLAY \DRAWPOINT.DISPLAY \DRAWPOLYGON.DISPLAY \LINEWITHBRUSH) (FNS LOADPOLY PARAMETRICSPLINE \CURVE \CURVE2 \CURVEEND \CURVESLOPE \CURVESTART \FDIFS/FROM/DERIVS) - (DECLARE%: DONTCOPY (* ; "Used by drawcurve") + (DECLARE%: DONTCOPY (* ; "Used by drawcurve") (EXPORT (RECORDS POLYNOMIAL SPLINE))) (DECLARE%: DONTCOPY (EXPORT (MACROS HALF \FILLCIRCLEBLT)) (MACROS \CURVEPT .SETUP.FOR.\BBTCURVEPT. \CIRCLEPTS \CURVESMOOTH)) (FNS \FILLCIRCLE.DISPLAY \LINEBLT)) - [COMS (* ; "making and copying bitmaps") + [COMS (* ; "making and copying bitmaps") (FNS SCREENBITMAP BITMAPP BITMAPHEIGHT BITSPERPIXEL) (EXPORT (FILEPKGCOMS BITMAPS CURSORS)) (DECLARE%: EVAL@COMPILE (EXPORT (ADDVARS (GLOBALVARS SCREENHEIGHT SCREENWIDTH ScreenBitMap] - [COMS (* ; - "Display stream functions that are not needed in the primitive system") + [COMS (* ; + "Display stream functions that are not needed in the primitive system") (FNS DSPFILL INVERTW) (FNS \DSPCOLOR.DISPLAY \DSPBACKCOLOR.DISPLAY DSPEOLFN) (EXPORT (CONSTANTS (BLACKSHADE 65535) @@ -84,7 +87,7 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1991, 1993, 1994 b (ADDVARS (GLOBALVARS GRAYSHADE))) (MACROS DSPRUBOUTCHAR) (FNS DSPCLEOL DSPRUBOUTCHAR \DSPMOVELR) - (COMS (* ; "for cursor") + (COMS (* ; "for cursor") (BITMAPS \DefaultCursor) (FNS \CURSOR.DEFPRINT) [DECLARE%: DONTEVAL@LOAD DOCOPY (INITVARS (DEFAULTCURSOR (CURSORCREATE @@ -94,8 +97,8 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1991, 1993, 1994 b (SETQ \CURRENTCURSOR DEFAULTCURSOR))) (DEFPRINT 'CURSOR '\CURSOR.DEFPRINT] (DECLARE%: DONTCOPY (GLOBALVARS DEFAULTCURSOR] - [COMS (* ; - "stuff to interpret colors as textures which is needed even in system that don't have color.") + [COMS (* ; + "stuff to interpret colors as textures which is needed even in system that don't have color.") (FNS TEXTUREOFCOLOR \PRIMARYTEXTURE \LEVELTEXTURE INSURE.B&W.TEXTURE INSURE.RGB.COLOR \LOOKUPCOLORNAME RGBP HLSP HLSTORGB \HLSVALUEFN) (VARS COLORNAMES) @@ -104,7 +107,7 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1991, 1993, 1994 b WHITESHADE16 REDTEXTURE GREENTEXTURE BLUETEXTURE)) (UGLYVARS BLACKSHADE16 DARKGRAY16 MEDIUMGRAY16 LIGHTGRAY16 WHITESHADE16 REDTEXTURE GREENTEXTURE BLUETEXTURE) - (DECLARE%: DONTCOPY (* ; "Used by drawcurve") + (DECLARE%: DONTCOPY (* ; "Used by drawcurve") (EXPORT (RECORDS HLS RGB] (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA) (NLAML) @@ -121,6 +124,8 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1991, 1993, 1994 b WINDOW) ) +(MOVD? 'NILL 'BIGBITMAPP) + (* ; "Interlisp-D dependent stuff.") @@ -150,7 +155,7 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1991, 1993, 1994 b (BITMAPBITSPERPIXEL WORD)) BITMAPBITSPERPIXEL _ 1 (BLOCKRECORD BITMAP ((BitMapHiLoc WORD) (BitMapLoLoc WORD)) - (* ; "overlay initial pointer") + (* ; "overlay initial pointer") ) (SYSTEM)) @@ -603,7 +608,7 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1991, 1993, 1994 b ) (* "FOLLOWING DEFINITIONS EXPORTED")(DECLARE%: EVAL@COMPILE -(PUTPROPS CURSORBITMAP MACRO (NIL CursorBitMap)) +(PUTPROPS CURSORBITMAP MACRO (NIL CursorBitMap)) ) (DECLARE%: EVAL@COMPILE @@ -623,51 +628,52 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1991, 1993, 1994 b (* "END EXPORTED DEFINITIONS") -(RPAQQ CARETCOMS ((BITMAPS \DefaultCaret) - (INITVARS (\CARET.UP NIL +(RPAQQ CARETCOMS + ((BITMAPS \DefaultCaret) + (INITVARS (\CARET.UP NIL - (* ;; "global. NIL if no caret showing, otherwise a CARET1 record with CURSOR, stream, x, y, and RATE (= off rate)") + (* ;; "global. NIL if no caret showing, otherwise a CARET1 record with CURSOR, stream, x, y, and RATE (= off rate)") ) - (\CARET.DEFAULT NIL (* ; - "global = default caret to put up. An instance of CARET1 datatype") - ) - (\CARET.TIMER (SETUPTIMER 0) - (* ; "time for next caret action")) - (DEFAULTCARET (CURSORCREATE \DefaultCaret NIL 3 4)) - (DEFAULTCARETRATE 333 (* ; "default rate for flashing caret") - ) - (\CARET.ON.RATE DEFAULTCARETRATE) - (\CARET.OFF.RATE DEFAULTCARETRATE) - (\CARET.FORCED.OFF.RATE 0)) - (ADDVARS (\SYSTEMTIMERVARS \CARET.TIMER)) - (DECLARE%: DONTCOPY (RECORDS CARET1)) - (INITRECORDS CARET1) - (FNS CARET \CARET.CREATE \CARET.DOWN \CARET.FLASH? \CARET.SHOW CARETRATE - \CARET.FLASH.AGAIN \CARET.FLASH.MULTIPLE \CARET.FLASH) - (FNS \MEDW.CARET.SHOW) - (* ; "some declarations are on LLDISPLAY -- macro for \CHECKCARET and globalvar declaration for \CARET.UP") - (GLOBALVARS \CARET.DEFAULT \CARET.ON.RATE \CARET.OFF.RATE DEFAULTCARET - \CARET.TIMER \CARET.UP \CARET.FORCED.OFF.RATE) - (DECLARE%: DONTEVAL@LOAD DOCOPY (ADDVARS (TTYBACKGROUNDFNS \CARET.FLASH?))) - (FNS \AREAVISIBLE? \REGIONOVERLAPAREAP \AREAINREGIONP) - (P (CARET T)))) + (\CARET.DEFAULT NIL (* ; + "global = default caret to put up. An instance of CARET1 datatype") + ) + (\CARET.TIMER (SETUPTIMER 0) + (* ; "time for next caret action")) + (DEFAULTCARET (CURSORCREATE \DefaultCaret NIL 3 4)) + (DEFAULTCARETRATE 333 (* ; "default rate for flashing caret") + ) + (\CARET.ON.RATE DEFAULTCARETRATE) + (\CARET.OFF.RATE DEFAULTCARETRATE) + (\CARET.FORCED.OFF.RATE 0)) + (ADDVARS (\SYSTEMTIMERVARS \CARET.TIMER)) + (DECLARE%: DONTCOPY (RECORDS CARET1)) + (INITRECORDS CARET1) + (FNS CARET \CARET.CREATE \CARET.DOWN \CARET.FLASH? \CARET.SHOW CARETRATE \CARET.FLASH.AGAIN + \CARET.FLASH.MULTIPLE \CARET.FLASH) + (FNS \MEDW.CARET.SHOW) + (* ; "some declarations are on LLDISPLAY -- macro for \CHECKCARET and globalvar declaration for \CARET.UP") + (GLOBALVARS \CARET.DEFAULT \CARET.ON.RATE \CARET.OFF.RATE DEFAULTCARET \CARET.TIMER \CARET.UP + \CARET.FORCED.OFF.RATE) + (DECLARE%: DONTEVAL@LOAD DOCOPY (ADDVARS (TTYBACKGROUNDFNS \CARET.FLASH?))) + (FNS \AREAVISIBLE? \REGIONOVERLAPAREAP \AREAINREGIONP) + (P (CARET T)))) (RPAQQ \DefaultCaret #*(7 6)A@@@CH@@CH@@FL@@FL@@LF@@) (RPAQ? \CARET.UP NIL - (* ;; "global. NIL if no caret showing, otherwise a CARET1 record with CURSOR, stream, x, y, and RATE (= off rate)") + (* ;; "global. NIL if no caret showing, otherwise a CARET1 record with CURSOR, stream, x, y, and RATE (= off rate)") ) -(RPAQ? \CARET.DEFAULT NIL (* ; - "global = default caret to put up. An instance of CARET1 datatype") +(RPAQ? \CARET.DEFAULT NIL (* ; + "global = default caret to put up. An instance of CARET1 datatype") ) (RPAQ? \CARET.TIMER (SETUPTIMER 0) - (* ; "time for next caret action")) + (* ; "time for next caret action")) (RPAQ? DEFAULTCARET (CURSORCREATE \DefaultCaret NIL 3 4)) -(RPAQ? DEFAULTCARETRATE 333 (* ; "default rate for flashing caret") +(RPAQ? DEFAULTCARETRATE 333 (* ; "default rate for flashing caret") ) (RPAQ? \CARET.ON.RATE DEFAULTCARETRATE) @@ -680,19 +686,19 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1991, 1993, 1994 b (DECLARE%: DONTCOPY (DECLARE%: EVAL@COMPILE -(RECORD CARET1 (* ; - "a record that describes a SHOWING caret") - (STREAM (* ; - "the stream the caret is showing in") - STREAMX (* ; - "the X position stream relative that it was shown at") - STREAMY (* ; - "the Y position stream relative that it was shown at") - CURSOR (* ; - "the cursor bitmap + x and y that this caret represents") - RATE (* ; "the 'down rate' for this caret, in ticks. After comes down (when \CARET.TIMER expires), \CARET.TIMER will be rescheduled to put something up. This is the rate to use") - (* ; - "NEXT for threading carets together") +(RECORD CARET1 (* ; + "a record that describes a SHOWING caret") + (STREAM (* ; + "the stream the caret is showing in") + STREAMX (* ; + "the X position stream relative that it was shown at") + STREAMY (* ; + "the Y position stream relative that it was shown at") + CURSOR (* ; + "the cursor bitmap + x and y that this caret represents") + RATE (* ; "the 'down rate' for this caret, in ticks. After comes down (when \CARET.TIMER expires), \CARET.TIMER will be rescheduled to put something up. This is the rate to use") + (* ; + "NEXT for threading carets together") . NEXT)) ) ) @@ -1543,85 +1549,37 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1991, 1993, 1994 b (DEFINEQ (\DRAWLINE.DISPLAY - [LAMBDA (DISPLAYSTREAM X1 Y1 X2 Y2 WIDTH OPERATION COLOR DASHING) - (* ; "Edited 29-Jan-91 14:59 by matsuda") + [LAMBDA (DISPLAYSTREAM X1 Y1 X2 Y2 WIDTH OPERATION COLOR DASHING) + (* ; "Edited 13-Jun-2021 14:03 by rmk:") - (* ;; "DISPLAYSTREAM is guaranteed to be a display-stream. Draws a line from x1,y1 to x2,y2 leaving the position at x2,y2") + (* ;; "DISPLAYSTREAM is guaranteed to be a display-stream. Draws a line from x1,y1 to x2,y2 leaving the position at x2,y2") - (* ;; "Added handling of brushes (I think, this is actually pretty tricky).") + (* ;; "Added handling of brushes (I think, this is actually pretty tricky).") (DECLARE (LOCALVARS . T)) - [COND - [(OR DASHING (BRUSHP WIDTH)) - (GLOBALRESOURCE - \BRUSHBBT - (LET ((BBT \BRUSHBBT) - (BRUSH (INSURE.BRUSH WIDTH))) - (if COLOR - then (replace (BRUSH BRUSHCOLOR) of BRUSH with COLOR)) - (IF [NOT (type? BIGBM (ffetch DDDestination of (fetch IMAGEDATA - of DISPLAYSTREAM] - THEN (\LINEWITHBRUSH X1 Y1 X2 Y2 BRUSH (\GOOD.DASHLST DASHING BRUSH) - DISPLAYSTREAM BBT (SELECTQ OPERATION - (NIL (ffetch DDOPERATION - of (fetch IMAGEDATA - of DISPLAYSTREAM))) - ((REPLACE PAINT INVERT ERASE) - OPERATION) - (\ILLEGAL.ARG OPERATION))) - ELSE (PROG ((DD (fetch IMAGEDATA of DISPLAYSTREAM)) - BITMAP BIGBMLIST HEIGHT BOTTOM BM YY1 YY2 ClippingTop ClippingBottom - CTop CBottom) - (SETQ BITMAP (ffetch DDDestination of DD)) - (SETQ BIGBMLIST (fetch (BIGBM BIGBMLIST) of BITMAP)) - (SETQ HEIGHT (BITMAPHEIGHT BITMAP)) - (SETQ ClippingTop (ffetch DDClippingTop of DD)) - (SETQ ClippingBottom (ffetch DDClippingBottom of DD)) - (SETQ BM (GetNewFragment BIGBMLIST)) - (while (AND BM (IGREATERP HEIGHT ClippingBottom)) - do (SETQ BOTTOM (IDIFFERENCE HEIGHT (BITMAPHEIGHT BM))) - [SETQ CTop (COND - ((IGREATERP ClippingTop HEIGHT) - (IDIFFERENCE HEIGHT BOTTOM)) - (T (IDIFFERENCE ClippingTop BOTTOM] - (if (IGEQ CTop 0) - then [SETQ CBottom (COND - ((ILESSP ClippingBottom BOTTOM) - 0) - (T (IDIFFERENCE ClippingBottom - BOTTOM] - (replace DDDestination of DD with - BM) - (replace DDClippingTop of DD with - CTop) - (replace DDClippingBottom of DD - with CBottom) - (\LINEWITHBRUSH - X1 - (IDIFFERENCE Y1 BOTTOM) - X2 - (IDIFFERENCE Y2 BOTTOM) - BRUSH - (\GOOD.DASHLST DASHING BRUSH) - DISPLAYSTREAM BBT - (SELECTQ OPERATION - (NIL (ffetch DDOPERATION - of (fetch IMAGEDATA - of DISPLAYSTREAM))) - ((REPLACE PAINT INVERT ERASE) - OPERATION) - (\ILLEGAL.ARG OPERATION))) - (SETQ BM (GetNewFragment BIGBMLIST)) - (SETQ HEIGHT BOTTOM))) - (freplace DDDestination of DD with BITMAP) - (freplace DDClippingTop of DD with ClippingTop) - (freplace DDClippingBottom of DD with ClippingBottom] - (T (PROG ((DD (fetch IMAGEDATA of DISPLAYSTREAM)) - BITMAP) - (\INSURETOPWDS DISPLAYSTREAM) (* ; "bring the window to the top") - (SETQ BITMAP (ffetch DDDestination of DD)) - (COND - ((NOT (type? BIGBM BITMAP)) + (SELECTQ OPERATION + (NIL (ffetch DDOPERATION of (fetch IMAGEDATA of DISPLAYSTREAM))) + ((REPLACE PAINT INVERT ERASE) + OPERATION) + (\ILLEGAL.ARG OPERATION)) + (\INSURETOPWDS DISPLAYSTREAM) (* ; + "RMK: This was only in the no-dash case, oddly") + (IF (OR DASHING (BRUSHP WIDTH)) + THEN [LET ((BRUSH (INSURE.BRUSH WIDTH))) + (if COLOR + then (replace (BRUSH BRUSHCOLOR) of BRUSH with COLOR)) + (IF (BIGBITMAPP (ffetch DDDestination of (fetch IMAGEDATA + of DISPLAYSTREAM))) + THEN (\DRAWLINE.BIGBM.DASH DISPLAYSTREAM X1 Y1 X2 Y2 BRUSH DASHING + OPERATION) + ELSE (GLOBALRESOURCES \BRUSHBBT (\LINEWITHBRUSH X1 Y1 X2 Y2 BRUSH + (\GOOD.DASHLST DASHING BRUSH) + DISPLAYSTREAM \BRUSHBBT OPERATION] + ELSEIF (BIGBITMAPP (ffetch DDDestination of (fetch IMAGEDATA of + DISPLAYSTREAM + ))) + THEN (\DRAWLINE.BIGBM.NODASH DISPLAYSTREAM X1 Y1 X2 Y2 WIDTH OPERATION COLOR) + ELSE (LET ((DD (fetch IMAGEDATA of DISPLAYSTREAM))) (\CLIPANDDRAWLINE (\DSPTRANSFORMX (OR (FIXP X1) (FIXR X1)) DD) @@ -1639,68 +1597,14 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1991, 1993, 1994 b 1) ((OR (FIXP WIDTH) (FIXR WIDTH] - (SELECTQ OPERATION - (NIL (ffetch DDOPERATION of DD)) - ((REPLACE PAINT INVERT ERASE) - OPERATION) - (\ILLEGAL.ARG OPERATION)) - BITMAP + OPERATION + (ffetch DDDestination of DD) (ffetch DDClippingLeft of DD) (SUB1 (ffetch DDClippingRight of DD)) (ffetch DDClippingBottom of DD) (SUB1 (ffetch DDClippingTop of DD)) - DISPLAYSTREAM COLOR)) - (T (PROG ((BIGBMLIST (fetch (BIGBM BIGBMLIST) of BITMAP)) - (HEIGHT (BITMAPHEIGHT BITMAP)) - BOTTOM BM CTop CBottom (ClippingTop (ffetch DDClippingTop - of DD)) - (ClippingBottom (ffetch DDClippingBottom of DD)) - (YY1 (\DSPTRANSFORMY (OR (FIXP Y1) - (FIXR Y1)) - DD)) - (YY2 (\DSPTRANSFORMY (OR (FIXP Y2) - (FIXR Y2)) - DD))) - (SETQ BM (GetNewFragment BIGBMLIST)) - (while (AND BM (IGREATERP HEIGHT ClippingBottom)) - do (SETQ BOTTOM (IDIFFERENCE HEIGHT (BITMAPHEIGHT BM))) - [SETQ CTop (COND - ((IGREATERP ClippingTop HEIGHT) - (IDIFFERENCE HEIGHT BOTTOM)) - (T (IDIFFERENCE ClippingTop BOTTOM] - (COND - ((IGEQ CTop 0) - [SETQ CBottom (COND - ((ILESSP ClippingBottom BOTTOM) - 0) - (T (IDIFFERENCE ClippingBottom BOTTOM] - (\CLIPANDDRAWLINE (\DSPTRANSFORMX (OR (FIXP X1) - (FIXR X1)) - DD) - (IDIFFERENCE YY1 BOTTOM) - (\DSPTRANSFORMX (OR (FIXP X2) - (FIXR X2)) - DD) - (IDIFFERENCE YY2 BOTTOM) - [COND - ((NULL WIDTH) - 1) - ((OR (FIXP WIDTH) - (FIXR WIDTH] - (SELECTQ OPERATION - (NIL (ffetch DDOPERATION of DD)) - ((REPLACE PAINT INVERT ERASE) - OPERATION) - (\ILLEGAL.ARG OPERATION)) - BM - (ffetch DDClippingLeft of DD) - (SUB1 (ffetch DDClippingRight of DD)) - CBottom - (SUB1 CTop) - DISPLAYSTREAM COLOR))) - (SETQ BM (GetNewFragment BIGBMLIST)) - (SETQ HEIGHT BOTTOM] (* ; - "the generic case of MOVETO is used so that the hardcopy streams get handled as well.") + DISPLAYSTREAM COLOR))) (* ; + "the generic case of MOVETO is used so that the hardcopy streams get handled as well.") (MOVETO X2 Y2 DISPLAYSTREAM]) (RELMOVETO @@ -2118,70 +2022,79 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1991, 1993, 1994 b (DECLARE%: DONTCOPY (DECLARE%: EVAL@COMPILE -[PUTPROPS .DRAWLINEX. MACRO ((MODE) - (bind (NY _ 0) for PT from 1 to PIXELSINX - do (* ; "main loop") - [replace (BITMAPWORD BITS) of FIRSTADDR - with (SELECTQ MODE - (INVERT (LOGXOR MASK (fetch (BITMAPWORD - BITS) - of FIRSTADDR))) - (ERASE (LOGAND (LOGXOR MASK WORDMASK) - (fetch (BITMAPWORD BITS) - of FIRSTADDR))) - (PROGN (* ; - "case is PAINT or REPLACE. Legality of OPERATION has been checked by \CLIPANDDRAWLINE1") - (LOGOR MASK (fetch (BITMAPWORD - BITS) - of FIRSTADDR] - [COND - ([NOT (IGREATERP XDELTA (SETQ INITIALBUCKET (IPLUS - INITIALBUCKET - YDELTA] - (* ; "increment in the Y direction") - (COND - ((EQ (SETQ NY (ADD1 NY)) - PIXELSINY) - (RETURN))) - (SETQ INITIALBUCKET (IDIFFERENCE INITIALBUCKET XDELTA)) - (SETQ FIRSTADDR (\ADDBASE FIRSTADDR YINCR] - (SETQ MASK (LRSH MASK 1)) - (COND - ((EQ 0 MASK) (* ; "crossed word boundary") - (SETQ FIRSTADDR (\ADDBASE FIRSTADDR 1)) - (SETQ MASK 32768] - -[PUTPROPS .DRAWLINEY. MACRO ((MODE) - (bind (NX _ 0) for PT from 1 to PIXELSINY - do (* ; "main loop") - [replace (BITMAPWORD BITS) of FIRSTADDR - with (SELECTQ MODE - (INVERT (LOGXOR MASK (fetch (BITMAPWORD - BITS) - of FIRSTADDR))) - (ERASE (LOGAND (LOGXOR MASK WORDMASK) - (fetch (BITMAPWORD BITS) - of FIRSTADDR))) - (PROGN (* ; - "case is PAINT or REPLACE. Legality of OPERATION has been checked by \CLIPANDDRAWLINE1") - (LOGOR MASK (fetch (BITMAPWORD - BITS) - of FIRSTADDR] - [COND - ([NOT (IGREATERP YDELTA (SETQ INITIALBUCKET (IPLUS - INITIALBUCKET - XDELTA] - (COND - ((EQ (SETQ NX (ADD1 NX)) - PIXELSINX) - (RETURN))) - (SETQ INITIALBUCKET (IDIFFERENCE INITIALBUCKET YDELTA)) - (SETQ MASK (LRSH MASK 1)) - (COND - ((EQ 0 MASK) (* ; "crossed word boundary") - (SETQ FIRSTADDR (\ADDBASE FIRSTADDR 1)) - (SETQ MASK 32768] - (SETQ FIRSTADDR (\ADDBASE FIRSTADDR YINCR] +(PUTPROPS .DRAWLINEX. MACRO [(MODE) + (bind (NY _ 0) for PT from 1 to PIXELSINX + do (* ; "main loop") + [replace (BITMAPWORD BITS) of FIRSTADDR + with (SELECTQ MODE + (INVERT (LOGXOR MASK + (fetch (BITMAPWORD + BITS) + of FIRSTADDR))) + (ERASE (LOGAND (LOGXOR MASK WORDMASK) + (fetch (BITMAPWORD + BITS) + of FIRSTADDR))) + (PROGN + (* ; + "case is PAINT or REPLACE. Legality of OPERATION has been checked by \CLIPANDDRAWLINE1") + (LOGOR MASK (fetch + (BITMAPWORD BITS) + of FIRSTADDR] + [COND + ([NOT (IGREATERP XDELTA (SETQ INITIALBUCKET + (IPLUS INITIALBUCKET YDELTA + ] + (* ; "increment in the Y direction") + (COND + ((EQ (SETQ NY (ADD1 NY)) + PIXELSINY) + (RETURN))) + (SETQ INITIALBUCKET (IDIFFERENCE INITIALBUCKET + XDELTA)) + (SETQ FIRSTADDR (\ADDBASE FIRSTADDR YINCR] + (SETQ MASK (LRSH MASK 1)) + (COND + ((EQ 0 MASK)(* ; "crossed word boundary") + (SETQ FIRSTADDR (\ADDBASE FIRSTADDR 1)) + (SETQ MASK 32768]) + +(PUTPROPS .DRAWLINEY. MACRO [(MODE) + (bind (NX _ 0) for PT from 1 to PIXELSINY + do (* ; "main loop") + [replace (BITMAPWORD BITS) of FIRSTADDR + with (SELECTQ MODE + (INVERT (LOGXOR MASK + (fetch (BITMAPWORD + BITS) + of FIRSTADDR))) + (ERASE (LOGAND (LOGXOR MASK WORDMASK) + (fetch (BITMAPWORD + BITS) + of FIRSTADDR))) + (PROGN + (* ; + "case is PAINT or REPLACE. Legality of OPERATION has been checked by \CLIPANDDRAWLINE1") + (LOGOR MASK (fetch + (BITMAPWORD BITS) + of FIRSTADDR] + [COND + ([NOT (IGREATERP YDELTA (SETQ INITIALBUCKET + (IPLUS INITIALBUCKET XDELTA + ] + (COND + ((EQ (SETQ NX (ADD1 NX)) + PIXELSINX) + (RETURN))) + (SETQ INITIALBUCKET (IDIFFERENCE INITIALBUCKET + YDELTA)) + (SETQ MASK (LRSH MASK 1)) + (COND + ((EQ 0 MASK) + (* ; "crossed word boundary") + (SETQ FIRSTADDR (\ADDBASE FIRSTADDR 1)) + (SETQ MASK 32768] + (SETQ FIRSTADDR (\ADDBASE FIRSTADDR YINCR]) ) ) @@ -3466,21 +3379,22 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1991, 1993, 1994 b (DECLARE%: DONTCOPY (* "FOLLOWING DEFINITIONS EXPORTED")(DECLARE%: EVAL@COMPILE -(PUTPROPS HALF MACRO ((X) - (LRSH X 1))) - -(PUTPROPS \FILLCIRCLEBLT MACRO (OPENLAMBDA (CX CY X Y) (* ; - "calls bitblt twice to fill in one line of the circle.") - (\LINEBLT FCBBT (IDIFFERENCE CX X) - (IPLUS CY Y) - (IPLUS CX X) - DESTINATIONBASE RASTERWIDTH LEFT RIGHT BOTTOM TOP - GRAYWIDTH GRAYHEIGHT GRAYBASE NBITS) - (\LINEBLT FCBBT (IDIFFERENCE CX X) - (IDIFFERENCE CY Y) - (IPLUS CX X) - DESTINATIONBASE RASTERWIDTH LEFT RIGHT BOTTOM TOP - GRAYWIDTH GRAYHEIGHT GRAYBASE NBITS))) +(PUTPROPS HALF MACRO ((X) + (LRSH X 1))) + +(PUTPROPS \FILLCIRCLEBLT MACRO (OPENLAMBDA (CX CY X Y) + (* ; + "calls bitblt twice to fill in one line of the circle.") + (\LINEBLT FCBBT (IDIFFERENCE CX X) + (IPLUS CY Y) + (IPLUS CX X) + DESTINATIONBASE RASTERWIDTH LEFT RIGHT BOTTOM TOP + GRAYWIDTH GRAYHEIGHT GRAYBASE NBITS) + (\LINEBLT FCBBT (IDIFFERENCE CX X) + (IDIFFERENCE CY Y) + (IPLUS CX X) + DESTINATIONBASE RASTERWIDTH LEFT RIGHT BOTTOM TOP + GRAYWIDTH GRAYHEIGHT GRAYBASE NBITS))) ) (* "END EXPORTED DEFINITIONS") @@ -3488,165 +3402,126 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1991, 1993, 1994 b (DECLARE%: EVAL@COMPILE -[PUTPROPS \CURVEPT MACRO - (OPENLAMBDA (X Y) - (COND - ((OR (ILEQ X LEFTMINUSBRUSH) - (IGEQ X RIGHTPLUS1) - (ILEQ Y BOTTOMMINUSBRUSH) - (IGEQ Y TOP)) - NIL) - ((NULL BBT) - (\FBITMAPBIT DESTINATIONBASE X Y OPERATION HEIGHTMINUS1 RASTERWIDTH)) - (T - (* ;; - "This should have been done in .SETUP.FOR.\BBTCURVEPT., under \GETBRUSHBBT.") - - (* ;; "Its a bug here, because brushes can't use operation REPLACE.") - - (* ;; "(\SETPBTFUNCTION BBT (ffetch DDSOURCETYPE of DISPLAYDATA) OPERATION)") - - (\BBTCURVEPT X Y BBT LEFT BRUSHWIDTH LEFTMINUSBRUSH RIGHTPLUS1 - NBITSRIGHTPLUS1 TOPMINUSBRUSH DestinationBitMap BRUSHHEIGHT - BOTTOMMINUSBRUSH TOP BRUSHBASE DESTINATIONBASE RASTERWIDTH - BRUSHRASTERWIDTH COLORBRUSHBASE NBITS DISPLAYDATA] - -[PUTPROPS .SETUP.FOR.\BBTCURVEPT. MACRO (NIL (PROGN (SETQ BOTTOM (ffetch (\DISPLAYDATA - DDClippingBottom) - of DISPLAYDATA)) - (SETQ TOP (ffetch (\DISPLAYDATA DDClippingTop - ) of DISPLAYDATA - )) - (SETQ RIGHTPLUS1 (ffetch (\DISPLAYDATA - DDClippingRight - ) - of DISPLAYDATA)) - (SETQ LEFT (ffetch (\DISPLAYDATA - DDClippingLeft) - of DISPLAYDATA)) - (SETQ DestinationBitMap (ffetch (\DISPLAYDATA - - DDDestination - ) - of DISPLAYDATA)) - (SETQ OPERATION (OR OPERATION (ffetch - (\DISPLAYDATA - DDOPERATION) - of +(PUTPROPS \CURVEPT MACRO [OPENLAMBDA (X Y) + (COND + ((OR (ILEQ X LEFTMINUSBRUSH) + (IGEQ X RIGHTPLUS1) + (ILEQ Y BOTTOMMINUSBRUSH) + (IGEQ Y TOP)) + NIL) + ((NULL BBT) + (\FBITMAPBIT DESTINATIONBASE X Y OPERATION HEIGHTMINUS1 + RASTERWIDTH)) + (T + (* ;; + "This should have been done in .SETUP.FOR.\BBTCURVEPT., under \GETBRUSHBBT.") + + (* ;; + "Its a bug here, because brushes can't use operation REPLACE.") + + (* ;; + "(\SETPBTFUNCTION BBT (ffetch DDSOURCETYPE of DISPLAYDATA) OPERATION)") + + (\BBTCURVEPT X Y BBT LEFT BRUSHWIDTH LEFTMINUSBRUSH + RIGHTPLUS1 NBITSRIGHTPLUS1 TOPMINUSBRUSH + DestinationBitMap BRUSHHEIGHT BOTTOMMINUSBRUSH TOP + BRUSHBASE DESTINATIONBASE RASTERWIDTH + BRUSHRASTERWIDTH COLORBRUSHBASE NBITS DISPLAYDATA]) + +(PUTPROPS .SETUP.FOR.\BBTCURVEPT. MACRO + [NIL (PROGN (SETQ BOTTOM (ffetch (\DISPLAYDATA DDClippingBottom) of DISPLAYDATA)) + (SETQ TOP (ffetch (\DISPLAYDATA DDClippingTop) of DISPLAYDATA)) + (SETQ RIGHTPLUS1 (ffetch (\DISPLAYDATA DDClippingRight) of DISPLAYDATA) + ) + (SETQ LEFT (ffetch (\DISPLAYDATA DDClippingLeft) of DISPLAYDATA)) + (SETQ DestinationBitMap (ffetch (\DISPLAYDATA DDDestination) of DISPLAYDATA - ))) - (SETQ NBITS (fetch (BITMAP BITMAPBITSPERPIXEL - ) of + )) + (SETQ OPERATION (OR OPERATION (ffetch (\DISPLAYDATA DDOPERATION) + of DISPLAYDATA))) + (SETQ NBITS (fetch (BITMAP BITMAPBITSPERPIXEL) of DestinationBitMap)) + [COND + [(NOT (EQ NBITS 1)) + (SETQ BRUSHBM (\GETCOLORBRUSH BRUSH (MAXIMUMCOLOR NBITS) + NBITS)) + [SETQ COLOR (COND + [(AND (LISTP BRUSH) + (CAR (LISTP (CDDR BRUSH] + ((DSPCOLOR NIL DISPLAYSTREAM)) + (T (MAXIMUMCOLOR NBITS] + [COND + ((EQ OPERATION 'ERASE) + (SETQ COLOR (OPPOSITECOLOR COLOR NBITS] + (SETQ COLORBRUSHBASE (fetch (BITMAP BITMAPBASE) + of (\GETCOLORBRUSH BRUSH COLOR NBITS] + (T (SETQ BRUSHBM (\GETBRUSH BRUSH] + (SETQ RASTERWIDTH (ffetch (BITMAP BITMAPRASTERWIDTH) of DestinationBitMap - )) - [COND - [(NOT (EQ NBITS 1)) - (SETQ BRUSHBM (\GETCOLORBRUSH BRUSH - (MAXIMUMCOLOR NBITS) - NBITS)) - [SETQ COLOR - (COND - [(AND (LISTP BRUSH) - (CAR (LISTP (CDDR BRUSH] - ((DSPCOLOR NIL DISPLAYSTREAM)) - (T (MAXIMUMCOLOR NBITS] - [COND - ((EQ OPERATION 'ERASE) - (SETQ COLOR (OPPOSITECOLOR COLOR NBITS] - (SETQ COLORBRUSHBASE - (fetch (BITMAP BITMAPBASE) - of (\GETCOLORBRUSH BRUSH COLOR NBITS] - (T (SETQ BRUSHBM (\GETBRUSH BRUSH] - (SETQ RASTERWIDTH (ffetch (BITMAP - BITMAPRASTERWIDTH - ) - of DestinationBitMap)) - (SETQ DESTINATIONBASE (ffetch (BITMAP - BITMAPBASE - ) - of DestinationBitMap - )) - (SETQ BBT (\GETBRUSHBBT BRUSHBM DISPLAYDATA - BBT)) - (SETQ BRUSHBASE (fetch (BITMAP BITMAPBASE) - of BRUSHBM)) - (SETQ BRUSHRASTERWIDTH (ffetch (BITMAP - BITMAPRASTERWIDTH - ) - of BRUSHBM)) - [COND - ((NULL BBT) - (SETQ HEIGHTMINUS1 (SUB1 (ffetch - (BITMAP - BITMAPHEIGHT - ) - of + )) + (SETQ DESTINATIONBASE (ffetch (BITMAP BITMAPBASE) of DestinationBitMap) + ) + (SETQ BBT (\GETBRUSHBBT BRUSHBM DISPLAYDATA BBT)) + (SETQ BRUSHBASE (fetch (BITMAP BITMAPBASE) of BRUSHBM)) + (SETQ BRUSHRASTERWIDTH (ffetch (BITMAP BITMAPRASTERWIDTH) of BRUSHBM)) + [COND + ((NULL BBT) + (SETQ HEIGHTMINUS1 (SUB1 (ffetch (BITMAP BITMAPHEIGHT) of DestinationBitMap - ))) - (COND - ((EQ (ffetch (\DISPLAYDATA DDOPERATION - ) of - DISPLAYDATA - ) - 'INVERT) - (SETQ OPERATION 'INVERT] - (SETQ BRUSHWIDTH (ffetch (BITMAP BITMAPWIDTH) - of BRUSHBM)) - (SETQ BRUSHHEIGHT (ffetch (BITMAP - BITMAPHEIGHT - ) - of BRUSHBM)) - (SETQ LEFTMINUSBRUSH (IDIFFERENCE LEFT BRUSHWIDTH - )) - (SETQ BOTTOMMINUSBRUSH (IDIFFERENCE BOTTOM - BRUSHHEIGHT)) - (SETQ TOPMINUSBRUSH (IDIFFERENCE TOP BRUSHHEIGHT) - ) - (SETQ NBITSRIGHTPLUS1 (ITIMES RIGHTPLUS1 NBITS)) - (SETQ BRUSHWIDTH (ITIMES BRUSHWIDTH NBITS] - -[PUTPROPS \CIRCLEPTS MACRO (OPENLAMBDA (CX CY X Y) - (\CURVEPT (IPLUS CX X) - (IPLUS CY Y)) - (\CURVEPT (IDIFFERENCE CX X) - (IPLUS CY Y)) - (\CURVEPT (IPLUS CX X) - (IDIFFERENCE CY Y)) - (\CURVEPT (IDIFFERENCE CX X) - (IDIFFERENCE CY Y] - -[PUTPROPS \CURVESMOOTH MACRO (OPENLAMBDA (NEWX NEWY USERFN DISPLAYSTREAM) - (PROG [(DX (IABS (IDIFFERENCE NEWX \OLDX))) - (DY (IABS (IDIFFERENCE NEWY \OLDY] - (COND - ((OR (IGREATERP DX 1) - (IGREATERP DY 1)) - [COND - ((NEQ [IPLUS (ADD1 (IDIFFERENCE \OLDX \OLDERX)) - (ITIMES 3 (ADD1 (IDIFFERENCE \OLDY - \OLDERY] - 4) - [COND - (DASHON (COND - (USERFN (APPLY* USERFN \OLDX \OLDY - DISPLAYSTREAM)) - (T (.WHILE.TOP.DS. DISPLAYSTREAM - (\CURVEPT \OLDX \OLDY] - (COND - (DASHTAIL (COND - ((EQ 0 (SETQ DASHCNT (SUB1 DASHCNT) - )) - (SETQ DASHON (NOT DASHON)) - (SETQ DASHTAIL - (OR (LISTP (CDR DASHTAIL)) - DASHLST)) - (SETQ DASHCNT (CAR DASHTAIL] - (SETQ \OLDERX \OLDX) - (SETQ \OLDERY \OLDY) - (SETQ \OLDX \CURX) - (SETQ \OLDY \CURY))) - (SETQ \CURX NEWX) - (SETQ \CURY NEWY] + ))) + (COND + ((EQ (ffetch (\DISPLAYDATA DDOPERATION) of DISPLAYDATA) + 'INVERT) + (SETQ OPERATION 'INVERT] + (SETQ BRUSHWIDTH (ffetch (BITMAP BITMAPWIDTH) of BRUSHBM)) + (SETQ BRUSHHEIGHT (ffetch (BITMAP BITMAPHEIGHT) of BRUSHBM)) + (SETQ LEFTMINUSBRUSH (IDIFFERENCE LEFT BRUSHWIDTH)) + (SETQ BOTTOMMINUSBRUSH (IDIFFERENCE BOTTOM BRUSHHEIGHT)) + (SETQ TOPMINUSBRUSH (IDIFFERENCE TOP BRUSHHEIGHT)) + (SETQ NBITSRIGHTPLUS1 (ITIMES RIGHTPLUS1 NBITS)) + (SETQ BRUSHWIDTH (ITIMES BRUSHWIDTH NBITS]) + +(PUTPROPS \CIRCLEPTS MACRO (OPENLAMBDA (CX CY X Y) + (\CURVEPT (IPLUS CX X) + (IPLUS CY Y)) + (\CURVEPT (IDIFFERENCE CX X) + (IPLUS CY Y)) + (\CURVEPT (IPLUS CX X) + (IDIFFERENCE CY Y)) + (\CURVEPT (IDIFFERENCE CX X) + (IDIFFERENCE CY Y)))) + +(PUTPROPS \CURVESMOOTH MACRO (OPENLAMBDA (NEWX NEWY USERFN DISPLAYSTREAM) + (PROG [(DX (IABS (IDIFFERENCE NEWX \OLDX))) + (DY (IABS (IDIFFERENCE NEWY \OLDY] + (COND + ((OR (IGREATERP DX 1) + (IGREATERP DY 1)) + [COND + ((NEQ [IPLUS (ADD1 (IDIFFERENCE \OLDX \OLDERX)) + (ITIMES 3 (ADD1 (IDIFFERENCE \OLDY + \OLDERY] + 4) + [COND + (DASHON (COND + (USERFN (APPLY* USERFN \OLDX \OLDY + DISPLAYSTREAM)) + (T (.WHILE.TOP.DS. DISPLAYSTREAM + (\CURVEPT \OLDX \OLDY] + (COND + (DASHTAIL (COND + ((EQ 0 (SETQ DASHCNT + (SUB1 DASHCNT))) + (SETQ DASHON (NOT DASHON)) + (SETQ DASHTAIL + (OR (LISTP (CDR DASHTAIL)) + DASHLST)) + (SETQ DASHCNT (CAR DASHTAIL] + (SETQ \OLDERX \OLDX) + (SETQ \OLDERY \OLDY) + (SETQ \OLDX \CURX) + (SETQ \OLDY \CURY))) + (SETQ \CURX NEWX) + (SETQ \CURY NEWY)))) ) ) (DEFINEQ @@ -4064,8 +3939,8 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1991, 1993, 1994 b (DECLARE%: EVAL@COMPILE -(PUTPROPS DSPRUBOUTCHAR MACRO ((DS CHAR X Y TTBL) - (\DSPMOVELR DS CHAR X Y TTBL NIL T))) +(PUTPROPS DSPRUBOUTCHAR MACRO ((DS CHAR X Y TTBL) + (\DSPMOVELR DS CHAR X Y TTBL NIL T))) ) (DEFINEQ @@ -4411,14 +4286,15 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1991, 1993, 1994 b 255]) ) -(RPAQQ COLORNAMES ((WHITE 255 255 255) - (CYAN 0 255 255) - (MAGENTA 255 0 255) - (YELLOW 255 255 0) - (RED 255 0 0) - (GREEN 0 255 0) - (BLUE 0 0 255) - (BLACK 0 0 0))) +(RPAQQ COLORNAMES + ((WHITE 255 255 255) + (CYAN 0 255 255) + (MAGENTA 255 0 255) + (YELLOW 255 255 0) + (RED 255 0 0) + (GREEN 0 255 0) + (BLUE 0 0 255) + (BLACK 0 0 0))) (DECLARE%: DOEVAL@COMPILE DONTCOPY (GLOBALVARS COLORNAMES) @@ -4583,42 +4459,42 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1991, 1993, 1994 b (ADDTOVAR LAMA UNIONREGIONS INTERSECTREGIONS) ) (PUTPROPS ADISPLAY COPYRIGHT ("Venue & Xerox Corporation" 1982 1983 1984 1985 1986 1987 1988 1990 1991 - 1993 1994)) + 1993 1994 2021)) (DECLARE%: DONTCOPY - (FILEMAP (NIL (12396 20453 (\BBTCURVEPT 12406 . 20451)) (20454 30512 (CREATETEXTUREFROMBITMAP 20464 . -22496) (PRINTBITMAP 22498 . 23827) (PRINT-BITMAPS-NICELY 23829 . 27846) (PRINTCURSOR 27848 . 28795) ( -\WRITEBITMAP 28797 . 30510)) (30555 33101 (\GETINTEGERPART 30565 . 32108) (\CONVERTTOFRACTION 32110 . -33099)) (33238 34124 (CURSORP 33248 . 33467) (CURSORBITMAP 33469 . 33515) (CreateCursorBitMap 33517 . -34122)) (38756 48618 (CARET 38766 . 40514) (\CARET.CREATE 40516 . 40694) (\CARET.DOWN 40696 . 42149) ( -\CARET.FLASH? 42151 . 44048) (\CARET.SHOW 44050 . 44806) (CARETRATE 44808 . 45466) (\CARET.FLASH.AGAIN - 45468 . 46743) (\CARET.FLASH.MULTIPLE 46745 . 47277) (\CARET.FLASH 47279 . 48616)) (48619 53719 ( -\MEDW.CARET.SHOW 48629 . 53717)) (54083 55914 (\AREAVISIBLE? 54093 . 55015) (\REGIONOVERLAPAREAP 55017 - . 55560) (\AREAINREGIONP 55562 . 55912)) (55963 72020 (CREATEREGION 55973 . 56309) (REGIONP 56311 . -56457) (INTERSECTREGIONS 56459 . 60282) (UNIONREGIONS 60284 . 63484) (REGIONSINTERSECTP 63486 . 64094) - (SUBREGIONP 64096 . 64741) (EXTENDREGION 64743 . 67963) (EXTENDREGIONBOTTOM 67965 . 68770) ( -EXTENDREGIONLEFT 68772 . 69475) (EXTENDREGIONRIGHT 69477 . 70114) (EXTENDREGIONTOP 70116 . 70742) ( -INSIDEP 70744 . 71512) (STRINGREGION 71514 . 72018)) (72265 78654 (\BRUSHBITMAP 72275 . 73999) ( -\GETBRUSH 74001 . 74312) (\GETBRUSHBBT 74314 . 77077) (\InitCurveBrushes 77079 . 78518) ( -\BrushFromWidth 78520 . 78652)) (78655 81720 (\MAKEBRUSH.DIAGONAL 78665 . 78945) ( -\MAKEBRUSH.HORIZONTAL 78947 . 79341) (\MAKEBRUSH.VERTICAL 79343 . 79655) (\MAKEBRUSH.SQUARE 79657 . -79934) (\MAKEBRUSH.ROUND 79936 . 81718)) (81721 82833 (INSTALLBRUSH 81731 . 82831)) (83234 95532 ( -\DRAWLINE.DISPLAY 83244 . 94247) (RELMOVETO 94249 . 94636) (MOVETOUPPERLEFT 94638 . 95530)) (95533 -119275 (\CLIPANDDRAWLINE 95543 . 102112) (\CLIPANDDRAWLINE1 102114 . 113984) (\CLIPCODE 113986 . -115360) (\LEASTPTAT 115362 . 115960) (\GREATESTPTAT 115962 . 116590) (\DRAWLINE1 116592 . 117716) ( -\DRAWLINE.UFN 117718 . 119273)) (124435 171434 (\DRAWCIRCLE.DISPLAY 124445 . 133313) (\DRAWARC.DISPLAY - 133315 . 133605) (\DRAWARC.GENERIC 133607 . 134426) (\COMPUTE.ARC.POINTS 134428 . 136929) ( -\DRAWELLIPSE.DISPLAY 136931 . 152596) (\DRAWCURVE.DISPLAY 152598 . 154967) (\DRAWPOINT.DISPLAY 154969 - . 156054) (\DRAWPOLYGON.DISPLAY 156056 . 159998) (\LINEWITHBRUSH 160000 . 171432)) (171435 204665 ( -LOADPOLY 171445 . 172005) (PARAMETRICSPLINE 172007 . 182276) (\CURVE 182278 . 188822) (\CURVE2 188824 - . 200648) (\CURVEEND 200650 . 201148) (\CURVESLOPE 201150 . 203648) (\CURVESTART 203650 . 203974) ( -\FDIFS/FROM/DERIVS 203976 . 204663)) (218666 233818 (\FILLCIRCLE.DISPLAY 218676 . 229874) (\LINEBLT -229876 . 233816)) (233862 235918 (SCREENBITMAP 233872 . 234345) (BITMAPP 234347 . 234581) ( -BITMAPHEIGHT 234583 . 234959) (BITSPERPIXEL 234961 . 235916)) (236559 237552 (DSPFILL 236569 . 237252) - (INVERTW 237254 . 237550)) (237553 241354 (\DSPCOLOR.DISPLAY 237563 . 238856) (\DSPBACKCOLOR.DISPLAY -238858 . 240387) (DSPEOLFN 240389 . 241352)) (241779 246557 (DSPCLEOL 241789 . 242735) (DSPRUBOUTCHAR -242737 . 243175) (\DSPMOVELR 243177 . 246555)) (246687 247801 (\CURSOR.DEFPRINT 246697 . 247799)) ( -248213 256835 (TEXTUREOFCOLOR 248223 . 249485) (\PRIMARYTEXTURE 249487 . 250069) (\LEVELTEXTURE 250071 - . 250572) (INSURE.B&W.TEXTURE 250574 . 251967) (INSURE.RGB.COLOR 251969 . 253449) (\LOOKUPCOLORNAME -253451 . 253721) (RGBP 253723 . 254486) (HLSP 254488 . 254863) (HLSTORGB 254865 . 256005) (\HLSVALUEFN - 256007 . 256833))))) + (FILEMAP (NIL (12479 20536 (\BBTCURVEPT 12489 . 20534)) (20537 30595 (CREATETEXTUREFROMBITMAP 20547 . +22579) (PRINTBITMAP 22581 . 23910) (PRINT-BITMAPS-NICELY 23912 . 27929) (PRINTCURSOR 27931 . 28878) ( +\WRITEBITMAP 28880 . 30593)) (30638 33184 (\GETINTEGERPART 30648 . 32191) (\CONVERTTOFRACTION 32193 . +33182)) (33321 34207 (CURSORP 33331 . 33550) (CURSORBITMAP 33552 . 33598) (CreateCursorBitMap 33600 . +34205)) (38573 48435 (CARET 38583 . 40331) (\CARET.CREATE 40333 . 40511) (\CARET.DOWN 40513 . 41966) ( +\CARET.FLASH? 41968 . 43865) (\CARET.SHOW 43867 . 44623) (CARETRATE 44625 . 45283) (\CARET.FLASH.AGAIN + 45285 . 46560) (\CARET.FLASH.MULTIPLE 46562 . 47094) (\CARET.FLASH 47096 . 48433)) (48436 53536 ( +\MEDW.CARET.SHOW 48446 . 53534)) (53900 55731 (\AREAVISIBLE? 53910 . 54832) (\REGIONOVERLAPAREAP 54834 + . 55377) (\AREAINREGIONP 55379 . 55729)) (55780 71837 (CREATEREGION 55790 . 56126) (REGIONP 56128 . +56274) (INTERSECTREGIONS 56276 . 60099) (UNIONREGIONS 60101 . 63301) (REGIONSINTERSECTP 63303 . 63911) + (SUBREGIONP 63913 . 64558) (EXTENDREGION 64560 . 67780) (EXTENDREGIONBOTTOM 67782 . 68587) ( +EXTENDREGIONLEFT 68589 . 69292) (EXTENDREGIONRIGHT 69294 . 69931) (EXTENDREGIONTOP 69933 . 70559) ( +INSIDEP 70561 . 71329) (STRINGREGION 71331 . 71835)) (72082 78471 (\BRUSHBITMAP 72092 . 73816) ( +\GETBRUSH 73818 . 74129) (\GETBRUSHBBT 74131 . 76894) (\InitCurveBrushes 76896 . 78335) ( +\BrushFromWidth 78337 . 78469)) (78472 81537 (\MAKEBRUSH.DIAGONAL 78482 . 78762) ( +\MAKEBRUSH.HORIZONTAL 78764 . 79158) (\MAKEBRUSH.VERTICAL 79160 . 79472) (\MAKEBRUSH.SQUARE 79474 . +79751) (\MAKEBRUSH.ROUND 79753 . 81535)) (81538 82650 (INSTALLBRUSH 81548 . 82648)) (83051 87935 ( +\DRAWLINE.DISPLAY 83061 . 86650) (RELMOVETO 86652 . 87039) (MOVETOUPPERLEFT 87041 . 87933)) (87936 +111678 (\CLIPANDDRAWLINE 87946 . 94515) (\CLIPANDDRAWLINE1 94517 . 106387) (\CLIPCODE 106389 . 107763) + (\LEASTPTAT 107765 . 108363) (\GREATESTPTAT 108365 . 108993) (\DRAWLINE1 108995 . 110119) ( +\DRAWLINE.UFN 110121 . 111676)) (117836 164835 (\DRAWCIRCLE.DISPLAY 117846 . 126714) (\DRAWARC.DISPLAY + 126716 . 127006) (\DRAWARC.GENERIC 127008 . 127827) (\COMPUTE.ARC.POINTS 127829 . 130330) ( +\DRAWELLIPSE.DISPLAY 130332 . 145997) (\DRAWCURVE.DISPLAY 145999 . 148368) (\DRAWPOINT.DISPLAY 148370 + . 149455) (\DRAWPOLYGON.DISPLAY 149457 . 153399) (\LINEWITHBRUSH 153401 . 164833)) (164836 198066 ( +LOADPOLY 164846 . 165406) (PARAMETRICSPLINE 165408 . 175677) (\CURVE 175679 . 182223) (\CURVE2 182225 + . 194049) (\CURVEEND 194051 . 194549) (\CURVESLOPE 194551 . 197049) (\CURVESTART 197051 . 197375) ( +\FDIFS/FROM/DERIVS 197377 . 198064)) (208033 223185 (\FILLCIRCLE.DISPLAY 208043 . 219241) (\LINEBLT +219243 . 223183)) (223229 225285 (SCREENBITMAP 223239 . 223712) (BITMAPP 223714 . 223948) ( +BITMAPHEIGHT 223950 . 224326) (BITSPERPIXEL 224328 . 225283)) (225926 226919 (DSPFILL 225936 . 226619) + (INVERTW 226621 . 226917)) (226920 230721 (\DSPCOLOR.DISPLAY 226930 . 228223) (\DSPBACKCOLOR.DISPLAY +228225 . 229754) (DSPEOLFN 229756 . 230719)) (231162 235940 (DSPCLEOL 231172 . 232118) (DSPRUBOUTCHAR +232120 . 232558) (\DSPMOVELR 232560 . 235938)) (236070 237184 (\CURSOR.DEFPRINT 236080 . 237182)) ( +237596 246218 (TEXTUREOFCOLOR 237606 . 238868) (\PRIMARYTEXTURE 238870 . 239452) (\LEVELTEXTURE 239454 + . 239955) (INSURE.B&W.TEXTURE 239957 . 241350) (INSURE.RGB.COLOR 241352 . 242832) (\LOOKUPCOLORNAME +242834 . 243104) (RGBP 243106 . 243869) (HLSP 243871 . 244246) (HLSTORGB 244248 . 245388) (\HLSVALUEFN + 245390 . 246216))))) STOP diff --git a/sources/ADISPLAY.LCOM b/sources/ADISPLAY.LCOM index 11c293688..997d6bedd 100644 Binary files a/sources/ADISPLAY.LCOM and b/sources/ADISPLAY.LCOM differ diff --git a/sources/AOFD b/sources/AOFD index 4ab752aea..e3c7a052c 100644 --- a/sources/AOFD +++ b/sources/AOFD @@ -1,13 +1,15 @@ (DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP") -(FILECREATED "13-Sep-90 16:39:58" |{PELE:MV:ENVOS}SOURCES>AOFD.;4| 34722 +(FILECREATED "13-Jun-2021 11:35:32" {DSK}kaplan>Local>medley3.5>git-medley>sources>AOFD.;2 35745 - changes to%: (FNS \BASEBYTES.IO.INIT \BASEBYTES.SETFILEPTR) + changes to%: (FNS CLOSEF INPUT OUTPUT RANDACCESSP \MAKEBASEBYTESTREAM \BASEBYTES.PEEKBIN + \SEARCHOPENFILES) - previous date%: "16-May-90 12:01:06" |{PELE:MV:ENVOS}SOURCES>AOFD.;3|) + previous date%: "10-May-2021 15:44:43" +{DSK}kaplan>Local>medley3.5>git-medley>sources>AOFD.;1) (* ; " -Copyright (c) 1981, 1982, 1983, 1984, 1985, 1986, 1987, 1990 by Venue & Xerox Corporation. All rights reserved. +Copyright (c) 1981-1987, 1990, 2021 by Venue & Xerox Corporation. ") (PRETTYCOMPRINT AOFDCOMS) @@ -15,7 +17,7 @@ Copyright (c) 1981, 1982, 1983, 1984, 1985, 1986, 1987, 1990 by Venue & Xerox Co (RPAQQ AOFDCOMS [ -(* ;;; "streams (= OpenFileDescriptors)") +(* ;;; "streams (= OpenFileDescriptors)") (COMS (FNS \ADD-OPEN-STREAM \GENERIC-UNREGISTER-STREAM) (INITVARS (*ISSUE-CLOSE-WARNINGS* NIL)) @@ -26,7 +28,7 @@ Copyright (c) 1981, 1982, 1983, 1984, 1985, 1986, 1987, 1990 by Venue & Xerox Co (\OPENFILES)) (GLOBALVARS DEFAULTEOFCLOSE \OPENFILES)) (COMS - (* ;; "STREAM interface to Read and Write to random memory") + (* ;; "STREAM interface to Read and Write to random memory") (DECLARE%: DONTCOPY (EXPORT (RECORDS BASEBYTESTREAM))) (FNS \BASEBYTES.IO.INIT \MAKEBASEBYTESTREAM \MBS.OUTCHARFN \BASEBYTES.NAME.FROM.STREAM @@ -36,7 +38,7 @@ Copyright (c) 1981, 1982, 1983, 1984, 1985, 1986, 1987, 1990 by Venue & Xerox Co (DECLARE%: DONTEVAL@LOAD (P (\BASEBYTES.IO.INIT))) (FNS OPENSTRINGSTREAM)) [COMS - (* ;; "STREAM interface for old-style strings") + (* ;; "STREAM interface for old-style strings") (FNS \STRINGSTREAM.INIT) (DECLARE%: DONTEVAL@LOAD DOCOPY (P (\STRINGSTREAM.INIT] @@ -93,11 +95,11 @@ Copyright (c) 1981, 1982, 1983, 1984, 1985, 1986, 1987, 1990 by Venue & Xerox Co collect (CLOSEF STREAM]) (CLOSEF - [LAMBDA (FILE) (* ; "Edited 17-Jan-87 16:08 by bvm:") + [LAMBDA (FILE) (* ; "Edited 13-Jun-2021 11:26 by rmk:") (PROG ((STREAM (\GETSTREAM FILE))) (COND ((OR (\OUTTERMP STREAM) - (NOT (fetch USERCLOSEABLE of STREAM))) + (NOT (fetch (STREAM USERCLOSEABLE) of STREAM))) (RETURN NIL))) [MAPC (STREAMPROP STREAM 'BEFORECLOSE) (FUNCTION (LAMBDA (FN) @@ -111,14 +113,14 @@ Copyright (c) 1981, 1982, 1983, 1984, 1985, 1986, 1987, 1990 by Venue & Xerox Co (SETQ *STANDARD-OUTPUT* \TERM.OFD))) (AND (NOT MULTIPLE.STREAMS.PER.FILE.ALLOWED) (\DELETEOFD STREAM)) - - (* ;; "Logical close before physical close; otherwise, we might have a logically open file with no physically open file behind it. (Device LPT depends on this)") + + (* ;; "Logical close before physical close; otherwise, we might have a logically open file with no physically open file behind it. (Device LPT depends on this)") (\CLOSEFILE STREAM) [MAPC (STREAMPROP STREAM 'AFTERCLOSE) (FUNCTION (LAMBDA (FN) (APPLY* FN STREAM] - (RETURN (fetch FULLNAME of STREAM]) + (RETURN (fetch (STREAM FULLNAME) of STREAM]) (EOFCLOSEF [LAMBDA (FILE) (* bvm%: "15-Jan-85 17:58") @@ -129,18 +131,18 @@ Copyright (c) 1981, 1982, 1983, 1984, 1985, 1986, 1987, 1990 by Venue & Xerox Co STREAM]) (INPUT - [LAMBDA (FILE) (* ; "Edited 17-Jan-87 16:08 by bvm:") + [LAMBDA (FILE) (* ; "Edited 13-Jun-2021 11:27 by rmk:") (PROG1 (if (EQ *STANDARD-INPUT* \LINEBUF.OFD) then T else (if MULTIPLE.STREAMS.PER.FILE.ALLOWED - then *STANDARD-INPUT* - else (fetch FULLNAME of *STANDARD-INPUT*))) - (COND - (FILE (SETQ *STANDARD-INPUT* (COND - ((EQ FILE T) (* ; - "Check explicitly for T to avoid needless creations") - \LINEBUF.OFD) - (T (\GETSTREAM FILE 'INPUT]) + then *STANDARD-INPUT* + else (fetch (STREAM FULLNAME) of *STANDARD-INPUT*))) + [COND + (FILE (SETQ *STANDARD-INPUT* (COND + ((EQ FILE T) (* ; + "Check explicitly for T to avoid needless creations") + \LINEBUF.OFD) + (T (\GETSTREAM FILE 'INPUT])]) (OPENP [LAMBDA (FILE ACCESS) (* hdj "29-Sep-86 17:41") @@ -153,18 +155,18 @@ Copyright (c) 1981, 1982, 1983, 1984, 1985, 1986, 1987, 1990 by Venue & Xerox Co \FILEDEVICES NIL]) (OUTPUT - [LAMBDA (FILE) (* ; "Edited 17-Jan-87 16:08 by bvm:") + [LAMBDA (FILE) (* ; "Edited 13-Jun-2021 11:27 by rmk:") (PROG1 (if (EQ *STANDARD-OUTPUT* \TERM.OFD) then T else (if MULTIPLE.STREAMS.PER.FILE.ALLOWED - then *STANDARD-OUTPUT* - else (fetch FULLNAME of *STANDARD-OUTPUT*))) - (COND - (FILE (SETQ *STANDARD-OUTPUT* (COND - ((EQ FILE T) (* ; - "Check for this special so we don't create a tty window needlessly") - \TERM.OFD) - (T (\GETSTREAM FILE 'OUTPUT]) + then *STANDARD-OUTPUT* + else (fetch (STREAM FULLNAME) of *STANDARD-OUTPUT*))) + [COND + (FILE (SETQ *STANDARD-OUTPUT* (COND + ((EQ FILE T) (* ; + "Check for this special so we don't create a tty window needlessly") + \TERM.OFD) + (T (\GETSTREAM FILE 'OUTPUT])]) (POSITION [LAMBDA (FILE N) (* ; "Edited 17-Jan-87 16:08 by bvm:") @@ -181,11 +183,12 @@ Copyright (c) 1981, 1982, 1983, 1984, 1985, 1986, 1987, 1990 by Venue & Xerox Co 0]) (RANDACCESSP - [LAMBDA (FILE) (* rmk%: "14-OCT-83 15:32") + [LAMBDA (FILE) (* ; "Edited 13-Jun-2021 11:28 by rmk:") (PROG ((STREAM (\GETSTREAM FILE))) - (RETURN (AND (fetch RANDOMACCESSP of (fetch DEVICE of STREAM)) + (RETURN (AND (fetch (FDEV RANDOMACCESSP) of (fetch (STREAM DEVICE) of + STREAM)) (NEQ STREAM \LINEBUF.OFD) - (fetch FULLNAME of STREAM]) + (fetch (STREAM FULLNAME) of STREAM]) (\IOMODEP [LAMBDA (STREAM ACCESS NOERROR) (* rmk%: "21-OCT-83 11:10") @@ -248,9 +251,7 @@ Copyright (c) 1981, 1982, 1983, 1984, 1985, 1986, 1987, 1990 by Venue & Xerox Co (* ;; "STREAM interface to Read and Write to random memory") (DECLARE%: DONTCOPY -(* "FOLLOWING DEFINITIONS EXPORTED") - -(DECLARE%: EVAL@COMPILE +(* "FOLLOWING DEFINITIONS EXPORTED")(DECLARE%: EVAL@COMPILE (RECORD BASEBYTESTREAM STREAM (SUBRECORD STREAM) [ACCESSFNS ((BIASOFFST (fetch (STREAM FW6) of DATUM) @@ -334,9 +335,10 @@ Copyright (c) 1981, 1982, 1983, 1984, 1985, 1986, 1987, 1990 by Venue & Xerox Co (\DEFINEDEVICE NIL \BASEBYTESDEVICE]) (\MAKEBASEBYTESTREAM - [LAMBDA (BASE OFFST LEN ACCESS WRITEXTENSIONFN OSTREAM) (* ; "Edited 17-Jan-87 16:08 by bvm:") - - (* ;; "If an error is to occur due to non-numeric arg or range restrictions, then let it happen outside the UNINTERRUPTABLY") + [LAMBDA (BASE OFFST LEN ACCESS WRITEXTENSIONFN OSTREAM) + (* ; "Edited 13-Jun-2021 11:33 by rmk:") + + (* ;; "If an error is to occur due to non-numeric arg or range restrictions, then let it happen outside the UNINTERRUPTABLY") (OR BASE (EQ LEN 0) (SHOULDNT)) @@ -350,34 +352,39 @@ Copyright (c) 1981, 1982, 1983, 1984, 1985, 1986, 1987, 1990 by Venue & Xerox Co (\ILLEGAL.ARG ACCESS)) (if (type? STREAM OSTREAM) then (if (EQ (ffetch (STREAM DEVICE) of OSTREAM) - \BASEBYTESDEVICE) - then (replace ACCESS of OSTREAM with NIL) - else (CLOSEF OSTREAM) - (SETQ OSTREAM (create BASEBYTESTREAM - DEVICE _ \BASEBYTESDEVICE smashing OSTREAM))) + \BASEBYTESDEVICE) + then (replace (STREAM ACCESS) of OSTREAM with NIL) + else (CLOSEF OSTREAM) + (SETQ OSTREAM (create BASEBYTESTREAM + DEVICE _ \BASEBYTESDEVICE smashing OSTREAM))) else (SETQ OSTREAM (create BASEBYTESTREAM - DEVICE _ \BASEBYTESDEVICE))) + DEVICE _ \BASEBYTESDEVICE))) (UNINTERRUPTABLY - (freplace USERCLOSEABLE of OSTREAM with NIL) - (freplace USERVISIBLE of OSTREAM with NIL) - (freplace BYTESIZE of OSTREAM with BITSPERBYTE) - (freplace CPAGE of OSTREAM with (freplace EPAGE of OSTREAM with 0)) - (freplace CBUFPTR of OSTREAM with BASE) - (freplace COFFSET of OSTREAM with (freplace BIASOFFST of OSTREAM with OFFST)) - (freplace CBUFSIZE of OSTREAM with (freplace EOFFSET of OSTREAM with LEN)) - (replace ACCESS of OSTREAM with ACCESS) - - (* ;; "Insures that the BINABLE BOUTABLE and EXTENDABLE bits are setup setup, and that the correct BIN and BOUT fns are 'inherited' from the FDEV as well") - - (freplace FULLFILENAME of OSTREAM with NIL) - (freplace OUTCHARFN of OSTREAM with (FUNCTION \MBS.OUTCHARFN)) - (freplace LINELENGTH of OSTREAM with 0) - (freplace CHARPOSITION of OSTREAM with 0) - (freplace WRITEXTENSIONFN of OSTREAM with (SELECTQ ACCESS - ((OUTPUT BOTH) - WRITEXTENSIONFN) - NIL)) - (freplace BBSNCHARS of OSTREAM with 0)) + (freplace (STREAM USERCLOSEABLE) of OSTREAM with NIL) + (freplace (STREAM USERVISIBLE) of OSTREAM with NIL) + (freplace (STREAM BYTESIZE) of OSTREAM with BITSPERBYTE) + (freplace (STREAM CPAGE) of OSTREAM with (freplace (STREAM EPAGE) + of OSTREAM with 0)) + (freplace (STREAM CBUFPTR) of OSTREAM with BASE) + (freplace (STREAM COFFSET) of OSTREAM with (freplace (BASEBYTESTREAM + BIASOFFST) + of OSTREAM with OFFST)) + (freplace (STREAM CBUFSIZE) of OSTREAM with (freplace (STREAM EOFFSET) + of OSTREAM with LEN)) + (replace (STREAM ACCESS) of OSTREAM with ACCESS) + + (* ;; "Insures that the BINABLE BOUTABLE and EXTENDABLE bits are setup setup, and that the correct BIN and BOUT fns are 'inherited' from the FDEV as well") + + (freplace (STREAM FULLFILENAME) of OSTREAM with NIL) + (freplace (STREAM OUTCHARFN) of OSTREAM with (FUNCTION \MBS.OUTCHARFN)) + (freplace (STREAM LINELENGTH) of OSTREAM with 0) + (freplace (STREAM CHARPOSITION) of OSTREAM with 0) + (freplace (BASEBYTESTREAM WRITEXTENSIONFN) of OSTREAM with (SELECTQ ACCESS + ((OUTPUT BOTH) + + WRITEXTENSIONFN) + NIL)) + (freplace (BASEBYTESTREAM BBSNCHARS) of OSTREAM with 0)) OSTREAM]) (\MBS.OUTCHARFN @@ -453,18 +460,18 @@ Copyright (c) 1981, 1982, 1983, 1984, 1985, 1986, 1987, 1990 by Venue & Xerox Co 1]) (\BASEBYTES.PEEKBIN - [LAMBDA (STREAM NOERRORFLG) (* ; "Edited 17-Jan-87 16:08 by bvm:") - (PROG ((CO (fetch COFFSET of STREAM))) + [LAMBDA (STREAM NOERRORFLG) (* ; "Edited 13-Jun-2021 11:34 by rmk:") + (PROG ((CO (fetch (STREAM COFFSET) of STREAM))) (SELECTQ (SYSTEMTYPE) - (VAX (if (fetch FULLNAME of STREAM) - then (* ; "Aha, it's a string stream") - (RETURN (\STRINGPEEKBIN STREAM NOERRORFLG)))) + (VAX (if (fetch (STREAM FULLNAME) of STREAM) + then (* ; "Aha, it's a string stream") + (RETURN (\STRINGPEEKBIN STREAM NOERRORFLG)))) NIL) - (RETURN (if (IGEQ CO (fetch EOFFSET of STREAM)) + (RETURN (if (IGEQ CO (fetch (STREAM EOFFSET) of STREAM)) then (if (NOT NOERRORFLG) - then (STREAMOP 'ENDOFSTREAMOP STREAM STREAM)) - else (\GETBASEBYTE (fetch CBUFPTR of STREAM) - CO]) + then (STREAMOP 'ENDOFSTREAMOP STREAM STREAM)) + else (\GETBASEBYTE (fetch (STREAM CBUFPTR) of STREAM) + CO]) (\BASEBYTES.TRUNCATEFN [LAMBDA (STREAM I) (* JonL " 7-NOV-83 22:20") @@ -694,19 +701,17 @@ Copyright (c) 1981, 1982, 1983, 1984, 1985, 1986, 1987, 1990 by Venue & Xerox Co (T (\FILE.NOT.OPEN X NOERROR]) (\SEARCHOPENFILES - [LAMBDA (NAME ACCESS) (* rmk%: "14-OCT-83 15:04") - - (* ;; "Returns a stream whose fullname is NAME if it has accessmode ACCESS") + [LAMBDA (NAME ACCESS) (* ; "Edited 13-Jun-2021 11:35 by rmk:") + + (* ;; "Returns a stream whose fullname is NAME if it has accessmode ACCESS") - (for STREAM in \OPENFILES when (EQ NAME (fetch FULLNAME of STREAM)) + (for STREAM in \OPENFILES when (EQ NAME (fetch (STREAM FULLNAME) of STREAM)) do (RETURN (COND - (ACCESS (\IOMODEP STREAM ACCESS T)) - (T STREAM]) + (ACCESS (\IOMODEP STREAM ACCESS T)) + (T STREAM]) ) (DECLARE%: DONTCOPY -(* "FOLLOWING DEFINITIONS EXPORTED") - -(DECLARE%: EVAL@COMPILE +(* "FOLLOWING DEFINITIONS EXPORTED")(DECLARE%: EVAL@COMPILE (PUTPROPS \INSTREAMARG MACRO ((STRM NOERRORFLG) (\GETSTREAM STRM 'INPUT NOERRORFLG))) @@ -715,9 +720,9 @@ Copyright (c) 1981, 1982, 1983, 1984, 1985, 1986, 1987, 1990 by Venue & Xerox Co (\GETSTREAM STRM 'OUTPUT NOERRORFLG))) (PUTPROPS \STREAMARG MACRO [OPENLAMBDA (STRM NOERRORFLG) - (COND - (NOERRORFLG (\GETSTREAM STRM NIL T)) - (T (\DTEST STRM 'STREAM]) + (COND + (NOERRORFLG (\GETSTREAM STRM NIL T)) + (T (\DTEST STRM 'STREAM]) ) (* "END EXPORTED DEFINITIONS") @@ -741,18 +746,18 @@ Copyright (c) 1981, 1982, 1983, 1984, 1985, 1986, 1987, 1990 by Venue & Xerox Co (ADDTOVAR LAMA WHENCLOSE) ) -(PUTPROPS AOFD COPYRIGHT ("Venue & Xerox Corporation" 1981 1982 1983 1984 1985 1986 1987 1990)) +(PUTPROPS AOFD COPYRIGHT ("Venue & Xerox Corporation" 1981 1982 1983 1984 1985 1986 1987 1990 2021)) (DECLARE%: DONTCOPY - (FILEMAP (NIL (2304 3411 (\ADD-OPEN-STREAM 2314 . 2591) (\GENERIC-UNREGISTER-STREAM 2593 . 3409)) ( -3452 10531 (CLOSEALL 3462 . 4167) (CLOSEF 4169 . 5353) (EOFCLOSEF 5355 . 5651) (INPUT 5653 . 6407) ( -OPENP 6409 . 6808) (OUTPUT 6810 . 7566) (POSITION 7568 . 8380) (RANDACCESSP 8382 . 8727) (\IOMODEP -8729 . 9366) (WHENCLOSE 9368 . 10529)) (10532 10654 (STREAMADDPROP 10542 . 10652)) (11820 23932 ( -\BASEBYTES.IO.INIT 11830 . 15026) (\MAKEBASEBYTESTREAM 15028 . 17621) (\MBS.OUTCHARFN 17623 . 18011) ( -\BASEBYTES.NAME.FROM.STREAM 18013 . 18476) (\BASEBYTES.BOUT 18478 . 19195) (\BASEBYTES.SETFILEPTR -19197 . 19818) (\BASEBYTES.READP 19820 . 20456) (\BASEBYTES.BIN 20458 . 20989) (\BASEBYTES.PEEKBIN -20991 . 21772) (\BASEBYTES.TRUNCATEFN 21774 . 22278) (\BASEBYTES.OPENFN 22280 . 22770) ( -\BASEBYTES.BLOCKIO 22772 . 23930)) (24055 26305 (OPENSTRINGSTREAM 24065 . 26303)) (26362 29998 ( -\STRINGSTREAM.INIT 26372 . 29996)) (30060 33611 (GETSTREAM 30070 . 30293) (\ADDOFD 30295 . 30582) ( -\CLEAROFD 30584 . 30865) (\DELETEOFD 30867 . 31018) (\GETSTREAM 31020 . 33184) (\SEARCHOPENFILES 33186 - . 33609))))) + (FILEMAP (NIL (2373 3480 (\ADD-OPEN-STREAM 2383 . 2660) (\GENERIC-UNREGISTER-STREAM 2662 . 3478)) ( +3521 10778 (CLOSEALL 3531 . 4236) (CLOSEF 4238 . 5434) (EOFCLOSEF 5436 . 5732) (INPUT 5734 . 6506) ( +OPENP 6508 . 6907) (OUTPUT 6909 . 7683) (POSITION 7685 . 8497) (RANDACCESSP 8499 . 8974) (\IOMODEP +8976 . 9613) (WHENCLOSE 9615 . 10776)) (10779 10901 (STREAMADDPROP 10789 . 10899)) (12065 24946 ( +\BASEBYTES.IO.INIT 12075 . 15271) (\MAKEBASEBYTESTREAM 15273 . 18585) (\MBS.OUTCHARFN 18587 . 18975) ( +\BASEBYTES.NAME.FROM.STREAM 18977 . 19440) (\BASEBYTES.BOUT 19442 . 20159) (\BASEBYTES.SETFILEPTR +20161 . 20782) (\BASEBYTES.READP 20784 . 21420) (\BASEBYTES.BIN 21422 . 21953) (\BASEBYTES.PEEKBIN +21955 . 22786) (\BASEBYTES.TRUNCATEFN 22788 . 23292) (\BASEBYTES.OPENFN 23294 . 23784) ( +\BASEBYTES.BLOCKIO 23786 . 24944)) (25069 27319 (OPENSTRINGSTREAM 25079 . 27317)) (27376 31012 ( +\STRINGSTREAM.INIT 27386 . 31010)) (31074 34646 (GETSTREAM 31084 . 31307) (\ADDOFD 31309 . 31596) ( +\CLEAROFD 31598 . 31879) (\DELETEOFD 31881 . 32032) (\GETSTREAM 32034 . 34198) (\SEARCHOPENFILES 34200 + . 34644))))) STOP diff --git a/sources/AOFD.LCOM b/sources/AOFD.LCOM index 7815bb776..1b864a901 100644 Binary files a/sources/AOFD.LCOM and b/sources/AOFD.LCOM differ diff --git a/sources/APRINT b/sources/APRINT index 4abaa5269..b78898c28 100644 --- a/sources/APRINT +++ b/sources/APRINT @@ -1,22 +1,23 @@ (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) -(FILECREATED "17-Jan-2020 05:51:20" {DSK}kaplan>Local>medley3.5>lispcore>sources>APRINT.;2 87685 +(FILECREATED " 9-Jun-2021 22:50:15"  +{DSK}kaplan>Local>medley3.5>git-medley>sources>APRINT.;11 79264 - changes to%: (FNS \NUMERIC.PNAMEP) + changes to%: (VARS APRINTCOMS) - previous date%: " 6-Dec-91 11:43:22" -{DSK}kaplan>Local>medley3.5>lispcore>sources>APRINT.;1) + previous date%: "10-May-2021 15:46:22" +{DSK}kaplan>Local>medley3.5>git-medley>sources>APRINT.;10) (* ; " -Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1991, 2020 by Venue & Xerox Corporation. All rights reserved. +Copyright (c) 1982-1988, 1990-1991, 2020-2021 by Venue & Xerox Corporation. ") (PRETTYCOMPRINT APRINTCOMS) (RPAQQ APRINTCOMS [(COMS (* ; "User-level print functions") - (FNS PRIN1 PRIN2 PRIN3 PRIN4 PRINT PRINTCCODE PRINTLEVEL RADIX SPACES TERPRI FRESHLINE - DEFPRINT LINELENGTH)) + (FNS PRIN1 PRIN2 PRIN3 PRIN4 PRINT PRINTCCODE \PRINTCCODE PRINTLEVEL RADIX SPACES + TERPRI FRESHLINE DEFPRINT LINELENGTH)) (INITVARS (PLVLFILEFLG NIL) (\LINELENGTH 82) (\FLOATFORMAT T) @@ -42,13 +43,10 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1991, 2020 by Venu (FNS \PRINDATUM \PRINT-USING-DEFPRINT \PRINT-USING-ADDRESS \ELIDE.PRINT.ELEMENT \ELIDE.ELEMENT.CHAR \ELIDE.PRINT.TAIL \ELIDE.TAIL.STRING \CKPOSBOUT \CKPOSSOUT \CONVERTNUMBER \LITPRIN \LITPRIN.INTERNAL \SYMBOL.ESCAPE.COUNT \NUMERIC.PNAMEP - \PRINSTACKP \PRINTADDR \PRINSTRING \SOUT \OUTCHAR) - (FNS \FILEOUTCHARFN \JISFILEOUTCHARFN \SHIFTJISFILEOUTCHARFN \EUCFILEOUTCHARFN - \THROUGHFILEOUTCHARFN) + \PRINSTACKP \PRINTADDR \PRINSTRING \SOUT) (DECLARE%: EVAL@COMPILE DONTCOPY (MACROS .FILELINELENGTH.) (FUNCTIONS \PRINDATUM-LISTP) - (EXPORT (MACROS .SPACECHECK. \CHECKRADIX) - (MACROS \XCCSFILEOUTCHARFN))) + (EXPORT (MACROS .SPACECHECK. \CHECKRADIX))) (FNS \INVALID.RADIX) (SPECVARS \THISFILELINELENGTH)) (COMS (* ; "Internal printing") @@ -81,12 +79,13 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1991, 2020 by Venu (DEFINEQ (PRIN1 - [LAMBDA (X FILE) (* bvm%: "29-Sep-86 23:59") + [LAMBDA (X FILE) (* bvm%: "29-Sep-86 23:59") (* ;;; "Like PRIN2 but no escaping. Also implies no radix qualifiers, although Common Lisp separates *PRINT-RADIX* from *PRINT-ESCAPE* -- might want to bind *PRINT-RADIX* to (AND (fetch (READTABLEP COMMONLISP) of *READTABLE*) *PRINT-RADIX*)") (LET* [(STRM (\GETSTREAM FILE 'OUTPUT)) - (OBEY-PRINT-LEVEL (OR (ffetch (READTABLEP COMMONLISP) of (\DTEST *READTABLE* 'READTABLEP)) + (OBEY-PRINT-LEVEL (OR (ffetch (READTABLEP COMMONLISP) of (\DTEST *READTABLE* + 'READTABLEP)) (OR (\OUTTERMP STRM) PLVLFILEFLG] (LET ((*PRINT-ESCAPE* NIL) @@ -96,17 +95,18 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1991, 2020 by Venu (*PRINT-CASE* (OR *INTERLISP-PRIN1-CASE* *PRINT-CASE*)) \THISFILELINELENGTH) (DECLARE (SPECVARS *PRINT-RADIX* *PRINT-ESCAPE* *PRINT-LEVEL* *PRINT-LENGTH* - *PRINT-CASE* \THISFILELINELENGTH)) + *PRINT-CASE* \THISFILELINELENGTH)) (* ; - "*PRINT-CASE* because too many things in Interlisp prin1 things expecting the symbol's pname") + "*PRINT-CASE* because too many things in Interlisp prin1 things expecting the symbol's pname") (SETQ \THISFILELINELENGTH (.FILELINELENGTH. STRM)) (\PRINDATUM X STRM 0) X]) (PRIN2 - [LAMBDA (X FILE RDTBL) (* ; "Edited 20-Jan-87 17:04 by bvm:") + [LAMBDA (X FILE RDTBL) (* ; "Edited 20-Jan-87 17:04 by bvm:") (LET* [(STRM (\GETSTREAM FILE 'OUTPUT)) - (OBEY-PRINT-LEVEL (OR (fetch (READTABLEP COMMONLISP) of (SETQ RDTBL (\GTREADTABLE RDTBL))) + (OBEY-PRINT-LEVEL (OR (fetch (READTABLEP COMMONLISP) of (SETQ RDTBL (\GTREADTABLE + RDTBL))) (OR (\OUTTERMP STRM) PLVLFILEFLG] (LET ((*READTABLE* RDTBL) @@ -117,19 +117,20 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1991, 2020 by Venu then *INTERLISP-PACKAGE* else *PACKAGE*)) \THISFILELINELENGTH) - (DECLARE (SPECVARS *PRINT-ESCAPE* *READTABLE* *PRINT-LEVEL* *PRINT-LENGTH* *PACKAGE* - \THISFILELINELENGTH)) + (DECLARE (SPECVARS *PRINT-ESCAPE* *READTABLE* *PRINT-LEVEL* *PRINT-LENGTH* + *PACKAGE* \THISFILELINELENGTH)) (SETQ \THISFILELINELENGTH (.FILELINELENGTH. STRM)) (\PRINDATUM X STRM 0) X]) (PRIN3 - [LAMBDA (X FILE) (* bvm%: "29-Sep-86 23:59") + [LAMBDA (X FILE) (* bvm%: "29-Sep-86 23:59") (* ;;; "Like PRIN1 but no linelength checking") (LET* [(STRM (\GETSTREAM FILE 'OUTPUT)) - (OBEY-PRINT-LEVEL (OR (ffetch (READTABLEP COMMONLISP) of (\DTEST *READTABLE* 'READTABLEP)) + (OBEY-PRINT-LEVEL (OR (ffetch (READTABLEP COMMONLISP) of (\DTEST *READTABLE* + 'READTABLEP)) (OR (\OUTTERMP STRM) PLVLFILEFLG] (LET ((*PRINT-ESCAPE* NIL) @@ -139,17 +140,18 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1991, 2020 by Venu (*PRINT-CASE* (OR *INTERLISP-PRIN1-CASE* *PRINT-CASE*)) \THISFILELINELENGTH) (DECLARE (SPECVARS *PRINT-RADIX* *PRINT-ESCAPE* *PRINT-LEVEL* *PRINT-LENGTH* - \THISFILELINELENGTH)) + \THISFILELINELENGTH)) (\PRINDATUM X STRM 0) X]) (PRIN4 - [LAMBDA (X FILE RDTBL) (* ; "Edited 20-Jan-87 17:05 by bvm:") + [LAMBDA (X FILE RDTBL) (* ; "Edited 20-Jan-87 17:05 by bvm:") (* ;;; "Like PRIN2 but doesn't check linelength") (LET* [(STRM (\GETSTREAM FILE 'OUTPUT)) - (OBEY-PRINT-LEVEL (OR (fetch (READTABLEP COMMONLISP) of (SETQ RDTBL (\GTREADTABLE RDTBL))) + (OBEY-PRINT-LEVEL (OR (fetch (READTABLEP COMMONLISP) of (SETQ RDTBL (\GTREADTABLE + RDTBL))) (OR (\OUTTERMP STRM) PLVLFILEFLG] (LET ((*READTABLE* RDTBL) @@ -160,28 +162,39 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1991, 2020 by Venu then *INTERLISP-PACKAGE* else *PACKAGE*)) \THISFILELINELENGTH) - (DECLARE (SPECVARS *PRINT-ESCAPE* *READTABLE* *PRINT-LEVEL* *PRINT-LENGTH* *PACKAGE* - \THISFILELINELENGTH)) + (DECLARE (SPECVARS *PRINT-ESCAPE* *READTABLE* *PRINT-LEVEL* *PRINT-LENGTH* + *PACKAGE* \THISFILELINELENGTH)) (\PRINDATUM X STRM 0) X]) (PRINT - [LAMBDA (X FILE RDTBL) (* bvm%: " 9-May-86 23:08") + [LAMBDA (X FILE RDTBL) (* bvm%: " 9-May-86 23:08") (LET [(STRM (\GETSTREAM FILE 'OUTPUT] (PRIN2 X STRM RDTBL) (\OUTCHAR STRM (CHARCODE EOL)) X]) (PRINTCCODE - [LAMBDA (CHARCODE FILE) (* bvm%: " 9-May-86 22:44") + [LAMBDA (CHARCODE FILE) (* bvm%: " 9-May-86 22:44") (\OUTCHAR (\GETSTREAM FILE 'OUTPUT) (COND ((\CHARCODEP CHARCODE) CHARCODE) (T (\ILLEGAL.ARG CHARCODE]) +(\PRINTCCODE + [LAMBDA (CHARCODE FILE) (* ; "Edited 5-May-2021 09:56 by rmk:") + + (* ;; "A copy of PRINTCCODE to be used in internal functions where \OUTCHAR doesn't have to be compiled open but which we don't want to screw up if the user breaks PRINTCCODE") + + (\OUTCHAR (\GETSTREAM FILE 'OUTPUT) + (COND + ((\CHARCODEP CHARCODE) + CHARCODE) + (T (\ILLEGAL.ARG CHARCODE]) + (PRINTLEVEL - [LAMBDA (CARVAL CDRVAL) (* bvm%: " 9-May-86 22:47") + [LAMBDA (CARVAL CDRVAL) (* bvm%: " 9-May-86 22:47") (* ;;; "Sets Interlisp print level to the given values in CAR and CDR directions. These correspond to *PRINT-LEVEL* and *PRINT-LENGTH* in Common Lisp") @@ -191,19 +204,20 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1991, 2020 by Venu (SETQ CARVAL (CAR CARVAL] (PROG1 (CONS (OR *PRINT-LEVEL* -1) (OR *PRINT-LENGTH* -1)) - [COND - (CARVAL (SETQ *PRINT-LEVEL* (AND (IGEQ CARVAL 0) - CARVAL] - (COND - (CDRVAL (SETQ *PRINT-LENGTH* (AND (IGEQ CDRVAL 0) - CDRVAL]) + [COND + (CARVAL (SETQ *PRINT-LEVEL* (AND (IGEQ CARVAL 0) + CARVAL] + [COND + (CDRVAL (SETQ *PRINT-LENGTH* (AND (IGEQ CDRVAL 0) + CDRVAL])]) (RADIX - [LAMBDA (N) (* bvm%: " 5-May-86 10:56") - (PROG1 *PRINT-BASE* (AND N (SETQ *PRINT-BASE* (\CHECKRADIX N]) + [LAMBDA (N) (* bvm%: " 5-May-86 10:56") + (PROG1 *PRINT-BASE* + (AND N (SETQ *PRINT-BASE* (\CHECKRADIX N))))]) (SPACES - [LAMBDA (N FILE) (* rmk%: "21-OCT-83 12:32") + [LAMBDA (N FILE) (* rmk%: "21-OCT-83 12:32") [PROG ((STREAM (\GETSTREAM FILE 'OUTPUT)) \THISFILELINELENGTH) (SETQ \THISFILELINELENGTH (.FILELINELENGTH. STREAM)) @@ -212,29 +226,30 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1991, 2020 by Venu NIL]) (TERPRI - [LAMBDA (FILE) (* rmk%: "21-OCT-83 12:31") + [LAMBDA (FILE) (* rmk%: "21-OCT-83 12:31") (\OUTCHAR (\GETSTREAM FILE 'OUTPUT) (CHARCODE EOL)) NIL]) (FRESHLINE - [LAMBDA (STREAM) (* rmk%: "22-AUG-83 13:48") - - (* ;; "Adjusts the STREAM to be at a new line -- does equivalent of TERPRI unless it is already 'sitting at the beginning of a line'") + [LAMBDA (STREAM) (* rmk%: "22-AUG-83 13:48") + + (* ;; "Adjusts the STREAM to be at a new line -- does equivalent of TERPRI unless it is already 'sitting at the beginning of a line'") (COND ([NEQ 0 (fetch CHARPOSITION of (COND - ((AND (type? STREAM STREAM) - (WRITEABLE STREAM)) - STREAM) - (T (SETQ STREAM (GETSTREAM STREAM 'OUTPUT] + ((AND (type? STREAM STREAM) + (WRITEABLE STREAM)) + STREAM) + (T (SETQ STREAM (GETSTREAM STREAM 'OUTPUT] (\OUTCHAR STREAM (CHARCODE EOL)) T]) (DEFPRINT - [LAMBDA (TYPE FN) (* rmk%: "28-APR-80 12:04") + [LAMBDA (TYPE FN) (* rmk%: "28-APR-80 12:04") (AND (FIXP TYPE) - (SETQ TYPE (\TYPENAMEFROMNUMBER TYPE))) (* ; "The FIXP case should never occur") + (SETQ TYPE (\TYPENAMEFROMNUMBER TYPE))) (* ; + "The FIXP case should never occur") (PROG ((F (FASSOC TYPE \DEFPRINTFNS))) [COND (F (SETQ \DEFPRINTFNS (DREMOVE F \DEFPRINTFNS] @@ -244,21 +259,22 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1991, 2020 by Venu (RETURN (CDR F]) (LINELENGTH - [LAMBDA (N FILE) (* bvm%: "11-Mar-86 14:56") + [LAMBDA (N FILE) (* bvm%: "11-Mar-86 14:56") (* ;;; "Sets to N the linelength of FILE -- defaults to primary output file") (LET [(STREAM (\GETSTREAM FILE 'OUTPUT] (PROG1 (fetch (STREAM LINELENGTH) of STREAM) - (AND N (COND - ((AND (NUMBERP N) - (ILESSP N 1)) - (\ILLEGAL.ARG N)) - (T (replace (STREAM LINELENGTH) of STREAM with (COND + [AND N (COND + ((AND (NUMBERP N) + (ILESSP N 1)) + (\ILLEGAL.ARG N)) + (T (replace (STREAM LINELENGTH) of STREAM with + (COND ((EQ N T) (* ; "Infinite") MAX.SMALLP) - (T (FIX N]) + (T (FIX N])]) ) (RPAQ? PLVLFILEFLG NIL) @@ -308,89 +324,91 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1991, 2020 by Venu (DEFINEQ (PRINT-CIRCLE-LOOKUP - [LAMBDA (OBJECT) (* Pavel "16-Oct-86 21:13") + [LAMBDA (OBJECT) (* Pavel "16-Oct-86 21:13") (LET ((TABLEENTRY (GETHASH OBJECT *PRINT-CIRCLE-HASHTABLE*))) - (CASE TABLEENTRY ((T1 NIL) - (CL:VALUES NIL NIL)) - (T2 (CL:VALUES (PROG1 (CONCAT (CHARACTER (fetch (READTABLEP HASHMACROCHAR) - of *READTABLE*)) - *PRINT-CIRCLE-NUMBER* "=") - (CL:SETF (CL:GETHASH OBJECT *PRINT-CIRCLE-HASHTABLE*) - *PRINT-CIRCLE-NUMBER*) - (CL:INCF *PRINT-CIRCLE-NUMBER*)) - T)) - (CL:OTHERWISE (CL:IF (NUMBERP TABLEENTRY) - (CL:VALUES (CONCAT (CHARACTER (fetch (READTABLEP HASHMACROCHAR) - of *READTABLE*)) - TABLEENTRY "#") - NIL) - (CL:ERROR "Print-circle-lookup hashtable error!"]) + (CASE TABLEENTRY + ((T1 NIL) (CL:VALUES NIL NIL)) + (T2 (CL:VALUES (PROG1 (CONCAT (CHARACTER (fetch (READTABLEP HASHMACROCHAR) + of *READTABLE*)) + *PRINT-CIRCLE-NUMBER* "=") + (CL:SETF (CL:GETHASH OBJECT *PRINT-CIRCLE-HASHTABLE*) + *PRINT-CIRCLE-NUMBER*) + (CL:INCF *PRINT-CIRCLE-NUMBER*)) + T)) + (CL:OTHERWISE (CL:IF (NUMBERP TABLEENTRY) + (CL:VALUES (CONCAT (CHARACTER (fetch (READTABLEP HASHMACROCHAR) + of *READTABLE*)) + TABLEENTRY "#") + NIL) + (CL:ERROR "Print-circle-lookup hashtable error!"))))]) (PRINT-CIRCLE-LABEL-P - [CL:LAMBDA (OBJECT) (* jrb%: "30-Jun-86 23:04") + [CL:LAMBDA (OBJECT) (* jrb%: "30-Jun-86 23:04") (DECLARE (CL:SPECIAL *PRINT-CIRCLE-HASHTABLE*)) - (CL:BLOCK PRINT-CIRCLE-LABEL-P (LET ((TABLEENTRY (GETHASH OBJECT *PRINT-CIRCLE-HASHTABLE*))) - (COND - ((EQ TABLEENTRY 'T2)) - ((CL:INTEGERP TABLEENTRY) - TABLEENTRY) - (T NIL]) + (CL:BLOCK PRINT-CIRCLE-LABEL-P + (LET ((TABLEENTRY (GETHASH OBJECT *PRINT-CIRCLE-HASHTABLE*))) + (COND + ((EQ TABLEENTRY 'T2)) + ((CL:INTEGERP TABLEENTRY) + TABLEENTRY) + (T NIL))))]) (PRINT-CIRCLE-SCAN - [CL:LAMBDA (OBJECT) (* ; "Edited 16-Jan-87 15:53 by jrb:") + [CL:LAMBDA (OBJECT) (* ; "Edited 16-Jan-87 15:53 by jrb:") (DECLARE (CL:SPECIAL *PRINT-ARRAY*)) - (CL:TYPECASE OBJECT [CONS (COND - ((NOT (PRINT-CIRCLE-ENTER OBJECT)) - (PRINT-CIRCLE-SCAN (CAR OBJECT)) - (PRINT-CIRCLE-SCAN (CDR OBJECT] - [CL::STRUCTURE-OBJECT (COND - ((AND XCL:*PRINT-STRUCTURE* (NOT (PRINT-CIRCLE-ENTER OBJECT) - )) - (CL:MAPCAR [FUNCTION (LAMBDA (DESCRIPTOR) - (PRINT-CIRCLE-SCAN (FETCHFIELD - DESCRIPTOR - OBJECT] - (CL::STRUCTURE-POINTER-SLOTS (CL:TYPE-OF OBJECT] - ((CL:ARRAY T) - (COND - ((AND *PRINT-ARRAY* (NOT (PRINT-CIRCLE-ENTER OBJECT))) + (CL:TYPECASE OBJECT + (CONS [COND + ((NOT (PRINT-CIRCLE-ENTER OBJECT)) + (PRINT-CIRCLE-SCAN (CAR OBJECT)) + (PRINT-CIRCLE-SCAN (CDR OBJECT]) + (CL::STRUCTURE-OBJECT [COND + ((AND XCL:*PRINT-STRUCTURE* (NOT (PRINT-CIRCLE-ENTER OBJECT + ))) + (CL:MAPCAR [FUNCTION (LAMBDA (DESCRIPTOR) + (PRINT-CIRCLE-SCAN (FETCHFIELD + DESCRIPTOR + OBJECT] + (CL::STRUCTURE-POINTER-SLOTS (CL:TYPE-OF OBJECT]) + ((CL:ARRAY T) [COND + ((AND *PRINT-ARRAY* (NOT (PRINT-CIRCLE-ENTER OBJECT))) (* ; - "No need to walk array if we're not printing them") - (LET* [(ASIZE (CL:ARRAY-TOTAL-SIZE OBJECT)) - (VARRAY (COND - ((> (CL:ARRAY-RANK OBJECT) - 1) - (CL:MAKE-ARRAY ASIZE :DISPLACED-TO OBJECT)) - (T OBJECT] - (CL:DOTIMES (X ASIZE) - (PRINT-CIRCLE-SCAN (CL:AREF VARRAY X]) + "No need to walk array if we're not printing them") + (LET* [(ASIZE (CL:ARRAY-TOTAL-SIZE OBJECT)) + (VARRAY (COND + ((> (CL:ARRAY-RANK OBJECT) + 1) + (CL:MAKE-ARRAY ASIZE :DISPLACED-TO OBJECT)) + (T OBJECT] + (CL:DOTIMES (X ASIZE) + (PRINT-CIRCLE-SCAN (CL:AREF VARRAY X)))]))]) (PRINT-CIRCLE-ENTER [CL:LAMBDA (OBJECT) - (DECLARE (CL:SPECIAL *PRINT-CIRCLE-HASHTABLE* THERE-ARE-CIRCLES)) - (* ; "Edited 31-Mar-87 19:16 by jrb:") + (DECLARE (CL:SPECIAL *PRINT-CIRCLE-HASHTABLE* THERE-ARE-CIRCLES)) + (* ; "Edited 31-Mar-87 19:16 by jrb:") (CASE (CL:GETHASH OBJECT *PRINT-CIRCLE-HASHTABLE*) - ((NIL) + ((NIL) (CL:SETF (CL:GETHASH OBJECT *PRINT-CIRCLE-HASHTABLE*) 'T1) NIL) - (T1 (CL:SETF (CL:GETHASH OBJECT *PRINT-CIRCLE-HASHTABLE*) - 'T2) - (SETQ THERE-ARE-CIRCLES T) - T) - (T2 T) - (CL:OTHERWISE (CL:ERROR "Print-circle-enter hashtable error!"]) + (T1 + (CL:SETF (CL:GETHASH OBJECT *PRINT-CIRCLE-HASHTABLE*) + 'T2) + (SETQ THERE-ARE-CIRCLES T) + T) + (T2 T) + (CL:OTHERWISE (CL:ERROR "Print-circle-enter hashtable error!")))]) ) (DEFINEQ (\PRINDATUM - [LAMBDA (OBJECT STREAM CPL) (* ; "Edited 11-Feb-91 14:34 by jds") + [LAMBDA (OBJECT STREAM CPL) (* ; "Edited 11-Feb-91 14:34 by jds") (DECLARE (USEDFREE *READTABLE* *PRINT-RADIX* *PRINT-BASE* *PRINT-ESCAPE*)) (SELECTC (NTYPX OBJECT) ((LIST \LITATOM \NEW-ATOM) (\LITPRIN OBJECT STREAM)) (\LISTP - (* ;; "macro call that uses the arguments already bound, to save a fn call.") + (* ;; "macro call that uses the arguments already bound, to save a fn call.") (\PRINDATUM-LISTP)) ((LIST \SMALLP \FIXP) @@ -402,11 +420,11 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1991, 2020 by Venu (AND (if (fetch (READTABLEP COMMONLISP) of *READTABLE*) then - (* ; - "Common Lisp controlled solely by this var") + (* ; + "Common Lisp controlled solely by this var") *PRINT-RADIX* - else (* ; - "Interlisp prints radix if it is not 10 and we are prin2") + else (* ; + "Interlisp prints radix if it is not 10 and we are prin2") (AND *PRINT-ESCAPE* (NEQ *PRINT-BASE* 10))) *READTABLE*) \NUMSTR \NUMSTR1)))) @@ -416,7 +434,7 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1991, 2020 by Venu ((AND (PNAMESTREAMP STREAM) (NOT PRXFLG)) - (* ;; "The pname of a number is unaffected by RADIX unless PRXFLG is true. This seems silly, but assorted code will break otherwise") + (* ;; "The pname of a number is unaffected by RADIX unless PRXFLG is true. This seems silly, but assorted code will break otherwise") T) (T \FLOATFORMAT]) @@ -426,19 +444,19 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1991, 2020 by Venu (\PRINSTRING OBJECT STREAM)) ((TYPENAMEP OBJECT 'CL::STRUCTURE-OBJECT) - (* ;; "this is a structure, don't use defprint.") + (* ;; "this is a structure, don't use defprint.") (CL::PRINT-STRUCTURE-INSTANCE OBJECT STREAM CPL)) ((TYPENAMEP OBJECT 'T) - (* ;; - "this is a common-loops object, since it is a sub-class of t, so call the print-instance method.") + (* ;; + "this is a common-loops object, since it is a sub-class of t, so call the print-instance method.") (PRINT-INSTANCE OBJECT STREAM 0)) (T (\PRINT-USING-DEFPRINT OBJECT STREAM CPL]) (\PRINT-USING-DEFPRINT - [LAMBDA (X STREAM CPL) (* ; "Edited 18-Dec-86 12:22 by bvm:") + [LAMBDA (X STREAM CPL) (* ; "Edited 18-Dec-86 12:22 by bvm:") (DECLARE (USEDFREE *PRINT-LEVEL*)) (LET* ((TYPE (TYPENAME X)) (FN (FASSOC TYPE \DEFPRINTFNS))) @@ -447,16 +465,16 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1991, 2020 by Venu (NULL (SETQ FN (LET [(*PRINT-LEVEL* (AND *PRINT-LEVEL* (IDIFFERENCE *PRINT-LEVEL* (OR CPL 0] (* ; - "This way recursive calls to PRINT etc will be at the 'right' level") + "This way recursive calls to PRINT etc will be at the 'right' level") (CL:FUNCALL (CDR FN) X STREAM 0] - - (* ;; "No defined printer, or printer declined to do anything") + + (* ;; "No defined printer, or printer declined to do anything") (\PRINT-USING-ADDRESS X STREAM CPL)) ((LISTP FN) - - (* ;; "PRIN1 the CAR (usually a macro char) and PRIN2 the CDR. Nowadays there is little reason for a defprint fn to not do its own printing") + + (* ;; "PRIN1 the CAR (usually a macro char) and PRIN2 the CDR. Nowadays there is little reason for a defprint fn to not do its own printing") (AND (CAR FN) (LET (*PRINT-ESCAPE*) @@ -468,37 +486,37 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1991, 2020 by Venu (\PRINT-USING-ADDRESS (CL:LAMBDA (X STREAM CPL) - (CL:BLOCK \PRINT-USING-ADDRESS [LET ((TYPE (TYPENAME X))) - (COND - ((fetch (READTABLEP COMMONLISP) of *READTABLE*) - (.SPACECHECK. STREAM 2) - (\OUTCHAR STREAM (fetch (READTABLEP HASHMACROCHAR) - of *READTABLE*)) - (\OUTCHAR STREAM (CHARCODE "<")) - (AND TYPE (\LITPRIN TYPE STREAM)) - (\CKPOSSOUT STREAM " @ ") - (\PRINTADDR X STREAM) - (\CKPOSBOUT STREAM (CHARCODE ">"))) - (T (\CKPOSBOUT STREAM (CHARCODE {)) - (AND TYPE (\LITPRIN TYPE STREAM)) - (\CKPOSBOUT STREAM (CHARCODE })) - (\OUTCHAR STREAM (CHARCODE "#")) - (\PRINTADDR X STREAM] - T))) + (CL:BLOCK \PRINT-USING-ADDRESS + [LET ((TYPE (TYPENAME X))) + (COND + ((fetch (READTABLEP COMMONLISP) of *READTABLE*) + (.SPACECHECK. STREAM 2) + (\OUTCHAR STREAM (fetch (READTABLEP HASHMACROCHAR) of *READTABLE*)) + (\OUTCHAR STREAM (CHARCODE "<")) + (AND TYPE (\LITPRIN TYPE STREAM)) + (\CKPOSSOUT STREAM " @ ") + (\PRINTADDR X STREAM) + (\CKPOSBOUT STREAM (CHARCODE ">"))) + (T (\CKPOSBOUT STREAM (CHARCODE {)) + (AND TYPE (\LITPRIN TYPE STREAM)) + (\CKPOSBOUT STREAM (CHARCODE })) + (\OUTCHAR STREAM (CHARCODE "#")) + (\PRINTADDR X STREAM] + T))) (\ELIDE.PRINT.ELEMENT - [LAMBDA (STREAM) (* jrb%: "29-Jun-86 21:05") + [LAMBDA (STREAM) (* jrb%: "29-Jun-86 21:05") (\OUTCHAR STREAM (\ELIDE.ELEMENT.CHAR]) (\ELIDE.ELEMENT.CHAR - [LAMBDA NIL (* jrb%: "29-Jun-86 21:04") + [LAMBDA NIL (* jrb%: "29-Jun-86 21:04") (COND ((fetch (READTABLEP COMMONLISP) of *READTABLE*) (fetch (READTABLEP HASHMACROCHAR) of *READTABLE*)) (T (CHARCODE "&"]) (\ELIDE.PRINT.TAIL - [LAMBDA (STREAM NOSPACEP) (* jrb%: "29-Jun-86 21:06") + [LAMBDA (STREAM NOSPACEP) (* jrb%: "29-Jun-86 21:06") (* ;;; "Prints the appropriate elision indicator for elements beyond *PRINT-DEPTH* according to the read table we're using. Prints first a space unless NOSPACEP") @@ -509,24 +527,24 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1991, 2020 by Venu STREAM]) (\ELIDE.TAIL.STRING - [LAMBDA NIL (* jrb%: "29-Jun-86 21:05") + [LAMBDA NIL (* jrb%: "29-Jun-86 21:05") (COND ((fetch (READTABLEP COMMONLISP) of *READTABLE*) "...") (T "--"]) (\CKPOSBOUT - [LAMBDA (STREAM X) (* rmk%: "21-OCT-83 12:32") + [LAMBDA (STREAM X) (* rmk%: "21-OCT-83 12:32") (.SPACECHECK. STREAM 1) (\OUTCHAR STREAM X]) (\CKPOSSOUT - [LAMBDA (STREAM X) (* rmk%: "21-OCT-83 12:32") + [LAMBDA (STREAM X) (* rmk%: "21-OCT-83 12:32") (.SPACECHECK. STREAM (\NSTRINGCHARS X)) (for I instring X do (\OUTCHAR STREAM I]) (\CONVERTNUMBER - [LAMBDA (N R IGNORE RDTBL NS NSB) (* ; "Edited 18-Dec-86 17:53 by bvm:") + [LAMBDA (N R IGNORE RDTBL NS NSB) (* ; "Edited 18-Dec-86 17:53 by bvm:") (* ;;; "Convert integer N to a string in radix R. RDTBL governs whether radix qualifiers appear. NS is a scratch promised to be of sufficient length; NSB is a scratch string pointer. IGNORE is obsolete flag for printing unsigned numbers") @@ -539,85 +557,87 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1991, 2020 by Venu (END (SUB1 POS)) COMMONLISPY DIDQ) (if RDTBL - then (* ; "do bletcherous suffix cases first") - (if (SETQ COMMONLISPY (fetch (READTABLEP COMMONLISP) of RDTBL)) - then (* ; "decimal is suffix") - (if (EQ R 10) - then (RPLCHARCODE NS (add END 1) - (CHARCODE ".")) - (SETQ DIDQ T)) - elseif (AND (EQ R 8) - (> MAGNITUDE 7)) - then (* ; "Octal numbers have Q suffix") - (RPLCHARCODE NS (add END 1) - (CHARCODE Q)) - (SETQ DIDQ T))) - (repeatuntil (EQ X 0) do (* ; - "note this loop happens at least once, for benefit of MAGNITUDE = 0") - [RPLCHARCODE NS (add POS -1) - (LET ((DIGIT (IREMAINDER X R))) - (if (< DIGIT 10) - then (+ DIGIT (CHARCODE 0)) - else (* ; - "For radices higher than 10, use letters of alphabet from A on up") - (+ (- DIGIT 10) - (CHARCODE A] - (SETQ X (IQUOTIENT X R))) + then (* ; + "do bletcherous suffix cases first") + (if (SETQ COMMONLISPY (fetch (READTABLEP COMMONLISP) of RDTBL)) + then (* ; "decimal is suffix") + (if (EQ R 10) + then (RPLCHARCODE NS (add END 1) + (CHARCODE ".")) + (SETQ DIDQ T)) + elseif (AND (EQ R 8) + (> MAGNITUDE 7)) + then (* ; "Octal numbers have Q suffix") + (RPLCHARCODE NS (add END 1) + (CHARCODE Q)) + (SETQ DIDQ T))) + (repeatuntil (EQ X 0) do (* ; + "note this loop happens at least once, for benefit of MAGNITUDE = 0") + [RPLCHARCODE NS (add POS -1) + (LET ((DIGIT (IREMAINDER X R))) + (if (< DIGIT 10) + then (+ DIGIT (CHARCODE 0)) + else + (* ; + "For radices higher than 10, use letters of alphabet from A on up") + (+ (- DIGIT 10) + (CHARCODE A] + (SETQ X (IQUOTIENT X R))) (if SIGN then (RPLCHARCODE NS (add POS -1) - (CHARCODE -))) + (CHARCODE -))) (if [AND RDTBL (NOT DIDQ) - (OR COMMONLISPY (AND (NEQ R 10) - (OR (> MAGNITUDE 9) - (>= MAGNITUDE R] + (OR COMMONLISPY (AND (NEQ R 10) + (OR (> MAGNITUDE 9) + (>= MAGNITUDE R] then - - (* ;; "Prepend a radix qualifier if it wasn't already done as a suffix. In Interlisp we don't do this if the radix is decimal or the number is smaller than the radix.") - [SELECTQ R - (16 (* ; "hex") + (* ;; "Prepend a radix qualifier if it wasn't already done as a suffix. In Interlisp we don't do this if the radix is decimal or the number is smaller than the radix.") + + [SELECTQ R + (16 (* ; "hex") + (RPLCHARCODE NS (add POS -1) + (CHARCODE x))) + (8 (* ; "octal") (RPLCHARCODE NS (add POS -1) - (CHARCODE x))) - (8 (* ; "octal") - (RPLCHARCODE NS (add POS -1) - (CHARCODE o))) - (2 (RPLCHARCODE NS (add POS -1) - (CHARCODE b))) - (PROGN (RPLCHARCODE NS (add POS -1) - (CHARCODE r)) - (RPLCHARCODE NS (add POS -1) - (+ (CHARCODE 0) - (IREMAINDER R 10))) - (if (>= R 10) - then (* ; "two-digit radix") - (RPLCHARCODE NS (add POS -1) - (+ (CHARCODE 0) - (IQUOTIENT R 10] - (RPLCHARCODE NS (add POS -1) - (fetch (READTABLEP HASHMACROCHAR) of RDTBL))) + (CHARCODE o))) + (2 (RPLCHARCODE NS (add POS -1) + (CHARCODE b))) + (PROGN (RPLCHARCODE NS (add POS -1) + (CHARCODE r)) + (RPLCHARCODE NS (add POS -1) + (+ (CHARCODE 0) + (IREMAINDER R 10))) + (if (>= R 10) + then (* ; "two-digit radix") + (RPLCHARCODE NS (add POS -1) + (+ (CHARCODE 0) + (IQUOTIENT R 10] + (RPLCHARCODE NS (add POS -1) + (fetch (READTABLEP HASHMACROCHAR) of RDTBL))) (SUBSTRING NS POS END NSB]) (\LITPRIN - [LAMBDA (X STREAM) (* ; "Edited 14-Apr-87 14:49 by jrb:") + [LAMBDA (X STREAM) (* ; "Edited 14-Apr-87 14:49 by jrb:") (DECLARE (USEDFREE \THISFILELINELENGTH *PRINT-ESCAPE* *READTABLE* *PACKAGE* *PRINT-GENSYM* *PRINT-CASE*)) (COND (*PRINT-ESCAPE* (LET ((RDTBL *READTABLE*) PKG PKGSEPR) [COND - (*PACKAGE* (* ; - "This is NIL until packages get turned on") + (*PACKAGE* (* ; + "This is NIL until packages get turned on") (COND ((EQ *PACKAGE* (SETQ PKG (fetch (CL:SYMBOL PACKAGE) of X))) - (* ; - "No prefix needed in current package") + (* ; + "No prefix needed in current package") (SETQ PKG NIL)) - [(NULL PKG) (* ; - "Uninterned. Print something if flag is on") + [(NULL PKG) (* ; + "Uninterned. Print something if flag is on") (COND - (*PRINT-GENSYM* (* ; - "Print #: as prefix. Not PACKAGECHAR here because colon hardwired into hashmacro dispatch.") + (*PRINT-GENSYM* (* ; + "Print #: as prefix. Not PACKAGECHAR here because colon hardwired into hashmacro dispatch.") (RPLCHARCODE (SETQ PKGSEPR (ALLOCSTRING 2 (CHARCODE ":"))) @@ -625,27 +645,27 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1991, 2020 by Venu (fetch (READTABLEP HASHMACROCHAR) of RDTBL] ((EQ PKG *KEYWORD-PACKAGE*) - (* ; - "Keywords get single colon, no prefix") + (* ; + "Keywords get single colon, no prefix") (SETQ PKGSEPR (ALLOCSTRING 1 (fetch (READTABLEP PACKAGECHAR) of RDTBL))) (SETQ PKG NIL)) ((FIND-EXACT-SYMBOL X *PACKAGE*) - (* ;; "Symbol is accessible in current package, either by being imported or by inheritance. This is a messy test, which is why we test for special case of PKG being the current package first above. No prefix needed here.") + (* ;; "Symbol is accessible in current package, either by being imported or by inheritance. This is a messy test, which is why we test for special case of PKG being the current package first above. No prefix needed here.") (SETQ PKG NIL)) (T - (* ;; "Package qualifier is needed; we need only know now whether symbol is internal or external in its home package.") + (* ;; "Package qualifier is needed; we need only know now whether symbol is internal or external in its home package.") (SETQ PKGSEPR (ALLOCSTRING (COND ((EQ X ( FIND-EXTERNAL-SYMBOL X PKG)) - (* ; - "X is external in PKG, use single colon") + (* ; + "X is external in PKG, use single colon") 1) (T 2)) (fetch (READTABLEP PACKAGECHAR) @@ -656,7 +676,7 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1991, 2020 by Venu (T (.SPACECHECK. STREAM (\NATOMCHARS X)) - (* ;; "Following code munged to match \LITPRIN.INTERNAL's handling of :CAPITALIZE") + (* ;; "Following code munged to match \LITPRIN.INTERNAL's handling of :CAPITALIZE") (for C inatom X bind (DOWNCASE _ (AND (fetch (READTABLEP CASEINSENSITIVE) of *READTABLE*) @@ -668,18 +688,18 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1991, 2020 by Venu do (\OUTCHAR STREAM (if DOWNCASE - then (* ; "may have to change case") + then (* ; "may have to change case") (if (AND (>= C (CHARCODE A)) (<= C (CHARCODE Z))) then (if (OR (NEQ DOWNCASE :CAPITALIZE) (PROG1 WAS-ALPHA (SETQ WAS-ALPHA T))) - then (* ; "for :capitalize, lower all but the characters that start %"words%", i.e., those immediately after a non-alphanumeric") + then (* ; "for :capitalize, lower all but the characters that start %"words%", i.e., those immediately after a non-alphanumeric") (+ C (- (CHARCODE a) (CHARCODE A))) else C) else [if (EQ DOWNCASE :CAPITALIZE) - then (* ; - "C not upper-case. Set WAS-ALPHA if it's lowercase alpha or numeric ") + then (* ; + "C not upper-case. Set WAS-ALPHA if it's lowercase alpha or numeric ") (SETQ WAS-ALPHA (OR (AND (>= C (CHARCODE a)) (<= C (CHARCODE z))) (AND (>= C (CHARCODE 0)) @@ -688,10 +708,10 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1991, 2020 by Venu else C]) (\LITPRIN.INTERNAL - [LAMBDA (SYMBOL RDTBL STREAM PKGNAME PKGSEPR CHECKLENGTH) - (* ; "Edited 18-Dec-86 17:33 by bvm:") + [LAMBDA (SYMBOL RDTBL STREAM PKGNAME PKGSEPR CHECKLENGTH) + (* ; "Edited 18-Dec-86 17:33 by bvm:") -(* ;;; "Print SYMBOL to STREAM according to RDTBL, preceded by PKGNAME (if non-NIL) and/or PKGSEPR. PKGNAME is a symbol, PKGSEPR is a string. If CHECKLENGTH is true, need to check that there is room for printing all three parts on this line; else caller has verified that there is room") +(* ;;; "Print SYMBOL to STREAM according to RDTBL, preceded by PKGNAME (if non-NIL) and/or PKGSEPR. PKGNAME is a symbol, PKGSEPR is a string. If CHECKLENGTH is true, need to check that there is room for printing all three parts on this line; else caller has verified that there is room") (LET ((PNAMELENGTH (\NATOMCHARS SYMBOL)) @@ -700,49 +720,49 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1991, 2020 by Venu USEMULTESCAPE CASEBASE SA SYN NESCAPES CHECKESCAPE FIRSTESCAPE) (if (OR (NEQ MULTESCAPE 0) CHECKLENGTH) - then (* ; - "have to check now if linelength matters or we plan to use multiple escapes") + then (* ; + "have to check now if linelength matters or we plan to use multiple escapes") (SETQ NESCAPES (\SYMBOL.ESCAPE.COUNT SYMBOL RDTBL (NULL CHECKLENGTH))) (if (EQ NESCAPES -1) - then (* ; - "Pname is numeric and we don't have a multiple escape available--need to escape first char") + then (* ; + "Pname is numeric and we don't have a multiple escape available--need to escape first char") (SETQ NESCAPES 1) (SETQ FIRSTESCAPE T) elseif (< NESCAPES 0) - then (* ; "Use multiple escapes") + then (* ; "Use multiple escapes") (SETQ NESCAPES (IMINUS NESCAPES)) (SETQ USEMULTESCAPE T) elseif (NEQ NESCAPES 0) then (SETQ CHECKESCAPE T)) - else (* ; - "if we don't check now then have to check while printing") + else (* ; + "if we don't check now then have to check while printing") (SETQ CHECKESCAPE T)) [if CHECKLENGTH - then (* ; "Verify space for everything") + then (* ; "Verify space for everything") (.SPACECHECK. STREAM (+ PNAMELENGTH NESCAPES (if PKGNAME then - (* ; - "How much space to print package name") + (* ; + "How much space to print package name") (IABS (\SYMBOL.ESCAPE.COUNT PKGNAME RDTBL)) else 0) (if PKGSEPR - then (* ; - "Extra characters between pkg name and symbol name") + then (* ; + "Extra characters between pkg name and symbol name") (\NSTRINGCHARS PKGSEPR) else 0] - (* ;; "First print any needed package qualifier") + (* ;; "First print any needed package qualifier") (if PKGNAME - then (* ; - "Print package name, don't check length") + then (* ; + "Print package name, don't check length") (\LITPRIN.INTERNAL PKGNAME RDTBL STREAM)) (if PKGSEPR then (\SOUT PKGSEPR STREAM)) (if USEMULTESCAPE - then (* ; - "Surround pname with multiple escape char, only escape internal escapes") + then (* ; + "Surround pname with multiple escape char, only escape internal escapes") (\OUTCHAR STREAM MULTESCAPE) (for C inatom SYMBOL do (if (OR (EQ C MULTESCAPE) (EQ C ESCAPE)) @@ -751,19 +771,19 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1991, 2020 by Venu (\OUTCHAR STREAM MULTESCAPE) else [if FIRSTESCAPE - then (* ; - "Need an escape character at start to keep atom from being interpreted as number") + then (* ; + "Need an escape character at start to keep atom from being interpreted as number") (\OUTCHAR STREAM ESCAPE) elseif CHECKESCAPE then (if (AND (EQ PNAMELENGTH 1) (EQ (CHCON1 SYMBOL) (CHARCODE "."))) - then (* ; - "have to handle period special because it is only special in a dotted context") + then (* ; + "have to handle period special because it is only special in a dotted context") (\OUTCHAR STREAM ESCAPE) (SETQ CHECKESCAPE NIL) - else (* ; - "prepare to check for escaping of chars in the printing loop") + else (* ; + "prepare to check for escaping of chars in the printing loop") (SETQ CASEBASE (AND (fetch (READTABLEP CASEINSENSITIVE) of RDTBL) (fetch (ARRAYP BASE) of UPPERCASEARRAY))) (SETQ SA (fetch READSA of RDTBL] @@ -778,8 +798,8 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1991, 2020 by Venu do (if [AND CHECKESCAPE (OR (if (AND CASEBASE (ILEQ C \MAXTHINCHAR) (NEQ C (\GETBASEBYTE CASEBASE C))) - then (* ; - "lower-case alphabetic. We are assuming that no alphanumeric char will pass the next text") + then (* ; + "lower-case alphabetic. We are assuming that no alphanumeric char will pass the next text") (SETQ WAS-ALPHA T)) (AND (fetch (READCODE ESCQUOTE) of (SETQ SYN (\SYNCODE SA C))) @@ -787,24 +807,24 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1991, 2020 by Venu of SYN] then - (* ;; "Need to escape if: character is lower case when case-insensitive, or character intrinsically needs escape.") + (* ;; "Need to escape if: character is lower case when case-insensitive, or character intrinsically needs escape.") (\OUTCHAR STREAM ESCAPE) (\OUTCHAR STREAM C) else (\OUTCHAR STREAM (if DOWNCASE - then (* ; "may have to change case") + then (* ; "may have to change case") (if (AND (<= C (CHARCODE Z)) (>= C (CHARCODE A))) then (if (OR (NEQ DOWNCASE :CAPITALIZE) (PROG1 WAS-ALPHA (SETQ WAS-ALPHA T))) - then (* ; "for :capitalize, lower all but the characters that start %"words%", i.e., those immediately after a non-alphanumeric") + then (* ; "for :capitalize, lower all but the characters that start %"words%", i.e., those immediately after a non-alphanumeric") (+ C (- (CHARCODE a) (CHARCODE A))) else C) else [if (EQ DOWNCASE :CAPITALIZE) - then (* ; "C not upper-case. It's also not lowercase, because that was caught in the CHECKESCAPE clause if any, but note if it's numeric") + then (* ; "C not upper-case. It's also not lowercase, because that was caught in the CHECKESCAPE clause if any, but note if it's numeric") (SETQ WAS-ALPHA (AND (>= C (CHARCODE 0)) (<= C (CHARCODE 9] C) @@ -812,9 +832,9 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1991, 2020 by Venu (SETQ FIRSTFLG NIL]) (\SYMBOL.ESCAPE.COUNT - [LAMBDA (SYMBOL RDTBL INEXACTOK) (* ; "Edited 18-Dec-86 17:08 by bvm:") + [LAMBDA (SYMBOL RDTBL INEXACTOK) (* ; "Edited 18-Dec-86 17:08 by bvm:") -(* ;;; "Counts the number of escape characters needed to print SYMBOL by RDTBL. If RDTBL has a multiple-escape character, then we return a negative count if we're assuming it is used instead of single escapes; else a positive count. The special value -1 means the symbol is numeric, so must be quoted, but no multiple escape is available, so just escape the first character. If INEXACTOK is true and we discover we want to use multiple escape char, returns -2 immediately.") +(* ;;; "Counts the number of escape characters needed to print SYMBOL by RDTBL. If RDTBL has a multiple-escape character, then we return a negative count if we're assuming it is used instead of single escapes; else a positive count. The special value -1 means the symbol is numeric, so must be quoted, but no multiple escape is available, so just escape the first character. If INEXACTOK is true and we discover we want to use multiple escape char, returns -2 immediately.") (for C inatom SYMBOL bind (RESULT _ 0) (NESCAPES _ 0) @@ -830,7 +850,7 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1991, 2020 by Venu (SA _ (fetch READSA of RDTBL)) SYN first (if (EQ MULTESCAPE 0) then - (* ; "Can't use multiple-escape") + (* ; "Can't use multiple-escape") (SETQ MULTESCAPE NIL)) do [if [OR (AND CASEBASE (ILEQ C \MAXTHINCHAR) (NEQ C (\GETBASEBYTE CASEBASE C))) @@ -838,39 +858,39 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1991, 2020 by Venu (OR FIRSTFLG (fetch (READCODE INNERESCQUOTE) of SYN] then - (* ;; "Need protection if char is lowercase in a case-insensitive read table or the read table says it needs it") + (* ;; "Need protection if char is lowercase in a case-insensitive read table or the read table says it needs it") (add RESULT 1) (if MULTESCAPE then (if (OR (EQ C MULTESCAPE) (EQ C ESCAPE)) - then (* ; - "These have to be escaped no matter what") + then (* ; + "These have to be escaped no matter what") (add NESCAPES 1) elseif (AND INEXACTOK (> (- RESULT NESCAPES) 1)) - then (* ; - "If at least 2 chars need escaping, better to use multiple escape, and we can quit scanning now") + then (* ; + "If at least 2 chars need escaping, better to use multiple escape, and we can quit scanning now") (RETURN -2] (SETQ FIRSTFLG NIL) finally (RETURN (if (EQ RESULT 0) - then (* ; - "No funny chars, check for some other perverse cases") + then (* ; + "No funny chars, check for some other perverse cases") (LET ((LEN (\NATOMCHARS SYMBOL))) (if (EQ LEN 0) - then (* ; - "The bletcherous null symbol. Shouldn't be allowed to create this, grumble.") + then (* ; + "The bletcherous null symbol. Shouldn't be allowed to create this, grumble.") (if MULTESCAPE then - (* ; "Can print as ||") + (* ; "Can print as ||") -2 else - (* ; "Single escape can't work") + (* ; "Single escape can't work") 0) elseif (AND (EQ LEN 1) (EQ C (CHARCODE "."))) - then (* ; - "Special case, dot is always escaped when by itself, and prefer single escape to multiple") + then (* ; + "Special case, dot is always escaped when by itself, and prefer single escape to multiple") -1 elseif (\NUMERIC.PNAMEP SYMBOL @@ -880,28 +900,28 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1991, 2020 by Venu else 10)) then - (* ;; "Is numeric, must escape it. Note that if pname is numeric, there can't be any special chars inside it needing escaping. We wait until now to test numeric on the grounds that it is more likely we will print a symbol with escapable chars than one that is a potential number.") + (* ;; "Is numeric, must escape it. Note that if pname is numeric, there can't be any special chars inside it needing escaping. We wait until now to test numeric on the grounds that it is more likely we will print a symbol with escapable chars than one that is a potential number.") (if MULTESCAPE then - (* ; - "Nicer to use multiple escape around whole symbol") + (* ; + "Nicer to use multiple escape around whole symbol") -2 else - (* ; "Say to escape first char") + (* ; "Say to escape first char") -1) else 0)) elseif (AND MULTESCAPE (> (- RESULT NESCAPES) 1)) then - (* ;; "The number of characters needing escaping, not counting the ones that have to be escaped in any case, is at least two. Use two multiple-escapes and NESCAPES regular escapes for the internal escapes = -(NESCAPES+2) total extra characters") + (* ;; "The number of characters needing escaping, not counting the ones that have to be escaped in any case, is at least two. Use two multiple-escapes and NESCAPES regular escapes for the internal escapes = -(NESCAPES+2) total extra characters") (- -2 NESCAPES) else RESULT]) (\NUMERIC.PNAMEP - [LAMBDA (SYMBOL RADIX) (* ; "Edited 17-Jan-2020 05:43 by rmk:") + [LAMBDA (SYMBOL RADIX) (* ; "Edited 17-Jan-2020 05:43 by rmk:") (* ; "Edited 6-Dec-91 11:27 by jds") (* ;;; "True if the chars in SYMBOL are a potential number in RADIX, which defaults to the current read base (according to current read table), OR IF the symbol consists solely of decimal points.") @@ -1007,14 +1027,14 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1991, 2020 by Venu (for C inpname SYMBOL always (EQ C (CHARCODE "."]) (\PRINSTACKP - [LAMBDA (X STREAM) (* bvm%: "11-May-86 16:09") + [LAMBDA (X STREAM) (* bvm%: "11-May-86 16:09") (* ;;; "Print stackp as addr/framename. If stackp is released or framename is not a symbol, print mumble") (.SPACECHECK. STREAM (IPLUS 1 (CONSTANT (NCHARS "]) (\PRINTADDR - [LAMBDA (X STREAM) (* bvm%: "11-May-86 15:13") + [LAMBDA (X STREAM) (* bvm%: "11-May-86 15:13") (WITH-RESOURCES (\NUMSTR \NUMSTR1) (SELECTQ (SYSTEMTYPE) (D (\CKPOSSOUT STREAM (\CONVERTNUMBER (\HILOC X) - 8 NIL NIL \NUMSTR \NUMSTR1)) + 8 NIL NIL \NUMSTR \NUMSTR1)) (\CKPOSBOUT STREAM (CHARCODE %,)) (\CKPOSSOUT STREAM (\CONVERTNUMBER (\LOLOC X) - 8 NIL NIL \NUMSTR \NUMSTR1))) + 8 NIL NIL \NUMSTR \NUMSTR1))) (JERICHO (\CKPOSSOUT STREAM (\CONVERTNUMBER (LOGAND \ADDRMASK (LOC X)) - 8 NIL NIL \NUMSTR \NUMSTR1))) + 8 NIL NIL \NUMSTR \NUMSTR1))) (VAX (\CKPOSSOUT STREAM (\CONVERTNUMBER (LOC X) - 16 T NIL \NUMSTR \NUMSTR1))) + 16 T NIL \NUMSTR \NUMSTR1))) ((TENEX TOPS-20) (\CKPOSSOUT STREAM (\CONVERTNUMBER (LOC X) - 8 T NIL \NUMSTR \NUMSTR1))) + 8 T NIL \NUMSTR \NUMSTR1))) (SYSTEMTYPEPUNT '(\PRINDATUM X]) (\PRINSTRING - [LAMBDA (X STREAM) (* bvm%: "11-May-86 15:08") + [LAMBDA (X STREAM) (* bvm%: "11-May-86 15:08") (COND [*PRINT-ESCAPE* (* ; - "Print with double quotes and escaped as needed") + "Print with double quotes and escaped as needed") (LET ((ESC (fetch (READTABLEP ESCAPECHAR) of *READTABLE*))) [.SPACECHECK. STREAM (IPLUS 2 (\NSTRINGCHARS X) (for C instring X count (OR (EQ C (CHARCODE %")) - (EQ C ESC] + (EQ C ESC] (\OUTCHAR STREAM (CHARCODE %")) (for C instring X do (COND - ((OR (EQ C (CHARCODE %")) - (EQ C (CHARCODE LF)) - (EQ C ESC)) (* ; - "VM says only %" is escaped no matter what stringdelim's are.") - (\OUTCHAR STREAM ESC))) - (\OUTCHAR STREAM C)) + ((OR (EQ C (CHARCODE %")) + (EQ C (CHARCODE LF)) + (EQ C ESC)) + (* ; + "VM says only %" is escaped no matter what stringdelim's are.") + (\OUTCHAR STREAM ESC))) + (\OUTCHAR STREAM C)) (\OUTCHAR STREAM (CHARCODE %"] (T (.SPACECHECK. STREAM (\NSTRINGCHARS X)) (\SOUT X STREAM]) (\SOUT - [LAMBDA (X STREAM) (* ; "Edited 14-Dec-88 22:17 by jds") + [LAMBDA (X STREAM) (* ; "Edited 14-Dec-88 22:17 by jds") - (* ;; "Print the string X onto STREAM, which -must- be a stream.") + (* ;; "Print the string X onto STREAM, which -must- be a stream.") (DECLARE (GLOBALVARS \DISPLAYSTREAMTYPES)) (DECLARE (SPECVARS *DRIBBLE-OUTPUT* \PRIMTERMSA \TERM.OFD)) @@ -1091,31 +1112,6 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1991, 2020 by Venu (\TERM.OFD \TERM.OFD)) (for I instring X do (\OUTCHAR STREAM I] ((for I instring X do (\OUTCHAR STREAM I]) - -(\OUTCHAR - [LAMBDA (STREAM CHARCODE) (* rmk%: " 7-APR-82 00:25") - (STREAMOP 'OUTCHARFN STREAM STREAM CHARCODE]) -) -(DEFINEQ - -(\FILEOUTCHARFN -(LAMBDA (ST CHARCODE) (* ; "Edited 25-Feb-91 17:15 by nm") (\XCCSFILEOUTCHARFN ST CHARCODE))) - -(\JISFILEOUTCHARFN -(LAMBDA (OUTSTREAM CHARCODE) (* ; "Edited 11-Mar-91 11:49 by nm") (* ;;; "Encoder for JIS format.") (COND ((EQ CHARCODE (CHARCODE EOL)) (COND ((\KIMODEP OUTSTREAM NIL) (\OUTKO OUTSTREAM) (\CHNAGE.KI.MODE OUTSTREAM NIL NIL))) (\BOUT OUTSTREAM (SELECTC (ffetch EOLCONVENTION of OUTSTREAM) (CR.EOLC (CHARCODE CR)) (LF.EOLC (CHARCODE LF)) (CRLF.EOLC (\BOUT OUTSTREAM (CHARCODE CR)) (* ;; "Don't put out high-order byte preceding LF. The CRLF is EOL only if the bytes are immediately adjacent in the stream, with no additional encoding bytes") (CHARCODE LF)) (SHOULDNT))) (freplace CHARPOSITION of OUTSTREAM with 0)) (T (SETQ CHARCODE (\CONV.XCCS.TO.JIS OUTSTREAM CHARCODE)) (* ; "\CONV.XCCS.TO.JIS converts ZENKAKUKATAKANA to HANKAKUKATAKANA if the stream desires it.") (COND ((> CHARCODE 255) (COND ((NOT (\KIMODEP OUTSTREAM NIL)) (\OUTKI OUTSTREAM) (\CHNAGE.KI.MODE OUTSTREAM NIL T))) (\BOUT OUTSTREAM (\CHARSET CHARCODE)) (\BOUT OUTSTREAM (\CHAR8CODE CHARCODE))) (T (* ; "ASCII or HANKAKUKATAKANA") (COND ((\KIMODEP OUTSTREAM NIL) (\OUTKO OUTSTREAM) (\CHNAGE.KI.MODE OUTSTREAM NIL NIL))) (\BOUT OUTSTREAM CHARCODE))) (freplace CHARPOSITION of OUTSTREAM with (PROGN (* ; "Ugh. Don't overflow") (IPLUS16 (ffetch CHARPOSITION of OUTSTREAM) 1)))))) -) - -(\SHIFTJISFILEOUTCHARFN -(LAMBDA (OUTSTREAM CHARCODE) (* ; "Edited 7-Mar-91 21:55 by nm") (* ;;; "Encoder for Shift-JIS format.") (COND ((EQ CHARCODE (CHARCODE EOL)) (\BOUT OUTSTREAM (SELECTC (ffetch EOLCONVENTION of OUTSTREAM) (CR.EOLC (CHARCODE CR)) (LF.EOLC (CHARCODE LF)) (CRLF.EOLC (\BOUT OUTSTREAM (CHARCODE CR)) (* ;; "Don't put out high-order byte preceding LF. The CRLF is EOL only if the bytes are immediately adjacent in the stream, with no additional encoding bytes") (CHARCODE LF)) (SHOULDNT))) (freplace CHARPOSITION of OUTSTREAM with 0)) (T (SETQ CHARCODE (\CONV.XCCS.TO.JIS OUTSTREAM CHARCODE)) (* ; "\CONV.XCCS.TO.JIS converts ZENKAKUKATAKANA to HANKAKUKATAKANA if the stream desires it.") (COND ((> CHARCODE 255) (LET ((CH1 (FOLDLO CHARCODE 256)) (CH2 (LOGAND CHARCODE 255))) (\CONV.JIS.TO.SJIS CH1 CH2) (COND ((AND (< CH1 256) (< CH2 256)) (\BOUT OUTSTREAM CH1) (\BOUT OUTSTREAM CH2))))) (T (\BOUT OUTSTREAM CHARCODE))) (freplace CHARPOSITION of OUTSTREAM with (PROGN (* ; "Ugh. Don't overflow") (IPLUS16 (ffetch CHARPOSITION of OUTSTREAM) 1)))))) -) - -(\EUCFILEOUTCHARFN -(LAMBDA (OUTSTREAM CHARCODE) (* ; "Edited 11-Mar-91 11:29 by nm") (* ;;; "Encoder for EUC format.") (COND ((EQ CHARCODE (CHARCODE EOL)) (\BOUT OUTSTREAM (SELECTC (ffetch EOLCONVENTION of OUTSTREAM) (CR.EOLC (CHARCODE CR)) (LF.EOLC (CHARCODE LF)) (CRLF.EOLC (\BOUT OUTSTREAM (CHARCODE CR)) (* ;; "Don't put out high-order byte preceding LF. The CRLF is EOL only if the bytes are immediately adjacent in the stream, with no additional encoding bytes") (CHARCODE LF)) (SHOULDNT))) (freplace CHARPOSITION of OUTSTREAM with 0)) (T (SETQ CHARCODE (\CONV.XCCS.TO.JIS OUTSTREAM CHARCODE)) (* ; "\CONV.XCCS.TO.JIS converts ZENKAKUKATAKANA to HANKAKUKATAKANA if the stream desires it.") (COND ((> CHARCODE 255) (* ; "KANJI or GAIJI") (AND (NOT (\NOTGAIJIP CHARCODE)) (\BOUT OUTSTREAM 143)) (\BOUT OUTSTREAM (LOGOR (\CHARSET CHARCODE) 128)) (\BOUT OUTSTREAM (LOGOR (\CHAR8CODE CHARCODE) 128))) ((\HANKAKUP CHARCODE) (\BOUT OUTSTREAM 142) (\BOUT OUTSTREAM (LOGOR CHARCODE 128))) (T (* ; "C0, C1, SP, DEL or G0") (\BOUT OUTSTREAM CHARCODE))) (freplace CHARPOSITION of OUTSTREAM with (PROGN (* ; "Ugh. Don't overflow") (IPLUS16 (ffetch CHARPOSITION of OUTSTREAM) 1)))))) -) - -(\THROUGHFILEOUTCHARFN -(LAMBDA (OUTSTREAM CHARCODE) (* ; "Edited 26-Feb-91 13:44 by nm") (* ;;; "Encoder for THROUGH format.") (COND ((> CHARCODE 255) (\BOUT OUTSTREAM (\CHARSET CHARCODE)) (\BOUT OUTSTREAM (\CHAR8CODE CHARCODE))) (T (\BOUT OUTSTREAM CHARCODE)))) -) ) (DECLARE%: EVAL@COMPILE DONTCOPY (DECLARE%: EVAL@COMPILE @@ -1212,66 +1208,6 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1991, 2020 by Venu (\INVALID.RADIX R)) (T R]) ) -(DECLARE%: EVAL@COMPILE - -(PUTPROPS \XCCSFILEOUTCHARFN MACRO [(OUTSTREAM CHARCODE) - -(* ;;; "Encoder for XCCS format. Default decoder.") - - (COND - ((EQ CHARCODE (CHARCODE EOL)) - [COND - [(NOT (\RUNCODED OUTSTREAM)) - (* ; "Charset is a constant 0") - (\BOUT OUTSTREAM (\CHARSET (CHARCODE EOL] - ((EQ (\CHARSET (CHARCODE EOL)) - (ffetch (STREAM CHARSET) of OUTSTREAM - ))) - (T (\BOUT OUTSTREAM NSCHARSETSHIFT) - (\BOUT OUTSTREAM (freplace (STREAM CHARSET) - of OUTSTREAM - with - (\CHARSET (CHARCODE EOL] - (\BOUT OUTSTREAM (SELECTC (ffetch EOLCONVENTION - of OUTSTREAM) - (CR.EOLC (CHARCODE CR)) - (LF.EOLC (CHARCODE LF)) - (CRLF.EOLC (\BOUT OUTSTREAM - (CHARCODE - CR)) - - (* ;; "Don't put out high-order byte preceding LF. The CRLF is EOL only if the bytes are immediately adjacent in the stream, with no additional encoding bytes") - - (CHARCODE LF)) - (SHOULDNT))) - (freplace CHARPOSITION of OUTSTREAM - with 0)) - (T [COND - ((NOT (\RUNCODED OUTSTREAM)) - (\BOUT OUTSTREAM (\CHARSET CHARCODE)) - (\BOUT OUTSTREAM (\CHAR8CODE CHARCODE))) - ((EQ (\CHARSET CHARCODE) - (ffetch (STREAM CHARSET) of - OUTSTREAM - )) - (\BOUT OUTSTREAM (\CHAR8CODE CHARCODE))) - (T (\BOUT OUTSTREAM NSCHARSETSHIFT) - (\BOUT OUTSTREAM (freplace (STREAM - CHARSET - ) - of OUTSTREAM - with (\CHARSET - CHARCODE) - )) - (\BOUT OUTSTREAM (\CHAR8CODE CHARCODE] - (freplace CHARPOSITION of OUTSTREAM - with (PROGN - (* ; "Ugh. Don't overflow") - (IPLUS16 (ffetch - CHARPOSITION - of OUTSTREAM) - 1]) -) (* "END EXPORTED DEFINITIONS") @@ -1279,7 +1215,7 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1991, 2020 by Venu (DEFINEQ (\INVALID.RADIX - [LAMBDA (N) (* bvm%: " 5-May-86 10:58") + [LAMBDA (N) (* bvm%: " 5-May-86 10:58") (ERROR "Bad value for *print-base*" N]) ) (DECLARE%: DOEVAL@COMPILE DONTCOPY @@ -1294,7 +1230,7 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1991, 2020 by Venu (DEFINEQ (\MAPPNAME - [LAMBDA (FN X FLG RDTBL *PRINT-LEVEL* *PRINT-LENGTH*) (* ; "Edited 23-Mar-87 11:01 by bvm:") + [LAMBDA (FN X FLG RDTBL *PRINT-LEVEL* *PRINT-LENGTH*) (* ; "Edited 23-Mar-87 11:01 by bvm:") (* ;;; "Run thru the characters in the pname of X, calling FN on each character. For speed, FN is defined to be of the same form as an OUTCHARFN, viz., arglist = (stream char); stream in this case is a dummy") @@ -1312,17 +1248,18 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1991, 2020 by Venu (\MAPPNAME.INTERNAL FN X]) (\MAPPNAME.INTERNAL - [LAMBDA (FN X) (* bvm%: "13-May-86 15:01") + [LAMBDA (FN X) (* ; "Edited 10-May-2021 15:46 by rmk:") (WITH-RESOURCE (\MAPPNAMESTREAM) - (replace OUTCHARFN of \MAPPNAMESTREAM with FN) - (replace STRMBOUTFN of \MAPPNAMESTREAM with FN) (* ; - "Should never use the bout fn, but include it just in case somebody thinks \OUTCHAR = \BOUT") + (replace (STREAM OUTCHARFN) of \MAPPNAMESTREAM with FN) + (replace STRMBOUTFN of \MAPPNAMESTREAM with FN) + (* ; + "Should never use the bout fn, but include it just in case somebody thinks \OUTCHAR = \BOUT") (LET (\THISFILELINELENGTH) (* ; "Stream has no linelength checks") (DECLARE (SPECVARS \THISFILELINELENGTH)) (\PRINDATUM X \MAPPNAMESTREAM 0]) (PNAMESTREAMP - [LAMBDA (STRM) (* bvm%: "24-Mar-86 17:37") + [LAMBDA (STRM) (* bvm%: "24-Mar-86 17:37") (* ;;; "True if STRM is an internal-printing stream for pnames, i.e., one of the values of the \MAPPNAMESTREAM resource") @@ -1363,13 +1300,13 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1991, 2020 by Venu (DEFINEQ (\MAPCHARS - [LAMBDA (\MAPCHARFN X FLG RDTBL) (* bvm%: "13-Mar-86 18:53") + [LAMBDA (\MAPCHARFN X FLG RDTBL) (* bvm%: "13-Mar-86 18:53") (DECLARE (SPECVARS RDTBL)) (* ;;; "Run thru the characters in the pname of X, calling \MAPCHARFN on each character.") (\MAPPNAME [FUNCTION (LAMBDA (DUMMY CHAR) - (SPREADAPPLY* \MAPCHARFN CHAR] + (SPREADAPPLY* \MAPCHARFN CHAR] X FLG RDTBL]) ) (DECLARE%: EVAL@COMPILE DOCOPY @@ -1387,9 +1324,9 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1991, 2020 by Venu (PRINTNUM [LAMBDA (FORMAT NUMBER FILE) (* DECLARATIONS%: (RECORD FIXFMT - (WIDTH RADIX PAD0 LEFTFLUSH)) - (RECORD FLOATFMT (WIDTH DECPART - EXPPART PAD0 SIGDIGITS))) + (WIDTH RADIX PAD0 LEFTFLUSH)) + (RECORD FLOATFMT (WIDTH DECPART + EXPPART PAD0 SIGDIGITS))) (* rmk%: "17-MAY-82 10:07") (DECLARE (GLOBALVARS NILNUMPRINTFLG)) (GLOBALRESOURCE (\NUMSTR \NUMSTR1) @@ -1405,7 +1342,7 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1991, 2020 by Venu (FLOATFLAG (\CONVERT.FLOATING.NUMBER (FLOAT NUMBER) \NUMSTR \NUMSTR1 (\CHECKFLTFMT FORMAT))) (T (\CONVERTNUMBER (OR (FIXP NUMBER) - (FIXR NUMBER)) + (FIXR NUMBER)) (COND ((SETQ RAD (fetch RADIX of FMT)) (SETQ TEMP (IABS RAD)) @@ -1439,14 +1376,15 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1991, 2020 by Venu (RETURN NUMBER]) (FLTFMT - [LAMBDA (FORMAT) (* bvm%: "30-JAN-81 23:20") + [LAMBDA (FORMAT) (* bvm%: "30-JAN-81 23:20") (* ; - "numeric arg, as on 10, not allowed") - (PROG1 \FLOATFORMAT (AND FORMAT (\CHECKFLTFMT FORMAT) - (SETQ \FLOATFORMAT FORMAT]) + "numeric arg, as on 10, not allowed") + (PROG1 \FLOATFORMAT + (AND FORMAT (\CHECKFLTFMT FORMAT) + (SETQ \FLOATFORMAT FORMAT)))]) (\CHECKFLTFMT - [LAMBDA (FORMAT) (* bvm%: "29-JAN-81 15:41") + [LAMBDA (FORMAT) (* bvm%: "29-JAN-81 15:41") (* ;;; "Generates error if FORMAT is not legal FLOAT format: (FLOAT WIDTH DECPART EXPPART PAD SIGDIGITS)") @@ -1463,11 +1401,11 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1991, 2020 by Venu (T (LISPERROR "ILLEGAL ARG" FORMAT]) (PRINTNUM-TO-STRING - [LAMBDA (FORMAT NUMBER) (* DECLARATIONS%: (RECORD FIXFMT - (WIDTH RADIX PAD0 LEFTFLUSH)) - (RECORD FLOATFMT (WIDTH DECPART - EXPPART PAD0 SIGDIGITS))) - (* ; "Edited 27-Nov-91 13:32 by jds") + [LAMBDA (FORMAT NUMBER) (* DECLARATIONS%: (RECORD FIXFMT + (WIDTH RADIX PAD0 LEFTFLUSH)) + (RECORD FLOATFMT (WIDTH DECPART + EXPPART PAD0 SIGDIGITS))) + (* ; "Edited 27-Nov-91 13:32 by jds") (DECLARE (GLOBALVARS NILNUMPRINTFLG)) (GLOBALRESOURCE (\NUMSTR \NUMSTR1) (PROG (STR WIDTH PAD TEMP RAD (FLOATFLAG (SELECTQ (CAR (LISTP FORMAT)) @@ -1534,23 +1472,21 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1991, 2020 by Venu (ADDTOVAR LAMA ) ) (PUTPROPS APRINT COPYRIGHT ("Venue & Xerox Corporation" 1982 1983 1984 1985 1986 1987 1988 1990 1991 -2020)) +2020 2021)) (DECLARE%: DONTCOPY - (FILEMAP (NIL (3975 12601 (PRIN1 3985 . 5389) (PRIN2 5391 . 6496) (PRIN3 6498 . 7449) (PRIN4 7451 . -8546) (PRINT 8548 . 8788) (PRINTCCODE 8790 . 9067) (PRINTLEVEL 9069 . 9795) (RADIX 9797 . 9971) ( -SPACES 9973 . 10323) (TERPRI 10325 . 10514) (FRESHLINE 10516 . 11181) (DEFPRINT 11183 . 11695) ( -LINELENGTH 11697 . 12599)) (13263 17752 (PRINT-CIRCLE-LOOKUP 13273 . 14503) (PRINT-CIRCLE-LABEL-P -14505 . 15103) (PRINT-CIRCLE-SCAN 15105 . 17042) (PRINT-CIRCLE-ENTER 17044 . 17750)) (17753 62216 ( -\PRINDATUM 17763 . 20705) (\PRINT-USING-DEFPRINT 20707 . 22097) (\PRINT-USING-ADDRESS 22099 . 23512) ( -\ELIDE.PRINT.ELEMENT 23514 . 23688) (\ELIDE.ELEMENT.CHAR 23690 . 23977) (\ELIDE.PRINT.TAIL 23979 . -24407) (\ELIDE.TAIL.STRING 24409 . 24634) (\CKPOSBOUT 24636 . 24805) (\CKPOSSOUT 24807 . 25025) ( -\CONVERTNUMBER 25027 . 29308) (\LITPRIN 29310 . 35845) (\LITPRIN.INTERNAL 35847 . 44202) ( -\SYMBOL.ESCAPE.COUNT 44204 . 50972) (\NUMERIC.PNAMEP 50974 . 57553) (\PRINSTACKP 57555 . 58866) ( -\PRINTADDR 58868 . 59949) (\PRINSTRING 59951 . 61332) (\SOUT 61334 . 62052) (\OUTCHAR 62054 . 62214)) -(62217 66145 (\FILEOUTCHARFN 62227 . 62340) (\JISFILEOUTCHARFN 62342 . 63612) (\SHIFTJISFILEOUTCHARFN -63614 . 64688) (\EUCFILEOUTCHARFN 64690 . 65873) (\THROUGHFILEOUTCHARFN 65875 . 66143)) (76348 76520 ( -\INVALID.RADIX 76358 . 76518)) (76624 78633 (\MAPPNAME 76634 . 77633) (\MAPPNAME.INTERNAL 77635 . -78272) (PNAMESTREAMP 78274 . 78631)) (79316 79704 (\MAPCHARS 79326 . 79702)) (80035 87091 (PRINTNUM -80045 . 83104) (FLTFMT 83106 . 83507) (\CHECKFLTFMT 83509 . 84081) (PRINTNUM-TO-STRING 84083 . 87089)) -))) + (FILEMAP (NIL (3743 13280 (PRIN1 3753 . 5238) (PRIN2 5240 . 6433) (PRIN3 6435 . 7469) (PRIN4 7471 . +8654) (PRINT 8656 . 8892) (PRINTCCODE 8894 . 9167) (\PRINTCCODE 9169 . 9638) (PRINTLEVEL 9640 . 10346) + (RADIX 10348 . 10530) (SPACES 10532 . 10878) (TERPRI 10880 . 11065) (FRESHLINE 11067 . 11744) ( +DEFPRINT 11746 . 12318) (LINELENGTH 12320 . 13278)) (13942 18274 (PRINT-CIRCLE-LOOKUP 13952 . 15118) ( +PRINT-CIRCLE-LABEL-P 15120 . 15596) (PRINT-CIRCLE-SCAN 15598 . 17560) (PRINT-CIRCLE-ENTER 17562 . +18272)) (18275 62434 (\PRINDATUM 18285 . 21227) (\PRINT-USING-DEFPRINT 21229 . 22601) ( +\PRINT-USING-ADDRESS 22603 . 23579) (\ELIDE.PRINT.ELEMENT 23581 . 23751) (\ELIDE.ELEMENT.CHAR 23753 . +24036) (\ELIDE.PRINT.TAIL 24038 . 24462) (\ELIDE.TAIL.STRING 24464 . 24685) (\CKPOSBOUT 24687 . 24852) + (\CKPOSSOUT 24854 . 25068) (\CONVERTNUMBER 25070 . 29559) (\LITPRIN 29561 . 36096) (\LITPRIN.INTERNAL + 36098 . 44453) (\SYMBOL.ESCAPE.COUNT 44455 . 51223) (\NUMERIC.PNAMEP 51225 . 57808) (\PRINSTACKP +57810 . 59115) (\PRINTADDR 59117 . 60214) (\PRINSTRING 60216 . 61712) (\SOUT 61714 . 62432)) (67877 +68045 (\INVALID.RADIX 67887 . 68043)) (68149 70224 (\MAPPNAME 68159 . 69154) (\MAPPNAME.INTERNAL 69156 + . 69867) (PNAMESTREAMP 69869 . 70222)) (70907 71295 (\MAPCHARS 70917 . 71293)) (71626 78665 (PRINTNUM + 71636 . 74693) (FLTFMT 74695 . 75085) (\CHECKFLTFMT 75087 . 75655) (PRINTNUM-TO-STRING 75657 . 78663) +)))) STOP diff --git a/sources/APRINT.LCOM b/sources/APRINT.LCOM index 9f30a5520..41f058366 100644 Binary files a/sources/APRINT.LCOM and b/sources/APRINT.LCOM differ diff --git a/sources/ATBL b/sources/ATBL index e9ff9d0c0..bdd1f53b6 100644 --- a/sources/ATBL +++ b/sources/ATBL @@ -1,28 +1,29 @@ -(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) -(FILECREATED "12-Feb-2021 22:55:58" {DSK}larry>ilisp>medley>sources>ATBL.;9 257317Q +(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10 FORMAT XCCS) +(FILECREATED " 9-Jul-2021 15:28:19" {DSK}kaplan>Local>medley3.5>git-medley>sources>ATBL.;11 260310Q - changes to%: (FNS RESETREADTABLE) + changes to%: (FNS SET-READER-ENVIRONMENT) - previous date%: "20-Apr-2018 17:35:56" {DSK}larry>ilisp>medley>sources>ATBL.;8) + previous date%: "28-Jun-2021 09:37:15" +{DSK}kaplan>Local>medley3.5>git-medley>sources>ATBL.;10) (* ; " -Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1990, 1993, 2018, 2021 by Venue & Xerox Corporation. +Copyright (c) 1982-1987, 1990, 1993, 2018, 2021 by Venue & Xerox Corporation. ") (PRETTYCOMPRINT ATBLCOMS) (RPAQQ ATBLCOMS [(E (RESETSAVE (RADIX 8))) - (COMS (* ; - "Common features of read and terminal tables") + (COMS (* ; + "Common features of read and terminal tables") (DECLARE%: DONTCOPY (EXPORT (MACROS \SYNCODE \SETSYNCODE) (RECORDS CHARTABLE)) (CONSTANTS \NSCHARHASHKEYS \NSCHARHASHOVERFLOW) (MACROS \CREATENSCHARHASH)) (FNS GETSYNTAX SETSYNTAX SYNTAXP \COPYSYNTAX \GETCHARCODE \SETFATSYNCODE \MAPCHARTABLE) ) - (COMS (* ; "terminal tables") + (COMS (* ; "terminal tables") (FNS CONTROL COPYTERMTABLE DELETECONTROL GETDELETECONTROL ECHOCHAR ECHOCONTROL ECHOMODE GETECHOMODE GETCONTROL GETTERMTABLE RAISE GETRAISE RESETTERMTABLE SETTERMTABLE TERMTABLEP \GETTERMSYNTAX \GTTERMTABLE \ORIGTERMTABLE \SETTERMSYNTAX @@ -31,16 +32,16 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1990, 1993, 2018, 2021 by Venu (CONSTANTS * TERMCLASSES) (RECORDS TERMCODE TERMTABLEP))) (INITRECORDS TERMTABLEP)) - (COMS (* ; "read tables") + (COMS (* ; "read tables") (FNS COPYREADTABLE FIND-READTABLE IN-READTABLE ESCAPE GETBRK GETREADTABLE GETSEPR READMACROS READTABLEP READTABLEPROP RESETREADTABLE SETBRK SETREADTABLE SETSEPR \GETREADSYNTAX \GTREADTABLE \GTREADTABLE1 \ORIGREADTABLE \READCLASSTOCODE \SETMACROSYNTAX \SETREADSYNTAX \READTABLEP.DEFPRINT) (PROP ARGNAMES READTABLEPROP) - (DECLARE%: EVAL@COMPILE DONTCOPY (* ; - "READCLASSTOKENS Generates READCLASSES and some interesting SELECTQ's") - (* ; - "OTHER must be zero because of initialization.") + (DECLARE%: EVAL@COMPILE DONTCOPY (* ; + "READCLASSTOKENS Generates READCLASSES and some interesting SELECTQ's") + (* ; + "OTHER must be zero because of initialization.") [VARS READCLASSTOKENS (READCLASSES (MAPCAR READCLASSTOKENS (FUNCTION (LAMBDA (PAIR) @@ -48,8 +49,8 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1990, 1993, 2018, 2021 by Venu ".RC") (CADR PAIR] (MACROS \COMPUTED.FORM) - (* ; - "This macro ought to be official somehow") + (* ; + "This macro ought to be official somehow") (RECORDS CONTEXTS ESCAPES WAKEUPS) (EXPORT (MACROS \GETREADMACRODEF \GTREADTABLE \GTREADTABLE1) (CONSTANTS MACROBIT BREAKBIT STOPATOMBIT ESCAPEBIT INNERESCAPEBIT) @@ -64,8 +65,8 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1990, 1993, 2018, 2021 by Venu [COMS (INITVARS (\READTABLEHASH)) (FNS \ATBLSET) (INITRECORDS READER-ENVIRONMENT) - (* ; - "Definition is on CMLREAD, need it here to initialize *OLD-INTERLISP-READ-ENVIRONMENT*") + (* ; + "Definition is on CMLREAD, need it here to initialize *OLD-INTERLISP-READ-ENVIRONMENT*") (FNS MAKE-READER-ENVIRONMENT EQUAL-READER-ENVIRONMENT SET-READER-ENVIRONMENT) (INITVARS (*LISP-PACKAGE*) (*INTERLISP-PACKAGE*) @@ -85,8 +86,8 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1990, 1993, 2018, 2021 by Venu (PUTPROPS \SYNCODE DMACRO [OPENLAMBDA (TABLE CHAR) (CHECK (type? CHARTABLE TABLE)) - (* ; - "0 is either NONE.TC, REAL.CCE, or OTHER.RC") + (* ; + "0 is either NONE.TC, REAL.CCE, or OTHER.RC") (COND ((IGREATERP CHAR \MAXTHINCHAR) (OR (AND (fetch (CHARTABLE NSCHARHASH) of TABLE) @@ -97,8 +98,8 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1990, 1993, 2018, 2021 by Venu (PUTPROPS \SETSYNCODE DMACRO [LAMBDA (TABLE CHAR CODE) (CHECK (type? CHARTABLE TABLE)) - (* ; - "0 is REAL.CCE, NONE.TC, OTHER.RC") + (* ; + "0 is REAL.CCE, NONE.TC, OTHER.RC") (COND ((ILEQ CHAR \MAXTHINCHAR) (\PUTBASEBYTE TABLE CHAR CODE)) @@ -401,8 +402,8 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1990, 1993, 2018, 2021 by Venu (DECLARE%: EVAL@COMPILE -(PUTPROPS \CREATENSCHARHASH MACRO (ARGS (* ; - "added size argument for creation of \ORIGTERMTABLE during initialization.") +(PUTPROPS \CREATENSCHARHASH MACRO (ARGS (* ; + "added size argument for creation of \ORIGTERMTABLE during initialization.") (LIST 'HASHARRAY (OR (CAR ARGS) '\NSCHARHASHKEYS) '\NSCHARHASHOVERFLOW))) @@ -928,8 +929,8 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1990, 1993, 2018, 2021 by Venu (DECLARE%: EVAL@COMPILE (ACCESSFNS TERMCODE ((CCECHO (LOGAND DATUM 30Q)) - (TERMCLASS (LOGAND DATUM 7))) (* ; - "We assume that values are appropriately shifted") + (TERMCLASS (LOGAND DATUM 7))) (* ; + "We assume that values are appropriately shifted") (CREATE (LOGOR CCECHO TERMCLASS))) (DATATYPE TERMTABLEP (TERMSA RAISEFLG DELCHARECHO LINEDELETE 1STCHDEL NTHCHDEL POSTCHDEL @@ -1617,34 +1618,34 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1990, 1993, 2018, 2021 by Venu (RECORD READMACRODEF (MACROTYPE . MACROFN)) -(DATATYPE READTABLEP ((READSA POINTER) (* ; - "A CHARTABLE defining syntax of each char") - (READMACRODEFS POINTER) (* ; - "A hash table associating macro chars with macro definitions") - (READMACROFLG FLAG) (* ; - "True if read macros are enabled (turned off by Interlisp's crufty READMACROS function)") - (ESCAPEFLG FLAG) (* ; "True if the char(s) with escape syntax are enabled (turned off by Interlisp's crufty ESCAPE function)") - (COMMONLISP FLAG) (* ; - "True if table is a Common Lisp read table and hence must obey Common Lisp syntax rules") - (NUMBERBASE BITS 5) (* ; "Not used") - (CASEINSENSITIVE FLAG) (* ; - "If true, unescaped lowercase chars are converted to uppercase in symbols") - (COMMONNUMSYNTAX FLAG) (* ; "True if number notation includes Common Lisp numbers: rationals as a/b, and the dfls exponent markers") - (USESILPACKAGE FLAG) (* ; - "If true, IL:READ ignores *PACKAGE* and reads in the IL package") +(DATATYPE READTABLEP ((READSA POINTER) (* ; + "A CHARTABLE defining syntax of each char") + (READMACRODEFS POINTER) (* ; + "A hash table associating macro chars with macro definitions") + (READMACROFLG FLAG) (* ; + "True if read macros are enabled (turned off by Interlisp's crufty READMACROS function)") + (ESCAPEFLG FLAG) (* ; "True if the char(s) with escape syntax are enabled (turned off by Interlisp's crufty ESCAPE function)") + (COMMONLISP FLAG) (* ; + "True if table is a Common Lisp read table and hence must obey Common Lisp syntax rules") + (NUMBERBASE BITS 5) (* ; "Not used") + (CASEINSENSITIVE FLAG) (* ; + "If true, unescaped lowercase chars are converted to uppercase in symbols") + (COMMONNUMSYNTAX FLAG) (* ; "True if number notation includes Common Lisp numbers: rationals as a/b, and the dfls exponent markers") + (USESILPACKAGE FLAG) (* ; + "If true, IL:READ ignores *PACKAGE* and reads in the IL package") (NIL 5 FLAG) - (DISPATCHMACRODEFS POINTER) (* ; - "An a-list of dispatching macro char and its dispatch definitions") - (HASHMACROCHAR BYTE) (* ; - "The character code used in this read table for the # dispatch macro") - (ESCAPECHAR BYTE) (* ; - "The character code used in this read table for single escape") - (MULTESCAPECHAR BYTE) (* ; - "The character code used in this read table for multiple escape") - (PACKAGECHAR BYTE) (* ; - "The character code used in this read table for package delimiter") - (READTBLNAME POINTER) (* ; - "The canonical 'name' of this read table") + (DISPATCHMACRODEFS POINTER) (* ; + "An a-list of dispatching macro char and its dispatch definitions") + (HASHMACROCHAR BYTE) (* ; + "The character code used in this read table for the # dispatch macro") + (ESCAPECHAR BYTE) (* ; + "The character code used in this read table for single escape") + (MULTESCAPECHAR BYTE) (* ; + "The character code used in this read table for multiple escape") + (PACKAGECHAR BYTE) (* ; + "The character code used in this read table for package delimiter") + (READTBLNAME POINTER) (* ; + "The canonical 'name' of this read table") ) READSA _ (create CHARTABLE)) ) @@ -1712,7 +1713,7 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1990, 1993, 2018, 2021 by Venu (DEFINEQ (\ATBLSET - [LAMBDA NIL (* ; "Edited 20-Apr-2018 17:34 by rmk:") + [LAMBDA NIL (* ; "Edited 28-Jun-2021 09:29 by rmk:") (* ; "Edited 3-Dec-86 18:07 by Pavel") (DECLARE (GLOBALVARS \ORIGREADTABLE \ORIGTERMTABLE)) (COND @@ -1753,10 +1754,11 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1990, 1993, 2018, 2021 by Venu (SETSYNTAX (CHARCODE "|") TRDTBL FILERDTBL) (READTABLEPROP FILERDTBL 'NAME "OLD-INTERLISP-FILE") - (SETQ *OLD-INTERLISP-READ-ENVIRONMENT* (create READER-ENVIRONMENT - REREADTABLE _ FILERDTBL - REBASE _ 12Q)) - (* ; + (SETQ *OLD-INTERLISP-READ-ENVIRONMENT* + (create READER-ENVIRONMENT + REREADTABLE _ FILERDTBL + REBASE _ 12Q + REFORMAT _ :XCCS)) (* ;  "need this to read files in the loadup") ) (PROGN (SETQ NEW-IL-RDTBL (COPYREADTABLE TRDTBL)) @@ -1793,12 +1795,13 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1990, 1993, 2018, 2021 by Venu NIL]) ) -(/DECLAREDATATYPE 'READER-ENVIRONMENT '(POINTER POINTER POINTER POINTER) +(/DECLAREDATATYPE 'READER-ENVIRONMENT '(POINTER POINTER POINTER POINTER POINTER) '((READER-ENVIRONMENT 0 POINTER) (READER-ENVIRONMENT 2 POINTER) (READER-ENVIRONMENT 4 POINTER) - (READER-ENVIRONMENT 6 POINTER)) - '10Q) + (READER-ENVIRONMENT 6 POINTER) + (READER-ENVIRONMENT 10Q POINTER)) + '12Q) @@ -1807,7 +1810,7 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1990, 1993, 2018, 2021 by Venu (DEFINEQ (MAKE-READER-ENVIRONMENT - [LAMBDA (PACKAGE READTABLE BASE) (* ; "Edited 18-Dec-86 18:28 by bvm:") + [LAMBDA (PACKAGE READTABLE BASE FORMAT) (* ; "Edited 28-Jun-2021 09:32 by rmk:") (create READER-ENVIRONMENT REPACKAGE _ (COND (PACKAGE (\DTEST PACKAGE 'PACKAGE)) @@ -1817,25 +1820,33 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1990, 1993, 2018, 2021 by Venu (T *READTABLE*)) REBASE _ (COND (BASE (\CHECKRADIX BASE)) - (T *PRINT-BASE*]) + (T *PRINT-BASE*)) + REFORMAT _ (OR FORMAT *DEFAULT-EXTERNALFORMAT*]) (EQUAL-READER-ENVIRONMENT - [LAMBDA (ENV1 ENV2) (* bvm%: "31-Jul-86 12:54") + [LAMBDA (ENV1 ENV2) (* ; "Edited 28-Jun-2021 09:37 by rmk:") + (* ; ":XCCS is the prehistoric value") (AND (EQ (fetch (READER-ENVIRONMENT REREADTABLE) of ENV1) (fetch (READER-ENVIRONMENT REREADTABLE) of ENV2)) (EQ (fetch (READER-ENVIRONMENT REPACKAGE) of ENV1) (fetch (READER-ENVIRONMENT REPACKAGE) of ENV2)) (EQ (fetch (READER-ENVIRONMENT REBASE) of ENV1) - (fetch (READER-ENVIRONMENT REBASE) of ENV2]) + (fetch (READER-ENVIRONMENT REBASE) of ENV2)) + (EQ (OR (fetch (READER-ENVIRONMENT REFORMAT) of ENV1) + :XCCS) + (OR (fetch (READER-ENVIRONMENT REFORMAT) of ENV2) + :XCCS]) (SET-READER-ENVIRONMENT - [LAMBDA (ENV) (* bvm%: "28-Aug-86 17:44") + [LAMBDA (ENV STREAM) (* ; "Edited 9-Jul-2021 14:42 by rmk:") (* ;;; "Sets the reader environment variables from ENV. Should usually only be called inside a WITH-READER-ENVIRONMENT.") [SETQ *PACKAGE* (ffetch REPACKAGE of (\DTEST ENV 'READER-ENVIRONMENT] (SETQ *READTABLE* (ffetch REREADTABLE of ENV)) (SETQ *READ-BASE* (SETQ *PRINT-BASE* (ffetch REBASE of ENV))) + (CL:WHEN STREAM + (\EXTERNALFORMAT STREAM (ffetch (READER-ENVIRONMENT REFORMAT) OF ENV))) ENV]) ) @@ -1863,24 +1874,24 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1990, 1993, 2018, 2021 by Venu (PUTPROPS ATBL COPYRIGHT ("Venue & Xerox Corporation" 3676Q 3677Q 3700Q 3701Q 3702Q 3703Q 3706Q 3711Q 3742Q 3745Q)) (DECLARE%: DONTCOPY - (FILEMAP (NIL (44114Q 67345Q (GETSYNTAX 44126Q . 55055Q) (SETSYNTAX 55057Q . 57144Q) (SYNTAXP 57146Q - . 62552Q) (\COPYSYNTAX 62554Q . 63637Q) (\GETCHARCODE 63641Q . 64305Q) (\SETFATSYNCODE 64307Q . -66462Q) (\MAPCHARTABLE 66464Q . 67343Q)) (67406Q 124174Q (CONTROL 67420Q . 70020Q) (COPYTERMTABLE -70022Q . 70464Q) (DELETECONTROL 70466Q . 75306Q) (GETDELETECONTROL 75310Q . 77216Q) (ECHOCHAR 77220Q - . 102116Q) (ECHOCONTROL 102120Q . 103040Q) (ECHOMODE 103042Q . 103434Q) (GETECHOMODE 103436Q . -103706Q) (GETCONTROL 103710Q . 104162Q) (GETTERMTABLE 104164Q . 104267Q) (RAISE 104271Q . 105113Q) ( -GETRAISE 105115Q . 105363Q) (RESETTERMTABLE 105365Q . 107465Q) (SETTERMTABLE 107467Q . 110156Q) ( -TERMTABLEP 110160Q . 110425Q) (\GETTERMSYNTAX 110427Q . 111036Q) (\GTTERMTABLE 111040Q . 111564Q) ( -\ORIGTERMTABLE 111566Q . 120427Q) (\SETTERMSYNTAX 120431Q . 121630Q) (\TERMCLASSTOCODE 121632Q . -122513Q) (\TERMCODETOCLASS 122515Q . 123324Q) (\LITCHECK 123326Q . 124172Q)) (131165Q 210145Q ( -COPYREADTABLE 131177Q . 131511Q) (FIND-READTABLE 131513Q . 131742Q) (IN-READTABLE 131744Q . 132210Q) ( -ESCAPE 132212Q . 132613Q) (GETBRK 132615Q . 133033Q) (GETREADTABLE 133035Q . 133246Q) (GETSEPR 133250Q - . 133466Q) (READMACROS 133470Q . 134103Q) (READTABLEP 134105Q . 134354Q) (READTABLEPROP 134356Q . -146554Q) (RESETREADTABLE 146556Q . 157076Q) (SETBRK 157100Q . 162204Q) (SETREADTABLE 162206Q . 162473Q -) (SETSEPR 162475Q . 165475Q) (\GETREADSYNTAX 165477Q . 172657Q) (\GTREADTABLE 172661Q . 173226Q) ( -\GTREADTABLE1 173230Q . 173634Q) (\ORIGREADTABLE 173636Q . 177455Q) (\READCLASSTOCODE 177457Q . -200366Q) (\SETMACROSYNTAX 200370Q . 204004Q) (\SETREADSYNTAX 204006Q . 206071Q) (\READTABLEP.DEFPRINT -206073Q . 210143Q)) (241661Q 252517Q (\ATBLSET 241673Q . 252515Q)) (253256Q 256351Q ( -MAKE-READER-ENVIRONMENT 253270Q . 254356Q) (EQUAL-READER-ENVIRONMENT 254360Q . 255407Q) ( -SET-READER-ENVIRONMENT 255411Q . 256347Q))))) + (FILEMAP (NIL (44154Q 67405Q (GETSYNTAX 44166Q . 55115Q) (SETSYNTAX 55117Q . 57204Q) (SYNTAXP 57206Q + . 62612Q) (\COPYSYNTAX 62614Q . 63677Q) (\GETCHARCODE 63701Q . 64345Q) (\SETFATSYNCODE 64347Q . +66522Q) (\MAPCHARTABLE 66524Q . 67403Q)) (67446Q 124234Q (CONTROL 67460Q . 70060Q) (COPYTERMTABLE +70062Q . 70524Q) (DELETECONTROL 70526Q . 75346Q) (GETDELETECONTROL 75350Q . 77256Q) (ECHOCHAR 77260Q + . 102156Q) (ECHOCONTROL 102160Q . 103100Q) (ECHOMODE 103102Q . 103474Q) (GETECHOMODE 103476Q . +103746Q) (GETCONTROL 103750Q . 104222Q) (GETTERMTABLE 104224Q . 104327Q) (RAISE 104331Q . 105153Q) ( +GETRAISE 105155Q . 105423Q) (RESETTERMTABLE 105425Q . 107525Q) (SETTERMTABLE 107527Q . 110216Q) ( +TERMTABLEP 110220Q . 110465Q) (\GETTERMSYNTAX 110467Q . 111076Q) (\GTTERMTABLE 111100Q . 111624Q) ( +\ORIGTERMTABLE 111626Q . 120467Q) (\SETTERMSYNTAX 120471Q . 121670Q) (\TERMCLASSTOCODE 121672Q . +122553Q) (\TERMCODETOCLASS 122555Q . 123364Q) (\LITCHECK 123366Q . 124232Q)) (131225Q 210205Q ( +COPYREADTABLE 131237Q . 131551Q) (FIND-READTABLE 131553Q . 132002Q) (IN-READTABLE 132004Q . 132250Q) ( +ESCAPE 132252Q . 132653Q) (GETBRK 132655Q . 133073Q) (GETREADTABLE 133075Q . 133306Q) (GETSEPR 133310Q + . 133526Q) (READMACROS 133530Q . 134143Q) (READTABLEP 134145Q . 134414Q) (READTABLEPROP 134416Q . +146614Q) (RESETREADTABLE 146616Q . 157136Q) (SETBRK 157140Q . 162244Q) (SETREADTABLE 162246Q . 162533Q +) (SETSEPR 162535Q . 165535Q) (\GETREADSYNTAX 165537Q . 172717Q) (\GTREADTABLE 172721Q . 173266Q) ( +\GTREADTABLE1 173270Q . 173674Q) (\ORIGREADTABLE 173676Q . 177515Q) (\READCLASSTOCODE 177517Q . +200426Q) (\SETMACROSYNTAX 200430Q . 204044Q) (\SETREADSYNTAX 204046Q . 206131Q) (\READTABLEP.DEFPRINT +206133Q . 210203Q)) (241721Q 252472Q (\ATBLSET 241733Q . 252470Q)) (253313Q 257342Q ( +MAKE-READER-ENVIRONMENT 253325Q . 254504Q) (EQUAL-READER-ENVIRONMENT 254506Q . 256214Q) ( +SET-READER-ENVIRONMENT 256216Q . 257340Q))))) STOP diff --git a/sources/ATBL.LCOM b/sources/ATBL.LCOM index 5281c39ec..2ed726449 100644 Binary files a/sources/ATBL.LCOM and b/sources/ATBL.LCOM differ diff --git a/sources/ATERM b/sources/ATERM index 00d4113f3..104ef16be 100644 --- a/sources/ATERM +++ b/sources/ATERM @@ -1,10 +1,10 @@ (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) -(FILECREATED "29-Apr-2021 09:38:58" {DSK}kaplan>Local>medley3.5>git-medley>sources>ATERM.;4 56766 +(FILECREATED "23-Jun-2021 12:31:16" {DSK}kaplan>Local>medley3.5>git-medley>sources>ATERM.;2 57229 - changes to%: (FNS \CREATELINEBUFFER) + changes to%: (FNS \CHDEL1) - previous date%: "16-May-90 12:08:04" -{DSK}kaplan>Local>medley3.5>git-medley>sources>ATERM.;3) + previous date%: "10-May-2021 15:07:31" +{DSK}kaplan>Local>medley3.5>git-medley>sources>ATERM.;1) (* ; " @@ -181,10 +181,10 @@ Copyright (c) 1982-1988, 1990, 2021 by Venue & Xerox Corporation. (SETQ TtyDisplayStream (SETQ \TERM.OFD STREAM])]) (\CHDEL1 - [LAMBDA NIL (* rmk%: "28-Mar-85 18:25") + [LAMBDA NIL (* ; "Edited 23-Jun-2021 12:29 by rmk:") (COND - ((\BACKNSCHAR \LINEBUF.OFD (UNFOLD \NORUNCODE 256)) - (PROG1 (\NSPEEK \LINEBUF.OFD (UNFOLD \NORUNCODE 256)) + ((\BACKCCODE \LINEBUF.OFD) + (PROG1 (\PEEKCCODE \LINEBUF.OFD) (\SETEOFPTR \LINEBUF.OFD (GETFILEPTR \LINEBUF.OFD)))]) (\CLOSELINE @@ -243,7 +243,7 @@ Copyright (c) 1982-1988, 1990, 2021 by Venue & Xerox Corporation. T]) (\FILLBUFFER - [LAMBDA (FILLTYPE) (* ; "Edited 20-Aug-87 17:52 by jds") + [LAMBDA (FILLTYPE) (* ; "Edited 5-May-2021 20:45 by rmk:") (* ;; "While filling the line, the current file pointer is the end of the line. When the line is closed, this is made the eof. *READTABLE* is used for syntactic delimiters and paren counting on READ and RATOM calls but isn't referenced (or bound) for READC") @@ -300,8 +300,10 @@ Copyright (c) 1982-1988, 1990, 2021 by Venue & Xerox Corporation. (\SETFILEPTR \LINEBUF.OFD 0) (replace (LINEBUFFER LINEBUFSTATE) of \LINEBUF.OFD with RETYPING.LBS)) - [until (\PAGEDEOFP \LINEBUF.OFD) - do (\OUTCHAR \TERM.OFD (\NSIN \LINEBUF.OFD (UNFOLD \NORUNCODE 256] + (until (\PAGEDEOFP \LINEBUF.OFD) do (\OUTCHAR \TERM.OFD (\INCHAR + + \LINEBUF.OFD + ))) (replace (LINEBUFFER LINEBUFSTATE) of \LINEBUF.OFD with FILLING.LBS ) @@ -424,13 +426,14 @@ Copyright (c) 1982-1988, 1990, 2021 by Venue & Xerox Corporation. (replace (LINEBUFFER LBRKCOUNT) of \LINEBUF.OFD with ILB) (replace (LINEBUFFER INSTRINGP) of \LINEBUF.OFD with ISP) (replace (LINEBUFFER LPARCOUNT) of \LINEBUF.OFD with ILP)) - [until (\PAGEDEOFP \LINEBUF.OFD) - do (SETQ CHAR (\NSIN \LINEBUF.OFD (UNFOLD \NORUNCODE 256))) - (COND - [(EQ ESCAPE.RC (SETQ RSNX (\SYNCODE RTBLSA CHAR))) - (OR (\PAGEDEOFP \LINEBUF.OFD) - (\NSIN \LINEBUF.OFD (UNFOLD \NORUNCODE 256] - (T (\INCPARENCOUNT RSNX] + [until (\PAGEDEOFP \LINEBUF.OFD) do (SETQ CHAR (\INCHAR \LINEBUF.OFD)) + (COND + ((EQ ESCAPE.RC (SETQ RSNX + (\SYNCODE RTBLSA + CHAR))) + (OR (\PAGEDEOFP \LINEBUF.OFD) + (\INCHAR \LINEBUF.OFD))) + (T (\INCPARENCOUNT RSNX] (replace (LINEBUFFER LINEBUFSTATE) of \LINEBUF.OFD with FILLING.LBS ))) (GO NEXT) @@ -1136,18 +1139,18 @@ Copyright (c) 1982-1988, 1990, 2021 by Venue & Xerox Corporation. ) (PUTPROPS ATERM COPYRIGHT ("Venue & Xerox Corporation" 1982 1983 1984 1985 1986 1987 1988 1990 2021)) (DECLARE%: DONTCOPY - (FILEMAP (NIL (2982 31202 (BKLINBUF 2992 . 3467) (CLEARBUF 3469 . 4801) (LINBUF 4803 . 4989) ( -PAGEFULLFN 4991 . 6472) (SETLINELENGTH 6474 . 6670) (SYSBUF 6672 . 6858) (TERMCHARWIDTH 6860 . 7277) ( -TERMINAL-INPUT 7279 . 7847) (TERMINAL-OUTPUT 7849 . 8435) (\CHDEL1 8437 . 8740) (\CLOSELINE 8742 . -9031) (\DECPARENCOUNT 9033 . 10616) (\ECHOCHAR 10618 . 11310) (\FILLBUFFER 11312 . 23532) ( -\FILLBUFFER.WORDSEPRP 23534 . 23779) (\FILLBUFFER.BACKUP 23781 . 23960) (\GETCHAR 23962 . 24351) ( -\INCPARENCOUNT 24353 . 26965) (\RESETLINE 26967 . 27291) (\RESETTERMINAL 27293 . 28057) (\SAVELINEBUF -28059 . 30030) (\STOPSCROLL? 30032 . 31200)) (31413 35269 (\DSCCOUT 31423 . 34563) (\INITBCPLDISPLAY -34565 . 35267)) (35462 36712 (VIDEOCOLOR 35472 . 36710)) (37544 43398 (\PEEKREFILL 37554 . 41665) ( -\READREFILL 41667 . 42261) (\RATOM/RSTRING-REFILL 42263 . 42841) (\READCREFILL 42843 . 43396)) (43399 -45228 (DRIBBLE 43409 . 45010) (DRIBBLEFILE 45012 . 45226)) (45229 51904 (\SETUP.DEFAULT.LINEBUF 45239 - . 47696) (\CREATELINEBUFFER 47698 . 50120) (\LINEBUF.READP 50122 . 50471) (\LINEBUF.EOFP 50473 . -50812) (\LINEBUF.PEEKBIN 50814 . 51021) (\OPENLINEBUF 51023 . 51902)) (51979 53218 (LINEBUFFER-EOFP -51989 . 52447) (LINEBUFFER-SKIPSEPRS 52449 . 53216)) (53575 53849 (\INTERMP 53585 . 53716) (\OUTTERMP -53718 . 53847))))) + (FILEMAP (NIL (2974 31665 (BKLINBUF 2984 . 3459) (CLEARBUF 3461 . 4793) (LINBUF 4795 . 4981) ( +PAGEFULLFN 4983 . 6464) (SETLINELENGTH 6466 . 6662) (SYSBUF 6664 . 6850) (TERMCHARWIDTH 6852 . 7269) ( +TERMINAL-INPUT 7271 . 7839) (TERMINAL-OUTPUT 7841 . 8427) (\CHDEL1 8429 . 8698) (\CLOSELINE 8700 . +8989) (\DECPARENCOUNT 8991 . 10574) (\ECHOCHAR 10576 . 11268) (\FILLBUFFER 11270 . 23995) ( +\FILLBUFFER.WORDSEPRP 23997 . 24242) (\FILLBUFFER.BACKUP 24244 . 24423) (\GETCHAR 24425 . 24814) ( +\INCPARENCOUNT 24816 . 27428) (\RESETLINE 27430 . 27754) (\RESETTERMINAL 27756 . 28520) (\SAVELINEBUF +28522 . 30493) (\STOPSCROLL? 30495 . 31663)) (31876 35732 (\DSCCOUT 31886 . 35026) (\INITBCPLDISPLAY +35028 . 35730)) (35925 37175 (VIDEOCOLOR 35935 . 37173)) (38007 43861 (\PEEKREFILL 38017 . 42128) ( +\READREFILL 42130 . 42724) (\RATOM/RSTRING-REFILL 42726 . 43304) (\READCREFILL 43306 . 43859)) (43862 +45691 (DRIBBLE 43872 . 45473) (DRIBBLEFILE 45475 . 45689)) (45692 52367 (\SETUP.DEFAULT.LINEBUF 45702 + . 48159) (\CREATELINEBUFFER 48161 . 50583) (\LINEBUF.READP 50585 . 50934) (\LINEBUF.EOFP 50936 . +51275) (\LINEBUF.PEEKBIN 51277 . 51484) (\OPENLINEBUF 51486 . 52365)) (52442 53681 (LINEBUFFER-EOFP +52452 . 52910) (LINEBUFFER-SKIPSEPRS 52912 . 53679)) (54038 54312 (\INTERMP 54048 . 54179) (\OUTTERMP +54181 . 54310))))) STOP diff --git a/sources/ATERM.LCOM b/sources/ATERM.LCOM index 85501f9b9..f3f85f1bb 100644 Binary files a/sources/ATERM.LCOM and b/sources/ATERM.LCOM differ diff --git a/sources/BOOTSTRAP b/sources/BOOTSTRAP index 456c2e220..5f2e1a4e1 100644 --- a/sources/BOOTSTRAP +++ b/sources/BOOTSTRAP @@ -1,23 +1,25 @@ -(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) -(FILECREATED " 2-Nov-92 04:15:40" "{Pele:mv:envos}Sources>BOOTSTRAP.;4" 40191 +(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10 FORMAT XCCS) +(FILECREATED " 9-Jul-2021 15:32:36"  +{DSK}kaplan>Local>medley3.5>git-medley>sources>BOOTSTRAP.;20 40815 - changes to%: (FNS MOVD) + changes to%: (FNS \LOAD-STREAM \DO-DEFINE-FILE-INFO) - previous date%: "22-May-92 12:00:44" "{Pele:mv:envos}Sources>BOOTSTRAP.;3") + previous date%: " 9-Jul-2021 14:02:39" +{DSK}kaplan>Local>medley3.5>git-medley>sources>BOOTSTRAP.;18) (* ; " -Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1992 by Venue & Xerox Corporation. All rights reserved. +Copyright (c) 1983-1990, 1992, 2021 by Venue & Xerox Corporation. ") (PRETTYCOMPRINT BOOTSTRAPCOMS) (RPAQQ BOOTSTRAPCOMS - [(COMS (* ; "Some basic fns. Note that several are redefined later. E.g., RPAQQ et al real definitions are on UNDO") + [(COMS (* ; "Some basic fns. Note that several are redefined later. E.g., RPAQQ et al real definitions are on UNDO") (FNS GETPROP SETATOMVAL RPAQQ RPAQ RPAQ? MOVD MOVD? SELECTQ SELECTQ1 NCONC1 PUTPROP PROPNAMES ADDPROP REMPROP MEMB CLOSEF?)) - (COMS (* ; - "Need these in order to load even compiled files SYSLOAD") + (COMS (* ; + "Need these in order to load even compiled files SYSLOAD") (FNS LOAD \LOAD-STREAM FILECREATED FILECREATED1 PRETTYCOMPRINT BOOTSTRAP-NAMEFIELD PUTPROPS DECLARE%: DECLARE%:1 ROOTFILENAME DEFINE-FILE-INFO \DO-DEFINE-FILE-INFO)) (INITVARS (EOLCHARCODE (CHCON1 " @@ -70,7 +72,7 @@ Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1992 by Venue & Xe (AND (CCODEP 'BOOTSTRAP-NAMEFIELD) (PUTD 'BOOTSTRAP-NAMEFIELD] (P (RADIX 10))) - (DECLARE%: DOEVAL@COMPILE DONTCOPY (* ; "eventually imported from FASL") + (DECLARE%: DOEVAL@COMPILE DONTCOPY (* ; "eventually imported from FASL") (CONSTANTS FASL:SIGNATURE)) (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA DEFINE-FILE-INFO DECLARE%: PUTPROPS FILECREATED SELECTQ) @@ -362,16 +364,16 @@ Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1992 by Venue & Xe (\LOAD-STREAM [LAMBDA (STREAM LDFLG PRINTFLG LOAD-VERBOSE-STREAM PACKAGE) - (DECLARE (SPECVARS LDFLG PRINTFLG LOAD-VERBOSE-STREAM)) - (* ; "Edited 29-Jan-88 19:02 by jop") + (DECLARE (SPECVARS LDFLG PRINTFLG LOAD-VERBOSE-STREAM)) + (* ; "Edited 9-Jul-2021 15:30 by rmk:") -(* ;;; "Internal function that loads from an already open stream. LOAD-VERBOSE-STREAM if non-nil is the stream to which to print %"file created%" messages and such. Similarly, PRINTFLG, if non-nil, is the stream to which to print the value of each expression.") +(* ;;; "Internal function that loads from an already open stream. LOAD-VERBOSE-STREAM if non-nil is the stream to which to print %"file created%" messages and such. Similarly, PRINTFLG, if non-nil, is the stream to which to print the value of each expression.") (PROG ((*STANDARD-INPUT* STREAM) (FILE (FULLNAME STREAM)) (*PACKAGE* *PACKAGE*) - (*READTABLE* (PROG1 FILERDTBL (* ; "This initial value important for SKIPSEPRCODES below, but *READTABLE* gets reset appropriately before anything else is read") -)) + (*READTABLE* (PROG1 FILERDTBL (* ; "This initial value important for SKIPSEPRCODES below, but *READTABLE* gets reset appropriately before anything else is read") + )) (DFNFLG DFNFLG) (BUILDMAPFLG BUILDMAPFLG) (FILEPKGFLG FILEPKGFLG) @@ -386,13 +388,11 @@ Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1992 by Venue & Xe (if (AND LOAD-VERBOSE-STREAM FILE) then (LISPXTERPRI LOAD-VERBOSE-STREAM) (if (NEQ LOAD-VERBOSE-STREAM T) - then (* ; - "CL:LOAD says to prefix this stuff with comment marker") - + then (* ; + "CL:LOAD says to prefix this stuff with comment marker") (PRIN1 "; Loading " LOAD-VERBOSE-STREAM)) - (* ; - "Might use EXEC-FORMAT here except that it isn't defined early in loadup") - + (* ; + "Might use EXEC-FORMAT here except that it isn't defined early in loadup") (LISPXPRIN1 FILE LOAD-VERBOSE-STREAM) (LISPXTERPRI LOAD-VERBOSE-STREAM)) (if (EQ (SETQ DFNFLG LDFLG) @@ -403,9 +403,8 @@ Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1992 by Venue & Xe (SETQ FILEPKGFLG NIL) (SETQ LISPXHIST NIL)) (if LISPXHIST - then (* ; - "Want UNDOSAVE to keep saving regardless of how many undosaves are involved") - + then (* ; + "Want UNDOSAVE to keep saving regardless of how many undosaves are involved") (if (SETQ LOADA (FMEMB 'SIDE LISPXHIST)) then (FRPLACA (CADR LOADA) -1) @@ -413,22 +412,21 @@ Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1992 by Venue & Xe NIL LISPXHIST))) (if (EQ (SETQ TEM (SKIPSEPRCODES STREAM)) FASL:SIGNATURE) - then (* ; - "FASL file handled by FASL loader") - + then (* ; + "FASL file handled by FASL loader") (FASL:PROCESS-FILE STREAM) [LET [(MANAGED-FILE-P (GET (SETQ ROOTNAME (ROOTFILENAME FILE T)) 'FILEDATES] (if (NOT (MEMB FILE LOADEDFILELST)) - then (* ; - "Keep track of every file loaded.") - + then (* ; + "Keep track of every file loaded.") (SETQ LOADEDFILELST (CONS FILE LOADEDFILELST))) (if MANAGED-FILE-P then (if (EQ LDFLG 'SYSLOAD) then - (* ;; - "Don't notice DFASL's when you are coming from CL:LOAD, and the user didn't specify a load flag") + + (* ;; + "Don't notice DFASL's when you are coming from CL:LOAD, and the user didn't specify a load flag") (if (NOT (MEMB ROOTNAME SYSFILES)) then (SETQ SYSFILES (NCONC1 SYSFILES @@ -441,144 +439,127 @@ Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1992 by Venue & Xe then (RETURN (\CML-LOAD STREAM PRINTFLG LOAD-VERBOSE-STREAM PACKAGE))) (if (AND BUILDMAPFLG (RANDACCESSP STREAM)) then (SETQ MAYBEWANTFILEMAP T)) - (WITH-READER-ENVIRONMENT - FILECREATEDENV - (PROG (ADR) - LP (if FILEMAP - then (* ; - "need to build map, so read carefully") - - (SETQ LOADA (SKIPSEPRCODES STREAM)) - (if (OR (SYNTAXP LOADA 'LEFTPAREN) - (SYNTAXP LOADA 'LEFTBRACKET)) - then (* ; "See if we have a DEFINEQ") - - (SETQ ADR (GETFILEPTR STREAM)) - (READCCODE STREAM) (* ; "Eat paren") - - (if (EQ (RATOM STREAM) - 'DEFINEQ) - then (SETQ FNADRLST (TCONC NIL ADR)) - (TCONC FNADRLST NIL) - (TCONC FILEMAP (CAR FNADRLST)) - (GO DEFQLP)) (* ; "Not a DEFINEQ, so back out") - - (SETFILEPTR STREAM ADR))) - (SELECTQ (SETQ LOADA (READ STREAM)) - ((STOP NIL) - (if (EQ LDFLG 'SYSLOAD) - then (if (NOT (MEMB (SETQ ROOTNAME (ROOTFILENAME - FILE - (CDR FILECREATEDLST - ))) - SYSFILES)) - then (SETQ SYSFILES (NCONC1 SYSFILES ROOTNAME) - )) - (SMASHFILECOMS ROOTNAME) - elseif FILEPKGFLG - then - (* ;; "Do not want any items that are added to FILEPKGCHANGES as a result of being mentioned in this file to remain on FILEPKGCHANGES. Also, we want items mentioned earlier to be deleted if they are taken care of by this file. The extra argument to ADDFILE allows it to restore FILEPKGCHANGES to the intersection of its current value and its previous value.") - - (ADDFILE FILE T PRLST FILECREATEDLST)) - [if FILEMAP - then (PUTFILEMAP FILE (CAR FILEMAP) - FILECREATEDLST FILECREATEDENV NIL FILECREATEDLOC) - (if UPDATEMAPFLG - then (SETFILEPTR STREAM ADR) - (* ; - "address of last expression read. good hint for finding filemap") - - (UPDATEFILEMAP STREAM (CAR FILEMAP] - (if (NOT (MEMB FILE LOADEDFILELST)) - then (/SETTOPVAL 'LOADEDFILELST (CONS FILE LOADEDFILELST))) - (RETURN)) - NIL) - [if (LISTP LOADA) - then - (SELECTQ (CAR LOADA) - (DEFINE-FILE-INFO (* ; - "Handle this specially, since we want to remember the environment") - - (SETQ FILECREATEDLOC (GETFILEPTR STREAM)) - [SET-READER-ENVIRONMENT (SETQ LOADA - (SETQ FILECREATEDENV - (\DO-DEFINE-FILE-INFO - NIL - (CDR LOADA] - (if PACKAGE - then (* ; - "Caller better really mean it--overrides what's on file!") - - [replace REPACKAGE of FILECREATEDENV - with (SETQ *PACKAGE* - (\DTEST PACKAGE 'PACKAGE] - (LISTPUT (fetch RESPEC of + (WITH-READER-ENVIRONMENT FILECREATEDENV + (PROG (ADR) + LP (if FILEMAP + then (* ; + "need to build map, so read carefully") + (SETQ LOADA (SKIPSEPRCODES STREAM)) + (if (OR (SYNTAXP LOADA 'LEFTPAREN) + (SYNTAXP LOADA 'LEFTBRACKET)) + then (* ; "See if we have a DEFINEQ") + (SETQ ADR (GETFILEPTR STREAM)) + (READCCODE STREAM) (* ; "Eat paren") + (if (EQ (RATOM STREAM) + 'DEFINEQ) + then (SETQ FNADRLST (TCONC NIL ADR)) + (TCONC FNADRLST NIL) + (TCONC FILEMAP (CAR FNADRLST)) + (GO DEFQLP)) + (* ; "Not a DEFINEQ, so back out") + (SETFILEPTR STREAM ADR))) + (SELECTQ (SETQ LOADA (READ STREAM)) + ((STOP NIL) + (if (EQ LDFLG 'SYSLOAD) + then (if (NOT (MEMB (SETQ ROOTNAME + (ROOTFILENAME FILE + (CDR FILECREATEDLST))) + SYSFILES)) + then (SETQ SYSFILES (NCONC1 SYSFILES + ROOTNAME))) + (SMASHFILECOMS ROOTNAME) + elseif FILEPKGFLG + then + + (* ;; "Do not want any items that are added to FILEPKGCHANGES as a result of being mentioned in this file to remain on FILEPKGCHANGES. Also, we want items mentioned earlier to be deleted if they are taken care of by this file. The extra argument to ADDFILE allows it to restore FILEPKGCHANGES to the intersection of its current value and its previous value.") + + (ADDFILE FILE T PRLST FILECREATEDLST)) + [if FILEMAP + then (PUTFILEMAP FILE (CAR FILEMAP) + FILECREATEDLST FILECREATEDENV NIL FILECREATEDLOC + ) + (if UPDATEMAPFLG + then (SETFILEPTR STREAM ADR) + (* ; + "address of last expression read. good hint for finding filemap") + (UPDATEFILEMAP STREAM (CAR FILEMAP] + (if (NOT (MEMB FILE LOADEDFILELST)) + then (/SETTOPVAL 'LOADEDFILELST (CONS FILE LOADEDFILELST))) + (RETURN)) + NIL) + [if (LISTP LOADA) + then + (SELECTQ (CAR LOADA) + (DEFINE-FILE-INFO (* ; + "Handle this specially, since we want to remember the environment") + (SETQ FILECREATEDLOC (GETFILEPTR STREAM)) + (SET-READER-ENVIRONMENT [SETQ LOADA + (SETQ FILECREATEDENV + (\DO-DEFINE-FILE-INFO + STREAM + (CDR LOADA] + STREAM) + [if PACKAGE + then (* ; + "Caller better really mean it--overrides what's on file!") + (replace REPACKAGE of FILECREATEDENV - ) - :PACKAGE - (CL:PACKAGE-NAME *PACKAGE*)))) - (FILECREATED (if MAYBEWANTFILEMAP - then (* ; "See if we have a valid file map") - - (SETQ ADR (GETFILEPTR STREAM)) - (if [AND (FIXP (SETQ TEM (CADDDR LOADA))) - [SETQ TEM - (CAR (NLSETQ (SETFILEPTR STREAM TEM) - (READ STREAM] - (EQ (CAR TEM) - 'FILEMAP) - (NULL (CAR (SETQ TEM (CADR TEM] - then - (* ; "Has ok map") - - (PUTFILEMAP FILE TEM NIL FILECREATEDENV) - else (* ; - "Need to build a file map as we go") - - (SETQ FILEMAP (TCONC NIL NIL))) - (SETFILEPTR STREAM ADR) - (SETQ MAYBEWANTFILEMAP NIL)) - (SETQ LOADA (\EVAL LOADA))) - (SETQ LOADA (\EVAL LOADA))) - else (* ; - "Atom found. Compiled code definition.") - - (if ADDSPELLFLG - then (ADDSPELL LOADA)) - (if FILEMAP - then (SETQ ADR (GETFILEPTR STREAM))) - (LAPRD LOADA) - (if FILEMAP - then (TCONC FILEMAP (CONS ADR (CONS (GETFILEPTR STREAM) - LOADA] - LP1 (if PRINTFLG - then (PRINT LOADA PRINTFLG)) - (GO LP) - DEFQLP - (SELCHARQ (SKIPSEPRCODES STREAM) - ((%) %]) (* ; "Closes DEFINEQ.") - - (READCCODE STREAM) - (if FNADRLST - then (RPLACA (CDAR FNADRLST) - (GETFILEPTR STREAM))) - (* ; - "FNADRLST is a TCONC format list, hence want to RPLACA CDAR, not just CDR.") - - (SETQ LOADA (DEFINE (DREVERSE LOADA))) - (GO LP1)) - ((%( %[) (* ; - "another function/definition pair") - - (SETQ ADR (GETFILEPTR STREAM)) - (SETQ LOADA (CONS (READ STREAM) - LOADA)) - [if FNADRLST - then (TCONC FNADRLST (CONS (CAAR LOADA) - (CONS ADR (GETFILEPTR STREAM] - (GO DEFQLP)) - NIL) - (ERROR "illegal argument in defineq"))) + with (SETQ *PACKAGE* + (\DTEST PACKAGE 'PACKAGE]) + (FILECREATED (if MAYBEWANTFILEMAP + then (* ; "See if we have a valid file map") + (SETQ ADR (GETFILEPTR STREAM)) + (if [AND (FIXP (SETQ TEM (CADDDR LOADA))) + [SETQ TEM (CAR (NLSETQ (SETFILEPTR STREAM + TEM) + (READ STREAM] + (EQ (CAR TEM) + 'FILEMAP) + (NULL (CAR (SETQ TEM (CADR TEM] + then (* ; "Has ok map") + (PUTFILEMAP FILE TEM NIL FILECREATEDENV) + else (* ; + "Need to build a file map as we go") + (SETQ FILEMAP (TCONC NIL NIL))) + (SETFILEPTR STREAM ADR) + (SETQ MAYBEWANTFILEMAP NIL)) + (SETQ LOADA (\EVAL LOADA))) + (SETQ LOADA (\EVAL LOADA))) + else (* ; + "Atom found. Compiled code definition.") + (if ADDSPELLFLG + then (ADDSPELL LOADA)) + (if FILEMAP + then (SETQ ADR (GETFILEPTR STREAM))) + (LAPRD LOADA) + (if FILEMAP + then (TCONC FILEMAP (CONS ADR (CONS (GETFILEPTR STREAM) + LOADA] + LP1 (if PRINTFLG + then (PRINT LOADA PRINTFLG)) + (GO LP) + DEFQLP + (SELCHARQ (SKIPSEPRCODES STREAM) + ((%) %]) (* ; "Closes DEFINEQ.") + (READCCODE STREAM) + (if FNADRLST + then (RPLACA (CDAR FNADRLST) + (GETFILEPTR STREAM))) + (* ; + "FNADRLST is a TCONC format list, hence want to RPLACA CDAR, not just CDR.") + (SETQ LOADA (DEFINE (DREVERSE LOADA))) + (GO LP1)) + ((%( %[) (* ; + "another function/definition pair") + (SETQ ADR (GETFILEPTR STREAM)) + (SETQ LOADA (CONS (READ STREAM) + LOADA)) + [if FNADRLST + then (TCONC FNADRLST (CONS (CAAR LOADA) + (CONS ADR (GETFILEPTR STREAM] + (GO DEFQLP)) + NIL) + (ERROR "illegal argument in defineq"))) (RETURN FILE]) (FILECREATED @@ -725,10 +706,11 @@ Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1992 by Venue & Xe (SET-READER-ENVIRONMENT (\DO-DEFINE-FILE-INFO NIL ARGS]) (\DO-DEFINE-FILE-INFO - [LAMBDA (STREAM ARGS) (* bvm%: "14-Oct-86 00:28") -(* ;;; "Processes the (DEFINE-FILE-INFO . ARGS) at the front of STREAM") + [LAMBDA (STREAM ARGS) (* ; "Edited 9-Jul-2021 15:32 by rmk:") + +(* ;;; "Processes the (DEFINE-FILE-INFO . ARGS) at the front of STREAM. This converts the ARGS list to a READER-ENVIRONMENT, and also imposes the external format on STREAM, if non-NIL.") - (LET (PACKAGE READTABLE BASE VALUE) + (LET (PACKAGE READTABLE BASE FORMAT VALUE) [for TAIL on ARGS by (CDDR TAIL) do (SETQ VALUE (CADR TAIL)) (SELECTQ (CAR TAIL) @@ -745,18 +727,26 @@ Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1992 by Venue & Xe 'READTABLEP) else (FIND-READTABLE VALUE)) (ERROR - "Can't find read table for reader environment" + "Can't find read table for reader environment" VALUE)))) (:BASE (SETQ BASE (OR (\CHECKRADIX (if (LISTP VALUE) then (EVAL VALUE) else VALUE)) (ERROR "Bad read base for reader environment" VALUE)))) + ((:FORMAT FORMAT) + (SETQ FORMAT (FETCH (EXTERNALFORMAT NAME) OF (FIND-FORMAT + VALUE)))) (ERROR "Unrecognized file info key" (CAR TAIL] + + (* ;; "Set the defaults. Is this essentially ignoring the *DEFAULT-MAKEFILE-ENVIRONMENT*? Maybe the defaults should be take from there?") + + (CL:UNLESS FORMAT (SETQ FORMAT :XCCS)) + (CL:WHEN STREAM (\EXTERNALFORMAT STREAM FORMAT)) (create READER-ENVIRONMENT REPACKAGE _ (OR PACKAGE *INTERLISP-PACKAGE*) REREADTABLE _ (OR READTABLE FILERDTBL) REBASE _ (OR BASE 10) - RESPEC _ ARGS]) + REFORMAT _ FORMAT]) ) (RPAQ? EOLCHARCODE (CHCON1 " @@ -857,14 +847,14 @@ Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1992 by Venue & Xe (ADDTOVAR LAMA ) ) (PUTPROPS BOOTSTRAP COPYRIGHT ("Venue & Xerox Corporation" 1983 1984 1985 1986 1987 1988 1989 1990 -1992)) +1992 2021)) (DECLARE%: DONTCOPY - (FILEMAP (NIL (4429 14101 (GETPROP 4439 . 5011) (SETATOMVAL 5013 . 5142) (RPAQQ 5144 . 5197) (RPAQ -5199 . 5511) (RPAQ? 5513 . 5883) (MOVD 5885 . 7749) (MOVD? 7751 . 8181) (SELECTQ 8183 . 8370) ( -SELECTQ1 8372 . 8714) (NCONC1 8716 . 8912) (PUTPROP 8914 . 10398) (PROPNAMES 10400 . 10591) (ADDPROP -10593 . 12656) (REMPROP 12658 . 13512) (MEMB 13514 . 13773) (CLOSEF? 13775 . 14099)) (14174 38092 ( -LOAD 14184 . 15353) (\LOAD-STREAM 15355 . 29131) (FILECREATED 29133 . 30551) (FILECREATED1 30553 . -31661) (PRETTYCOMPRINT 31663 . 32148) (BOOTSTRAP-NAMEFIELD 32150 . 33110) (PUTPROPS 33112 . 33480) ( -DECLARE%: 33482 . 33614) (DECLARE%:1 33616 . 34488) (ROOTFILENAME 34490 . 35438) (DEFINE-FILE-INFO -35440 . 35875) (\DO-DEFINE-FILE-INFO 35877 . 38090))))) + (FILEMAP (NIL (4465 14137 (GETPROP 4475 . 5047) (SETATOMVAL 5049 . 5178) (RPAQQ 5180 . 5233) (RPAQ +5235 . 5547) (RPAQ? 5549 . 5919) (MOVD 5921 . 7785) (MOVD? 7787 . 8217) (SELECTQ 8219 . 8406) ( +SELECTQ1 8408 . 8750) (NCONC1 8752 . 8948) (PUTPROP 8950 . 10434) (PROPNAMES 10436 . 10627) (ADDPROP +10629 . 12692) (REMPROP 12694 . 13548) (MEMB 13550 . 13809) (CLOSEF? 13811 . 14135)) (14210 38711 ( +LOAD 14220 . 15389) (\LOAD-STREAM 15391 . 29116) (FILECREATED 29118 . 30536) (FILECREATED1 30538 . +31646) (PRETTYCOMPRINT 31648 . 32133) (BOOTSTRAP-NAMEFIELD 32135 . 33095) (PUTPROPS 33097 . 33465) ( +DECLARE%: 33467 . 33599) (DECLARE%:1 33601 . 34473) (ROOTFILENAME 34475 . 35423) (DEFINE-FILE-INFO +35425 . 35860) (\DO-DEFINE-FILE-INFO 35862 . 38709))))) STOP diff --git a/sources/BOOTSTRAP.LCOM b/sources/BOOTSTRAP.LCOM index 7430c3496..b379a3011 100644 Binary files a/sources/BOOTSTRAP.LCOM and b/sources/BOOTSTRAP.LCOM differ diff --git a/sources/BYTECOMPILER b/sources/BYTECOMPILER index a97c9735e..cfa8d5622 100644 --- a/sources/BYTECOMPILER +++ b/sources/BYTECOMPILER @@ -1,13 +1,15 @@ (DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP") -(FILECREATED "26-Apr-91 17:25:53" |{PELE:MV:ENVOS}LIBRARY>BYTECOMPILER.;1| 264022 +(FILECREATED "13-Jun-2021 09:51:42"  +{DSK}kaplan>Local>medley3.5>git-medley>sources>BYTECOMPILER.;2 263891 - changes to%: (FNS COMP.EXPR) + changes to%: (FNS COMP.MLLIST) - previous date%: "17-Jul-90 11:28:59" |{PELE:MV:ENVOS}SOURCES>BYTECOMPILER.;8|) + previous date%: "26-Apr-91 17:25:53" +{DSK}kaplan>Local>medley3.5>git-medley>sources>BYTECOMPILER.;1) (* ; " -Copyright (c) 1981, 1982, 1983, 1984, 1985, 1986, 1987, 1900, 1988, 1989, 1990, 1991 by Venue & Xerox Corporation. All rights reserved. +Copyright (c) 1981-1987, 1900, 1988-1991, 2021 by Venue & Xerox Corporation. ") (PRETTYCOMPRINT BYTECOMPILERCOMS) @@ -15,7 +17,7 @@ Copyright (c) 1981, 1982, 1983, 1984, 1985, 1986, 1987, 1900, 1988, 1989, 1990, (RPAQQ BYTECOMPILERCOMS [ -(* ;;; "THE BYTE LISP COMPILER") +(* ;;; "THE BYTE LISP COMPILER") (COMS (INITVARS (*BYTECOMPILER-IS-EXPANDING* NIL)) (FNS BYTEBLOCKCOMPILE2 BYTECOMPILE2 COMP.ATTEMPT.COMPILE COMP.RETFROM.POINT @@ -86,17 +88,17 @@ Copyright (c) 1981, 1982, 1983, 1984, 1985, 1986, 1987, 1900, 1988, 1989, 1990, (PROP BYTEMACRO SUB1VAR) (OPTIMIZERS EQMEMB MKLIST) (COMS - (* ;; "Pass 1 listing") + (* ;; "Pass 1 listing") (FNS COMP.MLLIST COMP.MLL COMP.MLLVAR COMP.MLLFN) (VARS COPS) (IFPROP MLSYM * (PROGN COPS))) (COMS - (* ;; "ARJ --- JUMP LENGTH RESOLVER") + (* ;; "ARJ --- JUMP LENGTH RESOLVER") (FNS OPT.RESOLVEJUMPS OPT.JLENPASS OPT.JFIXPASS OPT.JSIZE)) (COMS - (* ;; "Utilities used by all files") + (* ;; "Utilities used by all files") (FNS OPT.CALLP OPT.JUMPCHECK OPT.DREV OPT.CHLEV OPT.CHECKTAG OPT.NOTJUMP OPT.INITHASH OPT.COMPINIT)) @@ -118,7 +120,7 @@ Copyright (c) 1981, 1982, 1983, 1984, 1985, 1986, 1987, 1900, 1988, 1989, 1990, (FNS COMP.AREF COMP.ASET COMP.BOX COMP.LOOKFORDECLARE COMP.DECLARETYPE COMP.FLOATBOX COMP.FLOATUNBOX COMP.PREDP COMP.UBFLOAT2 COMP.UNBOX)) (ADDVARS (COMPILETYPELST)) - (COMS (* ; "POST OPTIMIZATION") + (COMS (* ; "POST OPTIMIZATION") (FNS OPT.POSTOPT OPT.SETUPOPT OPT.SCANOPT OPT.XVARSCAN OPT.XVARSCAN1 OPT.JUMPOPT OPT.JUMPTHRU OPT.LBMERGE OPT.PRDEL OPT.UBDEL OPT.LBDEL OPT.LABELNTHPR OPT.JUMPREV OPT.COMMONBACK OPT.DELTAGREF OPT.FINDEND OPT.RETOPT OPT.RETFIND OPT.RETPOP @@ -144,7 +146,7 @@ Copyright (c) 1981, 1982, 1983, 1984, 1985, 1986, 1987, 1900, 1988, 1989, 1990, (SPECVARS FRAME LEVEL ANY) (SPECVARS FRAME LEVEL ANY) (SPECVARS TAGS ANY))) - (COMS (* ; "CONSISTENCY CHECKS") + (COMS (* ; "CONSISTENCY CHECKS") (DECLARE%: EVAL@COMPILE DONTCOPY (MACROS OPT.CCHECK) (VARS (COMPILECOMPILERCHECKS NIL))) (FNS OPT.COMPILERERROR OPT.OPTCHECK OPT.CCHECK)) @@ -157,7 +159,7 @@ Copyright (c) 1981, 1982, 1983, 1984, 1985, 1986, 1987, 1900, 1988, 1989, 1990, STATN SYSSPECVARS UNIQUE#ARRAY VCA VCONDITIONALS VREFFRA COUTFILE XVARFLG MERGEFRAMEFLG OPTIMIZATIONSOFF NOFREEVARSFNS EQCONSTFN NEWOPTFLG) [P (CL:PROCLAIM '(CL:SPECIAL COMPVARMACROHASH] - (DECLARE%: DONTCOPY (* ; "for compiling compiler") + (DECLARE%: DONTCOPY (* ; "for compiling compiler") EVAL@COMPILE (RECORDS CODELST) (PROP MACRO OASSOC) @@ -2836,34 +2838,34 @@ Copyright (c) 1981, 1982, 1983, 1984, 1985, 1986, 1987, 1900, 1988, 1989, 1990, (DEFOPTIMIZER KWOTE (&REST ARGS) (CONS '(OPENLAMBDA (Q) - (COND - ((AND Q (NEQ Q T) - (NOT (NUMBERP Q))) - (LIST 'QUOTE Q)) - (T Q))) + (COND + ((AND Q (NEQ Q T) + (NOT (NUMBERP Q))) + (LIST 'QUOTE Q)) + (T Q))) ARGS)) (DEFOPTIMIZER FRPLNODE (&REST ARGS) (CONS '(OPENLAMBDA (X A D) - (FRPLACD (FRPLACA X A) - D)) + (FRPLACD (FRPLACA X A) + D)) ARGS)) (DEFOPTIMIZER RPLNODE (&REST ARGS) (CONS '(OPENLAMBDA (X A D) - (RPLACD (RPLACA X A) - D)) + (RPLACD (RPLACA X A) + D)) ARGS)) (DEFOPTIMIZER LISTGET1 (&REST ARGS) (CONS '(OPENLAMBDA (X Y) - (CADR (MEMB Y X))) + (CADR (MEMB Y X))) ARGS)) (DEFOPTIMIZER FRPLNODE2 (&REST ARGS) (CONS '(OPENLAMBDA (X Y) - (FRPLACD (FRPLACA X (CAR Y)) - (CDR Y))) + (FRPLACD (FRPLACA X (CAR Y)) + (CDR Y))) ARGS)) (PUTPROPS SUB1VAR BYTEMACRO ((X) @@ -2871,16 +2873,16 @@ Copyright (c) 1981, 1982, 1983, 1984, 1985, 1986, 1987, 1900, 1988, 1989, 1990, (DEFOPTIMIZER EQMEMB (&REST ARGS) (CONS '(OPENLAMBDA (X Y) - (OR (EQ X Y) - (AND (LISTP Y) - (FMEMB X Y) - T))) + (OR (EQ X Y) + (AND (LISTP Y) + (FMEMB X Y) + T))) ARGS)) (DEFOPTIMIZER MKLIST (&REST ARGS) (CONS '[OPENLAMBDA (X) - (OR (LISTP X) - (AND X (LIST X] + (OR (LISTP X) + (AND X (LIST X] ARGS)) @@ -2890,20 +2892,21 @@ Copyright (c) 1981, 1982, 1983, 1984, 1985, 1986, 1987, 1900, 1988, 1989, 1990, (DEFINEQ (COMP.MLLIST - [LAMBDA (FN CC) (* lmm%: "13-NOV-76 06:56:28") - (RESETLST (RESETSAVE (RADIX 10)) - (RESETSAVE (LINELENGTH 72)) - (PRIN2 FN) - (MAPRINT (fetch ARGS of CC) - NIL "(" ")" " " (FUNCTION COMP.MLLVAR)) - (SPACES 5) - [PRINT (CDR (FASSOC (fetch COMTYPE of CC) - '((0 . LAMBDA) - (2 . LAMBDA*) - (1 . NLAMBDA) - (2 . NLAMBDA*) - (NIL . ???] - (COMP.MLL (fetch CODE of CC]) + [LAMBDA (FN CC) (* ; "Edited 13-Jun-2021 09:50 by rmk:") + (RESETLST + (RESETSAVE (RADIX 10)) + (RESETSAVE (LINELENGTH 72)) + (PRIN2 FN) + (MAPRINT (fetch (COMINFO ARGS) of CC) + NIL "(" ")" " " (FUNCTION COMP.MLLVAR)) + (SPACES 5) + [PRINT (CDR (FASSOC (fetch (COMINFO COMTYPE) of CC) + '((0 . LAMBDA) + (2 . LAMBDA*) + (1 . NLAMBDA) + (2 . NLAMBDA*) + (NIL . ???] + (COMP.MLL (fetch (COMINFO CODE) of CC)))]) (COMP.MLL [LAMBDA (LL) (* Pavel "15-Nov-86 16:02") @@ -3261,16 +3264,16 @@ Copyright (c) 1981, 1982, 1983, 1984, 1985, 1986, 1987, 1900, 1988, 1989, 1990, ) (PUTPROPS IMAX2 BYTEMACRO (OPENLAMBDA (X Y) - (COND - ((NOT (IGREATERP X Y)) - Y) - (T X)))) + (COND + ((NOT (IGREATERP X Y)) + Y) + (T X)))) (PUTPROPS IMIN2 BYTEMACRO (OPENLAMBDA (X Y) - (COND - ((IGREATERP X Y) - Y) - (T X)))) + (COND + ((IGREATERP X Y) + Y) + (T X)))) (PUTPROPS FLOAT BOX (\FLOATBOX . \FLOATUNBOX)) (DEFINEQ @@ -5223,7 +5226,7 @@ Copyright (c) 1981, 1982, 1983, 1984, 1985, 1986, 1987, 1900, 1988, 1989, 1990, (DEFMACRO CL:MACROLET (CL::MACRODEFS &BODY CL::BODY &ENVIRONMENT CL::ENV) (DECLARE (SPECVARS *BYTECOMPILER-IS-EXPANDING*)) - (* ;; "This macro for the old interpreter and compiler only. The new interpreter has a special-form definition. When the new compiler is expanding, we simply return a disguised version of the form.") + (* ;; "This macro for the old interpreter and compiler only. The new interpreter has a special-form definition. When the new compiler is expanding, we simply return a disguised version of the form.") (IF (AND *BYTECOMPILER-IS-EXPANDING* *BYTECOMPILER-OPTIMIZE-MACROLET*) THEN (LET ((CL::NEW-ENV (COMPILER::MAKE-CHILD-ENV CL::ENV))) @@ -5442,17 +5445,17 @@ Copyright (c) 1981, 1982, 1983, 1984, 1985, 1986, 1987, 1900, 1988, 1989, 1990, (RECORD OP (OPNAME . OPARG)) -(RECORD JUMP (OPNAME TAG . JT) (* kind of OP) +(RECORD JUMP (OPNAME TAG . JT) (* kind of OP) ) -(TYPERECORD TAG (LBNO . LEVEL) (* kind of OP) +(TYPERECORD TAG (LBNO . LEVEL) (* kind of OP) LBNO _ (SETQ LBCNT (ADD1 LBCNT)) [ACCESSFNS TAG ((FRAME (GETHASH DATUM FRA) (PUTHASH DATUM NEWVALUE FRA)) (JD (GETHASH DATUM LBA) (PUTHASH DATUM NEWVALUE LBA]) -(RECORD VAR (COMP.VARTYPE . VARNAME) (* A particular kind of OP) +(RECORD VAR (COMP.VARTYPE . VARNAME) (* A particular kind of OP) ) ) @@ -5462,9 +5465,9 @@ Copyright (c) 1981, 1982, 1983, 1984, 1985, 1986, 1987, 1900, 1988, 1989, 1990, LEVEL (BINDLST NVALS EXTCALL . CPIOK) . PROGLABELS) - (* FRAMETYPE is one of PROG LAMBDA ERRORSET MAP NIL - - VARS are variables bound, NNILS are %# which are bound to NIL - - LEVEL is %# of things on stack between this and next higher frame) + (* FRAMETYPE is one of PROG LAMBDA ERRORSET MAP NIL - + VARS are variables bound, NNILS are %# which are bound to NIL - + LEVEL is %# of things on stack between this and next higher frame) (ACCESSFNS FRAME ((PARENT (GETHASH DATUM FRA) (PUTHASH DATUM NEWVALUE FRA)) @@ -5474,14 +5477,14 @@ Copyright (c) 1981, 1982, 1983, 1984, 1985, 1986, 1987, 1900, 1988, 1989, 1990, (PUTHASH DATUM NEWVALUE NODARR)) (PRIMARYRETURN (GETHASH DATUM BCINFO) (PUTHASH DATUM NEWVALUE BCINFO))) - (* PARENT is next higher enclosing - frame - - shares hash table with TAG.FRAME) + (* PARENT is next higher enclosing + frame - + shares hash table with TAG.FRAME) ) (RECORD CPIOK NOXVAR - (* Share the CPIOK field used by the compiler pass 1 and the NOXVAR field used - by the maxc assembler) + (* Share the CPIOK field used by the compiler pass 1 and the NOXVAR field used + by the maxc assembler) ) NNILS _ 0) @@ -5497,12 +5500,12 @@ Copyright (c) 1981, 1982, 1983, 1984, 1985, 1986, 1987, 1900, 1988, 1989, 1990, (RECORD JD (JPT (JMIN . JSN) JU . JML) - (* JPT is NIL (for tags) or a pointer into ACODE - (for jumps)%. JMIN is the lowest possible location for the instruction or tag. - JU is the cumulative uncertainty (for tags) or the length uncertainty - (for jumps)%. JML is the minimum length - (for jumps)%. JSN is a serial number (the original JMIN) used to decide whether - a jump goes forward or backward.) + (* JPT is NIL (for tags) or a pointer into ACODE + (for jumps)%. JMIN is the lowest possible location for the instruction or tag. + JU is the cumulative uncertainty (for tags) or the length uncertainty + (for jumps)%. JML is the minimum length + (for jumps)%. JSN is a serial number (the original JMIN) used to decide whether + a jump goes forward or backward.) ) @@ -5530,62 +5533,62 @@ Copyright (c) 1981, 1982, 1983, 1984, 1985, 1986, 1987, 1900, 1988, 1989, 1990, (ADDTOVAR LAMA ) ) (PUTPROPS BYTECOMPILER COPYRIGHT ("Venue & Xerox Corporation" 1981 1982 1983 1984 1985 1986 1987 1900 -1988 1989 1990 1991)) +1988 1989 1990 1991 2021)) (DECLARE%: DONTCOPY - (FILEMAP (NIL (9298 19200 (BYTEBLOCKCOMPILE2 9308 . 11925) (BYTECOMPILE2 11927 . 12166) ( -COMP.ATTEMPT.COMPILE 12168 . 13312) (COMP.RETFROM.POINT 13314 . 14004) (COMP.TRANSFORM 14006 . 17469) -(COMPERROR 17471 . 17830) (COMPPRINT 17832 . 18056) (COMPERRM 18058 . 19198)) (19201 28848 ( -COMP.TOPLEVEL.COMPILE 19211 . 25317) (COMP.BINDLIST 25319 . 25637) (COMP.CHECK.VAR 25639 . 26143) ( -COMP.BIND.VARS 26145 . 28436) (COMP.UNBIND.VARS 28438 . 28846)) (28849 43028 (COMP.VALN 28859 . 28992) - (COMP.PROGN 28994 . 29722) (COMP.PROGLST 29724 . 30622) (COMP.EXP1 30624 . 30772) (COMP.EXPR 30774 . -35500) (COMP.TRYUSERFN 35502 . 35831) (COMP.USERFN 35833 . 36754) (COMP.CONST 36756 . 37817) ( -COMP.CALL 37819 . 39258) (COMP.VAR 39260 . 39739) (COMP.VAL1 39741 . 39874) (COMP.PROG1 39876 . 40304) - (COMP.EFFECT 40306 . 40885) (COMP.VAL 40887 . 41510) (COMP.MACRO 41512 . 43026)) (43029 45232 ( -COMP.VARTYPE 43039 . 43268) (COMP.LOOKUPVAR 43270 . 44742) (COMP.LOOKUPCONST 44744 . 45230)) (45233 -52744 (COMP.ST 45243 . 45746) (COMP.STFN 45748 . 46142) (COMP.STCONST 46144 . 46313) (COMP.STVAR 46315 - . 46451) (COMP.STPOP 46453 . 46616) (COMP.DELFN 46618 . 46856) (COMP.STRETURN 46858 . 47030) ( -COMP.STTAG 47032 . 48002) (COMP.STJUMP 48004 . 50020) (COMP.STSETQ 50022 . 50290) (COMP.STCOPY 50292 - . 50472) (COMP.DELPUSH 50474 . 50638) (COMP.DELPOP 50640 . 50808) (COMP.STBIND 50810 . 52204) ( -COMP.STUNBIND 52206 . 52742)) (57165 60353 (COMP.ARGTYPE 57175 . 58344) (COMP.CLEANEXPP 58346 . 58662) - (COMP.CLEANFNP 58664 . 59078) (COMP.CLEANFNOP 59080 . 59228) (COMP.GLOBALVARP 59230 . 59408) ( -COMP.LINKCALLP 59410 . 59874) (COMP.ANONP 59876 . 60231) (COMP.NOSIDEEFFECTP 60233 . 60351)) (60354 -63601 (COMP.CPI 60364 . 62172) (COMP.CPI1 62174 . 62903) (COMP.PICOUNT 62905 . 63599)) (63645 63846 ( -COMP.EVQ 63655 . 63844)) (63958 66690 (COMP.BOOL 63968 . 66688)) (66691 67219 (COMP.APPLYFNP 66701 . -67217)) (67261 67843 (COMP.AC 67271 . 67467) (COMP.PUNT 67469 . 67841)) (67897 69523 (COMP.FUNCTION -67907 . 68327) (COMP.LAM1 68329 . 69183) (COMP.GENFN 69185 . 69521)) (69733 79689 (COMP.COND 69743 . -72832) (COMP.IF 72834 . 74307) (COMP.SELECTQ 74309 . 79687)) (79876 80406 (COMP.QUOTE 79886 . 80120) ( -COMP.COMMENT 80122 . 80404)) (80458 83446 (COMP.DECLARE 80468 . 82352) (COMP.DECLARE1 82354 . 83444)) -(86362 87269 (COMP.CARCDR 86372 . 87056) (COMP.STCROP 87058 . 87267)) (87357 87696 (COMP.NOT 87367 . -87694)) (87787 88524 (COMP.SETQ 87797 . 88294) (COMP.SETN 88296 . 88522)) (88525 92500 (COMP.LAMBDA -88535 . 92498)) (92749 104633 (COMP.PROG 92759 . 96529) (COMP.GO 96531 . 97549) (COMP.RETURN 97551 . -99228) (COMP.BLOCK 99230 . 100836) (COMP.RETURN-FROM 100838 . 102988) (COMP.TAGBODY 102990 . 104631)) -(104686 107192 (COMP.LABELS 104696 . 107190)) (110639 120378 (COMP.NUMERIC 110649 . 115463) ( -COMP.NUMBERCALL 115465 . 119055) (COMP.FIX 119057 . 119209) (COMP.STFIX 119211 . 119800) (COMP.DELFIX -119802 . 120376)) (120506 122351 (COMP.EQ 120516 . 122349)) (122413 125921 (COMP.NUMBERTEST 122423 . -125919)) (127424 134956 (COMP.MAP 127434 . 134954)) (137329 141510 (COMP.MLLIST 137339 . 138022) ( -COMP.MLL 138024 . 140799) (COMP.MLLVAR 140801 . 141114) (COMP.MLLFN 141116 . 141508)) (142527 148126 ( -OPT.RESOLVEJUMPS 142537 . 143608) (OPT.JLENPASS 143610 . 146975) (OPT.JFIXPASS 146977 . 147680) ( -OPT.JSIZE 147682 . 148124)) (148172 151031 (OPT.CALLP 148182 . 148660) (OPT.JUMPCHECK 148662 . 148878) - (OPT.DREV 148880 . 149079) (OPT.CHLEV 149081 . 149292) (OPT.CHECKTAG 149294 . 149673) (OPT.NOTJUMP -149675 . 150180) (OPT.INITHASH 150182 . 150559) (OPT.COMPINIT 150561 . 151029)) (151225 151996 ( -OPT.CFRPTQ 151235 . 151994)) (153051 159997 (COMP.AREF 153061 . 154152) (COMP.ASET 154154 . 155247) ( -COMP.BOX 155249 . 155899) (COMP.LOOKFORDECLARE 155901 . 156454) (COMP.DECLARETYPE 156456 . 157060) ( -COMP.FLOATBOX 157062 . 157316) (COMP.FLOATUNBOX 157318 . 158288) (COMP.PREDP 158290 . 158493) ( -COMP.UBFLOAT2 158495 . 159062) (COMP.UNBOX 159064 . 159995)) (160064 218417 (OPT.POSTOPT 160074 . -161970) (OPT.SETUPOPT 161972 . 164298) (OPT.SCANOPT 164300 . 173119) (OPT.XVARSCAN 173121 . 174296) ( -OPT.XVARSCAN1 174298 . 174941) (OPT.JUMPOPT 174943 . 175573) (OPT.JUMPTHRU 175575 . 182498) ( -OPT.LBMERGE 182500 . 183138) (OPT.PRDEL 183140 . 183622) (OPT.UBDEL 183624 . 183881) (OPT.LBDEL 183883 - . 184635) (OPT.LABELNTHPR 184637 . 185627) (OPT.JUMPREV 185629 . 198988) (OPT.COMMONBACK 198990 . -201957) (OPT.DELTAGREF 201959 . 202837) (OPT.FINDEND 202839 . 203199) (OPT.RETOPT 203201 . 204639) ( -OPT.RETFIND 204641 . 205116) (OPT.RETPOP 205118 . 207604) (OPT.RETOPT1 207606 . 208001) (OPT.RETTEST -208003 . 211618) (OPT.RETMERGE 211620 . 215060) (OPT.CODELEV 215062 . 217067) (OPT.CODEFRAME 217069 . -217895) (OPT.DEFREFS 217897 . 218136) (OPT.SETDEFREFS 218138 . 218415)) (218418 239190 (OPT.FRAMEOPT -218428 . 219579) (OPT.FRAMEMERGE 219581 . 222713) (OPT.NONILVAR 222715 . 223859) (OPT.MERGEFRAMEP -223861 . 225328) (OPT.FRAMELOCAL 225330 . 226147) (OPT.CLEANFRAME 226149 . 226666) (OPT.FRAMEDEL -226668 . 234584) (OPT.FRAMEVAR 234586 . 238394) (OPT.DELETEFRAMECHECK 238396 . 238993) (OPT.ONLYMEMB -238995 . 239188)) (239272 248086 (OPT.SKIPPUSH 239282 . 241705) (OPT.DELCODE 241707 . 243151) ( -OPT.PRATTACH 243153 . 243626) (OPT.JUMPCOPYTEST 243628 . 244572) (OPT.EQOP 244574 . 245757) ( -OPT.EQVALUE 245759 . 246866) (OPT.DELCOPYFN 246868 . 248084)) (248087 250651 (OPT.DEADSETQP 248097 . -248600) (OPT.DS1 248602 . 250649)) (254317 259058 (OPT.COMPILERERROR 254327 . 254505) (OPT.OPTCHECK -254507 . 258909) (OPT.CCHECK 258911 . 259056))))) + (FILEMAP (NIL (9282 19184 (BYTEBLOCKCOMPILE2 9292 . 11909) (BYTECOMPILE2 11911 . 12150) ( +COMP.ATTEMPT.COMPILE 12152 . 13296) (COMP.RETFROM.POINT 13298 . 13988) (COMP.TRANSFORM 13990 . 17453) +(COMPERROR 17455 . 17814) (COMPPRINT 17816 . 18040) (COMPERRM 18042 . 19182)) (19185 28832 ( +COMP.TOPLEVEL.COMPILE 19195 . 25301) (COMP.BINDLIST 25303 . 25621) (COMP.CHECK.VAR 25623 . 26127) ( +COMP.BIND.VARS 26129 . 28420) (COMP.UNBIND.VARS 28422 . 28830)) (28833 43012 (COMP.VALN 28843 . 28976) + (COMP.PROGN 28978 . 29706) (COMP.PROGLST 29708 . 30606) (COMP.EXP1 30608 . 30756) (COMP.EXPR 30758 . +35484) (COMP.TRYUSERFN 35486 . 35815) (COMP.USERFN 35817 . 36738) (COMP.CONST 36740 . 37801) ( +COMP.CALL 37803 . 39242) (COMP.VAR 39244 . 39723) (COMP.VAL1 39725 . 39858) (COMP.PROG1 39860 . 40288) + (COMP.EFFECT 40290 . 40869) (COMP.VAL 40871 . 41494) (COMP.MACRO 41496 . 43010)) (43013 45216 ( +COMP.VARTYPE 43023 . 43252) (COMP.LOOKUPVAR 43254 . 44726) (COMP.LOOKUPCONST 44728 . 45214)) (45217 +52728 (COMP.ST 45227 . 45730) (COMP.STFN 45732 . 46126) (COMP.STCONST 46128 . 46297) (COMP.STVAR 46299 + . 46435) (COMP.STPOP 46437 . 46600) (COMP.DELFN 46602 . 46840) (COMP.STRETURN 46842 . 47014) ( +COMP.STTAG 47016 . 47986) (COMP.STJUMP 47988 . 50004) (COMP.STSETQ 50006 . 50274) (COMP.STCOPY 50276 + . 50456) (COMP.DELPUSH 50458 . 50622) (COMP.DELPOP 50624 . 50792) (COMP.STBIND 50794 . 52188) ( +COMP.STUNBIND 52190 . 52726)) (57149 60337 (COMP.ARGTYPE 57159 . 58328) (COMP.CLEANEXPP 58330 . 58646) + (COMP.CLEANFNP 58648 . 59062) (COMP.CLEANFNOP 59064 . 59212) (COMP.GLOBALVARP 59214 . 59392) ( +COMP.LINKCALLP 59394 . 59858) (COMP.ANONP 59860 . 60215) (COMP.NOSIDEEFFECTP 60217 . 60335)) (60338 +63585 (COMP.CPI 60348 . 62156) (COMP.CPI1 62158 . 62887) (COMP.PICOUNT 62889 . 63583)) (63629 63830 ( +COMP.EVQ 63639 . 63828)) (63942 66674 (COMP.BOOL 63952 . 66672)) (66675 67203 (COMP.APPLYFNP 66685 . +67201)) (67245 67827 (COMP.AC 67255 . 67451) (COMP.PUNT 67453 . 67825)) (67881 69507 (COMP.FUNCTION +67891 . 68311) (COMP.LAM1 68313 . 69167) (COMP.GENFN 69169 . 69505)) (69717 79673 (COMP.COND 69727 . +72816) (COMP.IF 72818 . 74291) (COMP.SELECTQ 74293 . 79671)) (79860 80390 (COMP.QUOTE 79870 . 80104) ( +COMP.COMMENT 80106 . 80388)) (80442 83430 (COMP.DECLARE 80452 . 82336) (COMP.DECLARE1 82338 . 83428)) +(86346 87253 (COMP.CARCDR 86356 . 87040) (COMP.STCROP 87042 . 87251)) (87341 87680 (COMP.NOT 87351 . +87678)) (87771 88508 (COMP.SETQ 87781 . 88278) (COMP.SETN 88280 . 88506)) (88509 92484 (COMP.LAMBDA +88519 . 92482)) (92733 104617 (COMP.PROG 92743 . 96513) (COMP.GO 96515 . 97533) (COMP.RETURN 97535 . +99212) (COMP.BLOCK 99214 . 100820) (COMP.RETURN-FROM 100822 . 102972) (COMP.TAGBODY 102974 . 104615)) +(104670 107176 (COMP.LABELS 104680 . 107174)) (110623 120362 (COMP.NUMERIC 110633 . 115447) ( +COMP.NUMBERCALL 115449 . 119039) (COMP.FIX 119041 . 119193) (COMP.STFIX 119195 . 119784) (COMP.DELFIX +119786 . 120360)) (120490 122335 (COMP.EQ 120500 . 122333)) (122397 125905 (COMP.NUMBERTEST 122407 . +125903)) (127408 134940 (COMP.MAP 127418 . 134938)) (137223 141414 (COMP.MLLIST 137233 . 137926) ( +COMP.MLL 137928 . 140703) (COMP.MLLVAR 140705 . 141018) (COMP.MLLFN 141020 . 141412)) (142431 148030 ( +OPT.RESOLVEJUMPS 142441 . 143512) (OPT.JLENPASS 143514 . 146879) (OPT.JFIXPASS 146881 . 147584) ( +OPT.JSIZE 147586 . 148028)) (148076 150935 (OPT.CALLP 148086 . 148564) (OPT.JUMPCHECK 148566 . 148782) + (OPT.DREV 148784 . 148983) (OPT.CHLEV 148985 . 149196) (OPT.CHECKTAG 149198 . 149577) (OPT.NOTJUMP +149579 . 150084) (OPT.INITHASH 150086 . 150463) (OPT.COMPINIT 150465 . 150933)) (151129 151900 ( +OPT.CFRPTQ 151139 . 151898)) (152915 159861 (COMP.AREF 152925 . 154016) (COMP.ASET 154018 . 155111) ( +COMP.BOX 155113 . 155763) (COMP.LOOKFORDECLARE 155765 . 156318) (COMP.DECLARETYPE 156320 . 156924) ( +COMP.FLOATBOX 156926 . 157180) (COMP.FLOATUNBOX 157182 . 158152) (COMP.PREDP 158154 . 158357) ( +COMP.UBFLOAT2 158359 . 158926) (COMP.UNBOX 158928 . 159859)) (159928 218281 (OPT.POSTOPT 159938 . +161834) (OPT.SETUPOPT 161836 . 164162) (OPT.SCANOPT 164164 . 172983) (OPT.XVARSCAN 172985 . 174160) ( +OPT.XVARSCAN1 174162 . 174805) (OPT.JUMPOPT 174807 . 175437) (OPT.JUMPTHRU 175439 . 182362) ( +OPT.LBMERGE 182364 . 183002) (OPT.PRDEL 183004 . 183486) (OPT.UBDEL 183488 . 183745) (OPT.LBDEL 183747 + . 184499) (OPT.LABELNTHPR 184501 . 185491) (OPT.JUMPREV 185493 . 198852) (OPT.COMMONBACK 198854 . +201821) (OPT.DELTAGREF 201823 . 202701) (OPT.FINDEND 202703 . 203063) (OPT.RETOPT 203065 . 204503) ( +OPT.RETFIND 204505 . 204980) (OPT.RETPOP 204982 . 207468) (OPT.RETOPT1 207470 . 207865) (OPT.RETTEST +207867 . 211482) (OPT.RETMERGE 211484 . 214924) (OPT.CODELEV 214926 . 216931) (OPT.CODEFRAME 216933 . +217759) (OPT.DEFREFS 217761 . 218000) (OPT.SETDEFREFS 218002 . 218279)) (218282 239054 (OPT.FRAMEOPT +218292 . 219443) (OPT.FRAMEMERGE 219445 . 222577) (OPT.NONILVAR 222579 . 223723) (OPT.MERGEFRAMEP +223725 . 225192) (OPT.FRAMELOCAL 225194 . 226011) (OPT.CLEANFRAME 226013 . 226530) (OPT.FRAMEDEL +226532 . 234448) (OPT.FRAMEVAR 234450 . 238258) (OPT.DELETEFRAMECHECK 238260 . 238857) (OPT.ONLYMEMB +238859 . 239052)) (239136 247950 (OPT.SKIPPUSH 239146 . 241569) (OPT.DELCODE 241571 . 243015) ( +OPT.PRATTACH 243017 . 243490) (OPT.JUMPCOPYTEST 243492 . 244436) (OPT.EQOP 244438 . 245621) ( +OPT.EQVALUE 245623 . 246730) (OPT.DELCOPYFN 246732 . 247948)) (247951 250515 (OPT.DEADSETQP 247961 . +248464) (OPT.DS1 248466 . 250513)) (254181 258922 (OPT.COMPILERERROR 254191 . 254369) (OPT.OPTCHECK +254371 . 258773) (OPT.CCHECK 258775 . 258920))))) STOP diff --git a/sources/BYTECOMPILER.LCOM b/sources/BYTECOMPILER.LCOM index ab2d6b3c1..7cb52bb9e 100644 Binary files a/sources/BYTECOMPILER.LCOM and b/sources/BYTECOMPILER.LCOM differ diff --git a/sources/CLSTREAMS.LCOM b/sources/CLSTREAMS.LCOM index 9427dd460..5affa03be 100644 Binary files a/sources/CLSTREAMS.LCOM and b/sources/CLSTREAMS.LCOM differ diff --git a/sources/CMLARITH.LCOM b/sources/CMLARITH.LCOM index 03347b7d2..ec11e77bf 100644 --- a/sources/CMLARITH.LCOM +++ b/sources/CMLARITH.LCOM @@ -1,49 +1,311 @@ -(DEFINE-FILE-INFO READTABLE "XCL" PACKAGE "LISP") (IL:FILECREATED "25-Jan-98 09:40:28" ("compiled on " IL:|{DSK}sources>CMLARITH.;1|) "30-Mar-95 20:33:04" "COMPILE-FILEd" IL:|in| "Medley 14-Aug-95 ..." IL:|dated| "14-Aug-95 15:27:48") (IL:FILECREATED " 4-Jan-93 17:38:48" IL:|{DSK}lde>lispcore>sources>CMLARITH.;2| 102283 IL:|previous| IL:|date:| "16-May-90 12:46:36" IL:|{DSK}lde>lispcore>sources>CMLARITH.;1|) (IL:RPAQQ IL:CMLARITHCOMS ((IL:* IL:|;;;| "Common Lisp Arithmetic ") (IL:COMS (IL:* IL:|;;| "Error utilities") (IL:FUNCTIONS %NOT-NUMBER-ERROR %NOT-NONCOMPLEX-NUMBER-ERROR %NOT-INTEGER-ERROR %NOT-RATIONAL-ERROR %NOT-FLOAT-ERROR)) (IL:COMS (IL:* IL:|;;;| "Section 2.1.2 Ratios. ") (IL:COMS ( IL:STRUCTURES RATIO) (IL:* IL:|;;| "The following makes NUMBERP true on ratios") (IL:DECLARE\: IL:DONTEVAL@LOAD IL:DOCOPY (IL:P (IL:\\SETTYPEMASK (IL:\\TYPENUMBERFROMNAME (QUOTE RATIO)) (IL:LOGOR IL:\\TT.NUMBERP IL:\\TT.ATOM))))) (IL:FUNCTIONS DENOMINATOR NUMERATOR RATIONALP %RATIO-PRINT %BUILD-RATIO RATIONAL RATIONALIZE) (IL:FUNCTIONS %RATIO-PLUS %RATIO-TIMES)) (IL:COMS (IL:* IL:|;;;| "Section 2.1.4 Complex Numbers.") (IL:COMS (IL:STRUCTURES COMPLEX) (IL:* IL:|;;| "So we don't inherit the deftype from defstruct") (IL:TYPES COMPLEX) (IL:* IL:|;;| "Make Complex NUMBERP") (IL:DECLARE\: IL:DONTEVAL@LOAD IL:DOCOPY (IL:P (IL:\\SETTYPEMASK ( IL:\\TYPENUMBERFROMNAME (QUOTE COMPLEX)) (IL:LOGOR IL:\\TT.NUMBERP IL:\\TT.ATOM))))) (IL:FUNCTIONS COMPLEX REALPART IMAGPART CONJUGATE PHASE %COMPLEX-PRINT %COMPLEX-+ %COMPLEX-- %COMPLEX-* %COMPLEX-/ %COMPLEX-ABS)) (IL:COMS (IL:* IL:|;;;| "Datatype predicates") (IL:* IL:|;;| "cl:integerp is defined in cmlpred (has an optimizer)") (IL:* IL:|;;| "cl:floatp is defined in cmltypes (has an optimizer). il:floatp is defined on llbasic") (IL:* IL:|;;| "cl:complexp is a defstruct predicate (compiles in line)") (IL:* IL:|;;| "cl:numberp is defined in cmltypes (has an optimizer). il:numberp is defined on llbasic")) (IL:COMS ( IL:* IL:|;;;| "Section 12.2 Predicates on Numbers (generic).") (IL:* IL:|;;| "cl:zerop is not shared with il:zerop, although they are equivalent. There is no il;plusp ") (IL:COMS (IL:FUNCTIONS ZEROP PLUSP) (XCL:OPTIMIZERS ZEROP PLUSP)) (IL:* IL:|;;| "cl:minusp is shared with il:minusp, but must be redefined to work with ratios. Old version resides in llarith" ) (IL:COMS (IL:FUNCTIONS MINUSP) (XCL:OPTIMIZERS MINUSP)) (IL:* IL:|;;| "Both cl:evenp and cl:oddp are shared with il:. The functions are extended by allowing a second optional modulus argument. Another version of il:oddp exists on llarith, but the definition of il:evenp has disappeared" ) (IL:COMS (IL:FUNCTIONS EVENP ODDP) (XCL:OPTIMIZERS EVENP ODDP))) (IL:COMS (IL:* IL:|;;;| "Section 12.3 Comparisons on Numbers. (generic)") (IL:COMS (IL:FUNCTIONS %= %/= %> %< %>= %<=) (IL:PROP IL:DOPVAL %= %> %<) (IL:* IL:\; "For the byte compiler") (IL:PROP IL:DMACRO %> %< %>= %<=) ( IL:DECLARE\: IL:DONTEVAL@LOAD IL:DOCOPY (IL:P (IL:* IL:|;;| "Backward compatibility") (IL:* IL:\; " il:%= is listed as the punt function for the = opcode") (IL:MOVD (QUOTE %=) (QUOTE IL:%=)) (IL:* IL:\; "Greaterp is the UFN for the greaterp opcode. Effectively redefines the opcode") (IL:MOVD (QUOTE %>) (QUOTE IL:GREATERP)) (IL:* IL:\; "Interlisp Greaterp and Lessp are defined in llarith") (IL:MOVD ( QUOTE %<) (QUOTE IL:LESSP))))) (IL:* IL:|;;| "=, <, >, <=, and >= are shared with il:, but cl:/= is NOT shared (?!)") (IL:COMS (IL:DECLARE\: IL:DONTCOPY IL:DOEVAL@COMPILE (IL:FUNCTIONS %COMPARISON-MACRO)) (IL:FNS = /= < > <= >=) (IL:FUNCTIONS %COMPARISON-OPTIMIZER) (XCL:OPTIMIZERS = /= < > <= >=)) (IL:* IL:|;;| "Note: the related predicates EQL, EQUAL, and EQUALP should be consulted if any of the above change. EQL is on LLNEW (?), EQUAL and EQUALP on CMLTYPES." ) (IL:* IL:|;;| "cl:min and cl:max are shared with il: (defined in llarith). They are written in terms of GREATERP and hence work on ratios. Note (min) returns #.max.integer , which is an extension on the CLtl spec. We only optimize the case of two args" ) (XCL:OPTIMIZERS MIN MAX)) (IL:COMS (IL:* IL:|;;;| "Section 12.4 Arithmetic Operations (generic). ") (IL:COMS (IL:FUNCTIONS %+ %- %* %/) (IL:* IL:\; "NOTE: %/ cannot compile out to the existinq quotient opcode because it produces ratios rather than truncating" ) (IL:PROP IL:DOPVAL %+ %- %*) (IL:* IL:\; "For the byte compiler") (IL:PROP IL:DMACRO %+ %- %*) ( IL:DECLARE\: IL:DONTEVAL@LOAD IL:DOCOPY (IL:P (IL:* IL:|;;| "Backward compatibility") (IL:MOVD (QUOTE %/) (QUOTE IL:%/)) (IL:* IL:|;;| "Redefine UFNs for generic plus, difference, and times. Old UFN defined in llarith.") (IL:MOVD (QUOTE %+) (QUOTE IL:\\SLOWPLUS2)) (IL:MOVD (QUOTE %-) (QUOTE IL:\\SLOWDIFFERENCE)) (IL:MOVD (QUOTE %*) ( QUOTE IL:\\SLOWTIMES2))))) (IL:COMS (IL:FNS + - * /) (IL:FUNCTIONS 1+ 1- %RECIPROCOL) (XCL:OPTIMIZERS + - * / 1+ 1-) (IL:* IL:\; "For the byte compiler") (IL:PROP IL:DMACRO + *) (IL:* IL:|;;| "Redefine Interlisp generic arithmetic to work with ratios") (IL:DECLARE\: IL:DONTEVAL@LOAD IL:DOCOPY (IL:P (IL:MOVD (QUOTE +) (QUOTE IL:PLUS)) (IL:* IL:|;;| "Don't need to redefine difference since it is defined in terms of the difference opcode (redefined above)" ) (IL:MOVD (QUOTE *) (QUOTE IL:TIMES)) (IL:* IL:|;;| "So Interlisp quotient will do something reasonable with ratios") (IL:* (IL:MOVD (QUOTE IL:NEW-QUOTIENT ) (QUOTE IL:QUOTIENT))) (IL:* IL:|;;| "because QUOTIENT is already defined in LLARITH to do something useful with ratios. AR 8062.")))) (IL:* IL:|;;| "INCF and DECF implemented by CMLSETF.") (IL:FUNCTIONS %GCD %LCM) (IL:FNS GCD LCM)) (IL:COMS (IL:* IL:|;;| "Optimizers for Interlisp functions, so that they compile open with the PavCompiler.") ( IL:* IL:|;;| "optimizer of IL:minus") (XCL:OPTIMIZERS IL:MINUS) (XCL:OPTIMIZERS IL:PLUS IL:IPLUS IL:FPLUS IL:TIMES IL:ITIMES IL:FTIMES IL:RSH) (IL:PROP IL:DOPVAL IL:PLUS2 IL:IPLUS2 IL:FPLUS2 IL:TIMES2 IL:ITIMES2 IL:FTIMES2)) (IL:COMS (IL:* IL:|;;;| "Section 12.5 Irrational and Transcendental functions. Most of these will be found on cmlfloat.") ( IL:FUNCTIONS ISQRT) (IL:* IL:|;;| "Abs is shared with il: abs ia also defined in llarith.") ( IL:FUNCTIONS ABS %ABS) (IL:FUNCTIONS SIGNUM %SIGNUM)) (IL:COMS (IL:* IL:|;;;| "Section 12.6 Type Conversions and Component Extractions on Numbers.") (IL:* IL:|;;| "Float implemented in cmlfloat ") (IL:DECLARE\: IL:DONTCOPY IL:DOEVAL@COMPILE (IL:FILES IL:UNBOXEDOPS )) (IL:* IL:\; "These should be exported from xcl") (IL:COMS (IL:FUNCTIONS XCL::STRUNCATE XCL::SFLOOR XCL::SCEILING XCL::SROUND) (XCL:OPTIMIZERS XCL::STRUNCATE XCL::SROUND)) (IL:* IL:\; "Round is shared with il: (?!)") (IL:COMS (IL:DECLARE\: IL:DONTCOPY IL:DOEVAL@COMPILE (IL:FUNCTIONS %INTEGER-COERCE-MACRO)) (IL:FUNCTIONS TRUNCATE FLOOR CEILING ROUND) (IL:FUNCTIONS %INTEGER-COERCE-OPTIMIZER) (XCL:OPTIMIZERS TRUNCATE FLOOR CEILING ROUND)) (IL:COMS (IL:FUNCTIONS FTRUNCATE FFLOOR FCEILING FROUND) (XCL:OPTIMIZERS FTRUNCATE FFLOOR FCEILING FROUND)) (IL:COMS ( IL:FUNCTIONS MOD REM)) (IL:* IL:|;;| "Should IL:remainder be equivalent to cl:rem?. Thereis no IL:mod in the IRM, although it has a macro which makes it equivalent to imod." ) (IL:* IL:|;;| "See cmlfloat for ffloor and friends, decode-float and friends")) (IL:COMS (IL:* IL:|;;;| "Section 12.7 Logical Operations on Numbers.") (IL:* IL:|;;| "LOGXOR and LOGAND are shared with IL. (definitions in llarith)") (IL:COMS (IL:FUNCTIONS %LOGICAL-OPTIMIZER) (XCL:OPTIMIZERS LOGXOR LOGAND)) (IL:COMS (IL:FUNCTIONS %LOGIOR %LOGEQV) (IL:PROP IL:DOPVAL %LOGIOR) (IL:* IL:\; "for the byte compiler") (IL:PROP IL:DMACRO %LOGIOR)) (IL:COMS (IL:FNS LOGIOR LOGEQV) (XCL:OPTIMIZERS LOGIOR LOGEQV)) (IL:COMS (IL:FUNCTIONS LOGNAND LOGNOR LOGANDC1 LOGANDC2 LOGORC1 LOGORC2) (XCL:OPTIMIZERS LOGNAND LOGNOR LOGANDC1 LOGANDC2 LOGORC1 LOGORC2)) (IL:COMS ( IL:VARIABLES BOOLE-CLR BOOLE-SET BOOLE-1 BOOLE-2 BOOLE-C1 BOOLE-C2 BOOLE-AND BOOLE-IOR BOOLE-XOR BOOLE-EQV BOOLE-NAND BOOLE-NOR BOOLE-ANDC1 BOOLE-ANDC2 BOOLE-ORC1 BOOLE-ORC2) (IL:FUNCTIONS BOOLE)) ( IL:* IL:|;;| "Lognot is shared with IL.(in addarith) ") (IL:COMS (IL:FUNCTIONS LOGTEST LOGBITP) ( XCL:OPTIMIZERS LOGTEST)) (IL:COMS (IL:FUNCTIONS ASH) (IL:PROP IL:DOPVAL ASH) (IL:* IL:\; "For the byte compiler") (IL:PROP IL:DMACRO ASH)) (IL:COMS (IL:FUNCTIONS LOGCOUNT %LOGCOUNT) ( IL:DECLARE\: IL:DONTCOPY IL:DOEVAL@COMPILE (IL:FILES (IL:LOADCOMP) IL:LLBIGNUM)) (IL:* IL:\; "Should be in llbignum") (IL:FUNCTIONS %BIGNUM-LOGCOUNT)) (IL:FUNCTIONS INTEGER-LENGTH) (IL:* IL:|;;| "OPTIMIZERS FOR IL:LLSH AND IL:LRSH") (IL:COMS (IL:FUNCTIONS %LLSH8 %LLSH1 %LRSH8 %LRSH1) (IL:PROP IL:DOPVAL %LLSH8 %LLSH1 %LRSH8 %LRSH1) (XCL:OPTIMIZERS IL:LLSH IL:LRSH))) (IL:COMS (IL:* IL:|;;;| "Section 12.8 Byte Manipulations Functions.") (IL:COMS (IL:FUNCTIONS BYTE BYTE-SIZE BYTE-POSITION) (IL:* IL:|;;| "Byte doesn't need an optimizer since the side-effects data-base will do constant folding, but the byte-compiler can profit from an optimizer" ) (IL:FUNCTIONS OPTIMIZE-BYTE) (IL:PROP IL:DMACRO BYTE)) (IL:COMS (IL:DECLARE\: IL:DONTCOPY IL:DOEVAL@COMPILE (IL:FUNCTIONS %MAKE-BYTE-MASK-1 %MAKE-BYTE-MASK-0)) (IL:FUNCTIONS LDB DPB MASK-FIELD DEPOSIT-FIELD) (IL:FUNCTIONS %CONSTANT-BYTESPEC-P) (XCL:OPTIMIZERS LDB DPB MASK-FIELD DEPOSIT-FIELD)) (IL:COMS (IL:FUNCTIONS LDB-TEST) (XCL:OPTIMIZERS LDB-TEST))) (IL:DECLARE\: IL:DONTCOPY IL:DOEVAL@COMPILE (IL:LOCALVARS . T)) (IL:PROP (IL:MAKEFILE-ENVIRONMENT IL:FILETYPE) IL:CMLARITH) ( IL:DECLARE\: IL:DONTEVAL@LOAD IL:DOEVAL@COMPILE IL:DONTCOPY IL:COMPILERVARS (IL:ADDVARS (IL:NLAMA) ( IL:NLAML) (IL:LAMA LOGEQV LOGIOR LCM GCD / * - + >= <= > < /= =))))) %NOT-NUMBER-ERROR :D8 (IL:L (0 OBJECT)) #gggg@g@ (32 ERROR) (25 :VALUE 19 :NAME 14 NUMBER 9 :EXPECTED-TYPE 4 XCL:TYPE-MISMATCH) () %NOT-NONCOMPLEX-NUMBER-ERROR :D8 (IL:L (0 OBJECT)) 3@3›o@ -gggg@g@ (48 ERROR 14 ERROR) (41 :VALUE 35 :NAME 30 NUMBER 25 :EXPECTED-TYPE 20 XCL:TYPE-MISMATCH) ( 8 "Arg a complex number~%~s") %NOT-INTEGER-ERROR :D8 (IL:L (0 OBJECT)) #gggg@g@ (32 ERROR) (25 :VALUE 19 :NAME 14 INTEGER 9 :EXPECTED-TYPE 4 XCL:TYPE-MISMATCH) () %NOT-RATIONAL-ERROR :D8 (IL:L (0 OBJECT)) #gggg@g@ (32 ERROR) (25 :NAME 19 :VALUE 14 RATIONAL 9 :EXPECTED-TYPE 4 XCL:TYPE-MISMATCH) () %NOT-FLOAT-ERROR :D8 (IL:L (0 OBJECT)) #gggg@g@ (32 ERROR) (25 :VALUE 19 :NAME 14 FLOAT 9 :EXPECTED-TYPE 4 XCL:TYPE-MISMATCH) () (SET-PARSED-STRUCTURE (QUOTE RATIO) T (QUOTE (PS RATIO NIL (NUMERATOR DENOMINATOR) DATATYPE NIL NIL "RATIO-" ((%MAKE-RATIO (NUMERATOR DENOMINATOR))) %RATIO-P %RATIO-PRINT NIL NIL 0 NIL ((NUMERATOR :READ-ONLY T NIL (RATIO 0 IL:POINTER) RATIO-NUMERATOR) (DENOMINATOR :READ-ONLY T NIL (RATIO 2 IL:POINTER ) RATIO-DENOMINATOR)) NIL NIL (IL:POINTER IL:POINTER) NIL (:ACCESSOR :PREDICATE) NIL NIL NIL))) (SI::%STRUCTURE-DECLARE-DATATYPE (QUOTE RATIO) (QUOTE (IL:POINTER IL:POINTER)) (QUOTE ((RATIO 0 IL:POINTER) (RATIO 2 IL:POINTER))) 4 (QUOTE STRUCTURE-OBJECT)) (IL:PUTPROP (QUOTE RATIO) (QUOTE :TYPE-EXPANDER) (QUOTE TYPE-EXPAND-STRUCTURE)) %RATIO-P :D8 (IL:L (0 OBJECT)) @ÃNIL (5 RATIO) () (ESTABLISH-PREDICATE (QUOTE RATIO)) RATIO-NUMERATOR :D8 (IL:L (0 RATIO)) -@ÉNIL (5 RATIO) () RATIO-DENOMINATOR :D8 (IL:L (0 RATIO)) -@ÉNIL (5 RATIO) () (ESTABLISH-SETFS-AND-OPTIMIZERS (QUOTE RATIO)) %MAKE-RATIO :D8 (IL:L (1 DENOMINATOR 0 NUMERATOR)) lH@HAHNIL NIL () (IL:\\SETTYPEMASK (IL:\\TYPENUMBERFROMNAME (QUOTE RATIO)) (IL:LOGOR IL:\\TT.NUMBERP IL:\\TT.ATOM)) DENOMINATOR :D8 (IL:L (0 RATIONAL)) @dÙ¿@É3 ‘k@ (28 %NOT-RATIONAL-ERROR) (14 RATIO 6 RATIO) () NUMERATOR :D8 (IL:L (0 RATIONAL)) @dÙ¿@É3 ‘@@ (28 %NOT-RATIONAL-ERROR) (14 RATIO 6 RATIO) () RATIONALP :D8 (IL:L (0 NUMBER)) @d3 ‘iÃNIL (11 RATIO) () |definline-RATIONALP| :D8 (IL:L (2 IL:$$CTX 1 IL:$$ENV 0 IL:$$WHOLE)) @oHNIL NIL ( 9 (LAMBDA (NUMBER) (BLOCK RATIONALP (OR (INTEGERP NUMBER) (%RATIO-P NUMBER))))) (IL:PUTPROP (QUOTE RATIONALP) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE |definline-RATIONALP|) ( GET (QUOTE RATIONALP) (QUOTE COMPILER:OPTIMIZER-LIST)))) %RATIO-PRINT :D8 (IL:L (1 STREAM 0 NUMBER) IL:P 8 *PRINT-RADIX* IL:P 7 IL:\\THISFILELINELENGTH IL:P 6 *PRINT-RADIX* IL:P 5 *PRINT-BASE* IL:F 9 *PRINT-BASE* IL:F 10 *READTABLE* IL:F 11 IL:\\THISFILELINELENGTH IL:F 12 *PRINT-RADIX*)  @É@É2WÊjð²oA +(DEFINE-FILE-INFO READTABLE "XCL" PACKAGE "LISP") +(IL:FILECREATED "13-Jun-2021 21:16:13" ("compiled on " +IL:|{DSK}kaplan>Local>medley3.5>git-medley>sources>CMLARITH.;1|) "13-Jun-2021 14:44:27" +"COMPILE-FILEd" IL:|in| "FULL 13-Jun-2021 ..." IL:|dated| "13-Jun-2021 14:44:40") +(IL:FILECREATED " 4-Jan-93 17:38:48" IL:|{DSK}lde>lispcore>sources>CMLARITH.;2| 102283 +IL:|previous| IL:|date:| "16-May-90 12:46:36" IL:|{DSK}lde>lispcore>sources>CMLARITH.;1|) +(IL:RPAQQ IL:CMLARITHCOMS ((IL:* IL:|;;;| "Common Lisp Arithmetic ") (IL:COMS (IL:* IL:|;;| +"Error utilities") (IL:FUNCTIONS %NOT-NUMBER-ERROR %NOT-NONCOMPLEX-NUMBER-ERROR %NOT-INTEGER-ERROR +%NOT-RATIONAL-ERROR %NOT-FLOAT-ERROR)) (IL:COMS (IL:* IL:|;;;| "Section 2.1.2 Ratios. ") (IL:COMS ( +IL:STRUCTURES RATIO) (IL:* IL:|;;| "The following makes NUMBERP true on ratios") (IL:DECLARE\: +IL:DONTEVAL@LOAD IL:DOCOPY (IL:P (IL:\\SETTYPEMASK (IL:\\TYPENUMBERFROMNAME (QUOTE RATIO)) (IL:LOGOR +IL:\\TT.NUMBERP IL:\\TT.ATOM))))) (IL:FUNCTIONS DENOMINATOR NUMERATOR RATIONALP %RATIO-PRINT +%BUILD-RATIO RATIONAL RATIONALIZE) (IL:FUNCTIONS %RATIO-PLUS %RATIO-TIMES)) (IL:COMS (IL:* IL:|;;;| +"Section 2.1.4 Complex Numbers.") (IL:COMS (IL:STRUCTURES COMPLEX) (IL:* IL:|;;| +"So we don't inherit the deftype from defstruct") (IL:TYPES COMPLEX) (IL:* IL:|;;| +"Make Complex NUMBERP") (IL:DECLARE\: IL:DONTEVAL@LOAD IL:DOCOPY (IL:P (IL:\\SETTYPEMASK ( +IL:\\TYPENUMBERFROMNAME (QUOTE COMPLEX)) (IL:LOGOR IL:\\TT.NUMBERP IL:\\TT.ATOM))))) (IL:FUNCTIONS +COMPLEX REALPART IMAGPART CONJUGATE PHASE %COMPLEX-PRINT %COMPLEX-+ %COMPLEX-- %COMPLEX-* %COMPLEX-/ +%COMPLEX-ABS)) (IL:COMS (IL:* IL:|;;;| "Datatype predicates") (IL:* IL:|;;| +"cl:integerp is defined in cmlpred (has an optimizer)") (IL:* IL:|;;| +"cl:floatp is defined in cmltypes (has an optimizer). il:floatp is defined on llbasic") (IL:* IL:|;;| +"cl:complexp is a defstruct predicate (compiles in line)") (IL:* IL:|;;| +"cl:numberp is defined in cmltypes (has an optimizer). il:numberp is defined on llbasic")) (IL:COMS ( +IL:* IL:|;;;| "Section 12.2 Predicates on Numbers (generic).") (IL:* IL:|;;| +"cl:zerop is not shared with il:zerop, although they are equivalent. There is no il;plusp ") (IL:COMS + (IL:FUNCTIONS ZEROP PLUSP) (XCL:OPTIMIZERS ZEROP PLUSP)) (IL:* IL:|;;| +"cl:minusp is shared with il:minusp, but must be redefined to work with ratios. Old version resides in llarith" +) (IL:COMS (IL:FUNCTIONS MINUSP) (XCL:OPTIMIZERS MINUSP)) (IL:* IL:|;;| +"Both cl:evenp and cl:oddp are shared with il:. The functions are extended by allowing a second optional modulus argument. Another version of il:oddp exists on llarith, but the definition of il:evenp has disappeared" +) (IL:COMS (IL:FUNCTIONS EVENP ODDP) (XCL:OPTIMIZERS EVENP ODDP))) (IL:COMS (IL:* IL:|;;;| +"Section 12.3 Comparisons on Numbers. (generic)") (IL:COMS (IL:FUNCTIONS %= %/= %> %< %>= %<=) (IL:PROP + IL:DOPVAL %= %> %<) (IL:* IL:\; "For the byte compiler") (IL:PROP IL:DMACRO %> %< %>= %<=) ( +IL:DECLARE\: IL:DONTEVAL@LOAD IL:DOCOPY (IL:P (IL:* IL:|;;| "Backward compatibility") (IL:* IL:\; +" il:%= is listed as the punt function for the = opcode") (IL:MOVD (QUOTE %=) (QUOTE IL:%=)) (IL:* IL:\; + "Greaterp is the UFN for the greaterp opcode. Effectively redefines the opcode") (IL:MOVD (QUOTE %>) +(QUOTE IL:GREATERP)) (IL:* IL:\; "Interlisp Greaterp and Lessp are defined in llarith") (IL:MOVD ( +QUOTE %<) (QUOTE IL:LESSP))))) (IL:* IL:|;;| +"=, <, >, <=, and >= are shared with il:, but cl:/= is NOT shared (?!)") (IL:COMS (IL:DECLARE\: +IL:DONTCOPY IL:DOEVAL@COMPILE (IL:FUNCTIONS %COMPARISON-MACRO)) (IL:FNS = /= < > <= >=) (IL:FUNCTIONS +%COMPARISON-OPTIMIZER) (XCL:OPTIMIZERS = /= < > <= >=)) (IL:* IL:|;;| +"Note: the related predicates EQL, EQUAL, and EQUALP should be consulted if any of the above change. EQL is on LLNEW (?), EQUAL and EQUALP on CMLTYPES." +) (IL:* IL:|;;| +"cl:min and cl:max are shared with il: (defined in llarith). They are written in terms of GREATERP and hence work on ratios. Note (min) returns #.max.integer , which is an extension on the CLtl spec. We only optimize the case of two args" +) (XCL:OPTIMIZERS MIN MAX)) (IL:COMS (IL:* IL:|;;;| "Section 12.4 Arithmetic Operations (generic). ") +(IL:COMS (IL:FUNCTIONS %+ %- %* %/) (IL:* IL:\; +"NOTE: %/ cannot compile out to the existinq quotient opcode because it produces ratios rather than truncating" +) (IL:PROP IL:DOPVAL %+ %- %*) (IL:* IL:\; "For the byte compiler") (IL:PROP IL:DMACRO %+ %- %*) ( +IL:DECLARE\: IL:DONTEVAL@LOAD IL:DOCOPY (IL:P (IL:* IL:|;;| "Backward compatibility") (IL:MOVD (QUOTE +%/) (QUOTE IL:%/)) (IL:* IL:|;;| +"Redefine UFNs for generic plus, difference, and times. Old UFN defined in llarith.") (IL:MOVD (QUOTE +%+) (QUOTE IL:\\SLOWPLUS2)) (IL:MOVD (QUOTE %-) (QUOTE IL:\\SLOWDIFFERENCE)) (IL:MOVD (QUOTE %*) ( +QUOTE IL:\\SLOWTIMES2))))) (IL:COMS (IL:FNS + - * /) (IL:FUNCTIONS 1+ 1- %RECIPROCOL) (XCL:OPTIMIZERS ++ - * / 1+ 1-) (IL:* IL:\; "For the byte compiler") (IL:PROP IL:DMACRO + *) (IL:* IL:|;;| +"Redefine Interlisp generic arithmetic to work with ratios") (IL:DECLARE\: IL:DONTEVAL@LOAD IL:DOCOPY +(IL:P (IL:MOVD (QUOTE +) (QUOTE IL:PLUS)) (IL:* IL:|;;| +"Don't need to redefine difference since it is defined in terms of the difference opcode (redefined above)" +) (IL:MOVD (QUOTE *) (QUOTE IL:TIMES)) (IL:* IL:|;;| +"So Interlisp quotient will do something reasonable with ratios") (IL:* (IL:MOVD (QUOTE IL:NEW-QUOTIENT +) (QUOTE IL:QUOTIENT))) (IL:* IL:|;;| +"because QUOTIENT is already defined in LLARITH to do something useful with ratios. AR 8062.")))) (IL:* + IL:|;;| "INCF and DECF implemented by CMLSETF.") (IL:FUNCTIONS %GCD %LCM) (IL:FNS GCD LCM)) (IL:COMS +(IL:* IL:|;;| "Optimizers for Interlisp functions, so that they compile open with the PavCompiler.") ( +IL:* IL:|;;| "optimizer of IL:minus") (XCL:OPTIMIZERS IL:MINUS) (XCL:OPTIMIZERS IL:PLUS IL:IPLUS +IL:FPLUS IL:TIMES IL:ITIMES IL:FTIMES IL:RSH) (IL:PROP IL:DOPVAL IL:PLUS2 IL:IPLUS2 IL:FPLUS2 IL:TIMES2 + IL:ITIMES2 IL:FTIMES2)) (IL:COMS (IL:* IL:|;;;| +"Section 12.5 Irrational and Transcendental functions. Most of these will be found on cmlfloat.") ( +IL:FUNCTIONS ISQRT) (IL:* IL:|;;| "Abs is shared with il: abs ia also defined in llarith.") ( +IL:FUNCTIONS ABS %ABS) (IL:FUNCTIONS SIGNUM %SIGNUM)) (IL:COMS (IL:* IL:|;;;| +"Section 12.6 Type Conversions and Component Extractions on Numbers.") (IL:* IL:|;;| +"Float implemented in cmlfloat ") (IL:DECLARE\: IL:DONTCOPY IL:DOEVAL@COMPILE (IL:FILES IL:UNBOXEDOPS +)) (IL:* IL:\; "These should be exported from xcl") (IL:COMS (IL:FUNCTIONS XCL::STRUNCATE XCL::SFLOOR +XCL::SCEILING XCL::SROUND) (XCL:OPTIMIZERS XCL::STRUNCATE XCL::SROUND)) (IL:* IL:\; +"Round is shared with il: (?!)") (IL:COMS (IL:DECLARE\: IL:DONTCOPY IL:DOEVAL@COMPILE (IL:FUNCTIONS +%INTEGER-COERCE-MACRO)) (IL:FUNCTIONS TRUNCATE FLOOR CEILING ROUND) (IL:FUNCTIONS +%INTEGER-COERCE-OPTIMIZER) (XCL:OPTIMIZERS TRUNCATE FLOOR CEILING ROUND)) (IL:COMS (IL:FUNCTIONS +FTRUNCATE FFLOOR FCEILING FROUND) (XCL:OPTIMIZERS FTRUNCATE FFLOOR FCEILING FROUND)) (IL:COMS ( +IL:FUNCTIONS MOD REM)) (IL:* IL:|;;| +"Should IL:remainder be equivalent to cl:rem?. Thereis no IL:mod in the IRM, although it has a macro which makes it equivalent to imod." +) (IL:* IL:|;;| "See cmlfloat for ffloor and friends, decode-float and friends")) (IL:COMS (IL:* +IL:|;;;| "Section 12.7 Logical Operations on Numbers.") (IL:* IL:|;;| +"LOGXOR and LOGAND are shared with IL. (definitions in llarith)") (IL:COMS (IL:FUNCTIONS +%LOGICAL-OPTIMIZER) (XCL:OPTIMIZERS LOGXOR LOGAND)) (IL:COMS (IL:FUNCTIONS %LOGIOR %LOGEQV) (IL:PROP +IL:DOPVAL %LOGIOR) (IL:* IL:\; "for the byte compiler") (IL:PROP IL:DMACRO %LOGIOR)) (IL:COMS (IL:FNS +LOGIOR LOGEQV) (XCL:OPTIMIZERS LOGIOR LOGEQV)) (IL:COMS (IL:FUNCTIONS LOGNAND LOGNOR LOGANDC1 LOGANDC2 + LOGORC1 LOGORC2) (XCL:OPTIMIZERS LOGNAND LOGNOR LOGANDC1 LOGANDC2 LOGORC1 LOGORC2)) (IL:COMS ( +IL:VARIABLES BOOLE-CLR BOOLE-SET BOOLE-1 BOOLE-2 BOOLE-C1 BOOLE-C2 BOOLE-AND BOOLE-IOR BOOLE-XOR +BOOLE-EQV BOOLE-NAND BOOLE-NOR BOOLE-ANDC1 BOOLE-ANDC2 BOOLE-ORC1 BOOLE-ORC2) (IL:FUNCTIONS BOOLE)) ( +IL:* IL:|;;| "Lognot is shared with IL.(in addarith) ") (IL:COMS (IL:FUNCTIONS LOGTEST LOGBITP) ( +XCL:OPTIMIZERS LOGTEST)) (IL:COMS (IL:FUNCTIONS ASH) (IL:PROP IL:DOPVAL ASH) (IL:* IL:\; +"For the byte compiler") (IL:PROP IL:DMACRO ASH)) (IL:COMS (IL:FUNCTIONS LOGCOUNT %LOGCOUNT) ( +IL:DECLARE\: IL:DONTCOPY IL:DOEVAL@COMPILE (IL:FILES (IL:LOADCOMP) IL:LLBIGNUM)) (IL:* IL:\; +"Should be in llbignum") (IL:FUNCTIONS %BIGNUM-LOGCOUNT)) (IL:FUNCTIONS INTEGER-LENGTH) (IL:* IL:|;;| +"OPTIMIZERS FOR IL:LLSH AND IL:LRSH") (IL:COMS (IL:FUNCTIONS %LLSH8 %LLSH1 %LRSH8 %LRSH1) (IL:PROP +IL:DOPVAL %LLSH8 %LLSH1 %LRSH8 %LRSH1) (XCL:OPTIMIZERS IL:LLSH IL:LRSH))) (IL:COMS (IL:* IL:|;;;| +"Section 12.8 Byte Manipulations Functions.") (IL:COMS (IL:FUNCTIONS BYTE BYTE-SIZE BYTE-POSITION) (IL:* + IL:|;;| +"Byte doesn't need an optimizer since the side-effects data-base will do constant folding, but the byte-compiler can profit from an optimizer" +) (IL:FUNCTIONS OPTIMIZE-BYTE) (IL:PROP IL:DMACRO BYTE)) (IL:COMS (IL:DECLARE\: IL:DONTCOPY +IL:DOEVAL@COMPILE (IL:FUNCTIONS %MAKE-BYTE-MASK-1 %MAKE-BYTE-MASK-0)) (IL:FUNCTIONS LDB DPB MASK-FIELD + DEPOSIT-FIELD) (IL:FUNCTIONS %CONSTANT-BYTESPEC-P) (XCL:OPTIMIZERS LDB DPB MASK-FIELD DEPOSIT-FIELD)) + (IL:COMS (IL:FUNCTIONS LDB-TEST) (XCL:OPTIMIZERS LDB-TEST))) (IL:DECLARE\: IL:DONTCOPY +IL:DOEVAL@COMPILE (IL:LOCALVARS . T)) (IL:PROP (IL:MAKEFILE-ENVIRONMENT IL:FILETYPE) IL:CMLARITH) ( +IL:DECLARE\: IL:DONTEVAL@LOAD IL:DOEVAL@COMPILE IL:DONTCOPY IL:COMPILERVARS (IL:ADDVARS (IL:NLAMA) ( +IL:NLAML) (IL:LAMA LOGEQV LOGIOR LCM GCD / * - + >= <= > < /= =))))) +%NOT-NUMBER-ERROR :D8 +(IL:L (0 OBJECT)) #gggg@g@ (32 ERROR) +(25 :VALUE 19 :NAME 14 NUMBER 9 :EXPECTED-TYPE 4 XCL:TYPE-MISMATCH) +() +%NOT-NONCOMPLEX-NUMBER-ERROR :D8 +(IL:L (0 OBJECT)) 3@3›o@ +gggg@g@ (48 ERROR 14 ERROR) +(41 :VALUE 35 :NAME 30 NUMBER 25 :EXPECTED-TYPE 20 XCL:TYPE-MISMATCH) +( 8 "Arg a complex number~%~s") +%NOT-INTEGER-ERROR :D8 +(IL:L (0 OBJECT)) #gggg@g@ (32 ERROR) +(25 :VALUE 19 :NAME 14 INTEGER 9 :EXPECTED-TYPE 4 XCL:TYPE-MISMATCH) +() +%NOT-RATIONAL-ERROR :D8 +(IL:L (0 OBJECT)) #gggg@g@ (32 ERROR) +(25 :NAME 19 :VALUE 14 RATIONAL 9 :EXPECTED-TYPE 4 XCL:TYPE-MISMATCH) +() +%NOT-FLOAT-ERROR :D8 +(IL:L (0 OBJECT)) #gggg@g@ (32 ERROR) +(25 :VALUE 19 :NAME 14 FLOAT 9 :EXPECTED-TYPE 4 XCL:TYPE-MISMATCH) +() +(SET-PARSED-STRUCTURE (QUOTE RATIO) T (QUOTE (PS RATIO NIL (NUMERATOR DENOMINATOR) DATATYPE NIL NIL +"RATIO-" ((%MAKE-RATIO (NUMERATOR DENOMINATOR))) %RATIO-P %RATIO-PRINT NIL NIL 0 NIL ((NUMERATOR +:READ-ONLY T NIL (RATIO 0 IL:POINTER) RATIO-NUMERATOR) (DENOMINATOR :READ-ONLY T NIL (RATIO 2 IL:POINTER +) RATIO-DENOMINATOR)) NIL NIL (IL:POINTER IL:POINTER) NIL (:ACCESSOR :PREDICATE) NIL NIL NIL))) +(SI::%STRUCTURE-DECLARE-DATATYPE (QUOTE RATIO) (QUOTE (IL:POINTER IL:POINTER)) (QUOTE ((RATIO 0 +IL:POINTER) (RATIO 2 IL:POINTER))) 4 (QUOTE STRUCTURE-OBJECT)) +(IL:PUTPROP (QUOTE RATIO) (QUOTE :TYPE-EXPANDER) (QUOTE TYPE-EXPAND-STRUCTURE)) +%RATIO-P :D8 +(IL:L (0 OBJECT)) @ÃNIL +(5 RATIO) +() +(ESTABLISH-PREDICATE (QUOTE RATIO)) +RATIO-NUMERATOR :D8 +(IL:L (0 RATIO)) +@ÉNIL +(5 RATIO) +() +RATIO-DENOMINATOR :D8 +(IL:L (0 RATIO)) +@ÉNIL +(5 RATIO) +() +(ESTABLISH-SETFS-AND-OPTIMIZERS (QUOTE RATIO)) +%MAKE-RATIO :D8 +(IL:L (1 DENOMINATOR 0 NUMERATOR)) lH@HAHNIL +NIL +() +(IL:\\SETTYPEMASK (IL:\\TYPENUMBERFROMNAME (QUOTE RATIO)) (IL:LOGOR IL:\\TT.NUMBERP IL:\\TT.ATOM)) +DENOMINATOR :D8 +(IL:L (0 RATIONAL)) @dÙ¿@É3 ‘k@ (28 %NOT-RATIONAL-ERROR) +(14 RATIO 6 RATIO) +() +NUMERATOR :D8 +(IL:L (0 RATIONAL)) @dÙ¿@É3 ‘@@ (28 %NOT-RATIONAL-ERROR) +(14 RATIO 6 RATIO) +() +RATIONALP :D8 +(IL:L (0 NUMBER)) @d3 ‘iÃNIL +(11 RATIO) +() +|definline-RATIONALP| :D8 +(IL:L (2 IL:$$CTX 1 IL:$$ENV 0 IL:$$WHOLE)) @oHNIL +NIL +( 9 (LAMBDA (NUMBER) (BLOCK RATIONALP (OR (INTEGERP NUMBER) (%RATIO-P NUMBER))))) +(IL:PUTPROP (QUOTE RATIONALP) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE |definline-RATIONALP|) ( +GET (QUOTE RATIONALP) (QUOTE COMPILER:OPTIMIZER-LIST)))) +%RATIO-PRINT :D8 +(IL:L (1 STREAM 0 NUMBER) IL:P 8 *PRINT-RADIX* IL:P 7 IL:\\THISFILELINELENGTH IL:P 6 *PRINT-RADIX* IL:P 5 *PRINT-BASE* IL:F 9 *PRINT-BASE* IL:F 10 *READTABLE* IL:F 11 IL:\\THISFILELINELENGTH IL:F 12 *PRINT-RADIX*)  @É@É2WÊjð²oA gHIhA -W²{gWÊ[Òlð´Klÿålÿðhð´lKÑ Wdlð—¿o°) ( 16 (0)) (IL:PUTPROP (QUOTE PLUSP) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE |optimize-PLUSP|) (GET (QUOTE PLUSP) (QUOTE COMPILER:OPTIMIZER-LIST)))) MINUSP :D8 (IL:L (0 NUMBER)) j@óNIL NIL () |optimize-MINUSP| :D8 (IL:L (2 IL:$$CTX 1 IL:$$ENV 0 IL:$$WHOLE)) @gHoNIL (10 <) ( 16 (0)) (IL:PUTPROP (QUOTE MINUSP) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE |optimize-MINUSP|) (GET ( QUOTE MINUSP) (QUOTE COMPILER:OPTIMIZER-LIST)))) EVENP :D8 (IL:L (1 MODULUS 0 INTEGER)) A¥@kåjðj@A -ÿ(15 MOD) NIL () ODDP :D8 (IL:L (1 MODULUS 0 INTEGER)) A¥@kåkðj@A -ÿhð(15 MOD) NIL () |optimize-EVENP| :D8 (IL:L (2 IL:$$CTX 1 IL:$$ENV 0 IL:$$WHOLE)) 0@!H¹HZ’J³ggIoogNIL (45 COMPILER:PASS 24 LOGAND 19 EQ) ( 37 (0) 30 (1)) (IL:PUTPROP (QUOTE EVENP) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE |optimize-EVENP|) (GET (QUOTE EVENP) (QUOTE COMPILER:OPTIMIZER-LIST)))) |optimize-ODDP| :D8 (IL:L (2 IL:$$CTX 1 IL:$$ENV 0 IL:$$WHOLE)) 0@!H¹HZ’J³ggIoogNIL (45 COMPILER:PASS 24 LOGAND 19 EQ) ( 37 (1) 30 (1)) (IL:PUTPROP (QUOTE ODDP) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE |optimize-ODDP|) (GET (QUOTE ODDP) (QUOTE COMPILER:OPTIMIZER-LIST)))) %= :D8 (IL:NAME = IL:L (1 Y 0 X)) i@1Hd3 ²Q¿AYd3 –¿@AÙjð×@A +(106 COMPLEX 101 %/ 88 %/ 64 COMPLEX 59 %/ 52 %/ 39 COMPLEX 34 %/ 23 %/) +NIL +() +%COMPLEX-ABS :D8 +(IL:L (0 Z)) 1@Éí@ÉíHíHíÖIíIíÖÔíí (46 SQRT) +(15 COMPLEX 5 COMPLEX) +() +ZEROP :D8 +(IL:L (0 NUMBER)) j@ÿNIL +NIL +() +PLUSP :D8 +(IL:L (0 NUMBER)) @jóNIL +NIL +() +|optimize-ZEROP| :D8 +(IL:L (2 IL:$$CTX 1 IL:$$ENV 0 IL:$$WHOLE)) @gjHhNIL +(10 =) +() +(IL:PUTPROP (QUOTE ZEROP) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE |optimize-ZEROP|) (GET (QUOTE + ZEROP) (QUOTE COMPILER:OPTIMIZER-LIST)))) +|optimize-PLUSP| :D8 +(IL:L (2 IL:$$CTX 1 IL:$$ENV 0 IL:$$WHOLE)) @gHoNIL +(10 >) +( 16 (0)) +(IL:PUTPROP (QUOTE PLUSP) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE |optimize-PLUSP|) (GET (QUOTE + PLUSP) (QUOTE COMPILER:OPTIMIZER-LIST)))) +MINUSP :D8 +(IL:L (0 NUMBER)) j@óNIL +NIL +() +|optimize-MINUSP| :D8 +(IL:L (2 IL:$$CTX 1 IL:$$ENV 0 IL:$$WHOLE)) @gHoNIL +(10 <) +( 16 (0)) +(IL:PUTPROP (QUOTE MINUSP) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE |optimize-MINUSP|) (GET ( +QUOTE MINUSP) (QUOTE COMPILER:OPTIMIZER-LIST)))) +EVENP :D8 +(IL:L (1 MODULUS 0 INTEGER)) A¥@kåjðj@A +ÿ(15 MOD) +NIL +() +ODDP :D8 +(IL:L (1 MODULUS 0 INTEGER)) A¥@kåkðj@A +ÿhð(15 MOD) +NIL +() +|optimize-EVENP| :D8 +(IL:L (2 IL:$$CTX 1 IL:$$ENV 0 IL:$$WHOLE)) 0@!H¹HZ’J³ggIoogNIL +(45 COMPILER:PASS 24 LOGAND 19 EQ) +( 37 (0) 30 (1)) +(IL:PUTPROP (QUOTE EVENP) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE |optimize-EVENP|) (GET (QUOTE + EVENP) (QUOTE COMPILER:OPTIMIZER-LIST)))) +|optimize-ODDP| :D8 +(IL:L (2 IL:$$CTX 1 IL:$$ENV 0 IL:$$WHOLE)) 0@!H¹HZ’J³ggIoogNIL +(45 COMPILER:PASS 24 LOGAND 19 EQ) +( 37 (1) 30 (1)) +(IL:PUTPROP (QUOTE ODDP) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE |optimize-ODDP|) (GET (QUOTE +ODDP) (QUOTE COMPILER:OPTIMIZER-LIST)))) +%= :D8 +(IL:NAME = IL:L (1 Y 0 X)) i@1Hd3 ²Q¿AYd3 –¿@AÙjð×@A IdÑhò@AÉÿ´‚±jAÉÿA ò>AZ[d3 ’¿iŒÃ³¯Kó§JòÓ@AÉÿ´‚±ÒjAÉÿHdòk¿Ad3 ³„dò,¿@ÉAÉ:´‚±—@ÉAÉ:dØ¿@A -â±ÿ^@AÉÿ´_jAÉÿòNAdò(¿@ÉAÉÿ´0@ÉAÉÿ3¢±ÿ A@Éÿ´ j@Éÿ@ (358 %NOT-NUMBER-ERROR 236 IL:FEQP 87 %NOT-NUMBER-ERROR 36 IL:FEQP) (348 COMPLEX 336 COMPLEX 319 COMPLEX 311 COMPLEX 300 COMPLEX 292 COMPLEX 283 COMPLEX 274 COMPLEX 265 COMPLEX 253 COMPLEX 242 COMPLEX 227 IL:FLOATP 217 RATIO 209 RATIO 194 RATIO 186 RATIO 177 RATIO 162 RATIO 151 COMPLEX 135 COMPLEX 126 COMPLEX 118 RATIO 110 IL:FLOATP 93 IL:FLOATP 77 COMPLEX 61 COMPLEX 52 COMPLEX 44 RATIO 28 IL:FLOATP) () |expand-%/=| :D8 (IL:L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) !@!H¹HºggIJhhNIL (21 %= 16 NOT) () (IL:SETF-MACRO-FUNCTION (QUOTE %/=) (QUOTE |expand-%/=|)) %> :D8 (IL:NAME > IL:L (1 Y 0 X)) é@1Hd3 ²;¿AYd3 ”¿@AñÓ@AòIòAÉ@ÖAÉñA ò.AZd3 ’¿i„óÄJòÜAÉ@ÖAÉòHòeA[d3 ²¿@É@ÉAÖñò@É@ÉAÖòKò@ÉAÉÖAÉ@ÉÖñ@ (230 %NOT-NONCOMPLEX-NUMBER-ERROR 65 %NOT-NONCOMPLEX-NUMBER-ERROR) (219 RATIO 211 RATIO 202 RATIO 194 RATIO 186 RATIO 174 RATIO 166 RATIO 158 IL:FLOATP 147 RATIO 139 RATIO 123 RATIO 113 RATIO 103 RATIO 95 RATIO 87 IL:FLOATP 71 IL:FLOATP 55 RATIO 45 RATIO 37 RATIO 26 IL:FLOATP) () %< :D8 (IL:L (1 Y 0 X)) A@óNIL NIL () |expand-%>=| :D8 (IL:L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) !@!H¹HºggIJhhNIL (21 %< 16 NOT) () (IL:SETF-MACRO-FUNCTION (QUOTE %>=) (QUOTE |expand-%>=|)) |expand-%<=| :D8 (IL:L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) !@!H¹HºggIJhhNIL (21 %> 16 NOT) () (IL:SETF-MACRO-FUNCTION (QUOTE %<=) (QUOTE |expand-%<=|)) (IL:PUTPROPS %= IL:DOPVAL (2 =)) (IL:PUTPROPS %> IL:DOPVAL (2 IL:GREATERP)) (IL:PUTPROPS %< IL:DOPVAL (2 IL:SWAP IL:GREATERP)) (IL:PUTPROPS %> IL:DMACRO (= . IL:GREATERP)) (IL:PUTPROPS %< IL:DMACRO (= . IL:LESSP)) (IL:PUTPROPS %>= IL:DMACRO (= . IL:GEQ)) (IL:PUTPROPS %<= IL:DMACRO (= . IL:LEQ)) (IL:MOVD (QUOTE %=) (QUOTE IL:%=)) (IL:MOVD (QUOTE %>) (QUOTE IL:GREATERP)) (IL:MOVD (QUOTE %<) (QUOTE IL:LESSP)) = :D8 (IL:L (0 ARGS)) 9ekHóšo ¿kalId3¤ ¿JHó‘iIJaÿ¡hJkÔZ°ð(35 %NOT-NUMBER-ERROR 17 ERROR) NIL ( 12 "= requires at least one argument") /= :D8 (IL:L (0 ARGS)) <ekHóšo ¿k!IdHó‘iaºIkÔ[Hó‘i…JKaÿ“h¤hK°îIkÔY°ß(17 ERROR) NIL ( 12 "/= requires at least one argument") < :D8 (IL:L (0 ARGS)) BekHóšo ¿kalId3–ÖI ¿JHó‘iJadIó¡h¹JkÔZ°î(42 %NOT-NUMBER-ERROR 17 ERROR) (35 COMPLEX) ( 12 "< requires at least one argument") > :D8 (IL:L (0 ARGS)) DekHóšo ¿kalId3–ÖI ¿JHó‘iJa»IKó¡hK¹JkÔZ°ì(42 %NOT-NUMBER-ERROR 17 ERROR) (35 COMPLEX) ( 12 "> requires at least one argument") <= :D8 (IL:L (0 ARGS)) DekHóšo ¿kalId3–ÖI ¿JHó‘iJa»IKó‘hK¹JkÔZ°ì(42 %NOT-NUMBER-ERROR 17 ERROR) (35 COMPLEX) ( 12 "<= requires at least one argument") >= :D8 (IL:L (0 ARGS)) BekHóšo ¿kalId3–ÖI ¿JHó‘iJadIó‘h¹JkÔZ°î(42 %NOT-NUMBER-ERROR 17 ERROR) (35 COMPLEX) ( 12 ">= requires at least one argument") %COMPARISON-OPTIMIZER :D8 (IL:L (3 THIRD-NUMBER 2 SECOND-NUMBER 1 FIRST-NUMBER 0 PREDICATE)) CB¥gC§@ABhgog@o@gChhhABhNIL (45 SI::%$$COMPARISON-MIDDLE-NUMBER 32 AND 22 IL:OPENLAMBDA 6 COMPILER:PASS) ( 38 (SI::%$$COMPARISON-FIRST-NUMBER SI::%$$COMPARISON-MIDDLE-NUMBER) 27 (SI::%$$COMPARISON-FIRST-NUMBER SI::%$$COMPARISON-MIDDLE-NUMBER)) |optimize-=| :D8 (IL:L (2 IL:$$CTX 1 IL:$$ENV 0 IL:$$WHOLE)) “ -@‘ H¹HZd»Jhðhð¼J½L¥gM«gIKhKM]gogh__¿M^µOhIh_¿O²OggOh&_¿°ggOhh__¿N°¸NIL (128 SI::%$$=FIRST-NUMBER 123 %= 106 SI::%$$=FIRST-NUMBER 101 %= 64 AND 54 IL:OPENLAMBDA 38 %= 30 COMPILER:PASS) ( 59 (SI::%$$=FIRST-NUMBER)) (IL:PUTPROP (QUOTE =) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE |optimize-=|) (GET (QUOTE =) ( QUOTE COMPILER:OPTIMIZER-LIST)))) |optimize-/=| :D8 (IL:L (2 IL:$$CTX 1 IL:$$ENV 0 IL:$$WHOLE)) 0@QH¹HZd»Jhðhð¼J½L¥gM³ùgIKhNIL (39 %/= 30 COMPILER:PASS) () (IL:PUTPROP (QUOTE /=) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE |optimize-/=|) (GET (QUOTE /=) ( QUOTE COMPILER:OPTIMIZER-LIST)))) |optimize-<| :D8 (IL:L (2 IL:$$CTX 1 IL:$$ENV 0 IL:$$WHOLE)) .@QH¹HZd»J\d½L­gIKM g(37 %COMPARISON-OPTIMIZER) (43 COMPILER:PASS 29 %<) () (IL:PUTPROP (QUOTE <) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE |optimize-<|) (GET (QUOTE <) ( QUOTE COMPILER:OPTIMIZER-LIST)))) |optimize->| :D8 (IL:L (2 IL:$$CTX 1 IL:$$ENV 0 IL:$$WHOLE)) .@QH¹HZd»J\d½L­gIKM g(37 %COMPARISON-OPTIMIZER) (43 COMPILER:PASS 29 %>) () (IL:PUTPROP (QUOTE >) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE |optimize->|) (GET (QUOTE >) ( QUOTE COMPILER:OPTIMIZER-LIST)))) |optimize-<=| :D8 (IL:L (2 IL:$$CTX 1 IL:$$ENV 0 IL:$$WHOLE)) .@QH¹HZd»J\d½L­gIKM g(37 %COMPARISON-OPTIMIZER) (43 COMPILER:PASS 29 %<=) () (IL:PUTPROP (QUOTE <=) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE |optimize-<=|) (GET (QUOTE <=) ( QUOTE COMPILER:OPTIMIZER-LIST)))) |optimize->=| :D8 (IL:L (2 IL:$$CTX 1 IL:$$ENV 0 IL:$$WHOLE)) .@QH¹HZd»J\d½L­gIKM g(37 %COMPARISON-OPTIMIZER) (43 COMPILER:PASS 29 %>=) () (IL:PUTPROP (QUOTE >=) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE |optimize->=|) (GET (QUOTE >=) ( QUOTE COMPILER:OPTIMIZER-LIST)))) |optimize-MIN| :D8 (IL:L (2 IL:$$CTX 1 IL:$$ENV 0 IL:$$WHOLE)) 7@QHd¹HhðhðºH[d¼Khðhð½K¯JM›oILhgNIL (52 COMPILER:PASS) ( 40 (IL:OPENLAMBDA (SI::%$$MIN-X SI::%$$MIN-Y) (IF (< SI::%$$MIN-X SI::%$$MIN-Y) SI::%$$MIN-X SI::%$$MIN-Y))) (IL:PUTPROP (QUOTE MIN) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE |optimize-MIN|) (GET (QUOTE MIN ) (QUOTE COMPILER:OPTIMIZER-LIST)))) |optimize-MAX| :D8 (IL:L (2 IL:$$CTX 1 IL:$$ENV 0 IL:$$WHOLE)) 7@QHd¹HhðhðºH[d¼Khðhð½K¯JM›oILhgNIL (52 COMPILER:PASS) ( 40 (IL:OPENLAMBDA (SI::%$$MAX-X SI::%$$MAX-Y) (IF (> SI::%$$MAX-X SI::%$$MAX-Y) SI::%$$MAX-X SI::%$$MAX-Y))) (IL:PUTPROP (QUOTE MAX) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE |optimize-MAX|) (GET (QUOTE MAX ) (QUOTE COMPILER:OPTIMIZER-LIST)))) %+ :D8 (IL:NAME + IL:L (1 Y 0 X)) Ð@AHd3 ²J¿AYd3 ”¿@AØÓ@AèIdò¿@kAÉAÉ Ã’±âA òSAZd3 ’¿i„óµJdò¿@AÉAÉëèò¿@oAÉAÉ HdⱿA[d3 ²¿@É@ÉAk ò@É@ÉëAèKdò)¿@É@ÉAÉAÉ â±ÿ$@jAÉAÉ â±€A\d3 ’¿i„ò@É@ÉAj Ldò¿@É@ÉAo â±þ¬@É@ÉAÉAÉ @ (461 %NOT-NUMBER-ERROR 454 %COMPLEX-+ 407 %COMPLEX-+ 369 %COMPLEX-+ 320 %COMPLEX-+ 287 %RATIO-PLUS 212 %RATIO-PLUS 168 %COMPLEX-+ 80 %NOT-NUMBER-ERROR 64 %RATIO-PLUS) (447 COMPLEX 439 COMPLEX 431 COMPLEX 423 COMPLEX 413 COMPLEX 394 COMPLEX 386 COMPLEX 377 IL:FLOATP 360 COMPLEX 352 COMPLEX 344 RATIO 326 COMPLEX 313 COMPLEX 305 COMPLEX 293 COMPLEX 280 RATIO 272 RATIO 264 RATIO 256 RATIO 247 RATIO 234 RATIO 226 RATIO 218 IL:FLOATP 203 RATIO 195 RATIO 176 RATIO 161 COMPLEX 153 COMPLEX 139 COMPLEX 129 RATIO 121 RATIO 111 RATIO 102 IL:FLOATP 86 IL:FLOATP 70 COMPLEX 57 RATIO 49 RATIO 38 RATIO 26 IL:FLOATP) ( 402 0.0 147 0.0) %- :D8 (IL:NAME - IL:L (1 Y 0 X)) Ö@AHd3 ²L¿AYd3 ”¿@AÙÓ@AéIdò¿@kjAÉÕAÉ Ã’±æA òSAZd3 ’¿i„ó³Jdò¿@AÉAÉëéò¿@oAÉAÉ Hdâ±”¿A[d3 ²¿@É@ÉjAÕk ò@É@ÉëAéKdò+¿@É@ÉjAÉÕAÉ â±ÿ @jAÉAÉ â±€A\d3 ’¿i„ò@É@ÉAj Ldò¿@É@ÉAo â±þ¨@É@ÉAÉAÉ @ (467 %NOT-NUMBER-ERROR 460 %COMPLEX-- 413 %COMPLEX-- 375 %COMPLEX-- 326 %COMPLEX-- 293 %RATIO-PLUS 216 %RATIO-PLUS 170 %COMPLEX-- 82 %NOT-NUMBER-ERROR 66 %RATIO-PLUS) (453 COMPLEX 445 COMPLEX 437 COMPLEX 429 COMPLEX 419 COMPLEX 400 COMPLEX 392 COMPLEX 383 IL:FLOATP 366 COMPLEX 358 COMPLEX 350 RATIO 332 COMPLEX 319 COMPLEX 311 COMPLEX 299 COMPLEX 286 RATIO 277 RATIO 268 RATIO 260 RATIO 251 RATIO 238 RATIO 230 RATIO 222 IL:FLOATP 205 RATIO 197 RATIO 178 RATIO 163 COMPLEX 155 COMPLEX 141 COMPLEX 131 RATIO 123 RATIO 113 RATIO 104 IL:FLOATP 88 IL:FLOATP 72 COMPLEX 59 RATIO 50 RATIO 38 RATIO 26 IL:FLOATP) ( 408 0.0 149 0.0) %* :D8 (IL:NAME * IL:L (1 Y 0 X)) Ð@AHd3 ²J¿AYd3 ”¿@AÚÓ@AêIdò¿@kAÉAÉ Ã’±âA òSAZd3 ’¿i„óµJdò¿@AÉAÉëêò¿@oAÉAÉ HdⱿA[d3 ²¿@É@ÉAk ò@É@ÉëAêKdò)¿@É@ÉAÉAÉ â±ÿ$@jAÉAÉ â±€A\d3 ’¿i„ò@É@ÉAj Ldò¿@É@ÉAo â±þ¬@É@ÉAÉAÉ @ (461 %NOT-NUMBER-ERROR 454 %COMPLEX-* 407 %COMPLEX-* 369 %COMPLEX-* 320 %COMPLEX-* 287 %RATIO-TIMES 212 %RATIO-TIMES 168 %COMPLEX-* 80 %NOT-NUMBER-ERROR 64 %RATIO-TIMES) (447 COMPLEX 439 COMPLEX 431 COMPLEX 423 COMPLEX 413 COMPLEX 394 COMPLEX 386 COMPLEX 377 IL:FLOATP 360 COMPLEX 352 COMPLEX 344 RATIO 326 COMPLEX 313 COMPLEX 305 COMPLEX 293 COMPLEX 280 RATIO 272 RATIO 264 RATIO 256 RATIO 247 RATIO 234 RATIO 226 RATIO 218 IL:FLOATP 203 RATIO 195 RATIO 176 RATIO 161 COMPLEX 153 COMPLEX 139 COMPLEX 129 RATIO 121 RATIO 111 RATIO 102 IL:FLOATP 86 IL:FLOATP 70 COMPLEX 57 RATIO 49 RATIO 38 RATIO 26 IL:FLOATP) ( 402 0.0 147 0.0) %/ :D8 (IL:NAME / IL:L (1 Y 0 X)) @dŸ¿A™@dAÜjð“AÛ@AHd3 ²w¿AYd3 ²3¿@d`ð³d`ð³¿A`ð§A`ð“@AÛ@A -Ó@AëIdò¿@kAÉAÉ Ã’±âA òSAZd3 ’¿i„óµJdò¿AÉ@ÖAÉëò¿@oAÉAÉ HdⱿA[d3 ²¿@É@ÉkA ò@É@ÉAÖëKdò)¿@É@ÉAÉAÉ â±ÿ$@jAÉAÉ â±€A\d3 ’¿i„ò@É@ÉAj Ldò¿@É@ÉAo â±þ¬@É@ÉAÉAÉ @ (526 %NOT-NUMBER-ERROR 519 %COMPLEX-/ 472 %COMPLEX-/ 434 %COMPLEX-/ 385 %COMPLEX-/ 352 %RATIO-TIMES 277 %RATIO-TIMES 233 %COMPLEX-/ 145 %NOT-NUMBER-ERROR 129 %RATIO-TIMES 85 %BUILD-RATIO) (512 COMPLEX 504 COMPLEX 496 COMPLEX 488 COMPLEX 478 COMPLEX 459 COMPLEX 451 COMPLEX 442 IL:FLOATP 425 COMPLEX 417 COMPLEX 409 RATIO 391 COMPLEX 378 COMPLEX 370 COMPLEX 358 COMPLEX 345 RATIO 337 RATIO 329 RATIO 321 RATIO 312 RATIO 299 RATIO 291 RATIO 283 IL:FLOATP 268 RATIO 260 RATIO 241 RATIO 226 COMPLEX 218 COMPLEX 204 COMPLEX 195 RATIO 185 RATIO 176 RATIO 167 IL:FLOATP 151 IL:FLOATP 135 COMPLEX 122 RATIO 114 RATIO 103 RATIO 91 IL:FLOATP 72 IL:MAX.INTEGER 64 IL:MIN.INTEGER 54 IL:MAX.INTEGER 45 IL:MIN.INTEGER) ( 467 0.0 212 0.0) (IL:PUTPROPS %+ IL:DOPVAL (2 IL:PLUS2)) (IL:PUTPROPS %- IL:DOPVAL (2 IL:DIFFERENCE)) (IL:PUTPROPS %* IL:DOPVAL (2 IL:TIMES2)) (IL:PUTPROPS %+ IL:DMACRO (= . IL:PLUS)) (IL:PUTPROPS %- IL:DMACRO (= . IL:DIFFERENCE)) (IL:PUTPROPS %* IL:DMACRO (= . IL:TIMES)) (IL:MOVD (QUOTE %/) (QUOTE IL:%/)) (IL:MOVD (QUOTE %+) (QUOTE IL:\\SLOWPLUS2)) (IL:MOVD (QUOTE %-) (QUOTE IL:\\SLOWDIFFERENCE)) (IL:MOVD (QUOTE %*) (QUOTE IL:\\SLOWTIMES2)) + :D8 (IL:L (0 ARGS)) .eHjð‘jkalId3¤ ¿JHó‘IIJaÔ¹JkÔZ°ò(26 %NOT-NUMBER-ERROR) NIL () - :D8 (IL:L (0 ARGS)) 6eHdjð›¿o kð”jkaÕkalJHó‘IIJaÕ¹JkÔZ°ò(19 ERROR) NIL ( 14 "- requires at least one argument") * :D8 (IL:L (0 ARGS)) .eHjð‘kkalId3¤ ¿JHó‘IIJaÖ¹JkÔZ°ò(26 %NOT-NUMBER-ERROR) NIL () / :D8 (IL:L (0 ARGS)) =eHdjð›¿o kð—ka kalJHó‘IIJa -¹JkÔZ°î(52 %/ 30 %RECIPROCOL 19 ERROR) NIL ( 14 "/ requires at least one argument") 1+ :D8 (IL:L (0 NUMBER)) @kÔNIL NIL () 1- :D8 (IL:L (0 NUMBER)) @kÕNIL NIL () %RECIPROCOL :D8 (IL:L (0 NUMBER)) @—o@ëk@ -(18 %/) NIL ( 8 1.0) |optimize-+| :D8 (IL:L (2 IL:$$CTX 1 IL:$$ENV 0 IL:$$WHOLE)) %@1Hµj¹HZµI»gIKh¹J°ëNIL (25 %+) () (IL:PUTPROP (QUOTE +) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE |optimize-+|) (GET (QUOTE +) ( QUOTE COMPILER:OPTIMIZER-LIST)))) |optimize--| :D8 (IL:L (2 IL:$$CTX 1 IL:$$ENV 0 IL:$$WHOLE)) 3@QH¹HZ«gjIhI»J\µK½gKMh»L°ëNIL (38 %- 16 %-) () (IL:PUTPROP (QUOTE -) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE |optimize--|) (GET (QUOTE -) ( QUOTE COMPILER:OPTIMIZER-LIST)))) |optimize-*| :D8 (IL:L (2 IL:$$CTX 1 IL:$$ENV 0 IL:$$WHOLE)) %@1Hµk¹HZµI»gIKh¹J°ëNIL (25 %*) () (IL:PUTPROP (QUOTE *) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE |optimize-*|) (GET (QUOTE *) ( QUOTE COMPILER:OPTIMIZER-LIST)))) |optimize-/| :D8 (IL:L (2 IL:$$CTX 1 IL:$$ENV 0 IL:$$WHOLE)) 1@QH¹HZ©gIhI»J\µK½gKMh»L°ëNIL (36 %/ 16 %RECIPROCOL) () (IL:PUTPROP (QUOTE /) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE |optimize-/|) (GET (QUOTE /) ( QUOTE COMPILER:OPTIMIZER-LIST)))) |optimize-1+| :D8 (IL:L (2 IL:$$CTX 1 IL:$$ENV 0 IL:$$WHOLE)) @gHoNIL (10 +) ( 16 (1)) (IL:PUTPROP (QUOTE 1+) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE |optimize-1+|) (GET (QUOTE 1+) ( QUOTE COMPILER:OPTIMIZER-LIST)))) |optimize-1-| :D8 (IL:L (2 IL:$$CTX 1 IL:$$ENV 0 IL:$$WHOLE)) @gHoNIL (10 -) ( 16 (1)) (IL:PUTPROP (QUOTE 1-) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE |optimize-1-|) (GET (QUOTE 1-) ( QUOTE COMPILER:OPTIMIZER-LIST)))) (IL:PUTPROPS + IL:DMACRO (IL:ARGS (IL:|if| (IL:GREATERP (IL:LENGTH IL:ARGS) 1) IL:|then| (IL:BQUOTE ( IL:PLUS (IL:\\\,@ IL:ARGS))) IL:|else| (QUOTE IL:IGNOREMACRO)))) (IL:PUTPROPS * IL:DMACRO (IL:ARGS (IL:|if| (IL:GREATERP (IL:LENGTH IL:ARGS) 1) IL:|then| (IL:BQUOTE ( IL:TIMES (IL:\\\,@ IL:ARGS))) IL:|else| (QUOTE IL:IGNOREMACRO)))) (IL:MOVD (QUOTE +) (QUOTE IL:PLUS)) (IL:MOVD (QUOTE *) (QUOTE IL:TIMES)) %GCD :D8 (IL:L (1 Y 0 X)) j@ó“j@Õ€@bjAó“jAÕ€Ab@jðAdjð‘@kð£@kð‘kj@kåkð¦Akåkð²H@dkåkð²¿jAÕ°@mÿçb¿Amÿçb¿HkÔ¸°ÎmÿçYdjð”¿@Hçkåkð¦ImÿçY°öIjó“Ib†jIÕb¿@AÕ°ÙNIL NIL () %LCM :D8 (IL:L (1 Y 0 X)) E@kð‘AAkð‘@@jð£Ajð‘jj@ó“j@Õ€@bjAó“jAÕ€Ab@A -Hkð“@AÖ@HÛAÖ(50 %GCD) NIL () GCD :D8 (IL:L (0 ARGS)) FeHdjð‘jkðžkajIó“jIÕIkala +â±ÿ^@AÉÿ´_jAÉÿòNAdò(¿@ÉAÉÿ´0@ÉAÉÿ3¢±ÿ A@Éÿ´ j@Éÿ@ (358 %NOT-NUMBER-ERROR 236 IL:FEQP 87 %NOT-NUMBER-ERROR 36 IL:FEQP) +(348 COMPLEX 336 COMPLEX 319 COMPLEX 311 COMPLEX 300 COMPLEX 292 COMPLEX 283 COMPLEX 274 COMPLEX 265 COMPLEX 253 COMPLEX 242 COMPLEX 227 IL:FLOATP 217 RATIO 209 RATIO 194 RATIO 186 RATIO 177 RATIO 162 RATIO 151 COMPLEX 135 COMPLEX 126 COMPLEX 118 RATIO 110 IL:FLOATP 93 IL:FLOATP 77 COMPLEX 61 COMPLEX 52 COMPLEX 44 RATIO 28 IL:FLOATP) +() +|expand-%/=| :D8 +(IL:L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) !@!H¹HºggIJhhNIL +(21 %= 16 NOT) +() +(IL:SETF-MACRO-FUNCTION (QUOTE %/=) (QUOTE |expand-%/=|)) +%> :D8 +(IL:NAME > IL:L (1 Y 0 X)) é@1Hd3 ²;¿AYd3 ”¿@AñÓ@AòIòAÉ@ÖAÉñA ò.AZd3 ’¿i„óÄJòÜAÉ@ÖAÉòHòeA[d3 ²¿@É@ÉAÖñò@É@ÉAÖòKò@ÉAÉÖAÉ@ÉÖñ@ (230 %NOT-NONCOMPLEX-NUMBER-ERROR 65 %NOT-NONCOMPLEX-NUMBER-ERROR) +(219 RATIO 211 RATIO 202 RATIO 194 RATIO 186 RATIO 174 RATIO 166 RATIO 158 IL:FLOATP 147 RATIO 139 RATIO 123 RATIO 113 RATIO 103 RATIO 95 RATIO 87 IL:FLOATP 71 IL:FLOATP 55 RATIO 45 RATIO 37 RATIO 26 IL:FLOATP) +() +%< :D8 +(IL:L (1 Y 0 X)) A@óNIL +NIL +() +|expand-%>=| :D8 +(IL:L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) !@!H¹HºggIJhhNIL +(21 %< 16 NOT) +() +(IL:SETF-MACRO-FUNCTION (QUOTE %>=) (QUOTE |expand-%>=|)) +|expand-%<=| :D8 +(IL:L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) !@!H¹HºggIJhhNIL +(21 %> 16 NOT) +() +(IL:SETF-MACRO-FUNCTION (QUOTE %<=) (QUOTE |expand-%<=|)) +(IL:PUTPROPS %= IL:DOPVAL (2 =)) +(IL:PUTPROPS %> IL:DOPVAL (2 IL:GREATERP)) +(IL:PUTPROPS %< IL:DOPVAL (2 IL:SWAP IL:GREATERP)) +(IL:PUTPROPS %> IL:DMACRO (= . IL:GREATERP)) +(IL:PUTPROPS %< IL:DMACRO (= . IL:LESSP)) +(IL:PUTPROPS %>= IL:DMACRO (= . IL:GEQ)) +(IL:PUTPROPS %<= IL:DMACRO (= . IL:LEQ)) +(IL:MOVD (QUOTE %=) (QUOTE IL:%=)) +(IL:MOVD (QUOTE %>) (QUOTE IL:GREATERP)) +(IL:MOVD (QUOTE %<) (QUOTE IL:LESSP)) += :D8 +(IL:L (0 ARGS)) 9ekHóšo ¿kalId3¤ ¿JHó‘iIJaÿ¡hJkÔZ°ð(35 %NOT-NUMBER-ERROR 17 ERROR) +NIL +( 12 "= requires at least one argument") +/= :D8 +(IL:L (0 ARGS)) <ekHóšo ¿k!IdHó‘iaºIkÔ[Hó‘i…JKaÿ“h¤hK°îIkÔY°ß(17 ERROR) +NIL +( 12 "/= requires at least one argument") +< :D8 +(IL:L (0 ARGS)) BekHóšo ¿kalId3–ÖI ¿JHó‘iJadIó¡h¹JkÔZ°î(42 %NOT-NUMBER-ERROR 17 ERROR) +(35 COMPLEX) +( 12 "< requires at least one argument") +> :D8 +(IL:L (0 ARGS)) DekHóšo ¿kalId3–ÖI ¿JHó‘iJa»IKó¡hK¹JkÔZ°ì(42 %NOT-NUMBER-ERROR 17 ERROR) +(35 COMPLEX) +( 12 "> requires at least one argument") +<= :D8 +(IL:L (0 ARGS)) DekHóšo ¿kalId3–ÖI ¿JHó‘iJa»IKó‘hK¹JkÔZ°ì(42 %NOT-NUMBER-ERROR 17 ERROR) +(35 COMPLEX) +( 12 "<= requires at least one argument") +>= :D8 +(IL:L (0 ARGS)) BekHóšo ¿kalId3–ÖI ¿JHó‘iJadIó‘h¹JkÔZ°î(42 %NOT-NUMBER-ERROR 17 ERROR) +(35 COMPLEX) +( 12 ">= requires at least one argument") +%COMPARISON-OPTIMIZER :D8 +(IL:L (3 THIRD-NUMBER 2 SECOND-NUMBER 1 FIRST-NUMBER 0 PREDICATE)) CB¥gC§@ABhgog@o@gChhhABhNIL +(45 SI::%$$COMPARISON-MIDDLE-NUMBER 32 AND 22 IL:OPENLAMBDA 6 COMPILER:PASS) +( 38 (SI::%$$COMPARISON-FIRST-NUMBER SI::%$$COMPARISON-MIDDLE-NUMBER) 27 (SI::%$$COMPARISON-FIRST-NUMBER SI::%$$COMPARISON-MIDDLE-NUMBER)) +|optimize-=| :D8 +(IL:L (2 IL:$$CTX 1 IL:$$ENV 0 IL:$$WHOLE)) “ +@‘ H¹HZd»Jhðhð¼J½L¥gM«gIKhKM]gogh__¿M^µOhIh_¿O²OggOh&_¿°ggOhh__¿N°¸NIL +(128 SI::%$$=FIRST-NUMBER 123 %= 106 SI::%$$=FIRST-NUMBER 101 %= 64 AND 54 IL:OPENLAMBDA 38 %= 30 COMPILER:PASS) +( 59 (SI::%$$=FIRST-NUMBER)) +(IL:PUTPROP (QUOTE =) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE |optimize-=|) (GET (QUOTE =) ( +QUOTE COMPILER:OPTIMIZER-LIST)))) +|optimize-/=| :D8 +(IL:L (2 IL:$$CTX 1 IL:$$ENV 0 IL:$$WHOLE)) 0@QH¹HZd»Jhðhð¼J½L¥gM³ùgIKhNIL +(39 %/= 30 COMPILER:PASS) +() +(IL:PUTPROP (QUOTE /=) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE |optimize-/=|) (GET (QUOTE /=) ( +QUOTE COMPILER:OPTIMIZER-LIST)))) +|optimize-<| :D8 +(IL:L (2 IL:$$CTX 1 IL:$$ENV 0 IL:$$WHOLE)) .@QH¹HZd»J\d½L­gIKM g(37 %COMPARISON-OPTIMIZER) +(43 COMPILER:PASS 29 %<) +() +(IL:PUTPROP (QUOTE <) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE |optimize-<|) (GET (QUOTE <) ( +QUOTE COMPILER:OPTIMIZER-LIST)))) +|optimize->| :D8 +(IL:L (2 IL:$$CTX 1 IL:$$ENV 0 IL:$$WHOLE)) .@QH¹HZd»J\d½L­gIKM g(37 %COMPARISON-OPTIMIZER) +(43 COMPILER:PASS 29 %>) +() +(IL:PUTPROP (QUOTE >) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE |optimize->|) (GET (QUOTE >) ( +QUOTE COMPILER:OPTIMIZER-LIST)))) +|optimize-<=| :D8 +(IL:L (2 IL:$$CTX 1 IL:$$ENV 0 IL:$$WHOLE)) .@QH¹HZd»J\d½L­gIKM g(37 %COMPARISON-OPTIMIZER) +(43 COMPILER:PASS 29 %<=) +() +(IL:PUTPROP (QUOTE <=) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE |optimize-<=|) (GET (QUOTE <=) ( +QUOTE COMPILER:OPTIMIZER-LIST)))) +|optimize->=| :D8 +(IL:L (2 IL:$$CTX 1 IL:$$ENV 0 IL:$$WHOLE)) .@QH¹HZd»J\d½L­gIKM g(37 %COMPARISON-OPTIMIZER) +(43 COMPILER:PASS 29 %>=) +() +(IL:PUTPROP (QUOTE >=) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE |optimize->=|) (GET (QUOTE >=) ( +QUOTE COMPILER:OPTIMIZER-LIST)))) +|optimize-MIN| :D8 +(IL:L (2 IL:$$CTX 1 IL:$$ENV 0 IL:$$WHOLE)) 7@QHd¹HhðhðºH[d¼Khðhð½K¯JM›oILhgNIL +(52 COMPILER:PASS) +( 40 (IL:OPENLAMBDA (SI::%$$MIN-X SI::%$$MIN-Y) (IF (< SI::%$$MIN-X SI::%$$MIN-Y) SI::%$$MIN-X SI::%$$MIN-Y))) +(IL:PUTPROP (QUOTE MIN) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE |optimize-MIN|) (GET (QUOTE MIN +) (QUOTE COMPILER:OPTIMIZER-LIST)))) +|optimize-MAX| :D8 +(IL:L (2 IL:$$CTX 1 IL:$$ENV 0 IL:$$WHOLE)) 7@QHd¹HhðhðºH[d¼Khðhð½K¯JM›oILhgNIL +(52 COMPILER:PASS) +( 40 (IL:OPENLAMBDA (SI::%$$MAX-X SI::%$$MAX-Y) (IF (> SI::%$$MAX-X SI::%$$MAX-Y) SI::%$$MAX-X SI::%$$MAX-Y))) +(IL:PUTPROP (QUOTE MAX) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE |optimize-MAX|) (GET (QUOTE MAX +) (QUOTE COMPILER:OPTIMIZER-LIST)))) +%+ :D8 +(IL:NAME + IL:L (1 Y 0 X)) Ð@AHd3 ²J¿AYd3 ”¿@AØÓ@AèIdò¿@kAÉAÉ Ã’±âA òSAZd3 ’¿i„óµJdò¿@AÉAÉëèò¿@oAÉAÉ HdⱿA[d3 ²¿@É@ÉAk ò@É@ÉëAèKdò)¿@É@ÉAÉAÉ â±ÿ$@jAÉAÉ â±€A\d3 ’¿i„ò@É@ÉAj Ldò¿@É@ÉAo â±þ¬@É@ÉAÉAÉ @ (461 %NOT-NUMBER-ERROR 454 %COMPLEX-+ 407 %COMPLEX-+ 369 %COMPLEX-+ 320 %COMPLEX-+ 287 %RATIO-PLUS 212 %RATIO-PLUS 168 %COMPLEX-+ 80 %NOT-NUMBER-ERROR 64 %RATIO-PLUS) +(447 COMPLEX 439 COMPLEX 431 COMPLEX 423 COMPLEX 413 COMPLEX 394 COMPLEX 386 COMPLEX 377 IL:FLOATP 360 COMPLEX 352 COMPLEX 344 RATIO 326 COMPLEX 313 COMPLEX 305 COMPLEX 293 COMPLEX 280 RATIO 272 RATIO 264 RATIO 256 RATIO 247 RATIO 234 RATIO 226 RATIO 218 IL:FLOATP 203 RATIO 195 RATIO 176 RATIO 161 COMPLEX 153 COMPLEX 139 COMPLEX 129 RATIO 121 RATIO 111 RATIO 102 IL:FLOATP 86 IL:FLOATP 70 COMPLEX 57 RATIO 49 RATIO 38 RATIO 26 IL:FLOATP) +( 402 0.0 147 0.0) +%- :D8 +(IL:NAME - IL:L (1 Y 0 X)) Ö@AHd3 ²L¿AYd3 ”¿@AÙÓ@AéIdò¿@kjAÉÕAÉ Ã’±æA òSAZd3 ’¿i„ó³Jdò¿@AÉAÉëéò¿@oAÉAÉ Hdâ±”¿A[d3 ²¿@É@ÉjAÕk ò@É@ÉëAéKdò+¿@É@ÉjAÉÕAÉ â±ÿ @jAÉAÉ â±€A\d3 ’¿i„ò@É@ÉAj Ldò¿@É@ÉAo â±þ¨@É@ÉAÉAÉ @ (467 %NOT-NUMBER-ERROR 460 %COMPLEX-- 413 %COMPLEX-- 375 %COMPLEX-- 326 %COMPLEX-- 293 %RATIO-PLUS 216 %RATIO-PLUS 170 %COMPLEX-- 82 %NOT-NUMBER-ERROR 66 %RATIO-PLUS) +(453 COMPLEX 445 COMPLEX 437 COMPLEX 429 COMPLEX 419 COMPLEX 400 COMPLEX 392 COMPLEX 383 IL:FLOATP 366 COMPLEX 358 COMPLEX 350 RATIO 332 COMPLEX 319 COMPLEX 311 COMPLEX 299 COMPLEX 286 RATIO 277 RATIO 268 RATIO 260 RATIO 251 RATIO 238 RATIO 230 RATIO 222 IL:FLOATP 205 RATIO 197 RATIO 178 RATIO 163 COMPLEX 155 COMPLEX 141 COMPLEX 131 RATIO 123 RATIO 113 RATIO 104 IL:FLOATP 88 IL:FLOATP 72 COMPLEX 59 RATIO 50 RATIO 38 RATIO 26 IL:FLOATP) +( 408 0.0 149 0.0) +%* :D8 +(IL:NAME * IL:L (1 Y 0 X)) Ð@AHd3 ²J¿AYd3 ”¿@AÚÓ@AêIdò¿@kAÉAÉ Ã’±âA òSAZd3 ’¿i„óµJdò¿@AÉAÉëêò¿@oAÉAÉ HdⱿA[d3 ²¿@É@ÉAk ò@É@ÉëAêKdò)¿@É@ÉAÉAÉ â±ÿ$@jAÉAÉ â±€A\d3 ’¿i„ò@É@ÉAj Ldò¿@É@ÉAo â±þ¬@É@ÉAÉAÉ @ (461 %NOT-NUMBER-ERROR 454 %COMPLEX-* 407 %COMPLEX-* 369 %COMPLEX-* 320 %COMPLEX-* 287 %RATIO-TIMES 212 %RATIO-TIMES 168 %COMPLEX-* 80 %NOT-NUMBER-ERROR 64 %RATIO-TIMES) +(447 COMPLEX 439 COMPLEX 431 COMPLEX 423 COMPLEX 413 COMPLEX 394 COMPLEX 386 COMPLEX 377 IL:FLOATP 360 COMPLEX 352 COMPLEX 344 RATIO 326 COMPLEX 313 COMPLEX 305 COMPLEX 293 COMPLEX 280 RATIO 272 RATIO 264 RATIO 256 RATIO 247 RATIO 234 RATIO 226 RATIO 218 IL:FLOATP 203 RATIO 195 RATIO 176 RATIO 161 COMPLEX 153 COMPLEX 139 COMPLEX 129 RATIO 121 RATIO 111 RATIO 102 IL:FLOATP 86 IL:FLOATP 70 COMPLEX 57 RATIO 49 RATIO 38 RATIO 26 IL:FLOATP) +( 402 0.0 147 0.0) +%/ :D8 +(IL:NAME / IL:L (1 Y 0 X)) @dŸ¿A™@dAÜjð“AÛ@AHd3 ²w¿AYd3 ²3¿@d`ð³d`ð³¿A`ð§A`ð“@AÛ@A +Ó@AëIdò¿@kAÉAÉ Ã’±âA òSAZd3 ’¿i„óµJdò¿AÉ@ÖAÉëò¿@oAÉAÉ HdⱿA[d3 ²¿@É@ÉkA ò@É@ÉAÖëKdò)¿@É@ÉAÉAÉ â±ÿ$@jAÉAÉ â±€A\d3 ’¿i„ò@É@ÉAj Ldò¿@É@ÉAo â±þ¬@É@ÉAÉAÉ @ (526 %NOT-NUMBER-ERROR 519 %COMPLEX-/ 472 %COMPLEX-/ 434 %COMPLEX-/ 385 %COMPLEX-/ 352 %RATIO-TIMES 277 %RATIO-TIMES 233 %COMPLEX-/ 145 %NOT-NUMBER-ERROR 129 %RATIO-TIMES 85 %BUILD-RATIO) +(512 COMPLEX 504 COMPLEX 496 COMPLEX 488 COMPLEX 478 COMPLEX 459 COMPLEX 451 COMPLEX 442 IL:FLOATP 425 COMPLEX 417 COMPLEX 409 RATIO 391 COMPLEX 378 COMPLEX 370 COMPLEX 358 COMPLEX 345 RATIO 337 RATIO 329 RATIO 321 RATIO 312 RATIO 299 RATIO 291 RATIO 283 IL:FLOATP 268 RATIO 260 RATIO 241 RATIO 226 COMPLEX 218 COMPLEX 204 COMPLEX 195 RATIO 185 RATIO 176 RATIO 167 IL:FLOATP 151 IL:FLOATP 135 COMPLEX 122 RATIO 114 RATIO 103 RATIO 91 IL:FLOATP 72 IL:MAX.INTEGER 64 IL:MIN.INTEGER 54 IL:MAX.INTEGER 45 IL:MIN.INTEGER) +( 467 0.0 212 0.0) +(IL:PUTPROPS %+ IL:DOPVAL (2 IL:PLUS2)) +(IL:PUTPROPS %- IL:DOPVAL (2 IL:DIFFERENCE)) +(IL:PUTPROPS %* IL:DOPVAL (2 IL:TIMES2)) +(IL:PUTPROPS %+ IL:DMACRO (= . IL:PLUS)) +(IL:PUTPROPS %- IL:DMACRO (= . IL:DIFFERENCE)) +(IL:PUTPROPS %* IL:DMACRO (= . IL:TIMES)) +(IL:MOVD (QUOTE %/) (QUOTE IL:%/)) +(IL:MOVD (QUOTE %+) (QUOTE IL:\\SLOWPLUS2)) +(IL:MOVD (QUOTE %-) (QUOTE IL:\\SLOWDIFFERENCE)) +(IL:MOVD (QUOTE %*) (QUOTE IL:\\SLOWTIMES2)) ++ :D8 +(IL:L (0 ARGS)) .eHjð‘jkalId3¤ ¿JHó‘IIJaÔ¹JkÔZ°ò(26 %NOT-NUMBER-ERROR) +NIL +() +- :D8 +(IL:L (0 ARGS)) 6eHdjð›¿o kð”jkaÕkalJHó‘IIJaÕ¹JkÔZ°ò(19 ERROR) +NIL +( 14 "- requires at least one argument") +* :D8 +(IL:L (0 ARGS)) .eHjð‘kkalId3¤ ¿JHó‘IIJaÖ¹JkÔZ°ò(26 %NOT-NUMBER-ERROR) +NIL +() +/ :D8 +(IL:L (0 ARGS)) =eHdjð›¿o kð—ka kalJHó‘IIJa +¹JkÔZ°î(52 %/ 30 %RECIPROCOL 19 ERROR) +NIL +( 14 "/ requires at least one argument") +1+ :D8 +(IL:L (0 NUMBER)) @kÔNIL +NIL +() +1- :D8 +(IL:L (0 NUMBER)) @kÕNIL +NIL +() +%RECIPROCOL :D8 +(IL:L (0 NUMBER)) @—o@ëk@ +(18 %/) +NIL +( 8 1.0) +|optimize-+| :D8 +(IL:L (2 IL:$$CTX 1 IL:$$ENV 0 IL:$$WHOLE)) %@1Hµj¹HZµI»gIKh¹J°ëNIL +(25 %+) +() +(IL:PUTPROP (QUOTE +) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE |optimize-+|) (GET (QUOTE +) ( +QUOTE COMPILER:OPTIMIZER-LIST)))) +|optimize--| :D8 +(IL:L (2 IL:$$CTX 1 IL:$$ENV 0 IL:$$WHOLE)) 3@QH¹HZ«gjIhI»J\µK½gKMh»L°ëNIL +(38 %- 16 %-) +() +(IL:PUTPROP (QUOTE -) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE |optimize--|) (GET (QUOTE -) ( +QUOTE COMPILER:OPTIMIZER-LIST)))) +|optimize-*| :D8 +(IL:L (2 IL:$$CTX 1 IL:$$ENV 0 IL:$$WHOLE)) %@1Hµk¹HZµI»gIKh¹J°ëNIL +(25 %*) +() +(IL:PUTPROP (QUOTE *) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE |optimize-*|) (GET (QUOTE *) ( +QUOTE COMPILER:OPTIMIZER-LIST)))) +|optimize-/| :D8 +(IL:L (2 IL:$$CTX 1 IL:$$ENV 0 IL:$$WHOLE)) 1@QH¹HZ©gIhI»J\µK½gKMh»L°ëNIL +(36 %/ 16 %RECIPROCOL) +() +(IL:PUTPROP (QUOTE /) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE |optimize-/|) (GET (QUOTE /) ( +QUOTE COMPILER:OPTIMIZER-LIST)))) +|optimize-1+| :D8 +(IL:L (2 IL:$$CTX 1 IL:$$ENV 0 IL:$$WHOLE)) @gHoNIL +(10 +) +( 16 (1)) +(IL:PUTPROP (QUOTE 1+) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE |optimize-1+|) (GET (QUOTE 1+) ( +QUOTE COMPILER:OPTIMIZER-LIST)))) +|optimize-1-| :D8 +(IL:L (2 IL:$$CTX 1 IL:$$ENV 0 IL:$$WHOLE)) @gHoNIL +(10 -) +( 16 (1)) +(IL:PUTPROP (QUOTE 1-) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE |optimize-1-|) (GET (QUOTE 1-) ( +QUOTE COMPILER:OPTIMIZER-LIST)))) +(IL:PUTPROPS + IL:DMACRO (IL:ARGS (IL:|if| (IL:GREATERP (IL:LENGTH IL:ARGS) 1) IL:|then| (IL:BQUOTE ( +IL:PLUS (IL:\\\,@ IL:ARGS))) IL:|else| (QUOTE IL:IGNOREMACRO)))) +(IL:PUTPROPS * IL:DMACRO (IL:ARGS (IL:|if| (IL:GREATERP (IL:LENGTH IL:ARGS) 1) IL:|then| (IL:BQUOTE ( +IL:TIMES (IL:\\\,@ IL:ARGS))) IL:|else| (QUOTE IL:IGNOREMACRO)))) +(IL:MOVD (QUOTE +) (QUOTE IL:PLUS)) +(IL:MOVD (QUOTE *) (QUOTE IL:TIMES)) +%GCD :D8 +(IL:L (1 Y 0 X)) j@ó“j@Õ€@bjAó“jAÕ€Ab@jðAdjð‘@kð£@kð‘kj@kåkð¦Akåkð²H@dkåkð²¿jAÕ°@mÿçb¿Amÿçb¿HkÔ¸°ÎmÿçYdjð”¿@Hçkåkð¦ImÿçY°öIjó“Ib†jIÕb¿@AÕ°ÙNIL +NIL +() +%LCM :D8 +(IL:L (1 Y 0 X)) E@kð‘AAkð‘@@jð£Ajð‘jj@ó“j@Õ€@bjAó“jAÕ€Ab@A +Hkð“@AÖ@HÛAÖ(50 %GCD) +NIL +() +GCD :D8 +(IL:L (0 ARGS)) FeHdjð‘jkðžkajIó“jIÕIkala lJHó¤Idkð‘IJa -¹JkÔZ°ê(61 %GCD 38 %GCD) NIL () LCM :D8 (IL:L (0 ARGS)) PeHdjð›¿o kðžkajIó“jIÕIkala +¹JkÔZ°ê(61 %GCD 38 %GCD) +NIL +() +LCM :D8 +(IL:L (0 ARGS)) PeHdjð›¿o kðžkajIó“jIÕIkala lJHó¤Idjð‘IJa -¹JkÔZ°ê(71 %LCM 48 %LCM 19 ERROR) NIL ( 14 "lcm requires at least one argument") IL:|optimize-MINUS| :D8 (IL:L (2 IL:$$CTX 1 IL:$$ENV 0 IL:$$WHOLE)) @gjHhNIL (10 -) () (IL:PUTPROP (QUOTE IL:MINUS) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE IL:|optimize-MINUS|) (GET (QUOTE IL:MINUS) (QUOTE COMPILER:OPTIMIZER-LIST)))) IL:|optimize-PLUS| :D8 (IL:L (2 IL:$$CTX 1 IL:$$ENV 0 IL:$$WHOLE)) %@1Hµj¹HZµI»gIKh¹J°ëNIL (25 IL:PLUS2) () (IL:PUTPROP (QUOTE IL:PLUS) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE IL:|optimize-PLUS|) (GET ( QUOTE IL:PLUS) (QUOTE COMPILER:OPTIMIZER-LIST)))) IL:|optimize-IPLUS| :D8 (IL:L (2 IL:$$CTX 1 IL:$$ENV 0 IL:$$WHOLE)) 7@1Hµj¹H²HZµI»gIKh¹J°ëgIoNIL (44 IL:IPLUS2 29 IL:IPLUS2) ( 50 (0)) (IL:PUTPROP (QUOTE IL:IPLUS) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE IL:|optimize-IPLUS|) (GET (QUOTE IL:IPLUS) (QUOTE COMPILER:OPTIMIZER-LIST)))) IL:|optimize-FPLUS| :D8 (IL:L (2 IL:$$CTX 1 IL:$$ENV 0 IL:$$WHOLE)) %@1Hµj¹HZµI»gIKh¹J°ëNIL (25 IL:FPLUS2) () (IL:PUTPROP (QUOTE IL:FPLUS) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE IL:|optimize-FPLUS|) (GET (QUOTE IL:FPLUS) (QUOTE COMPILER:OPTIMIZER-LIST)))) IL:|optimize-TIMES| :D8 (IL:L (2 IL:$$CTX 1 IL:$$ENV 0 IL:$$WHOLE)) %@1Hµj¹HZµI»gIKh¹J°ëNIL (25 IL:TIMES2) () (IL:PUTPROP (QUOTE IL:TIMES) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE IL:|optimize-TIMES|) (GET (QUOTE IL:TIMES) (QUOTE COMPILER:OPTIMIZER-LIST)))) IL:|optimize-ITIMES| :D8 (IL:L (2 IL:$$CTX 1 IL:$$ENV 0 IL:$$WHOLE)) %@1Hµj¹HZµI»gIKh¹J°ëNIL (25 IL:ITIMES2) () (IL:PUTPROP (QUOTE IL:ITIMES) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE IL:|optimize-ITIMES|) ( GET (QUOTE IL:ITIMES) (QUOTE COMPILER:OPTIMIZER-LIST)))) IL:|optimize-FTIMES| :D8 (IL:L (2 IL:$$CTX 1 IL:$$ENV 0 IL:$$WHOLE)) )@1Hµo¹HZµI»gIKh¹J°ëNIL (29 IL:FTIMES2) ( 12 1.0) (IL:PUTPROP (QUOTE IL:FTIMES) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE IL:|optimize-FTIMES|) ( GET (QUOTE IL:FTIMES) (QUOTE COMPILER:OPTIMIZER-LIST)))) IL:|optimize-RSH| :D8 (IL:L (2 IL:$$CTX 1 IL:$$ENV 0 IL:$$WHOLE)) !@!H¹HºgIgJhhNIL (22 IL:IMINUS 16 IL:LSH) () (IL:PUTPROP (QUOTE IL:RSH) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE IL:|optimize-RSH|) (GET ( QUOTE IL:RSH) (QUOTE COMPILER:OPTIMIZER-LIST)))) (IL:PUTPROPS IL:PLUS2 IL:DOPVAL (2 IL:PLUS2)) (IL:PUTPROPS IL:IPLUS2 IL:DOPVAL (2 IL:IPLUS2)) (IL:PUTPROPS IL:FPLUS2 IL:DOPVAL (2 IL:FPLUS2)) (IL:PUTPROPS IL:TIMES2 IL:DOPVAL (2 IL:TIMES2)) (IL:PUTPROPS IL:ITIMES2 IL:DOPVAL (2 IL:ITIMES2)) (IL:PUTPROPS IL:FTIMES2 IL:DOPVAL (2 IL:FTIMES2)) ISQRT :D8 (IL:L (0 INTEGER)) r@3 ”j@ó².ggog@g@go ¿@ 1kHkÕmÿççYdHkåkð’mÿ€jçÔºIJÔmÿç»JkÕIó¡IKddÖ@ó³ê¿KY°ç(58 INTEGER-LENGTH 51 ERROR) (40 :MESSAGE 34 :VALUE 28 :NAME 18 :EXPECTED-TYPE 13 XCL:TYPE-MISMATCH) ( 45 "a nonnegative integer" 23 (INTEGER 0)) ABS :D8 (IL:L (0 NUMBER)) o@Hd3 š¿j@ó“j@Õ@òo@ó²ðo@ÕHdò'¿j@Éó²Òj@ÉÕ@É -Ö@ @ (108 %NOT-NUMBER-ERROR 101 %COMPLEX-ABS 88 %MAKE-RATIO) (94 COMPLEX 81 RATIO 72 RATIO 60 RATIO 50 RATIO 24 IL:FLOATP) ( 40 0.0 31 0.0) |expand-%ABS| :D8 (IL:L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) @oHhNIL NIL ( 10 (IL:OPENLAMBDA (X) (IF (< X 0) (- 0 X) X))) (IL:SETF-MACRO-FUNCTION (QUOTE %ABS) (QUOTE |expand-%ABS|)) SIGNUM :D8 (IL:L (0 NUMBER)) Tj@ÿ‘@@HYãI3 ˜@jó‘kmÿHdò¿@jó•ooÃœ@d -@ (81 %NOT-NUMBER-ERROR 74 %/ 69 ABS) (61 COMPLEX 37 IL:FLOATP 16 RATIO) ( 55 -1.0 49 1.0) |expand-%SIGNUM| :D8 (IL:L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) @oHhNIL NIL ( 10 (IL:OPENLAMBDA (X) (COND ((EQ X 0) 0) ((PLUSP X) 1) (T -1)))) (IL:SETF-MACRO-FUNCTION (QUOTE %SIGNUM) (QUOTE |expand-%SIGNUM|)) XCL::STRUNCATE :D8 (IL:L (1 DIVISOR 0 NUMBER)) tAµ9@d׿@ dò¿@É@ÉÛ3 ‘@@ Hd3 ”¿@AÛÚ@íAíìíHÃœ@A - A (113 %NOT-NONCOMPLEX-NUMBER-ERROR 106 XCL::STRUNCATE 101 %/ 56 %NOT-NONCOMPLEX-NUMBER-ERROR 17 IL:\\FIXP.FROM.FLOATP) (93 RATIO 75 IL:FLOATP 41 RATIO 33 RATIO 24 RATIO 9 IL:FLOATP) () XCL::SFLOOR :D8 (IL:L (1 DIVISOR 0 NUMBER)) GA³@ H@ÿ‘Hj@ó²ûHkÕ@A +¹JkÔZ°ê(71 %LCM 48 %LCM 19 ERROR) +NIL +( 14 "lcm requires at least one argument") +IL:|optimize-MINUS| :D8 +(IL:L (2 IL:$$CTX 1 IL:$$ENV 0 IL:$$WHOLE)) @gjHhNIL +(10 -) +() +(IL:PUTPROP (QUOTE IL:MINUS) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE IL:|optimize-MINUS|) (GET +(QUOTE IL:MINUS) (QUOTE COMPILER:OPTIMIZER-LIST)))) +IL:|optimize-PLUS| :D8 +(IL:L (2 IL:$$CTX 1 IL:$$ENV 0 IL:$$WHOLE)) %@1Hµj¹HZµI»gIKh¹J°ëNIL +(25 IL:PLUS2) +() +(IL:PUTPROP (QUOTE IL:PLUS) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE IL:|optimize-PLUS|) (GET ( +QUOTE IL:PLUS) (QUOTE COMPILER:OPTIMIZER-LIST)))) +IL:|optimize-IPLUS| :D8 +(IL:L (2 IL:$$CTX 1 IL:$$ENV 0 IL:$$WHOLE)) 7@1Hµj¹H²HZµI»gIKh¹J°ëgIoNIL +(44 IL:IPLUS2 29 IL:IPLUS2) +( 50 (0)) +(IL:PUTPROP (QUOTE IL:IPLUS) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE IL:|optimize-IPLUS|) (GET +(QUOTE IL:IPLUS) (QUOTE COMPILER:OPTIMIZER-LIST)))) +IL:|optimize-FPLUS| :D8 +(IL:L (2 IL:$$CTX 1 IL:$$ENV 0 IL:$$WHOLE)) %@1Hµj¹HZµI»gIKh¹J°ëNIL +(25 IL:FPLUS2) +() +(IL:PUTPROP (QUOTE IL:FPLUS) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE IL:|optimize-FPLUS|) (GET +(QUOTE IL:FPLUS) (QUOTE COMPILER:OPTIMIZER-LIST)))) +IL:|optimize-TIMES| :D8 +(IL:L (2 IL:$$CTX 1 IL:$$ENV 0 IL:$$WHOLE)) %@1Hµj¹HZµI»gIKh¹J°ëNIL +(25 IL:TIMES2) +() +(IL:PUTPROP (QUOTE IL:TIMES) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE IL:|optimize-TIMES|) (GET +(QUOTE IL:TIMES) (QUOTE COMPILER:OPTIMIZER-LIST)))) +IL:|optimize-ITIMES| :D8 +(IL:L (2 IL:$$CTX 1 IL:$$ENV 0 IL:$$WHOLE)) %@1Hµj¹HZµI»gIKh¹J°ëNIL +(25 IL:ITIMES2) +() +(IL:PUTPROP (QUOTE IL:ITIMES) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE IL:|optimize-ITIMES|) ( +GET (QUOTE IL:ITIMES) (QUOTE COMPILER:OPTIMIZER-LIST)))) +IL:|optimize-FTIMES| :D8 +(IL:L (2 IL:$$CTX 1 IL:$$ENV 0 IL:$$WHOLE)) )@1Hµo¹HZµI»gIKh¹J°ëNIL +(29 IL:FTIMES2) +( 12 1.0) +(IL:PUTPROP (QUOTE IL:FTIMES) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE IL:|optimize-FTIMES|) ( +GET (QUOTE IL:FTIMES) (QUOTE COMPILER:OPTIMIZER-LIST)))) +IL:|optimize-RSH| :D8 +(IL:L (2 IL:$$CTX 1 IL:$$ENV 0 IL:$$WHOLE)) !@!H¹HºgIgJhhNIL +(22 IL:IMINUS 16 IL:LSH) +() +(IL:PUTPROP (QUOTE IL:RSH) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE IL:|optimize-RSH|) (GET ( +QUOTE IL:RSH) (QUOTE COMPILER:OPTIMIZER-LIST)))) +(IL:PUTPROPS IL:PLUS2 IL:DOPVAL (2 IL:PLUS2)) +(IL:PUTPROPS IL:IPLUS2 IL:DOPVAL (2 IL:IPLUS2)) +(IL:PUTPROPS IL:FPLUS2 IL:DOPVAL (2 IL:FPLUS2)) +(IL:PUTPROPS IL:TIMES2 IL:DOPVAL (2 IL:TIMES2)) +(IL:PUTPROPS IL:ITIMES2 IL:DOPVAL (2 IL:ITIMES2)) +(IL:PUTPROPS IL:FTIMES2 IL:DOPVAL (2 IL:FTIMES2)) +ISQRT :D8 +(IL:L (0 INTEGER)) r@3 ”j@ó².ggog@g@go ¿@ 1kHkÕmÿççYdHkåkð’mÿ€jçÔºIJÔmÿç»JkÕIó¡IKddÖ@ó³ê¿KY°ç(58 INTEGER-LENGTH 51 ERROR) +(40 :MESSAGE 34 :VALUE 28 :NAME 18 :EXPECTED-TYPE 13 XCL:TYPE-MISMATCH) +( 45 "a nonnegative integer" 23 (INTEGER 0)) +ABS :D8 +(IL:L (0 NUMBER)) o@Hd3 š¿j@ó“j@Õ@òo@ó²ðo@ÕHdò'¿j@Éó²Òj@ÉÕ@É +Ö@ @ (108 %NOT-NUMBER-ERROR 101 %COMPLEX-ABS 88 %MAKE-RATIO) +(94 COMPLEX 81 RATIO 72 RATIO 60 RATIO 50 RATIO 24 IL:FLOATP) +( 40 0.0 31 0.0) +|expand-%ABS| :D8 +(IL:L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) @oHhNIL +NIL +( 10 (IL:OPENLAMBDA (X) (IF (< X 0) (- 0 X) X))) +(IL:SETF-MACRO-FUNCTION (QUOTE %ABS) (QUOTE |expand-%ABS|)) +SIGNUM :D8 +(IL:L (0 NUMBER)) Tj@ÿ‘@@HYãI3 ˜@jó‘kmÿHdò¿@jó•ooÃœ@d +@ (81 %NOT-NUMBER-ERROR 74 %/ 69 ABS) +(61 COMPLEX 37 IL:FLOATP 16 RATIO) +( 55 -1.0 49 1.0) +|expand-%SIGNUM| :D8 +(IL:L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) @oHhNIL +NIL +( 10 (IL:OPENLAMBDA (X) (COND ((EQ X 0) 0) ((PLUSP X) 1) (T -1)))) +(IL:SETF-MACRO-FUNCTION (QUOTE %SIGNUM) (QUOTE |expand-%SIGNUM|)) +XCL::STRUNCATE :D8 +(IL:L (1 DIVISOR 0 NUMBER)) tAµ9@d׿@ dò¿@É@ÉÛ3 ‘@@ Hd3 ”¿@AÛÚ@íAíìíHÃœ@A + A (113 %NOT-NONCOMPLEX-NUMBER-ERROR 106 XCL::STRUNCATE 101 %/ 56 %NOT-NONCOMPLEX-NUMBER-ERROR 17 IL:\\FIXP.FROM.FLOATP) +(93 RATIO 75 IL:FLOATP 41 RATIO 33 RATIO 24 RATIO 9 IL:FLOATP) +() +XCL::SFLOOR :D8 +(IL:L (1 DIVISOR 0 NUMBER)) GA³@ H@ÿ‘Hj@ó²ûHkÕ@A @A -jÿ‘Hjd@ó—Aó³÷HkÕAó²ïHkÕ(43 REM 33 XCL::STRUNCATE 8 XCL::STRUNCATE) NIL () XCL::SCEILING :D8 (IL:L (1 DIVISOR 0 NUMBER)) BA³@ H@ÿ‘Hj@ó³ûHkÔ@A +jÿ‘Hjd@ó—Aó³÷HkÕAó²ïHkÕ(43 REM 33 XCL::STRUNCATE 8 XCL::STRUNCATE) +NIL +() +XCL::SCEILING :D8 +(IL:L (1 DIVISOR 0 NUMBER)) BA³@ H@ÿ‘Hj@ó³ûHkÔ@A @A -jÿ¯jd@ó–Aó—HkÔAó²úH(43 REM 33 XCL::STRUNCATE 8 XCL::STRUNCATE) NIL () XCL::SROUND :D8 (IL:L (1 DIVISOR 0 NUMBER)) )A¦@ @µA˜@Aë @A - (38 IL:FIXR 33 %/ 25 IL:FIXR 7 IL:FIXR) NIL () XCL::|optimize-STRUNCATE| :D8 (IL:L (2 IL:$$CTX 1 IL:$$ENV 0 IL:$$WHOLE)) $@!H¹HdZ3 ›gIJhgNIL (33 COMPILER:PASS 21 IL:IQUOTIENT) () (IL:PUTPROP (QUOTE XCL::STRUNCATE) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE XCL::|optimize-STRUNCATE|) (GET (QUOTE XCL::STRUNCATE) (QUOTE COMPILER:OPTIMIZER-LIST)))) XCL::|optimize-SROUND| :D8 (IL:L (2 IL:$$CTX 1 IL:$$ENV 0 IL:$$WHOLE)) @!H¹HZ‘J©gIhgNIL (28 COMPILER:PASS 18 IL:FIXR) () (IL:PUTPROP (QUOTE XCL::SROUND) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE XCL::|optimize-SROUND|) (GET (QUOTE XCL::SROUND) (QUOTE COMPILER:OPTIMIZER-LIST)))) TRUNCATE :D8 (IL:L (1 DIVISOR 0 NUMBER)) %A¦@ †@A -A¢@Hƒ@AHÖÕ¹HI$(15 XCL::STRUNCATE 7 XCL::STRUNCATE) NIL () FLOOR :D8 (IL:L (1 DIVISOR 0 NUMBER)) %A¦@ †@A -A¢@Hƒ@AHÖÕ¹HI$(15 XCL::SFLOOR 7 XCL::SFLOOR) NIL () CEILING :D8 (IL:L (1 DIVISOR 0 NUMBER)) %A¦@ †@A -A¢@Hƒ@AHÖÕ¹HI$(15 XCL::SCEILING 7 XCL::SCEILING) NIL () ROUND :D8 (IL:L (1 DIVISOR 0 NUMBER)) %A¦@ †@A -A¢@Hƒ@AHÖÕ¹HI$(15 XCL::SROUND 7 IL:FIXR) NIL () %INTEGER-COERCE-OPTIMIZER :D8 (IL:L (4 FLOAT-RESULT 3 CONTEXT 2 DIVISOR 1 NUMBER 0 SINGLE-VALUE-FN)) -CÉkð²@ABd‘hD™gHhHgNIL (42 COMPILER:PASS 30 FLOAT 5 COMPILER:CONTEXT) () |optimize-TRUNCATE| :D8 (IL:L (2 IL:$$CTX 1 IL:$$ENV 0 IL:$$WHOLE)) @1H¹HdºB»gIJK (28 %INTEGER-COERCE-OPTIMIZER) (20 XCL::STRUNCATE) () (IL:PUTPROP (QUOTE TRUNCATE) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE |optimize-TRUNCATE|) (GET (QUOTE TRUNCATE) (QUOTE COMPILER:OPTIMIZER-LIST)))) |optimize-FLOOR| :D8 (IL:L (2 IL:$$CTX 1 IL:$$ENV 0 IL:$$WHOLE)) @1H¹HdºB»gIJK (28 %INTEGER-COERCE-OPTIMIZER) (20 XCL::SFLOOR) () (IL:PUTPROP (QUOTE FLOOR) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE |optimize-FLOOR|) (GET (QUOTE FLOOR) (QUOTE COMPILER:OPTIMIZER-LIST)))) |optimize-CEILING| :D8 (IL:L (2 IL:$$CTX 1 IL:$$ENV 0 IL:$$WHOLE)) @1H¹HdºB»gIJK (28 %INTEGER-COERCE-OPTIMIZER) (20 XCL::SCEILING) () (IL:PUTPROP (QUOTE CEILING) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE |optimize-CEILING|) (GET ( QUOTE CEILING) (QUOTE COMPILER:OPTIMIZER-LIST)))) |optimize-ROUND| :D8 (IL:L (2 IL:$$CTX 1 IL:$$ENV 0 IL:$$WHOLE)) @1H¹HdºB»gIJK (28 %INTEGER-COERCE-OPTIMIZER) (20 XCL::SROUND) () (IL:PUTPROP (QUOTE ROUND) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE |optimize-ROUND|) (GET (QUOTE ROUND) (QUOTE COMPILER:OPTIMIZER-LIST)))) FTRUNCATE :D8 (IL:L (1 DIVISOR 0 NUMBER)) *A¦@ †@A -A¢@Hƒ@AHÖÕ¹HI$(15 XCL::STRUNCATE 7 XCL::STRUNCATE) (35 IL:FLOATP) () FFLOOR :D8 (IL:L (1 DIVISOR 0 NUMBER)) *A¦@ †@A -A¢@Hƒ@AHÖÕ¹HI$(15 XCL::SFLOOR 7 XCL::SFLOOR) (35 IL:FLOATP) () FCEILING :D8 (IL:L (1 DIVISOR 0 NUMBER)) *A¦@ †@A -A¢@Hƒ@AHÖÕ¹HI$(15 XCL::SCEILING 7 XCL::SCEILING) (35 IL:FLOATP) () FROUND :D8 (IL:L (1 DIVISOR 0 NUMBER)) *A¦@ †@A -A¢@Hƒ@AHÖÕ¹HI$(15 XCL::SROUND 7 IL:FIXR) (35 IL:FLOATP) () |optimize-FTRUNCATE| :D8 (IL:L (2 IL:$$CTX 1 IL:$$ENV 0 IL:$$WHOLE)) !@1H¹HdºB»gIJKi (30 %INTEGER-COERCE-OPTIMIZER) (20 XCL::STRUNCATE) () (IL:PUTPROP (QUOTE FTRUNCATE) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE |optimize-FTRUNCATE|) ( GET (QUOTE FTRUNCATE) (QUOTE COMPILER:OPTIMIZER-LIST)))) |optimize-FFLOOR| :D8 (IL:L (2 IL:$$CTX 1 IL:$$ENV 0 IL:$$WHOLE)) !@1H¹HdºB»gIJKi (30 %INTEGER-COERCE-OPTIMIZER) (20 XCL::SFLOOR) () (IL:PUTPROP (QUOTE FFLOOR) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE |optimize-FFLOOR|) (GET ( QUOTE FFLOOR) (QUOTE COMPILER:OPTIMIZER-LIST)))) |optimize-FCEILING| :D8 (IL:L (2 IL:$$CTX 1 IL:$$ENV 0 IL:$$WHOLE)) !@1H¹HdºB»gIJKi (30 %INTEGER-COERCE-OPTIMIZER) (20 XCL::SCEILING) () (IL:PUTPROP (QUOTE FCEILING) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE |optimize-FCEILING|) (GET (QUOTE FCEILING) (QUOTE COMPILER:OPTIMIZER-LIST)))) |optimize-FROUND| :D8 (IL:L (2 IL:$$CTX 1 IL:$$ENV 0 IL:$$WHOLE)) !@1H¹HdºB»gIJKi (30 %INTEGER-COERCE-OPTIMIZER) (20 XCL::SROUND) () (IL:PUTPROP (QUOTE FROUND) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE |optimize-FROUND|) (GET ( QUOTE FROUND) (QUOTE COMPILER:OPTIMIZER-LIST)))) MOD :D8 (IL:L (1 DIVISOR 0 NUMBER)) l@µA²D@íAíhHdIìíIíÖíìZddh첿hIì´Hh€Hì™JíIíÔí€Jí@A -jHÿ®jAó’@jj@ó“HAÔH(82 REM) (31 IL:FLOATP) () REM :D8 (IL:L (1 DIVISOR 0 NUMBER)) D@d3 ™¿A3 “@AÜ@¤A²"@íAíHdIìíIíÖíìí@A@A -ÖÕ(63 XCL::STRUNCATE) (43 IL:FLOATP) () %LOGICAL-OPTIMIZER :D8 (IL:L (4 MORE-INTEGERS 3 SECOND-INTEGER 2 FIRST-INTEGER 1 IDENTITY 0 BINARY-LOGICAL-FN)) 1B¡AC¡BD§@BCh@BCh!DYµHº@HJh¸I°ïNIL NIL () |optimize-LOGXOR| :D8 (IL:L (2 IL:$$CTX 1 IL:$$ENV 0 IL:$$WHOLE) IL:F 5 COMPILER::*NEW-COMPILER-IS-EXPANDING*) ,@AH¹HZ»J¼U²LŸgjIKL g(35 %LOGICAL-OPTIMIZER) (41 COMPILER:PASS 25 LOGXOR) () (IL:PUTPROP (QUOTE LOGXOR) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE |optimize-LOGXOR|) (GET ( QUOTE LOGXOR) (QUOTE COMPILER:OPTIMIZER-LIST)))) |optimize-LOGAND| :D8 (IL:L (2 IL:$$CTX 1 IL:$$ENV 0 IL:$$WHOLE) IL:F 5 COMPILER::*NEW-COMPILER-IS-EXPANDING*) .@AH¹HZ»J¼U²L²gmÿIKL g(37 %LOGICAL-OPTIMIZER) (43 COMPILER:PASS 26 LOGAND) () (IL:PUTPROP (QUOTE LOGAND) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE |optimize-LOGAND|) (GET ( QUOTE LOGAND) (QUOTE COMPILER:OPTIMIZER-LIST)))) %LOGIOR :D8 (IL:L (1 Y 0 X)) @AäNIL NIL () |expand-%LOGEQV| :D8 (IL:L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) !@!H¹HºggIJhhNIL (21 LOGXOR 16 LOGNOT) () (IL:SETF-MACRO-FUNCTION (QUOTE %LOGEQV) (QUOTE |expand-%LOGEQV|)) (IL:PUTPROPS %LOGIOR IL:DOPVAL (2 IL:LOGOR2)) (IL:PUTPROPS %LOGIOR IL:DMACRO (= . IL:LOGOR)) LOGIOR :D8 (IL:L (0 ARGS)) ;eHdjð‘jdkð“¿kalð–kalaäkalaälJHó‘IIJaä¹JkÔZ°òNIL NIL () LOGEQV :D8 (IL:L (0 ARGS)) EeHdjð’mÿdkð“¿kalð™kalamÿæækalamÿæælJHó‘IIJamÿææ¹JkÔZ°ïNIL NIL () |optimize-LOGIOR| :D8 (IL:L (2 IL:$$CTX 1 IL:$$ENV 0 IL:$$WHOLE)) !@AH¹HZ»J¼gjIKL (30 %LOGICAL-OPTIMIZER) (20 %LOGIOR) () (IL:PUTPROP (QUOTE LOGIOR) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE |optimize-LOGIOR|) (GET ( QUOTE LOGIOR) (QUOTE COMPILER:OPTIMIZER-LIST)))) |optimize-LOGEQV| :D8 (IL:L (2 IL:$$CTX 1 IL:$$ENV 0 IL:$$WHOLE)) "@AH¹HZ»J¼gmÿIKL (31 %LOGICAL-OPTIMIZER) (20 %LOGEQV) () (IL:PUTPROP (QUOTE LOGEQV) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE |optimize-LOGEQV|) (GET ( QUOTE LOGEQV) (QUOTE COMPILER:OPTIMIZER-LIST)))) LOGNAND :D8 (IL:L (1 INTEGER2 0 INTEGER1)) @AåmÿæNIL NIL () LOGNOR :D8 (IL:L (1 INTEGER2 0 INTEGER1)) @AämÿæNIL NIL () LOGANDC1 :D8 (IL:L (1 INTEGER2 0 INTEGER1)) @mÿæAåNIL NIL () LOGANDC2 :D8 (IL:L (1 INTEGER2 0 INTEGER1)) @AmÿæåNIL NIL () LOGORC1 :D8 (IL:L (1 INTEGER2 0 INTEGER1)) @mÿæAäNIL NIL () LOGORC2 :D8 (IL:L (1 INTEGER2 0 INTEGER1)) @AmÿæäNIL NIL () |optimize-LOGNAND| :D8 (IL:L (2 IL:$$CTX 1 IL:$$ENV 0 IL:$$WHOLE)) !@!H¹HºggIJhhNIL (21 LOGAND 16 LOGNOT) () (IL:PUTPROP (QUOTE LOGNAND) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE |optimize-LOGNAND|) (GET ( QUOTE LOGNAND) (QUOTE COMPILER:OPTIMIZER-LIST)))) |optimize-LOGNOR| :D8 (IL:L (2 IL:$$CTX 1 IL:$$ENV 0 IL:$$WHOLE)) !@!H¹HºggIJhhNIL (21 LOGIOR 16 LOGNOT) () (IL:PUTPROP (QUOTE LOGNOR) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE |optimize-LOGNOR|) (GET ( QUOTE LOGNOR) (QUOTE COMPILER:OPTIMIZER-LIST)))) |optimize-LOGANDC1| :D8 (IL:L (2 IL:$$CTX 1 IL:$$ENV 0 IL:$$WHOLE)) !@!H¹HºggIhJhNIL (21 LOGNOT 16 LOGAND) () (IL:PUTPROP (QUOTE LOGANDC1) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE |optimize-LOGANDC1|) (GET (QUOTE LOGANDC1) (QUOTE COMPILER:OPTIMIZER-LIST)))) |optimize-LOGANDC2| :D8 (IL:L (2 IL:$$CTX 1 IL:$$ENV 0 IL:$$WHOLE)) !@!H¹HºgIgJhhNIL (22 LOGNOT 16 LOGAND) () (IL:PUTPROP (QUOTE LOGANDC2) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE |optimize-LOGANDC2|) (GET (QUOTE LOGANDC2) (QUOTE COMPILER:OPTIMIZER-LIST)))) |optimize-LOGORC1| :D8 (IL:L (2 IL:$$CTX 1 IL:$$ENV 0 IL:$$WHOLE)) !@!H¹HºggIhJhNIL (21 LOGNOT 16 LOGIOR) () (IL:PUTPROP (QUOTE LOGORC1) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE |optimize-LOGORC1|) (GET ( QUOTE LOGORC1) (QUOTE COMPILER:OPTIMIZER-LIST)))) |optimize-LOGORC2| :D8 (IL:L (2 IL:$$CTX 1 IL:$$ENV 0 IL:$$WHOLE)) !@!H¹HºgIgJhhNIL (22 LOGNOT 16 LOGIOR) () (IL:PUTPROP (QUOTE LOGORC2) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE |optimize-LOGORC2|) (GET ( QUOTE LOGORC2) (QUOTE COMPILER:OPTIMIZER-LIST)))) (XCL::SET-CONSTANTP (QUOTE BOOLE-CLR) NIL) (IL:SETQ BOOLE-CLR 0) (PROCLAIM (QUOTE (SI::CONSTANT BOOLE-CLR))) (XCL::SET-CONSTANTP (QUOTE BOOLE-SET) NIL) (IL:SETQ BOOLE-SET 1) (PROCLAIM (QUOTE (SI::CONSTANT BOOLE-SET))) (XCL::SET-CONSTANTP (QUOTE BOOLE-1) NIL) (IL:SETQ BOOLE-1 2) (PROCLAIM (QUOTE (SI::CONSTANT BOOLE-1))) (XCL::SET-CONSTANTP (QUOTE BOOLE-2) NIL) (IL:SETQ BOOLE-2 3) (PROCLAIM (QUOTE (SI::CONSTANT BOOLE-2))) (XCL::SET-CONSTANTP (QUOTE BOOLE-C1) NIL) (IL:SETQ BOOLE-C1 4) (PROCLAIM (QUOTE (SI::CONSTANT BOOLE-C1))) (XCL::SET-CONSTANTP (QUOTE BOOLE-C2) NIL) (IL:SETQ BOOLE-C2 5) (PROCLAIM (QUOTE (SI::CONSTANT BOOLE-C2))) (XCL::SET-CONSTANTP (QUOTE BOOLE-AND) NIL) (IL:SETQ BOOLE-AND 6) (PROCLAIM (QUOTE (SI::CONSTANT BOOLE-AND))) (XCL::SET-CONSTANTP (QUOTE BOOLE-IOR) NIL) (IL:SETQ BOOLE-IOR 7) (PROCLAIM (QUOTE (SI::CONSTANT BOOLE-IOR))) (XCL::SET-CONSTANTP (QUOTE BOOLE-XOR) NIL) (IL:SETQ BOOLE-XOR 8) (PROCLAIM (QUOTE (SI::CONSTANT BOOLE-XOR))) (XCL::SET-CONSTANTP (QUOTE BOOLE-EQV) NIL) (IL:SETQ BOOLE-EQV 9) (PROCLAIM (QUOTE (SI::CONSTANT BOOLE-EQV))) (XCL::SET-CONSTANTP (QUOTE BOOLE-NAND) NIL) (IL:SETQ BOOLE-NAND 10) (PROCLAIM (QUOTE (SI::CONSTANT BOOLE-NAND))) (XCL::SET-CONSTANTP (QUOTE BOOLE-NOR) NIL) (IL:SETQ BOOLE-NOR 11) (PROCLAIM (QUOTE (SI::CONSTANT BOOLE-NOR))) (XCL::SET-CONSTANTP (QUOTE BOOLE-ANDC1) NIL) (IL:SETQ BOOLE-ANDC1 12) (PROCLAIM (QUOTE (SI::CONSTANT BOOLE-ANDC1))) (XCL::SET-CONSTANTP (QUOTE BOOLE-ANDC2) NIL) (IL:SETQ BOOLE-ANDC2 13) (PROCLAIM (QUOTE (SI::CONSTANT BOOLE-ANDC2))) (XCL::SET-CONSTANTP (QUOTE BOOLE-ORC1) NIL) (IL:SETQ BOOLE-ORC1 14) (PROCLAIM (QUOTE (SI::CONSTANT BOOLE-ORC1))) (XCL::SET-CONSTANTP (QUOTE BOOLE-ORC2) NIL) (IL:SETQ BOOLE-ORC2 15) (PROCLAIM (QUOTE (SI::CONSTANT BOOLE-ORC2))) BOOLE :D8 (IL:L (2 INTEGER2 1 INTEGER1 0 OP)) °@djð‘jdkð’mÿlð‘A@dlð‘Blð”Amÿæ@dlð•¿Bmÿælð“ABå@dlð”¿ABälð“ABæ@dl ð—¿ABmÿææl +jÿ¯jd@ó–Aó—HkÔAó²úH(43 REM 33 XCL::STRUNCATE 8 XCL::STRUNCATE) +NIL +() +XCL::SROUND :D8 +(IL:L (1 DIVISOR 0 NUMBER)) )A¦@ @µA˜@Aë @A + (38 IL:FIXR 33 %/ 25 IL:FIXR 7 IL:FIXR) +NIL +() +XCL::|optimize-STRUNCATE| :D8 +(IL:L (2 IL:$$CTX 1 IL:$$ENV 0 IL:$$WHOLE)) $@!H¹HdZ3 ›gIJhgNIL +(33 COMPILER:PASS 21 IL:IQUOTIENT) +() +(IL:PUTPROP (QUOTE XCL::STRUNCATE) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE +XCL::|optimize-STRUNCATE|) (GET (QUOTE XCL::STRUNCATE) (QUOTE COMPILER:OPTIMIZER-LIST)))) +XCL::|optimize-SROUND| :D8 +(IL:L (2 IL:$$CTX 1 IL:$$ENV 0 IL:$$WHOLE)) @!H¹HZ‘J©gIhgNIL +(28 COMPILER:PASS 18 IL:FIXR) +() +(IL:PUTPROP (QUOTE XCL::SROUND) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE XCL::|optimize-SROUND|) + (GET (QUOTE XCL::SROUND) (QUOTE COMPILER:OPTIMIZER-LIST)))) +TRUNCATE :D8 +(IL:L (1 DIVISOR 0 NUMBER)) %A¦@ †@A +A¢@Hƒ@AHÖÕ¹HI$(15 XCL::STRUNCATE 7 XCL::STRUNCATE) +NIL +() +FLOOR :D8 +(IL:L (1 DIVISOR 0 NUMBER)) %A¦@ †@A +A¢@Hƒ@AHÖÕ¹HI$(15 XCL::SFLOOR 7 XCL::SFLOOR) +NIL +() +CEILING :D8 +(IL:L (1 DIVISOR 0 NUMBER)) %A¦@ †@A +A¢@Hƒ@AHÖÕ¹HI$(15 XCL::SCEILING 7 XCL::SCEILING) +NIL +() +ROUND :D8 +(IL:L (1 DIVISOR 0 NUMBER)) %A¦@ †@A +A¢@Hƒ@AHÖÕ¹HI$(15 XCL::SROUND 7 IL:FIXR) +NIL +() +%INTEGER-COERCE-OPTIMIZER :D8 +(IL:L (4 FLOAT-RESULT 3 CONTEXT 2 DIVISOR 1 NUMBER 0 SINGLE-VALUE-FN)) -CÉkð²@ABd‘hD™gHhHgNIL +(42 COMPILER:PASS 30 FLOAT 5 COMPILER:CONTEXT) +() +|optimize-TRUNCATE| :D8 +(IL:L (2 IL:$$CTX 1 IL:$$ENV 0 IL:$$WHOLE)) @1H¹HdºB»gIJK (28 %INTEGER-COERCE-OPTIMIZER) +(20 XCL::STRUNCATE) +() +(IL:PUTPROP (QUOTE TRUNCATE) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE |optimize-TRUNCATE|) (GET +(QUOTE TRUNCATE) (QUOTE COMPILER:OPTIMIZER-LIST)))) +|optimize-FLOOR| :D8 +(IL:L (2 IL:$$CTX 1 IL:$$ENV 0 IL:$$WHOLE)) @1H¹HdºB»gIJK (28 %INTEGER-COERCE-OPTIMIZER) +(20 XCL::SFLOOR) +() +(IL:PUTPROP (QUOTE FLOOR) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE |optimize-FLOOR|) (GET (QUOTE + FLOOR) (QUOTE COMPILER:OPTIMIZER-LIST)))) +|optimize-CEILING| :D8 +(IL:L (2 IL:$$CTX 1 IL:$$ENV 0 IL:$$WHOLE)) @1H¹HdºB»gIJK (28 %INTEGER-COERCE-OPTIMIZER) +(20 XCL::SCEILING) +() +(IL:PUTPROP (QUOTE CEILING) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE |optimize-CEILING|) (GET ( +QUOTE CEILING) (QUOTE COMPILER:OPTIMIZER-LIST)))) +|optimize-ROUND| :D8 +(IL:L (2 IL:$$CTX 1 IL:$$ENV 0 IL:$$WHOLE)) @1H¹HdºB»gIJK (28 %INTEGER-COERCE-OPTIMIZER) +(20 XCL::SROUND) +() +(IL:PUTPROP (QUOTE ROUND) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE |optimize-ROUND|) (GET (QUOTE + ROUND) (QUOTE COMPILER:OPTIMIZER-LIST)))) +FTRUNCATE :D8 +(IL:L (1 DIVISOR 0 NUMBER)) *A¦@ †@A +A¢@Hƒ@AHÖÕ¹HI$(15 XCL::STRUNCATE 7 XCL::STRUNCATE) +(35 IL:FLOATP) +() +FFLOOR :D8 +(IL:L (1 DIVISOR 0 NUMBER)) *A¦@ †@A +A¢@Hƒ@AHÖÕ¹HI$(15 XCL::SFLOOR 7 XCL::SFLOOR) +(35 IL:FLOATP) +() +FCEILING :D8 +(IL:L (1 DIVISOR 0 NUMBER)) *A¦@ †@A +A¢@Hƒ@AHÖÕ¹HI$(15 XCL::SCEILING 7 XCL::SCEILING) +(35 IL:FLOATP) +() +FROUND :D8 +(IL:L (1 DIVISOR 0 NUMBER)) *A¦@ †@A +A¢@Hƒ@AHÖÕ¹HI$(15 XCL::SROUND 7 IL:FIXR) +(35 IL:FLOATP) +() +|optimize-FTRUNCATE| :D8 +(IL:L (2 IL:$$CTX 1 IL:$$ENV 0 IL:$$WHOLE)) !@1H¹HdºB»gIJKi (30 %INTEGER-COERCE-OPTIMIZER) +(20 XCL::STRUNCATE) +() +(IL:PUTPROP (QUOTE FTRUNCATE) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE |optimize-FTRUNCATE|) ( +GET (QUOTE FTRUNCATE) (QUOTE COMPILER:OPTIMIZER-LIST)))) +|optimize-FFLOOR| :D8 +(IL:L (2 IL:$$CTX 1 IL:$$ENV 0 IL:$$WHOLE)) !@1H¹HdºB»gIJKi (30 %INTEGER-COERCE-OPTIMIZER) +(20 XCL::SFLOOR) +() +(IL:PUTPROP (QUOTE FFLOOR) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE |optimize-FFLOOR|) (GET ( +QUOTE FFLOOR) (QUOTE COMPILER:OPTIMIZER-LIST)))) +|optimize-FCEILING| :D8 +(IL:L (2 IL:$$CTX 1 IL:$$ENV 0 IL:$$WHOLE)) !@1H¹HdºB»gIJKi (30 %INTEGER-COERCE-OPTIMIZER) +(20 XCL::SCEILING) +() +(IL:PUTPROP (QUOTE FCEILING) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE |optimize-FCEILING|) (GET +(QUOTE FCEILING) (QUOTE COMPILER:OPTIMIZER-LIST)))) +|optimize-FROUND| :D8 +(IL:L (2 IL:$$CTX 1 IL:$$ENV 0 IL:$$WHOLE)) !@1H¹HdºB»gIJKi (30 %INTEGER-COERCE-OPTIMIZER) +(20 XCL::SROUND) +() +(IL:PUTPROP (QUOTE FROUND) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE |optimize-FROUND|) (GET ( +QUOTE FROUND) (QUOTE COMPILER:OPTIMIZER-LIST)))) +MOD :D8 +(IL:L (1 DIVISOR 0 NUMBER)) l@µA²D@íAíhHdIìíIíÖíìZddh첿hIì´Hh€Hì™JíIíÔí€Jí@A +jHÿ®jAó’@jj@ó“HAÔH(82 REM) +(31 IL:FLOATP) +() +REM :D8 +(IL:L (1 DIVISOR 0 NUMBER)) D@d3 ™¿A3 “@AÜ@¤A²"@íAíHdIìíIíÖíìí@A@A +ÖÕ(63 XCL::STRUNCATE) +(43 IL:FLOATP) +() +%LOGICAL-OPTIMIZER :D8 +(IL:L (4 MORE-INTEGERS 3 SECOND-INTEGER 2 FIRST-INTEGER 1 IDENTITY 0 BINARY-LOGICAL-FN)) 1B¡AC¡BD§@BCh@BCh!DYµHº@HJh¸I°ïNIL +NIL +() +|optimize-LOGXOR| :D8 +(IL:L (2 IL:$$CTX 1 IL:$$ENV 0 IL:$$WHOLE) IL:F 5 COMPILER::*NEW-COMPILER-IS-EXPANDING*) ,@AH¹HZ»J¼U²LŸgjIKL g(35 %LOGICAL-OPTIMIZER) +(41 COMPILER:PASS 25 LOGXOR) +() +(IL:PUTPROP (QUOTE LOGXOR) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE |optimize-LOGXOR|) (GET ( +QUOTE LOGXOR) (QUOTE COMPILER:OPTIMIZER-LIST)))) +|optimize-LOGAND| :D8 +(IL:L (2 IL:$$CTX 1 IL:$$ENV 0 IL:$$WHOLE) IL:F 5 COMPILER::*NEW-COMPILER-IS-EXPANDING*) .@AH¹HZ»J¼U²L²gmÿIKL g(37 %LOGICAL-OPTIMIZER) +(43 COMPILER:PASS 26 LOGAND) +() +(IL:PUTPROP (QUOTE LOGAND) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE |optimize-LOGAND|) (GET ( +QUOTE LOGAND) (QUOTE COMPILER:OPTIMIZER-LIST)))) +%LOGIOR :D8 +(IL:L (1 Y 0 X)) @AäNIL +NIL +() +|expand-%LOGEQV| :D8 +(IL:L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) !@!H¹HºggIJhhNIL +(21 LOGXOR 16 LOGNOT) +() +(IL:SETF-MACRO-FUNCTION (QUOTE %LOGEQV) (QUOTE |expand-%LOGEQV|)) +(IL:PUTPROPS %LOGIOR IL:DOPVAL (2 IL:LOGOR2)) +(IL:PUTPROPS %LOGIOR IL:DMACRO (= . IL:LOGOR)) +LOGIOR :D8 +(IL:L (0 ARGS)) ;eHdjð‘jdkð“¿kalð–kalaäkalaälJHó‘IIJaä¹JkÔZ°òNIL +NIL +() +LOGEQV :D8 +(IL:L (0 ARGS)) EeHdjð’mÿdkð“¿kalð™kalamÿæækalamÿæælJHó‘IIJamÿææ¹JkÔZ°ïNIL +NIL +() +|optimize-LOGIOR| :D8 +(IL:L (2 IL:$$CTX 1 IL:$$ENV 0 IL:$$WHOLE)) !@AH¹HZ»J¼gjIKL (30 %LOGICAL-OPTIMIZER) +(20 %LOGIOR) +() +(IL:PUTPROP (QUOTE LOGIOR) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE |optimize-LOGIOR|) (GET ( +QUOTE LOGIOR) (QUOTE COMPILER:OPTIMIZER-LIST)))) +|optimize-LOGEQV| :D8 +(IL:L (2 IL:$$CTX 1 IL:$$ENV 0 IL:$$WHOLE)) "@AH¹HZ»J¼gmÿIKL (31 %LOGICAL-OPTIMIZER) +(20 %LOGEQV) +() +(IL:PUTPROP (QUOTE LOGEQV) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE |optimize-LOGEQV|) (GET ( +QUOTE LOGEQV) (QUOTE COMPILER:OPTIMIZER-LIST)))) +LOGNAND :D8 +(IL:L (1 INTEGER2 0 INTEGER1)) @AåmÿæNIL +NIL +() +LOGNOR :D8 +(IL:L (1 INTEGER2 0 INTEGER1)) @AämÿæNIL +NIL +() +LOGANDC1 :D8 +(IL:L (1 INTEGER2 0 INTEGER1)) @mÿæAåNIL +NIL +() +LOGANDC2 :D8 +(IL:L (1 INTEGER2 0 INTEGER1)) @AmÿæåNIL +NIL +() +LOGORC1 :D8 +(IL:L (1 INTEGER2 0 INTEGER1)) @mÿæAäNIL +NIL +() +LOGORC2 :D8 +(IL:L (1 INTEGER2 0 INTEGER1)) @AmÿæäNIL +NIL +() +|optimize-LOGNAND| :D8 +(IL:L (2 IL:$$CTX 1 IL:$$ENV 0 IL:$$WHOLE)) !@!H¹HºggIJhhNIL +(21 LOGAND 16 LOGNOT) +() +(IL:PUTPROP (QUOTE LOGNAND) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE |optimize-LOGNAND|) (GET ( +QUOTE LOGNAND) (QUOTE COMPILER:OPTIMIZER-LIST)))) +|optimize-LOGNOR| :D8 +(IL:L (2 IL:$$CTX 1 IL:$$ENV 0 IL:$$WHOLE)) !@!H¹HºggIJhhNIL +(21 LOGIOR 16 LOGNOT) +() +(IL:PUTPROP (QUOTE LOGNOR) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE |optimize-LOGNOR|) (GET ( +QUOTE LOGNOR) (QUOTE COMPILER:OPTIMIZER-LIST)))) +|optimize-LOGANDC1| :D8 +(IL:L (2 IL:$$CTX 1 IL:$$ENV 0 IL:$$WHOLE)) !@!H¹HºggIhJhNIL +(21 LOGNOT 16 LOGAND) +() +(IL:PUTPROP (QUOTE LOGANDC1) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE |optimize-LOGANDC1|) (GET +(QUOTE LOGANDC1) (QUOTE COMPILER:OPTIMIZER-LIST)))) +|optimize-LOGANDC2| :D8 +(IL:L (2 IL:$$CTX 1 IL:$$ENV 0 IL:$$WHOLE)) !@!H¹HºgIgJhhNIL +(22 LOGNOT 16 LOGAND) +() +(IL:PUTPROP (QUOTE LOGANDC2) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE |optimize-LOGANDC2|) (GET +(QUOTE LOGANDC2) (QUOTE COMPILER:OPTIMIZER-LIST)))) +|optimize-LOGORC1| :D8 +(IL:L (2 IL:$$CTX 1 IL:$$ENV 0 IL:$$WHOLE)) !@!H¹HºggIhJhNIL +(21 LOGNOT 16 LOGIOR) +() +(IL:PUTPROP (QUOTE LOGORC1) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE |optimize-LOGORC1|) (GET ( +QUOTE LOGORC1) (QUOTE COMPILER:OPTIMIZER-LIST)))) +|optimize-LOGORC2| :D8 +(IL:L (2 IL:$$CTX 1 IL:$$ENV 0 IL:$$WHOLE)) !@!H¹HºgIgJhhNIL +(22 LOGNOT 16 LOGIOR) +() +(IL:PUTPROP (QUOTE LOGORC2) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE |optimize-LOGORC2|) (GET ( +QUOTE LOGORC2) (QUOTE COMPILER:OPTIMIZER-LIST)))) +(XCL::SET-CONSTANTP (QUOTE BOOLE-CLR) NIL) +(IL:SETQ BOOLE-CLR 0) +(PROCLAIM (QUOTE (SI::CONSTANT BOOLE-CLR))) +(XCL::SET-CONSTANTP (QUOTE BOOLE-SET) NIL) +(IL:SETQ BOOLE-SET 1) +(PROCLAIM (QUOTE (SI::CONSTANT BOOLE-SET))) +(XCL::SET-CONSTANTP (QUOTE BOOLE-1) NIL) +(IL:SETQ BOOLE-1 2) +(PROCLAIM (QUOTE (SI::CONSTANT BOOLE-1))) +(XCL::SET-CONSTANTP (QUOTE BOOLE-2) NIL) +(IL:SETQ BOOLE-2 3) +(PROCLAIM (QUOTE (SI::CONSTANT BOOLE-2))) +(XCL::SET-CONSTANTP (QUOTE BOOLE-C1) NIL) +(IL:SETQ BOOLE-C1 4) +(PROCLAIM (QUOTE (SI::CONSTANT BOOLE-C1))) +(XCL::SET-CONSTANTP (QUOTE BOOLE-C2) NIL) +(IL:SETQ BOOLE-C2 5) +(PROCLAIM (QUOTE (SI::CONSTANT BOOLE-C2))) +(XCL::SET-CONSTANTP (QUOTE BOOLE-AND) NIL) +(IL:SETQ BOOLE-AND 6) +(PROCLAIM (QUOTE (SI::CONSTANT BOOLE-AND))) +(XCL::SET-CONSTANTP (QUOTE BOOLE-IOR) NIL) +(IL:SETQ BOOLE-IOR 7) +(PROCLAIM (QUOTE (SI::CONSTANT BOOLE-IOR))) +(XCL::SET-CONSTANTP (QUOTE BOOLE-XOR) NIL) +(IL:SETQ BOOLE-XOR 8) +(PROCLAIM (QUOTE (SI::CONSTANT BOOLE-XOR))) +(XCL::SET-CONSTANTP (QUOTE BOOLE-EQV) NIL) +(IL:SETQ BOOLE-EQV 9) +(PROCLAIM (QUOTE (SI::CONSTANT BOOLE-EQV))) +(XCL::SET-CONSTANTP (QUOTE BOOLE-NAND) NIL) +(IL:SETQ BOOLE-NAND 10) +(PROCLAIM (QUOTE (SI::CONSTANT BOOLE-NAND))) +(XCL::SET-CONSTANTP (QUOTE BOOLE-NOR) NIL) +(IL:SETQ BOOLE-NOR 11) +(PROCLAIM (QUOTE (SI::CONSTANT BOOLE-NOR))) +(XCL::SET-CONSTANTP (QUOTE BOOLE-ANDC1) NIL) +(IL:SETQ BOOLE-ANDC1 12) +(PROCLAIM (QUOTE (SI::CONSTANT BOOLE-ANDC1))) +(XCL::SET-CONSTANTP (QUOTE BOOLE-ANDC2) NIL) +(IL:SETQ BOOLE-ANDC2 13) +(PROCLAIM (QUOTE (SI::CONSTANT BOOLE-ANDC2))) +(XCL::SET-CONSTANTP (QUOTE BOOLE-ORC1) NIL) +(IL:SETQ BOOLE-ORC1 14) +(PROCLAIM (QUOTE (SI::CONSTANT BOOLE-ORC1))) +(XCL::SET-CONSTANTP (QUOTE BOOLE-ORC2) NIL) +(IL:SETQ BOOLE-ORC2 15) +(PROCLAIM (QUOTE (SI::CONSTANT BOOLE-ORC2))) +BOOLE :D8 +(IL:L (2 INTEGER2 1 INTEGER1 0 OP)) °@djð‘jdkð’mÿlð‘A@dlð‘Blð”Amÿæ@dlð•¿Bmÿælð“ABå@dlð”¿ABälð“ABæ@dl ð—¿ABmÿææl ð–ABåmÿæ@dl ð—¿ABämÿæl ð–AmÿæBå@dl ð—¿ABmÿæålð–AmÿæBä@lð–ABmÿæäo@ -(173 ERROR) NIL ( 167 "Not a valid op: ~s") LOGTEST :D8 (IL:L (1 INTEGER2 0 INTEGER1)) @AåjðhðNIL NIL () LOGBITP :D8 (IL:L (1 INTEGER 0 INDEX)) Aj@ÕçkåkðNIL NIL () |definline-LOGBITP| :D8 (IL:L (2 IL:$$CTX 1 IL:$$ENV 0 IL:$$WHOLE)) @oHNIL NIL ( 9 (LAMBDA (INDEX INTEGER) (BLOCK LOGBITP (EQ 1 (LOGAND 1 (ASH INTEGER (- INDEX))))))) (IL:PUTPROP (QUOTE LOGBITP) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE |definline-LOGBITP|) (GET ( QUOTE LOGBITP) (QUOTE COMPILER:OPTIMIZER-LIST)))) |optimize-LOGTEST| :D8 (IL:L (2 IL:$$CTX 1 IL:$$ENV 0 IL:$$WHOLE)) +@!H¹HºggjgIJhhhNIL (27 LOGAND 21 EQ 16 NOT) () (IL:PUTPROP (QUOTE LOGTEST) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE |optimize-LOGTEST|) (GET ( QUOTE LOGTEST) (QUOTE COMPILER:OPTIMIZER-LIST)))) ASH :D8 (IL:L (1 COUNT 0 INTEGER)) @AçNIL NIL () (IL:PUTPROPS ASH IL:DOPVAL (2 IL:LSH)) (IL:PUTPROPS ASH IL:DMACRO (= . IL:LSH)) LOGCOUNT :D8 (IL:L (0 INTEGER)) !j@ó–@mÿæb€@æ@ @ (30 %BIGNUM-LOGCOUNT 23 %LOGCOUNT) (16 BIGNUM) () %LOGCOUNT :D8 (IL:L (0 POSITIVE-INTEGER)) j@jð‘HHkÔ¸@dkÕåb°ðNIL NIL () %BIGNUM-LOGCOUNT :D8 (IL:L (0 BIGNUM)) "@Éj"HZµI»IK Ô¹J°î(26 %LOGCOUNT) (5 BIGNUM) () INTEGER-LENGTH :D8 (IL:L (0 INTEGER)) ©j@ó–mÿ@Õb¿o@󢱈n@ó²=l@ó²l@ó™l@ó‘@ll@ó’lll@@óšl @ó’lll€@ó’lln@ó² n@ó›n@ó’l l -n@ó’l l n@@ó›n @ó’l ln€@ó’lll@mðç Ô(165 INTEGER-LENGTH) NIL ( 15 65536) %LLSH8 :D8 (IL:L (0 X)) @áNIL NIL () %LLSH1 :D8 (IL:L (0 X)) @àNIL NIL () %LRSH8 :D8 (IL:L (0 X)) @ãNIL NIL () %LRSH1 :D8 (IL:L (0 X)) @âNIL NIL () (IL:PUTPROPS %LLSH8 IL:DOPVAL (1 IL:LLSH8)) (IL:PUTPROPS %LLSH1 IL:DOPVAL (1 IL:LLSH1)) (IL:PUTPROPS %LRSH8 IL:DOPVAL (1 IL:LRSH8)) (IL:PUTPROPS %LRSH1 IL:DOPVAL (1 IL:LRSH1)) IL:|optimize-LLSH| :D8 (IL:L (2 IL:$$CTX 1 IL:$$ENV 0 IL:$$WHOLE) IL:F 6 COMPILER::*NEW-COMPILER-IS-EXPANDING*) ^@QH¹HºV²J ´J [3 µg¼jLó³öI½lKó³gMh½KlÕ»°ëKjóŸgMh½KkÕ[°ïM(28 EVAL 20 CONSTANTP) (79 %LLSH1 58 %LLSH8 38 COMPILER:PASS) () (IL:PUTPROP (QUOTE IL:LLSH) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE IL:|optimize-LLSH|) (GET ( QUOTE IL:LLSH) (QUOTE COMPILER:OPTIMIZER-LIST)))) IL:|optimize-LRSH| :D8 (IL:L (2 IL:$$CTX 1 IL:$$ENV 0 IL:$$WHOLE) IL:F 6 COMPILER::*NEW-COMPILER-IS-EXPANDING*) ^@QH¹HºV²J ´J [3 µg¼jLó³öI½lKó³gMh½KlÕ»°ëKjóŸgMh½KkÕ[°ïM(28 EVAL 20 CONSTANTP) (79 %LRSH1 58 %LRSH8 38 COMPILER:PASS) () (IL:PUTPROP (QUOTE IL:LRSH) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE IL:|optimize-LRSH|) (GET ( QUOTE IL:LRSH) (QUOTE COMPILER:OPTIMIZER-LIST)))) BYTE :D8 (IL:L (1 POSITION 0 SIZE)) -j@ó£jAóœo@A n@óœnAó–@lçAÔ@A(19 ERROR) NIL ( 12 "Not a valid bytespec: ~s ~s") BYTE-SIZE :D8 (IL:L (0 BYTESPEC)) @d“møçNIL NIL () |definline-BYTE-SIZE| :D8 (IL:L (2 IL:$$CTX 1 IL:$$ENV 0 IL:$$WHOLE)) @oHNIL NIL ( 9 (LAMBDA (BYTESPEC) (BLOCK BYTE-SIZE (IF (TYPEP BYTESPEC (QUOTE FIXNUM)) (ASH BYTESPEC -8) (CAR BYTESPEC))))) (IL:PUTPROP (QUOTE BYTE-SIZE) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE |definline-BYTE-SIZE|) ( GET (QUOTE BYTE-SIZE) (QUOTE COMPILER:OPTIMIZER-LIST)))) BYTE-POSITION :D8 (IL:L (0 BYTESPEC)) @d“lÿåNIL NIL () |definline-BYTE-POSITION| :D8 (IL:L (2 IL:$$CTX 1 IL:$$ENV 0 IL:$$WHOLE)) @oHNIL NIL ( 9 (LAMBDA (BYTESPEC) (BLOCK BYTE-POSITION (IF (TYPEP BYTESPEC (QUOTE FIXNUM)) (LOGAND BYTESPEC 255) (CDR BYTESPEC))))) (IL:PUTPROP (QUOTE BYTE-POSITION) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE |definline-BYTE-POSITION|) (GET (QUOTE BYTE-POSITION) (QUOTE COMPILER:OPTIMIZER-LIST)))) OPTIMIZE-BYTE :D8 (IL:L (1 POSITION 0 SIZE)) C@H´H¹jIóhð´Ilÿóhð²#AH´H¹jIóhð´Ilÿóhð–@lçAÔgNIL (64 COMPILER:PASS) () (IL:PUTPROPS BYTE IL:DMACRO (IL:ARGS (OPTIMIZE-BYTE (CAR IL:ARGS) (CADR IL:ARGS)))) LDB :D8 (IL:L (1 INTEGER 0 BYTESPEC)) $@d“møç€@d“lÿå€AjIÕçkHçkÕåNIL NIL () DPB :D8 (IL:L (2 INTEGER 1 BYTESPEC 0 NEWBYTE)) /Ad“møç€Ad“lÿå€@kHçkÕåIçBkHçkÕIçmÿæåäNIL NIL () MASK-FIELD :D8 (IL:L (1 INTEGER 0 BYTESPEC)) "@d“møç€@d“lÿå€AkHçkÕIçåNIL NIL () DEPOSIT-FIELD :D8 (IL:L (2 INTEGER 1 BYTESPEC 0 NEWBYTE)) ,Ad“møç€!Ad“lÿ倹kHçkÕIçº@JåBJmÿæåäNIL NIL () %CONSTANT-BYTESPEC-P :D8 (IL:L (0 BYTESPEC)) *@d³$´!@gð´@3 ´@3 ´@ (39 EVAL) (15 BYTE) () |optimize-LDB| :D8 (IL:L (2 IL:$$CTX 1 IL:$$ENV 0 IL:$$WHOLE)) a@QH¹HºI [µgd“møç€Kd“lÿ倽¼jMÿŸgJkLçkÕhggJjMÕhkLçkÕh(17 %CONSTANT-BYTESPEC-P) (77 ASH 72 LOGAND 56 LOGAND 25 COMPILER:PASS) () (IL:PUTPROP (QUOTE LDB) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE |optimize-LDB|) (GET (QUOTE LDB ) (QUOTE COMPILER:OPTIMIZER-LIST)))) |optimize-DPB| :D8 (IL:L (2 IL:$$CTX 1 IL:$$ENV 0 IL:$$WHOLE)) ¢@qH¹HZ»J¼K ]µgd“møç€Md“lÿå€_¿¾jOÿ²-ggIkNçkÕhgLkNçkÕmÿæhhgggIkNçkÕhOhgLkNçkÕOçmÿæhh(22 %CONSTANT-BYTESPEC-P) (139 LOGAND 118 LOGAND 113 ASH 108 LOGIOR 85 LOGAND 70 LOGAND 65 LOGIOR 30 COMPILER:PASS) () (IL:PUTPROP (QUOTE DPB) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE |optimize-DPB|) (GET (QUOTE DPB ) (QUOTE COMPILER:OPTIMIZER-LIST)))) |optimize-MASK-FIELD| :D8 (IL:L (2 IL:$$CTX 1 IL:$$ENV 0 IL:$$WHOLE)) C@QH¹HºI [µgd“møç€Kd“lÿ倽¼gJkLçkÕMçh(17 %CONSTANT-BYTESPEC-P) (52 LOGAND 25 COMPILER:PASS) () (IL:PUTPROP (QUOTE MASK-FIELD) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE |optimize-MASK-FIELD|) ( GET (QUOTE MASK-FIELD) (QUOTE COMPILER:OPTIMIZER-LIST)))) |optimize-DEPOSIT-FIELD| :D8 (IL:L (2 IL:$$CTX 1 IL:$$ENV 0 IL:$$WHOLE)) h @H¹HZ»J¼K ]µgd“mø瀾Md“lÿå€_¿kNçkÕOç_¿ggIOhgLOmÿæhh(22 %CONSTANT-BYTESPEC-P) (87 LOGAND 75 LOGAND 70 LOGIOR 30 COMPILER:PASS) () (IL:PUTPROP (QUOTE DEPOSIT-FIELD) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE |optimize-DEPOSIT-FIELD|) (GET (QUOTE DEPOSIT-FIELD) (QUOTE COMPILER:OPTIMIZER-LIST)))) LDB-TEST :D8 (IL:L (1 INTEGER 0 BYTESPEC)) @A -jðhð(6 LDB) NIL () |optimize-LDB-TEST| :D8 (IL:L (2 IL:$$CTX 1 IL:$$ENV 0 IL:$$WHOLE)) +@!H¹HºggjgIJhhhNIL (27 LDB 21 EQ 16 NOT) () (IL:PUTPROP (QUOTE LDB-TEST) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE |optimize-LDB-TEST|) (GET (QUOTE LDB-TEST) (QUOTE COMPILER:OPTIMIZER-LIST)))) (IL:PUTPROPS IL:CMLARITH IL:MAKEFILE-ENVIRONMENT (:READTABLE "XCL" :PACKAGE "LISP")) (IL:PUTPROPS IL:CMLARITH IL:FILETYPE COMPILE-FILE) (IL:PUTPROPS IL:CMLARITH IL:COPYRIGHT ("Venue & Xerox Corporation" 1985 1986 1987 1988 1989 1990 1993) ) NIL \ No newline at end of file +(173 ERROR) +NIL +( 167 "Not a valid op: ~s") +LOGTEST :D8 +(IL:L (1 INTEGER2 0 INTEGER1)) @AåjðhðNIL +NIL +() +LOGBITP :D8 +(IL:L (1 INTEGER 0 INDEX)) Aj@ÕçkåkðNIL +NIL +() +|definline-LOGBITP| :D8 +(IL:L (2 IL:$$CTX 1 IL:$$ENV 0 IL:$$WHOLE)) @oHNIL +NIL +( 9 (LAMBDA (INDEX INTEGER) (BLOCK LOGBITP (EQ 1 (LOGAND 1 (ASH INTEGER (- INDEX))))))) +(IL:PUTPROP (QUOTE LOGBITP) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE |definline-LOGBITP|) (GET ( +QUOTE LOGBITP) (QUOTE COMPILER:OPTIMIZER-LIST)))) +|optimize-LOGTEST| :D8 +(IL:L (2 IL:$$CTX 1 IL:$$ENV 0 IL:$$WHOLE)) +@!H¹HºggjgIJhhhNIL +(27 LOGAND 21 EQ 16 NOT) +() +(IL:PUTPROP (QUOTE LOGTEST) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE |optimize-LOGTEST|) (GET ( +QUOTE LOGTEST) (QUOTE COMPILER:OPTIMIZER-LIST)))) +ASH :D8 +(IL:L (1 COUNT 0 INTEGER)) @AçNIL +NIL +() +(IL:PUTPROPS ASH IL:DOPVAL (2 IL:LSH)) +(IL:PUTPROPS ASH IL:DMACRO (= . IL:LSH)) +LOGCOUNT :D8 +(IL:L (0 INTEGER)) !j@ó–@mÿæb€@æ@ @ (30 %BIGNUM-LOGCOUNT 23 %LOGCOUNT) +(16 BIGNUM) +() +%LOGCOUNT :D8 +(IL:L (0 POSITIVE-INTEGER)) j@jð‘HHkÔ¸@dkÕåb°ðNIL +NIL +() +%BIGNUM-LOGCOUNT :D8 +(IL:L (0 BIGNUM)) "@Éj"HZµI»IK Ô¹J°î(26 %LOGCOUNT) +(5 BIGNUM) +() +INTEGER-LENGTH :D8 +(IL:L (0 INTEGER)) ©j@ó–mÿ@Õb¿o@󢱈n@ó²=l@ó²l@ó™l@ó‘@ll@ó’lll@@óšl @ó’lll€@ó’lln@ó² n@ó›n@ó’l l +n@ó’l l n@@ó›n @ó’l ln€@ó’lll@mðç Ô(165 INTEGER-LENGTH) +NIL +( 15 65536) +%LLSH8 :D8 +(IL:L (0 X)) @áNIL +NIL +() +%LLSH1 :D8 +(IL:L (0 X)) @àNIL +NIL +() +%LRSH8 :D8 +(IL:L (0 X)) @ãNIL +NIL +() +%LRSH1 :D8 +(IL:L (0 X)) @âNIL +NIL +() +(IL:PUTPROPS %LLSH8 IL:DOPVAL (1 IL:LLSH8)) +(IL:PUTPROPS %LLSH1 IL:DOPVAL (1 IL:LLSH1)) +(IL:PUTPROPS %LRSH8 IL:DOPVAL (1 IL:LRSH8)) +(IL:PUTPROPS %LRSH1 IL:DOPVAL (1 IL:LRSH1)) +IL:|optimize-LLSH| :D8 +(IL:L (2 IL:$$CTX 1 IL:$$ENV 0 IL:$$WHOLE) IL:F 6 COMPILER::*NEW-COMPILER-IS-EXPANDING*) ^@QH¹HºV²J ´J [3 µg¼jLó³öI½lKó³gMh½KlÕ»°ëKjóŸgMh½KkÕ[°ïM(28 EVAL 20 CONSTANTP) +(79 %LLSH1 58 %LLSH8 38 COMPILER:PASS) +() +(IL:PUTPROP (QUOTE IL:LLSH) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE IL:|optimize-LLSH|) (GET ( +QUOTE IL:LLSH) (QUOTE COMPILER:OPTIMIZER-LIST)))) +IL:|optimize-LRSH| :D8 +(IL:L (2 IL:$$CTX 1 IL:$$ENV 0 IL:$$WHOLE) IL:F 6 COMPILER::*NEW-COMPILER-IS-EXPANDING*) ^@QH¹HºV²J ´J [3 µg¼jLó³öI½lKó³gMh½KlÕ»°ëKjóŸgMh½KkÕ[°ïM(28 EVAL 20 CONSTANTP) +(79 %LRSH1 58 %LRSH8 38 COMPILER:PASS) +() +(IL:PUTPROP (QUOTE IL:LRSH) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE IL:|optimize-LRSH|) (GET ( +QUOTE IL:LRSH) (QUOTE COMPILER:OPTIMIZER-LIST)))) +BYTE :D8 +(IL:L (1 POSITION 0 SIZE)) -j@ó£jAóœo@A n@óœnAó–@lçAÔ@A(19 ERROR) +NIL +( 12 "Not a valid bytespec: ~s ~s") +BYTE-SIZE :D8 +(IL:L (0 BYTESPEC)) @d“møçNIL +NIL +() +|definline-BYTE-SIZE| :D8 +(IL:L (2 IL:$$CTX 1 IL:$$ENV 0 IL:$$WHOLE)) @oHNIL +NIL +( 9 (LAMBDA (BYTESPEC) (BLOCK BYTE-SIZE (IF (TYPEP BYTESPEC (QUOTE FIXNUM)) (ASH BYTESPEC -8) (CAR BYTESPEC))))) +(IL:PUTPROP (QUOTE BYTE-SIZE) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE |definline-BYTE-SIZE|) ( +GET (QUOTE BYTE-SIZE) (QUOTE COMPILER:OPTIMIZER-LIST)))) +BYTE-POSITION :D8 +(IL:L (0 BYTESPEC)) @d“lÿåNIL +NIL +() +|definline-BYTE-POSITION| :D8 +(IL:L (2 IL:$$CTX 1 IL:$$ENV 0 IL:$$WHOLE)) @oHNIL +NIL +( 9 (LAMBDA (BYTESPEC) (BLOCK BYTE-POSITION (IF (TYPEP BYTESPEC (QUOTE FIXNUM)) (LOGAND BYTESPEC 255) (CDR BYTESPEC))))) +(IL:PUTPROP (QUOTE BYTE-POSITION) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE +|definline-BYTE-POSITION|) (GET (QUOTE BYTE-POSITION) (QUOTE COMPILER:OPTIMIZER-LIST)))) +OPTIMIZE-BYTE :D8 +(IL:L (1 POSITION 0 SIZE)) C@H´H¹jIóhð´Ilÿóhð²#AH´H¹jIóhð´Ilÿóhð–@lçAÔgNIL +(64 COMPILER:PASS) +() +(IL:PUTPROPS BYTE IL:DMACRO (IL:ARGS (OPTIMIZE-BYTE (CAR IL:ARGS) (CADR IL:ARGS)))) +LDB :D8 +(IL:L (1 INTEGER 0 BYTESPEC)) $@d“møç€@d“lÿå€AjIÕçkHçkÕåNIL +NIL +() +DPB :D8 +(IL:L (2 INTEGER 1 BYTESPEC 0 NEWBYTE)) /Ad“møç€Ad“lÿå€@kHçkÕåIçBkHçkÕIçmÿæåäNIL +NIL +() +MASK-FIELD :D8 +(IL:L (1 INTEGER 0 BYTESPEC)) "@d“møç€@d“lÿå€AkHçkÕIçåNIL +NIL +() +DEPOSIT-FIELD :D8 +(IL:L (2 INTEGER 1 BYTESPEC 0 NEWBYTE)) ,Ad“møç€!Ad“lÿ倹kHçkÕIçº@JåBJmÿæåäNIL +NIL +() +%CONSTANT-BYTESPEC-P :D8 +(IL:L (0 BYTESPEC)) *@d³$´!@gð´@3 ´@3 ´@ (39 EVAL) +(15 BYTE) +() +|optimize-LDB| :D8 +(IL:L (2 IL:$$CTX 1 IL:$$ENV 0 IL:$$WHOLE)) a@QH¹HºI [µgd“møç€Kd“lÿ倽¼jMÿŸgJkLçkÕhggJjMÕhkLçkÕh(17 %CONSTANT-BYTESPEC-P) +(77 ASH 72 LOGAND 56 LOGAND 25 COMPILER:PASS) +() +(IL:PUTPROP (QUOTE LDB) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE |optimize-LDB|) (GET (QUOTE LDB +) (QUOTE COMPILER:OPTIMIZER-LIST)))) +|optimize-DPB| :D8 +(IL:L (2 IL:$$CTX 1 IL:$$ENV 0 IL:$$WHOLE)) ¢@qH¹HZ»J¼K ]µgd“møç€Md“lÿå€_¿¾jOÿ²-ggIkNçkÕhgLkNçkÕmÿæhhgggIkNçkÕhOhgLkNçkÕOçmÿæhh(22 %CONSTANT-BYTESPEC-P) +(139 LOGAND 118 LOGAND 113 ASH 108 LOGIOR 85 LOGAND 70 LOGAND 65 LOGIOR 30 COMPILER:PASS) +() +(IL:PUTPROP (QUOTE DPB) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE |optimize-DPB|) (GET (QUOTE DPB +) (QUOTE COMPILER:OPTIMIZER-LIST)))) +|optimize-MASK-FIELD| :D8 +(IL:L (2 IL:$$CTX 1 IL:$$ENV 0 IL:$$WHOLE)) C@QH¹HºI [µgd“møç€Kd“lÿ倽¼gJkLçkÕMçh(17 %CONSTANT-BYTESPEC-P) +(52 LOGAND 25 COMPILER:PASS) +() +(IL:PUTPROP (QUOTE MASK-FIELD) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE |optimize-MASK-FIELD|) ( +GET (QUOTE MASK-FIELD) (QUOTE COMPILER:OPTIMIZER-LIST)))) +|optimize-DEPOSIT-FIELD| :D8 +(IL:L (2 IL:$$CTX 1 IL:$$ENV 0 IL:$$WHOLE)) h @H¹HZ»J¼K ]µgd“mø瀾Md“lÿå€_¿kNçkÕOç_¿ggIOhgLOmÿæhh(22 %CONSTANT-BYTESPEC-P) +(87 LOGAND 75 LOGAND 70 LOGIOR 30 COMPILER:PASS) +() +(IL:PUTPROP (QUOTE DEPOSIT-FIELD) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE +|optimize-DEPOSIT-FIELD|) (GET (QUOTE DEPOSIT-FIELD) (QUOTE COMPILER:OPTIMIZER-LIST)))) +LDB-TEST :D8 +(IL:L (1 INTEGER 0 BYTESPEC)) @A +jðhð(6 LDB) +NIL +() +|optimize-LDB-TEST| :D8 +(IL:L (2 IL:$$CTX 1 IL:$$ENV 0 IL:$$WHOLE)) +@!H¹HºggjgIJhhhNIL +(27 LDB 21 EQ 16 NOT) +() +(IL:PUTPROP (QUOTE LDB-TEST) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE |optimize-LDB-TEST|) (GET +(QUOTE LDB-TEST) (QUOTE COMPILER:OPTIMIZER-LIST)))) +(IL:PUTPROPS IL:CMLARITH IL:MAKEFILE-ENVIRONMENT (:READTABLE "XCL" :PACKAGE "LISP")) +(IL:PUTPROPS IL:CMLARITH IL:FILETYPE COMPILE-FILE) +(IL:PUTPROPS IL:CMLARITH IL:COPYRIGHT ("Venue & Xerox Corporation" 1985 1986 1987 1988 1989 1990 1993) +) +NIL diff --git a/sources/CMLARRAY.LCOM b/sources/CMLARRAY.LCOM index 9ed54aa93..dab5560bd 100644 Binary files a/sources/CMLARRAY.LCOM and b/sources/CMLARRAY.LCOM differ diff --git a/sources/CMLCHARACTER.LCOM b/sources/CMLCHARACTER.LCOM index 4c067961c..ed86fbb82 100644 Binary files a/sources/CMLCHARACTER.LCOM and b/sources/CMLCHARACTER.LCOM differ diff --git a/sources/CMLMISCIO.LCOM b/sources/CMLMISCIO.LCOM index c2a16091d..28613df21 100644 Binary files a/sources/CMLMISCIO.LCOM and b/sources/CMLMISCIO.LCOM differ diff --git a/sources/CMLPRINT.LCOM b/sources/CMLPRINT.LCOM index 7fe085af7..82c4ec630 100644 Binary files a/sources/CMLPRINT.LCOM and b/sources/CMLPRINT.LCOM differ diff --git a/sources/CMLREAD b/sources/CMLREAD index 2a54d6777..182636b3d 100644 --- a/sources/CMLREAD +++ b/sources/CMLREAD @@ -1,34 +1,36 @@ -(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) -(FILECREATED "19-Jan-93 10:25:51" {DSK}lde>lispcore>sources>CMLREAD.;2 15363 +(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10 FORMAT XCCS) +(FILECREATED " 9-Jul-2021 08:09:06"  +{DSK}kaplan>Local>medley3.5>git-medley>sources>CMLREAD.;9 12772 changes to%: (RECORDS READER-ENVIRONMENT) - previous date%: " 4-Jan-93 17:53:43" {DSK}lde>lispcore>sources>CMLREAD.;1) + previous date%: " 3-Jul-2021 13:32:59" +{DSK}kaplan>Local>medley3.5>git-medley>sources>CMLREAD.;8) (* ; " -Copyright (c) 1985, 1986, 1987, 1988, 1990, 1993 by Venue & Xerox Corporation. All rights reserved. +Copyright (c) 1985-1988, 1990, 1993, 2021 by Venue & Xerox Corporation. ") (PRETTYCOMPRINT CMLREADCOMS) -(RPAQQ CMLREADCOMS +(RPAQQ CMLREADCOMS [(COMS - (* ;; "Misc Common Lisp reader functions") + (* ;; "Misc Common Lisp reader functions") (FNS CL:COPY-READTABLE) (FNS CL:READ-LINE CL:READ-CHAR CL:UNREAD-CHAR CL:PEEK-CHAR CL:LISTEN CL:READ-CHAR-NO-HANG CL:CLEAR-INPUT CL:READ-FROM-STRING CL:READ-BYTE CL:WRITE-BYTE ) - (* ; - "must turn off packed version of CLISP infix") + (* ; + "must turn off packed version of CLISP infix") (VARS [CLISPCHARS (LDIFFERENCE CLISPCHARS '(- *] (CLISPCHARRAY (MAKEBITTABLE CLISPCHARS)) (DWIMINMACROSFLG)) (VARIABLES *READ-DEFAULT-FLOAT-FORMAT*) (GLOBALVARS CMLRDTBL READ-LINE-RDTBL)) [COMS - (* ;; "Crude means to aid reading and printing things in same reader environment. There are some fns and an INITRECORDS for this on ATBL to get it early in the loadup") + (* ;; "Crude means to aid reading and printing things in same reader environment. There are some fns and an INITRECORDS for this on ATBL to get it early in the loadup") (RECORDS READER-ENVIRONMENT) (FUNCTIONS WITH-READER-ENVIRONMENT) @@ -37,7 +39,8 @@ Copyright (c) 1985, 1986, 1987, 1988, 1990, 1993 by Venue & Xerox Corporation. (GLOBALVARS *COMMON-LISP-READ-ENVIRONMENT*) (INITVARS (*COMMON-LISP-READ-ENVIRONMENT* (create READER-ENVIRONMENT REPACKAGE _ (CL:FIND-PACKAGE "USER") - REREADTABLE _ CMLRDTBL REBASE _ 10] + REREADTABLE _ CMLRDTBL REBASE _ 10 + REFORMAT _ :XCCS] (PROP FILETYPE CMLREAD) (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA) @@ -93,9 +96,9 @@ Copyright (c) 1985, 1986, 1987, 1988, 1990, 1993 by Venue & Xerox Corporation. (CL:READ-CHAR [CL:LAMBDA (&OPTIONAL (STREAM *STANDARD-INPUT*) (EOF-ERRORP T) - EOF-VALUE RECURSIVE-P) (* ; "Edited 14-Dec-86 20:41 by bvm:") + EOF-VALUE RECURSIVE-P) (* ; "Edited 14-Dec-86 20:41 by bvm:") - (* ;; "Inputs a character from STREAM and returns it.") + (* ;; "Inputs a character from STREAM and returns it.") (LET [(STREAM (\GETSTREAM STREAM 'INPUT] (COND @@ -106,12 +109,12 @@ Copyright (c) 1985, 1986, 1987, 1988, 1990, 1993 by Venue & Xerox Corporation. (T (CL:CODE-CHAR (READCCODE STREAM]) (CL:UNREAD-CHAR - (CL:LAMBDA (CHARACTER &OPTIONAL (INPUT-STREAM *STANDARD-INPUT*)) - (* bvm%: "13-Oct-86 15:44") + (CL:LAMBDA (CHARACTER &OPTIONAL (INPUT-STREAM *STANDARD-INPUT*)) + (* ; "Edited 23-Jun-2021 13:05 by rmk:") - (* ;; "Puts the CHARACTER back on the front of the input STREAM. According to the manual, `One may apply UNREAD-CHAR only to the character most recently read from INPUT-STREAM.'") + (* ;; "Puts the CHARACTER back on the front of the input STREAM. According to the manual, `One may apply UNREAD-CHAR only to the character most recently read from INPUT-STREAM.'") - (\BACKCHAR (\GETSTREAM INPUT-STREAM 'INPUT)) + (\BACKCCODE (\GETSTREAM INPUT-STREAM 'INPUT)) NIL)) (CL:PEEK-CHAR @@ -237,28 +240,31 @@ Copyright (c) 1985, 1986, 1987, 1988, 1990, 1993 by Venue & Xerox Corporation. (DECLARE%: EVAL@COMPILE -(DATATYPE READER-ENVIRONMENT (REPACKAGE REREADTABLE REBASE RESPEC)) +(DATATYPE READER-ENVIRONMENT (REPACKAGE REREADTABLE REBASE NIL REFORMAT)) ) -(/DECLAREDATATYPE 'READER-ENVIRONMENT '(POINTER POINTER POINTER POINTER) +(/DECLAREDATATYPE 'READER-ENVIRONMENT '(POINTER POINTER POINTER POINTER POINTER) '((READER-ENVIRONMENT 0 POINTER) (READER-ENVIRONMENT 2 POINTER) (READER-ENVIRONMENT 4 POINTER) - (READER-ENVIRONMENT 6 POINTER)) - '8) + (READER-ENVIRONMENT 6 POINTER) + (READER-ENVIRONMENT 8 POINTER)) + '10) (DEFMACRO WITH-READER-ENVIRONMENT (ENV . BODY) `((CL:LAMBDA (E) (LET ((*PACKAGE* (ffetch (READER-ENVIRONMENT REPACKAGE) of E)) (*READTABLE* (ffetch (READER-ENVIRONMENT REREADTABLE) of E)) (*READ-BASE* (ffetch (READER-ENVIRONMENT REBASE) of E)) - (*PRINT-BASE* (ffetch (READER-ENVIRONMENT REBASE) of E))) + (*PRINT-BASE* (ffetch (READER-ENVIRONMENT REBASE) of E)) + (*EXTERNALFORMAT* (ffetch (READER-ENVIRONMENT REFORMAT) of E))) + (DECLARE (SPECVARS *EXTERNALFORMAT*)) ,@BODY)) (\DTEST ,ENV 'READER-ENVIRONMENT))) (ADDTOVAR SYSSPECVARS *PACKAGE* *READTABLE* *READ-BASE* *PRINT-BASE*) -(PUTPROPS WITH-READER-ENVIRONMENT INFO EVAL) +(PUTPROPS WITH-READER-ENVIRONMENT INFO EVAL) (DECLARE%: DOEVAL@COMPILE DONTCOPY (GLOBALVARS *COMMON-LISP-READ-ENVIRONMENT*) @@ -266,9 +272,9 @@ Copyright (c) 1985, 1986, 1987, 1988, 1990, 1993 by Venue & Xerox Corporation. (RPAQ? *COMMON-LISP-READ-ENVIRONMENT* (create READER-ENVIRONMENT REPACKAGE _ (CL:FIND-PACKAGE "USER") - REREADTABLE _ CMLRDTBL REBASE _ 10)) + REREADTABLE _ CMLRDTBL REBASE _ 10 REFORMAT _ :XCCS)) -(PUTPROPS CMLREAD FILETYPE CL:COMPILE-FILE) +(PUTPROPS CMLREAD FILETYPE CL:COMPILE-FILE) (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDTOVAR NLAMA ) @@ -279,56 +285,10 @@ Copyright (c) 1985, 1986, 1987, 1988, 1990, 1993 by Venue & Xerox Corporation. CL:LISTEN CL:PEEK-CHAR CL:UNREAD-CHAR CL:READ-CHAR CL:READ-LINE CL:COPY-READTABLE) ) -(PRETTYCOMPRINT CMLREADCOMS) - -(RPAQQ CMLREADCOMS [(COMS - (* ;; "Misc Common Lisp reader functions") - - (FNS CL:COPY-READTABLE) - (FNS CL:READ-LINE CL:READ-CHAR CL:UNREAD-CHAR CL:PEEK-CHAR CL:LISTEN - CL:READ-CHAR-NO-HANG CL:CLEAR-INPUT CL:READ-FROM-STRING - CL:READ-BYTE CL:WRITE-BYTE) - (* ; - "must turn off packed version of CLISP infix") - (VARS [CLISPCHARS (LDIFFERENCE CLISPCHARS '(- *] - (CLISPCHARRAY (MAKEBITTABLE CLISPCHARS)) - (DWIMINMACROSFLG)) - (VARIABLES *READ-DEFAULT-FLOAT-FORMAT*) - (GLOBALVARS CMLRDTBL READ-LINE-RDTBL)) - [COMS - (* ;; "Crude means to aid reading and printing things in same reader environment. There are some fns and an INITRECORDS for this on ATBL to get it early in the loadup") - - (RECORDS READER-ENVIRONMENT) - (FUNCTIONS WITH-READER-ENVIRONMENT) - (ADDVARS (SYSSPECVARS *PACKAGE* *READTABLE* *READ-BASE* *PRINT-BASE*)) - (PROP INFO WITH-READER-ENVIRONMENT) - (GLOBALVARS *COMMON-LISP-READ-ENVIRONMENT*) - (INITVARS (*COMMON-LISP-READ-ENVIRONMENT* (create READER-ENVIRONMENT - REPACKAGE _ - (CL:FIND-PACKAGE - "USER") - REREADTABLE _ CMLRDTBL - REBASE _ 10] - (PROP FILETYPE CMLREAD) - (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS - (ADDVARS (NLAMA) - (NLAML) - (LAMA CL:READ-BYTE CL:READ-FROM-STRING CL:CLEAR-INPUT - CL:READ-CHAR-NO-HANG CL:PEEK-CHAR CL:UNREAD-CHAR - CL:READ-CHAR CL:READ-LINE CL:COPY-READTABLE]) -(DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS - -(ADDTOVAR NLAMA ) - -(ADDTOVAR NLAML ) - -(ADDTOVAR LAMA CL:READ-BYTE CL:READ-FROM-STRING CL:CLEAR-INPUT CL:READ-CHAR-NO-HANG CL:PEEK-CHAR - CL:UNREAD-CHAR CL:READ-CHAR CL:READ-LINE CL:COPY-READTABLE) -) -(PUTPROPS CMLREAD COPYRIGHT ("Venue & Xerox Corporation" 1985 1986 1987 1988 1990 1993)) +(PUTPROPS CMLREAD COPYRIGHT ("Venue & Xerox Corporation" 1985 1986 1987 1988 1990 1993 2021)) (DECLARE%: DONTCOPY - (FILEMAP (NIL (2481 3466 (CL:COPY-READTABLE 2491 . 3464)) (3467 10087 (CL:READ-LINE 3477 . 4349) ( -CL:READ-CHAR 4351 . 4901) (CL:UNREAD-CHAR 4903 . 5351) (CL:PEEK-CHAR 5353 . 7337) (CL:LISTEN 7339 . -7604) (CL:READ-CHAR-NO-HANG 7606 . 8378) (CL:CLEAR-INPUT 8380 . 8617) (CL:READ-FROM-STRING 8619 . 9374 -) (CL:READ-BYTE 9376 . 9829) (CL:WRITE-BYTE 9831 . 10085))))) + (FILEMAP (NIL (2592 3577 (CL:COPY-READTABLE 2602 . 3575)) (3578 10211 (CL:READ-LINE 3588 . 4460) ( +CL:READ-CHAR 4462 . 5012) (CL:UNREAD-CHAR 5014 . 5475) (CL:PEEK-CHAR 5477 . 7461) (CL:LISTEN 7463 . +7728) (CL:READ-CHAR-NO-HANG 7730 . 8502) (CL:CLEAR-INPUT 8504 . 8741) (CL:READ-FROM-STRING 8743 . 9498 +) (CL:READ-BYTE 9500 . 9953) (CL:WRITE-BYTE 9955 . 10209))))) STOP diff --git a/sources/CMLREAD.LCOM b/sources/CMLREAD.LCOM index 70650f090..723616c16 100644 Binary files a/sources/CMLREAD.LCOM and b/sources/CMLREAD.LCOM differ diff --git a/sources/COMPILE b/sources/COMPILE index e16b96f73..07bed40cb 100644 --- a/sources/COMPILE +++ b/sources/COMPILE @@ -1,13 +1,15 @@ -(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP") -(FILECREATED "27-Jul-90 11:15:42" |{PELE:MV:ENVOS}SOURCES>COMPILE.;4| 68945 +(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10 FORMAT XCCS) +(FILECREATED " 5-Jul-2021 13:46:39"  +{DSK}kaplan>Local>medley3.5>git-medley>sources>COMPILE.;4 77731 - changes to%: (FNS BRECOMPILE) + changes to%: (FNS BCOMPL BCOMPL.BODY) - previous date%: " 8-Jun-90 11:48:47" |{PELE:MV:ENVOS}SOURCES>COMPILE.;3|) + previous date%: " 5-Jul-2021 09:31:55" +{DSK}kaplan>Local>medley3.5>git-medley>sources>COMPILE.;3) (* ; " -Copyright (c) 1984, 1985, 1986, 1987, 1988, 1989, 1990 by Venue & Xerox Corporation. All rights reserved. +Copyright (c) 1984-1990, 2021 by Venue & Xerox Corporation. The following program was created in 1984 but has not been published within the meaning of the copyright law, is furnished under license, and may not be used, copied and/or disclosed except in accordance @@ -16,11 +18,71 @@ with the terms of said license. (PRETTYCOMPRINT COMPILECOMS) -(RPAQQ COMPILECOMS ((FNS BCOMPL BCOMPL.BODY PRINT-COMPILE-HEADER RESETOPENFILES BCOMPL1A BCOMPL2 BCOMPL3 BLOCK%: BRECOMPILE BRECOMPILE1 BRECOMPILE2 BRECOMPILE3 BLOCKCOMPILE BLOCKCOMPILE1 COMPSET COMPSETREAD COMPSETY COMPSETF RCOMP3 TCOMPL RECOMPILE RECOMP? COMPILE COMPILE1 COMPILE1A SHOULD-BE-DWIMIFIED? COMPILE.FILECHECK COMPEM GETCFILE SPECVARS LOCALVARS GLOBALVARS) (ADDVARS (NOLINKFNS HELP ERRORX ERRORSET EVALV FAULTEVAL INTERRUPT SEARCHPDL MAPDL BREAK1 EDITE EDITL) (LINKFNS) (FREEVARS) (SYSSPECVARS HELPCLOCK LISPXHIST RESETSTATE OLDVALUE UNDOSIDE0 SPECVARS LOCALVARS GLOBALVARS) (SYSLOCALVARS) (LOCALFREEVARS) (BLKLIBRARY) (RETFNS) (BLKAPPLYFNS) (DONTCOMPILEFNS) (NLAML) (NLAMA) (LAMS) (LAMA)) (INITVARS (SPECVARS T) (LOCALVARS SYSLOCALVARS)) (INITVARS (DWIMIFYCOMPFLG NIL) (COMPILEHEADER "compiled on ") (COMPSETLST (QUOTE (ST F STF S Y N 1 2 NIL T))) (COMPSETKEYLST (QUOTE ((ST "ore and redefine " KEYLST ("" (F . "orget exprs"))) (S . "ame as last time") (F . "ile only") (T . "o terminal") (1) (2) (Y . "es") (N . "o")))) (COMPSETDEFAULTKEYLST (QUOTE ((Y . "es") (N . "o")))) (BCOMPL.SCRATCH (QUOTE {CORE}BCOMPL.SCRATCH)) (RECOMPILEDEFAULT (QUOTE CHANGES)) (COUTFILE T) (SVFLG T) (STRF T) (LSTFIL T) (LCFIL) (LAPFLG T)) (DECLARE%: DONTCOPY (RECORDS COMPFILEDESCR) (MACROS DIGITCHARP) (GLOBALVARS SYSSPECVARS SYSLOCALVARS RECOMPILEDEFAULT COMPILE.EXT NOTCOMPILEDFILES BYTECOMPFLG COMPILEHEADER COMPVERSION BCOMPL.SCRATCH LINKEDFNS NOFIXVARSLST0 NOFIXFNSLST0 CLISPTRANFLG CLISPARRAY COMPSETKEYLST REREADFLG HISTSTR0 LISPXHISTORY COMPSETDEFAULTKEYLST FILERDTBL DWIMFLG DWIMWAIT)) (P (MOVD? (QUOTE NILL) (QUOTE FILECHANGES)) (CL:PROCLAIM (QUOTE (CL:SPECIAL COMPVARMACROHASH))) (CL:PROCLAIM (QUOTE (GLOBAL SYSSPECVARS SYSLOCALVARS COMPILE.EXT NOTCOMPILEDFILES CLISPARRAY FILERDTBL DWIMFLG DWIMWAIT LISPXHISTORY)))) (COMS (* ; "COMPILEMODE") (PROP VARTYPE COMPILEMODELST) (FNS COMPILEMODE)) (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA GLOBALVARS LOCALVARS SPECVARS BLOCK%:) (NLAML BCOMPL3) (LAMA))))) +(RPAQQ COMPILECOMS + [(FNS BCOMPL BCOMPL.BODY PRINT-COMPILE-HEADER RESETOPENFILES BCOMPL1A BCOMPL2 BCOMPL3 BLOCK%: + BRECOMPILE BRECOMPILE1 BRECOMPILE2 BRECOMPILE3 BLOCKCOMPILE BLOCKCOMPILE1 COMPSET + COMPSETREAD COMPSETY COMPSETF RCOMP3 TCOMPL RECOMPILE RECOMP? COMPILE COMPILE1 COMPILE1A + SHOULD-BE-DWIMIFIED? COMPILE.FILECHECK COMPEM GETCFILE SPECVARS LOCALVARS GLOBALVARS) + (ADDVARS (NOLINKFNS HELP ERRORX ERRORSET EVALV FAULTEVAL INTERRUPT SEARCHPDL MAPDL BREAK1 + EDITE EDITL) + (LINKFNS) + (FREEVARS) + (SYSSPECVARS HELPCLOCK LISPXHIST RESETSTATE OLDVALUE UNDOSIDE0 SPECVARS LOCALVARS + GLOBALVARS) + (SYSLOCALVARS) + (LOCALFREEVARS) + (BLKLIBRARY) + (RETFNS) + (BLKAPPLYFNS) + (DONTCOMPILEFNS) + (NLAML) + (NLAMA) + (LAMS) + (LAMA)) + (INITVARS (SPECVARS T) + (LOCALVARS SYSLOCALVARS)) + (INITVARS (DWIMIFYCOMPFLG NIL) + (COMPILEHEADER "compiled on ") + (COMPSETLST '(ST F STF S Y N 1 2 NIL T)) + [COMPSETKEYLST '((ST "ore and redefine " KEYLST ("" (F . "orget exprs"))) + (S . "ame as last time") + (F . "ile only") + (T . "o terminal") + (1) + (2) + (Y . "es") + (N . "o"] + [COMPSETDEFAULTKEYLST '((Y . "es") + (N . "o"] + (BCOMPL.SCRATCH '{CORE}BCOMPL.SCRATCH) + (RECOMPILEDEFAULT 'CHANGES) + (COUTFILE T) + (SVFLG T) + (STRF T) + (LSTFIL T) + (LCFIL) + (LAPFLG T)) + (DECLARE%: DONTCOPY (RECORDS COMPFILEDESCR) + (MACROS DIGITCHARP) + (GLOBALVARS SYSSPECVARS SYSLOCALVARS RECOMPILEDEFAULT COMPILE.EXT NOTCOMPILEDFILES + BYTECOMPFLG COMPILEHEADER COMPVERSION BCOMPL.SCRATCH LINKEDFNS NOFIXVARSLST0 + NOFIXFNSLST0 CLISPTRANFLG CLISPARRAY COMPSETKEYLST REREADFLG HISTSTR0 + LISPXHISTORY COMPSETDEFAULTKEYLST FILERDTBL DWIMFLG DWIMWAIT)) + [P (MOVD? 'NILL 'FILECHANGES) + (CL:PROCLAIM '(CL:SPECIAL COMPVARMACROHASH)) + (CL:PROCLAIM '(GLOBAL SYSSPECVARS SYSLOCALVARS COMPILE.EXT NOTCOMPILEDFILES CLISPARRAY + FILERDTBL DWIMFLG DWIMWAIT LISPXHISTORY] + (COMS (* ; "COMPILEMODE") + (PROP VARTYPE COMPILEMODELST) + (FNS COMPILEMODE)) + (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS + (ADDVARS (NLAMA GLOBALVARS LOCALVARS SPECVARS BLOCK%:) + (NLAML BCOMPL3) + (LAMA]) (DEFINEQ (BCOMPL - [LAMBDA (FILES CFILE NOBLOCKSFLG OPTIONSSET) (* ; "Edited 9-Feb-87 16:22 by Pavel") + [LAMBDA (FILES CFILE NOBLOCKSFLG OPTIONSSET) (* ; "Edited 5-Jul-2021 13:39 by rmk:") (* ;;; "BCOMPL is like TCOMPL, except that it reads in all of FILES before starting any compilations, so that a BLOCK can contain functions in several FILES. BLOCKS are set up using a DECLARE statement of the form") @@ -28,29 +90,32 @@ with the terms of said license. (* ;;; "where BLKFN1 ... are the functions in the BLOCK, and VAR1 ... are values for ENTRIES, RETFNS, SPECVARS, etc. A variable setting of the form (VAR . list) sets variable to UNION of the list with the variable's top level value. A variable setting of the form (VAR . ATOM) simply sets the variable to that atom, e.g. (NOLINKFLG . T)") - (RESETLST (LET ((NLAML NLAML) - (NLAMA NLAMA) - (LAMS LAMS) - (LAMA LAMA) - (DWIMIFYCOMPFLG DWIMIFYCOMPFLG) - (EXPRSLST NIL) - (NOFIXVARSLST NOFIXVARSLST) - (NOFIXFNSLST NOFIXFNSLST) - (*PRINT-ARRAY* T) - (*PRINT-LENGTH* NIL) - (*PRINT-LEVEL* NIL)) - (DECLARE (SPECVARS NLAML NLAMA LAMS LAMA DWIMIFYCOMPFLG EXPRSLST NOFIXVARSLST - NOFIXFNSLST *PRINT-ARRAY* *PRINT-LEVEL* *PRINT-LENGTH*)) - (SETQ FILES (RESETOPENFILES FILES)) - - (* ;; "Checks that all FILES are there, and if not, attempts spelling correction. Opens them for input, too, and returns the input stream") - - (BCOMPL.BODY FILES CFILE NOBLOCKSFLG OPTIONSSET]) + (RESETLST + (LET ((NLAML NLAML) + (NLAMA NLAMA) + (LAMS LAMS) + (LAMA LAMA) + (DWIMIFYCOMPFLG DWIMIFYCOMPFLG) + (EXPRSLST NIL) + (NOFIXVARSLST NOFIXVARSLST) + (NOFIXFNSLST NOFIXFNSLST) + (*PRINT-ARRAY* T) + (*PRINT-LENGTH* NIL) + (*PRINT-LEVEL* NIL)) + (DECLARE (SPECVARS NLAML NLAMA LAMS LAMA DWIMIFYCOMPFLG EXPRSLST NOFIXVARSLST + NOFIXFNSLST *PRINT-ARRAY* *PRINT-LEVEL* *PRINT-LENGTH*)) + + (* ;; "Checks that all FILES are there, and if not, attempts spelling correction. Opens them for input, too, and returns the input stream") + + (BCOMPL.BODY (RESETOPENFILES FILES) + CFILE NOBLOCKSFLG OPTIONSSET)))]) (BCOMPL.BODY - [LAMBDA (FILES CFILE NOBLOCKSFLG OPTIONSSET) (* bvm%: "13-Oct-86 17:07") + [LAMBDA (STREAMS CFILE NOBLOCKSFLG OPTIONSSET) (* ; "Edited 5-Jul-2021 13:46 by rmk:") + +(* ;;; "STREAMS is a list of streams. Compile everything on them, dumping to CFILE (default first stream.dcom). NOBLOCKSFLG means TCOMPL instead of BCOMPL. OPTIONSSET is true if the Listing? question has already been asked.") -(* ;;; "FILES is a list of streams. Compile everything on them, dumping to CFILE (default first stream.dcom). NOBLOCKSFLG means TCOMPL instead of BCOMPL. OPTIONSSET is true if the Listing? question has already been asked.") +(* ;;; "RMK: Apply each input streams \EXTERNALFORMAT") (DECLARE (SPECVARS CFILE)) (PROG ((SPECVARS T) @@ -60,78 +125,87 @@ with the terms of said license. (DECLARE (SPECVARS SPECVARS LOCALVARS CHANGES OTHERS FIRST BLOCKS BLKFNS DESTINATIONENV DEFS)) [OR OPTIONSSET (COMPSET NIL '(F % -] (* ; -"OPTIONSSET is T on calls from TCOMPL. In this case, the first COMPSET has already been performed.") +] (* ; +"OPTIONSSET is T on calls from TCOMPL. In this case, the first COMPSET has already been performed.") (COMPSET (OR CFILE (PACKFILENAME 'HOST [CADR (FMEMB 'HOST (SETQ UNPACKFILE - (UNPACKFILENAME (CAR FILES] + (UNPACKFILENAME (CAR STREAMS + ] 'DIRECTORY (CADR (FMEMB 'DIRECTORY UNPACKFILE)) 'NAME (SETQ FILEROOT (CADR (FMEMB 'NAME UNPACKFILE))) 'EXTENSION COMPILE.EXT))) - (* ;; "Edited by TT(8-June-90 : for Fix AR#2999)") + (* ;; "Edited by TT(8-June-90 : for Fix AR#2999)") [COND (LCFIL (SETQ SCRATCHFILE (OPENSTREAM BCOMPL.SCRATCH 'BOTH 'NEW] - (RESETSAVE NIL (LIST 'BCOMPL3 NIL FILES SCRATCHFILE)) + (RESETSAVE NIL (LIST 'BCOMPL3 NIL STREAMS SCRATCHFILE)) - (* ;; "BCOMPL3 will close and if necessary delete all the appropriate files when bcompl finishes, or control-d or control-e occurs.") + (* ;; "BCOMPL3 will close and if necessary delete all the appropriate files when bcompl finishes, or control-d or control-e occurs.") [LET (DFNFLG) - (* ;; "if top level value of DFNFLG is PROP, still want to evaluate expressions in declarations etc as though it were T. i.e. make BCOMPL1A equivalent to doing a LOADCOMP") + (* ;; "if top level value of DFNFLG is PROP, still want to evaluate expressions in declarations etc as though it were T. i.e. make BCOMPL1A equivalent to doing a LOADCOMP") - (for STREAM in FILES + (for STREAM in STREAMS do (RESETLST (RESETSAVE NIL (LIST 'CLOSEF STREAM)) - (RESETSAVE (INPUT STREAM)) (* ; - "Needs to be primary input for some of the filepkg expressions to work") + (RESETSAVE (INPUT STREAM)) (* ; + "Needs to be primary input for some of the filepkg expressions to work") (WITH-READER-ENVIRONMENT *OLD-INTERLISP-READ-ENVIRONMENT* (until (OR (NULL (SETQ TEM (READ STREAM))) - (EQ TEM 'STOP)) do (BCOMPL1A TEM 'DEFAULT - 'DEFAULT - 'DEFAULT))))] + (EQ TEM 'STOP)) + do (CL:WHEN (EQ (CAR (LISTP TEM)) + 'DEFINE-FILE-INFO) + (\EXTERNALFORMAT STREAM (OR (LISTGET (CDR TEM) + :FORMAT) + :XCCS))) + (BCOMPL1A TEM 'DEFAULT 'DEFAULT 'DEFAULT STREAM))))] (SETQ NOFIXFNSLST (APPEND NLAMA NLAML LAMS (NCONC [MAPCAR DEFS (FUNCTION (LAMBDA (X) (RCOMP3 (CAR X) (CADR X] NOFIXFNSLST))) - (* ;; "The BCOMPL1 reads in FILES. It returns a list of variables set in the files. The RCOMP3 adds function to NLAMA, LAMS, etc., and returns a list of functions. NOFIXFNLST is reset in case there is any dwimifying to be done.") + (* ;; "The BCOMPL1 reads in FILES. It returns a list of variables set in the files. The RCOMP3 adds function to NLAMA, LAMS, etc., and returns a list of functions. NOFIXFNLST is reset in case there is any dwimifying to be done.") (WITH-READER-ENVIRONMENT (OR DESTINATIONENV (SETQ DESTINATIONENV *OLD-INTERLISP-READ-ENVIRONMENT*)) (COND - (LCFIL (PRINT-COMPILE-HEADER FILES [LIST (COND - (NOBLOCKSFLG 'tcompl'd) - (T 'bcompl'd] + (LCFIL (\EXTERNALFORMAT LCFIL (OR (FETCH (READER-ENVIRONMENT REFORMAT) + OF DESTINATIONENV) + :XCCS)) + (PRINT-COMPILE-HEADER STREAMS [LIST (COND + (NOBLOCKSFLG 'tcompl'd) + (T 'bcompl'd] DESTINATIONENV))) (COND (SCRATCHFILE - (* ;; "writes others on a scratchfile so space can be freed up. will be copied onto lcfil aftr compilation.") + (* ;; "writes others on a scratchfile so space can be freed up. will be copied onto lcfil aftr compilation.") + (\EXTERNALFORMAT SCRATCHFILE (\EXTERNALFORMAT LCFIL)) (for X in OTHERS do (PRINT X SCRATCHFILE)) (PRINT NIL SCRATCHFILE) (SETQ OTHERS NIL))) [OR DWIMIFYCOMPFLG (SETQ DWIMIFYCOMPFLG (EQMEMB 'CLISP (GETPROP FILEROOT 'FILETYPE] - (* ; - "The FILETYPE may have been set during the course of BCOMPL1.") + (* ; + "The FILETYPE may have been set during the course of BCOMPL1.") [MAPC FIRST (FUNCTION (LAMBDA (X) (PRINT X LCFIL] [PROG (LISPXHIST) (DECLARE (SPECVARS LISPXHIST)) - (* ;; "compile blocks MAPC not used because BCOMPL2 checks BLOCKS. lispxhist rebound bcause no need to save information when compiling from file") + (* ;; "compile blocks MAPC not used because BCOMPL2 checks BLOCKS. lispxhist rebound bcause no need to save information when compiling from file") (AND NOBLOCKSFLG (GO NOBLOCKLP)) BLOCKLP (COND (BLOCKS (BCOMPL2 (CAR BLOCKS)) (SETQ BLOCKS (CDR BLOCKS)) - (GO BLOCKLP))) (* ; - "COMPILE other functions. done this way instead of MAPC to release the defs as soon aspossible.") + (GO BLOCKLP))) (* ; + "COMPILE other functions. done this way instead of MAPC to release the defs as soon aspossible.") NOBLOCKLP (COND (DEFS (AND (NOT (FMEMB (CAAR DEFS) @@ -423,9 +497,240 @@ with the terms of said license. (SETQ BLOCKS (NCONC1 BLOCKS X)))) (BRECOMPILE -(LAMBDA (FILES CFILE FNS NOBLOCKSFLG) (* ; "Edited 6-Jan-89 10:01 by jds") (* ;;; "FNS is a list of functions to be recompiled. The object is to make a file that looks exactly like that produced by BCOMPL except to greatly reduce the work by copying from CFILE the compiled definitions those functions not being recompiled.") (* ;;; "BRECOMPILE is driven by the source file(s). The algorithm is whenever a DEFINEQ is encountered, process all of the functions in the DEFINEQ as follows: COMPILE the definition of the function if it is on the list FNS, or if FNS is EXPRS and the function is currently defined as an EXPR. Otherwise copy its compiled definition from CFILE. Note that functions with compiled definitions in CFILE that do not appear in PFILE are NOT copied. This corresponds to the case where functions have been deleted from the source file.") (* ;;; "The value FNS = CHANGES means recompile anything marked changed in the file header.") (* ;;; "(RECOMPILE file cfile fns) is equivalent to (BRECOMPILE file cfile fns T).") (* ;;; "Note that CFILE=NIL is interpreted as meaning file.dcom even when FNS supplied.") (RESETLST (PROG ((*PRINT-ARRAY* T) (*PRINT-LENGTH* NIL) (*PRINT-LEVEL* NIL) (NLAMA NLAMA) (NLAML NLAML) (LAMS LAMS) (LAMA LAMA) (DWIMIFYCOMPFLG DWIMIFYCOMPFLG) (EXPRSLST NIL) (NOFIXFNSLST NOFIXFNSLST) (NOFIXVARSLST NOFIXVARSLST) (BUILDMAPFLG T) (SPECVARS T) (LOCALVARS SYSLOCALVARS) (AUXFILECOM T) CHANGES OTHERS FIRST FILEMAPLST FNLST BLKFNS BLOCKS FILE FILE.COM TEM ADRLST SCRATCHFILE COREOK DESTINATIONENV MSG) (DECLARE (SPECVARS *PRINT-ARRAY* *PRINT-LENGTH* *PRINT-LEVEL* NLAMA NLAML LAMS LAMA DWIMIFYCOMPFLG EXPRSLST NOFIXFNSLST NOFIXVARSLST BUILDMAPFLG SPECVARS LOCALVARS CHANGES OTHERS FIRST BLKFNS BLOCKS DESTINATIONENV ADRLST FILEMAPLST CFILE FNS FILE)) (COND ((AND (NULL CFILE) (NULL FNS)) (SETQ FNS RECOMPILEDEFAULT))) (RESETSAVE (INPUT)) (SETQ FILES (RESETOPENFILES FILES)) (COND ((SETQ TEM (for FILE in FILES when (NOT (RANDACCESSP FILE)) collect (FULLNAME FILE))) (GO NONRAND))) (SETQ FILE (UNPACKFILENAME (CAR FILES))) (SETQ FILE.COM (PACKFILENAME (QUOTE HOST) (CADR (FMEMB (QUOTE HOST) FILE)) (QUOTE DIRECTORY) (CADR (FMEMB (QUOTE DIRECTORY) FILE)) (QUOTE NAME) (SETQ FILE (CADR (FMEMB (QUOTE NAME) FILE))) (QUOTE EXTENSION) COMPILE.EXT)) (* ;; "Edited by TT (8-June-90 : for fix AR#2999)") (COND ((EQ FNS (QUOTE ALL)) (GO BRECALL))) CFILERETRY (COND ((NLSETQ (SETQ CFILE (OPENSTREAM (OR CFILE FILE.COM) (QUOTE INPUT) (QUOTE OLD) NIL (QUOTE ((TYPE BINARY)))))) (COND ((NOT (RANDACCESSP CFILE)) (SETQ TEM (CLOSEF CFILE)) (GO NONRAND)) ((OR (NULL (SETQ DESTINATIONENV (GET-ENVIRONMENT-AND-FILEMAP (CAR FILES)))) (CL:MULTIPLE-VALUE-BIND (ENV DUMMY START) (\PARSE-FILE-HEADER CFILE) (COND ((OR (NULL ENV) (NOT (EQUAL-READER-ENVIRONMENT ENV DESTINATIONENV))) T) (T (* "Position cfile back to start") (SETFILEPTR CFILE START) NIL)))) (SETQ TEM (CLOSEF CFILE)) (SETQ MSG " has different reader environment than the new file") (GO NONREC))) (GO BREC)) ((OR (AND (EQ AUXFILECOM T) (SETQ AUXFILECOM (SPELLFILE (ROOTFILENAME (OR CFILE FILE.COM)))) (SETQ CFILE AUXFILECOM) (GO CFILERETRY)) (EQ (ASKUSER DWIMWAIT (QUOTE Y) (LIST (OR CFILE FILE.COM) "not found;" " compile all functions on " (FULLNAME (CAR FILES)) (QUOTE "instead"))) (QUOTE Y))) (* ; "Edited by TT(8-June-90 : for Fix AR#8017)") (GO BRECALL)) ((EQ (ASKUSER DWIMWAIT (QUOTE Y) (CONS (QUOTE "Just forget about compiling") (MAPCAR FILES (FUNCTION FULLNAME)))) (QUOTE Y)) (SELECTQ (CAR READBUF) ((ST F STF) (* "E.g. From CLEANUP.") (SETQ READBUF (CDR READBUF))) NIL) (RETFROM (QUOTE BRECOMPILE))) (T (PRIN1 "File to use for CFILE (source of compiled definitions not being recompiled): " T) (SETQ CFILE (READ T T)) (GO CFILERETRY))) BRECALL (SETQQ FNS ALL) (SETQ CFILE NIL) BREC (COMPSET NIL (QUOTE (S T % -))) (SETQ LCFIL (OPENSTREAM FILE.COM (QUOTE OUTPUT) (QUOTE NEW) NIL (QUOTE ((TYPE BINARY))))) (SETQ SCRATCHFILE (OPENSTREAM BCOMPL.SCRATCH (QUOTE BOTH) (QUOTE NEW))) (RESETSAVE NIL (LIST (QUOTE BCOMPL3) CFILE FILES SCRATCHFILE)) (* ;; "BCOMPL3 will close and if necessary delete all the appropriate files when brecompile finishes, or control-d or control-e occurs. Note that this call differs from the call for bcompl in that cfile is also specified. this corresponds to the fact that recompile has an extra file open.") (SETQ COREOK (for X in FILES always (AND (EQ (CDAR (GETPROP (SETQ TEM (ROOTFILENAME X)) (QUOTE FILEDATES))) X) (FMEMB (CDAR (GETPROP TEM (QUOTE FILE))) (QUOTE (LOADFNS T)))))) (SETQ FILEMAPLST (for STREAM in FILES collect (LET ((LDFLG (QUOTE EXPRESSIONS)) (VARLST (QUOTE COMPILING)) DONELST FNLST) (DECLARE (SPECVARS LDFLG VARLST DONELST FNLST)) (* ; "FNLST etc are used free in LOADFNSCAN") (SETFILEPTR STREAM 0) (INPUT STREAM) (* ;; "LOADFNSCAN scans the file, building a map if one not already there. Value is the map. In addition, sets DONELST to a list of all non-defineq expressions.") (CL:MULTIPLE-VALUE-BIND (ENV MAP FILECREATEDLOC) (GET-ENVIRONMENT-AND-FILEMAP STREAM) (DECLARE (CL:SPECIAL FILECREATEDLOC)) (* ; " used by LOADFNSCAN") (WITH-READER-ENVIRONMENT ENV (create COMPFILEDESCR COMPFILESTREAM _ STREAM COMPFILEENV _ ENV COMPFILEMAP _ (LOADFNSCAN MAP) COMPFILEXPRS _ (DREVERSE DONELST))))))) (SETQ FNLST (for DESCR in FILEMAPLST join (for DEFQ in (CDR (fetch COMPFILEMAP of DESCR)) join (for X in (CDDR DEFQ) collect (CAR X))))) (* ;; "FILEMAPLST is a list of information about each file, including its name, filemap and non-defineq expressions. The first entry on the filemap is NIL. We start mapping down CDR of the filemap, and each element therein corresponds to a single DEFINEQ, in the form (start stop . fnEntries). fnEntries is a list of (FN start . stop), so the inner MAPCAR gathers up the names of the functions. The reason for not asking LOADFNS to do this is in most cases the map will already have been built, so LOADFNS won't even go inside of the defineq.") (for DESCR in FILEMAPLST do (for FORM in (fetch COMPFILEXPRS of DESCR) do (BCOMPL1A FORM (QUOTE DEFAULT) (QUOTE DEFAULT) (QUOTE DEFAULT)))) (* ;; "BCOMPL1A adds VARS set in the files to NOFIXVARSLST. NOFIXFNLST and NOFIXVARSLST are reset in case there is any dwimifying to be done BCOMPL1 also sets free variable OTHERS to list of expressions to be printed on compiled file when all is done.") (SETQ NOFIXFNSLST (APPEND NLAMA NLAML LAMS FNLST NOFIXFNSLST)) (WITH-READER-ENVIRONMENT (SETQ DESTINATIONENV (fetch COMPFILEENV of (CAR FILEMAPLST))) (* ; "Start writing the compiled file. Use environment of one of the source files--usually the only one") (if LCFIL then (PRINT-COMPILE-HEADER FILES (CONS (if NOBLOCKSFLG then (QUOTE recompiled) else (QUOTE brecompiled)) (if (EQ FNS (QUOTE ALL)) then (LIST (QUOTE ALL)) else (CONS (SELECTQ FNS (CHANGES (QUOTE changes%:)) ((EXPRS T) (QUOTE exprs%:)) (QUOTE explicitly%:)) (OR (SUBSET FNLST (FUNCTION (LAMBDA (X) (RECOMP? X FNS)))) (LIST (QUOTE nothing)))))) DESTINATIONENV)) (MAPC FNLST (FUNCTION (LAMBDA (X) (RCOMP3 X (VIRGINFN X))))) (if SCRATCHFILE then (* ;; "writes others on a scratchfile so space can be freed up. will be copied onto lcfil aftr compilation.") (for X in OTHERS do (PRINT X SCRATCHFILE)) (PRINT NIL SCRATCHFILE) (SETQ OTHERS NIL)) (for X in (PROGN FIRST) do (PRINT X LCFIL)) (OR DWIMIFYCOMPFLG (SETQ DWIMIFYCOMPFLG (EQMEMB (QUOTE CLISP) (GETPROP FILE (QUOTE FILETYPE))))) (OR (EQ FNS (QUOTE ALL)) (INPUT CFILE)) (if (NOT NOBLOCKSFLG) then (for BLOCK in BLOCKS do (if (NULL (CAR BLOCK)) then (BCOMPL2 BLOCK FILEMAPLST) elseif (for X in BLOCK thereis (AND (LITATOM X) (RECOMP? X FNS))) then (* ; "If any function in the BLOCK is to be recompiled, the whole BLOCK must be recompiled.") (BCOMPL2 BLOCK FILEMAPLST COREOK) else (BRECOMPILE1 BLOCK)))) (* ;; "NOBLOCKSFLG is T for calls from RECOMPILE. In this case, even if there were any blocks, ignore them.") (* ; "Now COMPILE rest of functions.") (for X in FNLST do (if (OR (FMEMB X BLKFNS) (FMEMB X DONTCOMPILEFNS)) elseif (RECOMP? X FNS) then (* ;; "The HELP is bcause if X is on FNS, then it follows X is in the file map, and brecompile3 should be able to produce its definition.") (COMPILE1 X (CADR (SETQ TEM (BRECOMPILE3 X FILEMAPLST COREOK))) (CADDR TEM)) else (BRECOMPILE1 X T)))) (RETURN (FULLNAME LCFIL)) NONRAND (SETQ MSG " is not RANDACCESSP") NONREC (printout T TEM MSG ", using " (if NOBLOCKSFLG then (QUOTE TCOMPL) else (QUOTE BCOMPL)) " instead." T) (RETURN (BCOMPL.BODY FILES NIL NOBLOCKSFLG))))) -) + [LAMBDA (FILES CFILE FNS NOBLOCKSFLG) (* ; "Edited 5-Jul-2021 09:28 by rmk:") + +(* ;;; "FNS is a list of functions to be recompiled. The object is to make a file that looks exactly like that produced by BCOMPL except to greatly reduce the work by copying from CFILE the compiled definitions those functions not being recompiled.") + +(* ;;; "BRECOMPILE is driven by the source file(s). The algorithm is whenever a DEFINEQ is encountered, process all of the functions in the DEFINEQ as follows: COMPILE the definition of the function if it is on the list FNS, or if FNS is EXPRS and the function is currently defined as an EXPR. Otherwise copy its compiled definition from CFILE. Note that functions with compiled definitions in CFILE that do not appear in PFILE are NOT copied. This corresponds to the case where functions have been deleted from the source file.") + +(* ;;; "The value FNS = CHANGES means recompile anything marked changed in the file header.") + +(* ;;; "(RECOMPILE file cfile fns) is equivalent to (BRECOMPILE file cfile fns T).") + +(* ;;; "Note that CFILE=NIL is interpreted as meaning file.dcom even when FNS supplied.") + + (RESETLST + (PROG ((*PRINT-ARRAY* T) + (*PRINT-LENGTH* NIL) + (*PRINT-LEVEL* NIL) + (NLAMA NLAMA) + (NLAML NLAML) + (LAMS LAMS) + (LAMA LAMA) + (DWIMIFYCOMPFLG DWIMIFYCOMPFLG) + (EXPRSLST NIL) + (NOFIXFNSLST NOFIXFNSLST) + (NOFIXVARSLST NOFIXVARSLST) + (BUILDMAPFLG T) + (SPECVARS T) + (LOCALVARS SYSLOCALVARS) + (AUXFILECOM T) + CHANGES OTHERS FIRST FILEMAPLST FNLST BLKFNS BLOCKS FILE FILE.COM TEM ADRLST + SCRATCHFILE COREOK DESTINATIONENV MSG) + (DECLARE (SPECVARS *PRINT-ARRAY* *PRINT-LENGTH* *PRINT-LEVEL* NLAMA NLAML LAMS + LAMA DWIMIFYCOMPFLG EXPRSLST NOFIXFNSLST NOFIXVARSLST BUILDMAPFLG + SPECVARS LOCALVARS CHANGES OTHERS FIRST BLKFNS BLOCKS + DESTINATIONENV ADRLST FILEMAPLST CFILE FNS FILE)) + (COND + ((AND (NULL CFILE) + (NULL FNS)) + (SETQ FNS RECOMPILEDEFAULT))) + (RESETSAVE (INPUT)) + (SETQ FILES (RESETOPENFILES FILES)) + (COND + ((SETQ TEM (for FILE in FILES when (NOT (RANDACCESSP FILE)) + collect (FULLNAME FILE))) + (GO NONRAND))) + (SETQ FILE (UNPACKFILENAME (CAR FILES))) + (SETQ FILE.COM (PACKFILENAME 'HOST (CADR (FMEMB 'HOST FILE)) + 'DIRECTORY + (CADR (FMEMB 'DIRECTORY FILE)) + 'NAME + (SETQ FILE (CADR (FMEMB 'NAME FILE))) + 'EXTENSION COMPILE.EXT)) + + (* ;; "Edited by TT (8-June-90 : for fix AR#2999)") + + (COND + ((EQ FNS 'ALL) + (GO BRECALL))) + CFILERETRY + (COND + ([NLSETQ (SETQ CFILE (OPENSTREAM (OR CFILE FILE.COM) + 'INPUT + 'OLD NIL '((TYPE BINARY] + (COND + ((NOT (RANDACCESSP CFILE)) + (SETQ TEM (CLOSEF CFILE)) + (GO NONRAND)) + ([OR [NULL (SETQ DESTINATIONENV (GET-ENVIRONMENT-AND-FILEMAP (CAR FILES] + (CL:MULTIPLE-VALUE-BIND (ENV DUMMY START) + (\PARSE-FILE-HEADER CFILE) + (COND + ((OR (NULL ENV) + (NOT (EQUAL-READER-ENVIRONMENT ENV DESTINATIONENV))) + T) + (T (* "Position cfile back to start") + (SETFILEPTR CFILE START) + NIL] + (SETQ TEM (CLOSEF CFILE)) + (SETQ MSG " has different reader environment than the new file") + (GO NONREC))) + (GO BREC)) + ((OR (AND (EQ AUXFILECOM T) + [SETQ AUXFILECOM (SPELLFILE (ROOTFILENAME (OR CFILE FILE.COM] + (SETQ CFILE AUXFILECOM) + (GO CFILERETRY)) + (EQ (ASKUSER DWIMWAIT 'Y (LIST (OR CFILE FILE.COM) + "not found;" " compile all functions on " + (FULLNAME (CAR FILES)) + '"instead")) + 'Y)) (* ; + "Edited by TT(8-June-90 : for Fix AR#8017)") + (GO BRECALL)) + ((EQ [ASKUSER DWIMWAIT 'Y (CONS '"Just forget about compiling" + (MAPCAR FILES (FUNCTION FULLNAME] + 'Y) + (SELECTQ (CAR READBUF) + ((ST F STF) (* "E.g. From CLEANUP.") + (SETQ READBUF (CDR READBUF))) + NIL) + (RETFROM 'BRECOMPILE)) + (T (PRIN1 + "File to use for CFILE (source of compiled definitions not being recompiled): " + T) + (SETQ CFILE (READ T T)) + (GO CFILERETRY))) + BRECALL + (SETQQ FNS ALL) + (SETQ CFILE NIL) + BREC + (COMPSET NIL '(S T % +)) + [SETQ LCFIL (OPENSTREAM FILE.COM 'OUTPUT 'NEW NIL '((TYPE BINARY] + (SETQ SCRATCHFILE (OPENSTREAM BCOMPL.SCRATCH 'BOTH 'NEW)) + (RESETSAVE NIL (LIST 'BCOMPL3 CFILE FILES SCRATCHFILE)) + + (* ;; "BCOMPL3 will close and if necessary delete all the appropriate files when brecompile finishes, or control-d or control-e occurs. Note that this call differs from the call for bcompl in that cfile is also specified. this corresponds to the fact that recompile has an extra file open.") + + [SETQ COREOK (for X in FILES + always (AND (EQ (CDAR (GETPROP (SETQ TEM (ROOTFILENAME X)) + 'FILEDATES)) + X) + (FMEMB (CDAR (GETPROP TEM 'FILE)) + '(LOADFNS T] + [SETQ FILEMAPLST + (for STREAM in FILES + collect (LET ((LDFLG 'EXPRESSIONS) + (VARLST 'COMPILING) + DONELST FNLST) + (DECLARE (SPECVARS LDFLG VARLST DONELST FNLST)) + (* ; + "FNLST etc are used free in LOADFNSCAN") + (SETFILEPTR STREAM 0) + (INPUT STREAM) + + (* ;; "LOADFNSCAN scans the file, building a map if one not already there. Value is the map. In addition, sets DONELST to a list of all non-defineq expressions.") + + (CL:MULTIPLE-VALUE-BIND (ENV MAP FILECREATEDLOC) + (GET-ENVIRONMENT-AND-FILEMAP STREAM) + (DECLARE (CL:SPECIAL FILECREATEDLOC)) + (* ; " used by LOADFNSCAN") + (WITH-READER-ENVIRONMENT ENV + (create COMPFILEDESCR + COMPFILESTREAM _ STREAM + COMPFILEENV _ ENV + COMPFILEMAP _ (LOADFNSCAN MAP) + COMPFILEXPRS _ (DREVERSE DONELST)))] + [SETQ FNLST (for DESCR in FILEMAPLST + join (for DEFQ in (CDR (fetch COMPFILEMAP of DESCR)) + join (for X in (CDDR DEFQ) + collect (CAR X] + + (* ;; "FILEMAPLST is a list of information about each file, including its name, filemap and non-defineq expressions. The first entry on the filemap is NIL. We start mapping down CDR of the filemap, and each element therein corresponds to a single DEFINEQ, in the form (start stop . fnEntries). fnEntries is a list of (FN start . stop), so the inner MAPCAR gathers up the names of the functions. The reason for not asking LOADFNS to do this is in most cases the map will already have been built, so LOADFNS won't even go inside of the defineq.") + + [for DESCR in FILEMAPLST do (for FORM + in (fetch COMPFILEXPRS of DESCR) + do (BCOMPL1A FORM 'DEFAULT + 'DEFAULT + 'DEFAULT] + + (* ;; "BCOMPL1A adds VARS set in the files to NOFIXVARSLST. NOFIXFNLST and NOFIXVARSLST are reset in case there is any dwimifying to be done BCOMPL1 also sets free variable OTHERS to list of expressions to be printed on compiled file when all is done.") + + (SETQ NOFIXFNSLST (APPEND NLAMA NLAML LAMS FNLST NOFIXFNSLST)) + (WITH-READER-ENVIRONMENT (SETQ DESTINATIONENV (fetch COMPFILEENV + of (CAR FILEMAPLST))) + (* ; +"Start writing the compiled file. Use environment of one of the source files--usually the only one") + (if LCFIL + then (\EXTERNALFORMAT LCFIL (OR (LISTGET DESTINATIONENV :FORMAT) + :XCCS)) + (PRINT-COMPILE-HEADER + FILES + [CONS (if NOBLOCKSFLG + then 'recompiled + else 'brecompiled) + (if (EQ FNS 'ALL) + then (LIST 'ALL) + else (CONS (SELECTQ FNS + (CHANGES 'changes%:) + ((EXPRS T) + 'exprs%:) + 'explicitly%:) + (OR [SUBSET FNLST (FUNCTION (LAMBDA (X) + (RECOMP? X FNS] + (LIST 'nothing] + DESTINATIONENV)) + [MAPC FNLST (FUNCTION (LAMBDA (X) + (RCOMP3 X (VIRGINFN X] + (if SCRATCHFILE + then + + (* ;; "writes others on a scratchfile so space can be freed up. will be copied onto lcfil aftr compilation.") + + (\EXTERNALFORMAT SCRATCHFILE (\EXTERNALFORMAT LCFIL)) + (for X in OTHERS do (PRINT X SCRATCHFILE)) + (PRINT NIL SCRATCHFILE) + (SETQ OTHERS NIL)) + (for X in (PROGN FIRST) do (PRINT X LCFIL)) + [OR DWIMIFYCOMPFLG (SETQ DWIMIFYCOMPFLG (EQMEMB 'CLISP (GETPROP FILE 'FILETYPE] + (OR (EQ FNS 'ALL) + (INPUT CFILE)) + [if (NOT NOBLOCKSFLG) + then (for BLOCK in BLOCKS + do (if (NULL (CAR BLOCK)) + then (BCOMPL2 BLOCK FILEMAPLST) + elseif (for X in BLOCK + thereis (AND (LITATOM X) + (RECOMP? X FNS))) + then (* ; + "If any function in the BLOCK is to be recompiled, the whole BLOCK must be recompiled.") + (BCOMPL2 BLOCK FILEMAPLST COREOK) + else (BRECOMPILE1 BLOCK] + + (* ;; "NOBLOCKSFLG is T for calls from RECOMPILE. In this case, even if there were any blocks, ignore them.") + (* ; "Now COMPILE rest of functions.") + (for X in FNLST + do (if (OR (FMEMB X BLKFNS) + (FMEMB X DONTCOMPILEFNS)) + elseif (RECOMP? X FNS) + then + + (* ;; "The HELP is bcause if X is on FNS, then it follows X is in the file map, and brecompile3 should be able to produce its definition.") + + (COMPILE1 X (CADR (SETQ TEM (BRECOMPILE3 X FILEMAPLST + COREOK))) + (CADDR TEM)) + else (BRECOMPILE1 X T)))) + (RETURN (FULLNAME LCFIL)) + NONRAND + (SETQ MSG " is not RANDACCESSP") + NONREC + (printout T TEM MSG ", using " (if NOBLOCKSFLG + then 'TCOMPL + else 'BCOMPL) + " instead." T) + (RETURN (BCOMPL.BODY FILES NIL NOBLOCKSFLG))))]) (BRECOMPILE1 (LAMBDA (FN/BLOCK NOBLOCKSFLG) (* bvm%: "29-Aug-86 22:41") @@ -1109,63 +1414,73 @@ with the terms of said license. THEN (SETQ GLOBALVARS (UNION A GLOBALVARS]) ) -(ADDTOVAR NOLINKFNS HELP ERRORX ERRORSET EVALV FAULTEVAL INTERRUPT SEARCHPDL MAPDL BREAK1 EDITE EDITL) +(ADDTOVAR NOLINKFNS HELP ERRORX ERRORSET EVALV FAULTEVAL INTERRUPT SEARCHPDL MAPDL BREAK1 EDITE + EDITL) -(ADDTOVAR LINKFNS) +(ADDTOVAR LINKFNS ) -(ADDTOVAR FREEVARS) +(ADDTOVAR FREEVARS ) -(ADDTOVAR SYSSPECVARS HELPCLOCK LISPXHIST RESETSTATE OLDVALUE UNDOSIDE0 SPECVARS LOCALVARS GLOBALVARS) +(ADDTOVAR SYSSPECVARS HELPCLOCK LISPXHIST RESETSTATE OLDVALUE UNDOSIDE0 SPECVARS LOCALVARS + GLOBALVARS) -(ADDTOVAR SYSLOCALVARS) +(ADDTOVAR SYSLOCALVARS ) -(ADDTOVAR LOCALFREEVARS) +(ADDTOVAR LOCALFREEVARS ) -(ADDTOVAR BLKLIBRARY) +(ADDTOVAR BLKLIBRARY ) -(ADDTOVAR RETFNS) +(ADDTOVAR RETFNS ) -(ADDTOVAR BLKAPPLYFNS) +(ADDTOVAR BLKAPPLYFNS ) -(ADDTOVAR DONTCOMPILEFNS) +(ADDTOVAR DONTCOMPILEFNS ) -(ADDTOVAR NLAML) +(ADDTOVAR NLAML ) -(ADDTOVAR NLAMA) +(ADDTOVAR NLAMA ) -(ADDTOVAR LAMS) +(ADDTOVAR LAMS ) -(ADDTOVAR LAMA) +(ADDTOVAR LAMA ) -(RPAQ? SPECVARS T) +(RPAQ? SPECVARS T) -(RPAQ? LOCALVARS SYSLOCALVARS) +(RPAQ? LOCALVARS SYSLOCALVARS) -(RPAQ? DWIMIFYCOMPFLG NIL) +(RPAQ? DWIMIFYCOMPFLG NIL) -(RPAQ? COMPILEHEADER "compiled on ") +(RPAQ? COMPILEHEADER "compiled on ") -(RPAQ? COMPSETLST (QUOTE (ST F STF S Y N 1 2 NIL T))) +(RPAQ? COMPSETLST '(ST F STF S Y N 1 2 NIL T)) -(RPAQ? COMPSETKEYLST (QUOTE ((ST "ore and redefine " KEYLST ("" (F . "orget exprs"))) (S . "ame as last time") (F . "ile only") (T . "o terminal") (1) (2) (Y . "es") (N . "o")))) +(RPAQ? COMPSETKEYLST '((ST "ore and redefine " KEYLST ("" (F . "orget exprs"))) + (S . "ame as last time") + (F . "ile only") + (T . "o terminal") + (1) + (2) + (Y . "es") + (N . "o"))) -(RPAQ? COMPSETDEFAULTKEYLST (QUOTE ((Y . "es") (N . "o")))) +(RPAQ? COMPSETDEFAULTKEYLST '((Y . "es") + (N . "o"))) -(RPAQ? BCOMPL.SCRATCH (QUOTE {CORE}BCOMPL.SCRATCH)) +(RPAQ? BCOMPL.SCRATCH '{CORE}BCOMPL.SCRATCH) -(RPAQ? RECOMPILEDEFAULT (QUOTE CHANGES)) +(RPAQ? RECOMPILEDEFAULT 'CHANGES) -(RPAQ? COUTFILE T) +(RPAQ? COUTFILE T) -(RPAQ? SVFLG T) +(RPAQ? SVFLG T) -(RPAQ? STRF T) +(RPAQ? STRF T) -(RPAQ? LSTFIL T) +(RPAQ? LSTFIL T) -(RPAQ? LCFIL) +(RPAQ? LCFIL ) -(RPAQ? LAPFLG T) +(RPAQ? LAPFLG T) (DECLARE%: DONTCOPY (DECLARE%: EVAL@COMPILE @@ -1174,27 +1489,33 @@ with the terms of said license. (DECLARE%: EVAL@COMPILE -(PUTPROPS DIGITCHARP MACRO (LAMBDA (CHAR) (AND (IGEQ CHAR (CHARCODE 0)) (ILEQ CHAR (CHARCODE 9))))) +(PUTPROPS DIGITCHARP MACRO [LAMBDA (CHAR) + (AND (IGEQ CHAR (CHARCODE 0)) + (ILEQ CHAR (CHARCODE 9]) ) (DECLARE%: DOEVAL@COMPILE DONTCOPY -(GLOBALVARS SYSSPECVARS SYSLOCALVARS RECOMPILEDEFAULT COMPILE.EXT NOTCOMPILEDFILES BYTECOMPFLG COMPILEHEADER COMPVERSION BCOMPL.SCRATCH LINKEDFNS NOFIXVARSLST0 NOFIXFNSLST0 CLISPTRANFLG CLISPARRAY COMPSETKEYLST REREADFLG HISTSTR0 LISPXHISTORY COMPSETDEFAULTKEYLST FILERDTBL DWIMFLG DWIMWAIT) +(GLOBALVARS SYSSPECVARS SYSLOCALVARS RECOMPILEDEFAULT COMPILE.EXT NOTCOMPILEDFILES BYTECOMPFLG + COMPILEHEADER COMPVERSION BCOMPL.SCRATCH LINKEDFNS NOFIXVARSLST0 NOFIXFNSLST0 CLISPTRANFLG + CLISPARRAY COMPSETKEYLST REREADFLG HISTSTR0 LISPXHISTORY COMPSETDEFAULTKEYLST FILERDTBL + DWIMFLG DWIMWAIT) ) ) -(MOVD? (QUOTE NILL) (QUOTE FILECHANGES)) +(MOVD? 'NILL 'FILECHANGES) -(CL:PROCLAIM (QUOTE (CL:SPECIAL COMPVARMACROHASH))) +(CL:PROCLAIM '(CL:SPECIAL COMPVARMACROHASH)) -(CL:PROCLAIM (QUOTE (GLOBAL SYSSPECVARS SYSLOCALVARS COMPILE.EXT NOTCOMPILEDFILES CLISPARRAY FILERDTBL DWIMFLG DWIMWAIT LISPXHISTORY))) +(CL:PROCLAIM '(GLOBAL SYSSPECVARS SYSLOCALVARS COMPILE.EXT NOTCOMPILEDFILES CLISPARRAY FILERDTBL + DWIMFLG DWIMWAIT LISPXHISTORY)) (* ; "COMPILEMODE") -(PUTPROPS COMPILEMODELST VARTYPE ALIST) +(PUTPROPS COMPILEMODELST VARTYPE ALIST) (DEFINEQ (COMPILEMODE @@ -1217,22 +1538,22 @@ with the terms of said license. ) (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS -(ADDTOVAR NLAMA GLOBALVARS LOCALVARS SPECVARS BLOCK%:) +(ADDTOVAR NLAMA GLOBALVARS LOCALVARS SPECVARS BLOCK%:) -(ADDTOVAR NLAML BCOMPL3) +(ADDTOVAR NLAML BCOMPL3) -(ADDTOVAR LAMA) +(ADDTOVAR LAMA ) ) -(PUTPROPS COMPILE COPYRIGHT ("Venue & Xerox Corporation" T 1984 1985 1986 1987 1988 1989 1990)) +(PUTPROPS COMPILE COPYRIGHT ("Venue & Xerox Corporation" T 1984 1985 1986 1987 1988 1989 1990 2021)) (DECLARE%: DONTCOPY - (FILEMAP (NIL (2714 65742 (BCOMPL 2724 . 4466) (BCOMPL.BODY 4468 . 10254) (PRINT-COMPILE-HEADER 10256 - . 11319) (RESETOPENFILES 11321 . 11674) (BCOMPL1A 11676 . 17689) (BCOMPL2 17691 . 24506) (BCOMPL3 -24508 . 25857) (BLOCK%: 25859 . 26491) (BRECOMPILE 26493 . 34961) (BRECOMPILE1 34963 . 40815) ( -BRECOMPILE2 40817 . 41619) (BRECOMPILE3 41621 . 42997) (BLOCKCOMPILE 42999 . 44859) (BLOCKCOMPILE1 -44861 . 49946) (COMPSET 49948 . 52711) (COMPSETREAD 52713 . 54024) (COMPSETY 54026 . 54150) (COMPSETF -54152 . 54318) (RCOMP3 54320 . 56027) (TCOMPL 56029 . 56328) (RECOMPILE 56330 . 56413) (RECOMP? 56415 - . 56875) (COMPILE 56877 . 58866) (COMPILE1 58868 . 59456) (COMPILE1A 59458 . 61105) ( -SHOULD-BE-DWIMIFIED? 61107 . 61796) (COMPILE.FILECHECK 61798 . 61944) (COMPEM 61946 . 62670) (GETCFILE - 62672 . 64403) (SPECVARS 64405 . 64960) (LOCALVARS 64962 . 65536) (GLOBALVARS 65538 . 65740)) (67713 -68662 (COMPILEMODE 67723 . 68660))))) + (FILEMAP (NIL (3770 74020 (BCOMPL 3780 . 5430) (BCOMPL.BODY 5432 . 12011) (PRINT-COMPILE-HEADER 12013 + . 13076) (RESETOPENFILES 13078 . 13431) (BCOMPL1A 13433 . 19446) (BCOMPL2 19448 . 26263) (BCOMPL3 +26265 . 27614) (BLOCK%: 27616 . 28248) (BRECOMPILE 28250 . 43239) (BRECOMPILE1 43241 . 49093) ( +BRECOMPILE2 49095 . 49897) (BRECOMPILE3 49899 . 51275) (BLOCKCOMPILE 51277 . 53137) (BLOCKCOMPILE1 +53139 . 58224) (COMPSET 58226 . 60989) (COMPSETREAD 60991 . 62302) (COMPSETY 62304 . 62428) (COMPSETF +62430 . 62596) (RCOMP3 62598 . 64305) (TCOMPL 64307 . 64606) (RECOMPILE 64608 . 64691) (RECOMP? 64693 + . 65153) (COMPILE 65155 . 67144) (COMPILE1 67146 . 67734) (COMPILE1A 67736 . 69383) ( +SHOULD-BE-DWIMIFIED? 69385 . 70074) (COMPILE.FILECHECK 70076 . 70222) (COMPEM 70224 . 70948) (GETCFILE + 70950 . 72681) (SPECVARS 72683 . 73238) (LOCALVARS 73240 . 73814) (GLOBALVARS 73816 . 74018)) (76481 +77430 (COMPILEMODE 76491 . 77428))))) STOP diff --git a/sources/COMPILE.LCOM b/sources/COMPILE.LCOM index a1dbdff34..b8258da8d 100644 Binary files a/sources/COMPILE.LCOM and b/sources/COMPILE.LCOM differ diff --git a/sources/COREIO.LCOM b/sources/COREIO.LCOM index 9b94cd3e2..208fd1475 100644 Binary files a/sources/COREIO.LCOM and b/sources/COREIO.LCOM differ diff --git a/sources/DIRECTORY.LCOM b/sources/DIRECTORY.LCOM index 3563e7619..5af08faf4 100644 Binary files a/sources/DIRECTORY.LCOM and b/sources/DIRECTORY.LCOM differ diff --git a/sources/DPUPFTP.LCOM b/sources/DPUPFTP.LCOM index 438a337aa..12c152196 100644 Binary files a/sources/DPUPFTP.LCOM and b/sources/DPUPFTP.LCOM differ diff --git a/sources/DSPRINTDEF.LCOM b/sources/DSPRINTDEF.LCOM index 7e381a905..d0e5c0727 100644 Binary files a/sources/DSPRINTDEF.LCOM and b/sources/DSPRINTDEF.LCOM differ diff --git a/sources/EXTERNALFORMAT.TXT b/sources/EXTERNALFORMAT.TXT new file mode 100644 index 000000000..3a6a6dfb1 --- /dev/null +++ b/sources/EXTERNALFORMAT.TXT @@ -0,0 +1,70 @@ +New architecture for character input-output and alternative external formats + +Ron Kaplan, May 2021 + +The Medley system was built with the Xerox Character Coding standard as the target for multi-byte input and output and for the internal mapping of character codes to glyphs. + +This is now quite out of date, and our goal is to move to more modern conventions like Unicode and UTF-8. + +The coding conventions are embodied in macros that test a stream to see if it is XCCS, and to do special open-coded processing (often with the help of locally bound variables for encoding information) if it is. + +If it isn't XCCS, then the macros instead apply functions that are obtained from fields in the stream. This is optimized for the default XCCS set up because in that case a separate function call is avoided, the action itself is open coded. + +The new architecture recognizes that there may be an advantage to specifying a system default for character processing that avoids function calls but that doesn't depend on support (binding of special variables as opposed to accessing stream fields on each call) to get that last measure of efficiency. + +Thus, there are 4 generic macros corresponding to the 4 character IO operations: + +\INCCODE +\OUTCHAR +\BACKCHAR +\PEEKCCODE + +Each of these is defined to fetch a corresponding field from the stream (OUTCHARFN, INCCODEFN, PEEKCCODEFN, BACKCHARFN). If that field is NIL, then each of these passes to a corresonding default macro: + +\DEFAULTINCCODE +\DEFAULTOUTCHAR +\DEFAULTBACKCHAR +\DEFAULTPEEKCCODE + +These default macros can then be redefined to make a wholesale switch of the default encoding standard. + +The macro \OUTCHAR, for example, is defined as + if the stream has an OUTCHARFN, apply it. Otherwise do the \DEFAULTOUTCHAR +and so on for each of the others. + +For the current XCCS default, \DEFAULTOUTCHAR is defined to call \XCCSOUTCHARFN. + +The corresponding stream fields can be set directly, but the preferred interface is to wrap up the 4 functions for a given format in an EXTERNALFORMAT datastructure. The function + + (\EXTERNALFORMAT stream formatname) + +applies the information in the format into the stream. A particular (non-default) format can be specified as an optional parameter when a stream is opened, and each file device can have its own default external format. Then there is also a variable that holds the name of the name of the system-wide default, currently :XCCS. + +If the default external format is applied to a stream, the relevant function fields are set to NIL to kick off the default macro for that particular function, otherwise the function is copied from the external format to the stream. + +An external format has the following fields: + + NAME + INCCODEFN + PEEKCCODEFN + BACKCHARFN + OUTCHARFN + EOL + +The function (\INSTALL.EXTERNALFORMAT format) registers the given format under its name, so it can be retrieved when the name is given to \EXTERNALFORMAT. + +If EOL is not NIL, then it is an end-of-line convention that will override whatever a stream might have had by default. (The value of EOL is one of the constants LF.EOLC, CR.EOLC, CRLF.EOLC.) + +The system now includes external formats for + :XCCS (the global default) + :THROOUGH (untransformed bytes) + +It probably would make sense to also include a :KEYBOARD external format, to generalize that as well. + +UNICODE defines external formats for UTF8 with or without character translation, and also UTF16 (big-end and little-end). When we finally make the swap, we would make :UTF8 be the default, redefine the macros, and recompile all the callers. + +The Japanse external formats that used to be included in the basic system are now provided by a JAPANESE in the library. + +Finally, there is another macro \INCHAR that applies \CHECKEOLC to the result of \INCCODE. + + diff --git a/sources/FASLOAD b/sources/FASLOAD index 0752bef42..0993c39f4 100644 --- a/sources/FASLOAD +++ b/sources/FASLOAD @@ -1,14 +1,14 @@ (DEFINE-FILE-INFO READTABLE "XCL" PACKAGE "FASL") -(IL:FILECREATED "17-Apr-2018 07:55:20"  -IL:|{DSK}kaplan>Local>medley3.5>lispcore>sources>FASLOAD.;2| 35249 +(IL:FILECREATED "10-Jun-2021 18:26:43"  +IL:|{DSK}kaplan>Local>medley3.5>git-medley>sources>FASLOAD.;8| 35584 - IL:|changes| IL:|to:| (IL:FNS CONVERT-FASL-DATE) + IL:|changes| IL:|to:| (IL:FUNCTIONS READ-TEXT) - IL:|previous| IL:|date:| "25-Nov-92 12:35:33" -IL:|{DSK}kaplan>Local>medley3.5>lispcore>sources>FASLOAD.;1|) + IL:|previous| IL:|date:| "17-Apr-2018 07:55:20" +IL:|{DSK}kaplan>Local>medley3.5>git-medley>sources>FASLOAD.;3|) -; Copyright (c) 1986, 1987, 1988, 1989, 1990, 1991, 1992, 2018 by Venue & Xerox Corporation. All rights reserved. +; Copyright (c) 1986-1992, 2018, 2021 by Venue & Xerox Corporation. (IL:PRETTYCOMPRINT IL:FASLOADCOMS) @@ -345,12 +345,17 @@ IL:|{DSK}kaplan>Local>medley3.5>lispcore>sources>FASLOAD.;1|) (RETURN-FROM CHECK-VERSION VERSION))) (DEFUN READ-TEXT (STREAM) + + (IL:* IL:|;;| "RMK: This really should be doing READCCODE to read the bytes, but that fails because this string is not delimited by quotes, rather it has 255 as the end marker. 255 is the XCCS characterset shift, will presumably do something else in Unicode.") + + (IL:* IL:|;;| "Any reason not to print the string as a string?") + (DO ((RESULT (MAKE-ARRAY 512 :ELEMENT-TYPE 'CHARACTER :ADJUSTABLE T :FILL-POINTER 0)) (BYTE (IL:BIN STREAM) (IL:BIN STREAM))) ((EQL BYTE END-MARK) RESULT) - (VECTOR-PUSH-EXTEND (CODE-CHAR BYTE) + (VECTOR-PUSH-EXTEND (CODE-CHAR (IL:\\CHECKEOLC BYTE NIL STREAM)) RESULT))) (DEFUN PROCESS-BLOCK (STREAM &OPTIONAL ITEM-FN (OPTABLE *DEFAULT-OPTABLE*)) @@ -846,17 +851,17 @@ IL:|{DSK}kaplan>Local>medley3.5>lispcore>sources>FASLOAD.;1|) (IL:PUTPROPS IL:FASLOAD IL:MAKEFILE-ENVIRONMENT (:READTABLE "XCL" :PACKAGE "FASL")) (IL:PUTPROPS IL:FASLOAD IL:COPYRIGHT ("Venue & Xerox Corporation" 1986 1987 1988 1989 1990 1991 1992 -2018)) +2018 2021)) (IL:DECLARE\: IL:DONTCOPY - (IL:FILEMAP (NIL (6504 6920 (TABLE-STATS 6504 . 6920)) (7082 7361 (MAKE-OPTABLE 7082 . 7361)) (7363 -8006 (DEFINE-OPCODE-RANGE 7363 . 8006)) (8008 8558 (DEFINE-SINGLE-OPCODE 8008 . 8558)) (8560 8818 ( -ADD-OP-TRANSLATION 8560 . 8818)) (8820 9184 (OPCODE-SEQUENCE 8820 . 9184)) (10778 10944 ( -FASL-END-OF-BLOCK 10778 . 10944)) (10946 11067 (FASL-EXTENDED 10946 . 11067)) (11069 11194 (SETESCAPE -11069 . 11194)) (11196 11292 (UNIMPLEMENTED-OPCODE 11196 . 11292)) (11653 13003 (PROCESS-FILE 11653 . -13003)) (13005 13235 (PROCESS-SEGMENT 13005 . 13235)) (13340 13652 (CHECK-VERSION 13340 . 13652)) ( -13654 13942 (READ-TEXT 13654 . 13942)) (13944 14446 (PROCESS-BLOCK 13944 . 14446)) (14448 14587 ( -SKIP-TEXT 14448 . 14587)) (14642 15249 (DO-OP 14642 . 15249)) (15251 15352 (NEW-VALUE-TABLE 15251 . -15352)) (15354 15453 (CLEAR-TABLE 15354 . 15453)) (15455 15709 (STORE-VALUE 15455 . 15709)) (15711 -15796 (FETCH-VALUE 15711 . 15796)) (15798 16326 (COLLECT-LIST 15798 . 16326)) (31293 34876 ( -IL:FASL-FILEDATE 31306 . 32467) (CONVERT-FASL-DATE 32469 . 34874))))) + (IL:FILEMAP (NIL (6461 6877 (TABLE-STATS 6461 . 6877)) (7039 7318 (MAKE-OPTABLE 7039 . 7318)) (7320 +7963 (DEFINE-OPCODE-RANGE 7320 . 7963)) (7965 8515 (DEFINE-SINGLE-OPCODE 7965 . 8515)) (8517 8775 ( +ADD-OP-TRANSLATION 8517 . 8775)) (8777 9141 (OPCODE-SEQUENCE 8777 . 9141)) (10735 10901 ( +FASL-END-OF-BLOCK 10735 . 10901)) (10903 11024 (FASL-EXTENDED 10903 . 11024)) (11026 11151 (SETESCAPE +11026 . 11151)) (11153 11249 (UNIMPLEMENTED-OPCODE 11153 . 11249)) (11610 12960 (PROCESS-FILE 11610 . +12960)) (12962 13192 (PROCESS-SEGMENT 12962 . 13192)) (13297 13609 (CHECK-VERSION 13297 . 13609)) ( +13611 14272 (READ-TEXT 13611 . 14272)) (14274 14776 (PROCESS-BLOCK 14274 . 14776)) (14778 14917 ( +SKIP-TEXT 14778 . 14917)) (14972 15579 (DO-OP 14972 . 15579)) (15581 15682 (NEW-VALUE-TABLE 15581 . +15682)) (15684 15783 (CLEAR-TABLE 15684 . 15783)) (15785 16039 (STORE-VALUE 15785 . 16039)) (16041 +16126 (FETCH-VALUE 16041 . 16126)) (16128 16656 (COLLECT-LIST 16128 . 16656)) (31623 35206 ( +IL:FASL-FILEDATE 31636 . 32797) (CONVERT-FASL-DATE 32799 . 35204))))) IL:STOP diff --git a/sources/FASLOAD.LCOM b/sources/FASLOAD.LCOM index 3d95e81a1..b480be22a 100644 Binary files a/sources/FASLOAD.LCOM and b/sources/FASLOAD.LCOM differ diff --git a/sources/FILEIO b/sources/FILEIO index 1dd846a9c..22cc6d55c 100644 --- a/sources/FILEIO +++ b/sources/FILEIO @@ -1,11 +1,12 @@ -(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) -(FILECREATED "26-Apr-2021 22:59:15"  -{DSK}kaplan>Local>medley3.5>git-medley>sources>FILEIO.;15 181837 +(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10 FORMAT XCCS) +(FILECREATED " 9-Jul-2021 17:43:09"  +{DSK}kaplan>Local>medley3.5>git-medley>sources>FILEIO.;58 179154 - changes to%: (RECORDS STREAM EXTERNALFORMAT) + changes to%: (VARS FILEIOCOMS) + (FNS \EXTERNALFORMAT) - previous date%: "26-Apr-2021 22:23:18" -{DSK}kaplan>Local>medley3.5>git-medley>sources>FILEIO.;14) + previous date%: " 9-Jul-2021 09:35:10" +{DSK}kaplan>Local>medley3.5>git-medley>sources>FILEIO.;57) (* ; " @@ -33,11 +34,9 @@ Copyright (c) 1981-1993, 1999, 2020-2021 by Venue & Xerox Corporation. (MACROS STREAMOP) (CONSTANTS AppendBit NoBits ReadBit WriteBit (OutputBits (LOGOR AppendBit WriteBit)) - (BothBits (LOGOR ReadBit OutputBits)) - \NORUNCODE) + (BothBits (LOGOR ReadBit OutputBits))) (MACROS TestMasked APPENDABLE APPENDONLY DIRTYABLE OPENED OVERWRITEABLE READABLE READONLY WRITEABLE) - (MACROS \RUNCODED) (CONSTANTS * EOLCONVENTIONS))) (FNS STREAMPROP GETSTREAMPROP PUTSTREAMPROP STREAMP) [COMS (* ; "make streams print pretty") @@ -58,29 +57,23 @@ Copyright (c) 1981-1993, 1999, 2020-2021 by Venue & Xerox Corporation. (DECLARE%: DOEVAL@COMPILE DONTCOPY (EXPORT (RECORDS EXTERNALFORMAT))) (INITRECORDS EXTERNALFORMAT) (SYSRECORDS EXTERNALFORMAT) - (FNS \INSTALL.EXTERNALFORMAT \REMOVE.EXTERNALFORMAT \GET.EXTERNALFORMAT.FROM.NAME - \EXTERNALFORMAT) - (INITVARS (*SUPPORTED-EXTERNALFORMATS* '(:XCCS :DEFAULT)) - (*DEFAULT-EXTERNAL-FORMATS*) - (*EXTERNALFORMAT-NAME-TO-EXTERNALFORMAT*)) - (GLOBALVARS *SUPPORTED-EXTERNALFORMATS* *DEFAULT-EXTERNAL-FORMATS* - *EXTERNALFORMAT-NAME-TO-EXTERNALFORMAT*) - (FNS \CREATE.JIS.EXTERNALFORMAT \CREATE.SHIFTJIS.EXTERNALFORMAT - \CREATE.EUC.EXTERNALFORMAT \CREATE.THROUGH.EXTERNALFORMAT) - (DECLARE%: DONTEVAL@LOAD DOCOPY (P (\CREATE.JIS.EXTERNALFORMAT) - (\CREATE.SHIFTJIS.EXTERNALFORMAT) - (\CREATE.EUC.EXTERNALFORMAT) - (\CREATE.THROUGH.EXTERNALFORMAT] + (FNS \INSTALL.EXTERNALFORMAT \REMOVE.EXTERNALFORMAT FIND-FORMAT \EXTERNALFORMAT) + (INITVARS [*DEFAULT-EXTERNALFORMATS* '((DSK :XCCS] + (*EXTERNALFORMATS* NIL)) + (GLOBALVARS *EXTERNALFORMATS* *DEFAULT-EXTERNALFORMATS* *DEFAULT-EXTERNALFORMAT*) + (EXPORT (INITVARS (*DEFAULT-EXTERNALFORMAT* :XCCS))) + (COMS (FNS \CREATE.THROUGH.EXTERNALFORMAT \THROUGHIN \THROUGHBACKCCODE + \THROUGHOUTCHARFN) + (DECLARE%: DONTEVAL@LOAD DOCOPY (P (\CREATE.THROUGH.EXTERNALFORMAT] (COMS (* ; "Device operations") (FNS \DEFINEDEVICE \GETDEVICEFROMNAME \GETDEVICEFROMHOSTNAME \REMOVEDEVICE \REMOVEDEVICE.NAMES) (INITVARS (STREAM-AFTER-OPEN-FNS NIL)) (FNS \CLOSEFILE \DELETEFILE \DEVICEEVENT \GENERATEFILES \GENERATENEXTFILE - \GENERATEFILEINFO \GETFILENAME \GENERIC.READCCODE \GENERIC.OUTFILEP \OPENFILE - \DO.PARAMS.AT.OPEN \RENAMEFILE \REVALIDATEFILE \PAGED.REVALIDATEFILELST - \PAGED.REVALIDATEFILES \PAGED.REVALIDATEFILE \BUFFERED.REVALIDATEFILE - \BUFFERED.REVALIDATEFILELST \PRINT-REVALIDATION-RESULT \TRUNCATEFILE - \FILE-CONFLICT) + \GENERATEFILEINFO \GETFILENAME \GENERIC.OUTFILEP \OPENFILE \DO.PARAMS.AT.OPEN + \RENAMEFILE \REVALIDATEFILE \PAGED.REVALIDATEFILELST \PAGED.REVALIDATEFILES + \PAGED.REVALIDATEFILE \BUFFERED.REVALIDATEFILE \BUFFERED.REVALIDATEFILELST + \PRINT-REVALIDATION-RESULT \TRUNCATEFILE \FILE-CONFLICT) (COMS (* ; "Generic enumerator") (FNS \GENERATENOFILES \NULLFILEGENERATOR \NOFILESNEXTFILEFN \NOFILESINFOFN) (DECLARE%: DONTCOPY (RECORDS NOFILEGENSTATE))) @@ -112,8 +105,8 @@ Copyright (c) 1981-1993, 1999, 2020-2021 by Venue & Xerox Corporation. (FNS \MAP-OPEN-STREAMS) (VARS FILING.TYPES) (GLOBALVARS FILING.TYPES) - (DECLARE%: EVAL@COMPILE DONTCOPY (EXPORT (MACROS \OUTCHAR \DEVICE-OPEN-STREAMS - \CONVERT-PATHNAME) + (DECLARE%: EVAL@COMPILE DONTCOPY (EXPORT (MACROS \DEVICE-OPEN-STREAMS \CONVERT-PATHNAME + ) (OPTIMIZERS ACCESS-CHARSET))) (DECLARE%: DONTEVAL@LOAD DOCOPY (P (MAPC '((FORCEOUTPUT FLUSHOUTPUT) (FORCEOUTPUT FLUSHMAP) @@ -127,14 +120,15 @@ Copyright (c) 1981-1993, 1999, 2020-2021 by Venue & Xerox Corporation. (FNS \EOF.ACTION \EOSERROR \GETEOFPTR \INCFILEPTR \PEEKBIN \SETCLOSEDFILELENGTH \SETEOFPTR \SETFILEPTR) (FNS \FIXPOUT \FIXPIN) - (DECLARE%: DONTCOPY (EXPORT (MACROS \DECFILEPTR \GETFILEPTR \SIGNEDWIN \SIGNEDWOUT \WIN - \WOUT \BINS \BOUTS \EOFP SIZE.FROM.LENGTH) - (CONSTANTS BitsPerByte (ByteOffsetSize (SELECTQ (SYSTEMTYPE) - (VAX 10) - 9)) - WordsPerPage) - [CONSTANTS (\MAXFILEPTR (SUB1 (LLSH 1 30] - (RECORDS BYTEPTR)) + (DECLARE%: DONTCOPY + (EXPORT (MACROS \DECFILEPTR \GETFILEPTR \SIGNEDWIN \SIGNEDWOUT \WIN \WOUT \BINS + \BOUTS \BOUTEOL \EOFP SIZE.FROM.LENGTH) + (CONSTANTS BitsPerByte (ByteOffsetSize (SELECTQ (SYSTEMTYPE) + (VAX 10) + 9)) + WordsPerPage) + [CONSTANTS (\MAXFILEPTR (SUB1 (LLSH 1 30] + (RECORDS BYTEPTR)) (CONSTANTS MaxChar))) (COMS (* ; "Buffered IO") (FNS \BUFFERED.BIN \BUFFERED.PEEKBIN \BUFFERED.BOUT \BUFFERED.BINS \BUFFERED.BOUTS @@ -171,7 +165,7 @@ Copyright (c) 1981-1993, 1999, 2020-2021 by Venue & Xerox Corporation. POINTER FLAG (BITS 2) FLAG POINTER POINTER POINTER WORD WORD POINTER POINTER POINTER POINTER POINTER WORD WORD WORD WORD POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER - WORD WORD POINTER POINTER POINTER POINTER) + WORD WORD POINTER POINTER POINTER POINTER POINTER) '((STREAM 0 (BITS . 15)) (STREAM 1 (BITS . 15)) (STREAM 2 (FLAGBITS . 0)) @@ -223,8 +217,9 @@ Copyright (c) 1981-1993, 1999, 2020-2021 by Venue & Xerox Corporation. (STREAM 54 POINTER) (STREAM 56 POINTER) (STREAM 58 POINTER) - (STREAM 60 POINTER)) - '62) + (STREAM 60 POINTER) + (STREAM 62 POINTER)) + '64) ) (ADDTOVAR SYSTEMRECLST @@ -279,7 +274,8 @@ Copyright (c) 1981-1993, 1999, 2020-2021 by Venue & Xerox Corporation. (EXTRASTREAMOP POINTER) (INCCODEFN POINTER) (PEEKCCODEFN POINTER) - (BACKCHARFN POINTER))) + (BACKCCODEFN POINTER) + (EXTERNALFORMAT POINTER))) ) (DECLARE%: DONTCOPY (* "FOLLOWING DEFINITIONS EXPORTED")(DECLARE%: EVAL@COMPILE @@ -375,7 +371,8 @@ Copyright (c) 1981-1993, 1999, 2020-2021 by Venue & Xerox Corporation.  "For use of applications programs, not devices") (INCCODEFN POINTER) (* ; "Set by \EXTERNALFORMAT") (PEEKCCODEFN POINTER) - (BACKCHARFN POINTER)) + (BACKCCODEFN POINTER) + (EXTERNALFORMAT POINTER)) (BLOCKRECORD STREAM ((NIL 2 WORD) (UCODEFLAGS1 BITS 1) @@ -404,35 +401,6 @@ Copyright (c) 1981-1993, 1999, 2020-2021 by Venue & Xerox Corporation. DATUM)) (NAMEDP (AND (fetch (STREAM FULLFILENAME) of DATUM) T] - [ACCESSFNS STREAM (EXTERNALFORMAT (LISTGET (ffetch (STREAM OTHERPROPS) of DATUM) - 'EXTERNALFORMAT) - (LET ((PROPS (ffetch (STREAM OTHERPROPS) of DATUM))) - (freplace (STREAM NOTXCCS) of DATUM with T) - [COND - (PROPS (LISTPUT PROPS 'EXTERNALFORMAT NEWVALUE)) - (T (freplace (STREAM OTHERPROPS) of DATUM - with (LIST 'EXTERNALFORMAT NEWVALUE] - (freplace (STREAM OUTCHARFN) of DATUM - with (ffetch (EXTERNALFORMAT FILEOUTCHARFN) - of NEWVALUE)) - (AND (ffetch (EXTERNALFORMAT EOLVALID) of NEWVALUE) - (freplace (STREAM EOLCONVENTION) of DATUM - with (ffetch (EXTERNALFORMAT EOL) - of NEWVALUE] - [ACCESSFNS STREAM (EXTERNALFORMAT.NAME (LISTGET (ffetch (STREAM OTHERPROPS) - of DATUM) - 'EXTERNALFORMAT.NAME) - (LET [(PROPS (ffetch (STREAM OTHERPROPS) of DATUM)) - (NAME (COND - ((LITATOM NEWVALUE) - NEWVALUE) - (T (MKATOM NEWVALUE] - (freplace (STREAM NOTXCCS) of DATUM with T) - (COND - (PROPS (LISTPUT PROPS 'EXTERNALFORMAT.NAME NAME)) - (T (freplace (STREAM OTHERPROPS) of DATUM - with (LIST 'EXTERNALFORMAT.NAME NAME] - (ACCESSFNS STREAM (FILEOUTCHARFN (ffetch (STREAM OUTCHARFN) of DATUM))) (SYNONYM CBUFPTR (CPPTR)) USERCLOSEABLE _ T USERVISIBLE _ T ACCESSBITS _ NoBits CPAGE _ 0 EPAGE _ 0 BUFFS _ NIL BYTESIZE _ 8 CBUFPTR _ NIL MAXBUFFERS _ (LET NIL (DECLARE (GLOBALVARS @@ -441,7 +409,6 @@ Copyright (c) 1981-1993, 1999, 2020-2021 by Venue & Xerox Corporation. \STREAM.DEFAULT.MAXBUFFERS) CHARPOSITION _ 0 LINELENGTH _ (LET NIL (DECLARE (GLOBALVARS FILELINELENGTH)) FILELINELENGTH) - OUTCHARFN _ (FUNCTION \FILEOUTCHARFN) ENDOFSTREAMOP _ (FUNCTION \EOSERROR) IMAGEOPS _ \NOIMAGEOPS EOLCONVENTION _ LF.EOLC STRMBINFN _ (FUNCTION \STREAM.NOT.OPEN) STRMBOUTFN _ (FUNCTION \STREAM.NOT.OPEN) @@ -454,7 +421,7 @@ Copyright (c) 1981-1993, 1999, 2020-2021 by Venue & Xerox Corporation. POINTER FLAG (BITS 2) FLAG POINTER POINTER POINTER WORD WORD POINTER POINTER POINTER POINTER POINTER WORD WORD WORD WORD POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER - WORD WORD POINTER POINTER POINTER POINTER) + WORD WORD POINTER POINTER POINTER POINTER POINTER) '((STREAM 0 (BITS . 15)) (STREAM 1 (BITS . 15)) (STREAM 2 (FLAGBITS . 0)) @@ -506,8 +473,9 @@ Copyright (c) 1981-1993, 1999, 2020-2021 by Venue & Xerox Corporation. (STREAM 54 POINTER) (STREAM 56 POINTER) (STREAM 58 POINTER) - (STREAM 60 POINTER)) - '62) + (STREAM 60 POINTER) + (STREAM 62 POINTER)) + '64) (DECLARE%: EVAL@COMPILE (PUTPROPS STREAMOP MACRO [ARGS (CONS 'SPREADAPPLY* @@ -535,12 +503,9 @@ Copyright (c) 1981-1993, 1999, 2020-2021 by Venue & Xerox Corporation. (RPAQ BothBits (LOGOR ReadBit OutputBits)) -(RPAQQ \NORUNCODE 255) - (CONSTANTS AppendBit NoBits ReadBit WriteBit (OutputBits (LOGOR AppendBit WriteBit)) - (BothBits (LOGOR ReadBit OutputBits)) - \NORUNCODE) + (BothBits (LOGOR ReadBit OutputBits))) ) (DECLARE%: EVAL@COMPILE @@ -581,20 +546,11 @@ Copyright (c) 1981-1993, 1999, 2020-2021 by Venue & Xerox Corporation. (AND (APPENDABLE STREAM) (\EOFP STREAM]) ) -(DECLARE%: EVAL@COMPILE - -(PUTPROPS \RUNCODED MACRO (OPENLAMBDA (STREAM) - - (* ;; "returns NIL is the stream is not runcoded, that is, if the stream has 16 bit bytes explicitly represented") - (* ; - "note that neq is ok since charsets are known to be SMALLP's") - (NEQ (fetch CHARSET of STREAM) - \NORUNCODE))) -) (RPAQQ EOLCONVENTIONS ((CR.EOLC 0) (LF.EOLC 1) - (CRLF.EOLC 2))) + (CRLF.EOLC 2) + (ANY.EOLC 3))) (DECLARE%: EVAL@COMPILE (RPAQQ CR.EOLC 0) @@ -603,10 +559,13 @@ Copyright (c) 1981-1993, 1999, 2020-2021 by Venue & Xerox Corporation. (RPAQQ CRLF.EOLC 2) +(RPAQQ ANY.EOLC 3) + (CONSTANTS (CR.EOLC 0) (LF.EOLC 1) - (CRLF.EOLC 2)) + (CRLF.EOLC 2) + (ANY.EOLC 3)) ) (* "END EXPORTED DEFINITIONS") @@ -630,46 +589,49 @@ Copyright (c) 1981-1993, 1999, 2020-2021 by Venue & Xerox Corporation. (T (\ILLEGAL.ARG NIL]) (GETSTREAMPROP - [LAMBDA (STREAM PROP) (* ; "Edited 5-Aug-2020 16:42 by rmk:") + [LAMBDA (STREAM PROP) (* ; "Edited 29-Jun-2021 17:06 by rmk:") (* rda%: "22-Aug-84 16:17") - (IF (EQ PROP 'EXTERNALFORMAT) - THEN (\EXTERNALFORMAT STREAM) - ELSE (LISTGET (fetch (STREAM OTHERPROPS) of STREAM) - PROP]) + (SELECTQ PROP + ((FORMAT EXTERNALFORMAT) + (\EXTERNALFORMAT STREAM)) + (ENDOFSTREAMOP (FETCH (STREAM ENDOFSTREAMOP) OF STREAM)) + (LISTGET (fetch (STREAM OTHERPROPS) of STREAM) + PROP]) (PUTSTREAMPROP - [LAMBDA (STREAM PROP VALUE) (* ; "Edited 5-Aug-2020 16:42 by rmk:") + [LAMBDA (STREAM PROP VALUE) (* ; "Edited 29-Jun-2021 17:06 by rmk:") (* rda%: "22-Aug-84 16:11") - (IF (EQ PROP 'EXTERNALFORMAT) - THEN - - (* ;; "Return the old name (=VALUE), not the format datum. Better design: the format should have it's name, and not have name as a separate property.") - - (PROG1 (\EXTERNALFORMAT STREAM NIL) - (AND VALUE (\EXTERNALFORMAT STREAM VALUE))) - ELSE (PROG ((OLDDATA (fetch OTHERPROPS of STREAM)) - OLDVALUE) - (RETURN (PROG1 (COND - (OLDDATA (SETQ OLDVALUE (LISTGET OLDDATA PROP)) - [COND - (VALUE (LISTPUT OLDDATA PROP VALUE)) - (OLDVALUE (* ; "Remove the property") - (COND - ((EQ (CAR OLDDATA) - PROP) - (replace OTHERPROPS of STREAM - with (CDDR OLDDATA))) - (T (for TAIL on (CDR OLDDATA) - by (CDDR TAIL) - when (EQ (CADR TAIL) - PROP) - do (FRPLACD TAIL (CDDDR TAIL)) - (RETURN] - OLDVALUE) - (VALUE (replace OTHERPROPS of STREAM - with (LIST PROP VALUE)) + (SELECTQ PROP + ((FORMAT EXTERNALFORMAT) + (* ;; "Return the old name (=VALUE), not the format datum. Better design: the format should have it's name, and not have name as a separate property.") + + (PROG1 (\EXTERNALFORMAT STREAM NIL) + (AND VALUE (\EXTERNALFORMAT STREAM VALUE)))) + (ENDOFSTREAMOP (PROG1 (fetch (STREAM ENDOFSTREAMOP) of STREAM) + (replace (STREAM ENDOFSTREAMOP) of STREAM with VALUE))) + (PROG ((OLDDATA (fetch OTHERPROPS of STREAM)) + OLDVALUE) + (RETURN (PROG1 (COND + (OLDDATA (SETQ OLDVALUE (LISTGET OLDDATA PROP)) + [COND + (VALUE (LISTPUT OLDDATA PROP VALUE)) + (OLDVALUE (* ; "Remove the property") + (COND + ((EQ (CAR OLDDATA) + PROP) + (replace OTHERPROPS of STREAM + with (CDDR OLDDATA))) + (T (for TAIL on (CDR OLDDATA) + by (CDDR TAIL) + when (EQ (CADR TAIL) + PROP) + do (FRPLACD TAIL (CDDDR TAIL)) + (RETURN] + OLDVALUE) + (VALUE (replace OTHERPROPS of STREAM with (LIST PROP + VALUE)) (* ; "know old value is NIL") - NIL]) + NIL]) (STREAMP [LAMBDA (X) (* rmk%: "14-OCT-83 14:35") @@ -920,11 +882,12 @@ Copyright (c) 1981-1993, 1999, 2020-2021 by Venue & Xerox Corporation.  "(stream byte) output byte to stream") (PEEKBIN POINTER) (* ;  "(stream) => next byte without advancing position in stream") - (READCHAR POINTER) (* ; "(stream) => next input char") - (WRITECHAR POINTER) (* ; - "(stream char) => writes char to stream") - (PEEKCHAR POINTER) - (UNREADCHAR POINTER) + (NIL POINTER) (* ; + "Was READCHAR, replaced by READCHARCODE") + (NIL POINTER) (* ; + "Was WRITECHAR (stream char) => writes char to stream") + (NIL POINTER) (* ; "Was PEEKCHAR") + (NIL POINTER) (* ; "Was UNREADCHAR") (READP POINTER) (* ;  "(stream flag) => T if there is input available from stream right now") (EOFP POINTER) (* ; @@ -977,13 +940,13 @@ Copyright (c) 1981-1993, 1999, 2020-2021 by Venue & Xerox Corporation. (* ;; "-----For any stream (here to not recompile everything)-----") - (READCHARCODE POINTER) (* ; - "Read a character code from the stream (cf BIN for bytes).") + (NIL POINTER) (* ; + "Was READCHARCODE. Read a character code from the stream (cf BIN for bytes).") ) DIRECTORYNAMEP _ (FUNCTION NILL) HOSTNAMEP _ (FUNCTION NILL) READP _ (FUNCTION \GENERIC.READP) - SETFILEPTR _ (FUNCTION \IS.NOT.RANDACCESSP) + SETFILEPTR _ (FUNCTION \IS.NO.RANDACCESSP) GETFILEPTR _ (FUNCTION \ILLEGAL.DEVICEOP) GETEOFPTR _ (FUNCTION \IS.NOT.RANDACCESSP) EOFP _ (FUNCTION \ILLEGAL.DEVICEOP) @@ -994,13 +957,8 @@ Copyright (c) 1981-1993, 1999, 2020-2021 by Venue & Xerox Corporation. REGISTERFILE _ (FUNCTION NILL) OPENP _ (FUNCTION NILL) UNREGISTERFILE _ (FUNCTION NILL) - READCHAR _ (FUNCTION \GENERIC.READCHAR) - WRITECHAR _ (FUNCTION \GENERIC.WRITECHAR) - PEEKCHAR _ (FUNCTION \GENERIC.PEEKCHAR) - UNREADCHAR _ (FUNCTION \GENERIC.UNREADCHAR) CHARSETFN _ (FUNCTION \GENERIC.CHARSET) - BREAKCONNECTION _ (FUNCTION NILL) - READCHARCODE _ (FUNCTION \GENERIC.READCCODE)) + BREAKCONNECTION _ (FUNCTION NILL)) (RECORD FILEGENOBJ (NEXTFILEFN FILEINFOFN . GENFILESTATE)) ) @@ -1192,10 +1150,10 @@ Copyright (c) 1981-1993, 1999, 2020-2021 by Venue & Xerox Corporation. (BIN POINTER) (BOUT POINTER) (PEEKBIN POINTER) - (READCHAR POINTER) - (WRITECHAR POINTER) - (PEEKCHAR POINTER) - (UNREADCHAR POINTER) + (NIL POINTER) + (NIL POINTER) + (NIL POINTER) + (NIL POINTER) (READP POINTER) (EOFP POINTER) (BLOCKIN POINTER) @@ -1219,7 +1177,7 @@ Copyright (c) 1981-1993, 1999, 2020-2021 by Venue & Xerox Corporation. (TRUNCATEFILE POINTER) (WINDOWOPS POINTER) (WINDOWDATA POINTER) - (READCHARCODE POINTER))) + (NIL POINTER))) ) @@ -1229,27 +1187,26 @@ Copyright (c) 1981-1993, 1999, 2020-2021 by Venue & Xerox Corporation. (DECLARE%: DOEVAL@COMPILE DONTCOPY (* "FOLLOWING DEFINITIONS EXPORTED")(DECLARE%: EVAL@COMPILE -(DATATYPE EXTERNALFORMAT ((EOLVALID FLAG) (* ; - "If true, the value of EOL field will replace the EOLCONVENTION field of the resulted stream.") +(DATATYPE EXTERNALFORMAT ((EOLVALID FLAG) (* ; "If true, the value of EOL field will replace the EOLCONVENTION field of the resulted stream. (Can't test EOL because it is always something)") (EOL BITS 2) (NIL BITS 1) (INCCODEFN POINTER) (* ; - "Called with two arguments -- STREAM and COUNTP") + "Called with STREAM and 2 optional arguments, BYTECOUNTVAR and BYTECOUNTVAL") (PEEKCCODEFN POINTER) (* ; - "Called with three arguments -- STREAM, NOERROR and COUNTP") - (BACKCHARFN POINTER) (* ; - "Called with two arguments -- STREAM and COUNTP") - (FILEOUTCHARFN POINTER) (* ; + "Called with three arguments -- STREAM, NOERROR, and EOL") + (BACKCCODEFN POINTER) (* ; + "Called with STREAM and optional BYTECOUNTVAR and BYTECOUNTVAL") + (OUTCHARFN POINTER) (* ;  "Called with two arguments -- STREAM and CHARCODE") (NAME POINTER) (* ;  "keyword name of this format, provided to \INSTALL.EXTERNALFORMAT") - ) - EOLVALID _ NIL) + (FORMATBYTESTREAMFN POINTER (* ; "Function to copy the format state of a given stream to an IO stream that allows formatted byte sequences to be examined") + ))) ) (/DECLAREDATATYPE 'EXTERNALFORMAT '(FLAG (BITS 2) (BITS 1) - POINTER POINTER POINTER POINTER POINTER) + POINTER POINTER POINTER POINTER POINTER POINTER) '((EXTERNALFORMAT 0 (FLAGBITS . 0)) (EXTERNALFORMAT 0 (BITS . 17)) (EXTERNALFORMAT 0 (BITS . 48)) @@ -1257,8 +1214,9 @@ Copyright (c) 1981-1993, 1999, 2020-2021 by Venue & Xerox Corporation. (EXTERNALFORMAT 2 POINTER) (EXTERNALFORMAT 4 POINTER) (EXTERNALFORMAT 6 POINTER) - (EXTERNALFORMAT 8 POINTER)) - '10) + (EXTERNALFORMAT 8 POINTER) + (EXTERNALFORMAT 10 POINTER)) + '12) (* "END EXPORTED DEFINITIONS") @@ -1266,7 +1224,7 @@ Copyright (c) 1981-1993, 1999, 2020-2021 by Venue & Xerox Corporation. (/DECLAREDATATYPE 'EXTERNALFORMAT '(FLAG (BITS 2) (BITS 1) - POINTER POINTER POINTER POINTER POINTER) + POINTER POINTER POINTER POINTER POINTER POINTER) '((EXTERNALFORMAT 0 (FLAGBITS . 0)) (EXTERNALFORMAT 0 (BITS . 17)) (EXTERNALFORMAT 0 (BITS . 48)) @@ -1274,8 +1232,9 @@ Copyright (c) 1981-1993, 1999, 2020-2021 by Venue & Xerox Corporation. (EXTERNALFORMAT 2 POINTER) (EXTERNALFORMAT 4 POINTER) (EXTERNALFORMAT 6 POINTER) - (EXTERNALFORMAT 8 POINTER)) - '10) + (EXTERNALFORMAT 8 POINTER) + (EXTERNALFORMAT 10 POINTER)) + '12) (ADDTOVAR SYSTEMRECLST (DATATYPE EXTERNALFORMAT ((EOLVALID FLAG) @@ -1283,195 +1242,176 @@ Copyright (c) 1981-1993, 1999, 2020-2021 by Venue & Xerox Corporation. (NIL BITS 1) (INCCODEFN POINTER) (PEEKCCODEFN POINTER) - (BACKCHARFN POINTER) - (FILEOUTCHARFN POINTER) - (NAME POINTER))) + (BACKCCODEFN POINTER) + (OUTCHARFN POINTER) + (NAME POINTER) + (FORMATBYTESTREAMFN POINTER (* ; "Function to copy the format state of a given stream to an IO stream that allows formatted byte sequences to be examined") + ))) ) (DEFINEQ (\INSTALL.EXTERNALFORMAT - [LAMBDA (NAME EXTERNALFORMAT) (* ; "Edited 25-Apr-2021 21:55 by rmk:") - -(* ;;; "Install an external format vector, giving it the name NAME. EXTERNALFORMAT is an instance of the datatype EXTERNALFORMAT. *SUPPORTED-EXTERNALFORMATS* contains all installed external formats. *EXTERNALFORMAT-NAME-TO-EXTERNALFORMAT* maps a name int its external format.") + [LAMBDA (EXTFORMAT/NAME EXTERNALFORMAT) (* ; "Edited 5-May-2021 12:55 by rmk:") - (DECLARE (GLOBALVARS *SUPPORTED-EXTERNALFORMATS* *EXTERNALFORMAT-NAME-TO-EXTERNALFORMAT*)) - (COND - ((type? EXTERNALFORMAT EXTERNALFORMAT) - (LET (ENTRY) - [SETQ NAME (COND - ((LITATOM NAME) - NAME) - (T (MKATOM NAME] +(* ;;; "Register an instance of the datatype EXTERNALFORMAT.") - (* ;; "RMK: Added NAME so the format-name can be extracted from a stream") +(* ;;; "For backward compatibility, the first argument can be a NAME with the second argument being the format. If so, the NAME must match the name inside the format") - (REPLACE (EXTERNALFORMAT NAME) OF EXTERNALFORMAT WITH NAME) - (UNINTERRUPTABLY - [COND - ((SETQ ENTRY (FASSOC NAME *EXTERNALFORMAT-NAME-TO-EXTERNALFORMAT*)) - (RPLACD ENTRY EXTERNALFORMAT)) - (T (pushnew *SUPPORTED-EXTERNALFORMATS* NAME) - (push *EXTERNALFORMAT-NAME-TO-EXTERNALFORMAT* (CONS NAME EXTERNALFORMAT] - NAME))) - (T (ERROR "INVALID EXTERNALFORMAT " EXTERNALFORMAT]) + (LET (NAME) + (IF EXTERNALFORMAT + THEN -(\REMOVE.EXTERNALFORMAT - [LAMBDA (EXTERNALFORMAT) (* ; "Edited 26-Feb-91 17:34 by nm") + (* ;; "Backwards compatibility") -(* ;;; -"Removes externalformat EXTERNALFORMAT and association between any of its name and EXTERNALFORMAT.") + (SETQ NAME (MKATOM EXTFORMAT/NAME)) + (IF (EQ NAME (FETCH (EXTERNALFORMAT NAME) OF EXTERNALFORMAT)) + ELSEIF (FETCH (EXTERNALFORMAT NAME) OF EXTERNALFORMAT) + THEN (ERROR "Mismatch of specified name and name of the external format") + ELSE (REPLACE (EXTERNALFORMAT NAME) OF EXTERNALFORMAT WITH + NAME)) + ELSE (SETQ EXTERNALFORMAT EXTFORMAT/NAME) + (SETQ NAME (FETCH (EXTERNALFORMAT NAME) OF EXTERNALFORMAT))) + (COND + ((type? EXTERNALFORMAT EXTERNALFORMAT) + (\REMOVE.EXTERNALFORMAT NAME) + (push *EXTERNALFORMATS* EXTERNALFORMAT) + NAME) + (T (ERROR "INVALID EXTERNALFORMAT " EXTERNALFORMAT]) - (DECLARE (GLOBALVARS *SUPPORTED-EXTERNALFORMATS* *EXTERNALFORMAT-NAME-TO-EXTERNALFORMAT*)) - (LET (ENTRY) - [COND - ((SETQ ENTRY (CL:RASSOC EXTERNALFORMAT *EXTERNALFORMAT-NAME-TO-EXTERNALFORMAT*)) - (UNINTERRUPTABLY - (SETQ *SUPPORTED-EXTERNALFORMATS* (DREMOVE (CAR ENTRY) - *SUPPORTED-EXTERNALFORMATS*)) - (SETQ *EXTERNALFORMAT-NAME-TO-EXTERNALFORMAT* (DREMOVE ENTRY - *EXTERNALFORMAT-NAME-TO-EXTERNALFORMAT* - )))] - EXTERNALFORMAT]) - -(\GET.EXTERNALFORMAT.FROM.NAME - [LAMBDA (NAME) - (DECLARE (GLOBALVARS *EXTERNALFORMAT-NAME-TO-EXTERNALFORMAT*)) - (* ; "Edited 26-Feb-91 17:33 by nm") - [SETQ NAME (COND - ((LITATOM NAME) - NAME) - (T (MKATOM NAME] - (CDR (FASSOC NAME *EXTERNALFORMAT-NAME-TO-EXTERNALFORMAT*]) +(\REMOVE.EXTERNALFORMAT + [LAMBDA (NAME/EXTFORMAT) (* ; "Edited 5-May-2021 15:42 by rmk:") + +(* ;;; "Deregisters external format EXTERNALFORMAT .") + + (SETQ NAME/EXTFORMAT (IF (TYPE? EXTERNALFORMAT NAME/EXTFORMAT) + THEN (FETCH (EXTERNALFORMAT NAME) OF NAME/EXTFORMAT) + ELSE (MKATOM NAME/EXTFORMAT))) + (SETQ *EXTERNALFORMATS* (DREMOVE (FIND EF IN *EXTERNALFORMATS* + SUCHTHAT (EQ NAME/EXTFORMAT (FETCH (EXTERNALFORMAT + NAME) + OF EF))) + *EXTERNALFORMATS*]) + +(FIND-FORMAT + [LAMBDA (NAME NOERROR) (* ; "Edited 9-Jul-2021 09:34 by rmk:") + (SETQ NAME (MKATOM NAME)) (* ; + "The EQMEMB allows for synonyms, the first of which should be canonical. E.g. (:UTF-8 :UTF8)") + (OR (FIND EF IN *EXTERNALFORMATS* SUCHTHAT (EQ NAME (FETCH (EXTERNALFORMAT NAME) + OF EF))) + (CL:UNLESS NOERROR (ERROR NAME "is not an external format"]) (\EXTERNALFORMAT - [LAMBDA (STREAM NEWVALUE) (* ; "Edited 26-Apr-2021 22:22 by rmk:") + [LAMBDA (STREAM NEWFORMAT/NAME) (* ; "Edited 9-Jul-2021 17:42 by rmk:") (* ; "Edited 26-Feb-91 13:20 by nm") -(* ;;; "If NEWVALUE is nil, just returns the current external format name of STREAM. If NEWVALUE is supplied, the external format of STREAM is set to the external format named NEWVALUE.") +(* ;;; ";;; RMK July 2020: Added interface for per-device default external format. \DO.PARAMS.AT.OPEN will make that call even if it is not specified from the open. STREAMPROP is fixed to call \EXTERNALFORMAT to set the property EXTERNALFORMAT, to export a user-level way of manipulating this.") -(* ;;; "RMK July 2020: Added interface for per-device default external format. \DO.PARAMS.AT.OPEN will make that call even if it is not specified from the open.") +(* ;;; "") - (* ;; ":DEFAULT means the default external format for STREAM's filedevice") +(* ;;; "If NEWFORMAT/NAME is nil, just returns the current external format name of STREAM. If NEWFORMAT/NAME is supplied and it is or names an external format, then the external format of STREAM is set to that format.") - (\DTEST STREAM 'STREAM) - (CL:WHEN (EQ NEWVALUE :DEFAULT) - (SETQ NEWVALUE (OR (CADR (ASSOC (FETCH DEVICENAME OF (FETCH DEVICE OF STREAM) - ) - *DEFAULT-EXTERNAL-FORMATS*)) - :XCCS))) +(* ;;; "") - (* ;; "The accessfn for replacing EXTERNALFORMAT sets NOTXCCS to NIL. If we don't want to make that more general, we don't want to create and store an explicit :XCCS format, since that would flip the bit. But it is OK to store the name. Also, STREAMPROP is fixed to call \EXTERNALFORMAT to set the property EXTERNALFORMAT, to export a user-level way of manipulating this.") +(* ;;; ":DEFAULT means the default external format for STREAM's filedevice") - (LET (EXTFORMAT) - (COND - [NEWVALUE (COND - ((EQ NEWVALUE :XCCS) - (UNINTERRUPTABLY - (freplace EXTERNALFORMAT.NAME of STREAM with :XCCS) - (freplace (STREAM NOTXCCS) of STREAM with NIL) - (freplace (STREAM INCCODEFN) of STREAM with NIL) - (freplace (STREAM PEEKCCODEFN) of STREAM with NIL) - (freplace (STREAM BACKCHARFN) of STREAM with NIL) - (freplace (STREAM EOLCONVENTION) of STREAM with LF.EOLC))) - [(AND (FMEMB NEWVALUE *SUPPORTED-EXTERNALFORMATS*) - (\DTEST (SETQ EXTFORMAT (\GET.EXTERNALFORMAT.FROM.NAME NEWVALUE)) - 'EXTERNALFORMAT)) - (UNINTERRUPTABLY - (freplace EXTERNALFORMAT of STREAM with EXTFORMAT) - (freplace (STREAM NOTXCCS) of STREAM with T) - (freplace (STREAM OUTCHARFN) of STREAM - with (ffetch (EXTERNALFORMAT FILEOUTCHARFN) of EXTFORMAT - )) - (freplace (STREAM INCCODEFN) of STREAM - with (ffetch (EXTERNALFORMAT INCCODEFN) of EXTFORMAT)) - (freplace (STREAM PEEKCCODEFN) of STREAM - with (ffetch (EXTERNALFORMAT PEEKCCODEFN) of EXTFORMAT)) - (freplace (STREAM BACKCHARFN) of STREAM - with (ffetch (EXTERNALFORMAT BACKCHARFN) of EXTFORMAT)) - (CL:WHEN (ffetch (EXTERNALFORMAT EOLVALID) of EXTFORMAT) - (freplace (STREAM EOLCONVENTION) of STREAM - with (ffetch (EXTERNALFORMAT EOL) of EXTFORMAT))))] - (T (ERROR NEWVALUE "INVALID EXTERNALFORMAT " NEWVALUE] - (T (ffetch EXTERNALFORMAT.NAME of STREAM]) -) +(* ;;; "The all-device default is in *DEFAULT-EXTERNALFORMAT*.") -(RPAQ? *SUPPORTED-EXTERNALFORMATS* '(:XCCS :DEFAULT)) + (\DTEST STREAM 'STREAM) + (CL:WHEN NEWFORMAT/NAME + [LET (EXTFORMAT) + (if (type? EXTERNALFORMAT NEWFORMAT/NAME) + then (SETQ EXTFORMAT NEWFORMAT/NAME) + else (CL:WHEN (EQ NEWFORMAT/NAME :DEFAULT) + (SETQ NEWFORMAT/NAME (OR (CADR (ASSOC (fetch DEVICENAME + of (fetch DEVICE + of STREAM)) + *DEFAULT-EXTERNALFORMATS*)) + *DEFAULT-EXTERNALFORMAT*))) + (SETQ EXTFORMAT (FIND-FORMAT NEWFORMAT/NAME)) + (CL:UNLESS EXTFORMAT (ERROR NEWFORMAT/NAME + "is not a registered external format name")) + (CL:UNLESS (type? EXTERNALFORMAT EXTFORMAT) + (ERROR "INVALID EXTERNALFORMAT " EXTFORMAT))) + (UNINTERRUPTABLY + (freplace (STREAM EXTERNALFORMAT) of STREAM with EXTFORMAT) + (CL:WHEN (ffetch (EXTERNALFORMAT EOLVALID) of EXTFORMAT) + (freplace (STREAM EOLCONVENTION) of STREAM with (ffetch + (EXTERNALFORMAT + EOL) of + EXTFORMAT + ))) + (freplace (STREAM OUTCHARFN) of STREAM with (ffetch (EXTERNALFORMAT + OUTCHARFN) + of EXTFORMAT)) + (freplace (STREAM INCCODEFN) of STREAM with (ffetch (EXTERNALFORMAT + INCCODEFN) + of EXTFORMAT)) + (freplace (STREAM PEEKCCODEFN) of STREAM with (ffetch ( + EXTERNALFORMAT + PEEKCCODEFN) + of EXTFORMAT)) + (freplace (STREAM BACKCCODEFN) of STREAM with (ffetch ( + EXTERNALFORMAT + BACKCCODEFN) + of EXTFORMAT)))]) + (ffetch (EXTERNALFORMAT NAME) of (fetch (STREAM EXTERNALFORMAT) of STREAM]) +) -(RPAQ? *DEFAULT-EXTERNAL-FORMATS* ) +(RPAQ? *DEFAULT-EXTERNALFORMATS* '((DSK :XCCS))) -(RPAQ? *EXTERNALFORMAT-NAME-TO-EXTERNALFORMAT* ) +(RPAQ? *EXTERNALFORMATS* NIL) (DECLARE%: DOEVAL@COMPILE DONTCOPY -(GLOBALVARS *SUPPORTED-EXTERNALFORMATS* *DEFAULT-EXTERNAL-FORMATS* - *EXTERNALFORMAT-NAME-TO-EXTERNALFORMAT*) +(GLOBALVARS *EXTERNALFORMATS* *DEFAULT-EXTERNALFORMATS* *DEFAULT-EXTERNALFORMAT*) ) -(DEFINEQ +(* "FOLLOWING DEFINITIONS EXPORTED") +(RPAQ? *DEFAULT-EXTERNALFORMAT* :XCCS) -(\CREATE.JIS.EXTERNALFORMAT - [LAMBDA NIL (* ; "Edited 25-Feb-91 17:21 by nm") - -(* ;;; "Create an instance of EXTERNALFORMAT datatype and install it with :JIS as its name.") - - (LET [(XFMT (create EXTERNALFORMAT - INCCODEFN _ (FUNCTION \JISIN) - PEEKCCODEFN _ (FUNCTION \JISPEEK) - BACKCHARFN _ (FUNCTION \BACKJISCHAR) - FILEOUTCHARFN _ (FUNCTION \JISFILEOUTCHARFN] - (\INSTALL.EXTERNALFORMAT :JIS XFMT]) - -(\CREATE.SHIFTJIS.EXTERNALFORMAT - [LAMBDA NIL (* ; "Edited 25-Feb-91 18:15 by nm") - -(* ;;; "Create two instances of EXTERNALFORMAT datatype and install them with :W-MS and :MS as their names respectively. :MS have to change the end of line convention to CRLF.") - - (LET ((XFMT1 (create EXTERNALFORMAT - INCCODEFN _ (FUNCTION \SHIFTJISIN) - PEEKCCODEFN _ (FUNCTION \SHIFTJISPEEK) - BACKCHARFN _ (FUNCTION \BACKSHIFTJISCHAR) - FILEOUTCHARFN _ (FUNCTION \SHIFTJISFILEOUTCHARFN))) - (XFMT2 (create EXTERNALFORMAT - INCCODEFN _ (FUNCTION \SHIFTJISIN) - PEEKCCODEFN _ (FUNCTION \SHIFTJISPEEK) - BACKCHARFN _ (FUNCTION \BACKSHIFTJISCHAR) - FILEOUTCHARFN _ (FUNCTION \SHIFTJISFILEOUTCHARFN) - EOLVALID _ T - EOL _ CRLF.EOLC))) - (\INSTALL.EXTERNALFORMAT :W-MS XFMT1) - (\INSTALL.EXTERNALFORMAT :MS XFMT2]) - -(\CREATE.EUC.EXTERNALFORMAT - [LAMBDA NIL (* ; "Edited 25-Feb-91 17:27 by nm") - -(* ;;; "Create an instance of EXTERNALFORMAT datatype and install it with :EUC as its name.") - - (LET [(XFMT (create EXTERNALFORMAT - INCCODEFN _ (FUNCTION \EUCIN) - PEEKCCODEFN _ (FUNCTION \EUCPEEK) - BACKCHARFN _ (FUNCTION \BACKEUCCHAR) - FILEOUTCHARFN _ (FUNCTION \EUCFILEOUTCHARFN] - (\INSTALL.EXTERNALFORMAT :EUC XFMT]) +(* "END EXPORTED DEFINITIONS") + +(DEFINEQ (\CREATE.THROUGH.EXTERNALFORMAT - [LAMBDA NIL (* ; "Edited 26-Feb-91 13:33 by nm") + [LAMBDA NIL (* ; "Edited 23-Jun-2021 13:34 by rmk:") (* ;;; "Create an instance of EXTERNALFORMAT datatype and install it with :THROUGH as its name. EOL is adjusted to CR so as not to do any eol conversion on this stream.") - (LET ((XFMT (create EXTERNALFORMAT - INCCODEFN _ (FUNCTION \THROUGHIN) - PEEKCCODEFN _ (FUNCTION \THROUGHPEEK) - BACKCHARFN _ (FUNCTION \BACKTHROUGHCHAR) - FILEOUTCHARFN _ (FUNCTION \THROUGHFILEOUTCHARFN) - EOLVALID _ T - EOL _ CR.EOLC))) - (\INSTALL.EXTERNALFORMAT :THROUGH XFMT]) -) -(DECLARE%: DONTEVAL@LOAD DOCOPY + (\INSTALL.EXTERNALFORMAT (create EXTERNALFORMAT + NAME _ :THROUGH + INCCODEFN _ (FUNCTION \THROUGHIN) + PEEKCCODEFN _ (FUNCTION \PEEKBIN) + BACKCCODEFN _ (FUNCTION \THROUGHBACKCCODE) + OUTCHARFN _ (FUNCTION \THROUGHOUTCHARFN) + EOL _ CR.EOLC]) + +(\THROUGHIN + [LAMBDA (STREAM BYTECOUNTVAR BYTECOUNTVAL) (* ; "Edited 15-Jun-2021 13:49 by rmk:") + +(* ;;; "Read in a single byte from STREAM and returns it without any character conversion, just through as if.") + +(* ;;; "If COUNP is non-NIL, always -1 is returned as the second value.") + + [CL:WHEN (BYTECOUNTVAR (SET BYTECOUNTVAR (SUB1 BYTECOUNTVAL] + (\BIN STREAM]) + +(\THROUGHBACKCCODE + [LAMBDA (STREAM BYTECOUNTVAR BYTECOUNTVAL) (* ; "Edited 15-Jun-2021 13:52 by rmk:") + (CL:WHEN (\BACKFILEPTR STREAM) + (AND BYTECOUNTVAR (SET BYTECOUNTVAR (ADD1 BYTECOUNTVAL))) + T)]) -(\CREATE.JIS.EXTERNALFORMAT) +(\THROUGHOUTCHARFN + [LAMBDA (OUTSTREAM CHARCODE) (* ; "Edited 26-Feb-91 13:44 by nm") -(\CREATE.SHIFTJIS.EXTERNALFORMAT) +(* ;;; "Encoder for THROUGH format.") -(\CREATE.EUC.EXTERNALFORMAT) + (COND + ((> CHARCODE 255) + (\BOUT OUTSTREAM (\CHARSET CHARCODE)) + (\BOUT OUTSTREAM (\CHAR8CODE CHARCODE))) + (T (\BOUT OUTSTREAM CHARCODE]) +) +(DECLARE%: DONTEVAL@LOAD DOCOPY (\CREATE.THROUGH.EXTERNALFORMAT) ) @@ -1682,19 +1622,6 @@ Copyright (c) 1981-1993, 1999, 2020-2021 by Venue & Xerox Corporation. ((OR FDEV (SETQ FDEV (\GETDEVICEFROMNAME NAME T))) (FDEVOP 'GETFILENAME FDEV NAME RECOG FDEV]) -(\GENERIC.READCCODE - [LAMBDA (FILE RDTBL) (* ; "Edited 13-Jan-88 10:04 by jds") - -(* ;;; "returns a 16 bit character code. \INCHAR does the EOL conversion and this function converts to a 16 bit value. Saves the character for LASTC as well.") - - (* ;; "This is the GENERIC method for READCCODE.") - - (LET ((*READTABLE* (\GTREADTABLE RDTBL)) - (\RefillBufferFn (FUNCTION \READCREFILL)) - (STREAM (\INSTREAMARG FILE))) - (DECLARE (SPECVARS *READTABLE* \RefillBufferFn)) - (replace (STREAM LASTCCODE) of STREAM with (\INCCODE STREAM]) - (\GENERIC.OUTFILEP [LAMBDA (NAME DEV) (* lmm " 6-Jan-85 17:41") (PROG ((V (FDEVOP 'GETFILENAME DEV NAME 'OLD DEV))) @@ -1746,7 +1673,7 @@ Copyright (c) 1981-1993, 1999, 2020-2021 by Venue & Xerox Corporation. (GO RETRY]) (\DO.PARAMS.AT.OPEN - [LAMBDA (STREAM ACCESS PARAMETERS) (* ; "Edited 13-Aug-2020 11:40 by rmk:") + [LAMBDA (STREAM ACCESS PARAMETERS) (* ; "Edited 29-Jun-2021 17:07 by rmk:") (* ; "Edited 5-Oct-92 13:45 by jds") (* ;; "Does generic parameters when a file/stream is open. Called by \OPENFILE and OPENSTREAM") @@ -1757,28 +1684,29 @@ Copyright (c) 1981-1993, 1999, 2020-2021 by Venue & Xerox Corporation.  "RMK August 2020: Added hook for user STREAM-AFTER-OPEN-FNS, not global so can be rebound.") (DECLARE (USEDFREE STREAM-AFTER-OPEN-FNS)) - (for X ATTR VAL HADEXTFORMAT in PARAMETERS - do (COND - [(LISTP X) - (SETQ ATTR (CAR X)) - (SETQ VAL (CAR (LISTP (CDR X] - (T (SETQ ATTR X) - (SETQ VAL T))) - (SELECTQ ATTR - (BUFFERS (SETFILEINFO STREAM 'BUFFERS VAL)) - (ENDOFSTREAMOP (SETFILEINFO STREAM 'ENDOFSTREAMOP VAL)) - (CHARSET (CHARSET STREAM VAL)) - (EXTERNALFORMAT - (SETQ HADEXTFORMAT T) - (\EXTERNALFORMAT STREAM VAL)) - (CONVHANKAKU (CONVHANKAKU STREAM VAL)) - ((EOL EOLCONVENTION EOLC) - (replace EOLCONVENTION of STREAM with (SELECTQ VAL - (CR CR.EOLC) - (LF LF.EOLC) - (CRLF CRLF.EOLC) - (\ILLEGAL.ARG VAL)))) - NIL) FINALLY (CL:UNLESS HADEXTFORMAT (\EXTERNALFORMAT STREAM :DEFAULT))) + (\EXTERNALFORMAT STREAM :DEFAULT) + (for X ATTR VAL in PARAMETERS do (COND + [(LISTP X) + (SETQ ATTR (CAR X)) + (SETQ VAL (CAR (LISTP (CDR X] + (T (SETQ ATTR X) + (SETQ VAL T))) + (SELECTQ ATTR + (BUFFERS (SETFILEINFO STREAM 'BUFFERS VAL)) + (ENDOFSTREAMOP (SETFILEINFO STREAM + 'ENDOFSTREAMOP VAL)) + (CHARSET (CHARSET STREAM VAL)) + ((FORMAT EXTERNALFORMAT) + (\EXTERNALFORMAT STREAM VAL)) + (CONVHANKAKU (CONVHANKAKU STREAM VAL)) + ((EOL EOLCONVENTION EOLC) + (replace EOLCONVENTION of STREAM + with (SELECTQ VAL + (CR CR.EOLC) + (LF LF.EOLC) + (CRLF CRLF.EOLC) + (\ILLEGAL.ARG VAL)))) + NIL)) (FOR FN IN STREAM-AFTER-OPEN-FNS DO (APPLY* FN STREAM ACCESS PARAMETERS]) (\RENAMEFILE @@ -2480,7 +2408,8 @@ update the map") ]) (COPYCHARS - [LAMBDA (SRCFIL DSTFIL START END) (* ; "Edited 11-Dec-95 10:48 by ") + [LAMBDA (SRCFIL DSTFIL START END) (* ; "Edited 3-Jul-2021 10:59 by rmk:") + (* ; "Edited 14-Jun-2021 22:08 by rmk:") (* ; "Edited 8-Dec-95 16:38 by rmk:") (* ; "Edited 26-Mar-99 12:13 by rmk:") @@ -2518,7 +2447,7 @@ update the map") (T START] (RAP (SETQ ACTUALSTART (\GETFILEPTR SRCSTRM)) (SETQ ACTUALEND EOF)) - (T (until (\EOFP SRCSTRM) do (\OUTCHAR DSTSTRM (\INCHAR SRCSTRM))) + (T (until (\EOFP SRCSTRM) do (\OUTCHAR DSTSTRM (\INCHAR SRCSTRM NIL SRCEOLC))) (* ;  "Not RAP and START and END are both NIL. Slow copy to the end of the file.") (RETURN))) @@ -2566,12 +2495,14 @@ update the map") (SHOULDNT)) ELSE (* ;  "Extformat mismatch. The \INCHAR and \OUTCHAR will also handle any EOL conversion issues.") - (BIND (CNT _ (IDIFFERENCE ACTUALEND ACTUALSTART)) WHILE (IGREATERP CNT 0) - DO + (BIND (CNT _ (IDIFFERENCE ACTUALEND ACTUALSTART)) DECLARE (SPECVARS CNT) + WHILE (IGREATERP CNT 0) DO - (* ;; "Let the \INCHAR macro decrement the byte count") + (* ;; + "Let the \INCHAR macro decrement the byte count") - (\OUTCHAR DSTSTRM (\INCHAR SRCSTRM CNT] + (\OUTCHAR DSTSTRM (\INCHAR SRCSTRM + 'CNT NIL CNT] T]) (COPYFILE @@ -2590,7 +2521,7 @@ update the map") (\COPYOPENFILE FROMFILE TOFILE DESTPARAMETERS))]) (\COPYOPENFILE - [LAMBDA (INSTREAM NEWNAME DESTPARAMETERS) (* ; "Edited 11-Dec-95 12:04 by ") + [LAMBDA (INSTREAM NEWNAME DESTPARAMETERS) (* ; "Edited 3-May-2021 20:36 by rmk:") (* ; "Edited 11-Dec-95 11:50 by ") (* ; "Edited 17-Sep-90 11:41 by jds") (* bvm%: "18-Oct-85 15:54") @@ -2627,10 +2558,7 @@ update the map") (COND ((EQ TYPE 'TEXT) - (* ;; -"RMK replaced the following with COPYCHARS, to make sure Externalformat gets done as well as EOL: ") - - (* ;; "(AND (EQ TYPE 'TEXT) (NEQ (GETFILEINFO OUTSTREAM 'EOL) X)) ; Incompatible EOL conventions, do slow way (replace ENDOFSTREAMOP of INSTREAM with (FUNCTION NILL)) (bind CH (SRCEOL _ (fetch EOLCONVENTION of INSTREAM)) until (NULL (SETQ CH (\BIN INSTREAM))) do (\OUTCHAR OUTSTREAM (\CHECKEOLC CH SRCEOL INSTREAM)))") + (* ;; "RMK: COPYCHARS ensures that external format conversion happens if necessary ") (COPYCHARS INSTREAM OUTSTREAM)) (T (COPYBYTES INSTREAM OUTSTREAM))) @@ -2730,7 +2658,7 @@ update the map") STREAM]) (GETFILEINFO - [LAMBDA (FILE ATTRIB) (* ; "Edited 11-Dec-95 11:07 by ") + [LAMBDA (FILE ATTRIB) (* ; "Edited 29-Jun-2021 17:05 by rmk:") (* ; "Edited 11-Dec-95 11:03 by ") (* ; "Edited 8-May-87 16:53 by bvm") (LET (FULLNAME DEV) @@ -2750,6 +2678,7 @@ update the map") (CR.EOLC 'CR) (LF.EOLC 'LF) (CRLF.EOLC 'CRLF) + (ANY.EOLC 'ANY) (SHOULDNT))) (BUFFERS (fetch MAXBUFFERS of FILE)) (CHARSET (CHARSET FILE)) @@ -2759,7 +2688,7 @@ update the map") (SIZE [SIZE.FROM.LENGTH (OR (FDEVOP 'GETFILEINFO DEV FILE 'LENGTH DEV) (AND (RANDACCESSP FILE) (\GETEOFPTR FILE]) - (EXTERNALFORMAT + ((FORMAT EXTERNALFORMAT) (\EXTERNALFORMAT FILE)) NIL)) ((EQ ATTRIB 'SIZE) @@ -2799,7 +2728,7 @@ update the map") STREAM]) (SETFILEINFO - [LAMBDA (FILE ATTRIB VALUE) (* ; "Edited 11-Dec-95 11:31 by ") + [LAMBDA (FILE ATTRIB VALUE) (* ; "Edited 29-Jun-2021 17:05 by rmk:") (* ; "Edited 11-Dec-95 11:08 by ") (* ; "Edited 27-Mar-89 15:33 by bvm") (LET (FULLNAME DEV) @@ -2814,9 +2743,10 @@ update the map") (CR CR.EOLC) (CRLF CRLF.EOLC) (LF LF.EOLC) + (ANY ANY.EOLC) (\ILLEGAL.ARG VALUE))) VALUE) - (EXTERNALFORMAT + ((FORMAT EXTERNALFORMAT) (\EXTERNALFORMAT FILE VALUE) VALUE) (ENDOFSTREAMOP (replace ENDOFSTREAMOP of FILE with VALUE)) @@ -2851,7 +2781,7 @@ update the map") (T (LISPERROR "FILE NOT FOUND" FILE]) (SETFILEPTR - [LAMBDA (FILE ADR) (* ; "Edited 11-Sep-87 16:34 by bvm:") + [LAMBDA (FILE ADR) (* ; "Edited 21-Jun-2021 12:12 by rmk:") (LET ((STREAM (\GETSTREAM FILE))) [FDEVOP 'SETFILEPTR (ffetch DEVICE of STREAM) STREAM @@ -2861,12 +2791,13 @@ update the map") ((type? BYTEPTR ADR) ADR) (T (LISPERROR "ILLEGAL ARG" ADR] - (if (\RUNCODED STREAM) - then - (* ;; "always shift the character set to 0. This might be wrong sometimes, but it is more often right than wrong. We don't do it when reading a non-runcoded file, since maybe the whole file is that way (unfortunately, we can't tell)") + (* ;; " RMK: There is no reason to believe that going to CSET 0 is more often right than wrong. If it truly is a runcoded cset 0 file, where this would be appropriate, then it presumably is already in cset 0, no need to do anything. If it is runcoded in some other character set (e.g. Greek), then it is more likely that the whole file (or at least wherever we are setting the file ptr) is also in Greek. So leave it alone.") - (ACCESS-CHARSET STREAM 0)) + (* ;; "And this would only apply, presumably, to an NS/XCCS file or some other runcoded file format, of which there aren't any.") + (* (if (\RUNCODED STREAM) then + (* ;; "always shift the character set to 0. This might be wrong sometimes, but it is more often right than wrong. We don't do it when reading a non-runcoded file, since maybe the whole file is that way (unfortunately, we can't tell)") + (ACCESS-CHARSET STREAM 0))) (freplace (STREAM CHARPOSITION) of STREAM with 0) (* ; "Value is not coerced!") ADR]) @@ -2955,25 +2886,22 @@ update the map") (fetch USERVISIBLE of S]) (\GENERIC.READP - [LAMBDA (STREAM FLG) (* ; "Edited 11-Sep-87 16:26 by bvm:") + [LAMBDA (STRM FLG) (* ; "Edited 23-Jun-2021 13:09 by rmk:") (* ;  "The 10 does not do the EOL check on the peeked character.") (* ;  "If FLG is NIL, a single EOL doesn't count.") - (PROG ((SHIFTEDCHARSET (UNFOLD (ACCESS-CHARSET STREAM) - 256))) - (RETURN (AND (NOT (\EOFP STREAM)) - (OR (NOT (NULL FLG)) - [NEQ EOL.TC (\SYNCODE \PRIMTERMSA (OR (\NSPEEK STREAM SHIFTEDCHARSET - SHIFTEDCHARSET T) - (RETURN] - (UNINTERRUPTABLY - (\NSIN STREAM SHIFTEDCHARSET SHIFTEDCHARSET) + (CL:UNLESS (\EOFP STRM) + [PROG NIL + (RETURN (OR FLG [NEQ EOL.TC (\SYNCODE \PRIMTERMSA (OR (\PEEKCCODE STRM T) + (RETURN] + (UNINTERRUPTABLY + (\INCCODE STRM) - (* ;; "To find out if the EOL is the last character, we BIN the stream, check for EOF, then back it up again.") + (* ;; "To find out if the EOL is the last character, we BIN the stream, check for EOF, then back it up again.") - (PROG1 (NOT (\EOFP STREAM)) - (\BACKNSCHAR STREAM SHIFTEDCHARSET)))]) + (PROG1 (NOT (\EOFP STRM)) + (\BACKCCODE STRM)))])]) (\GENERIC.CHARSET [LAMBDA (STREAM NEWVALUE) (* ; "Edited 11-Sep-87 16:20 by bvm:") @@ -3007,9 +2935,6 @@ update the map") (DECLARE%: EVAL@COMPILE DONTCOPY (* "FOLLOWING DEFINITIONS EXPORTED")(DECLARE%: EVAL@COMPILE -(PUTPROPS \OUTCHAR DMACRO (OPENLAMBDA (STREAM CHARCODE) - (STREAMOP 'OUTCHARFN STREAM STREAM CHARCODE))) - (PUTPROPS \DEVICE-OPEN-STREAMS MACRO [ARGS (LET ((DEVICE (CAR ARGS))) `(FDEVOP 'OPENP ,DEVICE NIL NIL ,DEVICE]) @@ -3157,6 +3082,15 @@ update the map") (FDEVOP 'BLOCKOUT (fetch (STREAM DEVICE) of STRM) STRM BASE OFF NBYTES))) +(PUTPROPS \BOUTEOL MACRO (OPENLAMBDA (STRM) + (SELECTC (FETCH (STREAM EOLCONVENTION) OF STRM) + (LF.EOLC (\BOUT STRM (CHARCODE LF))) + (CR.EOLC (\BOUT STRM (CHARCODE CR))) + (CRLF.EOLC (\BOUT STRM (CHARCODE CR)) + (\BOUT STRM (CHARCODE LF))) + (ANY.EOLC (SHOULDNT)) + NIL))) + (PUTPROPS \EOFP BYTEMACRO (OPENLAMBDA (STRM) (FDEVOP 'EOFP (fetch (STREAM DEVICE) of STRM) STRM))) @@ -3448,44 +3382,43 @@ update the map") (PUTPROPS FILEIO COPYRIGHT ("Venue & Xerox Corporation" 1981 1982 1983 1984 1985 1986 1987 1988 1989 1990 1991 1992 1993 1999 2020 2021)) (DECLARE%: DONTCOPY - (FILEMAP (NIL (31767 35096 (STREAMPROP 31777 . 32211) (GETSTREAMPROP 32213 . 32616) (PUTSTREAMPROP -32618 . 34944) (STREAMP 34946 . 35094)) (35139 37658 (\DEFPRINT.BY.NAME 35149 . 36301) ( -\STREAM.DEFPRINT 36303 . 37351) (\FDEV.DEFPRINT 37353 . 37656)) (37916 42957 (\GETACCESS 37926 . 38380 -) (\SETACCESS 38382 . 42955)) (66784 73282 (\INSTALL.EXTERNALFORMAT 66794 . 68174) ( -\REMOVE.EXTERNALFORMAT 68176 . 69120) (\GET.EXTERNALFORMAT.FROM.NAME 69122 . 69529) (\EXTERNALFORMAT -69531 . 73280)) (73591 76597 (\CREATE.JIS.EXTERNALFORMAT 73601 . 74165) ( -\CREATE.SHIFTJIS.EXTERNALFORMAT 74167 . 75285) (\CREATE.EUC.EXTERNALFORMAT 75287 . 75851) ( -\CREATE.THROUGH.EXTERNALFORMAT 75853 . 76595)) (76812 82781 (\DEFINEDEVICE 76822 . 79138) ( -\GETDEVICEFROMNAME 79140 . 79613) (\GETDEVICEFROMHOSTNAME 79615 . 80659) (\REMOVEDEVICE 80661 . 81784) - (\REMOVEDEVICE.NAMES 81786 . 82779)) (82821 107560 (\CLOSEFILE 82831 . 83656) (\DELETEFILE 83658 . -83952) (\DEVICEEVENT 83954 . 85724) (\GENERATEFILES 85726 . 86204) (\GENERATENEXTFILE 86206 . 86857) ( -\GENERATEFILEINFO 86859 . 87320) (\GETFILENAME 87322 . 87711) (\GENERIC.READCCODE 87713 . 88349) ( -\GENERIC.OUTFILEP 88351 . 88821) (\OPENFILE 88823 . 91401) (\DO.PARAMS.AT.OPEN 91403 . 93397) ( -\RENAMEFILE 93399 . 93823) (\REVALIDATEFILE 93825 . 96427) (\PAGED.REVALIDATEFILELST 96429 . 97987) ( -\PAGED.REVALIDATEFILES 97989 . 99708) (\PAGED.REVALIDATEFILE 99710 . 101993) (\BUFFERED.REVALIDATEFILE - 101995 . 104281) (\BUFFERED.REVALIDATEFILELST 104283 . 105467) (\PRINT-REVALIDATION-RESULT 105469 . -105884) (\TRUNCATEFILE 105886 . 106277) (\FILE-CONFLICT 106279 . 107558)) (107596 112259 ( -\GENERATENOFILES 107606 . 109702) (\NULLFILEGENERATOR 109704 . 109948) (\NOFILESNEXTFILEFN 109950 . -111941) (\NOFILESINFOFN 111943 . 112257)) (112378 114286 (\FILE.NOT.OPEN 112388 . 112901) ( -\FILE.WONT.OPEN 112903 . 113231) (\ILLEGAL.DEVICEOP 113233 . 113515) (\IS.NOT.RANDACCESSP 113517 . -113963) (\STREAM.NOT.OPEN 113965 . 114284)) (114421 116719 (\FDEVINSTANCE 114431 . 116717)) (118269 -125643 (CNDIR 118279 . 119584) (DIRECTORYNAME 119586 . 123769) (DIRECTORYNAMEP 123771 . 124387) ( -HOSTNAMEP 124389 . 125196) (\ADD.CONNECTED.DIR 125198 . 125641)) (125688 155467 (\BACKFILEPTR 125698 - . 125886) (\BACKPEEKBIN 125888 . 126249) (\BACKBIN 126251 . 126602) (BIN 126604 . 126821) (\BIN -126823 . 127100) (\BINS 127102 . 127388) (BOUT 127390 . 127752) (\BOUT 127754 . 128069) (\BOUTS 128071 - . 128382) (COPYBYTES 128384 . 131716) (COPYCHARS 131718 . 138286) (COPYFILE 138288 . 139085) ( -\COPYOPENFILE 139087 . 142518) (\INFER.FILE.TYPE 142520 . 143474) (EOFP 143476 . 143773) (FORCEOUTPUT -143775 . 144022) (\FLUSH.OPEN.STREAMS 144024 . 144380) (CHARSET 144382 . 146046) (ACCESS-CHARSET -146048 . 146265) (GETEOFPTR 146267 . 146517) (GETFILEINFO 146519 . 149652) (\TYPE.FROM.FILETYPE 149654 - . 150124) (\FILETYPE.FROM.TYPE 150126 . 150305) (GETFILEPTR 150307 . 150559) (SETFILEINFO 150561 . -154071) (SETFILEPTR 154073 . 155087) (BOUT16 155089 . 155274) (BIN16 155276 . 155465)) (155570 161068 -(\GENERIC.BINS 155580 . 155860) (\GENERIC.BOUTS 155862 . 156127) (\GENERIC.RENAMEFILE 156129 . 157960) - (\GENERIC.OPENP 157962 . 159277) (\GENERIC.READP 159279 . 160613) (\GENERIC.CHARSET 160615 . 161066)) - (161069 161408 (\MAP-OPEN-STREAMS 161079 . 161406)) (163426 165506 (\EOF.ACTION 163436 . 163687) ( -\EOSERROR 163689 . 163882) (\GETEOFPTR 163884 . 164066) (\INCFILEPTR 164068 . 164418) (\PEEKBIN 164420 - . 164611) (\SETCLOSEDFILELENGTH 164613 . 164947) (\SETEOFPTR 164949 . 165137) (\SETFILEPTR 165139 . -165504)) (165507 166049 (\FIXPOUT 165517 . 165817) (\FIXPIN 165819 . 166047)) (169141 179005 ( -\BUFFERED.BIN 169151 . 170003) (\BUFFERED.PEEKBIN 170005 . 170787) (\BUFFERED.BOUT 170789 . 171649) ( -\BUFFERED.BINS 171651 . 175336) (\BUFFERED.BOUTS 175338 . 177139) (\BUFFERED.COPYBYTES 177141 . 179003 -)) (179034 181386 (\NULLDEVICE 179044 . 181062) (\NULL.OPENFILE 181064 . 181384))))) + (FILEMAP (NIL (28433 31923 (STREAMPROP 28443 . 28877) (GETSTREAMPROP 28879 . 29352) (PUTSTREAMPROP +29354 . 31771) (STREAMP 31773 . 31921)) (31966 34485 (\DEFPRINT.BY.NAME 31976 . 33128) ( +\STREAM.DEFPRINT 33130 . 34178) (\FDEV.DEFPRINT 34180 . 34483)) (34743 39784 (\GETACCESS 34753 . 35207 +) (\SETACCESS 35209 . 39782)) (63955 70961 (\INSTALL.EXTERNALFORMAT 63965 . 65398) ( +\REMOVE.EXTERNALFORMAT 65400 . 66231) (FIND-FORMAT 66233 . 66784) (\EXTERNALFORMAT 66786 . 70959)) ( +71284 73103 (\CREATE.THROUGH.EXTERNALFORMAT 71294 . 72096) (\THROUGHIN 72098 . 72504) ( +\THROUGHBACKCCODE 72506 . 72751) (\THROUGHOUTCHARFN 72753 . 73101)) (73211 79180 (\DEFINEDEVICE 73221 + . 75537) (\GETDEVICEFROMNAME 75539 . 76012) (\GETDEVICEFROMHOSTNAME 76014 . 77058) (\REMOVEDEVICE +77060 . 78183) (\REMOVEDEVICE.NAMES 78185 . 79178)) (79220 103880 (\CLOSEFILE 79230 . 80055) ( +\DELETEFILE 80057 . 80351) (\DEVICEEVENT 80353 . 82123) (\GENERATEFILES 82125 . 82603) ( +\GENERATENEXTFILE 82605 . 83256) (\GENERATEFILEINFO 83258 . 83719) (\GETFILENAME 83721 . 84110) ( +\GENERIC.OUTFILEP 84112 . 84582) (\OPENFILE 84584 . 87162) (\DO.PARAMS.AT.OPEN 87164 . 89717) ( +\RENAMEFILE 89719 . 90143) (\REVALIDATEFILE 90145 . 92747) (\PAGED.REVALIDATEFILELST 92749 . 94307) ( +\PAGED.REVALIDATEFILES 94309 . 96028) (\PAGED.REVALIDATEFILE 96030 . 98313) (\BUFFERED.REVALIDATEFILE +98315 . 100601) (\BUFFERED.REVALIDATEFILELST 100603 . 101787) (\PRINT-REVALIDATION-RESULT 101789 . +102204) (\TRUNCATEFILE 102206 . 102597) (\FILE-CONFLICT 102599 . 103878)) (103916 108579 ( +\GENERATENOFILES 103926 . 106022) (\NULLFILEGENERATOR 106024 . 106268) (\NOFILESNEXTFILEFN 106270 . +108261) (\NOFILESINFOFN 108263 . 108577)) (108698 110606 (\FILE.NOT.OPEN 108708 . 109221) ( +\FILE.WONT.OPEN 109223 . 109551) (\ILLEGAL.DEVICEOP 109553 . 109835) (\IS.NOT.RANDACCESSP 109837 . +110283) (\STREAM.NOT.OPEN 110285 . 110604)) (110741 113039 (\FDEVINSTANCE 110751 . 113037)) (114589 +121963 (CNDIR 114599 . 115904) (DIRECTORYNAME 115906 . 120089) (DIRECTORYNAMEP 120091 . 120707) ( +HOSTNAMEP 120709 . 121516) (\ADD.CONNECTED.DIR 121518 . 121961)) (122008 152651 (\BACKFILEPTR 122018 + . 122206) (\BACKPEEKBIN 122208 . 122569) (\BACKBIN 122571 . 122922) (BIN 122924 . 123141) (\BIN +123143 . 123420) (\BINS 123422 . 123708) (BOUT 123710 . 124072) (\BOUT 124074 . 124389) (\BOUTS 124391 + . 124702) (COPYBYTES 124704 . 128036) (COPYCHARS 128038 . 134960) (COPYFILE 134962 . 135759) ( +\COPYOPENFILE 135761 . 138834) (\INFER.FILE.TYPE 138836 . 139790) (EOFP 139792 . 140089) (FORCEOUTPUT +140091 . 140338) (\FLUSH.OPEN.STREAMS 140340 . 140696) (CHARSET 140698 . 142362) (ACCESS-CHARSET +142364 . 142581) (GETEOFPTR 142583 . 142833) (GETFILEINFO 142835 . 146028) (\TYPE.FROM.FILETYPE 146030 + . 146500) (\FILETYPE.FROM.TYPE 146502 . 146681) (GETFILEPTR 146683 . 146935) (SETFILEINFO 146937 . +150550) (SETFILEPTR 150552 . 152271) (BOUT16 152273 . 152458) (BIN16 152460 . 152649)) (152754 157959 +(\GENERIC.BINS 152764 . 153044) (\GENERIC.BOUTS 153046 . 153311) (\GENERIC.RENAMEFILE 153313 . 155144) + (\GENERIC.OPENP 155146 . 156461) (\GENERIC.READP 156463 . 157504) (\GENERIC.CHARSET 157506 . 157957)) + (157960 158299 (\MAP-OPEN-STREAMS 157970 . 158297)) (160169 162249 (\EOF.ACTION 160179 . 160430) ( +\EOSERROR 160432 . 160625) (\GETEOFPTR 160627 . 160809) (\INCFILEPTR 160811 . 161161) (\PEEKBIN 161163 + . 161354) (\SETCLOSEDFILELENGTH 161356 . 161690) (\SETEOFPTR 161692 . 161880) (\SETFILEPTR 161882 . +162247)) (162250 162792 (\FIXPOUT 162260 . 162560) (\FIXPIN 162562 . 162790)) (166458 176322 ( +\BUFFERED.BIN 166468 . 167320) (\BUFFERED.PEEKBIN 167322 . 168104) (\BUFFERED.BOUT 168106 . 168966) ( +\BUFFERED.BINS 168968 . 172653) (\BUFFERED.BOUTS 172655 . 174456) (\BUFFERED.COPYBYTES 174458 . 176320 +)) (176351 178703 (\NULLDEVICE 176361 . 178379) (\NULL.OPENFILE 178381 . 178701))))) STOP diff --git a/sources/FILEIO.LCOM b/sources/FILEIO.LCOM index cb805ce7a..38f9986fe 100644 Binary files a/sources/FILEIO.LCOM and b/sources/FILEIO.LCOM differ diff --git a/sources/FILEIO.LCOM.~10~ b/sources/FILEIO.LCOM.~10~ deleted file mode 100644 index dd0a490d8..000000000 Binary files a/sources/FILEIO.LCOM.~10~ and /dev/null differ diff --git a/sources/FILEIO.LCOM.~11~ b/sources/FILEIO.LCOM.~11~ deleted file mode 100644 index d9c75eb5f..000000000 Binary files a/sources/FILEIO.LCOM.~11~ and /dev/null differ diff --git a/sources/FILEIO.LCOM.~12~ b/sources/FILEIO.LCOM.~12~ deleted file mode 100644 index d746c99f1..000000000 Binary files a/sources/FILEIO.LCOM.~12~ and /dev/null differ diff --git a/sources/FILEIO.LCOM.~2~ b/sources/FILEIO.LCOM.~2~ deleted file mode 100644 index 77ac671bd..000000000 Binary files a/sources/FILEIO.LCOM.~2~ and /dev/null differ diff --git a/sources/FILEIO.LCOM.~6~ b/sources/FILEIO.LCOM.~6~ deleted file mode 100644 index 63cbc24b8..000000000 Binary files a/sources/FILEIO.LCOM.~6~ and /dev/null differ diff --git a/sources/FILEIO.LCOM.~7~ b/sources/FILEIO.LCOM.~7~ deleted file mode 100644 index 22230589b..000000000 Binary files a/sources/FILEIO.LCOM.~7~ and /dev/null differ diff --git a/sources/FILEIO.LCOM.~8~ b/sources/FILEIO.LCOM.~8~ deleted file mode 100644 index 561777214..000000000 Binary files a/sources/FILEIO.LCOM.~8~ and /dev/null differ diff --git a/sources/FILEIO.LCOM.~9~ b/sources/FILEIO.LCOM.~9~ deleted file mode 100644 index dd0a490d8..000000000 Binary files a/sources/FILEIO.LCOM.~9~ and /dev/null differ diff --git a/sources/FILEPKG b/sources/FILEPKG index 53ca012c6..e8de8c963 100644 --- a/sources/FILEPKG +++ b/sources/FILEPKG @@ -1,15 +1,16 @@ -(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP") -(FILECREATED "12-Feb-2021 17:16:04" {DSK}larry>ilisp>medley>sources>FILEPKG.;16 282953 +(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10 FORMAT XCCS) +(FILECREATED " 3-Jul-2021 11:08:42"  +{DSK}kaplan>Local>medley3.5>git-medley>sources>FILEPKG.;5 284528 - changes to%: (VARS FILEPKGCOMS) - (FNS ADDTOFILEKEYLST) + changes to%: (FNS MAKEFILE) + (VARS FILEPKGCOMS) - previous date%: "27-Oct-2020 15:40:32" {DSK}larry>ilisp>medley>sources>FILEPKG.;15) + previous date%: "29-Jun-2021 17:25:04" +{DSK}kaplan>Local>medley3.5>git-medley>sources>FILEPKG.;4) (* ; " -Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1995, 2018, 2020, -2021 by Venue & Xerox Corporation. +Copyright (c) 1982-1993, 1995, 2018, 2020-2021 by Venue & Xerox Corporation. The following program was created in 1982 but has not been published within the meaning of the copyright law, is furnished under license, and may not be used, copied and/or disclosed except in accordance @@ -19,15 +20,15 @@ with the terms of said license. (PRETTYCOMPRINT FILEPKGCOMS) (RPAQQ FILEPKGCOMS - [(COMS (* ; - "standard records for accessing file package type/command parts. Exported for PRETTY") + [(COMS (* ; + "standard records for accessing file package type/command parts. Exported for PRETTY") (VARS FILEPKGTYPEPROPS) (EXPORT (DECLARE%: EVAL@COMPILE DONTCOPY (RECORDS * FILEPKGRECORDS))) (FNS SEARCHPRETTYTYPELST PRETTYDEFMACROS FILEPKGCOMPROPS) (INITRECORDS * FILEPKGRECORDS)) [DECLARE%: EVAL@COMPILE DOCOPY - (* ;; "Proclaim SPECIAL those variables that are used freely in a lot of code.") + (* ;; "Proclaim SPECIAL those variables that are used freely in a lot of code.") (P (CL:PROCLAIM '(CL:SPECIAL PRETTYDEFMACROS PRETTYTYPELST FILEPKGTYPES PRETTYPRINTMACROS *DEFAULT-CLEANUP-COMPILER* MARKASCHANGEDFNS @@ -36,7 +37,7 @@ with the terms of said license. NOTCOMPILEDFILES MAKEFILEFORMS CLEANUPOPTIONS] (INITVARS (MSDATABASELST)) [COMS - (* ;; "making, adding, listing, compiling files") + (* ;; "making, adding, listing, compiling files") (FNS CLEANUP COMPILEFILES COMPILEFILES0 CONTINUEDIT MAKEFILE FILECHANGES FILEPKG.MERGECHANGES FILEPKG.CHANGEDFNS MAKEFILE1 COMPILE-FILE? MAKEFILES ADDFILE @@ -49,7 +50,7 @@ with the terms of said license. (MAKEFILEFORMS) (NILCOMS)) (ADDVARS (MAKEFILEOPTIONS RC C LIST FAST CLISP CLISPIFY NIL REMAKE NEW NOCLISP CLISP% - F ST STF (REC . RC) + F ST STF FORMAT (REC . RC) (BREC . RC) (TC . C) (BC . C) @@ -58,14 +59,14 @@ with the terms of said license. (INITVARS (MAKEFILEREMAKEFLG T) (CLEANUPOPTIONS '(RC] (COMS - (* ;; "scanning file coms") + (* ;; "scanning file coms") (FNS FILEPKGCHANGES GETFILEPKGTYPE MARKASCHANGED FILECOMS WHEREIS SMASHFILECOMS FILEFNSLST FILECOMSLST UPDATEFILES INFILECOMS? INFILECOMTAIL INFILECOMS INFILECOM INFILECOMSVALS INFILECOMSVAL INFILECOMSPROP IFCPROPS IFCEXPRTYPE IFCPROPSCAN IFCDECLARE INFILEPAIRS INFILECOMSMACRO)) (COMS - (* ;; "adding to a file") + (* ;; "adding to a file") (FNS FILES? FILES?1 FILES?PRINTLST ADDTOFILES? ADDTOFILE WHATIS ADDTOCOMS ADDTOCOM ADDTOCOM1 ADDNEWCOM MAKENEWCOM DEFAULTMAKENEWCOM) @@ -73,28 +74,28 @@ with the terms of said license. (ADDVARS (MARKASCHANGEDFNS)) (FNS MERGEINSERT MERGEINSERT1) - (* ;; "RMK: Changed INITVARS to VARS, so = addition is a synonym for untypable LF, and also suppress appearance of raw CR and LF in the file") + (* ;; "RMK: Changed INITVARS to VARS, so = addition is a synonym for untypable LF, and also suppress appearance of raw CR and LF in the file") (FNS ADDTOFILEKEYLST) (INITVARS (ADDTOFILEKEYLST (ADDTOFILEKEYLST)) (LASTFILE))) (COMS - (* ;; "deleting an item from a file") + (* ;; "deleting an item from a file") (FNS DELFROMFILES DELFROMCOMS DELFROMCOM DELFROMCOM1 REMOVEITEM MOVETOFILE) (P (MOVD? 'DELFROMFILES 'DELFROMFILE NIL T) (MOVD? 'MOVETOFILE 'MOVEITEM NIL T)) (ADDVARS (SYSPROPS PROPTYPE VARTYPE))) - [COMS (* ; - "functions for doing things and marking them changed and auxiliary functions") + [COMS (* ; + "functions for doing things and marking them changed and auxiliary functions") (FNS SAVEPUT) [DECLARE%: DONTEVAL@LOAD DOCOPY (P (OR (CHANGENAME 'PUTPROPS 'PUTPROP 'SAVEPUT) (CHANGENAME 'PUTPROPS '/PUT 'SAVEPUT] (FNS UNMARKASCHANGED PREEDITFN POSTEDITPROPS POSTEDITALISTS) (ADDVARS (LISPXFNS (PUT . SAVEPUT) (PUTPROP . SAVEPUT] - (COMS (* ; - "sub-functions for file package commands & types") + (COMS (* ; + "sub-functions for file package commands & types") (FNS ALISTS.GETDEF ALISTS.WHENCHANGED CLEARCLISPARRAY EXPRESSIONS.WHENCHANGED MAKEALISTCOMS MAKEFILESCOMS MAKELISPXMACROSCOMS MAKEPROPSCOMS MAKEUSERMACROSCOMS PROPS.WHENCHANGED FILEGETDEF.LISPXMACROS FILEGETDEF.ALISTS FILEGETDEF.RECORDS @@ -107,24 +108,24 @@ with the terms of said license. (PROP VARTYPE BAKTRACELST BREAKMACROS COMPILETYPELST EDITMACROS ERRORTYPELST FONTDEFS LISPXHISTORYMACROS LISPXMACROS PRETTYDEFMACROS PRETTYEQUIVLST PRETTYPRINTMACROS PRETTYPRINTYPEMACROS USERMACROS)) - (COMS (* ; - "Define the commands below AFTER the various properties have been established.") + (COMS (* ; + "Define the commands below AFTER the various properties have been established.") (USERMACROS M)) - (COMS (* ; "GETDEF methods") + (COMS (* ; "GETDEF methods") (FNS RENAME CHANGECALLERS) (FNS SHOWDEF COPYDEF GETDEF GETDEFCOM GETDEFCOM0 GETDEFCURRENT GETDEFERR GETDEFFROMFILE GETDEFSAVED PUTDEF EDITDEF DEFAULT.EDITDEF EDITDEF.FILES LOADDEF DWIMDEF DELDEF DELFROMLIST HASDEF GETFILEDEF SAVEDEF UNSAVEDEF COMPAREDEFS COMPARE TYPESOF) (INITVARS (WHEREIS.HASH))) - (* ; "Must come after PUTDEF") + (* ; "Must come after PUTDEF") (FNS FIXEDITDATE EDITDATE?) - (* ; - "Edit date support for all kinds of definers (from PARC 6/10/92)") + (* ; + "Edit date support for all kinds of definers (from PARC 6/10/92)") [VARS (EDITDATE-ARGLIST-DEFINERS '(FUNCTIONS TYPES)) (EDITDATE-NAME-DEFINERS '(STRUCTURES VARIABLES] (GLOBALVARS EDITDATE-ARGLIST-DEFINERS EDITDATE-NAME-DEFINERS) (COMS - (* ;; "how to dump FILEPKGCOMS. The SPLST must be initialized to contain FILEPKGCOMS in order to get started.") + (* ;; "how to dump FILEPKGCOMS. The SPLST must be initialized to contain FILEPKGCOMS in order to get started.") (FNS FILEPKGCOM FILEPKGTYPE) (PROP ARGNAMES FILEPKGCOM) @@ -137,24 +138,24 @@ with the terms of said license. (ADDVARS (SHADOW-TYPES (FUNCTIONS FNS) (VARIABLES VARS CONSTANTS))) (INITVARS (SAVEDDEFS)) - (COMS (* ; "EDITCALLERS") + (COMS (* ; "EDITCALLERS") (FNS FINDCALLERS EDITCALLERS EDITFROMFILE FINDATS LOOKIN) (FNS SEPRCASE) [INITVARS (DEFAULTRENAMEMETHOD '(EDITCALLERS CAREFUL] (INITVARS (SEPRCASEARRAYS) (CLISPCASEARRAYS)) (P (MOVD? 'INFILEP 'FINDFILE) - (* ; "or else from SPELLFILE")) + (* ; "or else from SPELLFILE")) (BLOCKS (EDITFROMFILE EDITFROMFILE LOOKIN (GLOBALVARS EDITLOADFNSFLG) (NOLINKFNS LOADFROM))) (GLOBALVARS SYSFILES CLISPCASEARRAYS SEPRCASEARRAYS CLISPCHARS)) - (COMS (* ; "EXPORT") + (COMS (* ; "EXPORT") (FNS IMPORTFILE IMPORTEVAL IMPORTFILESCAN CHECKIMPORTS GATHEREXPORTS \DUMPEXPORTS) (FILEPKGCOMS EXPORT) [INITVARS (BEGINEXPORTDEFSTRING "* %"FOLLOWING DEFINITIONS EXPORTED%")") (ENDEXPORTDEFFORM '(* "END EXPORTED DEFINITIONS"] (GLOBALVARS BEGINEXPORTDEFSTRING ENDEXPORTDEFFORM)) - (COMS (* ; "for GAINSPACE") + (COMS (* ; "for GAINSPACE") (FNS CLEARFILEPKG) [ADDVARS (GAINSPACEFORMS (FILELST "erase filepkg information" (CLEARFILEPKG RESPONSE) ((Y "es") @@ -254,11 +255,11 @@ with the terms of said license. (REMOVE (FASSOC DATUM (GETTOPVAL 'PRETTYDEFMACROS)) (GETTOPVAL 'PRETTYDEFMACROS] - (* Not an atom record cause want - REMPROP on NILs.) - (* NOTE%: PRETTCOM on PRETTY has - open-coded access to the MACRO - property.) + (* Not an atom record cause want + REMPROP on NILs.) + (* NOTE%: PRETTCOM on PRETTY has + open-coded access to the MACRO + property.) (INIT (FILEPKGCOMPROPS ADDTOPRETTYCOM DELFROMPRETTYCOM PRETTYTYPE FILEPKGCONTENTS))) @@ -289,8 +290,8 @@ with the terms of said license. (REMOVE (SEARCHPRETTYTYPELST DATUM) (GETTOPVAL 'PRETTYTYPELST] - (* NOTE%: PRETTYCOM on PRETTY has - open-coded access to GETDEF property) + (* NOTE%: PRETTYCOM on PRETTY has + open-coded access to GETDEF property) (INIT [PROGN (SETQ SYSPROPS (UNION FILEPKGTYPEPROPS SYSPROPS)) (MAPC FILEPKGTYPEPROPS (FUNCTION (LAMBDA (X) (PUT X @@ -455,30 +456,31 @@ with the terms of said license. (RETURN FILE]) (MAKEFILE - [LAMBDA (FILE OPTIONS REPRINTFNS SOURCEFILE) (* ; "Edited 29-Aug-89 11:46 by bvm") + [LAMBDA (FILE OPTIONS REPRINTFNS SOURCEFILE) (* ; "Edited 3-Jul-2021 11:03 by rmk:") + (* ; "Edited 29-Jun-2021 17:24 by rmk:") - (* ;; "OPTIONS: FAST means dump with PRETTYFLG set to NIL; LIST means list the FILE; RC means RECOMPILE, C means COMPILEL; --- for C AND RC assume ST unless next option is F.") + (* ;; "OPTIONS: FAST means dump with PRETTYFLG set to NIL; LIST means list the FILE; RC means RECOMPILE, C means COMPILEL; --- for C AND RC assume ST unless next option is F.") (PROG ((PRETTYFLG (AND [NOT (MEMB 'FAST (SETQ OPTIONS (MKLIST OPTIONS] PRETTYFLG)) (*PRINT-BASE* (if (EQ *PRINT-BASE* 8) then 8 - else (* ; "make sure radix is either 8 or 10, because all others don't read in like they print. Maybe obsolete now with makefile environments") + else (* ; "make sure radix is either 8 or 10, because all others don't read in like they print. Maybe obsolete now with makefile environments") 10)) FILETYPE ROOTNAME FILEPROP CHANGES FILEDATES (Z (ADDFILE FILE))) (DECLARE (CL:SPECIAL PRETTYFLG)) - (SETQ FILE (CAR Z)) (* ; - "Necessary because FILE might have been misspelled.") - (SETQ ROOTNAME (CADR Z)) (* ; "result of (ROOTFILENAME FILE), or if FILE is corrected, result of applying ROOTFILENAME to correct value.") + (SETQ FILE (CAR Z)) (* ; + "Necessary because FILE might have been misspelled.") + (SETQ ROOTNAME (CADR Z)) (* ; "result of (ROOTFILENAME FILE), or if FILE is corrected, result of applying ROOTFILENAME to correct value.") (SETQ FILEPROP (CDDR Z)) - (UPDATEFILES) (* ; "Want updating done after file is added to filelst, so any functions that are being dumped are marked as having been dumped.") + (UPDATEFILES) (* ; "Want updating done after file is added to filelst, so any functions that are being dumped are marked as having been dumped.") (SETQ CHANGES (fetch TOBEDUMPED of FILEPROP)) (SETQ FILEDATES (LISTP (fetch FILEDATES of ROOTNAME))) (SETQ FILETYPE (GETPROP ROOTNAME 'FILETYPE)) LP0 (if (AND (NULL (fetch LOADTYPE of FILEPROP)) (NULL FILEDATES)) - then (* ; - "File has never been loaded and never dumped i.e. user just set up COMS in core") + then (* ; + "File has never been loaded and never dumped i.e. user just set up COMS in core") elseif [OR (EQMEMB 'NEW OPTIONS) (AND (NULL MAKEFILEREMAKEFLG) (NOT (MEMB 'REMAKE OPTIONS] @@ -499,14 +501,14 @@ with the terms of said license. T) (COND ((NEQ (ASKUSER DWIMWAIT 'Y "Go ahead and MAKEFILE anyway? ") - 'Y) (* ; - "E.g. user loads a .com file and then resets the COMS or defines the functons by hand.") + 'Y) (* ; + "E.g. user loads a .com file and then resets the COMS or defines the functons by hand.") (GO OUT))) (/replace LOADTYPE of FILEPROP with NIL))) (SETQ SOURCEFILE NIL) (SETQ REPRINTFNS NIL) elseif SOURCEFILE - then (* ; "source file given") + then (* ; "source file given") elseif [AND FILEDATES (OR [AND (SETQ SOURCEFILE (FINDFILE ROOTNAME T)) (EQUAL (FILEDATE SOURCEFILE) (fetch FILEDATE of (CAR FILEDATES] @@ -526,7 +528,7 @@ with the terms of said license. (fetch FILEDATE of (CADR FILEDATES] then - (* ;; "prevous version file is gone, drop back to original daddy file and dump everything that has been changed.") + (* ;; "prevous version file is gone, drop back to original daddy file and dump everything that has been changed.") (SETQ CHANGES (FILEPKG.MERGECHANGES (fetch TOBEDUMPED of FILEPROP) (fetch FILECHANGES of ROOTNAME))) @@ -544,8 +546,8 @@ with the terms of said license. (GO LP0)) (COND ((AND SOURCEFILE (SETQ Z (SELECTQ (fetch LOADTYPE of FILEPROP) - (LOADCOMP (* ; - "only loaded via LOADCOMP. Need to do LOADFROM") + (LOADCOMP (* ; + "only loaded via LOADCOMP. Need to do LOADFROM") (LIST 'N SOURCEFILE "was loaded with LOADCOMP" '- "LOADFROM it to obtain VARS/COMS")) (Compiled (AND (INFILECOMS? 'DONTCOPY 'DECLARE%: @@ -568,23 +570,23 @@ with the terms of said license. (A "bort MAKEFILE "] (Y (SELECTQ (fetch LOADTYPE of FILEPROP) - (LOADCOMP (* ; - "file was never actually loaded, just loadcomped. thus no filecoms") + (LOADCOMP (* ; + "file was never actually loaded, just loadcomped. thus no filecoms") (LOADFROM SOURCEFILE)) (Compiled - (* ;; "This is going to be a remake. If it was originally loaded as a compiled file, must first do a LOADFROM in order to get the properties set up by declare: etc.") + (* ;; "This is going to be a remake. If it was originally loaded as a compiled file, must first do a LOADFROM in order to get the properties set up by declare: etc.") (LOADVARS 'DONTCOPY SOURCEFILE) (/replace LOADTYPE of FILEPROP with 'COMPILED) - (* ; "So wont have to be done again.") + (* ; "So wont have to be done again.") - (* ;; "These are the only DECLARE:'s that are not also on the compiled file. Note that a DECLARE: DONTEVAL@LOAD will be found and evaluated, but the corresponding expressions won't be evaluated from within the DECLARE: Not worthwhile to bother setting up a complicated edit pattern to screen these out, especially if you consider expressions like (DECLARE: -- DONTEVAL@LOAD -- DOEVAL@LOAD --)") + (* ;; "These are the only DECLARE:'s that are not also on the compiled file. Note that a DECLARE: DONTEVAL@LOAD will be found and evaluated, but the corresponding expressions won't be evaluated from within the DECLARE: Not worthwhile to bother setting up a complicated edit pattern to screen these out, especially if you consider expressions like (DECLARE: -- DONTEVAL@LOAD -- DOEVAL@LOAD --)") ) ((loadfns compiled) - (* ;; "This is going to be a remake, but the original call to LOADFNS didnt specify all the VARS, so some expressions may not have been loaded.") + (* ;; "This is going to be a remake, but the original call to LOADFNS didnt specify all the VARS, so some expressions may not have been loaded.") (LOADVARS T SOURCEFILE)) NIL)) @@ -605,8 +607,8 @@ with the terms of said license. (MEMB 'CLISP (LISTP FILETYPE))) (RESETSAVE CLISPIFYPRETTYFLG 'CHANGES] (for X in MAKEFILEFORMS do (ERSETQ (EVAL X))) - (SETQ FILE (PRETTYDEF NIL FILE (fetch COMSNAME of FILEPROP) - REPRINTFNS SOURCEFILE CHANGES))) + [SETQ FILE (PRETTYDEF NIL FILE (fetch COMSNAME of FILEPROP) + REPRINTFNS SOURCEFILE CHANGES (CADR (ASSOC 'FORMAT OPTIONS]) (SETQ LASTFILE ROOTNAME) (/replace TOBEDUMPED of FILEPROP with NIL) (COND @@ -624,7 +626,10 @@ with the terms of said license. (LIST (AND (MEMB ROOTNAME NOTLISTEDFILES) (APPLY 'LISTFILES (LIST FILE)))) (COND - ((MEMB OPT MAKEFILEOPTIONS)) + ((MEMB (CL:IF (LISTP OPT) + (CAR OPT) + OPT) + MAKEFILEOPTIONS)) ((FIXSPELL OPT NIL MAKEFILEOPTIONS NIL OPTIONS) (GO $$LP)) @@ -946,8 +951,8 @@ compiling " T) (RPAQ? NILCOMS ) -(ADDTOVAR MAKEFILEOPTIONS RC C LIST FAST CLISP CLISPIFY NIL REMAKE NEW NOCLISP CLISP% F ST STF - (REC . RC) +(ADDTOVAR MAKEFILEOPTIONS RC C LIST FAST CLISP CLISPIFY NIL REMAKE NEW NOCLISP CLISP% F ST STF + FORMAT (REC . RC) (BREC . RC) (TC . C) (BC . C) @@ -1646,15 +1651,15 @@ compiling " T) (CL:VALUES]) (FILES?1 - [LAMBDA (TYPE FIRST) (* bvm%: "27-Oct-86 18:17") + [LAMBDA (TYPE FIRST) (* ; "Edited 13-Jun-2021 10:18 by rmk:") - (* ;; "If there are changed objects of TYPE, then print them out, preceded by FIRST (if given) plus a descriptive string, and return T.") + (* ;; "If there are changed objects of TYPE, then print them out, preceded by FIRST (if given) plus a descriptive string, and return T.") (LET (STR LST) (COND ([AND (LITATOM TYPE) - (SETQ STR (fetch DESCRIPTION of TYPE)) - (LISTP (SETQ LST (fetch CHANGED of TYPE] + (SETQ STR (fetch (FILEPKGTYPE DESCRIPTION) of TYPE)) + (LISTP (SETQ LST (fetch (FILEPKGTYPE CHANGED) of TYPE] (AND FIRST (LISPXPRIN1 FIRST T)) (LISPXPRIN1 '"the " T) (LISPXPRIN1 STR T) @@ -1680,7 +1685,7 @@ compiling " T) T]) (ADDTOFILES? - [LAMBDA (NOASKSTR) (* ; "Edited 10-Aug-2020 21:18 by rmk:") + [LAMBDA (NOASKSTR) (* ; "Edited 13-Jun-2021 10:22 by rmk:") (* ; "Edited 21-Aug-91 10:13 by jds") (* ;; "ask user about all of the things that need to be dumped, and distribute them to the files that he says") @@ -1720,7 +1725,7 @@ compiling " T) (SYSBUF) (SETQ BUFS (CLBUFS NIL T READBUF] [for TYPE STR LST in FILEPKGTYPES - when [AND (SETQ STR (fetch DESCRIPTION of TYPE)) + when [AND (SETQ STR (fetch (FILEPKGTYPE DESCRIPTION) of TYPE)) (LISTP (SETQ LST (COND ((EQ TYPE 'VARS) VARSCHANGES) @@ -1761,7 +1766,8 @@ compiling " T) (OR (ADDTOCOMS (SETQ COMSNAME (FILECOMS FILE)) NAME TYPE NEAR LISTNAME) (ADDNEWCOM COMSNAME NAME TYPE NIL FILE)) - (for F in (fetch WHENFILED of TYPE) + (for F in (fetch (FILEPKGTYPE WHENFILED) + of TYPE) do (APPLY* F NAME TYPE FILE)) (* ;; "This isn't factored to the end, cause ADDTOLISTNAME might have to deal with a set of old elements on the listname.") @@ -1783,7 +1789,8 @@ compiling " T) 'found) T T) (ERROR!))) - (for F in (fetch WHENFILED of TYPE) + (for F in (fetch (FILEPKGTYPE WHENFILED) + of TYPE) do (APPLY* F NAME TYPE FILE))) ([OR [UNDONLSETQ (PROGN (SAVESET (SETQ LISTNAME (CAR PLACE)) @@ -1804,7 +1811,8 @@ compiling " T) NAME TYPE NEAR LISTNAME] (PRIN1 " value is filed on " T) (PRINT FILE T T) - (for F in (fetch WHENFILED of TYPE) + (for F in (fetch (FILEPKGTYPE WHENFILED) + of TYPE) do (APPLY* F NAME TYPE FILE)) (* ;; "Only have to notice the single new item here, unlike the case in ADDNEWCOM below, cause other items on the list already belong and were previously noticed") @@ -1831,7 +1839,9 @@ compiling " T) (ADDNEWCOM (FILECOMS FILE) NAME TYPE (CAR PLACE) FILE) - (for F in (fetch WHENFILED of TYPE) + (for F in (fetch (FILEPKGTYPE + WHENFILED) + of TYPE) do (for I in (GETTOPVAL (CAR PLACE)) do (APPLY* F I TYPE FILE] (AND FILE (ADDFILE FILE)) @@ -2129,25 +2139,26 @@ compiling " T) (DEFAULTMAKENEWCOM NAME TYPE LISTNAME FILE]) (DEFAULTMAKENEWCOM - [LAMBDA (NAME TYPE LISTNAME FILE) (* lmm "20-OCT-82 22:48") + [LAMBDA (NAME TYPE LISTNAME FILE) (* ; "Edited 13-Jun-2021 10:24 by rmk:") (COND ((NOT (OR (FMEMB TYPE FILEPKGCOMSPLST) - (fetch MACRO of TYPE) - (fetch GETDEF of TYPE))) - (ERROR "no defined way to dump or obtain the definition of " (OR (fetch DESCRIPTION + (fetch (FILEPKGCOM MACRO) of TYPE) + (fetch (FILEPKGTYPE GETDEF) of TYPE))) + (ERROR "no defined way to dump or obtain the definition of " (OR (fetch (FILEPKGTYPE + DESCRIPTION) of TYPE) TYPE) T)) - ((NULL DEFAULTCOMHASFILEFLG) (* ; "disable FOOFNS FOOVARS junk") + ((NULL DEFAULTCOMHASFILEFLG) (* ; "disable FOOFNS FOOVARS junk") (LIST TYPE NAME)) - ((EQ FILE T) (* ; - "FILE=T only when called from SHOWDEF") + ((EQ FILE T) (* ; + "FILE=T only when called from SHOWDEF") (LIST TYPE NAME)) ([OR LISTNAME (AND FILE (SAVESET (SETQ LISTNAME (FILECOMS FILE TYPE)) (MERGEINSERT NAME (LISTP (GETTOPVAL LISTNAME)) T) T - 'NOPRINT] (* ; "The check (AND FILE --) is so that it will not bother with making listnames just for deleting items") + 'NOPRINT] (* ; "The check (AND FILE --) is so that it will not bother with making listnames just for deleting items") (LIST TYPE '* LISTNAME)) (T (LIST TYPE NAME]) ) @@ -4285,7 +4296,7 @@ compiling " T) (MARKASCHANGED COM 'FILEPKGCOMS]) (FILEPKGTYPE - [LAMBDA N (* lmm " 5-Jul-85 09:07") + [LAMBDA N (* ; "Edited 13-Jun-2021 10:20 by rmk:") (PROG ((TYPE (ARG N 1)) TEM) (RETURN (COND @@ -4303,7 +4314,8 @@ compiling " T) FILEPKGTYPEPROPS) then (GETPROP TYPE (ARG N 2)) else (SELECTQ (ARG N 2) - (DESCRIPTION (fetch DESCRIPTION of TYPE)) + (DESCRIPTION (fetch (FILEPKGTYPE DESCRIPTION) + of TYPE)) (TYPE [OR (AND (FMEMB TYPE (GETTOPVAL 'FILEPKGTYPES)) T) (CDR (ASSOC TYPE (GETTOPVAL 'FILEPKGTYPES]) @@ -4333,7 +4345,8 @@ compiling " T) TEM) else (/REMPROP TYPE (ARG N I))) else (SELECTQ (ARG N I) - (DESCRIPTION (/replace DESCRIPTION + (DESCRIPTION (/replace (FILEPKGTYPE + DESCRIPTION) of TYPE with TEM)) (ERROR (ARG N I) "not file package command/type property" @@ -4513,7 +4526,7 @@ compiling " T) (CAR X]) (EDITCALLERS - [LAMBDA (ATOMS FILES COMS) (* ; "Edited 8-Aug-2020 17:32 by rmk:") + [LAMBDA (ATOMS FILES COMS) (* ; "Edited 28-Jun-2021 09:50 by rmk:") (* bvm%: " 3-Nov-86 17:30") (LET (FFILEPOSPATTERNS FNS OTHERSFILES EDITPATTERN) @@ -4542,6 +4555,9 @@ compiling " T) (* ;; "Get reader environment of file. The call to GET-ENVIRONMENT-AND-FILEMAP with the filename will get cached info if it exists. Otherwise, read the top of the file") (SETQ RDTBL (AND ENV (fetch (READER-ENVIRONMENT REREADTABLE) of ENV))) + (CL:WHEN (AND ENV (FETCH (READER-ENVIRONMENT REFORMAT) OF ENV)) + (\EXTERNALFORMAT FILESTREAM (FETCH (READER-ENVIRONMENT REFORMAT) + OF ENV))) (SETQ CA (SEPRCASE DWIMIFYCOMPFLG RDTBL)) [OR (SETQ PATTERNS (CDR (ASSOC RDTBL FFILEPOSPATTERNS))) (push FFILEPOSPATTERNS @@ -4632,7 +4648,7 @@ compiling " T) (CONS OTHERSFILES FNS]) (EDITFROMFILE - [LAMBDA (FNS FILES EDITPATTERN EDITCOMS ONLYTYPES) (* rmk%: "14-Mar-85 21:51") + [LAMBDA (FNS FILES EDITPATTERN EDITCOMS ONLYTYPES) (* ; "Edited 13-Jun-2021 10:24 by rmk:") (RESETVARS [(EDITLOADFNSFLG (COND ((EQ EDITLOADFNSFLG T) '(T . NO)) @@ -4654,11 +4670,11 @@ compiling " T) (ONLYTYPES '(FNS)) (T - (* ;; "Move FNS to the front. This means that all the fns will be dwimified and edited before anything else (like a rename of fields) is done.") + (* ;; "Move FNS to the front. This means that all the fns will be dwimified and edited before anything else (like a rename of fields) is done.") (CONS 'FNS (REMOVE 'FNS FILEPKGTYPES] when (AND (LITATOM TYPE) - (NEQ (fetch EDITDEF of TYPE) + (NEQ (fetch (FILEPKGTYPE EDITDEF) of TYPE) 'NILL)) do (PROG (SEEN) @@ -4667,11 +4683,11 @@ compiling " T) (for NAME in [COND ((AND (EQ TYPE 'FNS) (NEQ FNS T)) - (* ; - "for this type, we are given the list of items") + (* ; + "for this type, we are given the list of items") (PROG1 FNS (SETQ FNS NIL))) - (T (* ; - "only want the values of `TYPE' which are not part of some other type") + (T (* ; + "only want the values of `TYPE' which are not part of some other type") (FILECOMSLST FILE TYPE 'EDIT] unless (MEMBER NAME SEEN) do @@ -4681,7 +4697,7 @@ compiling " T) (GETDEF NAME TYPE 'SAVED '(NOCOPY NOERROR] - (* ;; "If definition has been loaded, it may have been editted. Work on that explicitly instead of bringing in a file definition to smash the users previous changes. Perhaps we should query the user about this, but until the interaction is worked out, it is better to avoid trashing his in core edits, given that he can always get the file definition from permanent storage with LOADFNS. --- We might also be more discriminating about this: if the user specified a root file name, then he means the definition from the definition group, not the physical file. But ... rmk") + (* ;; "If definition has been loaded, it may have been editted. Work on that explicitly instead of bringing in a file definition to smash the users previous changes. Perhaps we should query the user about this, but until the interaction is worked out, it is better to avoid trashing his in core edits, given that he can always get the file definition from permanent storage with LOADFNS. --- We might also be more discriminating about this: if the user specified a root file name, then he means the definition from the definition group, not the physical file. But ... rmk") (COND ((OR (AND (EQ TYPE 'FNS) @@ -4691,7 +4707,8 @@ compiling " T) (COND ((NULL SEEN) (LISPXPRIN1 "editing the " T) - (LISPXPRIN1 (OR (fetch DESCRIPTION + (LISPXPRIN1 (OR (fetch (FILEPKGTYPE + DESCRIPTION) of TYPE) TYPE) T) @@ -4773,7 +4790,7 @@ compiling " T) (MOVD? 'INFILEP 'FINDFILE) - (* ; "or else from SPELLFILE") + (* ; "or else from SPELLFILE") (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY (BLOCK%: EDITFROMFILE EDITFROMFILE LOOKIN (GLOBALVARS EDITLOADFNSFLG) @@ -5020,46 +5037,46 @@ compiling " T) (PUTPROPS FILEPKG COPYRIGHT ("Venue & Xerox Corporation" T 1982 1983 1984 1985 1986 1987 1988 1989 1990 1991 1992 1993 1995 2018 2020 2021)) (DECLARE%: DONTCOPY - (FILEMAP (NIL (20677 22382 (SEARCHPRETTYTYPELST 20687 . 21666) (PRETTYDEFMACROS 21668 . 22126) ( -FILEPKGCOMPROPS 22128 . 22380)) (23184 57307 (CLEANUP 23194 . 24582) (COMPILEFILES 24584 . 24860) ( -COMPILEFILES0 24862 . 25582) (CONTINUEDIT 25584 . 27004) (MAKEFILE 27006 . 38648) (FILECHANGES 38650 - . 40985) (FILEPKG.MERGECHANGES 40987 . 41810) (FILEPKG.CHANGEDFNS 41812 . 42124) (MAKEFILE1 42126 . -46353) (COMPILE-FILE? 46355 . 47912) (MAKEFILES 47914 . 49607) (ADDFILE 49609 . 52130) (ADDFILE0 52132 - . 56268) (LISTFILES 56270 . 57305)) (57995 93235 (FILEPKGCHANGES 58005 . 59355) (GETFILEPKGTYPE 59357 - . 62430) (MARKASCHANGED 62432 . 64069) (FILECOMS 64071 . 64455) (WHEREIS 64457 . 65877) ( -SMASHFILECOMS 65879 . 66114) (FILEFNSLST 66116 . 66278) (FILECOMSLST 66280 . 66764) (UPDATEFILES 66766 - . 72066) (INFILECOMS? 72068 . 73971) (INFILECOMTAIL 73973 . 75113) (INFILECOMS 75115 . 75276) ( -INFILECOM 75278 . 85487) (INFILECOMSVALS 85489 . 85816) (INFILECOMSVAL 85818 . 86820) (INFILECOMSPROP -86822 . 87651) (IFCPROPS 87653 . 88914) (IFCEXPRTYPE 88916 . 89427) (IFCPROPSCAN 89429 . 90482) ( -IFCDECLARE 90484 . 91795) (INFILEPAIRS 91797 . 92129) (INFILECOMSMACRO 92131 . 93233)) (93270 124046 ( -FILES? 93280 . 95473) (FILES?1 95475 . 96125) (FILES?PRINTLST 96127 . 96909) (ADDTOFILES? 96911 . -107513) (ADDTOFILE 107515 . 108431) (WHATIS 108433 . 110409) (ADDTOCOMS 110411 . 112055) (ADDTOCOM -112057 . 118604) (ADDTOCOM1 118606 . 119777) (ADDNEWCOM 119779 . 120829) (MAKENEWCOM 120831 . 122674) -(DEFAULTMAKENEWCOM 122676 . 124044)) (124116 126933 (MERGEINSERT 124126 . 126469) (MERGEINSERT1 126471 - . 126931)) (127087 128444 (ADDTOFILEKEYLST 127097 . 128442)) (128561 139473 (DELFROMFILES 128571 . -129421) (DELFROMCOMS 129423 . 131102) (DELFROMCOM 131104 . 136972) (DELFROMCOM1 136974 . 137771) ( -REMOVEITEM 137773 . 138647) (MOVETOFILE 138649 . 139471)) (139687 142056 (SAVEPUT 139697 . 142054)) ( -142181 150505 (UNMARKASCHANGED 142191 . 143899) (PREEDITFN 143901 . 146412) (POSTEDITPROPS 146414 . -148915) (POSTEDITALISTS 148917 . 150503)) (150654 171208 (ALISTS.GETDEF 150664 . 151043) ( -ALISTS.WHENCHANGED 151045 . 151689) (CLEARCLISPARRAY 151691 . 152865) (EXPRESSIONS.WHENCHANGED 152867 - . 153241) (MAKEALISTCOMS 153243 . 154316) (MAKEFILESCOMS 154318 . 155755) (MAKELISPXMACROSCOMS 155757 - . 157775) (MAKEPROPSCOMS 157777 . 158475) (MAKEUSERMACROSCOMS 158477 . 160277) (PROPS.WHENCHANGED -160279 . 160900) (FILEGETDEF.LISPXMACROS 160902 . 162344) (FILEGETDEF.ALISTS 162346 . 162965) ( -FILEGETDEF.RECORDS 162967 . 163898) (FILEGETDEF.PROPS 163900 . 164692) (FILEGETDEF.MACROS 164694 . -165754) (FILEGETDEF.VARS 165756 . 166172) (FILEGETDEF.FNS 166174 . 167538) (FILEPKGCOMS.PUTDEF 167540 - . 169980) (FILES.PUTDEF 169982 . 170939) (VARS.PUTDEF 170941 . 171084) (FILES.WHENCHANGED 171086 . -171206)) (173230 180663 (RENAME 173240 . 174641) (CHANGECALLERS 174643 . 180661)) (180664 228612 ( -SHOWDEF 180674 . 181467) (COPYDEF 181469 . 183943) (GETDEF 183945 . 186221) (GETDEFCOM 186223 . 187189 -) (GETDEFCOM0 187191 . 188537) (GETDEFCURRENT 188539 . 194959) (GETDEFERR 194961 . 196262) ( -GETDEFFROMFILE 196264 . 200544) (GETDEFSAVED 200546 . 201650) (PUTDEF 201652 . 202355) (EDITDEF 202357 - . 203334) (DEFAULT.EDITDEF 203336 . 206172) (EDITDEF.FILES 206174 . 206375) (LOADDEF 206377 . 206553) - (DWIMDEF 206555 . 207409) (DELDEF 207411 . 210425) (DELFROMLIST 210427 . 210931) (HASDEF 210933 . -217255) (GETFILEDEF 217257 . 217779) (SAVEDEF 217781 . 219440) (UNSAVEDEF 219442 . 220338) ( -COMPAREDEFS 220340 . 223642) (COMPARE 223644 . 224348) (TYPESOF 224350 . 228610)) (228679 233722 ( -FIXEDITDATE 228689 . 232192) (EDITDATE? 232194 . 233720)) (234141 242727 (FILEPKGCOM 234151 . 239084) -(FILEPKGTYPE 239086 . 242725)) (254764 269316 (FINDCALLERS 254774 . 255289) (EDITCALLERS 255291 . -262949) (EDITFROMFILE 262951 . 268631) (FINDATS 268633 . 268905) (LOOKIN 268907 . 269314)) (269317 -271044 (SEPRCASE 269327 . 271042)) (271561 277103 (IMPORTFILE 271571 . 272545) (IMPORTEVAL 272547 . -273427) (IMPORTFILESCAN 273429 . 273850) (CHECKIMPORTS 273852 . 275188) (GATHEREXPORTS 275190 . 276513 -) (\DUMPEXPORTS 276515 . 277101)) (277441 279649 (CLEARFILEPKG 277451 . 279647))))) + (FILEMAP (NIL (20669 22374 (SEARCHPRETTYTYPELST 20679 . 21658) (PRETTYDEFMACROS 21660 . 22118) ( +FILEPKGCOMPROPS 22120 . 22372)) (23176 57665 (CLEANUP 23186 . 24574) (COMPILEFILES 24576 . 24852) ( +COMPILEFILES0 24854 . 25574) (CONTINUEDIT 25576 . 26996) (MAKEFILE 26998 . 39006) (FILECHANGES 39008 + . 41343) (FILEPKG.MERGECHANGES 41345 . 42168) (FILEPKG.CHANGEDFNS 42170 . 42482) (MAKEFILE1 42484 . +46711) (COMPILE-FILE? 46713 . 48270) (MAKEFILES 48272 . 49965) (ADDFILE 49967 . 52488) (ADDFILE0 52490 + . 56626) (LISTFILES 56628 . 57663)) (58361 93601 (FILEPKGCHANGES 58371 . 59721) (GETFILEPKGTYPE 59723 + . 62796) (MARKASCHANGED 62798 . 64435) (FILECOMS 64437 . 64821) (WHEREIS 64823 . 66243) ( +SMASHFILECOMS 66245 . 66480) (FILEFNSLST 66482 . 66644) (FILECOMSLST 66646 . 67130) (UPDATEFILES 67132 + . 72432) (INFILECOMS? 72434 . 74337) (INFILECOMTAIL 74339 . 75479) (INFILECOMS 75481 . 75642) ( +INFILECOM 75644 . 85853) (INFILECOMSVALS 85855 . 86182) (INFILECOMSVAL 86184 . 87186) (INFILECOMSPROP +87188 . 88017) (IFCPROPS 88019 . 89280) (IFCEXPRTYPE 89282 . 89793) (IFCPROPSCAN 89795 . 90848) ( +IFCDECLARE 90850 . 92161) (INFILEPAIRS 92163 . 92495) (INFILECOMSMACRO 92497 . 93599)) (93636 125056 ( +FILES? 93646 . 95839) (FILES?1 95841 . 96539) (FILES?PRINTLST 96541 . 97323) (ADDTOFILES? 97325 . +108371) (ADDTOFILE 108373 . 109289) (WHATIS 109291 . 111267) (ADDTOCOMS 111269 . 112913) (ADDTOCOM +112915 . 119462) (ADDTOCOM1 119464 . 120635) (ADDNEWCOM 120637 . 121687) (MAKENEWCOM 121689 . 123532) +(DEFAULTMAKENEWCOM 123534 . 125054)) (125126 127943 (MERGEINSERT 125136 . 127479) (MERGEINSERT1 127481 + . 127941)) (128097 129454 (ADDTOFILEKEYLST 128107 . 129452)) (129571 140483 (DELFROMFILES 129581 . +130431) (DELFROMCOMS 130433 . 132112) (DELFROMCOM 132114 . 137982) (DELFROMCOM1 137984 . 138781) ( +REMOVEITEM 138783 . 139657) (MOVETOFILE 139659 . 140481)) (140697 143066 (SAVEPUT 140707 . 143064)) ( +143191 151515 (UNMARKASCHANGED 143201 . 144909) (PREEDITFN 144911 . 147422) (POSTEDITPROPS 147424 . +149925) (POSTEDITALISTS 149927 . 151513)) (151664 172218 (ALISTS.GETDEF 151674 . 152053) ( +ALISTS.WHENCHANGED 152055 . 152699) (CLEARCLISPARRAY 152701 . 153875) (EXPRESSIONS.WHENCHANGED 153877 + . 154251) (MAKEALISTCOMS 154253 . 155326) (MAKEFILESCOMS 155328 . 156765) (MAKELISPXMACROSCOMS 156767 + . 158785) (MAKEPROPSCOMS 158787 . 159485) (MAKEUSERMACROSCOMS 159487 . 161287) (PROPS.WHENCHANGED +161289 . 161910) (FILEGETDEF.LISPXMACROS 161912 . 163354) (FILEGETDEF.ALISTS 163356 . 163975) ( +FILEGETDEF.RECORDS 163977 . 164908) (FILEGETDEF.PROPS 164910 . 165702) (FILEGETDEF.MACROS 165704 . +166764) (FILEGETDEF.VARS 166766 . 167182) (FILEGETDEF.FNS 167184 . 168548) (FILEPKGCOMS.PUTDEF 168550 + . 170990) (FILES.PUTDEF 170992 . 171949) (VARS.PUTDEF 171951 . 172094) (FILES.WHENCHANGED 172096 . +172216)) (174240 181673 (RENAME 174250 . 175651) (CHANGECALLERS 175653 . 181671)) (181674 229622 ( +SHOWDEF 181684 . 182477) (COPYDEF 182479 . 184953) (GETDEF 184955 . 187231) (GETDEFCOM 187233 . 188199 +) (GETDEFCOM0 188201 . 189547) (GETDEFCURRENT 189549 . 195969) (GETDEFERR 195971 . 197272) ( +GETDEFFROMFILE 197274 . 201554) (GETDEFSAVED 201556 . 202660) (PUTDEF 202662 . 203365) (EDITDEF 203367 + . 204344) (DEFAULT.EDITDEF 204346 . 207182) (EDITDEF.FILES 207184 . 207385) (LOADDEF 207387 . 207563) + (DWIMDEF 207565 . 208419) (DELDEF 208421 . 211435) (DELFROMLIST 211437 . 211941) (HASDEF 211943 . +218265) (GETFILEDEF 218267 . 218789) (SAVEDEF 218791 . 220450) (UNSAVEDEF 220452 . 221348) ( +COMPAREDEFS 221350 . 224652) (COMPARE 224654 . 225358) (TYPESOF 225360 . 229620)) (229689 234732 ( +FIXEDITDATE 229699 . 233202) (EDITDATE? 233204 . 234730)) (235151 243922 (FILEPKGCOM 235161 . 240094) +(FILEPKGTYPE 240096 . 243920)) (255959 270891 (FINDCALLERS 255969 . 256484) (EDITCALLERS 256486 . +264396) (EDITFROMFILE 264398 . 270206) (FINDATS 270208 . 270480) (LOOKIN 270482 . 270889)) (270892 +272619 (SEPRCASE 270902 . 272617)) (273136 278678 (IMPORTFILE 273146 . 274120) (IMPORTEVAL 274122 . +275002) (IMPORTFILESCAN 275004 . 275425) (CHECKIMPORTS 275427 . 276763) (GATHEREXPORTS 276765 . 278088 +) (\DUMPEXPORTS 278090 . 278676)) (279016 281224 (CLEARFILEPKG 279026 . 281222))))) STOP diff --git a/sources/FILEPKG.LCOM b/sources/FILEPKG.LCOM index 9d08805a7..615b4aae3 100644 Binary files a/sources/FILEPKG.LCOM and b/sources/FILEPKG.LCOM differ diff --git a/sources/FILESETS b/sources/FILESETS index 0130c5597..35480331d 100644 --- a/sources/FILESETS +++ b/sources/FILESETS @@ -1,9 +1,11 @@ (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) -(FILECREATED " 6-Mar-2021 20:01:54" {DSK}larry>ilisp>medley>sources>FILESETS.;5 6224 +(FILECREATED "25-Jun-2021 10:21:40"  +{DSK}kaplan>Local>medley3.5>git-medley>sources>FILESETS.;6 6395 - changes to%: (VARS EXPORTFILES) + changes to%: (VARS 0LISPSET) - previous date%: " 6-Mar-2021 16:22:11" {DSK}larry>ilisp>medley>sources>FILESETS.;4) + previous date%: "19-Jun-2021 12:13:31" +{DSK}kaplan>Local>medley3.5>git-medley>sources>FILESETS.;5) (* ; " @@ -12,18 +14,21 @@ Copyright (c) 1981-1990, 1998, 2021 by Xerox Corporation. (PRETTYCOMPRINT FILESETSCOMS) -(RPAQQ FILESETSCOMS ( +(RPAQQ FILESETSCOMS + ( -(* ;;; "contains all of the lists of files which are used in various ways") +(* ;;; "contains all of the lists of files which are used in various ways") - - (* ;; "I took out the EXPORT of the filesets because it led to inconsistency when one had loaded ABC. -- Pavel") + + (* ;; "I took out the EXPORT of the filesets because it led to inconsistency when one had loaded ABC. -- Pavel") - (VARS * FILESETS) - (VARS EXPORTFILES) - (VARS MAKEINITFILES MAKEINITTYPES RENAMETYPES ABCFILES READSYSFILES - DATABASEFILES) - (VARS DEADFNS))) + + (* ;; "The file with the default EXTERNALFORMAT should come right after FILEIO, and particularly before ATERM.") + + (VARS * FILESETS) + (VARS EXPORTFILES) + (VARS MAKEINITFILES MAKEINITTYPES RENAMETYPES ABCFILES READSYSFILES DATABASEFILES) + (VARS DEADFNS))) @@ -37,11 +42,18 @@ Copyright (c) 1981-1990, 1998, 2021 by Xerox Corporation. ) + + +(* ;; +"The file with the default EXTERNALFORMAT should come right after FILEIO, and particularly before ATERM." +) + + (RPAQQ FILESETS (0LISPSET 1LISPSET 2LISPSET 3LISPSET)) (RPAQQ 0LISPSET (PACKAGE-CONVERSION-TABLE LLFAULT LLSUBRS LLBFS LLNEW FILEIO IMAGEIO LLBASIC LLGC LLARRAYELT LLINTERP LLMVS DEFSTRUCT-RUN-TIME SETF-RUNTIME CMLSEQBASICS - LLARITH LLFLOAT LLBIGNUM LLREAD LLCHAR LLSTK LLDATATYPE IOCHAR LLKEY + LLARITH LLFLOAT LLBIGNUM LLREAD XCCS LLCHAR LLSTK LLDATATYPE IOCHAR LLKEY LLTIMER)) (RPAQQ 1LISPSET @@ -58,8 +70,8 @@ Copyright (c) 1981-1990, 1998, 2021 by Xerox Corporation. (RPAQQ EXPORTFILES (MODARITH LLPARAMS LLCODE AERROR AOFD APRINT ATERM LLARRAYELT LLDATATYPE LLNEW LLBASIC LLCHAR LLSTK PMAP LLGC ATBL FILEIO LLARITH LLFLOAT FONT LLKEY LLDISPLAY ADISPLAY AINTERRUPT - RENAMEMACROS HLDISPLAY WINDOW MACROAUX ADDARITH LLFAULT LLTIMER IMAGEIO PROC LLREAD - PASSWORDS INTERPRESS HARDCOPY CMLARRAY LLSUBRS)) + RENAMEMACROS HLDISPLAY WINDOW MACROAUX ADDARITH LLFAULT LLTIMER IMAGEIO PROC XCCS + LLREAD PASSWORDS INTERPRESS HARDCOPY CMLARRAY LLSUBRS)) (RPAQQ MAKEINITFILES (MAKEINIT MEM I-NEW)) @@ -102,7 +114,7 @@ Copyright (c) 1981-1990, 1998, 2021 by Xerox Corporation. (COMSNAME . RDCOMS) (EXTRACOMS - (* ;; "YOU MUST REMAKE THIS FILE using (DORENAME 'R) (after CONNing to library) whenever the SYSOUT layout changes in LLPARAMS (e.g., if MDSTypeTable moves)") + (* ;; "YOU MUST REMAKE THIS FILE using (DORENAME 'R) (after CONNing to library) whenever the SYSOUT layout changes in LLPARAMS (e.g., if MDSTypeTable moves)") (FILES VMEM) (VARS RDVALS RDPTRS) diff --git a/sources/HARDCOPY b/sources/HARDCOPY index 8acc4ed7b..9d9c7909e 100644 --- a/sources/HARDCOPY +++ b/sources/HARDCOPY @@ -1,16 +1,15 @@ (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) -(FILECREATED "16-Apr-2018 22:15:08"  -{DSK}kaplan>Local>medley3.5>lispcore>sources>HARDCOPY.;6 104175 +(FILECREATED " 5-May-2021 19:41:55"  +{DSK}kaplan>Local>medley3.5>git-medley2>sources>HARDCOPY.;9 103663 - changes to%: (VARS HARDCOPYCOMS) - (FNS PRINTERS.WHENSELECTEDFN PopUpWindowAndGetList) + changes to%: (FNS COPY.TEXT.TO.IMAGE) - previous date%: "28-Jun-99 16:36:33" -{DSK}kaplan>Local>medley3.5>lispcore>sources>HARDCOPY.;4) + previous date%: "16-Apr-2018 22:15:08" +{DSK}kaplan>Local>medley3.5>git-medley2>sources>HARDCOPY.;8) (* ; " -Copyright (c) 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1999, 2018 by Venue & Xerox Corporation. All rights reserved. +Copyright (c) 1984-1993, 1999, 2018, 2021 by Venue & Xerox Corporation. ") (PRETTYCOMPRINT HARDCOPYCOMS) @@ -720,7 +719,7 @@ Copyright (c) 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1999, (CLOSEF IMAGESTREAM])]) (COPY.TEXT.TO.IMAGE - [LAMBDA (INFILE IMAGESTREAM FONTS TABS) (* ; "Edited 8-Feb-96 12:06 by rmk") + [LAMBDA (INFILE IMAGESTREAM FONTS TABS) (* ; "Edited 5-May-2021 19:41 by rmk:") (* ; "Edited 10-Apr-95 21:23 by rmk:") (* ;; "Copy text to an image stream, obeying PSPOOL control characters") @@ -733,95 +732,92 @@ Copyright (c) 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1999, (INSTRM (GETSTREAM INFILE 'INPUT)) DEFAULTTAB C FC) (replace (STREAM ENDOFSTREAMOP) of INSTRM with (FUNCTION ZERO)) - (bind (SHIFTEDCHARSET _ (UNFOLD (ACCESS-CHARSET INSTRM) - 256)) - do - (COND - ((AND [EQ 0 (LOGAND 255 (SETQ C (\NSIN INSTRM SHIFTEDCHARSET SHIFTEDCHARSET] - (EOFP INSTRM)) - (RETURN)) - ((AND RIGHTMAR (> (DSPXPOSITION NIL IMAGESTREAM) - RIGHTMAR)) (* ; + (do + (COND + ((AND [EQ 0 (LOGAND 255 (SETQ C (\INCCODE INSTRM] + (EOFP INSTRM)) + (RETURN)) + ((AND RIGHTMAR (> (DSPXPOSITION NIL IMAGESTREAM) + RIGHTMAR)) (* ;  "Not to walk off the right edge of the paper") - (TERPRI IMAGESTREAM))) - (COND - ([> C (CONSTANT (APPLY (FUNCTION MAX) - (CHARCODE (^F CR LF ^L TAB NULL] - (\OUTCHAR IMAGESTREAM C)) - (T - (SELCHARQ C - (^F (* ; "Font shift") - - (* ;; - "For FX-XP-9 printer:SETXY interpress command to avoid printer's BUG(Take)") - - (DSPXPOSITION (IPLUS (DSPXPOSITION NIL IMAGESTREAM) - 1) - IMAGESTREAM) - [SELCHARQ (SETQ FC (\NSIN INSTRM SHIFTEDCHARSET SHIFTEDCHARSET)) - (^T (* ; "tab to absolute pos.") - (COND - ((EQ 0 (SETQ FC (\NSIN INSTRM SHIFTEDCHARSET SHIFTEDCHARSET))) - (\OUTCHAR IMAGESTREAM (CHARCODE ^F)) - (\OUTCHAR IMAGESTREAM (CHARCODE ^T)) - (AND (\EOFP INSTRM) - (RETURN)) - (\OUTCHAR IMAGESTREAM FC)) - (T + (TERPRI IMAGESTREAM))) + (COND + ([> C (CONSTANT (APPLY (FUNCTION MAX) + (CHARCODE (^F CR LF ^L TAB NULL] + (\OUTCHAR IMAGESTREAM C)) + (T + (SELCHARQ C + (^F (* ; "Font shift") + + (* ;; + "For FX-XP-9 printer:SETXY interpress command to avoid printer's BUG(Take)") + + (DSPXPOSITION (IPLUS (DSPXPOSITION NIL IMAGESTREAM) + 1) + IMAGESTREAM) + [SELCHARQ (SETQ FC (\INCCODE INSTRM)) + (^T (* ; "tab to absolute pos.") + (COND + ((EQ 0 (SETQ FC (\INCCODE INSTRM))) + (\OUTCHAR IMAGESTREAM (CHARCODE ^F)) + (\OUTCHAR IMAGESTREAM (CHARCODE ^T)) + (AND (\EOFP INSTRM) + (RETURN)) + (\OUTCHAR IMAGESTREAM FC)) + (T (* ;; "TEXTDEFAULTTABS is a hack, since it depends on the units of the stream. Should really be a property of the stream or imagetype, or defined in terms of standard scale") - [SETQ FC - (IF TABS - THEN (OR (CAR (NTH TABS FC)) - (ERROR "Undefined absolute tab number" FC)) - ELSE (TIMES FC - (OR DEFAULTTAB - (SETQ DEFAULTTAB - (TIMES 8 - (CHARWIDTH (CHARCODE SPACE) + [SETQ FC + (IF TABS + THEN (OR (CAR (NTH TABS FC)) + (ERROR "Undefined absolute tab number" FC)) + ELSE (TIMES FC + (OR DEFAULTTAB + (SETQ DEFAULTTAB + (TIMES 8 (CHARWIDTH (CHARCODE SPACE) (FONTCREATE (ELT FONTARRAY 1) NIL NIL NIL IMAGESTREAM] - (DSPXPOSITION FC IMAGESTREAM)))) - (NULL (\OUTCHAR IMAGESTREAM (CHARCODE ^F)) - (AND (\EOFP INSTRM) - (RETURN)) - (\OUTCHAR IMAGESTREAM FC) (* ; "EOS after ^F") - ) - (COND - ((AND (>= MAXFONT FC) - (NEQ FC 0)) - (DSPFONT (ELT FONTARRAY FC) - IMAGESTREAM)) - (T (\OUTCHAR IMAGESTREAM (CHARCODE ^F)) - (\OUTCHAR IMAGESTREAM C]) - (CR - (* ;; "Assumes that CR and possibly following LF denote a single EOL, independent of the EOL convention and independent of whether the file was opened binary or text. Originally, this function tried to discriminate, treating an LF in a CR-mode file as a line-feed and a CR in an LF file as a carriage-return. But these formatting effects cannot be guaranteed across text-file transfers (which is all that it makes sense to print), so it is silly to take them seriously. Given that just this information can be lost in text-mode file transfers, we make adopt here the 99%% correct solution, which is to treat all instances of CR, CRLF, and LF as end-of-line.") - - (TERPRI IMAGESTREAM) - (COND - ((EQ (CHARCODE LF) - (\PEEKBIN INSTRM T)) - (BIN INSTRM)))) - (TAB (OR (LET* [(LEFTMARGIN (DSPLEFTMARGIN NIL IMAGESTREAM)) - (TAB.WIDTH (TIMES (CHARWIDTH (CHARCODE SPACE) - IMAGESTREAM) - 8)) - (CURRENT.X (- (DSPXPOSITION NIL IMAGESTREAM) - LEFTMARGIN)) - (CURRENT.STOP (- CURRENT.X (REMAINDER CURRENT.X TAB.WIDTH] - (NLSETQ (RELMOVETO (- (+ CURRENT.STOP TAB.WIDTH) - CURRENT.X) - 0 IMAGESTREAM))) - (\OUTCHAR IMAGESTREAM C))) - (LF (* ; "See comment at CR") - (TERPRI IMAGESTREAM)) - (NULL (AND (EOFP INSTRM) - (RETURN)) - (\OUTCHAR IMAGESTREAM C)) - (\OUTCHAR IMAGESTREAM C]) + (DSPXPOSITION FC IMAGESTREAM)))) + (NULL (\OUTCHAR IMAGESTREAM (CHARCODE ^F)) + (AND (\EOFP INSTRM) + (RETURN)) + (\OUTCHAR IMAGESTREAM FC) (* ; "EOS after ^F") + ) + (COND + ((AND (>= MAXFONT FC) + (NEQ FC 0)) + (DSPFONT (ELT FONTARRAY FC) + IMAGESTREAM)) + (T (\OUTCHAR IMAGESTREAM (CHARCODE ^F)) + (\OUTCHAR IMAGESTREAM C]) + (CR + (* ;; "Assumes that CR and possibly following LF denote a single EOL, independent of the EOL convention and independent of whether the file was opened binary or text. Originally, this function tried to discriminate, treating an LF in a CR-mode file as a line-feed and a CR in an LF file as a carriage-return. But these formatting effects cannot be guaranteed across text-file transfers (which is all that it makes sense to print), so it is silly to take them seriously. Given that just this information can be lost in text-mode file transfers, we make adopt here the 99%% correct solution, which is to treat all instances of CR, CRLF, and LF as end-of-line.") + + (TERPRI IMAGESTREAM) + (COND + ((EQ (CHARCODE LF) + (\PEEKBIN INSTRM T)) + (BIN INSTRM)))) + (TAB (OR (LET* [(LEFTMARGIN (DSPLEFTMARGIN NIL IMAGESTREAM)) + (TAB.WIDTH (TIMES (CHARWIDTH (CHARCODE SPACE) + IMAGESTREAM) + 8)) + (CURRENT.X (- (DSPXPOSITION NIL IMAGESTREAM) + LEFTMARGIN)) + (CURRENT.STOP (- CURRENT.X (REMAINDER CURRENT.X TAB.WIDTH] + (NLSETQ (RELMOVETO (- (+ CURRENT.STOP TAB.WIDTH) + CURRENT.X) + 0 IMAGESTREAM))) + (\OUTCHAR IMAGESTREAM C))) + (LF (* ; "See comment at CR") + (TERPRI IMAGESTREAM)) + (NULL (AND (EOFP INSTRM) + (RETURN)) + (\OUTCHAR IMAGESTREAM C)) + (\OUTCHAR IMAGESTREAM C]) ) (DEFINEQ @@ -1087,41 +1083,41 @@ Copyright (c) 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1999, (ADDTOVAR LAMA ) ) (PUTPROPS HARDCOPY COPYRIGHT ("Venue & Xerox Corporation" 1984 1985 1986 1987 1988 1989 1990 1991 1992 - 1993 1999 2018)) + 1993 1999 2018 2021)) (DECLARE%: DONTCOPY - (FILEMAP (NIL (6265 10449 (HARDCOPY.SOMEHOW 6275 . 7633) (HARDCOPYIMAGEW 7635 . 7787) ( -HARDCOPYIMAGEW.TOFILE 7789 . 8097) (HARDCOPYIMAGEW.TOPRINTER 8099 . 8764) (HARDCOPYREGION.TOFILE 8766 - . 9064) (HARDCOPYREGION.TOPRINTER 9066 . 9688) (COPY.WINDOW.TO.BITMAP 9690 . 10447)) (10521 21071 ( -MakeMenuOfPrinters 10531 . 11756) (PRINTERS.WHENSELECTEDFN 11758 . 13500) (MakeMenuOfImageTypes 13502 - . 14020) (GetNewPrinterFromUser 14022 . 14450) (PopUpWindowAndGetAtom 14452 . 15837) ( -PopUpWindowAndGetList 15839 . 17405) (NewPrinter 17407 . 18355) (GetPrinterName 18357 . 18637) ( -GetImageFile 18639 . 20926) (FetchDefaultPrinter 20928 . 21069)) (21106 21644 ( -ExtensionForPrintFileType 21116 . 21309) (PRINTFILETYPE.FROM.EXTENSION 21311 . 21642)) (21699 38083 ( -DEFAULTPRINTER 21709 . 21869) (CAN.PRINT.DIRECTLY 21871 . 22027) (CONVERT.FILE.TO.TYPE.FOR.PRINTER -22029 . 23073) (EMPRESS 23075 . 23388) (HARDCOPYW 23390 . 26350) (LISTFILES1 26352 . 26525) ( -PRINTER.BITMAPFILE 26527 . 26774) (PRINTER.BITMAPSCALE 26776 . 27041) (PRINTER.SCRATCH.FILE 27043 . -27166) (PRINTERPROP 27168 . 27351) (PRINTERSTATUS 27353 . 27542) (PRINTERTYPE 27544 . 29853) ( -PRINTERNAME 29855 . 30157) (PRINTFILEPROP 30159 . 30350) (PRINTFILETYPE 30352 . 32296) ( -\EXPECTED.FILE.TYPE 32298 . 33080) (SEND.FILE.TO.PRINTER 33082 . 38081)) (38084 43066 (PRINTERDEVICE -38094 . 43064)) (43849 52443 (TEXTTOIMAGEFILE 43859 . 46049) (COPY.TEXT.TO.IMAGE 46051 . 52441)) ( -52444 53579 (\BLTSHADE.GENERICPRINTER 52454 . 53577)) (53707 72459 (MAKEHARDCOPYSTREAM 53717 . 54721) -(UNMAKEHARDCOPYSTREAM 54723 . 55407) (HARDCOPYSTREAMTYPE 55409 . 55688) (\CHARWIDTH.HDCPYDISPLAY 55690 - . 56121) (\DSPFONT.HDCPYDISPLAY 56123 . 57528) (\DSPRIGHTMARGIN.HDCPYDISPLAY 57530 . 58107) ( -\DSPXPOSITION.HDCPYDISPLAY 58109 . 58370) (\DSPYPOSITION.HDCPYDISPLAY 58372 . 58633) ( -\STRINGWIDTH.HDCPYDISPLAY 58635 . 59142) (\STRINGWIDTH.HCPYDISPLAYAUX 59144 . 61476) (\HDCPYBLTCHAR -61478 . 64013) (\HDCPYDISPLAY.FIX.XPOS 64015 . 64435) (\HDCPYDISPLAY.FIX.YPOS 64437 . 64857) ( -\HDCPYDISPLAYINIT 64859 . 65636) (\HDCPYDSPPRINTCHAR 65638 . 67798) (\SLOWHDCPYBLTCHAR 67800 . 71303) -(\CHANGECHARSET.HDCPYDISPLAY 71305 . 72457)) (73181 103478 (MAKEHARDCOPYMODESTREAM 73191 . 75100) ( -UNMAKEHARDCOPYMODESTREAM 75102 . 76180) (\BLTSHADE.HCPYMODE 76182 . 76629) (\BITBLT.HCPYMODE 76631 . -77253) (\BRUSHCONVERT.HCPYMODE 77255 . 77492) (\CHANGECHARSET.HCPYMODE 77494 . 79261) ( -\DASHINGCONVERT.HCPYMODE 79263 . 79526) (\CHARWIDTH.HCPYMODE 79528 . 79815) (\DRAWLINE.HCPYMODE 79817 - . 80129) (\DRAWCURVE.HCPYMODE 80131 . 80560) (\DRAWCIRCLE.HCPYMODE 80562 . 80957) ( -\DRAWELLIPSE.HCPYMODE 80959 . 81471) (\DSPFONT.HCPYMODE 81473 . 82629) (\DSPLEFTMARGIN.HCPYMODE 82631 - . 83215) (\DSPLINEFEED.HCPYMODE 83217 . 83627) (\DSPRIGHTMARGIN.HCPYMODE 83629 . 84258) ( -\DSPSPACEFACTOR.HCPYMODE 84260 . 84781) (\DSPXPOSITION.HCPYMODE 84783 . 85364) (\DSPYPOSITION.HCPYMODE - 85366 . 85771) (\MOVETO.HCPYMODE 85773 . 85925) (\FONTCREATE.HCPYMODE.PRESS 85927 . 86939) ( -\CREATECHARSET.HCPYMODE.PRESS 86941 . 87912) (\FONTCREATE.HCPYMODE.INTERPRESS 87914 . 88948) ( -\CREATECHARSET.HCPYMODE.INTERPRESS 88950 . 89938) (\STRINGWIDTH.HCPYMODE 89940 . 90374) ( -\HCPYMODEBLTCHAR 90376 . 93345) (\HCPYMODEDISPLAYINIT 93347 . 96278) (\HCPYMODEDSPPRINTCHAR 96280 . -98461) (\SLOWHCPYMODEBLTCHAR 98463 . 101977) (\SFFixY.HCPYMODE 101979 . 103476))))) + (FILEMAP (NIL (6141 10325 (HARDCOPY.SOMEHOW 6151 . 7509) (HARDCOPYIMAGEW 7511 . 7663) ( +HARDCOPYIMAGEW.TOFILE 7665 . 7973) (HARDCOPYIMAGEW.TOPRINTER 7975 . 8640) (HARDCOPYREGION.TOFILE 8642 + . 8940) (HARDCOPYREGION.TOPRINTER 8942 . 9564) (COPY.WINDOW.TO.BITMAP 9566 . 10323)) (10397 20947 ( +MakeMenuOfPrinters 10407 . 11632) (PRINTERS.WHENSELECTEDFN 11634 . 13376) (MakeMenuOfImageTypes 13378 + . 13896) (GetNewPrinterFromUser 13898 . 14326) (PopUpWindowAndGetAtom 14328 . 15713) ( +PopUpWindowAndGetList 15715 . 17281) (NewPrinter 17283 . 18231) (GetPrinterName 18233 . 18513) ( +GetImageFile 18515 . 20802) (FetchDefaultPrinter 20804 . 20945)) (20982 21520 ( +ExtensionForPrintFileType 20992 . 21185) (PRINTFILETYPE.FROM.EXTENSION 21187 . 21518)) (21575 37959 ( +DEFAULTPRINTER 21585 . 21745) (CAN.PRINT.DIRECTLY 21747 . 21903) (CONVERT.FILE.TO.TYPE.FOR.PRINTER +21905 . 22949) (EMPRESS 22951 . 23264) (HARDCOPYW 23266 . 26226) (LISTFILES1 26228 . 26401) ( +PRINTER.BITMAPFILE 26403 . 26650) (PRINTER.BITMAPSCALE 26652 . 26917) (PRINTER.SCRATCH.FILE 26919 . +27042) (PRINTERPROP 27044 . 27227) (PRINTERSTATUS 27229 . 27418) (PRINTERTYPE 27420 . 29729) ( +PRINTERNAME 29731 . 30033) (PRINTFILEPROP 30035 . 30226) (PRINTFILETYPE 30228 . 32172) ( +\EXPECTED.FILE.TYPE 32174 . 32956) (SEND.FILE.TO.PRINTER 32958 . 37957)) (37960 42942 (PRINTERDEVICE +37970 . 42940)) (43725 51926 (TEXTTOIMAGEFILE 43735 . 45925) (COPY.TEXT.TO.IMAGE 45927 . 51924)) ( +51927 53062 (\BLTSHADE.GENERICPRINTER 51937 . 53060)) (53190 71942 (MAKEHARDCOPYSTREAM 53200 . 54204) +(UNMAKEHARDCOPYSTREAM 54206 . 54890) (HARDCOPYSTREAMTYPE 54892 . 55171) (\CHARWIDTH.HDCPYDISPLAY 55173 + . 55604) (\DSPFONT.HDCPYDISPLAY 55606 . 57011) (\DSPRIGHTMARGIN.HDCPYDISPLAY 57013 . 57590) ( +\DSPXPOSITION.HDCPYDISPLAY 57592 . 57853) (\DSPYPOSITION.HDCPYDISPLAY 57855 . 58116) ( +\STRINGWIDTH.HDCPYDISPLAY 58118 . 58625) (\STRINGWIDTH.HCPYDISPLAYAUX 58627 . 60959) (\HDCPYBLTCHAR +60961 . 63496) (\HDCPYDISPLAY.FIX.XPOS 63498 . 63918) (\HDCPYDISPLAY.FIX.YPOS 63920 . 64340) ( +\HDCPYDISPLAYINIT 64342 . 65119) (\HDCPYDSPPRINTCHAR 65121 . 67281) (\SLOWHDCPYBLTCHAR 67283 . 70786) +(\CHANGECHARSET.HDCPYDISPLAY 70788 . 71940)) (72664 102961 (MAKEHARDCOPYMODESTREAM 72674 . 74583) ( +UNMAKEHARDCOPYMODESTREAM 74585 . 75663) (\BLTSHADE.HCPYMODE 75665 . 76112) (\BITBLT.HCPYMODE 76114 . +76736) (\BRUSHCONVERT.HCPYMODE 76738 . 76975) (\CHANGECHARSET.HCPYMODE 76977 . 78744) ( +\DASHINGCONVERT.HCPYMODE 78746 . 79009) (\CHARWIDTH.HCPYMODE 79011 . 79298) (\DRAWLINE.HCPYMODE 79300 + . 79612) (\DRAWCURVE.HCPYMODE 79614 . 80043) (\DRAWCIRCLE.HCPYMODE 80045 . 80440) ( +\DRAWELLIPSE.HCPYMODE 80442 . 80954) (\DSPFONT.HCPYMODE 80956 . 82112) (\DSPLEFTMARGIN.HCPYMODE 82114 + . 82698) (\DSPLINEFEED.HCPYMODE 82700 . 83110) (\DSPRIGHTMARGIN.HCPYMODE 83112 . 83741) ( +\DSPSPACEFACTOR.HCPYMODE 83743 . 84264) (\DSPXPOSITION.HCPYMODE 84266 . 84847) (\DSPYPOSITION.HCPYMODE + 84849 . 85254) (\MOVETO.HCPYMODE 85256 . 85408) (\FONTCREATE.HCPYMODE.PRESS 85410 . 86422) ( +\CREATECHARSET.HCPYMODE.PRESS 86424 . 87395) (\FONTCREATE.HCPYMODE.INTERPRESS 87397 . 88431) ( +\CREATECHARSET.HCPYMODE.INTERPRESS 88433 . 89421) (\STRINGWIDTH.HCPYMODE 89423 . 89857) ( +\HCPYMODEBLTCHAR 89859 . 92828) (\HCPYMODEDISPLAYINIT 92830 . 95761) (\HCPYMODEDSPPRINTCHAR 95763 . +97944) (\SLOWHCPYMODEBLTCHAR 97946 . 101460) (\SFFixY.HCPYMODE 101462 . 102959))))) STOP diff --git a/sources/HARDCOPY.LCOM b/sources/HARDCOPY.LCOM index b632a4fea..423b38bc7 100644 Binary files a/sources/HARDCOPY.LCOM and b/sources/HARDCOPY.LCOM differ diff --git a/sources/ICONW.LCOM b/sources/ICONW.LCOM index 4f41fd6e7..7ef23bc4f 100644 Binary files a/sources/ICONW.LCOM and b/sources/ICONW.LCOM differ diff --git a/sources/IMAGEIO.LCOM b/sources/IMAGEIO.LCOM index c7d762767..01e04e6be 100644 Binary files a/sources/IMAGEIO.LCOM and b/sources/IMAGEIO.LCOM differ diff --git a/sources/INSPECT b/sources/INSPECT index 705543964..6a1d6b355 100644 --- a/sources/INSPECT +++ b/sources/INSPECT @@ -1,14 +1,15 @@ -(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) -(FILECREATED "21-Apr-2018 08:08:07" {DSK}kaplan>Local>medley3.5>lispcore>sources>INSPECT.;7 115481 +(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10 FORMAT XCCS) +(FILECREATED "10-Jul-2021 20:31:23"  +{DSK}kaplan>Local>medley3.5>git-medley>sources>INSPECT.;10 119111 - changes to%: (VARS INSPECTCOMS) + changes to%: (FNS RDTBL\NONOTHERCODES) - previous date%: "21-Apr-2018 07:33:25" -{DSK}kaplan>Local>medley3.5>lispcore>sources>INSPECT.;6) + previous date%: "10-Jul-2021 20:20:35" +{DSK}kaplan>Local>medley3.5>git-medley>sources>INSPECT.;9) (* ; " -Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1990, 1991, 1993, 1995, 1999, 2018 by Venue & Xerox Corporation. All rights reserved. +Copyright (c) 1982-1987, 1990-1991, 1993, 1995, 1999, 2018, 2021 by Venue & Xerox Corporation. ") (PRETTYCOMPRINT INSPECTCOMS) @@ -1530,18 +1531,22 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1990, 1991, 1993, 1995, 1999, (DECLARE%: EVAL@COMPILE -(PUTPROPS EVAL.AS.PROCESS.WITH.PROFILE MACRO - [ARGS (LET ((PROFILE (CAR ARGS)) - (FORM (CADR ARGS))) - `(EVAL.AS.PROCESS (LIST 'XCL:WITH-PROFILE (LIST 'QUOTE ,PROFILE) - ,FORM]) - -(PUTPROPS WITH-INSPECTOR-ENV MACRO - [ARGS (LET ((PROFILE (CAR ARGS)) - (FORMS (CDR ARGS))) - `(XCL:WITH-PROFILE ,PROFILE (LET ((*PRINT-LEVEL* (CAR INSPECTPRINTLEVEL)) - (*PRINT-LENGTH* (CDR INSPECTPRINTLEVEL))) - ,@FORMS]) +(PUTPROPS EVAL.AS.PROCESS.WITH.PROFILE MACRO + [ARGS (LET ((PROFILE (CAR ARGS)) + (FORM (CADR ARGS))) + `(EVAL.AS.PROCESS (LIST 'XCL:WITH-PROFILE (LIST 'QUOTE ,PROFILE) + ,FORM]) + +(PUTPROPS WITH-INSPECTOR-ENV MACRO [ARGS (LET ((PROFILE (CAR ARGS)) + (FORMS (CDR ARGS))) + `(XCL:WITH-PROFILE ,PROFILE + (LET ((*PRINT-LEVEL* (CAR + INSPECTPRINTLEVEL + )) + (*PRINT-LENGTH* (CDR + INSPECTPRINTLEVEL + ))) + ,@FORMS]) ) @@ -1839,7 +1844,7 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1990, 1991, 1993, 1995, 1999, (DEFINEQ (RDTBL\NONOTHERCODES - [LAMBDA (RT) (* ; "Edited 20-Apr-2018 17:08 by rmk:") + [LAMBDA (RT) (* ; "Edited 10-Jul-2021 20:31 by rmk:") (* ; "Edited 3-Feb-87 16:54 by jop") (* ;; "returns the character codes that are not OTHER.") @@ -1851,21 +1856,67 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1990, 1991, 1993, 1995, 1999, 'OTHER) (PUSH RESULT KEY] (fetch READSA of (\GTREADTABLE RT T))) - RESULT]) -(GETSYNTAXPROP - [LAMBDA (RDTBL CH) (* ; "Edited 3-Feb-87 16:49 by jop") + (* ;; "(RECORDFIELDNAMES 'READTABLEP)") - (* ;; "version of GETSYNTAX that has arguments in the right order for inspector") + (APPEND '(CASEINSENSITIVE COMMONLISP COMMONNUMSYNTAX DISPATCHMACRODEFS ESCAPECHAR ESCAPEFLG + HASHMACROCHAR MULTESCAPECHAR NUMBERBASE PACKAGECHAR READMACRODEFS + READMACROFLG READSA READTBLNAME USESILPACKAGE) + (SORT RESULT]) - (GETSYNTAX CH RDTBL]) +(GETSYNTAXPROP + [LAMBDA (RDTBL CH/FIELD) (* ; "Edited 10-Jul-2021 20:17 by rmk:") + + (* ;; "version of GETSYNTAX that has arguments in the right order for inspector, and also shows field names as well as character assignments") + + (SELECTQ CH/FIELD + (READSA (fetch (READTABLEP READSA) of RDTBL)) + (READMACRODEFS (fetch (READTABLEP READMACRODEFS) of RDTBL)) + (READMACROFLG (fetch (READTABLEP READMACROFLG) of RDTBL)) + (ESCAPEFLG (fetch (READTABLEP ESCAPEFLG) of RDTBL)) + (COMMONLISP (fetch (READTABLEP COMMONLISP) of RDTBL)) + (NUMBERBASE (fetch (READTABLEP NUMBERBASE) of RDTBL)) + (CASEINSENSITIVE + (fetch (READTABLEP CASEINSENSITIVE) of RDTBL)) + (COMMONNUMSYNTAX + (fetch (READTABLEP COMMONNUMSYNTAX) of RDTBL)) + (USESILPACKAGE (fetch (READTABLEP USESILPACKAGE) of RDTBL)) + (DISPATCHMACRODEFS + (fetch (READTABLEP DISPATCHMACRODEFS) of RDTBL)) + (HASHMACROCHAR (fetch (READTABLEP HASHMACROCHAR) of RDTBL)) + (ESCAPECHAR (fetch (READTABLEP ESCAPECHAR) of RDTBL)) + (MULTESCAPECHAR + (fetch (READTABLEP MULTESCAPECHAR) of RDTBL)) + (PACKAGECHAR (fetch (READTABLEP PACKAGECHAR) of RDTBL)) + (READTBLNAME (fetch (READTABLEP READTBLNAME) of RDTBL)) + (GETSYNTAX CH/FIELD RDTBL]) (SETSYNTAXPROP - [LAMBDA (RDTBL CH CLASS) (* ; "Edited 3-Feb-87 16:55 by jop") - - (* ;; "version of SETSYNTAX that has arguments in the right order for inspector") - - (SETSYNTAX CH CLASS RDTBL]) + [LAMBDA (RDTBL CH/FIELD VALUE) (* ; "Edited 10-Jul-2021 20:20 by rmk:") + + (* ;; "version of SETSYNTAX that has arguments in the right order for inspector, plus allows setting fields.") + + (SELECTQ CH/FIELD + (READSA (replace (READTABLEP READSA) of RDTBL with VALUE)) + (READMACRODEFS (replace (READTABLEP READMACRODEFS) of RDTBL with VALUE)) + (READMACROFLG (replace (READTABLEP READMACROFLG) of RDTBL with VALUE)) + (ESCAPEFLG (replace (READTABLEP ESCAPEFLG) of RDTBL with VALUE)) + (COMMONLISP (replace (READTABLEP COMMONLISP) of RDTBL with VALUE)) + (NUMBERBASE (replace (READTABLEP NUMBERBASE) of RDTBL with VALUE)) + (CASEINSENSITIVE + (replace (READTABLEP CASEINSENSITIVE) of RDTBL with VALUE)) + (COMMONNUMSYNTAX + (replace (READTABLEP COMMONNUMSYNTAX) of RDTBL with VALUE)) + (USESILPACKAGE (replace (READTABLEP USESILPACKAGE) of RDTBL with VALUE)) + (DISPATCHMACRODEFS + (replace (READTABLEP DISPATCHMACRODEFS) of RDTBL with VALUE)) + (HASHMACROCHAR (replace (READTABLEP HASHMACROCHAR) of RDTBL with VALUE)) + (ESCAPECHAR (replace (READTABLEP ESCAPECHAR) of RDTBL with VALUE)) + (MULTESCAPECHAR + (replace (READTABLEP MULTESCAPECHAR) of RDTBL with VALUE)) + (PACKAGECHAR (replace (READTABLEP PACKAGECHAR) of RDTBL with VALUE)) + (READTBLNAME (replace (READTABLEP READTBLNAME) of RDTBL with VALUE)) + (SETSYNTAX CH/FIELD VALUE RDTBL]) (GETTTBLPROP [LAMBDA (TTBL PROP) (* ; "Edited 3-Feb-87 16:50 by jop") @@ -2093,42 +2144,42 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1990, 1991, 1993, 1995, 1999, ("As Character array" '(8 \INSPECT.FETCH.CHAR \INSPECT.STORE.CHAR)) ("As Fat Character array" '(16 \INSPECT.FETCH.FATCHAR \INSPECT.STORE.FATCHAR]) (PUTPROPS INSPECT COPYRIGHT ("Venue & Xerox Corporation" 1982 1983 1984 1985 1986 1987 1990 1991 1993 -1995 1999 2018)) +1995 1999 2018 2021)) (DECLARE%: DONTCOPY - (FILEMAP (NIL (7014 42742 (INSPECTW.CREATE 7024 . 11779) (INSPECTW.REPAINTFN 11781 . 17317) ( -INSPECTW.REDISPLAY 17319 . 26191) (\INSPECTW.VALUE.MARGIN 26193 . 26596) (INSPECTW.REPLACE 26598 . -27306) (INSPECTW.SELECTITEM 27308 . 28298) (\INSPECTW.REDISPLAYPROP 28300 . 30730) (INSPECTW.FETCH -30732 . 31155) (INSPECTW.PROPERTIES 31157 . 31798) (DECODE.WINDOW.ARG 31800 . 33528) ( -DEFAULT.INSPECTW.PROPCOMMANDFN 33530 . 35548) (DEFAULT.INSPECTW.VALUECOMMANDFN 35550 . 36808) ( -DEFAULT.INSPECTW.TITLECOMMANDFN 36810 . 38500) (\SELITEM.FROM.PROPERTY 38502 . 38944) ( -\INSPECT.COMPUTE.TITLE 38946 . 40072) (LEVELEDFORM 40074 . 40793) (MAKEWITHINREGION 40795 . 42740)) ( -42743 60044 (ITEMW.REPAINTFN 42753 . 43973) (\ITEM.WINDOW.BUTTON.HANDLER 43975 . 44390) ( -\ITEM.WINDOW.SELECTION.HANDLER 44392 . 47059) (\INSPECTW.COMMAND.HANDLER 47061 . 51062) ( -ITEM.WINDOW.SET.STACK.ARG 51064 . 53268) (REPLACESTKARG 53270 . 54369) (IN/ITEM? 54371 . 55253) ( -\ITEMW.DESELECTITEM 55255 . 55519) (\ITEMW.SELECTITEM 55521 . 55783) (\ITEMW.CLEARSELECTION 55785 . -56140) (\ITEMW.FLIPITEM 56142 . 56615) (PRINTANDBOX 56617 . 59126) (PRINTATBOX 59128 . 59645) ( -ITEMOFPROPERTYVALUE 59647 . 60042)) (60045 63650 (\ITEM.WINDOW.COPY.HANDLER 60055 . 61776) ( -\ITEMW.FLIPCOPY 61778 . 62237) (BKSYSBUF.GENERAL 62239 . 63648)) (64042 86517 (INSPECT 64052 . 68315) -(\APPLYINSPECTMACRO 68317 . 69299) (INSPECT/BITMAP 69301 . 70336) (INSPECT/DATATYPE 70338 . 73581) ( -INSPECTABLEFIELDNAMES 73583 . 74104) (REMOVEDUPS 74106 . 74311) (INSPECT/ARRAY 74313 . 75350) ( -INSPECT/TOP/LEVEL/LIST 75352 . 76311) (INSPECT/PROPLIST 76313 . 77288) (NONSYSPROPNAMES 77290 . 77586) - (INSPECT/LISTP 77588 . 77910) (ALISTP 77912 . 78121) (PROPLISTP 78123 . 78763) (INSPECT/ALIST 78765 - . 79120) (ASSOCGET 79122 . 79333) (/ASSOCPUT 79335 . 79600) (INSPECT/PLIST 79602 . 79965) ( -INSPECT/TYPERECORD 79967 . 80207) (INSPECT/AS/RECORD 80209 . 81333) (SELECT.LIST.INSPECTOR 81335 . -83380) (STANDARDEDITE 83382 . 83665) (NTHTOPLEVELELT 83667 . 83983) (SETNTHTOPLEVELELT 83985 . 84745) -(DEDITE 84747 . 84954) (FINDRECDECL 84956 . 85539) (FINDSYSRECDECL 85541 . 85942) ( -MAKE-INSPECTOR-PROFILE 85944 . 86329) (CONFIRM-SET 86331 . 86515)) (87849 95938 (INSPECT/ATOM 87859 . -91839) (SELECT.ATOM.ASPECT 91841 . 92985) (INSPECT/AS/FUNCTION 92987 . 95273) (SELECT.FNS.EDITOR 95275 - . 95936)) (95979 101378 (INSPECTCODE 95989 . 97135) (\TEDIT.INSPECTCODE 97137 . 99095) ( -\INSPECT/CODE/RESHAPEFN 99097 . 100636) (\INSPECT/CODE/REPAINTFN 100638 . 101376)) (101416 102901 ( -INSPECT/HARRAYP 101426 . 102053) (HARRAYKEYS 102055 . 102434) (INSPECTW.GETHASH 102436 . 102663) ( -INSPECTW.PUTHASH 102665 . 102899)) (102950 106081 (RDTBL\NONOTHERCODES 102960 . 103643) (GETSYNTAXPROP - 103645 . 103884) (SETSYNTAXPROP 103886 . 104131) (GETTTBLPROP 104133 . 105051) (SETTTBLPROP 105053 . -106079)) (106560 114943 (INSPECT/AS/BLOCKRECORD 106570 . 107453) (INSPECT/TYPELESS 107455 . 108701) ( -LIST-ALL-BLOCKRECORDS 108703 . 108978) (INSPECT/HUNK 108980 . 111586) (\INSPECT.DATATYPE.RAW.FETCH -111588 . 111914) (\INSPECT.FETCH.8 111916 . 112065) (\INSPECT.FETCH.32 112067 . 112238) ( -\INSPECT.FETCH.CHAR 112240 . 112403) (\INSPECT.FETCH.FATCHAR 112405 . 112567) (\INSPECT.FETCH.PTR -112569 . 112740) (\INSPECT.STORE.8 112742 . 113048) (\INSPECT.STORE.16 113050 . 113350) ( -\INSPECT.STORE.32 113352 . 113787) (\INSPECT.STORE.CHAR 113789 . 114115) (\INSPECT.STORE.FATCHAR -114117 . 114439) (\INSPECT.STORE.PTR 114441 . 114788) (INSPECT/MAKE/CCODEP 114790 . 114941))))) + (FILEMAP (NIL (6999 42727 (INSPECTW.CREATE 7009 . 11764) (INSPECTW.REPAINTFN 11766 . 17302) ( +INSPECTW.REDISPLAY 17304 . 26176) (\INSPECTW.VALUE.MARGIN 26178 . 26581) (INSPECTW.REPLACE 26583 . +27291) (INSPECTW.SELECTITEM 27293 . 28283) (\INSPECTW.REDISPLAYPROP 28285 . 30715) (INSPECTW.FETCH +30717 . 31140) (INSPECTW.PROPERTIES 31142 . 31783) (DECODE.WINDOW.ARG 31785 . 33513) ( +DEFAULT.INSPECTW.PROPCOMMANDFN 33515 . 35533) (DEFAULT.INSPECTW.VALUECOMMANDFN 35535 . 36793) ( +DEFAULT.INSPECTW.TITLECOMMANDFN 36795 . 38485) (\SELITEM.FROM.PROPERTY 38487 . 38929) ( +\INSPECT.COMPUTE.TITLE 38931 . 40057) (LEVELEDFORM 40059 . 40778) (MAKEWITHINREGION 40780 . 42725)) ( +42728 60029 (ITEMW.REPAINTFN 42738 . 43958) (\ITEM.WINDOW.BUTTON.HANDLER 43960 . 44375) ( +\ITEM.WINDOW.SELECTION.HANDLER 44377 . 47044) (\INSPECTW.COMMAND.HANDLER 47046 . 51047) ( +ITEM.WINDOW.SET.STACK.ARG 51049 . 53253) (REPLACESTKARG 53255 . 54354) (IN/ITEM? 54356 . 55238) ( +\ITEMW.DESELECTITEM 55240 . 55504) (\ITEMW.SELECTITEM 55506 . 55768) (\ITEMW.CLEARSELECTION 55770 . +56125) (\ITEMW.FLIPITEM 56127 . 56600) (PRINTANDBOX 56602 . 59111) (PRINTATBOX 59113 . 59630) ( +ITEMOFPROPERTYVALUE 59632 . 60027)) (60030 63635 (\ITEM.WINDOW.COPY.HANDLER 60040 . 61761) ( +\ITEMW.FLIPCOPY 61763 . 62222) (BKSYSBUF.GENERAL 62224 . 63633)) (64027 86502 (INSPECT 64037 . 68300) +(\APPLYINSPECTMACRO 68302 . 69284) (INSPECT/BITMAP 69286 . 70321) (INSPECT/DATATYPE 70323 . 73566) ( +INSPECTABLEFIELDNAMES 73568 . 74089) (REMOVEDUPS 74091 . 74296) (INSPECT/ARRAY 74298 . 75335) ( +INSPECT/TOP/LEVEL/LIST 75337 . 76296) (INSPECT/PROPLIST 76298 . 77273) (NONSYSPROPNAMES 77275 . 77571) + (INSPECT/LISTP 77573 . 77895) (ALISTP 77897 . 78106) (PROPLISTP 78108 . 78748) (INSPECT/ALIST 78750 + . 79105) (ASSOCGET 79107 . 79318) (/ASSOCPUT 79320 . 79585) (INSPECT/PLIST 79587 . 79950) ( +INSPECT/TYPERECORD 79952 . 80192) (INSPECT/AS/RECORD 80194 . 81318) (SELECT.LIST.INSPECTOR 81320 . +83365) (STANDARDEDITE 83367 . 83650) (NTHTOPLEVELELT 83652 . 83968) (SETNTHTOPLEVELELT 83970 . 84730) +(DEDITE 84732 . 84939) (FINDRECDECL 84941 . 85524) (FINDSYSRECDECL 85526 . 85927) ( +MAKE-INSPECTOR-PROFILE 85929 . 86314) (CONFIRM-SET 86316 . 86500)) (88396 96485 (INSPECT/ATOM 88406 . +92386) (SELECT.ATOM.ASPECT 92388 . 93532) (INSPECT/AS/FUNCTION 93534 . 95820) (SELECT.FNS.EDITOR 95822 + . 96483)) (96526 101925 (INSPECTCODE 96536 . 97682) (\TEDIT.INSPECTCODE 97684 . 99642) ( +\INSPECT/CODE/RESHAPEFN 99644 . 101183) (\INSPECT/CODE/REPAINTFN 101185 . 101923)) (101963 103448 ( +INSPECT/HARRAYP 101973 . 102600) (HARRAYKEYS 102602 . 102981) (INSPECTW.GETHASH 102983 . 103210) ( +INSPECTW.PUTHASH 103212 . 103446)) (103497 109706 (RDTBL\NONOTHERCODES 103507 . 104527) (GETSYNTAXPROP + 104529 . 106027) (SETSYNTAXPROP 106029 . 107756) (GETTTBLPROP 107758 . 108676) (SETTTBLPROP 108678 . +109704)) (110185 118568 (INSPECT/AS/BLOCKRECORD 110195 . 111078) (INSPECT/TYPELESS 111080 . 112326) ( +LIST-ALL-BLOCKRECORDS 112328 . 112603) (INSPECT/HUNK 112605 . 115211) (\INSPECT.DATATYPE.RAW.FETCH +115213 . 115539) (\INSPECT.FETCH.8 115541 . 115690) (\INSPECT.FETCH.32 115692 . 115863) ( +\INSPECT.FETCH.CHAR 115865 . 116028) (\INSPECT.FETCH.FATCHAR 116030 . 116192) (\INSPECT.FETCH.PTR +116194 . 116365) (\INSPECT.STORE.8 116367 . 116673) (\INSPECT.STORE.16 116675 . 116975) ( +\INSPECT.STORE.32 116977 . 117412) (\INSPECT.STORE.CHAR 117414 . 117740) (\INSPECT.STORE.FATCHAR +117742 . 118064) (\INSPECT.STORE.PTR 118066 . 118413) (INSPECT/MAKE/CCODEP 118415 . 118566))))) STOP diff --git a/sources/INSPECT.LCOM b/sources/INSPECT.LCOM index 50004d581..6c0070cee 100644 Binary files a/sources/INSPECT.LCOM and b/sources/INSPECT.LCOM differ diff --git a/sources/INTERPRESS b/sources/INTERPRESS index e91dfb290..9e7837c08 100644 --- a/sources/INTERPRESS +++ b/sources/INTERPRESS @@ -1,15 +1,15 @@ (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) -(FILECREATED "16-Apr-2018 21:56:38"  -{DSK}kaplan>Local>medley3.5>lispcore>sources>INTERPRESS.;6 226422 +(FILECREATED "27-Jun-2021 23:50:51"  +{DSK}kaplan>Local>medley3.5>git-medley>sources>INTERPRESS.;9 226784 - changes to%: (VARS INTERPRESSCOMS) + changes to%: (FNS OPENIPSTREAM) - previous date%: "28-Jun-99 16:33:05" -{DSK}kaplan>Local>medley3.5>lispcore>sources>INTERPRESS.;3) + previous date%: "27-Jun-2021 23:40:47" +{DSK}kaplan>Local>medley3.5>git-medley>sources>INTERPRESS.;8) (* ; " -Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1993, 1999, 2018 by Venue & Xerox Corporation. All rights reserved. +Copyright (c) 1983-1991, 1993, 1999, 2018, 2021 by Venue & Xerox Corporation. ") (PRETTYCOMPRINT INTERPRESSCOMS) @@ -1478,7 +1478,7 @@ Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1993, 1999, (NEWPAGE.IP IPSTREAM]) (OPENIPSTREAM - [LAMBDA (IPFILE OPTIONS) (* ; "Edited 29-May-93 13:19 by rmk:") + [LAMBDA (IPFILE OPTIONS) (* ; "Edited 27-Jun-2021 23:50 by rmk:") (* ; "Edited 18-Aug-88 16:13 by hdj") (* ;; "Opens an interpress stream, which user can OUTCHAR to. The FONTS option can be a list of fonts to be set up in the preamble. Headings will be printed in the first font in that list. If that list is NIL, then the stream is initialized with the INTERPRESS DEFAULTFONT") @@ -1518,7 +1518,13 @@ Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1993, 1999, (* ;  "GETEOFPTR might bomb on some streams") )) - (replace (STREAM OUTCHARFN) of IPSTREAM with (FUNCTION INTERPRESS.OUTCHARFN)) + + (* ;; "We install a special external format to ensure that COPYCHARS won't do COPYBYTES when copying a from am a text file to an IP stream. Really only the outcharfn matters.") + + (\EXTERNALFORMAT IPSTREAM (CREATE EXTERNALFORMAT + NAME _ 'INTERPRESS + OUTCHARFN _ (FUNCTION INTERPRESS.OUTCHARFN) + EOL _ (FETCH (STREAM EOLCONVENTION) OF IPSTREAM))) (freplace (IPSTREAM IMAGEOPS) of IPSTREAM with \IPIMAGEOPS) (freplace (IPSTREAM IPDATA) of IPSTREAM with IPDATA) [COND @@ -4488,46 +4494,46 @@ Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1993, 1999, (LOADDEF 'BRUSH 'RECORDS 'IMAGEIO) ) (PUTPROPS INTERPRESS COPYRIGHT ("Venue & Xerox Corporation" 1983 1984 1985 1986 1987 1988 1989 1990 -1991 1993 1999 2018)) +1991 1993 1999 2018 2021)) (DECLARE%: DONTCOPY - (FILEMAP (NIL (13200 17741 (APPENDBYTE.IP 13210 . 13346) (APPENDIDENTIFIER.IP 13348 . 13739) ( -APPENDINT.IP 13741 . 14192) (APPENDINTEGER.IP 14194 . 14619) (APPENDLARGEVECTOR.IP 14621 . 15421) ( -APPENDNUMBER.IP 15423 . 15779) (APPENDOP.IP 15781 . 16220) (APPENDRATIONAL.IP 16222 . 16578) ( -APPENDSEQUENCEDESCRIPTOR.IP 16580 . 17564) (BYTESININT.IP 17566 . 17739)) (17777 55249 (ARCTO.IP 17787 - . 18993) (BEGINMASTER.IP 18995 . 19149) (BEGINPAGE.IP 19151 . 19387) (BEGINPREAMBLE.IP 19389 . 19640) - (CLIPRECTANGLE.IP 19642 . 20009) (CONCAT.IP 20011 . 20157) (CONCATT.IP 20159 . 20307) (ENDMASTER.IP -20309 . 20632) (ENDPAGE.IP 20634 . 20891) (ENDPREAMBLE.IP 20893 . 21717) (FGET.IP 21719 . 21903) ( -FILLRECTANGLE.IP 21905 . 24116) (FILLTRAJECTORY.IP 24118 . 24615) (FILLNGON.IP 24617 . 27014) (FSET.IP - 27016 . 27200) (GETFRAMEVAR.IP 27202 . 27520) (INITIALIZEMASTER.IP 27522 . 27979) (INITIALIZECOLOR.IP - 27981 . 29149) (ISET.IP 29151 . 29403) (GETCP.IP 29405 . 29595) (LINETO.IP 29597 . 30107) ( -MASKSTROKE.IP 30109 . 30263) (MOVETO.IP 30265 . 30483) (ROTATE.IP 30485 . 30668) (SCALE.IP 30670 . -30854) (SCALE2.IP 30856 . 31074) (SETCOLOR.IP 31076 . 33222) (SETRGB.IP 33224 . 34142) (SETCOLORLV.IP -34144 . 38644) (SETCOLOR16.IP 38646 . 41592) (SETFONT.IP 41594 . 42290) (SETSPACE.IP 42292 . 42485) ( -SETXREL.IP 42487 . 43814) (SETX.IP 43816 . 45461) (SETXY.IP 45463 . 46965) (SETXYREL.IP 46967 . 48556) - (SETY.IP 48558 . 50147) (SETYREL.IP 50149 . 51343) (SHOW.IP 51345 . 54397) (TRAJECTORY.IP 54399 . -54797) (TRANS.IP 54799 . 55019) (TRANSLATE.IP 55021 . 55247)) (55280 61308 (\CHANGE-VISIBLE-REGION.IP -55290 . 58951) (\PAPERSIZE.IP 58953 . 59774) (HEADINGOP.IP 59776 . 61306)) (61309 166856 ( -DEFINEFONT.IP 61319 . 62185) (FONTNAME.IP 62187 . 63117) (INTERPRESS.BITMAPSCALE 63119 . 63681) ( -INTERPRESS.OUTCHARFN 63683 . 69855) (INTERPRESSFILEP 69857 . 71018) (MAKEINTERPRESS 71020 . 71204) ( -NEWLINE.IP 71206 . 71938) (NEWPAGE.IP 71940 . 76906) (NEWPAGE?.IP 76908 . 77387) (OPENIPSTREAM 77389 - . 85103) (SETUPFONTS.IP 85105 . 86097) (SHOWBITMAP.IP 86099 . 90761) (\BITMAPSIZE.IP 90763 . 91540) ( -SHOWBITMAP1.IP 91542 . 95824) (SHOWSHADE.IP 95826 . 96623) (\BITBLT.IP 96625 . 100829) ( -\SCALEDBITBLT.IP 100831 . 104476) (\BLTSHADE.IP 104478 . 105815) (\CHARWIDTH.IP 105817 . 106267) ( -\CLOSEIPSTREAM 106269 . 106596) (\DRAWARC.IP 106598 . 107045) (\DRAWCURVE.IP 107047 . 109343) ( -\DRAWPOINT.IP 109345 . 110382) (\DSPCOLOR.IP 110384 . 111335) (ENSURE.RGB 111337 . 112001) (\IPCURVE2 -112003 . 126512) (\CLIPCURVELINE.IP 126514 . 131212) (\DRAWLINE.IP 131214 . 134796) (\CLIPLINE 134798 - . 139498) (\DSPBOTTOMMARGIN.IP 139500 . 139916) (\DSPFONT.IP 139918 . 145502) (\DSPLEFTMARGIN.IP -145504 . 145964) (\DSPLINEFEED.IP 145966 . 146633) (\DSPRIGHTMARGIN.IP 146635 . 147432) ( -\DSPSPACEFACTOR.IP 147434 . 148519) (\DSPTOPMARGIN.IP 148521 . 148957) (\DSPXPOSITION.IP 148959 . -149946) (\DSPROTATE.IP 149948 . 150126) (\PUSHSTATE.IP 150128 . 150890) (\POPSTATE.IP 150892 . 151397) - (\DEFAULTSTATE.IP 151399 . 151632) (\DSPTRANSLATE.IP 151634 . 151815) (\DSPSCALE2.IP 151817 . 151992) - (\DSPYPOSITION.IP 151994 . 152295) (FILLCIRCLE.IP 152297 . 153380) (\FILLPOLYGON.IP 153382 . 154607) -(\DRAWPOLYGON.IP 154609 . 160880) (\FIXLINELENGTH.IP 160882 . 162096) (\MOVETO.IP 162098 . 162462) ( -\SETBRUSH.IP 162464 . 164474) (\STRINGWIDTH.IP 164476 . 164879) (\DSPCLIPPINGREGION.IP 164881 . 166057 -) (\DSPOPERATION.IP 166059 . 166854)) (167048 167803 (IP-TOS 167058 . 167318) (POP-IP-STACK 167320 . -167615) (PUSH-IP-STACK 167617 . 167801)) (167864 180428 (\CREATECHARSET.IP 167874 . 179665) ( -\CHANGECHARSET.IP 179667 . 180426)) (180429 185034 (\INTERPRESSINIT 180439 . 185032)) (185035 185593 ( -SCALEREGION 185045 . 185591)) (211509 213815 (INTERPRESSBITMAP 211519 . 213813)) (216047 222703 (NSMAP - 216057 . 216639) (\COERCEASCIITONSFONT 216641 . 220495) (\CREATEINTERPRESSFONT 220497 . 222362) ( -\SEARCHINTERPRESSFONTS 222364 . 222701))))) + (FILEMAP (NIL (13144 17685 (APPENDBYTE.IP 13154 . 13290) (APPENDIDENTIFIER.IP 13292 . 13683) ( +APPENDINT.IP 13685 . 14136) (APPENDINTEGER.IP 14138 . 14563) (APPENDLARGEVECTOR.IP 14565 . 15365) ( +APPENDNUMBER.IP 15367 . 15723) (APPENDOP.IP 15725 . 16164) (APPENDRATIONAL.IP 16166 . 16522) ( +APPENDSEQUENCEDESCRIPTOR.IP 16524 . 17508) (BYTESININT.IP 17510 . 17683)) (17721 55193 (ARCTO.IP 17731 + . 18937) (BEGINMASTER.IP 18939 . 19093) (BEGINPAGE.IP 19095 . 19331) (BEGINPREAMBLE.IP 19333 . 19584) + (CLIPRECTANGLE.IP 19586 . 19953) (CONCAT.IP 19955 . 20101) (CONCATT.IP 20103 . 20251) (ENDMASTER.IP +20253 . 20576) (ENDPAGE.IP 20578 . 20835) (ENDPREAMBLE.IP 20837 . 21661) (FGET.IP 21663 . 21847) ( +FILLRECTANGLE.IP 21849 . 24060) (FILLTRAJECTORY.IP 24062 . 24559) (FILLNGON.IP 24561 . 26958) (FSET.IP + 26960 . 27144) (GETFRAMEVAR.IP 27146 . 27464) (INITIALIZEMASTER.IP 27466 . 27923) (INITIALIZECOLOR.IP + 27925 . 29093) (ISET.IP 29095 . 29347) (GETCP.IP 29349 . 29539) (LINETO.IP 29541 . 30051) ( +MASKSTROKE.IP 30053 . 30207) (MOVETO.IP 30209 . 30427) (ROTATE.IP 30429 . 30612) (SCALE.IP 30614 . +30798) (SCALE2.IP 30800 . 31018) (SETCOLOR.IP 31020 . 33166) (SETRGB.IP 33168 . 34086) (SETCOLORLV.IP +34088 . 38588) (SETCOLOR16.IP 38590 . 41536) (SETFONT.IP 41538 . 42234) (SETSPACE.IP 42236 . 42429) ( +SETXREL.IP 42431 . 43758) (SETX.IP 43760 . 45405) (SETXY.IP 45407 . 46909) (SETXYREL.IP 46911 . 48500) + (SETY.IP 48502 . 50091) (SETYREL.IP 50093 . 51287) (SHOW.IP 51289 . 54341) (TRAJECTORY.IP 54343 . +54741) (TRANS.IP 54743 . 54963) (TRANSLATE.IP 54965 . 55191)) (55224 61252 (\CHANGE-VISIBLE-REGION.IP +55234 . 58895) (\PAPERSIZE.IP 58897 . 59718) (HEADINGOP.IP 59720 . 61250)) (61253 167213 ( +DEFINEFONT.IP 61263 . 62129) (FONTNAME.IP 62131 . 63061) (INTERPRESS.BITMAPSCALE 63063 . 63625) ( +INTERPRESS.OUTCHARFN 63627 . 69799) (INTERPRESSFILEP 69801 . 70962) (MAKEINTERPRESS 70964 . 71148) ( +NEWLINE.IP 71150 . 71882) (NEWPAGE.IP 71884 . 76850) (NEWPAGE?.IP 76852 . 77331) (OPENIPSTREAM 77333 + . 85460) (SETUPFONTS.IP 85462 . 86454) (SHOWBITMAP.IP 86456 . 91118) (\BITMAPSIZE.IP 91120 . 91897) ( +SHOWBITMAP1.IP 91899 . 96181) (SHOWSHADE.IP 96183 . 96980) (\BITBLT.IP 96982 . 101186) ( +\SCALEDBITBLT.IP 101188 . 104833) (\BLTSHADE.IP 104835 . 106172) (\CHARWIDTH.IP 106174 . 106624) ( +\CLOSEIPSTREAM 106626 . 106953) (\DRAWARC.IP 106955 . 107402) (\DRAWCURVE.IP 107404 . 109700) ( +\DRAWPOINT.IP 109702 . 110739) (\DSPCOLOR.IP 110741 . 111692) (ENSURE.RGB 111694 . 112358) (\IPCURVE2 +112360 . 126869) (\CLIPCURVELINE.IP 126871 . 131569) (\DRAWLINE.IP 131571 . 135153) (\CLIPLINE 135155 + . 139855) (\DSPBOTTOMMARGIN.IP 139857 . 140273) (\DSPFONT.IP 140275 . 145859) (\DSPLEFTMARGIN.IP +145861 . 146321) (\DSPLINEFEED.IP 146323 . 146990) (\DSPRIGHTMARGIN.IP 146992 . 147789) ( +\DSPSPACEFACTOR.IP 147791 . 148876) (\DSPTOPMARGIN.IP 148878 . 149314) (\DSPXPOSITION.IP 149316 . +150303) (\DSPROTATE.IP 150305 . 150483) (\PUSHSTATE.IP 150485 . 151247) (\POPSTATE.IP 151249 . 151754) + (\DEFAULTSTATE.IP 151756 . 151989) (\DSPTRANSLATE.IP 151991 . 152172) (\DSPSCALE2.IP 152174 . 152349) + (\DSPYPOSITION.IP 152351 . 152652) (FILLCIRCLE.IP 152654 . 153737) (\FILLPOLYGON.IP 153739 . 154964) +(\DRAWPOLYGON.IP 154966 . 161237) (\FIXLINELENGTH.IP 161239 . 162453) (\MOVETO.IP 162455 . 162819) ( +\SETBRUSH.IP 162821 . 164831) (\STRINGWIDTH.IP 164833 . 165236) (\DSPCLIPPINGREGION.IP 165238 . 166414 +) (\DSPOPERATION.IP 166416 . 167211)) (167405 168160 (IP-TOS 167415 . 167675) (POP-IP-STACK 167677 . +167972) (PUSH-IP-STACK 167974 . 168158)) (168221 180785 (\CREATECHARSET.IP 168231 . 180022) ( +\CHANGECHARSET.IP 180024 . 180783)) (180786 185391 (\INTERPRESSINIT 180796 . 185389)) (185392 185950 ( +SCALEREGION 185402 . 185948)) (211866 214172 (INTERPRESSBITMAP 211876 . 214170)) (216404 223060 (NSMAP + 216414 . 216996) (\COERCEASCIITONSFONT 216998 . 220852) (\CREATEINTERPRESSFONT 220854 . 222719) ( +\SEARCHINTERPRESSFONTS 222721 . 223058))))) STOP diff --git a/sources/INTERPRESS.LCOM b/sources/INTERPRESS.LCOM index e238b82a4..0915e9218 100644 Binary files a/sources/INTERPRESS.LCOM and b/sources/INTERPRESS.LCOM differ diff --git a/sources/JAPANESE b/sources/JAPANESE new file mode 100644 index 000000000..9823275e8 --- /dev/null +++ b/sources/JAPANESE @@ -0,0 +1,1173 @@ +(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP") +(FILECREATED "23-Jun-2021 16:58:07"  +{DSK}kaplan>Local>medley3.5>git-medley>sources>JAPANESE.;6 64773 + + changes to%: (FNS \CREATE.JIS.EXTERNALFORMAT \CREATE.SHIFTJIS.EXTERNALFORMAT + \CREATE.EUC.EXTERNALFORMAT) + + previous date%: "15-Jun-2021 15:26:08" +{DSK}kaplan>Local>medley3.5>git-medley>sources>JAPANESE.;5) + + +(PRETTYCOMPRINT JAPANESECOMS) + +(RPAQQ JAPANESECOMS + [ (* ; "XCCS to JIS converter") + [COMS (* ; "JIS to XCCS conversion table.") + (VARS *JIS-TO-XCCS-CONV-NO-FONT-TABLE* *JIS-TO-XCCS-CODE-MAP* + *HANKAKU-TO-ZENKAKU-CODE-MAP*) + (GLOBALVARS *JIS-TO-XCCS-CONV-NO-FONT-TABLE* *JIS-TO-XCCS-CONV-TABLE-LIST* + *JIS-TO-XCCS-CODE-MAP* *HANKAKU-TO-ZENKAKU-CODE-MAP* + *JIS-1KU-TO-XCCS-CONV-TABLE* *JIS-2KU-TO-XCCS-CONV-TABLE* + *JIS-6KU-TO-XCCS-CONV-TABLE* *XCCS-TO-JIS-CONV-TABLE* + *HANKAKU-TO-ZENKAKU-CONV-TABLE* *ZENKAKU-TO-HANKAKU-CONV-TABLE*) + (FNS \MAKE.JIS.TO.XCCS.CONV.TABLE) + (DECLARE%: DONTEVAL@LOAD DOCOPY (P (\MAKE.JIS.TO.XCCS.CONV.TABLE] + (DECLARE%: DOEVAL@COMPILE DONTCOPY (EXPORT (MACROS \CONV.JIS.TO.XCCS \DO.CONV.JIS.TO.XCCS))) + (FNS \JISIN \JISPEEK \BACKJISCHAR \SHIFTJISIN \SHIFTJISPEEK \BACKSHIFTJISCHAR \EUCIN \EUCPEEK + \BACKEUCCHAR) + (FNS \JISOUTCHARFN \SHIFTJISOUTCHARFN \EUCOUTCHARFN) + [COMS (FNS CONVHANKAKU) + (DECLARE%: DOEVAL@COMPILE DONTCOPY (EXPORT (MACROS \CONV.XCCS.TO.JIS + \DO.CONV.XCCS.TO.JIS \ASCIIP + \NOT.EQUIVALENT.TO.JIS + \CONV.HANKAKU.TO.ZENKAKUP + \CONV.ZENKAKU.KANA] + (DECLARE%: DOEVAL@COMPILE DONTCOPY + + (* ;; "JIS specific macro") + + (MACROS \EXTRACT.NO.FONT.CODE \EXTARACT.CONV.TABLE \NOT.EQUIVALENT.TO.XCCS + \EXTRACT.SET \EXTRACT.CODE \CHNAGE.KI.MODE \KIMODEP \HANKAKUP \KANJIP + \NOTGAIJIP \INVALID.TENP \CONV.HANKAKU.KANA \OUTKI \OUTKO) + + (* ;; "Shift-JIS specific macro") + + (MACROS \CONV.SJIS.TO.JIS \CONV.JIS.TO.SJIS \SJIS.KANJI.FIRST.BYTEP) + + (* ;; "EUC specific macro") + + (MACROS \EUC.KANJI.FIRST.BYTEP \GAIJIP \EUC.HANKAKUP)) + (FNS \CREATE.JIS.EXTERNALFORMAT \CREATE.SHIFTJIS.EXTERNALFORMAT \CREATE.EUC.EXTERNALFORMAT) + (DECLARE%: DONTEVAL@LOAD DOCOPY (P (\CREATE.JIS.EXTERNALFORMAT) + (\CREATE.SHIFTJIS.EXTERNALFORMAT) + (\CREATE.EUC.EXTERNALFORMAT))) + [DECLARE%: EVAL@COMPILE DONTCOPY (P (OR (GETP 'EXPORTS.ALL 'FILE) + (PRINT + "NOTE: JAPANESE requires EXPORTS.ALL for compilation" + T] + (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA) + (NLAML) + (LAMA CONVHANKAKU]) + + + +(* ; "XCCS to JIS converter") + + + + +(* ; "JIS to XCCS conversion table.") + + +(RPAQQ *JIS-TO-XCCS-CONV-NO-FONT-TABLE* + ((8484 . 8484) + (8485 . 8485) + (8497 . 9155) + (8798 . 61376) + (8802 . 8802) + (8805 . 64892) + (8806 . 64894) + (8820 . 9148) + (8821 . 9132) + (8822 . 213) + (8830 . 8830) + (10273 . 61189) + (10274 . 61188) + (10275 . 10275) + (10276 . 10276) + (10277 . 10277) + (10278 . 10278) + (10279 . 10279) + (10280 . 10280) + (10281 . 10281) + (10282 . 10282) + (10283 . 61414) + (10284 . 61410) + (10285 . 61409) + (10286 . 10286) + (10287 . 10287) + (10288 . 10288) + (10289 . 10289) + (10290 . 10290) + (10291 . 10291) + (10292 . 10292) + (10293 . 10293) + (10294 . 61411) + (10295 . 10295) + (10296 . 10296) + (10297 . 10297) + (10298 . 10298) + (10299 . 10299) + (10300 . 10300) + (10301 . 10301) + (10302 . 10302) + (10303 . 10303) + (10304 . 10304))) + +(RPAQQ *JIS-TO-XCCS-CODE-MAP* + ((1 (1 33 . 33) + (2 33 . 34) + (3 33 . 35) + (6 0 . 183) + (7 0 . 58) + (8 0 . 59) + (9 0 . 63) + (10 0 . 33) + (11 33 . 43) + (12 33 . 44) + (13 0 . 194) + (14 0 . 193) + (15 0 . 200) + (16 0 . 195) + (18 0 . 204) + (19 33 . 51) + (20 33 . 52) + (21 33 . 53) + (22 33 . 54) + (23 33 . 55) + (24 33 . 56) + (25 33 . 57) + (26 33 . 58) + (27 33 . 59) + (28 33 . 60) + (29 239 . 36) + (30 33 . 62) + (31 0 . 47) + (32 0 . 92) + (33 0 . 126) + (34 33 . 66) + (35 0 . 124) + (36 33 . 68) + (37 33 . 69) + (38 0 . 169) + (39 0 . 39) + (40 0 . 170) + (41 0 . 186) + (42 0 . 40) + (43 0 . 41) + (44 33 . 76) + (45 33 . 77) + (46 0 . 91) + (47 0 . 93) + (48 0 . 123) + (49 0 . 125) + (50 239 . 50) + (51 239 . 51) + (52 0 . 171) + (53 0 . 187) + (54 33 . 86) + (55 33 . 87) + (56 33 . 88) + (57 33 . 89) + (58 33 . 90) + (59 33 . 91) + (60 0 . 43) + (61 0 . 45) + (62 0 . 177) + (63 0 . 180) + (64 0 . 184) + (65 0 . 61) + (66 33 . 98) + (67 0 . 60) + (68 0 . 62) + (69 33 . 101) + (70 33 . 102) + (71 33 . 103) + (72 33 . 104) + (73 33 . 105) + (74 33 . 106) + (75 0 . 176) + (76 33 . 108) + (77 33 . 109) + (78 33 . 110) + (79 0 . 165) + (80 0 . 164) + (81 0 . 162) + (82 0 . 163) + (83 0 . 37) + (84 0 . 35) + (85 0 . 38) + (86 0 . 42) + (87 0 . 64) + (88 0 . 167) + (89 33 . 121) + (90 33 . 122) + (91 33 . 123) + (92 33 . 124) + (93 33 . 125) + (94 33 . 126)) + (2 (1 34 . 33) + (2 34 . 34) + (3 34 . 35) + (4 34 . 36) + (5 34 . 37) + (6 34 . 38) + (7 34 . 39) + (8 34 . 40) + (9 34 . 41) + (10 0 . 174) + (11 0 . 172) + (12 0 . 173) + (13 0 . 175) + (14 34 . 46) + (26 239 . 74) + (27 239 . 76) + (28 239 . 89) + (29 239 . 88) + (30 239 . 91) + (31 239 . 90) + (32 239 . 87) + (33 239 . 86) + (42 239 . 182) + (43 239 . 183) + (44 239 . 106) + (45 239 . 79) + (46 239 . 78) + (47 239 . 181) + (48 239 . 180) + (60 239 . 108) + (61 239 . 112) + (63 239 . 186) + (64 239 . 185) + (65 239 . 114) + (67 239 . 66) + (68 239 . 67) + (71 239 . 113) + (72 239 . 111) + (73 239 . 117) + (74 34 . 106) + (82 241 . 40) + (83 239 . 65) + (87 239 . 48) + (88 239 . 49) + (89 0 . 176)) + (6 (1 38 . 65) + (2 38 . 66) + (3 38 . 68) + (4 38 . 69) + (5 38 . 70) + (6 38 . 73) + (7 38 . 74) + (8 38 . 75) + (9 38 . 76) + (10 38 . 77) + (11 38 . 78) + (12 38 . 79) + (13 38 . 80) + (14 38 . 81) + (15 38 . 82) + (16 38 . 83) + (17 38 . 85) + (18 38 . 86) + (19 38 . 88) + (20 38 . 89) + (21 38 . 90) + (22 38 . 91) + (23 38 . 92) + (24 38 . 93) + (33 38 . 97) + (34 38 . 98) + (35 38 . 100) + (36 38 . 101) + (37 38 . 102) + (38 38 . 105) + (39 38 . 106) + (40 38 . 107) + (41 38 . 108) + (42 38 . 109) + (43 38 . 110) + (44 38 . 111) + (45 38 . 112) + (46 38 . 113) + (47 38 . 114) + (48 38 . 115) + (49 38 . 117) + (50 38 . 118) + (51 38 . 120) + (52 38 . 121) + (53 38 . 122) + (54 38 . 123) + (55 38 . 124) + (56 38 . 125)))) + +(RPAQQ *HANKAKU-TO-ZENKAKU-CODE-MAP* + ((161 . 8483) + (162 . 8534) + (163 . 8535) + (164 . 8482) + (165 . 183) + (166 . 9586) + (167 . 9505) + (168 . 9507) + (169 . 9509) + (170 . 9511) + (171 . 9513) + (172 . 9571) + (173 . 9573) + (174 . 9575) + (175 . 9539) + (176 . 8508) + (177 . 9506) + (178 . 9508) + (179 . 9510) + (180 . 9512) + (181 . 9514) + (182 . 9515) + (183 . 9517) + (184 . 9519) + (185 . 9521) + (186 . 9523) + (187 . 9525) + (188 . 9527) + (189 . 9529) + (190 . 9531) + (191 . 9533) + (192 . 9535) + (193 . 9537) + (194 . 9540) + (195 . 9542) + (196 . 9544) + (197 . 9546) + (198 . 9547) + (199 . 9548) + (200 . 9549) + (201 . 9550) + (202 . 9551) + (203 . 9554) + (204 . 9557) + (205 . 9560) + (206 . 9563) + (207 . 9566) + (208 . 9567) + (209 . 9568) + (210 . 9569) + (211 . 9570) + (212 . 9572) + (213 . 9574) + (214 . 9576) + (215 . 9577) + (216 . 9578) + (217 . 9579) + (218 . 9580) + (219 . 9581) + (220 . 9583) + (221 . 9587) + (222 . 8491) + (223 . 8492))) +(DECLARE%: DOEVAL@COMPILE DONTCOPY + +(GLOBALVARS *JIS-TO-XCCS-CONV-NO-FONT-TABLE* *JIS-TO-XCCS-CONV-TABLE-LIST* *JIS-TO-XCCS-CODE-MAP* + *HANKAKU-TO-ZENKAKU-CODE-MAP* *JIS-1KU-TO-XCCS-CONV-TABLE* *JIS-2KU-TO-XCCS-CONV-TABLE* + *JIS-6KU-TO-XCCS-CONV-TABLE* *XCCS-TO-JIS-CONV-TABLE* *HANKAKU-TO-ZENKAKU-CONV-TABLE* + *ZENKAKU-TO-HANKAKU-CONV-TABLE*) +) +(DEFINEQ + +(\MAKE.JIS.TO.XCCS.CONV.TABLE + [LAMBDA NIL (* ; "Edited 20-Feb-91 19:28 by nm") + +(* ;;; "The JIS codes which are not equivalent to XCCS reside in 1, 2, 3, 6, 8 and 84 KU. In case of 3 and 84 KU, the corresponding XCCS is calicutated from JIS. In case of 1,2 and 6 KU, we have to prepare conversion tables for each because the mapping between XCCS and JIS are random. 8 KU is treated specially because no displayable font is assigned for 8 KU in XCCS. They are handled with *JIS-TO-XCCS-CONV-NO-FONT-TABLE*.") + +(* ;;; "Each conversion table is an byte array of size 188 (94 * 2). 94 is a largest number of TEN. TEN is one origin. Each JIS code is represented with two bytes in the table. The first byte is a character set and the second byte is a character code in XCCS. If both of the first byte and the second byte are 255, it means the JIS code is not defined for the entry. If the first byte is 255 and the second byte is 0, it means a JIS code is defined for the entry and there is a XCCS code corresponding to the JIS code, but no displayable font is assigned for the code in XCCS. In the last case, the real XCCS code is found in *JIS-TO-XCCS-CONV-NO-FONT-TABLE*.") + +(* ;;; "*HANKAKU-TO-ZENKAKU-CONV-TABLE* holds the mapping between JIS HANAKAKU-KANA code to XCCS. XCCS does not support HANKAKU code.") + + (SETQ *JIS-1KU-TO-XCCS-CONV-TABLE* (ARRAY 188 'BYTE 255)) + (SETQ *JIS-2KU-TO-XCCS-CONV-TABLE* (ARRAY 188 'BYTE 255)) + (SETQ *JIS-6KU-TO-XCCS-CONV-TABLE* (ARRAY 188 'BYTE 255)) + (SETQ *XCCS-TO-JIS-CONV-TABLE* (HASHARRAY 256)) + (SETQ *HANKAKU-TO-ZENKAKU-CONV-TABLE* (HASHARRAY 64)) + (SETQ *ZENKAKU-TO-HANKAKU-CONV-TABLE* (HASHARRAY 64)) + (CL:DO ((TABLES (LIST *JIS-1KU-TO-XCCS-CONV-TABLE* *JIS-2KU-TO-XCCS-CONV-TABLE* + *JIS-6KU-TO-XCCS-CONV-TABLE*) + (CDR TABLES)) + (KU '(1 2 6) + (CDR KU)) + CODEMAP) + ((CL:ENDP TABLES)) + (SETQ CODEMAP (CDR (ASSOC (CAR KU) + *JIS-TO-XCCS-CODE-MAP*))) + (for MAP in CODEMAP do (SETA (CAR TABLES) + (IDIFFERENCE (UNFOLD (CAR MAP) + 2) + 1) + (CADR MAP)) + (SETA (CAR TABLES) + (UNFOLD (CAR MAP) + 2) + (CDDR MAP)))) + (bind KU TEN TABLE for ENTRY in *JIS-TO-XCCS-CONV-NO-FONT-TABLE* + do (SETQ KU (IDIFFERENCE (FOLDLO (CAR ENTRY) + 256) + 32)) + (SETQ TABLE (SELECTQ KU + (1 *JIS-1KU-TO-XCCS-CONV-TABLE*) + (2 *JIS-2KU-TO-XCCS-CONV-TABLE*) + (6 *JIS-6KU-TO-XCCS-CONV-TABLE*) + NIL)) + (AND TABLE (SETA TABLE (UNFOLD (IDIFFERENCE (LOGAND 255 (CAR ENTRY)) + 32) + 2) + 0))) + (for MAP in *HANKAKU-TO-ZENKAKU-CODE-MAP* do (PUTHASH (CAR MAP) + (CDR MAP) + *HANKAKU-TO-ZENKAKU-CONV-TABLE*)) + (for MAP in *HANKAKU-TO-ZENKAKU-CODE-MAP* do (PUTHASH (CDR MAP) + (CAR MAP) + *ZENKAKU-TO-HANKAKU-CONV-TABLE*)) + (for MAP + in (APPEND [for KU in *JIS-TO-XCCS-CODE-MAP* + join (for TEN in (CDR KU) + collect `(,(LOGOR (UNFOLD (CADR TEN) + 256) + (CDDR TEN)) + \, + (LOGOR (UNFOLD (IPLUS (CAR KU) + 32) + 256) + (IPLUS (CAR TEN) + 32] + *JIS-TO-XCCS-CONV-NO-FONT-TABLE*) do (PUTHASH (CAR MAP) + (CDR MAP) + *XCCS-TO-JIS-CONV-TABLE*)) + (SETQ *JIS-TO-XCCS-CONV-TABLE-LIST* `((33 \, *JIS-1KU-TO-XCCS-CONV-TABLE*) + (34 \, *JIS-2KU-TO-XCCS-CONV-TABLE*) + (38 \, *JIS-6KU-TO-XCCS-CONV-TABLE*]) +) +(DECLARE%: DONTEVAL@LOAD DOCOPY + +(\MAKE.JIS.TO.XCCS.CONV.TABLE) +) +(DECLARE%: DOEVAL@COMPILE DONTCOPY +(* "FOLLOWING DEFINITIONS EXPORTED")(DECLARE%: EVAL@COMPILE + +(PUTPROPS \CONV.JIS.TO.XCCS MACRO [OPENLAMBDA (KU TEN) + +(* ;;; "Some character code is not equivalent between JIS and XCCS. In such case, we have to convert the character to corresponding XCCS.") + + (COND + ((\NOT.EQUIVALENT.TO.XCCS KU) + (\DO.CONV.JIS.TO.XCCS KU TEN)) + (T (LOGOR (UNFOLD KU 256) + TEN]) + +(PUTPROPS \DO.CONV.JIS.TO.XCCS MACRO + [(KU TEN) + +(* ;;; " Convert a JIS code divided into KU (high 8 bit) and TEN (low 8 bit) to an corresponding XCCS code.") + + (COND + ((\INVALID.TENP TEN) + *DEFAULT-NOT-CONVERTED-FAT-CODE*) + (T (SELECTQ KU + ((33 34 38) (* ; "1, 2 and 6 KU") + [LET* ((CONVTABLE (\EXTARACT.CONV.TABLE KU)) + (SET (\EXTRACT.SET TEN CONVTABLE)) + (CODE (\EXTRACT.CODE TEN CONVTABLE))) + (COND + ((NEQ SET 255) + (LOGOR (UNFOLD SET 256) + CODE)) + (T (COND + ((EQ CODE 255) (* ; "Not defined in JIS.") + *DEFAULT-NOT-CONVERTED-FAT-CODE*) + (T (* ; + "Defined in JIS but the displayable font is not assigned in the corresponding code in XCCS.") + (COND + (*REPLACE-NO-FONT-CODE* + *DEFAULT-NOT-CONVERTED-FAT-CODE*) + (T (\EXTRACT.NO.FONT.CODE (LOGOR (UNFOLD KU 256) + TEN]) + (35 (* ; "3 KU") + (* ; + "Alpha numeric codes are all defined as single byte codes in XCCS.") + TEN) + (40 (* ; "8 KU") + (COND + [(< 0 TEN 33) + (COND + (*REPLACE-NO-FONT-CODE* *DEFAULT-NOT-CONVERTED-FAT-CODE*) + (T (\EXTRACT.NO.FONT.CODE (LOGOR KU TEN] + (T *DEFAULT-NOT-CONVERTED-FAT-CODE*))) + (116 (* ; "84 KU") + (COND + ((< 0 TEN 5) + (LOGOR 29952 TEN)) + (T *DEFAULT-NOT-CONVERTED-FAT-CODE*))) + (117 (* ; "85 KU") + (COND + ((< 0 TEN 28) + (LOGOR 29696 TEN)) + (T *DEFAULT-NOT-CONVERTED-FAT-CODE*))) + *DEFAULT-NOT-CONVERTED-FAT-CODE*]) +) + +(* "END EXPORTED DEFINITIONS") + +) +(DEFINEQ + +(\JISIN [LAMBDA (STREAM BYTECOUNTVAR BYTECOUNTVAL) (* ; "Edited 15-Jun-2021 15:24 by rmk:") (* ;;; "Returns a 16 bit XCCS code. Assuming the input character stream is encoded with JIS. Allows the incorrect usage of KI and KO based on the two different JIS, OLDJIS and NEWJIS, because it is very likely that these two different sets of KI and KO are used simultaneously, although it is against a standard! ") (* ;;; "If COUNP is non-NIL, the number of bytes read is returned as a second value. Doesn't do EOL conversion -- \INCHAR or \INCCODE do that.") (PROG (CH1 CH2 CH3 (IN16BITFLG (\KIMODEP STREAM T)) (CHARNUM 0)) RETRY (AND (SETQ CH1 (\BIN STREAM)) (COND [(EQ CH1 (CHARCODE ESC)) (* ; "Might be KI or KO.") (SETQ CH2 (\BIN STREAM)) (COND [(EQ CH2 (CHARCODE $)) (* ; "Might be KI") (SETQ CH3 (\BIN STREAM)) (COND ((OR (EQ CH3 (CHARCODE B)) (EQ CH3 (CHARCODE @))) (* ; "KI") (\CHNAGE.KI.MODE STREAM T T) [AND BYTECOUNTVAR (SET BYTECOUNTVAR (IDIFFERENCE BYTECOUNTVAL (SETQ CHARNUM (IPLUS CHARNUM 3] (* ; "Here we have to try the same preocedure again, because bogus duplicated KI/KO sequence might come again!") (SETQ IN16BITFLG T) (GO RETRY)) (T (RETURN (COND (IN16BITFLG (* ; "Under processing 16 bit code.") (\BACKFILEPTR STREAM) [AND BYTECOUNTVAR (SET BYTECOUNTVAR (IDIFFERENCE BYTECOUNTVAL (IPLUS 2 CHARNUM] (\CONV.JIS.TO.XCCS CH1 CH2)) (T (\BACKFILEPTR STREAM) (\BACKFILEPTR STREAM) [AND BYTECOUNTVAR (SET BYTECOUNTVAR (IDIFFERENCE BYTECOUNTVAL (IPLUS 1 CHARNUM] (CHARCODE ESC] [(EQ CH2 (CHARCODE %()) (* ; "Might be KO") (SETQ CH3 (\BIN STREAM)) (COND ((OR (EQ CH3 (CHARCODE J)) (EQ CH3 (CHARCODE H))) (* ; "KO") (\CHNAGE.KI.MODE STREAM T NIL) [AND BYTECOUNTVAR (SET BYTECOUNTVAR (IDIFFERENCE BYTECOUNTVAL (SETQ CHARNUM (IPLUS CHARNUM 3] (* ;  "Oops. Yes, we have to try again to ignore duplicated KI/KO sequence.") (SETQ IN16BITFLG NIL) (GO RETRY)) (T (RETURN (COND (IN16BITFLG (* ; "Under processing 16 bit code.") (\BACKFILEPTR STREAM) [AND BYTECOUNTVAR (SET BYTECOUNTVAR (IDIFFERENCE BYTECOUNTVAL (IPLUS CHARNUM 2] (\CONV.JIS.TO.XCCS CH1 CH2)) (T (\BACKFILEPTR STREAM) (\BACKFILEPTR STREAM) [AND BYTECOUNTVAR (SET BYTECOUNTVAR (IDIFFERENCE BYTECOUNTVAL (IPLUS CHARNUM 1] (CHARCODE ESC] (IN16BITFLG (* ; "Under processing 16 bit code.") [AND BYTECOUNTVAR (SET BYTECOUNTVAR (IDIFFERENCE BYTECOUNTVAL (IPLUS CHARNUM 2] (RETURN (\CONV.JIS.TO.XCCS CH1 CH2))) (T (\BACKFILEPTR STREAM) [AND BYTECOUNTVAR (SET BYTECOUNTVAR (IDIFFERENCE BYTECOUNTVAL (IPLUS CHARNUM 1] (RETURN (CHARCODE ESC] [IN16BITFLG (* ; "Under processing 16 bit code.") [AND BYTECOUNTVAR (SET BYTECOUNTVAR (IDIFFERENCE BYTECOUNTVAL (IPLUS CHARNUM 2] (RETURN (\CONV.JIS.TO.XCCS CH1 (\BIN STREAM] ((\HANKAKUP CH1) (* ; "HANKAKU-KATAKANA is converted to ZENKAKU-KATAKANA because XCCS does not support HANKAKU-KATAKANA.") [AND BYTECOUNTVAR (SET BYTECOUNTVAR (IDIFFERENCE BYTECOUNTVAL (IPLUS CHARNUM 1] (RETURN (\CONV.HANKAKU.KANA CH1))) (T (* ;; "C0, SP, DEL, C1, 10/0, or 15/15 of 0 character set.") [AND BYTECOUNTVAR (SET BYTECOUNTVAR (IDIFFERENCE BYTECOUNTVAL (IPLUS CHARNUM 1] (RETURN CH1]) + +(\JISPEEK + [LAMBDA (STREAM NOERROR COUNTP) (* ; "Edited 25-Feb-91 16:27 by nm") + +(* ;;; "Returns a 16 bit XCCS code. Assuming the input character stream is encoded with JIS. Allows the incorrect usage of KI and KO based on the two different JIS, OLDJIS and NEWJIS, because it is very likely that these two different sets of KI and KO are used simultaneously, although it is against a standard! May actually read the KI or KO. ") + +(* ;;; "If COUNTP is non-NIL, the number of bytes read is returned as a second value. Doesn't do EOL conversion -- \INCHAR or \INCCODE do that.") + + (PROG ((IN16BITFLG (\KIMODEP STREAM T)) + (CHARNUM 0) + (CH1 (\PEEKBIN STREAM NOERROR)) + CH2 CH3) + RETRY + (COND + [(NULL CH1) + (COND + (COUNTP (RETURN (CL:VALUES NIL CHARNUM))) + (T (RETURN NIL] + [(EQ CH1 (CHARCODE ESC)) (* ; "Might be KI or KO.") + (\BIN STREAM) (* ; "Consume the first ESC.") + (SETQ CH2 (\PEEKBIN STREAM NOERROR)) + (COND + [(NULL CH2) + (\BACKFILEPTR STREAM) + (COND + (COUNTP (RETURN (CL:VALUES NIL CHARNUM))) + (T (RETURN NIL] + [(EQ CH2 (CHARCODE $)) (* ; "Might be KI") + (\BIN STREAM) (* ; "Consume the $.") + (SETQ CH3 (\PEEKBIN STREAM NOERROR)) + (COND + [(NULL CH3) + (\BACKFILEPTR STREAM) + (\BACKFILEPTR STREAM) + (COND + (COUNTP (RETURN (CL:VALUES NIL CHARNUM))) + (T (RETURN NIL] + ((OR (EQ CH3 (CHARCODE B)) + (EQ CH3 (CHARCODE @))) (* ; "KI") + (\CHNAGE.KI.MODE STREAM T T) + (AND COUNTP (SETQ CHARNUM (IPLUS CHARNUM 3))) + (\BIN STREAM) (* ; "Consume the B or @.") + (SETQ IN16BITFLG T) + (GO RETRY)) + (T (\BACKFILEPTR STREAM) + (\BACKFILEPTR STREAM) + (COND + [IN16BITFLG (* ; "Under processing 16 bit code.") + (COND + (COUNTP (RETURN (CL:VALUES (\CONV.JIS.TO.XCCS CH1 CH2) + CHARNUM))) + (T (RETURN (\CONV.JIS.TO.XCCS CH1 CH2] + (T (COND + (COUNTP (RETURN (CL:VALUES (CHARCODE ESC) + CHARNUM))) + (T (RETURN (CHARCODE ESC] + [(EQ CH2 (CHARCODE %()) (* ; "Might be KO") + (\BIN STREAM) (* ; "Consume the (.") + (SETQ CH3 (\PEEKBIN STREAM NOERROR)) + (COND + [(NULL CH3) + (\BACKFILEPTR STREAM) + (\BACKFILEPTR STREAM) + (COND + (COUNTP (RETURN (CL:VALUES NIL CHARNUM))) + (T (RETURN NIL] + ((OR (EQ CH3 (CHARCODE J)) + (EQ CH3 (CHARCODE H))) (* ; "KO") + (\CHNAGE.KI.MODE STREAM T NIL) + (AND COUNTP (SETQ CHARNUM 3)) + (\BIN STREAM) (* ; "Consume the J or H.") + (SETQ IN16BITFLG NIL) + (GO RETRY)) + (T (\BACKFILEPTR STREAM) + (\BACKFILEPTR STREAM) + (COND + [IN16BITFLG (* ; "Under processing 16 bit code.") + (COND + (COUNTP (RETURN (CL:VALUES (\CONV.JIS.TO.XCCS CH1 CH2) + CHARNUM))) + (T (RETURN (\CONV.JIS.TO.XCCS CH1 CH2] + (T (COND + (COUNTP (RETURN (CL:VALUES (CHARCODE ESC) + CHARNUM))) + (T (RETURN (CHARCODE ESC] + [IN16BITFLG (* ; "Under processing 16 bit code.") + (\BACKFILEPTR STREAM) + (COND + (COUNTP (RETURN (CL:VALUES (\CONV.JIS.TO.XCCS CH1 CH2) + CHARNUM))) + (T (RETURN (\CONV.JIS.TO.XCCS CH1 CH2] + (T (\BACKFILEPTR STREAM) + (COND + (COUNTP (RETURN (CL:VALUES (CHARCODE ESC) + CHARNUM))) + (T (RETURN (CHARCODE ESC] + [IN16BITFLG (* ; "Under processing 16 bit code.") + (\BIN STREAM) (* ; "Consume the first byte.") + (SETQ CH2 (\PEEKBIN STREAM NOERROR)) + (\BACKFILEPTR STREAM) + (COND + [CH2 (COND + (COUNTP (RETURN (CL:VALUES (\CONV.JIS.TO.XCCS CH1 CH2) + CHARNUM))) + (T (RETURN (\CONV.JIS.TO.XCCS CH1 CH2] + (T (COND + (COUNTP (RETURN (CL:VALUES NIL CHARNUM))) + (T (RETURN NIL] + [(\HANKAKUP CH1) (* ; +"HANKAKU-KATAKANA is converted to ZENKAKU-KATAKANA because XCCS does not support HANKAKU-KATAKANA.") + (COND + (COUNTP (RETURN (CL:VALUES (\CONV.HANKAKU.KANA CH1) + CHARNUM))) + (T (RETURN (\CONV.HANKAKU.KANA CH1] + (T + (* ;; "C0, SP, DEL, C1, 10/0, or 15/15 of 0 character set.") + + (COND + (COUNTP (RETURN (CL:VALUES CH1 CHARNUM))) + (T (RETURN CH1]) + +(\BACKJISCHAR [LAMBDA (STREAM COUNTP BYTECOUNTVAR BYTECOUNTVAL) (* ; "Edited 15-Jun-2021 15:13 by rmk:") (COND ((\BACKFILEPTR STREAM) (COND [(\KIMODEP STREAM T) (COND [(\BACKFILEPTR STREAM) (AND BYTECOUNTVAR (SET BYTECOUNTVAR (IPLUS BYTECOUNTVAL 2] (T (AND BYTECOUNTVAR (SET BYTECOUNTVAR (ADD1 BYTECOUNTVAL] (AND BYTECOUNTVAR (SET BYTECOUNTVAR (ADD1 BYTECOUNTVAL]) + +(\SHIFTJISIN [LAMBDA (STREAM BYTECOUNTVAR BYTECOUNTVAL) (* ; "Edited 15-Jun-2021 15:01 by rmk:") (* ;;; "Returns a 16 bit XCCS code. Assuming the input character stream is encoded with Shift-JIS. If BYTECOUNTVAR is non-NIL, the number of bytes read is decremented from it.. Doesn't do EOL conversion -- \INCHAR or \INCCODE do that..") (LET ((CH1 (\BIN STREAM)) CH2) (AND CH1 (COND ((\SJIS.KANJI.FIRST.BYTEP CH1) (* ;  "Read next byte and compose a kanji character.") (\CONV.SJIS.TO.JIS CH1 (\BIN STREAM)) (* ;  "CH1 and CH2 is adjusted to represent JIS code in \CONV.SJIS.TO.JIS.") (AND BYTECOUNTVAR (SET BYTECOUNTVAR (IDIFFERENCE BYTECOUNTVAL 2))) (\CONV.JIS.TO.XCCS CH1 CH2)) (T (* ; "ASCII or HANKAKU-KATAKANA") (AND BYTECOUNTVAR (SET BYTECOUNTVAR (SUB1 BYTECOUNTVAL))) (COND ((\HANKAKUP CH1) (* ; "HANKAKU-KATAKANA") (\CONV.HANKAKU.KANA CH1)) (T (* ; "ASCII") CH1]) + +(\SHIFTJISPEEK + [LAMBDA (STREAM NOERROR COUNTP) (* ; "Edited 25-Feb-91 16:30 by nm") + +(* ;;; "Returns a 16 bit XCCS code. Assuming the input character stream is encoded with Shift-JIS. Doesn't do EOL conversion -- \INCHAR or \INCCODE do that.") + + (PROG ((CH1 (\PEEKBIN STREAM NOERROR)) + CH2) + (COND + [(NULL CH1) + (COND + (COUNTP (RETURN (CL:VALUES NIL 0))) + (T (RETURN NIL] + [(\SJIS.KANJI.FIRST.BYTEP CH1) (* ; + "Read next byte and compose a kanji character.") + (\BIN STREAM) (* ; "Consume the first byte.") + [COND + ((NULL (SETQ CH2 (\PEEKBIN STREAM NOERROR))) + (\BACKFILEPTR STREAM) + (COND + (COUNTP (RETURN (CL:VALUES NIL 0))) + (T (RETURN NIL] + (\BACKFILEPTR STREAM) + (\CONV.SJIS.TO.JIS CH1 CH2) (* ; + "CH1 and CH2 is adjusted to represent JIS code in \CONV.SJIS.TO.JIS.") + (COND + (COUNTP (RETURN (CL:VALUES (\CONV.JIS.TO.XCCS CH1 CH2) + 0))) + (T (RETURN (\CONV.JIS.TO.XCCS CH1 CH2] + (T (* ; "ASCII or HANKAKU-KATAKANA") + (RETURN (COND + [(\HANKAKUP CH1) (* ; "HANKAKU-KATAKANA") + (COND + (COUNTP (RETURN (CL:VALUES (\CONV.HANKAKU.KANA CH1) + 0))) + (T (RETURN (\CONV.HANKAKU.KANA CH1] + (T (* ; "ASCII") + (COND + (COUNTP (RETURN (CL:VALUES CH1 0))) + (T (RETURN CH1]) + +(\BACKSHIFTJISCHAR [LAMBDA (STREAM BYTECOUNTVAR BYTECOUNTVAL) (* ; "Edited 15-Jun-2021 15:11 by rmk:") (COND ((\BACKFILEPTR STREAM) (COND [(\BACKFILEPTR STREAM) (COND [(\SJIS.KANJI.FIRST.BYTEP (\PEEKBIN STREAM)) (AND BYTECOUNTVAR (SET BYTECOUNTVAR (IPLUS BYTECOUNTVAL 2] (T (\BIN STREAM) (AND BYTECOUNTVAR (SET BYTECOUNTVAR (IPLUS BYTECOUNTVAL 1] (AND BYTECOUNTVAR (SET BYTECOUNTVAR (IPLUS BYTECOUNTVAL 1]) + +(\EUCIN [LAMBDA (STREAM BYTECOUNTVAR BYTECOUNTVAL) (* ; "Edited 15-Jun-2021 15:04 by rmk:") (* ;;; "Returns a 16 bit XCCS code. Assuming the input character stream is encoded with EUC (Extended Unix Codes). Although EUC is independent of a particular language, the language implemented here is Japanese, thus this should be called as UJIS (Unixnized extended JIS code). JEIDA uses EUC as UJIS. ") (* ;;; "If COUNP is non-NIL, the number of bytes read is returned as a second value. Doesn't do EOL conversion -- \INCHAR or \INCCODE do that.") (LET ((CH1 (\BIN STREAM)) CH2) (AND CH1 (COND ((\EUC.KANJI.FIRST.BYTEP CH1) (* ;  "Read next byte and compose a kanji character.") (AND BYTECOUNTVAR (SET BYTECOUNTVAR (IDIFFERENCE BYTECOUNTVAL 2))) (\CONV.JIS.TO.XCCS (LOGAND CH1 127) (LOGAND (\BIN STREAM) 127))) ((\EUC.HANKAKUP CH1) (AND BYTECOUNTVAR (SET BYTECOUNTVAR (IDIFFERENCE BYTECOUNTVAL 2))) (\CONV.HANKAKU.KANA (\BIN STREAM))) ((\GAIJIP CH1) (AND BYTECOUNTVAR (SET BYTECOUNTVAR (IDIFFERENCE BYTECOUNTVAL 3))) (CL:VALUES (\CONV.JIS.TO.XCCS (LOGAND (\BIN STREAM) 127) (LOGAND (\BIN STREAM) 127)) 3)) (T (* ; "ASCII, C0, C1, SP or DEL") (AND BYTECOUNTVAR (SET BYTECOUNTVAR (SUB1 BYTECOUNTVAL))) CH1]) + +(\EUCPEEK + [LAMBDA (STREAM NOERROR COUNTP) (* ; "Edited 25-Feb-91 16:35 by nm") + +(* ;;; "Returns a 16 bit XCCS code. Assuming the input character stream is encoded with EUC (Extended Unix Codes). Although EUC is independent of a particular language, the language implemented here is Japanese, thus this should be called as UJIS (Unixnized extended JIS code). JEIDA uses EUC as UJIS. Doesn't do EOL conversion -- \INCHAR or \INCCODE do that.") + + (PROG ((CH1 (\PEEKBIN STREAM NOERROR)) + CH2) + (COND + [(NULL CH1) + (COND + (COUNTP (RETURN (CL:VALUES NIL 0))) + (T (RETURN NIL] + [(\EUC.KANJI.FIRST.BYTEP CH1) (* ; + "Read next byte and compose a kanji character.") + (\BIN STREAM) (* ; "Consume the first byte.") + [COND + ((NULL (SETQ CH2 (\PEEKBIN STREAM NOERROR))) + (\BACKFILEPTR STREAM) + (COND + (COUNTP (RETURN (CL:VALUES NIL 0))) + (T (RETURN NIL] + (\BACKFILEPTR STREAM) + (COND + (COUNTP (RETURN (CL:VALUES (\CONV.JIS.TO.XCCS (LOGAND CH1 127) + (LOGAND CH2 127)) + 0))) + (T (RETURN (\CONV.JIS.TO.XCCS (LOGAND CH1 127) + (LOGAND CH2 127] + [(\EUC.HANKAKUP CH1) + (\BIN STREAM) (* ; "Consume the SS2.") + [COND + ((NULL (SETQ CH2 (\PEEKBIN STREAM NOERROR))) + (\BACKFILEPTR STREAM) + (COND + (COUNTP (RETURN (CL:VALUES NIL 0))) + (T (RETURN NIL] + (\BACKFILEPTR STREAM) + (COND + (COUNTP (RETURN (CL:VALUES (\CONV.HANKAKU.KANA CH2) + 0))) + (T (RETURN (\CONV.HANKAKU.KANA CH2] + [(\GAIJIP CH1) + (\BIN STREAM) (* ; "Consume the SS3.") + [COND + ((NULL (SETQ CH1 (\PEEKBIN STREAM NOERROR))) + (\BACKFILEPTR STREAM) + (COND + (COUNTP (RETURN (CL:VALUES NIL 0))) + (T (RETURN NIL] + (\BIN STREAM) (* ; + "Consume the first byte in GAIJI.") + [COND + ((NULL (SETQ CH2 (\PEEKBIN STREAM NOERROR))) + (\BACKFILEPTR STREAM) + (\BACKFILEPTR STREAM) + (COND + (COUNTP (RETURN (CL:VALUES NIL 0))) + (T (RETURN NIL] + (\BACKFILEPTR STREAM) + (\BACKFILEPTR STREAM) + (COND + (COUNTP (RETURN (CL:VALUES (\CONV.JIS.TO.XCCS (LOGAND CH1 127) + (LOGAND CH2 127)) + 0))) + (T (RETURN (\CONV.JIS.TO.XCCS (LOGAND CH1 127) + (LOGAND CH2 127] + (T (* ; "ASCII, C0, C1, SP or DEL") + (COND + (COUNTP (RETURN (CL:VALUES CH1 0))) + (T (RETURN CH1]) + +(\BACKEUCCHAR [LAMBDA (STREAM BYTECOUNTVAR BYTECOUNTVAL) (* ; "Edited 15-Jun-2021 15:11 by rmk:") (COND ((\BACKFILEPTR STREAM) (COND [(BITTEST (\PEEKBIN STREAM) (MASK.1'S 7 1)) (* ; "C1, KAINJI, HANKAKU or GAIJI") (COND [(\BACKFILEPTR STREAM) (COND [(\EUC.HANKAKUP (\PEEKBIN STREAM)) (AND BYTECOUNTVAR (SET BYTECOUNTVAR (IPLUS BYTECOUNTVAL 2] [(BITTEST (\PEEKBIN STREAM) (MASK.1'S 7 1)) (* ; "KANJI or GAIJI") (COND [(\BACKFILEPTR STREAM) (COND [(\GAIJIP (\PEEKBIN STREAM)) (AND BYTECOUNTVAR (SET BYTECOUNTVAR (IPLUS BYTECOUNTVAL 3] (T (* ; "KANJI") (\BIN STREAM) (AND BYTECOUNTVAR (SET BYTECOUNTVAR (IPLUS BYTECOUNTVAL 2] (AND BYTECOUNTVAR (SET BYTECOUNTVAR (IPLUS BYTECOUNTVAL 2] (T (* ; "C1") (\BIN STREAM) (AND BYTECOUNTVAR (SET BYTECOUNTVAR (ADD1 BYTECOUNTVAL] (AND BYTECOUNTVAR (SET BYTECOUNTVAR (ADD1 BYTECOUNTVAL] (AND BYTECOUNTVAR (SET BYTECOUNTVAR (ADD1 BYTECOUNTVAL]) +) +(DEFINEQ + +(\JISOUTCHARFN + [LAMBDA (OUTSTREAM CHARCODE) (* ; "Edited 11-Mar-91 11:49 by nm") + +(* ;;; "Encoder for JIS format.") + + (COND + ((EQ CHARCODE (CHARCODE EOL)) + (COND + ((\KIMODEP OUTSTREAM NIL) + (\OUTKO OUTSTREAM) + (\CHNAGE.KI.MODE OUTSTREAM NIL NIL))) + (\BOUT OUTSTREAM (SELECTC (ffetch EOLCONVENTION of OUTSTREAM) + (CR.EOLC (CHARCODE CR)) + (LF.EOLC (CHARCODE LF)) + (CRLF.EOLC (\BOUT OUTSTREAM (CHARCODE CR)) + + (* ;; "Don't put out high-order byte preceding LF. The CRLF is EOL only if the bytes are immediately adjacent in the stream, with no additional encoding bytes") + + (CHARCODE LF)) + (SHOULDNT))) + (freplace CHARPOSITION of OUTSTREAM with 0)) + (T (SETQ CHARCODE (\CONV.XCCS.TO.JIS OUTSTREAM CHARCODE)) + (* ; + "\CONV.XCCS.TO.JIS converts ZENKAKUKATAKANA to HANKAKUKATAKANA if the stream desires it.") + (COND + ((> CHARCODE 255) + (COND + ((NOT (\KIMODEP OUTSTREAM NIL)) + (\OUTKI OUTSTREAM) + (\CHNAGE.KI.MODE OUTSTREAM NIL T))) + (\BOUT OUTSTREAM (\CHARSET CHARCODE)) + (\BOUT OUTSTREAM (\CHAR8CODE CHARCODE))) + (T (* ; "ASCII or HANKAKUKATAKANA") + (COND + ((\KIMODEP OUTSTREAM NIL) + (\OUTKO OUTSTREAM) + (\CHNAGE.KI.MODE OUTSTREAM NIL NIL))) + (\BOUT OUTSTREAM CHARCODE))) + (freplace CHARPOSITION of OUTSTREAM with (PROGN + (* ; "Ugh. Don't overflow") + (IPLUS16 (ffetch + CHARPOSITION + of OUTSTREAM) + 1]) + +(\SHIFTJISOUTCHARFN + [LAMBDA (OUTSTREAM CHARCODE) (* ; "Edited 7-Mar-91 21:55 by nm") + +(* ;;; "Encoder for Shift-JIS format.") + + (COND + ((EQ CHARCODE (CHARCODE EOL)) + (\BOUT OUTSTREAM (SELECTC (ffetch EOLCONVENTION of OUTSTREAM) + (CR.EOLC (CHARCODE CR)) + (LF.EOLC (CHARCODE LF)) + (CRLF.EOLC (\BOUT OUTSTREAM (CHARCODE CR)) + + (* ;; "Don't put out high-order byte preceding LF. The CRLF is EOL only if the bytes are immediately adjacent in the stream, with no additional encoding bytes") + + (CHARCODE LF)) + (SHOULDNT))) + (freplace CHARPOSITION of OUTSTREAM with 0)) + (T (SETQ CHARCODE (\CONV.XCCS.TO.JIS OUTSTREAM CHARCODE)) + (* ; + "\CONV.XCCS.TO.JIS converts ZENKAKUKATAKANA to HANKAKUKATAKANA if the stream desires it.") + (COND + [(> CHARCODE 255) + (LET ((CH1 (FOLDLO CHARCODE 256)) + (CH2 (LOGAND CHARCODE 255))) + (\CONV.JIS.TO.SJIS CH1 CH2) + (COND + ((AND (< CH1 256) + (< CH2 256)) + (\BOUT OUTSTREAM CH1) + (\BOUT OUTSTREAM CH2] + (T (\BOUT OUTSTREAM CHARCODE))) + (freplace CHARPOSITION of OUTSTREAM with (PROGN + (* ; "Ugh. Don't overflow") + (IPLUS16 (ffetch + CHARPOSITION + of OUTSTREAM) + 1]) + +(\EUCOUTCHARFN + [LAMBDA (OUTSTREAM CHARCODE) (* ; "Edited 11-Mar-91 11:29 by nm") + +(* ;;; "Encoder for EUC format.") + + (COND + ((EQ CHARCODE (CHARCODE EOL)) + (\BOUT OUTSTREAM (SELECTC (ffetch EOLCONVENTION of OUTSTREAM) + (CR.EOLC (CHARCODE CR)) + (LF.EOLC (CHARCODE LF)) + (CRLF.EOLC (\BOUT OUTSTREAM (CHARCODE CR)) + + (* ;; "Don't put out high-order byte preceding LF. The CRLF is EOL only if the bytes are immediately adjacent in the stream, with no additional encoding bytes") + + (CHARCODE LF)) + (SHOULDNT))) + (freplace CHARPOSITION of OUTSTREAM with 0)) + (T (SETQ CHARCODE (\CONV.XCCS.TO.JIS OUTSTREAM CHARCODE)) + (* ; + "\CONV.XCCS.TO.JIS converts ZENKAKUKATAKANA to HANKAKUKATAKANA if the stream desires it.") + (COND + ((> CHARCODE 255) (* ; "KANJI or GAIJI") + (AND (NOT (\NOTGAIJIP CHARCODE)) + (\BOUT OUTSTREAM 143)) + (\BOUT OUTSTREAM (LOGOR (\CHARSET CHARCODE) + 128)) + (\BOUT OUTSTREAM (LOGOR (\CHAR8CODE CHARCODE) + 128))) + ((\HANKAKUP CHARCODE) + (\BOUT OUTSTREAM 142) + (\BOUT OUTSTREAM (LOGOR CHARCODE 128))) + (T (* ; "C0, C1, SP, DEL or G0") + (\BOUT OUTSTREAM CHARCODE))) + (freplace CHARPOSITION of OUTSTREAM with (PROGN + (* ; "Ugh. Don't overflow") + (IPLUS16 (ffetch + CHARPOSITION + of OUTSTREAM) + 1]) +) +(DEFINEQ + +(CONVHANKAKU + [LAMBDA ARGS (* ; "Edited 8-Feb-91 13:42 by nm") + (PROG1 (STREAMPROP (ARG ARGS 1) + :HTOZP) + (AND (> ARGS 1) + (STREAMPROP (ARG ARGS 1) + :HTOZP + (ARG ARGS 2))))]) +) +(DECLARE%: DOEVAL@COMPILE DONTCOPY +(* "FOLLOWING DEFINITIONS EXPORTED")(DECLARE%: EVAL@COMPILE + +(PUTPROPS \CONV.XCCS.TO.JIS MACRO (OPENLAMBDA (OUTSTREAM CC) + +(* ;;; "Returns JIS code corresponding to XCCS charcode. Handle HANKAKU as well as ZENKAKU. If OUTSTREAM wants to convert ZENKAKUKANA to HANKAKUKANA, do so. Never returns two byte charcode for alpha-numeric character, they are all treated as single byte characode.") + + (OR (COND + ((\ASCIIP CC) + CC) + ((\NOT.EQUIVALENT.TO.JIS CC) + (\DO.CONV.XCCS.TO.JIS CC)) + ((\CONV.HANKAKU.TO.ZENKAKUP OUTSTREAM) + (* ; + "ZENKAKUKANA comes here, because their charcodes are equiavalent to JIS.") + (\CONV.ZENKAKU.KANA CC)) + (T CC)) + CC))) + +(PUTPROPS \DO.CONV.XCCS.TO.JIS MACRO ((CC) + (GETHASH CC *XCCS-TO-JIS-CONV-TABLE*))) + +(PUTPROPS \ASCIIP MACRO (OPENLAMBDA (CC) + (AND (EQ (FOLDLO CC 256) + 0) + (< (LOGAND CC 255) + 128)))) + +(PUTPROPS \NOT.EQUIVALENT.TO.JIS MACRO (OPENLAMBDA (CC) + (OR (EQ (FOLDLO CC 256) + 0) + (EQ (FOLDLO CC 256) + 33) + (EQ (FOLDLO CC 256) + 34) + (EQ (FOLDLO CC 256) + 38) + (EQ (FOLDLO CC 256) + 40) + (EQ (FOLDLO CC 256) + 239) + (EQ (FOLDLO CC 256) + 241)))) + +(PUTPROPS \CONV.HANKAKU.TO.ZENKAKUP MACRO ((OUTSTREAM) + (STREAMPROP OUTSTREAM :HTOZP))) + +(PUTPROPS \CONV.ZENKAKU.KANA MACRO ((CHAR) + (GETHASH CHAR *ZENKAKU-TO-HANKAKU-CONV-TABLE*))) +) + +(* "END EXPORTED DEFINITIONS") + +) +(DECLARE%: DOEVAL@COMPILE DONTCOPY +(DECLARE%: EVAL@COMPILE + +(PUTPROPS \EXTRACT.NO.FONT.CODE MACRO ((JISCODE) + (CDR (ASSOC JISCODE *JIS-TO-XCCS-CONV-NO-FONT-TABLE*)) + )) + +(PUTPROPS \EXTARACT.CONV.TABLE MACRO ((KU) + (CDR (ASSOC KU *JIS-TO-XCCS-CONV-TABLE-LIST*)))) + +(PUTPROPS \NOT.EQUIVALENT.TO.XCCS MACRO ((KU) + +(* ;;; " The JIS codes which are not equiavelent to XCCS reside in 1, 2, 3, 6, 8 and 84 KU. Although from 84-5 to 94-94 inclusive are not defined in JIS, that is they are GAIJI, they are also handled here.") + + (OR (EQ KU 33) + (EQ KU 34) + (EQ KU 35) + (EQ KU 38) + (EQ KU 40) + (EQ KU 116) + (EQ KU 117)))) + +(PUTPROPS \EXTRACT.SET MACRO ((TEN TABLE) + (ELT TABLE (IDIFFERENCE (UNFOLD (IDIFFERENCE TEN 32) + 2) + 1)))) + +(PUTPROPS \EXTRACT.CODE MACRO ((TEN TABLE) + (ELT TABLE (UNFOLD (IDIFFERENCE TEN 32) + 2)))) + +(PUTPROPS \CHNAGE.KI.MODE MACRO [OPENLAMBDA (ST INPUTFLG ENTERP) + +(* ;;; +"INPUTFLG is true if \CHNAGE.KI.MODE is called in the context in which ST is an input stream.") + + (COND + [INPUTFLG (COND + (ENTERP (freplace (STREAM IN.KANJIIN) + of (\DTEST ST 'STREAM) + with T)) + (T (freplace (STREAM IN.KANJIIN) + of (\DTEST ST 'STREAM) + with NIL] + (T (COND + (ENTERP (freplace (STREAM OUT.KANJIIN) + of (\DTEST ST 'STREAM) with + T)) + (T (freplace (STREAM OUT.KANJIIN) + of (\DTEST ST 'STREAM) with NIL]) + +(PUTPROPS \KIMODEP MACRO [OPENLAMBDA (ST INPUTFLG) + +(* ;;; "INPUTFLG is true if \KIMODEP is called in the context in which ST is an input stream.") + + (COND + [INPUTFLG (ffetch (STREAM IN.KANJIIN) + of (\DTEST ST 'STREAM] + (T (ffetch (STREAM OUT.KANJIIN) of (\DTEST ST + 'STREAM]) + +(PUTPROPS \HANKAKUP MACRO ((CHAR) + (< 160 CHAR 224))) + +(PUTPROPS \KANJIP MACRO ((CHAR) + (< 12158 CHAR 29733))) + +(PUTPROPS \NOTGAIJIP MACRO ((CHAR) + (OR (< 8480 CHAR 10305) + (< 12158 CHAR 29733)))) + +(PUTPROPS \INVALID.TENP MACRO (OPENLAMBDA (TEN) + (OR (< TEN 33) + (< 126 TEN)))) + +(PUTPROPS \CONV.HANKAKU.KANA MACRO ((CHAR) + (GETHASH CHAR *HANKAKU-TO-ZENKAKU-CONV-TABLE*))) + +(PUTPROPS \OUTKI MACRO ((STREAM) + (\BOUT OUTSTREAM (CHARCODE ESC)) + (\BOUT OUTSTREAM (CHARCODE $)) + (\BOUT OUTSTREAM (CHARCODE B)))) + +(PUTPROPS \OUTKO MACRO ((STREAM) + (\BOUT OUTSTREAM (CHARCODE ESC)) + (\BOUT OUTSTREAM (CHARCODE %()) + (\BOUT OUTSTREAM (CHARCODE J)))) +) + +(DECLARE%: EVAL@COMPILE + +(PUTPROPS \CONV.SJIS.TO.JIS MACRO [OPENLAMBDA (HI LO) + +(* ;;; "Convert Shift-JIS to JIS. The variable named CH1 and CH2 are set to the converted hight 8 bit and low 8bit of JIS code respectively.") + + [SETQ CH1 (IDIFFERENCE HI (COND + ((> HI 159) + 177) + (T 113] + (SETQ CH1 (IPLUS (UNFOLD CH1 2) + 1)) + (SETQ CH2 (COND + [(> LO 158) + (PROG1 (IDIFFERENCE LO 126) + (SETQ CH1 (IPLUS CH1 1)))] + (T (IDIFFERENCE LO (COND + ((> LO 126) + (IPLUS 31 1)) + (T 31]) + +(PUTPROPS \CONV.JIS.TO.SJIS MACRO [OPENLAMBDA (HI LO) + +(* ;;; "Convert JIS to Shift-JIS. The variable named CH1 and CH2 are set to the converted hight 8 bit and low 8bit of Shift-JIS code respectively.") + + [SETQ CH2 (COND + ((ODDP HI) + (SETQ CH2 (IPLUS LO 31)) + (COND + ((>= CH2 127) + (IPLUS CH2 1)) + (T CH2))) + (T (IPLUS LO 126] + (SETQ CH1 (IPLUS (FOLDLO (IDIFFERENCE HI 33) + 2) + 129)) + (AND (> CH1 159) + (SETQ CH1 (IPLUS CH1 64]) + +(PUTPROPS \SJIS.KANJI.FIRST.BYTEP MACRO (OPENLAMBDA (CHAR) + (OR (< 127 CHAR 160) + (< 223 CHAR 256)))) +) + +(DECLARE%: EVAL@COMPILE + +(PUTPROPS \EUC.KANJI.FIRST.BYTEP MACRO ((CHAR) + (< 160 CHAR 255))) + +(PUTPROPS \GAIJIP MACRO ((CHAR) + (EQ CHAR 143))) + +(PUTPROPS \EUC.HANKAKUP MACRO ((CHAR) + (EQ CHAR 142))) +) +) +(DEFINEQ + +(\CREATE.JIS.EXTERNALFORMAT + [LAMBDA NIL (* ; "Edited 23-Jun-2021 16:57 by rmk:") + +(* ;;; "Create an instance of EXTERNALFORMAT datatype and install it with :JIS as its name.") + + (\INSTALL.EXTERNALFORMAT (create EXTERNALFORMAT + NAME _ :JIS + INCCODEFN _ (FUNCTION \JISIN) + PEEKCCODEFN _ (FUNCTION \JISPEEK) + BACKCCODEFN _ (FUNCTION \BACKJISCHAR) + OUTCHARFN _ (FUNCTION \JISOUTCHARFN]) + +(\CREATE.SHIFTJIS.EXTERNALFORMAT + [LAMBDA NIL (* ; "Edited 23-Jun-2021 16:57 by rmk:") + +(* ;;; "Create two instances of EXTERNALFORMAT datatype and install them with :W-MS and :MS as their names respectively. :MS have to change the end of line convention to CRLF.") + + (\INSTALL.EXTERNALFORMAT (create EXTERNALFORMAT + NAME _ :W-MS + INCCODEFN _ (FUNCTION \SHIFTJISIN) + PEEKCCODEFN _ (FUNCTION \SHIFTJISPEEK) + BACKCCODEFN _ (FUNCTION \BACKSHIFTJISCHAR) + OUTCHARFN _ (FUNCTION \SHIFTJISOUTCHARFN))) + (\INSTALL.EXTERNALFORMAT (create EXTERNALFORMAT + NAME _ :MS + INCCODEFN _ (FUNCTION \SHIFTJISIN) + PEEKCCODEFN _ (FUNCTION \SHIFTJISPEEK) + BACKCCODEFN _ (FUNCTION \BACKSHIFTJISCHAR) + OUTCHARFN _ (FUNCTION \SHIFTJISOUTCHARFN) + EOL _ CRLF.EOLC]) + +(\CREATE.EUC.EXTERNALFORMAT + [LAMBDA NIL (* ; "Edited 23-Jun-2021 16:57 by rmk:") + +(* ;;; "Create an instance of EXTERNALFORMAT datatype and install it with :EUC as its name.") + + (\INSTALL.EXTERNALFORMAT (create EXTERNALFORMAT + NAME _ :EUC + INCCODEFN _ (FUNCTION \EUCIN) + PEEKCCODEFN _ (FUNCTION \EUCPEEK) + BACKCCODEFN _ (FUNCTION \BACKEUCCHAR) + OUTCHARFN _ (FUNCTION \EUCOUTCHARFN]) +) +(DECLARE%: DONTEVAL@LOAD DOCOPY + +(\CREATE.JIS.EXTERNALFORMAT) + +(\CREATE.SHIFTJIS.EXTERNALFORMAT) + +(\CREATE.EUC.EXTERNALFORMAT) +) +(DECLARE%: EVAL@COMPILE DONTCOPY + +(OR (GETP 'EXPORTS.ALL 'FILE) + (PRINT "NOTE: JAPANESE requires EXPORTS.ALL for compilation" T)) +) +(DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS + +(ADDTOVAR NLAMA ) + +(ADDTOVAR NLAML ) + +(ADDTOVAR LAMA CONVHANKAKU) +) +(DECLARE%: DONTCOPY + (FILEMAP (NIL (11013 16229 (\MAKE.JIS.TO.XCCS.CONV.TABLE 11023 . 16227)) (19873 44134 (\JISIN 19883 . +25968) (\JISPEEK 25970 . 32596) (\BACKJISCHAR 32598 . 33079) (\SHIFTJISIN 33081 . 34480) ( +\SHIFTJISPEEK 34482 . 36588) (\BACKSHIFTJISCHAR 36590 . 37138) (\EUCIN 37140 . 39018) (\EUCPEEK 39020 + . 42599) (\BACKEUCCHAR 42601 . 44132)) (44135 50824 (\JISOUTCHARFN 44145 . 46502) (\SHIFTJISOUTCHARFN + 46504 . 48551) (\EUCOUTCHARFN 48553 . 50822)) (50825 51144 (CONVHANKAKU 50835 . 51142)) (61868 64328 +(\CREATE.JIS.EXTERNALFORMAT 61878 . 62502) (\CREATE.SHIFTJIS.EXTERNALFORMAT 62504 . 63700) ( +\CREATE.EUC.EXTERNALFORMAT 63702 . 64326))))) +STOP diff --git a/sources/JAPANESE.LCOM b/sources/JAPANESE.LCOM new file mode 100644 index 000000000..30d3b8fdd Binary files /dev/null and b/sources/JAPANESE.LCOM differ diff --git a/sources/LLARRAYELT.LCOM b/sources/LLARRAYELT.LCOM index 408e13115..307ee5084 100644 Binary files a/sources/LLARRAYELT.LCOM and b/sources/LLARRAYELT.LCOM differ diff --git a/sources/LLBFS b/sources/LLBFS index 43800133a..1df7d841e 100644 --- a/sources/LLBFS +++ b/sources/LLBFS @@ -1,19 +1,20 @@ (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) -(FILECREATED "17-Dec-92 01:31:53" |{PELE:MV:ENVOS}SOURCES>LLBFS.;3| 76536 +(FILECREATED "13-Jun-2021 11:52:17" {DSK}kaplan>Local>medley3.5>git-medley>sources>LLBFS.;2 80544 - changes to%: (RECORDS CB DSKOBJ) + changes to%: (FNS \ACTONDISKPAGES \WRITEDISKPAGES \VIRTUALDISKDA) - previous date%: "16-May-90 18:58:12" |{PELE:MV:ENVOS}SOURCES>LLBFS.;2|) + previous date%: "17-Dec-92 01:31:53" +{DSK}kaplan>Local>medley3.5>git-medley>sources>LLBFS.;1) (* ; " -Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1990, 1992 by Venue & Xerox Corporation. All rights reserved. +Copyright (c) 1982-1987, 1990, 1992, 2021 by Venue & Xerox Corporation. ") (PRETTYCOMPRINT LLBFSCOMS) (RPAQQ LLBFSCOMS - [(COMS (* ; "Low-level subr calls") + [(COMS (* ; "Low-level subr calls") (FNS \INITBFS \TESTPARTITION \ACTONDISKPAGES \WRITEDISKPAGES \DISKERROR M44.SIGNAL.DISK.ERROR) (DECLARE%: EVAL@COMPILE DONTCOPY (MACROS .SETUPDISKBUFFERS. DISKWRITEACTION? @@ -21,8 +22,8 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1990, 1992 by Venue & Xerox Co (PROP DOPVAL .DISKPARTINSTR.) (CONSTANTS * DISKCOMMANDS) (CONSTANTS * DISKERRORS) - (* ; - "Some of these are also used by MOD44IO") + (* ; + "Some of these are also used by MOD44IO") (RECORDS DISKREQUEST ALTODSKOBJ DDHEADER CB DISKLABEL REALDA SHORTCB FP DSKOBJ \M44LeaderPage M44STREAM FID) (CONSTANTS (\FILLINDA 65534) @@ -41,7 +42,7 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1990, 1992 by Venue & Xerox Co \SPAREDISKWRITEBUFFER \FREEPAGEFID \#EMUBUFFERS \EMUBUFFERS \LASTVMEMFILEPAGE \SWAPDSK1 \SWAPDSK2 \XVmemFmapBase \XVmemFmapHighBase \XVmemDiskBase \XVmem \M44.READY))) - [COMS (* ; "Super low level") + [COMS (* ; "Super low level") (FNS \ACTONVMEMPAGES \WRITEVMEMPAGES \DOACTONDISKPAGES \DOWRITEDISKPAGES \CHECKFREEPAGE \DODISKCOMMAND \GETDISKCB \CLEARCB \CLEANUPDISKQUEUE \VIRTUALDISKDA \REALDISKDA) (DECLARE%: EVAL@COMPILE DONTCOPY (CONSTANTS * CBSTATUSCONSTANTS) @@ -55,7 +56,7 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1990, 1992 by Venue & Xerox Co (\LENSHORTCB 18)) (CONSTANTS (\CB.PENDING 1) (\CB.FREE 0] - [COMS (* ; "At MAKEINIT time") + [COMS (* ; "At MAKEINIT time") (FNS MAKEINITBFS) (DECLARE%: DONTCOPY (ADDVARS (INITPTRS (\MAINDISK) (\SWAPDSK1) @@ -66,12 +67,12 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1990, 1992 by Venue & Xerox Co (INEWCOMS (FNS MAKEINITBFS))) EVAL@COMPILE (ADDVARS (DONTCOMPILEFNS MAKEINITBFS] - (COMS (* ; "Swap stuff") + (COMS (* ; "Swap stuff") (FNS \M44ACTONVMEMFILE \LOOKUPFMAP \M44EXTENDVMEMFILE \M44DOEXTENDVMEMFILE \EXTENDISFMAP) - (* ; "Extended vmem stuff") + (* ; "Extended vmem stuff") (FNS \EXTENDEDVMEMINIT \INITIALIZESWAPDISK \WHICHPART \SWAPDISKERROR) - (* ; "For debugging and user info") + (* ; "For debugging and user info") (FNS DESCRIBE-VIRTUAL-MEMORY \PRINTFMAP) (DECLARE%: EVAL@COMPILE DONTCOPY (RECORDS ISFMAP) (CONSTANTS (\ISFMAPOFFSET 18))) @@ -116,12 +117,126 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1990, 1992 by Venue & Xerox Co ) (\ACTONDISKPAGES -(LAMBDA (DSK BUFFERS DAs DAorigin FID FIRSTPAGE LASTPAGE ACTION LASTNUMCHARSCONS LASTACTION ReturnOnCheckError HINTLASTPAGE CAs) (* bvm%: "13-Feb-85 19:35") (* ;; "performs indicated ACTION on pages FIRSTPAGE thru LASTPAGE of DSK (a disk object) for file whose alto id is FID. Returns page number of last page acted on, which may be less than LASTPAGE if end of file was encountered. BUFFERS is either NIL (don't care about the data) or else a buffer or list of buffers of data to be read/written. DAs is a vector of virtual disk addresses (words) for pages of the file, per alto conventions. DAorigin indicates which page (\GETBASE DAs 0) corresponds to; it should be no greater than FIRSTPAGE. LASTACTION, if supplied, is performed instead of ACTION on LASTPAGE. HINTLASTPAGE is hint of the last page of file, to avoid chaining beyond the end of file. NUMCHARSCONS, if supplied, is a list, car of which will be smashed with the NUMCHARS field of the last page acted on (this in lieu of multiple value return). If ReturnOnCheckError is true, returns (--- (I + 64)), where I was the last page successfully acted on") (PROG (EMBLOCK EMBUFS EMCAs EMDAs EMFID EMFIXEDCA RESULT STREAM LASTNC) (COND ((EQ DSK \SYSDISK) (SETQ DSK \MAINDISK))) (COND ((type? STREAM FID) (SETQ STREAM FID) (SETQ FID (fetch (ARRAYP BASE) of (fetch FID of FID))))) RETRY (UNINTERRUPTABLY (\CLOCK0 (LOCF (fetch DISKTEMP0 of \MISCSTATS))) (* ; "Note starting time") (PROG ((REQUEST \DISKREQUESTBLOCK)) (.SETUPDISKBUFFERS. ACTION) (replace RETURNONCHECKERROR of REQUEST with ReturnOnCheckError) (replace DISKACTION of REQUEST with ACTION) (replace LASTDISKACTION of REQUEST with (COND ((AND LASTACTION (NEQ LASTACTION 0)) LASTACTION) (T ACTION))) (SETQ RESULT (\MISCAPPLY* (FUNCTION \DOACTONDISKPAGES) DSK REQUEST)) (SETQ LASTNC (fetch CURRENTNUMCHARS of REQUEST))) (COND ((AND BUFFERS (NEQ LASTNC BYTESPERPAGE) (IGEQ RESULT 0) (DISKREADACTION? (OR (AND (EQ RESULT LASTPAGE) LASTACTION) ACTION))) (* ; "Zero out everything past the last byte") (PROG ((BUF (OR EMFIXEDCA (EMPOINTER (\GETBASE EMCAs RESULT))))) (\CLEARBYTES BUF LASTNC (IDIFFERENCE BYTESPERPAGE LASTNC))))) (COND ((NOT (EMADDRESSP DAs)) (* ; "Possibly update the user's DAs from the emulator copy") (\BLT DAs EMDAs (IPLUS LASTPAGE 2 (IMINUS DAorigin))))) (* ; "If action was read, now copy from emu buffers into user buffers") (COND ((LISTP BUFFERS) (for BUF in BUFFERS as (CA _ EMCAs) by (\ADDBASE CA 1) as N from FIRSTPAGE when (AND BUF (NOT (EMADDRESSP BUF)) (DISKREADACTION? (OR (AND (EQ N LASTPAGE) LASTACTION) ACTION))) do (\BLT BUF (\VAG2 0 (\GETBASE CA 0)) WORDSPERPAGE))) ((AND BUFFERS (NOT (EMADDRESSP BUFFERS)) (DISKREADACTION? ACTION)) (\BLT BUFFERS EMFIXEDCA WORDSPERPAGE))) (\BOXIPLUS (LOCF (fetch DISKIOTIME of \MISCSTATS)) (\BOXIDIFFERENCE (\CLOCK0 (LOCF (fetch DISKTEMP1 of \MISCSTATS))) (LOCF (fetch DISKTEMP0 of \MISCSTATS)))) (* ; "Note total time spent here")) (COND ((ILESSP RESULT 0) (\DISKERROR (IMINUS RESULT) STREAM LASTNC) (GO RETRY)) (T (COND (LASTNUMCHARSCONS (COND ((LISTP LASTNUMCHARSCONS) (RPLACA LASTNUMCHARSCONS LASTNC)) (T (\PUTBASE LASTNUMCHARSCONS 0 LASTNC))))) (RETURN (SIGNED RESULT BITSPERWORD)))))) -) + [LAMBDA (DSK BUFFERS DAs DAorigin FID FIRSTPAGE LASTPAGE ACTION LASTNUMCHARSCONS LASTACTION + ReturnOnCheckError HINTLASTPAGE CAs) (* ; "Edited 13-Jun-2021 11:47 by rmk:") + + (* ;; "performs indicated ACTION on pages FIRSTPAGE thru LASTPAGE of DSK (a disk object) for file whose alto id is FID. Returns page number of last page acted on, which may be less than LASTPAGE if end of file was encountered. BUFFERS is either NIL (don't care about the data) or else a buffer or list of buffers of data to be read/written. DAs is a vector of virtual disk addresses (words) for pages of the file, per alto conventions. DAorigin indicates which page (\GETBASE DAs 0) corresponds to; it should be no greater than FIRSTPAGE. LASTACTION, if supplied, is performed instead of ACTION on LASTPAGE. HINTLASTPAGE is hint of the last page of file, to avoid chaining beyond the end of file. NUMCHARSCONS, if supplied, is a list, car of which will be smashed with the NUMCHARS field of the last page acted on (this in lieu of multiple value return). If ReturnOnCheckError is true, returns (--- (I + 64)), where I was the last page successfully acted on") + + (PROG (EMBLOCK EMBUFS EMCAs EMDAs EMFID EMFIXEDCA RESULT STREAM LASTNC) + (COND + ((EQ DSK \SYSDISK) + (SETQ DSK \MAINDISK))) + [COND + ((type? STREAM FID) + (SETQ STREAM FID) + (SETQ FID (fetch (ARRAYP BASE) of (fetch (M44STREAM FID) of FID] + RETRY + (UNINTERRUPTABLY + (\CLOCK0 (LOCF (fetch (MISCSTATS DISKTEMP0) of \MISCSTATS))) + (* ; "Note starting time") + (PROG ((REQUEST \DISKREQUESTBLOCK)) + (.SETUPDISKBUFFERS. ACTION) + (replace (DISKREQUEST RETURNONCHECKERROR) of REQUEST with + ReturnOnCheckError + ) + (replace (DISKREQUEST DISKACTION) of REQUEST with ACTION) + (replace (DISKREQUEST LASTDISKACTION) of REQUEST + with (COND + ((AND LASTACTION (NEQ LASTACTION 0)) + LASTACTION) + (T ACTION))) + (SETQ RESULT (\MISCAPPLY* (FUNCTION \DOACTONDISKPAGES) + DSK REQUEST)) + (SETQ LASTNC (fetch (DISKREQUEST CURRENTNUMCHARS) of REQUEST))) + [COND + ((AND BUFFERS (NEQ LASTNC BYTESPERPAGE) + (IGEQ RESULT 0) + (DISKREADACTION? (OR (AND (EQ RESULT LASTPAGE) + LASTACTION) + ACTION))) (* ; + "Zero out everything past the last byte") + (PROG [(BUF (OR EMFIXEDCA (EMPOINTER (\GETBASE EMCAs RESULT] + (\CLEARBYTES BUF LASTNC (IDIFFERENCE BYTESPERPAGE LASTNC] + [COND + ((NOT (EMADDRESSP DAs)) (* ; + "Possibly update the user's DAs from the emulator copy") + (\BLT DAs EMDAs (IPLUS LASTPAGE 2 (IMINUS DAorigin] + (* ; + "If action was read, now copy from emu buffers into user buffers") + (COND + ((LISTP BUFFERS) + (for BUF in BUFFERS as (CA _ EMCAs) by (\ADDBASE CA 1) as + N + from FIRSTPAGE when (AND BUF (NOT (EMADDRESSP BUF)) + (DISKREADACTION? (OR (AND (EQ N LASTPAGE) + LASTACTION) + ACTION))) + do (\BLT BUF (\VAG2 0 (\GETBASE CA 0)) + WORDSPERPAGE))) + ((AND BUFFERS (NOT (EMADDRESSP BUFFERS)) + (DISKREADACTION? ACTION)) + (\BLT BUFFERS EMFIXEDCA WORDSPERPAGE))) + [\BOXIPLUS (LOCF (fetch (MISCSTATS DISKIOTIME) of \MISCSTATS)) + (\BOXIDIFFERENCE (\CLOCK0 (LOCF (fetch (MISCSTATS DISKTEMP1) of + \MISCSTATS + ))) + (LOCF (fetch (MISCSTATS DISKTEMP0) of \MISCSTATS] + (* ; "Note total time spent here") + ) + (COND + ((ILESSP RESULT 0) + (\DISKERROR (IMINUS RESULT) + STREAM LASTNC) + (GO RETRY)) + (T [COND + (LASTNUMCHARSCONS (COND + ((LISTP LASTNUMCHARSCONS) + (RPLACA LASTNUMCHARSCONS LASTNC)) + (T (\PUTBASE LASTNUMCHARSCONS 0 LASTNC] + (RETURN (SIGNED RESULT BITSPERWORD]) (\WRITEDISKPAGES -(LAMBDA (DSK BUFFERS DAs DAorigin FID FIRSTPAGE LASTPAGE LASTACTION LASTNUMCHARSCONS LASTNUMCHARS HINTLASTPAGE CAs) (* bvm%: "19-Jan-85 16:24") (* ;; "Write pages FIRSTPAGE thru LASTPAGE of DSK (a disk object) for file whose alto id is FID. Returns page number of last page acted on. BUFFERS is either NIL (don't care about the data) or else a buffer or list of buffers of data to be written. DAs is a vector of virtual disk addresses (words) for pages of the file, per alto conventions. DAorigin indicates which page (\GETBASE DAs 0) corresponds to; it should be no greater than FIRSTPAGE. LASTACTION, if supplied, is performed instead of ACTION on LASTPAGE. HINTLASTPAGE is hint of the last page of file, to avoid chaining beyond the end of file. NUMCHARSCONS, if supplied, is a list, car of which will be smashed with the NUMCHARS field of the last page acted on (this in lieu of multiple value return). LASTNUMCHARS is the nchars field to be written for LASTPAGE") (PROG (EMBLOCK EMBUFS EMCAs EMDAs EMFID EMFIXEDCA RESULT STREAM) (COND ((EQ DSK \SYSDISK) (SETQ DSK \MAINDISK))) (COND ((type? STREAM FID) (SETQ STREAM FID) (SETQ FID (fetch (ARRAYP BASE) of (fetch FID of FID))))) (\OPENDISKDESCRIPTOR DSK) RETRY (UNINTERRUPTABLY (\CLOCK0 (LOCF (fetch DISKTEMP0 of \MISCSTATS))) (SETQ RESULT (PROG ((REQUEST \DISKREQUESTBLOCK)) (.SETUPDISKBUFFERS. \DC.WRITED) (replace DISKNOALLOC of REQUEST with (EQ LASTACTION (UNSIGNED -1 BITSPERWORD))) (replace DISKWRITELASTNUMCHARS of REQUEST with (OR LASTNUMCHARS BYTESPERPAGE)) (RETURN (\MISCAPPLY* (FUNCTION \DOWRITEDISKPAGES) DSK REQUEST)))) (COND ((NOT (EMADDRESSP DAs)) (\BLT DAs EMDAs (IPLUS LASTPAGE 2 (IMINUS DAorigin))))) (\BOXIPLUS (LOCF (fetch DISKIOTIME of \MISCSTATS)) (\BOXIDIFFERENCE (\CLOCK0 (LOCF (fetch DISKTEMP1 of \MISCSTATS))) (LOCF (fetch DISKTEMP0 of \MISCSTATS)))) (* Note total time spent)) (COND ((ILESSP RESULT 0) (\DISKERROR (IMINUS RESULT) STREAM) (GO RETRY)) (T (RETURN (SIGNED RESULT BITSPERWORD)))))) -) + [LAMBDA (DSK BUFFERS DAs DAorigin FID FIRSTPAGE LASTPAGE LASTACTION LASTNUMCHARSCONS LASTNUMCHARS + HINTLASTPAGE CAs) (* ; "Edited 13-Jun-2021 11:45 by rmk:") + + (* ;; "Write pages FIRSTPAGE thru LASTPAGE of DSK (a disk object) for file whose alto id is FID. Returns page number of last page acted on. BUFFERS is either NIL (don't care about the data) or else a buffer or list of buffers of data to be written. DAs is a vector of virtual disk addresses (words) for pages of the file, per alto conventions. DAorigin indicates which page (\GETBASE DAs 0) corresponds to; it should be no greater than FIRSTPAGE. LASTACTION, if supplied, is performed instead of ACTION on LASTPAGE. HINTLASTPAGE is hint of the last page of file, to avoid chaining beyond the end of file. NUMCHARSCONS, if supplied, is a list, car of which will be smashed with the NUMCHARS field of the last page acted on (this in lieu of multiple value return). LASTNUMCHARS is the nchars field to be written for LASTPAGE") + + (PROG (EMBLOCK EMBUFS EMCAs EMDAs EMFID EMFIXEDCA RESULT STREAM) + (COND + ((EQ DSK \SYSDISK) + (SETQ DSK \MAINDISK))) + [COND + ((type? STREAM FID) + (SETQ STREAM FID) + (SETQ FID (fetch (ARRAYP BASE) of (fetch (M44STREAM FID) of FID] + (\OPENDISKDESCRIPTOR DSK) + RETRY + (UNINTERRUPTABLY + (\CLOCK0 (LOCF (fetch (MISCSTATS DISKTEMP0) of \MISCSTATS))) + [SETQ RESULT (PROG ((REQUEST \DISKREQUESTBLOCK)) + (.SETUPDISKBUFFERS. \DC.WRITED) + (replace (DISKREQUEST DISKNOALLOC) of REQUEST + with (EQ LASTACTION (UNSIGNED -1 BITSPERWORD))) + (replace (DISKREQUEST DISKWRITELASTNUMCHARS) of REQUEST + with (OR LASTNUMCHARS BYTESPERPAGE)) + (RETURN (\MISCAPPLY* (FUNCTION \DOWRITEDISKPAGES) + DSK REQUEST] + [COND + ((NOT (EMADDRESSP DAs)) + (\BLT DAs EMDAs (IPLUS LASTPAGE 2 (IMINUS DAorigin] + [\BOXIPLUS (LOCF (fetch DISKIOTIME of \MISCSTATS)) + (\BOXIDIFFERENCE (\CLOCK0 (LOCF (fetch (MISCSTATS DISKTEMP1) of + \MISCSTATS + ))) + (LOCF (fetch (MISCSTATS DISKTEMP0) of \MISCSTATS] + (* Note total time spent) + ) + (COND + ((ILESSP RESULT 0) + (\DISKERROR (IMINUS RESULT) + STREAM) + (GO RETRY)) + (T (RETURN (SIGNED RESULT BITSPERWORD]) (\DISKERROR (LAMBDA (ERRCODE STREAM LASTNC) (* bvm%: "12-Mar-85 03:44") (COND (STREAM (M44.SIGNAL.DISK.ERROR ERRCODE (fetch FULLFILENAME of STREAM))) (T (while T do (SELECTC ERRCODE (\DSK.HARD.ERROR (RAID "Hard Disk Error in Lisp.virtualmem. Page = " (fetch (DSKOBJ CURRENTDISKPAGE) of \MAINDISK))) (\DSK.FULL.ERROR (RAID "Disk Full")) (RAID "Unknown disk error in Lisp.virtualmem" ERRCODE)))))) @@ -135,7 +250,7 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1990, 1992 by Venue & Xerox Co (DECLARE%: EVAL@COMPILE (PUTPROPS .SETUPDISKBUFFERS. MACRO - ((ACTION) (* bvm%: "15-OCT-82 17:28") + ((ACTION) (* bvm%: "15-OCT-82 17:28") (SETQ EMBUFS \EMUDISKBUFFERS) (SETQ EMBLOCK \EMUSCRATCH) [COND @@ -154,8 +269,8 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1990, 1992 by Venue & Xerox Co [CAs (SETQ EMCAs (\ADDBASE CAs (IMINUS DAorigin] [(AND (LISTP BUFFERS) (OR (CDR BUFFERS) - (PROGN (SETQ BUFFERS (CAR BUFFERS)) (* ; - "Treat singleton BUFFER as nonlist") + (PROGN (SETQ BUFFERS (CAR BUFFERS)) (* ; + "Treat singleton BUFFER as nonlist") NIL))) (SETQ EMCAs (\ADDBASE EMBLOCK (IMINUS FIRSTPAGE))) (for BUF in BUFFERS as N from FIRSTPAGE bind FIXEDBUF @@ -184,8 +299,8 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1990, 1992 by Venue & Xerox Co BUFFERS) (T [COND ((DISKWRITEACTION? ACTION) - (* ; - "If writing, copy data into buffer") + (* ; + "If writing, copy data into buffer") (COND (BUFFERS (\BLT EMBUFS BUFFERS WORDSPERPAGE)) (T (\CLEARWORDS EMBUFS WORDSPERPAGE] @@ -195,18 +310,18 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1990, 1992 by Venue & Xerox Co (replace DISKDAS of REQUEST with (\ADDBASE EMDAs (IMINUS DAorigin))) (replace DISKVERSION of REQUEST with (fetch FPVERSION of FID)) (\BLT (LOCF (fetch DISKSERIAL# of REQUEST)) - FID WORDSPERCELL) (* ; "Fill in serial number for label") + FID WORDSPERCELL) (* ; "Fill in serial number for label") (replace DISKFIRSTPAGE of REQUEST with FIRSTPAGE) (replace DISKLASTPAGE of REQUEST with LASTPAGE) (replace DISKHINTLASTPAGE of REQUEST with (OR HINTLASTPAGE 0)))) -(PUTPROPS DISKWRITEACTION? MACRO ((ACTION) (* bvm%: "15-OCT-82 17:06") +(PUTPROPS DISKWRITEACTION? MACRO ((ACTION) (* bvm%: "15-OCT-82 17:06") (SELECTC ACTION ((LIST \DC.WRITEHLD \DC.WRITELD \DC.WRITED) T) NIL))) -(PUTPROPS DISKREADACTION? MACRO ((ACTION) (* bvm%: "15-OCT-82 17:06") +(PUTPROPS DISKREADACTION? MACRO ((ACTION) (* bvm%: "15-OCT-82 17:06") (ILESSP ACTION \DC.WRITEHLD))) ) @@ -271,7 +386,7 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1990, 1992 by Venue & Xerox Co (DECLARE%: EVAL@COMPILE -(BLOCKRECORD DISKREQUEST ((DISKDAS FULLXPOINTER) (* ; "Vector of DAs to be acted on") +(BLOCKRECORD DISKREQUEST ((DISKDAS FULLXPOINTER) (* ; "Vector of DAs to be acted on") (DISKCAS FULLXPOINTER) (FIXEDDISKBUFFER FULLXPOINTER) (DISKERRORCODE FULLXPOINTER) @@ -279,8 +394,8 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1990, 1992 by Venue & Xerox Co (DISKFIRSTPAGE WORD) (DISKLASTPAGE WORD) (DISKHINTLASTPAGE WORD) - (DISKVERSION WORD) (* ; - "These 3 words are for the disk label") + (DISKVERSION WORD) (* ; + "These 3 words are for the disk label") (DISKSERIAL# FIXP) (DISKACTION WORD) (LASTDISKACTION WORD) @@ -291,40 +406,40 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1990, 1992 by Venue & Xerox Co (DISKNOALLOC FLAG) (NIL BITS 14) (DISKCASTORAGE 20 WORD) - (DISKDASTORAGE 60 WORD) (* ; "Or as much as you want") + (DISKDASTORAGE 60 WORD) (* ; "Or as much as you want") ) [ACCESSFNS ((DISKFID (LOCF (fetch DISKVERSION of DATUM] (CREATE (\ALLOCBLOCK (FOLDHI (IPLUS \FIXEDLENDISKREQUEST 60) WORDSPERCELL)))) -(BLOCKRECORD ALTODSKOBJ ((NIL 8 WORD) (* ; - "Alto functions to implement generic ops") - (DSKFPSYSDIR WORD) (* ; "Short pointer to SYSDIR FP") - (NIL 2 WORD) (* ; "More alto fns") - (DSKFPWORKINGDIR WORD) (* ; - "Short pointer to FP of 'working' dir") - (DSKNAMEWORKINGDIR WORD) (* ; "Short pointer to bcpl string") - (DSKLNPAGESIZE WORD) (* ; "ln[pagesize-in-words]") - (NIL 3 WORD) (* ; "More alto cruft") - (DSKKD WORD) (* ; "Short pointer to DDHEADER") - (DSKFPDISKDESCRIPTOR WORD) (* ; - "Short pointer to DiskDescriptor FP") +(BLOCKRECORD ALTODSKOBJ ((NIL 8 WORD) (* ; + "Alto functions to implement generic ops") + (DSKFPSYSDIR WORD) (* ; "Short pointer to SYSDIR FP") + (NIL 2 WORD) (* ; "More alto fns") + (DSKFPWORKINGDIR WORD) (* ; + "Short pointer to FP of 'working' dir") + (DSKNAMEWORKINGDIR WORD) (* ; "Short pointer to bcpl string") + (DSKLNPAGESIZE WORD) (* ; "ln[pagesize-in-words]") + (NIL 3 WORD) (* ; "More alto cruft") + (DSKKD WORD) (* ; "Short pointer to DDHEADER") + (DSKFPDISKDESCRIPTOR WORD) (* ; + "Short pointer to DiskDescriptor FP") (DSKDRIVE# WORD) (DSKRETRYCOUNT WORD) (DSKTOTALERRORS WORD) (DSKLENCBZ WORD) (DSKLENCB WORD) - (DSKDDHEADER 16 WORD) (* ; "Overlays DDHEADER") + (DSKDDHEADER 16 WORD) (* ; "Overlays DDHEADER") (NIL 2 WORD) - (DSKDDMGR WORD) (* ; - "DD manager, for \FLUSHDISKDESCRIPTOR") - (DSKLASTVDA WORD) (* ; - "VDA of last page allocated, for biasing search") + (DSKDDMGR WORD) (* ; + "DD manager, for \FLUSHDISKDESCRIPTOR") + (DSKLASTVDA WORD) (* ; + "VDA of last page allocated, for biasing search") (DSKSYSDIRBLK 5 WORD) (DSKDDBLK 5 WORD) (DSKWDBLK 5 WORD) - (NIL 20 WORD) (* ; "WorkingDir name") - (DSKDDVDAS 17 WORD) (* ; "VDAs for the data part of DD") + (NIL 20 WORD) (* ; "WorkingDir name") + (DSKDDVDAS 17 WORD) (* ; "VDAs for the data part of DD") ) [ACCESSFNS ALTODSKOBJ ((DDHEADER (LOCF (fetch DSKDDHEADER of DATUM]) @@ -335,17 +450,17 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1990, 1992 by Venue & Xerox Co (DD#SECTORS WORD) (DDLASTSERIAL# FIXP) (NIL WORD) - (DDBTSIZE WORD) (* ; "Size of bittable in words") + (DDBTSIZE WORD) (* ; "Size of bittable in words") (DDDEFAULTVERSIONSKEPT WORD) (DDFREEPAGES WORD) (NIL 6 WORD))) (BLOCKRECORD CB ((CBQSTATUS BITS 4) - (CBNEXT POINTER) (* ; "Link to next one") - (SHORTCB POINTER) (* ; - "In alto space, what disk actually uses") - (CBPAGENO WORD) (* ; - "The page number we intended to act on with this CB") + (CBNEXT POINTER) (* ; "Link to next one") + (SHORTCB POINTER) (* ; + "In alto space, what disk actually uses") + (CBPAGENO WORD) (* ; + "The page number we intended to act on with this CB") ) (CREATE (\ALLOCBLOCK 3))) @@ -354,8 +469,8 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1990, 1992 by Venue & Xerox Co (NIL WORD) (DLNUMCHARS WORD) (DLPAGENO WORD) - (DLFID 3 WORD) (* ; - "Version followed by 2-word serial number") + (DLFID 3 WORD) (* ; + "Version followed by 2-word serial number") )) (ACCESSFNS REALDA ((SECTOR (LRSH DATUM 12)) @@ -367,22 +482,22 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1990, 1992 by Venue & Xerox Co 1)) (RESTORE (LOGAND DATUM 1)))) -(BLOCKRECORD SHORTCB ((CBLINK WORD) (* ; - "Short pointer to next in command chain, or zero") +(BLOCKRECORD SHORTCB ((CBLINK WORD) (* ; + "Short pointer to next in command chain, or zero") (CBSTATUS WORD) (CBCOMMAND WORD) - (CBHEADERADDR WORD) (* ; - "Short pointer to header record, normally CBHEADER") - (CBLABELADDR WORD) (* ; - "Short pointer to label record, normally either in this CB or in the next cb in chain") - (CBDATAADDR WORD) (* ; "Short pointer to buffer of data") - (CBWAKEUPS WORD) (* ; "These two are always zero") + (CBHEADERADDR WORD) (* ; + "Short pointer to header record, normally CBHEADER") + (CBLABELADDR WORD) (* ; + "Short pointer to label record, normally either in this CB or in the next cb in chain") + (CBDATAADDR WORD) (* ; "Short pointer to buffer of data") + (CBWAKEUPS WORD) (* ; "These two are always zero") (CBERRWAKEUPS WORD) (CBHEADER WORD) - (CBDA WORD) (* ; - "Address of this disk block. May be filled in by previous access's label pointing at my CBHEADER") - (CBLABNEXT WORD) (* ; - "Start of label field, if my CBLABELADDR points here") + (CBDA WORD) (* ; + "Address of this disk block. May be filled in by previous access's label pointing at my CBHEADER") + (CBLABNEXT WORD) (* ; + "Start of label field, if my CBLABELADDR points here") (CBLABPREV WORD) (CBLABBLANK WORD) (CBLABNUMCHARS WORD) @@ -390,8 +505,8 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1990, 1992 by Venue & Xerox Co (CBLABVERSION WORD) (CBLABSN1 WORD) (CBLABSN2 WORD) - (CBTRUEPAGENO WORD) (* ; - "From here on is alto stuff that Lisp doesn't care about") + (CBTRUEPAGENO WORD) (* ; + "From here on is alto stuff that Lisp doesn't care about") (CBCBZ WORD) (CBNEXTSHORTCB WORD)) (BLOCKRECORD SHORTCB ((NIL WORD) @@ -422,43 +537,43 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1990, 1992 by Venue & Xerox Co (BLOCKRECORD DSKOBJ ((ddPOINTER FULLXPOINTER) - (* ;; "Either points at word 2 of this structure, or at DSKOBJ:LASTSERIAL#, so that we can maintain some fields in parallel with alto OS for awhile. The next 6 words are arranged exactly as in the alto KDH structure, at least those fields we care about") + (* ;; "Either points at word 2 of this structure, or at DSKOBJ:LASTSERIAL#, so that we can maintain some fields in parallel with alto OS for awhile. The next 6 words are arranged exactly as in the alto KDH structure, at least those fields we care about") - (ddLASTSERIAL# FIXP) (* ; "Last serial number given a file") + (ddLASTSERIAL# FIXP) (* ; "Last serial number given a file") (NIL WORD) - (ddBITTABLESIZE WORD) (* ; - "Size of disk descriptor's bit table in words") + (ddBITTABLESIZE WORD) (* ; + "Size of disk descriptor's bit table in words") (NIL WORD) (ddFREEPAGES WORD) - (DSKPARTITION BITS 4) (* ; "0 or explicit partition pointer") - (ALTODSKOBJ XPOINTER) (* ; - "Pointer to alto BFSDSK structure, or NIL for disks other than current partition") + (DSKPARTITION BITS 4) (* ; "0 or explicit partition pointer") + (ALTODSKOBJ XPOINTER) (* ; + "Pointer to alto BFSDSK structure, or NIL for disks other than current partition") (SAWCHECKERROR FLAG) (DISKERRORCNT BITS 3) - (SYSDIROFD POINTER) (* ; "Stream onto SYSDIR.;1") - (DDDIRTY FLAG) (* ; - "true if diskdescriptor needs writing") - (DDVALID FLAG) (* ; - "True if DISKDESCRIPTOROFD field is ok. Invalidated on logout, etc") - (DSKPASSWORDOK FLAG) (* ; - "True after password for this partition, if any, has been validated") + (SYSDIROFD POINTER) (* ; "Stream onto SYSDIR.;1") + (DDDIRTY FLAG) (* ; + "true if diskdescriptor needs writing") + (DDVALID FLAG) (* ; + "True if DISKDESCRIPTOROFD field is ok. Invalidated on logout, etc") + (DSKPASSWORDOK FLAG) (* ; + "True after password for this partition, if any, has been validated") (NIL BITS 1) - (DISKDESCRIPTOROFD POINTER) (* ; "Stream onto DiskDescriptor.;1") - (CBQUEUE POINTER) (* ; - "Stuff for management of command blocks. No ref count because must not fault") + (DISKDESCRIPTOROFD POINTER) (* ; "Stream onto DiskDescriptor.;1") + (CBQUEUE POINTER) (* ; + "Stuff for management of command blocks. No ref count because must not fault") (CBFREEPTR FULLXPOINTER) (CBPENDINGPTR FULLXPOINTER) (CBLASTPTR FULLXPOINTER) - (CURRENTDAS FULLXPOINTER) (* ; - "Vector of DAs currently being acted on") + (CURRENTDAS FULLXPOINTER) (* ; + "Vector of DAs currently being acted on") (DISKREQUEST FULLXPOINTER) - (DISKDEVICENAME POINTER) (* ; "For retrieving the FDEV") - (DISKLASTPAGEALLOC WORD) (* ; "Bias for new page search") - (* ; "Pointer to request subrecord") + (DISKDEVICENAME POINTER) (* ; "For retrieving the FDEV") + (DISKLASTPAGEALLOC WORD) (* ; "Bias for new page search") + (* ; "Pointer to request subrecord") (CURRENTDISKPAGE WORD) (TOTALDISKERRORS WORD) - (NDISKS WORD) (* ; - "Shape of disk. Info taken from disk descriptor") + (NDISKS WORD) (* ; + "Shape of disk. Info taken from disk descriptor") (NTRACKS WORD) (NHEADS WORD) (NSECTORS WORD) @@ -513,7 +628,7 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1990, 1992 by Venue & Xerox Co (replace FW7 of DATUM with NEWVALUE))) (ACCESSFNS M44STREAM ((DIRHOLEPTR (fetch F4 of DATUM) (replace F4 of DATUM with NEWVALUE) - ) (* ; "In dir stream only") + ) (* ; "In dir stream only") )) (CREATE (create STREAM)) LASTMAPPEDPAGE _ -1 LastPage _ 0 LastOffset _ 0) @@ -617,8 +732,19 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1990, 1992 by Venue & Xerox Co ) (\VIRTUALDISKDA -(LAMBDA (DSK REALDA) (* bvm%: "13-Feb-85 19:43") (* ; "Converts a real disk address into a virtual one") (COND ((EQ REALDA 0) \EOFDA) (T (IPLUS (ITIMES (IPLUS (ITIMES (IPLUS (ITIMES (fetch DISK of REALDA) (fetch NTRACKS of DSK)) (fetch TRACK of REALDA)) (fetch NHEADS of DSK)) (fetch HEAD of REALDA)) (fetch NSECTORS of DSK)) (fetch SECTOR of REALDA))))) -) + [LAMBDA (DSK REALDA) (* ; "Edited 13-Jun-2021 11:51 by rmk:") + (* ; + "Converts a real disk address into a virtual one") + (COND + ((EQ REALDA 0) + \EOFDA) + (T (IPLUS (ITIMES (IPLUS (ITIMES (IPLUS (ITIMES (fetch (REALDA DISK) of REALDA) + (fetch (DSKOBJ NTRACKS) of DSK)) + (fetch (REALDA TRACK) of REALDA)) + (fetch (DSKOBJ NHEADS) of DSK)) + (fetch (REALDA HEAD) of REALDA)) + (fetch (DSKOBJ NSECTORS) of DSK)) + (fetch (REALDA SECTOR) of REALDA]) (\REALDISKDA (LAMBDA (DSK VDA) (* bvm%: "18-NOV-82 21:16") (* ;; "Returns a real disk address for given virtual address") (COND ((EQ VDA \EOFDA) 0) (T (PROG ((NSECTORS (fetch NSECTORS of DSK)) (NHEADS (fetch NHEADS of DSK)) (NTRACKS (fetch NTRACKS of DSK))) (RETURN (IPLUS (LLSH (IREMAINDER VDA NSECTORS) 12) (LLSH (IREMAINDER (SETQ VDA (IQUOTIENT VDA NSECTORS)) NHEADS) 2) (LLSH (IREMAINDER (SETQ VDA (IQUOTIENT VDA NHEADS)) NTRACKS) 3) (LLSH (IQUOTIENT VDA NTRACKS) 1))))))) @@ -815,26 +941,26 @@ EVAL@COMPILE (DECLARE%: EVAL@COMPILE DONTCOPY (DECLARE%: EVAL@COMPILE -(BLOCKRECORD ISFMAP ((NIL 5 WORD) (* ; "First 5 words are a FP") - (ISFDA0 WORD) (* ; - "DA's of the first 3 pages of file") +(BLOCKRECORD ISFMAP ((NIL 5 WORD) (* ; "First 5 words are a FP") + (ISFDA0 WORD) (* ; + "DA's of the first 3 pages of file") (ISFDA1 WORD) (ISFDA2 WORD) (ISFSEAL WORD) - (ISFDISK WORD) (* ; "points to a DSKOBJ for file") - (NIL WORD) (* ; "ZONE") - (ISFLAST WORD) (* ; "offset of last entry in map") - (ISFEND WORD) (* ; "Offset of end of space for map") - (ISFONEPAGE WORD) (* ; "Last page# added to map") - (ISFONEDA WORD) (* ; "its DA") - (ISFREWRITE WORD) (* ; - "non-zero if map should be rewritten when file is extended") - (ISFCHUNKSIZE WORD) (* ; - "if file needs to be extended, do so in this size unit") - (ISFHINTLASTPAGE WORD) (* ; "Hint of last page") + (ISFDISK WORD) (* ; "points to a DSKOBJ for file") + (NIL WORD) (* ; "ZONE") + (ISFLAST WORD) (* ; "offset of last entry in map") + (ISFEND WORD) (* ; "Offset of end of space for map") + (ISFONEPAGE WORD) (* ; "Last page# added to map") + (ISFONEDA WORD) (* ; "its DA") + (ISFREWRITE WORD) (* ; + "non-zero if map should be rewritten when file is extended") + (ISFCHUNKSIZE WORD) (* ; + "if file needs to be extended, do so in this size unit") + (ISFHINTLASTPAGE WORD) (* ; "Hint of last page") (ISFMAPSTART WORD) - (* ;; "Map entries follow. Each is two words: the page number of the start of a run, followed by the vda of that first page") + (* ;; "Map entries follow. Each is two words: the page number of the start of a run, followed by the vda of that first page") )) ) @@ -873,17 +999,17 @@ EVAL@COMPILE \LASTVMEMFILEPAGE \XVmem \XVmemFmapBase \XVmemFmapHighBase \XVmemDiskBase)))) ) -(PUTPROPS LLBFS COPYRIGHT ("Venue & Xerox Corporation" 1982 1983 1984 1985 1986 1987 1990 1992)) +(PUTPROPS LLBFS COPYRIGHT ("Venue & Xerox Corporation" 1982 1983 1984 1985 1986 1987 1990 1992 2021)) (DECLARE%: DONTCOPY - (FILEMAP (NIL (6747 15689 (\INITBFS 6757 . 9287) (\TESTPARTITION 9289 . 9553) (\ACTONDISKPAGES 9555 . -12760) (\WRITEDISKPAGES 12762 . 14768) (\DISKERROR 14770 . 15172) (M44.SIGNAL.DISK.ERROR 15174 . 15687 -)) (39206 56182 (\ACTONVMEMPAGES 39216 . 39952) (\WRITEVMEMPAGES 39954 . 40925) (\DOACTONDISKPAGES -40927 . 44074) (\DOWRITEDISKPAGES 44076 . 48416) (\CHECKFREEPAGE 48418 . 48920) (\DODISKCOMMAND 48922 - . 51221) (\GETDISKCB 51223 . 51891) (\CLEARCB 51893 . 52041) (\CLEANUPDISKQUEUE 52043 . 55318) ( -\VIRTUALDISKDA 55320 . 55696) (\REALDISKDA 55698 . 56180)) (58189 59369 (MAKEINITBFS 58199 . 59367)) ( -59751 68034 (\M44ACTONVMEMFILE 59761 . 62222) (\LOOKUPFMAP 62224 . 63312) (\M44EXTENDVMEMFILE 63314 . -63863) (\M44DOEXTENDVMEMFILE 63865 . 67117) (\EXTENDISFMAP 67119 . 68032)) (68071 71389 ( -\EXTENDEDVMEMINIT 68081 . 69667) (\INITIALIZESWAPDISK 69669 . 70443) (\WHICHPART 70445 . 70778) ( -\SWAPDISKERROR 70780 . 71387)) (71434 73235 (DESCRIBE-VIRTUAL-MEMORY 71444 . 72688) (\PRINTFMAP 72690 - . 73233))))) + (FILEMAP (NIL (6780 19163 (\INITBFS 6790 . 9320) (\TESTPARTITION 9322 . 9586) (\ACTONDISKPAGES 9588 . +15198) (\WRITEDISKPAGES 15200 . 18242) (\DISKERROR 18244 . 18646) (M44.SIGNAL.DISK.ERROR 18648 . 19161 +)) (42680 60185 (\ACTONVMEMPAGES 42690 . 43426) (\WRITEVMEMPAGES 43428 . 44399) (\DOACTONDISKPAGES +44401 . 47548) (\DOWRITEDISKPAGES 47550 . 51890) (\CHECKFREEPAGE 51892 . 52394) (\DODISKCOMMAND 52396 + . 54695) (\GETDISKCB 54697 . 55365) (\CLEARCB 55367 . 55515) (\CLEANUPDISKQUEUE 55517 . 58792) ( +\VIRTUALDISKDA 58794 . 59699) (\REALDISKDA 59701 . 60183)) (62192 63372 (MAKEINITBFS 62202 . 63370)) ( +63754 72037 (\M44ACTONVMEMFILE 63764 . 66225) (\LOOKUPFMAP 66227 . 67315) (\M44EXTENDVMEMFILE 67317 . +67866) (\M44DOEXTENDVMEMFILE 67868 . 71120) (\EXTENDISFMAP 71122 . 72035)) (72074 75392 ( +\EXTENDEDVMEMINIT 72084 . 73670) (\INITIALIZESWAPDISK 73672 . 74446) (\WHICHPART 74448 . 74781) ( +\SWAPDISKERROR 74783 . 75390)) (75437 77238 (DESCRIBE-VIRTUAL-MEMORY 75447 . 76691) (\PRINTFMAP 76693 + . 77236))))) STOP diff --git a/sources/LLBFS.LCOM b/sources/LLBFS.LCOM index 29f046f01..9fbcec188 100644 Binary files a/sources/LLBFS.LCOM and b/sources/LLBFS.LCOM differ diff --git a/sources/LLBIGNUM.LCOM b/sources/LLBIGNUM.LCOM index 64a291e1b..a2f49541f 100644 Binary files a/sources/LLBIGNUM.LCOM and b/sources/LLBIGNUM.LCOM differ diff --git a/sources/LLCHAR b/sources/LLCHAR index d2bf072e1..c42762aed 100644 --- a/sources/LLCHAR +++ b/sources/LLCHAR @@ -1,14 +1,13 @@ (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) -(FILECREATED "11-Nov-2018 13:08:04" {DSK}kaplan>Local>medley3.5>lispcore>sources>LLCHAR.;2 77794 +(FILECREATED "21-Jun-2021 18:08:19"  +{DSK}kaplan>Local>medley3.5>git-medley>sources>LLCHAR.;6 108072 - changes to%: (FNS U-CASE L-CASE) - - previous date%: "12-Jan-94 10:12:34" -{DSK}kaplan>Local>medley3.5>lispcore>sources>LLCHAR.;1) + previous date%: "19-Jun-2021 10:00:42" +{DSK}kaplan>Local>medley3.5>git-medley>sources>LLCHAR.;5) (* ; " -Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1994, 2018 by Venue & Xerox Corporation. All rights reserved. +Copyright (c) 1982-1988, 1990, 1994, 2018, 2021 by Venue & Xerox Corporation. ") (PRETTYCOMPRINT LLCHARCOMS) @@ -44,7 +43,6 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1994, 2018 by Venu (\MAXTHINCHAR 255) (\MAXFATCHAR 65535) (\MAXCHARSET 255) - (NSCHARSETSHIFT 255) (%#STRINGPWORDS 4)) (MACROS \NATOMCHARS \NSTRINGCHARS))) (INITRESOURCES \NUMSTR \NUMSTR1 \PNAMESTRING) @@ -67,39 +65,386 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1994, 2018 by Venu (DEFINEQ (ALLOCSTRING -(LAMBDA (N INITCHAR OLD FATFLG) (* jop%: "23-Sep-86 17:44") (SETQ N (FIX N)) (* ; "Coerce floats at the outset") (COND ((OR (ILESSP N 0) (IGREATERP N \MaxArrayLen)) (LISPERROR "ILLEGAL ARG" N))) (COND ((NULL INITCHAR) (SETQ INITCHAR 0)) ((\CHARCODEP INITCHAR)) (T (SETQ INITCHAR (CHCON1 INITCHAR)))) (LET ((FATP (OR FATFLG (IGREATERP INITCHAR \MAXTHINCHAR))) STRINGBASE) (* ; "Allocate the block before going uninterruptable in the smashing case.") (SETQ STRINGBASE (\ALLOCBLOCK (COND (FATP (FOLDHI N WORDSPERCELL)) (T (FOLDHI N BYTESPERCELL))))) (COND ((STRINGP OLD) (UNINTERRUPTABLY (create STRINGP smashing OLD LENGTH _ N BASE _ STRINGBASE TYP _ (COND (FATP \ST.POS16) (T \ST.BYTE))))) (T (SETQ OLD (create STRINGP LENGTH _ N BASE _ STRINGBASE TYP _ (COND (FATP \ST.POS16) (T \ST.BYTE)))))) (COND ((NEQ 0 INITCHAR) (* ; "\ALLOCBLOCK always zeros the block, so don't need to initialize then") (COND (FATP (for I from 0 to (SUB1 N) do (\PUTBASEFAT STRINGBASE I INITCHAR))) (T (for I from 0 to (SUB1 N) do (\PUTBASETHIN STRINGBASE I INITCHAR))))))) OLD) -) + [LAMBDA (N INITCHAR OLD FATFLG) (* jop%: "23-Sep-86 17:44") + (SETQ N (FIX N)) (* ; "Coerce floats at the outset") + (COND + ((OR (ILESSP N 0) + (IGREATERP N \MaxArrayLen)) + (LISPERROR "ILLEGAL ARG" N))) + [COND + ((NULL INITCHAR) + (SETQ INITCHAR 0)) + ((\CHARCODEP INITCHAR)) + (T (SETQ INITCHAR (CHCON1 INITCHAR] + [LET ((FATP (OR FATFLG (IGREATERP INITCHAR \MAXTHINCHAR))) + STRINGBASE) (* ; + "Allocate the block before going uninterruptable in the smashing case.") + [SETQ STRINGBASE (\ALLOCBLOCK (COND + (FATP (FOLDHI N WORDSPERCELL)) + (T (FOLDHI N BYTESPERCELL] + [COND + [(STRINGP OLD) + (UNINTERRUPTABLY + (create STRINGP smashing OLD LENGTH _ N BASE _ STRINGBASE TYP _ + (COND + (FATP \ST.POS16) + (T \ST.BYTE))))] + (T (SETQ OLD (create STRINGP + LENGTH _ N + BASE _ STRINGBASE + TYP _ (COND + (FATP \ST.POS16) + (T \ST.BYTE] + (COND + ((NEQ 0 INITCHAR) (* ; + "\ALLOCBLOCK always zeros the block, so don't need to initialize then") + (COND + (FATP (for I from 0 to (SUB1 N) do (\PUTBASEFAT STRINGBASE I INITCHAR + ))) + (T (for I from 0 to (SUB1 N) do (\PUTBASETHIN STRINGBASE I INITCHAR] + OLD]) (MKATOM -(LAMBDA (X) (* jop%: "23-Sep-86 16:30") (COND ((STRINGP X) (\MKATOM (ffetch (STRINGP BASE) of X) (ffetch (STRINGP OFFST) of X) (LET ((LEN (ffetch (STRINGP LENGTH) of X))) (COND ((IGREATERP LEN \PNAMELIMIT) (LISPERROR "ATOM TOO LONG" X)) (T LEN))) (ffetch (STRINGP FATSTRINGP) of X))) ((OR (LITATOM X) (NUMBERP X)) X) (T (PACK* X)))) -) + [LAMBDA (X) (* jop%: "23-Sep-86 16:30") + (COND + ((STRINGP X) + (\MKATOM (ffetch (STRINGP BASE) of X) + (ffetch (STRINGP OFFST) of X) + (LET ((LEN (ffetch (STRINGP LENGTH) of X))) + (COND + ((IGREATERP LEN \PNAMELIMIT) + (LISPERROR "ATOM TOO LONG" X)) + (T LEN))) + (ffetch (STRINGP FATSTRINGP) of X))) + ((OR (LITATOM X) + (NUMBERP X)) + X) + (T (PACK* X]) (SUBATOM -(LAMBDA (X N M) (* jop%: "23-Sep-86 17:47") (PROG (BASE OFFST LEN FATP (N1 N) (M1 M)) (* ; "N1 and M1 so don't reset user arg.") (COND ((LITATOM X) (SETQ BASE (ffetch (LITATOM PNAMEBASE) of X)) (SETQ OFFST 1) (SETQ FATP (ffetch (LITATOM FATPNAMEP) of X)) (SETQ LEN (ffetch (LITATOM PNAMELENGTH) of X))) (T (SETQ LEN (OR (STRINGP X) (MKSTRING X))) (* ; "Don't reset user arg") (SETQ BASE (ffetch (STRINGP BASE) of LEN)) (SETQ FATP (ffetch (STRINGP FATSTRINGP) of LEN)) (SETQ OFFST (ffetch (STRINGP OFFST) of LEN)) (SETQ LEN (ffetch (STRINGP LENGTH) of LEN)))) (COND ((IGREATERP 0 N1) (* ; "Coerce the first index") (SETQ N1 (IPLUS N1 LEN 1)))) (COND ((NULL M1) (* ; "Coerce the second") (SETQ M1 LEN)) ((IGREATERP 0 M1) (SETQ M1 (IPLUS M1 LEN 1)))) (RETURN (AND (IGREATERP N1 0) (ILEQ N1 M1) (ILEQ M1 LEN) (\MKATOM BASE (IPLUS OFFST N1 -1) (COND ((IGREATERP (SETQ LEN (ADD1 (IDIFFERENCE M1 N1))) \PNAMELIMIT) (LISPERROR "ATOM TOO LONG" X)) (T LEN)) FATP))))) -) + [LAMBDA (X N M) (* jop%: "23-Sep-86 17:47") + (PROG (BASE OFFST LEN FATP (N1 N) + (M1 M)) (* ; + "N1 and M1 so don't reset user arg.") + [COND + ((LITATOM X) + (SETQ BASE (ffetch (LITATOM PNAMEBASE) of X)) + (SETQ OFFST 1) + (SETQ FATP (ffetch (LITATOM FATPNAMEP) of X)) + (SETQ LEN (ffetch (LITATOM PNAMELENGTH) of X))) + (T (SETQ LEN (OR (STRINGP X) + (MKSTRING X))) (* ; "Don't reset user arg") + (SETQ BASE (ffetch (STRINGP BASE) of LEN)) + (SETQ FATP (ffetch (STRINGP FATSTRINGP) of LEN)) + (SETQ OFFST (ffetch (STRINGP OFFST) of LEN)) + (SETQ LEN (ffetch (STRINGP LENGTH) of LEN] + [COND + ((IGREATERP 0 N1) (* ; "Coerce the first index") + (SETQ N1 (IPLUS N1 LEN 1] + [COND + ((NULL M1) (* ; "Coerce the second") + (SETQ M1 LEN)) + ((IGREATERP 0 M1) + (SETQ M1 (IPLUS M1 LEN 1] + (RETURN (AND (IGREATERP N1 0) + (ILEQ N1 M1) + (ILEQ M1 LEN) + (\MKATOM BASE (IPLUS OFFST N1 -1) + (COND + ((IGREATERP (SETQ LEN (ADD1 (IDIFFERENCE M1 N1))) + \PNAMELIMIT) + (LISPERROR "ATOM TOO LONG" X)) + (T LEN)) + FATP]) (CHARACTER -(LAMBDA (N) (* jop%: "23-Sep-86 17:45") (OR (\CHARCODEP N) (SETQ N (\ILLEGAL.ARG N))) (COND ((IGREATERP N \MAXTHINCHAR) (* ; "The character we're getting is NOT a thin character -- do it the hard way") (WITH-RESOURCE (\PNAMESTRING) (\PNAMESTRINGPUTCHAR (ffetch (STRINGP XBASE) of \PNAMESTRING) 0 N) (\MKATOM (ffetch (STRINGP XBASE) of \PNAMESTRING) 0 1 \FATPNAMESTRINGP))) ((IGREATERP N (CHARCODE 9)) (\ADDBASE \OneCharAtomBase (IDIFFERENCE N 10))) ((IGEQ N (CHARCODE 0)) (IDIFFERENCE N (CHARCODE 0))) (T (* ; "The common case -- just add on the one-atom base.") (\ADDBASE \OneCharAtomBase N)))) -) + [LAMBDA (N) (* jop%: "23-Sep-86 17:45") + (OR (\CHARCODEP N) + (SETQ N (\ILLEGAL.ARG N))) + (COND + ((IGREATERP N \MAXTHINCHAR) (* ; + "The character we're getting is NOT a thin character -- do it the hard way") + (WITH-RESOURCE (\PNAMESTRING) + (\PNAMESTRINGPUTCHAR (ffetch (STRINGP XBASE) of \PNAMESTRING) + 0 N) + (\MKATOM (ffetch (STRINGP XBASE) of \PNAMESTRING) + 0 1 \FATPNAMESTRINGP))) + ((IGREATERP N (CHARCODE 9)) + (\ADDBASE \OneCharAtomBase (IDIFFERENCE N 10))) + ((IGEQ N (CHARCODE 0)) + (IDIFFERENCE N (CHARCODE 0))) + (T (* ; + "The common case -- just add on the one-atom base.") + (\ADDBASE \OneCharAtomBase N]) (\PARSE.NUMBER -(LAMBDA (BASE BN LEN FATP RADIX RDTBL) (* ; "Edited 12-Feb-87 19:21 by bvm:") (* ;;; "Attempt to create a numeric atom out of the chars in BASE from BN for LEN characters (fat or thin, depending on FATP). Return NIL if the chars do not form a legal number when read in this read table.") (DECLARE (GLOBALVARS \ORIGREADTABLE)) (if (NULL RDTBL) then (SETQ RDTBL *READTABLE*)) (PROG ((I BN) (END (IPLUS BN LEN)) (STATE (QUOTE INIT)) (COMMONLISP (AND (NEQ RDTBL \ORIGREADTABLE) (fetch (READTABLEP COMMONLISP) of RDTBL))) COMMONLISPY MAXDIGIT MAXALPHADIGIT C SIGN START ENDFRAC DECPT EXPSTART NEGFRAC SIGDIGITS EXP10 SEENALPHADIGITS SEENBOGUSDIGITS) (* ; "The test for \origreadtable is a kludge so that \MKATOM can work before read tables are set up. \MKATOM calls us with RDTBL = \origreadtable, which is initially NOBIND. ") (if (NULL RADIX) then (SETQ RADIX (if COMMONLISP then *READ-BASE* else 10))) (if (GREATERP RADIX 10) then (* ; "can have alphabetic digits for large bases") (SETQ MAXALPHADIGIT (IPLUS (CHARCODE A) (IDIFFERENCE RADIX 11))) (SETQ MAXDIGIT (CHARCODE 9)) else (SETQ MAXDIGIT (IPLUS (CHARCODE 0) (SUB1 RADIX)))) (SETQ COMMONLISPY (OR COMMONLISP (AND (NEQ RDTBL \ORIGREADTABLE) (fetch (READTABLEP COMMONNUMSYNTAX) of RDTBL)))) LP (* ;; "Scan string to see what we have: a decimal integer, octal integer, or floating-point number. Once we know which we have, we can pack up the value quickly") (if (EQ I END) then (RETURN (SELECTQ STATE ((INITDIGIT AFTERQ AFTERMIDDLEDOT) (if (NOT START) then (* ; "saw no non-zero digits") 0 elseif SEENBOGUSDIGITS then (* ; "Some digits were not valid in this radix, so object is not a number. Note that there is no suffix in this case, so i is correct.") (\INVALID.INTEGER BASE START I SIGN RADIX FATP) else (\MKINTEGER BASE START (if (NEQ STATE (QUOTE INITDIGIT)) then (* ; "string ended in Q or dot") (SUB1 I) else I) (EQ SIGN (QUOTE -)) RADIX FATP))) ((INFRACTION INEXPONENT) (if SIGDIGITS then (if (NOT ENDFRAC) then (SETQ ENDFRAC I) (SETQ NEGFRAC (EQ SIGN (QUOTE -)))) (if (IGREATERP SIGDIGITS MAX.DIGITS.ACCURACY) then (* ;; "Too many digits--we will overflow. Only take as many as we can handle. Don't worry about looking at the n+1'st digit for rounding, since it won't make any difference (there are many fewer sig bits in a floatp than in a fixp)") (SETQ ENDFRAC (IPLUS START MAX.DIGITS.ACCURACY)) (if (AND (IGREATERP DECPT START) (ILESSP DECPT ENDFRAC)) then (add ENDFRAC 1))) (SETQ EXP10 (if EXPSTART then (\MKINTEGER BASE EXPSTART I (EQ SIGN (QUOTE -)) 10 FATP) else 0)) (* ; "the explicit exponent") (\FLOATINGSCALE (\MKINTEGER BASE START ENDFRAC NEGFRAC 10 FATP) (IPLUS EXP10 (IDIFFERENCE DECPT ENDFRAC) (if (ILESSP DECPT ENDFRAC) then (* ; "don't count the position the dec pt occupies") 1 else 0))) else (* ; "we saw only zeros") (FLOAT 0))) NIL))) (SETQ STATE (OR (SELCHARQ (SETQ C (\GETBASECHAR FATP BASE I)) (- (AND (NOT SIGN) (SELECTQ STATE ((INIT AFTERE) (SETQ SIGN (QUOTE -)) STATE) NIL))) (+ (AND (NOT SIGN) (SELECTQ STATE ((INIT AFTERE) (SETQ SIGN (QUOTE +)) STATE) NIL))) (%. (SETQ DECPT I) (SELECTQ STATE (INIT (QUOTE AFTERINITIALDOT)) (INITDIGIT (if SEENALPHADIGITS then (* ; "Can't have decimal point in other radices") NIL elseif COMMONLISP then (* ; "Could be decimal integer") (SETQ RADIX 10) (SETQ SEENBOGUSDIGITS NIL) (* ; "digits bigger than radix not an error any more") (QUOTE AFTERMIDDLEDOT) else (QUOTE INFRACTION))) (AFTERINITIALDOT (* ; "Two dots in a row. If symbol is ALL dots, then we have to signal an error.") (if (AND COMMONLISP (NOT SIGN) (for J from (ADD1 I) to (SUB1 END) always (EQ (\GETBASECHAR FATP BASE J) (CHARCODE %.)))) then (\INVALID.DOTTED.SYMBOL BASE BN LEN FATP) else (* ; "not all dots, started with sign, or in Interlisp read table, where it's ok -- just not a number") NIL)) NIL)) (COND ((AND (IGEQ C (CHARCODE 0)) (ILEQ C (CHARCODE 9))) (* ; "digit") (SELECTQ STATE ((INIT INITDIGIT) (IF (> C MAXDIGIT) THEN (* ; "not a digit in this radix. However, number could turn out to be decimal (integer or float), so keep going.") (SETQ SEENBOGUSDIGITS T)) (if SIGDIGITS then (add SIGDIGITS 1) elseif (NEQ C (CHARCODE 0)) then (* ; "record where first significant digit happens") (SETQ START I) (SETQ SIGDIGITS 1)) (QUOTE INITDIGIT)) ((INFRACTION AFTERINITIALDOT AFTERMIDDLEDOT) (* ; "Scanning fractional part") (if SIGDIGITS then (add SIGDIGITS 1) elseif (NEQ C (CHARCODE 0)) then (SETQ SIGDIGITS 1) (SETQ START I)) (QUOTE INFRACTION)) (AFTERE (SETQ EXPSTART I) (QUOTE INEXPONENT)) (INEXPONENT (QUOTE INEXPONENT)) NIL)) ((IGREATERP C (CHARCODE z)) (* ; "Out in the wilderness") NIL) (T (* ; "Some other non-digit") (if (AND COMMONLISPY (IGEQ C (CHARCODE a))) then (SETQ C (IDIFFERENCE C (IDIFFERENCE (CHARCODE a) (CHARCODE A))))) (if (AND MAXALPHADIGIT (IGEQ C (CHARCODE A)) (ILEQ C MAXALPHADIGIT) (NOT DECPT)) then (* ; "Letter is a digit in this base") (SELECTQ STATE ((INIT INITDIGIT) (SETQ SEENALPHADIGITS T) (if SIGDIGITS then (add SIGDIGITS 1) else (SETQ START I) (SETQ SIGDIGITS 1)) (QUOTE INITDIGIT)) NIL) elseif (EQ C (CHARCODE Q)) then (* ; "Interlisp octal specifier -- perhaps should only do this if not common lisp") (SELECTQ STATE (INITDIGIT (SETQ RADIX 8) (SETQ SEENBOGUSDIGITS NIL) (* ; "It is possible that we should check to see if all the digits are really octal digits, but that's a pain, and we never did it before in Interlisp.") (QUOTE AFTERQ)) NIL) elseif (AND (OR (EQ C (CHARCODE E)) (AND COMMONLISPY (FMEMB C (CHARCODE (D F L S))))) (NOT SEENALPHADIGITS)) then (* ; "Exponent marker. Someday there will be differences among some of these") (SELECTQ STATE ((INITDIGIT INFRACTION AFTERMIDDLEDOT) (* ; "We've seen digits and/or a fraction") (OR DECPT (SETQ DECPT I)) (SETQ ENDFRAC I) (SETQ NEGFRAC (EQ SIGN (QUOTE -))) (SETQ SIGN NIL) (QUOTE AFTERE)) NIL) elseif (AND (EQ C (CHARCODE /)) COMMONLISPY) then (* ; "Ratio marker. Must only have seen digits and possibly sign so far") (if (AND (EQ STATE (QUOTE INITDIGIT)) (NEQ (ADD1 I) END) (for J from (ADD1 I) to (SUB1 END) always (* ; "test remaining digits valid for this radix") (AND (IGEQ (SETQ C (\GETBASECHAR FATP BASE J)) (CHARCODE 0)) (OR (ILEQ C MAXDIGIT) (AND MAXALPHADIGIT (IGEQ C (CHARCODE A)) (ILEQ (if (IGEQ C (CHARCODE a)) then (IDIFFERENCE C (IDIFFERENCE (CHARCODE a) (CHARCODE A))) else C) MAXALPHADIGIT)))))) then (RETURN (if START then (/ (\MKINTEGER BASE START I (EQ SIGN (QUOTE -)) RADIX FATP) (\MKINTEGER BASE (ADD1 I) END NIL RADIX FATP)) else (* ; "saw no non-zero digits") 0))))))) (RETURN NIL))) (SETQ I (ADD1 I)) (GO LP))) -) + [LAMBDA (BASE BN LEN FATP RADIX RDTBL) (* ; "Edited 12-Feb-87 19:21 by bvm:") + +(* ;;; "Attempt to create a numeric atom out of the chars in BASE from BN for LEN characters (fat or thin, depending on FATP). Return NIL if the chars do not form a legal number when read in this read table.") + + (DECLARE (GLOBALVARS \ORIGREADTABLE)) + (if (NULL RDTBL) + then (SETQ RDTBL *READTABLE*)) + (PROG ((I BN) + (END (IPLUS BN LEN)) + (STATE 'INIT) + (COMMONLISP (AND (NEQ RDTBL \ORIGREADTABLE) + (fetch (READTABLEP COMMONLISP) of RDTBL))) + COMMONLISPY MAXDIGIT MAXALPHADIGIT C SIGN START ENDFRAC DECPT EXPSTART NEGFRAC SIGDIGITS + EXP10 SEENALPHADIGITS SEENBOGUSDIGITS) (* ; "The test for \origreadtable is a kludge so that \MKATOM can work before read tables are set up. \MKATOM calls us with RDTBL = \origreadtable, which is initially NOBIND. ") + (if (NULL RADIX) + then (SETQ RADIX (if COMMONLISP + then *READ-BASE* + else 10))) + [if (GREATERP RADIX 10) + then (* ; + "can have alphabetic digits for large bases") + (SETQ MAXALPHADIGIT (IPLUS (CHARCODE A) + (IDIFFERENCE RADIX 11))) + (SETQ MAXDIGIT (CHARCODE 9)) + else (SETQ MAXDIGIT (IPLUS (CHARCODE 0) + (SUB1 RADIX] + [SETQ COMMONLISPY (OR COMMONLISP (AND (NEQ RDTBL \ORIGREADTABLE) + (fetch (READTABLEP COMMONNUMSYNTAX) of RDTBL] + LP + + (* ;; "Scan string to see what we have: a decimal integer, octal integer, or floating-point number. Once we know which we have, we can pack up the value quickly") + + (if (EQ I END) + then (RETURN (SELECTQ STATE + ((INITDIGIT AFTERQ AFTERMIDDLEDOT) + (if (NOT START) + then (* ; "saw no non-zero digits") + 0 + elseif SEENBOGUSDIGITS + then (* ; "Some digits were not valid in this radix, so object is not a number. Note that there is no suffix in this case, so i is correct.") + (\INVALID.INTEGER BASE START I SIGN RADIX FATP) + else (\MKINTEGER BASE START + (if (NEQ STATE 'INITDIGIT) + then + (* ; "string ended in Q or dot") + (SUB1 I) + else I) + (EQ SIGN '-) + RADIX FATP))) + ((INFRACTION INEXPONENT) + (if SIGDIGITS + then [if (NOT ENDFRAC) + then (SETQ ENDFRAC I) + (SETQ NEGFRAC (EQ SIGN '-] + (if (IGREATERP SIGDIGITS MAX.DIGITS.ACCURACY) + then + + (* ;; "Too many digits--we will overflow. Only take as many as we can handle. Don't worry about looking at the n+1'st digit for rounding, since it won't make any difference (there are many fewer sig bits in a floatp than in a fixp)") + + (SETQ ENDFRAC (IPLUS START + MAX.DIGITS.ACCURACY) + ) + (if (AND (IGREATERP DECPT START) + (ILESSP DECPT ENDFRAC)) + then (add ENDFRAC 1))) + (SETQ EXP10 (if EXPSTART + then (\MKINTEGER + BASE EXPSTART I + (EQ SIGN '-) + 10 FATP) + else 0)) + (* ; "the explicit exponent") + (\FLOATINGSCALE (\MKINTEGER BASE START ENDFRAC + NEGFRAC 10 FATP) + (IPLUS EXP10 (IDIFFERENCE DECPT ENDFRAC) + (if (ILESSP DECPT ENDFRAC) + then + (* ; + "don't count the position the dec pt occupies") + 1 + else 0))) + else (* ; "we saw only zeros") + (FLOAT 0))) + NIL))) + (SETQ STATE + (OR + [SELCHARQ (SETQ C (\GETBASECHAR FATP BASE I)) + (- (AND (NOT SIGN) + (SELECTQ STATE + ((INIT AFTERE) + (SETQ SIGN '-) + STATE) + NIL))) + (+ (AND (NOT SIGN) + (SELECTQ STATE + ((INIT AFTERE) + (SETQ SIGN '+) + STATE) + NIL))) + (%. (SETQ DECPT I) + (SELECTQ STATE + (INIT 'AFTERINITIALDOT) + (INITDIGIT (if SEENALPHADIGITS + then (* ; + "Can't have decimal point in other radices") + NIL + elseif COMMONLISP + then (* ; "Could be decimal integer") + (SETQ RADIX 10) + (SETQ SEENBOGUSDIGITS NIL) + (* ; + "digits bigger than radix not an error any more") + 'AFTERMIDDLEDOT + else 'INFRACTION)) + (AFTERINITIALDOT (* ; + "Two dots in a row. If symbol is ALL dots, then we have to signal an error.") + (if [AND COMMONLISP (NOT SIGN) + (for J from (ADD1 I) to (SUB1 END) + always (EQ (\GETBASECHAR FATP BASE J) + (CHARCODE %.] + then (\INVALID.DOTTED.SYMBOL BASE BN LEN FATP) + else (* ; + "not all dots, started with sign, or in Interlisp read table, where it's ok -- just not a number") + NIL)) + NIL)) + (COND + ((AND (IGEQ C (CHARCODE 0)) + (ILEQ C (CHARCODE 9))) (* ; "digit") + (SELECTQ STATE + ((INIT INITDIGIT) + (IF (> C MAXDIGIT) + THEN (* ; "not a digit in this radix. However, number could turn out to be decimal (integer or float), so keep going.") + (SETQ SEENBOGUSDIGITS T)) + (if SIGDIGITS + then (add SIGDIGITS 1) + elseif (NEQ C (CHARCODE 0)) + then (* ; + "record where first significant digit happens") + (SETQ START I) + (SETQ SIGDIGITS 1)) + 'INITDIGIT) + ((INFRACTION AFTERINITIALDOT AFTERMIDDLEDOT) + (* ; "Scanning fractional part") + (if SIGDIGITS + then (add SIGDIGITS 1) + elseif (NEQ C (CHARCODE 0)) + then (SETQ SIGDIGITS 1) + (SETQ START I)) + 'INFRACTION) + (AFTERE (SETQ EXPSTART I) + 'INEXPONENT) + (INEXPONENT 'INEXPONENT) + NIL)) + ((IGREATERP C (CHARCODE z)) (* ; "Out in the wilderness") + NIL) + (T (* ; "Some other non-digit") + [if (AND COMMONLISPY (IGEQ C (CHARCODE a))) + then (SETQ C (IDIFFERENCE C (IDIFFERENCE (CHARCODE a) + (CHARCODE A] + (if (AND MAXALPHADIGIT (IGEQ C (CHARCODE A)) + (ILEQ C MAXALPHADIGIT) + (NOT DECPT)) + then (* ; "Letter is a digit in this base") + (SELECTQ STATE + ((INIT INITDIGIT) + (SETQ SEENALPHADIGITS T) + (if SIGDIGITS + then (add SIGDIGITS 1) + else (SETQ START I) + (SETQ SIGDIGITS 1)) + 'INITDIGIT) + NIL) + elseif (EQ C (CHARCODE Q)) + then (* ; + "Interlisp octal specifier -- perhaps should only do this if not common lisp") + (SELECTQ STATE + (INITDIGIT (SETQ RADIX 8) + (SETQ SEENBOGUSDIGITS NIL) + (* ; "It is possible that we should check to see if all the digits are really octal digits, but that's a pain, and we never did it before in Interlisp.") + 'AFTERQ) + NIL) + elseif (AND [OR (EQ C (CHARCODE E)) + (AND COMMONLISPY (FMEMB C (CHARCODE (D F L S] + (NOT SEENALPHADIGITS)) + then (* ; + "Exponent marker. Someday there will be differences among some of these") + (SELECTQ STATE + ((INITDIGIT INFRACTION AFTERMIDDLEDOT) + (* ; + "We've seen digits and/or a fraction") + (OR DECPT (SETQ DECPT I)) + (SETQ ENDFRAC I) + (SETQ NEGFRAC (EQ SIGN '-)) + (SETQ SIGN NIL) + 'AFTERE) + NIL) + elseif (AND (EQ C (CHARCODE /)) + COMMONLISPY) + then (* ; + "Ratio marker. Must only have seen digits and possibly sign so far") + (if + [AND + (EQ STATE 'INITDIGIT) + (NEQ (ADD1 I) + END) + (for J from (ADD1 I) to (SUB1 END) + always (* ; + "test remaining digits valid for this radix") + (AND (IGEQ (SETQ C (\GETBASECHAR FATP BASE J)) + (CHARCODE 0)) + (OR (ILEQ C MAXDIGIT) + (AND MAXALPHADIGIT (IGEQ C (CHARCODE A)) + (ILEQ (if (IGEQ C (CHARCODE a)) + then (IDIFFERENCE C (IDIFFERENCE + (CHARCODE a) + (CHARCODE A))) + else C) + MAXALPHADIGIT] + then (RETURN (if START + then (/ (\MKINTEGER BASE START I + (EQ SIGN '-) + RADIX FATP) + (\MKINTEGER BASE (ADD1 I) + END NIL RADIX FATP)) + else (* ; "saw no non-zero digits") + 0] + (RETURN NIL))) + (SETQ I (ADD1 I)) + (GO LP]) (\INVALID.DOTTED.SYMBOL -(LAMBDA (BASE START LEN FATP) (* ; "Edited 12-Feb-87 18:56 by bvm:") (* ;;; "Called from number parser when scanning a token that is all dots. Value returned from here is NIL to treat it as a quoted symbol or any other non-null value you'd like to return.") (CL:CERROR "Treat the dots as if they were escaped" "Invalid symbol consisting entirely of dots ~S" (\GETBASESTRING BASE START LEN FATP)) NIL) -) + [LAMBDA (BASE START LEN FATP) (* ; "Edited 12-Feb-87 18:56 by bvm:") + +(* ;;; "Called from number parser when scanning a token that is all dots. Value returned from here is NIL to treat it as a quoted symbol or any other non-null value you'd like to return.") + + (CL:CERROR "Treat the dots as if they were escaped" + "Invalid symbol consisting entirely of dots ~S" (\GETBASESTRING BASE START LEN FATP)) + NIL]) (\INVALID.INTEGER -(LAMBDA (BASE START END SIGN RADIX FATP) (* ; "Edited 12-Feb-87 19:39 by bvm:") (* ;;; "Called when scanning a token that is all digits, but some digits are not valid in this read base. Value returned from here is NIL to treat it as a symbol or a number (the default proceed case says to interpret in decimal).") (CL:CERROR "Treat the number as if in decimal radix" "Invalid integer %"~@[~A~]~A%" in read base ~D" SIGN (\GETBASESTRING BASE (if FATP then (* ;; "yecch. start arg to \getbasestring is always byte offset, whether it's fat or not. start arg to \parse.number is character number (and usually zero, apparently).") (UNFOLD START BYTESPERWORD) else START) (- END START) FATP) RADIX) (\MKINTEGER BASE START END (EQ SIGN (QUOTE -)) 10 FATP)) -) + [LAMBDA (BASE START END SIGN RADIX FATP) (* ; "Edited 12-Feb-87 19:39 by bvm:") + +(* ;;; "Called when scanning a token that is all digits, but some digits are not valid in this read base. Value returned from here is NIL to treat it as a symbol or a number (the default proceed case says to interpret in decimal).") + + (CL:CERROR "Treat the number as if in decimal radix" + "Invalid integer %"~@[~A~]~A%" in read base ~D" SIGN (\GETBASESTRING + BASE + (if FATP + then + + (* ;; "yecch. start arg to \getbasestring is always byte offset, whether it's fat or not. start arg to \parse.number is character number (and usually zero, apparently).") + + (UNFOLD START BYTESPERWORD + ) + else START) + (- END START) + FATP) + RADIX) + (\MKINTEGER BASE START END (EQ SIGN '-) + 10 FATP]) (\MKINTEGER - [LAMBDA (BASE START END NEG RADIX FATP) (* ; "Edited 13-Oct-87 11:10 by jrb:") + [LAMBDA (BASE START END NEG RADIX FATP) (* ; "Edited 13-Oct-87 11:10 by jrb:") -(* ;;; "Return integer whose Ascii characters run from START to END off BASE. If NEG is true, negate it. RADIX is the base. String is assumed to contain only digits valid in RADIX -- no error checking. For benefit of floating routines, dec pt is ignored.") +(* ;;; "Return integer whose Ascii characters run from START to END off BASE. If NEG is true, negate it. RADIX is the base. String is assumed to contain only digits valid in RADIX -- no error checking. For benefit of floating routines, dec pt is ignored.") -(* ;;; "JRB - Modified per BvM suggestion to accumulate three digits at a time (three digits insures largest legal radix (36) won't overflow a smallp). The bottom of the loop goes to great lengths to avoid computing RADIX^2 and RADIX^3 unless it absolutely has to.") +(* ;;; "JRB - Modified per BvM suggestion to accumulate three digits at a time (three digits insures largest legal radix (36) won't overflow a smallp). The bottom of the loop goes to great lengths to avoid computing RADIX^2 and RADIX^3 unless it absolutely has to.") (PROG ((VAL 0) LOOPVAL CH I RADIX2 RADIX3) @@ -108,93 +453,479 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1994, 2018 by Venu (SETQ LOOPVAL 0) (SETQ I 3) (while (AND (NOT (EQ START END)) - (NOT (EQ I 0))) + (NOT (EQ I 0))) do (SETQ CH (\GETBASECHAR FATP BASE START)) - (if (NEQ CH (CHARCODE ".")) - then (* ; "ignore dec pt") - - [SETQ CH (if (IGEQ CH (CHARCODE A)) - then (* ; - "Large radix digit. Could be lowercase, so zap the 40q bit") - - (IPLUS 10 (IDIFFERENCE (LOGAND CH 95) - (CHARCODE A))) - else (IDIFFERENCE CH (CHARCODE 0] - (SETQ LOOPVAL (if NEG - then (IDIFFERENCE (ITIMES LOOPVAL RADIX) - CH) - else (IPLUS (ITIMES LOOPVAL RADIX) - CH))) - (SETQ I (SUB1 I))) - (SETQ START (ADD1 START))) + (if (NEQ CH (CHARCODE ".")) + then (* ; "ignore dec pt") + [SETQ CH (if (IGEQ CH (CHARCODE A)) + then (* ; + "Large radix digit. Could be lowercase, so zap the 40q bit") + (IPLUS 10 (IDIFFERENCE (LOGAND CH 95) + (CHARCODE A))) + else (IDIFFERENCE CH (CHARCODE 0] + (SETQ LOOPVAL (if NEG + then (IDIFFERENCE (ITIMES LOOPVAL RADIX) + CH) + else (IPLUS (ITIMES LOOPVAL RADIX) + CH))) + (SETQ I (SUB1 I))) + (SETQ START (ADD1 START))) (SETQ VAL (if (EQ VAL 0) then LOOPVAL - else [OR RADIX3 (SETQ RADIX3 (ITIMES RADIX (SETQ RADIX2 (ITIMES RADIX RADIX] - (IPLUS (ITIMES VAL (SELECTQ I - (0 RADIX3) - (1 RADIX2) - (2 RADIX) - 1)) - LOOPVAL))) + else [OR RADIX3 (SETQ RADIX3 (ITIMES RADIX (SETQ RADIX2 (ITIMES RADIX RADIX + ] + (IPLUS (ITIMES VAL (SELECTQ I + (0 RADIX3) + (1 RADIX2) + (2 RADIX) + 1)) + LOOPVAL))) (GO LP]) (MKSTRING -(LAMBDA (X FLG RDTBL) (* ; "Edited 10-Feb-87 19:09 by bvm:") (* ; "Coerce X to be a string. The string will be FAT if X is") (DECLARE (GLOBALVARS PRXFLG)) (OR (COND ((NOT FLG) (* ; "The simple case -- just gather up the characters in the item") (COND ((STRINGP X) (* ; "Strings coerce to themselves") X) ((LITATOM X) (* ; "LITATOMs have a new descriptor created, pointing to the same characters.") (create STRINGP XBASE _ (ffetch (LITATOM PNAMEBASE) of X) LENGTH _ (ffetch (LITATOM PNAMELENGTH) of X) OFFST _ 1 XREADONLY _ T TYP _ (COND ((ffetch (LITATOM FATPNAMEP) of X) \ST.POS16) (T \ST.BYTE)))) ((CL:CHARACTERP X) (* ; "CL characters are one-character strings") (ALLOCSTRING 1 (CL:CHAR-CODE X)))))) (LET ((BASE (COND (PRXFLG (\CHECKRADIX *PRINT-BASE*)) (T 10)))) (LET ((*PRINT-ESCAPE* FLG) (*READTABLE* (COND (FLG (\GTREADTABLE RDTBL)) (T *READTABLE*))) (*PRINT-RADIX* (AND FLG (NEQ BASE 10))) (*PRINT-BASE* BASE) (*PRINT-LENGTH*) (*PRINT-LEVEL*)) (* ;; "General case: internally print the name, gather up the characters") (\PRINDATUM.TO.STRING X))))) -) + [LAMBDA (X FLG RDTBL) (* ; "Edited 10-Feb-87 19:09 by bvm:") + (* ; + "Coerce X to be a string. The string will be FAT if X is") + (DECLARE (GLOBALVARS PRXFLG)) + (OR [COND + ((NOT FLG) (* ; + "The simple case -- just gather up the characters in the item") + (COND + ((STRINGP X) (* ; "Strings coerce to themselves") + X) + [(LITATOM X) (* ; + "LITATOMs have a new descriptor created, pointing to the same characters.") + (create STRINGP + XBASE _ (ffetch (LITATOM PNAMEBASE) of X) + LENGTH _ (ffetch (LITATOM PNAMELENGTH) of X) + OFFST _ 1 + XREADONLY _ T + TYP _ (COND + ((ffetch (LITATOM FATPNAMEP) of X) + \ST.POS16) + (T \ST.BYTE] + ((CL:CHARACTERP X) (* ; + "CL characters are one-character strings") + (ALLOCSTRING 1 (CL:CHAR-CODE X] + (LET [(BASE (COND + (PRXFLG (\CHECKRADIX *PRINT-BASE*)) + (T 10] + (LET ((*PRINT-ESCAPE* FLG) + (*READTABLE* (COND + (FLG (\GTREADTABLE RDTBL)) + (T *READTABLE*))) + (*PRINT-RADIX* (AND FLG (NEQ BASE 10))) + (*PRINT-BASE* BASE) + (*PRINT-LENGTH*) + (*PRINT-LEVEL*)) + + (* ;; "General case: internally print the name, gather up the characters") + + (\PRINDATUM.TO.STRING X]) (\PRINDATUM.TO.STRING -(LAMBDA (X) (* ; "Edited 9-Dec-86 11:04 by jrb:") (* ;;; "Produces a string that is the result of printing X according the current settings of *PRINT-ESCAPE* etc.") (SELECTC (NTYPX X) ((LIST \FIXP \SMALLP \FLOATP) (* ; "We know how to print numbers without extra steps") (GLOBALRESOURCE (\NUMSTR \NUMSTR1) (LET ((STR (COND ((FLOATP X) (\CONVERT.FLOATING.NUMBER X \NUMSTR \NUMSTR1)) (T (\CONVERTNUMBER X *PRINT-BASE* NIL (AND *PRINT-RADIX* *READTABLE*) \NUMSTR \NUMSTR1))))) (RPLSTRING (ALLOCSTRING (NCHARS STR)) 1 STR)))) (LET ((FATSTRINGP) (STRINGLEN 0) (STRINDEX 0) STRINGPTR *PRINT-CIRCLE-HASHTABLE* (*PRINT-CIRCLE-NUMBER* 1) THERE-ARE-CIRCLES) (DECLARE (CL:SPECIAL *PRINT-CIRCLE-HASHTABLE* *PRINT-CIRCLE-NUMBER* THERE-ARE-CIRCLES)) (* ; "If *print-circle* is on, need to scan the structure") (IF *PRINT-CIRCLE* THEN (SETQ *PRINT-CIRCLE-HASHTABLE* (CL:MAKE-HASH-TABLE)) (PRINT-CIRCLE-SCAN X) (IF (NOT THERE-ARE-CIRCLES) THEN (SETQ *PRINT-CIRCLE-HASHTABLE* NIL))) (* ;; "First count up the characters and their fatness") (\MAPPNAME.INTERNAL (FUNCTION (LAMBDA (DUMMY CODE) (COND ((GREATERP CODE \MAXTHINCHAR) (SETQ FATSTRINGP T))) (add STRINGLEN 1))) X) (* ;; "We print structures TWICE here, so we need to reset *PRINT-CIRCLE-HASHTABLE* and *PRINT-CIRCLE-NUMBER* if circles are being printed") (if *PRINT-CIRCLE-HASHTABLE* then (SETQ *PRINT-CIRCLE-NUMBER* 1) (CL:MAPHASH (CL:FUNCTION (LAMBDA (KEY VAL) (if (NUMBERP VAL) then (CL:SETF (CL:GETHASH KEY *PRINT-CIRCLE-HASHTABLE*) (QUOTE T2))))) *PRINT-CIRCLE-HASHTABLE*)) (* ;; "Then print X again actually storing the characters into the string") (SETQ STRINGPTR (ALLOCSTRING STRINGLEN NIL NIL FATSTRINGP)) (\MAPPNAME.INTERNAL (FUNCTION (LAMBDA (DUMMY CODE) (COND ((EQ STRINDEX (ffetch (STRINGP LENGTH) of STRINGPTR)) (* ; "Help! NCHARS and \MAPPNAME disagree.") (SETQ STRINGPTR (CONCAT STRINGPTR " ")))) (add STRINDEX 1) (COND ((ffetch (STRINGP FATSTRINGP) of STRINGPTR) (* ; "Fat string; just smash the character in.") (\PUTBASEFAT (fetch (STRINGP BASE) of STRINGPTR) (IPLUS (fetch (STRINGP OFFST) of STRINGPTR) STRINDEX -1) CODE)) ((ILEQ CODE \MAXTHINCHAR) (* ; "Thin char and String; just smash the char in") (\PUTBASETHIN (fetch (STRINGP BASE) of STRINGPTR) (IPLUS (fetch (STRINGP OFFST) of STRINGPTR) STRINDEX -1) CODE)) (T (* ;; "Need to fatten the string, then smash in the char. This shouldn't happen unless X gets printed different the two times!") (\FATTENSTRING STRINGPTR) (\PUTBASEFAT (fetch (STRINGP BASE) of STRINGPTR) (IPLUS (fetch (STRINGP OFFST) of STRINGPTR) STRINDEX -1) CODE))))) X) STRINGPTR))) -) + [LAMBDA (X) (* ; "Edited 9-Dec-86 11:04 by jrb:") + +(* ;;; "Produces a string that is the result of printing X according the current settings of *PRINT-ESCAPE* etc.") + + (SELECTC (NTYPX X) + ((LIST \FIXP \SMALLP \FLOATP) (* ; + "We know how to print numbers without extra steps") + (GLOBALRESOURCE (\NUMSTR \NUMSTR1) + (LET [(STR (COND + ((FLOATP X) + (\CONVERT.FLOATING.NUMBER X \NUMSTR \NUMSTR1)) + (T (\CONVERTNUMBER X *PRINT-BASE* NIL (AND *PRINT-RADIX* + *READTABLE*) + \NUMSTR \NUMSTR1] + (RPLSTRING (ALLOCSTRING (NCHARS STR)) + 1 STR)))) + (LET ((FATSTRINGP) + (STRINGLEN 0) + (STRINDEX 0) + STRINGPTR *PRINT-CIRCLE-HASHTABLE* (*PRINT-CIRCLE-NUMBER* 1) + THERE-ARE-CIRCLES) + (DECLARE (CL:SPECIAL *PRINT-CIRCLE-HASHTABLE* *PRINT-CIRCLE-NUMBER* + THERE-ARE-CIRCLES)) (* ; + "If *print-circle* is on, need to scan the structure") + (IF *PRINT-CIRCLE* + THEN (SETQ *PRINT-CIRCLE-HASHTABLE* (CL:MAKE-HASH-TABLE)) + (PRINT-CIRCLE-SCAN X) + (IF (NOT THERE-ARE-CIRCLES) + THEN (SETQ *PRINT-CIRCLE-HASHTABLE* NIL))) + + (* ;; "First count up the characters and their fatness") + + (\MAPPNAME.INTERNAL [FUNCTION (LAMBDA (DUMMY CODE) + (COND + ((GREATERP CODE \MAXTHINCHAR) + (SETQ FATSTRINGP T))) + (add STRINGLEN 1] + X) + + (* ;; "We print structures TWICE here, so we need to reset *PRINT-CIRCLE-HASHTABLE* and *PRINT-CIRCLE-NUMBER* if circles are being printed") + + (if *PRINT-CIRCLE-HASHTABLE* + then (SETQ *PRINT-CIRCLE-NUMBER* 1) + (CL:MAPHASH #'[LAMBDA (KEY VAL) + (if (NUMBERP VAL) + then (CL:SETF (CL:GETHASH KEY *PRINT-CIRCLE-HASHTABLE* + ) + 'T2] + *PRINT-CIRCLE-HASHTABLE*)) + + (* ;; "Then print X again actually storing the characters into the string") + + (SETQ STRINGPTR (ALLOCSTRING STRINGLEN NIL NIL FATSTRINGP)) + (\MAPPNAME.INTERNAL [FUNCTION (LAMBDA (DUMMY CODE) + [COND + ((EQ STRINDEX (ffetch (STRINGP LENGTH) + of STRINGPTR)) + (* ; + "Help! NCHARS and \MAPPNAME disagree.") + (SETQ STRINGPTR (CONCAT STRINGPTR " "] + (add STRINDEX 1) + (COND + ((ffetch (STRINGP FATSTRINGP) of + STRINGPTR + ) (* ; + "Fat string; just smash the character in.") + (\PUTBASEFAT (fetch (STRINGP BASE) + of STRINGPTR) + (IPLUS (fetch (STRINGP OFFST) + of STRINGPTR) + STRINDEX -1) + CODE)) + ((ILEQ CODE \MAXTHINCHAR) + (* ; + "Thin char and String; just smash the char in") + (\PUTBASETHIN (fetch (STRINGP BASE) + of STRINGPTR) + (IPLUS (fetch (STRINGP OFFST) + of STRINGPTR) + STRINDEX -1) + CODE)) + (T + + (* ;; "Need to fatten the string, then smash in the char. This shouldn't happen unless X gets printed different the two times!") + + (\FATTENSTRING STRINGPTR) + (\PUTBASEFAT (fetch (STRINGP BASE) + of STRINGPTR) + (IPLUS (fetch (STRINGP OFFST) + of STRINGPTR) + STRINDEX -1) + CODE] + X) + STRINGPTR]) (BKSYSBUF -(LAMBDA (X FLG RDTBL) (* jop%: "23-Sep-86 17:31") (PROG NIL (if (NOT FLG) then (COND ((LITATOM X) (RETURN (for C inatom X do (BKSYSCHARCODE C)))) ((STRINGP X) (RETURN (for C instring X do (BKSYSCHARCODE C)))) (T NIL))) (LET ((*READTABLE* *READTABLE*) (*PACKAGE* *PACKAGE*) TTY) (if FLG then (if RDTBL then (* ; "Use the explicit read table we were given") (SETQ *READTABLE* (\GTREADTABLE RDTBL)) elseif (NEQ (SETQ TTY (TTY.PROCESS)) (THIS.PROCESS)) then (* ; "Print it using the read environment of the destination tty") (SETQ *READTABLE* (PROCESS.EVALV TTY (QUOTE *READTABLE*))) (SETQ *PACKAGE* (PROCESS.EVALV TTY (QUOTE *PACKAGE*))))) (\MAPPNAME (FUNCTION (LAMBDA (DUMMY CODE) (BKSYSCHARCODE CODE))) X FLG RDTBL))) X) -) + [LAMBDA (X FLG RDTBL) (* jop%: "23-Sep-86 17:31") + (PROG NIL + (if (NOT FLG) + then (COND + [(LITATOM X) + (RETURN (for C inatom X do (BKSYSCHARCODE C] + [(STRINGP X) + (RETURN (for C instring X do (BKSYSCHARCODE C] + (T NIL))) + (LET ((*READTABLE* *READTABLE*) + (*PACKAGE* *PACKAGE*) + TTY) + [if FLG + then (if RDTBL + then (* ; + "Use the explicit read table we were given") + (SETQ *READTABLE* (\GTREADTABLE RDTBL)) + elseif (NEQ (SETQ TTY (TTY.PROCESS)) + (THIS.PROCESS)) + then (* ; + "Print it using the read environment of the destination tty") + (SETQ *READTABLE* (PROCESS.EVALV TTY '*READTABLE*)) + (SETQ *PACKAGE* (PROCESS.EVALV TTY '*PACKAGE*] + (\MAPPNAME [FUNCTION (LAMBDA (DUMMY CODE) + (BKSYSCHARCODE CODE] + X FLG RDTBL))) + X]) (NCHARS -(LAMBDA (X FLG RDTBL) (* jop%: "24-Sep-86 23:06") (* ;;; "Return the number of characters in (the print name of) X. If FLG, then return the number of characters in the PRIN2 version, according to RDTBL.") (PROG ((NCHARCNT 0)) (COND ((LITATOM X) (if (NOT FLG) then (* ; "Too hairy to figure out package count") (RETURN (ffetch (LITATOM PNAMELENGTH) of X)))) ((STRINGP X) (RETURN (IPLUS (ffetch (STRINGP LENGTH) of X) (COND (FLG (* ;; "2 for the enclosing quotes and an escape to quote every double quote char or escape in the string body") (IPLUS 2 (for C instring X bind (ESC _ (ffetch (READTABLEP ESCAPECHAR) of (\GTREADTABLE RDTBL))) count (OR (EQ C (CHARCODE %")) (EQ C (CHARCODE LF)) (EQ C ESC))))) (T 0)))))) (* ; "Slow case...") (\MAPPNAME (FUNCTION (LAMBDA NIL (add NCHARCNT 1))) X FLG RDTBL) (RETURN NCHARCNT))) -) + [LAMBDA (X FLG RDTBL) (* jop%: "24-Sep-86 23:06") + +(* ;;; "Return the number of characters in (the print name of) X. If FLG, then return the number of characters in the PRIN2 version, according to RDTBL.") + + (PROG ((NCHARCNT 0)) + [COND + [(LITATOM X) + (if (NOT FLG) + then (* ; + "Too hairy to figure out package count") + (RETURN (ffetch (LITATOM PNAMELENGTH) of X] + ((STRINGP X) + (RETURN (IPLUS (ffetch (STRINGP LENGTH) of X) + (COND + [FLG + (* ;; "2 for the enclosing quotes and an escape to quote every double quote char or escape in the string body") + + (IPLUS 2 (for C instring X + bind (ESC _ (ffetch (READTABLEP ESCAPECHAR) + of (\GTREADTABLE RDTBL))) + count (OR (EQ C (CHARCODE %")) + (EQ C (CHARCODE LF)) + (EQ C ESC] + (T 0] (* ; "Slow case...") + (\MAPPNAME [FUNCTION (LAMBDA NIL + (add NCHARCNT 1] + X FLG RDTBL) + (RETURN NCHARCNT]) (NTHCHARCODE -(LAMBDA (X N FLG RDTBL) (* jop%: "23-Sep-86 16:34") (PROG (BASE OFFST FATP LEN (M N)) (COND (FLG (GO SLOWCASE)) (T (COND ((STRINGP X) (SETQ BASE (ffetch (STRINGP BASE) of X)) (SETQ LEN (ffetch (STRINGP LENGTH) of X)) (SETQ OFFST (ffetch (STRINGP OFFST) of X)) (SETQ FATP (ffetch (STRINGP FATSTRINGP) of X))) ((LITATOM X) (SETQ BASE (ffetch (LITATOM PNAMEBASE) of X)) (SETQ LEN (ffetch (LITATOM PNAMELENGTH) of X)) (SETQ OFFST 1) (SETQ FATP (ffetch (LITATOM FATPNAMEP) of X))) (T (GO SLOWCASE))))) (COND ((ILESSP M 0) (* ; "Negative index counts from end") (SETQ M (IPLUS M LEN 1)))) (RETURN (COND ((OR (ILESSP M 1) (IGREATERP M LEN)) (* ; "out of range") NIL) (T (* ; "The -1 is cause strings have ORIG=1") (\GETBASECHAR FATP BASE (SUB1 (IPLUS OFFST M)))))) SLOWCASE (COND ((EQ M 0) (RETURN)) ((ILESSP M 0) (AND (ILESSP (SETQ M (IPLUS M (NCHARS X FLG RDTBL) 1)) 1) (RETURN)))) (\MAPPNAME (FUNCTION (LAMBDA (DUMMY CODE) (COND ((EQ (SETQ M (SUB1 M)) 0) (RETFROM (QUOTE NTHCHARCODE) CODE))))) X FLG RDTBL) (RETURN))) -) + [LAMBDA (X N FLG RDTBL) (* jop%: "23-Sep-86 16:34") + (PROG (BASE OFFST FATP LEN (M N)) + [COND + (FLG (GO SLOWCASE)) + (T (COND + ((STRINGP X) + (SETQ BASE (ffetch (STRINGP BASE) of X)) + (SETQ LEN (ffetch (STRINGP LENGTH) of X)) + (SETQ OFFST (ffetch (STRINGP OFFST) of X)) + (SETQ FATP (ffetch (STRINGP FATSTRINGP) of X))) + ((LITATOM X) + (SETQ BASE (ffetch (LITATOM PNAMEBASE) of X)) + (SETQ LEN (ffetch (LITATOM PNAMELENGTH) of X)) + (SETQ OFFST 1) + (SETQ FATP (ffetch (LITATOM FATPNAMEP) of X))) + (T (GO SLOWCASE] + [COND + ((ILESSP M 0) (* ; "Negative index counts from end") + (SETQ M (IPLUS M LEN 1] + [RETURN (COND + ((OR (ILESSP M 1) + (IGREATERP M LEN)) (* ; "out of range") + NIL) + (T (* ; + "The -1 is cause strings have ORIG=1") + (\GETBASECHAR FATP BASE (SUB1 (IPLUS OFFST M] + SLOWCASE + [COND + ((EQ M 0) + (RETURN)) + ((ILESSP M 0) + (AND (ILESSP (SETQ M (IPLUS M (NCHARS X FLG RDTBL) + 1)) + 1) + (RETURN] + (\MAPPNAME [FUNCTION (LAMBDA (DUMMY CODE) + (COND + ((EQ (SETQ M (SUB1 M)) + 0) + (RETFROM 'NTHCHARCODE CODE] + X FLG RDTBL) + (RETURN]) (RPLCHARCODE -(LAMBDA (X N CHAR) (* jop%: "23-Sep-86 16:36") (COND ((STRINGP X) (PROG ((LEN (ffetch (STRINGP LENGTH) of X))) (\SMASHABLESTRING X (\FATCHARCODEP CHAR)) (COND ((ILESSP N 0) (* ; "address from end") (SETQ N (IPLUS N LEN 1)))) (COND ((OR (ILESSP N 1) (IGREATERP N LEN)) (LISPERROR "ILLEGAL ARG" N))) (* ; "We assume that ORIG is 1 because X is a string") (\PUTBASECHAR (ffetch (STRINGP FATSTRINGP) of X) (ffetch (STRINGP BASE) of X) (IPLUS (ffetch (STRINGP OFFST) of X) (SUB1 N)) CHAR) (RETURN X))) (T (RPLCHARCODE (MKSTRING X) N CHAR)))) -) + [LAMBDA (X N CHAR) (* jop%: "23-Sep-86 16:36") + (COND + ((STRINGP X) + (PROG ((LEN (ffetch (STRINGP LENGTH) of X))) + (\SMASHABLESTRING X (\FATCHARCODEP CHAR)) + [COND + ((ILESSP N 0) (* ; "address from end") + (SETQ N (IPLUS N LEN 1] + (COND + ((OR (ILESSP N 1) + (IGREATERP N LEN)) + (LISPERROR "ILLEGAL ARG" N))) (* ; + "We assume that ORIG is 1 because X is a string") + (\PUTBASECHAR (ffetch (STRINGP FATSTRINGP) of X) + (ffetch (STRINGP BASE) of X) + (IPLUS (ffetch (STRINGP OFFST) of X) + (SUB1 N)) + CHAR) + (RETURN X))) + (T (RPLCHARCODE (MKSTRING X) + N CHAR]) (\RPLCHARCODE -(LAMBDA (X N CHAR) (* jop%: "23-Sep-86 16:50") (* ;;; "System version: does error checking interpreted. Compiles open as \PUTBASEFAT or \PUTBASETHIN. N must be positive, X must be a real not READONLY string") (COND ((OR (NOT (STRINGP X)) (ffetch (STRINGP READONLY) of X)) (* ; "X has to be a string, and can't be READONLY (e.g. a litatom's pname)") (LISPERROR "ILLEGAL ARG" X)) ((OR (ILEQ N 0) (IGREATERP N (ffetch (STRINGP LENGTH) of X))) (* ; "The position arg has to be inside the string's length") (LISPERROR "ILLEGAL ARG" N)) ((NOT (\CHARCODEP CHAR)) (* ; "CHAR has to be a charcode") (LISPERROR "ILLEGAL ARG" CHAR)) ((AND (IGREATERP CHAR \MAXTHINCHAR) (NOT (ffetch (STRINGP FATSTRINGP) of X))) (* ; "If the char's fat, and the string isn't, coerce it to fatness.") (\SMASHABLESTRING X T))) (\PUTBASECHAR (ffetch (STRINGP FATSTRINGP) of X) (ffetch (STRINGP BASE) of X) (IPLUS (ffetch (STRINGP OFFST) of X) (SUB1 N)) CHAR) X) -) + [LAMBDA (X N CHAR) (* jop%: "23-Sep-86 16:50") + +(* ;;; "System version: does error checking interpreted. Compiles open as \PUTBASEFAT or \PUTBASETHIN. N must be positive, X must be a real not READONLY string") + + (COND + ((OR (NOT (STRINGP X)) + (ffetch (STRINGP READONLY) of X)) (* ; + "X has to be a string, and can't be READONLY (e.g. a litatom's pname)") + (LISPERROR "ILLEGAL ARG" X)) + ((OR (ILEQ N 0) + (IGREATERP N (ffetch (STRINGP LENGTH) of X))) + (* ; + "The position arg has to be inside the string's length") + (LISPERROR "ILLEGAL ARG" N)) + ((NOT (\CHARCODEP CHAR)) (* ; "CHAR has to be a charcode") + (LISPERROR "ILLEGAL ARG" CHAR)) + ((AND (IGREATERP CHAR \MAXTHINCHAR) + (NOT (ffetch (STRINGP FATSTRINGP) of X))) + (* ; + "If the char's fat, and the string isn't, coerce it to fatness.") + (\SMASHABLESTRING X T))) + (\PUTBASECHAR (ffetch (STRINGP FATSTRINGP) of X) + (ffetch (STRINGP BASE) of X) + (IPLUS (ffetch (STRINGP OFFST) of X) + (SUB1 N)) + CHAR) + X]) (NTHCHAR -(LAMBDA (X N FLG RDTBL) (* jop%: "23-Sep-86 17:17") (LET ((CODE (NTHCHARCODE X N FLG RDTBL))) (AND CODE (FCHARACTER CODE)))) -) + [LAMBDA (X N FLG RDTBL) (* jop%: "23-Sep-86 17:17") + (LET ((CODE (NTHCHARCODE X N FLG RDTBL))) + (AND CODE (FCHARACTER CODE]) (RPLSTRING -(LAMBDA (X N Y) (* ; "Edited 24-Sep-87 11:49 by bvm:") (PROG ((OLDSTRING (OR (STRINGP X) (MKSTRING X))) (REP Y) OBASE OLEN RBASE RLEN ROFFST POS FIRSTNEW RFAT) (SETQ OLEN (ffetch (STRINGP LENGTH) of OLDSTRING)) (COND ((LITATOM REP) (SETQ RBASE (ffetch (LITATOM PNAMEBASE) of REP)) (SETQ ROFFST 1) (SETQ RLEN (ffetch (LITATOM PNAMELENGTH) of REP)) (SETQ RFAT (ffetch (LITATOM FATPNAMEP) of REP))) (T (OR (STRINGP REP) (SETQ REP (MKSTRING REP))) (SETQ RBASE (ffetch (STRINGP BASE) of REP)) (SETQ ROFFST (ffetch (STRINGP OFFST) of REP)) (SETQ RLEN (ffetch (STRINGP LENGTH) of REP)) (SETQ RFAT (ffetch (STRINGP FATSTRINGP) of REP)))) (COND ((> (+ RLEN (SETQ POS (COND ((> N 0) (SUB1 N)) (T (+ OLEN N))))) OLEN) (LISPERROR "ILLEGAL ARG" (if (> POS OLEN) then (* ; "actually, the index is wrong, without even considering the replacement") N else Y)))) (\SMASHABLESTRING OLDSTRING RFAT) (* ; "Make sure the string is writeable and of the appropriate width") (SETQ OBASE (ffetch (STRINGP BASE) of OLDSTRING)) (* ; "Note: OBASE might have changed, so not fetched until now") (SETQ FIRSTNEW (+ POS (ffetch (STRINGP OFFST) of OLDSTRING))) (* ; "Now can smash chars from RBASE into OBASE starting at position FIRSTNEW") (COND (RFAT (* ; "Fat into fat. \SMASHABLESTRING* above ensured that OLDSTRING is now fat") (\BLT (\ADDBASE OBASE FIRSTNEW) (\ADDBASE RBASE ROFFST) RLEN)) ((ffetch (STRINGP FATSTRINGP) of OLDSTRING) (* ; "Smashing thin string into a fat one") (for I from ROFFST to (SUB1 (+ ROFFST RLEN)) as J from FIRSTNEW do (\PUTBASEFAT OBASE J (\GETBASETHIN RBASE I)))) (T (* ; "Thin into thin is just byte blt") (\MOVEBYTES RBASE ROFFST OBASE FIRSTNEW RLEN))) (RETURN OLDSTRING))) -) + [LAMBDA (X N Y) (* ; "Edited 24-Sep-87 11:49 by bvm:") + (PROG ((OLDSTRING (OR (STRINGP X) + (MKSTRING X))) + (REP Y) + OBASE OLEN RBASE RLEN ROFFST POS FIRSTNEW RFAT) + (SETQ OLEN (ffetch (STRINGP LENGTH) of OLDSTRING)) + [COND + ((LITATOM REP) + (SETQ RBASE (ffetch (LITATOM PNAMEBASE) of REP)) + (SETQ ROFFST 1) + (SETQ RLEN (ffetch (LITATOM PNAMELENGTH) of REP)) + (SETQ RFAT (ffetch (LITATOM FATPNAMEP) of REP))) + (T (OR (STRINGP REP) + (SETQ REP (MKSTRING REP))) + (SETQ RBASE (ffetch (STRINGP BASE) of REP)) + (SETQ ROFFST (ffetch (STRINGP OFFST) of REP)) + (SETQ RLEN (ffetch (STRINGP LENGTH) of REP)) + (SETQ RFAT (ffetch (STRINGP FATSTRINGP) of REP] + [COND + ((> [+ RLEN (SETQ POS (COND + ((> N 0) + (SUB1 N)) + (T (+ OLEN N] + OLEN) + (LISPERROR "ILLEGAL ARG" (if (> POS OLEN) + then (* ; + "actually, the index is wrong, without even considering the replacement") + N + else Y] + (\SMASHABLESTRING OLDSTRING RFAT) (* ; + "Make sure the string is writeable and of the appropriate width") + (SETQ OBASE (ffetch (STRINGP BASE) of OLDSTRING)) + (* ; + "Note: OBASE might have changed, so not fetched until now") + (SETQ FIRSTNEW (+ POS (ffetch (STRINGP OFFST) of OLDSTRING))) + (* ; + "Now can smash chars from RBASE into OBASE starting at position FIRSTNEW") + (COND + (RFAT (* ; + "Fat into fat. \SMASHABLESTRING* above ensured that OLDSTRING is now fat") + (\BLT (\ADDBASE OBASE FIRSTNEW) + (\ADDBASE RBASE ROFFST) + RLEN)) + [(ffetch (STRINGP FATSTRINGP) of OLDSTRING) + (* ; + "Smashing thin string into a fat one") + (for I from ROFFST to (SUB1 (+ ROFFST RLEN)) as J from FIRSTNEW + do (\PUTBASEFAT OBASE J (\GETBASETHIN RBASE I] + (T (* ; "Thin into thin is just byte blt") + (\MOVEBYTES RBASE ROFFST OBASE FIRSTNEW RLEN))) + (RETURN OLDSTRING]) (SUBSTRING -(LAMBDA (X N M OLDPTR) (* jop%: "23-Sep-86 17:48") (PROG ((OLDSTRING X) (START N) (END M) FATP BASE OFFST LEN) (* ; "OLDSTRING START and END so don't reset user args") (COND ((LITATOM OLDSTRING) (SETQ BASE (ffetch (LITATOM PNAMEBASE) of OLDSTRING)) (SETQ LEN (ffetch (LITATOM PNAMELENGTH) of OLDSTRING)) (SETQ FATP (ffetch (LITATOM FATPNAMEP) of OLDSTRING)) (SETQ OFFST 1)) (T (OR (STRINGP OLDSTRING) (SETQ OLDSTRING (MKSTRING OLDSTRING))) (SETQ BASE (ffetch (STRINGP BASE) of OLDSTRING)) (SETQ LEN (ffetch (STRINGP LENGTH) of OLDSTRING)) (SETQ FATP (ffetch (STRINGP FATSTRINGP) of OLDSTRING)) (SETQ OFFST (ffetch (STRINGP OFFST) of OLDSTRING)))) (COND ((ILESSP START 0) (* ; "Coerce the first index") (SETQ START (IPLUS START LEN 1)))) (COND ((NULL END) (* ; "Now coerce the second index") (SETQ END LEN)) ((ILESSP END 0) (SETQ END (IPLUS END LEN 1)))) (RETURN (COND ((AND (IGREATERP START 0) (ILEQ START END) (ILEQ END LEN)) (UNINTERRUPTABLY (COND ((STRINGP OLDPTR) (create STRINGP smashing OLDPTR READONLY _ (LITATOM OLDSTRING) BASE _ BASE TYP _ (COND (FATP \ST.POS16) (T \ST.BYTE)) LENGTH _ (ADD1 (IDIFFERENCE END START)) OFFST _ (IPLUS START OFFST -1))) (T (SETQ OLDPTR (create STRINGP READONLY _ (LITATOM OLDSTRING) BASE _ BASE TYP _ (COND (FATP \ST.POS16) (T \ST.BYTE)) LENGTH _ (ADD1 (IDIFFERENCE END START)) OFFST _ (IPLUS START OFFST -1)))))) OLDPTR))))) -) + [LAMBDA (X N M OLDPTR) (* jop%: "23-Sep-86 17:48") + (PROG ((OLDSTRING X) + (START N) + (END M) + FATP BASE OFFST LEN) (* ; + "OLDSTRING START and END so don't reset user args") + [COND + ((LITATOM OLDSTRING) + (SETQ BASE (ffetch (LITATOM PNAMEBASE) of OLDSTRING)) + (SETQ LEN (ffetch (LITATOM PNAMELENGTH) of OLDSTRING)) + (SETQ FATP (ffetch (LITATOM FATPNAMEP) of OLDSTRING)) + (SETQ OFFST 1)) + (T (OR (STRINGP OLDSTRING) + (SETQ OLDSTRING (MKSTRING OLDSTRING))) + (SETQ BASE (ffetch (STRINGP BASE) of OLDSTRING)) + (SETQ LEN (ffetch (STRINGP LENGTH) of OLDSTRING)) + (SETQ FATP (ffetch (STRINGP FATSTRINGP) of OLDSTRING)) + (SETQ OFFST (ffetch (STRINGP OFFST) of OLDSTRING] + [COND + ((ILESSP START 0) (* ; "Coerce the first index") + (SETQ START (IPLUS START LEN 1] + [COND + ((NULL END) (* ; "Now coerce the second index") + (SETQ END LEN)) + ((ILESSP END 0) + (SETQ END (IPLUS END LEN 1] + (RETURN (COND + ((AND (IGREATERP START 0) + (ILEQ START END) + (ILEQ END LEN)) + (UNINTERRUPTABLY + [COND + ((STRINGP OLDPTR) + (create STRINGP smashing OLDPTR READONLY _ (LITATOM OLDSTRING) + BASE _ BASE TYP _ (COND + (FATP \ST.POS16) + (T \ST.BYTE)) + LENGTH _ (ADD1 (IDIFFERENCE END START)) + OFFST _ (IPLUS START OFFST -1))) + (T (SETQ OLDPTR (create STRINGP + READONLY _ (LITATOM OLDSTRING) + BASE _ BASE + TYP _ (COND + (FATP \ST.POS16) + (T \ST.BYTE)) + LENGTH _ (ADD1 (IDIFFERENCE END START)) + OFFST _ (IPLUS START OFFST -1]) + OLDPTR]) (GNC -(LAMBDA (X) (* jop%: "23-Sep-86 16:26") (LET ((CODE (GNCCODE X))) (AND CODE (FCHARACTER CODE))))) + [LAMBDA (X) (* jop%: "23-Sep-86 16:26") + (LET ((CODE (GNCCODE X))) + (AND CODE (FCHARACTER CODE]) (GNCCODE -(LAMBDA (X) (* jop%: "23-Sep-86 16:27") (COND ((STRINGP X) (LET ((LEN (fetch (STRINGP LENGTH) of X)) (OFFST (fetch (STRINGP OFFST) of X))) (COND ((NOT (EQ 0 LEN)) (PROG1 (\GETBASECHAR (ffetch (STRINGP FATSTRINGP) of X) (ffetch (STRINGP BASE) of X) OFFST) (UNINTERRUPTABLY (freplace (STRINGP OFFST) of X with (ADD1 OFFST)) (freplace (STRINGP LENGTH) of X with (SUB1 LEN)))))))) (T (NTHCHARCODE X 1)))) -) + [LAMBDA (X) (* jop%: "23-Sep-86 16:27") + (COND + [(STRINGP X) + (LET ((LEN (fetch (STRINGP LENGTH) of X)) + (OFFST (fetch (STRINGP OFFST) of X))) + (COND + ((NOT (EQ 0 LEN)) + (PROG1 (\GETBASECHAR (ffetch (STRINGP FATSTRINGP) of X) + (ffetch (STRINGP BASE) of X) + OFFST) + (UNINTERRUPTABLY + (freplace (STRINGP OFFST) of X with (ADD1 OFFST)) + (freplace (STRINGP LENGTH) of X with (SUB1 LEN))))] + (T (NTHCHARCODE X 1]) (GLC -(LAMBDA (X) (* jop%: "23-Sep-86 16:25") (LET ((CODE (GLCCODE X))) (AND CODE (FCHARACTER CODE))))) + [LAMBDA (X) (* jop%: "23-Sep-86 16:25") + (LET ((CODE (GLCCODE X))) + (AND CODE (FCHARACTER CODE]) (GLCCODE -(LAMBDA (X) (* jop%: "23-Sep-86 16:26") (COND ((STRINGP X) (LET ((LEN (SUB1 (fetch (ARRAY-HEADER FILL-POINTER) of X)))) (COND ((NOT (EQ -1 LEN)) (PROG1 (\GETBASECHAR (ffetch (STRINGP FATSTRINGP) of X) (ffetch (STRINGP BASE) of X) (IPLUS LEN (ffetch (STRINGP OFFST) of X))) (UNINTERRUPTABLY (freplace (ARRAY-HEADER FILL-POINTER-P) of X with T) (freplace (ARRAY-HEADER FILL-POINTER) of X with LEN))))))) (T (NTHCHARCODE X -1)))) -) + [LAMBDA (X) (* jop%: "23-Sep-86 16:26") + (COND + [(STRINGP X) + (LET [(LEN (SUB1 (fetch (ARRAY-HEADER FILL-POINTER) of X] + (COND + ((NOT (EQ -1 LEN)) + (PROG1 (\GETBASECHAR (ffetch (STRINGP FATSTRINGP) of X) + (ffetch (STRINGP BASE) of X) + (IPLUS LEN (ffetch (STRINGP OFFST) of X))) + (UNINTERRUPTABLY + (freplace (ARRAY-HEADER FILL-POINTER-P) of X with T) + (freplace (ARRAY-HEADER FILL-POINTER) of X with LEN)))] + (T (NTHCHARCODE X -1]) (STREQUAL - [LAMBDA (X Y) (* ; - "Edited 12-Jan-94 10:07 by sybalsky:mv:envos") + [LAMBDA (X Y) (* ; + "Edited 12-Jan-94 10:07 by sybalsky:mv:envos") (DECLARE (LOCALVARS . T)) (AND (STRINGP X) (STRINGP Y) @@ -235,10 +966,10 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1994, 2018 by Venu (GO SLOWLP]) (STRING.EQUAL - [LAMBDA (X Y) (* ; - "Edited 12-Jan-94 10:01 by sybalsky:mv:envos") + [LAMBDA (X Y) (* ; + "Edited 12-Jan-94 10:01 by sybalsky:mv:envos") -(* ;;; "True if X and Y are equal atoms or strings without respect to alphabetic case") +(* ;;; "True if X and Y are equal atoms or strings without respect to alphabetic case") (PROG (CABASE LEN BASEX OFFSETX FATPX BASEY OFFSETY FATPY C1 C2) (COND @@ -283,12 +1014,12 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1994, 2018 by Venu (T (RETURN NIL))) [COND ((NEQ (ffetch (ARRAYP TYP) of (\DTEST UPPERCASEARRAY 'ARRAYP)) - \ST.BYTE) (* ; - "Someone smashed UPPERCASEARRAY ?") + \ST.BYTE) (* ; + "Someone smashed UPPERCASEARRAY ?") (SETQ UPPERCASEARRAY (UPPERCASEARRAY] (SETQ CABASE (ffetch (ARRAYP BASE) of UPPERCASEARRAY)) (RETURN (COND - [(OR FATPX FATPY) (* ; "Slow case") + [(OR FATPX FATPY) (* ; "Slow case") (for BNX from OFFSETX as BNY from OFFSETY as I to LEN always (PROGN (SETQ C1 (\GETBASECHAR FATPX BASEX BNX)) @@ -296,7 +1027,7 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1994, 2018 by Venu (COND ((OR (IGREATERP C1 \MAXTHINCHAR) (IGREATERP C2 \MAXTHINCHAR)) - (* ; "Fat chars not alphabetic") + (* ; "Fat chars not alphabetic") (EQ C1 C2)) (T (EQ (\GETBASEBYTE CABASE C1) (\GETBASEBYTE CABASE C2] @@ -305,14 +1036,32 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1994, 2018 by Venu (\GETBASEBYTE CABASE (\GETBASETHIN BASEY BNY]) (STRINGP -(LAMBDA (OBJECT) (* jop%: "24-Sep-86 22:58") (AND (%%STRINGP OBJECT) OBJECT))) + [LAMBDA (OBJECT) (* jop%: "24-Sep-86 22:58") + (AND (%%STRINGP OBJECT) + OBJECT]) (CHCON1 -(LAMBDA (X) (* jop%: "23-Sep-86 17:45") (* ;;; "This is opencoded NTHCHARCODE* for the case where N=1 and FLG=NIL") (COND ((STRINGP X) (AND (NEQ (fetch (STRINGP LENGTH) of X) 0) (\GETBASECHAR (fetch (STRINGP FATSTRINGP) of X) (fetch (STRINGP BASE) of X) (fetch (STRINGP OFFST) of X)))) ((LITATOM X) (AND (NEQ (ffetch (LITATOM PNAMELENGTH) of X) 0) (\GETBASECHAR (ffetch (LITATOM FATPNAMEP) of X) (ffetch (LITATOM PNAMEBASE) of X) 1))) (T (NTHCHARCODE X 1)))) -) + [LAMBDA (X) (* jop%: "23-Sep-86 17:45") + +(* ;;; "This is opencoded NTHCHARCODE* for the case where N=1 and FLG=NIL") + + (COND + [(STRINGP X) + (AND (NEQ (fetch (STRINGP LENGTH) of X) + 0) + (\GETBASECHAR (fetch (STRINGP FATSTRINGP) of X) + (fetch (STRINGP BASE) of X) + (fetch (STRINGP OFFST) of X] + ((LITATOM X) + (AND (NEQ (ffetch (LITATOM PNAMELENGTH) of X) + 0) + (\GETBASECHAR (ffetch (LITATOM FATPNAMEP) of X) + (ffetch (LITATOM PNAMEBASE) of X) + 1))) + (T (NTHCHARCODE X 1]) (U-CASE - [LAMBDA (X) (* ; "Edited 11-Nov-2018 13:06 by rmk:") + [LAMBDA (X) (* ; "Edited 11-Nov-2018 13:06 by rmk:") (* ; "Edited 10-Feb-87 19:12 by bvm:") (COND [(LITATOM X) @@ -358,7 +1107,7 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1994, 2018 by Venu (T X]) (L-CASE - [LAMBDA (X FLG) (* ; "Edited 11-Nov-2018 13:07 by rmk:") + [LAMBDA (X FLG) (* ; "Edited 11-Nov-2018 13:07 by rmk:") (* ; "Edited 10-Feb-87 19:12 by bvm:") (* ;; "RMK: See comment in U-CASE") @@ -421,23 +1170,94 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1994, 2018 by Venu (T X]) (U-CASEP -(LAMBDA (X) (* jop%: "23-Sep-86 16:43") (COND ((LITATOM X) (for C inatom X never (AND (IGEQ C (CHARCODE a)) (ILEQ C (CHARCODE z))))) ((STRINGP X) (for C instring X never (AND (IGEQ C (CHARCODE a)) (ILEQ C (CHARCODE z))))) ((LISTP X) (AND (U-CASEP (CAR X)) (OR (NULL (CDR X)) (U-CASEP (CDR X))))) (T T))) -) + [LAMBDA (X) (* jop%: "23-Sep-86 16:43") + (COND + [(LITATOM X) + (for C inatom X never (AND (IGEQ C (CHARCODE a)) + (ILEQ C (CHARCODE z] + [(STRINGP X) + (for C instring X never (AND (IGEQ C (CHARCODE a)) + (ILEQ C (CHARCODE z] + [(LISTP X) + (AND (U-CASEP (CAR X)) + (OR (NULL (CDR X)) + (U-CASEP (CDR X] + (T T]) (\SMASHABLESTRING -(LAMBDA (STR FATP) (* gbn "18-Apr-85 00:39") (* ;; "Ensures that FATP characters can be smashed into STR") (COND ((ffetch (STRINGP READONLY) of STR) (\MAKEWRITABLESTRING STR (OR FATP (ffetch (STRINGP FATSTRINGP) of STR)))) ((AND FATP (NOT (ffetch (STRINGP FATSTRINGP) of STR))) (\FATTENSTRING STR))) STR) -) + [LAMBDA (STR FATP) (* gbn "18-Apr-85 00:39") + + (* ;; "Ensures that FATP characters can be smashed into STR") + + (COND + [(ffetch (STRINGP READONLY) of STR) + (\MAKEWRITABLESTRING STR (OR FATP (ffetch (STRINGP FATSTRINGP) of STR] + ((AND FATP (NOT (ffetch (STRINGP FATSTRINGP) of STR))) + (\FATTENSTRING STR))) + STR]) (\MAKEWRITABLESTRING -(LAMBDA (STR NEWFATP) (* jop%: "23-Sep-86 16:44") (* ;;; "takes a string pointing at a readonly pname and changes the string to point to a block of writable memory of the appropriate width") (%%MAKE-ARRAY-WRITEABLE STR) (if (AND NEWFATP (NOT (ffetch (STRINGP FATSTRINGP) of STR))) then (%%MAKE-STRING-ARRAY-FAT STR)) STR) -) + [LAMBDA (STR NEWFATP) (* jop%: "23-Sep-86 16:44") + +(* ;;; "takes a string pointing at a readonly pname and changes the string to point to a block of writable memory of the appropriate width") + + (%%MAKE-ARRAY-WRITEABLE STR) + (if (AND NEWFATP (NOT (ffetch (STRINGP FATSTRINGP) of STR))) + then (%%MAKE-STRING-ARRAY-FAT STR)) + STR]) (\SMASHSTRING -(LAMBDA (DEST POS SOURCE NC) (* jop%: "23-Sep-86 16:51") (* ;;; "copy NC characters from the string SOURCE to the string DEST starting at character POS (counting from 0) of DEST. If NC=NIL, length of SOURCE is used. DEST is presumed to be not READONLY, long enough for the smash, and to be fat if SOURCE contains any fat characters--the caller must guarantee this.") (* ; "Only caller so far is \RSTRING2 in the reader") (OR NC (SETQ NC (ffetch (STRINGP LENGTH) of SOURCE))) (add POS (ffetch (STRINGP OFFST) of DEST)) (COND ((ffetch (STRINGP FATSTRINGP) of DEST) (* ; "The destination is fat.") (COND ((ffetch (STRINGP FATSTRINGP) of SOURCE) (* ; "The source is also; just copy the characters straight across") (\BLT (\ADDBASE (ffetch (STRINGP BASE) of DEST) POS) (\ADDBASE (ffetch (STRINGP BASE) of SOURCE) (ffetch (STRINGP OFFST) of SOURCE)) NC)) (T (* ; "Have to do thin-to-fat conversion") (bind (DBASE _ (ffetch (STRINGP BASE) of DEST)) for C inthinstring SOURCE as DESTCH# from POS as SRCH# from 1 to NC do (* ; "Run thru chars 1..NC (or len) of the source, moving them into the destination") (\PUTBASEFAT DBASE DESTCH# C))))) ((ffetch (STRINGP FATSTRINGP) of SOURCE) (* ; "Assume that SOURCE is FATP with no fat characters. This is a guarantee made by \RSTRING2.") (bind (DBASE _ (ffetch (STRINGP BASE) of DEST)) for C infatstring SOURCE as DESTCH# from POS as SRCH# from 1 to NC do (* ; "Run thru chars 1..NC (or len) of the source, moving them into the destination") (AND (IGREATERP C \MAXTHINCHAR) (SHOULDNT)) (* ; "If we find an unexpected fat character, complain!") (\PUTBASETHIN DBASE DESTCH# C))) (T (* ; "The source and destination are both thin. Just copy characters.") (\MOVEBYTES (ffetch (STRINGP BASE) of SOURCE) (ffetch (STRINGP OFFST) of SOURCE) (ffetch (STRINGP BASE) of DEST) POS NC))) DEST) -) + [LAMBDA (DEST POS SOURCE NC) (* jop%: "23-Sep-86 16:51") + +(* ;;; "copy NC characters from the string SOURCE to the string DEST starting at character POS (counting from 0) of DEST. If NC=NIL, length of SOURCE is used. DEST is presumed to be not READONLY, long enough for the smash, and to be fat if SOURCE contains any fat characters--the caller must guarantee this.") + (* ; + "Only caller so far is \RSTRING2 in the reader") + (OR NC (SETQ NC (ffetch (STRINGP LENGTH) of SOURCE))) + (add POS (ffetch (STRINGP OFFST) of DEST)) + (COND + [(ffetch (STRINGP FATSTRINGP) of DEST) (* ; "The destination is fat.") + (COND + ((ffetch (STRINGP FATSTRINGP) of SOURCE) + (* ; + "The source is also; just copy the characters straight across") + (\BLT (\ADDBASE (ffetch (STRINGP BASE) of DEST) + POS) + (\ADDBASE (ffetch (STRINGP BASE) of SOURCE) + (ffetch (STRINGP OFFST) of SOURCE)) + NC)) + (T (* ; + "Have to do thin-to-fat conversion") + (bind (DBASE _ (ffetch (STRINGP BASE) of DEST)) for C  + inthinstring + SOURCE + as DESTCH# from POS as SRCH# from 1 to NC + do (* ; + "Run thru chars 1..NC (or len) of the source, moving them into the destination") + (\PUTBASEFAT DBASE DESTCH# C] + ((ffetch (STRINGP FATSTRINGP) of SOURCE) (* ; + "Assume that SOURCE is FATP with no fat characters. This is a guarantee made by \RSTRING2.") + (bind (DBASE _ (ffetch (STRINGP BASE) of DEST)) for C infatstring + SOURCE as + DESTCH# + from POS as SRCH# from 1 to NC do + (* ; + "Run thru chars 1..NC (or len) of the source, moving them into the destination") + (AND (IGREATERP C \MAXTHINCHAR) + (SHOULDNT)) + (* ; + "If we find an unexpected fat character, complain!") + (\PUTBASETHIN DBASE DESTCH# C))) + (T (* ; + "The source and destination are both thin. Just copy characters.") + (\MOVEBYTES (ffetch (STRINGP BASE) of SOURCE) + (ffetch (STRINGP OFFST) of SOURCE) + (ffetch (STRINGP BASE) of DEST) + POS NC))) + DEST]) (\FATTENSTRING -(LAMBDA (STR) (* jop%: "11-Sep-86 18:00") (%%MAKE-STRING-ARRAY-FAT STR))) + [LAMBDA (STR) (* jop%: "11-Sep-86 18:00") + (%%MAKE-STRING-ARRAY-FAT STR]) ) @@ -451,24 +1271,104 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1994, 2018 by Venu (DEFINEQ (\GETBASESTRING -(LAMBDA (BASE BYTEOFFSET NCHARS FATP) (* jop%: "23-Sep-86 17:50") (* ;;; "Makes a string consisting of NCHARS characters starting at BYTEOFFSET from BASE -- note that caller must know whether the string is fat (see \PUTBASESTRING); BYTEOFFSET is always a byte offset in either case") (LET ((STR (ALLOCSTRING NCHARS NIL NIL FATP))) (\MOVEBYTES BASE BYTEOFFSET (fetch (STRINGP BASE) of STR) (fetch (STRINGP OFFST) of STR) (COND (FATP (UNFOLD NCHARS BYTESPERWORD)) (T NCHARS))) STR)) -) + [LAMBDA (BASE BYTEOFFSET NCHARS FATP) (* jop%: "23-Sep-86 17:50") + +(* ;;; "Makes a string consisting of NCHARS characters starting at BYTEOFFSET from BASE -- note that caller must know whether the string is fat (see \PUTBASESTRING); BYTEOFFSET is always a byte offset in either case") + + (LET ((STR (ALLOCSTRING NCHARS NIL NIL FATP))) + (\MOVEBYTES BASE BYTEOFFSET (fetch (STRINGP BASE) of STR) + (fetch (STRINGP OFFST) of STR) + (COND + (FATP (UNFOLD NCHARS BYTESPERWORD)) + (T NCHARS))) + STR]) (\PUTBASESTRING -(LAMBDA (BASE BYTEOFFSET SOURCE FATP) (* jop%: "23-Sep-86 16:48") (* ;; "In addition to putting the bytes into memory, this guy returns the number of characters `written' , since the source may not be a STRINGP, but will be coerced to one.") (* ;; "Not clear what this fn should do with fat strings. Caller is using this fn to store raw characters into some random location, so must make some assumption about the format they are stored in. Hence if there's a fat string, but FATP is false, we don't know what to do") (COND ((STRINGP SOURCE) (COND (FATP (\PUTBASESTRINGFAT BASE BYTEOFFSET (ffetch (STRINGP BASE) of SOURCE) (ffetch (STRINGP OFFST) of SOURCE) (ffetch (STRINGP LENGTH) of SOURCE) (ffetch (STRINGP FATSTRINGP) of SOURCE))) ((ffetch (STRINGP FATSTRINGP) of SOURCE) (for CH infatstring SOURCE as OFFSET from BYTEOFFSET do (COND ((ILEQ CH \MAXTHINCHAR) (\PUTBASEBYTE BASE OFFSET CH)) (T (ERROR "Fat string in \PUTBASESTRING" SOURCE)))) (ffetch (STRINGP LENGTH) of SOURCE)) (T (\MOVEBYTES (ffetch (STRINGP BASE) of SOURCE) (ffetch (STRINGP OFFST) of SOURCE) BASE BYTEOFFSET (SETQ SOURCE (ffetch (STRINGP LENGTH) of SOURCE))) SOURCE))) ((LITATOM SOURCE) (COND (FATP (\PUTBASESTRINGFAT BASE BYTEOFFSET (ffetch (LITATOM PNAMEBASE) of SOURCE) 1 (ffetch (LITATOM PNAMELENGTH) of SOURCE) (ffetch (LITATOM FATPNAMEP) of SOURCE))) ((ffetch (LITATOM FATPNAMEP) of SOURCE) (for CH infatatom SOURCE as OFFSET from BYTEOFFSET do (COND ((ILEQ CH \MAXTHINCHAR) (\PUTBASEBYTE BASE OFFSET CH)) (T (ERROR "Fat string in \PUTBASESTRING" SOURCE)))) (ffetch (LITATOM PNAMELENGTH) of SOURCE)) (T (\MOVEBYTES (ffetch (LITATOM PNAMEBASE) of SOURCE) 1 BASE BYTEOFFSET (SETQ SOURCE (ffetch (LITATOM PNAMELENGTH) of SOURCE))) SOURCE))) (T (\PUTBASESTRING BASE BYTEOFFSET (MKSTRING SOURCE) FATP)))) -) + [LAMBDA (BASE BYTEOFFSET SOURCE FATP) (* jop%: "23-Sep-86 16:48") + + (* ;; "In addition to putting the bytes into memory, this guy returns the number of characters `written' , since the source may not be a STRINGP, but will be coerced to one.") + + (* ;; "Not clear what this fn should do with fat strings. Caller is using this fn to store raw characters into some random location, so must make some assumption about the format they are stored in. Hence if there's a fat string, but FATP is false, we don't know what to do") + + (COND + ((STRINGP SOURCE) + (COND + (FATP (\PUTBASESTRINGFAT BASE BYTEOFFSET (ffetch (STRINGP BASE) of SOURCE) + (ffetch (STRINGP OFFST) of SOURCE) + (ffetch (STRINGP LENGTH) of SOURCE) + (ffetch (STRINGP FATSTRINGP) of SOURCE))) + ((ffetch (STRINGP FATSTRINGP) of SOURCE) + [for CH infatstring SOURCE as OFFSET from BYTEOFFSET + do (COND + ((ILEQ CH \MAXTHINCHAR) + (\PUTBASEBYTE BASE OFFSET CH)) + (T (ERROR "Fat string in \PUTBASESTRING" SOURCE] + (ffetch (STRINGP LENGTH) of SOURCE)) + (T (\MOVEBYTES (ffetch (STRINGP BASE) of SOURCE) + (ffetch (STRINGP OFFST) of SOURCE) + BASE BYTEOFFSET (SETQ SOURCE (ffetch (STRINGP LENGTH) of SOURCE))) + SOURCE))) + ((LITATOM SOURCE) + (COND + (FATP (\PUTBASESTRINGFAT BASE BYTEOFFSET (ffetch (LITATOM PNAMEBASE) of SOURCE + ) + 1 + (ffetch (LITATOM PNAMELENGTH) of SOURCE) + (ffetch (LITATOM FATPNAMEP) of SOURCE))) + ((ffetch (LITATOM FATPNAMEP) of SOURCE) + [for CH infatatom SOURCE as OFFSET from BYTEOFFSET + do (COND + ((ILEQ CH \MAXTHINCHAR) + (\PUTBASEBYTE BASE OFFSET CH)) + (T (ERROR "Fat string in \PUTBASESTRING" SOURCE] + (ffetch (LITATOM PNAMELENGTH) of SOURCE)) + (T (\MOVEBYTES (ffetch (LITATOM PNAMEBASE) of SOURCE) + 1 BASE BYTEOFFSET (SETQ SOURCE (ffetch (LITATOM PNAMELENGTH) of SOURCE)) + ) + SOURCE))) + (T (\PUTBASESTRING BASE BYTEOFFSET (MKSTRING SOURCE) + FATP]) (\PUTBASESTRINGFAT -(LAMBDA (DBASE DBYTEOFFSET SBASE SOFFSET LEN FATP) (* jop%: " 8-Sep-86 21:02") (* ;;; "Store a fat string at byte offset from DBASE. SBASE and SOFFSET are in the source's units (bytes or words)") (COND (FATP (\MOVEBYTES SBASE (UNFOLD SOFFSET BYTESPERWORD) DBASE DBYTEOFFSET (UNFOLD LEN BYTESPERWORD))) (T (* ; "Store thin string in fat format") (for I from 0 to (SUB1 LEN) as DOFF from DBYTEOFFSET by 2 do (\PUTBASETHIN DBASE DOFF 0) (\PUTBASETHIN DBASE (ADD1 DOFF) (\GETBASETHIN SBASE (IPLUS SOFFSET I)))))) LEN) -) + [LAMBDA (DBASE DBYTEOFFSET SBASE SOFFSET LEN FATP) (* jop%: " 8-Sep-86 21:02") + +(* ;;; "Store a fat string at byte offset from DBASE. SBASE and SOFFSET are in the source's units (bytes or words)") + + [COND + (FATP (\MOVEBYTES SBASE (UNFOLD SOFFSET BYTESPERWORD) + DBASE DBYTEOFFSET (UNFOLD LEN BYTESPERWORD))) + (T (* ; "Store thin string in fat format") + (for I from 0 to (SUB1 LEN) as DOFF from DBYTEOFFSET by 2 + do (\PUTBASETHIN DBASE DOFF 0) + (\PUTBASETHIN DBASE (ADD1 DOFF) + (\GETBASETHIN SBASE (IPLUS SOFFSET I] + LEN]) (GetBcplString -(LAMBDA (BASE ATOMFLG) (* jop%: "23-Sep-86 17:46") (* ;; "Returns as a Lisp string the Bcpl string stored at BS. Format is one byte length, follwed by chars. If ATOMFLG is true, returns result as an atom") (LET ((L (\GETBASEBYTE BASE 0)) S) (COND ((AND ATOMFLG (ILEQ L \PNAMELIMIT)) (\MKATOM BASE 1 L)) (T (SETQ S (\GETBASESTRING BASE 1 L)) (COND (ATOMFLG (* ; "Let MKATOM handle the error") (MKATOM S)) (T S)))))) -) + [LAMBDA (BASE ATOMFLG) (* jop%: "23-Sep-86 17:46") + + (* ;; "Returns as a Lisp string the Bcpl string stored at BS. Format is one byte length, follwed by chars. If ATOMFLG is true, returns result as an atom") + + (LET ((L (\GETBASEBYTE BASE 0)) + S) + (COND + ((AND ATOMFLG (ILEQ L \PNAMELIMIT)) + (\MKATOM BASE 1 L)) + (T (SETQ S (\GETBASESTRING BASE 1 L)) + (COND + (ATOMFLG (* ; "Let MKATOM handle the error") + (MKATOM S)) + (T S]) (SetBcplString -(LAMBDA (BASE STR) (* bvm%: " 5-Jul-85 21:50") (LET ((L (NCHARS STR))) (COND ((IGREATERP L 255) (LISPERROR "ILLEGAL ARG" BASE)) (T (\PUTBASEBYTE BASE 0 L) (\PUTBASESTRING BASE 1 STR))) BASE)) -) + [LAMBDA (BASE STR) (* bvm%: " 5-Jul-85 21:50") + (LET ((L (NCHARS STR))) + (COND + ((IGREATERP L 255) + (LISPERROR "ILLEGAL ARG" BASE)) + (T (\PUTBASEBYTE BASE 0 L) + (\PUTBASESTRING BASE 1 STR))) + BASE]) ) (DECLARE%: DONTCOPY (* "FOLLOWING DEFINITIONS EXPORTED")(DECLARE%: EVAL@COMPILE @@ -874,8 +1774,6 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1994, 2018 by Venu (RPAQQ \MAXCHARSET 255) -(RPAQQ NSCHARSETSHIFT 255) - (RPAQQ %#STRINGPWORDS 4) @@ -884,7 +1782,6 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1994, 2018 by Venu (\MAXTHINCHAR 255) (\MAXFATCHAR 65535) (\MAXCHARSET 255) - (NSCHARSETSHIFT 255) (%#STRINGPWORDS 4)) ) (DECLARE%: EVAL@COMPILE @@ -910,12 +1807,54 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1994, 2018 by Venu (DEFINEQ (%%COPY-ONED-ARRAY -(LAMBDA (LOCAL-ARRAY) (* jop%: "24-Sep-86 17:51") (PROG ((SIZE (LOCAL (ffetch (ONED-ARRAY TOTAL-SIZE) of LOCAL-ARRAY))) (BASE (LOCAL (ffetch (ONED-ARRAY BASE) of LOCAL-ARRAY))) (OFFSET (LOCAL (ffetch (ONED-ARRAY OFFSET) of LOCAL-ARRAY))) (TYPENUMBER (LOCAL (ffetch (ONED-ARRAY TYPE-NUMBER) of LOCAL-ARRAY))) NCELLS REMOTE-ARRAY REMOTE-BASE) (if (NEQ OFFSET 0) then (ERROR "Can't copy an array with non-zero offset")) (if (EQ (%%TYPENUMBER-TO-GC-TYPE TYPENUMBER) PTRBLOCK.GCT) then (ERROR "Can't copy pointer arrays")) (SETQ NCELLS (FOLDHI (ITIMES (IPLUS SIZE OFFSET) (%%TYPENUMBER-TO-BITS-PER-ELEMENT TYPENUMBER)) BITSPERCELL)) (SETQ REMOTE-ARRAY (create ONED-ARRAY BASE _ (\ALLOCBLOCK NCELLS) STRING-P _ (%%CHAR-TYPE-P TYPENUMBER) FILL-POINTER-P _ (LOCAL (ffetch (ONED-ARRAY FILL-POINTER-P) of LOCAL-ARRAY)) TYPE-NUMBER _ TYPENUMBER FILL-POINTER _ (LOCAL (ffetch (ONED-ARRAY FILL-POINTER) of LOCAL-ARRAY)) TOTAL-SIZE _ SIZE)) (SETQ REMOTE-BASE (ffetch (ONED-ARRAY BASE) of REMOTE-ARRAY)) (for I from 0 to (SUB1 (LLSH NCELLS 1)) do (\PUTBASE REMOTE-BASE I (LOCAL (\GETBASE BASE I)))) (RETURN REMOTE-ARRAY))) -) + [LAMBDA (LOCAL-ARRAY) (* jop%: "24-Sep-86 17:51") + (PROG ((SIZE (LOCAL (ffetch (ONED-ARRAY TOTAL-SIZE) of LOCAL-ARRAY))) + (BASE (LOCAL (ffetch (ONED-ARRAY BASE) of LOCAL-ARRAY))) + (OFFSET (LOCAL (ffetch (ONED-ARRAY OFFSET) of LOCAL-ARRAY))) + (TYPENUMBER (LOCAL (ffetch (ONED-ARRAY TYPE-NUMBER) of LOCAL-ARRAY))) + NCELLS REMOTE-ARRAY REMOTE-BASE) + (if (NEQ OFFSET 0) + then (ERROR "Can't copy an array with non-zero offset")) + (if (EQ (%%TYPENUMBER-TO-GC-TYPE TYPENUMBER) + PTRBLOCK.GCT) + then (ERROR "Can't copy pointer arrays")) + (SETQ NCELLS (FOLDHI (ITIMES (IPLUS SIZE OFFSET) + (%%TYPENUMBER-TO-BITS-PER-ELEMENT TYPENUMBER)) + BITSPERCELL)) + (SETQ REMOTE-ARRAY (create ONED-ARRAY + BASE _ (\ALLOCBLOCK NCELLS) + STRING-P _ (%%CHAR-TYPE-P TYPENUMBER) + FILL-POINTER-P _ (LOCAL (ffetch (ONED-ARRAY FILL-POINTER-P) + of LOCAL-ARRAY)) + TYPE-NUMBER _ TYPENUMBER + FILL-POINTER _ (LOCAL (ffetch (ONED-ARRAY FILL-POINTER) + of LOCAL-ARRAY)) + TOTAL-SIZE _ SIZE)) + (SETQ REMOTE-BASE (ffetch (ONED-ARRAY BASE) of REMOTE-ARRAY)) + [for I from 0 to (SUB1 (LLSH NCELLS 1)) + do (\PUTBASE REMOTE-BASE I (LOCAL (\GETBASE BASE I] + (RETURN REMOTE-ARRAY]) (%%COPY-STRING-TO-ARRAY -(LAMBDA (LOCAL-STRING) (* jop%: "24-Sep-86 17:51") (* ;;; "Only handles thin strings") (PROG ((SIZE (LOCAL (NCHARS LOCAL-STRING))) REMOTE-BASE REMOTE-ARRAY) (SETQ REMOTE-BASE (\ALLOCBLOCK (FOLDHI (ITIMES SIZE 8) BITSPERCELL))) (SETQ REMOTE-ARRAY (create ONED-ARRAY BASE _ REMOTE-BASE STRING-P _ T TYPE-NUMBER _ %%THIN-CHAR-TYPENUMBER FILL-POINTER _ SIZE TOTAL-SIZE _ SIZE)) (for I from 0 to (SUB1 SIZE) do (\PUTBASEBYTE REMOTE-BASE I (LOCAL (NTHCHARCODE LOCAL-STRING (ADD1 I))))) (RETURN REMOTE-ARRAY))) -) + [LAMBDA (LOCAL-STRING) (* jop%: "24-Sep-86 17:51") + +(* ;;; "Only handles thin strings") + + (PROG ((SIZE (LOCAL (NCHARS LOCAL-STRING))) + REMOTE-BASE REMOTE-ARRAY) + (SETQ REMOTE-BASE (\ALLOCBLOCK (FOLDHI (ITIMES SIZE 8) + BITSPERCELL))) + (SETQ REMOTE-ARRAY + (create ONED-ARRAY + BASE _ REMOTE-BASE + STRING-P _ T + TYPE-NUMBER _ %%THIN-CHAR-TYPENUMBER + FILL-POINTER _ SIZE + TOTAL-SIZE _ SIZE)) + [for I from 0 to (SUB1 SIZE) do (\PUTBASEBYTE REMOTE-BASE I + (LOCAL (NTHCHARCODE LOCAL-STRING + (ADD1 I] + (RETURN REMOTE-ARRAY]) ) @@ -948,18 +1887,18 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1994, 2018 by Venu (PUTPROPS LLCHAR FILETYPE :FAKE-COMPILE-FILE) (PUTPROPS LLCHAR COPYRIGHT ("Venue & Xerox Corporation" 1982 1983 1984 1985 1986 1987 1988 1990 1994 -2018)) +2018 2021)) (DECLARE%: DONTCOPY - (FILEMAP (NIL (4114 46325 (ALLOCSTRING 4124 . 5196) (MKATOM 5198 . 5544) (SUBATOM 5546 . 6518) ( -CHARACTER 6520 . 7132) (\PARSE.NUMBER 7134 . 13696) (\INVALID.DOTTED.SYMBOL 13698 . 14129) ( -\INVALID.INTEGER 14131 . 14906) (\MKINTEGER 14908 . 17475) (MKSTRING 17477 . 18549) ( -\PRINDATUM.TO.STRING 18551 . 21148) (BKSYSBUF 21150 . 21885) (NCHARS 21887 . 22721) (NTHCHARCODE 22723 - . 23755) (RPLCHARCODE 23757 . 24312) (\RPLCHARCODE 24314 . 25266) (NTHCHAR 25268 . 25407) (RPLSTRING -25409 . 27103) (SUBSTRING 27105 . 28486) (GNC 28488 . 28594) (GNCCODE 28596 . 29011) (GLC 29013 . -29119) (GLCCODE 29121 . 29562) (STREQUAL 29564 . 31678) (STRING.EQUAL 31680 . 35738) (STRINGP 35740 . -35831) (CHCON1 35833 . 36305) (U-CASE 36307 . 39530) (L-CASE 39532 . 43388) (U-CASEP 43390 . 43708) ( -\SMASHABLESTRING 43710 . 44038) (\MAKEWRITABLESTRING 44040 . 44388) (\SMASHSTRING 44390 . 46229) ( -\FATTENSTRING 46231 . 46323)) (46510 50025 (\GETBASESTRING 46520 . 47023) (\PUTBASESTRING 47025 . -48829) (\PUTBASESTRINGFAT 48831 . 49370) (GetBcplString 49372 . 49809) (SetBcplString 49811 . 50023)) -(75312 76991 (%%COPY-ONED-ARRAY 75322 . 76454) (%%COPY-STRING-TO-ARRAY 76456 . 76989))))) + (FILEMAP (NIL (3970 73876 (ALLOCSTRING 3980 . 6003) (MKATOM 6005 . 6640) (SUBATOM 6642 . 8512) ( +CHARACTER 8514 . 9518) (\PARSE.NUMBER 9520 . 25240) (\INVALID.DOTTED.SYMBOL 25242 . 25737) ( +\INVALID.INTEGER 25739 . 27191) (\MKINTEGER 27193 . 29900) (MKSTRING 29902 . 32045) ( +\PRINDATUM.TO.STRING 32047 . 38225) (BKSYSBUF 38227 . 39761) (NCHARS 39763 . 41463) (NTHCHARCODE 41465 + . 43511) (RPLCHARCODE 43513 . 44574) (\RPLCHARCODE 44576 . 46111) (NTHCHAR 46113 . 46306) (RPLSTRING +46308 . 49519) (SUBSTRING 49521 . 52444) (GNC 52446 . 52619) (GNCCODE 52621 . 53389) (GLC 53391 . +53564) (GLCCODE 53566 . 54331) (STREQUAL 54333 . 56447) (STRING.EQUAL 56449 . 60507) (STRINGP 60509 . +60660) (CHCON1 60662 . 61449) (U-CASE 61451 . 64678) (L-CASE 64680 . 68540) (U-CASEP 68542 . 69116) ( +\SMASHABLESTRING 69118 . 69580) (\MAKEWRITABLESTRING 69582 . 70018) (\SMASHSTRING 70020 . 73726) ( +\FATTENSTRING 73728 . 73874)) (74061 79223 (\GETBASESTRING 74071 . 74725) (\PUTBASESTRING 74727 . +77466) (\PUTBASESTRINGFAT 77468 . 78214) (GetBcplString 78216 . 78881) (SetBcplString 78883 . 79221)) +(104450 107264 (%%COPY-ONED-ARRAY 104460 . 106310) (%%COPY-STRING-TO-ARRAY 106312 . 107262))))) STOP diff --git a/sources/LLCHAR.LCOM b/sources/LLCHAR.LCOM index f7f47d3be..032a8d992 100644 Binary files a/sources/LLCHAR.LCOM and b/sources/LLCHAR.LCOM differ diff --git a/sources/LLCODE.LCOM b/sources/LLCODE.LCOM index 7f9acf781..2a14a2ee1 100644 Binary files a/sources/LLCODE.LCOM and b/sources/LLCODE.LCOM differ diff --git a/sources/LLDISPLAY.LCOM b/sources/LLDISPLAY.LCOM index 699b5386e..7e706bd85 100644 --- a/sources/LLDISPLAY.LCOM +++ b/sources/LLDISPLAY.LCOM @@ -1,17 +1,17 @@ -(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (FILECREATED "25-Jan-98 15:41:01" ("compiled on " {DSK}sources>LLDISPLAY.;4) "30-Mar-95 20:33:04" "COMPILE-FILEd" in "Medley 14-Aug-95 ..." dated "14-Aug-95 15:27:48") (FILECREATED "18-Apr-94 00:20:42" {DSK}nilsson>mnw>LLDISPLAY.;7 267646 changes to%: (FNS \BACKCOLOR.DISPLAY DSPTEXTURE \DSPRESET.DISPLAY \MEDW.XOFFSET \MEDW.YOFFSET DSPXOFFSET DSPYOFFSET) ( VARS LLDISPLAYCOMS) previous date%: "25-Feb-94 17:56:47" {DSK}nilsson>mnw>LLDISPLAY.;6) (RPAQQ LLDISPLAYCOMS ((DECLARE%: DONTCOPY (EXPORT (RECORDS PILOTBBT \DISPLAYDATA DISPLAYSTATE DISPLAYINFO) (MACROS \GETDISPLAYDATA))) (* ; "User-visible records are on ADISPLAY --- must be init'ed here") (INITRECORDS BITMAP PILOTBBT REGION \DISPLAYDATA) (COMS (* ; "BITMASKS") (FNS \FBITMAPBIT \FBITMAPBIT.UFN \NEWPAGE.DISPLAY INITBITMASKS) ( OPTIMIZERS \FBITMAPBIT) (EXPORT (DECLARE%: DONTCOPY (MACROS \BITMASK \4BITMASK \NOTBITMASK \NOT4BITMASK) (GLOBALVARS BITMASKARRAY NOTBITMASKARRAY 4BITMASKARRAY NOT4BITMASKARRAY) (CONSTANTS ( WORDMASK 65535)))) (DECLARE%: DONTEVAL@LOAD DOCOPY (P (INITBITMASKS)))) (COMS (* ; "init cursor") (FNS \CreateCursorBitMap) (DECLARE%: DONTEVAL@LOAD DOCOPY (VARS (CursorBitMap (\CreateCursorBitMap))))) ( COMS (* ; "bitmap functions.") (FNS BITBLT BLTSHADE \BITBLTSUB \GETPILOTBBTSCRATCHBM BITMAPCOPY BITMAPCREATE BITMAPBIT BLTCHAR \BLTCHAR \MEDW.BLTCHAR \CHANGECHARSET.DISPLAY \INDICATESTRING \SLOWBLTCHAR TEXTUREP INVERT.TEXTURE INVERT.TEXTURE.BITMAP BITMAPWIDTH READBITMAP \INSUREBITSPERPIXEL MAXIMUMCOLOR OPPOSITECOLOR MAXIMUMSHADE OPPOSITESHADE \MEDW.BITBLT) (FUNCTIONS FINISH-READING-BITMAP) (CONSTANTS (MINIMUMCOLOR 0) (MINIMUMSHADE 0)) (P (MOVD (QUOTE BITMAPBIT) (QUOTE \BITMAPBIT))) ( DECLARE%: DONTCOPY (EXPORT (MACROS \INVALIDATEDISPLAYCACHE))) (OPTIMIZERS BITMAPBIT BITMAPP) (FNS BITMAPBIT.EXPANDER) (FNS \BITBLT.DISPLAY \BITBLT.BITMAP \BITBLT.MERGE \BLTSHADE.DISPLAY \BLTSHADE.BITMAP) (FNS (* ;; "For SunLoadup") \BITBLT.BITMAP.SLOW) (FNS (* ;; " punt case for C funcs.bitblt_bitmap,bitshade.bitmap") \PUNT.BLTSHADE.BITMAP \PUNT.BITBLT.BITMAP) ( FNS (* ;; "from SUMEX-AIM") \SCALEDBITBLT.DISPLAY \BACKCOLOR.DISPLAY) (DECLARE%: DONTCOPY (CONSTANTS ( \DisplayWordAlign 16) (\MaxBitMapWidth 65535) (\MaxBitMapHeight 65535) (\MaxBitMapWords 131066)) ( EXPORT (MACROS \DSPGETCHARWIDTH \DSPGETCHARIMAGEWIDTH \DSPGETCHAROFFSET \CONVERTOP \SFInvert \SFReplicate \SETPBTFUNCTION \BITBLT1)) (GLOBALVARS \SYSBBTEXTURE \BBSCRATCHTEXTURE \SYSPILOTBBT \PILOTBBTSCRATCHBM)) (VARS (\BBSCRATCHTEXTURE) (\PILOTBBTSCRATCHBM)) (DECLARE%: DONTEVAL@LOAD DOCOPY ( P (MOVD? (QUOTE BITBLT) (QUOTE BKBITBLT)))) (* ; "macro for this file so that BITBLT can be broken by users") (EXPORT (DECLARE%: DONTCOPY DONTEVAL@LOAD DOEVAL@COMPILE (P (PUTPROP (QUOTE BITBLT) (QUOTE MACRO) (QUOTE (= . BKBITBLT))))))) (COMS (* ; "display stream functions") (FNS DISPLAYSTREAMP DSPSOURCETYPE DSPXOFFSET DSPYOFFSET) (FNS DSPCREATE DSPDESTINATION DSPTEXTURE \DISPLAYSTREAMINCRXPOSITION \SFFixDestination \SFFixClippingRegion \SFFixFont \SFFIXLINELENGTH \UPDATE-SYNONYM-STREAM-LINELENGTH-FIELD \SFFixY) (FNS \MEDW.XOFFSET \MEDW.YOFFSET) (FNS \DSPCLIPPINGREGION.DISPLAY \DSPFONT.DISPLAY \DISPLAY.PILOTBITBLT \DSPLINEFEED.DISPLAY \DSPLEFTMARGIN.DISPLAY \DSPOPERATION.DISPLAY \DSPRIGHTMARGIN.DISPLAY \DSPXPOSITION.DISPLAY \DSPYPOSITION.DISPLAY) (P (MOVD? (QUOTE \ILLEGAL.ARG) (QUOTE \COERCETODS)) ( MOVD? (QUOTE NILL) (QUOTE WFROMDS)) (MOVD? (QUOTE NILL) (QUOTE WINDOWP)) (MOVD? (QUOTE NILL) (QUOTE INVERTW))) (INITVARS (PROMPTWINDOW T) (\WINDOWWORLD NIL) (\MAINSCREEN NIL))) (COMS (* ; "Stub for window package") (INITVARS (\TOPWDS) (\SCREENBITMAPS)) (P (MOVD? (QUOTE NILL) (QUOTE \TOTOPWDS))) (DECLARE%: DONTCOPY EVAL@COMPILE (EXPORT (MACROS \INSURETOPWDS .WHILE.TOP.DS. .WHILE.CURSOR.DOWN.) (ADDVARS (GLOBALVARS \TOPWDS))))) (COMS (* ; "DisplayStream TTY functions") (FNS TTYDISPLAYSTREAM) (EXPORT (OPTIMIZERS TTYDISPLAYSTREAM)) (FNS DSPSCROLL PAGEHEIGHT) (INITVARS ( \CURRENTTTYDEVICE (QUOTE BCPLDISPLAY))) (FNS \DSPRESET.DISPLAY) (COMS (INITVARS (*DRIBBLE-OUTPUT* NIL) ) (FUNCTIONS \MAYBE-DRIBBLE-CHAR) (FNS \DSPPRINTCHAR \DSPPRINTCR/LF)) (FNS \TTYBACKGROUND) (FNS DSPBACKUP) (INITVARS (\CARET.UP)) (DECLARE%: DONTEVAL@LOAD DOCOPY (VARS (BELLCNT 2) (BELLRATE 60) ( \DisplayStoppedForLogout) (TtyDisplayStream))) (FNS COLORDISPLAYP) (FNS DISPLAYBEFOREEXIT DISPLAYAFTERENTRY) (EXPORT (GLOBALVARS BELLCNT BELLRATE TTYBACKGROUNDFNS \DisplayStoppedForLogout \CARET.UP) (MACROS \CHECKCARET))) (COMS (* ; "transformation related functions.") (FNS \DSPCLIPTRANSFORMX \DSPCLIPTRANSFORMY \DSPTRANSFORMREGION \DSPUNTRANSFORMY \DSPUNTRANSFORMX \OFFSETCLIPPINGREGION) (DECLARE%: DONTCOPY (EXPORT (MACROS \DSPTRANSFORMX \DSPTRANSFORMY \OFFSETBOTTOM \OFFSETLEFT)))) (COMS (* ; "screen related functions") (FNS UPDATESCREENDIMENSIONS \CreateScreenBitMap) (DECLARE%: DONTEVAL@LOAD DOCOPY (P (UPDATESCREENDIMENSIONS)) (INITVARS ( SCREENHEIGHT 808) (SCREENWIDTH 1024) (\OLDSCREENHEIGHT 808) (\OLDSCREENWIDTH 1024) (\MaxScreenPage -1) (ScreenBitMap (\CreateScreenBitMap SCREENWIDTH SCREENHEIGHT)) (ColorScreenBitMap NIL))) (GLOBALVARS \OLDSCREENHEIGHT \OLDSCREENWIDTH \MaxScreenPage ScreenBitMap) (DECLARE%: DONTEVAL@LOAD DOCOPY (P ( CURSOR.INIT)))) (COMS (* ; "initialization") (INITVARS (\DISPLAYINFOALIST)) (FNS \CoerceToDisplayDevice \CREATEDISPLAY DISPLAYSTREAMINIT \STARTDISPLAY \MOVE.WINDOWS.ONTO.SCREEN \UPDATE.PBT.RASTERWIDTHS \STOPDISPLAY \DEFINEDISPLAYINFO) (DECLARE%: EVAL@COMPILE DONTCOPY (ADDVARS ( DONTCOMPILEFNS \UPDATE.PBT.RASTERWIDTHS))) (EXPORT (MACROS DISPLAYINITIALIZEDP DISPLAYSTARTEDP) ( GLOBALVARS \DisplayStarted \DisplayStreamsInitialized \DisplayInitialed WHOLEDISPLAY WHOLESCREEN SCREENWIDTH SCREENHEIGHT)) (ADDVARS (GLOBALVARS WHOLESCREEN)) (FNS INITIALIZEDISPLAYSTREAMS) ( DECLARE%: DOCOPY DONTEVAL@LOAD (VARS (\DisplayStarted NIL) (\LastTTYLines 12)) (P ( INITIALIZEDISPLAYSTREAMS) (DISPLAYSTREAMINIT 1000)))) (PROP FILETYPE LLDISPLAY) (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA) (NLAML) (LAMA))))) (/DECLAREDATATYPE (QUOTE BITMAP) (QUOTE (POINTER WORD WORD WORD WORD)) (QUOTE ((BITMAP 0 POINTER) ( BITMAP 2 (BITS . 15)) (BITMAP 3 (BITS . 15)) (BITMAP 4 (BITS . 15)) (BITMAP 5 (BITS . 15)))) (QUOTE 6) ) (/DECLAREDATATYPE (QUOTE PILOTBBT) (QUOTE (WORD WORD WORD SIGNEDWORD WORD WORD WORD SIGNEDWORD WORD WORD WORD WORD WORD WORD WORD WORD)) (QUOTE ((PILOTBBT 0 (BITS . 15)) (PILOTBBT 1 (BITS . 15)) ( PILOTBBT 2 (BITS . 15)) (PILOTBBT 3 (SIGNEDBITS . 15)) (PILOTBBT 4 (BITS . 15)) (PILOTBBT 5 (BITS . 15 )) (PILOTBBT 6 (BITS . 15)) (PILOTBBT 7 (SIGNEDBITS . 15)) (PILOTBBT 8 (BITS . 15)) (PILOTBBT 9 (BITS . 15)) (PILOTBBT 10 (BITS . 15)) (PILOTBBT 11 (BITS . 15)) (PILOTBBT 12 (BITS . 15)) (PILOTBBT 13 ( BITS . 15)) (PILOTBBT 14 (BITS . 15)) (PILOTBBT 15 (BITS . 15)))) (QUOTE 16)) (/DECLAREDATATYPE (QUOTE \DISPLAYDATA) (QUOTE (POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER WORD WORD WORD WORD WORD FLAG XPOINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER WORD WORD POINTER WORD)) (QUOTE ((\DISPLAYDATA 0 POINTER) (\DISPLAYDATA 2 POINTER) ( \DISPLAYDATA 4 POINTER) (\DISPLAYDATA 6 POINTER) (\DISPLAYDATA 8 POINTER) (\DISPLAYDATA 10 POINTER) ( \DISPLAYDATA 12 POINTER) (\DISPLAYDATA 14 POINTER) (\DISPLAYDATA 16 POINTER) (\DISPLAYDATA 18 POINTER) (\DISPLAYDATA 20 POINTER) (\DISPLAYDATA 22 POINTER) (\DISPLAYDATA 24 POINTER) (\DISPLAYDATA 26 POINTER) (\DISPLAYDATA 28 POINTER) (\DISPLAYDATA 30 POINTER) (\DISPLAYDATA 32 POINTER) (\DISPLAYDATA 34 (BITS . 15)) (\DISPLAYDATA 35 (BITS . 15)) (\DISPLAYDATA 36 (BITS . 15)) (\DISPLAYDATA 37 (BITS . 15)) (\DISPLAYDATA 38 (BITS . 15)) (\DISPLAYDATA 32 (FLAGBITS . 0)) (\DISPLAYDATA 40 XPOINTER) ( \DISPLAYDATA 42 POINTER) (\DISPLAYDATA 44 POINTER) (\DISPLAYDATA 46 POINTER) (\DISPLAYDATA 48 POINTER) (\DISPLAYDATA 50 POINTER) (\DISPLAYDATA 52 POINTER) (\DISPLAYDATA 54 POINTER) (\DISPLAYDATA 56 POINTER) (\DISPLAYDATA 58 POINTER) (\DISPLAYDATA 60 POINTER) (\DISPLAYDATA 62 POINTER) (\DISPLAYDATA 39 (BITS . 15)) (\DISPLAYDATA 64 (BITS . 15)) (\DISPLAYDATA 66 POINTER) (\DISPLAYDATA 65 (BITS . 15))) ) (QUOTE 68)) \FBITMAPBIT :D8 (I 5 RASTERWIDTH I 4 HEIGHTMINUS1 I 3 OPERATION I 2 Y I 1 X I 0 BASE) 1@ABCdgð“¿j°dgð’¿k‹gð’llDE (46 \FBITMAPBIT.UFN) (31 READ 21 ERASE 9 INVERT) () \FBITMAPBIT.UFN :D8 (P 3 BITMASK P 2 WORDBASE I 5 RASTERWIDTH I 4 HEIGHTMINUS1 I 3 OPERATION I 2 Y I 1 X I 0 BASE) ¢@DBÙEÚAââââØÐ`AlåHÉHl +(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (FILECREATED "14-Jun-2021 23:15:18" ("compiled on " {DSK}kaplan>Local>medley3.5>git-medley>sources>LLDISPLAY.;3) "14-Jun-2021 22:45:51" "COMPILE-FILEd" in "FULL 14-Jun-2021 ..." dated "14-Jun-2021 22:46:04") (FILECREATED "18-Apr-94 00:20:42" {DSK}nilsson>mnw>LLDISPLAY.;7 267646 changes to%: (FNS \BACKCOLOR.DISPLAY DSPTEXTURE \DSPRESET.DISPLAY \MEDW.XOFFSET \MEDW.YOFFSET DSPXOFFSET DSPYOFFSET) ( VARS LLDISPLAYCOMS) previous date%: "25-Feb-94 17:56:47" {DSK}nilsson>mnw>LLDISPLAY.;6) (RPAQQ LLDISPLAYCOMS ((DECLARE%: DONTCOPY (EXPORT (RECORDS PILOTBBT \DISPLAYDATA DISPLAYSTATE DISPLAYINFO) (MACROS \GETDISPLAYDATA))) (* ; "User-visible records are on ADISPLAY --- must be init'ed here") (INITRECORDS BITMAP PILOTBBT REGION \DISPLAYDATA) (COMS (* ; "BITMASKS") (FNS \FBITMAPBIT \FBITMAPBIT.UFN \NEWPAGE.DISPLAY INITBITMASKS) ( OPTIMIZERS \FBITMAPBIT) (EXPORT (DECLARE%: DONTCOPY (MACROS \BITMASK \4BITMASK \NOTBITMASK \NOT4BITMASK) (GLOBALVARS BITMASKARRAY NOTBITMASKARRAY 4BITMASKARRAY NOT4BITMASKARRAY) (CONSTANTS ( WORDMASK 65535)))) (DECLARE%: DONTEVAL@LOAD DOCOPY (P (INITBITMASKS)))) (COMS (* ; "init cursor") (FNS \CreateCursorBitMap) (DECLARE%: DONTEVAL@LOAD DOCOPY (VARS (CursorBitMap (\CreateCursorBitMap))))) ( COMS (* ; "bitmap functions.") (FNS BITBLT BLTSHADE \BITBLTSUB \GETPILOTBBTSCRATCHBM BITMAPCOPY BITMAPCREATE BITMAPBIT BLTCHAR \BLTCHAR \MEDW.BLTCHAR \CHANGECHARSET.DISPLAY \INDICATESTRING \SLOWBLTCHAR TEXTUREP INVERT.TEXTURE INVERT.TEXTURE.BITMAP BITMAPWIDTH READBITMAP \INSUREBITSPERPIXEL MAXIMUMCOLOR OPPOSITECOLOR MAXIMUMSHADE OPPOSITESHADE \MEDW.BITBLT) (FUNCTIONS FINISH-READING-BITMAP) (CONSTANTS (MINIMUMCOLOR 0) (MINIMUMSHADE 0)) (P (MOVD (QUOTE BITMAPBIT) (QUOTE \BITMAPBIT))) ( DECLARE%: DONTCOPY (EXPORT (MACROS \INVALIDATEDISPLAYCACHE))) (OPTIMIZERS BITMAPBIT BITMAPP) (FNS BITMAPBIT.EXPANDER) (FNS \BITBLT.DISPLAY \BITBLT.BITMAP \BITBLT.MERGE \BLTSHADE.DISPLAY \BLTSHADE.BITMAP) (FNS (* ;; "For SunLoadup") \BITBLT.BITMAP.SLOW) (FNS (* ;; " punt case for C funcs.bitblt_bitmap,bitshade.bitmap") \PUNT.BLTSHADE.BITMAP \PUNT.BITBLT.BITMAP) ( FNS (* ;; "from SUMEX-AIM") \SCALEDBITBLT.DISPLAY \BACKCOLOR.DISPLAY) (DECLARE%: DONTCOPY (CONSTANTS ( \DisplayWordAlign 16) (\MaxBitMapWidth 65535) (\MaxBitMapHeight 65535) (\MaxBitMapWords 131066)) ( EXPORT (MACROS \DSPGETCHARWIDTH \DSPGETCHARIMAGEWIDTH \DSPGETCHAROFFSET \CONVERTOP \SFInvert \SFReplicate \SETPBTFUNCTION \BITBLT1)) (GLOBALVARS \SYSBBTEXTURE \BBSCRATCHTEXTURE \SYSPILOTBBT \PILOTBBTSCRATCHBM)) (VARS (\BBSCRATCHTEXTURE) (\PILOTBBTSCRATCHBM)) (DECLARE%: DONTEVAL@LOAD DOCOPY ( P (MOVD? (QUOTE BITBLT) (QUOTE BKBITBLT)))) (* ; "macro for this file so that BITBLT can be broken by users") (EXPORT (DECLARE%: DONTCOPY DONTEVAL@LOAD DOEVAL@COMPILE (P (PUTPROP (QUOTE BITBLT) (QUOTE MACRO) (QUOTE (= . BKBITBLT))))))) (COMS (* ; "display stream functions") (FNS DISPLAYSTREAMP DSPSOURCETYPE DSPXOFFSET DSPYOFFSET) (FNS DSPCREATE DSPDESTINATION DSPTEXTURE \DISPLAYSTREAMINCRXPOSITION \SFFixDestination \SFFixClippingRegion \SFFixFont \SFFIXLINELENGTH \UPDATE-SYNONYM-STREAM-LINELENGTH-FIELD \SFFixY) (FNS \MEDW.XOFFSET \MEDW.YOFFSET) (FNS \DSPCLIPPINGREGION.DISPLAY \DSPFONT.DISPLAY \DISPLAY.PILOTBITBLT \DSPLINEFEED.DISPLAY \DSPLEFTMARGIN.DISPLAY \DSPOPERATION.DISPLAY \DSPRIGHTMARGIN.DISPLAY \DSPXPOSITION.DISPLAY \DSPYPOSITION.DISPLAY) (P (MOVD? (QUOTE \ILLEGAL.ARG) (QUOTE \COERCETODS)) ( MOVD? (QUOTE NILL) (QUOTE WFROMDS)) (MOVD? (QUOTE NILL) (QUOTE WINDOWP)) (MOVD? (QUOTE NILL) (QUOTE INVERTW))) (INITVARS (PROMPTWINDOW T) (\WINDOWWORLD NIL) (\MAINSCREEN NIL))) (COMS (* ; "Stub for window package") (INITVARS (\TOPWDS) (\SCREENBITMAPS)) (P (MOVD? (QUOTE NILL) (QUOTE \TOTOPWDS))) (DECLARE%: DONTCOPY EVAL@COMPILE (EXPORT (MACROS \INSURETOPWDS .WHILE.TOP.DS. .WHILE.CURSOR.DOWN.) (ADDVARS (GLOBALVARS \TOPWDS))))) (COMS (* ; "DisplayStream TTY functions") (FNS TTYDISPLAYSTREAM) (EXPORT (OPTIMIZERS TTYDISPLAYSTREAM)) (FNS DSPSCROLL PAGEHEIGHT) (INITVARS ( \CURRENTTTYDEVICE (QUOTE BCPLDISPLAY))) (FNS \DSPRESET.DISPLAY) (COMS (INITVARS (*DRIBBLE-OUTPUT* NIL) ) (FUNCTIONS \MAYBE-DRIBBLE-CHAR) (FNS \DSPPRINTCHAR \DSPPRINTCR/LF)) (FNS \TTYBACKGROUND) (FNS DSPBACKUP) (INITVARS (\CARET.UP)) (DECLARE%: DONTEVAL@LOAD DOCOPY (VARS (BELLCNT 2) (BELLRATE 60) ( \DisplayStoppedForLogout) (TtyDisplayStream))) (FNS COLORDISPLAYP) (FNS DISPLAYBEFOREEXIT DISPLAYAFTERENTRY) (EXPORT (GLOBALVARS BELLCNT BELLRATE TTYBACKGROUNDFNS \DisplayStoppedForLogout \CARET.UP) (MACROS \CHECKCARET))) (COMS (* ; "transformation related functions.") (FNS \DSPCLIPTRANSFORMX \DSPCLIPTRANSFORMY \DSPTRANSFORMREGION \DSPUNTRANSFORMY \DSPUNTRANSFORMX \OFFSETCLIPPINGREGION) (DECLARE%: DONTCOPY (EXPORT (MACROS \DSPTRANSFORMX \DSPTRANSFORMY \OFFSETBOTTOM \OFFSETLEFT)))) (COMS (* ; "screen related functions") (FNS UPDATESCREENDIMENSIONS \CreateScreenBitMap) (DECLARE%: DONTEVAL@LOAD DOCOPY (P (UPDATESCREENDIMENSIONS)) (INITVARS ( SCREENHEIGHT 808) (SCREENWIDTH 1024) (\OLDSCREENHEIGHT 808) (\OLDSCREENWIDTH 1024) (\MaxScreenPage -1) (ScreenBitMap (\CreateScreenBitMap SCREENWIDTH SCREENHEIGHT)) (ColorScreenBitMap NIL))) (GLOBALVARS \OLDSCREENHEIGHT \OLDSCREENWIDTH \MaxScreenPage ScreenBitMap) (DECLARE%: DONTEVAL@LOAD DOCOPY (P ( CURSOR.INIT)))) (COMS (* ; "initialization") (INITVARS (\DISPLAYINFOALIST)) (FNS \CoerceToDisplayDevice \CREATEDISPLAY DISPLAYSTREAMINIT \STARTDISPLAY \MOVE.WINDOWS.ONTO.SCREEN \UPDATE.PBT.RASTERWIDTHS \STOPDISPLAY \DEFINEDISPLAYINFO) (DECLARE%: EVAL@COMPILE DONTCOPY (ADDVARS ( DONTCOMPILEFNS \UPDATE.PBT.RASTERWIDTHS))) (EXPORT (MACROS DISPLAYINITIALIZEDP DISPLAYSTARTEDP) ( GLOBALVARS \DisplayStarted \DisplayStreamsInitialized \DisplayInitialed WHOLEDISPLAY WHOLESCREEN SCREENWIDTH SCREENHEIGHT)) (ADDVARS (GLOBALVARS WHOLESCREEN)) (FNS INITIALIZEDISPLAYSTREAMS) ( DECLARE%: DOCOPY DONTEVAL@LOAD (VARS (\DisplayStarted NIL) (\LastTTYLines 12)) (P ( INITIALIZEDISPLAYSTREAMS) (DISPLAYSTREAMINIT 1000)))) (PROP FILETYPE LLDISPLAY) (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA) (NLAML) (LAMA))))) (/DECLAREDATATYPE (QUOTE BITMAP) (QUOTE (POINTER WORD WORD WORD WORD)) (QUOTE ((BITMAP 0 POINTER) ( BITMAP 2 (BITS . 15)) (BITMAP 3 (BITS . 15)) (BITMAP 4 (BITS . 15)) (BITMAP 5 (BITS . 15)))) (QUOTE 6) ) (/DECLAREDATATYPE (QUOTE PILOTBBT) (QUOTE (WORD WORD WORD SIGNEDWORD WORD WORD WORD SIGNEDWORD WORD WORD WORD WORD WORD WORD WORD WORD)) (QUOTE ((PILOTBBT 0 (BITS . 15)) (PILOTBBT 1 (BITS . 15)) ( PILOTBBT 2 (BITS . 15)) (PILOTBBT 3 (SIGNEDBITS . 15)) (PILOTBBT 4 (BITS . 15)) (PILOTBBT 5 (BITS . 15 )) (PILOTBBT 6 (BITS . 15)) (PILOTBBT 7 (SIGNEDBITS . 15)) (PILOTBBT 8 (BITS . 15)) (PILOTBBT 9 (BITS . 15)) (PILOTBBT 10 (BITS . 15)) (PILOTBBT 11 (BITS . 15)) (PILOTBBT 12 (BITS . 15)) (PILOTBBT 13 ( BITS . 15)) (PILOTBBT 14 (BITS . 15)) (PILOTBBT 15 (BITS . 15)))) (QUOTE 16)) (/DECLAREDATATYPE (QUOTE \DISPLAYDATA) (QUOTE (POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER WORD WORD WORD WORD WORD FLAG XPOINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER WORD WORD POINTER WORD)) (QUOTE ((\DISPLAYDATA 0 POINTER) (\DISPLAYDATA 2 POINTER) ( \DISPLAYDATA 4 POINTER) (\DISPLAYDATA 6 POINTER) (\DISPLAYDATA 8 POINTER) (\DISPLAYDATA 10 POINTER) ( \DISPLAYDATA 12 POINTER) (\DISPLAYDATA 14 POINTER) (\DISPLAYDATA 16 POINTER) (\DISPLAYDATA 18 POINTER) (\DISPLAYDATA 20 POINTER) (\DISPLAYDATA 22 POINTER) (\DISPLAYDATA 24 POINTER) (\DISPLAYDATA 26 POINTER) (\DISPLAYDATA 28 POINTER) (\DISPLAYDATA 30 POINTER) (\DISPLAYDATA 32 POINTER) (\DISPLAYDATA 34 (BITS . 15)) (\DISPLAYDATA 35 (BITS . 15)) (\DISPLAYDATA 36 (BITS . 15)) (\DISPLAYDATA 37 (BITS . 15)) (\DISPLAYDATA 38 (BITS . 15)) (\DISPLAYDATA 32 (FLAGBITS . 0)) (\DISPLAYDATA 40 XPOINTER) ( \DISPLAYDATA 42 POINTER) (\DISPLAYDATA 44 POINTER) (\DISPLAYDATA 46 POINTER) (\DISPLAYDATA 48 POINTER) (\DISPLAYDATA 50 POINTER) (\DISPLAYDATA 52 POINTER) (\DISPLAYDATA 54 POINTER) (\DISPLAYDATA 56 POINTER) (\DISPLAYDATA 58 POINTER) (\DISPLAYDATA 60 POINTER) (\DISPLAYDATA 62 POINTER) (\DISPLAYDATA 39 (BITS . 15)) (\DISPLAYDATA 64 (BITS . 15)) (\DISPLAYDATA 66 POINTER) (\DISPLAYDATA 65 (BITS . 15))) ) (QUOTE 68)) \FBITMAPBIT :D8 (I 5 RASTERWIDTH I 4 HEIGHTMINUS1 I 3 OPERATION I 2 Y I 1 X I 0 BASE) 1@ABCdgð“¿j°dgð’¿k‹gð’llDE (46 \FBITMAPBIT.UFN) (31 READ 21 ERASE 9 INVERT) () \FBITMAPBIT.UFN :D8 (P 3 BITMASK P 2 WORDBASE I 5 RASTERWIDTH I 4 HEIGHTMINUS1 I 3 OPERATION I 2 Y I 1 X I 0 BASE) ¢@DBÙEÚAââââØÐ`AlåHÉHl IØÐÈBKJÈå\jð³#LµkJÈ_¿JCdjð²¿OKæ°D ²æj°äkð²*O`Alå¾]ÉMl NØÐÈå‹Clð’OƒOKäÍ¿(137 \GETBASEFIXP 95 \FZEROP 45 \GETBASEFIXP) (130 ARRAYP 122 ARRAYP 111 NOTBITMASKARRAY 38 ARRAYP 30 ARRAYP 17 BITMASKARRAY) () \NEWPAGE.DISPLAY :D8 (I 0 STREAM) @ (5 DSPRESET) NIL () INITBITMASKS :D8 (P 2 MASK P 1 I) ½lgjd lgjd ljn€IHó²9lgjd lgjd ljnðIHó²+h`IJ ¿`IJnÿÿæ ¿JâºIkÔY° `IJ ¿`IJnÿÿæ ¿JââââºIkÔY°«(174 SETA 157 SETA 135 SETA 118 SETA 85 ARRAY 66 ARRAY 32 ARRAY 13 ARRAY) (163 NOT4BITMASKARRAY 150 4BITMASKARRAY 124 NOTBITMASKARRAY 111 BITMASKARRAY 90 NOT4BITMASKARRAY 78 SMALLPOSP 71 4BITMASKARRAY 59 SMALLPOSP 37 NOTBITMASKARRAY 25 SMALLPOSP 18 BITMASKARRAY 6 SMALLPOSP) () optimize-\FBITMAPBIT :D8 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) Œ @¡ -H¹HZ»J\½L^_¿N__¿O_¿oIKMOµ!gOoOOogð²ÚO dgð“¿j°Õdgð“¿k°Égð“l°¾l°º(99 EVAL) (128 READ 117 ERASE 105 INVERT 89 QUOTE 57 SELECTQ) ( 75 (NIL) 64 ((INVERT 0) (ERASE 1) (READ 2) 3) 44 (OPCODES MISC7 1)) (PUTPROP (QUOTE \FBITMAPBIT) (QUOTE COMPILER:OPTIMIZER-LIST) (CL:ADJOIN (QUOTE optimize-\FBITMAPBIT) ( GET (QUOTE \FBITMAPBIT) (QUOTE COMPILER:OPTIMIZER-LIST)))) (INITBITMASKS) \CreateCursorBitMap :D8 NIL $l dkÍ¿dlÍ¿dlÍ¿d`¿dkÍ¿NIL (25 \EM.CURSORBITMAP) () (RPAQ CursorBitMap (\CreateCursorBitMap)) BITBLT :D8 (L (11 CLIPPINGREGION 10 TEXTURE 9 OPERATION 8 SOURCETYPE 7 HEIGHT 6 WIDTH 5 DESTINATIONBOTTOM 4 DESTINATIONLEFT 3 DESTINATION 2 SOURCEBOTTOM 1 SOURCELEFT 0 SOURCE) F 19 \SOFTCURSORP F 20 \SOFTCURSORUPP F 21 \SCREENBITMAPS) ¢ D£jb¿E£jb +H¹HZ»J\½L^_¿N__¿O_¿oIKMOµ!gOoOOogð²ÚO dgð“¿j°Õdgð“¿k°Égð“l°¾l°º(99 EVAL) (128 READ 117 ERASE 105 INVERT 89 QUOTE 57 SELECTQ) ( 75 (NIL) 64 ((INVERT 0) (ERASE 1) (READ 2) 3) 44 (OPCODES MISC7 1)) (PUTPROP (QUOTE \FBITMAPBIT) (QUOTE COMPILER:OPTIMIZER-LIST) (CL:ADJOIN (QUOTE optimize-\FBITMAPBIT) ( GET (QUOTE \FBITMAPBIT) (QUOTE COMPILER:OPTIMIZER-LIST)))) (INITBITMASKS) \CreateCursorBitMap :D8 NIL $l dkÍ¿dlÍ¿dlÍ¿d`¿dkÍ¿NIL (25 \EM.CURSORBITMAP) () (RPAQ CursorBitMap (\CreateCursorBitMap)) BITBLT :D8 (L (11 CLIPPINGREGION 10 TEXTURE 9 OPERATION 8 SOURCETYPE 7 HEIGHT 6 WIDTH 5 DESTINATIONBOTTOM 4 DESTINATIONLEFT 3 DESTINATION 2 SOURCEBOTTOM 1 SOURCELEFT 0 SOURCE) F 19 \SOFTCURSORP F 20 \SOFTCURSORUPP F 21 \CURSORDESTINATION F 22 \SCREENBITMAPS) œ D£jb¿E£jb ¿Ggð²NCdò¿GCDEFGGG gh HÉ.ɹGHDEFGGGlIð@@dò]¿A£jb¿B£jb¿@¹AºB»Fµ3@Èb ¿Gµ@Èb¿±É@ÈBÙ½dMñ²ì¿M°è@ÈAÙ¼dLñ²É¿L°Ågh É0X¢±…A¦HÉ b¿B§HÉ -b¿HɹAHÉØbHÈ"¾dNñ¡¿NºBHÉØbHÈ$_¿dOñ¢¿O»FµNHÈ#JÙb ¿Gµ%HÈ%KÙb¿G¥HÉ6b¿Fjñ´ Gjñ³4hHÈ%KÙ_¿dOñ²Ö¿O°ÑHÈ#JÙ_¿dOñ²­¿O°¨Cdâ±É¿@ ¢±¤h__¿W&²;W(´h@gh -`ð_²`È_¿`jÍ¿¿@gh _`ð³hO -W*—O ¿IABCDEFGGGGGJK O´‚±X¿`OÍ¿±DIABCDEFGGGGGJK gh _@Cð’±ê@ ¢±àC ¢±Ï@dC -¢±Ä¿h__ _"¿W&²;W(´h@gh -`ð_"²`È_ ¿`jÍ¿¿@gh _`ð³hO -W*—O ¿IABFG +b¿HɹAHÉØbHÈ"¾dNñ¡¿NºBHÉØbHÈ$_¿dOñ¢¿O»FµNHÈ#JÙb ¿Gµ%HÈ%KÙb¿G¥HÉ6b¿Fjñ´ Gjñ³4hHÈ%KÙ_¿dOñ²Ö¿O°ÑHÈ#JÙ_¿dOñ²­¿O°¨Cdâ±Æ¿@ ¢±¡h__¿W&²8W(´h@gh +W*ð_²`È_¿`jÍ¿¿@gh _`ð³hO +W,—O ¿IABCDEFGGGGGJK O´‚±U¿`OÍ¿±AIABCDEFGGGGGJK gh _@Cð’±ç@ ¢±ÝC ¢±Ì@dC +¢±Á¿h__ _"¿W&²8W(´h@gh +W*ð_"²`È_ ¿`jÍ¿¿@gh _`ð³hO +W,—O ¿IABFG _jdFGgg -¿O"Ÿ¿`O Í¿OjdODEFGGGGG @ ¿OÉ.É_$¿IABODEFGGGGGJKlO$h(881 TOTOPW 874 BKBITBLT 838 \SOFTCURSORUPCURRENT 829 BKBITBLT 806 BITMAPCREATE 794 \TOTOPWDS 783 DSPDESTINATION 765 \GETSTREAM 752 \SOFTCURSORDOWN 718 DSPDESTINATION 713 \GETSTREAM 679 WOVERLAPP 667 WINDOWP 657 WINDOWP 642 \GETSTREAM 630 \BITBLT.BITMAP 591 \SOFTCURSORUPCURRENT 578 \BITBLT.BITMAP 552 \TOTOPWDS 541 DSPDESTINATION 523 \GETSTREAM 510 \SOFTCURSORDOWN 476 DSPDESTINATION 471 \GETSTREAM 440 WINDOWP 214 \GETSTREAM 61 \GETSTREAM 49 \BLTSHADE.BITMAP) (896 IMAGEOPS 889 STREAM 844 \EM.DISPINTERRUPT 823 REPLACE 818 INPUT 772 \TOPWDS 759 OUTPUT 743 \EM.DISPINTERRUPT 733 \EM.DISPINTERRUPT 723 \CURSORDESTINATION 707 OUTPUT 636 OUTPUT 597 \EM.DISPINTERRUPT 530 \TOPWDS 517 OUTPUT 501 \EM.DISPINTERRUPT 491 \EM.DISPINTERRUPT 481 \CURSORDESTINATION 465 OUTPUT 429 BITMAP 404 \DISPLAYDATA 380 \DISPLAYDATA 345 \DISPLAYDATA 328 \DISPLAYDATA 305 \DISPLAYDATA 294 \DISPLAYDATA 277 \DISPLAYDATA 266 \DISPLAYDATA 256 \DISPLAYDATA 226 \DISPLAYDATA 219 STREAM 208 OUTPUT 189 BITMAP 169 BITMAP 155 BITMAP 140 BITMAP 110 BITMAP 77 IMAGEOPS 70 STREAM 55 OUTPUT 28 BITMAP 18 TEXTURE) () BLTSHADE :D8 (L (7 CLIPPINGREGION 6 OPERATION 5 HEIGHT 4 WIDTH 3 DESTINATIONBOTTOM 2 DESTINATIONLEFT 1 DESTINATION 0 TEXTURE)) [Adò¿@ABµjCµjDEFG gh HÉ.ɹ@HBµjCµjDEFd¥H +¿O"Ÿ¿`O Í¿OjdODEFGGGGG @ ¿OÉ.É_$¿IABODEFGGGGGJKlO$h(875 TOTOPW 868 BKBITBLT 832 \SOFTCURSORUPCURRENT 823 BKBITBLT 800 BITMAPCREATE 788 \TOTOPWDS 777 DSPDESTINATION 759 \GETSTREAM 746 \SOFTCURSORDOWN 715 DSPDESTINATION 710 \GETSTREAM 676 WOVERLAPP 664 WINDOWP 654 WINDOWP 639 \GETSTREAM 627 \BITBLT.BITMAP 588 \SOFTCURSORUPCURRENT 575 \BITBLT.BITMAP 549 \TOTOPWDS 538 DSPDESTINATION 520 \GETSTREAM 507 \SOFTCURSORDOWN 476 DSPDESTINATION 471 \GETSTREAM 440 WINDOWP 214 \GETSTREAM 61 \GETSTREAM 49 \BLTSHADE.BITMAP) (890 IMAGEOPS 883 STREAM 838 \EM.DISPINTERRUPT 817 REPLACE 812 INPUT 766 \TOPWDS 753 OUTPUT 737 \EM.DISPINTERRUPT 727 \EM.DISPINTERRUPT 704 OUTPUT 633 OUTPUT 594 \EM.DISPINTERRUPT 527 \TOPWDS 514 OUTPUT 498 \EM.DISPINTERRUPT 488 \EM.DISPINTERRUPT 465 OUTPUT 429 BITMAP 404 \DISPLAYDATA 380 \DISPLAYDATA 345 \DISPLAYDATA 328 \DISPLAYDATA 305 \DISPLAYDATA 294 \DISPLAYDATA 277 \DISPLAYDATA 266 \DISPLAYDATA 256 \DISPLAYDATA 226 \DISPLAYDATA 219 STREAM 208 OUTPUT 189 BITMAP 169 BITMAP 155 BITMAP 140 BITMAP 110 BITMAP 77 IMAGEOPS 70 STREAM 55 OUTPUT 28 BITMAP 18 TEXTURE) () BLTSHADE :D8 (L (7 CLIPPINGREGION 6 OPERATION 5 HEIGHT 4 WIDTH 3 DESTINATIONBOTTOM 2 DESTINATIONLEFT 1 DESTINATION 0 TEXTURE)) [Adò¿@ABµjCµjDEFG gh HÉ.ɹ@HBµjCµjDEFd¥H GlI(82 DSPOPERATION 42 \GETSTREAM 30 \BLTSHADE.BITMAP) (58 IMAGEOPS 51 STREAM 36 OUTPUT 6 BITMAP) () \BITBLTSUB :D8 (P 5 X P 4 DESTADDR P 3 SOURCEADDR P 2 GRAY P 1 SBMR P 0 DBMR I 12 WindowYOffset I 11 WindowXOffset I 10 Texture I 9 Operation I 8 SourceType I 7 HEIGHT I 6 DTY I 5 DLX I 4 DestinationBitMap I 3 STY I 2 SLX I 1 SourceBitMap I 0 PILOTBBT) Ð Ð DÈX@jÍ @HàààànÿÿåÍDÉHFÚÐ\@EÍGdgð¢±H¿@kÏ 0¿@G”EGÙ€ElåÍ¿@jÍ¿G3 ¢±È`ÉZGnÿÿåbjð¦Gnÿÿð™JGÍ¿j±„JGãââââ^dáNààààdáäääÍ¿JGãlå_dáOààààdáäääÍ¿JGââââlå_dáOààààdáäääÍ¿JGlå_dáOààààdáäääÍ¿@lÏÿ@G”FGÔ€Flå_ÏC¿OÐ_¿@OÒÍ¿@O±6@GbÈdlñ’¿l]kÙÏÿ@GšFGÔM @@ -25,7 +25,7 @@ H Q¿@GgðGgðð‘j€kÏ @@jv(414 RAID 356 IMOD) (705 ERASE 697 INVERT 679 INVERT 667 PAINT 656 ERASE 643 PILOTBBT 632 PILOTBBT 621 PILOTBBT 610 PILOTBBT 586 PILOTBBT 565 PILOTBBT 532 PILOTBBT 466 PILOTBBT 453 BITMAP 433 BITMAP 427 PILOTBBT 402 MERGE 392 PILOTBBT 380 PILOTBBT 323 BITMAP 310 PILOTBBT 298 PILOTBBT 128 BITMAP 123 \SYSBBTEXTURE 106 PILOTBBT 85 PILOTBBT 67 TEXTURE 56 PILOTBBT 43 BITMAP 26 PILOTBBT 17 PILOTBBT 8 BITMAP) ( 409 "Hard bitblt case") \GETPILOTBBTSCRATCHBM :D8 (I 1 HEIGHT I 0 WIDTH) ?`ò'@`Èñ³A`Èñ¥`@A (55 BITMAPCREATE) (60 \PILOTBBTSCRATCHBM 47 \PILOTBBTSCRATCHBM 38 BITMAP 33 \PILOTBBTSCRATCHBM 22 BITMAP 17 \PILOTBBTSCRATCHBM 9 BITMAP 4 \PILOTBBTSCRATCHBM) () BITMAPCOPY :D8 (P 0 NEWBITMAP I 0 BITMAP) 7@bjd@ @È@È Xjdhdggj H(51 BKBITBLT 29 BITMAPCREATE 18 BITMAPWIDTH) (44 REPLACE 39 INPUT 8 BITMAP) () BITMAPCREATE :D8 (P 0 RW I 2 BITSPERPIXEL I 1 HEIGHT I 0 WIDTH)  j@ñ¥@nÿÿñ–@ ¿jAñ¥Anÿÿñ–A ¿B b@BÚlØââââXl dHÍ¿d@Í¿dAÍ¿dBÍ¿HAÚXdoñ²¿@AÚBÚo -‰kØâhh ¹dI¿(118 \ALLOCBLOCK 107 ERROR 42 \INSUREBITSPERPIXEL 35 \ILLEGAL.ARG 18 \ILLEGAL.ARG) NIL ( 102 "bits in BITMAP -- too big" 88 131066) BITMAPBIT :D8 (P 15 SOFTCURSORUP P 14 DISPINTERRUPT P 13 DD P 12 TY P 11 TX P 6 bitmapbase P 5 oldword P 4 HEIGHT P 3 OLDVALUE P 2 WORDX P 1 BITX P 0 NBITS I 3 NEWVALUE I 2 Y I 1 X I 0 BITMAP F 16 \SOFTCURSORP F 17 \SOFTCURSORUPP F 18 \SCREENBITMAPS) ì° +‰kØâhh ¹dI¿(118 \ALLOCBLOCK 107 ERROR 42 \INSUREBITSPERPIXEL 35 \ILLEGAL.ARG 18 \ILLEGAL.ARG) NIL ( 102 "bits in BITMAP -- too big" 88 131066) BITMAPBIT :D8 (P 15 SOFTCURSORUP P 14 DISPINTERRUPT P 13 DD P 12 TY P 11 TX P 6 bitmapbase P 5 oldword P 4 HEIGHT P 3 OLDVALUE P 2 WORDX P 1 BITX P 0 NBITS I 3 NEWVALUE I 2 Y I 1 X I 0 BITMAP F 16 \SOFTCURSORP F 17 \SOFTCURSORUPP F 18 \CURSORDESTINATION F 19 \SCREENBITMAPS) é° @â±+@ÈXjAñ’± A@Èýñ¢±üjBñ’±õB@È\ýñ¢±åHkð²[Cdjð²¿@ÉABkLkÙ@Èh8³@ÉABlLkÙ@Èh8@ÉABlLkÙ@Èh8@É@ÈBÙkÙ@ÈÚÐ^C²jCñ¯C@È ñ–C ¿Hdkð²c¿AââââZNJÐÈ]`Alå_¿_ÉOl OØÐÈYCµ MIåjð² jjðNJÐMImÿæåÍ¿°èNJÐMIäÍ¿°Ýklð²mAlçYdââââZNJÐÈ]d`Alå_¿_ÉOl OØÐÈå[C²NJÐMKæCllAlåÙÚ @@ -34,31 +34,31 @@ Q [C—NAC KoH 0 @gh bÉ0_AO _BO -_O¢±þºd¢±þµ W ²0W"´h@ -`ð_²`È_¿`jÍ¿¿@`ð³h@ -W$–@ ¿OÉOOCû_¿Ož¿`OÍO(733 \SOFTCURSORUPCURRENT 705 \TOTOPWDS 695 DSPDESTINATION 678 \SOFTCURSORDOWN 644 DSPDESTINATION 613 \DSPCLIPTRANSFORMY 603 \DSPCLIPTRANSFORMX 579 \GETSTREAM 563 ERROR 550 \PUTBASE24 539 \GETBASE24 435 LRSH 415 LLSH 382 \GETBASEFIXP 275 \GETBASEFIXP 220 \ILLEGAL.ARG 212 MAXIMUMCOLOR) (739 \EM.DISPINTERRUPT 713 \DISPLAYDATA 685 \TOPWDS 669 \EM.DISPINTERRUPT 659 \EM.DISPINTERRUPT 649 \CURSORDESTINATION 593 \DISPLAYDATA 586 STREAM 573 OUTPUT 375 ARRAYP 366 ARRAYP 352 4BITMASKARRAY 268 ARRAYP 259 ARRAYP 245 BITMASKARRAY 205 BITMAP 186 BITMAP 174 BITMAP 166 BITMAP 154 BITMAP 139 BITMAP 127 BITMAP 112 BITMAP 98 BITMAP 84 BITMAP 57 BITMAP 35 BITMAP 18 BITMAP 8 BITMAP) ( 557 "unknown bits per pixel size.") BLTCHAR :D8 (I 1 DISPLAYSTREAM I 0 CHARCODE) 2@d—¿j@ñ¡@…@ Adgh É0 (47 \BLTCHAR 30 \GETSTREAM 17 \ILLEGAL.ARG) (42 \DISPLAYDATA 35 STREAM 24 OUTPUT) () \BLTCHAR :D8 (P 0 A13769 I 2 DISPLAYDATA I 1 DISPLAYSTREAM I 0 CHARCODE) (Agh bÉ.ÉZ@ABlH(11 \GETSTREAM) (25 IMAGEOPS 18 STREAM 5 OUTPUT) () \MEDW.BLTCHAR :D8 (L (2 DISPLAYDATA 1 DISPLAYSTREAM 0 CHARCODE) F 7 \SOFTCURSORP F 8 \SOFTCURSORUPP F 9 \SCREENBITMAPS) p@lÿå\¿BdÉ>@ãð¨@ã +_O¢±þºd¢±þµ W ²-W"´ h@ +W$ð_²`È_¿`jÍ¿¿@`ð³h@ +W&–@ ¿OÉOOCû_¿Ož¿`OÍO(730 \SOFTCURSORUPCURRENT 702 \TOTOPWDS 692 DSPDESTINATION 675 \SOFTCURSORDOWN 644 DSPDESTINATION 613 \DSPCLIPTRANSFORMY 603 \DSPCLIPTRANSFORMX 579 \GETSTREAM 563 ERROR 550 \PUTBASE24 539 \GETBASE24 435 LRSH 415 LLSH 382 \GETBASEFIXP 275 \GETBASEFIXP 220 \ILLEGAL.ARG 212 MAXIMUMCOLOR) (736 \EM.DISPINTERRUPT 710 \DISPLAYDATA 682 \TOPWDS 666 \EM.DISPINTERRUPT 656 \EM.DISPINTERRUPT 593 \DISPLAYDATA 586 STREAM 573 OUTPUT 375 ARRAYP 366 ARRAYP 352 4BITMASKARRAY 268 ARRAYP 259 ARRAYP 245 BITMASKARRAY 205 BITMAP 186 BITMAP 174 BITMAP 166 BITMAP 154 BITMAP 139 BITMAP 127 BITMAP 112 BITMAP 98 BITMAP 84 BITMAP 57 BITMAP 35 BITMAP 18 BITMAP 8 BITMAP) ( 557 "unknown bits per pixel size.") BLTCHAR :D8 (I 1 DISPLAYSTREAM I 0 CHARCODE) 2@d—¿j@ñ¡@…@ Adgh É0 (47 \BLTCHAR 30 \GETSTREAM 17 \ILLEGAL.ARG) (42 \DISPLAYDATA 35 STREAM 24 OUTPUT) () \BLTCHAR :D8 (P 0 A0202 I 2 DISPLAYDATA I 1 DISPLAYSTREAM I 0 CHARCODE) (Agh bÉ.ÉZ@ABlH(11 \GETSTREAM) (25 IMAGEOPS 18 STREAM 5 OUTPUT) () \MEDW.BLTCHAR :D8 (L (2 DISPLAYDATA 1 DISPLAYSTREAM 0 CHARCODE) F 7 \SOFTCURSORP F 8 \SOFTCURSORUPP F 9 \CURSORDESTINATION F 10 \SCREENBITMAPS)  p@lÿå\¿BdÉ>@ãð¨@ã ¿BÉ—@A BÉ[BÉ0LÐÈØYBÉñŸKBÉñ™l A -°ÃBKBÉLÐÈØ¿BɸKHØ»IHØYBÈ#Xñ‘H¹KBÈ"Xñ‘K€HºIJñ´‚±“BÉ*XÈ jð’±h]¾W²-W´hA -`ð^²`Ƚ`jÍ¿¿A`ð³hA -W–A ¿HJÍ¿HIJÙÍ¿HBÉLÐÈJØKÙÍ¿Hjv¿N¿`MÍih(255 \SOFTCURSORUPCURRENT 216 \TOTOPWDS 206 DSPDESTINATION 189 \SOFTCURSORDOWN 158 DSPDESTINATION 68 \DSPPRINTCR/LF 35 \SLOWBLTCHAR 23 \CHANGECHARSET.DISPLAY) (261 \EM.DISPINTERRUPT 196 \TOPWDS 180 \EM.DISPINTERRUPT 172 \EM.DISPINTERRUPT 163 \CURSORDESTINATION 132 PILOTBBT) () \CHANGECHARSET.DISPLAY :D8 (P 4 \INTERRUPTABLE P 2 BM P 1 CSINFO P 0 PBT I 1 CHARSET I 0 DISPLAYDATA) Š@É*@É ÉAàÐɵ A@É h "@IÉ¿@IÉ¿@IÉ0¿@A>¿IɺHJÈàààànÿÿåÍ¿@È'IÈ +°ÃBKBÉLÐÈØ¿BɸKHØ»IHØYBÈ#Xñ‘H¹KBÈ"Xñ‘K€HºIJñ´‚±ŽBÉ*XÈ jð³}h]¾W²*W´ hA +Wð^²`Ƚ`jÍ¿¿A`ð³hA +W–A ¿HJÍ¿HIJÙÍ¿HBÉLÐÈJØKÙÍ¿Hjv¿N¿`MÍih(250 \SOFTCURSORUPCURRENT 211 \TOTOPWDS 201 DSPDESTINATION 184 \SOFTCURSORDOWN 156 DSPDESTINATION 68 \DSPPRINTCR/LF 35 \SLOWBLTCHAR 23 \CHANGECHARSET.DISPLAY) (256 \EM.DISPINTERRUPT 191 \TOPWDS 175 \EM.DISPINTERRUPT 167 \EM.DISPINTERRUPT 132 PILOTBBT) () \CHANGECHARSET.DISPLAY :D8 (P 4 \INTERRUPTABLE P 2 BM P 1 CSINFO P 0 PBT I 1 CHARSET I 0 DISPLAYDATA) Š@É*@É ÉAàÐɵ A@É h "@IÉ¿@IÉ¿@IÉ0¿@A>¿IɺHJÈàààànÿÿåÍ¿@È'IÈ ð—@È@IÈ ð©@I ¿°#JÉJÈ@ÉBÚлHKÒÍ¿HKÓÍh(98 \SFFixY 24 \CREATECHARSET) (130 PILOTBBT 119 PILOTBBT) () \INDICATESTRINGA0001 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 SI::*RESETFORMS* F 1 CHARCODE) Hgd gi -¿Pcgl hhPcgQãoQlÿå (69 CONCAT 39 RADIX 22 SETTOPVAL 10 GETTOPVAL) (53 %# 32 RADIX 16 PRXFLT 4 PRXFLT) ( 60 ",") \INDICATESTRING :D8 (P 2 RESETSTATE P 1 SI::*RESETFORMS* P 0 LISPXHIST I 0 CHARCODE F 3 LISPXHIST) _@dlÿñ² ¿S!g ¿$lñœ@låb¿g„ol @ñœ@l@äb¿g„o@ (92 CONCAT 87 CHARACTER 31 SI::RESETUNWIND 26 \MVLIST 21 \INDICATESTRINGA0001) (75 ^ 52 %# 16 SI::RESETUNWIND) ( 81 "" 58 "") \SLOWBLTCHAR :D8 (P 16 CSINFO P 15 HEIGHTMOVED P 14 YPOS P 13 SOFTCURSORUP P 12 DISPINTERRUPT P 11 SOURCEBIT P 10 WIDTH P 9 DESTBIT P 8 PILOTBBT P 7 CURX P 6 RIGHT P 5 LEFT P 4 NEWX P 2 DD P 1 CHAR8CODE P 0 ROTATION I 1 DISPLAYSTREAM I 0 CHARCODE F 17 \SOFTCURSORP F 18 \SOFTCURSORUPP F 19 \SCREENBITMAPS) N@@lÿåYAÉ0ZdÉ È Xdj𢱀 JÉ_JÉIÐÈØ\JÉñ²l A -¿JÉ_JÉIÐÈؼJL¿OJÉØ_¿JÈ"dOñ¢¿O½JÈ#LJÉØ»dKñ‘¿K¾JÉ*_¿NMñ¢±OÈ jð’±M_¿NMÙ_¿JÉIÐÈMØOÙ_¿JÉÈdkð³adlð²¿Oàà_¿Oàà_¿Oàà_°Ddlð²¿Oààà_¿Oààà_¿Oààà_°$lð²lOÚ_¿lOÚ_¿lOÚ_„¿ W"²0W$´hA -`ð_²`È_¿`jÍ¿¿A`ð³hA -W&–A ¿OOÍ¿OOÍ¿OOÍ¿Ojv¿OŸ¿`OÍ¿±·0JÉ_¿JÉIÐÈ_¿JÉ É@ãàÐɵ @ãJÉ h _ ¿HdlZð²;¿AOOØ +¿Pcgl hhPcgQãoQlÿå (69 CONCAT 39 RADIX 22 SETTOPVAL 10 GETTOPVAL) (53 %# 32 RADIX 16 PRXFLT 4 PRXFLT) ( 60 ",") \INDICATESTRING :D8 (P 2 RESETSTATE P 1 SI::*RESETFORMS* P 0 LISPXHIST I 0 CHARCODE F 3 LISPXHIST) _@dlÿñ² ¿S!g ¿$lñœ@låb¿g„ol @ñœ@l@äb¿g„o@ (92 CONCAT 87 CHARACTER 31 SI::RESETUNWIND 26 \MVLIST 21 \INDICATESTRINGA0001) (75 ^ 52 %# 16 SI::RESETUNWIND) ( 81 "" 58 "") \SLOWBLTCHAR :D8 (P 16 CSINFO P 15 HEIGHTMOVED P 14 YPOS P 13 SOFTCURSORUP P 12 DISPINTERRUPT P 11 SOURCEBIT P 10 WIDTH P 9 DESTBIT P 8 PILOTBBT P 7 CURX P 6 RIGHT P 5 LEFT P 4 NEWX P 2 DD P 1 CHAR8CODE P 0 ROTATION I 1 DISPLAYSTREAM I 0 CHARCODE F 17 \SOFTCURSORP F 18 \SOFTCURSORUPP F 19 \CURSORDESTINATION F 20 \SCREENBITMAPS) K@@lÿåYAÉ0ZdÉ È Xdjð¢±~€ JÉ_JÉIÐÈØ\JÉñ²l A +¿JÉ_JÉIÐÈؼJL¿OJÉØ_¿JÈ"dOñ¢¿O½JÈ#LJÉØ»dKñ‘¿K¾JÉ*_¿NMñ¢± OÈ jð’±M_¿NMÙ_¿JÉIÐÈMØOÙ_¿JÉÈdkð³adlð²¿Oàà_¿Oàà_¿Oàà_°Ddlð²¿Oààà_¿Oààà_¿Oààà_°$lð²lOÚ_¿lOÚ_¿lOÚ_„¿ W"²-W$´ hA +W&ð_²`È_¿`jÍ¿¿A`ð³hA +W(–A ¿OOÍ¿OOÍ¿OOÍ¿Ojv¿OŸ¿`OÍ¿±·0JÉ_¿JÉIÐÈ_¿JÉ É@ãàÐɵ @ãJÉ h _ ¿HdlZð²;¿AOOØ ¿O ÉjJÉIÐÈAJÉO È ÙkØOO È O È ØO °Hnð²8AOOÙ ¿O ÉjJÉIÐÈAJÉO È ÙJÉO È -O È ØO ‰o h(586 ERROR 575 BKBITBLT 533 \DSPYPOSITION.DISPLAY 514 BKBITBLT 471 \DSPYPOSITION.DISPLAY 449 \CREATECHARSET 390 \SOFTCURSORUPCURRENT 355 \TOTOPWDS 345 DSPDESTINATION 328 \SOFTCURSORDOWN 294 DSPDESTINATION 275 SHOULDNT 55 \DSPPRINTCR/LF) (396 \EM.DISPINTERRUPT 335 \TOPWDS 319 \EM.DISPINTERRUPT 309 \EM.DISPINTERRUPT 299 \CURSORDESTINATION 111 \DISPLAYDATA 83 \DISPLAYDATA) ( 581 "Not implemented to rotate by other than 0, 90 or 270") TEXTUREP :D8 (I 0 OBJECT) @d3 ³ô@Èkð´@NIL (18 BITMAP 10 BITMAP) () INVERT.TEXTURE :D8 (I 1 SCRATCHBM I 0 TEXTURE) @d3 ˜nÿÿånÿÿæA +O È ØO ‰o h(583 ERROR 572 BKBITBLT 530 \DSPYPOSITION.DISPLAY 511 BKBITBLT 468 \DSPYPOSITION.DISPLAY 446 \CREATECHARSET 387 \SOFTCURSORUPCURRENT 352 \TOTOPWDS 342 DSPDESTINATION 325 \SOFTCURSORDOWN 294 DSPDESTINATION 275 SHOULDNT 55 \DSPPRINTCR/LF) (393 \EM.DISPINTERRUPT 332 \TOPWDS 316 \EM.DISPINTERRUPT 306 \EM.DISPINTERRUPT 111 \DISPLAYDATA 83 \DISPLAYDATA) ( 578 "Not implemented to rotate by other than 0, 90 or 270") TEXTUREP :D8 (I 0 OBJECT) @d3 ³ô@Èkð´@NIL (18 BITMAP 10 BITMAP) () INVERT.TEXTURE :D8 (I 1 SCRATCHBM I 0 TEXTURE) @d3 ˜nÿÿånÿÿæA (19 INVERT.TEXTURE.BITMAP) NIL () INVERT.TEXTURE.BITMAP :D8 (P 0 NEWBM I 1 SCRATCHBM I 0 BM) “@Èkð¦@ ¿Aò)AÈkð²@ÈAÈñ–A ¿AŽl@È HÉ@ÉHÉ@ÈÐIdKð‘HJÈnÿÿæÍ¿JkкIkÐY°è(79 BITMAPCREATE 61 \ILLEGAL.ARG 16 \ILLEGAL.ARG) (112 BITMAP 104 BITMAP 96 BITMAP 88 BITMAP 72 BITMAP 51 BITMAP 43 BITMAP 31 BITMAP 23 BITMAP 5 BITMAP) () BITMAPWIDTH :D8 (I 0 BITMAP) &@Ó@È@Û@g @ (35 \ILLEGAL.ARG 28 GETWINDOWPROP) (23 WIDTH 16 WINDOW 5 BITMAP) () READBITMAP :D8 (P 6 BITSPERPIXEL P 5 W P 4 BM P 3 BASE P 2 STRM P 1 HEIGHT P 0 WIDTH I 0 FILE) ù@ @ gðªo ¿@ @ @g CJ dgð§dgð’¿k†¿@ ^HÚlØââââ½HIN \É»Ijð³qJ gð²RIdjñ²\J ¿J l"ð²=Mdjñ²0KjJ l@ÙààààJ l@ÙäÇ¿KkJ l@ÙààààJ l@ÙäÇ¿KkлkÙ°Ï¿J l"ð¬¿o hkÙ°£¿J ¿J l)ð²ãL(237 SKIPSEPRS 224 ERROR 146 SKIPSEPRS 126 SKIPSEPRS 106 BITMAPCREATE 87 RATOM 61 SKIPSEPRS 52 GETSTREAM 41 RATOM 35 RATOM 28 ERROR 11 READC 5 SKIPSEPRS) (131 %" 112 BITMAP 75 %) 67 %" 47 INPUT 16 %() ( 219 "BAD FORMAT OF BITMAP IN FILE" 23 "BAD FORMAT OF BITMAP IN FILE") \INSUREBITSPERPIXEL :D8 (I 0 NBITS) #@d¡kdkð³üdlð³ödlð³ðdlð³ê (32 \ILLEGAL.ARG) NIL () MAXIMUMCOLOR :D8 (L (0 BITSPERPIXEL)) k@çkÙNIL NIL () OPPOSITECOLOR :D8 (I 1 BITSPERPIXEL I 0 COLOR) A @Ù(5 MAXIMUMCOLOR) NIL () MAXIMUMSHADE :D8 (I 0 BITSPERPIXEL) @dkð“nÿÿ (13 MAXIMUMCOLOR) NIL () OPPOSITESHADE :D8 (I 1 BITSPERPIXEL I 0 SHADE) -A @Ù(5 MAXIMUMSHADE) NIL () \MEDW.BITBLT :D8 (P 9 A13796 P 8 A13793 P 7 SOURCEBOTTOMTRANSFORMED P 6 SOURCELEFTTRANSFORMED P 3 SRCWIN P 2 A13790 P 1 DD P 0 DSTWIN I 11 CLIPPINGREGION I 10 TEXTURE I 9 OPERATION I 8 SOURCETYPE I 7 HEIGHT I 6 WIDTH I 5 DESTINATIONBOTTOM I 4 DESTINATIONLEFT I 3 DESTINATION I 2 SOURCEBOTTOM I 1 SOURCELEFT I 0 SOURCE F 10 \SCREENBITMAPS)  +A @Ù(5 MAXIMUMSHADE) NIL () \MEDW.BITBLT :D8 (P 9 A0205 P 8 A0204 P 7 SOURCEBOTTOMTRANSFORMED P 6 SOURCELEFTTRANSFORMED P 3 SRCWIN P 2 A0203 P 1 DD P 0 DSTWIN I 11 CLIPPINGREGION I 10 TEXTURE I 9 OPERATION I 8 SOURCETYPE I 7 HEIGHT I 6 WIDTH I 5 DESTINATIONBOTTOM I 4 DESTINATIONLEFT I 3 DESTINATION I 2 SOURCEBOTTOM I 1 SOURCELEFT I 0 SOURCE F 10 \SCREENBITMAPS)   @ ³C ªo ¿@òZ@²WCi Cgh É0HÉ2ÉHºHÉ2@ABCDEFGGGGGABlJ±–Cô‚±¯C´‚±¨@i !@gh É0AIÉصABIÉصBKÉ2ÉJ_¿KÉ2IÉNOCDEFGGGGGNIÈ"¼dLñ¡¿LOIÈ$½dMñ¡¿MlO±Þ@ @@ -68,27 +68,27 @@ O W–@ ¿KÉ2ÉL KÉ2IÉNOCDEFGGGGGNIÈ"¼dLñ¡¿LOIÈ$½dMñ¡¿MlO‰o i(524 SHOULDNT 418 \TOTOPWDS 408 DSPDESTINATION 345 \GETSTREAM 330 WFROMDS 318 DSPDESTINATION 311 DSPDESTINATION 162 \GETSTREAM 147 WFROMDS 55 \GETSTREAM 43 WFROMDS 24 SHOULDNT 13 IMAGESTREAMP 5 IMAGESTREAMP) (494 \DISPLAYDATA 477 \DISPLAYDATA 451 \DISPLAYDATA 443 WINDOW 432 SCREEN 425 WINDOW 398 \TOPWDS 383 \DISPLAYDATA 367 \DISPLAYDATA 357 \DISPLAYDATA 350 STREAM 339 OUTPUT 284 \DISPLAYDATA 267 \DISPLAYDATA 241 \DISPLAYDATA 233 WINDOW 222 SCREEN 215 WINDOW 200 \DISPLAYDATA 184 \DISPLAYDATA 174 \DISPLAYDATA 167 STREAM 156 OUTPUT 127 BITMAP 92 WINDOW 83 SCREEN 76 WINDOW 67 \DISPLAYDATA 60 STREAM 49 OUTPUT 31 BITMAP) ( 519 "Invalid argument to \XW.BIBLT" 19 "Neither SOURCE nor DESTINATION is an imagestream.") FINISH-READING-BITMAP :D8 (L (0 STREAM) F 29 *READ-SUPPRESS*) (@ ñ Hd²µoH ¿°íYºI[¼K]µLk¾M_¿J3 šL3 –N3 ’O›oH ¿JNÖlØââââ!W:²,LO$ÖlÖj_¿_¿OOó¥O&°¶@ ¿OkÔ_¿°æJLN _&É_(¿@g -_"¿Lj_ ¿_¿OO ó²»O"ʇ_jð’±¼Oµ‚±©O$j_¿_¿OOó¢±6O" l@ÕO" l@ÕO" l@ÕO" l@ÕjO*ó³-O*ló³&jO,ó³ O,ló³jO.ó³O.lóªjO0ó¥O0lóšo ¿O(jO*ààààO,äÇ¿O(kO.ààààO0äÇO(kÐ_(¿OkÔ_¿±ÿf ¢±ÿTO$j_¿_¿OO󢱇O" l@ÕO" l@ÕO" l@ÕO" l@ÕjO2ó³-O2ló³&jO4ó³ O4ló³jO6ó³O6lóªjO8ó¥O8lóšo ¿O(jO2ààààO4äÇ¿O(kO6ààààO8äÇO(kÐ_(¿OkÔ_¿±ÿvO kÔ_ ¿±þ‘(494 CL:ERROR 386 \FZEROP 335 CL:ERROR 270 READCCODE 260 READCCODE 250 READCCODE 240 READCCODE 169 \GETSTREAM 146 BITMAPCREATE 128 CL:READ-CHAR 78 CL:ERROR 29 ASSERT-FAIL 5 READ) (194 STREAM 164 INPUT 153 BITMAP) ( 489 "Illegal character in bitmap contents specification." 330 "Illegal character in bitmap contents specification." 72 "Bad bitmap dimension specification: ~S" 23 "BUG: FINISH-READING-BITMAP called with non-list on stream: ~S") (RPAQQ MINIMUMCOLOR 0) (RPAQQ MINIMUMSHADE 0) (CONSTANTS (MINIMUMCOLOR 0) (MINIMUMSHADE 0)) (MOVD (QUOTE BITMAPBIT) (QUOTE \BITMAPBIT)) optimize-BITMAPBIT :D8 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) @ (6 BITMAPBIT.EXPANDER) NIL () (PUTPROP (QUOTE BITMAPBIT) (QUOTE COMPILER:OPTIMIZER-LIST) (CL:ADJOIN (QUOTE optimize-BITMAPBIT) (GET (QUOTE BITMAPBIT) (QUOTE COMPILER:OPTIMIZER-LIST)))) optimize-BITMAPP :D8 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) @oHhNIL NIL ( 10 (OPENLAMBDA (X) (AND (type? BITMAP X) X))) (PUTPROP (QUOTE BITMAPP) (QUOTE COMPILER:OPTIMIZER-LIST) (CL:ADJOIN (QUOTE optimize-BITMAPP) (GET ( QUOTE BITMAPP) (QUOTE COMPILER:OPTIMIZER-LIST)))) BITMAPBIT.EXPANDER :D8 (P 3 NEWVALUE P 2 Y P 1 X P 0 BM I 0 ARGS) -@@@@ lð•@»oHIJKh(17 LENGTH) NIL ( 32 (OPCODES MISC4 6)) \BITBLT.DISPLAY :D8 (L (11 CLIPPINGREGION 10 TEXTURE 9 OPERATION 8 SOURCETYPE 7 HEIGHT 6 WIDTH 5 DESTINATIONBOTTOM 4 DESTINATIONLEFT 3 DESTINATION 2 SOURCEBOTTOM 1 SOURCELEFT 0 SOURCEBITMAP) F 48 \SCREENBITMAPS F 49 \SOFTCURSORP F 50 \SOFTCURSORUPP) 0 ðð@dò[¿A£jb¿B£jb¿AºB»Fµ3@Èb ¿Gµ@Èb¿±Í@ÈBÙ½dMñ²ì¿M°è@ÈAÙ¼dLñ²É¿L°Ågh É0X¢±‰@¹A¦HÉ +_"¿Lj_ ¿_¿OO ó²»O"ʇ_jð’±¼Oµ‚±©O$j_¿_¿OOó¢±6O" l@ÕO" l@ÕO" l@ÕO" l@ÕjO*ó³-O*ló³&jO,ó³ O,ló³jO.ó³O.lóªjO0ó¥O0lóšo ¿O(jO*ààààO,äÇ¿O(kO.ààààO0äÇO(kÐ_(¿OkÔ_¿±ÿf ¢±ÿTO$j_¿_¿OO󢱇O" l@ÕO" l@ÕO" l@ÕO" l@ÕjO2ó³-O2ló³&jO4ó³ O4ló³jO6ó³O6lóªjO8ó¥O8lóšo ¿O(jO2ààààO4äÇ¿O(kO6ààààO8äÇO(kÐ_(¿OkÔ_¿±ÿvO kÔ_ ¿±þ‘(494 CL:ERROR 386 \FZEROP 335 CL:ERROR 270 READCCODE 260 READCCODE 250 READCCODE 240 READCCODE 169 \GETSTREAM 146 BITMAPCREATE 128 CL:READ-CHAR 78 CL:ERROR 29 ASSERT-FAIL 5 READ) (194 STREAM 164 INPUT 153 BITMAP) ( 489 "Illegal character in bitmap contents specification." 330 "Illegal character in bitmap contents specification." 72 "Bad bitmap dimension specification: ~S" 23 "BUG: FINISH-READING-BITMAP called with non-list on stream: ~S") (RPAQQ MINIMUMCOLOR 0) (RPAQQ MINIMUMSHADE 0) (CONSTANTS (MINIMUMCOLOR 0) (MINIMUMSHADE 0)) (MOVD (QUOTE BITMAPBIT) (QUOTE \BITMAPBIT)) optimize-BITMAPBIT :D8 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) @ (6 BITMAPBIT.EXPANDER) NIL () (PUTPROP (QUOTE BITMAPBIT) (QUOTE COMPILER:OPTIMIZER-LIST) (CL:ADJOIN (QUOTE optimize-BITMAPBIT) (GET (QUOTE BITMAPBIT) (QUOTE COMPILER:OPTIMIZER-LIST)))) optimize-BITMAPP :D8 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) @oHhNIL NIL ( 10 (OPENLAMBDA (X) (AND (type? BITMAP X) X))) (PUTPROP (QUOTE BITMAPP) (QUOTE COMPILER:OPTIMIZER-LIST) (CL:ADJOIN (QUOTE optimize-BITMAPP) (GET ( QUOTE BITMAPP) (QUOTE COMPILER:OPTIMIZER-LIST)))) BITMAPBIT.EXPANDER :D8 (P 3 NEWVALUE P 2 Y P 1 X P 0 BM I 0 ARGS) -@@@@ lð•@»oHIJKh(17 LENGTH) NIL ( 32 (OPCODES MISC4 6)) \BITBLT.DISPLAY :D8 (L (11 CLIPPINGREGION 10 TEXTURE 9 OPERATION 8 SOURCETYPE 7 HEIGHT 6 WIDTH 5 DESTINATIONBOTTOM 4 DESTINATIONLEFT 3 DESTINATION 2 SOURCEBOTTOM 1 SOURCELEFT 0 SOURCEBITMAP) F 48 \SCREENBITMAPS F 49 \SOFTCURSORP F 50 \SOFTCURSORUPP F 51 \CURSORDESTINATION) x0 ðð@dò[¿A£jb¿B£jb¿AºB»Fµ3@Èb ¿Gµ@Èb¿±Í@ÈBÙ½dMñ²ì¿M°è@ÈAÙ¼dLñ²É¿L°Ågh É0X¢±‰@¹A¦HÉ b¿B§HÉ -b¿HÉb¿AHÉØbHÈ"¾dNñ¡¿NºBHÉØbHÈ$_¿dOñ¢¿O»FµNHÈ#JÙb ¿Gµ%HÈ%KÙb¿G¥HÉ6b¿Fjñ´ Gjñ³4hHÈ%KÙ_¿dOñ²Ö¿O°ÑHÈ#JÙ_¿dOñ²­¿O°¨Cdâ±É¿I ¢±¤h__¿Wb²;Wd´h@gh -`ð_²`È_¿`jÍ¿¿@gh _`ð³hO -W`—O ¿@ABCDEFGGGGGJK O´‚±”¿`OÍ¿±€@ABCDEFGGGGGJK gh _IdCð’± ³I¢±&Id ¢±¿C ¢±òIdC -¢±ç¿I ÉÉ.C ÉÉ.ð¢±Âh__ _"¿Wb²;Wd´hIgh -`ð_"²`È_ ¿`jÍ¿¿Igh _`ð³hO +b¿HÉb¿AHÉØbHÈ"¾dNñ¡¿NºBHÉØbHÈ$_¿dOñ¢¿O»FµNHÈ#JÙb ¿Gµ%HÈ%KÙb¿G¥HÉ6b¿Fjñ´ Gjñ³4hHÈ%KÙ_¿dOñ²Ö¿O°ÑHÈ#JÙ_¿dOñ²­¿O°¨Cdâ±Æ¿I ¢±¡h__¿Wb²8Wd´h@gh +Wfð_²`È_¿`jÍ¿¿@gh _`ð³hO +W`—O ¿@ABCDEFGGGGGJK O´‚±Ž¿`OÍ¿±z@ABCDEFGGGGGJK gh _IdCð’± ³I¢±#Id ¢±¿C ¢±ïIdC +¢±ä¿I ÉÉ.C ÉÉ.𢱿h__ _"¿Wb²8Wd´hIgh +Wfð_"²`È_ ¿`jÍ¿¿Igh _`ð³hO W`—O ¿@ABFG _jdFGgg ¿O"Ÿ¿`O Í¿OjdODEFGGGGG I ¿I²hI hO -ð¢±ö°)OÉ0_JÉ_L¿O`ð³hO +ð¢±ó°)OÉ0_JÉ_L¿O`ð³hO W`—O ¿DOJÉØb¿EOJÉØb -¿OJÈ"_B¿OJÈ$_F¿OJÈ#_H¿OJÈ%_D¿G²nOBGOJÉØ_(¿dO(ñ¢¿O(_B¿OFGOJÉØ_*¿dO*ñ¢¿O*_F¿OHO(GØ_$¿dO$ñ’¿O$_H¿ODO*GØ_&¿dO&ñ’¿O&_D¿OLÈ_N¿@È_PONð³2OPkð²@jON ON °ONkð¢±Ë@ON -b¿DdOBñ¢¿OB_B¿EdOFñ¢¿OF_F¿FDFØdOHñ’¿OH_H¿GžEGØdODñ’¿OD_D¿DAÙ_>¿EBÙ_@¿JOBO>Ù_,¿dO,ñ¢¿O,djñ¡¿j_B¿KOFO@Ù_.¿dO.ñ¢¿O.djñ¡¿j_F¿@ÈOHO>Ù_0¿dO0ñ’¿O0JFØ_2¿dO2ñ’¿O2_H¿@ÈODO@Ù_4¿dO4ñ’¿O4KGØ_6¿dO6ñ’¿O6_D¿OHOBñ¢±ïODOFñ¢±æG¦OJÉb¿ON _R¿Gdgð²~¿Gd²¿ONkð™G bG£OR°JGd3 —ORåORæ°<òG`µld +¿OJÈ"_B¿OJÈ$_F¿OJÈ#_H¿OJÈ%_D¿G²nOBGOJÉØ_(¿dO(ñ¢¿O(_B¿OFGOJÉØ_*¿dO*ñ¢¿O*_F¿OHO(GØ_$¿dO$ñ’¿O$_H¿ODO*GØ_&¿dO&ñ’¿O&_D¿OLÈ_N¿@È_PONð³2OPkð²@jON ON °ONkð¢±È@ON +b¿DdOBñ¢¿OB_B¿EdOFñ¢¿OF_F¿FDFØdOHñ’¿OH_H¿GžEGØdODñ’¿OD_D¿DAÙ_>¿EBÙ_@¿JOBO>Ù_,¿dO,ñ¢¿O,djñ¡¿j_B¿KOFO@Ù_.¿dO.ñ¢¿O.djñ¡¿j_F¿@ÈOHO>Ù_0¿dO0ñ’¿O0JFØ_2¿dO2ñ’¿O2_H¿@ÈODO@Ù_4¿dO4ñ’¿O4KGØ_6¿dO6ñ’¿O6_D¿OHOBñ¢±ìODOFñ¢±ãG¦OJÉb¿ON _R¿Gdgð²~¿Gd²¿ONkð™G bG£OR°JGd3 —ORåORæ°<òG`µld  °ONkð©GON †G b¿ONdkð³)¿GON -°gð²ONdkðœ¿G b¿ONkð³ONOBÚ_B¿ONOHÚ_H¿ONO>Ú_>¿h_8_:¿Wb²1Wd´hO -`ð_:²`È_8¿`jÍ¿¿O`ð³hO -W`—O ¿`/ODOFÙ_T¿OHOBÙ_V¿OLÈODO@ØÙ_X¿OBO>Ø_Z¿@ÈODÙ_\¿OB_^¿`OVÍ¿`OTÍ ¿Ggð²"`@O^O\OLOZOXOVOTGG ° `@O^O\OLOZOXOTGGG O:Ÿ¿`O8Í¿°.OÉ.É_<¿@ABODEFGGGGGJKlO<h(1859 \SOFTCURSORUPCURRENT 1850 \BITBLTSUB 1818 \BITBLT.MERGE 1683 \TOTOPWDS 1672 DSPDESTINATION 1653 \SOFTCURSORDOWN 1619 DSPDESTINATION 1564 INSURE.B&W.TEXTURE 1540 COLORTEXTUREFROMCOLOR# 1520 \ILLEGAL.ARG 1512 COLORNUMBERP 1496 INVERT.TEXTURE.BITMAP 1486 BITMAPCREATE 1438 INSURE.B&W.TEXTURE 1404 MAXIMUMSHADE 1171 UNCOLORIZEBITMAP 1166 COLORMAP 1148 COLORIZEBITMAP 1141 MAXIMUMCOLOR 915 \TOTOPWDS 904 DSPDESTINATION 857 DSPDESTINATION 849 DSPDESTINATION 838 TOTOPW 831 BKBITBLT 795 \SOFTCURSORUPCURRENT 786 BKBITBLT 763 BITMAPCREATE 751 \TOTOPWDS 740 DSPDESTINATION 722 \GETSTREAM 709 \SOFTCURSORDOWN 675 DSPDESTINATION 670 \GETSTREAM 627 \INSUREWINDOW 612 \INSUREWINDOW 601 WOVERLAPP 589 WINDOWP 578 WFROMDS 564 WINDOWP 549 \GETSTREAM 537 \BITBLT.BITMAP 498 \SOFTCURSORUPCURRENT 485 \BITBLT.BITMAP 459 \TOTOPWDS 448 DSPDESTINATION 430 \GETSTREAM 417 \SOFTCURSORDOWN 383 DSPDESTINATION 378 \GETSTREAM 347 WINDOWP 117 \GETSTREAM) (1887 IMAGEOPS 1880 STREAM 1865 \EM.DISPINTERRUPT 1825 \SYSPILOTBBT 1793 \SYSPILOTBBT 1785 MERGE 1773 PILOTBBT 1768 \SYSPILOTBBT 1758 PILOTBBT 1753 \SYSPILOTBBT 1735 BITMAP 1710 BITMAP 1661 \TOPWDS 1644 \EM.DISPINTERRUPT 1634 \EM.DISPINTERRUPT 1624 \CURSORDESTINATION 1547 TEXTURE 1491 \BBSCRATCHTEXTURE 1476 \BBSCRATCHTEXTURE 1467 BITMAP 1415 MERGE 1111 BITMAP 1038 \DISPLAYDATA 1008 \DISPLAYDATA 987 \DISPLAYDATA 975 \DISPLAYDATA 963 \DISPLAYDATA 951 \DISPLAYDATA 938 \DISPLAYDATA 924 \DISPLAYDATA 893 \TOPWDS 881 \DISPLAYDATA 872 STREAM 801 \EM.DISPINTERRUPT 780 REPLACE 775 INPUT 729 \TOPWDS 716 OUTPUT 700 \EM.DISPINTERRUPT 690 \EM.DISPINTERRUPT 680 \CURSORDESTINATION 664 OUTPUT 634 STREAM 619 STREAM 543 OUTPUT 504 \EM.DISPINTERRUPT 437 \TOPWDS 424 OUTPUT 408 \EM.DISPINTERRUPT 398 \EM.DISPINTERRUPT 388 \CURSORDESTINATION 372 OUTPUT 336 BITMAP 311 \DISPLAYDATA 287 \DISPLAYDATA 252 \DISPLAYDATA 235 \DISPLAYDATA 212 \DISPLAYDATA 201 \DISPLAYDATA 184 \DISPLAYDATA 173 \DISPLAYDATA 161 \DISPLAYDATA 129 \DISPLAYDATA 122 STREAM 111 OUTPUT 92 BITMAP 72 BITMAP 58 BITMAP 43 BITMAP 15 BITMAP) () \BITBLT.BITMAP :D8 (L (13 CLIPPEDSOURCEBOTTOM 12 CLIPPEDSOURCELEFT 11 CLIPPINGREGION 10 TEXTURE 9 OPERATION 8 SOURCETYPE 7 HEIGHT 6 WIDTH 5 DESTINATIONBOTTOM 4 DESTINATIONLEFT 3 DESTBITMAP 2 SOURCEBOTTOM 1 SOURCELEFT 0 SOURCEBITMAP) P 18 \INTERRUPTABLE) ð0CÈ[CÈ\j]d^@È_CÈZG²QMG_¿dOñ¢¿O½NG_¿dOñ¢¿O¾JGGØ_¿dOñ’¿OºKGGØ_¿dOñ’¿O»DdMñ¡¿M½EdNñ¡¿N¾F™DFØdJñ‘¿JºGšEGØdKñ‘¿K»DAÙXEBÙYGdjñ¡¿jMHÙ_¿dOñ¢¿O½Gdjñ¡¿jNIÙ_¿dOñ¢¿O¾@ÈJHÙ_¿dOñ’¿OGFØ_¿dOñ’¿Oº@ÈKIÙ_ ¿dO ñ’¿O GGØ_"¿dO"ñ’¿O"[JMñ´dNñ¡hGgð²WGµnÿÿ°K3 ›Gnÿÿånÿÿæ°Ú_>¿h_8_:¿Wb².Wd´ hO +Wfð_:²`È_8¿`jÍ¿¿O`ð³hO +W`—O ¿`/ODOFÙ_T¿OHOBÙ_V¿OLÈODO@ØÙ_X¿OBO>Ø_Z¿@ÈODÙ_\¿OB_^¿`OVÍ¿`OTÍ ¿Ggð²"`@O^O\OLOZOXOVOTGG ° `@O^O\OLOZOXOTGGG O:Ÿ¿`O8Í¿°.OÉ.É_<¿@ABODEFGGGGGJKlO<h(1850 \SOFTCURSORUPCURRENT 1841 \BITBLTSUB 1809 \BITBLT.MERGE 1674 \TOTOPWDS 1663 DSPDESTINATION 1644 \SOFTCURSORDOWN 1613 DSPDESTINATION 1558 INSURE.B&W.TEXTURE 1534 COLORTEXTUREFROMCOLOR# 1514 \ILLEGAL.ARG 1506 COLORNUMBERP 1490 INVERT.TEXTURE.BITMAP 1480 BITMAPCREATE 1432 INSURE.B&W.TEXTURE 1398 MAXIMUMSHADE 1165 UNCOLORIZEBITMAP 1160 COLORMAP 1142 COLORIZEBITMAP 1135 MAXIMUMCOLOR 909 \TOTOPWDS 898 DSPDESTINATION 851 DSPDESTINATION 843 DSPDESTINATION 832 TOTOPW 825 BKBITBLT 789 \SOFTCURSORUPCURRENT 780 BKBITBLT 757 BITMAPCREATE 745 \TOTOPWDS 734 DSPDESTINATION 716 \GETSTREAM 703 \SOFTCURSORDOWN 672 DSPDESTINATION 667 \GETSTREAM 624 \INSUREWINDOW 609 \INSUREWINDOW 598 WOVERLAPP 586 WINDOWP 575 WFROMDS 561 WINDOWP 546 \GETSTREAM 534 \BITBLT.BITMAP 495 \SOFTCURSORUPCURRENT 482 \BITBLT.BITMAP 456 \TOTOPWDS 445 DSPDESTINATION 427 \GETSTREAM 414 \SOFTCURSORDOWN 383 DSPDESTINATION 378 \GETSTREAM 347 WINDOWP 117 \GETSTREAM) (1878 IMAGEOPS 1871 STREAM 1856 \EM.DISPINTERRUPT 1816 \SYSPILOTBBT 1784 \SYSPILOTBBT 1776 MERGE 1764 PILOTBBT 1759 \SYSPILOTBBT 1749 PILOTBBT 1744 \SYSPILOTBBT 1726 BITMAP 1701 BITMAP 1652 \TOPWDS 1635 \EM.DISPINTERRUPT 1625 \EM.DISPINTERRUPT 1541 TEXTURE 1485 \BBSCRATCHTEXTURE 1470 \BBSCRATCHTEXTURE 1461 BITMAP 1409 MERGE 1105 BITMAP 1032 \DISPLAYDATA 1002 \DISPLAYDATA 981 \DISPLAYDATA 969 \DISPLAYDATA 957 \DISPLAYDATA 945 \DISPLAYDATA 932 \DISPLAYDATA 918 \DISPLAYDATA 887 \TOPWDS 875 \DISPLAYDATA 866 STREAM 795 \EM.DISPINTERRUPT 774 REPLACE 769 INPUT 723 \TOPWDS 710 OUTPUT 694 \EM.DISPINTERRUPT 684 \EM.DISPINTERRUPT 661 OUTPUT 631 STREAM 616 STREAM 540 OUTPUT 501 \EM.DISPINTERRUPT 434 \TOPWDS 421 OUTPUT 405 \EM.DISPINTERRUPT 395 \EM.DISPINTERRUPT 372 OUTPUT 336 BITMAP 311 \DISPLAYDATA 287 \DISPLAYDATA 252 \DISPLAYDATA 235 \DISPLAYDATA 212 \DISPLAYDATA 201 \DISPLAYDATA 184 \DISPLAYDATA 173 \DISPLAYDATA 161 \DISPLAYDATA 129 \DISPLAYDATA 122 STREAM 111 OUTPUT 92 BITMAP 72 BITMAP 58 BITMAP 43 BITMAP 15 BITMAP) () \BITBLT.BITMAP :D8 (L (13 CLIPPEDSOURCEBOTTOM 12 CLIPPEDSOURCELEFT 11 CLIPPINGREGION 10 TEXTURE 9 OPERATION 8 SOURCETYPE 7 HEIGHT 6 WIDTH 5 DESTINATIONBOTTOM 4 DESTINATIONLEFT 3 DESTBITMAP 2 SOURCEBOTTOM 1 SOURCELEFT 0 SOURCEBITMAP) P 18 \INTERRUPTABLE) ð0CÈ[CÈ\j]d^@È_CÈZG²QMG_¿dOñ¢¿O½NG_¿dOñ¢¿O¾JGGØ_¿dOñ’¿OºKGGØ_¿dOñ’¿O»DdMñ¡¿M½EdNñ¡¿N¾F™DFØdJñ‘¿JºGšEGØdKñ‘¿K»DAÙXEBÙYGdjñ¡¿jMHÙ_¿dOñ¢¿O½Gdjñ¡¿jNIÙ_¿dOñ¢¿O¾@ÈJHÙ_¿dOñ’¿OGFØ_¿dOñ’¿Oº@ÈKIÙ_ ¿dO ñ’¿O GGØ_"¿dO"ñ’¿O"[JMñ´dNñ¡hGgð²WGµnÿÿ°K3 ›Gnÿÿånÿÿæ°¿@nÿÿÍ'A@ h(53 \SFFixFont 33 \SFFixClippingRegion) (14 PILOTBBT) () \SFFixClippingRegion :D8 (P 1 BM P 0 CLIPREG I 0 DISPLAYDATA) •@É -@ÉB@HHØ@ÉØIȺdJñ‘¿J»jKñ¡K€jÍ#@H@ÉØdjñ¡¿jdnÿÿñ“¿nÿÿÍ"@HHØ@ÉØIȼdLñ‘¿L½jMñ¡M€jÍ%@H@ÉØdjñ¡¿jdnÿÿñ“¿nÿÿÍ$hNIL (124 \DISPLAYDATA 91 \DISPLAYDATA 54 \DISPLAYDATA 22 \DISPLAYDATA) () \SFFixFont :D8 (I 1 DISPLAYDATA I 0 DISPLAYSTREAM) 5AÉ*AÉ AÉÈAJkðhðµ IÈ jðhðAnÿÿ>¿AnÿÿÍ'@ (50 \SFFIXLINELENGTH) NIL () \SFFIXLINELENGTH :D8 (P 0 DD I 0 DISPLAYSTREAM) I@É0!@HÉHÉÙHÉ ÈÛ¹kIñ¡I€kºnÿÿJñ‘J‚nÿÿÍg ´ @ h(69 \UPDATE-SYNONYM-STREAM-LINELENGTH-FIELD 61 BOUNDP) (56 %%SYNONYM-STREAM-DEVICE 26 FONTDESCRIPTOR 5 STREAM) () \UPDATE-SYNONYM-STREAM-LINELENGTH-FIELD :D8 (P 7 SI::%%$$MAP-FIRST-SUBLIST P 6 X P 1 SI::%%$$MAP-FIRST-LIST P 0 NEWLENGTH I 0 DISPLAYSTREAM) o@Èa`ÉYOµI^É ²'NÉ @ð²NHÍ¿`ÉZµ`É\µO_°Ç[ÉNð”KHÍ¿J°Þ]ÉNð”MHÍ¿L°Ø(41 CL:SYMBOL-VALUE 31 BOUNDP) (65 %%TWO-WAY-STREAM-DEVICE 55 %%ECHO-STREAM-DEVICE 10 %%SYNONYM-STREAM-DEVICE) () \SFFixY :D8 (P 4 BM P 3 CHARTOP P 2 TOP P 1 Y P 0 PBT I 1 CSINFO I 0 DISPLAYDATA) È @É*@É@ÉØ’ +@ÉB@HHØ@ÉØIȺdJñ‘¿J»jKñ¡K€jÍ#@H@ÉØdjñ¡¿jdnÿÿñ“¿nÿÿÍ"@HHØ@ÉØIȼdLñ‘¿L½jMñ¡M€jÍ%@H@ÉØdjñ¡¿jdnÿÿñ“¿nÿÿÍ$hNIL (124 \DISPLAYDATA 91 \DISPLAYDATA 54 \DISPLAYDATA 22 \DISPLAYDATA) () \SFFixFont :D8 (I 1 DISPLAYDATA I 0 DISPLAYSTREAM) 5AÉ*AÉ AÉÈAJkðhðµ IÈ jðhðAnÿÿ>¿AnÿÿÍ'@ (50 \SFFIXLINELENGTH) NIL () \SFFIXLINELENGTH :D8 (P 0 DD I 0 DISPLAYSTREAM) I@É0!@HÉHÉÙHÉ ÈÛ¹kIñ¡I€kºnÿÿJñ‘J‚nÿÿÍg ´ @ h(69 \UPDATE-SYNONYM-STREAM-LINELENGTH-FIELD 61 BOUNDP) (56 %%SYNONYM-STREAM-DEVICE 26 FONTDESCRIPTOR 5 STREAM) () \UPDATE-SYNONYM-STREAM-LINELENGTH-FIELD :D8 (P 7 SI::%%$$MAP-FIRST-SUBLIST P 6 X P 1 SI::%%$$MAP-FIRST-LIST P 0 NEWLENGTH I 0 DISPLAYSTREAM F 8 %%SYNONYM-STREAM-DEVICE F 9 %%ECHO-STREAM-DEVICE F 10 %%TWO-WAY-STREAM-DEVICE) f@ÈaWÉYOµI^É ²!NÉ @ð²NHÍ¿WÉZµWÉ\µO_°Í[ÉNð”KHÍ¿J°á]ÉNð”MHÍ¿L°Ø(38 CL:SYMBOL-VALUE 28 BOUNDP) NIL () \SFFixY :D8 (P 4 BM P 3 CHARTOP P 2 TOP P 1 Y P 0 PBT I 1 CSINFO I 0 DISPLAYDATA) È @É*@É@ÉØ’ I@AÈ ]Í'¿MØ[@É\ÉLÈLÈ@È%dKñ‘¿Kdjñ¡¿jZÙÚоHNÒÍ¿HNÓÍ¿AÉ\ÉLÈ@KJÙdjñ¡¿jdnÿÿñ“¿nÿÿ_B¿OÚÐ_¿HOÒÍ¿HOÓÍ¿HJI@AÈ _Í@¿OÙ@È$_¿dOñ¢¿OÙdjñ¡¿jÍ hNIL (152 PILOTBBT 140 PILOTBBT 88 PILOTBBT 77 PILOTBBT 49 BITMAP 38 BITMAP 11 \DISPLAYDATA) () \MEDW.XOFFSET :D8 (P 1 \INTERRUPTABLE P 0 DD I 1 DISPLAYSTREAM I 0 XOFFSET) NAd²Egh É0HÉ@²@d3²¿H@¿H  ¿ (75 \ILLEGAL.ARG 68 \ILLEGAL.ARG 61 \SFFixClippingRegion 14 \GETSTREAM) (35 \DISPLAYDATA 26 \DISPLAYDATA 19 STREAM 8 OUTPUT) () \MEDW.YOFFSET :D8 (P 1 \INTERRUPTABLE P 0 DD I 1 DISPLAYSTREAM I 0 YOFFSET) WAd²Ngh É0HÉ@²-@d3²!¿H@¿H ¿Hnÿÿ>¿HnÿÿÍ' ¿ (84 \ILLEGAL.ARG 77 \ILLEGAL.ARG 56 \SFFixClippingRegion 14 \GETSTREAM) (26 \DISPLAYDATA 19 STREAM 8 OUTPUT) () \DSPCLIPPINGREGION.DISPLAY :D8 (P 1 \INTERRUPTABLE P 0 DD I 1 REGION I 0 DISPLAYSTREAM) e@gh É0HÉ A²DAl @@ -155,12 +154,13 @@ jHh (119 \SFFixFont 105 \CREATECHARSET 62 ERROR 50 FONTCOPY 31 \COERCEFONTDESC) (83 FONTDESCRIPTOR 41 NOERROR 17 \DISPLAYDATA 8 STREAM) ( 57 "FONT NOT FOUND OR ILLEGAL FONTCOPY PARAMETER") \DISPLAY.PILOTBITBLT :D8 (I 1 N I 0 PILOTBBT) @AvNIL NIL () \DSPLINEFEED.DISPLAY :D8 (P 0 DD I 1 DELTAY I 0 DISPLAYSTREAM) %@É0HÉA²Ad3–¿HA¿ ¿(33 \ILLEGAL.ARG) (5 STREAM) () \DSPLEFTMARGIN.DISPLAY :D8 (P 1 \INTERRUPTABLE P 0 DD I 1 XPOSITION I 0 DISPLAYSTREAM) 0@É0HÉA²Ad3²¿HA¿@  ¿(44 \ILLEGAL.ARG 37 \SFFIXLINELENGTH) (5 STREAM) () \DSPOPERATION.DISPLAY :D8 (P 3 \INTERRUPTABLE P 0 DD I 1 OPERATION I 0 DISPLAYSTREAM) ¯@gh É0!HÉA¢±ˆAgð³%Agð³Agð³Adgð¦l ¿HA¿HÉ*HÉ ºYAdgð“¿k°gð’l‹Agð’l€jÏ Q¿IJgðAgðð‘j€kÏ -@(82 \LISPERROR 11 \GETSTREAM) (162 ERASE 155 INVERT 138 INVERT 127 PAINT 116 ERASE 105 \DISPLAYDATA 97 \DISPLAYDATA 73 ERASE 63 INVERT 54 REPLACE 45 PAINT 32 \DISPLAYDATA 23 \DISPLAYDATA 16 STREAM 5 OUTPUT) () \DSPRIGHTMARGIN.DISPLAY :D8 (P 2 \INTERRUPTABLE P 1 OLDRM P 0 DD I 1 XPOSITION I 0 DISPLAYSTREAM) 4@É0HÉYA²!Ad3²Iô³HA¿@ „ I(48 \ILLEGAL.ARG 41 \SFFIXLINELENGTH) (5 STREAM) () \DSPXPOSITION.DISPLAY :D8 (P 0 DD I 1 XPOSITION I 0 DISPLAYSTREAM) /@É0HÉA²Ad3›¿HA¿@jÍ¿ ¿(43 \ILLEGAL.ARG) (16 \DISPLAYDATA 5 STREAM) () \DSPYPOSITION.DISPLAY :D8 (P 1 \INTERRUPTABLE P 0 DD I 1 YPOSITION I 0 DISPLAYSTREAM) 7@É0HÉA²&Ad3²¿HA¿Hnÿÿ>¿HnÿÿÍ' ¿(51 \ILLEGAL.ARG) (5 STREAM) () (MOVD? (QUOTE \ILLEGAL.ARG) (QUOTE \COERCETODS)) (MOVD? (QUOTE NILL) (QUOTE WFROMDS)) (MOVD? (QUOTE NILL) (QUOTE WINDOWP)) (MOVD? (QUOTE NILL) (QUOTE INVERTW)) (RPAQ? PROMPTWINDOW T) (RPAQ? \WINDOWWORLD NIL) (RPAQ? \MAINSCREEN NIL) (RPAQ? \TOPWDS) (RPAQ? \SCREENBITMAPS) (MOVD? (QUOTE NILL) (QUOTE \TOTOPWDS)) TTYDISPLAYSTREAM :D8 (P 3 DD P 2 WIN P 0 \INTERRUPTABLE I 0 DISPLAYSTREAM F 4 \TERM.OFD F 5 \LINEBUF.OFD F 6 *STANDARD-OUTPUT* F 7 *STANDARD-INPUT* F 8 TtyDisplayStream) T@¢± @gh b ³g –@ ¦@ ¿ @dTð’±…¿Tµ VTð²8@c °4`ð³ð`–h ¿Ti +@(82 \LISPERROR 11 \GETSTREAM) (162 ERASE 155 INVERT 138 INVERT 127 PAINT 116 ERASE 105 \DISPLAYDATA 97 \DISPLAYDATA 73 ERASE 63 INVERT 54 REPLACE 45 PAINT 32 \DISPLAYDATA 23 \DISPLAYDATA 16 STREAM 5 OUTPUT) () \DSPRIGHTMARGIN.DISPLAY :D8 (P 2 \INTERRUPTABLE P 1 OLDRM P 0 DD I 1 XPOSITION I 0 DISPLAYSTREAM) 4@É0HÉYA²!Ad3²Iô³HA¿@ „ I(48 \ILLEGAL.ARG 41 \SFFIXLINELENGTH) (5 STREAM) () \DSPXPOSITION.DISPLAY :D8 (P 0 DD I 1 XPOSITION I 0 DISPLAYSTREAM) /@É0HÉA²Ad3›¿HA¿@jÍ¿ ¿(43 \ILLEGAL.ARG) (16 \DISPLAYDATA 5 STREAM) () \DSPYPOSITION.DISPLAY :D8 (P 1 \INTERRUPTABLE P 0 DD I 1 YPOSITION I 0 DISPLAYSTREAM) 7@É0HÉA²&Ad3²¿HA¿Hnÿÿ>¿HnÿÿÍ' ¿(51 \ILLEGAL.ARG) (5 STREAM) () (MOVD? (QUOTE \ILLEGAL.ARG) (QUOTE \COERCETODS)) (MOVD? (QUOTE NILL) (QUOTE WFROMDS)) (MOVD? (QUOTE NILL) (QUOTE WINDOWP)) (MOVD? (QUOTE NILL) (QUOTE INVERTW)) (RPAQ? PROMPTWINDOW T) (RPAQ? \WINDOWWORLD NIL) (RPAQ? \MAINSCREEN NIL) (RPAQ? \TOPWDS) (RPAQ? \SCREENBITMAPS) (MOVD? (QUOTE NILL) (QUOTE \TOTOPWDS)) TTYDISPLAYSTREAM :D8 (P 3 DD P 2 WIN P 0 \INTERRUPTABLE I 0 DISPLAYSTREAM F 4 \TERM.OFD F 5 \LINEBUF.OFD F 6 *STANDARD-OUTPUT* F 7 *STANDARD-INPUT* F 8 \DISPLAYSTREAMTYPES F 9 TtyDisplayStream) T@¢± +@gh b ³g –@ ¦@ ¿ @dTð’±…¿Tµ VTð²8@c °4`ð³ð`–h ¿Ti JœJgU ¿°Ç@c¿WU@i Z² Jg` ¿Jg µc -ð“Uc¿@c `²Cg@ -¿@É0[È%KÈ$ÙKɹjIñ¡I‚jIÙÛ (269 PAGEHEIGHT 216 DSPSCROLL 197 IMAGESTREAMTYPE 180 \CREATELINEBUFFER 173 GETWINDOWUSERPROP 161 PUTWINDOWPROP 142 WFROMDS 121 PUTWINDOWPROP 104 WFROMDS 96 \CARET.DOWN 50 \ILLEGAL.ARG 43 TEXTSTREAMP 36 \DEFINEDP 24 DISPLAYSTREAMP 17 \GETSTREAM) (251 \DISPLAYDATA 242 \DISPLAYDATA 234 \DISPLAYDATA 226 STREAM 210 ON 202 \DISPLAYSTREAMTYPES 168 \LINEBUF.OFD 156 \RUNNING.PROCESS 151 PROCESS 115 \LINEBUF.OFD 89 \CARET.UP 81 \DEFAULTTTYDISPLAYSTREAM 31 TEXTSTREAMP 11 OUTPUT) () optimize-TTYDISPLAYSTREAM :D8 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) @¥ggNIL (14 IGNOREMACRO 8 \TERM.OFD) () (PUTPROP (QUOTE TTYDISPLAYSTREAM) (QUOTE COMPILER:OPTIMIZER-LIST) (CL:ADJOIN (QUOTE optimize-TTYDISPLAYSTREAM) (GET (QUOTE TTYDISPLAYSTREAM) (QUOTE COMPILER:OPTIMIZER-LIST)))) DSPSCROLL :D8 (I 1 DISPLAYSTREAM I 0 SWITCHSETTING) 6Agh É0Hɵg@œH@gðhð¿(11 \GETSTREAM) (45 OFF 36 OFF 23 \DISPLAYDATA 16 STREAM 5 OUTPUT) () PAGEHEIGHT :D8 (L (0 N) F 0 \#DISPLAYLINES F 1 \CURRENTDISPLAYLINE) P@3—@c¿jc¿NIL NIL () (RPAQ? \CURRENTTTYDEVICE (QUOTE BCPLDISPLAY)) \DSPRESET.DISPLAY :D8 (P 5 X P 4 FONTASCENT P 3 FONT P 2 CREG P 1 WINDOW P 0 DD I 0 DISPLAYSTREAM) -@gh bÉ0@i +ð“Uc¿@c W²Cg@ +¿@É0[È%KÈ$ÙKɹjIñ¡I‚jIÙÛ (266 PAGEHEIGHT 213 DSPSCROLL 197 IMAGESTREAMTYPE 180 \CREATELINEBUFFER 173 GETWINDOWUSERPROP 161 PUTWINDOWPROP 142 WFROMDS 121 PUTWINDOWPROP 104 WFROMDS 96 \CARET.DOWN 50 \ILLEGAL.ARG 43 TEXTSTREAMP 36 \DEFINEDP 24 DISPLAYSTREAMP 17 \GETSTREAM) (248 \DISPLAYDATA 239 \DISPLAYDATA 231 \DISPLAYDATA 223 STREAM 207 ON 168 \LINEBUF.OFD 156 \RUNNING.PROCESS 151 PROCESS 115 \LINEBUF.OFD 89 \CARET.UP 81 \DEFAULTTTYDISPLAYSTREAM 31 TEXTSTREAMP 11 OUTPUT) () optimize-TTYDISPLAYSTREAM :D8 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) @¥ggNIL (14 IGNOREMACRO 8 \TERM.OFD) () (PUTPROP (QUOTE TTYDISPLAYSTREAM) (QUOTE COMPILER:OPTIMIZER-LIST) (CL:ADJOIN (QUOTE optimize-TTYDISPLAYSTREAM) (GET (QUOTE TTYDISPLAYSTREAM) (QUOTE COMPILER:OPTIMIZER-LIST)))) DSPSCROLL :D8 (I 1 DISPLAYSTREAM I 0 SWITCHSETTING) 6Agh É0Hɵg@œH@gðhð¿(11 \GETSTREAM) (45 OFF 36 OFF 23 \DISPLAYDATA 16 STREAM 5 OUTPUT) () PAGEHEIGHT :D8 (L (0 N) F 0 \#DISPLAYLINES F 1 \CURRENTDISPLAYLINE) P@3—@c¿jc¿NIL NIL () (RPAQ? \CURRENTTTYDEVICE (QUOTE BCPLDISPLAY)) \DSPRESET.DISPLAY :D8 (P 5 X P 4 FONTASCENT P 3 FONT P 2 CREG P 1 WINDOW P 0 DD I 0 DISPLAYSTREAM) -@gh bÉ0@i 2hI I hI @@ -174,33 +174,34 @@ ZH ¿@JJØmÿØ ‰o ¿hdd@JJJJggHÉ6 @i Md²" É.]d² @ð´Mo -h(297 PROCESS.EVAL 282 PROCESS.TTY 271 \INSUREWINDOW 259 WFROMDS 252 BKBITBLT 214 ERROR 203 \DSPYPOSITION.DISPLAY 184 \DSPXPOSITION.DISPLAY 158 \DSPYPOSITION.DISPLAY 148 \DSPXPOSITION.DISPLAY 129 \DSPYPOSITION.DISPLAY 106 \DSPXPOSITION.DISPLAY 61 WYOFFSET 55 WYOFFSET 48 WXOFFSET 42 WXOFFSET 32 WFROMDS 11 \GETSTREAM) (243 REPLACE 238 TEXTURE 89 FONTDESCRIPTOR 80 FONTDESCRIPTOR 71 \DISPLAYDATA 25 \DISPLAYDATA 18 STREAM 5 OUTPUT) ( 292 (SETQ \CURRENTDISPLAYLINE 0) 209 "only supported rotations are 0, 90 and 270") (RPAQ? *DRIBBLE-OUTPUT* NIL) expand-\MAYBE-DRIBBLE-CHAR :D8 (L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) ?@!H¹HºggogIoggJhhNIL (49 *DRIBBLE-OUTPUT* 44 \OUTCHAR 31 EQ 21 *DRIBBLE-OUTPUT* 16 AND) ( 37 ((TTYDISPLAYSTREAM)) 26 (STREAMP *DRIBBLE-OUTPUT*)) (SETF-MACRO-FUNCTION (QUOTE \MAYBE-DRIBBLE-CHAR) (QUOTE expand-\MAYBE-DRIBBLE-CHAR)) (SET-DOCUMENTATION (QUOTE \MAYBE-DRIBBLE-CHAR) (QUOTE CL:FUNCTION) "if we are dribbling, then dribble this character") \DSPPRINTCHAR :D8 (P 5 TABWIDTH P 4 SPACEWIDTH P 3 I P 2 STR P 1 A13945 P 0 DD I 1 CHARCODE I 0 STREAM F 6 *DRIBBLE-OUTPUT* F 7 \PRIMTERMSA F 8 \TERM.OFD) C@É0`–@ ¿V²"V ²@Wð²VÉ(VAlIAlÿñ² WÉ€²AWÉ€ -µjƒWAÂlådjð²y¿Adl ñ²@H ¿@@ÈkÔͱ¸l ð«Adl ð¦dl +h(297 PROCESS.EVAL 282 PROCESS.TTY 271 \INSUREWINDOW 259 WFROMDS 252 BKBITBLT 214 ERROR 203 \DSPYPOSITION.DISPLAY 184 \DSPXPOSITION.DISPLAY 158 \DSPYPOSITION.DISPLAY 148 \DSPXPOSITION.DISPLAY 129 \DSPYPOSITION.DISPLAY 106 \DSPXPOSITION.DISPLAY 61 WYOFFSET 55 WYOFFSET 48 WXOFFSET 42 WXOFFSET 32 WFROMDS 11 \GETSTREAM) (243 REPLACE 238 TEXTURE 89 FONTDESCRIPTOR 80 FONTDESCRIPTOR 71 \DISPLAYDATA 25 \DISPLAYDATA 18 STREAM 5 OUTPUT) ( 292 (SETQ \CURRENTDISPLAYLINE 0) 209 "only supported rotations are 0, 90 and 270") (RPAQ? *DRIBBLE-OUTPUT* NIL) expand-\MAYBE-DRIBBLE-CHAR :D8 (L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) ?@!H¹HºggogIoggJhhNIL (49 *DRIBBLE-OUTPUT* 44 \OUTCHAR 31 EQ 21 *DRIBBLE-OUTPUT* 16 AND) ( 37 ((TTYDISPLAYSTREAM)) 26 (STREAMP *DRIBBLE-OUTPUT*)) (SETF-MACRO-FUNCTION (QUOTE \MAYBE-DRIBBLE-CHAR) (QUOTE expand-\MAYBE-DRIBBLE-CHAR)) (SET-DOCUMENTATION (QUOTE \MAYBE-DRIBBLE-CHAR) (QUOTE CL:FUNCTION) "if we are dribbling, then dribble this character") \DSPPRINTCHAR :D8 (P 4 TABWIDTH P 3 SPACEWIDTH P 2 I P 1 STR P 0 DD I 1 CHARCODE I 0 STREAM F 5 *DRIBBLE-OUTPUT* F 6 \PRIMTERMSA F 7 \TERM.OFD) 3@É0`–@ ¿U²U œ@Wð—UA +¿Alÿñ²VÉ€ŸAVÉ€ +µj‚VAÂlådjð²y¿Adl ñ²@H ¿@@ÈkÔͱ¸l ð«Adl ð¦dl ðŸ¿A@ ¿@jͱ™jð²lA@ @ -±„A@H ¿@@ÈkÔͱfdlð²h¿A º@J +±„A@H ¿@@ÈkÔͱfdlð²h¿A ¹@I HÉHÉÙñ²l @ -¿@J °@@ÈJ ÔÍ¿kJK -µ±@H ¿KkÔ»°ædlð¢±é¿Adl ð©dl ð¤dl +¿@I °@@ÈI ÔÍ¿kIJ +µ±@H ¿JkÔº°ædlð¢±é¿Adl ð©dl ð¤dl ð@ ¿@jͱÓlð²!l$@H ¿@@ÈkÔͱ¯Adlð²3¿`dlð©dlð¤dlð¿o ±…¿@ °vl ð²Ll @ -Lààà]HÉHÉÙM -Ù]H +Kààà\HÉHÉÙL +Ù\H HÉñ˜l @ -¿@@ÈMLÛÔÍ°'A@H ¿@@ÈkÔ͈lð¤h(575 SHOULDNT 546 \BLTCHAR 514 \DSPPRINTCR/LF 501 \DISPLAYSTREAMINCRXPOSITION 493 IMOD 472 CHARWIDTH 457 FLASHWINDOW 452 WFROMDS 442 PLAYTUNE 381 \BLTCHAR 359 \DSPPRINTCR/LF 321 \BLTCHAR 307 NTHCHARCODE 292 NCHARS 270 NCHARS 262 \DSPPRINTCR/LF 244 \STRINGWIDTH.DISPLAY 236 \INDICATESTRING 198 \BLTCHAR 187 DSPBACKUP 181 CHARWIDTH 161 \DSPPRINTCR/LF 116 \BLTCHAR 85 GETHASH 27 STREAMP 17 \CARET.DOWN) (559 STREAM 553 STREAM 527 STREAM 521 STREAM 416 \MACHINETYPE 394 STREAM 388 STREAM 284 STREAM 278 STREAM 211 STREAM 205 STREAM 129 STREAM 123 STREAM 78 CHARTABLE 66 CHARTABLE 41 STREAM 10 \CARET.UP) ( 437 ((880 . 2500))) \DSPPRINTCR/LF :D8 (P 15 SOFTCURSORUP P 14 DISPINTERRUPT P 13 KEPTWIDTH P 12 HGHT P 11 DBITMAP P 10 BKGRND P 9 WDTH P 8 LFT P 7 X P 6 CLIPREG P 5 FONT P 4 ROTATION P 3 Y P 2 AMOUNT/BELOW P 1 BTM P 0 DD I 1 DISPLAY-STREAM I 0 CHARCODE F 16 \SOFTCURSORP F 17 \SOFTCURSORUPP F 18 \SCREENBITMAPS F 19 \TERM.OFD) ÙAdW&𲿿`–A ¿AÉ0QHÉ¢±NHÉ È \jð’±8HÉ +¿@@ÈLKÛÔÍ°'A@H ¿@@ÈkÔ͈lð¤h(559 SHOULDNT 530 \BLTCHAR 498 \DSPPRINTCR/LF 485 \DISPLAYSTREAMINCRXPOSITION 477 IMOD 456 CHARWIDTH 441 FLASHWINDOW 436 WFROMDS 426 PLAYTUNE 365 \BLTCHAR 343 \DSPPRINTCR/LF 305 \BLTCHAR 291 NTHCHARCODE 276 NCHARS 254 NCHARS 246 \DSPPRINTCR/LF 228 \STRINGWIDTH.DISPLAY 220 \INDICATESTRING 182 \BLTCHAR 171 DSPBACKUP 165 CHARWIDTH 145 \DSPPRINTCR/LF 100 \BLTCHAR 70 GETHASH 40 \OUTCHAR 27 STREAMP 17 \CARET.DOWN) (543 STREAM 537 STREAM 511 STREAM 505 STREAM 400 \MACHINETYPE 378 STREAM 372 STREAM 268 STREAM 262 STREAM 195 STREAM 189 STREAM 113 STREAM 107 STREAM 63 CHARTABLE 53 CHARTABLE 10 \CARET.UP) ( 421 ((880 . 2500))) \DSPPRINTCR/LF :D8 (P 15 SOFTCURSORUP P 14 DISPINTERRUPT P 13 KEPTWIDTH P 12 HGHT P 11 DBITMAP P 10 BKGRND P 9 WDTH P 8 LFT P 7 X P 6 CLIPREG P 5 FONT P 4 ROTATION P 3 Y P 2 AMOUNT/BELOW P 1 BTM P 0 DD I 1 DISPLAY-STREAM I 0 CHARCODE F 16 \SOFTCURSORP F 17 \SCREENBITMAPS F 18 \SOFTCURSORUPP F 19 \CURSORDESTINATION F 20 \TERM.OFD) ÓAdW(𲿿`–A ¿AÉ0QHÉ¢±KHÉ È \jð’±5HÉ @l ð²AHÉ2[•AkK¿LdlZð•¿N°nðœNNØmÿ؉o A -¿HÉLdlZð—¿jHÉÙ°nð“Hɉo Ø_¿HÉ¢±¨LdlZð²,¿OHÉØHÈ#HÉ È ÙÙZjñ°5nð²*HÈ"HÉ È ØOHÉØÙZjñ„¢±@` HÈ"_¿HÉ_¿HÈ$¹HÈ%IÙ_¿HÈ#OÙ_¿HÉ6_¿ W ²0W"´hA -`ð_²`È_¿`jÍ¿¿A`ð³hA -W$–A ¿JOñ›hjdOOIO°eLlZð²3OOJØIOOIOJÙ_Ogg +¿HÉLdlZð—¿jHÉÙ°nð“Hɉo Ø_¿HÉ¢±¥LdlZð²,¿OHÉØHÈ#HÉ È ÙÙZjñ°5nð²*HÈ"HÉ È ØOHÉØÙZjñ„¢±=` HÈ"_¿HÉ_¿HÈ$¹HÈ%IÙ_¿HÈ#OÙ_¿HÉ6_¿ W ²-W$´ hA +W&ð_²`È_¿`jÍ¿¿A`ð³hA +W"–A ¿JOñ›hjdOOIO°eLlZð²3OOJØIOOIOJÙ_Ogg ¿hjdOOOØ°,OOIOOJØIOJÙOgg ¿hjdOOIJOggO ¿OŸ¿`OÍ¿LlZð”OJÙƒOJØ_OA -±\@l ð²HÉ2[•AkK¿HÉA -¿HÉHÉØ»HÉ¢±!HÈ$YHÉ È ØKHÉØÙZjñ¢±öP HÈ"_¿HÉ_¿HÈ%IÙ_¿HÈ#OÙ_¿HÉ6_¿ W ²0W"´hA -`ð_²`È_¿`jÍ¿¿A`ð³hA -W$–A ¿JOñhjdOOIOO°0OOIOOIJØOOJÙgg +±Y@l ð²HÉ2[•AkK¿HÉA +¿HÉHÉØ»HÉ¢±HÈ$YHÉ È ØKHÉØÙZjñ¢±óP HÈ"_¿HÉ_¿HÈ%IÙ_¿HÈ#OÙ_¿HÉ6_¿ W ²-W$´ hA +W&ð_²`È_¿`jÍ¿¿A`ð³hA +W"–A ¿JOñhjdOOIOO°0OOIOOIJØOOJÙgg ¿hjdOOIOJggO ¿OŸ¿`OÍ¿KJØ[€KA -h(981 DSPYPOSITION 956 \SOFTCURSORUPCURRENT 947 BKBITBLT 917 BKBITBLT 863 \TOTOPWDS 853 DSPDESTINATION 836 \SOFTCURSORDOWN 802 DSPDESTINATION 667 DSPXPOSITION 632 DSPXPOSITION 594 \SOFTCURSORUPCURRENT 585 BKBITBLT 555 BKBITBLT 508 BKBITBLT 448 \TOTOPWDS 438 DSPDESTINATION 421 \SOFTCURSORDOWN 387 DSPDESTINATION 303 SHOULDNT 187 ERROR 145 DSPYPOSITION 139 ERROR 25 \CARET.DOWN 12 \STOPSCROLL?) (962 \EM.DISPINTERRUPT 939 REPLACE 934 TEXTURE 911 REPLACE 906 INPUT 843 \TOPWDS 827 \EM.DISPINTERRUPT 817 \EM.DISPINTERRUPT 807 \CURSORDESTINATION 770 \DISPLAYDATA 751 \DISPLAYDATA 740 \DISPLAYDATA 720 \DISPLAYDATA 710 FONTDESCRIPTOR 703 \DISPLAYDATA 694 \DISPLAYDATA 682 \DISPLAYDATA 648 \DISPLAYDATA 600 \EM.DISPINTERRUPT 577 REPLACE 572 TEXTURE 549 REPLACE 544 INPUT 502 REPLACE 497 INPUT 428 \TOPWDS 412 \EM.DISPINTERRUPT 402 \EM.DISPINTERRUPT 392 \CURSORDESTINATION 355 \DISPLAYDATA 338 \DISPLAYDATA 327 \DISPLAYDATA 316 \DISPLAYDATA 290 \DISPLAYDATA 279 FONTDESCRIPTOR 272 \DISPLAYDATA 264 \DISPLAYDATA 243 FONTDESCRIPTOR 236 \DISPLAYDATA 228 \DISPLAYDATA 219 \DISPLAYDATA 197 \DISPLAYDATA 152 \DISPLAYDATA 89 \DISPLAYDATA 62 FONTDESCRIPTOR 55 \DISPLAYDATA 43 \DISPLAYDATA 32 STREAM 18 \CARET.UP) ( 182 "Only rotations supported are 0, 90 and 270" 134 "Only rotations supported are 0, 90 and 270") \TTYBACKGROUND :D8 (P 0 X F 1 \LINEBUF.OFD) DQÉ`ð²/`²``ð¥¿`ŠdjHµô(65 \BACKGROUND 39 WAIT.FOR.TTY) (45 TTYBACKGROUNDFNS 32 \TTY.PROCESS 27 \RUNNING.PROCESS 20 \RUNNING.PROCESS 12 \KEYBOARD.STREAM 5 STREAM) () DSPBACKUP :D8 (P 4 XPOS P 3 BLTWIDTH P 2 ROTATION P 1 FONT P 0 DD I 1 DISPLAYSTREAM I 0 WIDTH) fA ³Ag +h(975 DSPYPOSITION 950 \SOFTCURSORUPCURRENT 941 BKBITBLT 911 BKBITBLT 857 \TOTOPWDS 847 DSPDESTINATION 830 \SOFTCURSORDOWN 799 DSPDESTINATION 664 DSPXPOSITION 629 DSPXPOSITION 591 \SOFTCURSORUPCURRENT 582 BKBITBLT 552 BKBITBLT 505 BKBITBLT 445 \TOTOPWDS 435 DSPDESTINATION 418 \SOFTCURSORDOWN 387 DSPDESTINATION 303 SHOULDNT 187 ERROR 145 DSPYPOSITION 139 ERROR 25 \CARET.DOWN 12 \STOPSCROLL?) (956 \EM.DISPINTERRUPT 933 REPLACE 928 TEXTURE 905 REPLACE 900 INPUT 837 \TOPWDS 821 \EM.DISPINTERRUPT 811 \EM.DISPINTERRUPT 767 \DISPLAYDATA 748 \DISPLAYDATA 737 \DISPLAYDATA 717 \DISPLAYDATA 707 FONTDESCRIPTOR 700 \DISPLAYDATA 691 \DISPLAYDATA 679 \DISPLAYDATA 645 \DISPLAYDATA 597 \EM.DISPINTERRUPT 574 REPLACE 569 TEXTURE 546 REPLACE 541 INPUT 499 REPLACE 494 INPUT 425 \TOPWDS 409 \EM.DISPINTERRUPT 399 \EM.DISPINTERRUPT 355 \DISPLAYDATA 338 \DISPLAYDATA 327 \DISPLAYDATA 316 \DISPLAYDATA 290 \DISPLAYDATA 279 FONTDESCRIPTOR 272 \DISPLAYDATA 264 \DISPLAYDATA 243 FONTDESCRIPTOR 236 \DISPLAYDATA 228 \DISPLAYDATA 219 \DISPLAYDATA 197 \DISPLAYDATA 152 \DISPLAYDATA 89 \DISPLAYDATA 62 FONTDESCRIPTOR 55 \DISPLAYDATA 43 \DISPLAYDATA 32 STREAM 18 \CARET.UP) ( 182 "Only rotations supported are 0, 90 and 270" 134 "Only rotations supported are 0, 90 and 270") \TTYBACKGROUND :D8 (P 0 X F 1 \LINEBUF.OFD) DQÉ`ð²/`²``ð¥¿`ŠdjHµô(65 \BACKGROUND 39 WAIT.FOR.TTY) (45 TTYBACKGROUNDFNS 32 \TTY.PROCESS 27 \RUNNING.PROCESS 20 \RUNNING.PROCESS 12 \KEYBOARD.STREAM 5 STREAM) () DSPBACKUP :D8 (P 4 XPOS P 3 BLTWIDTH P 2 ROTATION P 1 FONT P 0 DD I 1 DISPLAYSTREAM I 0 WIDTH) fA ³Ag b ¢±Agh bÉ0q@HÉ\HÉÙ½dMñ‘¿M[HÉ YHɘIÈ €jZKjñ´‚±Ä`–A ¿Jdjð²0¿LKÙA ¿hjdAHÉHÉIÈ ÙKIÈ °qlZð²0hjdAHÉIÈÙHHÉjKÙÔ^¿N°5Jnð²GhjdAHÉIÈ ÙHHÉKÔ_¿OIÈ @@ -208,10 +209,10 @@ Kgg i@Mjñ²#Al ¿Al ¿Al -¾MkÙ]°ÝN(347 BOUT 338 BOUT 329 BOUT 310 BKBITBLT 147 DSPXPOSITION 130 \CARET.DOWN 41 \GETSTREAM 25 DISPLAYSTREAMP 18 GETSTREAM 5 DISPLAYSTREAMP) (304 REPLACE 299 TEXTURE 291 FONTDESCRIPTOR 274 \DISPLAYDATA 268 \DISPLAYDATA 259 FONTDESCRIPTOR 251 \DISPLAYDATA 221 \DISPLAYDATA 215 \DISPLAYDATA 206 FONTDESCRIPTOR 198 \DISPLAYDATA 179 FONTDESCRIPTOR 169 FONTDESCRIPTOR 158 \DISPLAYDATA 123 \CARET.UP 104 FONTDESCRIPTOR 95 \DISPLAYDATA 86 \DISPLAYDATA 65 \DISPLAYDATA 55 \DISPLAYDATA 48 STREAM 35 OUTPUT 13 OUTPUT) () (RPAQ? \CARET.UP) (RPAQQ BELLCNT 2) (RPAQQ BELLRATE 60) (RPAQQ \DisplayStoppedForLogout NIL) (RPAQQ TtyDisplayStream NIL) COLORDISPLAYP :D8 NIL `hðhðNIL (4 ColorScreenBitMap) () DISPLAYBEFOREEXIT :D8 (I 0 EXITFN F 0 \TERM.OFD) L`´E@dgð–¿dgðœ¿P gð‘h(73 SHOULDNT 58 CLRPROMPT 53 DSPRESET 37 SHOWDISPLAY 16 CHANGEBACKGROUNDBORDER 11 CURSOR) (64 SYSOUT 44 MAKESYS 29 LOGOUT 22 \DisplayStoppedForLogout 4 \DisplayStarted) () DISPLAYAFTERENTRY :D8 (I 0 ENTRYFN) ````²2¿` ¿` ¿` ¿h¿g ´  (93 CARETRATE 88 CARETRATE 81 \DEFINEDP 63 CHANGEBACKGROUNDBORDER 51 CURSOR 39 VIDEOCOLOR 28 \STARTDISPLAY) (76 CARETRATE 70 \DisplayStoppedForLogout 57 \DisplayStoppedForLogout 45 \DisplayStoppedForLogout 34 \VideoColor 21 \DisplayStoppedForLogout 14 \EM.CURSORBITMAP 9 BITMAP 4 CursorBitMap) () (PUTPROPS \CHECKCARET MACRO ((X) (AND \CARET.UP (\CARET.DOWN X)))) \DSPCLIPTRANSFORMX :D8 (P 0 TX I 1 DD I 0 X) *@AÉØAÈ"Hñhð´AÈ#Hñ´HNIL (32 \DISPLAYDATA 18 \DISPLAYDATA 6 \DISPLAYDATA) () \DSPCLIPTRANSFORMY :D8 (P 0 TY I 1 DD I 0 Y) *@AÉØAÈ$Hñhð´AÈ%Hñ´HNIL (32 \DISPLAYDATA 18 \DISPLAYDATA 6 \DISPLAYDATA) () \DSPTRANSFORMREGION :D8 (I 1 DS I 0 REGION) '@AÉØ@AÉØ@@hNIL (19 \DISPLAYDATA 7 \DISPLAYDATA) () \DSPUNTRANSFORMY :D8 (I 1 DD I 0 Y) @AÉÙNIL (6 \DISPLAYDATA) () \DSPUNTRANSFORMX :D8 (I 1 DD I 0 X) @AÉÙNIL (6 \DISPLAYDATA) () \OFFSETCLIPPINGREGION :D8 (P 0 CREG I 1 OLDREGION I 0 DD) ~@É -Aµ@Éjð²?@Éjð²3HH@ÉØAH@ÉØAHAHAH@ÉØH@ÉØHHhNIL (106 \DISPLAYDATA 94 \DISPLAYDATA 62 \DISPLAYDATA 47 \DISPLAYDATA 31 \DISPLAYDATA 19 \DISPLAYDATA 5 \DISPLAYDATA) () UPDATESCREENDIMENSIONS :D8 NIL ``dlðªdlð¥dlð²¿nn(dlð²¿lð²}C}D(93 SHOULDNT 60 \DoveDisplay.ScreenHeight 50 \DoveDisplay.ScreenWidth) (87 SCREENHEIGHT 79 SCREENWIDTH 65 SCREENHEIGHT 55 SCREENWIDTH 37 SCREENHEIGHT 29 SCREENWIDTH 4 \MACHINETYPE) () \CreateScreenBitMap :D8 (P 3 I P 1 MAXPAGE# P 0 RASTERWIDTH I 1 HEIGHT I 0 WIDTH) ¹@lØââââHAÚlÿØãkÙY`ñ²I`kØKJó²vI¿`Ö`µ#l d`¿dHÍ¿d@Í¿dAÍ¿dkÍ¿``@Í`HÍ`AÍ``KáÐid ¿KkÔ[±ÿt(175 \NEWPAGE) (165 \DISPLAYREGION 159 ScreenBitMap 151 BITMAP 146 ScreenBitMap 138 BITMAP 133 ScreenBitMap 125 BITMAP 120 ScreenBitMap 113 \DISPLAYREGION 108 BITMAP 79 \DISPLAYREGION 68 ScreenBitMap 62 BITMAP 57 ScreenBitMap 51 \MaxScreenPage 34 \MaxScreenPage 25 \MaxScreenPage) () (UPDATESCREENDIMENSIONS) (RPAQ? SCREENHEIGHT 808) (RPAQ? SCREENWIDTH 1024) (RPAQ? \OLDSCREENHEIGHT 808) (RPAQ? \OLDSCREENWIDTH 1024) (RPAQ? \MaxScreenPage -1) (RPAQ? ScreenBitMap (\CreateScreenBitMap SCREENWIDTH SCREENHEIGHT)) (RPAQ? ColorScreenBitMap NIL) (CURSOR.INIT) (RPAQ? \DISPLAYINFOALIST) \CoerceToDisplayDevice :D8 (P 0 DEV I 0 NameOrDevice) *@µ`HÑHHid µ o (39 ERROR 27 \GETDEVICEFROMNAME) (16 FDEV 7 LastCreatedDisplayDevice) ( 34 "No color drivers have been loaded") \CREATEDISPLAYA0014 :D8 (L (4 FDEV 3 OTHERINFO 2 RECOG 1 ACCESS 0 NAME)) @NIL NIL () \CREATEDISPLAYA0021 :D8 (L (2 FDEV 1 RECOG 0 NAME)) @NIL NIL () \CREATEDISPLAYA0023 :D8 (L (0 NAME)) @NIL NIL () \CREATEDISPLAY :D8 (P 0 FDEV I 0 DISPLAYNAME) … `d@¿djÏ¿djÏ¿djÏ0¿dg¿dg¿dgD¿dg¿dg^¿dgF¿dg¿dgb¿dg`¿dg¿dg¿dg -¿dg ¿dg¿dg,¿dg.¿dg0¿dgT¿dg>¿dg@¿gh¹dI¿dgh¿dgR¿dgP¿dgN¿dgH¿dgB¿dg<¿dg:¿dg8¿dg6¿dg4¿dg2¿dg*¿dg ¿dg¿dg¿dg¿X@H -H(385 \DEFINEDEVICE) (374 \GENERIC.RENAMEFILE 365 NILL 356 NILL 347 NILL 338 NILL 329 \GENERIC.READCHAR 320 \GENERIC.WRITECHAR 311 \GENERIC.PEEKCHAR 302 \GENERIC.UNREADCHAR 293 \GENERIC.READP 284 \ILLEGAL.DEVICEOP 275 NILL 266 \GENERIC.CHARSET 257 \ILLEGAL.DEVICEOP 248 \IS.NOT.RANDACCESSP 239 \IS.NOT.RANDACCESSP 230 \GENERIC.READCCODE 216 OFF 208 \NONPAGEDBOUTS 199 \ILLEGAL.DEVICEOP 190 \PAGEDBACKFILEPTR 181 \ILLEGAL.DEVICEOP 172 \DSPPRINTCHAR 163 \ILLEGAL.DEVICEOP 154 NILL 145 NILL 136 NILL 127 \CREATEDISPLAYA0023 118 \CREATEDISPLAYA0021 109 \ILLEGAL.DEVICEOP 100 NILL 91 \GENERATENOFILES 82 NILL 73 \ILLEGAL.DEVICEOP 64 \CREATEDISPLAYA0014 55 NILL 46 NILL 37 NILL 7 |FDEVTYPE#|) () DISPLAYSTREAMINIT :D8 (P 2 TTYFONTHEIGHT P 1 TTYHEIGHT P 0 TTYFONT I 0 N F 3 TtyDisplayStream) «chS +¾MkÙ]°ÝN(347 BOUT 338 BOUT 329 BOUT 310 BKBITBLT 147 DSPXPOSITION 130 \CARET.DOWN 41 \GETSTREAM 25 DISPLAYSTREAMP 18 GETSTREAM 5 DISPLAYSTREAMP) (304 REPLACE 299 TEXTURE 291 FONTDESCRIPTOR 274 \DISPLAYDATA 268 \DISPLAYDATA 259 FONTDESCRIPTOR 251 \DISPLAYDATA 221 \DISPLAYDATA 215 \DISPLAYDATA 206 FONTDESCRIPTOR 198 \DISPLAYDATA 179 FONTDESCRIPTOR 169 FONTDESCRIPTOR 158 \DISPLAYDATA 123 \CARET.UP 104 FONTDESCRIPTOR 95 \DISPLAYDATA 86 \DISPLAYDATA 65 \DISPLAYDATA 55 \DISPLAYDATA 48 STREAM 35 OUTPUT 13 OUTPUT) () (RPAQ? \CARET.UP) (RPAQQ BELLCNT 2) (RPAQQ BELLRATE 60) (RPAQQ \DisplayStoppedForLogout NIL) (RPAQQ TtyDisplayStream NIL) COLORDISPLAYP :D8 (F 0 ColorScreenBitMap) PhðhðNIL NIL () DISPLAYBEFOREEXIT :D8 (I 0 EXITFN F 0 \TERM.OFD) L`´E@dgð–¿dgðœ¿P gð‘h(73 SHOULDNT 58 CLRPROMPT 53 DSPRESET 37 SHOWDISPLAY 16 CHANGEBACKGROUNDBORDER 11 CURSOR) (64 SYSOUT 44 MAKESYS 29 LOGOUT 22 \DisplayStoppedForLogout 4 \DisplayStarted) () DISPLAYAFTERENTRY :D8 (I 0 ENTRYFN F 0 \VideoColor) \```².¿P ¿` ¿` ¿h¿g ´  (89 CARETRATE 84 CARETRATE 77 \DEFINEDP 59 CHANGEBACKGROUNDBORDER 47 CURSOR 35 VIDEOCOLOR 28 \STARTDISPLAY) (72 CARETRATE 66 \DisplayStoppedForLogout 53 \DisplayStoppedForLogout 41 \DisplayStoppedForLogout 21 \DisplayStoppedForLogout 14 \EM.CURSORBITMAP 9 BITMAP 4 CursorBitMap) () (PUTPROPS \CHECKCARET MACRO ((X) (AND \CARET.UP (\CARET.DOWN X)))) \DSPCLIPTRANSFORMX :D8 (P 0 TX I 1 DD I 0 X) *@AÉØAÈ"Hñhð´AÈ#Hñ´HNIL (32 \DISPLAYDATA 18 \DISPLAYDATA 6 \DISPLAYDATA) () \DSPCLIPTRANSFORMY :D8 (P 0 TY I 1 DD I 0 Y) *@AÉØAÈ$Hñhð´AÈ%Hñ´HNIL (32 \DISPLAYDATA 18 \DISPLAYDATA 6 \DISPLAYDATA) () \DSPTRANSFORMREGION :D8 (I 1 DS I 0 REGION) '@AÉØ@AÉØ@@hNIL (19 \DISPLAYDATA 7 \DISPLAYDATA) () \DSPUNTRANSFORMY :D8 (I 1 DD I 0 Y) @AÉÙNIL (6 \DISPLAYDATA) () \DSPUNTRANSFORMX :D8 (I 1 DD I 0 X) @AÉÙNIL (6 \DISPLAYDATA) () \OFFSETCLIPPINGREGION :D8 (P 0 CREG I 1 OLDREGION I 0 DD) ~@É +Aµ@Éjð²?@Éjð²3HH@ÉØAH@ÉØAHAHAH@ÉØH@ÉØHHhNIL (106 \DISPLAYDATA 94 \DISPLAYDATA 62 \DISPLAYDATA 47 \DISPLAYDATA 31 \DISPLAYDATA 19 \DISPLAYDATA 5 \DISPLAYDATA) () UPDATESCREENDIMENSIONS :D8 NIL ``dlðªdlð¥dlð²¿nn(dlð²¿lð²}C}D(93 SHOULDNT 60 \DoveDisplay.ScreenHeight 50 \DoveDisplay.ScreenWidth) (87 SCREENHEIGHT 79 SCREENWIDTH 65 SCREENHEIGHT 55 SCREENWIDTH 37 SCREENHEIGHT 29 SCREENWIDTH 4 \MACHINETYPE) () \CreateScreenBitMap :D8 (P 3 I P 1 MAXPAGE# P 0 RASTERWIDTH I 1 HEIGHT I 0 WIDTH) ¹@lØââââHAÚlÿØãkÙY`ñ²I`kØKJó²vI¿`Ö`µ#l d`¿dHÍ¿d@Í¿dAÍ¿dkÍ¿``@Í`HÍ`AÍ``KáÐid ¿KkÔ[±ÿt(175 \NEWPAGE) (165 \DISPLAYREGION 159 ScreenBitMap 151 BITMAP 146 ScreenBitMap 138 BITMAP 133 ScreenBitMap 125 BITMAP 120 ScreenBitMap 113 \DISPLAYREGION 108 BITMAP 79 \DISPLAYREGION 68 ScreenBitMap 62 BITMAP 57 ScreenBitMap 51 \MaxScreenPage 34 \MaxScreenPage 25 \MaxScreenPage) () (UPDATESCREENDIMENSIONS) (RPAQ? SCREENHEIGHT 808) (RPAQ? SCREENWIDTH 1024) (RPAQ? \OLDSCREENHEIGHT 808) (RPAQ? \OLDSCREENWIDTH 1024) (RPAQ? \MaxScreenPage -1) (RPAQ? ScreenBitMap (\CreateScreenBitMap SCREENWIDTH SCREENHEIGHT)) (RPAQ? ColorScreenBitMap NIL) (CURSOR.INIT) (RPAQ? \DISPLAYINFOALIST) \CoerceToDisplayDevice :D8 (P 0 DEV I 0 NameOrDevice) *@µ`HÑHHid µ o (39 ERROR 27 \GETDEVICEFROMNAME) (16 FDEV 7 LastCreatedDisplayDevice) ( 34 "No color drivers have been loaded") \CREATEDISPLAYA0014 :D8 (L (4 FDEV 3 OTHERINFO 2 RECOG 1 ACCESS 0 NAME)) @NIL NIL () \CREATEDISPLAYA0021 :D8 (L (2 FDEV 1 RECOG 0 NAME)) @NIL NIL () \CREATEDISPLAYA0023 :D8 (L (0 NAME)) @NIL NIL () \CREATEDISPLAY :D8 (P 0 FDEV I 0 DISPLAYNAME) X `d@¿djÏ¿djÏ¿djÏ0¿dg¿dg¿dgD¿dg¿dg^¿dgF¿dg¿dgb¿dg`¿dg¿dg¿dg +¿dg ¿dg¿dg,¿dg.¿dg0¿dgT¿dg>¿dg@¿gh¹dI¿dgR¿dgP¿dgN¿dgH¿dgB¿dg<¿dg:¿dg*¿dg ¿dg¿dg¿dg¿X@H +H(340 \DEFINEDEVICE) (329 \GENERIC.RENAMEFILE 320 NILL 311 NILL 302 NILL 293 NILL 284 \GENERIC.READP 275 \ILLEGAL.DEVICEOP 266 NILL 257 \GENERIC.CHARSET 248 \ILLEGAL.DEVICEOP 239 \IS.NOT.RANDACCESSP 230 \IS.NO.RANDACCESSP 216 OFF 208 \NONPAGEDBOUTS 199 \ILLEGAL.DEVICEOP 190 \PAGEDBACKFILEPTR 181 \ILLEGAL.DEVICEOP 172 \DSPPRINTCHAR 163 \ILLEGAL.DEVICEOP 154 NILL 145 NILL 136 NILL 127 \CREATEDISPLAYA0023 118 \CREATEDISPLAYA0021 109 \ILLEGAL.DEVICEOP 100 NILL 91 \GENERATENOFILES 82 NILL 73 \ILLEGAL.DEVICEOP 64 \CREATEDISPLAYA0014 55 NILL 46 NILL 37 NILL 7 |FDEVTYPE#|) () DISPLAYSTREAMINIT :D8 (P 2 TTYFONTHEIGHT P 1 TTYHEIGHT P 0 TTYFONT I 0 N F 3 TtyDisplayStream) «chS !HÈ Z`S S `@3µLdJÚ¹`IÙS @@ -219,13 +220,13 @@ Z`S ¿jS ¿jd`IhS ¿`S -¿JÚ`ñš`JÛlÙ€@°(139 DSPRIGHTMARGIN 127 DSPCLIPPINGREGION 107 DSPXOFFSET 99 DSPYPOSITION 84 DSPYOFFSET 57 TERMINAL-OUTPUT 41 DSPDESTINATION 18 DSPFONT 9 DSPCREATE 4 \STARTDISPLAY) (167 \LastTTYLines 155 SCREENHEIGHT 148 SCREENHEIGHT 133 SCREENWIDTH 115 SCREENWIDTH 91 FONTDESCRIPTOR 76 SCREENHEIGHT 62 \LastTTYLines 52 \TopLevelTtyWindow 47 \DEFAULTTTYDISPLAYSTREAM 35 ScreenBitMap 27 FONTDESCRIPTOR) () \STARTDISPLAY :D8 (P 2 \INTERRUPTABLE P 1 W P 0 OLDWINDOWS F 3 \MAINSCREEN F 4 \WINDOWWORLD F 5 \CURSORDESTRASTERWIDTH) I``ðœ``ð³AT²> ¸``ó«``ó–H ¿HŒdI µò`` +¿JÚ`ñš`JÛlÙ€@°(139 DSPRIGHTMARGIN 127 DSPCLIPPINGREGION 107 DSPXOFFSET 99 DSPYPOSITION 84 DSPYOFFSET 57 TERMINAL-OUTPUT 41 DSPDESTINATION 18 DSPFONT 9 DSPCREATE 4 \STARTDISPLAY) (167 \LastTTYLines 155 SCREENHEIGHT 148 SCREENHEIGHT 133 SCREENWIDTH 115 SCREENWIDTH 91 FONTDESCRIPTOR 76 SCREENHEIGHT 62 \LastTTYLines 52 \TopLevelTtyWindow 47 \DEFAULTTTYDISPLAYSTREAM 35 ScreenBitMap 27 FONTDESCRIPTOR) () \STARTDISPLAY :D8 (P 2 \INTERRUPTABLE P 1 W P 0 OLDWINDOWS F 3 \MAINSCREEN F 4 \WINDOWWORLD F 5 \CURSORDESTINATION F 6 \CURSORDESTRASTERWIDTH F 7 \CURSORDESTWIDTH F 8 \CURSORDESTHEIGHT) @``ðœ``ð³AT²> ¸``ó«``ó–H ¿HŒdI µò`` É`È -¿ijd``hSµD````Èc -H²P` ¿H °:`¿S`¿S`¿°•dI µò``h(300 \OPENW1 244 REVERSE 237 CHANGEBACKGROUND 142 SHOWDISPLAY 113 \CreateScreenBitMap 90 \CLOSEW1 76 \MOVE.WINDOWS.ONTO.SCREEN 45 REVERSE 40 OPENWINDOWS 7 UPDATESCREENDIMENSIONS) (325 \OLDSCREENWIDTH 320 SCREENWIDTH 315 \OLDSCREENHEIGHT 310 SCREENHEIGHT 284 SCREENHEIGHT 279 SCREEN 270 SCREENWIDTH 265 SCREEN 256 ScreenBitMap 251 SCREEN 232 WINDOWBACKGROUNDSHADE 220 BITMAP 215 ScreenBitMap 210 \CURSORDESTHEIGHT 205 SCREENHEIGHT 200 \CURSORDESTWIDTH 195 SCREENWIDTH 190 \CURSORDESTINATION 185 ScreenBitMap 177 WHOLESCREEN 172 WHOLEDISPLAY 162 SCREENHEIGHT 157 SCREENWIDTH 149 \DisplayStarted 135 BITMAP 130 ScreenBitMap 123 BITMAP 118 ScreenBitMap 108 SCREENHEIGHT 103 SCREENWIDTH 68 SCREENHEIGHT 63 \OLDSCREENHEIGHT 56 SCREENWIDTH 51 \OLDSCREENWIDTH 29 \OLDSCREENHEIGHT 24 SCREENHEIGHT 17 \OLDSCREENWIDTH 12 SCREENWIDTH) () \MOVE.WINDOWS.ONTO.SCREEN :D8 (P 4 REG P 3 YFACTOR P 2 XFACTOR P 1 W I 0 WINDOWS) Ú@Hµ+h´&```ëZ``ë[@HµAhYÉLLØmÿØ`óµLLØmÿØ`ó•Iµ¥i°¢HX°™Yd ð²\Ii +¿ijd``hSµ;`c +`c`c`Èc H²P` ¿H °:`¿S`¿S`¿°ždI µò``h(291 \OPENW1 235 REVERSE 228 CHANGEBACKGROUND 142 SHOWDISPLAY 113 \CreateScreenBitMap 90 \CLOSEW1 76 \MOVE.WINDOWS.ONTO.SCREEN 45 REVERSE 40 OPENWINDOWS 7 UPDATESCREENDIMENSIONS) (316 \OLDSCREENWIDTH 311 SCREENWIDTH 306 \OLDSCREENHEIGHT 301 SCREENHEIGHT 275 SCREENHEIGHT 270 SCREEN 261 SCREENWIDTH 256 SCREEN 247 ScreenBitMap 242 SCREEN 223 WINDOWBACKGROUNDSHADE 211 BITMAP 206 ScreenBitMap 199 SCREENHEIGHT 192 SCREENWIDTH 185 ScreenBitMap 177 WHOLESCREEN 172 WHOLEDISPLAY 162 SCREENHEIGHT 157 SCREENWIDTH 149 \DisplayStarted 135 BITMAP 130 ScreenBitMap 123 BITMAP 118 ScreenBitMap 108 SCREENHEIGHT 103 SCREENWIDTH 68 SCREENHEIGHT 63 \OLDSCREENHEIGHT 56 SCREENWIDTH 51 \OLDSCREENWIDTH 29 \OLDSCREENHEIGHT 24 SCREENHEIGHT 17 \OLDSCREENWIDTH 12 SCREENWIDTH) () \MOVE.WINDOWS.ONTO.SCREEN :D8 (P 4 REG P 3 YFACTOR P 2 XFACTOR P 1 W I 0 WINDOWS) Ú@Hµ+h´&```ëZ``ë[@HµAhYÉLLØmÿØ`óµLLØmÿØ`ó•Iµ¥i°¢HX°™Yd ð²\Ii YJIÉ\]MØmÿØê LÙ¾jNñ¡N€jKLLØmÿØê LÙ_¿jOñ¢O€j ¿HX±ÿV(209 MOVEW 186 FIXR 154 FIXR 127 MAINWINDOW 117 MAINWINDOW) (135 WINDOW 95 SCREENHEIGHT 75 SCREENWIDTH 55 WINDOW 36 \OLDSCREENHEIGHT 31 SCREENHEIGHT 24 \OLDSCREENWIDTH 19 SCREENWIDTH) () \STOPDISPLAY :D8 (P 0 \INTERRUPTABLE) :¿`É`kØ ¿mÿ¿hl: (55 PAGEHEIGHT 32 \UNLOCKPAGES 7 SHOWDISPLAY) (47 \DisplayStarted 40 \MaxScreenPage 25 \MaxScreenPage 18 BITMAP 13 ScreenBitMap) () \DEFINEDISPLAYINFO :D8 (P 0 BUCKET I 0 DISPLAYINFO F 1 \DISPLAYINFOALIST) @QXd—dQ -¿@Qch(16 DREMOVE) NIL () (PUTPROPS DISPLAYINITIALIZEDP MACRO (NIL (* always initialized now) T)) (PUTPROPS DISPLAYSTARTEDP MACRO (NIL \DisplayStarted)) (ADDTOVAR GLOBALVARS WHOLESCREEN) INITIALIZEDISPLAYSTREAMS :D8 (F 0 \GUARANTEEDDISPLAYFONT) Xodnÿdh`ld +¿@Qch(16 DREMOVE) NIL () (PUTPROPS DISPLAYINITIALIZEDP MACRO (NIL (* always initialized now) T)) (PUTPROPS DISPLAYSTARTEDP MACRO (NIL \DisplayStarted)) (ADDTOVAR GLOBALVARS WHOLESCREEN) INITIALIZEDISPLAYSTREAMS :D8 (F 0 \GUARANTEEDDISPLAYFONT F 1 DEFAULTFONT) Uodnÿdh`ld gl hdg cgkPh -(80 FONTCLASS 63 FONTCREATE 38 BITMAPCREATE) (85 DEFAULTFONT 70 DEFAULTFONT 57 DISPLAY 48 GACHA 43 \SYSBBTEXTURE 30 \SYSPILOTBBT 24 |PILOTBBTTYPE#| 19 WHOLEDISPLAY) ( 4 -16383) (RPAQQ \DisplayStarted NIL) (RPAQQ \LastTTYLines 12) (INITIALIZEDISPLAYSTREAMS) (DISPLAYSTREAMINIT 1000) (PUTPROPS LLDISPLAY FILETYPE COMPILE-FILE) (PUTPROPS LLDISPLAY COPYRIGHT ("Venue & Xerox Corporation" 1981 1982 1983 1984 1985 1986 1987 1988 1989 1990 1993 1994)) NIL \ No newline at end of file +c(80 FONTCLASS 63 FONTCREATE 38 BITMAPCREATE) (70 DEFAULTFONT 57 DISPLAY 48 GACHA 43 \SYSBBTEXTURE 30 \SYSPILOTBBT 24 |PILOTBBTTYPE#| 19 WHOLEDISPLAY) ( 4 -16383) (RPAQQ \DisplayStarted NIL) (RPAQQ \LastTTYLines 12) (INITIALIZEDISPLAYSTREAMS) (DISPLAYSTREAMINIT 1000) (PUTPROPS LLDISPLAY FILETYPE COMPILE-FILE) (PUTPROPS LLDISPLAY COPYRIGHT ("Venue & Xerox Corporation" 1981 1982 1983 1984 1985 1986 1987 1988 1989 1990 1993 1994)) NIL \ No newline at end of file diff --git a/sources/LLETHER.LCOM b/sources/LLETHER.LCOM index 80a7929fd..03a8a1fd9 100644 Binary files a/sources/LLETHER.LCOM and b/sources/LLETHER.LCOM differ diff --git a/sources/LLKEY b/sources/LLKEY index 1d98638b4..896277eab 100644 --- a/sources/LLKEY +++ b/sources/LLKEY @@ -1,19 +1,18 @@ (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) -(FILECREATED "13-Feb-2021 23:24:49" {DSK}larry>ilisp>medley>sources>LLKEY.;2 206612 +(FILECREATED "11-Jun-2021 09:43:22" {DSK}kaplan>Local>medley3.5>git-medley>sources>LLKEY.;6 197710 - changes to%: (FNS \KEYBOARD.MACHINE-SPECIFIC-KEYACTIONS) - - previous date%: "12-Feb-2021 19:16:08" {DSK}larry>ilisp>medley>sources>LLKEY.;1) + previous date%: " 9-Jun-2021 20:18:50" +{DSK}kaplan>Local>medley3.5>git-medley>sources>LLKEY.;5) (* ; " -Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1992, 1999, 1920, 2000, 2018, 2021 by Venue & Xerox Corporation. All rights reserved. +Copyright (c) 1982-1990, 1992, 1999, 1920, 2000, 2018, 2021 by Venue & Xerox Corporation. ") (PRETTYCOMPRINT LLKEYCOMS) -(RPAQQ LLKEYCOMS - [(COMS (* ; "Access to keyboard") +(RPAQQ LLKEYCOMS + [(COMS (* ; "Access to keyboard") (FNS BKSYSCHARCODE \CLEARSYSBUF \GETKEY \NSYSBUFCHARS \SAVESYSBUF \SYSBUFP \GETSYSBUF \PUTSYSBUF \PEEKSYSBUF) (INITVARS (\LONGSYSBUF)) @@ -21,10 +20,10 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1992, 1999, (DECLARE%: DONTCOPY (RESOURCES \KEYBOARDWAITBOX)) (DECLARE%: DONTCOPY (CONSTANTS (\SYSBUFSIZE 200)) (MACROS \GETREALSYSBUF))) - [DECLARE%: DOCOPY DONTEVAL@LOAD (COMS (* ; - "Here because it must be done in init before PROC loaded") + [DECLARE%: DOCOPY DONTEVAL@LOAD (COMS (* ; + "Here because it must be done in init before PROC loaded") (P (MOVD? 'NILL 'CARET] - (COMS (* ; "Key handler") + (COMS (* ; "Key handler") (FNS \KEYBOARDINIT \KEYBOARDEVENTFN \ALLOCLOCKED \SETIOPOINTERS \KEYBOARDOFF \KEYBOARDON \KEYHANDLER \KEYHANDLER1 \RESETKEYBOARD \DOMOUSECHORDING \DOTRANSITIONS \DECODETRANSITION MOUSECHORDWAIT \TRACKCURSOR) @@ -45,8 +44,8 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1992, 1999, (EXPORT (RECORDS KEYACTION) (CONSTANTS \NKEYS)) (RECORDS RING) - (COMS (* ; - "can get rid of shiftstate after clients have been fixed") + (COMS (* ; + "can get rid of shiftstate after clients have been fixed") (RECORDS SHIFTSTATE) (GLOBALVARS \SHIFTSTATE \MOUSETIMERTEMP)) (CONSTANTS NRINGINDEXWORDS) @@ -54,7 +53,7 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1992, 1999, (\SYSBUFFER.LAST (IPLUS \SYSBUFFER.FIRST (SUB1 \SYSBUFSIZE] (DECLARE%: EVAL@COMPILE (VARS \KEYNAMES)) - (* ;; "\maikokeyactions does not contain keyactions of the form %"2,50%" because it breaks the loadup process on the sun.") + (* ;; "\maikokeyactions does not contain keyactions of the form %"2,50%" because it breaks the loadup process on the sun.") (VARS \ORIGKEYACTIONS \DLIONKEYACTIONS \DLIONOSDKEYACTIONS \DORADOKEYACTIONS \DOVEKEYACTIONS \DOVEOSDKEYACTIONS \MAIKOKEYACTIONS \MAIKOKEYACTIONST4 @@ -69,32 +68,32 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1992, 1999, \COMMANDKEYACTION \DEFAULTKEYACTION \TIMER.INTERRUPT.PENDING \ORIGKEYACTIONS \KEYBOARD.META \MOUSECHORDMILLISECONDS \DORADOKEYACTIONS \DLIONKEYACTIONS \DLIONOSDKEYACTIONS \DOVEKEYACTIONS \DOVEOSDKEYACTIONS)) - (COMS (* ; "Key interpretation") + (COMS (* ; "Key interpretation") (FNS KEYACTION KEYACTIONTABLE KEYBOARDTYPE RESETKEYACTION \KEYBOARD.MACHINE-SPECIFIC-KEYACTIONS \KEYACTION1 KEYDOWNP KEYNUMBERP \KEYNAMETONUMBER MODIFY.KEYACTIONS METASHIFT SHIFTDOWNP) - (* ; - "To support office style 1108 & 1186 keyboards") + (* ; + "To support office style 1108 & 1186 keyboards") (FNS SETUP.OFFICE.KEYBOARD) (OPTIMIZERS) (MACROS \TEMPCOPYTIMER) - (* ; - "Don't copy this optimizer since it expands out to \getbasebit, but do exportit.") + (* ; + "Don't copy this optimizer since it expands out to \getbasebit, but do exportit.") (DECLARE%: DONTCOPY (EXPORT (OPTIMIZERS KEYDOWNP))) (EXPORT (MACROS XKEYDOWNP KEYDOWNP1 \NEWKEYDOWNP))) - (COMS (* ; "A raw keyboard device/stream") + (COMS (* ; "A raw keyboard device/stream") (FNS \INIT.KEYBOARD.STREAM) (DECLARE%: DONTEVAL@LOAD DOCOPY (P (\INIT.KEYBOARD.STREAM))) (EXPORT (GLOBALVARS \KEYBOARD.DEVICE \KEYBOARD.STREAM))) - (COMS (* ; "Hook for a periodic interrupt") + (COMS (* ; "Hook for a periodic interrupt") (FNS \DOBUFFEREDTRANSITIONS \TIMER.INTERRUPTFRAME \PERIODIC.INTERRUPTFRAME) (INITVARS (\KEYBUFFERING) (\PERIODIC.INTERRUPT) (\TIMER.INTERRUPT.PENDING) (\PERIODIC.INTERRUPT.FREQUENCY 77))) (LOCALVARS . T) - [COMS (* ; - "cursor and mouse related functions.") + [COMS (* ; + "cursor and mouse related functions.") (FNS \HARDCURSORUP \HARDCURSORPOSITION \HARDCURSORDOWN) (FNS CURSOR.INIT \CURSORDESTINATION \SOFTCURSORUP \SOFTCURSORUPCURRENT \SOFTCURSORPOSITION \SOFTCURSORDOWN CURSORPROP GETCURSORPROP PUTCURSORPROP @@ -148,7 +147,7 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1992, 1999, \KEYBOARDEVENT.SIZE 383] (COMS (FNS MACHINETYPE SETMAINTPANEL) - (* ; "DLion beeper") + (* ; "DLion beeper") (FNS BEEPON BEEPOFF)) (EXPORT (GLOBALVARS \EM.MOUSEX \EM.MOUSEY \EM.CURSORX \EM.CURSORY \EM.UTILIN \EM.REALUTILIN \EM.KBDAD0 \EM.KBDAD1 \EM.KBDAD2 \EM.KBDAD3 \EM.KBDAD4 \EM.KBDAD5 @@ -156,8 +155,8 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1992, 1999, \DEFAULTKEYACTION \COMMANDKEYACTION \CURRENTKEYACTION \PERIODIC.INTERRUPT \PERIODIC.INTERRUPT.FREQUENCY)) (FNS WITHOUT-INTERRUPTS) - (COMS (* ; - "Compile locked fns together for locality") + (COMS (* ; + "Compile locked fns together for locality") (BLOCKS (NIL FLIPCURSORBAR \KEYHANDLER \KEYHANDLER1 \TRACKCURSOR \PERIODIC.INTERRUPTFRAME \TIMER.INTERRUPTFRAME \DOBUFFEREDTRANSITIONS \DOTRANSITIONS \DECODETRANSITION \EVENTKEYS \HARDCURSORUP \DOMOUSECHORDING @@ -376,17 +375,17 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1992, 1999, (DECLARE%: EVAL@COMPILE -[PUTPROPS \GETREALSYSBUF MACRO - (NIL (PROG ((R (fetch (RING READ) of \SYSBUFFER))) - (RETURN (AND (NOT (EQ 0 R)) - (PROG1 (\GETBASEFAT \SYSBUFFER R) - (AND [EQ (fetch (RING WRITE) of \SYSBUFFER) - (replace (RING READ) of \SYSBUFFER - with (COND - ((EQ \SYSBUFFER.LAST R) - \SYSBUFFER.FIRST) - (T (ADD1 R] - (replace (RING READ) of \SYSBUFFER with 0)))] +(PUTPROPS \GETREALSYSBUF MACRO + [NIL (PROG ((R (fetch (RING READ) of \SYSBUFFER))) + (RETURN (AND (NOT (EQ 0 R)) + (PROG1 (\GETBASEFAT \SYSBUFFER R) + (AND [EQ (fetch (RING WRITE) of \SYSBUFFER) + (replace (RING READ) of \SYSBUFFER + with (COND + ((EQ \SYSBUFFER.LAST R) + \SYSBUFFER.FIRST) + (T (ADD1 R] + (replace (RING READ) of \SYSBUFFER with 0)))]) ) ) (DECLARE%: DOCOPY DONTEVAL@LOAD @@ -1077,9 +1076,9 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1992, 1999, (DECLARE%: DONTCOPY (DECLARE%: EVAL@COMPILE -(PUTPROPS .NOTELASTUSERACTION MACRO (NIL (\BLT \LASTUSERACTION (LOCF (fetch SECONDSTMP - of \MISCSTATS)) - WORDSPERCELL))) +(PUTPROPS .NOTELASTUSERACTION MACRO (NIL (\BLT \LASTUSERACTION (LOCF (fetch SECONDSTMP + of \MISCSTATS)) + WORDSPERCELL))) ) (DECLARE%: EVAL@COMPILE @@ -1151,7 +1150,7 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1992, 1999, ) -(RPAQQ TRANSITIONFLAGS +(RPAQQ TRANSITIONFLAGS (ALTGRDOWN.TF ALTGRUP.TF ALTGRTOGGLE.TF CTRLDOWN.TF CTRLUP.TF DEADKEY.TF IGNORE.TF EVENT.TF LOCKDOWN.TF LOCKSHIFT.TF LOCKTOGGLE.TF LOCKUP.TF NOLOCKSHIFT.TF 1SHIFTDOWN.TF 1SHIFTUP.TF 2SHIFTDOWN.TF 2SHIFTUP.TF METADOWN.TF METAUP.TF FONTDOWN.TF FONTUP.TF @@ -1231,70 +1230,72 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1992, 1999, (DECLARE%: EVAL@COMPILE -[PUTPROPS \TRANSINDEX MACRO ((KEYNUMBER DOWNFLG) - (COND - (DOWNFLG (IPLUS \NKEYS KEYNUMBER)) - (T KEYNUMBER] - -(PUTPROPS ARMEDCODE MACRO ((TABLE CHAR) - (\GETBASEBIT (fetch (KEYACTION ARMED) - TABLE) - CHAR))) - -(PUTPROPS TRANSITIONALTGRCODE MACRO ((TABLE CHAR) - (\GETBASE (fetch (KEYACTION ALTGRAPHCODES) of TABLE) - CHAR))) - -(PUTPROPS TRANSITIONSHIFTCODE MACRO ((TABLE CHAR) - (\GETBASE (fetch (KEYACTION SHIFTCODES) - TABLE) - CHAR))) - -(PUTPROPS TRANSITIONCODE MACRO ((TABLE CHAR) - (\GETBASE (fetch (KEYACTION CODES) - TABLE) - CHAR))) - -(PUTPROPS TRANSITIONFLAGS MACRO ((TABLE CHAR) - (\GETBASEBYTE (fetch (KEYACTION FLAGS) - TABLE) - CHAR))) - -[PUTPROPS TRANSITIONDEADLIST MACRO ((TABLE CHAR SHIFTED) - (\GETBASEPTR (fetch (KEYACTION DEADKEYLIST) of TABLE) - (LLSH (COND - (SHIFTED (IPLUS CHAR \NKEYS \NKEYS)) - (T CHAR)) - 1] - -[PUTPROPS CHECKFORDEADKEY MACRO - ((KEYCODE TABLE CHAR SHIFTED) - (LET ((CODE KEYCODE)) - (COND - [(IEQP CODE 65535) - `(DEADKEY ,(\GETBASEPTR (fetch (KEYACTION DEADKEYLIST) of TABLE) - (LLSH (COND - (SHIFTED (IPLUS CHAR \NKEYS \NKEYS)) - (T CHAR)) - 1] - (T CODE] +(PUTPROPS \TRANSINDEX MACRO ((KEYNUMBER DOWNFLG) + (COND + (DOWNFLG (IPLUS \NKEYS KEYNUMBER)) + (T KEYNUMBER)))) + +(PUTPROPS ARMEDCODE MACRO ((TABLE CHAR) + (\GETBASEBIT (fetch (KEYACTION ARMED) + TABLE) + CHAR))) + +(PUTPROPS TRANSITIONALTGRCODE MACRO ((TABLE CHAR) + (\GETBASE (fetch (KEYACTION ALTGRAPHCODES) + of TABLE) + CHAR))) + +(PUTPROPS TRANSITIONSHIFTCODE MACRO ((TABLE CHAR) + (\GETBASE (fetch (KEYACTION SHIFTCODES) + TABLE) + CHAR))) + +(PUTPROPS TRANSITIONCODE MACRO ((TABLE CHAR) + (\GETBASE (fetch (KEYACTION CODES) + TABLE) + CHAR))) + +(PUTPROPS TRANSITIONFLAGS MACRO ((TABLE CHAR) + (\GETBASEBYTE (fetch (KEYACTION FLAGS) + TABLE) + CHAR))) + +(PUTPROPS TRANSITIONDEADLIST MACRO ((TABLE CHAR SHIFTED) + (\GETBASEPTR (fetch (KEYACTION DEADKEYLIST) + of TABLE) + (LLSH (COND + (SHIFTED (IPLUS CHAR \NKEYS \NKEYS)) + (T CHAR)) + 1)))) + +(PUTPROPS CHECKFORDEADKEY MACRO + [(KEYCODE TABLE CHAR SHIFTED) + (LET ((CODE KEYCODE)) + (COND + [(IEQP CODE 65535) + `(DEADKEY ,(\GETBASEPTR (fetch (KEYACTION DEADKEYLIST) of TABLE) + (LLSH (COND + (SHIFTED (IPLUS CHAR \NKEYS \NKEYS)) + (T CHAR)) + 1] + (T CODE]) ) (* "FOLLOWING DEFINITIONS EXPORTED")(DECLARE%: EVAL@COMPILE (BLOCKRECORD KEYACTION ( - (* ;; "KEYACTION Table: For interpreting keystrokes. Stored as a 8-cell block of untyped pointer hunk storage.") - - FLAGS (* ; "Flag byte per key# (one for down-transtion, 1 for up-.) to describe whether lockshifting occrrs, you ignore the transition, etc.") - CODES (* ; - "Table of character codes generated by each key when no shift key is pressed.") - SHIFTCODES (* ; - "Table of character codes generated by each key when the shift key is pressed.") - ARMED (* ; "Not sure...") - INTERRUPTLIST (* ; "List of armed interrupts?") - ALTGRAPHCODES (* ; - "Table of codes to be generated when the ALT-GRAPH key is pressed.") - DEADKEYLIST (* ; "Block of dead-key handlers, with the nominal up-transition fields filled by the shifted-case tables. Each %"table%" is an ALIST of orignal code => accented code. no entry means punt the accent..") + (* ;; "KEYACTION Table: For interpreting keystrokes. Stored as a 8-cell block of untyped pointer hunk storage.") + + FLAGS (* ; "Flag byte per key# (one for down-transtion, 1 for up-.) to describe whether lockshifting occrrs, you ignore the transition, etc.") + CODES (* ; + "Table of character codes generated by each key when no shift key is pressed.") + SHIFTCODES (* ; + "Table of character codes generated by each key when the shift key is pressed.") + ARMED (* ; "Not sure...") + INTERRUPTLIST (* ; "List of armed interrupts?") + ALTGRAPHCODES (* ; + "Table of codes to be generated when the ALT-GRAPH key is pressed.") + DEADKEYLIST (* ; "Block of dead-key handlers, with the nominal up-transition fields filled by the shifted-case tables. Each %"table%" is an ALIST of orignal code => accented code. no entry means punt the accent..") ) FLAGS _ (\ALLOCBLOCK (FOLDHI (IPLUS \NKEYS \NKEYS) BYTESPERCELL)) @@ -1456,118 +1457,119 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1992, 1999, ) (DECLARE%: EVAL@COMPILE -(RPAQQ \KEYNAMES ((5 %% FIVE) - (4 $ FOUR) - (6 ~ SIX) - (e E) - (7 & SEVEN) - (d D) - (u U) - (v V) - (0 %) ZERO) - (k K) - (- %) - (p P) - (/ ?) - (\ %| FONT LOOKS) - (LF SAME) - (BS <-) - (3 %# THREE) - (2 @ TWO) - (w W) - (q Q) - (s S) - (a A) - (9 %( NINE) - (i I) - (x X) - (o O) - (l L) - (%, <) - (%' %") - (%] }) - (BLANK-MIDDLE OPEN DBK-HELP) - (BLANK-TOP KEYBOARD DBK-META) - (1 ! ONE) - (ESC ESCAPE ->) - (TAB =>) - (f F) - (CTRL PROP'S EDIT) - (c C) - (j J) - (b B) - (z Z) - (LSHIFT) - (%. >) - (; %:) - (CR <-%|) - (_ ^) - (DEL DELETE) - (SKIP NEXT) - (r R) - (t T) - (g G) - (y Y) - (h H) - (8 * EIGHT) - (n N) - (m M) - (LOCK) - (SPACE) - (%[ {) - (= +) - (RSHIFT) - (BLANK-BOTTOM STOP) - (MOVE) - (UNDO) - (UTIL0 SUN-KEYPAD=) - (UTIL1 SUN-KEYPAD/) - (UTIL2 SUPER/SUB) - (UTIL3 CASE) - (UTIL4 STRIKEOUT) - (UTIL5 KEYPAD2) - (UTIL6 KEYPAD3 PGDN) - (UTIL7 SUN-LF) - (PAD1 LEFTKEY CAPSLOCK KEYPAD+) - (PAD2 LEFTMIDDLEKEY NUMLOCK KEYPAD-) - (PAD3 MIDDLEKEY SCROLLLOCK KEYPAD*) - (PAD4 RIGHTMIDDLEKEY BREAK KEYPAD/ SUN-PAUSE) - (PAD5 RIGHTKEY DOIT PRTSC) - (LEFT RED MOUSERED) - (RIGHT BLUE MOUSEBLUE) - (MIDDLE YELLOW MOUSEYELLOW) - (MARGINS) - (K41 KEYPAD7 HOME) - (K42 KEYPAD8) - (K43 KEYPAD9 PGUP) - (K44 KEYPAD4) - (K45 KEYPAD5) - (K46 SUN-LEFT-SPACE) - (K47 KEYPAD6) - (K48 RIGHT-COMMAND SUN-RIGHT-SPACE) - (COPY) - (FIND) - (AGAIN) - (HELP) - (DEF'N EXPAND) - (K4E KEYPAD1 END) - (ALWAYS-ON-1) - (ALWAYS-ON-2) - (CENTER) - (K52 KEYPAD0 INS) - (BOLD) - (ITALICS) - (UNDERLINE) - (SUPERSCRIPT) - (SUBSCRIPT) - (LARGER SMALLER) - (K59 KEYPAD%| KEYPAD.) - (K5A KEYPAD\ KEYPAD, SUN-F10) - (K5B SUN-F11) - (K5C SUN-F12) - (DEFAULTS SUN-PROP) - (K5E SUN-PRTSC) - (K5F SUN-OPEN))) +(RPAQQ \KEYNAMES + ((5 %% FIVE) + (4 $ FOUR) + (6 ~ SIX) + (e E) + (7 & SEVEN) + (d D) + (u U) + (v V) + (0 %) ZERO) + (k K) + (- %) + (p P) + (/ ?) + (\ %| FONT LOOKS) + (LF SAME) + (BS <-) + (3 %# THREE) + (2 @ TWO) + (w W) + (q Q) + (s S) + (a A) + (9 %( NINE) + (i I) + (x X) + (o O) + (l L) + (%, <) + (%' %") + (%] }) + (BLANK-MIDDLE OPEN DBK-HELP) + (BLANK-TOP KEYBOARD DBK-META) + (1 ! ONE) + (ESC ESCAPE ->) + (TAB =>) + (f F) + (CTRL PROP'S EDIT) + (c C) + (j J) + (b B) + (z Z) + (LSHIFT) + (%. >) + (; %:) + (CR <-%|) + (_ ^) + (DEL DELETE) + (SKIP NEXT) + (r R) + (t T) + (g G) + (y Y) + (h H) + (8 * EIGHT) + (n N) + (m M) + (LOCK) + (SPACE) + (%[ {) + (= +) + (RSHIFT) + (BLANK-BOTTOM STOP) + (MOVE) + (UNDO) + (UTIL0 SUN-KEYPAD=) + (UTIL1 SUN-KEYPAD/) + (UTIL2 SUPER/SUB) + (UTIL3 CASE) + (UTIL4 STRIKEOUT) + (UTIL5 KEYPAD2) + (UTIL6 KEYPAD3 PGDN) + (UTIL7 SUN-LF) + (PAD1 LEFTKEY CAPSLOCK KEYPAD+) + (PAD2 LEFTMIDDLEKEY NUMLOCK KEYPAD-) + (PAD3 MIDDLEKEY SCROLLLOCK KEYPAD*) + (PAD4 RIGHTMIDDLEKEY BREAK KEYPAD/ SUN-PAUSE) + (PAD5 RIGHTKEY DOIT PRTSC) + (LEFT RED MOUSERED) + (RIGHT BLUE MOUSEBLUE) + (MIDDLE YELLOW MOUSEYELLOW) + (MARGINS) + (K41 KEYPAD7 HOME) + (K42 KEYPAD8) + (K43 KEYPAD9 PGUP) + (K44 KEYPAD4) + (K45 KEYPAD5) + (K46 SUN-LEFT-SPACE) + (K47 KEYPAD6) + (K48 RIGHT-COMMAND SUN-RIGHT-SPACE) + (COPY) + (FIND) + (AGAIN) + (HELP) + (DEF'N EXPAND) + (K4E KEYPAD1 END) + (ALWAYS-ON-1) + (ALWAYS-ON-2) + (CENTER) + (K52 KEYPAD0 INS) + (BOLD) + (ITALICS) + (UNDERLINE) + (SUPERSCRIPT) + (SUBSCRIPT) + (LARGER SMALLER) + (K59 KEYPAD%| KEYPAD.) + (K5A KEYPAD\ KEYPAD, SUN-F10) + (K5B SUN-F11) + (K5C SUN-F12) + (DEFAULTS SUN-PROP) + (K5E SUN-PRTSC) + (K5F SUN-OPEN))) ) @@ -1577,369 +1579,377 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1992, 1999, ) -(RPAQQ \ORIGKEYACTIONS ((0 (53 "%%" NOLOCKSHIFT)) - (1 (52 "$" NOLOCKSHIFT)) - (2 (54 "~" NOLOCKSHIFT)) - (3 ("e" "E" LOCKSHIFT)) - (4 (55 "&" NOLOCKSHIFT)) - (5 ("d" "D" LOCKSHIFT)) - (6 ("u" "U" LOCKSHIFT)) - (7 ("v" "V" LOCKSHIFT)) - (8 (48 ")" NOLOCKSHIFT)) - (9 ("k" "K" LOCKSHIFT)) - (10 ("-" "-" NOLOCKSHIFT)) - (11 ("p" "P" LOCKSHIFT)) - (12 ("/" "?" NOLOCKSHIFT)) - (13 ("\" "|" NOLOCKSHIFT)) - (14 (10 96 NOLOCKSHIFT)) - (15 (8 8 NOLOCKSHIFT)) - (16 (51 "#" NOLOCKSHIFT)) - (17 (50 "@" NOLOCKSHIFT)) - (18 ("w" "W" LOCKSHIFT)) - (19 ("q" "Q" LOCKSHIFT)) - (20 ("s" "S" LOCKSHIFT)) - (21 ("a" "A" LOCKSHIFT)) - (22 (57 "(" NOLOCKSHIFT)) - (23 ("i" "I" LOCKSHIFT)) - (24 ("x" "X" LOCKSHIFT)) - (25 ("o" "O" LOCKSHIFT)) - (26 ("l" "L" LOCKSHIFT)) - (27 ("," "<" NOLOCKSHIFT)) - (28 ("'" "%"" NOLOCKSHIFT)) - (29 ("]" "}" NOLOCKSHIFT)) - (30 (194 194 NOLOCKSHIFT)) - (31 (193 193 NOLOCKSHIFT)) - (32 (49 "!" NOLOCKSHIFT)) - (33 (27 27 NOLOCKSHIFT)) - (34 (9 9 NOLOCKSHIFT)) - (35 ("f" "F" LOCKSHIFT)) - (36 CTRLDOWN . CTRLUP) - (37 ("c" "C" LOCKSHIFT)) - (38 ("j" "J" LOCKSHIFT)) - (39 ("b" "B" LOCKSHIFT)) - (40 ("z" "Z" LOCKSHIFT)) - (41 1SHIFTDOWN . 1SHIFTUP) - (42 ("." ">" NOLOCKSHIFT)) - (43 (";" ":" NOLOCKSHIFT)) - (44 (13 13 NOLOCKSHIFT)) - (45 ("_" "^" NOLOCKSHIFT)) - (46 (127 535 NOLOCKSHIFT)) - (47 ("(" "[" NOLOCKSHIFT)) - (48 ("r" "R" LOCKSHIFT)) - (49 ("t" "T" LOCKSHIFT)) - (50 ("g" "G" LOCKSHIFT)) - (51 ("y" "Y" LOCKSHIFT)) - (52 ("h" "H" LOCKSHIFT)) - (53 (56 "*" NOLOCKSHIFT)) - (54 ("n" "N" LOCKSHIFT)) - (55 ("m" "M" LOCKSHIFT)) - (56 LOCKDOWN . LOCKUP) - (57 (32 32 NOLOCKSHIFT)) - (58 ("[" "{" NOLOCKSHIFT)) - (59 ("=" "+" NOLOCKSHIFT)) - (60 2SHIFTDOWN . 2SHIFTUP) - (61 (195 195 NOLOCKSHIFT)) - (63 (")" "]" NOLOCKSHIFT)) - (77 EVENT . EVENT) - (78 EVENT . EVENT) - (79 EVENT . EVENT) - (102 LOCKDOWN) - (103 LOCKUP))) - -(RPAQQ \DLIONKEYACTIONS ((2 (54 "^" NOLOCKSHIFT)) - (10 ("-" "_" NOLOCKSHIFT)) - (33 ("\" "|" NOLOCKSHIFT)) - (45 (96 "~" NOLOCKSHIFT)) - (OPEN METADOWN . METAUP) - (PROP'S CTRLDOWN . CTRLUP) - (SAME METADOWN . METAUP) - (FIND ("2,3" "2,43" NOLOCKSHIFT)) - (UNDO ("2,4" "2,44" NOLOCKSHIFT)) - (STOP (5 7 NOLOCKSHIFT)) - (MOVE) - (COPY) - (AGAIN ("2,10" "2,50" NOLOCKSHIFT)) - (CENTER ("2,101" "2,141" NOLOCKSHIFT)) - (BOLD ("2,102" "2,142" NOLOCKSHIFT)) - (ITALICS ("2,103" "2,143" NOLOCKSHIFT)) - (UNDERLINE ("2,106" "2,146" NOLOCKSHIFT)) - (SUPERSCRIPT ("2,113" "2,153" NOLOCKSHIFT)) - (SUBSCRIPT ("2,114" "2,154" NOLOCKSHIFT)) - (LARGER ("2,110" "2,150" NOLOCKSHIFT)) - (DEFAULTS ("2,115" "2,155" NOLOCKSHIFT)) - (93 (27 "2,64" NOLOCKSHIFT)) - (47 ("2,22" "2,62" NOLOCKSHIFT)) - (31 ("2,5" "2,45" NOLOCKSHIFT)) - (92 ("2,1" "2,41" NOLOCKSHIFT)) - (80 ("2,13" "2,53" NOLOCKSHIFT)) - (FONT ("2,112" "2,152" NOLOCKSHIFT)))) +(RPAQQ \ORIGKEYACTIONS + ((0 (53 "%%" NOLOCKSHIFT)) + (1 (52 "$" NOLOCKSHIFT)) + (2 (54 "~" NOLOCKSHIFT)) + (3 ("e" "E" LOCKSHIFT)) + (4 (55 "&" NOLOCKSHIFT)) + (5 ("d" "D" LOCKSHIFT)) + (6 ("u" "U" LOCKSHIFT)) + (7 ("v" "V" LOCKSHIFT)) + (8 (48 ")" NOLOCKSHIFT)) + (9 ("k" "K" LOCKSHIFT)) + (10 ("-" "-" NOLOCKSHIFT)) + (11 ("p" "P" LOCKSHIFT)) + (12 ("/" "?" NOLOCKSHIFT)) + (13 ("\" "|" NOLOCKSHIFT)) + (14 (10 96 NOLOCKSHIFT)) + (15 (8 8 NOLOCKSHIFT)) + (16 (51 "#" NOLOCKSHIFT)) + (17 (50 "@" NOLOCKSHIFT)) + (18 ("w" "W" LOCKSHIFT)) + (19 ("q" "Q" LOCKSHIFT)) + (20 ("s" "S" LOCKSHIFT)) + (21 ("a" "A" LOCKSHIFT)) + (22 (57 "(" NOLOCKSHIFT)) + (23 ("i" "I" LOCKSHIFT)) + (24 ("x" "X" LOCKSHIFT)) + (25 ("o" "O" LOCKSHIFT)) + (26 ("l" "L" LOCKSHIFT)) + (27 ("," "<" NOLOCKSHIFT)) + (28 ("'" "%"" NOLOCKSHIFT)) + (29 ("]" "}" NOLOCKSHIFT)) + (30 (194 194 NOLOCKSHIFT)) + (31 (193 193 NOLOCKSHIFT)) + (32 (49 "!" NOLOCKSHIFT)) + (33 (27 27 NOLOCKSHIFT)) + (34 (9 9 NOLOCKSHIFT)) + (35 ("f" "F" LOCKSHIFT)) + (36 CTRLDOWN . CTRLUP) + (37 ("c" "C" LOCKSHIFT)) + (38 ("j" "J" LOCKSHIFT)) + (39 ("b" "B" LOCKSHIFT)) + (40 ("z" "Z" LOCKSHIFT)) + (41 1SHIFTDOWN . 1SHIFTUP) + (42 ("." ">" NOLOCKSHIFT)) + (43 (";" ":" NOLOCKSHIFT)) + (44 (13 13 NOLOCKSHIFT)) + (45 ("_" "^" NOLOCKSHIFT)) + (46 (127 535 NOLOCKSHIFT)) + (47 ("(" "[" NOLOCKSHIFT)) + (48 ("r" "R" LOCKSHIFT)) + (49 ("t" "T" LOCKSHIFT)) + (50 ("g" "G" LOCKSHIFT)) + (51 ("y" "Y" LOCKSHIFT)) + (52 ("h" "H" LOCKSHIFT)) + (53 (56 "*" NOLOCKSHIFT)) + (54 ("n" "N" LOCKSHIFT)) + (55 ("m" "M" LOCKSHIFT)) + (56 LOCKDOWN . LOCKUP) + (57 (32 32 NOLOCKSHIFT)) + (58 ("[" "{" NOLOCKSHIFT)) + (59 ("=" "+" NOLOCKSHIFT)) + (60 2SHIFTDOWN . 2SHIFTUP) + (61 (195 195 NOLOCKSHIFT)) + (63 (")" "]" NOLOCKSHIFT)) + (77 EVENT . EVENT) + (78 EVENT . EVENT) + (79 EVENT . EVENT) + (102 LOCKDOWN) + (103 LOCKUP))) + +(RPAQQ \DLIONKEYACTIONS + ((2 (54 "^" NOLOCKSHIFT)) + (10 ("-" "_" NOLOCKSHIFT)) + (33 ("\" "|" NOLOCKSHIFT)) + (45 (96 "~" NOLOCKSHIFT)) + (OPEN METADOWN . METAUP) + (PROP'S CTRLDOWN . CTRLUP) + (SAME METADOWN . METAUP) + (FIND ("2,3" "2,43" NOLOCKSHIFT)) + (UNDO ("2,4" "2,44" NOLOCKSHIFT)) + (STOP (5 7 NOLOCKSHIFT)) + (MOVE) + (COPY) + (AGAIN ("2,10" "2,50" NOLOCKSHIFT)) + (CENTER ("2,101" "2,141" NOLOCKSHIFT)) + (BOLD ("2,102" "2,142" NOLOCKSHIFT)) + (ITALICS ("2,103" "2,143" NOLOCKSHIFT)) + (UNDERLINE ("2,106" "2,146" NOLOCKSHIFT)) + (SUPERSCRIPT ("2,113" "2,153" NOLOCKSHIFT)) + (SUBSCRIPT ("2,114" "2,154" NOLOCKSHIFT)) + (LARGER ("2,110" "2,150" NOLOCKSHIFT)) + (DEFAULTS ("2,115" "2,155" NOLOCKSHIFT)) + (93 (27 "2,64" NOLOCKSHIFT)) + (47 ("2,22" "2,62" NOLOCKSHIFT)) + (31 ("2,5" "2,45" NOLOCKSHIFT)) + (92 ("2,1" "2,41" NOLOCKSHIFT)) + (80 ("2,13" "2,53" NOLOCKSHIFT)) + (FONT ("2,112" "2,152" NOLOCKSHIFT)))) (RPAQQ \DLIONOSDKEYACTIONS ((56 LOCKTOGGLE))) -(RPAQQ \DORADOKEYACTIONS ((2 (54 "~" NOLOCKSHIFT)) - (10 ("-" "-" NOLOCKSHIFT)) - (13 ("\" "|" NOLOCKSHIFT)) - (14 (10 96 NOLOCKSHIFT)) - (33 (27 27 NOLOCKSHIFT)) - (45 ("_" "^" NOLOCKSHIFT)))) - -(RPAQQ \DOVEKEYACTIONS ((2 (54 "^" NOLOCKSHIFT)) - (10 ("-" "_" NOLOCKSHIFT)) - (33 (27 27 NOLOCKSHIFT)) - (56 CTRLDOWN . CTRLUP) - (65 (27 27 NOLOCKSHIFT)) - (71 (39 34 NOLOCKSHIFT)) - (93 ("2,24" "2,64" NOLOCKSHIFT)) - (108 (96 126 NOLOCKSHIFT)) - (DBK-META METADOWN . METAUP) - (DBK-HELP ("2,1" "2,41" NOLOCKSHIFT)) - (SAME METADOWN . METAUP) - (FIND ("2,3" "2,43" NOLOCKSHIFT)) - (UNDO ("2,4" "2,44" NOLOCKSHIFT)) - (STOP (5 7 NOLOCKSHIFT)) - (EDIT ("2,5" "2,45" NOLOCKSHIFT)) - (MOVE) - (COPY) - (AGAIN ("2,10" "2,50" NOLOCKSHIFT)) - (CENTER ("2,101" "2,141" NOLOCKSHIFT)) - (BOLD ("2,102" "2,142" NOLOCKSHIFT)) - (ITALICS ("2,103" "2,143" NOLOCKSHIFT)) - (CASE ("2,104" "2,144" NOLOCKSHIFT)) - (STRIKEOUT ("2,105" "2,145" NOLOCKSHIFT)) - (UNDERLINE ("2,106" "2,146" NOLOCKSHIFT)) - (SUPER/SUB ("2,107" "2,147" NOLOCKSHIFT)) - (LARGER ("2,110" "2,150" NOLOCKSHIFT)) - (MARGINS ("2,111" "2,151" NOLOCKSHIFT)) - (LOOKS ("2,112" "2,152" NOLOCKSHIFT)) - (CAPSLOCK LOCKTOGGLE) - (NUMLOCK ("2,11" "-" NOLOCKSHIFT)) - (SCROLLLOCK ("2,12" 180 NOLOCKSHIFT)) - (BREAK (2 184 NOLOCKSHIFT)) - (DOIT ("2,13" "2,53" NOLOCKSHIFT)) - (KEYPAD7 ("2,14" 55 NOLOCKSHIFT)) - (KEYPAD8 (173 56 NOLOCKSHIFT)) - (KEYPAD9 ("2,15" 57 NOLOCKSHIFT)) - (KEYPAD4 (172 52 NOLOCKSHIFT)) - (KEYPAD5 ("2,16" 53 NOLOCKSHIFT)) - (KEYPAD6 (174 54 NOLOCKSHIFT)) - (KEYPAD1 ("2,17" 49 NOLOCKSHIFT)) - (KEYPAD2 (175 50 NOLOCKSHIFT)) - (KEYPAD3 ("2,20" 51 NOLOCKSHIFT)) - (KEYPAD0 ("2,21" 48 NOLOCKSHIFT)) - (KEYPAD%| ("|" 46 NOLOCKSHIFT)) - (KEYPAD\ ("\" 44 NOLOCKSHIFT)) - (47 ("2,22" "2,62" NOLOCKSHIFT)))) +(RPAQQ \DORADOKEYACTIONS + ((2 (54 "~" NOLOCKSHIFT)) + (10 ("-" "-" NOLOCKSHIFT)) + (13 ("\" "|" NOLOCKSHIFT)) + (14 (10 96 NOLOCKSHIFT)) + (33 (27 27 NOLOCKSHIFT)) + (45 ("_" "^" NOLOCKSHIFT)))) + +(RPAQQ \DOVEKEYACTIONS + ((2 (54 "^" NOLOCKSHIFT)) + (10 ("-" "_" NOLOCKSHIFT)) + (33 (27 27 NOLOCKSHIFT)) + (56 CTRLDOWN . CTRLUP) + (65 (27 27 NOLOCKSHIFT)) + (71 (39 34 NOLOCKSHIFT)) + (93 ("2,24" "2,64" NOLOCKSHIFT)) + (108 (96 126 NOLOCKSHIFT)) + (DBK-META METADOWN . METAUP) + (DBK-HELP ("2,1" "2,41" NOLOCKSHIFT)) + (SAME METADOWN . METAUP) + (FIND ("2,3" "2,43" NOLOCKSHIFT)) + (UNDO ("2,4" "2,44" NOLOCKSHIFT)) + (STOP (5 7 NOLOCKSHIFT)) + (EDIT ("2,5" "2,45" NOLOCKSHIFT)) + (MOVE) + (COPY) + (AGAIN ("2,10" "2,50" NOLOCKSHIFT)) + (CENTER ("2,101" "2,141" NOLOCKSHIFT)) + (BOLD ("2,102" "2,142" NOLOCKSHIFT)) + (ITALICS ("2,103" "2,143" NOLOCKSHIFT)) + (CASE ("2,104" "2,144" NOLOCKSHIFT)) + (STRIKEOUT ("2,105" "2,145" NOLOCKSHIFT)) + (UNDERLINE ("2,106" "2,146" NOLOCKSHIFT)) + (SUPER/SUB ("2,107" "2,147" NOLOCKSHIFT)) + (LARGER ("2,110" "2,150" NOLOCKSHIFT)) + (MARGINS ("2,111" "2,151" NOLOCKSHIFT)) + (LOOKS ("2,112" "2,152" NOLOCKSHIFT)) + (CAPSLOCK LOCKTOGGLE) + (NUMLOCK ("2,11" "-" NOLOCKSHIFT)) + (SCROLLLOCK ("2,12" 180 NOLOCKSHIFT)) + (BREAK (2 184 NOLOCKSHIFT)) + (DOIT ("2,13" "2,53" NOLOCKSHIFT)) + (KEYPAD7 ("2,14" 55 NOLOCKSHIFT)) + (KEYPAD8 (173 56 NOLOCKSHIFT)) + (KEYPAD9 ("2,15" 57 NOLOCKSHIFT)) + (KEYPAD4 (172 52 NOLOCKSHIFT)) + (KEYPAD5 ("2,16" 53 NOLOCKSHIFT)) + (KEYPAD6 (174 54 NOLOCKSHIFT)) + (KEYPAD1 ("2,17" 49 NOLOCKSHIFT)) + (KEYPAD2 (175 50 NOLOCKSHIFT)) + (KEYPAD3 ("2,20" 51 NOLOCKSHIFT)) + (KEYPAD0 ("2,21" 48 NOLOCKSHIFT)) + (KEYPAD%| ("|" 46 NOLOCKSHIFT)) + (KEYPAD\ ("\" 44 NOLOCKSHIFT)) + (47 ("2,22" "2,62" NOLOCKSHIFT)))) (RPAQQ \DOVEOSDKEYACTIONS ((56 LOCKDOWN . LOCKUP) (36 CTRLDOWN . CTRLUP) (CAPSLOCK ("2,5" "2,45" NOLOCKSHIFT)))) -(RPAQQ \MAIKOKEYACTIONS ((61 (5 7 NOLOCKSHIFT)) - (91 (520 552 NOLOCKSHIFT)) - (92 (513 545 NOLOCKSHIFT)) - (30 (513 545 NOLOCKSHIFT)) - (63 (516 548 NOLOCKSHIFT)) - (93 (532 564 NOLOCKSHIFT)) - (62) - (111 (329 263 NOLOCKSHIFT)) - (89) - (90 (515 547 NOLOCKSHIFT)) - (73 (521 521 NOLOCKSHIFT)) - (74 (522 522 NOLOCKSHIFT)) - (75 (2 2 NOLOCKSHIFT)) - (81 (524 55 NOLOCKSHIFT)) - (82 (173 56 NOLOCKSHIFT)) - (83 (525 57 NOLOCKSHIFT)) - (84 (172 52 NOLOCKSHIFT)) - (85 (526 53 NOLOCKSHIFT)) - (87 (174 54 NOLOCKSHIFT)) - (94 (527 49 NOLOCKSHIFT)) - (69 (175 50 NOLOCKSHIFT)) - (70 (528 51 NOLOCKSHIFT)) - (98 (529 48 NOLOCKSHIFT)) - (76 (523 555 NOLOCKSHIFT)) - (72 LOCKTOGGLE) - (97 (577 609 NOLOCKSHIFT)) - (99 (578 610 NOLOCKSHIFT)) - (100 (579 611 NOLOCKSHIFT)) - (67 (580 612 NOLOCKSHIFT)) - (68 (581 613 NOLOCKSHIFT)) - (101 (582 614 NOLOCKSHIFT)) - (66 (583 615 NOLOCKSHIFT)) - (104 (584 616 NOLOCKSHIFT)) - (80 (585 617 NOLOCKSHIFT)) - (13 (23 21 NOLOCKSHIFT)) - (33 (27 27 NOLOCKSHIFT)) - (65 (27 27 NOLOCKSHIFT)) - (2 (54 94 NOLOCKSHIFT)) - (10 (45 95 NOLOCKSHIFT)) - (36 CTRLDOWN . CTRLUP) - (56 LOCKTOGGLE . IGNORE) - (45 (96 126 NOLOCKSHIFT)) - (31 METADOWN . METAUP) - (14 METADOWN . METAUP) - (71 (10 10 NOLOCKSHIFT)) - (47 (530 562 NOLOCKSHIFT)) - (105 (92 124 NOLOCKSHIFT)))) - -(RPAQQ \MAIKOKEYACTIONST4 ((61 ("^E" "^G" NOLOCKSHIFT)) - (91 ("2,10" "2,50" NOLOCKSHIFT)) - (92 ("2,1" "2,41" NOLOCKSHIFT)) - (30 ("2,1" "2,41" NOLOCKSHIFT)) - (109 ("2,25" "2,65" NOLOCKSHIFT)) - (63 ("2,4" "2,44" NOLOCKSHIFT)) - (14 METADOWN . METAUP) - (93 ("2,24" "2,64" NOLOCKSHIFT)) - (62) - (111 ("1,111" "1,79" NOLOCKSHIFT)) - (89) - (90 ("2,3" "2,43" NOLOCKSHIFT)) - (73 ("2,11" "2,11" NOLOCKSHIFT)) - (74 ("2,12" "2,12" NOLOCKSHIFT)) - (75 ("^B" "^B" NOLOCKSHIFT)) - (81 ("2,14" 55 NOLOCKSHIFT)) - (82 (173 56 NOLOCKSHIFT)) - (83 ("2,15" 57 NOLOCKSHIFT)) - (84 (172 52 NOLOCKSHIFT)) - (85 ("2,16" 53 NOLOCKSHIFT)) - (87 (174 54 NOLOCKSHIFT)) - (94 ("2,17" 49 NOLOCKSHIFT)) - (69 (175 50 NOLOCKSHIFT)) - (70 ("2,20" 51 NOLOCKSHIFT)) - (98 ("2,21" 48 NOLOCKSHIFT)) - (76 ("2,13" "2,13" NOLOCKSHIFT)) - (110 ("2,53" "2,53" NOLOCKSHIFT)) - (72 LOCKTOGGLE) - (97 ("2,101" "2,141" NOLOCKSHIFT)) - (99 ("2,102" "2,142" NOLOCKSHIFT)) - (100 ("2,103" "2,143" NOLOCKSHIFT)) - (67 ("2,104" "2,144" NOLOCKSHIFT)) - (68 ("2,105" "2,145" NOLOCKSHIFT)) - (101 ("2,106" "2,146" NOLOCKSHIFT)) - (66 ("2,107" "2,147" NOLOCKSHIFT)) - (104 ("2,110" "2,150" NOLOCKSHIFT)) - (80 ("2,111" "2,151" NOLOCKSHIFT)) - (106 ("2,113" "2,153" NOLOCKSHIFT)) - (107 ("2,114" "2,154" NOLOCKSHIFT)) - (108 ("2,115" "2,155" NOLOCKSHIFT)) - (13 ("^W" "^U" NOLOCKSHIFT)) - (33 ("ESC" "ESC" NOLOCKSHIFT)) - (64 IGNORE . IGNORE) - (65 (27 27 NOLOCKSHIFT)) - (95 IGNORE . IGNORE) - (96 IGNORE . IGNORE) - (102 IGNORE . IGNORE) - (2 ("6" "^" NOLOCKSHIFT)) - (10 ("-" "_" NOLOCKSHIFT)) - (36 CTRLDOWN . CTRLUP) - (56 LOCKTOGGLE . IGNORE) - (45 ("`" "~" NOLOCKSHIFT)) - (31 METADOWN . METAUP) - (71 (10 10 NOLOCKSHIFT)) - (47 ("2,22" "2,62" NOLOCKSHIFT)) - (86 IGNORE . IGNORE) - (88 IGNORE . IGNORE) - (105 ("\" "|" NOLOCKSHIFT)))) - -(RPAQQ \MAIKO-JLE-KEYACTIONS ((2 ("6" "&" NOLOCKSHIFT)) - (4 ("7" "'" NOLOCKSHIFT)) - (8 ("0" "0" NOLOCKSHIFT)) - (10 ("\" "_" NOLOCKSHIFT)) - (13 ("^W" "^U" NOLOCKSHIFT)) - (14 METADOWN . METAUP) - (15 (8 8 NOLOCKSHIFT)) - (17 ("2" "%"" NOLOCKSHIFT)) - (22 ("9" ")" NOLOCKSHIFT)) - (28 (":" "*" NOLOCKSHIFT)) - (29 ("[" "{" NOLOCKSHIFT)) - (30 ("]" "}" NOLOCKSHIFT)) - (31 METADOWN . METAUP) - (33 ("ESC" "ESC" NOLOCKSHIFT)) - (36 CTRLDOWN . CTRLUP) - (43 (";" "+" NOLOCKSHIFT)) - (45 ("^" "~" NOLOCKSHIFT)) - (47 ("2,22" "2,62" NOLOCKSHIFT)) - (53 ("8" "(" NOLOCKSHIFT)) - (56 LOCKTOGGLE . IGNORE) - (58 ("@" "`" NOLOCKSHIFT)) - (59 ("-" "=" NOLOCKSHIFT)) - (61 ("^E" "^G" NOLOCKSHIFT)) - (62) - (63 ("2,4" "2,44" NOLOCKSHIFT)) - (64 ("2,14" 55 NOLOCKSHIFT)) - (65 (27 27 NOLOCKSHIFT)) - (66 ("2,107" "2,147" NOLOCKSHIFT)) - (67 ("2,104" "2,144" NOLOCKSHIFT)) - (69 ("2,13" "2,53" NOLOCKSHIFT)) - (70 ("2,20" 51 NOLOCKSHIFT)) - (71 (10 10 NOLOCKSHIFT)) - (72 (766 766 NOLOCKSHIFT)) - (73 ("2,11" "2,11" NOLOCKSHIFT)) - (74 ("2,12" "2,12" NOLOCKSHIFT)) - (75 ("^B" "^B" NOLOCKSHIFT)) - (80 ("2,111" "2,151" NOLOCKSHIFT)) - (81 ("2,14" 55 NOLOCKSHIFT)) - (82 (173 56 NOLOCKSHIFT)) - (83 ("2,15" 57 NOLOCKSHIFT)) - (84 (172 52 NOLOCKSHIFT)) - (85 ("2,16" 53 NOLOCKSHIFT)) - (86 (765 765 NOLOCKSHIFT)) - (87 (174 54 NOLOCKSHIFT)) - (88 (770 771 NOLOCKSHIFT)) - (90 ("2,3" "2,43" NOLOCKSHIFT)) - (91 ("2,10" "2,50" NOLOCKSHIFT)) - (92 ("2,1" "2,41" NOLOCKSHIFT)) - (93 ("2,24" "2,64" NOLOCKSHIFT)) - (96 IGNORE . IGNORE) - (98 ("2,21" 48 NOLOCKSHIFT)) - (99 ("2,102" "2,142" NOLOCKSHIFT)) - (101 ("2,106" "2,146" NOLOCKSHIFT)) - (102 IGNORE . IGNORE) - (103 (767 768 NOLOCKSHIFT)) - (104 ("2,110" "2,150" NOLOCKSHIFT)) - (105 ("\" "|" NOLOCKSHIFT)) - (106 ("2,113" "2,153" NOLOCKSHIFT)) - (107 ("2,114" "2,154" NOLOCKSHIFT)) - (108 ("2,115" "2,155" NOLOCKSHIFT)) - (109 (769 769 NOLOCKSHIFT)) - (110 ("2,53" "2,53" NOLOCKSHIFT)) - (111 ("1,111" "1,79" NOLOCKSHIFT)))) - -(RPAQQ \TOSHIBA-KEYACTIONS ((2 ("6" "&" NOLOCKSHIFT)) - (4 ("7" "'" NOLOCKSHIFT)) - (17 ("2" "%"" NOLOCKSHIFT)) - (53 ("8" "(" NOLOCKSHIFT)) - (22 ("9" ")" NOLOCKSHIFT)) - (8 ("0" "0" NOLOCKSHIFT)) - (10 ("-" "=" NOLOCKSHIFT)) - (59 ("^" "~" NOLOCKSHIFT)) - (45 ("\" "|" NOLOCKSHIFT)) - (58 ("@" "`" NOLOCKSHIFT)) - (29 ("[" "{" NOLOCKSHIFT)) - (105 ("]" "}" NOLOCKSHIFT)) - (43 (";" "+" NOLOCKSHIFT)) - (28 (":" "*" NOLOCKSHIFT)) - (15 (23 95 NOLOCKSHIFT)) - (13 (8 8 NOLOCKSHIFT)) - (86 METADOWN . METAUP) - (73 (530 562 NOLOCKSHIFT)) - (88 ("2,24" "2,64" NOLOCKSHIFT)) - (98 IGNORE . IGNORE) - (75 ("2,11" "2,11" NOLOCKSHIFT)) - (110 ("2,12" "2,12" NOLOCKSHIFT)) - (74 ("^B" "^B" NOLOCKSHIFT)) - (64 ("2,14" 55 NOLOCKSHIFT)) - (65 (173 56 NOLOCKSHIFT)) - (95 ("2,15" 57 NOLOCKSHIFT)) - (81 (172 52 NOLOCKSHIFT)) - (82 ("2,16" 53 NOLOCKSHIFT)) - (83 (174 54 NOLOCKSHIFT)) - (84 ("2,17" 49 NOLOCKSHIFT)) - (85 (175 50 NOLOCKSHIFT)) - (87 ("2,20" 51 NOLOCKSHIFT)) - (94 ("2,21" 48 NOLOCKSHIFT)) - (69 ("2,13" "2,53" NOLOCKSHIFT)) - (70 LOCKTOGGLE))) +(RPAQQ \MAIKOKEYACTIONS + ((61 (5 7 NOLOCKSHIFT)) + (91 (520 552 NOLOCKSHIFT)) + (92 (513 545 NOLOCKSHIFT)) + (30 (513 545 NOLOCKSHIFT)) + (63 (516 548 NOLOCKSHIFT)) + (93 (532 564 NOLOCKSHIFT)) + (62) + (111 (329 263 NOLOCKSHIFT)) + (89) + (90 (515 547 NOLOCKSHIFT)) + (73 (521 521 NOLOCKSHIFT)) + (74 (522 522 NOLOCKSHIFT)) + (75 (2 2 NOLOCKSHIFT)) + (81 (524 55 NOLOCKSHIFT)) + (82 (173 56 NOLOCKSHIFT)) + (83 (525 57 NOLOCKSHIFT)) + (84 (172 52 NOLOCKSHIFT)) + (85 (526 53 NOLOCKSHIFT)) + (87 (174 54 NOLOCKSHIFT)) + (94 (527 49 NOLOCKSHIFT)) + (69 (175 50 NOLOCKSHIFT)) + (70 (528 51 NOLOCKSHIFT)) + (98 (529 48 NOLOCKSHIFT)) + (76 (523 555 NOLOCKSHIFT)) + (72 LOCKTOGGLE) + (97 (577 609 NOLOCKSHIFT)) + (99 (578 610 NOLOCKSHIFT)) + (100 (579 611 NOLOCKSHIFT)) + (67 (580 612 NOLOCKSHIFT)) + (68 (581 613 NOLOCKSHIFT)) + (101 (582 614 NOLOCKSHIFT)) + (66 (583 615 NOLOCKSHIFT)) + (104 (584 616 NOLOCKSHIFT)) + (80 (585 617 NOLOCKSHIFT)) + (13 (23 21 NOLOCKSHIFT)) + (33 (27 27 NOLOCKSHIFT)) + (65 (27 27 NOLOCKSHIFT)) + (2 (54 94 NOLOCKSHIFT)) + (10 (45 95 NOLOCKSHIFT)) + (36 CTRLDOWN . CTRLUP) + (56 LOCKTOGGLE . IGNORE) + (45 (96 126 NOLOCKSHIFT)) + (31 METADOWN . METAUP) + (14 METADOWN . METAUP) + (71 (10 10 NOLOCKSHIFT)) + (47 (530 562 NOLOCKSHIFT)) + (105 (92 124 NOLOCKSHIFT)))) + +(RPAQQ \MAIKOKEYACTIONST4 + ((61 ("^E" "^G" NOLOCKSHIFT)) + (91 ("2,10" "2,50" NOLOCKSHIFT)) + (92 ("2,1" "2,41" NOLOCKSHIFT)) + (30 ("2,1" "2,41" NOLOCKSHIFT)) + (109 ("2,25" "2,65" NOLOCKSHIFT)) + (63 ("2,4" "2,44" NOLOCKSHIFT)) + (14 METADOWN . METAUP) + (93 ("2,24" "2,64" NOLOCKSHIFT)) + (62) + (111 ("1,111" "1,79" NOLOCKSHIFT)) + (89) + (90 ("2,3" "2,43" NOLOCKSHIFT)) + (73 ("2,11" "2,11" NOLOCKSHIFT)) + (74 ("2,12" "2,12" NOLOCKSHIFT)) + (75 ("^B" "^B" NOLOCKSHIFT)) + (81 ("2,14" 55 NOLOCKSHIFT)) + (82 (173 56 NOLOCKSHIFT)) + (83 ("2,15" 57 NOLOCKSHIFT)) + (84 (172 52 NOLOCKSHIFT)) + (85 ("2,16" 53 NOLOCKSHIFT)) + (87 (174 54 NOLOCKSHIFT)) + (94 ("2,17" 49 NOLOCKSHIFT)) + (69 (175 50 NOLOCKSHIFT)) + (70 ("2,20" 51 NOLOCKSHIFT)) + (98 ("2,21" 48 NOLOCKSHIFT)) + (76 ("2,13" "2,13" NOLOCKSHIFT)) + (110 ("2,53" "2,53" NOLOCKSHIFT)) + (72 LOCKTOGGLE) + (97 ("2,101" "2,141" NOLOCKSHIFT)) + (99 ("2,102" "2,142" NOLOCKSHIFT)) + (100 ("2,103" "2,143" NOLOCKSHIFT)) + (67 ("2,104" "2,144" NOLOCKSHIFT)) + (68 ("2,105" "2,145" NOLOCKSHIFT)) + (101 ("2,106" "2,146" NOLOCKSHIFT)) + (66 ("2,107" "2,147" NOLOCKSHIFT)) + (104 ("2,110" "2,150" NOLOCKSHIFT)) + (80 ("2,111" "2,151" NOLOCKSHIFT)) + (106 ("2,113" "2,153" NOLOCKSHIFT)) + (107 ("2,114" "2,154" NOLOCKSHIFT)) + (108 ("2,115" "2,155" NOLOCKSHIFT)) + (13 ("^W" "^U" NOLOCKSHIFT)) + (33 ("ESC" "ESC" NOLOCKSHIFT)) + (64 IGNORE . IGNORE) + (65 (27 27 NOLOCKSHIFT)) + (95 IGNORE . IGNORE) + (96 IGNORE . IGNORE) + (102 IGNORE . IGNORE) + (2 ("6" "^" NOLOCKSHIFT)) + (10 ("-" "_" NOLOCKSHIFT)) + (36 CTRLDOWN . CTRLUP) + (56 LOCKTOGGLE . IGNORE) + (45 ("`" "~" NOLOCKSHIFT)) + (31 METADOWN . METAUP) + (71 (10 10 NOLOCKSHIFT)) + (47 ("2,22" "2,62" NOLOCKSHIFT)) + (86 IGNORE . IGNORE) + (88 IGNORE . IGNORE) + (105 ("\" "|" NOLOCKSHIFT)))) + +(RPAQQ \MAIKO-JLE-KEYACTIONS + ((2 ("6" "&" NOLOCKSHIFT)) + (4 ("7" "'" NOLOCKSHIFT)) + (8 ("0" "0" NOLOCKSHIFT)) + (10 ("\" "_" NOLOCKSHIFT)) + (13 ("^W" "^U" NOLOCKSHIFT)) + (14 METADOWN . METAUP) + (15 (8 8 NOLOCKSHIFT)) + (17 ("2" "%"" NOLOCKSHIFT)) + (22 ("9" ")" NOLOCKSHIFT)) + (28 (":" "*" NOLOCKSHIFT)) + (29 ("[" "{" NOLOCKSHIFT)) + (30 ("]" "}" NOLOCKSHIFT)) + (31 METADOWN . METAUP) + (33 ("ESC" "ESC" NOLOCKSHIFT)) + (36 CTRLDOWN . CTRLUP) + (43 (";" "+" NOLOCKSHIFT)) + (45 ("^" "~" NOLOCKSHIFT)) + (47 ("2,22" "2,62" NOLOCKSHIFT)) + (53 ("8" "(" NOLOCKSHIFT)) + (56 LOCKTOGGLE . IGNORE) + (58 ("@" "`" NOLOCKSHIFT)) + (59 ("-" "=" NOLOCKSHIFT)) + (61 ("^E" "^G" NOLOCKSHIFT)) + (62) + (63 ("2,4" "2,44" NOLOCKSHIFT)) + (64 ("2,14" 55 NOLOCKSHIFT)) + (65 (27 27 NOLOCKSHIFT)) + (66 ("2,107" "2,147" NOLOCKSHIFT)) + (67 ("2,104" "2,144" NOLOCKSHIFT)) + (69 ("2,13" "2,53" NOLOCKSHIFT)) + (70 ("2,20" 51 NOLOCKSHIFT)) + (71 (10 10 NOLOCKSHIFT)) + (72 (766 766 NOLOCKSHIFT)) + (73 ("2,11" "2,11" NOLOCKSHIFT)) + (74 ("2,12" "2,12" NOLOCKSHIFT)) + (75 ("^B" "^B" NOLOCKSHIFT)) + (80 ("2,111" "2,151" NOLOCKSHIFT)) + (81 ("2,14" 55 NOLOCKSHIFT)) + (82 (173 56 NOLOCKSHIFT)) + (83 ("2,15" 57 NOLOCKSHIFT)) + (84 (172 52 NOLOCKSHIFT)) + (85 ("2,16" 53 NOLOCKSHIFT)) + (86 (765 765 NOLOCKSHIFT)) + (87 (174 54 NOLOCKSHIFT)) + (88 (770 771 NOLOCKSHIFT)) + (90 ("2,3" "2,43" NOLOCKSHIFT)) + (91 ("2,10" "2,50" NOLOCKSHIFT)) + (92 ("2,1" "2,41" NOLOCKSHIFT)) + (93 ("2,24" "2,64" NOLOCKSHIFT)) + (96 IGNORE . IGNORE) + (98 ("2,21" 48 NOLOCKSHIFT)) + (99 ("2,102" "2,142" NOLOCKSHIFT)) + (101 ("2,106" "2,146" NOLOCKSHIFT)) + (102 IGNORE . IGNORE) + (103 (767 768 NOLOCKSHIFT)) + (104 ("2,110" "2,150" NOLOCKSHIFT)) + (105 ("\" "|" NOLOCKSHIFT)) + (106 ("2,113" "2,153" NOLOCKSHIFT)) + (107 ("2,114" "2,154" NOLOCKSHIFT)) + (108 ("2,115" "2,155" NOLOCKSHIFT)) + (109 (769 769 NOLOCKSHIFT)) + (110 ("2,53" "2,53" NOLOCKSHIFT)) + (111 ("1,111" "1,79" NOLOCKSHIFT)))) + +(RPAQQ \TOSHIBA-KEYACTIONS + ((2 ("6" "&" NOLOCKSHIFT)) + (4 ("7" "'" NOLOCKSHIFT)) + (17 ("2" "%"" NOLOCKSHIFT)) + (53 ("8" "(" NOLOCKSHIFT)) + (22 ("9" ")" NOLOCKSHIFT)) + (8 ("0" "0" NOLOCKSHIFT)) + (10 ("-" "=" NOLOCKSHIFT)) + (59 ("^" "~" NOLOCKSHIFT)) + (45 ("\" "|" NOLOCKSHIFT)) + (58 ("@" "`" NOLOCKSHIFT)) + (29 ("[" "{" NOLOCKSHIFT)) + (105 ("]" "}" NOLOCKSHIFT)) + (43 (";" "+" NOLOCKSHIFT)) + (28 (":" "*" NOLOCKSHIFT)) + (15 (23 95 NOLOCKSHIFT)) + (13 (8 8 NOLOCKSHIFT)) + (86 METADOWN . METAUP) + (73 (530 562 NOLOCKSHIFT)) + (88 ("2,24" "2,64" NOLOCKSHIFT)) + (98 IGNORE . IGNORE) + (75 ("2,11" "2,11" NOLOCKSHIFT)) + (110 ("2,12" "2,12" NOLOCKSHIFT)) + (74 ("^B" "^B" NOLOCKSHIFT)) + (64 ("2,14" 55 NOLOCKSHIFT)) + (65 (173 56 NOLOCKSHIFT)) + (95 ("2,15" 57 NOLOCKSHIFT)) + (81 (172 52 NOLOCKSHIFT)) + (82 ("2,16" 53 NOLOCKSHIFT)) + (83 (174 54 NOLOCKSHIFT)) + (84 ("2,17" 49 NOLOCKSHIFT)) + (85 (175 50 NOLOCKSHIFT)) + (87 ("2,20" 51 NOLOCKSHIFT)) + (94 ("2,21" 48 NOLOCKSHIFT)) + (69 ("2,13" "2,53" NOLOCKSHIFT)) + (70 LOCKTOGGLE))) (RPAQQ KEYBOARD.APPLICATION-SPECIFIC-KEYACTIONS NIL) @@ -2097,7 +2107,7 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1992, 1999, \MAIKOKEYACTIONS]) (\KEYACTION1 - [LAMBDA (TI ACTION TABLE) (* ; "Edited 4-Mar-92 13:59 by jds") + [LAMBDA (TI ACTION TABLE) (* ; "Edited 9-Jun-2021 20:18 by rmk:") (PROG1 (SELECTC (TRANSITIONFLAGS TABLE TI) (IGNORE.TF 'IGNORE) ((LIST LOCKSHIFT.TF NOLOCKSHIFT.TF) @@ -2217,25 +2227,21 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1992, 1999, ([AND [OR (AND (AND (LISTP (CAR (LISTP ACTION))) (EQ (CAAR (LISTP ACTION)) 'DEADKEY)) - [SETQ DEAD - (for PAIR in (CADAR (LISTP ACTION)) - collect - - (* ;; - "Make sure we'll take string charcode specs in the deadkey list.") - - (CONS (OR (AND (\CHARCODEP (CAR PAIR)) - (CAR PAIR)) - (APPLY* (FUNCTION CHARCODE) - (CAR PAIR))) - (OR (AND (\CHARCODEP (CDR PAIR)) - (CDR PAIR)) - (APPLY* (FUNCTION CHARCODE) - (CDR PAIR] + [SETQ DEAD (for PAIR in (CADAR (LISTP ACTION)) + collect + + (* ;; + "Make sure we'll take string charcode specs in the deadkey list.") + + (CONS (OR (AND (\CHARCODEP (CAR PAIR)) + (CAR PAIR)) + (CHARCODE.DECODE (CAR PAIR))) + (OR (AND (\CHARCODEP (CDR PAIR)) + (CDR PAIR)) + (CHARCODE.DECODE (CDR PAIR] (SETQ CODE 65535)) [\CHARCODEP (SETQ CODE (\GETCHARCODE (CAR (LISTP ACTION] - (SETQ CODE (APPLY* (FUNCTION CHARCODE) - (CAR (LISTP ACTION] + (SETQ CODE (CHARCODE.DECODE (CAR (LISTP ACTION] [OR (AND (AND (LISTP (CADR (LISTP ACTION))) (EQ (CAADR (LISTP ACTION)) 'DEADKEY)) @@ -2243,18 +2249,15 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1992, 1999, (for PAIR in (CADADR (LISTP ACTION)) collect (CONS (OR (AND (\CHARCODEP (CAR PAIR)) (CAR PAIR)) - (APPLY* (FUNCTION CHARCODE) - (CAR PAIR))) + (CHARCODE.DECODE (CAR PAIR))) (OR (AND (\CHARCODEP (CDR PAIR)) (CDR PAIR)) - (APPLY* (FUNCTION CHARCODE) - (CDR PAIR] + (CHARCODE.DECODE (CDR PAIR] (SETQ SHIFTCODE 65535) (SETQ ACT (CDR ACTION))) [\CHARCODEP (SETQ SHIFTCODE (\GETCHARCODE (CAR (SETQ ACT (LISTP (CDR ACTION] - (SETQ SHIFTCODE (APPLY* (FUNCTION CHARCODE) - (CAR ACT] + (SETQ SHIFTCODE (CHARCODE.DECODE (CAR ACT] (OR (NULL (SETQ ACT (CDR ACT))) (LISTP ACT)) (SELECTQ (CAR ACT) @@ -2265,8 +2268,7 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1992, 1999, (change (TRANSITIONFLAGS TABLE TI) NOLOCKSHIFT.TF)) (AND [OR [\CHARCODEP (SETQ ALTGRCODE (\GETCHARCODE (CAR ACT] - (SETQ ALTGRCODE (APPLY* (FUNCTION CHARCODE) - (CAR ACT] + (SETQ ALTGRCODE (CHARCODE.DECODE (CAR ACT] (OR (NULL (SETQ ACT (CDR ACT))) (LISTP ACT)) (SELECTQ (CAR ACT) @@ -2385,10 +2387,10 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1992, 1999, ) (DECLARE%: EVAL@COMPILE -(PUTPROPS \TEMPCOPYTIMER MACRO ((X) - (PROGN (\BLT \MOUSETIMERTEMP (LOCF X) - WORDSPERCELL) - \MOUSETIMERTEMP))) +(PUTPROPS \TEMPCOPYTIMER MACRO ((X) + (PROGN (\BLT \MOUSETIMERTEMP (LOCF X) + WORDSPERCELL) + \MOUSETIMERTEMP))) ) @@ -2405,36 +2407,36 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1992, 1999, ) (* "FOLLOWING DEFINITIONS EXPORTED")(DECLARE%: EVAL@COMPILE -[PUTPROPS XKEYDOWNP MACRO ((KEYNAME) - (KEYDOWNP1 (\KEYNAMETONUMBER KEYNAME] - -[PUTPROPS KEYDOWNP1 MACRO (OPENLAMBDA (KEYNUMBER) - (DECLARE (GLOBALVARS \EM.KBDAD0 \EM.KBDAD1 \EM.KBDAD2 \EM.KBDAD3 - \EM.UTILIN \EM.KBDAD4 \EM.KBDAD5)) - (PROG NIL - (RETURN (EQ 0 (LOGAND (LRSH (LLSH 1 15) - (PROGN - (* (IMOD KEYNUMBER BITSPERWORD) - - GETD cause IMOD and BITSPERWORD not - exported to user) - (LOGAND KEYNUMBER 15))) - (\GETBASE (SELECTQ (PROGN - (* (FOLDLO KEYNUMBER BITSPERWORD) - GETD follows since FOLDLO and - BITSPERWORD not exported to user) - (LRSH KEYNUMBER 4)) - (0 \EM.KBDAD0) - (1 \EM.KBDAD1) - (2 \EM.KBDAD2) - (3 \EM.KBDAD3) - (4 \EM.UTILIN) - (5 (OR \EM.KBDAD4 (RETURN))) - (6 (OR \EM.KBDAD5 (RETURN))) - (RETURN)) - 0] - -[PUTPROPS \NEWKEYDOWNP MACRO ((KEYNUMBER) - (EQ 0 (\GETBASEBIT \LASTKEYSTATE KEYNUMBER] +(PUTPROPS XKEYDOWNP MACRO ((KEYNAME) + (KEYDOWNP1 (\KEYNAMETONUMBER KEYNAME)))) + +(PUTPROPS KEYDOWNP1 MACRO + [OPENLAMBDA (KEYNUMBER) + (DECLARE (GLOBALVARS \EM.KBDAD0 \EM.KBDAD1 \EM.KBDAD2 \EM.KBDAD3 \EM.UTILIN + \EM.KBDAD4 \EM.KBDAD5)) + (PROG NIL + (RETURN (EQ 0 (LOGAND (LRSH (LLSH 1 15) + (PROGN (* (IMOD KEYNUMBER BITSPERWORD) - + GETD cause IMOD and BITSPERWORD not + exported to user) + (LOGAND KEYNUMBER 15))) + (\GETBASE (SELECTQ (PROGN + (* (FOLDLO KEYNUMBER BITSPERWORD) + GETD follows since FOLDLO and + BITSPERWORD not exported to user) + (LRSH KEYNUMBER 4)) + (0 \EM.KBDAD0) + (1 \EM.KBDAD1) + (2 \EM.KBDAD2) + (3 \EM.KBDAD3) + (4 \EM.UTILIN) + (5 (OR \EM.KBDAD4 (RETURN))) + (6 (OR \EM.KBDAD5 (RETURN))) + (RETURN)) + 0]) + +(PUTPROPS \NEWKEYDOWNP MACRO ((KEYNUMBER) + (EQ 0 (\GETBASEBIT \LASTKEYSTATE KEYNUMBER)))) ) (* "END EXPORTED DEFINITIONS") @@ -3555,7 +3557,7 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1992, 1999, (SETQ \CURSORHOTSPOTY (fetch (POSITION YCOORD) of NEWPOSITION]) ) -(PUTPROPS CURSORPROP ARGNAMES (NIL (CURSOR PROP {NEWVALUE}) . U)) +(PUTPROPS CURSORPROP ARGNAMES (NIL (CURSOR PROP {NEWVALUE}) . U)) (RPAQ? \CURSORHOTSPOTX 0) @@ -3675,31 +3677,35 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1992, 1999, (DECLARE%: DONTCOPY (* "FOLLOWING DEFINITIONS EXPORTED")(DECLARE%: EVAL@COMPILE -[PUTPROPS \SETMOUSEXY MACRO ((XPOS YPOS) - (PROGN (SELECTC \MACHINETYPE - (\DAYBREAK (\DoveMisc.SetMousePosition XPOS YPOS)) - (\MAIKO (SUBRCALL SETMOUSEXY XPOS YPOS)) - (\DANDELION (do (PROGN (replace (IOPAGE NEWMOUSEX) - of \IOPAGE with XPOS) - (replace (IOPAGE NEWMOUSEY) - of \IOPAGE with YPOS)) - repeatuntil (ILESSP (fetch - (IOPAGE NEWMOUSESTATE - ) of - \IOPAGE) - 32768)) - (* ; - "smash position until mouse says it is not busy") - (replace (IOPAGE NEWMOUSEX) of \IOPAGE - with XPOS) - (replace (IOPAGE NEWMOUSEY) of \IOPAGE - with YPOS) - (replace (IOPAGE NEWMOUSESTATE) of - \IOPAGE - with 32768)) - NIL) - (PROGN (\PUTBASE \EM.MOUSEX 0 XPOS) - (\PUTBASE \EM.MOUSEY 0 YPOS] +(PUTPROPS \SETMOUSEXY MACRO [(XPOS YPOS) + (PROGN (SELECTC \MACHINETYPE + (\DAYBREAK (\DoveMisc.SetMousePosition XPOS YPOS)) + (\MAIKO (SUBRCALL SETMOUSEXY XPOS YPOS)) + (\DANDELION (do (PROGN (replace (IOPAGE + NEWMOUSEX) + of \IOPAGE + with XPOS) + (replace (IOPAGE + NEWMOUSEY) + of \IOPAGE + with YPOS)) + repeatuntil + (ILESSP (fetch (IOPAGE + NEWMOUSESTATE + ) + of \IOPAGE) + 32768)) + (* ; + "smash position until mouse says it is not busy") + (replace (IOPAGE NEWMOUSEX) + of \IOPAGE with XPOS) + (replace (IOPAGE NEWMOUSEY) + of \IOPAGE with YPOS) + (replace (IOPAGE NEWMOUSESTATE) + of \IOPAGE with 32768)) + NIL) + (PROGN (\PUTBASE \EM.MOUSEX 0 XPOS) + (\PUTBASE \EM.MOUSEY 0 YPOS]) ) (* "END EXPORTED DEFINITIONS") @@ -3707,12 +3713,13 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1992, 1999, (DECLARE%: EVAL@COMPILE -[PUTPROPS \XMOUSECOORD MACRO (NIL (IPLUS \CURSORHOTSPOTX (SIGNED (\GETBASE \EM.CURSORX 0) - BITSPERWORD] +(PUTPROPS \XMOUSECOORD MACRO (NIL (IPLUS \CURSORHOTSPOTX (SIGNED (\GETBASE \EM.CURSORX 0) + BITSPERWORD)))) -[PUTPROPS \YMOUSECOORD MACRO (NIL (IDIFFERENCE (SUB1 \CURSORDESTHEIGHT) - (IPLUS \CURSORHOTSPOTY (SIGNED (\GETBASE \EM.CURSORY 0) - BITSPERWORD] +(PUTPROPS \YMOUSECOORD MACRO [NIL (IDIFFERENCE (SUB1 \CURSORDESTHEIGHT) + (IPLUS \CURSORHOTSPOTY (SIGNED (\GETBASE \EM.CURSORY + 0) + BITSPERWORD]) ) ) (DECLARE%: DONTEVAL@LOAD DOCOPY @@ -3747,12 +3754,12 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1992, 1999, (USERMODE2 FLAG) (USERMODE3 FLAG) (ALTGRAPH FLAG) - (DEADKEYPENDING FLAG) (* ; "T if the last key was a dead (accent) key, and we should generate an accented character if possible.") + (DEADKEYPENDING FLAG) (* ; "T if the last key was a dead (accent) key, and we should generate an accented character if possible.") (NIL BITS 2) (MOUSEX WORD) (MOUSEY WORD) - (DEADKEY-ALIST XPOINTER) (* ; - "The ALIST describing accents possible from teh last dead key.") + (DEADKEY-ALIST XPOINTER) (* ; + "The ALIST describing accents possible from teh last dead key.") ) (CREATE (\ALLOCBLOCK (FOLDHI \KEYBOARDEVENT.SIZE WORDSPERCELL))) W0 _ ALLUP W1 _ ALLUP W2 _ ALLUP W3 _ ALLUP W4 _ ALLUP W5 _ ALLUP WU _ ALLUP MOUSESTATE @@ -3873,7 +3880,7 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1992, 1999, ) (DECLARE%: DONTCOPY -(ADDTOVAR INEWCOMS +(ADDTOVAR INEWCOMS (ALLOCAL (ADDVARS (LOCKEDFNS FLIPCURSORBAR \SETIOPOINTERS \KEYHANDLER \KEYHANDLER1 \CONTEXTAPPLY \LOCKPAGES \DECODETRANSITION \SMASHLINK \INCUSECOUNT LLSH \MAKEFREEBLOCK \DECUSECOUNT \MAKENUMBER \ADDBASE @@ -3898,7 +3905,7 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1992, 1999, (ADDTOVAR RDCOMS (FNS \SETIOPOINTERS)) ) -(PUTPROPS LLKEY FILETYPE :BCOMPL) +(PUTPROPS LLKEY FILETYPE :BCOMPL) (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDTOVAR NLAMA ) @@ -3910,33 +3917,32 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1992, 1999, (PUTPROPS LLKEY COPYRIGHT ("Venue & Xerox Corporation" 1982 1983 1984 1985 1986 1987 1988 1989 1990 1992 1999 1920 2000 2018 2021)) (DECLARE%: DONTCOPY - (FILEMAP (NIL (14777 22093 (BKSYSCHARCODE 14787 . 15136) (\CLEARSYSBUF 15138 . 15696) (\GETKEY 15698 - . 16873) (\NSYSBUFCHARS 16875 . 17617) (\SAVESYSBUF 17619 . 19228) (\SYSBUFP 19230 . 19534) ( -\GETSYSBUF 19536 . 19716) (\PUTSYSBUF 19718 . 20931) (\PEEKSYSBUF 20933 . 22091)) (23351 60185 ( -\KEYBOARDINIT 23361 . 25081) (\KEYBOARDEVENTFN 25083 . 29783) (\ALLOCLOCKED 29785 . 30375) ( -\SETIOPOINTERS 30377 . 34913) (\KEYBOARDOFF 34915 . 35329) (\KEYBOARDON 35331 . 35710) (\KEYHANDLER -35712 . 35843) (\KEYHANDLER1 35845 . 43291) (\RESETKEYBOARD 43293 . 44941) (\DOMOUSECHORDING 44943 . -48763) (\DOTRANSITIONS 48765 . 49442) (\DECODETRANSITION 49444 . 56133) (MOUSECHORDWAIT 56135 . 56799) - (\TRACKCURSOR 56801 . 60183)) (102601 124455 (KEYACTION 102611 . 103455) (KEYACTIONTABLE 103457 . -104639) (KEYBOARDTYPE 104641 . 105743) (RESETKEYACTION 105745 . 107504) ( -\KEYBOARD.MACHINE-SPECIFIC-KEYACTIONS 107506 . 109408) (\KEYACTION1 109410 . 120031) (KEYDOWNP 120033 - . 120368) (KEYNUMBERP 120370 . 120568) (\KEYNAMETONUMBER 120570 . 121264) (MODIFY.KEYACTIONS 121266 - . 122127) (METASHIFT 122129 . 123073) (SHIFTDOWNP 123075 . 124453)) (124518 124814 ( -SETUP.OFFICE.KEYBOARD 124528 . 124812)) (127754 129466 (\INIT.KEYBOARD.STREAM 127764 . 129464)) ( -129731 146108 (\DOBUFFEREDTRANSITIONS 129741 . 145171) (\TIMER.INTERRUPTFRAME 145173 . 145898) ( -\PERIODIC.INTERRUPTFRAME 145900 . 146106)) (146362 150439 (\HARDCURSORUP 146372 . 148254) ( -\HARDCURSORPOSITION 148256 . 150292) (\HARDCURSORDOWN 150294 . 150437)) (150440 174500 (CURSOR.INIT -150450 . 154150) (\CURSORDESTINATION 154152 . 156470) (\SOFTCURSORUP 156472 . 161726) ( -\SOFTCURSORUPCURRENT 161728 . 168764) (\SOFTCURSORPOSITION 168766 . 169531) (\SOFTCURSORDOWN 169533 . -170241) (CURSORPROP 170243 . 170585) (GETCURSORPROP 170587 . 170775) (PUTCURSORPROP 170777 . 171932) ( -\CURSORBITSPERPIXEL 171934 . 174050) (\CURSORIMAGEPROPNAME 174052 . 174276) (\CURSORMASKPROPNAME -174278 . 174498)) (174501 192451 (CURSORCREATE 174511 . 177186) (CURSOR 177188 . 179000) ( -\CURSOR-VALID-P 179002 . 180089) (\CURSORUP 180091 . 181806) (\CURSORPOSITION 181808 . 184336) ( -\CURSORDOWN 184338 . 184571) (ADJUSTCURSORPOSITION 184573 . 185151) (CURSORPOSITION 185153 . 186695) ( -CURSORSCREEN 186697 . 187353) (CURSOREXIT 187355 . 188746) (FLIPCURSOR 188748 . 189874) (FLIPCURSORBAR - 189876 . 190856) (LASTMOUSEX 190858 . 191112) (LASTMOUSEY 191114 . 191368) (CREATEPOSITION 191370 . -191576) (POSITIONP 191578 . 191862) (CURSORHOTSPOT 191864 . 192449)) (193685 195233 (GETMOUSESTATE -193695 . 194354) (\EVENTKEYS 194356 . 195231)) (201094 201890 (MACHINETYPE 201104 . 201504) ( -SETMAINTPANEL 201506 . 201888)) (201920 203059 (BEEPON 201930 . 202583) (BEEPOFF 202585 . 203057)) ( -203510 203773 (WITHOUT-INTERRUPTS 203520 . 203771))))) + (FILEMAP (NIL (14679 21995 (BKSYSCHARCODE 14689 . 15038) (\CLEARSYSBUF 15040 . 15598) (\GETKEY 15600 + . 16775) (\NSYSBUFCHARS 16777 . 17519) (\SAVESYSBUF 17521 . 19130) (\SYSBUFP 19132 . 19436) ( +\GETSYSBUF 19438 . 19618) (\PUTSYSBUF 19620 . 20833) (\PEEKSYSBUF 20835 . 21993)) (23292 60126 ( +\KEYBOARDINIT 23302 . 25022) (\KEYBOARDEVENTFN 25024 . 29724) (\ALLOCLOCKED 29726 . 30316) ( +\SETIOPOINTERS 30318 . 34854) (\KEYBOARDOFF 34856 . 35270) (\KEYBOARDON 35272 . 35651) (\KEYHANDLER +35653 . 35784) (\KEYHANDLER1 35786 . 43232) (\RESETKEYBOARD 43234 . 44882) (\DOMOUSECHORDING 44884 . +48704) (\DOTRANSITIONS 48706 . 49383) (\DECODETRANSITION 49385 . 56074) (MOUSECHORDWAIT 56076 . 56740) + (\TRACKCURSOR 56742 . 60124)) (93868 115217 (KEYACTION 93878 . 94722) (KEYACTIONTABLE 94724 . 95906) +(KEYBOARDTYPE 95908 . 97010) (RESETKEYACTION 97012 . 98771) (\KEYBOARD.MACHINE-SPECIFIC-KEYACTIONS +98773 . 100675) (\KEYACTION1 100677 . 110793) (KEYDOWNP 110795 . 111130) (KEYNUMBERP 111132 . 111330) +(\KEYNAMETONUMBER 111332 . 112026) (MODIFY.KEYACTIONS 112028 . 112889) (METASHIFT 112891 . 113835) ( +SHIFTDOWNP 113837 . 115215)) (115280 115576 (SETUP.OFFICE.KEYBOARD 115290 . 115574)) (118279 119991 ( +\INIT.KEYBOARD.STREAM 118289 . 119989)) (120256 136633 (\DOBUFFEREDTRANSITIONS 120266 . 135696) ( +\TIMER.INTERRUPTFRAME 135698 . 136423) (\PERIODIC.INTERRUPTFRAME 136425 . 136631)) (136887 140964 ( +\HARDCURSORUP 136897 . 138779) (\HARDCURSORPOSITION 138781 . 140817) (\HARDCURSORDOWN 140819 . 140962) +) (140965 165025 (CURSOR.INIT 140975 . 144675) (\CURSORDESTINATION 144677 . 146995) (\SOFTCURSORUP +146997 . 152251) (\SOFTCURSORUPCURRENT 152253 . 159289) (\SOFTCURSORPOSITION 159291 . 160056) ( +\SOFTCURSORDOWN 160058 . 160766) (CURSORPROP 160768 . 161110) (GETCURSORPROP 161112 . 161300) ( +PUTCURSORPROP 161302 . 162457) (\CURSORBITSPERPIXEL 162459 . 164575) (\CURSORIMAGEPROPNAME 164577 . +164801) (\CURSORMASKPROPNAME 164803 . 165023)) (165026 182976 (CURSORCREATE 165036 . 167711) (CURSOR +167713 . 169525) (\CURSOR-VALID-P 169527 . 170614) (\CURSORUP 170616 . 172331) (\CURSORPOSITION 172333 + . 174861) (\CURSORDOWN 174863 . 175096) (ADJUSTCURSORPOSITION 175098 . 175676) (CURSORPOSITION 175678 + . 177220) (CURSORSCREEN 177222 . 177878) (CURSOREXIT 177880 . 179271) (FLIPCURSOR 179273 . 180399) ( +FLIPCURSORBAR 180401 . 181381) (LASTMOUSEX 181383 . 181637) (LASTMOUSEY 181639 . 181893) ( +CREATEPOSITION 181895 . 182101) (POSITIONP 182103 . 182387) (CURSORHOTSPOT 182389 . 182974)) (184214 +185762 (GETMOUSESTATE 184224 . 184883) (\EVENTKEYS 184885 . 185760)) (192189 192985 (MACHINETYPE +192199 . 192599) (SETMAINTPANEL 192601 . 192983)) (193015 194154 (BEEPON 193025 . 193678) (BEEPOFF +193680 . 194152)) (194605 194868 (WITHOUT-INTERRUPTS 194615 . 194866))))) STOP diff --git a/sources/LLKEY.LCOM b/sources/LLKEY.LCOM index 4a7efdcf2..118d7adb9 100644 Binary files a/sources/LLKEY.LCOM and b/sources/LLKEY.LCOM differ diff --git a/sources/LLREAD b/sources/LLREAD index 272431104..6a3de82a5 100644 --- a/sources/LLREAD +++ b/sources/LLREAD @@ -1,11 +1,12 @@ (DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP") -(FILECREATED "19-Apr-2021 21:52:10"  -{DSK}kaplan>Local>medley3.5>git-medley>sources>LLREAD.;3 167165 +(FILECREATED "27-Jun-2021 23:26:36"  +{DSK}kaplan>Local>medley3.5>git-medley>sources>LLREAD.;47 97691 - changes to%: (FNS \RSTRING2) + changes to%: (FNS \PEEKCCODE.NOEOLC \INCCODE.EOLC) + (VARS LLREADCOMS) - previous date%: " 4-Feb-2021 17:06:41" -{DSK}kaplan>Local>medley3.5>git-medley>sources>LLREAD.;2) + previous date%: "24-Jun-2021 17:26:28" +{DSK}kaplan>Local>medley3.5>git-medley>sources>LLREAD.;45) (* ; " @@ -17,7 +18,7 @@ Copyright (c) 1981-1988, 1990-1991, 1993, 2021 by Venue & Xerox Corporation. (RPAQQ LLREADCOMS [(COMS (* ; "Reader entrypoints") (FNS LASTC PEEKC PEEKCCODE RATOM READ READC READCCODE READP SETREADMACROFLG - SKIPSEPRCODES SKIPSEPRS \NSIN.24BITENCODING.ERROR SKREAD)) + SKIPSEPRCODES SKIPSEPRS SKREAD)) (COMS (* ; "CommonLisp read entry points") (FNS CL:READ CL:READ-PRESERVING-WHITESPACE CL:READ-DELIMITED-LIST CL:PARSE-INTEGER) (GLOBALVARS CMLRDTBL)) @@ -25,7 +26,7 @@ Copyright (c) 1981-1988, 1990-1991, 1993, 2021 by Venue & Xerox Corporation. (FNS RSTRING READ-EXTENDED-TOKEN \RSTRING2)) [COMS (* ; "Core of the reader") (FNS \TOP-LEVEL-READ \SUBREAD \SUBREADCONCAT \ORIG-READ.SYMBOL \ORIG-INVALID.SYMBOL - \APPLYREADMACRO INREADMACROP) + \APPLYREADMACRO INREADMACROP \CHECKEOLC.CRLF) (DECLARE%: DONTEVAL@LOAD DOCOPY (P (MOVD? '\ORIG-READ.SYMBOL '\READ.SYMBOL) (MOVD? '\ORIG-INVALID.SYMBOL '\INVALID.SYMBOL] (COMS (* ; "Read macro for '") @@ -38,61 +39,18 @@ Copyright (c) 1981-1988, 1990-1991, 1993, 2021 by Venue & Xerox Corporation. (VARS CHARACTERNAMES CHARACTERSETNAMES)) (DECLARE%: DOEVAL@COMPILE DONTCOPY (CONSTANTS * READTYPES) (MACROS .CALL.SUBREAD. FIXDOT RBCONTEXT PROPRB \RDCONC) - (EXPORT (MACROS \BACKCHAR \BACKNSCHAR \CHECKEOLC \INCHAR \INCCODE \PEEKCCODE \NSIN - \NSPEEK NUMERIC-CHARSET)) (SPECVARS *READ-NEWLINE-SUPPRESS* \RefillBufferFn) (GLOBALVARS *KEYWORD-PACKAGE* *INTERLISP-PACKAGE*)) - [COMS (* ; - "Support for various external formats") - [COMS (* ; "JIS to XCCS conversion table.") - (VARS *JIS-TO-XCCS-CONV-NO-FONT-TABLE* *JIS-TO-XCCS-CODE-MAP* - *HANKAKU-TO-ZENKAKU-CODE-MAP*) - (GLOBALVARS *JIS-TO-XCCS-CONV-NO-FONT-TABLE* *JIS-TO-XCCS-CONV-TABLE-LIST* - *JIS-TO-XCCS-CODE-MAP* *HANKAKU-TO-ZENKAKU-CODE-MAP* - *JIS-1KU-TO-XCCS-CONV-TABLE* *JIS-2KU-TO-XCCS-CONV-TABLE* - *JIS-6KU-TO-XCCS-CONV-TABLE* *XCCS-TO-JIS-CONV-TABLE* - *HANKAKU-TO-ZENKAKU-CONV-TABLE* *ZENKAKU-TO-HANKAKU-CONV-TABLE*) - (FNS \MAKE.JIS.TO.XCCS.CONV.TABLE) - (DECLARE%: DONTEVAL@LOAD DOCOPY (P (\MAKE.JIS.TO.XCCS.CONV.TABLE] - [COMS (* ; "JIS to XCCS converter") - (INITVARS (*REPLACE-NO-FONT-CODE* T) - (*DEFAULT-NOT-CONVERTED-FAT-CODE* 8739)) - (GLOBALVARS *REPLACE-NO-FONT-CODE* *DEFAULT-NOT-CONVERTED-FAT-CODE*) - (DECLARE%: DOEVAL@COMPILE DONTCOPY (EXPORT (MACROS \CONV.JIS.TO.XCCS - \DO.CONV.JIS.TO.XCCS] - [COMS (* ; "XCCS to JIS converter") - (FNS CONVHANKAKU) - (DECLARE%: DOEVAL@COMPILE DONTCOPY (EXPORT (MACROS \CONV.XCCS.TO.JIS - \DO.CONV.XCCS.TO.JIS \ASCIIP - \NOT.EQUIVALENT.TO.JIS - \CONV.HANKAKU.TO.ZENKAKUP - \CONV.ZENKAKU.KANA] - (COMS (FNS \JISIN \JISPEEK \BACKJISCHAR \SHIFTJISIN \SHIFTJISPEEK \BACKSHIFTJISCHAR - \EUCIN \EUCPEEK \BACKEUCCHAR \THROUGHIN \THROUGHPEEK \BACKTHROUGHCHAR) - (DECLARE%: DOEVAL@COMPILE DONTCOPY - (EXPORT - - (* ;; "XCCS specific macro. Although the decoder and encoder are implemented as functions in general, only for XCCS, they are implemeted as macros for efficiency reason.") - - (MACROS \XCCSIN \XCCSPEEK \BACKXCCSCHAR \XCCSP) - - (* ;; "JIS specific macro") - - (MACROS \EXTRACT.NO.FONT.CODE \EXTARACT.CONV.TABLE - \NOT.EQUIVALENT.TO.XCCS \EXTRACT.SET \EXTRACT.CODE - \CHNAGE.KI.MODE \KIMODEP \HANKAKUP \KANJIP \NOTGAIJIP - \INVALID.TENP \CONV.HANKAKU.KANA \OUTKI \OUTKO) - - (* ;; "Shift-JIS specific macro") - - (MACROS \CONV.SJIS.TO.JIS \CONV.JIS.TO.SJIS \SJIS.KANJI.FIRST.BYTEP - ) - - (* ;; "EUC specific macro") - - (MACROS \EUC.KANJI.FIRST.BYTEP \GAIJIP \EUC.HANKAKUP] - (INITVARS (*SIGNAL-24BIT-NSENCODING-ERROR*) - (*READ-NEWLINE-SUPPRESS*) + (COMS + (* ;; "Generic functions not compiled open") + + (FNS \OUTCHAR \INCCODE \BACKCCODE \PEEKCCODE \PEEKCCODE.NOEOLC \INCHAR \INCCODE.EOLC + \FORMATBYTESTREAM) + (MACROS \CHECKEOLC)) + (COMS (INITVARS (*REPLACE-NO-FONT-CODE* T) + (*DEFAULT-NOT-CONVERTED-FAT-CODE* 8739)) + (GLOBALVARS *REPLACE-NO-FONT-CODE* *DEFAULT-NOT-CONVERTED-FAT-CODE*)) + (INITVARS (*READ-NEWLINE-SUPPRESS*) (\RefillBufferFn (FUNCTION \READCREFILL))) (* ;  "Top level val of \RefillBufferFn means act like READC--we must be doing a raw BIN (or PEEKBIN?)") @@ -100,8 +58,8 @@ Copyright (c) 1981-1988, 1990-1991, 1993, 2021 by Venue & Xerox Corporation. (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA) (NLAML) - (LAMA CONVHANKAKU CL:PARSE-INTEGER CL:READ-DELIMITED-LIST - CL:READ-PRESERVING-WHITESPACE CL:READ]) + (LAMA CL:PARSE-INTEGER CL:READ-DELIMITED-LIST CL:READ-PRESERVING-WHITESPACE + CL:READ]) @@ -110,19 +68,12 @@ Copyright (c) 1981-1988, 1990-1991, 1993, 2021 by Venue & Xerox Corporation. (DEFINEQ (LASTC - [LAMBDA (FILE) (* ; "Edited 6-Jan-88 15:31 by jds") - - (* ;; "Be careful only to do BIN's if we first were able to back up, so that an EOF doesn't happen. This is really an inadequate implementation, because it fails for files that cannot be backed up. Eventually, we must change the character reading functions READ, RATOM, READC to save the last character they read in an STREAM field.") - - (LET* ((STREAM (\GETSTREAM FILE 'INPUT)) - (LASTCCODE (FETCH (STREAM LASTCCODE) OF STREAM))) - - (* ;; "(FCHARACTER (SELCHARQ C (CR (SELECTC (ffetch EOLCONVENTION of STREAM) (CR.EOLC (CHARCODE EOL)) C)) (LF (SELECTC (ffetch EOLCONVENTION of STREAM) (LF.EOLC (CHARCODE EOL)) (CRLF.EOLC (COND ((EQ (CHARCODE CR) (UNINTERRUPTABLY (AND (\BACKNSCHAR STREAM SHIFTEDCHARSET) (PROG1 (PROGN (\BACKNSCHAR STREAM SHIFTEDCHARSET) (\NSIN STREAM SHIFTEDCHARSET)) (\NSIN STREAM SHIFTEDCHARSET))))) (CHARCODE EOL)) (T C))) C)) (NIL 0) C))") - - (COND - ((IEQP LASTCCODE 65535) - NIL) - (T (FCHARACTER LASTCCODE]) + [LAMBDA (FILE) (* ; "Edited 3-May-2021 16:45 by rmk:") + (LET [(LASTCCODE (FETCH (STREAM LASTCCODE) OF (\GETSTREAM FILE 'INPUT] + (COND + ((IEQP LASTCCODE 65535) + NIL) + (T (FCHARACTER LASTCCODE]) (PEEKC [LAMBDA (FILE FLG) (* rmk%: "10-Apr-85 11:55") @@ -135,11 +86,11 @@ Copyright (c) 1981-1988, 1990-1991, 1993, 2021 by Venue & Xerox Corporation. (FCHARACTER (PEEKCCODE STREAM]) (PEEKCCODE - [LAMBDA (FILE NOERROR) (* bvm%: "12-Sep-86 15:19") - (LET [(\RefillBufferFn (FUNCTION \PEEKREFILL)) - (STREAM (\GETSTREAM FILE 'INPUT] + [LAMBDA (FILE NOERROR) (* ; "Edited 3-May-2021 16:47 by rmk:") + (LET ((\RefillBufferFn (FUNCTION \PEEKREFILL))) (DECLARE (SPECVARS \RefillBufferFn)) - (\PEEKCCODE STREAM NOERROR]) + (\PEEKCCODE (\GETSTREAM FILE 'INPUT) + NOERROR]) (RATOM [LAMBDA (FILE RDTBL) (* ; "Edited 30-Mar-87 17:21 by bvm:") @@ -174,21 +125,31 @@ Copyright (c) 1981-1988, 1990-1991, 1993, 2021 by Venue & Xerox Corporation. (\TOP-LEVEL-READ FILE NIL NIL NIL T]) (READC - [LAMBDA (FILE RDTBL) (* ; "Edited 6-Jan-88 15:30 by jds") + [LAMBDA (FILE RDTBL) (* ; "Edited 22-Jun-2021 09:50 by rmk:") + (SETQ FILE (\GETSTREAM FILE 'INPUT)) (LET ((*READTABLE* (\GTREADTABLE RDTBL)) - (\RefillBufferFn (FUNCTION \READCREFILL))) + (\RefillBufferFn (FUNCTION \READCREFILL)) + (CODE (\INCHAR FILE))) (DECLARE (SPECVARS *READTABLE* \RefillBufferFn)) - (FCHARACTER (REPLACE (STREAM LASTCCODE) OF (\INSTREAMARG FILE) - WITH (\INCCODE (\INSTREAMARG FILE]) + (CL:WHEN (\CHARCODEP CODE) (* ; + "If not a charcode, we must have run off the end with an ENDOFSTREAMOP") + (freplace (STREAM LASTCCODE) of FILE with CODE) + (FCHARACTER CODE))]) (READCCODE - [LAMBDA (FILE RDTBL) (* ; "Edited 3-Jun-88 01:30 by atm") + [LAMBDA (STREAM RDTBL) (* ; "Edited 22-Jun-2021 09:47 by rmk:") -(* ;;; "returns a 16 bit character code. \INCHAR does the EOL conversion and this function converts to a 16 bit value. Saves the character for LASTC as well.") +(* ;;; "returns a 16 bit character code. \INCHAR does the EOL conversion. Saves the character for LASTC as well.") - (SETQ FILE (\GETSTREAM FILE 'INPUT)) - (FDEVOP 'READCHARCODE (fetch (STREAM DEVICE) of FILE) - FILE RDTBL]) + (SETQ STREAM (\GETSTREAM STREAM 'INPUT)) + (LET ((*READTABLE* (\GTREADTABLE RDTBL)) + (\RefillBufferFn (FUNCTION \READCREFILL)) + (CODE (\INCHAR STREAM))) + (DECLARE (SPECVARS *READTABLE* \RefillBufferFn)) + (CL:WHEN (\CHARCODEP CODE) (* ; + "If not a charcode, we must have run off the end with an ENDOFSTREAMOP") + (freplace (STREAM LASTCCODE) of STREAM with CODE)) + CODE]) (READP [LAMBDA (FILE FLG) (* rmk%: " 5-Apr-85 09:09") @@ -208,54 +169,29 @@ Copyright (c) 1981-1988, 1990-1991, 1993, 2021 by Venue & Xerox Corporation. NIL]) (SKIPSEPRCODES - [LAMBDA (FILE RDTBL) (* ; "Edited 6-Jan-88 13:09 by jds") + [LAMBDA (FILE RDTBL) (* ; "Edited 18-Jun-2021 11:38 by rmk:") + + (* ;; "Passes over non-separators to peek at the first non-separator on FILE. Returns either last peeked character, or NIL if no non-seprs left in the file.") - (* ;; "Passes over non-separators to peek at the first non-separator on FILE. Returns either last peeked character, or NIL if no non-seprs left in the file.") + (* ;; "Assumes that CR and LF are both seprs so that no EOL processing is needed.") - (bind PREVC C SHIFTEDCHARSET (STREAM _ (\GETSTREAM FILE 'INPUT)) + (bind PREVC C (STRM _ (\GETSTREAM FILE 'INPUT)) (SA _ (fetch (READTABLEP READSA) of (\GTREADTABLE RDTBL))) - (\RefillBufferFn _ '\PEEKREFILL) first (SETQ SHIFTEDCHARSET (UNFOLD (ACCESS-CHARSET - STREAM) - 256)) - declare (SPECVARS \RefillBufferFn) - while [EQ SEPRCHAR.RC (\SYNCODE SA (SETQ C (OR (\NSPEEK STREAM SHIFTEDCHARSET - SHIFTEDCHARSET T) + (\RefillBufferFn _ '\PEEKREFILL) declare (SPECVARS \RefillBufferFn) + while [EQ SEPRCHAR.RC (\SYNCODE SA (SETQ C (OR (\PEEKCCODE STRM T) (RETURN] do (SETQ PREVC C) - (\NSIN STREAM SHIFTEDCHARSET - SHIFTEDCHARSET) - finally (AND PREVC (replace (STREAM LASTCCODE) of STREAM with PREVC)) + (\INCCODE STRM) + finally (AND PREVC (replace (STREAM LASTCCODE) of STRM with PREVC)) (RETURN C]) (SKIPSEPRS - [LAMBDA (FILE RDTBL) (* ; "Edited 11-Sep-87 17:52 by bvm:") + [LAMBDA (FILE RDTBL) (* ; "Edited 18-Jun-2021 11:39 by rmk:") - (* ;; "Passes over non-separators to peek at the first non-separator on FILE. Returns either last peeked character, or NIL if no non-seprs left in the file.") + (* ;; "Passes over non-separators to peek at the first non-separator on FILE. Returns either last peeked character, or NIL if no non-seprs left in the file.") - (bind C SHIFTEDCHARSET (STREAM _ (\GETSTREAM FILE 'INPUT)) - (SA _ (fetch (READTABLEP READSA) of (\GTREADTABLE RDTBL))) - (\RefillBufferFn _ '\PEEKREFILL) first (SETQ SHIFTEDCHARSET (UNFOLD (ACCESS-CHARSET - STREAM) - 256)) - declare (SPECVARS \RefillBufferFn) - while [EQ SEPRCHAR.RC (\SYNCODE SA (SETQ C (OR (\NSPEEK STREAM SHIFTEDCHARSET - SHIFTEDCHARSET T) - (RETURN] do (\NSIN STREAM - SHIFTEDCHARSET - SHIFTEDCHARSET) - finally (RETURN (FCHARACTER C]) - -(\NSIN.24BITENCODING.ERROR - [LAMBDA (STREAM) (* bvm%: "12-Mar-86 15:35") - (DECLARE (USEDFREE *SIGNAL-24BIT-NSENCODING-ERROR*)) - -(* ;;; "Called if we see the sequence shift,shift on STREAM -- means shift to 24-bit character set, which we don't support. Usually this just means we're erroneously reading a binary file as text. If this function returns, its value is taken as a character set to shift to") - - (COND - (*SIGNAL-24BIT-NSENCODING-ERROR* (* ; - "Only cause error if user/reader cares") - (ERROR "24-bit NS encoding not supported" STREAM))) - (* ; "Return charset zero") - 0]) + (LET (C) + (AND (SETQ C (SKIPSEPRCODES FILE RDTBL)) + (FCHARACTER C]) (SKREAD [LAMBDA (FILE REREADSTRING RDTBL) (* ; "Edited 6-Apr-88 11:06 by amd") @@ -464,50 +400,42 @@ Copyright (c) 1981-1988, 1990-1991, 1993, 2021 by Venue & Xerox Corporation. \PNAMESTRING]) (READ-EXTENDED-TOKEN - [LAMBDA (STREAM RDTBL ESCAPE-ALLOWED-P) (* ; "Edited 11-Sep-87 16:23 by bvm:") + [LAMBDA (STRM RDTBL ESCAPE-ALLOWED-P) (* ; "Edited 23-Jun-2021 13:04 by rmk:") - (* ;; "This is a cross between RSTRING and \SUBREAD. Read a %"token%" from STREAM, as defined by the Common Lisp reader and the syntax in RDTBL. EOF terminates as well. If ESCAPE-ALLOWED-P is true, escapes are honored and if one appears, a second value of T is returned. Otherwise, escapes are treated as vanilla chars and the caller can barf on them itself if it desires.") + (* ;; "This is a cross between RSTRING and \SUBREAD. Read a %"token%" from STREAM, as defined by the Common Lisp reader and the syntax in RDTBL. EOF terminates as well. If ESCAPE-ALLOWED-P is true, escapes are honored and if one appears, a second value of T is returned. Otherwise, escapes are treated as vanilla chars and the caller can barf on them itself if it desires.") (SETQ RDTBL (\GTREADTABLE RDTBL)) (WITH-RESOURCE (\PNAMESTRING) (PROG ((CASEBASE (AND (fetch (READTABLEP CASEINSENSITIVE) of RDTBL) (fetch (ARRAYP BASE) of UPPERCASEARRAY))) (PBASE (ffetch (STRINGP XBASE) of \PNAMESTRING)) - (SHIFTEDCHARSET (UNFOLD (ACCESS-CHARSET STREAM) - 256)) (J 0) (SA (fetch READSA of RDTBL)) CH SNX ANSLIST ANSTAIL ESCAPE-APPEARED ESCAPING FATSEEN) - LP (if (\EOFP STREAM) - then (* ; - "end of file terminates string just like a sepr/break") + LP (if (\EOFP STRM) + then (* ; + "end of file terminates string just like a sepr/break") (GO FINISH)) - (SETQ CH (\NSIN STREAM SHIFTEDCHARSET SHIFTEDCHARSET)) - (* ; "NOTE: This should really be (\CHECKEOLC (\NSIN --) --), but eol is usually a break or sepr and the \BACKNSCHAR doesn't work right. Fix this when we unread correctly") + (SETQ CH (\INCCODE STRM)) (* ; "NOTE: This should really be (\INCHAR --) --), but eol is usually a break or sepr and the \BACKNSCHAR doesn't work right. Fix this when we unread correctly") (SETQ SNX (\SYNCODE SA CH)) [COND ((AND ESCAPE-ALLOWED-P (SELECTC SNX - (ESCAPE.RC (SETQ CH (\CHECKEOLC (\NSIN STREAM - SHIFTEDCHARSET - SHIFTEDCHARSET) - (ffetch EOLCONVENTION - of STREAM) - STREAM)) + (ESCAPE.RC (SETQ CH (\INCHAR STRM)) (SETQ ESCAPE-APPEARED T)) (MULTIPLE-ESCAPE.RC (SETQ ESCAPING (NOT ESCAPING)) (SETQ ESCAPE-APPEARED T) (GO LP)) NIL))) - (ESCAPING (* ; "eat chars until next |")) + (ESCAPING (* ; "eat chars until next |")) ((fetch STOPATOM of SNX) - (\BACKNSCHAR STREAM SHIFTEDCHARSET) + (\BACKCCODE STRM) (GO FINISH)) ((AND CASEBASE (ILEQ CH \MAXTHINCHAR)) (SETQ CH (\GETBASEBYTE CASEBASE CH] (COND - ((EQ J \PNAMELIMIT) (* ; - "Filled PNSTR so have to save those chars away and start filling up a new buffer") + ((EQ J \PNAMELIMIT) (* ; + "Filled PNSTR so have to save those chars away and start filling up a new buffer") (SETQ J (\SMASHSTRING (ALLOCSTRING J NIL NIL FATSEEN) 0 \PNAMESTRING J)) [COND @@ -528,38 +456,30 @@ Copyright (c) 1981-1988, 1990-1991, 1993, 2021 by Venue & Xerox Corporation. (ANSLIST (RPLACD ANSTAIL (SETQ ANSTAIL (CONS J NIL))) (SETQ J (CONCATLIST ANSLIST] (RETURN (if ESCAPE-APPEARED - then (* ; - "do it this way because multiple values are slow") + then (* ; + "do it this way because multiple values are slow") (CL:VALUES J T) else J]) (\RSTRING2 - [LAMBDA (STREAM SA RSFLG PNSTR) (* ; "Edited 19-Apr-2021 21:52 by rmk:") + [LAMBDA (STRM SA RSFLG PNSTR) (* ; "Edited 23-Jun-2021 13:02 by rmk:") (* ;;; "The main string reader. Reads characters from STREAM according to the syntax table SA and returns a string. PNSTR is an instance of the global resource \PNAMESTRING, which we can use all to ourselves as a buffer.") (* ;;; "If RSFLG is T then the call is from RSTRING, in which case the string is terminated by a break or sepr in SA. If RSFLG is NIL then the string is terminated by a string delimiter. If RSFLG is SKIP then CR's and the following separator chars are discarded as an otherwise normal string is read") (DECLARE (USEDFREE *READTABLE* *READ-SUPPRESS*)) - (PROG ((EOLC (ffetch EOLCONVENTION of STREAM)) - (PBASE (SELECTQ (SYSTEMTYPE) - (VAX PNSTR) - (ffetch (STRINGP XBASE) of PNSTR))) - (SHIFTEDCHARSET (UNFOLD (ACCESS-CHARSET STREAM) - 256)) + (PROG ((EOLC (ffetch EOLCONVENTION of STRM)) + (PBASE (ffetch (STRINGP XBASE) of PNSTR)) (J 0) - EOLCHAR CH SNX ANSLIST ANSTAIL LASTC FATSEEN SKIPPING) - (SELECTC EOLC - (CRLF.EOLC (SETQ EOLCHAR (CHARCODE CR))) - (CR.EOLC (SETQ EOLCHAR (CHARCODE CR))) - (LF.EOLC (SETQ EOLCHAR (CHARCODE LF))) - NIL) + CH SNX ANSLIST ANSTAIL LASTC FATSEEN SKIPPING) RS2LP - (SETQ CH (\NSIN STREAM SHIFTEDCHARSET SHIFTEDCHARSET)) + (SETQ CH (\INCCODE STRM)) [COND - ((EQ CH EOLCHAR) + ((OR (EQ CH (CHARCODE LF)) + (EQ CH (CHARCODE CR))) - (* ;; "We just read the stream's EOL character, so we have to turn it into our EOL. Most places do this with \CHECKEOLC, but we can't do that here, because if the eol is CRLF and would terminate the read, \BACKNSCHAR won't work right.") + (* ;; "We just read a potential (first) EOL character, so we have to turn it into our EOL. Most places do this with \CHECKEOLC, but we can't do that here, because if the eol happens to be a CR-LF sequence and would terminate the read, \BACKCCODE won't work right.") (* ;; "An escaped LF is handled below, stays as LF even from an LF file.") @@ -567,14 +487,15 @@ Copyright (c) 1981-1988, 1990-1991, 1993, 2021 by Venue & Xerox Corporation. ([AND (EQ RSFLG T) (fetch STOPATOM of (\SYNCODE SA (CHARCODE CR] (* ; - "From RSTRING, eol terminates read. Leave eol in buffer") - (\BACKNSCHAR STREAM SHIFTEDCHARSET) + "From RSTRING, eol terminates read. Leave (the first) eol in buffer") + (\BACKCCODE STRM) (GO FINISH)) (T (COND - ((AND (EQ EOLC CRLF.EOLC) - (EQ (\PEEKBIN STREAM T) + ((AND (OR (EQ EOLC CRLF.EOLC) + (EQ EOLC ANY.EOLC)) + (EQ (\PEEKBIN STRM T) (CHARCODE LF))) (* ; "Eat the LF after the CR") - (\BIN STREAM))) + (\BIN STRM))) (SETQ CH (CHARCODE EOL] (SETQ SNX (\SYNCODE SA CH)) (SELECTC SNX @@ -585,12 +506,12 @@ Copyright (c) 1981-1988, 1990-1991, 1993, 2021 by Venue & Xerox Corporation. [COND ((fetch ESCAPEFLG of *READTABLE*) - (SETQ CH (\NSIN STREAM SHIFTEDCHARSET SHIFTEDCHARSET)) + (SETQ CH (\INCCODE STRM)) (COND ((EQ CH (CHARCODE LF)) (* ;  "An escaped LF stays as an LF, even from a LF file.") (GO PUTCHAR)) - (T (SETQ CH (\CHECKEOLC CH EOLC STREAM)) + (T (SETQ CH (\CHECKEOLC CH EOLC STRM)) (COND ((AND (EQ RSFLG 'SKIP) (EQ CH (CHARCODE EOL))) @@ -608,7 +529,7 @@ Copyright (c) 1981-1988, 1990-1991, 1993, 2021 by Venue & Xerox Corporation.  "if called from RSTRING, end check is break or sepr, and we must leave delim in stream") (COND ((fetch STOPATOM of SNX) - (\BACKNSCHAR STREAM SHIFTEDCHARSET) + (\BACKCCODE STRM) (GO FINISH)))) (SKIP (* ;  "Like NIL but strip cr's and leading spaces") @@ -662,10 +583,10 @@ Copyright (c) 1981-1988, 1990-1991, 1993, 2021 by Venue & Xerox Corporation. (SETQ J (ADD1 J] (COND ((OR (NEQ RSFLG T) - (NOT (\EOFP STREAM))) (* ; "in RSTRING (RSFLG=T), if we've read something already, then end of file terminates string just like a sepr/break") + (NOT (\EOFP STRM))) (* ; "in RSTRING (RSFLG=T), if we've read something already, then end of file terminates string just like a sepr/break") (GO RS2LP))) FINISH - (AND LASTC (replace (STREAM LASTCCODE) of STREAM with LASTC)) + (AND LASTC (freplace (STREAM LASTCCODE) of STRM with LASTC)) (RETURN (COND ((NOT *READ-SUPPRESS*) (SETQ J (\SMASHSTRING (ALLOCSTRING J NIL NIL FATSEEN) @@ -714,149 +635,134 @@ Copyright (c) 1981-1988, 1990-1991, 1993, 2021 by Venue & Xerox Corporation. (REPLACE ENDOFSTREAMOP OF STREAM WITH OLD-EOS-OP))]) (\SUBREAD - [LAMBDA (STREAM SA READTYPE PNSTR CASEBASE EOF-SUPPRESS EOF-VALUE CHAR PRESERVE-WHITESPACE) - (* ; "Edited 7-Jan-88 18:38 by jds") + [LAMBDA (STRM SA READTYPE PNSTR CASEBASE EOF-SUPPRESS EOF-VALUE CHAR PRESERVE-WHITESPACE) + (* ; "Edited 23-Jun-2021 13:00 by rmk:") - (* ;; "Values of READTYPE are: --- READ.RT for top level of READ, --- NOPROPRB.RT if right-bracket isn't to be propagated -- sublist beginning with left-bracket --- PROPRB.RT if propagation is not suppressed -- sublist beginning with left-paren --- RATOM.RT for call from RATOM") + (* ;; "Values of READTYPE are: --- READ.RT for top level of READ, --- NOPROPRB.RT if right-bracket isn't to be propagated -- sublist beginning with left-bracket --- PROPRB.RT if propagation is not suppressed -- sublist beginning with left-paren --- RATOM.RT for call from RATOM") - (* ;; "PNSTR is an instance of the global resource \PNAMESTRING, acquired in READ and passed on from level to level. It is released during read-macro applications, then reacquired.") + (* ;; "PNSTR is an instance of the global resource \PNAMESTRING, acquired in READ and passed on from level to level. It is released during read-macro applications, then reacquired.") - (* ;; "CASEBASE is base of uppercasearray if read table is case-insensitive.") + (* ;; "CASEBASE is base of uppercasearray if read table is case-insensitive.") - (* ;; "If EOF-SUPPRESS is true, then if we are at end of file we should return EOF-VALUE instead of erroring (we need this because we might actually be sitting before end of file in front of something that reads nothing, e.g., a comment, so caller can't check EOFP itself). Always false on recursive calls.") + (* ;; "If EOF-SUPPRESS is true, then if we are at end of file we should return EOF-VALUE instead of erroring (we need this because we might actually be sitting before end of file in front of something that reads nothing, e.g., a comment, so caller can't check EOFP itself). Always false on recursive calls.") - (* ;; "If CHAR is supplied, it is a character code which, when read (in isolation), should terminate this call to read. Never on when at top-level.") + (* ;; "If CHAR is supplied, it is a character code which, when read (in isolation), should terminate this call to read. Never on when at top-level.") - (* ;; "\RBFLG is propagated for top-level calls, in case they are embedded in read-macros. SKREAD also depends on this.") + (* ;; "\RBFLG is propagated for top-level calls, in case they are embedded in read-macros. SKREAD also depends on this.") - (* ;; - "If PRESERVE-WHITESPACE is true, doesn't throw away the whitespace that terminates the read.") + (* ;; + "If PRESERVE-WHITESPACE is true, doesn't throw away the whitespace that terminates the read.") (DECLARE (USEDFREE *READTABLE* \RBFLG)) - (* ;; "\RDCONC is a macro that adds a new element as specified by its first argument to the current sublist. Its other arguments will be executed instead if we are the top-level call") + (* ;; "\RDCONC is a macro that adds a new element as specified by its first argument to the current sublist. Its other arguments will be executed instead if we are the top-level call") (PROG ((TOPLEVELP (SELECTC READTYPE ((LIST READ.RT RATOM.RT) T) NIL)) - (SHIFTEDCHARSET (UNFOLD (ACCESS-CHARSET STREAM) - 256)) - (PBASE (SELECTQ (SYSTEMTYPE) - (VAX PNSTR) - (ffetch (STRINGP XBASE) of PNSTR))) + (PBASE (ffetch (STRINGP XBASE) of PNSTR)) SNX LST END ELT DOTLOC CH J ESCAPEFLG INVALIDFLG PACKAGE NCOLONS AT-EOF EOF-POSSIBILITY EXTRASEGMENTS LASTC) - (if (AND TOPLEVELP (NOT (\INTERMP STREAM))) + (if (AND TOPLEVELP (NOT (\INTERMP STRM))) then - (* ;; "EOF is allowed to terminate tokens on direct READ calls. Not if reading from terminal, because \FILLBUFFER made sure to put something at the end.") + (* ;; "EOF is allowed to terminate tokens on direct READ calls. Not if reading from terminal, because \FILLBUFFER made sure to put something at the end.") (SETQ EOF-POSSIBILITY T)) NEWTOKEN - (* ;; "Here ready to scan a new token. First skip over separator characters") + (* ;; "Here ready to scan a new token. First skip over separator characters") (SETQ J 0) [SETQ EXTRASEGMENTS (SETQ INVALIDFLG (SETQ ESCAPEFLG (SETQ PACKAGE (SETQ NCOLONS NIL] - (if (AND EOF-SUPPRESS (NULL (SKIPSEPRCODES STREAM))) - then (* ; - "caller specified eof-error-p of NIL. Happens only on top-level calls") - (RETURN EOF-VALUE)) - (SETQ SHIFTEDCHARSET (UNFOLD (ACCESS-CHARSET STREAM) - 256)) (* ; "By Skipping Separator Characters,Happens CHARSET-Mode Exchanging. (Solution of AR#114 in FX, edited by tt [Jan-22-'90])") - (repeatwhile (EQ [SETQ SNX (\SYNCODE SA (SETQ CH (\NSIN STREAM SHIFTEDCHARSET - SHIFTEDCHARSET] + (if (AND EOF-SUPPRESS (NULL (SKIPSEPRCODES STRM))) + then (* ; + "caller specified eof-error-p of NIL. Happens only on top-level calls") + (RETURN EOF-VALUE)) (* ; "By Skipping Separator Characters,Happens CHARSET-Mode Exchanging. (Solution of AR#114 in FX, edited by tt [Jan-22-'90])") + (repeatwhile (EQ [SETQ SNX (\SYNCODE SA (SETQ CH (\INCCODE STRM] SEPRCHAR.RC)) (COND - ((EQ CH CHAR) (* ; - "Read desired terminating char. TOPLEVELP is always false here") - (replace (STREAM LASTCCODE) of STREAM with CH) - (* ; "Save last char for LASTC.") + ((EQ CH CHAR) (* ; + "Read desired terminating char. TOPLEVELP is always false here") + (freplace (STREAM LASTCCODE) of STRM with CH) + (* ; "Save last char for LASTC.") (RETURN LST)) - ((EQ SNX OTHER.RC) (* ; "Start of an atom") + ((EQ SNX OTHER.RC) (* ; "Start of an atom") (COND ([AND (EQ CH (CHARCODE %.)) - (fetch STOPATOM of (\SYNCODE SA (\NSPEEK STREAM SHIFTEDCHARSET - SHIFTEDCHARSET] + (fetch STOPATOM of (\SYNCODE SA (\PEEKCCODE STRM] - (* ;; "An isolated, unescaped dot. This special check on every atom could be eliminated if . had a special SNX code") + (* ;; "An isolated, unescaped dot. This special check on every atom could be eliminated if . had a special SNX code") - (SETQ DOTLOC END) (* ; - "DOTLOC points to CONS cell one before the dot, NIL for car of list, as desired.") + (SETQ DOTLOC END) (* ; + "DOTLOC points to CONS cell one before the dot, NIL for car of list, as desired.") )) (GO GOTATOMCHAR)) - [(fetch STOPATOM of SNX) (* ; - "This character definitely does not start an atom") + [(fetch STOPATOM of SNX) (* ; + "This character definitely does not start an atom") (COND ((EQ READTYPE RATOM.RT) (GO SINGLECHARATOM)) (T (GO BREAK] - ((EQ SNX PACKAGEDELIM.RC) (* ; - "Starting a symbol with a package delimiter -- must be a keyword") + ((EQ SNX PACKAGEDELIM.RC) (* ; + "Starting a symbol with a package delimiter -- must be a keyword") (SETQ NCOLONS 1) (SETQ PACKAGE *KEYWORD-PACKAGE*) (SETQ ESCAPEFLG T) (GO NEXTATOMCHAR)) [(AND (SELECTC (fetch MACROCONTEXT of SNX) (FIRST.RMC T) - (ALONE.RMC (fetch STOPATOM of (\SYNCODE SA (\NSPEEK STREAM - SHIFTEDCHARSET - SHIFTEDCHARSET)))) + (ALONE.RMC (fetch STOPATOM of (\SYNCODE SA (\PEEKCCODE STRM)))) NIL) (fetch READMACROFLG of *READTABLE*)) (COND ((EQ READTYPE RATOM.RT) (GO SINGLECHARATOM)) (T (GO MACRO] - (T (* ; - "Some character that starts an atom but has non-trivial syntax attributes") + (T (* ; + "Some character that starts an atom but has non-trivial syntax attributes") )) ATOMLOOP - (* ;; "At this point, we are accumulating an atom, and CH does not have syntax OTHER, so we have to check special cases") + (* ;; "At this point, we are accumulating an atom, and CH does not have syntax OTHER, so we have to check special cases") (SELECTC SNX - (ESCAPE.RC (* ; - "Take next character to be alphabetic, case exact") + (ESCAPE.RC (* ; + "Take next character to be alphabetic, case exact") (COND ((fetch ESCAPEFLG of *READTABLE*) - (SETQ CH (\CHECKEOLC (\NSIN STREAM SHIFTEDCHARSET SHIFTEDCHARSET) - (ffetch EOLCONVENTION of STREAM) - STREAM)) (* ; - "No EOFP check needed -- it's an error to have escape char with nothing following") + (SETQ CH (\INCHAR STRM)) (* ; + "No EOFP check needed -- it's an error to have escape char with nothing following") (SETQ ESCAPEFLG T) (GO PUTATOMCHAR)))) (MULTIPLE-ESCAPE.RC - (* ;; "Take characters up to next multiple escape to be alphabetic, except that single escape chars still escape the next char") + (* ;; "Take characters up to next multiple escape to be alphabetic, except that single escape chars still escape the next char") (SETQ ESCAPEFLG T) - [bind ESCFLG do (SETQ CH (\CHECKEOLC (\NSIN STREAM SHIFTEDCHARSET - SHIFTEDCHARSET) - (ffetch EOLCONVENTION of STREAM) - STREAM)) + [bind ESCFLG do (SETQ CH (\INCHAR STRM)) (COND ([NOT (COND (ESCFLG (SETQ ESCFLG NIL)) (T (SELECTC (SETQ SNX (\SYNCODE SA CH)) (MULTIPLE-ESCAPE.RC - (* ; - "Finished escaped sequence, resume normal processing") + (* ; + "Finished escaped sequence, resume normal processing") (GO NEXTATOMCHAR)) (ESCAPE.RC - (* ; - "Pass the next char thru verbatim") + (* ; + "Pass the next char thru verbatim") (SETQ ESCFLG T)) NIL] - (* ; - "All others are pname chars, quoted") + (* ; + "All others are pname chars, quoted") (if (NOT *READ-SUPPRESS*) then (COND ((EQ J \PNAMELIMIT) - (* ; - "if there have been escapes, can't be a number, so ok to error now.") + (* ; + "if there have been escapes, can't be a number, so ok to error now.") (LISPERROR "ATOM TOO LONG" (\SUBREADCONCAT EXTRASEGMENTS PBASE J)) @@ -867,34 +773,33 @@ Copyright (c) 1981-1988, 1990-1991, 1993, 2021 by Venue & Xerox Corporation. GOTATOMCHAR - (* ;; "CH is a vanilla atom char to accumulate") + (* ;; "CH is a vanilla atom char to accumulate") [COND - ((AND CASEBASE (ILEQ CH \MAXTHINCHAR)) (* ; "Uppercase atom characters") + ((AND CASEBASE (ILEQ CH \MAXTHINCHAR)) (* ; "Uppercase atom characters") (SETQ CH (\GETBASEBYTE CASEBASE CH] PUTATOMCHAR (if (NOT *READ-SUPPRESS*) then (COND - ((EQ J \PNAMELIMIT) (* ; "Symbol is too long. However, it could just be a bignum, so keep accumulating characters until we have to do something.") + ((EQ J \PNAMELIMIT) (* ; "Symbol is too long. However, it could just be a bignum, so keep accumulating characters until we have to do something.") (push EXTRASEGMENTS (\SMASHSTRING (ALLOCSTRING J NIL NIL T) 0 PNSTR J)) (SETQ J 0))) (\PNAMESTRINGPUTCHAR PBASE J CH) (add J 1) - (SETQ LASTC CH) (* ; "Save CH for LASTC.")) + (SETQ LASTC CH) (* ; "Save CH for LASTC.")) NEXTATOMCHAR - (if (AND EOF-POSSIBILITY (SETQ AT-EOF (\EOFP STREAM))) - then (* ; - "EOF terminates atoms at top level") + (if (AND EOF-POSSIBILITY (SETQ AT-EOF (\EOFP STRM))) + then (* ; + "EOF terminates atoms at top level") (GO FINISHATOM) - elseif (EQ [SETQ SNX (\SYNCODE SA (SETQ CH (\NSIN STREAM SHIFTEDCHARSET - SHIFTEDCHARSET] + elseif (EQ [SETQ SNX (\SYNCODE SA (SETQ CH (\INCCODE STRM] OTHER.RC) - then (* ; - "normal case tested first--another vanilla constituent char, so keep accumulating atom chars") + then (* ; + "normal case tested first--another vanilla constituent char, so keep accumulating atom chars") (GO GOTATOMCHAR) elseif (fetch STOPATOM of SNX) - then (* ; "Terminates atom") + then (* ; "Terminates atom") (GO FINISHATOM) elseif (EQ SNX PACKAGEDELIM.RC) then (GO GOTPACKAGEDELIM) @@ -902,17 +807,17 @@ Copyright (c) 1981-1988, 1990-1991, 1993, 2021 by Venue & Xerox Corporation. FINISHATOM - (* ;; - "Come here when an atom has been terminated, either by a break/sepr char or by end of file.") + (* ;; + "Come here when an atom has been terminated, either by a break/sepr char or by end of file.") (if INVALIDFLG - then (replace (STREAM LASTCCODE) of STREAM with (OR LASTC CH 65535)) + then (freplace (STREAM LASTCCODE) of STRM with (OR LASTC CH 65535)) (\INVALID.SYMBOL PBASE J NCOLONS PACKAGE EXTRASEGMENTS)) [SETQ ELT (AND (NOT *READ-SUPPRESS*) (if EXTRASEGMENTS then - (* ;; "More than \PNAMELIMIT chars were read. Can't be a symbol, but might be a number. Pack up all the strings we have into a single string and try to parse it as a number.") + (* ;; "More than \PNAMELIMIT chars were read. Can't be a symbol, but might be a number. Pack up all the strings we have into a single string and try to parse it as a number.") (SETQ EXTRASEGMENTS (\SUBREADCONCAT EXTRASEGMENTS PBASE J)) (OR (AND (NULL (OR PACKAGE ESCAPEFLG NCOLONS)) @@ -925,56 +830,56 @@ Copyright (c) 1981-1988, 1990-1991, 1993, 2021 by Venue & Xerox Corporation. (LISPERROR "ATOM TOO LONG" EXTRASEGMENTS)) else (\READ.SYMBOL PBASE 0 J \FATPNAMESTRINGP PACKAGE (EQ NCOLONS 1) ESCAPEFLG] - (replace (STREAM LASTCCODE) of STREAM with CH) - (* ; "Save last READ char for LASTC.") + (freplace (STREAM LASTCCODE) of STRM with CH) + (* ; "Save last READ char for LASTC.") (if AT-EOF - then (* ; - "top-level read, atom terminated by EOF") + then (* ; + "top-level read, atom terminated by EOF") (RETURN ELT)) (\RDCONC ELT (PROGN (COND ((OR PRESERVE-WHITESPACE (NEQ SNX SEPRCHAR.RC)) - (* ; "At top-level, put back the terminating character if preserving whitespace or terminator is significant") - (replace (STREAM LASTCCODE) of STREAM + (* ; "At top-level, put back the terminating character if preserving whitespace or terminator is significant") + (freplace (STREAM LASTCCODE) of STRM with (OR LASTC CH 65535)) - (* ; - "And LASTC will return the last REAL char read.") - (\BACKNSCHAR STREAM SHIFTEDCHARSET))) + (* ; + "And LASTC will return the last REAL char read.") + (\BACKCCODE STRM))) (RETURN ELT))) (if (EQ SNX SEPRCHAR.RC) - then (* ; - "Terminated with sepr, go on to next char") + then (* ; + "Terminated with sepr, go on to next char") (GO NEWTOKEN) elseif (EQ CH CHAR) - then (* ; "read terminates here") - (replace (STREAM LASTCCODE) of STREAM with CH) + then (* ; "read terminates here") + (freplace (STREAM LASTCCODE) of STRM with CH) (RETURN LST) - else (* ; - "Terminated with break, jump into the break char code") + else (* ; + "Terminated with break, jump into the break char code") (GO BREAK)) GOTPACKAGEDELIM - (* ;; "Come here if CH is a package delimiter. Note that we have already scanned at least one character of the token, so this must be an interior delim") + (* ;; "Come here if CH is a package delimiter. Note that we have already scanned at least one character of the token, so this must be an interior delim") (COND - (*READ-SUPPRESS* (* ; "Don't care about packages")) + (*READ-SUPPRESS* (* ; "Don't care about packages")) [(AND (EQ J 0) (NULL EXTRASEGMENTS)) - (* ;; "No chars accumulated, so must be 2 colons in a row. Note that the case where we've just started scanning a token happens up at NEWTOKEN") + (* ;; "No chars accumulated, so must be 2 colons in a row. Note that the case where we've just started scanning a token happens up at NEWTOKEN") (SETQ LASTC CH) (COND ((AND (EQ NCOLONS 1) - (NEQ PACKAGE *KEYWORD-PACKAGE*)) (* ; - "Two colons in a row means internal symbol") + (NEQ PACKAGE *KEYWORD-PACKAGE*)) (* ; + "Two colons in a row means internal symbol") (SETQ NCOLONS 2)) - (T (* ; - "Error, e.g., `FOO:::BAZ' or `::BAR'") + (T (* ; + "Error, e.g., `FOO:::BAZ' or `::BAR'") (SETQ INVALIDFLG T) (GO GOTATOMCHAR] - ((NULL NCOLONS) (* ; - "We have just scanned the package name") + ((NULL NCOLONS) (* ; + "We have just scanned the package name") (SETQ NCOLONS 1) (SETQ LASTC CH) [SETQ PACKAGE (COND @@ -983,67 +888,67 @@ Copyright (c) 1981-1988, 1990-1991, 1993, 2021 by Venue & Xerox Corporation. )) (SETQ EXTRASEGMENTS NIL)) ((\FIND.PACKAGE.INTERNAL PBASE 0 J \FATPNAMESTRINGP)) - (T (* ; - "Error, but don't signal yet -- save name as string for benefit of error handlers") + (T (* ; + "Error, but don't signal yet -- save name as string for benefit of error handlers") (\GETBASESTRING PBASE 0 J \FATPNAMESTRINGP] (SETQ J 0)) - (T (* ; - "Have alread seen one or more colons, and have scanned more symbol. This colon is an error.") + (T (* ; + "Have alread seen one or more colons, and have scanned more symbol. This colon is an error.") (SETQ LASTC CH) (SETQ INVALIDFLG T) (GO GOTATOMCHAR))) - (SETQ ESCAPEFLG T) (* ; "Result MUST be a symbol now") + (SETQ ESCAPEFLG T) (* ; "Result MUST be a symbol now") (GO NEXTATOMCHAR) SINGLECHARATOM - (* ;; "Come here to create a symbol whose single character is CH -- no package stuff to worry about. This happens mainly for RATOM. We create the single char atom in IL for backward compatibility.") + (* ;; "Come here to create a symbol whose single character is CH -- no package stuff to worry about. This happens mainly for RATOM. We create the single char atom in IL for backward compatibility.") (\PNAMESTRINGPUTCHAR PBASE 0 CH) (SETQ ELT (\READ.SYMBOL PBASE 0 1 \FATPNAMESTRINGP *INTERLISP-PACKAGE*)) - (replace (STREAM LASTCCODE) of STREAM with CH) + (freplace (STREAM LASTCCODE) of STRM with CH) (\RDCONC ELT (RETURN ELT)) (GO NEWTOKEN) - (* ;; "End of atom scanning code") + (* ;; "End of atom scanning code") BREAK - (* ;; "At this point, we have just read a break character, stored in CH") + (* ;; "At this point, we have just read a break character, stored in CH") - (replace (STREAM LASTCCODE) of STREAM with CH) + (freplace (STREAM LASTCCODE) of STRM with CH) [SELECTC SNX (LEFTPAREN.RC - (* ;; "recursively read a list. If that list (or any of it's non-bracketed sublists) is terminated by a right bracket it terminates our read as well. PROPRB macro worries about right-bracket propagation: if the subread encounters a right bracket (sets \RBFLG), PROPRB returns true. In addition, if we were not called by a left-bracket (READTYPE = NOPROPRB.RT) it sets \RBFLG in caller, thereby propagating the bracket upward.") + (* ;; "recursively read a list. If that list (or any of it's non-bracketed sublists) is terminated by a right bracket it terminates our read as well. PROPRB macro worries about right-bracket propagation: if the subread encounters a right bracket (sets \RBFLG), PROPRB returns true. In addition, if we were not called by a left-bracket (READTYPE = NOPROPRB.RT) it sets \RBFLG in caller, thereby propagating the bracket upward.") (COND - ((PROG1 (PROPRB (SETQ ELT (\SUBREAD STREAM SA PROPRB.RT PNSTR + ((PROG1 (PROPRB (SETQ ELT (\SUBREAD STRM SA PROPRB.RT PNSTR CASEBASE))) (\RDCONC ELT (RETURN ELT))) - (* ;; "PROG1 is true if the subread encountered a right bracket") + (* ;; "PROG1 is true if the subread encountered a right bracket") - (FIXDOT) (* ; "Fix dotted pair if necessary") + (FIXDOT) (* ; "Fix dotted pair if necessary") (RETURN LST)))) (LEFTBRACKET.RC - (* ;; "recursively read a list, terminated by either right paren or right bracket. In this case, right bracket is not propagated upward--we continue reading elements after it.") + (* ;; "recursively read a list, terminated by either right paren or right bracket. In this case, right bracket is not propagated upward--we continue reading elements after it.") - (SETQ ELT (\SUBREAD STREAM SA NOPROPRB.RT PNSTR CASEBASE)) + (SETQ ELT (\SUBREAD STRM SA NOPROPRB.RT PNSTR CASEBASE)) (\RDCONC ELT (RETURN ELT))) ((LIST RIGHTPAREN.RC RIGHTBRACKET.RC) - (* ;; "Terminate one or more lists, return what we have accumulated so far. In the case of Right bracket, if caller did not have the matching left bracket, we have to allow the bracket to close more than one list.") + (* ;; "Terminate one or more lists, return what we have accumulated so far. In the case of Right bracket, if caller did not have the matching left bracket, we have to allow the bracket to close more than one list.") (RETURN (COND (TOPLEVELP - (* ;; "Naked right paren/bracket returns NIL. This is sort of bogus in common lisp, but changing it would be a significant change to Interlisp folks.") + (* ;; "Naked right paren/bracket returns NIL. This is sort of bogus in common lisp, but changing it would be a significant change to Interlisp folks.") NIL) (CHAR - (* ;; "call from READ-DELIMITED-LIST doesn't want to terminate this way. Could read as NIL and not terminate, but seems best to error.") + (* ;; "call from READ-DELIMITED-LIST doesn't want to terminate this way. Could read as NIL and not terminate, but seems best to error.") (CL:ERROR "Unmatched ~A encountered while reading to a ~A" (CL:CODE-CHAR CH) @@ -1055,15 +960,15 @@ Copyright (c) 1981-1988, 1990-1991, 1993, 2021 by Venue & Xerox Corporation. (SETQ \RBFLG T)) LST)))) (STRINGDELIM.RC - (* ;; "Invoke string reader") + (* ;; "Invoke string reader") - (SETQ ELT (\RSTRING2 STREAM SA NIL PNSTR)) + (SETQ ELT (\RSTRING2 STRM SA NIL PNSTR)) (\RDCONC ELT (RETURN ELT))) (COND ((OR (EQ SNX BREAKCHAR.RC) (NOT (fetch READMACROFLG of *READTABLE*))) - (* ; - "A breakchar or a disabled always macro") + (* ; + "A breakchar or a disabled always macro") (GO SINGLECHARATOM)) (T (GO MACRO] (GO NEWTOKEN) @@ -1072,63 +977,63 @@ Copyright (c) 1981-1988, 1990-1991, 1993, 2021 by Venue & Xerox Corporation. (MACRO (COND ((PROG1 (PROPRB [SETQ ELT (RELEASERESOURCE \PNAMESTRING PNSTR (CL:MULTIPLE-VALUE-LIST (\APPLYREADMACRO - STREAM SNX] - (* ; - "Ignore right-bracket if macro is called at top-level read") + STRM SNX] + (* ; + "Ignore right-bracket if macro is called at top-level read") ) [COND - ((NULL ELT) (* ; - "Macro returned zero values, read as nothing") + ((NULL ELT) (* ; + "Macro returned zero values, read as nothing") ) (T (SETQ ELT (CAR ELT)) (\RDCONC ELT (RETURN ELT]) - (FIXDOT) (* ; - "Encountered right bracket if we get here -- return what we have") + (FIXDOT) (* ; + "Encountered right bracket if we get here -- return what we have") (RETURN LST)))) (INFIX - (* ;; "We give macro TCONC list of what we've accumulated so far--it gets to modify it as it pleases and return it. We continue from there.") + (* ;; "We give macro TCONC list of what we've accumulated so far--it gets to modify it as it pleases and return it. We continue from there.") (COND ((PROG1 [PROPRB (SETQ ELT (RELEASERESOURCE \PNAMESTRING PNSTR - (\APPLYREADMACRO STREAM SNX + (\APPLYREADMACRO STRM SNX (AND LST (CONS LST END] [COND - [TOPLEVELP (* ; - "What does INFIX mean at top level?? See IRM") + [TOPLEVELP (* ; + "What does INFIX mean at top level?? See IRM") (COND ((AND (LISTP ELT) - (CDR ELT)) (* ; - "Result is in TCONC format, so it's returnable") + (CDR ELT)) (* ; + "Result is in TCONC format, so it's returnable") (RETURN (COND ((EQ (CDR ELT) (CAR ELT)) - (* ; "TCONC list of one element--return the element. This is how INFIX top level macro can return a non-list. ") + (* ; "TCONC list of one element--return the element. This is how INFIX top level macro can return a non-list. ") (CAAR ELT)) (T (CAR ELT] - (T (* ; - "Reading sublist. Take apart TCONC list and continue.") + (T (* ; + "Reading sublist. Take apart TCONC list and continue.") (SETQ LST (CAR ELT)) (SETQ END (CDR ELT]) - (FIXDOT) (* ; - "Macro hit right bracket if we got to here") + (FIXDOT) (* ; + "Macro hit right bracket if we got to here") (RETURN LST)))) (SPLICE - (* ;; "Macro returns arbitrary number of values to be spliced inline.") + (* ;; "Macro returns arbitrary number of values to be spliced inline.") [RBCONTEXT (SETQ ELT (RELEASERESOURCE \PNAMESTRING PNSTR (\APPLYREADMACRO - STREAM SNX] - (* ; - "Note: we don't care if there was terminating right-bracket") - (* ; "Why? -bvm") + STRM SNX] + (* ; + "Note: we don't care if there was terminating right-bracket") + (* ; "Why? -bvm") (COND ((OR (NULL ELT) TOPLEVELP) - (* ;; "On the 10, it actually returns ELT if it is a list and the next token is a closing paren or bracket. Hard to see how to get that behavior--rmk") + (* ;; "On the 10, it actually returns ELT if it is a list and the next token is a closing paren or bracket. Hard to see how to get that behavior--rmk") (GO NEWTOKEN)) - ((NLISTP ELT) (* ; - "The 10 throws initial non-lists away (What if LST/END aren't set?)") + ((NLISTP ELT) (* ; + "The 10 throws initial non-lists away (What if LST/END aren't set?)") (SETQ ELT (AND LST (LIST '%. ELT))) (SETQ DOTLOC END))) [COND @@ -1138,7 +1043,7 @@ Copyright (c) 1981-1988, 1990-1991, 1993, 2021 by Venue & Xerox Corporation. (T (SETQ LST ELT))) (SETQ END (LAST ELT)) (COND - ((CDR END) (* ; "A dotted pair") + ((CDR END) (* ; "A dotted pair") (SETQ DOTLOC END) (RPLACD END (CONS '%. (SETQ END (CONS (CDR END]) (SHOULDNT)) @@ -1212,6 +1117,56 @@ Copyright (c) 1981-1988, 1990-1991, 1993, 2021 by Venue & Xerox Corporation. TEM) (RELSTK TEM) (RETURN \READDEPTH]) + +(\CHECKEOLC.CRLF + [LAMBDA (STREAM PEEKBINFLG BYTECOUNTVAR BYTECOUNTVAL) (* ; "Edited 23-Jun-2021 13:08 by rmk:") + + (* ;; "This is called only when a CR has been read and EOLC is either any or CRLF. This returns EOL if the next code is an LF") + + (* ;; "If BYTECOUNTVAR, decrements that free variable by the number of bytes read.") + + (LET (CH (NUM 0)) + [SETQ CH (COND + [PEEKBINFLG + + (* ;; + "T from PEEKC. In this case, must leave the fileptr where it was.") + + (* ;; "The CR itself hasn't been read, just peeked. So here we have to read it, then peek at the next character to see if it is an LF, and then back out the CR") + + (COND + ([EQ (CHARCODE LF) + (UNINTERRUPTABLY + + (* ;; " Since we are going to \BACKCCODE back the peeked character, we don't need to update the counter variable") + + (\INCCODE STREAM) + (PROG1 (\PEEKCCODE STREAM T 'NOEOLC) + + (* ;; + "This has to be a call to \PEEKCODE that doesn't itself to the checkeolc") + + (* ;; + "LF must be the next char after the CR. We back up over the CR that \INCCODE just read.") + + (\BACKCCODE STREAM)))] + + (* ;; "Got the CRLF, it's an EOL") + + (CHARCODE EOL)) + (T (CHARCODE CR] + ((EQ (CHARCODE LF) + (\PEEKCCODE STREAM T 'NOEOLC)) + + (* ;; "Since we aren't peeking, the CR has actually been read, and we are entitled to read the LF that we just peeked at.") + + (\INCCODE STREAM BYTECOUNTVAR BYTECOUNTVAL) + (CHARCODE EOL)) + (T (CHARCODE CR] + (CL:WHEN BYTECOUNTVAR + (SET BYTECOUNTVAR (IDIFFERENCE (OR BYTECOUNTVAL (\EVALV1 BYTECOUNTVAR)) + NUM))) + CH]) ) (DECLARE%: DONTEVAL@LOAD DOCOPY @@ -1604,7 +1559,8 @@ Copyright (c) 1981-1988, 1990-1991, 1993, 2021 by Venue & Xerox Corporation. ("Linefeed" 10) ("LF" 10))) -(RPAQQ CHARACTERSETNAMES (("Greek" 38) +(RPAQQ CHARACTERSETNAMES ((Meta 1) + ("Greek" 38) ("Cyrillic" 39) ("Hira" 36) ("Hiragana" 36) @@ -1679,141 +1635,6 @@ Copyright (c) 1981-1988, 1990-1991, 1993, 2021 by Venue & Xerox Corporation. (SETQ END (SETQ LST (CONS ELT]) ) -(* "FOLLOWING DEFINITIONS EXPORTED")(DECLARE%: EVAL@COMPILE - -(PUTPROPS \BACKCHAR MACRO (OPENLAMBDA (STREAM) (* ; "Backs up over an NS character") - (\BACKNSCHAR STREAM (UNFOLD (ACCESS-CHARSET STREAM) - 256)))) - -(PUTPROPS \BACKNSCHAR MACRO [(ST SHIFTEDCHARSET COUNTERVAR) - (COND - ((\XCCSP ST) - (\BACKXCCSCHAR ST SHIFTEDCHARSET COUNTERVAR)) - (T (COND - ['COUNTERVAR (SETQ COUNTERVAR - (IDIFFERENCE COUNTERVAR - (CL:FUNCALL (ffetch - (STREAM BACKCHARFN) - of ST) - ST T] - (T (CL:FUNCALL (ffetch (STREAM BACKCHARFN) - of ST) - ST NIL]) - -(PUTPROPS \CHECKEOLC MACRO - (OPENLAMBDA (CH EOLC STREAM PEEKBINFLG COUNTERVAR) - - (* ;; "Subtracts number of bytes read from COUNTERVAR, which may be NIL. In fact, should be NIL if PEEKBINFLG is T.") - - (SELCHARQ CH - (CR (SELECTC EOLC - (CR.EOLC (CHARCODE EOL)) - (CRLF.EOLC (COND - [PEEKBINFLG - - (* ;; "T from PEEKC, compile-time constant. In this case, must leave the fileptr where it was, except for possibly advancing over character set shifts") - - (COND - ([EQ (CHARCODE LF) - (UNINTERRUPTABLY - (\NSIN STREAM (UNFOLD (ACCESS-CHARSET - STREAM) - 256)) - - (* ;; "Read the NS CR. We know that there aren't any font-shift characters in front of the CR, because they would have already been read by the \NSPEEK that got the CR character. Since we are going to NS back the CR character, we don't need to update the counter variable") - - (PROG1 (\PEEKBIN STREAM T) - - (* ;; "LF must be in next BYTE after NS CR, regardless of coding. Character-set shifting bytes can't intervene. Then we back up over the CR that was \NSINed above.") - - (\BACKNSCHAR STREAM)))] - (CHARCODE EOL)) - (T (CHARCODE CR] - ((EQ (CHARCODE LF) - (\PEEKBIN STREAM T)) - (\BIN STREAM) - (AND 'COUNTERVAR (SETQ COUNTERVAR (SUB1 COUNTERVAR))) - (CHARCODE EOL)) - (T (CHARCODE CR)))) - (CHARCODE CR))) - (LF (COND - ((EQ EOLC LF.EOLC) - (CHARCODE EOL)) - (T (CHARCODE LF)))) - CH))) - -(PUTPROPS \INCHAR MACRO (OPENLAMBDA (STREAM COUNTERVAR) - (* ; "returns a 16 bit character code") - (\CHECKEOLC (\NSIN STREAM (UNFOLD (ACCESS-CHARSET STREAM) - 256) - NIL COUNTERVAR) - (FFETCH EOLCONVENTION OF STREAM) - STREAM NIL COUNTERVAR))) - -(PUTPROPS \INCCODE MACRO (OPENLAMBDA (STREAM COUNTERVAR) - (* ; "returns a 16 bit character code") - (\CHECKEOLC (\NSIN STREAM (UNFOLD (ACCESS-CHARSET STREAM) - 256) - NIL COUNTERVAR) - (ffetch EOLCONVENTION of STREAM) - STREAM NIL COUNTERVAR))) - -(PUTPROPS \PEEKCCODE MACRO (OPENLAMBDA (STREAM NOERROR) - (\CHECKEOLC (\NSPEEK STREAM (UNFOLD (ACCESS-CHARSET STREAM) - 256) - NIL NOERROR) - (ffetch EOLCONVENTION of STREAM) - STREAM T))) - -(PUTPROPS \NSIN MACRO [(ST SHIFTEDCSET SHIFTEDCSETVAR COUNTERVAR) - -(* ;;; "Dispatches to the appropriate character code decoder. If you want to support a new character encoding format, you have to write a decoder and add it here.") - - (COND - ((\XCCSP ST) - (\XCCSIN ST SHIFTEDCSET SHIFTEDCSETVAR COUNTERVAR)) - (T (COND - ('COUNTERVAR (CL:MULTIPLE-VALUE-BIND - (CODE NUM) - (CL:FUNCALL (ffetch (STREAM INCCODEFN) - of ST) - ST T) - (AND NUM (SETQ COUNTERVAR (IDIFFERENCE - COUNTERVAR NUM - ))) - CODE)) - (T (CL:FUNCALL (ffetch (STREAM INCCODEFN) of ST) - ST NIL]) - -(PUTPROPS \NSPEEK MACRO [(ST SHIFTEDCSET SHIFTEDCSETVAR NOERROR COUNTERVAR) - -(* ;;; "Dispatches to the appropriate character code decoder. If you want to support a new character encoding format, you have to write a decoder and add it here.") - - (COND - ((\XCCSP ST) - (\XCCSPEEK ST (UNFOLD (ACCESS-CHARSET ST) - 256) - NIL NOERROR)) - (T (COND - ('COUNTERVAR (CL:MULTIPLE-VALUE-BIND - (CODE NUM) - (CL:FUNCALL (ffetch (STREAM PEEKCCODEFN) - of ST) - ST NOERROR T) - (AND NUM (SETQ COUNTERVAR (IDIFFERENCE - COUNTERVAR - NUM))) - CODE)) - (T (CL:FUNCALL (ffetch (STREAM PEEKCCODEFN) - of ST) - ST NOERROR NIL]) - -(PUTPROPS NUMERIC-CHARSET MACRO (= . ACCESS-CHARSET)) -) - -(* "END EXPORTED DEFINITIONS") - - (DECLARE%: DOEVAL@COMPILE DONTCOPY (SPECVARS *READ-NEWLINE-SUPPRESS* \RefillBufferFn) @@ -1827,399 +1648,120 @@ Copyright (c) 1981-1988, 1990-1991, 1993, 2021 by Venue & Xerox Corporation. -(* ; "Support for various external formats") - - - - -(* ; "JIS to XCCS conversion table.") - - -(RPAQQ *JIS-TO-XCCS-CONV-NO-FONT-TABLE* - ((8484 . 8484) - (8485 . 8485) - (8497 . 9155) - (8798 . 61376) - (8802 . 8802) - (8805 . 64892) - (8806 . 64894) - (8820 . 9148) - (8821 . 9132) - (8822 . 213) - (8830 . 8830) - (10273 . 61189) - (10274 . 61188) - (10275 . 10275) - (10276 . 10276) - (10277 . 10277) - (10278 . 10278) - (10279 . 10279) - (10280 . 10280) - (10281 . 10281) - (10282 . 10282) - (10283 . 61414) - (10284 . 61410) - (10285 . 61409) - (10286 . 10286) - (10287 . 10287) - (10288 . 10288) - (10289 . 10289) - (10290 . 10290) - (10291 . 10291) - (10292 . 10292) - (10293 . 10293) - (10294 . 61411) - (10295 . 10295) - (10296 . 10296) - (10297 . 10297) - (10298 . 10298) - (10299 . 10299) - (10300 . 10300) - (10301 . 10301) - (10302 . 10302) - (10303 . 10303) - (10304 . 10304))) - -(RPAQQ *JIS-TO-XCCS-CODE-MAP* - ((1 (1 33 . 33) - (2 33 . 34) - (3 33 . 35) - (6 0 . 183) - (7 0 . 58) - (8 0 . 59) - (9 0 . 63) - (10 0 . 33) - (11 33 . 43) - (12 33 . 44) - (13 0 . 194) - (14 0 . 193) - (15 0 . 200) - (16 0 . 195) - (18 0 . 204) - (19 33 . 51) - (20 33 . 52) - (21 33 . 53) - (22 33 . 54) - (23 33 . 55) - (24 33 . 56) - (25 33 . 57) - (26 33 . 58) - (27 33 . 59) - (28 33 . 60) - (29 239 . 36) - (30 33 . 62) - (31 0 . 47) - (32 0 . 92) - (33 0 . 126) - (34 33 . 66) - (35 0 . 124) - (36 33 . 68) - (37 33 . 69) - (38 0 . 169) - (39 0 . 39) - (40 0 . 170) - (41 0 . 186) - (42 0 . 40) - (43 0 . 41) - (44 33 . 76) - (45 33 . 77) - (46 0 . 91) - (47 0 . 93) - (48 0 . 123) - (49 0 . 125) - (50 239 . 50) - (51 239 . 51) - (52 0 . 171) - (53 0 . 187) - (54 33 . 86) - (55 33 . 87) - (56 33 . 88) - (57 33 . 89) - (58 33 . 90) - (59 33 . 91) - (60 0 . 43) - (61 0 . 45) - (62 0 . 177) - (63 0 . 180) - (64 0 . 184) - (65 0 . 61) - (66 33 . 98) - (67 0 . 60) - (68 0 . 62) - (69 33 . 101) - (70 33 . 102) - (71 33 . 103) - (72 33 . 104) - (73 33 . 105) - (74 33 . 106) - (75 0 . 176) - (76 33 . 108) - (77 33 . 109) - (78 33 . 110) - (79 0 . 165) - (80 0 . 164) - (81 0 . 162) - (82 0 . 163) - (83 0 . 37) - (84 0 . 35) - (85 0 . 38) - (86 0 . 42) - (87 0 . 64) - (88 0 . 167) - (89 33 . 121) - (90 33 . 122) - (91 33 . 123) - (92 33 . 124) - (93 33 . 125) - (94 33 . 126)) - (2 (1 34 . 33) - (2 34 . 34) - (3 34 . 35) - (4 34 . 36) - (5 34 . 37) - (6 34 . 38) - (7 34 . 39) - (8 34 . 40) - (9 34 . 41) - (10 0 . 174) - (11 0 . 172) - (12 0 . 173) - (13 0 . 175) - (14 34 . 46) - (26 239 . 74) - (27 239 . 76) - (28 239 . 89) - (29 239 . 88) - (30 239 . 91) - (31 239 . 90) - (32 239 . 87) - (33 239 . 86) - (42 239 . 182) - (43 239 . 183) - (44 239 . 106) - (45 239 . 79) - (46 239 . 78) - (47 239 . 181) - (48 239 . 180) - (60 239 . 108) - (61 239 . 112) - (63 239 . 186) - (64 239 . 185) - (65 239 . 114) - (67 239 . 66) - (68 239 . 67) - (71 239 . 113) - (72 239 . 111) - (73 239 . 117) - (74 34 . 106) - (82 241 . 40) - (83 239 . 65) - (87 239 . 48) - (88 239 . 49) - (89 0 . 176)) - (6 (1 38 . 65) - (2 38 . 66) - (3 38 . 68) - (4 38 . 69) - (5 38 . 70) - (6 38 . 73) - (7 38 . 74) - (8 38 . 75) - (9 38 . 76) - (10 38 . 77) - (11 38 . 78) - (12 38 . 79) - (13 38 . 80) - (14 38 . 81) - (15 38 . 82) - (16 38 . 83) - (17 38 . 85) - (18 38 . 86) - (19 38 . 88) - (20 38 . 89) - (21 38 . 90) - (22 38 . 91) - (23 38 . 92) - (24 38 . 93) - (33 38 . 97) - (34 38 . 98) - (35 38 . 100) - (36 38 . 101) - (37 38 . 102) - (38 38 . 105) - (39 38 . 106) - (40 38 . 107) - (41 38 . 108) - (42 38 . 109) - (43 38 . 110) - (44 38 . 111) - (45 38 . 112) - (46 38 . 113) - (47 38 . 114) - (48 38 . 115) - (49 38 . 117) - (50 38 . 118) - (51 38 . 120) - (52 38 . 121) - (53 38 . 122) - (54 38 . 123) - (55 38 . 124) - (56 38 . 125)))) - -(RPAQQ *HANKAKU-TO-ZENKAKU-CODE-MAP* - ((161 . 8483) - (162 . 8534) - (163 . 8535) - (164 . 8482) - (165 . 183) - (166 . 9586) - (167 . 9505) - (168 . 9507) - (169 . 9509) - (170 . 9511) - (171 . 9513) - (172 . 9571) - (173 . 9573) - (174 . 9575) - (175 . 9539) - (176 . 8508) - (177 . 9506) - (178 . 9508) - (179 . 9510) - (180 . 9512) - (181 . 9514) - (182 . 9515) - (183 . 9517) - (184 . 9519) - (185 . 9521) - (186 . 9523) - (187 . 9525) - (188 . 9527) - (189 . 9529) - (190 . 9531) - (191 . 9533) - (192 . 9535) - (193 . 9537) - (194 . 9540) - (195 . 9542) - (196 . 9544) - (197 . 9546) - (198 . 9547) - (199 . 9548) - (200 . 9549) - (201 . 9550) - (202 . 9551) - (203 . 9554) - (204 . 9557) - (205 . 9560) - (206 . 9563) - (207 . 9566) - (208 . 9567) - (209 . 9568) - (210 . 9569) - (211 . 9570) - (212 . 9572) - (213 . 9574) - (214 . 9576) - (215 . 9577) - (216 . 9578) - (217 . 9579) - (218 . 9580) - (219 . 9581) - (220 . 9583) - (221 . 9587) - (222 . 8491) - (223 . 8492))) -(DECLARE%: DOEVAL@COMPILE DONTCOPY +(* ;; "Generic functions not compiled open") -(GLOBALVARS *JIS-TO-XCCS-CONV-NO-FONT-TABLE* *JIS-TO-XCCS-CONV-TABLE-LIST* *JIS-TO-XCCS-CODE-MAP* - *HANKAKU-TO-ZENKAKU-CODE-MAP* *JIS-1KU-TO-XCCS-CONV-TABLE* *JIS-2KU-TO-XCCS-CONV-TABLE* - *JIS-6KU-TO-XCCS-CONV-TABLE* *XCCS-TO-JIS-CONV-TABLE* *HANKAKU-TO-ZENKAKU-CONV-TABLE* - *ZENKAKU-TO-HANKAKU-CONV-TABLE*) -) (DEFINEQ -(\MAKE.JIS.TO.XCCS.CONV.TABLE - [LAMBDA NIL (* ; "Edited 20-Feb-91 19:28 by nm") - -(* ;;; "The JIS codes which are not equivalent to XCCS reside in 1, 2, 3, 6, 8 and 84 KU. In case of 3 and 84 KU, the corresponding XCCS is calicutated from JIS. In case of 1,2 and 6 KU, we have to prepare conversion tables for each because the mapping between XCCS and JIS are random. 8 KU is treated specially because no displayable font is assigned for 8 KU in XCCS. They are handled with *JIS-TO-XCCS-CONV-NO-FONT-TABLE*.") - -(* ;;; "Each conversion table is an byte array of size 188 (94 * 2). 94 is a largest number of TEN. TEN is one origin. Each JIS code is represented with two bytes in the table. The first byte is a character set and the second byte is a character code in XCCS. If both of the first byte and the second byte are 255, it means the JIS code is not defined for the entry. If the first byte is 255 and the second byte is 0, it means a JIS code is defined for the entry and there is a XCCS code corresponding to the JIS code, but no displayable font is assigned for the code in XCCS. In the last case, the real XCCS code is found in *JIS-TO-XCCS-CONV-NO-FONT-TABLE*.") - -(* ;;; "*HANKAKU-TO-ZENKAKU-CONV-TABLE* holds the mapping between JIS HANAKAKU-KANA code to XCCS. XCCS does not support HANKAKU code.") - - (SETQ *JIS-1KU-TO-XCCS-CONV-TABLE* (ARRAY 188 'BYTE 255)) - (SETQ *JIS-2KU-TO-XCCS-CONV-TABLE* (ARRAY 188 'BYTE 255)) - (SETQ *JIS-6KU-TO-XCCS-CONV-TABLE* (ARRAY 188 'BYTE 255)) - (SETQ *XCCS-TO-JIS-CONV-TABLE* (HASHARRAY 256)) - (SETQ *HANKAKU-TO-ZENKAKU-CONV-TABLE* (HASHARRAY 64)) - (SETQ *ZENKAKU-TO-HANKAKU-CONV-TABLE* (HASHARRAY 64)) - (CL:DO ((TABLES (LIST *JIS-1KU-TO-XCCS-CONV-TABLE* *JIS-2KU-TO-XCCS-CONV-TABLE* - *JIS-6KU-TO-XCCS-CONV-TABLE*) - (CDR TABLES)) - (KU '(1 2 6) - (CDR KU)) - CODEMAP) - ((CL:ENDP TABLES)) - (SETQ CODEMAP (CDR (ASSOC (CAR KU) - *JIS-TO-XCCS-CODE-MAP*))) - (for MAP in CODEMAP do (SETA (CAR TABLES) - (IDIFFERENCE (UNFOLD (CAR MAP) - 2) - 1) - (CADR MAP)) - (SETA (CAR TABLES) - (UNFOLD (CAR MAP) - 2) - (CDDR MAP)))) - (bind KU TEN TABLE for ENTRY in *JIS-TO-XCCS-CONV-NO-FONT-TABLE* - do (SETQ KU (IDIFFERENCE (FOLDLO (CAR ENTRY) - 256) - 32)) - (SETQ TABLE (SELECTQ KU - (1 *JIS-1KU-TO-XCCS-CONV-TABLE*) - (2 *JIS-2KU-TO-XCCS-CONV-TABLE*) - (6 *JIS-6KU-TO-XCCS-CONV-TABLE*) - NIL)) - (AND TABLE (SETA TABLE (UNFOLD (IDIFFERENCE (LOGAND 255 (CAR ENTRY)) - 32) - 2) - 0))) - (for MAP in *HANKAKU-TO-ZENKAKU-CODE-MAP* do (PUTHASH (CAR MAP) - (CDR MAP) - *HANKAKU-TO-ZENKAKU-CONV-TABLE*)) - (for MAP in *HANKAKU-TO-ZENKAKU-CODE-MAP* do (PUTHASH (CDR MAP) - (CAR MAP) - *ZENKAKU-TO-HANKAKU-CONV-TABLE*)) - (for MAP - in (APPEND [for KU in *JIS-TO-XCCS-CODE-MAP* - join (for TEN in (CDR KU) - collect `(,(LOGOR (UNFOLD (CADR TEN) - 256) - (CDDR TEN)) - \, - (LOGOR (UNFOLD (IPLUS (CAR KU) - 32) - 256) - (IPLUS (CAR TEN) - 32] - *JIS-TO-XCCS-CONV-NO-FONT-TABLE*) do (PUTHASH (CAR MAP) - (CDR MAP) - *XCCS-TO-JIS-CONV-TABLE*)) - (SETQ *JIS-TO-XCCS-CONV-TABLE-LIST* `((33 \, *JIS-1KU-TO-XCCS-CONV-TABLE*) - (34 \, *JIS-2KU-TO-XCCS-CONV-TABLE*) - (38 \, *JIS-6KU-TO-XCCS-CONV-TABLE*]) +(\OUTCHAR + [LAMBDA (STREAM CODE) (* ; "Edited 14-Jun-2021 16:20 by rmk:") + + (* ;; "We can't do the EOL stuff here because we don't know whether BOUTs are legit. We have to pass the EOL character to the stream's function") + + (CL:FUNCALL (OR (ffetch (STREAM OUTCHARFN) of STREAM) + \DEFAULTOUTCHAR) + STREAM CODE]) + +(\INCCODE [LAMBDA (STREAM BYTECOUNTVAR BYTECOUNTVAL) (* ; "Edited 15-Jun-2021 10:23 by rmk:") (* ;; "Calling functions pass the name of the BYTECOUNTVAR, or NIL. If non-NIL, implementing functions are required to") (* ;; " (SET BYTECOUNTVAR (IDIFFERENCE BYTECOUNTVAR num-bytes-read))") (* ;; "Caller must bind BYTECOUNTVAR as a SPECVAR. BYTECOUNTVAL can be passed as the current value of BYTECOUNTVAR, to save a call to EVAL.") (CL:FUNCALL (OR (ffetch (STREAM INCCODEFN) of STREAM) \DEFAULTINCCODE) STREAM BYTECOUNTVAR (AND BYTECOUNTVAR (OR BYTECOUNTVAL (\EVALV1 BYTECOUNTVAR]) + +(\BACKCCODE + [LAMBDA (STREAM BYTECOUNTVAR BYTECOUNTVAL) (* ; "Edited 23-Jun-2021 14:49 by rmk:") + (CL:FUNCALL (OR (ffetch (STREAM BACKCCODEFN) of STREAM) + \DEFAULTBACKCCODE) + STREAM BYTECOUNTVAR (AND BYTECOUNTVAR (\EVALV1 BYTECOUNTVAR]) + +(\PEEKCCODE + [LAMBDA (STREAM NOERROR EOL) (* ; "Edited 14-Jun-2021 12:40 by rmk:") + (\CHECKEOLC (CL:FUNCALL (OR (ffetch (STREAM PEEKCCODEFN) of STREAM) + \DEFAULTPEEKCCODE) + STREAM NOERROR) + EOL STREAM T]) + +(\PEEKCCODE.NOEOLC + [LAMBDA (STREAM NOERROR) (* ; "Edited 27-Jun-2021 23:26 by rmk:") + (CL:FUNCALL (OR (ffetch (STREAM PEEKCCODEFN) of STREAM) + \DEFAULTPEEKCCODE) + STREAM NOERROR]) + +(\INCHAR + [LAMBDA (STREAM BYTECOUNTVAR EOLC BYTECOUNTVAL) (* ; "Edited 22-Jun-2021 10:48 by rmk:") + + (* ;; "EOL conversion around essentially what \INCCODE does, without the extra function call.") + + (* ;; " EOLC of NIL means all patterns go to EOL") + + (CL:WHEN BYTECOUNTVAR + (OR BYTECOUNTVAL (SETQ BYTECOUNTVAL (\EVALV1 BYTECOUNTVAR)))) + (\CHECKEOLC (CL:FUNCALL (OR (ffetch (STREAM INCCODEFN) of STREAM) + \DEFAULTINCCODE) + STREAM BYTECOUNTVAR BYTECOUNTVAL) + (OR EOLC (FFETCH (STREAM EOLCONVENTION) OF STREAM)) + STREAM NIL BYTECOUNTVAR BYTECOUNTVAL]) + +(\INCCODE.EOLC + [LAMBDA (STREAM BYTECOUNTVAR EOLC BYTECOUNTVAL) (* ; "Edited 22-Jun-2021 10:48 by rmk:") + + (* ;; "EOL conversion around essentially what \INCCODE does, without the extra function call.") + + (* ;; " EOLC of NIL means all patterns go to EOL") + + (CL:WHEN BYTECOUNTVAR + (OR BYTECOUNTVAL (SETQ BYTECOUNTVAL (\EVALV1 BYTECOUNTVAR)))) + (\CHECKEOLC (CL:FUNCALL (OR (ffetch (STREAM INCCODEFN) of STREAM) + \DEFAULTINCCODE) + STREAM BYTECOUNTVAR BYTECOUNTVAL) + (OR EOLC (FFETCH (STREAM EOLCONVENTION) OF STREAM)) + STREAM NIL BYTECOUNTVAR BYTECOUNTVAL]) + +(\FORMATBYTESTREAM + [LAMBDA (STREAM BYTESTREAM) (* ; "Edited 24-Jun-2021 17:26 by rmk:") + + (* ;; "Create or modify a stream that will simulate the current character input/output byte sequences of STREAM. The set up here does what is common to all formats: an IO stream starting with STREAM external format and EOL.") + + (* ;; "If the format has its own FORMATBYTESTREAMFN function, that is applied to copy any other state. (Currently that function is a property of the format, not carried over into a stream field that can be changed dynamically.)") + + (CL:UNLESS (AND (STREAMP BYTESTREAM) + (\IOMODEP STREAM 'BOTH)) + (SETQ BYTESTREAM (OPENSTREAM '{NODIRCORE} 'BOTH))) + (LET ((FORMAT (FETCH (STREAM EXTERNALFORMAT) OF STREAM)) + (EOLC (FETCH (STREAM EOLCONVENTION) OF STREAM))) + (\EXTERNALFORMAT BYTESTREAM FORMAT) + (CL:WHEN (EQ EOLC ANY.EOLC) + (SETQ EOLC (OR (FETCH (EXTERNALFORMAT EOL) OF FORMAT) + LF.EOLC))) + (REPLACE (STREAM EOLCONVENTION) OF BYTESTREAM WITH EOLC) + (SETFILEPTR BYTESTREAM 0) + (SETFILEINFO BYTESTREAM 'ENDOFSTREAMOP (FUNCTION NILL)) + (CL:WHEN (FETCH (EXTERNALFORMAT FORMATBYTESTREAMFN) OF FORMAT) + (APPLY* (FETCH (EXTERNALFORMAT FORMATBYTESTREAMFN) OF FORMAT) + STREAM BYTESTREAM)) + BYTESTREAM]) ) -(DECLARE%: DONTEVAL@LOAD DOCOPY +(DECLARE%: EVAL@COMPILE -(\MAKE.JIS.TO.XCCS.CONV.TABLE) +(PUTPROPS \CHECKEOLC MACRO [OPENLAMBDA (CH EOLC STRM PEEKBINFLG BYTECOUNTVAR BYTECOUNTVAL) + (COND + ((EQ EOLC 'NOEOLC) + CH) + (T (SELCHARQ CH + (LF (SELECTC (OR EOLC (FFETCH (STREAM + EOLCONVENTION + ) + OF STRM)) + ((LIST LF.EOLC ANY.EOLC) + (CHARCODE EOL)) + (CHARCODE LF))) + (CR (SELECTC (OR EOLC (FFETCH (STREAM + EOLCONVENTION + ) + OF STRM)) + (CR.EOLC (CHARCODE EOL)) + ((LIST ANY.EOLC CRLF.EOLC) + (\CHECKEOLC.CRLF STRM PEEKBINFLG + BYTECOUNTVAR BYTECOUNTVAL)) + (CHARCODE CR))) + CH]) ) - - -(* ; "JIS to XCCS converter") - - (RPAQ? *REPLACE-NO-FONT-CODE* T) (RPAQ? *DEFAULT-NOT-CONVERTED-FAT-CODE* 8739) @@ -2227,895 +1769,6 @@ Copyright (c) 1981-1988, 1990-1991, 1993, 2021 by Venue & Xerox Corporation. (GLOBALVARS *REPLACE-NO-FONT-CODE* *DEFAULT-NOT-CONVERTED-FAT-CODE*) ) -(DECLARE%: DOEVAL@COMPILE DONTCOPY -(* "FOLLOWING DEFINITIONS EXPORTED")(DECLARE%: EVAL@COMPILE - -(PUTPROPS \CONV.JIS.TO.XCCS MACRO [OPENLAMBDA (KU TEN) - -(* ;;; "Some character code is not equivalent between JIS and XCCS. In such case, we have to convert the character to corresponding XCCS.") - - (COND - ((\NOT.EQUIVALENT.TO.XCCS KU) - (\DO.CONV.JIS.TO.XCCS KU TEN)) - (T (LOGOR (UNFOLD KU 256) - TEN]) - -(PUTPROPS \DO.CONV.JIS.TO.XCCS MACRO - [(KU TEN) - -(* ;;; " Convert a JIS code divided into KU (high 8 bit) and TEN (low 8 bit) to an corresponding XCCS code.") - - (COND - ((\INVALID.TENP TEN) - *DEFAULT-NOT-CONVERTED-FAT-CODE*) - (T (SELECTQ KU - ((33 34 38) (* ; "1, 2 and 6 KU") - [LET* ((CONVTABLE (\EXTARACT.CONV.TABLE KU)) - (SET (\EXTRACT.SET TEN CONVTABLE)) - (CODE (\EXTRACT.CODE TEN CONVTABLE))) - (COND - ((NEQ SET 255) - (LOGOR (UNFOLD SET 256) - CODE)) - (T (COND - ((EQ CODE 255) (* ; "Not defined in JIS.") - *DEFAULT-NOT-CONVERTED-FAT-CODE*) - (T (* ; - "Defined in JIS but the displayable font is not assigned in the corresponding code in XCCS.") - (COND - (*REPLACE-NO-FONT-CODE* - *DEFAULT-NOT-CONVERTED-FAT-CODE*) - (T (\EXTRACT.NO.FONT.CODE (LOGOR (UNFOLD KU 256) - TEN]) - (35 (* ; "3 KU") - (* ; - "Alpha numeric codes are all defined as single byte codes in XCCS.") - TEN) - (40 (* ; "8 KU") - (COND - [(< 0 TEN 33) - (COND - (*REPLACE-NO-FONT-CODE* *DEFAULT-NOT-CONVERTED-FAT-CODE*) - (T (\EXTRACT.NO.FONT.CODE (LOGOR KU TEN] - (T *DEFAULT-NOT-CONVERTED-FAT-CODE*))) - (116 (* ; "84 KU") - (COND - ((< 0 TEN 5) - (LOGOR 29952 TEN)) - (T *DEFAULT-NOT-CONVERTED-FAT-CODE*))) - (117 (* ; "85 KU") - (COND - ((< 0 TEN 28) - (LOGOR 29696 TEN)) - (T *DEFAULT-NOT-CONVERTED-FAT-CODE*))) - *DEFAULT-NOT-CONVERTED-FAT-CODE*]) -) - -(* "END EXPORTED DEFINITIONS") - -) - - - -(* ; "XCCS to JIS converter") - -(DEFINEQ - -(CONVHANKAKU - [LAMBDA ARGS (* ; "Edited 8-Feb-91 13:42 by nm") - (PROG1 (STREAMPROP (ARG ARGS 1) - :HTOZP) - (AND (> ARGS 1) - (STREAMPROP (ARG ARGS 1) - :HTOZP - (ARG ARGS 2))))]) -) -(DECLARE%: DOEVAL@COMPILE DONTCOPY -(* "FOLLOWING DEFINITIONS EXPORTED")(DECLARE%: EVAL@COMPILE - -(PUTPROPS \CONV.XCCS.TO.JIS MACRO (OPENLAMBDA (OUTSTREAM CC) - -(* ;;; "Returns JIS code corresponding to XCCS charcode. Handle HANKAKU as well as ZENKAKU. If OUTSTREAM wants to convert ZENKAKUKANA to HANKAKUKANA, do so. Never returns two byte charcode for alpha-numeric character, they are all treated as single byte characode.") - - (OR (COND - ((\ASCIIP CC) - CC) - ((\NOT.EQUIVALENT.TO.JIS CC) - (\DO.CONV.XCCS.TO.JIS CC)) - ((\CONV.HANKAKU.TO.ZENKAKUP OUTSTREAM) - (* ; - "ZENKAKUKANA comes here, because their charcodes are equiavalent to JIS.") - (\CONV.ZENKAKU.KANA CC)) - (T CC)) - CC))) - -(PUTPROPS \DO.CONV.XCCS.TO.JIS MACRO ((CC) - (GETHASH CC *XCCS-TO-JIS-CONV-TABLE*))) - -(PUTPROPS \ASCIIP MACRO (OPENLAMBDA (CC) - (AND (EQ (FOLDLO CC 256) - 0) - (< (LOGAND CC 255) - 128)))) - -(PUTPROPS \NOT.EQUIVALENT.TO.JIS MACRO (OPENLAMBDA (CC) - (OR (EQ (FOLDLO CC 256) - 0) - (EQ (FOLDLO CC 256) - 33) - (EQ (FOLDLO CC 256) - 34) - (EQ (FOLDLO CC 256) - 38) - (EQ (FOLDLO CC 256) - 40) - (EQ (FOLDLO CC 256) - 239) - (EQ (FOLDLO CC 256) - 241)))) - -(PUTPROPS \CONV.HANKAKU.TO.ZENKAKUP MACRO ((OUTSTREAM) - (STREAMPROP OUTSTREAM :HTOZP))) - -(PUTPROPS \CONV.ZENKAKU.KANA MACRO ((CHAR) - (GETHASH CHAR *ZENKAKU-TO-HANKAKU-CONV-TABLE*))) -) - -(* "END EXPORTED DEFINITIONS") - -) -(DEFINEQ - -(\JISIN - [LAMBDA (STREAM COUNTP) (* ; "Edited 25-Feb-91 15:47 by nm") - -(* ;;; "Returns a 16 bit XCCS code. Assuming the input character stream is encoded with JIS. Allows the incorrect usage of KI and KO based on the two different JIS, OLDJIS and NEWJIS, because it is very likely that these two different sets of KI and KO are used simultaneously, although it is against a standard! ") - -(* ;;; "If COUNP is non-NIL, the number of bytes read is returned as a second value. Doesn't do EOL conversion -- \INCHAR or \INCCODE do that.") - - (PROG (CH1 CH2 CH3 (IN16BITFLG (\KIMODEP STREAM T)) - (CHARNUM 0)) - RETRY - (AND (SETQ CH1 (\BIN STREAM)) - (COND - [(EQ CH1 (CHARCODE ESC)) (* ; "Might be KI or KO.") - (SETQ CH2 (\BIN STREAM)) - (COND - [(EQ CH2 (CHARCODE $)) (* ; "Might be KI") - (SETQ CH3 (\BIN STREAM)) - (COND - ((OR (EQ CH3 (CHARCODE B)) - (EQ CH3 (CHARCODE @))) (* ; "KI") - (\CHNAGE.KI.MODE STREAM T T) - (AND COUNTP (SETQ CHARNUM (IPLUS CHARNUM 3))) - (* ; "Here we have to try the same preocedure again, because bogus duplicated KI/KO sequence might come again!") - (SETQ IN16BITFLG T) - (GO RETRY)) - (T (COND - [IN16BITFLG (* ; "Under processing 16 bit code.") - (\BACKFILEPTR STREAM) - (COND - [COUNTP (RETURN (CL:VALUES (\CONV.JIS.TO.XCCS CH1 CH2) - (IPLUS 2 CHARNUM] - (T (RETURN (\CONV.JIS.TO.XCCS CH1 CH2] - (T (\BACKFILEPTR STREAM) - (\BACKFILEPTR STREAM) - (COND - [COUNTP (RETURN (CL:VALUES (CHARCODE ESC) - (IPLUS 1 CHARNUM] - (T (RETURN (CHARCODE ESC] - [(EQ CH2 (CHARCODE %()) (* ; "Might be KO") - (SETQ CH3 (\BIN STREAM)) - (COND - ((OR (EQ CH3 (CHARCODE J)) - (EQ CH3 (CHARCODE H))) (* ; "KO") - (\CHNAGE.KI.MODE STREAM T NIL) - (AND COUNTP (SETQ CHARNUM (IPLUS CHARNUM 3))) - (* ; - "Oops. Yes, we have to try again to ignore duplicated KI/KO sequence.") - (SETQ IN16BITFLG NIL) - (GO RETRY)) - (T (COND - [IN16BITFLG (* ; "Under processing 16 bit code.") - (\BACKFILEPTR STREAM) - (COND - [COUNTP (RETURN (CL:VALUES (\CONV.JIS.TO.XCCS CH1 CH2) - (IPLUS 2 CHARNUM] - (T (RETURN (\CONV.JIS.TO.XCCS CH1 CH2] - (T (\BACKFILEPTR STREAM) - (\BACKFILEPTR STREAM) - (COND - [COUNTP (RETURN (CL:VALUES (CHARCODE ESC) - (IPLUS 1 CHARNUM] - (T (RETURN (CHARCODE ESC] - [IN16BITFLG (* ; "Under processing 16 bit code.") - (COND - [COUNTP (RETURN (CL:VALUES (\CONV.JIS.TO.XCCS CH1 CH2) - (IPLUS 2 CHARNUM] - (T (RETURN (\CONV.JIS.TO.XCCS CH1 CH2] - (T (\BACKFILEPTR STREAM) - (COND - [COUNTP (RETURN (CL:VALUES (CHARCODE ESC) - (IPLUS 1 CHARNUM] - (T (RETURN (CHARCODE ESC] - [IN16BITFLG (* ; "Under processing 16 bit code.") - (COND - [COUNTP (RETURN (CL:VALUES (\CONV.JIS.TO.XCCS CH1 (\BIN STREAM)) - (IPLUS 2 CHARNUM] - (T (RETURN (\CONV.JIS.TO.XCCS CH1 (\BIN STREAM] - [(\HANKAKUP CH1) (* ; -"HANKAKU-KATAKANA is converted to ZENKAKU-KATAKANA because XCCS does not support HANKAKU-KATAKANA.") - (COND - [COUNTP (RETURN (CL:VALUES (\CONV.HANKAKU.KANA CH1) - (IPLUS 1 CHARNUM] - (T (RETURN (\CONV.HANKAKU.KANA CH1] - (T - (* ;; "C0, SP, DEL, C1, 10/0, or 15/15 of 0 character set.") - - (COND - [COUNTP (RETURN (CL:VALUES CH1 (IPLUS 1 CHARNUM] - (T (RETURN CH1]) - -(\JISPEEK - [LAMBDA (STREAM NOERROR COUNTP) (* ; "Edited 25-Feb-91 16:27 by nm") - -(* ;;; "Returns a 16 bit XCCS code. Assuming the input character stream is encoded with JIS. Allows the incorrect usage of KI and KO based on the two different JIS, OLDJIS and NEWJIS, because it is very likely that these two different sets of KI and KO are used simultaneously, although it is against a standard! May actually read the KI or KO. ") - -(* ;;; "If COUNTP is non-NIL, the number of bytes read is returned as a second value. Doesn't do EOL conversion -- \INCHAR or \INCCODE do that.") - - (PROG ((IN16BITFLG (\KIMODEP STREAM T)) - (CHARNUM 0) - (CH1 (\PEEKBIN STREAM NOERROR)) - CH2 CH3) - RETRY - (COND - [(NULL CH1) - (COND - (COUNTP (RETURN (CL:VALUES NIL CHARNUM))) - (T (RETURN NIL] - [(EQ CH1 (CHARCODE ESC)) (* ; "Might be KI or KO.") - (\BIN STREAM) (* ; "Consume the first ESC.") - (SETQ CH2 (\PEEKBIN STREAM NOERROR)) - (COND - [(NULL CH2) - (\BACKFILEPTR STREAM) - (COND - (COUNTP (RETURN (CL:VALUES NIL CHARNUM))) - (T (RETURN NIL] - [(EQ CH2 (CHARCODE $)) (* ; "Might be KI") - (\BIN STREAM) (* ; "Consume the $.") - (SETQ CH3 (\PEEKBIN STREAM NOERROR)) - (COND - [(NULL CH3) - (\BACKFILEPTR STREAM) - (\BACKFILEPTR STREAM) - (COND - (COUNTP (RETURN (CL:VALUES NIL CHARNUM))) - (T (RETURN NIL] - ((OR (EQ CH3 (CHARCODE B)) - (EQ CH3 (CHARCODE @))) (* ; "KI") - (\CHNAGE.KI.MODE STREAM T T) - (AND COUNTP (SETQ CHARNUM (IPLUS CHARNUM 3))) - (\BIN STREAM) (* ; "Consume the B or @.") - (SETQ IN16BITFLG T) - (GO RETRY)) - (T (\BACKFILEPTR STREAM) - (\BACKFILEPTR STREAM) - (COND - [IN16BITFLG (* ; "Under processing 16 bit code.") - (COND - (COUNTP (RETURN (CL:VALUES (\CONV.JIS.TO.XCCS CH1 CH2) - CHARNUM))) - (T (RETURN (\CONV.JIS.TO.XCCS CH1 CH2] - (T (COND - (COUNTP (RETURN (CL:VALUES (CHARCODE ESC) - CHARNUM))) - (T (RETURN (CHARCODE ESC] - [(EQ CH2 (CHARCODE %()) (* ; "Might be KO") - (\BIN STREAM) (* ; "Consume the (.") - (SETQ CH3 (\PEEKBIN STREAM NOERROR)) - (COND - [(NULL CH3) - (\BACKFILEPTR STREAM) - (\BACKFILEPTR STREAM) - (COND - (COUNTP (RETURN (CL:VALUES NIL CHARNUM))) - (T (RETURN NIL] - ((OR (EQ CH3 (CHARCODE J)) - (EQ CH3 (CHARCODE H))) (* ; "KO") - (\CHNAGE.KI.MODE STREAM T NIL) - (AND COUNTP (SETQ CHARNUM 3)) - (\BIN STREAM) (* ; "Consume the J or H.") - (SETQ IN16BITFLG NIL) - (GO RETRY)) - (T (\BACKFILEPTR STREAM) - (\BACKFILEPTR STREAM) - (COND - [IN16BITFLG (* ; "Under processing 16 bit code.") - (COND - (COUNTP (RETURN (CL:VALUES (\CONV.JIS.TO.XCCS CH1 CH2) - CHARNUM))) - (T (RETURN (\CONV.JIS.TO.XCCS CH1 CH2] - (T (COND - (COUNTP (RETURN (CL:VALUES (CHARCODE ESC) - CHARNUM))) - (T (RETURN (CHARCODE ESC] - [IN16BITFLG (* ; "Under processing 16 bit code.") - (\BACKFILEPTR STREAM) - (COND - (COUNTP (RETURN (CL:VALUES (\CONV.JIS.TO.XCCS CH1 CH2) - CHARNUM))) - (T (RETURN (\CONV.JIS.TO.XCCS CH1 CH2] - (T (\BACKFILEPTR STREAM) - (COND - (COUNTP (RETURN (CL:VALUES (CHARCODE ESC) - CHARNUM))) - (T (RETURN (CHARCODE ESC] - [IN16BITFLG (* ; "Under processing 16 bit code.") - (\BIN STREAM) (* ; "Consume the first byte.") - (SETQ CH2 (\PEEKBIN STREAM NOERROR)) - (\BACKFILEPTR STREAM) - (COND - [CH2 (COND - (COUNTP (RETURN (CL:VALUES (\CONV.JIS.TO.XCCS CH1 CH2) - CHARNUM))) - (T (RETURN (\CONV.JIS.TO.XCCS CH1 CH2] - (T (COND - (COUNTP (RETURN (CL:VALUES NIL CHARNUM))) - (T (RETURN NIL] - [(\HANKAKUP CH1) (* ; -"HANKAKU-KATAKANA is converted to ZENKAKU-KATAKANA because XCCS does not support HANKAKU-KATAKANA.") - (COND - (COUNTP (RETURN (CL:VALUES (\CONV.HANKAKU.KANA CH1) - CHARNUM))) - (T (RETURN (\CONV.HANKAKU.KANA CH1] - (T - (* ;; "C0, SP, DEL, C1, 10/0, or 15/15 of 0 character set.") - - (COND - (COUNTP (RETURN (CL:VALUES CH1 CHARNUM))) - (T (RETURN CH1]) - -(\BACKJISCHAR - [LAMBDA (STREAM COUNTP) (* ; "Edited 25-Feb-91 17:05 by nm") - (COND - ((\BACKFILEPTR STREAM) - (COND - [(\KIMODEP STREAM T) - (COND - ((\BACKFILEPTR STREAM) - (AND COUNTP 2)) - (T (AND COUNTP 1] - (COUNTP 1))) - (COUNTP 0]) - -(\SHIFTJISIN - [LAMBDA (STREAM COUNTP) (* ; "Edited 25-Feb-91 15:49 by nm") - -(* ;;; "Returns a 16 bit XCCS code. Assuming the input character stream is encoded with Shift-JIS. If COUNP is non-NIL, the number of bytes read is returned as a second value. Doesn't do EOL conversion -- \INCHAR or \INCCODE do that..") - - (LET ((CH1 (\BIN STREAM)) - CH2) - (AND CH1 (COND - [(\SJIS.KANJI.FIRST.BYTEP CH1) (* ; - "Read next byte and compose a kanji character.") - (\CONV.SJIS.TO.JIS CH1 (\BIN STREAM)) (* ; - "CH1 and CH2 is adjusted to represent JIS code in \CONV.SJIS.TO.JIS.") - (COND - (COUNTP (CL:VALUES (\CONV.JIS.TO.XCCS CH1 CH2) - 2)) - (T (\CONV.JIS.TO.XCCS CH1 CH2] - (T (* ; "ASCII or HANKAKU-KATAKANA") - (COND - [(\HANKAKUP CH1) (* ; "HANKAKU-KATAKANA") - (COND - (COUNTP (CL:VALUES (\CONV.HANKAKU.KANA CH1) - 1)) - (T (\CONV.HANKAKU.KANA CH1] - (T (* ; "ASCII") - (COND - (COUNTP (CL:VALUES CH1 1)) - (T CH1]) - -(\SHIFTJISPEEK - [LAMBDA (STREAM NOERROR COUNTP) (* ; "Edited 25-Feb-91 16:30 by nm") - -(* ;;; "Returns a 16 bit XCCS code. Assuming the input character stream is encoded with Shift-JIS. Doesn't do EOL conversion -- \INCHAR or \INCCODE do that.") - - (PROG ((CH1 (\PEEKBIN STREAM NOERROR)) - CH2) - (COND - [(NULL CH1) - (COND - (COUNTP (RETURN (CL:VALUES NIL 0))) - (T (RETURN NIL] - [(\SJIS.KANJI.FIRST.BYTEP CH1) (* ; - "Read next byte and compose a kanji character.") - (\BIN STREAM) (* ; "Consume the first byte.") - [COND - ((NULL (SETQ CH2 (\PEEKBIN STREAM NOERROR))) - (\BACKFILEPTR STREAM) - (COND - (COUNTP (RETURN (CL:VALUES NIL 0))) - (T (RETURN NIL] - (\BACKFILEPTR STREAM) - (\CONV.SJIS.TO.JIS CH1 CH2) (* ; - "CH1 and CH2 is adjusted to represent JIS code in \CONV.SJIS.TO.JIS.") - (COND - (COUNTP (RETURN (CL:VALUES (\CONV.JIS.TO.XCCS CH1 CH2) - 0))) - (T (RETURN (\CONV.JIS.TO.XCCS CH1 CH2] - (T (* ; "ASCII or HANKAKU-KATAKANA") - (RETURN (COND - [(\HANKAKUP CH1) (* ; "HANKAKU-KATAKANA") - (COND - (COUNTP (RETURN (CL:VALUES (\CONV.HANKAKU.KANA CH1) - 0))) - (T (RETURN (\CONV.HANKAKU.KANA CH1] - (T (* ; "ASCII") - (COND - (COUNTP (RETURN (CL:VALUES CH1 0))) - (T (RETURN CH1]) - -(\BACKSHIFTJISCHAR - [LAMBDA (STREAM COUNTP) (* ; "Edited 25-Feb-91 17:05 by nm") - (COND - ((\BACKFILEPTR STREAM) - (COND - [(\BACKFILEPTR STREAM) - (COND - ((\SJIS.KANJI.FIRST.BYTEP (\PEEKBIN STREAM)) - (AND COUNTP 2)) - (T (\BIN STREAM) - (AND COUNTP 1] - (COUNTP 1))) - (COUNTP 0]) - -(\EUCIN - [LAMBDA (STREAM COUNTP) (* ; "Edited 25-Feb-91 15:54 by nm") - -(* ;;; "Returns a 16 bit XCCS code. Assuming the input character stream is encoded with EUC (Extended Unix Codes). Although EUC is independent of a particular language, the language implemented here is Japanese, thus this should be called as UJIS (Unixnized extended JIS code). JEIDA uses EUC as UJIS. ") - -(* ;;; "If COUNP is non-NIL, the number of bytes read is returned as a second value. Doesn't do EOL conversion -- \INCHAR or \INCCODE do that.") - - (LET ((CH1 (\BIN STREAM)) - CH2) - (AND CH1 (COND - [(\EUC.KANJI.FIRST.BYTEP CH1) (* ; - "Read next byte and compose a kanji character.") - (COND - (COUNTP (CL:VALUES (\CONV.JIS.TO.XCCS (LOGAND CH1 127) - (LOGAND (\BIN STREAM) - 127)) - 2)) - (T (\CONV.JIS.TO.XCCS (LOGAND CH1 127) - (LOGAND (\BIN STREAM) - 127] - [(\EUC.HANKAKUP CH1) - (COND - (COUNTP (CL:VALUES (\CONV.HANKAKU.KANA (\BIN STREAM)) - 2)) - (T (\CONV.HANKAKU.KANA (\BIN STREAM] - [(\GAIJIP CH1) - (COND - (COUNTP (CL:VALUES (\CONV.JIS.TO.XCCS (LOGAND (\BIN STREAM) - 127) - (LOGAND (\BIN STREAM) - 127)) - 3)) - (T (\CONV.JIS.TO.XCCS (LOGAND (\BIN STREAM) - 127) - (LOGAND (\BIN STREAM) - 127] - (T (* ; "ASCII, C0, C1, SP or DEL") - (COND - (COUNTP (CL:VALUES CH1 1)) - (T CH1]) - -(\EUCPEEK - [LAMBDA (STREAM NOERROR COUNTP) (* ; "Edited 25-Feb-91 16:35 by nm") - -(* ;;; "Returns a 16 bit XCCS code. Assuming the input character stream is encoded with EUC (Extended Unix Codes). Although EUC is independent of a particular language, the language implemented here is Japanese, thus this should be called as UJIS (Unixnized extended JIS code). JEIDA uses EUC as UJIS. Doesn't do EOL conversion -- \INCHAR or \INCCODE do that.") - - (PROG ((CH1 (\PEEKBIN STREAM NOERROR)) - CH2) - (COND - [(NULL CH1) - (COND - (COUNTP (RETURN (CL:VALUES NIL 0))) - (T (RETURN NIL] - [(\EUC.KANJI.FIRST.BYTEP CH1) (* ; - "Read next byte and compose a kanji character.") - (\BIN STREAM) (* ; "Consume the first byte.") - [COND - ((NULL (SETQ CH2 (\PEEKBIN STREAM NOERROR))) - (\BACKFILEPTR STREAM) - (COND - (COUNTP (RETURN (CL:VALUES NIL 0))) - (T (RETURN NIL] - (\BACKFILEPTR STREAM) - (COND - (COUNTP (RETURN (CL:VALUES (\CONV.JIS.TO.XCCS (LOGAND CH1 127) - (LOGAND CH2 127)) - 0))) - (T (RETURN (\CONV.JIS.TO.XCCS (LOGAND CH1 127) - (LOGAND CH2 127] - [(\EUC.HANKAKUP CH1) - (\BIN STREAM) (* ; "Consume the SS2.") - [COND - ((NULL (SETQ CH2 (\PEEKBIN STREAM NOERROR))) - (\BACKFILEPTR STREAM) - (COND - (COUNTP (RETURN (CL:VALUES NIL 0))) - (T (RETURN NIL] - (\BACKFILEPTR STREAM) - (COND - (COUNTP (RETURN (CL:VALUES (\CONV.HANKAKU.KANA CH2) - 0))) - (T (RETURN (\CONV.HANKAKU.KANA CH2] - [(\GAIJIP CH1) - (\BIN STREAM) (* ; "Consume the SS3.") - [COND - ((NULL (SETQ CH1 (\PEEKBIN STREAM NOERROR))) - (\BACKFILEPTR STREAM) - (COND - (COUNTP (RETURN (CL:VALUES NIL 0))) - (T (RETURN NIL] - (\BIN STREAM) (* ; - "Consume the first byte in GAIJI.") - [COND - ((NULL (SETQ CH2 (\PEEKBIN STREAM NOERROR))) - (\BACKFILEPTR STREAM) - (\BACKFILEPTR STREAM) - (COND - (COUNTP (RETURN (CL:VALUES NIL 0))) - (T (RETURN NIL] - (\BACKFILEPTR STREAM) - (\BACKFILEPTR STREAM) - (COND - (COUNTP (RETURN (CL:VALUES (\CONV.JIS.TO.XCCS (LOGAND CH1 127) - (LOGAND CH2 127)) - 0))) - (T (RETURN (\CONV.JIS.TO.XCCS (LOGAND CH1 127) - (LOGAND CH2 127] - (T (* ; "ASCII, C0, C1, SP or DEL") - (COND - (COUNTP (RETURN (CL:VALUES CH1 0))) - (T (RETURN CH1]) - -(\BACKEUCCHAR - [LAMBDA (STREAM COUNTP) (* ; "Edited 25-Feb-91 17:06 by nm") - (COND - ((\BACKFILEPTR STREAM) - (COND - ((BITTEST (\PEEKBIN STREAM) - (MASK.1'S 7 1)) (* ; "C1, KAINJI, HANKAKU or GAIJI") - (COND - [(\BACKFILEPTR STREAM) - (COND - ((\EUC.HANKAKUP (\PEEKBIN STREAM)) - (AND COUNTP 2)) - ((BITTEST (\PEEKBIN STREAM) - (MASK.1'S 7 1)) (* ; "KANJI or GAIJI") - (COND - [(\BACKFILEPTR STREAM) - (COND - ((\GAIJIP (\PEEKBIN STREAM)) - (AND COUNTP 3)) - (T (* ; "KANJI") - (\BIN STREAM) - (AND COUNTP 2] - (COUNTP 2))) - (T (* ; "C1") - (\BIN STREAM) - (AND COUNTP 1] - (COUNTP 1))) - (COUNTP 1))) - (COUNTP 0]) - -(\THROUGHIN - [LAMBDA (STREAM COUNTP) (* ; "Edited 26-Feb-91 13:36 by nm") - -(* ;;; "Read in a single byte from STREAM and returns it without any character conversion, just through as if.") - -(* ;;; "If COUNP is non-NIL, always 1 is returned as the second value.") - - (COND - (COUNTP (CL:VALUES (\BIN STREAM) - 1)) - (T (\BIN STREAM]) - -(\THROUGHPEEK - [LAMBDA (STREAM NOERROR COUNTP) (* ; "Edited 26-Feb-91 13:40 by nm") - -(* ;;; "Returns a 8 bit code without any character conversion, just through as if.") - -(* ;;; "If COUNTP is non-NIL, always 0 is returned as its second value.") - - (COND - (COUNTP (CL:VALUES (\PEEKBIN STREAM NOERROR) - 0)) - (T (\PEEKBIN STREAM NOERROR]) - -(\BACKTHROUGHCHAR - [LAMBDA (STREAM COUNTP) (* ; "Edited 26-Feb-91 13:43 by nm") - (COND - ((\BACKFILEPTR STREAM) - 1) - (COUNTP 0]) -) -(DECLARE%: DOEVAL@COMPILE DONTCOPY -(* "FOLLOWING DEFINITIONS EXPORTED")(DECLARE%: EVAL@COMPILE - -(PUTPROPS \XCCSIN MACRO [(STREAM SHIFTEDCSET SHIFTEDCSETVAR COUNTERVAR) - -(* ;;; "returns a 16 bit character code. SHIFTEDCSET is STREAM's char set left shifted 8, SHIFTEDCSETVAR if non-NIL is the variable to set if char set changes. COUNTERVAR if non-NIL is decremented by number of bytes read. Doesn't do EOL conversion -- \INCHAR and \INCCODE do that.") - - (LET ((CHAR (\BIN STREAM)) - SCSET) - (COND - [(EQ CHAR NSCHARSETSHIFT) - (* ; "Shifting character sets") - [ACCESS-CHARSET STREAM - (SETQ SCSET (COND - ((NEQ NSCHARSETSHIFT (SETQ CHAR - (\BIN STREAM))) - (AND 'COUNTERVAR (SETQ COUNTERVAR - (IDIFFERENCE - COUNTERVAR 2))) - CHAR) - ((PROGN - (* ; - "2 shift-bytes means not run-encoded") - (AND 'COUNTERVAR - (SETQ COUNTERVAR - (IDIFFERENCE COUNTERVAR - 3))) - (EQ 0 (\BIN STREAM))) - \NORUNCODE) - (T (\NSIN.24BITENCODING.ERROR - STREAM] - (SETQ CHAR (\BIN STREAM)) - (SETQ SCSET (COND - ('SHIFTEDCSETVAR - (* ; "CHARSETVAR=NIL means don't set") - (SETQ SHIFTEDCSETVAR (UNFOLD SCSET - 256))) - (T (UNFOLD SCSET 256] - (T (SETQ SCSET SHIFTEDCSET))) - (COND - ((EQ SCSET (UNFOLD \NORUNCODE 256)) - (* ; - "just read two bytes and combine them to a 16 bit value") - (AND 'COUNTERVAR (SETQ COUNTERVAR (IDIFFERENCE COUNTERVAR 2 - ))) - (LOGOR (UNFOLD CHAR 256) - (\BIN STREAM))) - (CHAR (AND 'COUNTERVAR (SETQ COUNTERVAR (IDIFFERENCE - COUNTERVAR 1) - )) - (AND CHAR (LOGOR SCSET CHAR]) - -(PUTPROPS \XCCSPEEK MACRO [(STREAM SHIFTEDCSET SHIFTEDCSETVAR NOERROR COUNTERVAR) - - (* ;; "Returns a 16 bit character code. Doesn't do EOL conversion--\INCHAR does that. May actually read the character-set shift, storing the result in the stream. COUNTERVAR, if given, is updated to reflect any such bytes that are actually read") - - (PROG ((CHAR (\PEEKBIN STREAM NOERROR)) - SCSET) - (COND - ((NULL CHAR) - (RETURN NIL)) - [(EQ CHAR NSCHARSETSHIFT) - (* ; "CHARSETVAR=NIL means don't set") - (\BIN STREAM) (* ; "Consume the char shift byte") - [ACCESS-CHARSET STREAM - (SETQ SCSET (COND - ((NEQ NSCHARSETSHIFT - (SETQ CHAR (\BIN STREAM))) - (* ; - "Note: no eof error check on this \BIN -- an eof in the middle of a charset shift is an error") - (AND 'COUNTERVAR - (SETQ COUNTERVAR - (IDIFFERENCE COUNTERVAR 2)) - ) - CHAR) - ((PROGN - (* ; - "2 shift-bytes means not run-encoded") - (AND 'COUNTERVAR - (SETQ COUNTERVAR - (IDIFFERENCE - COUNTERVAR 3) - )) - (EQ 0 (\BIN STREAM))) - \NORUNCODE) - (T (\NSIN.24BITENCODING.ERROR - STREAM] - [SETQ SCSET (COND - ('SHIFTEDCSETVAR - (* ; "CHARSETVAR=NIL means don't set") - (SETQ SHIFTEDCSETVAR - (UNFOLD SCSET 256))) - (T (UNFOLD SCSET 256] - (COND - ((NULL (SETQ CHAR (\PEEKBIN STREAM NOERROR))) - (RETURN NIL] - (T (SETQ SCSET SHIFTEDCSET))) - (RETURN (COND - ((EQ SCSET (UNFOLD \NORUNCODE 256)) - - (* ;; "just peek two bytes and combine them to a 16 bit value. Again, is an error if we hit eof in mid-character") - - (\BIN STREAM) - (PROG1 (LOGOR (UNFOLD CHAR 256) - (\PEEKBIN STREAM NOERROR)) - (\BACKFILEPTR STREAM))) - (T (LOGOR SHIFTEDCSET CHAR]) - -(PUTPROPS \BACKXCCSCHAR MACRO [(STREAM SHIFTEDCHARSET COUNTERVAR) - (AND (\BACKFILEPTR STREAM) - (COND - [[COND - (SHIFTEDCHARSET (EQ SHIFTEDCHARSET - (UNFOLD \NORUNCODE 256))) - (T (EQ \NORUNCODE (ACCESS-CHARSET STREAM] - (COND - ((\BACKFILEPTR STREAM) - (AND 'COUNTERVAR (add COUNTERVAR 2)) - T) - ('COUNTERVAR (add COUNTERVAR 1] - ('COUNTERVAR (add COUNTERVAR 1]) - -(PUTPROPS \XCCSP MACRO [OPENLAMBDA (ST) - (NOT (ffetch (STREAM NOTXCCS) of (\DTEST ST 'STREAM]) -) -(DECLARE%: EVAL@COMPILE - -(PUTPROPS \EXTRACT.NO.FONT.CODE MACRO ((JISCODE) - (CDR (ASSOC JISCODE *JIS-TO-XCCS-CONV-NO-FONT-TABLE*)) - )) - -(PUTPROPS \EXTARACT.CONV.TABLE MACRO ((KU) - (CDR (ASSOC KU *JIS-TO-XCCS-CONV-TABLE-LIST*)))) - -(PUTPROPS \NOT.EQUIVALENT.TO.XCCS MACRO ((KU) - -(* ;;; " The JIS codes which are not equiavelent to XCCS reside in 1, 2, 3, 6, 8 and 84 KU. Although from 84-5 to 94-94 inclusive are not defined in JIS, that is they are GAIJI, they are also handled here.") - - (OR (EQ KU 33) - (EQ KU 34) - (EQ KU 35) - (EQ KU 38) - (EQ KU 40) - (EQ KU 116) - (EQ KU 117)))) - -(PUTPROPS \EXTRACT.SET MACRO ((TEN TABLE) - (ELT TABLE (IDIFFERENCE (UNFOLD (IDIFFERENCE TEN 32) - 2) - 1)))) - -(PUTPROPS \EXTRACT.CODE MACRO ((TEN TABLE) - (ELT TABLE (UNFOLD (IDIFFERENCE TEN 32) - 2)))) - -(PUTPROPS \CHNAGE.KI.MODE MACRO [OPENLAMBDA (ST INPUTFLG ENTERP) - -(* ;;; -"INPUTFLG is true if \CHNAGE.KI.MODE is called in the context in which ST is an input stream.") - - (COND - [INPUTFLG (COND - (ENTERP (freplace (STREAM IN.KANJIIN) - of (\DTEST ST 'STREAM) - with T)) - (T (freplace (STREAM IN.KANJIIN) - of (\DTEST ST 'STREAM) - with NIL] - (T (COND - (ENTERP (freplace (STREAM OUT.KANJIIN) - of (\DTEST ST 'STREAM) with - T)) - (T (freplace (STREAM OUT.KANJIIN) - of (\DTEST ST 'STREAM) with NIL]) - -(PUTPROPS \KIMODEP MACRO [OPENLAMBDA (ST INPUTFLG) - -(* ;;; "INPUTFLG is true if \KIMODEP is called in the context in which ST is an input stream.") - - (COND - [INPUTFLG (ffetch (STREAM IN.KANJIIN) - of (\DTEST ST 'STREAM] - (T (ffetch (STREAM OUT.KANJIIN) of (\DTEST ST - 'STREAM]) - -(PUTPROPS \HANKAKUP MACRO ((CHAR) - (< 160 CHAR 224))) - -(PUTPROPS \KANJIP MACRO ((CHAR) - (< 12158 CHAR 29733))) - -(PUTPROPS \NOTGAIJIP MACRO ((CHAR) - (OR (< 8480 CHAR 10305) - (< 12158 CHAR 29733)))) - -(PUTPROPS \INVALID.TENP MACRO (OPENLAMBDA (TEN) - (OR (< TEN 33) - (< 126 TEN)))) - -(PUTPROPS \CONV.HANKAKU.KANA MACRO ((CHAR) - (GETHASH CHAR *HANKAKU-TO-ZENKAKU-CONV-TABLE*))) - -(PUTPROPS \OUTKI MACRO ((STREAM) - (\BOUT OUTSTREAM (CHARCODE ESC)) - (\BOUT OUTSTREAM (CHARCODE $)) - (\BOUT OUTSTREAM (CHARCODE B)))) - -(PUTPROPS \OUTKO MACRO ((STREAM) - (\BOUT OUTSTREAM (CHARCODE ESC)) - (\BOUT OUTSTREAM (CHARCODE %()) - (\BOUT OUTSTREAM (CHARCODE J)))) -) -(DECLARE%: EVAL@COMPILE - -(PUTPROPS \CONV.SJIS.TO.JIS MACRO [OPENLAMBDA (HI LO) - -(* ;;; "Convert Shift-JIS to JIS. The variable named CH1 and CH2 are set to the converted hight 8 bit and low 8bit of JIS code respectively.") - - [SETQ CH1 (IDIFFERENCE HI (COND - ((> HI 159) - 177) - (T 113] - (SETQ CH1 (IPLUS (UNFOLD CH1 2) - 1)) - (SETQ CH2 (COND - [(> LO 158) - (PROG1 (IDIFFERENCE LO 126) - (SETQ CH1 (IPLUS CH1 1)))] - (T (IDIFFERENCE LO (COND - ((> LO 126) - (IPLUS 31 1)) - (T 31]) - -(PUTPROPS \CONV.JIS.TO.SJIS MACRO [OPENLAMBDA (HI LO) - -(* ;;; "Convert JIS to Shift-JIS. The variable named CH1 and CH2 are set to the converted hight 8 bit and low 8bit of Shift-JIS code respectively.") - - [SETQ CH2 (COND - ((ODDP HI) - (SETQ CH2 (IPLUS LO 31)) - (COND - ((>= CH2 127) - (IPLUS CH2 1)) - (T CH2))) - (T (IPLUS LO 126] - (SETQ CH1 (IPLUS (FOLDLO (IDIFFERENCE HI 33) - 2) - 129)) - (AND (> CH1 159) - (SETQ CH1 (IPLUS CH1 64]) - -(PUTPROPS \SJIS.KANJI.FIRST.BYTEP MACRO (OPENLAMBDA (CHAR) - (OR (< 127 CHAR 160) - (< 223 CHAR 256)))) -) -(DECLARE%: EVAL@COMPILE - -(PUTPROPS \EUC.KANJI.FIRST.BYTEP MACRO ((CHAR) - (< 160 CHAR 255))) - -(PUTPROPS \GAIJIP MACRO ((CHAR) - (EQ CHAR 143))) - -(PUTPROPS \EUC.HANKAKUP MACRO ((CHAR) - (EQ CHAR 142))) -) - -(* "END EXPORTED DEFINITIONS") - -) - -(RPAQ? *SIGNAL-24BIT-NSENCODING-ERROR* ) (RPAQ? *READ-NEWLINE-SUPPRESS* ) @@ -3136,28 +1789,24 @@ Copyright (c) 1981-1988, 1990-1991, 1993, 2021 by Venue & Xerox Corporation. (ADDTOVAR NLAML ) -(ADDTOVAR LAMA CONVHANKAKU CL:PARSE-INTEGER CL:READ-DELIMITED-LIST CL:READ-PRESERVING-WHITESPACE - CL:READ) +(ADDTOVAR LAMA CL:PARSE-INTEGER CL:READ-DELIMITED-LIST CL:READ-PRESERVING-WHITESPACE CL:READ) ) (PUTPROPS LLREAD COPYRIGHT ("Venue & Xerox Corporation" 1981 1982 1983 1984 1985 1986 1987 1988 1990 1991 1993 2021)) (DECLARE%: DONTCOPY - (FILEMAP (NIL (6807 17343 (LASTC 6817 . 7947) (PEEKC 7949 . 8337) (PEEKCCODE 8339 . 8628) (RATOM 8630 - . 9711) (READ 9713 . 10273) (READC 10275 . 10692) (READCCODE 10694 . 11110) (READP 11112 . 11664) ( -SETREADMACROFLG 11666 . 11965) (SKIPSEPRCODES 11967 . 13312) (SKIPSEPRS 13314 . 14571) ( -\NSIN.24BITENCODING.ERROR 14573 . 15392) (SKREAD 15394 . 17341)) (17389 26064 (CL:READ 17399 . 17948) -(CL:READ-PRESERVING-WHITESPACE 17950 . 18672) (CL:READ-DELIMITED-LIST 18674 . 19589) (CL:PARSE-INTEGER - 19591 . 26062)) (26157 40130 (RSTRING 26167 . 26899) (READ-EXTENDED-TOKEN 26901 . 31462) (\RSTRING2 -31464 . 40128)) (40166 72483 (\TOP-LEVEL-READ 40176 . 42159) (\SUBREAD 42161 . 68899) (\SUBREADCONCAT -68901 . 69524) (\ORIG-READ.SYMBOL 69526 . 70594) (\ORIG-INVALID.SYMBOL 70596 . 71495) (\APPLYREADMACRO - 71497 . 71913) (INREADMACROP 71915 . 72481)) (72642 72817 (READQUOTE 72652 . 72815)) (72842 84746 ( -READVBAR 72852 . 74183) (READHASHMACRO 74185 . 79995) (DEFMACRO-LAMBDA-LIST-KEYWORD-P 79997 . 80217) ( -DIGITBASEP 80219 . 80953) (READNUMBERINBASE 80955 . 82841) (ESTIMATE-DIMENSIONALITY 82843 . 83168) ( -SKIP.HASH.COMMENT 83170 . 84138) (CMLREAD.FEATURE.PARSER 84140 . 84744)) (84790 91323 (CHARACTER.READ -84800 . 86054) (CHARCODE.DECODE 86056 . 91321)) (111533 116749 (\MAKE.JIS.TO.XCCS.CONV.TABLE 111543 . -116747)) (120665 120984 (CONVHANKAKU 120675 . 120982)) (123955 149095 (\JISIN 123965 . 129666) ( -\JISPEEK 129668 . 136294) (\BACKJISCHAR 136296 . 136665) (\SHIFTJISIN 136667 . 138306) (\SHIFTJISPEEK -138308 . 140414) (\BACKSHIFTJISCHAR 140416 . 140846) (\EUCIN 140848 . 143239) (\EUCPEEK 143241 . -146820) (\BACKEUCCHAR 146822 . 148065) (\THROUGHIN 148067 . 148482) (\THROUGHPEEK 148484 . 148898) ( -\BACKTHROUGHCHAR 148900 . 149093))))) + (FILEMAP (NIL (3513 11730 (LASTC 3523 . 3829) (PEEKC 3831 . 4219) (PEEKCCODE 4221 . 4514) (RATOM 4516 + . 5597) (READ 5599 . 6159) (READC 6161 . 6796) (READCCODE 6798 . 7551) (READP 7553 . 8105) ( +SETREADMACROFLG 8107 . 8406) (SKIPSEPRCODES 8408 . 9391) (SKIPSEPRS 9393 . 9779) (SKREAD 9781 . 11728) +) (11776 20451 (CL:READ 11786 . 12335) (CL:READ-PRESERVING-WHITESPACE 12337 . 13059) ( +CL:READ-DELIMITED-LIST 13061 . 13976) (CL:PARSE-INTEGER 13978 . 20449)) (20544 33483 (RSTRING 20554 . +21286) (READ-EXTENDED-TOKEN 21288 . 25154) (\RSTRING2 25156 . 33481)) (33519 66982 (\TOP-LEVEL-READ +33529 . 35512) (\SUBREAD 35514 . 61005) (\SUBREADCONCAT 61007 . 61630) (\ORIG-READ.SYMBOL 61632 . +62700) (\ORIG-INVALID.SYMBOL 62702 . 63601) (\APPLYREADMACRO 63603 . 64019) (INREADMACROP 64021 . +64587) (\CHECKEOLC.CRLF 64589 . 66980)) (67141 67316 (READQUOTE 67151 . 67314)) (67341 79245 (READVBAR + 67351 . 68682) (READHASHMACRO 68684 . 74494) (DEFMACRO-LAMBDA-LIST-KEYWORD-P 74496 . 74716) ( +DIGITBASEP 74718 . 75452) (READNUMBERINBASE 75454 . 77340) (ESTIMATE-DIMENSIONALITY 77342 . 77667) ( +SKIP.HASH.COMMENT 77669 . 78637) (CMLREAD.FEATURE.PARSER 78639 . 79243)) (79289 85822 (CHARACTER.READ +79299 . 80553) (CHARCODE.DECODE 80555 . 85820)) (90247 95097 (\OUTCHAR 90257 . 90660) (\INCCODE 90662 + . 91345) (\BACKCCODE 91347 . 91647) (\PEEKCCODE 91649 . 91965) (\PEEKCCODE.NOEOLC 91967 . 92229) ( +\INCHAR 92231 . 92915) (\INCCODE.EOLC 92917 . 93607) (\FORMATBYTESTREAM 93609 . 95095))))) STOP diff --git a/sources/LLREAD.LCOM b/sources/LLREAD.LCOM index 72a179204..2c78f2fef 100644 Binary files a/sources/LLREAD.LCOM and b/sources/LLREAD.LCOM differ diff --git a/sources/LLREAD.XLCOM b/sources/LLREAD.XLCOM new file mode 100644 index 000000000..720456a0e Binary files /dev/null and b/sources/LLREAD.XLCOM differ diff --git a/sources/MACHINEINDEPENDENT b/sources/MACHINEINDEPENDENT index c505231bf..475b1c114 100644 --- a/sources/MACHINEINDEPENDENT +++ b/sources/MACHINEINDEPENDENT @@ -1,13 +1,14 @@ -(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "XCL" BASE 10) -(FILECREATED " 4-Feb-2021 19:07:44" |{DSK}larry>ilisp>medley>sources>MACHINEINDEPENDENT.;2| 77071 +(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "XCL" BASE 10 FORMAT XCCS) +(FILECREATED " 9-Jul-2021 22:18:59"  +|{DSK}kaplan>Local>medley3.5>git-medley>sources>MACHINEINDEPENDENT.;4| 78156 - |changes| |to:| (VARS MACHINEINDEPENDENTCOMS) + |changes| |to:| (FNS LISPSOURCEFILEP) - |previous| |date:| "27-Feb-91 18:30:38" -|{DSK}larry>ilisp>medley>sources>MACHINEINDEPENDENT.;1|) + |previous| |date:| " 9-Jul-2021 08:06:11" +|{DSK}kaplan>Local>medley3.5>git-medley>sources>MACHINEINDEPENDENT.;3|) -; Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 2021 by Venue & Xerox Corporation. All rights reserved. +; Copyright (c) 1983-1991, 2021 by Venue & Xerox Corporation. ; The following program was created in 1983 but has not been published ; within the meaning of the copyright law, is furnished under license, ; and may not be used, copied and/or disclosed except in accordance @@ -16,11 +17,11 @@ (PRETTYCOMPRINT MACHINEINDEPENDENTCOMS) (RPAQQ MACHINEINDEPENDENTCOMS - ((COMS (* \; " \"File loader\"") + ((COMS (* \; " \"File loader\"") (FNS LOAD? FILESLOAD DOFILESLOAD FINDFILE-WITH-EXTENSIONS READ-FILECREATED) (INITVARS (*COMPILED-EXTENSIONS* (LIST FASL.EXT COMPILE.EXT)))) - (COMS (* \; - "random machine-independent utilities") + (COMS (* \; + "random machine-independent utilities") (FNS DMPHASH HASHOVERFLOW) (DECLARE\: EVAL@COMPILE DONTCOPY (MACROS HASHOVERFLOW.ARRAYTEST HASHOVERFLOW.UPDATEARRAY)) @@ -29,19 +30,19 @@ READLINE REMPROPLIST RESETBUFS TAB UNSAVED1 WRITEFILE CLOSE-AND-MAYBE-DELETE UNSAFE.TO.MODIFY) (VARS UNSAFE.TO.MODIFY.FNS) - (COMS (* \; - "FILEDATE, for finding out the creation date of source files, from the compiled files.") + (COMS (* \; + "FILEDATE, for finding out the creation date of source files, from the compiled files.") - (* |;;| "FASL isn't loaded when MACHINEINDEPENDENT is, so we have to fake the FASL checker for now. It's defined in FASLOAD.") + (* |;;| "FASL isn't loaded when MACHINEINDEPENDENT is, so we have to fake the FASL checker for now. It's defined in FASLOAD.") (FNS FILEDATE) (P (MOVD? 'NILL 'FASL-FILEDATE))) (P (MOVD? 'CL:FMAKUNBOUND 'UNDOABLY-FMAKUNBOUND)) - (* \; - "used in FNS.PUTDEF before CMLUNDO loaded") + (* \; + "used in FNS.PUTDEF before CMLUNDO loaded") ) - (COMS (* \; - "Functions for retrieving and remembering FILEMAPs and file reader environments") + (COMS (* \; + "Functions for retrieving and remembering FILEMAPs and file reader environments") (FNS FILEMAP \\PARSE-FILE-HEADER GET-ENVIRONMENT-AND-FILEMAP LOOKUP-ENVIRONMENT-AND-FILEMAP GET-FILEMAP-FROM-FILECREATED \\FILEMAP-HASHOVERFLOW FLUSHFILEMAPS LISPSOURCEFILEP GETFILEMAP PUTFILEMAP UPDATEFILEMAP @@ -55,9 +56,9 @@ (GLOBALVARS *FILEMAP-LIMIT* *FILEMAP-VERSIONS* *FILEMAP-HASH*))) (COMS (* * LVLPRINT) (FNS LVLPRINT LVLPRIN1 LVLPRIN2 LVLPRIN LVLPRIN0)) - (COMS (* \; "used by PRINTOUT") + (COMS (* \; "used by PRINTOUT") (FNS FLUSHRIGHT PRINTPARA PRINTPARA1)) - (COMS (* \; "SUBLIS and friends") + (COMS (* \; "SUBLIS and friends") (FNS SUBLIS SUBPAIR DSUBLIS)) (COMS (* * CONSTANTS) (FNS CONSTANTOK) @@ -72,8 +73,8 @@ USERWORDS BELLS CLISPARRAY) (FNS NLAMBDA.ARGS) (DECLARE\: - DONTEVAL@LOAD DOCOPY (* \; - "initialization of variables used in many places") + DONTEVAL@LOAD DOCOPY (* \; + "initialization of variables used in many places") (ADDVARS (CLISPARRAY) (CLISPFLG) (CTRLUFLG) @@ -565,9 +566,26 @@ The first expression on the file is read in the current reader environment. Usu (lambda (rootname) (* |bvm:| "26-Sep-86 11:37") (|if| (eq rootname t) |then| (clrhash *filemap-hash*) |else| (maphash *filemap-hash* (function (lambda (me fullname) (|if| (string-equal (|fetch| fmrootname |of| me) rootname) |then| (remhash fullname *filemap-hash*)))))) rootname) ) -(lispsourcefilep -(lambda (file) (* |bvm:| "29-Sep-86 23:15") (* |;;;| "If the first few characters of FILE `look like' those output by MAKEFILE then return the alleged address in the file of its FILEMAP expression.") (resetlst (|if| (not (streamp file)) |then| (resetsave nil (list (quote closef) (setq file (openstream file (quote input)))))) (|if| (randaccessp file) |then| (let ((here (getfileptr file))) (prog1 (cl:multiple-value-bind (env map) (\\parse-file-header file (function (lambda (stream) (* \; "Pointed now right after the FILECREATED expression") (car (nlsetq (skread stream) (skread stream) (fixp (read stream))))))) map) (setfileptr file here)))))) -) +(LISPSOURCEFILEP + (LAMBDA (FILE) (* \; "Edited 9-Jul-2021 22:12 by rmk:") + +(* |;;;| "If the first few characters of FILE `look like' those output by MAKEFILE then return the alleged address in the file of its FILEMAP expression.") + + (RESETLST + (CL:UNLESS (STREAMP FILE) + (RESETSAVE NIL (LIST 'CLOSEF (SETQ FILE (OPENSTREAM FILE 'INPUT))))) + (CL:WHEN (RANDACCESSP FILE) + (LET ((HERE (GETFILEPTR FILE))) + (CL:MULTIPLE-VALUE-BIND (ENV MAP) + (\\PARSE-FILE-HEADER FILE (FUNCTION (LAMBDA (STREAM) + (* \; + "Pointed now right after the FILECREATED expression") + (CAR (NLSETQ (SKREAD STREAM) + (SKREAD STREAM) + (FIXP (READ STREAM))))) + )) + (SETFILEPTR FILE HERE) + (CL:VALUES ENV MAP))))))) (getfilemap (lambda (stream fl) (* |bvm:| "27-Aug-86 15:48") (* |;;;| "Value is map for STREAM either obtained from the file itself, or from its property list. STREAM is presumed open. FL is (NAMEFIELD STREAM T)") (and usemapflg (cl:multiple-value-bind (env map) (get-environment-and-filemap stream) map))) @@ -585,9 +603,26 @@ This has little hope of working any more.") (|if| nil |then| (* \; "This has lit " stream) (setq filemapadr (getfileptr stream)) (prin3 "(FILEMAP " stream) (position stream (constant (nchars "(FILEMAP "))) (let ((*print-radix* 10)) (prin2 filemap stream)) (prin1 "))" stream) (terpri stream) (print (quote stop) stream) (setfileptr stream filemaplocadr) (printnum (list (quote fix) filemaploclen) filemapadr stream) (cond ((neq dfnflg t) (prin3 "****rewrote file map for " t) (print fullname t t))))) t)))) ) -(print-reader-environment -(lambda (env stream) (* |bvm:| "24-Oct-86 15:53") (* |;;;| "If ENV is not the old default interlisp reader environment, writes a DEFINE-FILE-INFO expression on STREAM that will produce this environment when the file is loaded.") (|if| (not (equal-reader-environment env *old-interlisp-read-environment*)) |then| (let ((*package* *interlisp-package*) (*print-base* 10) pkg) (print (cons (quote define-file-info) (or (|fetch| respec |of| env) (bquote ((\\\,@ (and (setq pkg (|fetch| repackage |of| env)) (bquote (:package (\\\, (cl:package-name pkg)))))) :readtable (\\\, (readtableprop (|fetch| rereadtable |of| env) (quote name))) :base (\\\, (|fetch| rebase |of| env)))))) stream filerdtbl)))) -) +(PRINT-READER-ENVIRONMENT + (LAMBDA (ENV STREAM) (* \; "Edited 9-Jul-2021 07:53 by rmk:") + +(* |;;;| "If ENV is not the old default interlisp reader environment, writes a DEFINE-FILE-INFO expression on STREAM that will produce this environment when the file is loaded.") + + (|if| (NOT (EQUAL-READER-ENVIRONMENT ENV *OLD-INTERLISP-READ-ENVIRONMENT*)) + |then| (LET ((*PACKAGE* *INTERLISP-PACKAGE*) + (*PRINT-BASE* 10) + PKG) + (PRINT (CONS 'DEFINE-FILE-INFO + `(,@(AND (SETQ PKG (|fetch| REPACKAGE |of| ENV)) + `(:PACKAGE ,(CL:PACKAGE-NAME PKG))) + :READTABLE + ,(READTABLEPROP (|fetch| REREADTABLE |of| ENV) + 'NAME) + :BASE + ,(|fetch| REBASE |of| ENV) + :FORMAT + ,(FETCH REFORMAT OF ENV))) + STREAM FILERDTBL))))) ) (RPAQ? *FILEMAP-LIMIT* 20) @@ -948,23 +983,23 @@ This has little hope of working any more.") (|if| nil |then| (* \; "This has lit (PUTPROPS MACHINEINDEPENDENT COPYRIGHT ("Venue & Xerox Corporation" T 1983 1984 1985 1986 1987 1988 1989 1990 1991 2021)) (DECLARE\: DONTCOPY - (FILEMAP (NIL (12991 19140 (LOAD? 13001 . 13728) (FILESLOAD 13730 . 13954) (DOFILESLOAD 13956 . 16893) - (FINDFILE-WITH-EXTENSIONS 16895 . 18625) (READ-FILECREATED 18627 . 19138)) (19258 23713 (DMPHASH -19268 . 19846) (HASHOVERFLOW 19848 . 23711)) (24515 43785 (BKBUFS 24525 . 25306) (CHANGENAME 25308 . -25481) (CHNGNM 25483 . 26693) (CLBUFS 26695 . 27647) (DEFINE 27649 . 27969) (FNS.PUTDEF 27971 . 30151) - (EQMEMB 30153 . 30249) (EQUALN 30251 . 30753) (FNCHECK 30755 . 31900) (FNTYP1 31902 . 31986) (LCSKIP -31988 . 32432) (MAPRINT 32434 . 32962) (MKLIST 32964 . 33046) (NAMEFIELD 33048 . 34102) (NLIST 34104 - . 34278) (PRINTBELLS 34280 . 34351) (PROMPTCHAR 34353 . 35609) (RAISEP 35611 . 35791) (READFILE 35793 - . 36804) (READLINE 36806 . 40522) (REMPROPLIST 40524 . 41003) (RESETBUFS 41005 . 41252) (TAB 41254 . -41564) (UNSAVED1 41566 . 42197) (WRITEFILE 42199 . 43174) (CLOSE-AND-MAYBE-DELETE 43176 . 43452) ( -UNSAFE.TO.MODIFY 43454 . 43783)) (46112 47367 (FILEDATE 46122 . 47365)) (47599 60551 (FILEMAP 47609 . -47952) (\\PARSE-FILE-HEADER 47954 . 50101) (GET-ENVIRONMENT-AND-FILEMAP 50103 . 51499) ( -LOOKUP-ENVIRONMENT-AND-FILEMAP 51501 . 52689) (GET-FILEMAP-FROM-FILECREATED 52691 . 53181) ( -\\FILEMAP-HASHOVERFLOW 53183 . 55231) (FLUSHFILEMAPS 55233 . 55533) (LISPSOURCEFILEP 55535 . 56206) ( -GETFILEMAP 56208 . 56522) (PUTFILEMAP 56524 . 57625) (UPDATEFILEMAP 57627 . 59821) ( -PRINT-READER-ENVIRONMENT 59823 . 60549)) (61169 63349 (LVLPRINT 61179 . 61309) (LVLPRIN1 61311 . 61458 -) (LVLPRIN2 61460 . 61636) (LVLPRIN 61638 . 62299) (LVLPRIN0 62301 . 63347)) (63384 66691 (FLUSHRIGHT -63394 . 63900) (PRINTPARA 63902 . 64725) (PRINTPARA1 64727 . 66689)) (66728 67842 (SUBLIS 66738 . -67061) (SUBPAIR 67063 . 67582) (DSUBLIS 67584 . 67840)) (67865 68214 (CONSTANTOK 67875 . 68212)) ( -70300 70843 (NLAMBDA.ARGS 70310 . 70841))))) + (FILEMAP (NIL (12967 19116 (LOAD? 12977 . 13704) (FILESLOAD 13706 . 13930) (DOFILESLOAD 13932 . 16869) + (FINDFILE-WITH-EXTENSIONS 16871 . 18601) (READ-FILECREATED 18603 . 19114)) (19234 23689 (DMPHASH +19244 . 19822) (HASHOVERFLOW 19824 . 23687)) (24491 43761 (BKBUFS 24501 . 25282) (CHANGENAME 25284 . +25457) (CHNGNM 25459 . 26669) (CLBUFS 26671 . 27623) (DEFINE 27625 . 27945) (FNS.PUTDEF 27947 . 30127) + (EQMEMB 30129 . 30225) (EQUALN 30227 . 30729) (FNCHECK 30731 . 31876) (FNTYP1 31878 . 31962) (LCSKIP +31964 . 32408) (MAPRINT 32410 . 32938) (MKLIST 32940 . 33022) (NAMEFIELD 33024 . 34078) (NLIST 34080 + . 34254) (PRINTBELLS 34256 . 34327) (PROMPTCHAR 34329 . 35585) (RAISEP 35587 . 35767) (READFILE 35769 + . 36780) (READLINE 36782 . 40498) (REMPROPLIST 40500 . 40979) (RESETBUFS 40981 . 41228) (TAB 41230 . +41540) (UNSAVED1 41542 . 42173) (WRITEFILE 42175 . 43150) (CLOSE-AND-MAYBE-DELETE 43152 . 43428) ( +UNSAFE.TO.MODIFY 43430 . 43759)) (46088 47343 (FILEDATE 46098 . 47341)) (47575 61636 (FILEMAP 47585 . +47928) (\\PARSE-FILE-HEADER 47930 . 50077) (GET-ENVIRONMENT-AND-FILEMAP 50079 . 51475) ( +LOOKUP-ENVIRONMENT-AND-FILEMAP 51477 . 52665) (GET-FILEMAP-FROM-FILECREATED 52667 . 53157) ( +\\FILEMAP-HASHOVERFLOW 53159 . 55207) (FLUSHFILEMAPS 55209 . 55509) (LISPSOURCEFILEP 55511 . 56762) ( +GETFILEMAP 56764 . 57078) (PUTFILEMAP 57080 . 58181) (UPDATEFILEMAP 58183 . 60377) ( +PRINT-READER-ENVIRONMENT 60379 . 61634)) (62254 64434 (LVLPRINT 62264 . 62394) (LVLPRIN1 62396 . 62543 +) (LVLPRIN2 62545 . 62721) (LVLPRIN 62723 . 63384) (LVLPRIN0 63386 . 64432)) (64469 67776 (FLUSHRIGHT +64479 . 64985) (PRINTPARA 64987 . 65810) (PRINTPARA1 65812 . 67774)) (67813 68927 (SUBLIS 67823 . +68146) (SUBPAIR 68148 . 68667) (DSUBLIS 68669 . 68925)) (68950 69299 (CONSTANTOK 68960 . 69297)) ( +71385 71928 (NLAMBDA.ARGS 71395 . 71926))))) STOP diff --git a/sources/MACHINEINDEPENDENT.LCOM b/sources/MACHINEINDEPENDENT.LCOM index d668f08da..7fab5eaa1 100644 Binary files a/sources/MACHINEINDEPENDENT.LCOM and b/sources/MACHINEINDEPENDENT.LCOM differ diff --git a/sources/PACKAGE-STARTUP b/sources/PACKAGE-STARTUP index 6d108f1bc..55f5bcd61 100644 --- a/sources/PACKAGE-STARTUP +++ b/sources/PACKAGE-STARTUP @@ -1,71 +1,69 @@ (DEFINE-FILE-INFO READTABLE "XCL" PACKAGE "INTERLISP") -(FILECREATED "15-Mar-91 17:09:30" |{PELE:MV:ENVOS}SOURCES>PACKAGE-STARTUP.;4| 37574 +(FILECREATED "28-Jun-2021 13:02:48"  +|{DSK}kaplan>Local>medley3.5>git-medley>sources>PACKAGE-STARTUP.;2| 36550 - |changes| |to:| (FUNCTIONS PACKAGE-MAKE) + |changes| |to:| (FUNCTIONS PACKAGE-ENABLE) - |previous| |date:| "27-Feb-91 20:17:52" |{PELE:MV:ENVOS}SOURCES>PACKAGE-STARTUP.;3| -) + |previous| |date:| "15-Mar-91 17:09:30" +|{DSK}kaplan>Local>medley3.5>git-medley>sources>PACKAGE-STARTUP.;1|) -; Copyright (c) 1986, 1987, 1988, 1990, 1991 by Venue & Xerox Corporation. All rights reserved. +; Copyright (c) 1986-1988, 1990-1991, 2021 by Venue & Xerox Corporation. (PRETTYCOMPRINT PACKAGE-STARTUPCOMS) -(RPAQQ PACKAGE-STARTUPCOMS ( - -(* |;;;| "Initialize the package system (LLPACKAGE must be loaded)") - - - (* |;;| "Simple definitions for the init. Improved in CMLPACKAGE") - - (FUNCTIONS RETURN-FIRST-OF-THREE ERROR-MISSING-EXTERNAL-SYMBOL) - (P (MOVD? 'ERROR-MISSING-EXTERNAL-SYMBOL - 'RESOLVE-MISSING-EXTERNAL-SYMBOL) - (MOVD? 'ERROR 'RESOLVE-MISSING-PACKAGE) - (MOVD? 'ERROR 'RESOLVE-USE-PACKAGE-CONFLICT) - (MOVD? 'ERROR 'RESOLVE-EXPORT-CONFLICT) - (MOVD? 'ERROR 'RESOLVE-EXPORT-MISSING-CONFLICT) - (MOVD? 'ERROR 'RESOLVE-IMPORT-CONFLICT) - (MOVD? 'ERROR 'RESOLVE-UNINTERN-CONFLICT) - (MOVD? 'RETURN-FIRST-OF-THREE 'RESOLVE-READER-CONFLICT) - (* \; - "In pre-package init all symbols are prefixed, thus the INTERLISP symbol is always default") - ) - - (* |;;| "Reader changes") - - (FUNCTIONS CHECK-SYMBOL-NAMESTRING \\NEW.READ.SYMBOL \\NEW.MKATOM) - (VARIABLES LITATOM-PACKAGE-CONVERSION-ENABLED) - - (* |;;| "Initialization tables and functions") - - (VARIABLES CMLSYMBOLS.VARS CMLSYMBOLS.FNNAMES CMLSYMBOLS.DECLARATORS - CMLSYMBOLS.TYPENAMES CMLSYMBOLS.MACROS CMLSYMBOLS.SPECIALFORMS - CMLSYMBOLS.LAMBDA.LIST.KEYWORDS) - (VARIABLES (* \; "Be very careful with this.") - CMLSYMBOLS.SHARED) - (FUNCTIONS LITATOM.EXISTS) - (VARIABLES LITATOM-PACKAGE-CONVERSION-TABLE) - (FUNCTIONS NAMESTRING-CONVERSION-CLAUSE CONVERT-LITATOM - CONCOCT-SYMBOL TRANSFER-SYMBOL INTERN-LITATOM - \\LITATOM.EATCHARS) - (FUNCTIONS PACKAGE-INIT PACKAGE-CLEAR PACKAGE-MAKE - PACKAGE-HIERARCHY-INIT PACKAGE-ENABLE PACKAGE-DISABLE) - - (* |;;| "A hack for initialization") - - (FUNCTIONS ID) - (PROP (FILETYPE MAKEFILE-ENVIRONMENT) - PACKAGE-STARTUP) - - (* |;;| - "Initialize package system, plus functions needed in llpackage at init time") - - (DECLARE\: DONTEVAL@LOAD DOCOPY (P (MOVD? 'EQ 'EQL) - (MOVD? 'LENGTH 'CL:LENGTH) - (MOVD? 'ID 'CL:IDENTITY) - (MOVD? 'ID 'REMOVE-COMMENTS) - (PACKAGE-INIT))))) +(RPAQQ PACKAGE-STARTUPCOMS + ( + +(* |;;;| "Initialize the package system (LLPACKAGE must be loaded)") + + + (* |;;| "Simple definitions for the init. Improved in CMLPACKAGE") + + (FUNCTIONS RETURN-FIRST-OF-THREE ERROR-MISSING-EXTERNAL-SYMBOL) + (P (MOVD? 'ERROR-MISSING-EXTERNAL-SYMBOL 'RESOLVE-MISSING-EXTERNAL-SYMBOL) + (MOVD? 'ERROR 'RESOLVE-MISSING-PACKAGE) + (MOVD? 'ERROR 'RESOLVE-USE-PACKAGE-CONFLICT) + (MOVD? 'ERROR 'RESOLVE-EXPORT-CONFLICT) + (MOVD? 'ERROR 'RESOLVE-EXPORT-MISSING-CONFLICT) + (MOVD? 'ERROR 'RESOLVE-IMPORT-CONFLICT) + (MOVD? 'ERROR 'RESOLVE-UNINTERN-CONFLICT) + (MOVD? 'RETURN-FIRST-OF-THREE 'RESOLVE-READER-CONFLICT) + (* \; + "In pre-package init all symbols are prefixed, thus the INTERLISP symbol is always default") + ) + + (* |;;| "Reader changes") + + (FUNCTIONS CHECK-SYMBOL-NAMESTRING \\NEW.READ.SYMBOL \\NEW.MKATOM) + (VARIABLES LITATOM-PACKAGE-CONVERSION-ENABLED) + + (* |;;| "Initialization tables and functions") + + (VARIABLES CMLSYMBOLS.VARS CMLSYMBOLS.FNNAMES CMLSYMBOLS.DECLARATORS CMLSYMBOLS.TYPENAMES + CMLSYMBOLS.MACROS CMLSYMBOLS.SPECIALFORMS CMLSYMBOLS.LAMBDA.LIST.KEYWORDS) + (VARIABLES (* \; "Be very careful with this.") + CMLSYMBOLS.SHARED) + (FUNCTIONS LITATOM.EXISTS) + (VARIABLES LITATOM-PACKAGE-CONVERSION-TABLE) + (FUNCTIONS NAMESTRING-CONVERSION-CLAUSE CONVERT-LITATOM CONCOCT-SYMBOL TRANSFER-SYMBOL + INTERN-LITATOM \\LITATOM.EATCHARS) + (FUNCTIONS PACKAGE-INIT PACKAGE-CLEAR PACKAGE-MAKE PACKAGE-HIERARCHY-INIT PACKAGE-ENABLE + PACKAGE-DISABLE) + + (* |;;| "A hack for initialization") + + (FUNCTIONS ID) + (PROP (FILETYPE MAKEFILE-ENVIRONMENT) + PACKAGE-STARTUP) + + (* |;;| "Initialize package system, plus functions needed in llpackage at init time") + + (DECLARE\: DONTEVAL@LOAD DOCOPY (P (MOVD? 'EQ 'EQL) + (MOVD? 'LENGTH 'CL:LENGTH) + (MOVD? 'ID 'CL:IDENTITY) + (MOVD? 'ID 'REMOVE-COMMENTS) + (PACKAGE-INIT))))) @@ -100,8 +98,8 @@ (MOVD? 'RETURN-FIRST-OF-THREE 'RESOLVE-READER-CONFLICT) - (* \; - "In pre-package init all symbols are prefixed, thus the INTERLISP symbol is always default") + (* \; + "In pre-package init all symbols are prefixed, thus the INTERLISP symbol is always default") @@ -133,7 +131,7 @@ (OR (AND (NOT NONNUMERICP) (\\PARSE.NUMBER BASE OFFSET LEN FATP)) (AND - (* |;;| "The reader conversion feature is contained in this expression") + (* |;;| "The reader conversion feature is contained in this expression") LITATOM-PACKAGE-CONVERSION-ENABLED (NULL PACKAGE) @@ -144,13 +142,13 @@ (FIND-SYMBOL* BASE OFFSET LEN FATP *LISP-PACKAGE*) (LET ((ILSYM (FIND-SYMBOL* BASE OFFSET LEN FATP *INTERLISP-PACKAGE*))) (COND - ((NULL ILSYM) (* \; "No IL symbol, try CL") + ((NULL ILSYM) (* \; "No IL symbol, try CL") CLSYM) - ((NULL CLSYM) (* \; "No CL symbol, use IL") + ((NULL CLSYM) (* \; "No CL symbol, use IL") ILSYM) - ((EQ ILSYM CLSYM) (* \; "SAME") + ((EQ ILSYM CLSYM) (* \; "SAME") ILSYM) - (T (* \; "Both symbols exist, resolve. During the INIT where packages are turned off this is defined to return its first argument.") + (T (* \; "Both symbols exist, resolve. During the INIT where packages are turned off this is defined to return its first argument.") (RESOLVE-READER-CONFLICT ILSYM CLSYM CLSYMWHERE))))))) (COND ((STRINGP PACKAGE) @@ -166,8 +164,8 @@ (COND ((EQ ACCESSIBLE :EXTERNAL) CL:SYMBOL) - ((CL::%PACKAGE-EXTERNAL-ONLY PACKAGE) (* \; - "External only packages don't error creating external symbols on read") + ((CL::%PACKAGE-EXTERNAL-ONLY PACKAGE) (* \; + "External only packages don't error creating external symbols on read") (INTERN* BASE OFFSET LEN FATP (\\FATCHARSEENP BASE OFFSET LEN FATP) (OR PACKAGE *PACKAGE*) T)) @@ -184,20 +182,20 @@ (UNLESSRDSYS (COND ((AND (EQ LEN 1) (ILEQ FIRSTCHAR \\MAXTHINCHAR) - |\\OneCharAtomBase|) (* \; - "The one-character atoms live in well known places, no need to hash") + |\\OneCharAtomBase|) (* \; + "The one-character atoms live in well known places, no need to hash") (RETURN (COND ((IGREATERP FIRSTCHAR (CHARCODE "9")) (\\ADDBASE |\\OneCharAtomBase| (IDIFFERENCE FIRSTCHAR 10))) ((IGEQ FIRSTCHAR (CHARCODE "0")) - (* \; - "These one-character atoms are integers") + (* \; + "These one-character atoms are integers") (IDIFFERENCE FIRSTCHAR (CHARCODE "0"))) (T (\\ADDBASE |\\OneCharAtomBase| FIRSTCHAR))))) ((AND (ILEQ FIRSTCHAR (CHARCODE "9")) (SETQ TEMP (\\PARSE.NUMBER BASE OFFST LEN FATP))) - (* |;;| "\\PARSE.NUMBER returns a number or NIL") + (* |;;| "\\PARSE.NUMBER returns a number or NIL") (RETURN TEMP)))) (RETURN (CL:VALUES (INTERN* BASE OFFST LEN FATP FATCHARSEENP *INTERLISP-PACKAGE* T))))) @@ -363,7 +361,7 @@ "RPLACA" "RPLACD" "SATISFIES" "SEQUENCE" "SET" "STRING" "STRING-EQUAL" "STREAM" "STREAMP" "T" "TAILP" "THE" "TIME" "TRACE" "TYPE" "TYPEP" "UNTRACE" "WRITE") -(* |;;;| "Symbols shared by the Interlisp and Lisp packages.") +(* |;;;| "Symbols shared by the Interlisp and Lisp packages.") ) @@ -390,7 +388,7 @@ (CL:DEFUN NAMESTRING-CONVERSION-CLAUSE (BASE OFFSET LEN FATP) -(* |;;;| "Check whether a given namestring has a prefix that would indicate membership in a package. If so, return the first clause out of the conversion table that matched. Otherwise, return NIL.") +(* |;;;| "Check whether a given namestring has a prefix that would indicate membership in a package. If so, return the first clause out of the conversion table that matched. Otherwise, return NIL.") (DECLARE (CL:SPECIAL LITATOM-PACKAGE-CONVERSION-TABLE)) (CL:DOLIST (CONVERSION-LIST LITATOM-PACKAGE-CONVERSION-TABLE NIL) @@ -407,7 +405,7 @@ (CL:DEFUN CONVERT-LITATOM (ATOM) - (* |;;| "Conditionally move an INTERLISP litatom into a package based on the naming conventions in LITATOM-PACKAGE-CONVERSION-TABLE.") + (* |;;| "Conditionally move an INTERLISP litatom into a package based on the naming conventions in LITATOM-PACKAGE-CONVERSION-TABLE.") (LET* ((BASE (|ffetch| (CL:SYMBOL PNAMEBASE) |of| ATOM)) (LEN (|ffetch| (CL:SYMBOL PNAMELENGTH) |of| ATOM)) @@ -419,17 +417,17 @@ (WHERE (CL:FOURTH CLAUSE)) (PREFIX-LENGTH (|ffetch| (STRINGP LENGTH) PREFIX))) - (\\LITATOM.EATCHARS ATOM PREFIX-LENGTH) (* \; "Take off the pseudo-package prefix. This makes the symbol inaccessible in INTERLISP (because not rehashed).") + (\\LITATOM.EATCHARS ATOM PREFIX-LENGTH) (* \; "Take off the pseudo-package prefix. This makes the symbol inaccessible in INTERLISP (because not rehashed).") (COND - (CL:PACKAGE-NAME (* \; - " Symbol is interned, put it in the package.") + (CL:PACKAGE-NAME (* \; + " Symbol is interned, put it in the package.") (INTERN-LITATOM ATOM (CL:FIND-PACKAGE CL:PACKAGE-NAME) :WHERE WHERE))) T)) (CL:DEFUN CONCOCT-SYMBOL (STRING) - (* |;;| "Create a symbol in the LISP package. Conflicting symbols must already have been converted and defined by CONVERT-LITATOM. Given a string, if a symbol by that name exists in INTERLISP (and doesn't conflict) we INTERN-LITATOM it into the LISP package, making that its home. Otherwise, we create a new one.") + (* |;;| "Create a symbol in the LISP package. Conflicting symbols must already have been converted and defined by CONVERT-LITATOM. Given a string, if a symbol by that name exists in INTERLISP (and doesn't conflict) we INTERN-LITATOM it into the LISP package, making that its home. Otherwise, we create a new one.") (DECLARE (CL:SPECIAL *LISP-PACKAGE* *INTERLISP-PACKAGE* CMLSYMBOLS.SHARED)) (LET (ILSYM CLSYM) @@ -439,27 +437,27 @@ (CL:WHEN (EQ WHERE :INTERNAL) (EXPORT SYM *LISP-PACKAGE*)) (SETQ CLSYM SYM) - WHERE) (* \; - "The CL symbol already exists. Make it external. If the symbol is shared, import it into IL.") + WHERE) (* \; + "The CL symbol already exists. Make it external. If the symbol is shared, import it into IL.") (CL:WHEN (CL:MEMBER STRING CMLSYMBOLS.SHARED :TEST 'STREQUAL) (IMPORT CLSYM *INTERLISP-PACKAGE*))) - (* |;;| "From this point down, the CL symbol doesn't yet exist.") + (* |;;| "From this point down, the CL symbol doesn't yet exist.") ((CL:MEMBER STRING CMLSYMBOLS.SHARED :TEST 'STREQUAL) - (* \; "The symbol is shared. Create it in CL and import it to IL. NOTE that the symbol should never be found in IL.") + (* \; "The symbol is shared. Create it in CL and import it to IL. NOTE that the symbol should never be found in IL.") (COND ((CL:FIND-SYMBOL STRING *INTERLISP-PACKAGE*) (CL:ERROR "Shared symbol found in IL: ~S" STRING) - (* |;;| "(intern-litatom ilsym *lisp-package* :where :external)") + (* |;;| "(intern-litatom ilsym *lisp-package* :where :external)") ) (T (LET ((SYM (CL:INTERN STRING *LISP-PACKAGE*))) (EXPORT SYM *LISP-PACKAGE*) (IMPORT SYM *INTERLISP-PACKAGE*))))) - (T (* \; - "Symbol doesn't exist, so just create it in LISP.") + (T (* \; + "Symbol doesn't exist, so just create it in LISP.") (EXPORT (CL:INTERN STRING *LISP-PACKAGE*) *LISP-PACKAGE*))))) @@ -547,20 +545,20 @@ (CL:DEFUN PACKAGE-HIERARCHY-INIT (&OPTIONAL (CONVERT? NIL)) -(* |;;;| "Fill all the initial system packages with their proper symbols, moving litatoms into appropriate places and such. If convert? is non-nil then symbols whose pnames have fake package qualifiers, like cl:length, will be converted IN PLACE to remove the qualifier. If conversion takes place you cannot fully disable the package system.") +(* |;;;| "Fill all the initial system packages with their proper symbols, moving litatoms into appropriate places and such. If convert? is non-nil then symbols whose pnames have fake package qualifiers, like cl:length, will be converted IN PLACE to remove the qualifier. If conversion takes place you cannot fully disable the package system.") (DECLARE (CL:SPECIAL *INTERLISP-PACKAGE* *KEYWORD-PACKAGE* CMLSYMBOLS.LAMBDA.LIST.KEYWORDS CMLSYMBOLS.SPECIALFORMS CMLSYMBOLS.MACROS CMLSYMBOLS.TYPENAMES CMLSYMBOLS.FNNAMES CMLSYMBOLS.DECLARATORS CMLSYMBOLS.VARS)) - (* |;;| "Fill the INTERLISP package with its symbols.") + (* |;;| "Fill the INTERLISP package with its symbols.") (MAPATOMS #'(CL:LAMBDA (ATOM) (CL:IF (OR (NULL CONVERT?) (NULL (CONVERT-LITATOM ATOM))) (INTERN-LITATOM ATOM *INTERLISP-PACKAGE* :WHERE :EXTERNAL)))) - (* |;;| "Fill the LISP package with its symbols.") + (* |;;| "Fill the LISP package with its symbols.") (CL:DOLIST (I (APPEND CMLSYMBOLS.VARS CMLSYMBOLS.FNNAMES CMLSYMBOLS.DECLARATORS CMLSYMBOLS.TYPENAMES CMLSYMBOLS.MACROS CMLSYMBOLS.SPECIALFORMS @@ -588,14 +586,14 @@ (READTABLEPROP (FIND-READTABLE "XCL") 'PACKAGECHAR (CHARCODE ":")))) - (RPAQ? *PER-EXEC-VARIABLES* NIL) + (RPAQ? *PER-EXEC-VARIABLES* NIL) (CL:PUSHNEW '(*PACKAGE* (COND ((CL:PACKAGEP *PACKAGE*) *PACKAGE*) (T (PROMPTPRINT "Invalid package, reset to LISP") (SETQ *PACKAGE* (CL:FIND-PACKAGE "LISP"))))) *PER-EXEC-VARIABLES* :TEST 'CL:EQUAL) - (CL:SETF *DEFAULT-MAKEFILE-ENVIRONMENT* '(:READTABLE "XCL" :PACKAGE "INTERLISP")) + (CL:SETF *DEFAULT-MAKEFILE-ENVIRONMENT* '(:READTABLE "XCL" :PACKAGE "INTERLISP" :FORMAT :XCCS)) (MOVD '\\NEW.READ.SYMBOL '\\READ.SYMBOL) (MOVD '\\NEW.MKATOM '\\MKATOM) (CL:SETF *PACKAGE* PACKAGE) @@ -623,9 +621,9 @@ (CL:DEFUN ID (X) X) -(PUTPROPS PACKAGE-STARTUP FILETYPE CL:COMPILE-FILE) +(PUTPROPS PACKAGE-STARTUP FILETYPE CL:COMPILE-FILE) -(PUTPROPS PACKAGE-STARTUP MAKEFILE-ENVIRONMENT (:READTABLE "XCL" :PACKAGE "INTERLISP")) +(PUTPROPS PACKAGE-STARTUP MAKEFILE-ENVIRONMENT (:READTABLE "XCL" :PACKAGE "INTERLISP")) @@ -643,7 +641,16 @@ (PACKAGE-INIT) ) -(PUTPROPS PACKAGE-STARTUP COPYRIGHT ("Venue & Xerox Corporation" 1986 1987 1988 1990 1991)) +(PUTPROPS PACKAGE-STARTUP COPYRIGHT ("Venue & Xerox Corporation" 1986 1987 1988 1990 1991 2021)) (DECLARE\: DONTCOPY - (FILEMAP (NIL))) + (FILEMAP (NIL (3098 3193 (RETURN-FIRST-OF-THREE 3098 . 3193)) (3195 3333 ( +ERROR-MISSING-EXTERNAL-SYMBOL 3195 . 3333)) (3938 4906 (CHECK-SYMBOL-NAMESTRING 3938 . 4906)) (4908 +8069 (\\NEW.READ.SYMBOL 4908 . 8069)) (8071 9777 (\\NEW.MKATOM 8071 . 9777)) (23575 23657 ( +LITATOM.EXISTS 23575 . 23657)) (24337 25303 (NAMESTRING-CONVERSION-CLAUSE 24337 . 25303)) (25305 26554 + (CONVERT-LITATOM 25305 . 26554)) (26556 28625 (CONCOCT-SYMBOL 26556 . 28625)) (28627 28921 ( +TRANSFER-SYMBOL 28627 . 28921)) (28923 29631 (INTERN-LITATOM 28923 . 29631)) (29633 30260 ( +\\LITATOM.EATCHARS 29633 . 30260)) (30262 30539 (PACKAGE-INIT 30262 . 30539)) (30541 31118 ( +PACKAGE-CLEAR 30541 . 31118)) (31120 32515 (PACKAGE-MAKE 31120 . 32515)) (32517 33838 ( +PACKAGE-HIERARCHY-INIT 32517 . 33838)) (33840 35303 (PACKAGE-ENABLE 33840 . 35303)) (35305 35948 ( +PACKAGE-DISABLE 35305 . 35948)) (35995 36021 (ID 35995 . 36021))))) STOP diff --git a/sources/PACKAGE-STARTUP.LCOM b/sources/PACKAGE-STARTUP.LCOM index 5316f9854..e7905b599 100644 Binary files a/sources/PACKAGE-STARTUP.LCOM and b/sources/PACKAGE-STARTUP.LCOM differ diff --git a/sources/PASSWORDS.LCOM b/sources/PASSWORDS.LCOM index 29ebffea4..3020ae64b 100644 Binary files a/sources/PASSWORDS.LCOM and b/sources/PASSWORDS.LCOM differ diff --git a/sources/PMAP b/sources/PMAP index 589e935c1..127838f01 100644 --- a/sources/PMAP +++ b/sources/PMAP @@ -1,13 +1,14 @@ (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) -(FILECREATED " 3-Feb-2002 14:11:02" {DSK}medley3.5>sources>PMAP.;2 58154 +(FILECREATED "23-Jun-2021 12:40:35" {DSK}kaplan>Local>medley3.5>git-medley>sources>PMAP.;6 60175 - changes to%: (FNS \PAGED.GETNEXTBUFFER) + changes to%: (FNS \PAGEDREADP) - previous date%: "19-Jan-93 11:00:45" {DSK}medley3.5>sources>PMAP.;1) + previous date%: "21-Jun-2021 21:45:16" +{DSK}kaplan>Local>medley3.5>git-medley>sources>PMAP.;5) (* ; " -Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1993, 2002 by Venue & Xerox Corporation. All rights reserved. +Copyright (c) 1982-1988, 1990, 1993, 2002, 2021 by Venue & Xerox Corporation. ") (PRETTYCOMPRINT PMAPCOMS) @@ -573,16 +574,17 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1993, 2002 by Venu (DECLARE%: DONTCOPY (* "FOLLOWING DEFINITIONS EXPORTED")(DECLARE%: EVAL@COMPILE -(PUTPROPS \RELEASECPAGE MACRO - ((STREAM) - (PROGN (* ; +(PUTPROPS \RELEASECPAGE MACRO ((STREAM) + (PROGN (* ;  "Must be under an UNINTERRUPTABLY !") - (COND - ((fetch CBUFDIRTY of STREAM) - (\SETIODIRTY STREAM (fetch CPAGE of STREAM)) - (replace CBUFDIRTY of STREAM with NIL))) - (replace CBUFSIZE of STREAM with 0) - (replace CBUFPTR of STREAM with NIL)))) + (COND + ((fetch CBUFDIRTY of STREAM) + (\SETIODIRTY STREAM (fetch CPAGE + of STREAM)) + (replace CBUFDIRTY of STREAM with + NIL))) + (replace CBUFSIZE of STREAM with 0) + (replace CBUFPTR of STREAM with NIL)))) ) (* "END EXPORTED DEFINITIONS") @@ -622,29 +624,34 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1993, 2002 by Venu DEVICE]) (\PAGEDBACKFILEPTR - [LAMBDA (STREAM) (* bvm%: "13-Feb-85 23:32") - (* ; - "also see similar function \DRIBBACKFILEPTR") + [LAMBDA (STREAM) (* ; "Edited 13-Jun-2021 11:21 by rmk:") + (* ; + "also see similar function \DRIBBACKFILEPTR") [COND ((APPENDONLY STREAM) - (LISPERROR "ILLEGAL ARG" (fetch FULLNAME of STREAM] - (* ; - "Checks done separately so we dont take an error with interrupts off") + (LISPERROR "ILLEGAL ARG" (fetch (STREAM FULLNAME) of STREAM] + (* ; + "Checks done separately so we dont take an error with interrupts off") (\UPDATEOF STREAM) (COND - ((NOT (AND (EQ (fetch COFFSET of STREAM) + ((NOT (AND (EQ (fetch (STREAM COFFSET) of STREAM) 0) - (EQ (fetch CPAGE of STREAM) + (EQ (fetch (STREAM CPAGE) of STREAM) 0))) (UNINTERRUPTABLY - [replace COFFSET of STREAM with (COND - ((EQ (fetch COFFSET of STREAM) - 0) - (\RELEASECPAGE STREAM) - (add (fetch CPAGE of STREAM) - -1) - (SUB1 BYTESPERPAGE)) - (T (SUB1 (fetch COFFSET of STREAM] + [replace (STREAM COFFSET) of STREAM with (COND + ((EQ (fetch (STREAM COFFSET) + of STREAM) + 0) + (\RELEASECPAGE STREAM) + (add (fetch (STREAM + CPAGE) + of STREAM) + -1) + (SUB1 BYTESPERPAGE)) + (T (SUB1 (fetch (STREAM + COFFSET) + of STREAM] [replace (STREAM CHARPOSITION) of STREAM with (IMAX 0 (SUB1 (fetch (STREAM CHARPOSITION @@ -733,25 +740,26 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1993, 2002 by Venu OFFSET _ (fetch EOFFSET of STREAM]) (\PAGEDREADP - [LAMBDA (STREAM FLG) (* rmk%: " 5-Apr-85 11:10") + [LAMBDA (STREAM FLG) (* ; "Edited 23-Jun-2021 12:40 by rmk:") + + (* ;; "If FLG is NIL, a single EOL as the last character of the file doesn't count. This is a character operation, not a byte operation.") - (* ;; "If FLG is NIL, a single EOL as the last character of the file doesn't count.") - (* ; - "The 10 does not do the EOL check on the peeked character.") (AND (NOT (\PAGEDEOFP STREAM)) (OR (NOT (NULL FLG)) (NEQ EOL.TC (\SYNCODE \PRIMTERMSA (\PEEKCCODE STREAM))) - (OR (ILESSP (ffetch CPAGE of STREAM) - (ffetch EPAGE of STREAM)) - (PROGN - (* ;; "Having done a \PAGEDPEEKBIN above, we won't be in the case where COFFSET is BYTESPERPAGE Thus there are at least two characters in the buffer") - - (ILESSP (IPLUS (ffetch COFFSET of STREAM) - (COND - ((\RUNCODED STREAM) - 1) - (T 2))) - (ffetch CBUFSIZE of STREAM]) + (PROGN + (* ;; "We peeked at an EOL. Is there anything beyond that?") + + (OR (ILESSP (ffetch CPAGE of STREAM) + (ffetch EPAGE of STREAM)) + (PROGN + (* ;; "Yes if we aren't on the last page.") + + (* ;; "If on the last page, we know we are not at the end, because the just-peeked EOL is there. But we also don't know how many bytes the EOL occupied. So at this point we have to read the EOL, check to see if we are at then at the EOF, and then back out the EOL") + + (\INCHAR STREAM) + (PROG1 (NOT (\PAGEDEOFP STREAM)) + (\BACKCCODE STREAM]) (\PAGEDEOFP [LAMBDA (STREAM) (* ; "Edited 15-Jun-87 15:06 by jds") @@ -787,21 +795,22 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1993, 2002 by Venu T]) (\PAGED.GETNEXTBUFFER - [LAMBDA (STREAM WHATFOR NOERRORFLG) (* bvm%: "30-Sep-84 15:14") + [LAMBDA (STREAM WHATFOR NOERRORFLG) (* ; "Edited 13-Jun-2021 11:24 by rmk:") (* ;; "Advances STREAM to a new page. Leaves the current page pointer NIL as the new page may never be written, so must update eof. Returns T on success; any other return is a value to use by \BIN") - (PROG ((CPAGE# (fetch CPAGE of STREAM)) - (COFF (fetch COFFSET of STREAM)) + (PROG ((CPAGE# (fetch (STREAM CPAGE) of STREAM)) + (COFF (fetch (STREAM COFFSET) of STREAM)) EPAGE# BUF) [COND ((NOT (OPENED STREAM)) - (LISPERROR "FILE NOT OPEN" (fetch FULLNAME of STREAM] + (LISPERROR "FILE NOT OPEN" (fetch (STREAM FULLNAME) of STREAM] (COND ((AND (ILESSP COFF (SELECTQ WHATFOR - (READ (fetch CBUFSIZE of STREAM)) + (READ (fetch (STREAM CBUFSIZE) of STREAM)) BYTESPERPAGE)) - (fetch CBUFPTR of STREAM)) (* ; "Is ok, why were we called?") + (fetch (STREAM CBUFPTR) of STREAM)) + (* ; "Is ok, why were we called?") (RETURN T))) (* ; "Buffer exhausted or empty") (UNINTERRUPTABLY (* ; "Clean up current page") @@ -809,38 +818,39 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1993, 2002 by Venu (if (EQ COFF BYTESPERPAGE) then (* ;  "Change to be first byte of next page instead of beyond last byte of previous page") - (replace COFFSET of STREAM with (SETQ COFF 0)) - (replace CPAGE of STREAM with (add CPAGE# 1)))) + (replace (STREAM COFFSET) of STREAM with (SETQ COFF 0)) + (replace (STREAM CPAGE) of STREAM with (add CPAGE# 1)))) [COND - ([AND (IGEQ CPAGE# (SETQ EPAGE# (fetch EPAGE of STREAM))) + ([AND (IGEQ CPAGE# (SETQ EPAGE# (fetch (STREAM EPAGE) of STREAM))) (OR (NOT (IEQP CPAGE# EPAGE#)) - (IGEQ COFF (fetch EOFFSET of STREAM] + (IGEQ COFF (fetch (STREAM EOFFSET) of STREAM] (* ;  "Current file pointer is at or past end of file") (SELECTQ WHATFOR (READ (RETURN (AND (NULL NOERRORFLG) (\EOF.ACTION STREAM)))) (WRITE (UNINTERRUPTABLY - (replace EPAGE of STREAM with (SETQ EPAGE# CPAGE#)) - (replace EOFFSET of STREAM with COFF))) + (replace (STREAM EPAGE) of STREAM with (SETQ EPAGE# CPAGE#)) + (replace (STREAM EOFFSET) of STREAM with COFF))) (SHOULDNT] (* ;; "Now fill the buffer -- map in current page") (SETQ BUF (\MAPPAGE CPAGE# STREAM)) (* ; "This is interruptable") (UNINTERRUPTABLY - (replace CBUFSIZE of STREAM with (COND - ((ILESSP CPAGE# EPAGE#) + (replace (STREAM CBUFSIZE) of STREAM with (COND + ((ILESSP CPAGE# EPAGE#) (* ; "Full page") - BYTESPERPAGE) - ((IEQP CPAGE# EPAGE#) + BYTESPERPAGE) + ((IEQP CPAGE# EPAGE#) (* ; "Last page") - (fetch EOFFSET of STREAM)) - (T + (fetch (STREAM EOFFSET) + of STREAM)) + (T (* ; "Beyond EOF so no data") - 0))) - (replace CBUFMAXSIZE of STREAM with BYTESPERPAGE) - (replace CBUFPTR of STREAM with BUF)) + 0))) + (replace (STREAM CBUFMAXSIZE) of STREAM with BYTESPERPAGE) + (replace (STREAM CBUFPTR) of STREAM with BUF)) (RETURN T]) (\PAGED.FORCEOUTPUT @@ -1032,50 +1042,46 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1993, 2002 by Venu EVAL@COMPILE (DECLARE%: EVAL@COMPILE -(PUTPROPS GETBUFFERPTR MACRO - ((BUFF) - (fetch VMEMPAGE of BUFF))) +(PUTPROPS GETBUFFERPTR MACRO ((BUFF) + (fetch VMEMPAGE of BUFF))) -(PUTPROPS CHECKBUFFERREF MACRO - [OPENLAMBDA (BUFF) (* bvm%: "24-JUN-82 17:03") +(PUTPROPS CHECKBUFFERREF MACRO [OPENLAMBDA (BUFF)(* bvm%: "24-JUN-82 17:03") - (* ;; "checks the reference field of a buffer descriptor and if no one is referencing it, it creates a reference and changes the flag. The flag is set by the garbage collector when there are no longer any references to the buffer it describes.") + (* ;; "checks the reference field of a buffer descriptor and if no one is referencing it, it creates a reference and changes the flag. The flag is set by the garbage collector when there are no longer any references to the buffer it describes.") - (UNINTERRUPTABLY - (COND - ((fetch NOREFERENCE of BUFF) + (UNINTERRUPTABLY + (COND + ((fetch NOREFERENCE of BUFF) - (* ;; "this is a page the reference to which has been dropped, zero its reference count before returning it.") + (* ;; "this is a page the reference to which has been dropped, zero its reference count before returning it.") - (\DELREF (fetch VMEMPAGE of BUFF)) - (replace NOREFERENCE of BUFF with NIL))))]) + (\DELREF (fetch VMEMPAGE of BUFF)) + (replace NOREFERENCE of BUFF with NIL)))) + ]) -(PUTPROPS CPBUFFERP MACRO - ((BUFFER STREAM) - (EQ (fetch CBUFPTR of STREAM) - (fetch VMEMPAGE of BUFFER)))) +(PUTPROPS CPBUFFERP MACRO ((BUFFER STREAM) + (EQ (fetch CBUFPTR of STREAM) + (fetch VMEMPAGE of BUFFER)))) -(PUTPROPS BUFFERINUSEP MACRO - [OPENLAMBDA (BUFFER STREAM) - (AND (NULL (fetch NOREFERENCE of BUFFER)) - (OR (fetch USERMAPPED of BUFFER) - (CPBUFFERP BUFFER STREAM]) +(PUTPROPS BUFFERINUSEP MACRO [OPENLAMBDA (BUFFER STREAM) + (AND (NULL (fetch NOREFERENCE of BUFFER)) + (OR (fetch USERMAPPED of BUFFER) + (CPBUFFERP BUFFER STREAM]) -(PUTPROPS UNDIRTY MACRO - [OPENLAMBDA (BUFFER STREAM) - (replace IODIRTY of BUFFER with NIL) - (COND - ((CPBUFFERP BUFFER STREAM) - (replace CBUFDIRTY of STREAM with NIL]) +(PUTPROPS UNDIRTY MACRO [OPENLAMBDA (BUFFER STREAM) + (replace IODIRTY of BUFFER with NIL) + (COND + ((CPBUFFERP BUFFER STREAM) + (replace CBUFDIRTY of STREAM with NIL]) -(PUTPROPS DIRTYP MACRO - [OPENLAMBDA (BUFFER STREAM) (* rmk%: "25-OCT-83 19:57") +(PUTPROPS DIRTYP MACRO [OPENLAMBDA (BUFFER STREAM) + (* rmk%: "25-OCT-83 19:57") - (* ;; "determines if this buffer has been dirtied by the IO system. It can't determine if the user has done a putbase into the page if he got it from MAPPAGE.") + (* ;; "determines if this buffer has been dirtied by the IO system. It can't determine if the user has done a putbase into the page if he got it from MAPPAGE.") - (OR (fetch IODIRTY of BUFFER) - (AND STREAM (CPBUFFERP BUFFER STREAM) - (fetch CBUFDIRTY of STREAM]) + (OR (fetch IODIRTY of BUFFER) + (AND STREAM (CPBUFFERP BUFFER STREAM) + (fetch CBUFDIRTY of STREAM]) ) (DECLARE%: EVAL@COMPILE @@ -1099,20 +1105,20 @@ EVAL@COMPILE (LOCALVARS . T) ) (PUTPROPS PMAP COPYRIGHT ("Venue & Xerox Corporation" 1982 1983 1984 1985 1986 1987 1988 1990 1993 -2002)) +2002 2021)) (DECLARE%: DONTCOPY - (FILEMAP (NIL (2522 29176 (ADDMAPBUFFER 2532 . 2708) (\ALLOCMAPBUFFER 2710 . 3311) (CHECKBUFFERREFVAL -3313 . 3888) (CLEARMAP 3890 . 4546) (\WRITEOUTBUFFERS 4548 . 5297) (\CLEARMAP 5299 . 8525) (DOPMAP -8527 . 8990) (FINDPTRSBUFFER 8992 . 9866) (FORGETPAGES 9868 . 12153) (\GETMAPBUFFER 12155 . 15277) ( -LOCKMAP 15279 . 15486) (MAPAFTERCLOSE 15488 . 15791) (MAPBUFFERCOUNT 15793 . 16283) (MAPPAGE 16285 . -17794) (MAPWORD 17796 . 18109) (\RELEASEBUFFER 18111 . 18680) (RELEASINGVMEMPAGE 18682 . 19319) ( -RESTOREMAP 19321 . 22118) (UNLOCKMAP 22120 . 22329) (\MAPPAGE 22331 . 27785) (\COLLECTDIRTYBUFS 27787 - . 28567) (\SETIODIRTY 28569 . 29174)) (29177 30148 (WORDCONTENTS 29187 . 29356) (SETWORDCONTENTS -29358 . 29670) (/SETWORDCONTENTS 29672 . 29977) (WORDOFFSET 29979 . 30146)) (31476 50442 ( -\MAKE.PMAP.DEVICE 31486 . 32814) (\PAGEDBACKFILEPTR 32816 . 34736) (\PAGEDSETFILEPTR 34738 . 36174) ( -\PAGED.INCFILEPTR 36176 . 39200) (\PAGEDGETFILEPTR 39202 . 39445) (\PAGEDGETEOFPTR 39447 . 39865) ( -\PAGEDREADP 39867 . 41051) (\PAGEDEOFP 41053 . 42670) (\PAGED.GETNEXTBUFFER 42672 . 46136) ( -\PAGED.FORCEOUTPUT 46138 . 48586) (\UPDATEOF 48588 . 49420) (\READPAGES 49422 . 49882) (\WRITEPAGES -49884 . 50440)) (50443 54535 (\SETEOF 50453 . 51668) (\PAGED.SETEOFPTR 51670 . 53564) (\NEWLENGTHIS -53566 . 54533)) (54677 55057 (PPBUFS 54687 . 55055))))) + (FILEMAP (NIL (2513 29167 (ADDMAPBUFFER 2523 . 2699) (\ALLOCMAPBUFFER 2701 . 3302) (CHECKBUFFERREFVAL +3304 . 3879) (CLEARMAP 3881 . 4537) (\WRITEOUTBUFFERS 4539 . 5288) (\CLEARMAP 5290 . 8516) (DOPMAP +8518 . 8981) (FINDPTRSBUFFER 8983 . 9857) (FORGETPAGES 9859 . 12144) (\GETMAPBUFFER 12146 . 15268) ( +LOCKMAP 15270 . 15477) (MAPAFTERCLOSE 15479 . 15782) (MAPBUFFERCOUNT 15784 . 16274) (MAPPAGE 16276 . +17785) (MAPWORD 17787 . 18100) (\RELEASEBUFFER 18102 . 18671) (RELEASINGVMEMPAGE 18673 . 19310) ( +RESTOREMAP 19312 . 22109) (UNLOCKMAP 22111 . 22320) (\MAPPAGE 22322 . 27776) (\COLLECTDIRTYBUFS 27778 + . 28558) (\SETIODIRTY 28560 . 29165)) (29168 30139 (WORDCONTENTS 29178 . 29347) (SETWORDCONTENTS +29349 . 29661) (/SETWORDCONTENTS 29663 . 29968) (WORDOFFSET 29970 . 30137)) (31845 51748 ( +\MAKE.PMAP.DEVICE 31855 . 33183) (\PAGEDBACKFILEPTR 33185 . 35659) (\PAGEDSETFILEPTR 35661 . 37097) ( +\PAGED.INCFILEPTR 37099 . 40123) (\PAGEDGETFILEPTR 40125 . 40368) (\PAGEDGETEOFPTR 40370 . 40788) ( +\PAGEDREADP 40790 . 42027) (\PAGEDEOFP 42029 . 43646) (\PAGED.GETNEXTBUFFER 43648 . 47442) ( +\PAGED.FORCEOUTPUT 47444 . 49892) (\UPDATEOF 49894 . 50726) (\READPAGES 50728 . 51188) (\WRITEPAGES +51190 . 51746)) (51749 55841 (\SETEOF 51759 . 52974) (\PAGED.SETEOFPTR 52976 . 54870) (\NEWLENGTHIS +54872 . 55839)) (55983 56363 (PPBUFS 55993 . 56361))))) STOP diff --git a/sources/PMAP.LCOM b/sources/PMAP.LCOM index d7f184bdd..c4d937e3f 100644 Binary files a/sources/PMAP.LCOM and b/sources/PMAP.LCOM differ diff --git a/sources/PRETTY b/sources/PRETTY index 3d1c0da58..cd4f14a64 100644 --- a/sources/PRETTY +++ b/sources/PRETTY @@ -1,11 +1,11 @@ -(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) -(FILECREATED "21-Feb-2021 10:59:08"  -{DSK}kaplan>Local>medley3.5>git-medley>sources>PRETTY.;10 57241 +(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10 FORMAT XCCS) +(FILECREATED " 9-Jul-2021 14:12:19"  +{DSK}kaplan>Local>medley3.5>git-medley>sources>PRETTY.;19 64744 - changes to%: (FNS PRINTCOPYRIGHT1) + changes to%: (FNS PRETTYDEF) - previous date%: "16-Apr-2018 21:37:09" -{DSK}kaplan>Local>medley3.5>git-medley>sources>PRETTY.;6) + previous date%: " 3-Jul-2021 15:24:17" +{DSK}kaplan>Local>medley3.5>git-medley>sources>PRETTY.;17) (* ; " @@ -45,7 +45,7 @@ with the terms of said license. " EXPLAINSTRING "] - no copyright notice now" NOECHOFLG T RETURN NIL] (COPYRIGHTSRESERVED T) (*NEW-INTERLISP-MAKEFILE-ENVIRONMENT* '(:READTABLE "INTERLISP" :PACKAGE - "INTERLISP")) + "INTERLISP" :FORMAT :XCCS)) (*DEFAULT-MAKEFILE-ENVIRONMENT*)) (GLOBALVARS COPYRIGHTOWNERS DEFAULTCOPYRIGHTKEYLST COPYRIGHTPRETTYFLG COMMENTFLG *DEFAULT-MAKEFILE-ENVIRONMENT* *NEW-INTERLISP-MAKEFILE-ENVIRONMENT*)) @@ -99,10 +99,214 @@ with the terms of said license. (DEFINEQ (PRETTYDEF -(LAMBDA (PRTTYFNS PRTTYFILE PRTTYCOMS REPRINTFNS SOURCEFILE CHANGES) (* ; "Edited 16-Feb-88 11:46 by raf") (DECLARE (SPECVARS PRTTYFILE REPRINTFNS SOURCEFILE CHANGES)) (RESETLST (RESETSAVE (RESETUNDO) (QUOTE (AND RESETSTATE (RESETUNDO OLDVALUE)))) (* ;; "Says undo everything if there is an error or control-D This is particularly necessary if user is using the PRINT* prettyprintmacro which updates comments to point to the newest version.") (PROG ((NEWFILEMAP (AND BUILDMAPFLG (LIST NIL))) (%#RPARS %#RPARS) (*PRINT-ARRAY* T) (XCL:*PRINT-STRUCTURE* T) (*PRINT-LEVEL* NIL) (*PRINT-LENGTH* NIL) FILEFLG FNSLST PRTTYTEM PRETTYCOMSLST PRTTYSPELLFLG OLDFILEMAP MAPADR NLAMALST NLAMLST LAMALST LAM?LST FILEDATES ORIGFLG ROOTNAME DESTINATIONENV SOURCEFILENV SOURCEFC FCLOCATION) (DECLARE (SPECVARS *PRINT-ARRAY* XCL:*PRINT-STRUCTURE* *PRINT-LEVEL* *PRINT-LENGTH* NEWFILEMAP ORIGFLG FILEFLG NLAMALST PRTTYSPELLFLG PRETTYCOMSLST PRTTYCOMS LAM?LST FNSLST OLDFILEMAP LAMALST MAPADR ORIGFLG NLAMLST DESTINATIONENV SOURCEFILENV %#RPARS)) (* ; "NEWFILEMAP corresponds to the map being built for the file being written. OLDFILEMAP corresponds to the map that exists for SOURCEFILE, if any.") (COND ((OR (NULL (\DTEST PRTTYFILE (QUOTE LITATOM))) (EQ PRTTYFILE T)) (* ; "we no longer support any of the crufty alternatives to writing a brand new file") (\ILLEGAL.ARG PRTTYFILE))) (SETQ ROOTNAME (ROOTFILENAME PRTTYFILE)) (if (OR (EQ SOURCEFILE T) (AND REPRINTFNS (NULL SOURCEFILE))) then (* ;; "SOURCEFILE plays the role of CFILE for recompiling. It permits PRETTYPRINT to obtain the definitions from the file withou having to reprettyprint them, or even having them loaded into core. T (or NIL if REPRINTFNS is specified) is the same as PRETTYFILE.") (* ;; "REPRINTFNS specifies those functions to be printed anew. REPRINTFNS=T means reprint all EXPRS, a la recompile. For example, if you have an entire file loaded in, but only change a few functions, using this option can speed up dumping the file by a factor of two. If REPRINTFNS=ALL, all functions that contain in core exprs, whether on function definition cell or property lists, are reprinted. REPRINTFNS can also be a list. MAKEFILE uses this for the REMAKE option by specifying as REPRINTFNS the list CHANGES. In any case, if the function does not contain an in core defnition, prettyprint will try to find one on the file. i.e., act as though REPRINTFNS were NIL.") (SETQ SOURCEFILE ROOTNAME)) (if (SETQ DESTINATIONENV (GET ROOTNAME (QUOTE MAKEFILE-ENVIRONMENT))) then (* ; "use this explicit environment. Copy it in case user later on destructively edits it") (SETQ DESTINATIONENV (\DO-DEFINE-FILE-INFO NIL (COPY DESTINATIONENV))) else (* ; "see if we already know the environment of the source") (CL:MULTIPLE-VALUE-SETQ (SOURCEFILENV OLDFILEMAP SOURCEFC) (LOOKUP-ENVIRONMENT-AND-FILEMAP (OR SOURCEFILE ROOTNAME) (OR (NULL SOURCEFILE) (EQ SOURCEFILE ROOTNAME))))) (if SOURCEFILE then (if (NULL (NLSETQ (SETQ SOURCEFILE (OPENSTREAM SOURCEFILE (QUOTE INPUT))))) then (* ; "can't find file to reprint from.") (* ; "OPENSTREAM is called in order that 'correction' take place.") (SETQ SOURCEFILE NIL) (PRIN1 PRTTYFILE T) (PRIN1 (QUOTE " not found, so it will be written anew. -") T) elseif (RANDACCESSP SOURCEFILE) then (RESETSAVE NIL (LIST (QUOTE CLOSEF) SOURCEFILE)) (RESETSAVE (INPUT SOURCEFILE)) (if (EQ REPRINTFNS (QUOTE EXPRS)) then (SETQ REPRINTFNS T) elseif (EQ REPRINTFNS (QUOTE CHANGES)) then (SETQ REPRINTFNS (UNION (FILEPKG.CHANGEDFNS CHANGES) (FILEPKG.CHANGEDFNS (fetch FILECHANGES of ROOTNAME))))) (if (NULL SOURCEFILENV) then (* ; "if we didn't have environment cached, look it up from the actual stream now") (CL:MULTIPLE-VALUE-SETQ (SOURCEFILENV OLDFILEMAP SOURCEFC) (GET-ENVIRONMENT-AND-FILEMAP SOURCEFILE))) (if (NULL OLDFILEMAP) then (* ; "no map on file, so we will build one as needed") (SETFILEPTR SOURCEFILE (OR SOURCEFC 0)) elseif (NULL (CAR OLDFILEMAP)) then (* ; "complete map.") elseif (LISTP (CAR OLDFILEMAP)) then (* ; "only partial map built up. should only happen for files that were made with BUILDMAPFLG=NIL, since otherwise there would be a coplete map on the file.") (SETFILEPTR SOURCEFILE (CAAR OLDFILEMAP)) else (* ; "Redundancy check. Should only occur if there was a compiled function in the file. and a partial map was formed that stopped after that function.") (HELP)) else (* ; "Can't copy from non-randaccessp source") (SETQ SOURCEFILE NIL))) (* ;; "Now figure out what environment to write the new file in.") (if DESTINATIONENV then (* ; "have explicit env, ok") elseif SOURCEFILENV then (* ; "use same as source") (SETQ DESTINATIONENV (if (EQUAL-READER-ENVIRONMENT SOURCEFILENV *OLD-INTERLISP-READ-ENVIRONMENT*) then (* ; "write the new style") (\DO-DEFINE-FILE-INFO NIL *NEW-INTERLISP-MAKEFILE-ENVIRONMENT*) else (* ; "use same env on new file as old") SOURCEFILENV)) else (* ; "new file, use default") (SETQ DESTINATIONENV (\DO-DEFINE-FILE-INFO NIL (COPY *DEFAULT-MAKEFILE-ENVIRONMENT*)))) (if (NULL SOURCEFILE) then (* ; "get rid of anything we knew about source") (SETQ OLDFILEMAP NIL) (SETQ SOURCEFC NIL) (SETQ SOURCEFILENV NIL) elseif (AND SOURCEFILENV (EQUAL-READER-ENVIRONMENT SOURCEFILENV DESTINATIONENV)) then (* ; "source and destination compatible, so we won't need to worry about it in PRETTYPRINT1/2") (SETQ SOURCEFILENV NIL)) (RESETSAVE NIL (LIST (FUNCTION PRETTYDEF0) (SETQ PRTTYFILE (OPENSTREAM PRTTYFILE (QUOTE OUTPUT))))) (* ; "Cleans up by closing and deleting file if aborted.") (RESETSAVE (OUTPUT PRTTYFILE)) (PRINT-READER-ENVIRONMENT DESTINATIONENV) (SETQ FCLOCATION (GETFILEPTR PRTTYFILE)) (WITH-READER-ENVIRONMENT DESTINATIONENV (if (NOT (SYNTAXP (CHARCODE "[") (QUOTE LEFTBRACKET))) then (* ; "can't use brackets on this read table") (SETQ %#RPARS NIL)) (SETQ FILEDATES (PRINTDATE PRTTYFILE CHANGES)) (AND (NEQ COPYRIGHTFLG (QUOTE NEVER)) ROOTNAME (PRINTCOPYRIGHT ROOTNAME)) (SETQ FILEFLG T) (SETQ CHANGES (FILEPKG.CHANGEDFNS CHANGES)) (* ; "Used freely by PRETTYPRINT to decide clispifying.") (if (NOT (RANDACCESSP PRTTYFILE)) then (* ; "No point building a map, since we won't be able to go back to the start to point at it") (SETQ NEWFILEMAP NIL)) (if FONTCHANGEFLG then (* ; "this is expensive in that it costs as many conses as there are functions, but you can afford it for a makefile.") (SETQ FNSLST (OR (for FL in (GETPROP ROOTNAME (QUOTE FILEGROUP)) when (fetch FILEPROP of FL) join (FILEFNSLST FL)) (FILEFNSLST ROOTNAME)))) (if (OR (LISTP PRTTYFNS) (LISTP (GETTOPVAL PRTTYFNS))) then (* ; "Ancient cruft from before the days of MAKEFILE.") (PRINTFNS PRTTYFNS T) (PRETTYCOM PRTTYFNS T)) (if (SETQ PRETTYCOMSLST (OR (LISTP PRTTYCOMS) (AND (LITATOM PRTTYCOMS) (LISTP (GETTOPVAL PRTTYCOMS))))) then (PRETTYCOM PRTTYCOMS T) (* ; "PRTTYCOMS is just like the argument to a COMS command. see comment in prettycom1") (for L on PRETTYCOMSLST do (PRETTYCOM (CAR L) NIL L)) (* ; "The original value of PRTTYCOMS is saved so that it can be rewritten if a spelling correction occurs. The list PRTTYCOMSLST is searched by PRETTYCOM1 for * commands to see if the variable has be dumped out as well.")) (if (PRETTYDEF1) then (* ; "The coms were reprinted by PRETTYDEF1 due to a change to nlama and or nlaml") elseif PRTTYSPELLFLG then (* ; "A correction on prettycoms was performed, so dump it out aain to get the corrected version on the file.") (PRETTYCOM PRTTYCOMS T)) (if (NEQ COPYRIGHTFLG (QUOTE NEVER)) then (SAVECOPYRIGHT ROOTNAME)) (if NEWFILEMAP then (PRIN1 "(") (PRIN2 (QUOTE DECLARE%:)) (SPACES 1) (PRIN2 (QUOTE DONTCOPY)) (TERPRI) (SPACES 2) (for ADR in MAPADR do (SETQ PRTTYTEM (GETFILEPTR PRTTYFILE)) (SETFILEPTR PRTTYFILE ADR) (* ; "Write the current file positon into the filecreated expression, and then restores the file pointer.") (PRIN2 PRTTYTEM) (SETFILEPTR PRTTYFILE PRTTYTEM)) (PRIN2 (LIST (QUOTE FILEMAP) NEWFILEMAP)) (* ; "printed instead of prettyprinted, so wont take up two pages of listing.") (PRIN1 (QUOTE ") -")) (PUTFILEMAP (FULLNAME PRTTYFILE) NEWFILEMAP NIL DESTINATIONENV NIL FCLOCATION) (* ; "Also save map, so can be used for subsequent makefiles.")) (ENDFILE PRTTYFILE) (if (AND FILEDATES ROOTNAME) then (/replace FILEDATES of ROOTNAME with FILEDATES))) (RETURN (FULLNAME PRTTYFILE))))) -) + [LAMBDA (PRTTYFNS PRTTYFILE PRTTYCOMS REPRINTFNS SOURCEFILE CHANGES FORMAT) + (* ; "Edited 9-Jul-2021 14:12 by rmk:") + (* ; "Edited 29-Jun-2021 17:23 by rmk:") + (DECLARE (SPECVARS PRTTYFILE REPRINTFNS SOURCEFILE CHANGES)) + (RESETLST + [RESETSAVE (RESETUNDO) + '(AND RESETSTATE (RESETUNDO OLDVALUE] + + (* ;; "Says undo everything if there is an error or control-D This is particularly necessary if user is using the PRINT* prettyprintmacro which updates comments to point to the newest version.") + + (PROG ((NEWFILEMAP (AND BUILDMAPFLG (LIST NIL))) + (%#RPARS %#RPARS) + (*PRINT-ARRAY* T) + (XCL:*PRINT-STRUCTURE* T) + (*PRINT-LEVEL* NIL) + (*PRINT-LENGTH* NIL) + FILEFLG FNSLST PRTTYTEM PRETTYCOMSLST PRTTYSPELLFLG OLDFILEMAP MAPADR NLAMALST NLAMLST + LAMALST LAM?LST FILEDATES ORIGFLG ROOTNAME DESTINATIONENV SOURCEFILENV SOURCEFC + FCLOCATION DEFAULTDESTENV) + (DECLARE (SPECVARS *PRINT-ARRAY* XCL:*PRINT-STRUCTURE* *PRINT-LEVEL* *PRINT-LENGTH* + NEWFILEMAP ORIGFLG FILEFLG NLAMALST PRTTYSPELLFLG PRETTYCOMSLST + PRTTYCOMS LAM?LST FNSLST OLDFILEMAP LAMALST MAPADR ORIGFLG NLAMLST + DESTINATIONENV SOURCEFILENV %#RPARS)) + (* ; "NEWFILEMAP corresponds to the map being built for the file being written. OLDFILEMAP corresponds to the map that exists for SOURCEFILE, if any.") + (COND + ((OR (NULL (\DTEST PRTTYFILE 'LITATOM)) + (EQ PRTTYFILE T)) (* ; + "we no longer support any of the crufty alternatives to writing a brand new file") + (\ILLEGAL.ARG PRTTYFILE))) + (SETQ ROOTNAME (ROOTFILENAME PRTTYFILE)) + (if (OR (EQ SOURCEFILE T) + (AND REPRINTFNS (NULL SOURCEFILE))) + then + + (* ;; "SOURCEFILE plays the role of CFILE for recompiling. It permits PRETTYPRINT to obtain the definitions from the file withou having to reprettyprint them, or even having them loaded into core. T (or NIL if REPRINTFNS is specified) is the same as PRETTYFILE.") + + (* ;; "REPRINTFNS specifies those functions to be printed anew. REPRINTFNS=T means reprint all EXPRS, a la recompile. For example, if you have an entire file loaded in, but only change a few functions, using this option can speed up dumping the file by a factor of two. If REPRINTFNS=ALL, all functions that contain in core exprs, whether on function definition cell or property lists, are reprinted. REPRINTFNS can also be a list. MAKEFILE uses this for the REMAKE option by specifying as REPRINTFNS the list CHANGES. In any case, if the function does not contain an in core defnition, prettyprint will try to find one on the file. i.e., act as though REPRINTFNS were NIL.") + + (SETQ SOURCEFILE ROOTNAME)) + [if (SETQ DESTINATIONENV (GET ROOTNAME 'MAKEFILE-ENVIRONMENT)) + then (SETQ DESTINATIONENV (\DO-DEFINE-FILE-INFO NIL DESTINATIONENV)) + else (* ; + "see if we already know the environment of the source") + (CL:MULTIPLE-VALUE-SETQ (SOURCEFILENV OLDFILEMAP SOURCEFC) + (LOOKUP-ENVIRONMENT-AND-FILEMAP (OR SOURCEFILE ROOTNAME) + (OR (NULL SOURCEFILE) + (EQ SOURCEFILE ROOTNAME] + (if SOURCEFILE + then (if [NULL (NLSETQ (SETQ SOURCEFILE (OPENSTREAM SOURCEFILE 'INPUT] + then (* ; + "can't find file to reprint from.") + (* ; + "OPENSTREAM was called in order that 'correction' take place.") + (SETQ SOURCEFILE NIL) + (PRINTOUT T PRTTYFILE " not found, so it will be written anew." + T) + elseif (RANDACCESSP SOURCEFILE) + then (RESETSAVE NIL (LIST 'CLOSEF SOURCEFILE)) + (* ; "The typical case: File is open") + (RESETSAVE (INPUT SOURCEFILE)) + [if (EQ REPRINTFNS 'EXPRS) + then (SETQ REPRINTFNS T) + elseif (EQ REPRINTFNS 'CHANGES) + then (SETQ REPRINTFNS + (UNION (FILEPKG.CHANGEDFNS CHANGES) + (FILEPKG.CHANGEDFNS (fetch FILECHANGES + of ROOTNAME] + (CL:UNLESS SOURCEFILENV (* ; + "if we didn't have environment cached, look it up from the actual stream now") + (CL:MULTIPLE-VALUE-SETQ (SOURCEFILENV OLDFILEMAP SOURCEFC) + (GET-ENVIRONMENT-AND-FILEMAP SOURCEFILE))) + (\EXTERNALFORMAT SOURCEFILE (FETCH (READER-ENVIRONMENT + REFORMAT) OF + SOURCEFILENV + )) + (if (NULL OLDFILEMAP) + then (* ; + "no map on file, so we will build one as needed") + (SETFILEPTR SOURCEFILE (OR SOURCEFC 0)) + elseif (NULL (CAR OLDFILEMAP)) + then (* ; "complete map.") + elseif (LISTP (CAR OLDFILEMAP)) + then (* ; "only partial map built up. should only happen for files that were made with BUILDMAPFLG=NIL, since otherwise there would be a coplete map on the file.") + (SETFILEPTR SOURCEFILE (CAAR OLDFILEMAP)) + else (* ; "Redundancy check. Should only occur if there was a compiled function in the file. and a partial map was formed that stopped after that function.") + (HELP)) + else (* ; + "Can't copy from non-randaccessp source") + (SETQ SOURCEFILE NIL))) + + (* ;; "Now figure out what environment to write the new file in.") + + (CL:UNLESS DESTINATIONENV (* ; + "Don't yet have a destination environment") + (SETQ DESTINATIONENV (if SOURCEFILENV + then (* ; "use same as source") + (if (EQUAL-READER-ENVIRONMENT SOURCEFILENV + *OLD-INTERLISP-READ-ENVIRONMENT*) + then + (* ; "Coercing to the new style") + (\DO-DEFINE-FILE-INFO NIL + *NEW-INTERLISP-MAKEFILE-ENVIRONMENT* + ) + else (* ; + "use same env on new file as old. But copy in case something changes") + (CREATE READER-ENVIRONMENT USING + SOURCEFILENV) + ) + elseif *DEFAULT-MAKEFILE-ENVIRONMENT* + then + + (* ;; "new file, use default") + + (\DO-DEFINE-FILE-INFO NIL + *DEFAULT-MAKEFILE-ENVIRONMENT*)))) + (CL:WHEN FORMAT + (REPLACE (READER-ENVIRONMENT REFORMAT) OF DESTINATIONENV WITH FORMAT)) + + (* ;; "We now have a DESTINATIONENV") + + (if (NULL SOURCEFILE) + then (* ; + "get rid of anything we knew about source") + (SETQ OLDFILEMAP NIL) + (SETQ SOURCEFC NIL) + (SETQ SOURCEFILENV NIL) + elseif (AND SOURCEFILENV (EQUAL-READER-ENVIRONMENT SOURCEFILENV DESTINATIONENV)) + then (* ; + "source and destination compatible, so we won't need to worry about it in PRETTYPRINT1/2") + (SETQ SOURCEFILENV NIL)) + + (* ;; "Ready to go. Clean up by closing and deleting file if aborted.") + + [RESETSAVE NIL (LIST (FUNCTION PRETTYDEF0) + (SETQ PRTTYFILE (OPENSTREAM PRTTYFILE 'OUTPUT] + (\EXTERNALFORMAT PRTTYFILE (FETCH (READER-ENVIRONMENT REFORMAT) OF + DESTINATIONENV + )) + (RESETSAVE (OUTPUT PRTTYFILE)) + (PRINT-READER-ENVIRONMENT DESTINATIONENV) + (SETQ FCLOCATION (GETFILEPTR PRTTYFILE)) + (WITH-READER-ENVIRONMENT DESTINATIONENV + (CL:UNLESS (SYNTAXP (CHARCODE "[") + 'LEFTBRACKET) (* ; + "can't use brackets on this read table") + (SETQ %#RPARS NIL)) + (SETQ FILEDATES (PRINTDATE PRTTYFILE CHANGES)) + (AND (NEQ COPYRIGHTFLG 'NEVER) + ROOTNAME + (PRINTCOPYRIGHT ROOTNAME)) + (SETQ FILEFLG T) + (SETQ CHANGES (FILEPKG.CHANGEDFNS CHANGES))(* ; + "Used freely by PRETTYPRINT to decide clispifying.") + (CL:UNLESS (RANDACCESSP PRTTYFILE) (* ; + "No point building a map, since we won't be able to go back to the start to point at it") + (SETQ NEWFILEMAP NIL)) + (CL:WHEN FONTCHANGEFLG (* ; "this is expensive in that it costs as many conses as there are functions, but you can afford it for a makefile.") + (SETQ FNSLST (OR (for FL in (GETPROP ROOTNAME 'FILEGROUP) + when (fetch FILEPROP of FL) + join (FILEFNSLST FL)) + (FILEFNSLST ROOTNAME)))) + (CL:WHEN (OR (LISTP PRTTYFNS) + (LISTP (GETTOPVAL PRTTYFNS))) (* ; + "Ancient cruft from before the days of MAKEFILE.") + (PRINTFNS PRTTYFNS T) + (PRETTYCOM PRTTYFNS T)) + (CL:WHEN [SETQ PRETTYCOMSLST (OR (LISTP PRTTYCOMS) + (AND (LITATOM PRTTYCOMS) + (LISTP (GETTOPVAL PRTTYCOMS] + (PRETTYCOM PRTTYCOMS T) (* ; + "PRTTYCOMS is just like the argument to a COMS command. see comment in prettycom1") + (for L on PRETTYCOMSLST do (PRETTYCOM (CAR L) + NIL L)) + (* ; "The original value of PRTTYCOMS is saved so that it can be rewritten if a spelling correction occurs. The list PRTTYCOMSLST is searched by PRETTYCOM1 for * commands to see if the variable has be dumped out as well.") + ) + (if (PRETTYDEF1) + then (* ; + "The coms were reprinted by PRETTYDEF1 due to a change to nlama and or nlaml") + elseif PRTTYSPELLFLG + then (* ; "A correction on prettycoms was performed, so dump it out aain to get the corrected version on the file.") + (PRETTYCOM PRTTYCOMS T)) + (CL:UNLESS (EQ COPYRIGHTFLG 'NEVER) + (SAVECOPYRIGHT ROOTNAME)) + (CL:WHEN NEWFILEMAP + (PRIN1 "(") + (PRIN2 'DECLARE%:) + (SPACES 1) + (PRIN2 'DONTCOPY) + (TERPRI) + (SPACES 2) + (for ADR in MAPADR do (SETQ PRTTYTEM (GETFILEPTR PRTTYFILE)) + (SETFILEPTR PRTTYFILE ADR) + (* ; "Write the current file positon into the filecreated expression, and then restores the file pointer.") + (PRIN2 PRTTYTEM) + (SETFILEPTR PRTTYFILE PRTTYTEM)) + (PRIN2 (LIST 'FILEMAP NEWFILEMAP)) (* ; + "printed instead of prettyprinted, so wont take up two pages of listing.") + (PRIN1 ")") + (TERPRI) + + (* ;; "Also save map, so can be used for subsequent makefiles.") + + (PUTFILEMAP (FULLNAME PRTTYFILE) + NEWFILEMAP NIL DESTINATIONENV NIL FCLOCATION)) + (ENDFILE PRTTYFILE) + (CL:WHEN (AND FILEDATES ROOTNAME) + (/replace FILEDATES of ROOTNAME with FILEDATES))) + (RETURN (FULLNAME PRTTYFILE))))]) (PRETTYDEFCOMS (LAMBDA (PRTTYCOMS FNSLST) (* ; "Edited 19-Aug-88 16:07 by raf") (DECLARE (SPECVARS FNSLST)) (PROG ((%#RPARS %#RPARS) (*PRINT-ARRAY* T) (XCL:*PRINT-STRUCTURE* T) (*PRINT-LEVEL* NIL) (*PRINT-LENGTH* NIL) BUILDMAPFLG PRTTYSPELLFLG ORIGFLG SOURCEFILE) (DECLARE (SPECVARS *PRINT-ARRAY* XCL:*PRINT-STRUCTURE* *PRINT-LEVEL* *PRINT-LENGTH* BUILDMAPFLG NEWFILEMAP ORIGFLG PRTTYSPELLFLG LAM?LST ORIGFLG SOURCEFILE %#RPARS)) (if (NOT (SYNTAXP (CHARCODE "[") (QUOTE LEFTBRACKET))) then (* ; "can't use brackets on this read table") (SETQ %#RPARS NIL)) (for L on (OR (LISTP PRTTYCOMS) (AND (LITATOM PRTTYCOMS) (LISTP (GETTOPVAL PRTTYCOMS)))) do (PRETTYCOM (CAR L) NIL L)))) @@ -392,7 +596,8 @@ must replace the declare: by a nop addvars.") (SETQ PRTTYCOM (SUBPAIR (QUOTE (NL (RPAQ? COPYRIGHTSRESERVED T) -(RPAQ? *NEW-INTERLISP-MAKEFILE-ENVIRONMENT* '(:READTABLE "INTERLISP" :PACKAGE "INTERLISP")) +(RPAQ? *NEW-INTERLISP-MAKEFILE-ENVIRONMENT* '(:READTABLE "INTERLISP" :PACKAGE "INTERLISP" :FORMAT + :XCCS)) (RPAQ? *DEFAULT-MAKEFILE-ENVIRONMENT* ) (DECLARE%: DOEVAL@COMPILE DONTCOPY @@ -484,14 +689,14 @@ must replace the declare: by a nop addvars.") (SETQ PRTTYCOM (SUBPAIR (QUOTE (NL (PUTPROPS PRETTY COPYRIGHT ("Venue & Xerox Corporation" T 1984 1985 1986 1987 1988 1989 1990 1999 2018 2021)) (DECLARE%: DONTCOPY - (FILEMAP (NIL (5927 40668 (PRETTYDEF 5937 . 14200) (PRETTYDEFCOMS 14202 . 14884) (PRETTYDEF0 14886 . -15077) (PRETTYDEF1 15079 . 16842) (PRINTDATE 16844 . 18080) (PRINTDATE1 18082 . 19287) (PRINTFNS 19289 - . 19858) (PRETTYCOM 19860 . 26201) (PRETTYVAR 26203 . 27241) (PRETTYVAR1 27243 . 29461) (PRETTYCOM1 -29463 . 30167) (ENDFILE 30169 . 30265) (MAKEDEFLIST 30267 . 30671) (PP 30673 . 30949) (PP* 30951 . -31264) (PPT 31266 . 31585) (PRETTYPRINT 31587 . 34739) (PRETTYPRINT1 34741 . 36627) (PRETTYPRINT2 -36629 . 37945) (PRETTYPRINT3 37947 . 38902) (PRINTDEF1 38904 . 39912) (SUPERPRINTEQ 39914 . 40008) ( -SUPERPRINTGETPROP 40010 . 40154) (CHANGEFONT 40156 . 40666)) (40669 46015 (READARRAY 40679 . 41605) ( -PRINTARRAY 41607 . 43347) (READARRAY-FROM-LIST 43349 . 44454) (PRINTARRAY-TO-LIST 44456 . 46013)) ( -46142 53355 (PRINTCOPYRIGHT 46152 . 49924) (PRINTCOPYRIGHT1 49926 . 53050) (SAVECOPYRIGHT 53052 . -53353))))) + (FILEMAP (NIL (5950 48101 (PRETTYDEF 5960 . 21633) (PRETTYDEFCOMS 21635 . 22317) (PRETTYDEF0 22319 . +22510) (PRETTYDEF1 22512 . 24275) (PRINTDATE 24277 . 25513) (PRINTDATE1 25515 . 26720) (PRINTFNS 26722 + . 27291) (PRETTYCOM 27293 . 33634) (PRETTYVAR 33636 . 34674) (PRETTYVAR1 34676 . 36894) (PRETTYCOM1 +36896 . 37600) (ENDFILE 37602 . 37698) (MAKEDEFLIST 37700 . 38104) (PP 38106 . 38382) (PP* 38384 . +38697) (PPT 38699 . 39018) (PRETTYPRINT 39020 . 42172) (PRETTYPRINT1 42174 . 44060) (PRETTYPRINT2 +44062 . 45378) (PRETTYPRINT3 45380 . 46335) (PRINTDEF1 46337 . 47345) (SUPERPRINTEQ 47347 . 47441) ( +SUPERPRINTGETPROP 47443 . 47587) (CHANGEFONT 47589 . 48099)) (48102 53448 (READARRAY 48112 . 49038) ( +PRINTARRAY 49040 . 50780) (READARRAY-FROM-LIST 50782 . 51887) (PRINTARRAY-TO-LIST 51889 . 53446)) ( +53575 60788 (PRINTCOPYRIGHT 53585 . 57357) (PRINTCOPYRIGHT1 57359 . 60483) (SAVECOPYRIGHT 60485 . +60786))))) STOP diff --git a/sources/PRETTY.LCOM b/sources/PRETTY.LCOM index 9bdeb6e7c..60cb1b6db 100644 Binary files a/sources/PRETTY.LCOM and b/sources/PRETTY.LCOM differ diff --git a/sources/PRINTFN b/sources/PRINTFN index 435a31805..607bce7ab 100644 --- a/sources/PRINTFN +++ b/sources/PRINTFN @@ -1,14 +1,15 @@ (DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP") -(FILECREATED "16-Apr-2018 21:40:32" {DSK}kaplan>Local>medley3.5>lispcore>sources>PRINTFN.;4 14468 +(FILECREATED "27-Jun-2021 23:29:20"  +{DSK}kaplan>Local>medley3.5>git-medley>sources>PRINTFN.;16 13154 - changes to%: (FNS PF) + changes to%: (FNS PFCOPYBYTES) - previous date%: "28-Jun-99 17:09:59" -{DSK}kaplan>Local>medley3.5>lispcore>sources>PRINTFN.;3) + previous date%: "22-Jun-2021 10:48:42" +{DSK}kaplan>Local>medley3.5>git-medley>sources>PRINTFN.;14) (* ; " -Copyright (c) 1986, 1987, 1990, 1999, 2018 by Venue & Xerox Corporation. All rights reserved. +Copyright (c) 1986-1987, 1990, 1999, 2018, 2021 by Venue & Xerox Corporation. ") (PRETTYCOMPRINT PRINTFNCOMS) @@ -28,150 +29,34 @@ Copyright (c) 1986, 1987, 1990, 1999, 2018 by Venue & Xerox Corporation. All ri (DEFINEQ -(PF - [NLAMBDA FN (* ; "Edited 4-Apr-2018 11:13 by rmk:") +(PF [NLAMBDA FN (* ; "Edited 4-Apr-2018 11:13 by rmk:") (* ;; "RMK; Fixed to skip compiled files, also to use FUNCTIONS as well as FNS. That might not help, if FUNCTIONS are not included in the filemap.") (* ;; "Print from files known to masterscope database before looking at whereis database. Note, however, that it also prefers the masterscope database to incore files") (* ;; "If FN is NIL, prints the function named by LASTWORD") (* ;; "If FN is a list, then extra args are interpreted as:") (* ;; " OUTPUT FILE") (* ;; "...") (RESETLST (PROG (OUT OTHERARGS IFILES) (SETQ FN (NLAMBDA.ARGS FN)) (* ; "Grab the args as a list") [COND ((LISTP FN) (* ;  "If it's a list, take the first element as the function name.") (SETQ OTHERARGS (CDR FN)) (SETQ FN (CAR FN] (COND (FN (* ; "FN name specified; use it.") (SETQ LASTWORD FN)) (T (* ; "Not specified, use LASTWORD") (SETQ FN LASTWORD))) [SETQ IFILES (OR (CAR OTHERARGS) (APPEND (WHEREIS FN 'FNS T) (WHEREIS FN 'FUNCTIONS T] [RESETSAVE (OUTPUT (COND ((CADR OTHERARGS) (* ;  "An output file was specified; if not open for output, open it.") (OR (OPENP (CADR OTHERARGS) 'OUTPUT) (WINDOWP (CADR OTHERARGS)) (PROGN [RESETSAVE (SETQ OUT (OPENFILE (CADR OTHERARGS) 'OUTPUT)) '(PROGN (CLOSEF? OLDVALUE] OUT))) (T (* ; "otherwise, use primary output.") T] (* ; "skip compiled files") (FOR FILE INSIDE IFILES UNLESS (MEMB (FILENAMEFIELD FILE 'EXTENSION) *COMPILED-EXTENSIONS*) DO (PRINTFN FN FILE))))]) - (* ;; "RMK; Fixed to skip compiled files, also to use FUNCTIONS as well as FNS. That might not help, if FUNCTIONS are not included in the filemap.") +(PF* [NLAMBDA FN (* ; "Edited 10-Jun-87 11:09 by jds") (* ;;; "Print the function FN (or LASTWORD), with comments visible to the user.") (RESETVARS (**COMMENT**FLG) (APPLY (FUNCTION PF) FN]) - (* ;; "Print from files known to masterscope database before looking at whereis database. Note, however, that it also prefers the masterscope database to incore files") +(PMORE [LAMBDA NIL (* lmm " 9-AUG-78 17:21") (* lmm "17-MAY-78 15:38") (PRINTFNDEF (CAR LASTFNDEF) T (CADDR LASTFNDEF) -1 (CADDDR LASTFNDEF]) - (* ;; "If FN is NIL, prints the function named by LASTWORD") +(PRINTFN [LAMBDA (FN FROMFILE TOFILE) (* lmm "14-Aug-84 14:16") (PROG ((LOC (FINDFNDEF FN FROMFILE))) (COND ((LISTP LOC) (SETQ LASTFNDEF LOC) (PRINTFNDEF (CAR LOC) TOFILE (CADR LOC) (CADDR LOC) (CADDDR LOC)) (RETURN FN)) ((EQ LOC 'FILE.NOT.FOUND) (printout TOFILE "file " FROMFILE " not found." T)) (T (printout TOFILE FN " not found on " LOC "." T]) - (* ;; "If FN is a list, then extra args are interpreted as:") +(PRINTFNDEF [LAMBDA (SRCFIL DSTFIL START END TYPE) (* bvm%: " 9-Sep-86 15:54") (RESETLST (PROG (TEM) [COND ((SETQ TEM (GETSTREAM DSTFIL 'OUTPUT T)) (SETQ DSTFIL TEM)) (T (RESETSAVE (SETQ DSTFIL (OPENSTREAM DSTFIL 'OUTPUT)) '(PROGN (CLOSEF? OLDVALUE] [COND ((SETQ TEM (GETSTREAM SRCFIL 'INPUT T)) (RESETSAVE NIL (LIST 'SETFILEPTR TEM (GETFILEPTR TEM))) (SETQ SRCFIL TEM)) (T (RESETSAVE (SETQ SRCFIL (OPENSTREAM SRCFIL 'INPUT)) '(PROGN (CLOSEF? OLDVALUE] (PRIN1 "{from " DSTFIL) (PRIN2 (FULLNAME SRCFIL) DSTFIL T) (PRIN1 "} " DSTFIL)) (COND ((OR (NOT (DISPLAYP DSTFIL)) (EQ PFDEFAULT 'COPYBYTES) (EQ TYPE 'MAC)) (COPYBYTES SRCFIL DSTFIL START END)) (T (PFCOPYBYTES SRCFIL DSTFIL START END PFDEFAULT))) (TERPRI DSTFIL))]) - (* ;; " OUTPUT FILE") - - (* ;; "...") - - (RESETLST - (PROG (OUT OTHERARGS IFILES) - (SETQ FN (NLAMBDA.ARGS FN)) (* ; "Grab the args as a list") - [COND - ((LISTP FN) (* ; - "If it's a list, take the first element as the function name.") - (SETQ OTHERARGS (CDR FN)) - (SETQ FN (CAR FN] - (COND - (FN (* ; "FN name specified; use it.") - (SETQ LASTWORD FN)) - (T (* ; "Not specified, use LASTWORD") - (SETQ FN LASTWORD))) - [SETQ IFILES (OR (CAR OTHERARGS) - (APPEND (WHEREIS FN 'FNS T) - (WHEREIS FN 'FUNCTIONS T] - [RESETSAVE (OUTPUT (COND - ((CADR OTHERARGS) (* ; - "An output file was specified; if not open for output, open it.") - (OR (OPENP (CADR OTHERARGS) - 'OUTPUT) - (WINDOWP (CADR OTHERARGS)) - (PROGN [RESETSAVE (SETQ OUT (OPENFILE (CADR OTHERARGS) - 'OUTPUT)) - '(PROGN (CLOSEF? OLDVALUE] - OUT))) - (T (* ; "otherwise, use primary output.") - T] (* ; "skip compiled files") - (FOR FILE INSIDE IFILES UNLESS (MEMB (FILENAMEFIELD FILE 'EXTENSION) - *COMPILED-EXTENSIONS*) - DO (PRINTFN FN FILE))))]) - -(PF* - [NLAMBDA FN (* ; "Edited 10-Jun-87 11:09 by jds") - -(* ;;; "Print the function FN (or LASTWORD), with comments visible to the user.") - - (RESETVARS (**COMMENT**FLG) - (APPLY (FUNCTION PF) - FN]) - -(PMORE - [LAMBDA NIL (* lmm " 9-AUG-78 17:21") - (* lmm "17-MAY-78 15:38") - (PRINTFNDEF (CAR LASTFNDEF) - T - (CADDR LASTFNDEF) - -1 - (CADDDR LASTFNDEF]) - -(PRINTFN - [LAMBDA (FN FROMFILE TOFILE) (* lmm "14-Aug-84 14:16") - (PROG ((LOC (FINDFNDEF FN FROMFILE))) - (COND - ((LISTP LOC) - (SETQ LASTFNDEF LOC) - (PRINTFNDEF (CAR LOC) - TOFILE - (CADR LOC) - (CADDR LOC) - (CADDDR LOC)) - (RETURN FN)) - ((EQ LOC 'FILE.NOT.FOUND) - (printout TOFILE "file " FROMFILE " not found." T)) - (T (printout TOFILE FN " not found on " LOC "." T]) - -(PRINTFNDEF - [LAMBDA (SRCFIL DSTFIL START END TYPE) (* bvm%: " 9-Sep-86 15:54") - (RESETLST (PROG (TEM) - [COND - ((SETQ TEM (GETSTREAM DSTFIL 'OUTPUT T)) - (SETQ DSTFIL TEM)) - (T (RESETSAVE (SETQ DSTFIL (OPENSTREAM DSTFIL 'OUTPUT)) - '(PROGN (CLOSEF? OLDVALUE] - [COND - ((SETQ TEM (GETSTREAM SRCFIL 'INPUT T)) - (RESETSAVE NIL (LIST 'SETFILEPTR TEM (GETFILEPTR TEM))) - (SETQ SRCFIL TEM)) - (T (RESETSAVE (SETQ SRCFIL (OPENSTREAM SRCFIL 'INPUT)) - '(PROGN (CLOSEF? OLDVALUE] - (PRIN1 "{from " DSTFIL) - (PRIN2 (FULLNAME SRCFIL) - DSTFIL T) - (PRIN1 "} -" DSTFIL)) - (COND - ((OR (NOT (DISPLAYP DSTFIL)) - (EQ PFDEFAULT 'COPYBYTES) - (EQ TYPE 'MAC)) - (COPYBYTES SRCFIL DSTFIL START END)) - (T (PFCOPYBYTES SRCFIL DSTFIL START END PFDEFAULT))) - (TERPRI DSTFIL]) - -(FINDFNDEF - [LAMBDA (FN FROMFILE) (* bvm%: "27-Aug-86 16:27") - - (* * "Locates FNS definition of FN on FROMFILE. If found, returns a list (file start end type); if file not found, returns symbol FILE.NOT.FOUND; if file found but not fn, returns full name of file that was found") - - (LET (FULL MAP VALUE) - (COND - ((NOT (SETQ FULL (FINDFILE FROMFILE T))) - 'FILE.NOT.FOUND) - [(COND - ((SETQ MAP (OR (GETFILEMAP FULL) - (LOADFILEMAP FULL))) - - (* First clause is quick check when the file already has a map. - LOADFILEMAP will find file map, rebuild if necessary and rewrite it on file if - updatemapflg is T.) - - (AND (for GROUP in (CDR MAP) thereis (SETQ VALUE (FASSOC FN GROUP))) - (LIST FULL (CADR VALUE) - (CDDR VALUE) - 'MAP] - (T FULL]) +(FINDFNDEF [LAMBDA (FN FROMFILE) (* bvm%: "27-Aug-86 16:27") (* * "Locates FNS definition of FN on FROMFILE. If found, returns a list (file start end type); if file not found, returns symbol FILE.NOT.FOUND; if file found but not fn, returns full name of file that was found") (LET (FULL MAP VALUE) (COND ((NOT (SETQ FULL (FINDFILE FROMFILE T))) 'FILE.NOT.FOUND) [(COND ((SETQ MAP (OR (GETFILEMAP FULL) (LOADFILEMAP FULL))) (* First clause is quick check when the file already has a map.  LOADFILEMAP will find file map, rebuild if necessary and rewrite it on file if  updatemapflg is T.) (AND (for GROUP in (CDR MAP) thereis (SETQ VALUE (FASSOC FN GROUP))) (LIST FULL (CADR VALUE) (CDDR VALUE) 'MAP] (T FULL]) (PFCOPYBYTES - [LAMBDA (SRCFIL DSTFIL START END FLG) (* ; "Edited 29-Mar-96 11:51 by rmk") - (* ; "Edited 24-Mar-93 14:16 by rmk:") + [LAMBDA (SRCFIL DSTFIL START END FLG) (* ; "Edited 27-Jun-2021 23:29 by rmk:") + (* ; "Edited 24-Mar-93 14:16 by rmk:") (* lmm "28-Sep-86 14:38") - (* ;; " copy from SRCFIL to DSTFIL, paying attention to font changes. Other stuff about truncating lines gone away. Interprets all possible EOL conventions as EOL. Has to call \NSIN macro in order to keep track of character count--READDCODE doesn't do that.") + (* ;; " copy from SRCFIL to DSTFIL, paying attention to font changes. Other stuff about truncating lines gone away. Interprets all possible EOL conventions as EOL. Has to call \INCHAR-\INCCODE macros in order to keep track of character count--READDCODE doesn't do that.") + + (* ;; "If END is NIL and START is given, then START is the number of characters to copy from the current file position. Otherwise, copy to the end of the file.") (DECLARE (GLOBALVARS CHANGECHAR COMMENTFLG **COMMENT**FLG)) (RESETLST (PROG ((SSTRM (\INSTREAMARG SRCFIL)) (DSTRM (\OUTSTREAMARG DSTFIL)) FONTARRAY CHARCODE %#CHARS MAXFONT) - (DECLARE (SPECVARS . T)) + (DECLARE (SPECVARS . T)) (* ; + "In particular, #CHARS must be a specvar for \INCCODE") (COND ((IMAGESTREAMP DSTRM) (SETQ FONTARRAY (FONTMAPARRAY)) @@ -181,7 +66,7 @@ Copyright (c) 1986, 1987, 1990, 1999, 2018 by Venue & Xerox Corporation. All ri DSTRM)) (DSPFONT (ELT FONTARRAY 1) DSTRM))) - (SETQ %#CHARS (COND + [SETQ %#CHARS (COND (END (SETFILEPTR SSTRM START) (* ;; "Doesn't call \SETFILEPTR cause START has to be checked") @@ -192,65 +77,36 @@ Copyright (c) 1986, 1987, 1990, 1999, 2018 by Venue & Xerox Corporation. All ri (T END)) START)) (START) - (T (* ; "Stop on end of file") - (RESETSAVE NIL (LIST [FUNCTION (LAMBDA (STREAM FN) - (REPLACE ENDOFSTREAMOP - OF STREAM WITH FN] - SSTRM - (FETCH ENDOFSTREAMOP OF SSTRM))) - (REPLACE ENDOFSTREAMOP OF SSTRM - WITH (FUNCTION NILL)) - MAX.SMALL.INTEGER))) + (T (* ; + "Copy everything from here to the end-of-file") + (SETQ START (GETFILEPTR SSTRM)) + (IDIFFERENCE (GETEOFPTR SSTRM) + (GETFILEPTR SSTRM] (COND - ((AND START (ILEQ %#CHARS 0)) - (RETURN T))) - LP [COND ((ILEQ %#CHARS 0) - (COND - (START (RETURN T)) - (T (* ; - "Just keep the counter going until EOF") - (SETQ %#CHARS MAX.SMALL.INTEGER] - (SETQ CHARCODE (\NSIN SSTRM (UNFOLD (ACCESS-CHARSET SSTRM) - 256) - NIL %#CHARS)) - (SELCHARQ CHARCODE - ((LINEFEED EOL) (* ; - "Output CR, since we don't rely on EOL convention") - (TERPRI DSTRM) - (GO LP)) - (CR - (* ;; "Consume next LF, since we don't rely on EOL convention") - - (CL:WHEN (EQ (CHARCODE LF) - (\PEEKBIN SSTRM T)) - (\BIN SSTRM) - (SETQ %#CHARS (SUB1 %#CHARS))) - (TERPRI DSTRM) - (GO LP)) - (NIL (TERPRI DSTRM) (* ; - "This is the EOF when we are copying the whole file") - (RETURN T)) - (^F (* ; - "Don't do EOL interpretation after ^F") - (SETQ CHARCODE (\NSIN SSTRM (UNFOLD (ACCESS-CHARSET SSTRM) - 256) - NIL %#CHARS)) - (COND - ((AND (IGEQ MAXFONT CHARCODE) - (NEQ CHARCODE 0)) - (DSPFONT (ELT FONTARRAY CHARCODE) - DSTRM) - (GO LP)))) - NIL) - (\OUTCHAR DSTRM CHARCODE) + (RETURN T))) (* ; "Nothing to do") + LP (COND + ((ILEQ %#CHARS 0) + (CL:WHEN (AND (EQ START 0) + (EOFP SSTRM)) (* ; "We copied the whole file") + (TERPRI DSTRM)) + (RETURN T))) + (SETQ CHARCODE (\INCCODE.EOLC SSTRM '%#CHARS ANY.EOLC %#CHARS)) + (IF (EQ CHARCODE (CONSTANT (CHARCODE.DECODE FONTESCAPECHAR))) + THEN + + (* ;; + "No EOL check on font character, otherwise we would be limited to 9 fonts") + + (SETQ CHARCODE (\INCCODE SSTRM '%#CHARS %#CHARS)) + (CL:WHEN (AND (IGEQ MAXFONT CHARCODE) + (NEQ CHARCODE 0)) + (DSPFONT (ELT FONTARRAY CHARCODE) + DSTRM)) + ELSE (\OUTCHAR DSTRM CHARCODE)) (GO LP)))]) -(DISPLAYP - [LAMBDA (STREAM) (* AJB "23-Sep-85 14:53") - (LET ((STRM (\OUTSTREAMARG STREAM T))) - (AND STRM (OR (DISPLAYSTREAMP STRM) - (IMAGESTREAMTYPEP STRM 'TEXT]) +(DISPLAYP [LAMBDA (STREAM) (* AJB "23-Sep-85 14:53") (LET ((STRM (\OUTSTREAMARG STREAM T))) (AND STRM (OR (DISPLAYSTREAMP STRM) (IMAGESTREAMTYPEP STRM 'TEXT]) ) (RPAQ? PFDEFAULT NIL) @@ -305,9 +161,9 @@ Copyright (c) 1986, 1987, 1990, 1999, 2018 by Venue & Xerox Corporation. All ri (ADDTOVAR LAMA ) ) -(PUTPROPS PRINTFN COPYRIGHT ("Venue & Xerox Corporation" 1986 1987 1990 1999 2018)) +(PUTPROPS PRINTFN COPYRIGHT ("Venue & Xerox Corporation" 1986 1987 1990 1999 2018 2021)) (DECLARE%: DONTCOPY - (FILEMAP (NIL (1112 12351 (PF 1122 . 3817) (PF* 3819 . 4117) (PMORE 4119 . 4442) (PRINTFN 4444 . 5039) - (PRINTFNDEF 5041 . 6263) (FINDFNDEF 6265 . 7321) (PFCOPYBYTES 7323 . 12097) (DISPLAYP 12099 . 12349)) + (FILEMAP (NIL (1113 11032 (PF 1123 . 3818) (PF* 3820 . 4114) (PMORE 4116 . 4435) (PRINTFN 4437 . 5028) + (PRINTFNDEF 5030 . 6147) (FINDFNDEF 6149 . 7173) (PFCOPYBYTES 7175 . 10782) (DISPLAYP 10784 . 11030)) ))) STOP diff --git a/sources/PRINTFN.LCOM b/sources/PRINTFN.LCOM index 32a4dc3be..c3ab70755 100644 Binary files a/sources/PRINTFN.LCOM and b/sources/PRINTFN.LCOM differ diff --git a/sources/TTYIN b/sources/TTYIN index 806a2b3d8..3e9f34dc1 100644 --- a/sources/TTYIN +++ b/sources/TTYIN @@ -1,33 +1,20 @@ (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) -(FILECREATED "24-May-91 11:33:53" |{PELE:MV:ENVOS}SOURCES>TTYIN.;6| 330378 - - changes to%: (FNS TTYIN TTYIN.CLEANUP TTYIN1 TTYIN1RESTART TTYIN.FINISH ADDCHAR TTADDTAB - ADJUSTLINE ADJUSTLINE.AND.RESTORE BREAKLINE CHECK.MARGIN CURRENT.WORD - DELETE.TO.END DELETELINE DELETETO DELETETO1 DO.EDIT.COMMAND DO.EDIT.PP - FIND.LINE FIND.NEXT.WORD FORWARD.DELETE.TO GO.TO.FREELINE GO.TO.RELATIVE - INSERTLINE KILLSEGMENT MOVE.TO.LINE MOVE.TO.NEXT.LINE NTH.COLUMN.OF - NTH.RELATIVE.COLUMN.OF OVERFLOW? OVERFLOWLINE? PREVLINE PREVWORD READFROMBUF - RENUMBER.LINES RESTOREBUF RETYPE.BUFFER SCANBACK SCANFORWARD SCRATCHCONS - SEGMENT.LENGTH SEGMENT.BIT.LENGTH SETTAIL? SHOW.MATCHING.PAREN SKIP/ZAP - START.NEW.LINE START.OF.PARAGRAPH? TTDELETECHAR TTDELETELINE TTDELETEWORD - TTECHO.TO.FILE TTLASTLINE TTNEXTLINE TTNLEFT TTNTH TTNTHLINE TTRUBOUT - TYPE.BUFFER U/L-CASE TTRATOM DO.INSERT.LINE TTADJUSTWIDTH TTYINBUFFERSTREAM - TTYINBUFFERBIN TTYINBUFFERPEEK TTYINBUFFERREADP TTYINBUFFEREOFP - TTYINBUFFERBACKPTR DO.MOUSE DO.SHIFTED.SELECTION DELETE.LONG.SEGMENT - DELETE.LONG.SEGMENT1 INVERT.LONG.SEGMENT INVERT.SEGMENT BRACKET.CURRENT.WORD - TTBEFOREPOS TTNEXTPOS TTRACKMOUSE TTYIN.LASTINPUT) - - previous date%: "24-May-91 10:23:44" |{PELE:MV:ENVOS}SOURCES>TTYIN.;5|) +(FILECREATED "13-Jun-2021 10:11:51" {DSK}kaplan>Local>medley3.5>git-medley>sources>TTYIN.;5 329054 + + changes to%: (MACROS AT.START.OF.LINE EMPTY.LINE) + + previous date%: "13-Jun-2021 10:04:21" +{DSK}kaplan>Local>medley3.5>git-medley>sources>TTYIN.;3) (* ; " -Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1991 by Venue & Xerox Corporation. All rights reserved. +Copyright (c) 1982-1988, 1990-1991, 2021 by Venue & Xerox Corporation. ") (PRETTYCOMPRINT TTYINCOMS) (RPAQQ TTYINCOMS - [(COMS (* ; "Main TTYIN editor") + [(COMS (* ; "Main TTYIN editor") (FNS TTYIN TTYIN.SETUP TTYIN.CLEANUP TTYIN1 TTYIN1RESTART TTYIN.FINISH TTYIN.BALANCE ADDCHAR TTMAKECOMPLEXCHAR ADDNAKEDCHAR TTADDTAB ADJUSTLINE ADJUSTLINE.AND.RESTORE AT.END.OF.SCREEN AT.END.OF.TEXT AUTOCR? BACKSKREAD BACKWARD.DELETE.TO BREAKLINE @@ -47,37 +34,37 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1991 by Venue & Xe TTLOADBUF TTNEXTLINE TTNEXTNODE TTNLEFT TTNTH TTNTHLINE TTPRIN1 TTPRINSPACE TTPRIN1COMMENT TTPRIN2 TTPROMPTCHAR TTRUBOUT TTUNREADBUF TTWAITFORINPUT TTYINSTRING TYPE.BUFFER U-CASECODE U/L-CASE)) - (COMS (* ; "Internal reading. These functions all expect caller to have bound *READTABLE* correctly (not bound in TTYIN for who-line transparency)") + (COMS (* ; "Internal reading. These functions all expect caller to have bound *READTABLE* correctly (not bound in TTYIN for who-line transparency)") (FNS TTRATOM TTREADLIST TTSKIPSEPR TTSKREAD TTYIN.READ)) - (COMS (* ; "Escape completion and friends") + (COMS (* ; "Escape completion and friends") (FNS FIND.MATCHING.WORD TTCOMPLETEWORD WORD.MATCHES.BUFFER TTYIN.SHOW.?ALTERNATIVES)) - (COMS (* ; "? and ?= handler") + (COMS (* ; "? and ?= handler") (FNS DO?CMD TTYIN.PRINTARGS TTYIN.READ?=ARGS DO?CMD.ERRORHANDLER)) - (COMS (* ; "Display handling") + (COMS (* ; "Display handling") (FNS BEEP BITBLT.DELETE BITBLT.ERASE BITBLT.INSERT DO.CRLF DO.DELETE.LINES DO.INSERT.LINE DO.LF ERASE.TO.END.OF.LINE ERASE.TO.END.OF.PAGE INSERT.TEXT TTDELSECTION TTADJUSTWIDTH TTINSERTSECTION TTSETCURSOR)) - [COMS (* ; "TTYINBUFFERSTREAM") + [COMS (* ; "TTYINBUFFERSTREAM") (FNS TTYINBUFFERDEVICE TTYINBUFFERSTREAM TTYINBUFFERBIN TTYINBUFFERPEEK TTYINBUFFERREADP TTYINBUFFEREOFP TTYINBUFFERBACKPTR TTYINWORDRDTBL) (DECLARE%: DONTEVAL@LOAD DOCOPY (VARS (TTYINBUFFERDEVICE (TTYINBUFFERDEVICE)) (TTYINWORDRDTBL (TTYINWORDRDTBL] - (COMS (* ; "Mouse handling") + (COMS (* ; "Mouse handling") (FNS DO.MOUSE DO.SHIFTED.SELECTION COPY.SEGMENT DELETE.LONG.SEGMENT DELETE.LONG.SEGMENT1 INVERT.LONG.SEGMENT INVERT.SEGMENT BRACKET.CURRENT.WORD TTBEFOREPOS TTNEXTPOS TTRACKMOUSE)) (COMS - (* ;; "Auxiliary fns. These are outside the TTYIN block, and are provided to aid the outside world in special interfaces to TTYIN") + (* ;; "Auxiliary fns. These are outside the TTYIN block, and are provided to aid the outside world in special interfaces to TTYIN") (FNS SETREADFN TTYINENTRYFN TTYINREADP TTYINREAD TTYINFIX CHARMACRO? TTYINMETA TTYIN.LASTINPUT) (FNS TTYINEDIT SIMPLETEXTEDIT SET.TTYINEDIT.WINDOW TTYIN.PPTOFILE) - (COMS (* ; - "New, correct way of getting scratch file") + (COMS (* ; + "New, correct way of getting scratch file") (FNS MAKE-TTSCRATCHFILE) (RESOURCES TTSCRATCHFILE)) - (COMS (* ; - "Obsolete, but maybe someone calls it") + (COMS (* ; + "Obsolete, but maybe someone calls it") (FNS TTYIN.SCRATCHFILE \TTYIN.RPEOF) (INITVARS (TTYINEDIT.SCRATCH))) (INITVARS (TTYINEDITWINDOW) @@ -85,11 +72,11 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1991 by Venue & Xe (TTYINAUTOCLOSEFLG) (TTYINPRINTFN) (TTYIN?=FN))) - [COMS (* ; "Kludge of the week") + [COMS (* ; "Kludge of the week") (FNS TTYINPROMPTFORWORD) (INITVARS (TTYIN.USE.EXACT.CHARS)) - (DECLARE%: DONTEVAL@LOAD DOCOPY (* ; - "This is so that you can (MOVD 'TTYINPROMPTFORWORD 'PROMPTFORWORD) and not die") + (DECLARE%: DONTEVAL@LOAD DOCOPY (* ; + "This is so that you can (MOVD 'TTYINPROMPTFORWORD 'PROMPTFORWORD) and not die") (P (MOVD? 'PROMPTFORWORD 'NON-TTYIN-PROMPTFORWORD NIL T] (DECLARE%: DOEVAL@COMPILE DONTCOPY (COMS * TTCOMPILETIME)) (INITVARS (DORADO.RESTORE.BUF.CODES '(194)) @@ -387,22 +374,22 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1991 by Venue & Xe (SETQ TTYINBUFFER \TTYINSTATE]) (TTYIN1 - [LAMBDA NIL (* ; "Edited 24-May-91 10:33 by jds") + [LAMBDA NIL (* ; "Edited 13-Jun-2021 09:55 by rmk:") -(* ;;; "The main moby subfn of TTYIN. Is errorset protected in caller") +(* ;;; "The main moby subfn of TTYIN. Is errorset protected in caller") (PROG ((DRIBFL (DRIBBLEFILE)) CHAR MATCHED RESULT STARTOFWORD X TMP WASEDITCHAR SNX) (COND ((SETQ CHAR (fetch (LINEBUFFER PEEKEDCHAR) of \LINEBUF.OFD)) - (* ; "Handle peeked char") + (* ; "Handle peeked char") [COND ((AND (OR (NULL \PROMPT1) (EQ \FIRSTTIME 'NOPROMPT)) (OR T (fetch (LINEBUFFER PEEKEDECHOFLG) of \LINEBUF.OFD)) (>= CHAR (CHARCODE SPACE))) - (* ;; "Want to avoid echoing peeked char twice. Only feasible to do so if we were called with no prompt, implying that there is some hope that the preceding char on the line is the peeked char") + (* ;; "Want to avoid echoing peeked char twice. Only feasible to do so if we were called with no prompt, implying that there is some hope that the preceding char on the line is the peeked char") (SETQ X (FCHARWIDTH CHAR \FONT)) (DSPBACKUP X \DSP) @@ -413,20 +400,20 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1991 by Venue & Xe PROMPT0 (TTYIN1RESTART) (COND - ((NOT \FIRSTTIME) (* ; "Space over to where we started") + ((NOT \FIRSTTIME) (* ; "Space over to where we started") (GO.TO.ADDRESSING \INITPOS 0))) (SETQ RESULT NIL) PROMPT1 (INIT.CURSOR \INITPOS) (COND [(AND (EQ \FIRSTTIME 'NOPROMPT) - \PROMPT1) (* ; - "Prompting has already happened; account for it") + \PROMPT1) (* ; + "Prompting has already happened; account for it") (COND ((< (SETQ X (- \INITPOS (STRINGWIDTH \PROMPT1 \FONT))) \LMARG) - (* ;; "Caller is confused; prompt couldn't have fit. Typically happens when LISPXREAD is called by other than LISPX") + (* ;; "Caller is confused; prompt couldn't have fit. Typically happens when LISPXREAD is called by other than LISPX") (SETQ \PROMPT1)) (T (SETQ \INITPOS X] @@ -441,46 +428,46 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1991 by Venue & Xe \CHARWIDTH) \CURSORCOL)) - (* ;; "Caller specified first tabstop as the position of the first char; we don't treat that as a tabstop, so peel it off") + (* ;; "Caller specified first tabstop as the position of the first char; we don't treat that as a tabstop, so peel it off") (SETQ TABS (CDR TABS] (COND - [UNREADBUF (* ; - "something to preload buffer with") + [UNREADBUF (* ; + "something to preload buffer with") (COND ((FIXP UNREADBUF) - (SETQ CHAR UNREADBUF) (* ; - "interpret number as character code of something to type ahead, usually altmode") + (SETQ CHAR UNREADBUF) (* ; + "interpret number as character code of something to type ahead, usually altmode") (SETQ UNREADBUF NIL) (GO SELECTCHAR)) (T (WITH-RESOURCES (TTSCRATCHFILE) (TTLOADBUF (PROG1 (COND ((EQMEMB 'PRETTY OPTIONS) - (* ;; - "We were told to pretty-print the FIXed form, so have to use a temp file.") + (* ;; + "We were told to pretty-print the FIXed form, so have to use a temp file.") - (* ;; - "Pass TTLOADBUF a list ( (file start . end)).") + (* ;; + "Pass TTLOADBUF a list ( (file start . end)).") (LIST HISTSTR1 (TTYIN.PPTOFILE (COND ((EQ (CAR (SETQ X (LAST UNREADBUF))) HISTSTR0) - (* ; - "knock off the terminating marker") + (* ; + "knock off the terminating marker") (LDIFF UNREADBUF X)) (T UNREADBUF)) 'PRETTY RDTBL TTSCRATCHFILE))) - (T (* ; - "Not pretty printing; just pass TTLOADBUF the form to FIX.") + (T (* ; + "Not pretty printing; just pass TTLOADBUF the form to FIX.") UNREADBUF)) (SETQ UNREADBUF NIL) (SETFILEPTR TTSCRATCHFILE 0))] (\FIRSTTIME - (* ;; "(for FORM in AFTERPROMPTCHARFORMS bind REFRESH when (EVAL FORM) do (SETQ REFRESH T) (* User forms to do after prompt is printed but before we do anything more. If one returns T, means it altered the display) finally (COND (REFRESH (SETQ \FIRSTTIME) (GO PROMPT1))))") + (* ;; "(for FORM in AFTERPROMPTCHARFORMS bind REFRESH when (EVAL FORM) do (SETQ REFRESH T) (* User forms to do after prompt is printed but before we do anything more. If one returns T, means it altered the display) finally (COND (REFRESH (SETQ \FIRSTTIME) (GO PROMPT1))))") )) (SETQ \FIRSTTIME) (COND @@ -498,34 +485,34 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1991 by Venue & Xe (EMPTY.BUFFER)) ((LISTP (CAR X)) (EVAL (CAR X))) - (T (* ; - "Old style macros that worked only at start of buffer") + (T (* ; + "Old style macros that worked only at start of buffer") (SETQ X TMP) (EMPTY.BUFFER))) (OR (NLISTP (SETQ X (CDR X))) (SETQ X (EVAL X] - (* ;; "Simple read macros: if you type the char on a blank line, and the macro returns something, use it as the value of the READ (or whatever)") + (* ;; "Simple read macros: if you type the char on a blank line, and the macro returns something, use it as the value of the READ (or whatever)") (COND - [(FIXP X) (* ; - "Special: means pretend this CHARACTER code was typed") + [(FIXP X) (* ; + "Special: means pretend this CHARACTER code was typed") (SELECTQ X - (0 (* ; "No action") + (0 (* ; "No action") (GO CHAR)) - (-1 (* ; - "Means refresh line, because terminal control was taken away") + (-1 (* ; + "Means refresh line, because terminal control was taken away") (SETQ CHAR NIL) (GO PROMPT1)) (COND ((METACHARP (SETQ CHAR X)) [COND ((EQ (NONMETACHARBITS X) - 0) (* ; "another way to get edit prefix") + 0) (* ; "another way to get edit prefix") (SETQ CHAR (METACHAR (TTBIN T] T] - ((EMPTY.BUFFER) (* ; - "For now I'm not handling funny results in the middle") + ((EMPTY.BUFFER) (* ; + "For now I'm not handling funny results in the middle") (SETQ RESULT (OR (LISTP X) (LIST X))) (GO DOCRLF] @@ -534,62 +521,62 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1991 by Venue & Xe (SETQ WASEDITCHAR NIL)) ([NOT (SETQ CHAR (DO.EDIT.COMMAND (NONMETACHARBITS CHAR] (GO CHAR)) - (T (* ; - "Fall thru if edit char gave us something to chomp on") + (T (* ; + "Fall thru if edit char gave us something to chomp on") (SETQ WASEDITCHAR T))) [COND - ((SELECTC (fetch TERMCLASS of (\SYNCODE \PRIMTERMSA CHAR)) + ((SELECTC (fetch (TERMCODE TERMCLASS) of (\SYNCODE \PRIMTERMSA CHAR)) (CHARDELETE.TC (TTDELETECHAR) T) (LINEDELETE.TC (TTDELETELINE) T) (WORDDELETE.TC (TTDELETEWORD) T) - (RETYPE.TC (* ; "^R retype") + (RETYPE.TC (* ; "^R retype") (SETQ \PFW.FIRSTTIME NIL) [RETYPE.BUFFER (COND ((OR (ON.FIRST.LINE) (NOT (EMPTY.LINE))) \ARROW) - (T (* ; - "If sitting on empty line, refresh the previous line") + (T (* ; + "If sitting on empty line, refresh the previous line") (PREVLINE \ARROW 1] (COND ((EQ CHAR (SETQ CHAR (TTBIN))) - (* ; - "two ^R's means retype whole buffer") + (* ; + "two ^R's means retype whole buffer") (OR DISPLAYTERMFLG (TTCRLF)) - (* ; - "set off full retype by double line") + (* ; + "set off full retype by double line") (RETYPE.BUFFER \FIRSTLINE T)) (T (GO SELECTCHAR))) T) - NIL) (* ; - "Did some routine editing command. This cancels promptforword kill mode") + NIL) (* ; + "Did some routine editing command. This cancels promptforword kill mode") (SETQ \PFW.FIRSTTIME NIL)) ((PROGN (SETQ SNX (\SYNCODE \RDTBLSA CHAR)) - (AND \FILLINGBUFFER (EQ (fetch WAKEUP of SNX) + (AND \FILLINGBUFFER (EQ (fetch (READCODE WAKEUP) of SNX) IMMEDIATE.RMW) - (AT.END.OF.TEXT \CURSOR))) (* ; - "Immediate read macro--return now") + (AT.END.OF.TEXT \CURSOR))) (* ; + "Immediate read macro--return now") (GO DOCRLF)) (T (if \PFW.FIRSTTIME - then (* ; "The only non-meta characters that accept the input are cr, space and the hard-wired editing commands (which we have mostly covered already)") + then (* ; "The only non-meta characters that accept the input are cr, space and the hard-wired editing commands (which we have mostly covered already)") (SELCHARQ CHAR ((CR SPACE ^X ^A BS RUBOUT ^Q ^U ^W)) - (PROGN (* ; - "Kill the entire input (could be more than one line if long input or long prompt)") + (PROGN (* ; + "Kill the entire input (could be more than one line if long input or long prompt)") (MOVE.TO.LINE \FIRSTLINE) (DELETE.TO.END))) (SETQ \PFW.FIRSTTIME NIL)) (COND - ((AND (fetch STOPATOM of SNX) - (NOT \DONTCOMPLETE)) (* ; "End of atom, try completion") + ((AND (fetch (READCODE STOPATOM) of SNX) + (NOT \DONTCOMPLETE)) (* ; "End of atom, try completion") (TTCOMPLETEWORD T))) (SELECTC SNX ((LIST RIGHTPAREN.RC RIGHTBRACKET.RC) - (* ;; "Right paren/bracket. See if it terminates read. Note that \READING is implicitly true here, since there are no parens in the word rdtbl") + (* ;; "Right paren/bracket. See if it terminates read. Note that \READING is implicitly true here, since there are no parens in the word rdtbl") (SETQ STARTOFWORD \CURSOR) (ADDCHAR CHAR) @@ -597,36 +584,36 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1991 by Venue & Xe ((ENDREAD?) (GO DOCRLF)) ((AND SHOWPARENFLG T (NOT (TYPEAHEAD?))) - (* ; - "prime conditions for hack to show which paren it matched") + (* ; + "prime conditions for hack to show which paren it matched") (SHOW.MATCHING.PAREN STARTOFWORD)))) (SELECTC CHAR ((CHARCODE ESCAPE) [COND - (SPLST (* ; - "try to complete from spelling list") + (SPLST (* ; + "try to complete from spelling list") (OR (TTCOMPLETEWORD) (BEEP))) [(AND TTYINCOMPLETEFLG \LISPXREADING) - (* ;; "always try to complete") + (* ;; "always try to complete") (COND ((SETQ STARTOFWORD (CURRENT.WORD)) (SETQ MATCHED (FIND.MATCHING.WORD USERWORDS STARTOFWORD))) ((NEQ TTYINCOMPLETEFLG 0) - (* ;; "naked escape stands for LASTWORD. ") + (* ;; "naked escape stands for LASTWORD. ") (SETQ MATCHED (LIST LASTWORD)) LASTWORD)) - (SETQ CHAR DIDESCAPECODE) (* ; "Kludge used by ? routine below") + (SETQ CHAR DIDESCAPECODE) (* ; "Kludge used by ? routine below") (COND (MATCHED (OR (TTCOMPLETEWORD NIL NIL MATCHED (OR STARTOFWORD \CURSOR)) (BEEP))) (T (BEEP] - (T (* ; "no special significance") + (T (* ; "no special significance") (ADDNAKEDCHAR (CHARCODE ESCAPE]) ((CHARCODE (%" *)) (ADDCHAR CHAR) @@ -637,23 +624,23 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1991 by Venue & Xe ((CHARCODE SPACE) (if (AND (EQ \PROMPTFORWORD 'PROMPTFORWORD-SPACE) (AT.END.OF.TEXT \CURSOR)) - then (* ; "Space completes") + then (* ; "Space completes") (GO DOCRLF)) (OR (AUTOCR?) (ADDCHAR CHAR))) - ((CHARCODE ?) (* ; "supply alternative completions") + ((CHARCODE ?) (* ; "supply alternative completions") (TTYIN.SHOW.?ALTERNATIVES)) - ((CHARCODE CR) (* ; "terminate line") + ((CHARCODE CR) (* ; "terminate line") [COND - ((NOT WASEDITCHAR) (* ; "i.e. not edit-CR") - (* ; "Check for ? and ?= macros") + ((NOT WASEDITCHAR) (* ; "i.e. not edit-CR") + (* ; "Check for ? and ?= macros") (PROG ((START (fetch (LINE START) of \ARROW)) TAIL) (COND ((EQ \CURSOR START) (RETURN))) (SETQ TAIL (NLEFT START 1 \CURSOR)) - (* ; "Look at last char on line") + (* ; "Look at last char on line") (SELCHARQ (CAR TAIL) (? (COND ((AND (DEFINEDP 'XHELPSYS) @@ -676,12 +663,12 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1991 by Venue & Xe ((NOT (AT.END.OF.TEXT \CURSOR)) (COND ((OR \REPEAT \READING) - (* ; - "Insert a and continue reading") + (* ; + "Insert a and continue reading") (BREAKLINE EOLCHARCODE) (GO CHAR)) - (T (* ; - " typed here would terminate, so unread what's left") + (T (* ; + " typed here would terminate, so unread what's left") (TTUNREADBUF] (COND [(NOT (AT.END.OF.BUF)) @@ -691,15 +678,15 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1991 by Venue & Xe ((AND \READING (NOT \PROMPT2) (AT.END.OF.TEXT (fetch (LINE END) of \ARROW))) - (* ;; "Really the same condition as previous clause: there are lines after this one, but they're blank, so it looks like we're on the last line") + (* ;; "Really the same condition as previous clause: there are lines after this one, but they're blank, so it looks like we're on the last line") (MOVE.FORWARD.TO (fetch (LINE END) of \ARROW)) - (* ; - "have to make the extra stuff go away so the finishing routines are happy") + (* ; + "have to make the extra stuff go away so the finishing routines are happy") (DELETE.TO.END)) (T (DO.EDIT.COMMAND (CHARCODE CR)) - (* ; - "CR on other than last line just means go down one") + (* ; + "CR on other than last line just means go down one") (GO CHAR] ((OR (NOT \DONTCOMPLETE) (EQ \DONTCOMPLETE 'CRCOMPLETE)) @@ -714,49 +701,49 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1991 by Venue & Xe (FIND.NON.SPACE \BUFFER) ) \ENDBUFFER] - (T T)) (* ; - "Terminating conditions: no REPEAT, or first line is a comment or has a single command on it") + (T T)) (* ; + "Terminating conditions: no REPEAT, or first line is a comment or has a single command on it") (SETQ CTRLVFLG (SETQ RESULT)) - (SETQ CHAR (CHARCODE EOL)) (* ; - "Lisp likes to treat cr as (choke) EOL") + (SETQ CHAR (CHARCODE EOL)) (* ; + "Lisp likes to treat cr as (choke) EOL") (GO DOCRLF)) (T (START.NEW.LINE EOLCHARCODE)))) - ((CHARCODE ^X) (* ; "Maybe exit") + ((CHARCODE ^X) (* ; "Maybe exit") (COND ((COND - (\READING (* ; - "return if parens balance. If already at end, add enough parens to balance") + (\READING (* ; + "return if parens balance. If already at end, add enough parens to balance") (TTYIN.BALANCE T (AT.END.OF.TEXT \CURSOR))) - (T (* ; - "Taking string input, etc--finish now") + (T (* ; + "Taking string input, etc--finish now") (MOVE.TO.WHEREVER \ENDBUFFER) T)) (SETQ CHAR (CHARCODE EOL)) (GO DOCRLF)))) ((CHARCODE ^V) (COND - ((NEQ \REPEAT 'TEXT) (* ; "Means enter control char") + ((NEQ \REPEAT 'TEXT) (* ; "Means enter control char") (SETQ CHAR (TTBIN)) (ADDNAKEDCHAR (if (EQ CHAR (CHARCODE ?)) then - (* ; - "This is the only way to get a rubout") + (* ; + "This is the only way to get a rubout") (SETQ CHAR (CHARCODE RUBOUT)) elseif (>= CHAR (CHARCODE @)) then - (* ; - "Change alphabetics to corresponding control char") + (* ; + "Change alphabetics to corresponding control char") (SETQ CHAR (LOGAND CHAR 31)) else - (* ; "take exact char") + (* ; "take exact char") CHAR))) - ((AT.END.OF.BUF) (* ; - "terminate multiline input and set special flag") + ((AT.END.OF.BUF) (* ; + "terminate multiline input and set special flag") (SETQ CTRLVFLG T) (TTBOUT ^ V) (GO DOCRLF)) (T (BEEP)))) - ((CHARCODE ^Z) (* ; "^Z terminates multiline input") + ((CHARCODE ^Z) (* ; "^Z terminates multiline input") (COND ((AND \REPEAT (AT.END.OF.BUF)) (TTBOUT ^ Z) @@ -764,10 +751,10 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1991 by Venue & Xe (GO DOCRLF)) (\READING (ADDNAKEDCHAR CHAR)) (T (BEEP)))) - ((CHARCODE ^Y) (* ; "^Y invokes user exec") + ((CHARCODE ^Y) (* ; "^Y invokes user exec") (COND ((AND \READING (NOT WASEDITCHAR)) - (* ; "let ^Y read macro work instead") + (* ; "let ^Y read macro work instead") (ADDNAKEDCHAR CHAR)) ((GUESTUSER?) (BEEP)) @@ -775,7 +762,7 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1991 by Venue & Xe (SAVE.CURSOR) (GO.TO.FREELINE) (COND - (DRIBFL (* ; "Make typescript understandable") + (DRIBFL (* ; "Make typescript understandable") (AND \PROMPT1 (PRIN1 \PROMPT1 DRIBFL)) (PRINT '^Y DRIBFL))) (PRIN1 "lisp: @@ -786,12 +773,12 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1991 by Venue & Xe (PROG ((\INSIDE.TTYIN)) (USEREXEC '__)) (GO RETYPEBUFFER)))) - (0 (* ; "ignore NULL")) + (0 (* ; "ignore NULL")) ((CHARCODE (^A BS RUBOUT)) (TTDELETECHAR)) - ((CHARCODE (^Q ^U)) (* ; "^Q delete line; ^U on tops20") + ((CHARCODE (^Q ^U)) (* ; "^Q delete line; ^U on tops20") (TTDELETELINE)) - ((CHARCODE ^W) (* ; "^W delete last word") + ((CHARCODE ^W) (* ; "^W delete last word") (TTDELETEWORD)) (COND ([MEMB CHAR (OR \RESTOREBUFCODES (SETQ \RESTOREBUFCODES @@ -800,10 +787,10 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1991 by Venue & Xe DORADO.RESTORE.BUF.CODES) TTYIN.RESTORE.BUF.CODES] - (* ;; "One of the characters we interpret as %"restore last buffer%". Recomputed after exit in case we change machine. The dorado code is a perfectly good charset 0 code, so don't usually want to usurp it.") + (* ;; "One of the characters we interpret as %"restore last buffer%". Recomputed after exit in case we change machine. The dorado code is a perfectly good charset 0 code, so don't usually want to usurp it.") (RESTOREBUF)) - [(> CHAR 32) (* ; "not a control char") + [(> CHAR 32) (* ; "not a control char") (ADDCHAR (COND (\RAISEINPUT (U-CASECODE CHAR)) (T CHAR] @@ -815,11 +802,11 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1991 by Venue & Xe DOCRLF - (* ;; "Come here when it is time to terminate line") + (* ;; "Come here when it is time to terminate line") (COND ((EQ (SETQ RESULT (TTYIN.FINISH CHAR DRIBFL RESULT)) - 'ABORT) (* ; "Aborted, try again") + 'ABORT) (* ; "Aborted, try again") (SETQ CHAR NIL) (GO PROMPT0)) (T (RETURN RESULT]) @@ -1119,14 +1106,14 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1991 by Venue & Xe 7) to 7 collect (CHARCODE SPACE]) (ADJUSTLINE - [LAMBDA (JUSTIFYING LINE) (* ; "Edited 24-May-91 10:33 by jds") + [LAMBDA (JUSTIFYING LINE) (* ; "Edited 13-Jun-2021 10:01 by rmk:") - (* ;; "Handles patching up lines that are too long or short. Assures that the current line, ARROW, is correct with regard to overflows. If JUSTIFYING is true, it is a number specifying how many lines to 'justify' , by which we mean moving text around so that each line has as many words as possible for the linelength, but does not overflow. We don't do anything very fancy with that, like take care of deleting extra spaces.") + (* ;; "Handles patching up lines that are too long or short. Assures that the current line, ARROW, is correct with regard to overflows. If JUSTIFYING is true, it is a number specifying how many lines to 'justify' , by which we mean moving text around so that each line has as many words as possible for the linelength, but does not overflow. We don't do anything very fancy with that, like take care of deleting extra spaces.") (PROG ((IDEALLENGTH (- [COND ((> TTYJUSTLENGTH 0) (IMIN \RMARG (TIMES TTYJUSTLENGTH \CHARWIDTH))) - (T (* ; "Relative to right margin") + (T (* ; "Relative to right margin") (IMAX (- \RMARG (TIMES (- TTYJUSTLENGTH) \CHARWIDTH)) (+ (LRSH (- \RMARG \LMARG) @@ -1144,7 +1131,7 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1991 by Venue & Xe (COND ((< %#BITS 0) - (* ;; "Too much on line; need to break it somewhere, preferably at a space if permissible. If justifying, try to break at the appropriate length") + (* ;; "Too much on line; need to break it somewhere, preferably at a space if permissible. If justifying, try to break at the appropriate length") (COND ([OR (AND JUSTIFYING (< (+ (fetch (LINE FIRSTCOL) of LINE) @@ -1163,9 +1150,9 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1991 by Venue & Xe (NEQ (SETQ NEWENDLINE (NTH.RELATIVE.COLUMN.OF NEXTLINE %#BITS)) (fetch (LINE START) of NEXTLINE))) - (* ;; "Line is too short, but is an overflow line, so text MUST be moved to fill the gap; alternatively, if we are justifying, we could break the line sooner") + (* ;; "Line is too short, but is an overflow line, so text MUST be moved to fill the gap; alternatively, if we are justifying, we could break the line sooner") - (* ;; "NEWENDLINE = where the line should end, based on linelength") + (* ;; "NEWENDLINE = where the line should end, based on linelength") (COND ([OR (EQ (fetch (LINE END) of LINE) @@ -1185,7 +1172,7 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1991 by Venue & Xe [(OR OVFL (AND (NEQ JUSTIFYING T) (> (- (fetch (LINE LASTCOL) of LINE) (fetch (LINE FIRSTCOL) of LINE)) - IDEALLENGTH))) (* ; "line is longer than we'd like") + IDEALLENGTH))) (* ; "line is longer than we'd like") (COND ((SETQ BREAK (FIND.LINE.BREAK START (NTH.RELATIVE.COLUMN.OF LINE IDEALLENGTH ) @@ -1198,9 +1185,9 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1991 by Venue & Xe (EQ (CAR (fetch (LINE END) of LINE)) (CHARCODE SPACE] - (* ;; "Don't move up text from next line if it is blank or starts with tab -- treat those as paragraph breaks") + (* ;; "Don't move up text from next line if it is blank or starts with tab -- treat those as paragraph breaks") - (* ;; "Note that we are guaranteed at this point that LINE is not an overflow line, so (fetch END of LINE) points at a space or cr") + (* ;; "Note that we are guaranteed at this point that LINE is not an overflow line, so (fetch END of LINE) points at a space or cr") (COND ((OR (EQ [SETQ BREAK (NTH.RELATIVE.COLUMN.OF @@ -1212,21 +1199,21 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1991 by Venue & Xe (fetch (LINE END) of NEXTLINE)) (SETQ BREAK (FIND.LINE.BREAK (fetch (LINE START) of NEXTLINE) BREAK T))) - (SETQ NEWENDLINE BREAK) (* ; - "At least one more word from next line will fit up here") + (SETQ NEWENDLINE BREAK) (* ; + "At least one more word from next line will fit up here") (GO DOJOIN)) - (T (* ; - "No text movement, but if line ended in a real , make it a space") + (T (* ; + "No text movement, but if line ended in a real , make it a space") (FRPLACA (fetch (LINE END) of LINE) (CHARCODE SPACE] - ((EQ JUSTIFYING T) (* ; "If this line is fine, quit") + ((EQ JUSTIFYING T) (* ; "If this line is fine, quit") )) (SETQ LINE NEXTLINE) (GO BOTTOM) DOJOIN - (* ;; "Move text from next line up to this one. NEWENDLINE is where line should end when done. BREAK=NEWENDLINE if this new end line is a pseudo-cr break") + (* ;; "Move text from next line up to this one. NEWENDLINE is where line should end when done. BREAK=NEWENDLINE if this new end line is a pseudo-cr break") (COND ((EQ (SETQ OLDENDLINE (fetch (LINE END) of LINE)) @@ -1235,25 +1222,25 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1991 by Venue & Xe (T (GO.TO.RELATIVE (fetch (LINE LASTCOL) of LINE) ROW) (SETQ %#BITS (SEGMENT.BIT.LENGTH OLDENDLINE NEWENDLINE)) - (* ; - "# chars to delete from next line") + (* ; + "# chars to delete from next line") [COND - ((NOT OVFL) (* ; - "Joining toa non-overflow line: turn its cr into a space") + ((NOT OVFL) (* ; + "Joining toa non-overflow line: turn its cr into a space") (FRPLACA OLDENDLINE (CHARCODE SPACE)) (while (AND (NEQ (CDR OLDENDLINE) NEWENDLINE) (EQ (CADR OLDENDLINE) (CHARCODE SPACE))) do - (* ; - "strip leading spaces from next line") + (* ; + "strip leading spaces from next line") (KILLSEGMENT OLDENDLINE (CDR OLDENDLINE))) (COND ((EQ (CAR (NLEFT (fetch (LINE START) of LINE) 1 OLDENDLINE)) - (CHARCODE %.)) (* ; - "LINE ends in period, so space twice") + (CHARCODE %.)) (* ; + "LINE ends in period, so space twice") (FRPLACA (INSERT.NODE OLDENDLINE) (CHARCODE SPACE] (TYPE.BUFFER OLDENDLINE NEWENDLINE) @@ -1263,21 +1250,21 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1991 by Venue & Xe (replace (LINE START) of NEXTLINE with (COND (BREAK (FRPLACA BREAK (CHARCODE SPACE)) - (* ; - "In case BREAK was at the CR turn it into space") + (* ; + "In case BREAK was at the CR turn it into space") (COND (OVFL (add %#BITS (TTBITWIDTH (CHARCODE SPACE))) - (* ; "will delete space also") + (* ; "will delete space also") )) (CDR NEWENDLINE)) (T NEWENDLINE))) (COND ((EQ (fetch (LINE END) of NEXTLINE) NEWENDLINE) - (DELETELINE NEXTLINE T) (* ; "Nothing left here, so kill it") + (DELETELINE NEXTLINE T) (* ; "Nothing left here, so kill it") [COND - (JUSTIFYING (* ; - "maybe we can move from next line, too") + (JUSTIFYING (* ; + "maybe we can move from next line, too") (COND ((AND (NEQ JUSTIFYING T) (NEQ (SUB1VAR JUSTIFYING) @@ -1294,7 +1281,7 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1991 by Venue & Xe DOBREAK - (* ;; "Break line at BREAK, moving excess down to next line or a new line. USECR is true if break is to act like a cr; otherwise we are breaking a too-long line at the right margin, so there is no end of line place holder") + (* ;; "Break line at BREAK, moving excess down to next line or a new line. USECR is true if break is to act like a cr; otherwise we are breaking a too-long line at the right margin, so there is no end of line place holder") [replace (LINE LASTCOL) of LINE with (SETQ LASTCOL (+ (SEGMENT.BIT.LENGTH @@ -1302,45 +1289,45 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1991 by Venue & Xe BREAK) (fetch (LINE FIRSTCOL) of LINE] - (* ; "Column where break will occur") + (* ; "Column where break will occur") [SETQ %#BITS (SEGMENT.BIT.LENGTH BREAK (SETQ OLDENDLINE (fetch (LINE END) of LINE] - (* ; "length of segment being moved") + (* ; "length of segment being moved") (COND ((NEQ LASTCOL \RMARG) - (GO.TO.RELATIVE LASTCOL ROW) (* ; - "Go wipe out what was there. Don't need to do this if the break is right at the margin") + (GO.TO.RELATIVE LASTCOL ROW) (* ; + "Go wipe out what was there. Don't need to do this if the break is right at the margin") (ERASE.TO.END.OF.LINE))) - (replace END of LINE with BREAK) + (replace (LINE END) of LINE with BREAK) [COND - (USECR (* ; - "we have counted one char too many above...") + (USECR (* ; + "we have counted one char too many above...") [SETQ %#BITS (- %#BITS (TTBITWIDTH (CHARCODE SPACE] (SETQ BREAK (CDR BREAK] (COND [[AND NEXTLINE (OR OVFL (AND (OR (SMALLP JUSTIFYING) (AND (EQ (CAR OLDENDLINE) (CHARCODE SPACE)) - (< (+ (fetch LASTCOL of NEXTLINE) + (< (+ (fetch (LINE LASTCOL) of NEXTLINE) %#BITS) \RMARG))) (NOT (START.OF.PARAGRAPH? NEXTLINE] - (* ;; "Insert the text on the next line, rather than starting new line, if justifying, overflow (forced), or the text will fit, i.e. not cause anything to be bumped off the next line") + (* ;; "Insert the text on the next line, rather than starting new line, if justifying, overflow (forced), or the text will fit, i.e. not cause anything to be bumped off the next line") (GO.TO.RELATIVE 'LINE (SETQ LINE NEXTLINE)) (COND ((NOT OVFL) - (* ;; "Turn the terminating into ordinary space; this space also needs to be inserted and counted, of course") + (* ;; "Turn the terminating into ordinary space; this space also needs to be inserted and counted, of course") (add %#BITS (TTBITWIDTH (CHARCODE SPACE))) (SETQ OLDENDLINE (CDR (FRPLACA OLDENDLINE (CHARCODE SPACE] (T (SETQ LINE (INSERTLINE LINE)) - (replace END of LINE with OLDENDLINE))) - (replace START of LINE with BREAK) - (INSERT.TEXT BREAK OLDENDLINE (fetch END of LINE)) - (add (fetch LASTCOL of LINE) + (replace (LINE END) of LINE with OLDENDLINE))) + (replace (LINE START) of LINE with BREAK) + (INSERT.TEXT BREAK OLDENDLINE (fetch (LINE END) of LINE)) + (add (fetch (LINE LASTCOL) of LINE) %#BITS) BOTTOM (COND @@ -5819,7 +5806,7 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1991 by Venue & Xe (PUTPROPS AT.START.OF.BUF MACRO (NIL (EQ \CURSOR \BUFFER))) -(PUTPROPS AT.START.OF.LINE MACRO (NIL (EQ (fetch START of \ARROW) +(PUTPROPS AT.START.OF.LINE MACRO (NIL (EQ (fetch (LINE START) of \ARROW) \CURSOR))) (PUTPROPS BEFOREBUF MACRO ((THIS THAT END) @@ -5835,8 +5822,8 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1991 by Venue & Xe (PUTPROPS EMPTY.LINE MACRO [X (SUBST (OR (CAR X) '\ARROW) '\ARROW - '(EQ (fetch START of \ARROW) - (fetch END of \ARROW]) + '(EQ (fetch (LINE START) of \ARROW) + (fetch (LINE END) of \ARROW]) (PUTPROPS EQPOS MACRO [(X Y) (AND (EQ (fetch COLPOS of X) @@ -5848,10 +5835,10 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1991 by Venue & Xe (NOT (EQPOS X Y)))) (PUTPROPS INPART MACRO (OPENLAMBDA (X) - (COND - ((LISTP X) - (CAR X)) - (T X)))) + (COND + ((LISTP X) + (CAR X)) + (T X)))) (PUTPROPS ON.FIRST.LINE MACRO (NIL (EQ \FIRSTLINE \ARROW))) @@ -5892,16 +5879,16 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1991 by Venue & Xe (PUTPROPS TTNEXTCHAR MACRO (= . CDR)) (PUTPROPS BOUTCCODE MACRO (OPENLAMBDA (STREAM CHAR) - (PRINTCCODE CHAR STREAM))) + (PRINTCCODE CHAR STREAM))) (PUTPROPS PEEKBINCCODE MACRO (= . PEEKCCODE)) (PUTPROPS BINCCODE MACRO (= . READCCODE)) (PUTPROPS WORDSEPRP DMACRO [OPENLAMBDA (X) - (OR (EQ (\SYNCODE \PRIMTERMSA X) - WORDSEPR.TC) - (fetch STOPATOM of (\SYNCODE \RDTBLSA X]) + (OR (EQ (\SYNCODE \PRIMTERMSA X) + WORDSEPR.TC) + (fetch STOPATOM of (\SYNCODE \RDTBLSA X]) (PUTPROPS FCHARWIDTH MACRO (= . CHARWIDTH)) @@ -6101,64 +6088,65 @@ DONTEVAL@LOAD EVAL@COMPILE (ADDTOVAR LAMA ) ) -(PUTPROPS TTYIN COPYRIGHT ("Venue & Xerox Corporation" 1982 1983 1984 1985 1986 1987 1988 1990 1991)) +(PUTPROPS TTYIN COPYRIGHT ("Venue & Xerox Corporation" 1982 1983 1984 1985 1986 1987 1988 1990 1991 +2021)) (DECLARE%: DONTCOPY - (FILEMAP (NIL (9111 208710 (TTYIN 9121 . 22354) (TTYIN.SETUP 22356 . 25432) (TTYIN.CLEANUP 25434 . -26262) (TTYIN1 26264 . 52747) (TTYIN1RESTART 52749 . 54013) (TTYIN.FINISH 54015 . 63432) ( -TTYIN.BALANCE 63434 . 64560) (ADDCHAR 64562 . 66748) (TTMAKECOMPLEXCHAR 66750 . 67224) (ADDNAKEDCHAR -67226 . 68736) (TTADDTAB 68738 . 69673) (ADJUSTLINE 69675 . 83542) (ADJUSTLINE.AND.RESTORE 83544 . -83982) (AT.END.OF.SCREEN 83984 . 84272) (AT.END.OF.TEXT 84274 . 84729) (AUTOCR? 84731 . 85205) ( -BACKSKREAD 85207 . 89792) (BACKWARD.DELETE.TO 89794 . 89976) (BREAKLINE 89978 . 92245) (BUFTAILP 92247 - . 92565) (CHECK.MARGIN 92567 . 93190) (CLEAR.LINE? 93192 . 93485) (CURRENT.WORD 93487 . 95887) ( -DELETE.TO.END 95889 . 96608) (DELETELINE 96610 . 99567) (DELETETO 99569 . 101391) (DELETETO1 101393 . -102736) (DO.EDIT.COMMAND 102738 . 120057) (DO.EDIT.PP 120059 . 122721) (TTDOTABS 122723 . 124093) ( -EDITCOLUMN 124095 . 124551) (EDITNUMBERP 124553 . 124784) (END.DELETE.MODE 124786 . 125303) (ENDREAD? -125305 . 127740) (FIND.LINE 127742 . 129278) (FIND.LINE.BREAK 129280 . 129950) (FIND.MATCHING.QUOTE -129952 . 130797) (FIND.NEXT.WORD 130799 . 132178) (FIND.NON.SPACE 132180 . 132453) (FIND.START.OF.WORD - 132455 . 132818) (FORWARD.DELETE.TO 132820 . 135042) (GO.TO.ADDRESSING 135044 . 136000) ( -GO.TO.FREELINE 136002 . 136583) (GO.TO.RELATIVE 136585 . 137365) (INIT.CURSOR 137367 . 138264) ( -INSERT.NODE 138266 . 138788) (INSERTLINE 138790 . 140294) (KILL.LINES 140296 . 140834) (KILLSEGMENT -140836 . 141959) (L-CASECODE 141961 . 142122) (MOVE.BACK.TO 142124 . 142353) (MOVE.FORWARD.TO 142355 - . 142776) (MOVE.TO.LINE 142778 . 143693) (MOVE.TO.NEXT.LINE 143695 . 143965) (MOVE.TO.START.OF.WORD -143967 . 144731) (MOVE.TO.WHEREVER 144733 . 144956) (NTH.COLUMN.OF 144958 . 145289) ( -NTH.RELATIVE.COLUMN.OF 145291 . 146591) (OVERFLOW? 146593 . 147541) (OVERFLOWLINE? 147543 . 147869) ( -PREVLINE 147871 . 149051) (PREVWORD 149053 . 151194) (PROPERTAILP 151196 . 151403) (READFROMBUF 151405 - . 153994) (RENUMBER.LINES 153996 . 154389) (RESTORE.CURSOR 154391 . 154545) (RESTOREBUF 154547 . -156731) (RETYPE.BUFFER 156733 . 158996) (SAVE.CURSOR 158998 . 159170) (SCANBACK 159172 . 160530) ( -SCANFORWARD 160532 . 161400) (SCRATCHCONS 161402 . 162004) (SEGMENT.LENGTH 162006 . 162542) ( -SEGMENT.BIT.LENGTH 162544 . 163151) (SETLASTC 163153 . 163450) (SETTAIL? 163452 . 164268) ( -SHOW.MATCHING.PAREN 164270 . 166770) (SKIP/ZAP 166772 . 169251) (START.NEW.LINE 169253 . 169585) ( -START.OF.PARAGRAPH? 169587 . 169968) (TTADJUSTWORD 169970 . 171144) (TTBIN 171146 . 172352) ( -TTBITWIDTH 172354 . 172503) (TTCRLF 172505 . 172712) (TTCRLF.ACCOUNT 172714 . 173354) (TTDELETECHAR -173356 . 174500) (TTDELETELINE 174502 . 176450) (TTDELETEWORD 176452 . 177120) (TTECHO.TO.FILE 177122 - . 180670) (TTGIVEHELP 180672 . 181937) (TTGIVEHELP1 181939 . 182521) (TTGIVEHELP2 182523 . 183218) ( -TTLASTLINE 183220 . 183588) (TTLOADBUF 183590 . 187104) (TTNEXTLINE 187106 . 187426) (TTNEXTNODE -187428 . 187667) (TTNLEFT 187669 . 188896) (TTNTH 188898 . 189357) (TTNTHLINE 189359 . 189891) ( -TTPRIN1 189893 . 193706) (TTPRINSPACE 193708 . 194101) (TTPRIN1COMMENT 194103 . 194427) (TTPRIN2 -194429 . 196748) (TTPROMPTCHAR 196750 . 197646) (TTRUBOUT 197648 . 198611) (TTUNREADBUF 198613 . -199022) (TTWAITFORINPUT 199024 . 203232) (TTYINSTRING 203234 . 204193) (TYPE.BUFFER 204195 . 205947) ( -U-CASECODE 205949 . 206108) (U/L-CASE 206110 . 208708)) (208865 218578 (TTRATOM 208875 . 209319) ( -TTREADLIST 209321 . 209688) (TTSKIPSEPR 209690 . 210064) (TTSKREAD 210066 . 214706) (TTYIN.READ 214708 - . 218576)) (218625 238669 (FIND.MATCHING.WORD 218635 . 219163) (TTCOMPLETEWORD 219165 . 233593) ( -WORD.MATCHES.BUFFER 233595 . 235155) (TTYIN.SHOW.?ALTERNATIVES 235157 . 238667)) (238703 257013 ( -DO?CMD 238713 . 244615) (TTYIN.PRINTARGS 244617 . 255475) (TTYIN.READ?=ARGS 255477 . 256258) ( -DO?CMD.ERRORHANDLER 256260 . 257011)) (257047 265120 (BEEP 257057 . 257232) (BITBLT.DELETE 257234 . -257881) (BITBLT.ERASE 257883 . 258068) (BITBLT.INSERT 258070 . 258381) (DO.CRLF 258383 . 258702) ( -DO.DELETE.LINES 258704 . 259748) (DO.INSERT.LINE 259750 . 261684) (DO.LF 261686 . 261852) ( -ERASE.TO.END.OF.LINE 261854 . 262179) (ERASE.TO.END.OF.PAGE 262181 . 262786) (INSERT.TEXT 262788 . -263292) (TTDELSECTION 263294 . 263592) (TTADJUSTWIDTH 263594 . 264458) (TTINSERTSECTION 264460 . -264799) (TTSETCURSOR 264801 . 265118)) (265155 270132 (TTYINBUFFERDEVICE 265165 . 266481) ( -TTYINBUFFERSTREAM 266483 . 267245) (TTYINBUFFERBIN 267247 . 267783) (TTYINBUFFERPEEK 267785 . 268263) -(TTYINBUFFERREADP 268265 . 268520) (TTYINBUFFEREOFP 268522 . 268774) (TTYINBUFFERBACKPTR 268776 . -269328) (TTYINWORDRDTBL 269330 . 270130)) (270293 295850 (DO.MOUSE 270303 . 273060) ( -DO.SHIFTED.SELECTION 273062 . 283501) (COPY.SEGMENT 283503 . 283707) (DELETE.LONG.SEGMENT 283709 . -284068) (DELETE.LONG.SEGMENT1 284070 . 286546) (INVERT.LONG.SEGMENT 286548 . 287577) (INVERT.SEGMENT -287579 . 289094) (BRACKET.CURRENT.WORD 289096 . 290630) (TTBEFOREPOS 290632 . 291362) (TTNEXTPOS -291364 . 292072) (TTRACKMOUSE 292074 . 295848)) (295994 301250 (SETREADFN 296004 . 296482) ( -TTYINENTRYFN 296484 . 296909) (TTYINREADP 296911 . 297376) (TTYINREAD 297378 . 298772) (TTYINFIX -298774 . 299973) (CHARMACRO? 299975 . 300542) (TTYINMETA 300544 . 300672) (TTYIN.LASTINPUT 300674 . -301248)) (301251 309520 (TTYINEDIT 301261 . 303378) (SIMPLETEXTEDIT 303380 . 306424) ( -SET.TTYINEDIT.WINDOW 306426 . 307577) (TTYIN.PPTOFILE 307579 . 309518)) (309578 309755 ( -MAKE-TTSCRATCHFILE 309588 . 309753)) (309902 310680 (TTYIN.SCRATCHFILE 309912 . 310371) (\TTYIN.RPEOF -310373 . 310678)) (310892 314525 (TTYINPROMPTFORWORD 310902 . 314523))))) + (FILEMAP (NIL (7721 207399 (TTYIN 7731 . 20964) (TTYIN.SETUP 20966 . 24042) (TTYIN.CLEANUP 24044 . +24872) (TTYIN1 24874 . 51392) (TTYIN1RESTART 51394 . 52658) (TTYIN.FINISH 52660 . 62077) ( +TTYIN.BALANCE 62079 . 63205) (ADDCHAR 63207 . 65393) (TTMAKECOMPLEXCHAR 65395 . 65869) (ADDNAKEDCHAR +65871 . 67381) (TTADDTAB 67383 . 68318) (ADJUSTLINE 68320 . 82231) (ADJUSTLINE.AND.RESTORE 82233 . +82671) (AT.END.OF.SCREEN 82673 . 82961) (AT.END.OF.TEXT 82963 . 83418) (AUTOCR? 83420 . 83894) ( +BACKSKREAD 83896 . 88481) (BACKWARD.DELETE.TO 88483 . 88665) (BREAKLINE 88667 . 90934) (BUFTAILP 90936 + . 91254) (CHECK.MARGIN 91256 . 91879) (CLEAR.LINE? 91881 . 92174) (CURRENT.WORD 92176 . 94576) ( +DELETE.TO.END 94578 . 95297) (DELETELINE 95299 . 98256) (DELETETO 98258 . 100080) (DELETETO1 100082 . +101425) (DO.EDIT.COMMAND 101427 . 118746) (DO.EDIT.PP 118748 . 121410) (TTDOTABS 121412 . 122782) ( +EDITCOLUMN 122784 . 123240) (EDITNUMBERP 123242 . 123473) (END.DELETE.MODE 123475 . 123992) (ENDREAD? +123994 . 126429) (FIND.LINE 126431 . 127967) (FIND.LINE.BREAK 127969 . 128639) (FIND.MATCHING.QUOTE +128641 . 129486) (FIND.NEXT.WORD 129488 . 130867) (FIND.NON.SPACE 130869 . 131142) (FIND.START.OF.WORD + 131144 . 131507) (FORWARD.DELETE.TO 131509 . 133731) (GO.TO.ADDRESSING 133733 . 134689) ( +GO.TO.FREELINE 134691 . 135272) (GO.TO.RELATIVE 135274 . 136054) (INIT.CURSOR 136056 . 136953) ( +INSERT.NODE 136955 . 137477) (INSERTLINE 137479 . 138983) (KILL.LINES 138985 . 139523) (KILLSEGMENT +139525 . 140648) (L-CASECODE 140650 . 140811) (MOVE.BACK.TO 140813 . 141042) (MOVE.FORWARD.TO 141044 + . 141465) (MOVE.TO.LINE 141467 . 142382) (MOVE.TO.NEXT.LINE 142384 . 142654) (MOVE.TO.START.OF.WORD +142656 . 143420) (MOVE.TO.WHEREVER 143422 . 143645) (NTH.COLUMN.OF 143647 . 143978) ( +NTH.RELATIVE.COLUMN.OF 143980 . 145280) (OVERFLOW? 145282 . 146230) (OVERFLOWLINE? 146232 . 146558) ( +PREVLINE 146560 . 147740) (PREVWORD 147742 . 149883) (PROPERTAILP 149885 . 150092) (READFROMBUF 150094 + . 152683) (RENUMBER.LINES 152685 . 153078) (RESTORE.CURSOR 153080 . 153234) (RESTOREBUF 153236 . +155420) (RETYPE.BUFFER 155422 . 157685) (SAVE.CURSOR 157687 . 157859) (SCANBACK 157861 . 159219) ( +SCANFORWARD 159221 . 160089) (SCRATCHCONS 160091 . 160693) (SEGMENT.LENGTH 160695 . 161231) ( +SEGMENT.BIT.LENGTH 161233 . 161840) (SETLASTC 161842 . 162139) (SETTAIL? 162141 . 162957) ( +SHOW.MATCHING.PAREN 162959 . 165459) (SKIP/ZAP 165461 . 167940) (START.NEW.LINE 167942 . 168274) ( +START.OF.PARAGRAPH? 168276 . 168657) (TTADJUSTWORD 168659 . 169833) (TTBIN 169835 . 171041) ( +TTBITWIDTH 171043 . 171192) (TTCRLF 171194 . 171401) (TTCRLF.ACCOUNT 171403 . 172043) (TTDELETECHAR +172045 . 173189) (TTDELETELINE 173191 . 175139) (TTDELETEWORD 175141 . 175809) (TTECHO.TO.FILE 175811 + . 179359) (TTGIVEHELP 179361 . 180626) (TTGIVEHELP1 180628 . 181210) (TTGIVEHELP2 181212 . 181907) ( +TTLASTLINE 181909 . 182277) (TTLOADBUF 182279 . 185793) (TTNEXTLINE 185795 . 186115) (TTNEXTNODE +186117 . 186356) (TTNLEFT 186358 . 187585) (TTNTH 187587 . 188046) (TTNTHLINE 188048 . 188580) ( +TTPRIN1 188582 . 192395) (TTPRINSPACE 192397 . 192790) (TTPRIN1COMMENT 192792 . 193116) (TTPRIN2 +193118 . 195437) (TTPROMPTCHAR 195439 . 196335) (TTRUBOUT 196337 . 197300) (TTUNREADBUF 197302 . +197711) (TTWAITFORINPUT 197713 . 201921) (TTYINSTRING 201923 . 202882) (TYPE.BUFFER 202884 . 204636) ( +U-CASECODE 204638 . 204797) (U/L-CASE 204799 . 207397)) (207554 217267 (TTRATOM 207564 . 208008) ( +TTREADLIST 208010 . 208377) (TTSKIPSEPR 208379 . 208753) (TTSKREAD 208755 . 213395) (TTYIN.READ 213397 + . 217265)) (217314 237358 (FIND.MATCHING.WORD 217324 . 217852) (TTCOMPLETEWORD 217854 . 232282) ( +WORD.MATCHES.BUFFER 232284 . 233844) (TTYIN.SHOW.?ALTERNATIVES 233846 . 237356)) (237392 255702 ( +DO?CMD 237402 . 243304) (TTYIN.PRINTARGS 243306 . 254164) (TTYIN.READ?=ARGS 254166 . 254947) ( +DO?CMD.ERRORHANDLER 254949 . 255700)) (255736 263809 (BEEP 255746 . 255921) (BITBLT.DELETE 255923 . +256570) (BITBLT.ERASE 256572 . 256757) (BITBLT.INSERT 256759 . 257070) (DO.CRLF 257072 . 257391) ( +DO.DELETE.LINES 257393 . 258437) (DO.INSERT.LINE 258439 . 260373) (DO.LF 260375 . 260541) ( +ERASE.TO.END.OF.LINE 260543 . 260868) (ERASE.TO.END.OF.PAGE 260870 . 261475) (INSERT.TEXT 261477 . +261981) (TTDELSECTION 261983 . 262281) (TTADJUSTWIDTH 262283 . 263147) (TTINSERTSECTION 263149 . +263488) (TTSETCURSOR 263490 . 263807)) (263844 268821 (TTYINBUFFERDEVICE 263854 . 265170) ( +TTYINBUFFERSTREAM 265172 . 265934) (TTYINBUFFERBIN 265936 . 266472) (TTYINBUFFERPEEK 266474 . 266952) +(TTYINBUFFERREADP 266954 . 267209) (TTYINBUFFEREOFP 267211 . 267463) (TTYINBUFFERBACKPTR 267465 . +268017) (TTYINWORDRDTBL 268019 . 268819)) (268982 294539 (DO.MOUSE 268992 . 271749) ( +DO.SHIFTED.SELECTION 271751 . 282190) (COPY.SEGMENT 282192 . 282396) (DELETE.LONG.SEGMENT 282398 . +282757) (DELETE.LONG.SEGMENT1 282759 . 285235) (INVERT.LONG.SEGMENT 285237 . 286266) (INVERT.SEGMENT +286268 . 287783) (BRACKET.CURRENT.WORD 287785 . 289319) (TTBEFOREPOS 289321 . 290051) (TTNEXTPOS +290053 . 290761) (TTRACKMOUSE 290763 . 294537)) (294683 299939 (SETREADFN 294693 . 295171) ( +TTYINENTRYFN 295173 . 295598) (TTYINREADP 295600 . 296065) (TTYINREAD 296067 . 297461) (TTYINFIX +297463 . 298662) (CHARMACRO? 298664 . 299231) (TTYINMETA 299233 . 299361) (TTYIN.LASTINPUT 299363 . +299937)) (299940 308209 (TTYINEDIT 299950 . 302067) (SIMPLETEXTEDIT 302069 . 305113) ( +SET.TTYINEDIT.WINDOW 305115 . 306266) (TTYIN.PPTOFILE 306268 . 308207)) (308267 308444 ( +MAKE-TTSCRATCHFILE 308277 . 308442)) (308591 309369 (TTYIN.SCRATCHFILE 308601 . 309060) (\TTYIN.RPEOF +309062 . 309367)) (309581 313214 (TTYINPROMPTFORWORD 309591 . 313212))))) STOP diff --git a/sources/TTYIN.LCOM b/sources/TTYIN.LCOM index 3319851a0..feb34ffce 100644 Binary files a/sources/TTYIN.LCOM and b/sources/TTYIN.LCOM differ diff --git a/sources/UFS.LCOM b/sources/UFS.LCOM index 297bb55b9..f8a99de40 100644 Binary files a/sources/UFS.LCOM and b/sources/UFS.LCOM differ diff --git a/sources/WINDOW b/sources/WINDOW index 92c87f831..dcc34320e 100644 --- a/sources/WINDOW +++ b/sources/WINDOW @@ -1,18 +1,20 @@ (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) -(FILECREATED " 9-Apr-2000 17:36:29" {DSK}sybalsky>lispcore>sources>WINDOW.;6 225105 +(FILECREATED "13-Jun-2021 10:14:32"  +{DSK}kaplan>Local>medley3.5>git-medley>sources>WINDOW.;2 224540 - changes to%: (FNS WINDOWWORLD CREATESCREEN) + changes to%: (FNS \TTY.CREATING.DISPLAYSTREAM) - previous date%: "28-Jun-99 17:17:47" {DSK}sybalsky>lispcore>sources>WINDOW.;5) + previous date%: " 9-Apr-2000 17:36:29" +{DSK}kaplan>Local>medley3.5>git-medley>sources>WINDOW.;1) (* ; " -Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1991, 1992, 1993, 1994, 1999, 2000 by Venue & Xerox Corporation. All rights reserved. +Copyright (c) 1982-1988, 1990-1994, 1999-2000, 2021 by Venue & Xerox Corporation. ") (PRETTYCOMPRINT WINDOWCOMS) -(RPAQQ WINDOWCOMS +(RPAQQ WINDOWCOMS [(COMS (FNS WINDOWWORLD WINDOWWORLDP CHANGEBACKGROUND CHANGEBACKGROUNDBORDER TILE \TTY.CREATING.DISPLAYSTREAM \CREATE.TTY.OUTCHARFN \CREATE.TTYDISPLAYSTREAM HASTTYWINDOWP TTYINFOSTREAM CREATESCREEN \INSURESCREEN \BITMAPTOSCREEN MAINSCREEN) @@ -30,7 +32,7 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1991, 1992, 1993, (\SCREENBITMAPS)) (GLOBALVARS \TTYREGIONOFFSETSPTR TTYREGIONOFFSETS \DEFAULTTTYDISPLAYSTREAM) (VARIABLES \TopLevelTtyWindow)) - (COMS (* ; "Window menu operations") + (COMS (* ; "Window menu operations") (FNS WINDOW.MOUSE.HANDLER \PROTECTED.APPLY DOWINDOWCOM DOBACKGROUNDCOM DEFAULT.BACKGROUND.COPYFN) (VARS (BackgroundCopyMenu)) @@ -53,42 +55,42 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1991, 1992, 1993, (EXPORT (MACROS .COPYKEYDOWNP. WSOP)) (PROP ARGNAMES WSOP) (RECORDS WSOPS WSDATA)) - (COMS (* ; "Window utilities") + (COMS (* ; "Window utilities") (FNS ADVISEWDS SHOWWFRAME SHOWWTITLE \STRINGWIDTHGUESS RESHOWTITLE TOTOPW \INTERNALTOTOPW \TTW1 WHICHW) (INITVARS (WINDOWTITLEPRINTLEVEL '(2 . 5)) (WINDOWTITLESHADE BLACKSHADE))) - [COMS (* ; "Window vs non-window world") + [COMS (* ; "Window vs non-window world") (FNS WFROMDS NU\TOTOPWDS \COERCETODS) (DECLARE%: DONTCOPY (EXPORT (MACROS \COERCETODS .WHILE.ON.TOP.))) (P (MOVD 'NU\TOTOPWDS '\TOTOPWDS] - (COMS (* ; "User interface functions") + (COMS (* ; "User interface functions") (FNS WINDOWP INSURE.WINDOW WINDOWPROP WINDOWADDPROP WINDOWDELPROP GETWINDOWPROP GETWINDOWUSERPROP PUTWINDOWPROP REMWINDOWPROP WINDOWADDFNPROP) - (* ; "Compiled WINDOWPROP") + (* ; "Compiled WINDOWPROP") (PROP ARGNAMES WINDOWPROP) (OPTIMIZERS WINDOWPROP) (FNS CWINDOWPROP CGETWINDOWPROP \GETWINDOWHEIGHT \GETWINDOWWIDTH)) (COMS (FNS OPENWP TOPWP RESHAPEBYREPAINTFN \INBETWEENP DECODE/WINDOW/OR/DISPLAYSTREAM GROW/REGION CLRPROMPT PROMPTPRINT OPENWINDOWS \INSUREWINDOW) - (* ; - "these entries are left in for backward compatibility. They were dedocumented 6/83. rrb") + (* ; + "these entries are left in for backward compatibility. They were dedocumented 6/83. rrb") (P (MOVD 'OPENWP 'ACTIVEWP)) (FNS OVERLAPPINGWINDOWS WOVERLAPP ORDERFROMBOTTOMTOTOP) - (* ; "screen size changing functions.") + (* ; "screen size changing functions.") (FNS \ONSCREENW \PUTONSCREENW \UPDATECACHEDFIELDS \WWCHANGESCREENSIZE CREATEWFROMIMAGE UPDATEWFROMIMAGE)) [COMS - (* ;; "MEDLEY-NATIVE-WINDOWS INTERFACE FUNCTIONS") + (* ;; "MEDLEY-NATIVE-WINDOWS INTERFACE FUNCTIONS") (GLOBALVARS \SCREENS \SCREENTYPES) [INITVARS - (* ;; "\SCREENS is a list of all known screens. The SCREEN-CREATE function for the screen type must register it there. It's used, e.g., by DSPCREATE to find the right screen given a screen bitmap.") + (* ;; "\SCREENS is a list of all known screens. The SCREEN-CREATE function for the screen type must register it there. It's used, e.g., by DSPCREATE to find the right screen given a screen bitmap.") (\SCREENS) - (* ;; "\SCREENTYPES is used to interpret the values we get back from the query-for-screen-types function, and to look up the methods for creating a screen and destroying one.") + (* ;; "\SCREENTYPES is used to interpret the values we get back from the query-for-screen-types function, and to look up the methods for creating a screen and destroying one.") (\SCREENTYPES '((1 MEDLEY OPEN-SCREEN CREATESCREEN CLOSE-SCREEN NILL) (2 MEDLEY-COLOR-4) @@ -98,7 +100,7 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1991, 1992, 1993, (32 X-COLOR) (64 MS-WINDOWS] - (* ;; "OLD-MEDLEY-SCREEN window management functions") + (* ;; "OLD-MEDLEY-SCREEN window management functions") (FNS \MEDW.CREATEW \MEDW.OPENW \MEDW.CLOSEW \MEDW.MOVEW \MEDW.RELMOVEW \MEDW.SHRINKW \MEDW.EXPANDW \MEDW.SHAPEW \MEDW.REDISPLAYW \MEDW.BURYW \MEDW.TOTOPW @@ -108,8 +110,8 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1991, 1992, 1993, (DECLARE%: EVAL@COMPILE DONTCOPY (EXPORT (MACROS WINDOWOP))) (DECLARE%: DONTEVAL@COMPILE DONTEVAL@LOAD DOCOPY - (* ;; - "Take care of installing the generic DSPCREATE over the simple one defined in LLDISPLAY.") + (* ;; + "Take care of installing the generic DSPCREATE over the simple one defined in LLDISPLAY.") (P (CL:UNLESS (EQUAL (GETD 'DSPCREATE) (GETD '\GENERIC.DSPCREATE)) @@ -182,7 +184,7 @@ Middle button down moves closest corner.") (MOVD? 'TRUE 'LISPWINDOWP)) (VARS (\WINDOWWORLD T))) - (* ;; "Arrange for the proper compiler") + (* ;; "Arrange for the proper compiler") (PROP FILETYPE WINDOW) (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA) @@ -317,13 +319,13 @@ Middle button down moves closest corner.") (add X W]) (\TTY.CREATING.DISPLAYSTREAM - [LAMBDA NIL (* rmk%: "27-AUG-83 13:41") + [LAMBDA NIL (* ; "Edited 13-Jun-2021 10:14 by rmk:") - (* ;; "creates a displaystream that points to a stream that has a OUTCHARFN that creates a new displaystream. It is used as the default TtyDisplayStream in a process.") + (* ;; "creates a displaystream that points to a stream that has a OUTCHARFN that creates a new displaystream. It is used as the default TtyDisplayStream in a process.") (PROG [(DS (DSPCREATE (BITMAPCREATE 1 1] - (replace OUTCHARFN of DS with (FUNCTION \CREATE.TTY.OUTCHARFN)) - (replace FULLFILENAME of DS with T) + (replace (STREAM OUTCHARFN) of DS with (FUNCTION \CREATE.TTY.OUTCHARFN)) + (replace (STREAM FULLFILENAME) of DS with T) (RETURN DS]) (\CREATE.TTY.OUTCHARFN @@ -1387,25 +1389,24 @@ Middle button down moves closest corner.") ) (* "FOLLOWING DEFINITIONS EXPORTED")(DECLARE%: EVAL@COMPILE -[PUTPROPS .COPYKEYDOWNP. MACRO (NIL (OR (KEYDOWNP 'LSHIFT) - (KEYDOWNP 'RSHIFT) - (KEYDOWNP 'COPY] - -[PUTPROPS WSOP MACRO (ARGS (LET ((METHOD (CADR (CAR ARGS))) - (DISPLAY (CADR ARGS)) - (OTHERARGS (CDDR ARGS))) - `(SPREADAPPLY* (fetch (WSOPS ,METHOD) of (fetch - (FDEV WINDOWOPS) - of - ,DISPLAY)) - ,DISPLAY - ,@OTHERARGS] +(PUTPROPS .COPYKEYDOWNP. MACRO [NIL (OR (KEYDOWNP 'LSHIFT) + (KEYDOWNP 'RSHIFT) + (KEYDOWNP 'COPY]) + +(PUTPROPS WSOP MACRO [ARGS (LET ((METHOD (CADR (CAR ARGS))) + (DISPLAY (CADR ARGS)) + (OTHERARGS (CDDR ARGS))) + `(SPREADAPPLY* (fetch (WSOPS ,METHOD) + of (fetch (FDEV WINDOWOPS) + of ,DISPLAY)) + ,DISPLAY + ,@OTHERARGS]) ) (* "END EXPORTED DEFINITIONS") -(PUTPROPS WSOP ARGNAMES (METHOD DISPLAY . OTHERARGS)) +(PUTPROPS WSOP ARGNAMES (METHOD DISPLAY . OTHERARGS)) (DECLARE%: EVAL@COMPILE (RECORD WSOPS (STARTBOARD STARTCOLOR STOPCOLOR EVENTFN SENDCOLORMAPENTRY SENDPAGE PILOTBITBLT)) @@ -1868,15 +1869,15 @@ Middle button down moves closest corner.") (DECLARE%: DONTCOPY (* "FOLLOWING DEFINITIONS EXPORTED")(DECLARE%: EVAL@COMPILE -[PUTPROPS \COERCETODS MACRO (OPENLAMBDA (X) - (COND - ((type? WINDOW X) - (fetch (WINDOW DSP) of X)) - (T (\ILLEGAL.ARG X] +(PUTPROPS \COERCETODS MACRO [OPENLAMBDA (X) + (COND + ((type? WINDOW X) + (fetch (WINDOW DSP) of X)) + (T (\ILLEGAL.ARG X]) -[PUTPROPS .WHILE.ON.TOP. MACRO ((FIRST . REST) - (UNINTERRUPTABLY - (\INTERNALTOTOPW FIRST) . REST)] +(PUTPROPS .WHILE.ON.TOP. MACRO ((FIRST . REST) + (UNINTERRUPTABLY + (\INTERNALTOTOPW FIRST) . REST))) ) (* "END EXPORTED DEFINITIONS") @@ -2042,7 +2043,7 @@ Middle button down moves closest corner.") (* ; "Compiled WINDOWPROP") -(PUTPROPS WINDOWPROP ARGNAMES (NIL (WINDOW PROP {NEWVALUE}) . U)) +(PUTPROPS WINDOWPROP ARGNAMES (NIL (WINDOW PROP {NEWVALUE}) . U)) (DEFOPTIMIZER WINDOWPROP (&REST ARGS) (CWINDOWPROP ARGS)) @@ -3530,18 +3531,19 @@ Middle button down moves closest corner.") (DECLARE%: EVAL@COMPILE DONTCOPY (* "FOLLOWING DEFINITIONS EXPORTED")(DECLARE%: EVAL@COMPILE -[PUTPROPS WINDOWOP DMACRO (ARGS (LET ((OPNAME (CAR ARGS)) - (METHOD-DEVICE (CADR ARGS)) - (TAIL (CDDR ARGS))) - (COND - [(AND (LISTP OPNAME) - (EQ (CAR OPNAME) - 'QUOTE)) - `(SPREADAPPLY* (fetch (SCREEN ,(CADR OPNAME)) - of ,METHOD-DEVICE) - ,METHOD-DEVICE - ,@TAIL] - (T (ERROR "OPNAME not quoted: " OPNAME] +(PUTPROPS WINDOWOP DMACRO [ARGS (LET ((OPNAME (CAR ARGS)) + (METHOD-DEVICE (CADR ARGS)) + (TAIL (CDDR ARGS))) + (COND + [(AND (LISTP OPNAME) + (EQ (CAR OPNAME) + 'QUOTE)) + `(SPREADAPPLY* (fetch (SCREEN + ,(CADR OPNAME)) + of ,METHOD-DEVICE) + ,METHOD-DEVICE + ,@TAIL] + (T (ERROR "OPNAME not quoted: " OPNAME]) ) (* "END EXPORTED DEFINITIONS") @@ -3577,51 +3579,51 @@ Middle button down moves closest corner.") ) (DECLARE%: EVAL@COMPILE -(DATATYPE WINDOW (DSP (* ; - "The display stream you use to actually printto the window.") - NEXTW (* ; - "Next window in the open-window list") - SAVE (* ; - "Saved image from anything this window's on top of") - REG (* ; - "Screen region this window occupies") - BUTTONEVENTFN (* ; - "FN called when left/middle mouse button goes up/down") - RIGHTBUTTONFN (* ; - "FN called when right mouse button goes up/down") - CURSORINFN (* ; - "Fn called when mouse enters window") - CURSOROUTFN (* ; "Called when mouse leaves window") - CURSORMOVEDFN (* ; - "Called when mouse moves in window") - REPAINTFN (* ; "Redisplay part of thie window") - RESHAPEFN (* ; "Called when window is reshaped") - EXTENT (* ; "Scrolling limits") - USERDATA (* ; - "Proplist to hold other window properites") - VERTSCROLLREG (* ; "Region of vert scroll bar") - HORIZSCROLLREG (* ; "Tegion of horiz scroll bar") - SCROLLFN (* ; "Fn to scroll this window") - VERTSCROLLWINDOW (* ; "Vert scroll bar") - HORIZSCROLLWINDOW (* ; "Horiz scroll bar") - CLOSEFN (* ; "Called at close time") - MOVEFN (* ; "Called when window is moved") - WTITLE (* ; "Window's title string, if any") - NEWREGIONFN (* ; "Called to get new window shape") - WBORDER (* ; "Window border-width, in pixels") - PROCESS (* ; - "Medley process associated with this window") - WINDOWENTRYFN (* ; - "Fn to call when kbd focus is switched here") - SCREEN (* ; "Screen this window appears on") - (NATIVE-HANDLE FIXP) (* ; - "Uniterpreted place for native window to store a C pointer to its private info") - (NATIVE-INFO1 FIXP) (* ; - "Reserved in case the pointer must be 64 bits") - (NATIVE-W1 WORD) (* ; "Word for use by native handler") - (NATIVE-W2 WORD) (* ; "Word for use by native handler") - (NATIVE-P1 POINTER) (* ; - "Lisp pointer for use by native handler") +(DATATYPE WINDOW (DSP (* ; + "The display stream you use to actually printto the window.") + NEXTW (* ; + "Next window in the open-window list") + SAVE (* ; + "Saved image from anything this window's on top of") + REG (* ; + "Screen region this window occupies") + BUTTONEVENTFN (* ; + "FN called when left/middle mouse button goes up/down") + RIGHTBUTTONFN (* ; + "FN called when right mouse button goes up/down") + CURSORINFN (* ; + "Fn called when mouse enters window") + CURSOROUTFN (* ; "Called when mouse leaves window") + CURSORMOVEDFN (* ; + "Called when mouse moves in window") + REPAINTFN (* ; "Redisplay part of thie window") + RESHAPEFN (* ; "Called when window is reshaped") + EXTENT (* ; "Scrolling limits") + USERDATA (* ; + "Proplist to hold other window properites") + VERTSCROLLREG (* ; "Region of vert scroll bar") + HORIZSCROLLREG (* ; "Tegion of horiz scroll bar") + SCROLLFN (* ; "Fn to scroll this window") + VERTSCROLLWINDOW (* ; "Vert scroll bar") + HORIZSCROLLWINDOW (* ; "Horiz scroll bar") + CLOSEFN (* ; "Called at close time") + MOVEFN (* ; "Called when window is moved") + WTITLE (* ; "Window's title string, if any") + NEWREGIONFN (* ; "Called to get new window shape") + WBORDER (* ; "Window border-width, in pixels") + PROCESS (* ; + "Medley process associated with this window") + WINDOWENTRYFN (* ; + "Fn to call when kbd focus is switched here") + SCREEN (* ; "Screen this window appears on") + (NATIVE-HANDLE FIXP) (* ; + "Uniterpreted place for native window to store a C pointer to its private info") + (NATIVE-INFO1 FIXP) (* ; + "Reserved in case the pointer must be 64 bits") + (NATIVE-W1 WORD) (* ; "Word for use by native handler") + (NATIVE-W2 WORD) (* ; "Word for use by native handler") + (NATIVE-P1 POINTER) (* ; + "Lisp pointer for use by native handler") ) BUTTONEVENTFN _ (FUNCTION TOTOPW) WBORDER _ WBorder WINDOWENTRYFN _ (FUNCTION GIVE.TTY.PROCESS) @@ -3630,72 +3632,72 @@ Middle button down moves closest corner.") (DATATYPE SCREEN (SCONOFF SCDESTINATION SCWIDTH SCHEIGHT SCTOPW SCTOPWDS SCTITLEDS SCFDEV SCDS SCDATA - (* ;; "Space for native window manager interface to use.") - - (HANDLE FIXP) (* ; - "Handle for emulator to store info about display for C code use.") - (HANDLE2 FIXP) (* ; - "Reserved in case HANDLE needs to be 64 bits on the C side.") - (NATIVE-INFO POINTER) (* ; - "POINTER for the private use of the emulator window code") - NATIVETYPE (* ; - "Symbol to tell what kind of native window system we're using.") - - (* ;; "- - - Functional interface to screen management - - -") - - WINIMAGEOPS (* ; - "IMAGEOPS to be used in display streas on this kind of screen") - WINFDEV (* ; - "FDEV for display streams on this screen") - CREATEWFN (* ; "Create a window") - OPENWFN (* ; "Open a window") - CLOSEWFN (* ; "Close a window") - MOVEWFN (* ; "Move a window") - RELMOVEWFN (* ; "Move window, relative") - SHRINKWFN (* ; "Shrink window to icon") - EXPANDWFN (* ; "Expand icon to window") - SHAPEWFN (* ; "Reshape a window") - REDISPLAYFN (* ; "Redisplay (part of) a window") - GETWINDOWPROPFN (* ; "Get window property value") - PUTWINDOWPROPFN (* ; "Set window property value") - BURYWFN (* ; "Move window behind all others") - TOTOPWFN (* ; - "Move iwindow in front of all others") - IMPORTWFN (* ; - "Take a native window and save its state internally") - EXPORTWFN (* ; - "Take a saved window state and open it on this screen, filling in screen and methods as needed.") - DESTROYFN (* ; - "Destroy this window, for GC finaliszation") - SETCURSORFN (* ; "Set the cursor for this window.") - PROMPTW (* ; - "The prompt window for this screen") - SHOWGCFN (* ; - "Show GC indication; called with ON/OFF arg, t=>show gcing status, NIL=>turn off GC indicator.") - DSPCREATEFN (* ; - "Create a displaystream on this screen.") - BBTTOWIN (* ; - "BITBLT from a lisp bitmap to a window") - BBTFROMWIN (* ; - "BITBLT from a window to a lisp bitmap") - BBTWINWIN (* ; - "BITBLT from a window to another window.") - SCCURSOR (* ; - "CURSOR that's in effect for this screen by default.") - SCKEYBOARD (* ; - "Something about which keyboard we're receiving from.") - SCDEPTH (* ; - "# of bits per pixel on the screen. THIS WILL REPLACE SCBITSPERPIXEL ASAP.") - SCCLOSEDOWN (* ; - "Close down this screen cleanly, saving window state.") - SCCLOSESCREEN (* ; - "Close down thie screen cleanly, no state saving.") - SCREOPEN (* ; "Reopen this screen?") - SCCARETFLASH (* ; "Function to flash thecaret.") - SCGETSCREENPOSITION (* ; "GETSCREENPOSITION") - SCGETBOXSCREENPOSITION (* ; "GETBOXPOSITION") - SCGETSCREENREGION (* ; "GETREGION") - SCMOVEPOINTER (* ; "\CURSORPOSITION") + (* ;; "Space for native window manager interface to use.") + + (HANDLE FIXP) (* ; + "Handle for emulator to store info about display for C code use.") + (HANDLE2 FIXP) (* ; + "Reserved in case HANDLE needs to be 64 bits on the C side.") + (NATIVE-INFO POINTER) (* ; + "POINTER for the private use of the emulator window code") + NATIVETYPE (* ; + "Symbol to tell what kind of native window system we're using.") + + (* ;; "- - - Functional interface to screen management - - -") + + WINIMAGEOPS (* ; + "IMAGEOPS to be used in display streas on this kind of screen") + WINFDEV (* ; + "FDEV for display streams on this screen") + CREATEWFN (* ; "Create a window") + OPENWFN (* ; "Open a window") + CLOSEWFN (* ; "Close a window") + MOVEWFN (* ; "Move a window") + RELMOVEWFN (* ; "Move window, relative") + SHRINKWFN (* ; "Shrink window to icon") + EXPANDWFN (* ; "Expand icon to window") + SHAPEWFN (* ; "Reshape a window") + REDISPLAYFN (* ; "Redisplay (part of) a window") + GETWINDOWPROPFN (* ; "Get window property value") + PUTWINDOWPROPFN (* ; "Set window property value") + BURYWFN (* ; "Move window behind all others") + TOTOPWFN (* ; + "Move iwindow in front of all others") + IMPORTWFN (* ; + "Take a native window and save its state internally") + EXPORTWFN (* ; + "Take a saved window state and open it on this screen, filling in screen and methods as needed.") + DESTROYFN (* ; + "Destroy this window, for GC finaliszation") + SETCURSORFN (* ; "Set the cursor for this window.") + PROMPTW (* ; + "The prompt window for this screen") + SHOWGCFN (* ; + "Show GC indication; called with ON/OFF arg, t=>show gcing status, NIL=>turn off GC indicator.") + DSPCREATEFN (* ; + "Create a displaystream on this screen.") + BBTTOWIN (* ; + "BITBLT from a lisp bitmap to a window") + BBTFROMWIN (* ; + "BITBLT from a window to a lisp bitmap") + BBTWINWIN (* ; + "BITBLT from a window to another window.") + SCCURSOR (* ; + "CURSOR that's in effect for this screen by default.") + SCKEYBOARD (* ; + "Something about which keyboard we're receiving from.") + SCDEPTH (* ; + "# of bits per pixel on the screen. THIS WILL REPLACE SCBITSPERPIXEL ASAP.") + SCCLOSEDOWN (* ; + "Close down this screen cleanly, saving window state.") + SCCLOSESCREEN (* ; + "Close down thie screen cleanly, no state saving.") + SCREOPEN (* ; "Reopen this screen?") + SCCARETFLASH (* ; "Function to flash thecaret.") + SCGETSCREENPOSITION (* ; "GETSCREENPOSITION") + SCGETBOXSCREENPOSITION (* ; "GETBOXPOSITION") + SCGETSCREENREGION (* ; "GETREGION") + SCMOVEPOINTER (* ; "\CURSORPOSITION") ) SCONOFF _ 'OFF [ACCESSFNS ((SCBITSPERPIXEL (COND @@ -3959,42 +3961,40 @@ Middle button down moves closest corner.") (FILESLOAD PAINTW) -(ADDTOVAR WindowMenuCommands (Close '\INTERACTIVE.CLOSEW "Closes a window") - (Snap 'SNAPW "Saves a snapshot of a region of the screen.") - (Paint 'PAINTW +(ADDTOVAR WindowMenuCommands + (Close '\INTERACTIVE.CLOSEW "Closes a window") + (Snap 'SNAPW "Saves a snapshot of a region of the screen.") + (Paint 'PAINTW "Starts a painting mode in which the mouse can be used to draw pictures or make notes on windows.") - (Clear 'CLEARW "Clears a window to its gray.") - (Bury 'BURYW "Puts a window on the bottom.") - (Redisplay 'REDISPLAYW "Redisplays a window using its REPAINTFN.") - (Hardcopy 'HARDCOPYIMAGEW "Prints a window using its HARDCOPYFN." - (SUBITEMS ("To a file" 'HARDCOPYIMAGEW.TOFILE - "Puts image on a file; prompts for filename and format" - ) - ("To a printer" 'HARDCOPYIMAGEW.TOPRINTER - "Sends image to a printer of your choosing"))) - (Move 'MOVEW "Moves a window by a corner.") - (Shape 'SHAPEW "Gets a new region for a window. + (Clear 'CLEARW "Clears a window to its gray.") + (Bury 'BURYW "Puts a window on the bottom.") + (Redisplay 'REDISPLAYW "Redisplays a window using its REPAINTFN.") + (Hardcopy 'HARDCOPYIMAGEW "Prints a window using its HARDCOPYFN." + (SUBITEMS ("To a file" 'HARDCOPYIMAGEW.TOFILE + "Puts image on a file; prompts for filename and format") + ("To a printer" 'HARDCOPYIMAGEW.TOPRINTER + "Sends image to a printer of your choosing"))) + (Move 'MOVEW "Moves a window by a corner.") + (Shape 'SHAPEW "Gets a new region for a window. Left button down marks fixed corner; sweep to other corner. Middle button down moves closest corner.") - (Shrink 'SHRINKW - "Replaces this window with its icon (or title if it doesn't have an icon." - )) - -(ADDTOVAR BackgroundMenuCommands (SaveVM '(SAVEVM) - "Updates the virtual memory.") - (Snap '(SNAPW) - "Saves a snapshot of a region of the screen.") - (Hardcopy '(HARDCOPYW) - "Send hardcopy of screen region to printer." - (SUBITEMS ("To a file" '(HARDCOPYREGION.TOFILE) - + (Shrink 'SHRINKW "Replaces this window with its icon (or title if it doesn't have an icon." + )) + +(ADDTOVAR BackgroundMenuCommands + (SaveVM '(SAVEVM) + "Updates the virtual memory.") + (Snap '(SNAPW) + "Saves a snapshot of a region of the screen.") + (Hardcopy '(HARDCOPYW) + "Send hardcopy of screen region to printer." + (SUBITEMS ("To a file" '(HARDCOPYREGION.TOFILE) + "Writes a region of screen to a file; prompts for filename and format" - ) - ("To a printer" '(HARDCOPYREGION.TOPRINTER) - - "Sends a region of screen to a printer of your choosing" - )))) + ) + ("To a printer" '(HARDCOPYREGION.TOPRINTER) + "Sends a region of screen to a printer of your choosing")))) (ADDTOVAR WINDOWUSERFORMS ) @@ -4019,7 +4019,7 @@ Middle button down moves closest corner.") (* ;; "Arrange for the proper compiler") -(PUTPROPS WINDOW FILETYPE :FAKE-COMPILE-FILE) +(PUTPROPS WINDOW FILETYPE :FAKE-COMPILE-FILE) (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDTOVAR NLAMA ) @@ -4029,43 +4029,43 @@ Middle button down moves closest corner.") (ADDTOVAR LAMA PROMPTPRINT WINDOWPROP DOWINDOWCOM) ) (PUTPROPS WINDOW COPYRIGHT ("Venue & Xerox Corporation" 1982 1983 1984 1985 1986 1987 1988 1990 1991 -1992 1993 1994 1999 2000)) +1992 1993 1994 1999 2000 2021)) (DECLARE%: DONTCOPY - (FILEMAP (NIL (11575 26185 (WINDOWWORLD 11585 . 15338) (WINDOWWORLDP 15340 . 15640) (CHANGEBACKGROUND -15642 . 16679) (CHANGEBACKGROUNDBORDER 16681 . 17232) (TILE 17234 . 17826) ( -\TTY.CREATING.DISPLAYSTREAM 17828 . 18345) (\CREATE.TTY.OUTCHARFN 18347 . 18647) ( -\CREATE.TTYDISPLAYSTREAM 18649 . 21688) (HASTTYWINDOWP 21690 . 21970) (TTYINFOSTREAM 21972 . 22496) ( -CREATESCREEN 22498 . 25441) (\INSURESCREEN 25443 . 25692) (\BITMAPTOSCREEN 25694 . 26055) (MAINSCREEN -26057 . 26183)) (26844 44127 (WINDOW.MOUSE.HANDLER 26854 . 39649) (\PROTECTED.APPLY 39651 . 39899) ( -DOWINDOWCOM 39901 . 41921) (DOBACKGROUNDCOM 41923 . 43081) (DEFAULT.BACKGROUND.COPYFN 43083 . 44125)) -(44208 76091 (BURYW 44218 . 44506) (CLEARW 44508 . 44898) (CLOSEW 44900 . 45674) (\CLOSEW1 45676 . -46029) (\OKTOCLOSEW 46031 . 46390) (\INTERACTIVE.CLOSEW 46392 . 47215) (OPENW 47217 . 48272) ( -DOUSERFNS 48274 . 49435) (DOUSERFNS2 49437 . 49933) (\USERFNISDON'T 49935 . 50206) (\OPENW1 50208 . -50558) (CREATEW 50560 . 51824) (CREATEW1 51826 . 54104) (\CREATEW1 54106 . 55325) (OPENDISPLAYSTREAM -55327 . 55650) (MOVEW 55652 . 55867) (PPROMPT3 55869 . 56197) (\ONSCREENCLIPPINGREGION 56199 . 56750) -(RELMOVEW 56752 . 57050) (SHAPEW 57052 . 61971) (SHAPEW1 61973 . 64675) (\SHAPEW2 64677 . 67363) ( -RESHOWBORDER 67365 . 67876) (\RESHOWBORDER1 67878 . 72804) (TRACKW 72806 . 73921) (SNAPW 73923 . 75596 -) (WINDOWREGION 75598 . 76089)) (76092 76788 (MINIMUMWINDOWSIZE 76102 . 76786)) (78591 101856 ( -ADVISEWDS 78601 . 86544) (SHOWWFRAME 86546 . 88298) (SHOWWTITLE 88300 . 92334) (\STRINGWIDTHGUESS -92336 . 92695) (RESHOWTITLE 92697 . 97338) (TOTOPW 97340 . 97579) (\INTERNALTOTOPW 97581 . 98671) ( -\TTW1 98673 . 101273) (WHICHW 101275 . 101854)) (101985 104823 (WFROMDS 101995 . 103993) (NU\TOTOPWDS -103995 . 104431) (\COERCETODS 104433 . 104821)) (105468 112268 (WINDOWP 105478 . 105624) ( -INSURE.WINDOW 105626 . 105965) (WINDOWPROP 105967 . 106399) (WINDOWADDPROP 106401 . 108135) ( -WINDOWDELPROP 108137 . 108563) (GETWINDOWPROP 108565 . 109115) (GETWINDOWUSERPROP 109117 . 109544) ( -PUTWINDOWPROP 109546 . 110011) (REMWINDOWPROP 110013 . 111068) (WINDOWADDFNPROP 111070 . 112266)) ( -112472 120036 (CWINDOWPROP 112482 . 113487) (CGETWINDOWPROP 113489 . 118707) (\GETWINDOWHEIGHT 118709 - . 119617) (\GETWINDOWWIDTH 119619 . 120034)) (120037 135485 (OPENWP 120047 . 120325) (TOPWP 120327 . -120610) (RESHAPEBYREPAINTFN 120612 . 130864) (\INBETWEENP 130866 . 131082) ( -DECODE/WINDOW/OR/DISPLAYSTREAM 131084 . 133124) (GROW/REGION 133126 . 133689) (CLRPROMPT 133691 . -134095) (PROMPTPRINT 134097 . 134361) (OPENWINDOWS 134363 . 135147) (\INSUREWINDOW 135149 . 135483)) ( -135616 138865 (OVERLAPPINGWINDOWS 135626 . 137908) (WOVERLAPP 137910 . 138165) (ORDERFROMBOTTOMTOTOP -138167 . 138863)) (138914 143697 (\ONSCREENW 138924 . 139630) (\PUTONSCREENW 139632 . 140459) ( -\UPDATECACHEDFIELDS 140461 . 140725) (\WWCHANGESCREENSIZE 140727 . 142116) (CREATEWFROMIMAGE 142118 . -143081) (UPDATEWFROMIMAGE 143083 . 143695)) (144254 200056 (\MEDW.CREATEW 144264 . 148938) ( -\MEDW.OPENW 148940 . 151298) (\MEDW.CLOSEW 151300 . 152666) (\MEDW.MOVEW 152668 . 163280) ( -\MEDW.RELMOVEW 163282 . 163661) (\MEDW.SHRINKW 163663 . 171847) (\MEDW.EXPANDW 171849 . 174116) ( -\MEDW.SHAPEW 174118 . 178724) (\MEDW.REDISPLAYW 178726 . 180681) (\MEDW.BURYW 180683 . 181965) ( -\MEDW.TOTOPW 181967 . 183315) (\MEDW.DSPCREATE 183317 . 185759) (\GENERIC.DSPCREATE 185761 . 189225) ( -\MEDW.GETWINDOWPROP 189227 . 191465) (\MEDW.PUTWINDOWPROP 191467 . 198252) (\MEDW.CURSOR 198254 . -200054)) (200057 200677 (\GENERIC.CURSOR 200067 . 200675))))) + (FILEMAP (NIL (11546 26186 (WINDOWWORLD 11556 . 15309) (WINDOWWORLDP 15311 . 15611) (CHANGEBACKGROUND +15613 . 16650) (CHANGEBACKGROUNDBORDER 16652 . 17203) (TILE 17205 . 17797) ( +\TTY.CREATING.DISPLAYSTREAM 17799 . 18346) (\CREATE.TTY.OUTCHARFN 18348 . 18648) ( +\CREATE.TTYDISPLAYSTREAM 18650 . 21689) (HASTTYWINDOWP 21691 . 21971) (TTYINFOSTREAM 21973 . 22497) ( +CREATESCREEN 22499 . 25442) (\INSURESCREEN 25444 . 25693) (\BITMAPTOSCREEN 25695 . 26056) (MAINSCREEN +26058 . 26184)) (26845 44128 (WINDOW.MOUSE.HANDLER 26855 . 39650) (\PROTECTED.APPLY 39652 . 39900) ( +DOWINDOWCOM 39902 . 41922) (DOBACKGROUNDCOM 41924 . 43082) (DEFAULT.BACKGROUND.COPYFN 43084 . 44126)) +(44209 76092 (BURYW 44219 . 44507) (CLEARW 44509 . 44899) (CLOSEW 44901 . 45675) (\CLOSEW1 45677 . +46030) (\OKTOCLOSEW 46032 . 46391) (\INTERACTIVE.CLOSEW 46393 . 47216) (OPENW 47218 . 48273) ( +DOUSERFNS 48275 . 49436) (DOUSERFNS2 49438 . 49934) (\USERFNISDON'T 49936 . 50207) (\OPENW1 50209 . +50559) (CREATEW 50561 . 51825) (CREATEW1 51827 . 54105) (\CREATEW1 54107 . 55326) (OPENDISPLAYSTREAM +55328 . 55651) (MOVEW 55653 . 55868) (PPROMPT3 55870 . 56198) (\ONSCREENCLIPPINGREGION 56200 . 56751) +(RELMOVEW 56753 . 57051) (SHAPEW 57053 . 61972) (SHAPEW1 61974 . 64676) (\SHAPEW2 64678 . 67364) ( +RESHOWBORDER 67366 . 67877) (\RESHOWBORDER1 67879 . 72805) (TRACKW 72807 . 73922) (SNAPW 73924 . 75597 +) (WINDOWREGION 75599 . 76090)) (76093 76789 (MINIMUMWINDOWSIZE 76103 . 76787)) (78546 101811 ( +ADVISEWDS 78556 . 86499) (SHOWWFRAME 86501 . 88253) (SHOWWTITLE 88255 . 92289) (\STRINGWIDTHGUESS +92291 . 92650) (RESHOWTITLE 92652 . 97293) (TOTOPW 97295 . 97534) (\INTERNALTOTOPW 97536 . 98626) ( +\TTW1 98628 . 101228) (WHICHW 101230 . 101809)) (101940 104778 (WFROMDS 101950 . 103948) (NU\TOTOPWDS +103950 . 104386) (\COERCETODS 104388 . 104776)) (105469 112269 (WINDOWP 105479 . 105625) ( +INSURE.WINDOW 105627 . 105966) (WINDOWPROP 105968 . 106400) (WINDOWADDPROP 106402 . 108136) ( +WINDOWDELPROP 108138 . 108564) (GETWINDOWPROP 108566 . 109116) (GETWINDOWUSERPROP 109118 . 109545) ( +PUTWINDOWPROP 109547 . 110012) (REMWINDOWPROP 110014 . 111069) (WINDOWADDFNPROP 111071 . 112267)) ( +112477 120041 (CWINDOWPROP 112487 . 113492) (CGETWINDOWPROP 113494 . 118712) (\GETWINDOWHEIGHT 118714 + . 119622) (\GETWINDOWWIDTH 119624 . 120039)) (120042 135490 (OPENWP 120052 . 120330) (TOPWP 120332 . +120615) (RESHAPEBYREPAINTFN 120617 . 130869) (\INBETWEENP 130871 . 131087) ( +DECODE/WINDOW/OR/DISPLAYSTREAM 131089 . 133129) (GROW/REGION 133131 . 133694) (CLRPROMPT 133696 . +134100) (PROMPTPRINT 134102 . 134366) (OPENWINDOWS 134368 . 135152) (\INSUREWINDOW 135154 . 135488)) ( +135621 138870 (OVERLAPPINGWINDOWS 135631 . 137913) (WOVERLAPP 137915 . 138170) (ORDERFROMBOTTOMTOTOP +138172 . 138868)) (138919 143702 (\ONSCREENW 138929 . 139635) (\PUTONSCREENW 139637 . 140464) ( +\UPDATECACHEDFIELDS 140466 . 140730) (\WWCHANGESCREENSIZE 140732 . 142121) (CREATEWFROMIMAGE 142123 . +143086) (UPDATEWFROMIMAGE 143088 . 143700)) (144259 200061 (\MEDW.CREATEW 144269 . 148943) ( +\MEDW.OPENW 148945 . 151303) (\MEDW.CLOSEW 151305 . 152671) (\MEDW.MOVEW 152673 . 163285) ( +\MEDW.RELMOVEW 163287 . 163666) (\MEDW.SHRINKW 163668 . 171852) (\MEDW.EXPANDW 171854 . 174121) ( +\MEDW.SHAPEW 174123 . 178729) (\MEDW.REDISPLAYW 178731 . 180686) (\MEDW.BURYW 180688 . 181970) ( +\MEDW.TOTOPW 181972 . 183320) (\MEDW.DSPCREATE 183322 . 185764) (\GENERIC.DSPCREATE 185766 . 189230) ( +\MEDW.GETWINDOWPROP 189232 . 191470) (\MEDW.PUTWINDOWPROP 191472 . 198257) (\MEDW.CURSOR 198259 . +200059)) (200062 200682 (\GENERIC.CURSOR 200072 . 200680))))) STOP diff --git a/sources/WINDOW.LCOM b/sources/WINDOW.LCOM index f143584d8..0cb9f36e7 100644 Binary files a/sources/WINDOW.LCOM and b/sources/WINDOW.LCOM differ diff --git a/sources/XCCS b/sources/XCCS new file mode 100644 index 000000000..059bd67a1 --- /dev/null +++ b/sources/XCCS @@ -0,0 +1,297 @@ +(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP") +(FILECREATED "24-Jun-2021 23:15:05" {DSK}kaplan>Local>medley3.5>git-medley>sources>XCCS.;36 13925 + + changes to%: (VARS XCCSCOMS) + + previous date%: "24-Jun-2021 16:47:37" +{DSK}kaplan>Local>medley3.5>git-medley>sources>XCCS.;35) + + +(PRETTYCOMPRINT XCCSCOMS) + +(RPAQQ XCCSCOMS + [(FNS ACCESS-CHARSET) + (FNS \XCCSINCCODE \XCCSPEEKCCODE \XCCSOUTCHAR \XCCSBACKCCODE \XCCSFORMATBYTESTREAM) + (FNS \CREATE.XCCS.EXTERNALFORMAT) + (FNS \NSIN.24BITENCODING.ERROR) + (INITVARS (*SIGNAL-24BIT-NSENCODING-ERROR*)) + (GLOBALVARS \DEFAULTINCCODE \DEFAULTOUTCHAR \DEFAULTBACKCCODE \DEFAULTPEEKCCODE) + (INITVARS (\DEFAULTINCCODE '\XCCSINCCODE) + (\DEFAULTOUTCHAR '\XCCSOUTCHAR) + (\DEFAULTPEEKCCODE '\XCCSPEEKCCODE) + (\DEFAULTBACKCCODE '\XCCSBACKCCODE)) + (DECLARE%: EVAL@COMPILE DONTCOPY (EXPORT (CONSTANTS (\NORUNCODE 255) + (NSCHARSETSHIFT 255)) + (MACROS \RUNCODED) + (OPTIMIZERS ACCESS-CHARSET))) + (DECLARE%: DONTEVAL@LOAD DOCOPY (P (\CREATE.XCCS.EXTERNALFORMAT]) +(DEFINEQ + +(ACCESS-CHARSET + [LAMBDA (STREAM NEWVALUE) (* ; "Edited 11-Sep-87 15:46 by bvm:") + (FDEVOP 'CHARSETFN (fetch (STREAM DEVICE) of STREAM) + STREAM NEWVALUE]) +) +(DEFINEQ + +(\XCCSINCCODE + [LAMBDA (STREAM BYTECOUNTVAR BYTECOUNTVAL) (* ; "Edited 21-Jun-2021 15:44 by rmk:") + +(* ;;; "Returns a 16 bit character code. SHIFTEDCSET is STREAM's char set left shifted 8.") + +(* ;;; "If BYTECOUNTVAR is non-NIL, it is freely incremented by number of bytes read. If BYTECOUNTVAL is given it is the current value, saves the call to EVAL.") + +(* ;;; "This doesn't do EOL conversion, \INCHAR does that") + + (LET (NUMBYTES (CSET (ACCESS-CHARSET STREAM)) + (CHAR (\BIN STREAM))) (* ; + "Error on EOF unless ENDOFSTREAMOP does something else.") + + (* ;; " NUMBYTES tracks the number of \BINs. ") + + (IF (EQ CHAR NSCHARSETSHIFT) + THEN (* ; + "Shifting character sets, toss CHAR") + (SETQ CSET (\BIN STREAM)) + (IF (NEQ NSCHARSETSHIFT CSET) + THEN (* ; + "Shift to new runcode CSET: SH CS CH") + (ACCESS-CHARSET STREAM CSET) + (SETQ CHAR (\BIN STREAM)) + (SETQ NUMBYTES 3) + ELSEIF (EQ 0 (\BIN STREAM)) + THEN (* ; "SH SH CSH CS CH where CSH is 0") + + (* ;; + "The high-order character set byte must be 0, because we don't support obese characters (24 bit)") + + (SETQ CSET (\BIN STREAM)) + (SETQ CHAR (\BIN STREAM)) (* ; "To align with below") + (SETQ NUMBYTES 5) + (ACCESS-CHARSET STREAM \NORUNCODE) + ELSE (\NSIN.24BITENCODING.ERROR STREAM)) + + (* ;; "The stream now knows the new character set, runcoded or not.") + + ELSEIF (EQ CSET \NORUNCODE) + THEN (* ; "2-bytes") + (SETQ CSET CHAR) + (SETQ CHAR (\BIN STREAM)) + (SETQ NUMBYTES 2) + ELSE + + (* ;; "Runcoded CSET and CHAR") + + (SETQ NUMBYTES 1)) + (AND BYTECOUNTVAR (SET BYTECOUNTVAR (IDIFFERENCE BYTECOUNTVAL NUMBYTES))) + (CL:WHEN CHAR (* ; + "Typically NIL if ENDOFSTREAMOP returned NIL at EOF ") + (LOGOR (UNFOLD CSET 256) + CHAR))]) + +(\XCCSPEEKCCODE + [LAMBDA (STREAM NOERROR) (* ; "Edited 21-Jun-2021 23:44 by rmk:") + + (* ;; + "Modeled on \XCCSINCCODE, but peeks at the last byte in the sequence, leaves the stream unchanged") + + (LET ((CSET (ACCESS-CHARSET STREAM)) + (CHAR (\PEEKBIN STREAM NOERROR))) + + (* ;; + "Returns a 16 bit character code. Doesn't do EOL conversion--\PEEKCCODE does that. ") + + (* ;; "We don't change the charset in the stream, put the file ptr back the way it was.") + + (CL:WHEN CHAR + (IF (EQ CHAR NSCHARSETSHIFT) + THEN (\BIN STREAM) (* ; "Read the peeked shifting byte") + (SETQ CSET (\BIN STREAM)) (* ; "Consume the char shift byte") + (IF (NEQ CSET NSCHARSETSHIFT) + THEN + + (* ;; + "Shift to new runcode CSET: SH CS CH. We have to BIN what we peeked, BIN, and peek again") + + (SETQ CHAR (\PEEKBIN STREAM NOERROR)) + (\BACKFILEPTR STREAM) + (\BACKFILEPTR STREAM) + ELSEIF (EQ 0 (\BIN STREAM)) + THEN (* ; "SH SH CSH CS CH where CSH is 0") + + (* ;; + "Note: no eof error check on this \BIN -- an eof in the middle of a charset shift is an error") + + (SETQ CSET (\BIN STREAM)) + (SETQ CHAR (\PEEKBIN STREAM NOERROR)) + (\BACKFILEPTR STREAM) + (\BACKFILEPTR STREAM) + (\BACKFILEPTR STREAM) + (\BACKFILEPTR STREAM) + ELSE (\NSIN.24BITENCODING.ERROR STREAM)) + ELSEIF (EQ CSET \NORUNCODE) + THEN (* ; "2 byte runs, BIN/PEEK/BACK") + (SETQ CSET CHAR) + (\BIN STREAM) + (SETQ CHAR (\PEEKBIN STREAM NOERROR)) (* ; "One BACKFILEPTR seems OK") + (\BACKFILEPTR STREAM)) + + (* ;; "No need to back up for the runcoded case") + + (CL:WHEN CHAR + (LOGOR (UNFOLD CSET 256) + CHAR)))]) + +(\XCCSOUTCHAR + [LAMBDA (STREAM CHARCODE) (* ; "Edited 21-Jun-2021 13:28 by rmk:") + + (* ;; "Closed function for the :XCCS external format, also called when :XCCS is the default") + + (COND + ((EQ CHARCODE (CHARCODE EOL)) + [COND + [(NOT (\RUNCODED STREAM)) (* ; + "Charset is a constant 0, we put out the high-order byte.") + (\BOUT STREAM (\CHARSET (CHARCODE EOL] + ((EQ (\CHARSET (CHARCODE EOL)) + (ffetch (STREAM CHARSET) of STREAM))) + (T (* ; + "We are runcoded, and not in character set 0, have to shift.") + (\BOUT STREAM NSCHARSETSHIFT) + (\BOUT STREAM (freplace (STREAM CHARSET) of STREAM with (\CHARSET + (CHARCODE EOL] + + (* ;; "We are now in the right charset (0) for the first EOL byte. For CRLF, the CR is immediately followed by the LF byte, without the prefix 0 byte even if not runcoded, i.e. the 2 bytes are though of as a composite. The stream is left in CSET0 (the freplace above), read for another shift according to the next shift in a runcoded file.") + + (\BOUTEOL STREAM) + (freplace CHARPOSITION of STREAM with 0)) + (T [COND + ((NOT (\RUNCODED STREAM)) + (\BOUT STREAM (\CHARSET CHARCODE)) + (\BOUT STREAM (\CHAR8CODE CHARCODE))) + ((EQ (\CHARSET CHARCODE) + (ffetch (STREAM CHARSET) of STREAM)) + (\BOUT STREAM (\CHAR8CODE CHARCODE))) + (T (\BOUT STREAM NSCHARSETSHIFT) + (\BOUT STREAM (freplace (STREAM CHARSET) of STREAM with (\CHARSET + CHARCODE)) + ) + (\BOUT STREAM (\CHAR8CODE CHARCODE] + (freplace CHARPOSITION of STREAM with (PROGN + (* ; "Ugh. Don't overflow") + (IPLUS16 (ffetch CHARPOSITION + of STREAM) + 1]) + +(\XCCSBACKCCODE + [LAMBDA (STREAM BYTECOUNTVAR BYTECOUNTVAL) (* ; "Edited 15-Jun-2021 10:26 by rmk:") + (CL:WHEN (\BACKFILEPTR STREAM) + + (* ;; "The immediately preceding byte must be a character byte. If it is a byte in a runcode, then we are done, even if the byte before is part of a shift sequence.") + + (* ;; "But if we are currently in a nonruncoded file, we have to go back one more to get the character set byte.") + + (* ;; "If we can't back up, we are already at the beginning.") + + [COND + [(EQ \NORUNCODE (ACCESS-CHARSET STREAM)) + (COND + ((\BACKFILEPTR STREAM) + (AND BYTECOUNTVAR (SET BYTECOUNTVAR (IPLUS BYTECOUNTVAL 2))) + T) + (BYTECOUNTVAR (SET BYTECOUNTVAR (ADD1 BYTECOUNTVAL] + (BYTECOUNTVAR (SET BYTECOUNTVAR (ADD1 BYTECOUNTVAL])]) + +(\XCCSFORMATBYTESTREAM + [LAMBDA (STREAM BYTESTREAM) (* ; "Edited 24-Jun-2021 16:47 by rmk:") + (REPLACE (STREAM CHARSET) OF BYTESTREAM WITH (FETCH (STREAM CHARSET) OF + STREAM]) +) +(DEFINEQ + +(\CREATE.XCCS.EXTERNALFORMAT + [LAMBDA NIL (* ; "Edited 24-Jun-2021 16:45 by rmk:") + +(* ;;; "Create the :XCCS external format. Stream's EOL overrides the (vacuous) default here") + + (\INSTALL.EXTERNALFORMAT (create EXTERNALFORMAT + NAME _ :XCCS + INCCODEFN _ (FUNCTION \XCCSINCCODE) + PEEKCCODEFN _ (FUNCTION \XCCSPEEKCCODE) + BACKCCODEFN _ (FUNCTION \XCCSBACKCCODE) + OUTCHARFN _ (FUNCTION \XCCSOUTCHAR) + FORMATBYTESTREAMFN _ (FUNCTION \XCCSFORMATBYTESTREAM) + EOL _ LF.EOLC + EOLVALID _ NIL]) +) +(DEFINEQ + +(\NSIN.24BITENCODING.ERROR + [LAMBDA (STREAM) (* bvm%: "12-Mar-86 15:35") + (DECLARE (USEDFREE *SIGNAL-24BIT-NSENCODING-ERROR*)) + +(* ;;; "Called if we see the sequence shift,shift on STREAM -- means shift to 24-bit character set, which we don't support. Usually this just means we're erroneously reading a binary file as text. If this function returns, its value is taken as a character set to shift to") + + (COND + (*SIGNAL-24BIT-NSENCODING-ERROR* (* ; + "Only cause error if user/reader cares") + (ERROR "24-bit NS encoding not supported" STREAM))) + (* ; "Return charset zero") + 0]) +) + +(RPAQ? *SIGNAL-24BIT-NSENCODING-ERROR* ) +(DECLARE%: DOEVAL@COMPILE DONTCOPY + +(GLOBALVARS \DEFAULTINCCODE \DEFAULTOUTCHAR \DEFAULTBACKCCODE \DEFAULTPEEKCCODE) +) + +(RPAQ? \DEFAULTINCCODE '\XCCSINCCODE) + +(RPAQ? \DEFAULTOUTCHAR '\XCCSOUTCHAR) + +(RPAQ? \DEFAULTPEEKCCODE '\XCCSPEEKCCODE) + +(RPAQ? \DEFAULTBACKCCODE '\XCCSBACKCCODE) +(DECLARE%: EVAL@COMPILE DONTCOPY +(* "FOLLOWING DEFINITIONS EXPORTED")(DECLARE%: EVAL@COMPILE + +(RPAQQ \NORUNCODE 255) + +(RPAQQ NSCHARSETSHIFT 255) + + +(CONSTANTS (\NORUNCODE 255) + (NSCHARSETSHIFT 255)) +) +(DECLARE%: EVAL@COMPILE + +(PUTPROPS \RUNCODED MACRO (OPENLAMBDA (STREAM) + + (* ;; "returns NIL is the stream is not runcoded, that is, if the stream has 16 bit bytes explicitly represented") + (* ; + "note that neq is ok since charsets are known to be SMALLP's") + (NEQ (fetch CHARSET of STREAM) + \NORUNCODE))) +) + +(DEFOPTIMIZER ACCESS-CHARSET (STREAM &OPTIONAL NEWVALUE) + `((OPENLAMBDA (STRM) + (FDEVOP 'CHARSETFN (fetch (STREAM DEVICE) of STRM) + STRM + ,NEWVALUE)) + ,STREAM)) + +(* "END EXPORTED DEFINITIONS") + +) +(DECLARE%: DONTEVAL@LOAD DOCOPY + +(\CREATE.XCCS.EXTERNALFORMAT) +) +(DECLARE%: DONTCOPY + (FILEMAP (NIL (1292 1521 (ACCESS-CHARSET 1302 . 1519)) (1522 10652 (\XCCSINCCODE 1532 . 4344) ( +\XCCSPEEKCCODE 4346 . 6882) (\XCCSOUTCHAR 6884 . 9422) (\XCCSBACKCCODE 9424 . 10323) ( +\XCCSFORMATBYTESTREAM 10325 . 10650)) (10653 11497 (\CREATE.XCCS.EXTERNALFORMAT 10663 . 11495)) (11498 + 12329 (\NSIN.24BITENCODING.ERROR 11508 . 12327))))) +STOP diff --git a/sources/XCCS.LCOM b/sources/XCCS.LCOM new file mode 100644 index 000000000..faf2592c5 Binary files /dev/null and b/sources/XCCS.LCOM differ diff --git a/sources/XXFILL b/sources/XXFILL index 240470cbc..57b1437df 100644 --- a/sources/XXFILL +++ b/sources/XXFILL @@ -1,63 +1,64 @@ (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) -(FILECREATED "19-Jan-93 11:29:57" {DSK}lde>lispcore>sources>XXFILL.;2 57665 +(FILECREATED "13-Jun-2021 14:41:44"  +{DSK}kaplan>Local>medley3.5>git-medley>sources>XXFILL.;2 56697 - changes to%: (RECORDS SCAN FILL.TBLE) + changes to%: (FNS SHEDSCAN) - previous date%: "14-Jun-90 09:29:51" {DSK}lde>lispcore>sources>XXFILL.;1) + previous date%: "19-Jan-93 11:29:57" +{DSK}kaplan>Local>medley3.5>git-medley>sources>XXFILL.;1) (* ; " -Copyright (c) 1985, 1986, 1987, 1988, 1989, 1990, 1993 by Venue & Xerox Corporation. All rights reserved. +Copyright (c) 1985-1990, 1993, 2021 by Venue & Xerox Corporation. ") (PRETTYCOMPRINT XXFILLCOMS) -(RPAQQ XXFILLCOMS ((COMS +(RPAQQ XXFILLCOMS + ((COMS -(* ;;; "Filled Polygons") +(* ;;; "Filled Polygons") - (FNS SCAN.LESSP CRIT.LESSP) - (DECLARE%: EVAL@COMPILE DONTCOPY (RECORDS SCAN)) - (INITRECORDS SCAN) - (VARS FILL.WRULE \FILL.DEBUG) - (DECLARE%: EVAL@COMPILE DONTCOPY (GLOBALVARS \FILL.DEBUG) - (MACROS \NORMSECT \DrawScanList.Blt \DrawScanList.Display - \DrawScanList.XScan.IP \DrawScanList.YScan.IP)) - (FNS MAKESCAN SHEDSCAN NORMSECT CRITSECT) - (FNS \POLYSHADE.BLT \POLYSHADE.DISPLAY \POLYSHADE.XSCAN.IP - \POLYSHADE.YSCAN.IP) - (FNS POLYSHADE.BLT POLYSHADE.DISPLAY POLYSHADE.IP POLYSHADE.SCAN.IP) - (FNS FILLTRIANGLE)) - (COMS + (FNS SCAN.LESSP CRIT.LESSP) + (DECLARE%: EVAL@COMPILE DONTCOPY (RECORDS SCAN)) + (INITRECORDS SCAN) + (VARS FILL.WRULE \FILL.DEBUG) + (DECLARE%: EVAL@COMPILE DONTCOPY (GLOBALVARS \FILL.DEBUG) + (MACROS \NORMSECT \DrawScanList.Blt \DrawScanList.Display \DrawScanList.XScan.IP + \DrawScanList.YScan.IP)) + (FNS MAKESCAN SHEDSCAN NORMSECT CRITSECT) + (FNS \POLYSHADE.BLT \POLYSHADE.DISPLAY \POLYSHADE.XSCAN.IP \POLYSHADE.YSCAN.IP) + (FNS POLYSHADE.BLT POLYSHADE.DISPLAY POLYSHADE.IP POLYSHADE.SCAN.IP) + (FNS FILLTRIANGLE)) + (COMS -(* ;;; "Filled Circles") +(* ;;; "Filled Circles") - (FNS \CIRCSHADE.BLT \CIRCSHADE.DISPLAY \CIRCSHADE.IP \CIRCSHADE.XSCAN.IP - ) - (FNS CIRCSHADE.BLT CIRCSHADE.DISPLAY CIRCSHADE.IP) - (FNS FILLCIRCLE.IP FILLNGON.IP)) - (P (MOVD 'FILLCIRCLE.IP 'CIRCSHADE.IP)) - + (FNS \CIRCSHADE.BLT \CIRCSHADE.DISPLAY \CIRCSHADE.IP \CIRCSHADE.XSCAN.IP) + (FNS CIRCSHADE.BLT CIRCSHADE.DISPLAY CIRCSHADE.IP) + (FNS FILLCIRCLE.IP FILLNGON.IP)) + (P (MOVD 'FILLCIRCLE.IP 'CIRCSHADE.IP)) + -(* ;;; " Considering scan direction of the printer") +(* ;;; " Considering scan direction of the printer") - + -(* ;;; " You must set these vars before opening IMAGESTREAM") +(* ;;; " You must set these vars before opening IMAGESTREAM") - (COMS (VARS (PRINTER.DEFAULT.SCAN.DIRECTION 'Y) - (PRINTER.SCAN.DIRECTIONS.LIST))) - (COMS + (COMS (VARS (PRINTER.DEFAULT.SCAN.DIRECTION 'Y) + (PRINTER.SCAN.DIRECTIONS.LIST))) + (COMS -(* ;;; "PBBT Optimized routines") +(* ;;; "PBBT Optimized routines") - (VARS PBBT.PANEL) - (DECLARE%: EVAL@COMPILE DONTCOPY (RECORDS FILL.TBLE)) - (INITRECORDS FILL.TBLE) - (FNS FILL.INITTBLE FILL.INCY FILL.LINE) - (FNS FILL.TEST FILL.XPER FILL.CONT)) - (DECLARE%: DOEVAL@COMPILE DONTCOPY (FILES (LOADCOMP) - INTERPRESS XXGEOM)))) + (VARS PBBT.PANEL) + (DECLARE%: EVAL@COMPILE DONTCOPY (RECORDS FILL.TBLE)) + (INITRECORDS FILL.TBLE) + (FNS FILL.INITTBLE FILL.INCY FILL.LINE) + (FNS FILL.TEST FILL.XPER FILL.CONT)) + (DECLARE%: DOEVAL@COMPILE DONTCOPY (FILES (LOADCOMP) + INTERPRESS XXGEOM)))) @@ -119,121 +120,119 @@ Copyright (c) 1985, 1986, 1987, 1988, 1989, 1990, 1993 by Venue & Xerox Corporat (DECLARE%: EVAL@COMPILE -[PUTPROPS \NORMSECT DMACRO ((SELF Y) - (LET (XL XR (GEOM (ffetch (SCAN GEOM) of SELF))) - (BRESSTEP GEOM Y XL XR) - (freplace (SCAN LX) of SELF with XL) - (freplace (SCAN RX) of SELF with XR] - -[PUTPROPS \DrawScanList.Blt DMACRO - ((strm scanlist scany) - - (* ;; "count, fill.shade fill.wrule fill.frule are dynamically scoped outside macro") - - (SETQ count 0) - [IF (EQ FILL.WRULE 1) - THEN (for scan in scanlist - do (SETQ count (IPLUS count 1)) - (if (ODDP count) - then (SETQ ex (IPLUS (ffetch (SCAN RX) of scan) - 1)) - else (BLTSHADE FILL.SHADE strm ex scany - (IDIFFERENCE (ffetch (SCAN LX) of scan) - ex) - 1 FILL.FRULE] - (IF (EQ FILL.WRULE 0) - THEN (for scan in scanlist +(PUTPROPS \NORMSECT DMACRO ((SELF Y) + (LET (XL XR (GEOM (ffetch (SCAN GEOM) of SELF))) + (BRESSTEP GEOM Y XL XR) + (freplace (SCAN LX) of SELF with XL) + (freplace (SCAN RX) of SELF with XR)))) + +(PUTPROPS \DrawScanList.Blt DMACRO + [(strm scanlist scany) + + (* ;; "count, fill.shade fill.wrule fill.frule are dynamically scoped outside macro") + + (SETQ count 0) + [IF (EQ FILL.WRULE 1) + THEN (for scan in scanlist + do (SETQ count (IPLUS count 1)) + (if (ODDP count) + then (SETQ ex (IPLUS (ffetch (SCAN RX) of scan) + 1)) + else (BLTSHADE FILL.SHADE strm ex scany + (IDIFFERENCE (ffetch (SCAN LX) of scan) + ex) + 1 FILL.FRULE] + (IF (EQ FILL.WRULE 0) + THEN (for scan in scanlist + do [if (EQ count 0) + then (SETQ ex (ADD1 (ffetch (SCAN RX) of scan] + (SETQ count (IPLUS count (ffetch (SCAN WC) of scan))) + (if (EQ count 0) + then (BLTSHADE FILL.SHADE strm ex scany + (IDIFFERENCE (ffetch (SCAN LX) of scan) + ex) + 1 FILL.FRULE]) + +(PUTPROPS \DrawScanList.Display DMACRO + [(strm scanlist scany) + + (* ;; "count, fill.shade fill.wrule fill.frule, table are dynamically scoped outside macro. Since if fill.wrule is 1 count is merely a toggle, use T and NIL.") + + [IF (EQ FILL.WRULE 1) + THEN (SETQ count NIL) + (for scan in scanlist + do (SETQ count (NOT count)) + (if count + then (SETQ ex (ADD1 (ffetch (SCAN RX) of scan))) + else (FILL.LINE table scany ex (ffetch (SCAN LX) + of scan] + (IF (EQ FILL.WRULE 0) + THEN (SETQ count 0) + (for scan in scanlist do [if (EQ count 0) then (SETQ ex (ADD1 (ffetch (SCAN RX) of scan] (SETQ count (IPLUS count (ffetch (SCAN WC) of scan))) (if (EQ count 0) - then (BLTSHADE FILL.SHADE strm ex scany - (IDIFFERENCE (ffetch (SCAN LX) of scan) - ex) - 1 FILL.FRULE] - -[PUTPROPS \DrawScanList.Display DMACRO - ((strm scanlist scany) - - (* ;; "count, fill.shade fill.wrule fill.frule, table are dynamically scoped outside macro. Since if fill.wrule is 1 count is merely a toggle, use T and NIL.") - - [IF (EQ FILL.WRULE 1) - THEN (SETQ count NIL) - (for scan in scanlist - do (SETQ count (NOT count)) - (if count - then (SETQ ex (ADD1 (ffetch (SCAN RX) of scan))) - else (FILL.LINE table scany ex (ffetch (SCAN LX) - of scan] - (IF (EQ FILL.WRULE 0) - THEN (SETQ count 0) - (for scan in scanlist - do [if (EQ count 0) - then (SETQ ex (ADD1 (ffetch (SCAN RX) of scan] - (SETQ count (IPLUS count (ffetch (SCAN WC) of scan))) - (if (EQ count 0) - then (FILL.LINE table scany ex (ffetch (SCAN LX) - of scan] - -[PUTPROPS \DrawScanList.XScan.IP DMACRO - ((strm scanlist scany) - - (* ;; "count, fill.shade fill.wrule fill.frule are dynamically scoped outside macro") - - (SETQ count 0) - [IF (EQ FILL.WRULE 1) - THEN (for scan in scanlist do (SETQ ix (fetch (SCAN LX) of scan)) - (SETQ tx (ffetch (SCAN RX) of scan)) - (SETQ count (IPLUS count 1)) - (if (ODDP count) - then (SETQ ex (IPLUS tx 1)) - else (FILLRECTANGLE.IP strm ex scany - (IDIFFERENCE ix ex) - 1] - (IF (EQ FILL.WRULE 0) - THEN (for scan in scanlist do (SETQ ix (fetch (SCAN LX) of scan)) - (SETQ tx (ffetch (SCAN RX) of scan)) - (if (EQ count 0) - then (SETQ ex (IPLUS tx 1))) - (SETQ count (IPLUS count (ffetch - (SCAN WC) - of scan))) - (if (EQ count 0) - then (FILLRECTANGLE.IP strm ex scany - (IDIFFERENCE ix ex) - 1] - -[PUTPROPS \DrawScanList.YScan.IP DMACRO - ((strm scanlist scany) - - (* ;; "count, fill.shade fill.wrule fill.frule are dynamically scoped outside macro * *") - - (SETQ count 0) - [IF (EQ FILL.WRULE 1) - THEN (for scan in scanlist - do (SETQ ix (fetch (SCAN LX) of scan)) - (SETQ tx (fetch (SCAN RX) of scan)) - (SETQ count (IPLUS count 1)) - (if (ODDP count) - then (SETQ ex (IPLUS tx 1)) - else - - (* ;; "Unreflect coordinates back") - - (FILLRECTANGLE.IP strm scany ix 1 (IDIFFERENCE ex ix] - (IF (EQ FILL.WRULE 0) - THEN (for scan in scanlist - do (SETQ ix (fetch (SCAN LX) of scan)) - (SETQ tx (fetch (SCAN RX) of scan)) - (if (EQ count 0) - then (SETQ ex (IPLUS tx 1))) - (SETQ count (IPLUS count (fetch (SCAN WC) of scan))) - (if (EQ count 0) - then - - (* ;; "Unreflect coordinates back") - - (FILLRECTANGLE.IP strm scany ix 1 (IDIFFERENCE ex ix] + then (FILL.LINE table scany ex (ffetch (SCAN LX) + of scan]) + +(PUTPROPS \DrawScanList.XScan.IP DMACRO + [(strm scanlist scany) + + (* ;; "count, fill.shade fill.wrule fill.frule are dynamically scoped outside macro") + + (SETQ count 0) + [IF (EQ FILL.WRULE 1) + THEN (for scan in scanlist + do (SETQ ix (fetch (SCAN LX) of scan)) + (SETQ tx (ffetch (SCAN RX) of scan)) + (SETQ count (IPLUS count 1)) + (if (ODDP count) + then (SETQ ex (IPLUS tx 1)) + else (FILLRECTANGLE.IP strm ex scany (IDIFFERENCE ix ex) + 1] + (IF (EQ FILL.WRULE 0) + THEN (for scan in scanlist + do (SETQ ix (fetch (SCAN LX) of scan)) + (SETQ tx (ffetch (SCAN RX) of scan)) + (if (EQ count 0) + then (SETQ ex (IPLUS tx 1))) + (SETQ count (IPLUS count (ffetch (SCAN WC) of scan))) + (if (EQ count 0) + then (FILLRECTANGLE.IP strm ex scany (IDIFFERENCE ix ex) + 1]) + +(PUTPROPS \DrawScanList.YScan.IP DMACRO + [(strm scanlist scany) + + (* ;; "count, fill.shade fill.wrule fill.frule are dynamically scoped outside macro * *") + + (SETQ count 0) + [IF (EQ FILL.WRULE 1) + THEN (for scan in scanlist + do (SETQ ix (fetch (SCAN LX) of scan)) + (SETQ tx (fetch (SCAN RX) of scan)) + (SETQ count (IPLUS count 1)) + (if (ODDP count) + then (SETQ ex (IPLUS tx 1)) + else + + (* ;; "Unreflect coordinates back") + + (FILLRECTANGLE.IP strm scany ix 1 (IDIFFERENCE ex ix] + (IF (EQ FILL.WRULE 0) + THEN (for scan in scanlist + do (SETQ ix (fetch (SCAN LX) of scan)) + (SETQ tx (fetch (SCAN RX) of scan)) + (if (EQ count 0) + then (SETQ ex (IPLUS tx 1))) + (SETQ count (IPLUS count (fetch (SCAN WC) of scan))) + (if (EQ count 0) + then + + (* ;; "Unreflect coordinates back") + + (FILLRECTANGLE.IP strm scany ix 1 (IDIFFERENCE ex ix]) ) ) (DEFINEQ @@ -249,9 +248,9 @@ Copyright (c) 1985, 1986, 1987, 1988, 1989, 1990, 1993 by Venue & Xerox Corporat SELF]) (SHEDSCAN - [LAMBDA (SELF) (* rrb " 6-Mar-86 16:24") + [LAMBDA (SELF) (* ; "Edited 13-Jun-2021 14:41 by rmk:") - (* * remove current edge and replace with next) + (* * remove current edge and replace with next) (LET (X0 Y0 DX DY YDIR EDGE TAIL BRES) (SETQ TAIL (fetch REST of SELF)) @@ -260,7 +259,7 @@ Copyright (c) 1985, 1986, 1987, 1988, 1989, 1990, 1993 by Venue & Xerox Corporat (GETLINEORIG EDGE X0 Y0) (GETLINEDIFF EDGE DX DY) (SETQ BRES (MAKEBRES X0 Y0 DX DY)) - (SETQ YDIR (fetch (LINE WIND) of EDGE)) + (SETQ YDIR (fetch (XXLINE WIND) of EDGE)) (replace (SCAN GEOM) of SELF with BRES) (replace (SCAN REST) of SELF with (CDR TAIL)) (replace (SCAN BY) of SELF with Y0) @@ -954,22 +953,23 @@ Copyright (c) 1985, 1986, 1987, 1988, 1989, 1990, 1993 by Venue & Xerox Corporat (* ;;; "PBBT Optimized routines") -(RPAQQ PBBT.PANEL ((NULL (SETQ MYDSTRM (\OUTSTREAMARG MYWIN)) - (TIMEALL (FILL.CONT MYDSTRM (RAND) - 'REPLACE 10 300) - 20) - (TIMEALL (FILL.TEST MYDSTRM (RAND) - 'REPLACE 10 300) - 20) - (TIMEALL (FILL.XPER MYDSTRM (RAND) - 'REPLACE 10 300) - 20) - (TIMEALL (FILLPOLYGON KLIST (RAND) - MYDSTRM) - 20) - (TIMEALL (BLTSHADE (RAND) - MYDSTRM 10 10 290 290 'REPLACE) - 20)))) +(RPAQQ PBBT.PANEL + ((NULL (SETQ MYDSTRM (\OUTSTREAMARG MYWIN)) + (TIMEALL (FILL.CONT MYDSTRM (RAND) + 'REPLACE 10 300) + 20) + (TIMEALL (FILL.TEST MYDSTRM (RAND) + 'REPLACE 10 300) + 20) + (TIMEALL (FILL.XPER MYDSTRM (RAND) + 'REPLACE 10 300) + 20) + (TIMEALL (FILLPOLYGON KLIST (RAND) + MYDSTRM) + 20) + (TIMEALL (BLTSHADE (RAND) + MYDSTRM 10 10 290 290 'REPLACE) + 20)))) (DECLARE%: EVAL@COMPILE DONTCOPY (DECLARE%: EVAL@COMPILE @@ -1170,17 +1170,17 @@ Copyright (c) 1985, 1986, 1987, 1988, 1989, 1990, 1993 by Venue & Xerox Corporat (FILESLOAD (LOADCOMP) INTERPRESS XXGEOM) ) -(PUTPROPS XXFILL COPYRIGHT ("Venue & Xerox Corporation" 1985 1986 1987 1988 1989 1990 1993)) +(PUTPROPS XXFILL COPYRIGHT ("Venue & Xerox Corporation" 1985 1986 1987 1988 1989 1990 1993 2021)) (DECLARE%: DONTCOPY - (FILEMAP (NIL (2690 3246 (SCAN.LESSP 2700 . 2970) (CRIT.LESSP 2972 . 3244)) (10805 13332 (MAKESCAN -10815 . 11134) (SHEDSCAN 11136 . 12015) (NORMSECT 12017 . 12298) (CRITSECT 12300 . 13330)) (13333 -25445 (\POLYSHADE.BLT 13343 . 16244) (\POLYSHADE.DISPLAY 16246 . 19298) (\POLYSHADE.XSCAN.IP 19300 . -22385) (\POLYSHADE.YSCAN.IP 22387 . 25443)) (25446 29450 (POLYSHADE.BLT 25456 . 25951) ( -POLYSHADE.DISPLAY 25953 . 26496) (POLYSHADE.IP 26498 . 27551) (POLYSHADE.SCAN.IP 27553 . 29448)) ( -29451 30218 (FILLTRIANGLE 29461 . 30216)) (30252 41279 (\CIRCSHADE.BLT 30262 . 33084) ( -\CIRCSHADE.DISPLAY 33086 . 35590) (\CIRCSHADE.IP 35592 . 38366) (\CIRCSHADE.XSCAN.IP 38368 . 41277)) ( -41280 43483 (CIRCSHADE.BLT 41290 . 41833) (CIRCSHADE.DISPLAY 41835 . 42398) (CIRCSHADE.IP 42400 . -43481)) (43484 46634 (FILLCIRCLE.IP 43494 . 44576) (FILLNGON.IP 44578 . 46632)) (49331 56392 ( -FILL.INITTBLE 49341 . 55700) (FILL.INCY 55702 . 56024) (FILL.LINE 56026 . 56390)) (56393 57462 ( -FILL.TEST 56403 . 56692) (FILL.XPER 56694 . 57086) (FILL.CONT 57088 . 57460))))) + (FILEMAP (NIL (2199 2755 (SCAN.LESSP 2209 . 2479) (CRIT.LESSP 2481 . 2753)) (10034 12577 (MAKESCAN +10044 . 10363) (SHEDSCAN 10365 . 11260) (NORMSECT 11262 . 11543) (CRITSECT 11545 . 12575)) (12578 +24690 (\POLYSHADE.BLT 12588 . 15489) (\POLYSHADE.DISPLAY 15491 . 18543) (\POLYSHADE.XSCAN.IP 18545 . +21630) (\POLYSHADE.YSCAN.IP 21632 . 24688)) (24691 28695 (POLYSHADE.BLT 24701 . 25196) ( +POLYSHADE.DISPLAY 25198 . 25741) (POLYSHADE.IP 25743 . 26796) (POLYSHADE.SCAN.IP 26798 . 28693)) ( +28696 29463 (FILLTRIANGLE 28706 . 29461)) (29497 40524 (\CIRCSHADE.BLT 29507 . 32329) ( +\CIRCSHADE.DISPLAY 32331 . 34835) (\CIRCSHADE.IP 34837 . 37611) (\CIRCSHADE.XSCAN.IP 37613 . 40522)) ( +40525 42728 (CIRCSHADE.BLT 40535 . 41078) (CIRCSHADE.DISPLAY 41080 . 41643) (CIRCSHADE.IP 41645 . +42726)) (42729 45879 (FILLCIRCLE.IP 42739 . 43821) (FILLNGON.IP 43823 . 45877)) (48358 55419 ( +FILL.INITTBLE 48368 . 54727) (FILL.INCY 54729 . 55051) (FILL.LINE 55053 . 55417)) (55420 56489 ( +FILL.TEST 55430 . 55719) (FILL.XPER 55721 . 56113) (FILL.CONT 56115 . 56487))))) STOP diff --git a/sources/XXFILL.LCOM b/sources/XXFILL.LCOM index c63b4e1d2..9e356fc8d 100644 Binary files a/sources/XXFILL.LCOM and b/sources/XXFILL.LCOM differ diff --git a/sources/XXGEOM b/sources/XXGEOM index ce1f9f339..3c738f96a 100644 --- a/sources/XXGEOM +++ b/sources/XXGEOM @@ -1,69 +1,75 @@ (DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP") -(FILECREATED "19-Jan-93 11:30:54" {DSK}lde>lispcore>sources>XXGEOM.;2 49900 +(FILECREATED "13-Jun-2021 14:39:29"  +{DSK}kaplan>Local>medley3.5>git-medley>sources>XXGEOM.;2 49841 - changes to%: (RECORDS XYPT LINE BRES) + changes to%: (VARS XXGEOMCOMS) + (RECORDS XXLINE) + (FNS MAKELINE LINE.LESSP) + (MACROS \GETLINEORIGY \GETLINEDIFFY) - previous date%: "23-May-90 13:39:37" {DSK}lde>lispcore>sources>XXGEOM.;1) + previous date%: "19-Jan-93 11:30:54" +{DSK}kaplan>Local>medley3.5>git-medley>sources>XXGEOM.;1) (* ; " -Copyright (c) 1985, 1986, 1987, 1990, 1993 by Venue & Xerox Corporation. All rights reserved. +Copyright (c) 1985-1987, 1990, 1993, 2021 by Venue & Xerox Corporation. ") (PRETTYCOMPRINT XXGEOMCOMS) -(RPAQQ XXGEOMCOMS ( +(RPAQQ XXGEOMCOMS + ( -(* ;;; "Integer Geometry Library") +(* ;;; "Integer Geometry Library") - + -(* ;;; "Scalar methods") +(* ;;; "Scalar methods") - (DECLARE%: EVAL@COMPILE DONTCOPY (MACROS \SGN)) - (FNS \IRND) - + (DECLARE%: EVAL@COMPILE DONTCOPY (MACROS \SGN)) + (FNS \IRND) + -(* ;;; "XYpt object and methods") +(* ;;; "XYpt object and methods") - (RECORDS XYPT) - (DECLARE%: EVAL@COMPILE DONTCOPY (MACROS XYPT.X XYPT.Y)) - (DECLARE%: EVAL@COMPILE DONTCOPY (MACROS HEADPT NEXTPT HEADPTY NEXTPTY)) - (FNS MAKEXYPT IRNDLIST NORMLOOP SLITLOOP PREPLOOP YMAPLIST IMAPLIST UNIQLIST - MERGLIST MMLTLIST IMLTLIST XYPT.LESSP PATH.LESSP CONVEXP) - + (RECORDS XYPT) + (DECLARE%: EVAL@COMPILE DONTCOPY (MACROS XYPT.X XYPT.Y)) + (DECLARE%: EVAL@COMPILE DONTCOPY (MACROS HEADPT NEXTPT HEADPTY NEXTPTY)) + (FNS MAKEXYPT IRNDLIST NORMLOOP SLITLOOP PREPLOOP YMAPLIST IMAPLIST UNIQLIST MERGLIST + MMLTLIST IMLTLIST XYPT.LESSP PATH.LESSP CONVEXP) + -(* ;;; "Line object and methods") +(* ;;; "Line object and methods") - (RECORDS LINE) - (DECLARE%: EVAL@COMPILE DONTCOPY (MACROS GETLINEDIFF GETLINEORIG \GETLINEDIFF - \GETLINEORIGY \GETLINEDIFFY)) - (FNS MAKELINE MSECT XSECT YSECT XYSECT KNOTLINE KNOTLOOP LINE.LESSP) - (FNS LINEY MIDDX INITX TERMX SCANX XPROD) - + (RECORDS XXLINE) + (DECLARE%: EVAL@COMPILE DONTCOPY (MACROS GETLINEDIFF GETLINEORIG \GETLINEDIFF \GETLINEORIGY + \GETLINEDIFFY)) + (FNS MAKELINE MSECT XSECT YSECT XYSECT KNOTLINE KNOTLOOP LINE.LESSP) + (FNS LINEY MIDDX INITX TERMX SCANX XPROD) + -(* ;;; "line segment methods") +(* ;;; "line segment methods") - (FNS XYSECTLSEG) - + (FNS XYSECTLSEG) + -(* ;;; "Bresenham line object and methods") +(* ;;; "Bresenham line object and methods") - (RECORDS BRES) - (FNS MAKEBRES) - (DECLARE%: EVAL@COMPILE DONTCOPY (MACROS BRESSTEP)) - + (RECORDS BRES) + (FNS MAKEBRES) + (DECLARE%: EVAL@COMPILE DONTCOPY (MACROS BRESSTEP)) + -(* ;;; "Debugging control panel") +(* ;;; "Debugging control panel") - (DECLARE%: EVAL@COMPILE DONTCOPY (VARS \GEOM.PANEL)) - + (DECLARE%: EVAL@COMPILE DONTCOPY (VARS \GEOM.PANEL)) + -(* ;;; "Trapezoidal decomposition") +(* ;;; "Trapezoidal decomposition") - (FNS TRAPLOOP TRAPMAKE) - (VARS TRAP.DEBUG) - (DECLARE%: EVAL@COMPILE DONTCOPY (VARS \TRAP.PANEL)))) + (FNS TRAPLOOP TRAPMAKE) + (VARS TRAP.DEBUG) + (DECLARE%: EVAL@COMPILE DONTCOPY (VARS \TRAP.PANEL)))) @@ -77,12 +83,12 @@ Copyright (c) 1985, 1986, 1987, 1990, 1993 by Venue & Xerox Corporation. All ri (DECLARE%: EVAL@COMPILE DONTCOPY (DECLARE%: EVAL@COMPILE -(PUTPROPS \SGN DMACRO ((VAL) - (if (IGREATERP VAL 0) - then 1 - elseif (ILESSP VAL 0) - then -1 - else 0))) +(PUTPROPS \SGN DMACRO ((VAL) + (if (IGREATERP VAL 0) + then 1 + elseif (ILESSP VAL 0) + then -1 + else 0))) ) ) (DEFINEQ @@ -112,27 +118,27 @@ Copyright (c) 1985, 1986, 1987, 1990, 1993 by Venue & Xerox Corporation. All ri (DECLARE%: EVAL@COMPILE DONTCOPY (DECLARE%: EVAL@COMPILE -(PUTPROPS XYPT.X DMACRO ((PT) - (CAR PT))) +(PUTPROPS XYPT.X DMACRO ((PT) + (CAR PT))) -(PUTPROPS XYPT.Y DMACRO ((PT) - (CDR PT))) +(PUTPROPS XYPT.Y DMACRO ((PT) + (CDR PT))) ) ) (DECLARE%: EVAL@COMPILE DONTCOPY (DECLARE%: EVAL@COMPILE -(PUTPROPS HEADPT DMACRO ((PATH) - (CAR PATH))) +(PUTPROPS HEADPT DMACRO ((PATH) + (CAR PATH))) -(PUTPROPS NEXTPT DMACRO ((PATH) - (CADR PATH))) +(PUTPROPS NEXTPT DMACRO ((PATH) + (CADR PATH))) -(PUTPROPS HEADPTY DMACRO ((PATH) - (CDAR PATH))) +(PUTPROPS HEADPTY DMACRO ((PATH) + (CDAR PATH))) -(PUTPROPS NEXTPTY DMACRO ((PATH) - (CDADR PATH))) +(PUTPROPS NEXTPTY DMACRO ((PATH) + (CDADR PATH))) ) ) (DEFINEQ @@ -574,58 +580,61 @@ Copyright (c) 1985, 1986, 1987, 1990, 1993 by Venue & Xerox Corporation. All ri (DECLARE%: EVAL@COMPILE -(RECORD LINE (ORIG DIFF WIND)) +(RECORD XXLINE (ORIG DIFF WIND)) ) (DECLARE%: EVAL@COMPILE DONTCOPY (DECLARE%: EVAL@COMPILE -[PUTPROPS GETLINEDIFF DMACRO ((SELF DX DY) +(PUTPROPS GETLINEDIFF DMACRO [(SELF DX DY) - (* ;; "External method, get dx, dy from line") + (* ;; "External method, get dx, dy from line") - (WITH LINE SELF (SETQ DX (ffetch (XYPT X) of DIFF)) - (SETQ DY (ffetch (XYPT Y) OF DIFF] + (WITH LINE SELF (SETQ DX (ffetch (XYPT X) of DIFF)) + (SETQ DY (ffetch (XYPT Y) OF DIFF]) -[PUTPROPS GETLINEORIG DMACRO ((SELF OX OY) +(PUTPROPS GETLINEORIG DMACRO [(SELF OX OY) - (* ;; "External method, get dx, dy from line") + (* ;; "External method, get dx, dy from line") - (WITH LINE SELF (SETQ OX (ffetch (XYPT X) of ORIG)) - (SETQ OY (ffetch (XYPT Y) OF ORIG] + (WITH LINE SELF (SETQ OX (ffetch (XYPT X) of ORIG)) + (SETQ OY (ffetch (XYPT Y) OF ORIG]) -[PUTPROPS \GETLINEDIFF DMACRO ((SELF DX DY) (* edited " 1-Jan-00 00:00") +(PUTPROPS \GETLINEDIFF DMACRO [(SELF DX DY) (* edited " 1-Jan-00 00:00") - (* ;; "Degenerate private method, get dx, dy from line") + (* ;; "Degenerate private method, get dx, dy from line") - (WITH LINE SELF (SETQ DX (FFETCH (XYPT X) OF DIFF)) - (SETQ DY (FFETCH (XYPT T) OF DIFF] + (WITH LINE SELF (SETQ DX (FFETCH (XYPT X) OF + DIFF)) + (SETQ DY (FFETCH (XYPT T) OF DIFF]) -[PUTPROPS \GETLINEORIGY DMACRO ((SELF YPTR) - (SETQ YPTR (FFETCH (XYPT Y) of (FFETCH (LINE ORIG) - of SELF] +(PUTPROPS \GETLINEORIGY DMACRO [(SELF YPTR) + (SETQ YPTR (FFETCH (XYPT Y) of (FFETCH + (XXLINE ORIG) + of SELF]) -[PUTPROPS \GETLINEDIFFY DMACRO ((SELF YPTR) - (SETQ YPTR (FFETCH (XYPT Y) of (FFETCH (LINE DIFF) - of SELF] +(PUTPROPS \GETLINEDIFFY DMACRO [(SELF YPTR) + (SETQ YPTR (FFETCH (XYPT Y) of (FFETCH + (XXLINE DIFF) + of SELF]) ) ) (DEFINEQ (MAKELINE - [LAMBDA (X0 Y0 DX DY) (* FS "29-Aug-85 17:48") - - (* * To simplify bresenham arithmetic, switch all lines to have positive dy. - True direction is held in WIND.) + [LAMBDA (X0 Y0 DX DY) (* ; "Edited 13-Jun-2021 14:38 by rmk:") + + (* * To simplify bresenham arithmetic, switch all lines to have positive dy. + True direction is held in WIND.) (LET (DIR) (if (ILESSP DY 0) then (SETQ X0 (IPLUS X0 DX)) - (SETQ Y0 (IPLUS Y0 DY)) - (SETQ DX (IMINUS DX)) - (SETQ DY (IMINUS DY)) - (SETQ DIR -1) + (SETQ Y0 (IPLUS Y0 DY)) + (SETQ DX (IMINUS DX)) + (SETQ DY (IMINUS DY)) + (SETQ DIR -1) else (SETQ DIR 1)) - (create LINE + (create XXLINE ORIG _ (MAKEXYPT X0 Y0) DIFF _ (MAKEXYPT DX DY) WIND _ DIR]) @@ -730,9 +739,9 @@ Copyright (c) 1985, 1986, 1987, 1990, 1993 by Venue & Xerox Corporation. All ri (RETURN (REVERSE ALIST]) (LINE.LESSP - [LAMBDA (ARG1 ARG2) (* FS " 6-Aug-85 17:58") - - (* * comment) + [LAMBDA (ARG1 ARG2) (* FS " 6-Aug-85 17:58") + + (* * comment) (LET (Y1 Y2 DY1 DY2) (\GETLINEORIGY ARG1 Y1) @@ -740,8 +749,8 @@ Copyright (c) 1985, 1986, 1987, 1990, 1993 by Venue & Xerox Corporation. All ri (if (NEQ Y1 Y2) then (ILEQ Y1 Y2) else (\GETLINEDIFFY ARG1 DY1) - (\GETLINEDIFFY ARG2 DY2) - (ILEQ DY1 DY2]) + (\GETLINEDIFFY ARG2 DY2) + (ILEQ DY1 DY2]) ) (DEFINEQ @@ -979,55 +988,56 @@ Copyright (c) 1985, 1986, 1987, 1990, 1993 by Venue & Xerox Corporation. All ri (DECLARE%: EVAL@COMPILE DONTCOPY (DECLARE%: EVAL@COMPILE -[PUTPROPS BRESSTEP DMACRO ((SELF SCANY INITX TERMX) - - (* * Assume that this Y is exactly incremented by one from the last call, so - DDA can be used. Then passed parameter scany is not used.) - - (* * (WITH BRES SELF (*) (SETQ INITX X) - (IF (EQ MAJOR (QUOTE X)) THEN (while (ILESSP P 0) do - (SETQ X (IPLUS X IX)) (SETQ P (IPLUS P IPX))) - (IF (ILEQ INITX X) THEN (SETQ TERMX X) ELSE - (SETQ TERMX INITX) (SETQ INITX X)) (SETQ X - (IPLUS X IX)) (SETQ P (IPLUS P IPY)) ELSE - (SETQ TERMX X) (if (ILESSP P 0) then (SETQ P - (IPLUS P IPY)) else (SETQ P (IPLUS P IPX)) - (SETQ X (IPLUS X IX)))))) - - (LET (X0 DX D DDX DDY) - - (* * (WITH BRES SELF (*) (SETQ X0 X) (SETQ DX IX) - (SETQ D P) (SETQ DDX IPX) (SETQ DDY IPY))) - - (SETQ D (FFETCH (BRES P) OF SELF)) - (SETQ X0 (FFETCH (BRES X) OF SELF)) - (SETQ DX (FFETCH (BRES IX) OF SELF)) - (SETQ DDX (FFETCH (BRES IPX) OF SELF)) - (SETQ DDY (FFETCH (BRES IPY) OF SELF)) - - (* * Above faster than WITH form * *) - - (SETQ INITX X0) - [IF (EQ (FFETCH (BRES MAJOR) OF SELF) - 'X) - THEN (while (ILESSP D 0) do (SETQ X0 (IPLUS X0 DX)) - (SETQ D (IPLUS D DDX))) - (IF (ILEQ INITX X0) - THEN (SETQ TERMX X0) - ELSE (SETQ TERMX INITX) - (SETQ INITX X0)) - (SETQ X0 (IPLUS X0 DX)) - (SETQ D (IPLUS D DDY)) - ELSE (SETQ TERMX X0) - (if (ILESSP D 0) - then (SETQ D (IPLUS D DDY)) - else (SETQ D (IPLUS D DDX)) - (SETQ X0 (IPLUS X0 DX] - - (* * (WITH BRES SELF (*) (SETQ X X0) (SETQ P D))) - - (FREPLACE (BRES X) OF SELF with X0) - (FREPLACE (BRES P) OF SELF with D] +(PUTPROPS BRESSTEP DMACRO ((SELF SCANY INITX TERMX) + + (* * Assume that this Y is exactly incremented by one from the last call, so + DDA can be used. Then passed parameter scany is not used.) + + (* * (WITH BRES SELF (*) (SETQ INITX X) + (IF (EQ MAJOR (QUOTE X)) THEN (while (ILESSP P 0) do + (SETQ X (IPLUS X IX)) (SETQ P (IPLUS P IPX))) + (IF (ILEQ INITX X) THEN (SETQ TERMX X) ELSE + (SETQ TERMX INITX) (SETQ INITX X)) (SETQ X + (IPLUS X IX)) (SETQ P (IPLUS P IPY)) ELSE + (SETQ TERMX X) (if (ILESSP P 0) then (SETQ P + (IPLUS P IPY)) else (SETQ P (IPLUS P IPX)) + (SETQ X (IPLUS X IX)))))) + + (LET (X0 DX D DDX DDY) + + (* * (WITH BRES SELF (*) (SETQ X0 X) (SETQ DX IX) + (SETQ D P) (SETQ DDX IPX) (SETQ DDY IPY))) + + (SETQ D (FFETCH (BRES P) OF SELF)) + (SETQ X0 (FFETCH (BRES X) OF SELF)) + (SETQ DX (FFETCH (BRES IX) OF SELF)) + (SETQ DDX (FFETCH (BRES IPX) OF SELF)) + (SETQ DDY (FFETCH (BRES IPY) OF SELF)) + + (* * Above faster than WITH form * *) + + (SETQ INITX X0) + [IF (EQ (FFETCH (BRES MAJOR) OF SELF) + 'X) + THEN (while (ILESSP D 0) + do (SETQ X0 (IPLUS X0 DX)) + (SETQ D (IPLUS D DDX))) + (IF (ILEQ INITX X0) + THEN (SETQ TERMX X0) + ELSE (SETQ TERMX INITX) + (SETQ INITX X0)) + (SETQ X0 (IPLUS X0 DX)) + (SETQ D (IPLUS D DDY)) + ELSE (SETQ TERMX X0) + (if (ILESSP D 0) + then (SETQ D (IPLUS D DDY)) + else (SETQ D (IPLUS D DDX)) + (SETQ X0 (IPLUS X0 DX] + + (* * (WITH BRES SELF (*) (SETQ X X0) (SETQ P D))) + + (FREPLACE (BRES X) OF SELF with X0) + (FREPLACE (BRES P) OF SELF with D)))) ) ) @@ -1037,17 +1047,18 @@ Copyright (c) 1985, 1986, 1987, 1990, 1993 by Venue & Xerox Corporation. All ri (DECLARE%: EVAL@COMPILE DONTCOPY -(RPAQQ \GEOM.PANEL ((* * Debugging control panel * *) - (PROG NIL (SETQQ KLIST ((10 . 10) - (20 . 20) - (30 . 20) - (40 . 30) - (50 . 10) - (30 . 0))) - (SETQ NLIST (NORMLOOP KLIST)) - (SETQ SLIST (SLITLOOP NLIST)) - (MYPGON MYWIN KLIST) - (MYNUMB MYWIN KLIST)))) +(RPAQQ \GEOM.PANEL + ((* * Debugging control panel * *) + (PROG NIL (SETQQ KLIST ((10 . 10) + (20 . 20) + (30 . 20) + (40 . 30) + (50 . 10) + (30 . 0))) + (SETQ NLIST (NORMLOOP KLIST)) + (SETQ SLIST (SLITLOOP NLIST)) + (MYPGON MYWIN KLIST) + (MYNUMB MYWIN KLIST)))) ) @@ -1185,42 +1196,42 @@ Copyright (c) 1985, 1986, 1987, 1990, 1993 by Venue & Xerox Corporation. All ri (RPAQQ TRAP.DEBUG NIL) (DECLARE%: EVAL@COMPILE DONTCOPY -(RPAQQ \TRAP.PANEL [(WHILE (EQ MYWIN (WHICHW (GETPOSITION))) - DO - (CLEARW MYWIN2) - (CLEARW MYWIN) - (NILL (SETQ RLIST (MYRAND MYWIN 7))) - (MYPGON MYWIN2 RLIST) - (POLYSHADE.DISPLAY MYWIN2 RLIST GRAYSHADE) - (NILL (SETQ RZOID (TRAPLOOP RLIST))) - (PRINTOUT MYWIN "NUMBER OF TRAPEZOIDS: " (LENGTH RZOID) - T) - (FOR I IN RZOID DO (POLYSHADE.DISPLAY MYWIN I (RAND))) - (MYPGON MYWIN RLIST)) - (NILL (NILL (SETQ RLIST (MYRAND MYWIN 5))) - (MYPGON MYWIN RLIST) - (FOR I IN RZOID DO (MYPGON MYWIN I)) - (MYPGON MYWIN (CAR (NTH RZOID 27))) - (FOR I FROM 23 TO 25 DO (POLYSHADE.DISPLAY MYWIN - (CAR (NTH RZOID I)) - GRAYSHADE))) - (NILL (WHILE (EQ MYWIN (WHICHW (GETPOSITION))) - DO - (CLEARW MYWIN) - (SETQ RLIST (MYDRAW MYWIN NIL)) - (MYPGON MYWIN RLIST) - (PRINTOUT MYWIN "CONVEX: " (CONVEXP RLIST) - T]) +(RPAQQ \TRAP.PANEL + [(WHILE (EQ MYWIN (WHICHW (GETPOSITION))) + DO + (CLEARW MYWIN2) + (CLEARW MYWIN) + (NILL (SETQ RLIST (MYRAND MYWIN 7))) + (MYPGON MYWIN2 RLIST) + (POLYSHADE.DISPLAY MYWIN2 RLIST GRAYSHADE) + (NILL (SETQ RZOID (TRAPLOOP RLIST))) + (PRINTOUT MYWIN "NUMBER OF TRAPEZOIDS: " (LENGTH RZOID) + T) + (FOR I IN RZOID DO (POLYSHADE.DISPLAY MYWIN I (RAND))) + (MYPGON MYWIN RLIST)) + (NILL (NILL (SETQ RLIST (MYRAND MYWIN 5))) + (MYPGON MYWIN RLIST) + (FOR I IN RZOID DO (MYPGON MYWIN I)) + (MYPGON MYWIN (CAR (NTH RZOID 27))) + (FOR I FROM 23 TO 25 DO (POLYSHADE.DISPLAY MYWIN (CAR (NTH RZOID I)) + GRAYSHADE))) + (NILL (WHILE (EQ MYWIN (WHICHW (GETPOSITION))) + DO + (CLEARW MYWIN) + (SETQ RLIST (MYDRAW MYWIN NIL)) + (MYPGON MYWIN RLIST) + (PRINTOUT MYWIN "CONVEX: " (CONVEXP RLIST) + T]) ) -(PUTPROPS XXGEOM COPYRIGHT ("Venue & Xerox Corporation" 1985 1986 1987 1990 1993)) +(PUTPROPS XXGEOM COPYRIGHT ("Venue & Xerox Corporation" 1985 1986 1987 1990 1993 2021)) (DECLARE%: DONTCOPY - (FILEMAP (NIL (2654 3087 (\IRND 2664 . 3085)) (3735 23347 (MAKEXYPT 3745 . 3976) (IRNDLIST 3978 . 4582 -) (NORMLOOP 4584 . 6212) (SLITLOOP 6214 . 7913) (PREPLOOP 7915 . 8580) (YMAPLIST 8582 . 10143) ( -IMAPLIST 10145 . 13704) (UNIQLIST 13706 . 14327) (MERGLIST 14329 . 16976) (MMLTLIST 16978 . 17791) ( -IMLTLIST 17793 . 18676) (XYPT.LESSP 18678 . 19047) (PATH.LESSP 19049 . 20375) (CONVEXP 20377 . 23345)) - (24936 30188 (MAKELINE 24946 . 25626) (MSECT 25628 . 26097) (XSECT 26099 . 26655) (YSECT 26657 . -27215) (XYSECT 27217 . 27958) (KNOTLINE 27960 . 28884) (KNOTLOOP 28886 . 29762) (LINE.LESSP 29764 . -30186)) (30189 33763 (LINEY 30199 . 30653) (MIDDX 30655 . 31158) (INITX 31160 . 31841) (TERMX 31843 . -32473) (SCANX 32475 . 33259) (XPROD 33261 . 33761)) (33803 35267 (XYSECTLSEG 33813 . 35265)) (35711 -38266 (MAKEBRES 35721 . 38264)) (41742 48104 (TRAPLOOP 41752 . 44494) (TRAPMAKE 44496 . 48102))))) + (FILEMAP (NIL (2461 2894 (\IRND 2471 . 2892)) (3638 23250 (MAKEXYPT 3648 . 3879) (IRNDLIST 3881 . 4485 +) (NORMLOOP 4487 . 6115) (SLITLOOP 6117 . 7816) (PREPLOOP 7818 . 8483) (YMAPLIST 8485 . 10046) ( +IMAPLIST 10048 . 13607) (UNIQLIST 13609 . 14230) (MERGLIST 14232 . 16879) (MMLTLIST 16881 . 17694) ( +IMLTLIST 17696 . 18579) (XYPT.LESSP 18581 . 18950) (PATH.LESSP 18952 . 20278) (CONVEXP 20280 . 23248)) + (25235 30477 (MAKELINE 25245 . 25928) (MSECT 25930 . 26399) (XSECT 26401 . 26957) (YSECT 26959 . +27517) (XYSECT 27519 . 28260) (KNOTLINE 28262 . 29186) (KNOTLOOP 29188 . 30064) (LINE.LESSP 30066 . +30475)) (30478 34052 (LINEY 30488 . 30942) (MIDDX 30944 . 31447) (INITX 31449 . 32130) (TERMX 32132 . +32762) (SCANX 32764 . 33548) (XPROD 33550 . 34050)) (34092 35556 (XYSECTLSEG 34102 . 35554)) (36000 +38555 (MAKEBRES 36010 . 38553)) (42116 48478 (TRAPLOOP 42126 . 44868) (TRAPMAKE 44870 . 48476))))) STOP diff --git a/sources/XXGEOM.LCOM b/sources/XXGEOM.LCOM index e2d639021..07a53a2f8 100644 Binary files a/sources/XXGEOM.LCOM and b/sources/XXGEOM.LCOM differ