[oct-cvs] Oct commit: oct qd-methods.lisp

[rtoy]

Update of /project/oct/cvsroot/oct
In directory clnet:/tmp/cvs-serv10199

Modified Files:
	qd-methods.lisp 
Log Message:
T should be t (for Allegro case-sensitive modern-mode).


--- /project/oct/cvsroot/oct/qd-methods.lisp	2007/09/12 21:01:13	1.56
+++ /project/oct/cvsroot/oct/qd-methods.lisp	2007/09/16 02:39:29	1.57
@@ -540,7 +540,7 @@
   (declare (optimize (safety 2))
 	   (dynamic-extent more-numbers))
   (do ((nlist more-numbers (cdr nlist)))
-      ((atom nlist) T)
+      ((atom nlist) t)
     (declare (list nlist))
     (if (not (two-arg-= (car nlist) number))
 	(return nil))))
@@ -554,7 +554,7 @@
        ((atom nlist) t)
     (declare (list nlist))
     (unless (do* ((nl nlist (cdr nl)))
-		 ((atom nl) T)
+		 ((atom nl) t)
 	      (declare (list nl))
 	      (if (two-arg-= head (car nl))
 		  (return nil)))