7 lines
168 B
Common Lisp
7 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))
|