-
Notifications
You must be signed in to change notification settings - Fork 3
/
package.lisp
75 lines (64 loc) · 2.81 KB
/
package.lisp
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
68
69
70
71
72
73
74
75
(cl:defpackage :opticl-core
(:use #:cl)
(:export #:image
#:pixel
#:pixel*
#:do-pixels
#:set-pixels
#:do-region-pixels
#:set-region-pixels
#:gray-image
#:1-bit-gray-image #:make-1-bit-gray-image
#:2-bit-gray-image #:make-2-bit-gray-image
#:4-bit-gray-image #:make-4-bit-gray-image
#:8-bit-gray-image #:make-8-bit-gray-image
#:16-bit-gray-image #:make-16-bit-gray-image
#:32-bit-gray-image #:make-32-bit-gray-image
#:fixnum-gray-image #:make-fixnum-gray-image
#:single-float-gray-image #:make-single-float-gray-image
#:double-float-gray-image #:make-double-float-gray-image
#:gray-alpha-image
#:1-bit-gray-alpha-image #:make-1-bit-gray-alpha-image
#:2-bit-gray-alpha-image #:make-2-bit-gray-alpha-image
#:4-bit-gray-alpha-image #:make-4-bit-gray-alpha-image
#:8-bit-gray-alpha-image #:make-8-bit-gray-alpha-image
#:16-bit-gray-alpha-image #:make-16-bit-gray-alpha-image
#:32-bit-gray-alpha-image #:make-32-bit-gray-image
#:rgb-image
#:4-bit-rgb-image #:make-4-bit-rgb-image
#:8-bit-rgb-image #:make-8-bit-rgb-image
#:16-bit-rgb-image #:make-16-bit-rgb-image
#:32-bit-rgb-image #:make-32-bit-rgb-image
#:fixnum-rgb-image #:make-fixnum-rgb-image
#:single-float-rgb-image #:make-single-float-rgb-image
#:double-float-rgb-image #:make-double-float-rgb-image
#:rgba-image
#:4-bit-rgba-image #:make-4-bit-rgba-image
#:8-bit-rgba-image #:make-8-bit-rgba-image
#:16-bit-rgba-image #:make-16-bit-rgba-image
#:32-bit-rgba-image #:make-32-bit-rgba-image
#:fixnum-rgba-image #:make-fixnum-rgba-image
#:single-float-rgba-image #:make-single-float-rgba-image
#:double-float-rgba-image #:make-double-float-rgba-image
#:with-image-bounds
#:do-pixels
#:set-pixels
#:do-region-pixels
#:set-region-pixels
#:clear-image
#:copy-array
))
#+sbcl
(eval-when (:compile-toplevel :load-toplevel :execute)
(require :sb-cltl2))
(defpackage :opticl-cltl2
#+sbcl (:import-from :sb-cltl2 :variable-information)
#+ccl (:import-from :ccl :variable-information)
#+(or sbcl ccl allegro) (:export :variable-information))
#+allegro
(defun opticl-cltl2:variable-information (symbol &optional env)
"A CLTL2-signature-compatible version of VARIABLE-INFORMATION on Allegro Common Lisp."
(multiple-value-bind (binding-type locative decl localp)
(sys:variable-information symbol env)
(declare (ignore locative))
(values binding-type localp decl)))