anchor.diff:             "DESTROY-OBJECT" "GET-OBJECT-SIZE" "GET-ATTRIBUTE-VALUE"
              "SET-ATTRIBUTE-VALUE" "FIND-OBJECTS-INIT" "FIND-OBJECTS"
              "FIND-OBJECTS-FINAL" "FIND-ALL-OBJECTS" "OBJECT-GET-ALL-ATTRIBUTES"
  +           "OBJECT-GET-ATTRIBUTES"
              "SEED-RANDOM" "GENERATE-RANDOM" "LOAD-LIBRARY"
              "CALL-LOGGED-IN" "DO-LOGGED-IN")
   
  
positive.code:   ;; mechanism is either a mechanism-type integer or keyword, or a list (mechanism-type parameter parameter-length)
    (check-type mechanism mechanism)
    (setf (foreign-slot-value fmechanism '(:struct %ck:mechanism) '%ck:mechanism)     (mechanism-type :encode (if (listp mechanism) (first mechanism) mechanism))
          (foreign-slot-value fmechanism '(:struct %ck:mechanism) '%ck:parameter)     (or (when (listp mechanism) (second parameter))  (null-pointer))
          (foreign-slot-value fmechanism '(:struct %ck:mechanism) '%ck:parameter-len) (or (when (listp mechanism) (third  parameter))  0)))
  
  (defmacro define-pkcs11-initializing-function (name low-name c-name &key (keyp t))
    `(defun ,name (session mechanism ,@(when keyp `(key)))
  
negative.code:                     (base-ltype (base-ltype-p ltype))
                      (len (attr-> attribute %ck:value-len))
                      (val (attr-> attribute %ck:value)))
                 (if (or (unavailable-information-p type)
                         (invalid-pointer-p val)
                         (unavailable-information-p len))
                     :unavailable-information
                     (case base-ltype
                       ((:ulong)
                        (assert (= (foreign-type-size :ulong) len))
                        (mem-ref val :ulong))
                       ((:bool)
                        (if (zerop len)
                            0 ; libiaspkcs11 returns 0-length values…
                            (progn
                              (assert (= (foreign-type-size :uchar) len))
                              (mem-ref val :uchar))))
                       ((:bytes :bytes-noint :big-integer)
                        (foreign-vector-copy-to val :uchar len (make-array len :element-type 'octet)))
                       ((:string)
  