← Back to branch summary

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

« back to all changes in this revision

Viewing changes to src/cmp/cmpspecial.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/cmpspecial.lsp
135
135
(defun wt-make-closure (fun &aux (cfun (fun-cfun fun)))
136
136
  (declare (type fun fun))
137
137
  (let* ((closure (fun-closure fun))
138
 
         (minarg (fun-minarg fun))
139
 
         (maxarg (fun-maxarg fun))
140
 
         (narg (if (= minarg maxarg) maxarg nil)))
 
138
         narg)
141
139
    (cond ((eq closure 'CLOSURE)
142
140
           (wt "cl_make_cclosure_va((void*)" cfun ","
143
141
               (environment-accessor fun)
144
142
               ",Cblock)"))
145
143
          ((eq closure 'LEXICAL)
146
144
           (baboon))
147
 
          (narg ; empty environment fixed number of args
 
145
          ((setf narg (fun-fixed-narg fun)) ; empty environment fixed number of args
148
146
           (wt "cl_make_cfun((void*)" cfun ",Cnil,Cblock," narg ")"))
149
147
          (t ; empty environment variable number of args
150
148
           (wt "cl_make_cfun_va((void*)" cfun ",Cnil,Cblock)")))))