Nicolas Neuss <ne...@scipolis.de> writes:
> 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.)
More precisely, if I create a file "ecl-bug.lisp" containing
--8<---------------cut here---------------start------------->8---
(in-package :cl-user)
(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 (*)))))))
--8<---------------cut here---------------end--------------->8---
I observe the following:
> (compile-file "ecl-bug.lisp")
;;;
;;; Compiling ecl-bug.lisp.
;;; OPTIMIZE levels: Safety=2, Space=0, Speed=3, Debug=0
;;;
;;; End of Pass 1.
;;; Emitting code for #:G0.
;;; Internal error:
;;; in file ecl-bug.lisp, position 21
;;; at (SET-DISPATCH-MACRO-CHARACTER # ...)
;;; ** In function STRUCTURE-REF, the value of the first argument is
;;; NIL
;;; which is not of the expected type C1FORM
NIL
T
T
------------------------------------------------------------------------------
Everyone hates slow websites. So do we.
Make your web apps faster with AppDynamics
Download AppDynamics Lite for free today:
http://p.sf.net/sfu/appdyn_d2d_mar
_______________________________________________
Ecls-list mailing list
Ecls-list@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/ecls-list
