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