[mcclim-devel] Patch: Fix system pathnames.

[Douglas Crosher]

* defsystem :clouseau: avoid pathname directory namestrings in file component names;
   reworking to be more portable.

-------------- next part --------------
Index: mcclim.asd
===================================================================
RCS file: /project/mcclim/cvsroot/mcclim/mcclim.asd,v
retrieving revision 1.23
diff -u -u -r1.23 mcclim.asd
--- mcclim.asd	3 Jul 2006 04:58:41 -0000	1.23
+++ mcclim.asd	18 Oct 2006 00:13:54 -0000
@@ -417,9 +418,12 @@
     :depends-on (:mcclim)
     :serial t
     :components
-    ((:file "Apps/Inspector/package")
-     (:file "Apps/Inspector/disassembly")
-     (:file "Apps/Inspector/inspector")))
+    ((:module "Apps/Inspector"
+              :pathname #.(make-pathname :directory '(:relative "Apps" "Inspector"))
+              :components
+	      ((:file "package")
+	       (:file "disassembly")
+	       (:file "inspector")))))
 
 (defmethod perform :after ((op load-op) (c (eql (find-system :clim))))
   (pushnew :clim *features*)