From 4c56dc8ac3fc0682ab26ff076f46bf4ce7e6de1b Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?G=C3=A9rard=20Milmeister?= <gemi@fedoraproject.org>
Date: Tue, 3 Oct 2006 16:44:12 +0000
Subject: [PATCH] *** empty log message ***

---
 clisp-2.40-doc.patch | 41 +++++++++++++++++++++++++++++++++++++++++
 clisp.spec           | 11 ++++++++---
 2 files changed, 49 insertions(+), 3 deletions(-)
 create mode 100644 clisp-2.40-doc.patch

diff --git a/clisp-2.40-doc.patch b/clisp-2.40-doc.patch
new file mode 100644
index 0000000..f59a4f7
--- /dev/null
+++ b/clisp-2.40-doc.patch
@@ -0,0 +1,41 @@
+--- documentation.lisp	02 Oct 2006 06:01:24 -0400	1.26
++++ documentation.lisp	03 Oct 2006 10:47:23 -0400
+@@ -4,7 +4,7 @@
+
+ (in-package "CLOS")
+
+-(defun function-documentation (x)
++(defun function-documentation (x &aux name)
+   (cond ((typep-class x <standard-generic-function>)
+          (std-gf-documentation x))
+         ((eq (type-of x) 'FUNCTION) ; interpreted function?
+@@ -12,8 +12,7 @@
+         #+FFI ((eq (type-of x) 'ffi::foreign-function)
+                (getf (sys::%record-ref x 5) :documentation))
+         ((sys::closurep x) (sys::closure-documentation x))
+-        ((let ((name (sys::subr-info x))) ; subr
+-           (and name (get :documentation name))))
++        ((setq name (sys::subr-info x)) (get :documentation name)) ; subr
+         (t (get :documentation (sys::%record-ref x 0)))))
+
+ ;;; documentation
+@@ -81,7 +80,7 @@
+   (:method ((x slot-definition) (doc-type (eql 't)))
+     (slot-definition-documentation x)))
+
+-(defun set-function-documentation (x new-value)
++(defun set-function-documentation (x new-value &aux name)
+   (cond ((typep-class x <standard-generic-function>)
+          (setf (std-gf-documentation x) new-value))
+         ((eq (type-of x) 'FUNCTION) ; interpreted function?
+@@ -89,8 +88,8 @@
+         #+FFI ((eq (type-of x) 'ffi::foreign-function)
+                (setf (getf (sys::%record-ref x 5) :documentation) new-value))
+         ((sys::closurep x) (sys::closure-set-documentation x new-value))
+-        ((let ((name (sys::subr-info x))) ; subr
+-           (and name (setf (get :documentation name) new-value))))
++        ((setq name (sys::subr-info x)) ; subr
++         (setf (get :documentation name) new-value))
+         (t                      ; fsubr
+          (setf (get :documentation (sys::%record-ref x 0)) new-value))))
+
diff --git a/clisp.spec b/clisp.spec
index 8e06805..d6e9db8 100644
--- a/clisp.spec
+++ b/clisp.spec
@@ -1,12 +1,13 @@
 Name:		clisp
 Summary:	Common Lisp (ANSI CL) implementation
 Version:	2.40
-Release: 	2%{?dist}
+Release: 	3%{?dist}
 
 Group:		Development/Languages
 License:	GPL
 URL:		http://clisp.cons.org
 Source:		http://download.sourceforge.net/clisp/clisp-2.40.tar.bz2
+Patch0:		clisp-2.40-doc.patch
 BuildRoot:	%{_tmppath}/%{name}-%{version}-%{release}-root-%(%{__id_u} -n)
 BuildRequires:	readline-devel, gettext, pcre-devel, postgresql-devel
 BuildRequires:	libsigsegv-devel, db4-devel, zlib-devel
@@ -20,8 +21,7 @@ BuildRequires:  libXmu-devel
 BuildRequires:  libXrender-devel
 BuildRequires:  libXt-devel
 BuildRequires:	imake
-#ExcludeArch:	ppc ppc64
-ExcludeArch:	x86_64
+ExcludeArch:	ppc ppc64
 
 
 %description
@@ -57,6 +57,8 @@ Files necessary for linking CLISP.
 
 %prep
 %setup -q
+cd src
+%patch0
 
 
 %build
@@ -130,6 +132,9 @@ rm -fr $RPM_BUILD_ROOT
 
 
 %changelog
+* Tue Oct  3 2006 Gerard Milmeister <gemi@bluewin.ch> - 2.40-3
+- Added patch for x86_64
+
 * Mon Oct  2 2006 Gerard Milmeister <gemi@bluewin.ch> - 2.40-1
 - new version 2.40