(format nil "`~C'" char))
(t (format nil "<~(~:C~)>" char))))
-(defun skip-until (scanner token-types &key keep-end)
+(defun %skip-until (scanner token-types &key keep-end)
"This is the implementation of the `skip-until' parser."
(do ((consumedp nil t))
((member (token-type scanner) token-types)