/[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.27 by dtc, Fri Jul 24 17:17:55 1998 UTC revision 1.28 by dtc, Thu Jul 6 04:37:43 2000 UTC
# Line 640  Line 640 
640    
641                   (unless count                   (unless count
642                     (let ((this-page (* (the (unsigned-byte 32)                     (let ((this-page (* (the (unsigned-byte 32)
643                                              (truncate addr pagesize))                                              (values (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.27  
changed lines
  Added in v.1.28

  ViewVC Help
Powered by ViewVC 1.1.5