Skip to content
Snippets Groups Projects
Forked from cmucl / cmucl
Source project has a limited visibility.
  • rtoy's avatar
    668b13f5
    Bug from cmucl-imp, 2005-05-17 by Fredrik Sandstrom: · 668b13f5
    rtoy authored
        Description: In (peek-char nil s nil foo), if foo happens to be the
        same character that peek-char returns, the character is removed from
        the input stream, as if read by read-char.
    
        Examples:
    
        * (with-input-from-string (s "123")
    	(list (peek-char nil s nil #\1) (read-char s) (read-char s)))
        (#\1 #\2 #\3)
    
    This fix is based on the version proposed by Rudi Schlatte, with minor
    changes in naming.
    668b13f5
    History
    Bug from cmucl-imp, 2005-05-17 by Fredrik Sandstrom:
    rtoy authored
        Description: In (peek-char nil s nil foo), if foo happens to be the
        same character that peek-char returns, the character is removed from
        the input stream, as if read by read-char.
    
        Examples:
    
        * (with-input-from-string (s "123")
    	(list (peek-char nil s nil #\1) (read-char s) (read-char s)))
        (#\1 #\2 #\3)
    
    This fix is based on the version proposed by Rudi Schlatte, with minor
    changes in naming.