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

okie try again

parent 77c82aa5
Pipeline #7282 passed with stages
in 5 minutes and 48 seconds
......@@ -25,10 +25,15 @@
(defun initialize (&key startup-banner?)
(setq glisp:*gdl-program-home* (probe-file (glisp:executable-homedir-pathname)))
(setq glisp:*gdl-home* (make-pathname :name nil
:type nil
:directory (butlast (pathname-directory glisp:*gdl-program-home*))
:defaults glisp:*gdl-program-home*))
(setq glisp:*gdl-home*
(make-pathname
:name nil
:type nil
:directory (let ((lastcar (lastcar (pathname-directory glisp:*gdl-program-home*))))
(if (string-equal lastcar "program")
(butlast (pathname-directory glisp:*gdl-program-home*))
(pathname-directory glisp:*gdl-program-home*)))
:defaults glisp:*gdl-program-home*))
(setq glisp:*gendl-home* glisp:*gdl-home*)
(when (find-package :asdf) (funcall (read-from-string "asdf:initialize-output-translations")))
......
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