;; This file:
;;   http://angg.twu.net/LISP/debugging-1.lisp.html
;;   http://angg.twu.net/LISP/debugging-1.lisp
;;           (find-angg "LISP/debugging-1.lisp")
;; Author: Eduardo Ochs <eduardoochs@gmail.com>
;;
;; (defun e () (interactive) (find-angg "LISP/debugging-1.lisp"))
;; (find-es "lisp" "debugging-lisp")
;; (find-es "lisp" "sly")
;; (find-slynode "Basic setup")
;; (find-angg "elisp/test.el" "find-slyprocess")

;; * (eepitch-sbcl)
;; * (eepitch-kill)
;; * (eepitch-sbcl)

;; * (eepitch-sly)
;; * (eepitch-kill)
;; * (eepitch-sly)

(declaim (optimize (debug 3)))

(defun fib (n)
  (if (<= 0 n 1)
      (/ 1 0)
    (+ (fib (- n 1))
       (fib (- n 2)))))

(fib 10)


#|
* (eepitch-sly)
* (eepitch-kill)
* (eepitch-sly)
(load "debugging-1.lisp")

|#




;; Local Variables:
;; coding:  utf-8-unix
;; End: