X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=ecmalisp.html;h=cafc7d4978f0ca7ac93a6e4993f1a48de7d0a89e;hb=729dd6267215a41ff2b0ca5aaffc3dc98ad5a9e3;hp=5b83b3bb2561f55148fee3d46919e010c7e073b2;hpb=b886ebeae49dbd68663e790f539d77f733169506;p=jscl.git

diff --git a/ecmalisp.html b/ecmalisp.html
index 5b83b3b..cafc7d4 100644
--- a/ecmalisp.html
+++ b/ecmalisp.html
@@ -71,18 +71,10 @@
         jqconsole.RegisterMatching('(', ')', 'parents');
 
         lisp.write = function(str){
-           jqconsole.Write(str, 'jqconsole-output');
+           jqconsole.Write(str, 'jqconsole-output', false);
            return str;
         }
 
-        function mv () {
-           var result = [];
-           result["multiple-values"] = true;
-           for (var i=0; i<arguments.length; i++)
-              result.push(arguments[i]);
-           return result;
-        }
-
         var startPrompt = function () {
           // Start the prompt with history enabled.
           jqconsole.Write(lisp.evalString(pv, '(CL:PACKAGE-NAME CL:*PACKAGE*)') + '> ', 'jqconsole-prompt');
@@ -90,11 +82,9 @@
             // Output input with the class jqconsole-return.
             if (input[0] != ','){
                 try {
-                    var values = lisp.evalString(pv, input);
-                    if (values !== 'object' || !('multiple-values' in values))
-                       values = [values];
-                    for (var i in values){
-                       jqconsole.Write(lisp.print(pv, values[i]) + '\n', 'jqconsole-return');
+                    var vs = lisp.evalString(mv, input);
+                    for (var i=0; i<vs.length; i++){
+                       jqconsole.Write(lisp.print(pv, vs[i]) + '\n', 'jqconsole-return');
                     }
                 } catch(error) {
                     jqconsole.Write('ERROR: ' + (error.message || error) + '\n', 'jqconsole-error');