aux-props

This commit is contained in:
Benson Chu 2023-04-28 10:23:48 -05:00
parent 5f153bb131
commit c0d89f7b4b

View file

@ -50,7 +50,8 @@
;; Cached compilation command options
(target-clang-opts :initarg :clang-opts :initform nil)
;; Target + CPU -> compilation command options
(target-clang-opts-fun :initarg :clang-opts-fun :type function :initform (lambda ()))))
(target-clang-opts-fun :initarg :clang-opts-fun :type function :initform (lambda ()))
(aux-props :initarg :aux-props :type list :initform nil)))
;; (defvar lls/llvm-config nil)
@ -79,6 +80,12 @@
(slot-value conf sym)
nil))
(defun lls/conf-aux-get (sym)
(lls/ensure-initialized)
(-->
(lls/conf-get 'aux-props)
(alist-get sym it)))
(defun lls/conf-set (key val)
(lls/ensure-initialized)
(setf (slot-value (lls/get-llvm-config) key)