[Gcl-commits] gcl debianchangelog cmpnew/gcl_lfun_list.lsp [Version_2_6_8pre]

[Camm Maguire]

CVSROOT:        /cvsroot/gcl
Module name:    gcl
Branch:         Version_2_6_8pre
Changes by:     Camm Maguire <camm>     06/06/08 18:38:10

Modified files:
        debian         : changelog 
        cmpnew         : gcl_lfun_list.lsp 

Log message:
        string comparison functions are not predicates

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/gcl/debian/changelog?cvsroot=gcl&only_with_tag=Version_2_6_8pre&r1=1.220.2.1.4.1.2.1.2.1.2.2.2.1.2.19.2.207.2.23.2.11.2.14.2.13.4.7.2.22.2.42&r2=1.220.2.1.4.1.2.1.2.1.2.2.2.1.2.19.2.207.2.23.2.11.2.14.2.13.4.7.2.22.2.43
http://cvs.savannah.gnu.org/viewcvs/gcl/cmpnew/gcl_lfun_list.lsp?cvsroot=gcl&only_with_tag=Version_2_6_8pre&r1=1.1.2.1.14.1&r2=1.1.2.1.14.2

Patches:
Index: debian/changelog
===================================================================
RCS file: /cvsroot/gcl/gcl/debian/changelog,v
retrieving revision 
1.220.2.1.4.1.2.1.2.1.2.2.2.1.2.19.2.207.2.23.2.11.2.14.2.13.4.7.2.22.2.42
retrieving revision 
1.220.2.1.4.1.2.1.2.1.2.2.2.1.2.19.2.207.2.23.2.11.2.14.2.13.4.7.2.22.2.43
diff -u -b 
-r1.220.2.1.4.1.2.1.2.1.2.2.2.1.2.19.2.207.2.23.2.11.2.14.2.13.4.7.2.22.2.42 
-r1.220.2.1.4.1.2.1.2.1.2.2.2.1.2.19.2.207.2.23.2.11.2.14.2.13.4.7.2.22.2.43
--- debian/changelog    7 Jun 2006 15:09:37 -0000       
1.220.2.1.4.1.2.1.2.1.2.2.2.1.2.19.2.207.2.23.2.11.2.14.2.13.4.7.2.22.2.42
+++ debian/changelog    8 Jun 2006 18:38:09 -0000       
1.220.2.1.4.1.2.1.2.1.2.2.2.1.2.19.2.207.2.23.2.11.2.14.2.13.4.7.2.22.2.43
@@ -53,8 +53,9 @@
   * fix simple-array typep
   * updates for lsp/sys-proclaim
   * fix read-char-no-hang
+  * string comparison functions are not predicates
 
- -- Camm Maguire <address@hidden>  Wed,  7 Jun 2006 15:09:24 +0000
+ -- Camm Maguire <address@hidden>  Thu,  8 Jun 2006 18:37:55 +0000
 
 gcl (2.6.7-7) unstable; urgency=high
 

