- (if (< ptr (sm buffer-ptr stream))
- (progn
- (setf (bref buffer ptr) code)
- (setf (sm buffpos stream) (1+ ptr)))
- (progn
- (sc-flush-buffer stream t)
- (setf ptr (sm buffpos stream))))))
+ ;; FIXME: Shouldn't this be buf-len, not buffer-ptr?
+ (unless (< ptr (sm buffer-ptr stream))
+ (sc-flush-buffer stream t)
+ (setf ptr (sm buffpos stream)))
+ (setf (bref buffer ptr) code)
+ (setf (sm buffpos stream) (1+ ptr))))