;;; set-up-for-quail.lsp
(eval-when (:load-toplevel) (require :asdf))
#+:allegro(in-package :cl-user)
#+:sbcl(in-package :cl-user)
(unless (string-equal (asdf:asdf-version) "3.3.4")
 (load #+:sbcl "~/Downloads/asdf.fasl"
 	#+:allegro "~/Downloads/ACL-ASDF/asdf.fasl"))

#+:sbcl(declaim (sb-ext:muffle-conditions cl:warning))
#+:sbcl(declaim (sb-ext:muffle-conditions sb-ext:compiler-note)) ;;sbcl-manual Sect 4.1.1
;; unmuffle re-actvivates the warnings

(defun reset-asdf (&optional load-file)
  (asdf:clear-source-registry)
  (asdf:clear-configuration)
  (if load-file
	(asdf:clear-system load-file)))

(load "~/LISP-UTILITIES/logging-tools.lsp")

#+:allegro(setf (sys:gsgc-switch :gc-old-before-expand) t)
#+:allegro(in-package :cl-user)