cage/tinmop
1
0
Fork 0
mirror of https://codeberg.org/cage/tinmop/ synced 2025-02-16 08:00:35 +01:00
Code Issues

- [kami] ensured 'collect-tree' returns both values: files and directories.

Browse Source
This commit is contained in:
cage 2022-02-19 14:13:03 +01:00
parent 39ffbee1a6
commit 6be8fac680
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
src/kami/client.lisp
View File

@ -180,9 +180,15 @@
(defun collect-tree (stream root-fid) (defun collect-tree (stream root-fid)
(lambda (path) (lambda (path)
(let* ((*stream* stream) (let* ((*stream* stream)
(*root-fid* root-fid)) (*root-fid* root-fid)
(all-files nil)
(all-dirs nil))
(with-cloned-root-fid (*stream* cloned-root-fid :clunk-cloned-fid t) (with-cloned-root-fid (*stream* cloned-root-fid :clunk-cloned-fid t)
(9p:collect-tree *stream* cloned-root-fid path))))) (multiple-value-bind (files directories)
(9p:collect-tree *stream* cloned-root-fid path)
(setf all-files files)
(setf all-dirs directories)))
(values all-files all-dirs))))
(defun generate-filesystem-window-handlers (path host port (defun generate-filesystem-window-handlers (path host port
query fragment query fragment