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