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              (*standard-output* s))
  15          (asdf:oos op :lice)))))
  16   (display-buffer "*lice-reload*"))
  17
  18 (defcommand recompile-lice ()
  19   (re-op-lice 'asdf:compile-op))
  20
  21 (defcommand reload-lice ()
  22   (re-op-lice 'asdf:load-op))
  23
  24 (provide :lice-0.1/debug)