((/security/jfkr/diffie-helman.lisp::compute-public-dh-value (nil nil nil (mod) nil nil nil) ((b) nil nil (expt) nil nil nil) ((g exponent-value) nil nil nil nil nil nil) (nil nil nil nil nil nil nil) (nil nil nil nil nil nil nil) (nil nil nil nil nil nil nil) (nil nil nil nil nil nil nil)) (/security/jfkr/diffie-helman.lisp::compute-dh-key (nil nil nil (mod) nil nil nil) ((b) nil nil (expt) nil nil nil) ((a-public-exponentiation a-private-value) nil nil nil nil nil nil) (nil nil nil nil nil nil nil) (nil nil nil nil nil nil nil) (nil nil nil nil nil nil nil) (nil nil nil nil nil nil nil)) (/security/jfkr/diffie-helman.lisp::session-key-requires-one-part-of-key (nil nil nil (implies) nil nil nil) (nil nil nil (let) nil nil nil) (nil nil (force force force force force force force force force force not not) ((x-public-value (compute-public-dh-value g x-exponent b)) and) nil nil nil) (nil nil (integerp integerp integerp integerp integerp y-public-value session-key not not) (<= <= <= <= <= equal equal) nil nil nil) ((g g b b x-exponent x-exponent y-exponent y-exponent i-exponent i-exponent i-exponent x-exponent i-exponent y-exponent) (1 1 1 1 1) nil (equal equal) (compute-public-dh-value compute-dh-key) nil nil) ((g y-exponent b y-exponent b session-key session-key) nil nil nil (compute-public-dh-value compute-dh-key compute-dh-key) nil nil) ((g x-exponent b x-public-value i-exponent b y-public-value i-exponent b) nil nil nil nil nil nil)))