;;;; Author: Kevin M. Rosenberg
;;;; Date Started: Apr 2000
;;;;
-;;;; $Id: sql-classes.lisp,v 1.53 2003/05/03 22:27:58 kevin Exp $
+;;;; $Id: sql-classes.lisp,v 1.54 2003/05/03 22:38:22 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)))
(loop for tuple in (mutex-sql-query ls) collect
(destructuring-bind (code atn sab atv) tuple
- (make-instance 'usat :code code :atn atn :sab sab :atv atv) usats))))
+ (make-instance 'usat :code code :atn atn :sab sab :atv atv)))))
(defun find-usty-tui (tui)
"Find usty for tui"