;; 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")
;; https://malisper.me/debugging-lisp-part-1-recompilation/

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

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

;; (find-elocus-links "C-c C-c"     'sly-editing-mode-map           "-compile-defun")
;; (find-elocus-links "C-c C-s C-s" 'sly-stickers-mode-map          "-dwim")
;; (find-elocus-links "C-c C-s C-r" 'sly-stickers-shortcut-mode-map "-replay")
;; (find-slynode "A SLY tour for SLIME users" "recompile" "with" "C-c C-c")


(declaim (optimize (debug 3)))

(defun foo () (+ 1 (+ 2 3) (+ 4 5)))

(foo)

(defun myfact (n)
  (if (<= n 1)
      1
      (* n (myfact (- n 1)))))

(myfact 3)

(princ 22)


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

;; (trace fib)
;; (fib 10)

|#




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