Initial commit of LibVirt

.gitignore

@@ -0,0 +1,54 @@
+# -*- mode: gitignore; -*-
+.*
+!.gitignore
+!.gitmodules
+!.gitkeep
+
+# Emacs Stuff
+*~
+\#*\#
+/.emacs.desktop
+/.emacs.desktop.lock
+*.elc
+auto-save-list
+tramp
+.\#*
+
+# Org-mode
+.org-id-locations
+*_archive
+
+# flymake-mode
+*_flymake.*
+
+# eshell files
+/eshell/history
+/eshell/lastdir
+
+# elpa packages
+/elpa/
+
+# reftex files
+*.rel
+
+# AUCTeX auto folder
+/auto/
+*/auto/
+
+# cask packages
+.cask/
+dist/
+
+# Flycheck
+flycheck_*.el
+
+# server auth directory
+/server/
+
+# projectiles files
+.projectile
+
+# Common Lisp Ignores
+*.FASL
+*.fasl
+*.lisp-temp

README.txt

@@ -0,0 +1 @@
+This is the stub README.txt for the "lisp-libvirt" project.

lisp-libvirt.asd

@@ -0,0 +1,11 @@
+;;;; lisp-libvirt.asd
+
+(asdf:defsystem #:lisp-libvirt
+  :description "Describe lisp-libvirt here"
+  :author "Samuel W. Flint <swflint@flintfam.org>"
+  :license "Specify license here"
+  :depends-on (#:cffi)
+  :serial t
+  :components ((:file "package")
+               (:file "lisp-libvirt")))
+

lisp-libvirt.lisp

@@ -0,0 +1,11 @@
+;;;; lisp-libvirt.lisp
+
+(in-package #:lisp-libvirt)
+
+;;; "lisp-libvirt" goes here. Hacks and glory await!
+
+(define-foreign-library libvirt
+  (:unix (:or "libvirt.so.0" "libvirt.so.0.1002.18"))
+  (t (:default "libvirt")))
+
+(use-foreign-library libvirt)

package.lisp

@@ -0,0 +1,6 @@
+;;;; package.lisp
+
+(defpackage #:lisp-libvirt
+  (:use #:cl
+        #:cffi))
+