diff --git a/ansi-tests/compile-file.lsp b/ansi-tests/compile-file.lsp
index 1d2d7443ba5141c5c02724ad5e31ff8b19346f0e..48e0ba1ef9453fbaaa271528ab1bfb2028c4870c 100644
--- a/ansi-tests/compile-file.lsp
+++ b/ansi-tests/compile-file.lsp
@@ -26,10 +26,12 @@
 		  (handler-bind
 		   ((style-warning #'(lambda (c)
 				       (declare (ignore c))
+;				       (break "foo")
 				       (setf actual-style-warnings-p t)
 				       nil))
 		    ((or error warning)
 		     #'(lambda (c)
+;			 (break "bar")
 			 (unless (typep c 'style-warning)
 			   (setf actual-warnings-p t))
 			 nil)))
@@ -40,8 +42,9 @@
       (destructuring-bind
 	  (output-truename warnings-p failure-p)
 	  vals
-	(print (namestring (truename target-pathname)))
-	(print (namestring output-truename))
+;	(print (namestring (truename target-pathname)))
+;	(print (namestring output-truename))
+;	(format t "str ~a~%" str)
 	(values
 	 (let ((v1 (or print verbose
 		       (and (not print-p) *compile-print*)
diff --git a/ansi-tests/documentation.lsp b/ansi-tests/documentation.lsp
index cc4cd65882404bcdf4b0a71e32551bd22bd5ae3b..1427b9af68be349dbad722fed9d7e12abfac6d14 100644
--- a/ansi-tests/documentation.lsp
+++ b/ansi-tests/documentation.lsp
@@ -627,8 +627,8 @@
   (defmethod (setf documentation-test-class-1-doc-accessor) ((newdoc string) (obj documentation-test-class-1))
     (setf (slot-value obj 'my-doc) newdoc))
   
-  (defmethod documentation ((obj documentation-test-class-1) (doctype (eql t)))
-    (documentation-test-class-1-doc-accessor obj))
+;  (defmethod documentation ((obj documentation-test-class-1) (doctype (eql t)))
+;    (documentation-test-class-1-doc-accessor obj))
 
   (defmethod (setf documentation) ((newdoc string) (obj documentation-test-class-1) (doctype (eql t)))
     (setf (documentation-test-class-1-doc-accessor obj) newdoc)))
diff --git a/ansi-tests/load-data-and-control-flow.lsp b/ansi-tests/load-data-and-control-flow.lsp
index f5cab57694e68d17582b3351609ded015065d3d9..a5bf30ec96a5f14122723951648fb28e6aeda84a 100644
--- a/ansi-tests/load-data-and-control-flow.lsp
+++ b/ansi-tests/load-data-and-control-flow.lsp
@@ -9,7 +9,7 @@
 (load "return.lsp")
 (load "return-from.lsp")
 (load "defsetf.lsp")
-(load "define-setf-expander.lsp")
+;(load "define-setf-expander.lsp")
 
 (load "and.lsp")
 (load "apply.lsp")