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
34
35
36
|
;;;; This file is part of the Debian CLFSWM package and is licensed
;;;; under the terms of GPL-3 or later. Check
;;;; /usr/share/doc/clfswm/copyright for more information.
;;;;
;;;; Copyright 2011 Desmond O. Chang <dochang@gmail.com>
(in-package :cl-user)
#+clisp
(require "clx")
#+cmu
(require :clx)
#-asdf
(require :asdf #+clisp '(#P"/usr/share/common-lisp/source/cl-asdf/asdf.lisp"))
;; Hot-upgrade ASDF.
;;
;; It's useful if user has a local version of ASDF.
;;
;; Currently only available in ASDF2.
#+asdf2
(asdf:oos 'asdf:load-op :asdf)
;; Cleanups after hot-upgrade.
#+asdf2
(asdf:clear-configuration)
(asdf:oos 'asdf:load-op :clfswm)
(clfswm:main)
#+(or clisp sbcl cmu)
(quit)
|
