src/packages-post.lisp

   1 (in-package :llvm)
   2
   3 ;; Export all symbols starting with "LLVM".
   4
   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)))))
  12
  13 (export '(*llvm-context* *jit-module* *jit-module-provider* *jit-execution-engine* *jit-pass-manager*))