From 844fdb160e5ca3b9990bc4873893b63f7925453b Mon Sep 17 00:00:00 2001 From: jgarcia Date: Sat, 6 Jan 2007 15:22:28 +0000 Subject: [PATCH] Unbox all variables that are referenced at least once. --- src/cmp/cmpvar.lsp | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/src/cmp/cmpvar.lsp b/src/cmp/cmpvar.lsp index 2df8cd789..8ca304e63 100644 --- a/src/cmp/cmpvar.lsp +++ b/src/cmp/cmpvar.lsp @@ -138,10 +138,9 @@ (when (not (var-ref-clb var)) ;; if the variable can be stored locally, set it var-kind to its type (setf (var-kind var) - (if (> (var-ref var) 1) + (if (plusp (var-ref var)) (lisp-type->rep-type (var-type var)) - :OBJECT)))) - ) + :OBJECT))))) (defun c1var (name) (let ((vref (c1vref name)))