diff options
| -rw-r--r-- | senzill.asd | 10 | ||||
| -rw-r--r-- | src/math.lisp | 4 | ||||
| -rw-r--r-- | src/packages.lisp | 21 |
3 files changed, 29 insertions, 6 deletions
diff --git a/senzill.asd b/senzill.asd index b1ca31b..d521aff 100644 --- a/senzill.asd +++ b/senzill.asd @@ -2,10 +2,12 @@ :author "Kamen Mladenov <kamen@syndamia.com>" :maintainer "Kamen Mladenov <kamen@syndamia.com>" :license "GNU GPLv3" - :version "infdev" + :version "0.1" :homepage "https://gitlab.com/Syndamia/senzill" - :bugtracker "https://gitlab.com/Syndamia/senzill/-/issues" + :bug-tracker "https://gitlab.com/Syndamia/senzill/-/issues" :source-control (:git "git@gitlab.com:Syndamia/senzill.git") :components ((:module "src" - ((:file "math") - (:file "collections"))))) + :components + ((:file "packages") + (:file "math" :depends-on ("packages")) + (:file "collections" :depends-on ("packages")))))) diff --git a/src/math.lisp b/src/math.lisp index 832c87c..89ccb0a 100644 --- a/src/math.lisp +++ b/src/math.lisp @@ -12,7 +12,7 @@ "Sums all numbers and stores result in name (first argument)" `(op= '+ ,value ,@numbers)) -(defmacro ++_ (value) +(defmacro ++1 (value) "Adds increments value by one" `(+= ,value 1)) @@ -24,7 +24,7 @@ "Decrements value by one" `(-= ,value 1)) -(defmacro /= (value &rest numbers) +(defmacro //= (value &rest numbers) "Divides all numbers and stores result in name (first argument)" `(op= '/ ,value ,@numbers)) diff --git a/src/packages.lisp b/src/packages.lisp new file mode 100644 index 0000000..441101d --- /dev/null +++ b/src/packages.lisp @@ -0,0 +1,21 @@ +(in-package :cl) + +(defpackage senzill.math + (:use :cl) + (:export :% + :+= + :++1 + :-= + :-- + ://= + :*= + :^ + :avg) + (:documentation "Math functions")) + +(defpackage senzill.collections + (:use :cl) + (:export :push-back + :pop-back + :slice) + (:documentation "List functions")) |