(xdef 'readb (lambda (str) (let ((p (if (ar-false? str) (current-input-port) str))) (let ((c (read-byte p))) (if (eof-object? c) 'nil c)))))
From ac.scm ©
ac.scm