Changeset 225

Show
Ignore:
Timestamp:
08/18/11 05:23:04 (3 years ago)
Author:
rjs
Message:

Version 14.

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • trunk/lisp/lmwin/stream.lisp

    r224 r225  
    8888    (OTHERWISE 
    8989      (FERROR NIL "~S is not a known unit." UNITS))) 
    90   (SHEET-INCREMENT-BITPOS SELF DX DY)) 
     90  (PREPARE-SHEET (SELF) 
     91    (OR (ZEROP (SHEET-EXCEPTIONS)) (SHEET-HANDLE-EXCEPTIONS SELF)) 
     92    (SHEET-INCREMENT-BITPOS SELF DX DY))) 
    9193 
    9294(DEFMETHOD (STREAM-MIXIN :BASELINE) ()