CVS: sbcl/src/compiler srctran.lisp,1.44,1.45

Update of /cvsroot/sbcl/sbcl/src/compiler
In directory usw-pr-cvs1:/tmp/cvs-serv1093/src/compiler

Modified Files:
        srctran.lisp 
Log Message:
0.7.4.30:
        Merge BYTE fix.
        ... include LDB-TEST in the shadowed symbols
        ... leave hideous violation of OAOO in load-or-cload-xcompiler
                unfixed for now
        Minor IGNORE/IGNORABLE and IN-PACKAGE tweaks


Index: srctran.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/compiler/srctran.lisp,v
retrieving revision 1.44
retrieving revision 1.45
diff -u -d -r1.44 -r1.45
--- srctran.lisp        17 Apr 2002 02:19:38 -0000      1.44
+++ srctran.lisp        13 Jun 2002 08:54:37 -0000      1.45
@@ -180,7 +180,8 @@
 (define-source-transform logtest (x y) `(not (zerop (logand ,x ,y))))
 (define-source-transform logbitp (index integer)
   `(not (zerop (logand (ash 1 ,index) ,integer))))
-(define-source-transform byte (size position) `(cons ,size ,position))
+(define-source-transform byte (size position)
+  `(cons ,size ,position))
 (define-source-transform byte-size (spec) `(car ,spec))
 (define-source-transform byte-position (spec) `(cdr ,spec))
 (define-source-transform ldb-test (bytespec integer)


_______________________________________________________________

Don't miss the 2002 Sprint PCS Application Developer's Conference
August 25-28 in Las Vegas - 
http://devcon.sprintpcs.com/adp/index.cfm?source=osdntextlink