From 55068af522c14b69ca0b0f32445dfe5bcfc0dabc Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Wed, 7 May 2003 22:54:16 +0000 Subject: [PATCH] r4872: *** empty log message *** --- parse-common.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/parse-common.lisp b/parse-common.lisp index 1980414..38abc87 100644 --- a/parse-common.lisp +++ b/parse-common.lisp @@ -7,7 +7,7 @@ ;;;; Author: Kevin M. Rosenberg ;;;; Date Started: Apr 2000 ;;;; -;;;; $Id: parse-common.lisp,v 1.10 2003/05/07 22:53:36 kevin Exp $ +;;;; $Id: parse-common.lisp,v 1.11 2003/05/07 22:54:16 kevin Exp $ ;;;; ;;;; This file, part of UMLisp, is ;;;; Copyright (c) 2000-2002 by Kevin M. Rosenberg, M.D. @@ -204,7 +204,7 @@ append a unique number (starting at 2) onto a column name that is repeated in th (let ((col-counts (make-hash-table :test 'equal))) (loop for colname in (delimited-string-to-list (escape-column-name fmt) #\,) collect - (multiple-value-bind (value found) (gethash col col-counts) + (multiple-value-bind (value found) (gethash colname col-counts) (cond (found (incf (gethash colname col-counts)) -- 2.34.1