[slime-cvs] CVS slime
heller
heller at common-lisp.net
Fri Sep 14 12:41:28 UTC 2007
Update of /project/slime/cvsroot/slime
In directory clnet:/tmp/cvs-serv11384
Modified Files:
ChangeLog swank.asd swank-loader.lisp
Log Message:
Make ASDF:LOAD-OP (and SBCL REQUIRE) happy with swank.asd
* swank.asd: Define and use a CL-SCRIPT-FILE class for loading as
source, even with ASDF:LOAD-OP.
--- /project/slime/cvsroot/slime/ChangeLog 2007/09/11 19:31:45 1.1214
+++ /project/slime/cvsroot/slime/ChangeLog 2007/09/14 12:41:28 1.1215
@@ -1,3 +1,10 @@
+2007-09-12 Christophe Rhodes <csr21 at cantab.net>
+
+ Make ASDF:LOAD-OP (and SBCL REQUIRE) happy with swank.asd
+
+ * swank.asd: Define and use a CL-SCRIPT-FILE class for loading as
+ source, even with ASDF:LOAD-OP.
+
2007-09-11 Tobias C. Rittweiler <tcr at freebits.de>
* swank-loader.lisp: Aways compile-file `contrib/swank-asdf.lisp'
--- /project/slime/cvsroot/slime/swank.asd 2006/07/12 20:25:23 1.4
+++ /project/slime/cvsroot/slime/swank.asd 2007/09/14 12:41:28 1.5
@@ -19,10 +19,30 @@
;; This code has been placed in the Public Domain. All warranties
;; are disclaimed.
+(defpackage :swank-loader
+ (:use :cl))
+
+(in-package :swank-loader)
+
+(defclass cl-script-file (asdf: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))
+ 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")))
-(defpackage :swank-loader)
-(defparameter swank-loader::*source-directory*
+(defparameter *source-directory*
(asdf:component-pathname (asdf:find-system :swank)))
--- /project/slime/cvsroot/slime/swank-loader.lisp 2007/09/11 19:30:53 1.72
+++ /project/slime/cvsroot/slime/swank-loader.lisp 2007/09/14 12:41:28 1.73
@@ -18,7 +18,6 @@
;; (defparameter swank-loader::*fasl-directory* "/tmp/fasl/")
;; (load ".../swank-loader.lisp")
-
(cl:defpackage :swank-loader
(:use :cl)
(:export :load-swank
More information about the slime-cvs
mailing list