Changeset 9558


Ignore:
Timestamp:
May 20, 2008, 4:30:47 PM (11 years ago)
Author:
mb
Message:

Teach macroexpand-all about (let (p) ...)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711/ccl/level-1/l1-readloop.lisp

    r9172 r9558  
    312312                `(,(first form)
    313313                   ,(mapcar (lambda (binding)
    314                               (list (first binding) (macroexpand-all (second binding) env)))
     314                             
     315                              (if (listp binding)
     316                                (list (first binding) (macroexpand-all (second binding) env))
     317                                binding))
    315318                            bindings)
    316319                   ,@decls
Note: See TracChangeset for help on using the changeset viewer.