--- a/DOCUMENTATION.markdown Mon Feb 06 12:30:13 2017 +0000
+++ b/DOCUMENTATION.markdown Mon Feb 06 14:36:36 2017 +0000
@@ -296,7 +296,7 @@
### `-<>` (macro)
- (-<> &REST FORMS)
+ (-<> EXPR &REST FORMS)
Thread the given forms, with `<>` as a placeholder.
@@ -669,6 +669,14 @@
+### `EVAL-DAMMIT` (macro)
+
+ (EVAL-DAMMIT
+ &BODY
+ BODY)
+
+Just evaluate `body` all the time, jesus christ lisp.
+
## Package `LOSH.FUNCTIONS`
Utilities for working with higher-order functions.
@@ -758,7 +766,8 @@
(GNUPLOT-ARGS &KEY (OUTPUT :QT) (FILENAME plot.png) (STYLE :LINES)
(SIZE-X 1200) (SIZE-Y 800) (LABEL-X) (LABEL-Y)
- (LINE-TITLE 'DATA) (LINE-WIDTH 4) (AXIS-X NIL) (AXIS-Y NIL)
+ (LINE-TITLE 'DATA) (LINE-WIDTH 4) (SMOOTH NIL) (AXIS-X NIL)
+ (AXIS-Y NIL) (MIN-X NIL) (MAX-X NIL) (MIN-Y NIL) (MAX-Y NIL)
(GRAPH-TITLE) (LOGSCALE-X NIL) (LOGSCALE-Y NIL)
&ALLOW-OTHER-KEYS)
--- a/losh.lisp Mon Feb 06 12:30:13 2017 +0000
+++ b/losh.lisp Mon Feb 06 14:36:36 2017 +0000
@@ -2517,3 +2517,7 @@
,,type
,@body)))))
+(defmacro eval-dammit (&body body)
+ "Just evaluate `body` all the time, jesus christ lisp."
+ `(eval-when (:compile-toplevel :load-toplevel :execute) ,@body))
+
--- a/package.lisp Mon Feb 06 12:30:13 2017 +0000
+++ b/package.lisp Mon Feb 06 14:36:36 2017 +0000
@@ -85,6 +85,7 @@
(defpackage :losh.eldritch-horrors
(:documentation "Abandon all hope, ye who enter here.")
(:export
+ :eval-dammit
:define-with-macro))
(defpackage :losh.functions