From 64a30d395eddce700cdacad5b025eb7f369a3ba2 Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Thu, 8 May 2003 02:59:21 +0000 Subject: [PATCH] r4875: Auto commit for Debian build --- parse-2002.lisp | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/parse-2002.lisp b/parse-2002.lisp index 726764f..9e70e3c 100644 --- a/parse-2002.lisp +++ b/parse-2002.lisp @@ -8,7 +8,7 @@ ;;;; Author: Kevin M. Rosenberg ;;;; Date Started: Apr 2000 ;;;; -;;;; $Id: parse-2002.lisp,v 1.10 2003/05/07 21:57:06 kevin Exp $ +;;;; $Id: parse-2002.lisp,v 1.11 2003/05/08 02:59:21 kevin Exp $ ;;;; ;;;; This file, part of UMLisp, is ;;;; Copyright (c) 2000-2002 by Kevin M. Rosenberg, M.D. @@ -283,7 +283,8 @@ (loop for customcol in +custom-cols+ collect (make-ucol (nth 1 customcol) "" 0 0 0 (nth 3 customcol) - (nth 0 customcol) nil :sqltype (nth 2 customcol)))) + (nth 0 customcol) nil :sqltype (nth 2 customcol) + :custom-value-fun (nth 4 customcol)))) (defun gen-ucols-generic (col-filename) "Initialize for generic (LEX/NET) columns" -- 2.34.1