((/centaur/vl/loader/lexer-tests.lisp::make-punctuation-tests (nil nil nil nil (if) nil nil) ((nil) nil (consp) nil nil (list*) nil) ((alist) nil (` ` ` recursive-call) nil nil nil nil) (nil nil (cdr) nil nil nil nil) ((:input :successp t :type :input :successp t :remainder  foo :type :input :successp t :remainder 1 :type alist) nil (, , , , , ,) nil nil nil nil) (nil nil (caar cdar cdar cdar) (cat cat) nil nil nil) ((alist alist  foo alist 1 alist) nil (caar caar) nil nil nil nil)) (/centaur/vl/loader/lexer-tests.lisp::make-keyword-tests (nil nil nil nil (if) nil nil) ((nil) nil (consp) nil (list*) nil nil) ((alist) nil (` ` recursive-call) nil nil nil nil) (nil nil (cdr) nil nil nil nil) ((:input :successp t :type :input :successp t :remainder  foo :type alist) nil (, , , ,) nil nil nil nil) (nil nil (caar cdar cdar) (cat) nil nil nil) ((alist alist  foo alist) nil (caar) nil nil nil nil)))