add documentaiton string for defun()

lib/clib/bessel.c

@@ -17,4 +17,4 @@ bessel(ctx,n,argv,env)
 context *ctx;
 int n;
 pointer argv[], *env;
-{ defun(ctx, "BESSEL", argv[0], BESSEL);}
+{ defun(ctx, "BESSEL", argv[0], BESSEL,NULL);}

lib/clib/charconv.c

@@ -88,10 +88,10 @@ pointer ICONV(context *ctx, int n, pointer *argv)
 
 charconv(context *ctx, int n, pointer argv[])
 { pointer mod=argv[0];
-  defun(ctx,"CHARCONV",mod,cconv); 
-  defun(ctx,"ICONV-OPEN", mod, ICONVOPEN);
-  defun(ctx,"ICONV-CLOSE", mod, ICONVCLOSE);
-  defun(ctx, "ICONV", mod, ICONV);
+  defun(ctx,"CHARCONV",mod,cconv,NULL); 
+  defun(ctx,"ICONV-OPEN", mod, ICONVOPEN,NULL);
+  defun(ctx,"ICONV-CLOSE", mod, ICONVCLOSE,NULL);
+  defun(ctx, "ICONV", mod, ICONV,NULL);
   }
 
 

lib/clib/floatdouble.c

@@ -92,9 +92,9 @@ context *ctx;
 int n;
 pointer argv[];
 { pointer mod=argv[0];
-  defun(ctx,"FLOAT2DOUBLE",mod,F2D); 
-  defun(ctx,"DOUBLE2FLOAT",mod,D2F);
-  defun(ctx,"SHORT2FLOAT",mod,S2F);
+  defun(ctx,"FLOAT2DOUBLE",mod,F2D,NULL); 
+  defun(ctx,"DOUBLE2FLOAT",mod,D2F,NULL);
+  defun(ctx,"SHORT2FLOAT",mod,S2F,NULL);
   }
 
 

lib/clib/linux_lowio.c

@@ -42,9 +42,9 @@ pointer linux_lowio(context *ctx, int n, pointer argv[], pointer env)
 
   printf("ioperm, outb, inb\n");
 
-  defun(ctx,"IOPERM", mod, IOPERM);
-  defun(ctx,"OUTB", mod, OUTB);
-  defun(ctx,"INB", mod, INB);
+  defun(ctx,"IOPERM", mod, IOPERM,NULL);
+  defun(ctx,"OUTB", mod, OUTB,NULL);
+  defun(ctx,"INB", mod, INB,NULL);
 
   printf("linux low level IO functions defined.\n");
 

lib/clib/ndbm.c

@@ -108,14 +108,14 @@ register pointer argv[];
 
 ndbm(context *ctx, int n, pointer argv[])
 { pointer mod=argv[0];
-  defun(ctx,"DBM-OPEN",mod,DBM_OPEN);
-  defun(ctx,"DBM-CLOSE",mod,DBM_CLOSE);
-  defun(ctx,"DBM-FETCH",mod,DBM_FETCH);
-  defun(ctx,"DBM-STORE",mod,DBM_STORE);
-  defun(ctx,"DBM-DELETE",mod,DBM_DELETE);
-  defun(ctx,"DBM-FIRSTKEY",mod,DBM_FIRSTKEY);
-  defun(ctx,"DBM-NEXTKEY",mod,DBM_NEXTKEY);
-  defun(ctx,"DBM-ERROR",mod,DBM_ERROR);
-  defun(ctx,"DBM-CLEARERR",mod,DBM_CLEARERR);
+  defun(ctx,"DBM-OPEN",mod,DBM_OPEN,NULL);
+  defun(ctx,"DBM-CLOSE",mod,DBM_CLOSE,NULL);
+  defun(ctx,"DBM-FETCH",mod,DBM_FETCH,NULL);
+  defun(ctx,"DBM-STORE",mod,DBM_STORE,NULL);
+  defun(ctx,"DBM-DELETE",mod,DBM_DELETE,NULL);
+  defun(ctx,"DBM-FIRSTKEY",mod,DBM_FIRSTKEY,NULL);
+  defun(ctx,"DBM-NEXTKEY",mod,DBM_NEXTKEY,NULL);
+  defun(ctx,"DBM-ERROR",mod,DBM_ERROR,NULL);
+  defun(ctx,"DBM-CLEARERR",mod,DBM_CLEARERR,NULL);
   }
 

