summaryrefslogtreecommitdiff
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