Changeset 15223


Ignore:
Timestamp:
Feb 19, 2012, 7:27:40 AM (7 years ago)
Author:
gb
Message:

Try to fix ticket:865 another way.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/lib/macros.lisp

    r15222 r15223  
    397397        (head nil))
    398398    (if (and (listp expansion)          ; already an ugly hack, made uglier by %error case ...
    399              (memq (setq head (pop expansion)) '(signal error warn %error)))
     399             (memq (setq head (pop expansion)) '(signal error cerror warn %error)))
    400400      (let ((condform nil)
    401401            (signalform nil)
    402402            (cname (gensym)))
    403403        (case head
     404          (cerror
     405           (destructuring-bind
     406             (continue cond &rest args) expansion
     407             (setq condform `(condition-arg ,cond (list ,@args) 'simple-error)
     408                   signalform `(cerror ,continue ,cname ,@args))))
    404409          ((signal error warn)
    405410           (destructuring-bind
Note: See TracChangeset for help on using the changeset viewer.