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)) )) ))