Work at SourceForge, help us to make it a better place! We have an immediate need for a Support Technician in our San Francisco or Denver office.

Close

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

Download this file

keys-page.lisp    19 lines (15 with data), 728 Bytes

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
(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 ()
`((:|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*)))