tree: more tests.

* tests/010/tree.tl: New tests, broadening coverage.

* share/txr/stdlib/doc-syms.tl: Regenerated.

2 files changed, 141 insertions, 100 deletions

diff --git a/share/txr/stdlib/doc-syms.tl b/share/txr/stdlib/doc-syms.tl
index 0ee352ef..94455d7f 100644
--- a/share/txr/stdlib/doc-syms.tl
+++ b/share/txr/stdlib/doc-syms.tl
@@ -480,11 +480,11 @@
      ("ixany" "N-02391683")
      ("-rng+" "N-00BEA6DF")
      ("buf-put-ulong" "N-020CF007")
-     ("tree-insert-node" "D-001E")
+     ("tree-insert-node" "N-008B4AD9")
      ("*stddebug*" "N-006566FB")
      ("remq*" "N-00B85CD2")
      ("reject" "N-031DC0F2")
-     ("signum" "D-001F")
+     ("signum" "D-001E")
      ("flo-near" "N-013A1643")
      ("time-nsec" "N-03B6DB3D")
      ("remove-if" "N-01413802")
@@ -495,8 +495,9 @@
      ("char" "N-0008D7DC")
      ("f-wrlck" "N-0137046C")
      ("static-slot-home" "N-01F88B0D")
-     ("trailer" "D-0020")
+     ("trailer" "D-001F")
      ("regsub" "N-03BDC5F6")
+     ("tree-insert" "N-0114FF9E")
      ("ofill" "N-03BD477F")
      ("ai-passive" "N-020DFFDE")
      ("opost" "N-03BD477F")
@@ -514,11 +515,11 @@
      ("prog1" "N-03F7A8B8")
      ("rfind" "N-0301CDB6")
      ("lambda-match" "N-031E43FF")
-     ("get-error-str" "D-0021")
+     ("get-error-str" "D-0020")
      ("seq-reset" "N-01CA6912")
      ("test-set-indent-mode" "N-01A1F89C")
      ("vector" "N-02B6C6F1")
-     ("<" "D-0022")
+     ("<" "D-0021")
      ("uint-carray" "N-00797A01")
      ("get-obj" "N-0315B229")
      ("o-direct" "N-034BF6C9")
@@ -528,18 +529,18 @@
      ("slet" "N-00821260")
      ("sockaddr" "N-02C48759")
      ("path-blkdev-p" "N-00198FC7")
-     ("catch" "D-0023")
+     ("catch" "D-0022")
      ("*99" "N-03F9BE17")
      ("echo" "N-0072FF5E")
      ("floor1" "N-01ED20D1")
      ("callf" "N-00192C21")
-     ("lognot" "D-0024")
+     ("lognot" "D-0023")
      ("zarray" "N-017039ED")
      ("read" "N-03FE5500")
      ("chown" "N-003B491C")
      ("eprototype" "N-036B1BDB")
      ("eproto" "N-036B1BDB")
-     ("awk" "D-0025")
+     ("awk" "D-0024")
      ("make-string-output-stream" "N-0144BF51")
      ("compl-span-str" "N-0171717F")
      ("fun-variadic" "N-02AA3799")
@@ -575,15 +576,15 @@
      ("sig-segv" "N-0176430F")
      ("defpackage" "N-033951A2")
      ("take" "N-00F6D433")
-     ("coll" "D-0026")
+     ("coll" "D-0025")
      ("getitimer" "N-02DE107D")
-     ("cptr" "D-0027")
+     ("cptr" "D-0026")
      ("file-get-buf" "N-00FA177D")
      ("symlink" "N-009EF0C8")
      ("cbaudex" "N-01B1B5DF")
      ("struct-set-initfun" "N-00946F18")
      ("call-super-fun" "N-0223E999")
-     ("merge" "D-0028")
+     ("merge" "D-0027")
      ("starts-with" "N-004955D4")
      ("sock-peer" "N-015ABEC7")
      ("*print-circle*" "N-01FC9977")
@@ -642,7 +643,7 @@
      ("call-delete-expander" "N-021E7CC3")
      ("sssucc" "N-038E636C")
      ("trim-left" "N-00CF29CC")
