X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=sql-classes.lisp;h=218f55be576f76b9e57065f8ae35880553eca5b5;hb=cb94897727f1a351ad746fa4686d72fab4996342;hp=2b7869cb3438a2bcae33eab850b628a532276b15;hpb=fab71e6fecf552789593d979b85cea58099f236d;p=umlisp.git

diff --git a/sql-classes.lisp b/sql-classes.lisp
index 2b7869c..218f55b 100644
--- a/sql-classes.lisp
+++ b/sql-classes.lisp
@@ -583,10 +583,10 @@ is OBJNAME from TABLE where WHERE-NAME field = WHERE-VALUE with FIELDS"
 (defun find-usab-by-key (key-name key)
   "Find usab for a key"
   (collect-umlisp-query-eval ('mrsab '(vcui rcui vsab rsab son sf sver vstart
-				    vend imeta rmeta slc scc srl tfr cfr cxty
-				    ttyl atnl lat cenc curver sabin)
-				  nil key-name key :single t)
-    (make-instance 'usab :vcui (ensure-integer vcui) 
+				       vend imeta rmeta slc scc srl tfr cfr cxty
+				       ttyl atnl lat cenc curver sabin)
+				     nil key-name key :single t)
+     (make-instance 'usab :vcui (ensure-integer vcui) 
 		   :rcui (ensure-integer rcui) :vsab vsab :rsab rsab :son son
 		   :sf sf :sver sver :vstart vstart :vend vend :imeta imeta
 		   :rmeta rmeta :slc slc :scc scc :srl (ensure-integer srl)