From: Mark Wooding <mdw@distorted.org.uk>
Date: Wed, 8 Oct 2008 11:59:00 +0000 (+0100)
Subject: lisp-init.lisp: Make the CLisp namestring parsing less mad.
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/profile/commitdiff_plain/62d12c1f34abd2aaa7e41a480f9cc3d1c651531a?ds=sidebyside

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
--- 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)
 
+;; 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")))