Changeset 2813
- Timestamp:
- 03/28/08 11:04:22 (10 months ago)
- Files:
-
- trunk/bknr/datastore/src/bknr.skip-list.asd (modified) (1 diff)
- trunk/bknr/datastore/src/skip-list/skip-list-tests.lisp (modified) (2 diffs)
- trunk/bknr/web/src/html-match/html-match-tests.lisp (modified) (1 diff)
- trunk/bknr/web/src/html-match/html-match.asd (modified) (1 diff)
- trunk/bknr/web/src/html-match/html-match.lisp (modified) (1 diff)
- trunk/projects/bos/m2/poi.lisp (modified) (3 diffs)
Legend:
- Unmodified
- Added
- Removed
- Modified
- Copied
- Moved
trunk/bknr/datastore/src/bknr.skip-list.asd
r2809 r2813 21 21 :depends-on (:unit-test :bknr.skip-list) 22 22 :components ((:module "skip-list" :components 23 ((:file "skip-list-test ")))))23 ((:file "skip-list-tests"))))) 24 24 25 25 trunk/bknr/datastore/src/skip-list/skip-list-tests.lisp
r2045 r2813 1 1 (in-package :bknr.skip-list) 2 2 3 (use-package :unit-test) 3 (eval-when (:compile-toplevel :load-toplevel :execute) 4 (use-package :unit-test)) 4 5 5 6 (define-test-class skip-list-test-class) … … 60 61 61 62 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 trunk/bknr/web/src/html-match/html-match-tests.lisp
r1345 r2813 1 1 (in-package :html-match) 2 2 3 (use-package :unit-test) 3 (eval-when (:compile-toplevel :load-toplevel :execute) 4 (use-package :unit-test)) 4 5 5 6 (defmacro test-node-match (pat node) trunk/bknr/web/src/html-match/html-match.asd
r2809 r2813 22 22 (defsystem :html-match.test 23 23 :depends-on (:unit-test :html-match) 24 :components ((:file "html-match-test ")))24 :components ((:file "html-match-tests"))) trunk/bknr/web/src/html-match/html-match.lisp
r1761 r2813 4 4 "Indicates pat-match failure") 5 5 6 (def constant no-bindings '((t . t))6 (defvar no-bindings '((t . t)) ; actually a constant 7 7 "Indicates pat-match success, with no variables") 8 8 trunk/projects/bos/m2/poi.lisp
r2801 r2813 1 1 ;; poi.lisp 2 2 3 ;; Klassen und Funktione f ür die "Points of Information", die für die3 ;; Klassen und Funktione fÃŒr die "Points of Information", die fÃŒr die 4 4 ;; Quadratmeter-Datenbank gespeichert werden. 5 5 6 6 ;; Die Implementation kurvt ein bisschen um den aktuellen Datastore 7 ;; herum, da eine ästhetische Implementation der mehrsprachigen8 ;; Strings MOP erforderlich machen w ürde, die Umstellung des Datastore7 ;; herum, da eine Àsthetische Implementation der mehrsprachigen 8 ;; Strings MOP erforderlich machen wÃŒrde, die Umstellung des Datastore 9 9 ;; auf MOP jedoch noch nicht fertig ist. 10 10 … … 12 12 13 13 ;; Multilinguale Strings als Slots, werden als Hashes im Objekt 14 ;; gespeichert und über slot-string bzw. (setf slot-string)14 ;; gespeichert und ÃŒber slot-string bzw. (setf slot-string) 15 15 ;; angesprochen. 16 16 … … 126 126 127 127 (defun make-poi-javascript (language) 128 "Erzeugt das POI-Javascript f ür das Infosystem"128 "Erzeugt das POI-Javascript fÃŒr das Infosystem" 129 129 (with-output-to-string (*standard-output*) 130 130 (format t "var anzahlSponsoren = ~D;~%" (length (remove-if-not #'(lambda (sponsor) (some #'contract-paidp (sponsor-contracts sponsor)))
