anchor.diff:  (defun test-rbm-examples ()
     ;; Constant one is easily solved with a single large weight.
     (assert (> 0.01 (test-rbm/single :sampler (constantly (flt 1))
  -                                   :max-n-stripes 7)))
  +                                   :max-n-stripes 1)))
     (assert (> 0.0001 (test-rbm/single :sampler (constantly (flt 1))
                                        :max-n-stripes 7
                                        :rank 1)))
  
positive.code: (in-package :mgl-test)
  
  (defclass test-trainer ()
    ((counter :initform (make-instance 'rmse-counter) :reader counter)))
  
  (defclass test-cd-trainer (test-trainer rbm-cd-trainer) ())
  
  
negative.code:                                       (make-instance 'constant-chunk
                                                       :name 'constant2)))
                                   ,(make-instance hidden-type
                                                   :name 'features
                                                   :size features-size))
                  :clouds (if rank
                              `(:merge
                                (:class factored-cloud
  