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 2253aab..8da623d 100644 (file)
--- a/lisp-init.lisp
+++ b/lisp-init.lisp
@@ -8,6 +8,9 @@
 (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")))