From a89a8ca3d80c101c7b681c2a97754df889685c8c Mon Sep 17 00:00:00 2001
From: pfdietz <pfdietz@localhost>
Date: Thu, 19 Jun 2003 13:07:46 +0000
Subject: [PATCH] Tests for array-nil strings and base strings for INTERN.

---
 ansi-tests/packages-04.lsp | 14 ++++++++++++++
 1 file changed, 14 insertions(+)

diff --git a/ansi-tests/packages-04.lsp b/ansi-tests/packages-04.lsp
index f9dabec1..63ab672f 100644
--- a/ansi-tests/packages-04.lsp
+++ b/ansi-tests/packages-04.lsp
@@ -48,6 +48,20 @@
 	       (progn (delete-package p) t))))))
   t)
 
+(deftest intern.3
+  (let ((cl-user-package (find-package "CL-USER")))
+    (eqt (intern "" cl-user-package)
+	 (intern (make-array 0 :element-type nil))))
+  t)
+
+(deftest intern.4
+  (let ((cl-user-package (find-package "CL-USER")))
+    (eqt (intern (make-array 5 :element-type 'character
+			     :initial-contents "XYZZY") cl-user-package)
+	 (intern (make-array 5 :element-type 'base-char
+			     :initial-contents "XYZZY") cl-user-package)))
+  t)
+
 (deftest intern.error.1
   (classify-error (intern))
   program-error)
-- 
GitLab