From 87b7602f5b56f0cf28cfe739e837fc3e09539822 Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Mon, 9 Dec 2002 19:38:02 +0000 Subject: [PATCH] r3596: *** empty log message *** --- sql-classes.lisp | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/sql-classes.lisp b/sql-classes.lisp index b163e0b..72a7297 100644 --- a/sql-classes.lisp +++ b/sql-classes.lisp @@ -7,7 +7,7 @@ ;;;; Programmer: Kevin M. Rosenberg ;;;; Date Started: Apr 2000 ;;;; -;;;; $Id: sql-classes.lisp,v 1.11 2002/12/09 14:11:09 kevin Exp $ +;;;; $Id: sql-classes.lisp,v 1.12 2002/12/09 19:38:02 kevin Exp $ ;;;; ;;;; This file, part of UMLisp, is ;;;; Copyright (c) 2000-2002 by Kevin M. Rosenberg, M.D. @@ -467,10 +467,9 @@ (string-append ls (format nil " and KSRL <= ~d" srl))) (dolist (tuple (mutex-sql-query ls)) (destructuring-bind (sab code cxn cxl rnk cxs cui2 hcd rela xc) tuple - (push (make-instance 'ucxt :sab sab :code + (push (make-instance 'ucxt :sab sab :code code :cxn (ensure-integer cxn) :cxl cxl :cxs cxs :hcd hcd :rela rela :xc xc - :code code :rnk (ensure-integer rnk) :cui2 (ensure-integer cui2)) ucxts))) -- 2.34.1