-     ("stat" "D-0029")
+     ("stat" "D-0028")
      ("rlet" "N-008212A0")
      ("m$" "N-02F44ECE")
      ("ffi-offsetof" "N-0318DA0C")
@@ -653,7 +654,7 @@
      ("with-in-string-byte-stream" "N-00FD832E")
      ("buf-put-u8" "N-002F6556")
      ("iapply" "N-026C3723")
-     ("trunc" "D-002A")
+     ("trunc" "D-0029")
      ("dlsym" "N-01B1E865")
      ("cptrp" "N-02B9289A")
      ("get-buf-from-stream" "N-02954B48")
@@ -671,7 +672,7 @@
      (".." "N-0217A971")
      ("filter" "N-00B50006")
      ("pushhash" "N-022660B2")
-     ("defex" "D-002B")
+     ("defex" "D-002A")
      ("ceil1" "N-02C8FF28")
      ("*filters*" "N-00E6A902")
      ("emultihop" "N-036B1BDB")
@@ -709,7 +710,7 @@
      ("key-t" "N-01D716FE")
      ("base64-stream-dec" "N-03BEDB34")
      ("buf-put-uint" "N-018913CB")
-     ("buf" "D-002C")
+     ("buf" "D-002B")
      ("offsetof" "N-013D0A5C")
      ("int-ptr-t" "N-03258244")
      ("group" "N-03DE71BA")
@@ -727,10 +728,10 @@
      ("chain" "N-00C53CF7")
      ("carray-cptr" "N-03E001C5")
      ("tprint" "N-0217DE45")
-     ("buf-d" "D-002D")
+     ("buf-d" "D-002C")
      ("getgrent" "N-02CAC7FB")
      ("edeadlk" "N-036B1BDB")
-     ("assert" "D-002E")
+     ("assert" "D-002D")
      ("path-pipe-p" "N-00198FC7")
      ("catch*" "N-0211F3D3")
      ("glob-tilde" "N-0188409B")
@@ -740,7 +741,7 @@
      ("sock-send-timeout" "N-03DF15F2")
      ("int-str" "N-028043AE")
      ("make-buf-stream" "N-03F5647C")
-     ("set" "D-002F")
+     ("set" "D-002E")
      ("indent-off" "N-00512FDD")
      ("int-flo" "N-03F852CF")
      ("cr2" "N-03BD477F")
@@ -755,7 +756,7 @@
      ("func-get-env" "N-009538DB")
      ("split*" "N-02FD4882")
      ("cr3" "N-03BD477F")
-     ("close" "D-0030")
+     ("close" "D-002F")
      ("add*" "N-03244398")
      ("cum-norm-dist" "N-03AB449B")
      ("rr" "N-03BBB0C5")
@@ -815,13 +816,13 @@
      ("bsdly" "N-03BD477F")
      ("emlink" "N-036B1BDB")
      ("open-process" "N-02B03D38")
-     ("get-line" "D-0031")
+     ("get-line" "D-0030")
      ("file-append-buf" "N-02AE3A31")
      ("replace-buf" "N-01C59E4E")
      ("lcons-cdr" "N-03598F4D")
      ("fun-optparam-count" "N-015852B6")
      ("ifa" "N-018F39B0")
-     ("abs" "D-0032")
+     ("abs" "D-0031")
      ("dev-t" "N-01D716FE")
      ("filter-string-tree" "N-00C9EEB0")
      ("unuse-package" "N-024BF63F")
@@ -857,18 +858,18 @@
      ("num-str" "N-028043AE")
      ("*tree-fun-whitelist*" "N-025AB9C9")
      ("prog*" "N-018A4BA9")
-     ("width" "D-0033")
+     ("width" "D-0032")
      ("enosr" "N-036B1BDB")
      ("handle" "N-03F7D8B5")
      ("f-setlkw" "N-025E55E7")
      ("put-obj" "N-025DB229")
      ("setitimer" "N-02DE107D")
-     ("or" "D-0034")
+     ("or" "D-0033")
      ("mappend*" "N-0202F92F")
      ("raise" "N-0108FFCE")
      ("remove-path-rec" "N-03E81B3A")
      ("exdev" "N-036B1BDB")
-     ("struct" "D-0035")
+     ("struct" "D-0034")
      ("m^$" "N-02F44ECE")
      ("sig-atomic-t" "N-03258244")
      ("find-if" "N-005431FF")
