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

Download this file

links-page.lisp    25 lines (22 with data), 980 Bytes

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
(define-page :links "Links" "links" links-page :index-order :bottom)
(defmacro format-links (&rest pairs)
`(list :|ul|
,@(mapcar #'(lambda (pair)
`(list :|li|
(list (list :|a| :|href| ,(first pair))
,(second pair))
" - " ,(third pair)))
pairs)))
(defun links-page ()
`((:|p| "Links to SBCL pages:"
,(format-links
("http://sourceforge.net/projects/sbcl" "SBCL's SourceForge
page" "file downloads, mailing lists, and other resources")
("http://sbcl-internals.cliki.net/" "The SBCL Internals CLiki" "a wiki describing SBCL's implementation")))
(:|p| "Links to other interesting / relevant pages:"
,(format-links
("http://www.cliki.net/" "CLiki" "a SBCL-powered Wiki for free
Common Lisp software")
("http://www.lispworks.com/reference/HyperSpec/" "The
HyperSpec" "an online hyperlinked version of the ANSI Common Lisp
specification")))))