[Ecls-list] Making ecl quieter

[William Bland]

Thank you.  The following patch (to current cvs head) takes care of
this.  I would be very grateful if someone could apply this:

Index: c/load.d
===================================================================
RCS file: /cvsroot/ecls/ecls/src/c/load.d,v
retrieving revision 1.61
diff -r1.61 load.d
149c149,150
<              printf("\n;;; Freeing library %s\n", filename);
---
>              if (Null(symbol_value(@'*suppress-library-notes*')))
>                      printf("\n;;; Freeing library %s\n", filename);
Index: c/symbols_list.h
===================================================================
RCS file: /cvsroot/ecls/ecls/src/c/symbols_list.h,v
retrieving revision 1.107
diff -r1.107 symbols_list.h
62a63
> {"*SUPPRESS-LIBRARY-NOTES*", CL_SPECIAL, NULL, -1, Cnil},
Index: c/symbols_list2.h
===================================================================
RCS file: /cvsroot/ecls/ecls/src/c/symbols_list2.h,v
retrieving revision 1.4
diff -r1.4 symbols_list2.h
62a63
> {"*SUPPRESS-LIBRARY-NOTES*",NULL},


Thanks again,
Bill.


On 7/27/05, Goffioul Michael <goffioul at imec.be> wrote:
> > Hi,
> >
> > I am doing some compilation at runtime and would like ecl to be rather
> > quieter about what it is doing.  I already have:
> >
> >   #+ecl(setf *compile-print* nil)
> >   #+ecl(setf *compile-verbose* nil)
> >   #+ecl(setf *load-verbose* nil)
> >   #+ecl(setf *error-output* (make-broadcast-stream))
> >   #+ecl(setf *debug-io* (make-broadcast-stream))
> >
> > This seems to make ecl a lot quieter, but I still have a message that
> > I can't get rid of:
> >
> > ;;; Freeing library /home/wjb/home/projects/cl-utils/ECL0012aj77f.fas
> >
> > ;;; Freeing library /usr/lib/ecl/cmp.fas
> >
> > Any idea how I can stop these from being printed?
> 
> I don't think this is possible using LISP variables as this debug line
> is hardcoded. The only way is to modify the ECL code (src/c/load.d).
> 
> Michael.
> 
> 
> -------------------------------------------------------
> SF.Net email is sponsored by: Discover Easy Linux Migration Strategies
> from IBM. Find simple to follow Roadmaps, straightforward articles,
> informative Webcasts and more! Get everything you need to get up to
> speed, fast. http://ads.osdn.com/?ad_idt77&alloc_id492&opclick
> _______________________________________________
> Ecls-list mailing list
> Ecls-list at lists.sourceforge.net
> https://lists.sourceforge.net/lists/listinfo/ecls-list
>