6 lines
168 B
Common Lisp
6 lines
168 B
Common Lisp
;;; Play nice with shebangs
|
|
(set-dispatch-macro-character #\# #\!
|
|
(lambda (stream character n)
|
|
(declare (ignore character n))
|
|
(read-line stream nil nil t)
|
|
nil))
|