(FILECREATED "15-Jul-86 12:21:41" ("compiled on " {ERIS}<LISPCORE>LIBRARY>CMLFORMAT.;12) 
"10-Jul-86 12:19:06" "COMPILE-FILEd" in "Xerox Lisp 10-Jul-86 ..." dated "10-Jul-86 12:31:23")
(FILECREATED "15-Jul-86 12:13:06" {ERIS}<LISPCORE>LIBRARY>CMLFORMAT.;12 93557 previous date: 
"30-Jun-86 17:12:40" {ERIS}<LISPCORE>LIBRARY>CMLFORMAT.;11)
(RPAQQ CMLFORMATCOMS ((DECLARE: EVAL@COMPILE DONTCOPY) (STRUCTURES FORMAT-ERROR) (FUNCTIONS 
MAKE-DISPATCH-VECTOR) (INITVARS *FORMAT-DISPATCH-TABLE* CARDINAL-ONES CARDINAL-PERIODS CARDINAL-TEENS 
CARDINAL-TENS ORDINAL-ONES ORDINAL-TENS) (FNS FORMAT-INIT FORMAT-ERROR) (P (FORMAT-INIT)) (FUNCTIONS 
FLONUM-TO-STRING FORMAT-WITH-CONTROL-STRING FORMAT-STRINGIFY-OUTPUT POP-FORMAT-ARG 
WITH-FORMAT-PARAMETERS NEXTCHAR FORMAT-PEEK FORMAT-FIND-CHAR) (FUNCTIONS FORMAT-GET-PARAMETER 
PARSE-FORMAT-OPERATION FORMAT-FIND-COMMAND FORMAT SUB-FORMAT FORMAT-CAPITALIZATION FORMAT-ESCAPE 
FORMAT-SEMICOLON-ERROR FORMAT-UNTAGGED-CONDITION FORMAT-FUNNY-CONDITION FORMAT-BOOLEAN-CONDITION 
FORMAT-CONDITION FORMAT-ITERATION FORMAT-DO-ITERATION FORMAT-GET-TRAILING-SEGMENTS FORMAT-GET-SEGMENTS
 MAKE-PAD-SEGS FORMAT-ROUND-COLUMNS FORMAT-JUSTIFICATION FORMAT-TERPRI FORMAT-FRESHLINE FORMAT-PAGE 
FORMAT-TILDE FORMAT-EAT-WHITESPACE FORMAT-NEWLINE FORMAT-PLURAL FORMAT-SKIP-ARGUMENTS 
FORMAT-INDIRECTION FORMAT-TAB FORMAT-PRINC FORMAT-PRIN1 FORMAT-PRINT-CHARACTER 
FORMAT-PRINT-NAMED-CHARACTER FORMAT-ADD-COMMAS FORMAT-WRITE-FIELD FORMAT-PRINT-NUMBER 
FORMAT-PRINT-SMALL-CARDINAL FORMAT-PRINT-CARDINAL FORMAT-PRINT-CARDINAL-AUX FORMAT-PRINT-ORDINAL 
FORMAT-PRINT-OLD-ROMAN FORMAT-PRINT-ROMAN FORMAT-PRINT-DECIMAL FORMAT-PRINT-BINARY FORMAT-PRINT-OCTAL 
FORMAT-PRINT-HEXADECIMAL FORMAT-PRINT-RADIX FORMAT-FIXED FORMAT-FIXED-AUX FORMAT-EXPONENTIAL 
FORMAT-EXPONENT-MARKER FORMAT-EXP-AUX FORMAT-GENERAL-FLOAT FORMAT-GENERAL-AUX FORMAT-DOLLARS) (
FUNCTIONS CHARPOS FLONUM-TO-STRING WHITESPACE-CHAR-P) (VARIABLES *ERROR-OUTPUT* *FORMAT-ARGUMENTS* 
*FORMAT-CONTROL-STRING* *FORMAT-DISPATCH-TABLE* *FORMAT-INDEX* *FORMAT-LENGTH* 
*FORMAT-ORIGINAL-ARGUMENTS* *PRINT-BASE* *STANDARD-OUTPUT* *TERMINAL-IO* CARDINAL-ONES 
CARDINAL-PERIODS CARDINAL-TEENS CARDINAL-TENS ORDINAL-ONES ORDINAL-TENS) (DECLARE: DONTEVAL@LOAD 
DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA) (NLAML) (LAMA FORMAT-ERROR FORMAT-INIT)))))
FORMAT-ERROR-ARGS D1
(L (0 OBJECT)) ����
@
�NIL
NIL
()
(DEFPRINT (QUOTE FORMAT-ERROR) (FUNCTION \DEFPRINT.DEFSTRUCT.DEFAULT))
%%MAKE-CONDITION-FORMAT-ERROR D1
(L (0 -args-)) �0��e
�HkJdI鬂縣

g��Ihag��饡Jk豠瓣Jl訸拜�NIL
(37Q :ARGS 26Q FORMAT-ERROR)
()
(PUTPROP (QUOTE FORMAT-ERROR) (QUOTE STRUCTURE-CONSTRUCTOR) (QUOTE %%MAKE-CONDITION-FORMAT-ERROR))
(PUTPROP (QUOTE FORMAT-ERROR) (QUOTE %%SLOT-DESCRIPTIONS) (QUOTE ((ARGS NIL :READ-ONLY T))))
(FIX-INHERITANCE-LINKS (QUOTE FORMAT-ERROR) (QUOTE CL:ERROR))
(LET* ((A0206 (QUOTE FORMAT-ERROR)) (A0207 (QUOTE %%CONDITION-HANDLER)) (A0209 (QUOTE NIL))) (PUTPROP 
A0206 A0207 A0209))
FORMAT-ERROR-condition-reporter D1
(L (0 CONDITION) I 1 *STANDARD-OUTPUT*) ����io���@	�����(13Q FORMAT 10Q FORMAT-ERROR-ARGS)
NIL
( 4 "~%%~:{~@?~%%~}")
(LET* ((A0210 (QUOTE FORMAT-ERROR)) (A0211 (QUOTE %%CONDITION-REPORTER)) (A0213 (QUOTE 
FORMAT-ERROR-condition-reporter))) (PUTPROP A0210 A0211 A0213))
expand-MAKE-DISPATCH-VECTORA0001 D1
(L (0 X)) �$��
@
	��@
	��
HI
��揁hI@H@h�(21Q CHAR= 11Q CHAR-UPCASE 4 CHAR-DOWNCASE)
NIL
()
expand-MAKE-DISPATCH-VECTORA0002 D1
(L (1 Y 0 X)) �	���@
A

���(6 CHAR<)
NIL
()
expand-MAKE-DISPATCH-VECTOR D1
(L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM)) �k��@
�g��H
��g��
��jJdn
�
���.縄榦���I
��縢��o���g��ig��g��K	��hhk訧d�

	��J
���	I
I�
K籞隘�(132Q %%= 126Q CHAR-CODE 100Q CL:NREVERSE 52Q CL:ERROR 35Q %%= 21Q SORT 13Q MAPCAN)
(74Q QUOTE 71Q :INITIAL-CONTENTS 65Q :ELEMENT-TYPE 56Q MAKE-ARRAY 16Q expand-MAKE-DISPATCH-VECTORA0002 7 expand-MAKE-DISPATCH-VECTORA0001)
( 62Q (QUOTE (400Q)) 46Q "Garbage in dispatch vector - ~S")
(SETF-MACRO-FUNCTION (QUOTE MAKE-DISPATCH-VECTOR) (QUOTE expand-MAKE-DISPATCH-VECTOR))
(RPAQ? *FORMAT-DISPATCH-TABLE* NIL)
(RPAQ? CARDINAL-ONES NIL)
(RPAQ? CARDINAL-PERIODS NIL)
(RPAQ? CARDINAL-TEENS NIL)
(RPAQ? CARDINAL-TENS NIL)
(RPAQ? ORDINAL-ONES NIL)
(RPAQ? ORDINAL-TENS NIL)
FORMAT-INIT D1
(F 0 CARDINAL-ONES F 1 CARDINAL-TENS F 2 CARDINAL-TEENS F 3 *FORMAT-DISPATCH-TABLE* F 4 CARDINAL-PERIODS F 5 ORDINAL-ONES F 6 ORDINAL-TENS) �����o���g��ig��o���
��c�縪���g��ig��o���
��c縪���g��ig��o���
��c縪���g��ig��o���
��c縪���g��ig��o���
��c
縪���g��ig��o���
��co���g��ig��o���
��c�(225Q MAKE-ARRAY 200Q MAKE-ARRAY 152Q MAKE-ARRAY 124Q MAKE-ARRAY 76Q MAKE-ARRAY 50Q MAKE-ARRAY 22Q MAKE-ARRAY)
(215Q :INITIAL-CONTENTS 211Q :ELEMENT-TYPE 170Q :INITIAL-CONTENTS 164Q :ELEMENT-TYPE 142Q :INITIAL-CONTENTS 136Q :ELEMENT-TYPE 114Q :INITIAL-CONTENTS 110Q :ELEMENT-TYPE 66Q :INITIAL-CONTENTS 62Q :ELEMENT-TYPE 40Q :INITIAL-CONTENTS 34Q :ELEMENT-TYPE 12Q :INITIAL-CONTENTS 6 :ELEMENT-TYPE)
( 221Q (NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL FORMAT-NEWLINE NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL FORMAT-DOLLARS FORMAT-TERPRI FORMAT-FRESHLINE NIL FORMAT-CAPITALIZATION NIL FORMAT-SKIP-ARGUMENTS NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL FORMAT-SEMICOLON-ERROR FORMAT-JUSTIFICATION NIL NIL FORMAT-INDIRECTION NIL FORMAT-PRINC FORMAT-PRINT-BINARY FORMAT-PRINT-CHARACTER FORMAT-PRINT-DECIMAL FORMAT-EXPONENTIAL FORMAT-FIXED FORMAT-GENERAL-FLOAT NIL NIL NIL NIL NIL NIL NIL FORMAT-PRINT-OCTAL FORMAT-PLURAL NIL FORMAT-PRINT-RADIX FORMAT-PRIN1 FORMAT-TAB NIL NIL NIL FORMAT-PRINT-HEXADECIMAL NIL NIL FORMAT-CONDITION NIL NIL FORMAT-ESCAPE NIL NIL FORMAT-PRINC FORMAT-PRINT-BINARY FORMAT-PRINT-CHARACTER FORMAT-PRINT-DECIMAL FORMAT-EXPONENTIAL FORMAT-FIXED FORMAT-GENERAL-FLOAT NIL NIL NIL NIL NIL NIL NIL FORMAT-PRINT-OCTAL FORMAT-PLURAL NIL FORMAT-PRINT-RADIX FORMAT-PRIN1 FORMAT-TAB NIL NIL NIL FORMAT-PRINT-HEXADECIMAL NIL NIL FORMAT-ITERATION FORMAT-PAGE NIL FORMAT-TILDE NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL)
 206Q (400Q) 174Q (NIL "tenth" "twentieth" "thirtieth" "fourtieth" "fiftieth" "sixtieth" "seventieth" "eightieth" "ninetieth")
 161Q (12Q) 146Q (NIL "first" "second" "third" "fourth" "fifth" "sixth" "seventh" "eighth" "ninth") 133Q
 (12Q) 120Q ("" " thousand" " million" " billion" " trillion" " quadrillion" " quintillion" " sextillion" " septillion" " octillion" " nonillion" " decillion")
 105Q (14Q) 72Q ("ten" "eleven" "twelve" "thirteen" "fourteen" "fifteen" "sixteen" "seventeen" "eighteen" "nineteen")
 57Q (12Q) 44Q (NIL NIL "twenty" "thirty" "forty" "fifty" "sixty" "seventy" "eighty" "ninety") 31Q (12Q)
 16Q (NIL "one" "two" "three" "four" "five" "six" "seven" "eight" "nine") 3 (12Q))
