From beb21b0a2ac0cdc305b90f72987ca363e33caebe Mon Sep 17 00:00:00 2001 From: David Vazquez Date: Mon, 17 Dec 2012 18:37:22 +0000 Subject: [PATCH] Fix INTERN --- test.lisp | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) 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)) -- 1.7.10.4