From b5cb959e145387d28410493d4fdeda1b2d9a2e70 Mon Sep 17 00:00:00 2001
From: Mark Evenson <evenson.not.org@gmail.com>
Date: Fri, 9 Feb 2024 11:41:31 +0100
Subject: [PATCH] Correctly signal error for incorrect MAKE-PATHNAME TYPE

---
 src/org/armedbear/lisp/Pathname.java | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/src/org/armedbear/lisp/Pathname.java b/src/org/armedbear/lisp/Pathname.java
index e9a3af304..19b6acd96 100644
--- a/src/org/armedbear/lisp/Pathname.java
+++ b/src/org/armedbear/lisp/Pathname.java
@@ -581,7 +581,11 @@ public String getNamestring() {
             } else if (getType() == Keyword.WILD) {
                 sb.append('*');
             } else {
-                Debug.assertTrue(false);
+              type_error("TYPE is not a string, :UNSPECIFIC, NIL, or :WILD.",
+                         getType(),
+                         list(Symbol.OR,
+                              Symbol.STRING, Keyword.UNSPECIFIC, NIL, Keyword.WILD));
+
             }
         }