(defun foo (stream dispchar char)
  (declare (ignore dispchar char))
  (loop repeat 5 do (read-char stream) finally (return nil)))

(set-dispatch-macro-character #\# #\G 'foo)

(list #G1))))) ;=> (NIL)