Interlisp.medley/lispusers/DOCUMENT.LCOM

(FILECREATED " 9-Sep-94 09:38:46" ("compiled on " {DSK}<lispcore>lispusers>document.;1) 
"28-Jul-94 17:28:46" bcompl'd in "Medley 25-Aug-94 ..." dated "25-Aug-94 10:02:49")
(FILECREATED "29-Aug-86 11:35:58" {DANTE}<NEWMAN>LISP>DOCUMENT.;8 16000 changes to: (FNS 
Document.Title Document.Format Document.Create Document.Begin Document.FileComments Document.Functions
 Document.Variables Document.Things Document.Information Document.SectionHead 
Document.FunctionCommentedP Document.Finish Document.RunningHead) (VARS DOCUMENTCOMS) previous date: 
"26-Aug-86 18:18:51" {DSK}<LISPFILES>DOCUMENT.;1)
Document.CreateA0001 D8
(NAME SI*UNWIND-PROTECT* P 1 Pointer P 0 Stream I 0 SI*CLEANUP-FORMS* F 2 FileName F 3 SI*RESETFORMS*) p
g`	hhSc
RH
H	kØYRH
RH
RH
RHggRHggHI
(109 Document.Finish 102 Document.Things 85 Document.Things 68 Document.Variables 61 Document.Functions 54 Document.FileComments 44 GETEOFPTR 38 Document.Begin 28 OPENTEXTSTREAM 14 CURSOR)
(97 Record 92 RECORDS 80 Macro 75 MACROS 9 WAITINGCURSOR 4 CURSOR)
()
Document.Create D8
(P 2 RESETSTATE P 1 SI*RESETFORMS* P 0 LISPXHIST I 0 FileName F 3 LISPXHIST) 7

@`
²S!g		¿$
@o
(52 ERROR 36 SIRESETUNWIND 31 \MVLIST 26 Document.CreateA0001 10 MEMBER)
(21 SIRESETUNWIND 5 FILELST)
( 47 " not a loaded file.")
Document.Begin D8
(I 1 Stream I 0 FileName) '@A
@Ad	kØ@Ad	kØ(36 Document.Information 29 GETEOFPTR 21 Document.Title 14 GETEOFPTR 6 Document.RunningHead)
NIL
()
Document.FileComments D8
(P 0 Descriptor I 1 Stream I 0 FileName) Q
Ao
o	@g
°+d

gH
A	idhA
¿A	µÖh(72 TERPRI 65 PRINTDEF 55 POSITION 49 REMOVE 31 FILECOMSLST 20 PROMPTPRINT 10 Document.SectionHead)
(43 * 26 *)
( 15 "Collecting File Comments ..." 5 "INTRODUCTION")
Document.Functions D8
(P 0 Function I 1 Stream I 0 FileName) 

Ao
o	@	±íd

AoHoA	kØgl
g¿AH		lmþA	kØgl
g¿Aol
	
A	kØgl
g¿Ad	
¿H	²;gHg
µH	

A	hihA
¿A	¿µ‚±ÿh(260 TERPRI 253 PRINTDEF 243 POSITION 237 REMOVE 228 GETD 220 GETPROP 202 Document.FunctionCommentedP 195 SETFILEPTR 190 GETEOFPTR 182 TEDIT.INSERT 177 FONTCREATE 158 GETEOFPTR 152 CONCAT 147 CHARACTER 133 TEDIT.INSERT 128 FONTCREATE 109 GETEOFPTR 103 SUBSTRING 94 MKSTRING 89 ARGLIST 81 TEDIT.INSERT 76 FONTCREATE 57 GETEOFPTR 51 CONCAT 26 FILEFNSLST 20 PROMPTPRINT 10 Document.SectionHead)
(215 EXPR 209 * 172 MRR 165 MODERN 123 ITALIC 116 MODERN 71 MRR 64 MODERN)
( 140 ")	[Function]" 46 " " 40 "(" 15 "Collecting Function Comments ... " 5 "FUNCTIONS")
Document.Variables D8
(P 0 Variable I 1 Stream I 0 FileName) ¦
Ao
o	@g
±€d

H@g

²HA
¿kA
¿o°AH@g

²HA
¿kA
¿o°HA
¿kA
¿oA
¿A	µ‚h(157 TERPRI 150 PRIN1 138 SPACES 130 PRIN1 115 SPACES 107 PRIN1 98 MEMBER 93 FILECOMSLST 73 SPACES 65 PRIN1 56 MEMBER 51 FILECOMSLST 31 FILECOMSLST 20 PROMPTPRINT 10 Document.SectionHead)
(88 SPECVARS 46 GLOBALVARS 26 VARS)
( 144 " 	[Variable]" 121 " 	[SpecialVar]" 79 " 	[GlobalVar]" 15 "Collecting Variables ..." 5 "VARIABLES")
Document.Things D8
(P 0 Thing I 3 TypeName I 2 FilePkgType I 1 Stream I 0 FileName F 1 FILEPKGTYPES) Ÿ

Bd¢±<00>Q
¢±…@B
´zACµBb	o

oCo	@B
°=d

HA
¿kA
¿l		oCoA
¿A	µÄhBo
(156 ERROR 138 TERPRI 131 PRIN1 125 CONCAT 109 CHARACTER 101 SPACES 93 PRIN1 79 FILECOMSLST 72 PROMPTPRINT 67 CONCAT 51 Document.SectionHead 46 CONCAT 36 U-CASE 22 FILECOMSLST 11 MEMBER)
NIL
( 151 "Bad file package type: " 120 "]" 114 "[" 62 " ..." 56 "Collecting " 41 "S")
Document.Finish D8
(P 0 Num I 1 Pointer I 0 Stream) ‚
@A@	AÕgk
@ooXjð¬H²éH	²á@l
	o
o@l
		l
		@	@	(127 TEDIT 121 Document.Format 115 TEDIT.SUBSTITUTE 110 MKSTRING 105 CHARACTER 98 MKSTRING 93 CHARACTER 85 TEDIT.SUBSTITUTE 75 CONCAT 65 CHARACTER 54 \FZEROP 39 TEDIT.SUBSTITUTE 19 TEDIT.SETSEL 7 GETEOFPTR)
(14 LEFT)
( 80 " " 70 " " 34 " " 29 "  ")
Document.RunningHead D8
(I 1 Stream I 0 FileName) †Aojgl
Aol		@l
	l
	
hgl

l	Ad	A	ojA	kØAd	
(131 SETFILEPTR 126 GETFILEPTR 119 TEDIT.PARALOOKS 112 GETEOFPTR 100 TEXTOBJ 94 TEDIT.INSERT.OBJECT 89 GETEOFPTR 82 HRULE.CREATE 75 TEDIT.INSERT 70 FONTCREATE 57 CONCAT 51 CHARACTER 44 CHARACTER 36 CHARACTER 23 TEDIT.INSERT 18 FONTCREATE)
(63 MODERN 11 LOGO)
( 105 (TYPE PAGEHEADING SUBTYPE RUNNINGHEAD RIGHTMARGIN 456 LEFTMARGIN 0 TABS (NIL (456 . RIGHT)) QUAD JUSTIFIED)
 29 " " 5 "XEROX")
Document.Title D8
(I 2 Pointer I 1 Stream I 0 FileName) —A	o	Ad	kØAl
	@l
	l
	A	kØglgo	Ad	A	oBA	kØBÕAd	
(148 SETFILEPTR 143 GETEOFPTR 136 TEDIT.PARALOOKS 127 GETEOFPTR 115 TEXTOBJ 109 TEDIT.INSERT.OBJECT 104 GETEOFPTR 97 HRULE.CREATE 87 TEDIT.INSERT 82 FONTCREATE 63 GETEOFPTR 57 CONCAT 52 CHARACTER 45 CHARACTER 37 CHARACTER 29 TEDIT.INSERT.OBJECT 22 GETEOFPTR 15 HRULE.CREATE 5 TERPRI)
(77 BRR 70 MODERN)
( 120 (TYPE NIL PARALEADING 6 LINELEADING 4 RIGHTMARGIN 312 LEFTMARGIN 138 1STLEFTMARGIN 138 QUAD CENTERED)
 92 (1 4 5) 10 (5 4 1))
Document.Information D8
(I 2 Pointer I 1 Stream I 0 FileName) ÎAol
	okl	l
	
A	kØgl

i
@g
²UAo@o@g
	lmþl
	o
A	kØgl

i
¿A	oBA	kØAd	
(203 SETFILEPTR 198 GETEOFPTR 191 TEDIT.PARALOOKS 184 GETEOFPTR 172 TEXTOBJ 165 TEDIT.INSERT 158 FONTCREATE 144 GETEOFPTR 138 CONCAT 127 CHARACTER 120 SUBSTRING 111 MKSTRING 106 FILECOMSLST 81 FILECOMSLST 70 TEDIT.INSERT 63 FONTCREATE 49 GETEOFPTR 43 CONCAT 37 CHARACTER 30 SUBSTRING 22 DATE 12 CHARACTER)
(151 MODERN 101 FILES 76 FILES 56 MODERN)
( 177 (RIGHTMARGIN 456 LEFTMARGIN 0 1STLEFTMARGIN 0 QUAD CENTERED PARALEADING 17) 132 " " 95 ": " 89 "The following packages are loaded by "
 17 " " 5 " By: >>Author's Name<< (>>Net Address<<)")
Document.SectionHead D8
(I 1 String I 0 Stream) Q@Al
	
@	kØgl
g@d	
@gl
g
(78 TEDIT.CARETLOOKS 73 FONTCREATE 55 SETFILEPTR 50 GETEOFPTR 43 TEDIT.INSERT 38 FONTCREATE 19 GETEOFPTR 13 CONCAT 8 CHARACTER)
(68 MRR 61 MODERN 33 BRR 26 MODERN)
()
Document.Format D8
(I 0 Stream) 

@oo@	o@	@iooogooookojogog
iooogooookojogog
iooogooookojogog

(270 TEDIT.PAGEFORMAT 265 TEDIT.COMPOUND.PAGEFORMAT 260 TEDIT.SINGLE.PAGEFORMAT 186 TEDIT.SINGLE.PAGEFORMAT 112 TEDIT.SINGLE.PAGEFORMAT 37 TEDIT.PARALOOKS 32 TEDIT.GETSEL 21 TEXTOBJ 15 TEDIT.SUBLOOKS)
(254 LETTER 244 PICAS 207 CENTERED 180 LETTER 170 PICAS 133 CENTERED 106 LETTER 96 PICAS 59 CENTERED)
( 249 (STARTINGPAGE# 1) 239 ((RUNNINGHEAD 7.0 62.0)) 233 38.0 227 8.0 222 8.0 217 6.0 212 7.0 202 (MODERN 10)
 197 3.0 192 26.5 175 (STARTINGPAGE# 1) 165 ((RUNNINGHEAD 7.0 62.0)) 159 38.0 153 8.0 148 8.0 143 6.0 138
 7.0 128 (MODERN 10) 123 3.5 118 26.5 101 (STARTINGPAGE# 1) 91 ((RUNNINGHEAD 7.0 62.0)) 85 38.0 79 8.0
 74 8.0 69 6.0 64 7.0 54 (MODERN 10) 49 3.0 44 26.5 26 (TABS (NIL (0 . RIGHT) (456 . RIGHT)) LINELEADING 4 PARALEADING 11 RIGHTMARGIN 456 LEFTMARGIN 0 1STLEFTMARGIN 0 QUAD JUSTIFIED)
 10 (FAMILY MODERN SIZE 10) 5 (FAMILY GACHA))
Document.FunctionCommentedP D8
(I 0 Function) -
@g
µ@	µ
@o


gð(31 ERROR 18 GETD 10 GETPROP)
(41 * 5 EXPR)
( 26 "Not a function: ")
(PRETTYCOMPRINT DOCUMENTCOMS)
(RPAQQ DOCUMENTCOMS ((* * This program creates documentation for any Lisp package in the style of the 
Lisp Users documentation. It requires that the code for the package be loaded. It does not completely 
format the document, but it minimizes the amount of work that the documenter must do. To make most 
effective use of these functions, each function in the package being documented must have a comment as
 the first expression in the function after the timestamp. Similarly, the COMS variable of the file 
should contain a comment (like this one) as the first item in the list. This package was documented 
using itself.) (FNS Document.Create Document.Begin Document.FileComments Document.Functions 
Document.Variables Document.Things Document.Finish Document.RunningHead Document.Title 
Document.Information Document.SectionHead Document.Format Document.FunctionCommentedP)))
NIL