lisp-init.lisp: Make the CLisp namestring parsing less mad.

The default behaviour has some crazy hacks for demented Micro$oft
operating systems, in particular distinguishing drive letters from
logical pathname hosts.

diff --git a/lisp-init.lisp b/lisp-init.lisp
index 2253aab2453ccd0a21bd835557bffbc66f02f46a..8da623d5e28f474e6a5906257a3f23835eca6366 100644 (file)
--- a/lisp-init.lisp
+++ b/lisp-init.lisp
@@ -8,6 +8,9 @@ (setf *load-verbose* nil)
 (setf *compile-verbose* nil)
 #+cmu (setf *gc-verbose* nil)
 
 (setf *compile-verbose* nil)
 #+cmu (setf *gc-verbose* nil)
 

+;; Various fixings.
+#+clisp (setf custom:*parse-namestring-ansi* t)
+

 ;; Start up swank.
 (defun mdw-hacks:crank-swank (&rest #1=#:args)
   (let ((#2=#:swank #3=(find-package "SWANK")))
 ;; Start up swank.
 (defun mdw-hacks:crank-swank (&rest #1=#:args)
   (let ((#2=#:swank #3=(find-package "SWANK")))