X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fdebug.impure.lisp;h=18cf13750bcd205c9f842eaa13020088ec6a2727;hb=838316d0ad9affb2a4284ece65798aed6313d7e7;hp=f33a966784bcd75d89e56d171fbbdd5e4a121214;hpb=83659744f9caa97aa83eb562d872b1c0127403c0;p=sbcl.git

diff --git a/tests/debug.impure.lisp b/tests/debug.impure.lisp
index f33a966..18cf137 100644
--- a/tests/debug.impure.lisp
+++ b/tests/debug.impure.lisp
@@ -434,7 +434,7 @@
 ;;; This is not a WITH-TEST :FAILS-ON PPC DARWIN since there are
 ;;; suspicions that the breakpoint trace might corrupt the whole image
 ;;; on that platform.
-#-(and (or ppc x86 x86-64) darwin)
+#-(and (or ppc x86 x86-64) (or darwin sunos))
 (with-test (:name (trace :encapsulate nil)
             :fails-on '(or (and :ppc (not :linux)) :sparc :mips))
   (let ((out (with-output-to-string (*trace-output*)
@@ -455,6 +455,15 @@
     (assert (search "returned 1" out))
     (assert (search "returned 120" out))))
 
+(defun trace-and-fmakunbound-this (x)
+  x)
+
+(with-test (:name :bug-667657)
+  (trace trace-and-fmakunbound-this)
+  (fmakunbound 'trace-and-fmakunbound-this)
+  (untrace)
+  (assert (not (trace))))
+
 (with-test (:name :bug-414)
   (handler-bind ((warning #'error))
     (load (compile-file "bug-414.lisp"))