/[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.60 by rtoy, Mon Dec 10 18:48:57 2007 UTC revision 1.60.24.2 by rtoy, Thu Feb 11 01:33:01 2010 UTC
# Line 23  Line 23 
23  ;;; Written by Rob MacLachlan  ;;; Written by Rob MacLachlan
24  ;;;  ;;;
25  (in-package :c)  (in-package :c)
26    (intl:textdomain "cmucl")
27    
28    
29  ;;; Propagate-To-Args  --  Interface  ;;; Propagate-To-Args  --  Interface
# Line 341  Line 342 
342                   res)                   res)
343                  (t                  (t
344                   (let ((*compiler-error-context* call))                   (let ((*compiler-error-context* call))
345                     (compiler-note "Couldn't inline expand because expansion ~                     (compiler-note _"Couldn't inline expand because expansion ~
346                                     calls this let-converted local function:~                                     calls this let-converted local function:~
347                                     ~%  ~S"                                     ~%  ~S"
348                                    (leaf-name res)))                                    (leaf-name res)))
# Line 457  Line 458 
458             (convert-call ref call fun))             (convert-call ref call fun))
459            (t            (t
460             (compiler-warning             (compiler-warning
461              "Function called with ~R argument~:P, but wants exactly ~R."              _"Function called with ~R argument~:P, but wants exactly ~R."
462              call-args nargs)              call-args nargs)
463             (setf (basic-combination-kind call) :error)))))             (setf (basic-combination-kind call) :error)))))
464    
# Line 479  Line 480 
480          (max-args (optional-dispatch-max-args fun))          (max-args (optional-dispatch-max-args fun))
481          (call-args (length (combination-args call))))          (call-args (length (combination-args call))))
482      (cond ((< call-args min-args)      (cond ((< call-args min-args)
483             (compiler-warning "Function called with ~R argument~:P, but wants at least ~R."             (compiler-warning _"Function called with ~R argument~:P, but wants at least ~R."
484                               call-args min-args)                               call-args min-args)
485             (setf (basic-combination-kind call) :error))             (setf (basic-combination-kind call) :error))
486            ((<= call-args max-args)            ((<= call-args max-args)
# Line 489  Line 490 
490            ((optional-dispatch-more-entry fun)            ((optional-dispatch-more-entry fun)
491             (convert-more-call ref call fun))             (convert-more-call ref call fun))
492            (t            (t
493             (compiler-warning "Function called with ~R argument~:P, but wants at most ~R."             (compiler-warning _"Function called with ~R argument~:P, but wants at most ~R."
494                               call-args max-args)                               call-args max-args)
495             (setf (basic-combination-kind call) :error))))             (setf (basic-combination-kind call) :error))))
496    (undefined-value))    (undefined-value))
# Line 565  Line 566 
566                 (key-vars var))                 (key-vars var))
567                ((:rest :optional))                ((:rest :optional))
568                ((:more-context :more-count)                ((:more-context :more-count)
569                 (compiler-warning "Can't local-call functions with &MORE args.")                 (compiler-warning _"Can't local-call functions with &MORE args.")
570                 (setf (basic-combination-kind call) :error)                 (setf (basic-combination-kind call) :error)
571                 (return-from convert-more-call))))))                 (return-from convert-more-call))))))
572    
# Line 577  Line 578 
578    
579        (when (optional-dispatch-keyp fun)        (when (optional-dispatch-keyp fun)
580          (when (oddp (length more))          (when (oddp (length more))
581            (compiler-warning "Function called with odd number of ~            (compiler-warning _"Function called with odd number of ~
582                               arguments in keyword portion.")                               arguments in keyword portion.")
583    
584            (setf (basic-combination-kind call) :error)            (setf (basic-combination-kind call) :error)
# Line 589  Line 590 
590            (let ((cont (first key)))            (let ((cont (first key)))
591              (unless (constant-continuation-p cont)              (unless (constant-continuation-p cont)
592                (when flame                (when flame
593                  (compiler-note "Non-constant keyword in keyword call."))                  (compiler-note _"Non-constant keyword in keyword call."))
594                (setf (basic-combination-kind call) :error)                (setf (basic-combination-kind call) :error)
595                (return-from convert-more-call))                (return-from convert-more-call))
596    
# Line 604  Line 605 
605                                 allowp (continuation-value val)))                                 allowp (continuation-value val)))
606                          (t                          (t
607                           (when flame                           (when flame
608                             (compiler-note "non-constant :ALLOW-OTHER-KEYS value"))                             (compiler-note _"non-constant :ALLOW-OTHER-KEYS value"))
609                           (setf (basic-combination-kind call) :error)                           (setf (basic-combination-kind call) :error)
610                           (return-from convert-more-call)))))                           (return-from convert-more-call)))))
611                (dolist (var (key-vars)                (dolist (var (key-vars)
# Line 623  Line 624 
624                      (return)))))))                      (return)))))))
625    
626          (when (and loser (not (optional-dispatch-allowp fun)) (not allowp))          (when (and loser (not (optional-dispatch-allowp fun)) (not allowp))
627            (compiler-warning "Function called with unknown argument keyword ~S."            (compiler-warning _"Function called with unknown argument keyword ~S."
628                              (car loser))                              (car loser))
629            (setf (basic-combination-kind call) :error)            (setf (basic-combination-kind call) :error)
630            (return-from convert-more-call)))            (return-from convert-more-call)))

Legend:
Removed from v.1.60  
changed lines
  Added in v.1.60.24.2

  ViewVC Help
Powered by ViewVC 1.1.5