Index: cmpnew/gcl_lfun_list.lsp
===================================================================
RCS file: /cvsroot/gcl/gcl/cmpnew/gcl_lfun_list.lsp,v
retrieving revision 1.1.2.1.14.1
retrieving revision 1.1.2.1.14.2
diff -u -b -r1.1.2.1.14.1 -r1.1.2.1.14.2
--- cmpnew/gcl_lfun_list.lsp    24 Feb 2006 21:06:07 -0000      1.1.2.1.14.1
+++ cmpnew/gcl_lfun_list.lsp    8 Jun 2006 18:38:10 -0000       1.1.2.1.14.2
@@ -48,14 +48,14 @@
 (DEFSYSFUN 'PATHNAME-HOST "Lpathname_host" '(T) 'T NIL NIL) 
 (DEFSYSFUN 'NSUBST-IF-NOT "Lnsubst_if_not" '(T T T *) 'T NIL NIL) 
 (DEFSYSFUN 'FILE-POSITION "Lfile_position" '(T *) 'T NIL NIL) 
-(DEFSYSFUN 'STRING< "Lstring_l" '(T T *) 'T NIL T) 
+(DEFSYSFUN 'STRING< "Lstring_l" '(T T *) 'T NIL NIL) 
 (DEFSYSFUN 'REVERSE "Lreverse" '(T) 'T NIL NIL) 
 (DEFSYSFUN 'STREAMP "Lstreamp" '(T) 'T NIL T) 
 (DEFSYSFUN 'SYSTEM::PUTPROP "siLputprop" '(T T T) 'T NIL NIL) 
 (DEFSYSFUN 'REMPROP "Lremprop" '(T T) 'T NIL NIL) 
 (DEFSYSFUN 'SYMBOL-PACKAGE "Lsymbol_package" '(T) 'T NIL NIL) 
 (DEFSYSFUN 'NSTRING-UPCASE "Lnstring_upcase" '(T *) 'STRING NIL NIL) 
-(DEFSYSFUN 'STRING>= "Lstring_ge" '(T T *) 'T NIL T) 
+(DEFSYSFUN 'STRING>= "Lstring_ge" '(T T *) 'T NIL NIL) 
 (DEFSYSFUN 'REALPART "Lrealpart" '(T) 'T NIL NIL) 
 ;;broken on suns..
 ;(DEFSYSFUN 'USER-HOMEDIR-PATHNAME "Luser_homedir_pathname" '(*) 'T NIL
@@ -66,7 +66,7 @@
 (DEFSYSFUN 'EQL "Leql" '(T T) 'T NIL T) 
 (DEFSYSFUN 'LOG "Llog" '(T *) 'T NIL NIL) 
 (DEFSYSFUN 'DIRECTORY "Ldirectory" '(T) 'T NIL NIL) 
-(DEFSYSFUN 'STRING-NOT-EQUAL "Lstring_not_equal" '(T T *) 'T NIL T) 
+(DEFSYSFUN 'STRING-NOT-EQUAL "Lstring_not_equal" '(T T *) 'T NIL NIL) 
 (DEFSYSFUN 'SHADOWING-IMPORT "Lshadowing_import" '(T *) 'T NIL NIL) 
 (DEFSYSFUN 'MAPC "Lmapc" '(T T *) 'T NIL NIL) 
 (DEFSYSFUN 'MAPL "Lmapl" '(T T *) 'T NIL NIL) 
@@ -126,9 +126,8 @@
 (DEFSYSFUN 'TERPRI "Lterpri" '(*) 'T NIL NIL) 
 (DEFSYSFUN 'NSUBST "Lnsubst" '(T T T *) 'T NIL NIL) 
 (DEFSYSFUN 'UNUSE-PACKAGE "Lunuse_package" '(T *) 'T NIL NIL) 
-(DEFSYSFUN 'STRING-NOT-GREATERP "Lstring_not_greaterp" '(T T *) 'T NIL
-    T) 
-(DEFSYSFUN 'STRING> "Lstring_g" '(T T *) 'T NIL T) 
+(DEFSYSFUN 'STRING-NOT-GREATERP "Lstring_not_greaterp" '(T T *) 'T NIL NIL) 
+(DEFSYSFUN 'STRING> "Lstring_g" '(T T *) 'T NIL NIL) 
 (DEFSYSFUN 'FINISH-OUTPUT "Lfinish_output" '(*) 'T NIL NIL) 
 (DEFSYSFUN 'SPECIAL-FORM-P "Lspecial_form_p" '(T) 'T NIL T) 
 (DEFSYSFUN 'STRINGP "Lstringp" '(T) 'T NIL T) 
@@ -169,7 +168,7 @@
 (DEFSYSFUN 'BUTLAST "Lbutlast" '(T *) 'T NIL NIL) 
 (DEFSYSFUN '1- "Lone_minus" '(T) 'T NIL NIL) 
 (DEFSYSFUN 'MAKE-HASH-TABLE "Lmake_hash_table" '(*) 'T NIL NIL) 
-(DEFSYSFUN 'STRING/= "Lstring_neq" '(T T *) 'T NIL T) 
+(DEFSYSFUN 'STRING/= "Lstring_neq" '(T T *) 'T NIL NIL) 
 (DEFSYSFUN '<= "Lmonotonically_nondecreasing" '(T *) 'T NIL T) 
 (DEFSYSFUN 'MAKE-BROADCAST-STREAM "Lmake_broadcast_stream" '(*) 'T NIL
     NIL) 
@@ -178,7 +177,7 @@
 (DEFSYSFUN 'READ-CHAR "Lread_char" '(*) 'T NIL NIL) 
 (DEFSYSFUN 'PEEK-CHAR "Lpeek_char" '(*) 'T NIL NIL) 
 (DEFSYSFUN 'CHAR-FONT "Lchar_font" '(T) 'FIXNUM NIL NIL) 
-(DEFSYSFUN 'STRING-GREATERP "Lstring_greaterp" '(T T *) 'T NIL T) 
+(DEFSYSFUN 'STRING-GREATERP "Lstring_greaterp" '(T T *) 'T NIL NIL) 
 (DEFSYSFUN 'OUTPUT-STREAM-P "Loutput_stream_p" '(T) 'T NIL T) 
 (DEFSYSFUN 'ASH "Lash" '(T T) 'T NIL NIL) 
 (DEFSYSFUN 'LCM "Llcm" '(T *) 'T NIL NIL) 
@@ -326,7 +325,7 @@
 (DEFSYSFUN 'FRESH-LINE "Lfresh_line" '(*) 'T NIL NIL) 
 (DEFSYSFUN 'WRITE-CHAR "Lwrite_char" '(T *) 'T NIL NIL) 
 (DEFSYSFUN 'PARSE-NAMESTRING "Lparse_namestring" '(T *) 'T NIL NIL) 
-(DEFSYSFUN 'STRING-NOT-LESSP "Lstring_not_lessp" '(T T *) 'T NIL T) 
+(DEFSYSFUN 'STRING-NOT-LESSP "Lstring_not_lessp" '(T T *) 'T NIL NIL) 
 (DEFSYSFUN 'CHAR "Lchar" '(T T) 'CHARACTER NIL NIL) 
 (DEFSYSFUN 'AREF "Laref" '(T *) 'T NIL NIL) 
 (DEFSYSFUN 'PACKAGE-NICKNAMES "Lpackage_nicknames" '(T) 'T NIL NIL) 
@@ -365,7 +364,7 @@
 (DEFSYSFUN 'VECTORP "Lvectorp" '(T) 'T NIL T) 
 (DEFSYSFUN 'ASSOC-IF "Lassoc_if" '(T T) 'T NIL NIL) 
 (DEFSYSFUN 'GET-PROPERTIES "Lget_properties" '(T T) '* NIL NIL) 
-(DEFSYSFUN 'STRING<= "Lstring_le" '(T T *) 'T NIL T) 
+(DEFSYSFUN 'STRING<= "Lstring_le" '(T T *) 'T NIL NIL) 
 (DEFSYSFUN 'EVALHOOK "Levalhook" '(T T T *) 'T NIL NIL) 
 (DEFSYSFUN 'FILE-WRITE-DATE "Lfile_write_date" '(T) 'T NIL NIL) 
 (DEFSYSFUN 'LOGCOUNT "Llogcount" '(T) 'T NIL NIL) 
@@ -406,7 +405,7 @@
     NIL) 
 (DEFSYSFUN 'APPEND "Lappend" '(*) 'T NIL NIL) 
 (DEFSYSFUN 'MEMBER "Lmember" '(T T *) 'T NIL NIL) 
-(DEFSYSFUN 'STRING-LESSP "Lstring_lessp" '(T T *) 'T NIL T) 
+(DEFSYSFUN 'STRING-LESSP "Lstring_lessp" '(T T *) 'T NIL NIL) 
 (DEFSYSFUN 'RANDOM "Lrandom" '(T *) 'T NIL NIL) 
 (DEFSYSFUN 'SYSTEM::SPECIALP "siLspecialp" '(T) 'T NIL T) 
 (DEFSYSFUN 'SYSTEM::OUTPUT-STREAM-STRING "siLoutput_stream_string" '(T)