mirror of
https://github.com/kanaka/mal.git
synced 2024-09-20 10:07:45 +03:00
Do not start MAL REPL if code is executed in Emacs (specially via SLIME)
This commit is contained in:
parent
798b5717f6
commit
68511d82dc
@ -62,4 +62,6 @@
|
||||
(when use-readline-p
|
||||
(save-history)))
|
||||
|
||||
(main)
|
||||
;; Do not start REPL inside Emacs
|
||||
(unless (member :swank *features*)
|
||||
(main))
|
||||
|
@ -71,4 +71,6 @@
|
||||
(when use-readline-p
|
||||
(save-history)))
|
||||
|
||||
(main)
|
||||
;; Do not start REPL inside Emacs
|
||||
(unless (member :swank *features*)
|
||||
(main))
|
||||
|
@ -140,4 +140,6 @@
|
||||
(when use-readline-p
|
||||
(save-history)))
|
||||
|
||||
(main)
|
||||
;; Do not start REPL inside Emacs
|
||||
(unless (member :swank *features*)
|
||||
(main))
|
||||
|
@ -160,4 +160,6 @@
|
||||
(when use-readline-p
|
||||
(save-history)))
|
||||
|
||||
(main)
|
||||
;; Do not start REPL inside Emacs
|
||||
(unless (member :swank *features*)
|
||||
(main))
|
||||
|
@ -177,4 +177,6 @@
|
||||
(when use-readline-p
|
||||
(save-history)))
|
||||
|
||||
(main)
|
||||
;; Do not start REPL inside Emacs
|
||||
(unless (member :swank *features*)
|
||||
(main))
|
||||
|
@ -189,4 +189,6 @@
|
||||
(when use-readline-p
|
||||
(save-history)))
|
||||
|
||||
(main)
|
||||
;; Do not start REPL inside Emacs
|
||||
(unless (member :swank *features*)
|
||||
(main))
|
||||
|
@ -203,7 +203,9 @@
|
||||
|
||||
(defun main ()
|
||||
(if (null common-lisp-user::*args*)
|
||||
(repl)
|
||||
;; Do not start REPL inside Emacs
|
||||
(unless (member :swank *features*)
|
||||
(repl))
|
||||
(rep (format nil
|
||||
"(load-file \"~a\")"
|
||||
(car common-lisp-user::*args*)))))
|
||||
|
@ -241,7 +241,9 @@
|
||||
|
||||
(defun main ()
|
||||
(if (null common-lisp-user::*args*)
|
||||
(repl)
|
||||
;; Do not start REPL inside Emacs
|
||||
(unless (member :swank *features*)
|
||||
(repl))
|
||||
(rep (format nil
|
||||
"(load-file \"~a\")"
|
||||
(car common-lisp-user::*args*)))))
|
||||
|
@ -291,7 +291,9 @@
|
||||
|
||||
(defun main ()
|
||||
(if (null common-lisp-user::*args*)
|
||||
(repl)
|
||||
;; Do not start REPL inside Emacs
|
||||
(unless (member :swank *features*)
|
||||
(repl))
|
||||
(rep (format nil
|
||||
"(load-file \"~a\")"
|
||||
(car common-lisp-user::*args*)))))
|
||||
|
@ -318,7 +318,9 @@
|
||||
|
||||
(defun main ()
|
||||
(if (null common-lisp-user::*args*)
|
||||
(repl)
|
||||
;; Do not start REPL inside Emacs
|
||||
(unless (member :swank *features*)
|
||||
(repl))
|
||||
(rep (format nil
|
||||
"(load-file \"~a\")"
|
||||
(car common-lisp-user::*args*)))))
|
||||
|
@ -323,7 +323,9 @@
|
||||
|
||||
(defun main ()
|
||||
(if (null common-lisp-user::*args*)
|
||||
(repl)
|
||||
;; Do not start REPL inside Emacs
|
||||
(unless (member :swank *features*)
|
||||
(repl))
|
||||
(rep (format nil
|
||||
"(load-file \"~a\")"
|
||||
(car common-lisp-user::*args*)))))
|
||||
|
Loading…
Reference in New Issue
Block a user