pper "abc123"))  --&gt; "ABC123"

;; define a test function which is callable from C.
(defun-c-callable TEST ((a :integer)) :integer
      (format t "TEST is called, arg=~s~%" a)
      (* a a))    ;; return the square of the arg
;;  call it from C
;;setlfunc remembers the entry address of Lisp TEST function.
(setlfunc (pod-address (intern "TEST")))
(callfunc 12)  --&gt; TEST is called, arg=12  144
</PRE>

<P>
Data representations in EusLisp are converted to those of C in the following
manners:
EusLisp's 30-