;;;; 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.
(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)))