Start to clean things up to get into a state usable by others.
[cl-llvm.git] / src / packages-post.lisp
blobf7f348c9d4b1596f812e079f87fa1607796e236f
1 (in-package :llvm)
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"))
11 (export symbol)))))
13 (export '(*llvm-context* *jit-module* *jit-module-provider* *jit-execution-engine* *jit-pass-manager*))