1295 |
(let ((num 0)) |
(let ((num 0)) |
1296 |
(declare (fixnum num)) |
(declare (fixnum num)) |
1297 |
(do-symbols (s p num) |
(do-symbols (s p num) |
1298 |
|
(declare (ignorable s)) |
1299 |
(incf num)))) |
(incf num)))) |
1300 |
|
|
1301 |
(defun num-external-symbols-in-package (p) |
(defun num-external-symbols-in-package (p) |
1302 |
(let ((num 0)) |
(let ((num 0)) |
1303 |
(declare (fixnum num)) |
(declare (fixnum num)) |
1304 |
(do-external-symbols (s p num) |
(do-external-symbols (s p num) |
1305 |
|
(declare (ignorable s)) |
1306 |
(incf num)))) |
(incf num)))) |
1307 |
|
|
1308 |
(defun safely-delete-package (package-designator) |
(defun safely-delete-package (package-designator) |