Switch branches/tags
Find file Copy path
Fetching contributors…
Cannot retrieve contributors at this time
66 lines (56 sloc) 2.65 KB
; -*- mode: lisp -*-
(cl:defpackage :nibbles-system
(:use :cl))
(cl:in-package :nibbles-system)
(defclass nibbles-source-file (asdf:cl-source-file) ())
(defclass txt-file (asdf:doc-file) ((type :initform "txt")))
(defclass css-file (asdf:doc-file) ((type :initform "css")))
(defmethod asdf:perform :around ((op asdf:compile-op) (c nibbles-source-file))
(let ((*print-base* 10) ; INTERN'ing FORMAT'd symbols
(*print-case* :upcase)
#+sbcl (sb-ext:*inline-expansion-limit* (max sb-ext:*inline-expansion-limit* 1000))
#+cmu (ext:*inline-expansion-limit* (max ext:*inline-expansion-limit* 1000)))
(defmethod asdf:perform :around ((op asdf:load-op) (c nibbles-source-file))
(asdf:defsystem :nibbles
:version "0.13"
:author "Nathan Froyd <>"
:maintainer "Nathan Froyd <>"
:description "A library for accessing octet-addressed blocks of data in big- and little-endian orders"
:license "BSD-style ("
:default-component-class nibbles-source-file
:components ((:static-file "README")
(:static-file "LICENSE")
(:static-file "NEWS")
(:file "package")
(:file "types" :depends-on ("package"))
(:file "macro-utils" :depends-on ("package"))
(:file "vectors" :depends-on ("types" "macro-utils"))
(:file "streams" :depends-on ("vectors"))
(:module "doc"
((:html-file "index")
(:txt-file "nibbles-doc")
(:css-file "style")))
(:module "sbcl-opt"
:depends-on ("package" "macro-utils")
:components ((:file "fndb")
(:file "nib-tran" :depends-on ("fndb"))
(:file "x86-vm" :depends-on ("fndb"))
(:file "x86-64-vm" :depends-on ("fndb"))))))
(defmethod asdf:perform ((op asdf:test-op)
(c (eql (asdf:find-system :nibbles))))
(asdf:oos 'asdf:test-op 'nibbles-tests))
(asdf:defsystem :nibbles-tests
:depends-on (:nibbles)
:version "0.1"
:author "Nathan Froyd <>"
:maintainer "Nathan Froyd <>"
:in-order-to ((asdf:test-op (asdf:load-op :nibbles-tests)))
:components ((:file "rt")
(:file "tests" :depends-on ("rt"))))
(defmethod asdf:perform ((op asdf:test-op)
(c (eql (asdf:find-system :nibbles-tests))))
(or (funcall (intern (symbol-name :do-tests) (find-package :rtest)))
(error "TEST-OP failed for NIBBLES-TESTS")))