Commit 9c9c68bd authored by Alexey Dejneka's avatar Alexey Dejneka
Browse files

0.8.4.17:

        * Remove CLOSURE-FUN-HEADER-WIDETAG; preserve its number for
          some time in order to keep FASL compatibility.
parent 9908313f
Loading
Loading
Loading
Loading
+1 −2
Original line number Diff line number Diff line
@@ -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
+1 −2
Original line number Diff line number Diff line
@@ -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))))
+1 −1
Original line number Diff line number Diff line
@@ -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
+1 −2
Original line number Diff line number Diff line
@@ -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))))
+2 −4
Original line number Diff line number Diff line
@@ -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).
Loading