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 Refill comment to 80 columns as requested.

- - - - -

1 changed file:

- src/code/loop.lisp

Changes:

===================================== src/code/loop.lisp ===================================== @@ -1169,10 +1169,9 @@ collected result will be returned as the value of the LOOP." ;; these type symbols. (let ((type-spec (or (gethash z (loop-universe-type-symbols *loop-universe*)) (gethash (symbol-name z) (loop-universe-type-keywords *loop-universe*))))) - ;; If Z is NIL, we have something like (loop for var - ;; nil ...). In that case, we need to pop the - ;; source to skip over the type, just as if we had - ;; (loop for var fixnum ...) + ;; If Z is NIL, we have something like (loop for var nil ...). + ;; In that case, we need to pop the source to skip over the + ;; type, just as if we had (loop for var fixnum ...) (when (or type-spec (null z)) (loop-pop-source) type-spec)))

View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/701c8a646faf2d6d0e76807d...