diff options
| -rw-r--r-- | src/boot/strap/tokens.clisp | 2 | ||||
| -rw-r--r-- | src/boot/tokens.boot | 10 |
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 |