+(defun procedures->prims (lexed-ast)
+ (cond
+ ((not lexed-ast) nil)
+ ; We'll need argument handling here sometime :)
+ ((eql :to (car lexed-ast)) (cons (list :name (cadr lexed-ast)) (procedures-to-prims (cdr lexed-ast))))
+ (t (procedures-to-prims (cdr lexed-ast)))))
+