[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
arguments to READ, TYI, and PRINT, TYO
- To: BUG-LISP at MIT-MC
- Subject: arguments to READ, TYI, and PRINT, TYO
- From: George J. Carrette <GJC at MIT-MC>
- Date: Wed, 27 May 81 16:17:00 GMT
- Original-date: 27 May 1981 12:17-EDT
It would be very nice to have a defined primitive that
took a list of "READ-compatible" arguments, and returned
a list (<actual-stream-object> <actual-EOF-token>).
I could use this in both Macsyma and Cgol, instead of defining
my own primitive. (I really hate to have to use FILEP, SFAP,
and check the value of ^Q.) The lispm has an SI:DECODE-READ-ARGS,
that nicely insulates one from the particularly ugly way of
checking STREAM-P'ness used.
Maybe all this is moot. What I *really* want is to be able to
take my function (DEFUN MY-READ-BARE (STREAM EOF-TOKEN) ...)
and do (SETF #'MY-READ (CREATE-A-READER #'MY-READ-BAR)).
[Perhaps a special form (DEFREADER MY-READ MY-READER-BARE)]
So that I'm insulated from whatever hacks are used on a
particular system for doing stream-defaulting, rubout-processing,