[Eclipse-cvs] CVS eclipse/lib/ice - eclipse-cvs@common-lisp.net - mailman3.common-lisp.net

18 Nov 2009

Update of /project/eclipse/cvsroot/eclipse/lib/ice
In directory cl-net:/tmp/cvs-serv15191/lib/ice
Modified Files:
    ICE-lib.lisp 
Log Message:
Fix: sbcl bug ...

--- /project/eclipse/cvsroot/eclipse/lib/ice/ICE-lib.lisp	2009/11/03 11:41:52	1.14
+++ /project/eclipse/cvsroot/eclipse/lib/ice/ICE-lib.lisp	2009/11/18 18:01:02	1.15
@@ -1,5 +1,5 @@
 ;;; -*- Mode: Lisp; Syntax: Common-Lisp; Package: ICE-LIB; -*-
-;;; $Id: ICE-lib.lisp,v 1.14 2009/11/03 11:41:52 ihatchondo Exp $
+;;; $Id: ICE-lib.lisp,v 1.15 2009/11/18 18:01:02 ihatchondo Exp $
 ;;; ---------------------------------------------------------------------------
 ;;;     Title: ICE Library
 ;;;   Created: 2004 01 15 15:28
@@ -106,7 +106,7 @@
(defmethod read-request ((ice-connection ice-connection))
   (with-slots (input-buffer input-byte-order stream) ice-connection
-    (declare (type (or null buffer) input-buffer))
+    #-:sbcl(declare (type (or null buffer) input-buffer))
     (setf input-buffer (make-buffer 4096 input-byte-order))
     (buffer-read-sequence input-buffer stream :start 0 :end 8)
     (setf (buffer-index input-buffer) 4)

    