FORMAT-ERROR D1
(L (0 -args-) F 10Q *FORMAT-CONTROL-STRING* F 11Q *FORMAT-INDEX*) �Q�e
�kaHl2LdK蟛$縈篻��g��o���IJWWk詇h��a_縉�Oh^絃k診叭O&景��(65Q CL:ERROR)
(36Q :ARGS 33Q FORMAT-ERROR)
( 42Q "~?~%%~S~%%~V@T^")
(FORMAT-INIT)
FLONUM-TO-STRING D1
(L (3 SCALEFACTOR 2 DECIMALPLACES 1 FIELDWIDTH 0 NUMBER) P 3 *STANDARD-OUTPUT*) ����C�8@!��
g��hBhdB�
Ad睰k瞻GH	��o���	��
��	��Y	���.I�,j鸪菴d�	��尘C	��橜l
C
��职癅l
C
��
��挨j詇HK��縆	��Zd	��Jj
��o���:Jd	��k�
��o���:o���J
��
���(237Q VALUES 233Q CL:POSITION 216Q CHAR 211Q CL:LENGTH 177Q CHAR 172Q CL:LENGTH 164Q GET-OUTPUT-STREAM-STRING 157Q PRINTNUM 137Q %%/ 134Q EXPT 122Q EXPT 112Q PLUSP 104Q \FZEROP 63Q PLUSP 57Q CEILING 54Q %%/ 51Q LOG 42Q LOG 11Q MAKE-STRING-OUTPUT-STREAM)
(17Q FLOAT)
( 227Q |\. 222Q |\. 203Q |\. 46Q 10.0)
expand-FORMAT-WITH-CONTROL-STRING D1
(L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM)) �N��@!H
笻篻��g��g��g��IhIg��Io���hhho���g��g��o���Jo���h�NIL
(71Q LET 66Q CONDITION-CASE 36Q COERCE 26Q SIMPLE-STRING-P 23Q CL:IF 20Q STRING 15Q LET)
( 104Q ((FORMAT-ERROR (C) (CL:ERROR (QUOTE FORMAT-ERROR) :ARGS (CONS (LIST "While processing indirect control string~%%~S~%%~V@T^" *FORMAT-CONTROL-STRING* (1+ *FORMAT-INDEX*)) (FORMAT-ERROR-ARGS C)))))
 75Q ((*FORMAT-CONTROL-STRING* STRING) (*FORMAT-LENGTH* (CL:LENGTH STRING)) (*FORMAT-INDEX* 0)) 63Q (CL:DECLARE (TYPE SIMPLE-STRING STRING))
 43Q ((QUOTE SIMPLE-STRING)))
(SETF-MACRO-FUNCTION (QUOTE FORMAT-WITH-CONTROL-STRING) (QUOTE expand-FORMAT-WITH-CONTROL-STRING))
expand-FORMAT-STRINGIFY-OUTPUT D1
(L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM)) �
��@
�g��o���Ho���
���(23Q \APPEND2)
(7 LET)
( 20Q ((GET-OUTPUT-STREAM-STRING *STANDARD-OUTPUT*)) 13Q ((*STANDARD-OUTPUT* (MAKE-STRING-OUTPUT-STREAM))))
(SETF-MACRO-FUNCTION (QUOTE FORMAT-STRINGIFY-OUTPUT) (QUOTE expand-FORMAT-STRINGIFY-OUTPUT))
expand-POP-FORMAT-ARG D1
(L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM)) ����o����NIL
NIL
( 3 (CL:IF *FORMAT-ARGUMENTS* (CL:POP *FORMAT-ARGUMENTS*) (FORMAT-ERROR "Missing argument")))
(SETF-MACRO-FUNCTION (QUOTE POP-FORMAT-ARG) (QUOTE expand-POP-FORMAT-ARG))
expand-WITH-FORMAT-PARAMETERS D1
(L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM)) �Q��@aH
笻Z
籎糑]�g��N	��g��Io���LM

g��g��Ig��IhhM

