Parent Directory | Revision Log | Patch
revision 1.1 by pfdietz, Thu Sep 26 16:53:38 2002 UTC | revision 1.2 by pfdietz, Sun Oct 13 15:53:24 2002 UTC | |
---|---|---|
# | Line 5 | Line 5 |
5 | ||
6 | (in-package :cl-test) | (in-package :cl-test) |
7 | ||
(defconstant | ||
+base-chars+ #.(concatenate 'string | ||
"abcdefghijklmnopqrstuvwxyz" | ||
"ABCDEFGHIJKLMNOPQRSTUVWXYZ" | ||
"0123456789" | ||
"<,>.?/\"':;[{]}~`!@#$%^&*()_-+= \\|")) | ||
(defconstant +num-base-chars+ (length +base-chars+)) | ||
8 | (defconstant +max-len-random-symbol+ 63) | (defconstant +max-len-random-symbol+ 63) |
9 | ||
10 | (defun make-random-symbol (package) | (defun make-random-symbol (package) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |