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

2.013.1: Fix upgrade issue when dealing with package change. 

Found while using GCL on Debian running 2.004, but should affect
any implementation upgrading from ASDF earlier than 2.009 or so. Oops.
parent ad45e42d

asdf.asd

+1 −1
Original line number Diff line number Diff line
@@ -12,7 +12,7 @@ 
  :licence "MIT"

  :description "Another System Definition Facility"

  :long-description "ASDF builds Common Lisp software organized into defined systems."

  :version "2.013" ;; to be automatically updated by bin/bump-revision

  :version "2.013.1" ;; to be automatically updated by bin/bump-revision

  :depends-on ()

  :components

  ((:file "asdf")

asdf.lisp

+3 −3
Original line number Diff line number Diff line 
;;; -*- mode: common-lisp; Base: 10 ; Syntax: ANSI-Common-Lisp -*-

;;; This is ASDF 2.013: Another System Definition Facility.

;;; This is ASDF 2.013.1: Another System Definition Facility.

;;;

;;; Feedback, bug reports, and patches are all welcome:

;;; please mail to <asdf-devel@common-lisp.net>.
@@ -83,7 +83,7 @@ 
         ;; "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.6.7" would be your seventh local modification of development version 2.345.6

         (asdf-version "2.013")

         (asdf-version "2.013.1")

         (existing-asdf (fboundp 'find-system))

         (existing-version *asdf-version*)

         (already-there (equal asdf-version existing-version)))
@@ -94,7 +94,7 @@ 
         existing-version asdf-version))

      (labels

          ((present-symbol-p (symbol package)

             (member (nth-value 1 (find-symbol symbol package)) '(:internal :external)))

             (member (nth-value 1 (find-sym symbol package)) '(:internal :external)))

           (present-symbols (package)

             ;; #-genera (loop :for s :being :the :present-symbols :in package :collect s) #+genera

             (let (l)