#:fwoar.lisputils)

               #:fwoar-lisputils)

  (let ((inferior-lisp-program "ecl"))

  (let ((inferior-lisp-program "ecl")
        (slime-lisp-implementations nil))

  (let ((inferior-lisp-program "cmucl"))

  (let ((inferior-lisp-program "cmucl")
        (slime-lisp-implementations nil))

  (let ((inferior-lisp-program "sbcl"))

  (let ((inferior-lisp-program "sbcl")
        (slime-lisp-implementations nil))

  (let ((inferior-lisp-program "ccl"))

  (let ((inferior-lisp-program "ccl")
        (slime-lisp-implementations nil))

        slime-mdot-fu))

        slime-mdot-fu
        slime-buffer-streams
        slime-indentation))

;;;;; }}}

 ;;;;; }}}

(defmacro define-lisp-implementations (&rest decl)
  `(progn
     ,@(cl-loop for (symbol . args) in decl
                collect `(progn
                           (defun ,symbol ()
                             (interactive)
                             (slime ',symbol))
                           (cl-pushnew '(,symbol ,@args) slime-lisp-implementations
                                       :key 'car)))))
(with-eval-after-load "slime"
  (when (or (eq system-type 'gnu/linux)
            (eq system-type 'darwin))
    (define-lisp-implementations
      (abcl  ("abcl"))
      (ccl ("ccl"))
      (clisp ("clisp"))
      (cmucl ("cmucl" "-quiet"))
      (ecl   ("ecl"))
      ;;(mkcl  ("mkcl"))
      ;;(xcl   ("xcl"))
      (sbcl  ("sbcl" "--dynamic-space-size" "8192")))))