RE: [Fwd: Re: How to load files with Mac line ending?]

this works;

(defun |universal-comment-reader| (stream char)
  (declare (ignore char))
  (loop (case (read-char stream nil nil)
          ((#\return #\linefeed nil) (return))
          (t )))
  (values))

(set-macro-character #\; '|universal-comment-reader|)