initialize.lisp 1.93 KB
Newer Older
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26
;;
;; Copyright 2002-2011 Genworks International
;;
;; This source file is part of the General-purpose Declarative
;; Language project (GDL).
;;
;; This source file contains free software: you can redistribute it
;; and/or modify it under the terms of the GNU Affero General Public
;; License as published by the Free Software Foundation, either
;; version 3 of the License, or (at your option) any later version.
;; 
;; This source file is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
;; Affero General Public License for more details.
;; 
;; You should have received a copy of the GNU Affero General Public
;; License along with this source file.  If not, see
;; <http://www.gnu.org/licenses/>.
;; 

(in-package :gdl)


(defun initialize ()
  
Dave Cooper's avatar
Dave Cooper committed
27
  (setq glisp:*gdl-program-home* (probe-file (glisp:executable-homedir-pathname)))
28 29 30 31
  (setq glisp:*gdl-home* (make-pathname :name nil
					:type nil
					:directory (butlast (pathname-directory glisp:*gdl-program-home*))
					:defaults glisp:*gdl-program-home*))
Dave Cooper's avatar
Dave Cooper committed
32
  (setq glisp:*gendl-home* glisp:*gdl-home*)
33 34 35 36 37 38 39 40
  (setq *quicklisp-home* (or (when (and (find-package :ql) (boundp (read-from-string "ql:*quicklisp-home*")))
			       (symbol-value (read-from-string "ql:*quicklisp-home*")))
			     (probe-file (merge-pathnames "quicklisp/" glisp:*gendl-home*))
			     (probe-file (merge-pathnames "genworks/quicklisp/" glisp:*gendl-home*))
			     (probe-file (merge-pathnames "quicklisp/" glisp:*genworks-source-home*))
			     (probe-file (merge-pathnames "genworks/quicklisp/dists/quicklisp/distinfo.txt"
							  glisp:*gdl-home*))
			     ))
41
  (pushnew (make-keyword (format nil "gendl-~a" *gendl-version*)) *features*)
42 43 44 45 46 47
  (glisp:set-genworks-source-home-if-known)
  (glisp:set-default-float-format)
  (glisp:set-defpackage-behavior)
  (glisp:set-default-package)
  (glisp:set-window-titles))