From: Olof-Joachim Frahm <olof@macrolet.net>
Date: Fri, 17 May 2013 22:39:57 +0000 (+0200)
Subject: LIST-ALL-PACKAGES should return a fresh list.
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=5b8a79c680846fd9d5793a976dca615fa124f12e;p=jscl.git

LIST-ALL-PACKAGES should return a fresh list.
---

diff --git a/src/package.lisp b/src/package.lisp
index d3861e8..b10c1cc 100644
--- 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))