jak-project/test/common/formatter/corpus/cond-and-case.test.gc

92 lines
1.9 KiB
Common Lisp

===
Cond - Only Inlinable
===
(cond
((type? (-> this entries i) popup-menu-label)
(set! x 1))
((type? (-> this entries i) popup-menu-flag)
(set! x 2))
(else
(set! x 3)))
---
(cond
((type? (-> this entries i) popup-menu-label) (set! x 1))
((type? (-> this entries i) popup-menu-flag) (set! x 2))
(else (set! x 3)))
===
Cond - Mix and Match Inlining
===
(cond
((type? (-> this entries i) popup-menu-flag)
(set! x (+ 89716239781623717236123 1239817239817298319287312 31298371298371239817231 231892739182739129837 231892739182739129837 231892739182739129837)))
((type? (-> this entries i) popup-menu-label)
(set! x 1))
(else
(set! x 3)))
---
(cond
((type? (-> this entries i) popup-menu-flag)
(set! x
(+ 89716239781623717236123
1239817239817298319287312
31298371298371239817231
231892739182739129837
231892739182739129837
231892739182739129837)))
((type? (-> this entries i) popup-menu-label) (set! x 1))
(else (set! x 3)))
===
Case - Only Inlinable
===
(case (-> arg3 param 0)
(('dark)
(set! x 1))
(('light)
(set! x 2))
(else
(set! x 3)))
---
(case (-> arg3 param 0)
(('dark) (set! x 1))
(('light) (set! x 2))
(else (set! x 3)))
===
Case - Mix and Match Inlining
===
(case (-> arg3 param 0)
(('dark)
(set! x 1))
(('light)
(set! x (+ 89716239781623717236123 1239817239817298319287312 31298371298371239817231 231892739182739129837 231892739182739129837 231892739182739129837 231892739182739129837 231892739182739129837)))
(else
(set! x 3)))
---
(case (-> arg3 param 0)
(('dark) (set! x 1))
(('light)
(set! x
(+ 89716239781623717236123
1239817239817298319287312
31298371298371239817231
231892739182739129837
231892739182739129837
231892739182739129837
231892739182739129837
231892739182739129837)))
(else (set! x 3)))