Suppression de la sortie de la console asdf:load-system

Question

J'ai créé un petit projet en utilisant Steel Bank Common Lisp et j'utilise ASDF pour le compiler et le charger.La commande de chargement est :

(asdf:load-system :<my-system>)

Tout fonctionne bien (le programme est compilé et fonctionne correctement) mais je continue à recevoir des résultats comme

; compiling file "[...].lisp" (written 13 APR 2014 06:20:03 PM):
; compiling (DEFPACKAGE :<my-package> ...)
; compiling (DEFUN <my-func-1> ...)
; compiling (DEFUN <my-func-2> ...)
; compiling (DEFUN <my-func-3> ...)

chaque fois que le programme est recompilé.

Je suppose que cette sortie vient de asdf parce que j'appelle l'application avec

sbcl --noinform --noprint --script runner_sbcl.lisp

où runner_sbcl.lisp charge l'application réelle via asdf:load-system.Donc je suppose que cette sortie ne vient pas de sbcl.

Existe-t-il un moyen de désactiver la sortie de la console dans asdf:load-system?Je souhaite être uniquement informé des erreurs/avertissements de compilation.Je n'ai trouvé aucune information dans la documentation.

Answer 1

qu'en est-il de

(setf *load-verbose* nil)
(setf *load-print* nil)
(setf *compile-verbose* nil)
(setf *compile-print* nil)

?

Pourquoi sont-ils définis, de toute façon ?

Answer 2

Ceci est ma solution de contournement pour un problème similaire que j'ai eu avec ql:quickload de quicklisp.

(with-output-to-string (*standard-output*)
  ;; asdf:load-system or ql:quickload..
  (asdf:load-system :<your-system>))