projects
/
jscl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
INTERN returns multiple values
[jscl.git]
/
ecmalisp.lisp
diff --git
a/ecmalisp.lisp
b/ecmalisp.lisp
index
867c283
..
20c6812
100644
(file)
--- a/
ecmalisp.lisp
+++ b/
ecmalisp.lisp
@@
-617,7
+617,7
@@
(multiple-value-bind (symbol foundp)
(find-symbol name package)
(if foundp
(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)))
(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))
(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)
(defun symbol-package (symbol)
(unless (symbolp symbol)