Changeset 3273
- Timestamp:
- 06/16/08 11:53:25 (7 months ago)
- Files:
-
- trunk/projects/bos/test/web/startup.lisp (modified) (1 diff)
Legend:
- Unmodified
- Added
- Removed
- Modified
- Copied
- Moved
trunk/projects/bos/test/web/startup.lisp
r3268 r3273 5 5 (check-type port-var symbol) 6 6 `(let* ((,port-var (+ 70000 (random 5253))) 7 (server (bos.web::init :port ,port-var))) 7 (server (bos.web::init :port ,port-var 8 :worldpay-test-mode t))) 8 9 (unwind-protect 9 10 (progn ,@body)
