From 876e11b0c91858368e24e795811471056dcb52a5 Mon Sep 17 00:00:00 2001 From: Helmut Merz Date: Sat, 12 Oct 2024 15:50:55 +0200 Subject: [PATCH] use new meta setting for storage/folder --- storage/folder.lisp | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/storage/folder.lisp b/storage/folder.lisp index 19d8cc3..776dae6 100644 --- a/storage/folder.lisp +++ b/storage/folder.lisp @@ -11,7 +11,10 @@ (in-package :scopes/storage/folder) (defclass folder (tracking:track) - ((shape:head-fields :initform '(:parentid :name :ref)) + ((shape:meta :initform + (make-instance 'shape:record-meta + :head-fields '(:parentid :name :ref)) + :allocation :class) (tracking:key-fields :initform '(:parentid :name)))) (defun indexes (cont)