From 8391b8b06135973c176df7049f4f9bff3f926c00 Mon Sep 17 00:00:00 2001 From: Raymond Toy Date: Wed, 26 Sep 2012 09:54:58 -0700 Subject: [PATCH] Fix typo (missing closing paren). --- src/compiler/ppc/system.lisp | 2 +- src/compiler/sparc/system.lisp | 2 +- src/compiler/x86/system.lisp | 2 +- 3 files changed, 3 insertions(+), 3 deletions(-) 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))))))) -- 1.7.10.4