From ee059366dbce648a654ee858d5351f4980986df0 Mon Sep 17 00:00:00 2001 From: Daniel Kochmanski Date: Thu, 10 Aug 2017 20:58:37 +0200 Subject: [PATCH] expand-vector-push: simplify error condition assert, that function takes 2 up to 3 (if extended) arguments. --- src/cmp/cmparray.lsp | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) diff --git a/src/cmp/cmparray.lsp b/src/cmp/cmparray.lsp index 5c5770311..559b236e6 100644 --- a/src/cmp/cmparray.lsp +++ b/src/cmp/cmparray.lsp @@ -97,13 +97,13 @@ (not (policy-open-code-aref/aset))) (return-from expand-vector-push whole)) - (let ((len (length args))) - (when (or (< len 2) - (> len (if extend 3 2))) - (cmpwarn "Wrong number of arguments passed to function ~A in form: ~A" (first whole) whole) - (return-from expand-vector-push - `(si::simple-program-error - "Wrong number of arguments passed to function ~A in form: ~A" ',(first whole) ',whole)))) + (unless (<= 2 + (length args) + (if extend 3 2)) + (cmpwarn "Wrong number of arguments passed to function ~A in form: ~A" (first whole) whole) + (return-from expand-vector-push + `(si::simple-program-error + "Wrong number of arguments passed to function ~A in form: ~A" ',(first whole) ',whole))) `(let* ((value ,(car args)) (vector ,(second args))) (declare (:read-only value vector)