diff --git a/compiler/x86/alloc.lisp b/compiler/x86/alloc.lisp index 8379c1ddf5183ea2d8999810e75d86f51c300775..f32e123225f4293f2a1cde6b451ed578f8cacc25 100644 --- a/compiler/x86/alloc.lisp +++ b/compiler/x86/alloc.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/x86/alloc.lisp,v 1.12 2004/05/15 18:30:47 rtoy Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/x86/alloc.lisp,v 1.13 2005/05/10 16:32:41 rtoy Rel $") ;;; ;;; ********************************************************************** ;;; @@ -202,8 +202,8 @@ (:node-var node) (:generator 10 (with-fixed-allocation - (result value-cell-header-type value-cell-size node)) - (storew value result value-cell-value-slot other-pointer-type))) + (result value-cell-header-type value-cell-size node) + (storew value result value-cell-value-slot other-pointer-type))))