Re: new version now at Karlsruhe

[Marcus Daniels <marcus@sysc.pdx.edu>]

>>>>> "Joachim" == Joachim Schrod <schrod@iti.informatik.th-darmstadt.de> writes:

Joachim> Btw, does anybody know of a more elegant work-around than
Joachim> (export (intern "NAME" 'gi) 'gi) ?

Hmm..  How about this?  

*** clisp-1995-08-12/src/io.d	Wed Aug  9 17:22:16 1995
--- clisp-1995-08-14/src/io.d	Mon Aug 14 15:13:48 1995
***************
*** 6033,6039 ****
                  { pushSTACK(home); # Home-Package retten
                    pr_symbol_part(stream_,ThePackage(home)->pack_name); # Packagenamen ausgeben
                    home = popSTACK(); # Home-Package zurück
!                   if (externalp(STACK_0,home)) # Symbol extern in seiner Home-Package?
                      goto one_marker; # ja -> 1 Packagemarker
                    write_schar(stream_,':'); # sonst 2 Packagemarker
                    one_marker:
--- 6033,6043 ----
                  { pushSTACK(home); # Home-Package retten
                    pr_symbol_part(stream_,ThePackage(home)->pack_name); # Packagenamen ausgeben
                    home = popSTACK(); # Home-Package zurück
!                   # Symbol extern in seiner Home-Package?
!                   # Print `::' when compiling, so as to avoid previous
!                   # runtime exports resulting in external symbol names 
!                   # in the .fas that aren't in fact external.
!                   if (externalp(STACK_0,home) && !test_value(S(compiling)))
                      goto one_marker; # ja -> 1 Packagemarker
                    write_schar(stream_,':'); # sonst 2 Packagemarker
                    one_marker: