Commit 7f3523c9 authored by Robert P. Goldman's avatar Robert P. Goldman
Browse files

Tweak to quash Allegro warnings on nested reader conditionals.

parent f287a975
;;; -*- mode: common-lisp; package: asdf; -*-
;;; This is asdf: Another System Definition Facility.
;;;
;;; Feedback, bug reports, and patches are all welcome:
......@@ -206,6 +207,14 @@ Defaults to `t`.")
(defparameter +asdf-methods+
'(perform explain output-files operation-done-p))
#+allegro
(eval-when (:compile-toplevel)
(defparameter *acl-warn-save*
(when (boundp 'excl:*warn-on-nested-reader-conditionals*)
excl:*warn-on-nested-reader-conditionals*))
(when (boundp 'excl:*warn-on-nested-reader-conditionals*)
(setf excl:*warn-on-nested-reader-conditionals* nil)))
;;;; -------------------------------------------------------------------------
;;;; Cleanups before hot-upgrade.
;;;; Things to do in case we're upgrading from a previous version of ASDF.
......@@ -2712,6 +2721,11 @@ with a different configuration, so the configuration would be re-read then."
(when *load-verbose*
(asdf-message ";; ASDF, version ~a" (asdf-version)))
#+allegro
(eval-when (:compile-toplevel)
(when (boundp 'excl:*warn-on-nested-reader-conditionals*)
(setf excl:*warn-on-nested-reader-conditionals* *acl-warn-save*)))
(pushnew :asdf *features*)
;;(pushnew :asdf2 *features*) ;; do that when we reach version 2
......
Markdown is supported
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