Relocated the definitions for the 1+ and 1- psmacros with the other math functions.

[clinton/parenscript.git] / src / special-forms.lisp

diff --git a/src/special-forms.lisp b/src/special-forms.lisp
index e07d331..26f787c 100644 (file)
--- a/src/special-forms.lisp
+++ b/src/special-forms.lisp
@@ -108,12 +108,6 @@
   (declare (ignore expecting))
   (list 'unary-operator "~" (compile-parenscript-form x :expecting :expression) :prefix t))
 
-(defpsmacro 1- (form)
-  `(- ,form 1))
-
-(defpsmacro 1+ (form)
-  `(+ ,form 1))
-
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;; control structures
 (defun flatten-blocks (body)