Wed Jul 1 00:48:36 CEST 2009 Tobias Rautenkranz <tobias@rautenkranz.ch>
* CCL fixes
hunk ./src/gc.lisp 69
- (let ((count (hash-table-count smoke::*object-map*)))
- (eval '(run-gc-child))
- (eval '(gc :full t))
- (gc :full t)
- (gc :full t)
- (5am:is (>= count (hash-table-count smoke::*object-map*)))))
+ (gc :full t)
+ (qt:with-core-app
+ (let ((count (hash-table-count smoke::*object-map*)))
+ (eval '(run-gc-child))
+ (eval '(gc :full t))
+ (qt:core-application.send-posted-events)
+ (gc :full t)
+ (qt:core-application.send-posted-events)
+ (gc :full t)
+ (5am:is (>= count (hash-table-count smoke::*object-map*))))))
hunk ./src/gc.lisp 123
- (5am:is (>= objects (hash-table-count smoke::*object-map*))))))
+ (5am:is (>= (+ 2 objects) (hash-table-count smoke::*object-map*))))))
hunk ./src/qstring.lisp 8
-; (5am:for-all ((string (5am:gen-string))) ;;FIXME
+; (5am:for-all ((string (5am:gen-string))) ;; FIXME (Qt bug?)
hunk ./src/qstring.lisp 11
+ ""
hunk ./src/signal-slot.lisp 118
-#-(or sbcl cmucl)
+#-(or sbcl cmucl ccl)