Parent Directory | Revision Log | Patch
revision 1.9 by pfdietz, Sat Jun 28 16:39:04 2003 UTC | revision 1.10 by pfdietz, Sun Jul 27 03:47:37 2003 UTC | |
---|---|---|
# | Line 49 | Line 49 |
49 | t) | t) |
50 | ||
51 | (deftest intern.3 | (deftest intern.3 |
52 | :notes (:nil-vectors-are-strings) | |
53 | (let ((cl-user-package (find-package "CL-USER"))) | (let ((cl-user-package (find-package "CL-USER"))) |
54 | (eqt (intern "" cl-user-package) | (eqt (intern "" cl-user-package) |
55 | (intern (make-array 0 :element-type nil) cl-user-package))) | (intern (make-array 0 :element-type nil) cl-user-package))) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |