[closure-cvs] CVS update: closure/src/net/http.lisp

[Christophe Rhodes]

Update of /project/closure/cvsroot/closure/src/net
In directory common-lisp.net:/tmp/cvs-serv23472/src/net

Modified Files:
	http.lisp 
Log Message:
Make the broken-image work under sbcl.

* fix REALLY-PROBE-FILE, though we should probably be using some 
posixish functions instead of opening the file.

Date: Wed Jul 13 17:13:05 2005
Author: crhodes

Index: closure/src/net/http.lisp
diff -u closure/src/net/http.lisp:1.5 closure/src/net/http.lisp:1.6
--- closure/src/net/http.lisp:1.5	Sun Mar 13 19:02:19 2005
+++ closure/src/net/http.lisp	Wed Jul 13 17:13:05 2005
@@ -713,9 +713,10 @@
          (unwind-protect 
              (progn
                (setf stream (ignore-errors (open filename :direction :input
-                                                 :if-does-not-exist nil)))
+                                                 :element-type '(unsigned-byte 8)
+						 :if-does-not-exist nil)))
                (and stream
-                    (ignore-errors (read-char stream nil :eof))))
+                    (ignore-errors (read-byte stream nil :eof))))
            (when stream
              (close stream)) )) ))