bound_lisp_library_.bind 07/06/83 0938.1r w 06/30/83 0829.6 14220 /* Bindfile for bound_lisp_library_ This segment contains lisp programs which are loaded into the environment when required. 74.05.10 DAM */ /* Modified 10/30/82 by Richard Lamson to add lots of things, and remove compile_lisp_(error_table subr_tv) */ Objectname: bound_lisp_library_; Addname: lisp_trace_, /* debugging aid */ lisp_editor_, /* S-expression editor */ lisp_gfn_, /* S-expression formatter */ lisp_gfile_, /* S-exp formatter for files */ lisp_backquote_, /* Backquote macro package */ lisp_defstruct_, /* Structure definition facility */ lisp_defun_, /* LispM-compatible function definition */ lisp_other_other_, /* Other macros */ lisp_macro_macros_, /* Macros used by macros */ lisp_setf_, /* setq for arbitrary functional forms */ lisp_defmacro_, /* LispM-compatible macro definition */ lisp_destructuring_let_, /* Destructuring let */ lisp_sharpsign_, /* Macro character facility */ lisp_runtime_, /* runtime utilities. */ lisp_loop_, /* Loop */ lisp_format_, /* format */ display_lisp_object_segment, /* lisp debugging tool */ dlos; Global: retain; /* required until such time as the binder properly implements the 'retain' bit in definitions */ Order: lisp_trace_, lisp_editor_, lisp_gfn_, lisp_gfile_, lisp_backquote_, lisp_defstruct_, lisp_defun_, lisp_other_other_, lisp_macro_macros_, lisp_setf_, lisp_defmacro_, lisp_destructuring_let_, lisp_sharpsign_, lisp_runtime_, lisp_format_, lisp_loop_, display_lisp_object_segment;  display_lisp_object_segment 11/20/86 1414.7re 11/20/86 1221.7 120096 0123456789display_lisp_object_segment () |/'`#;.," @# X(nil . V?T TDTTTJ NTFTTLT LTTT)T lispTT TTT4T-al-sllink-lk-cc-all-lgTVVTV #quote*segtop^a>^a?#-array-subr-links-longsymbol_table-array_links-subr_links-constants-constant@#^/No subr links.^3d EVAL: ^a*segtop in ^a>^a^/No array links.^/-compiled_constantsUsage: dlos ^/^d array link^[s^]:^/^/^d subr link^[s^]:^/symbol_table in ^a>^alp|^o^8t^[LOAD TIME: ^]^a^/No subr-block constants.^/^d action^[s^] defined:^/^a at offset ^o in segment^/^d subr-block constant^[s^]:^/Not a Lisp object segment: ^a>^aVersion ^d Lisp object seg not supported.lp|^o^8t^a^30t^d dim^[s^; ^] ^[Lisp objects^;nongc^;fixnum^;flonum^]lp|^o^8t^a^[ ^^SNAP^]^[^30t(fsubr)^]^[^30t(lsubr)^]^[^30t^d arg^[s^]^]lp|^o^8tap|^o ^[ ^^SNAP^]^[^30t(fsubr)^]^[^30t(lsubr)^]^[^30t^d arg^[s^]^]^3d ^[ SUBR^;LSUBR^;FSUBR^]: ^a^30t^[^d arg^[s^] ^;^s^s^]@^o^[ (^o in seg)^]k`P%@n`P%@(@(@(@@@@@@@@@@@ P@@@@I@@@@@@@@@ $PP@@@V@P@i@@@@@@@@@@ @@$P P@@@V@^a @@@@ @@P@@@@@ @@$PP@@h@h@@@@@@@@@$P P@@P@ F`  F`  F` F`@@@h F`  F`  F`  F` F`@Q F`  F`y  F`t F`@> F`~  F`  F`  F`\@+ F`i  F`p  F`L@@V@^a @$PP@@ @@@@C@@@:@@ @@P@@h,@r (@i@@@@@@f@@ @@T@@@@!@" @"@$@&@ (@*@@$PP@T@0@,@@@@,@@i@@@@@@"@@ @@$PP@@@@,@T@@f@@,@@@@@$PP@@,@@@@,@@i@@@@@@"@@ @@$PP@ȟ,@@@@@,@@V@@@@@ @@@"@@$PP@@ ՝՞@ԝԞ@@@]@@@i@@@@@@"@@ @@$PP@VP@$@q*@6g@@@,@@@@@@@V@@@@c@ @o@Z@l"@@$PP@@ @@@@@@@@i@@@@S@P@"@9@H @@$PP@dVP@$@q*`@(H@(@M@ N@ (@@@ @@@@@i@@@@@&@"@ @ @@$PP@:@N (@@@,, @@@@@`P@@@@@@ @@$PP@@A)d@C@@@$@@A+N@@@$@@Ai@@H@@@@Ai@@I@@@$@@Ai@@J@@@@Ai@@K@@@$@@Ai@@M@ @@@@Ai@@L@ @@AiZ@M@@D@D@N@ZP@0F.$.@dq*P@@ / F`D@H>@I>@J>@K>@D@D,@D@dP@A*R@@F@g@@@@@@@g@@w@@r@@ $PP@@@F@NM@ @@@F@@ @@]@^@X@@ $PP@F@@@@@@N@Rv6G@+@@R6 @ @@.@@A@@@@@{{@za@@@@@@.P@(@+@@@@ $PP@ @[@@R6@@@.@@@ @@@V@@@LLG@NJ@@C@N$@0@6 @0@6NM@0@N2@61@g@M@3@2@6g>@2@@6@@@8@G@:@.P<@@>@ @@@0@B@1@D@3@F@2@H@J@L@N@ @P@R@V@Z@T@X@\@4@($PP@ @C,@@,@tdP@A*X@@@$@A)^@@@@@@@@@$PP@@@@@@NM@ @@@@@@ @@@@@@ $PP@^P@A@ A@N@^vix@i@9>@88M@XP@0F.$.@6 @ @@.@@i@2@@@@@@HHA@X>P~ @@@@3@@?NJ@1@NJ@0@@ @@0@@0@ @NM@ @@6@ @8@.P:@3@<@@CO>@1@@@0@B@@CND@ @F@!H@J@2@L@ N@R@T@X@P@V@4@$$PP@L @@@LLX>P~2@@@@ @@?NJ@0@NJ@1@@3@@1@@1@3@NM@3@@6@2@8@@:@ @<@@CO>@0@@@1@B@@CND@3@F@H@J@L@N@R@T@X@P@V@4@$$PP@A,@D@dP@$@A*\@@@@@@@@$PP@ @ @ @@NM@3@@@\P@3@@@@@@ $PP@\P@B@ B@N@a\v@@6>@55M@XP@0F.$.@63@3@@.@@w@1@@@@@@DDB@3@dP@$@A*@A)@@>@~3>@3@@ ?NM@0@@?> @@@3@@.P@ @CO@0@@ @@1@.@1@ @0"@6$@%&@@$PP@ @B,@@fXP@@@@@@$PP@@@ NM@1@@@XP@1@@@ @ @@ $PP@XP@E@ E@N@8XP@0F@$@@@71@1@@.@@@ @@@-@@@QE@~1@@@1@@@@.P@@@@ @ @@$PP@ @E,@ (@T@@ @@@$PP@@tP(@N@?{P(@PP@@ P@H@@I>@@J>@@K>@@M>@@N@-@@R@\@T@X@^@Z@P@@^@@_@>`@>"Pa@VP`@i@ @@q\P_@ `@`@a@@`@ E@a@@N(@PP@@ "PV@PT@ P@HN@&@dP@$@A*@Z@@@O^@^@d@P@f@b@$PP@t@P >@.@.@@^@ ^~@"P`@VP`@^@P@@E@@H@@.@@@@IN@*@dP@A*@Z@^@^f`@_(@`@j@B@l@_@n@@@@Zp@=r@t@'v@^@x@h@$PP@A@"PVPA@B@@@I@@.@@@@JN@/@dP@$@A*@Z@@@@0F.$.@A)@P@@@ /_@V^@@@R@\@T@^@V@_@X@P@$PP@_@@"P`@VP`@\P@@J@@.@@@@KN@#@dP@A*@Z@@0F.$.@A)@b@\@R@^@V@P@V@^@@"P_@VP_@\P@@K@@.@@@@MN@A@dP@$@A*@Z@@@@0F.$.@A)@P@@@ /^@t`@i.@.@@>^@V_@@@R@\@T@_@X@`@Z@P@;@`@@"Pz@VPz@\P@^@"PVP^@@@@@M@@.@@dP@A*@Z@@@O6L@O6M@L@@DN@4M@@H~@@I~@@K~@@J~@@M~@O@,F6(O@N6^@^@R@\@T@MX@_@Z@P@@_@@^@>"P`@VP`@i@ @@\P^@ `@`@@N@oM@-L@R@\@T@&X@_@Z@P@d@_@@^@>z@>"P{@VPz@i@ @@Y\P^@ `@`@{@@z@ E@Q{@@L@R@\@T@X@_@Z@P@8@M@R@|@T@X@z@Z@P@4@z@@^@_@@~@>@^>@"P@VP@i@ @@\P~@ `@`@@@@|P^@ e@`@@M@-L@R@\@T@X@_@Z@P@@_@@z@>@>"P^@VP@i@ @@\Pz@ `@`@^@@@ E@^@@L@R@\@T@X@_@Z@P@@M@R@|@T@X@@Z@P@@@@z@_@@~@>@z>@"P@VP@i@ @@\P~@ `@`@@@@|Pz@ e@`@@`P(@"PP@B@P@@@@@VP@P@PB@t`.@.@@>A@B@VPB@@P@N@@NB>@C@VPC@i@ @@^B@ `@`@A@N6B@~E@TD@E@i@J@ `@`T@L@D@P@V@R@H@@V@@E@>"PW@VPP@P@@@..@ /X@W@i@ @@@XTPE@ `@`@@@N@~D@>V@>X@VPV@i@D@ `@` E@ X@@V@@@ E@FX@@B@A~@D@TV@D@i@J@A@ `@eF@L@V@P@E@R@H@S@E@@D@A@~Y@>Z@>[@D>@"P\@VPZ@i@P@PY@ `@` E@[@@Z@A@ E@F\@@[@FPD@ e@`@\@@P(@ P PbP6}@~G@>H@@J@}@~L@>M@@N@}@ ~@>P@>Q@@R@~@>T@>U@@V@-j@k@G@l@m@%n@o@L@p@q@P@B@T@C@}@X@F@F@XN@ P PbvbP}@6F~@~@}@~@JNF,@E(@D(@D@@@~@E@C~@~@D@@JP@@@@~@@@j@@@@@@B@RP@@ E@B.@E@ց ~@E@@NP@A@@~@@@n@@@@@@nC@VPA@ E@C.@ P PbP C@VP-F@B@RP-E@C,@B,@C@~~@T@~~@@T@C~@@..M@i@0`@@~@@C@=VP@@E@~@P@~@i@9`@@@C@=@@E@~@P@@>"P}@VP}@i@C@@ `@e F@}@@B@~@P@~@"P@VP@B@=RP@@E@r@t@Av@{(@tP(PP@@|@z(@ z@|N@!tPPY@vP@P@vYH@#@x@P@x@@P{@z,@{@tPPr@./(' )-s-l-c-a display_lisp_object_segment symbol_tablek  error_table_badoptcu_arg_ptr expand_pathname_##(hcs_initiate_count+-1get_definition_448terminate_noname+;@ object_info_briefCGIioa_LLNcom_err_QQTrsnnlLWYrequote_string_\\`cv_bin_octcefdlosn`i tk ` get_prinrep{nrq get_prinrep_cdrt{w hairy_atom{~ bigna_representer  &&"&*&3&:&B&K&P&V&[&b&hsymbtreeMmM+SPL/I 3!& *Multics PL/I Compiler, Release 29, of July 28, 1986GJohnson.SysMaint.aoptimize listD@hd|MT4hdrMk{a!%*0DeȀj%FH)t$FH }'#X}A݀>special_ldd>install>MR12.0-1222>display_lisp_object_segment.pl1>special_ldd>install>MR12.0-1222>definition.incl.pl1>ldd>include>object_info.incl.pl1>ldd>include>lisp_bignum_fmt.incl.pl1>ldd>include>lisp_symb_tree.incl.pl1>ldd>include>std_symbol_header.incl.pl1pl1info display_lisp_object_segment_腀Siz~?@@P @3P@?@5P?@POP @@?@?@?@ @?@7P OP @@?@?@?@ @?@7P@?@?@?@9P@P?@@2P@PN @@?@@ @?@@?@7P;P?@P~?@@P@?@@N =PP@:P?@3P?P@?@.N =P P@:P?@3P?P@?@ P@:P?@3P?P@?@@P?@@2P @@ @?@?@?@?@?@?@ O@P@ @41@ O@@ @P?@,@P?@(?POP?P@?@?POPPP?P@?P OP PP?P@?P@?@5P?@P?@?P@@?@5P?@P?@OP @@?@?@?@!@?@7P?@ OP @@?@?@?@#@?@7P?@OP!?@@ O@?@?@%@P?@%O@?@@:P?@@?@?@?@@:P?@@?@?@?@?@9P@f]`c]]GJohnson.SysMaint.m Multics LISP Compiler, Version 2.12b, February 3, 1983 2-OFI>special_ldd>on>06/27/83>lisp_backquote_.lispa 56# %- ",." after a "." :  ",@" after a "." : Comma not inside a backquote.  ",." right after a "`" :  ",@" right after a "`" : !HJLOQTWZ]_egknsz}tconsappendlistlist*nconcquotetyipeektyi**backquote-,-flag**read backquotifyerror backquotify-1**backquote-,.-flag**fail-act**backquote-,@-flag****backquote-flag****backquote-count**sstatusfeature backquotexr-comma-macroxr-backquote-macrosetq copysymbol`,.`,@`, setsyntax,macro`:( * + ,./! 123 4567" 9:; <=>?# ABC DEFGIJL% N& P RSQTOU$V' X& Z \][^Y_$`/k  -)~ aWMKH@80@ @ $obj_map fj  lisp_defmacro_ 07/06/83 0938.1re 07/06/83 0908.9 39780 @?@?@?@P@ @?@?@@ O@@ @r?P@ @m?P?@O@O@6 O@4 O@J@:P P@ P?P@?@?P@?@@ O@@ @T?P@ @O?P?@O@AO@ O@ O@,? @:P@ @?@@ '@DP?ҟ@D@@@P!@?Ы@@@P@?Ы@@:P?ğ@?ҫ@@?@P@?@iP?>@@DP?ҟ@@DP?ҟ@ P?P@ O@@ @!@@@P@?Ы@@:P?Ɵ@?ҫ@@special_ldd>on>06/27/83>lisp_defmacro_.lisp>exl>lisp_dir>include>backquote.incl.lisp>exl>lisp_dir>include>destructuring_let.incl.lispI #$=$Wrong number of args in macro form:  macroBad &keyword argument list: 1>ADHOUX[^ehknpsux|~gensymcatenate make_atomlet-macro-flush-declaresgrok-&keyword-listnreversenconcappendlet-macro-cons-declaresdefunmacrodefpropevalcompileloadmacros eval-whencartsetqcondcdrletdisplaceargscommentquotefail-actor<>andlength=errorlet* *optional**normal*&aux&body&rest &optional*rest**body*sstatusfeaturedefmacro macro macrodefmacro macro689<=21?0@3BCD4F2GHi./.-,+*)('&%$#"! >;:75  ~n^~I4E3A( @ $obj_map G  lisp_defstruct_ 07/06/83 0938.1re 07/06/83 0908.8 351324 @?@@?@{P?@?P:N?P@@?@}P?@?@@2P@@@?@?@?@P?@@ O@ ?@@?@@?@P ?P O@ ?@@?@ @?@P?@?@@2P@@0@?@?@@?@PN @@?@?ܟ@?@@?@P?P@?@?P?@?P@?@?@@?@P?@?PP@?@@?@P?@?PPPPPPPPPPP?@?@@?@?ܟ@?@P?@@@:P?@?@@@@DP?@@:P?@@?@+@@@P?@?@@BP?@@BP@@DP?@@:P?@@?@?PPPPPP?@2%@@@P@?@@:P?PP?@@?@?P@?@?@?@?@@ O@?@@?@P?@?PPPPPPPP@?@?@?P?PPP@?@?@@?@?@?@P?P?@?@@2P?@@ O@ @?@?@?@P?@P?@?@?@@@P?@?@@BP?@@BP?@@ O@M@?P@BP@@BP@ @@BP?@@DP?@?@@2P@?PPPPPPPPPPP?@@ @?@?PPPPPPPPPPPPPPPPP@ O@H?@?@@ @?@??PPPPPPPP?@%@@@P@?@@:P?@?@@@?@@2P@?P@?@@?@P?@?P@?@P?@?PP@?@@?@P@ O@ ?PP@?@͟@?@P?@?P?@?PP?@?P@@?@P?@@?@P?@?PPPPPPP?@?PPPPPPPP?@?@?N@ ?@@ O@)@:P?P?@@?N@?@@ O@?@@ O@ @:P?@?@@?@~?@>?@%?@\?@?@~?@@ '?@P?@ٟ@@@P?@?@$$ '?@@BP?@?@?@@?@P?~@??@@BP?@@DP?@ݟ@@@P8?@@BP?@@BPݟ@@@P3?@@BP?@@BP?@@DP?@@DP?@?@?PPPPP@?@ٟ@@@P?PP@?@@BP?PP@BP?@@DP?@?@?P@?@?@@ O@?@?@@2P '' ' ' '@?P@?@-@?@P?@P?@?PP@?@@?@P@ O@ ?PP@?@͟@?@P?@?PPPP?@?PPPPP?@@ @?@?P@?@?PPPPPP?@P@ O@?P@@@P@?@@BP?PPPPPPPPPPP@DP?@?@@?@P?@?P@?@@ @?@?@?@@ O@?P@@?@?ޟ@?@?@?@?@?@P?@@ @@ @?@?֟@?@P?@?PPPP?@?ڟ@?@@ @?@P?@?P?@?PPPPPPPP?@Ɵ?@@ @?@?@ ?@>?@P@:P?@@?@?@?@?@?N@?@?@@ @?@?@R?PP@@@P?ޟ@?@@BP?@?P@?@?@?@?@?@P?@?PPPPMO@?PPP@?@?@?P?P@?@P?@?P@@ O@@@@P?@?@@BP?@@DP?@@:P?@@?@P?@@@@P?@?@@BP?@@DP?@@:P?@@?@?@@:P?@@?@?@@:P?@@?@?P@?@?@@ O@@@@P?@?@@BP?@@ O@?@@@@P?@?@@BP?@?P@?@?@@:P?@@?@?@@?@@?@PN?P@@@P@?@@BP?@@DP?@?@ @?@P@@?@?@?@P?@P?@?PPPPPPPPP@?@?@?P!@@@P?@?@@BP?P@BP?P@?P@?@?@@:P?@@?@O@?PPPPPP@?@?@@ O@?P@@@P@?@@BP?@@DP?@?@@?@P?P?PmUO@?PPPPP@?@?@@ O@?@?P?P\O@ ?PPPP@?@?@?PQO@9?@@?@PN?P@@@P@?@@BP?@@DP?@?@@?@P@@?@?@?@P?@P?@?PPPPPPP@?@?@?P!@@@P?@?@@BP?@?P@?@?@@:P?@@?@@?@P?@?O@?@a?@@@@P@?@@BP?@@DP?@?@@?@P?P@?@?@@ O@A?@@ O@?@@?@@?@P?@@ O@?@@?@!@?@P#@@@P%@?@@BP?@@BP?@@BP+@@@P?@?@@BP?@@BP'@?P@?@?@@BP?@?P@?@?@?@?@?@P?@@2P '@ @@?@?@?@?@?@źP?@@2P@+@@@P@ @?@@BP?@@BP?@@DP?@?@@2P-@@?@?@?@?@?@źP?@@2P@+@@@P-@?@@BP?@@BP?@@DP?@?@@2P/@@?@?@?@?@?@źP?@@2P@+@@@P/@?@@BP?@@BP?@@DP?@?@@2P @1@@@P@ @?@@BP?@@BP?PPPPPPPPP@DP?@?@P?@?@-O@i/O@g 3@@@@ O@P@?O@@ @?@?@?@@ @?@,?PP@@?@?@?@P@ O@?@5@@@P+@?@@@P?@?@@BP?@@BP?PP@DP?@@BP?PP@@DP?@@:P?@@?@?@?@?P@?@?@?@?@@ O@Ӂ?@@ O@@@@P?@?@@F$ '?@N7@ N9@N;@=@@:P?@?@?@>F '?@?@ ?@@:P?@?@@special_ldd>on>06/27/83>lisp_defstruct_.lisp>exl>lisp_dir>include>sharpsign.incl.lisp>exl>lisp_dir>include>defmacro.incl.lisp>exl>lisp_dir>include>other_other.incl.lisp>exl>lisp_dir>include>defstruct.incl.lisp! !"@A0[ 0;S_l#2BP^n$/>Nar0Zdefstruct: defstruct-examine and defstruct-deposit cannot handle structures of this type: +defstruct: No such slot in this structure: 0defstruct: No pointer given for external array: Rdefstruct: Structure of type fixnum must have exactly 1 slot to be constructable: :defstruct: Structure of type tree cannot include another: 0defstruct: defstruct cannot make an empty tree: ;defstruct: Structure of type list* cannot include another: 3defstruct: No ref option in defstruct-define-type: 4defstruct: No cons option in defstruct-define-type: 4defstruct: Unknown option to defstruct-define-type: :defstruct: Bad defstruct option in defstruct-define-type: 0defstruct: Bad option to defstruct-define-type: 7defstruct: Bad copier option in defstruct-define-type: :defstruct: Bad predicate option in defstruct-define-type: 4defstruct: Bad ref option in defstruct-define-type: 5defstruct: Bad cons option in defstruct-define-type: defstruct: There is no way to make this defstruct type named: &defstruct: Unknown type in defstruct: 5defstruct: defstruct doesn't understand this option: :defstruct: defstruct type used as an option with a value: Edefstruct: The initial-offset option to defstruct requires a fixnum: >defstruct: The property option to defstruct requires a value: Fdefstruct: The but-first option to defstruct must have a value given: ?defstruct: The eval-when option to defstruct requires a value: =defstruct: The include option to defstruct requires a value: ;defstruct: The print option to defstruct requires a value: ?defstruct: The named option to defstruct doesn't take a value: Adefstruct: The type option to defstruct must have a value given: Bdefstruct: This defstruct type cannot produce a copying function: ;defstruct: This defstruct type cannot produce a predicate: $Wrong number of args in macro form: defstruct: The internal description of this structure is incompatible with the currently loaded version of defstruct, you will need to recompile its definition: PO@PRBCADSEPPOHPRJKILSMNGOTPPORPRTUPVQWXSYNZ[Q\PO^P\`a[bPRdePfQgPOiPRklPmQnojpNqPOstcvikjyk{J|j~PnLjMyiLcMfjifjiYjiYjijijyijyidj   yidn ij"$%&'()+,-./02345679:;<=>@ABCDEGHIJKLNOPQRpSUVWXYZ\]^_ `acdef ghibj[kTlMmFn?o8p1q*rtkvJwyz{|}~xi usijjjijjjijjjijjjijjjijjjijjjijjjipj j j  ijjj !i#$%&j(j*j,-+.)/0i2345j79:;<=> @ABCD E GHIJK LjN PQORSTUWXYZ[\^_`abcd]eVfMgFh?ikkmJnpqrstuvowxyz{|}~ljjjjjjj jjj   jjj   jjj jjjjjjjj      !"#$%!'()*+,#./01 2"3$5678 9:&<=>? @%A'CDEF GH(JKLM NOkQJRSjT)VWUXYZ[*]^_`ab+defghi,klmnop-rstuvw.yz{|}~/01xqjc\PIB;4-& 2kJ432jjj2jjjjjjjjjjjj     jjj !j#j%j'(&)$*+-./0 j2j4j675839:<= >?!jAjCjEFDGBHIKL!MN#jPjRjTUSVQWX"Z[#\]$j_jajcdbe`fgij$kl&jnjpjrsqtouv%xy&z{'j}jj~'(jjj()jjj)*jjj*+jjj+,jjj,-jjj-.jjj./jjj/0jjj    01jjj1 02Hx)W*(0bly . 6 g    ! M U     S m   . I L    *GFEijDCP}BA@?>=<;:9876543210/.-~,}|+*){zy(xwTvS'ut&s%r$qp#on"m! lzxhgfedwbOa`_^urh]cZ_YRXWVU]F?MLKJIH*~nNn>.~n^N^N>~nN! |wmh^YOJ@;1,"861'" #!z{  hVUI @ obj_map n n    lisp_defun_ 07/06/83 0938.1re 07/06/83 0908.1 44676 @?@@?@aPN @@?@?@?@@?@cP?P@?@?P?@?P@?@?P?@?P@?@@?@@ @?@?@?@@0?@!?@O@O@ O@ ?@?@?P?@?P@?@G?@O@O@ O@@?@?@?@?@?P?@?P@?@6?@?3@?@@?@ @?@cP*?@? @?@@?@ @?@cP?P @?@?PP?@@?@eP?@gP?@iP?@@@@P?P?@@BP?@@BP?PP@DP?@?@?@?@?@@ O@ ?@@?@?@?@?@?@?@?@kP@@@P@?@@BP?@@BP?@@?@?@?@?@?@?@?@kP@DP?@?@?@?@mP?@@2P@@0@?@?@?@@@P?ޟ@?@@BP%@@@P?ޟ@?@@BP?@?P@?@?@@BP?@@DP?@R@P' ) + - ?ԟ@@?@oP?@?Ο@?@qP'P@ O@)P@ O@+P?@@ @?@?@?@?@=?؟P@ O@sP?@@:P?ڟ@@?ګ@?@@:P?ܟ@@?ܫ@*?؟P?؟P@:P?ڟ@@?ګ@!?؟P? ?؟P@?@@?@/@?@cPsP?@@:P?ڟ@@?ګ@?؟P@:P?@?@@@?@+P@?@aP?@sP?@'P@ O@A1@@@P'P?ܫ@@:P?֟@O?ޫ@O 9@@:P?ڟ@?@@special_ldd>on>06/27/83>lisp_defun_.lisp>exl>lisp_dir>include>defmacro.incl.lisp>exl>lisp_dir>include>other_other.incl.lispR =>?!/5!*3Wrong number of arguments: Illegal argument (defun):  Bad first argument to defun: Bad second argument to defun: $Wrong number of args in macro form: 0W^dgjqtwz|~let-macro-flush-declaresgrok-&keyword-listgensymnconclet-macro-cons-declaresappendquotefail-actlist<orargtsetqcond->andlistify=argscommentlet*body**normal* *optional**rest*lambdalengtherrorcatenate make_atominterndefun&-internaldisplacecompileprogndefpropmacrofexprexprsstatusfeaturedefunputpropgetdefun& defun& macro 78* ;21=0>2 @5 B- DECF4G- IJHKAL3M-6O5P,Q0/.-,+<)('&%$#"! : 9  R6(N?E@ @ $obj_map ,4  lisp_destructuring_let_ 07/06/83 0938.1re 07/06/83 0908.6 33480 @?PP@@?@-P?@?PP@?@/P?@@P @ @?@?@;?P??P ?P@?@@?@@?@1P?P@:P?@@?@@ @@:PP@P?@?@?PP@?@?@?@3P?@?O@?PP @?@?PPP?@P?@5P?@?@?@7P?@?P@?@?@@ O@ā?PP@@?@?@?@9P?@?@@ O@?P@@ O@@@@P?@?@@BP?@?P@?@?@@:PP@?@?@?P@P?@?@?@;P?@@2P@?@@ O@?@%? @?@@?@@?@1P@ @@:PP@P?@@:P?@@?@?@ ?P@@?@?P@?@?@?@3P?@3P?@@2P?@??P??PPO@?@?P@@?@-P?@@2P@?@??P??PPO@?@?P@:P?P@@?@?@?@?@9P?P@?@?@@2P@?P@?@@@ @?@?@d?P@? @@?@?@?@@?@1PR?P?+?P ?P@?@@?@@?@1P?P@ O@ ?P@?@@?@@?@1P!@@@@P?P?@@BP?PP@DP?@@58;55GJohnson.SysMaint.m Multics LISP Compiler, Version 2.12b, February 3, 1983 65OFID)OJ>special_ldd>on>06/27/83>lisp_destructuring_let_.lisp>exl>lisp_dir>include>backquote.incl.lisp/ 01''Bad DESETQ pattern: !Garbage found in DESETQ pattern: Odd number of args to DESETQ: Garbage found in LET pattern: @BDFMPRU\_bhmpwz}letcarcdrlet-macro-get-last-varprognsetqdeclarelet-macro-flush-declaresreverseerrorlet-macro-get-varslet-macro-hairnconclet-macro-cons-declaresdisplacelambdafail-actlet-macro-valssstatusfeaturedestructuring_let let* macrodefproplet*macro desetq macrodesetq let macro!"$%&()* ,-.zP`   ~n^N. /  +'#@ @ $Jobj_map 88RZ>  lisp_editor_ 10/05/83 1316.1re 10/05/83 1315.2 65124 @P?@ @@:P@@?@?@@:PP@PPPP@ @?@@2P@P?@ @@:P@@?@?@@:PP@PPP@P@ @?@@2PP@ O@@ @@2PPPPPPP@P@ @@2PP?P@2PP@2PP@ O@@ @@2PPPP@O@PP@2PPP@ O@@2PP@2P@P@ O@@ @PPP@O@P PPPPPPP?@@?P@@ @?@@2PP@ O@@2PP@ O@@ @@2PPPP@O@@ @@2PP@2PP?@ @@2PPP@2P@@0@?@?@?@P@?@P?@ ?@~?@?@@ O@?P@?@?@?@?@N?@@ O@?P?@?@@2PP@ O@P@?@P@2PP@2P@0@?@?@@P@@!P@ O@PPP@O@ #@@?@PP%@@?@PP@?@P@P?@@2P@P@ O@~?@P?@?@P?@?P@?@@P@P?@-@@?@P?P@?@P?P@?@?@??@@ O@ /@@?@P?@@?@P@P?@@2P?@3O@@ @<1@?@?@?@P4@?@?@?@P,??O@@ @&@ @$?@?@ @?@5PN@@ @?P@?@?P?@?@> '?@P@ O@ ?P@@?@?P@?@?@> '?@P?@@2P@4@?@?@P?@@P@5P@ O@;@@?@PP@?@P?@P?@?@?@P@ O@P@:PP@=P@?@?@P?@P?.@?@N@ @@P?@@2P ', '?P@?@E@?@P?@?G@?@@2P?P@?@?PP?@P?@@2P@?@?@?>@ 'PP@P:N@ @P@P,N@:PP@P@P@ '?@W@?@˺P?@@ O@ܟ@?@?@P?@ ?P@?@ͺP@ O@?.@?@N?@GN źPP@?@ϺPźPIN-P@ O@Y@@?@PѺP@:PP@?@@ @=PPPPPOPPPP?@?@?PPPPP@OPPPP?@?@?P@?@PpJNѺP@?@?@?@ӺP?@@ O@[@@?@P@ @=P?PPP?PP@PVKN?P@ O@]@@?@P@ @=Ph@?@?@P?@P?@ ?@~?@?P@?@?@?@?@N?@?PPPPOPPPP?@?@?PPPPP@OPPPP?@?@?P@?@PLNPMN ѺP@?@P?@պPNN _P@ O@a@@?@P=P@ O@c@@?@P=P@ O@=PPP=PP@P_P@?@׺PPN źP@ @@?@?@ٺPźPQNP@ O@@PPRNǺP?@?@`N ~ '?@?@ANP?e@@?@PP?@ѺP?PDN@ @=PP?g@@?@PP?@ѺP?P@EN*P@ O@i@@?@PѺP?@@ @=PPPPPOPPPP?@?@?PPPPP@OPPPP?@?@?P@?@P{INѺP?@P?PtPNѺP@@PP?@@BPP?P@?@?@@:P?@@?@c@@@P?@?@@BPk@@BPm@@BPo@@DP?@?@ۺP?@PPSNѺP_P@?@׺PHTNźPqP@?@?@P?@sP@?@?@P?@ٺPźP2WN źPP@?@P?@ݺPźP%XNP@?@P?@P@ O@?@@?@ߺPźP '@@@Pk@?@@BPm@@BPo@@DP?@?@ۺP?@P@ @@spec>on>10/05/83-lcp>lisp_editor_.lisp WXHjABDFHU %)-28<GLOQSU...(Can't replace! RD: atom? RA: atom?Loose Search...No search to repeat. Can't kill.%No RP command was done with that tag. Can't insert!S: fail .  )(...G} !#&),/2479;=@CF +atomic-car+terprityityoassocsprinter+read+assqfuncall+search++print+maknam+where+print clear-input +prinlength+ +prinlevel+? : +search-arg++car++back++cdr++fwd++listop++up+variableis undefinedgetlsubst+edit+LISPpropertynotfound+editp+functionexprfexprmacroerrorlength +search-loc+equal +compare+ +maxlevel+??lastprinc+print2+prin1 prinlength prinlevelreadeval+colon+reverse+arg++last++fwd1+cdr+stack+caritediteditveditpeditfsetq!-./012dcebfag`h_i54k3l<;n:o>5qA@s?t,vwDx^y'{|(}^~+:AUqU&KYXWVU-/21TSRQPONMLKJIHGFEDCB0ur=p9876mj, +*)('&%$#"!  '^N~n^N>N~~n^N>.-/20U.1TS"KzF!]\=[Z8$-l @ 3hobj_map 1  lisp_format_ 07/06/83 0950.2re 07/06/83 0950.3 381420 @@0@?@?@?@?@?@?(@?@?@?@@ O@ ?@?N@?P@?@@ O@?,@?@?@@2P@@ @?@?@!@@@?F@?@?>@?@?~@?@?@N ~?@)@?@U@?@?@?@P@ @?@@@@P?@?@@BP?@@BP?@?P@?@?@?@a@?@P?@@2P ' ' '' ' ' sP@ O@?@@?@U@?@PEP@ O@?@@?@P@?@?@?@P?@@2PsP@ O@?@@?@O@?@PEP@ O@?@@?@P@?@?@?@P?@@2PsP@ O@?@@?@w@?@PEP@ O@?@@?@P@?@?@?@P?@@2P@@0@?@?@?@6?@?@@?@P?@?(@?@?N@(@ '?@?@?@P?@?@_@ '?@[?@@?@P@ O@ ?@@ O@?@ '?@  '?@?@@?@P@ @?@?,@@ @?@@2P ' 'sP@ O@W@@?@P@2PEP@ O@!P@2P@?@#P@2PsP@ O@[@@?@P@2PEP@ O@@}P@ O@@ @ P@ O@@ @P@ O@@ @PP?@%P@2PsP@ O@@@?@P@2PEP@ O@@}P@ O@@ @ P@ O@@ @P@ O@@ @PP?@'P@2P@@ @?@?@?@@ O@ }P@ O@@ @?@P@ O@P?@?@?@@ O@@?@?@?@)P?@?@@ @?@?@@ O@?P?@?P@?@}P@ O@?@@ O@?@@?@?@?@)P@ @?@@2PsP@ O@Y@@?@P@2PEP@?@@?@+P@2P?@@?@%PN?@@?@#P@ @?@@2P@@O?MO Y@N?@@PsP@ O@!@?@-P?@?@N@ @@?@-P@ O@?@_@?@/PEP@?@@?@+P@ @@P_O@2P ' ' @@0@?@?@?@?@?(@?(@6@?@-P?@@ @@?@-PN@ @+@?@-P@ O@#?@?@@?@%P?@?N@?@?~@?@?@~?>@?F@?@?>@?@?@?N@ ?@@?@ ?@P?,@@ @?@@2P ' ' ' sP@ O@]@@?@PEP@?@@?@+P@ @@2P?@@?@?@P@ @?@@2P ' @0@?@?@>@ '?@P?@P?@@2P@P@ O@P@?@@?@1P PP?@PP@P?@?@@2PP@?@?@?@@?@@ @?@3P?@@?@@?@P?@5PP@?@?@?@P?@@2PP @?@P?@P?@?@?@@?@@ @?@7P?@@?@@?@?@?@5P?@@?@?@?@P?@@2P@?@@?@9P?@?PP?@?P?@/O@ ;P@?@?@?@?@?@P,+O@ ?@@?@?@?@)P"-O@ ?@@?@P?@?@?@PP)O@ ?@@?@=P?@?P@ O@ ?@?P?@@?@@?@1P?@@2P '@@0@?@?@sP@ O@IEPPP?@P>?@?(@@ @?@?@?@@?@P?@?PGO@?PP?@?@?@PN@*@ '?@P?@P?@~N?@P@ @?@@ O@ ?@@?@U@?@EP?@?@P@ ?@@?@U@?@EP?@?@?@P?,@PP@ @aP>?@?@?(@?@PN@@ '?@P?@P?@~N?@P?,@@ @?@?@@ O@PPP>?@@ @?@?@?~@ '?@@ '?@P?@P~N?@> 'P@ @?,@?@P@ @?@@2P@@0@?@?@?@?@@ @P@ @P@ @P@ @PP?@?(@?(@@ @?@?@?@?@>@ '?@P?@P?@@?@:?@/?@P@ O@ @ @?@@ @?@?@ ?@?@0~?>@?@i?@:N@ @P@ @Pa@N@ @P@ @PZ,N?@@ O@ ?@@ O@?@@:P?@@?@@ @?@@ @?@?(@G'N?@@ O@ ?@@:P?@@?@@ @?@?(@?,@?@>@ '?@P?@P@:P?@@?@@ @?@*?@@ O@ ?@@:P?@@?@@ @?@?(@?@VNvN ;P@:P?@@?@@ @?@#N P@?@CP@:P?@@?@@ @?@?@P?@ ?,@?@PN@u@@?@EPp@ @?@@2P@@0@?@?@@ @P@ @P@ @P@ @PP?@?(@@ @?@?@>@ '?@P?@P?@@?@:?@/?@P@ O@ ?@,NvNVN#N@ @?@:N@ @P@ @P@N@ @P@ @P 'N?,@@ @?@?@P?@ ?,@?@PN@ń@@?@EP@ @?@@2P@@0@?@?@?@?(@?@@ O@?P?@@?@{?@`?@P@ O@?@ ~ '?P?P@?@@P?@@?@P@P?@@2P@@0@?@?@P>@?@P?@P?@P,@?@\N*P?@@@ @?@?@PN@ş@@?@EP?@>@ '?@P?@P?@\N@:P?@@?@?,@?@> 'P?@@?@GP?@IP@v?@@2P?@@?@KP?@MP?@@2P @@0@?@@O?MO Y@N?@@Pv@?@-P?@s@?@-P?@?@Nm@?@-P@ @?@?@N@ @?~@@ '?@OP?@?@UO@0?@@:PџP@ѫP@@@@ O@P@?O@K?@JO՟PHO ՟P~@?@?@QP?O ՟P >?@ F?@?@?~@ '՟P>P [O@?@@ O@՟PPO@?@@ O@ןPPO@۟@ @?@?@?@?@?@?@?@SP@P_O@2P ' ' ' ' ' ' ' @?@?@?P@?@@@@P@?@@BP@@?@?@?@UP?P@?@?@?@?@? %@@:P?@?@@@?@?@?N@ ?@?~@?@?@~?>@?F@?@?>@?@?@?.@?@O@?@?@ O@?@F?@?@?~@?@?@?@?@@?@?@?@?P?ޟ@@?@?@?@gP?@@?@?@?@?P@P_O@2P ' ' ' ' ' ' ' ' P@ O@?@@ O@@?@@?@?@@ O@ ?@@?@?@?@)P P@ O@@@@?@?P?@?P@?@?P?@?P@?@?P?@?P@?@?P?@?@?@?@?@iP?@@2P@@?@?@?@?@?@kP?@@2P@@?@?@?@?@?@kP?@@2P@0@?@?@ N@?>@?@P?@@2P '7 '0@@ @?@?@@.P@?@mP?@@ @?@?@@ O@ ?@@ O@@  ?@P?@@?@?@?@oP?@@2P '+ '-@@0@?@?@?@?(@#P#P@?@#P@?@@ @?@?@@?@?@?@qP@ O@?@@?@?@?@sP?@?@?@oP?@@?@?@?@uP?@@ @?@?@@ O@@?@P?@?@?@@ O@?@?N@ ?@?F@#PF@@$ '?@wP?@@ O@?@#PN@ ?@#PF@#PF@@$ '?@wP?@#PF@@$ '?@wP?@@2P@P@#+ ?@!?@!?P@?@?PP?@?@?@@?@@ @?@?@@?@iP)?P@?@?PP?@P@ O@ ?PPP@ O@@?@=P?@P@ O@?@@.P@ @@ @?@?@?@-@?@@ @?@?@@?@yP@P?@@2P ', @?@?@?@?@?@{P?@@2P ' @?@?@?@?@?@{P?@@2P 'P@ O@?@@?@ ?@}P?@?PO P@ O@@?@P P@ O@1@@?@aP@?@P?P@?@@2P ' ' 'y 's@@0@?@?@P@?@CP?@?@@?@CP?@?@?~@?>@?@P?@?@@?@?@?@P?@@2P@@0@?@?P@ O@?@P@ O@?@?@?@@?@?@?@}P?@@2P '?P@ O@@?@P?@P?@@2P '@@0@?@?@@ O@ ?@?@N~?@P@ @?@@2P '?P@?@P?@@2PP?P@ O@?P~@?@P?@@2P@@0@?@?@P@ O@PP?@P@ O@?(@?@PN@>@ '?@P?@P?@ N N?,@?@P?@@2PP?@@2P?P@ O@@ ?@?PP?@P?@@2P '@@0@?@@PA @ @?@P@ O@P@ O@C@@?@EP?@PPP@ O@PP?P@PAP@ O@E@@?@EP?@@ O@?P?@?P@?@?@?P?@?@PP@ O@?@@ O@PAP@ O@PAP@ O@{P?@!@?@G@?@1PpP>@?@P?@P~NPP>?@@P@P@ O@[PIO@@ @@ @@P@ O@>P>?@@ @?@?@PYP?@@?@GP?@?@[PP@ O@ ?@@ O@@?@?@?@P@ O@?P?@@FP?PP?@@FP@ @?PP@?@@ O@@ @@ O@ AP@ O@PAP@ O@PP?@?@@.P?@?@N~?@PAP@ O@AP@ O@PAP@ O@PP@P?@@2P '@@0@?@?(@@ @?@?@?@P@ O@S@@?@EPP?@P[P?@UO@?,@WO@?.@?@@ @AP"YO@[@ ]O@_@aO@@ @c@?@@ O@@?@P?@ҁ?@IO@ρP@ O@I@AP?@@ @?@@2P @@0@?@?P@?@@ @?@?(@@ @?@?@P>?@P@ O@?@@?@i@?@1P?@PN@@ @?@P[P?@?O@?@&@ @?@k@@?@?@?@P?@@ O@@?@P@ @?@?@WO@mO@oO@qO@΁?@@:P?@@@?@s@?@1P@ @?@@2P@@ @?@?@?@?@WP@ O@S@@?@EPP?@PP?@[P?@IO@?@P!WO@@ @AP?@?N@@ @?@PYP?@[P?@@ O@@@?@GP?@?@?@?@]P?@@ O@Ѐ@ @?@@2P@@0@?@?@?@?>@?>@@ '?@w@?@P?@?P?@P?@@2P@@0@?@?@?@?@ N F@ '?@?@> '?@?@?@P?@ F?@?@ N?@@ O@?@@?@?@P?@>@ '?@?@P7?@N?@@?@?@P-N?@@ O@?@@?@?@P?@@?@?@P?@N ?@@?@?@P?.@?@?@?@N ~?@?@@?@?@P@ @?@@2P?@@.P }@@?@aP?@@?@mP?@?@TOTO @@?@aP?@@ O@H@@?@aPC@?@F?@K?@P@ O@3?@dF FM.?@dF@ '?@@ @?@P@@?@aP?@dF$ '?@@.P?@@ O@@@?@aP!@?@P?@@?@?@?@P?@@ O@ @@?@aP?@@?@?@?@P?@@2P '' ' ' @@ @?@@?@@ @?@?@OO@ @@?@?@qP@ O@_@?@?P?@?P@?@@ @?@?@@ O@ ?PP@?@?@?@qP@ O@?P@?@?@?@sP?@@ @?@P@?@P?P@@?@aP?@@ O@@@?@aP?P@?@?@?@uP?@@.P@?@P?@@ O@@?@?@?@qP@ O@@@?@aP?@@?@?@?@P?@@ O@@@?@aP|?@N~@v?@?@@ O@@?P@?P?@aPidN< F~@ '?@@?@P?@?P?@aP?@ F$ '?@XOXO ?@@ O@@@?@aPJV@?@P?@@.P@ @AO@?@P?@~@v?@?@@ O@@?P@?P?@aP,dF@ '?@@ @?@P@@?@aP?@dF$ '?@@.P"@?@P?@@ O@@@?@aP?@@?@?@?@P?@@ O@@@?@aP?@@2P '' ' ' 'd 'y '-?P@ O@ ?P@@?@?P?@?@?@{P2?@@?@P?@P@ O@$P@ O@@''?@?@?@%?@P@ O@ P@?@?@?@?@P@P+ #?@@?@aP@PP@?@?@?@P?@@2P ' ' ' ' @@0@?@?@?@@?@=P?@@?@P?@P@ O@>P@ O@?@@?@P?@?@@?@P?@@ O@?@ N@v> '?@P?@?@@ '?@P?@?@@ O@ g@?@P@ @@?@?@?@PW^@?@P?@@?@PN?@@ O@%?@TN!?@N@@?@aP?@N@@?@aP?@N@@?@aP?@?@@ '?@P?@?@@ O@?@@?@P@?@PN@ @@?@?@?@P?@@?@aPP@ O@ P@ O@ @?@?@?@?@?@P?@@2P '# ' '\ '/ '@@0@?@PP@ @PP?@@ @?@?@@ O@ ?P?@?P@?@?P@?N@?P@ @@ O@P?@@ @?@?@@ O@ ?P?@?P@?@?P@?N@?P@ @?@@2P,@@0@?@?@?@?@?@?@?@?@?@?@?@?@?(@?(@?(@?(@?(@?(@?(@P?@?(@P?@?(@?(@@ @?@?@?@?@?@?@?ҟP@ O@?@?P@?@?ҟP@ O@?@?P@?@?ҟP@ O@ ?@?PP@ O@@?@=P?@@@?@@P`?(@?@oO@\@ @@?@'P?@P?@?@EN '?@@P@s @E WP@ O@YP?@[P?@IO@oO@@?@?@@?@GP?@?@]P@@?@EP՟P?@џP@?@GP@P?@?@oO@ P@ O@?@@ O@?@@ O@ ?@@:P?@@?@?@@?@CP?.@?П@@?@GP?@?@?@?@?@?@@ @?@@ P?@oO@_@@?@P?@@?@GP?@?@CP~?@?@@ O@?,@?@@ O@?,@?ߞ@@ @?@?@?ߞ@?@?>@?@?N@?ԟ@ ?~@?@?מ@~?>@?F@?@?>@ '?@?@@ O@)?PP@ O@P?@P?@?P@ O@?P?@?@?.@?՞@?~@?N@?@@?@CP?>@?N@?@?@?ҟP@?@P?P@?@?ҟ@@ O@?@?~@?@?@@ O@?@?F@?@?@?.@?.@?@@?@?֟@?@?P@ @?@?@@ O@%?P?@?P@?@?ҟ@?@?P@?@P?P@?@?@@ O@@ @?@?ߞ@?@?F@?@?@?.@?.@?@@?@?֟@?@?P@ @?@@2P ' ' ' 'E @@0@?@?@?@P?@?(@?P@ O@W?@P?@P?@@P [@@?@P@ O@?P?@?P@?@?@?@PP?@?@@ O@?@@ O@ ?@@?@?@?@P?@)?P?@?P@?@?@@?@?@?@P?@@ O@ ?@P?@@?@PP?@?P?@?P?@@P@@?@@?@P?P@?@@P?@P?@@P?@@2P '@@0@?@?@?@@ O@P@ O@@?@@P @@@?@@P?@?@?@N~?@P@ O@PPPPPP@P@@?@@PP@ P@ PP@P?@@2P@@0@?@?@P@ O@P@ O@?(@@@?@@P@@?@@P@P ?@?@?@N~?@PP@ O@@ @@P@ P@ P?@@2P@P!#@P@ @?@?@WP@ O@@@?@EPYP?@[P?@qO@@ @ @?@?@@?@GP?@?@]P@ @@P@?@cP?@@2P@?P@ O@(?PP@ O@?PPP@ O@?P?@?PP?@@FP.?PPP?@?PP?@@FP%?P?@?PP?N@?POO P@ O@P@ O@?@@ O@ P@ O@@ @@?@@@,P@?@@@,P?@?@@2P ''@@0@?@?@?@$Y?@ ?@?@ N F?@?,@?@?@@2P '@@0@?@?@?@?@?@?@?@?@?PP?@?PP@?@?PP?@?@?@?N@?@Z?@$Y?@V?@?@?~@?@?@ @ '?@ ?@P?@?@?@?.@2$Y?@@$ '?@ ?@P?@?@?F@?@?@F?@?@?F@?@?@?.@?@?N@ ?N@?@@?@P@ O@?,@?@@?@P?N@ ?@@ O@?,@?@ F?@?,@?P?@?@?@ '?P?P?@?@?P@?P@?@?@?P?@?@@2P '@@0@?@?@?@?@?@?@?@?@?@@?@P?@?@?(@?(@?(@?(@?@?@M@:P@?@?@@@P?@@BP ?P@?@?@M?@?@K?-@@?@?@?@?@P@ O@t?@@?@P?@?@u?-@?@?@P ~?@$Y M ?@$Y@$ '?@ ?@P$F =?1@?-@?@O@ '?@ ?@P$F =?U@?-@?@B?@ǟ@@?@P;N@ '?@ ?@P@?@P?@?@?u@?-@?@*&>N?@@ '?@ ?@P@?@P?@?@?1@?-@?@?1@?-@?@&>$Y@$ '?@ ?@P@?@P?@?@?1@?-@?@?@?@m=?M@o?@_?@?@$F =?U@?-@`=?M@ ?@ N$ F$F =?U@?-@?,@?@ ?@S?@C?@?@$F =?1@?-@?.@?@A=?M@?@?@?@ ?@?@@?@P> F?@?,@@ '?@P?@?@?@ FM?@ F?@?,@?.@?@?@ '@:P?@@?@?@@@P?@?@@BP?@?P@?@?@?@@2P '' ' ''x-Y''&vn'Y ' @0@?@?@ N F@ '?@P?@ F@$ '?@wP?@@2P@@0@?@?@?@?@@?@ ?@P?@?(@@ @?@@ @?@?@ F?@?@@ O@?@?@@ O@ ?@@ O@?@?F@M@ @?@?@?F@ F@$ '?@wP@ @?@?@?@@ @?@@2P@@0@?@?@@ O@ P@ O@?@@?@P?@aPN?@@?@úP?@?P@ O@?P?@?PP@?@@FP@?P?PP@?@@ @?@?@?@źP?PPP@?@?PPPPP?@?PP?@?PPPP?@?PP?@N?P?@?@ '?P-P@ O@?@P?@?@?@ӟ@?@@ @?@?@@?@ǺP?@@2P '+@@0@?@?@?@?@?@?@?@?@?@@ O@@?@=P?@?PP?@?PP@?@?PP?@?@@ O@ N?@?@~?@?N@?@ '?@?@?>@?@?@?@?@ ?@?@?@@ O@?@?~@ '?@?@@ O@?@?N@?@?~@N?@?N@?@ @?@?ޟ@?@?@?@?@?@?؟@?@ɺPq?@?~@?@?@~?@?N@@?@ '?@?@@ O@eg?@?@?~@ '?@?@?@?P?@@ O@@?@P?@&?@N @ 'P?@P?@P?@?@?F@ '?@?@?N@ '?@?@@ @?@˺P?@?N@ ?~@@ '?@0?@?P5@?@P3@?@P?@+@?@P?~@@ '?@0?@?P?@?N@@ '?@?@?@@ O@@ @@ @?@?@?@˺P?@@2P ' ' ' ' ' '0 '.@@0@?@?@?@?@?@?@?PP?@?PP@?@?PP?@?@@ O@ @?@P?@N~?@?@?~@?@@ '?@ ?@P?@?@?F@@ '?@@ @?@?@?@˺P+@?@P?@?F@@$ '?@?@@ O@@ @@ @?@?@?@˺P@?@P?@?.@?@@$Y?@?@P?@@?@P?@@2P '. 'e '- '+@@0@?@?@?@?@?@?@?@?@@?@úP?@?P@ O@ ?P@?@@ @?@?@?@źP?PP?@?PP@?@?PP?@?P@?@?P@ O@?@?P@?@?P@ O@?@?P@?@?P@ O@?@?P@?@?P@ O@{?@?P@?@?P@ O@u?@?@$Y?@pP@ O@m?@?@?~@?>@?F@?=@$?F@?=@?@?@?~@?@?>@?@?@@ O@ ?.@P@ O@?@@?@P@ @?@?@?~@@ '?@?@?@?P?@@ O@@?@P?@@?@ ?@P?@?@?F@@ '?@P6@?@P@ @@?@?@?@?@?@˺P,@?@P?@@$Y?@?@P?@@?@P?@?@?~@ '?@0?@?P?@@?@P?@@2P ' '0 '- '+ '. 'e@@0@?@?@@?@P?@@ @?@P@ O@?@?MK?-@<@?@PP@ O@6@?@P P@ O@?@*M@ @?@?PPP@?@?PPPP?@?P@ O@?@?PP@ O@?@?@?@?@?@ݟ@?@@ @?@?@@?@ͺP?@@2P' '- '+ ' ' @@0@?@?@?@?@?@?@?@?@@?@úP?@?PP@$Y?M@?PP?@?PP@?>@?>@?@N@?@úP?@@?@@ @?@?@?@źP?PP?@?PP@?@?PP?@?>@?@?@?@?@ $Y?@?@@ O@ s@?@P?@@ O@m@?@P?@?N@ ?@@?@?~@ '?@?@_?@?P?@?N@@ @@?@?@?@?@?@˺P?@?~@@ '?@0?@?P?@ @?@ ?@P?@?@?F@ '?@@ @?@?@?@˺P:@?@P?@$?N@?~@@ '?@0?@?P@ @@?@?@?@?@?@˺P@ '?@@ @?@?@?@˺P?@?~@@ '?@0?@?P?@@?@0?@?P@ @?@@2P' '- '+ '0 '.@@O?MO Y@N?@@PT@?@-P?@Q@?@-P?@?@N@ @?~@@ '?@OP?@?@@ O@@ @@@@P@ @?@@BP@BPߟ@@BP?@@BP?@?P@?@?@?@@?@gP@ O@@ @@ @@ O@@@@P?@?@@BP?@@BP?@?P@?@@P@?@@?@?@?@@?@eP?@ϺP@P@P_O@2P ' '   lisp_format_ *segtop  symbol_table xsymbtreeI}&1IɆ/lisp @ ,@Lamson.SysMaint.a Multics LISP Compiler, Version 2.12-EXL, October 22, 1982 25KIBIɄ>experimental_library>lisp_dir>cook>lisp_format_.lisp <=vSm2@eIVXLCDM $EF^{< ?R[QT|~&%G*POSA` Vioxz}"(*-/258:=?BDGJMPRUWZ]`cfimptw{~Unbalanced braces Unterminated ~< in format stringTop-Meta-Control-iethtwentthirtfortfiftsixtseventeightninetand illionthousandmbtrquadrquintsextseptoct and hundredthzerominus Mismatched bracketsUnbalanced bracketsUnterminated ~[ bad arg to ~[~@[ should have no ~;~:@[ is not definedies()Garbage format control stringUnbalanced backslashesMalformed operatornot defined as format op8lisp: ~A~:[~; (decimal pos ~D in format string ~S)~] - -lisp: ~A at decimal pos ~D in format string ran out of argsNot supported -- onefirsttwosecondthreethirdfourfourthfivefifthsixsixthsevenseventheighthnineninthtententheleveneleventhtwelvetwelfththirteen thirteenthfourteen fourteenthfifteen fifteenthsixteen sixteenth seventeen seventeentheighteen eighteenthnineteen nineteenth9Multics LISP Compiler, Version 2.12-EXL, October 22, 1982format MIT-Multics)1@8to خ@Ov!Y[^achlqv{  !'-28;=CHMSX]bgotwz~  "'-4<?CILQVY\`dhntw~  !'-3:@FIORU\_adgilnprz~  "(*028:ACJLSU[]cekmsv{  argsferrorsignal?floormat-money floormat-FEfloormat-fixnumfloormat-dissectfloormat-resize floormat-Ffloormat-fixnum-quicklyfloatlogbreakexptbarf^oddpfloormat-haulongformat-one-iteration*format-iteration-argsformat-multiple-iterationsformat-many-iterations*format-iteration-hack format-linelformat-charpos*format-chnames format:*#-varformat-get-chnameformat-lcprincflatcformat:*top-char-printerfixformat-print-englishformat-small-english-numbersformat-print-english-1format-print-roman-1format-print-roman-charassq}>)<[]{(format-skip-textformat-skip-bracketformat-case-processformat-case-skipformat-skip-paramsmember;*format-case-more? format-tab-toformat-formfeedformat-fresh-lineformat-nterpri format-terpri format-nthcdrformat-argmoveformat-integer-in-base-opformat-integer*nopointquotient remainderformat-tyo-digitbaseminusformat-integer-1 format-prin1format-lisp-object-opformat-justifyleftapplycenterright*format-flatc-streamformat-internalformat-interpret-arg*format-string-generator format-:^-tag format-^-tag*format-string-streamstringformat-one-string format-princlistformat-process-textformat-collect-paramsformat-read-opformat-call-optyo *format-flatcappendstandard-output *format-sfapquotetletlistifymaxformat-stream-defaultcharposlinelwhich-operations*format-string-linel*format-string-charpos*format-collecting-stringmaknam get_pnameformat-char-tablenreverse format-intern*format-obarrayobarraylength format-err atsign-flag colon-flagformat:atsign-flagformat:colon-flagsubstr*format-string-length format-op?format-pop-one-argformat-characterformat-repeat-charformatfail-act*format-string-index format-err1*format-original-args *format-args*format-stringformat-formfeed-1arg format-icall2format-tab-to-1format-stream-mapformat-fresh-line-1outfiles^r^w format-icall0 format-tyoprin1 format-icall1typep stringlengthflatsizegetcharn format-call1explodeCtoI format-call0tab-toformfeed fresh-lineterprisymbolprincplistfuncalllsubrgetlformat-ctl-one-argformat-ctl-no-argformat-ctl-multi-argformat-ctl-repeat-charmake-format-op-nameformat-make-propdefstatusformat-make-op-setupcompiledefundefine-private-routinefeaturelsberrorprogncarnewnameeqnotcondformat-make-op-setup loss lsb:mx-fullformat-make-realsymputpropsremproplambdaexplodenlesspimplodesstatus$$ format-ctl-one-argdefpropEE format-ctl-one-argFF format-ctl-one-arg^ format-ctl-multi-arg{ format-ctl-multi-arg< format-ctl-no-argorboundpsetq#\-alist backspacetabspaceformlinefeedreturnruboutbellhelpaltmodeCC format-ctl-one-argRR format-ctl-one-arg fillarrayarray[ format-ctl-multi-argfunctionTT format-ctl-no-arg|| format-ctl-no-arg  format-ctl-no-arg&& format-ctl-no-arg%% format-ctl-no-argGG format-ctl-multi-arg** format-ctl-multi-argPP format-ctl-multi-argOO format-ctl-one-argDD format-ctl-one-argSS format-ctl-one-argAA format-ctl-one-arg?format format-streamformat-flatc-stream format-flatcformat-flatc.RMacmacrofsfa|format-string-generatorformat-get-chardefine-format-opdefine-format-op.RMacformat-make-op-setup.RMacndoi1+=storeascii-noldmsgEmacs_; Loading format of format ([MIT-Multics]>experimental_library>lisp_dir>cook>lisp_format_.lisp)*source-file-information#>experimental_library>lisp_dir>cook lisp_format_lisp:compiler-version:culpritLamson.SysMaint:module:system:site :lisp-version:date]@?>=<;:9CDEFGHIJK  0"19876>BAFNATFU F  G  H6FOU6OE6 F!M"#$%&I'()P*,-+.6V0U1W2FX5F67G89H:6<=F>O?XA6CDBEOFGEH6JKILFMMNO@P;QRIST4UPVXYWZ6Y\X]W^FZaFbcGdeHf6hiFjOkZm6opnqOrsEt6vwuxFyMz{l|g}~I`P6[ZWFFGH8FO8OE8FMIP8\WFFGH8FO8OE8FMIP8]WFFGH7FO7OE7FMIP  7^  W`ba_`cdef g h f ijkl*)+(,'-&.%/$0#1"2!3 45678a9:;_<Fm?F@AGBCHD6FGFHOImK6MNLOOPQER6TUSVFWMXYJZE[\I]^>_P`bcad6nfmgWhjk`lnaopmq_rFouFvwGxyHz6|}F~Oo6OE6FM{ItP6poWrqPabcdefghijklmn?opqrstuvwxyz{|}~FFGH8FO8OE8FMIP8sW t6M Fu F GH7FOu7OE7!" #F$M%&'()I*+ ,P-!/0.17v3u4W5Fw8F9:G;<H=7?@FAOBwD7FGEHOIJEK7MNLOFPMQRCS>TUIVW7XPY"[\Z]7x_w`WaFydFefGghHi7klFmOnyp7rsqtOuvEw7yzx{F|M}~ojIcP 7zyWN9NO#9NMP#N9NO9NMPF{FGH7FO{7OE7FMIP$7|{WF}FGH7FO}7OE7FMIP %    7~}WFFGH8FO 8"#!$O%&E'8)*(+F,M-./01I234P5&78698;<W=F@FABGCDHE8GHFIOJL8NOMPOQRES8UVTWFXMYZK[F\]I^_?`Pa'cdbe8ghWiFlFmnGopHq8stFuOvx8z{y|O}~E8FMwrIkP(8WFFGH6FO6OE6FMIP)6WFFGH6FO6OE6FMIP 6WFFGH6FO6OE6FM     IP*6WFFG H!6#$F%O&(6*+),O-.E/61203F4M56'7"89I:;<P=+?@>A6CDWEG,IJKHLMOQRSPTUWYZ[X\]_`abcadfhijgklnoWpqDrtu`vxyz{|a}~w_`ta_WD=WDr -RIP.`a_A<A</1D_0 21/  a a^8 5`4GhXhtT\d4<Ua $2FLW{~R0D  f  ( S   , N a    8  V SRQPONMLKJIHGFEDC9786@?=<;:543210/.-,`+*)('&%$#"! _^]\ [ZYXWVUTSRQPONMLBA876543u.>^NN~n^N>.~~N>n^>n^N>N>~nN~N^N>.~~n^>.>>.~.~n_N> :;  #+(! sme^VNFBjf>:~|zbx^6v2 spsine=^ ]\[_Y[3V/@ @ 8obj_map x x  Y  lisp_gfile_ 10/05/83 1316.1re 10/05/83 1314.8 66456 @?@@?@@?@׺P?@?P?@@?@@?@׺P?@?@@2P@@@?@ @?@ٺP@ O@  @@?@ @?@ٺP?@ۺP@P8          ! # % ' P)PP+PP@ @ P@ @?@?P/?P@?@ݺP?@ߺP?P@@ O@@ @?@-@?@P/@?PP?@@ @@?@P?@?P@:P1@@?@3P@?@P?@P?@P@@P@ O@PP%PCOP @@:P'P@'P@PPPPCP%P#PPCPPP@P?@@?@P?@@2P@?P1O@@ @B?P@?@@ O@=P@ O@:@P,@@:P@@?@?@?@?@P?P@?@P?@?P??@@?@P?@?@?@ ?P@?@P?P@?@?@@ O@?@@spec>on>10/05/83-lcp>lisp_gfile_.lisp/   ;Z\^aegilnsuwy{} !$'*,026;>ADGJRW[^`begikmoqux{~ )ascii grindnxtchrtyiassqprintiocgrindseparatorg!bad?!?'!'>!>,!,<!<;!;$!$@!@"!": tyocomment.fillreadlistevalerror ;;* error( prin50comtj6;;;merge*macro pagewidth indent-tolengthnconccomspacecaarcargetloadopeniinpushprincnamesmergefopenouwritetyipeekreadch semi-commentrem;read prinallcmntterpriclosepagegrchrctturprirem;; fillarraypanmaxsprint1prin1gtab|;; user-paging grindlinct global-lincnttopwidthureadinfile!grindoutput Filing as !grind.output grindreadtable programspacecomnt;;?noutfiles^d^w^r^qlbase readtable*nopointlinelremsemiautoloadsprintersubrapplyufilegrind0 grindexmac grindatmac grindcommac grindcolmacputpropquote grindpredictgrindprogandnotboundpgrind-use-original-readtablesetqtornulllambda setsyntaxsinglesstatussplicing*array copysymbolfeatureiog ;loading grind lisp ! #"4`_4~}W|~}|}b}bn}L}}H}n}b}}W} W  5ed[Z !"#$}&'A(*+),-..b%1<kwvutsrqponmlkjihgfedcba4^]\[ZYXWVUTSRQPONMLKJIHGFEDCBA@?>=<;:987653210/.-,+*)('&%$ " -.~n^O>.~n^N>.^~n^O>>/%wIQ0/KH{zyx n @ 3obj_map T,  lisp_gfn_ 10/05/83 1316.1re 10/05/83 1314.6 206784 @@?@?@?@P?@@2P@@?@?@?@P?@@2P@@?@?@?@P?@@2P@@0@?@?@P @@?@P@ O@  @@?@P @@?@P@@?@@?@P@ O@@@?@P@@?@P@@?@P@@?@P@@?@P@@?@P@@?@P!@@?@P#@@?@P%@@?@P'@@?@P)@@?@P+@@?@P-@@?@P/@@?@P1@@?@P3@@?@P5@@?@P7@@?@P9@@?@P;@@?@P=@@?@P?@@?@PA@@?@PC@@?@PE@@?@PG@@?@PI@@?@PK@@?@PM@@?@PO@@?@PQ@@?@PS@@?@PU@@?@PW@@?@PY@@?@P[@@?@P]@@?@P_@@?@Pa@@?@Pc@@?@Pe@@?@Pg@@?@Pi@@?@Pk@@?@Pm@@?@Po@@?@Pq@@?@Ps@@?@Pu@@?@Pw@@?@Py@@?@P{@@?@P}@@?@P@@?@P@@?@P@@?@P@@?@P@@?@P@@?@P@@?@P@@?@P@@?@P@@?@P@@?@P@@?@P@@?@P@@?@P@@?@P@@?@P@@?@P@@?@P@@?@P@@?@P@@?@P@@?@P@@?@P@@?@P@@?@P@@?@P@@?@P@@?@P?@?PP?@?(@3?@@?@P?@@ O@?@?@+P1PP@?@?@?@P?@ߺP?N@@ @%@@?@պPP@ O@1P@?@P%@@?@պP=@@?@պPݺP@ P@ O@ ?@@?@P%@@?@պP1PP?@@2P@@0@?@?@@P @@1@1P~?@PP@?@ٺP?@?@?~@ '1P?(@@ @PP@P@ O@?@:PP@?@P@ O@1P~?@PP@?@ٺP?@?@?~@?@PP@@ O@ A@@?@P?@{@?@PPPP@PPP@?@P@ O@PP@?@ ?@?@?@ߺP?.@@P?@@2P '@@O?MO Y@N?@@P?@N@ @ @?@P/P@P_O@2P '@?@?@?@?P@?@P?P@?@?@@ O@?@?@@2P@?@?@?@?P@?@P?P@?@?@@ O@?@?@@2P@@PC0@?@?@?@P@ O@ E@@?@?@?@1@?@P?@G@ @?@I@?@?@?@P?@@?@?@?@P?@@:P?@@?@P?~@ F?=@?@?M@ ?@?~@@ '?@ ?@P"&@?@ͺP@ O@?@?@?@?N@@ @?@?.@?@ F@ '?@ ?@P?@ F@$ '?@ ?@P?@@2P ' ' @@0@?@?@?@?@?@@?@ͺP?.@?@@ @?@@2P@@P@şP@ O@ P?@?@ P@ O@@ @P?@?@ӺP@ @~?@%O@1P@?@P?@ P@ O@P@?@ӺP@ @l)O@(PP?@ @PP@?@7@?@P?@@ O@@?@@ @?@P@ O@RW@@?@PϺP@?@ۺPY@@?@PC-O@2PP?@ @PP@?@7@?@P?@@ O@@?@@ @?@P@ O@)W@@?@PϺP~?@PP@?@ٺP?@?@?~@ '?@ۺPY@@?@P=O@@ @ P?@ϺP@?@P?@?@?@ѺP@ @@P?@@2PP@ O@P@ O@ PPǟPNɟP~P@2P@P?@P@ O@@PP?@P?@?@?~@ '?@@2P@@O?MO Y@N?@@PP?@@ @?@?@N--@?@P?@?@@ O@?P@?@P@ O@?P@?@?@N?@N?@ ?P ~ '?@@ O@?P@?@@ @@P_O@2P ' 'ݺP@ O@?@@?@պPOP@ O@LPP@?@?@?@P@ O@PP@@ O@?@?@ͺPPP@P4şP@ O@PP@?@ P?@P?@˺P@ O@7@@?@P1P~@?@P?@ P@ @P@ @PPP@?@ӺPPP@@ O@ @?@ͺPPP@P?@@2P ' @P@P@ O@@PP?@PPPP @?@P?@P?@PP]@@P?@@2P '@P @@1@@@?@ӟ@?@PP@?@1P?@P?@ѺP@P?@@2P @@0@?@@P @@1@@P + 9 @ @?@?@?@?@?@ݺP@ O@P@ O@z@ @P1P@?@PP?şP@ O@P@?@ P?@@ O@gP@?@ӺP@ @`ϟP@ O@HPPO@DPP@@ O@?PPP@@ O@95@@?@PPPP@?@ϺP?@P?@ѺP?@@ O@%şP@ O@"PP@@?@?֟@?@˺P@ O@7@@?@PPP@@?@ϺP~?@P?@ѺPPP@?@ӺP@ @PP?PP?@@ O@PP@?@7@?@P?@@ O@@?@@ @?@P@ O@@ @P@?@P@ O@P>?@P@?@ٺP?>@?@ϺP?N@1P@?@P?@ PW@@?@PϺP1P~?@PP@?@ٺP?@?ݞ@?~@ '+P9@@?@?Ο@?@P9P@ O@@?@@ @?@PP11P@ O@P@ O@ Y@@?@P@ O@@ @PPP@?@?@P+P@?@?Ο@?@P?@@ O@/P@ O@ 1P@?@?Ο@?@P?N@?П@@ O@+P1P@ O@|9P@ O@P'O@vϺP@?@?Ο@?@P?N@nϺP1Pk/P@ O@/@P,P@?@P?@?؟POP@ @!P@?@P?@ϺP?@P@?@ٺP?@P@?@P?@ٺP?@?מ@?~@?@?՞@?~@ '?@P?N@@ @@ @?@@ PPP@?@1P?@ P?@@ O@@?@P?@˺P@ O@7@@?@P1P~@?@P?@ P@ @PPP@?@ӺP$@?@ͺPPP@PPP@@ O@?֟@@ O@ʁϺP1P@ PP@?@1P?@P?@P@ @@P@P?@@2P ' ' @@0@?@?@?@@P@@ @?@?@?@?@@?@P@ O@@ @pşP@ O@ PPcO@?@> 'P@ O@PP@ O@PP? şP@ O@ PPPeO@?@> '?@?@PP@@ O@?@> 'PP@? ?@>?@PP@@?@ٺP?>@5?@PP@?@?@?@?@?@ѺP?@@ O@ @?@P?@˺P@ O@7@@?@P?@~@ '?@?@?@P?@ѺP@ @PPP@?@ӺPPP@P@P?@@2P '@0@?@P?@ @ßP@ O@?@@?@PP@ O@ g@@?@PP@?@ӺPY@@?@P@ @?@@2P@@P@1@ @?@ݺP@ O@P@ O@}PP@?@1P?@ P?@@ O@@?@P?@˺P@ O@7@@?@P1P~@?@P?@ P@ @P]PP@?@ӺPP@ O@TPP@?@ٺP?@ϺP~P~@?N@ @?@ͺPPP?91PP~@?@PP@?@ٺP?N@.PP@?@P?@1P?@ѺP?@@ O@@?@P?@˺P@ O@7@@?@P1P~@?@P?@P?@ѺP@ @PPP@?@ӺPP@ O@1P@?@P@P?@@2P@@0@?@@P@şP@ O@ P?@ @@?@ P@ O@`P?@?@ӺP@ @WݺP@ @?@PP?PP@?@7@?@P?@@ O@@?@@ @?@P@ O@@ @<W@@?@PPP@?@?@?@ P?@@ O@@?@P?@˺P@ O@7@@?@P?@~@ '?@P?@ P@ @PPP@?@ӺPP?@@?@P@ O@@ @ @?@ͺP@P?@@2P ' @@P@@1)?@PP@?@1P?@PP@P@ O@P> ? P>?@P@?@ٺP?>@ ?@?@?@ߺP?.@P?ހ?@@P?@@2P '@P @@1@PI>?@P@?@ٺP?>@1PN@:1PNP?8@*PPP?PP@? 1P@?@P?@P?@P PP@?@@?@P?@P@ O@PP@@?@1P~?@PP@?@ٺP?@?@?~@ '?@P@P?@@2P ' '(@@0@?@@P @@1@1P~?@PP@?@ٺP?@?@?~@?@PPP@?@?@?@?@P?@PPP@@?@?@?@P?>@@P?@@2P '@P@@1?@1P.@1PN@*PP@?@ٺP?~@1PF@> '@P?@@2P '2@@0@?@?@@?@PF?@@$v?@@ O@@?@?@?@!P@ O@?@@:P@?@?@#P?P@?@?@@:P?@@?@@?@v?@@?P?@?P@?@@2P@PC@@?@@?@e@?@P@@?@@?@s@?@P@@?@@?@u@?@P@@?@@?@w@?@Py@@?@%P{@@?@%P}@@?@%P@@?@%P@@?@%P@@?@%P@@?@%P@@?@%P@@?@%P@@?@%P@@?@%P@@?@%P@ @PϟPP@ @P@P@@2P@@PC@ @@?@@?@e@?@P@ @@?@@?@s@?@P@ @@?@@?@u@?@P@ @@?@@?@w@?@P@?@ ?P@spec>on>10/05/83-lcp>lisp_gfn_.lisp  !Re!';><,?@"$nxF1  "$(*.02479;>@CFJMORUWY\_behknqtwz}  "%'*.158:=@DGKORUY]`dhlnqtwy|~   "$'/13579;=@BEHKMORUX[]`cfilorux{conniver-macros-forgotten:,@!$!"!@!?!'!,!<!>!;conniver-macros-learnedsgploses cnvr-optionalt!maknumassqflatsizesub1eval . "aux"last fillarray*charpos)(indent beyond linel?gapgetcharsubst setsyntaxapplycharlambdalistquoteread wrng-type-arg readtable wrng-no-argssetq grindpredictcode setq-predictlnmerror. 'fail-actexprfexprmacro thnoassertcexprargblockform2linetyoprin1equallengthputpropappendterpriprincdefpropcdefundefuntheoremvalue;tracedtracefeaturesstatuslineloutfilesstatusget arraydimsgetl makunbound*rearraygctwagtab|grind-use-original-readtablegrind-standard-quotegrindreadtablegrindproperties global-lincnt grindlinct cnvrgrindflag;;?comntprog?;;;grindfn grindmacroobarrayremsubrremfsubrremgrindremlsubr grindslewflatdata gflatsize block-predict prog-predictpanmaxmaxpangprin1gblockdone? grindargssprint1sprintergrind-unbnd-vrblsprintformpprin indent-toindent semisemi?semi?poplremsemiremsem1 setq-formmem-form block-form coment-formdef-formif-form prog-form lambda-formputgrind semi-comment prinallcmnt prin50comtj6rem;;grchrctnewlinelrem;topwidthpage cnvrgrind lispgrindcomspace pagewidth comment-form ?grindmacrogrindmacrocheck programspace unslashify1 slashify1readmacroinverse unreadmacro readmacrounformat unslashifyslashifypredicttestlmerge user-pagingfillturprigrindefgrind0grind grindnxtchrgrindseparator grindcommac grindcolmac grindatmac grindexmacconniverarray nofeaturelsubrfsubrrempropsubrconditsprog^whcrunitdskudiruprobe(init)ureadgodn1errset;loading grind (init) dsk cadr^qdoneinitandnoteqreturnloadstart_upcsetqmembermemqmapmaplistmapcarmapconmapcanmapcassocsassqsassoccommentremob**array*fexpr*expr*lexprspecial unspecialif-added if-needed if-removed1-+carboundpornullsinglesplicing*arraydatumiog ;loading grindef lisp ascii! $ !"$$%&!')$*+ ,.$/013$4568$9:;=%>?@ B%CDE G%HIJ%LMOQ:=S>UTV<WXY;ZC\B]HG_F`EaCbcBdQPfOgNhMi$k%ndepefrCt~uwyf{e}j~F<FB==j<9==k%%\=]]%B%>B+=F9p0=j== <    %%%    !#%~&B(~)m+,-(./012345678~9;<=>?@ABC~DF~G_`IJK~LNOPQ~R;T~U~WU=YZ[S=]^_`\aXb~cK=efxhBiFkGmHnolpqCrst^uGwFxyCz{|^}FGFC^HGFC^HGFC^r= %rBt= t  @ =8%\f}= ==8;@=rtBs= %sB#BvwHBQObNM=uBefjef% q    =]?!RxODUZEDOYcn %v#4F<_b,]|zx~EvC}|{zyxwvutsrqponmlkfjihgsqNdcbMOB=a;`Q_^]\[ZFomlYXHWVUTSR<jGLKJIeD^A@?[:9876543210/.-,+*)('&RPNKFA<72-(##"Gn>~n^~N>nn>N^O^~n^..^N^N.~nX ~E~vjgdVSMHE:*'$"x> @ Qkobj_map  R f  lisp_loop_ 07/06/83 0938.1re 07/06/83 0907.5 310716 @?@@ O@!?P@:P?PP@@ O@@?@?PP@@@P?PP?@@BP?PP@@?@P@DP?@@?>@?@?P@?@?@@ O@?P@?@?@@ O@?@?P?P?@@ @?@W@@?@?@?@3P?@@ O@!?@p@?@?@?@_P?@@ @?@f?@7O@c+O@a!O@_9O@]O@[_O@YO@O@q?@R;O@=O@?O@#O@h?@GAO@CO@ EO@ GO@ IO@KO@MO@%O@W?@4O@@@@ O@P@?O@M?@(WP@@@ O@P@?O@=?@?P@?@Q@?@3P?@@ O@@?@?@?@_P?@@?@]P?@@ @?@@?@W@@,P?P@?@ ?P@?@]P>?>@?@?P@?@?@@ O@?@@ @@?@W@@,P?@@2P ' ' ' ' '0@?Ο@?@eP?@@ @?@?@?@?@?@?@?@?@?@?@?@?@?PP@?@?PP@?@)P?@?@?P@ O@?P@:P?ԟ@@?ԫ@?P@?@?P@?@@ @?@AP?@?ҟ@?@ P?@?P@?@?P@ O@?P@:P?؟@@?ث@?P@?@?P@?@@ @?@AP?@?֟@?@ P?@?P@?@mP@ O@sP@ O@-?@@ O@ ?ԟ@@ O@?؟@@ O@?ڟ@@ O@!?ΟP@@P?ПP?@@BP?PP@BP?PPP@DP?@?@sP@ O@ ?@@?@U@?@P?@@?@W@?@P?@@ O@?@?@?P@ O@?P@:P?ܟ@@?ܫ@?P@?@?P@?@@ @?@AP?@?ڟ@?@ P?@?P@?@?P@ O@?P@:P?@@?@?PP@?@@ @?@AP?@?ޟ@?@ P?@ePPAO@mP@ O@ePPP@?@1P?@P@ O@?ܟ@@?@aP@@P?ܟ@@?@?@P@BP?ޟ@@?@aP@BP?@@?@P@DP?@?@?ԟ@@?@aP@@P?ԟ@@?@?@P@BP?֟@@?@aP@BP?؟@@?@P@DP?@?@mP@ O@IP@?@?@?@cPIPKP@?@?@?@cPKPp?@@ @?@?@?@=?P?@?P@:P?P@?@?@@ @?@?@?@?P?@@?@@ @?@AP@special_ldd>on>06/27/83>lisp_loop_.lisp>exl>lisp_dir>include>sharpsign.incl.lisp>exl>lisp_dir>include>defmacro.incl.lisp>exl>lisp_dir>include>other_other.incl.lisp>exl>lisp_dir>include>defun.incl.lisp +,sE;'$5EQ^k}.>MWds !?lisp: Illegal prep phrase(s) in INTERNED-SYMBOLS LOOP path -- 9lisp: INTERNED-SYMBOLS path doesn't work inclusively -- *lisp: Can't step sequence inclusively -- -lisp: Don't know where to start stepping -- -lisp: Missing OF phrase in sequence path -- Blisp: Conflicting stepping directions in LOOP sequencing path -- (lisp: Illegal prep in sequence path -- @lisp: Endtest redundantly specified in LOOP sequencing path -- Clisp: Iteration start redundantly specified in LOOP sequencing -- +lisp: Sequence duplicated in LOOP path -- 6lisp: Duplicated var substitition in USING phrase -- 1lisp: bad variable pair in path USING phrase -- (lisp: USING used in illegal context -- !lisp: unused USING variables -- (lisp: Undefined LOOP iteration path -- 8lisp: found where ITS or EACH expected in LOOP path -- .lisp: Malformed BEING EACH clause in LOOP -- 5lisp: found where THEN expected in FOR ... FIRST -- 6lisp: Unknown keyword in FOR or AS clause in LOOP -- ;lisp: Iteration starting inside of conditional in LOOP -- 7lisp: Iteration is not allowed to follow body code -- #lisp: Garbage where = expected -- .lisp: not allowed inside LOOP conditional -- 5lisp: Unequal data types in multiple collections -- -lisp: incompatible LOOP collection types -- /lisp: unrecognized LOOP collecting keyword -- /lisp: Bad varlist to nodeclare loop clause -- lisp: More ELSEs than WHENs -- lisp: can't hack this -- )lisp: Bad variable somewhere in LOOP -- ,lisp: Duplicated var in LOOP bind block -- :lisp: Duplicated iteration variable somewhere in LOOP -- ,lisp: Hanging conditional in loop macro -- 5lisp: found where keyword expected in LOOP macro -- (lisp: unknown keyword in LOOP macro -- @lisp: secondary clause misplaced at top level in LOOP macro -- lisp: Wrong number of args -- 1lisp: not a loop keyword - define-loop-macro -- $Wrong number of args in macro form: ) "$&(+-1358:=@GILNQTZ\^acekqtvxz|~  !#&).38@BDGJMPU\_binsuz} #)06=BHJMOTZbhlqvy~"'*-39>CHLORUWY[]`ejnrw|  prog2golp arraycallreturntminuspobarrayinoffromdownfromtodowntobelowabovebysi:loop-sequence-elements-pathdefine-loop-pathsi:loop-named-variableitsbeingsequenceindexloop-maybe-bind-formargs differencenotgreaterplesspsub1uptoupupfromdown eval-whenevalloadcompileorboundpquoteloop-path-keyword-alistsetqprognconsusingreversedefault-loop-pathhishertheireachtheloop-gather-prepssi:loop-sequencerfunctioncdrthen1->forloop-for-keyword-alistloop-end-testifynreconcfuncallmacrocaaaarcaaadrcaadarcaaddrcadaarcadadrcaddarcadddrcdaaarcdaadrcdadarcdaddrcddaarcddadrcdddarcddddrcddarcdadrcdaarcaddrcadarcaadrcaaarcdarcadrcaarnullsi:loop-simplep-1=itcdddrcddrloop-optional-typeloop-make-iteration-variableloop-typed-arithmember loop-cdrifyrplacdmaxplusadd1numberminsumcountintonconclistappendmaxminloop-emit-body loop-get-formloop-pseudo-bodyloop-make-conditionalizationlastelsefixnumflonumintegernotypeloop-constantpvariable-declarationstypepspecialloop-declare-variableloop-typed-init initial-valuegetprimitive-typesublis+$-$1+$1-$quotient/$times*$<+1+-/ remainder\* :data-typeapplyloop-hack-iteration!loop-optimize-duplicated-code-etcloop-bind-blocklambdaletdeclareend-loop next-loopprogandloop-iteration-variablesloop-iteration-variableploop-variablesloop-nodeclareloop-named-variablesloop-declarationsloop-desetq-crocksloop-variable-stackloop-declaration-stackloop-desetq-stack loop-prologueloop-emitted-body? loop-epilogueloop-after-epilogueloop-conditionalsloop-when-it-variableloop-collect-cruftloop-collection-crocksloop-source-codeloop-make-variablecondequaldelqsi:loop-simpleploop-output-grouploop-never-stepped-variableloop-duplicate-code loop-bodyloop-after-bodyloop-before-loopnreverseloop-translate-1substkeyworddefproploop-translateloop-iteration-keyword-alistloop-keyword-alistloopassqmemqlengtherrordisplaceeqfail-actloop-make-desetqcargensymloop-desetq-internalloop-desetq-temporarydesetq!si:loop-use-system-destructuring?loop-make-psetqloop-make-setqprog1statusfeaturesstatusmapcxysi:loop-tassocinterned-symbolsinterned-symbolloop-interned-symbols-pathdefine-loop-sequence-path macrodefine-loop-sequence-pathdefine-loop-path macro loop-add-pathloop-for-beingCompiler*exprloop-for-arithmeticloop-list-stepperloop-for-firstloop-for-equalsloop-do-repeat loop-do-forpluspzeropboolerotashldbatomcompilerloop-do-thereisloop-do-always loop-do-with loop-do-when loop-do-whileloop-do-collectloop-do-return loop-do-doloop-do-finallyloop-do-initiallyloop-finish macro loop-finishdefine-loop-macro macrodefine-loop-macrosi:loop-tassoc macrosi:loop-tmember macrosi:loop-tmembersi:loop-tequal macrosi:loop-tequalfirstonasrepeat initiallyfinally nodeclaredodoingcollect collecting appendingnconcingcountingsummingmaximizeminimizealwaysneverthereiswhileuntilwhenifunlesswith4.-UVW10YZ54]<;_:`9a8b7c6d4e5fhHEjGkIEIEnGoHEM7r6s45uRQwPxVUz{T|V~W}SXyOV`_^]@<:;9K87M6dUed~}|{zyxwvutsrqpo1U001U11FJHhIFJgHhI-1U--PQRn    X Oe    S  e$%&Y'V)*V+,-.(/Y01V2W34#567U8 :;9< =>"?@AUBD4FGEHIJUKLCM NnPQRnT>UV X Y?[\Z]^U`aTbSde,fgWh&ij%k$l#m"nopqrgstJuvwxFyz!{|2} ~IHhUWcS'  n23nXn45n6n78n9:UTWS'  VUTVWS'  V;4<6677MM::88AUjWi=>U W 1? 0@A/B/C.0-D-E--!F"-$%-'G(-*+--H.-01-3I4-6J7-9K:S)<L=)?M@(NBOSD,EOFPH,IPJ+LQM+ORP1+RSS*TUVTWQXNYKZG[C\A]>^;_8`5a2b/c,d)e&f#g hijklmno pqUrstWuUwxTy{W|}z~S'  :&E|zz_w=LMd  5    cWe+*)SX('&%$#"!U 0IH~G-nmlkjihgf<cb`aV54\[ZYvt 7NMLK89;: qpJmlFiEDCBA@?>=g^3\.2[/X,8.>.^.>N>.N>.>Nn^ N.Pv 97642kD10/.-,+*)(?_bWc=SO! @ o=obj_map z z    lisp_macro_macros_ 07/06/83 0938.1re 07/06/83 0907.7 19548 $@?ڟ@@?@+PN @@?@?ԟ@?@@?@-P?P@?@?ܟP?@?P@?@?ޟ@@?@/P?@?@1P?@1P?@1P?@@ @?@?ܟP?ܟP@?@@?@3P?P@?@@ @@:P?ޟ@@?ޫ@?@?@?ܟ@@ O@@@@P?ޟ@?@@:P?@?@@special_ldd>on>06/27/83>lisp_macro_macros_.lisp>exl>lisp_dir>include>defmacro.incl.lisp(  r Not a symbol (ONCE-ONLY): $Wrong number of args in macro form: -0369<?ACEHKMOQSVY\_chkolengthreversegensymerrornreversedisplacesetqletatomquotelambdalistconsnullcondresultfail-actsstatusfeature macro_macrosonce-only macrodefprop once-onlymacro "#%&' !  N>.($@ @ $obj_map $  lisp_other_other_ 07/06/83 0938.1re 07/06/83 0908.1 181512 @?P@?@@@@@P?@@BP?@?P@?@?@?@?@?@P?@@2P '@?P@?@@@@@P?@@BP?@?P@?@?@?@?@?@P?@@2P '@?P@?@@@@@P?@@BP?@?P@?@?@?@?@?@P?@@2P '@?@@?@PN @@?@?@?@@?@P?PP?@@@@@P?@@BP?@@BP @?P@?@?@?@?@?@P?@@2P ' @?@@?@PN @@?@?@?@@?@P?P@?@?P?@?PP?@@@:P@@?@@@P@?@@@P?@?@@BP?@@DP?@@BP@?P@?@?@@/OF'IJ(OJT,OJ`$OJ>special_ldd>on>06/27/83>lisp_other_other_.lisp>exl>lisp_dir>include>defmacro.incl.lisp>exl>lisp_dir>include>macro_macros.incl.lisp>exl>lisp_dir>include>setf.incl.lisp 01^=&&*throw: Tag must be a quoted symbol - &*catch: Tag must be a quoted symbol - $Wrong number of args in macro form:  #%(+.257:=@CEGJLNQTVY[^`behknqtw{  !#')-/359;?AEGKOQTVY^begjlprvx} rplacdlastxcloseifopenopenaopenooutopeniin nointerruptquotettyunlesstunwind-protect not-set-yetletlist*applyfuncallpsetqthrow wrng-type-argcatchboundpspecialdeclarecompileprognsetqnulldomemberlistmemq otherwiseselectqselect1--1++prog1conssetfcond<reversenreverseor <=-expander>gensymstorelambda arraycallappendatomflonumfixnumtypepequaleqoddpcdddrcddrcdrcadddrcaddrcadrcddddrcarlogand=notlengtherrorfail-actdisplaceboolesstatusfeature other_othercircular-list macrodefprop circular-listmacrowith-open-file macrowith-open-filewithout-tty-interrupts macrowithout-tty-interruptswithout-interrupts macrowithout-interruptslexpr-funcall macro lexpr-funcall psetq macro *throw macro*throw *catch macro*catchgetdefvarputprop ITS-defvarITS-defvar macrodefconst macrodefconst dolist macrodolist dotimes macrodotimesselectq-equal macro selectq-equalselect-equal macro select-equal selectq macro select macro caseq macrocaseq case macrocase notf macronotf negf macronegf decf macrodecf incf macroincf pop macropop push macropush unless macro when macrowhenITS-ififnITS-ifn ITS-ifn macro ITS-if macro>= macro>=<= macro<= aset macroaset aref macroarefcopylist macrocopylist listp macrolistp flonump macroflonump fixnump macrofixnump nequal macronequal neq macroneq evenp macroevenp rest8 macrorest8 rest7 macrorest7 rest6 macrorest6 rest5 macrorest5 eighth macroeighth seventh macroseventh sixth macrosixth fifth macrofifthbit-clear macro bit-clear bit-set macrobit-setbit-test macrobit-test lognot macrolognot logxor macrologxor logior macrologior logand macroG#+BCZYX^[]\^_`\^ab\^cd\^ef\^g\^hi\ ^j k \ m^l&mo^l^!" #$n%&'(5)^p+o,\-^q/r0\1^s3t4\5^u7v8\9^w;x<\=^y?z@\A^{C,D\E^|G-H\I^}K~L\M^OP\Q^ST\U^WX\Y^[\\]^_`\a^cd\e^gh\i^kl\m^op\q s^uvtwlxy&z |~^l^}n^l^n{5^\^\^\^\^\^\^\^\^\^\^\^\^\^\^\^\^\^\^\^\^\^\^\^\^\^\^\ ^ P \ 70Hp'PyEn Imas0Yhw 6Lf/"YWVUTSRQPONMLKJIHGFEDA@?>=<;:9876543210/.-,*)('&%$"!  n^N>p :rnjfb^ZVRN}J|F{By>w:u6s2q.p*j hgeca_[ip @ Bfobj_map   lisp_runtime_ 07/06/83 0938.1re 07/06/83 0906.5 56412 P@?@?@?@CP@ O@@ @?@@2P@P?@ ?P?@@?@?@?@EP?P@?@?@@ O@@ @?@@2P@P@?@?@?@CP?@?PO@@:P?PP@?@?@?PP?@@2P?@@?@GP?@ @?@ @?@?@?@IP-? @?@ @?@?@?@IP#?PO@ ?P@@?@@?@?@?@IP?P O@  @@?@?@?@?@?@IP @@?@?@?@@?@KP?@@2P@@0@?@?@?@?$$~?@?@??@?~@?@$$?@ '?@@2P@@0@?@?@? '?@?@?$$~ '?@?@$$ ?@?@?@?@?@$$?@ '?@@2P '@@0@?@?@?@?@?@@ @?@ ?P@?@?P@:P?@@?.@?@?@?@?@ O O?@@?@MP?@@2P ''@?@@ O@?@@ @?@ ?P@?@?P@:P?@@?@?@?@?P@@ O@?@@?@MP?@@2P@?@@ O@?@?P@?@?PP@@ O@?P@?@?@@2P@@0@?@@O?MO Y@N?@@P?@NN@@:P?@?@@+OF(IJ)O6JV%OJ`+OJ>special_ldd>on>06/27/83>lisp_runtime_.lisp>exl>lisp_dir>include>sharpsign.incl.lisp>exl>lisp_dir>include>defun.incl.lisp>exl>lisp_dir>include>other_other.incl.lispL J':T Wrong number of arguments: Random functional object - FSET9=?BDGILORVY[^`behjmqtx{~add1minusexptquotientsub1timeslistifyapply make_atomcatenatedelremoveremqremequalfuncallargfail-act make-listnreverse fmakunboundputproperror wrng-type-arglambdasubrexprmacrorempropgetlfunctional-properties-listdefpropash bignum-ash fixnum-ash symbolconccircular-list-lastrassocrassqassfind-position-in-listmemnbutlastbutlastfirstndpbldbfsetfsymevalfboundpsetqquotelsubrfsubrfexprarrayautoload$<#=">;@:A9BC8D7EFG6HI!J5K 5rNg|> !!  ..L43210/.-,+*)( '&$%?-V @ $bobj_map **BJ  lisp_setf_ 07/06/83 0938.1re 07/06/83 0908.0 52272 @?@@?@KPN @@?@?@?@@?@MP?P@?@?P?@?PP?@?@?@@@ @?@:?P?@ @@?@?@?@@?@MP@@?@?@?@OP?@@ O@ @?@?@?@?@?@QP& @@?@?@?@OP?@@ O@ @@?@?@?@ @?@MP?@@?@?@?@SP?@?@?ŀ @@@P?@?@@BP?@@DP?@?@?@?@UP?@@2P@?@@?@KPN @@?@?@?@@?@MP?P@?@?P?@?P@?@?P?@?P@?@?P?@?P@?@WP?@@ @?@?@?@YP?@[P?@]P?@@@@P@?@@BP@@@P?@?@@BP?@@BP!@?P@?@?@@BP#@@@P?@?@@BP?@@:P?@?@@special_ldd>on>06/27/83>lisp_setf_.lisp>exl>lisp_dir>include>defmacro.incl.lisp ./o=u$ setf,Barf! Can't find macro or setf property for Barf! Can't setf this: $Wrong number of args in macro form: \^begjnqtvx{~ "%(+-/137:=?BDILNRVY]`chk setf-cxxrsstatusdpbnthcdr arraycallstoresetargargssetsetplistputproprplacdrplacagensymcatenate make_atominterncdrletdefunsetfdefpropquotecompileprognlengtherrorgetfuncalldisplacesetqmacrofail-actfeaturerest4 setf-cxxr-errest3rest2fourththirdsecondcdddrcddrrest1cdr setffirstcar setfcddddrcdddarcddarcddadrcdadrcddaarcdaarcdaddrcaddrcdadarcadarcdaadrcaadrcdaaarcaaarcadddrcaddarcadadrcadaarcaaddrcaadarcaaadrcaaaarcdarcadrcaarcar status setfstatusldb setfldbnth setfntharraycall setfarg setfarg args setf symeval setfsymeval plist setfplistget setf defsetf macrodefsetf setf macrotb&de(g'hi(k)lm(o*pq(s+tu(w,xy({-|}.'.+/)/,*-1032(4.4(565(787(9:9(;<;(=>=(?@?(ABA(C.C(D6D(E8E(F  : F(G<G(H>H !(#I$%@'(I)*(,J-.B01J23(5.67/9:.;<(>6?@KBC6DE(G8HILKL8MN(P:QRMTU:VW(Y<Z[/]^<_`(b>cdKfg>hi(k@lmLop@qr(tBuvMxyBz{(}/~/(KNK(LL(MNMOPQRSTU VWX YZ[\] 13N$^_$`h+9GZt%%$#"! ca  ~~n^Nb`^31][YXVUSQO(|wsnjea\XSOJFA=84/+&" ~zvrnjf @ 3obj_map   lisp_sharpsign_ 07/06/83 0938.1re 07/06/83 0908.0 59220 @?@1@?@kP?@ @?@@?@@?@mP?@O@O@ O@ O@ O@ @ O@ @@?@?@?@@?@mP?@aNzN ~ '?@@@@@ O@P@?O@@ @?@@@@@ O@P@?O@@ @?@P@?@?@?@oP?@?@@ O@?@@ O@?@@ O@@ @+@?@P?@qPP#?@@ O@?@@@P?@?@@BP?@@BP?@?P@?@?@@:PP@PP?@@@P?@?@@BP?@?P@?@?@?P@?@?@@2P @@0@?@@ @?@?@sP?@?@0N9NuP?@@ O@?@0~ '?@ ?@?@0~?>@ '?@?@@ O@?@N uPsP?@@?@N uPsP?@!@?@ NuPsP?@#@?@?@aNzN ~ '?@P@?@?@?@oP?@@ O@ ?@@?@wP?@@?@%@?@mP?PP@ O@uP?PPP@ O@?PPP@@?@?@?@yP@special_ldd>on>06/27/83>lisp_sharpsign_.lisp>exl>lisp_dir>include>backquote.incl.lispl Z.@j   ? (6AMTX[jv2sharpsign-feature-test: Bad form after #+ or #- - %Unknown symbolic name following #\ - )Barf! ## is obsolete, you should use #/ #R please, not: sharpsign--macro8sharpsign-reader-macro: Unknown character following # - )sharpsign-set-syntax: Not a valid type - (sharpsign-set-syntax: Not a character - nullbellbs backspacetablflinefeednewlinevtffformformfeedreturncraltmodealtescapeescspacesphelpdeleteruboutR #&),258;=?BFHKMPSU[^ceilorvz| applynotorandstatusfeaturesharpsign-feature-test get_pnamesharpsign-character-alistgofoocompiler-stateevalfunction*sstatusibasereadcatenate make_atominterndefunquotesharpsign-set-syntaxcompileprogntyipeektyiItoCfuncall control-metametacontrolCtoIerrorassocdelqsharpsign-data-listsplicing peek-splicingpeek peek-macromacrofail-actsstatus sharpsign setsyntax#sharpsign-reader-macrosharpsign---macro-sharpsign-+-macro+sharpsign-\-macro\setqsharpsign-^-macro^sharpsign-#-macrosharpsign-,-macro,sharpsign-.-macro.sharpsign-'-macro'sharpsign-X-macroXsharpsign-D-macroDsharpsign-O-macroOsharpsign-R-macroRsharpsign-N-macroNsharpsign-Q-macroQsharpsign-M-macroMsharpsign-/-macro/defsharp-macrodefpropdefsharpCARQRTSX2WZAQA[AY]AQA\AB_AQA^ABaAUA`AB !"#$ % & ' ( ) * + , A5bdAUAcABZAUAeABgAUAfABiAUAhA B kA UAjA BmAUAlABoA UA"nA$%#&!'B(qA*UA,pA./-0+1B2sA4UA6rA897:5;B<uA>QA@tABCAD?EBFwAHQAJvALMKNIOBPyARQATxAVWUXSYBZ{A\UA^zA`a_b]cBdU|f~g}hPjbk _cfkp'5VUSQTRPONMLKJIHGFEDBA@?>=<;:9876543210/. -n^N>NnN)lB[i|ez[xQvGt=r3p)nlj hfec`^\3 @ 3obj_map c  lisp_trace_ 07/06/83 0938.1re 07/06/83 0907.6 104796 @@P @ @?@@P@ @@?@ѺP@BE>>GJohnson.SysMaint.m Multics LISP Compiler, Version 2.12b, February 3, 1983 6)OF+IB)OJ>special_ldd>on>06/27/83>lisp_trace_.lisp>exl>lisp_dir>include>backquote.incl.lispQ vLORUWY[`fjmpsvx{~  "%'*,/258;?ADGKMPSUWZ_aeilosvz~terpriprincfuncall) ( trace-indent-maxtrace-indent-incr copysymbolplistsetplisttypepnconcargsgensymappend*sstatus+cons1+listifyquoteexitvaluebothtrace-break-funlistenterargsetqtrace*g5trace-indentertrace*g4 trace*copiesfexprfnvalue/trace*g2arglistrecurlevandprin1*append*delq*nconcassocassqboundpfixpgctwagetgetllastmemqapplynconsnreverseprintputproprempropsstatusstatussublisxconssprinterdelqerrornouuotrace*subr-argssubrexprmacrofsubrtrace*g1goreturnerrthrow||entrysymbolargpdlwhereinexitcond entrycondcondbreakgrind definitionbadlambdafunctionnot?lsubr trace-printert trace-edsub untrace-1tracelossage traced-stuffuntrace nofeature trace-olduuoremtracebreak-in trace-ok-flagmapcarxsetfeatureornoldmsgiogvt ;loading trace lisp ascii |~ (-GFED#CBA@?>= <;:987654 3210/.K&QPONRK&J KbIJL&dZgkLI&Jn#efmjgqdq q^:Z!,Y=#p%  !"r"$) M H ! gs@doiGl!3`Z !!"#$,%c'(3)*`+#-.c/!01,2,3m5&L789:6;7<m>=?,@usBACxEFGyIJHKwLvMNDOtP95hjhol5@G7?jih=g8fEe61>B2:ca`_^]\[DZYXWVUTS MLKJIH-,+*)'&%$#"!}{z !~o_N>.~n^~~n^QA4&mjfeng#< @ 3obj_map  IU