Parent Directory | Revision Log | Patch
revision 1.8 by pfdietz, Thu Jun 19 13:07:46 2003 UTC | revision 1.9 by pfdietz, Sat Jun 28 16:39:04 2003 UTC | |
---|---|---|
# | Line 51 | Line 51 |
51 | (deftest intern.3 | (deftest intern.3 |
52 | (let ((cl-user-package (find-package "CL-USER"))) | (let ((cl-user-package (find-package "CL-USER"))) |
53 | (eqt (intern "" cl-user-package) | (eqt (intern "" cl-user-package) |
54 | (intern (make-array 0 :element-type nil)))) | (intern (make-array 0 :element-type nil) cl-user-package))) |
55 | t) | t) |
56 | ||
57 | (deftest intern.4 | (deftest intern.4 |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |