[adb8be]: keys-page.lisp Maximize Restore History

Download this file

keys-page.lisp    22 lines (18 with data), 676 Bytes

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
(in-package :sbcl-page)
(define-page :keys "Maintainer public keys" "keys" keys-page)
(defvar *keys* nil)
(defmacro define-key (name key)
`(progn
(setf *keys* (remove ,name *keys* :key #'car :test #'equalp))
(push-end (cons ,name ,key) *keys*)))
(defun keys-page ()
(list
(<p> "This page lists the GPG/PGP public keys of the SBCL maintainers, for use in verifying the integrity of downloads.")
(mapcar
(lambda (key)
(<p> (format nil "~A'~A public key is:" (first key)
(if (eql (elt (first key) (1- (length (first key)))) #\s)
""
"s"))
(<pre> (cdr key))))
*keys*)))