304 |
(body (cdr form)) |
(body (cdr form)) |
305 |
(switch-op-1 (c1expr switch-op))) |
(switch-op-1 (c1expr switch-op))) |
306 |
(cond ((and (typep (second switch-op-1 ) 'info) |
(cond ((and (typep (second switch-op-1 ) 'info) |
307 |
(subtypep (info-type (second switch-op-1)) 'fixnum)) |
(type>= 'fixnum (info-type (second switch-op-1)))) |
308 |
;;optimize into a C switch: |
;;optimize into a C switch: |
309 |
;;If we ever get GCC to do switch's with an enum arg, |
;;If we ever get GCC to do switch's with an enum arg, |
310 |
;;which don't do bounds checking, then we will |
;;which don't do bounds checking, then we will |