foo.lisp

;; Parenscript example

;;; /tmp/foo.lisp
(defun foo-bar-baz ()
 "foo bar baz"
 (mapcar (lambda (x) (+ 1 x)) (list 1 2 3)))

;; compile foo.lisp to foo.js
(with-open-file (stream "/tmp/foo.js" :direction :output :if-exists :supersede)
  (format stream (ps-compile-file "/tmp/foo.lisp")))

;; compile Parenscript runtime library
;; (provides mapcar and other HOFs)
(with-open-file (stream "/tmp/runtime.js" :direction :output :if-exists :supersede) 
  (format stream (ps* *ps-lisp-library*)))