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

Diff of /gcl/cmpnew/gcl_cmpfun.lsp

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

revision 1.18 by camm, Wed Oct 5 15:20:47 2005 UTC revision 1.19 by camm, Thu Oct 6 20:30:06 2005 UTC
# Line 287  Line 287 
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))
# Line 305  Line 305 
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))
# Line 1113  Line 1113 
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

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