Parent Directory | Revision Log | Patch
revision 1.6 by pfdietz, Thu Mar 6 02:25:20 2003 UTC | revision 1.7 by pfdietz, Wed Jun 18 13:11:11 2003 UTC | |
---|---|---|
# | Line 76 | Line 76 |
76 | )) | )) |
77 | t) | t) |
78 | ||
79 | (deftest make-string.10 | |
80 | (let ((s (make-string 0 :element-type nil))) | |
81 | (values | |
82 | (notnot (stringp s)) | |
83 | (eqlt (length s) 0) | |
84 | (equalt s ""))) | |
85 | t t t) | |
86 | ||
87 | ;;; Keyword tests | ;;; Keyword tests |
88 | ; | ; |
89 | (deftest make-string.allow-other-keys.1 | (deftest make-string.allow-other-keys.1 |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |