From f69bed33c7af7acd41cfc45d4f032542e152e0b3 Mon Sep 17 00:00:00 2001 From: camm <camm@localhost> Date: Fri, 12 Aug 2005 15:42:49 +0000 Subject: [PATCH] BUGS --- ansi-tests/compile-file.lsp | 7 +++++-- ansi-tests/documentation.lsp | 4 ++-- ansi-tests/load-data-and-control-flow.lsp | 2 +- 3 files changed, 8 insertions(+), 5 deletions(-) diff --git a/ansi-tests/compile-file.lsp b/ansi-tests/compile-file.lsp index 1d2d7443..48e0ba1e 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 cc4cd658..1427b9af 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 f5cab576..a5bf30ec 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