From 4b69475a6e64cef489b83907cbbd39a5f38ef6ed Mon Sep 17 00:00:00 2001
From: pfdietz <pfdietz@localhost>
Date: Mon, 11 Apr 2005 12:49:20 +0000
Subject: [PATCH] More fixes

---
 ansi-tests/compile-file.lsp | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

diff --git a/ansi-tests/compile-file.lsp b/ansi-tests/compile-file.lsp
index 9ce7cdae..d123281e 100644
--- a/ansi-tests/compile-file.lsp
+++ b/ansi-tests/compile-file.lsp
@@ -5,7 +5,8 @@
 
 (in-package :cl-test)
 
-(defun compile-file-test (file funname &rest args &key expect-warnings output-file
+(defun compile-file-test (file funname &rest args &key expect-warnings 
+			       expect-style-warnings output-file
 			       print verbose external-format)
   (declare (ignorable verbose external-format))
   (let* ((target-pathname (or output-file
@@ -27,7 +28,8 @@
 		    ((or error warning)
 		     #'(lambda (c)
 			 (declare (ignore c))
-			 (setf actual-warnings-p t)
+			 (unless (typep c 'style-warning)
+			   (setf actual-warnings-p t))
 			 nil)))
 		   (with-output-to-string
 		     (*standard-output* str)
@@ -40,9 +42,9 @@
       (destructuring-bind
 	  (output-truename warnings-p failure-p)
 	  vals
-	(declare (ignore warnings-p))
 	(assert (if actual-warnings-p failure-p t))
 	(assert (if expect-warnings failure-p t))
+	(assert (if expect-style-warnings warnings-p t))
 	(print (namestring (truename target-pathname)))
 	(print (namestring output-truename))
 	(values
@@ -60,7 +62,7 @@
 
 (deftest compile-file.2
   (compile-file-test "compile-file-test-file-2.lsp" 'compile-file-test-fun.2
-		     :expect-warnings t)
+		     :expect-style-warnings t)
   t t nil nil)
 
 (deftest compile-file.3
-- 
GitLab