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 |
) |
) |
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 |
) |
) |
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 |
) |
) |