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

[sod] / src / utilities.lisp

diff --git a/src/utilities.lisp b/src/utilities.lisp
index 0f6a54b0d3a562d855c49177e9cad2924cd3bd30..1e10c24d2df6a64fa115a64299844696ef29ad19 100644 (file)
--- 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: