/[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.28 by dtc, Thu Jul 6 04:37:43 2000 UTC revision 1.29 by dtc, Thu Jul 6 05:41:28 2000 UTC
# Line 639  Line 639 
639                     (return-from print-allocated-objects (values)))                     (return-from print-allocated-objects (values)))
640    
641                   (unless count                   (unless count
642                     (let ((this-page (* (the (unsigned-byte 32)                     (let ((this-page (* (the (values (unsigned-byte 32) t)
643                                              (values (truncate addr pagesize)))                                              (truncate addr pagesize))
644                                         pagesize)))                                         pagesize)))
645                       (declare (type (unsigned-byte 32) this-page))                       (declare (type (unsigned-byte 32) this-page))
646                       (when (/= this-page last-page)                       (when (/= this-page last-page)

Legend:
Removed from v.1.28  
changed lines
  Added in v.1.29

  ViewVC Help
Powered by ViewVC 1.1.5