From 1712b0b7c7a221532f5bdc04bdecc6168abca39e Mon Sep 17 00:00:00 2001 From: =?utf8?q?David=20V=C3=A1zquez?= Date: Wed, 16 Jan 2013 12:33:36 +0000 Subject: [PATCH] Reverting "Replace INTERNP by FIND-SYMBOL" FIND-SYMBOL does not allow to difference between interned NIL and uninterned symbols. This reverts commit 25fa7dc525c432ea68bdae231748b279a2ab65ef. --- ecmalisp.lisp | 12 ++++++++---- 1 file changed, 8 insertions(+), 4 deletions(-) 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")) -- 1.7.10.4