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

Diff of /slime/swank-scl.lisp

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

revision 1.7 by dcrosher, Thu Apr 13 04:26:31 2006 UTC revision 1.8 by dcrosher, Sun Jun 11 11:02:08 2006 UTC
# Line 305  Line 305 
305  ;;; usage this reduces consing.  As the string grows larger then grow to  ;;; usage this reduces consing.  As the string grows larger then grow to
306  ;;; reduce the cost of copying strings around.  ;;; reduce the cost of copying strings around.
307  ;;;  ;;;
308  (defmethod ext:stream-write-chars ((stream slime-output-stream) string start end)  (defmethod ext:stream-write-chars ((stream slime-output-stream)
309                                       string start end waitp)
310    (declare (simple-string string)    (declare (simple-string string)
311             (type kernel:index start end))             (type kernel:index start end)
312               (ignore waitp))
313    (declare (optimize (speed 3)))    (declare (optimize (speed 3)))
314    (unless (ext:stream-open-p stream)    (unless (ext:stream-open-p stream)
315      (error 'kernel:simple-stream-error      (error 'kernel:simple-stream-error
# Line 334  Line 336 
336                    (let ((column (slot-value stream 'column)))                    (let ((column (slot-value stream 'column)))
337                      (declare (type kernel:index column))                      (declare (type kernel:index column))
338                      (+ column (- end start))))))))                      (+ column (- end start))))))))
339    string)    (- end start))
340    
341  ;;;  ;;;
342    

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

  ViewVC Help
Powered by ViewVC 1.1.5