Fix typo (missing closing paren).

diff --git a/src/compiler/ppc/system.lisp b/src/compiler/ppc/system.lisp
index edeed9a..a807607 100644 (file)
--- a/src/compiler/ppc/system.lisp
+++ b/src/compiler/ppc/system.lisp
@@ -291,6 +291,6 @@
                   (read-cycle-counter)
                 ;; Can't do anything about the notes about generic
                 ;; arithmetic, so silence the notes..
-                (declare (optimize (inhibit-warnings 3))
+                (declare (optimize (inhibit-warnings 3)))
                  (+ (ash (- ,hi1 ,hi0) 32)
                     (- ,lo1 ,lo0)))))))

diff --git a/src/compiler/sparc/system.lisp b/src/compiler/sparc/system.lisp
index 2ba0b34..dba4b6d 100644 (file)
--- a/src/compiler/sparc/system.lisp
+++ b/src/compiler/sparc/system.lisp
@@ -299,6 +299,6 @@ result is the first value."
                   (read-cycle-counter)
                 ;; Can't do anything about the notes about generic
                 ;; arithmetic, so silence the notes..
-                (declare (optimize (inhibit-warnings 3))
+                (declare (optimize (inhibit-warnings 3)))
                  (+ (ash (- ,hi1 ,hi0) 32)
                     (- ,lo1 ,lo0)))))))

diff --git a/src/compiler/x86/system.lisp b/src/compiler/x86/system.lisp
index 9207b5b..93519d8 100644 (file)
--- a/src/compiler/x86/system.lisp
+++ b/src/compiler/x86/system.lisp
@@ -691,6 +691,6 @@
                   (read-cycle-counter)
                 ;; Can't do anything about the notes about generic
                 ;; arithmetic, so silence the notes..
-                (declare (optimize (inhibit-warnings 3))
+                (declare (optimize (inhibit-warnings 3)))
                  (+ (ash (- ,hi1 ,hi0) 32)
                     (- ,lo1 ,lo0)))))))