/[slime]/slime/swank.asd
ViewVC logotype

Contents of /slime/swank.asd

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.5 - (hide annotations)
Fri Sep 14 12:41:28 2007 UTC (6 years, 7 months ago) by heller
Branch: MAIN
Changes since 1.4: +22 -2 lines
Make ASDF:LOAD-OP (and SBCL REQUIRE) happy with swank.asd

* swank.asd: Define and use a CL-SCRIPT-FILE class for loading as
source, even with ASDF:LOAD-OP.
1 lgorrie 1.1 ;;; -*- lisp -*-
2    
3     ;; ASDF system definition for loading the Swank server independently
4     ;; of Emacs.
5     ;;
6     ;; This is only useful if you want to start a Swank server in a Lisp
7     ;; processes that doesn't run under Emacs. Lisp processes created by
8     ;; `M-x slime' automatically start the server.
9    
10     ;; Usage:
11     ;;
12     ;; (require :swank)
13     ;; (swank:create-swank-server PORT) => ACTUAL-PORT
14     ;;
15     ;; (PORT can be zero to mean "any available port".)
16     ;; Then the Swank server is running on localhost:ACTUAL-PORT. You can
17     ;; use `M-x slime-connect' to connect Emacs to it.
18 lgorrie 1.3 ;;
19     ;; This code has been placed in the Public Domain. All warranties
20     ;; are disclaimed.
21 lgorrie 1.1
22 heller 1.5 (defpackage :swank-loader
23     (:use :cl))
24    
25     (in-package :swank-loader)
26    
27     (defclass cl-script-file (asdf:source-file) ())
28    
29     (defmethod asdf:perform ((o asdf:compile-op) (f cl-script-file))
30     t)
31     (defmethod asdf:perform ((o asdf:load-op) (f cl-script-file))
32     (mapcar #'load (asdf:input-files o f)))
33     (defmethod asdf:output-files ((o asdf:compile-op) (f cl-script-file))
34     nil)
35     (defmethod asdf:input-files ((o asdf:load-op) (c cl-script-file))
36     (list (asdf:component-pathname c)))
37     (defmethod asdf:operation-done-p ((o asdf:compile-op) (c cl-script-file))
38     t)
39     (defmethod asdf:source-file-type ((c cl-script-file) (s asdf:module))
40     "lisp")
41    
42 lgorrie 1.1 (asdf:defsystem :swank
43 heller 1.5 :default-component-class cl-script-file
44 lgorrie 1.1 :components ((:file "swank-loader")))
45    
46 heller 1.5 (defparameter *source-directory*
47 heller 1.4 (asdf:component-pathname (asdf:find-system :swank)))
48    

  ViewVC Help
Powered by ViewVC 1.1.5