[climacs-cvs] CVS update: climacs/syntax.lisp

[Christophe Rhodes]

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