Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Updating tpd2 to use the latest parenscript.

  • Loading branch information...
commit 1822f159c10686335468168fcef95873cd969dda 1 parent 39dddfb
@zkat zkat authored
Showing with 1 addition and 6 deletions.
  1. +1 −6 src/webapp/js-library.lisp
View
7 src/webapp/js-library.lisp
@@ -18,17 +18,12 @@
(cond ((not object-paths)
slot)
(t
- `(slot-value
+ `(getprop
,(if (rest object-paths)
`(~ ,@object-paths)
(first object-paths))
',slot)))))
-(ps:defpsmacro eq (a b)
- `(ps:=== ,a ,b))
-(ps:defpsmacro equal (a b)
- `(ps:== ,a ,b))
-
(ps:defpsmacro ignore-errors (&body body)
`(ps:try (progn
,@body)
Please sign in to comment.
Something went wrong with that request. Please try again.