From 5b8a79c680846fd9d5793a976dca615fa124f12e Mon Sep 17 00:00:00 2001
From: Olof-Joachim Frahm <olof@macrolet.net>
Date: Sat, 18 May 2013 00:39:57 +0200
Subject: [PATCH] LIST-ALL-PACKAGES should return a fresh list.

---
 src/package.lisp |    2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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