<commit_before>(cl:defpackage #:enhanced-eval-when_tests
  (:use #:cl #:parachute)
  (:shadowing-import-from #:enhanced-eval-when #:eval-when))

(cl:in-package #:enhanced-eval-when_tests)

(defmacro test-passthrough (situations)
  `(is equal
       (macroexpand-1 '(eval-when ,situations do-it))
       '(cl:eval-when ,situations do-it)))

(define-test "enhanced-eval-when"
  (is equal
      (macroexpand-1 '(eval-when t do-it))
      '(cl:eval-when (:compile-toplevel :load-toplevel :execute)
        do-it))
  (test-passthrough '())
  (test-passthrough '(:compile-toplevel))
  (test-passthrough '(:load-toplevel))
  (test-passthrough '(:execute))
  (test-passthrough '(:compile-toplevel :load-toplevel))
  (test-passthrough '(:load-toplevel :execute))
  (test-passthrough '(:compile-toplevel :execute)))<commit_msg>Tests: Use proper argument order for IS.<commit_after>(cl:defpackage #:enhanced-eval-when_tests
  (:use #:cl #:parachute)
  (:shadowing-import-from #:enhanced-eval-when #:eval-when))

(cl:in-package #:enhanced-eval-when_tests)

(defmacro test-passthrough (situations)
  `(is equal '(cl:eval-when ,situations do-it)
       (macroexpand-1 '(eval-when ,situations do-it))))

(define-test "enhanced-eval-when"
  (is equal
      (macroexpand-1 '(eval-when t do-it))
      '(cl:eval-when (:compile-toplevel :load-toplevel :execute)
        do-it))
  (test-passthrough '())
  (test-passthrough '(:compile-toplevel))
  (test-passthrough '(:load-toplevel))
  (test-passthrough '(:execute))
  (test-passthrough '(:compile-toplevel :load-toplevel))
  (test-passthrough '(:load-toplevel :execute))
  (test-passthrough '(:compile-toplevel :execute)))
{'fraction_non_alphanumeric': 0.18016928657799275, 'fraction_numerical': 0.0024183796856106408, 'mean_word_length': 4.535117056856187, 'pattern_counts': {'":': 0, '<': 3, '<?xml version=': 0, '>': 3, 'https://': 0, 'lorem ipsum': 0, 'www.': 0, 'xml': 0}, 'pii_count': 0, 'substrings_counts': 0, 'word_list_counts': {'cursed_substrings.json': 0, 'profanity_word_list.json': 0, 'sexual_word_list.json': 0, 'zh_pornsignals.json': 0}}
{'dir': 'git-commits-cleaned', 'id': '607888', 'n_tokens_mistral': 660, 'n_tokens_neox': 630, 'n_words': 107}