37
39
(defmacro wt (&rest forms &aux (fl nil))
40
42
(push `(princ ,form *compiler-output1*) fl)
41
43
(push `(wt1 ,form) fl))))
43
45
(defmacro wt-h (&rest forms &aux (fl nil))
46
48
(push `(princ ,form *compiler-output2*) fl)
50
54
(defmacro princ-h (form) `(princ ,form *compiler-output2*))