@@ -882,8 +883,8 @@
      ("rmemq" "N-0188A56C")
      ("window-mapdo" "N-015AFD48")
      ("unique" "N-0028147F")
-     ("evenp" "D-0036")
-     (">" "D-0037")
+     ("evenp" "D-0035")
+     (">" "D-0036")
      ("register-tentative-def" "N-033CBAA9")
      ("*r" "N-03A7AE5A")
      ("alignof" "N-000F730E")
@@ -892,7 +893,7 @@
      ("gensym" "N-03AA7FBB")
      ("mkstring" "N-033DD796")
      ("maprend" "N-015987D7")
-     ("tanh" "D-0038")
+     ("tanh" "D-0037")
      ("improper-plist-to-alist" "N-006E31B5")
      ("seek" "N-0136D6A2")
      ("include" "N-01A2ECA0")
@@ -948,7 +949,7 @@
      ("set-iflags" "N-02061924")
      ("eilseq" "N-036B1BDB")
      ("memp" "N-03C6CE65")
-     ("if" "D-0039")
+     ("if" "D-0038")
      ("carray-get" "N-028920F5")
      ("carray-buf-sync" "N-02F23E0F")
      ("fnm-extmatch" "N-0330E15A")
@@ -968,10 +969,10 @@
      ("af-inet6" "N-0228EAE0")
      ("pprint" "N-02FCCE0D")
      ("super-method" "N-02AC8367")
-     ("<=" "D-003A")
+     ("<=" "D-0039")
      ("r-round" "N-031D7670")
      ("edquot" "N-036B1BDB")
-     ("get-byte" "D-003B")
+     ("get-byte" "D-003A")
      ("apf" "N-012A7E6A")
      ("command-put-string" "N-024D65F3")
      ("eql" "N-02550B35")
@@ -987,8 +988,8 @@
      ("ai-all" "N-020DFFDE")
      ("sock-stream" "N-01D17D22")
      ("enotempty" "N-036B1BDB")
-     ("time-parse" "D-003C")
-     ("ash" "D-003D")
+     ("time-parse" "D-003B")
+     ("ash" "D-003C")
      ("length-carray" "N-03FF97BD")
      ("ebusy" "N-036B1BDB")
      ("buf-put-i32" "N-035FC973")
@@ -996,7 +997,7 @@
      ("define-modify-macro" "N-006E03C4")
      ("sig-poll" "N-0176430F")
      ("fboundp" "N-01FBF828")
-     ("dwim" "D-003E")
+     ("dwim" "D-003D")
      ("tab2" "N-03BD477F")
      ("ofdel" "N-03BD477F")
      ("ignpar" "N-02391683")
@@ -1007,10 +1008,10 @@
      ("znew" "N-00B1FC38")
      ("clear-iflags" "N-02061924")
      ("ixoff" "N-02391683")
-     ("iter-reset" "D-003F")
+     ("iter-reset" "D-003E")
      ("interp-fun-p" "N-00AC0CF7")
      ("truncate-stream" "N-009F5B3F")
-     ("get-char" "D-0040")
+     ("get-char" "D-003F")
      ("ewouldblock" "N-036B1BDB")
      ("eloop" "N-036B1BDB")
      ("test-neq-set-indent-mode" "N-01A1F89C")
@@ -1074,8 +1075,8 @@
      ("setenv" "N-002E0364")
      ("remql" "N-000ECD82")
      ("ldiff" "N-02193773")
-     ("del" "D-0041")
-     ("cos" "D-0042")
+     ("del" "D-0040")
+     ("cos" "D-0041")
      ("yield-from" "N-01556613")
      ("dlvsym-checked" "N-029063A0")
      ("txr-when" "N-02311DCA")
@@ -1128,13 +1129,13 @@
      ("put-strings" "N-0367B282")
      ("echok" "N-0072FF5E")
      ("o-rdonly" "N-034BF6C9")
-     ("car" "D-0043")
+     ("car" "D-0042")
      ("flo-zero" "N-013A1643")
      ("wint-t" "N-03258244")
      ("typedef" "N-01BE95E8")
      ("pwd" "N-0047F5F6")
      ("gcd" "N-03D44645")
