From: David Vazquez <davazp@gmail.com>
Date: Mon, 17 Dec 2012 18:37:22 +0000 (+0000)
Subject: Fix INTERN
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=beb21b0a2ac0cdc305b90f72987ca363e33caebe;p=jscl.git

Fix INTERN
---

diff --git a/test.lisp b/test.lisp
index 20edcbf..0529823 100644
--- a/test.lisp
+++ b/test.lisp
@@ -55,7 +55,10 @@
 (defvar *package* (new))
 
 (defun intern (name)
-  (set *package* name (make-symbol name)))
+  (let ((s (get *package* name)))
+    (if s
+        s
+        (set *package* name (make-symbol name)))))
 
 (defun find-symbol (name)
   (get *package* name))