[Sbcl-devel] (not a b)

[Alexey D. <ade...@co...>]

from src/code/seq.lisp:

(defun signal-end-too-large-error (sequence end)
  (let* ((length (length sequence))
	 (max-end (and (not (minusp length) length))))
;                      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^
    (error 'end-too-large-error
	   :datum end
	   :expected-type (if max-index
			      `(integer 0 ,max-end)
			      ;; This seems silly, is there something better?
			      '(integer (0) 0)))))

NOT is called with two arguments.

-- 
Regards,
Alexey Dejneka