(progn
   (defparameter *loads* ())
   (defparameter *load-depth* 0)
   (ccl:advise asdf:operate
               (let ((current-load (list)))
                 (incf *load-depth*)
                 (push (cons *load-depth* arglist)
                       *loads*)
                 (unwind-protect (:do-it)
                   (decf *load-depth*)))
               :when :around))