Infinite loop in SUBTYPEP (works on fresh image)

Bug #2114755 reported by Paul F. Dietz
6
This bug affects 1 person
Affects Status Importance Assigned to Milestone
SBCL
New
Undecided
Unassigned

Bug Description

(defun bug026 (&optional (fn #'subtypep))
  (let ((t1 '(not
              (and
               (not
                (not
                 (or
                  (cons (cons (or (simple-array rational) sequence string) (eql 43255944))
                   (not (eql -5261)))
                  (cons (not (cons (array float) float)) integer)
                  ))))))
        (t2 '(not
              (or
               (cons (cons (or (simple-array rational) sequence string) (eql 43255944))
                (not (eql -5261)))
               (cons (not (cons (array float) float)) integer)))))
    (funcall fn t1 t2)))

(bug026) ==> does not terminate

x86-64, "2.5.5.86-43de0d90a"

To post a comment you must log in.
This report contains Public information  
Everyone can see this information.

Other bug subscribers

Remote bug watches

Bug watches keep track of this bug in other bug trackers.