/[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.100 by rtoy, Tue Apr 20 17:57:44 2010 UTC revision 1.101 by rtoy, Mon Jun 7 22:10:11 2010 UTC
# Line 2171  Line 2171 
2171                           :if-does-not-exist))                           :if-does-not-exist))
2172      (setf (getf options :if-does-not-exist) if-does-not-exist))      (setf (getf options :if-does-not-exist) if-does-not-exist))
2173    
2174    (let ((filespec (pathname filename))    (let ((filespec (merge-pathnames filename))
2175          (options (copy-list options))          (options (copy-list options))
2176          (class (or class 'fd-stream)))          (class (or class 'fd-stream)))
2177      (cond ((eq class 'fd-stream)      (cond ((eq class 'fd-stream)

Legend:
Removed from v.1.100  
changed lines
  Added in v.1.101

  ViewVC Help
Powered by ViewVC 1.1.5