(in-package "SCHEME")

;; ? Non-standard ??
(lisp::defun putprop (sym key val) (lisp:declare (lisp:external |PutProp3|)))
(lisp::defun getprop (sym key &optional default) (lisp:declare (lisp:external |PutProp3|)))

(lisp:defun make-vector (count &optional fill) (lisp:declare (lisp:external |MakeVector2|)))
;; 6.4. Symbols
(lisp:defun symbol->string (arg) (lisp:declare (lisp:external |Symbol2String|)))
(lisp:defun string->symbol->string (arg) (lisp:declare (lisp:external |String2Symbol|)))
;; 6.5.4.  Numerical operations
(lisp:defun zero? (z) (lisp:declare (lisp:external |ZeroP|)))
;; 6.8 Vectors
(lisp:defun vector-fill! (v f) (lisp:declare (lisp:external |VectorFill2|)))
