- (add-stream-instance-flags stream :dual :simple)
- (when (any-stream-instance-flags stream :input)
- (setf (sm input-handle stream) fd)
- (unless (sm buffer stream)
- (let ((length (device-buffer-length stream)))
- (setf (sm buffer stream) (allocate-buffer length)
- (sm buffpos stream) 0
- (sm buffer-ptr stream) 0
- (sm buf-len stream) length))))
- (when (any-stream-instance-flags stream :output)
- (setf (sm output-handle stream) fd)
- (unless (sm out-buffer stream)
- (let ((length (device-buffer-length stream)))
- (setf (sm out-buffer stream) (allocate-buffer length)
- (sm outpos stream) 0
- (sm max-out-pos stream) length)))
- (setf (sm control-out stream) *std-control-out-table*))
+ (add-stream-instance-flags stream :dual :simple)
+ (when (any-stream-instance-flags stream :input)
+ (setf (sm input-handle stream) fd)
+ (unless (sm buffer stream)
+ (let ((length (device-buffer-length stream)))
+ (setf (sm buffer stream) (allocate-buffer length)
+ (sm buffpos stream) 0
+ (sm buffer-ptr stream) 0
+ (sm buf-len stream) length))))
+ (when (any-stream-instance-flags stream :output)
+ (setf (sm output-handle stream) fd)
+ (unless (sm out-buffer stream)
+ (let ((length (device-buffer-length stream)))
+ (setf (sm out-buffer stream) (allocate-buffer length)
+ (sm outpos stream) 0
+ (sm max-out-pos stream) length)))
+ (setf (sm control-out stream) *std-control-out-table*))