-     ("atanh" "D-0044")
+     ("atanh" "D-0043")
      ("match-regex" "N-02E3A26F")
      ("fill-carray" "N-00737951")
      ("ocrnl" "N-03BD477F")
@@ -1154,23 +1155,23 @@
      ("scan" "N-03E989D0")
      ("vmin" "N-01812D70")
      ("copy-list" "N-006ED237")
-     ("sinh" "D-0045")
+     ("sinh" "D-0044")
      ("streamp" "N-02BB4421")
      ("buf-put-u32" "N-035FC963")
      ("labels" "N-0209307D")
      ("int32" "N-03D0AA7B")
      ("tcion" "N-02173FF9")
-     ("until" "D-0046")
-     ("fill-buf" "D-0047")
+     ("until" "D-0045")
+     ("fill-buf" "D-0046")
      ("append*" "N-01143C2A")
-     ("plusp" "D-0048")
+     ("plusp" "D-0047")
      ("path-my-group-p" "N-020F44B5")
      ("sort-group" "N-01E65DDC")
      ("setlogmask" "N-0085DB47")
-     ("and" "D-0049")
+     ("and" "D-0048")
      ("pend" "N-03975507")
      ("nlink-t" "N-01D716FE")
-     ("sqrt" "D-004A")
+     ("sqrt" "D-0049")
      ("ssize-t" "N-01D716FE")
      ("base64url-decode" "N-02D46C3D")
      ("copy-files" "N-019D6582")
@@ -1180,8 +1181,8 @@
      ("make-string-byte-input-stream" "N-022937CD")
      ("lazy-str" "N-02AFF63D")
      ("force" "N-0307223D")
-     ("acos" "D-004B")
-     ("floor" "D-004C")
+     ("acos" "D-004A")
+     ("floor" "D-004B")
      ("getresgid" "N-03D37234")
      ("enomem" "N-036B1BDB")
      ("-rng" "N-00BEA6DF")
@@ -1219,7 +1220,7 @@
      ("butlastn" "N-01E2C334")
      ("reduce-right" "N-00FB426F")
      ("numberp" "N-03E9D6E1")
-     ("gather" "D-004D")
+     ("gather" "D-004C")
      ("get-lines" "N-00B65D06")
      ("go" "N-007E0D96")
      ("m^" "N-02F44ECE")
@@ -1228,9 +1229,9 @@
      ("split-str" "N-000386B4")
      ("*rec-source-loc*" "N-014AFEA9")
      ("equot" "N-02ACCDDF")
-     ("bool" "D-004E")
+     ("bool" "D-004D")
      ("lazy-stringp" "N-0381BB2A")
-     ("lambda" "D-004F")
+     ("lambda" "D-004E")
      ("make-hash" "N-026D4158")
      ("gethash" "N-0203B5FA")
      ("o-async" "N-034BF6C9")
@@ -1244,12 +1245,12 @@
      ("sock-dgram" "N-01D17D22")
      ("--rng-" "N-00BEA6DF")
      ("buf-get-u64" "N-03C7C962")
-     ("not" "D-0050")
+     ("not" "D-004F")
      ("pos" "N-02C2BBDB")
      ("lexical-lisp1-binding" "N-02D124AB")
      ("sig-quit" "N-0176430F")
      ("tcflow" "N-03081D51")
-     ("iter-begin" "D-0051")
+     ("iter-begin" "D-0050")
      ("suspend" "N-02E7852D")
      ("ffi-get" "N-023305C7")
      ("ptr-out-s" "N-02D36BEC")
@@ -1258,7 +1259,7 @@
      ("functionp" "N-00F6F5F8")
      ("eval-only" "N-030BF4F5")
      ("gun" "N-0323BEBD")
-     ("repeat" "D-0052")
+     ("repeat" "D-0051")
      ("build" "N-01346AAA")
      ("regexp" "N-03DDC533")
      ("key" "N-020D5C1D")
@@ -1276,7 +1277,7 @@
      ("edom" "N-036B1BDB")
      ("env" "N-0267F548")
      ("ff" "N-006B6E54")
-     ("put-byte" "D-0053")
+     ("put-byte" "D-0052")
      ("delay" "N-00DCE524")
      ("tcsanow" "N-02C6ECF5")
      ("dlvsym" "N-01B1E865")
