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

Modified Files: clx-patch.lisp Log Message: OpenMCL support (from Dave Murray aka JQS)

Date: Thu Aug 25 17:14:15 2005 Author: crhodes

Index: closure/src/patches/clx-patch.lisp diff -u closure/src/patches/clx-patch.lisp:1.4 closure/src/patches/clx-patch.lisp:1.5 --- closure/src/patches/clx-patch.lisp:1.4 Sun Mar 13 19:02:58 2005 +++ closure/src/patches/clx-patch.lisp Thu Aug 25 17:14:15 2005 @@ -167,7 +167,7 @@ (get-host-name))

;;; GET-BEST-AUTHORIZATION - + #-openmcl (defun get-best-authorization (host display protocol) (labels ((read-short (stream &optional (eof-errorp t)) (let ((high-byte (read-byte stream eof-errorp nil)))