Re: clisp dos serial

[haible (Bruno Haible)]

Ian Garmaise <ian.cdn@genie.geis.com> writes:

> I've tried (open "com1") but had problems due to buffering.

To get unbuffered streams as result of (open "com1") the following patch
should work:

*** src/lispbibl.d      Tue Aug 30 20:50:04 1994
--- src/lispbibl.d.new  Fri Sep  9 15:08:45 1994
***************
*** 1568,1574 ****
  # Bei Erweiterung: STREAM erweitern (viel Arbeit!).
  
  # Ob es File-Handle-Streams gibt:
!   #if defined(UNIX) || defined(AMIGAOS) || defined(RISCOS)
      #define HANDLES
    #endif
  # Bei Erweiterung: STREAM erweitern.
--- 1568,1574 ----
  # Bei Erweiterung: STREAM erweitern (viel Arbeit!).
  
  # Ob es File-Handle-Streams gibt:
!   #if defined(UNIX) || defined(MSDOS) || defined(AMIGAOS) || defined(RISCOS)
      #define HANDLES
    #endif
  # Bei Erweiterung: STREAM erweitern.
*** src/stream.d        Tue Aug 30 02:25:37 1994
--- src/stream.d.new    Fri Sep  9 15:09:18 1994
***************
*** 8742,8748 ****
        # Alles andere gibt File-Handle-Streams, weil vermutlich lseek() nicht geht.
        if (!nullp(handle))
          {
!           #if defined(UNIX) || defined(RISCOS)
            var struct stat statbuf;
            begin_system_call();
            if (!( fstat(TheHandle(handle),&statbuf) ==0)) { OS_error(); }
--- 8742,8748 ----
        # Alles andere gibt File-Handle-Streams, weil vermutlich lseek() nicht geht.
        if (!nullp(handle))
          {
!           #if defined(UNIX) || defined(MSDOS) || defined(RISCOS)
            var struct stat statbuf;
            begin_system_call();
            if (!( fstat(TheHandle(handle),&statbuf) ==0)) { OS_error(); }



                    Bruno Haible
                    haible@ma2s2.mathematik.uni-karlsruhe.de