Lines Matching defs:ml
33 (defun sexp-to-ml (x)
49 (er hard 'sexp-to-ml
54 (sexp-to-ml (car x))
55 (sexp-to-ml (cdr x))))))
60 (defun pprint-objects-to-ml (list sep channel state)
70 (pprint-objects-to-ml (cdr list) sep channel state))
75 (er hard 'pprint-objects-to-ml
80 (pprogn (pprint-object (sexp-to-ml (car list)) channel state)
84 (pprint-objects-to-ml (cdr list) sep channel state))))))
200 (let ((state (pprint-objects-to-ml lst "," channel state)))
227 (fmt1 "Writing ml file ~x0.~%" (list (cons #\0 outfile))