mirror of
git://git.code.sf.net/p/sbcl/sbcl
synced 2026-09-10 07:26:40 -04:00
21 lines
612 B
Common Lisp
21 lines
612 B
Common Lisp
|
|
;;; Please keep all the "smoke" tests in this file fairly lightweight.
|
|
|
|
;;; Don't crash on layoutless instances. It's that simple!
|
|
(defvar *l* nil)
|
|
(defun f (n) (dotimes (i n) (push (sb-kernel:%make-instance 5) *l*)))
|
|
(with-test (:name :layoutless-instance-no-crash)
|
|
(f 20)
|
|
(gc))
|
|
|
|
(with-test (:name (:room :layoutless-instance))
|
|
(let ((*standard-output* (make-broadcast-stream)))
|
|
(room t)))
|
|
|
|
;;; Don't loop infinitely in mark_obj() on circular lists
|
|
(defvar *foo* (cons nil nil))
|
|
(rplacd *foo* *foo*)
|
|
(with-test (:name :circular-list :skipped-on (and :arm64 :gc-stress))
|
|
(gc :gen 7))
|
|
(setf *l* nil)
|