(defun executable-reader (stream ch subch)
  (declare (ignorable ch subch))
  #+clisp (sys::unix-executable-reader stream ch subch)
  #-clisp (progn
            (read-line stream)
            (values)))

(set-dispatch-macro-character #\# #\! (function executable-reader))