gcl.git - GNU Common Lisp

diff --git a/gcl/o/cfun.c b/gcl/o/cfun.c
index d51b0cd52..4eda12a16 100755
--- a/gcl/o/cfun.c
+++ b/gcl/o/cfun.c

@@ -45,22 +45,6 @@ make_cfun(void (*self)(), object name, object data, char *start, int size) {

return fSinit_function(list(6,Cnil,Cnil,make_fixnum((fixnum)self),Cnil,Cnil,name),

(void *)fSeval_src,data,Cnil,-1,0,(((1<<6)-1)<<6)|(((1<<5)-1)<<12)|(1<<17));

- /* object cf; */

-

- /* printf("%-*.*s\n",name->s.s_fillp,name->s.s_fillp,name->s.s_self); */

-

-

- /* cf = alloc_object(t_cfun); */

- /* cf->cf.cf_self = self; */

- /* cf->cf.cf_name = name; */

- /* cf->cf.cf_call = Cnil; */

- /* cf->cf.cf_data = data; */

- /* if(data && type_of(data)==t_cfdata) */

- /* { data->cfd.cfd_start=start; */

- /* data->cfd.cfd_size=size;} */

- /* else if(size) FEerror("Bad call to make_cfun",0); */

- /* return(cf); */

-

}

DEFUN("CFDL",object,fScfdl,SI,0,0,NONE,OO,OO,OO,OO,(void),"") {

diff --git a/gcl/o/file.d b/gcl/o/file.d
index 53f9ee474..9562a7e99 100755
--- a/gcl/o/file.d
+++ b/gcl/o/file.d

@@ -2502,8 +2502,7 @@ DEFUN("OPEN-INT",object,fSopen_int,SI,8,8,NONE,OO,OO,OO,OO,

if (idnesp==Cnil)

if_does_not_exist = Cnil;

} else

- FEerror("~S is an illegal DIRECTION for OPEN.",

- 1, direction);

+ FEerror("~S is an illegal DIRECTION for OPEN.", 1, direction);

strm = open_stream(filename, smm, if_exists, if_does_not_exist);

if (type_of(strm) == t_stream) {

strm->sm.sm_object0 = element_type;