(defun label-reader (stream sub-char arg)
  (apply #'make-instance 'label-reference-marker
         :arg arg
         (case sub-char
           (#\=  (list :value (read stream t nil t)))
           (#\# nil))))