mirror of
https://mzte.de/git/LordMZTE/dotfiles.git
synced 2024-09-27 20:48:53 +02:00
23 lines
577 B
Text
23 lines
577 B
Text
|
;;; vim: ft=commonlisp
|
||
|
|
;; Config file for cl-repl (yes, WTF)
|
||
|
|
|
||
|
|
(defpackage :repl-user
|
||
|
|
(:use :cl :cl-repl)
|
||
|
|
(:import-from cl-repl *magic-commands*))
|
||
|
|
(in-package :repl-user)
|
||
|
|
|
||
|
|
(define-magic swank (&rest args)
|
||
|
|
(declare (ignore args))
|
||
|
|
"Start a SWANK server."
|
||
|
|
(ql:quickload :swank)
|
||
|
|
;; Needs to be an eval since swank package isn't loaded at compile-time
|
||
|
|
(eval "(swank:create-server :dont-close t)"))
|
||
|
|
|
||
|
|
;; Remove bullshit commands
|
||
|
|
(delete-if
|
||
|
|
(lambda (cmd)
|
||
|
|
(let ((name (car cmd)))
|
||
|
|
(or (string= name "%python")
|
||
|
|
(string= name "%perl"))))
|
||
|
|
*magic-commands*)
|