lib/clib/posix.c

@@ -35,7 +35,7 @@ posix(context *ctx, int n, pointer argv[])
     spevalof(PACKAGE)=unixpkg;
 
 #if Solaris2
-    defun(ctx,"NANOSLEEP",mod,NANOSLEEP);
+    defun(ctx,"NANOSLEEP",mod,NANOSLEEP,NULL);
 #endif
 
 /* restore package*/  spevalof(PACKAGE)=p;

lib/clib/rfft.c

@@ -37,6 +37,6 @@ pointer argv[];
 eusmain(mod)
 pointer mod;
 {
-  defun("FFT",mod,FFT);
-  defun("INVERSE-FFT",mod,INVFFT);
+  defun("FFT",mod,FFT,NULL);
+  defun("INVERSE-FFT",mod,INVFFT,NULL);
   }

lib/clib/sigmoid.c

@@ -47,7 +47,7 @@ context *ctx;
 int n;
 pointer argv[];
 { pointer mod=argv[0];
-  defun(ctx,"SIGMOID",mod,SIGMOID);
-  defun(ctx,"SIGMOIDX",mod,SIGMOIDX);
-  defun(ctx,"OFFSET-VECTOR",mod,OFFSET_VECTOR);}
+  defun(ctx,"SIGMOID",mod,SIGMOID,NULL);
+  defun(ctx,"SIGMOIDX",mod,SIGMOIDX,NULL);
+  defun(ctx,"OFFSET-VECTOR",mod,OFFSET_VECTOR,NULL);}
 

lib/clib/ssvdc.c

@@ -61,5 +61,5 @@ context *ctx;
 int n;
 pointer argv[];
 {
-  defun(ctx,"SSVDC",argv[0],SSVDC);}
+  defun(ctx,"SSVDC",argv[0],SSVDC,NULL);}
 

lib/clib/vxwcom.c

@@ -117,7 +117,7 @@ pointer CALL_VXW(context *ctx, int n, pointer argv[])
 
 pointer vxwcom(context *ctx, int n, pointer argv[], pointer env)
 { pointer mod = argv[0];
-  defun(ctx, "VXW",mod,CALL_VXW);
+  defun(ctx, "VXW",mod,CALL_VXW,NULL);
   return(T);
   }
 

lisp/c/arith.c

