File: load-stumpwm.lisp.in

package info (click to toggle)
stumpwm 2:1.0.0-1
  • links: PTS, VCS
  • area: main
  • in suites: bullseye, buster, sid
  • size: 1,216 kB
  • sloc: lisp: 13,721; makefile: 180; sh: 30
file content (33 lines) | stat: -rw-r--r-- 969 bytes parent folder | download | duplicates (3)
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
27
28
29
30
31
32
33
(in-package #:cl-user)

#-(or sbcl clisp ccl ecl lispworks6)
(error "This lisp implementation is not supported.")

(require 'asdf)

#+lispworks
(progn
  (setf *compile-print* 1)
  (toggle-source-debugging t)
  (lw:set-default-character-element-type 'lw:simple-char)

  (unless
      (dolist (install-path
               '("quicklisp" ".quicklisp"))
        (let ((quicklisp-init
                (merge-pathnames (make-pathname :directory `(:relative ,install-path)
                                                :name "setup.lisp")
                                 (user-homedir-pathname))))
          (when (probe-file quicklisp-init)
            (load quicklisp-init)
            (return t))))

    (error "Quicklisp must be installed in order to build StumpWM with ~S."
           (lisp-implementation-type))))

(asdf:initialize-source-registry
 '(:source-registry
   (:directory "@STUMPWM_ASDF_DIR@")
   :inherit-configuration))

(asdf:oos 'asdf:load-op 'stumpwm)