← Back to branch summary

~ubuntu-branches/ubuntu/intrepid/ecl/intrepid

« back to all changes in this revision

Viewing changes to src/cmp/cmpcall.lsp

  • Committer: Bazaar Package Importer
  • Author(s): Peter Van Eynde
  • Date: 2006-07-02 00:20:00 UTC
  • mfrom: (1.1.2 upstream)
  • Revision ID: james.westby@ubuntu.com-20060702002000-8bn170vd0qpx7to8
Tags: 0.9i-1
New upstream release.

Show diffs side-by-side

added added

removed removed

Lines of Context:
src/cmp/cmpcall.lsp
48
48
          ((not (and (consp fun)
49
49
                     (eq (first fun) 'FUNCTION)))
50
50
           (let ((l (length args)))
51
 
             (if (< (1- l) si::c-arguments-limit)
 
51
             (if (<= l si::c-arguments-limit)
52
52
                 (make-c1form* 'FUNCALL :args (c1expr fun) (c1args* arguments))
53
53
                 (c1expr `(with-stack
54
54
                           ,@(loop for i in (rest args) collect `(stack-push ,i))