🚀 go-pugleaf

In article <82877@ut-emx.uucp> dmonroe@ccwf.cc.utexas.edu (Darrel Monroe) writes:

>  I would like to obtain implementations of the Implode and Explode functions
>that would run under XLISP-PLUS.  I have tried the ones that appear in the 
>Lisp FAQ, but they don't work.  Has anyone implemented them in XLISP?

A few additional functions need to be implemented, and the MAP version of
explode must be used. Also the symbol Object is a constant in XLISP-PLUS so
the name of the argument must be changed.  The result:

(defun read-from-string (arg)
       (read (make-string-input-stream arg)))

(defun character (arg) 
       (coerce arg 'character))

(defun prin1-to-string (arg) 
       (format nil "~s" arg))

(defun implode (list)
       (read-from-string (coerce (mapcar #'character list) 'string)))

(defun explode (obj)
       (map 'list #'(lambda (char)
			    (intern (string char)))
	    (prin1-to-string obj)))

-- 
Tom Almy
toma@sail.labs.tek.com
Standard Disclaimers Apply