From cd93b4347be1a8f5312383bcb5a98f3ebbf6fd3b Mon Sep 17 00:00:00 2001
From: Mark Wooding <mdw@distorted.org.uk>
Date: Sun, 30 Aug 2015 10:58:38 +0100
Subject: [PATCH] dot/lisp-init.lisp: CMU CL already has a `search list' called
 `HOME'.

Zap it.
---
 dot/lisp-init.lisp | 1 +
 1 file changed, 1 insertion(+)

diff --git a/dot/lisp-init.lisp b/dot/lisp-init.lisp
index e060815..14bdac3 100644
--- a/dot/lisp-init.lisp
+++ b/dot/lisp-init.lisp
@@ -30,6 +30,7 @@
 	    ("SYS:CONTRIB;**;*.*.*" ,(#2# "contrib/**/*.*"))))))
 
 #+sbcl (require :sb-posix)
+#+cmu (ext:clear-search-list "HOME")
 #+(and unix (or sbcl cmu))
 (let ((#1=#:home (pathname (concatenate 'string
 					(or #+sbcl (sb-posix:getenv "HOME")
-- 
2.11.0