1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67

sudo apt-get install sbcl darcs git
darcs get http://common-lisp.net/project/babel/darcs/babel cl-babel
darcs get http://common-lisp.net/project/iterate/darcs/iterate cl-iterate
darcs get http://common-lisp.net/~loliveira/darcs/trivial-features cl-trivial-features
darcs get http://common-lisp.net/~loliveira/darcs/trivial-garbagecl-trivial-garbage
darcs get http://common-lisp.net/project/closer/darcs/closer-mop cl-closer-mop
darcs get http://common-lisp.net/project/cffi/darcs/cffi cl-cffi
;darcs get http://common-lisp.net/project/bese/repos/fiveam/ cl-fiveam
;darcs get http://common-lisp.net/project/bese/repos/arnesi_dev/ cl-arnesi
git clone git://common-lisp.net/projects/alexandria/alexandria.git cl-alexandria
git clone git://gitorious.org/bordeaux-threads/bordeaux-threads.git cl-bordeaux-threads
git clone git://gitorious.org/iolib/iolib.git cl-iolib
git clone http://repo.or.cz/r/cl-v4l2.git cl-v4l2
; git clone git://github.com/tpapp/cl-cairo2.git cl-cairo2
git clone http://github.com/3b/cl-opengl.git cl-opengl
git clone git://repo.or.cz/cl-gtk2.git cl-gtk2

sudo apt-get install libv4l-dev
/usr/lib/libv4l/v4l2convert.so

wget http://mirrors.kernel.org/ubuntu/pool/universe/g/gtkglext/libgtkglext1_1.2.0-1ubuntu1_i386.deb
sudo dpkg -i --force-architecture libgtkglext*

~/.sbclrc:
(print "...loading sbcl-rc")

(require 'asdf)
(require 'asdf-install)

(push #p"/path-to/cl-babel/" asdf:*central-registry*)
(push #p"/path-to/cl-iterate/" asdf:*central-registry*)
(push #p"/path-to/cl-alexandria/" asdf:*central-registry*)
(push #p"/path-to/cl-bordeaux-threads/" asdf:*central-registry*)
(push #p"/path-to/cl-trivial-features/" asdf:*central-registry*)
(push #p"/path-to/cl-trivial-garbage/" asdf:*central-registry*)
(push #p"/path-to/cl-closer-mop/" asdf:*central-registry*)
(push #p"/path-to/cl-cffi/" asdf:*central-registry*)
(push #p"/path-to/cl-cairo2/" asdf:*central-registry*)
(push #p"/path-to/cl-opengl/" asdf:*central-registry*)
(push #p"/path-to/cl-v4l2/" asdf:*central-registry*)
;(push #p"/path-to/cl-arnesi/" asdf:*central-registry*)
;(push #p"/path-to/cl-fiveam/" asdf:*central-registry*)

(push #p"/path-to/cl-iolib/src/" asdf:*central-registry*)
;(push #p"/path-to/cl-iolib/tests/" asdf:*central-registry*)
;(push #p"/path-to/cl-iolib/examples/" asdf:*central-registry*)

(push #p"/path-to/cl-gtk2/glib/" asdf:*central-registry*)
(push #p"/path-to/cl-gtk2/pango/" asdf:*central-registry*)
(push #p"/path-to/cl-gtk2/gdk/" asdf:*central-registry*)
(push #p"/path-to/cl-gtk2/gtk/" asdf:*central-registry*)
;(push #p"/path-to/cl-gtk2/cairo/" asdf:*central-registry*)
(push #p"/path-to/cl-gtk2/gtk-glext/" asdf:*central-registry*)

cl-v4l2/v4l2.lisp, if 64bit system:
;; hack uint32->int32
(defun hack-ioctl (fd req arg)
  (let ((req! (if (> req (ash 1 31))
		  (- req (ash 1 32))
		  req)))
    (isys:ioctl fd req! arg)))
    
(defun ioctl (fd req arg)
   (isys:ioctl fd req arg))

LD_PRELOAD=/usr/lib/libv4l/v4l2convert.so sbcl --load ./example-v4l2.lisp 
LD_PRELOAD=/usr/lib64/libv4l/v4l2convert.so sbcl --load ./example-v4l2.lisp