[armedbear-cvs] r13316 - trunk/abcl/src/org/armedbear/lisp

[mevenson at common-lisp.net]

Author: mevenson
Date: Thu Jun  9 06:03:05 2011
New Revision: 13316

Log:
Remove inadvertent commit of debugging code.

Modified:
   trunk/abcl/src/org/armedbear/lisp/asdf.lisp

Modified: trunk/abcl/src/org/armedbear/lisp/asdf.lisp
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/asdf.lisp	Thu Jun  9 06:01:16 2011	(r13315)
+++ trunk/abcl/src/org/armedbear/lisp/asdf.lisp	Thu Jun  9 06:03:05 2011	(r13316)
@@ -2135,9 +2135,7 @@
 
 ;;; 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*)
   #-:broken-fasl-loader
   (let ((source-file (component-pathname c))
         ;; on some implementations, there are more than one output-file,