anchor.diff:            :finally (return id))))
   
   
  +
   (defparameter *authentication-key-path* '(:slot-id 0 :token "ECC MI" :id #xe828bd080fd2500000104d494f4300010101))
   (defparameter *signature-key-path*      '(:slot-id 1 :token "ECC MI" :id #xe828bd080fd2500000104d494f4300010103))
   
  
positive.code: ;; priv-key signature -> sign       (login)
  
  (defun get-public-key-value (path)
    (with-open-session (session (getf path :slot-id))
      (let* ((pub-key (object-handle session :class :public-key :token (getf path :token) :id (key-id (getf path :id))))
             (pub-key-value     (let ((attributes (object-get-all-attributes session pub-key)))
                                  (aget :value attributes))))
  
negative.code: 
  (defun test/repl (&key ((:slot-id *slot-id*) 0))
    (with-pkcs11
      (handler-case
          (with-open-session (*session* *slot-id*)
            (do-logged-in (*session* *slot-id*)
              (format t "~&Evaluate (done) to log out from the smartcard.~%")
              (com.informatimago.common-lisp.interactive.interactive:repl :reset-history nil)))
        (error (err) (princ err) (terpri)))))
  
  (defun test/all ()
    (test/string-to-utf-8)
  