[cl-plus-ssl-devel] Simple test failed in ECL

[Anton Vodonosov]

Hello.

I am sorry to see the message is without reply. But I myself can't help here.

If you are interested to have it running on ECL, you may investigate
whether it's a but in ECL (maybe FFI problem?).

What version of ECL do you use? You may try with another version
(older, newer), and if it works with another version, than we know
the ECL version you use now is broken.

Best regards,
- Anton

03.09.2012, 11:38, "Rafael Jesús Alcántara Pérez" <ralcantara at dedaloingenieros.com>:
> -----BEGIN PGP SIGNED MESSAGE-----
> Hash: SHA1
>
> Hi all:
>
> I'm trying to use usocket and cl+ssl with ECL but I have failed to run
> the attached test (it fails raising a SEGMENTATION-VIOLATION condition
> when evaluating make-ssl-client-stream).
>
> By the way, the test runs fine on, at least, SBCL :)
>
> Greets and thanks in advance.
> - --
> +----------
> | Rafael Jesús Alcántara Pérez <ralcantara at dedaloingenieros.com>
> | Director Técnico.
> | Teléfono fijo: 952 602 959
> | Fax: 952 602 959
> | Dirección: C/ Afligidos 2, 3º Derecha, 29015 Málaga
> | Dédalo Ingenieros, S.L.: http://www.dedaloingenieros.com/
> | PGP: http://pgp.rediris.es:11371/pks/lookup?op=index&search=0x53F330AB
> +---------------------
> "For every complex problem there is a solution that is concise, clear,
> simple, and wrong." (H. L. Mencken)
> -----BEGIN PGP SIGNATURE-----
> Version: GnuPG v1.4.11 (GNU/Linux)
> Comment: Using GnuPG with Mozilla - http://www.enigmail.net/
>
> iEYEARECAAYFAlBEXloACgkQyR3/fFPzMKueRACgmwY89gk3EMOZ7PFZdTIHmWuk
> NzYAn1vHvv55vnNLTeZuCQOO5tLvAFcI
> =VtUy
> -----END PGP SIGNATURE-----
>
> ,
> (ql:quickload "usocket")
> (ql:quickload "cl+ssl")
>
> (defun test-ssl-sockets ()
>   (let (stream-usocket ssl-stream)
>     (format *debug-io* "connect: trying to connect to www.google.es...~%")
>     (setf stream-usocket (usocket:socket-connect
>                           "www.google.es"
>                           443
>                           :element-type '(unsigned-byte 8)))
>     (format *debug-io* "connect: socket-stream is ~a.~%" (usocket:socket-stream stream-usocket))
>     (setf ssl-stream (cl+ssl:make-ssl-client-stream
>                       (usocket:socket-stream stream-usocket)
>                       :external-format :utf-8))
>     (format *debug-io* "connect: ssl-stream is ~a.~%" ssl-stream)))
>
> (test-ssl-sockets)
>
> ,
> _______________________________________________
> cl-plus-ssl-devel mailing list
> cl-plus-ssl-devel at common-lisp.net
> http://lists.common-lisp.net/cgi-bin/mailman/listinfo/cl-plus-ssl-devel