Commit 60b2baf9 authored by Francois-Rene Rideau's avatar Francois-Rene Rideau
Browse files

1.593: fix the non-upgrade by not trying to find-package into a non-existing package. Sigh.

parent e5ae9243
Loading
Loading
Loading
Loading
+7 −5
Original line number Original line Diff line number Diff line
@@ -49,10 +49,12 @@
(cl:in-package :cl-user)
(cl:in-package :cl-user)


(eval-when (:compile-toplevel :load-toplevel :execute)
(eval-when (:compile-toplevel :load-toplevel :execute)
  (let ((sym (find-symbol "*ASDF-REVISION*" :asdf)))
  (let ((asdf (find-package :asdf)))
    (when asdf
      (let ((sym (find-symbol "*ASDF-REVISION*" asdf)))
        (when sym
        (when sym
          (unexport sym)
          (unexport sym)
      (unintern sym))))
          (unintern sym))))))


(defpackage #:asdf
(defpackage #:asdf
  (:documentation "Another System Definition Facility")
  (:documentation "Another System Definition Facility")
@@ -173,7 +175,7 @@
;;;;
;;;;
(defparameter *asdf-version*
(defparameter *asdf-version*
  ;; the 1+ hair is to ensure that we don't do an inadvertent find and replace
  ;; the 1+ hair is to ensure that we don't do an inadvertent find and replace
  (subseq "VERSION:1.592" (1+ (length "VERSION"))))
  (subseq "VERSION:1.593" (1+ (length "VERSION"))))


(defun asdf-version ()
(defun asdf-version ()
  *asdf-version*)
  *asdf-version*)