diff options
| author | Guillaume Le Vaillant <glv@posteo.net> | 2020-09-03 15:31:45 +0200 |
|---|---|---|
| committer | Guillaume Le Vaillant <glv@posteo.net> | 2020-09-03 15:31:45 +0200 |
| commit | 3c14170325b5f49e026b4ad9618d165b6528a281 (patch) | |
| tree | f98226f90a2a13a263f276cf602fe586e691e128 /src | |
| parent | 2139d2b8b703181701d2608357fdaf630c7f5711 (diff) | |
Make list-all-* functions return list of keywords
Diffstat (limited to 'src')
| -rw-r--r-- | src/aead/aead.lisp | 2 | ||||
| -rw-r--r-- | src/ciphers/cipher.lisp | 2 | ||||
| -rw-r--r-- | src/digests/digest.lisp | 2 | ||||
| -rw-r--r-- | src/macs/mac.lisp | 2 |
4 files changed, 4 insertions, 4 deletions
diff --git a/src/aead/aead.lisp b/src/aead/aead.lisp index 4d0e856..c7f12cd 100644 --- a/src/aead/aead.lisp +++ b/src/aead/aead.lisp @@ -24,7 +24,7 @@ make-authenticated-encryption-mode." (loop for symbol being each external-symbol of (find-package :ironclad) if (aeadp symbol) - collect symbol into ciphers + collect (intern (symbol-name symbol) :keyword) into ciphers finally (return (sort ciphers #'string<)))) (defun authenticated-encryption-mode-supported-p (name) diff --git a/src/ciphers/cipher.lisp b/src/ciphers/cipher.lisp index 62120f7..89ae007 100644 --- a/src/ciphers/cipher.lisp +++ b/src/ciphers/cipher.lisp @@ -239,7 +239,7 @@ (defun list-all-ciphers () (loop for symbol being each external-symbol of (find-package :ironclad) if (%find-cipher symbol) - collect symbol into ciphers + collect (intern (symbol-name symbol) :keyword) into ciphers finally (return (sort ciphers #'string<)))) (defun cipher-supported-p (name) diff --git a/src/digests/digest.lisp b/src/digests/digest.lisp index 9c25361..1cda0e6 100644 --- a/src/digests/digest.lisp +++ b/src/digests/digest.lisp @@ -325,7 +325,7 @@ (defun list-all-digests () (loop for symbol being each external-symbol of (find-package :ironclad) if (digestp symbol) - collect symbol into digests + collect (intern (symbol-name symbol) :keyword) into digests finally (return (sort digests #'string<)))) (defun digest-supported-p (name) diff --git a/src/macs/mac.lisp b/src/macs/mac.lisp index 313dca6..6c4f8aa 100644 --- a/src/macs/mac.lisp +++ b/src/macs/mac.lisp @@ -12,7 +12,7 @@ (defun list-all-macs () (loop for symbol being each external-symbol of (find-package :ironclad) if (macp symbol) - collect symbol into macs + collect (intern (symbol-name symbol) :keyword) into macs finally (return (sort macs #'string<)))) (defun mac-supported-p (name) |