(FILECREATED "21-Jul-86 17:43:25" ("compiled on " {ERIS}LIBRARY>CMLFORMAT.;14) "21-Jul-86 06:40:31" "COMPILE-FILEd" in "Xerox Lisp 21-Jul-86 ..." dated "21-Jul-86 06:54:28") (FILECREATED "21-Jul-86 15:01:01" {ERIS}LIBRARY>CMLFORMAT.;14 94360 changes to: (VARS CMLFORMATCOMS) (FUNCTIONS FLONUM-TO-STRING FORMAT-FIXED-AUX) previous date: "15-Jul-86 12:13:06" {ERIS}LIBRARY>CMLFORMAT.;12) (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)) (VARIABLES *DIGIT-STRING* *DIGITS*) (FUNCTIONS FLONUM-TO-STRING FLOAT-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-ERROR-ARGS D1 (L (0 OBJECT)) @NIL NIL () (DEFPRINT (QUOTE FORMAT-ERROR) (FUNCTION \DEFPRINT.DEFSTRUCT.DEFAULT)) %%MAKE-FORMAT-ERROR D1 (L (0 -args-)) 0eHkJdIó¿hgIhagð•JkØa°êJlÔZ°ÝNIL (37Q :ARGS 26Q FORMAT-ERROR) () (PUTPROP (QUOTE FORMAT-ERROR) (QUOTE STRUCTURE-CONSTRUCTOR) (QUOTE %%MAKE-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* ((A0074 (QUOTE FORMAT-ERROR)) (A0075 (QUOTE %%CONDITION-HANDLER)) (A0077 (QUOTE NIL))) (PUTPROP A0074 A0075 A0077)) FORMAT-ERROR-condition-reporter D1 (L (0 CONDITION) I 1 *STANDARD-OUTPUT*) io@ (13Q FORMAT 10Q FORMAT-ERROR-ARGS) NIL ( 4 "~%%~:{~@?~%%~}") (LET* ((A0078 (QUOTE FORMAT-ERROR)) (A0079 (QUOTE %%CONDITION-REPORTER)) (A0081 (QUOTE FORMAT-ERROR-condition-reporter))) (PUTPROP A0078 A0079 A0081)) 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@gH g jJdn ².¿I˜oI ¿gogiggK hhkÔId² J ´ II¹K»Z°¯(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) šogigo c¿ogigo c¿ogigo c¿ogigo c¿ogigo c ¿ogigo cogigo 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*) QekaHl2LdKó²$¿MºggoIJWWkÔhha_¿NµOh^½LkÔ\°ÈO&¾°ö(65Q CL:ERROR) (36Q :ARGS 33Q FORMAT-ERROR) ( 42Q "~?~%%~S~%%~V@T^") (FORMAT-INIT) (OR (BOUNDP (QUOTE *DIGIT-STRING*)) (SETQ *DIGIT-STRING* (MAKE-ARRAY 50 :ELEMENT-TYPE (QUOTE STRING-CHAR) :FILL-POINTER 0 :ADJUSTABLE T))) (PROCLAIM (QUOTE (SPECIAL *DIGIT-STRING*))) (OR (BOUNDP (QUOTE *DIGITS*)) (SETQ *DIGITS* "0123456789")) (PROCLAIM (QUOTE (SPECIAL *DIGITS*))) FLONUM-TO-STRING D1 (L (4 FMIN 3 SCALE 2 FDIGITS 1 WIDTH 0 X) F 3 *DIGIT-STRING*) G@ šokidSj @ !H¹Hº@lðœIJlABCD IJl5ABCD (104Q FLOAT-STRING 67Q FLOAT-STRING 33Q \MVLIST 30Q INTEGER-DECODE-FLOAT 24Q SET-FILL-POINTER 16Q VALUES 3 CL:ZEROP) NIL ( 10Q ".") FLOAT-STRING D1 (L (6 FMIN 5 SCALE 4 FDIGITS 3 WIDTH 2 PRECISION 1 EXPONENT 0 FRACTION) F 33Q *DIGIT-STRING* F 34Q *DIGITS*) Ý@kddjdd÷PAjó@A ¸kA Z»‹jAó—kjAÕ ¹@kB ²Kk »Hk ¸Ik ¹E²1jEó²l jEÕ _¿IOÖ¹°l E _¿HOÖ¸KOÖ»JOÖºHIl ýó¢±ÊLkÕ¼Hl Ö¸Jl ÖºKl Ö»°àIl Ö¹LkÔ¼±©C²!jLó“kCÕ„LCÕkÔ_¿FœOjFÕó•jFÕ_¿D¢C²qOLÕI_&¿_$¿jO$ó³#O$j_¿_¿OOó²8O&l Ö_&¿OkÔ_¿°êjO$Õj_"¿_ ¿O O"ó²O&l _&¿O"kÔ_"¿°èO&J ºO&K [O& “i_¿Hk KÔIk ýó³Hk KÔIk ýó¢±ÿ?D¢±ÿFjDÕ±ÿPjLó²hM¾oW6 ¿jLÕj_*¿_(¿O(O*ó²KMkÔ½oW6 ¿O*kÔ_*¿°äHk Ik KÕó_¿O³wO³sO•LOó²jW8O W6 ¿MkÔ½LkÕ\mÿ ›oW6 ¿M¾Hl ÖI _,_¿O,¸Jl ÖºKl Ö»Hk Jýó_¿O²‹Hk Ik KÕýóhð°†O•OLó³0W8O–O¦O°O’OšHk Ió¢OƒOkÔ W6 ¿MkÔ½jLó³4Lj_0¿_.¿O.O0ó²MkÔ½oW6 ¿O0kÔ_0¿°äoW6 ¿M¾DµW6MkÔNj NM N MNÕÕj_4¿_2¿O2O4ó²ÛMkÔ½oW6 ¿O4kÔ_4¿°ä(1321Q VECTOR-PUSH-EXTEND 1261Q VALUES 1254Q %%= 1247Q %%= 1227Q VECTOR-PUSH-EXTEND 1204Q VECTOR-PUSH-EXTEND 1136Q VECTOR-PUSH-EXTEND 1131Q CHAR 1114Q ASH 1044Q ASH 1037Q ASH 1020Q ASH 766Q \MVLIST 763Q TRUNCATE 750Q VECTOR-PUSH-EXTEND 736Q %%= 720Q VECTOR-PUSH-EXTEND 713Q CHAR 655Q ASH 650Q ASH 631Q VECTOR-PUSH-EXTEND 572Q VECTOR-PUSH-EXTEND 531Q ASH 522Q ASH 511Q ASH 502Q ASH 470Q %%= 462Q MAX 453Q MAX 431Q CEILING 200Q CEILING 147Q EXPT 127Q EXPT 106Q ASH 100Q ASH 72Q ASH 63Q %%= 60Q ASH 51Q ASH 33Q ASH 25Q ASH) NIL ( 1314Q |\0 1222Q |\. 1177Q |\0 743Q |\. 624Q |\0 565Q |\.) expand-FORMAT-WITH-CONTROL-STRING D1 (L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM)) N@!H¹HºggggIhIgIohhhoggoJohNIL (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)) @goHo (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)) oNIL 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¹HZ»J¼K]µgN gIoLMggIgIhhMhhN¾°Ã(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)) oNIL 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)) oNIL 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¹HZ»J¼gIogKgLoNIL (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:²¿RkÔcTýó“SR¶†o ¿U o:©Hdo:²$¿Uµo RkÔcTýó²4SR¶¿Uc ¿°ëo:²)RkÔcTýó“SR¶†o RkÔcTýó³Ðo ¿Ho:³MHo:³EHo:³=Ho:³5Ho:³-Ho:³%Ho:³Ho:³Ho:«Ho:´‚±ÿySR¶ ¹RkÔcTýó“SR¶†o ¡IIl ÖSR¶ Ô°Ú(406Q DIGIT-CHAR-P 371Q DIGIT-CHAR-P 366Q FORMAT-ERROR 341Q DIGIT-CHAR-P 206Q FORMAT-ERROR 165Q FORMAT-ERROR 103Q FORMAT-ERROR 50Q CL:LENGTH 43Q FORMAT-ERROR) NIL ( 363Q "Syntax error" 324Q |\9 315Q |\8 305Q |\7 275Q |\6 265Q |\5 255Q |\4 245Q |\3 235Q |\2 225Q |\1 215Q |\0 203Q "Syntax error" 162Q "Syntax error" 136Q |\' 100Q "Missing argument" 65Q |\v 55Q |\V 40Q "Syntax error" 13Q |\#) PARSE-FORMAT-OPERATION D1 (F 4 *FORMAT-INDEX* F 5 *FORMAT-CONTROL-STRING* F 6 *FORMAT-LENGTH*) ²TkÔcVýó“UT¶†o 1H ¬HºoYµ6h´h»UT¶o ².K UT¶o ´ATkÔcVýó²0UT¶°2J ’I°ÆI°½TkÔcVýó“UT¶†o ¿K°o UT¶o ´TkÔcVýó“UT¶†o UT¶(257Q VALUES 251Q FORMAT-ERROR 223Q CHAR= 211Q FORMAT-ERROR 176Q FORMAT-GET-PARAMETER 172Q FORMAT-ERROR 136Q CHAR= 110Q CHAR= 76Q CL:NREVERSE 70Q CHAR/= 53Q FORMAT-GET-PARAMETER 32Q DIGIT-CHAR-P 23Q FORMAT-ERROR) NIL ( 246Q "Syntax error" 220Q |\@ 206Q "Syntax error" 167Q "Syntax error" 105Q |\: 65Q |\, 41Q (|\, |\# |\V |\v |\') 20Q "Syntax error") FORMAT-FIND-COMMAND D1 (L (0 COMMAND-LIST) F 13Q *FORMAT-INDEX* F 14Q *FORMAT-CONTROL-STRING* F 15Q *FORMAT-LENGTH*) IW¡ HoWgHgWgg º¹Jµo@ c¿ __¿O__¿O^½N\d@gg¿HJOOML [do:²&¿WkÔcWýó•WW¶†o ¿o ±¥o:²$WkÔcWýó•WW¶†o ¿o °{Kdo:²%¿WkÔcWýó•WW¶†o ¿o °Oo:²$WkÔcWýó•WW¶†o ¿o °&Ko:³Ko:Ko:¦Ko:—o ¿WoWgI±þË(467Q FORMAT-ERROR 421Q FORMAT-FIND-COMMAND 411Q FORMAT-ERROR 350Q FORMAT-FIND-COMMAND 340Q FORMAT-ERROR 274Q FORMAT-FIND-COMMAND 264Q FORMAT-ERROR 222Q FORMAT-FIND-COMMAND 212Q FORMAT-ERROR 147Q VALUES 131Q MEMBER 65Q \MVLIST 62Q PARSE-FORMAT-OPERATION 53Q FORMAT-ERROR 36Q CL:POSITION) (503Q :START 126Q CHAR= 123Q :TEST 32Q CHAR= 27Q :TEST 22Q :END 16Q :START) ( 476Q |\~ 464Q "No matching bracket" 456Q |\] 447Q |\) 440Q |\> 430Q |\} 416Q (|\]) 406Q "Syntax error" 356Q |\[ 345Q (|\)) 335Q "Syntax error" 304Q |\( 271Q (|\>) 261Q "Syntax error" 231Q |\< 217Q (|\}) 207Q "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 gg (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 gg (10Q \CATCH-FUNCALL) (5 FORMATA0003A0005A0006 2 FORMAT-COLON-ESCAPE) () FORMATA0003 D1 (NAME ERRORSET F 0 RESETVARSLST F 1 RESETY) ghhhPc¿gg 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 gg (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*) °ekalaºHl2LdKóœ¿MdJ ²J°"a_¿NµOh^½LkÔ\°ÞO&¾°öJg Iµgg O ²7Id ²1¿I W"!W$og ‘h‚g_ ¿O´hIið’W&€Igg 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¢@ºoWg@gAgg [µWWgJgA Jó²WWgJgK ¿K¸ __¿O__¿O_¾O½WM ¶\™ONOlL‡oM ¿HkÔXdAýó¡hºoWgJ±ÿt(205Q FORMAT-ERROR 160Q CHAR-CODE 117Q \MVLIST 114Q PARSE-FORMAT-OPERATION 106Q WRITE-STRING 61Q WRITE-STRING 36Q CL:POSITION) (233Q :START 101Q :END 75Q :START 54Q :END 50Q :START 32Q CHAR= 27Q :TEST 23Q :END 17Q :START) ( 226Q |\~ 201Q "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) ggg 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—o ¿WkÔcWýó•W W¶†o ¿o ±H¹HZ»J\½L^_¿N_¿M¥O¢O—o ¿ g_g ¿O _¿A˜@ŸO °R@–O °IA²AO _¿O ¿j_¿OOó›OO ²OOOO ¿OŠOkÔ°ÒO Od–h (340Q \DO-THROW 335Q \MVLIST 325Q WRITE-STRING 322Q NSTRING-DOWNCASE 303Q SCHARSET 300Q CHAR-UPCASE 275Q CHAR 260Q ALPHA-CHAR-P 255Q CHAR 233Q NSTRING-DOWNCASE 223Q CL:LENGTH 211Q NSTRING-CAPITALIZE 200Q NSTRING-UPCASE 163Q GET-OUTPUT-STREAM-STRING 155Q \CATCH-FUNCALL 137Q MAKE-STRING-OUTPUT-STREAM 130Q FORMAT-ERROR 54Q \MVLIST 51Q FORMAT-FIND-COMMAND 41Q FORMAT-ERROR 10Q FORMAT-ERROR) (152Q FORMAT-CAPITALIZATIONA0001 145Q FORMAT-COLON-ESCAPE) ( 125Q "Flags or parameters not allowed" 46Q (|\)) 36Q "Syntax error" 5 "No parameters allowed to ~~(") FORMAT-ESCAPE D1 (L (2 PARMS 1 ATSIGN 0 COLON) F 3 *FORMAT-ARGUMENTS*) ƒA˜o@ ¿B²_Bd²Ed²8d3 ²¿BBBHIóhð´IJóhð°3 ´@BBB° Bô°HjðµH´H ‚Shð´@“g‚gh (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*) QW0µo ñpH3 š°W0c0¿°íoH ¿jYH ²[o Z»J\½L^_¿N__¿O_¿O—o ¿O—o ¿KM Oo ’±°o o _,_*¿O,_(_&¿O(_$_"¿O$_ ¿O"—o ¿O*—o ¿O o ³[O&²YW.kÔc.W2ýó•W4W.¶†o ¿o __¿O__¿O_¿OO ¿Oo ¦o hW.kÔc.W2ýó•W4W.¶†o ¿IkÔ±þÝ(510Q FORMAT-ERROR 456Q FORMAT-FIND-COMMAND 446Q CHAR= 434Q SUB-FORMAT 374Q \MVLIST 371Q FORMAT-FIND-COMMAND 361Q FORMAT-ERROR 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 ( 505Q "Syntax error" 453Q (|\]) 443Q |\] 366Q (|\; |\]) 356Q "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¹HZ»J\½L^_¿N_¿O¤O¡M—o ¿Wµ 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¹HZ»J\½L^_¿N_¿M¥O¢O—o ¿W$kÔc$W(ýó•W*W$¶†o ¿W&µVo ²Vo __¿O__¿O__¿O__ ¿O_"¿O ¥O"¢O—o ¿OO W&c&¿°¬IK o (277Q FORMAT-FIND-COMMAND 270Q SUB-FORMAT 251Q SUB-FORMAT 241Q FORMAT-ERROR 151Q \MVLIST 146Q FORMAT-FIND-COMMAND 135Q FORMAT-ERROR 121Q FORMAT-ERROR 70Q FORMAT-ERROR 11Q \MVLIST 6 FORMAT-FIND-COMMAND) NIL ( 274Q (|\]) 236Q "Flags or parameters not allowed" 143Q (|\]) 132Q "Missing argument" 116Q "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*) MBµPkÔcRýó²SP¶°!Bb¿Qc¿B²åo ¿°Ûo ¿@A—o ¿A“(112Q FORMAT-UNTAGGED-CONDITION 106Q FORMAT-FUNNY-CONDITION 100Q FORMAT-BOOLEAN-CONDITION 74Q FORMAT-ERROR 60Q FORMAT-ERROR 46Q FORMAT-ERROR) NIL ( 71Q "~~:@[ undefined" 55Q "Syntax error" 43Q "Too many parameters to ~[") FORMAT-ITERATIONA0001A0002 D1 (L (0 C) F 0 CONDITION-CASE0221) @cgh (14Q \DO-THROW 11Q \MVLIST) (5 CONDITION-CASE0223) () 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) (ggTUd jjJVWWW (45Q \MVLIST 41Q FORMAT-DO-ITERATION 20Q CL:LENGTH) (5 FORMAT-ITERATIONA0001A0002 2 FORMAT-ERROR) () FORMAT-ITERATION D1 (L (2 PARMS) P 15Q CONDITION-CASE0221 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˜BBb¿µmÿ‘ B—o ¿WkÔcW"ýó•W W¶†o ¿o ¹ IºI[¼K]¾M__¿O¡N—o ¿JdL ²o¿Wµ"o O§o ¿O ›OWc¿°àO gg _¿OµO _¿ggoW WkÔhO LH@AO (343Q FORMAT-DO-ITERATION 330Q CL:ERROR 324Q FORMAT-ERROR-ARGS 267Q VALUES-LIST 253Q \CATCH-FUNCALL 237Q MKSTRING 215Q SIMPLE-STRING-P 207Q FORMAT-ERROR 170Q FORMAT-ERROR 152Q %%= 143Q FORMAT-ERROR 74Q \MVLIST 71Q FORMAT-FIND-COMMAND 61Q FORMAT-ERROR 30Q FORMAT-ERROR) (301Q :ARGS 276Q FORMAT-ERROR 250Q FORMAT-ITERATIONA0001 245Q CONDITION-CASE0223) ( 305Q "While processing indirect control string~%%~S~%%~V@T^" 204Q "Control string is not a string" 165Q "Missing argument" 140Q "Illegal terminator for ~~{" 66Q (|\}) 56Q "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§o ¿ST 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§o ¿ST 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) uV²,jHT SHj “Uhð€i‘hgg ¿HkÔX°ÝSµ,o I§o ¿jZT ³ÐI³Jj ›UhðˆSc¿°×i³¸gg ¿JkÔ°Ô(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 gg (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) gg (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Ôc"W$ýó•W&W"¶†o ¿o ñH¹HZ»J\½L^_¿N__¿O_¿M—o ¿O¢O—o ¿gg _´LOo ²3 __¿O__¿O_ ¿OOOkÔO O ÔOhkO jd(277Q VALUES 271Q VALUES 266Q CL:LENGTH 253Q VALUES 247Q CL:LENGTH 201Q \MVLIST 176Q FORMAT-GET-TRAILING-SEGMENTS 171Q CHAR= 154Q \CATCH-FUNCALL 142Q FORMAT-ERROR 124Q FORMAT-ERROR 42Q \MVLIST 37Q FORMAT-FIND-COMMAND 27Q FORMAT-ERROR) (151Q FORMAT-GET-TRAILING-SEGMENTSA0001 146Q FORMAT-ESCAPE) ( 166Q |\; 137Q "Flags and parameters not allowed" 121Q "~~:; allowed only after first segment in ~~<" 34Q (|\; |\>) 24Q "Syntax error") FORMAT-GET-SEGMENTS D1 (P 21Q *STANDARD-OUTPUT*) ´o ñH¹HZ»J\½L^_¿N__¿O_¿O—o ¿IK ¿O" _¿Oo ´G __¿O__¿O_ ¿O´OMOOO dOOOkÔO 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)) NP@A º@AJÖÕ»A\jð³'LµK ´jk LK ýóXšJkÔ‡ ²âIJI¹H“KkÕ€K»LkÕ°Å(67Q \FZEROP 54Q %%/ 47Q RAND 35Q PLUSP 7 TRUNCATE) (44Q FLOATP) () FORMAT-ROUND-COLUMNS D1 (L (2 COLINC 1 MINCOL 0 WIDTH)) @dAóBA@ÕB ÖÔ(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˜BBb¿µjB˜BBb¿µkB˜BBb¿µjB˜BBb¿µoôPB—o ¿H3 “jHó˜oH ¿I3 ”I ¨oI ¿J3 “jJó˜oJ ¿K ¨oK ¿W0kÔc0W2ýó•W4W0¶†o ¿ \½L^_¿N__¿O__¿O_¿@¦Ok ‘k€jOkÕA‘k€jÔÔ_¿OJOÖÔHI_¿@¦Ok ‘hƒoOOÕO A‘hƒo _¿M²NOšOO_¿µjOšOO_¿µ µlH_"¿_ ¿O—o ¿W6 µjOO ÔÔO"ó”M ¿OO_&¿_$³"O&j_*¿_(¿O(O*ó¡hK ¿O*kÔ_*¿°ìO&j_.¿_,¿O,O.óK ¿O.kÔ_.¿°îO$ ¿O$O&°®(666Q WRITE-STRING 646Q WRITE-CHAR 610Q WRITE-CHAR 546Q WRITE-STRING 525Q CHARPOS 517Q FORMAT-ERROR 473Q LINE-LENGTH 425Q \APPEND2 422Q \APPEND2 407Q MAKE-PAD-SEGS 366Q %%= 353Q FORMAT-ROUND-COLUMNS 315Q %%= 243Q \MVLIST 240Q FORMAT-GET-SEGMENTS 234Q FORMAT-ERROR 203Q FORMAT-ERROR 172Q CHARACTERP 165Q FORMAT-ERROR 144Q FORMAT-ERROR 133Q PLUSP 122Q FORMAT-ERROR 101Q FORMAT-ERROR) NIL ( 514Q "Too many parameters" 417Q (0) 375Q (0) 231Q "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*) ;@¡A—o ¿B˜BBb¿µk!B—o ¿Hjº¹IJó¡hS ¿JkÔº°ñ(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*) @@¡A—o ¿B˜BBb¿µk!B—o ¿HkÕjº¹IJó¡hS ¿JkÔº°ñ(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)) >@¡A—o ¿B˜BBb¿µk!B—o ¿Hjº¹IJó¡ho ¿JkÔº°î(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)) >@¡A—o ¿B˜BBb¿µk!B—o ¿Hjº¹IJó¡ho ¿JkÔº°î(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*) 1PkÔcRýó“QP¶†o ¿g QgPµ Q ckÕ°û(50Q CL:LENGTH 42Q POSITION-IF-NOT 32Q SYMBOL-FUNCTION 23Q FORMAT-ERROR) (36Q :START 27Q WHITESPACE-CHAR-P) ( 20Q "Syntax error") FORMAT-NEWLINE D1 (L (2 PARMS 1 ATSIGN 0 COLON) F 0 *STANDARD-OUTPUT*) "B—o ¿@šA´ o A“P (37Q FORMAT-EAT-WHITESPACE 34Q TERPRI 25Q FORMAT-ERROR 10Q FORMAT-ERROR) NIL ( 22Q "~:@ 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*) dB—o ¿@²$R Q ÕkÕjHó—o †HR cQµo k:²Aœo‹Qc¿°ïo A”oƒo (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*) rB˜BBb¿µkB—o ¿A²jHó¦HS ó—o ¿HS c@²"S R ÕHÕ¹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 CONDITION-CASE0269) @cgh (14Q \DO-THROW 11Q \MVLIST) (5 CONDITION-CASE0271) () 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) AggVWd jW–jJ °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 CONDITION-CASE0269 P 3 STRING P 0 STRING I 1 ATSIGN F 5 *FORMAT-ARGUMENTS* F 6 *FORMAT-CONTROL-STRING* F 7 *FORMAT-INDEX*) s@—o ¿B—o ¿Uµo !H§o ¿H ™H‹Uc ¿°äH gg ¹LµI ºggoVWkÔhJ (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 CONDITION-CASE0271) ( 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*) vB˜BBb¿µkB˜BBb¿µkBB—o ¿@—o ¿V [²!IA“KHÔ€HI ÖºKJó˜IKJÕI JKÕ…A‘HlkÕj½¼LMó¡hoV ¿MkÔ½°í(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˜BBb¿µkB˜BBb¿µjB˜BBb¿µoB—o ¿Hµ @´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˜BBb¿µkB˜BBb¿µjB˜BBb¿µoB—o ¿Hµ @´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 ¿Qµ"o H §o ¿Až@¬H Qc¿°áH@ (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 µ'@ ¹jIó³'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Õl ÔYgAºH»I¼K ³3Kmþ:²+Jj o:Jdj o:²¿AJgkgl JJ@gjLlÕ gLgjKlÕ gK ºKlÕ»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 “jAó˜oA ¿B3 ”B ¨oB ¿C3 “jCó˜oC ¿D ¨oD ¿@ QHCÔAB¹E²IHÕj»ºJKóšD ¿KkÔ»°ó@ @ IHÕj½¼LMó¡hD ¿MkÔ½°ñ(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˜DDb¿µjD˜DDb¿µoD˜DDb¿µoD—o ¿A@ »@3 µK ²%C²"B²goKJ °goKˆB•KJ €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¹HºI ² VI¶ ¿o ¿Jd ™¿o ¿J ´MJl [¼K½Ldkó²¿WL¶ M ´)o VM¶ k —WM¶ M ´VM¶ (207Q WRITE-STRING 177Q PLUSP 172Q WRITE-STRING 162Q %%= 155Q WRITE-STRING 147Q WRITE-CHAR 136Q PLUSP 132Q WRITE-STRING 105Q \MVLIST 102Q TRUNCATE 72Q PLUSP 65Q WRITE-CHAR 54Q PLUSP 46Q WRITE-STRING 36Q WRITE-STRING 26Q PLUSP 10Q \MVLIST 5 TRUNCATE) NIL ( 144Q |\- 62Q |\Space 43Q " hundred") FORMAT-PRINT-CARDINAL D1 (L (0 N)) 2j@óŸo j@Õj@@jðª@dd ˜¿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) l@nè !H¹HºAl ó˜oB ¿Ijð³Id” ¨IAkÔB¿Jjð³-J•J ³#Ijð³I”I §o ¿J SA¶ h(147Q WRITE-STRING 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ºI»Jdjð³–Jd ¨¿HKÕ ¿J žKd ™¿o ¿Kl \½L¾Kl —o Mdk Ÿ¿WN¶ o jð³2Mµ(Njð³=Nµ3K ²@WM¶ o WN¶ ²×Nd ²Ñ¿WN¶ ²ÌM ²ÆWM¶ H —o o (356Q WRITE-STRING 346Q WRITE-STRING 336Q PLUSP 331Q WRITE-STRING 320Q PLUSP 312Q \FZEROP 306Q WRITE-STRING 274Q PLUSP 265Q \FZEROP 261Q WRITE-STRING 252Q WRITE-CHAR 243Q WRITE-STRING 232Q PLUSP 202Q WRITE-STRING 173Q WRITE-STRING 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 ( 353Q "zeroeth" 343Q "th" 247Q |\- 177Q "th" 150Q "twelfth" 111Q |\Space 7 "negative ") FORMAT-PRINT-OLD-ROMAN D1 (L (0 N)) X@jó•nˆ@ó¨o@ ¿ooonè@Ljð³"LµHIHIL½KMóžM¼»º¹¸°â ²çhJ ¿MKÕ°ä(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@ ¿ooooonèold@ Ojð³COµ8HIJKHIJKO_¿MOó²5MOÕOó³N ¿L ¿OMOÕÕˆ ²ÇhO_¿_¿¾½¼»º¹¸°¨L ¿OMÕ°»(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*) CQµo B²HBBb¿@AB Qc¿°äA›@”H H @”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*) ›@—o ¿Bd´Bbd•Bb¿Bd´Bbd•Bb¿B˜BBb¿µoB—o ¿Wµo ]d²HIJKLA Wc¿°è ²Mg HIJKLA l M Hkjoi (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™F£j@ó“HkÕ¸@ HBC YºI[¼K]¾M_¿BµA¢±‡HLÕ¸N²'Hdjó¥¿O´HkÕ¸°jðªB²ÞB ²Øh_¿°Ò¾OœHjó´HkÕ¸‚_¿A²GjHó²#D² Aj_¿_¿OOó¡hD ¿OkÔ_¿°ìA²Hj_¿_¿OOóE ¿OkÔ_¿°îj@ó”o…F—o ¿N—o ¿J O´ o (361Q WRITE-CHAR 346Q WRITE-STRING 341Q WRITE-CHAR 327Q WRITE-CHAR 273Q WRITE-CHAR 234Q WRITE-CHAR 144Q \FZEROP 46Q \MVLIST 43Q FLONUM-TO-STRING 35Q ABS 10Q CL:PRIN1) NIL ( 356Q |\0 336Q |\0 324Q |\+ 315Q |\-) FORMAT-EXPONENTIAL D1 (L (2 PARMS 1 ATSIGN 0 COLON) P 10Q *PRINT-BASE* F 11Q *FORMAT-ARGUMENTS*) º @—o ¿Bd´Bbd•Bb¿B˜BBb¿µlB˜BBb¿µkBdžBb˜BBb¿µoBd•Bb¿B—o ¿Wµo _d²HIJKLMNA Wc¿°å ²Og HIJKLMNA l O Hkjoi (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 ”oHdlð”olð”oHdlð”olð´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¦B¤@ @ ñpH¹HDÕZ »C˜K C ƒK ¼B´D •BDÕkÔ€B½jDó´kDÕ¾Ad”lÕLÕ_¿G£j@ó–OkÕ_¿A²+C²(E²%LCó² Aj_¿_¿OOó¡hE ¿OkÔ_¿°ìIOMDN __¿O__¿O__¿O_ ¿A²rOOÕ_¿O –OkÕ_¿O²Ojó´ OkÕ_¿‚_¿A²HjOó²"E²Aj_$¿_"¿O"O$ó´‚E ¿O$kÔ_$¿°íA²Oj_(¿_&¿O&O(óF ¿O(kÔ_(¿°îj@ó”o†G—o ¿O—o ¿O O —o ¿Gµ@ jJó”oƒo CµK K Õj_,¿_*¿O*O,ó²êo ¿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*) º @—o ¿Bd´Bbd•Bb¿Bd´Bbd•Bb¿B˜BBb¿µoB˜BBb¿µoBd•Bb¿B—o ¿Wµo _d²HIJKLMNA Wc¿°å ²Og HIJKLMNA l O Hkjoi (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 ’¿kkÕHl b¿Cµ/l¹Ad‘IÕºBHÕ»jKó³0KBó³+@JKhEFG Ij½¼LMó¦hlÔ°Òo ¿MkÔ½°é@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˜BBb¿µlB˜BBb¿µkB˜BBb¿µjB˜BBb¿µo´B—o ¿Wµo ¼jLóžo°Wc¿°îA”oƒo½L hH ^_¿N__¿O_¿@”M ¿JOÕM ÕIOÕÕj_¿_¿OOóK ¿OkÔ_¿°î@¤M ¿IOÕj_¿_¿OOó²o ¿OkÔ_¿°êO (354Q WRITE-STRING 335Q WRITE-CHAR 303Q WRITE-STRING 263Q WRITE-CHAR 234Q CL:LENGTH 223Q WRITE-STRING 167Q \MVLIST 164Q FLONUM-TO-STRING 157Q ABS 113Q FORMAT-ERROR 77Q FORMAT-ERROR) NIL ( 332Q |\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 (4 FMIN 3 SCALE 2 FDIGITS 1 WIDTH 0 X) F 3 *DIGIT-STRING*) G@ šokidSj @ !H¹Hº@lðœIJlABCD IJl5ABCD (104Q FLOAT-STRING 67Q FLOAT-STRING 33Q \MVLIST 30Q INTEGER-DECODE-FLOAT 24Q SET-FILL-POINTER 16Q VALUES 3 CL:ZEROP) NIL ( 10Q ".") WHITESPACE-CHAR-P D1 (L (0 CH)) @ogg (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))) (PUTPROPS CMLFORMAT COPYRIGHT ("Xerox Corporation" 1986)) STOP