LIST-ALL-PACKAGES should return a fresh list.

[jscl.git] / src / package.lisp

diff --git a/src/package.lisp b/src/package.lisp
index d3861e8..b10c1cc 100644 (file)
--- a/src/package.lisp
+++ b/src/package.lisp
@@ -16,7 +16,7 @@
 (defvar *package-list* nil)
 
 (defun list-all-packages ()
-  *package-list*)
+  (copy-list *package-list*))
 
 (defun make-package (name &key use)
   (let ((package (new))