From dae655bd4fe4ae74c029b2771926f2c3eef2c676 Mon Sep 17 00:00:00 2001
From: wlott <wlott>
Date: Fri, 7 Sep 1990 17:43:26 +0000
Subject: [PATCH] Bug in dist.

---
 pcl/lap.lisp | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/pcl/lap.lisp b/pcl/lap.lisp
index 3b4ba0b92..4972d33a6 100644
--- a/pcl/lap.lisp
+++ b/pcl/lap.lisp
@@ -264,7 +264,7 @@
   (flet ((check (x)
 	   (ecase x
 	     (:symbol           (symbolp arg))
-	     (:register-number  (and (integerp arg) (>= x 0)))
+	     (:register-number  (and (integerp arg) (>= arg 0)))
 	     (:t                t)
 	     (:reg              (and (consp arg) (eq (car arg) :reg)))
 	     (:fixnum           (typep arg 'fixnum)))))
@@ -478,3 +478,4 @@
 		 (eq (funcall closure 'foo) (svref array 0)))
       (error "LAP TEST 5 failed."))))
 
+|#
-- 
GitLab