/[gcl]/gcl/ansi-tests/ansi-aux.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/ansi-aux.lsp

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

revision 1.57 by pfdietz, Sat Mar 29 03:55:28 2003 UTC revision 1.58 by pfdietz, Wed Apr 9 02:25:09 2003 UTC
# Line 1295  the condition to go uncaught if it canno Line 1295  the condition to go uncaught if it canno
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)

Legend:
Removed from v.1.57  
changed lines
  Added in v.1.58

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