(bind-func hcopy:[String*,String*]* (lambda (x) (let ((size (tref x 0)) (obj:String* (halloc)) (s:i8* (halloc (+ size 1)))) (strcpy s (cast (tref x 1) i8*)) (tfill! obj size s) obj)))