Marin Atanasov Nikolov dnaeon
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| diff --git a/swank/sbcl.lisp b/swank/sbcl.lisp | |
| index a09e04b3..78038659 100644 | |
| --- a/swank/sbcl.lisp | |
| +++ b/swank/sbcl.lisp | |
| @@ -979,7 +979,8 @@ QUALITIES is an alist with (quality . value)" | |
| (make-location `(:file ,(namestring | |
| (translate-logical-pathname pathname))) | |
| '(:position 1) | |
| - (when (eql type :function) | |
| + (when (and (eql type :function) |
dnaeon
/ decode-rsa-private-key.lisp
Last active
November 30, 2022 05:52
Parse ASN.1 encoded RSA private key
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| ;; Decode ASN.1 encoded private key | |
| ;; | |
| ;; RSA private key format: https://www.rfc-editor.org/rfc/rfc3447#appendix-A.1.2 | |
| ;; | |
| ;; RSAPrivateKey ::= SEQUENCE { | |
| ;; version Version, | |
| ;; modulus INTEGER, -- n | |
| ;; publicExponent INTEGER, -- e | |
| ;; privateExponent INTEGER, -- d | |
| ;; prime1 INTEGER, -- p |
OlderNewer