Permalink
Browse files

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

  • Loading branch information...
1 parent 5969e9b commit e3f2835c22b7ce0ff183a4eb9c8e718b5023a54b @pmurias pmurias committed Mar 6, 2011
Showing with 1 addition and 1 deletion.
  1. +1 −1 cl-backend/backend.lisp
View
2 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))

0 comments on commit e3f2835

Please sign in to comment.