*** empty log message ***

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))))
+

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