Second value of FIND-SYMBOL is a keyword

[jscl.git] / prelude.js

diff --git a/prelude.js b/prelude.js
index 8321608..b934132 100644 (file)
--- a/prelude.js
+++ b/prelude.js
@@ -10,6 +10,10 @@ function mv(){
     return r;
 }
 
+function forcemv (x) {
+    return typeof x == 'object' && 'multiple-value' in x? x: mv(x);
+}
+
 // NOTE: Define VALUES to be MV for toplevel forms. It is because
 // `eval' compiles the forms and execute the Javascript code at
 // toplevel with `js-eval', so it is necessary to return multiple