File tree Expand file tree Collapse file tree 1 file changed +17
-17
lines changed Expand file tree Collapse file tree 1 file changed +17
-17
lines changed Original file line number Diff line number Diff line change 112
112
(with-slots (pattern pos)
113
113
matcher
114
114
(loop
115
- (cond ((= pos match-end)
116
- (let ((match-start (- i pos)))
117
- (setf pos 0 )
118
- (setf (matchedp matcher) t )
119
- (return (values match-start (+ match-start match-end)))))
120
- ((= i end)
121
- (return nil ))
122
- ((= (aref pattern pos)
123
- (aref input i))
124
- (incf i)
125
- (incf pos))
126
- ( t
127
- ( if error
128
- ( error ' match-failure )
129
- ( if ( zerop pos )
130
- ( incf i)
131
- (setf pos 0 )) )))))))
115
+ (cond ((= pos match-end)
116
+ (let ((match-start (- i pos)))
117
+ (setf pos 0 )
118
+ (setf (matchedp matcher) t )
119
+ (return (values match-start (+ match-start match-end)))))
120
+ ((= i end)
121
+ (return nil ))
122
+ ((= (aref pattern pos)
123
+ (aref input i))
124
+ (incf i)
125
+ (incf pos))
126
+ ( error
127
+ ( error ' match-failure))
128
+ (( zerop pos )
129
+ ( incf i) )
130
+ ( t
131
+ (setf pos 0 )))))))
132
132
133
133
(defun ascii-matcher (string )
134
134
(make-instance ' matcher
You can’t perform that action at this time.
0 commit comments