/[de-setf-amqp]/readmes/README-build-ccl.md
ViewVC logotype

Contents of /readmes/README-build-ccl.md

Parent Directory Parent Directory | Revision Log Revision Log


Revision 3 - (show annotations)
Tue Feb 23 09:05:39 2010 UTC (4 years, 1 month ago) by janderson
File size: 1312 byte(s)
Merge commit 'remotes/github/master' into remotes/git-svn
1
2 DE.SETF.AMQP: build it with Clozure Common Lisp
3 ------------
4
5 The system can be built and saved as a run-time image from the command line
6
7 $ export CCL=/Development/Applications/LISP/ccl-1.4/dppccl
8 $ $CCL --no-init --load readmes/build-init.lisp \
9 --eval "(asdf:operate 'asdf:load-op :de.setf.amqp.amqp-1-1-0-8-0)" \
10 --eval "(asdf:operate 'asdf:load-op :de.setf.amqp.amqp-1-1-0-9-0)" \
11 --eval "(asdf:operate 'asdf:load-op :de.setf.amqp.amqp-1-1-0-9-1)" \
12 --eval '(ccl:save-application "ccl-amqp.image")'
13
14 Start it with the core
15
16 $ $CCL -I ccl-amqp.image
17 ;Loading #P"P-LIBRARY:net;common-lisp;asdf;asdf..newest"...
18 Welcome to Clozure Common Lisp Version 1.4-r13119 (DarwinPPC32)!
19 ? (defparameter *c* (make-instance 'amqp:connection :uri "amqp://guest:guest@localhost/"))
20 *C*
21 ? (amqp:with-open-channel (output *c* :exchange "ex" :type "direct" :queue "q1")
22 (format output "~a, ~a, ~a~%"
23 (lisp-implementation-type)
24 (lisp-implementation-version)
25 amqp.u:*version*))
26 NIL
27 ? (amqp:with-open-channel (input *c* :queue "q1")
28 (read-line input))
29 "Clozure Common Lisp, Version 1.4-r13119 (DarwinPPC32), de.setf.amqp-20100218T233140Z00"
30 ?
31
32 A snap-shot image is present in the downloads section.

  ViewVC Help
Powered by ViewVC 1.1.5