common-lisp/sbcl.sbcl
1
0
Fork 0
mirror of git://git.code.sf.net/p/sbcl/sbcl synced 2026-09-10 07:26:40 -04:00
Code Issues Actions 8 Packages Projects Releases Wiki Activity

Prefer not to use #+#. in tests

Browse source
This commit is contained in:
Douglas Katzman 2026-08-19 13:25:20 -04:00
parent f4dc30318b
commit a3dbf9924e
3 changed files with 9 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
tests/dump.impure-cload.lisp
View file

@ -132,12 +132,11 @@
(assert (eq *base-string-1* *base-string-2*))
(assert (typep *base-string-1* '(simple-base-string 5))))
#-#.(cl:if (cl:subtypep 'cl:character 'cl:base-char) '(and) '(or))
(progn
(defvar *base-string*
#.(make-string 5 :element-type 'base-char :initial-element #\x))
(defvar *character-string*
#.(make-string 5 :initial-element #\x))
(unless (subtypep 'character 'base-char)
(assert (not (eq *base-string* *character-string*)))
(assert (typep *base-string* 'base-string))
(assert (typep *character-string* '(vector character))))

5
tests/loop.pure.lisp
View file

@ -38,8 +38,7 @@
;;; The type declarations should apply, hence under Python's
;;; declarations-are-assertions rule, the code should signal a type
;;; error. (Except when running interpreted code)
#+#.(cl:if (cl:eq sb-ext:*evaluator-mode* :compile) '(and) '(or))
(with-test (:name :loop-type-decl)
(with-test (:name :loop-type-decl :skipped-on :interpreter)
(declare (muffle-conditions style-warning))
(assert (typep (nth-value 1
(ignore-errors
@ -193,7 +192,7 @@
(setf (gethash 7 ht) 15)
(assert (= (loop for v fixnum being each hash-key in ht sum v) 8))
(assert (= (loop for v fixnum being each hash-value in ht sum v) 18))
#+#.(cl:if (cl:eq sb-ext:*evaluator-mode* :compile) '(and) '(or))
#-interpreter
(assert-error (loop for v float being each hash-value in ht sum v)
type-error))

4
tests/type.pure.lisp
View file

@ -272,8 +272,8 @@
;;;
;;; (In fact, this is such a fearsome loop that executing it with the
;;; evaluator would take ages... Disable it under those circumstances.)
#+#.(cl:if (cl:eq sb-ext:*evaluator-mode* :compile) '(and) '(or))
(with-test (:name (:type-derivation :logical-operations :correctness) :slow t)
(with-test (:name (:type-derivation :logical-operations :correctness) :slow t
:skipped-on :interpreter)
(let* ((n-bits 5)
(size (ash 1 n-bits)))
(labels ((brute-force (a b c d op)