Commits

Robert Smith committed 81c1f61

Add more sanity checks to JUMP parsing.

Comments (0)

Files changed (1)

                           (not (null jump-case))
                           (or (and (integerp (car jump-case))
                                    (not (minusp (car jump-case))))
-                              (and (every #'integerp (car jump-case))
+                              (and (listp (car jump-case))
+                                   (every #'integerp (car jump-case))
                                    (notany #'minusp (car jump-case))))))
                  cases)
           (cases)