aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authordos-reis <gdr@axiomatics.org>2010-05-28 15:13:49 +0000
committerdos-reis <gdr@axiomatics.org>2010-05-28 15:13:49 +0000
commitcf0e1760609b1b4772cbb8bc4f511a46a116501d (patch)
tree03baee7d87c17ba5599d83f27032c2283dad2636
parent460eba8d1a5ea8feef28282e70ba2d22fa1fcdc6 (diff)
downloadopen-axiom-cf0e1760609b1b4772cbb8bc4f511a46a116501d.tar.gz
cleanu up syntax in tokens.boot
-rw-r--r--src/boot/strap/tokens.clisp2
-rw-r--r--src/boot/tokens.boot10
2 files changed, 6 insertions, 6 deletions
diff --git a/src/boot/strap/tokens.clisp b/src/boot/strap/tokens.clisp
index d498edb7..5549b7eb 100644
--- a/src/boot/strap/tokens.clisp
+++ b/src/boot/strap/tokens.clisp
@@ -160,7 +160,7 @@
(COND
((OR (ATOM |bfVar#6|) (PROGN (SETQ |i| (CAR |bfVar#6|)) NIL))
(RETURN NIL))
- (T (SETF (GET |i| 'SHOEPRE) 'T)))
+ (T (SETF (GET |i| 'SHOEPRE) T)))
(SETQ |bfVar#6| (CDR |bfVar#6|)))))
(EVAL-WHEN (:EXECUTE :LOAD-TOPLEVEL)
diff --git a/src/boot/tokens.boot b/src/boot/tokens.boot
index dba38617..19b00439 100644
--- a/src/boot/tokens.boot
+++ b/src/boot/tokens.boot
@@ -181,7 +181,7 @@ for i in [ _
-- "SHOEEQ", _
"LENGTH" _
] _
- repeat SETF (GET(i,'SHOEPRE),'T)
+ repeat property(i,'SHOEPRE) := true
++ List of infix operators.
for i in [ _
@@ -201,7 +201,7 @@ for i in [ _
["GE" ,">="], _
["SHOENE" ,"~="] _
]_
- repeat SETF (GET(first i,'SHOEINF),second i)
+ repeat property(first i,'SHOEINF) := second i
++ List of monoid operations and their neutral elements.
@@ -231,7 +231,7 @@ for i in [ _
["OR", false] _
]
- repeat SETF (GET(first i,'SHOETHETA),CDR i)
+ repeat property(first i,'SHOETHETA) := rest i
for i in [ _
["alphabetic?", "ALPHA-CHAR-P"], _
@@ -299,7 +299,7 @@ for i in [ _
["SHOENE", "/="], _
["T", "T$"] _
]
- repeat SETF (GET(first i,'SHOERENAME),CDR i)
+ repeat property(first i,'SHOERENAME) := rest i
for i in [ _
@@ -341,4 +341,4 @@ for i in [ _
["streamName", "CADR"] , _
["target", "CAR"] _
] _
- repeat SETF (GET(first i,'SHOESELFUNCTION),second i)
+ repeat property(first i,'SHOESELFUNCTION) := second i