[closure-cvs] CVS update: closure/src/patches/clx-patch.lisp

[Christophe Rhodes]

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