[Gcl-commits] gcl cmpnewgcl_cmpopt.lsp debian/changelog lsp/g...

[Camm Maguire]

CVSROOT:        /cvsroot/gcl
Module name:    gcl
Changes by:     Camm Maguire <camm>     06/06/21 21:10:55

Modified files:
        cmpnew         : gcl_cmpopt.lsp 
        debian         : changelog 
        lsp            : gcl_listlib.lsp 

Log message:
        signatures for first et. al.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/gcl/cmpnew/gcl_cmpopt.lsp?cvsroot=gcl&r1=1.34&r2=1.35
http://cvs.savannah.gnu.org/viewcvs/gcl/debian/changelog?cvsroot=gcl&r1=1.1096&r2=1.1097
http://cvs.savannah.gnu.org/viewcvs/gcl/lsp/gcl_listlib.lsp?cvsroot=gcl&r1=1.11&r2=1.12

Patches:
Index: cmpnew/gcl_cmpopt.lsp
===================================================================
RCS file: /cvsroot/gcl/gcl/cmpnew/gcl_cmpopt.lsp,v
retrieving revision 1.34
retrieving revision 1.35
diff -u -b -r1.34 -r1.35
--- cmpnew/gcl_cmpopt.lsp       17 Jun 2006 19:26:58 -0000      1.34
+++ cmpnew/gcl_cmpopt.lsp       21 Jun 2006 21:10:55 -0000      1.35
@@ -898,6 +898,42 @@
 (pushn '((t) t #.(flags)"CMPcadddr(#0)")
    (get 'fourth 'inline-unsafe))
 
+;;FIFTH
+ (pushn '((t) t #.(flags)"cadr(cdddr(#0))")
+   (get 'fifth 'inline-safe))
+(pushn '((t) t #.(flags)"CMPcadr(CMPcdddr(#0))")
+   (get 'fifth 'inline-unsafe))
+
+;;SIXTH
+ (pushn '((t) t #.(flags)"caddr(cdddr(#0))")
+   (get 'sixth 'inline-safe))
+(pushn '((t) t #.(flags)"CMPcaddr(CMPcdddr(#0))")
+   (get 'sixth 'inline-unsafe))
+
+;;SEVENTH
+ (pushn '((t) t #.(flags)"cadddr(cdddr(#0))")
+   (get 'seventh 'inline-safe))
+(pushn '((t) t #.(flags)"CMPcadddr(CMPcdddr(#0))")
+   (get 'seventh 'inline-unsafe))
+
+;;EIGHTH
+ (pushn '((t) t #.(flags)"cadr(cdddr(cdddr(#0)))")
+   (get 'eighth 'inline-safe))
+(pushn '((t) t #.(flags)"CMPcadr(CMPcdddr(CMPcdddr(#0)))")
+   (get 'eighth 'inline-unsafe))
+
+;;NINTH
+ (pushn '((t) t #.(flags)"caddr(cdddr(cdddr(#0)))")
+   (get 'ninth 'inline-safe))
+(pushn '((t) t #.(flags)"CMPcaddr(CMPcdddr(CMPcdddr(#0)))")
+   (get 'ninth 'inline-unsafe))
+
+;;TENTH
+ (pushn '((t) t #.(flags)"cadddr(cdddr(cdddr(#0)))")
+   (get 'tenth 'inline-safe))
+(pushn '((t) t #.(flags)"CMPcadddr(CMPcdddr(CMPcdddr(#0)))")
+   (get 'tenth 'inline-unsafe))
+
 ;;GET
  (pushn '((t t t) t #.(flags)"get(#0,#1,#2)")
    (get 'get 'inline-always))

Index: debian/changelog
===================================================================
RCS file: /cvsroot/gcl/gcl/debian/changelog,v
retrieving revision 1.1096
retrieving revision 1.1097
diff -u -b -r1.1096 -r1.1097
--- debian/changelog    21 Jun 2006 20:15:56 -0000      1.1096
+++ debian/changelog    21 Jun 2006 21:10:55 -0000      1.1097
@@ -188,8 +188,9 @@
     comparison;128M more heap
   * Check for X headers before building xgcl
   * clean up latest gcc compiler warnings
+  * signatures for first et. al.
 
- -- Camm Maguire <address@hidden>  Wed, 21 Jun 2006 20:15:41 +0000
+ -- Camm Maguire <address@hidden>  Wed, 21 Jun 2006 21:10:39 +0000
 
 gclcvs (2.7.0-53) unstable; urgency=low
 

Index: lsp/gcl_listlib.lsp
===================================================================
RCS file: /cvsroot/gcl/gcl/lsp/gcl_listlib.lsp,v
retrieving revision 1.11
retrieving revision 1.12
diff -u -b -r1.11 -r1.12
--- lsp/gcl_listlib.lsp 12 Apr 2006 13:38:08 -0000      1.11
+++ lsp/gcl_listlib.lsp 21 Jun 2006 21:10:55 -0000      1.12
@@ -193,9 +193,16 @@
   (declare (optimize (safety 2)));prevent unsafe inline of nthcdr
   (car (nthcdr n x)))
 
-(let ((i -1))
-  (dolist (l '(first second third fourth fifth sixth seventh eighth ninth 
tenth))
-    (eval `(defun ,l (x) (declare (optimize (safety 1))) (nth ,(incf i) x)))))
+(defun first (x) (declare (optimize (safety 1))) (nth 0 x)) 
+(defun second (x) (declare (optimize (safety 1))) (nth 1 x)) 
+(defun third (x) (declare (optimize (safety 1))) (nth 2 x)) 
+(defun fourth (x) (declare (optimize (safety 1))) (nth 3 x)) 
+(defun fifth (x) (declare (optimize (safety 1))) (nth 4 x)) 
+(defun sixth (x) (declare (optimize (safety 1))) (nth 5 x)) 
+(defun seventh (x) (declare (optimize (safety 1))) (nth 6 x)) 
+(defun eighth (x) (declare (optimize (safety 1))) (nth 7 x)) 
+(defun ninth (x) (declare (optimize (safety 1))) (nth 8 x)) 
+(defun tenth (x) (declare (optimize (safety 1))) (nth 9 x)) 
 
 ; Courtesy Paul Dietz
 (defmacro nth-value (n expr)