diff --git a/ansi-tests/compile-file.lsp b/ansi-tests/compile-file.lsp index 48e0ba1ef9453fbaaa271528ab1bfb2028c4870c..1d2d7443ba5141c5c02724ad5e31ff8b19346f0e 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 1427b9af68be349dbad722fed9d7e12abfac6d14..cc4cd65882404bcdf4b0a71e32551bd22bd5ae3b 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 a5bf30ec96a5f14122723951648fb28e6aeda84a..f5cab57694e68d17582b3351609ded015065d3d9 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")