Commit 0bdb2e2f authored by Dave Cooper's avatar Dave Cooper
Browse files

slime with sbcl on linux and mac with devo startup script

parent 59fa5ded
......@@ -3,18 +3,25 @@ cd `dirname "$0"`
export os_platform=`uname`
export cl_platform=''
export cl_platform=""
if [ "$1" == "sbcl" ]; then
cl_platform='SBCL'
fi
if [ "$os_platform" == "Linux" ]; then
cl_platform='Allegro'
emacs --no-splash --no-init-file -l devo.el $@
if [ "$cl_platform" == "" ]; then
cl_platform='Allegro'
fi
emacs --no-splash --no-init-file -l devo.el
elif [ "$os_platform" == "Darwin" ]; then
if [ "$1" == "sbcl" ]; then
cl_platform='SBCL'
else
cl_platform='LispWorks'
fi
if [ "$cl_platform" == "" ]; then
cl_platform='LispWorks'
fi
/Applications/Emacs.app/Contents/MacOS/Emacs --no-splash --no-init-file -l devo.el
fi
......@@ -6,7 +6,6 @@
;; FLAG -- learn how to add command line args to inferior-lisp-program
;; to load load.lisp for Genworks GDL automatically.
;;
(setq slime-lisp-implementations
(cond ((and (string= (getenv "cl_platform") "LispWorks")
(string= (getenv "os_platform") "Darwin"))
......@@ -19,9 +18,17 @@
((and (string= (getenv "cl_platform") "Allegro")
(string= (getenv "os_platform") "Linux"))
'((acl82m-linux-x86 ("../../common/acl82-linux-x86/mlisp"))
(acl82a-linux-x86 ("../../common/acl82-linux-x86/alisp"))
(sbcl-1.0.50.0.debian ("sbcl"))))
((and (string= (getenv "cl_platform") "SBCL")
(string= (getenv "os_platform") "Linux"))
'((sbcl-1.0.50.0.debian ("sbcl"))
(acl82m-linux-x86 ("../../common/acl82-linux-x86/mlisp"))
(acl82a-linux-x86 ("../../common/acl82-linux-x86/alisp"))))
(t '((acl82m-win-x86 ("../../common/acl82-win-x86/mlisp.exe"))
(acl82a-win-x86 ("../../common/acl82-win-x86/alisp.exe"))))))
(t (error (concat "Unknown OS/Lisp combination: "
(getenv "os_platform")
(getenv "cl_platform"))))))
(slime-setup '(slime-fancy))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment