From: Christophe R. <cr...@us...> - 2004-05-19 12:46:02
|
Update of /cvsroot/sbcl/sbcl/src/compiler In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv27113/src/compiler Modified Files: locall.lisp Log Message: 0.8.10.36: Fix the NIL-as-keyword argument bug for local calls. Index: locall.lisp =================================================================== RCS file: /cvsroot/sbcl/sbcl/src/compiler/locall.lisp,v retrieving revision 1.62 retrieving revision 1.63 diff -u -d -r1.62 -r1.63 --- locall.lisp 10 May 2004 15:03:01 -0000 1.62 +++ locall.lisp 19 May 2004 12:45:51 -0000 1.63 @@ -632,7 +632,7 @@ (progn (ignores dummy val) (unless (eq name :allow-other-keys) - (setq loser name)))) + (setq loser (list name))))) (let ((info (lambda-var-arg-info var))) (when (eq (arg-info-key info) name) (ignores dummy) @@ -641,7 +641,7 @@ (when (and loser (not (optional-dispatch-allowp fun)) (not allowp)) (compiler-warn "function called with unknown argument keyword ~S" - loser) + (car loser)) (setf (basic-combination-kind call) :error) (return-from convert-more-call))) |