(define-designator filename c-string
(pathname
- (sb-ext:native-namestring (translate-logical-pathname filename)))
+ (sb-ext:native-namestring (translate-logical-pathname filename)
+ :as-file t))
(string filename))
(define-designator file-descriptor (integer 32)
(etypecase name
(list
(destructuring-bind (name &key c-name options) name
+ (declare (ignorable options))
(if c-name
c-name
(cond #+largefile