rpms/clisp/FC-5 clisp-2.40-doc.patch,NONE,1.1 clisp.spec,1.17,1.18

[Gérard Milmeister (gemi)]

Author: gemi

Update of /cvs/extras/rpms/clisp/FC-5
In directory cvs-int.fedora.redhat.com:/tmp/cvs-serv2206/FC-5

Modified Files:
	clisp.spec 
Added Files:
	clisp-2.40-doc.patch 
Log Message:


clisp-2.40-doc.patch:

--- NEW FILE clisp-2.40-doc.patch ---
--- 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))))



Index: clisp.spec
===================================================================
RCS file: /cvs/extras/rpms/clisp/FC-5/clisp.spec,v
retrieving revision 1.17
retrieving revision 1.18
diff -u -r1.17 -r1.18
--- clisp.spec	2 Oct 2006 11:24:25 -0000	1.17
+++ clisp.spec	3 Oct 2006 17:04:24 -0000	1.18
@@ -1,12 +1,13 @@
 Name:		clisp
 Summary:	Common Lisp (ANSI CL) implementation
 Version:	2.40
-Release: 	1%{?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
@@ -56,6 +57,8 @@
 
 %prep
 %setup -q
+cd src
+%patch0
 
 
 %build
@@ -129,6 +132,9 @@
 
 
 %changelog
+* Tue Oct  3 2006 Gerard Milmeister <gemi at bluewin.ch> - 2.40-3
+- Added patch for x86_64
+
 * Mon Oct  2 2006 Gerard Milmeister <gemi at bluewin.ch> - 2.40-1
 - new version 2.40