src/lib/js-lib.lisp

   1 (in-package :parenscript)
   2
   3 ;;; Script of library functions you can include with your own code to
   4 ;;; provide standard Lisp functionality.
   5
   6 (defparameter *ps-lisp-library*
   7   '(progn
   8     (defun mapcar (fun &rest as)
   9       (let ((result-array (make-array)))
  10         (if (= 1 (length as))
  11             (dolist (element (aref as 0))
  12               (result-array.push (fun element)))
  13             (dotimes (i (length (aref as 0)))
  14               (let ((args-array (mapcar (lambda (a) (return (aref a i))) as)))
  15                 (result-array.push (fun.apply fun args-array)))))
  16         (return result-array)))))