hhN景��(32Q CL:NREVERSE)
(67Q POP 63Q CL:IF 60Q OR 35Q CL:WHEN 26Q LET)
( 42Q ((FORMAT-ERROR "Too many parameters")))
(SETF-MACRO-FUNCTION (QUOTE WITH-FORMAT-PARAMETERS) (QUOTE expand-WITH-FORMAT-PARAMETERS))
expand-NEXTCHAR D1
(L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM)) ����o����NIL
NIL
( 3 (CL:IF (< (INCF *FORMAT-INDEX*) *FORMAT-LENGTH*) (SCHAR *FORMAT-CONTROL-STRING* *FORMAT-INDEX*) (FORMAT-ERROR "Syntax error")))
(SETF-MACRO-FUNCTION (QUOTE NEXTCHAR) (QUOTE expand-NEXTCHAR))
expand-FORMAT-PEEK D1
(L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM)) ����o����NIL
NIL
( 3 (SCHAR *FORMAT-CONTROL-STRING* *FORMAT-INDEX*))
(SETF-MACRO-FUNCTION (QUOTE FORMAT-PEEK) (QUOTE expand-FORMAT-PEEK))
expand-FORMAT-FIND-CHAR D1
(L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM)) �.��@AH
笻Z
籎
糶��Io���g��Kg��Lo����NIL
(37Q :END 33Q :START 23Q CL:POSITION)
( 44Q (:TEST (FUNCTION CHAR=)) 30Q (THE SIMPLE-STRING *FORMAT-CONTROL-STRING*))
(SETF-MACRO-FUNCTION (QUOTE FORMAT-FIND-CHAR) (QUOTE expand-FORMAT-FIND-CHAR))
FORMAT-GET-PARAMETER D1
(F 2 *FORMAT-INDEX* F 3 *FORMAT-CONTROL-STRING* F 4 *FORMAT-LENGTH* F 5 *FORMAT-ARGUMENTS*) 
��SR
��
Hdo���:�縍k詂T昐R
��唎���	��縐	��o���:〩do���:�&縐�o���	��Rk詂T�8SR
���
Uc
堪閛���:�+Rk詂T昐R
��唎���	��Rk詂T程o���	���Ho���:矼Ho���:矱Ho���:�=Ho���:�5Ho���:�-Ho���:�%Ho���:�Ho���:�Ho���:獺o���:�偙�wSR
��	��筊k詂T昐R
��唎���	��	��Il
諷R
��	��园��(424Q DIGIT-CHAR-P 421Q SCHAR 405Q DIGIT-CHAR-P 402Q FORMAT-ERROR 372Q SCHAR 353Q DIGIT-CHAR-P 350Q SCHAR 216Q FORMAT-ERROR 175Q FORMAT-ERROR 165Q SCHAR 126Q SCHAR 107Q FORMAT-ERROR 54Q CL:LENGTH 47Q FORMAT-ERROR 37Q SCHAR 4 SCHAR)
NIL
( 377Q "Syntax error" 334Q |\9 325Q |\8 315Q |\7 305Q |\6 275Q |\5 265Q |\4 255Q |\3 245Q |\2 235Q |\1
 225Q |\0 213Q "Syntax error" 172Q "Syntax error" 144Q |\' 104Q "Missing argument" 71Q |\v 61Q |\V 44Q
 "Syntax error" 15Q |\#)
PARSE-FORMAT-OPERATION D1
(F 4 *FORMAT-INDEX* F 5 *FORMAT-CONTROL-STRING* F 6 *FORMAT-LENGTH*) ����Tk詂V昒T
��唎���	��1H	��琀簅���Y�<h���h籙T
��o���
���2K	��UT
��o���
��碋Tk詂V�4UT
���4
J
��扞袄I胺Tk詂V昒T
��唎���	�����K哎o���	��UT
��o���
���Tk詂V昒T
��唎���	��UT
�����(277Q VALUES 274Q SCHAR 267Q FORMAT-ERROR 257Q SCHAR 237Q CHAR= 230Q SCHAR 223Q FORMAT-ERROR 210Q FORMAT-GET-PARAMETER 204Q FORMAT-ERROR 174Q SCHAR 146Q CHAR= 137Q SCHAR 116Q CHAR= 107Q SCHAR 102Q CL:NREVERSE 74Q CHAR/= 65Q SCHAR 55Q FORMAT-GET-PARAMETER 34Q DIGIT-CHAR-P 25Q FORMAT-ERROR 15Q SCHAR)
NIL
( 264Q "Syntax error" 234Q |\@ 220Q "Syntax error" 201Q "Syntax error" 113Q |\: 71Q |\, 43Q (|\, |\# |\V |\v |\')
 22Q "Syntax error")
FORMAT-FIND-COMMAND D1
(L (0 COMMAND-LIST) F 13Q *FORMAT-INDEX* F 14Q *FORMAT-CONTROL-STRING* F 15Q *FORMAT-LENGTH*) 
R�
W�
Ho���Wg��Hg��Wg��g��
��汗J�o���@
��c���	��_
_縊_
_縊^
絅
\d@g��g����澘HJOOML
��[do���:�(縒k詂W梂W
��唎���	��縪���	����琽���:�'Wk詂W梂W
��唎���	��縪���	����€Kdo���:�'縒k詂W梂W
��唎���	��縪���	��癚o���:�&Wk詂W梂W
��唎���	��縪���	���&Ko���:�Ko���:璌o���:o���:梠���	��縒o���Wg��I炳��(500Q FORMAT-ERROR 432Q FORMAT-FIND-COMMAND 422Q FORMAT-ERROR 412Q SCHAR 357Q FORMAT-FIND-COMMAND 347Q FORMAT-ERROR 337Q SCHAR 300Q FORMAT-FIND-COMMAND 270Q FORMAT-ERROR 260Q SCHAR 224Q FORMAT-FIND-COMMAND 214Q FORMAT-ERROR 204Q SCHAR 147Q VALUES 131Q MEMBER 65Q \MVLIST 62Q PARSE-FORMAT-OPERATION 53Q FORMAT-ERROR 36Q CL:POSITION)
(514Q :START 126Q CHAR= 123Q :TEST 32Q CHAR= 27Q :TEST 22Q :END 16Q :START)
( 507Q |\~ 475Q "No matching bracket" 467Q |\] 460Q |\) 451Q |\> 441Q |\} 427Q (|\]) 417Q "Syntax error"
 365Q |\[ 354Q (|\)) 344Q "Syntax error" 311Q |\( 275Q (|\>) 265Q "Syntax error" 233Q |\< 221Q (|\}) 211Q
 "Syntax error" 156Q |\{ 47Q "Expecting one of ~S" 11Q |\~)
FORMATA0001A0002 D1
(F 0 CONTROL-STRING) �
�
��jP	��
���(7 SUB-FORMAT 4 CL:LENGTH)
NIL
()
FORMATA0001 D1
NIL �����g��g��
���(10Q \CATCH-FUNCALL)
(5 FORMATA0001A0002 2 FORMAT-COLON-ESCAPE)
()
FORMATA0003A0004 D1
(F 0 *STANDARD-OUTPUT*) ��
��P	���(3 CLOSE)
NIL
()
FORMATA0003A0005A0006 D1
(F 0 CONTROL-STRING) �
�
��jP	��
���(7 SUB-FORMAT 4 CL:LENGTH)
NIL
()
FORMATA0003A0005 D1
NIL �����g��g��
���(10Q \CATCH-FUNCALL)
(5 FORMATA0003A0005A0006 2 FORMAT-COLON-ESCAPE)
()
FORMATA0003 D1
(NAME ERRORSET F 0 RESETVARSLST F 1 RESETY) ���g��hhhPc�縢��g��
��ci�(26Q \CATCH-FUNCALL)
(23Q FORMATA0003A0005 20Q FORMAT-ESCAPE 2 FORMATA0003A0004)
()
FORMATA0007A0008 D1
(F 0 CONTROL-STRING) �
�
��jP	��
���(7 SUB-FORMAT 4 CL:LENGTH)
NIL
()
FORMATA0007 D1
NIL �����g��g��
���(10Q \CATCH-FUNCALL)
(5 FORMATA0007A0008 2 FORMAT-COLON-ESCAPE)
()
FORMAT D1
(L (0 -args-) P 20Q *STANDARD-OUTPUT* P 16Q RESETY P 15Q LISPXHIST P 14Q *STANDARD-OUTPUT* P 13Q *STANDARD-OUTPUT* P 12Q *FORMAT-CONTROL-STRING* P 11Q *FORMAT-ARGUMENTS* P 10Q *FORMAT-ORIGINAL-ARGUMENTS* P 2 CONTROL-STRING F 21Q LISPXHIST F 22Q RESETVARSLST F 23Q *STANDARD-OUTPUT*) ���e
�kala篐l2LdK鬁縈dJ	���J�"a_縉�Oh^絃k診稗O&景鯦g��
��
I���
g��g��
��O	���7Id	���1縄	��
W"!W$o���g��
��慼俫��_
��縊���hIi饞W&€I
g��g��
��h�(254Q \CATCH-FUNCALL 226Q ERROR! 216Q RESETRESTORE 203Q FORMATA0003 157Q MAKE-FILL-POINTER-OUTPUT-STREAM 150Q ARRAY-HAS-FILL-POINTER-P 136Q GET-OUTPUT-STREAM-STRING 131Q \CATCH-FUNCALL 115Q MAKE-STRING-OUTPUT-STREAM 104Q CL:COERCE 37Q SIMPLE-STRING-P)
(251Q FORMATA0007 246Q FORMAT-ESCAPE 211Q ERROR 200Q INTERNAL 126Q FORMATA0001 123Q FORMAT-ESCAPE 101Q SIMPLE-STRING)
( 175Q (FORMATA0003))
SUB-FORMAT D1
(L (1 END 0 START) P 1 *FORMAT-LENGTH* P 0 *FORMAT-INDEX* F 14Q *FORMAT-CONTROL-STRING* F 15Q *STANDARD-OUTPUT* F 16Q *FORMAT-DISPATCH-TABLE*) ���@A�@簅���Wg��@g��Ag��g��
��[�WWg��Jg��A
��J蟛WWg��Jg��K
��縆���	��_
_縊_
_縊_
綩
絎M	��
��\橭NOlL噊���M
��縃k訶dA簅���Wg��J�r�(207Q FORMAT-ERROR 163Q SVREF 160Q CHAR-CODE 117Q \MVLIST 114Q PARSE-FORMAT-OPERATION 106Q WRITE-STRING 61Q WRITE-STRING 36Q CL:POSITION)
(235Q :START 101Q :END 75Q :START 54Q :END 50Q :START 32Q CHAR= 27Q :TEST 23Q :END 17Q :START)
( 230Q |\~ 203Q "Illegal FORMAT command ~~~C" 12Q |\~)
FORMAT-CAPITALIZATIONA0001A0002 D1
(F 0 PREV F 1 TILDE F 2 SUB-ESCAPE) �
���PQ
��hc�(4 SUB-FORMAT)
NIL
()
FORMAT-CAPITALIZATIONA0001 D1
(P 0 SUB-ESCAPE F 1 ESCAPE) �

��g��
�g��g��
��Hc�(16Q \CATCH-FUNCALL)
(13Q FORMAT-CAPITALIZATIONA0001A0002 10Q FORMAT-ESCAPE 2 FORMAT-ESCAPE)
()
FORMAT-CAPITALIZATION D1
(L (2 PARMS 1 ATSIGN 0 COLON) P 15Q *STANDARD-OUTPUT* P 14Q ESCAPE P 3 TILDE P 1 PREV F 16Q *FORMAT-INDEX* F 17Q *FORMAT-LENGTH* F 20Q *FORMAT-CONTROL-STRING*) ���B梠���	��縒k詂W梂 W
��唎���	��縪���	��	���H
笻Z
籎\
絃^
_縉
_縈梠���	�����

g��_g��
��縊	��_緼楡烵	��癛@朞	��癐A睞O	��_縊	��縥_縊O鬀OO
��	���OOOO
��	����縊奜k园襉	��	��Od杊	��
���(342Q \DO-THROW 337Q \MVLIST 327Q WRITE-STRING 324Q NSTRING-DOWNCASE 305Q SCHARSET 302Q CHAR-UPCASE 277Q CHAR 262Q ALPHA-CHAR-P 257Q CHAR 235Q NSTRING-DOWNCASE 225Q CL:LENGTH 213Q NSTRING-CAPITALIZE 202Q NSTRING-UPCASE 165Q GET-OUTPUT-STREAM-STRING 157Q \CATCH-FUNCALL 141Q MAKE-STRING-OUTPUT-STREAM 132Q FORMAT-ERROR 56Q \MVLIST 53Q FORMAT-FIND-COMMAND 43Q FORMAT-ERROR 33Q SCHAR 10Q FORMAT-ERROR)
(154Q FORMAT-CAPITALIZATIONA0001 147Q FORMAT-COLON-ESCAPE)
( 127Q "Flags or parameters not allowed" 50Q (|\)) 40Q "Syntax error" 5 "No parameters allowed to ~~(")
FORMAT-ESCAPE D1
(L (2 PARMS 1 ATSIGN 0 COLON) F 3 *FORMAT-ARGUMENTS*) ��
�A榦���@
��緽
瞋Bd
睧d
�8
d3 �緽
B
B
HI骽鸫IJ骽��3	��碄B
B
B
��� 
B
舭

�Hj鸬H�H	��係h鸫@揼��俫��h	��
���(200Q \DO-THROW 175Q \MVLIST 151Q \FZEROP 116Q CHAR< 100Q CHARACTERP 11Q FORMAT-ERROR)
(171Q FORMAT-ESCAPE 165Q FORMAT-COLON-ESCAPE)
( 5 "FORMAT command ~~~:[~;:~]@^ is undefined")
FORMAT-SEMICOLON-ERROR D1
(L (2 PARAMS 1 ATSIGN 0 COLON)) �	���o���	���(6 FORMAT-ERROR)
NIL
( 3 "Unexpected semicolon (probably a missing ~~ somewhere).")
FORMAT-UNTAGGED-CONDITION D1
(F 27Q *FORMAT-INDEX* F 30Q *FORMAT-ARGUMENTS* F 31Q *FORMAT-LENGTH* F 32Q *FORMAT-CONTROL-STRING*) 
U��W0�o���	���pH3 毎
W0c0堪韔���H
��縥YH
��瞇o���	��	��Z
籎\
絃^
_縉_
_縊
_縊梠���	��縊梠���	��縆M
��Oo���
��挶�瞣���	��o���	��	��_,
_*縊,_(
_&縊(_$
_"縊$
_ 縊"梠���	��縊*梠���	��縊 o���
��砞O&瞇W.k詂.W2梂4W.
��唎���	��縪���	��	��_
_縊_
_縊
_縊O
��縊o���
�����	��hW.k詂.W2梂4W.
��唎���	��縄k员�(514Q FORMAT-ERROR 504Q SCHAR 460Q FORMAT-FIND-COMMAND 450Q CHAR= 436Q SUB-FORMAT 376Q \MVLIST 373Q FORMAT-FIND-COMMAND 363Q FORMAT-ERROR 353Q SCHAR 323Q CHAR= 311Q FORMAT-ERROR 276Q FORMAT-ERROR 223Q \MVLIST 220Q FORMAT-FIND-COMMAND 210Q FORMAT-FIND-COMMAND 175Q CHAR= 164Q SUB-FORMAT 156Q FORMAT-ERROR 143Q FORMAT-ERROR 72Q \MVLIST 67Q FORMAT-FIND-COMMAND 56Q %%= 47Q FORMAT-ERROR 12Q FORMAT-ERROR)
NIL
( 511Q "Syntax error" 455Q (|\]) 445Q |\] 370Q (|\; |\]) 360Q "Syntax error" 320Q |\] 306Q "Parameters not allowed"
 273Q "Atsign flag not allowed" 215Q (|\; |\]) 205Q (|\]) 172Q |\] 153Q "No parameters allowed" 140Q "Atsign flag not allowed"
 64Q (|\; |\]) 43Q "Argument to ~~[ must be integer - ~S" 7 "Missing argument")
