/[gcl]/gcl/cmpnew/gcl_cmptop.lsp
ViewVC logotype

Diff of /gcl/cmpnew/gcl_cmptop.lsp

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

revision 1.18 by camm, Tue Dec 14 03:34:06 2004 UTC revision 1.19 by camm, Tue Dec 28 22:24:18 2004 UTC
# Line 800  Line 800 
800        (declare (object vl types))        (declare (object vl types))
801        (cond ((eq (var-kind (car vl)) 'special)        (cond ((eq (var-kind (car vl)) 'special)
802                (push (cons (car vl) (var-loc (car vl))) specials))                (push (cons (car vl) (var-loc (car vl))) specials))
803              (t              (t
804               (setf (var-kind (car vl))               (setf (var-kind (car vl))
805                     (case (promoted-c-type (car types))                     (case (promoted-c-type (car types))
806                           (fixnum 'FIXNUM)                           (fixnum 'FIXNUM)
# Line 1020  Line 1020 
1020            (wt-nl "V" rest-var " = ")            (wt-nl "V" rest-var " = ")
1021                        
1022            (let ((*rest-on-stack*            (let ((*rest-on-stack*
1023                   (or (eq (var-type (ll-rest ll)) :dynamic-extent)                   (or (/= (var-dynamic (ll-rest ll)) 0)
1024                       *rest-on-stack*)))                       *rest-on-stack*)))
1025              (if (ll-keywords-p ll)              (if (ll-keywords-p ll)
1026                  (cond (*rest-on-stack*                  (cond (*rest-on-stack*

Legend:
Removed from v.1.18  
changed lines
  Added in v.1.19

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26