summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorcolin <colin@cicadas.surf>2024-05-04 10:19:17 -0700
committercolin <colin@cicadas.surf>2024-05-04 10:19:17 -0700
commit5d3b5870b7f4d3a9b9be9ea840b21398fa77241d (patch)
tree4851a6692f16473863ca1b6b8460d309459d921b
parentb83e27e66b0032c67072a85bed3c87d948f087f8 (diff)
renamed
-rw-r--r--flatbind.asd13
-rw-r--r--flatbind.lisp (renamed from obwyn.lisp)6
-rw-r--r--obwyn.asd13
3 files changed, 16 insertions, 16 deletions
diff --git a/flatbind.asd b/flatbind.asd
new file mode 100644
index 0000000..fb6d905
--- /dev/null
+++ b/flatbind.asd
@@ -0,0 +1,13 @@
+;;;; flatbind.asd
+
+(asdf:defsystem #:flatbind
+ :description "Syntactic sugar cribbing style from haskell's do syntax."
+ :author "Colin <colin@cicadas.surf>"
+ :license "Unlicense"
+ :version "0.0.1"
+ :serial t
+ :depends-on (#:argot #:alexandria #:testiere)
+ :components ((:file "flatbind")))
+
+
+
diff --git a/obwyn.lisp b/flatbind.lisp
index 70a1772..9a76ff3 100644
--- a/obwyn.lisp
+++ b/flatbind.lisp
@@ -1,10 +1,10 @@
-(defpackage #:obwyn
+(defpackage #:flatbind
(:use #:cl)
(:local-nicknames
(#:a #:alexandria-2))
(:export #:do>))
-(in-package :obwyn)
+(in-package :flatbind)
(defun variablep (thing)
(and (symbolp thing) (not (keywordp thing))))
@@ -36,7 +36,7 @@
(and (listp form)
(ignore-errors
(multiple-value-bind (required optional rest kwargs allow-other aux keyp)
- (alexandria:parse-ordinary-lambda-list form)
+ (a:parse-ordinary-lambda-list form)
(declare (ignorable required optional rest kwargs keyp))
(not (or allow-other aux))))))
diff --git a/obwyn.asd b/obwyn.asd
deleted file mode 100644
index 1aa0693..0000000
--- a/obwyn.asd
+++ /dev/null
@@ -1,13 +0,0 @@
-;;;; obwyn.asd
-
-(asdf:defsystem #:obwyn
- :description "Only Bind When You Need"
- :author "Colin <colin@cicadas.surf>"
- :license "Unlicense"
- :version "0.0.1"
- :serial t
- :depends-on (#:argot #:alexandria #:testiere)
- :components ((:file "obwyn")))
-
-
-