/[slime]/slime/swank-gray.lisp
ViewVC logotype

Diff of /slime/swank-gray.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.6 by heller, Sun Sep 19 06:11:14 2004 UTC revision 1.7 by heller, Wed Jan 19 18:28:37 2005 UTC
# Line 66  Line 66 
66    
67  (defmethod stream-unread-char ((s slime-input-stream) char)  (defmethod stream-unread-char ((s slime-input-stream) char)
68    (with-slots (buffer index) s    (with-slots (buffer index) s
69      (setf (aref buffer (decf index)) char))      (decf index)
70        (cond ((eql (aref buffer index) char)
71               (setf (aref buffer index) char))
72              (t
73               (warn "stream-unread-char: ignoring ~S (expected ~S)"
74                     char (aref buffer index)))))
75    nil)    nil)
76    
77  (defmethod stream-clear-input ((s slime-input-stream))  (defmethod stream-clear-input ((s slime-input-stream))

Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7

  ViewVC Help
Powered by ViewVC 1.1.5