Mercurial > hg > xemacs-beta
view netinstall/simpsock.h @ 4728:d0ea57eb3de4
Don't error if handed a string and a non-string, #'equalp.
tests/ChangeLog addition:
2009-11-01 Aidan Kehoe <kehoea@parhasard.net>
* automated/lisp-tests.el:
Check that (equal "hi there" [hi there]) gives nil, instead of
erroring; fixes a bug Ben introduced in 2002.
lisp/ChangeLog addition:
2009-11-01 Aidan Kehoe <kehoea@parhasard.net>
* cl-extra.el (equalp):
Don't error if handed a string and a non-string.
author | Aidan Kehoe <kehoea@parhasard.net> |
---|---|
date | Sun, 01 Nov 2009 15:05:46 +0000 |
parents | 3078fd1074e8 |
children |
line wrap: on
line source
/* * Copyright (c) 2000, Red Hat, Inc. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License as published by * the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * A copy of the GNU General Public License can be found at * http://www.gnu.org/ * * Written by DJ Delorie <dj@cygnus.com> * */ /* Simplified socket access functions */ class SimpleSocket { SOCKET s; char *buf; int putp, getp; int fill (); public: SimpleSocket (char *hostname, int port); ~SimpleSocket (); int ok (); int printf (char *fmt, ...); int write (char *buf, int len); char *gets (); int read (char *buf, int len); };