;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Apr 2000
;;;;
-;;;; $Id: strings.lisp,v 1.50 2003/07/21 00:52:56 kevin Exp $
+;;;; $Id: strings.lisp,v 1.51 2003/08/09 21:42:43 kevin Exp $
;;;;
;;;; This file, part of KMRCL, is Copyright (c) 2002 by Kevin M. Rosenberg
;;;;
(+ 10 (- code +char-code-upper-a+))
(- code +char-code-0+))))
-(defun escape-uri-field (query)
+(defun uriencode-string (query)
"Escape non-alphanumeric characters for URI fields"
(declare (simple-string query)
(optimize (speed 3) (safety 0) (space 0)))
(setf (schar str dpos) (hexchar (logand c 15))))
(setf (schar str dpos) ch)))))
-(defun unescape-uri-field (query)
+(defun uridecode-string (query)
"Unescape non-alphanumeric characters for URI fields"
(declare (simple-string query)
(optimize (speed 3) (safety 0) (space 0)))