Commit 4f380e70 authored by Robert Goldman's avatar Robert Goldman Committed by Francois-Rene Rideau
Browse files

Remove Allegro fix.

No longer needed.  Only needed to fix upgrade from version 2.x, but
there's no more 2.x on Allegro.
parent af850add
Loading
Loading
Loading
Loading
+1 −6
Original line number Diff line number Diff line
@@ -37,15 +37,10 @@ You can compare this string with e.g.: (ASDF:VERSION-SATISFIES (ASDF:ASDF-VERSIO
      (when previous
        ;; Punt on upgrade from ASDF1 or ASDF2, by renaming (or deleting) the package.
        (when (version< previous "2.27") ;; 2.27 is the first to have the :asdf3 feature.
          #-allegro
          (let ((away (format nil "~A-~A" :asdf previous)))
            (rename-package :asdf away)
            (when *load-verbose*
              (format t "~&; Renamed old ~A package away to ~A~%" :asdf away)))
          #+allegro
          (progn (delete-package :asdf) ;; rename-package fails badly on allegro
                 (when *load-verbose*
                   (format t "~&; Deleted old ~A package~%" :asdf))))
              (format t "~&; Renamed old ~A package away to ~A~%" :asdf away))))
        (list previous))))
  ;; This public variable will be bound shortly to the currently loaded version of ASDF.
  (defvar *asdf-version* nil)