From e5ae9243ef4cb5ec0ee766c1a82c762837898f74 Mon Sep 17 00:00:00 2001
From: Francois-Rene Rideau <fare@tunes.org>
Date: Tue, 2 Feb 2010 20:19:57 -0500
Subject: [PATCH] 1.592: fix upgrade by removing deleted symbol before
 defpackage.

---
 asdf.lisp | 14 +++++++++++---
 1 file changed, 11 insertions(+), 3 deletions(-)

diff --git a/asdf.lisp b/asdf.lisp
index 40d6da6c..ecfff9dd 100644
--- a/asdf.lisp
+++ b/asdf.lisp
@@ -41,11 +41,19 @@
 ;;;
 ;;; -- LICENSE END
 
-;;; the problem with writing a defsystem replacement is bootstrapping:
-;;; we can't use defsystem to compile it.  Hence, all in one file
+;;; The problem with writing a defsystem replacement is bootstrapping:
+;;; we can't use defsystem to compile it.  Hence, all in one file.
 
 #+xcvb (module ())
 
+(cl:in-package :cl-user)
+
+(eval-when (:compile-toplevel :load-toplevel :execute)
+  (let ((sym (find-symbol "*ASDF-REVISION*" :asdf)))
+    (when sym
+      (unexport sym)
+      (unintern sym))))
+
 (defpackage #:asdf
   (:documentation "Another System Definition Facility")
   (:export #:defsystem #:oos #:operate #:find-system #:run-shell-command
@@ -165,7 +173,7 @@
 ;;;;
 (defparameter *asdf-version*
   ;; the 1+ hair is to ensure that we don't do an inadvertent find and replace
-  (subseq "VERSION:1.591" (1+ (length "VERSION"))))
+  (subseq "VERSION:1.592" (1+ (length "VERSION"))))
 
 (defun asdf-version ()
   *asdf-version*)
-- 
GitLab