diff options
| author | dos-reis <gdr@axiomatics.org> | 2010-12-11 02:03:13 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2010-12-11 02:03:13 +0000 |
| commit | f8e7728606692cfb26816637c0622007758d9ae5 (patch) | |
| tree | 2d2965bfcbd1e4a02bd61c5460e217f16b99f960 /src/boot/strap/ast.clisp | |
| parent | 46e765be689a737fa233ca242459520db3797f03 (diff) | |
| download | open-axiom-f8e7728606692cfb26816637c0622007758d9ae5.tar.gz | |
Clean up
Diffstat (limited to 'src/boot/strap/ast.clisp')
| -rw-r--r-- | src/boot/strap/ast.clisp | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/src/boot/strap/ast.clisp b/src/boot/strap/ast.clisp index 220253f9..280f58a3 100644 --- a/src/boot/strap/ast.clisp +++ b/src/boot/strap/ast.clisp @@ -163,7 +163,7 @@ (DECLARE (SPECIAL |$GenVarCounter|)) (PROGN (SETQ |$GenVarCounter| (+ |$GenVarCounter| 1)) - (INTERN (CONCAT "bfVar#" (STRINGIMAGE |$GenVarCounter|))))) + (INTERN (CONCAT "bfVar#" (WRITE-TO-STRING |$GenVarCounter|))))) (DECLAIM (FTYPE (FUNCTION (|%Thing|) |%List|) |bfColon|)) @@ -742,7 +742,7 @@ (|bfMKPROGN| (CONS |l1| (APPEND |l2| (CONS |name| NIL))))))) (T (SETQ |g| (INTERN (CONCAT "LETTMP#" - (STRINGIMAGE |$letGenVarCounter|)))) + (WRITE-TO-STRING |$letGenVarCounter|)))) (SETQ |$letGenVarCounter| (+ |$letGenVarCounter| 1)) (SETQ |rhs1| (LIST 'L%T |g| |rhs|)) (SETQ |let1| (|bfLET1| |lhs| |g|)) @@ -834,7 +834,7 @@ (SETQ |rev| (LIST 'REVERSE |rhs|)) (SETQ |g| (INTERN (CONCAT "LETTMP#" - (STRINGIMAGE |$letGenVarCounter|)))) + (WRITE-TO-STRING |$letGenVarCounter|)))) (SETQ |$letGenVarCounter| (+ |$letGenVarCounter| 1)) (SETQ |l2| (|bfLET2| |patrev| |g|)) (COND @@ -982,7 +982,7 @@ ((CONSP |lhs|) (SETQ |g| (INTERN (CONCAT "ISTMP#" - (STRINGIMAGE |$isGenVarCounter|)))) + (WRITE-TO-STRING |$isGenVarCounter|)))) (SETQ |$isGenVarCounter| (+ |$isGenVarCounter| 1)) (|bfMKPROGN| (LIST (LIST 'L%T |g| |lhs|) (|bfIS1| |g| |rhs|)))) ((AND (CONSP |rhs|) (EQ (CAR |rhs|) 'CONS) @@ -1039,7 +1039,7 @@ (SETQ |patrev| (|bfISReverse| |b| |a|)) (SETQ |g| (INTERN (CONCAT "ISTMP#" - (STRINGIMAGE |$isGenVarCounter|)))) + (WRITE-TO-STRING |$isGenVarCounter|)))) (SETQ |$isGenVarCounter| (+ |$isGenVarCounter| 1)) (SETQ |rev| (|bfAND| (LIST (LIST 'CONSP |lhs|) @@ -2412,7 +2412,7 @@ (LIST |rettype| |cop|))))))))) (DEFUN |genGCLnativeTranslation,mkCArgName| (|i|) - (CONCAT "x" (STRINGIMAGE |i|))) + (CONCAT "x" (WRITE-TO-STRING |i|))) (DEFUN |genGCLnativeTranslation,cparm| (|x| |a|) (CONCAT (|genGCLnativeTranslation,gclTypeInC| (CAR |x|)) " " @@ -2525,7 +2525,7 @@ (COND ((EQL |i| 0) (CONCAT "(#0)" (|genECLnativeTranslation,selectDatum| |x|))) - (T (CONCAT "," "(#" (STRINGIMAGE |i|) ")" + (T (CONCAT "," "(#" (WRITE-TO-STRING |i|) ")" (|genECLnativeTranslation,selectDatum| |x|))))) (DEFUN |genECLnativeTranslation,selectDatum| (|x|) |