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