Ticket #882: macros.lisp.patch

File macros.lisp.patch, 0.7 KB (added by jlawrence, 20 months ago)

  • ccl/lib/macros.lisp

     
    409409          ((signal error warn) 
    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) 
    415415                                                                     ''simple-error