Loading src/code/debug-int.lisp +1 −2 Original line number Diff line number Diff line Loading @@ -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 Loading src/code/defmacro.lisp +1 −2 Original line number Diff line number Diff line Loading @@ -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)))) Loading src/code/describe.lisp +1 −1 Original line number Diff line number Diff line Loading @@ -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 Loading src/code/macros.lisp +1 −2 Original line number Diff line number Diff line Loading @@ -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)))) Loading src/code/target-misc.lisp +2 −4 Original line number Diff line number Diff line Loading @@ -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). Loading @@ -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 Loading
src/code/debug-int.lisp +1 −2 Original line number Diff line number Diff line Loading @@ -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 Loading
src/code/defmacro.lisp +1 −2 Original line number Diff line number Diff line Loading @@ -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)))) Loading
src/code/describe.lisp +1 −1 Original line number Diff line number Diff line Loading @@ -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 Loading
src/code/macros.lisp +1 −2 Original line number Diff line number Diff line Loading @@ -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)))) Loading
src/code/target-misc.lisp +2 −4 Original line number Diff line number Diff line Loading @@ -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). Loading @@ -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