Skip to content
Snippets Groups Projects
Commit fb84bc21 authored by Francois-Rene Rideau's avatar Francois-Rene Rideau
Browse files

2.26.108: fix the "new export" case of define-package.

parent 002eb570
No related branches found
No related tags found
No related merge requests found
...@@ -15,7 +15,7 @@ ...@@ -15,7 +15,7 @@
:licence "MIT" :licence "MIT"
:description "Another System Definition Facility" :description "Another System Definition Facility"
:long-description "ASDF builds Common Lisp software organized into defined systems." :long-description "ASDF builds Common Lisp software organized into defined systems."
:version "2.26.108" ;; to be automatically updated by bin/bump-revision :version "2.26.109" ;; to be automatically updated by bin/bump-revision
:depends-on () :depends-on ()
:components ((:module "build" :components ((:file "asdf")))) :components ((:module "build" :components ((:file "asdf"))))
:in-order-to (#+asdf2.27 (compile-op (monolithic-load-concatenated-source-op generate-asdf)))) :in-order-to (#+asdf2.27 (compile-op (monolithic-load-concatenated-source-op generate-asdf))))
......
;; -*- mode: Common-Lisp; Base: 10 ; Syntax: ANSI-Common-Lisp ; coding: utf-8 -*- ;; -*- mode: Common-Lisp; Base: 10 ; Syntax: ANSI-Common-Lisp ; coding: utf-8 -*-
;;; This is ASDF 2.26.108: Another System Definition Facility. ;;; This is ASDF 2.26.109: Another System Definition Facility.
;;; ;;;
;;; Feedback, bug reports, and patches are all welcome: ;;; Feedback, bug reports, and patches are all welcome:
;;; please mail to <asdf-devel@common-lisp.net>. ;;; please mail to <asdf-devel@common-lisp.net>.
......
...@@ -468,17 +468,17 @@ or when loading the package is optional." ...@@ -468,17 +468,17 @@ or when loading the package is optional."
(multiple-value-bind (usym ustat) (find-symbol name u) (multiple-value-bind (usym ustat) (find-symbol name u)
(unless (and ustat (eq sym usym)) (unless (and ustat (eq sym usym))
(let ((accessible (let ((accessible
(when ustat (or (null ustat)
(let ((shadowing (symbol-shadowing-p usym u)) (let ((shadowing (symbol-shadowing-p usym u))
(recycled (symbol-recycled-p usym))) (recycled (symbol-recycled-p usym)))
(unless (and shadowing (not recycled)) (unless (and shadowing (not recycled))
(if (or (eq ustat :inherited) shadowing) (fishy :ensure-export name (symbol-package-name sym)
(shadowing-import sym u) (package-name u)
(unintern usym u)) (and ustat (symbol-package-name usym)) ustat shadowing)
(fishy :ensure-export name (symbol-package-name sym) (if (or (eq ustat :inherited) shadowing)
(package-name u) (shadowing-import sym u)
(and ustat (symbol-package-name usym)) ustat shadowing) (unintern usym u))
t))))) t)))))
(when (and accessible (eq ustat :external)) (when (and accessible (eq ustat :external))
(ensure-exported name sym u))))))) (ensure-exported name sym u)))))))
#-gcl (setf (documentation package t) documentation) #+gcl documentation #-gcl (setf (documentation package t) documentation) #+gcl documentation
......
...@@ -45,7 +45,7 @@ ...@@ -45,7 +45,7 @@
;; "2.345.6" would be a development version in the official upstream ;; "2.345.6" would be a development version in the official upstream
;; "2.345.0.7" would be your seventh local modification of official release 2.345 ;; "2.345.0.7" would be your seventh local modification of official release 2.345
;; "2.345.6.7" would be your seventh local modification of development version 2.345.6 ;; "2.345.6.7" would be your seventh local modification of development version 2.345.6
(asdf-version "2.26.108") (asdf-version "2.26.109")
(existing-asdf (find-class (find-symbol* :component :asdf nil) nil)) (existing-asdf (find-class (find-symbol* :component :asdf nil) nil))
(existing-version *asdf-version*) (existing-version *asdf-version*)
(already-there (equal asdf-version existing-version))) (already-there (equal asdf-version existing-version)))
......
"2.26.108" "2.26.109"
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment