Commit 154deb8a authored by Francois-Rene Rideau's avatar Francois-Rene Rideau
Browse files

2.127: remove unreachable code warnings under CMUCL (thanks to Devon Sean McCullough)

parent b1ca6922
Loading
Loading
Loading
Loading
+3 −3
Original line number Diff line number Diff line
@@ -72,7 +72,7 @@
  (defvar *asdf-version* nil)
  (defvar *upgraded-p* nil)
  (let* ((asdf-version ;; the 1+ helps the version bumping script discriminate
          (subseq "VERSION:2.126" (1+ (length "VERSION"))))
          (subseq "VERSION:2.127" (1+ (length "VERSION"))))
         (existing-asdf (fboundp 'find-system))
         (existing-version *asdf-version*)
         (already-there (equal asdf-version existing-version)))
@@ -534,7 +534,7 @@ Also, if either argument is NIL, then the other argument is returned unmodified.
  (let* ((specified (pathname specified))
         (defaults (pathname defaults))
         (directory (pathname-directory specified))
         #-sbcl (directory (if (stringp directory) `(:absolute ,directory) directory))
         #-(or sbcl cmu) (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))))
@@ -786,7 +786,7 @@ with given pathname and if it exists return its truename."
      (when (typep p 'logical-pathname) (return p))
      (let ((found (probe-file* p)))
        (when found (return found)))
      #-sbcl (when (stringp directory) (return p))
      #-(or sbcl cmu) (when (stringp directory) (return p))
      (when (not (eq :absolute (car directory))) (return p))
      (let ((sofar (probe-file* (pathname-root p))))
        (unless sofar (return p))