Raymond Toy pushed to branch master at cmucl / cmucl

Commits:

1 changed file:

Changes:

  • src/code/pred.lisp
    ... ... @@ -387,8 +387,8 @@
    387 387
     (defun equal (x y)
    
    388 388
       "Returns T if X and Y are EQL or if they are structured components
    
    389 389
       whose elements are EQUAL.  Strings and bit-vectors are EQUAL if they
    
    390
    -  are the same length and have indentical components.  Other arrays must be
    
    391
    -  EQ to be EQUAL."
    
    390
    +  are the same length and have identical components.  Other arrays
    
    391
    +  must be EQ to be EQUAL."
    
    392 392
       (cond ((eql x y) t)
    
    393 393
     	((consp x)
    
    394 394
     	 (and (consp y)