projects
/
umlisp.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
bffd495
)
r4798: Auto commit for Debian build
author
Kevin M. Rosenberg
<kevin@rosenberg.net>
Sun, 4 May 2003 04:41:07 +0000
(
04:41
+0000)
committer
Kevin M. Rosenberg
<kevin@rosenberg.net>
Sun, 4 May 2003 04:41:07 +0000
(
04:41
+0000)
sql-classes.lisp
patch
|
blob
|
history
diff --git
a/sql-classes.lisp
b/sql-classes.lisp
index 6a3ccd0fc79e3c551bc3e7c9cb4facbe4a456c96..8a400e10d3000cc7fd233fcc0fdf4c341e31220b 100644
(file)
--- a/
sql-classes.lisp
+++ b/
sql-classes.lisp
@@
-7,7
+7,7
@@
;;;; Author: Kevin M. Rosenberg
;;;; Date Started: Apr 2000
;;;;
;;;; Author: Kevin M. Rosenberg
;;;; Date Started: Apr 2000
;;;;
-;;;; $Id: sql-classes.lisp,v 1.6
8 2003/05/04 03:45:05
kevin Exp $
+;;;; $Id: sql-classes.lisp,v 1.6
9 2003/05/04 04:41:07
kevin Exp $
;;;;
;;;; This file, part of UMLisp, is
;;;; Copyright (c) 2000-2002 by Kevin M. Rosenberg, M.D.
;;;;
;;;; This file, part of UMLisp, is
;;;; Copyright (c) 2000-2002 by Kevin M. Rosenberg, M.D.
@@
-198,6
+198,13
@@
is OBJNAME from TABLE where WHERE-NAME field = WHERE-VALUE with FIELDS"
:order (cui asc) :distinct t)
:database db)))
: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)
(defun map-ucon-all (fn &key (srl *current-srl*))
"Map a function over all ucon's"
(with-sql-connection (db)