X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=sql-create.lisp;h=c9821fd742e7f77a108b89fcdcd5b4d9bc4cf813;hb=cc146d0b1c7d6d7a050713754f1ea9a8d71a46b5;hp=19be192b05d839cb4a7fc5f348b3fe041bfd888b;hpb=cc0d0f58d7261d12a8d6a89153f58ea693618e79;p=umlisp.git

diff --git a/sql-create.lisp b/sql-create.lisp
index 19be192..c9821fd 100644
--- a/sql-create.lisp
+++ b/sql-create.lisp
@@ -7,7 +7,7 @@
 ;;;; Programmer:    Kevin M. Rosenberg
 ;;;; Date Started:  Apr 2000
 ;;;;
-;;;; $Id: sql-create.lisp,v 1.8 2003/05/06 01:34:57 kevin Exp $
+;;;; $Id: sql-create.lisp,v 1.9 2003/05/06 02:14:59 kevin Exp $
 ;;;;
 ;;;; This file, part of UMLisp, is
 ;;;;    Copyright (c) 2000-2002 by Kevin M. Rosenberg, M.D.
@@ -254,16 +254,21 @@ This is much faster that using create-umls-db-insert."
       (dolist (col (umls-file-colstructs file))
 	(let* ((avwaste (- (umls-col-max col) (umls-col-av col)))
 	       (cwaste (* avwaste (umls-file-rws file))))
-	  (unless (zerop cwaste)
+	  (when (plusp cwaste)
 	    (if (<= avwaste 6)
 		(progn
 		  (incf totalunavoidable cwaste)
-		  (setq unavoidable (append unavoidable (list (list (umls-file-fil file) (umls-col-col col) avwaste cwaste)))))
+		  (push (list (umls-file-fil file) (umls-col-col col)
+			      avwaste cwaste)
+			unavoidable))
 		(progn
 		  (incf totalavoidable cwaste)
-		  (setq avoidable (append avoidable (list (list (umls-file-fil file) (umls-col-col col) avwaste cwaste))))))
+		  (push (list (umls-file-fil file) (umls-col-col col)
+			      avwaste cwaste)
+			avoidable)))
 	    (incf totalwaste cwaste)))))
-    (values totalwaste totalavoidable totalunavoidable avoidable unavoidable)))
+    (values totalwaste totalavoidable totalunavoidable
+	    (nreverse avoidable) (nreverse unavoidable))))
 
 (defun display-waste ()
   (unless *umls-files*