[Sbcl-commits] CVS: sbcl-page platform-support.lisp,1.13,1.14

[Brian M. <bma...@us...>]

Update of /cvsroot/sbcl/sbcl-page
In directory fdv4jf1.ch3.sourceforge.com:/tmp/cvs-serv15655

Modified Files:
	platform-support.lisp 
Log Message:
Add a link to the getting started page from the download page for those who are wondering how to actually install their freshly-downloaded binary.


Index: platform-support.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl-page/platform-support.lisp,v
retrieving revision 1.13
retrieving revision 1.14
diff -u -d -r1.13 -r1.14
--- platform-support.lisp	1 Nov 2008 02:41:44 -0000	1.13
+++ platform-support.lisp	1 Nov 2008 02:57:51 -0000	1.14
@@ -113,52 +113,57 @@
     (second *most-recent-release*)
     ". The release notes are available on the "
     (<a href= ,(concatenate 'string (page-link :news) "#" (car *most-recent-release*))>
-      "news page")
+        "news page")
     ".")
-    (<p>
-     "If a binary of this version of SBCL is not available for your platform, or if you'd like to customize the binary, download "
-     (<a href= ,(format nil "http://prdownloads.sourceforge.net/sbcl/sbcl-~A-source.tar.bz2?download" (car *most-recent-release*))>
-         "the source")
-      " and follow the directions for "
-      (<a href= ,(page-link :getting-sbcl)>
+   (<p>
+    "After downloading SBCL, refer to the "
+    (<a href=,(page-link :getting-sbcl)>
+        "getting started")
+    " page for instructions on how to install the release.")
+   (<p>
+    "If a binary of this version of SBCL is not available for your platform, or if you'd like to customize the binary, download "
+    (<a href= ,(format nil "http://prdownloads.sourceforge.net/sbcl/sbcl-~A-source.tar.bz2?download" (car *most-recent-release*))>
+        "the source")
+    " and follow the directions for "
+    (<a href= ,(page-link :getting-sbcl)>
         "compiling it") ".")
-    (<p>
-      (<b> "Source code: ")
-      (<a href= ,(format nil "http://prdownloads.sourceforge.net/sbcl/sbcl-~A-source.tar.bz2?download" (car *most-recent-release*))>
-          "sbcl-" (car *most-recent-release*) "-source.tar.bz2"))
-    (<div class= "left-floater">
-          (port-xml))
-    (<table class= "key">
-            (<tr>
-             (<td> "")
-             (<td>
-              (<h1> "Key")))
-            (loop for s in *statuses*
-               collecting
-                 (<tr class= "key-blob">
-                      (table-cell-for-status (car s) :header t)
-                      (<td> (third s)))))
-    <p/>
-    (<table class= "key">
-            (<tr>
-             (<td> "")
-             (<td>
-              (<h1> "Processors")))
-            (loop for processor in *processors*
-               collecting
-                 (<tr>
-                  (<th> (<b> (second processor)))
-                  (<td> (third processor)))))
-    (<p>
-     "Historically SBCL also ran on "
-     (<a href= "http://en.wikipedia.org/wiki/PA-RISC"> "HP PA-RISC")
-     " processors under Linux and on Alpha processors under "
-     (<a href= "http://en.wikipedia.org/wiki/Tru64_UNIX"> "Tru64")
-     ", but this support has not been maintained.")
-    (<p>
-     "Older binaries and source releases are available on the SourceForge "
-     (<a href= "http://sourceforge.net/project/showfiles.php?group_id=1373">
-         "File Releases")
-     " page.")))
+   (<p>
+    (<b> "Source code: ")
+    (<a href= ,(format nil "http://prdownloads.sourceforge.net/sbcl/sbcl-~A-source.tar.bz2?download" (car *most-recent-release*))>
+        "sbcl-" (car *most-recent-release*) "-source.tar.bz2"))
+   (<div class= "left-floater">
+         (port-xml))
+   (<table class= "key">
+           (<tr>
+            (<td> "")
+            (<td>
+             (<h1> "Key")))
+           (loop for s in *statuses*
+              collecting
+              (<tr class= "key-blob">
+                   (table-cell-for-status (car s) :header t)
+                   (<td> (third s)))))
+   <p/>
+   (<table class= "key">
+           (<tr>
+            (<td> "")
+            (<td>
+             (<h1> "Processors")))
+           (loop for processor in *processors*
+              collecting
+              (<tr>
+               (<th> (<b> (second processor)))
+               (<td> (third processor)))))
+   (<p>
+    "Historically SBCL also ran on "
+    (<a href= "http://en.wikipedia.org/wiki/PA-RISC"> "HP PA-RISC")
+    " processors under Linux and on Alpha processors under "
+    (<a href= "http://en.wikipedia.org/wiki/Tru64_UNIX"> "Tru64")
+    ", but this support has not been maintained.")
+   (<p>
+    "Older binaries and source releases are available on the SourceForge "
+    (<a href= "http://sourceforge.net/project/showfiles.php?group_id=1373">
+        "File Releases")
+    " page.")))
 
 (define-page :ports "Download" "platform-table" port-page)