(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (FILECREATED " 3-Jul-2022 17:43:06" ("compiled on " {DSK}kaplan>local>medley3.5>working-medley>sources>CMLFORMAT.;2) " 3-Jul-2022 16:23:43" "COMPILE-FILEd" in "FULL 3-Jul-2022 ..." dated " 3-Jul-2022 16:23:49") (FILECREATED " 3-Jul-2022 17:43:01" {DSK}kaplan>local>medley3.5>working-medley>sources>CMLFORMAT.;2 79948 :PREVIOUS-DATE "16-May-90 13:19:59" {DSK}kaplan>local>medley3.5>working-medley>sources>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 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-PRINT-RADIX-AUX 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))) (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) XeiAHkKJ3hY`MdnhnMjkhIMLMKdagl[kaNIL (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)) @ANIL (14 CHARACTER 6 CHARACTER) () expand-MAKE-DISPATCH-VECTOR :D8 (L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) @HVKg jIdnHoH gogiggJ hh_lOӼlALLdlZl ԀLlOӽlaMMdlzl ՀM_^OOhOONOhJI[IHXD IkHdI HHJY+(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.30102998 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)) @ !@AAk$HE jI@CCmI ְ@C CIk CJIBL7CLMDO@l O O$NCONOk__KCJK 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*MggoIJWWkhh La_NOh^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"DBDB okid$BDH@ HCjdl l Adkdl l kIkI@J ]MCLCԼK m_NL_h_@j)@@ NjKNkնoNkվLkԼW0j Oj_oW0 jOj__OOoW0 Ok_Nj__OOKOW0 Ok_jjLbOj__OOKOk_W0 Ok_oW0 jLj_"_ O O"qKOk_W0 O"k_"Nj_&_$O$O&KO&W0 O&k_&Lj_*_(O(O*oW0 O*k_*oW0 NL_W0 k^BW0NkOjONO$NOj_._,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)) :@!HHggIhhggoJohNIL (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)) expand-POP-FORMAT-ARG :D8 (L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) oNIL NIL ( 4 (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 :D8 (L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) k @QHHZJg0K9d]ggIgIhhMhhONh_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@AHHZJgIggKgLoNIL (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*) TSdo:SkcUTSo h#o:SkcUTSo i!TSYdo:"SkcUTSo V o:Ido:'Vo SkcU8TSVc o:/SkcUTSo SkcUo Io:VIo:MIo:DIo:;Io:2Io:)Io: Io:Io:Io:hTS SkcUTSo HjJJl JTS ԰(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*) Ukc WVUo AH Hogg hVUo#L YVUdo:LJ-IJKVU$Ukc WVUo LUkc WVUo o:KUkc WVUo (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 Jo@ c __O_O]M[d@gg HJONLK$o:+WkcWWWo o Kdo:,WkcWWWo o o:*WkcWWWo o _Kdo:+WkcWWWo 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::FORMATA0001A0002A0003 :D8 (P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 2 CL::CONTROL-STRING) i@jR (16 SUB-FORMAT 11 CL:LENGTH) NIL () CL::FORMATA0001A0002 :D8 (P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH*) i@g (14 CL::FORMATA0001A0002A0003) (9 FORMAT-COLON-ESCAPE) () CL::FORMATA0001 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 *STANDARD-OUTPUT* F 1 A0176) g P hc$(21 \MVLIST 16 CL:GET-OUTPUT-STREAM-STRING 9 CL::FORMATA0001A0002) (4 FORMAT-ESCAPE) () CL::FORMATA0004 :D8 (F 0 *STANDARD-OUTPUT* F 1 A0176) PgQ (11 CL:CLOSE) (5 :ABORT) () CL::FORMATA0005A0006A0007 :D8 (P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 2 CL::CONTROL-STRING) i@jR (16 SUB-FORMAT 11 CL:LENGTH) NIL () CL::FORMATA0005A0006 :D8 (P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH*) i@g (14 CL::FORMATA0005A0006A0007) (9 FORMAT-COLON-ESCAPE) () CL::FORMATA0005 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 A0177) g hc$(14 \MVLIST 9 CL::FORMATA0005A0006) (4 FORMAT-ESCAPE) () CL::FORMATA0008 :D8 (F 0 *STANDARD-OUTPUT* F 1 A0177) PgQ (11 CL:CLOSE) (5 :ABORT) () CL::FORMATA0009A0010 :D8 (P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 2 CL::CONTROL-STRING) i@jR (16 SUB-FORMAT 11 CL:LENGTH) NIL () CL::FORMATA0009 :D8 (P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH*) i@g (14 CL::FORMATA0009A0010) (9 FORMAT-COLON-ESCAPE) () CL:FORMAT :D8 (L (0 -args-) P 15 *STANDARD-OUTPUT* P 14 A0177 P 13 *STANDARD-OUTPUT* P 12 A0176 P 11 *STANDARD-OUTPUT* P 10 *FORMAT-CONTROL-STRING* P 9 *FORMAT-ARGUMENTS* P 8 *FORMAT-ORIGINAL-ARGUMENTS* P 2 CL::CONTROL-STRING F 16 *STANDARD-OUTPUT*) ekalaHl2LK7MdJ IGi g OgO $La_NOh^Lk\O& /I ig OgO $hIdiW g g h(186 CL::FORMATA0009 173 GETSTREAM 148 CL:CLOSE 134 \MVLIST 129 CL::FORMATA0005 115 MAKE-FILL-POINTER-OUTPUT-STREAM 107 CL:STRINGP 71 CL:CLOSE 57 \MVLIST 52 CL::FORMATA0001 38 MAKE-FILL-POINTER-OUTPUT-STREAM) (181 FORMAT-ESCAPE 168 OUTPUT 141 :ABORT 124 CL::FORMATA0008 64 :ABORT 47 CL::FORMATA0004) () SUB-FORMAT :D8 (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 [WWJA JWWJK K __O__O_OWMӶ\ONOlLoM HkXdAhoWgJj(143 FORMAT-ERROR 83 \MVLIST 78 PARSE-FORMAT-OPERATION 70 WRITE-STRING* 55 WRITE-STRING* 41 CL:POSITION) (168 :START 118 CHARACTER 35 CL:CHAR= 30 :TEST 24 :END 18 :START) ( 161 #\~ 137 "Illegal FORMAT command ~~~C" 11 #\~) 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 A0187) !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 A0187) PgQ (11 CL:CLOSE) (5 :ABORT) () FORMAT-CAPITALIZATION :D8 (L (2 PARMS 1 ATSIGN 0 COLON) P 17 A0187 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*) 2Bo W$kc$W&W(W$o o HHZJ\L^_N_MOOo ig O gO" $_A@O |@O qAgO _O j_OOOO 9O_O_lOO_laOOdlzl ՁOOOOOk԰O Odh (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-ESCAPE :D8 (L (2 PARMS 1 ATSIGN 0 COLON) F 2 *FORMAT-ARGUMENTS*) Ao@ B}BdadTd3 BBHIh IBhR`BBIHIB"BHj HH Rh@ggh (164 SI::INTERNAL-THROW 138 \FZEROP 12 FORMAT-ERROR) (158 FORMAT-ESCAPE 152 FORMAT-COLON-ESCAPE 105 CHARACTER 86 CHARACTER 77 CHARACTER 68 CHARACTER) ( 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-UNTAGGED-CONDITION :D8 (F 23 *FORMAT-INDEX* F 24 *FORMAT-ARGUMENTS* F 25 *FORMAT-LENGTH* F 26 *FORMAT-CONTROL-STRING*) W0o pH3 oH jYHto ZJ\L^_N__O_Oo Oo KM Ooo W0c0uo _,_*O,_(_&O(_$_"O$_ O"o O*o O ogO&eW.kc.W2W4W.o o __O__O_OO Ooo hW.kc.W2W4W.o IkԱ(375 FORMAT-ERROR 346 FORMAT-FIND-COMMAND 326 SUB-FORMAT 292 \MVLIST 287 FORMAT-FIND-COMMAND 276 FORMAT-ERROR 234 FORMAT-ERROR 220 FORMAT-ERROR 174 \MVLIST 169 FORMAT-FIND-COMMAND 148 FORMAT-FIND-COMMAND 126 SUB-FORMAT 118 FORMAT-ERROR 104 FORMAT-ERROR 60 \MVLIST 55 FORMAT-FIND-COMMAND 38 FORMAT-ERROR 17 FORMAT-ERROR) NIL ( 370 "Syntax error" 341 (#\]) 334 #\] 282 (#\; #\]) 271 "Syntax error" 242 #\] 229 "Parameters not allowed" 215 "Atsign flag not allowed" 164 (#\; #\]) 143 (#\]) 133 #\] 113 "No parameters allowed" 99 "Atsign flag not allowed" 50 (#\; #\]) 32 "Argument to ~~[ must be integer - ~S" 12 "Missing argument") FORMAT-FUNNY-CONDITION :D8 (F 9 *FORMAT-ARGUMENTS*) c o HHZJ\L^_N_OOMo W o dIK Wc(88 SUB-FORMAT 76 FORMAT-ERROR 61 FORMAT-ERROR 14 \MVLIST 9 FORMAT-FIND-COMMAND) NIL ( 71 "Missing argument" 56 "Flags or arguments not allowed" 4 (#\])) FORMAT-BOOLEAN-CONDITION :D8 (F 18 *FORMAT-INDEX* F 19 *FORMAT-ARGUMENTS* F 20 *FORMAT-LENGTH* F 21 *FORMAT-CONTROL-STRING*) o  HHZJ\L^_N_MOOo W$kc$W(W*W$o W&co `o __O__O__O__ O_"O O"Oo OO W&c&IK o (220 FORMAT-FIND-COMMAND 210 SUB-FORMAT 193 SUB-FORMAT 183 FORMAT-ERROR 124 \MVLIST 119 FORMAT-FIND-COMMAND 107 FORMAT-ERROR 92 FORMAT-ERROR 64 FORMAT-ERROR 14 \MVLIST 9 FORMAT-FIND-COMMAND) NIL ( 215 (#\]) 178 "Flags or parameters not allowed" 114 (#\]) 102 "Missing argument" 87 "Syntax error" 59 "Flags or parameters not allowed" 4 (#\;)) 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*) ]BPkcR"SP'BbQcBo o @Ao 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 A0233 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 A0233 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*) BBBbm Bo WkcW$W"Wo o  II[K]M__ONo JdLW Eo  O o O!o_ _dgO$W c 0O_ggoW"WkhO 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-DO-ITERATIONA0001A0002A0003 :D8 (P 2 *FORMAT-ARGUMENTS* P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 3 *FORMAT-ARGUMENTS* F 4 COLON F 5 START F 6 END) <i@TSo JUV Sco (55 FORMAT-ERROR 33 SUB-FORMAT 20 FORMAT-ERROR) NIL ( 50 "Argument must be a list" 15 "Missing argument") FORMAT-DO-ITERATIONA0001A0002A0004 :D8 (P 2 *FORMAT-ARGUMENTS* P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 3 *FORMAT-ARGUMENTS* F 4 COLON F 5 START F 6 END) <i@TSo JUV Sco (55 FORMAT-ERROR 33 SUB-FORMAT 20 FORMAT-ERROR) NIL ( 50 "Argument must be a list of lists" 15 "Missing argument") FORMAT-DO-ITERATIONA0001A0002 :D8 (P 4 *FORMAT-ARGUMENTS* P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 5 *FORMAT-ARGUMENTS* F 6 MAX-ITER F 7 AT-LEAST-ONCE-P F 8 ATSIGN) i@"W&jZVUJjWhihg Jk԰U*o Lj[VL)Kj!WhUc o ig Kk԰(121 FORMAT-DO-ITERATIONA0001A0002A0004 105 FORMAT-ERROR 57 FORMAT-ERROR 38 FORMAT-DO-ITERATIONA0001A0002A0003) (116 FORMAT-ESCAPE 33 FORMAT-ESCAPE) ( 100 "Argument must be a list" 52 "Missing argument") 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 A0240) 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 A0240) PgQ (11 CL:CLOSE) (5 :ABORT) () FORMAT-GET-TRAILING-SEGMENTSA0001 :D8 (P 3 A0240 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"kc"W$W&W"o o HHZJ\L^_N__O_Mo OOo g _SOo9 __O__O_ OOOkO 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 A0248) 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 A0248) PgQ (11 CL:CLOSE) (5 :ABORT) () FORMAT-GET-SEGMENTS :D8 (P 18 A0248 P 17 *STANDARD-OUTPUT* P 3 TILDE P 1 PREV) o HHZJ\L^_N__O_Oo ig O"gO$ $_OoK __O__O_ OOMOOO $dOOOkO 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 (#\; #\>)) MAKE-PAD-SEGS :D8 (L (1 PADDINGS 0 SPACES)) WP@A @AJջA\j.L"Kjjk LK XJkԉ IJIHKkՀKLkհ(64 \FZEROP 51 CL::%%/ 44 RAND 9 CL:TRUNCATE) (39 FLOATP) () FORMAT-ROUND-COLUMNS :D8 (L (2 COLINC 1 MINCOL 0 WIDTH)) @dABA@B (15 CL:CEILING) NIL () FORMAT-JUSTIFICATION :D8 (L (2 PARMS 1 ATSIGN 0 COLON) F 24 *FORMAT-INDEX* F 25 *FORMAT-LENGTH* F 26 *FORMAT-CONTROL-STRING* F 27 *STANDARD-OUTPUT*) BBBbjBBBbkBBBbjBBBboPBo H3 jHoH I3 IjoI J3 jJoJ KoK W0kc0W2W4W0o  \L^_N__O__O_Ok@Alk@kjOkAkj_OJOHI _OO _Ok A@8@AA8@5Oo &@AA@Oo A@A@jO_MWOOO_jOOO_ lH_"_ Oo W6 jOO O"M OO_&_$$O&j_*_(O(O*hK O*k_*O&j_._,O,O.K O.k_.O$ O$O&(530 WRITE-STRING* 512 CL:WRITE-CHAR 480 CL:WRITE-CHAR 444 WRITE-STRING* 425 CHARPOS 417 FORMAT-ERROR 394 LINELENGTH 341 \NCONC2 318 \NCONC2 281 MAKE-PAD-SEGS 269 FORMAT-ROUND-COLUMNS 187 \MVLIST 182 FORMAT-GET-SEGMENTS 176 FORMAT-ERROR 148 FORMAT-ERROR 129 FORMAT-ERROR 109 FORMAT-ERROR 89 FORMAT-ERROR 69 FORMAT-ERROR) (136 CHARACTER) ( 412 "Too many parameters" 336 (0) 313 (0) 171 "Syntax error" 142 "Padchar must be a character - ~S" 123 "Minpad must be a non-negative integer - ~S" 103 "Colinc must be a positive integer - ~S" 83 "Mincol must be a non-negative integer - ~S" 64 "Too many parameters" 51 #\Space) FORMAT-TERPRI :D8 (L (2 PARMS 1 ATSIGN 0 COLON) F 3 *STANDARD-OUTPUT*) C@Ao BBBbk!Bo HjIJhS JkԺ(58 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@Ao BBBbk!Bo S HkjIJhS JkԺ(66 TERPRI 48 CL:FRESH-LINE 41 FORMAT-ERROR 13 FORMAT-ERROR) NIL ( 36 "Too many parameters" 8 "Flags not allowed") FORMAT-PAGE :D8 (L (2 PARMS 1 ATSIGN 0 COLON)) G@Ao BBBbk!Bo HjIJho 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@Ao BBBbk!Bo HjIJho JkԺ(62 CL:WRITE-CHAR 41 FORMAT-ERROR 13 FORMAT-ERROR) NIL ( 57 #\~ 36 "Too many parameters" 8 "Flags not allowed") FORMAT-EAT-WHITESPACE :D8 (F 0 *FORMAT-INDEX* F 1 *FORMAT-CONTROL-STRING* F 2 *FORMAT-LENGTH*) 9PkcRQPo gQgP Q ckհ(48 CL:LENGTH 40 CL:POSITION-IF-NOT 22 FORMAT-ERROR) (34 :START 28 WHITESPACE-CHAR-P) ( 17 "Syntax error") FORMAT-NEWLINE :D8 (L (2 PARMS 1 ATSIGN 0 COLON) F 0 *STANDARD-OUTPUT*) ,Bo @A o AP (41 FORMAT-EAT-WHITESPACE 36 TERPRI 27 FORMAT-ERROR 11 FORMAT-ERROR) NIL ( 22 "~:@ is undefined" 6 "Parameters not allowed") FORMAT-PLURAL :D8 (L (2 PARMS 1 ATSIGN 0 COLON) F 1 *FORMAT-ARGUMENTS* F 2 *FORMAT-ORIGINAL-ARGUMENTS*) {Bo @-R Q kjHo HR cQo kAoQco Aoo (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-SKIP-ARGUMENTS :D8 (L (2 PARMS 1 ATSIGN 0 COLON) F 2 *FORMAT-ARGUMENTS* F 3 *FORMAT-ORIGINAL-ARGUMENTS*) BBBbAjkBo A$jHHS o HS c@+S R HչjIo IS cHR o HR c(139 CL:NTHCDR 131 FORMAT-ERROR 119 CL:LENGTH 109 CL:NTHCDR 101 FORMAT-ERROR 83 CL:LENGTH 77 CL:LENGTH 65 CL:NTHCDR 57 FORMAT-ERROR 45 CL:LENGTH 30 FORMAT-ERROR) NIL ( 126 "Skip to nonexistant argument" 96 "Skip to nonexistant argument" 52 "Illegal to go to non-existant argument" 25 "Too many parameters") 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 A0258) Wi@WWWd jWjL 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 A0258 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 Bo V@o !H o H!o\ YdgM$Vc ,IggoWWkhJ 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-TAB :D8 (L (2 PARMS 1 ATSIGN 0 COLON) F 6 *STANDARD-OUTPUT*) BBBbkBBBbkBBo @o V [%IAKHԀHI ֺKJIKJI JKՅAHljLMhoV MkԽ(122 CL:WRITE-CHAR 91 CL:REM 75 CL:CEILING 58 POSITION 51 FORMAT-ERROR 38 FORMAT-ERROR) NIL ( 116 #\Space 46 "Tab-to in pixel units not supported" 33 "Too many parameters") FORMAT-PRINC :D8 (L (2 PARMS 1 ATSIGN 0 COLON) F 5 *FORMAT-ARGUMENTS*) U#o B!H@o Uc BbjBBBbkBBBbjBBBboBo 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-PRIN1 :D8 (L (2 PARMS 1 ATSIGN 0 COLON) F 5 *FORMAT-ARGUMENTS*) U#o B!H@o Uc BbjBBBbkBBBbjBBBboBo 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-PRINT-CHARACTER :D8 (L (2 PARMS 1 ATSIGN 0 COLON) F 1 *FORMAT-ARGUMENTS*) XBo Q.o Ho @AH QcA@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-PRINT-NAMED-CHARACTER :D8 (L (1 LONGP 0 CHAR)) q@HllH!H :@ӹjI=Il7o l@@ZllJ  H (110 CL:WRITE-CHAR 103 WRITE-STRING* 98 CL:STRING-CAPITALIZE 93 CL:PRINC-TO-STRING 87 CL:WRITE-CHAR 61 CL:WRITE-CHAR 30 CL:CHAR-NAME) (69 CHARACTER 38 CHARACTER 5 CHARACTER) ( 56 #\^) FORMAT-ADD-COMMAS :D8 (L (2 COMMA-INTERVAL 1 COMMACHAR 0 STRING)) @ qHd@jo:@jo:lkB YgA HIKj @jo:@jo:J@jMjJJ@gLBվjNjNgLgKB_jOjOgK KBջLBkհ(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 jAoA B3 BjoB C3 jCoC DoD @ QHCAB E IHjJKD KkԻ@ @ IHjLMhD 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 6 *PRINT-RADIX* P 5 *PRINT-BASE*) DDDbjDDDboDDDboDDDblDo A@ @3 L j2C/BgoLJK goL BLJK LHkjIi (173 FORMAT-WRITE-FIELD 160 FORMAT-ADD-COMMAS 149 CL:CONCATENATE 131 CL:CONCATENATE 126 FORMAT-ADD-COMMAS 97 WRITE-STRING* 85 CL:PRINC-TO-STRING 71 FORMAT-ERROR) (138 STRING 113 STRING) ( 143 "+" 118 "+" 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 QHHIj'VI o Jdjo JjXJl [KLdk$WL Mj/o VM kWM 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 (0 N)) @j@o j@j@ @j@dd o j@ (61 FORMAT-PRINT-CARDINAL-AUX 53 WRITE-STRING* 41 \FZEROP 24 FORMAT-PRINT-CARDINAL-AUX 14 WRITE-STRING*) NIL ( 48 "zero" 9 "negative ") FORMAT-PRINT-CARDINAL-AUX :D8 (L (2 ERR 1 PERIOD 0 N) F 3 CARDINAL-PERIODS) @n !HHAl oB IjId IAkB Jj8JJ ,IjII 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 YIJdjJd HK JjKdjo Kl \LKl o MdkWN o j:M.NjHN