Hi all,
I had a problem with the last version of slime (the one used by
quickload) and the cvs of ecl.
Ecl generates a memory condition in "cl-peek-char".
I fixed it adding the :element-type key to the socket-accept function
in the swank-ecl.lisp.
-----------------------------------------------------------------------------
(defimplementation accept-connection (socket
&key external-format
buffering timeout)
(declare (ignore timeout))
(sb-bsd-sockets:socket-make-stream (accept socket)
:output t
:input t
:buffering (ecase buffering
((t) :full)
((nil) :none)
(:line line))
:external-format external-format
:element-type '(unsigned-byte 8)))
------------------------------------------------------------------------
You can test the bug using the following code:
----------------
(defun accept-connection (socket)
(sb-bsd-sockets:socket-make-stream
(sb-bsd-sockets:socket-accept socket)
:output t
:input t
:buffering :full
:external-format nil
; :element-type '(unsigned-byte 8)))
))
(defun resolve-hostname (name)
(car (sb-bsd-sockets:host-ent-addresses
(sb-bsd-sockets:get-host-by-name name))))
(defun create-socket ()
(let ((socket (make-instance 'sb-bsd-sockets:inet-socket
:type :stream
:protocol :tcp)))
(setf (sb-bsd-sockets:sockopt-reuse-address socket) t)
(sb-bsd-sockets:socket-bind socket (resolve-hostname "127.0.0.1") 5000)
(sb-bsd-sockets:socket-listen socket 1)
socket))
(defun test ()
(let ((socket (create-socket)))
(format t "created~%")
(let ((stream (accept-connection socket))
(length 5))
(format t "accepted~%")
(let* ((buffer (make-array length
:initial-element 0
:element-type '(unsigned-byte 8)))
(count (read-sequence buffer stream)))
(format t "~A~%" buffer)))
(sb-bsd-sockets:socket-close socket)))
(test)
---------------
Best Regards,
Alessandro
--
The basic tool for the manipulation of reality is the manipulation of
words. If you can control the meaning of words, you can control the
people who must use the words.
How To Build A Universe That Doesn't Fall Apart Two
Days Later
Philip K. Dick
------------------------------------------------------------------------------
RSA(R) Conference 2012
Mar 27 - Feb 2
Save $400 by Jan. 27
Register now!
http://p.sf.net/sfu/rsa-sfdev2dev2
_______________________________________________
Ecls-list mailing list
Ecls-list@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/ecls-list
