r4826: *** empty log message ***

[umlisp.git] / sql-create.lisp

diff --git a/sql-create.lisp b/sql-create.lisp
index 19be192b05d839cb4a7fc5f348b3fe041bfd888b..c9821fd742e7f77a108b89fcdcd5b4d9bc4cf813 100644 (file)
--- 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*