[Maxima-commits] CVS: maxima/src askp.lisp,1.4,1.5

[Raymond T. <rt...@us...>]

Update of /cvsroot/maxima/maxima/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv6471/src

Modified Files:
	askp.lisp 
Log Message:
Fix type issues by making some symbols uppercase.


Index: askp.lisp
===================================================================
RCS file: /cvsroot/maxima/maxima/src/askp.lisp,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -d -r1.4 -r1.5
--- askp.lisp	4 Oct 2004 02:25:55 -0000	1.4
+++ askp.lisp	26 Nov 2004 15:16:44 -0000	1.5
@@ -57,8 +57,8 @@
 	  ((and is-integer evod-ans) '$no)
 	  ((eq (setq evod-ans
 		     (ask-prop x
-			       (if (eq even-odd '$even) '|even| '|odd|)
-			       '|number|))
+			       (if (eq even-odd '$even) 'even 'odd)
+			       'number))
 	       '$yes)
 	   (ask-declare x even-odd) '$yes)
 	  ((eq evod-ans '$no) 
@@ -74,7 +74,7 @@
     (if (and (mtimesp x) (equal (cadr x) -1)) (setq x (muln (cddr x) t)))
     (cond ((or (maxima-integerp x) (memalike x integerl)) '$yes)
 	  ((or ($numberp x) (nonintegerp x) (memalike x nonintegerl)) '$no)
-	  ((eq (setq integer-ans (ask-prop x '|integer| nil)) '$yes)
+	  ((eq (setq integer-ans (ask-prop x 'integer nil)) '$yes)
 	   (ask-declare x '$integer) '$yes)
 	  ((eq integer-ans '$no)
 	   (ask-declare x '$noninteger) '$no)
@@ -102,8 +102,8 @@
 		  `((mtext) |Is  | ,object 
 		    ,(if (zl-member (getcharn property 1)
 				    '(#\a #\e #\i #\o #\u))
-			 '|  an |
-			 '|  a |)
+			 '|  AN |
+			 '|  A |)
 		    ,property ,@fun-or-number |?|)
 		  nil))
     (cond