From 5f7c279b4aa942fdc9d6530f7903ade2e4d94100 Mon Sep 17 00:00:00 2001
From: Jerry James <jamesjer@betterlinux.com>
Date: Oct 08 2013 17:10:12 +0000
Subject: Add -print-double patch from upstream to fix maxima 5.31.2 or later build.


---

diff --git a/gcl-2.6.8-print-double.patch b/gcl-2.6.8-print-double.patch
new file mode 100644
index 0000000..13893af
--- /dev/null
+++ b/gcl-2.6.8-print-double.patch
@@ -0,0 +1,13 @@
+--- ./o/print.d.orig	2013-07-11 09:28:16.000000000 -0600
++++ ./o/print.d	2013-10-08 11:05:52.054456823 -0600
+@@ -388,6 +388,10 @@ edit_double(int n, double d, int *sp, ch
+ 
+   truncate_double(b,d,n!=7);
+ 
++  if (isdigit(b[0])) {
++    b[1]=b[0];
++    (*ep)++;
++  }
+   if (b[2]=='0') (*ep)++;
+   b[2] = b[1];
+   p = b + 2;
diff --git a/gcl.spec b/gcl.spec
index 22c5cfc..b654a6e 100644
--- a/gcl.spec
+++ b/gcl.spec
@@ -7,7 +7,7 @@
 
 Name:           gcl
 Version:        2.6.8
-Release:        1%{?dist}
+Release:        2%{?dist}
 Summary:        GNU Common Lisp
 
 Group:          Development/Languages
@@ -81,9 +81,10 @@ Patch15:        %{name}-2.6.8-man.patch
 Patch16:        %{name}-2.6.8-reloc-type.patch
 # This patch is still experimental.  Enable large file support.
 Patch17:        %{name}-2.6.8-largefile.patch
-# This patch was last sesnt upstream on 26 Aug 2013.  It fixes a broken
-# sprintf call in the TCL code.
+# Applied upstream.  This patch fixes a broken sprintf call in the TCL code.
 Patch18:        %{name}-2.6.8-tcl.patch
+# Patch provided by upstream.  Fix printing 1d-6.
+Patch19:        %{name}-2.6.8-print-double.patch
 
 BuildRequires:  libXaw-devel
 BuildRequires:  readline-devel
@@ -188,6 +189,7 @@ gcl_exec_t.
 %patch16
 %patch17
 %patch18
+%patch19
 
 # Ensure the frame pointer doesn't get added back
 sed -i 's/"-fomit-frame-pointer"/""/' configure
@@ -340,6 +342,9 @@ fi
 
 
 %changelog
+* Tue Oct  8 2013 Jerry James <loganjerry@gmail.com> - 2.6.8-2
+- Add -print-double patch from upstream to fix maxima 5.31.2 or later build.
+
 * Mon Aug 26 2013 Jerry James <loganjerry@gmail.com> - 2.6.8-1
 - Final 2.6.8 release
 - Build with -fno-omit-frame-pointer on all arches; SGC needs it