@@ -1417,52 +1417,52 @@ void arith(ctx,mod)
 register context *ctx;
 pointer mod;
 {
-  defun(ctx,"=",mod,NUMEQUAL);
-  defun(ctx,">",mod,GREATERP);
-  defun(ctx,"<",mod,LESSP);
-  defun(ctx,">=",mod,GREQP);
-  defun(ctx,"<=",mod,LSEQP);
-  defun(ctx,"MOD",mod,MOD);
-  defun(ctx,"1-",mod,SUB1);
-  defun(ctx,"1+",mod,ADD1);
-  defun(ctx,"+",mod,PLUS);
-  defun(ctx,"-",mod,MINUS);
-  defun(ctx,"*",mod,TIMES);
-  defun(ctx,"/",mod,QUOTIENT);
-  defun(ctx,"SIN",mod,SIN);
-  defun(ctx,"COS",mod,COS);
-  defun(ctx,"TAN",mod,TAN);
-  defun(ctx,"ATAN",mod,ATAN);
-  defun(ctx,"TANH",mod,TANH);
-  defun(ctx,"ATANH",mod,ATANH);
-  defun(ctx,"SINH",mod,SINH);
-  defun(ctx,"ASINH",mod,ASINH);
-  defun(ctx,"COSH",mod,COSH);
-  defun(ctx,"ACOSH",mod,ACOSH);
-  defun(ctx,"SQRT",mod,SQRT);
-  defun(ctx,"LOG",mod,LOG);
-  defun(ctx,"EXP",mod,EXP);
-  defun(ctx,"ABS",mod,ABS);
-  defun(ctx,"ROUND",mod,ROUND);
-  defun(ctx,"FLOOR",mod,FLOOR);
-  defun(ctx,"CEILING",mod,CEILING);
-  defun(ctx,"TRUNCATE",mod,TRUNCATE);
-  defun(ctx,"FLOAT",mod,EUSFLOAT);
-  defun(ctx,"DECODE-FLOAT",mod,DECFLOAT);
-  defun(ctx,"MAX",mod,MAX);
-  defun(ctx,"MIN",mod,MIN);
-  defun(ctx,"LOGAND",mod,LOGAND);
-  defun(ctx,"LOGIOR",mod,LOGIOR);
-  defun(ctx,"LOGXOR",mod,LOGXOR);
-  defun(ctx,"LOGEQV",mod,LOGEQV);
-  defun(ctx,"LOGNAND",mod,LOGNAND);
-  defun(ctx,"LOGNOR",mod,LOGNOR);
-  defun(ctx,"LOGNOT",mod,LOGNOT);
-  defun(ctx,"LOGTEST",mod,LOGTEST);
-  defun(ctx,"LOGBITP",mod,LOGBITP);
-  defun(ctx,"ASH",mod,ASH);
-  defun(ctx,"LDB",mod,LDB);
-  defun(ctx,"DPB",mod,DPB);
-  defun(ctx,"RANDOM",mod,RANDOM);
-  defun(ctx,"FREXP",mod,FREXP);
+  defun(ctx,"=",mod,NUMEQUAL,NULL);
+  defun(ctx,">",mod,GREATERP,NULL);
+  defun(ctx,"<",mod,LESSP,NULL);
+  defun(ctx,">=",mod,GREQP,NULL);
+  defun(ctx,"<=",mod,LSEQP,NULL);
+  defun(ctx,"MOD",mod,MOD,NULL);
+  defun(ctx,"1-",mod,SUB1,NULL);
+  defun(ctx,"1+",mod,ADD1,NULL);
+  defun(ctx,"+",mod,PLUS,NULL);
+  defun(ctx,"-",mod,MINUS,NULL);
+  defun(ctx,"*",mod,TIMES,NULL);
+  defun(ctx,"/",mod,QUOTIENT,NULL);
+  defun(ctx,"SIN",mod,SIN,NULL);
+  defun(ctx,"COS",mod,COS,NULL);
+  defun(ctx,"TAN",mod,TAN,NULL);
+  defun(ctx,"ATAN",mod,ATAN,NULL);
+  defun(ctx,"TANH",mod,TANH,NULL);
+  defun(ctx,"ATANH",mod,ATANH,NULL);
+  defun(ctx,"SINH",mod,SINH,NULL);
+  defun(ctx,"ASINH",mod,ASINH,NULL);
+  defun(ctx,"COSH",mod,COSH,NULL);
+  defun(ctx,"ACOSH",mod,ACOSH,NULL);
+  defun(ctx,"SQRT",mod,SQRT,NULL);
+  defun(ctx,"LOG",mod,LOG,NULL);
+  defun(ctx,"EXP",mod,EXP,NULL);
+  defun(ctx,"ABS",mod,ABS,NULL);
+  defun(ctx,"ROUND",mod,ROUND,NULL);
+  defun(ctx,"FLOOR",mod,FLOOR,NULL);
+  defun(ctx,"CEILING",mod,CEILING,NULL);
+  defun(ctx,"TRUNCATE",mod,TRUNCATE,NULL);
+  defun(ctx,"FLOAT",mod,EUSFLOAT,NULL);
+  defun(ctx,"DECODE-FLOAT",mod,DECFLOAT,NULL);
+  defun(ctx,"MAX",mod,MAX,NULL);
+  defun(ctx,"MIN",mod,MIN,NULL);
+  defun(ctx,"LOGAND",mod,LOGAND,NULL);
+  defun(ctx,"LOGIOR",mod,LOGIOR,NULL);
+  defun(ctx,"LOGXOR",mod,LOGXOR,NULL);
+  defun(ctx,"LOGEQV",mod,LOGEQV,NULL);
+  defun(ctx,"LOGNAND",mod,LOGNAND,NULL);
+  defun(ctx,"LOGNOR",mod,LOGNOR,NULL);
+  defun(ctx,"LOGNOT",mod,LOGNOT,NULL);
+  defun(ctx,"LOGTEST",mod,LOGTEST,NULL);
+  defun(ctx,"LOGBITP",mod,LOGBITP,NULL);
+  defun(ctx,"ASH",mod,ASH,NULL);
+  defun(ctx,"LDB",mod,LDB,NULL);
+  defun(ctx,"DPB",mod,DPB,NULL);
+  defun(ctx,"RANDOM",mod,RANDOM,NULL);
+  defun(ctx,"FREXP",mod,FREXP,NULL);
 }

