Changeset 225


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

Version 14.

File:
1 edited

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) ()
Note: See TracChangeset for help on using the changeset viewer.