kanaka/mal
1
1
Fork 0
mirror of https://github.com/kanaka/mal.git synced 2024-09-20 01:57:09 +03:00
Code Issues Projects Releases Wiki Activity

Do not start MAL REPL if code is executed in Emacs (specially via SLIME)

Browse Source
This commit is contained in:
Iqbal Ansari 2016-08-29 20:14:15 +05:30
parent 798b5717f6
commit 68511d82dc
11 changed files with 33 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
clisp/step0_repl.lisp
View File

@ -62,4 +62,6 @@
(when use-readline-p
(save-history)))
(main)
;; Do not start REPL inside Emacs
(unless (member :swank *features*)
(main))

4
clisp/step1_read_print.lisp
View File

@ -71,4 +71,6 @@
(when use-readline-p
(save-history)))
(main)
;; Do not start REPL inside Emacs
(unless (member :swank *features*)
(main))

4
clisp/step2_eval.lisp
View File

@ -140,4 +140,6 @@
(when use-readline-p
(save-history)))
(main)
;; Do not start REPL inside Emacs
(unless (member :swank *features*)
(main))

4
clisp/step3_env.lisp
View File

@ -160,4 +160,6 @@
(when use-readline-p
(save-history)))
(main)
;; Do not start REPL inside Emacs
(unless (member :swank *features*)
(main))

4
clisp/step4_if_fn_do.lisp
View File

@ -177,4 +177,6 @@
(when use-readline-p
(save-history)))
(main)
;; Do not start REPL inside Emacs
(unless (member :swank *features*)
(main))

4
clisp/step5_tco.lisp
View File

@ -189,4 +189,6 @@
(when use-readline-p
(save-history)))
(main)
;; Do not start REPL inside Emacs
(unless (member :swank *features*)
(main))

4
clisp/step6_file.lisp
View File

@ -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*)))))

4
clisp/step7_quote.lisp
View File

@ -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*)))))

4
clisp/step8_macros.lisp
View File

@ -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*)))))

4
clisp/step9_try.lisp
View File

@ -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*)))))

4
clisp/stepA_mal.lisp
View File

@ -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*)))))