68 |
(wt-nl "object " loc "= " (car args) ";") |
(wt-nl "object " loc "= " (car args) ";") |
69 |
(pop args)) |
(pop args)) |
70 |
(cond (*safe-compile* |
(cond (*safe-compile* |
71 |
(wt-nl "if(endp_prop(" (car handies) ")") |
(wt-nl "if(endp(" (car handies) ")") |
72 |
(dolist** (loc (cdr handies)) (wt "||endp_prop(" loc ")")) |
(dolist** (loc (cdr handies)) (wt "||endp(" loc ")")) |
73 |
(wt "){")) |
(wt "){")) |
74 |
(t |
(t |
75 |
(wt-nl "if(" (car handies) "==Cnil") |
(wt-nl "if(" (car handies) "==Cnil") |
96 |
(wt-nl (car handies) "=MMcdr(" (car handies) ");") |
(wt-nl (car handies) "=MMcdr(" (car handies) ");") |
97 |
(dolist** (loc (cdr handies)) |
(dolist** (loc (cdr handies)) |
98 |
(wt-nl loc "=MMcdr(" loc ");")) |
(wt-nl loc "=MMcdr(" loc ");")) |
99 |
(wt-nl "if(endp_prop(" (car handies) ")") |
(wt-nl "if(endp(" (car handies) ")") |
100 |
(dolist** (loc (cdr handies)) |
(dolist** (loc (cdr handies)) |
101 |
(wt "||endp_prop(" loc ")")) |
(wt "||endp(" loc ")")) |
102 |
(wt "){")) |
(wt "){")) |
103 |
(t |
(t |
104 |
(wt-nl "if((" (car handies) "=MMcdr(" (car handies) "))==Cnil") |
(wt-nl "if((" (car handies) "=MMcdr(" (car handies) "))==Cnil") |
135 |
(wt-nl "object " loc "= " (car args) ";") |
(wt-nl "object " loc "= " (car args) ";") |
136 |
(pop args)) |
(pop args)) |
137 |
(cond (*safe-compile* |
(cond (*safe-compile* |
138 |
(wt-nl "if(endp_prop(" (car handies) ")") |
(wt-nl "if(endp(" (car handies) ")") |
139 |
(dolist** (loc (cdr handies)) (wt "||endp_prop(" loc ")")) |
(dolist** (loc (cdr handies)) (wt "||endp(" loc ")")) |
140 |
(wt "){")) |
(wt "){")) |
141 |
(t |
(t |
142 |
(wt-nl "if(" (car handies) "==Cnil") |
(wt-nl "if(" (car handies) "==Cnil") |