;; lem error message
The variable CLOG:RELOAD is unbound
Backtrace for: #<SB-THREAD:THREAD "editor" RUNNING {10042A8003}>
0: ((:METHOD LEM-CORE:EXECUTE (T LEM-USER::CLOG-RELOAD T)) #<unused argument> #<unused argument> #<unused argument>) [fast-method]
1: (LEM-CORE:CALL-COMMAND LEM-USER::CLOG-RELOAD NIL)
2: (LEM-CORE::COMMAND-LOOP-BODY)
3: (LEM-CORE:COMMAND-LOOP)
4: (LEM-CORE::TOPLEVEL-COMMAND-LOOP #<FUNCTION (LAMBDA NIL :IN LEM-CORE::RUN-EDITOR-THREAD) {100521A16B}>)
5: ((LAMBDA NIL :IN LEM-CORE::RUN-EDITOR-THREAD))
6: ((LAMBDA NIL :IN LEM-CORE::RUN-EDITOR-THREAD))
7: ((LABELS BORDEAUX-THREADS::%BINDING-DEFAULT-SPECIALS-WRAPPER :IN BORDEAUX-THREADS::BINDING-DEFAULT-SPECIALS))
8: ((FLET SB-UNIX::BODY :IN SB-THREAD::RUN))
9: ((FLET "WITHOUT-INTERRUPTS-BODY-11" :IN SB-THREAD::RUN))
10: ((FLET SB-UNIX::BODY :IN SB-THREAD::RUN))
11: ((FLET "WITHOUT-INTERRUPTS-BODY-4" :IN SB-THREAD::RUN))
12: (SB-THREAD::RUN)
13: ("foreign function: call_into_lisp_")
14: ("foreign function: funcall1")


;; lem init

(in-package :lem-user)
(ql:quickload :edgar)
(define-key lem-lisp-mode:*lisp-mode-keymap* "C-c C-v" 'clog-reload)
(define-command clog-reload ()
       (edgar::reload 123)
   )