slow compilation test

[trittweiler]

(eval-when (:compile-toplevel :load-toplevel :execute)

(defclass foo () ()))

(defun quux (x)

(case x

(#. (find-class 'foo) :foo)
(t :quux)))

(flet ((test (x)

(format t "~&(QUUX ~S) => ~S~%" x (quux x))))

(test 42)
(test (find-class 'foo)))

COMPILE-FILE'ing that takes over a second. No real life case,
of course, still you may be interested.

[ehuelsmann]

Unscheduled, setting performance keyword.

[ehuelsmann]

Component should probably be 'compiler'.

[Mark Evenson]

Ticket retargeted after milestone closed