@@ -1290,7 +1291,7 @@
      ("maprodo" "N-015987D7")
      ("ado" "N-00BE749A")
      ("sh" "N-0158244A")
-     ("none" "D-0054")
+     ("none" "D-0053")
      ("find-max" "N-02BB4231")
      ("f^" "N-000B5ACD")
      ("treep" "N-03B8E442")
@@ -1299,11 +1300,11 @@
      ("struct-set-postinitfun" "N-00946F18")
      ("make-struct" "N-002B3F64")
      ("search-str-tree" "N-02783DAA")
-     ("collect" "D-0055")
+     ("collect" "D-0054")
      ("edestaddrreq" "N-036B1BDB")
      ("tenth" "N-01B0FA33")
      ("until*" "N-01F7BF0B")
-     ("next" "D-0056")
+     ("next" "D-0055")
      ("set-left" "N-033F7D05")
      ("-C" "N-036F1A29")
      ("veof" "N-01812D70")
@@ -1316,13 +1317,13 @@
      ("sspl" "N-0296195B")
      ("rand" "N-03A57C86")
      ("mequal" "N-020A0042")
-     ("bind" "D-0057")
+     ("bind" "D-0056")
      ("echoprt" "N-0072FF5E")
      ("istrip" "N-02391683")
      ("ai-addrconfig" "N-020DFFDE")
      ("log-perror" "N-02371913")
      ("open-directory" "N-0221AE09")
-     ("qref" "D-0058")
+     ("qref" "D-0057")
      ("chr-isblank" "N-0251A159")
      ("maybe" "N-039458F2")
      ("r$" "N-03BBB0C5")
@@ -1331,18 +1332,18 @@
      ("condlet" "N-03272DC8")
      ("static-slot-ensure" "N-02E71F31")
      ("fixnum-max" "N-02A6CE24")
-     ("sign-extend" "D-0059")
+     ("sign-extend" "D-0058")
      ("eighth" "N-01B0FA33")
      ("r-trunc" "N-02CD7330")
      ("dlsym-checked" "N-029063A0")
      ("isatty" "N-03709E8A")
-     ("block" "D-005A")
+     ("block" "D-0059")
      ("hash_alist" "N-01BD56A5")
      ("at-exit-call" "N-003EEEF5")
      ("buf-get-u32" "N-0127C960")
      ("ftw-dnr" "N-02ED8B51")
-     ("get-error" "D-005B")
-     ("square" "D-005C")
+     ("get-error" "D-005A")
+     ("square" "D-005B")
      ("carray-uint" "N-02403ED4")
      ("blksize-t" "N-01D716FE")
      ("umask" "N-0068D92E")
@@ -1357,16 +1358,16 @@
      ("buf-get-float" "N-001D239A")
      ("hash_pairs" "N-01BD56A5")
      ("efbig" "N-036B1BDB")
-     ("time" "D-005D")
+     ("time" "D-005C")
      ("use-package" "N-024BF63F")
      ("symbol-package" "N-02AB2428")
-     ("iter-step" "D-005E")
+     ("iter-step" "D-005D")
      ("andf" "N-01E7D2AD")
      ("bs0" "N-03BD477F")
      ("r^" "N-03BBB0C5")
      ("getpwuid" "N-03E528C6")
      ("file-put-lines" "N-0041C2E5")
-     ("..." "D-005F")
+     ("..." "D-005E")
      ("casequal*" "N-02FB71A2")
      ("//" "N-0054C409")
      ("getppid" "N-02D7B5A3")
@@ -1384,7 +1385,7 @@
      ("uint" "N-018C7C8C")
      ("cbaud" "N-01B1B5DF")
      ("sha256-begin" "N-03B36E53")
-     ("exp" "D-0060")
+     ("exp" "D-005F")
      ("catch-frame" "N-0233BAE3")
      ("invoke-catch" "N-0337FC1B")
      ("ftw-mount" "N-01A802F2")
@@ -1402,7 +1403,7 @@
      ("buf-alloc-size" "N-013A3727")
      ("find-frames" "N-02B97226")
      ("ido." "N-00BE749A")
-     ("do" "D-0061")
+     ("do" "D-0060")
      ("chmod" "N-00F941E5")
      ("ealready" "N-036B1BDB")
      ("empty" "N-004918EB")
