diff --git a/ansi-tests/packages-04.lsp b/ansi-tests/packages-04.lsp index f9dabec14ebf471500b9eddb73252409a0c708d1..63ab672faf7e791c599d0d9b3ed85f1b7e10ad17 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)