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