From: Kevin M. Rosenberg <kevin@rosenberg.net>
Date: Wed, 7 May 2003 22:54:16 +0000 (+0000)
Subject: r4872: *** empty log message ***
X-Git-Tag: v2006ac.2~177
X-Git-Url: http://git.kpe.io/?p=umlisp.git;a=commitdiff_plain;h=55068af522c14b69ca0b0f32445dfe5bcfc0dabc

r4872: *** empty log message ***
---

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))