hello all,
there remains some code related to the bothcases global variable,
which was made obsolete by case sensitivity.
the default value is true. bothcases: false$ does still have an
effect, namely to convert every symbol (user-defined and built-in alike)
to uppercase.
i am going to cut out the remaining instance of bothcases from src/,
share/, and doc/info/ unless i hear otherwise.
all the best,
robert
PS. for the record here are the instances of bothcases in src/ :
buildq.lisp:;; give it a property so it is known as special for bothcases
buildq.lisp:(setf (get '$splice '$bothcases) t)
lmdcls.lisp: $beta_args_sum_to_integer $bftorat $bftrunc $bothcases $boxchar
mactex.lisp:;;;(import '(user::$bothcases user::lbp user::rbp user::nformat))
mactex.lisp:($bothcases t) ;; allow alpha and Alpha to be different
max_ext.lisp:;; make some externals for the bothcases stuff...
nparse.lisp: (setq tem (if $bothcases (bothcase-implode tem)
(implode1 tem nil)))
nparse.lisp:(defvar $bothcases t)
nparse.lisp: (or $bothcases (setq c (fixnum-char-upcase c))))
suprv1.lisp: (setq $debugmode nil $bothcases t
suprv1.lisp:;; If $BOTHCASES is T, lower case letters will not be
converted to upper case.
suprv1.lisp:(defmfun $bothcases (x) (bothcases1 nil x))
suprv1.lisp:(defun bothcases1 (symbol value)
suprv1.lisp: symbol ;Always bound to $BOTHCASES. Ignored.
suprv1.lisp: '(($debugmode debugmode1) ($bothcases bothcases1)
sys-proclaim.lisp: MAXIMA::$BOTHCASES MAXIMA::R1M MAXIMA::ONEP
sys-proclaim.lisp: MAXIMA::PDERIVATIVE MAXIMA::BOTHCASES1
MAXIMA::META-FSET