Commit 8391b8b0 authored by Raymond Toy's avatar Raymond Toy
Browse files

Fix typo (missing closing paren).

parent 8d75583b

src/compiler/ppc/system.lisp

+1 −1
Original line number Diff line number Diff line
@@ -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)))))))

src/compiler/sparc/system.lisp

+1 −1
Original line number Diff line number Diff line
@@ -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)))))))

src/compiler/x86/system.lisp

+1 −1
Original line number Diff line number Diff line
@@ -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)))))))