287 |
(defun c2rplaca (args &aux (*vs* *vs*) (*inline-blocks* 0)) |
(defun c2rplaca (args &aux (*vs* *vs*) (*inline-blocks* 0)) |
288 |
(setq args (inline-args args '(t t))) |
(setq args (inline-args args '(t t))) |
289 |
(safe-compile |
(safe-compile |
290 |
(wt-nl "if(type_of(" (car args) ")!=t_cons)" |
(wt-nl "if(!consp(" (car args) "))" |
291 |
"FEwrong_type_argument(Scons," (car args) ");")) |
"FEwrong_type_argument(Scons," (car args) ");")) |
292 |
(wt-nl "(" (car args) ")->c.c_car = " (cadr args) ";") |
(wt-nl "(" (car args) ")->c.c_car = " (cadr args) ";") |
293 |
(unwind-exit (car args)) |
(unwind-exit (car args)) |
305 |
(defun c2rplacd (args &aux (*vs* *vs*) (*inline-blocks* 0)) |
(defun c2rplacd (args &aux (*vs* *vs*) (*inline-blocks* 0)) |
306 |
(setq args (inline-args args '(t t))) |
(setq args (inline-args args '(t t))) |
307 |
(safe-compile |
(safe-compile |
308 |
(wt-nl "if(type_of(" (car args) ")!=t_cons)" |
(wt-nl "if(!consp(" (car args) "))" |
309 |
"FEwrong_type_argument(Scons," (car args) ");")) |
"FEwrong_type_argument(Scons," (car args) ");")) |
310 |
(wt-nl "(" (car args) ")->c.c_cdr = " (cadr args) ";") |
(wt-nl "(" (car args) ")->c.c_cdr = " (cadr args) ";") |
311 |
(unwind-exit (car args)) |
(unwind-exit (car args)) |
1113 |
(wt (car args)) |
(wt (car args)) |
1114 |
(dotimes** (i index) (wt ")")) |
(dotimes** (i index) (wt ")")) |
1115 |
(wt ";") |
(wt ";") |
1116 |
(wt-nl "if((type_of(V" l ")!=t_cons) && (" (car args) "!= Cnil))") |
(wt-nl "if((!consp(V" l ")) && (" (car args) "!= Cnil))") |
1117 |
(wt-nl " FEwrong_type_argument(Scons,V" l ");") |
(wt-nl " FEwrong_type_argument(Scons,V" l ");") |
1118 |
) |
) |
1119 |
(progn |
(progn |