var-set.lisp

(defvar *variable-memory* (make-hash-table :test #'equal))

(fare-memoization:define-memo-function (intern-variable :table *variable-memory*) (name variable-specs)
  (flet ((field? (n)
           (cdr (assoc n variable-specs))))
    (make-instance 'variable
                   :name (json:lisp-to-camel-case (symbol-name name))
                   :concept? (field? :concept)
                   :label (field? :label))))

(defun make-variable (dataset name variable-specs)
  (let ((v (intern-variable name variable-specs)))
    (pushnew dataset (appears-in v))
    v))