cleanu up syntax in tokens.boot

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