;; Compiled from file bench/fib20.lsp on Sat, 26 Sep 2015 05:07:49 GMT

(set-dynamic 'load *situation*)

(openlisp:lap-require "loader")

(lap-loader '(
 ;;
 ;; fib
 ;;
  ((fentry fib 1 0 0)
   (param 0)
   (jeq _l004 '1)
   (jneq _l003 '2)
   (move a1 '1)
   (return)
  _l003
   (gsub1 a1)
   (recurse 1)
   (move a2 a1)
   (param 0)
   (gsub a1 '2)
   (recurse 1)
   (gadd a2 a1)
  _l004
   (return)
   (end))
))

(defgeneric gfib (n))

(lap-loader '(
 ;;
 ;; ilos::GF$gfib$i
 ;;
  ((fentry ilos::|GF$gfib$i| 1 0 0)
   (param 0)
   (jeq _l004 '1)
   (jneq _l003 '2)
   (move a1 '1)
   (return)
  _l003
   (sub1 a1)
   (call-reg 'ilos::|GF$gfib$i| a1)
   (move a2 a1)
   (param 0)
   (sub a1 '2)
   (call-reg 'ilos::|GF$gfib$i| a1)
   (gadd a2 a1)
  _l004
   (return)
   (end))
))

(defmethod gfib ((n <integer>)) . ilos::|GF$gfib$i|)

;; End of LAP file