diff --git a/pcl/lap.lisp b/pcl/lap.lisp index 3b4ba0b92471bba4d2e9ce135f471aa06c1eaa27..4972d33a6f3ec81bf9b03abcd1d5e74e016dc2e1 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.")))) +|#