lispプログラムの課題の質問です

Question

実現したいこと

lispの質問です
C言語やPython javaなどは少し触ったことがあるのですが、lispを最近学習し始めて理解が難しいです。
課題は与えられた2つのリストを連結する関数を作成したいのですが、うまくいかないです
（実行例:(app '(a b c) '(e f g)) (a b c e f g))
のようなものを作りたいです
システム関数appendがあるのは知っているのですが、自分で定義する問題で動作のコードがわかりません

環境はlispです
現在書いているコードが以下の通りです
(defun app (a b) (app '* a b))

前提

与えられた2つのリストを連結する関数appの定義を作成したいです。
(app '(a b c) '(e f g)) ⇒ (a b c e f g)
実行内容はappendと同じようなものです

発生している問題・エラーメッセージ

*** - SYSTEM::READ-EVAL-PRINT: variable DEFUN has no value
The following restarts are available:
USE-VALUE      :R1      Input a value to be used instead of DEFUN.
STORE-VALUE    :R2      Input a new value for DEFUN.
ABORT          :R3      Abort main loop

該当のソースコード

現在書いているコードが以下の通りです
(defun app (a b) (app '* a b))

試したこと

(eval (list '* (read) (read)))などが資料にあったので形を真似して作成した

補足情報（FW/ツールのバージョンなど）

ここにより詳細な情報を記載してください。

Comments

[otn]

> (eval (list '* (read) (read)))などが資料にあったので形を真似して作成した
これ、掛け算するコードです。
* は掛け算です。

Answer 1

この回答はGPT-4による自動生成回答です

以下のように再帰的に定義することで、2つのリストを連結する関数appを実装できます。

(defun app (a b)
  (if (null a)
      b
      (cons (car a) (app (cdr a) b))))

このコードでは、aが空リストであればbを返し、そうでなければaの先頭要素を連結した残りのリストに追加しています。再帰的にapp関数を呼び出すことで、aの要素がすべて追加されるまで繰り返されます。

実行例:

(app '(a b c) '(e f g))
; => (A B C E F G)

Answer 2

$ clisp
GNU CLISP 2.49.93+ (2018-02-18)

[1]> (defun app (a b) (concatenate 'list a b))
APP
[2]> (app '(a b c) '(e f g))
(A B C E F G)