From f5dfd7b9cee14237ccd9490b1c4dcd065e1f9acb Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Sat, 9 Aug 2003 21:42:43 +0000 Subject: [PATCH] r5478: *** empty log message *** --- package.lisp | 6 +++--- strings.lisp | 6 +++--- 2 files changed, 6 insertions(+), 6 deletions(-) diff --git a/package.lisp b/package.lisp index f5cbc6e..f42dec5 100644 --- a/package.lisp +++ b/package.lisp @@ -7,7 +7,7 @@ ;;;; Programmer: Kevin M. Rosenberg ;;;; Date Started: Apr 2000 ;;;; -;;;; $Id: package.lisp,v 1.56 2003/08/06 10:03:21 kevin Exp $ +;;;; $Id: package.lisp,v 1.57 2003/08/09 21:42:43 kevin Exp $ ;;;; ;;;; This file, part of KMRCL, is Copyright (c) 2002 by Kevin M. Rosenberg ;;;; @@ -53,8 +53,8 @@ #:count-string-char #:count-string-char-if #:hexchar - #:escape-uri-field - #:unescape-uri-field + #:uriencode-string + #:uridecode-string #:non-alphanumericp #:random-string #:first-char diff --git a/strings.lisp b/strings.lisp index 6b6d9df..4d99954 100644 --- a/strings.lisp +++ b/strings.lisp @@ -7,7 +7,7 @@ ;;;; 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 ;;;; @@ -417,7 +417,7 @@ for characters in a string" (+ 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))) @@ -440,7 +440,7 @@ for characters in a string" (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))) -- 2.34.1