From 62d12c1f34abd2aaa7e41a480f9cc3d1c651531a Mon Sep 17 00:00:00 2001 Message-Id: <62d12c1f34abd2aaa7e41a480f9cc3d1c651531a.1746823343.git.mdw@distorted.org.uk> From: Mark Wooding Date: Wed, 8 Oct 2008 12:59:00 +0100 Subject: [PATCH] lisp-init.lisp: Make the CLisp namestring parsing less mad. Organization: Straylight/Edgeware From: Mark Wooding The default behaviour has some crazy hacks for demented Micro$oft operating systems, in particular distinguishing drive letters from logical pathname hosts. --- lisp-init.lisp | 3 +++ 1 file changed, 3 insertions(+) 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"))) -- [mdw]