diff --git a/asdf.lisp b/asdf.lisp index 40d6da6c4ee7d8c8ff42b95ac78dbcb92b742b4c..ecfff9dd7ee96ad12aa4ee254889a6e7ee68e8aa 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*)