@@ -1417,7 +1418,7 @@
      ("inaddr-any" "N-026A2C3B")
      ("upcase-str" "N-029EEA82")
      ("memqual" "N-0387CD82")
-     ("in-package" "D-0062")
+     ("in-package" "D-0061")
      ("nshuffle" "N-01F12561")
      ("rmemqual" "N-0188A56C")
      ("struct-from-plist" "N-01515451")
@@ -1468,8 +1469,8 @@
      ("lcm" "N-03D44645")
      ("ffi-put-into" "N-0000F6A9")
      ("ehostunreach" "N-036B1BDB")
-     ("log2" "D-0063")
-     ("exptmod" "D-0064")
+     ("log2" "D-0062")
+     ("exptmod" "D-0063")
      ("copy-hash" "N-030E3A4A")
      ("opts" "N-01D911E8")
      ("doloop*" "N-01FF4DDB")
@@ -1490,7 +1491,7 @@
      ("rehome-sym" "N-03627360")
      ("unintern" "N-01B6BFC2")
      ("lambda-set" "N-02FEBA97")
-     ("logtrunc" "D-0065")
+     ("logtrunc" "D-0064")
      ("path-setuid-p" "N-02FBA677")
      ("set-cflags" "N-02061924")
      ("time-utc" "N-001284ED")
@@ -1503,7 +1504,7 @@
      ("partition" "N-0142889E")
      ("lexical-var-p" "N-007B1A53")
      ("etime" "N-036B1BDB")
-     ("expt" "D-0066")
+     ("expt" "D-0065")
      ("finalize" "N-01230613")
      ("veol2" "N-01812D70")
      ("f-dupfd-cloexec" "N-025E55E7")
@@ -1555,7 +1556,7 @@
      ("orec" "N-0003ED2C")
      ("file-put-buf" "N-02AE3A31")
      ("mappend" "N-0202F92F")
-     ("bitset" "D-0067")
+     ("bitset" "D-0066")
      ("hash-proper-subset" "N-024ACBBB")
      ("copy-tnode" "N-018A17C0")
      ("list-carray" "N-03EB1E3D")
@@ -1582,7 +1583,7 @@
      ("regex-compile" "N-0168C611")
      ("lib-version" "N-032F57D4")
      ("defplace" "N-00F92066")
-     ("isqrt" "D-0068")
+     ("isqrt" "D-0067")
      ("inhash" "N-0161147E")
      ("open-fileno" "N-02BEAF24")
      ("mapcar*" "N-0202F92F")
@@ -1594,14 +1595,14 @@
      ("w-ifstopped" "N-0243C575")
      ("-rng-" "N-00BEA6DF")
      ("replace-str" "N-02059F0A")
-     ("cdr" "D-0069")
+     ("cdr" "D-0068")
      ("defmacro" "N-02CAEF0B")
      ("bignump" "N-03E9D6E1")
      ("set-oflags" "N-02061924")
      ("make-sym" "N-0084463A")
      ("*package-alist*" "N-00E20381")
      ("search-str" "N-0257180F")
-     ("=" "D-006A")
+     ("=" "D-0069")
      ("time-t" "N-03258244")
      ("glob-period" "N-0188409B")
      ("ecanceled" "N-036B1BDB")
@@ -1614,7 +1615,7 @@
      ("f-getfl" "N-025E55E7")
      ("mmakunbound" "N-02964FC0")
      ("macroexpand-1-lisp1" "N-01E62179")
-     ("oddp" "D-006B")
+     ("oddp" "D-006A")
      ("hash-zip" "N-02767282")
      ("enostr" "N-036B1BDB")
      ("cptr-cast" "N-01A212ED")
@@ -1632,7 +1633,7 @@
      ("ncon*" "N-022F6E60")
      ("sig-chld" "N-0176430F")
      ("join" "N-00B6ACE3")
-     ("finally" "D-006C")
+     ("finally" "D-006B")
      ("make-buf" "N-011445E1")
      ("rtld-now" "N-0083A22A")
      ("downcase-str" "N-03DA541E")
@@ -1693,7 +1694,7 @@
      ("sig-abrt" "N-0176430F")
      ("erofs" "N-036B1BDB")
      ("quote" "N-0163F998")
