SBCL

Stack analyze failed AVER

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

Bug Description

(block b8
  (loop for lv3 below 2 count
       (return-from b8
         (return-from b8
           (restart-bind nil
             (boole boole-1 lv3
                    (boole boole-2 0
                           (catch 'ct4
                             (restart-bind nil
                               (return-from b8 (eval 1)))
                             ))))))))

==>

failed AVER: (NOT (SB-INT:MEMQ PUSH SB-C::END-STACK))

Revision history for this message
Stas Boukarev (stassats) wrote :

(defun test ()
  (declare (optimize (debug 1) speed (safety 0)))
  (block b8
    (return-from b8
      (let ((lv3 0)
            *)
        (boole boole-1 lv3
               (the integer
                    (catch 'ct4
                      (let ((x (list 1)))
                        (declare (dynamic-extent x))
                        (return-from b8 (eval x))))))))))

Revision history for this message
Stas Boukarev (stassats) wrote :

(defun test ()
  (declare (optimize (debug 1) speed (safety 0)))
  (block b8
    (return-from b8
      (let ((lv3 333333)
            *)
        (boole boole-1 lv3

               (the integer
                    (catch 'ct4
                      (let ((x (list 1)))
                        (declare (dynamic-extent x))
                        (if *
                            (return-from b8 (eval x)))))))))))

ends up looping forever.

Revision history for this message
Stas Boukarev (stassats) wrote :

And
(defun test (z)
  (declare (optimize (debug 1) speed (safety 0)))
  (block b8
    (return-from b8
      (let ((lv3 333333)
            *)
        (boole boole-1 lv3
               (the integer
                    (catch 'ct4
                      (let ((x (list 1)))
                        (declare (dynamic-extent x))
                        (return-from b8 (if z
                                            (eval x)
                                            (eval x)))))))))))

failed AVER: (EQ (SB-C::IR2-LVAR-KIND SB-C::2FIRST) :UNKNOWN)

Revision history for this message
Stas Boukarev (stassats) wrote :

a5224c55c634fa25bacb9ec69966fbd9aac755cd

Changed in sbcl:
status: New → Fix Committed
Stas Boukarev (stassats)
Changed in sbcl:
status: Fix Committed → Fix Released
To post a comment you must log in.
This report contains Public information  
Everyone can see this information.
Subscribing...

Other bug subscribers

Remote bug watches

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