From 908960a455e09bf5440ab87ed288efc989f8b29e Mon Sep 17 00:00:00 2001 From: dos-reis Date: Wed, 26 Jan 2011 19:40:22 +0000 Subject: Replace more occurences of LIST with %listlit. --- src/algebra/strap/POLYCAT-.lsp | 26 ++++++++++++-------------- 1 file changed, 12 insertions(+), 14 deletions(-) (limited to 'src/algebra/strap/POLYCAT-.lsp') diff --git a/src/algebra/strap/POLYCAT-.lsp b/src/algebra/strap/POLYCAT-.lsp index e5cbc3a6..9ad42dc5 100644 --- a/src/algebra/strap/POLYCAT-.lsp +++ b/src/algebra/strap/POLYCAT-.lsp @@ -1103,29 +1103,27 @@ (|HasCategory| |#2| '(|GcdDomain|)) (|HasCategory| |#2| '(|CommutativeRing|)) (|HasCategory| |#4| - (LIST '|PatternMatchable| '(|Float|))) + '(|PatternMatchable| (|Float|))) (|HasCategory| |#2| - (LIST '|PatternMatchable| '(|Float|))) + '(|PatternMatchable| (|Float|))) (|HasCategory| |#4| - (LIST '|PatternMatchable| '(|Integer|))) + '(|PatternMatchable| (|Integer|))) (|HasCategory| |#2| - (LIST '|PatternMatchable| '(|Integer|))) + '(|PatternMatchable| (|Integer|))) (|HasCategory| |#4| - (LIST '|ConvertibleTo| - (LIST '|Pattern| '(|Float|)))) + '(|ConvertibleTo| (|Pattern| (|Float|)))) (|HasCategory| |#2| - (LIST '|ConvertibleTo| - (LIST '|Pattern| '(|Float|)))) + '(|ConvertibleTo| (|Pattern| (|Float|)))) (|HasCategory| |#4| - (LIST '|ConvertibleTo| - (LIST '|Pattern| '(|Integer|)))) + '(|ConvertibleTo| + (|Pattern| (|Integer|)))) (|HasCategory| |#2| - (LIST '|ConvertibleTo| - (LIST '|Pattern| '(|Integer|)))) + '(|ConvertibleTo| + (|Pattern| (|Integer|)))) (|HasCategory| |#4| - (LIST '|ConvertibleTo| '(|InputForm|))) + '(|ConvertibleTo| (|InputForm|))) (|HasCategory| |#2| - (LIST '|ConvertibleTo| '(|InputForm|))))))) + '(|ConvertibleTo| (|InputForm|))))))) (|setShellEntry| $ 0 |dv$|) (|setShellEntry| $ 3 |pv$|) (|stuffDomainSlots| $) -- cgit v1.2.3