From: Raymond Toy Date: Wed, 26 Sep 2012 16:54:58 +0000 (-0700) Subject: Fix typo (missing closing paren). X-Git-Tag: snapshot-2012-10^0 X-Git-Url: http://common-lisp.net/gitweb?p=projects%2Fcmucl%2Fcmucl.git;a=commitdiff_plain;h=8391b8b06135973c176df7049f4f9bff3f926c00 Fix typo (missing closing paren). --- diff --git a/src/compiler/ppc/system.lisp b/src/compiler/ppc/system.lisp index edeed9a..a807607 100644 --- 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 --- 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 --- 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)))))))