blob: d1c2c40aa186af9d8f1c05c409e53205d73b7321 (
plain)
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
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
|
;;; -*- mode: lisp; syntax: common-lisp; package: common-lisp -*-
(defpackage #:swank-system
(:use #:common-lisp
#:asdf))
(defpackage #:swank-loader
(:use #:common-lisp))
(in-package #:swank-system)
;; http://www.caddr.com/macho/archives/sbcl-devel/2004-3/3014.html
(defclass unsafe-file (cl-source-file) ())
(defmethod perform :around ((op compile-op) (c unsafe-file))
(setf (operation-on-warnings op) :ignore
(operation-on-failure op) :warn) ; adjust to taste
(call-next-method))
(defmacro define-swank-system (&rest sysdep-components)
`(defsystem swank
:name "Swank is the Common Lips back-end to SLIME"
:serial t
:components ((:file "swank-backend")
(:file "nregex")
,@(mapcar #'(lambda (component)
(if (atom component)
(list :file component)
component))
sysdep-components)
(:file "swank"))
:depends-on (#+sbcl sb-bsd-sockets)))
#+sbcl (define-swank-system
"swank-sbcl"
"swank-source-path-parser"
"swank-source-file-cache"
"swank-gray")
#+cmu (define-swank-system
"swank-source-path-parser"
"swank-source-file-cache"
"swank-cmucl")
#+clisp (define-swank-system
"xref"
"metering"
"swank-clisp"
"swank-gray")
(in-package #:swank-loader)
(defun user-init-file ()
"Return the name of the user init file or NIL if it does not exist."
(probe-file (merge-pathnames (user-homedir-pathname)
(make-pathname :name ".swank" :type "lisp"))))
(defun site-init-file ()
"Return the name of the site init file or NIL if it does not exist."
(probe-file (make-pathname :name "site-init" :type "lisp" :defaults *load-truename*)))
;; The strategy for loading the site init file and the user init file here
;; differs significantly from the original in swank-loader.lisp.
;; swank-loader.lisp does:
;;
;; (or (load-site-init-file)
;; (load-user-init-file))
;;
;; But that has the effect of never loading the user init file, which is odd.
;; Perhaps they mean PROGN rather than OR?
(when (site-init-file)
(load (site-init-file)))
(when (user-init-file)
(load (user-init-file)))
;; swank.asd ends here
|
GitWeb