From: Mark Wooding <mdw@distorted.org.uk>
Date: Sat, 3 Feb 2024 23:31:09 +0000 (+0000)
Subject: utils/permute.lisp (demonstrate-permutation-network): Use keyword args.
X-Git-Url: https://git.distorted.org.uk/~mdw/catacomb/commitdiff_plain/7306ec27b8e4793629e1348467c8e727d31eded7

utils/permute.lisp (demonstrate-permutation-network): Use keyword args.
---

diff --git a/utils/permute.lisp b/utils/permute.lisp
index 7d7cb563..b41b4d46 100644
--- a/utils/permute.lisp
+++ b/utils/permute.lisp
@@ -205,7 +205,9 @@
     (terpri stream)))
 
 (defun demonstrate-permutation-network
-    (n steps &optional reference (stream *standard-output*))
+    (n steps
+     &key reference
+	  (stream *standard-output*))
   "Print, on STREAM, a demonstration of the permutation STEPS.
 
    Begin, on the left, with the integers from 0 up to N - 1.  For each
@@ -769,13 +771,13 @@
 
   (let ((benes-network (benes-search fixed-ip)))
     (print-permutation-network benes-network)
-    (demonstrate-permutation-network 64 benes-network fixed-ip))
+    (demonstrate-permutation-network 64 benes-network :reference fixed-ip))
   (terpri)
   (print-permutation-network trad-network)
-  (demonstrate-permutation-network 64 trad-network fixed-ip)
+  (demonstrate-permutation-network 64 trad-network :reference fixed-ip)
   (terpri)
   (print-permutation-network new-network)
-  (demonstrate-permutation-network 64 new-network fixed-ip))
+  (demonstrate-permutation-network 64 new-network :reference fixed-ip))
 
 #+example
 (benes-search-des #( 0  0  0  0