diff options
author | dos-reis <gdr@axiomatics.org> | 2008-03-25 04:07:32 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2008-03-25 04:07:32 +0000 |
commit | daed04c57b8ff8c3be53a5a183635c5687ab7bf6 (patch) | |
tree | be75f9d45dbdb2004578ad6b3c5c25b7e22803e6 /src/interp/fortcall.boot | |
parent | 55893dcd3118428f046d5f539d80e9aa5345b885 (diff) | |
download | open-axiom-daed04c57b8ff8c3be53a5a183635c5687ab7bf6.tar.gz |
* interp/vmlisp.lisp (DEFINE-FUNCTION): Move boot-pkg.lisp.
(BPINAME): Tidy.
* interp/slam.boot (reportFunctionCompilation): Tidy.
* interp/daase.lisp: Don't use anachronistic SET.
* interp/debug.lisp: Likewise.
* interp/br-saturn.boot: Substitute GENSYM for GENTEMP.
* interp/fortcall.boot: Likewise.
* interp/ht-util.boot: Likewise.
* interp/pf2sex.boot: Likewise.
* interp/server.boot: Likewise.
* interp/buildom.boot (UnionEqual): Tidy.
(coerceUn2E): Likewise.
* interp/boot-pkg.lisp (define-function): Define here.
* interp/Makefile.pamphlet (diagnostics.$(FASLEXT)): Tidy.
(hash.$(FASLEXT)): Likewise.
(vmlisp.$(FASLEXT)): Likewise.
* interp/diagnostics.boot: Import "types".
* interp/hash.lisp: Import "types" instead of "vmlisp".
* interp/i-output.boot ($algebraOutput): Move to sys-globals.boot.
(ERROROUTSTREAM): Likewise.
(ERRORINSTREAM): Likewise.
* interp/macros.lisp ($algebraOutputStream): Don't set here.
* interp/patches.lisp ($algebraOutputStream): Don't set here.
($texOutputStream): Likewise.
($fortranOutputStream): Likewise.
($texOutputStream): Likewise.
($formulaOutputStream): Likewise.
Diffstat (limited to 'src/interp/fortcall.boot')
-rw-r--r-- | src/interp/fortcall.boot | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/interp/fortcall.boot b/src/interp/fortcall.boot index 4d7fa940..43dda14a 100644 --- a/src/interp/fortcall.boot +++ b/src/interp/fortcall.boot @@ -318,7 +318,7 @@ makeSpadFun(name,userArgs,args,dummies,decls,results,returnType,asps,aspInfo, [["$elt","Lisp","construct"],:mkQuote results],resPar] if asps then -- Make a unique(ish) id for asp files - aspId := STRCONC(getEnv('"SPADNUM"), GENTEMP('"NAG")) + aspId := STRCONC(getEnv('"SPADNUM"), GENSYM('"NAG")) body := ["SEQ",:makeAspGenerators(asps,aspTypes,aspId),_ makeCompilation(asps,file,aspId),_ ["pretend",call,fType] ] @@ -670,9 +670,9 @@ readData(tmpFile,results) == results generateDataName()==STRCONC($fortranTmpDir,getEnv('"HOST"), - getEnv('"SPADNUM"), GENTEMP('"NAG"),'"data") + getEnv('"SPADNUM"), GENSYM('"NAG"),'"data") generateResultsName()==STRCONC($fortranTmpDir,getEnv('"HOST"), - getEnv('"SPADNUM"), GENTEMP('"NAG"),'"results") + getEnv('"SPADNUM"), GENSYM('"NAG"),'"results") fortCall(objFile,data,results) == |