0))
(eval-when (:compile-toplevel :load-toplevel :execute)
- (defparameter *op-precedence-hash* (make-hash-table :test #'equal))
+ (defparameter *op-precedence-hash* (make-hash-table :test 'eq))
;;; generate the operator precedences from *OP-PRECEDENCES*
(let ((precedence 1))
(= *= /= %= += -= <<= >>= >>>= \&\= ^= \|= js-assign)
(comma)))
(dolist (op ops)
- (let ((op-name (symbol-name op)))
- (setf (gethash op-name *op-precedence-hash*) precedence)))
+ (setf (gethash op *op-precedence-hash*) precedence))
(incf precedence)))
(defun op-precedence (op)
- (gethash (if (symbolp op)
- (symbol-name op)
- op)
- *op-precedence-hash*)))
+ (gethash op *op-precedence-hash*)))
(defprinter ps-quote (val)
(if (null val)
(in-suite package-system-tests)
+(test-ps-js operator-packages1
+ (#:new)
+ "new()")
+
(defpackage "MY-LIBRARY"
(:use #:parenscript))
(setf (ps-package-prefix :my-library) "my_library_")
{ bar : 1,
prefix_notAKeyword : prefix_something };
return !prefix_foo && prefix_foo[prefix_bar] + prefix_someOtherVar;")
-