/[cmucl]/src/code/serve-event.lisp
ViewVC logotype

Diff of /src/code/serve-event.lisp

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

revision 1.28.12.4 by rtoy, Sat Feb 13 17:10:09 2010 UTC revision 1.28.12.5 by rtoy, Tue Mar 2 13:45:54 2010 UTC
# Line 238  Line 238 
238                    (unix:unix-fstat (handler-descriptor handler)))                    (unix:unix-fstat (handler-descriptor handler)))
239          (setf (handler-bogus handler) t)          (setf (handler-bogus handler) t)
240          (push handler bogus-handlers)))          (push handler bogus-handlers)))
241      (restart-case (error "~S ~[have~;has a~:;have~] bad file descriptor~:P."      ;; TRANSLATORS:  This needs more work.
242        (restart-case (error (intl:ngettext "~S ~[have~;has a~:;have~] bad file descriptor."
243                                            "~S ~[have~;has a~:;have~] bad file descriptors."
244                                            (length bogus-handlers))
245                           bogus-handlers (length bogus-handlers))                           bogus-handlers (length bogus-handlers))
246        (remove-them ()        (remove-them ()
247          :report (lambda (stream)          :report (lambda (stream)

Legend:
Removed from v.1.28.12.4  
changed lines
  Added in v.1.28.12.5

  ViewVC Help
Powered by ViewVC 1.1.5