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

Diff of /index-page.lisp [4e5d73] .. [f3064f] Maximize Restore

  Switch to side-by-side view

--- a/index-page.lisp
+++ b/index-page.lisp
@@ -1,34 +1,42 @@
+(in-package :sbcl-page)
+
 (define-page :index "About" "index" index-page :index-order :top)
 
 (defparameter *most-recent-release* (list "1.0.22" "October 30, 2008"))
 
 (defun index-page ()
-
-  `((:|p| "Steel Bank Common Lisp (SBCL) is an open source (free
+  (list
+   (<p> "Steel Bank Common Lisp (SBCL) is an open source (free
 software) compiler and runtime system for ANSI Common Lisp. It
 provides an interactive environment including an integrated native
 compiler, a debugger, and many extensions.")
-    (:|p| "SBCL runs on a number of POSIX platforms, and experimentally on Windows. See the "
-     ((:|a| :|href| ,(page-link :ports)) "download")
-     " page for supported platforms, and "
-     ((:|a| :|href| ,(page-link :getting-sbcl)) "getting started") " guide for additional help.")
-    (:|p| "The most recent version is " 
-      ((:|a| :|href| ,(format nil "http://prdownloads.sourceforge.net/sbcl/sbcl-~A-source.tar.bz2?download" (car *most-recent-release*)))
-       "SBCL " ,(car *most-recent-release*)) ", released "
-      ,(second *most-recent-release*) " ("
-      ((:|a| :|href| ,(concatenate 'string (page-link :news) "#" (car *most-recent-release*)))
-       "release notes") ").")
-    (:|h2| "Documentation")
-    (:|p| "SBCL has a work in progress " ((:|a| :|href| "http://www.sbcl.org/manual/") "manual") 
-      " in the TeXInfo format. See the " (:|code| "doc/manual") 
-      " directory in the source code for the current version in TeXInfo source.")
-    (:|h2| "Reporting Bugs")
-    (:|p| "Reporting a bug in SBCL should be done by sending e-mail to the " 
-      ((:|a| :|href|
-         "https://lists.sourceforge.net/lists/listinfo/sbcl-devel")
-       "sbcl-devel") 
-      "  mailing list. The master record of known bugs is in the "
-      ((:|a| :|href|
-         "http://sbcl.cvs.sourceforge.net/*checkout*/sbcl/sbcl/BUGS?revision=HEAD")
-       "BUGS")
+   (<p>
+    "SBCL runs on a number of POSIX platforms, and experimentally on Windows. See the "
+    (<a href= ,(page-link :ports)> "download")
+    " page for supported platforms, and "
+    (<a href= ,(page-link :getting-sbcl)> "getting started")
+    " guide for additional help.")
+   (<p>
+    "The most recent version is " 
+    (<a href= ,(format nil "http://prdownloads.sourceforge.net/sbcl/sbcl-~A-source.tar.bz2?download" (car *most-recent-release*))>
+        "SBCL " (car *most-recent-release*))
+    ", released "
+    (second *most-recent-release*)
+    " ("
+    (<a href= ,(concatenate 'string (page-link :news) "#" (car *most-recent-release*))>
+        "release notes")
+    ").")
+   (<h2> "Documentation")
+   (<p> "SBCL has a work in progress "
+        (<a href= "http://www.sbcl.org/manual/"> "manual") 
+        " in the TeXInfo format. See the "
+        (<code> "doc/manual") 
+        " directory in the source code for the current version in TeXInfo source.")
+   (<h2> "Reporting Bugs")
+   (<p> "Reporting a bug in SBCL should be done by sending e-mail to the " 
+        (<a href= "https://lists.sourceforge.net/lists/listinfo/sbcl-devel">
+            "sbcl-devel")
+        " mailing list. The master record of known bugs is in the "
+        (<a href= "http://sbcl.cvs.sourceforge.net/*checkout*/sbcl/sbcl/BUGS?revision=HEAD">
+            "BUGS")
       " file, which is distributed with SBCL.")))