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

minor fixes concerning shape:meta

Browse source
This commit is contained in:
Helmut Merz 2024-10-12 16:00:45 +02:00
parent 876e11b0c9
commit 6f846ea940
2 changed files with 5 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
shape/shape.lisp
View file

@ -44,7 +44,7 @@
(print-slots rec stream 'head 'data)) (print-slots rec stream 'head 'data))
(defmethod head-fields ((rec record)) (defmethod head-fields ((rec record))
(head-fields (get-meta (class-of rec)))) (head-fields (meta rec)))
(defun head-value (rec key) (defun head-value (rec key)
(elt (head rec) (position key (head-fields rec)))) (elt (head rec) (position key (head-fields rec))))

7
storage/tracking.lisp
View file

@ -63,9 +63,10 @@
(make-instance 'container :short-name :trk :storage st)) (make-instance 'container :short-name :trk :storage st))
(defmethod initialize-instance :after ((cont container) &key &allow-other-keys) (defmethod initialize-instance :after ((cont container) &key &allow-other-keys)
(setf (gethash (short-name cont) *containers*) cont) (setf (gethash (short-name cont) *containers*) cont))
(setf (item-head-fields cont)
(shape:head-fields (shape:get-meta (item-class cont))))) (defun item-head-fields (cont)
(shape:head-fields (shape:get-meta (item-class cont))))
(defun make-item (cont &rest head) (defun make-item (cont &rest head)
(make-instance (item-class cont) :head head :container cont)) (make-instance (item-class cont) :head head :container cont))