(DEFINE-FILE-INFO §READTABLE "INTERLISP" §PACKAGE "INTERLISP") (FILECREATED "24-Oct-86 22:01:40" ("compiled on " {ERIS}SOURCES>CMLFORMAT.;9) "21-Oct-86 04:13:01" "COMPILE-FILEd" in "Xerox Lisp 21-Oct-86 ..." dated "21-Oct-86 04:48:43") (FILECREATED "24-Oct-86 21:38:21" {ERIS}SOURCES>CMLFORMAT.;9 98481 changes to%: (VARS CMLFORMATCOMS) (STRUCTURES FORMAT-ERROR) (FUNCTIONS CL:FORMAT) previous date%: "30-Sep-86 16:09:50" {ERIS}SOURCES>CMLFORMAT.;8) (RPAQQ CMLFORMATCOMS ((* ;; "The FORMAT facility") (STRUCTURES FORMAT-ERROR) (FUNCTIONS MAKE-DISPATCH-VECTOR SCALE-EXPONENT SCALE-EXPT-AUX) (FUNCTIONS FORMAT-ERROR) (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 CL: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 WHITESPACE-CHAR-P) (FUNCTIONS NAME-ARRAY) ( VARIABLES *FORMAT-ARGUMENTS* *FORMAT-CONTROL-STRING* *FORMAT-DISPATCH-TABLE* *FORMAT-INDEX* *FORMAT-LENGTH* *FORMAT-ORIGINAL-ARGUMENTS* CARDINAL-ONES CARDINAL-TENS CARDINAL-TEENS CARDINAL-PERIODS ORDINAL-ONES ORDINAL-TENS) (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA) (NLAML) (LAMA))) (* ;; "Arrange to use the correct compiler.") (PROP FILETYPE CMLFORMAT))) FORMAT-ERROR-P D1 (L (0 CL::OBJECT)) @d ©¿@d•Ã´@l gð(20 CL:ELT 4 CL:VECTORP) (23 FORMAT-ERROR 12 LISTP) () FORMAT-ERROR---DUMMY-SLOT-- D1 (L (0 FORMAT-ERROR)) k@ (4 CL:NTH) NIL () FORMAT-ERROR-ARGS D1 (L (0 FORMAT-ERROR)) l@ (5 CL:NTH) NIL () %%MAKE-FORMAT-ERROR D1 (L (0 -args-)) eHkJdIó²M¿hAHk»ºKdJó²P¿h¼l ½jMgkMIlMglMglMglMLMagð•JkØa°JlÔZ°Ÿagð•KkØa°ªKlÔ[°œ(87 %%SETNTH 80 %%SETNTH 71 %%SETNTH 62 %%SETNTH 53 %%SETNTH 47 %%SETNTH 38 CL:MAKE-LIST) (112 :ARGS 93 :--DUMMY-SLOT-- 77 FORMAT-ERROR 68 CL:ERROR 59 SERIOUS-CONDITION 44 CONDITION) () (DEFPRINT (QUOTE FORMAT-ERROR) (QUOTE CL::DEFAULT-STRUCTURE-PRINTER)) (CL::SET-PARSED-STRUCTURE (QUOTE FORMAT-ERROR) (QUOTE (CL::PS FORMAT-ERROR %%MAKE-FORMAT-ERROR (#:name --DUMMY-SLOT-- #:name #:name #:name ARGS) LIST NIL CL:ERROR FORMAT-ERROR- (%%MAKE-FORMAT-ERROR . :NONE) FORMAT-ERROR-P CL::DEFAULT-STRUCTURE-PRINTER NIL T 0 ((#:name (QUOTE FORMAT-ERROR) T T 4 NIL) ( ARGS NIL T T 5 FORMAT-ERROR-ARGS)) ((#:name (QUOTE CONDITION) T T 0 NIL) (--DUMMY-SLOT-- NIL T T 1 FORMAT-ERROR---DUMMY-SLOT--) (#:name (QUOTE SERIOUS-CONDITION) T T 2 NIL) (#:name (QUOTE CL:ERROR) T T 3 NIL) (#:name (QUOTE FORMAT-ERROR) T T 4 NIL) (ARGS NIL T T 5 FORMAT-ERROR-ARGS)) NIL NIL NIL))) (FIX-INHERITANCE-LINKS (QUOTE FORMAT-ERROR) (QUOTE CL:ERROR)) (LET* ((A0437 (QUOTE FORMAT-ERROR)) (A0436 (QUOTE %%CONDITION-HANDLER)) (A0435 NIL)) (PUTPROP A0437 A0436 A0435)) |FORMAT-ERROR report method| D1 (P 3 ARGS P 2 #:name P 1 #:name P 0 #:name I 1 *STANDARD-OUTPUT* I 0 CONDITION) @ @ @ @ ioK(27 FORMAT 15 FORMAT-ERROR-ARGS 11 FORMAT-ERROR-name 7 FORMAT-ERROR-name 3 FORMAT-ERROR-name) NIL ( 23 "~%%~:{~@?~%%~}") (LET* ((A0440 (QUOTE FORMAT-ERROR)) (A0439 (QUOTE %%CONDITION-REPORTER)) (A0438 (FUNCTION |FORMAT-ERROR report method|))) (PUTPROP A0440 A0439 A0438)) expand-MAKE-DISPATCH-VECTORA0001 D1 (L (0 X)) T`@ÓlAHó©HdlZó¤l Ô€HÑ`@ÓlaHó©Hdlzó¤l Õ€HÑHIð“@hI@H@hNIL (37 CHARACTER 32 \CHARHI 7 CHARACTER 2 \CHARHI) () expand-MAKE-DISPATCH-VECTORA0002 D1 (L (1 Y 0 X)) @ÓAÓýóNIL (10 CHARACTER 4 CHARACTER) () expand-MAKE-DISPATCH-VECTOR D1 (L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM)) l@gH g jJdn ².¿I˜oI ¿gogiggK hhkÔId²ÓJ ´ II¹K»Z°®(91 %%= 64 CL:NREVERSE 42 CL:ERROR 29 %%= 17 SORT 11 CL:MAPCAN) (86 CHARACTER 60 QUOTE 57 :INITIAL-CONTENTS 53 :ELEMENT-TYPE 46 CL:MAKE-ARRAY 14 expand-MAKE-DISPATCH-VECTORA0002 7 expand-MAKE-DISPATCH-VECTORA0001) ( 50 (QUOTE (256)) 38 "Garbage in dispatch vector - ~S") (SETF-MACRO-FUNCTION (QUOTE MAKE-DISPATCH-VECTOR) (QUOTE expand-MAKE-DISPATCH-VECTOR)) SCALE-EXPONENT D1 (L (0 X)) @ooooo (24 SCALE-EXPT-AUX) NIL ( 20 .30103 16 .1 12 10.0 8 1.0 4 0.0) SCALE-EXPT-AUX D1 (L (5 LOG10-OF-2 4 ONE-TENTH 3 TEN 2 ONE 1 ZERO 0 X)) ƒ @ !@A •Ak HEÖ ¹jIóœ@CdmÿIÕ ÖÖŽ@C CIkÕ ºCJIBLó²)CLMDOó§OO NCÖONÖOkÕ_¿_¿¾°áKCÖJK MkÔ½¼»°Æ(121 %%/ 92 CL:VALUES 62 %%/ 59 CL:EXPT 52 %%/ 44 CL:EXPT 29 ROUND 22 CL:VALUES 16 %%= 6 \MVLIST 3 CL:DECODE-FLOAT) NIL () FORMAT-ERROR D1 (L (0 -args-) F 8 *FORMAT-CONTROL-STRING* F 9 *FORMAT-INDEX*) QekaHl2LdKó²$¿MºggoIJWWkÔhha_¿NµOh^½LkÔ\°ÈO&¾°ö(53 CL:ERROR) (30 :ARGS 27 FORMAT-ERROR) ( 34 "~?~%%~S~%%~V@T^") (CL:PROCLAIM (QUOTE (CL:SPECIAL *DIGIT-STRING*))) (OR (BOUNDP (QUOTE *DIGIT-STRING*)) (SETQ *DIGIT-STRING* (CL:MAKE-ARRAY 50 :ELEMENT-TYPE (QUOTE CL:STRING-CHAR) :FILL-POINTER 0 :ADJUSTABLE T))) (CL:PROCLAIM (QUOTE (CL:SPECIAL *DIGITS*))) (OR (BOUNDP (QUOTE *DIGITS*)) (SETQ *DIGITS* "0123456789")) FLONUM-TO-STRING D1 (L (4 FMIN 3 SCALE 2 FDIGITS 1 WIDTH 0 X) F 3 *DIGIT-STRING*) F@ šokidSj @ !H¹Hº@ÃœIJlABCD IJl5ABCD (67 FLOAT-STRING 54 FLOAT-STRING 27 \MVLIST 24 CL:INTEGER-DECODE-FLOAT 20 SET-FILL-POINTER 14 CL:VALUES 3 CL:ZEROP) (41 FLOATP) ( 8 ".") FLOAT-STRING D1 (L (6 FMIN 5 SCALE 4 FDIGITS 3 WIDTH 2 PRECISION 1 EXPONENT 0 FRACTION) F 27 *DIGIT-STRING* F 28 *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¿°ä(721 CL:VECTOR-PUSH-EXTEND 689 CL:VALUES 684 %%= 679 %%= 663 CL:VECTOR-PUSH-EXTEND 644 CL:VECTOR-PUSH-EXTEND 606 CL:VECTOR-PUSH-EXTEND 601 CL:CHAR 588 CL:ASH 548 CL:ASH 543 CL:ASH 528 CL:ASH 502 \MVLIST 499 CL:TRUNCATE 488 CL:VECTOR-PUSH-EXTEND 478 %%= 464 CL:VECTOR-PUSH-EXTEND 459 CL:CHAR 429 CL:ASH 424 CL:ASH 409 CL:VECTOR-PUSH-EXTEND 378 CL:VECTOR-PUSH-EXTEND 345 CL:ASH 338 CL:ASH 329 CL:ASH 322 CL:ASH 312 %%= 306 MAX 299 MAX 281 CL:CEILING 128 CL:CEILING 103 EXPT 87 EXPT 70 CL:ASH 64 CL:ASH 58 CL:ASH 51 %%= 48 CL:ASH 41 CL:ASH 27 CL:ASH 21 CL:ASH) NIL ( 716 #\0 658 #\. 639 #\0 483 #\. 404 #\0 373 #\.) expand-FORMAT-WITH-CONTROL-STRING D1 (L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM)) @@!H¹HºggIhhgooggoJohhNIL (39 LET 36 CONDITION-CASE 25 LET 16 STRING 13 LET) ( 50 ((FORMAT-ERROR (C) (CL:ERROR (QUOTE FORMAT-ERROR) :ARGS (CONS (LIST "While processing indirect control string~%%~S~%%~V@T^" *FORMAT-CONTROL-STRING* (CL:1+ *FORMAT-INDEX*)) (FORMAT-ERROR-ARGS C))))) 43 ((*FORMAT-CONTROL-STRING* STRING) (*FORMAT-LENGTH* (CL:LENGTH STRING)) (*FORMAT-INDEX* 0)) 33 (DECLARE (TYPE CL:SIMPLE-STRING STRING)) 29 ((STRING (CL:IF (CL:SIMPLE-STRING-P STRING) STRING (COERCE STRING (QUOTE CL: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 (19 \APPEND2) (7 LET) ( 16 ((COERCE (CL:GET-OUTPUT-STREAM-STRING *STANDARD-OUTPUT*) (QUOTE CL:SIMPLE-STRING))) 11 ((*STANDARD-OUTPUT* (CL: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¾°Ã(26 CL:NREVERSE) (55 POP 51 CL:IF 48 OR 29 CL:WHEN 22 LET) ( 34 ((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 (< (CL:INCF *FORMAT-INDEX*) *FORMAT-LENGTH*) (CL: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 (CL: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 (31 :END 27 :START 19 CL:POSITION) ( 36 (:TEST (FUNCTION CL:CHAR=)) 24 (THE CL:SIMPLE-STRING *FORMAT-CONTROL-STRING*)) (SETF-MACRO-FUNCTION (QUOTE FORMAT-FIND-CHAR) (QUOTE expand-FORMAT-FIND-CHAR)) FORMAT-GET-PARAMETER D1 (F 3 *FORMAT-INDEX* F 4 *FORMAT-CONTROL-STRING* F 5 *FORMAT-LENGTH* F 6 *FORMAT-ARGUMENTS*) RTS¶do:²¿SkÔcUýó“TS¶†o ¿h°o:´SkÔcUýó“TS¶†o ¿i!TS¶Ydo:²¿SkÔcUýó“TS¶†o ¿V o:©Ido:²$¿Vµo SkÔcUýó²4TS¶¿Vc¿°ëo:²)SkÔcUýó“TS¶†o SkÔcUýó³Ðo ¿Io:³MIo:³EIo:³=Io:³5Io:³-Io:³%Io:³Io:³Io:«Io:´‚±ÿyTS¶ ºSkÔcUýó“TS¶†o §H“jJÕJJl ÖTS¶ Ô°Ô(333 CL:DIGIT-CHAR-P 314 CL:DIGIT-CHAR-P 311 FORMAT-ERROR 290 CL:DIGIT-CHAR-P 199 FORMAT-ERROR 182 FORMAT-ERROR 132 FORMAT-ERROR 105 CL:LENGTH 100 FORMAT-ERROR 62 FORMAT-ERROR 31 FORMAT-ERROR) NIL ( 308 "Syntax error" 277 #\9 270 #\8 262 #\7 254 #\6 246 #\5 238 #\4 230 #\3 222 #\2 214 #\1 206 #\0 196 "Syntax error" 179 "Syntax error" 159 #\' 129 "Missing argument" 118 #\v 110 #\V 97 "Syntax error" 76 #\# 59 "Syntax error" 39 #\- 28 "Syntax error" 7 #\+) PARSE-FORMAT-OPERATION D1 (F 4 *FORMAT-INDEX* F 5 *FORMAT-CONTROL-STRING* F 6 *FORMAT-LENGTH*) ªTkÔcVýó“UT¶†o 1H ¬HºoYµ2h´h»UT¶oð³*K UT¶oð´?TkÔcVýó².UT¶°0Jð’I°ÌI°ÃTkÔcVýó“UT¶†o ¿K°³o UT¶oð´TkÔcVýó“UT¶†o UT¶(167 CL:VALUES 161 FORMAT-ERROR 131 FORMAT-ERROR 120 FORMAT-GET-PARAMETER 116 FORMAT-ERROR 60 CL:NREVERSE 43 FORMAT-GET-PARAMETER 26 CL:DIGIT-CHAR-P 19 FORMAT-ERROR) NIL ( 158 "Syntax error" 138 #\@ 128 "Syntax error" 113 "Syntax error" 67 #\: 53 #\, 33 (#\, #\# #\V #\v #\') 16 "Syntax error") FORMAT-FIND-COMMAND D1 (L (0 COMMAND-LIST) F 10 *FORMAT-INDEX* F 11 *FORMAT-CONTROL-STRING* F 12 *FORMAT-LENGTH*) E W‘ HoWgHgWgg º¹Jµo@ c¿ __¿O_¾O]¼M[d@ggœ¿HJONLK o:²%WkÔcWýó•WW¶†o ¿o ±§Kdo:²%¿WkÔcWýó•WW¶†o ¿o °zo:²$WkÔcWýó•WW¶†o ¿o °QKdo:²%¿WkÔcWýó•WW¶†o ¿o °%o:³Ko:Ko:¦Ko:—o ¿WoWgI±þÏ(307 FORMAT-ERROR 270 FORMAT-FIND-COMMAND 262 FORMAT-ERROR 226 FORMAT-FIND-COMMAND 218 FORMAT-ERROR 185 FORMAT-FIND-COMMAND 177 FORMAT-ERROR 140 FORMAT-FIND-COMMAND 132 FORMAT-ERROR 100 CL:VALUES 87 MEMBER 53 \MVLIST 50 PARSE-FORMAT-OPERATION 43 FORMAT-ERROR 30 CL:POSITION) (319 :START 84 CL:CHAR= 81 :TEST 26 CL:CHAR= 23 :TEST 18 :END 14 :START) ( 314 #\~ 304 "No matching bracket" 298 #\] 291 #\) 284 #\> 276 #\} 267 (#\]) 259 "Syntax error" 234 #\[ 223 (#\)) 215 "Syntax error" 191 #\( 182 (#\>) 174 "Syntax error" 149 #\< 137 (#\}) 129 "Syntax error" 105 #\{ 39 "Expecting one of ~S" 9 #\~) FORMATA0001A0002 D1 (F 0 CONTROL-STRING) jP (7 SUB-FORMAT 4 CL:LENGTH) NIL () FORMATA0001 D1 NIL gg (8 \CATCH-FUNCALL) (5 FORMATA0001A0002 2 FORMAT-COLON-ESCAPE) () FORMATA0003A0004 D1 (F 0 CONTROL-STRING) jP (7 SUB-FORMAT 4 CL:LENGTH) NIL () FORMATA0003 D1 NIL gg (8 \CATCH-FUNCALL) (5 FORMATA0003A0004 2 FORMAT-COLON-ESCAPE) () FORMATA0005A0006 D1 (F 0 CONTROL-STRING) jP (7 SUB-FORMAT 4 CL:LENGTH) NIL () FORMATA0005 D1 NIL gg (8 \CATCH-FUNCALL) (5 FORMATA0005A0006 2 FORMAT-COLON-ESCAPE) () CL:FORMAT D1 (L (0 -args-) P 13 *STANDARD-OUTPUT* P 12 *STANDARD-OUTPUT* P 11 *STANDARD-OUTPUT* P 10 *FORMAT-CONTROL-STRING* P 9 *FORMAT-ARGUMENTS* P 8 *FORMAT-ORIGINAL-ARGUMENTS* P 2 CONTROL-STRING F 14 *STANDARD-OUTPUT*) œekalaºHl2LdKóœ¿MdJ ²J°"a_¿NµOh^½LkÔ\°ÞO&¾°öJg Iµgg O g ²Id ²¿I gg hIið’W€I gg h(152 \CATCH-FUNCALL 130 \CATCH-FUNCALL 118 MAKE-FILL-POINTER-OUTPUT-STREAM 111 CL:ARRAY-HAS-FILL-POINTER-P 104 CL:STRINGP 100 COERCE 94 CL:GET-OUTPUT-STREAM-STRING 89 \CATCH-FUNCALL 77 CL:MAKE-STRING-OUTPUT-STREAM 68 COERCE 31 CL:SIMPLE-STRING-P) (149 FORMATA0005 146 FORMAT-ESCAPE 127 FORMATA0003 124 FORMAT-ESCAPE 97 CL:SIMPLE-STRING 86 FORMATA0001 83 FORMAT-ESCAPE 65 CL:SIMPLE-STRING) () SUB-FORMAT D1 (L (1 END 0 START) P 1 *FORMAT-LENGTH* P 0 *FORMAT-INDEX* F 12 *FORMAT-CONTROL-STRING* F 13 *STANDARD-OUTPUT* F 14 *FORMAT-DISPATCH-TABLE*) ¢@A¢@ºoWg@gAgg [µWWgJgA Jó²WWgJgK ¿K¸ __¿O__¿O_¾O½WMÓ¶\™ONOlL‡oM ¿HkÔXdAýó¡hºoWgJ±ÿs(134 FORMAT-ERROR 79 \MVLIST 76 PARSE-FORMAT-OPERATION 70 CL:WRITE-STRING 49 CL:WRITE-STRING 30 CL:POSITION) (156 :START 112 CHARACTER 65 :END 61 :START 44 :END 40 :START 26 CL:CHAR= 23 :TEST 19 :END 15 :START) ( 151 #\~ 130 "Illegal FORMAT command ~~~C" 10 #\~) 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(14 \CATCH-FUNCALL) (11 FORMAT-CAPITALIZATIONA0001A0002 8 FORMAT-ESCAPE 2 FORMAT-ESCAPE) () FORMAT-CAPITALIZATION D1 (L (2 PARMS 1 ATSIGN 0 COLON) P 16 *STANDARD-OUTPUT* P 15 ESCAPE P 3 TILDE P 1 PREV F 17 *FORMAT-INDEX* F 18 *FORMAT-LENGTH* F 19 *FORMAT-CONTROL-STRING*) B—o ¿W"kÔc"W$ýó•W&W"¶†o ¿o áH¹HZ»J\½L^_¿N_¿M¥O¢O—o ¿g_g ¿O g _¿A˜@ŸO °q@–O °hA²`O _¿O ¿j_¿OOó™OO¶ ²8O_¿O_¿`OO¶Ó_¿laOóªOdlzó¥l ÕOÑOO·¿OŠOkÔ°³O Od–h (261 \DO-THROW 258 \MVLIST 250 CL:WRITE-STRING 247 CL:NSTRING-DOWNCASE 180 CL:ALPHA-CHAR-P 161 CL:NSTRING-DOWNCASE 153 CL:LENGTH 143 CL:NSTRING-CAPITALIZE 134 CL:NSTRING-UPCASE 121 COERCE 115 CL:GET-OUTPUT-STREAM-STRING 109 \CATCH-FUNCALL 95 CL:MAKE-STRING-OUTPUT-STREAM 88 FORMAT-ERROR 44 \MVLIST 41 FORMAT-FIND-COMMAND 33 FORMAT-ERROR 8 FORMAT-ERROR) (203 CHARACTER 195 \CHARHI 118 CL:SIMPLE-STRING 106 FORMAT-CAPITALIZATIONA0001 101 FORMAT-COLON-ESCAPE) ( 85 "Flags or parameters not allowed" 38 (#\)) 30 "Syntax error" 5 "No parameters allowed to ~~(") FORMAT-ESCAPE D1 (L (2 PARMS 1 ATSIGN 0 COLON) F 3 *FORMAT-ARGUMENTS*) ˜A˜o@ ¿B²tBd²Zd²Md3 ²¿BBBHIóhð´IJóhð°HÃ´UBÓBÓBÓIHó´JIó° Bô°HjðµH´H ‚Shð´@“g‚gh (149 \DO-THROW 146 \MVLIST 126 \FZEROP 9 FORMAT-ERROR) (142 FORMAT-ESCAPE 138 FORMAT-COLON-ESCAPE 86 CHARACTER 78 CHARACTER 71 CHARACTER 64 CHARACTER) ( 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 23 *FORMAT-INDEX* F 24 *FORMAT-ARGUMENTS* F 25 *FORMAT-LENGTH* F 26 *FORMAT-CONTROL-STRING*) KW0µo ñpH3 š°W0c0¿°íoH ¿jYH ²Yo Z»J\½L^_¿N__¿O_¿O—o ¿O—o ¿KM Ooð’±¬o o _,_*¿O,_(_&¿O(_$_"¿O$_ ¿O"—o ¿O*—o ¿O oð³YO&²WW.kÔc.W2ýó•W4W.¶†o ¿o __¿O__¿O_¿OO ¿Ooð¦o hW.kÔc.W2ýó•W4W.¶†o ¿IkÔ±þã(322 FORMAT-ERROR 296 FORMAT-FIND-COMMAND 280 SUB-FORMAT 248 \MVLIST 245 FORMAT-FIND-COMMAND 237 FORMAT-ERROR 199 FORMAT-ERROR 188 FORMAT-ERROR 145 \MVLIST 142 FORMAT-FIND-COMMAND 134 FORMAT-FIND-COMMAND 116 SUB-FORMAT 110 FORMAT-ERROR 99 FORMAT-ERROR 58 \MVLIST 55 FORMAT-FIND-COMMAND 46 %%= 39 FORMAT-ERROR 10 FORMAT-ERROR) NIL ( 319 "Syntax error" 293 (#\]) 287 #\] 242 (#\; #\]) 234 "Syntax error" 206 #\] 196 "Parameters not allowed" 185 "Atsign flag not allowed" 139 (#\; #\]) 131 (#\]) 122 #\] 107 "No parameters allowed" 96 "Atsign flag not allowed" 52 (#\; #\]) 35 "Argument to ~~[ must be integer - ~S" 7 "Missing argument") FORMAT-FUNNY-CONDITION D1 (F 9 *FORMAT-ARGUMENTS*) V o H¹HZ»J\½L^_¿N_¿O¤O¡M—o ¿Wµ o d–¿IK Wc¿(75 SUB-FORMAT 65 FORMAT-ERROR 53 FORMAT-ERROR 9 \MVLIST 6 FORMAT-FIND-COMMAND) NIL ( 62 "Missing argument" 50 "Flags or arguments not allowed" 3 (#\])) FORMAT-BOOLEAN-CONDITION D1 (F 18 *FORMAT-INDEX* F 19 *FORMAT-ARGUMENTS* F 20 *FORMAT-LENGTH* F 21 *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 (191 FORMAT-FIND-COMMAND 184 SUB-FORMAT 169 SUB-FORMAT 161 FORMAT-ERROR 105 \MVLIST 102 FORMAT-FIND-COMMAND 93 FORMAT-ERROR 81 FORMAT-ERROR 56 FORMAT-ERROR 9 \MVLIST 6 FORMAT-FIND-COMMAND) NIL ( 188 (#\]) 158 "Flags or parameters not allowed" 99 (#\]) 90 "Missing argument" 78 "Syntax error" 53 "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“(74 FORMAT-UNTAGGED-CONDITION 70 FORMAT-FUNNY-CONDITION 64 FORMAT-BOOLEAN-CONDITION 60 FORMAT-ERROR 48 FORMAT-ERROR 38 FORMAT-ERROR) NIL ( 57 "~~:@[ undefined" 45 "Syntax error" 35 "Too many parameters to ~[") FORMAT-ITERATIONA0001A0002 D1 (L (0 C) F 0 CONDITION-CASE0645) @cgh (12 \DO-THROW 9 \MVLIST) (5 CONDITION-CASE0647) () 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 8 COLON F 9 ATSIGN) (ggTUd jjJVWWW (37 \MVLIST 33 FORMAT-DO-ITERATION 16 CL:LENGTH) (5 FORMAT-ITERATIONA0001A0002 2 FORMAT-ERROR) () FORMAT-ITERATION D1 (L (2 PARMS) P 14 CONDITION-CASE0645 P 13 STRING P 12 STRING P 11 STRING P 10 END-COLON P 0 MAX-ITER I 1 ATSIGN I 0 COLON F 15 *FORMAT-INDEX* F 16 *FORMAT-ARGUMENTS* F 17 *FORMAT-CONTROL-STRING* F 18 *FORMAT-LENGTH*) ðB˜BBb¿µmÿ‘ B—o ¿WkÔcW$ýó•W"W¶†o ¿o ¹ IºI[¼K]¾M__¿O¡N—o ¿JdL ²y¿W µ)o O §o ¿OO œO°W c ¿°ÙOg gg _¿OµO _¿ggoW"WkÔhO LH@AO (237 FORMAT-DO-ITERATION 226 CL:ERROR 222 FORMAT-ERROR-ARGS 193 CL:VALUES-LIST 181 \CATCH-FUNCALL 169 COERCE 147 CL:SIMPLE-STRING-P 136 FORMAT-ERROR 128 CL:STRINGP 120 FORMAT-ERROR 106 %%= 99 FORMAT-ERROR 60 \MVLIST 57 FORMAT-FIND-COMMAND 49 FORMAT-ERROR 24 FORMAT-ERROR) (203 :ARGS 200 FORMAT-ERROR 178 FORMAT-ITERATIONA0001 175 CONDITION-CASE0647 166 CL:SIMPLE-STRING) ( 207 "While processing indirect control string~%%~S~%%~V@T^" 133 "Control string is not a string" 117 "Missing argument" 96 "Illegal terminator for ~~{" 54 (#\}) 46 "Syntax error" 21 "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µST ™°øQc¿°êo ¿°æ(42 FORMAT-ERROR 22 SUB-FORMAT 11 FORMAT-ERROR) NIL ( 39 "Argument must be a list" 8 "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µST ™°øQc¿°êo ¿°æ(42 FORMAT-ERROR 22 SUB-FORMAT 11 FORMAT-ERROR) NIL ( 39 "Argument must be a list of lists" 8 "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) }V²,jHT SHj “Uhð€i‘hgg ¿HkÔX°ÝSµ*o IµjZT ³ØI³'Jj ²Uhð°™°çSc¿°Ùo ¿°Õi³°gg ¿JkÔ°Ä(117 \CATCH-FUNCALL 102 FORMAT-ERROR 76 %%= 66 %%= 54 FORMAT-ERROR 37 \CATCH-FUNCALL 19 %%= 11 %%=) (114 FORMAT-DO-ITERATIONA0001A0002A0004 111 FORMAT-ESCAPE 34 FORMAT-DO-ITERATIONA0001A0002A0003 31 FORMAT-ESCAPE) ( 99 "Argument must be a list" 51 "Missing argument") FORMAT-DO-ITERATIONA0001 D1 NIL gg (8 \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 (8 \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 g (20 COERCE 14 CL:GET-OUTPUT-STREAM-STRING 10 SUB-FORMAT 2 CL:MAKE-STRING-OUTPUT-STREAM) (17 CL:SIMPLE-STRING) () FORMAT-GET-TRAILING-SEGMENTS D1 (P 3 TILDE P 1 PREV F 17 *FORMAT-INDEX* F 18 *FORMAT-LENGTH* F 19 *FORMAT-CONTROL-STRING*) ÀW"kÔc"W$ýó•W&W"¶†o ¿o ñH¹HZ»J\½L^_¿N__¿O_¿M—o ¿O¢O—o ¿gg _´JOoð²3 __¿O__¿O_ ¿OOOkÔO O ÔOhkO jd(189 CL:VALUES 183 CL:VALUES 180 CL:LENGTH 169 CL:VALUES 165 CL:LENGTH 127 \MVLIST 124 FORMAT-GET-TRAILING-SEGMENTS 108 \CATCH-FUNCALL 98 FORMAT-ERROR 84 FORMAT-ERROR 34 \MVLIST 31 FORMAT-FIND-COMMAND 23 FORMAT-ERROR) (105 FORMAT-GET-TRAILING-SEGMENTSA0001 102 FORMAT-ESCAPE) ( 118 #\; 95 "Flags and parameters not allowed" 81 "~~:; allowed only after first segment in ~~<" 28 (#\; #\>) 20 "Syntax error") FORMAT-GET-SEGMENTS D1 (P 17 *STANDARD-OUTPUT*) ¸o ñH¹HZ»J\½L^_¿N__¿O_¿O—o ¿IK ¿O" g _¿Ooð´G __¿O__¿O_ ¿O´OMOOO dOOOkÔO O Ô dOhkO (181 CL:VALUES 177 CL:LENGTH 165 CL:VALUES 158 CL:LENGTH 142 CL:VALUES 103 \MVLIST 100 FORMAT-GET-TRAILING-SEGMENTS 84 COERCE 78 CL:GET-OUTPUT-STREAM-STRING 72 SUB-FORMAT 64 CL:MAKE-STRING-OUTPUT-STREAM 60 FORMAT-ERROR 9 \MVLIST 6 FORMAT-FIND-COMMAND) (81 CL:SIMPLE-STRING) ( 94 #\; 57 "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Õ°Å(55 \FZEROP 44 %%/ 39 RAND 29 CL:PLUSP 7 CL:TRUNCATE) (36 FLOATP) () FORMAT-ROUND-COLUMNS D1 (L (2 COLINC 1 MINCOL 0 WIDTH)) @dAóBA@ÕB ÖÔ(13 CL:CEILING) NIL () FORMAT-JUSTIFICATION D1 (L (2 PARMS 1 ATSIGN 0 COLON) F 24 *FORMAT-INDEX* F 25 *FORMAT-LENGTH* F 26 *FORMAT-CONTROL-STRING* F 27 *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&°®(438 CL:WRITE-STRING 422 CL:WRITE-CHAR 392 CL:WRITE-CHAR 358 CL:WRITE-STRING 341 CHARPOS 335 FORMAT-ERROR 315 LINE-LENGTH 277 \APPEND2 274 \APPEND2 263 MAKE-PAD-SEGS 246 %%= 235 FORMAT-ROUND-COLUMNS 205 %%= 163 \MVLIST 160 FORMAT-GET-SEGMENTS 156 FORMAT-ERROR 131 FORMAT-ERROR 117 FORMAT-ERROR 100 FORMAT-ERROR 91 CL:PLUSP 82 FORMAT-ERROR 65 FORMAT-ERROR) (122 CHARACTER) ( 332 "Too many parameters" 271 (0) 253 (0) 153 "Syntax error" 127 "Padchar must be a character - ~S" 113 "Minpad must be a non-negative integer - ~S" 96 "Colinc must be a positive integer - ~S" 78 "Mincol must be a non-negative integer - ~S" 62 "Too many parameters" 50 #\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Ôº°ñ(50 TERPRI 35 FORMAT-ERROR 10 FORMAT-ERROR) NIL ( 32 "Too many parameters" 7 "Flags not allowed") FORMAT-FRESHLINE D1 (L (2 PARMS 1 ATSIGN 0 COLON) F 3 *STANDARD-OUTPUT*) A@¡A—o ¿B˜BBb¿µk!B—o ¿S HkÕjº¹IJó¡hS ¿JkÔº°ñ(56 TERPRI 40 CL:FRESH-LINE 35 FORMAT-ERROR 10 FORMAT-ERROR) NIL ( 32 "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Ôº°î(53 CL:WRITE-CHAR 35 FORMAT-ERROR 10 FORMAT-ERROR) NIL ( 50 #\Page 32 "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Ôº°î(53 CL:WRITE-CHAR 35 FORMAT-ERROR 10 FORMAT-ERROR) NIL ( 50 #\~ 32 "Too many parameters" 7 "Flags not allowed") FORMAT-EAT-WHITESPACE D1 (F 0 *FORMAT-INDEX* F 1 *FORMAT-CONTROL-STRING* F 2 *FORMAT-LENGTH*) .PkÔcRýó“QP¶†o ¿gQgPµ Q ckÕ°û(37 CL:LENGTH 31 CL:POSITION-IF-NOT 19 FORMAT-ERROR) (27 :START 23 WHITESPACE-CHAR-P) ( 16 "Syntax error") FORMAT-NEWLINE D1 (L (2 PARMS 1 ATSIGN 0 COLON) F 0 *STANDARD-OUTPUT*) "B—o ¿@šA´ o A“P (31 FORMAT-EAT-WHITESPACE 28 TERPRI 21 FORMAT-ERROR 8 FORMAT-ERROR) NIL ( 18 "~:@ 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 (97 CL:WRITE-STRING 82 CL:WRITE-STRING 56 FORMAT-ERROR 43 CL:NTHCDR 37 FORMAT-ERROR 20 CL:LENGTH 16 CL:LENGTH 8 FORMAT-ERROR) NIL ( 94 "s" 89 "ies" 79 "" 66 "y" 53 "Missing argument" 34 "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(109 CL:NTHCDR 103 FORMAT-ERROR 94 CL:LENGTH 86 CL:NTHCDR 80 FORMAT-ERROR 65 CL:LENGTH 61 CL:LENGTH 51 CL:NTHCDR 45 FORMAT-ERROR 36 CL:LENGTH 23 FORMAT-ERROR) NIL ( 100 "Skip to nonexistant argument" 77 "Skip to nonexistant argument" 42 "Illegal to go to non-existant argument" 20 "Too many parameters") FORMAT-INDIRECTIONA0001A0002 D1 (L (0 C) F 0 CONDITION-CASE0687) @cgh (12 \DO-THROW 9 \MVLIST) (5 CONDITION-CASE0689) () 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 8 ATSIGN) AggVWd jW–jJ °Uµo jJ Uc ¿°ì(54 \MVLIST 49 SUB-FORMAT 41 FORMAT-ERROR 29 SUB-FORMAT 17 CL:LENGTH) (5 FORMAT-INDIRECTIONA0001A0002 2 FORMAT-ERROR) ( 38 "Missing argument") FORMAT-INDIRECTION D1 (L (2 PARMS 0 COLON) P 5 CONDITION-CASE0687 P 4 STRING P 3 STRING P 0 STRING I 1 ATSIGN F 6 *FORMAT-ARGUMENTS* F 7 *FORMAT-CONTROL-STRING* F 8 *FORMAT-INDEX*) |@—o ¿B—o ¿Vµ$o !H §o ¿HK ™KŽVc¿°ßKg gg ¹MµI ºggoWWkÔhJ (121 CL:ERROR 117 FORMAT-ERROR-ARGS 91 CL:VALUES-LIST 83 \CATCH-FUNCALL 71 COERCE 53 CL:SIMPLE-STRING-P 44 FORMAT-ERROR 36 CL:STRINGP 29 FORMAT-ERROR 18 FORMAT-ERROR 8 FORMAT-ERROR) (99 :ARGS 96 FORMAT-ERROR 80 FORMAT-INDIRECTIONA0001 77 CONDITION-CASE0689 68 CL:SIMPLE-STRING) ( 103 "While processing indirect control string~%%~S~%%~V@T^" 41 "Indirected control string is not a string" 26 "Missing argument" 15 "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Ô½°í(109 CL:WRITE-CHAR 79 CL:REM 65 CL:CEILING 50 POSITION 45 FORMAT-ERROR 35 FORMAT-ERROR) NIL ( 105 #\Space 42 "Tab-to in pixel units not supported" 32 "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 (125 FORMAT-WRITE-FIELD 116 CL:PRINC-TO-STRING 101 FORMAT-ERROR 32 CL:PRINC 28 CL:WRITE-STRING 9 FORMAT-ERROR) NIL ( 112 "()" 98 "Too many parameters" 89 #\Space 25 "()" 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 (125 FORMAT-WRITE-FIELD 116 CL:PRIN1-TO-STRING 101 FORMAT-ERROR 32 CL:PRIN1 28 CL:WRITE-STRING 9 FORMAT-ERROR) NIL ( 112 "()" 98 "Too many parameters" 89 #\Space 25 "()" 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@ (57 FORMAT-PRINT-NAMED-CHARACTER 43 CL:PRIN1 34 FORMAT-ERROR 19 FORMAT-ERROR 8 FORMAT-ERROR) (26 CHARACTER) ( 31 "Argument must be a character" 16 "Missing argument" 5 "Too many parameters") FORMAT-PRINT-NAMED-CHARACTER D1 (L (1 LONGP 0 CL:CHAR)) h@ÓH´jHóhð´`HÑ!H µ7@Ó¹jIó³6Iló³0o @Ól@ÔZ´jJóhð´`JÑ H (101 CL:WRITE-CHAR 96 CL:WRITE-STRING 93 CL:STRING-CAPITALIZE 90 CL:PRINC-TO-STRING 86 CL:WRITE-CHAR 58 CL:WRITE-CHAR 32 CL:CHAR-NAME) (81 \CHARHI 62 CHARACTER 38 CHARACTER 22 \CHARHI 3 CHARACTER) ( 55 #\^) FORMAT-ADD-COMMAS D1 (L (1 COMMACHAR 0 STRING)) †@ QHd@j¶o:¨@j¶o:’l€kÕl ÔYgAºH»I¼K ³@j¶o:¨@j¶o:—J½@j¶Mj·JJ@gjLlÕ gLgjKlÕ gK ºKlÕ»LlÕ°¯(120 CL:REPLACE 112 MAX 97 MAX 54 CL:PLUSP 45 CL:MAKE-STRING 36 CL:FLOOR 3 CL:LENGTH) (115 :END2 104 :START2 100 :END1 89 :START1 41 :INITIAL-ELEMENT) ( 72 #\- 63 #\+ 24 #\- 15 #\+) 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Ô½°ñ(130 CL:WRITE-CHAR 114 CL:WRITE-STRING 109 CL:WRITE-STRING 98 CL:WRITE-CHAR 80 FORMAT-ROUND-COLUMNS 69 CL:LENGTH 64 FORMAT-ERROR 50 FORMAT-ERROR 33 FORMAT-ERROR 24 CL:PLUSP 15 FORMAT-ERROR) (55 CHARACTER) ( 60 "Padchar must be a character - ~S" 46 "Minpad must be a non-negative integer - ~S" 29 "Colinc must be a positive integer - ~S" 11 "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 CL:NUMBER) P 4 *PRINT-BASE*) †D˜DDb¿µjD˜DDb¿µoD˜DDb¿µoD—o ¿A@ »@3 µK ²%C²"B²goKJ °goKˆB•KJ €KHkjIi (131 FORMAT-WRITE-FIELD 120 FORMAT-ADD-COMMAS 112 CL:CONCATENATE 99 CL:CONCATENATE 96 FORMAT-ADD-COMMAS 76 CL:PLUSP 72 CL:WRITE-STRING 62 CL:PRINC-TO-STRING 53 FORMAT-ERROR) (104 STRING 87 STRING) ( 108 "+" 91 "+" 50 "Too many parameters" 41 #\, 26 #\Space) FORMAT-PRINT-SMALL-CARDINAL D1 (L (0 N) F 6 CARDINAL-ONES F 7 CARDINAL-TENS F 8 CARDINAL-TEENS) Š@ld QH¹HºI ² VI¶ ¿o ¿Jd ™¿o ¿J ´MJl [¼K½Ldkó²¿WL¶ M ´)o VM¶ k —WM¶ M ´VM¶ (135 CL:WRITE-STRING 127 CL:PLUSP 122 CL:WRITE-STRING 114 %%= 109 CL:WRITE-STRING 103 CL:WRITE-CHAR 94 CL:PLUSP 90 CL:WRITE-STRING 69 \MVLIST 66 CL:TRUNCATE 58 CL:PLUSP 53 CL:WRITE-CHAR 44 CL:PLUSP 38 CL:WRITE-STRING 30 CL:WRITE-STRING 22 CL:PLUSP 8 \MVLIST 5 CL:TRUNCATE) NIL ( 100 #\- 50 #\Space 35 " hundred") FORMAT-PRINT-CARDINAL D1 (L (0 N)) 2j@óŸo j@Õj@@jðª@dd ˜¿o j@(47 FORMAT-PRINT-CARDINAL-AUX 41 CL:WRITE-STRING 32 \FZEROP 18 FORMAT-PRINT-CARDINAL-AUX 10 CL:WRITE-STRING) NIL ( 38 "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(103 CL:WRITE-STRING 97 FORMAT-PRINT-SMALL-CARDINAL 92 CL:WRITE-CHAR 84 \FZEROP 69 \FZEROP 55 FORMAT-PRINT-CARDINAL-AUX 46 \FZEROP 32 FORMAT-ERROR 9 \MVLIST 6 CL:TRUNCATE) NIL ( 89 #\Space 28 "Number too large to print in English: ~:D") FORMAT-PRINT-ORDINAL D1 (L (0 N) F 7 ORDINAL-ONES F 8 CARDINAL-TEENS F 9 CARDINAL-TENS F 10 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 (238 CL:WRITE-STRING 230 CL:WRITE-STRING 222 CL:PLUSP 217 CL:WRITE-STRING 208 CL:PLUSP 202 \FZEROP 198 CL:WRITE-STRING 188 CL:PLUSP 181 \FZEROP 177 CL:WRITE-STRING 170 CL:WRITE-CHAR 163 CL:WRITE-STRING 154 CL:PLUSP 130 CL:WRITE-STRING 123 CL:WRITE-STRING 114 %%= 107 CL:WRITE-STRING 99 %%= 86 \MVLIST 83 CL:TRUNCATE 76 CL:WRITE-CHAR 67 CL:PLUSP 61 CL:PLUSP 56 FORMAT-PRINT-CARDINAL 48 \FZEROP 27 \MVLIST 24 CL:TRUNCATE 15 ABS 10 CL:WRITE-STRING) NIL ( 235 "zeroeth" 227 "th" 167 #\- 127 "th" 104 "twelfth" 73 #\Space 7 "negative ") FORMAT-PRINT-OLD-ROMAN D1 (L (0 N)) X@jó•nˆ@ó¨o@ ¿ooonè@Ljð³"LµHIHIL½KMóžM¼»º¹¸°â ²çhJ ¿MKÕ°ä(80 CL:WRITE-CHAR 72 \FZEROP 17 FORMAT-ERROR) NIL ( 30 #\M 26 (500 100 50 10 5 1) 22 (#\D #\C #\L #\X #\V #\I) 13 "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Õ°»(145 CL:WRITE-CHAR 120 \FZEROP 108 CL:WRITE-CHAR 103 CL:WRITE-CHAR 17 FORMAT-ERROR) NIL ( 45 #\C 38 #\M 34 (100 10 10 1 1 0) 30 (#\C #\X #\X #\I #\I) 26 (500 100 50 10 5 1) 22 (#\D #\C #\L #\X #\V #\I) 13 "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¿°ð(18 FORMAT-PRINT-NUMBER 9 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¿°ð(18 FORMAT-PRINT-NUMBER 9 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¿°ð(18 FORMAT-PRINT-NUMBER 9 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¿°ð(18 FORMAT-PRINT-NUMBER 9 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 (64 FORMAT-PRINT-CARDINAL 59 FORMAT-PRINT-ORDINAL 52 FORMAT-PRINT-ROMAN 47 FORMAT-PRINT-OLD-ROMAN 30 FORMAT-PRINT-NUMBER 9 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¿°è žMHIJKLA l M Hkjoi (148 FORMAT-WRITE-FIELD 136 CL:PRINC-TO-STRING 126 FORMAT-FIXED-AUX 111 CL:RATIONALP 98 FORMAT-FIXED-AUX 82 FORMAT-ERROR 70 FORMAT-ERROR 8 FORMAT-ERROR) (116 FLOATP) ( 143 #\Space 79 "Missing argument" 67 "Too many parameters" 58 #\Space 5 "Colon flag not allowed") FORMAT-FIXED-AUX D1 (L (6 ATSIGN 5 PAD 4 OVF 3 K 2 D 1 W 0 CL:NUMBER)) KAµaB³]j@óo ¿j@Õb¿o@ó³>@doó³6 AH¹HZ»J¼K—o ¿I L´‚±øo @ 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 (328 CL:WRITE-CHAR 317 CL:WRITE-STRING 312 CL:WRITE-CHAR 302 CL:WRITE-CHAR 274 CL:WRITE-CHAR 243 CL:WRITE-CHAR 187 \FZEROP 125 \MVLIST 122 FLONUM-TO-STRING 116 ABS 95 CL:PRINC 90 CL:WRITE-CHAR 76 CL:WRITE-STRING 71 CL:WRITE-CHAR 46 \MVLIST 43 FLONUM-TO-STRING 16 CL:WRITE-CHAR) NIL ( 325 #\0 309 #\0 299 #\+ 292 #\- 87 #\0 68 #\0 37 10000000.0 27 .001 13 #\-) FORMAT-EXPONENTIAL D1 (L (2 PARMS 1 ATSIGN 0 COLON) P 8 *PRINT-BASE* F 9 *FORMAT-ARGUMENTS*) ± @—o ¿Bd´Bbd•Bb¿BdžBb˜BBb¿µkBdžBb˜BBb¿µoBd•Bb¿B—o ¿Wµo _d²HIJKLMNA Wc¿°å ²OHIJKLMNA l O Hkjoi (174 FORMAT-WRITE-FIELD 162 CL:PRINC-TO-STRING 151 FORMAT-EXP-AUX 132 CL:RATIONALP 119 FORMAT-EXP-AUX 100 FORMAT-ERROR 88 FORMAT-ERROR 8 FORMAT-ERROR) (139 FLOATP) ( 169 #\Space 97 "Missing argument" 85 "Too many parameters" 67 #\Space 5 "Colon flag not allowed") FORMAT-EXPONENT-MARKER D1 (L (0 CL:NUMBER) F 1 *READ-DEFAULT-FLOAT-FORMAT*) 9@dQ ”oHdÃ”oÃ”oHdÃ”oÃ´o(5 TYPEP) (48 FLOATP 39 FLOATP 28 FLOATP 19 FLOATP) ( 54 #\L 44 #\D 33 #\F 24 #\S 10 #\E) FORMAT-EXP-AUX D1 (L (8 ATSIGN 7 MARKER 6 PAD 5 OVF 4 K 3 E 2 D 1 W 0 CL: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Ô_,¿°ê(417 CL:WRITE-CHAR 395 CL:LENGTH 390 CL:WRITE-STRING 383 CL:WRITE-CHAR 367 CL:WRITE-CHAR 364 FORMAT-EXPONENT-MARKER 355 CL:WRITE-CHAR 345 CL:WRITE-STRING 339 CL:WRITE-CHAR 328 CL:WRITE-CHAR 299 CL:WRITE-CHAR 267 CL:WRITE-CHAR 163 \MVLIST 160 FLONUM-TO-STRING 140 CL:WRITE-CHAR 63 CL:PLUSP 55 CL:LENGTH 50 MAX 46 CL:LENGTH 39 CL:PRINC-TO-STRING 36 ABS 18 \MVLIST 15 SCALE-EXPONENT 12 ABS 7 CL:PRIN1) NIL ( 414 #\0 380 #\+ 375 #\- 352 #\0 336 #\0 325 #\+ 317 #\-) FORMAT-GENERAL-FLOAT D1 (L (2 PARMS 1 ATSIGN 0 COLON) P 8 *PRINT-BASE* F 9 *FORMAT-ARGUMENTS*) · @—o ¿Bd´Bbd•Bb¿Bd´Bbd•Bb¿B˜BBb¿µoB˜BBb¿µoBd•Bb¿B—o ¿Wµo _d²HIJKLMNA Wc¿°å ²OHIJKLMNA l O Hkjoi (180 FORMAT-WRITE-FIELD 168 CL:PRINC-TO-STRING 157 FORMAT-GENERAL-AUX 138 CL:RATIONALP 125 FORMAT-GENERAL-AUX 106 FORMAT-ERROR 94 FORMAT-ERROR 8 FORMAT-ERROR) (145 FLOATP) ( 175 #\Space 103 "Missing argument" 91 "Too many parameters" 73 #\Space 58 #\* 5 "Colon flag not allowed") FORMAT-GENERAL-AUX D1 (L (8 ATSIGN 7 MARKER 6 PAD 5 OVF 4 K 3 E 2 D 1 W 0 CL:NUMBER)) Œ @ QB³%@ dk ’¿kkÕHl b¿Cµ/l¹Ad‘IÕºBHÕ»jKó³0KBó³+@JKhEFG Ij½¼LMó¦hlÔ°Òo ¿MkÔ½°é@ABCDµkEFGG (137 FORMAT-EXP-AUX 112 CL:WRITE-CHAR 90 FORMAT-FIXED-AUX 49 MAX 46 MIN 34 %%= 27 \MVLIST 24 FLONUM-TO-STRING 21 ABS 9 \MVLIST 6 SCALE-EXPONENT 3 ABS) NIL ( 109 #\Space) FORMAT-DOLLARS D1 (L (2 PARMS 1 ATSIGN 0 COLON) F 15 *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 (236 CL:WRITE-STRING 221 CL:WRITE-CHAR 195 CL:WRITE-STRING 179 CL:WRITE-CHAR 156 CL:LENGTH 147 CL:WRITE-STRING 119 \MVLIST 116 FLONUM-TO-STRING 111 ABS 75 FORMAT-ERROR 63 FORMAT-ERROR) NIL ( 218 #\0 106 "" 101 "+" 84 "-" 72 "Missing argument" 60 "Too many parameters" 51 #\Space) CHARPOS D1 (L (0 STREAM)) @d ª¿o@ ¿@È(14 CL:ERROR 4 STREAMP) (19 STREAM) ( 10 "CHARPOS: ~A isn't a stream") WHITESPACE-CHAR-P D1 (L (0 CH)) @oNIL NIL ( 4 (#\Tab #\Page #\Space #\Backspace #\Newline #\Linefeed)) expand-NAME-ARRAY D1 (L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM)) $@gH giggHhh(12 LENGTH) (22 QUOTE 19 :INITIAL-CONTENTS 15 :ELEMENT-TYPE 8 CL:MAKE-ARRAY) () (SETF-MACRO-FUNCTION (QUOTE NAME-ARRAY) (QUOTE expand-NAME-ARRAY)) (CL:PROCLAIM (QUOTE (CL:SPECIAL *FORMAT-ARGUMENTS*))) (OR (BOUNDP (QUOTE *FORMAT-ARGUMENTS*)) (SETQ *FORMAT-ARGUMENTS* NIL)) (LET* ((A0475 (QUOTE *FORMAT-ARGUMENTS*)) (A0476 (QUOTE VARIABLE)) (A0477 "List of FORMAT args yet unprocessed")) (PROGN (COND ((CL:FBOUNDP (QUOTE SET-DOCUMENTATION)) ( SET-DOCUMENTATION A0475 A0476 A0477))) A0477)) (CL:PROCLAIM (QUOTE (CL:SPECIAL *FORMAT-CONTROL-STRING*))) (OR (BOUNDP (QUOTE *FORMAT-CONTROL-STRING*)) (SETQ *FORMAT-CONTROL-STRING* NIL)) (LET* ((A0478 (QUOTE *FORMAT-CONTROL-STRING*)) (A0479 (QUOTE VARIABLE)) (A0480 "Bound to FORMAT control string")) (PROGN (COND ((CL:FBOUNDP (QUOTE SET-DOCUMENTATION)) ( SET-DOCUMENTATION A0478 A0479 A0480))) A0480)) (CL:PROCLAIM (QUOTE (CL:SPECIAL *FORMAT-DISPATCH-TABLE*))) (OR (BOUNDP (QUOTE *FORMAT-DISPATCH-TABLE*)) (SETQ *FORMAT-DISPATCH-TABLE* (CL:MAKE-ARRAY (QUOTE (256) ) :ELEMENT-TYPE T :INITIAL-CONTENTS (QUOTE (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))))) (LET* ((A0482 (QUOTE *FORMAT-DISPATCH-TABLE*)) (A0483 (QUOTE VARIABLE)) (A0484 "Table of functions called by SUB-FORMAT to process ~foo stuff")) (PROGN (COND ((CL:FBOUNDP (QUOTE SET-DOCUMENTATION)) (SET-DOCUMENTATION A0482 A0483 A0484))) A0484)) (CL:PROCLAIM (QUOTE (CL:SPECIAL *FORMAT-INDEX*))) (OR (BOUNDP (QUOTE *FORMAT-INDEX*)) (SETQ *FORMAT-INDEX* NIL)) (LET* ((A0485 (QUOTE *FORMAT-INDEX*)) (A0486 (QUOTE VARIABLE)) (A0487 "Index into current control string")) (PROGN (COND ((CL:FBOUNDP (QUOTE SET-DOCUMENTATION)) ( SET-DOCUMENTATION A0485 A0486 A0487))) A0487)) (CL:PROCLAIM (QUOTE (CL:SPECIAL *FORMAT-LENGTH*))) (OR (BOUNDP (QUOTE *FORMAT-LENGTH*)) (SETQ *FORMAT-LENGTH* NIL)) (LET* ((A0488 (QUOTE *FORMAT-LENGTH*)) (A0489 (QUOTE VARIABLE)) (A0490 "Length of current control string")) (PROGN (COND ((CL:FBOUNDP (QUOTE SET-DOCUMENTATION)) ( SET-DOCUMENTATION A0488 A0489 A0490))) A0490)) (CL:PROCLAIM (QUOTE (CL:SPECIAL *FORMAT-ORIGINAL-ARGUMENTS*))) (OR (BOUNDP (QUOTE *FORMAT-ORIGINAL-ARGUMENTS*)) (SETQ *FORMAT-ORIGINAL-ARGUMENTS* NIL)) (LET* ((A0491 (QUOTE *FORMAT-ORIGINAL-ARGUMENTS*)) (A0492 (QUOTE VARIABLE)) (A0493 "List of original FORMAT arguments")) (PROGN (COND ((CL:FBOUNDP (QUOTE SET-DOCUMENTATION)) ( SET-DOCUMENTATION A0491 A0492 A0493))) A0493)) (CL:PROCLAIM (QUOTE (CL:SPECIAL CARDINAL-ONES))) (OR (BOUNDP (QUOTE CARDINAL-ONES)) (SETQ CARDINAL-ONES (CL:MAKE-ARRAY 10 :ELEMENT-TYPE T :INITIAL-CONTENTS (QUOTE (NIL "one" "two" "three" "four" "five" "six" "seven" "eight" "nine"))))) (LET* ((A0494 (QUOTE CARDINAL-ONES)) (A0495 (QUOTE VARIABLE)) (A0496 "Table of strings used by ~R")) ( PROGN (COND ((CL:FBOUNDP (QUOTE SET-DOCUMENTATION)) (SET-DOCUMENTATION A0494 A0495 A0496))) A0496)) (CL:PROCLAIM (QUOTE (CL:SPECIAL CARDINAL-TENS))) (OR (BOUNDP (QUOTE CARDINAL-TENS)) (SETQ CARDINAL-TENS (CL:MAKE-ARRAY 10 :ELEMENT-TYPE T :INITIAL-CONTENTS (QUOTE (NIL NIL "twenty" "thirty" "forty" "fifty" "sixty" "seventy" "eighty" "ninety"))))) (LET* ((A0497 (QUOTE CARDINAL-TENS)) (A0498 (QUOTE VARIABLE)) (A0499 "Table of strings used by ~R")) ( PROGN (COND ((CL:FBOUNDP (QUOTE SET-DOCUMENTATION)) (SET-DOCUMENTATION A0497 A0498 A0499))) A0499)) (CL:PROCLAIM (QUOTE (CL:SPECIAL CARDINAL-TEENS))) (OR (BOUNDP (QUOTE CARDINAL-TEENS)) (SETQ CARDINAL-TEENS (CL:MAKE-ARRAY 10 :ELEMENT-TYPE T :INITIAL-CONTENTS (QUOTE ("ten" "eleven" "twelve" "thirteen" "fourteen" "fifteen" "sixteen" "seventeen" "eighteen" "nineteen"))))) (LET* ((A0500 (QUOTE CARDINAL-TEENS)) (A0501 (QUOTE VARIABLE)) (A0502 "Table of strings used by ~R")) (PROGN (COND ((CL:FBOUNDP (QUOTE SET-DOCUMENTATION)) (SET-DOCUMENTATION A0500 A0501 A0502))) A0502)) (CL:PROCLAIM (QUOTE (CL:SPECIAL CARDINAL-PERIODS))) (OR (BOUNDP (QUOTE CARDINAL-PERIODS)) (SETQ CARDINAL-PERIODS (CL:MAKE-ARRAY 12 :ELEMENT-TYPE T :INITIAL-CONTENTS (QUOTE ("" " thousand" " million" " billion" " trillion" " quadrillion" " quintillion" " sextillion" " septillion" " octillion" " nonillion" " decillion"))))) (LET* ((A0503 (QUOTE CARDINAL-PERIODS)) (A0504 (QUOTE VARIABLE)) (A0505 "Table of strings used by ~R") ) (PROGN (COND ((CL:FBOUNDP (QUOTE SET-DOCUMENTATION)) (SET-DOCUMENTATION A0503 A0504 A0505))) A0505)) (CL:PROCLAIM (QUOTE (CL:SPECIAL ORDINAL-ONES))) (OR (BOUNDP (QUOTE ORDINAL-ONES)) (SETQ ORDINAL-ONES (CL:MAKE-ARRAY 10 :ELEMENT-TYPE T :INITIAL-CONTENTS (QUOTE (NIL "first" "second" "third" "fourth" "fifth" "sixth" "seventh" "eighth" "ninth"))))) (LET* ((A0506 (QUOTE ORDINAL-ONES)) (A0507 (QUOTE VARIABLE)) (A0508 "Table of strings used by ~R")) ( PROGN (COND ((CL:FBOUNDP (QUOTE SET-DOCUMENTATION)) (SET-DOCUMENTATION A0506 A0507 A0508))) A0508)) (CL:PROCLAIM (QUOTE (CL:SPECIAL ORDINAL-TENS))) (OR (BOUNDP (QUOTE ORDINAL-TENS)) (SETQ ORDINAL-TENS (CL:MAKE-ARRAY 10 :ELEMENT-TYPE T :INITIAL-CONTENTS (QUOTE (NIL "tenth" "twentieth" "thirtieth" "fourtieth" "fiftieth" "sixtieth" "seventieth" "eightieth" "ninetieth"))))) (LET* ((A0509 (QUOTE ORDINAL-TENS)) (A0510 (QUOTE VARIABLE)) (A0511 "Table of strings used by ~R")) ( PROGN (COND ((CL:FBOUNDP (QUOTE SET-DOCUMENTATION)) (SET-DOCUMENTATION A0509 A0510 A0511))) A0511)) (PUTPROPS CMLFORMAT FILETYPE CL:COMPILE-FILE) (PUTPROPS CMLFORMAT COPYRIGHT ("Xerox Corporation" 1986)) NIL