From 85e0b81ffb73be94a9954ae2034bd0067ba6c221 Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Tue, 29 Apr 2003 00:46:35 +0000 Subject: [PATCH] r4670: Auto commit for Debian build --- strings.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/strings.lisp b/strings.lisp index 94eaed4..91e5198 100644 --- a/strings.lisp +++ b/strings.lisp @@ -7,7 +7,7 @@ ;;;; Programmer: Kevin M. Rosenberg ;;;; Date Started: Apr 2000 ;;;; -;;;; $Id: strings.lisp,v 1.12 2003/04/29 00:43:56 kevin Exp $ +;;;; $Id: strings.lisp,v 1.13 2003/04/29 00:46:35 kevin Exp $ ;;;; ;;;; This file, part of KMRCL, is Copyright (c) 2002 by Kevin M. Rosenberg ;;;; @@ -113,7 +113,7 @@ (let ((len (length s))) (if (plusp len) (subseq s 0 (1- len)) - s)) + s))) (defun string-hash (str &optional (bitmask 65535)) (let ((hash 0)) -- 2.34.1