lisp/c/arith.old.c

@@ -1395,52 +1395,52 @@ arith(ctx,mod)
 register context *ctx;
 pointer mod;
 {
-  defun(ctx,"=",mod,NUMEQUAL);
-  defun(ctx,">",mod,GREATERP);
-  defun(ctx,"<",mod,LESSP);
-  defun(ctx,">=",mod,GREQP);
-  defun(ctx,"<=",mod,LSEQP);
-  defun(ctx,"MOD",mod,MOD);
-  defun(ctx,"1-",mod,SUB1);
-  defun(ctx,"1+",mod,ADD1);
-  defun(ctx,"+",mod,PLUS);
-  defun(ctx,"-",mod,MINUS);
-  defun(ctx,"*",mod,TIMES);
-  defun(ctx,"/",mod,QUOTIENT);
-  defun(ctx,"SIN",mod,SIN);
-  defun(ctx,"COS",mod,COS);
-  defun(ctx,"TAN",mod,TAN);
-  defun(ctx,"ATAN",mod,ATAN);
-  defun(ctx,"TANH",mod,TANH);
-  defun(ctx,"ATANH",mod,ATANH);
-  defun(ctx,"SINH",mod,SINH);
-  defun(ctx,"ASINH",mod,ASINH);
-  defun(ctx,"COSH",mod,COSH);
-  defun(ctx,"ACOSH",mod,ACOSH);
-  defun(ctx,"SQRT",mod,SQRT);
-  defun(ctx,"LOG",mod,LOG);
-  defun(ctx,"EXP",mod,EXP);
-  defun(ctx,"ABS",mod,ABS);
-  defun(ctx,"ROUND",mod,ROUND);
-  defun(ctx,"FLOOR",mod,FLOOR);
-  defun(ctx,"CEILING",mod,CEILING);
-  defun(ctx,"TRUNCATE",mod,TRUNCATE);
-  defun(ctx,"FLOAT",mod,FLOAT);
-  defun(ctx,"DECODE-FLOAT",mod,DECFLOAT);
-  defun(ctx,"MAX",mod,MAX);
-  defun(ctx,"MIN",mod,MIN);
-  defun(ctx,"LOGAND",mod,LOGAND);
-  defun(ctx,"LOGIOR",mod,LOGIOR);
-  defun(ctx,"LOGXOR",mod,LOGXOR);
-  defun(ctx,"LOGEQV",mod,LOGEQV);
-  defun(ctx,"LOGNAND",mod,LOGNAND);
-  defun(ctx,"LOGNOR",mod,LOGNOR);
-  defun(ctx,"LOGNOT",mod,LOGNOT);
-  defun(ctx,"LOGTEST",mod,LOGTEST);
-  defun(ctx,"LOGBITP",mod,LOGBITP);
-  defun(ctx,"ASH",mod,ASH);
-  defun(ctx,"LDB",mod,LDB);
-  defun(ctx,"DPB",mod,DPB);
-  defun(ctx,"RANDOM",mod,RANDOM);
-  defun(ctx,"FREXP",mod,FREXP);
+  defun(ctx,"=",mod,NUMEQUAL,NULL);
+  defun(ctx,">",mod,GREATERP,NULL);
+  defun(ctx,"<",mod,LESSP,NULL);
+  defun(ctx,">=",mod,GREQP,NULL);
+  defun(ctx,"<=",mod,LSEQP,NULL);
+  defun(ctx,"MOD",mod,MOD,NULL);
+  defun(ctx,"1-",mod,SUB1,NULL);
+  defun(ctx,"1+",mod,ADD1,NULL);
+  defun(ctx,"+",mod,PLUS,NULL);
+  defun(ctx,"-",mod,MINUS,NULL);
+  defun(ctx,"*",mod,TIMES,NULL);
+  defun(ctx,"/",mod,QUOTIENT,NULL);
+  defun(ctx,"SIN",mod,SIN,NULL);
+  defun(ctx,"COS",mod,COS,NULL);
+  defun(ctx,"TAN",mod,TAN,NULL);
+  defun(ctx,"ATAN",mod,ATAN,NULL);
+  defun(ctx,"TANH",mod,TANH,NULL);
+  defun(ctx,"ATANH",mod,ATANH,NULL);
+  defun(ctx,"SINH",mod,SINH,NULL);
+  defun(ctx,"ASINH",mod,ASINH,NULL);
+  defun(ctx,"COSH",mod,COSH,NULL);
+  defun(ctx,"ACOSH",mod,ACOSH,NULL);
+  defun(ctx,"SQRT",mod,SQRT,NULL);
+  defun(ctx,"LOG",mod,LOG,NULL);
+  defun(ctx,"EXP",mod,EXP,NULL);
+  defun(ctx,"ABS",mod,ABS,NULL);
+  defun(ctx,"ROUND",mod,ROUND,NULL);
+  defun(ctx,"FLOOR",mod,FLOOR,NULL);
+  defun(ctx,"CEILING",mod,CEILING,NULL);
+  defun(ctx,"TRUNCATE",mod,TRUNCATE,NULL);
+  defun(ctx,"FLOAT",mod,FLOAT,NULL);
+  defun(ctx,"DECODE-FLOAT",mod,DECFLOAT,NULL);
+  defun(ctx,"MAX",mod,MAX,NULL);
+  defun(ctx,"MIN",mod,MIN,NULL);
+  defun(ctx,"LOGAND",mod,LOGAND,NULL);
+  defun(ctx,"LOGIOR",mod,LOGIOR,NULL);
+  defun(ctx,"LOGXOR",mod,LOGXOR,NULL);
+  defun(ctx,"LOGEQV",mod,LOGEQV,NULL);
+  defun(ctx,"LOGNAND",mod,LOGNAND,NULL);
+  defun(ctx,"LOGNOR",mod,LOGNOR,NULL);
+  defun(ctx,"LOGNOT",mod,LOGNOT,NULL);
+  defun(ctx,"LOGTEST",mod,LOGTEST,NULL);
+  defun(ctx,"LOGBITP",mod,LOGBITP,NULL);
+  defun(ctx,"ASH",mod,ASH,NULL);
+  defun(ctx,"LDB",mod,LDB,NULL);
+  defun(ctx,"DPB",mod,DPB,NULL);
+  defun(ctx,"RANDOM",mod,RANDOM,NULL);
+  defun(ctx,"FREXP",mod,FREXP,NULL);
 }

