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

Diff of /slime/swank.asd

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.4 by heller, Wed Jul 12 20:25:23 2006 UTC revision 1.5 by heller, Fri Sep 14 12:41:28 2007 UTC
# Line 19  Line 19 
19  ;; This code has been placed in the Public Domain.  All warranties  ;; This code has been placed in the Public Domain.  All warranties
20  ;; are disclaimed.  ;; are disclaimed.
21    
22    (defpackage :swank-loader
23      (:use :cl))
24    
25    (in-package :swank-loader)
26    
27    (defclass cl-script-file (asdf:source-file) ())
28    
29    (defmethod asdf:perform ((o asdf:compile-op) (f cl-script-file))
30      t)
31    (defmethod asdf:perform ((o asdf:load-op) (f cl-script-file))
32      (mapcar #'load (asdf:input-files o f)))
33    (defmethod asdf:output-files ((o asdf:compile-op) (f cl-script-file))
34      nil)
35    (defmethod asdf:input-files ((o asdf:load-op) (c cl-script-file))
36      (list (asdf:component-pathname c)))
37    (defmethod asdf:operation-done-p ((o asdf:compile-op) (c cl-script-file))
38      t)
39    (defmethod asdf:source-file-type ((c cl-script-file) (s asdf:module))
40      "lisp")
41    
42  (asdf:defsystem :swank  (asdf:defsystem :swank
43        :default-component-class cl-script-file
44      :components ((:file "swank-loader")))      :components ((:file "swank-loader")))
45    
46  (defpackage :swank-loader)  (defparameter *source-directory*
 (defparameter swank-loader::*source-directory*  
47    (asdf:component-pathname (asdf:find-system :swank)))    (asdf:component-pathname (asdf:find-system :swank)))
48    

Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5

  ViewVC Help
Powered by ViewVC 1.1.5