/[gcl]/gcl/ansi-tests/random-intern.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/random-intern.lsp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch 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)

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26