china.lsp

来自「基因演算法source code範例vc」· LSP 代码 · 共 8 行

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