[slime-cvs] CVS update: slime/hyperspec.el

[Luke Gorrie]

Update of /project/slime/cvsroot/slime
In directory common-lisp.net:/tmp/cvs-serv22029

Modified Files:
	hyperspec.el 
Log Message:
(common-lisp-hyperspec-6.0): generalize to work with section numbers
lower than 10.

Date: Thu Jun 24 06:00:45 2004
Author: lgorrie

Index: slime/hyperspec.el
diff -u slime/hyperspec.el:1.2 slime/hyperspec.el:1.3
--- slime/hyperspec.el:1.2	Thu Dec  4 08:42:53 2003
+++ slime/hyperspec.el	Thu Jun 24 06:00:45 2004
@@ -1124,7 +1124,10 @@
 (defun common-lisp-hyperspec-section-6.0 (indices)
   (let ((string (format "%sBody/%s_" 
 			common-lisp-hyperspec-root
-			(pop indices))))
+			(let ((base (pop indices)))
+			  (if (< base 10)
+			      (format "0%s" base)
+			    base)))))
     (concat string 
 	    (mapconcat (lambda (n)
 			 (make-string 1 (+ ?a (- n 1))))