OpenMCL part in emacs-init.lisp

(setf u:*ccl-home*  (concat u:*home* "Library/CCL/"))
(setf u:*ccl-init*  (concat u:*openmcl-home* "ccl-init.lisp"))
(setf u:*ccl-exec*  (concat u:*openmcl-home* "ccl/dppccl"))
(setenv "CCL_DEFAULT_DIRECTORY" (concat u:*ccl-home* "ccl"))

(defmacro def-slime-lisp (lisp)
  `(defun ,lisp ()
     (interactive)
     (let ((slime-default-lisp '`,lisp)) (slime))))

(def-slime-lisp sbcl)
(def-slime-lisp ccl)

    (slime)))