;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Apr 2000
;;;;
-;;;; $Id: strings.lisp,v 1.41 2003/06/15 07:48:30 kevin Exp $
+;;;; $Id: strings.lisp,v 1.42 2003/06/15 13:49:42 kevin Exp $
;;;;
;;;; This file, part of KMRCL, is Copyright (c) 2002 by Kevin M. Rosenberg
;;;;
(not (alphanumericp ch)))
(defvar +hex-chars+ "0123456789ABCDEF")
-(declaim (type (simple-array character 16) +hex-chars+))
+(declaim (type simple-string +hex-chars+))
(defun hexchar (n)
(declare (type (integer 0 15) n))
- (aref +hex-chars+ n))
+ (schar +hex-chars+ n))
(defun escape-uri-field (query)
"Escape non-alphanumeric characters for URI fields"