diff options
author | dos-reis <gdr@axiomatics.org> | 2010-12-18 19:02:56 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2010-12-18 19:02:56 +0000 |
commit | 0b00c2ae8f58ce6d812f6ce3fbfecc19db7ffd3f (patch) | |
tree | dff999d6fe7258432408bb1663fcc714cfdbfe5a /src/boot/strap/scanner.clisp | |
parent | 751f5dd0f97c1c6e53dcb0ca118f1a8b5cb7fc59 (diff) | |
download | open-axiom-0b00c2ae8f58ce6d812f6ce3fbfecc19db7ffd3f.tar.gz |
* boot/initial-env.lisp (SIZE): Remove.
(MAKE-VEC): Likewise.
(MAKE-CVEC): Likewise.
Diffstat (limited to 'src/boot/strap/scanner.clisp')
-rw-r--r-- | src/boot/strap/scanner.clisp | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/boot/strap/scanner.clisp b/src/boot/strap/scanner.clisp index 42cb92e3..0fe763ad 100644 --- a/src/boot/strap/scanner.clisp +++ b/src/boot/strap/scanner.clisp @@ -545,16 +545,16 @@ (PROGN (SETQ |h| (QENUM |l| |i|)) (SETQ |u| (ELT |d| |h|)) - (SETQ |ll| (SIZE |l|)) + (SETQ |ll| (LENGTH |l|)) (SETQ |done| NIL) (SETQ |s1| "") - (LET ((|bfVar#2| (- (SIZE |u|) 1)) (|j| 0)) + (LET ((|bfVar#2| (- (LENGTH |u|) 1)) (|j| 0)) (LOOP (COND ((OR (> |j| |bfVar#2|) |done|) (RETURN NIL)) (T (PROGN (SETQ |s| (ELT |u| |j|)) - (SETQ |ls| (SIZE |s|)) + (SETQ |ls| (LENGTH |s|)) (SETQ |done| (COND ((< |ll| (+ |ls| |i|)) NIL) |