← Back to branch summary

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

« back to all changes in this revision

Viewing changes to src/cmp/cmpeval.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/cmpeval.lsp
83
83
  (let ((fun (local-function-ref fname)))
84
84
    (when fun
85
85
      (let ((l (length args)))
86
 
        (when (>= l si::c-arguments-limit)
 
86
        (when (> l si::c-arguments-limit)
87
87
          (return-from c1call-local
88
88
            (c1expr `(with-stack
89
89
                      ,@(loop for i in args collect `(stack-push ,i))
108
108
 
109
109
(defun c1call-global (fname args)
110
110
  (let ((l (length args)))
111
 
    (if (>= l si::c-arguments-limit)
 
111
    (if (> l si::c-arguments-limit)
112
112
        (c1expr `(with-stack
113
113
                  ,@(loop for i in args collect `(stack-push ,i))
114
114
                  (apply-from-stack ,l #',fname)))