Changeset 12553 for trunk/tests


Ignore:
Timestamp:
Aug 7, 2009, 12:12:06 AM (10 years ago)
Author:
gz
Message:

add macroexpand-all test case

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/tests/ansi-tests/ccl.lsp

    r12532 r12553  
    11561156  (defun ccl.ftype.54161-caller () (ccl.ftype.54161 :x))")
    11571157  (:type))
     1158
     1159
     1160(deftest ccl.macroexpand-all.r12550a
     1161  (ccl:macroexpand-all '(macrolet ((foo () 'macro)) (flet ((foo () (foo))) (foo))))
     1162  (progn (flet ((foo () macro)) (foo))))
     1163
     1164(deftest ccl.macroexpand-all.r12550b
     1165  (ccl:macroexpand-all '(macrolet ((foo () 'macro)) (labels ((foo () (foo))) (foo))))
     1166  (progn (labels ((foo () (foo))) (foo))))
    11581167
    11591168
Note: See TracChangeset for help on using the changeset viewer.