Commit d3a639a1 authored by Dave Cooper's avatar Dave Cooper
Browse files

updated startup paths

parent 25785c1e
cd %~dp0
%windir%\system32\cmd.exe "/C start ..\gpl\gnu-emacs-23.3\bin\runemacs.exe --no-splash --no-init-file -l devo.el"
%windir%\system32\cmd.exe "/C start ..\..\common\gpl\gnu-emacs-23.3\bin\runemacs.exe --no-splash --no-init-file -l devo.el"
(require 'cl)
(load (expand-file-name "../quicklisp/slime-helper.el"))
(load (expand-file-name "../../common/quicklisp/slime-helper.el"))
(setq slime-lisp-implementations
'((acl82m-win-x86 ("../acl82-win-x86/mlisp.exe"))
(acl82a-win-x86 ("../acl82-win-x86/alisp.exe"))))
'((acl82m-win-x86 ("../../common/acl82-win-x86/mlisp.exe"))
(acl82a-win-x86 ("../../common/acl82-win-x86/alisp.exe"))))
;;
;; FLAG -- learn how to add command line args to inferior-lisp-program
......
......@@ -21,12 +21,15 @@
(in-package :common-lisp-user)
(let ((setup (merge-pathnames "../quicklisp/setup.lisp"
(let ((setup (merge-pathnames "../../common/quicklisp/setup.lisp"
*load-truename*)))
(if (probe-file setup) (load setup)
(progn
(load (merge-pathnames "quicklisp.lisp" *load-truename*))
(funcall (read-from-string "quicklisp-quickstart:install") :path (merge-pathnames ".." *load-truename*)))))
(funcall (read-from-string "quicklisp-quickstart:install")
:path (make-pathname :name nil
:type nil
:defaults (merge-pathnames "../../common/quicklisp/" *load-truename*))))))
;;
;; FLAG -- Temporary hacks around currently broken Quicklisp .asd files and sytems:
......
Supports Markdown
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