[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

first message to the list, have a newbie question



Greetings!

I've been exposed to c-lisp for a grand total of < 12 hours, so please pardon
my newbie-esque approach.

I just pulled down the 93-11-08 code and attempted to compile.  I'm running
SunOS 4.1.3 on a Sparc10 and compiling with gcc-2.5.2.

First pass, compiling with -DIMMUTABLE failed, but completed without it.  I
looked at spvw.d, made a change, and now -DIMMUTABLE (at least) compiles:

*** spvw.d.orig Thu Nov 11 22:28:44 1993
--- spvw.d      Thu Nov 11 22:28:18 1993
***************
*** 1139,1146 ****
            });
        }
      #define exitmap()  \
!       if (!(bigblock_ptr == &bigblock[0]))
!         close_mapid(bigblock[0].mm_mapid);
    #endif

  #endif # MULTIMAP_MEMORY_VIA_FILE
--- 1139,1147 ----
            });
        }
      #define exitmap()  \
!       { if (!(bigblock_ptr == &bigblock[0])) \
!         close_mapid(bigblock[0].mm_mapid); \
!       }
    #endif

  #endif # MULTIMAP_MEMORY_VIA_FILE

"make test" passes, but "make testsuite" fails with the following alltest.erg
file:

Form: (PRIN1-TO-STRING MOST-POSITIVE-DOUBLE-FLOAT)
SOLL: "8.988465674311579d307"
CLISP: "1.7976931348623157d308"

Form: (PRIN1-TO-STRING LEAST-POSITIVE-DOUBLE-FLOAT)
SOLL: "5.562684646268004d-309"
CLISP: "2.2250738585072014d-308"

Form: (PRIN1-TO-STRING LEAST-NEGATIVE-DOUBLE-FLOAT)
SOLL: "-5.562684646268004d-309"
CLISP: "-2.2250738585072014d-308"

Form: (PRIN1-TO-STRING MOST-NEGATIVE-DOUBLE-FLOAT)
SOLL: "-8.988465674311579d307"
CLISP: "-1.7976931348623157d308"

However, if I invoke lisp.run and execute the forms by hand, I get:

> (PRIN1-TO-STRING MOST-POSITIVE-DOUBLE-FLOAT)
".11111111111111111111111111111111111111111111111111111d1024"
> (PRIN1-TO-STRING LEAST-POSITIVE-DOUBLE-FLOAT)
".10000000000000000000000000000000000000000000000000000d-1021"
> (PRIN1-TO-STRING LEAST-NEGATIVE-DOUBLE-FLOAT)
"-.10000000000000000000000000000000000000000000000000000d-1021"
> (PRIN1-TO-STRING MOST-NEGATIVE-DOUBLE-FLOAT)
"-.11111111111111111111111111111111111111111111111111111d1024"
> 

I'm afraid to susbstitute these values, as I'm unsure as to whether or
not I've got a compilation problem.

Any and all help would certainly be much appreciated!

Thanks,
Derrick
-- 
      |     /   _____/    |    /   _____/  Derrick Cole, KC4WEJ
    / __/  /   /        / |   /   /        MCNC Information Technologies
   /      /   /        /  |  /   /         Research Triangle Park, NC
__/    __/ _______/ __/   __/ _______/     cole@concert.net