X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=test.lisp;h=05298238b581be1a646651bbe6f8e613bc262123;hb=303beabd731556a15a88141af6e84808c8ed425f;hp=20edcbfcf14c3dc40153e9c35388c529532ec5ea;hpb=3845c1fa84a7ac80aa6e686512b055d37496764d;p=jscl.git

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