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)))) |
|