3 ;; Export all symbols starting with "LLVM".
5 (labels ((starts-with (s prefix
)
6 (let* ((x (mismatch s prefix
)))
7 (or (null x
) (= x
(length prefix
))))))
8 (do-symbols (symbol (find-package :llvm
))
9 (let ((symbol-name (symbol-name symbol
)))
10 (when (or (starts-with symbol-name
"LLVM") (starts-with symbol-name
"CLLLVM"))
13 (export '(*llvm-context
* *jit-module
* *jit-module-provider
* *jit-execution-engine
* *jit-pass-manager
*))