cco/cl-scopes
3
0
Fork 0
Code Issues 1 Pull requests Releases Wiki Activity Actions

folder: rename put-new to create; simplifications

Browse source
This commit is contained in:
Helmut Merz 2024-08-08 22:12:37 +02:00
parent d759a5c57c
commit 997b0afb0e
2 changed files with 7 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
storage/folder.lisp
View file

@ -5,7 +5,7 @@
(:local-nicknames (:shape :scopes/shape) (:local-nicknames (:shape :scopes/shape)
(:tracking :scopes/storage/tracking) (:tracking :scopes/storage/tracking)
(:util :scopes/util)) (:util :scopes/util))
(:export #:folder #:root #:put-new (:export #:folder #:root #:create
#:make-container)) #:make-container))
(in-package :scopes/storage/folder) (in-package :scopes/storage/folder)
@ -26,12 +26,9 @@
:storage storage)) :storage storage))
(defun root (cont) (defun root (cont)
(let ((f (tracking:make-item cont nil :root))) (tracking:save (tracking:make-item cont nil :root)))
(tracking:save f)))
(defun put-new (name parent) (defun create (name parent)
(let* ((cont (tracking:container parent)) (let ((cont (tracking:container parent))
(pid (write-to-string (tracking:trackid parent))) (pid (write-to-string (tracking:trackid parent))))
(f (tracking:make-item cont pid name))) (tracking:save (tracking:make-item cont pid name))))
(util:lgi pid f)
(tracking:save f)))

2
test/test-storage.lisp
View file

@ -91,5 +91,5 @@
(setf root (folder:root cont)) (setf root (folder:root cont))
(== (tracking:trackid root) 1) (== (tracking:trackid root) 1)
(== (shape:head-value root :parentid) nil) (== (shape:head-value root :parentid) nil)
(setf f1 (folder:put-new :child1 root)) (setf f1 (folder:create :child1 root))
)) ))