rpms/clisp/devel clisp-2.40-doc.patch, NONE, 1.1 clisp.spec, 1.19, 1.20
Gérard Milmeister (gemi)
fedora-extras-commits at redhat.com
Tue Oct 3 16:44:12 UTC 2006
Author: gemi
Update of /cvs/extras/rpms/clisp/devel
In directory cvs-int.fedora.redhat.com:/tmp/cvs-serv31727
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/devel/clisp.spec,v
retrieving revision 1.19
retrieving revision 1.20
diff -u -r1.19 -r1.20
--- clisp.spec 2 Oct 2006 19:10:53 -0000 1.19
+++ clisp.spec 3 Oct 2006 16:44:12 -0000 1.20
@@ -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: libXrender-devel
BuildRequires: libXt-devel
BuildRequires: imake
-#ExcludeArch: ppc ppc64
-ExcludeArch: x86_64
+ExcludeArch: ppc ppc64
%description
@@ -57,6 +57,8 @@
%prep
%setup -q
+cd src
+%patch0
%build
@@ -130,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
More information about the fedora-extras-commits
mailing list