use char-set:digit instead of deprecated char-set:numeric

2002-08-23 15:44:40 +00:00
parent ed4ad0798f
commit 5f654f5fc3
1 changed files with 1 additions and 1 deletions
@@ -215,7 +215,7 @@

 	  ,@(cond ((get-header headers 'content-length) =>
 		   (lambda (cl)	; Skip initial whitespace (& other non-digits).
-		     (let ((first-digit (string-index cl char-set:numeric))
+		     (let ((first-digit (string-index cl char-set:digit))
 			   (cl-len (string-length cl)))
 		       (if first-digit
 			   `(("CONTENT_LENGTH" . ,(substring cl first-digit cl-len)))