projects
/
jscl.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
ad28d0c
)
Export VALUES, VALUES-LIST and MULTIPLE-VALUE-CALL
author
David Vazquez
<davazp@gmail.com>
Thu, 24 Jan 2013 23:53:26 +0000
(23:53 +0000)
committer
David Vazquez
<davazp@gmail.com>
Thu, 24 Jan 2013 23:53:26 +0000
(23:53 +0000)
ecmalisp.lisp
patch
|
blob
|
history
diff --git
a/ecmalisp.lisp
b/ecmalisp.lisp
index
0801df4
..
9de874c
100644
(file)
--- a/
ecmalisp.lisp
+++ b/
ecmalisp.lisp
@@
-23,7
+23,7
@@
;;; language to the compiler to be able to run.
#+ecmalisp
;;; 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
#+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
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
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*)
(setq *package* *user-package*)