technoblogy / ulisp-arm

A version of the Lisp programming language for ARM-based boards.
http://www.ulisp.com/
MIT License
97 stars 30 forks source link

Length of one-dimensional array returns a negative size #40

Closed technoblogy closed 3 years ago

technoblogy commented 3 years ago
> (defvar a (make-array 10 :initial-element 1))
a

> a
#(1 1 1 1 1 1 1 1 1 1)

> (length a)
-10

Thanks to Fausto Saporito for reporting this.