Changeset 15002


Ignore:
Timestamp:
Sep 28, 2011, 8:34:04 AM (13 years ago)
Author:
R. Matthew Emerson
Message:

Apply restart-case-form patch from ticket:882.

Fixes ticket:882.

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/source/lib/macros.lisp

    r14891 r15002  
    410410           (destructuring-bind
    411411             (cond &rest args) expansion
    412              (setq condform `(condition-arg ,cond (list ,@args) ,(if (eq head 'warning)
     412             (setq condform `(condition-arg ,cond (list ,@args) ,(if (eq head 'warn)
    413413                                                                   ''simple-warning
    414414                                                                   (if (eq head 'error)
Note: See TracChangeset for help on using the changeset viewer.