Shen-Language / shen-cl

The CF-VECTORS function should check if both vectors are empty and immediately return true if so.

Lines 160 to 163 in 3439aff

    
           (DEFUN CF-VECTORS (X Y LX LY) 
        
             (AND 
        
               (= LX LY) 
        
               (CF-VECTORS-HELP X Y 0 (1- LX))))

Didn't test it, but I think this version should work without adding much overhead.

(DEFUN CF-VECTORS (X Y LX LY)
  (AND
    (= LX LY)
    (OR (ZERO? LX)
        (CF-VECTORS-HELP X Y 0 (1- LX)))))

Well, probably not ZERO?, thats a Scheme thing, but whatever Common Lisp has.

It's ZEROP.

Fixed in this commit: 96004d1

Tests pass. Tried it out and it no problems.

	(DEFUN CF-VECTORS (X Y LX LY)
	(AND
	(= LX LY)
	(CF-VECTORS-HELP X Y 0 (1- LX))))

Can't compare empty absvectors