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
......@@ -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.
(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)))
(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)
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