Generic arithmetic and declarations

[Harvey Stein]

Consider the following function:

(defun afunction (a)
  (declare (type (simple-array  double-float (*)) a))
  a)

It compiles fine in cl-user, but if I'm in antik-user, I get:


; in: DEFUN AFUNCTION
;     (TYPE (SIMPLE-ARRAY DOUBLE-FLOAT (ANTIK:*)) ANTIK:A)
;
; caught ERROR:
;   bad dimension in array type: *
;
; compilation unit finished
;   caught 1 ERROR condition

So, the antik definition of * breaks declarations that use *.

Any way to fix this?

Thanks,
Harvey



-- 
Harvey J. Stein
hjstein at gmail.com
http://www.linkedin.com/in/harveyjstein
Selected papers and presentations available at:
http://ssrn.com/author=732372
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://mailman.common-lisp.net/pipermail/antik-devel/attachments/20150517/98b6745b/attachment.html>