[asdf-devel] spurious warnings patch for CMUCL

[Devon Sean McCullough]

Fix two unreachable code removal warnings in CMUCL:

diff -Bbdur old/asdf/asdf.lisp new/asdf/asdf.lisp
--- old/asdf/asdf.lisp	2010-05-21 17:18:04.000000000 -0400
+++ new/asdf/asdf.lisp	2010-05-22 17:01:06.000000000 -0400
@@ -492,7 +492,7 @@
   (let* ((specified (pathname specified))
          (defaults (pathname defaults))
          (directory (pathname-directory specified))
-         #-sbcl (directory (if (stringp directory) `(:absolute ,directory) directory))
+         #-(or cmu sbcl) (directory (if (stringp directory) `(:absolute ,directory) directory))
          (name (or (pathname-name specified) (pathname-name defaults)))
          (type (or (pathname-type specified) (pathname-type defaults)))
          (version (or (pathname-version specified) (pathname-version defaults))))
@@ -734,7 +734,7 @@
            (directory (pathname-directory p)))
       (when (typep p 'logical-pathname) (return p))
       (ignore-errors (return (truename p)))
-      #-sbcl (when (stringp directory) (return p))
+      #-(or cmu sbcl) (when (stringp directory) (return p))
       (when (not (eq :absolute (car directory))) (return p))
       (let ((sofar (ignore-errors (truename (pathname-root p)))))
         (unless sofar (return p))

		Peace
			--Devon
	 /~\
	 \ /	Health Care
	  X 	not warfare
	 / \

PS: Is this a good venue for patches?