Re: [Axiom-developer] gclcvs-2.7.0 and Axiom

[Stephen Wilson]

Hi Camm,

While debugging, I stumbled across another issue.  One which I hope is
reproducible this time :)


=--- test.lisp ---
(declaim (noinline foo*/bar))
(defun foo*/bar () 'foo)

(defun test () (foo*/bar))
=-----------------


The issue is that the symbol 'foo*/bar prematurely ends comments
emitted within the generated C.


GCL (GNU Common Lisp)  2.7.0 ANSI    Jul 30 2007 16:58:56
Source License: LGPL(gcl,gmp,pargcl), GPL(unexec,bfd,xgcl)
Binary License:  GPL due to GPL'ed components: (XGCL READLINE BFD 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.

Temporary directory for compiler files set to /tmp/

>(compile-file "test.lisp")

;; Compiling test.lisp.
Warning: SIMPLE-WARNING: The declaration specifier NOINLINE is unknown.
Warning: SIMPLE-WARNING: The declaration specifier NOINLINE is unknown.
;; End of Pass 1.  
;; End of Pass 2.  
test.c: In function `LI2__TEST__e_steve_tmp_test':
test.c:10184: error: `BAR' undeclared (first use in this function)
test.c:10184: error: (Each undeclared identifier is reported only once
test.c:10184: error: for each function it appears in.)
test.c:10184: error: syntax error before '/' token
test.c:10184: error: syntax error before ')' token

Correctable error: 
Fast links are on: do (si::use-fast-links nil) for debugging
Signalled by COMPILE-FILE.
If continued: Continues anyway.
SIMPLE-ERROR: (SYSTEM "gcc -c -I/usr/X11R6/include -fsigned-char -pipe -Wall   
-I/home/steve/local/stow/gclcvs-2.7.0/lib/gcl-2.7.0/unixport/../h  -Os 
-fomit-frame-pointer -c test.c -o test.o ") returned a non-zero value 0.

Broken at COMPILE-FILE.  Type :H for Help.
 1 (Continue) Continues anyway.
 2 Retry compiling file "test.lisp".
 3 Retry compiling file "test.lisp".
 4 Return to top level.



=--- test.c [snipped] ----

static object LI2__TEST__e_steve_tmp_test()

{        VMB2 VMS2 VMV2
        goto TTL;
TTL:;
        {object V2 = (/* FOO*/BAR */(*LnkLI1)());VMR2
        (V2);}
        return Cnil;
}

=------------------------



Take care,
Steve