X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=inline;f=tests%2Fcompiler.impure.lisp;h=cf2a75ea0a12cda8822bf5222cb011fa795b3268;hb=5cd0fc84df83d1b3321b7fc969843207721de429;hp=e8f86a0da3e597aad9c89a400eaddca6fa1f9b30;hpb=ff92598854bf7cae8d57fe49cef4d9a98e1ab345;p=sbcl.git

diff --git a/tests/compiler.impure.lisp b/tests/compiler.impure.lisp
index e8f86a0..cf2a75e 100644
--- a/tests/compiler.impure.lisp
+++ b/tests/compiler.impure.lisp
@@ -898,7 +898,7 @@
 
 ;;;; MUFFLE-CONDITIONS test (corresponds to the test in the manual)
 (defvar *compiler-note-count* 0)
-#-alpha ; FIXME: make a better test!
+#-(or alpha x86-64) ; FIXME: make a better test!
 (handler-bind ((sb-ext:compiler-note (lambda (c)
 				       (declare (ignore c))
 				       (incf *compiler-note-count*))))
@@ -990,5 +990,13 @@
 	  (grovel-results name))))))
 (identify-suspect-vops)
 
+;;;; tests for compiler output
+(let* ((*error-output* (make-broadcast-stream))
+       (output (with-output-to-string (*standard-output*)
+		 (compile-file "compiler-output-test.lisp" 
+			       :print nil :verbose nil))))
+  (print output)
+  (assert (zerop (length output))))
+
 ;;; success
 (quit :unix-status 104)