From bfc35a4a1c2c0ba780ef686a166529534beb1be4 Mon Sep 17 00:00:00 2001 From: David Vazquez Date: Mon, 4 Feb 2013 10:50:43 +0000 Subject: [PATCH] INTERN returns multiple values --- ecmalisp.lisp | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/ecmalisp.lisp b/ecmalisp.lisp index 867c283..20c6812 100644 --- a/ecmalisp.lisp +++ b/ecmalisp.lisp @@ -617,7 +617,7 @@ (multiple-value-bind (symbol foundp) (find-symbol name package) (if foundp - symbol + (values symbol foundp) (let ((symbols (%package-symbols package))) (oget symbols name) (let ((symbol (make-symbol name))) @@ -625,7 +625,8 @@ (when (eq package *keyword-package*) (oset symbol "value" symbol) (export (list symbol) package)) - (oset symbols name symbol))))))) + (oset symbols name symbol) + (values symbol nil))))))) (defun symbol-package (symbol) (unless (symbolp symbol) -- 1.7.10.4