Changeset 11049


Ignore:
Timestamp:
Oct 11, 2008, 4:32:26 PM (11 years ago)
Author:
gz
Message:

make handler-bind notice the no-clauses case (handler-case already did)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711/ccl/lib/macros.lisp

    r10957 r11049  
    273273                           clauses))
    274274        (cluster (gensym)))   
    275     `(let* (,@fns
    276             (,cluster (list ,@bindings))
    277             (%handlers% (cons ,cluster %handlers%)))
    278        (declare (dynamic-extent ,cluster %handlers%))
    279        ,@decls
    280        (progn
     275    (if (null bindings)
     276      `(progn ,@body)
     277      `(let* (,@fns
     278              (,cluster (list ,@bindings))
     279              (%handlers% (cons ,cluster %handlers%)))
     280         (declare (dynamic-extent ,cluster %handlers%))
     281         ,@decls
    281282         ,@body))))
    282283
Note: See TracChangeset for help on using the changeset viewer.