;;; like LISTEN, but any whitespace in the input stream will be flushed
(defun listen-skip-whitespace (&optional (stream *standard-input*))
(do ((char (read-char-no-hang stream nil nil nil)
;;; like LISTEN, but any whitespace in the input stream will be flushed
(defun listen-skip-whitespace (&optional (stream *standard-input*))
(do ((char (read-char-no-hang stream nil nil nil)
;;; errno problem, arranging for the condition's print representation
;;; to be similar to the ANSI C perror(3) style.
(defun simple-perror (prefix-string
;;; errno problem, arranging for the condition's print representation
;;; to be similar to the ANSI C perror(3) style.
(defun simple-perror (prefix-string
(declare (type symbol simple-error))
(aver (subtypep simple-error 'simple-condition))
(aver (subtypep simple-error 'error))
(apply #'error
(declare (type symbol simple-error))
(aver (subtypep simple-error 'simple-condition))
(aver (subtypep simple-error 'error))
(apply #'error