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

auth:principal: use shape:meta definition

Browse source
This commit is contained in:
Helmut Merz 2024-10-14 10:52:41 +02:00
parent 6f846ea940
commit 3cf5700a3d
1 changed files with 6 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
lib/auth/auth.lisp
View file

@ -54,9 +54,13 @@
;;; principal (abstract / generic user object)
(defun principal-meta ()
(make-instance 'shape:record-meta
:head-fields '(:organization :name)
:data-fields '(:credentials :full-name :email :role)))
(defclass principal (shape:record)
((shape:head-fields :initform '(:organization :name))
(shape:data-fields :initform '(:credentials :full-name :email :role))))
((shape:meta :initform (principal-meta) :allocation :class)))
(defun make-principal (org cred &optional (cls 'principal))
(make-instance cls :head (list org (name cred))