Parent Directory | Revision Log | Patch
revision 1.6 by camm, Fri Jun 10 15:31:55 2005 UTC | revision 1.7 by camm, Wed Jun 29 04:23:39 2005 UTC | |
---|---|---|
# | Line 144 | Line 144 |
144 | ||
145 | ||
146 | (defun dbl-read (&optional (stream *standard-input*) (eof-error-p t) | (defun dbl-read (&optional (stream *standard-input*) (eof-error-p t) |
147 | (eof-value nil) &aux tem ch) | (eof-value nil) &aux ch) |
148 | (tagbody | (tagbody |
149 | top | top |
150 | (setq ch (read-char stream eof-error-p eof-value)) | (setq ch (read-char stream eof-error-p eof-value)) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |