# HG changeset patch
# User Steve Losh <steve@stevelosh.com>
# Date 1492002540 0
# Node ID 6a26564cc9a8f4bd4483b8983a05f167f192c5b5
# Parent  1a0146c5e62d8eb1b1229c79bd6f1ee434b34296
A few minor tweaks

diff -r 1a0146c5e62d -r 6a26564cc9a8 losh.lisp
--- a/losh.lisp	Tue Mar 14 13:35:46 2017 +0000
+++ b/losh.lisp	Wed Apr 12 13:09:00 2017 +0000
@@ -1438,12 +1438,12 @@
       (with ,r = ,radius)
       (with ,-r = (- ,r))
       (with ,skip = ,should-skip-origin)
-      (generate-nested ,(iterate (for var :in delta-vars)
+      (generate-nested ,(iterate (for var :in (ensure-list delta-vars))
                                  (collect `(,var :from ,-r :to ,r)))
                        :control-var ,control)
       (next ,control)
       (when (and ,skip
-                 ,@(iterate (for var :in delta-vars)
+                 ,@(iterate (for var :in (ensure-list delta-vars))
                             (collect `(zerop ,var))))
         (next ,control)))))
 
@@ -2574,6 +2574,7 @@
                 &key
                 (x #'car)
                 (y #'cdr)
+                (spew-output nil)
                 &allow-other-keys)
   "Plot `data` to `filename` with gnuplot.
 
@@ -2595,7 +2596,7 @@
                     "gnuplot"
                     (apply #'gnuplot-args args)
                     :input :stream
-                    :output nil))
+                    :output (if spew-output *standard-output* nil)))
          (in (uiop/package:symbol-call
                :external-program :process-input-stream
                process)))