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

Contents of /slime/swank.asd

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.10 - (hide annotations)
Sun Aug 9 16:10:17 2009 UTC (4 years, 8 months ago) by sboukarev
Branch: MAIN
CVS Tags: SLIME-2-3, SLIME-2-2, byte-stream, FAIRLY-STABLE, HEAD
Changes since 1.9: +1 -2 lines
* swank.asd (asdf:perform): don't call `swank-loader:init' with
:setup nil, because it doesn't get contribs compiled, and some other
configuration steps are omitted.
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 mbaringer 1.6 (defclass swank-loader-file (asdf:cl-source-file) ())
28 heller 1.5
29 mbaringer 1.6 ;;;; after loading run init
30 lgorrie 1.1
31 mbaringer 1.6 (defmethod asdf:perform ((o asdf:load-op) (f swank-loader-file))
32     (load (asdf::component-pathname f))
33     (funcall (read-from-string "swank-loader::init")
34     :reload (asdf::operation-forced o)
35 sboukarev 1.10 :delete (asdf::operation-forced o)))
36 heller 1.4
37 mbaringer 1.6 (asdf:defsystem :swank
38     :default-component-class swank-loader-file
39     :components ((:file "swank-loader")))

  ViewVC Help
Powered by ViewVC 1.1.5