Commit 27b752ff authored by Vladimir Sedach's avatar Vladimir Sedach

Fixed definition of *ps-lisp-library*.

parent c72e87d8
......@@ -4,7 +4,8 @@
;;; provide standard Lisp functionality.
(defparameter *ps-lisp-library*
'((defun mapcar (fun &rest as)
'(progn
(defun mapcar (fun &rest as)
(let ((result-array (make-array)))
(if (= 1 (length as))
(dolist (element (aref as 0))
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment