diff options
author | dos-reis <gdr@axiomatics.org> | 2008-09-20 17:54:46 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2008-09-20 17:54:46 +0000 |
commit | fde9260a842114ae27a99f7de23c9a46b79eccf4 (patch) | |
tree | 5c5535e97654b0491321cb1dbbaef5800b751980 /src/interp/spad.lisp | |
parent | 75cc0a4b26fd4d3f896677f792f47659430e9824 (diff) | |
download | open-axiom-fde9260a842114ae27a99f7de23c9a46b79eccf4.tar.gz |
* include/cfuns.h (oa_dirname): Declare.
* lib/cfuns-c.c (openaxiom_is_path_separator): New.
(oa_dirname): Define.
(writeablep): Use it.
* algebra/fname.spad.pamphlet (writable?$FileName): Tidy.
Diffstat (limited to 'src/interp/spad.lisp')
-rw-r--r-- | src/interp/spad.lisp | 11 |
1 files changed, 0 insertions, 11 deletions
diff --git a/src/interp/spad.lisp b/src/interp/spad.lisp index 914bb45d..e6d174dc 100644 --- a/src/interp/spad.lisp +++ b/src/interp/spad.lisp @@ -44,31 +44,20 @@ (defconstant |$Newline| #\Newline) (defvar |$preserveSystemLisplib| t "if nil finalizeLisplib does MA REP") -(defvar |$incrementalLisplibFlag| nil "checked in compDefineLisplib") (defvar |$reportInstantiations| nil) (defvar |$reportEachInstantiation| nil) (defvar |$reportCounts| nil) -(defvar |$CategoryDefaults| nil) (defvar |$compForModeIfTrue| nil "checked in compSymbol") (defvar |$functorForm| nil "checked in addModemap0") -(defvar |$formalArgList| nil "checked in compSymbol") -(defvar |$newCompAtTopLevel| nil "if t uses new compiler") -(defvar |$doNotCompileJustPrint| nil "switch for compile") (defvar |$Rep| '|$Rep| "should be bound to gensym? checked in coerce") -(defvar |$scanIfTrue| nil "if t continue compiling after errors") -(defvar |$Representation| nil "checked in compNoStacking") (defvar |$definition| nil "checked in DomainSubstitutionFunction") -(defvar |$Attributes| nil "global attribute list used in JoinInner") (defvar |$getPutTrace| nil) (defvar |$specialCaseKeyList| nil "checked in optCall") (defvar |$formulaFormat| nil "if true produce script formula output") (defvar |$texFormat| nil "if true produce tex output") (defvar |$fortranFormat| nil "if true produce fortran output") (defvar |$algebraFormat| t "produce 2-d algebra output") -(defvar |$kernelWarn| NIL "") -(defvar |$kernelProtect| NIL "") (defvar |$HiFiAccess| nil "if true maintain history file") -(defvar |$mapReturnTypes| nil) (defvar |boot-NewKEY| NIL) |