Show
Ignore:
Timestamp:
03/28/08 11:04:22 (10 months ago)
Author:
ksprotte
Message:

various small chs to make the buildbot BUILD again successfully

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • trunk/bknr/datastore/src/skip-list/skip-list-tests.lisp

    r2045 r2813  
    11(in-package :bknr.skip-list) 
    22 
    3 (use-package :unit-test) 
     3(eval-when (:compile-toplevel :load-toplevel :execute) 
     4  (use-package :unit-test)) 
    45 
    56(define-test-class skip-list-test-class) 
    …… 
    6061 
    6162 
    62 (defun perf () 
    63   (let ((sl (make-instance 'skip-list))) 
    64     (time (prof:with-profiling () 
    65             (dotimes (i 100000) 
    66               (skip-list-insert sl i i)))) 
    67     (prof:show-flat-profile) 
    68     (format t "~%~%") 
    69     (time (prof:with-profiling () 
    70             (dotimes (i 100000) 
    71               (skip-list-search sl i)))) 
    72     (prof:show-flat-profile))) 
     63;; (defun perf () 
     64;;   (let ((sl (make-instance 'skip-list))) 
     65;;     (time (prof:with-profiling () 
     66;;          (dotimes (i 100000) 
     67;;            (skip-list-insert sl i i)))) 
     68;;     (prof:show-flat-profile) 
     69;;     (format t "~%~%") 
     70;;     (time (prof:with-profiling () 
     71;;          (dotimes (i 100000) 
     72;;            (skip-list-search sl i)))) 
     73;;     (prof:show-flat-profile))) 
     74