Changeset 578


Ignore:
Timestamp:
Feb 28, 2004, 1:12:39 AM (21 years ago)
Author:
Gary Byers
Message:

WITH-SIMPLE-RESTART change (from Bryan O'Connor).

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/ccl/lib/macros.lisp

    r539 r578  
    424424      (setq format-string `#'(lambda (,stream) (format ,stream ,format-string ,@format-args)))))
    425425  `(let* ((,temp (%cons-restart ',restart-name
    426                                 #'(lambda () (values nil t))
     426                                'simple-restart
    427427                                ,format-string
    428428                                nil
Note: See TracChangeset for help on using the changeset viewer.