From adab606f4c6876bd532869d726cda9c448f73cd8 Mon Sep 17 00:00:00 2001 From: =?utf8?q?David=20V=C3=A1zquez?= Date: Wed, 19 Jun 2013 06:46:43 +0200 Subject: [PATCH] bit-not and unknown operator error --- experimental/codegen.lisp | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/experimental/codegen.lisp b/experimental/codegen.lisp index 3b97c58..b623b53 100644 --- a/experimental/codegen.lisp +++ b/experimental/codegen.lisp @@ -275,6 +275,7 @@ (unary-op post++ "++" 1 right :lvalue t :post t) (unary-op post-- "--" 1 right :lvalue t :post t) (unary-op not "!" 1 right) + (unary-op bit-not "~" 1 right) (unary-op unary+ "+" 1 right) (unary-op unary- "-" 1 right) (unary-op delete "delete " 1 right) @@ -329,7 +330,10 @@ (js-operator "?") (js-expr (second args)) (js-format ":") - (js-expr (third args)))))))))) + (js-expr (third args))) + (return-from js-operator-expression)) + + (error "Unknown operator `~S'" op))))))) (defun js-expr (form) (let ((form (js-expand-expr form))) -- 1.7.10.4