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

[Luke Gorrie]

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

Modified Files:
	hyperspec.el 
Log Message:
(common-lisp-hyperspec-section-4.0): Bugfix from Lennart Staflin.

Date: Fri Jul  2 17:06:30 2004
Author: lgorrie

Index: slime/hyperspec.el
diff -u slime/hyperspec.el:1.5 slime/hyperspec.el:1.6
--- slime/hyperspec.el:1.5	Mon Jun 28 04:05:48 2004
+++ slime/hyperspec.el	Fri Jul  2 17:06:30 2004
@@ -1135,10 +1135,9 @@
 		       "")
 	    ".htm")))
 
-(defun common-lisp-hyperpsec-section-4.0 (indices)
-  (let ((string (format "%sBody/sec%s_" 
-			common-lisp-hyperspec-root
-			(pop indices))))
+(defun common-lisp-hyperspec-section-4.0 (indices)
+  (let ((string (format "%sBody/sec_"
+ 			common-lisp-hyperspec-root)))			
     (concat string
 	    (mapconcat (lambda (n)
 			 (format "%d" n))