From 7802543f2ddf7dafc9aa36731d4ad4907abb4890 Mon Sep 17 00:00:00 2001
From: jjgarcia <jjgarcia>
Date: Fri, 9 Jan 2004 13:46:37 +0000
Subject: [PATCH] Small optimization

---
 src/c/pathname.d | 6 +-----
 1 file changed, 1 insertion(+), 5 deletions(-)

diff --git a/src/c/pathname.d b/src/c/pathname.d
index 256ea58ba..bf4a3e20e 100644
--- a/src/c/pathname.d
+++ b/src/c/pathname.d
@@ -1123,16 +1123,12 @@ coerce_to_from_pathname(cl_object x, cl_object host)
 	switch (type_of(x)) {
 	case t_string:
 		x = cl_parse_namestring(2, x, host);
-		break;
 	case t_pathname:
 		if (x->pathname.logical)
 			return x;
 	default:
-		return Cnil;
-	}
-	if (type_of(x) != t_pathname || !x->pathname.logical)
 		FEerror("~S is not a valid from-pathname translation", 1, x);
-	return x;
+	}
 }
 
 @(defun si::pathname_translations (host &optional (set OBJNULL))