[armedbear-ticket] [armedbear] #74: slow compilation test - armedbear-ticket - mailman3.common-lisp.net

8 Dec 2009


      #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