FASL FILE output from fannkuch.lsp. Compiled Monday, 2/13/95 08:18:45 am PST on galton Compiler 1.0, Lisp 17e Targeted for SPARCstation/Sun 4, FASL version 5 9?># L *QUERY-IO*&n = ?LFORMAT( D)H*7H7+ H,H./H.T4- (00K 184 t ,t  t 4u  u 36 y 4 { {  { 25v  ~$~ ~, 3$z ,z z  H@H BB; m;p:0HnfHf  ((QOffff\=B@DHH2}rp2$ OPTIONAL-ARGS$ (4*$$$#X# 1 5(6178; ^ #@ ! ! A ! ! ` ?`Q``  `! Ġ>z ` ?`?`  aH! `Rz~ `  a! ``z~ !  !  ! apz~@ "   Ȁ  `  !! bPz}  ` #    ! ? %@    @? %   P`: +F< #@!?9  )``! $$`)W* R* #K* r ?o`?l`%?* g %  ? ^ :   [ R @ `F@@C %@`@ <  %@ # /   * % ! % 4 ! `! `  f! zy `%`  g0! Ġzx  5X! !  ?    : 9  )``! $$`)`)`  h! zx    `-`  hX! Ġzw `1  h!  $zwp  Q! ! `5`  h! ĠRQNSETHIRQ K GENERIC->RQNADDRQ RETURN-MULTIPLERQNSETHIRQ RETURN-MULTIPLERQNADDRQ K GENERIC->RpQNSETHIRQ K GENERIC->Rl=?W%&[(&optional (n (progn (format *query-io* "n = ?") (parse-integer (read-line *query-io*)))))XLFUNCTIONL &OPTIONAL[LVALUESZLNULLL&REST_`%aJ?>b# FANNKUCH-2#&DEFUN FANNKUCH-2+. FANNKUCH-2  FANNKUCH-2 1;^ ?` $`@L"` $F"`$@9; +` " @`@`$@`$@`@ `  +!  ` $   $ " $``@ %=?bYbJ?>$lCOUNTERS&DEFUN ZERO-COUNTERS$ ZERO-COUNTERS&+G1+  @$+*##$ $`1 $,$++ , $+*##$,$l1 (1;l^  !! ` $ QNADDRQ :ALLOCATE-VECTORR<QNSETHIRQ :ALLOCATE-VECTORR8=?&()YL SIMPLE-VECTOR$dJ?>#.? N-COUNTERS&~%~3A ~9a ~6,2f< &DEFUN COUNTER-REPORT$COUNTER-REPORT&+G5+  $+*##$ #@1 $0$+2ARRAY COMMON-LISP,ARRAY COMMON-LISP,I+4   4   $```x  <            `    $+*$$$$4#L1 #\$ FACTORIAL+Nd+>`  ($++,$$$#`#1 (1; ^ֆ ! !  (! !`$z`  `.zH! `?`! N`?` ` *#R!  @! `?` ` * @ a pz~@ ` `  b`z} !  b@ z}   ``! ! !  b z}P' b z} ! !c z c8 z|Ȣ  ?        , &,     , &, QNADDRQ K GENERIC-*RQNSETHIRQ K GENERIC-*RQNADDRQ K GENERIC--RQNSETHIRQ K GENERIC--RQNADDRQ K GENERIC-=RtQNSETHIRQ K GENERIC-=RpQNADDRQ K GENERIC-#4LDEFTYPESMALLLDO-ARG-COUNT-ERROR#LDEFMACROA#TS+B<L+& DEFMACRO S+$&+G6G7 + @ $ $$(!*##$ #81 "$4$+  WHOLE-1Ld#+88\4  ($$ $(%*$$$$8#D1 &('1();T ^ֆ ! ! :  0 u    _! ` ``  `  a`Fz~  0? 0  0?``(` $$$$` ``(` $$$$` `!`(``$$$$$$```(` $$$$`   `   =?*&(a b)+?>-#TS-<L-& DEFMACRO S-/$/&+G6G7 0+ @1$ $$(2*##$ #81 3$4$/+  WHOLE-1Ld4+88\4  (5$ $(6*$$$$8#D1 7(819:;T ^ֆ ! ! :  0 u    _! ` ``  `  a`Fz~  0? 0  0?``(` $$$$` ``(` $$$$` `!`(``$$$$$$```(` $$$$`   `   =?;/+?>=#$S><L>& DEFMACRO S>?$?&+G6G7 @+ @A$ $$(B*##$ #1 C$4$?+  WHOLE-1LdD+68\4 (E$ $(F*$$$$8#1 G(H1IJ;$ ^ֆ y! ! :  0 i    S! ` ``  `  a`Fz~  0? 0  0?``(` $$$$` ``(` $$$$` `!`(``$$$$$$`  `   =?K?+?>M#$S=<L=& DEFMACRO S=O$O&+G6G7 P+ @Q$ $$(R*##$ #1 S$4$O+  WHOLE-1LdT+68\4 (U$ $(V*$$$$8#1 W(X1YZ;$ ^ֆ y! ! :  0 i    S! ` ``  `  a`Fz~  0? 0  0?``(` $$$$` ``(` $$$$` `!`(``$$$$$$`  `   =?[O+?>]#SREFI_p#SETFS<LSETF&DEFMACRO SETFSr$r&+G6G7 s+ @t$$$(u*##$ #1 v$4$r+  WHOLE-1Ldw+68\4 $x$$(y*$$$$8#1 z({1|}; ^ֆ k! ! :  0 [    F! ` ``  `  a`Fz~  0? 0  0?``(` $$$$` `!`(``$$$$$$`  `   =?~r+?>#DOTIMESS^NL&BODYBODY<LTYPELDECLARELDOTIMESLDEFMACRO-BOGUS-SUBLIST-ERRORNKINDNNAMENOBJECTN LAMBDA-LISTn<&DEFMACRO DOTIMESS$&+G8G9 + `@$$$(*##$ #1 $4$+IWHOLE-1d+m8@4@P@@8@@@@@@4@ @@@@@L@ @@@$$(*$$$$8#1 (1;^ @! ! !  0  0?   0     !   ` `` `  ah`Zz~      c! ` ``  `  b`z}  0?   0 `(` $$$$` `!`%`(``$$$$$$``)`(` $$$$` `-`(`%? %?%? %?%?% `  `$`1`5` `9``=!`A!`! `E $ c`z|@ =  d L=?&((i n) &body body)Y?>#&DEFUN FANNKUCH-10+0 FANNKUCH-10  FANNKUCH-10 1;^  $ ?) " `$ `d$ $  $ "`` $ $ @ ``$@`@9:+   " @@ $@$@  `` @ ``%`@=? FANNKUCH-10YJ?># &DEFUN COUNT-FLIPS+, COUNT-FLIPS$  COUNT-FLIPS$41; ^ ! ! ! !    $ ! ! ` $zp  `9:* "@ `$`$     `QNADDRQ K GENERIC-#&DEFUN NEXT-PERMUTATION+8NEXT-PERMUTATION NEXT-PERMUTATION 1;^ & ``@`$@ @$@"  $! $=?NEXT-PERMUTATIONYJ?>#<<&DEFUN FANNKUCH-11+, FANNKUCH-11$ FANNKUCH-11$<1;^ @! ! ! ! !  % " ` $ ?"! $! !  `   a@z      `  ݠ!` ! !  `  ahz~`   !    $ =? FANNKUCH-11YJ,-<=LM\]op1;W? !0q?"#0q?$%0q?&'0q?()0q?*+0q?,-0q?./0q?//0q?//0q?//0q0$$8?>#BL%TIME<<&DEFUN F$F&+&ABClD,G1G2 + 0  $+E*##$0#1 $D$+ABClD,NL+ H H $+@*#,#$H# 1 #$&+%A,BLClDG3N +  @ $+@*#### 1 #$+A,BLClDN +   $+*#,###1 (1;^ `` ``3` `(` &b$?`$ $ $ $ $ $ `  `.^N `` ````  `  =?YLOR$$e$$&(n)YL*J?>#  %%DEFUN<$N TOP-LEVEL+ABCD +(  $+*$$$$(# 1 (1; ^ ! !  ( (  ( (  ( (  ( ( ` `(``%b$`$`$`$` $`$```  aDz~  `QNADDRQ :ALLOCATE-VECTORRQNSETHIRQ :ALLOCATE-VECTORRQNADDRQ :ALLOCATE-VECTORRpQNSETHIRQ :ALLOCATE-VECTORRlQNADDRQ :ALLOCATE-VECTORRTQNSETHIRQ :ALLOCATE-VECTORRPQNADDRQ :ALLOCATE-VECTORR8QNSETHIRQ :ALLOCATE-VECTORR4=?Y8?>#xFILL-ISHIFTSVCOPYFLIP KREUZ-LOOPLPRINTz  !  0 !!  !!  !!  !! ! ! ! ! ! ``  a`xz~  "! `!`(` %b$?`$  $  $  $  $ `  bx`z} "! `%`(` %b$?`$  $  $  $  $ `  c`z| "! `)`(` %b$?`$  $  $  $  $ `  c`z|X "! `-`(` %b$?`$  $  $  $  $ `  d@`z{   ` ^{ `` ``t (`1  `:^{ `` ``] (`5  `T^z `` ``F (`1  `n^zN `` ``/ $`5  `^y  $`9  `      QNADDRQ :ALLOCATE-VECTORRLQNSETHIRQ :ALLOCATE-VECTORRHQNADDRQ :ALLOCATE-VECTORR0QNSETHIRQ :ALLOCATE-VECTORR,QNADDRQ :ALLOCATE-VECTORRQNSETHIRQ :ALLOCATE-VECTORRQNADDRQ :ALLOCATE-VECTORRQNSETHIRQ :ALLOCATE-VECTORR=?KY_LKMKpKN KKO KKP K8KQ KώRJ?>S$x& DEFUN FILL-IS+"FILL-I xFILL-I$T1UV;x^  $  =?WYXJ?>Y#& DEFUN SHIFTY+ SHIFT SHIFT$Z1[\;^  ``$ @`$ =?]Y^J?>_#&DEFUN KREUZ-LOOP_+* KREUZ-LOOP KREUZ-LOOP(`1ab;^ " `$   =?cYdJ?>e#& DEFUN SVCOPYe+"SVCOPY SVCOPY$f1gh;^  @ $  =?iYjJ?>k#& DEFUN FLIPk+FLIP FLIP$l1mn;^   ! $$  =?oYpJRX^djp1qr; -? !0q?"#0q?$%0q?&'0q?()0q?*+0q0s$$t8Q DEBUG-SOURCER(v$$ -wNFILE&b/tmp_mnt/misc3/quetelet/ftp/pub/lisp/xlisp/xlisp-stat/code/homegrown/timings/fannkuch/fannkuch.lspy"ڤz"{$+ V+~#Zy#&)-.b2R3%467|1 }~rnhb\V:̨̡̺̳̙̿}lZJ:)̹̙̉r8?>@