From c4abad6da39c2c2d064b8d4e5c7210cf51ce7afc Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Fri, 4 Jun 2010 22:22:24 +0000
Subject: Update cached algebra Lisp files

---
 src/algebra/strap/UFD-.lsp | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

(limited to 'src/algebra/strap/UFD-.lsp')

diff --git a/src/algebra/strap/UFD-.lsp b/src/algebra/strap/UFD-.lsp
index c6a03416..014395a3 100644
--- a/src/algebra/strap/UFD-.lsp
+++ b/src/algebra/strap/UFD-.lsp
@@ -29,8 +29,7 @@
                                NIL))
                          (GO G191)))
                       (PROGN
-                        (LETT #1# (QCAR |f|)
-                              |UFD-;squareFreePart;2S;1|)
+                        (LETT #1# (CAR |f|) |UFD-;squareFreePart;2S;1|)
                         (COND
                           (#3# (LETT #2#
                                      (SPADCALL #2# #1#
-- 
cgit v1.2.3