;; $Header: /srv/cvs/sources/gcl/gcl/bench/Attic/tak.cl.1,v 1.1 2005/06/29 04:37:13 camm Exp $ ;; $Locker: $ #+excl (eval-when (compile) (setq comp::register-use-threshold 6)) (defun tak (x y z) (declare (fixnum x y z)) (cond ((not (< y x)) z) (t (tak (tak (the fixnum (1- x)) y z) (tak (the fixnum (1- y)) z x) (tak (the fixnum (1- z)) x y))))) (defun testtak () (print (time (progn (tak 18 12 6) (tak 18 12 6) (tak 18 12 6) (tak 18 12 6) (tak 18 12 6) (tak 18 12 6) (tak 18 12 6) (tak 18 12 6) (tak 18 12 6) (tak 18 12 6))))) #+excl (eval-when (compile) (setq comp::register-use-threshold 3))