From: Mark Wooding <mdw@distorted.org.uk>
Date: Fri, 6 Jul 2018 23:03:38 +0000 (+0100)
Subject: src/utilities.lisp (once-only): Ensure that the BINDS argument is a list.
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/sod/commitdiff_plain/74ca1bf50dae2ae7dfa61352d77a5edba9cc3db6?ds=inline

src/utilities.lisp (once-only): Ensure that the BINDS argument is a list.
---

diff --git a/src/utilities.lisp b/src/utilities.lisp
index 0f6a54b..1e10c24 100644
--- a/src/utilities.lisp
+++ b/src/utilities.lisp
@@ -82,7 +82,7 @@   (defun strip-quote (form)
 	   form))))
 
 (export 'once-only)
-(defmacro once-only (binds &body body)
+(defmacro once-only ((&rest binds) &body body)
   "Macro helper for preventing repeated evaluation.
 
    The syntax is actually hairier than shown: