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

Contents of /slime/swank.asd

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.10 - (show 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 ;;; -*- 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 ;;
19 ;; This code has been placed in the Public Domain. All warranties
20 ;; are disclaimed.
21
22 (defpackage :swank-loader
23 (:use :cl))
24
25 (in-package :swank-loader)
26
27 (defclass swank-loader-file (asdf:cl-source-file) ())
28
29 ;;;; after loading run init
30
31 (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 :delete (asdf::operation-forced o)))
36
37 (asdf:defsystem :swank
38 :default-component-class swank-loader-file
39 :components ((:file "swank-loader")))

  ViewVC Help
Powered by ViewVC 1.1.5