patch Modules/sockets.lisp

Modules/sockets.lisp
CCL 2.01
Win98 SE

-----------------------------------------------
replace or change the definition of 'new-write-line' like this :

;; add 0 as default value of start, ctu : 2003-08-21
(defun new-write-line (string &optional output-stream &key (start 0) 
end)
  "Replacement for Corman Lisp WRITE-LINE to work with socket streams 
correctly."
  (let ((string (if (and output-stream (eq (cl::stream-subclass 
output-stream) 'socket-stream))
		    (concatenate 'string string (list #\Return))
		  string)))
     ;; :start & :end was missing - ctu : 2003-08-21
    (funcall old-write-line string output-stream :start start :end 
end)))

-----------------------------------------------

with this, the second example now works. I will check the others 
tomorrow.

@+



------------------------ Yahoo! Groups Sponsor ---------------------~-->
Buy Ink Cartridges or Refill Kits for Your HP, Epson, Canon or Lexmark
Printer at Myinks.com. Free s/h on orders $50 or more to the US & Canada. http://www.c1tracking.com/l.asp?cid=5511
http://us.click.yahoo.com/l.m7sD/LIdGAA/qnsNAA/SyjtlB/TM
---------------------------------------------------------------------~->

To unsubscribe from this group, send an email to:
[email protected]

 

Your use of Yahoo! Groups is subject to http://docs.yahoo.com/info/terms/