/[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.9 by kaz, Sat Oct 5 18:09:48 2002 UTC revision 1.10 by kaz, Sat Oct 5 18:19:23 2002 UTC
# Line 32  handling the error.") Line 32  handling the error.")
32        (ecase *mcvs-error-treatment*        (ecase *mcvs-error-treatment*
33          ((:interactive)          ((:interactive)
34             (when (null (compute-restarts))             (when (null (compute-restarts))
35                (format *error-output* "mcvs: ~a~%"                (format *error-output* "mcvs: ~a~%" condition)
                       (with-output-to-string (stream)  
                         (print-object condition stream)))  
36                (throw 'mcvs-terminate t))                (throw 'mcvs-terminate t))
37             (let* (command-list             (let* (command-list
38                    (menu (with-output-to-string (stream)                    (menu (with-output-to-string (stream)

Legend:
Removed from v.1.9  
changed lines
  Added in v.1.10

  ViewVC Help
Powered by ViewVC 1.1.5