[Ecls-list] Bug?

[Nicolas Neuss]

Hello,

I am trying to make my PDE solver Femlisp work on ECL again.  At the
moment ECL cannot compile the following code (which should make #d(...)
construct a double-float vector):

(eval-when (:compile-toplevel :load-toplevel :execute)
  (set-dispatch-macro-character
   #\# #\d  ; dispatch on #d for double-vec
   #'(lambda (stream char n)
       (declare (ignore char n))
       (let ((list (read stream nil (values) t)))
	 `(coerce ',list '(simple-array double-float (*)))))))

(IIRC, the code has worked in some previous version of ECL.)

Nicolas