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

1.594: Yet another fix. Specify where to unexport from.

parent 60b2baf9
...@@ -53,7 +53,7 @@ ...@@ -53,7 +53,7 @@
(when asdf (when asdf
(let ((sym (find-symbol "*ASDF-REVISION*" asdf))) (let ((sym (find-symbol "*ASDF-REVISION*" asdf)))
(when sym (when sym
(unexport sym) (unexport sym asdf)
(unintern sym)))))) (unintern sym))))))
(defpackage #:asdf (defpackage #:asdf
...@@ -175,7 +175,7 @@ ...@@ -175,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.593" (1+ (length "VERSION")))) (subseq "VERSION:1.594" (1+ (length "VERSION"))))
(defun asdf-version () (defun asdf-version ()
*asdf-version*) *asdf-version*)
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment