debug.lisp

   1 ;;; lice debugging facilities
   2
   3 (in-package :lice)
   4
   5 (defun re-op-lice (op)
   6   "Perform an asdf operation on :lice and capture the output in a
   7 buffer."
   8   (with-current-buffer (get-buffer-create "*lice-reload*")
   9     (erase-buffer)
  10     (insert
  11      (with-output-to-string (s)
  12        (let ((*debug-io* s)
  13              (*error-output* s))
  14          (asdf:oos op :lice)))))
  15   (display-buffer "*lice-reload*"))
  16
  17 (defcommand recompile-lice ()
  18   (re-op-lice 'asdf:compile-op))
  19
  20 (defcommand reload-lice ()
  21   (re-op-lice 'asdf:load-op))
  22
  23 (provide :lice-0.1/debug)