Move COPY method definitions.

There were default `copy` method definitions in the file toolkit.lisp
that was loaded before the (macro-generated) `defgeneric` for `copy`,
in generator.lisp.

This made SBCL grumpy, so I moved the two `copy` method definitions
into generator.lisp.

generator.lisp

@@ -46,7 +46,7 @@
   (if *print-readably*
       (call-next-method)
       (print-unreadable-object (generator stream :type T)
-	(format stream "~s" (seed generator))))
+        (format stream "~s" (seed generator))))
   ;; P-U-O does not return the object, which PRINT-OBJECT is supposed to do.
   generator)
 
@@ -77,6 +77,18 @@
 (define-generator-fun bits-per-byte (generator))
 (define-generator-fun copy (generator))
 
+;;; supporting methods for COPY
+(defmethod copy ((thing number))
+  thing)
+
+(defmethod copy ((thing array))
+  (make-array (array-dimensions thing)
+              :element-type (array-element-type thing)
+              :fill-pointer (array-has-fill-pointer-p thing)
+              :adjustable (adjustable-array-p thing)
+              :initial-contents thing))
+
+
 (defun make-generator (type &optional (seed T) &rest initargs)
   (let ((generator (apply #'%make-generator type initargs)))
     (when seed (reseed generator seed))

toolkit.lisp

@@ -66,16 +66,6 @@
 (defmacro update (bits place op &rest args)
   `(setf ,place (fit-bits ,bits (,op ,place ,@args))))
 
-(defmethod copy ((thing number))
-  thing)
-
-(defmethod copy ((thing array))
-  (make-array (array-dimensions thing)
-              :element-type (array-element-type thing)
-              :fill-pointer (array-has-fill-pointer-p thing)
-              :adjustable (adjustable-array-p thing)
-              :initial-contents thing))
-
 (defun histogram (rng bins &key (samples (floor 1e8)) (width 80) (stream *standard-output*))
   (declare (notinline random))
   (check-type samples (unsigned-byte 64))