FORMATLISP-INTERNALS FORMATLISP-INTERNALS %"# $ ERRORLISP-INTERNALS! ERRORLISP-INTERNALS STRINGPARRAY  %SYMBOL-VALUESYMBOL MAKE-STRING-OUTPUT-STREAMLISP-INTERNALS GET-OUTPUT-STREAM-STRINGLISP-INTERNALS  FORMAT-MAINLISP-INTERNALS MAKE-FORMAT-ARGSLISP-INTERNALS  COPY-LISTLISP-INTERNALS MAKE-STRING-ITERATORLISP-INTERNALS STREAMPLISP-INTERNALS  CONS-RESTLISP-INTERNALS}&@h@@n@(j@&@ CD@@A@A $@"C(&C(AB$B@j@A @A%GjD@j@A @A@ C@A @h@A @AA@ B@A CD@@A#@AA@ B@A A@ B@A #Bad destination to FORMAT. Can't do strings yet *STANDARD-OUTPUT*LISP-INTERNALS PUT-GLOBAL-DECLARATIONNC QUOTE PRIMITIVES FORMAT-ARGS-REPLISP-INTERNALS QUOTE PRIMITIVES DEFSTRUCT-DESCRIPTORLISP-INTERNALS QUOTE PRIMITIVES FORMAT-ARGS-REPLISP-INTERNALS MAKE-FORMAT-ARGS-REPLISP-INTERNALS FORMAT-ARGS-REPLISP-INTERNALS POSITIONLISP-INTERNALS QUOTE PRIMITIVES  UNDEFINEDLISP-INTERNALS  ALL-ARGUMENTSLISP-INTERNALS QUOTE PRIMITIVES  UNDEFINEDLISP-INTERNALS  NEXT-ARGUMENTLISP-INTERNALS QUOTE PRIMITIVES  UNDEFINEDLISP-INTERNALS SETQ PRIMITIVES *GRODY-SETF-MACRO-TABLE*SETF CONSCONS QUOTE PRIMITIVES FORMAT-ARGS-REP-NEXT-ARGUMENTLISP-INTERNALS LAMBDA PRIMITIVES FORMAT-ARGS-REPLISP-INTERNALS LET* PRIMITIVES SINGLE-TEMPVARSSETF MAPCARLISP-INTERNALS FUNCTION PRIMITIVES LAMBDA PRIMITIVES IGNORE PRIMITIVES GENTEMPLISP-INTERNALS QUOTE PRIMITIVES FORMAT-ARGS-REPLISP-INTERNALS STOREVARSETF GENSYMLISP-INTERNALS TEMPVARSSETF SINGLE-TEMPVARSSETF VALUES PRIMITIVES TEMPVARSSETF LISTLISP-INTERNALS FORMAT-ARGS-REPLISP-INTERNALS LISTLISP-INTERNALS STOREVARSETF LET PRIMITIVES  ARRAY5830NIL STOREVARSETF FORMAT-ARGS-REPLISP-INTERNALS NTHLISP-INTERNALS TEMPVARSSETF  XR-BQ-LISTSYSTEM-INTERNALS QUOTE PRIMITIVES  STRUCTURE-SETLISP-INTERNALS QUOTE PRIMITIVES QUOTE PRIMITIVES FORMAT-ARGS-REPLISP-INTERNALS FORMAT-ARGS-REPLISP-INTERNALS  ARRAY5830NIL  XR-BQ-LIST*SYSTEM-INTERNALS QUOTE PRIMITIVES FORMAT-ARGS-REP-NEXT-ARGUMENTLISP-INTERNALS TEMPVARSSETF IFLISP BOUNDPSYMBOL QUOTE PRIMITIVES *GRODY-SETF-MACRO-TABLE*SETF *GRODY-SETF-MACRO-TABLE*SETF QUOTE PRIMITIVES FORMAT-ARGS-REP-NEXT-ARGUMENTLISP-INTERNALS FORMAT-ARGS-REP-NEXT-ARGUMENTLISP-INTERNALS  NAMED-LAMBDANC FORMAT-ARGS-REP-NEXT-ARGUMENTLISP-INTERNALS FORMAT-ARGS-REPLISP-INTERNALS  STRUCTURE-REFLISP-INTERNALS QUOTE PRIMITIVES FORMAT-ARGS-REPLISP-INTERNALS FORMAT-ARGS-REPLISP-INTERNALS FORMAT-ARGS-REP-NEXT-ARGUMENTLISP-INTERNALS  STRUCTURE-REFLISP-INTERNALSEp@!F FORMAT-ARGS-REPLISP-INTERNALS SETQ PRIMITIVES *GRODY-SETF-MACRO-TABLE*SETF CONSCONS QUOTE PRIMITIVES FORMAT-ARGS-REP-ALL-ARGUMENTSLISP-INTERNALS LAMBDA PRIMITIVES FORMAT-ARGS-REPLISP-INTERNALS LET* PRIMITIVES SINGLE-TEMPVARSSETF MAPCARLISP-INTERNALS FUNCTION PRIMITIVES LAMBDA PRIMITIVES IGNORE PRIMITIVES GENTEMPLISP-INTERNALS QUOTE PRIMITIVES FORMAT-ARGS-REPLISP-INTERNALS STOREVARSETF GENSYMLISP-INTERNALS TEMPVARSSETF SINGLE-TEMPVARSSETF VALUES PRIMITIVES TEMPVARSSETF LISTLISP-INTERNALS FORMAT-ARGS-REPLISP-INTERNALS LISTLISP-INTERNALS STOREVARSETF LET PRIMITIVES  ARRAY5829NIL STOREVARSETF FORMAT-ARGS-REPLISP-INTERNALS NTHLISP-INTERNALS TEMPVARSSETF  XR-BQ-LISTSYSTEM-INTERNALS QUOTE PRIMITIVES  STRUCTURE-SETLISP-INTERNALS QUOTE PRIMITIVES QUOTE PRIMITIVES FORMAT-ARGS-REPLISP-INTERNALS FORMAT-ARGS-REPLISP-INTERNALS  ARRAY5829NIL  XR-BQ-LIST*SYSTEM-INTERNALS QUOTE PRIMITIVES FORMAT-ARGS-REP-ALL-ARGUMENTSLISP-INTERNALS TEMPVARSSETF IFLISP BOUNDPSYMBOL QUOTE PRIMITIVES *GRODY-SETF-MACRO-TABLE*SETF *GRODY-SETF-MACRO-TABLE*SETF QUOTE PRIMITIVES FORMAT-ARGS-REP-ALL-ARGUMENTSLISP-INTERNALS FORMAT-ARGS-REP-ALL-ARGUMENTSLISP-INTERNALS  NAMED-LAMBDANC FORMAT-ARGS-REP-ALL-ARGUMENTSLISP-INTERNALS FORMAT-ARGS-REPLISP-INTERNALS  STRUCTURE-REFLISP-INTERNALS QUOTE PRIMITIVES FORMAT-ARGS-REPLISP-INTERNALS FORMAT-ARGS-REPLISP-INTERNALS FORMAT-ARGS-REP-ALL-ARGUMENTSLISP-INTERNALS  STRUCTURE-REFLISP-INTERNALSEf@!F FORMAT-ARGS-REPLISP-INTERNALS SETQ PRIMITIVES *GRODY-SETF-MACRO-TABLE*SETF CONSCONS QUOTE PRIMITIVES FORMAT-ARGS-REP-POSITIONLISP-INTERNALS LAMBDA PRIMITIVES FORMAT-ARGS-REPLISP-INTERNALS LET* PRIMITIVES SINGLE-TEMPVARSSETF MAPCARLISP-INTERNALS FUNCTION PRIMITIVES LAMBDA PRIMITIVES IGNORE PRIMITIVES GENTEMPLISP-INTERNALS QUOTE PRIMITIVES FORMAT-ARGS-REPLISP-INTERNALS STOREVARSETF GENSYMLISP-INTERNALS TEMPVARSSETF SINGLE-TEMPVARSSETF VALUES PRIMITIVES TEMPVARSSETF LISTLISP-INTERNALS FORMAT-ARGS-REPLISP-INTERNALS LISTLISP-INTERNALS STOREVARSETF LET PRIMITIVES  ARRAY5828NIL STOREVARSETF FORMAT-ARGS-REPLISP-INTERNALS NTHLISP-INTERNALS TEMPVARSSETF  XR-BQ-LISTSYSTEM-INTERNALS QUOTE PRIMITIVES  STRUCTURE-SETLISP-INTERNALS QUOTE PRIMITIVES QUOTE PRIMITIVES FORMAT-ARGS-REPLISP-INTERNALS FORMAT-ARGS-REPLISP-INTERNALS  ARRAY5828NIL  XR-BQ-LIST*SYSTEM-INTERNALS QUOTE PRIMITIVES FORMAT-ARGS-REP-POSITIONLISP-INTERNALS TEMPVARSSETF IFLISP BOUNDPSYMBOL QUOTE PRIMITIVES *GRODY-SETF-MACRO-TABLE*SETF *GRODY-SETF-MACRO-TABLE*SETF QUOTE PRIMITIVES FORMAT-ARGS-REP-POSITIONLISP-INTERNALS FORMAT-ARGS-REP-POSITIONLISP-INTERNALS  NAMED-LAMBDANC FORMAT-ARGS-REP-POSITIONLISP-INTERNALS FORMAT-ARGS-REPLISP-INTERNALS  STRUCTURE-REFLISP-INTERNALS QUOTE PRIMITIVES FORMAT-ARGS-REPLISP-INTERNALS FORMAT-ARGS-REPLISP-INTERNALS FORMAT-ARGS-REP-POSITIONLISP-INTERNALS  STRUCTURE-REFLISP-INTERNALSEb@!F FORMAT-ARGS-REPLISP-INTERNALS PUT-GLOBAL-DECLARATIONNC QUOTE PRIMITIVES FORMAT-ARGS-REPLISP-INTERNALS QUOTE PRIMITIVES  TYPE-EXPANDERLISP-INTERNALS FUNCTION PRIMITIVES LAMBDA PRIMITIVES QUOTE PRIMITIVES  SATISFIESLISP-INTERNALS FORMAT-ARGS-REP-PLISP-INTERNALS QUOTE PRIMITIVES FORMAT-ARGS-REPLISP-INTERNALS FORMAT-ARGS-REP-PLISP-INTERNALS  NAMED-LAMBDANC FORMAT-ARGS-REP-PLISP-INTERNALS THINGLISP-INTERNALS TYPEP-STRUCTURELISP-INTERNALS THINGLISP-INTERNALS QUOTE PRIMITIVES FORMAT-ARGS-REPLISP-INTERNALS FORMAT-ARGS-REP-PLISP-INTERNALS TYPEP-STRUCTURELISP-INTERNALS E@AF FORMAT-ARGS-REPLISP-INTERNALS COPY-FORMAT-ARGS-REPLISP-INTERNALS COPY-FORMAT-ARGS-REPLISP-INTERNALS COPY-STRUCTURE-OBJECTLISP-INTERNALS!G MAKE-FORMAT-ARGS-REPLISP-INTERNALS MAKE-FORMAT-ARGS-REPLISP-INTERNALS % STORE-CONTENTS-OFFSETCONS" STORE-CONTENTS-OFFSETCONS STORE-CONTENTS-OFFSETCONS STORE-CONTENTS-OFFSETCONS MAKE-STRUCTURELISP-INTERNALS MVBIND-3LISP-INTERNALS GET-KEYWORD-ARG-VALUESLISP-INTERNALS  CONS-RESTLISP-INTERNALS(@h@@n@(j@(@(A@k B' C`@%@b@#@B@@B@A @A&@B@@B@A @A$@B@@ B@A @A"@rC Ab@@@B Af@&B Ap@$B Ar@"B@A D FORMAT-ARGS-REPLISP-INTERNALS  UNDEFINEDLISP-INTERNALS KEYWORD-GARBAGELISP-INTERNALS  UNDEFINEDLISP-INTERNALS KEYWORD-GARBAGELISP-INTERNALS  UNDEFINEDLISP-INTERNALS KEYWORD-GARBAGELISP-INTERNALS POSITIONKEYWORD  ALL-ARGUMENTSKEYWORD  NEXT-ARGUMENTKEYWORD QUOTE PRIMITIVES FORMAT-ARGS-REPLISP-INTERNALS MAKE-FORMAT-ARGSLISP-INTERNALS MAKE-FORMAT-ARGSLISP-INTERNALS MAKE-FORMAT-ARGS-REPLISP-INTERNALSE`@@ @@! F  NEXT-ARGUMENTKEYWORD  ALL-ARGUMENTSKEYWORD POSITIONKEYWORD NEXT-FORMAT-ARGLISP-INTERNALS NEXT-FORMAT-ARGLISP-INTERNALS ERRORLISP-INTERNALS  STRUCTURE-SETLISP-INTERNALS CARCONS CDRCONS  STRUCTURE-REFLISP-INTERNALS  STRUCTURE-SETLISP-INTERNALS  STRUCTURE-REFLISP-INTERNALS  STRUCTURE-REFLISP-INTERNALSAp@ BD@@A@AAb@ B0E(xAb@ @(BAp@! B& C'CAp@ @$B@A"DEAFNo arguments left. FORMAT-ARGS-REPLISP-INTERNALS FORMAT-ARGS-REPLISP-INTERNALS FORMAT-ARGS-REPLISP-INTERNALS FORMAT-ARGS-REPLISP-INTERNALS FORMAT-ARGS-REPLISP-INTERNALS ANY-MORE-FORMAT-ARGS?LISP-INTERNALS ANY-MORE-FORMAT-ARGS?LISP-INTERNALS  STRUCTURE-REFLISP-INTERNALSAp@ BD@@A@AhDjD FORMAT-ARGS-REPLISP-INTERNALS NUMBER-OF-REMAINING-FORMAT-ARGSLISP-INTERNALS NUMBER-OF-REMAINING-FORMAT-ARGSLISP-INTERNALS LENGTHARRAY  STRUCTURE-REFLISP-INTERNALSAp@ B(AF FORMAT-ARGS-REPLISP-INTERNALS BACK-UP-ONE-FORMAT-ARGLISP-INTERNALS BACK-UP-ONE-FORMAT-ARGLISP-INTERNALS  STRUCTURE-SETLISP-INTERNALS NTHCDRLISP-INTERNALS  STRUCTURE-REFLISP-INTERNALS  STRUCTURE-REFLISP-INTERNALS  STRUCTURE-SETLISP-INTERNALS  STRUCTURE-REFLISP-INTERNALS ERRORLISP-INTERNALS  STRUCTURE-REFLISP-INTERNALSAb@ BEp@A @AEAFAb@ BE$xAb@ @$BAb@ B(Af@!BABEp@ @#F FORMAT-ARGS-REPLISP-INTERNALS FORMAT-ARGS-REPLISP-INTERNALS FORMAT-ARGS-REPLISP-INTERNALS FORMAT-ARGS-REPLISP-INTERNALS FORMAT-ARGS-REPLISP-INTERNALSCan't back up. FORMAT-ARGS-REPLISP-INTERNALS PUT-GLOBAL-DECLARATIONNC QUOTE PRIMITIVES STRING-ITERATOR-REPLISP-INTERNALS QUOTE PRIMITIVES DEFSTRUCT-DESCRIPTORLISP-INTERNALS QUOTE PRIMITIVES STRING-ITERATOR-REPLISP-INTERNALS MAKE-STRING-ITERATOR-REPLISP-INTERNALS STRING-ITERATOR-REPLISP-INTERNALS STRINGLISP-INTERNALS QUOTE PRIMITIVES  UNDEFINEDLISP-INTERNALS LENGTHARRAY QUOTE PRIMITIVES  UNDEFINEDLISP-INTERNALS INDEXLISP-INTERNALS QUOTE PRIMITIVES  UNDEFINEDLISP-INTERNALS MOST-RECENT-TWIDDLE-INDEXLISP-INTERNALS QUOTE PRIMITIVES  UNDEFINEDLISP-INTERNALS MOST-RECENT-OPEN-INDEXLISP-INTERNALS QUOTE PRIMITIVES  UNDEFINEDLISP-INTERNALS SETQ PRIMITIVES *GRODY-SETF-MACRO-TABLE*SETF CONSCONS QUOTE PRIMITIVES *STRING-ITERATOR-REP-MOST-RECENT-OPEN-INDEXLISP-INTERNALS LAMBDA PRIMITIVES STRING-ITERATOR-REPLISP-INTERNALS LET* PRIMITIVES SINGLE-TEMPVARSSETF MAPCARLISP-INTERNALS FUNCTION PRIMITIVES LAMBDA PRIMITIVES IGNORE PRIMITIVES GENTEMPLISP-INTERNALS QUOTE PRIMITIVES STRING-ITERATOR-REPLISP-INTERNALS STOREVARSETF GENSYMLISP-INTERNALS TEMPVARSSETF SINGLE-TEMPVARSSETF VALUES PRIMITIVES TEMPVARSSETF LISTLISP-INTERNALS STRING-ITERATOR-REPLISP-INTERNALS LISTLISP-INTERNALS STOREVARSETF LET PRIMITIVES G5849NIL STOREVARSETF STRING-ITERATOR-REPLISP-INTERNALS NTHLISP-INTERNALS TEMPVARSSETF  XR-BQ-LISTSYSTEM-INTERNALS QUOTE PRIMITIVES  STRUCTURE-SETLISP-INTERNALS QUOTE PRIMITIVES QUOTE PRIMITIVES STRING-ITERATOR-REPLISP-INTERNALS STRING-ITERATOR-REPLISP-INTERNALS G5849NIL  XR-BQ-LIST*SYSTEM-INTERNALS QUOTE PRIMITIVES *STRING-ITERATOR-REP-MOST-RECENT-OPEN-INDEXLISP-INTERNALS TEMPVARSSETF IFLISP BOUNDPSYMBOL QUOTE PRIMITIVES *GRODY-SETF-MACRO-TABLE*SETF *GRODY-SETF-MACRO-TABLE*SETF QUOTE PRIMITIVES *STRING-ITERATOR-REP-MOST-RECENT-OPEN-INDEXLISP-INTERNALS *STRING-ITERATOR-REP-MOST-RECENT-OPEN-INDEXLISP-INTERNALS  NAMED-LAMBDANC *STRING-ITERATOR-REP-MOST-RECENT-OPEN-INDEXLISP-INTERNALS STRING-ITERATOR-REPLISP-INTERNALS  STRUCTURE-REFLISP-INTERNALS QUOTE PRIMITIVES STRING-ITERATOR-REPLISP-INTERNALS STRING-ITERATOR-REPLISP-INTERNALS *STRING-ITERATOR-REP-MOST-RECENT-OPEN-INDEXLISP-INTERNALS  STRUCTURE-REFLISP-INTERNALSEt@!F STRING-ITERATOR-REPLISP-INTERNALS SETQ PRIMITIVES *GRODY-SETF-MACRO-TABLE*SETF CONSCONS QUOTE PRIMITIVES -STRING-ITERATOR-REP-MOST-RECENT-TWIDDLE-INDEXLISP-INTERNALS LAMBDA PRIMITIVES STRING-ITERATOR-REPLISP-INTERNALS LET* PRIMITIVES SINGLE-TEMPVARSSETF MAPCARLISP-INTERNALS FUNCTION PRIMITIVES LAMBDA PRIMITIVES IGNORE PRIMITIVES GENTEMPLISP-INTERNALS QUOTE PRIMITIVES STRING-ITERATOR-REPLISP-INTERNALS STOREVARSETF GENSYMLISP-INTERNALS TEMPVARSSETF SINGLE-TEMPVARSSETF VALUES PRIMITIVES TEMPVARSSETF LISTLISP-INTERNALS STRING-ITERATOR-REPLISP-INTERNALS LISTLISP-INTERNALS STOREVARSETF LET PRIMITIVES G5848NIL STOREVARSETF STRING-ITERATOR-REPLISP-INTERNALS NTHLISP-INTERNALS TEMPVARSSETF  XR-BQ-LISTSYSTEM-INTERNALS QUOTE PRIMITIVES  STRUCTURE-SETLISP-INTERNALS QUOTE PRIMITIVES QUOTE PRIMITIVES STRING-ITERATOR-REPLISP-INTERNALS STRING-ITERATOR-REPLISP-INTERNALS G5848NIL  XR-BQ-LIST*SYSTEM-INTERNALS QUOTE PRIMITIVES -STRING-ITERATOR-REP-MOST-RECENT-TWIDDLE-INDEXLISP-INTERNALS TEMPVARSSETF IFLISP BOUNDPSYMBOL QUOTE PRIMITIVES *GRODY-SETF-MACRO-TABLE*SETF *GRODY-SETF-MACRO-TABLE*SETF QUOTE PRIMITIVES -STRING-ITERATOR-REP-MOST-RECENT-TWIDDLE-INDEXLISP-INTERNALS -STRING-ITERATOR-REP-MOST-RECENT-TWIDDLE-INDEXLISP-INTERNALS  NAMED-LAMBDANC -STRING-ITERATOR-REP-MOST-RECENT-TWIDDLE-INDEXLISP-INTERNALS STRING-ITERATOR-REPLISP-INTERNALS  STRUCTURE-REFLISP-INTERNALS QUOTE PRIMITIVES STRING-ITERATOR-REPLISP-INTERNALS STRING-ITERATOR-REPLISP-INTERNALS -STRING-ITERATOR-REP-MOST-RECENT-TWIDDLE-INDEXLISP-INTERNALS  STRUCTURE-REFLISP-INTERNALSEr@!F STRING-ITERATOR-REPLISP-INTERNALS SETQ PRIMITIVES *GRODY-SETF-MACRO-TABLE*SETF CONSCONS QUOTE PRIMITIVES STRING-ITERATOR-REP-INDEXLISP-INTERNALS LAMBDA PRIMITIVES STRING-ITERATOR-REPLISP-INTERNALS LET* PRIMITIVES SINGLE-TEMPVARSSETF MAPCARLISP-INTERNALS FUNCTION PRIMITIVES LAMBDA PRIMITIVES IGNORE PRIMITIVES GENTEMPLISP-INTERNALS QUOTE PRIMITIVES STRING-ITERATOR-REPLISP-INTERNALS STOREVARSETF GENSYMLISP-INTERNALS TEMPVARSSETF SINGLE-TEMPVARSSETF VALUES PRIMITIVES TEMPVARSSETF LISTLISP-INTERNALS STRING-ITERATOR-REPLISP-INTERNALS LISTLISP-INTERNALS STOREVARSETF LET PRIMITIVES G5847NIL STOREVARSETF STRING-ITERATOR-REPLISP-INTERNALS NTHLISP-INTERNALS TEMPVARSSETF  XR-BQ-LISTSYSTEM-INTERNALS QUOTE PRIMITIVES  STRUCTURE-SETLISP-INTERNALS QUOTE PRIMITIVES QUOTE PRIMITIVES STRING-ITERATOR-REPLISP-INTERNALS STRING-ITERATOR-REPLISP-INTERNALS G5847NIL  XR-BQ-LIST*SYSTEM-INTERNALS QUOTE PRIMITIVES STRING-ITERATOR-REP-INDEXLISP-INTERNALS TEMPVARSSETF IFLISP BOUNDPSYMBOL QUOTE PRIMITIVES *GRODY-SETF-MACRO-TABLE*SETF *GRODY-SETF-MACRO-TABLE*SETF QUOTE PRIMITIVES STRING-ITERATOR-REP-INDEXLISP-INTERNALS STRING-ITERATOR-REP-INDEXLISP-INTERNALS  NAMED-LAMBDANC STRING-ITERATOR-REP-INDEXLISP-INTERNALS STRING-ITERATOR-REPLISP-INTERNALS  STRUCTURE-REFLISP-INTERNALS QUOTE PRIMITIVES STRING-ITERATOR-REPLISP-INTERNALS STRING-ITERATOR-REPLISP-INTERNALS STRING-ITERATOR-REP-INDEXLISP-INTERNALS  STRUCTURE-REFLISP-INTERNALSEp@!F STRING-ITERATOR-REPLISP-INTERNALS SETQ PRIMITIVES *GRODY-SETF-MACRO-TABLE*SETF CONSCONS QUOTE PRIMITIVES STRING-ITERATOR-REP-LENGTHLISP-INTERNALS LAMBDA PRIMITIVES STRING-ITERATOR-REPLISP-INTERNALS LET* PRIMITIVES SINGLE-TEMPVARSSETF MAPCARLISP-INTERNALS FUNCTION PRIMITIVES LAMBDA PRIMITIVES IGNORE PRIMITIVES GENTEMPLISP-INTERNALS QUOTE PRIMITIVES STRING-ITERATOR-REPLISP-INTERNALS STOREVARSETF GENSYMLISP-INTERNALS TEMPVARSSETF SINGLE-TEMPVARSSETF VALUES PRIMITIVES TEMPVARSSETF LISTLISP-INTERNALS STRING-ITERATOR-REPLISP-INTERNALS LISTLISP-INTERNALS STOREVARSETF LET PRIMITIVES G5846NIL STOREVARSETF STRING-ITERATOR-REPLISP-INTERNALS NTHLISP-INTERNALS TEMPVARSSETF  XR-BQ-LISTSYSTEM-INTERNALS QUOTE PRIMITIVES  STRUCTURE-SETLISP-INTERNALS QUOTE PRIMITIVES QUOTE PRIMITIVES STRING-ITERATOR-REPLISP-INTERNALS STRING-ITERATOR-REPLISP-INTERNALS G5846NIL  XR-BQ-LIST*SYSTEM-INTERNALS QUOTE PRIMITIVES STRING-ITERATOR-REP-LENGTHLISP-INTERNALS TEMPVARSSETF IFLISP BOUNDPSYMBOL QUOTE PRIMITIVES *GRODY-SETF-MACRO-TABLE*SETF *GRODY-SETF-MACRO-TABLE*SETF QUOTE PRIMITIVES STRING-ITERATOR-REP-LENGTHLISP-INTERNALS STRING-ITERATOR-REP-LENGTHLISP-INTERNALS  NAMED-LAMBDANC STRING-ITERATOR-REP-LENGTHLISP-INTERNALS STRING-ITERATOR-REPLISP-INTERNALS  STRUCTURE-REFLISP-INTERNALS QUOTE PRIMITIVES STRING-ITERATOR-REPLISP-INTERNALS STRING-ITERATOR-REPLISP-INTERNALS STRING-ITERATOR-REP-LENGTHLISP-INTERNALS  STRUCTURE-REFLISP-INTERNALSEf@!F STRING-ITERATOR-REPLISP-INTERNALS SETQ PRIMITIVES *GRODY-SETF-MACRO-TABLE*SETF CONSCONS QUOTE PRIMITIVES STRING-ITERATOR-REP-STRINGLISP-INTERNALS LAMBDA PRIMITIVES STRING-ITERATOR-REPLISP-INTERNALS LET* PRIMITIVES SINGLE-TEMPVARSSETF MAPCARLISP-INTERNALS FUNCTION PRIMITIVES LAMBDA PRIMITIVES IGNORE PRIMITIVES GENTEMPLISP-INTERNALS QUOTE PRIMITIVES STRING-ITERATOR-REPLISP-INTERNALS STOREVARSETF GENSYMLISP-INTERNALS TEMPVARSSETF SINGLE-TEMPVARSSETF VALUES PRIMITIVES TEMPVARSSETF LISTLISP-INTERNALS STRING-ITERATOR-REPLISP-INTERNALS LISTLISP-INTERNALS STOREVARSETF LET PRIMITIVES G5845NIL STOREVARSETF STRING-ITERATOR-REPLISP-INTERNALS NTHLISP-INTERNALS TEMPVARSSETF  XR-BQ-LISTSYSTEM-INTERNALS QUOTE PRIMITIVES  STRUCTURE-SETLISP-INTERNALS QUOTE PRIMITIVES QUOTE PRIMITIVES STRING-ITERATOR-REPLISP-INTERNALS STRING-ITERATOR-REPLISP-INTERNALS G5845NIL  XR-BQ-LIST*SYSTEM-INTERNALS QUOTE PRIMITIVES STRING-ITERATOR-REP-STRINGLISP-INTERNALS TEMPVARSSETF IFLISP BOUNDPSYMBOL QUOTE PRIMITIVES *GRODY-SETF-MACRO-TABLE*SETF *GRODY-SETF-MACRO-TABLE*SETF QUOTE PRIMITIVES STRING-ITERATOR-REP-STRINGLISP-INTERNALS STRING-ITERATOR-REP-STRINGLISP-INTERNALS  NAMED-LAMBDANC STRING-ITERATOR-REP-STRINGLISP-INTERNALS STRING-ITERATOR-REPLISP-INTERNALS  STRUCTURE-REFLISP-INTERNALS QUOTE PRIMITIVES STRING-ITERATOR-REPLISP-INTERNALS STRING-ITERATOR-REPLISP-INTERNALS STRING-ITERATOR-REP-STRINGLISP-INTERNALS  STRUCTURE-REFLISP-INTERNALSEb@!F STRING-ITERATOR-REPLISP-INTERNALS PUT-GLOBAL-DECLARATIONNC QUOTE PRIMITIVES STRING-ITERATOR-REPLISP-INTERNALS QUOTE PRIMITIVES  TYPE-EXPANDERLISP-INTERNALS FUNCTION PRIMITIVES LAMBDA PRIMITIVES QUOTE PRIMITIVES  SATISFIESLISP-INTERNALS STRING-ITERATOR-REP-PLISP-INTERNALS QUOTE PRIMITIVES STRING-ITERATOR-REPLISP-INTERNALS STRING-ITERATOR-REP-PLISP-INTERNALS  NAMED-LAMBDANC STRING-ITERATOR-REP-PLISP-INTERNALS THINGLISP-INTERNALS TYPEP-STRUCTURELISP-INTERNALS THINGLISP-INTERNALS QUOTE PRIMITIVES STRING-ITERATOR-REPLISP-INTERNALS STRING-ITERATOR-REP-PLISP-INTERNALS TYPEP-STRUCTURELISP-INTERNALS E@AF STRING-ITERATOR-REPLISP-INTERNALS COPY-STRING-ITERATOR-REPLISP-INTERNALS COPY-STRING-ITERATOR-REPLISP-INTERNALS COPY-STRUCTURE-OBJECTLISP-INTERNALS!G MAKE-STRING-ITERATOR-REPLISP-INTERNALS MAKE-STRING-ITERATOR-REPLISP-INTERNALS"$ 7 STORE-CONTENTS-OFFSETCONS4 STORE-CONTENTS-OFFSETCONS1 STORE-CONTENTS-OFFSETCONS. STORE-CONTENTS-OFFSETCONS+ STORE-CONTENTS-OFFSETCONS( STORE-CONTENTS-OFFSETCONS$ MAKE-STRUCTURELISP-INTERNALS MVBIND-5LISP-INTERNALS GET-KEYWORD-ARG-VALUESLISP-INTERNALS  CONS-RESTLISP-INTERNALS:@h@@n@(j@,@,A@k B+ C`@)@b@'@d@%@f@#@B@@,B@A @A*@B@@$B@A @A(@B@@B@A @A&@B@@B@A @A$@B@@ B@A $@A"@vC Ab@@@B Af@*B Ap@(B Ar@&B At@$B Av@"B@A D ' STRING-ITERATOR-REPLISP-INTERNALS#  UNDEFINEDLISP-INTERNALS KEYWORD-GARBAGELISP-INTERNALS  UNDEFINEDLISP-INTERNALS KEYWORD-GARBAGELISP-INTERNALS  UNDEFINEDLISP-INTERNALS KEYWORD-GARBAGELISP-INTERNALS  UNDEFINEDLISP-INTERNALS KEYWORD-GARBAGELISP-INTERNALS  UNDEFINEDLISP-INTERNALS KEYWORD-GARBAGELISP-INTERNALS STRINGKEYWORD LENGTHKEYWORD INDEXKEYWORD MOST-RECENT-TWIDDLE-INDEXKEYWORD MOST-RECENT-OPEN-INDEXKEYWORD QUOTE PRIMITIVES STRING-ITERATOR-REPLISP-INTERNALS MAKE-STRING-ITERATORLISP-INTERNALS MAKE-STRING-ITERATORLISP-INTERNALS MAKE-STRING-ITERATOR-REPLISP-INTERNALS LENGTHARRAY !C(@ @@@` @ @j@@kF MOST-RECENT-OPEN-INDEXKEYWORD MOST-RECENT-TWIDDLE-INDEXKEYWORD INDEXKEYWORD LENGTHKEYWORD STRINGKEYWORD NEXT-CHARACTERLISP-INTERNALS NEXT-CHARACTERLISP-INTERNALS   STRUCTURE-SETLISP-INTERNALS  STRUCTURE-REFLISP-INTERNALS SVREFARRAY  STRUCTURE-REFLISP-INTERNALS  FORMAT-ERRORLISP-INTERNALS  STRUCTURE-REFLISP-INTERNALS  STRUCTURE-REFLISP-INTERNALSAp@! BAf@ B@D0@A @A E@AFAb@ B(& BAp@ B0E"xAp@ @"B@A$D STRING-ITERATOR-REPLISP-INTERNALS STRING-ITERATOR-REPLISP-INTERNALS STRING-ITERATOR-REPLISP-INTERNALS  Unexpected end of format string. STRING-ITERATOR-REPLISP-INTERNALS STRING-ITERATOR-REPLISP-INTERNALS PEEK-CHARACTERLISP-INTERNALS PEEK-CHARACTERLISP-INTERNALS  SVREFARRAY  STRUCTURE-REFLISP-INTERNALS  FORMAT-ERRORLISP-INTERNALS  STRUCTURE-REFLISP-INTERNALS  STRUCTURE-REFLISP-INTERNALSAp@!BAf@ B@ D0@A @A E@AFAb@ B(#F STRING-ITERATOR-REPLISP-INTERNALS  Unexpected end of format string. STRING-ITERATOR-REPLISP-INTERNALS STRING-ITERATOR-REPLISP-INTERNALS MORE-CHARACTERS?LISP-INTERNALS MORE-CHARACTERS?LISP-INTERNALS   STRUCTURE-REFLISP-INTERNALS  STRUCTURE-REFLISP-INTERNALS Ap@!BAf@ B@ D0@A @AhDjD STRING-ITERATOR-REPLISP-INTERNALS STRING-ITERATOR-REPLISP-INTERNALS GRAB-CURRENT-INDEXLISP-INTERNALS GRAB-CURRENT-INDEXLISP-INTERNALS  STRUCTURE-REFLISP-INTERNALSEp@!F STRING-ITERATOR-REPLISP-INTERNALS SET-CURRENT-INDEXLISP-INTERNALS SET-CURRENT-INDEXLISP-INTERNALS  STRUCTURE-SETLISP-INTERNALSEp@ @#F STRING-ITERATOR-REPLISP-INTERNALS NOTE-MOST-RECENT-TWIDDLE-INDEXLISP-INTERNALS NOTE-MOST-RECENT-TWIDDLE-INDEXLISP-INTERNALS  STRUCTURE-SETLISP-INTERNALS  STRUCTURE-REFLISP-INTERNALSAp@ BE"xEr@ @#F STRING-ITERATOR-REPLISP-INTERNALS STRING-ITERATOR-REPLISP-INTERNALS GET-MOST-RECENT-TWIDDLE-INDEXLISP-INTERNALS GET-MOST-RECENT-TWIDDLE-INDEXLISP-INTERNALS  STRUCTURE-REFLISP-INTERNALSEr@!F STRING-ITERATOR-REPLISP-INTERNALS NOTE-MOST-RECENT-OPEN-INDEXLISP-INTERNALS NOTE-MOST-RECENT-OPEN-INDEXLISP-INTERNALS  STRUCTURE-SETLISP-INTERNALS  STRUCTURE-REFLISP-INTERNALSAp@ BE"xEt@ @#F STRING-ITERATOR-REPLISP-INTERNALS STRING-ITERATOR-REPLISP-INTERNALS GET-MOST-RECENT-OPEN-INDEXLISP-INTERNALS GET-MOST-RECENT-OPEN-INDEXLISP-INTERNALS  STRUCTURE-REFLISP-INTERNALSEt@!F STRING-ITERATOR-REPLISP-INTERNALS GET-ENTIRE-FORMAT-STRINGLISP-INTERNALS GET-ENTIRE-FORMAT-STRINGLISP-INTERNALS  STRUCTURE-REFLISP-INTERNALSEb@!F STRING-ITERATOR-REPLISP-INTERNALS  FORMAT-MAINLISP-INTERNALS  FORMAT-MAINLISP-INTERNALS  WRITE-CHARLISP-INTERNALS  FORMAT-MAINLISP-INTERNALS FUNCALL-INTERNALLISP-INTERNALS LOOKUP-FORMAT-DISPATCHLISP-INTERNALS MVBIND-4LISP-INTERNALS PARSE-AFTER-TWIDDLELISP-INTERNALS NEXT-CHARACTERLISP-INTERNALS MORE-CHARACTERS?LISP-INTERNALS CD@@A@A! C~TB@@3@/,*-&$' !0W COERCE-VECTOR-OR-LIST-TO-STRINGLISP-INTERNALSV NREVERSELISP-INTERNALSU NREVERSELISP-INTERNALSS REQUIRE-CAN-FOLLOWLISP-INTERNALSN REQUIRE-CAN-FOLLOWLISP-INTERNALSE REQUIRE-CAN-FOLLOWLISP-INTERNALS= CONSCONS8  MEMBER-EQLLISP-INTERNALS5 REQUIRE-CAN-FOLLOWLISP-INTERNALS.  PLUCK-INTEGERLISP-INTERNALS+ NEXT-CHARACTERLISP-INTERNALS% NUMBER-OF-REMAINING-FORMAT-ARGSLISP-INTERNALS NEXT-FORMAT-ARGLISP-INTERNALS CONSCONS REQUIRE-CAN-FOLLOWLISP-INTERNALS FIND-EQLLISP-INTERNALS CONSCONS  CHAR-UPCASELISP-INTERNALS NEXT-CHARACTERLISP-INTERNALS NOTE-MOST-RECENT-TWIDDLE-INDEXLISP-INTERNALS^ Cj8@j6@j4@j2@j0@.@ C(@ B,A0 B,A@@BD@@A0@AA.B$@@A@Aj*@*A7 B.@@A VTB@@4B@A !@A# C@A #TB@@4B@A '@A# C@A 'TB@@4B@A -@A! C@A ,A! B@A ,TB@@4B@A @@AA.B.A@@BD@@A>@AjA7 B.@@A :TB@@4B@A I@AA.Bh4@.@@A @TB@@4B@A R@AA.Bh2@.@@A A.B,8@6 C0C(A B`@(@a@4@c@2@e@&@g@8D R  DIRECTIVEKEYWORDP AT-SIGNKEYWORDM AT-SIGNKEYWORDG COLONKEYWORDD COLONKEYWORD> COMMAKEYWORD7 TWIDDLEKEYWORD COMMAKEYWORD4 COMMAKEYWORD ARGUMENTKEYWORD ARGUMENTKEYWORD +-0123456789V#' TWIDDLEKEYWORD REQUIRE-CAN-FOLLOWLISP-INTERNALS REQUIRE-CAN-FOLLOWLISP-INTERNALS %$"%   ERRORLISP-INTERNALS  MEMBER-EQLLISP-INTERNALS&@AB@@ B@A  @A@ BD@@A @AjDEAFB@@ B@A @A@@A B@@ B@A @A@@A B@@ B@A @A@@A B@@ B@A %@A@@A j@ #  DIRECTIVEKEYWORD AT-SIGNKEYWORD AT-SIGNKEYWORD  DIRECTIVEKEYWORD COLONKEYWORD ARGUMENTKEYWORD COMMAKEYWORD COMMAKEYWORD COMMAKEYWORD COLONKEYWORD AT-SIGNKEYWORD  DIRECTIVEKEYWORD ARGUMENTKEYWORD Bad parameter syntax. ARGUMENTKEYWORD COMMAKEYWORD COLONKEYWORD AT-SIGNKEYWORD  DIRECTIVEKEYWORD TWIDDLEKEYWORD  PLUCK-INTEGERLISP-INTERNALS  PLUCK-INTEGERLISP-INTERNALS    PARSE-INTEGERLISP-INTERNALS COERCE-VECTOR-OR-LIST-TO-STRINGLISP-INTERNALS NREVERSELISP-INTERNALS ERRORLISP-INTERNALS FIND-EQLLISP-INTERNALS CONSCONS NEXT-CHARACTERLISP-INTERNALS  DIGIT-CHAR-PLISP-INTERNALS PEEK-CHARACTERLISP-INTERNALS LISTLISP-INTERNALS! C" C$CD@@A @A"C$A' B@A $A@@BD@@A@AA@B@A &C(@B(AF"Bad syntax after numeric argument. +-Vv#'  SCAN-A-CHUNKLISP-INTERNALS  SCAN-A-CHUNKLISP-INTERNALS[QNKHEDCE?>@:9;5460/1+*,&%'! "FF YZ  WRITE-CHARLISP-INTERNALST GET-OUTPUT-STREAM-STRINGLISP-INTERNALS  WRITE-STRINGLISP-INTERNALS  WRITE-CHARLISP-INTERNALS MVBIND-5LISP-INTERNALS PARSE-AFTER-TWIDDLELISP-INTERNALS NEXT-CHARACTERLISP-INTERNALS MAKE-STRING-OUTPUT-STREAMLISP-INTERNALS\@Cj6@j4@`2@`0@`.@`,@# C~TB@@,B@A Y@A"Aj@h B( Cf@'@@$ @AF@A;TB@@$B@A @AF@A ~TA8B&A8B(TB@@$B@A "@A0I22x )TB@@$B@A '@AI22x [TB@@$B@A ,@A0A00x ]TB@@$B@A 1@AA00x {TB@@$B@A 6@A09..x }TB@@$B@A ;@A9..x <TB@@$B@A @@A01,,x >TB@@$B@A E@A1,,x @A H2p@A @A@0p@A @A8.p@A @A0,p@A @A(6@&4@8 C`@6@a@4@c@$D*A8B@A MAXIMUM-PREFIX-ARGUMENTSLISP-INTERNALS MAXIMUM-PREFIX-ARGUMENTSLISP-INTERNALS  FORMAT-ERRORLISP-INTERNALS LENGTHARRAY"C@!0@A@A$E@!FjDAMore than ~S prefix parameters supplied to this format directive.  FORBID-ATSIGNLISP-INTERNALS  FORBID-ATSIGNLISP-INTERNALS  FORMAT-ERRORLISP-INTERNALS @@A@A"E@AFjD5A @ modifier is not allowed in this format directive.  FORBID-COLONLISP-INTERNALS  FORBID-COLONLISP-INTERNALS  FORMAT-ERRORLISP-INTERNALS @@A@A"E@AFjD5A : modifier is not allowed in this format directive.  FORBID-BOTHLISP-INTERNALS  FORBID-BOTHLISP-INTERNALS    FORMAT-ERRORLISP-INTERNALS  @@A @A"@@A @A$E@AFjD6A :@ modifier is not allowed in this format directive. FORMAT-ALISP-INTERNALS FORMAT-ALISP-INTERNALS4 2 / *)('&()* + -- , PRINCLISP-INTERNALS% PADLISP-INTERNALS PRINC-TO-STRINGLISP-INTERNALS FOURTHLISP-INTERNALS THIRDLISP-INTERNALS SECONDLISP-INTERNALS FIRSTLISP-INTERNALS NEXT-FORMAT-ARGLISP-INTERNALS MAXIMUM-PREFIX-ARGUMENTSLISP-INTERNALS5rA"@*B! C6@@A -@A$@@A -@A6@"@@A+@A" C4@@A*@A# C2@@A)@A" C0@@A(@A# C.@@A&@A6 C,E&@(@4@2@0 @/ F T.@@A `0@ b2@ `4@ 6E)F6@@A  @A$@@A @A6@ @A 3() nil FORMAT-SLISP-INTERNALS FORMAT-SLISP-INTERNALS - )('&%'() * ,, , PRIN1-TO-STRINGLISP-INTERNALS+ PRINCLISP-INTERNALS$ PADLISP-INTERNALS FOURTHLISP-INTERNALS THIRDLISP-INTERNALS SECONDLISP-INTERNALS FIRSTLISP-INTERNALS NEXT-FORMAT-ARGLISP-INTERNALS MAXIMUM-PREFIX-ARGUMENTSLISP-INTERNALS.rA"@*B! C6@@A ,@A$@@A,@A4@"@@A*@A# C2@@A)@A" C0@@A(@A# C.@@A'@A" C,@@A%@A4E&@(@2@0@. @- F T,@@A `.@ b0@ `2@ 4E)F6 C @A  () PADLISP-INTERNALS PADLISP-INTERNALS   PRINCLISP-INTERNALS PRINCLISP-INTERNALS PRINCLISP-INTERNALS PRINCLISP-INTERNALS MAKE-STRING-WITH-INITLISP-INTERNALS MAX-2LISP-INTERNALS MULTIPLY-GENERICNEW-MATH CEILING PRIMITIVES MAX-2LISP-INTERNALS LENGTHARRAY C@4ya B2A)B()B(* B0A- B"@@A@A.A$B E%F A$B.E%F INTEGER-TO-STRINGLISP-INTERNALS INTEGER-TO-STRINGLISP-INTERNALS -)+$',#%"$%  * CONSCONS$ COERCE-VECTOR-OR-LIST-TO-STRINGLISP-INTERNALS CONSCONS  DIGIT-CHARLISP-INTERNALS MVBIND-2LISP-INTERNALS FLOOR PRIMITIVES CONSCONS MOD PRIMITIVES ABSLISP-INTERNALS.j2@`0@! C$@@A@A@D`0@A@A0ApBpa0@A @A$A3 B.A# B/ C`@+@*A" B(A3 B0A00x@<`0@A@A@A &@@A %@A p@A$@A%@A 3G p@A,@A-T,@,A3 B$@A +T,@)@A FORMAT-INTEGERLISP-INTERNALS FORMAT-INTEGERLISP-INTERNALS UNBIND-1LISP-INTERNALS PRINC-TO-STRINGLISP-INTERNALS BINDLISP-INTERNALS PADLISP-INTERNALS INTEGER-TO-STRINGLISP-INTERNALS INTEGERPVINCULUM CD@@A@A A"@(@+ B.Eh@,@$@b@` @' FA"B! C@C@A   *PRINT-BASE*LISP-INTERNALS FORMAT-DLISP-INTERNALS FORMAT-DLISP-INTERNALS     FORMAT-INTEGERLISP-INTERNALS THIRDLISP-INTERNALS SECONDLISP-INTERNALS FIRSTLISP-INTERNALS NEXT-FORMAT-ARGLISP-INTERNALS MAXIMUM-PREFIX-ARGUMENTSLISP-INTERNALS!pA"@*B! C" C0@@A @A# C.@@A@A" C,@@A@A@A$@@A@A2@~@0@.@,@& @) Fj,@ ,T,@@A T.@ @A `0@ FORMAT-BLISP-INTERNALS FORMAT-BLISP-INTERNALS     FORMAT-INTEGERLISP-INTERNALS THIRDLISP-INTERNALS SECONDLISP-INTERNALS FIRSTLISP-INTERNALS NEXT-FORMAT-ARGLISP-INTERNALS MAXIMUM-PREFIX-ARGUMENTSLISP-INTERNALS!pA"@*B! C" C0@@A @A# C.@@A@A" C,@@A@A@A$@@A@A2@f@0@.@,@& @) Fj,@ ,T,@@A T.@ @A `0@ FORMAT-OLISP-INTERNALS FORMAT-OLISP-INTERNALS     FORMAT-INTEGERLISP-INTERNALS THIRDLISP-INTERNALS SECONDLISP-INTERNALS FIRSTLISP-INTERNALS NEXT-FORMAT-ARGLISP-INTERNALS MAXIMUM-PREFIX-ARGUMENTSLISP-INTERNALS!pA"@*B! C" C0@@A @A# C.@@A@A" C,@@A@A@A$@@A@A2@z@0@.@,@& @) Fj,@ ,T,@@A T.@ @A `0@ FORMAT-XLISP-INTERNALS FORMAT-XLISP-INTERNALS     FORMAT-INTEGERLISP-INTERNALS THIRDLISP-INTERNALS SECONDLISP-INTERNALS FIRSTLISP-INTERNALS NEXT-FORMAT-ARGLISP-INTERNALS MAXIMUM-PREFIX-ARGUMENTSLISP-INTERNALS!pA"@*B! C" C0@@A @A# C.@@A@A" C,@@A@A@A$@@A@A2@@0@.@,@& @) Fj,@ ,T,@@A T.@ @A `0@ FORMAT-RLISP-INTERNALS FORMAT-RLISP-INTERNALS 47/2*-'-$ #! " $% 8 PRINT-CARDINAL-NUMBERLISP-INTERNALS6 PRINT-ORDINAL-NUMBERLISP-INTERNALS1 PRINT-ROMAN-NUMERALLISP-INTERNALS, PRINT-OLD-ROMAN-NUMERALLISP-INTERNALS FORMAT-INTEGERLISP-INTERNALS FOURTHLISP-INTERNALS THIRDLISP-INTERNALS SECONDLISP-INTERNALS FIRSTLISP-INTERNALS NEXT-FORMAT-ARGLISP-INTERNALS MAXIMUM-PREFIX-ARGUMENTSLISP-INTERNALS9rA"@*B C"@@A%@A# C" C0@@A$@A# C.@@A"@A" C,@@A @A@A$@@A@A4@2@0@.@,@& @) Fj,@ ,T,@@A T.@@A `0@ $@@A-@A&@@A-@A4E)F&@@A2@A4E)F$@@A7@A4E)F4E)F PRINT-ROMAN-NUMERALLISP-INTERNALS PRINT-ROMAN-NUMERALLISP-INTERNALS ROMAN-NUMERAL-LOOPLISP-INTERNALS E`@j@#F PRINT-OLD-ROMAN-NUMERALLISP-INTERNALS PRINT-OLD-ROMAN-NUMERALLISP-INTERNALS ROMAN-NUMERAL-LOOPLISP-INTERNALS E`@h@#F ROMAN-NUMERAL-LOOPLISP-INTERNALS ROMAN-NUMERAL-LOOPLISP-INTERNALSE?AC=79;2>+0(0#&!!   D PRINT-ROMAN-I-CHARLISP-INTERNALS< PRINT-ROMAN-I-CHARLISP-INTERNALS4 PRINT-ROMAN-V-CHARLISP-INTERNALS/ PRINT-ROMAN-V-CHARLISP-INTERNALS- PRINT-ROMAN-I-CHARLISP-INTERNALS% PRINT-ROMAN-V-CHARLISP-INTERNALS PRINT-ROMAN-I-CHARLISP-INTERNALS PRINT-ROMAN-I-CHARLISP-INTERNALS ROMAN-NUMERAL-LOOPLISP-INTERNALS  WRITE-CHARLISP-INTERNALS MVBIND-2LISP-INTERNALS FLOOR PRIMITIVESF@|0@A@A A~ B0 C`@!@@ b0@A@A`.@@<00@A@AMTA&B 09..x @A 0 "y0@$@&B@A p|0@A !@A$@@A !@A"A&B0 "}'Fpt0@A &@A"E'Fpr0@A 0@A$@@A 0@A"A&B"E'F@t0@A>@A"A&B@t,x`*@@,,0@A;@AjD"A&B70)**x `(@@$ 0@AC@AjD"A&B?0!((x PRINT-ROMAN-I-CHARLISP-INTERNALS PRINT-ROMAN-I-CHARLISP-INTERNALS  WRITE-CHARLISP-INTERNALS SVREFARRAYA B(#FIXCM PRINT-ROMAN-V-CHARLISP-INTERNALS PRINT-ROMAN-V-CHARLISP-INTERNALS  WRITE-CHARLISP-INTERNALS SVREFARRAYA B(#FVLD FORMAT-PLISP-INTERNALS FORMAT-PLISP-INTERNALS !  !  WRITE-STRINGLISP-INTERNALS NEXT-FORMAT-ARGLISP-INTERNALS BACK-UP-ONE-FORMAT-ARGLISP-INTERNALS MAXIMUM-PREFIX-ARGUMENTSLISP-INTERNALS"`A"@*B$@@A@A C! C@