diff --git a/src/frontend/numparam/Makefile.am b/src/frontend/numparam/Makefile.am
index 9ca6fdef5..645fe7bab 100644
--- a/src/frontend/numparam/Makefile.am
+++ b/src/frontend/numparam/Makefile.am
@@ -1,6 +1,6 @@
 ## Process this file with automake to produce Makefile.in
 
-EXTRA_DIST = ngconfig.sh readme.txt nupatest.c
+EXTRA_DIST = ngconfig.sh readme.txt
 
 noinst_LTLIBRARIES = libnumparam.la
 
diff --git a/src/frontend/numparam/general.h b/src/frontend/numparam/general.h
index f8683fb75..f96fbca1c 100644
--- a/src/frontend/numparam/general.h
+++ b/src/frontend/numparam/general.h
@@ -9,9 +9,6 @@
 #include "ngspice/bool.h"
 
 
-typedef char string[258];
-
-
 char *pscopy(SPICE_DSTRINGPTR s, const char *a, int i, int j);
 char *pscopy_up(SPICE_DSTRINGPTR s, const char *a, int i, int j);
 bool scopyd(SPICE_DSTRINGPTR a, SPICE_DSTRINGPTR b);
@@ -21,25 +18,13 @@ void scopy_lower(SPICE_DSTRINGPTR a, const char *str);
 void sadd(SPICE_DSTRINGPTR s, const char *t);
 void nadd(SPICE_DSTRINGPTR s, long n);
 void cadd(SPICE_DSTRINGPTR s, char c);
-void naddll(SPICE_DSTRINGPTR s, long long n);
 void cins(SPICE_DSTRINGPTR s, char c);
 void sins(SPICE_DSTRINGPTR s, const char *t);
 int spos_(char *sub, const char *s);
 bool ci_prefix(const char *p, const char *s);
-bool steq(const char *s, const char *t);
-bool stne(const char *s, const char *t);
-void stri(long n, SPICE_DSTRINGPTR s);
 
 bool alfa(char c);
-bool num(char c);
 bool alfanum(char c);
 char *stupcase(char *s);
 
-/***** primitive input-output ***/
 int yes_or_no(void);
-
-int freadstr(FILE *f, SPICE_DSTRINGPTR dstr_p);
-
-double np_round(double d);        // sjb to avoid clash with round() in math.h
-double absf(double x); /* abs */
-long absi(long i);
diff --git a/src/frontend/numparam/mystring.c b/src/frontend/numparam/mystring.c
index c773d6893..753c19b9c 100644
--- a/src/frontend/numparam/mystring.c
+++ b/src/frontend/numparam/mystring.c
@@ -318,68 +318,6 @@ nadd(SPICE_DSTRINGPTR dstr_p, long n)
 }
 
 
-void
-naddll(SPICE_DSTRINGPTR dstr_p, long long n)
-/* append a decimal integer (but a long long) to a string */
-{
-    int d[25];
-    int j, k;
-    char sg;                    /* the sign */
-    char load_str[2];           /* used to load dstring */
-    k = 0;
-
-    if (n < 0) {
-        n = -n;
-        sg = '-';
-    } else {
-        sg = '+';
-    }
-
-    while (n > 0) {
-        d[k] = (int) (n % 10);
-        k++;
-        n = n / 10;
-    }
-
-    if (k == 0) {
-        cadd(dstr_p, '0');
-    } else {
-        load_str[1] = '\0';
-        if (sg == '-') {
-            load_str[0] = sg;
-            spice_dstring_append(dstr_p, load_str, 1);
-        }
-        for (j = k - 1; j >= 0; j--) {
-            load_str[0] = (char) ('0' + d[j]);
-            spice_dstring_append(dstr_p, load_str, 1);
-        }
-    }
-}
-
-
-void
-stri(long n, SPICE_DSTRINGPTR dstr_p)
-/* convert integer to string */
-{
-    spice_dstring_reinit(dstr_p);
-    nadd(dstr_p, n);
-}
-
-
-bool
-steq(const char *a, const char *b)  /* string a==b test */
-{
-    return strcmp(a, b) == 0;
-}
-
-
-bool
-stne(const char *s, const char *t)
-{
-    return strcmp(s, t) != 0;
-}
-
-
 bool
 alfa(char c)
 {
@@ -397,35 +335,6 @@ alfanum(char c)
 }
 
 
