From 0e343eacaec6fd4a9b374a7bf54ebaa2f3fbe8de Mon Sep 17 00:00:00 2001
From: camm <camm@localhost>
Date: Fri, 12 Aug 2005 15:48:34 +0000
Subject: [PATCH] revert inadvertent commits

---
 ansi-tests/compile-file.lsp               | 7 ++-----
 ansi-tests/documentation.lsp              | 4 ++--
 ansi-tests/load-data-and-control-flow.lsp | 2 +-
 3 files changed, 5 insertions(+), 8 deletions(-)

diff --git a/ansi-tests/compile-file.lsp b/ansi-tests/compile-file.lsp
index 48e0ba1e..1d2d7443 100644
--- a/ansi-tests/compile-file.lsp
+++ b/ansi-tests/compile-file.lsp
@@ -26,12 +26,10 @@
 		  (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)))
@@ -42,9 +40,8 @@
       (destructuring-bind
 	  (output-truename warnings-p failure-p)
 	  vals
-;	(print (namestring (truename target-pathname)))
-;	(print (namestring output-truename))
-;	(format t "str ~a~%" str)
+	(print (namestring (truename target-pathname)))
+	(print (namestring output-truename))
 	(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 1427b9af..cc4cd658 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 a5bf30ec..f5cab576 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")
-- 
GitLab