diff options
Diffstat (limited to 'src/boot/strap/ast.clisp')
| -rw-r--r-- | src/boot/strap/ast.clisp | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/src/boot/strap/ast.clisp b/src/boot/strap/ast.clisp index 1f555ed2..fdfc2f47 100644 --- a/src/boot/strap/ast.clisp +++ b/src/boot/strap/ast.clisp @@ -1,9 +1,9 @@ (IMPORT-MODULE "includer") -(PROVIDE "ast") - (IN-PACKAGE "BOOTTRAN") +(PROVIDE "ast") + (DEFPARAMETER |$bfClamming| NIL) (DEFTYPE |%Thing| () 'T) @@ -1159,7 +1159,7 @@ (DEFUN |bfReName| (|x|) (PROG (|oldName| |newName| |a|) - (DECLARE (SPECIAL |$translatingOldBoot|)) + (DECLARE (SPECIAL |$stok| |$translatingOldBoot|)) (RETURN (PROGN (SETQ |newName| @@ -1174,7 +1174,8 @@ ((NOT (EQUAL |newName| |oldName|)) (|warn| (LIST (PNAME |x|) " as `" (PNAME |newName|) "' differs from Old Boot `" - (PNAME |oldName|) "'")))) + (PNAME |oldName|) "' at " + (|diagnosticLocation| |$stok|))))) |oldName|)) (#0# |newName|)))))) |