Update of /cvsroot/wisp/wisp/modules
In directory usw-pr-cvs1:/tmp/cvs-serv5618/modules
Modified Files:
cgi.wim
Log Message:
Made cgi.wim avoid |string-length| in favour of |length|.
Index: cgi.wim
===================================================================
RCS file: /cvsroot/wisp/wisp/modules/cgi.wim,v
retrieving revision 1.41
retrieving revision 1.42
diff -u -d -r1.41 -r1.42
--- cgi.wim 4 Sep 2002 14:31:41 -0000 1.41
+++ cgi.wim 7 Sep 2002 21:57:47 -0000 1.42
@@ -53,7 +53,7 @@
(if (not content-length)
(raise 'content-length content-length-as-string))
(my content (read-string *stdin* content-length)
- (if (not (= (string-length content) content-length))
+ (if (not (= (length content) content-length))
(raise 'short-content content))
(my enctype (env-ref "CONTENT_TYPE")
(if (not enctype)
|
