Custom Query (1030 matches)

(deftype x () '(complex double-float)) (coerce 1 'x) => 1

while (coerce 1 '(complex double-float)) => #C(1.0D0 0.0D0)

(coerce #c(1 2) 'x) => The value #C(1 2) is not of the expected type REAL.

While (coerce #c(1 2) '(complex double-float)) => #C(1.0D0 2.0D0)

When *print-circle* is T, FORMAT uses three times as much memory when printing conses compared to 1.9-r15757 (LinuxX8664), for example:

(defun test () (dotimes (k 100000) (format () "~a" '((a) (b)))))
(time (test))

Runtime is also increased, by ca. 25%

When *print-circle* is nil, the increase in memory usage is even bigger (almost tenfold).

See ​http://lists.clozure.com/pipermail/openmcl-devel/2014-August/010668.html