/[cmucl]/src/code/room.lisp
ViewVC logotype

Diff of /src/code/room.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.31 by toy, Wed Oct 15 15:24:23 2003 UTC revision 1.32 by rtoy, Tue Apr 13 13:21:52 2004 UTC
# Line 147  Line 147 
147  (declaim (inline round-to-dualword))  (declaim (inline round-to-dualword))
148  (defun round-to-dualword (size)  (defun round-to-dualword (size)
149    (declare (type memory-size size))    (declare (type memory-size size))
150    (logand (the memory-size (+ size lowtag-mask)) (lognot lowtag-mask)))    (logandc2 (the memory-size (+ size lowtag-mask)) lowtag-mask))
151    
152    
153  ;;; VECTOR-TOTAL-SIZE  --  Internal  ;;; VECTOR-TOTAL-SIZE  --  Internal

Legend:
Removed from v.1.31  
changed lines
  Added in v.1.32

  ViewVC Help
Powered by ViewVC 1.1.5