Changeset 10375


Ignore:
Timestamp:
Aug 6, 2008, 11:39:16 AM (11 years ago)
Author:
gb
Message:

Add compiler-macro for READ-CHAR. (May need to work on (values X nil)
in compiler.)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/compiler/optimizers.lisp

    r10373 r10375  
    22072207      w))
    22082208
     2209(define-compiler-macro read-char (&optional stream (eof-error-p t) eof-value recursive-p)
     2210  `(read-char-internal ,stream ,eof-error-p (values ,eof-value ,recursive-p)))
     2211
     2212
    22092213(provide "OPTIMIZERS")
    22102214
Note: See TracChangeset for help on using the changeset viewer.