diff options
| author | dos-reis <gdr@axiomatics.org> | 2009-08-20 11:52:58 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2009-08-20 11:52:58 +0000 |
| commit | b890b870ba6641b7670fce7827f5928c4383dd9c (patch) | |
| tree | 50a6654341c29ed95015dfb654e9fdd8428d2bad /src/boot/strap/ast.clisp | |
| parent | 71cb17550511a6abb225030cb25c16bef8f31ef5 (diff) | |
| download | open-axiom-b890b870ba6641b7670fce7827f5928c4383dd9c.tar.gz | |
Discontinue computation of difference between "old" and "new" Boot.
* boot/ast.boot (bfGetOldBootName): Remove.
(bfSameMeaning): Likewise.
(bfReName): Don't compute the diff between old and new Boot.
* boot/translator.boot ($translatingOldBoot): Remove.
(AxiomCore::%sysInit): Don't set it.
Diffstat (limited to 'src/boot/strap/ast.clisp')
| -rw-r--r-- | src/boot/strap/ast.clisp | 28 |
1 files changed, 2 insertions, 26 deletions
diff --git a/src/boot/strap/ast.clisp b/src/boot/strap/ast.clisp index 0d4a44e8..dd410a65 100644 --- a/src/boot/strap/ast.clisp +++ b/src/boot/strap/ast.clisp @@ -1182,34 +1182,10 @@ ((|bfTupleP| |bfarg|) (CONS |bfop| (CDR |bfarg|))) ('T (CONS |bfop| (LIST |bfarg|))))) -(DEFUN |bfGetOldBootName| (|x|) - (PROG (|a|) - (RETURN - (COND ((SETQ |a| (GET |x| 'OLD-BOOT)) (CAR |a|)) ('T |x|))))) - -(DEFUN |bfSameMeaning| (|x|) (GET |x| 'RENAME-OK)) - (DEFUN |bfReName| (|x|) - (PROG (|oldName| |newName| |a|) - (DECLARE (SPECIAL |$stok| |$translatingOldBoot|)) + (PROG (|a|) (RETURN - (PROGN - (SETQ |newName| - (COND - ((SETQ |a| (GET |x| 'SHOERENAME)) (CAR |a|)) - (#0='T |x|))) - (COND - ((AND |$translatingOldBoot| (NOT (|bfSameMeaning| |x|))) - (PROGN - (SETQ |oldName| (|bfGetOldBootName| |x|)) - (COND - ((NOT (EQUAL |newName| |oldName|)) - (|warn| (LIST (PNAME |x|) " as `" (PNAME |newName|) - "' differs from Old Boot `" - (PNAME |oldName|) "' at " - (|diagnosticLocation| |$stok|))))) - |oldName|)) - (#0# |newName|)))))) + (COND ((SETQ |a| (GET |x| 'SHOERENAME)) (CAR |a|)) ('T |x|))))) (DEFUN |bfInfApplication| (|op| |left| |right|) (COND |