From fb9bd1a4dfa758fe6e0483a6787bb5423bd4954c Mon Sep 17 00:00:00 2001 From: David Vazquez Date: Thu, 24 Jan 2013 23:53:26 +0000 Subject: [PATCH] Export VALUES, VALUES-LIST and MULTIPLE-VALUE-CALL --- ecmalisp.lisp | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/ecmalisp.lisp b/ecmalisp.lisp index 0801df4..9de874c 100644 --- a/ecmalisp.lisp +++ b/ecmalisp.lisp @@ -23,7 +23,7 @@ ;;; language to the compiler to be able to run. #+ecmalisp -(js-eval "function pv (x) { return typeof x === 'object' && 'car' in x ? x.car : x; }") +(js-eval "function pv (x) { return x; }") #+ecmalisp (progn @@ -2066,14 +2066,14 @@ function functionp gensym get-universal-time go identity if in-package incf integerp integerp intern keywordp lambda last length let let* list-all-packages list listp make-array make-package make-symbol - mapcar member minusp mod nil not nth nthcdr null numberp or - package-name package-use-list packagep plusp prin1-to-string print - proclaim prog1 prog2 progn psetq push quote remove remove-if + mapcar member minusp mod multiple-value-call nil not nth nthcdr null + numberp or package-name package-use-list packagep plusp prin1-to-string + print proclaim prog1 prog2 progn psetq push quote remove remove-if remove-if-not return return-from revappend reverse second set setq some string-upcase string string= stringp subseq symbol-function symbol-name symbol-package symbol-plist symbol-value symbolp t tagbody - third throw truncate unless unwind-protect variable warn when - write-line write-string zerop)) + third throw truncate unless unwind-protect values values-list variable + warn when write-line write-string zerop)) (setq *package* *user-package*) -- 1.7.10.4