-int
-freadstr(FILE * f, SPICE_DSTRINGPTR dstr_p)
-/* read a line from a file.
-   was BUG: long lines truncated without warning, ctrl chars are dumped.
-   Bug no more as we can only run out of memory.  Removed max argument.
-*/
-{
-    char c;
-    char str_load[2];
-    int len = 0;
-
-    str_load[0] = '\0';
-    str_load[1] = '\0';
-    spice_dstring_reinit(dstr_p);
-
-    do
-    {
-        c = (char) fgetc(f);    /*  tab is the only control char accepted */
-        if (((c >= ' ') || (c < 0) || (c == '\t'))) {
-            str_load[0] = c;
-            spice_dstring_append(dstr_p, str_load, 1);
-        }
-    }
-    while (!feof(f) && (c != '\n'));
-
-    return len;
-}
-
-
 char *
 stupcase(char *s)
 {
@@ -442,26 +351,6 @@ stupcase(char *s)
 
 /***** elementary math *******/
 
-double
-absf(double x)
-{
-    if (x < 0.0)
-        return -x;
-    else
-        return x;
-}
-
-
-long
-absi(long i)
-{
-    if (i >= 0)
-        return (i);
-    else
-        return (-i);
-}
-
-
 int
 spos_(char *sub, const char *s)
 {
@@ -472,10 +361,3 @@ spos_(char *sub, const char *s)
     else
         return -1;
 }
-
-
-double
-np_round(double r)
-{
-    return floor(r + 0.5);
-}
diff --git a/src/frontend/numparam/ngconfig.sh b/src/frontend/numparam/ngconfig.sh
deleted file mode 100644
index c51b18d0b..000000000
--- a/src/frontend/numparam/ngconfig.sh
+++ /dev/null
@@ -1,20 +0,0 @@
-#!/bin/sh
-
-#  ngconfig.sh
-#     configure options for ngspice with numparam add-on
-#     run this in  ngspice's top-level directory 
-
-# specify your Numparam directory
-HACK=/home/post/spice3f5/hack
-
-# over-write the original subckt.c
-cp -biv $HACK/ngsubckt.c  src/frontend/subckt.c  
-
-# my box needs CFLAGS on 1st run, else 'terminal.c' wont find 'termcap.h' ?
-
-CFLAGS=-I/usr/include/ncurses \
-LIBS=$HACK/libnupa.a \
-./configure --without-x --prefix=/usr/local/ngsp
-
-####  end of sample script  ####
-
diff --git a/src/frontend/numparam/numparam.h b/src/frontend/numparam/numparam.h
index 2610007b2..41223f844 100644
--- a/src/frontend/numparam/numparam.h
+++ b/src/frontend/numparam/numparam.h
@@ -73,7 +73,6 @@ bool nupa_substitute(dico_t *, char *s, char *r, bool err);
 bool nupa_assignment(dico_t *, char *s, char mode);
 bool nupa_subcktcall(dico_t *, char *s, char *x, char *inst_name);
 void nupa_subcktexit(dico_t *);
-dico_t *nupa_fetchinstance(void);
 entry_t *entrynb(dico_t *dico, char *s);
 entry_t *attrib(dico_t *, NGHASHPTR htable, char *t, char op);
 void del_attrib(void *);
diff --git a/src/frontend/numparam/nupatest.c b/src/frontend/numparam/nupatest.c
deleted file mode 100644
index 343ac2aba..000000000
--- a/src/frontend/numparam/nupatest.c
+++ /dev/null
@@ -1,434 +0,0 @@
-/*       nupatest.c                Copyright (C)  2002    Georg Post
- *
- *  This file is part of Numparam, see:  readme.txt  
- *  Free software under the terms of the GNU Lesser General Public License 
- */
-
-/****   test executable for the numparam library  ****/
-/****   usage:  nupatest <filename.cir>           ****/
-
-#include <stdio.h>
-
-#include "general.h"
-#include "numparam.h"
-
-Cconst(pfxsep,'_')  /* official prefix separator is ':' not '_'  ! */
-
-Darray(buff, char *, Maxline) /* input lines */
-Darray(buf2, char *, Maxline) /* stripped lines */
-Darray(pxbuf, char *, Maxline) /* prefix for subnodes */
-Darray(runbuf, int, Maxckt) /* index list of expanded circuit */
-Darray(pindex, int, Maxckt) /* prefix index list  */
-int irunbuf= 0; /* count lines of runbuf */
-int ipx=0;      /* count prefixes in pxbuf */  
-
-/*  
-   this toy imitates the Spice subcircuit expansion.
- To ckeck against Genuine Spice, use the 'listing expand' JDML command
- Bug1: model or device call with parameters: incorrectly parsed
-    needs a database about _optional_ model/device pars...
-    better: Enter all .model identifiers in the symbol table !
- Bug2: nested subckt declarations, local .models: might be dangerous.
-   expanded circuit lines, device/node names: 
- any line that starts with a letter (device): splice the prefix in
- any node that isnt a formal param: add the prefix
- any formal param node: substitute actual params and their prefixes
-
-Node and subdevice references for prefixing:
-
-deviceletter[n] is a device type prefix
-nbofnodes   [n] is the number of "node-type" arguments that follow.
-nbsubdevice [n] is the number of "subdevices" for splice-in prefix.
-
-To solve the Q ambiguity, forbid any model identifiers as node names.
-
-Bug3:
-In arbitrary dependent sources, we must parse v(,) and i(,) expressions
-and substitute node/device name arguments.
-
-*/
-
- int runscript( dico_t *dico, char * prefix,
-   int istart, int istop, int maxnest)
-/* recursive top-down expansion: circuit --> list of line numbers */
-/* keep it simple,stupid  compared to Spice's code */
-/* prefix: inherited string for node & device prefixing */
-/* istart, istop: allowed interval in table buf[], buf2[]. */
-/* return value: number of lines included */
-{
-  int i,j, idef, nnest, nline, dn, myipx;
-  Strbig(Llen, subpfx); /* subckt prefix */ 
-  Str(80, subname);
-  char c;
-  unsigned char done= 0;
-  i=istart; 
-  nline=0;
-  Inc(ipx); myipx= ipx; /* local copy */
-  pxbuf[ipx]= newstring( length(prefix));
-  scopy( pxbuf[ipx], prefix);
-  while ( (maxnest>0) && (i<istop) && (! done) ) {
-    c= dico->category[i];
-    if ( c=='U' ) { 
-      done=1; /* subcircuit end. Keep as a comment? */
-      buf2[i][0]='#';
-    }
-    if ( c=='S' ) {        /* skip nested subcircuits */
-      nnest=1;
-      do { 
-        Inc(i); c= dico->category[i];
-        if ( c=='S' ) { 
-          Inc(nnest); 
-        } else if ( c=='U' ) { 
-          Dec(nnest); 
-        }
-      } while ( !( (nnest<=0) || (i>=istop) ));
-    } else if ( c=='X' ) {                   /* recursion here ! */
-      runbuf[irunbuf]= i;
-      pindex[irunbuf]= myipx;
-      Inc(irunbuf); Inc(nline);
-      /* keep out-commented X line for parameter passing */
-      idef = findsubckt( dico, buf2[i], subname); 
-      buf2[i][0]= '*'; 
-      if ( idef>0 ) {
-        scopy(subpfx, prefix); 
-        cadd(subpfx, pfxsep);
-        j=1; /* add the instance name from buf2[i] */
-        while ( buf2[i][j] > ' ' ) {
-          cadd( subpfx, buf2[i][j]); Inc(j);
-        } 
-        dn= runscript(dico, subpfx, idef+1, istop, maxnest-1);
-        nline= nline+dn; 
-      } else { /* FIXME: error message here! */
-        printf("cannot find subckt %s\n", buf2[i]);
-      }
-    } else if ( (c != '?') && NotZ(buf2[i][0]) ) {         
-      /*  keep any other valid non-empty line, and its prefix pointer */
-      runbuf[irunbuf]= i;
-      pindex[irunbuf]= myipx;
-      Inc(irunbuf); Inc(nline);
-    } 
-    Inc(i);
-  }  
-  return nline;
-}
-
-void gluepluslines( int imax)
-/* general sweep to eliminate continuation lines */
-{
-  int i,j,k, ls, p;
-  Strbig(Llen,s);
-  i=1;
-  while ( i<= imax ) {
-    if ( (buff[i][0]=='+') && (i>1) ) { 
-      j= i-1; 
-      while ( (i < imax) && (buff[i+1][0]=='+') ) { Inc(i) ;}
-      /* the lines j+1 ... i are continuation lines to j */
-      for ( k=j; k<=i; Inc(k) ) { 
-        ls=length(s);
-        sadd(s, buff[k]);
-        p= spos("//",s);
-        if ( p>0 ) { pscopy(s,s, 1,p-1) ;}
-        if ( ls>0 ) { s[ls]=' ' ;} /* erase the + */;
-      }
-      ls= length(s);
-      if ( ls> 80 ) {
-        Dispose(buff[j]);
-        buff[j]=newstring(ls);
-      }
-      scopy(buff[j], s);
-    }  
-    Inc(i);
-  }
-}
-
-void fwrites(FILE * f, char * s)
-{ 
-  fputs(s,f); 
-}
-
-void fwriteln(FILE * f)
-{ 
-  fputc('\n',f); 
-}
-
-static
-void freadln(FILE * f, char * s, int max)
-{ 
-  int ls;
-  freadstr(f,s,max); 
-  ls=length(s);
-  if ( feof(f) && (ls>0) ) { 
-    pscopy(s,s,1,ls-1); 
-  } /* kill EOF character */;
-}
-
-void wordinsert(char * s, char * w, int i)
-/* insert w before s[i] */
-{
-  Strbig(Llen,t);
-  int ls=length(s);
-  pscopy(t,s,i+1,ls); pscopy(s,s,1,i);
-  sadd(s,w); sadd(s,t);
-}
-
- int worddelete(char * s, int i)
-/* delete word starting at s[i] */
-{
-  Strbig(Llen,t);
-  int ls= length(s);
-  int j=i;
-  while ( (j<ls) && (s[j]>' ') ) { Inc(j) ;}
-  pscopy(t,s,j+1,ls);
-  pscopy(s,s,1,i); 
-  sadd(s,t);
-  return j-i /* nb of chars deleted */;
-}
-
- int getnextword(char * s, char * u, int j)
-{
-  int ls,k;
-  ls= length(s);
-  k=j;
-  while ( (j<ls) && (s[j] >  ' ') ) { Inc(j) ;} /* skip current word */ 
-  pscopy(u, s,  k+1, j-k);
-  while ( (j<ls) && (s[j] <= ' ') ) { Inc(j) ;}
-  return j;
-}
-
- int inwordlist(char * u, char * wl)
-/* suppose wl is single-space separated, plus 1 space at start and end. */ 
-{
-  int n,p,k;
-  Str(80,t);
-  n=0;
-  ccopy(t,' '); sadd(t,u); cadd(t,' ');
-  p= spos(t,wl);
-  if ( p>0 ) {
-    for ( k=0; k<p; Inc(k) ) {
-      if ( wl[k] <= ' ' ) { Inc(n) ;}
-    }
-  }
-  return n;
-}
-
-void takewordlist(char * u, int k, char * wl)
-{
-  int i,j,lwl;
-  lwl= length(wl);
-  i=0; j=0;
-  scopy(u,"");
-  while ( (i<lwl) && (j<k ) ) {
-    if ( wl[i] <= ' ' ) { Inc(j) ;}
-    Inc(i);
-  }
-  if ( j==k ) { /* word has been found and starts at i */
-    while ( wl[i]>' ' ) {
-      cadd(u,wl[i]); Inc(i);
-    }
-  }
-}
-
-char * deviceletter= "RLCVIBSGETOUWFHDQKJZM";
-char * nbofnodes   = "222222444443222240334";
-char * nbsubdevice = "000000000000111002000";
-
-void prefixing(char * s, char * p, char * formals, char * actuals,
-   char categ, dico_t *dico)
-/* s is a line in expanded subcircuit. 
-   p is the prefix to be glued anywhere .
-   assume that everything except first and last word in s may be a node. 
-   formals: node parameter list of a subckt definition line 
-   actuals: substitutes from the last X... call line (commented-out) 
-   subdevices (L belonging to a K line, for example) must be within the
-   same subckt, they get the same prefix splice-in.
-   There is a kludge for Q lines (may have 3 or 4 nodes, you never know).
-Reminder on Numparam symbols:
-     naming convention: subckt,model,numparam and node names must be unique.
-     cannot re-use a model name as a param name elsewhere, for example.
-*/
-{
-  int i,j,k,ls, jnext, dsize;
-  int dtype, nodes, subdv;
-  unsigned char done;
-  char leadchar;
-  Str(80,u); Str(80,v); Str(80,pfx);
-  i=0; ls=length(s);
-  while ( (i<ls) && (s[i]<=' ') ) { Inc(i) ;}
-  if ( alfa(s[i]) || (categ=='X') ) { /* splice in the prefix and nodelist */
-    wordinsert(s,p, i+1);
-    j= getnextword(s,u,i); 
-    done=0;
-    if ( p[0]== pfxsep ) {
-      pscopy(pfx,p, 2, length(p)); 
-    } else { 
-      scopy(pfx,p);
-    }
-    leadchar=upcase(s[i]); 
-    dtype= cpos( leadchar, deviceletter) -1 ;
-    if ( dtype >= 0 ) { 
-      nodes= nbofnodes[dtype] - '0';
-      subdv= nbsubdevice[dtype] - '0';
-    } else {
-      nodes=999; subdv=0;
-    }
-    while ( ! done ) {
-      jnext= getnextword(s,u,j);
-      done=(jnext >= length(s)); /* was the last one, do not transform */
-       /* bug: are there semilocal nodes ? in nested subckt declarations ? */
-      if ( (leadchar=='Q') && (! done) ) { /* BJT: watch non-node name */
-        scopy(v,u); stupcase(v);
-        done=  getidtype(dico, v) == 'O'; /* a model name stops the node list */;
-      } 
-      if ( (! done) && (nodes>0) ) { /* transform a node name */
-        k= inwordlist(u, formals);
-        if ( (k>0) ) {   /* parameter node */
-          dsize= - worddelete(s,j);
-          takewordlist(u,k, actuals);
-          wordinsert(s,u,j); 
-          dsize= dsize + length(u);
-        } else if ( stne(u,"0") ) {  /* local node */
-          wordinsert(s,pfx,j);
-          dsize= length(pfx);
-        } else { dsize=0 ;}
-      } else if ( (! done) && (subdv >0) ) { /* splice a subdevice name */
-        wordinsert(s,p,j+1);
-        dsize= length(p);
-      }
-      j= jnext + dsize; /*  jnext did shift ...*/
-      if ( nodes >0 ) { Dec(nodes);
-      } else if ( subdv >0 ) { Dec(subdv);
-      }
-      done= done || (Zero(nodes) && Zero(subdv));
-    }
-  }
-}
-
-void getnodelist(char * form, char * act, char * s, dico_t *dico, int k)
-/* the line s contains the actual node parameters, between 1st & last word */
-{
-  int j,ls, idef;
-  Str(80,u); Strbig(Llen,t);
-  ccopy(act,' '); ccopy(form,' ');
-  j=0; ls= length(s);
-  j= getnextword(s,u,j);
-  while ( j<ls ) {
-    j= getnextword(s,u,j); 
-    if ( j<ls ) { sadd(act,u); cadd(act,' ') ;}
-  }
-  /* now u already holds the subckt name if all is ok ? */
-  idef = findsubckt( dico, buf2[k], u);
-  /* line buf2[idef] contains: .subckt name < formal list > */ 
-  if ( idef>0 ) { 
-    scopy(t, buf2[idef]); 
-  } else {
-    printf("Subckt call error: %s\n", s);
-  }
-  j=0; ls= length(t);
-  j= getnextword(t,u,j); 
-  j= getnextword(t,u,j); 
-  while ( j<ls ) {
-    j= getnextword(t,u,j); 
-    sadd(form,u); cadd(form,' ');
-  }
-}
-
-void nupa_test(char * fname, char mode)
-/* debugging circuit expansion run. mode='w': write ouput file */
-/* bugs in nupa_eval(), and for nested subckt definitions !?! */
-{
-  FILE * tf, fout;
-  dico_t * dico; /* dictionary data pointer */
-  Strbig(Llen,s);
-  Str(80, prefix);
-  /* Strbig(Llen, formals); Strbig(Llen,actuals); */
-  Darray(formals, char *, 10)
-  Darray(actuals, char *, 10)
-  int i, j, k, nline, parstack;
-  for ( i=0; i<Maxline; Inc(i) ) { /* allocate string storage */
-    buff[i]= newstring(80);
-    buf2[i]= NULL;
-    pxbuf[i]= NULL; 
-  }
-  for ( i=0; i<10; Inc(i) ) {
-    formals[i]= newstring(250);
-    actuals[i]= newstring(250);
-  }
-  i=0; parstack=0;
-  tf=fopen( fname, "r");
-  if ( tf != NULL ) {
-    while ( (! feof(tf)) && ((i+1) < Maxline) ) {
-      Inc(i);
-      freadln(tf, buff[i], 80); /* original data */;
-    }
-    fclose(tf);
-  } else {
-    printf("Cannot find %s\n", fname);
-  }
-  /* continuation lines are glued at this stage, so they can be ignored
-     in all the subsequent manipulations.
-  */
-  gluepluslines(i); /* must re-allocate certain buff[i]  */ 
-  nupa_signal(NUPADECKCOPY, fname);
-  dico= nupa_fetchinstance(); /* bug: should have a task handle as arg */
-  for ( j=1; j<=i; Inc(j) ) {
-    buf2[j]= nupa_copy(buff[j], j); /* transformed data */;
-  }
-  nupa_signal(NUPASUBDONE, NULL);
-  nline= runscript(dico, "", 1,i, 20); /* our own subckt expansion */
-  /* putlogfile(' ',nline," expanded lines"); */
-  if ( mode=='w' ) {
-    i= cpos('.', fname); 
-    pscopy(s, fname, 1, i);
-    sadd(s,"out");
-    fout= fopen(s, "w");
-  } else {
-    fout= NULL;
-  }
-  for ( j=0; j<irunbuf; Inc(j) ) {
-    k= runbuf[j]; 
-    if ( buf2[k] != NULL ) { 
-      scopy(s, buf2[k]);
-      nupa_eval(s, k);
-      scopy(prefix,pxbuf[pindex[j]]); 
-      if ( NotZ(prefix[0]) ) { cadd(prefix, pfxsep) ;} 
-      prefixing(s, prefix, formals[parstack], actuals[parstack],
-           dico->category[k], dico);
-      if ( dico->category[k] == 'X' ) {
-        if ( parstack< (10-1) ) { Inc(parstack) ;}
-        getnodelist(formals[parstack], actuals[parstack], s, dico,k);
-        /*dbg: printf("Form: %s\n", formals[parstack]); */
-        /*dbg: printf("Actu: %s\n", actuals[parstack]); */;
-      } else if ( dico->category[k]=='U' ) { /* return from subckt */
-        if ( parstack>0 ) { Dec(parstack) ;}
-      }
-      if ( fout != NULL ) {
-        fwrites(fout, s); fwriteln(fout);
-      }
-    }
-  } 
-  if ( fout != NULL ) { fclose(fout) ;}
-  nupa_signal(NUPAEVALDONE, NULL); /* frees the buff[i] */
-  for ( i= 10-1; i>=0; Dec(i) ) {
-    Dispose(actuals[i]);
-    Dispose(formals[i]);
-  }
-  for ( i= Maxline -1; i>=0; Dec(i) ) {
-    Dispose(pxbuf[i]);  
-    Dispose(buf2[i]); 
-    /* Dispose(buff[i]) done elsewhere */;
-  }
-}
-
- int main(int argc, char * argv[])
-{
-  Str(80,fname);
-  if ( argc>1 ) { 
-    scopy(fname, argv[1]);
-  } else { 
-    scopy(fname,"testfile.nup"); 
-  }
-  nupa_test(fname, 'w');
-  return 0;
-}
-
- 
diff --git a/src/frontend/numparam/spicenum.c b/src/frontend/numparam/spicenum.c
index ab6af5835..1848b1716 100644
--- a/src/frontend/numparam/spicenum.c
+++ b/src/frontend/numparam/spicenum.c
@@ -35,8 +35,6 @@ extern ATTRIBUTE_NORETURN void shared_exit(int status);
 
 extern bool ft_batchmode;
 
-void dump_symbols(dico_t *);
-
 /* number of parameter substitutions, available only after the substitution */
 extern long dynsubst; /* spicenum.c:144 */
 
@@ -883,23 +881,3 @@ nupa_signal(int sig, char *info)
 
     return 1;
 }
-
-
-#ifdef USING_NUPATEST
-/* This is use only by the nupatest program */
-dico_t *
-nupa_fetchinstance(void)
-{
-    return dico;
-}
-#endif
-
-
-void
-dump_symbols(dico_t *dico)
-{
-    NG_IGNORE(dico);
-
-    fprintf(stderr, "Symbol table\n");
-    nupa_list_params(stderr);
-}