Raymond Toy pushed to branch issue-256-loop-var-nil at cmucl / cmucl
Commits:
-
701c8a64
by Raymond Toy at 2024-02-14T06:59:39-08:00
1 changed file:
Changes:
| ... | ... | @@ -1169,10 +1169,9 @@ collected result will be returned as the value of the LOOP." |
| 1169 | 1169 | ;; these type symbols.
|
| 1170 | 1170 | (let ((type-spec (or (gethash z (loop-universe-type-symbols *loop-universe*))
|
| 1171 | 1171 | (gethash (symbol-name z) (loop-universe-type-keywords *loop-universe*)))))
|
| 1172 | - ;; If Z is NIL, we have something like (loop for var
|
|
| 1173 | - ;; nil ...). In that case, we need to pop the
|
|
| 1174 | - ;; source to skip over the type, just as if we had
|
|
| 1175 | - ;; (loop for var fixnum ...)
|
|
| 1172 | + ;; If Z is NIL, we have something like (loop for var nil ...).
|
|
| 1173 | + ;; In that case, we need to pop the source to skip over the
|
|
| 1174 | + ;; type, just as if we had (loop for var fixnum ...)
|
|
| 1176 | 1175 | (when (or type-spec (null z))
|
| 1177 | 1176 | (loop-pop-source)
|
| 1178 | 1177 | type-spec)))
|