22 lines
661 B
Common Lisp
22 lines
661 B
Common Lisp
;;;; cl-scopes/shape - really abstract basic data shape definitions.
|
|
|
|
(defpackage :scopes/shape
|
|
(:use :common-lisp)
|
|
(:export #:record #:head-fields #:head #:data
|
|
#:head-plist))
|
|
|
|
(in-package :scopes/shape)
|
|
|
|
(defclass record ()
|
|
((head-fields :reader head-fields :initarg :head-fields
|
|
:initform '(:taskid :username) :allocation :class)
|
|
(head :accessor head :initarg :head)
|
|
(data :accessor data :initarg :data :initform nil)))
|
|
|
|
(defun head-plist (track)
|
|
(let (pl h (hv (head track)))
|
|
(dolist (hf (head-fields track))
|
|
(setf h (pop hv))
|
|
(setf (getf pl hf)
|
|
(if h (string-downcase h) "")))
|
|
pl))
|