[cl-backend] support sub foo($) {...}

cl-backend/backend.lisp

@@ -83,10 +83,11 @@
     names           ; All legal named-parameter names
     default         ; Xref    Sub to call if HAS_DEFAULT; must be child of this
     ) (if (equal flags 96)
-          (var-name slot)
+          (if slot
+              (var-name slot)
+              (gensym))
           nil))))
 
-
 (defun mymap (func list) (remove-if #'null (mapcar func list)))
 
 (defmacro define-nam-sub  

simple-tests/nameless-arg.t

@@ -0,0 +1,5 @@
+say "1..1";
+sub foo($) {
+    say "ok 1";
+}
+foo("this doesn't get used");