/[meta-cvs]/meta-cvs/F-9AB435A23565E6385CE7F4F347D7A205
ViewVC logotype

Diff of /meta-cvs/F-9AB435A23565E6385CE7F4F347D7A205

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1 by kaz, Sun Feb 10 04:09:51 2002 UTC revision 1.2 by kaz, Sun Feb 10 04:39:03 2002 UTC
# Line 36  handling the error.") Line 36  handling the error.")
36    
37  (defun mcvs-error-handler (condition)  (defun mcvs-error-handler (condition)
38    (let ((*print-escape* nil))    (let ((*print-escape* nil))
39      (restart-destructure (others (continue continue))      (restart-destructure (others (continue continue)
40                                     (retry retry))
41        (ecase *mcvs-error-treatment*        (ecase *mcvs-error-treatment*
42          ((:interactive)          ((:interactive)
43             (when (null (compute-restarts))             (when (null (compute-restarts))
# Line 49  handling the error.") Line 50  handling the error.")
50                            (format stream "You have these alternatives:~%~%")                            (format stream "You have these alternatives:~%~%")
51                            (format stream "    ?) Re-print this menu.~%" continue)                            (format stream "    ?) Re-print this menu.~%" continue)
52                            (when continue                            (when continue
53                              (format stream "    C) ~a~%" continue)                              (format stream "    C) (Continue) ~a~%" continue)
54                              (format stream "    A) Auto-continue all continuable errors.~%")                              (format stream "    A) Auto-continue all continuable errors.~%")
55                              (push (list "C" #'(lambda ()                              (push (list "C" #'(lambda ()
56                                                  (invoke-restart continue)))                                                  (invoke-restart continue)))
# Line 59  handling the error.") Line 60  handling the error.")
60                                                        :continue)                                                        :continue)
61                                                  (invoke-restart continue)))                                                  (invoke-restart continue)))
62                                    command-list))                                    command-list))
63                              (when retry
64                                (format stream "    R) (Retry) ~a~%" retry)
65                                (push (list "R" #'(lambda ()
66                                                    (invoke-restart retry)))
67                                      command-list))
68                            (when others                            (when others
69                              (let ((counter 0))                              (let ((counter 0))
70                                (dolist (restart others)                                (dolist (restart others)

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

  ViewVC Help
Powered by ViewVC 1.1.5