From edee87b62b7e03e30c459c1dbcf2198bfd05c5b6 Mon Sep 17 00:00:00 2001 From: Juan Jose Garcia Ripoll Date: Sun, 1 Jan 2012 19:31:22 +0100 Subject: [PATCH] Another THE->TRULY-THE change in evalmacros.lsp --- src/lsp/evalmacros.lsp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/lsp/evalmacros.lsp b/src/lsp/evalmacros.lsp index e6f84a0a9..fdb1ce434 100644 --- a/src/lsp/evalmacros.lsp +++ b/src/lsp/evalmacros.lsp @@ -246,7 +246,7 @@ FORM returns no value, NIL." (do ((vl vars (cdr vl)) (sym (gensym)) (forms nil) - (n 0 (the fixnum (1+ n)))) + (n 0 (truly-the fixnum (1+ n)))) ((endp vl) `(LET ((,sym (MULTIPLE-VALUE-LIST ,form))) ,@forms)) (declare (fixnum n)) (push `(SETQ ,(car vl) (NTH ,n ,sym)) forms)))