Remove inadvertent commit of debugging code.

parent b7c06d1e
......@@ -2135,9 +2135,7 @@ recursive calls to traverse.")
;;; perform is required to check output-files to find out where to put
;;; its answers, in case it has been overridden for site policy
(defvar *debug-perform-compile-op* nil)
(defmethod perform ((operation compile-op) (c cl-source-file))
(push (list operation c) *debug-perform-compile-op*)
(let ((source-file (component-pathname c))
;; on some implementations, there are more than one output-file,
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