CORE@:' @+a\  , @P, #@L, C@D, c @<894489@H~Xx~Yx~Zx~[x}{x|#x~Z;~xN }cP#Cc 48@ 8848A샕;xN ,Atri|(@ xc ;N iK2Q,A8Y|A 9K8x? ;9)N     b18z Tc8|exA~1*V;8|0ePc{W{;8~108r&xxN 8HN 8|xH|c"TeP*|c*TeѾ|c*x879|0@Te8|c*Te|c*xTex |c*Tc8Tx~N   |xpc@d|x@xp$p|b18`A~1V88|0Pc8` x8~108r&;~xN r9`}{x~x;N |xx;~xN |xpc@d|yQ@xp$p|Pb18`A~1V88|0Pc8` x8~108r&;~xN r9`}{x~x;N |xx;~xN |xpcp+p@||p@ |H|d&@\b18`A~1V88|0Pc8` x|p|c*y8` A 8` x8~108r&;~xN r9`}{x~x;N |#x;~xN |c!N |c!N |cp|c!N ,Ax|#|!|dPT:N ,Ad|#|!|dPT:N ,AP|#|!|dPN  xqk|A r9`}{x~x;N ;A~Xx;~xN  xqk|A rI9`}{x~x;N ;@~Xx;~xN  xqk|A r)9`}{x~x;N ;A~Xx;~xN  xqk|A rY9`}{x~x;N ;@~Xx;~xN |s A@A s+@~Xx;~xN ry9`}{x~x;N ;;~xN  xqk|@A4~Xx;~xN r99`}{x~x;N ;;~xN  xqk|@A4;;~xN r99`}{x~x;N ~Xx;~xN !o !o !s     @ 'y @ J @' HJ4 @G  ax @g @c~u @ @+gt*8 @ @+z @ @[炬 @ @&D2| @ @tPVS @ 0㕰 @/ OP @W @hM݄ @ A$ @ @ @ =>( @ 3( @  @? i6 @_  j @ %< @ q,L @ @n+ @  @ #. @ a@ @G D @W  @g @K @ k @ U@ @ fk @ \  @ 0 @ i"( @ G  @ N  @ TD @ N @' @@,Hq@,Hq@@3O@3O@@3@3@'@4 q@4 q@W@4~@4~@@5@5@@6@6@@64@64@ @G @w @@6X@6X@@4@4@@6u@6u@'@6{@6{@W@6@6@@78@78@@72Y@72Y2 NIL2T2TLISP-ENVIRONMENT-LIST2XLISP-COMMAND-LINE-LIST20*BATCH-MODE*2\*INITIAL-FDEFN-OBJECTS*2D%INITIAL-FUNCTION2 MAYBE-GC28INTERNAL-ERROR2DHANDLE-BREAKPOINT2HFDEFINITION-OBJECT2x*READ-ONLY-SPACE-FREE-POINTER*2l*STATIC-SPACE-FREE-POINTER*2*INITIAL-DYNAMIC-SPACE-FREE-POINTER*2T*CURRENT-CATCH-BLOCK*2x*CURRENT-UNWIND-PROTECT-BLOCK*2@*EVAL-STACK-TOP*2x*FREE-INTERRUPT-CONTEXT-INDEX*2P*INTERRUPTS-ENABLED*2L*INTERRUPT-PENDING*2@..SLOT-UNBOUND..2,*CMUCL-LIB*2D*CMUCL-CORE-PATH*2P*LINKAGE-TABLE-DATA*2d*CURRENT-REGION-END-ADDR*2h*SCAVENGE-READ-ONLY-SPACE*2 KEY2VALUE24KEY-AND-VALUE20KEY-OR-VALUE2SPARE-92SPARE-82SPARE-72SPARE-62SPARE-52SPARE-42SPARE-32SPARE-22SPARE-12SPARE-0:@= @ @  :@= @  :@@= @  :@@@= @/  : @@@=> @ 2LENGTH Tt @ 2$TWO-ARG-+~: @ 2$TWO-ARG--Qb @? 2$TWO-ARG-*o @o 2$TWO-ARG-/2 @ 2$TWO-ARG-<+wP @ 2$TWO-ARG->dJ @ 2$TWO-ARG-= @/ 2(TWO-ARG-<=n @_ 2(TWO-ARG->=k- @ 2(TWO-ARG-/=?ո @ 2 EQLml @ 2%NEGATEY)\ @ 2,TWO-ARG-AND>(n  @? 2,TWO-ARG-IOR1|0 @o 2,TWO-ARG-XOR88 @ 2,TWO-ARG-GCDB24 @ 2,TWO-ARG-LCM3n @ 2MEMBER@  @ ' 2INLINE@ 7w& @ O 20MAYBE-INLINE@ g/v( @  2$NOTINLINE  @ g@ @ 7@ @ @ @@ m%4 @  2DEFTYPE&x @  2INLINEP=( @ ' 2HDO-ARG-COUNT-ERROR@  ::@:@@: @@@=@= @    :@@@=@ @= @   2 @ @ ? @ @ G@ @  : @ @ @ @ ?@(+@ W@ @i@-@ @ @ @ G@  @i @ ?@o@::    r r |xH:|A|Ar,A`; ~x:<`8c|iN 0~гx`:s@|@( o}{x|ox;xN r T~x:3~[x9`;:X}{x|#x~xN V~гx`:s D; ~x:<`8c|iN h~гx`:s`|Ar ; ~x:<`8cX|iN |~гx`:sx|Atr,@h~VxKd2,(#:whole-0)A7 @ 2 FUNCTION' k @ 2CONS@ @@@@  '@@@ @/ 2BOOLEAN2 @ @? @@ @@  : @@@ @?@(+@ W@ @9@@ @ @@ G@  @9 @?@o@K::    r r |xH:|A|Ar,A`; ~x:<`8c|iN 0~гx`:s@|@( o}{x|ox;xN r T~x:3~[x9`;:X}{x|#x~xN V~гx`:s D; ~x:<`8c|iN h~гx`:s`|Ar ; ~x:<`8cX|iN |~гx`:sx|Atr,@h~VxKd@ @@;@@C5#l@ @o 2 %DEFTYPE@W@Ka@Ka28Top-Level Form@`L @ 2$TOP-LEVELFFt($0 6 @ @@@@ @@  @:@@ @@(+@ W@O @@]@@i@ @@9@ @ @@o@:: 3 9`;:}{x~x~xN ~гx`:s39`;:}{x~x~xN 0~гx`:s@~Xxo}{x|ox;xN 2()@ : @@@=@= @ 0  Gi0 @ 2(TYPE-CLASS'Ϝ @/ 2 @ @ @O@o@@  `: @@@ @W@(+@w@@A@ `@@@G@A @@_@::  s,@@ |A$/, @$+ |@xH " 9`;:}{x~x~xN 4~гx`:s0 uTd>T:|xH|+x8f~.8f~.8| Ao}{x|ox;xN 2(tc)@ @ @k@s@@{@@A@A;J! @ 2%%DEFUN@@L@L: @@@=@= @ X  M)(L @O 2@STRUCTURE-OBJECT]3¤ @ 2DSTRUCTURE-OBJECT- e @ 2TMAKE-STRUCTURE-OBJECTFWdx @ 2TCOPY-STRUCTURE-OBJECTk @/ 2HSTRUCTURE-OBJECT-P}kd @g 2 INSTANCE@O k < @ 2$STRUCTURE@ Ml @ 2,UNSPECIFIED@@7 @o@ @@ @{ @'     @ :@@#h @o 2(%DEFSTRUCT@W@+Y@+Yo @ 2P%%COMPILER-DEFSTRUCT@@I@IFF((0   6 @ @@@@ @@  `:@%@ @@(+@w@_@@m`@A@@@@G@@@@ @@o@:: 3 ~Zx9` ;:}{x~x~xN &~гx`:sh3!9`;:}{x~x~xN 6~гx`:s(%)9`;:}{x~x~xN F~гx`:s~Xxo}{x|ox;xN @@{@ F8 @  2@ALLOW-OTHER-KEYS2hDEFSTRUCT STRUCTURE-OBJECTF G14oF6 @ @@ '@!?@!O@!_@ < 0`@!: | @! 2 OPTIONALFp N-CONTEXT-2 N-COUNT-3Fx , (  6@ @ @!@!@!@!@"g@ < ``FF48@6 @ @ @"@"@"@ < `:@!m`@"u@"@ @!@(+@w@#@#a@#-`@ @=@#a @@$@%K:: ~x, ~ZA`4@$~x|Z848A4A04A$4#A4CA 4c 8k~P|dx8d|ex~Ux~Xx~Yx~Zx|ppcTc:,@pH4|+x8f.8|+x8f~. |A<|+x8,@|@H0|@8z~. $xK #b18`A~1V48|0~Pb8`t8~108r&~x}{x~ϳx;~xN 2(&key)-09 @%' 2&KEY@% @7 @%3@%;@@%C@@#a@#aFFD(( 6 @ @@@%g@%o@%@  `:@%@ @@(+@w@%@&@%`@#a@@@& @@o@:: 3 ~Zx9` ;:}{x~x~xN ~гx`:s~Xxo}{x|ox;xN @&@ : @@@=@= @& $  @' @'/ 2FILE2htarget:code/type-boot.lisp2l$Header: /project/cmucl/cvsroot/src/code/type-boot.lisp,v 1.9 1994/10/31 04:11:27 ram Exp $ ^ [Jzs1 @&@'@'?@'g@'@'@' @( x @(O 2X*VALID-FUNCTION-NAMES*l @( 2ASSQ@(o@I@Icd @( 2ACONS@(@H@H::@:@@: @@@=:@@@=@ 2DEFUN %DEFINE-FUNCTION-NAME-SYNTAX2LISP: @@@=:@@@=@ }94 @) 2p%DEFINE-FUNCTION-NAME-SYNTAXFTG2oG3G40F >  @ @)@ '@)@* @*@ < `FFOUNDNAMEdSYNTAX-CHECKERF4`0 ` `4 ` `` `>` @ @) @*_@* @*@  `: @*%@*@ @)7@@)g@+0@+a@+-@(7@(@(@+a @)@,@,::   / 4,A؃ 9`;:}{x~x~xN $~гx`:sp|A0o}{x|ox;xN T,Ad /9` ;:}{x~x~xN F~гx`:s K  2T(name syntax-checker)' '@,' @,@,@@,@)@+a@+aA, @- 2%CHECK-6 p @-/ 28-FUNCTION-NAME2X @-_ 2,SYMBOLICATE@-G H @- 2DEFUN' @- 2QUOTEN @- 2PROGNbl @. 2 DEFMACRO , @.G 2lDEFINE-FUNCTION-NAME-SYNTAXml @. 2 VAR@.o v @. 2NAMEji @. 2&BODYrh @/ 2BODY@. @.@/@.@/@.@/# '3 @/O 2pDEFMACRO-BOGUS-SUBLIST-ERROR@/wo @/ 2KIND@/v @/ 2NAME@/lJa @/ 2OBJECT@/ntBD @0 2,LAMBDA-LISThN  @07 2ERROR@0@+;q@+;q2DEFMACRO DEFINE-FUNCTION-NAME-SYNTAX@0q|l @0 2MACRO@./ @0@0F8G5oG6F .D @0 2DELETED: @0 @ @0@ '@0@0$@1@ < FX COUNT COMMON-LISPCOUNT COMMON-LISPLIST COMMON-LISPLIST COMMON-LISPNAMESYNTAX-CHECKERTAILTAILWHOLE-0dF0HAA@        D   P AAAA AAX: @0 @ @0 @1_@1$@3?@  : @1%@3M@ @0W@@)g@3@4@3@,@-@-w@-@-@@)@-@-@./@.@ G@ @/+@/7@/w@/@/@/@0G@4 @0@;@;[::@   r r r ~xr,@ r |xH:|A,; ~x:(<`8c|iN J~гx`:s|@xr |xHD:|A|Ar,A ; ~x:<`8c|iN f~гx`:sh|@肏 r r ~xr  r r  xS9` ;:X}{x~x~xN ~гx`:sxb18`A~1V:8|0CPcZTxT8~108r&~xob18`A~1V68|0~ðPb~Գx:4:Tt8~108r&~۳xxb18`A~1V68|0~ðPb~Գx:4T8~108r&!~xb18`A~1V:8|0CPcZTx:4T8~108r&%~ٳxb18`A~1V68|0~ðPb~Գx:4:TT8~108r&~ڳx)yxb18`A~1V68|0~ðPb~Գx:4:TT8~108r&~سxo}{x|ox;xN ~x:-31Os58`d8`d99`;:}{x|#x~xN :~гx`:s= D; ~x:0<`8c|iN L~гx`:sЂ|Ar ; ~x:<`8cX|iN `~гx`:sx|Ar,@~VxK r T~x:-31sA8`dD99`;:}{x|#x~xN ~гx`:s= D; ~x:X<`8c|iN ~гx`:s|Ar ; ~x:<`8cX|iN ~гx`:sXx|A8r,@,~VxK(~x:$E3IS-sM1QU5 Y9`$;:@}{x|#x~xN Ц~гx`:s2\(name (var) &body body)K,p @;? 2LIST@;' @,@;K@@;S@0@4@4( @; 2L%COERCE-TO-FUNCTION@;w@9@92lDEFUN VALID-FUNCTION-NAME-P5| @; 2TVALID-FUNCTION-NAME-PF8G1oG2F 6@ @ @;@ '@<@<7(@ @ @Ao @B@Bo,@C/@  : @A@C=@ @A?@@)g@Cw @C@C @@G@@7@@o@A3@ G@  @C @Ao@?@F::    r |xHL:|A; ~x:<`8c|iN (~гx`:s`|@ r r  r |A<~Xx/ o}{x9`|ox:~Zx~[x;xN |Ar,@t,@;~xK|Ar,A~Xx~xK |@~Xx~xKl~x9`;~xN ~x:~YxO s8`dD9`;:}{x|#x~xN ~гx`:s! D; ~x:X<`8c|iN ~гx`:s|Ar ; ~x:<`8cX|iN ~гx`:sXx|Ar,@~VxK@? @?@F@@F@Ao@C@CAt @F 2SPECIAL@(7 @F@F1 T @F 2 PROCLAIM@F@ya@ya: @@@=@= @G'   :@@@=@G=@= @G   2ptarget:code/fdefinition.lisp@G@G_  @H7 2hSET-DEFVAR-SOURCE-LOCATION@H@L.@L.2Define (NAME ...) to be a valid function name whose syntax is checked by BODY. In BODY, VAR is bound to an actual function name of the form (NAME ...) to check. BODY should return two values. First value true means the function name is valid. Second value is the name, a symbol, of the function for use in the BLOCK of DEFUNs and in similar situations.v\ @I 2(%%DEFMACRO@I@Ky@Ky2|First value is true if NAME has valid function name syntax. Second value is the name, a symbol, to use as a block name in DEFUNs and in similar situations.28Top-Level FormFFL(   $44  4  4  <  4 6 @ @J@@J@J @KO@  :@KU@ @J@@)g@Kl@L!@K @F@G@(7@(7@(7@H @H_@+a@)@@4@./@Ho@J@=@;@J'@C@Ao@F@@G@,@L! @J@N@::  9`;:}{x~x~xN 2~гx`:s8,@~Xx3!%9`;:(}{x~x~xN J~гx`:s؃-3)~Zx19` ;:p}{x~x~xN \~гx`:s935S=A9` ;:}{x~x~xN n~гx`:sHI3ESM19` ;:}{x~x~xN ~гx`:sU3Q~Zx19` ;:H}{x~x~xN ~гx`:sY4|Al]a9`;:}{x~x~xN ~гx`:sh~Xxo}{x|ox;xN 2()@L!@&2DEFINE-FUNCTION-NAME-SYNTAX MACRONH< @N 2h%CHECK-MACRO-FUNCTION-NAMEF8G0oG1F 6@ @ @N@ '@O@O70@OG@ < F( NAME0dF0(  <6 @ @N @O@O0@O@ @< : @OU@O@ @N@@)g@P@Pa@P5@@7@Pa @N@?@Q[::  x~ijx~xO/ 8x9`}{x~x:x;N ~гx`:s/ O,A ~Xx}{x|#x;SxN s# 4xr  9`;|#xWx~xN @? @?@QK@@QS@N@Pa@Pa2DEFINE-FUNCTION-NAME-SYNTAX COMPILER-MACRO8w @Q 2%CHECK-COMPILER-MACRO-FUNCTION-NAMEF8G0oG1F 6@ @ @Q@ '@Q@R4@R@ < F( NAME0dF0(  <6 @ @Q @Rg@R4@R@ @< : @R-@R@ @Qw@@)g@R@S9@S @@7@S9 @Q@?@T3::  x~ijx~xO/ 8x9`}{x~x:x;N ~гx`:s/ O,A ~Xx}{x|#x;SxN s# 4xr  9`;|#xWx~xN @? @?@T#@@T+@Q@S9@S92DEFINE-FUNCTION-NAME-SYNTAX FLETŨ @T 2d%CHECK-FLET-FUNCTION-NAMEF8G0oG1F 6@ @ @T@ '@T@T8@T@ < F$NAMEF(0<6 @ @T @U/@UG8@U_@ < : @T@Um@ @TO@@)g@Ux@U@U@@7@U @T@?@Vs::  x~ijx~xr ~xr  9`;|#x7x~xN @? @?@Vc@@Vk@T@U@U2DEFINE-FUNCTION-NAME-SYNTAX LABELSII @V 2l%CHECK-LABELS-FUNCTION-NAMEF8G0oG1F 6@ @ @V@ '@V@W<@W'@ < F$NAMEF(0<6 @ @V @Wo@W<@W@ < : @W5@W@ @V@@)g@Wx@X)@W@@7@X) @V@?@X::  x~ijx~xr ~xr  9`;|#x7x~xN @? @?@X@@X@V@X)@X)2@DEFUN MAKE-FDEFNI1c @Y 2(MAKE-FDEFNF8G0oG1F 6@ @ @X@ '@Y@Y7@@YG@ < @F$NAMEF4(P6 @ @X @Y@Y@@Y@ < @: @YU@Y@ @X@@)g@Z@ZI@Z@@ZI @X@?@[::  xb18`A~1V88|0Pc8`Ɛx<`8c cXx8~108r&}{x~ϳx;~xN =ʔ @Z 2FDEFN@Z @?@[@@[ @X@ZI@ZI2@DEFUN FDEFN-NAME L @[g 2(FDEFN-NAMEF8G0oG1F` 6@ @ @[O@ '@[@[D@[@ < FDFDEFNKERNELF4T6 @ @[O @[@\D@\7@ < P: @[P@\E@ @[/@@)g@\p@\@\@Z@\ @[O@]7@][::  s,@x,@ xH "}{x~ϳx;~xN 2(fdefn)@Z ' @]C@]K@@]S@[O@\@\2PDEFUN FDEFN-FUNCTION|k$ @] 28FDEFN-FUNCTIONF8G0oG1F` 6@ @ @]@ '@]@]H@]@ < FDFDEFNKERNELF4T6 @ @] @^G@^gH@^@ < P: @^ P@^@ @]w@@)g@^p@_ @^@Z@_  @]@]7@_::  s,@x,@ xH "}{x~ϳx;~xN 5kx @_ 2OR| @_ 2NULL@_ @@_@_@_@_ @]C@_@@_@]@_ @_ @` | @`' 28COMPILER-MACRO @`W 2FLETg_< @` 2LABELSFF( (  <   (   0   ( 0 ( 0 (  (  ( (    6 @ @J@@`@` @aW@   :@a]@ @J@@)g@a@b1@a@Pa@N@@Qg@0@,@S9@Q@T?@`@U@T@V@`?@X)@V@X@`g@ZI@X@\@[O@_ @]@b1 @J@N@:w: 3 ~Zx9` ;:}{x~x~xN 6~гx`:s(4|A !9`;:(}{x~x~xN J~гx`:s؃)3%~Zx9` ;:p}{x~x~xN \~гx`:s-4|A1!9`;:}{x~x~xN p~гx`:s@935~Zx9` ;:}{x~x~xN ~гx`:s=4|AA!9`;:X}{x~x~xN ~гx`:sI3E~Zx9` ;:}{x~x~xN ~гx`:s`M4|AhQ!9`;:}{x~x~xN ~гx`:sY3U~Zx9` ;:8}{x~x~xN Φ~гx`:sȃa3]~Zx9` ;:}{x~x~xN ~гx`:si3e~Zx9` ;:}{x~x~xN ~гx`:s8~Xxo}{x|ox;xN    @b1@N2lDEFUN (SETF FDEFN-FUNCTION)@] @@G@fFTG2oG3G40F` >  @ @f#@ '@f/@fOL@fo@ < FdFDEFNKERNEL0FUNF4`(6 @ @f# @f@fL@f@ < : @f}@g@ @e@@)g@g?@g@gU@Z@g @f#@h7@hk::  s#,@$y,@s xH "0t,~xA?;@~xs }{x~ϳx;~xN 2,(fun fdefn)@Z @@hK@ @hS@h[@@hc@f#@g@g2XDEFUN FDEFN-MAKUNBOUND{O, @h 2@FDEFN-MAKUNBOUNDF8G0oG1F` 6@ @ @h@ '@h@hP@i@ <  FDFDEFNKERNELF4T6 @ @h @i_@iP@i@ < P : @i%P@i@ @h@@)g@i@j!@i @Z@j! @h@]7@j::  s,@x,@ xH "T<`8c ct~x}{x~ϳx;~xN ' @]C@j@@j@h@j!@j!)J @j 28SET-INFO-VALUE@j@{@{l @k/ 2(MAKUNBOUND@k@Q?@Q?2@DEFUN FDEFN-INITMՀ @k 2(FDEFN-INITFG7oF 6 @ @kw@ '@k@kX@k@ <  FDFDEFNKERNELF8, (  6 @ @kw @l@l/X@l@   : @k@l@ @kW@@)g@l @m@lP@(7@k@kG@Z @m @kw@N@nk::   ~Xx:|,AHpr,@t,@ ; (~x9` ;:}{x~x~xN 2~гx`:s8 r ~x|@;|9`;~xN  "  @nO 2SYMBOL@n7  @n[@@nc@kw@m@mm< @n 28GET-INFO-VALUE@n@@  @n 2DSIMPLE-TYPE-ERROR@n( @o 2DATUM@o' QT @o? 24EXPECTED-TYPE xl @oo 2$SATISFIES@; @oW@o@oY< @o 28FORMAT-CONTROL2dInvalid function name: ~S@oKpd @p 2@FORMAT-ARGUMENTS2`DEFUN FDEFINITION-OBJECTFTG7oG8G90F >  @ @ '@pO@po\@p@ < FCREATE$FDEFNKERNELFNAMEPNAMEd VALID-NAME-PFd4 $  T$   > @  @p@q\@qw@  : @p@q@ @p'@@)g@q@@r)@q @@7@n@k@n@n@o'@o@o@o@o@0G@r) @to@t::@  /$ 9`;:}{x~x~xN (~гxH~Yx:s`:x|A ; (9`;:}{x~x~xN <~гx`:s|A$o}{x|ox;xN $|A؃ b18`A~1V:8|0CPcZ8`Ɛz<`8c cZz8~108r& ; (9` ;:}{x~x~xN n~гx`:sHK@ b18`A~1V68|0~ðPb~ԳxT8~108r&~x:$3s!%)-1 59`$;:p}{x|#x~xN ~гx`:s24(name create)@_ @Z@t@_@t@t @,@t@@t@r)@r)Ԗ @t 2HUNDEFINED-FUNCTION2LDEFUN FDEFN-OR-LOSEi @u7 24FDEFN-OR-LOSEF8G0oG1F 6@ @ @u@ '@uO@ugd@uw@ < F`FDEFNKERNELNAMEdF0@$@@  @( @ @6 @ @u @u@ud@v@  : @u@v-@ @t@@)g@vg @v@v}@t@t@/@0G @v @u@?@w::    ~Yx 9`;:}{x~x~xN "~гx`:sx|A0|A$o}{x|ox;xN 3O 9` ;:}{x~x~xN @~гx`:s@Z @?@w@@w@u@v@v @F@w@GT@G2Return the fdefn object for NAME. If it doesn't already exist and CREATE is non-NIL, create a new (unbound) one. @x 2INLINE@u @xo@x2lReturn the FDEFN of NAME. Signal an error if there is none or if it's function is null.@ @y' 2LAMBDA@. 5ˮ @yW 2BLOCKxc @y 2 LET  @.@y@y@y @Z@y@y {~ @y 2UNLESSV` @y 2 AND@Z @]@z @z @Z@z@y@z#@t @-@z3@. @/@zC@z;@zK@0@zS@z[ @z+@zc@y@zk@Z @zs@z{@y@z@yg@z@z @u@z@y?@z@z @y3@z@y@zFF((4   $ ( (   , 6 @ @J@@z@z @{W@  :@{]@ @J@@)g@{x@|@{ @g@f#@@j!@h@w@G@w@H_@m@kw@r)@w@x@v@u@x@z@| @J@N@:: 3 ~Zx9` ;:}{x~x~xN 0~гx`:s@3~Zx9` ;:}{x~x~xN B~гx`:s!%9`;:H}{x~x~xN R~гx`:s;|3)-9`;:}{x~x~xN b~гx`:sx531~Zx9` ;:}{x~x~xN t~гx`:s0;39S=9` ;:}{x~x~xN ~гx`:sA%9`;:X}{x~x~xN ~гx`:sI3ESMsQ9`;:}{x~x~xN ~гx`:s`~Xxo}{x|ox;xN @|@e2dDEFUN %COERCE-TO-FUNCTIONF8G0oG1F 6@ @ @;w@ '@~@~h@~@ < F`FDEFNKERNELNAMEdF0@$ @ (6 @ @;w @7@Wh@@  : @~@@ @~@@)g@ @9@@t@t@/@0G @9 @;w@?@;::    ~Yx 9`;:}{x~x~xN "~гx`:sx|A4|A(o}{x|ox;xN 3O 9` ;:}{x~x~xN B~гx`:s@_ @?@+@@32PDEFUN RAW-DEFINITION4>  @ 28RAW-DEFINITIONF8G0oG1F 6@ @ @g@ '@@p@@ < `F$NAMEF(06 @ @g @@p@7@  `: @@E@ @G@@)g@X@@`@;@ @g@?@+::  x~óx~x~x 9`;|vx7x~xN @ @?@@@#@g@@2lDEFUN (SETF RAW-DEFINITION)@g @@G@kFTG2oG3G40F >  @ @s@ '@@t@@ < FxFUNCTION COMMON-LISPdNAMEF4$ 8 6@ @ @s @@t@g@  : @@u@ @G@@)g@@@@t@Z@ @s@@::   /;2 9`;:}{x~x~xN "~гx`:sx|A\ r t,~xA?;@~xo}{x|ox;xN  "2#'name' @,@@@@s@@qT @7 2 FWRAPPERXH @g 2%TYPEP@O@CY@CY2DDEFUN FDEFINITIONW @ 2,FDEFINITIONF8G0oG1F 6@ @ @@ '@@x@@ < @F F FWRAPPERSFDEFNKERNEL FUN FWRAPPERSFUN FWRAPPERSFUN FWRAPPERS FUNCTION-NAMEdLAST COMMON-LISPF(0$@D`L@@  L D    D (@P@@ @P(PPP@P`(```@`@(BP @ @ @G@x@@  @: @ @@ @@@)g@/ P@@E @@t@@w@t@/@0G @ @@@::    ~Yx 9`;:}{x~x~xN $~гx`:sp|A|A|~Ux~xr,@Xr,A8,A,,A,A rArHuHuTc:,XA~UxH8r,A8,A,,A,A rArHtHtTc:,XA@~x|A(o}{x|ox;xN Kؒ~x39`;:}{x~x~xN |~гx`:s|Ax~xr,A8,A,,A,A rArHuHuTc:,XA~Ux|@~TxK~x39`;:}{x~x~xN ~гx`:sX|@ ~UxKK~x39`;:}{x~x~xN ¦~гx`:s|@ ~UxKK~UxK3O !9` ;:p}{x~x~xN ܦ~гx`:s2<(function-name)@ @_@@_@@ @?@ @@@@@2XReturns the definition for name, including any encapsulations. Settable with SETF.@g @xo@ZA ` @ 2DECLAREGI @ 2 OPTIMIZEI'q @ 2@INHIBIT-WARNINGS  @@3@; @@C@K @@S@. @;w@c@k @g@s@y?@{@ @[@@y3@@y@2|Return FUNCTION-NAME's global function definition. If FUNCTION-NAME is fwrapped, return the primary function definition stored in the innermost fwrapper.dC @o 2\*SETF-FDEFINITION-HOOK*@W @F@2@This holds functions that (SETF FDEFINITION) invokes before storing the new value. These functions take the function name and the new value.|a @W 2 VARIABLEGS @ 24DOCUMENTATION@o @@G@@@SI@SI@G|@GFFT ((,844, (06 @ @J@@@ @7@  @:@=@ @J@@)g@w@ @ @@9@;w@7@@@G@@g@@@s@@@@@W@W@@W@?@@@H_@  @J@N@:: 3 S9` ;:}{x~x~xN 4~гx`:s0!9`;:}{x~x~xN D~гx`:s)3%~Zxs-9`;:X}{x~x~xN V~гx`:s531~Zx9` ;:}{x~x~xN h~гx`:s`=39SA9` ;:}{x~x~xN z~гx`:sE!9`;:(}{x~x~xN ~гx`:s؃I,@M~XxQ3USY]9` ;:}{x~x~xN ~гx`:sxM3ae9`;:}{x~x~xN ~гx`:s8~Xxo}{x|ox;xN @ @~2XDEFUN %SET-FDEFINITION1  @ 2@%SET-FDEFINITIONFTG7oG8G90F >  @ @@ '@@@/@ < `F F FWRAPPERSFDEFNKERNEL FUN FWRAPPERSFUN FWRAPPERSFUN FWRAPPERSFUNCTION COMMON-LISP FUNCTION-NAMEdLAST COMMON-LISP NEW-VALUEF!@$    B@@@L B   B  B0B (@P@@@P(PPP@P`L@`(```@`@) B# B$ B%B&*B' D(@ @@) B" B'D @@ BBh @ @ @w@'@@  `: @=@@ @@@)g@' d@@=@t@W@Z@@w@; @ @@@3::  s#  / ;2 9`;:}{x~x~xN (~гx`:s`,@~Ux|Aȃ~xr,A~UxHr,A8,A,,A,A rArHtHtTc:,XA~x|A4xo}{x|ox;xN |A4x,xA?;@K "~x39`;:}{x~x~xN ~гx`:s|A$~xr,A8,A,,A,A rArHuHuTc:,XA~Ux|@t~TxK~x39`;:}{x~x~xN ~гx`:s@|@ ~UxKKr,A8,A,,A,A rArHuHuTc:,XA ~UxK~x39`;:p}{x~x~xN ܦ~гx`:s|@ ~UxK`K\ ",AВHdr,@l~x /9`;:}{x~x~xN ~гx`:sr |@K~x!9`;:p}{x~x~xN ~гx`:sxKX 2d(function-name new-value)@ '@' @@#@@+@@@24DEFUN FBOUNDP "l  @ 2FBOUNDPF8G0oG1F 6@ @ @g@ '@@@@ < F`FDEFNKERNELNAMEdF0@$@@ @@ @@6 @ @g @@@_@  : @@m@ @O@@)g@@@@t@ @g@?@::    ~Yx 9`;:x}{x~x~xN ~гx`:s|A<|@(~Xxo}{x|ox;xN ;K~XxK'  @@@@ @?@@@@g@@\ @ 2XUNDEFINE-FUNCTION-NAME@@?y@?y2DDEFUN FMAKUNBOUND~ @g 2,FMAKUNBOUNDF8G0oG1F 6@ @ @O@ '@@@@ < F`FDEFNKERNELNAMEdF0@$@@@ @@ @$6 @ @O @@@G@  : @@U@ @/@@)g@@@@t@@ @O@?@::    ~Yx 9`;:}{x~x~xN ~гx`:s|@h 9`;:}{x~x~xN 2~гx`:s8 o}{x|ox;xN X<`8c cxK' @?@@@@O@@2lSet FUNCTION-NAME's global function definition to NEW-VALUE. If FUNCTION-NAME is fwrapped, set the primary function stored in the innermost fwrapper.U+P @ 2H%DEFINE-SETF-MACRO@@K@K2Return true if name has a global function definition.2Make Name have no global function definition.FF((   !,!! "("" #(## 6 @ @J@@g@o @@  :@@ @J@@)g@p@i@ @@@@@@@@@g@@@O@/@i @J@N@:: 3 S9` ;:}{x~x~xN *~гx`:sX~YxS!~[x%9`;:}{x~x~xN <~гx`:s-3)S19` ;:8}{x~x~xN N~гx`:sȃ935S=9` ;:}{x~x~xN `~гx`:s~Xxo}{x|ox;xN @i@: @@@=2|$Header: /project/cmucl/cvsroot/src/code/fdefinition.lisp,v 1.26 2005/05/11 12:15:05 rtoy Exp $ ,u [/J{ 8=E C 8 0w3UiF @&@'@G@@g@w@ @ x-d @ 2PLAMBDA-LIST-KEYWORDS3 @W 2$&OPTIONAL'q @ 2&AUXG @ 2&WHOLEU @ 2D&ALLOW-OTHER-KEYSZ  @ 20&ENVIRONMENT @? 2,&PARSE-BODYyd  @o 2&MORE@W @'@{@@@@@@@.@@o@@%@@@@@?@2lKeywords that you can put in a lambda-list, supposing you should want to do such a thing.::@:@@: @@@=:@@@=@G=2Ttarget:code/eval.lisp@G0@a  @ 24%%DEFCONSTANT@@L5I@L5I8_ @ 2PCALL-ARGUMENTS-LIMIT2The exclusive upper bound on the number of arguments which may be passed to a function, including rest args.@G4@3T @ 2\LAMBDA-PARAMETERS-LIMIT28The exclusive upper bound on the number of parameters which may be specifed in a given lambda list. This is actually the limit on required and optional parameters. With &key and &aux you can get more.@G8@tH @ 2TMULTIPLE-VALUES-LIMIT2  @ @k@ '@·@D@@  @F NEW-VALUEKERNELOBJECTKERNELF46@ @ @k @G@wD@Ï@ < @: @ @Ý@ @@@@@!@@@@w@! @k@@3:: o 5xo~x3 9`;:}{x~x~xN $~гx`:sp|A H "~x~x}{x|#x;~xN 2(kernel::new-value kernel::object)' @@#@@+@k@!@!F4G0d G1F00 6@ @ @@ '@O@gD@ŏ@   FHOBJECTKERNELF46 @ @ @@D@@ <  : @ŝ@@ @@@@W@ơ@m @@w@ơ @@@{:: o xo ~x3 9`;:}{x~x~xN $~гx`:sp|AH "}{x|#x;~xN ' @@k@@s@@ơ@ơ@ @@G@ǓFHG3G4d G5F40>  @ @Ǜ@ '@ǧ@D@@  @F NEW-VALUEKERNELOBJECTKERNELF46@ @ @Ǜ @7@gD@@ < @: @@ȍ@ @@@@@@@@@w@ @Ǜ@@:: o 5xo~x3 9`;:}{x~x~xN $~гx`:sp|A H "~x~x}{x|#x;~xN ' @@@@@Ǜ@@9B @' 2$NEW-VALUE@g @@;@ @@K@@G@S@[@K@'@c@y?@k@s @C@{@y@ʃ@ @xo@ʓ' @@ʣ@@ʫ@ @ʳ@ʻ@@ @g@@@@ '@@@@ @@@y?@ @ @@@y@#@Ǜ @xo@3' @@C@@K@Ǜ @S@[@@c@ @@s@@G@{@˃@s@@ˋ@y?@˓@˛ @C@ˣ@y@˫FFL(,,   ,     , 6 @ @@@˿@D@'@  :@-@ @@@@g(@@u@!@k@ʋ@@ʛ@G@@ơ@@+@;@k@@Ǜ@˳@ @@@:: 3 ~Zxs9`;:}{x~x~xN ,~гx`:sP!9`;:}{x~x~xN <~гx`:s%!9`;:0}{x~x~xN L~гx`:sЃ-3)~Zxs19`;:x}{x~x~xN ^~гx`:s5!9`;:}{x~x~xN n~гx`:sH9!9`;:}{x~x~xN ~~гx`:sA3=~ZxsE9`;:@}{x~x~xN ~гx`:s~Xxo}{x|ox;xN @@«F4G0d G1F00 6@ @ @@ '@@'D@O@   FHOBJECTKERNELF46 @ @ @ϗ@ϷD@@ <  : @]@@ @@@@@a@- @@w@a @@@;:: o xo ~x3 9`;:}{x~x~xN $~гx`:sp|AH "}{x|#x;~xN ' @@+@@3@@a@a@ @@G@SFHG3G4d G5F40>  @ @[@ '@g@чD@ѯ@  @F NEW-VALUEKERNELOBJECTKERNELF46@ @ @[ @@'D@?@ < @: @ѽ@M@ @@@@҇@@ҝ@@@w@ @[@@ӳ:: o 5xo~x3 9`;:}{x~x~xN $~гx`:sp|A H "~x~x}{x|#x;~xN ' @@ӣ@@ӫ@[@@@ @xo@' @@@@@ @@@@ @g@ @@@ '@#@@+@3 @@;@y?@C@K @@S@y@[@[ @xo@k' @@{@@ԃ@[ @ԋ@ԓ@@ԛ@ @@ԫ@@G@Գ@Ի@ԫ@@@y?@@ @C@@y@@ @xo@FFd(    ,     ,   6 @ @@@@D@w@  :@}@ @@@@շ @!@@@G@@a@@c@@s@ԣ@@[@@@! @@@::  9`;:}{x~x~xN (~гx`:s`9`;:}{x~x~xN 8~гx`:s 3~Zxs!%9`;:(}{x~x~xN J~гx`:s؃)9`;:h}{x~x~xN Z~гx`:s-9`;:}{x~x~xN j~гx`:sX531~Zxs9%9`;:}{x~x~xN |~гx`:s=9`;:0}{x~x~xN ~гx`:s~Xxo}{x|ox;xN @!@F4G0d G1F00 6@ @ @@ '@O@gD@؏@   FHOBJECTKERNELF46 @ @ @@D@@ <  : @؝@@ @@@@W@١@m @@w@١ @@@{:: o xo ~x3 9`;:}{x~x~xN $~гx`:sp|AH "}{x|#x;~xN @ @@k@@s@@١@١: @@@=@= @ڗ   :@@@=@ڭ@= @<  :@@@=@ڭ@ @= @Wh  @ @@G@ۻFTG3d G4P G5F 4 ,    >  @ @@ '@@D@_@  F NEW-VALUEKERNELPOBJECTKERNELF<6@ @ @ @ܧ@D@@ < : @m@@ @@@@7 (@݉@M@u@@w@ @݉ @@@:: o x5xo sC,@ |@:|A|O~x39`;:}{x~x~xN 2~гx`:s8O|AH< "|A "P~TxKd~TxK\UTxXx}{x|#x;~xN @ @@޳@ @޻@@@@@݉@݉@ @@@@@ @@@@  @g@@@#@+ @@3@@;@C @@K@y?@S@[ @@c@y@k@ @xo@{@ @@ߋ@ @ߓ@ߛ@@ߣ@ @߫@߳@@߻@ @+@@@G@@@@@@y?@@ @C@@y@@o @xo@FF4(  ,     ,   6 @ @@@'@/D@@  :@@ @@@@@1@@@G@١@@s@@߃@@݉@@ @@1 @@@::  9`;:}{x~x~xN (~гx`:s`3~Zxs!9`;:}{x~x~xN :~гx`:s%9`;:(}{x~x~xN J~гx`:s؃)9`;:h}{x~x~xN Z~гx`:s13-~Zxs5!9`;:}{x~x~xN l~гx`:sP99`;:}{x~x~xN |~гx`:s~Xxo}{x|ox;xN @1@CF4G0d G1F00 6@ @ @o@ '@@7D@_@   FHOBJECTKERNELF46 @ @o @@D@@ <  : @m@@ @@@@'@q@= @@w@q @o@@:: o xo ~x3 9`;:}{x~x~xN $~гx`:sp|AH "}{x|#x;~xN P) @W 2 MOD @?@c@k @@s@@{@o@q@q@o @@G@FTG3d G4P G5F$4 ,  >  @ @@ '@@D@'@  @F NEW-VALUEKERNELOOBJECTKERNELF46@ @ @ @o@D@@ < @: @5@@ @@@@@I@@@@w@k@I @@@{:: o x5xo sC@Cx,ACx<`| A|O~x3 9`;:}{x~x~xN 0~гx`:s@O|AH$ " "PUTxXx}{x|#x;~xN @ @k@[@k @c@k@@s@@I@I@ @@@@@o @@@@ @g@@@@ @@@@@ @o@@y?@@ @@ @y@@ @xo@#@ @@3@ @;@C@@K@ @S@[@@c@ @@s@@G@{@@s@o@@y?@@ @C@@y@@/ @xo@' @@@@@/ @@@@FFd(  ,     ,     6 @ @@@@D@o@  :@u@ @@@@ @@@@G@q@o@@@+@k@I@@@@@ @@@::  9`;:}{x~x~xN (~гx`:s`3~Zxs!9`;:}{x~x~xN :~гx`:s%9`;:(}{x~x~xN J~гx`:s؃)9`;:h}{x~x~xN Z~гx`:s13-~Zxs5!9`;:}{x~x~xN l~гx`:sP99`;:}{x~x~xN |~гx`:s=9`;:0}{x~x~xN ~гx`:s~Xxo}{x|ox;xN @@F4G0d G1F00 6@ @ @/@ '@G@_D@@   FHOBJECTKERNELF46 @ @/ @@D@@ <  : @@@ @@@@O@@e @@w@ @/@@s:: o xo ~x3 9`;:}{x~x~xN $~гx`:sp|AH "#}{x|#x;~xN ' @@c@@k@/@@@/ @@G@FHG3G4d G5F40>  @ @@ '@@D@@  @F NEW-VALUEKERNELOBJECTKERNELF46@ @ @ @/@_D@w@ < @: @@@ @@@@@ @@@@w@  @@@:: o 5xo~x3 9`;:}{x~x~xN $~гx`:sp|A H "#~x~x}{x|#x;~xN ' @@@@@@ @  @g@@@ @ '@@@#@+ @/@3@y?@;@C @@K@y@S@ @xo@c' @@s@@{@ @@@@@ @@@@G@@@@/@@y?@@ @C@@y@@ @xo@@C @@@@@ @ @@@FF4(,     ,     6 @ @@@/@7D@@  :@@ @@@@@9@@@/@[@@k@G@@ @@@@#@9 @@@:: 3 ~Zxs9`;:}{x~x~xN *~гx`:sX!9`;:}{x~x~xN :~гx`:s%!9`;:(}{x~x~xN J~гx`:s؃-3)~Zxs19`;:p}{x~x~xN \~гx`:s5!9`;:}{x~x~xN l~гx`:sP9!9`;:}{x~x~xN |~гx`:s~Xxo}{x|ox;xN @9@;F4G0d G1F00 6@ @ @@ '@'@?D@g@   FHOBJECTKERNELF46 @ @ @@D@@ <  : @u@@ @@@@/@y@E @@w@y @@@S:: o xo ~x3 9`;:}{x~x~xN $~гx`:sp|AH "'}{x|#x;~xN @C @@C@@K@@y@y@ @@G@kFTG3d G4P G5F\ 4,   >  @ @s@ '@@D@@  `F NEW-VALUEKERNELPOBJECTKERNELF46@ @ @s @G@wD@@ < `: @ @@ @@@@@!@`@@w@C@! @s@@[:: o x5xo |A~Tx|AxO~x3 9`;:}{x~x~xN *~гx`:sXO|AHD "sC,@z,:Ax "P:KXU'TxXx}{x|#x;~xN @ @C@;@C @C@K@@S@s@!@!F8G0oG1F 6@ @ @@ '@w@D@@ < F4XKERNELF(0 6 @ @ @@D@@ @ : @@%@ @@@@_`@@u@@w@ @@@S::  x~óx~x~x3 9`;|vxWx~xN 2,(kernel::x)'   '@+@@3@; @#@C@@K@@@@oI\ @ 2%NAME@Z3 @ 2ARGLIST@@ @ 2LAMBDA@2Ũ @ 2(DEFINITION@W @/ 2 GCS@?qBe( @W 28CONVERTED-ONCE@oO46 @ 2CLOSURE: @@E@@= @   F G40oF6 @ @'@ '@@D@@ < 0 Fx N-CONTEXT-21 N-COUNT-22F0X!(                 "/ #. $- %, &+ '* ()  6@ @ @@!@_@D@@ < ` FG0-DEFAULTING-TEMP0G1-DEFAULTING-TEMPPG2-DEFAULTING-TEMPpG3-DEFAULTING-TEMPG4-DEFAULTING-TEMPG5-DEFAULTING-TEMPG6-DEFAULTING-TEMPF<x:8@o@@@ @@?@o @ @' @W@D@@ < :@%`@ @]@ @@@@x@@ @o@u@C@k@@@@@@?@o@ @@ @'@@:: ~x, ~ZA`4@$~x|Z848A4A04A$4#A4CA 4c 8k~P|dx8d|ex~Ux~Xx~Yx~Zx~[x~\x|x~^x~Xx~Xx ~Xx|ppcTc:,@H4|+x8f.8|+x8f~. |@,x8,@̃|@s,@Ԃ|@:|As@x,Atx<`|(A`|@L:|AH@s,@~,:A܃ "~UxK "|Ah "~UxKH~UxK@ |@x8e~. $!|A%|Ax)|Ad-|AP1|A<5|A(9|A|+x|~xK| KtKlKdxK\xKTxKLxKD #b18`0A~1V88|0Pc8` x8~108r&= 84xXTxxtxxx#x'~x}{x~ϳx;~xN 2(&key ((:%name #:g0) nil) ((:arglist #:g1) nil) ((:lambda #:g2) nil) ((:definition #:g3) nil) ((:gcs #:g4) 0) ((:converted-once #:g5) nil) ((:closure #:g6) nil))' @o@;' @@K' @@[@ @@k@k @@{' @?@@C @o@@ @@@@@s@@c@@S@@C@@%@@ @@@@@'@@/, @/ 2`%PRINT-UNREADABLE-OBJECT@@nMQ@nMQ@G@p@pFTG2oG3G40F :@0 @ @@ '@w@D@@ < @FtSSTREAM COMMON-LISPF(4t : @0 @ @ @@ D@ 7@ < @FG6oSSTREAM COMMON-LISP0F 6 @ @@ '@ @ D@ @ < @FtSSTREAM COMMON-LISP0F(  6 @ @ @ @ 7D@ O@  @:@@ M@ @ U@ @@@@ @ @ @@ @W@g@ @ @@ _@ ::  xFF (6 @ @ @@ /@ 7D@ G@  @:@ M@ @ @@@ P@ @ @@@ @  @ @@:: ~óx~x 9`;|vx~x~xN @4`0 @7 2@>d @ / 28MACRO-FUNCTION@ @\@\1ŀ @ o 2HSPECIAL-OPERATOR-P@ W@R9@R9\ @  2 NOT@ W @oW@ @  @ @ 2d~S is a special operator.@  @oW@! @! @ @!28~S is a macro.2Wrong number of args to FUNCTION:~% ~S.2(DEFUN EVALF@G33oG34F$6@ @ @@ '@!@!X@!@ @ < B`FARGSARGSEXP COMMON-LISPNAMEPNAMENAME ORIGINAL-EXPdSYMBOL COMMON-LISPFL4 4 "$ " "  " ""$          X      ""$ " "K"8"H$d4 d- d" d! &! &(&&& , \ 80 ,# b$+b<``%&b)"4""("$"")"'*"  ,$b<``./ b2"$""1"$""2"03"  G5Kb6FP`>Q"8=h* U*7?W*A X"Ad @ @=?@@@>Gx@>@>]@<@0G@> @@?@?+:: x /  / 9`;:}{x~x~xN "~гx`:sx2 (x)  @#@?@@?#@?7L< @?O 2LISP@ @?w 20DEBUG-SOURCEM N @? 2LCOMPILED-DEBUG-INFO&J @? 28CODE-COMPONENTa| @@ 2INTERPRETED-FUNCTION-LAMBDA-EXPRESSION@? 2DEFUN FUNCTION-LAMBDA-EXPRESSIONd @@ 2hFUNCTION-LAMBDA-EXPRESSIONF8G0oG1F 6@ @ @@@ '@@@@l@@@ < FARRAY COMMON-LISPEXP COMMON-LISPFUNdFUNINFO EXTENSIONSNAMESOURCEFX< $   04444  <  < 6 6  &` ,#$ &$()$)$ +d  ,$ $$"  (   -$      $ > @ @@ @A/@Al@B@  : @@@B@ @@O@@@B@C)@B 0@@w@?7@n@?_@?@?@@?@C) @@@E@Fk::  s   3 9`;:}{x~x~xN *~гx`:sX|@ ~x ~xvTc>,Tc:A8c~Pr,@t,@|Ar,@lr,@H|@|@r,@t,:@~x8|@@x8d~.r r ~Yx~xo}{x9` |ox: ~[x;xN r,@u,2Ax,zAp~x; 9`;:0}{x~x~xN ~гx`:sЂ|A~Yx~xK\~Xx;2~xKL~Xx;2~xK< "! "~Xx;2~xK % " )9`;~xN ~TxK   '2(fun)@ +fm0 @F/ 2VALUES' @;@F;'@FC@F@FK@FS @F @F[@@Fc@@@C)@C)2`DEFUN FIND-IF-IN-CLOSUREv @F 2HFIND-IF-IN-CLOSUREFTG5oG6G70F >  @ @F@ '@F@Gp@G@ < FELT COMMON-LISPFUNFUNCTION COMMON-LISPTESTdF`4P $P0     P P PP   > @ @F @G_@Gp@G@  : @G%@H @ @F@@@HG`@H@H]@;@H @F@I@J#::   /~Tc>Tc:8co|xoHr 8d~. r,@~x9`;:}{x~x~xN 4~гx`:s0|A(o}{x|ox;xN o8coo| AL~XxK~x 9`;:`}{x~x~xN X~гx`:sxK02((test fun)' '@J' @J @J@@J@F@H@H@GT@2`Evaluates its single arg in a null lexical environment, returns the result or results./v( @J 2$NOTINLINE@ @J@J@ @J@J2hGiven a function, return three values: 1] A lambda expression that could be used to define the function, or NIL if the definition isn't available. 2] NIL if the function was definitely defined in a null lexical environment, and T otherwise. 3] Some object that "names" the function. Although this is allowed to be any object, CMU CL always returns a valid function name or a string.FF($ (   (   ( ( ( 6 @ @@@L@L @M?@  :@ME@ @@@@Mx@N@M @@J=@H_@'i@@JO@@J@G@;@@J@>@@C)@@@K@H@F@N @@@::  39`;:}{x~x~xN .~гx`:sH3S!%9` ;:}{x~x~xN @~гx`:s)-9`;:@}{x~x~xN P~гx`:s531~Zx%9` ;:}{x~x~xN b~гx`:sx9-9`;:}{x~x~xN r~гx`:s8A3=~Zx%9` ;:}{x~x~xN ~гx`:sI3ESM%9` ;:X}{x~x~xN ~гx`:sU3Q~Zx%9` ;:}{x~x~xN ~гx`:s`~Xxo}{x|ox;xN @N@@P" @P 20SPECIAL-FORM2`DEFUN SPECIAL-OPERATOR-PF8G0oG1F0 6@ @ @ W@ '@P@Pt@Q@ <  FTSYMBOL COMMON-LISPdFP$ 6 @ @ W @QW@Qwt@Q@  @P: @Q0@Q@ @P@@@Q@R9@RP@n@P@R9 @ W@S@SC::  |As,@x,@  |x 9`;:}{x~x~xN (~гx`:s`|A(~Xxo}{x|ox;xN ;K 2 (symbol)@n7 @; @S+@S3@@S;4 @Sg 2H*MACROEXPAND-HOOK*^@Ռ @S 2COERCE@S@-@-2tDEFUN INVOKE-MACROEXPAND-HOOKrX, @S 2\INVOKE-MACROEXPAND-HOOKFpG0oG1G20G3PF > @ @S@ '@T@TG|@TW@ < FENVFORMKERNELFUNdFUNCTION COMMON-LISPF480     > @ @S @T@T|@U7@  : @Te@UE@ @S@@@U \@U@Up@SO@@S@; @U @S@W7@W[::   /O ,Ar,AX ,A39`;:}{x~x~xN .~гx`:sH  ,Ar,@0 /O9` ;~xN ~x9`;:H}{x~x~xN R~гx`:sxK   28(fun form env)@? @ @WK@@WS@S@U@U: @@@=@= @Ww 0  YA @W 2LEXENV@_ @W@W@_@X, @X/ 2ASSOC@X@I @I q|l @Xg 2MACRO2PDEFUN MACRO-FUNCTIONF8G6oG7F 6@ @ @Xw@ '@X@X@X@ < FEdF80  6 @ @Xw @Y@Y@Y/@  FXG100G8oG9F     4   > ` @ @ @ '@Yw@Y@Z@ <  F\SYMBOL COMMON-LISPF |6 @ @Xw@!@Z_@Z@Z@ @ <  FENV LOCAL-DEFSYMBOL COMMON-LISPdF  (    $$: @: @ @  @Z@[@[@  @ :$@X@Y=`@Z%@Z0@[@ @Xw@@@[@\Y@\ @@7@W@X @\Y@X?@XO@n@0@\Y@\@Xw@_@_::    9`;:}{x~x~xN &~гxH~Yx:sh8xo}{x|ox;xN 4@\ @ @_g@_:: , A, @s#,@t|@\:|A8|As,@x,@ /~xHl|Aȃ "0~TxK~TxK o|As,@x,@~x ~^x|@L~Yx ;Rts9`;:}{x~x~xN ~гx`:s|AT|Ar,A(~Xxo}{x|ox;xN !|@ЃK̃ |x%9`;:}{x~x~xN ~гx`:sP)|A ~XxKt ; %9`;:}{x~x~xN ¦~гx`:sK,>K  2X(symbol &optional env)@X  @?@_@n7@_' @_@_@@_2 (e)' @#@_@@_s' @_ 2dSIMPLE-UNDEFINED-FUNCTION2|Cannot funcall macro functions.) @`_ 2FSET@`G@QC@QC6 + @` 2G5@_ @@`@_@`Y @` 2@CHECK-TYPE-ERROR@`@PA@PA  @a 2G1@P @0@a+@7@a3 @a;@@aC2`~S names a special form.2lDEFUN (SETF MACRO-FUNCTION)F\SYMBOL COMMON-LISPPF:@0 @ @a@ '@a@a@a@ < @F\SYMBOL COMMON-LISPPF:@0@0 @ @a@!@b@b?@bO@ < @F\SYMBOL COMMON-LISPPF88"L @b 2 REST-ARG:@b@0 @ @a @b@b@b@  `@  @@G@cCF`G20oG21G220F@   :@0 @ @cK@ '@cW@cw@c@ < @FFUNCTION COMMON-LISPSYMBOL COMMON-LISP0F 6@ @ @a@!@d@d?@dO@ @ < p@FFUNCTION COMMON-LISPdSYMBOL COMMON-LISPF$     (     (  x  $   ,         ,    $  :@:@0 @ @cK @d@d@e@  @:,@a@@b]P@c @cp@d]@e@ @a@@@e@f@f@@_@/@o@`@0G@n@P@0@7@k@f@`o@`@`@`@a@aK@aW@f@gy@a@k@k:: ~x, ~ZA`4@$~x|Z848A4A04A$4#A4CA 4c U~x: 3s9`;:@}{x|#x~xN P~гx`:sT@gy @cK@k@ks:: , AX, @Ds |As#,@  @ @k@ '@l@l?@l@ < F@FORMKERNELF6 @ @k@!@l@m@m@ @ <  FDEFENVFORMKERNELd LOCAL-DEFF``$.``0` ` `  p%`  p#p  '`$(`(`,` )`$*`*`` `(`( ` `$```: @: @ @k @mg@m@n_@   :@l@m-@nu@ @k@@@n8@o@n @W@X @(@XO@n@0@ G@Wg@o @k@rW@r:: , A|, @hs#,@T |@<:|A /~xHL|A "0~TxK~TxK o~x ~^x |As,A |ATs,@~,A< ~Yxo}{x9`|ox:~Zx~[x;xN |@,~Yx 9`;:}{x~x~xN h~гx`:s`|A@|Ar,A ~YxK\|@;2K@ ; 89`;:(}{x~x~xN ~гx`:s؃!|A ~YxK ; X9`;:}{x~x~xN ~гx`:s;2K>Kԃ |Ar,@Lt,@@ /%9`;:}{x~x~xN ~гx`:s|AL/ O)9` ;:H}{x~x~xN Ҧ~гx`:s;2K؃ ~YxK2P(form &optional env)@X  @?@rs'@r{'  @r@@r@r '@r@F@r@r @r@r@@r@k@o@o2If the symbol globally names a special form, returns T, otherwise NIL.@SO @F@s3P\ @s_ 2FUNCALL2xThe value of this variable must be a function that can take three arguments, a macro expander function, the macro form to be expanded, and the lexical environment to expand in. The function should return the expanded form. This function is called by MACROEXPAND-1 whenever a runtime expansion is needed. Initially this is set to FUNCALL.@Gx@2LInvoke *MACROEXPAND-HOOK* on FUN, FORM, and ENV after coercing it to a function.2\If SYMBOL names a macro in ENV, returns the expansion function, else returns NIL. If ENV is unspecified or NIL, use the global environment only.2 If form is a macro (or symbol macro), expands it once. Returns two values, the expanded form and a T-or-NIL flag indicating whether the form was, in fact, a macro. Env is the lexical environment to expand in, which defaults to the null environment.FFT((,  (044  4!!4""6 @ @@@v@v @w_@  `:@we@ @@@@w @xA@w `@R9@ W@r@@s;@G@SO@sG@SO@so@SO@?@@SO@t@H_@U@S@t@\@ @uG@gy@cK@o@k@u @xA @@@:o: 3 S9` ;:}{x~x~xN 8~гx`:s !9`;: }{x~x~xN H~гx`:s%,@-)135S9=9` ;:}{x~x~xN `~гx`:sA3EI9`;:}{x~x~xN p~гx`:s@Q3MSU9` ;:}{x~x~xN ~гx`:s]3YSa9` ;:P}{x~x~xN ~гx`:si3e~Zx9` ;:}{x~x~xN ~гx`:shq3mSu9` ;:}{x~x~xN ~гx`:s ~Xxo}{x|ox;xN @xA@P{2DDEFUN MACROEXPANDFTG3oG4G50F        >  @ @@ '@{@{'@{@ < F@FORMKERNELF6 @ @z@!@{@{@|@ @< Fd ENVEXPANDEDPdFORMKERNELFORMKERNELNEW-FORMNEWLY-EXPANDED0F 0( : @: @ @ @|O@|@|@ < :@{@|@}@ @z@@@}?`@}@}]@W@X @r@} @@rW@3:: , A|, @hs#,@T |@<:|Ax  @ @@ '@/@O@@ < `F$NAMEF6 @ @@!@@@/@ @ < `F\ENVFOUNDNAMEdF    @  $   $   < : @: @ @ @w@@@  `:@@=@5@ @@@@o$@@@W@X @%@n@ g@@@X?@ @@@K:: , A|, @hs#,@T |@<:|A /~xHL|A "0~TxK~TxK o~x ~^x|@~Txr,@|A|@ ; 9`;:X}{x~x~xN V~гx`:sx|Ad ; H9`;:}{x~x~xN j~гx`:sXo}{x|ox;xN ~XxK܂K'K>!t|AL S%)9`;:8}{x~x~xN ~гx`:sȂK 2P(name &optional env)@X  @?@#'@+@` @3@;@@C@@@@n7 @@c@_@k  @ 2G12DEFUN (SETF COMPILER-MACRO-FUNCTION)@ @@G@FTG6oG7G80F              :@0 @ @@ '@@@@ < FFUNCTION COMMON-LISPNAME0F x6@ @ @@!@W@@@ @ <  FxFUNCTION COMMON-LISPdNAMEF $      (   $  ,      $  :@:@0 @ @ @@@@   :@@@@ @@@@@A@ @s@`@n@P@k@@`@aW@0G@A @@G@:: , A, @s,@:|Ap|As#,AT~Tx|A /~xH |As#,@y,AЃ "0:K|A "~TxKp os,@:|Ad|As#,AH~Tx|A ~xH\|As#,@y,A܃ "0:K|A "~TxK| /|x9`;:}{x~x~xN |~гx`:s|A H~Ux|Ap; H~x9` ;:X}{x~x~xN ~гx`:s o}{x|ox;xN |A!~xS~[x%9`;:}{x~x~xN ~гx`:s0xr,@(:K$)/-9`;:(}{x~x~xN ʦ~гx`:s2t(function name &optional env)' @?@k@s@s@`@{@` @@@@@@A@A2pDEFUN COMPILER-MACROEXPAND-1V @ 2XCOMPILER-MACROEXPAND-1FTG0oG1G20F  >  @ @@ '@@7@g@ < F@FORMKERNELFX6 @ @@!@@@@ @ < `FENVdFORMKERNELFUNRESULTF` h ,  0 (: @: @ @ @@W@@  :@u`@@@ @@@@x@Y@%@Wg@W@Y @@rW@:: , A,, @x/ ~xH$ ox~x~^x |Ar,A~Tx|A~x~xO 9` ;:}{x~x~xN 8~гx`:s |@8~Yxo}{x9`|ox:~Zx~[x;xN ;2K~x~YxK/ 9`;:x}{x~x~xN ^~гx`:sxK' @?@'@@r '@@F@@ @@@@ @@Y@Y2hDEFUN COMPILER-MACROEXPAND0 ` @o 2PCOMPILER-MACROEXPANDFTG3oG4G50F  >  @ @W@ '@@@@ < @F@FORMKERNELF\6 @ @/@!@'@?@O@ @< p@Fd ENVEXPANDEDPdFORMKERNELFORMKERNELNEW-FORMNEWLY-EXPANDED0Fd 0( : @: @ @W @@@7@ < @:@p@]@M@ @/@@@@@@@@ @W@rW@ :: , A,, @x  @ @?@ '@g@@@ <  F ARGDEBUG0FUNCTION COMMON-LISP N-CONTEXT-8 N-COUNT-9F, p   >K @ @'@!@@?@@ < p FA1A2ARGDEBUGdARGSFUNCTION COMMON-LISPpFt88 8888,8$88 8  8 8 8p 84 8$ 8 8  8  x (88h848$888:@b @ @? @@'@@   :@p@@ @ @'@@@G@@e @@;@@ @?@g@:: ~x4@L~"4@$~x|Z848A4A4CA 4c, A8~P~x|#xH o~x|;x,~ZxA`b1T<~xA~1*V:8|0EPcZExH 88c4AE8~108r&s,AT~Tx|Ax/ OH<|As,@x,AЃ ":K|As,Asc,@lux/ s# ~x|A(9:s#,A 0|P|+x<8|N oxx9`;:P}{x~x~xN ~гx`:soxKT|Ar,Asc,@vxb18`A~1V78|0~Pb8~108r& ~x~x|A(:r,A |P|+x~ճx|#x<8|N oxx9`;:p}{x~x~xN ܦ~гx`:soxKH ~xr ~x|Ar,AԂ|Asc,@vxb18`A~1V48|0~Pb8~108r& ~x|A(:r,A |P|+x~ճx|#x<8|N oxx9`;:}{x~x~xN .~гx`:sHoxK "2d(function arg &rest args)' @@@'@@@@? @@@@@?@@24DEFUN FUNCALLF8G3oG4F`6@ @ @sG@ '@@@'@ <  FFUNCTION COMMON-LISP N-CONTEXT-1 N-COUNT-2F, p   >  @ @@!@o@@@ <  F ARGUMENTSdFUNCTION COMMON-LISPPF| ,4$: @b @ @sG @O@@@   :@5@@@ @@@@@@Y@% @@;@Y @sG@@:: ~x4@X~"4@$~x|Z848A4A$4#A4CA 4c, A8~P~x|#xH o~x|;x,~YxA`b1T<~xA~1*V98|0%Pc9%xH 88c4AE8~108r&s,AP~Tx|Ax/ H<|As,@x,Aԃ ":KsC,@hVx ~x|A(:r,A |P|+x~ճx|#x<8|N OXx9`;:@}{x~x~xN ~гx`:sOxKT2h(function &rest arguments)' @@@@@@? @@@@@sG@Y@Y20DEFUN VALUESFG2oF6 @ @F@ '@@/@?@ < 0 Fp N-CONTEXT-0 N-COUNT-1F6@ @ @@!@@@@ < P F\VALUES COMMON-LISP0FL,:@b @ @F @@'@G@ @ <   :@MP@@U@ @@@@@@ @ @F@g@:: ~x, ~ZA`4@$~x|Z848A4A04A$4#A4CA 4c 8~P~x,~UxA`b1T<~xA~1*V58|0~Pb~xH 88c4AE8~108r&~x~x4x~x|A(:r,A }eP, @}{x~ϳx;SxN ~ijxWx|+x<8|N 28(&rest values)@? @k@{@@@F@@2DDEFUN VALUES-LISTc @ 2,VALUES-LISTF8G0oG1F 6@ @ @@ '@@@@ < FTLIST COMMON-LISPFD8,6 @ @ @g@@@ < : @-@@ @@@@@1@@1 @@@::  s x~x~x~x|A(:s,A }eP, @}{x~ϳx;3xN ~ijx7x|+x<8|N 2(list)@;' @? @@@@ @@1@12Repetitively call MACROEXPAND-1 until the form can no longer be expanded. Returns the final resultant form, and T if it was expanded. ENV is the lexical environment to expand in, or NIL (the default) for the null environment.2XIf NAME names a compiler-macro, returns the expansion function, else returns NIL. Note: if the name is shadowed in ENV by a local definition, or declared NOTINLINE, NIL is returned. Can be set with SETF.2 @ @ @@ @@  `: @u@@ @@@@ @!@ `@@K@ @W@ G@  @! @@@::    r r |xH$:|A|Ar,A; ~x:<`8c|iN 2~гx`:s8|@;b18`A~1V:8|0CPcZTxT8~108r& 3b18`A~1V68|0~ðPb~Գx:4:TT8~108r&~سxo}{x|ox;xN r T~x:3~[x9`;:}{x|#x~xN ~~гx`:s! D; ~x:@<`8c|iN ~гx`:s|A8r ; ~x:<`8cX|iN ~гx`:spx|Ar,@~VxK2,(#:whole-0)' @;' @@@@nqn @ 2@IN-BUFFER-LENGTH2|The size of a stream in-buffer.: @@@=:@@@=@G=2\target:code/struct.lisp@G@: @@@=I @ 2,LISP-STREAMyNz @ 20LISP-STREAM-t @G 2@MAKE-LISP-STREAM ̯< @ 2@COPY-LISP-STREAMh @· 24LISP-STREAM-P: @@@=E΂ @ 2$IN-BUFFER% @/ 2TLISP-STREAM-IN-BUFFER@_ @W@K@_@S@@@ @[' {: @ç 2 IN-INDEX$݈ @ 2PLISP-STREAM-IN-INDEX@@Ï@ÿ@@' 4. @7 2IN@:| @_ 28LISP-STREAM-IN#q @ď 2ILL-IN@w @@ě@@ @G@ģ@' .l @ 2 BINAL @ 2