Commit 41fc6171 authored by Robert Goldman's avatar Robert Goldman
Browse files

Patch from Duane Rettig at Franz.

Fix the check for Allegro 10.1 patch.  Upgrade will fail without this
patch (ma040), but the code for detecting it was wrong.
parent c8d33588
Loading
Loading
Loading
Loading
+2 −1
Original line number Diff line number Diff line
@@ -83,7 +83,8 @@
    (setf excl:*warn-on-nested-reader-conditionals* uiop/common-lisp::*acl-warn-save*))

  #+(and allegro allegro-v10.1) ;; check for patch needed for upgradeability
  (unless (assoc "ma040" (cdr (assoc :lisp sys:*patches*)) :test 'equal)
  (when (and (not (member :developer excl::.build-mode. :test #'eq))
             (not (assoc "ma040" (cdr (assoc :lisp sys:*patches*)) :test 'equal)))
    (warn 'asdf-install-warning
          :format-control "On Allegro Common Lisp 10.1, patch pma040 is ~
needed for correct ASDF upgrading. Please update your Allegro image ~