Opened 11 years ago

Last modified 3 weeks ago

#74 new defect

slow compilation test

Reported by: trittweiler Owned by: ehuelsmann
Priority: major Milestone: 1.8.1
Component: compiler Version:
Keywords: performance Cc:
Parent Tickets:

Description

(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.

Change History (6)

comment:1 Changed 10 years ago by ehuelsmann

Keywords: performance added
Milestone: unscheduled

Unscheduled, setting performance keyword.

comment:2 Changed 10 years ago by ehuelsmann

Component: CLOScompiler
Owner: changed from somebody to ehuelsmann

Component should probably be 'compiler'.

comment:3 Changed 9 years ago by Mark Evenson

Milestone: unscheduled1.1.0

comment:4 Changed 9 years ago by Mark Evenson

Milestone: 1.1.0unscheduled

comment:5 Changed 4 weeks ago by Mark Evenson

Milestone: unscheduled1.8.0

comment:6 Changed 3 weeks ago by Mark Evenson

Milestone: 1.8.01.8.1

Ticket retargeted after milestone closed

Note: See TracTickets for help on using tickets.