master: Enable most of clos.impure for --evaluator-mode interpret

The branch "master" has been updated in SBCL:
       via  f4dc30318b1f54c3460f1d035f96f4e1095441d6 (commit)
      from  945dba8de37009ce1548476b99b84f8a49f26ff0 (commit)

- Log -----------------------------------------------------------------
commit f4dc30318b1f54c3460f1d035f96f4e1095441d6
Author: Douglas Katzman <[email protected]>
Date:   Wed Aug 19 13:19:13 2026 -0400

    Enable most of clos.impure for --evaluator-mode interpret
    
    Was disabled by rev 278038f2bb but seems to pass nearly all tests
    under sb-fasteval. No idea what the situation is with sb-eval.
---
 tests/clos.impure.lisp | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/tests/clos.impure.lisp b/tests/clos.impure.lisp
index 6a7adb0f8..d9034bcb0 100644
--- a/tests/clos.impure.lisp
+++ b/tests/clos.impure.lisp
@@ -11,7 +11,7 @@
 ;;;; absolutely no warranty. See the COPYING and CREDITS files for
 ;;;; more information.
 
-#+interpreter (invoke-restart 'run-tests::skip-file)
+(when (assertoid:legacy-eval-p) (invoke-restart 'run-tests::skip-file))
 
 (load "compiler-test-util.lisp")
 (defpackage "CLOS-IMPURE"
@@ -973,7 +973,7 @@
 (let ((x (make-string-output-stream)))
   (let ((value (bug222-b t x)))
     ;; not specified by ANSI
-    #+#.(cl:if (cl:eq sb-ext:*evaluator-mode* :compile) '(and) '(or))
+    #-interpreter
     (assert (= value 3)))
   ;; specified.
   (assert (char= (char (get-output-stream-string x) 0) #\1)))
@@ -2284,7 +2284,7 @@
   y))
 (defun i-cause-an-gf-info-update ()
   (i-dont-want-to-be-clobbered-2 t t t))
-(with-test (:name (defgeneric :should-clobber-ftype))
+(with-test (:name (defgeneric :should-clobber-ftype) :skipped-on :interpreter)
   ;; (because it doesn't check the argument or result types)
   (assert (equal '(function (t t t) *)
                  (sb-kernel:type-specifier
@@ -2351,7 +2351,7 @@
                         (setf slot :value)
                         (go TAG)))
      TAG)))
-(with-test (:name :bug-520366)
+(with-test (:name :bug-520366 :skipped-on :interpreter)
   (let ((callees (find-named-callees #'bar-520366)))
     (assert (equal '(quux-520366) callees))))
 
@@ -2433,7 +2433,7 @@
              (symbol-name s)))
     (assert (equal "FOO" (funcall 'lp-618387 :foo)))))
 
-(with-test (:name (defmethod :pcl-spurious-ignore-warnings))
+(with-test (:name (defmethod :pcl-spurious-ignore-warnings) :skipped-on :interpreter)
   (defgeneric no-spurious-ignore-warnings (req &key key))
   (handler-bind ((warning (lambda (x) (error "~A" x))))
     (eval

-----------------------------------------------------------------------


hooks/post-receive
-- 
SBCL