game.lsp

基因演算法source code範例vc

(SETF (READTABLE-CASE *READTABLE*) :PRESERVE)
(DEFMACRO ﹚竡ㄧ计 (NAME ARG &REST BODY)
  `(DEFUN ,NAME	,ARG ,@BODY))
(DEFMACRO エ栋 (NAME ARG &REST BODY)
  `(DEFMACRO ,NAME ,ARG	,@BODY))
;;
(エ栋