Add support for Scheme and Racket language.

sources_non_forked/slimv/slime/swank.asd

@@ -0,0 +1,36 @@
+;;; -*- lisp -*-
+
+;; ASDF system definition for loading the Swank server independently
+;; of Emacs.
+;;
+;; This is only useful if you want to start a Swank server in a Lisp
+;; processes that doesn't run under Emacs. Lisp processes created by
+;; `M-x slime' automatically start the server.
+
+;; Usage:
+;;
+;;   (require :swank)
+;;   (swank:create-swank-server PORT) => ACTUAL-PORT
+;;
+;; (PORT can be zero to mean "any available port".)
+;; Then the Swank server is running on localhost:ACTUAL-PORT. You can
+;; use `M-x slime-connect' to connect Emacs to it.
+;;
+;; This code has been placed in the Public Domain.  All warranties
+;; are disclaimed.
+
+(defclass swank-loader-file (asdf:cl-source-file) ())
+
+;;;; after loading run init
+
+(defmethod asdf:perform ((o asdf:load-op) (f swank-loader-file))
+  ;; swank-loader computes its own source/fasl relation based on the
+  ;; TRUENAME of the loader file, so we need a "manual" CL:LOAD
+  ;; invocation here.
+  (load (asdf::component-pathname f))
+  ;; After loading, run the swank-loader init routines.
+  (funcall (read-from-string "swank-loader::init") :reload t))
+
+(asdf:defsystem :swank
+  :default-component-class swank-loader-file
+  :components ((:file "swank-loader")))