/[gcl]/gcl/lsp/gcl_top.lsp
ViewVC logotype

Diff of /gcl/lsp/gcl_top.lsp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch 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))

Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26