HCoop
/
clinton
/
parenscript.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Lisp-2 removal (part one)
[clinton/parenscript.git]
/
src
/
package.lisp
diff --git
a/src/package.lisp
b/src/package.lisp
index
ca9e357
..
4e04212
100644
(file)
--- a/
src/package.lisp
+++ b/
src/package.lisp
@@
-32,7
+32,7
@@
#:>>>
#:< #:> #:<= #:>=
#:in
#:>>>
#:< #:> #:<= #:>=
#:in
- #:
eql #:
== #:!= #:=
+ #:== #:!= #:=
#:=== #:!==
#:&
#:^
#:=== #:!==
#:&
#:^
@@
-42,6
+42,9
@@
#:>>= #:<<=
#:*= #:/= #:%= #:+= #:\&= #:^= #:\|= #:~=
#:incf #:decf
#:>>= #:<<=
#:*= #:/= #:%= #:+= #:\&= #:^= #:\|= #:~=
#:incf #:decf
+
+ ;; compile-time stuff
+ #:eval-when
;; body forms
#:progn
;; body forms
#:progn
@@
-72,10
+75,6
@@
#:psetf
#:setq
#:psetq
#:psetf
#:setq
#:psetq
- #:simple-let*
- #:simple-let
- #:lexical-let*
- #:lexical-let
#:let*
#:let
#:let*
#:let
@@
-114,7
+113,6
@@
;; function definition
#:defun
#:lambda
;; function definition
#:defun
#:lambda
- #:flet
#:labels
;; lambda lists
#:labels
;; lambda lists
@@
-182,10
+180,10
@@
#:concatenate
#:concat-string
#:length
#:concatenate
#:concat-string
#:length
- #:null
#:defined
#:undefined
#:@
#:defined
#:undefined
#:@
+ #:chain
#:with-lambda
#:stringp
#:numberp
#:with-lambda
#:stringp
#:numberp
@@
-220,13
+218,15
@@
#:*js-target-version*
#:compile-script
#:ps
#:*js-target-version*
#:compile-script
#:ps
+ #:ps-to-stream
#:ps-doc
#:ps-doc*
#:ps*
#:ps-doc
#:ps-doc*
#:ps*
- #:ps1*
#:ps-inline
#:ps-inline*
#:ps-inline
#:ps-inline*
-
+ #:*ps-read-function*
+ #:ps-compile-file
+ #:ps-compile-stream
;; for parenscript macro definition within lisp
#:defpsmacro
#:defmacro/ps
;; for parenscript macro definition within lisp
#:defpsmacro
#:defmacro/ps
@@
-330,6
+330,7
@@
#:this
#:typeof
#:void
#:this
#:typeof
#:void
+ #:null
;; statements
;; statements
@@
-360,13
+361,12
@@
#:object
#:variable
#:slot-value
#:object
#:variable
#:slot-value
- #:funcall
#:escape
))
)
(defpackage "PARENSCRIPT"
#:escape
))
)
(defpackage "PARENSCRIPT"
- (:use "COMMON-LISP")
+ (:use "COMMON-LISP"
"ANAPHORA"
)
(:nicknames "JS" "PS")
#.(cons :export *parenscript-lang-exports*)
#.(cons :export *parenscript-interface-exports*)
(:nicknames "JS" "PS")
#.(cons :export *parenscript-lang-exports*)
#.(cons :export *parenscript-interface-exports*)