Revert previous swank.asd change until proper ASDF support is built in.

See problems reported in #76 and and #83.

* swank.asd: revert previous change by 2014-01-05 Francois-Rene
Rideau until proper swank-loader-less ASDF support can be build
it. It exhibits problems on ABCL and SBCL.

ChangeLog

+2014-02-06  João Távora  <joaotavora@gmail.com>
+
+	* swank.asd: revert previous change by 2014-01-05 Francois-Rene
+	Rideau until proper swank-loader-less ASDF support can be build
+	it. It exhibits problems on ABCL and SBCL.
+
 2014-01-24  João Távora  <joaotavora@gmail.com>
 	* README.md (Emacs 23 gotchas): Remove section.

swank.asd

@@ -10,8 +10,7 @@
 ;; Usage:
 ;;
 ;;   (require :swank)
-;;   (swank-loader:init)
-;;   (swank:create-server PORT) => ACTUAL-PORT
+;;   (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
@@ -20,7 +19,21 @@
 ;; This code has been placed in the Public Domain.  All warranties
 ;; are disclaimed.
 
-;; See https://github.com/slime/slime/pull/76 and related issues for details on
-;; this defsystem.
+(defpackage :swank-loader
+  (:use :cl))
+
+(in-package :swank-loader)
+
+(defclass swank-loader-file (asdf:cl-source-file) ())
+
+;;;; after loading run init
+
+(defmethod asdf:perform ((o asdf:load-op) (f swank-loader-file))
+  (load (asdf::component-pathname f))
+  (funcall (read-from-string "swank-loader::init")
+           :reload (asdf::operation-forced o)
+           :delete (asdf::operation-forced o)))
+
 (asdf:defsystem :swank
+  :default-component-class swank-loader-file
   :components ((:file "swank-loader")))