Advertisement
Guest User

Untitled

a guest
Oct 11th, 2018
110
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. (defun executable-reader (stream ch subch)
  2. (declare (ignorable ch subch))
  3. #+clisp (sys::unix-executable-reader stream ch subch)
  4. #-clisp (progn
  5. (read-line stream)
  6. (values)))
  7.  
  8. (set-dispatch-macro-character #\# #\! (function executable-reader))
Advertisement
Advertisement
Advertisement
RAW Paste Data Copied
Advertisement