Update of /project/climacs/cvsroot/climacs In directory common-lisp.net:/tmp/cvs-serv13557
Modified Files: syntax.lisp Log Message: Use sbit rather than aref, mostly for self-documentation (because it doesn't actually speed things up much; it's just a constant-factor optimization)
Date: Mon May 2 11:05:01 2005 Author: crhodes
Index: climacs/syntax.lisp diff -u climacs/syntax.lisp:1.47 climacs/syntax.lisp:1.48 --- climacs/syntax.lisp:1.47 Sat Apr 16 07:20:29 2005 +++ climacs/syntax.lisp Mon May 2 11:05:00 2005 @@ -401,8 +401,8 @@ (if (functionp (right-hand-side rule)) (let ((predicted-rules (slot-value to-state 'predicted-rules)) (rule-number (slot-value rule 'number))) - (when (zerop (aref predicted-rules rule-number)) - (setf (aref predicted-rules rule-number) 1) + (when (zerop (sbit predicted-rules rule-number)) + (setf (sbit predicted-rules rule-number) 1) (handle-incomplete-item (make-instance 'incomplete-item :orig-state to-state :predicted-from item