1 ;;; lice debugging facilities
6 "Perform an asdf operation on :lice and capture the output in a
8 (with-current-buffer (get-buffer-create "*lice-reload*")
11 (with-output-to-string (s)
14 (*standard-output
* s
))
15 (asdf:oos op
:lice
)))))
16 (display-buffer "*lice-reload*"))
18 (defcommand recompile-lice
()
19 (re-op-lice 'asdf
:compile-op
))
21 (defcommand reload-lice
()
22 (re-op-lice 'asdf
:load-op
))
24 (provide :lice-0.1
/debug
)