[mcclim-cvs] CVS mcclim

[ahefner]

Update of /project/mcclim/cvsroot/mcclim
In directory clnet:/tmp/cvs-serv10987

Modified Files:
	mcclim.asd 
Log Message:
Add the inspector to mcclim.asd, depend on :mcclim instead of :clim, 
:clim-looks for examples and applications.



--- /project/mcclim/cvsroot/mcclim/mcclim.asd	2006/05/07 19:47:19	1.21
+++ /project/mcclim/cvsroot/mcclim/mcclim.asd	2006/06/10 18:20:22	1.22
@@ -315,9 +315,14 @@
 (defsystem :clim-clx-user
     :depends-on (:clim :clim-clx))
 
+;;; The actual McCLIM system that people should to use in their ASDF
+;;; package dependency lists.
+(defsystem :mcclim
+    :depends-on (:clim-looks))
+
 ;;; CLIM-Examples depends on having at least one backend loaded.
 (defsystem :clim-examples
-    :depends-on (:clim :clim-looks)
+    :depends-on (:mcclim)
     :components
     ((:module "Examples"
               :components
@@ -348,7 +353,7 @@
 ;;; This won't load in SBCL, either. I have really crappy code to
 ;;; extract dependency information from :serial t ASDF systems, but
 ;;; this comment is too narrow to contain it.
-(clim-defsystem (:scigraph :depends-on (:clim :clim-looks))
+(clim-defsystem (:scigraph :depends-on (:mcclim))
   ;; The DWIM part of SCIGRAPH		
   "Apps/Scigraph/dwim/package"
   "Apps/Scigraph/dwim/feature-case"
@@ -391,7 +396,7 @@
   "Apps/Scigraph/scigraph/demo-frame")
 
 (defsystem :clim-listener
-    :depends-on (:clim :clim-looks #+sbcl :sb-posix)
+    :depends-on (:mcclim #+sbcl :sb-posix)
     :components
     ((:file "Experimental/xpm"
             :pathname #.(make-pathname :directory '(:relative "Experimental") :name "xpm" :type "lisp"))
@@ -407,11 +412,13 @@
                (:file "listener" :depends-on ("package" "file-types" "icons" "dev-commands" "util"))
                #+CMU (:file "cmu-hacks" :depends-on ("package"))))))
 
-
-;;; The actual McCLIM system that people should to use in their ASDF
-;;; package dependency lists.
-(defsystem :mcclim
-    :depends-on (:clim-looks))
+(defsystem :clouseau
+    :depends-on (:mcclim)
+    :serial t
+    :components
+    ((:file "Apps/Inspector/package")
+     (:file "Apps/Inspector/disassembly")
+     (:file "Apps/Inspector/inspector")))
 
 (defmethod perform :after ((op load-op) (c (eql (find-system :clim))))
   (pushnew :clim *features*)