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