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)))