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

1.592: fix upgrade by removing deleted symbol before defpackage.

parent dd281823
Loading
Loading
Loading
Loading
+11 −3
Original line number Diff line number Diff line
@@ -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*)