-     ("logcount" "D-006D")
+     ("logcount" "D-006C")
      ("elemsize" "N-01D55CC4")
      ("vec" "N-0297F5F5")
      ("subtypep" "N-00699D3B")
@@ -1701,10 +1702,10 @@
      ("onocr" "N-03BD477F")
      ("termios" "N-039CD619")
      ("getgrgid" "N-03E5634E")
+     ("fmt" "N-0347F537")
      ("int-buf" "N-00DCFA5F")
      ("fifth" "N-01B0FA33")
-     ("equal" "D-006E")
-     ("fmt" "N-0347F537")
+     ("equal" "D-006D")
      ("sig-hup" "N-0176430F")
      ("for" "N-031372ED")
      ("tree-delete" "N-022035DF")
@@ -1730,11 +1731,11 @@
      ("copy-path-rec" "N-034734A3")
      ("lutimes" "N-00E96FCF")
      ("econnaborted" "N-036B1BDB")
-     ("put-string" "D-006F")
+     ("put-string" "D-006E")
      ("fun" "N-006E109C")
      ("rsearch" "N-03405F7D")
      ("push" "N-01C211C1")
-     ("tan" "D-0070")
+     ("tan" "D-006F")
      ("fixnump" "N-03E9D6E1")
      ("*print-flo-format*" "N-02B252AA")
      ("cptr-buf" "N-037139E3")
@@ -1748,7 +1749,7 @@
      ("get-string-from-stream" "N-037412EE")
      ("length-list" "N-01F8186A")
      ("flip" "N-0042153F")
-     ("ceil" "D-0071")
+     ("ceil" "D-0070")
      ("ulong" "N-018C7C8C")
      ("vtdly" "N-03BD477F")
      ("getegid" "N-00125C22")
@@ -1780,14 +1781,14 @@
      ("o-noatime" "N-034BF6C9")
      ("chmod-rec" "N-02D8298E")
      ("o-directory" "N-034BF6C9")
-     ("asin" "D-0072")
+     ("asin" "D-0071")
      ("echoctl" "N-0072FF5E")
      ("touch" "N-0038DD42")
      ("echild" "N-036B1BDB")
      ("rcomb" "N-02D9003C")
      ("dt-blk" "N-02D8CAF4")
      ("geteuid" "N-00125C22")
-     ("iter-more" "D-0073")
+     ("iter-more" "D-0072")
      ("frr" "N-031971BD")
      ("path-writable-to-me-p" "N-02033190")
      ("f" "N-003BDFA9")
@@ -1797,7 +1798,7 @@
      ("opt-desc" "N-03FC5092")
      ("pend*" "N-03975507")
      ("if-match" "N-00CFBF5E")
-     ("zerop" "D-0074")
+     ("zerop" "D-0073")
      ("tentative-def-exists" "N-0186D1B7")
      ("tree" "N-02F6D50B")
      ("chr-isupper" "N-02BB451C")
@@ -1846,9 +1847,9 @@
      ("ensure-dir" "N-00C543B8")
      ("cases" "N-039458F2")
      ("pset" "N-008211EC")
-     ("require" "D-0075")
+     ("require" "D-0074")
      ("match-case" "N-012DEAC3")
-     ("mod" "D-0076")
+     ("mod" "D-0075")
      ("buf-get-cptr" "N-00E90766")
      ("buf-put-u16" "N-019FC960")
      ("defun" "N-00B44934")
@@ -1857,7 +1858,7 @@
      ("untrace" "N-02833733")
      ("sock-set-peer" "N-01FE18ED")
      ("fill-buf-adjust" "N-00D142E1")
-     ("some" "D-0077")
+     ("some" "D-0076")
      ("prod" "N-0163FFE2")
      ("deffi" "N-00DCE51D")
      ("f-getlk" "N-025E55E7")
@@ -1910,7 +1911,7 @@
      ("alist-nremove" "N-000CD07F")
      ("dohash" "N-039105E8")
      ("hash-symdiff" "N-02235BB2")
-     ("acosh" "D-0078")
+     ("acosh" "D-0077")
      ("buf-put-buf" "N-009FC934")
      ("buf-uint" "N-0291625A")
      ("align" "N-01C7BC08")
