RE: [Gcl-devel] Re: Axiom on Windows

[Mike Thomas]

Hi Camm/Tim.

| It looks like the 'nil' you find below is either that supplied as an
| argument above or results from the missing environment.  In any case,
| should this persist, it would be helpful (for someone, not you
| hopefully, you overworked soul!) to repeat the below with
| (si::use-fast-links nil)

I should have thought to try that sorry (gdb further down):

Here is a Windows command prompt session in which I switch off
C:\Documents and Settings\miketh>set AXIOM=c:\cvs\head\axiom\mnt\windows

C:\Documents and Settings\miketh>path
c:\cvs\head\axiom\mnt\windows\bin;%path%

C:\Documents and Settings\miketh>AXIOMsys.exe
GCL (GNU Common Lisp)  2.6.2 CLtL1   Jun  8 2004 13:12:41
Source License: LGPL(gcl,gmp), GPL(unexec,bfd)
Binary License:  GPL due to GPL'ed components: (UNEXEC)
Modifications of this banner must retain notice of a compatible license
Dedicated to the memory of W. Schelter

Use (help) to get some basic information on how to use GCL.
                        AXIOM Computer Algebra System
                Version of Tuesday June 8, 2004 at 13:25:54
----------------------------------------------------------------------------
-
   Issue )copyright to view copyright notices.
   Issue )summary for a summary of useful system commands.
   Issue )quit to leave AXIOM and return to shell.
----------------------------------------------------------------------------
-

(1) -> )lisp (si::use-fast-links nil)

Value = NIL
(1) -> )lisp (make-databases "" nil)

Error: Caught fatal error [memory may be damaged]
Error signalled by |SATURNSAYERRORLY|.
Broken at SYSTEM::BREAK-LEVEL.  Type :H for Help.
BOOT>>:bt

#0   APPLY {loc0=#<compiled-function
system:universal-error-handler>,loc1=:error,loc2=nil,l...} [ihs=32]
#1   APPLY {loc0=#<compiled-function
system:universal-error-handler>,loc1=:error,loc2=nil,l...} [ihs=31]
#2   LAMBDA {} [ihs=28]
#3   pushSatOutput
{loc0=|line|,loc1=#<OBJNULL>,loc2=#<OBJNULL>,loc3=#<OBJNULL>,loc4=#<OBJNULL>
,loc...} [ihs=27]
#4   saturnSayErrorly {errorlabel="System error",msg=("   " "Can't change
the current directory to \"N...} [ihs=26]
#5   sayErrorly {errorlabel="System error",msg=("   " "Can't change the
current directory to \"N...} [ihs=25]
#6   errorSupervisor1 {loc0=|SystemError|,loc1="Can't change the current
directory to \"NIL\".",loc2=|...} [ihs=24]
#7   errorSupervisor {loc0=|SystemError|,loc1="Can't change the current
directory to \"NIL\"."} [ihs=23]
#8   systemError {g160176="Can't change the current directory to \"NIL\"."}
[ihs=22]
#9   LAMBDA {"NIL"=nil,} [ihs=15]
#10   CHDIR
{loc0="NIL",loc1=:error,loc2=nil,loc3=localdatabase,loc4="",loc5="Can't
change t...} [ihs=14]
#11   LOCALDATABASE {filelist=nil,options=((|dir|
"NIL")),make-database?=make-database,loc3="NIL",fi...} [ihs=13]
#12   MAKE-DATABASES {ext="",g170243=nil,g170208=""} [ihs=12]
#13   nplisp {loc0=nil,loc1=nil,loc2=nil,loc3=#<compiled-function
make-databases>} [ihs=11]
#14   handleNoParseCommands {unab=|lisp|,string="lisp (make-databases \"\"
nil)",loc2=(|lisp| |pquit| |quit|...} [ihs=10
]
#15   doSystemCommand {string="lisp (make-databases \"\" nil)",line="lisp
(make-databases \"\" nil)"} [ihs=9]
#16   ExecuteInterpSystemCommand {string=")lisp (make-databases \"\"
nil)",loc1=0} [ihs=8]
#17   ncloopCommand {line=")lisp (make-databases \"\"
nil)",n=1,loc2=1,loc3=(")lisp (si::use-fast-li...} [ihs=7]
#18   RESTART {} [ihs=6]
#19   TOP-LEVEL
{loc0=nil,loc1=0,loc2=0,loc3=nil,loc4=nil,loc5=nil,loc6=nil,loc7="c:/cvs/hea
d/ax...} [ihs=5]
#20   FUNCALL {loc0=#<compiled-function system:top-level>} [ihs=4]
NIL
BOOT>>

============================================================================
=====
So you are right - it is the niul passed in as an argument being treated as
a string?

And with gdb:


============================================================================
=====
$ gdb ./mnt/windows/bin/AXIOMsys.exe
GNU gdb 6.0
Copyright 2003 Free Software Foundation, Inc.
GDB is free software, covered by the GNU General Public License, and you are
welcome to change it and/or distribute copies of it under certain
conditions.
Type "show copying" to see the conditions.
There is absolutely no warranty for GDB.  Type "show warranty" for details.
This GDB was configured as "i686-pc-mingw32"...
(gdb) r
Starting program: c:\cvs\head\axiom/./mnt/windows/bin/AXIOMsys.exe
GCL (GNU Common Lisp)  2.6.2 CLtL1   Jun  8 2004 13:12:41
Source License: LGPL(gcl,gmp), GPL(unexec,bfd)
Binary License:  GPL due to GPL'ed components: (UNEXEC)
Modifications of this banner must retain notice of a compatible license
Dedicated to the memory of W. Schelter

Use (help) to get some basic information on how to use GCL.
                        AXIOM Computer Algebra System
                Version of Tuesday June 8, 2004 at 13:25:54
----------------------------------------------------------------------------
-
   Issue )copyright to view copyright notices.
   Issue )summary for a summary of useful system commands.
   Issue )quit to leave AXIOM and return to shell.
----------------------------------------------------------------------------
-

(1) -> )lisp (make-databases "" nil)

Program received signal SIGSEGV, Segmentation fault.
0x0045e2ad in equal (x=0x0, y=0x103d945c) at predicate.c:496
496             if ((t = type_of(x)) != type_of(y))
(gdb) bt
#0  0x0045e2ad in equal (x=0x0, y=0x103d945c) at predicate.c:496
#1  0x104fdbed in ?? ()
(gdb)
============================================================================
=====

Late for the train as usual.

Cheers

Mike Thomas.