(defun in-list (array) (cond ((null (cdr array)) array) (t (list (car array) (in-list (cdr array)))) ) ) (defun out-list (array) (cond ((null (cdr array)) array) (t (cons (car array) (out-list (cadr array)))) ) ) (setf a (in-list '(a b c d))) (print a) (print (out-list a))
Standard input is empty
(A (B (C (D)))) (A B C D)
Warning: reserving address range 0x80000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x8000000000 - 0x80000bffff 0x153500600000 - 0x1535008e4fff 0x153500a15000 - 0x153500a39fff 0x153500a3a000 - 0x153500bacfff 0x153500bad000 - 0x153500bf5fff 0x153500bf6000 - 0x153500bf8fff 0x153500bf9000 - 0x153500bfbfff 0x153500bfc000 - 0x153500bfffff 0x153500c00000 - 0x153500c02fff 0x153500c03000 - 0x153500e01fff 0x153500e02000 - 0x153500e02fff 0x153500e03000 - 0x153500e03fff 0x153500e80000 - 0x153500e8ffff 0x153500e90000 - 0x153500ec3fff 0x153500ec4000 - 0x153500ffafff 0x153500ffb000 - 0x153500ffbfff 0x153500ffc000 - 0x153500ffefff 0x153500fff000 - 0x153500ffffff 0x153501000000 - 0x153501003fff 0x153501004000 - 0x153501203fff 0x153501204000 - 0x153501204fff 0x153501205000 - 0x153501205fff 0x15350133e000 - 0x153501341fff 0x153501342000 - 0x153501342fff 0x153501343000 - 0x153501344fff 0x153501345000 - 0x153501345fff 0x153501346000 - 0x153501346fff 0x153501347000 - 0x153501347fff 0x153501348000 - 0x153501355fff 0x153501356000 - 0x153501363fff 0x153501364000 - 0x153501370fff 0x153501371000 - 0x153501374fff 0x153501375000 - 0x153501375fff 0x153501376000 - 0x153501376fff 0x153501377000 - 0x15350137cfff 0x15350137d000 - 0x15350137efff 0x15350137f000 - 0x15350137ffff 0x153501380000 - 0x153501380fff 0x153501381000 - 0x153501381fff 0x153501382000 - 0x1535013affff 0x1535013b0000 - 0x1535013befff 0x1535013bf000 - 0x153501464fff 0x153501465000 - 0x1535014fbfff 0x1535014fc000 - 0x1535014fcfff 0x1535014fd000 - 0x1535014fdfff 0x1535014fe000 - 0x153501511fff 0x153501512000 - 0x153501539fff 0x15350153a000 - 0x153501543fff 0x153501544000 - 0x153501545fff 0x153501546000 - 0x15350154bfff 0x15350154c000 - 0x15350154efff 0x153501551000 - 0x153501551fff 0x153501552000 - 0x153501552fff 0x153501553000 - 0x153501553fff 0x153501554000 - 0x153501554fff 0x153501555000 - 0x153501555fff 0x153501556000 - 0x15350155cfff 0x15350155d000 - 0x15350155ffff 0x153501560000 - 0x153501560fff 0x153501561000 - 0x153501581fff 0x153501582000 - 0x153501589fff 0x15350158a000 - 0x15350158afff 0x15350158b000 - 0x15350158bfff 0x15350158c000 - 0x15350158cfff 0x5558fb495000 - 0x5558fb585fff 0x5558fb586000 - 0x5558fb68ffff 0x5558fb690000 - 0x5558fb6effff 0x5558fb6f1000 - 0x5558fb71ffff 0x5558fb720000 - 0x5558fb750fff 0x5558fb751000 - 0x5558fb754fff 0x5558fbcc9000 - 0x5558fbce9fff 0x7fffada52000 - 0x7fffada72fff 0x7fffada82000 - 0x7fffada85fff 0x7fffada86000 - 0x7fffada87fff