Sort the sublists in the value returned by CALLS

library/MSANALYZE

@@ -1,10 +1,12 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-
(FILECREATED "20-Feb-2024 09:28:38" {DSK}<home>larry>il>medley>library>MSANALYZE.;2
 61022  
+
(FILECREATED " 2-Oct-2025 23:05:25" {WMEDLEY}<library>MSANALYZE.;4
 61409  
 
-      :EDIT-BY "lmm"
+      :EDIT-BY rmk
 
-      :PREVIOUS-DATE "17-Feb-2024 22:10:56" {DSK}<home>larry>il>medley>library>MSANALYZE.;3)
+      :CHANGES-TO (FNS CALLS)
+
+      :PREVIOUS-DATE "20-Feb-2024 09:28:38" {WMEDLEY}<library>MSANALYZE.;3)
 
 
 (PRETTYCOMPRINT MSANALYZECOMS)
@@ -72,11 +74,13 @@
     (CADDR (CALLS
 FN USEDATABASE 'FREEVARS])
 
 (CALLS

-  [LAMBDA (EXPR USEDATABASE VARSFLG)
                      (* ; "Edited 12-Jun-90 17:25 by teruuchi")

+  [LAMBDA (EXPR USEDATABASE VARSFLG)
                         (* ; "Edited  2-Oct-2025 23:01 by rmk")


+                                                          (* ; "Edited 12-Jun-90 17:25 by teruuchi")

                                                              (* ; 
 
                             "This FNS  is for the User Interface Function in MSANALYZE(MasterScope)")

                                                              (* ; 
-
                                               "Edited by Tomoru Teruuchi(12-June-90 : for AR#10020)")

+
                                              "Edited by Tomoru Teruuchi(12-June-90 : for AR#10020) ")

+                                                             (* ; "Edited by TT (Date : 8-May-1990)")

     (PROG (FREES (GLOBALS NIL)
                  FNDEF FLG)
           [COND
@@ -84,19 +88,20 @@
                    (GETD 'UPDATEFN))
               (UPDATEFN EXPR NIL 'ERROR)
               [SETQ FREES (GETRELATION EXPR '(USE FREELY]
-              [SETQ FREES (SUBSET FREES (FUNCTION (LAMBDA (VAR)
+              [SETQ FREES (SORT (SUBSET FREES (FUNCTION (LAMBDA (VAR)
                                                              (* ; 
 
                              "This Function is The Predicate whether the variable is global or not.")

-                                                    (if
 (OR (FMEMB VAR GLOBALVARS)
-                                                            (EQ (GETPROP VAR 'GLOBALVAR)
-                                                                T))
-                                                        then
 (pushnew
 GLOBALS VAR)
-                                                             NIL
-                                                      else
 T](* ; "Edited by TT (Date : 8-May-1990)")

+                                                          (if
 (OR (FMEMB VAR GLOBALVARS)
+                                                                  (EQ (GETPROP VAR 'GLOBALVAR)
+                                                                      T))
+                                                              then
 (pushnew
 GLOBALS VAR)
+                                                                   NIL
+                                                            else
 T]
+              (SETQ GLOBALS (SORT GLOBALS))
               (RETURN (LIST [AND (NOT VARSFLG)
-                                 (GETRELATION EXPR '(CALL NOTERROR]
-                            (AND (NEQ VARSFLG 'FREEVARS)
-                                 (GETRELATION EXPR 'BIND))
+                                 (SORT (GETRELATION EXPR '(CALL NOTERROR]
+                            [AND (NEQ VARSFLG 'FREEVARS)
+                                 (SORT (GETRELATION EXPR 'BIND]
                             FREES GLOBALS]
       GETDLP
           (SETQ FNDEF (COND
@@ -170,11 +175,13 @@
                                                                 then
 (pushnew
 GLOBALS VAR)
                                                                      NIL
                                                               else
 T]
-                                                             (* ; "Edited by TT (Date : 8-May-1990)")

-                                 (RETURN (LIST [COLLECTFNDATA
 (CONSTANT (MSVBNOTICED 'CALL
+                                 (RETURN (LIST [SORT (COLLECTFNDATA
 (CONSTANT (MSVBNOTICED
+                                                                               'CALL
                                                                                'NOTERROR]
-                                               [COLLECTFNDATA
 (CONSTANT (MSVBNOTICED 'BIND]
-                                               FREES GLOBALS]
+                                               [SORT (COLLECTFNDATA
 (CONSTANT (MSVBNOTICED
+                                                                               'BIND]
+                                               (SORT FREES)
+                                               (SORT GLOBALS]
               (T '?])
 
 (COLLECTFNDATA

@@ -1270,11 +1277,11 @@ DONTCOPY
 (BLOCK%: MSFINDP MSFINDP)
 )
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (3487 10938 (VARS 3497 . 3636) (FREEVARS 3638 . 3789) (CALLS 3791 . 10089) (
-COLLECTFNDATA 10091 . 10462) (CALLS3 10464 . 10936)) (13187 51210 (ALLCALLS 13197 . 13797) (
-MSINITFNDATA 13799 . 14029) (MSPRGE 14031 . 21284) (MSPRGMACRO 21286 . 21997) (MSPRGCALL 21999 . 22316
-) (MSBINDVAR 22318 . 22825) (MSPRGRECORD 22827 . 29604) (MSPRGERR 29606 . 29769) (MSPRGTEMPLATE1 29771
- . 38819) (MSPRGTEMPLATE 38821 . 39424) (MSPRGLAMBDA 39426 . 48039) (MSPRGLST 48041 . 48203) (ADDTO 
-48205 . 48985) (NLAMBDAFNP 48987 . 49713) (MSPRGDWIM 49715 . 50554) (MSDWIMTRAN 50556 . 51208)) (60485
- 60921 (MSFINDP 60495 . 60919)))))
+  (FILEMAP (NIL (3482 11325 (VARS 3492 . 3631) (FREEVARS 3633 . 3784) (CALLS 3786 . 10476) (
+COLLECTFNDATA 10478 . 10849) (CALLS3 10851 . 11323)) (13574 51597 (ALLCALLS 13584 . 14184) (
+MSINITFNDATA 14186 . 14416) (MSPRGE 14418 . 21671) (MSPRGMACRO 21673 . 22384) (MSPRGCALL 22386 . 22703
+) (MSBINDVAR 22705 . 23212) (MSPRGRECORD 23214 . 29991) (MSPRGERR 29993 . 30156) (MSPRGTEMPLATE1 30158
+ . 39206) (MSPRGTEMPLATE 39208 . 39811) (MSPRGLAMBDA 39813 . 48426) (MSPRGLST 48428 . 48590) (ADDTO 
+48592 . 49372) (NLAMBDAFNP 49374 . 50100) (MSPRGDWIM 50102 . 50941) (MSDWIMTRAN 50943 . 51595)) (60872
+ 61308 (MSFINDP 60882 . 61306)))))
 STOP