commit 56c0c8c31df44702fb2013c9eae410b2c7f53386 Spenser Truex <spensertruexonline@gmail.com> 2019-08-25 12:16:09 -0300 Compiles.
.gitignore | 1 + len-cmp.asd | 8 ++++++++ length.lisp | 7 ++++++- 3 files changed, 15 insertions(+), 1 deletion(-)
diff --git a/.gitignore b/.gitignore new file mode 100644 index 0000000..be303db --- /dev/null +++ b/.gitignore @@ -0,0 +1 @@ +*.fasl diff --git a/len-cmp.asd b/len-cmp.asd new file mode 100644 index 0000000..d024044 --- /dev/null +++ b/len-cmp.asd @@ -0,0 +1,8 @@ +(in-package :asdf) +(defsystem :len-cmp + :version "0.0.1" + :description "Efficient comparison of length." + :author "Spenser Truex <web@spensertruex.com>" + :serial t + :license "GNU GPL v3" + :components ((:file "length"))) diff --git a/length.lisp b/length.lisp index 2a14cde..1df243f 100644 --- a/length.lisp +++ b/length.lisp @@ -1,8 +1,13 @@ +(defpackage #:len-cmp + (:use #:cl) + (:export :len)) + + ;;;; An attempt to define an efficient length comparator. #+5am (5am:def-suite length-tests :description "Test length functions.") #+5am (5am:in-suite length-tests) -(in-package :cl-user) +(in-package :len-cmp) (defun null0 (list) "Normalize a list variable to be numeric for length computation."