[Gcl-commits] gcl cmpnewgcl_lfun_list.lsp debian/changelog

[Camm Maguire]

CVSROOT:        /cvsroot/gcl
Module name:    gcl
Changes by:     Camm Maguire <camm>     06/06/08 18:40:08

Modified files:
        cmpnew         : gcl_lfun_list.lsp 
        debian         : changelog 

Log message:
        string comparison functions are not predicates

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/gcl/cmpnew/gcl_lfun_list.lsp?cvsroot=gcl&r1=1.11&r2=1.12
http://cvs.savannah.gnu.org/viewcvs/gcl/debian/changelog?cvsroot=gcl&r1=1.1086&r2=1.1087

Patches:
Index: cmpnew/gcl_lfun_list.lsp
===================================================================
RCS file: /cvsroot/gcl/gcl/cmpnew/gcl_lfun_list.lsp,v
retrieving revision 1.11
retrieving revision 1.12
diff -u -b -r1.11 -r1.12
--- cmpnew/gcl_lfun_list.lsp    5 Jun 2006 22:02:45 -0000       1.11
+++ cmpnew/gcl_lfun_list.lsp    8 Jun 2006 18:40:08 -0000       1.12
@@ -49,14 +49,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
@@ -67,7 +67,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) 
 ;;FIXME -- autogenerate this whole file from C definitions.  CM 20050106
@@ -367,7 +366,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) 
@@ -408,7 +407,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)

Index: debian/changelog
===================================================================
RCS file: /cvsroot/gcl/gcl/debian/changelog,v
retrieving revision 1.1086
retrieving revision 1.1087
diff -u -b -r1.1086 -r1.1087
--- debian/changelog    7 Jun 2006 15:04:58 -0000       1.1086
+++ debian/changelog    8 Jun 2006 18:40:08 -0000       1.1087
@@ -173,8 +173,9 @@
   * call-lambda info-type propagation
   * auto-recompilation support
   * fix read-char-no-hang
+  * string comparison functions are not predicates
 
- -- Camm Maguire <address@hidden>  Wed,  7 Jun 2006 15:04:48 +0000
+ -- Camm Maguire <address@hidden>  Thu,  8 Jun 2006 18:39:52 +0000
 
 gclcvs (2.7.0-53) unstable; urgency=low