Raymond Toy pushed to branch issue-256-loop-var-nil at cmucl / cmucl

Commits:

1 changed file:

Changes:

  • src/code/loop.lisp
    ... ... @@ -1163,7 +1163,7 @@ collected result will be returned as the value of the LOOP."
    1163 1163
     		;; a common lisp type specifier or pattern (matching the variable) thereof.
    
    1164 1164
     		(loop-pop-source)
    
    1165 1165
     		(loop-pop-source))
    
    1166
    -
    
    1166
    +		      
    
    1167 1167
     	       ((symbolp z)
    
    1168 1168
     		;;This is the (sort of) "old" syntax, even though we didn't used to support all of
    
    1169 1169
     		;; these type symbols.