From e39cccd522e46e26e2e96ad6e130619dc98f8cce Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Mon, 1 Dec 2008 01:18:44 +0000
Subject: 	* interp/define.boot (disallowNiAttribute): Remove. 
 (compDefineFunctor1): Don't use it anymore. 	(compCategoryItem): Filter out
 nil attributes here.

---
 src/algebra/strap/VECTOR.lsp | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'src/algebra/strap/VECTOR.lsp')

diff --git a/src/algebra/strap/VECTOR.lsp b/src/algebra/strap/VECTOR.lsp
index 61c9ca51..d9513c35 100644
--- a/src/algebra/strap/VECTOR.lsp
+++ b/src/algebra/strap/VECTOR.lsp
@@ -78,12 +78,12 @@
                             (AND (|HasCategory| |#1|
                                      '(|RadicalCategory|))
                                  (|HasCategory| |#1| '(|Ring|)))
+                            (|HasCategory| |#1|
+                                '(|CoercibleTo| (|OutputForm|)))
                             (AND (|HasCategory| |#1| '(|SetCategory|))
                                  (|HasCategory| |#1|
                                      (LIST '|Evalable|
-                                      (|devaluate| |#1|))))
-                            (|HasCategory| |#1|
-                                '(|CoercibleTo| (|OutputForm|))))) . #0#))
+                                      (|devaluate| |#1|)))))) . #0#))
         (|haddProp| |$ConstructorCache| '|Vector| (LIST |dv$1|)
             (CONS 1 $))
         (|stuffDomainSlots| $)
-- 
cgit v1.2.3