chiark
/
gitweb
/
~mdw
/
clg
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
5d7ab8e
)
Fixed typo and removed unnecessary function declaration
author
espen
<espen>
Thu, 23 Aug 2007 21:12:43 +0000
(21:12 +0000)
committer
espen
<espen>
Thu, 23 Aug 2007 21:12:43 +0000
(21:12 +0000)
cairo/cairo.lisp
patch
|
blob
|
blame
|
history
diff --git
a/cairo/cairo.lisp
b/cairo/cairo.lisp
index a87c6bb05a3d6c451ef609f5f6a049865bed2d09..d17b80e599dcd81a20908022a2a0cdbb28e4dbc7 100644
(file)
--- a/
cairo/cairo.lisp
+++ b/
cairo/cairo.lisp
@@
-20,7
+20,7
@@
;; TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
;; SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
;; TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
;; SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
-;; $Id: cairo.lisp,v 1.1
3 2007-06-04 10:42:5
3 espen Exp $
+;; $Id: cairo.lisp,v 1.1
4 2007-08-23 21:12:4
3 espen Exp $
(in-package "CAIRO")
(in-package "CAIRO")
@@
-40,7
+40,7
@@
(define-enum-type status
(define-enum-type fill-rule :winding :even-odd)
(define-enum-type line-cap :butt :round :square)
(define-enum-type line-join :miter :round :bevel)
(define-enum-type fill-rule :winding :even-odd)
(define-enum-type line-cap :butt :round :square)
(define-enum-type line-join :miter :round :bevel)
- (define-enum-type font-slant :normal :itaic :oblique)
+ (define-enum-type font-slant :normal :ita
l
ic :oblique)
(define-enum-type font-weight :normal :bold)
(define-enum-type operator
(define-enum-type font-weight :normal :bold)
(define-enum-type operator
@@
-470,9
+470,9
@@
(defbinding close-path () nil
(defmacro defpath (name args &optional relative-p)
(flet ((def (name type)
(defmacro defpath (name args &optional relative-p)
(flet ((def (name type)
- `(progn
- ,(when (eq type 'optimized-double-float)
- `(declaim (
ftype (function (context ,@(loop repeat (length args) collect 'double-float)))
,(first name))))
+ `(progn
+ ,(when (eq type 'optimized-double-float)
+ `(declaim (
inline
,(first name))))
(defbinding ,name () nil
(cr context)
,@(mapcar #'(lambda (arg) (list arg type)) args)))))
(defbinding ,name () nil
(cr context)
,@(mapcar #'(lambda (arg) (list arg type)) args)))))