From 67b5bdaf3c49eec6aaab2633c809a7bb23ddef37 Mon Sep 17 00:00:00 2001
From: Francois-Rene Rideau <fare@tunes.org>
Date: Sun, 14 Nov 2010 00:24:45 -0500
Subject: [PATCH] 2.010.4: trivial code tweaks. Have asdf build.xcvb supersede
 asdf.asd.

---
 asdf.lisp  | 5 ++---
 build.xcvb | 1 +
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/asdf.lisp b/asdf.lisp
index fddbfe97..ecaad579 100644
--- a/asdf.lisp
+++ b/asdf.lisp
@@ -73,7 +73,7 @@
 (eval-when (:load-toplevel :compile-toplevel :execute)
   (defvar *asdf-version* nil)
   (defvar *upgraded-p* nil)
-  (let* ((asdf-version "2.010.3") ;; bump this version when you modify this file.
+  (let* ((asdf-version "2.010.4") ;; bump this version when you modify this file.
          (existing-asdf (fboundp 'find-system))
          (existing-version *asdf-version*)
          (already-there (equal asdf-version existing-version)))
@@ -546,9 +546,8 @@ pathnames."
     :append (list k v)))
 
 (defun* getenv (x)
-  (#+abcl ext:getenv
+  (#+(or abcl clisp) ext:getenv
    #+allegro sys:getenv
-   #+clisp ext:getenv
    #+clozure ccl:getenv
    #+(or cmu scl) (lambda (x) (cdr (assoc x ext:*environment-list* :test #'string=)))
    #+ecl si:getenv
diff --git a/build.xcvb b/build.xcvb
index bfe06b71..76e4f8e3 100644
--- a/build.xcvb
+++ b/build.xcvb
@@ -6,4 +6,5 @@
   :description "ASDF"
   :long-description "Another System Definition Facility."
   :depends-on ("asdf" (:when (:featurep :ecl) "asdf-ecl"))
+  :supersedes-asdf ("asdf")
   :build-image nil))
-- 
GitLab