[no subject]

[CSVAX.fateman at Berkeley]

 _________________________________________________________
 |             | UCILISP | INTERLISP | MACLISP |Franz/VAX| 
 |-------------+---------+-----------+---------+---------|
 | Interpreter |   57.0  |    26.0   |  22.8   |  65.0   |
 |-------------+---------+-----------+---------+---------|
 | Compiler    |    2.90 |    15.0   |   0.69  | 1.1 **  |
 |-------------+---------+-----------+---------+---------|

 Times are for (TAK 4 2 0), where TAK is an interesting function
 defined by Mr. Ikuo Takeuchi.
 (DEFUN TAK (X Y Z)
	(COND ((GREATERP X Y)
	       (TAK (TAK (SUB1 X) Y Z) 
		    (TAK (SUB1 Y) Z X)
		    (TAK (SUB1 Z) X Y) ))
	      (T Y) ))
(**) 5.3 with (1- x) etc [no other declarations, so greaterp is closed comp.]
     4.1 with local function declaration (fast subroutine call)
     1.1 with > open compiled 
     times on a VAX 11/780 at Berkeley, Feb. 26, 1981