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

Diff of /gcl/cmpnew/gcl_cmpmap.lsp

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

revision 1.2 by camm, Sun Sep 14 02:43:01 2003 UTC revision 1.3 by camm, Wed Jun 29 04:29:32 2005 UTC
# Line 49  Line 49 
49  (defun c2mapcar (funob car-p args &aux (*vs* *vs*) (*inline-blocks* 0))  (defun c2mapcar (funob car-p args &aux (*vs* *vs*) (*inline-blocks* 0))
50    (let ((label (next-label*))    (let ((label (next-label*))
51          (value-loc (list 'VS (vs-push)))          (value-loc (list 'VS (vs-push)))
52          (handy (list 'CVAR (next-cvar)))          (handy (list 'CVAR (cs-push t t)))
53          (handies (mapcar #'(lambda (x) (declare (ignore x))          (handies (mapcar #'(lambda (x) (declare (ignore x))
54                                     (list 'CVAR (next-cvar)))                                     (list 'CVAR (cs-push t t)))
55                           args))                           args))
56          save          save
57          )          )
# Line 117  Line 117 
117    (let ((label (next-label*))    (let ((label (next-label*))
118          value-loc          value-loc
119          (handies (mapcar #'(lambda (x) (declare (ignore x))          (handies (mapcar #'(lambda (x) (declare (ignore x))
120                                     (list 'CVAR (next-cvar)))                                     (list 'CVAR (cs-push t t)))
121                           args))                           args))
122          save          save
123          )          )
# Line 181  Line 181 
181  (defun c2mapcan (funob car-p args &aux (*vs* *vs*) (*inline-blocks* 0))  (defun c2mapcan (funob car-p args &aux (*vs* *vs*) (*inline-blocks* 0))
182    (let ((label (next-label*))    (let ((label (next-label*))
183          (value-loc (list 'VS (vs-push)))          (value-loc (list 'VS (vs-push)))
184          (handy (list 'CVAR (next-cvar)))          (handy (list 'CVAR (cs-push t t)))
185          (handies (mapcar #'(lambda (x) (declare (ignore x))          (handies (mapcar #'(lambda (x) (declare (ignore x))
186                                     (list 'CVAR (next-cvar)))                                     (list 'CVAR (cs-push t t)))
187                           args))                           args))
188          save          save
189          )          )

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

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