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. ;;; This is asdf: Another System Definition Facility.
;;; ;;;
;;; Feedback, bug reports, and patches are all welcome: ;;; Feedback, bug reports, and patches are all welcome:
...@@ -206,6 +207,14 @@ Defaults to `t`.") ...@@ -206,6 +207,14 @@ Defaults to `t`.")
(defparameter +asdf-methods+ (defparameter +asdf-methods+
'(perform explain output-files operation-done-p)) '(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. ;;;; Cleanups before hot-upgrade.
;;;; Things to do in case we're upgrading from a previous version of ASDF. ;;;; 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." ...@@ -2712,6 +2721,11 @@ with a different configuration, so the configuration would be re-read then."
(when *load-verbose* (when *load-verbose*
(asdf-message ";; ASDF, version ~a" (asdf-version))) (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 :asdf *features*)
;;(pushnew :asdf2 *features*) ;; do that when we reach version 2 ;;(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