FORMAT-FUNNY-CONDITION D1
(F 11Q *FORMAT-ARGUMENTS*) �V	
��o���	��	���H
笻Z
籎\
絃^
_縉
_縊梠���	��縒�
o���	��d
柨IK
��
Wc��(113Q SUB-FORMAT 101Q FORMAT-ERROR 65Q FORMAT-ERROR 11Q \MVLIST 6 FORMAT-FIND-COMMAND)
NIL
( 76Q "Missing argument" 62Q "Flags or arguments not allowed" 3 (|\]))
FORMAT-BOOLEAN-CONDITION D1
(F 22Q *FORMAT-INDEX* F 23Q *FORMAT-ARGUMENTS* F 24Q *FORMAT-LENGTH* F 25Q *FORMAT-CONTROL-STRING*) ����o���	��	��� H
笻Z
籎\
絃^
_縉
_縈梠���	��縒$k詂$W(梂*W$
��唎���	��縒&礦o���	��睼o���	��	��_
_縊_
_縊_
_縊_
_ 縊
_"縊 "梠���	��縊O
��
W&c&堪琁K
��o���	���(301Q FORMAT-FIND-COMMAND 272Q SUB-FORMAT 253Q SUB-FORMAT 243Q FORMAT-ERROR 153Q \MVLIST 150Q FORMAT-FIND-COMMAND 137Q FORMAT-ERROR 123Q FORMAT-ERROR 113Q SCHAR 70Q FORMAT-ERROR 11Q \MVLIST 6 FORMAT-FIND-COMMAND)
NIL
( 276Q (|\]) 240Q "Flags or parameters not allowed" 145Q (|\]) 134Q "Missing argument" 120Q "Syntax error"
 65Q "Flags or parameters not allowed" 3 (|\;))
FORMAT-CONDITION D1
(L (2 PARMS 1 ATSIGN 0 COLON) F 0 *FORMAT-INDEX* F 1 *FORMAT-ARGUMENTS* F 2 *FORMAT-LENGTH* F 3 *FORMAT-CONTROL-STRING*) �O��B�Pk詂�R�!SP
���!
Bb縌c緽层o���	��堪賝���	��緻滱梠���	�����A������(114Q FORMAT-UNTAGGED-CONDITION 110Q FORMAT-FUNNY-CONDITION 102Q FORMAT-BOOLEAN-CONDITION 76Q FORMAT-ERROR 62Q FORMAT-ERROR 50Q FORMAT-ERROR 21Q SCHAR)
NIL
( 73Q "~~:@[ undefined" 57Q "Syntax error" 45Q "Too many parameters to ~[")
FORMAT-ITERATIONA0001A0002 D1
(L (0 C) F 0 A0319) ��
�
@c�g��h	��
���(14Q \DO-THROW 11Q \MVLIST)
(5 A0321)
()
FORMAT-ITERATIONA0001 D1
(P 3 *FORMAT-INDEX* P 2 *FORMAT-LENGTH* P 1 *FORMAT-CONTROL-STRING* P 0 *CONDITION-HANDLER-BINDINGS* F 4 *CONDITION-HANDLER-BINDINGS* F 5 STRING F 6 MAX-ITER F 7 END-COLON F 10Q COLON F 11Q ATSIGN) �(��g��g��T
�Ud	��jjJVWWW
��	���(45Q \MVLIST 41Q FORMAT-DO-ITERATION 20Q CL:LENGTH)
(5 FORMAT-ITERATIONA0001A0002 2 FORMAT-ERROR)
()
FORMAT-ITERATION D1
(L (2 PARMS) P 15Q A0319 P 14Q STRING P 13Q STRING P 12Q END-COLON P 0 MAX-ITER I 1 ATSIGN I 0 COLON F 16Q *FORMAT-INDEX* F 17Q *FORMAT-ARGUMENTS* F 20Q *FORMAT-CONTROL-STRING* F 21Q *FORMAT-LENGTH*) ���B楤
Bb康m��	B梠���	��縒k詂W"梂 W
��唎���	��縪���	��	���
I
篒[
糑]
綧_
_縊
梠���	��縅dL
��瞣縒�"o���	��
O���	��縊	��汷�
Wc堪郞	��
g��g��
��_縊�O	��_縢��g��o���W Wk詇O	����LH@AO
���(345Q FORMAT-DO-ITERATION 332Q CL:ERROR 326Q FORMAT-ERROR-ARGS 271Q VALUES-LIST 255Q \CATCH-FUNCALL 241Q MKSTRING 217Q SIMPLE-STRING-P 211Q FORMAT-ERROR 172Q FORMAT-ERROR 154Q %%= 145Q FORMAT-ERROR 76Q \MVLIST 73Q FORMAT-FIND-COMMAND 63Q FORMAT-ERROR 53Q SCHAR 30Q FORMAT-ERROR)
(303Q :ARGS 300Q FORMAT-ERROR 252Q FORMAT-ITERATIONA0001 247Q A0321)
( 307Q "While processing indirect control string~%%~S~%%~V@T^" 206Q "Control string is not a string" 167Q
 "Missing argument" 142Q "Illegal terminator for ~~{" 70Q (|\}) 60Q "Syntax error" 25Q "Too many parameters")
FORMAT-DO-ITERATIONA0001A0002A0003 D1
(P 0 *FORMAT-ARGUMENTS* F 1 *FORMAT-ARGUMENTS* F 2 COLON F 3 START F 4 END) �*
��R�Q�o���	��
�H���	��縎T
��
Qc堪��(37Q SUB-FORMAT 31Q FORMAT-ERROR 14Q FORMAT-ERROR)
NIL
( 26Q "Argument must be a list" 11Q "Missing argument")
FORMAT-DO-ITERATIONA0001A0002A0004 D1
(P 0 *FORMAT-ARGUMENTS* F 1 *FORMAT-ARGUMENTS* F 2 COLON F 3 START F 4 END) �*
��R�Q�o���	��
�H���	��縎T
��
Qc堪��(37Q SUB-FORMAT 31Q FORMAT-ERROR 14Q FORMAT-ERROR)
NIL
( 26Q "Argument must be a list of lists" 11Q "Missing argument")
FORMAT-DO-ITERATIONA0001A0002 D1
(P 1 *FORMAT-ARGUMENTS* F 3 *FORMAT-ARGUMENTS* F 4 MAX-ITER F 5 AT-LEAST-ONCE-P F 6 ATSIGN) �u��V�,j
�HT
��璖璈j
��揢h饊i慼g��g��
��縃k訶拜S�,o���	��I���	��縥ZT
��承I�Jj
��沀h饒
Sc堪譱掣g��g��
��縅k园��(155Q \CATCH-FUNCALL 124Q %%= 112Q %%= 103Q FORMAT-ERROR 66Q FORMAT-ERROR 45Q \CATCH-FUNCALL 23Q %%= 13Q %%=)
(152Q FORMAT-DO-ITERATIONA0001A0002A0004 147Q FORMAT-ESCAPE 42Q FORMAT-DO-ITERATIONA0001A0002A0003 37Q FORMAT-ESCAPE)
( 100Q "Argument must be a list" 63Q "Missing argument")
FORMAT-DO-ITERATIONA0001 D1
NIL �����g��g��
���(10Q \CATCH-FUNCALL)
(5 FORMAT-DO-ITERATIONA0001A0002 2 FORMAT-ESCAPE)
()
FORMAT-DO-ITERATION D1
(I 5 AT-LEAST-ONCE-P I 4 ATSIGN I 3 COLON I 2 MAX-ITER I 1 END I 0 START) ����g��g��
���(10Q \CATCH-FUNCALL)
(5 FORMAT-DO-ITERATIONA0001 2 FORMAT-COLON-ESCAPE)
()
FORMAT-GET-TRAILING-SEGMENTSA0001 D1
(P 0 *STANDARD-OUTPUT* F 1 PREV F 2 TILDE) �
����
�QR
��H	���(16Q GET-OUTPUT-STREAM-STRING 12Q SUB-FORMAT 2 MAKE-STRING-OUTPUT-STREAM)
NIL
()
FORMAT-GET-TRAILING-SEGMENTS D1
(P 3 TILDE P 1 PREV F 21Q *FORMAT-INDEX* F 22Q *FORMAT-LENGTH* F 23Q *FORMAT-CONTROL-STRING*) ����W"k詂"W$梂&W"
��唎���	��縪���	��	���H
笻Z
籎\
絃^
_縉_
_縊
_縈梠���	��縊梠���	��縢��g��
��_碙Oo���
���3��	��_
_縊_
_縊
_ 縊OOk設 O	�����OhkO	����jd���(301Q VALUES 273Q VALUES 270Q CL:LENGTH 255Q VALUES 251Q CL:LENGTH 203Q \MVLIST 200Q FORMAT-GET-TRAILING-SEGMENTS 173Q CHAR= 156Q \CATCH-FUNCALL 144Q FORMAT-ERROR 126Q FORMAT-ERROR 44Q \MVLIST 41Q FORMAT-FIND-COMMAND 31Q FORMAT-ERROR 21Q SCHAR)
(153Q FORMAT-GET-TRAILING-SEGMENTSA0001 150Q FORMAT-ESCAPE)
( 170Q |\; 141Q "Flags and parameters not allowed" 123Q "~~:; allowed only after first segment in ~~<"
 36Q (|\; |\>) 26Q "Syntax error")
