blob: 48b9335c5679d2e7091ef4aee39b432868ec54d5 (
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
80
81
82
83
84
85
86
87
88
89
90
91
92
|
;;; -*- mode: lisp; syntax: common-lisp; package: common-lisp -*-
(defpackage #:swank-system
(:use #:common-lisp
#:asdf))
(defpackage #:swank-loader
(:use #:common-lisp)
(:export #:*source-directory*
#:load-swank))
(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")
#+openmcl (define-swank-system
"metering"
"swank-openmcl"
"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")
#+armedbear (define-swank-system
"swank-abcl")
#+ecl (define-swank-system
"swank-ecl" "swank-gray")
(in-package #:swank-loader)
(defvar *source-directory*
(make-pathname :name nil :type nil
:defaults (or *load-pathname* *default-pathname-defaults*))
"The directory where to look for the source.")
(defun load-user-init-file ()
"Load the user init file, return NIL if it does not exist."
(load (merge-pathnames (user-homedir-pathname)
(make-pathname :name ".swank" :type "lisp"))
:if-does-not-exist nil))
(defun load-site-init-file (directory)
(load (make-pathname :name "site-init" :type "lisp"
:defaults directory)
:if-does-not-exist nil))
(defun load-swank (&key (source-directory *source-directory*))
(asdf:oos 'asdf:load-op :swank)
(funcall (intern (string :warn-unimplemented-interfaces) :swank-backend))
(load-site-init-file source-directory)
(load-user-init-file))
(load-swank)
;; swank.asd ends here
|
GitWeb