/[cmucl]/src/code/fd-stream.lisp
ViewVC logotype

Diff of /src/code/fd-stream.lisp

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

revision 1.97.2.3 by rtoy, Sun Feb 14 03:06:41 2010 UTC revision 1.97.2.4 by rtoy, Fri Feb 26 03:39:53 2010 UTC
# Line 1758  Line 1758 
1758                         delete-original                         delete-original
1759                         pathname                         pathname
1760                         input-buffer-p                         input-buffer-p
1761                           ;; DO NOT translate these!  It causes an
1762                           ;; infinite loop.  We need to open a file for
1763                           ;; the translations, but if you translate
1764                           ;; these, then we need to do a lookup which
1765                           ;; wants to open the mo file which calls this
1766                           ;; to name which causes a lookup ....
1767                         (name (if file                         (name (if file
1768                                   (format nil _"file ~S" file)                                   (format nil "file ~S" file)
1769                                   (format nil _"descriptor ~D" fd)))                                   (format nil "descriptor ~D" fd)))
1770                         auto-close                         auto-close
1771                         (external-format :default)                         (external-format :default)
1772                         binary-stream-p)                         binary-stream-p)

Legend:
Removed from v.1.97.2.3  
changed lines
  Added in v.1.97.2.4

  ViewVC Help
Powered by ViewVC 1.1.5