src/base/asdf.lisp

   1 ;;;; -*- Mode: Lisp; indent-tabs-mode: nil -*-
   2 ;;;
   3 ;;; --- ASDF component classes
   4 ;;;
   5
   6 (in-package :iolib.asdf)
   7
   8 (defclass muffled-source-file (asdf:cl-source-file) ())
   9
  10 (macrolet ((with-muffled-output (&body body)
  11              `(let ((*load-print* nil)
  12                     (*load-verbose* t)
  13                     (*compile-print* nil)
  14                     (*compile-verbose* t)
  15                     #+cmu (ext:*gc-verbose* nil))
  16                 ,@body)))
  17   (defmethod asdf:perform :around ((o asdf:compile-op) (c muffled-source-file))
  18     (with-muffled-output
  19       (call-next-method)))
  20
  21   (defmethod asdf:perform :around ((o asdf:load-source-op) (c muffled-source-file))
  22     (with-muffled-output
  23       (call-next-method))))
  24
  25 (defclass iolib-source-file (muffled-source-file) ())
  26
  27 (import 'iolib-source-file (find-package :asdf))