added macros, temporarily removed some error checks

test/tests.lisp

@@ -16,13 +16,6 @@
       (:string new-file)
       (:file (pathname new-file)))))
 
-(defun lex-stream (str)
-  (iter outer
-        (for line = (read-line str nil nil))
-        (until (null line))
-        (for line-num from 1)
-        (appending (lex-line line line-num))))
-
 (defun read-form-comment (str)
   (read-from-string 
    (format nil "~{~a~^~%~}"