(format ... "~A" (apply #'format nil errorstring arguments))

[Sam S. <sd...@gn...>]

Bruno,

In clos-method2.lisp and many other places you have this pattern:

--8<---------------cut here---------------start------------->8---
(defmacro program-error-reporter (caller)
  `#'(lambda (form detail errorstring &rest arguments)
       (apply #'sys::lambda-list-error form detail
              "~S: ~A" ,caller (apply #'format nil errorstring arguments))))
--8<---------------cut here---------------end--------------->8---

Why not

--8<---------------cut here---------------start------------->8---
(defmacro program-error-reporter (caller)
  `#'(lambda (form detail errorstring &rest arguments)
       (apply #'sys::lambda-list-error form detail
              "~S: ~?" ,caller errorstring arguments)))
--8<---------------cut here---------------end--------------->8---

The only place where the second pattern is used is invalid-method-error
and method-combination-error in close-methcomb2.

Thanks.

--
Sam Steingold (http://sds.podval.org/) on darwin Ns 10.3.1504
http://steingoldpsychology.com http://www.childpsy.net http://think-israel.org
http://no2bds.org http://jij.org http://honestreporting.com
You won't get smarter by calling me a fool.