From dd909099494a1051b5e0c7e265d4b685fdac8291 Mon Sep 17 00:00:00 2001 From: =?utf8?q?David=20V=C3=A1zquez?= Date: Wed, 8 May 2013 17:05:16 +0100 Subject: [PATCH] Remove wrong array branch from equal --- src/boot.lisp | 8 -------- 1 file changed, 8 deletions(-) diff --git a/src/boot.lisp b/src/boot.lisp index 0cbb4d2..72c43cb 100644 --- a/src/boot.lisp +++ b/src/boot.lisp @@ -406,14 +406,6 @@ (equal (cdr x) (cdr y)))) ((stringp x) (and (stringp y) (string= x y))) - ((arrayp x) - (let ((n (length x))) - (and (arrayp y) - (eql n (length y)) - (do ((i 0 (1+ i))) - ((or (= i n) - (not (equal (aref x i) (aref y i)))) - (= i n)))))) (t nil))) (defun fdefinition (x) -- 1.7.10.4