[Ecls-list] CVS compile error

[Lars Brinkhoff]

Compiling ECL from CVS today, I get:

  [...]
  ;;; Compiling ext:sockets;sockets.lisp.
  [...]
  ;;; Emitting code for (SETF SOCKET-LINGER).
  ;;; Calling the C compiler... 
  ;;; Note: Invoking external command:
  ;;; gcc  -g -O2 -fPIC  -fstrict-aliasing -Dlinux -I"/home/lars/src/ecl/ecl-cvs-20060929-orig/src"/c -I"/home/lars/src/ecl/ecl-cvs-20060929-orig/src"/gmp -I"/home/lars/src/ecl/ecl-cvs-20060929-orig/build"  -I"/home/lars/src/ecl/ecl-cvs-20060929-orig/build" -w -c "/home/lars/src/ecl/ecl-cvs-20060929-orig/build/ext/sockets.c" -o "/home/lars/src/ecl/ecl-cvs-20060929-orig/build/ext/sockets.o"

  /home/lars/src/ecl/ecl-cvs-20060929-orig/build/ext/sockets.c: In function 'L50make_stream_from_fd':
  /home/lars/src/ecl/ecl-cvs-20060929-orig/build/ext/sockets.c:1682: error: 'ecl_smmode' undeclared (first use in this function)
  /home/lars/src/ecl/ecl-cvs-20060929-orig/build/ext/sockets.c:1682: error: (Each undeclared identifier is reported only once
  /home/lars/src/ecl/ecl-cvs-20060929-orig/build/ext/sockets.c:1682: error: for each function it appears in.)
  /home/lars/src/ecl/ecl-cvs-20060929-orig/build/ext/sockets.c:1682: error: syntax error before 'object_to_fixnum'
  LAMBDA: Too many arguments to function CONTINUE.
  Top level.
  SB-BSD-SOCKETS> 

The right fix appears to be:

Index: sockets.lisp
===================================================================
RCS file: /project/ecl/cvsroot/ecl/contrib/sockets/sockets.lisp,v
retrieving revision 1.27
diff -u -r1.27 sockets.lisp
--- sockets.lisp	26 Sep 2006 08:12:32 -0000	1.27
+++ sockets.lisp	30 Sep 2006 16:24:48 -0000
@@ -1104,7 +1104,7 @@
 		  buffering)
 	    (t :int :int :object)
 	    t
-	    "si_set_buffering_mode(ecl_make_stream_from_fd(#0,#1,(ecl_smmode)#2), #3)"
+	    "si_set_buffering_mode(ecl_make_stream_from_fd(#0,#1,(enum ecl_smmode)#2), #3)"
 	    :one-liner t))
 
 (defmethod socket-make-stream ((socket socket)  &rest args &key (buffering-mode NIL))