@@ -1918,7 +1919,7 @@
      ("endgrent" "N-02CAC7FB")
      ("replace" "N-035991E1")
      ("test-dirty" "N-03AB857D")
-     ("put-buf" "D-0079")
+     ("put-buf" "D-0078")
      ("remqual*" "N-00B85CD2")
      ("ends-with" "N-004955D4")
      ("floatp" "N-03E9D6E1")
@@ -1972,7 +1973,7 @@
      ("flo-dig" "N-00998CE7")
      ("opip" "N-01937C5A")
      ("*stdin*" "N-006566FB")
-     ("last" "D-007A")
+     ("last" "D-0079")
      ("copy-file" "N-019D6582")
      ("eisconn" "N-036B1BDB")
      ("false" "N-03C679D2")
@@ -1983,7 +1984,7 @@
      ("ftw-sln" "N-02ED8B51")
      ("replace-struct" "N-01A8343B")
      ("unsetenv" "N-002E0364")
-     ("accept" "D-007B")
+     ("accept" "D-007A")
      ("cptr-get" "N-00513A70")
      ("md5-hash" "N-025F32FD")
      ("poly" "N-026201AD")
@@ -1997,11 +1998,11 @@
      ("yield" "N-02AE5C1E")
      ("path-chrdev-p" "N-00198FC7")
      ("double" "N-03237030")
-     ("+" "D-007C")
+     ("+" "D-007B")
      ("readdir" "N-0289D074")
      ("fconv" "N-018CCE37")
      ("time-parse-utc" "N-00207C99")
-     ("print" "D-007D")
+     ("print" "D-007C")
      ("freeform" "N-00334C65")
      ("enodata" "N-036B1BDB")
      ("buf-get-i32" "N-0127C970")
@@ -2010,13 +2011,13 @@
      ("ino-t" "N-01D716FE")
      ("tuples" "N-00C801EF")
      ("list-builder" "N-018F6666")
-     ("cosh" "D-007E")
-     ("log" "D-007F")
+     ("cosh" "D-007D")
+     ("log" "D-007E")
      ("clear-oflags" "N-02061924")
      ("*random-warmup*" "N-010348CD")
      ("chr" "N-02D5D09D")
      ("meq" "N-020A0042")
-     ("load" "D-0080")
+     ("load" "D-007F")
      ("clear-dirty" "N-03AB857D")
      ("save-exe" "N-02850687")
      ("make-strlist-input-stream" "N-01737CF9")
diff --git a/tests/010/tree.tl b/tests/010/tree.tl
index b4990d04..df454e75 100644
--- a/tests/010/tree.tl
+++ b/tests/010/tree.tl
@@ -5,6 +5,9 @@
 
 (test tr #T(()))
 
+(test (treep tr) t)
+(test (treep 42) nil)
+
 (each ((n keys))
   (tree-insert tr n))
 
@@ -29,3 +32,40 @@
   (tree-lookup tr 17) 17
   (tree-lookup tr 18) 18
   (tree-lookup tr 19) 19)
+
+(vtest (build (for* ((i (tree-begin tr))
+                     (n (tree-next i)))
+                    (n)
+                    ((set n (tree-next i)))
+                (add (key n))))
+       (range 0 19))
+
+(defvarl trc (copy-search-tree tr))
+
+(vtest trc tr)
+
+(tree-clear trc)
+
+(test trc #T(()))
+
+(mtest
+  (tree-delete tr 0) 0
+  (tree-delete tr 1) 1
+  (tree-delete tr 2) 2
+  (tree-delete tr 3) 3
+  (tree-delete tr 4) 4
+  (tree-delete tr 5) 5
+  (tree-delete tr 6) 6
+  (tree-delete tr 7) 7
+  (tree-delete tr 8) 8
+  (tree-delete tr 9) 9
+  (tree-delete tr 10) 10
+  (tree-delete tr 11) 11
+  (tree-delete tr 12) 12
+  (tree-delete tr 13) 13
+  (tree-delete tr 14) 14
+  (tree-delete tr 15) 15
+  (tree-delete tr 16) 16
+  (tree-delete tr 17) 17
+  (tree-delete tr 18) 18
+  (tree-delete tr 19) 19)