/[meta-cvs]/meta-cvs/F-1C43C940D8740CAA78752C1206316B55
ViewVC logotype

Contents of /meta-cvs/F-1C43C940D8740CAA78752C1206316B55

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.1 - (hide annotations)
Sun Jan 20 07:12:03 2002 UTC (12 years, 2 months ago) by kaz
Branch: MAIN
Adding all existing source files.
1 kaz 1.1 (provide "restart")
2    
3     (defmacro can-restart-here ((format-string &rest format-args) &body forms)
4     (let ((restart-block (gensym "RESTART-"))
5     (stream (gensym "STREAM-")))
6     `(block ,restart-block
7     (restart-bind
8     ((continue #'(lambda () (return-from ,restart-block))
9     :report-function #'(lambda (,stream)
10     (format ,stream ,format-string ,@format-args))))
11     ,@forms))))

  ViewVC Help
Powered by ViewVC 1.1.5