[armedbear-ticket] [armedbear] #74: slow compilation test

[armedbear]

#74: slow compilation test
-------------------------+--------------------------------------------------
 Reporter:  trittweiler  |       Owner:  somebody
     Type:  defect       |      Status:  new     
 Priority:  major        |   Milestone:          
Component:  CLOS         |     Version:          
 Keywords:               |  
-------------------------+--------------------------------------------------
 (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.

-- 
Ticket URL: <http://trac.common-lisp.net/armedbear/ticket/74>
armedbear <http://common-lisp.net/project/armedbear>
armedbear