- "Causes the output of the indenting Stream to indent More spaces. More is
- evaluated twice."
- `(unwind-protect
- (progn
- (incf (sb!impl::indenting-stream-indentation ,stream) ,more)
- ,@body)
- (decf (sb!impl::indenting-stream-indentation ,stream) ,more)))
-
-(defun skip-whitespace (&optional (stream *standard-input*))
- (loop (let ((char (read-char stream)))
- (unless (sb!impl::whitespacep char)
- (return (unread-char char stream))))))
+ "This is a list of functions which are called in an unspecified
+order before creating a saved core image. Unused by SBCL itself:
+reserved for user and applications.")