Changeset 223

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

Version 12.

Files:
1 modified

Legend:

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

    r222 r223  
    473473(DEFMETHOD (AUTOEXPOSING-MORE-MIXIN :BEFORE :MORE-EXCEPTION) () 
    474474  (FUNCALL-SELF ':EXPOSE)) 
     475 
     476;;; Stream operations which all streams are required to support or ignore 
     477;;; I'm afraid these will appear in the :WHICH-OPERATIONS even though they 
     478;;; aren't "really supported" 
     479 
     480;These 3 are ignored since we don't have buffered output 
     481(DEFMETHOD (STREAM-MIXIN :CLEAR-OUTPUT) () 
     482  NIL) 
     483 
     484(DEFMETHOD (STREAM-MIXIN :FORCE-OUTPUT) () 
     485  NIL) 
     486 
     487(DEFMETHOD (STREAM-MIXIN :FINISH) () 
     488  NIL) 
     489 
     490(DEFMETHOD (STREAM-MIXIN :CLOSE) (&OPTIONAL IGNORE) 
     491  NIL) 
     492 
     493(DEFMETHOD (STREAM-MIXIN :LINE-IN) (&OPTIONAL LEADER) 
     494  (STREAM-DEFAULT-HANDLER SELF ':LINE-IN LEADER NIL)) 
    475495 
    476496(DEFFLAVOR GRAPHICS-MIXIN () ()