mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-04 00:11:37 -08:00
Code Issues Projects Releases Packages Wiki Activity

Unbox all variables that are referenced at least once.

Browse source
This commit is contained in:
jgarcia 2007-01-06 15:22:28 +00:00
parent d2bc1e2b32
commit 844fdb160e
1 changed files with 2 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

5
src/cmp/cmpvar.lsp
View file

@ -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)))