# HG changeset patch
# User Steve Losh <steve@stevelosh.com>
# Date 1486391796 0
# Node ID 5f26482784a660a1d9ab1c83270e8abd1ba6864f
# Parent  4d4ad6ac3bf637562e231a5d07ef844bec2ccd4f
Add `eval-dammit`

diff -r 4d4ad6ac3bf6 -r 5f26482784a6 DOCUMENTATION.markdown
--- 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)
 
diff -r 4d4ad6ac3bf6 -r 5f26482784a6 losh.lisp
--- 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))
+
diff -r 4d4ad6ac3bf6 -r 5f26482784a6 package.lisp
--- 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