This patch
* moves a misplaced (disabled) conditionally-compiled extra test to
where it ought to be, in unread-char.
* fixes some whitespace
[ François-René ÐVB Rideau | Reflection&Cybernethics | http://fare.tunes.org ]
The American Republic will endure, until politicians realize they can
bribe the people with their own money. -- Alexis de Tocqueville
diff -rN -u old-iolib/sockets/buffer.lisp new-iolib/sockets/buffer.lisp
--- old-iolib/sockets/buffer.lisp 2007-04-25 11:41:06.062045821 -0400
+++ new-iolib/sockets/buffer.lisp 2007-04-25 11:41:06.102047755 -0400
@@ -60,7 +60,7 @@
(defun iobuf-reset (iobuf)
(setf (iobuf-start iobuf) 0
- (iobuf-end iobuf) 0))
+ (iobuf-end iobuf) 0))
(defun iobuf-copy-data-to-start (iobuf)
(declare (type iobuf iobuf))
diff -rN -u old-iolib/sockets/gray-stream-methods.lisp new-iolib/sockets/gray-stream-methods.lisp
--- old-iolib/sockets/gray-stream-methods.lisp 2007-04-25 11:41:06.066046014 -0400
+++ new-iolib/sockets/gray-stream-methods.lisp 2007-04-25 11:41:06.106047948 -0400
@@ -255,11 +255,6 @@
(defun %stream-unread-char (stream)
;; unreading anything but the latest character is wrong,
;; but checking is not mandated by the standard
- #+super-anal-checks
- (progn
- (%stream-unread-char stream)
- (unless (ignore-errors (eql (stream-read-char stream) character))
- (error "Trying to unread wrong character ~S" character)))
(declare (type active-socket stream))
(with-slots ((ib input-buffer) (unread-index ibuf-unread-index)) stream
(symbol-macrolet ((start (iobuf-start ib)))
@@ -271,6 +266,12 @@
nil)
(defmethod stream-unread-char ((stream active-socket) character)
+ #+super-anal-checks
+ (progn
+ (%stream-unread-char stream)
+ (unless (ignore-errors (eql (stream-read-char stream) character))
+ (error "Trying to unread wrong character ~S" character)))
+ #-super-anal-checks
(declare (ignore character))
(%stream-unread-char stream))
_______________________________________________
iolib-devel mailing list
[email protected]
http://common-lisp.net/cgi-bin/mailman/listinfo/iolib-devel
