[CM] defvar global list

[James Hearon]

Hi,
Thank you folks for the hints.  I think I may have it working now using setf.

(defun random-element (list)
  (nth (random (length list)) list))

(defvar mylist '(0.5  100.0  200.25  4000.0 1.0  0.33 0.1 0.2 5000.0 2.0))

(defvar *test* '(nil))  ;global list

(loop
   for i from 0 to 9  by 1
        for xx in mylist collect (random-element mylist) into atest ;collect into local list
    finally  (setf *test* atest) ;setf local list to global one
     )

(loop
   for i from 0 to 9  by 1
     for xx in *test*  ;access global list
   do
     (format t " ~A" xx)
  )
 		 	   		  
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://ccrma-mail.stanford.edu/mailman/private/cmdist/attachments/20141229/cee3596e/attachment.html