[Gcl-devel] Re: interrupts in 64-bit GCL

[Matt Kaufmann]

Thanks, Dave!  I've tried the latest
/projects/acl2/lisps/gcl/gcl-2.6.8pre/bin/gcl, and it solves both
problems (interrupts and reading dot notation).

Thanks, Camm -- very nice.  I really appreciate the GCL support!

-- Matt
   Date: Tue, 03 Mar 2009 14:11:45 -0600
   From: "David A. Kotz" <address@hidden>
   CC: address@hidden, address@hidden, address@hidden

   Fresh debug and non-debug builds are in place on the 64bit lusr server 
   now.  I did the checkout this afternoon like so:

   cvs -d:pserver:address@hidden:/sources/gcl co -r 
   Version_2_6_8pre -d gcl-2.6.8pre gcl

   - dave


   Matt Kaufmann wrote:
   > Thanks!  When I get the word from Dave that a new GCL is ready to
   > test, I'll give it a try.
   > 
   > -- Matt
   >    Cc: address@hidden, address@hidden, address@hidden
   >    From: Camm Maguire <address@hidden>
   >    Date: Tue, 03 Mar 2009 12:12:44 -0500
   >    X-SpamAssassin-Status: No, hits=-2.6 required=5.0
   >    X-UTCS-Spam-Status: No, hits=-202 required=165
   > 
   >    Greetings, and thanks!  OK I think this is fixed now in both
   >    branches.  Here is the 2.6.8pre patch to read.d:
   > 
   >    @@ -638,7 +646,7 @@
   >     static void
   >     Lleft_parenthesis_reader()
   >     {
   >    -       object in, c, x;
   >    +       object in, x;
   >       object *p;
   > 
   >       check_arg(2);
   >    @@ -654,18 +662,17 @@
   >               if (dot_flag) {
   >                       if (p == &vs_head)
   >       FEerror("A dot appeared after a left parenthesis.", 0);
   >    +                       delimiting_char = code_char(')');
   >                       in_list_flag = TRUE;
   >                       *p = read_object(in);
   >                       if (dot_flag)
   >       FEerror("Two dots appeared consecutively.", 0);
   >    -                       c = read_char(in);
   >    -                       while (cat(c) == cat_whitespace)
   >    -                               c = read_char(in);
   >    -                       if (char_code(c) != ')')
   >    -       FEerror("A dot appeared before a right parenthesis.", 0);
   >    -                       else if (PP0>P0) PP0--; /* should be the only 
other place
   >    -                                                  outside of 
read_object where
   >    -                                                  closing parens are 
read */
   >    +                       if (*p==OBJNULL)
   >    +       FEerror("Object missing after dot.", 0);
   >    +                       delimiting_char = code_char(')');
   >    +                       in_list_flag = TRUE;
   >    +                       if (read_object(in)!=OBJNULL)
   >    +        FEerror("Two objects after dot.",0);
   >                       goto ENDUP;
   >               }
   >               vs_push(x);
   > 
   >    Take care,
   >    -- 
   >    Camm Maguire                                        address@hidden
   >    
==========================================================================
   >    "The earth is but one country, and mankind its citizens."  --  
Baha'u'llah