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

sorear · Mar 6, 2011 · e3f2835 · e3f2835
1 parent 5969e9b
commit e3f2835
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/cl-backend/backend.lisp b/cl-backend/backend.lisp
@@ -85,7 +85,7 @@
     slot            ; Name of lexical to accept value
     names           ; All legal named-parameter names
     default         ; Xref    Sub to call if HAS_DEFAULT; must be child of this
-    ) (if (equal flags 96)
+    ) (if (or (equal flags 96) (equal flags 100)) ; TODO: more correctness
           (if slot
               (var-name slot)
               (gensym))