From b5783caed91bcd13c4b8277b875800929bbf6e2e Mon Sep 17 00:00:00 2001
From: rtoy <rtoy>
Date: Mon, 13 Dec 2004 15:12:54 +0000
Subject: [PATCH] A directory component containing :WILD was not being handled
 correctly when converting to a namestring.

Bug and fix from Artem V. Andreev, cmucl-imp, 2004-12-12.
---
 code/filesys.lisp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/code/filesys.lisp b/code/filesys.lisp
index d2a2a26c6..fce3aa60f 100644
--- a/code/filesys.lisp
+++ b/code/filesys.lisp
@@ -6,7 +6,7 @@
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/filesys.lisp,v 1.84 2004/10/18 16:57:33 rtoy Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/filesys.lisp,v 1.85 2004/12/13 15:12:54 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -421,7 +421,7 @@
 	   (error ":BACK cannot be represented in namestrings."))
 	  ((member :wild-inferiors)
 	   (pieces "**/"))
-	  ((or simple-string pattern)
+	  ((or simple-string pattern (eql :wild))
 	   (pieces (unparse-unix-piece dir))
 	   (pieces "/"))
 	  (t
-- 
GitLab