(defun expand-node (node)
  (error "Calling (~s ~s) before the function was implemented!" 
         'expand-node
         node))

(defun skip-header (state)
  (error "Calling (~s ~s) before the function was implemented!"
         'skip-header
         state))

(defun match-string (string state)
  (error "Calling (~s ~s ~s) before the function was implemented!"
         'match-string
         string
         state))

(defun whole-number-literal (state) 
  (error "Calling (~s ~s) before the function was implemented!"
         'whole-number-literal
         state))

(defun real-literal (state)
  (error "Calling (~s ~s) before the function was implemented!"
         'real-literal
         state))

(defun string-literal (state)
  (error "Calling (~s ~s) before the function was implemented!"
         'string-literal
         state))

(defun identifier (state)
  (error "Calling (~s ~s) before the function was implemented!"
         'identifier
         state))