;;;; Author: Kevin M. Rosenberg
;;;; Date Started: Apr 2000
;;;;
-;;;; $Id: sql-classes.lisp,v 1.68 2003/05/04 03:45:05 kevin Exp $
+;;;; $Id: sql-classes.lisp,v 1.69 2003/05/04 04:41:07 kevin Exp $
;;;;
;;;; This file, part of UMLisp, is
;;;; Copyright (c) 2000-2002 by Kevin M. Rosenberg, M.D.
:order (cui asc) :distinct t)
:database db)))
+(defun find-ucon-all2 (&key (srl *current-srl*))
+ "Return list of all ucon's"
+ (with-umlisp-query (mrcon (cui kpfstr kcuilrl) srl nil nil :order (cui asc) :distinct t)
+ (make-instance 'ucon :cui (ensure-integer cui)
+ :pfstr kpfstr
+ :lrl (ensure-integer kcuilrl))))
+
(defun map-ucon-all (fn &key (srl *current-srl*))
"Map a function over all ucon's"
(with-sql-connection (db)