* boot/ast.boot (bfNumber?): Rename from bfSmintable. Check for

	floating point literals too. Adjust callers.
	(bfLessp): Check for integer or floating pointer numbers.
	* interp/vmlisp.lisp (complex?): New.
	(complex): Likewise.
	(realPart): Likewise.
	(imagPart): Likewise.
	(conjugate): Likewise.
	(sqrt): Likewise.

1 files changed, 21 insertions, 0 deletions

diff --git a/src/interp/boot-pkg.lisp b/src/interp/boot-pkg.lisp
index 0bfffad7..8f3e4d91 100644
--- a/src/interp/boot-pkg.lisp
+++ b/src/interp/boot-pkg.lisp
@@ -54,6 +54,27 @@
 (defun |gensym?| (s)
   (and (symbolp s) (null (symbol-package s))))
 
+(defmacro |complex?| (x)
+  `(complexp ,x))
+
+(defmacro |complex| (x (&optional (y 0.0)))
+  `(complex ,x ,y))
+
+(defmacro |realPart| (z)
+  `(realpart ,z))
+
+(defmacro |imagPart| (z)
+  `(imagpart ,z))
+
+(defmacro |conjugate| (z)
+  `(conjugate ,z))
+
+(defmacro |integerAndFractionalParts| (x)
+  `(multiple-value-list (floor ,x)))
+
+(defmacro |sqrt| (x)
+  `(sqrt ,x))
+
 ;; Below are some missing functions.  There here for lack of better
 ;; place (sys-funs.lisp?)
 ;;