[Sbcl-commits] CVS: sbcl/src/code debug-int.lisp,1.75,1.76 defmacro.lisp,1.17,1.18 describe.lisp,1.40,1.41 macros.lisp,1.36,1.37 target-misc.lisp,1.16,1.17

[Alexey D. <ade...@us...>]

Update of /cvsroot/sbcl/sbcl/src/code
In directory sc8-pr-cvs1:/tmp/cvs-serv14151/src/code

Modified Files:
	debug-int.lisp defmacro.lisp describe.lisp macros.lisp 
	target-misc.lisp 
Log Message:
0.8.4.17:
        * Remove CLOSURE-FUN-HEADER-WIDETAG; preserve its number for
          some time in order to keep FASL compatibility.


Index: debug-int.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/code/debug-int.lisp,v
retrieving revision 1.75
retrieving revision 1.76
diff -u -d -r1.75 -r1.76
--- debug-int.lisp	13 Sep 2003 01:19:37 -0000	1.75
+++ debug-int.lisp	10 Oct 2003 07:33:33 -0000	1.76
@@ -1190,8 +1190,7 @@
      (fun-debug-fun (%closure-fun fun)))
     (#.sb!vm:funcallable-instance-header-widetag
      (fun-debug-fun (funcallable-instance-fun fun)))
-    ((#.sb!vm:simple-fun-header-widetag
-      #.sb!vm:closure-fun-header-widetag)
+    (#.sb!vm:simple-fun-header-widetag
       (let* ((name (%simple-fun-name fun))
 	     (component (fun-code-header fun))
 	     (res (find-if

Index: defmacro.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/code/defmacro.lisp,v
retrieving revision 1.17
retrieving revision 1.18
diff -u -d -r1.17 -r1.18
--- defmacro.lisp	11 Jun 2003 05:53:59 -0000	1.17
+++ defmacro.lisp	10 Oct 2003 07:33:33 -0000	1.18
@@ -92,8 +92,7 @@
                              lambda-list
 			     (%simple-fun-name (%closure-fun definition))
 			     debug-name))
-                      ((#.sb!vm:simple-fun-header-widetag
-                        #.sb!vm:closure-fun-header-widetag)
+                      (#.sb!vm:simple-fun-header-widetag
                        (setf (%simple-fun-arglist definition) lambda-list
 			     (%simple-fun-name definition) debug-name))))
             name))))

Index: describe.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/code/describe.lisp,v
retrieving revision 1.40
retrieving revision 1.41
diff -u -d -r1.40 -r1.41
--- describe.lisp	15 Sep 2003 10:12:45 -0000	1.40
+++ describe.lisp	10 Oct 2003 07:33:33 -0000	1.41
@@ -219,7 +219,7 @@
 	 (pprint-indent :current 8)
 	 (dotimes (i (- (get-closure-length x) (1- sb-vm:closure-info-offset)))
 	   (format s "~@:_~S: ~S" i (%closure-index-ref x i)))))
-      ((#.sb-vm:simple-fun-header-widetag #.sb-vm:closure-fun-header-widetag)
+      (#.sb-vm:simple-fun-header-widetag
        (%describe-fun-compiled x s kind name))
       (#.sb-vm:funcallable-instance-header-widetag
        ;; Only STANDARD-GENERIC-FUNCTION would be handled here, but

Index: macros.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/code/macros.lisp,v
retrieving revision 1.36
retrieving revision 1.37
diff -u -d -r1.36 -r1.37
--- macros.lisp	26 Aug 2003 13:21:18 -0000	1.36
+++ macros.lisp	10 Oct 2003 07:33:33 -0000	1.37
@@ -168,8 +168,7 @@
                              lambda-list
 			     (%simple-fun-name (%closure-fun definition))
 			     debug-name))
-                      ((#.sb!vm:simple-fun-header-widetag
-                        #.sb!vm:closure-fun-header-widetag)
+                      (#.sb!vm:simple-fun-header-widetag
                        (setf (%simple-fun-arglist definition) lambda-list
 			     (%simple-fun-name definition) debug-name))))
 	     name))))

Index: target-misc.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/code/target-misc.lisp,v
retrieving revision 1.16
retrieving revision 1.17
diff -u -d -r1.16 -r1.17
--- target-misc.lisp	26 Jun 2003 18:58:45 -0000	1.16
+++ target-misc.lisp	10 Oct 2003 07:33:33 -0000	1.17
@@ -54,8 +54,7 @@
   (case (widetag-of fun)
     (#.sb!vm:closure-header-widetag
      (%simple-fun-name (%closure-fun fun)))
-    ((#.sb!vm:simple-fun-header-widetag
-      #.sb!vm:closure-fun-header-widetag)
+    (#.sb!vm:simple-fun-header-widetag
      ;; KLUDGE: The pun that %SIMPLE-FUN-NAME is used for closure
      ;; functions is left over from CMU CL (modulo various renaming
      ;; that's gone on since the fork).
@@ -68,8 +67,7 @@
   (aver nil) ; since this is unsafe 'til bug 137 is fixed
   (let ((widetag (widetag-of fun)))
     (case widetag
-      ((#.sb!vm:simple-fun-header-widetag
-	#.sb!vm:closure-fun-header-widetag)
+      (#.sb!vm:simple-fun-header-widetag
        ;; KLUDGE: The pun that %SIMPLE-FUN-NAME is used for closure
        ;; functions is left over from CMU CL (modulo various renaming
        ;; that's gone on since the fork).