aboutsummaryrefslogtreecommitdiff
path: root/new-luxc/source/luxc/lang/translation/common-lisp
diff options
context:
space:
mode:
authorEduardo Julian2018-05-06 02:01:02 -0400
committerEduardo Julian2018-05-06 02:01:02 -0400
commitf5a6fe62a612c0727063fa9e530d53ddda5fcd82 (patch)
tree4c129edee0d68e00e72dd792311ae0c37d71d1dd /new-luxc/source/luxc/lang/translation/common-lisp
parent3f5cb79407289996b107c65ccd14451e4fbd9679 (diff)
- Removed "lux text upper" and "lux text lower" procedures.
Diffstat (limited to 'new-luxc/source/luxc/lang/translation/common-lisp')
-rw-r--r--new-luxc/source/luxc/lang/translation/common-lisp/eval.jvm.lux2
-rw-r--r--new-luxc/source/luxc/lang/translation/common-lisp/procedure/common.jvm.lux2
2 files changed, 1 insertions, 3 deletions
diff --git a/new-luxc/source/luxc/lang/translation/common-lisp/eval.jvm.lux b/new-luxc/source/luxc/lang/translation/common-lisp/eval.jvm.lux
index 262f3f284..ee2aac932 100644
--- a/new-luxc/source/luxc/lang/translation/common-lisp/eval.jvm.lux
+++ b/new-luxc/source/luxc/lang/translation/common-lisp/eval.jvm.lux
@@ -101,7 +101,7 @@
(-> (-> Object (Error Top)) Cons (Error Top))
(let [variant-tag (Cons::car host-object)]
(if (and (host.instance? org/armedbear/lisp/Symbol variant-tag)
- (text/= //.variant-tag (text.lower-case (Symbol::getName [] (:! Symbol variant-tag)))))
+ (text/= //.variant-tag (Symbol::getName [] (:! Symbol variant-tag))))
(do e.Monad<Error>
[#let [host-object (:! Cons (Cons::cdr host-object))]
tag (lux-object (Cons::car host-object))
diff --git a/new-luxc/source/luxc/lang/translation/common-lisp/procedure/common.jvm.lux b/new-luxc/source/luxc/lang/translation/common-lisp/procedure/common.jvm.lux
index 895ed8d72..fe9fe43be 100644
--- a/new-luxc/source/luxc/lang/translation/common-lisp/procedure/common.jvm.lux
+++ b/new-luxc/source/luxc/lang/translation/common-lisp/procedure/common.jvm.lux
@@ -345,8 +345,6 @@
## (install "replace-all" (trinary text//replace-all))
(install "char" (binary text//char))
(install "clip" (trinary text//clip))
- (install "upper" (unary _.string-upcase/1))
- (install "lower" (unary _.string-downcase/1))
)))
## [[Math]]