[slime-cvs] CVS slime

[mbaringer]

Update of /project/slime/cvsroot/slime
In directory clnet:/tmp/cvs-serv21556

Modified Files:
	swank.asd ChangeLog 
Log Message:
Update for recent changes to swank-loader.lisp, we
need to call swank-loader::init after loading.


--- /project/slime/cvsroot/slime/swank.asd	2007/09/14 12:41:28	1.5
+++ /project/slime/cvsroot/slime/swank.asd	2008/02/17 12:28:27	1.6
@@ -24,25 +24,21 @@
 
 (in-package :swank-loader)
 
-(defclass cl-script-file (asdf:source-file) ())
+(defclass swank-loader-file (asdf:cl-source-file) ())
 
-(defmethod asdf:perform ((o asdf:compile-op) (f cl-script-file))
-  t)
-(defmethod asdf:perform ((o asdf:load-op) (f cl-script-file))
-  (mapcar #'load (asdf:input-files o f)))
-(defmethod asdf:output-files ((o asdf:compile-op) (f cl-script-file))
-  nil)
-(defmethod asdf:input-files ((o asdf:load-op) (c cl-script-file))
-  (list (asdf:component-pathname c)))
-(defmethod asdf:operation-done-p ((o asdf:compile-op) (c cl-script-file))
+;;;; make compile-op a nop
+
+(defmethod asdf:operation-done-p ((o asdf:compile-op) (f swank-loader-file))
   t)
-(defmethod asdf:source-file-type ((c cl-script-file) (s asdf:module))
-  "lisp")
 
-(asdf:defsystem :swank
-    :default-component-class cl-script-file
-    :components ((:file "swank-loader")))
+;;;; after loading run init
 
-(defparameter *source-directory*
-  (asdf:component-pathname (asdf:find-system :swank)))
+(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")))
--- /project/slime/cvsroot/slime/ChangeLog	2008/02/16 19:26:22	1.1290
+++ /project/slime/cvsroot/slime/ChangeLog	2008/02/17 12:28:27	1.1291
@@ -1,3 +1,8 @@
+2008-02-17  Marco Baringer  <mb at bese.it>
+
+	* swank.asd: Update for recent changes to swank-loader.lisp, we
+	need to call swank-loader::init after loading.
+
 2008-02-16  Helmut Eller  <heller at common-lisp.net>
 
 	In the REPL, mark the trailing newline also as input.