projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
0.9.17.18: fix windows build, MAKE-ALIEN compiler note muffled fully
[sbcl.git]
/
tests
/
clos.impure.lisp
diff --git
a/tests/clos.impure.lisp
b/tests/clos.impure.lisp
index
e5cc140
..
0bef77f
100644
(file)
--- a/
tests/clos.impure.lisp
+++ b/
tests/clos.impure.lisp
@@
-11,8
+11,6
@@
;;;; absolutely no warranty. See the COPYING and CREDITS files for
;;;; more information.
;;;; absolutely no warranty. See the COPYING and CREDITS files for
;;;; more information.
-(load "assertoid.lisp")
-
(defpackage "CLOS-IMPURE"
(:use "CL" "ASSERTOID" "TEST-UTIL"))
(in-package "CLOS-IMPURE")
(defpackage "CLOS-IMPURE"
(:use "CL" "ASSERTOID" "TEST-UTIL"))
(in-package "CLOS-IMPURE")
@@
-654,6
+652,7
@@
(assert (= (bug222 t) 1))
;;; also, a test case to guard against bogus environment hacking:
(assert (= (bug222 t) 1))
;;; also, a test case to guard against bogus environment hacking:
+
(eval-when (:compile-toplevel :load-toplevel :execute)
(setq bug222-b 3))
;;; this should at the least compile:
(eval-when (:compile-toplevel :load-toplevel :execute)
(setq bug222-b 3))
;;; this should at the least compile:
@@
-664,8
+663,10
@@
;;; and it would be nice (though not specified by ANSI) if the answer
;;; were as follows:
(let ((x (make-string-output-stream)))
;;; and it would be nice (though not specified by ANSI) if the answer
;;; were as follows:
(let ((x (make-string-output-stream)))
- ;; not specified by ANSI
- (assert (= (bug222-b t x) 3))
+ (let ((value (bug222-b t x)))
+ ;; not specified by ANSI
+ #+#.(cl:if (cl:eq sb-ext:*evaluator-mode* :compile) '(and) '(or))
+ (assert (= value 3)))
;; specified.
(assert (char= (char (get-output-stream-string x) 0) #\1)))
\f
;; specified.
(assert (char= (char (get-output-stream-string x) 0) #\1)))
\f
@@
-1392,9
+1393,8
@@
(loop until (null x)
do (incf result) (setq x (slot-value x 'cdroid)))
result))
(loop until (null x)
do (incf result) (setq x (slot-value x 'cdroid)))
result))
-(with-test (:name ((:setq :method-parameter) slot-value) :fails-on :sbcl)
+(with-test (:name ((:setq :method-parameter) slot-value))
(assert (= (lengthoid (make-instance 'listoid)) 1))
(assert (= (lengthoid (make-instance 'listoid)) 1))
- (error "the failure mode is an infinite loop")
(assert (= (lengthoid
(make-instance 'listoid :cdroid
(make-instance 'listoid :cdroid
(assert (= (lengthoid
(make-instance 'listoid :cdroid
(make-instance 'listoid :cdroid