string too long: desired length 6553600 exceeds the supported maximum length

I am getting this error:

*** - string too long: desired length 6553600
      exceeds the supported maximum length

as I have 96532 database entries where I am constructing something
like:

(defun cf-interactions-total-for-people (people)
  "For list of PEOPLE calculate the total of interactions"
  (let* ((or-clause (mapcar (lambda (id) (format nil "interactions_contacts = ~A" id)) people))
	 (or-clause (format nil "~{~A~^ OR ~}" or-clause))
	 (sql (format nil "SELECT sum(interactions_count) FROM interactions WHERE ~A" or-clause))
	 (sum (car (rcd-sql-first sql))))
    sum))

and "interactions_contacts = ~A or interactions_contacts = ~A" is
repeated so many times.

How can I increase that limit?

Jean


_______________________________________________
clisp-list mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/clisp-list