FORMAT-GET-SEGMENTS D1
(P 21Q *STANDARD-OUTPUT*) �����o���	��	���H
笻Z
籎\
絃^
_縉_
_縊
_縊梠���	�����
IK
��縊"	��_縊o���
��碐��	��_
_縊_
_縊
_ 縊�OMOOO 
��dOOOk設	��O �
��dOhkO	��
���(261Q VALUES 255Q CL:LENGTH 241Q VALUES 232Q CL:LENGTH 212Q VALUES 143Q \MVLIST 140Q FORMAT-GET-TRAILING-SEGMENTS 133Q CHAR= 116Q GET-OUTPUT-STREAM-STRING 110Q SUB-FORMAT 100Q MAKE-STRING-OUTPUT-STREAM 74Q FORMAT-ERROR 11Q \MVLIST 6 FORMAT-FIND-COMMAND)
NIL
( 130Q |\; 71Q "Atsign flag not allowed" 3 (|\; |\>))
MAKE-PAD-SEGS D1
(L (1 PADDINGS 0 SPACES)) �N��P@A
��篅AJ终籄\j鸪'L�K	���jk��
��LK
��X欽k試	��测IJI笻揔k諃K籐k瞻��(67Q \FZEROP 54Q %%/ 47Q RAND 35Q PLUSP 7 TRUNCATE)
(44Q FLOATP)
()
FORMAT-ROUND-COLUMNS D1
(L (2 COLINC 1 MINCOL 0 WIDTH)) ����@dA髳BA@誃
��衷�(15Q CEILING)
NIL
()
FORMAT-JUSTIFICATION D1
(L (2 PARMS 1 ATSIGN 0 COLON) F 30Q *FORMAT-INDEX* F 31Q *FORMAT-LENGTH* F 32Q *FORMAT-CONTROL-STRING* F 33Q *STANDARD-OUTPUT*) 
��B楤
Bb康jB楤
Bb康kB楤
Bb康jB楤
Bb康o����PB梠���	��縃3 搄H髽o���H
��縄3 擨	��╫���I
��縅3 搄J髽o���J
��縆	��╫���K
��縒0k詂0W2梂4W0
��唎���	�����	��\
絃^
_縉_
_縊_
_縊
_緻k
��慿€jOk誂慿€j栽_縊JO衷HI��_緻k
��慼僶���OO誒
��A慼僶���
��
��_縈睳O歄
O_康jO歄
O_康	���lH_"縚 縊梠���	��縒6	���jOO 栽O"髷M	��縊O_&縚$�"O&
j_*縚(縊(O*蟆hK	��縊*k訽*堪霴&
j_.縚,縊,O.鬂K	��縊.k訽.堪頞$
	��縊$O&爱�(670Q WRITE-STRING 650Q WRITE-CHAR 612Q WRITE-CHAR 550Q WRITE-STRING 527Q CHARPOS 521Q FORMAT-ERROR 475Q LINE-LENGTH 427Q \APPEND2 424Q \APPEND2 411Q MAKE-PAD-SEGS 370Q %%= 355Q FORMAT-ROUND-COLUMNS 317Q %%= 245Q \MVLIST 242Q FORMAT-GET-SEGMENTS 236Q FORMAT-ERROR 226Q SCHAR 203Q FORMAT-ERROR 172Q CHARACTERP 165Q FORMAT-ERROR 144Q FORMAT-ERROR 133Q PLUSP 122Q FORMAT-ERROR 101Q FORMAT-ERROR)
NIL
( 516Q "Too many parameters" 421Q (0) 377Q (0) 233Q "Syntax error" 177Q "Padchar must be a character - ~S"
 161Q "Minpad must be a non-negative integer - ~S" 140Q "Colinc must be a positive integer - ~S" 116Q "Mincol must be a non-negative integer - ~S"
 76Q "Too many parameters" 62Q |\Space)
FORMAT-TERPRI D1
(L (2 PARMS 1 ATSIGN 0 COLON) F 3 *STANDARD-OUTPUT*) �;
�@梠���	��緽楤
Bb康k!B梠���	��縃j汗IJ蟆hS	��縅k院榜�(62Q TERPRI 43Q FORMAT-ERROR 12Q FORMAT-ERROR)
NIL
( 40Q "Too many parameters" 7 "Flags not allowed")
FORMAT-FRESHLINE D1
(L (2 PARMS 1 ATSIGN 0 COLON) F 3 *STANDARD-OUTPUT*) �@
�@梠���	��緽楤
Bb康k!B梠���	�����Hk誮汗IJ蟆hS	��縅k院榜�(67Q TERPRI 47Q FRESH-LINE 43Q FORMAT-ERROR 12Q FORMAT-ERROR)
NIL
( 40Q "Too many parameters" 7 "Flags not allowed")
FORMAT-PAGE D1
(L (2 PARMS 1 ATSIGN 0 COLON)) �>��@梠���	��緽楤
Bb康k!B梠���	��縃j汗IJ蟆ho���	��縅k院邦�(65Q WRITE-CHAR 43Q FORMAT-ERROR 12Q FORMAT-ERROR)
NIL
( 62Q |\Page 40Q "Too many parameters" 7 "Flags not allowed")
FORMAT-TILDE D1
(L (2 PARMS 1 ATSIGN 0 COLON)) �>��@梠���	��緽楤
Bb康k!B梠���	��縃j汗IJ蟆ho���	��縅k院邦�(65Q WRITE-CHAR 43Q FORMAT-ERROR 12Q FORMAT-ERROR)
NIL
( 62Q |\~ 40Q "Too many parameters" 7 "Flags not allowed")
FORMAT-EAT-WHITESPACE D1
(F 0 *FORMAT-INDEX* F 1 *FORMAT-CONTROL-STRING* F 2 *FORMAT-LENGTH*) �3���Pk詂�R昋P
��唎���	��縢��	��Qg��P���	Q	��c�k瞻��(52Q CL:LENGTH 44Q POSITION-IF-NOT 34Q SYMBOL-FUNCTION 25Q FORMAT-ERROR 15Q SCHAR)
(40Q :START 31Q WHITESPACE-CHAR-P)
( 22Q "Syntax error")
FORMAT-NEWLINE D1
(L (2 PARMS 1 ATSIGN 0 COLON) F 0 *STANDARD-OUTPUT*) �"�
�B梠���	��緻欰�	o���	��A揚	�����(37Q FORMAT-EAT-WHITESPACE 34Q TERPRI 25Q FORMAT-ERROR 10Q FORMAT-ERROR)
NIL
( 22Q "~:@<newline> is undefined" 5 "Parameters not allowed")
FORMAT-PLURAL D1
(L (2 PARMS 1 ATSIGN 0 COLON) F 1 *FORMAT-ARGUMENTS* F 2 *FORMAT-ORIGINAL-ARGUMENTS*) �d
�B梠���	��緻�$R	��Q	��誯�
�jH髼o���	��咹R
��cQ�o���	��k:�A渙����
Qc堪飋���	��A攐���僶���	���(141Q WRITE-STRING 122Q WRITE-STRING 70Q FORMAT-ERROR 53Q NTHCDR 45Q FORMAT-ERROR 24Q CL:LENGTH 20Q CL:LENGTH 10Q FORMAT-ERROR)
NIL
( 136Q "s" 131Q "ies" 117Q "" 102Q "y" 65Q "Missing argument" 42Q "No previous argument" 5 "Parameters not allowed")
FORMAT-SKIP-ARGUMENTS D1
(L (2 PARMS 1 ATSIGN 0 COLON) F 2 *FORMAT-ARGUMENTS* F 3 *FORMAT-ORIGINAL-ARGUMENTS*) �r�B楤
Bb康k
B梠���	��緼�jH螃HS	��髼o���	��縃S
��c@�"S	��R	��誋展jI髼o���	��IS
��cHR	��髼o���	��HR
��c�(155Q NTHCDR 147Q FORMAT-ERROR 136Q CL:LENGTH 126Q NTHCDR 120Q FORMAT-ERROR 101Q CL:LENGTH 75Q CL:LENGTH 63Q NTHCDR 55Q FORMAT-ERROR 44Q CL:LENGTH 27Q FORMAT-ERROR)
NIL
( 144Q "Skip to nonexistant argument" 115Q "Skip to nonexistant argument" 52Q "Illegal to go to non-existant argument"
 24Q "Too many parameters")
FORMAT-INDIRECTIONA0001A0002 D1
(L (0 C) F 0 A0374) ��
�
@c�g��h	��
���(14Q \DO-THROW 11Q \MVLIST)
(5 A0376)
()
FORMAT-INDIRECTIONA0001 D1
(P 4 *FORMAT-ARGUMENTS* P 3 *FORMAT-INDEX* P 2 *FORMAT-LENGTH* P 1 *FORMAT-CONTROL-STRING* P 0 *CONDITION-HANDLER-BINDINGS* F 5 *FORMAT-ARGUMENTS* F 6 *CONDITION-HANDLER-BINDINGS* F 7 STRING F 10Q ATSIGN) �A��g��g��V
�Wd	��jW杍J
���U�o���	��
jJ
��	��
Uc
堪��(66Q \MVLIST 61Q SUB-FORMAT 51Q FORMAT-ERROR 35Q SUB-FORMAT 21Q CL:LENGTH)
(5 FORMAT-INDIRECTIONA0001A0002 2 FORMAT-ERROR)
( 46Q "Missing argument")
FORMAT-INDIRECTION D1
(L (2 PARMS 0 COLON) P 4 A0374 P 3 STRING P 0 STRING I 1 ATSIGN F 5 *FORMAT-ARGUMENTS* F 6 *FORMAT-CONTROL-STRING* F 7 *FORMAT-INDEX*) �s�@梠���	��緽梠���	��縐�o���	��!H���	��縃	��橦�
Uc
堪銱	��g��g��
��筁�I	��篻��g��o���VWk詇J	�����(160Q CL:ERROR 154Q FORMAT-ERROR-ARGS 123Q VALUES-LIST 113Q \CATCH-FUNCALL 77Q MKSTRING 60Q SIMPLE-STRING-P 53Q FORMAT-ERROR 35Q FORMAT-ERROR 22Q FORMAT-ERROR 10Q FORMAT-ERROR)
(133Q :ARGS 130Q FORMAT-ERROR 110Q FORMAT-INDIRECTIONA0001 105Q A0376)
( 137Q "While processing indirect control string~%%~S~%%~V@T^" 50Q "Indirected control string is not a string"
 32Q "Missing argument" 17Q "Parameters not allowed" 5 "Colon modifier not allowed")
FORMAT-TAB D1
(L (2 PARMS 1 ATSIGN 0 COLON) F 6 *STANDARD-OUTPUT*) �v
�B楤
Bb康kB楤
Bb康kBB梠���	��緻梠���	��縑	��[�!IA揔H詟HI
��趾KJ髽IKJ誌
��丣K諈A慔乴k誮郊LM蟆ho���V
��縈k越绊�(155Q WRITE-CHAR 117Q REM 101Q CEILING 62Q POSITION 55Q FORMAT-ERROR 43Q FORMAT-ERROR)
NIL
( 151Q |\Space 52Q "Tab-to in pixel units not supported" 40Q "Too many parameters")
FORMAT-PRINC D1
(L (2 PARMS 1 ATSIGN 0 COLON) F 5 *FORMAT-ARGUMENTS*) �€
�U�!o���	��
�B�H�
@�
o���	��	��
Uc
堪�
Bb康jB楤
Bb康kB楤
Bb康jB楤
Bb康o���B梠���	��縃�
@�o����	��IJKLA
���(175Q FORMAT-WRITE-FIELD 164Q PRINC-TO-STRING 145Q FORMAT-ERROR 40Q PRINC 34Q WRITE-STRING 11Q FORMAT-ERROR)
NIL
( 160Q "()" 142Q "Too many parameters" 131Q |\Space 31Q "()" 6 "Missing argument")
FORMAT-PRIN1 D1
(L (2 PARMS 1 ATSIGN 0 COLON) F 5 *FORMAT-ARGUMENTS*) �€
�U�!o���	��
�B�H�
@�
o���	��	��
Uc
堪�
Bb康jB楤
Bb康kB楤
Bb康jB楤
Bb康o���B梠���	��縃�
@�o����	��IJKLA
���(175Q FORMAT-WRITE-FIELD 164Q PRIN1-TO-STRING 145Q FORMAT-ERROR 40Q CL:PRIN1 34Q WRITE-STRING 11Q FORMAT-ERROR)
NIL
( 160Q "()" 142Q "Too many parameters" 131Q |\Space 31Q "()" 6 "Missing argument")
FORMAT-PRINT-CHARACTER D1
(L (2 PARMS 1 ATSIGN 0 COLON) F 1 *FORMAT-ARGUMENTS*) �<

�B梠���	��縌�"o���	��
�H	�����	��緼濦琀	��
Qc堪酘@
���(71Q FORMAT-PRINT-NAMED-CHARACTER 53Q CL:PRIN1 42Q FORMAT-ERROR 32Q CHARACTERP 23Q FORMAT-ERROR 10Q FORMAT-ERROR)
NIL
( 37Q "Argument must be a character" 20Q "Missing argument" 5 "Too many parameters")
FORMAT-PRINT-NAMED-CHARACTER D1
(L (1 LONGP 0 CHAR)) �E��@	��	��
H	���'@	��筳I蟪'Il蟪!o���	��@	��l@�	��	��	��	��	��H	���(102Q WRITE-CHAR 75Q WRITE-STRING 72Q STRING-CAPITALIZE 67Q PRINC-TO-STRING 63Q WRITE-CHAR 60Q CODE-CHAR 52Q CHAR-CODE 46Q WRITE-CHAR 23Q CHAR-CODE 15Q CHAR-NAME 6 CODE-CHAR 3 CHAR-CODE)
NIL
( 43Q |\^)
FORMAT-ADD-COMMAS D1
(L (1 COMMACHAR 0 STRING)) ����@	��AHdk誰
��訷g��A��篐籌糑	���3Km�:�+Jj
��o���:璊dj
��o���:�緼Jg��kg��l
��JJ@g��jLl�
��g��Lg��jKl�
��g��K
��篕l栈Ll瞻��(170Q CL:REPLACE 160Q MAX 141Q MAX 121Q CL:REMOVE 72Q CHAR 56Q CHAR 41Q PLUSP 30Q MAKE-STRING 17Q CL:FLOOR 3 CL:LENGTH)
(163Q :END2 150Q :START2 144Q :END1 131Q :START1 113Q :END 107Q :START 24Q :INITIAL-ELEMENT)
( 76Q |\- 62Q |\+)
FORMAT-WRITE-FIELD D1
(L (5 PADLEFT 4 PADCHAR 3 MINPAD 2 COLINC 1 MINCOL 0 STRING)) ����A3 搄A髽o���A
��緽3 擝	��╫���B
��緾3 搄C髽o���C
��緿	��╫���D
��緻	��QHC訟B��笶�IH誮缓JK髿D	��縆k曰绑@	��@	��IH誮郊LM蟆hD	��縈k越榜�(202Q WRITE-CHAR 162Q WRITE-STRING 155Q WRITE-STRING 142Q WRITE-CHAR 120Q FORMAT-ROUND-COLUMNS 105Q CL:LENGTH 100Q FORMAT-ERROR 67Q CHARACTERP 62Q FORMAT-ERROR 41Q FORMAT-ERROR 30Q PLUSP 17Q FORMAT-ERROR)
NIL
( 74Q "Padchar must be a character - ~S" 56Q "Minpad must be a non-negative integer - ~S" 35Q "Colinc must be a positive integer - ~S"
 13Q "Mincol must be a non-negative integer - ~S")
FORMAT-PRINT-NUMBER D1
(L (4 PARMS 3 PRINT-SIGN-P 2 PRINT-COMMAS-P 1 RADIX 0 NUMBER) P 4 *PRINT-BASE*) ����D楧
Db康jD楧
Db康o���D楧
Db康o���D梠���	��緼
@	��籃3 �K	��	���%C�"B�g��o���KJ
�����g��o���K��圔昁J
��€KHkjIi
���(203Q FORMAT-WRITE-FIELD 170Q FORMAT-ADD-COMMAS 160Q CONCATENATE 143Q CONCATENATE 140Q FORMAT-ADD-COMMAS 114Q PLUSP 110Q WRITE-STRING 76Q PRINC-TO-STRING 65Q FORMAT-ERROR)
(150Q STRING 127Q STRING)
( 154Q "+" 133Q "+" 62Q "Too many parameters" 51Q |\, 32Q |\Space)
FORMAT-PRINT-SMALL-CARDINAL D1
(L (0 N) F 6 CARDINAL-ONES F 7 CARDINAL-TENS F 10Q CARDINAL-TEENS) ���
@ld
��	��QH
笻
篒	���"VI
��	��縪���	��縅d	��櫩o���	��縅	��碪Jl

��	��[
糑
絃dk蟛"縒L
��	��M	���/o���	��VM
��	��k
��橶M
��	��M	���
VM
��	���(221Q WRITE-STRING 216Q SVREF 207Q PLUSP 202Q WRITE-STRING 177Q SVREF 170Q %%= 163Q WRITE-STRING 160Q SVREF 153Q WRITE-CHAR 142Q PLUSP 136Q WRITE-STRING 133Q SVREF 107Q \MVLIST 104Q TRUNCATE 74Q PLUSP 67Q WRITE-CHAR 56Q PLUSP 50Q WRITE-STRING 40Q WRITE-STRING 35Q SVREF 26Q PLUSP 10Q \MVLIST 5 TRUNCATE)
NIL
( 150Q |\- 64Q |\Space 45Q " hundred")
FORMAT-PRINT-CARDINAL D1
(L (0 N)) �2���
j@鬅o���	��j@誮@��@j皙@d漝	��樋o���	��j@���(57Q FORMAT-PRINT-CARDINAL-AUX 51Q WRITE-STRING 40Q \FZEROP 22Q FORMAT-PRINT-CARDINAL-AUX 12Q WRITE-STRING)
NIL
( 46Q "zero" 7 "negative ")
FORMAT-PRINT-CARDINAL-AUX D1
(L (2 ERR 1 PERIOD 0 N) F 3 CARDINAL-PERIODS) �n
�@n�
��	��!H
笻
篈l
髽o���B
��縄j鸪Id�	��↖Ak訠��縅j鸪/J旿	���%Ij鸪I擨	�����	��縅	��SA
��	��h�(151Q WRITE-STRING 146Q SVREF 141Q FORMAT-PRINT-SMALL-CARDINAL 134Q WRITE-CHAR 124Q \FZEROP 105Q \FZEROP 67Q FORMAT-PRINT-CARDINAL-AUX 56Q \FZEROP 40Q FORMAT-ERROR 11Q \MVLIST 6 TRUNCATE)
NIL
( 131Q |\Space 34Q "Number too large to print in English: ~:D")
FORMAT-PRINT-ORDINAL D1
(L (0 N) F 7 ORDINAL-ONES F 10Q CARDINAL-TEENS F 11Q CARDINAL-TENS F 12Q ORDINAL-TENS) ���
j@髼o���	��緻	��aHld
��	��Y
篒
籎dj鸪朖d	��ǹHK�	��縅	��濳d	��櫩o���	��縆l

��	��\
絃
綤l
��梠���	��Mdk
���縒N
��	��o���	��j鸪6M�,Nj鸪CN�9K	��睭WM
��	��o���	��WN
��	��	��灿Nd	��餐縒N
��	��	��财M	��怖WM
��	��H	��梠���	��o���	���(371Q WRITE-STRING 361Q WRITE-STRING 351Q PLUSP 344Q WRITE-STRING 341Q SVREF 331Q PLUSP 323Q \FZEROP 317Q WRITE-STRING 314Q SVREF 303Q PLUSP 274Q \FZEROP 270Q WRITE-STRING 265Q SVREF 257Q WRITE-CHAR 250Q WRITE-STRING 245Q SVREF 235Q PLUSP 205Q WRITE-STRING 176Q WRITE-STRING 173Q SVREF 162Q %%= 153Q WRITE-STRING 143Q %%= 126Q \MVLIST 123Q TRUNCATE 114Q WRITE-CHAR 103Q PLUSP 75Q PLUSP 70Q FORMAT-PRINT-CARDINAL 60Q \FZEROP 33Q \MVLIST 30Q TRUNCATE 17Q ABS 12Q WRITE-STRING)
NIL
( 366Q "zeroeth" 356Q "th" 254Q |\- 202Q "th" 150Q "twelfth" 111Q |\Space 7 "negative ")
FORMAT-PRINT-OLD-ROMAN D1
(L (0 N)) �X��
@j髸n園蟥o���@
��縪���o���o���n鐯Lj鸪"L�HIH
I
L終M鬄M蓟汗赴�	��茬hJ	��縈K瞻��(120Q WRITE-CHAR 110Q \FZEROP 21Q FORMAT-ERROR)
NIL
( 36Q |\M 32Q (764Q 144Q 62Q 12Q 5 1) 26Q (|\D |\C |\L |\X |\V |\I) 15Q "Number too large to print in old Roman numerals: ~:D")
FORMAT-PRINT-ROMAN D1
(L (0 N)) ��
��
@j髸n燖蟥o���@
��縪���o���o���o���o���n鑟���ld@	Oj鸪CO�8HIJKH
I
J
K
O_縈O蟛5MO誒蟪N	��縇	��縊MO照�	��睬hO_縚烤郊缓垢皑L	��縊M瞻��(221Q WRITE-CHAR 170Q \FZEROP 154Q WRITE-CHAR 147Q WRITE-CHAR 21Q FORMAT-ERROR)
NIL
( 55Q |\C 46Q |\M 42Q (144Q 12Q 12Q 1 1 0) 36Q (|\C |\X |\X |\I |\I) 32Q (764Q 144Q 62Q 12Q 5 1) 26Q (|\D |\C |\L |\X |\V |\I)
 15Q "Number too large to print in Roman numerals: ~:D")
FORMAT-PRINT-DECIMAL D1
(L (2 PARMS 1 ATSIGN 0 COLON) F 0 *FORMAT-ARGUMENTS*) ��
�P�o���	��l
@AB
��
Pc�堪��(22Q FORMAT-PRINT-NUMBER 11Q FORMAT-ERROR)
NIL
( 6 "Missing argument")
FORMAT-PRINT-BINARY D1
(L (2 PARMS 1 ATSIGN 0 COLON) F 0 *FORMAT-ARGUMENTS*) ��
�P�o���	��l@AB
��
Pc�堪��(22Q FORMAT-PRINT-NUMBER 11Q FORMAT-ERROR)
NIL
( 6 "Missing argument")
FORMAT-PRINT-OCTAL D1
(L (2 PARMS 1 ATSIGN 0 COLON) F 0 *FORMAT-ARGUMENTS*) ��
�P�o���	��l@AB
��
Pc�堪��(22Q FORMAT-PRINT-NUMBER 11Q FORMAT-ERROR)
NIL
( 6 "Missing argument")
FORMAT-PRINT-HEXADECIMAL D1
(L (2 PARMS 1 ATSIGN 0 COLON) F 0 *FORMAT-ARGUMENTS*) ��
�P�o���	��l@AB
��
Pc�堪��(22Q FORMAT-PRINT-NUMBER 11Q FORMAT-ERROR)
NIL
( 6 "Missing argument")
FORMAT-PRINT-RADIX D1
(L (2 PARMS 1 ATSIGN 0 COLON) F 1 *FORMAT-ARGUMENTS*) �C

�Q�o���	��
�B�HB
Bb緻AB
��
Qc堪銩汙擧	��H	��@擧	��H	���(100Q FORMAT-PRINT-CARDINAL 73Q FORMAT-PRINT-ORDINAL 64Q FORMAT-PRINT-ROMAN 57Q FORMAT-PRINT-OLD-ROMAN 36Q FORMAT-PRINT-NUMBER 11Q FORMAT-ERROR)
NIL
( 6 "Missing argument")
FORMAT-FIXED D1
(L (2 PARMS 1 ATSIGN 0 COLON) P 6 *PRINT-BASE* F 7 *FORMAT-ARGUMENTS*) ��
�@梠���	��緽d�
Bbd�
Bb緽d�
Bbd�
Bb緽楤
Bb康o���B梠���	��縒�o���	��]d�HIJKLA
��
Wc堪�	���Mg��
��HIJKLA
��l

M	��Hkjo���i
���(230Q FORMAT-WRITE-FIELD 214Q PRINC-TO-STRING 202Q FORMAT-FIXED-AUX 170Q COERCE 157Q RATIONALP 142Q FORMAT-FIXED-AUX 122Q FORMAT-ERROR 106Q FORMAT-ERROR 10Q FORMAT-ERROR)
(165Q SHORT-FLOAT)
( 223Q |\Space 117Q "Missing argument" 103Q "Too many parameters" 72Q |\Space 5 "Colon flag not allowed")
FORMAT-FIXED-AUX D1
(L (6 ATSIGN 5 PAD 4 OVF 3 K 2 D 1 W 0 NUMBER)) ����A�
B	��A�A橣@髶Hk崭@	��HBC��	��Y
篒[
糑]
綧
_緽�A⒈�匟L崭N�%Hj蟪 O��j皙B层B	��草h_堪譎k崭O淗j蟠Hk崭俖緼睪jH蟛#D� Aj_縚縊O蟆hD	��縊k訽堪霢�Hj_縚縊O鬂E	��縊k訽堪頹@髷o���匜梠���	��縉梠���	��縅	��O�	o���	���(357Q WRITE-CHAR 344Q WRITE-STRING 337Q WRITE-CHAR 325Q WRITE-CHAR 271Q WRITE-CHAR 232Q WRITE-CHAR 137Q \FZEROP 46Q \MVLIST 43Q FLONUM-TO-STRING 35Q ABS 10Q CL:PRIN1)
NIL
( 354Q |\0 334Q |\0 322Q |\+ 313Q |\-)
FORMAT-EXPONENTIAL D1
(L (2 PARMS 1 ATSIGN 0 COLON) P 10Q *PRINT-BASE* F 11Q *FORMAT-ARGUMENTS*) ��	
�@梠���	��緽d�
Bbd�
Bb緽楤
Bb康lB楤
Bb康kBd�
Bb楤
Bb康o���Bd�
Bb�B梠���	��縒�o���	��_d�HIJKLMNA
	��
Wc堪�	���Og��
��HIJKLMNA
	��l

O	��Hkjo���i
���(267Q FORMAT-WRITE-FIELD 253Q PRINC-TO-STRING 240Q FORMAT-EXP-AUX 224Q COERCE 212Q RATIONALP 175Q FORMAT-EXP-AUX 152Q FORMAT-ERROR 136Q FORMAT-ERROR 10Q FORMAT-ERROR)
(221Q SHORT-FLOAT)
( 262Q |\Space 147Q "Missing argument" 133Q "Too many parameters" 111Q |\Space 5 "Colon flag not allowed")
FORMAT-EXPONENT-MARKER D1
(L (0 NUMBER) F 1 *READ-DEFAULT-FLOAT-FORMAT*) �=

�
@dQ
��攐���
�Hdl饠o���l饠o���Hdl饠o���l鸫o����(5 TYPEP)
NIL
( 72Q |\L 57Q |\D 43Q |\F 31Q |\S 12Q |\E)
FORMAT-EXP-AUX D1
(L (10Q ATSIGN 7 MARKER 6 PAD 5 OVF 4 K 3 E 2 D 1 W 0 NUMBER)) 
���	A	��@	��	��	���pH
笻
D語	��	��籆楰	��C
��僈	��糂�D	��旴D誯詟B絡D蟠kD站Ad攍誏誣縂@髺Ok誣緼�+C�(E�%LC蟛 Aj_縚縊O蟆hE	��縊k訽堪霫OMDN
��	��_
_縊_
_縊_
_縊
_ 緼瞨OO誣縊 朞k誣縊�Oj蟠
Ok誣總_緼睭jO蟛"E�Aj_$縚"縊"O$蟠侲	��縊$k訽$堪鞟�Oj_(縚&縊&O(鬂F	��縊(k訽(堪頹@髷o���咷梠���	��縊梠���	��縊	��O 梠���	��縂�@	��	��jJ髷o���僶���	��C�K	��K	��誮_,縚*縊*O,蟛阰���	��縊,k訽,堪��(641Q WRITE-CHAR 613Q CL:LENGTH 606Q WRITE-STRING 577Q WRITE-CHAR 557Q WRITE-CHAR 554Q FORMAT-EXPONENT-MARKER 543Q WRITE-CHAR 531Q WRITE-STRING 523Q WRITE-CHAR 510Q WRITE-CHAR 453Q WRITE-CHAR 413Q WRITE-CHAR 243Q \MVLIST 240Q FLONUM-TO-STRING 214Q WRITE-CHAR 77Q PLUSP 67Q CL:LENGTH 62Q MAX 56Q CL:LENGTH 47Q PRINC-TO-STRING 44Q ABS 22Q \MVLIST 17Q SCALE-EXPONENT 14Q ABS 7 CL:PRIN1)
NIL
( 636Q |\0 574Q |\+ 567Q |\- 540Q |\0 520Q |\0 505Q |\+ 475Q |\-)
FORMAT-GENERAL-FLOAT D1
(L (2 PARMS 1 ATSIGN 0 COLON) P 10Q *PRINT-BASE* F 11Q *FORMAT-ARGUMENTS*) ��	
�@梠���	��緽d�
Bbd�
Bb緽d�
Bbd�
Bb緽楤
Bb康o���B楤
Bb康o���Bd�
Bb�B梠���	��縒�o���	��_d�HIJKLMNA
	��
Wc堪�	���Og��
��HIJKLMNA
	��l

O	��Hkjo���i
���(267Q FORMAT-WRITE-FIELD 253Q PRINC-TO-STRING 240Q FORMAT-GENERAL-AUX 224Q COERCE 212Q RATIONALP 175Q FORMAT-GENERAL-AUX 152Q FORMAT-ERROR 136Q FORMAT-ERROR 10Q FORMAT-ERROR)
(221Q SHORT-FLOAT)
( 262Q |\Space 147Q "Missing argument" 133Q "Too many parameters" 111Q |\Space 72Q |\* 5 "Colon flag not allowed")
FORMAT-GENERAL-AUX D1
(L (10Q ATSIGN 7 MARKER 6 PAD 5 OVF 4 K 3 E 2 D 1 W 0 NUMBER)) ����	@	��	��	��
QB�%@	��	��	��
dk
��捒k乲誋l
��
��b緾�/l笰d慖蘸BH栈jK蟪0KB蟪+@JKhEFG
��Ij郊LM螃hl园襬���	��縈k越伴@ABC�lD�kEFGG
	���(215Q FORMAT-EXP-AUX 160Q WRITE-CHAR 132Q FORMAT-FIXED-AUX 61Q MAX 56Q MIN 42Q %%= 33Q \MVLIST 30Q FLONUM-TO-STRING 25Q ABS 11Q \MVLIST 6 SCALE-EXPONENT 3 ABS)
NIL
( 155Q |\Space)
FORMAT-DOLLARS D1
(L (2 PARMS 1 ATSIGN 0 COLON) F 17Q *FORMAT-ARGUMENTS*) ��
�B楤
Bb康lB楤
Bb康kB楤
Bb康jB楤
Bb康o����B梠���	��縒�o���	��糺L鬄o����
Wc堪預攐���僶���絃	��hHh��	��^
_縉_
_縊
_緻擬	��縅O誐	��誌O照j_縚縊O鬂K	��縊k訽堪頏	��縄O誮_縚縊O蟛o���	��縊k訽堪闛	���(355Q WRITE-STRING 336Q WRITE-CHAR 304Q WRITE-STRING 264Q WRITE-CHAR 235Q CL:LENGTH 224Q WRITE-STRING 170Q \MVLIST 165Q FLONUM-TO-STRING 157Q ABS 113Q FORMAT-ERROR 77Q FORMAT-ERROR)
NIL
( 333Q |\0 152Q "" 145Q "+" 124Q "-" 110Q "Missing argument" 74Q "Too many parameters" 63Q |\Space)
CHARPOS D1
(L (0 STREAM)) ����
@d	��o���@
��緻����(16Q CL:ERROR 4 STREAMP)
(23Q STREAM)
( 12Q "CHARPOS: ~A isn't a stream")
FLONUM-TO-STRING D1
(L (3 SCALEFACTOR 2 DECIMALPLACES 1 FIELDWIDTH 0 NUMBER) P 3 *STANDARD-OUTPUT*) ����C�8@!��
g��hBhdB�
Ad睰k瞻GH	��o���	��
��	��Y	���.I�,j鸪菴d�	��尘C	��橜l
C
��职癅l
C
��
��挨j詇HK��縆	��Zd	��Jj
��o���:Jd	��k�
��o���:o���J
��
���(237Q VALUES 233Q CL:POSITION 216Q CHAR 211Q CL:LENGTH 177Q CHAR 172Q CL:LENGTH 164Q GET-OUTPUT-STREAM-STRING 157Q PRINTNUM 137Q %%/ 134Q EXPT 122Q EXPT 112Q PLUSP 104Q \FZEROP 63Q PLUSP 57Q CEILING 54Q %%/ 51Q LOG 42Q LOG 11Q MAKE-STRING-OUTPUT-STREAM)
(17Q FLOAT)
( 227Q |\. 222Q |\. 203Q |\. 46Q 10.0)
WHITESPACE-CHAR-P D1
(L (0 CH)) ����
@o���g��g��	�����(20Q CL:MEMBER 15Q SYMBOL-FUNCTION)
(12Q EQL 7 :TEST)
( 4 (|\Tab |\Page |\Space |\Backspace |\Newline |\Linefeed))
(PROCLAIM (QUOTE (SPECIAL *ERROR-OUTPUT*)))
(OR (BOUNDP (QUOTE *FORMAT-ARGUMENTS*)) (SETQ *FORMAT-ARGUMENTS* NIL))
(PROCLAIM (QUOTE (SPECIAL *FORMAT-ARGUMENTS*)))
(OR (BOUNDP (QUOTE *FORMAT-CONTROL-STRING*)) (SETQ *FORMAT-CONTROL-STRING* NIL))
(PROCLAIM (QUOTE (SPECIAL *FORMAT-CONTROL-STRING*)))
(OR (BOUNDP (QUOTE *FORMAT-DISPATCH-TABLE*)) (SETQ *FORMAT-DISPATCH-TABLE* NIL))
(PROCLAIM (QUOTE (SPECIAL *FORMAT-DISPATCH-TABLE*)))
(OR (BOUNDP (QUOTE *FORMAT-INDEX*)) (SETQ *FORMAT-INDEX* NIL))
(PROCLAIM (QUOTE (SPECIAL *FORMAT-INDEX*)))
(OR (BOUNDP (QUOTE *FORMAT-LENGTH*)) (SETQ *FORMAT-LENGTH* NIL))
(PROCLAIM (QUOTE (SPECIAL *FORMAT-LENGTH*)))
(OR (BOUNDP (QUOTE *FORMAT-ORIGINAL-ARGUMENTS*)) (SETQ *FORMAT-ORIGINAL-ARGUMENTS* NIL))
(PROCLAIM (QUOTE (SPECIAL *FORMAT-ORIGINAL-ARGUMENTS*)))
(PROCLAIM (QUOTE (SPECIAL *PRINT-BASE*)))
(OR (BOUNDP (QUOTE *STANDARD-OUTPUT*)) (SETQ *STANDARD-OUTPUT* T))
(PROCLAIM (QUOTE (SPECIAL *STANDARD-OUTPUT*)))
(PROCLAIM (QUOTE (SPECIAL *TERMINAL-IO*)))
(OR (BOUNDP (QUOTE CARDINAL-ONES)) (SETQ CARDINAL-ONES NIL))
(PROCLAIM (QUOTE (SPECIAL CARDINAL-ONES)))
(OR (BOUNDP (QUOTE CARDINAL-PERIODS)) (SETQ CARDINAL-PERIODS NIL))
(PROCLAIM (QUOTE (SPECIAL CARDINAL-PERIODS)))
(OR (BOUNDP (QUOTE CARDINAL-TEENS)) (SETQ CARDINAL-TEENS NIL))
(PROCLAIM (QUOTE (SPECIAL CARDINAL-TEENS)))
(OR (BOUNDP (QUOTE CARDINAL-TENS)) (SETQ CARDINAL-TENS NIL))
(PROCLAIM (QUOTE (SPECIAL CARDINAL-TENS)))
(OR (BOUNDP (QUOTE ORDINAL-ONES)) (SETQ ORDINAL-ONES NIL))
(PROCLAIM (QUOTE (SPECIAL ORDINAL-ONES)))
(OR (BOUNDP (QUOTE ORDINAL-TENS)) (SETQ ORDINAL-TENS NIL))
(PROCLAIM (QUOTE (SPECIAL ORDINAL-TENS)))
(RPAQQ CMLFORMATCOMS ((DECLARE: EVAL@COMPILE DONTCOPY) (STRUCTURES FORMAT-ERROR) (FUNCTIONS 
MAKE-DISPATCH-VECTOR) (INITVARS *FORMAT-DISPATCH-TABLE* CARDINAL-ONES CARDINAL-PERIODS CARDINAL-TEENS 
CARDINAL-TENS ORDINAL-ONES ORDINAL-TENS) (FNS FORMAT-INIT FORMAT-ERROR) (P (FORMAT-INIT)) (FUNCTIONS 
FLONUM-TO-STRING FORMAT-WITH-CONTROL-STRING FORMAT-STRINGIFY-OUTPUT POP-FORMAT-ARG 
WITH-FORMAT-PARAMETERS NEXTCHAR FORMAT-PEEK FORMAT-FIND-CHAR) (FUNCTIONS FORMAT-GET-PARAMETER 
PARSE-FORMAT-OPERATION FORMAT-FIND-COMMAND FORMAT SUB-FORMAT FORMAT-CAPITALIZATION FORMAT-ESCAPE 
FORMAT-SEMICOLON-ERROR FORMAT-UNTAGGED-CONDITION FORMAT-FUNNY-CONDITION FORMAT-BOOLEAN-CONDITION 
FORMAT-CONDITION FORMAT-ITERATION FORMAT-DO-ITERATION FORMAT-GET-TRAILING-SEGMENTS FORMAT-GET-SEGMENTS
 MAKE-PAD-SEGS FORMAT-ROUND-COLUMNS FORMAT-JUSTIFICATION FORMAT-TERPRI FORMAT-FRESHLINE FORMAT-PAGE 
FORMAT-TILDE FORMAT-EAT-WHITESPACE FORMAT-NEWLINE FORMAT-PLURAL FORMAT-SKIP-ARGUMENTS 
FORMAT-INDIRECTION FORMAT-TAB FORMAT-PRINC FORMAT-PRIN1 FORMAT-PRINT-CHARACTER 
FORMAT-PRINT-NAMED-CHARACTER FORMAT-ADD-COMMAS FORMAT-WRITE-FIELD FORMAT-PRINT-NUMBER 
FORMAT-PRINT-SMALL-CARDINAL FORMAT-PRINT-CARDINAL FORMAT-PRINT-CARDINAL-AUX FORMAT-PRINT-ORDINAL 
FORMAT-PRINT-OLD-ROMAN FORMAT-PRINT-ROMAN FORMAT-PRINT-DECIMAL FORMAT-PRINT-BINARY FORMAT-PRINT-OCTAL 
FORMAT-PRINT-HEXADECIMAL FORMAT-PRINT-RADIX FORMAT-FIXED FORMAT-FIXED-AUX FORMAT-EXPONENTIAL 
FORMAT-EXPONENT-MARKER FORMAT-EXP-AUX FORMAT-GENERAL-FLOAT FORMAT-GENERAL-AUX FORMAT-DOLLARS) (
FUNCTIONS CHARPOS FLONUM-TO-STRING WHITESPACE-CHAR-P) (VARIABLES *ERROR-OUTPUT* *FORMAT-ARGUMENTS* 
*FORMAT-CONTROL-STRING* *FORMAT-DISPATCH-TABLE* *FORMAT-INDEX* *FORMAT-LENGTH* 
*FORMAT-ORIGINAL-ARGUMENTS* *PRINT-BASE* *STANDARD-OUTPUT* *TERMINAL-IO* CARDINAL-ONES 
CARDINAL-PERIODS CARDINAL-TEENS CARDINAL-TENS ORDINAL-ONES ORDINAL-TENS) (DECLARE: DONTEVAL@LOAD 
DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA) (NLAML) (LAMA FORMAT-ERROR)))))
(PUTPROPS CMLFORMAT COPYRIGHT ("Xerox Corporation" 1986))
STOP