From: David Vázquez <davidv@eyecarepro.net>
Date: Wed, 16 Jan 2013 12:33:36 +0000 (+0000)
Subject: Reverting "Replace INTERNP by FIND-SYMBOL"
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=1712b0b7c7a221532f5bdc04bdecc6168abca39e;p=jscl.git

Reverting "Replace INTERNP by FIND-SYMBOL"

FIND-SYMBOL does not allow to difference between interned NIL and
uninterned symbols.

This reverts commit 25fa7dc525c432ea68bdae231748b279a2ab65ef.
---

diff --git a/ecmalisp.lisp b/ecmalisp.lisp
index d01860c..071879e 100644
--- a/ecmalisp.lisp
+++ b/ecmalisp.lisp
@@ -71,12 +71,16 @@
   (defmacro while (condition &body body)
     `(block nil (%while ,condition ,@body)))
 
-  (defun find-symbol (name)
-    (oget *package* name))
+  (defun internp (name)
+    (in name *package*))
 
   (defun intern (name)
-    (let ((s (find-symbol name)))
-      (if s s (oset *package* name (make-symbol name)))))
+    (if (internp name)
+        (oget *package* name)
+        (oset *package* name (make-symbol name))))
+
+  (defun find-symbol (name)
+    (oget *package* name))
 
   (defvar *gensym-counter* 0)
   (defun gensym (&optional (prefix "G"))