lisp/c/charstring.c

@@ -181,23 +181,23 @@ void charstring(ctx,mod)
 register context *ctx;
 register pointer mod;
 {
-  defun(ctx,"CHAR",mod,EUSCHAR);
-  defun(ctx,"SCHAR",mod,EUSCHAR);
-  defun(ctx,"SETCHAR",mod,SETCHAR);
-  defun(ctx,"ALPHA-CHAR-P",mod,ALPHAP);
-  defun(ctx,"UPPER-CASE-P",mod,UPCASEP);
-  defun(ctx,"LOWER-CASE-P",mod,LOWCASEP);
-  defun(ctx,"DIGIT-CHAR-P",mod,DIGITP);
-  defun(ctx,"ALPHANUMERICP",mod,ALNUMP);
-  defun(ctx,"CHAR-UPCASE",mod,CHUPCASE);
-  defun(ctx,"CHAR-DOWNCASE",mod,CHDOWNCASE);
-  defun(ctx,"STRINGEQ",mod,STRINGEQ);
-  defun(ctx,"STRINGEQUAL",mod,STRINGEQUAL);
-  defun(ctx,"STRING<",mod,STR_LT);
-  defun(ctx,"STRING<=",mod,STR_LE);
-  defun(ctx,"STRING=",mod,STR_EQ);
-  defun(ctx,"STRING>",mod,STR_GT);
-  defun(ctx,"STRING>=",mod,STR_GE);
+  defun(ctx,"CHAR",mod,EUSCHAR,NULL);
+  defun(ctx,"SCHAR",mod,EUSCHAR,NULL);
+  defun(ctx,"SETCHAR",mod,SETCHAR,NULL);
+  defun(ctx,"ALPHA-CHAR-P",mod,ALPHAP,NULL);
+  defun(ctx,"UPPER-CASE-P",mod,UPCASEP,NULL);
+  defun(ctx,"LOWER-CASE-P",mod,LOWCASEP,NULL);
+  defun(ctx,"DIGIT-CHAR-P",mod,DIGITP,NULL);
+  defun(ctx,"ALPHANUMERICP",mod,ALNUMP,NULL);
+  defun(ctx,"CHAR-UPCASE",mod,CHUPCASE,NULL);
+  defun(ctx,"CHAR-DOWNCASE",mod,CHDOWNCASE,NULL);
+  defun(ctx,"STRINGEQ",mod,STRINGEQ,NULL);
+  defun(ctx,"STRINGEQUAL",mod,STRINGEQUAL,NULL);
+  defun(ctx,"STRING<",mod,STR_LT,NULL);
+  defun(ctx,"STRING<=",mod,STR_LE,NULL);
+  defun(ctx,"STRING=",mod,STR_EQ,NULL);
+  defun(ctx,"STRING>",mod,STR_GT,NULL);
+  defun(ctx,"STRING>=",mod,STR_GE,NULL);
 
   }
 

