(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (FILECREATED " 2-Nov-93 17:19:46" ("compiled on " {DSK}export>lispcore>sources>CLTL2>CMLFORMAT.;1) "19-Feb-93 17:03:08" "COMPILE-FILEd" in "Medley 19-Feb-93 ..." dated "19-Feb-93 18:20:42") (FILECREATED "18-Oct-93 12:11:00" "{Pele:mv:envos}Sources>CLTL2>CMLFORMAT.;2" 102570 previous date%: "25-Oct-91 16:43:17" "{Pele:mv:envos}Sources>CLTL2>CMLFORMAT.;1") (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 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 FORMAT-MAYBE-PPRINT SUB-FORMAT) (* ;; "Top-level entries in *FORMAT-DISPATCH-TABLE*") (FUNCTIONS FORMAT-PRINT-BINARY FORMAT-PRINT-OCTAL FORMAT-PRINT-HEXADECIMAL FORMAT-PRINT-RADIX FORMAT-FIXED FORMAT-EXPONENTIAL FORMAT-GENERAL-FLOAT FORMAT-PRINC FORMAT-PRINT-CHARACTER FORMAT-PLURAL FORMAT-PRIN1 FORMAT-TAB FORMAT-TERPRI FORMAT-FRESHLINE FORMAT-SKIP-ARGUMENTS FORMAT-PAGE FORMAT-TILDE FORMAT-DOLLARS FORMAT-INDIRECTION FORMAT-ESCAPE FORMAT-SEMICOLON-ERROR FORMAT-CONDITION FORMAT-ITERATION FORMAT-JUSTIFICATION FORMAT-CAPITALIZATION FORMAT-NEWLINE FORMAT-JUST-WRITE FORMAT-PPRINT-NEWLINE FORMAT-PPRINT-INDENT FORMAT-CALL-FUNCTION) (* ;; "Direct support for top-level entries") (FUNCTIONS FORMAT-ROUND-COLUMNS FORMAT-EAT-WHITESPACE 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-RADIX-AUX FORMAT-FIXED-AUX FORMAT-EXPONENT-MARKER FORMAT-EXP-AUX FORMAT-GENERAL-AUX FORMAT-UNTAGGED-CONDITION FORMAT-FUNNY-CONDITION FORMAT-BOOLEAN-CONDITION FORMAT-DO-ITERATION FORMAT-GET-TRAILING-SEGMENTS FORMAT-GET-SEGMENTS FORMAT-PPRINT-LOGICAL-BLOCK FORMAT-CHECK-JUSTIFY) (FUNCTIONS CHARPOS WHITESPACE-CHAR-P MAKE-PAD-SEGS FORMAT-LOGICAL-FILL) ( FUNCTIONS NAME-ARRAY) (VARIABLES *FORMAT-ARGUMENTS* *OUTER-FORMAT-ARGUMENTS* *FORMAT-CONTROL-STRING* *FORMAT-DISPATCH-TABLE* *FORMAT-INDEX* *FORMAT-LENGTH* *FORMAT-ORIGINAL-ARGUMENTS* *FORMAT-LOGICAL-BLOCK* *FORMAT-JUSTIFICATION* *FORMAT-INCOMPATIBLE-JUSTIFICATION* *FORMAT-COLON-ITERATION* 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))) (CL::SET-PARSED-STRUCTURE (QUOTE FORMAT-ERROR) T (QUOTE (CL::PS FORMAT-ERROR FORMAT-ERROR% constructor (SI::--STRUCTURE-DUMMY-SLOT-- ARGS) CL::DATATYPE NIL CL:ERROR "FORMAT-ERROR-" ( FORMAT-ERROR% constructor) NIL %%PRINT-CONDITION NIL NIL 0 NIL ((SI::--STRUCTURE-DUMMY-SLOT-- NIL XPOINTER T (FORMAT-ERROR 0 XPOINTER) NIL) (ARGS NIL T T (FORMAT-ERROR 2 POINTER) FORMAT-ERROR-ARGS)) NIL NIL (XPOINTER POINTER) NIL (:ACCESSOR :PREDICATE) NIL NIL NIL))) (SI::%%STRUCTURE-DECLARE-DATATYPE (QUOTE FORMAT-ERROR) (QUOTE (XPOINTER POINTER)) (QUOTE (( FORMAT-ERROR 0 XPOINTER) (FORMAT-ERROR 2 POINTER))) 4 (QUOTE CL:ERROR)) (PUTPROP (QUOTE FORMAT-ERROR) (QUOTE :TYPE-EXPANDER) (QUOTE CL::TYPE-EXPAND-STRUCTURE)) FORMAT-ERROR-ARGS :D8 (L (0 FORMAT-ERROR)) @ÉNIL (5 FORMAT-ERROR) () (CL::ESTABLISH-SETFS-AND-OPTIMIZERS (QUOTE FORMAT-ERROR)) FORMAT-ERROR% constructor :D8 (L (0 -args-) P 6 \INTERRUPTABLE) XeiAHk»ºKJó²3hY¼`½MdÈnðåhÒnÿåäÍ¿MjkØÐhÓÍI“MLMKdagð¥lÔ[°½kØa°¾NIL (73 :ARGS 24 |FORMAT-ERRORTYPE#|) () |FORMAT-ERROR report method| :D8 (L (0 CONDITION) I 1 *STANDARD-OUTPUT*) io@É(18 CL:FORMAT) (11 FORMAT-ERROR) ( 5 "~%%~:{~@?~%%~}") (PUTPROP (QUOTE FORMAT-ERROR) (QUOTE %%CONDITION-REPORTER) (CL:FUNCTION |FORMAT-ERROR report method|)) (PUTPROP (QUOTE FORMAT-ERROR) (QUOTE %%CONDITION-HANDLER) NIL) expand-MAKE-DISPATCH-VECTORA0001 :D8 (L (1 Y 0 X)) @ÓAÓýóNIL (14 CHARACTER 6 CHARACTER) () expand-MAKE-DISPATCH-VECTOR :D8 (L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) ò @HµVKg jIdnÿ¢±²¿H›oH ¿gogiggJ hh_¿lOÓ¼lALó©LdlZó¤l Ô€LÑlOÓ½laMó©Mdlzó¤l Õ€MÑ_¿^Oð“OhŒOONOh¹JµI[¿IµHX±ÿD º°ôI°ëkÔHd²ÓIÿ´ HH¸JºY±ÿ+(201 LAST 80 CL:NREVERSE 47 CL:ERROR 19 SORT) (221 CHARACTER 134 CHARACTER 105 CHARACTER 74 QUOTE 69 :INITIAL-CONTENTS 63 :ELEMENT-TYPE 53 CL:MAKE-ARRAY 14 expand-MAKE-DISPATCH-VECTORA0001) ( 58 (QUOTE (256)) 41 "Garbage in dispatch vector - ~S") (SETF-MACRO-FUNCTION (QUOTE MAKE-DISPATCH-VECTOR) (QUOTE expand-MAKE-DISPATCH-VECTOR)) SCALE-EXPONENT :D8 (L (0 X)) "@ooooo (31 SCALE-EXPT-AUX) NIL ( 25 0.33333334 20 0.1 15 10.0 10 1.0 5 0.0) SCALE-EXPT-AUX :D8 (L (5 LOG10-OF-2 4 ONE-TENTH 3 TEN 2 ONE 1 ZERO 0 X)) @ !@Aÿ•Ak$HEÖ ¹jIóŸ@CÖCmÿIÕ Ö°@C CIkÕ ºCJIBLó²7CLMDOó³@l O O$NCÖONÖOkÕ_¿_¿¾°ÓKCÖJK MkÔ½¼»°¶(150 CL::%%/ 114 CL::%%/ 109 CL:EXPT 75 CL::%%/ 70 CL:EXPT 61 CL::%%/ 51 CL:EXPT 33 ROUND 10 \MVLIST 5 CL:DECODE-FLOAT) NIL () FORMAT-ERROR :D8 (L (0 -args-) F 8 *FORMAT-CONTROL-STRING* F 9 *FORMAT-INDEX*) WekaHl2LKó²*MºggoIJWWkÔhhLa_¿NµOh^½LkÔ\°ÂO&¾°ö(58 CL:ERROR) (32 :ARGS 27 FORMAT-ERROR) ( 37 "~?~%%~S~%%~V@T^") (CL:PROCLAIM (QUOTE (CL:SPECIAL *DIGIT-STRING*))) (OR (BOUNDP (QUOTE *DIGIT-STRING*)) (CL:SETQ *DIGIT-STRING* (CL:MAKE-ARRAY 50 :ELEMENT-TYPE (QUOTE CL:STRING-CHAR) :FILL-POINTER 0 :ADJUSTABLE T))) (XCL::SET-CONSTANTP (QUOTE *DIGITS*) NIL) (SETQ *DIGITS* "0123456789") (CL:PROCLAIM (QUOTE (SI::CONSTANT *DIGITS*))) FLONUM-TO-STRING :D8 (L (4 FMIN 3 SCALE 2 DECPLACES 1 WIDTH 0 X) F 24 *DIGIT-STRING*) ;@jð³@µB²"D²BDó²B° ²íokid$B€Dñ€H²@ HÔCµjÔdl ó²¿l °Ad²kÕdl ó’¿l ¹kIó‘k€Iº@J ]»M¼C“LCÔ¼K ¾mÿ_¿NLÔ_¿h_¿@jð³)@—@ ³Njó²KNkÕ¶oð™NkÕ¾LkÔ¼°çW0j Ojó³_oW0 ¿jOÕj_¿_¿OOó²oW0 ¿OkÔ_¿°åNj_¿_¿OOó²KO¶W0 ¿OkÔ_¿°æj±ÁjLó²bOj_¿_¿OOó²KOkÔ_¶W0 ¿OkÔ_¿°âoW0 ¿jLÕj_"¿_ ¿O O"ó²qKOkÔ_¶W0 ¿O"kÔ_"¿°âNj_&¿_$¿O$O&ó²KO&¶W0 ¿O&kÔ_&¿°æLj_*¿_(¿O(O*ó²oW0 ¿O*kÔ_*¿°åoW0 ¿NLÔ_¿W0 kÕ^BµW0NkÔOjÿONÿO$NOÕÕj_.¿_,¿O,O.ó²ÜoW0 ¿NkÔ¾O.kÔ_.¿°á(555 CL:VECTOR-PUSH-EXTEND 499 CL:LENGTH 485 CL:VECTOR-PUSH-EXTEND 463 CL:VECTOR-PUSH-EXTEND 426 CL:VECTOR-PUSH-EXTEND 390 CL:VECTOR-PUSH-EXTEND 357 CL:VECTOR-PUSH-EXTEND 335 CL:VECTOR-PUSH-EXTEND 285 CL:VECTOR-PUSH-EXTEND 249 CL:VECTOR-PUSH-EXTEND 218 CL:VECTOR-PUSH-EXTEND 200 SET-FILL-POINTER 163 \FZEROP 132 CL:LENGTH 113 \MVLIST 108 FLTSTR 60 DIGITSBDP 28 \FZEROP) NIL ( 548 #\0 478 #\. 456 #\0 350 #\. 242 #\0 211 #\. 180 #\0 35 ".") expand-FORMAT-WITH-CONTROL-STRING :D8 (L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) :@!H¹HºggIhhggoJohNIL (36 LET 31 CONDITION-CASE 20 STRING 15 LET) ( 49 ((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))))) 41 ((*FORMAT-CONTROL-STRING* STRING) (*FORMAT-LENGTH* (CL:LENGTH STRING)) (*FORMAT-INDEX* 0))) (SETF-MACRO-FUNCTION (QUOTE FORMAT-WITH-CONTROL-STRING) (QUOTE expand-FORMAT-WITH-CONTROL-STRING)) expand-FORMAT-STRINGIFY-OUTPUT :D8 (L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) @goHNIL (9 CL:WITH-OUTPUT-TO-STRING) ( 14 (*STANDARD-OUTPUT*)) (SETF-MACRO-FUNCTION (QUOTE FORMAT-STRINGIFY-OUTPUT) (QUOTE expand-FORMAT-STRINGIFY-OUTPUT)) POP-FORMAT-ARG :D8 (F 0 *FORMAT-ARGUMENTS* F 1 *STANDARD-OUTPUT* F 2 *FORMAT-LOGICAL-BLOCK*) 5R²Q ²PQ ›gh Pµ o Pc¿(43 FORMAT-ERROR 29 SI::INTERNAL-THROW 17 XP::PPRINT-POP-CHECK+ 8 XP::XP-STRUCTURE-P) (23 XP::LOGICAL-BLOCK) ( 38 "Missing argument") expand-WITH-FORMAT-PARAMETERS :D8 (L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) k @QH¹HZ»J¼g0K°9d]ggIgIhhMhh¾OµNh_N&_¿µÈOgIoLNIL (92 CL:WHEN 46 POP 40 CL:IF 35 OR 20 LET) ( 98 ((FORMAT-ERROR "Too many parameters"))) (SETF-MACRO-FUNCTION (QUOTE WITH-FORMAT-PARAMETERS) (QUOTE expand-WITH-FORMAT-PARAMETERS)) expand-NEXTCHAR :D8 (L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) oNIL NIL ( 4 (CL:IF (< (CL:INCF *FORMAT-INDEX*) *FORMAT-LENGTH*) (CL:CHAR *FORMAT-CONTROL-STRING* *FORMAT-INDEX*) (FORMAT-ERROR "Syntax error"))) (SETF-MACRO-FUNCTION (QUOTE NEXTCHAR) (QUOTE expand-NEXTCHAR)) expand-FORMAT-PEEK :D8 (L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) oNIL NIL ( 4 (CL:CHAR *FORMAT-CONTROL-STRING* *FORMAT-INDEX*)) (SETF-MACRO-FUNCTION (QUOTE FORMAT-PEEK) (QUOTE expand-FORMAT-PEEK)) expand-FORMAT-FIND-CHAR :D8 (L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) 6@AH¹HZ»J¼gIggKgLoNIL (38 :END 32 :START 27 *FORMAT-CONTROL-STRING* 21 CL:POSITION) ( 44 (:TEST (QUOTE CL:CHAR=))) (SETF-MACRO-FUNCTION (QUOTE FORMAT-FIND-CHAR) (QUOTE expand-FORMAT-FIND-CHAR)) FORMAT-GET-PARAMETER :D8 (F 3 *FORMAT-INDEX* F 4 *FORMAT-CONTROL-STRING* F 5 *FORMAT-LENGTH* F 6 *FORMAT-ARGUMENTS*) TS¶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ýó²8TS¶¿Vc¿°ëo:²/SkÔcUýó“TS¶‰o SkÔcUýó³Ìo ¿Io:³VIo:³MIo:³DIo:³;Io:³2Io:³)Io:³ Io:³Io:¬Io:´‚±ÿhTS¶ ºSkÔcUýó“TS¶‰o §H“jJÕJl JÖTS¶ Ô°Í(378 CL:DIGIT-CHAR-P 357 CL:DIGIT-CHAR-P 352 FORMAT-ERROR 328 CL:DIGIT-CHAR-P 225 FORMAT-ERROR 205 FORMAT-ERROR 151 FORMAT-ERROR 119 CL:LENGTH 112 FORMAT-ERROR 70 FORMAT-ERROR 35 FORMAT-ERROR) NIL ( 347 "Syntax error" 313 #\9 305 #\8 296 #\7 287 #\6 278 #\5 269 #\4 260 #\3 251 #\2 242 #\1 233 #\0 220 "Syntax error" 200 "Syntax error" 179 #\' 146 "Missing argument" 134 #\v 125 #\V 107 "Syntax error" 85 #\# 65 "Syntax error" 44 #\- 30 "Syntax error" 8 #\+) PARSE-FORMAT-OPERATION :D8 (F 5 *FORMAT-INDEX* F 6 *FORMAT-CONTROL-STRING* F 7 *FORMAT-LENGTH*) ÑUkÔc Wýó“VU¶‰o AH ³Hogg´h¼VU¶oð³#L YVU¶do:²L¿J²-IJKVU¶$UkÔc Wýó“VU¶‰o ¿L°³UkÔc Wýó“VU¶‰o º°¬o:²´K³±UkÔc Wýó“VU¶‰o »°†(204 FORMAT-ERROR 166 FORMAT-ERROR 139 FORMAT-GET-PARAMETER 133 FORMAT-ERROR 82 CL:NREVERSE 62 FORMAT-GET-PARAMETER 55 CL:MEMBER 32 CL:DIGIT-CHAR-P 23 FORMAT-ERROR) (50 CL:CHAR= 45 :TEST) ( 199 "Syntax error" 174 #\@ 161 "Syntax error" 128 "Syntax error" 92 #\: 73 #\, 40 (#\, #\# #\V #\v #\') 18 "Syntax error") FORMAT-FIND-COMMAND :D8 (L (0 COMMAND-LIST) F 10 *FORMAT-INDEX* F 11 *FORMAT-CONTROL-STRING* F 12 *FORMAT-LENGTH*) ƒ W‘ HoWgHgWgg º¹Jµo@ c¿ __¿O_¾O]¼M[d@gg›¿HJONLK$o:²+WkÔcWýó•WW¶‰o ¿o ±ÄKdo:²,¿WkÔcWýó•WW¶‰o ¿o ±o:²*WkÔcWýó•WW¶‰o ¿o °_Kdo:²+¿WkÔcWýó•WW¶‰o ¿o °,o:³Ko:¯Ko:§Ko:šo ¿WoWgI±þ”(366 FORMAT-ERROR 322 FORMAT-FIND-COMMAND 311 FORMAT-ERROR 271 FORMAT-FIND-COMMAND 260 FORMAT-ERROR 222 FORMAT-FIND-COMMAND 211 FORMAT-ERROR 170 FORMAT-FIND-COMMAND 159 FORMAT-ERROR 111 MEMBER 71 \MVLIST 66 PARSE-FORMAT-OPERATION 57 FORMAT-ERROR 41 CL:POSITION) (381 :START 106 CL:CHAR= 101 :TEST 35 CL:CHAR= 30 :TEST 23 :END 17 :START) ( 374 #\~ 361 "No matching bracket" 354 #\] 346 #\) 338 #\> 329 #\} 317 (#\]) 306 "Syntax error" 280 #\[ 266 (#\)) 255 "Syntax error" 230 #\( 217 (#\>) 206 "Syntax error" 180 #\< 165 (#\}) 154 "Syntax error" 129 #\{ 51 "Expecting one of ~S" 10 #\~) CL::FORMATA0001 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 *STANDARD-OUTPUT* F 1 A3158) ¿P hc¿$(16 \MVLIST 11 CL:GET-OUTPUT-STREAM-STRING 4 FORMAT-MAYBE-PPRINT) NIL () CL::FORMATA0002 :D8 (F 0 *STANDARD-OUTPUT* F 1 A3158) PgQ(11 CL:CLOSE) (5 :ABORT) () CL::FORMATA0003 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 A3159) hc¿$(9 \MVLIST 4 FORMAT-MAYBE-PPRINT) NIL () CL::FORMATA0004 :D8 (F 0 *STANDARD-OUTPUT* F 1 A3159) PgQ(11 CL:CLOSE) (5 :ABORT) () CL:FORMAT :D8 (L (0 -args-) P 15 *STANDARD-OUTPUT* P 14 A3159 P 13 *STANDARD-OUTPUT* P 12 A3158 P 11 *STANDARD-OUTPUT* P 10 *FORMAT-CONTROL-STRING* P 9 *FORMAT-ARGUMENTS* P 8 *FORMAT-ORIGINAL-ARGUMENTS* F 16 CL:*PRINT-READABLY* F 17 *STANDARD-OUTPUT*) ÒekalaºHl2LKó²PMdJ W gð¯og ¿IµGig OgO¿$La_¿NµOh^½LkÔ\°œO&¾°ö ²/I ig OgO¿$hIdið“¿W"‰g h(206 FORMAT-MAYBE-PPRINT 198 GETSTREAM 173 CL:CLOSE 159 \MVLIST 154 CL::FORMATA0003 140 MAKE-FILL-POINTER-OUTPUT-STREAM 132 CL:STRINGP 96 CL:CLOSE 82 \MVLIST 77 CL::FORMATA0001 63 MAKE-FILL-POINTER-OUTPUT-STREAM 54 CL::CHECK-READABLY) (193 OUTPUT 166 :ABORT 149 CL::FORMATA0004 89 :ABORT 72 CL::FORMATA0002 49 CL:FORMAT 37 XCL::PRINTING-READABLY) ( 44 "Arbitrary FORMAT control strings") FORMAT-MAYBE-PPRINTA0001A0002 :D8 (P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 4 *FORMAT-CONTROL-STRING* F 5 *STANDARD-OUTPUT* F 6 *FORMAT-ARGUMENTS*) >i@"T œjT Tk»ºUV°dýnKkØ[ñ¨hl4 ¿µêKJ(53 \LISPERROR 23 SUB-FORMAT 18 CL:LENGTH 10 STRINGP) NIL () FORMAT-MAYBE-PPRINTA0001 :D8 (P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH*) i@g (14 FORMAT-MAYBE-PPRINTA0001A0002) (9 FORMAT-COLON-ESCAPE) () FORMAT-MAYBE-PPRINT :D8 NIL g (9 FORMAT-MAYBE-PPRINTA0001) (4 FORMAT-ESCAPE) () SUB-FORMAT :D8 (L (1 END 0 START) P 1 *FORMAT-LENGTH* P 0 *FORMAT-INDEX* F 13 *FORMAT-CONTROL-STRING* F 14 *STANDARD-OUTPUT* F 15 *FORMAT-LOGICAL-BLOCK* F 16 *FORMAT-DISPATCH-TABLE*) @A²@ºoWg@gAgg »h¼Kµ4Wgð²WWJAL ´gW WWJAJó²%WgðWWJKL ŠWWJK¿K¸ __¿O__¿O__¿O^oð¼W NÓ¶]šOOOlMŠoN ¿HkÔXdAýó¡hºoWgJgAgg [±ÿ"(266 CL:POSITION 218 FORMAT-ERROR 148 \MVLIST 143 PARSE-FORMAT-OPERATION 135 WRITE-STRING* 123 FORMAT-LOGICAL-FILL 96 WRITE-STRING* 84 XP:PPRINT-NEWLINE 70 FORMAT-LOGICAL-FILL 41 CL:POSITION) (260 CL:CHAR= 255 :TEST 249 :END 243 :START 192 CHARACTER 108 :FILL 77 :FILL 54 :FILL 35 CL:CHAR= 30 :TEST 24 :END 18 :START) ( 236 #\~ 212 "Illegal FORMAT command ~~~C" 182 #\Newline 11 #\~) FORMAT-PRINT-BINARY :D8 (L (2 PARMS 1 ATSIGN 0 COLON) F 0 *FORMAT-ARGUMENTS*) "Pµo l@AB Pc¿°î(23 FORMAT-PRINT-NUMBER 12 FORMAT-ERROR) NIL ( 7 "Missing argument") FORMAT-PRINT-OCTAL :D8 (L (2 PARMS 1 ATSIGN 0 COLON) F 0 *FORMAT-ARGUMENTS*) "Pµo l@AB Pc¿°î(23 FORMAT-PRINT-NUMBER 12 FORMAT-ERROR) NIL ( 7 "Missing argument") FORMAT-PRINT-HEXADECIMAL :D8 (L (2 PARMS 1 ATSIGN 0 COLON) F 0 *FORMAT-ARGUMENTS*) "Pµo l@AB Pc¿°î(23 FORMAT-PRINT-NUMBER 12 FORMAT-ERROR) NIL ( 7 "Missing argument") FORMAT-PRINT-RADIXA0001 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 CL:NUMBER F 1 COLON F 2 A3164 F 3 ATSIGN F 4 *STANDARD-OUTPUT*) PQS¿T hc¿$(19 \MVLIST 14 CL:GET-OUTPUT-STREAM-STRING 7 FORMAT-PRINT-RADIX-AUX) NIL () FORMAT-PRINT-RADIXA0002 :D8 (F 0 *STANDARD-OUTPUT* F 1 A3164) PgQ(11 CL:CLOSE) (5 :ABORT) () FORMAT-PRINT-RADIX :D8 (L (2 PARMS) P 2 A3164 P 1 *STANDARD-OUTPUT* P 0 CL:NUMBER I 1 ATSIGN I 0 COLON F 3 *FORMAT-ARGUMENTS*) }Sµ'o Bd²¿HBBb¿@AB Sc¿°ß²Cig IgJ¿$BkjBµoi H@A(122 FORMAT-PRINT-RADIX-AUX 113 FORMAT-WRITE-FIELD 85 CL:CLOSE 73 \MVLIST 68 FORMAT-PRINT-RADIXA0001 54 MAKE-FILL-POINTER-OUTPUT-STREAM 38 FORMAT-PRINT-NUMBER 12 FORMAT-ERROR) (79 :ABORT 63 FORMAT-PRINT-RADIXA0002) ( 106 #\Space 7 "Missing argument") FORMAT-FIXED :D8 (L (2 PARMS 1 ATSIGN 0 COLON) P 7 *PRINT-BASE* P 6 *PRINT-ESCAPE* F 8 *FORMAT-ARGUMENTS*) ¹@šo ¿Bd´Bbd•Bb¿Bd´Bbd•Bb¿B˜BBb¿µoBšo ¿Wµ"o Md²HIJKLA Wc¿°ãd3 ’¿i„Ã²MHIJKLA l M Hkjoi (182 FORMAT-WRITE-FIELD 167 CL:PRINC-TO-STRING 155 FORMAT-FIXED-AUX 113 FORMAT-FIXED-AUX 92 FORMAT-ERROR 77 FORMAT-ERROR 11 FORMAT-ERROR) (143 FLOATP 135 RATIO) ( 175 #\Space 87 "Missing argument" 72 "Too many parameters" 62 #\Space 6 "Colon flag not allowed") FORMAT-EXPONENTIAL :D8 (L (2 PARMS 1 ATSIGN 0 COLON) P 9 *PRINT-BASE* P 8 *PRINT-ESCAPE* F 10 *FORMAT-ARGUMENTS*) Ò @šo ¿Bd´Bbd•Bb¿BdžBb˜BBb¿µkBdžBb˜BBb¿µoBd•Bb¿Bšo ¿Wµ%o Od²HIJKLMNA Wc¿°àd3 ’¿i„Ã²OHIJKLMNA l O Hkjoi (207 FORMAT-WRITE-FIELD 192 CL:PRINC-TO-STRING 179 FORMAT-EXP-AUX 134 FORMAT-EXP-AUX 110 FORMAT-ERROR 95 FORMAT-ERROR 11 FORMAT-ERROR) (165 FLOATP 156 RATIO) ( 200 #\Space 105 "Missing argument" 90 "Too many parameters" 71 #\Space 6 "Colon flag not allowed") FORMAT-GENERAL-FLOAT :D8 (L (2 PARMS 1 ATSIGN 0 COLON) P 9 *PRINT-BASE* P 8 *PRINT-ESCAPE* F 10 *FORMAT-ARGUMENTS*) Ù @šo ¿Bd´Bbd•Bb¿Bd´Bbd•Bb¿B˜BBb¿µoB˜BBb¿µoBd•Bb¿Bšo ¿Wµ%o Od²HIJKLMNA Wc¿°àd3 ’¿i„Ã²OHIJKLMNA l O Hkjoi (214 FORMAT-WRITE-FIELD 199 CL:PRINC-TO-STRING 186 FORMAT-GENERAL-AUX 141 FORMAT-GENERAL-AUX 117 FORMAT-ERROR 102 FORMAT-ERROR 11 FORMAT-ERROR) (172 FLOATP 163 RATIO) ( 207 #\Space 112 "Missing argument" 97 "Too many parameters" 78 #\Space 62 #\* 6 "Colon flag not allowed") FORMAT-PRINC :D8 (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 (142 FORMAT-WRITE-FIELD 131 CL:PRINC-TO-STRING 113 FORMAT-ERROR 48 CL:PRINC 34 WRITE-STRING* 12 FORMAT-ERROR) NIL ( 125 "()" 108 "Too many parameters" 98 #\Space 29 "()" 7 "Missing argument") FORMAT-PRINT-CHARACTER :D8 (L (2 PARMS 1 ATSIGN 0 COLON) F 1 *FORMAT-ARGUMENTS*) XBšo ¿Qµ.o HÃªo ¿@³A³H Qc¿°ØA˜@¦H H@ (85 FORMAT-PRINT-NAMED-CHARACTER 77 CL:PRIN1 58 CL:WRITE-CHAR 45 FORMAT-ERROR 25 FORMAT-ERROR 11 FORMAT-ERROR) (34 CHARACTER) ( 40 "Argument must be a character" 20 "Missing argument" 6 "Too many parameters") FORMAT-PLURAL :D8 (L (2 PARMS 1 ATSIGN 0 COLON) F 1 *FORMAT-ARGUMENTS* F 2 *FORMAT-ORIGINAL-ARGUMENTS*) {Bšo ¿@²-R Q ÕkÕjHóšo ˆHR cQµo kð²AoŒQc¿°îo A•o„o (120 WRITE-STRING* 101 WRITE-STRING* 71 FORMAT-ERROR 55 CL:NTHCDR 47 FORMAT-ERROR 27 CL:LENGTH 21 CL:LENGTH 11 FORMAT-ERROR) NIL ( 115 "s" 109 "ies" 96 "" 82 "y" 66 "Missing argument" 42 "No previous argument" 6 "Parameters not allowed") FORMAT-PRIN1 :D8 (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 (142 FORMAT-WRITE-FIELD 131 CL:PRIN1-TO-STRING 113 FORMAT-ERROR 48 CL:PRIN1 34 WRITE-STRING* 12 FORMAT-ERROR) NIL ( 125 "()" 108 "Too many parameters" 98 #\Space 29 "()" 7 "Missing argument") FORMAT-TAB :D8 (L (2 PARMS 1 ATSIGN 0 COLON) F 8 *STANDARD-OUTPUT* F 9 *FORMAT-INCOMPATIBLE-JUSTIFICATION* F 10 *FORMAT-JUSTIFICATION*) +B˜BBb¿µkB˜BBb¿µkbBšo ¿@²[Wšo ¿W ªo ¿Wgðšo †gc¿AœgHIgHIW h»ºA².H»J²sIjð³nI—I ³bJHÔI ¼KLÕ°MJ²FHJó”HJÕ°AIjð³6Iµ*JHÕI ]jð³MµjMÕ° ²öIŒ ²Ójƒl»Kj_¿¾NOó¡hoW ¿OkÔ_¿°å(287 CL:WRITE-CHAR 255 \FZEROP 246 \FZEROP 224 \MVLIST 219 CL:CEILING 180 \MVLIST 175 CL:CEILING 164 \FZEROP 138 POSITION 130 XP:PPRINT-TAB 117 XP:PPRINT-TAB 94 FORMAT-ERROR 74 FORMAT-ERROR 63 XP::XP-STRUCTURE-P 55 FORMAT-ERROR 38 FORMAT-ERROR) (123 :SECTION 110 :SECTION-RELATIVE 100 :XP 82 :JUSTIFY) ( 280 #\Space 89 "Pretty-printer directive and ~<...~:;...~> in same format string" 69 "Can't PPRINT-TAB a non-XP stream" 50 "~:T not allowed under vanilla justification" 33 "Too many parameters") FORMAT-TERPRI :D8 (L (2 PARMS 1 ATSIGN 0 COLON) F 3 *STANDARD-OUTPUT*) C@¡Ašo ¿B˜BBb¿µk!Bšo ¿Hjº¹IJó¡hS ¿JkÔº°ï(58 CL:TERPRI 41 FORMAT-ERROR 13 FORMAT-ERROR) NIL ( 36 "Too many parameters" 8 "Flags not allowed") FORMAT-FRESHLINE :D8 (L (2 PARMS 1 ATSIGN 0 COLON) F 3 *STANDARD-OUTPUT*) K@¡Ašo ¿B˜BBb¿µk!Bšo ¿S HkÕjº¹IJó¡hS ¿JkÔº°ï(66 CL:TERPRI 48 CL:FRESH-LINE 41 FORMAT-ERROR 13 FORMAT-ERROR) NIL ( 36 "Too many parameters" 8 "Flags not allowed") FORMAT-SKIP-ARGUMENTSA0001 :D8 (L (0 L) F 3 *FORMAT-ARGUMENTS* F 4 XP::*CIRCULARITY-HASH-TABLE*) 1T“@Sð‘@S@ ²÷@h!H¹@ZSð”IJHIJ&¿I¹J°í(14 TAILP) NIL () FORMAT-SKIP-ARGUMENTS :D8 (L (2 PARMS 1 ATSIGN 0 COLON) F 2 *FORMAT-ARGUMENTS* F 3 *FORMAT-ORIGINAL-ARGUMENTS*) £BBBb¿HµA‘j€kBšo ¿A²+jHó¨HS óšo ¿HS kgc@²2S R ÕHÕ¹jIóšo IS kgcHR óšo HR c(158 CL:NTHCDR 150 FORMAT-ERROR 138 CL:LENGTH 121 CL:NTHCDR 113 FORMAT-ERROR 95 CL:LENGTH 89 CL:LENGTH 70 CL:NTHCDR 62 FORMAT-ERROR 50 CL:LENGTH 35 FORMAT-ERROR) (127 FORMAT-SKIP-ARGUMENTSA0001 76 FORMAT-SKIP-ARGUMENTSA0001) ( 145 "Skip to nonexistant argument" 108 "Skip to nonexistant argument" 57 "Illegal to go to non-existant argument" 30 "Too many parameters") FORMAT-PAGE :D8 (L (2 PARMS 1 ATSIGN 0 COLON)) G@¡Ašo ¿B˜BBb¿µk!Bšo ¿Hjº¹IJó¡ho ¿JkÔº°ë(62 CL:WRITE-CHAR 41 FORMAT-ERROR 13 FORMAT-ERROR) NIL ( 57 #\Page 36 "Too many parameters" 8 "Flags not allowed") FORMAT-TILDE :D8 (L (2 PARMS 1 ATSIGN 0 COLON)) G@¡Ašo ¿B˜BBb¿µk!Bšo ¿Hjº¹IJó¡ho ¿JkÔº°ë(62 CL:WRITE-CHAR 41 FORMAT-ERROR 13 FORMAT-ERROR) NIL ( 57 #\~ 36 "Too many parameters" 8 "Flags not allowed") FORMAT-DOLLARS :D8 (L (2 PARMS 1 ATSIGN 0 COLON) P 16 *PRINT-ESCAPE* F 17 *FORMAT-ARGUMENTS*) B˜BBb¿µlB˜BBb¿µkB˜BBb¿µjB˜BBb¿µoÄBšo ¿W"µo ¼jLóŸo°W"c"¿°íA•o„o½L hHh ^_¿N__¿O_¿@–M ¿JOÕM ÕIOÕ_¿jOó‘jOÕj_¿_¿OOóŸK ¿OkÔ_¿°ì@¦M ¿IOÕj_¿_¿OOó²o ¿OkÔ_¿°çO (281 WRITE-STRING* 264 CL:WRITE-CHAR 235 WRITE-STRING* 217 CL:WRITE-CHAR 180 CL:LENGTH 169 WRITE-STRING* 139 \MVLIST 134 FLONUM-TO-STRING 126 ABS 82 FORMAT-ERROR 67 FORMAT-ERROR) NIL ( 259 #\0 116 "" 110 "+" 92 "-" 77 "Missing argument" 62 "Too many parameters" 52 #\Space) FORMAT-INDIRECTIONA0001 :D8 (P 6 *FORMAT-ARGUMENTS* P 5 *FORMAT-INDEX* P 4 *FORMAT-LENGTH* P 3 *FORMAT-CONTROL-STRING* P 2 *CONDITION-HANDLER-BINDINGS* P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 7 *FORMAT-ARGUMENTS* F 8 SI::CONDITION-CASE-LITERALS F 9 *CONDITION-HANDLER-BINDINGS* F 10 STRING F 11 ATSIGN F 12 A3181) Wi@WWWd jW˜jL °Wµ%o jL cgWc¿°à(68 \MVLIST 61 SUB-FORMAT 51 FORMAT-ERROR 35 SUB-FORMAT 21 CL:LENGTH) (75 :NORMAL) ( 46 "Missing argument") FORMAT-INDIRECTION :D8 (L (2 PARMS 0 COLON) P 5 A3181 P 4 SI::CONDITION-CASE-LITERALS 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 ¿H!o\ Ydgð¿M$Vc¿°ÆÃ²,IºggoWWkÔhJÉIL (156 SI::CONDITION-CASE-ERROR 146 CL:ERROR 75 FORMAT-INDIRECTIONA0001 58 FORMAT-ERROR 47 CL:STRINGP 38 FORMAT-ERROR 24 FORMAT-ERROR 11 FORMAT-ERROR) (138 FORMAT-ERROR 117 :ARGS 112 FORMAT-ERROR 103 FORMAT-ERROR 82 :NORMAL) ( 122 "While processing indirect control string~%%~S~%%~V@T^" 68 (SI::CREATE-CONDITION-CASE-LITERALS (QUOTE FORMAT-ERROR)) 53 "Indirected control string is not a string" 33 "Missing argument" 19 "Parameters not allowed" 6 "Colon modifier not allowed") FORMAT-ESCAPE :D8 (L (2 PARMS 1 ATSIGN 0 COLON) F 2 *FORMAT-COLON-ITERATION* F 3 *OUTER-FORMAT-ARGUMENTS* F 4 *FORMAT-ARGUMENTS*) ¼A›o@ ¿@œRªo ¿B²}Bd²ad²Td3 ²¿BBHIóhð´ IBóhð°VÃ´fBÓBÓIHó´IBÓýó°&Bô°Hjðµ H´H †@‘S€Thð´@§R•g„gh (185 SI::INTERNAL-THROW 153 \FZEROP 27 FORMAT-ERROR 12 FORMAT-ERROR) (179 FORMAT-COLON-ESCAPE 173 FORMAT-ESCAPE 120 CHARACTER 101 CHARACTER 92 CHARACTER 83 CHARACTER) ( 22 "FORMAT command ~~:^ is illegal outside a ~~:{...~~}" 6 "FORMAT command ~~~:[~;:~]@^ is undefined") FORMAT-SEMICOLON-ERROR :D8 (L (2 PARAMS 1 ATSIGN 0 COLON)) o (9 FORMAT-ERROR) NIL ( 4 "Unexpected semicolon (probably a missing ~~ somewhere).") FORMAT-CONDITION :D8 (L (2 PARMS 1 ATSIGN 0 COLON) F 0 *FORMAT-INDEX* F 1 *FORMAT-ARGUMENTS* F 2 *FORMAT-LENGTH* F 3 *FORMAT-CONTROL-STRING*) ]BµPkÔcRýó²"SP¶°'Bb¿Qc¿B²åo ¿°Øo ¿@²Ašo ¿A•(90 FORMAT-UNTAGGED-CONDITION 84 FORMAT-FUNNY-CONDITION 76 FORMAT-BOOLEAN-CONDITION 70 FORMAT-ERROR 54 FORMAT-ERROR 41 FORMAT-ERROR) NIL ( 65 "~~:@[ undefined" 49 "Syntax error" 36 "Too many parameters to ~[") FORMAT-ITERATIONA0001 :D8 (P 5 *FORMAT-INDEX* P 4 *FORMAT-LENGTH* P 3 *FORMAT-CONTROL-STRING* P 2 *CONDITION-HANDLER-BINDINGS* P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 6 SI::CONDITION-CASE-LITERALS F 7 *CONDITION-HANDLER-BINDINGS* F 8 A3189 F 9 STRING F 10 MAX-ITER F 11 COLON F 12 ATSIGN F 13 END-COLON) 8i@VWWd jjLWWWW cg(46 \MVLIST 40 FORMAT-DO-ITERATION 20 CL:LENGTH) (53 :NORMAL) () FORMAT-ITERATION :D8 (L (2 PARMS) P 14 A3189 P 13 SI::CONDITION-CASE-LITERALS 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ÿ¢±•¿W µEo O ªo ¿O!o_ _dgðŸ¿O$W c ¿°ÀÃ²0O_¿ggoW"WkÔhOÉOO LH@AO (280 FORMAT-DO-ITERATION 267 SI::CONDITION-CASE-ERROR 255 CL:ERROR 177 FORMAT-ITERATIONA0001 158 FORMAT-ERROR 147 CL:STRINGP 137 FORMAT-ERROR 113 FORMAT-ERROR 71 \MVLIST 66 FORMAT-FIND-COMMAND 55 FORMAT-ERROR 27 FORMAT-ERROR) (247 FORMAT-ERROR 225 :ARGS 220 FORMAT-ERROR 208 FORMAT-ERROR 185 :NORMAL) ( 230 "While processing indirect control string~%%~S~%%~V@T^" 169 (SI::CREATE-CONDITION-CASE-LITERALS (QUOTE FORMAT-ERROR)) 153 "Control string is not a string" 132 "Missing argument" 108 "Illegal terminator for ~~{" 61 (#\}) 50 "Syntax error" 22 "Too many parameters") FORMAT-JUSTIFICATION :D8 (L (2 PARMS 1 ATSIGN 0 COLON) F 33 *FORMAT-INDEX* F 34 *FORMAT-INCOMPATIBLE-JUSTIFICATION* F 35 *FORMAT-JUSTIFICATION* F 36 *FORMAT-LENGTH* F 37 *FORMAT-CONTROL-STRING* F 38 *STANDARD-OUTPUT*) Ä!o ñÐH¹HZ»J\½L^_¿N_¿O²BBžIcB¿o ¿Mšo ¿WFšo ¿@AOIkÔK B˜BBb¿µjB˜BBb¿µkB˜BBb¿µjB˜BBb¿µo Bšo ¿O:3 ”jO:óœoO: ¿O<3 ”O3 ”jO>óœoO> ¿O@Ã¬oO@ ¿IcBdkÔcBWHýó•WJWB¶‰o ¿ __¿O__¿O__¿O__ ¿O_"¿WDgðšo †gcD¿O kÿ™@•A“l°k@‘k€jO kÕÔA‘k€jÔ_$¿O"O>O$ÖÔO:O<_&O"ÕO$ _(¿O kÿ² A“@£°8@‘A•A³8@³5O(o °&@‘A”A³@¬O(o ¿A“@“A¨@¦jO(_(¿O²XOšOO_¿µjOšOO_¿µµlH_,¿_*¿Ošo ¿WL µjO&ÔO*ÔO,ó—O ¿OO(_0¿_.³%O0j_4¿_2¿O2O4ó¡hO@ ¿O4kÔ_4¿°éO0j_8¿_6¿O6O8ó²O@ ¿O8kÔ_8¿°êO. ¿O.O0°¥(697 WRITE-STRING* 679 CL:WRITE-CHAR 645 CL:WRITE-CHAR 608 WRITE-STRING* 588 CHARPOS 580 FORMAT-ERROR 557 LINELENGTH 503 \NCONC2 480 \NCONC2 443 MAKE-PAD-SEGS 431 FORMAT-ROUND-COLUMNS 371 FORMAT-ERROR 312 \MVLIST 307 FORMAT-GET-SEGMENTS 301 FORMAT-ERROR 271 FORMAT-ERROR 250 FORMAT-ERROR 227 FORMAT-ERROR 204 FORMAT-ERROR 181 FORMAT-ERROR 113 FORMAT-PPRINT-LOGICAL-BLOCK 99 FORMAT-CHECK-JUSTIFY 93 FORMAT-ERROR 79 FORMAT-ERROR 66 FORMAT-ERROR 14 \MVLIST 9 FORMAT-FIND-COMMAND) (377 :JUSTIFY 359 :XP 258 CHARACTER) ( 575 "Too many parameters" 498 (0) 475 (0) 366 "Pretty-printer directive and ~<...~:;...~> in same format string" 296 "Syntax error" 264 "Padchar must be a character - ~S" 243 "Minpad must be a non-negative integer - ~S" 220 "Colinc must be a positive integer - ~S" 197 "Mincol must be a non-negative integer - ~S" 176 "Too many parameters" 166 #\Space 88 "~<...~:> not allowed under vanilla justification" 74 "Logical-block close does not accept parameters" 61 "Logical-block does not accept parameters" 4 (#\>)) FORMAT-CAPITALIZATIONA0001A0002A0003 :D8 (P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 2 PREV F 3 TILDE F 4 SUB-ESCAPE) i@RS hc(11 SUB-FORMAT) NIL () FORMAT-CAPITALIZATIONA0001A0002 :D8 (P 2 SUB-ESCAPE P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 3 ESCAPE) i@gZ Jc(15 FORMAT-CAPITALIZATIONA0001A0002A0003) (9 FORMAT-ESCAPE) () FORMAT-CAPITALIZATIONA0001 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 ESCAPE F 1 *STANDARD-OUTPUT* F 2 A3204) !gc ¿Q hc¿$(23 \MVLIST 18 CL:GET-OUTPUT-STREAM-STRING 11 FORMAT-CAPITALIZATIONA0001A0002) (4 FORMAT-COLON-ESCAPE) () FORMAT-CAPITALIZATIONA0004 :D8 (F 0 *STANDARD-OUTPUT* F 1 A3204) PgQ(11 CL:CLOSE) (5 :ABORT) () FORMAT-CAPITALIZATION :D8 (L (2 PARMS 1 ATSIGN 0 COLON) P 17 A3204 P 16 *STANDARD-OUTPUT* P 15 ESCAPE P 3 TILDE P 1 PREV F 18 *FORMAT-INDEX* F 19 *FORMAT-LENGTH* F 20 *FORMAT-CONTROL-STRING*) 2Bšo ¿W$kÔc$W&ýó•W(W$¶‰o ¿o áH¹HZ»J\½L^_¿N_¿M¥O¢Ošo ¿ig O gO"¿$_¿A›@²O °|@˜O °qA²gO _¿O ¿j_¿OOó›OO¶ ²9O_¿O_¿lOO¶Ó_¿laOóªOdlzó¥l ÕOÑOO·¿OŒOkÔ°°O Od•h (303 SI::INTERNAL-THROW 293 WRITE-STRING* 288 CL:NSTRING-DOWNCASE 218 CL:ALPHA-CHAR-P 197 CL:NSTRING-DOWNCASE 187 CL:LENGTH 175 CL:NSTRING-CAPITALIZE 164 CL:NSTRING-UPCASE 144 CL:CLOSE 130 \MVLIST 125 FORMAT-CAPITALIZATIONA0001 111 MAKE-FILL-POINTER-OUTPUT-STREAM 102 FORMAT-ERROR 55 \MVLIST 50 FORMAT-FIND-COMMAND 39 FORMAT-ERROR 11 FORMAT-ERROR) (242 CHARACTER 137 :ABORT 120 FORMAT-CAPITALIZATIONA0004) ( 97 "Flags or parameters not allowed" 45 (#\)) 34 "Syntax error" 6 "No parameters allowed to ~~(") FORMAT-NEWLINE :D8 (L (2 PARMS 1 ATSIGN 0 COLON) F 0 *STANDARD-OUTPUT*) ,Bšo ¿@A´o A•P (41 FORMAT-EAT-WHITESPACE 36 CL:TERPRI 27 FORMAT-ERROR 11 FORMAT-ERROR) NIL ( 22 "~:@ is undefined" 6 "Parameters not allowed") FORMAT-JUST-WRITE :D8 (L (2 PARMS 1 ATSIGN 0 COLON) F 0 *PRINT-PRETTY* F 1 *FORMAT-ARGUMENTS* F 2 *CLTL2-PEDANTIC* F 3 *FORMAT-INCOMPATIBLE-JUSTIFICATION* F 4 *FORMAT-JUSTIFICATION* F 5 *PRINT-LENGTH* F 6 *PRINT-LEVEL*) }Bšo T²R“@¡Pšo Sgð²R“@¡Pšo †gc¿Qµo gPµ@gA™hˆQc¿°èVgA‘h€U (122 WRITE 79 FORMAT-ERROR 57 FORMAT-ERROR 31 FORMAT-ERROR 11 FORMAT-ERROR) (111 :LENGTH 93 :LEVEL 84 :PRETTY 63 :XP 38 :JUSTIFY) ( 74 "Missing argument" 52 "Pretty-printer directive and ~<...~:;...~> in same format string" 26 "~W not allowed under vanilla justification" 6 "Parameters not allowed") FORMAT-PPRINT-NEWLINE :D8 (L (2 PARMS 1 ATSIGN 0 COLON) F 0 *FORMAT-JUSTIFICATION*) SBšo Pšo @²Ašg g Ašg g (80 XP:PPRINT-NEWLINE 69 XP:PPRINT-NEWLINE 56 XP:PPRINT-NEWLINE 45 XP:PPRINT-NEWLINE 30 FORMAT-CHECK-JUSTIFY 24 FORMAT-ERROR 11 FORMAT-ERROR) (75 :LINEAR 64 :MISER 51 :FILL 40 :MANDATORY) ( 19 "~_ not allowed under vanilla justification" 6 "Parameters not allowed") FORMAT-PPRINT-INDENT :D8 (L (2 PARMS 1 ATSIGN 0 COLON) F 1 *FORMAT-JUSTIFICATION*) VAšo Qšo B˜BBb¿µjBšo ¿@›gH gH (83 XP:PPRINT-INDENT 71 XP:PPRINT-INDENT 57 FORMAT-ERROR 30 FORMAT-CHECK-JUSTIFY 24 FORMAT-ERROR 11 FORMAT-ERROR) (77 :BLOCK 65 :CURRENT) ( 52 "Too many parameters" 19 "~I not allowed under vanilla justification" 6 "@ flag not allowed") FORMAT-CALL-FUNCTION :D8 (L (2 PARMS 1 ATSIGN 0 COLON) F 6 *FORMAT-INDEX* F 7 *FORMAT-CONTROL-STRING* F 8 *FORMAT-ARGUMENTS* F 9 *FORMAT-LENGTH* F 10 *STANDARD-OUTPUT*) OVkÔcWýó”WV¶‰o ¿oWgVgWgg QHªo ¿oWgVgHgg YµCJ²lWgIgH WgVgJ °VºWIkÔY¶o:²±WIkÔY¶o:²¢o ¿°•WgVgH o [HkØcKl½¼WWµo @AB°!Wc¿°ôdýnMkØ]ñ¨hl4 ¿µêML(326 \LISPERROR 291 FORMAT-ERROR 264 CL:FIND-SYMBOL 259 CL:STRING-UPCASE 254 CL:FIND-PACKAGE 244 CL:SUBSEQ 221 FORMAT-ERROR 178 CL:FIND-SYMBOL 173 CL:FIND-PACKAGE 168 CL:STRING-UPCASE 163 CL:SUBSEQ 143 CL:STRING-UPCASE 138 CL:SUBSEQ 112 CL:POSITION 76 FORMAT-ERROR 61 CL:POSITION 24 FORMAT-ERROR) (237 :END 231 :START 156 :END 150 :START 131 :END 125 :START 106 CL:CHAR= 101 :TEST 95 :END 89 :START 55 CL:CHAR= 50 :TEST 43 :END 37 :START) ( 286 "Missing argument" 249 "USER" 216 "Too many colons in function-name" 208 #\: 193 #\: 82 #\: 71 "Missing closing /" 30 #\/ 19 "Syntax error") FORMAT-ROUND-COLUMNS :D8 (L (2 COLINC 1 MINCOL 0 WIDTH)) @dAóBA@ÕB ÖÔ(15 CL:CEILING) NIL () FORMAT-EAT-WHITESPACE :D8 (F 0 *FORMAT-INDEX* F 1 *FORMAT-CONTROL-STRING* F 2 *FORMAT-LENGTH*) 9PkÔcRýó“QP¶‰o ¿gQgPµQ ckÕ°û(48 CL:LENGTH 40 CL:POSITION-IF-NOT 22 FORMAT-ERROR) (34 :START 28 WHITESPACE-CHAR-P) ( 17 "Syntax error") FORMAT-PRINT-NAMED-CHARACTER :D8 (L (1 LONGP 0 CHAR)) ‡@ÓHÒlð´Hlÿålÿðhð´lHÑ!H µE@Ó¹jIó³HIló³Bo l@@ÓÔZÒlð´Jlÿålÿðhð´lJÑ H (132 CL:WRITE-CHAR 125 WRITE-STRING* 120 CL:STRING-CAPITALIZE 115 CL:PRINC-TO-STRING 109 CL:WRITE-CHAR 72 CL:WRITE-CHAR 41 CL:CHAR-NAME) (80 CHARACTER 49 CHARACTER 5 CHARACTER) ( 67 #\^) FORMAT-ADD-COMMAS :D8 (L (2 COMMA-INTERVAL 1 COMMACHAR 0 STRING)) ¤@ qHd@j¶o:©@j¶o:’l€kÕB ÔYgAºH»I¼Kjó³ @j¶o:©@j¶o:—J½@j¶Mj·JJ@gLBÕ¾jNó‘j€NgLgKBÕ_¿jOó‘jOgK ºKBÕ»LBÕkÕ°š(150 CL:REPLACE 54 CL:MAKE-STRING 41 CL:FLOOR 5 CL:LENGTH) (143 :END2 123 :START2 117 :END1 101 :START1 48 :INITIAL-ELEMENT) ( 82 #\- 72 #\+ 28 #\- 18 #\+) FORMAT-WRITE-FIELD :D8 (L (5 PADLEFT 4 PADCHAR 3 MINPAD 2 COLINC 1 MINCOL 0 STRING)) ¤A3 “jAó›oA ¿B3 “Bjó«oB ¿C3 “jCó›oC ¿DÃ«oD ¿@ QHCÔAB¹E² IHÕj»ºJKóœD ¿KkÔ»°ñ@ @ IHÕj½¼LMó¡hD ¿MkÔ½°ï(155 CL:WRITE-CHAR 137 WRITE-STRING* 130 WRITE-STRING* 117 CL:WRITE-CHAR 97 FORMAT-ROUND-COLUMNS 84 CL:LENGTH 77 FORMAT-ERROR 58 FORMAT-ERROR 38 FORMAT-ERROR 18 FORMAT-ERROR) (65 CHARACTER) ( 71 "Padchar must be a character - ~S" 52 "Minpad must be a non-negative integer - ~S" 32 "Colinc must be a positive integer - ~S" 12 "Mincol must be a non-negative integer - ~S") FORMAT-PRINT-NUMBER :D8 (L (4 PARMS 3 PRINT-SIGN-P 2 PRINT-COMMAS-P 1 RADIX 0 NUMBER) P 7 *PRINT-ESCAPE* P 6 *PRINT-RADIX* P 5 *PRINT-BASE*) ³D˜DDb¿µjD˜DDb¿µoD˜DDb¿µoD˜DDb¿µlDšo ¿A@ ¼@3 µ L jó²2C²/B²goLJK°goL‹B˜LJK€LHkjIi (176 FORMAT-WRITE-FIELD 163 FORMAT-ADD-COMMAS 152 CL:CONCATENATE 134 CL:CONCATENATE 129 FORMAT-ADD-COMMAS 100 WRITE-STRING* 88 CL:PRINC-TO-STRING 71 FORMAT-ERROR) (141 STRING 116 STRING) ( 146 "+" 121 "+" 66 "Too many parameters" 43 #\, 27 #\Space) FORMAT-PRINT-SMALL-CARDINAL :D8 (L (0 N) F 6 CARDINAL-ONES F 7 CARDINAL-TENS F 8 CARDINAL-TEENS) ž@ld QH¹HºIjó²'VI¶ ¿o ¿Jdjóœ¿o ¿Jjó´XJl [¼K½Ldkó²$¿WL¶ Mjó´/o VM¶ kÿ™WM¶ Mjó´ VM¶ (155 WRITE-STRING* 141 WRITE-STRING* 128 WRITE-STRING* 120 CL:WRITE-CHAR 105 WRITE-STRING* 82 \MVLIST 77 CL:TRUNCATE 63 CL:WRITE-CHAR 46 WRITE-STRING* 35 WRITE-STRING* 12 \MVLIST 7 CL:TRUNCATE) NIL ( 115 #\- 58 #\Space 41 " hundred") FORMAT-PRINT-CARDINAL :D8 (L (1 ERR 0 N)) Fj@ó²o j@ÕjAµ@@jð@d²d ›¿o jAµ@(67 FORMAT-PRINT-CARDINAL-AUX 56 WRITE-STRING* 44 \FZEROP 27 FORMAT-PRINT-CARDINAL-AUX 14 WRITE-STRING*) NIL ( 51 "zero" 9 "negative ") FORMAT-PRINT-CARDINAL-AUX :D8 (L (2 ERR 1 PERIOD 0 N) F 3 CARDINAL-PERIODS) ‚@nè !H¹HºAl ó›oB ¿Ijð³Id– ªIAkÔB¿Jjð³8J—J ³,Ijð³I–I ªo ¿J SA¶ h(125 WRITE-STRING* 117 FORMAT-PRINT-SMALL-CARDINAL 110 CL:WRITE-CHAR 99 \FZEROP 82 \FZEROP 66 FORMAT-PRINT-CARDINAL-AUX 55 \FZEROP 39 FORMAT-ERROR 13 \MVLIST 8 CL:TRUNCATE) NIL ( 105 #\Space 33 "Number too large to print in English: ~:D") FORMAT-PRINT-ORDINAL :D8 (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ÕH ¿Jjó²Kdjóœ¿o ¿Kl \½L¾Klÿšo Mdkÿ²¿WN¶ o jð³:Mµ.Njð³HNµi@U²Tµ o JKµWW Tc¿°æ³íV ¿°ä(57 FORMAT-ERROR 39 SUB-FORMAT 20 FORMAT-ERROR) NIL ( 15 "Missing argument") FORMAT-DO-ITERATIONA0001A0002A0003 :D8 (I 0 ERRMSG F 1 MAX-ITER F 2 *FORMAT-ARGUMENTS* F 3 AT-LEAST-ONCE-P) (jHQÿ«R«Hjÿ“Shð€i‘hg ¿HkÔX°à(31 FORMAT-DO-ITERATIONA0001A0002A0003A0004) (26 FORMAT-ESCAPE) () FORMAT-DO-ITERATIONA0001A0002 :D8 (P 4 *FORMAT-ARGUMENTS* P 3 *FORMAT-ORIGINAL-ARGUMENTS* P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 5 *FORMAT-ARGUMENTS* F 6 ATSIGN) Ti@VœokgUµ'o KLµokg›°ñºUc ¿J°Ýo ¿°Ú(79 FORMAT-ERROR 32 FORMAT-ERROR) (53 FORMAT-DO-ITERATIONA0001A0002A0003 17 FORMAT-DO-ITERATIONA0001A0002A0003) ( 74 "Argument must be a list" 47 "Argument must be a list of lists" 27 "Missing argument" 11 "Argument must be a list") FORMAT-DO-ITERATIONA0001 :D8 (P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH*) i@g (14 FORMAT-DO-ITERATIONA0001A0002) (9 FORMAT-ESCAPE) () FORMAT-DO-ITERATION :D8 (I 5 AT-LEAST-ONCE-P I 4 ATSIGN I 3 COLON I 2 MAX-ITER I 1 END I 0 START) g (9 FORMAT-DO-ITERATIONA0001) (4 FORMAT-COLON-ESCAPE) () FORMAT-GET-TRAILING-SEGMENTSA0001A0002 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 PREV F 1 TILDE F 2 *STANDARD-OUTPUT* F 3 A3282) PQ ¿R hc¿$(18 \MVLIST 13 CL:GET-OUTPUT-STREAM-STRING 6 SUB-FORMAT) NIL () FORMAT-GET-TRAILING-SEGMENTSA0001A0003 :D8 (F 0 *STANDARD-OUTPUT* F 1 A3282) PgQ(11 CL:CLOSE) (5 :ABORT) () FORMAT-GET-TRAILING-SEGMENTSA0001 :D8 (P 3 A3282 P 2 *STANDARD-OUTPUT* P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH*) /i@ig JgK¿$(40 CL:CLOSE 28 \MVLIST 23 FORMAT-GET-TRAILING-SEGMENTSA0001A0002 9 MAKE-FILL-POINTER-OUTPUT-STREAM) (34 :ABORT 18 FORMAT-GET-TRAILING-SEGMENTSA0001A0003) () FORMAT-GET-TRAILING-SEGMENTS :D8 (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 ¿g _´SOoð²9 __¿O__¿O_ ¿OOOkÔO O Ô$OhkO $jd$(204 CL:LENGTH 187 CL:LENGTH 147 \MVLIST 142 FORMAT-GET-TRAILING-SEGMENTS 123 FORMAT-GET-TRAILING-SEGMENTSA0001 112 FORMAT-ERROR 95 FORMAT-ERROR 42 \MVLIST 37 FORMAT-FIND-COMMAND 26 FORMAT-ERROR) (118 FORMAT-ESCAPE) ( 134 #\; 107 "Flags and parameters not allowed" 90 "~~:; allowed only after first segment in ~~<" 32 (#\; #\>) 21 "Syntax error") FORMAT-GET-SEGMENTSA0001 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 PREV F 1 TILDE F 2 *STANDARD-OUTPUT* F 3 A3290) PQ ¿R hc¿$(18 \MVLIST 13 CL:GET-OUTPUT-STREAM-STRING 6 SUB-FORMAT) NIL () FORMAT-GET-SEGMENTSA0002 :D8 (F 0 *STANDARD-OUTPUT* F 1 A3290) PgQ(11 CL:CLOSE) (5 :ABORT) () FORMAT-GET-SEGMENTS :D8 (P 18 A3290 P 17 *STANDARD-OUTPUT* P 3 TILDE P 1 PREV) Ùo ñH¹HZ»J\½L^_¿N__¿O_¿Ošo ¿ig O"gO$¿$_¿Ooð´K __¿O__¿O_ ¿O´OMOOO $dOOOkÔO O Ô$dOhkO $(211 CL:LENGTH 191 CL:LENGTH 135 \MVLIST 130 FORMAT-GET-TRAILING-SEGMENTS 107 CL:CLOSE 93 \MVLIST 88 FORMAT-GET-SEGMENTSA0001 74 MAKE-FILL-POINTER-OUTPUT-STREAM 68 FORMAT-ERROR 14 \MVLIST 9 FORMAT-FIND-COMMAND) (100 :ABORT 83 FORMAT-GET-SEGMENTSA0002) ( 122 #\; 63 "Atsign flag not allowed" 4 (#\; #\>)) FORMAT-PPRINT-LOGICAL-BLOCKA0001A0002A0003 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 START F 1 END) PQ (6 SUB-FORMAT) NIL () FORMAT-PPRINT-LOGICAL-BLOCKA0001A0002A0004 :D8 (F 0 *STANDARD-OUTPUT* F 1 SUFFIX) PQ (6 XP::END-BLOCK) NIL () FORMAT-PPRINT-LOGICAL-BLOCKA0001A0002 :D8 (P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 2 *STANDARD-OUTPUT* F 3 SUFFIX F 4 PREFIX F 5 PER-LINE-PREFIX?) .i@RTUhðhðSg RS ¿$(39 XP::END-BLOCK 32 \MVLIST 27 FORMAT-PPRINT-LOGICAL-BLOCKA0001A0002A0003 17 XP::START-BLOCK) (22 FORMAT-PPRINT-LOGICAL-BLOCKA0001A0002A0004) () FORMAT-PPRINT-LOGICAL-BLOCKA0001 :D8 (L (1 ARGLIST) P 1 *FORMAT-ARGUMENTS* P 0 *FORMAT-ORIGINAL-ARGUMENTS* I 0 *STANDARD-OUTPUT* F 3 ATSIGN F 4 XP::*CURRENT-LENGTH* F 5 XP::*CURRENT-LEVEL*) )A!H¹S“Tjó€iUkÔ¿º@IJªg h(36 FORMAT-PPRINT-LOGICAL-BLOCKA0001A0002 25 XP::CHECK-BLOCK-ABBREVIATION) (31 XP::LOGICAL-BLOCK) () FORMAT-PPRINT-LOGICAL-BLOCK :D8 (L (2 ENDATSIGN 0 COLON) P 4 PER-LINE-PREFIX? P 3 SUFFIX P 2 PREFIX P 1 *FORMAT-INDEX* I 4 END I 3 START I 1 ATSIGN F 20 *FORMAT-ARGUMENTS* F 21 *FORMAT-CONTROL-STRING* F 22 *STANDARD-OUTPUT*) hB•g€iC@´o@´oôo _&_$¿O&_"_ ¿O"__¿O__¿O__¿Ooð¢±ÚOšo ¿Ošo ¿W*O$O ºO‘i¼IkÔb¿o __$¿O__ ¿O__¿O^_¿N]_¿Moð²eOšo ¿Ošo ¿Ošo ¿W*O$O »IkÔb¿o oðšo ¿gW,A’W(W(µo W(c(¿°ó(348 XP::MAYBE-INITIATE-XP-PRINTING 343 FORMAT-ERROR 316 FORMAT-ERROR 293 \MVLIST 288 FORMAT-FIND-COMMAND 271 CL:SUBSEQ 259 FORMAT-ERROR 245 FORMAT-ERROR 231 FORMAT-ERROR 168 \MVLIST 163 FORMAT-FIND-COMMAND 141 CL:SUBSEQ 129 FORMAT-ERROR 115 FORMAT-ERROR 46 \MVLIST 41 FORMAT-FIND-COMMAND) (322 FORMAT-PPRINT-LOGICAL-BLOCKA0001 6 :FILL) ( 338 "Missing argument" 311 "No more than three segments allowed in a logical-block" 304 #\; 283 (#\; #\>) 254 "Atsign not allowed for this logical-block seperator" 240 "Colon not allowed for logical-block seperator" 226 "Parameters not allowed for logical-block seperator" 215 #\; 158 (#\; #\>) 124 "Colon not allowed for logical-block seperator" 110 "Parameters not allowed for logical-block seperator" 97 #\; 36 (#\; #\>) 25 ")" 17 "(") FORMAT-CHECK-JUSTIFY :D8 (F 0 *FORMAT-INCOMPATIBLE-JUSTIFICATION*) Pgðšo gc(17 FORMAT-ERROR) (23 :XP 5 :JUSTIFY) ( 12 "Pretty-printer directive and ~<...~:;...~> in same format string") CHARPOS :D8 (L (0 STREAM)) @d ¿o@ ¿@È(19 CL:ERROR 6 STREAMP) (26 STREAM) ( 13 "CHARPOS: ~A isn't a stream") WHITESPACE-CHAR-P :D8 (L (0 CH)) @oNIL NIL ( 5 (#\Tab #\Page #\Space #\Backspace #\Newline #\Linefeed)) MAKE-PAD-SEGS :D8 (L (1 PADDINGS 0 SPACES)) WP@A º@AJÖÕ»A\jð³.Lµ"Kjó´jk LK ýóXœJkÔ‰ ²ÛIJI¹H“KkÕ€K»LkÕ°¾(64 \FZEROP 51 CL::%%/ 44 RAND 9 CL:TRUNCATE) (39 FLOATP) () FORMAT-LOGICAL-FILL :D8 (L (4 FIRST? 3 END 2 START 1 STREAM 0 STRING)) `BCHñ¡h@H¶Ydoð²=¿oA ¿HkÔ¸CHñ›@H¶Yoð³âDªg ¿hb¿Ioð§IA ¿HkÔ¸°§(87 CL:WRITE-CHAR 67 XP:PPRINT-NEWLINE 34 CL:WRITE-CHAR) (62 :FILL) ( 78 #\Space 52 #\Space 28 #\Space 19 #\Space) expand-NAME-ARRAY :D8 (L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) .@gH giggHhh(16 LENGTH) (32 QUOTE 27 :INITIAL-CONTENTS 21 :ELEMENT-TYPE 10 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*)) (CL:SETQ *FORMAT-ARGUMENTS* NIL)) (SET-DOCUMENTATION (QUOTE *FORMAT-ARGUMENTS*) (QUOTE CL:VARIABLE) "List of FORMAT args yet unprocessed") (CL:PROCLAIM (QUOTE (CL:SPECIAL *OUTER-FORMAT-ARGUMENTS*))) (OR (BOUNDP (QUOTE *OUTER-FORMAT-ARGUMENTS*)) (CL:SETQ *OUTER-FORMAT-ARGUMENTS* NIL)) (SET-DOCUMENTATION (QUOTE *OUTER-FORMAT-ARGUMENTS*) (QUOTE CL:VARIABLE) "Bound by FORMAT-DO-ITERATION so FORMAT-ESCAPE can see if there are any arguments left outside the ones *FORMAT-ARGUMENTS* are bound to" ) (CL:PROCLAIM (QUOTE (CL:SPECIAL *FORMAT-CONTROL-STRING*))) (OR (BOUNDP (QUOTE *FORMAT-CONTROL-STRING*)) (CL:SETQ *FORMAT-CONTROL-STRING* NIL)) (SET-DOCUMENTATION (QUOTE *FORMAT-CONTROL-STRING*) (QUOTE CL:VARIABLE) "Bound to FORMAT control string") (CL:PROCLAIM (QUOTE (CL:SPECIAL *FORMAT-DISPATCH-TABLE*))) (OR (BOUNDP (QUOTE *FORMAT-DISPATCH-TABLE*)) (CL: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 FORMAT-CALL-FUNCTION 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 FORMAT-PPRINT-INDENT NIL NIL NIL NIL NIL FORMAT-PRINT-OCTAL FORMAT-PLURAL NIL FORMAT-PRINT-RADIX FORMAT-PRIN1 FORMAT-TAB NIL NIL FORMAT-JUST-WRITE FORMAT-PRINT-HEXADECIMAL NIL NIL FORMAT-CONDITION NIL NIL FORMAT-ESCAPE FORMAT-PPRINT-NEWLINE NIL FORMAT-PRINC FORMAT-PRINT-BINARY FORMAT-PRINT-CHARACTER FORMAT-PRINT-DECIMAL FORMAT-EXPONENTIAL FORMAT-FIXED FORMAT-GENERAL-FLOAT NIL FORMAT-PPRINT-INDENT NIL NIL NIL NIL NIL FORMAT-PRINT-OCTAL FORMAT-PLURAL NIL FORMAT-PRINT-RADIX FORMAT-PRIN1 FORMAT-TAB NIL NIL FORMAT-JUST-WRITE 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))))) (SET-DOCUMENTATION (QUOTE *FORMAT-DISPATCH-TABLE*) (QUOTE CL:VARIABLE) "Table of functions called by SUB-FORMAT to process ~foo stuff") (CL:PROCLAIM (QUOTE (CL:SPECIAL *FORMAT-INDEX*))) (OR (BOUNDP (QUOTE *FORMAT-INDEX*)) (CL:SETQ *FORMAT-INDEX* NIL)) (SET-DOCUMENTATION (QUOTE *FORMAT-INDEX*) (QUOTE CL:VARIABLE) "Index into current control string") (CL:PROCLAIM (QUOTE (CL:SPECIAL *FORMAT-LENGTH*))) (OR (BOUNDP (QUOTE *FORMAT-LENGTH*)) (CL:SETQ *FORMAT-LENGTH* NIL)) (SET-DOCUMENTATION (QUOTE *FORMAT-LENGTH*) (QUOTE CL:VARIABLE) "Length of current control string") (CL:PROCLAIM (QUOTE (CL:SPECIAL *FORMAT-ORIGINAL-ARGUMENTS*))) (OR (BOUNDP (QUOTE *FORMAT-ORIGINAL-ARGUMENTS*)) (CL:SETQ *FORMAT-ORIGINAL-ARGUMENTS* NIL)) (SET-DOCUMENTATION (QUOTE *FORMAT-ORIGINAL-ARGUMENTS*) (QUOTE CL:VARIABLE) "List of original FORMAT arguments") (CL:PROCLAIM (QUOTE (CL:SPECIAL *FORMAT-LOGICAL-BLOCK*))) (OR (BOUNDP (QUOTE *FORMAT-LOGICAL-BLOCK*)) (CL:SETQ *FORMAT-LOGICAL-BLOCK* NIL)) (SET-DOCUMENTATION (QUOTE *FORMAT-LOGICAL-BLOCK*) (QUOTE CL:VARIABLE) "Bound to T under FORMAT-PPRINT-LOGICAL-BLOCK") (CL:PROCLAIM (QUOTE (CL:SPECIAL *FORMAT-JUSTIFICATION*))) (OR (BOUNDP (QUOTE *FORMAT-JUSTIFICATION*)) (CL:SETQ *FORMAT-JUSTIFICATION* NIL)) (SET-DOCUMENTATION (QUOTE *FORMAT-JUSTIFICATION*) (QUOTE CL:VARIABLE) "Bound to T under FORMAT-JUSTIFICATION") (CL:PROCLAIM (QUOTE (CL:SPECIAL *FORMAT-INCOMPATIBLE-JUSTIFICATION*))) (OR (BOUNDP (QUOTE *FORMAT-INCOMPATIBLE-JUSTIFICATION*)) (CL:SETQ *FORMAT-INCOMPATIBLE-JUSTIFICATION* NIL)) (SET-DOCUMENTATION (QUOTE *FORMAT-INCOMPATIBLE-JUSTIFICATION*) (QUOTE CL:VARIABLE) "Bound by CL:FORMAT and FORMAT-INDIRECTION; set to :XP by ~_ and friends, set to :JUSTIFY by ~<...~:;...~>" ) (CL:PROCLAIM (QUOTE (CL:SPECIAL *FORMAT-COLON-ITERATION*))) (OR (BOUNDP (QUOTE *FORMAT-COLON-ITERATION*)) (CL:SETQ *FORMAT-COLON-ITERATION* NIL)) (SET-DOCUMENTATION (QUOTE *FORMAT-COLON-ITERATION*) (QUOTE CL:VARIABLE) "Bound in FORMAT-DO-ITERATION to let FORMAT-ESCAPE know whether it is under a ~:{ or not") (CL:PROCLAIM (QUOTE (CL:SPECIAL CARDINAL-ONES))) (OR (BOUNDP (QUOTE CARDINAL-ONES)) (CL:SETQ CARDINAL-ONES (CL:MAKE-ARRAY 10 :ELEMENT-TYPE T :INITIAL-CONTENTS (QUOTE (NIL "one" "two" "three" "four" "five" "six" "seven" "eight" "nine"))))) (SET-DOCUMENTATION (QUOTE CARDINAL-ONES) (QUOTE CL:VARIABLE) "Table of strings used by ~R") (CL:PROCLAIM (QUOTE (CL:SPECIAL CARDINAL-TENS))) (OR (BOUNDP (QUOTE CARDINAL-TENS)) (CL:SETQ CARDINAL-TENS (CL:MAKE-ARRAY 10 :ELEMENT-TYPE T :INITIAL-CONTENTS (QUOTE (NIL NIL "twenty" "thirty" "forty" "fifty" "sixty" "seventy" "eighty" "ninety"))))) (SET-DOCUMENTATION (QUOTE CARDINAL-TENS) (QUOTE CL:VARIABLE) "Table of strings used by ~R") (CL:PROCLAIM (QUOTE (CL:SPECIAL CARDINAL-TEENS))) (OR (BOUNDP (QUOTE CARDINAL-TEENS)) (CL:SETQ CARDINAL-TEENS (CL:MAKE-ARRAY 10 :ELEMENT-TYPE T :INITIAL-CONTENTS (QUOTE ("ten" "eleven" "twelve" "thirteen" "fourteen" "fifteen" "sixteen" "seventeen" "eighteen" "nineteen"))))) (SET-DOCUMENTATION (QUOTE CARDINAL-TEENS) (QUOTE CL:VARIABLE) "Table of strings used by ~R") (CL:PROCLAIM (QUOTE (CL:SPECIAL CARDINAL-PERIODS))) (OR (BOUNDP (QUOTE CARDINAL-PERIODS)) (CL:SETQ CARDINAL-PERIODS (CL:MAKE-ARRAY 12 :ELEMENT-TYPE T :INITIAL-CONTENTS (QUOTE ("" " thousand" " million" " billion" " trillion" " quadrillion" " quintillion" " sextillion" " septillion" " octillion" " nonillion" " decillion"))))) (SET-DOCUMENTATION (QUOTE CARDINAL-PERIODS) (QUOTE CL:VARIABLE) "Table of strings used by ~R") (CL:PROCLAIM (QUOTE (CL:SPECIAL ORDINAL-ONES))) (OR (BOUNDP (QUOTE ORDINAL-ONES)) (CL:SETQ ORDINAL-ONES (CL:MAKE-ARRAY 10 :ELEMENT-TYPE T :INITIAL-CONTENTS (QUOTE (NIL "first" "second" "third" "fourth" "fifth" "sixth" "seventh" "eighth" "ninth"))))) (SET-DOCUMENTATION (QUOTE ORDINAL-ONES) (QUOTE CL:VARIABLE) "Table of strings used by ~R") (CL:PROCLAIM (QUOTE (CL:SPECIAL ORDINAL-TENS))) (OR (BOUNDP (QUOTE ORDINAL-TENS)) (CL:SETQ ORDINAL-TENS (CL:MAKE-ARRAY 10 :ELEMENT-TYPE T :INITIAL-CONTENTS (QUOTE (NIL "tenth" "twentieth" "thirtieth" "fourtieth" "fiftieth" "sixtieth" "seventieth" "eightieth" "ninetieth"))))) (SET-DOCUMENTATION (QUOTE ORDINAL-TENS) (QUOTE CL:VARIABLE) "Table of strings used by ~R") (PUTPROPS CMLFORMAT FILETYPE CL:COMPILE-FILE) (PUTPROPS CMLFORMAT COPYRIGHT ("Venue & Xerox Corporation" 1986 1987 1988 1989 1990 1991 1993)) NIL