anchor.diff:    (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)))
  +                                    :key (ironclad:integer-to-octets 2345675432))))
   
   (define-test ecc-tests::point-init
       (:tags '(basic init point))
  
positive.code:                                       :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)))
  
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
  