2008-10-08から1日間の記事一覧
もう少しみてみることにした。前に定義した、 (defun mapc-test (lst) (if (listp lst) (mapc #'(lambda (x) (format t "~A~%" (concatenate 'string "Good-bye, " x))) lst) (format t "Usage: mapc-test $LIST~%")))だと、厳密には mapc の実行結果が出力…
もう少しみてみることにした。前に定義した、 (defun mapc-test (lst) (if (listp lst) (mapc #'(lambda (x) (format t "~A~%" (concatenate 'string "Good-bye, " x))) lst) (format t "Usage: mapc-test $LIST~%")))だと、厳密には mapc の実行結果が出力…