lisp/c/charstring.old.c

@@ -180,23 +180,23 @@ charstring(ctx,mod)
 register context *ctx;
 register pointer mod;
 {
-  defun(ctx,"CHAR",mod,CHAR);
-  defun(ctx,"SCHAR",mod,CHAR);
-  defun(ctx,"SETCHAR",mod,SETCHAR);
-  defun(ctx,"ALPHA-CHAR-P",mod,ALPHAP);
-  defun(ctx,"UPPER-CASE-P",mod,UPCASEP);
-  defun(ctx,"LOWER-CASE-P",mod,LOWCASEP);
-  defun(ctx,"DIGIT-CHAR-P",mod,DIGITP);
-  defun(ctx,"ALPHANUMERICP",mod,ALNUMP);
-  defun(ctx,"CHAR-UPCASE",mod,CHUPCASE);
-  defun(ctx,"CHAR-DOWNCASE",mod,CHDOWNCASE);
-  defun(ctx,"STRINGEQ",mod,STRINGEQ);
-  defun(ctx,"STRINGEQUAL",mod,STRINGEQUAL);
-  defun(ctx,"STRING<",mod,STR_LT);
-  defun(ctx,"STRING<=",mod,STR_LE);
-  defun(ctx,"STRING=",mod,STR_EQ);
-  defun(ctx,"STRING>",mod,STR_GT);
-  defun(ctx,"STRING>=",mod,STR_GE);
+  defun(ctx,"CHAR",mod,CHAR,NULL);
+  defun(ctx,"SCHAR",mod,CHAR,NULL);
+  defun(ctx,"SETCHAR",mod,SETCHAR,NULL);
+  defun(ctx,"ALPHA-CHAR-P",mod,ALPHAP,NULL);
+  defun(ctx,"UPPER-CASE-P",mod,UPCASEP,NULL);
+  defun(ctx,"LOWER-CASE-P",mod,LOWCASEP,NULL);
+  defun(ctx,"DIGIT-CHAR-P",mod,DIGITP,NULL);
+  defun(ctx,"ALPHANUMERICP",mod,ALNUMP,NULL);
+  defun(ctx,"CHAR-UPCASE",mod,CHUPCASE,NULL);
+  defun(ctx,"CHAR-DOWNCASE",mod,CHDOWNCASE,NULL);
+  defun(ctx,"STRINGEQ",mod,STRINGEQ,NULL);
+  defun(ctx,"STRINGEQUAL",mod,STRINGEQUAL,NULL);
+  defun(ctx,"STRING<",mod,STR_LT,NULL);
+  defun(ctx,"STRING<=",mod,STR_LE,NULL);
+  defun(ctx,"STRING=",mod,STR_EQ,NULL);
+  defun(ctx,"STRING>",mod,STR_GT,NULL);
+  defun(ctx,"STRING>=",mod,STR_GE,NULL);
 
   }