gistfile1.txt

(defun compiler (code output)
  "Reads code file and compiles each expression into output file"
  (let ((in (open code :if-does-not-exist nil)) (out (open output :if-does-not-exist :create :direction :output :if-exists :supersede))
	(instr '()))
    (when in
      (loop for line = (read-line in nil)
	   
	 while line do (progn
			 (setf instr (lex-line line))
			 (setf instr (parse instr))
			 (gen (comp instr) out))))
    (close in)
    (close out)))