blob: 1ec3eca0897c9e8a2eb0946baf2e4dbf0cce3741 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
diff -ur clx-0.7.4.orig/dep-openmcl.lisp clx-0.7.4/dep-openmcl.lisp
--- clx-0.7.4.orig/dep-openmcl.lisp 2009-11-28 16:43:30.000000000 +0100
+++ clx-0.7.4/dep-openmcl.lisp 2009-11-29 22:39:36.000000000 +0100
@@ -492,7 +492,7 @@
;;; value changes.
(defun process-block (whostate predicate &rest predicate-args)
- (declare (dynamic-extern predicate-args))
+ (declare (dynamic-extent predicate-args))
(apply #'ccl:process-wait whostate predicate predicate-args))
;;; PROCESS-WAKEUP: Check some other process' wait function.
@@ -1113,7 +1113,7 @@
unit byte-lsb-first-p bit-lsb-first-p)
(declare (ignore bbuf boffset pixarray x y width height
padded-bytes-per-line bits-per-pixel unit
- byte-lsb-first-p bit-lsp-first-p))
+ byte-lsb-first-p bit-lsb-first-p))
nil)
;;; FAST-COPY-PIXARRAY - copy part of a pixarray into another
|
GitWeb
