(loop (let ((form (read in nil token)))
(when (eq form token) (return))
(funcall func form)))))
- (print-form (form)
+ (prin1-form (form)
(format t "~@[~{~S~^ ~}~%~]"
(multiple-value-list (eval form)))))
(loop (let ((arg (pop args)))
(foreach-form #'eval rest))
list))
(#\? (push (lambda ()
- (foreach-form #'print-form rest))
+ (foreach-form #'prin1-form rest))
list))
(#\< (push (lambda ()
(load rest))