Plaster
New
List
Login
common-lisp
default
anonymous
2023.05.29 18:54:43
(defvar *old-reg* asdf:*central-registry*) (defun lem-load () (asdf:clear-source-registry) (asdf:initialize-source-registry `(:source-registry :inherit-configuration (:tree #p"/home/nilby/stuff/lispy/lem/") ,@(mapcar (_ (list :directory _)) *old-reg*))) (ql:quickload :lem) (ql:quickload :lem-ncurses) ;; (ql:quickload :lem-dterm) ) (defcommand lem ((files pathname :repeating t :help "Files to edit.")) (symbol-call :lem :load-site-init) ;; (apply (refer-to :lem :lem) files) (symbol-call :lem :lem files)) (defun lem-kill () ;; (setf lem::*in-the-editor* nil) (let ((ed (pick-list:pick-list (bt:all-threads)))) (when ed (bt:destroy-thread ed))))
Raw
Annotate
Repaste
Edit