bf: file input
This commit is contained in:
parent
c9226c4052
commit
1410aa68c8
1 changed files with 4 additions and 1 deletions
5
bf.lisp
5
bf.lisp
|
@ -87,4 +87,7 @@
|
||||||
t))))
|
t))))
|
||||||
|
|
||||||
(defun main ()
|
(defun main ()
|
||||||
(funcall (comp)))
|
(funcall
|
||||||
|
(aif (second *posix-argv*)
|
||||||
|
(with-input-from-file (f it) (comp f))
|
||||||
|
(comp))))
|
||||||
|
|
Loading…
Reference in a new issue