;"I(U*U*UPROGNCONDSTATUSNOFEATURENOLDMSGTERPRIMSGFILESPRINCPNPUTU*UjuQUOTE;Loading DRAMMP 19pSETQxDEFPROPU:U*UT+INTERNAL-STRING-MARKER xALPHALESSPLISPV2071PUTPROPDRAMMP19U*U.UVERSIONPUSHLAMBDAXORFILE-EXIT-FUNCTIONS           xPTR-TYPEPPAIRU*U*ULISTVECTORSTRINGBITS:WRONG-TYPE-ARGUMENT~1G~S is not a ~:[~;U*]nUQ-~]sequence -- ~Spx xCERROR*:AR2U*@`*:ARNSI:GET-PRIMITIVE-SEQUENCELSUBR-0,8 1n@+ Z(+ ",8  Z(,8Z(,8,8 `,8 P( 0B+ "+0B+ "+0BA+6@g~g "+0B+6@g~g @ "+6@gg "/ Bg5B  ,,8,8!,8,8",8",8,8g},8g{,8g{",< B`+ g J!  ( H,X-,/,x ".U.U ARGS xANDFEATUREU+U.UCOMPLRSPECIALSI:NON-CIRCULAR-DEPTH-LIMITxBOUNDPPxVECTOR-SU*U*USI:CHECK-MULTIPLICITIESEQUALEQ-FOR-EQUAL?MEMMEMQASSASSQDEL*DELQU*U*URASSRASSQDELASSDELASSQMEMASSMEMASSQPOSASSPOSASSQPOSMEMU*U*UPOSQPOSHUNKSIZESI:CIRCULARITY-ERRORCARCDAREQSTRING-MISMATCHQFIXNUMU( FLONUM=$SI:DRAMMP-0,8 1n+'$ Z(+' ,81n+* 0Z(++ " ,8 Z(,8Z(,8Z(,8Z(,8Z(,8Z(@ ,8Z(,8,81n+5 ( Hg  g-,4BI g-,,8 g`A ,8 g~,80B+= "+B P  1B+?0B +A7@g|g "+B "(!/,85BN * J ,H,8,8g~[g|,8,8J",<,8 0.+K!PD "! * J  Hg,Xg~6@g~+n g|0B!+n `0B+n g~"4Bn1 Zg}0D"+W g g~#+I0D#+Z ( g g~$+I0D$+] g g~% 1 +I0D%+` g g~&+I0D&+d1 ,d,8,8g~,8g~",<'+I0D'+g ( g g~(+I0D(+j g g~) 1 +I0D)+m g g~*+I "+I@,<,< gz/. gz.0-,~0 ,<,< gy0B$+w * g} HgP(0 J`+y0B*+y * Jg,8,80( g}0B+} * J`+ g|+`/. Nw~ "w~ Bg-,~ >p5. 6@gz@+ g{-, $[gy+  Np@+ @@g{ ./ Nw "w Bg~ g|0B+7@g}+6@g{+ g}+G+7@g{+G7@g|+:w[g{ Bg+:w w@`2/g~+G.. g{-, Bg gw0B, 0+ g Jg+ g(N{6 8+B @ 0B,+Zg+[g Bg gz3Bg+4 gx1B!+%0B-+#+B g gzEgx@`4BB+4 g3Bg{+(+B g{0Bb+, g gz-5BB+40B.+/ gzE2Og+B+40B.+2 g gz/4BBb+4 g gz!4BB7@g}+:6@`+8Zg} Bg}+9Zg{XC`Zg{ Bg{+ gw @( 0B#+= g+B0B"+? g{+B0B*BA+A w-, +B "+G7@g}+D  g{ J`7@g~+FZg{ Bg{+ "-,0 ////.Uj,x x#/00 xRASSOC-0 ` ,8 1n+O Z(+O   ,81n+R Z(+S " ,8 Z(,8Z(,8 ,\,8,8D",8g~,8],8^,8^,8_,8_,8g{,8gz", D"<//,x1% xmQ^3 !,#]:].PK11 xT..112p+INTERNAL-TEMP-MARKER2 3xSUBR-,0Z[Z[ Z #z U-,( e,z K*)Q-,!z O%D-, z Zu-,(`1% z rBi$*-, $(-, $-, B $/-, * J * J,x(3`U8 GETSOURCE-TRANS 2414x-0,8 1n+q$ Z(+r ,81n+u 0Z(+u " ,8 Z(,8Z(,8Z(,8 ,,8,8g,8g~,8 ,8,8,8,8,8gz,8gy",<//0KW,x%% x=q^ ,#Xm%5 xU@DELASSOCCAAR-0,8 1n+ 0@Z(+ ,81n+ P`Z(+ " ,8 Z(,8Z(@0,8 ,,8,8,8g~,8,8,8@00,8,8,8g{,8gz",<//,x*jw5& xQE*!6$X51 xT..126p7 3x(-,Z[Z[ Z $z kLu-,2AJ(6z JJ)Q-,!z O%D-,z ,Lu-,2A@5& z $P,x&& xQT16$h%&5 xMEMASSOC-00,8 1n+> Z(+> ` ,81n+A Z(+B " ,8 Z(,8Z(,8 ,K,8 ,8,8g~,8L,8,8M,8M,8N,8g{ ",8gz",<//,x7' xVe*1!6%z]`0"x:71 xT..138p8 3x-,Z ([Z[ Z "z  M-,6z JJ)Q-,2AJ(!z O%D-,z ,Lu-,7' z ' o `-,0@  $(-, $-, $/-,2  p * J * J,x3N 8474x-00,8 1n+` Z(+` ` ,81n+c Z(+d " ,8 Z(,8Z(,8Z(,8 ,n,8,8g,8g~,8o,8,8,8p,8p,8gz,8gy",<//,x'' xVt"/T6"x\'5 xPOSASSOC-0,8 A@1n+u Z(+u ,81n@+x Z(+y " ,8 Z(,8Z(,8 ,,8,8,8g~,8D ,8,8,8,8,8g{,8gz",<//0D_,x9( xBGmq !6*q91 xW8 T..149p: 3x-,Z[Z[ AJ(Z *z nU-,6z JJ)Q-,!z O%D-,2AJ z Zu-,9( z ~m`-, $(-,0H! $-, $/-, * J!| * J,x 3 :494x-0,8 A@1n+ Z(+ ,81n@+ Z(+ " ,8 Z(,8Z(,8Z(,8 ,&,8,8gD,8g~,8',8',8,8(,8(,8gz,8gy", D%<//,x(( xB[^Q 6*u@(5 xPOSMEMBER-0,8 1n+- 0@Z(+- ,81n+0 P`Z(+1 " ,8 Z(,8Z(@,8 ,:,8,8,8g~,8;,8<,8<,8=,8=,8g{,8gz",<//,x:) xV .S"jw !,*():1 xT..15;p; 3x(-,Z[Z[ Z *z nU-,2AJ(,z JN5-,!z O%D-, z Zu-,2A@:) z f_aL:-, $(-, $-,2H$ $/-, * J * J,x_@83> ;4:4x-0,8 1n+O 0@Z(+P ,81n+S P`Z(+S " ,8 Z(,8Z( ,8Z(,8 ,^,8,8g,8g~,8_,8_D,8,8`,8`,8gz,8gy",<//Q >U,x)) xV^Z ,*K)5 x*RSETLISTPPBDSI:CHECK-TYPER,8,87F<+e && $< `=@ B`,X-,,8,87@g+p [g B`7@ " (B{Z0B+o Z`2Dg+o `+qZg Bg+g "t/,x`3aVECTOR-POSASSQ,8,8 "-,0@`A4B*,80B+ g-,0`,<,8,87@g+[gd B`7@ " (B{Z0B+[`@ 2Dg~+ p-, +:pZg Bg @`0+y "//-,+ P  1B+0B + g g=+ * @ J ,,8,8g,8,8",< *  J $ Bg g)//` ,x) 3r,8,87F<+ &(  $< `= B` `-,4B `@  g$ Bg-,4B ` g#~/,x3;