/[cmucl]/src/compiler/locall.lisp
ViewVC logotype

Diff of /src/compiler/locall.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.57 by gerd, Sat Oct 11 11:57:55 2003 UTC revision 1.57.6.1 by rtoy, Mon Dec 19 01:09:59 2005 UTC
# Line 611  Line 611 
611                             (progn                             (progn
612                               (ignores dummy val)                               (ignores dummy val)
613                               (unless (eq name :allow-other-keys)                               (unless (eq name :allow-other-keys)
614                                 (setq loser name))))                                 ;; Listify the name in case the keyword
615                                   ;; name is nil, so we can distinguish
616                                   ;; between NIL as a keyword and loser
617                                   ;; being empty.
618                                   (setq loser (list name)))))
619                  (let ((info (lambda-var-arg-info var)))                  (let ((info (lambda-var-arg-info var)))
620                    (when (eq (arg-info-keyword info) name)                    (when (eq (arg-info-keyword info) name)
621                      (ignores dummy)                      (ignores dummy)
# Line 620  Line 624 
624    
625          (when (and loser (not (optional-dispatch-allowp fun)) (not allowp))          (when (and loser (not (optional-dispatch-allowp fun)) (not allowp))
626            (compiler-warning "Function called with unknown argument keyword ~S."            (compiler-warning "Function called with unknown argument keyword ~S."
627                              loser)                              (car loser))
628            (setf (basic-combination-kind call) :error)            (setf (basic-combination-kind call) :error)
629            (return-from convert-more-call)))            (return-from convert-more-call)))
630    

Legend:
Removed from v.1.57  
changed lines
  Added in v.1.57.6.1

  ViewVC Help
Powered by ViewVC 1.1.5