История изменений
Исправление Siborgium, (текущая версия) :
С Emacs Lisp плохо знаком. Если *lst-val-PHI4* используется только для возврата результата, то лучше действительно использовать локальную переменную.
(defun m-lst-PHI4 (lst-1 lst-2)
(progn (while (and (car lst-1) (car lst-2))
(push (+ (car lst-1) (car lst-2)) *lst-val-PHI4*)
(setq lst-1 (cdr lst-1))
(setq lst-2 (cdr lst-2)))
*lst-val-PHI4*)
Исправление Siborgium, :
С Emacs Lisp плохо знаком. Если *lst-val-PHI4* используется только для возврата результата, то лучше действительно использовать локальную переменную.
(defun m-lst-PHI4 (lst-1 lst-2)
(progn (while (and (car lst-1) (car lst-2))
(push (+ (car lst-1) (car lst-2)) *lst-val-PHI4*)
(setq lst-1 (cdr lst-1))
(setq lst-2 (cdr lst-2)))
*lst-val-PHI4*)
Исправление Siborgium, :
С Emacs Lisp плохо знаком. Если *lst-val-PHI4* используется только для возврата результата, то лучше действительно использовать локальную переменную.
(defun m-lst-PHI4 (lst-1 lst-2)
(progn (while (and (car lst-1) (car lst-2))
(push (+ (car lst-1) (car lst-2) *lst-val-PHI4*))
(setq lst-1 (cdr lst-1))
(setq lst-2 (cdr lst-2)))
*lst-val-PHI4*)
Исправление Siborgium, :
С Emacs Lisp плохо знаком.
(defun m-lst-PHI4 (lst-1 lst-2)
(progn (while (and (car lst-1) (car lst-2))
(push (+ (car lst-1) (car lst-2) *lst-val-PHI4*))
(setq lst-1 (cdr lst-1))
(setq lst-2 (cdr lst-2)))
*lst-val-PHI4*)
Исходная версия Siborgium, :
(defun m-lst-PHI4 (lst-1 lst-2)
(progn (while (and (car lst-1) (car lst-2))
(push (+ (car lst-1) (car lst-2) *lst-val-PHI4*))
(setq lst-1 (cdr lst-1))
(setq lst-2 (cdr lst-2)))
*lst-val-PHI4*)