Fix previously incorrect rule expansion

Reading worked but validating parsed query did not work, as suggested by
@ValenberghsSven.  Terminal expansion should have gone through ANON
instead as suggested by @sergiofenoll.

The raw rule expansion for ANON now scans correctly and previous
expansion of the BNF has been removed.

Author: madnificent

external/sparql.bnfsxp

@@ -1435,24 +1435,11 @@
   (follow "." "BIND" "FILTER" "GRAPH" "MINUS" "OPTIONAL" "SERVICE" "VALUES" "{" "}")
   (cleanup opt)
   (alt _empty PropertyListPathNotEmpty))
- ;; (rule PropertyListPathNotEmpty "83"
- ;;  (first "!" "(" IRIREF PNAME_LN PNAME_NS VAR1 VAR2 "^" "a")
- ;;  (follow "." "BIND" "FILTER" "GRAPH" "MINUS" "OPTIONAL" "SERVICE" "VALUES" "]"
- ;;   "{" "}" )
- ;;  (seq _PropertyListPathNotEmpty_1 ObjectListPath _PropertyListPathNotEmpty_2))
-
  (rule PropertyListPathNotEmpty "83"
-  (first "!" "(" IRIREF PNAME_LN PNAME_NS VAR1 VAR2 "^" "a" _eps)
-  (follow "." "BIND" "FILTER" "GRAPH" "MINUS" "OPTIONAL" "SERVICE" "VALUES" "]"
-   "{" "}" )
-  (alt _empty _PropertyListPathNotEmpty_B))
-
- (rule _PropertyListPathNotEmpty_B "83B"
   (first "!" "(" IRIREF PNAME_LN PNAME_NS VAR1 VAR2 "^" "a")
   (follow "." "BIND" "FILTER" "GRAPH" "MINUS" "OPTIONAL" "SERVICE" "VALUES" "]"
    "{" "}" )
   (seq _PropertyListPathNotEmpty_1 ObjectListPath _PropertyListPathNotEmpty_2))
-
  (rule _PropertyListPathNotEmpty_1 "83.1"
   (first "!" "(" IRIREF PNAME_LN PNAME_NS VAR1 VAR2 "^" "a")
   (follow "(" ANON BLANK_NODE_LABEL DECIMAL DECIMAL_NEGATIVE DECIMAL_POSITIVE
@@ -7309,4 +7296,4 @@
    VAR2 "YEAR" "[" _eof "false" "isBLANK" "isIRI" "isLITERAL" "isNUMERIC"
    "isURI" "sameTerm" "true" "{" "||" "}" )
   (seq _StrReplaceExpression_1 ")")) )
-  
+  

sparql-ast/terminals.lisp

@@ -707,7 +707,6 @@ failure."
                                     (char= char #.(support:hex-char "A"))
                                     (char= char #.(support:hex-char "9")))))
                    do (incf position))
-             (incf position)
              (when (char= (elt string position) right-char)
                (1+ position))))))
   (defun scan-nil (string start)