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 (file)
--- 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"))