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

Fixed definition of *ps-lisp-library*.

parent c72e87d8
Loading
Loading
Loading
Loading
+2 −1
Original line number Diff line number Diff line
@@ -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))