Changeset 15222


Ignore:
Timestamp:
Feb 19, 2012, 6:54:06 AM (7 years ago)
Author:
gb
Message:

In RESTART-CASE-FORM, don't try to "optimize" (RESTART-CASE (CERROR ...)).
Fixes ticket:865.

File:
1 edited

Legend:

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

    r15155 r15222  
    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 cerror warn %error)))
     399             (memq (setq head (pop expansion)) '(signal error 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))))
    409404          ((signal error warn)
    410405           (destructuring-bind
Note: See TracChangeset for help on using the changeset viewer.