Skip to content
Snippets Groups Projects
Commit a89a8ca3 authored by pfdietz's avatar pfdietz
Browse files

Tests for array-nil strings and base strings for INTERN.

parent 75b62cfd
No related branches found
No related tags found
No related merge requests found
......@@ -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)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment