anchor.diff:                                        :g (make-instance 'Point :x 23 :y 65)
                                         :n 65
                                         :h 23))
  -  (assert-error 'invalid-type-error (make-instance 'cl-ecc::Curve
  -                                                  :a 23
  -                                                  :b 2
  -                                                  :p 23
  -                                                  :g 25
  -                                                  :n 32
  -                                                  :h 1))
  -  (assert-error 'invalid-type-error (make-instance 'cl-ecc::Curve
  -                                                   :a 23
  -                                                   :b 2
  -                                                   :p 23
  -                                                   :g (make-instance 'Point :x 34 :y 76)
  -                                                   :n 32.5
  -                                                   :h 1))
  -  (assert-error 'type-error (make-instance 'cl-ecc::Curve
  -                                           :a 23
  -                                           :b 2
  -                                           :p "af3"
  -                                           :g (make-instance 'Point :x 34 :y 76)
  -                                           :n 32
  -                                           :h 1))
  +
  +
  +
     (assert-error 'simple-error (make-instance 'cl-ecc::Curve
                                              :a 23
                                              :b 2
                                              :p "4tshgbfg"
                                              :g (make-instance 'Point :x 34 :y 76)
                                              :n 32
  -                                           :h 1))
  -
  -  (assert-error 'invalid-type-error (make-instance 'cl-ecc::Curve
  -                                                   :a 10 :b 20 :p 30 :g 0 :n 40 :h 1))
  -  (assert-error 'unbound-slot (make-instance 'cl-ecc::Curve
  -                                                   :b 20 :p 30 :g 0 :n 40 :h 1))
  -  (assert-error 'unbound-slot (make-instance 'cl-ecc::Curve
  -                                             :a 10 :b 20 :p 30 :g 0 :h 1)))
  +                                           :h 1)))
  
positive.code:   (assert-typep 'key (make-instance 'Private-Key
                                      :key "af7654"))
    (assert-typep 'key (make-instance 'Private-Key
                                      :key (ironclad:integer-to-octets 2345675432)))
    (assert-error 'invalid-type-error (make-instance 'Private-Key
                                                     :key 'wefd))
    (assert-error 'unbound-slot (make-instance 'Private-Key)))
  
  (define-test ecc-tests::point-init
      (:tags '(basic init point))
  
negative.code:   (assert-typep 'Point (make-instance 'Point
                                        :x (ironclad:integer-to-octets 23)
                                        :y "a2"))
  
    (assert-error 'type-error (make-instance 'Point
                                             :x "a2f"
                                             :y 32))
    (assert-error 'simple-error (make-instance 'Point
                                               :x "ba4j"
                                               :y 15))
    (assert-error 'unbound-slot (y (make-instance 'Point :x 34)))
    (assert-error 'unbound-slot (x (make-instance 'Point :y 22))))
  
  
  (define-test ecc-tests::curve-init
  