/[gcl]/gcl/ansi-tests/packages-00.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/packages-00.lsp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1 by pfdietz, Thu Sep 26 16:53:38 2002 UTC revision 1.2 by pfdietz, Sat Jan 18 18:14:02 2003 UTC
# Line 37  Line 37 
37    (:use "DS1" "DS3")    (:use "DS1" "DS3")
38    (:intern "X" "Y" "Z")    (:intern "X" "Y" "Z")
39    (:import-from "DS2" "F"))9    (:import-from "DS2" "F"))9
   
 (defun sort-package-list (x)  
   (sort (copy-list x)  
         #'string<  
         :key #'package-name))  
   
 (defun sort-symbols (sl)  
   (sort (copy-list sl)  
         #'(lambda (x y)  
             (or  
              (string< (symbol-name x)  
                       (symbol-name y))  
              (and (string= (symbol-name x)  
                            (symbol-name y))  
                   (string< (package-name (symbol-package x))  
                            (package-name (symbol-package y))))))))  
   
 (defun num-symbols-in-package (p)  
   (let ((num 0))  
     (declare (fixnum num))  
     (do-symbols (s p num)  
       (declare (ignore s))  
       (incf num))))  
   
 (defun num-external-symbols-in-package (p)  
   (let ((num 0))  
     (declare (fixnum num))  
     (do-external-symbols (s p num)  
       (declare (ignore s))  
       (incf num))))  

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26