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

   From: "James Anderson" <[email protected]>
   
   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|)
   
This approach fails if any other code makes a copy of the standard
readtable with (copy-readtable nil).