- (ecase feature
- (:common-lisp
- (ls-read stream)
- (ls-read stream eof-error-p eof-value t))
- (:jscl
- (ls-read stream eof-error-p eof-value t))
- (:nil
- (ls-read stream)
- (ls-read stream eof-error-p eof-value t)))))
+ (if (eql (char= ch #\+)
+ (and (find feature *features*) t))
+ (ls-read stream eof-error-p eof-value t)
+ (prog2 (ls-read stream)
+ (ls-read stream eof-error-p eof-value t)))))