(bind-func print:[void,QBuffer*]* (lambda (b) (printout "<QBuf:" (tref b 0) "," (tref b 1) "," (tref b 2) ",") (printf "%p" (tref b 3)) (printout ">")))