Correctly signal error for incorrect MAKE-PATHNAME TYPE

armedbear · Apr 3, 2024 · b5cb959 · b5cb959
1 parent a1320c5
commit b5cb959
Showing 1 changed file with 5 additions and 1 deletion.
diff --git 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));
+
             }
         }